diff --git a/bin/perl5.24.1 b/bin/perl5.24.1
new file mode 100755
index 00000000..08ecf4a6
Binary files /dev/null and b/bin/perl5.24.1 differ
diff --git a/lib/5.24.1/AnyDBM_File.pm b/lib/5.24.1/AnyDBM_File.pm
new file mode 100644
index 00000000..4153af2d
--- /dev/null
+++ b/lib/5.24.1/AnyDBM_File.pm
@@ -0,0 +1,96 @@
+package AnyDBM_File;
+use warnings;
+use strict;
+
+use 5.006_001;
+our $VERSION = '1.01';
+our @ISA = qw(NDBM_File DB_File GDBM_File SDBM_File ODBM_File) unless @ISA;
+
+my $mod;
+for $mod (@ISA) {
+    if (eval "require $mod") {
+	@ISA = ($mod);	# if we leave @ISA alone, warnings abound
+	return 1;
+    }
+}
+
+die "No DBM package was successfully found or installed";
+
+__END__
+
+=head1 NAME
+
+AnyDBM_File - provide framework for multiple DBMs
+
+NDBM_File, DB_File, GDBM_File, SDBM_File, ODBM_File - various DBM implementations
+
+=head1 SYNOPSIS
+
+    use AnyDBM_File;
+
+=head1 DESCRIPTION
+
+This module is a "pure virtual base class"--it has nothing of its own.
+It's just there to inherit from one of the various DBM packages.  It
+prefers ndbm for compatibility reasons with Perl 4, then Berkeley DB (See
+L<DB_File>), GDBM, SDBM (which is always there--it comes with Perl), and
+finally ODBM.   This way old programs that used to use NDBM via dbmopen()
+can still do so, but new ones can reorder @ISA:
+
+    BEGIN { @AnyDBM_File::ISA = qw(DB_File GDBM_File NDBM_File) }
+    use AnyDBM_File;
+
+Having multiple DBM implementations makes it trivial to copy database formats:
+
+    use Fcntl; use NDBM_File; use DB_File;
+    tie %newhash,  'DB_File', $new_filename, O_CREAT|O_RDWR;
+    tie %oldhash,  'NDBM_File', $old_filename, 1, 0;
+    %newhash = %oldhash;
+
+=head2 DBM Comparisons
+
+Here's a partial table of features the different packages offer:
+
+                         odbm    ndbm    sdbm    gdbm    bsd-db
+			 ----	 ----    ----    ----    ------
+ Linkage comes w/ perl   yes     yes     yes     yes     yes
+ Src comes w/ perl       no      no      yes     no      no
+ Comes w/ many unix os   yes     yes[0]  no      no      no
+ Builds ok on !unix      ?       ?       yes     yes     ?
+ Code Size               ?       ?       small   big     big
+ Database Size           ?       ?       small   big?    ok[1]
+ Speed                   ?       ?       slow    ok      fast
+ FTPable                 no      no      yes     yes     yes
+ Easy to build          N/A     N/A      yes     yes     ok[2]
+ Size limits             1k      4k      1k[3]   none    none
+ Byte-order independent  no      no      no      no      yes
+ Licensing restrictions  ?       ?       no      yes     no
+
+
+=over 4
+
+=item [0] 
+
+on mixed universe machines, may be in the bsd compat library,
+which is often shunned.
+
+=item [1] 
+
+Can be trimmed if you compile for one access method.
+
+=item [2] 
+
+See L<DB_File>. 
+Requires symbolic links.  
+
+=item [3] 
+
+By default, but can be redefined.
+
+=back
+
+=head1 SEE ALSO
+
+dbm(3), ndbm(3), DB_File(3), L<perldbmfilter>
+
+=cut
diff --git a/lib/5.24.1/App/Cpan.pm b/lib/5.24.1/App/Cpan.pm
new file mode 100644
index 00000000..94607d9b
--- /dev/null
+++ b/lib/5.24.1/App/Cpan.pm
@@ -0,0 +1,1515 @@
+package App::Cpan;
+
+use strict;
+use warnings;
+use vars qw($VERSION);
+
+use if $] < 5.008 => 'IO::Scalar';
+
+$VERSION = '1.63_01';
+
+=head1 NAME
+
+App::Cpan - easily interact with CPAN from the command line
+
+=head1 SYNOPSIS
+
+	# with arguments and no switches, installs specified modules
+	cpan module_name [ module_name ... ]
+
+	# with switches, installs modules with extra behavior
+	cpan [-cfFimtTw] module_name [ module_name ... ]
+
+	# use local::lib
+	cpan -I module_name [ module_name ... ]
+
+	# one time mirror override for faster mirrors
+	cpan -p ...
+
+	# with just the dot, install from the distribution in the
+	# current directory
+	cpan .
+
+	# without arguments, starts CPAN.pm shell
+	cpan
+
+	# without arguments, but some switches
+	cpan [-ahpruvACDLOP]
+
+=head1 DESCRIPTION
+
+This script provides a command interface (not a shell) to CPAN. At the
+moment it uses CPAN.pm to do the work, but it is not a one-shot command
+runner for CPAN.pm.
+
+=head2 Options
+
+=over 4
+
+=item -a
+
+Creates a CPAN.pm autobundle with CPAN::Shell->autobundle.
+
+=item -A module [ module ... ]
+
+Shows the primary maintainers for the specified modules.
+
+=item -c module
+
+Runs a `make clean` in the specified module's directories.
+
+=item -C module [ module ... ]
+
+Show the F<Changes> files for the specified modules
+
+=item -D module [ module ... ]
+
+Show the module details. This prints one line for each out-of-date module
+(meaning, modules locally installed but have newer versions on CPAN).
+Each line has three columns: module name, local version, and CPAN
+version.
+
+=item -f
+
+Force the specified action, when it normally would have failed. Use this
+to install a module even if its tests fail. When you use this option,
+-i is not optional for installing a module when you need to force it:
+
+	% cpan -f -i Module::Foo
+
+=item -F
+
+Turn off CPAN.pm's attempts to lock anything. You should be careful with
+this since you might end up with multiple scripts trying to muck in the
+same directory. This isn't so much of a concern if you're loading a special
+config with C<-j>, and that config sets up its own work directories.
+
+=item -g module [ module ... ]
+
+Downloads to the current directory the latest distribution of the module.
+
+=item -G module [ module ... ]
+
+UNIMPLEMENTED
+
+Download to the current directory the latest distribution of the
+modules, unpack each distribution, and create a git repository for each
+distribution.
+
+If you want this feature, check out Yanick Champoux's C<Git::CPAN::Patch>
+distribution.
+
+=item -h
+
+Print a help message and exit. When you specify C<-h>, it ignores all
+of the other options and arguments.
+
+=item -i
+
+Install the specified modules. With no other switches, this switch
+is implied.
+
+=item -I
+
+Load C<local::lib> (think like C<-I> for loading lib paths). Too bad
+C<-l> was already taken.
+
+=item -j Config.pm
+
+Load the file that has the CPAN configuration data. This should have the
+same format as the standard F<CPAN/Config.pm> file, which defines
+C<$CPAN::Config> as an anonymous hash.
+
+=item -J
+
+Dump the configuration in the same format that CPAN.pm uses. This is useful
+for checking the configuration as well as using the dump as a starting point
+for a new, custom configuration.
+
+=item -l
+
+List all installed modules with their versions
+
+=item -L author [ author ... ]
+
+List the modules by the specified authors.
+
+=item -m
+
+Make the specified modules.
+
+=item -M mirror1,mirror2,...
+
+A comma-separated list of mirrors to use for just this run. The C<-P>
+option can find them for you automatically.
+
+=item -n
+
+Do a dry run, but don't actually install anything. (unimplemented)
+
+=item -O
+
+Show the out-of-date modules.
+
+=item -p
+
+Ping the configured mirrors and print a report
+
+=item -P
+
+Find the best mirrors you could be using and use them for the current
+session.
+
+=item -r
+
+Recompiles dynamically loaded modules with CPAN::Shell->recompile.
+
+=item -t
+
+Run a `make test` on the specified modules.
+
+=item -T
+
+Do not test modules. Simply install them.
+
+=item -u
+
+Upgrade all installed modules. Blindly doing this can really break things,
+so keep a backup.
+
+=item -v
+
+Print the script version and CPAN.pm version then exit.
+
+=item -V
+
+Print detailed information about the cpan client.
+
+=item -w
+
+UNIMPLEMENTED
+
+Turn on cpan warnings. This checks various things, like directory permissions,
+and tells you about problems you might have.
+
+=back
+
+=head2 Examples
+
+	# print a help message
+	cpan -h
+
+	# print the version numbers
+	cpan -v
+
+	# create an autobundle
+	cpan -a
+
+	# recompile modules
+	cpan -r
+
+	# upgrade all installed modules
+	cpan -u
+
+	# install modules ( sole -i is optional )
+	cpan -i Netscape::Booksmarks Business::ISBN
+
+	# force install modules ( must use -i )
+	cpan -fi CGI::Minimal URI
+
+	# install modules but without testing them
+	cpan -Ti CGI::Minimal URI
+
+=head2 Environment variables
+
+There are several components in CPAN.pm that use environment variables.
+The build tools, L<ExtUtils::MakeMaker> and L<Module::Build> use some,
+while others matter to the levels above them. Some of these are specified
+by the Perl Toolchain Gang:
+
+Lancaster Concensus: L<https://github.com/Perl-Toolchain-Gang/toolchain-site/blob/master/lancaster-consensus.md>
+
+Oslo Concensus: L<https://github.com/Perl-Toolchain-Gang/toolchain-site/blob/master/oslo-consensus.md>
+
+=over 4
+
+=item NONINTERACTIVE_TESTING
+
+Assume no one is paying attention and skips prompts for distributions
+that do that correctly. C<cpan(1)> sets this to C<1> unless it already
+has a value (even if that value is false).
+
+=item PERL_MM_USE_DEFAULT
+
+Use the default answer for a prompted questions. C<cpan(1)> sets this
+to C<1> unless it already has a value (even if that value is false).
+
+=item CPAN_OPTS
+
+As with C<PERL5OPTS>, a string of additional C<cpan(1)> options to
+add to those you specify on the command line.
+
+=item CPANSCRIPT_LOGLEVEL
+
+The log level to use, with either the embedded, minimal logger or
+L<Log::Log4perl> if it is installed. Possible values are the same as
+the C<Log::Log4perl> levels: C<TRACE>, C<DEBUG>, C<INFO>, C<WARN>,
+C<ERROR>, and C<FATAL>. The default is C<INFO>.
+
+=item GIT_COMMAND
+
+The path to the C<git> binary to use for the Git features. The default
+is C</usr/local/bin/git>.
+
+=back
+
+=head2 Methods
+
+=over 4
+
+=cut
+
+use autouse Carp => qw(carp croak cluck);
+use CPAN 1.80 (); # needs no test
+use Config;
+use autouse Cwd => qw(cwd);
+use autouse 'Data::Dumper' => qw(Dumper);
+use File::Spec::Functions;
+use File::Basename;
+use Getopt::Std;
+
+# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
+# Internal constants
+use constant TRUE  => 1;
+use constant FALSE => 0;
+
+
+# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
+# The return values
+use constant HEY_IT_WORKED              =>   0;
+use constant I_DONT_KNOW_WHAT_HAPPENED  =>   1; # 0b0000_0001
+use constant ITS_NOT_MY_FAULT           =>   2;
+use constant THE_PROGRAMMERS_AN_IDIOT   =>   4;
+use constant A_MODULE_FAILED_TO_INSTALL =>   8;
+
+
+# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
+# set up the order of options that we layer over CPAN::Shell
+BEGIN { # most of this should be in methods
+use vars qw( @META_OPTIONS $Default %CPAN_METHODS @CPAN_OPTIONS  @option_order
+	%Method_table %Method_table_index );
+
+@META_OPTIONS = qw( h v V I g G M: C A D O l L a r p P j: J w T);
+
+$Default = 'default';
+
+%CPAN_METHODS = ( # map switches to method names in CPAN::Shell
+	$Default => 'install',
+	'c'      => 'clean',
+	'f'      => 'force',
+	'i'      => 'install',
+	'm'      => 'make',
+	't'      => 'test',
+	'u'      => 'upgrade',
+	'T'      => 'notest',
+	);
+@CPAN_OPTIONS = grep { $_ ne $Default } sort keys %CPAN_METHODS;
+
+@option_order = ( @META_OPTIONS, @CPAN_OPTIONS );
+
+
+# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
+# map switches to the subroutines in this script, along with other information.
+# use this stuff instead of hard-coded indices and values
+sub NO_ARGS   () { 0 }
+sub ARGS      () { 1 }
+sub GOOD_EXIT () { 0 }
+
+%Method_table = (
+# key => [ sub ref, takes args?, exit value, description ]
+
+	# options that do their thing first, then exit
+	h =>  [ \&_print_help,        NO_ARGS, GOOD_EXIT, 'Printing help'                ],
+	v =>  [ \&_print_version,     NO_ARGS, GOOD_EXIT, 'Printing version'             ],
+	V =>  [ \&_print_details,     NO_ARGS, GOOD_EXIT, 'Printing detailed version'    ],
+
+	# options that affect other options
+	j =>  [ \&_load_config,          ARGS, GOOD_EXIT, 'Use specified config file'    ],
+	J =>  [ \&_dump_config,       NO_ARGS, GOOD_EXIT, 'Dump configuration to stdout' ],
+	F =>  [ \&_lock_lobotomy,     NO_ARGS, GOOD_EXIT, 'Turn off CPAN.pm lock files'  ],
+	I =>  [ \&_load_local_lib,    NO_ARGS, GOOD_EXIT, 'Loading local::lib'           ],
+	M =>  [ \&_use_these_mirrors,    ARGS, GOOD_EXIT, 'Setting per session mirrors'  ],
+	P =>  [ \&_find_good_mirrors, NO_ARGS, GOOD_EXIT, 'Finding good mirrors'         ],
+    w =>  [ \&_turn_on_warnings,  NO_ARGS, GOOD_EXIT, 'Turning on warnings'          ],
+
+	# options that do their one thing
+	g =>  [ \&_download,          NO_ARGS, GOOD_EXIT, 'Download the latest distro'        ],
+	G =>  [ \&_gitify,            NO_ARGS, GOOD_EXIT, 'Down and gitify the latest distro' ],
+
+	C =>  [ \&_show_Changes,         ARGS, GOOD_EXIT, 'Showing Changes file'         ],
+	A =>  [ \&_show_Author,          ARGS, GOOD_EXIT, 'Showing Author'               ],
+	D =>  [ \&_show_Details,         ARGS, GOOD_EXIT, 'Showing Details'              ],
+	O =>  [ \&_show_out_of_date,  NO_ARGS, GOOD_EXIT, 'Showing Out of date'          ],
+	l =>  [ \&_list_all_mods,     NO_ARGS, GOOD_EXIT, 'Listing all modules'          ],
+
+	L =>  [ \&_show_author_mods,     ARGS, GOOD_EXIT, 'Showing author mods'          ],
+	a =>  [ \&_create_autobundle, NO_ARGS, GOOD_EXIT, 'Creating autobundle'          ],
+	p =>  [ \&_ping_mirrors,      NO_ARGS, GOOD_EXIT, 'Pinging mirrors'              ],
+
+	r =>  [ \&_recompile,         NO_ARGS, GOOD_EXIT, 'Recompiling'                  ],
+	u =>  [ \&_upgrade,           NO_ARGS, GOOD_EXIT, 'Running `make test`'          ],
+
+	c =>  [ \&_default,              ARGS, GOOD_EXIT, 'Running `make clean`'         ],
+	f =>  [ \&_default,              ARGS, GOOD_EXIT, 'Installing with force'        ],
+	i =>  [ \&_default,              ARGS, GOOD_EXIT, 'Running `make install`'       ],
+   'm' => [ \&_default,              ARGS, GOOD_EXIT, 'Running `make`'               ],
+	t =>  [ \&_default,              ARGS, GOOD_EXIT, 'Running `make test`'          ],
+	T =>  [ \&_default,              ARGS, GOOD_EXIT, 'Installing with notest'       ],
+	);
+
+%Method_table_index = (
+	code        => 0,
+	takes_args  => 1,
+	exit_value  => 2,
+	description => 3,
+	);
+}
+
+
+# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
+# finally, do some argument processing
+
+sub _stupid_interface_hack_for_non_rtfmers
+	{
+	no warnings 'uninitialized';
+	shift @ARGV if( $ARGV[0] eq 'install' and @ARGV > 1 )
+	}
+
+sub _process_options
+	{
+	my %options;
+
+	push @ARGV, grep $_, split /\s+/, $ENV{CPAN_OPTS} || '';
+
+	# if no arguments, just drop into the shell
+	if( 0 == @ARGV ) { CPAN::shell(); exit 0 }
+	else
+		{
+		Getopt::Std::getopts(
+		  join( '', @option_order ), \%options );
+		 \%options;
+		}
+	}
+
+sub _process_setup_options
+	{
+	my( $class, $options ) = @_;
+
+	if( $options->{j} )
+		{
+		$Method_table{j}[ $Method_table_index{code} ]->( $options->{j} );
+		delete $options->{j};
+		}
+	else
+		{
+		# this is what CPAN.pm would do otherwise
+		local $CPAN::Be_Silent = 1;
+		CPAN::HandleConfig->load(
+			# be_silent  => 1, deprecated
+			write_file => 0,
+			);
+		}
+
+	$class->_turn_off_testing if $options->{T};
+
+	foreach my $o ( qw(F I w P M) )
+		{
+		next unless exists $options->{$o};
+		$Method_table{$o}[ $Method_table_index{code} ]->( $options->{$o} );
+		delete $options->{$o};
+		}
+
+	if( $options->{o} )
+		{
+		my @pairs = map { [ split /=/, $_, 2 ] } split /,/, $options->{o};
+		foreach my $pair ( @pairs )
+			{
+			my( $setting, $value ) = @$pair;
+			$CPAN::Config->{$setting} = $value;
+		#	$logger->debug( "Setting [$setting] to [$value]" );
+			}
+		delete $options->{o};
+		}
+
+	my $option_count = grep { $options->{$_} } @option_order;
+	no warnings 'uninitialized';
+
+	# don't count options that imply installation
+	foreach my $opt ( qw(f T) ) { # don't count force or notest
+		$option_count -= $options->{$opt};
+		}
+
+	# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
+	# if there are no options, set -i (this line fixes RT ticket 16915)
+	$options->{i}++ unless $option_count;
+	}
+
+sub _setup_environment {
+# should we override or set defaults? If this were a true interactive
+# session, we'd be in the CPAN shell.
+
+# https://github.com/Perl-Toolchain-Gang/toolchain-site/blob/master/lancaster-consensus.md
+	$ENV{NONINTERACTIVE_TESTING} = 1 unless defined $ENV{NONINTERACTIVE_TESTING};
+	$ENV{PERL_MM_USE_DEFAULT}    = 1 unless defined $ENV{PERL_MM_USE_DEFAULT};
+	}
+
+=item run()
+
+Just do it.
+
+The C<run> method returns 0 on success and a positive number on
+failure. See the section on EXIT CODES for details on the values.
+
+=cut
+
+my $logger;
+
+sub run
+	{
+	my $class = shift;
+
+	my $return_value = HEY_IT_WORKED; # assume that things will work
+
+	$logger = $class->_init_logger;
+	$logger->debug( "Using logger from @{[ref $logger]}" );
+
+	$class->_hook_into_CPANpm_report;
+	$logger->debug( "Hooked into output" );
+
+	$class->_stupid_interface_hack_for_non_rtfmers;
+	$logger->debug( "Patched cargo culting" );
+
+	my $options = $class->_process_options;
+	$logger->debug( "Options are @{[Dumper($options)]}" );
+
+	$class->_process_setup_options( $options );
+
+	$class->_setup_environment( $options );
+
+	OPTION: foreach my $option ( @option_order )
+		{
+		next unless $options->{$option};
+
+		my( $sub, $takes_args, $description ) =
+			map { $Method_table{$option}[ $Method_table_index{$_} ] }
+			qw( code takes_args description );
+
+		unless( ref $sub eq ref sub {} )
+			{
+			$return_value = THE_PROGRAMMERS_AN_IDIOT;
+			last OPTION;
+			}
+
+		$logger->info( "$description -- ignoring other arguments" )
+			if( @ARGV && ! $takes_args );
+
+		$return_value = $sub->( \ @ARGV, $options );
+
+		last;
+		}
+
+	return $return_value;
+	}
+
+{
+package
+  Local::Null::Logger; # hide from PAUSE
+
+sub new { bless \ my $x, $_[0] }
+sub AUTOLOAD { 1 }
+sub DESTROY { 1 }
+}
+
+# load a module without searching the default entry for the current
+# directory
+sub _safe_load_module {
+  my $name = shift;
+
+  local @INC = @INC;
+  pop @INC if $INC[-1] eq '.';
+
+  eval "require $name; 1";
+}
+
+sub _init_logger
+	{
+	my $log4perl_loaded = _safe_load_module("Log::Log4perl");
+
+    unless( $log4perl_loaded )
+        {
+        print "Loading internal null logger. Install Log::Log4perl for logging messages\n";
+        $logger = Local::Null::Logger->new;
+        return $logger;
+        }
+
+	my $LEVEL = $ENV{CPANSCRIPT_LOGLEVEL} || 'INFO';
+
+	Log::Log4perl::init( \ <<"HERE" );
+log4perl.rootLogger=$LEVEL, A1
+log4perl.appender.A1=Log::Log4perl::Appender::Screen
+log4perl.appender.A1.layout=PatternLayout
+log4perl.appender.A1.layout.ConversionPattern=%m%n
+HERE
+
+	$logger = Log::Log4perl->get_logger( 'App::Cpan' );
+	}
+
+# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
+ # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
+# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
+
+sub _default
+	{
+	my( $args, $options ) = @_;
+
+	my $switch = '';
+
+	# choose the option that we're going to use
+	# we'll deal with 'f' (force) later, so skip it
+	foreach my $option ( @CPAN_OPTIONS )
+		{
+		next if ( $option eq 'f' or $option eq 'T' );
+		next unless $options->{$option};
+		$switch = $option;
+		last;
+		}
+
+	# 1. with no switches, but arguments, use the default switch (install)
+	# 2. with no switches and no args, start the shell
+	# 3. With a switch but no args, die! These switches need arguments.
+	   if( not $switch and     @$args ) { $switch = $Default;  }
+	elsif( not $switch and not @$args ) { return CPAN::shell() }
+	elsif(     $switch and not @$args )
+		{ die "Nothing to $CPAN_METHODS{$switch}!\n"; }
+
+	# Get and check the method from CPAN::Shell
+	my $method = $CPAN_METHODS{$switch};
+	die "CPAN.pm cannot $method!\n" unless CPAN::Shell->can( $method );
+
+	# call the CPAN::Shell method, with force or notest if specified
+	my $action = do {
+		   if( $options->{f} ) { sub { CPAN::Shell->force( $method, @_ )  } }
+		elsif( $options->{T} ) { sub { CPAN::Shell->notest( $method, @_ ) } }
+		else                   { sub { CPAN::Shell->$method( @_ )         } }
+		};
+
+	# How do I handle exit codes for multiple arguments?
+	my @errors = ();
+
+	foreach my $arg ( @$args )
+		{
+		_clear_cpanpm_output();
+		$action->( $arg );
+
+		my $error = _cpanpm_output_indicates_failure();
+		push @errors, $error if $error;
+		}
+
+	return do {
+		if( @errors ) { $errors[0] }
+		else { HEY_IT_WORKED }
+		};
+
+	}
+
+# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
+
+=for comment
+
+CPAN.pm sends all the good stuff either to STDOUT, or to a temp
+file if $CPAN::Be_Silent is set. I have to intercept that output
+so I can find out what happened.
+
+=cut
+
+BEGIN {
+my $scalar = '';
+
+sub _hook_into_CPANpm_report
+	{
+	no warnings 'redefine';
+
+	*CPAN::Shell::myprint = sub {
+		my($self,$what) = @_;
+		$scalar .= $what;
+		$self->print_ornamented($what,
+			$CPAN::Config->{colorize_print}||'bold blue on_white',
+			);
+		};
+
+	*CPAN::Shell::mywarn = sub {
+		my($self,$what) = @_;
+		$scalar .= $what;
+		$self->print_ornamented($what,
+			$CPAN::Config->{colorize_warn}||'bold red on_white'
+			);
+		};
+
+	}
+
+sub _clear_cpanpm_output { $scalar = '' }
+
+sub _get_cpanpm_output   { $scalar }
+
+# These are lines I don't care about in CPAN.pm output. If I can
+# filter out the informational noise, I have a better chance to
+# catch the error signal
+my @skip_lines = (
+	qr/^\QWarning \(usually harmless\)/,
+	qr/\bwill not store persistent state\b/,
+	qr(//hint//),
+	qr/^\s+reports\s+/,
+	qr/^Try the command/,
+	qr/^\s+$/,
+	qr/^to find objects/,
+	qr/^\s*Database was generated on/,
+	qr/^Going to read/,
+	qr|^\s+i\s+/|,    # the i /Foo::Whatever/ line when it doesn't know
+	);
+
+sub _get_cpanpm_last_line
+	{
+	my $fh;
+
+	if( $] < 5.008 ) {
+		$fh = IO::Scalar->new( \ $scalar );
+		}
+	else {
+		eval q{ open $fh, '<', \\ $scalar; };
+		}
+
+	my @lines = <$fh>;
+
+    # This is a bit ugly. Once we examine a line, we have to
+    # examine the line before it and go through all of the same
+    # regexes. I could do something fancy, but this works.
+    REGEXES: {
+	foreach my $regex ( @skip_lines )
+		{
+		if( $lines[-1] =~ m/$regex/ )
+            {
+            pop @lines;
+            redo REGEXES; # we have to go through all of them for every line!
+            }
+		}
+	}
+
+    $logger->debug( "Last interesting line of CPAN.pm output is:\n\t$lines[-1]" );
+
+	$lines[-1];
+	}
+}
+
+BEGIN {
+my $epic_fail_words = join '|',
+	qw( Error stop(?:ping)? problems force not unsupported
+		fail(?:ed)? Cannot\s+install );
+
+sub _cpanpm_output_indicates_failure
+	{
+	my $last_line = _get_cpanpm_last_line();
+
+	my $result = $last_line =~ /\b(?:$epic_fail_words)\b/i;
+	return A_MODULE_FAILED_TO_INSTALL if $last_line =~ /\b(?:Cannot\s+install)\b/i;
+
+	$result || ();
+	}
+}
+
+sub _cpanpm_output_indicates_success
+	{
+	my $last_line = _get_cpanpm_last_line();
+
+	my $result = $last_line =~ /\b(?:\s+-- OK|PASS)\b/;
+	$result || ();
+	}
+
+sub _cpanpm_output_is_vague
+	{
+	return FALSE if
+		_cpanpm_output_indicates_failure() ||
+		_cpanpm_output_indicates_success();
+
+	return TRUE;
+	}
+
+# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
+sub _turn_on_warnings {
+	carp "Warnings are implemented yet";
+	return HEY_IT_WORKED;
+	}
+
+sub _turn_off_testing {
+	$logger->debug( 'Trusting test report history' );
+	$CPAN::Config->{trust_test_report_history} = 1;
+	return HEY_IT_WORKED;
+	}
+
+# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
+sub _print_help
+	{
+	$logger->info( "Use perldoc to read the documentation" );
+	exec "perldoc $0";
+	}
+
+sub _print_version # -v
+	{
+	$logger->info(
+		"$0 script version $VERSION, CPAN.pm version " . CPAN->VERSION );
+
+	return HEY_IT_WORKED;
+	}
+
+sub _print_details # -V
+	{
+	_print_version();
+
+	_check_install_dirs();
+
+	$logger->info( '-' x 50 . "\nChecking configured mirrors..." );
+	foreach my $mirror ( @{ $CPAN::Config->{urllist} } ) {
+		_print_ping_report( $mirror );
+		}
+
+	$logger->info( '-' x 50 . "\nChecking for faster mirrors..." );
+
+	{
+	require CPAN::Mirrors;
+
+      if ( $CPAN::Config->{connect_to_internet_ok} ) {
+        $CPAN::Frontend->myprint(qq{Trying to fetch a mirror list from the Internet\n});
+        eval { CPAN::FTP->localize('MIRRORED.BY',File::Spec->catfile($CPAN::Config->{keep_source_where},'MIRRORED.BY'),3,1) }
+          or $CPAN::Frontend->mywarn(<<'HERE');
+We failed to get a copy of the mirror list from the Internet.
+You will need to provide CPAN mirror URLs yourself.
+HERE
+        $CPAN::Frontend->myprint("\n");
+      }
+
+	my $mirrors   = CPAN::Mirrors->new(  );
+	$mirrors->parse_mirrored_by( File::Spec->catfile($CPAN::Config->{keep_source_where},'MIRRORED.BY') );
+	my @continents = $mirrors->find_best_continents;
+
+	my @mirrors   = $mirrors->get_mirrors_by_continents( $continents[0] );
+	my @timings   = $mirrors->get_mirrors_timings( \@mirrors );
+
+	foreach my $timing ( @timings ) {
+		$logger->info( sprintf "%s (%0.2f ms)",
+			$timing->hostname, $timing->rtt );
+		}
+	}
+
+	return HEY_IT_WORKED;
+	}
+
+sub _check_install_dirs
+	{
+	my $makepl_arg   = $CPAN::Config->{makepl_arg};
+	my $mbuildpl_arg = $CPAN::Config->{mbuildpl_arg};
+
+	my @custom_dirs;
+	# PERL_MM_OPT
+	push @custom_dirs,
+		$makepl_arg   =~ m/INSTALL_BASE\s*=\s*(\S+)/g,
+		$mbuildpl_arg =~ m/--install_base\s*=\s*(\S+)/g;
+
+	if( @custom_dirs ) {
+		foreach my $dir ( @custom_dirs ) {
+			_print_inc_dir_report( $dir );
+			}
+		}
+
+	# XXX: also need to check makepl_args, etc
+
+	my @checks = (
+		[ 'core',         [ grep $_, @Config{qw(installprivlib installarchlib)}      ] ],
+		[ 'vendor',       [ grep $_, @Config{qw(installvendorlib installvendorarch)} ] ],
+		[ 'site',         [ grep $_, @Config{qw(installsitelib installsitearch)}     ] ],
+		[ 'PERL5LIB',     _split_paths( $ENV{PERL5LIB} ) ],
+		[ 'PERLLIB',      _split_paths( $ENV{PERLLIB} )  ],
+		);
+
+	$logger->info( '-' x 50 . "\nChecking install dirs..." );
+	foreach my $tuple ( @checks ) {
+		my( $label ) = $tuple->[0];
+
+		$logger->info( "Checking $label" );
+		$logger->info( "\tno directories for $label" ) unless @{ $tuple->[1] };
+		foreach my $dir ( @{ $tuple->[1] } ) {
+			_print_inc_dir_report( $dir );
+			}
+		}
+
+	}
+
+sub _split_paths
+	{
+	[ map { _expand_filename( $_ ) } split /$Config{path_sep}/, $_[0] || '' ];
+	}
+
+
+=pod
+
+Stolen from File::Path::Expand
+
+=cut
+
+sub _expand_filename
+	{
+    my( $path ) = @_;
+    no warnings 'uninitialized';
+    $logger->debug( "Expanding path $path\n" );
+    $path =~ s{\A~([^/]+)?}{
+		_home_of( $1 || $> ) || "~$1"
+    	}e;
+    return $path;
+	}
+
+sub _home_of
+	{
+	require User::pwent;
+    my( $user ) = @_;
+    my $ent = User::pwent::getpw($user) or return;
+    return $ent->dir;
+	}
+
+sub _get_default_inc
+	{
+	require Config;
+
+	[ @Config::Config{ _vars() }, '.' ];
+	}
+
+sub _vars {
+	qw(
+	installarchlib
+	installprivlib
+	installsitearch
+	installsitelib
+	);
+	}
+
+sub _ping_mirrors {
+	my $urls   = $CPAN::Config->{urllist};
+	require URI;
+
+	foreach my $url ( @$urls ) {
+		my( $obj ) = URI->new( $url );
+		next unless _is_pingable_scheme( $obj );
+		my $host = $obj->host;
+		_print_ping_report( $obj );
+		}
+
+	}
+
+sub _is_pingable_scheme {
+	my( $uri ) = @_;
+
+	$uri->scheme eq 'file'
+	}
+
+sub _find_good_mirrors {
+	require CPAN::Mirrors;
+
+	my $file = do {
+		my $file = 'MIRRORED.BY';
+		my $local_path = File::Spec->catfile(
+			$CPAN::Config->{keep_source_where}, $file );
+
+		if( -e $local_path ) { $local_path }
+		else {
+			require CPAN::FTP;
+			CPAN::FTP->localize( $file, $local_path, 3, 1 );
+			$local_path;
+			}
+		};
+	my $mirrors = CPAN::Mirrors->new( $file );
+
+	my @mirrors = $mirrors->best_mirrors(
+		how_many   => 5,
+		verbose    => 1,
+		);
+
+	foreach my $mirror ( @mirrors ) {
+		next unless eval { $mirror->can( 'http' ) };
+		_print_ping_report( $mirror->http );
+		}
+
+	$CPAN::Config->{urllist} = [
+		map { $_->http } @mirrors
+		];
+	}
+
+sub _print_inc_dir_report
+	{
+	my( $dir ) = shift;
+
+	my $writeable = -w $dir ? '+' : '!!! (not writeable)';
+	$logger->info( "\t$writeable $dir" );
+	return -w $dir;
+	}
+
+sub _print_ping_report
+	{
+	my( $mirror ) = @_;
+
+	my $rtt = eval { _get_ping_report( $mirror ) };
+	my $result = $rtt ? sprintf "+ (%4d ms)", $rtt * 1000 : '!';
+
+	$logger->info(
+		sprintf "\t%s %s", $result, $mirror
+		);
+	}
+
+sub _get_ping_report
+	{
+	require URI;
+	my( $mirror ) = @_;
+	my( $url ) = ref $mirror ? $mirror : URI->new( $mirror ); #XXX
+	require Net::Ping;
+
+	my $ping = Net::Ping->new( 'tcp', 1 );
+
+	if( $url->scheme eq 'file' ) {
+		return -e $url->file;
+		}
+
+    my( $port ) = $url->port;
+
+    return unless $port;
+
+    if ( $ping->can('port_number') ) {
+        $ping->port_number($port);
+    	}
+    else {
+        $ping->{'port_num'} = $port;
+    	}
+
+    $ping->hires(1) if $ping->can( 'hires' );
+    my( $alive, $rtt ) = eval{ $ping->ping( $url->host ) };
+	$alive ? $rtt : undef;
+	}
+
+sub _load_local_lib # -I
+	{
+	$logger->debug( "Loading local::lib" );
+
+	my $rc = _safe_load_module("local::lib");
+	unless( $rc ) {
+		$logger->die( "Could not load local::lib" );
+		}
+
+	local::lib->import;
+
+	return HEY_IT_WORKED;
+	}
+
+sub _use_these_mirrors # -M
+	{
+	$logger->debug( "Setting per session mirrors" );
+	unless( $_[0] ) {
+		$logger->die( "The -M switch requires a comma-separated list of mirrors" );
+		}
+
+	$CPAN::Config->{urllist} = [ split /,/, $_[0] ];
+
+	$logger->debug( "Mirrors are @{$CPAN::Config->{urllist}}" );
+
+	}
+
+sub _create_autobundle
+	{
+	$logger->info(
+		"Creating autobundle in $CPAN::Config->{cpan_home}/Bundle" );
+
+	CPAN::Shell->autobundle;
+
+	return HEY_IT_WORKED;
+	}
+
+sub _recompile
+	{
+	$logger->info( "Recompiling dynamically-loaded extensions" );
+
+	CPAN::Shell->recompile;
+
+	return HEY_IT_WORKED;
+	}
+
+sub _upgrade
+	{
+	$logger->info( "Upgrading all modules" );
+
+	CPAN::Shell->upgrade();
+
+	return HEY_IT_WORKED;
+	}
+
+sub _load_config # -j
+	{
+	my $file = shift || '';
+
+	# should I clear out any existing config here?
+	$CPAN::Config = {};
+	delete $INC{'CPAN/Config.pm'};
+	croak( "Config file [$file] does not exist!\n" ) unless -e $file;
+
+	my $rc = eval "require '$file'";
+
+	# CPAN::HandleConfig::require_myconfig_or_config looks for this
+	$INC{'CPAN/MyConfig.pm'} = 'fake out!';
+
+	# CPAN::HandleConfig::load looks for this
+	$CPAN::Config_loaded = 'fake out';
+
+	croak( "Could not load [$file]: $@\n") unless $rc;
+
+	return HEY_IT_WORKED;
+	}
+
+sub _dump_config # -J
+	{
+	my $args = shift;
+	require Data::Dumper;
+
+	my $fh = $args->[0] || \*STDOUT;
+
+	local $Data::Dumper::Sortkeys = 1;
+	my $dd = Data::Dumper->new(
+		[$CPAN::Config],
+		['$CPAN::Config']
+		);
+
+	print $fh $dd->Dump, "\n1;\n__END__\n";
+
+	return HEY_IT_WORKED;
+	}
+
+sub _lock_lobotomy # -F
+	{
+	no warnings 'redefine';
+
+	*CPAN::_flock    = sub { 1 };
+	*CPAN::checklock = sub { 1 };
+
+	return HEY_IT_WORKED;
+	}
+
+sub _download
+	{
+	my $args = shift;
+
+	local $CPAN::DEBUG = 1;
+
+	my %paths;
+
+	foreach my $module ( @$args )
+		{
+		$logger->info( "Checking $module" );
+		my $path = CPAN::Shell->expand( "Module", $module )->cpan_file;
+
+		$logger->debug( "Inst file would be $path\n" );
+
+		$paths{$module} = _get_file( _make_path( $path ) );
+		}
+
+	return \%paths;
+	}
+
+sub _make_path { join "/", qw(authors id), $_[0] }
+
+sub _get_file
+	{
+	my $path = shift;
+
+	my $loaded = _safe_load_module("LWP::Simple");
+	croak "You need LWP::Simple to use features that fetch files from CPAN\n"
+		unless $loaded;
+
+	my $file = substr $path, rindex( $path, '/' ) + 1;
+	my $store_path = catfile( cwd(), $file );
+	$logger->debug( "Store path is $store_path" );
+
+	foreach my $site ( @{ $CPAN::Config->{urllist} } )
+		{
+		my $fetch_path = join "/", $site, $path;
+		$logger->debug( "Trying $fetch_path" );
+	    last if LWP::Simple::getstore( $fetch_path, $store_path );
+		}
+
+	return $store_path;
+	}
+
+sub _gitify
+	{
+	my $args = shift;
+
+	my $loaded = _safe_load_module("Archive::Extract");
+	croak "You need Archive::Extract to use features that gitify distributions\n"
+		unless $loaded;
+
+	my $starting_dir = cwd();
+
+	foreach my $module ( @$args )
+		{
+		$logger->info( "Checking $module" );
+		my $path = CPAN::Shell->expand( "Module", $module )->cpan_file;
+
+		my $store_paths = _download( [ $module ] );
+		$logger->debug( "gitify Store path is $store_paths->{$module}" );
+		my $dirname = dirname( $store_paths->{$module} );
+
+		my $ae = Archive::Extract->new( archive => $store_paths->{$module} );
+		$ae->extract( to => $dirname );
+
+		chdir $ae->extract_path;
+
+		my $git = $ENV{GIT_COMMAND} || '/usr/local/bin/git';
+		croak "Could not find $git"    unless -e $git;
+		croak "$git is not executable" unless -x $git;
+
+		# can we do this in Pure Perl?
+		system( $git, 'init'    );
+		system( $git, qw( add . ) );
+		system( $git, qw( commit -a -m ), 'initial import' );
+		}
+
+	chdir $starting_dir;
+
+	return HEY_IT_WORKED;
+	}
+
+sub _show_Changes
+	{
+	my $args = shift;
+
+	foreach my $arg ( @$args )
+		{
+		$logger->info( "Checking $arg\n" );
+
+		my $module = eval { CPAN::Shell->expand( "Module", $arg ) };
+		my $out = _get_cpanpm_output();
+
+		next unless eval { $module->inst_file };
+		#next if $module->uptodate;
+
+		( my $id = $module->id() ) =~ s/::/\-/;
+
+		my $url = "http://search.cpan.org/~" . lc( $module->userid ) . "/" .
+			$id . "-" . $module->cpan_version() . "/";
+
+		#print "URL: $url\n";
+		_get_changes_file($url);
+		}
+
+	return HEY_IT_WORKED;
+	}
+
+sub _get_changes_file
+	{
+	croak "Reading Changes files requires LWP::Simple and URI\n"
+		unless _safe_load_module("LWP::Simple") && _safe_load_module("URI");
+
+    my $url = shift;
+
+    my $content = LWP::Simple::get( $url );
+    $logger->info( "Got $url ..." ) if defined $content;
+	#print $content;
+
+	my( $change_link ) = $content =~ m|<a href="(.*?)">Changes</a>|gi;
+
+	my $changes_url = URI->new_abs( $change_link, $url );
+ 	$logger->debug( "Change link is: $changes_url" );
+
+	my $changes =  LWP::Simple::get( $changes_url );
+
+	print $changes;
+
+	return HEY_IT_WORKED;
+	}
+
+sub _show_Author
+	{
+	my $args = shift;
+
+	foreach my $arg ( @$args )
+		{
+		my $module = CPAN::Shell->expand( "Module", $arg );
+		unless( $module )
+			{
+			$logger->info( "Didn't find a $arg module, so no author!" );
+			next;
+			}
+
+		my $author = CPAN::Shell->expand( "Author", $module->userid );
+
+		next unless $module->userid;
+
+		printf "%-25s %-8s %-25s %s\n",
+			$arg, $module->userid, $author->email, $author->name;
+		}
+
+	return HEY_IT_WORKED;
+	}
+
+sub _show_Details
+	{
+	my $args = shift;
+
+	foreach my $arg ( @$args )
+		{
+		my $module = CPAN::Shell->expand( "Module", $arg );
+		my $author = CPAN::Shell->expand( "Author", $module->userid );
+
+		next unless $module->userid;
+
+		print "$arg\n", "-" x 73, "\n\t";
+		print join "\n\t",
+			$module->description ? $module->description : "(no description)",
+			$module->cpan_file ? $module->cpan_file : "(no cpanfile)",
+			$module->inst_file ? $module->inst_file :"(no installation file)" ,
+			'Installed: ' . ($module->inst_version ? $module->inst_version : "not installed"),
+			'CPAN:      ' . $module->cpan_version . '  ' .
+				($module->uptodate ? "" : "Not ") . "up to date",
+			$author->fullname . " (" . $module->userid . ")",
+			$author->email;
+		print "\n\n";
+
+		}
+
+	return HEY_IT_WORKED;
+	}
+
+sub _show_out_of_date
+	{
+	my @modules = CPAN::Shell->expand( "Module", "/./" );
+
+	printf "%-40s  %6s  %6s\n", "Module Name", "Local", "CPAN";
+	print "-" x 73, "\n";
+
+	foreach my $module ( @modules )
+		{
+		next unless $module->inst_file;
+		next if $module->uptodate;
+		printf "%-40s  %.4f  %.4f\n",
+			$module->id,
+			$module->inst_version ? $module->inst_version : '',
+			$module->cpan_version;
+		}
+
+	return HEY_IT_WORKED;
+	}
+
+sub _show_author_mods
+	{
+	my $args = shift;
+
+	my %hash = map { lc $_, 1 } @$args;
+
+	my @modules = CPAN::Shell->expand( "Module", "/./" );
+
+	foreach my $module ( @modules )
+		{
+		next unless exists $hash{ lc $module->userid };
+		print $module->id, "\n";
+		}
+
+	return HEY_IT_WORKED;
+	}
+
+sub _list_all_mods # -l
+	{
+	require File::Find;
+
+	my $args = shift;
+
+
+	my $fh = \*STDOUT;
+
+	INC: foreach my $inc ( @INC )
+		{
+		my( $wanted, $reporter ) = _generator();
+		File::Find::find( { wanted => $wanted }, $inc );
+
+		my $count = 0;
+		FILE: foreach my $file ( @{ $reporter->() } )
+			{
+			my $version = _parse_version_safely( $file );
+
+			my $module_name = _path_to_module( $inc, $file );
+			next FILE unless defined $module_name;
+
+			print $fh "$module_name\t$version\n";
+
+			#last if $count++ > 5;
+			}
+		}
+
+	return HEY_IT_WORKED;
+	}
+
+sub _generator
+	{
+	my @files = ();
+
+	sub { push @files,
+		File::Spec->canonpath( $File::Find::name )
+		if m/\A\w+\.pm\z/ },
+	sub { \@files },
+	}
+
+sub _parse_version_safely # stolen from PAUSE's mldistwatch, but refactored
+	{
+	my( $file ) = @_;
+
+	local $/ = "\n";
+	local $_; # don't mess with the $_ in the map calling this
+
+	return unless open FILE, "<$file";
+
+	my $in_pod = 0;
+	my $version;
+	while( <FILE> )
+		{
+		chomp;
+		$in_pod = /^=(?!cut)/ ? 1 : /^=cut/ ? 0 : $in_pod;
+		next if $in_pod || /^\s*#/;
+
+		next unless /([\$*])(([\w\:\']*)\bVERSION)\b.*\=/;
+		my( $sigil, $var ) = ( $1, $2 );
+
+		$version = _eval_version( $_, $sigil, $var );
+		last;
+		}
+	close FILE;
+
+	return 'undef' unless defined $version;
+
+	return $version;
+	}
+
+sub _eval_version
+	{
+	my( $line, $sigil, $var ) = @_;
+
+        # split package line to hide from PAUSE
+	my $eval = qq{
+		package
+                  ExtUtils::MakeMaker::_version;
+
+		local $sigil$var;
+		\$$var=undef; do {
+			$line
+			}; \$$var
+		};
+
+	my $version = do {
+		local $^W = 0;
+		no strict;
+		eval( $eval );
+		};
+
+	return $version;
+	}
+
+sub _path_to_module
+	{
+	my( $inc, $path ) = @_;
+	return if length $path < length $inc;
+
+	my $module_path = substr( $path, length $inc );
+	$module_path =~ s/\.pm\z//;
+
+	# XXX: this is cheating and doesn't handle everything right
+	my @dirs = grep { ! /\W/ } File::Spec->splitdir( $module_path );
+	shift @dirs;
+
+	my $module_name = join "::", @dirs;
+
+	return $module_name;
+	}
+
+1;
+
+=back
+
+=head1 EXIT VALUES
+
+The script exits with zero if it thinks that everything worked, or a
+positive number if it thinks that something failed. Note, however, that
+in some cases it has to divine a failure by the output of things it does
+not control. For now, the exit codes are vague:
+
+	1	An unknown error
+
+	2	The was an external problem
+
+	4	There was an internal problem with the script
+
+	8	A module failed to install
+
+=head1 TO DO
+
+* There is initial support for Log4perl if it is available, but I
+haven't gone through everything to make the NullLogger work out
+correctly if Log4perl is not installed.
+
+* When I capture CPAN.pm output, I need to check for errors and
+report them to the user.
+
+* Warnings switch
+
+* Check then exit
+
+* no test option
+
+=head1 BUGS
+
+* none noted
+
+=head1 SEE ALSO
+
+L<CPAN>, L<App::cpanminus>
+
+=head1 SOURCE AVAILABILITY
+
+This code is in Github in the CPAN.pm repository:
+
+	https://github.com/andk/cpanpm
+
+The source used to be tracked separately in another GitHub repo,
+but the canonical source is now in the above repo.
+
+=head1 CREDITS
+
+Japheth Cleaver added the bits to allow a forced install (C<-f>).
+
+Jim Brandt suggest and provided the initial implementation for the
+up-to-date and Changes features.
+
+Adam Kennedy pointed out that C<exit()> causes problems on Windows
+where this script ends up with a .bat extension
+
+David Golden helps integrate this into the C<CPAN.pm> repos.
+
+=head1 AUTHOR
+
+brian d foy, C<< <bdfoy@cpan.org> >>
+
+=head1 COPYRIGHT
+
+Copyright (c) 2001-2014, brian d foy, All Rights Reserved.
+
+You may redistribute this under the same terms as Perl itself.
+
+=cut
diff --git a/lib/5.24.1/App/Prove.pm b/lib/5.24.1/App/Prove.pm
new file mode 100644
index 00000000..32eb59c2
--- /dev/null
+++ b/lib/5.24.1/App/Prove.pm
@@ -0,0 +1,827 @@
+package App::Prove;
+
+use strict;
+use warnings;
+
+use TAP::Harness::Env;
+use Text::ParseWords qw(shellwords);
+use File::Spec;
+use Getopt::Long;
+use App::Prove::State;
+use Carp;
+
+use base 'TAP::Object';
+
+=head1 NAME
+
+App::Prove - Implements the C<prove> command.
+
+=head1 VERSION
+
+Version 3.36
+
+=cut
+
+our $VERSION = '3.36_01';
+
+=head1 DESCRIPTION
+
+L<Test::Harness> provides a command, C<prove>, which runs a TAP based
+test suite and prints a report. The C<prove> command is a minimal
+wrapper around an instance of this module.
+
+=head1 SYNOPSIS
+
+    use App::Prove;
+
+    my $app = App::Prove->new;
+    $app->process_args(@ARGV);
+    $app->run;
+
+=cut
+
+use constant IS_WIN32 => ( $^O =~ /^(MS)?Win32$/ );
+use constant IS_VMS => $^O eq 'VMS';
+use constant IS_UNIXY => !( IS_VMS || IS_WIN32 );
+
+use constant STATE_FILE => IS_UNIXY ? '.prove'   : '_prove';
+use constant RC_FILE    => IS_UNIXY ? '.proverc' : '_proverc';
+
+use constant PLUGINS => 'App::Prove::Plugin';
+
+my @ATTR;
+
+BEGIN {
+    @ATTR = qw(
+      archive argv blib show_count color directives exec failures comments
+      formatter harness includes modules plugins jobs lib merge parse quiet
+      really_quiet recurse backwards shuffle taint_fail taint_warn timer
+      verbose warnings_fail warnings_warn show_help show_man show_version
+      state_class test_args state dry extensions ignore_exit rules state_manager
+      normalize sources tapversion trap
+    );
+    __PACKAGE__->mk_methods(@ATTR);
+}
+
+=head1 METHODS
+
+=head2 Class Methods
+
+=head3 C<new>
+
+Create a new C<App::Prove>. Optionally a hash ref of attribute
+initializers may be passed.
+
+=cut
+
+# new() implementation supplied by TAP::Object
+
+sub _initialize {
+    my $self = shift;
+    my $args = shift || {};
+
+    my @is_array = qw(
+      argv rc_opts includes modules state plugins rules sources
+    );
+
+    # setup defaults:
+    for my $key (@is_array) {
+        $self->{$key} = [];
+    }
+
+    for my $attr (@ATTR) {
+        if ( exists $args->{$attr} ) {
+
+            # TODO: Some validation here
+            $self->{$attr} = $args->{$attr};
+        }
+    }
+
+    $self->state_class('App::Prove::State');
+    return $self;
+}
+
+=head3 C<state_class>
+
+Getter/setter for the name of the class used for maintaining state.  This
+class should either subclass from C<App::Prove::State> or provide an identical
+interface.
+
+=head3 C<state_manager>
+
+Getter/setter for the instance of the C<state_class>.
+
+=cut
+
+=head3 C<add_rc_file>
+
+    $prove->add_rc_file('myproj/.proverc');
+
+Called before C<process_args> to prepend the contents of an rc file to
+the options.
+
+=cut
+
+sub add_rc_file {
+    my ( $self, $rc_file ) = @_;
+
+    local *RC;
+    open RC, "<$rc_file" or croak "Can't read $rc_file ($!)";
+    while ( defined( my $line = <RC> ) ) {
+        push @{ $self->{rc_opts} },
+          grep { defined and not /^#/ }
+          $line =~ m{ ' ([^']*) ' | " ([^"]*) " | (\#.*) | (\S+) }xg;
+    }
+    close RC;
+}
+
+=head3 C<process_args>
+
+    $prove->process_args(@args);
+
+Processes the command-line arguments. Attributes will be set
+appropriately. Any filenames may be found in the C<argv> attribute.
+
+Dies on invalid arguments.
+
+=cut
+
+sub process_args {
+    my $self = shift;
+
+    my @rc = RC_FILE;
+    unshift @rc, glob '~/' . RC_FILE if IS_UNIXY;
+
+    # Preprocess meta-args.
+    my @args;
+    while ( defined( my $arg = shift ) ) {
+        if ( $arg eq '--norc' ) {
+            @rc = ();
+        }
+        elsif ( $arg eq '--rc' ) {
+            defined( my $rc = shift )
+              or croak "Missing argument to --rc";
+            push @rc, $rc;
+        }
+        elsif ( $arg =~ m{^--rc=(.+)$} ) {
+            push @rc, $1;
+        }
+        else {
+            push @args, $arg;
+        }
+    }
+
+    # Everything after the arisdottle '::' gets passed as args to
+    # test programs.
+    if ( defined( my $stop_at = _first_pos( '::', @args ) ) ) {
+        my @test_args = splice @args, $stop_at;
+        shift @test_args;
+        $self->{test_args} = \@test_args;
+    }
+
+    # Grab options from RC files
+    $self->add_rc_file($_) for grep -f, @rc;
+    unshift @args, @{ $self->{rc_opts} };
+
+    if ( my @bad = map {"-$_"} grep {/^-(man|help)$/} @args ) {
+        die "Long options should be written with two dashes: ",
+          join( ', ', @bad ), "\n";
+    }
+
+    # And finally...
+
+    {
+        local @ARGV = @args;
+        Getopt::Long::Configure(qw(no_ignore_case bundling pass_through));
+
+        # Don't add coderefs to GetOptions
+        GetOptions(
+            'v|verbose'  => \$self->{verbose},
+            'f|failures' => \$self->{failures},
+            'o|comments' => \$self->{comments},
+            'l|lib'      => \$self->{lib},
+            'b|blib'     => \$self->{blib},
+            's|shuffle'  => \$self->{shuffle},
+            'color!'     => \$self->{color},
+            'colour!'    => \$self->{color},
+            'count!'     => \$self->{show_count},
+            'c'          => \$self->{color},
+            'D|dry'      => \$self->{dry},
+            'ext=s@'     => sub {
+                my ( $opt, $val ) = @_;
+
+                # Workaround for Getopt::Long 2.25 handling of
+                # multivalue options
+                push @{ $self->{extensions} ||= [] }, $val;
+            },
+            'harness=s'    => \$self->{harness},
+            'ignore-exit'  => \$self->{ignore_exit},
+            'source=s@'    => $self->{sources},
+            'formatter=s'  => \$self->{formatter},
+            'r|recurse'    => \$self->{recurse},
+            'reverse'      => \$self->{backwards},
+            'p|parse'      => \$self->{parse},
+            'q|quiet'      => \$self->{quiet},
+            'Q|QUIET'      => \$self->{really_quiet},
+            'e|exec=s'     => \$self->{exec},
+            'm|merge'      => \$self->{merge},
+            'I=s@'         => $self->{includes},
+            'M=s@'         => $self->{modules},
+            'P=s@'         => $self->{plugins},
+            'state=s@'     => $self->{state},
+            'directives'   => \$self->{directives},
+            'h|help|?'     => \$self->{show_help},
+            'H|man'        => \$self->{show_man},
+            'V|version'    => \$self->{show_version},
+            'a|archive=s'  => \$self->{archive},
+            'j|jobs=i'     => \$self->{jobs},
+            'timer'        => \$self->{timer},
+            'T'            => \$self->{taint_fail},
+            't'            => \$self->{taint_warn},
+            'W'            => \$self->{warnings_fail},
+            'w'            => \$self->{warnings_warn},
+            'normalize'    => \$self->{normalize},
+            'rules=s@'     => $self->{rules},
+            'tapversion=s' => \$self->{tapversion},
+            'trap'         => \$self->{trap},
+        ) or croak('Unable to continue');
+
+        # Stash the remainder of argv for later
+        $self->{argv} = [@ARGV];
+    }
+
+    return;
+}
+
+sub _first_pos {
+    my $want = shift;
+    for ( 0 .. $#_ ) {
+        return $_ if $_[$_] eq $want;
+    }
+    return;
+}
+
+sub _help {
+    my ( $self, $verbosity ) = @_;
+
+    eval('use Pod::Usage 1.12 ()');
+    if ( my $err = $@ ) {
+        die 'Please install Pod::Usage for the --help option '
+          . '(or try `perldoc prove`.)'
+          . "\n ($@)";
+    }
+
+    Pod::Usage::pod2usage( { -verbose => $verbosity } );
+
+    return;
+}
+
+sub _color_default {
+    my $self = shift;
+
+    return -t STDOUT && !$ENV{HARNESS_NOTTY} && !IS_WIN32;
+}
+
+sub _get_args {
+    my $self = shift;
+
+    my %args;
+
+    $args{trap} = 1 if $self->trap;
+
+    if ( defined $self->color ? $self->color : $self->_color_default ) {
+        $args{color} = 1;
+    }
+    if ( !defined $self->show_count ) {
+        $args{show_count} = 1;
+    }
+    else {
+        $args{show_count} = $self->show_count;
+    }
+
+    if ( $self->archive ) {
+        $self->require_harness( archive => 'TAP::Harness::Archive' );
+        $args{archive} = $self->archive;
+    }
+
+    if ( my $jobs = $self->jobs ) {
+        $args{jobs} = $jobs;
+    }
+
+    if ( my $harness_opt = $self->harness ) {
+        $self->require_harness( harness => $harness_opt );
+    }
+
+    if ( my $formatter = $self->formatter ) {
+        $args{formatter_class} = $formatter;
+    }
+
+    for my $handler ( @{ $self->sources } ) {
+        my ( $name, $config ) = $self->_parse_source($handler);
+        $args{sources}->{$name} = $config;
+    }
+
+    if ( $self->ignore_exit ) {
+        $args{ignore_exit} = 1;
+    }
+
+    if ( $self->taint_fail && $self->taint_warn ) {
+        die '-t and -T are mutually exclusive';
+    }
+
+    if ( $self->warnings_fail && $self->warnings_warn ) {
+        die '-w and -W are mutually exclusive';
+    }
+
+    for my $a (qw( lib switches )) {
+        my $method = "_get_$a";
+        my $val    = $self->$method();
+        $args{$a} = $val if defined $val;
+    }
+
+    # Handle verbose, quiet, really_quiet flags
+    my %verb_map = ( verbose => 1, quiet => -1, really_quiet => -2, );
+
+    my @verb_adj = grep {$_} map { $self->$_() ? $verb_map{$_} : 0 }
+      keys %verb_map;
+
+    die "Only one of verbose, quiet or really_quiet should be specified\n"
+      if @verb_adj > 1;
+
+    $args{verbosity} = shift @verb_adj || 0;
+
+    for my $a (qw( merge failures comments timer directives normalize )) {
+        $args{$a} = 1 if $self->$a();
+    }
+
+    $args{errors} = 1 if $self->parse;
+
+    # defined but zero-length exec runs test files as binaries
+    $args{exec} = [ split( /\s+/, $self->exec ) ]
+      if ( defined( $self->exec ) );
+
+    $args{version} = $self->tapversion if defined( $self->tapversion );
+
+    if ( defined( my $test_args = $self->test_args ) ) {
+        $args{test_args} = $test_args;
+    }
+
+    if ( @{ $self->rules } ) {
+        my @rules;
+        for ( @{ $self->rules } ) {
+            if (/^par=(.*)/) {
+                push @rules, $1;
+            }
+            elsif (/^seq=(.*)/) {
+                push @rules, { seq => $1 };
+            }
+        }
+        $args{rules} = { par => [@rules] };
+    }
+    $args{harness_class} = $self->{harness_class} if $self->{harness_class};
+
+    return \%args;
+}
+
+sub _find_module {
+    my ( $self, $class, @search ) = @_;
+
+    croak "Bad module name $class"
+      unless $class =~ /^ \w+ (?: :: \w+ ) *$/x;
+
+    for my $pfx (@search) {
+        my $name = join( '::', $pfx, $class );
+        eval "require $name";
+        return $name unless $@;
+    }
+
+    eval "require $class";
+    return $class unless $@;
+    return;
+}
+
+sub _load_extension {
+    my ( $self, $name, @search ) = @_;
+
+    my @args = ();
+    if ( $name =~ /^(.*?)=(.*)/ ) {
+        $name = $1;
+        @args = split( /,/, $2 );
+    }
+
+    if ( my $class = $self->_find_module( $name, @search ) ) {
+        $class->import(@args);
+        if ( $class->can('load') ) {
+            $class->load( { app_prove => $self, args => [@args] } );
+        }
+    }
+    else {
+        croak "Can't load module $name";
+    }
+}
+
+sub _load_extensions {
+    my ( $self, $ext, @search ) = @_;
+    $self->_load_extension( $_, @search ) for @$ext;
+}
+
+sub _parse_source {
+    my ( $self, $handler ) = @_;
+
+    # Load any options.
+    ( my $opt_name = lc $handler ) =~ s/::/-/g;
+    local @ARGV = @{ $self->{argv} };
+    my %config;
+    Getopt::Long::GetOptions(
+        "$opt_name-option=s%" => sub {
+            my ( $name, $k, $v ) = @_;
+            if ( $v =~ /(?<!\\)=/ ) {
+
+                # It's a hash option.
+                croak "Option $name must be consistently used as a hash"
+                  if exists $config{$k} && ref $config{$k} ne 'HASH';
+                $config{$k} ||= {};
+                my ( $hk, $hv ) = split /(?<!\\)=/, $v, 2;
+                $config{$k}{$hk} = $hv;
+            }
+            else {
+                $v =~ s/\\=/=/g;
+                if ( exists $config{$k} ) {
+                    $config{$k} = [ $config{$k} ]
+                      unless ref $config{$k} eq 'ARRAY';
+                    push @{ $config{$k} } => $v;
+                }
+                else {
+                    $config{$k} = $v;
+                }
+            }
+        }
+    );
+    $self->{argv} = \@ARGV;
+    return ( $handler, \%config );
+}
+
+=head3 C<run>
+
+Perform whatever actions the command line args specified. The C<prove>
+command line tool consists of the following code:
+
+    use App::Prove;
+
+    my $app = App::Prove->new;
+    $app->process_args(@ARGV);
+    exit( $app->run ? 0 : 1 );  # if you need the exit code
+
+=cut
+
+sub run {
+    my $self = shift;
+
+    unless ( $self->state_manager ) {
+        $self->state_manager(
+            $self->state_class->new( { store => STATE_FILE } ) );
+    }
+
+    if ( $self->show_help ) {
+        $self->_help(1);
+    }
+    elsif ( $self->show_man ) {
+        $self->_help(2);
+    }
+    elsif ( $self->show_version ) {
+        $self->print_version;
+    }
+    elsif ( $self->dry ) {
+        print "$_\n" for $self->_get_tests;
+    }
+    else {
+
+        $self->_load_extensions( $self->modules );
+        $self->_load_extensions( $self->plugins, PLUGINS );
+
+        local $ENV{TEST_VERBOSE} = 1 if $self->verbose;
+
+        return $self->_runtests( $self->_get_args, $self->_get_tests );
+    }
+
+    return 1;
+}
+
+sub _get_tests {
+    my $self = shift;
+
+    my $state = $self->state_manager;
+    my $ext   = $self->extensions;
+    $state->extensions($ext) if defined $ext;
+    if ( defined( my $state_switch = $self->state ) ) {
+        $state->apply_switch(@$state_switch);
+    }
+
+    my @tests = $state->get_tests( $self->recurse, @{ $self->argv } );
+
+    $self->_shuffle(@tests) if $self->shuffle;
+    @tests = reverse @tests if $self->backwards;
+
+    return @tests;
+}
+
+sub _runtests {
+    my ( $self, $args, @tests ) = @_;
+    my $harness = TAP::Harness::Env->create($args);
+
+    my $state = $self->state_manager;
+
+    $harness->callback(
+        after_test => sub {
+            $state->observe_test(@_);
+        }
+    );
+
+    $harness->callback(
+        after_runtests => sub {
+            $state->commit(@_);
+        }
+    );
+
+    my $aggregator = $harness->runtests(@tests);
+
+    return !$aggregator->has_errors;
+}
+
+sub _get_switches {
+    my $self = shift;
+    my @switches;
+
+    # notes that -T or -t must be at the front of the switches!
+    if ( $self->taint_fail ) {
+        push @switches, '-T';
+    }
+    elsif ( $self->taint_warn ) {
+        push @switches, '-t';
+    }
+    if ( $self->warnings_fail ) {
+        push @switches, '-W';
+    }
+    elsif ( $self->warnings_warn ) {
+        push @switches, '-w';
+    }
+
+    return @switches ? \@switches : ();
+}
+
+sub _get_lib {
+    my $self = shift;
+    my @libs;
+    if ( $self->lib ) {
+        push @libs, 'lib';
+    }
+    if ( $self->blib ) {
+        push @libs, 'blib/lib', 'blib/arch';
+    }
+    if ( @{ $self->includes } ) {
+        push @libs, @{ $self->includes };
+    }
+
+    #24926
+    @libs = map { File::Spec->rel2abs($_) } @libs;
+
+    # Huh?
+    return @libs ? \@libs : ();
+}
+
+sub _shuffle {
+    my $self = shift;
+
+    # Fisher-Yates shuffle
+    my $i = @_;
+    while ($i) {
+        my $j = rand $i--;
+        @_[ $i, $j ] = @_[ $j, $i ];
+    }
+    return;
+}
+
+=head3 C<require_harness>
+
+Load a harness replacement class.
+
+  $prove->require_harness($for => $class_name);
+
+=cut
+
+sub require_harness {
+    my ( $self, $for, $class ) = @_;
+
+    my ($class_name) = $class =~ /^(\w+(?:::\w+)*)/;
+
+    # Emulate Perl's -MModule=arg1,arg2 behaviour
+    $class =~ s!^(\w+(?:::\w+)*)=(.*)$!$1 split(/,/,q{$2})!;
+
+    eval("use $class;");
+    die "$class_name is required to use the --$for feature: $@" if $@;
+
+    $self->{harness_class} = $class_name;
+
+    return;
+}
+
+=head3 C<print_version>
+
+Display the version numbers of the loaded L<TAP::Harness> and the
+current Perl.
+
+=cut
+
+sub print_version {
+    my $self = shift;
+    require TAP::Harness;
+    printf(
+        "TAP::Harness v%s and Perl v%vd\n",
+        $TAP::Harness::VERSION, $^V
+    );
+
+    return;
+}
+
+1;
+
+# vim:ts=4:sw=4:et:sta
+
+__END__
+
+=head2 Attributes
+
+After command line parsing the following attributes reflect the values
+of the corresponding command line switches. They may be altered before
+calling C<run>.
+
+=over
+
+=item C<archive>
+
+=item C<argv>
+
+=item C<backwards>
+
+=item C<blib>
+
+=item C<color>
+
+=item C<directives>
+
+=item C<dry>
+
+=item C<exec>
+
+=item C<extensions>
+
+=item C<failures>
+
+=item C<comments>
+
+=item C<formatter>
+
+=item C<harness>
+
+=item C<ignore_exit>
+
+=item C<includes>
+
+=item C<jobs>
+
+=item C<lib>
+
+=item C<merge>
+
+=item C<modules>
+
+=item C<parse>
+
+=item C<plugins>
+
+=item C<quiet>
+
+=item C<really_quiet>
+
+=item C<recurse>
+
+=item C<rules>
+
+=item C<show_count>
+
+=item C<show_help>
+
+=item C<show_man>
+
+=item C<show_version>
+
+=item C<shuffle>
+
+=item C<state>
+
+=item C<state_class>
+
+=item C<taint_fail>
+
+=item C<taint_warn>
+
+=item C<test_args>
+
+=item C<timer>
+
+=item C<verbose>
+
+=item C<warnings_fail>
+
+=item C<warnings_warn>
+
+=item C<tapversion>
+
+=item C<trap>
+
+=back
+
+=head1 PLUGINS
+
+C<App::Prove> provides support for 3rd-party plugins.  These are currently
+loaded at run-time, I<after> arguments have been parsed (so you can not
+change the way arguments are processed, sorry), typically with the
+C<< -PI<plugin> >> switch, eg:
+
+  prove -PMyPlugin
+
+This will search for a module named C<App::Prove::Plugin::MyPlugin>, or failing
+that, C<MyPlugin>.  If the plugin can't be found, C<prove> will complain & exit.
+
+You can pass an argument to your plugin by appending an C<=> after the plugin
+name, eg C<-PMyPlugin=foo>.  You can pass multiple arguments using commas:
+
+  prove -PMyPlugin=foo,bar,baz
+
+These are passed in to your plugin's C<load()> class method (if it has one),
+along with a reference to the C<App::Prove> object that is invoking your plugin:
+
+  sub load {
+      my ($class, $p) = @_;
+
+      my @args = @{ $p->{args} };
+      # @args will contain ( 'foo', 'bar', 'baz' )
+      $p->{app_prove}->do_something;
+      ...
+  }
+
+Note that the user's arguments are also passed to your plugin's C<import()>
+function as a list, eg:
+
+  sub import {
+      my ($class, @args) = @_;
+      # @args will contain ( 'foo', 'bar', 'baz' )
+      ...
+  }
+
+This is for backwards compatibility, and may be deprecated in the future.
+
+=head2 Sample Plugin
+
+Here's a sample plugin, for your reference:
+
+  package App::Prove::Plugin::Foo;
+
+  # Sample plugin, try running with:
+  # prove -PFoo=bar -r -j3
+  # prove -PFoo -Q
+  # prove -PFoo=bar,My::Formatter
+
+  use strict;
+  use warnings;
+
+  sub load {
+      my ($class, $p) = @_;
+      my @args = @{ $p->{args} };
+      my $app  = $p->{app_prove};
+
+      print "loading plugin: $class, args: ", join(', ', @args ), "\n";
+
+      # turn on verbosity
+      $app->verbose( 1 );
+
+      # set the formatter?
+      $app->formatter( $args[1] ) if @args > 1;
+
+      # print some of App::Prove's state:
+      for my $attr (qw( jobs quiet really_quiet recurse verbose )) {
+          my $val = $app->$attr;
+          $val    = 'undef' unless defined( $val );
+          print "$attr: $val\n";
+      }
+
+      return 1;
+  }
+
+  1;
+
+=head1 SEE ALSO
+
+L<prove>, L<TAP::Harness>
+
+=cut
diff --git a/lib/5.24.1/App/Prove/State.pm b/lib/5.24.1/App/Prove/State.pm
new file mode 100644
index 00000000..e352fb3f
--- /dev/null
+++ b/lib/5.24.1/App/Prove/State.pm
@@ -0,0 +1,548 @@
+package App::Prove::State;
+
+use strict;
+use warnings;
+
+use File::Find;
+use File::Spec;
+use Carp;
+
+use App::Prove::State::Result;
+use TAP::Parser::YAMLish::Reader ();
+use TAP::Parser::YAMLish::Writer ();
+use base 'TAP::Base';
+
+BEGIN {
+    __PACKAGE__->mk_methods('result_class');
+}
+
+use constant IS_WIN32 => ( $^O =~ /^(MS)?Win32$/ );
+use constant NEED_GLOB => IS_WIN32;
+
+=head1 NAME
+
+App::Prove::State - State storage for the C<prove> command.
+
+=head1 VERSION
+
+Version 3.36
+
+=cut
+
+our $VERSION = '3.36_01';
+
+=head1 DESCRIPTION
+
+The C<prove> command supports a C<--state> option that instructs it to
+store persistent state across runs. This module implements that state
+and the operations that may be performed on it.
+
+=head1 SYNOPSIS
+
+    # Re-run failed tests
+    $ prove --state=failed,save -rbv
+
+=cut
+
+=head1 METHODS
+
+=head2 Class Methods
+
+=head3 C<new>
+
+Accepts a hashref with the following key/value pairs:
+
+=over 4
+
+=item * C<store>
+
+The filename of the data store holding the data that App::Prove::State reads.
+
+=item * C<extensions> (optional)
+
+The test name extensions.  Defaults to C<.t>.
+
+=item * C<result_class> (optional)
+
+The name of the C<result_class>.  Defaults to C<App::Prove::State::Result>.
+
+=back
+
+=cut
+
+# override TAP::Base::new:
+sub new {
+    my $class = shift;
+    my %args = %{ shift || {} };
+
+    my $self = bless {
+        select     => [],
+        seq        => 1,
+        store      => delete $args{store},
+        extensions => ( delete $args{extensions} || ['.t'] ),
+        result_class =>
+          ( delete $args{result_class} || 'App::Prove::State::Result' ),
+    }, $class;
+
+    $self->{_} = $self->result_class->new(
+        {   tests      => {},
+            generation => 1,
+        }
+    );
+    my $store = $self->{store};
+    $self->load($store)
+      if defined $store && -f $store;
+
+    return $self;
+}
+
+=head2 C<result_class>
+
+Getter/setter for the name of the class used for tracking test results.  This
+class should either subclass from C<App::Prove::State::Result> or provide an
+identical interface.
+
+=cut
+
+=head2 C<extensions>
+
+Get or set the list of extensions that files must have in order to be
+considered tests. Defaults to ['.t'].
+
+=cut
+
+sub extensions {
+    my $self = shift;
+    $self->{extensions} = shift if @_;
+    return $self->{extensions};
+}
+
+=head2 C<results>
+
+Get the results of the last test run.  Returns a C<result_class()> instance.
+
+=cut
+
+sub results {
+    my $self = shift;
+    $self->{_} || $self->result_class->new;
+}
+
+=head2 C<commit>
+
+Save the test results. Should be called after all tests have run.
+
+=cut
+
+sub commit {
+    my $self = shift;
+    if ( $self->{should_save} ) {
+        $self->save;
+    }
+}
+
+=head2 Instance Methods
+
+=head3 C<apply_switch>
+
+ $self->apply_switch('failed,save');
+
+Apply a list of switch options to the state, updating the internal
+object state as a result. Nothing is returned.
+
+Diagnostics:
+    - "Illegal state option: %s"
+
+=over
+
+=item C<last>
+
+Run in the same order as last time
+
+=item C<failed>
+
+Run only the failed tests from last time
+
+=item C<passed>
+
+Run only the passed tests from last time
+
+=item C<all>
+
+Run all tests in normal order
+
+=item C<hot>
+
+Run the tests that most recently failed first
+
+=item C<todo>
+
+Run the tests ordered by number of todos.
+
+=item C<slow>
+
+Run the tests in slowest to fastest order.
+
+=item C<fast>
+
+Run test tests in fastest to slowest order.
+
+=item C<new>
+
+Run the tests in newest to oldest order.
+
+=item C<old>
+
+Run the tests in oldest to newest order.
+
+=item C<save>
+
+Save the state on exit.
+
+=back
+
+=cut
+
+sub apply_switch {
+    my $self = shift;
+    my @opts = @_;
+
+    my $last_gen      = $self->results->generation - 1;
+    my $last_run_time = $self->results->last_run_time;
+    my $now           = $self->get_time;
+
+    my @switches = map { split /,/ } @opts;
+
+    my %handler = (
+        last => sub {
+            $self->_select(
+                limit => shift,
+                where => sub { $_->generation >= $last_gen },
+                order => sub { $_->sequence }
+            );
+        },
+        failed => sub {
+            $self->_select(
+                limit => shift,
+                where => sub { $_->result != 0 },
+                order => sub { -$_->result }
+            );
+        },
+        passed => sub {
+            $self->_select(
+                limit => shift,
+                where => sub { $_->result == 0 }
+            );
+        },
+        all => sub {
+            $self->_select( limit => shift );
+        },
+        todo => sub {
+            $self->_select(
+                limit => shift,
+                where => sub { $_->num_todo != 0 },
+                order => sub { -$_->num_todo; }
+            );
+        },
+        hot => sub {
+            $self->_select(
+                limit => shift,
+                where => sub { defined $_->last_fail_time },
+                order => sub { $now - $_->last_fail_time }
+            );
+        },
+        slow => sub {
+            $self->_select(
+                limit => shift,
+                order => sub { -$_->elapsed }
+            );
+        },
+        fast => sub {
+            $self->_select(
+                limit => shift,
+                order => sub { $_->elapsed }
+            );
+        },
+        new => sub {
+            $self->_select(
+                limit => shift,
+                order => sub { -$_->mtime }
+            );
+        },
+        old => sub {
+            $self->_select(
+                limit => shift,
+                order => sub { $_->mtime }
+            );
+        },
+        fresh => sub {
+            $self->_select(
+                limit => shift,
+                where => sub { $_->mtime >= $last_run_time }
+            );
+        },
+        save => sub {
+            $self->{should_save}++;
+        },
+        adrian => sub {
+            unshift @switches, qw( hot all save );
+        },
+    );
+
+    while ( defined( my $ele = shift @switches ) ) {
+        my ( $opt, $arg )
+          = ( $ele =~ /^([^:]+):(.*)/ )
+          ? ( $1, $2 )
+          : ( $ele, undef );
+        my $code = $handler{$opt}
+          || croak "Illegal state option: $opt";
+        $code->($arg);
+    }
+    return;
+}
+
+sub _select {
+    my ( $self, %spec ) = @_;
+    push @{ $self->{select} }, \%spec;
+}
+
+=head3 C<get_tests>
+
+Given a list of args get the names of tests that should run
+
+=cut
+
+sub get_tests {
+    my $self    = shift;
+    my $recurse = shift;
+    my @argv    = @_;
+    my %seen;
+
+    my @selected = $self->_query;
+
+    unless ( @argv || @{ $self->{select} } ) {
+        @argv = $recurse ? '.' : 't';
+        croak qq{No tests named and '@argv' directory not found}
+          unless -d $argv[0];
+    }
+
+    push @selected, $self->_get_raw_tests( $recurse, @argv ) if @argv;
+    return grep { !$seen{$_}++ } @selected;
+}
+
+sub _query {
+    my $self = shift;
+    if ( my @sel = @{ $self->{select} } ) {
+        warn "No saved state, selection will be empty\n"
+          unless $self->results->num_tests;
+        return map { $self->_query_clause($_) } @sel;
+    }
+    return;
+}
+
+sub _query_clause {
+    my ( $self, $clause ) = @_;
+    my @got;
+    my $results = $self->results;
+    my $where = $clause->{where} || sub {1};
+
+    # Select
+    for my $name ( $results->test_names ) {
+        next unless -f $name;
+        local $_ = $results->test($name);
+        push @got, $name if $where->();
+    }
+
+    # Sort
+    if ( my $order = $clause->{order} ) {
+        @got = map { $_->[0] }
+          sort {
+                 ( defined $b->[1] <=> defined $a->[1] )
+              || ( ( $a->[1] || 0 ) <=> ( $b->[1] || 0 ) )
+          } map {
+            [   $_,
+                do { local $_ = $results->test($_); $order->() }
+            ]
+          } @got;
+    }
+
+    if ( my $limit = $clause->{limit} ) {
+        @got = splice @got, 0, $limit if @got > $limit;
+    }
+
+    return @got;
+}
+
+sub _get_raw_tests {
+    my $self    = shift;
+    my $recurse = shift;
+    my @argv    = @_;
+    my @tests;
+
+    # Do globbing on Win32.
+    if (NEED_GLOB) {
+        eval "use File::Glob::Windows";    # [49732]
+        @argv = map { glob "$_" } @argv;
+    }
+    my $extensions = $self->{extensions};
+
+    for my $arg (@argv) {
+        if ( '-' eq $arg ) {
+            push @argv => <STDIN>;
+            chomp(@argv);
+            next;
+        }
+
+        push @tests,
+            sort -d $arg
+          ? $recurse
+              ? $self->_expand_dir_recursive( $arg, $extensions )
+              : map { glob( File::Spec->catfile( $arg, "*$_" ) ) }
+              @{$extensions}
+          : $arg;
+    }
+    return @tests;
+}
+
+sub _expand_dir_recursive {
+    my ( $self, $dir, $extensions ) = @_;
+
+    my @tests;
+    my $ext_string = join( '|', map {quotemeta} @{$extensions} );
+
+    find(
+        {   follow      => 1,      #21938
+            follow_skip => 2,
+            wanted      => sub {
+                -f 
+                  && /(?:$ext_string)$/
+                  && push @tests => $File::Find::name;
+              }
+        },
+        $dir
+    );
+    return @tests;
+}
+
+=head3 C<observe_test>
+
+Store the results of a test.
+
+=cut
+
+# Store:
+#     last fail time
+#     last pass time
+#     last run time
+#     most recent result
+#     most recent todos
+#     total failures
+#     total passes
+#     state generation
+#     parser
+
+sub observe_test {
+
+    my ( $self, $test_info, $parser ) = @_;
+    my $name = $test_info->[0];
+    my $fail = scalar( $parser->failed ) + ( $parser->has_problems ? 1 : 0 );
+    my $todo = scalar( $parser->todo );
+    my $start_time = $parser->start_time;
+    my $end_time   = $parser->end_time,
+
+      my $test = $self->results->test($name);
+
+    $test->sequence( $self->{seq}++ );
+    $test->generation( $self->results->generation );
+
+    $test->run_time($end_time);
+    $test->result($fail);
+    $test->num_todo($todo);
+    $test->elapsed( $end_time - $start_time );
+
+    $test->parser($parser);
+
+    if ($fail) {
+        $test->total_failures( $test->total_failures + 1 );
+        $test->last_fail_time($end_time);
+    }
+    else {
+        $test->total_passes( $test->total_passes + 1 );
+        $test->last_pass_time($end_time);
+    }
+}
+
+=head3 C<save>
+
+Write the state to a file.
+
+=cut
+
+sub save {
+    my ($self) = @_;
+
+    my $store = $self->{store} or return;
+    $self->results->last_run_time( $self->get_time );
+
+    my $writer = TAP::Parser::YAMLish::Writer->new;
+    local *FH;
+    open FH, ">$store" or croak "Can't write $store ($!)";
+    $writer->write( $self->results->raw, \*FH );
+    close FH;
+}
+
+=head3 C<load>
+
+Load the state from a file
+
+=cut
+
+sub load {
+    my ( $self, $name ) = @_;
+    my $reader = TAP::Parser::YAMLish::Reader->new;
+    local *FH;
+    open FH, "<$name" or croak "Can't read $name ($!)";
+
+    # XXX this is temporary
+    $self->{_} = $self->result_class->new(
+        $reader->read(
+            sub {
+                my $line = <FH>;
+                defined $line && chomp $line;
+                return $line;
+            }
+        )
+    );
+
+    # $writer->write( $self->{tests} || {}, \*FH );
+    close FH;
+    $self->_regen_seq;
+    $self->_prune_and_stamp;
+    $self->results->generation( $self->results->generation + 1 );
+}
+
+sub _prune_and_stamp {
+    my $self = shift;
+
+    my $results = $self->results;
+    my @tests   = $self->results->tests;
+    for my $test (@tests) {
+        my $name = $test->name;
+        if ( my @stat = stat $name ) {
+            $test->mtime( $stat[9] );
+        }
+        else {
+            $results->remove($name);
+        }
+    }
+}
+
+sub _regen_seq {
+    my $self = shift;
+    for my $test ( $self->results->tests ) {
+        $self->{seq} = $test->sequence + 1
+          if defined $test->sequence && $test->sequence >= $self->{seq};
+    }
+}
+
+1;
diff --git a/lib/5.24.1/App/Prove/State/Result.pm b/lib/5.24.1/App/Prove/State/Result.pm
new file mode 100644
index 00000000..931e52b1
--- /dev/null
+++ b/lib/5.24.1/App/Prove/State/Result.pm
@@ -0,0 +1,233 @@
+package App::Prove::State::Result;
+
+use strict;
+use warnings;
+use Carp 'croak';
+
+use App::Prove::State::Result::Test;
+
+use constant STATE_VERSION => 1;
+
+=head1 NAME
+
+App::Prove::State::Result - Individual test suite results.
+
+=head1 VERSION
+
+Version 3.36
+
+=cut
+
+our $VERSION = '3.36_01';
+
+=head1 DESCRIPTION
+
+The C<prove> command supports a C<--state> option that instructs it to
+store persistent state across runs. This module encapsulates the results for a
+single test suite run.
+
+=head1 SYNOPSIS
+
+    # Re-run failed tests
+    $ prove --state=failed,save -rbv
+
+=cut
+
+=head1 METHODS
+
+=head2 Class Methods
+
+=head3 C<new>
+
+    my $result = App::Prove::State::Result->new({
+        generation => $generation,
+        tests      => \%tests,
+    });
+
+Returns a new C<App::Prove::State::Result> instance.
+
+=cut
+
+sub new {
+    my ( $class, $arg_for ) = @_;
+    $arg_for ||= {};
+    my %instance_data = %$arg_for;    # shallow copy
+    $instance_data{version} = $class->state_version;
+    my $tests = delete $instance_data{tests} || {};
+    my $self = bless \%instance_data => $class;
+    $self->_initialize($tests);
+    return $self;
+}
+
+sub _initialize {
+    my ( $self, $tests ) = @_;
+    my %tests;
+    while ( my ( $name, $test ) = each %$tests ) {
+        $tests{$name} = $self->test_class->new(
+            {   %$test,
+                name => $name
+            }
+        );
+    }
+    $self->tests( \%tests );
+    return $self;
+}
+
+=head2 C<state_version>
+
+Returns the current version of state storage.
+
+=cut
+
+sub state_version {STATE_VERSION}
+
+=head2 C<test_class>
+
+Returns the name of the class used for tracking individual tests.  This class
+should either subclass from C<App::Prove::State::Result::Test> or provide an
+identical interface.
+
+=cut
+
+sub test_class {
+    return 'App::Prove::State::Result::Test';
+}
+
+my %methods = (
+    generation    => { method => 'generation',    default => 0 },
+    last_run_time => { method => 'last_run_time', default => undef },
+);
+
+while ( my ( $key, $description ) = each %methods ) {
+    my $default = $description->{default};
+    no strict 'refs';
+    *{ $description->{method} } = sub {
+        my $self = shift;
+        if (@_) {
+            $self->{$key} = shift;
+            return $self;
+        }
+        return $self->{$key} || $default;
+    };
+}
+
+=head3 C<generation>
+
+Getter/setter for the "generation" of the test suite run. The first
+generation is 1 (one) and subsequent generations are 2, 3, etc.
+
+=head3 C<last_run_time>
+
+Getter/setter for the time of the test suite run.
+
+=head3 C<tests>
+
+Returns the tests for a given generation. This is a hashref or a hash,
+depending on context called. The keys to the hash are the individual
+test names and the value is a hashref with various interesting values.
+Each k/v pair might resemble something like this:
+
+ 't/foo.t' => {
+    elapsed        => '0.0428488254547119',
+    gen            => '7',
+    last_pass_time => '1219328376.07815',
+    last_result    => '0',
+    last_run_time  => '1219328376.07815',
+    last_todo      => '0',
+    mtime          => '1191708862',
+    seq            => '192',
+    total_passes   => '6',
+  }
+
+=cut
+
+sub tests {
+    my $self = shift;
+    if (@_) {
+        $self->{tests} = shift;
+        return $self;
+    }
+    my %tests = %{ $self->{tests} };
+    my @tests = sort { $a->sequence <=> $b->sequence } values %tests;
+    return wantarray ? @tests : \@tests;
+}
+
+=head3 C<test>
+
+ my $test = $result->test('t/customer/create.t');
+
+Returns an individual C<App::Prove::State::Result::Test> instance for the
+given test name (usually the filename).  Will return a new
+C<App::Prove::State::Result::Test> instance if the name is not found.
+
+=cut
+
+sub test {
+    my ( $self, $name ) = @_;
+    croak("test() requires a test name") unless defined $name;
+
+    my $tests = $self->{tests} ||= {};
+    if ( my $test = $tests->{$name} ) {
+        return $test;
+    }
+    else {
+        my $test = $self->test_class->new( { name => $name } );
+        $self->{tests}->{$name} = $test;
+        return $test;
+    }
+}
+
+=head3 C<test_names>
+
+Returns an list of test names, sorted by run order.
+
+=cut
+
+sub test_names {
+    my $self = shift;
+    return map { $_->name } $self->tests;
+}
+
+=head3 C<remove>
+
+ $result->remove($test_name);            # remove the test
+ my $test = $result->test($test_name);   # fatal error
+
+Removes a given test from results.  This is a no-op if the test name is not
+found.
+
+=cut
+
+sub remove {
+    my ( $self, $name ) = @_;
+    delete $self->{tests}->{$name};
+    return $self;
+}
+
+=head3 C<num_tests>
+
+Returns the number of tests for a given test suite result.
+
+=cut
+
+sub num_tests { keys %{ shift->{tests} } }
+
+=head3 C<raw>
+
+Returns a hashref of raw results, suitable for serialization by YAML.
+
+=cut
+
+sub raw {
+    my $self = shift;
+    my %raw  = %$self;
+
+    my %tests;
+    for my $test ( $self->tests ) {
+        $tests{ $test->name } = $test->raw;
+    }
+    $raw{tests} = \%tests;
+    return \%raw;
+}
+
+1;
diff --git a/lib/5.24.1/App/Prove/State/Result/Test.pm b/lib/5.24.1/App/Prove/State/Result/Test.pm
new file mode 100644
index 00000000..4819ed82
--- /dev/null
+++ b/lib/5.24.1/App/Prove/State/Result/Test.pm
@@ -0,0 +1,152 @@
+package App::Prove::State::Result::Test;
+
+use strict;
+use warnings;
+
+=head1 NAME
+
+App::Prove::State::Result::Test - Individual test results.
+
+=head1 VERSION
+
+Version 3.36
+
+=cut
+
+our $VERSION = '3.36_01';
+
+=head1 DESCRIPTION
+
+The C<prove> command supports a C<--state> option that instructs it to
+store persistent state across runs. This module encapsulates the results for a
+single test.
+
+=head1 SYNOPSIS
+
+    # Re-run failed tests
+    $ prove --state=failed,save -rbv
+
+=cut
+
+my %methods = (
+    name           => { method => 'name' },
+    elapsed        => { method => 'elapsed', default => 0 },
+    gen            => { method => 'generation', default => 1 },
+    last_pass_time => { method => 'last_pass_time', default => undef },
+    last_fail_time => { method => 'last_fail_time', default => undef },
+    last_result    => { method => 'result', default => 0 },
+    last_run_time  => { method => 'run_time', default => undef },
+    last_todo      => { method => 'num_todo', default => 0 },
+    mtime          => { method => 'mtime', default => undef },
+    seq            => { method => 'sequence', default => 1 },
+    total_passes   => { method => 'total_passes', default => 0 },
+    total_failures => { method => 'total_failures', default => 0 },
+    parser         => { method => 'parser' },
+);
+
+while ( my ( $key, $description ) = each %methods ) {
+    my $default = $description->{default};
+    no strict 'refs';
+    *{ $description->{method} } = sub {
+        my $self = shift;
+        if (@_) {
+            $self->{$key} = shift;
+            return $self;
+        }
+        return $self->{$key} || $default;
+    };
+}
+
+=head1 METHODS
+
+=head2 Class Methods
+
+=head3 C<new>
+
+=cut
+
+sub new {
+    my ( $class, $arg_for ) = @_;
+    $arg_for ||= {};
+    bless $arg_for => $class;
+}
+
+=head2 Instance Methods
+
+=head3 C<name>
+
+The name of the test.  Usually a filename.
+
+=head3 C<elapsed>
+
+The total elapsed times the test took to run, in seconds from the epoch..
+
+=head3 C<generation>
+
+The number for the "generation" of the test run.  The first generation is 1
+(one) and subsequent generations are 2, 3, etc.
+
+=head3 C<last_pass_time>
+
+The last time the test program passed, in seconds from the epoch.
+
+Returns C<undef> if the program has never passed.
+
+=head3 C<last_fail_time>
+
+The last time the test suite failed, in seconds from the epoch.
+
+Returns C<undef> if the program has never failed.
+
+=head3 C<mtime>
+
+Returns the mtime of the test, in seconds from the epoch.
+
+=head3 C<raw>
+
+Returns a hashref of raw test data, suitable for serialization by YAML.
+
+=head3 C<result>
+
+Currently, whether or not the test suite passed with no 'problems' (such as
+TODO passed).
+
+=head3 C<run_time>
+
+The total time it took for the test to run, in seconds.  If C<Time::HiRes> is
+available, it will have finer granularity.
+
+=head3 C<num_todo>
+
+The number of tests with TODO directives.
+
+=head3 C<sequence>
+
+The order in which this test was run for the given test suite result. 
+
+=head3 C<total_passes>
+
+The number of times the test has passed.
+
+=head3 C<total_failures>
+
+The number of times the test has failed.
+
+=head3 C<parser>
+
+The underlying parser object.  This is useful if you need the full
+information for the test program.
+
+=cut
+
+sub raw {
+    my $self = shift;
+    my %raw  = %$self;
+
+    # this is backwards-compatibility hack and is not guaranteed.
+    delete $raw{name};
+    delete $raw{parser};
+    return \%raw;
+}
+
+1;
diff --git a/lib/5.24.1/Archive/Tar.pm b/lib/5.24.1/Archive/Tar.pm
new file mode 100644
index 00000000..6a047a32
--- /dev/null
+++ b/lib/5.24.1/Archive/Tar.pm
@@ -0,0 +1,2382 @@
+### the gnu tar specification:
+### http://www.gnu.org/software/tar/manual/tar.html
+###
+### and the pax format spec, which tar derives from:
+### http://www.opengroup.org/onlinepubs/007904975/utilities/pax.html
+
+package Archive::Tar;
+require 5.005_03;
+
+use Cwd;
+use IO::Zlib;
+use IO::File;
+use Carp                qw(carp croak);
+use File::Spec          ();
+use File::Spec::Unix    ();
+use File::Path          ();
+
+use Archive::Tar::File;
+use Archive::Tar::Constant;
+
+require Exporter;
+
+use strict;
+use vars qw[$DEBUG $error $VERSION $WARN $FOLLOW_SYMLINK $CHOWN $CHMOD
+            $DO_NOT_USE_PREFIX $HAS_PERLIO $HAS_IO_STRING $SAME_PERMISSIONS
+            $INSECURE_EXTRACT_MODE $ZERO_PAD_NUMBERS @ISA @EXPORT $RESOLVE_SYMLINK
+         ];
+
+@ISA                    = qw[Exporter];
+@EXPORT                 = qw[ COMPRESS_GZIP COMPRESS_BZIP ];
+$DEBUG                  = 0;
+$WARN                   = 1;
+$FOLLOW_SYMLINK         = 0;
+$VERSION                = "2.04_01";
+$CHOWN                  = 1;
+$CHMOD                  = 1;
+$SAME_PERMISSIONS       = $> == 0 ? 1 : 0;
+$DO_NOT_USE_PREFIX      = 0;
+$INSECURE_EXTRACT_MODE  = 0;
+$ZERO_PAD_NUMBERS       = 0;
+$RESOLVE_SYMLINK        = $ENV{'PERL5_AT_RESOLVE_SYMLINK'} || 'speed';
+
+BEGIN {
+    use Config;
+    $HAS_PERLIO = $Config::Config{useperlio};
+
+    ### try and load IO::String anyway, so you can dynamically
+    ### switch between perlio and IO::String
+    $HAS_IO_STRING = eval {
+        require IO::String;
+        import IO::String;
+        1;
+    } || 0;
+}
+
+=head1 NAME
+
+Archive::Tar - module for manipulations of tar archives
+
+=head1 SYNOPSIS
+
+    use Archive::Tar;
+    my $tar = Archive::Tar->new;
+
+    $tar->read('origin.tgz');
+    $tar->extract();
+
+    $tar->add_files('file/foo.pl', 'docs/README');
+    $tar->add_data('file/baz.txt', 'This is the contents now');
+
+    $tar->rename('oldname', 'new/file/name');
+    $tar->chown('/', 'root');
+    $tar->chown('/', 'root:root');
+    $tar->chmod('/tmp', '1777');
+
+    $tar->write('files.tar');                   # plain tar
+    $tar->write('files.tgz', COMPRESS_GZIP);    # gzip compressed
+    $tar->write('files.tbz', COMPRESS_BZIP);    # bzip2 compressed
+
+=head1 DESCRIPTION
+
+Archive::Tar provides an object oriented mechanism for handling tar
+files.  It provides class methods for quick and easy files handling
+while also allowing for the creation of tar file objects for custom
+manipulation.  If you have the IO::Zlib module installed,
+Archive::Tar will also support compressed or gzipped tar files.
+
+An object of class Archive::Tar represents a .tar(.gz) archive full
+of files and things.
+
+=head1 Object Methods
+
+=head2 Archive::Tar->new( [$file, $compressed] )
+
+Returns a new Tar object. If given any arguments, C<new()> calls the
+C<read()> method automatically, passing on the arguments provided to
+the C<read()> method.
+
+If C<new()> is invoked with arguments and the C<read()> method fails
+for any reason, C<new()> returns undef.
+
+=cut
+
+my $tmpl = {
+    _data   => [ ],
+    _file   => 'Unknown',
+};
+
+### install get/set accessors for this object.
+for my $key ( keys %$tmpl ) {
+    no strict 'refs';
+    *{__PACKAGE__."::$key"} = sub {
+        my $self = shift;
+        $self->{$key} = $_[0] if @_;
+        return $self->{$key};
+    }
+}
+
+sub new {
+    my $class = shift;
+    $class = ref $class if ref $class;
+
+    ### copying $tmpl here since a shallow copy makes it use the
+    ### same aref, causing for files to remain in memory always.
+    my $obj = bless { _data => [ ], _file => 'Unknown', _error => '' }, $class;
+
+    if (@_) {
+        unless ( $obj->read( @_ ) ) {
+            $obj->_error(qq[No data could be read from file]);
+            return;
+        }
+    }
+
+    return $obj;
+}
+
+=head2 $tar->read ( $filename|$handle, [$compressed, {opt => 'val'}] )
+
+Read the given tar file into memory.
+The first argument can either be the name of a file or a reference to
+an already open filehandle (or an IO::Zlib object if it's compressed)
+
+The C<read> will I<replace> any previous content in C<$tar>!
+
+The second argument may be considered optional, but remains for
+backwards compatibility. Archive::Tar now looks at the file
+magic to determine what class should be used to open the file
+and will transparently Do The Right Thing.
+
+Archive::Tar will warn if you try to pass a bzip2 compressed file and the
+IO::Zlib / IO::Uncompress::Bunzip2 modules are not available and simply return.
+
+Note that you can currently B<not> pass a C<gzip> compressed
+filehandle, which is not opened with C<IO::Zlib>, a C<bzip2> compressed
+filehandle, which is not opened with C<IO::Uncompress::Bunzip2>, nor a string
+containing the full archive information (either compressed or
+uncompressed). These are worth while features, but not currently
+implemented. See the C<TODO> section.
+
+The third argument can be a hash reference with options. Note that
+all options are case-sensitive.
+
+=over 4
+
+=item limit
+
+Do not read more than C<limit> files. This is useful if you have
+very big archives, and are only interested in the first few files.
+
+=item filter
+
+Can be set to a regular expression.  Only files with names that match
+the expression will be read.
+
+=item md5
+
+Set to 1 and the md5sum of files will be returned (instead of file data)
+    my $iter = Archive::Tar->iter( $file,  1, {md5 => 1} );
+    while( my $f = $iter->() ) {
+        print $f->data . "\t" . $f->full_path . $/;
+    }
+
+=item extract
+
+If set to true, immediately extract entries when reading them. This
+gives you the same memory break as the C<extract_archive> function.
+Note however that entries will not be read into memory, but written
+straight to disk. This means no C<Archive::Tar::File> objects are
+created for you to inspect.
+
+=back
+
+All files are stored internally as C<Archive::Tar::File> objects.
+Please consult the L<Archive::Tar::File> documentation for details.
+
+Returns the number of files read in scalar context, and a list of
+C<Archive::Tar::File> objects in list context.
+
+=cut
+
+sub read {
+    my $self = shift;
+    my $file = shift;
+    my $gzip = shift || 0;
+    my $opts = shift || {};
+
+    unless( defined $file ) {
+        $self->_error( qq[No file to read from!] );
+        return;
+    } else {
+        $self->_file( $file );
+    }
+
+    my $handle = $self->_get_handle($file, $gzip, READ_ONLY->( ZLIB ) )
+                    or return;
+
+    my $data = $self->_read_tar( $handle, $opts ) or return;
+
+    $self->_data( $data );
+
+    return wantarray ? @$data : scalar @$data;
+}
+
+sub _get_handle {
+    my $self     = shift;
+    my $file     = shift;   return unless defined $file;
+    my $compress = shift || 0;
+    my $mode     = shift || READ_ONLY->( ZLIB ); # default to read only
+
+    ### Check if file is a file handle or IO glob
+    if ( ref $file ) {
+	return $file if eval{ *$file{IO} };
+	return $file if eval{ $file->isa(q{IO::Handle}) };
+	$file = q{}.$file;
+    }
+
+    ### get a FH opened to the right class, so we can use it transparently
+    ### throughout the program
+    my $fh;
+    {   ### reading magic only makes sense if we're opening a file for
+        ### reading. otherwise, just use what the user requested.
+        my $magic = '';
+        if( MODE_READ->($mode) ) {
+            open my $tmp, $file or do {
+                $self->_error( qq[Could not open '$file' for reading: $!] );
+                return;
+            };
+
+            ### read the first 4 bites of the file to figure out which class to
+            ### use to open the file.
+            sysread( $tmp, $magic, 4 );
+            close $tmp;
+        }
+
+        ### is it bzip?
+        ### if you asked specifically for bzip compression, or if we're in
+        ### read mode and the magic numbers add up, use bzip
+        if( BZIP and (
+                ($compress eq COMPRESS_BZIP) or
+                ( MODE_READ->($mode) and $magic =~ BZIP_MAGIC_NUM )
+            )
+        ) {
+
+            ### different reader/writer modules, different error vars... sigh
+            if( MODE_READ->($mode) ) {
+                $fh = IO::Uncompress::Bunzip2->new( $file ) or do {
+                    $self->_error( qq[Could not read '$file': ] .
+                        $IO::Uncompress::Bunzip2::Bunzip2Error
+                    );
+                    return;
+                };
+
+            } else {
+                $fh = IO::Compress::Bzip2->new( $file ) or do {
+                    $self->_error( qq[Could not write to '$file': ] .
+                        $IO::Compress::Bzip2::Bzip2Error
+                    );
+                    return;
+                };
+            }
+
+        ### is it gzip?
+        ### if you asked for compression, if you wanted to read or the gzip
+        ### magic number is present (redundant with read)
+        } elsif( ZLIB and (
+                    $compress or MODE_READ->($mode) or $magic =~ GZIP_MAGIC_NUM
+                 )
+        ) {
+            $fh = IO::Zlib->new;
+
+            unless( $fh->open( $file, $mode ) ) {
+                $self->_error(qq[Could not create filehandle for '$file': $!]);
+                return;
+            }
+
+        ### is it plain tar?
+        } else {
+            $fh = IO::File->new;
+
+            unless( $fh->open( $file, $mode ) ) {
+                $self->_error(qq[Could not create filehandle for '$file': $!]);
+                return;
+            }
+
+            ### enable bin mode on tar archives
+            binmode $fh;
+        }
+    }
+
+    return $fh;
+}
+
+
+sub _read_tar {
+    my $self    = shift;
+    my $handle  = shift or return;
+    my $opts    = shift || {};
+
+    my $count   = $opts->{limit}    || 0;
+    my $filter  = $opts->{filter};
+    my $md5  = $opts->{md5} || 0;	# cdrake
+    my $filter_cb = $opts->{filter_cb};
+    my $extract = $opts->{extract}  || 0;
+
+    ### set a cap on the amount of files to extract ###
+    my $limit   = 0;
+    $limit = 1 if $count > 0;
+
+    my $tarfile = [ ];
+    my $chunk;
+    my $read = 0;
+    my $real_name;  # to set the name of a file when
+                    # we're encountering @longlink
+    my $data;
+
+    LOOP:
+    while( $handle->read( $chunk, HEAD ) ) {
+        ### IO::Zlib doesn't support this yet
+        my $offset;
+        if ( ref($handle) ne 'IO::Zlib' ) {
+            local $@;
+            $offset = eval { tell $handle } || 'unknown';
+            $@ = '';
+        }
+        else {
+            $offset = 'unknown';
+        }
+
+        unless( $read++ ) {
+            my $gzip = GZIP_MAGIC_NUM;
+            if( $chunk =~ /$gzip/ ) {
+                $self->_error( qq[Cannot read compressed format in tar-mode] );
+                return;
+            }
+
+            ### size is < HEAD, which means a corrupted file, as the minimum
+            ### length is _at least_ HEAD
+            if (length $chunk != HEAD) {
+                $self->_error( qq[Cannot read enough bytes from the tarfile] );
+                return;
+            }
+        }
+
+        ### if we can't read in all bytes... ###
+        last if length $chunk != HEAD;
+
+        ### Apparently this should really be two blocks of 512 zeroes,
+        ### but GNU tar sometimes gets it wrong. See comment in the
+        ### source code (tar.c) to GNU cpio.
+        next if $chunk eq TAR_END;
+
+        ### according to the posix spec, the last 12 bytes of the header are
+        ### null bytes, to pad it to a 512 byte block. That means if these
+        ### bytes are NOT null bytes, it's a corrupt header. See:
+        ### www.koders.com/c/fidCE473AD3D9F835D690259D60AD5654591D91D5BA.aspx
+        ### line 111
+        {   my $nulls = join '', "\0" x 12;
+            unless( $nulls eq substr( $chunk, 500, 12 ) ) {
+                $self->_error( qq[Invalid header block at offset $offset] );
+                next LOOP;
+            }
+        }
+
+        ### pass the realname, so we can set it 'proper' right away
+        ### some of the heuristics are done on the name, so important
+        ### to set it ASAP
+        my $entry;
+        {   my %extra_args = ();
+            $extra_args{'name'} = $$real_name if defined $real_name;
+
+            unless( $entry = Archive::Tar::File->new(   chunk => $chunk,
+                                                        %extra_args )
+            ) {
+                $self->_error( qq[Couldn't read chunk at offset $offset] );
+                next LOOP;
+            }
+        }
+
+        ### ignore labels:
+        ### http://www.gnu.org/software/tar/manual/html_chapter/Media.html#SEC159
+        next if $entry->is_label;
+
+        if( length $entry->type and ($entry->is_file || $entry->is_longlink) ) {
+
+            if ( $entry->is_file && !$entry->validate ) {
+                ### sometimes the chunk is rather fux0r3d and a whole 512
+                ### bytes ends up in the ->name area.
+                ### clean it up, if need be
+                my $name = $entry->name;
+                $name = substr($name, 0, 100) if length $name > 100;
+                $name =~ s/\n/ /g;
+
+                $self->_error( $name . qq[: checksum error] );
+                next LOOP;
+            }
+
+            my $block = BLOCK_SIZE->( $entry->size );
+
+            $data = $entry->get_content_by_ref;
+
+	    my $skip = 0;
+	    my $ctx;			# cdrake
+	    ### skip this entry if we're filtering
+
+	    if($md5) {			# cdrake
+	      $ctx = Digest::MD5->new;	# cdrake
+	        $skip=5;		# cdrake
+
+	    } elsif ($filter && $entry->name !~ $filter) {
+		$skip = 1;
+
+	    } elsif ($filter_cb && ! $filter_cb->($entry)) {
+		$skip = 2;
+
+	    ### skip this entry if it's a pax header. This is a special file added
+	    ### by, among others, git-generated tarballs. It holds comments and is
+	    ### not meant for extracting. See #38932: pax_global_header extracted
+	    } elsif ( $entry->name eq PAX_HEADER or $entry->type =~ /^(x|g)$/ ) {
+		$skip = 3;
+	    }
+
+	    if ($skip) {
+		#
+		# Since we're skipping, do not allocate memory for the
+		# whole file.  Read it 64 BLOCKS at a time.  Do not
+		# complete the skip yet because maybe what we read is a
+		# longlink and it won't get skipped after all
+		#
+		my $amt = $block;
+		my $fsz=$entry->size;	# cdrake
+		while ($amt > 0) {
+		    $$data = '';
+		    my $this = 64 * BLOCK;
+		    $this = $amt if $this > $amt;
+		    if( $handle->read( $$data, $this ) < $this ) {
+			$self->_error( qq[Read error on tarfile (missing data) '].
+					    $entry->full_path ."' at offset $offset" );
+			next LOOP;
+		    }
+		    $amt -= $this;
+		    $fsz -= $this;	# cdrake
+		substr ($$data, $fsz) = "" if ($fsz<0);	# remove external junk prior to md5	# cdrake
+		$ctx->add($$data) if($skip==5);	# cdrake
+		}
+		$$data = $ctx->hexdigest if($skip==5 && !$entry->is_longlink && !$entry->is_unknown && !$entry->is_label ) ;	# cdrake
+            } else {
+
+		### just read everything into memory
+		### can't do lazy loading since IO::Zlib doesn't support 'seek'
+		### this is because Compress::Zlib doesn't support it =/
+		### this reads in the whole data in one read() call.
+		if ( $handle->read( $$data, $block ) < $block ) {
+		    $self->_error( qq[Read error on tarfile (missing data) '].
+                                    $entry->full_path ."' at offset $offset" );
+		    next LOOP;
+		}
+		### throw away trailing garbage ###
+		substr ($$data, $entry->size) = "" if defined $$data;
+            }
+
+            ### part II of the @LongLink munging -- need to do /after/
+            ### the checksum check.
+            if( $entry->is_longlink ) {
+                ### weird thing in tarfiles -- if the file is actually a
+                ### @LongLink, the data part seems to have a trailing ^@
+                ### (unprintable) char. to display, pipe output through less.
+                ### but that doesn't *always* happen.. so check if the last
+                ### character is a control character, and if so remove it
+                ### at any rate, we better remove that character here, or tests
+                ### like 'eq' and hash lookups based on names will SO not work
+                ### remove it by calculating the proper size, and then
+                ### tossing out everything that's longer than that size.
+
+                ### count number of nulls
+                my $nulls = $$data =~ tr/\0/\0/;
+
+                ### cut data + size by that many bytes
+                $entry->size( $entry->size - $nulls );
+                substr ($$data, $entry->size) = "";
+            }
+        }
+
+        ### clean up of the entries.. posix tar /apparently/ has some
+        ### weird 'feature' that allows for filenames > 255 characters
+        ### they'll put a header in with as name '././@LongLink' and the
+        ### contents will be the name of the /next/ file in the archive
+        ### pretty crappy and kludgy if you ask me
+
+        ### set the name for the next entry if this is a @LongLink;
+        ### this is one ugly hack =/ but needed for direct extraction
+        if( $entry->is_longlink ) {
+            $real_name = $data;
+            next LOOP;
+        } elsif ( defined $real_name ) {
+            $entry->name( $$real_name );
+            $entry->prefix('');
+            undef $real_name;
+        }
+
+	if ($filter && $entry->name !~ $filter) {
+	    next LOOP;
+
+	} elsif ($filter_cb && ! $filter_cb->($entry)) {
+	    next LOOP;
+
+	### skip this entry if it's a pax header. This is a special file added
+	### by, among others, git-generated tarballs. It holds comments and is
+	### not meant for extracting. See #38932: pax_global_header extracted
+	} elsif ( $entry->name eq PAX_HEADER or $entry->type =~ /^(x|g)$/ ) {
+	    next LOOP;
+	}
+
+        if ( $extract && !$entry->is_longlink
+                      && !$entry->is_unknown
+                      && !$entry->is_label ) {
+            $self->_extract_file( $entry ) or return;
+        }
+
+        ### Guard against tarfiles with garbage at the end
+	    last LOOP if $entry->name eq '';
+
+        ### push only the name on the rv if we're extracting
+        ### -- for extract_archive
+        push @$tarfile, ($extract ? $entry->name : $entry);
+
+        if( $limit ) {
+            $count-- unless $entry->is_longlink || $entry->is_dir;
+            last LOOP unless $count;
+        }
+    } continue {
+        undef $data;
+    }
+
+    return $tarfile;
+}
+
+=head2 $tar->contains_file( $filename )
+
+Check if the archive contains a certain file.
+It will return true if the file is in the archive, false otherwise.
+
+Note however, that this function does an exact match using C<eq>
+on the full path. So it cannot compensate for case-insensitive file-
+systems or compare 2 paths to see if they would point to the same
+underlying file.
+
+=cut
+
+sub contains_file {
+    my $self = shift;
+    my $full = shift;
+
+    return unless defined $full;
+
+    ### don't warn if the entry isn't there.. that's what this function
+    ### is for after all.
+    local $WARN = 0;
+    return 1 if $self->_find_entry($full);
+    return;
+}
+
+=head2 $tar->extract( [@filenames] )
+
+Write files whose names are equivalent to any of the names in
+C<@filenames> to disk, creating subdirectories as necessary. This
+might not work too well under VMS.
+Under MacPerl, the file's modification time will be converted to the
+MacOS zero of time, and appropriate conversions will be done to the
+path.  However, the length of each element of the path is not
+inspected to see whether it's longer than MacOS currently allows (32
+characters).
+
+If C<extract> is called without a list of file names, the entire
+contents of the archive are extracted.
+
+Returns a list of filenames extracted.
+
+=cut
+
+sub extract {
+    my $self    = shift;
+    my @args    = @_;
+    my @files;
+
+    # use the speed optimization for all extracted files
+    local($self->{cwd}) = cwd() unless $self->{cwd};
+
+    ### you requested the extraction of only certain files
+    if( @args ) {
+        for my $file ( @args ) {
+
+            ### it's already an object?
+            if( UNIVERSAL::isa( $file, 'Archive::Tar::File' ) ) {
+                push @files, $file;
+                next;
+
+            ### go find it then
+            } else {
+
+                my $found;
+                for my $entry ( @{$self->_data} ) {
+                    next unless $file eq $entry->full_path;
+
+                    ### we found the file you're looking for
+                    push @files, $entry;
+                    $found++;
+                }
+
+                unless( $found ) {
+                    return $self->_error(
+                        qq[Could not find '$file' in archive] );
+                }
+            }
+        }
+
+    ### just grab all the file items
+    } else {
+        @files = $self->get_files;
+    }
+
+    ### nothing found? that's an error
+    unless( scalar @files ) {
+        $self->_error( qq[No files found for ] . $self->_file );
+        return;
+    }
+
+    ### now extract them
+    for my $entry ( @files ) {
+        unless( $self->_extract_file( $entry ) ) {
+            $self->_error(q[Could not extract ']. $entry->full_path .q['] );
+            return;
+        }
+    }
+
+    return @files;
+}
+
+=head2 $tar->extract_file( $file, [$extract_path] )
+
+Write an entry, whose name is equivalent to the file name provided to
+disk. Optionally takes a second parameter, which is the full native
+path (including filename) the entry will be written to.
+
+For example:
+
+    $tar->extract_file( 'name/in/archive', 'name/i/want/to/give/it' );
+
+    $tar->extract_file( $at_file_object,   'name/i/want/to/give/it' );
+
+Returns true on success, false on failure.
+
+=cut
+
+sub extract_file {
+    my $self = shift;
+    my $file = shift;   return unless defined $file;
+    my $alt  = shift;
+
+    my $entry = $self->_find_entry( $file )
+        or $self->_error( qq[Could not find an entry for '$file'] ), return;
+
+    return $self->_extract_file( $entry, $alt );
+}
+
+sub _extract_file {
+    my $self    = shift;
+    my $entry   = shift or return;
+    my $alt     = shift;
+
+    ### you wanted an alternate extraction location ###
+    my $name = defined $alt ? $alt : $entry->full_path;
+
+                            ### splitpath takes a bool at the end to indicate
+                            ### that it's splitting a dir
+    my ($vol,$dirs,$file);
+    if ( defined $alt ) { # It's a local-OS path
+        ($vol,$dirs,$file) = File::Spec->splitpath(       $alt,
+                                                          $entry->is_dir );
+    } else {
+        ($vol,$dirs,$file) = File::Spec::Unix->splitpath( $name,
+                                                          $entry->is_dir );
+    }
+
+    my $dir;
+    ### is $name an absolute path? ###
+    if( $vol || File::Spec->file_name_is_absolute( $dirs ) ) {
+
+        ### absolute names are not allowed to be in tarballs under
+        ### strict mode, so only allow it if a user tells us to do it
+        if( not defined $alt and not $INSECURE_EXTRACT_MODE ) {
+            $self->_error(
+                q[Entry ']. $entry->full_path .q[' is an absolute path. ].
+                q[Not extracting absolute paths under SECURE EXTRACT MODE]
+            );
+            return;
+        }
+
+        ### user asked us to, it's fine.
+        $dir = File::Spec->catpath( $vol, $dirs, "" );
+
+    ### it's a relative path ###
+    } else {
+        my $cwd     = (ref $self and defined $self->{cwd})
+                        ? $self->{cwd}
+                        : cwd();
+
+        my @dirs = defined $alt
+            ? File::Spec->splitdir( $dirs )         # It's a local-OS path
+            : File::Spec::Unix->splitdir( $dirs );  # it's UNIX-style, likely
+                                                    # straight from the tarball
+
+        if( not defined $alt            and
+            not $INSECURE_EXTRACT_MODE
+        ) {
+
+            ### paths that leave the current directory are not allowed under
+            ### strict mode, so only allow it if a user tells us to do this.
+            if( grep { $_ eq '..' } @dirs ) {
+
+                $self->_error(
+                    q[Entry ']. $entry->full_path .q[' is attempting to leave ].
+                    q[the current working directory. Not extracting under ].
+                    q[SECURE EXTRACT MODE]
+                );
+                return;
+            }
+
+            ### the archive may be asking us to extract into a symlink. This
+            ### is not sane and a possible security issue, as outlined here:
+            ### https://rt.cpan.org/Ticket/Display.html?id=30380
+            ### https://bugzilla.redhat.com/show_bug.cgi?id=295021
+            ### https://issues.rpath.com/browse/RPL-1716
+            my $full_path = $cwd;
+            for my $d ( @dirs ) {
+                $full_path = File::Spec->catdir( $full_path, $d );
+
+                ### we've already checked this one, and it's safe. Move on.
+                next if ref $self and $self->{_link_cache}->{$full_path};
+
+                if( -l $full_path ) {
+                    my $to   = readlink $full_path;
+                    my $diag = "symlinked directory ($full_path => $to)";
+
+                    $self->_error(
+                        q[Entry ']. $entry->full_path .q[' is attempting to ].
+                        qq[extract to a $diag. This is considered a security ].
+                        q[vulnerability and not allowed under SECURE EXTRACT ].
+                        q[MODE]
+                    );
+                    return;
+                }
+
+                ### XXX keep a cache if possible, so the stats become cheaper:
+                $self->{_link_cache}->{$full_path} = 1 if ref $self;
+            }
+        }
+
+        ### '.' is the directory delimiter on VMS, which has to be escaped
+        ### or changed to '_' on vms.  vmsify is used, because older versions
+        ### of vmspath do not handle this properly.
+        ### Must not add a '/' to an empty directory though.
+        map { length() ? VMS::Filespec::vmsify($_.'/') : $_ } @dirs if ON_VMS;
+
+        my ($cwd_vol,$cwd_dir,$cwd_file)
+                    = File::Spec->splitpath( $cwd );
+        my @cwd     = File::Spec->splitdir( $cwd_dir );
+        push @cwd, $cwd_file if length $cwd_file;
+
+        ### We need to pass '' as the last element to catpath. Craig Berry
+        ### explains why (msgid <p0624083dc311ae541393@[172.16.52.1]>):
+        ### The root problem is that splitpath on UNIX always returns the
+        ### final path element as a file even if it is a directory, and of
+        ### course there is no way it can know the difference without checking
+        ### against the filesystem, which it is documented as not doing.  When
+        ### you turn around and call catpath, on VMS you have to know which bits
+        ### are directory bits and which bits are file bits.  In this case we
+        ### know the result should be a directory.  I had thought you could omit
+        ### the file argument to catpath in such a case, but apparently on UNIX
+        ### you can't.
+        $dir        = File::Spec->catpath(
+                            $cwd_vol, File::Spec->catdir( @cwd, @dirs ), ''
+                        );
+
+        ### catdir() returns undef if the path is longer than 255 chars on
+        ### older VMS systems.
+        unless ( defined $dir ) {
+            $^W && $self->_error( qq[Could not compose a path for '$dirs'\n] );
+            return;
+        }
+
+    }
+
+    if( -e $dir && !-d _ ) {
+        $^W && $self->_error( qq['$dir' exists, but it's not a directory!\n] );
+        return;
+    }
+
+    unless ( -d _ ) {
+        eval { File::Path::mkpath( $dir, 0, 0777 ) };
+        if( $@ ) {
+            my $fp = $entry->full_path;
+            $self->_error(qq[Could not create directory '$dir' for '$fp': $@]);
+            return;
+        }
+
+        ### XXX chown here? that might not be the same as in the archive
+        ### as we're only chown'ing to the owner of the file we're extracting
+        ### not to the owner of the directory itself, which may or may not
+        ### be another entry in the archive
+        ### Answer: no, gnu tar doesn't do it either, it'd be the wrong
+        ### way to go.
+        #if( $CHOWN && CAN_CHOWN ) {
+        #    chown $entry->uid, $entry->gid, $dir or
+        #        $self->_error( qq[Could not set uid/gid on '$dir'] );
+        #}
+    }
+
+    ### we're done if we just needed to create a dir ###
+    return 1 if $entry->is_dir;
+
+    my $full = File::Spec->catfile( $dir, $file );
+
+    if( $entry->is_unknown ) {
+        $self->_error( qq[Unknown file type for file '$full'] );
+        return;
+    }
+
+    if( length $entry->type && $entry->is_file ) {
+        my $fh = IO::File->new;
+        $fh->open( '>' . $full ) or (
+            $self->_error( qq[Could not open file '$full': $!] ),
+            return
+        );
+
+        if( $entry->size ) {
+            binmode $fh;
+            syswrite $fh, $entry->data or (
+                $self->_error( qq[Could not write data to '$full'] ),
+                return
+            );
+        }
+
+        close $fh or (
+            $self->_error( qq[Could not close file '$full'] ),
+            return
+        );
+
+    } else {
+        $self->_make_special_file( $entry, $full ) or return;
+    }
+
+    ### only update the timestamp if it's not a symlink; that will change the
+    ### timestamp of the original. This addresses bug #33669: Could not update
+    ### timestamp warning on symlinks
+    if( not -l $full ) {
+        utime time, $entry->mtime - TIME_OFFSET, $full or
+            $self->_error( qq[Could not update timestamp] );
+    }
+
+    if( $CHOWN && CAN_CHOWN->() and not -l $full ) {
+        chown $entry->uid, $entry->gid, $full or
+            $self->_error( qq[Could not set uid/gid on '$full'] );
+    }
+
+    ### only chmod if we're allowed to, but never chmod symlinks, since they'll
+    ### change the perms on the file they're linking too...
+    if( $CHMOD and not -l $full ) {
+        my $mode = $entry->mode;
+        unless ($SAME_PERMISSIONS) {
+            $mode &= ~(oct(7000) | umask);
+        }
+        chmod $mode, $full or
+            $self->_error( qq[Could not chown '$full' to ] . $entry->mode );
+    }
+
+    return 1;
+}
+
+sub _make_special_file {
+    my $self    = shift;
+    my $entry   = shift     or return;
+    my $file    = shift;    return unless defined $file;
+
+    my $err;
+
+    if( $entry->is_symlink ) {
+        my $fail;
+        if( ON_UNIX ) {
+            symlink( $entry->linkname, $file ) or $fail++;
+
+        } else {
+            $self->_extract_special_file_as_plain_file( $entry, $file )
+                or $fail++;
+        }
+
+        $err =  qq[Making symbolic link '$file' to '] .
+                $entry->linkname .q[' failed] if $fail;
+
+    } elsif ( $entry->is_hardlink ) {
+        my $fail;
+        if( ON_UNIX ) {
+            link( $entry->linkname, $file ) or $fail++;
+
+        } else {
+            $self->_extract_special_file_as_plain_file( $entry, $file )
+                or $fail++;
+        }
+
+        $err =  qq[Making hard link from '] . $entry->linkname .
+                qq[' to '$file' failed] if $fail;
+
+    } elsif ( $entry->is_fifo ) {
+        ON_UNIX && !system('mknod', $file, 'p') or
+            $err = qq[Making fifo ']. $entry->name .qq[' failed];
+
+    } elsif ( $entry->is_blockdev or $entry->is_chardev ) {
+        my $mode = $entry->is_blockdev ? 'b' : 'c';
+
+        ON_UNIX && !system('mknod', $file, $mode,
+                            $entry->devmajor, $entry->devminor) or
+            $err =  qq[Making block device ']. $entry->name .qq[' (maj=] .
+                    $entry->devmajor . qq[ min=] . $entry->devminor .
+                    qq[) failed.];
+
+    } elsif ( $entry->is_socket ) {
+        ### the original doesn't do anything special for sockets.... ###
+        1;
+    }
+
+    return $err ? $self->_error( $err ) : 1;
+}
+
+### don't know how to make symlinks, let's just extract the file as
+### a plain file
+sub _extract_special_file_as_plain_file {
+    my $self    = shift;
+    my $entry   = shift     or return;
+    my $file    = shift;    return unless defined $file;
+
+    my $err;
+    TRY: {
+        my $orig = $self->_find_entry( $entry->linkname, $entry );
+
+        unless( $orig ) {
+            $err =  qq[Could not find file '] . $entry->linkname .
+                    qq[' in memory.];
+            last TRY;
+        }
+
+        ### clone the entry, make it appear as a normal file ###
+        my $clone = $orig->clone;
+        $clone->_downgrade_to_plainfile;
+        $self->_extract_file( $clone, $file ) or last TRY;
+
+        return 1;
+    }
+
+    return $self->_error($err);
+}
+
+=head2 $tar->list_files( [\@properties] )
+
+Returns a list of the names of all the files in the archive.
+
+If C<list_files()> is passed an array reference as its first argument
+it returns a list of hash references containing the requested
+properties of each file.  The following list of properties is
+supported: name, size, mtime (last modified date), mode, uid, gid,
+linkname, uname, gname, devmajor, devminor, prefix.
+
+Passing an array reference containing only one element, 'name', is
+special cased to return a list of names rather than a list of hash
+references, making it equivalent to calling C<list_files> without
+arguments.
+
+=cut
+
+sub list_files {
+    my $self = shift;
+    my $aref = shift || [ ];
+
+    unless( $self->_data ) {
+        $self->read() or return;
+    }
+
+    if( @$aref == 0 or ( @$aref == 1 and $aref->[0] eq 'name' ) ) {
+        return map { $_->full_path } @{$self->_data};
+    } else {
+
+        #my @rv;
+        #for my $obj ( @{$self->_data} ) {
+        #    push @rv, { map { $_ => $obj->$_() } @$aref };
+        #}
+        #return @rv;
+
+        ### this does the same as the above.. just needs a +{ }
+        ### to make sure perl doesn't confuse it for a block
+        return map {    my $o=$_;
+                        +{ map { $_ => $o->$_() } @$aref }
+                    } @{$self->_data};
+    }
+}
+
+sub _find_entry {
+    my $self = shift;
+    my $file = shift;
+
+    unless( defined $file ) {
+        $self->_error( qq[No file specified] );
+        return;
+    }
+
+    ### it's an object already
+    return $file if UNIVERSAL::isa( $file, 'Archive::Tar::File' );
+
+seach_entry:
+		if($self->_data){
+			for my $entry ( @{$self->_data} ) {
+					my $path = $entry->full_path;
+					return $entry if $path eq $file;
+			}
+		}
+
+		if($Archive::Tar::RESOLVE_SYMLINK!~/none/){
+			if(my $link_entry = shift()){#fallback mode when symlinks are using relative notations ( ../a/./b/text.bin )
+				$file = _symlinks_resolver( $link_entry->name, $file );
+				goto seach_entry if $self->_data;
+
+				#this will be slower than never, but won't failed!
+
+				my $iterargs = $link_entry->{'_archive'};
+				if($Archive::Tar::RESOLVE_SYMLINK=~/speed/ && @$iterargs==3){
+				#faster	but whole archive will be read in memory
+					#read whole archive and share data
+					my $archive = Archive::Tar->new;
+					$archive->read( @$iterargs );
+					push @$iterargs, $archive; #take a trace for destruction
+					if($archive->_data){
+						$self->_data( $archive->_data );
+						goto seach_entry;
+					}
+				}#faster
+
+				{#slower but lower memory usage
+					# $iterargs = [$filename, $compressed, $opts];
+					my $next = Archive::Tar->iter( @$iterargs );
+					while(my $e = $next->()){
+						if($e->full_path eq $file){
+							undef $next;
+							return $e;
+						}
+					}
+				}#slower
+			}
+		}
+
+    $self->_error( qq[No such file in archive: '$file'] );
+    return;
+}
+
+=head2 $tar->get_files( [@filenames] )
+
+Returns the C<Archive::Tar::File> objects matching the filenames
+provided. If no filename list was passed, all C<Archive::Tar::File>
+objects in the current Tar object are returned.
+
+Please refer to the C<Archive::Tar::File> documentation on how to
+handle these objects.
+
+=cut
+
+sub get_files {
+    my $self = shift;
+
+    return @{ $self->_data } unless @_;
+
+    my @list;
+    for my $file ( @_ ) {
+        push @list, grep { defined } $self->_find_entry( $file );
+    }
+
+    return @list;
+}
+
+=head2 $tar->get_content( $file )
+
+Return the content of the named file.
+
+=cut
+
+sub get_content {
+    my $self = shift;
+    my $entry = $self->_find_entry( shift ) or return;
+
+    return $entry->data;
+}
+
+=head2 $tar->replace_content( $file, $content )
+
+Make the string $content be the content for the file named $file.
+
+=cut
+
+sub replace_content {
+    my $self = shift;
+    my $entry = $self->_find_entry( shift ) or return;
+
+    return $entry->replace_content( shift );
+}
+
+=head2 $tar->rename( $file, $new_name )
+
+Rename the file of the in-memory archive to $new_name.
+
+Note that you must specify a Unix path for $new_name, since per tar
+standard, all files in the archive must be Unix paths.
+
+Returns true on success and false on failure.
+
+=cut
+
+sub rename {
+    my $self = shift;
+    my $file = shift; return unless defined $file;
+    my $new  = shift; return unless defined $new;
+
+    my $entry = $self->_find_entry( $file ) or return;
+
+    return $entry->rename( $new );
+}
+
+=head2 $tar->chmod( $file, $mode )
+
+Change mode of $file to $mode.
+
+Returns true on success and false on failure.
+
+=cut
+
+sub chmod {
+    my $self = shift;
+    my $file = shift; return unless defined $file;
+    my $mode = shift; return unless defined $mode && $mode =~ /^[0-7]{1,4}$/;
+    my @args = ("$mode");
+
+    my $entry = $self->_find_entry( $file ) or return;
+    my $x = $entry->chmod( @args );
+    return $x;
+}
+
+=head2 $tar->chown( $file, $uname [, $gname] )
+
+Change owner $file to $uname and $gname.
+
+Returns true on success and false on failure.
+
+=cut
+
+sub chown {
+    my $self = shift;
+    my $file = shift; return unless defined $file;
+    my $uname  = shift; return unless defined $uname;
+    my @args   = ($uname);
+    push(@args, shift);
+
+    my $entry = $self->_find_entry( $file ) or return;
+    my $x = $entry->chown( @args );
+    return $x;
+}
+
+=head2 $tar->remove (@filenamelist)
+
+Removes any entries with names matching any of the given filenames
+from the in-memory archive. Returns a list of C<Archive::Tar::File>
+objects that remain.
+
+=cut
+
+sub remove {
+    my $self = shift;
+    my @list = @_;
+
+    my %seen = map { $_->full_path => $_ } @{$self->_data};
+    delete $seen{ $_ } for @list;
+
+    $self->_data( [values %seen] );
+
+    return values %seen;
+}
+
+=head2 $tar->clear
+
+C<clear> clears the current in-memory archive. This effectively gives
+you a 'blank' object, ready to be filled again. Note that C<clear>
+only has effect on the object, not the underlying tarfile.
+
+=cut
+
+sub clear {
+    my $self = shift or return;
+
+    $self->_data( [] );
+    $self->_file( '' );
+
+    return 1;
+}
+
+
+=head2 $tar->write ( [$file, $compressed, $prefix] )
+
+Write the in-memory archive to disk.  The first argument can either
+be the name of a file or a reference to an already open filehandle (a
+GLOB reference).
+
+The second argument is used to indicate compression. You can either
+compress using C<gzip> or C<bzip2>. If you pass a digit, it's assumed
+to be the C<gzip> compression level (between 1 and 9), but the use of
+constants is preferred:
+
+  # write a gzip compressed file
+  $tar->write( 'out.tgz', COMPRESS_GZIP );
+
+  # write a bzip compressed file
+  $tar->write( 'out.tbz', COMPRESS_BZIP );
+
+Note that when you pass in a filehandle, the compression argument
+is ignored, as all files are printed verbatim to your filehandle.
+If you wish to enable compression with filehandles, use an
+C<IO::Zlib> or C<IO::Compress::Bzip2> filehandle instead.
+
+The third argument is an optional prefix. All files will be tucked
+away in the directory you specify as prefix. So if you have files
+'a' and 'b' in your archive, and you specify 'foo' as prefix, they
+will be written to the archive as 'foo/a' and 'foo/b'.
+
+If no arguments are given, C<write> returns the entire formatted
+archive as a string, which could be useful if you'd like to stuff the
+archive into a socket or a pipe to gzip or something.
+
+
+=cut
+
+sub write {
+    my $self        = shift;
+    my $file        = shift; $file = '' unless defined $file;
+    my $gzip        = shift || 0;
+    my $ext_prefix  = shift; $ext_prefix = '' unless defined $ext_prefix;
+    my $dummy       = '';
+
+    ### only need a handle if we have a file to print to ###
+    my $handle = length($file)
+                    ? ( $self->_get_handle($file, $gzip, WRITE_ONLY->($gzip) )
+                        or return )
+                    : $HAS_PERLIO    ? do { open my $h, '>', \$dummy; $h }
+                    : $HAS_IO_STRING ? IO::String->new
+                    : __PACKAGE__->no_string_support();
+
+    ### Addresses: #41798: Nonempty $\ when writing a TAR file produces a
+    ### corrupt TAR file. Must clear out $\ to make sure no garbage is
+    ### printed to the archive
+    local $\;
+
+    for my $entry ( @{$self->_data} ) {
+        ### entries to be written to the tarfile ###
+        my @write_me;
+
+        ### only now will we change the object to reflect the current state
+        ### of the name and prefix fields -- this needs to be limited to
+        ### write() only!
+        my $clone = $entry->clone;
+
+
+        ### so, if you don't want use to use the prefix, we'll stuff
+        ### everything in the name field instead
+        if( $DO_NOT_USE_PREFIX ) {
+
+            ### you might have an extended prefix, if so, set it in the clone
+            ### XXX is ::Unix right?
+            $clone->name( length $ext_prefix
+                            ? File::Spec::Unix->catdir( $ext_prefix,
+                                                        $clone->full_path)
+                            : $clone->full_path );
+            $clone->prefix( '' );
+
+        ### otherwise, we'll have to set it properly -- prefix part in the
+        ### prefix and name part in the name field.
+        } else {
+
+            ### split them here, not before!
+            my ($prefix,$name) = $clone->_prefix_and_file( $clone->full_path );
+
+            ### you might have an extended prefix, if so, set it in the clone
+            ### XXX is ::Unix right?
+            $prefix = File::Spec::Unix->catdir( $ext_prefix, $prefix )
+                if length $ext_prefix;
+
+            $clone->prefix( $prefix );
+            $clone->name( $name );
+        }
+
+        ### names are too long, and will get truncated if we don't add a
+        ### '@LongLink' file...
+        my $make_longlink = (   length($clone->name)    > NAME_LENGTH or
+                                length($clone->prefix)  > PREFIX_LENGTH
+                            ) || 0;
+
+        ### perhaps we need to make a longlink file?
+        if( $make_longlink ) {
+            my $longlink = Archive::Tar::File->new(
+                            data => LONGLINK_NAME,
+                            $clone->full_path,
+                            { type => LONGLINK }
+                        );
+
+            unless( $longlink ) {
+                $self->_error(  qq[Could not create 'LongLink' entry for ] .
+                                qq[oversize file '] . $clone->full_path ."'" );
+                return;
+            };
+
+            push @write_me, $longlink;
+        }
+
+        push @write_me, $clone;
+
+        ### write the one, optionally 2 a::t::file objects to the handle
+        for my $clone (@write_me) {
+
+            ### if the file is a symlink, there are 2 options:
+            ### either we leave the symlink intact, but then we don't write any
+            ### data OR we follow the symlink, which means we actually make a
+            ### copy. if we do the latter, we have to change the TYPE of the
+            ### clone to 'FILE'
+            my $link_ok =  $clone->is_symlink && $Archive::Tar::FOLLOW_SYMLINK;
+            my $data_ok = !$clone->is_symlink && $clone->has_content;
+
+            ### downgrade to a 'normal' file if it's a symlink we're going to
+            ### treat as a regular file
+            $clone->_downgrade_to_plainfile if $link_ok;
+
+            ### get the header for this block
+            my $header = $self->_format_tar_entry( $clone );
+            unless( $header ) {
+                $self->_error(q[Could not format header for: ] .
+                                    $clone->full_path );
+                return;
+            }
+
+            unless( print $handle $header ) {
+                $self->_error(q[Could not write header for: ] .
+                                    $clone->full_path);
+                return;
+            }
+
+            if( $link_ok or $data_ok ) {
+                unless( print $handle $clone->data ) {
+                    $self->_error(q[Could not write data for: ] .
+                                    $clone->full_path);
+                    return;
+                }
+
+                ### pad the end of the clone if required ###
+                print $handle TAR_PAD->( $clone->size ) if $clone->size % BLOCK
+            }
+
+        } ### done writing these entries
+    }
+
+    ### write the end markers ###
+    print $handle TAR_END x 2 or
+            return $self->_error( qq[Could not write tar end markers] );
+
+    ### did you want it written to a file, or returned as a string? ###
+    my $rv =  length($file) ? 1
+                        : $HAS_PERLIO ? $dummy
+                        : do { seek $handle, 0, 0; local $/; <$handle> };
+
+    ### make sure to close the handle if we created it
+    if ( $file ne $handle ) {
+	unless( close $handle ) {
+	    $self->_error( qq[Could not write tar] );
+	    return;
+	}
+    }
+
+    return $rv;
+}
+
+sub _format_tar_entry {
+    my $self        = shift;
+    my $entry       = shift or return;
+    my $ext_prefix  = shift; $ext_prefix = '' unless defined $ext_prefix;
+    my $no_prefix   = shift || 0;
+
+    my $file    = $entry->name;
+    my $prefix  = $entry->prefix; $prefix = '' unless defined $prefix;
+
+    ### remove the prefix from the file name
+    ### not sure if this is still needed --kane
+    ### no it's not -- Archive::Tar::File->_new_from_file will take care of
+    ### this for us. Even worse, this would break if we tried to add a file
+    ### like x/x.
+    #if( length $prefix ) {
+    #    $file =~ s/^$match//;
+    #}
+
+    $prefix = File::Spec::Unix->catdir($ext_prefix, $prefix)
+                if length $ext_prefix;
+
+    ### not sure why this is... ###
+    my $l = PREFIX_LENGTH; # is ambiguous otherwise...
+    substr ($prefix, 0, -$l) = "" if length $prefix >= PREFIX_LENGTH;
+
+    my $f1 = "%06o"; my $f2  = $ZERO_PAD_NUMBERS ? "%011o" : "%11o";
+
+    ### this might be optimizable with a 'changed' flag in the file objects ###
+    my $tar = pack (
+                PACK,
+                $file,
+
+                (map { sprintf( $f1, $entry->$_() ) } qw[mode uid gid]),
+                (map { sprintf( $f2, $entry->$_() ) } qw[size mtime]),
+
+                "",  # checksum field - space padded a bit down
+
+                (map { $entry->$_() }                 qw[type linkname magic]),
+
+                $entry->version || TAR_VERSION,
+
+                (map { $entry->$_() }                 qw[uname gname]),
+                (map { sprintf( $f1, $entry->$_() ) } qw[devmajor devminor]),
+
+                ($no_prefix ? '' : $prefix)
+    );
+
+    ### add the checksum ###
+    my $checksum_fmt = $ZERO_PAD_NUMBERS ? "%06o\0" : "%06o\0";
+    substr($tar,148,7) = sprintf("%6o\0", unpack("%16C*",$tar));
+
+    return $tar;
+}
+
+=head2 $tar->add_files( @filenamelist )
+
+Takes a list of filenames and adds them to the in-memory archive.
+
+The path to the file is automatically converted to a Unix like
+equivalent for use in the archive, and, if on MacOS, the file's
+modification time is converted from the MacOS epoch to the Unix epoch.
+So tar archives created on MacOS with B<Archive::Tar> can be read
+both with I<tar> on Unix and applications like I<suntar> or
+I<Stuffit Expander> on MacOS.
+
+Be aware that the file's type/creator and resource fork will be lost,
+which is usually what you want in cross-platform archives.
+
+Instead of a filename, you can also pass it an existing C<Archive::Tar::File>
+object from, for example, another archive. The object will be clone, and
+effectively be a copy of the original, not an alias.
+
+Returns a list of C<Archive::Tar::File> objects that were just added.
+
+=cut
+
+sub add_files {
+    my $self    = shift;
+    my @files   = @_ or return;
+
+    my @rv;
+    for my $file ( @files ) {
+
+        ### you passed an Archive::Tar::File object
+        ### clone it so we don't accidentally have a reference to
+        ### an object from another archive
+        if( UNIVERSAL::isa( $file,'Archive::Tar::File' ) ) {
+            push @rv, $file->clone;
+            next;
+        }
+
+        eval {
+            if( utf8::is_utf8( $file )) {
+              utf8::encode( $file );
+            }
+        };
+
+        unless( -e $file || -l $file ) {
+            $self->_error( qq[No such file: '$file'] );
+            next;
+        }
+
+        my $obj = Archive::Tar::File->new( file => $file );
+        unless( $obj ) {
+            $self->_error( qq[Unable to add file: '$file'] );
+            next;
+        }
+
+        push @rv, $obj;
+    }
+
+    push @{$self->{_data}}, @rv;
+
+    return @rv;
+}
+
+=head2 $tar->add_data ( $filename, $data, [$opthashref] )
+
+Takes a filename, a scalar full of data and optionally a reference to
+a hash with specific options.
+
+Will add a file to the in-memory archive, with name C<$filename> and
+content C<$data>. Specific properties can be set using C<$opthashref>.
+The following list of properties is supported: name, size, mtime
+(last modified date), mode, uid, gid, linkname, uname, gname,
+devmajor, devminor, prefix, type.  (On MacOS, the file's path and
+modification times are converted to Unix equivalents.)
+
+Valid values for the file type are the following constants defined by
+Archive::Tar::Constant:
+
+=over 4
+
+=item FILE
+
+Regular file.
+
+=item HARDLINK
+
+=item SYMLINK
+
+Hard and symbolic ("soft") links; linkname should specify target.
+
+=item CHARDEV
+
+=item BLOCKDEV
+
+Character and block devices. devmajor and devminor should specify the major
+and minor device numbers.
+
+=item DIR
+
+Directory.
+
+=item FIFO
+
+FIFO (named pipe).
+
+=item SOCKET
+
+Socket.
+
+=back
+
+Returns the C<Archive::Tar::File> object that was just added, or
+C<undef> on failure.
+
+=cut
+
+sub add_data {
+    my $self    = shift;
+    my ($file, $data, $opt) = @_;
+
+    my $obj = Archive::Tar::File->new( data => $file, $data, $opt );
+    unless( $obj ) {
+        $self->_error( qq[Unable to add file: '$file'] );
+        return;
+    }
+
+    push @{$self->{_data}}, $obj;
+
+    return $obj;
+}
+
+=head2 $tar->error( [$BOOL] )
+
+Returns the current error string (usually, the last error reported).
+If a true value was specified, it will give the C<Carp::longmess>
+equivalent of the error, in effect giving you a stacktrace.
+
+For backwards compatibility, this error is also available as
+C<$Archive::Tar::error> although it is much recommended you use the
+method call instead.
+
+=cut
+
+{
+    $error = '';
+    my $longmess;
+
+    sub _error {
+        my $self    = shift;
+        my $msg     = $error = shift;
+        $longmess   = Carp::longmess($error);
+        if (ref $self) {
+            $self->{_error} = $error;
+            $self->{_longmess} = $longmess;
+        }
+
+        ### set Archive::Tar::WARN to 0 to disable printing
+        ### of errors
+        if( $WARN ) {
+            carp $DEBUG ? $longmess : $msg;
+        }
+
+        return;
+    }
+
+    sub error {
+        my $self = shift;
+        if (ref $self) {
+            return shift() ? $self->{_longmess} : $self->{_error};
+        } else {
+            return shift() ? $longmess : $error;
+        }
+    }
+}
+
+=head2 $tar->setcwd( $cwd );
+
+C<Archive::Tar> needs to know the current directory, and it will run
+C<Cwd::cwd()> I<every> time it extracts a I<relative> entry from the
+tarfile and saves it in the file system. (As of version 1.30, however,
+C<Archive::Tar> will use the speed optimization described below
+automatically, so it's only relevant if you're using C<extract_file()>).
+
+Since C<Archive::Tar> doesn't change the current directory internally
+while it is extracting the items in a tarball, all calls to C<Cwd::cwd()>
+can be avoided if we can guarantee that the current directory doesn't
+get changed externally.
+
+To use this performance boost, set the current directory via
+
+    use Cwd;
+    $tar->setcwd( cwd() );
+
+once before calling a function like C<extract_file> and
+C<Archive::Tar> will use the current directory setting from then on
+and won't call C<Cwd::cwd()> internally.
+
+To switch back to the default behaviour, use
+
+    $tar->setcwd( undef );
+
+and C<Archive::Tar> will call C<Cwd::cwd()> internally again.
+
+If you're using C<Archive::Tar>'s C<extract()> method, C<setcwd()> will
+be called for you.
+
+=cut
+
+sub setcwd {
+    my $self     = shift;
+    my $cwd      = shift;
+
+    $self->{cwd} = $cwd;
+}
+
+=head1 Class Methods
+
+=head2 Archive::Tar->create_archive($file, $compressed, @filelist)
+
+Creates a tar file from the list of files provided.  The first
+argument can either be the name of the tar file to create or a
+reference to an open file handle (e.g. a GLOB reference).
+
+The second argument is used to indicate compression. You can either
+compress using C<gzip> or C<bzip2>. If you pass a digit, it's assumed
+to be the C<gzip> compression level (between 1 and 9), but the use of
+constants is preferred:
+
+  # write a gzip compressed file
+  Archive::Tar->create_archive( 'out.tgz', COMPRESS_GZIP, @filelist );
+
+  # write a bzip compressed file
+  Archive::Tar->create_archive( 'out.tbz', COMPRESS_BZIP, @filelist );
+
+Note that when you pass in a filehandle, the compression argument
+is ignored, as all files are printed verbatim to your filehandle.
+If you wish to enable compression with filehandles, use an
+C<IO::Zlib> or C<IO::Compress::Bzip2> filehandle instead.
+
+The remaining arguments list the files to be included in the tar file.
+These files must all exist. Any files which don't exist or can't be
+read are silently ignored.
+
+If the archive creation fails for any reason, C<create_archive> will
+return false. Please use the C<error> method to find the cause of the
+failure.
+
+Note that this method does not write C<on the fly> as it were; it
+still reads all the files into memory before writing out the archive.
+Consult the FAQ below if this is a problem.
+
+=cut
+
+sub create_archive {
+    my $class = shift;
+
+    my $file    = shift; return unless defined $file;
+    my $gzip    = shift || 0;
+    my @files   = @_;
+
+    unless( @files ) {
+        return $class->_error( qq[Cowardly refusing to create empty archive!] );
+    }
+
+    my $tar = $class->new;
+    $tar->add_files( @files );
+    return $tar->write( $file, $gzip );
+}
+
+=head2 Archive::Tar->iter( $filename, [ $compressed, {opt => $val} ] )
+
+Returns an iterator function that reads the tar file without loading
+it all in memory.  Each time the function is called it will return the
+next file in the tarball. The files are returned as
+C<Archive::Tar::File> objects. The iterator function returns the
+empty list once it has exhausted the files contained.
+
+The second argument can be a hash reference with options, which are
+identical to the arguments passed to C<read()>.
+
+Example usage:
+
+    my $next = Archive::Tar->iter( "example.tar.gz", 1, {filter => qr/\.pm$/} );
+
+    while( my $f = $next->() ) {
+        print $f->name, "\n";
+
+        $f->extract or warn "Extraction failed";
+
+        # ....
+    }
+
+=cut
+
+
+sub iter {
+    my $class       = shift;
+    my $filename    = shift or return;
+    my $compressed  = shift || 0;
+    my $opts        = shift || {};
+
+    ### get a handle to read from.
+    my $handle = $class->_get_handle(
+        $filename,
+        $compressed,
+        READ_ONLY->( ZLIB )
+    ) or return;
+
+    my @data;
+		my $CONSTRUCT_ARGS = [ $filename, $compressed, $opts ];
+    return sub {
+        return shift(@data)     if @data;       # more than one file returned?
+        return                  unless $handle; # handle exhausted?
+
+        ### read data, should only return file
+        my $tarfile = $class->_read_tar($handle, { %$opts, limit => 1 });
+        @data = @$tarfile if ref $tarfile && ref $tarfile eq 'ARRAY';
+				if($Archive::Tar::RESOLVE_SYMLINK!~/none/){
+					foreach(@data){
+						#may refine this heuristic for ON_UNIX?
+						if($_->linkname){
+							#is there a better slot to store/share it ?
+							$_->{'_archive'} = $CONSTRUCT_ARGS;
+						}
+					}
+				}
+
+        ### return one piece of data
+        return shift(@data)     if @data;
+
+        ### data is exhausted, free the filehandle
+        undef $handle;
+				if(@$CONSTRUCT_ARGS == 4){
+					#free archive in memory
+					undef $CONSTRUCT_ARGS->[-1];
+				}
+        return;
+    };
+}
+
+=head2 Archive::Tar->list_archive($file, $compressed, [\@properties])
+
+Returns a list of the names of all the files in the archive.  The
+first argument can either be the name of the tar file to list or a
+reference to an open file handle (e.g. a GLOB reference).
+
+If C<list_archive()> is passed an array reference as its third
+argument it returns a list of hash references containing the requested
+properties of each file.  The following list of properties is
+supported: full_path, name, size, mtime (last modified date), mode,
+uid, gid, linkname, uname, gname, devmajor, devminor, prefix, type.
+
+See C<Archive::Tar::File> for details about supported properties.
+
+Passing an array reference containing only one element, 'name', is
+special cased to return a list of names rather than a list of hash
+references.
+
+=cut
+
+sub list_archive {
+    my $class   = shift;
+    my $file    = shift; return unless defined $file;
+    my $gzip    = shift || 0;
+
+    my $tar = $class->new($file, $gzip);
+    return unless $tar;
+
+    return $tar->list_files( @_ );
+}
+
+=head2 Archive::Tar->extract_archive($file, $compressed)
+
+Extracts the contents of the tar file.  The first argument can either
+be the name of the tar file to create or a reference to an open file
+handle (e.g. a GLOB reference).  All relative paths in the tar file will
+be created underneath the current working directory.
+
+C<extract_archive> will return a list of files it extracted.
+If the archive extraction fails for any reason, C<extract_archive>
+will return false.  Please use the C<error> method to find the cause
+of the failure.
+
+=cut
+
+sub extract_archive {
+    my $class   = shift;
+    my $file    = shift; return unless defined $file;
+    my $gzip    = shift || 0;
+
+    my $tar = $class->new( ) or return;
+
+    return $tar->read( $file, $gzip, { extract => 1 } );
+}
+
+=head2 $bool = Archive::Tar->has_io_string
+
+Returns true if we currently have C<IO::String> support loaded.
+
+Either C<IO::String> or C<perlio> support is needed to support writing
+stringified archives. Currently, C<perlio> is the preferred method, if
+available.
+
+See the C<GLOBAL VARIABLES> section to see how to change this preference.
+
+=cut
+
+sub has_io_string { return $HAS_IO_STRING; }
+
+=head2 $bool = Archive::Tar->has_perlio
+
+Returns true if we currently have C<perlio> support loaded.
+
+This requires C<perl-5.8> or higher, compiled with C<perlio>
+
+Either C<IO::String> or C<perlio> support is needed to support writing
+stringified archives. Currently, C<perlio> is the preferred method, if
+available.
+
+See the C<GLOBAL VARIABLES> section to see how to change this preference.
+
+=cut
+
+sub has_perlio { return $HAS_PERLIO; }
+
+=head2 $bool = Archive::Tar->has_zlib_support
+
+Returns true if C<Archive::Tar> can extract C<zlib> compressed archives
+
+=cut
+
+sub has_zlib_support { return ZLIB }
+
+=head2 $bool = Archive::Tar->has_bzip2_support
+
+Returns true if C<Archive::Tar> can extract C<bzip2> compressed archives
+
+=cut
+
+sub has_bzip2_support { return BZIP }
+
+=head2 Archive::Tar->can_handle_compressed_files
+
+A simple checking routine, which will return true if C<Archive::Tar>
+is able to uncompress compressed archives on the fly with C<IO::Zlib>
+and C<IO::Compress::Bzip2> or false if not both are installed.
+
+You can use this as a shortcut to determine whether C<Archive::Tar>
+will do what you think before passing compressed archives to its
+C<read> method.
+
+=cut
+
+sub can_handle_compressed_files { return ZLIB && BZIP ? 1 : 0 }
+
+sub no_string_support {
+    croak("You have to install IO::String to support writing archives to strings");
+}
+
+sub _symlinks_resolver{
+  my ($src, $trg) = @_;
+  my @src = split /[\/\\]/, $src;
+  my @trg = split /[\/\\]/, $trg;
+  pop @src; #strip out current object name
+  if(@trg and $trg[0] eq ''){
+    shift @trg;
+    #restart path from scratch
+    @src = ( );
+  }
+  foreach my $part ( @trg ){
+    next if $part eq '.'; #ignore current
+    if($part eq '..'){
+      #got to parent
+      pop @src;
+    }
+    else{
+      #append it
+      push @src, $part;
+    }
+  }
+  my $path = join('/', @src);
+  warn "_symlinks_resolver('$src','$trg') = $path" if $DEBUG;
+  return $path;
+}
+
+1;
+
+__END__
+
+=head1 GLOBAL VARIABLES
+
+=head2 $Archive::Tar::FOLLOW_SYMLINK
+
+Set this variable to C<1> to make C<Archive::Tar> effectively make a
+copy of the file when extracting. Default is C<0>, which
+means the symlink stays intact. Of course, you will have to pack the
+file linked to as well.
+
+This option is checked when you write out the tarfile using C<write>
+or C<create_archive>.
+
+This works just like C</bin/tar>'s C<-h> option.
+
+=head2 $Archive::Tar::CHOWN
+
+By default, C<Archive::Tar> will try to C<chown> your files if it is
+able to. In some cases, this may not be desired. In that case, set
+this variable to C<0> to disable C<chown>-ing, even if it were
+possible.
+
+The default is C<1>.
+
+=head2 $Archive::Tar::CHMOD
+
+By default, C<Archive::Tar> will try to C<chmod> your files to
+whatever mode was specified for the particular file in the archive.
+In some cases, this may not be desired. In that case, set this
+variable to C<0> to disable C<chmod>-ing.
+
+The default is C<1>.
+
+=head2 $Archive::Tar::SAME_PERMISSIONS
+
+When, C<$Archive::Tar::CHMOD> is enabled, this setting controls whether
+the permissions on files from the archive are used without modification
+of if they are filtered by removing any setid bits and applying the
+current umask.
+
+The default is C<1> for the root user and C<0> for normal users.
+
+=head2 $Archive::Tar::DO_NOT_USE_PREFIX
+
+By default, C<Archive::Tar> will try to put paths that are over
+100 characters in the C<prefix> field of your tar header, as
+defined per POSIX-standard. However, some (older) tar programs
+do not implement this spec. To retain compatibility with these older
+or non-POSIX compliant versions, you can set the C<$DO_NOT_USE_PREFIX>
+variable to a true value, and C<Archive::Tar> will use an alternate
+way of dealing with paths over 100 characters by using the
+C<GNU Extended Header> feature.
+
+Note that clients who do not support the C<GNU Extended Header>
+feature will not be able to read these archives. Such clients include
+tars on C<Solaris>, C<Irix> and C<AIX>.
+
+The default is C<0>.
+
+=head2 $Archive::Tar::DEBUG
+
+Set this variable to C<1> to always get the C<Carp::longmess> output
+of the warnings, instead of the regular C<carp>. This is the same
+message you would get by doing:
+
+    $tar->error(1);
+
+Defaults to C<0>.
+
+=head2 $Archive::Tar::WARN
+
+Set this variable to C<0> if you do not want any warnings printed.
+Personally I recommend against doing this, but people asked for the
+option. Also, be advised that this is of course not threadsafe.
+
+Defaults to C<1>.
+
+=head2 $Archive::Tar::error
+
+Holds the last reported error. Kept for historical reasons, but its
+use is very much discouraged. Use the C<error()> method instead:
+
+    warn $tar->error unless $tar->extract;
+
+Note that in older versions of this module, the C<error()> method
+would return an effectively global value even when called an instance
+method as above. This has since been fixed, and multiple instances of
+C<Archive::Tar> now have separate error strings.
+
+=head2 $Archive::Tar::INSECURE_EXTRACT_MODE
+
+This variable indicates whether C<Archive::Tar> should allow
+files to be extracted outside their current working directory.
+
+Allowing this could have security implications, as a malicious
+tar archive could alter or replace any file the extracting user
+has permissions to. Therefor, the default is to not allow
+insecure extractions.
+
+If you trust the archive, or have other reasons to allow the
+archive to write files outside your current working directory,
+set this variable to C<true>.
+
+Note that this is a backwards incompatible change from version
+C<1.36> and before.
+
+=head2 $Archive::Tar::HAS_PERLIO
+
+This variable holds a boolean indicating if we currently have
+C<perlio> support loaded. This will be enabled for any perl
+greater than C<5.8> compiled with C<perlio>.
+
+If you feel strongly about disabling it, set this variable to
+C<false>. Note that you will then need C<IO::String> installed
+to support writing stringified archives.
+
+Don't change this variable unless you B<really> know what you're
+doing.
+
+=head2 $Archive::Tar::HAS_IO_STRING
+
+This variable holds a boolean indicating if we currently have
+C<IO::String> support loaded. This will be enabled for any perl
+that has a loadable C<IO::String> module.
+
+If you feel strongly about disabling it, set this variable to
+C<false>. Note that you will then need C<perlio> support from
+your perl to be able to  write stringified archives.
+
+Don't change this variable unless you B<really> know what you're
+doing.
+
+=head2 $Archive::Tar::ZERO_PAD_NUMBERS
+
+This variable holds a boolean indicating if we will create
+zero padded numbers for C<size>, C<mtime> and C<checksum>.
+The default is C<0>, indicating that we will create space padded
+numbers. Added for compatibility with C<busybox> implementations.
+
+=head2 Tuning the way RESOLVE_SYMLINK will works
+
+	You can tune the behaviour by setting the $Archive::Tar::RESOLVE_SYMLINK variable,
+	or $ENV{PERL5_AT_RESOLVE_SYMLINK} before loading the module Archive::Tar.
+
+  Values can be one of the following:
+
+		none
+           Disable this mechanism and failed as it was in previous version (<1.88)
+
+		speed (default)
+           If you prefer speed
+           this will read again the whole archive using read() so all entries
+           will be available
+
+    memory
+           If you prefer memory
+
+	Limitation
+
+		It won't work for terminal, pipe or sockets or every non seekable source.
+
+=cut
+
+=head1 FAQ
+
+=over 4
+
+=item What's the minimum perl version required to run Archive::Tar?
+
+You will need perl version 5.005_03 or newer.
+
+=item Isn't Archive::Tar slow?
+
+Yes it is. It's pure perl, so it's a lot slower then your C</bin/tar>
+However, it's very portable. If speed is an issue, consider using
+C</bin/tar> instead.
+
+=item Isn't Archive::Tar heavier on memory than /bin/tar?
+
+Yes it is, see previous answer. Since C<Compress::Zlib> and therefore
+C<IO::Zlib> doesn't support C<seek> on their filehandles, there is little
+choice but to read the archive into memory.
+This is ok if you want to do in-memory manipulation of the archive.
+
+If you just want to extract, use the C<extract_archive> class method
+instead. It will optimize and write to disk immediately.
+
+Another option is to use the C<iter> class method to iterate over
+the files in the tarball without reading them all in memory at once.
+
+=item Can you lazy-load data instead?
+
+In some cases, yes. You can use the C<iter> class method to iterate
+over the files in the tarball without reading them all in memory at once.
+
+=item How much memory will an X kb tar file need?
+
+Probably more than X kb, since it will all be read into memory. If
+this is a problem, and you don't need to do in memory manipulation
+of the archive, consider using the C<iter> class method, or C</bin/tar>
+instead.
+
+=item What do you do with unsupported filetypes in an archive?
+
+C<Unix> has a few filetypes that aren't supported on other platforms,
+like C<Win32>. If we encounter a C<hardlink> or C<symlink> we'll just
+try to make a copy of the original file, rather than throwing an error.
+
+This does require you to read the entire archive in to memory first,
+since otherwise we wouldn't know what data to fill the copy with.
+(This means that you cannot use the class methods, including C<iter>
+on archives that have incompatible filetypes and still expect things
+to work).
+
+For other filetypes, like C<chardevs> and C<blockdevs> we'll warn that
+the extraction of this particular item didn't work.
+
+=item I'm using WinZip, or some other non-POSIX client, and files are not being extracted properly!
+
+By default, C<Archive::Tar> is in a completely POSIX-compatible
+mode, which uses the POSIX-specification of C<tar> to store files.
+For paths greater than 100 characters, this is done using the
+C<POSIX header prefix>. Non-POSIX-compatible clients may not support
+this part of the specification, and may only support the C<GNU Extended
+Header> functionality. To facilitate those clients, you can set the
+C<$Archive::Tar::DO_NOT_USE_PREFIX> variable to C<true>. See the
+C<GLOBAL VARIABLES> section for details on this variable.
+
+Note that GNU tar earlier than version 1.14 does not cope well with
+the C<POSIX header prefix>. If you use such a version, consider setting
+the C<$Archive::Tar::DO_NOT_USE_PREFIX> variable to C<true>.
+
+=item How do I extract only files that have property X from an archive?
+
+Sometimes, you might not wish to extract a complete archive, just
+the files that are relevant to you, based on some criteria.
+
+You can do this by filtering a list of C<Archive::Tar::File> objects
+based on your criteria. For example, to extract only files that have
+the string C<foo> in their title, you would use:
+
+    $tar->extract(
+        grep { $_->full_path =~ /foo/ } $tar->get_files
+    );
+
+This way, you can filter on any attribute of the files in the archive.
+Consult the C<Archive::Tar::File> documentation on how to use these
+objects.
+
+=item How do I access .tar.Z files?
+
+The C<Archive::Tar> module can optionally use C<Compress::Zlib> (via
+the C<IO::Zlib> module) to access tar files that have been compressed
+with C<gzip>. Unfortunately tar files compressed with the Unix C<compress>
+utility cannot be read by C<Compress::Zlib> and so cannot be directly
+accesses by C<Archive::Tar>.
+
+If the C<uncompress> or C<gunzip> programs are available, you can use
+one of these workarounds to read C<.tar.Z> files from C<Archive::Tar>
+
+Firstly with C<uncompress>
+
+    use Archive::Tar;
+
+    open F, "uncompress -c $filename |";
+    my $tar = Archive::Tar->new(*F);
+    ...
+
+and this with C<gunzip>
+
+    use Archive::Tar;
+
+    open F, "gunzip -c $filename |";
+    my $tar = Archive::Tar->new(*F);
+    ...
+
+Similarly, if the C<compress> program is available, you can use this to
+write a C<.tar.Z> file
+
+    use Archive::Tar;
+    use IO::File;
+
+    my $fh = new IO::File "| compress -c >$filename";
+    my $tar = Archive::Tar->new();
+    ...
+    $tar->write($fh);
+    $fh->close ;
+
+=item How do I handle Unicode strings?
+
+C<Archive::Tar> uses byte semantics for any files it reads from or writes
+to disk. This is not a problem if you only deal with files and never
+look at their content or work solely with byte strings. But if you use
+Unicode strings with character semantics, some additional steps need
+to be taken.
+
+For example, if you add a Unicode string like
+
+    # Problem
+    $tar->add_data('file.txt', "Euro: \x{20AC}");
+
+then there will be a problem later when the tarfile gets written out
+to disk via C<$tar->write()>:
+
+    Wide character in print at .../Archive/Tar.pm line 1014.
+
+The data was added as a Unicode string and when writing it out to disk,
+the C<:utf8> line discipline wasn't set by C<Archive::Tar>, so Perl
+tried to convert the string to ISO-8859 and failed. The written file
+now contains garbage.
+
+For this reason, Unicode strings need to be converted to UTF-8-encoded
+bytestrings before they are handed off to C<add_data()>:
+
+    use Encode;
+    my $data = "Accented character: \x{20AC}";
+    $data = encode('utf8', $data);
+
+    $tar->add_data('file.txt', $data);
+
+A opposite problem occurs if you extract a UTF8-encoded file from a
+tarball. Using C<get_content()> on the C<Archive::Tar::File> object
+will return its content as a bytestring, not as a Unicode string.
+
+If you want it to be a Unicode string (because you want character
+semantics with operations like regular expression matching), you need
+to decode the UTF8-encoded content and have Perl convert it into
+a Unicode string:
+
+    use Encode;
+    my $data = $tar->get_content();
+
+    # Make it a Unicode string
+    $data = decode('utf8', $data);
+
+There is no easy way to provide this functionality in C<Archive::Tar>,
+because a tarball can contain many files, and each of which could be
+encoded in a different way.
+
+=back
+
+=head1 CAVEATS
+
+The AIX tar does not fill all unused space in the tar archive with 0x00.
+This sometimes leads to warning messages from C<Archive::Tar>.
+
+  Invalid header block at offset nnn
+
+A fix for that problem is scheduled to be released in the following levels
+of AIX, all of which should be coming out in the 4th quarter of 2009:
+
+ AIX 5.3 TL7 SP10
+ AIX 5.3 TL8 SP8
+ AIX 5.3 TL9 SP5
+ AIX 5.3 TL10 SP2
+
+ AIX 6.1 TL0 SP11
+ AIX 6.1 TL1 SP7
+ AIX 6.1 TL2 SP6
+ AIX 6.1 TL3 SP3
+
+The IBM APAR number for this problem is IZ50240 (Reported component ID:
+5765G0300 / AIX 5.3). It is possible to get an ifix for that problem.
+If you need an ifix please contact your local IBM AIX support.
+
+=head1 TODO
+
+=over 4
+
+=item Check if passed in handles are open for read/write
+
+Currently I don't know of any portable pure perl way to do this.
+Suggestions welcome.
+
+=item Allow archives to be passed in as string
+
+Currently, we only allow opened filehandles or filenames, but
+not strings. The internals would need some reworking to facilitate
+stringified archives.
+
+=item Facilitate processing an opened filehandle of a compressed archive
+
+Currently, we only support this if the filehandle is an IO::Zlib object.
+Environments, like apache, will present you with an opened filehandle
+to an uploaded file, which might be a compressed archive.
+
+=back
+
+=head1 SEE ALSO
+
+=over 4
+
+=item The GNU tar specification
+
+C<http://www.gnu.org/software/tar/manual/tar.html>
+
+=item The PAX format specification
+
+The specification which tar derives from; C< http://www.opengroup.org/onlinepubs/007904975/utilities/pax.html>
+
+=item A comparison of GNU and POSIX tar standards; C<http://www.delorie.com/gnu/docs/tar/tar_114.html>
+
+=item GNU tar intends to switch to POSIX compatibility
+
+GNU Tar authors have expressed their intention to become completely
+POSIX-compatible; C<http://www.gnu.org/software/tar/manual/html_node/Formats.html>
+
+=item A Comparison between various tar implementations
+
+Lists known issues and incompatibilities; C<http://gd.tuwien.ac.at/utils/archivers/star/README.otherbugs>
+
+=back
+
+=head1 AUTHOR
+
+This module by Jos Boumans E<lt>kane@cpan.orgE<gt>.
+
+Please reports bugs to E<lt>bug-archive-tar@rt.cpan.orgE<gt>.
+
+=head1 ACKNOWLEDGEMENTS
+
+Thanks to Sean Burke, Chris Nandor, Chip Salzenberg, Tim Heaney, Gisle Aas,
+Rainer Tammer and especially Andrew Savige for their help and suggestions.
+
+=head1 COPYRIGHT
+
+This module is copyright (c) 2002 - 2009 Jos Boumans
+E<lt>kane@cpan.orgE<gt>. All rights reserved.
+
+This library is free software; you may redistribute and/or modify
+it under the same terms as Perl itself.
+
+=cut
diff --git a/lib/5.24.1/Archive/Tar/Constant.pm b/lib/5.24.1/Archive/Tar/Constant.pm
new file mode 100644
index 00000000..f9557e90
--- /dev/null
+++ b/lib/5.24.1/Archive/Tar/Constant.pm
@@ -0,0 +1,110 @@
+package Archive::Tar::Constant;
+
+BEGIN {
+    require Exporter;
+
+    $VERSION    = '2.04_01';
+    @ISA        = qw[Exporter];
+
+    require Time::Local if $^O eq "MacOS";
+}
+
+@EXPORT = Archive::Tar::Constant->_list_consts( __PACKAGE__ );
+
+use constant FILE           => 0;
+use constant HARDLINK       => 1;
+use constant SYMLINK        => 2;
+use constant CHARDEV        => 3;
+use constant BLOCKDEV       => 4;
+use constant DIR            => 5;
+use constant FIFO           => 6;
+use constant SOCKET         => 8;
+use constant UNKNOWN        => 9;
+use constant LONGLINK       => 'L';
+use constant LABEL          => 'V';
+
+use constant BUFFER         => 4096;
+use constant HEAD           => 512;
+use constant BLOCK          => 512;
+
+use constant COMPRESS_GZIP  => 9;
+use constant COMPRESS_BZIP  => 'bzip2';
+
+use constant BLOCK_SIZE     => sub { my $n = int($_[0]/BLOCK); $n++ if $_[0] % BLOCK; $n * BLOCK };
+use constant TAR_PAD        => sub { my $x = shift || return; return "\0" x (BLOCK - ($x % BLOCK) ) };
+use constant TAR_END        => "\0" x BLOCK;
+
+use constant READ_ONLY      => sub { shift() ? 'rb' : 'r' };
+use constant WRITE_ONLY     => sub { $_[0] ? 'wb' . shift : 'w' };
+use constant MODE_READ      => sub { $_[0] =~ /^r/ ? 1 : 0 };
+
+# Pointless assignment to make -w shut up
+my $getpwuid; $getpwuid = 'unknown' unless eval { my $f = getpwuid (0); };
+my $getgrgid; $getgrgid = 'unknown' unless eval { my $f = getgrgid (0); };
+use constant UNAME          => sub { $getpwuid || scalar getpwuid( shift() ) || '' };
+use constant GNAME          => sub { $getgrgid || scalar getgrgid( shift() ) || '' };
+use constant UID            => $>;
+use constant GID            => (split ' ', $) )[0];
+
+use constant MODE           => do { 0666 & (0777 & ~umask) };
+use constant STRIP_MODE     => sub { shift() & 0777 };
+use constant CHECK_SUM      => "      ";
+
+use constant UNPACK         => 'A100 A8 A8 A8 a12 A12 A8 A1 A100 A6 A2 A32 A32 A8 A8 A155 x12';	# cdrake - size must be a12 - not A12 - or else screws up huge file sizes (>8gb)
+use constant PACK           => 'a100 a8 a8 a8 a12 a12 A8 a1 a100 a6 a2 a32 a32 a8 a8 a155 x12';
+use constant NAME_LENGTH    => 100;
+use constant PREFIX_LENGTH  => 155;
+
+use constant TIME_OFFSET    => ($^O eq "MacOS") ? Time::Local::timelocal(0,0,0,1,0,70) : 0;
+use constant MAGIC          => "ustar";
+use constant TAR_VERSION    => "00";
+use constant LONGLINK_NAME  => '././@LongLink';
+use constant PAX_HEADER     => 'pax_global_header';
+
+                            ### allow ZLIB to be turned off using ENV: DEBUG only
+use constant ZLIB           => do { !$ENV{'PERL5_AT_NO_ZLIB'} and
+                                        eval { require IO::Zlib };
+                                    $ENV{'PERL5_AT_NO_ZLIB'} || $@ ? 0 : 1
+                                };
+
+                            ### allow BZIP to be turned off using ENV: DEBUG only
+use constant BZIP           => do { !$ENV{'PERL5_AT_NO_BZIP'} and
+                                        eval { require IO::Uncompress::Bunzip2;
+                                               require IO::Compress::Bzip2; };
+                                    $ENV{'PERL5_AT_NO_BZIP'} || $@ ? 0 : 1
+                                };
+
+use constant GZIP_MAGIC_NUM => qr/^(?:\037\213|\037\235)/;
+use constant BZIP_MAGIC_NUM => qr/^BZh\d/;
+
+use constant CAN_CHOWN      => sub { ($> == 0 and $^O ne "MacOS" and $^O ne "MSWin32") };
+use constant CAN_READLINK   => ($^O ne 'MSWin32' and $^O !~ /RISC(?:[ _])?OS/i and $^O ne 'VMS');
+use constant ON_UNIX        => ($^O ne 'MSWin32' and $^O ne 'MacOS' and $^O ne 'VMS');
+use constant ON_VMS         => $^O eq 'VMS';
+
+sub _list_consts {
+    my $class = shift;
+    my $pkg   = shift;
+    return unless defined $pkg; # some joker might use '0' as a pkg...
+
+    my @rv;
+    {   no strict 'refs';
+        my $stash = $pkg . '::';
+
+        for my $name (sort keys %$stash ) {
+
+            ### is it a subentry?
+            my $sub = $pkg->can( $name );
+            next unless defined $sub;
+
+            next unless defined prototype($sub) and
+                     not length prototype($sub);
+
+            push @rv, $name;
+        }
+    }
+
+    return sort @rv;
+}
+
+1;
diff --git a/lib/5.24.1/Archive/Tar/File.pm b/lib/5.24.1/Archive/Tar/File.pm
new file mode 100644
index 00000000..3ecad56f
--- /dev/null
+++ b/lib/5.24.1/Archive/Tar/File.pm
@@ -0,0 +1,715 @@
+package Archive::Tar::File;
+use strict;
+
+use Carp                ();
+use IO::File;
+use File::Spec::Unix    ();
+use File::Spec          ();
+use File::Basename      ();
+
+### avoid circular use, so only require;
+require Archive::Tar;
+use Archive::Tar::Constant;
+
+use vars qw[@ISA $VERSION];
+#@ISA        = qw[Archive::Tar];
+$VERSION    = '2.04_01';
+
+### set value to 1 to oct() it during the unpack ###
+
+my $tmpl = [
+        name        => 0,   # string					A100
+        mode        => 1,   # octal					A8
+        uid         => 1,   # octal					A8
+        gid         => 1,   # octal					A8
+        size        => 0,   # octal	# cdrake - not *always* octal..	A12
+        mtime       => 1,   # octal					A12
+        chksum      => 1,   # octal					A8
+        type        => 0,   # character					A1
+        linkname    => 0,   # string					A100
+        magic       => 0,   # string					A6
+        version     => 0,   # 2 bytes					A2
+        uname       => 0,   # string					A32
+        gname       => 0,   # string					A32
+        devmajor    => 1,   # octal					A8
+        devminor    => 1,   # octal					A8
+        prefix      => 0,	#					A155 x 12
+
+### end UNPACK items ###
+        raw         => 0,   # the raw data chunk
+        data        => 0,   # the data associated with the file --
+                            # This  might be very memory intensive
+];
+
+### install get/set accessors for this object.
+for ( my $i=0; $i<scalar @$tmpl ; $i+=2 ) {
+    my $key = $tmpl->[$i];
+    no strict 'refs';
+    *{__PACKAGE__."::$key"} = sub {
+        my $self = shift;
+        $self->{$key} = $_[0] if @_;
+
+        ### just in case the key is not there or undef or something ###
+        {   local $^W = 0;
+            return $self->{$key};
+        }
+    }
+}
+
+=head1 NAME
+
+Archive::Tar::File - a subclass for in-memory extracted file from Archive::Tar
+
+=head1 SYNOPSIS
+
+    my @items = $tar->get_files;
+
+    print $_->name, ' ', $_->size, "\n" for @items;
+
+    print $object->get_content;
+    $object->replace_content('new content');
+
+    $object->rename( 'new/full/path/to/file.c' );
+
+=head1 DESCRIPTION
+
+Archive::Tar::Files provides a neat little object layer for in-memory
+extracted files. It's mostly used internally in Archive::Tar to tidy
+up the code, but there's no reason users shouldn't use this API as
+well.
+
+=head2 Accessors
+
+A lot of the methods in this package are accessors to the various
+fields in the tar header:
+
+=over 4
+
+=item name
+
+The file's name
+
+=item mode
+
+The file's mode
+
+=item uid
+
+The user id owning the file
+
+=item gid
+
+The group id owning the file
+
+=item size
+
+File size in bytes
+
+=item mtime
+
+Modification time. Adjusted to mac-time on MacOS if required
+
+=item chksum
+
+Checksum field for the tar header
+
+=item type
+
+File type -- numeric, but comparable to exported constants -- see
+Archive::Tar's documentation
+
+=item linkname
+
+If the file is a symlink, the file it's pointing to
+
+=item magic
+
+Tar magic string -- not useful for most users
+
+=item version
+
+Tar version string -- not useful for most users
+
+=item uname
+
+The user name that owns the file
+
+=item gname
+
+The group name that owns the file
+
+=item devmajor
+
+Device major number in case of a special file
+
+=item devminor
+
+Device minor number in case of a special file
+
+=item prefix
+
+Any directory to prefix to the extraction path, if any
+
+=item raw
+
+Raw tar header -- not useful for most users
+
+=back
+
+=head1 Methods
+
+=head2 Archive::Tar::File->new( file => $path )
+
+Returns a new Archive::Tar::File object from an existing file.
+
+Returns undef on failure.
+
+=head2 Archive::Tar::File->new( data => $path, $data, $opt )
+
+Returns a new Archive::Tar::File object from data.
+
+C<$path> defines the file name (which need not exist), C<$data> the
+file contents, and C<$opt> is a reference to a hash of attributes
+which may be used to override the default attributes (fields in the
+tar header), which are described above in the Accessors section.
+
+Returns undef on failure.
+
+=head2 Archive::Tar::File->new( chunk => $chunk )
+
+Returns a new Archive::Tar::File object from a raw 512-byte tar
+archive chunk.
+
+Returns undef on failure.
+
+=cut
+
+sub new {
+    my $class   = shift;
+    my $what    = shift;
+
+    my $obj =   ($what eq 'chunk') ? __PACKAGE__->_new_from_chunk( @_ ) :
+                ($what eq 'file' ) ? __PACKAGE__->_new_from_file( @_ ) :
+                ($what eq 'data' ) ? __PACKAGE__->_new_from_data( @_ ) :
+                undef;
+
+    return $obj;
+}
+
+### copies the data, creates a clone ###
+sub clone {
+    my $self = shift;
+    return bless { %$self }, ref $self;
+}
+
+sub _new_from_chunk {
+    my $class = shift;
+    my $chunk = shift or return;    # 512 bytes of tar header
+    my %hash  = @_;
+
+    ### filter any arguments on defined-ness of values.
+    ### this allows overriding from what the tar-header is saying
+    ### about this tar-entry. Particularly useful for @LongLink files
+    my %args  = map { $_ => $hash{$_} } grep { defined $hash{$_} } keys %hash;
+
+    ### makes it start at 0 actually... :) ###
+    my $i = -1;
+    my %entry = map {
+	my ($s,$v)=($tmpl->[++$i],$tmpl->[++$i]);	# cdrake
+	($_)=($_=~/^([^\0]*)/) unless($s eq 'size');	# cdrake
+	$s=> $v ? oct $_ : $_				# cdrake
+	# $tmpl->[++$i] => $tmpl->[++$i] ? oct $_ : $_	# removed by cdrake - mucks up binary sizes >8gb
+    } unpack( UNPACK, $chunk );				# cdrake
+    # } map { /^([^\0]*)/ } unpack( UNPACK, $chunk );	# old - replaced now by cdrake
+
+
+    if(substr($entry{'size'}, 0, 1) eq "\x80") {	# binary size extension for files >8gigs (> octal 77777777777777)	# cdrake
+      my @sz=unpack("aCSNN",$entry{'size'}); $entry{'size'}=$sz[4]+(2**32)*$sz[3]+$sz[2]*(2**64);	# Use the low 80 bits (should use the upper 15 as well, but as at year 2011, that seems unlikely to ever be needed - the numbers are just too big...) # cdrake
+    } else {	# cdrake
+      ($entry{'size'})=($entry{'size'}=~/^([^\0]*)/); $entry{'size'}=oct $entry{'size'};	# cdrake
+    }	# cdrake
+
+
+    my $obj = bless { %entry, %args }, $class;
+
+	### magic is a filetype string.. it should have something like 'ustar' or
+	### something similar... if the chunk is garbage, skip it
+	return unless $obj->magic !~ /\W/;
+
+    ### store the original chunk ###
+    $obj->raw( $chunk );
+
+    $obj->type(FILE) if ( (!length $obj->type) or ($obj->type =~ /\W/) );
+    $obj->type(DIR)  if ( ($obj->is_file) && ($obj->name =~ m|/$|) );
+
+
+    return $obj;
+
+}
+
+sub _new_from_file {
+    my $class       = shift;
+    my $path        = shift;
+
+    ### path has to at least exist
+    return unless defined $path;
+
+    my $type        = __PACKAGE__->_filetype($path);
+    my $data        = '';
+
+    READ: {
+        unless ($type == DIR ) {
+            my $fh = IO::File->new;
+
+            unless( $fh->open($path) ) {
+                ### dangling symlinks are fine, stop reading but continue
+                ### creating the object
+                last READ if $type == SYMLINK;
+
+                ### otherwise, return from this function --
+                ### anything that's *not* a symlink should be
+                ### resolvable
+                return;
+            }
+
+            ### binmode needed to read files properly on win32 ###
+            binmode $fh;
+            $data = do { local $/; <$fh> };
+            close $fh;
+        }
+    }
+
+    my @items       = qw[mode uid gid size mtime];
+    my %hash        = map { shift(@items), $_ } (lstat $path)[2,4,5,7,9];
+
+    if (ON_VMS) {
+        ### VMS has two UID modes, traditional and POSIX.  Normally POSIX is
+        ### not used.  We currently do not have an easy way to see if we are in
+        ### POSIX mode.  In traditional mode, the UID is actually the VMS UIC.
+        ### The VMS UIC has the upper 16 bits is the GID, which in many cases
+        ### the VMS UIC will be larger than 209715, the largest that TAR can
+        ### handle.  So for now, assume it is traditional if the UID is larger
+        ### than 0x10000.
+
+        if ($hash{uid} > 0x10000) {
+            $hash{uid} = $hash{uid} & 0xFFFF;
+        }
+
+        ### The file length from stat() is the physical length of the file
+        ### However the amount of data read in may be more for some file types.
+        ### Fixed length files are read past the logical EOF to end of the block
+        ### containing.  Other file types get expanded on read because record
+        ### delimiters are added.
+
+        my $data_len = length $data;
+        $hash{size} = $data_len if $hash{size} < $data_len;
+
+    }
+    ### you *must* set size == 0 on symlinks, or the next entry will be
+    ### though of as the contents of the symlink, which is wrong.
+    ### this fixes bug #7937
+    $hash{size}     = 0 if ($type == DIR or $type == SYMLINK);
+    $hash{mtime}    -= TIME_OFFSET;
+
+    ### strip the high bits off the mode, which we don't need to store
+    $hash{mode}     = STRIP_MODE->( $hash{mode} );
+
+
+    ### probably requires some file path munging here ... ###
+    ### name and prefix are set later
+    my $obj = {
+        %hash,
+        name        => '',
+        chksum      => CHECK_SUM,
+        type        => $type,
+        linkname    => ($type == SYMLINK and CAN_READLINK)
+                            ? readlink $path
+                            : '',
+        magic       => MAGIC,
+        version     => TAR_VERSION,
+        uname       => UNAME->( $hash{uid} ),
+        gname       => GNAME->( $hash{gid} ),
+        devmajor    => 0,   # not handled
+        devminor    => 0,   # not handled
+        prefix      => '',
+        data        => $data,
+    };
+
+    bless $obj, $class;
+
+    ### fix up the prefix and file from the path
+    my($prefix,$file) = $obj->_prefix_and_file( $path );
+    $obj->prefix( $prefix );
+    $obj->name( $file );
+
+    return $obj;
+}
+
+sub _new_from_data {
+    my $class   = shift;
+    my $path    = shift;    return unless defined $path;
+    my $data    = shift;    return unless defined $data;
+    my $opt     = shift;
+
+    my $obj = {
+        data        => $data,
+        name        => '',
+        mode        => MODE,
+        uid         => UID,
+        gid         => GID,
+        size        => length $data,
+        mtime       => time - TIME_OFFSET,
+        chksum      => CHECK_SUM,
+        type        => FILE,
+        linkname    => '',
+        magic       => MAGIC,
+        version     => TAR_VERSION,
+        uname       => UNAME->( UID ),
+        gname       => GNAME->( GID ),
+        devminor    => 0,
+        devmajor    => 0,
+        prefix      => '',
+    };
+
+    ### overwrite with user options, if provided ###
+    if( $opt and ref $opt eq 'HASH' ) {
+        for my $key ( keys %$opt ) {
+
+            ### don't write bogus options ###
+            next unless exists $obj->{$key};
+            $obj->{$key} = $opt->{$key};
+        }
+    }
+
+    bless $obj, $class;
+
+    ### fix up the prefix and file from the path
+    my($prefix,$file) = $obj->_prefix_and_file( $path );
+    $obj->prefix( $prefix );
+    $obj->name( $file );
+
+    return $obj;
+}
+
+sub _prefix_and_file {
+    my $self = shift;
+    my $path = shift;
+
+    my ($vol, $dirs, $file) = File::Spec->splitpath( $path, $self->is_dir );
+    my @dirs = File::Spec->splitdir( $dirs );
+
+    ### so sometimes the last element is '' -- probably when trailing
+    ### dir slashes are encountered... this is of course pointless,
+    ### so remove it
+    pop @dirs while @dirs and not length $dirs[-1];
+
+    ### if it's a directory, then $file might be empty
+    $file = pop @dirs if $self->is_dir and not length $file;
+
+    ### splitting ../ gives you the relative path in native syntax
+    map { $_ = '..' if $_  eq '-' } @dirs if ON_VMS;
+
+    my $prefix = File::Spec::Unix->catdir(
+                        grep { length } $vol, @dirs
+                    );
+    return( $prefix, $file );
+}
+
+sub _filetype {
+    my $self = shift;
+    my $file = shift;
+
+    return unless defined $file;
+
+    return SYMLINK  if (-l $file);	# Symlink
+
+    return FILE     if (-f _);		# Plain file
+
+    return DIR      if (-d _);		# Directory
+
+    return FIFO     if (-p _);		# Named pipe
+
+    return SOCKET   if (-S _);		# Socket
+
+    return BLOCKDEV if (-b _);		# Block special
+
+    return CHARDEV  if (-c _);		# Character special
+
+    ### shouldn't happen, this is when making archives, not reading ###
+    return LONGLINK if ( $file eq LONGLINK_NAME );
+
+    return UNKNOWN;		            # Something else (like what?)
+
+}
+
+### this method 'downgrades' a file to plain file -- this is used for
+### symlinks when FOLLOW_SYMLINKS is true.
+sub _downgrade_to_plainfile {
+    my $entry = shift;
+    $entry->type( FILE );
+    $entry->mode( MODE );
+    $entry->linkname('');
+
+    return 1;
+}
+
+=head2 $bool = $file->extract( [ $alternative_name ] )
+
+Extract this object, optionally to an alternative name.
+
+See C<< Archive::Tar->extract_file >> for details.
+
+Returns true on success and false on failure.
+
+=cut
+
+sub extract {
+    my $self = shift;
+
+    local $Carp::CarpLevel += 1;
+
+    return Archive::Tar->_extract_file( $self, @_ );
+}
+
+=head2 $path = $file->full_path
+
+Returns the full path from the tar header; this is basically a
+concatenation of the C<prefix> and C<name> fields.
+
+=cut
+
+sub full_path {
+    my $self = shift;
+
+    ### if prefix field is empty
+    return $self->name unless defined $self->prefix and length $self->prefix;
+
+    ### or otherwise, catfile'd
+    return File::Spec::Unix->catfile( $self->prefix, $self->name );
+}
+
+
+=head2 $bool = $file->validate
+
+Done by Archive::Tar internally when reading the tar file:
+validate the header against the checksum to ensure integer tar file.
+
+Returns true on success, false on failure
+
+=cut
+
+sub validate {
+    my $self = shift;
+
+    my $raw = $self->raw;
+
+    ### don't know why this one is different from the one we /write/ ###
+    substr ($raw, 148, 8) = "        ";
+
+    ### bug #43513: [PATCH] Accept wrong checksums from SunOS and HP-UX tar
+    ### like GNU tar does. See here for details:
+    ### http://www.gnu.org/software/tar/manual/tar.html#SEC139
+    ### so we do both a signed AND unsigned validate. if one succeeds, that's
+    ### good enough
+	return (   (unpack ("%16C*", $raw) == $self->chksum)
+	        or (unpack ("%16c*", $raw) == $self->chksum)) ? 1 : 0;
+}
+
+=head2 $bool = $file->has_content
+
+Returns a boolean to indicate whether the current object has content.
+Some special files like directories and so on never will have any
+content. This method is mainly to make sure you don't get warnings
+for using uninitialized values when looking at an object's content.
+
+=cut
+
+sub has_content {
+    my $self = shift;
+    return defined $self->data() && length $self->data() ? 1 : 0;
+}
+
+=head2 $content = $file->get_content
+
+Returns the current content for the in-memory file
+
+=cut
+
+sub get_content {
+    my $self = shift;
+    $self->data( );
+}
+
+=head2 $cref = $file->get_content_by_ref
+
+Returns the current content for the in-memory file as a scalar
+reference. Normal users won't need this, but it will save memory if
+you are dealing with very large data files in your tar archive, since
+it will pass the contents by reference, rather than make a copy of it
+first.
+
+=cut
+
+sub get_content_by_ref {
+    my $self = shift;
+
+    return \$self->{data};
+}
+
+=head2 $bool = $file->replace_content( $content )
+
+Replace the current content of the file with the new content. This
+only affects the in-memory archive, not the on-disk version until
+you write it.
+
+Returns true on success, false on failure.
+
+=cut
+
+sub replace_content {
+    my $self = shift;
+    my $data = shift || '';
+
+    $self->data( $data );
+    $self->size( length $data );
+    return 1;
+}
+
+=head2 $bool = $file->rename( $new_name )
+
+Rename the current file to $new_name.
+
+Note that you must specify a Unix path for $new_name, since per tar
+standard, all files in the archive must be Unix paths.
+
+Returns true on success and false on failure.
+
+=cut
+
+sub rename {
+    my $self = shift;
+    my $path = shift;
+
+    return unless defined $path;
+
+    my ($prefix,$file) = $self->_prefix_and_file( $path );
+
+    $self->name( $file );
+    $self->prefix( $prefix );
+
+	return 1;
+}
+
+=head2 $bool = $file->chmod $mode)
+
+Change mode of $file to $mode. The mode can be a string or a number
+which is interpreted as octal whether or not a leading 0 is given.
+
+Returns true on success and false on failure.
+
+=cut
+
+sub chmod {
+    my $self  = shift;
+    my $mode = shift; return unless defined $mode && $mode =~ /^[0-7]{1,4}$/;
+    $self->{mode} = oct($mode);
+    return 1;
+}
+
+=head2 $bool = $file->chown( $user [, $group])
+
+Change owner of $file to $user. If a $group is given that is changed
+as well. You can also pass a single parameter with a colon separating the
+use and group as in 'root:wheel'.
+
+Returns true on success and false on failure.
+
+=cut
+
+sub chown {
+    my $self = shift;
+    my $uname = shift;
+    return unless defined $uname;
+    my $gname;
+    if (-1 != index($uname, ':')) {
+	($uname, $gname) = split(/:/, $uname);
+    } else {
+	$gname = shift if @_ > 0;
+    }
+
+    $self->uname( $uname );
+    $self->gname( $gname ) if $gname;
+	return 1;
+}
+
+=head1 Convenience methods
+
+To quickly check the type of a C<Archive::Tar::File> object, you can
+use the following methods:
+
+=over 4
+
+=item $file->is_file
+
+Returns true if the file is of type C<file>
+
+=item $file->is_dir
+
+Returns true if the file is of type C<dir>
+
+=item $file->is_hardlink
+
+Returns true if the file is of type C<hardlink>
+
+=item $file->is_symlink
+
+Returns true if the file is of type C<symlink>
+
+=item $file->is_chardev
+
+Returns true if the file is of type C<chardev>
+
+=item $file->is_blockdev
+
+Returns true if the file is of type C<blockdev>
+
+=item $file->is_fifo
+
+Returns true if the file is of type C<fifo>
+
+=item $file->is_socket
+
+Returns true if the file is of type C<socket>
+
+=item $file->is_longlink
+
+Returns true if the file is of type C<LongLink>.
+Should not happen after a successful C<read>.
+
+=item $file->is_label
+
+Returns true if the file is of type C<Label>.
+Should not happen after a successful C<read>.
+
+=item $file->is_unknown
+
+Returns true if the file type is C<unknown>
+
+=back
+
+=cut
+
+#stupid perl5.5.3 needs to warn if it's not numeric
+sub is_file     { local $^W;    FILE      == $_[0]->type }
+sub is_dir      { local $^W;    DIR       == $_[0]->type }
+sub is_hardlink { local $^W;    HARDLINK  == $_[0]->type }
+sub is_symlink  { local $^W;    SYMLINK   == $_[0]->type }
+sub is_chardev  { local $^W;    CHARDEV   == $_[0]->type }
+sub is_blockdev { local $^W;    BLOCKDEV  == $_[0]->type }
+sub is_fifo     { local $^W;    FIFO      == $_[0]->type }
+sub is_socket   { local $^W;    SOCKET    == $_[0]->type }
+sub is_unknown  { local $^W;    UNKNOWN   == $_[0]->type }
+sub is_longlink { local $^W;    LONGLINK  eq $_[0]->type }
+sub is_label    { local $^W;    LABEL     eq $_[0]->type }
+
+1;
diff --git a/lib/5.24.1/Attribute/Handlers.pm b/lib/5.24.1/Attribute/Handlers.pm
new file mode 100644
index 00000000..7c049d48
--- /dev/null
+++ b/lib/5.24.1/Attribute/Handlers.pm
@@ -0,0 +1,939 @@
+package Attribute::Handlers;
+use 5.006;
+use Carp;
+use warnings;
+use strict;
+use vars qw($VERSION $AUTOLOAD);
+$VERSION = '0.99'; # remember to update version in POD!
+# $DB::single=1;
+
+my %symcache;
+sub findsym {
+	my ($pkg, $ref, $type) = @_;
+	return $symcache{$pkg,$ref} if $symcache{$pkg,$ref};
+	$type ||= ref($ref);
+	no strict 'refs';
+	my $symtab = \%{$pkg."::"};
+	for ( keys %$symtab ) { for my $sym ( $$symtab{$_} ) {
+	    if (ref $sym && $sym == $ref) {
+		return $symcache{$pkg,$ref} = \*{"$pkg:\:$_"};
+	    }
+	    use strict;
+	    next unless ref ( \$sym ) eq 'GLOB';
+            return $symcache{$pkg,$ref} = \$sym
+		if *{$sym}{$type} && *{$sym}{$type} == $ref;
+	}}
+}
+
+my %validtype = (
+	VAR	=> [qw[SCALAR ARRAY HASH]],
+        ANY	=> [qw[SCALAR ARRAY HASH CODE]],
+        ""	=> [qw[SCALAR ARRAY HASH CODE]],
+        SCALAR	=> [qw[SCALAR]],
+        ARRAY	=> [qw[ARRAY]],
+        HASH	=> [qw[HASH]],
+        CODE	=> [qw[CODE]],
+);
+my %lastattr;
+my @declarations;
+my %raw;
+my %phase;
+my %sigil = (SCALAR=>'$', ARRAY=>'@', HASH=>'%');
+my $global_phase = 0;
+my %global_phases = (
+	BEGIN	=> 0,
+	CHECK	=> 1,
+	INIT	=> 2,
+	END	=> 3,
+);
+my @global_phases = qw(BEGIN CHECK INIT END);
+
+sub _usage_AH_ {
+	croak "Usage: use $_[0] autotie => {AttrName => TieClassName,...}";
+}
+
+my $qual_id = qr/^[_a-z]\w*(::[_a-z]\w*)*$/i;
+
+sub import {
+    my $class = shift @_;
+    return unless $class eq "Attribute::Handlers";
+    while (@_) {
+	my $cmd = shift;
+        if ($cmd =~ /^autotie((?:ref)?)$/) {
+	    my $tiedata = ($1 ? '$ref, ' : '') . '@$data';
+            my $mapping = shift;
+	    _usage_AH_ $class unless ref($mapping) eq 'HASH';
+	    while (my($attr, $tieclass) = each %$mapping) {
+                $tieclass =~ s/^([_a-z]\w*(::[_a-z]\w*)*)(.*)/$1/is;
+		my $args = $3||'()';
+		_usage_AH_ $class unless $attr =~ $qual_id
+		                 && $tieclass =~ $qual_id
+		                 && eval "use base q\0$tieclass\0; 1";
+	        if ($tieclass->isa('Exporter')) {
+		    local $Exporter::ExportLevel = 2;
+		    $tieclass->import(eval $args);
+	        }
+		$attr =~ s/__CALLER__/caller(1)/e;
+		$attr = caller()."::".$attr unless $attr =~ /::/;
+	        eval qq{
+	            sub $attr : ATTR(VAR) {
+			my (\$ref, \$data) = \@_[2,4];
+			my \$was_arrayref = ref \$data eq 'ARRAY';
+			\$data = [ \$data ] unless \$was_arrayref;
+			my \$type = ref(\$ref)||"value (".(\$ref||"<undef>").")";
+			 (\$type eq 'SCALAR')? tie \$\$ref,'$tieclass',$tiedata
+			:(\$type eq 'ARRAY') ? tie \@\$ref,'$tieclass',$tiedata
+			:(\$type eq 'HASH')  ? tie \%\$ref,'$tieclass',$tiedata
+			: die "Can't autotie a \$type\n"
+	            } 1
+	        } or die "Internal error: $@";
+	    }
+        }
+        else {
+            croak "Can't understand $_"; 
+        }
+    }
+}
+
+# On older perls, code attribute handlers run before the sub gets placed
+# in its package.  Since the :ATTR handlers need to know the name of the
+# sub they're applied to, the name lookup (via findsym) needs to be
+# delayed: we do it immediately before we might need to find attribute
+# handlers from their name.  However, on newer perls (which fix some
+# problems relating to attribute application), a sub gets placed in its
+# package before its attributes are processed.  In this case, the
+# delayed name lookup might be too late, because the sub we're looking
+# for might have already been replaced.  So we need to detect which way
+# round this perl does things, and time the name lookup accordingly.
+BEGIN {
+	my $delayed;
+	sub Attribute::Handlers::_TEST_::MODIFY_CODE_ATTRIBUTES {
+		$delayed = \&Attribute::Handlers::_TEST_::t != $_[1];
+		return ();
+	}
+	sub Attribute::Handlers::_TEST_::t :T { }
+	*_delayed_name_resolution = sub() { $delayed };
+	undef &Attribute::Handlers::_TEST_::MODIFY_CODE_ATTRIBUTES;
+	undef &Attribute::Handlers::_TEST_::t;
+}
+
+sub _resolve_lastattr {
+	return unless $lastattr{ref};
+	my $sym = findsym @lastattr{'pkg','ref'}
+		or die "Internal error: $lastattr{pkg} symbol went missing";
+	my $name = *{$sym}{NAME};
+	warn "Declaration of $name attribute in package $lastattr{pkg} may clash with future reserved word\n"
+		if $^W and $name !~ /[A-Z]/;
+	foreach ( @{$validtype{$lastattr{type}}} ) {
+		no strict 'refs';
+		*{"$lastattr{pkg}::_ATTR_${_}_${name}"} = $lastattr{ref};
+	}
+	%lastattr = ();
+}
+
+sub AUTOLOAD {
+	return if $AUTOLOAD =~ /::DESTROY$/;
+	my ($class) = $AUTOLOAD =~ m/(.*)::/g;
+	$AUTOLOAD =~ m/_ATTR_(.*?)_(.*)/ or
+	    croak "Can't locate class method '$AUTOLOAD' via package '$class'";
+	croak "Attribute handler '$2' doesn't handle $1 attributes";
+}
+
+my $builtin = qr/lvalue|method|locked|unique|shared/;
+
+sub _gen_handler_AH_() {
+	return sub {
+	    _resolve_lastattr if _delayed_name_resolution;
+	    my ($pkg, $ref, @attrs) = @_;
+	    my (undef, $filename, $linenum) = caller 2;
+	    foreach (@attrs) {
+		my ($attr, $data) = /^([a-z_]\w*)(?:[(](.*)[)])?$/is or next;
+		if ($attr eq 'ATTR') {
+			no strict 'refs';
+			$data ||= "ANY";
+			$raw{$ref} = $data =~ s/\s*,?\s*RAWDATA\s*,?\s*//;
+			$phase{$ref}{BEGIN} = 1
+				if $data =~ s/\s*,?\s*(BEGIN)\s*,?\s*//;
+			$phase{$ref}{INIT} = 1
+				if $data =~ s/\s*,?\s*(INIT)\s*,?\s*//;
+			$phase{$ref}{END} = 1
+				if $data =~ s/\s*,?\s*(END)\s*,?\s*//;
+			$phase{$ref}{CHECK} = 1
+				if $data =~ s/\s*,?\s*(CHECK)\s*,?\s*//
+				|| ! keys %{$phase{$ref}};
+			# Added for cleanup to not pollute next call.
+			(%lastattr = ()),
+			croak "Can't have two ATTR specifiers on one subroutine"
+				if keys %lastattr;
+			croak "Bad attribute type: ATTR($data)"
+				unless $validtype{$data};
+			%lastattr=(pkg=>$pkg,ref=>$ref,type=>$data);
+			_resolve_lastattr unless _delayed_name_resolution;
+		}
+		else {
+			my $type = ref $ref;
+			my $handler = $pkg->can("_ATTR_${type}_${attr}");
+			next unless $handler;
+		        my $decl = [$pkg, $ref, $attr, $data,
+				    $raw{$handler}, $phase{$handler}, $filename, $linenum];
+			foreach my $gphase (@global_phases) {
+			    _apply_handler_AH_($decl,$gphase)
+				if $global_phases{$gphase} <= $global_phase;
+			}
+			if ($global_phase != 0) {
+				# if _gen_handler_AH_ is being called after 
+				# CHECK it's for a lexical, so make sure
+				# it didn't want to run anything later
+			
+				local $Carp::CarpLevel = 2;
+				carp "Won't be able to apply END handler"
+					if $phase{$handler}{END};
+			}
+			else {
+				push @declarations, $decl
+			}
+		}
+		$_ = undef;
+	    }
+	    return grep {defined && !/$builtin/} @attrs;
+	}
+}
+
+{
+    no strict 'refs';
+    *{"Attribute::Handlers::UNIVERSAL::MODIFY_${_}_ATTRIBUTES"} =
+	_gen_handler_AH_ foreach @{$validtype{ANY}};
+}
+push @UNIVERSAL::ISA, 'Attribute::Handlers::UNIVERSAL'
+       unless grep /^Attribute::Handlers::UNIVERSAL$/, @UNIVERSAL::ISA;
+
+sub _apply_handler_AH_ {
+	my ($declaration, $phase) = @_;
+	my ($pkg, $ref, $attr, $data, $raw, $handlerphase, $filename, $linenum) = @$declaration;
+	return unless $handlerphase->{$phase};
+	# print STDERR "Handling $attr on $ref in $phase with [$data]\n";
+	my $type = ref $ref;
+	my $handler = "_ATTR_${type}_${attr}";
+	my $sym = findsym($pkg, $ref);
+	$sym ||= $type eq 'CODE' ? 'ANON' : 'LEXICAL';
+	no warnings;
+	if (!$raw && defined($data)) {
+	    if ($data ne '') {
+		my $evaled = eval("package $pkg; no warnings; no strict;
+				   local \$SIG{__WARN__}=sub{die}; [$data]");
+		$data = $evaled unless $@;
+	    }
+	    else { $data = undef }
+	}
+	$pkg->$handler($sym,
+		       (ref $sym eq 'GLOB' ? *{$sym}{ref $ref}||$ref : $ref),
+		       $attr,
+		       $data,
+		       $phase,
+		       $filename,
+		       $linenum,
+		      );
+	return 1;
+}
+
+{
+        no warnings 'void';
+        CHECK {
+                $global_phase++;
+                _resolve_lastattr if _delayed_name_resolution;
+                foreach my $decl (@declarations) {
+                        _apply_handler_AH_($decl, 'CHECK');
+                }
+        }
+
+        INIT {
+                $global_phase++;
+                foreach my $decl (@declarations) {
+                        _apply_handler_AH_($decl, 'INIT');
+                }
+        }
+}
+
+END {
+        $global_phase++;
+        foreach my $decl (@declarations) {
+                _apply_handler_AH_($decl, 'END');
+        }
+}
+
+1;
+__END__
+
+=head1 NAME
+
+Attribute::Handlers - Simpler definition of attribute handlers
+
+=head1 VERSION
+
+This document describes version 0.99 of Attribute::Handlers.
+
+=head1 SYNOPSIS
+
+    package MyClass;
+    require 5.006;
+    use Attribute::Handlers;
+    no warnings 'redefine';
+
+
+    sub Good : ATTR(SCALAR) {
+	my ($package, $symbol, $referent, $attr, $data) = @_;
+
+	# Invoked for any scalar variable with a :Good attribute,
+	# provided the variable was declared in MyClass (or
+	# a derived class) or typed to MyClass.
+
+	# Do whatever to $referent here (executed in CHECK phase).
+	...
+    }
+
+    sub Bad : ATTR(SCALAR) {
+	# Invoked for any scalar variable with a :Bad attribute,
+	# provided the variable was declared in MyClass (or
+	# a derived class) or typed to MyClass.
+	...
+    }
+
+    sub Good : ATTR(ARRAY) {
+	# Invoked for any array variable with a :Good attribute,
+	# provided the variable was declared in MyClass (or
+	# a derived class) or typed to MyClass.
+	...
+    }
+
+    sub Good : ATTR(HASH) {
+	# Invoked for any hash variable with a :Good attribute,
+	# provided the variable was declared in MyClass (or
+	# a derived class) or typed to MyClass.
+	...
+    }
+
+    sub Ugly : ATTR(CODE) {
+	# Invoked for any subroutine declared in MyClass (or a 
+	# derived class) with an :Ugly attribute.
+	...
+    }
+
+    sub Omni : ATTR {
+	# Invoked for any scalar, array, hash, or subroutine
+	# with an :Omni attribute, provided the variable or
+	# subroutine was declared in MyClass (or a derived class)
+	# or the variable was typed to MyClass.
+	# Use ref($_[2]) to determine what kind of referent it was.
+	...
+    }
+
+
+    use Attribute::Handlers autotie => { Cycle => Tie::Cycle };
+
+    my $next : Cycle(['A'..'Z']);
+
+
+=head1 DESCRIPTION
+
+This module, when inherited by a package, allows that package's class to
+define attribute handler subroutines for specific attributes. Variables
+and subroutines subsequently defined in that package, or in packages
+derived from that package may be given attributes with the same names as
+the attribute handler subroutines, which will then be called in one of
+the compilation phases (i.e. in a C<BEGIN>, C<CHECK>, C<INIT>, or C<END>
+block). (C<UNITCHECK> blocks don't correspond to a global compilation
+phase, so they can't be specified here.)
+
+To create a handler, define it as a subroutine with the same name as
+the desired attribute, and declare the subroutine itself with the  
+attribute C<:ATTR>. For example:
+
+    package LoudDecl;
+    use Attribute::Handlers;
+
+    sub Loud :ATTR {
+	my ($package, $symbol, $referent, $attr, $data, $phase,
+	    $filename, $linenum) = @_;
+	print STDERR
+	    ref($referent), " ",
+	    *{$symbol}{NAME}, " ",
+	    "($referent) ", "was just declared ",
+	    "and ascribed the ${attr} attribute ",
+	    "with data ($data)\n",
+	    "in phase $phase\n",
+	    "in file $filename at line $linenum\n";
+    }
+
+This creates a handler for the attribute C<:Loud> in the class LoudDecl.
+Thereafter, any subroutine declared with a C<:Loud> attribute in the class
+LoudDecl:
+
+    package LoudDecl;
+
+    sub foo: Loud {...}
+
+causes the above handler to be invoked, and passed:
+
+=over
+
+=item [0]
+
+the name of the package into which it was declared;
+
+=item [1]
+
+a reference to the symbol table entry (typeglob) containing the subroutine;
+
+=item [2]
+
+a reference to the subroutine;
+
+=item [3]
+
+the name of the attribute;
+
+=item [4]
+
+any data associated with that attribute;
+
+=item [5]
+
+the name of the phase in which the handler is being invoked;
+
+=item [6]
+
+the filename in which the handler is being invoked;
+
+=item [7]
+
+the line number in this file.
+
+=back
+
+Likewise, declaring any variables with the C<:Loud> attribute within the
+package:
+
+    package LoudDecl;
+
+    my $foo :Loud;
+    my @foo :Loud;
+    my %foo :Loud;
+
+will cause the handler to be called with a similar argument list (except,
+of course, that C<$_[2]> will be a reference to the variable).
+
+The package name argument will typically be the name of the class into
+which the subroutine was declared, but it may also be the name of a derived
+class (since handlers are inherited).
+
+If a lexical variable is given an attribute, there is no symbol table to 
+which it belongs, so the symbol table argument (C<$_[1]>) is set to the
+string C<'LEXICAL'> in that case. Likewise, ascribing an attribute to
+an anonymous subroutine results in a symbol table argument of C<'ANON'>.
+
+The data argument passes in the value (if any) associated with the
+attribute. For example, if C<&foo> had been declared:
+
+        sub foo :Loud("turn it up to 11, man!") {...}
+
+then a reference to an array containing the string
+C<"turn it up to 11, man!"> would be passed as the last argument.
+
+Attribute::Handlers makes strenuous efforts to convert
+the data argument (C<$_[4]>) to a usable form before passing it to
+the handler (but see L<"Non-interpretive attribute handlers">).
+If those efforts succeed, the interpreted data is passed in an array
+reference; if they fail, the raw data is passed as a string.
+For example, all of these:
+
+    sub foo :Loud(till=>ears=>are=>bleeding) {...}
+    sub foo :Loud(qw/till ears are bleeding/) {...}
+    sub foo :Loud(qw/till, ears, are, bleeding/) {...}
+    sub foo :Loud(till,ears,are,bleeding) {...}
+
+causes it to pass C<['till','ears','are','bleeding']> as the handler's
+data argument. While:
+
+    sub foo :Loud(['till','ears','are','bleeding']) {...}
+
+causes it to pass C<[ ['till','ears','are','bleeding'] ]>; the array
+reference specified in the data being passed inside the standard
+array reference indicating successful interpretation.
+
+However, if the data can't be parsed as valid Perl, then
+it is passed as an uninterpreted string. For example:
+
+    sub foo :Loud(my,ears,are,bleeding) {...}
+    sub foo :Loud(qw/my ears are bleeding) {...}
+
+cause the strings C<'my,ears,are,bleeding'> and
+C<'qw/my ears are bleeding'> respectively to be passed as the
+data argument.
+
+If no value is associated with the attribute, C<undef> is passed.
+
+=head2 Typed lexicals
+
+Regardless of the package in which it is declared, if a lexical variable is
+ascribed an attribute, the handler that is invoked is the one belonging to
+the package to which it is typed. For example, the following declarations:
+
+    package OtherClass;
+
+    my LoudDecl $loudobj : Loud;
+    my LoudDecl @loudobjs : Loud;
+    my LoudDecl %loudobjex : Loud;
+
+causes the LoudDecl::Loud handler to be invoked (even if OtherClass also
+defines a handler for C<:Loud> attributes).
+
+
+=head2 Type-specific attribute handlers
+
+If an attribute handler is declared and the C<:ATTR> specifier is
+given the name of a built-in type (C<SCALAR>, C<ARRAY>, C<HASH>, or C<CODE>),
+the handler is only applied to declarations of that type. For example,
+the following definition:
+
+    package LoudDecl;
+
+    sub RealLoud :ATTR(SCALAR) { print "Yeeeeow!" }
+
+creates an attribute handler that applies only to scalars:
+
+
+    package Painful;
+    use base LoudDecl;
+
+    my $metal : RealLoud;           # invokes &LoudDecl::RealLoud
+    my @metal : RealLoud;           # error: unknown attribute
+    my %metal : RealLoud;           # error: unknown attribute
+    sub metal : RealLoud {...}      # error: unknown attribute
+
+You can, of course, declare separate handlers for these types as well
+(but you'll need to specify C<no warnings 'redefine'> to do it quietly):
+
+    package LoudDecl;
+    use Attribute::Handlers;
+    no warnings 'redefine';
+
+    sub RealLoud :ATTR(SCALAR) { print "Yeeeeow!" }
+    sub RealLoud :ATTR(ARRAY) { print "Urrrrrrrrrr!" }
+    sub RealLoud :ATTR(HASH) { print "Arrrrrgggghhhhhh!" }
+    sub RealLoud :ATTR(CODE) { croak "Real loud sub torpedoed" }
+
+You can also explicitly indicate that a single handler is meant to be
+used for all types of referents like so:
+
+    package LoudDecl;
+    use Attribute::Handlers;
+
+    sub SeriousLoud :ATTR(ANY) { warn "Hearing loss imminent" }
+
+(I.e. C<ATTR(ANY)> is a synonym for C<:ATTR>).
+
+
+=head2 Non-interpretive attribute handlers
+
+Occasionally the strenuous efforts Attribute::Handlers makes to convert
+the data argument (C<$_[4]>) to a usable form before passing it to
+the handler get in the way.
+
+You can turn off that eagerness-to-help by declaring
+an attribute handler with the keyword C<RAWDATA>. For example:
+
+    sub Raw          : ATTR(RAWDATA) {...}
+    sub Nekkid       : ATTR(SCALAR,RAWDATA) {...}
+    sub Au::Naturale : ATTR(RAWDATA,ANY) {...}
+
+Then the handler makes absolutely no attempt to interpret the data it
+receives and simply passes it as a string:
+
+    my $power : Raw(1..100);        # handlers receives "1..100"
+
+=head2 Phase-specific attribute handlers
+
+By default, attribute handlers are called at the end of the compilation
+phase (in a C<CHECK> block). This seems to be optimal in most cases because
+most things that can be defined are defined by that point but nothing has
+been executed.
+
+However, it is possible to set up attribute handlers that are called at
+other points in the program's compilation or execution, by explicitly
+stating the phase (or phases) in which you wish the attribute handler to
+be called. For example:
+
+    sub Early    :ATTR(SCALAR,BEGIN) {...}
+    sub Normal   :ATTR(SCALAR,CHECK) {...}
+    sub Late     :ATTR(SCALAR,INIT) {...}
+    sub Final    :ATTR(SCALAR,END) {...}
+    sub Bookends :ATTR(SCALAR,BEGIN,END) {...}
+
+As the last example indicates, a handler may be set up to be (re)called in
+two or more phases. The phase name is passed as the handler's final argument.
+
+Note that attribute handlers that are scheduled for the C<BEGIN> phase
+are handled as soon as the attribute is detected (i.e. before any
+subsequently defined C<BEGIN> blocks are executed).
+
+
+=head2 Attributes as C<tie> interfaces
+
+Attributes make an excellent and intuitive interface through which to tie
+variables. For example:
+
+    use Attribute::Handlers;
+    use Tie::Cycle;
+
+    sub UNIVERSAL::Cycle : ATTR(SCALAR) {
+	my ($package, $symbol, $referent, $attr, $data, $phase) = @_;
+	$data = [ $data ] unless ref $data eq 'ARRAY';
+	tie $$referent, 'Tie::Cycle', $data;
+    }
+
+    # and thereafter...
+
+    package main;
+
+    my $next : Cycle('A'..'Z');     # $next is now a tied variable
+
+    while (<>) {
+	print $next;
+    }
+
+Note that, because the C<Cycle> attribute receives its arguments in the
+C<$data> variable, if the attribute is given a list of arguments, C<$data>
+will consist of a single array reference; otherwise, it will consist of the
+single argument directly. Since Tie::Cycle requires its cycling values to
+be passed as an array reference, this means that we need to wrap
+non-array-reference arguments in an array constructor:
+
+    $data = [ $data ] unless ref $data eq 'ARRAY';
+
+Typically, however, things are the other way around: the tieable class expects
+its arguments as a flattened list, so the attribute looks like:
+
+    sub UNIVERSAL::Cycle : ATTR(SCALAR) {
+	my ($package, $symbol, $referent, $attr, $data, $phase) = @_;
+	my @data = ref $data eq 'ARRAY' ? @$data : $data;
+	tie $$referent, 'Tie::Whatever', @data;
+    }
+
+
+This software pattern is so widely applicable that Attribute::Handlers
+provides a way to automate it: specifying C<'autotie'> in the
+C<use Attribute::Handlers> statement. So, the cycling example,
+could also be written:
+
+    use Attribute::Handlers autotie => { Cycle => 'Tie::Cycle' };
+
+    # and thereafter...
+
+    package main;
+
+    my $next : Cycle(['A'..'Z']);     # $next is now a tied variable
+
+    while (<>) {
+	print $next;
+    }
+
+Note that we now have to pass the cycling values as an array reference,
+since the C<autotie> mechanism passes C<tie> a list of arguments as a list
+(as in the Tie::Whatever example), I<not> as an array reference (as in
+the original Tie::Cycle example at the start of this section).
+
+The argument after C<'autotie'> is a reference to a hash in which each key is
+the name of an attribute to be created, and each value is the class to which
+variables ascribed that attribute should be tied.
+
+Note that there is no longer any need to import the Tie::Cycle module --
+Attribute::Handlers takes care of that automagically. You can even pass
+arguments to the module's C<import> subroutine, by appending them to the
+class name. For example:
+
+    use Attribute::Handlers
+	 autotie => { Dir => 'Tie::Dir qw(DIR_UNLINK)' };
+
+If the attribute name is unqualified, the attribute is installed in the
+current package. Otherwise it is installed in the qualifier's package:
+
+    package Here;
+
+    use Attribute::Handlers autotie => {
+         Other::Good => Tie::SecureHash, # tie attr installed in Other::
+                 Bad => Tie::Taxes,      # tie attr installed in Here::
+     UNIVERSAL::Ugly => Software::Patent # tie attr installed everywhere
+    };
+
+Autoties are most commonly used in the module to which they actually tie, 
+and need to export their attributes to any module that calls them. To
+facilitate this, Attribute::Handlers recognizes a special "pseudo-class" --
+C<__CALLER__>, which may be specified as the qualifier of an attribute:
+
+    package Tie::Me::Kangaroo:Down::Sport;
+
+    use Attribute::Handlers autotie =>
+	 { '__CALLER__::Roo' => __PACKAGE__ };
+
+This causes Attribute::Handlers to define the C<Roo> attribute in the package
+that imports the Tie::Me::Kangaroo:Down::Sport module.
+
+Note that it is important to quote the __CALLER__::Roo identifier because
+a bug in perl 5.8 will refuse to parse it and cause an unknown error.
+
+=head3 Passing the tied object to C<tie>
+
+Occasionally it is important to pass a reference to the object being tied
+to the TIESCALAR, TIEHASH, etc. that ties it. 
+
+The C<autotie> mechanism supports this too. The following code:
+
+    use Attribute::Handlers autotieref => { Selfish => Tie::Selfish };
+    my $var : Selfish(@args);
+
+has the same effect as:
+
+    tie my $var, 'Tie::Selfish', @args;
+
+But when C<"autotieref"> is used instead of C<"autotie">:
+
+    use Attribute::Handlers autotieref => { Selfish => Tie::Selfish };
+    my $var : Selfish(@args);
+
+the effect is to pass the C<tie> call an extra reference to the variable
+being tied:
+
+    tie my $var, 'Tie::Selfish', \$var, @args;
+
+
+
+=head1 EXAMPLES
+
+If the class shown in L</SYNOPSIS> were placed in the MyClass.pm
+module, then the following code:
+
+    package main;
+    use MyClass;
+
+    my MyClass $slr :Good :Bad(1**1-1) :Omni(-vorous);
+
+    package SomeOtherClass;
+    use base MyClass;
+
+    sub tent { 'acle' }
+
+    sub fn :Ugly(sister) :Omni('po',tent()) {...}
+    my @arr :Good :Omni(s/cie/nt/);
+    my %hsh :Good(q/bye/) :Omni(q/bus/);
+
+
+would cause the following handlers to be invoked:
+
+    # my MyClass $slr :Good :Bad(1**1-1) :Omni(-vorous);
+
+    MyClass::Good:ATTR(SCALAR)( 'MyClass',          # class
+                                'LEXICAL',          # no typeglob
+                                \$slr,              # referent
+                                'Good',             # attr name
+                                undef               # no attr data
+                                'CHECK',            # compiler phase
+                              );
+
+    MyClass::Bad:ATTR(SCALAR)( 'MyClass',           # class
+                               'LEXICAL',           # no typeglob
+                               \$slr,               # referent
+                               'Bad',               # attr name
+                               0                    # eval'd attr data
+                               'CHECK',             # compiler phase
+                             );
+
+    MyClass::Omni:ATTR(SCALAR)( 'MyClass',          # class
+                                'LEXICAL',          # no typeglob
+                                \$slr,              # referent
+                                'Omni',             # attr name
+                                '-vorous'           # eval'd attr data
+                                'CHECK',            # compiler phase
+                              );
+
+
+    # sub fn :Ugly(sister) :Omni('po',tent()) {...}
+
+    MyClass::UGLY:ATTR(CODE)( 'SomeOtherClass',     # class
+                              \*SomeOtherClass::fn, # typeglob
+                              \&SomeOtherClass::fn, # referent
+                              'Ugly',               # attr name
+                              'sister'              # eval'd attr data
+                              'CHECK',              # compiler phase
+                            );
+
+    MyClass::Omni:ATTR(CODE)( 'SomeOtherClass',     # class
+                              \*SomeOtherClass::fn, # typeglob
+                              \&SomeOtherClass::fn, # referent
+                              'Omni',               # attr name
+                              ['po','acle']         # eval'd attr data
+                              'CHECK',              # compiler phase
+                            );
+
+
+    # my @arr :Good :Omni(s/cie/nt/);
+
+    MyClass::Good:ATTR(ARRAY)( 'SomeOtherClass',    # class
+                               'LEXICAL',           # no typeglob
+                               \@arr,               # referent
+                               'Good',              # attr name
+                               undef                # no attr data
+                               'CHECK',             # compiler phase
+                             );
+
+    MyClass::Omni:ATTR(ARRAY)( 'SomeOtherClass',    # class
+                               'LEXICAL',           # no typeglob
+                               \@arr,               # referent
+                               'Omni',              # attr name
+                               ""                   # eval'd attr data 
+                               'CHECK',             # compiler phase
+                             );
+
+
+    # my %hsh :Good(q/bye) :Omni(q/bus/);
+
+    MyClass::Good:ATTR(HASH)( 'SomeOtherClass',     # class
+                              'LEXICAL',            # no typeglob
+                              \%hsh,                # referent
+                              'Good',               # attr name
+                              'q/bye'               # raw attr data
+                              'CHECK',              # compiler phase
+                            );
+
+    MyClass::Omni:ATTR(HASH)( 'SomeOtherClass',     # class
+                              'LEXICAL',            # no typeglob
+                              \%hsh,                # referent
+                              'Omni',               # attr name
+                              'bus'                 # eval'd attr data
+                              'CHECK',              # compiler phase
+                            );
+
+
+Installing handlers into UNIVERSAL, makes them...err..universal.
+For example:
+
+    package Descriptions;
+    use Attribute::Handlers;
+
+    my %name;
+    sub name { return $name{$_[2]}||*{$_[1]}{NAME} }
+
+    sub UNIVERSAL::Name :ATTR {
+        $name{$_[2]} = $_[4];
+    }
+
+    sub UNIVERSAL::Purpose :ATTR {
+        print STDERR "Purpose of ", &name, " is $_[4]\n";
+    }
+
+    sub UNIVERSAL::Unit :ATTR {
+        print STDERR &name, " measured in $_[4]\n";
+    }
+
+Let's you write:
+
+    use Descriptions;
+
+    my $capacity : Name(capacity)
+                 : Purpose(to store max storage capacity for files)
+                 : Unit(Gb);
+
+
+    package Other;
+
+    sub foo : Purpose(to foo all data before barring it) { }
+
+    # etc.
+
+=head1 UTILITY FUNCTIONS
+
+This module offers a single utility function, C<findsym()>.
+
+=over 4
+
+=item findsym
+
+    my $symbol = Attribute::Handlers::findsym($package, $referent);
+
+The function looks in the symbol table of C<$package> for the typeglob for
+C<$referent>, which is a reference to a variable or subroutine (SCALAR, ARRAY,
+HASH, or CODE). If it finds the typeglob, it returns it. Otherwise, it returns
+undef. Note that C<findsym> memoizes the typeglobs it has previously
+successfully found, so subsequent calls with the same arguments should be
+much faster.
+
+=back
+
+=head1 DIAGNOSTICS
+
+=over
+
+=item C<Bad attribute type: ATTR(%s)>
+
+An attribute handler was specified with an C<:ATTR(I<ref_type>)>, but the
+type of referent it was defined to handle wasn't one of the five permitted:
+C<SCALAR>, C<ARRAY>, C<HASH>, C<CODE>, or C<ANY>.
+
+=item C<Attribute handler %s doesn't handle %s attributes>
+
+A handler for attributes of the specified name I<was> defined, but not
+for the specified type of declaration. Typically encountered when trying
+to apply a C<VAR> attribute handler to a subroutine, or a C<SCALAR>
+attribute handler to some other type of variable.
+
+=item C<Declaration of %s attribute in package %s may clash with future reserved word>
+
+A handler for an attributes with an all-lowercase name was declared. An
+attribute with an all-lowercase name might have a meaning to Perl
+itself some day, even though most don't yet. Use a mixed-case attribute
+name, instead.
+
+=item C<Can't have two ATTR specifiers on one subroutine>
+
+You just can't, okay?
+Instead, put all the specifications together with commas between them
+in a single C<ATTR(I<specification>)>.
+
+=item C<Can't autotie a %s>
+
+You can only declare autoties for types C<"SCALAR">, C<"ARRAY">, and
+C<"HASH">. They're the only things (apart from typeglobs -- which are
+not declarable) that Perl can tie.
+
+=item C<Internal error: %s symbol went missing>
+
+Something is rotten in the state of the program. An attributed
+subroutine ceased to exist between the point it was declared and the point
+at which its attribute handler(s) would have been called.
+
+=item C<Won't be able to apply END handler>
+
+You have defined an END handler for an attribute that is being applied
+to a lexical variable.  Since the variable may not be available during END
+this won't happen.
+
+=back
+
+=head1 AUTHOR
+
+Damian Conway (damian@conway.org). The maintainer of this module is now Rafael
+Garcia-Suarez (rgarciasuarez@gmail.com).
+
+Maintainer of the CPAN release is Steffen Mueller (smueller@cpan.org).
+Contact him with technical difficulties with respect to the packaging of the
+CPAN module.
+
+=head1 BUGS
+
+There are undoubtedly serious bugs lurking somewhere in code this funky :-)
+Bug reports and other feedback are most welcome.
+
+=head1 COPYRIGHT AND LICENSE
+
+         Copyright (c) 2001-2014, Damian Conway. All Rights Reserved.
+       This module is free software. It may be used, redistributed
+           and/or modified under the same terms as Perl itself.
diff --git a/lib/5.24.1/AutoLoader.pm b/lib/5.24.1/AutoLoader.pm
new file mode 100644
index 00000000..5546f9e9
--- /dev/null
+++ b/lib/5.24.1/AutoLoader.pm
@@ -0,0 +1,453 @@
+package AutoLoader;
+
+use strict;
+use 5.006_001;
+
+our($VERSION, $AUTOLOAD);
+
+my $is_dosish;
+my $is_epoc;
+my $is_vms;
+my $is_macos;
+
+BEGIN {
+    $is_dosish = $^O eq 'dos' || $^O eq 'os2' || $^O eq 'MSWin32' || $^O eq 'NetWare';
+    $is_epoc = $^O eq 'epoc';
+    $is_vms = $^O eq 'VMS';
+    $is_macos = $^O eq 'MacOS';
+    $VERSION = '5.74';
+}
+
+AUTOLOAD {
+    my $sub = $AUTOLOAD;
+    autoload_sub($sub);
+    goto &$sub;
+}
+
+sub autoload_sub {
+    my $sub = shift;
+
+    my $filename = AutoLoader::find_filename( $sub );
+
+    my $save = $@;
+    local $!; # Do not munge the value. 
+    eval { local $SIG{__DIE__}; require $filename };
+    if ($@) {
+	if (substr($sub,-9) eq '::DESTROY') {
+	    no strict 'refs';
+	    *$sub = sub {};
+	    $@ = undef;
+	} elsif ($@ =~ /^Can't locate/) {
+	    # The load might just have failed because the filename was too
+	    # long for some old SVR3 systems which treat long names as errors.
+	    # If we can successfully truncate a long name then it's worth a go.
+	    # There is a slight risk that we could pick up the wrong file here
+	    # but autosplit should have warned about that when splitting.
+	    if ($filename =~ s/(\w{12,})\.al$/substr($1,0,11).".al"/e){
+		eval { local $SIG{__DIE__}; require $filename };
+	    }
+	}
+	if ($@){
+	    $@ =~ s/ at .*\n//;
+	    my $error = $@;
+	    require Carp;
+	    Carp::croak($error);
+	}
+    }
+    $@ = $save;
+
+    return 1;
+}
+
+sub find_filename {
+    my $sub = shift;
+    my $filename;
+    # Braces used to preserve $1 et al.
+    {
+	# Try to find the autoloaded file from the package-qualified
+	# name of the sub. e.g., if the sub needed is
+	# Getopt::Long::GetOptions(), then $INC{Getopt/Long.pm} is
+	# something like '/usr/lib/perl5/Getopt/Long.pm', and the
+	# autoload file is '/usr/lib/perl5/auto/Getopt/Long/GetOptions.al'.
+	#
+	# However, if @INC is a relative path, this might not work.  If,
+	# for example, @INC = ('lib'), then $INC{Getopt/Long.pm} is
+	# 'lib/Getopt/Long.pm', and we want to require
+	# 'auto/Getopt/Long/GetOptions.al' (without the leading 'lib').
+	# In this case, we simple prepend the 'auto/' and let the
+	# C<require> take care of the searching for us.
+
+	my ($pkg,$func) = ($sub =~ /(.*)::([^:]+)$/);
+	$pkg =~ s#::#/#g;
+	if (defined($filename = $INC{"$pkg.pm"})) {
+	    if ($is_macos) {
+		$pkg =~ tr#/#:#;
+		$filename = undef
+		  unless $filename =~ s#^(.*)$pkg\.pm\z#$1auto:$pkg:$func.al#s;
+	    } else {
+		$filename = undef
+		  unless $filename =~ s#^(.*)$pkg\.pm\z#$1auto/$pkg/$func.al#s;
+	    }
+
+	    # if the file exists, then make sure that it is a
+	    # a fully anchored path (i.e either '/usr/lib/auto/foo/bar.al',
+	    # or './lib/auto/foo/bar.al'.  This avoids C<require> searching
+	    # (and failing) to find the 'lib/auto/foo/bar.al' because it
+	    # looked for 'lib/lib/auto/foo/bar.al', given @INC = ('lib').
+
+	    if (defined $filename and -r $filename) {
+		unless ($filename =~ m|^/|s) {
+		    if ($is_dosish) {
+			unless ($filename =~ m{^([a-z]:)?[\\/]}is) {
+			    if ($^O ne 'NetWare') {
+				$filename = "./$filename";
+			    } else {
+				$filename = "$filename";
+			    }
+			}
+		    }
+		    elsif ($is_epoc) {
+			unless ($filename =~ m{^([a-z?]:)?[\\/]}is) {
+			     $filename = "./$filename";
+			}
+		    }
+		    elsif ($is_vms) {
+			# XXX todo by VMSmiths
+			$filename = "./$filename";
+		    }
+		    elsif (!$is_macos) {
+			$filename = "./$filename";
+		    }
+		}
+	    }
+	    else {
+		$filename = undef;
+	    }
+	}
+	unless (defined $filename) {
+	    # let C<require> do the searching
+	    $filename = "auto/$sub.al";
+	    $filename =~ s#::#/#g;
+	}
+    }
+    return $filename;
+}
+
+sub import {
+    my $pkg = shift;
+    my $callpkg = caller;
+
+    #
+    # Export symbols, but not by accident of inheritance.
+    #
+
+    if ($pkg eq 'AutoLoader') {
+	if ( @_ and $_[0] =~ /^&?AUTOLOAD$/ ) {
+	    no strict 'refs';
+	    *{ $callpkg . '::AUTOLOAD' } = \&AUTOLOAD;
+	}
+    }
+
+    #
+    # Try to find the autosplit index file.  Eg., if the call package
+    # is POSIX, then $INC{POSIX.pm} is something like
+    # '/usr/local/lib/perl5/POSIX.pm', and the autosplit index file is in
+    # '/usr/local/lib/perl5/auto/POSIX/autosplit.ix', so we require that.
+    #
+    # However, if @INC is a relative path, this might not work.  If,
+    # for example, @INC = ('lib'), then
+    # $INC{POSIX.pm} is 'lib/POSIX.pm', and we want to require
+    # 'auto/POSIX/autosplit.ix' (without the leading 'lib').
+    #
+
+    (my $calldir = $callpkg) =~ s#::#/#g;
+    my $path = $INC{$calldir . '.pm'};
+    if (defined($path)) {
+	# Try absolute path name, but only eval it if the
+        # transformation from module path to autosplit.ix path
+        # succeeded!
+	my $replaced_okay;
+	if ($is_macos) {
+	    (my $malldir = $calldir) =~ tr#/#:#;
+	    $replaced_okay = ($path =~ s#^(.*)$malldir\.pm\z#$1auto:$malldir:autosplit.ix#s);
+	} else {
+	    $replaced_okay = ($path =~ s#^(.*)$calldir\.pm\z#$1auto/$calldir/autosplit.ix#);
+	}
+
+	eval { require $path; } if $replaced_okay;
+	# If that failed, try relative path with normal @INC searching.
+	if (!$replaced_okay or $@) {
+	    $path ="auto/$calldir/autosplit.ix";
+	    eval { require $path; };
+	}
+	if ($@) {
+	    my $error = $@;
+	    require Carp;
+	    Carp::carp($error);
+	}
+    } 
+}
+
+sub unimport {
+    my $callpkg = caller;
+
+    no strict 'refs';
+
+    for my $exported (qw( AUTOLOAD )) {
+	my $symname = $callpkg . '::' . $exported;
+	undef *{ $symname } if \&{ $symname } == \&{ $exported };
+	*{ $symname } = \&{ $symname };
+    }
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+AutoLoader - load subroutines only on demand
+
+=head1 SYNOPSIS
+
+    package Foo;
+    use AutoLoader 'AUTOLOAD';   # import the default AUTOLOAD subroutine
+
+    package Bar;
+    use AutoLoader;              # don't import AUTOLOAD, define our own
+    sub AUTOLOAD {
+        ...
+        $AutoLoader::AUTOLOAD = "...";
+        goto &AutoLoader::AUTOLOAD;
+    }
+
+=head1 DESCRIPTION
+
+The B<AutoLoader> module works with the B<AutoSplit> module and the
+C<__END__> token to defer the loading of some subroutines until they are
+used rather than loading them all at once.
+
+To use B<AutoLoader>, the author of a module has to place the
+definitions of subroutines to be autoloaded after an C<__END__> token.
+(See L<perldata>.)  The B<AutoSplit> module can then be run manually to
+extract the definitions into individual files F<auto/funcname.al>.
+
+B<AutoLoader> implements an AUTOLOAD subroutine.  When an undefined
+subroutine in is called in a client module of B<AutoLoader>,
+B<AutoLoader>'s AUTOLOAD subroutine attempts to locate the subroutine in a
+file with a name related to the location of the file from which the
+client module was read.  As an example, if F<POSIX.pm> is located in
+F</usr/local/lib/perl5/POSIX.pm>, B<AutoLoader> will look for perl
+subroutines B<POSIX> in F</usr/local/lib/perl5/auto/POSIX/*.al>, where
+the C<.al> file has the same name as the subroutine, sans package.  If
+such a file exists, AUTOLOAD will read and evaluate it,
+thus (presumably) defining the needed subroutine.  AUTOLOAD will then
+C<goto> the newly defined subroutine.
+
+Once this process completes for a given function, it is defined, so
+future calls to the subroutine will bypass the AUTOLOAD mechanism.
+
+=head2 Subroutine Stubs
+
+In order for object method lookup and/or prototype checking to operate
+correctly even when methods have not yet been defined it is necessary to
+"forward declare" each subroutine (as in C<sub NAME;>).  See
+L<perlsub/"SYNOPSIS">.  Such forward declaration creates "subroutine
+stubs", which are place holders with no code.
+
+The AutoSplit and B<AutoLoader> modules automate the creation of forward
+declarations.  The AutoSplit module creates an 'index' file containing
+forward declarations of all the AutoSplit subroutines.  When the
+AutoLoader module is 'use'd it loads these declarations into its callers
+package.
+
+Because of this mechanism it is important that B<AutoLoader> is always
+C<use>d and not C<require>d.
+
+=head2 Using B<AutoLoader>'s AUTOLOAD Subroutine
+
+In order to use B<AutoLoader>'s AUTOLOAD subroutine you I<must>
+explicitly import it:
+
+    use AutoLoader 'AUTOLOAD';
+
+=head2 Overriding B<AutoLoader>'s AUTOLOAD Subroutine
+
+Some modules, mainly extensions, provide their own AUTOLOAD subroutines.
+They typically need to check for some special cases (such as constants)
+and then fallback to B<AutoLoader>'s AUTOLOAD for the rest.
+
+Such modules should I<not> import B<AutoLoader>'s AUTOLOAD subroutine.
+Instead, they should define their own AUTOLOAD subroutines along these
+lines:
+
+    use AutoLoader;
+    use Carp;
+
+    sub AUTOLOAD {
+        my $sub = $AUTOLOAD;
+        (my $constname = $sub) =~ s/.*:://;
+        my $val = constant($constname, @_ ? $_[0] : 0);
+        if ($! != 0) {
+            if ($! =~ /Invalid/ || $!{EINVAL}) {
+                $AutoLoader::AUTOLOAD = $sub;
+                goto &AutoLoader::AUTOLOAD;
+            }
+            else {
+                croak "Your vendor has not defined constant $constname";
+            }
+        }
+        *$sub = sub { $val }; # same as: eval "sub $sub { $val }";
+        goto &$sub;
+    }
+
+If any module's own AUTOLOAD subroutine has no need to fallback to the
+AutoLoader's AUTOLOAD subroutine (because it doesn't have any AutoSplit
+subroutines), then that module should not use B<AutoLoader> at all.
+
+=head2 Package Lexicals
+
+Package lexicals declared with C<my> in the main block of a package
+using B<AutoLoader> will not be visible to auto-loaded subroutines, due to
+the fact that the given scope ends at the C<__END__> marker.  A module
+using such variables as package globals will not work properly under the
+B<AutoLoader>.
+
+The C<vars> pragma (see L<perlmod/"vars">) may be used in such
+situations as an alternative to explicitly qualifying all globals with
+the package namespace.  Variables pre-declared with this pragma will be
+visible to any autoloaded routines (but will not be invisible outside
+the package, unfortunately).
+
+=head2 Not Using AutoLoader
+
+You can stop using AutoLoader by simply
+
+	no AutoLoader;
+
+=head2 B<AutoLoader> vs. B<SelfLoader>
+
+The B<AutoLoader> is similar in purpose to B<SelfLoader>: both delay the
+loading of subroutines.
+
+B<SelfLoader> uses the C<__DATA__> marker rather than C<__END__>.
+While this avoids the use of a hierarchy of disk files and the
+associated open/close for each routine loaded, B<SelfLoader> suffers a
+startup speed disadvantage in the one-time parsing of the lines after
+C<__DATA__>, after which routines are cached.  B<SelfLoader> can also
+handle multiple packages in a file.
+
+B<AutoLoader> only reads code as it is requested, and in many cases
+should be faster, but requires a mechanism like B<AutoSplit> be used to
+create the individual files.  L<ExtUtils::MakeMaker> will invoke
+B<AutoSplit> automatically if B<AutoLoader> is used in a module source
+file.
+
+=head2 Forcing AutoLoader to Load a Function
+
+Sometimes, it can be necessary or useful to make sure that a certain
+function is fully loaded by AutoLoader. This is the case, for example,
+when you need to wrap a function to inject debugging code. It is also
+helpful to force early loading of code before forking to make use of
+copy-on-write as much as possible.
+
+Starting with AutoLoader 5.73, you can call the
+C<AutoLoader::autoload_sub> function with the fully-qualified name of
+the function to load from its F<.al> file. The behaviour is exactly
+the same as if you called the function, triggering the regular
+C<AUTOLOAD> mechanism, but it does not actually execute the
+autoloaded function.
+
+=head1 CAVEATS
+
+AutoLoaders prior to Perl 5.002 had a slightly different interface.  Any
+old modules which use B<AutoLoader> should be changed to the new calling
+style.  Typically this just means changing a require to a use, adding
+the explicit C<'AUTOLOAD'> import if needed, and removing B<AutoLoader>
+from C<@ISA>.
+
+On systems with restrictions on file name length, the file corresponding
+to a subroutine may have a shorter name that the routine itself.  This
+can lead to conflicting file names.  The I<AutoSplit> package warns of
+these potential conflicts when used to split a module.
+
+AutoLoader may fail to find the autosplit files (or even find the wrong
+ones) in cases where C<@INC> contains relative paths, B<and> the program
+does C<chdir>.
+
+=head1 SEE ALSO
+
+L<SelfLoader> - an autoloader that doesn't use external files.
+
+=head1 AUTHOR
+
+C<AutoLoader> is maintained by the perl5-porters. Please direct
+any questions to the canonical mailing list. Anything that
+is applicable to the CPAN release can be sent to its maintainer,
+though.
+
+Author and Maintainer: The Perl5-Porters <perl5-porters@perl.org>
+
+Maintainer of the CPAN release: Steffen Mueller <smueller@cpan.org>
+
+=head1 COPYRIGHT AND LICENSE
+
+This package has been part of the perl core since the first release
+of perl5. It has been released separately to CPAN so older installations
+can benefit from bug fixes.
+
+This package has the same copyright and license as the perl core:
+
+             Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999,
+        2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009,
+	2011, 2012, 2013
+        by Larry Wall and others
+    
+			    All rights reserved.
+    
+    This program is free software; you can redistribute it and/or modify
+    it under the terms of either:
+    
+	a) the GNU General Public License as published by the Free
+	Software Foundation; either version 1, or (at your option) any
+	later version, or
+    
+	b) the "Artistic License" which comes with this Kit.
+    
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See either
+    the GNU General Public License or the Artistic License for more details.
+    
+    You should have received a copy of the Artistic License with this
+    Kit, in the file named "Artistic".  If not, I'll be glad to provide one.
+    
+    You should also have received a copy of the GNU General Public License
+    along with this program in the file named "Copying". If not, write to the 
+    Free Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston,
+    MA 02110-1301, USA or visit their web page on the internet at
+    http://www.gnu.org/copyleft/gpl.html.
+    
+    For those of you that choose to use the GNU General Public License,
+    my interpretation of the GNU General Public License is that no Perl
+    script falls under the terms of the GPL unless you explicitly put
+    said script under the terms of the GPL yourself.  Furthermore, any
+    object code linked with perl does not automatically fall under the
+    terms of the GPL, provided such object code only adds definitions
+    of subroutines and variables, and does not otherwise impair the
+    resulting interpreter from executing any standard Perl script.  I
+    consider linking in C subroutines in this manner to be the moral
+    equivalent of defining subroutines in the Perl language itself.  You
+    may sell such an object file as proprietary provided that you provide
+    or offer to provide the Perl source, as specified by the GNU General
+    Public License.  (This is merely an alternate way of specifying input
+    to the program.)  You may also sell a binary produced by the dumping of
+    a running Perl script that belongs to you, provided that you provide or
+    offer to provide the Perl source as specified by the GPL.  (The
+    fact that a Perl interpreter and your code are in the same binary file
+    is, in this case, a form of mere aggregation.)  This is my interpretation
+    of the GPL.  If you still have concerns or difficulties understanding
+    my intent, feel free to contact me.  Of course, the Artistic License
+    spells all this out for your protection, so you may prefer to use that.
+
+=cut
diff --git a/lib/5.24.1/AutoSplit.pm b/lib/5.24.1/AutoSplit.pm
new file mode 100644
index 00000000..c093f2dd
--- /dev/null
+++ b/lib/5.24.1/AutoSplit.pm
@@ -0,0 +1,592 @@
+package AutoSplit;
+
+use Exporter ();
+use Config qw(%Config);
+use File::Basename ();
+use File::Path qw(mkpath);
+use File::Spec::Functions qw(curdir catfile catdir);
+use strict;
+our($VERSION, @ISA, @EXPORT, @EXPORT_OK, $Verbose, $Keep, $Maxlen,
+    $CheckForAutoloader, $CheckModTime);
+
+$VERSION = "1.06";
+@ISA = qw(Exporter);
+@EXPORT = qw(&autosplit &autosplit_lib_modules);
+@EXPORT_OK = qw($Verbose $Keep $Maxlen $CheckForAutoloader $CheckModTime);
+
+=head1 NAME
+
+AutoSplit - split a package for autoloading
+
+=head1 SYNOPSIS
+
+ autosplit($file, $dir, $keep, $check, $modtime);
+
+ autosplit_lib_modules(@modules);
+
+=head1 DESCRIPTION
+
+This function will split up your program into files that the AutoLoader
+module can handle. It is used by both the standard perl libraries and by
+the MakeMaker utility, to automatically configure libraries for autoloading.
+
+The C<autosplit> interface splits the specified file into a hierarchy 
+rooted at the directory C<$dir>. It creates directories as needed to reflect
+class hierarchy, and creates the file F<autosplit.ix>. This file acts as
+both forward declaration of all package routines, and as timestamp for the
+last update of the hierarchy.
+
+The remaining three arguments to C<autosplit> govern other options to
+the autosplitter.
+
+=over 2
+
+=item $keep
+
+If the third argument, I<$keep>, is false, then any
+pre-existing C<*.al> files in the autoload directory are removed if
+they are no longer part of the module (obsoleted functions).
+$keep defaults to 0.
+
+=item $check
+
+The
+fourth argument, I<$check>, instructs C<autosplit> to check the module
+currently being split to ensure that it includes a C<use>
+specification for the AutoLoader module, and skips the module if
+AutoLoader is not detected.
+$check defaults to 1.
+
+=item $modtime
+
+Lastly, the I<$modtime> argument specifies
+that C<autosplit> is to check the modification time of the module
+against that of the C<autosplit.ix> file, and only split the module if
+it is newer.
+$modtime defaults to 1.
+
+=back
+
+Typical use of AutoSplit in the perl MakeMaker utility is via the command-line
+with:
+
+ perl -e 'use AutoSplit; autosplit($ARGV[0], $ARGV[1], 0, 1, 1)'
+
+Defined as a Make macro, it is invoked with file and directory arguments;
+C<autosplit> will split the specified file into the specified directory and
+delete obsolete C<.al> files, after checking first that the module does use
+the AutoLoader, and ensuring that the module is not already currently split
+in its current form (the modtime test).
+
+The C<autosplit_lib_modules> form is used in the building of perl. It takes
+as input a list of files (modules) that are assumed to reside in a directory
+B<lib> relative to the current directory. Each file is sent to the 
+autosplitter one at a time, to be split into the directory B<lib/auto>.
+
+In both usages of the autosplitter, only subroutines defined following the
+perl I<__END__> token are split out into separate files. Some
+routines may be placed prior to this marker to force their immediate loading
+and parsing.
+
+=head2 Multiple packages
+
+As of version 1.01 of the AutoSplit module it is possible to have
+multiple packages within a single file. Both of the following cases
+are supported:
+
+   package NAME;
+   __END__
+   sub AAA { ... }
+   package NAME::option1;
+   sub BBB { ... }
+   package NAME::option2;
+   sub BBB { ... }
+
+   package NAME;
+   __END__
+   sub AAA { ... }
+   sub NAME::option1::BBB { ... }
+   sub NAME::option2::BBB { ... }
+
+=head1 DIAGNOSTICS
+
+C<AutoSplit> will inform the user if it is necessary to create the
+top-level directory specified in the invocation. It is preferred that
+the script or installation process that invokes C<AutoSplit> have
+created the full directory path ahead of time. This warning may
+indicate that the module is being split into an incorrect path.
+
+C<AutoSplit> will warn the user of all subroutines whose name causes
+potential file naming conflicts on machines with drastically limited
+(8 characters or less) file name length. Since the subroutine name is
+used as the file name, these warnings can aid in portability to such
+systems.
+
+Warnings are issued and the file skipped if C<AutoSplit> cannot locate
+either the I<__END__> marker or a "package Name;"-style specification.
+
+C<AutoSplit> will also emit general diagnostics for inability to
+create directories or files.
+
+=head1 AUTHOR
+
+C<AutoSplit> is maintained by the perl5-porters. Please direct
+any questions to the canonical mailing list. Anything that
+is applicable to the CPAN release can be sent to its maintainer,
+though.
+
+Author and Maintainer: The Perl5-Porters <perl5-porters@perl.org>
+
+Maintainer of the CPAN release: Steffen Mueller <smueller@cpan.org>
+
+=head1 COPYRIGHT AND LICENSE
+
+This package has been part of the perl core since the first release
+of perl5. It has been released separately to CPAN so older installations
+can benefit from bug fixes.
+
+This package has the same copyright and license as the perl core:
+
+             Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999,
+        2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008
+        by Larry Wall and others
+    
+			    All rights reserved.
+    
+    This program is free software; you can redistribute it and/or modify
+    it under the terms of either:
+    
+	a) the GNU General Public License as published by the Free
+	Software Foundation; either version 1, or (at your option) any
+	later version, or
+    
+	b) the "Artistic License" which comes with this Kit.
+    
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See either
+    the GNU General Public License or the Artistic License for more details.
+    
+    You should have received a copy of the Artistic License with this
+    Kit, in the file named "Artistic".  If not, I'll be glad to provide one.
+    
+    You should also have received a copy of the GNU General Public License
+    along with this program in the file named "Copying". If not, write to the 
+    Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 
+    02111-1307, USA or visit their web page on the internet at
+    http://www.gnu.org/copyleft/gpl.html.
+    
+    For those of you that choose to use the GNU General Public License,
+    my interpretation of the GNU General Public License is that no Perl
+    script falls under the terms of the GPL unless you explicitly put
+    said script under the terms of the GPL yourself.  Furthermore, any
+    object code linked with perl does not automatically fall under the
+    terms of the GPL, provided such object code only adds definitions
+    of subroutines and variables, and does not otherwise impair the
+    resulting interpreter from executing any standard Perl script.  I
+    consider linking in C subroutines in this manner to be the moral
+    equivalent of defining subroutines in the Perl language itself.  You
+    may sell such an object file as proprietary provided that you provide
+    or offer to provide the Perl source, as specified by the GNU General
+    Public License.  (This is merely an alternate way of specifying input
+    to the program.)  You may also sell a binary produced by the dumping of
+    a running Perl script that belongs to you, provided that you provide or
+    offer to provide the Perl source as specified by the GPL.  (The
+    fact that a Perl interpreter and your code are in the same binary file
+    is, in this case, a form of mere aggregation.)  This is my interpretation
+    of the GPL.  If you still have concerns or difficulties understanding
+    my intent, feel free to contact me.  Of course, the Artistic License
+    spells all this out for your protection, so you may prefer to use that.
+
+=cut
+
+# for portability warn about names longer than $maxlen
+$Maxlen  = 8;	# 8 for dos, 11 (14-".al") for SYSVR3
+$Verbose = 1;	# 0=none, 1=minimal, 2=list .al files
+$Keep    = 0;
+$CheckForAutoloader = 1;
+$CheckModTime = 1;
+
+my $IndexFile = "autosplit.ix";	# file also serves as timestamp
+my $maxflen = 255;
+$maxflen = 14 if $Config{'d_flexfnam'} ne 'define';
+if (defined (&Dos::UseLFN)) {
+     $maxflen = Dos::UseLFN() ? 255 : 11;
+}
+my $Is_VMS = ($^O eq 'VMS');
+
+# allow checking for valid ': attrlist' attachments.
+# extra jugglery required to support both 5.8 and 5.9/5.10 features
+# (support for 5.8 required for cross-compiling environments)
+
+my $attr_list = 
+  $] >= 5.009005 ?
+  eval <<'__QR__'
+  qr{
+    \s* : \s*
+    (?:
+	# one attribute
+	(?> # no backtrack
+	    (?! \d) \w+
+	    (?<nested> \( (?: [^()]++ | (?&nested)++ )*+ \) ) ?
+	)
+	(?: \s* : \s* | \s+ (?! :) )
+    )*
+  }x
+__QR__
+  :
+  do {
+    # In pre-5.9.5 world we have to do dirty tricks.
+    # (we use 'our' rather than 'my' here, due to the rather complex and buggy
+    # behaviour of lexicals with qr// and (??{$lex}) )
+    our $trick1; # yes, cannot our and assign at the same time.
+    $trick1 = qr{ \( (?: (?> [^()]+ ) | (??{ $trick1 }) )* \) }x;
+    our $trick2 = qr{ (?> (?! \d) \w+ (?:$trick1)? ) (?:\s*\:\s*|\s+(?!\:)) }x;
+    qr{ \s* : \s* (?: $trick2 )* }x;
+  };
+
+sub autosplit{
+    my($file, $autodir,  $keep, $ckal, $ckmt) = @_;
+    # $file    - the perl source file to be split (after __END__)
+    # $autodir - the ".../auto" dir below which to write split subs
+    # Handle optional flags:
+    $keep = $Keep unless defined $keep;
+    $ckal = $CheckForAutoloader unless defined $ckal;
+    $ckmt = $CheckModTime unless defined $ckmt;
+    autosplit_file($file, $autodir, $keep, $ckal, $ckmt);
+}
+
+sub carp{
+    require Carp;
+    goto &Carp::carp;
+}
+
+# This function is used during perl building/installation
+# ./miniperl -e 'use AutoSplit; autosplit_lib_modules(@ARGV)' ...
+
+sub autosplit_lib_modules {
+    my(@modules) = @_; # list of Module names
+    local $_; # Avoid clobber.
+    while (defined($_ = shift @modules)) {
+	while (m#([^:]+)::([^:].*)#) { # in case specified as ABC::XYZ
+	    $_ = catfile($1, $2);
+	}
+	s|\\|/|g;		# bug in ksh OS/2
+	s#^lib/##s; # incase specified as lib/*.pm
+	my($lib) = catfile(curdir(), "lib");
+	if ($Is_VMS) { # may need to convert VMS-style filespecs
+	    $lib =~ s#^\[\]#.\/#;
+	}
+	s#^$lib\W+##s; # incase specified as ./lib/*.pm
+	if ($Is_VMS && /[:>\]]/) { # may need to convert VMS-style filespecs
+	    my ($dir,$name) = (/(.*])(.*)/s);
+	    $dir =~ s/.*lib[\.\]]//s;
+	    $dir =~ s#[\.\]]#/#g;
+	    $_ = $dir . $name;
+	}
+	autosplit_file(catfile($lib, $_), catfile($lib, "auto"),
+		       $Keep, $CheckForAutoloader, $CheckModTime);
+    }
+    0;
+}
+
+
+# private functions
+
+my $self_mod_time = (stat __FILE__)[9];
+
+sub autosplit_file {
+    my($filename, $autodir, $keep, $check_for_autoloader, $check_mod_time)
+	= @_;
+    my(@outfiles);
+    local($_);
+    local($/) = "\n";
+
+    # where to write output files
+    $autodir ||= catfile(curdir(), "lib", "auto");
+    if ($Is_VMS) {
+	($autodir = VMS::Filespec::unixpath($autodir)) =~ s|/\z||;
+	$filename = VMS::Filespec::unixify($filename); # may have dirs
+    }
+    unless (-d $autodir){
+	mkpath($autodir,0,0755);
+	# We should never need to create the auto dir
+	# here. installperl (or similar) should have done
+	# it. Expecting it to exist is a valuable sanity check against
+	# autosplitting into some random directory by mistake.
+	print "Warning: AutoSplit had to create top-level " .
+	    "$autodir unexpectedly.\n";
+    }
+
+    # allow just a package name to be used
+    $filename .= ".pm" unless ($filename =~ m/\.pm\z/);
+
+    open(my $in, "<$filename") or die "AutoSplit: Can't open $filename: $!\n";
+    my($pm_mod_time) = (stat($filename))[9];
+    my($autoloader_seen) = 0;
+    my($in_pod) = 0;
+    my($def_package,$last_package,$this_package,$fnr);
+    while (<$in>) {
+	# Skip pod text.
+	$fnr++;
+	$in_pod = 1 if /^=\w/;
+	$in_pod = 0 if /^=cut/;
+	next if ($in_pod || /^=cut/);
+        next if /^\s*#/;
+
+	# record last package name seen
+	$def_package = $1 if (m/^\s*package\s+([\w:]+)\s*;/);
+	++$autoloader_seen if m/^\s*(use|require)\s+AutoLoader\b/;
+	++$autoloader_seen if m/\bISA\s*=.*\bAutoLoader\b/;
+	last if /^__END__/;
+    }
+    if ($check_for_autoloader && !$autoloader_seen){
+	print "AutoSplit skipped $filename: no AutoLoader used\n"
+	    if ($Verbose>=2);
+	return 0;
+    }
+    $_ or die "Can't find __END__ in $filename\n";
+
+    $def_package or die "Can't find 'package Name;' in $filename\n";
+
+    my($modpname) = _modpname($def_package); 
+
+    # this _has_ to match so we have a reasonable timestamp file
+    die "Package $def_package ($modpname.pm) does not ".
+	"match filename $filename"
+	    unless ($filename =~ m/\Q$modpname.pm\E$/ or
+		    ($^O eq 'dos') or ($^O eq 'MSWin32') or ($^O eq 'NetWare') or
+	            $Is_VMS && $filename =~ m/$modpname.pm/i);
+
+    my($al_idx_file) = catfile($autodir, $modpname, $IndexFile);
+
+    if ($check_mod_time){
+	my($al_ts_time) = (stat("$al_idx_file"))[9] || 1;
+	if ($al_ts_time >= $pm_mod_time and
+	    $al_ts_time >= $self_mod_time){
+	    print "AutoSplit skipped ($al_idx_file newer than $filename)\n"
+		if ($Verbose >= 2);
+	    return undef;	# one undef, not a list
+	}
+    }
+
+    my($modnamedir) = catdir($autodir, $modpname);
+    print "AutoSplitting $filename ($modnamedir)\n"
+	if $Verbose;
+
+    unless (-d $modnamedir){
+	mkpath($modnamedir,0,0777);
+    }
+
+    # We must try to deal with some SVR3 systems with a limit of 14
+    # characters for file names. Sadly we *cannot* simply truncate all
+    # file names to 14 characters on these systems because we *must*
+    # create filenames which exactly match the names used by AutoLoader.pm.
+    # This is a problem because some systems silently truncate the file
+    # names while others treat long file names as an error.
+
+    my $Is83 = $maxflen==11;  # plain, case INSENSITIVE dos filenames
+
+    my(@subnames, $subname, %proto, %package);
+    my @cache = ();
+    my $caching = 1;
+    $last_package = '';
+    my $out;
+    while (<$in>) {
+	$fnr++;
+	$in_pod = 1 if /^=\w/;
+	$in_pod = 0 if /^=cut/;
+	next if ($in_pod || /^=cut/);
+	# the following (tempting) old coding gives big troubles if a
+	# cut is forgotten at EOF:
+	# next if /^=\w/ .. /^=cut/;
+	if (/^package\s+([\w:]+)\s*;/) {
+	    $this_package = $def_package = $1;
+	}
+
+	if (/^sub\s+([\w:]+)(\s*(?:\(.*?\))?(?:$attr_list)?)/) {
+	    print $out "# end of $last_package\::$subname\n1;\n"
+		if $last_package;
+	    $subname = $1;
+	    my $proto = $2 || '';
+	    if ($subname =~ s/(.*):://){
+		$this_package = $1;
+	    } else {
+		$this_package = $def_package;
+	    }
+	    my $fq_subname = "$this_package\::$subname";
+	    $package{$fq_subname} = $this_package;
+	    $proto{$fq_subname} = $proto;
+	    push(@subnames, $fq_subname);
+	    my($lname, $sname) = ($subname, substr($subname,0,$maxflen-3));
+	    $modpname = _modpname($this_package);
+            my($modnamedir) = catdir($autodir, $modpname);
+	    mkpath($modnamedir,0,0777);
+	    my($lpath) = catfile($modnamedir, "$lname.al");
+	    my($spath) = catfile($modnamedir, "$sname.al");
+	    my $path;
+
+	    if (!$Is83 and open($out, ">$lpath")){
+	        $path=$lpath;
+		print "  writing $lpath\n" if ($Verbose>=2);
+	    } else {
+		open($out, ">$spath") or die "Can't create $spath: $!\n";
+		$path=$spath;
+		print "  writing $spath (with truncated name)\n"
+			if ($Verbose>=1);
+	    }
+	    push(@outfiles, $path);
+	    my $lineno = $fnr - @cache;
+	    print $out <<EOT;
+# NOTE: Derived from $filename.
+# Changes made here will be lost when autosplit is run again.
+# See AutoSplit.pm.
+package $this_package;
+
+#line $lineno "$filename (autosplit into $path)"
+EOT
+	    print $out @cache;
+	    @cache = ();
+	    $caching = 0;
+	}
+	if($caching) {
+	    push(@cache, $_) if @cache || /\S/;
+	} else {
+	    print $out $_;
+	}
+	if(/^\}/) {
+	    if($caching) {
+		print $out @cache;
+		@cache = ();
+	    }
+	    print $out "\n";
+	    $caching = 1;
+	}
+	$last_package = $this_package if defined $this_package;
+    }
+    if ($subname) {
+	print $out @cache,"1;\n# end of $last_package\::$subname\n";
+	close($out);
+    }
+    close($in);
+    
+    if (!$keep){  # don't keep any obsolete *.al files in the directory
+	my(%outfiles);
+	# @outfiles{@outfiles} = @outfiles;
+	# perl downcases all filenames on VMS (which upcases all filenames) so
+	# we'd better downcase the sub name list too, or subs with upper case
+	# letters in them will get their .al files deleted right after they're
+	# created. (The mixed case sub name won't match the all-lowercase
+	# filename, and so be cleaned up as a scrap file)
+	if ($Is_VMS or $Is83) {
+	    %outfiles = map {lc($_) => lc($_) } @outfiles;
+	} else {
+	    @outfiles{@outfiles} = @outfiles;
+	}  
+	my(%outdirs,@outdirs);
+	for (@outfiles) {
+	    $outdirs{File::Basename::dirname($_)}||=1;
+	}
+	for my $dir (keys %outdirs) {
+	    opendir(my $outdir,$dir);
+	    foreach (sort readdir($outdir)){
+		next unless /\.al\z/;
+		my($file) = catfile($dir, $_);
+		$file = lc $file if $Is83 or $Is_VMS;
+		next if $outfiles{$file};
+		print "  deleting $file\n" if ($Verbose>=2);
+		my($deleted,$thistime);  # catch all versions on VMS
+		do { $deleted += ($thistime = unlink $file) } while ($thistime);
+		carp ("Unable to delete $file: $!") unless $deleted;
+	    }
+	    closedir($outdir);
+	}
+    }
+
+    open(my $ts,">$al_idx_file") or
+	carp ("AutoSplit: unable to create timestamp file ($al_idx_file): $!");
+    print $ts "# Index created by AutoSplit for $filename\n";
+    print $ts "#    (file acts as timestamp)\n";
+    $last_package = '';
+    for my $fqs (@subnames) {
+	my($subname) = $fqs;
+	$subname =~ s/.*:://;
+	print $ts "package $package{$fqs};\n"
+	    unless $last_package eq $package{$fqs};
+	print $ts "sub $subname $proto{$fqs};\n";
+	$last_package = $package{$fqs};
+    }
+    print $ts "1;\n";
+    close($ts);
+
+    _check_unique($filename, $Maxlen, 1, @outfiles);
+
+    @outfiles;
+}
+
+sub _modpname ($) {
+    my($package) = @_;
+    my $modpname = $package;
+    if ($^O eq 'MSWin32') {
+	$modpname =~ s#::#\\#g; 
+    } else {
+	my @modpnames = ();
+	while ($modpname =~ m#(.*?[^:])::([^:].*)#) {
+	       push @modpnames, $1;
+	       $modpname = $2;
+         }
+	$modpname = catfile(@modpnames, $modpname);
+    }
+    if ($Is_VMS) {
+        $modpname = VMS::Filespec::unixify($modpname); # may have dirs
+    }
+    $modpname;
+}
+
+sub _check_unique {
+    my($filename, $maxlen, $warn, @outfiles) = @_;
+    my(%notuniq) = ();
+    my(%shorts)  = ();
+    my(@toolong) = grep(
+			length(File::Basename::basename($_))
+			> $maxlen,
+			@outfiles
+		       );
+
+    foreach (@toolong){
+	my($dir) = File::Basename::dirname($_);
+	my($file) = File::Basename::basename($_);
+	my($trunc) = substr($file,0,$maxlen);
+	$notuniq{$dir}{$trunc} = 1 if $shorts{$dir}{$trunc};
+	$shorts{$dir}{$trunc} = $shorts{$dir}{$trunc} ?
+	    "$shorts{$dir}{$trunc}, $file" : $file;
+    }
+    if (%notuniq && $warn){
+	print "$filename: some names are not unique when " .
+	    "truncated to $maxlen characters:\n";
+	foreach my $dir (sort keys %notuniq){
+	    print " directory $dir:\n";
+	    foreach my $trunc (sort keys %{$notuniq{$dir}}) {
+		print "  $shorts{$dir}{$trunc} truncate to $trunc\n";
+	    }
+	}
+    }
+}
+
+1;
+__END__
+
+# test functions so AutoSplit.pm can be applied to itself:
+sub test1 ($)   { "test 1\n"; }
+sub test2 ($$)  { "test 2\n"; }
+sub test3 ($$$) { "test 3\n"; }
+sub testtesttesttest4_1  { "test 4\n"; }
+sub testtesttesttest4_2  { "duplicate test 4\n"; }
+sub Just::Another::test5 { "another test 5\n"; }
+sub test6       { return join ":", __FILE__,__LINE__; }
+package Yet::Another::AutoSplit;
+sub testtesttesttest4_1 ($)  { "another test 4\n"; }
+sub testtesttesttest4_2 ($$) { "another duplicate test 4\n"; }
+package Yet::More::Attributes;
+sub test_a1 ($) : locked :locked { 1; }
+sub test_a2 : locked { 1; }
diff --git a/lib/5.24.1/B/Debug.pm b/lib/5.24.1/B/Debug.pm
new file mode 100644
index 00000000..fd66405b
--- /dev/null
+++ b/lib/5.24.1/B/Debug.pm
@@ -0,0 +1,457 @@
+package B::Debug;
+
+our $VERSION = '1.23';
+
+use strict;
+require 5.006;
+use B qw(peekop class walkoptree walkoptree_exec
+         main_start main_root cstring sv_undef SVf_NOK SVf_IOK);
+use Config;
+my (@optype, @specialsv_name);
+require B;
+if ($] < 5.009) {
+  require B::Asmdata;
+  B::Asmdata->import (qw(@optype @specialsv_name));
+} else {
+  B->import (qw(@optype @specialsv_name));
+}
+
+if ($] < 5.006002) {
+  eval q|sub B::GV::SAFENAME {
+    my $name = (shift())->NAME;
+    # The regex below corresponds to the isCONTROLVAR macro from toke.c
+    $name =~ s/^([\cA-\cZ\c\\c[\c]\c?\c_\c^])/"^".chr(64 ^ ord($1))/e;
+    return $name;
+  }|;
+}
+
+my ($have_B_Flags, $have_B_Flags_extra);
+if (!$ENV{PERL_CORE}){ # avoid CORE test crashes
+  eval { require B::Flags and $have_B_Flags++ };
+  $have_B_Flags_extra++ if $have_B_Flags and $B::Flags::VERSION gt '0.03';
+}
+my %done_gv;
+
+sub _printop {
+  my $op = shift;
+  my $addr = ${$op} ? $op->ppaddr : '';
+  $addr =~ s/^PL_ppaddr// if $addr;
+  if (${$op}) {
+    return sprintf "0x%08x %6s %s", ${$op}, class($op), $addr;
+  } else {
+    return sprintf "0x%x %6s %s", ${$op}, '', $addr;
+  }
+}
+
+sub B::OP::debug {
+    my ($op) = @_;
+    printf <<'EOT', class($op), $$op, _printop($op), _printop($op->next), _printop($op->sibling), $op->targ, $op->type, $op->name;
+%s (0x%lx)
+	op_ppaddr	%s
+	op_next		%s
+	op_sibling	%s
+	op_targ		%d
+	op_type		%d	%s
+EOT
+    if ($] > 5.009) {
+	printf <<'EOT', $op->opt;
+	op_opt		%d
+EOT
+    } else {
+	printf <<'EOT', $op->seq;
+	op_seq		%d
+EOT
+    }
+    if ($have_B_Flags) {
+        printf <<'EOT', $op->flags, $op->flagspv, $op->private, $op->privatepv;
+	op_flags	%d	%s
+	op_private	%d	%s
+EOT
+    } else {
+        printf <<'EOT', $op->flags, $op->private;
+	op_flags	%d
+	op_private	%d
+EOT
+    }
+}
+
+sub B::UNOP::debug {
+    my ($op) = @_;
+    $op->B::OP::debug();
+    printf "\top_first\t%s\n", _printop($op->first);
+}
+
+sub B::BINOP::debug {
+    my ($op) = @_;
+    $op->B::UNOP::debug();
+    printf "\top_last \t%s\n", _printop($op->last);
+}
+
+sub B::LOOP::debug {
+    my ($op) = @_;
+    $op->B::BINOP::debug();
+    printf <<'EOT', _printop($op->redoop), _printop($op->nextop), _printop($op->lastop);
+	op_redoop	%s
+	op_nextop	%s
+	op_lastop	%s
+EOT
+}
+
+sub B::LOGOP::debug {
+    my ($op) = @_;
+    $op->B::UNOP::debug();
+    printf "\top_other\t%s\n", _printop($op->other);
+}
+
+sub B::LISTOP::debug {
+    my ($op) = @_;
+    $op->B::BINOP::debug();
+    printf "\top_children\t%d\n", $op->children;
+}
+
+sub B::PMOP::debug {
+    my ($op) = @_;
+    $op->B::LISTOP::debug();
+    printf "\top_pmreplroot\t0x%x\n", $] < 5.008 ? ${$op->pmreplroot} : $op->pmreplroot;
+    printf "\top_pmreplstart\t0x%x\n", ${$op->pmreplstart};
+    printf "\top_pmnext\t0x%x\n", ${$op->pmnext} if $] < 5.009005;
+    if ($Config{'useithreads'}) {
+      printf "\top_pmstashpv\t%s\n", cstring($op->pmstashpv);
+      printf "\top_pmoffset\t%d\n", $op->pmoffset;
+    } else {
+      printf "\top_pmstash\t%s\n", cstring($op->pmstash);
+    }
+    printf "\top_precomp\t%s\n", cstring($op->precomp);
+    printf "\top_pmflags\t0x%x\n", $op->pmflags;
+    printf "\top_reflags\t0x%x\n", $op->reflags if $] >= 5.009;
+    printf "\top_pmpermflags\t0x%x\n", $op->pmpermflags if $] < 5.009;
+    printf "\top_pmdynflags\t0x%x\n", $op->pmdynflags if $] < 5.009;
+    $op->pmreplroot->debug if $] < 5.008;
+}
+
+sub B::COP::debug {
+    my ($op) = @_;
+    $op->B::OP::debug();
+    my $warnings = ref $op->warnings ? ${$op->warnings} : 0;
+    printf <<'EOT', $op->label, $op->stashpv, $op->file, $op->cop_seq, $op->arybase, $op->line, $warnings;
+	cop_label	"%s"
+	cop_stashpv	"%s"
+	cop_file	"%s"
+	cop_seq		%d
+	cop_arybase	%d
+	cop_line	%d
+	cop_warnings	0x%x
+EOT
+  if ($] > 5.008 and $] < 5.011) {
+    my $cop_io = class($op->io) eq 'SPECIAL' ? '' : $op->io->as_string;
+    printf("	cop_io		%s\n", cstring($cop_io));
+  }
+}
+
+sub B::SVOP::debug {
+    my ($op) = @_;
+    $op->B::OP::debug();
+    printf "\top_sv\t\t0x%x\n", ${$op->sv};
+    $op->sv->debug;
+}
+
+sub B::METHOP::debug {
+    my ($op) = @_;
+    $op->B::OP::debug();
+    if (${$op->first})  {
+      printf "\top_first\t0x%x\n", ${$op->first};
+      $op->first->debug;
+    } else {
+      printf "\top_meth_sv\t0x%x\n", ${$op->meth_sv};
+      $op->meth_sv->debug;
+    }
+}
+
+sub B::PVOP::debug {
+    my ($op) = @_;
+    $op->B::OP::debug();
+    printf "\top_pv\t\t%s\n", cstring($op->pv);
+}
+
+sub B::PADOP::debug {
+    my ($op) = @_;
+    $op->B::OP::debug();
+    printf "\top_padix\t%ld\n", $op->padix;
+}
+
+sub B::NULL::debug {
+    my ($sv) = @_;
+    if ($$sv == ${sv_undef()}) {
+	print "&sv_undef\n";
+    } else {
+	printf "NULL (0x%x)\n", $$sv;
+    }
+}
+
+sub B::SV::debug {
+    my ($sv) = @_;
+    if (!$$sv) {
+	print class($sv), " = NULL\n";
+	return;
+    }
+    printf <<'EOT', class($sv), $$sv, $sv->REFCNT;
+%s (0x%x)
+	REFCNT		%d
+EOT
+    printf "\tFLAGS\t\t0x%x", $sv->FLAGS;
+    if ($have_B_Flags) {
+      printf "\t%s", $have_B_Flags_extra ? $sv->flagspv(0) : $sv->flagspv;
+    }
+    print "\n";
+}
+
+sub B::RV::debug {
+    my ($rv) = @_;
+    B::SV::debug($rv);
+    printf <<'EOT', ${$rv->RV};
+	RV		0x%x
+EOT
+    $rv->RV->debug;
+}
+
+sub B::PV::debug {
+    my ($sv) = @_;
+    $sv->B::SV::debug();
+    my $pv = $sv->PV();
+    printf <<'EOT', cstring($pv), $sv->CUR, $sv->LEN;
+	xpv_pv		%s
+	xpv_cur		%d
+	xpv_len		%d
+EOT
+}
+
+sub B::IV::debug {
+    my ($sv) = @_;
+    $sv->B::SV::debug();
+    printf "\txiv_iv\t\t%d\n", $sv->IV if $sv->FLAGS & SVf_IOK;
+}
+
+sub B::NV::debug {
+    my ($sv) = @_;
+    $sv->B::IV::debug();
+    printf "\txnv_nv\t\t%s\n", $sv->NV if $sv->FLAGS & SVf_NOK;
+}
+
+sub B::PVIV::debug {
+    my ($sv) = @_;
+    $sv->B::PV::debug();
+    printf "\txiv_iv\t\t%d\n", $sv->IV if $sv->FLAGS & SVf_IOK;
+}
+
+sub B::PVNV::debug {
+    my ($sv) = @_;
+    $sv->B::PVIV::debug();
+    printf "\txnv_nv\t\t%s\n", $sv->NV if $sv->FLAGS & SVf_NOK;
+}
+
+sub B::PVLV::debug {
+    my ($sv) = @_;
+    $sv->B::PVNV::debug();
+    printf "\txlv_targoff\t%d\n", $sv->TARGOFF;
+    printf "\txlv_targlen\t%u\n", $sv->TARGLEN;
+    printf "\txlv_type\t%s\n", cstring(chr($sv->TYPE));
+}
+
+sub B::BM::debug {
+    my ($sv) = @_;
+    $sv->B::PVNV::debug();
+    printf "\txbm_useful\t%d\n", $sv->USEFUL;
+    printf "\txbm_previous\t%u\n", $sv->PREVIOUS;
+    printf "\txbm_rare\t%s\n", cstring(chr($sv->RARE));
+}
+
+sub B::CV::debug {
+    my ($sv) = @_;
+    $sv->B::PVNV::debug();
+    my ($stash) = $sv->STASH;
+    my ($start) = $sv->START;
+    my ($root)  = $sv->ROOT;
+    my ($padlist) = $sv->PADLIST;
+    my ($file) = $sv->FILE;
+    my ($gv) = $sv->GV;
+    printf <<'EOT', $$stash, $$start, $$root;
+	STASH		0x%x
+	START		0x%x
+	ROOT		0x%x
+EOT
+    if ( $]>5.017 && ($sv->FLAGS & 0x40000)) { #lexsub
+      printf("\tNAME\t%%s\n", $sv->NAME);
+    } else {
+      printf("\tGV\t%0x%x\t%s\n", $$gv, $gv->SAFENAME);
+    }
+    printf <<'EOT', $file, $sv->DEPTH, $padlist, ${$sv->OUTSIDE};
+	FILE		%s
+	DEPTH		%d
+	PADLIST		0x%x
+	OUTSIDE		0x%x
+EOT
+    printf("\tOUTSIDE_SEQ\t%d\n", $sv->OUTSIDE_SEQ) if $] > 5.007;
+    if ($have_B_Flags) {
+      my $SVt_PVCV = $] < 5.010 ? 12 : 13;
+      printf("\tCvFLAGS\t0x%x\t%s\n", $sv->CvFLAGS,
+	     $have_B_Flags_extra ? $sv->flagspv($SVt_PVCV) : $sv->flagspv);
+    } else {
+      printf("\tCvFLAGS\t0x%x\n", $sv->CvFLAGS);
+    }
+    $start->debug if $start;
+    $root->debug if $root;
+    $gv->debug if $gv;
+    $padlist->debug if $padlist;
+}
+
+sub B::AV::debug {
+    my ($av) = @_;
+    $av->B::SV::debug;
+    _array_debug($av);
+}
+
+sub _array_debug {
+    my ($av) = @_;
+    # tied arrays may leave out FETCHSIZE
+    my (@array) = eval { $av->ARRAY; };
+    print "\tARRAY\t\t(", join(", ", map("0x" . $$_, @array)), ")\n";
+    my $fill = eval { scalar(@array) };
+    if ($Config{'useithreads'} && class($av) ne 'PADLIST') {
+      printf <<'EOT', $fill, $av->MAX, $av->OFF;
+	FILL		%d
+	MAX		%d
+	OFF		%d
+EOT
+    } else {
+      printf <<'EOT', $fill, $av->MAX;
+	FILL		%d
+	MAX		%d
+EOT
+    }
+    if ($] < 5.009) {
+      if ($have_B_Flags) {
+	printf("\tAvFLAGS\t0x%x\t%s\n", $av->AvFLAGS,
+	       $have_B_Flags_extra ? $av->flagspv(10) : $av->flagspv);
+      } else {
+	printf("\tAvFLAGS\t0x%x\n", $av->AvFLAGS);
+      }
+    }
+}
+
+sub B::GV::debug {
+    my ($gv) = @_;
+    if ($done_gv{$$gv}++) {
+	printf "GV %s::%s\n", $gv->STASH->NAME, $gv->SAFENAME;
+	return;
+    }
+    my $sv = $gv->SV;
+    my $av = $gv->AV;
+    my $cv = $gv->CV;
+    $gv->B::SV::debug;
+    printf <<'EOT', $gv->SAFENAME, $gv->STASH->NAME, $gv->STASH, $$sv, $gv->GvREFCNT, $gv->FORM, $$av, ${$gv->HV}, ${$gv->EGV}, $$cv, $gv->CVGEN, $gv->LINE, $gv->FILE, $gv->GvFLAGS;
+	NAME		%s
+	STASH		%s (0x%x)
+	SV		0x%x
+	GvREFCNT	%d
+	FORM		0x%x
+	AV		0x%x
+	HV		0x%x
+	EGV		0x%x
+	CV		0x%x
+	CVGEN		%d
+	LINE		%d
+	FILE		%s
+EOT
+    if ($have_B_Flags) {
+      my $SVt_PVGV = $] < 5.010 ? 13 : 9;
+      printf("\tGvFLAGS\t0x%x\t%s\n", $gv->GvFLAGS,
+	     $have_B_Flags_extra ? $gv->flagspv($SVt_PVGV) : $gv->flagspv);
+    } else {
+      printf("\tGvFLAGS\t0x%x\n", $gv->GvFLAGS);
+    }
+    $sv->debug if $sv;
+    $av->debug if $av;
+    $cv->debug if $cv;
+}
+
+sub B::SPECIAL::debug {
+    my $sv = shift;
+    my $i = ref $sv ? $$sv : 0;
+    print defined $specialsv_name[$i] ? $specialsv_name[$i] : "", "\n";
+}
+
+sub B::PADLIST::debug {
+    my ($padlist) = @_;
+    printf <<'EOT', class($padlist), $$padlist, $padlist->REFCNT;
+%s (0x%x)
+	REFCNT		%d
+EOT
+    _array_debug($padlist);
+}
+
+sub compile {
+    my $order = shift;
+    B::clearsym();
+    $DB::single = 1 if defined &DB::DB;
+    if ($order && $order eq "exec") {
+        return sub { walkoptree_exec(main_start, "debug") }
+    } else {
+        return sub { walkoptree(main_root, "debug") }
+    }
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+B::Debug - Walk Perl syntax tree, printing debug info about ops
+
+=head1 SYNOPSIS
+
+        perl -MO=Debug foo.pl
+        perl -MO=Debug,-exec foo.pl
+
+=head1 DESCRIPTION
+
+See F<ext/B/README> and the newer L<B::Concise>, L<B::Terse>.
+
+=head1 OPTIONS
+
+With option -exec, walks tree in execute order,
+otherwise in basic order.
+
+=head1 AUTHOR
+
+Malcolm Beattie, C<mbeattie@sable.ox.ac.uk>
+Reini Urban C<rurban@cpan.org>
+
+=head1 LICENSE
+
+Copyright (c) 1996, 1997 Malcolm Beattie
+Copyright (c) 2008, 2010, 2013, 2014 Reini Urban
+
+	This program is free software; you can redistribute it and/or modify
+	it under the terms of either:
+
+	a) the GNU General Public License as published by the Free
+	Software Foundation; either version 1, or (at your option) any
+	later version, or
+
+	b) the "Artistic License" which comes with this kit.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See either
+    the GNU General Public License or the Artistic License for more details.
+
+    You should have received a copy of the Artistic License with this kit,
+    in the file named "Artistic".  If not, you can get one from the Perl
+    distribution. You should also have received a copy of the GNU General
+    Public License, in the file named "Copying". If not, you can get one
+    from the Perl distribution or else write to the Free Software Foundation,
+    Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
+
+=cut
+
diff --git a/lib/5.24.1/B/Deparse.pm b/lib/5.24.1/B/Deparse.pm
new file mode 100644
index 00000000..9879d678
--- /dev/null
+++ b/lib/5.24.1/B/Deparse.pm
@@ -0,0 +1,6286 @@
+# B::Deparse.pm
+# Copyright (c) 1998-2000, 2002, 2003, 2004, 2005, 2006 Stephen McCamant.
+# All rights reserved.
+# This module is free software; you can redistribute and/or modify
+# it under the same terms as Perl itself.
+
+# This is based on the module of the same name by Malcolm Beattie,
+# but essentially none of his code remains.
+
+package B::Deparse;
+use Carp;
+use B qw(class main_root main_start main_cv svref_2object opnumber perlstring
+	 OPf_WANT OPf_WANT_VOID OPf_WANT_SCALAR OPf_WANT_LIST
+	 OPf_KIDS OPf_REF OPf_STACKED OPf_SPECIAL OPf_MOD OPf_PARENS
+	 OPpLVAL_INTRO OPpOUR_INTRO OPpENTERSUB_AMPER OPpSLICE OPpCONST_BARE
+	 OPpTRANS_SQUASH OPpTRANS_DELETE OPpTRANS_COMPLEMENT OPpTARGET_MY
+	 OPpEXISTS_SUB OPpSORT_NUMERIC OPpSORT_INTEGER OPpREPEAT_DOLIST
+	 OPpSORT_REVERSE OPpMULTIDEREF_EXISTS OPpMULTIDEREF_DELETE
+	 SVf_IOK SVf_NOK SVf_ROK SVf_POK SVpad_OUR SVf_FAKE SVs_RMG SVs_SMG
+	 SVs_PADTMP SVpad_TYPED
+         CVf_METHOD CVf_LVALUE
+	 PMf_KEEP PMf_GLOBAL PMf_CONTINUE PMf_EVAL PMf_ONCE
+	 PMf_MULTILINE PMf_SINGLELINE PMf_FOLD PMf_EXTENDED PMf_EXTENDED_MORE
+	 PADNAMEt_OUTER
+        MDEREF_reload
+        MDEREF_AV_pop_rv2av_aelem
+        MDEREF_AV_gvsv_vivify_rv2av_aelem
+        MDEREF_AV_padsv_vivify_rv2av_aelem
+        MDEREF_AV_vivify_rv2av_aelem
+        MDEREF_AV_padav_aelem
+        MDEREF_AV_gvav_aelem
+        MDEREF_HV_pop_rv2hv_helem
+        MDEREF_HV_gvsv_vivify_rv2hv_helem
+        MDEREF_HV_padsv_vivify_rv2hv_helem
+        MDEREF_HV_vivify_rv2hv_helem
+        MDEREF_HV_padhv_helem
+        MDEREF_HV_gvhv_helem
+        MDEREF_ACTION_MASK
+        MDEREF_INDEX_none
+        MDEREF_INDEX_const
+        MDEREF_INDEX_padsv
+        MDEREF_INDEX_gvsv
+        MDEREF_INDEX_MASK
+        MDEREF_FLAG_last
+        MDEREF_MASK
+        MDEREF_SHIFT
+    );
+
+$VERSION = '1.37';
+use strict;
+use vars qw/$AUTOLOAD/;
+use warnings ();
+require feature;
+
+BEGIN {
+    # List version-specific constants here.
+    # Easiest way to keep this code portable between version looks to
+    # be to fake up a dummy constant that will never actually be true.
+    foreach (qw(OPpSORT_INPLACE OPpSORT_DESCEND OPpITER_REVERSED OPpCONST_NOVER
+		OPpPAD_STATE PMf_SKIPWHITE RXf_SKIPWHITE
+		PMf_CHARSET PMf_KEEPCOPY PMf_NOCAPTURE CVf_ANONCONST
+		CVf_LOCKED OPpREVERSE_INPLACE OPpSUBSTR_REPL_FIRST
+		PMf_NONDESTRUCT OPpCONST_ARYBASE OPpEVAL_BYTES
+		OPpLVREF_TYPE OPpLVREF_SV OPpLVREF_AV OPpLVREF_HV
+		OPpLVREF_CV OPpLVREF_ELEM SVpad_STATE)) {
+	eval { B->import($_) };
+	no strict 'refs';
+	*{$_} = sub () {0} unless *{$_}{CODE};
+    }
+}
+
+# Changes between 0.50 and 0.51:
+# - fixed nulled leave with live enter in sort { }
+# - fixed reference constants (\"str")
+# - handle empty programs gracefully
+# - handle infinite loops (for (;;) {}, while (1) {})
+# - differentiate between 'for my $x ...' and 'my $x; for $x ...'
+# - various minor cleanups
+# - moved globals into an object
+# - added '-u', like B::C
+# - package declarations using cop_stash
+# - subs, formats and code sorted by cop_seq
+# Changes between 0.51 and 0.52:
+# - added pp_threadsv (special variables under USE_5005THREADS)
+# - added documentation
+# Changes between 0.52 and 0.53:
+# - many changes adding precedence contexts and associativity
+# - added '-p' and '-s' output style options
+# - various other minor fixes
+# Changes between 0.53 and 0.54:
+# - added support for new 'for (1..100)' optimization,
+#   thanks to Gisle Aas
+# Changes between 0.54 and 0.55:
+# - added support for new qr// construct
+# - added support for new pp_regcreset OP
+# Changes between 0.55 and 0.56:
+# - tested on base/*.t, cmd/*.t, comp/*.t, io/*.t
+# - fixed $# on non-lexicals broken in last big rewrite
+# - added temporary fix for change in opcode of OP_STRINGIFY
+# - fixed problem in 0.54's for() patch in 'for (@ary)'
+# - fixed precedence in conditional of ?:
+# - tweaked list paren elimination in 'my($x) = @_'
+# - made continue-block detection trickier wrt. null ops
+# - fixed various prototype problems in pp_entersub
+# - added support for sub prototypes that never get GVs
+# - added unquoting for special filehandle first arg in truncate
+# - print doubled rv2gv (a bug) as '*{*GV}' instead of illegal '**GV'
+# - added semicolons at the ends of blocks
+# - added -l '#line' declaration option -- fixes cmd/subval.t 27,28
+# Changes between 0.56 and 0.561:
+# - fixed multiply-declared my var in pp_truncate (thanks to Sarathy)
+# - used new B.pm symbolic constants (done by Nick Ing-Simmons)
+# Changes between 0.561 and 0.57:
+# - stylistic changes to symbolic constant stuff
+# - handled scope in s///e replacement code
+# - added unquote option for expanding "" into concats, etc.
+# - split method and proto parts of pp_entersub into separate functions
+# - various minor cleanups
+# Changes after 0.57:
+# - added parens in \&foo (patch by Albert Dvornik)
+# Changes between 0.57 and 0.58:
+# - fixed '0' statements that weren't being printed
+# - added methods for use from other programs
+#   (based on patches from James Duncan and Hugo van der Sanden)
+# - added -si and -sT to control indenting (also based on a patch from Hugo)
+# - added -sv to print something else instead of '???'
+# - preliminary version of utf8 tr/// handling
+# Changes after 0.58:
+# - uses of $op->ppaddr changed to new $op->name (done by Sarathy)
+# - added support for Hugo's new OP_SETSTATE (like nextstate)
+# Changes between 0.58 and 0.59
+# - added support for Chip's OP_METHOD_NAMED
+# - added support for Ilya's OPpTARGET_MY optimization
+# - elided arrows before '()' subscripts when possible
+# Changes between 0.59 and 0.60
+# - support for method attributes was added
+# - some warnings fixed
+# - separate recognition of constant subs
+# - rewrote continue block handling, now recognizing for loops
+# - added more control of expanding control structures
+# Changes between 0.60 and 0.61 (mostly by Robin Houston)
+# - many bug-fixes
+# - support for pragmas and 'use'
+# - support for the little-used $[ variable
+# - support for __DATA__ sections
+# - UTF8 support
+# - BEGIN, CHECK, INIT and END blocks
+# - scoping of subroutine declarations fixed
+# - compile-time output from the input program can be suppressed, so that the
+#   output is just the deparsed code. (a change to O.pm in fact)
+# - our() declarations
+# - *all* the known bugs are now listed in the BUGS section
+# - comprehensive test mechanism (TEST -deparse)
+# Changes between 0.62 and 0.63 (mostly by Rafael Garcia-Suarez)
+# - bug-fixes
+# - new switch -P
+# - support for command-line switches (-l, -0, etc.)
+# Changes between 0.63 and 0.64
+# - support for //, CHECK blocks, and assertions
+# - improved handling of foreach loops and lexicals
+# - option to use Data::Dumper for constants
+# - more bug fixes
+# - discovered lots more bugs not yet fixed
+#
+# ...
+#
+# Changes between 0.72 and 0.73
+# - support new switch constructs
+
+# Todo:
+#  (See also BUGS section at the end of this file)
+#
+# - finish tr/// changes
+# - add option for even more parens (generalize \&foo change)
+# - left/right context
+# - copy comments (look at real text with $^P?)
+# - avoid semis in one-statement blocks
+# - associativity of &&=, ||=, ?:
+# - ',' => '=>' (auto-unquote?)
+# - break long lines ("\r" as discretionary break?)
+# - configurable syntax highlighting: ANSI color, HTML, TeX, etc.
+# - more style options: brace style, hex vs. octal, quotes, ...
+# - print big ints as hex/octal instead of decimal (heuristic?)
+# - handle 'my $x if 0'?
+# - version using op_next instead of op_first/sibling?
+# - avoid string copies (pass arrays, one big join?)
+# - here-docs?
+
+# Current test.deparse failures
+# comp/hints 6 - location of BEGIN blocks wrt. block openings
+# run/switchI 1 - missing -I switches entirely
+#    perl -Ifoo -e 'print @INC'
+# op/caller 2 - warning mask propagates backwards before warnings::register
+#    'use warnings; BEGIN {${^WARNING_BITS} eq "U"x12;} use warnings::register'
+# op/getpid 2 - can't assign to shared my() declaration (threads only)
+#    'my $x : shared = 5'
+# op/override 7 - parens on overridden require change v-string interpretation
+#    'BEGIN{*CORE::GLOBAL::require=sub {}} require v5.6'
+#    c.f. 'BEGIN { *f = sub {0} }; f 2'
+# op/pat 774 - losing Unicode-ness of Latin1-only strings
+#    'use charnames ":short"; $x="\N{latin:a with acute}"'
+# op/recurse 12 - missing parens on recursive call makes it look like method
+#    'sub f { f($x) }'
+# op/subst 90 - inconsistent handling of utf8 under "use utf8"
+# op/taint 29 - "use re 'taint'" deparsed in the wrong place wrt. block open
+# op/tiehandle compile - "use strict" deparsed in the wrong place
+# uni/tr_ several
+# ext/B/t/xref 11 - line numbers when we add newlines to one-line subs
+# ext/Data/Dumper/t/dumper compile
+# ext/DB_file/several
+# ext/Encode/several
+# ext/Ernno/Errno warnings
+# ext/IO/lib/IO/t/io_sel 23
+# ext/PerlIO/t/encoding compile
+# ext/POSIX/t/posix 6
+# ext/Socket/Socket 8
+# ext/Storable/t/croak compile
+# lib/Attribute/Handlers/t/multi compile
+# lib/bignum/ several
+# lib/charnames 35
+# lib/constant 32
+# lib/English 40
+# lib/ExtUtils/t/bytes 4
+# lib/File/DosGlob compile
+# lib/Filter/Simple/t/data 1
+# lib/Math/BigInt/t/constant 1
+# lib/Net/t/config Deparse-warning
+# lib/overload compile
+# lib/Switch/ several
+# lib/Symbol 4
+# lib/Test/Simple several
+# lib/Term/Complete
+# lib/Tie/File/t/29_downcopy 5
+# lib/vars 22
+
+# Object fields:
+#
+# in_coderef2text:
+# True when deparsing via $deparse->coderef2text; false when deparsing the
+# main program.
+#
+# avoid_local:
+# (local($a), local($b)) and local($a, $b) have the same internal
+# representation but the short form looks better. We notice we can
+# use a large-scale local when checking the list, but need to prevent
+# individual locals too. This hash holds the addresses of OPs that
+# have already had their local-ness accounted for. The same thing
+# is done with my().
+#
+# curcv:
+# CV for current sub (or main program) being deparsed
+#
+# curcvlex:
+# Cached hash of lexical variables for curcv: keys are
+# names prefixed with "m" or "o" (representing my/our), and
+# each value is an array with two elements indicating the cop_seq
+# of scopes in which a var of that name is valid and a third ele-
+# ment referencing the pad name.
+#
+# curcop:
+# COP for statement being deparsed
+#
+# curstash:
+# name of the current package for deparsed code
+#
+# subs_todo:
+# array of [cop_seq, CV, is_format?, name] for subs and formats we still
+# want to deparse.  The fourth element is a pad name thingy for lexical
+# subs or a string for special blocks.  For other subs, it is undef.  For
+# lexical subs, CV may be undef, indicating a stub declaration.
+#
+# protos_todo:
+# as above, but [name, prototype] for subs that never got a GV
+#
+# subs_done, forms_done:
+# keys are addresses of GVs for subs and formats we've already
+# deparsed (or at least put into subs_todo)
+#
+# subs_declared
+# keys are names of subs for which we've printed declarations.
+# That means we can omit parentheses from the arguments. It also means we
+# need to put CORE:: on core functions of the same name.
+#
+# in_subst_repl
+# True when deparsing the replacement part of a substitution.
+#
+# in_refgen
+# True when deparsing the argument to \.
+#
+# parens: -p
+# linenums: -l
+# unquote: -q
+# cuddle: ' ' or '\n', depending on -sC
+# indent_size: -si
+# use_tabs: -sT
+# ex_const: -sv
+
+# A little explanation of how precedence contexts and associativity
+# work:
+#
+# deparse() calls each per-op subroutine with an argument $cx (short
+# for context, but not the same as the cx* in the perl core), which is
+# a number describing the op's parents in terms of precedence, whether
+# they're inside an expression or at statement level, etc.  (see
+# chart below). When ops with children call deparse on them, they pass
+# along their precedence. Fractional values are used to implement
+# associativity ('($x + $y) + $z' => '$x + $y + $y') and related
+# parentheses hacks. The major disadvantage of this scheme is that
+# it doesn't know about right sides and left sides, so say if you
+# assign a listop to a variable, it can't tell it's allowed to leave
+# the parens off the listop.
+
+# Precedences:
+# 26             [TODO] inside interpolation context ("")
+# 25 left        terms and list operators (leftward)
+# 24 left        ->
+# 23 nonassoc    ++ --
+# 22 right       **
+# 21 right       ! ~ \ and unary + and -
+# 20 left        =~ !~
+# 19 left        * / % x
+# 18 left        + - .
+# 17 left        << >>
+# 16 nonassoc    named unary operators
+# 15 nonassoc    < > <= >= lt gt le ge
+# 14 nonassoc    == != <=> eq ne cmp
+# 13 left        &
+# 12 left        | ^
+# 11 left        &&
+# 10 left        ||
+#  9 nonassoc    ..  ...
+#  8 right       ?:
+#  7 right       = += -= *= etc.
+#  6 left        , =>
+#  5 nonassoc    list operators (rightward)
+#  4 right       not
+#  3 left        and
+#  2 left        or xor
+#  1             statement modifiers
+#  0.5           statements, but still print scopes as do { ... }
+#  0             statement level
+# -1             format body
+
+# Nonprinting characters with special meaning:
+# \cS - steal parens (see maybe_parens_unop)
+# \n - newline and indent
+# \t - increase indent
+# \b - decrease indent ('outdent')
+# \f - flush left (no indent)
+# \cK - kill following semicolon, if any
+
+# Semicolon handling:
+#  - Individual statements are not deparsed with trailing semicolons.
+#    (If necessary, \cK is tacked on to the end.)
+#  - Whatever code joins statements together or emits them (lineseq,
+#    scopeop, deparse_root) is responsible for adding semicolons where
+#    necessary.
+#  - use statements are deparsed with trailing semicolons because they are
+#    immediately concatenated with the following statement.
+#  - indent() removes semicolons wherever it sees \cK.
+
+
+BEGIN { for (qw[ const stringify rv2sv list glob pushmark null aelem
+		 nextstate dbstate rv2av rv2hv helem custom ]) {
+    eval "sub OP_\U$_ () { " . opnumber($_) . "}"
+}}
+
+# _pessimise_walk(): recursively walk the optree of a sub,
+# possibly undoing optimisations along the way.
+
+sub _pessimise_walk {
+    my ($self, $startop) = @_;
+
+    return unless $$startop;
+    my ($op, $prevop);
+    for ($op = $startop; $$op; $prevop = $op, $op = $op->sibling) {
+	my $ppname = $op->name;
+
+	# pessimisations start here
+
+	if ($ppname eq "padrange") {
+	    # remove PADRANGE:
+	    # the original optimisation either (1) changed this:
+	    #    pushmark -> (various pad and list and null ops) -> the_rest
+	    # or (2), for the = @_ case, changed this:
+	    #    pushmark -> gv[_] -> rv2av -> (pad stuff)       -> the_rest
+	    # into this:
+	    #    padrange ----------------------------------------> the_rest
+	    # so we just need to convert the padrange back into a
+	    # pushmark, and in case (1), set its op_next to op_sibling,
+	    # which is the head of the original chain of optimised-away
+	    # pad ops, or for (2), set it to sibling->first, which is
+	    # the original gv[_].
+
+	    $B::overlay->{$$op} = {
+		    type => OP_PUSHMARK,
+		    name => 'pushmark',
+		    private => ($op->private & OPpLVAL_INTRO),
+	    };
+	}
+
+	# pessimisations end here
+
+	if (class($op) eq 'PMOP'
+	    && ref($op->pmreplroot)
+	    && ${$op->pmreplroot}
+	    && $op->pmreplroot->isa( 'B::OP' ))
+	{
+	    $self-> _pessimise_walk($op->pmreplroot);
+	}
+
+	if ($op->flags & OPf_KIDS) {
+	    $self-> _pessimise_walk($op->first);
+	}
+
+    }
+}
+
+
+# _pessimise_walk_exe(): recursively walk the op_next chain of a sub,
+# possibly undoing optimisations along the way.
+
+sub _pessimise_walk_exe {
+    my ($self, $startop, $visited) = @_;
+
+    return unless $$startop;
+    return if $visited->{$$startop};
+    my ($op, $prevop);
+    for ($op = $startop; $$op; $prevop = $op, $op = $op->next) {
+	last if $visited->{$$op};
+	$visited->{$$op} = 1;
+	my $ppname = $op->name;
+	if ($ppname =~
+	    /^((and|d?or)(assign)?|(map|grep)while|range|cond_expr|once)$/
+	    # entertry is also a logop, but its op_other invariably points
+	    # into the same chain as the main execution path, so we skip it
+	) {
+	    $self->_pessimise_walk_exe($op->other, $visited);
+	}
+	elsif ($ppname eq "subst") {
+	    $self->_pessimise_walk_exe($op->pmreplstart, $visited);
+	}
+	elsif ($ppname =~ /^(enter(loop|iter))$/) {
+	    # redoop and nextop will already be covered by the main block
+	    # of the loop
+	    $self->_pessimise_walk_exe($op->lastop, $visited);
+	}
+
+	# pessimisations start here
+    }
+}
+
+# Go through an optree and "remove" some optimisations by using an
+# overlay to selectively modify or un-null some ops. Deparsing in the
+# absence of those optimisations is then easier.
+#
+# Note that older optimisations are not removed, as Deparse was already
+# written to recognise them before the pessimise/overlay system was added.
+
+sub pessimise {
+    my ($self, $root, $start) = @_;
+
+    # walk tree in root-to-branch order
+    $self->_pessimise_walk($root);
+
+    my %visited;
+    # walk tree in execution order
+    $self->_pessimise_walk_exe($start, \%visited);
+}
+
+
+sub null {
+    my $op = shift;
+    return class($op) eq "NULL";
+}
+
+sub todo {
+    my $self = shift;
+    my($cv, $is_form, $name) = @_;
+    my $cvfile = $cv->FILE//'';
+    return unless ($cvfile eq $0 || exists $self->{files}{$cvfile});
+    my $seq;
+    if ($cv->OUTSIDE_SEQ) {
+	$seq = $cv->OUTSIDE_SEQ;
+    } elsif (!null($cv->START) and is_state($cv->START)) {
+	$seq = $cv->START->cop_seq;
+    } else {
+	$seq = 0;
+    }
+    push @{$self->{'subs_todo'}}, [$seq, $cv, $is_form, $name];
+}
+
+sub next_todo {
+    my $self = shift;
+    my $ent = shift @{$self->{'subs_todo'}};
+    my $cv = $ent->[1];
+    if (ref $ent->[3]) { # lexical sub
+	my @text;
+
+	# At this point, we may not yet have deparsed the hints that allow
+	# lexical subroutines to be recognized.  So adjust the current
+	# hints and deparse them.
+	# When lex subs cease being experimental, we should be able to
+	# remove this code.
+	{
+	    local $^H = $self->{'hints'};
+	    local %^H = %{ $self->{'hinthash'} || {} };
+	    local ${^WARNING_BITS} = $self->{'warnings'};
+	    feature->import("lexical_subs");
+	    warnings->unimport("experimental::lexical_subs");
+	    # Here we depend on the fact that individual features
+	    # will always set the feature bundle to ‘custom’
+	    # (== $feature::hint_mask).  If we had another specific bundle
+	    # enabled previously, normalise it.
+	    if (($self->{'hints'} & $feature::hint_mask)
+		    != $feature::hint_mask)
+	    {
+		if ($self->{'hinthash'}) {
+		    delete $self->{'hinthash'}{$_}
+			for grep /^feature_/, keys %{$self->{'hinthash'}};
+		}
+		else { $self->{'hinthash'} = {} }
+		$self->{'hinthash'}
+		    = _features_from_bundle(@$self{'hints','hinthash'});
+	    }
+	    push @text, $self->declare_hinthash($self->{'hinthash'}, \%^H,
+						$self->{indent_size}, $^H);
+	    push @text, $self->declare_warnings($self->{'warnings'},
+						${^WARNING_BITS})
+		unless ($self->{'warnings'} // 'u')
+		    eq (${^WARNING_BITS   } // 'u');
+	    $self->{'warnings'} = ${^WARNING_BITS};
+	    $self->{'hints'} = $^H;
+	    $self->{'hinthash'} = {%^H};
+	}
+
+	# Now emit the sub itself.
+	my $padname = $ent->[3];
+	my $flags = $padname->FLAGS;
+	push @text,
+	    !$cv || $ent->[0] <= $padname->COP_SEQ_RANGE_LOW
+		? $self->keyword($flags & SVpad_OUR
+				    ? "our"
+				    : $flags & SVpad_STATE
+					? "state"
+					: "my") . " "
+		: "";
+	# XXX We would do $self->keyword("sub"), but ‘my CORE::sub’
+	#     doesn’t work and ‘my sub’ ignores a &sub in scope.  I.e.,
+	#     we have a core bug here.
+	push @text, "sub " . substr $padname->PVX, 1;
+	if ($cv) {
+	    # my sub foo { }
+	    push @text,  " " . $self->deparse_sub($cv);
+	    $text[-1] =~ s/ ;$/;/;
+	}
+	else {
+	    # my sub foo;
+	    push @text, ";\n";
+	}
+	return join "", @text;
+    }
+    my $gv = $cv->GV;
+    my $name = $ent->[3] // $self->gv_name($gv);
+    if ($ent->[2]) {
+	return $self->keyword("format") . " $name =\n"
+	    . $self->deparse_format($ent->[1]). "\n";
+    } else {
+	my $use_dec;
+	if ($name eq "BEGIN") {
+	    $use_dec = $self->begin_is_use($cv);
+	    if (defined ($use_dec) and $self->{'expand'} < 5) {
+		return () if 0 == length($use_dec);
+		$use_dec =~ s/^(use|no)\b/$self->keyword($1)/e;
+	    }
+	}
+	my $l = '';
+	if ($self->{'linenums'}) {
+	    my $line = $gv->LINE;
+	    my $file = $gv->FILE;
+	    $l = "\n\f#line $line \"$file\"\n";
+	}
+	my $p = '';
+	my $stash;
+	if (class($cv->STASH) ne "SPECIAL") {
+	    $stash = $cv->STASH->NAME;
+	    if ($stash ne $self->{'curstash'}) {
+		$p = $self->keyword("package") . " $stash;\n";
+		$name = "$self->{'curstash'}::$name" unless $name =~ /::/;
+		$self->{'curstash'} = $stash;
+	    }
+	}
+	if ($use_dec) {
+	    return "$p$l$use_dec";
+	}
+        if ( $name !~ /::/ and $self->lex_in_scope("&$name")
+                            || $self->lex_in_scope("&$name", 1) )
+        {
+            $name = "$self->{'curstash'}::$name";
+        } elsif (defined $stash) {
+            $name =~ s/^\Q$stash\E::(?!\z|.*::)//;
+        }
+	my $ret = "${p}${l}" . $self->keyword("sub") . " $name "
+	      . $self->deparse_sub($cv);
+	$self->{'subs_declared'}{$name} = 1;
+	return $ret;
+    }
+}
+
+# Return a "use" declaration for this BEGIN block, if appropriate
+sub begin_is_use {
+    my ($self, $cv) = @_;
+    my $root = $cv->ROOT;
+    local @$self{qw'curcv curcvlex'} = ($cv);
+    local $B::overlay = {};
+    $self->pessimise($root, $cv->START);
+#require B::Debug;
+#B::walkoptree($cv->ROOT, "debug");
+    my $lineseq = $root->first;
+    return if $lineseq->name ne "lineseq";
+
+    my $req_op = $lineseq->first->sibling;
+    return if $req_op->name ne "require";
+
+    my $module;
+    if ($req_op->first->private & OPpCONST_BARE) {
+	# Actually it should always be a bareword
+	$module = $self->const_sv($req_op->first)->PV;
+	$module =~ s[/][::]g;
+	$module =~ s/.pm$//;
+    }
+    else {
+	$module = $self->const($self->const_sv($req_op->first), 6);
+    }
+
+    my $version;
+    my $version_op = $req_op->sibling;
+    return if class($version_op) eq "NULL";
+    if ($version_op->name eq "lineseq") {
+	# We have a version parameter; skip nextstate & pushmark
+	my $constop = $version_op->first->next->next;
+
+	return unless $self->const_sv($constop)->PV eq $module;
+	$constop = $constop->sibling;
+	$version = $self->const_sv($constop);
+	if (class($version) eq "IV") {
+	    $version = $version->int_value;
+	} elsif (class($version) eq "NV") {
+	    $version = $version->NV;
+	} elsif (class($version) ne "PVMG") {
+	    # Includes PVIV and PVNV
+	    $version = $version->PV;
+	} else {
+	    # version specified as a v-string
+	    $version = 'v'.join '.', map ord, split //, $version->PV;
+	}
+	$constop = $constop->sibling;
+	return if $constop->name ne "method_named";
+	return if $self->meth_sv($constop)->PV ne "VERSION";
+    }
+
+    $lineseq = $version_op->sibling;
+    return if $lineseq->name ne "lineseq";
+    my $entersub = $lineseq->first->sibling;
+    if ($entersub->name eq "stub") {
+	return "use $module $version ();\n" if defined $version;
+	return "use $module ();\n";
+    }
+    return if $entersub->name ne "entersub";
+
+    # See if there are import arguments
+    my $args = '';
+
+    my $svop = $entersub->first->sibling; # Skip over pushmark
+    return unless $self->const_sv($svop)->PV eq $module;
+
+    # Pull out the arguments
+    for ($svop=$svop->sibling; index($svop->name, "method_") != 0;
+		$svop = $svop->sibling) {
+	$args .= ", " if length($args);
+	$args .= $self->deparse($svop, 6);
+    }
+
+    my $use = 'use';
+    my $method_named = $svop;
+    return if $method_named->name ne "method_named";
+    my $method_name = $self->meth_sv($method_named)->PV;
+
+    if ($method_name eq "unimport") {
+	$use = 'no';
+    }
+
+    # Certain pragmas are dealt with using hint bits,
+    # so we ignore them here
+    if ($module eq 'strict' || $module eq 'integer'
+	|| $module eq 'bytes' || $module eq 'warnings'
+	|| $module eq 'feature') {
+	return "";
+    }
+
+    if (defined $version && length $args) {
+	return "$use $module $version ($args);\n";
+    } elsif (defined $version) {
+	return "$use $module $version;\n";
+    } elsif (length $args) {
+	return "$use $module ($args);\n";
+    } else {
+	return "$use $module;\n";
+    }
+}
+
+sub stash_subs {
+    my ($self, $pack, $seen) = @_;
+    my (@ret, $stash);
+    if (!defined $pack) {
+	$pack = '';
+	$stash = \%::;
+    }
+    else {
+	$pack =~ s/(::)?$/::/;
+	no strict 'refs';
+	$stash = \%{"main::$pack"};
+    }
+    return
+	if ($seen ||= {})->{
+	    $INC{"overload.pm"} ? overload::StrVal($stash) : $stash
+	   }++;
+    my %stash = svref_2object($stash)->ARRAY;
+    while (my ($key, $val) = each %stash) {
+	my $flags = $val->FLAGS;
+	if ($flags & SVf_ROK) {
+	    # A reference.  Dump this if it is a reference to a CV.  If it
+	    # is a constant acting as a proxy for a full subroutine, then
+	    # we may or may not have to dump it.  If some form of perl-
+	    # space visible code must have created it, be it a use
+	    # statement, or some direct symbol-table manipulation code that
+	    # we will deparse, then we don’t want to dump it.  If it is the
+	    # result of a declaration like sub f () { 42 } then we *do*
+	    # want to dump it.  The only way to distinguish these seems
+	    # to be the SVs_PADTMP flag on the constant, which is admit-
+	    # tedly a hack.
+	    my $class = class(my $referent = $val->RV);
+	    if ($class eq "CV") {
+		$self->todo($referent, 0);
+	    } elsif (
+		$class !~ /^(AV|HV|CV|FM|IO|SPECIAL)\z/
+		# A more robust way to write that would be this, but B does
+		# not provide the SVt_ constants:
+		# ($referent->FLAGS & B::SVTYPEMASK) < B::SVt_PVAV
+		and $referent->FLAGS & SVs_PADTMP
+	    ) {
+		push @{$self->{'protos_todo'}}, [$pack . $key, $val];
+	    }
+	} elsif ($flags & (SVf_POK|SVf_IOK)) {
+	    # Just a prototype. As an ugly but fairly effective way
+	    # to find out if it belongs here is to see if the AUTOLOAD
+	    # (if any) for the stash was defined in one of our files.
+	    my $A = $stash{"AUTOLOAD"};
+	    if (defined ($A) && class($A) eq "GV" && defined($A->CV)
+		&& class($A->CV) eq "CV") {
+		my $AF = $A->FILE;
+		next unless $AF eq $0 || exists $self->{'files'}{$AF};
+	    }
+	    push @{$self->{'protos_todo'}},
+		 [$pack . $key, $flags & SVf_POK ? $val->PV: undef];
+	} elsif (class($val) eq "GV") {
+	    if (class(my $cv = $val->CV) ne "SPECIAL") {
+		next if $self->{'subs_done'}{$$val}++;
+		next if $$val != ${$cv->GV};   # Ignore imposters
+		$self->todo($cv, 0);
+	    }
+	    if (class(my $cv = $val->FORM) ne "SPECIAL") {
+		next if $self->{'forms_done'}{$$val}++;
+		next if $$val != ${$cv->GV};   # Ignore imposters
+		$self->todo($cv, 1);
+	    }
+	    if (class($val->HV) ne "SPECIAL" && $key =~ /::$/) {
+		$self->stash_subs($pack . $key, $seen);
+	    }
+	}
+    }
+}
+
+sub print_protos {
+    my $self = shift;
+    my $ar;
+    my @ret;
+    foreach $ar (@{$self->{'protos_todo'}}) {
+	my $body = defined $ar->[1]
+		? ref $ar->[1]
+		    ? " () {\n    " . $self->const($ar->[1]->RV,0) . ";\n}"
+		    : " (". $ar->[1] . ");"
+		: ";";
+	push @ret, "sub " . $ar->[0] .  "$body\n";
+    }
+    delete $self->{'protos_todo'};
+    return @ret;
+}
+
+sub style_opts {
+    my $self = shift;
+    my $opts = shift;
+    my $opt;
+    while (length($opt = substr($opts, 0, 1))) {
+	if ($opt eq "C") {
+	    $self->{'cuddle'} = " ";
+	    $opts = substr($opts, 1);
+	} elsif ($opt eq "i") {
+	    $opts =~ s/^i(\d+)//;
+	    $self->{'indent_size'} = $1;
+	} elsif ($opt eq "T") {
+	    $self->{'use_tabs'} = 1;
+	    $opts = substr($opts, 1);
+	} elsif ($opt eq "v") {
+	    $opts =~ s/^v([^.]*)(.|$)//;
+	    $self->{'ex_const'} = $1;
+	}
+    }
+}
+
+sub new {
+    my $class = shift;
+    my $self = bless {}, $class;
+    $self->{'cuddle'} = "\n";
+    $self->{'curcop'} = undef;
+    $self->{'curstash'} = "main";
+    $self->{'ex_const'} = "'???'";
+    $self->{'expand'} = 0;
+    $self->{'files'} = {};
+    $self->{'indent_size'} = 4;
+    $self->{'linenums'} = 0;
+    $self->{'parens'} = 0;
+    $self->{'subs_todo'} = [];
+    $self->{'unquote'} = 0;
+    $self->{'use_dumper'} = 0;
+    $self->{'use_tabs'} = 0;
+
+    $self->{'ambient_arybase'} = 0;
+    $self->{'ambient_warnings'} = undef; # Assume no lexical warnings
+    $self->{'ambient_hints'} = 0;
+    $self->{'ambient_hinthash'} = undef;
+    $self->init();
+
+    while (my $arg = shift @_) {
+	if ($arg eq "-d") {
+	    $self->{'use_dumper'} = 1;
+	    require Data::Dumper;
+	} elsif ($arg =~ /^-f(.*)/) {
+	    $self->{'files'}{$1} = 1;
+	} elsif ($arg eq "-l") {
+	    $self->{'linenums'} = 1;
+	} elsif ($arg eq "-p") {
+	    $self->{'parens'} = 1;
+	} elsif ($arg eq "-P") {
+	    $self->{'noproto'} = 1;
+	} elsif ($arg eq "-q") {
+	    $self->{'unquote'} = 1;
+	} elsif (substr($arg, 0, 2) eq "-s") {
+	    $self->style_opts(substr $arg, 2);
+	} elsif ($arg =~ /^-x(\d)$/) {
+	    $self->{'expand'} = $1;
+	}
+    }
+    return $self;
+}
+
+{
+    # Mask out the bits that L<warnings::register> uses
+    my $WARN_MASK;
+    BEGIN {
+	$WARN_MASK = $warnings::Bits{all} | $warnings::DeadBits{all};
+    }
+    sub WARN_MASK () {
+	return $WARN_MASK;
+    }
+}
+
+# Initialise the contextual information, either from
+# defaults provided with the ambient_pragmas method,
+# or from perl's own defaults otherwise.
+sub init {
+    my $self = shift;
+
+    $self->{'arybase'}  = $self->{'ambient_arybase'};
+    $self->{'warnings'} = defined ($self->{'ambient_warnings'})
+				? $self->{'ambient_warnings'} & WARN_MASK
+				: undef;
+    $self->{'hints'}    = $self->{'ambient_hints'};
+    $self->{'hints'} &= 0xFF if $] < 5.009;
+    $self->{'hinthash'} = $self->{'ambient_hinthash'};
+
+    # also a convenient place to clear out subs_declared
+    delete $self->{'subs_declared'};
+}
+
+sub compile {
+    my(@args) = @_;
+    return sub {
+	my $self = B::Deparse->new(@args);
+	# First deparse command-line args
+	if (defined $^I) { # deparse -i
+	    print q(BEGIN { $^I = ).perlstring($^I).qq(; }\n);
+	}
+	if ($^W) { # deparse -w
+	    print qq(BEGIN { \$^W = $^W; }\n);
+	}
+	if ($/ ne "\n" or defined $O::savebackslash) { # deparse -l and -0
+	    my $fs = perlstring($/) || 'undef';
+	    my $bs = perlstring($O::savebackslash) || 'undef';
+	    print qq(BEGIN { \$/ = $fs; \$\\ = $bs; }\n);
+	}
+	my @BEGINs  = B::begin_av->isa("B::AV") ? B::begin_av->ARRAY : ();
+	my @UNITCHECKs = B::unitcheck_av->isa("B::AV")
+	    ? B::unitcheck_av->ARRAY
+	    : ();
+	my @CHECKs  = B::check_av->isa("B::AV") ? B::check_av->ARRAY : ();
+	my @INITs   = B::init_av->isa("B::AV") ? B::init_av->ARRAY : ();
+	my @ENDs    = B::end_av->isa("B::AV") ? B::end_av->ARRAY : ();
+	my @names = qw(BEGIN UNITCHECK CHECK INIT END);
+	my @blocks = \(@BEGINs, @UNITCHECKs, @CHECKs, @INITs, @ENDs);
+	while (@names) {
+	    my ($name, $blocks) = (shift @names, shift @blocks);
+	    for my $block (@$blocks) {
+		$self->todo($block, 0, $name);
+	    }
+	}
+	$self->stash_subs();
+	local($SIG{"__DIE__"}) =
+	  sub {
+	      if ($self->{'curcop'}) {
+		  my $cop = $self->{'curcop'};
+		  my($line, $file) = ($cop->line, $cop->file);
+		  print STDERR "While deparsing $file near line $line,\n";
+	      }
+	    };
+	$self->{'curcv'} = main_cv;
+	$self->{'curcvlex'} = undef;
+	print $self->print_protos;
+	@{$self->{'subs_todo'}} =
+	  sort {$a->[0] <=> $b->[0]} @{$self->{'subs_todo'}};
+	my $root = main_root;
+	local $B::overlay = {};
+	unless (null $root) {
+	    $self->pad_subs($self->{'curcv'});
+	    # Check for a stub-followed-by-ex-cop, resulting from a program
+	    # consisting solely of sub declarations.  For backward-compati-
+	    # bility (and sane output) we don’t want to emit the stub.
+	    #   leave
+	    #     enter
+	    #     stub
+	    #     ex-nextstate (or ex-dbstate)
+	    my $kid;
+	    if ( $root->name eq 'leave'
+	     and ($kid = $root->first)->name eq 'enter'
+	     and !null($kid = $kid->sibling) and $kid->name eq 'stub'
+	     and !null($kid = $kid->sibling) and $kid->name eq 'null'
+	     and class($kid) eq 'COP' and null $kid->sibling )
+	    {
+		# ignore
+	    } else {
+		$self->pessimise($root, main_start);
+		print $self->indent($self->deparse_root($root)), "\n";
+	    }
+	}
+	my @text;
+	while (scalar(@{$self->{'subs_todo'}})) {
+	    push @text, $self->next_todo;
+	}
+	print $self->indent(join("", @text)), "\n" if @text;
+
+	# Print __DATA__ section, if necessary
+	no strict 'refs';
+	my $laststash = defined $self->{'curcop'}
+	    ? $self->{'curcop'}->stash->NAME : $self->{'curstash'};
+	if (defined *{$laststash."::DATA"}{IO}) {
+	    print $self->keyword("package") . " $laststash;\n"
+		unless $laststash eq $self->{'curstash'};
+	    print $self->keyword("__DATA__") . "\n";
+	    print readline(*{$laststash."::DATA"});
+	}
+    }
+}
+
+sub coderef2text {
+    my $self = shift;
+    my $sub = shift;
+    croak "Usage: ->coderef2text(CODEREF)" unless UNIVERSAL::isa($sub, "CODE");
+
+    $self->init();
+    local $self->{in_coderef2text} = 1;
+    return $self->indent($self->deparse_sub(svref_2object($sub)));
+}
+
+my %strict_bits = do {
+    local $^H;
+    map +($_ => strict::bits($_)), qw/refs subs vars/
+};
+
+sub ambient_pragmas {
+    my $self = shift;
+    my ($arybase, $hint_bits, $warning_bits, $hinthash) = (0, 0);
+
+    while (@_ > 1) {
+	my $name = shift();
+	my $val  = shift();
+
+	if ($name eq 'strict') {
+	    require strict;
+
+	    if ($val eq 'none') {
+		$hint_bits &= $strict_bits{$_} for qw/refs subs vars/;
+		next();
+	    }
+
+	    my @names;
+	    if ($val eq "all") {
+		@names = qw/refs subs vars/;
+	    }
+	    elsif (ref $val) {
+		@names = @$val;
+	    }
+	    else {
+		@names = split' ', $val;
+	    }
+	    $hint_bits |= $strict_bits{$_} for @names;
+	}
+
+	elsif ($name eq '$[') {
+	    if (OPpCONST_ARYBASE) {
+		$arybase = $val;
+	    } else {
+		croak "\$[ can't be non-zero on this perl" unless $val == 0;
+	    }
+	}
+
+	elsif ($name eq 'integer'
+	    || $name eq 'bytes'
+	    || $name eq 'utf8') {
+	    require "$name.pm";
+	    if ($val) {
+		$hint_bits |= ${$::{"${name}::"}{"hint_bits"}};
+	    }
+	    else {
+		$hint_bits &= ~${$::{"${name}::"}{"hint_bits"}};
+	    }
+	}
+
+	elsif ($name eq 're') {
+	    require re;
+	    if ($val eq 'none') {
+		$hint_bits &= ~re::bits(qw/taint eval/);
+		next();
+	    }
+
+	    my @names;
+	    if ($val eq 'all') {
+		@names = qw/taint eval/;
+	    }
+	    elsif (ref $val) {
+		@names = @$val;
+	    }
+	    else {
+		@names = split' ',$val;
+	    }
+	    $hint_bits |= re::bits(@names);
+	}
+
+	elsif ($name eq 'warnings') {
+	    if ($val eq 'none') {
+		$warning_bits = $warnings::NONE;
+		next();
+	    }
+
+	    my @names;
+	    if (ref $val) {
+		@names = @$val;
+	    }
+	    else {
+		@names = split/\s+/, $val;
+	    }
+
+	    $warning_bits = $warnings::NONE if !defined ($warning_bits);
+	    $warning_bits |= warnings::bits(@names);
+	}
+
+	elsif ($name eq 'warning_bits') {
+	    $warning_bits = $val;
+	}
+
+	elsif ($name eq 'hint_bits') {
+	    $hint_bits = $val;
+	}
+
+	elsif ($name eq '%^H') {
+	    $hinthash = $val;
+	}
+
+	else {
+	    croak "Unknown pragma type: $name";
+	}
+    }
+    if (@_) {
+	croak "The ambient_pragmas method expects an even number of args";
+    }
+
+    $self->{'ambient_arybase'} = $arybase;
+    $self->{'ambient_warnings'} = $warning_bits;
+    $self->{'ambient_hints'} = $hint_bits;
+    $self->{'ambient_hinthash'} = $hinthash;
+}
+
+# This method is the inner loop, so try to keep it simple
+sub deparse {
+    my $self = shift;
+    my($op, $cx) = @_;
+
+    Carp::confess("Null op in deparse") if !defined($op)
+					|| class($op) eq "NULL";
+    my $meth = "pp_" . $op->name;
+    return $self->$meth($op, $cx);
+}
+
+sub indent {
+    my $self = shift;
+    my $txt = shift;
+    # \cK also swallows a preceding line break when followed by a
+    # semicolon.
+    $txt =~ s/\n\cK;//g;
+    my @lines = split(/\n/, $txt);
+    my $leader = "";
+    my $level = 0;
+    my $line;
+    for $line (@lines) {
+	my $cmd = substr($line, 0, 1);
+	if ($cmd eq "\t" or $cmd eq "\b") {
+	    $level += ($cmd eq "\t" ? 1 : -1) * $self->{'indent_size'};
+	    if ($self->{'use_tabs'}) {
+		$leader = "\t" x ($level / 8) . " " x ($level % 8);
+	    } else {
+		$leader = " " x $level;
+	    }
+	    $line = substr($line, 1);
+	}
+	if (index($line, "\f") > 0) {
+		$line =~ s/\f/\n/;
+	}
+	if (substr($line, 0, 1) eq "\f") {
+	    $line = substr($line, 1); # no indent
+	} else {
+	    $line = $leader . $line;
+	}
+	$line =~ s/\cK;?//g;
+    }
+    return join("\n", @lines);
+}
+
+sub pad_subs {
+    my ($self, $cv) = @_;
+    my $padlist = $cv->PADLIST;
+    my @names = $padlist->ARRAYelt(0)->ARRAY;
+    my @values = $padlist->ARRAYelt(1)->ARRAY;
+    my @todo;
+  PADENTRY:
+    for my $ix (0.. $#names) { for $_ ($names[$ix]) {
+	next if class($_) eq "SPECIAL";
+	my $name = $_->PVX;
+	if (defined $name && $name =~ /^&./) {
+	    my $low = $_->COP_SEQ_RANGE_LOW;
+	    my $flags = $_->FLAGS;
+	    my $outer = $flags & PADNAMEt_OUTER;
+	    if ($flags & SVpad_OUR) {
+		push @todo, [$low, undef, 0, $_]
+		          # [seq, no cv, not format, padname]
+		    unless $outer;
+		next;
+	    }
+	    my $protocv = $flags & SVpad_STATE
+		? $values[$ix]
+		: $_->PROTOCV;
+	    if (class ($protocv) ne 'CV') {
+		my $flags = $flags;
+		my $cv = $cv;
+		my $name = $_;
+		while ($flags & PADNAMEt_OUTER && class ($protocv) ne 'CV')
+		{
+		    $cv = $cv->OUTSIDE;
+		    next PADENTRY if class($cv) eq 'SPECIAL'; # XXX freed?
+		    my $padlist = $cv->PADLIST;
+		    my $ix = $name->PARENT_PAD_INDEX;
+		    $name = $padlist->NAMES->ARRAYelt($ix);
+		    $flags = $name->FLAGS;
+		    $protocv = $flags & SVpad_STATE
+			? $padlist->ARRAYelt(1)->ARRAYelt($ix)
+			: $name->PROTOCV;
+		}
+	    }
+	    my $defined_in_this_sub = ${$protocv->OUTSIDE} == $$cv || do {
+		my $other = $protocv->PADLIST;
+		$$other && $other->outid == $padlist->id;
+	    };
+	    if ($flags & PADNAMEt_OUTER) {
+		next unless $defined_in_this_sub;
+		push @todo, [$protocv->OUTSIDE_SEQ, $protocv, 0, $_];
+		next;
+	    }
+	    my $outseq = $protocv->OUTSIDE_SEQ;
+	    if ($outseq <= $low) {
+		# defined before its name is visible, so it’s gotta be
+		# declared and defined at once: my sub foo { ... }
+		push @todo, [$low, $protocv, 0, $_];
+	    }
+	    else {
+		# declared and defined separately: my sub f; sub f { ... }
+		push @todo, [$low, undef, 0, $_];
+		push @todo, [$outseq, $protocv, 0, $_]
+		    if $defined_in_this_sub;
+	    }
+	}
+    }}
+    @{$self->{'subs_todo'}} =
+	sort {$a->[0] <=> $b->[0]} @{$self->{'subs_todo'}}, @todo
+}
+
+sub deparse_sub {
+    my $self = shift;
+    my $cv = shift;
+    my $proto = "";
+Carp::confess("NULL in deparse_sub") if !defined($cv) || $cv->isa("B::NULL");
+Carp::confess("SPECIAL in deparse_sub") if $cv->isa("B::SPECIAL");
+    local $self->{'curcop'} = $self->{'curcop'};
+    if ($cv->FLAGS & SVf_POK) {
+	$proto = "(". $cv->PV . ") ";
+    }
+    if ($cv->CvFLAGS & (CVf_METHOD|CVf_LOCKED|CVf_LVALUE|CVf_ANONCONST)) {
+        $proto .= ": ";
+        $proto .= "lvalue " if $cv->CvFLAGS & CVf_LVALUE;
+        $proto .= "locked " if $cv->CvFLAGS & CVf_LOCKED;
+        $proto .= "method " if $cv->CvFLAGS & CVf_METHOD;
+        $proto .= "const "  if $cv->CvFLAGS & CVf_ANONCONST;
+    }
+
+    local($self->{'curcv'}) = $cv;
+    local($self->{'curcvlex'});
+    local(@$self{qw'curstash warnings hints hinthash'})
+		= @$self{qw'curstash warnings hints hinthash'};
+    my $body;
+    my $root = $cv->ROOT;
+    local $B::overlay = {};
+    if (not null $root) {
+	$self->pad_subs($cv);
+	$self->pessimise($root, $cv->START);
+	my $lineseq = $root->first;
+	if ($lineseq->name eq "lineseq") {
+	    my @ops;
+	    for(my$o=$lineseq->first; $$o; $o=$o->sibling) {
+		push @ops, $o;
+	    }
+	    $body = $self->lineseq(undef, 0, @ops).";";
+	    my $scope_en = $self->find_scope_en($lineseq);
+	    if (defined $scope_en) {
+		my $subs = join"", $self->seq_subs($scope_en);
+		$body .= ";\n$subs" if length($subs);
+	    }
+	}
+	else {
+	    $body = $self->deparse($root->first, 0);
+	}
+    }
+    else {
+	my $sv = $cv->const_sv;
+	if ($$sv) {
+	    # uh-oh. inlinable sub... format it differently
+	    return $proto . "{ " . $self->const($sv, 0) . " }\n";
+	} else { # XSUB? (or just a declaration)
+	    return "$proto;\n";
+	}
+    }
+    return $proto ."{\n\t$body\n\b}" ."\n";
+}
+
+sub deparse_format {
+    my $self = shift;
+    my $form = shift;
+    my @text;
+    local($self->{'curcv'}) = $form;
+    local($self->{'curcvlex'});
+    local($self->{'in_format'}) = 1;
+    local(@$self{qw'curstash warnings hints hinthash'})
+		= @$self{qw'curstash warnings hints hinthash'};
+    my $op = $form->ROOT;
+    local $B::overlay = {};
+    $self->pessimise($op, $form->START);
+    my $kid;
+    return "\f." if $op->first->name eq 'stub'
+                || $op->first->name eq 'nextstate';
+    $op = $op->first->first; # skip leavewrite, lineseq
+    while (not null $op) {
+	$op = $op->sibling; # skip nextstate
+	my @exprs;
+	$kid = $op->first->sibling; # skip pushmark
+	push @text, "\f".$self->const_sv($kid)->PV;
+	$kid = $kid->sibling;
+	for (; not null $kid; $kid = $kid->sibling) {
+	    push @exprs, $self->deparse($kid, -1);
+	    $exprs[-1] =~ s/;\z//;
+	}
+	push @text, "\f".join(", ", @exprs)."\n" if @exprs;
+	$op = $op->sibling;
+    }
+    return join("", @text) . "\f.";
+}
+
+sub is_scope {
+    my $op = shift;
+    return $op->name eq "leave" || $op->name eq "scope"
+      || $op->name eq "lineseq"
+	|| ($op->name eq "null" && class($op) eq "UNOP"
+	    && (is_scope($op->first) || $op->first->name eq "enter"));
+}
+
+sub is_state {
+    my $name = $_[0]->name;
+    return $name eq "nextstate" || $name eq "dbstate" || $name eq "setstate";
+}
+
+sub is_miniwhile { # check for one-line loop ('foo() while $y--')
+    my $op = shift;
+    return (!null($op) and null($op->sibling)
+	    and $op->name eq "null" and class($op) eq "UNOP"
+	    and (($op->first->name =~ /^(and|or)$/
+		  and $op->first->first->sibling->name eq "lineseq")
+		 or ($op->first->name eq "lineseq"
+		     and not null $op->first->first->sibling
+		     and $op->first->first->sibling->name eq "unstack")
+		 ));
+}
+
+# Check if the op and its sibling are the initialization and the rest of a
+# for (..;..;..) { ... } loop
+sub is_for_loop {
+    my $op = shift;
+    # This OP might be almost anything, though it won't be a
+    # nextstate. (It's the initialization, so in the canonical case it
+    # will be an sassign.) The sibling is (old style) a lineseq whose
+    # first child is a nextstate and whose second is a leaveloop, or
+    # (new style) an unstack whose sibling is a leaveloop.
+    my $lseq = $op->sibling;
+    return 0 unless !is_state($op) and !null($lseq);
+    if ($lseq->name eq "lineseq") {
+	if ($lseq->first && !null($lseq->first) && is_state($lseq->first)
+	    && (my $sib = $lseq->first->sibling)) {
+	    return (!null($sib) && $sib->name eq "leaveloop");
+	}
+    } elsif ($lseq->name eq "unstack" && ($lseq->flags & OPf_SPECIAL)) {
+	my $sib = $lseq->sibling;
+	return $sib && !null($sib) && $sib->name eq "leaveloop";
+    }
+    return 0;
+}
+
+sub is_scalar {
+    my $op = shift;
+    return ($op->name eq "rv2sv" or
+	    $op->name eq "padsv" or
+	    $op->name eq "gv" or # only in array/hash constructs
+	    $op->flags & OPf_KIDS && !null($op->first)
+	      && $op->first->name eq "gvsv");
+}
+
+sub maybe_parens {
+    my $self = shift;
+    my($text, $cx, $prec) = @_;
+    if ($prec < $cx              # unary ops nest just fine
+	or $prec == $cx and $cx != 4 and $cx != 16 and $cx != 21
+	or $self->{'parens'})
+    {
+	$text = "($text)";
+	# In a unop, let parent reuse our parens; see maybe_parens_unop
+	$text = "\cS" . $text if $cx == 16;
+	return $text;
+    } else {
+	return $text;
+    }
+}
+
+# same as above, but get around the 'if it looks like a function' rule
+sub maybe_parens_unop {
+    my $self = shift;
+    my($name, $kid, $cx) = @_;
+    if ($cx > 16 or $self->{'parens'}) {
+	$kid =  $self->deparse($kid, 1);
+ 	if ($name eq "umask" && $kid =~ /^\d+$/) {
+	    $kid = sprintf("%#o", $kid);
+	}
+	return $self->keyword($name) . "($kid)";
+    } else {
+	$kid = $self->deparse($kid, 16);
+ 	if ($name eq "umask" && $kid =~ /^\d+$/) {
+	    $kid = sprintf("%#o", $kid);
+	}
+	$name = $self->keyword($name);
+	if (substr($kid, 0, 1) eq "\cS") {
+	    # use kid's parens
+	    return $name . substr($kid, 1);
+	} elsif (substr($kid, 0, 1) eq "(") {
+	    # avoid looks-like-a-function trap with extra parens
+	    # ('+' can lead to ambiguities)
+	    return "$name(" . $kid  . ")";
+	} else {
+	    return "$name $kid";
+	}
+    }
+}
+
+sub maybe_parens_func {
+    my $self = shift;
+    my($func, $text, $cx, $prec) = @_;
+    if ($prec <= $cx or substr($text, 0, 1) eq "(" or $self->{'parens'}) {
+	return "$func($text)";
+    } else {
+	return "$func $text";
+    }
+}
+
+sub find_our_type {
+    my ($self, $name) = @_;
+    $self->populate_curcvlex() if !defined $self->{'curcvlex'};
+    my $seq = $self->{'curcop'} ? $self->{'curcop'}->cop_seq : 0;
+    for my $a (@{$self->{'curcvlex'}{"o$name"}}) {
+	my ($st, undef, $padname) = @$a;
+	if ($st >= $seq && $padname->FLAGS & SVpad_TYPED) {
+	    return $padname->SvSTASH->NAME;
+	}
+    }
+    return '';
+}
+
+sub maybe_local {
+    my $self = shift;
+    my($op, $cx, $text) = @_;
+    my $name = $op->name;
+    my $our_intro = ($name =~ /^(?:(?:gv|rv2)[ash]v|split|refassign
+				  |lv(?:av)?ref)$/x)
+			? OPpOUR_INTRO
+			: 0;
+    my $lval_intro = $name eq 'split' ? 0 : OPpLVAL_INTRO;
+    # The @a in \(@a) isn't in ref context, but only when the
+    # parens are there.
+    my $need_parens = $self->{'in_refgen'} && $name =~ /[ah]v\z/
+		   && ($op->flags & (OPf_PARENS|OPf_REF)) == OPf_PARENS;
+    if ((my $priv = $op->private) & ($lval_intro|$our_intro)) {
+	my @our_local;
+	push @our_local, "local" if $priv & $lval_intro;
+	push @our_local, "our"   if $priv & $our_intro;
+	my $our_local = join " ", map $self->keyword($_), @our_local;
+	if( $our_local[-1] eq 'our' ) {
+	    if ( $text !~ /^\W(\w+::)*\w+\z/
+	     and !utf8::decode($text) || $text !~ /^\W(\w+::)*\w+\z/
+	    ) {
+		die "Unexpected our($text)\n";
+	    }
+	    $text =~ s/(\w+::)+//;
+
+	    if (my $type = $self->find_our_type($text)) {
+		$our_local .= ' ' . $type;
+	    }
+	}
+	return $need_parens ? "($text)" : $text
+	    if $self->{'avoid_local'}{$$op};
+	if ($need_parens) {
+	    return "$our_local($text)";
+	} elsif (want_scalar($op)) {
+	    return "$our_local $text";
+	} else {
+	    return $self->maybe_parens_func("$our_local", $text, $cx, 16);
+	}
+    } else {
+	return $need_parens ? "($text)" : $text;
+    }
+}
+
+sub maybe_targmy {
+    my $self = shift;
+    my($op, $cx, $func, @args) = @_;
+    if ($op->private & OPpTARGET_MY) {
+	my $var = $self->padname($op->targ);
+	my $val = $func->($self, $op, 7, @args);
+	return $self->maybe_parens("$var = $val", $cx, 7);
+    } else {
+	return $func->($self, $op, $cx, @args);
+    }
+}
+
+sub padname_sv {
+    my $self = shift;
+    my $targ = shift;
+    return $self->{'curcv'}->PADLIST->ARRAYelt(0)->ARRAYelt($targ);
+}
+
+sub maybe_my {
+    my $self = shift;
+    my($op, $cx, $text, $padname, $forbid_parens) = @_;
+    # The @a in \(@a) isn't in ref context, but only when the
+    # parens are there.
+    my $need_parens = !$forbid_parens && $self->{'in_refgen'}
+		   && $op->name =~ /[ah]v\z/
+		   && ($op->flags & (OPf_PARENS|OPf_REF)) == OPf_PARENS;
+    # The @a in \my @a must not have parens.
+    if (!$need_parens && $self->{'in_refgen'}) {
+	$forbid_parens = 1;
+    }
+    if ($op->private & OPpLVAL_INTRO and not $self->{'avoid_local'}{$$op}) {
+	# Check $padname->FLAGS for statehood, rather than $op->private,
+	# because enteriter ops do not carry the flag.
+	my $my =
+	    $self->keyword($padname->FLAGS & SVpad_STATE ? "state" : "my");
+	if ($padname->FLAGS & SVpad_TYPED) {
+	    $my .= ' ' . $padname->SvSTASH->NAME;
+	}
+	if ($need_parens) {
+	    return "$my($text)";
+	} elsif ($forbid_parens || want_scalar($op)) {
+	    return "$my $text";
+	} else {
+	    return $self->maybe_parens_func($my, $text, $cx, 16);
+	}
+    } else {
+	return $need_parens ? "($text)" : $text;
+    }
+}
+
+# The following OPs don't have functions:
+
+# pp_padany -- does not exist after parsing
+
+sub AUTOLOAD {
+    if ($AUTOLOAD =~ s/^.*::pp_//) {
+	warn "unexpected OP_".
+	  ($_[1]->type == OP_CUSTOM ? "CUSTOM ($AUTOLOAD)" : uc $AUTOLOAD);
+	return "XXX";
+    } else {
+	die "Undefined subroutine $AUTOLOAD called";
+    }
+}
+
+sub DESTROY {}	#	Do not AUTOLOAD
+
+# $root should be the op which represents the root of whatever
+# we're sequencing here. If it's undefined, then we don't append
+# any subroutine declarations to the deparsed ops, otherwise we
+# append appropriate declarations.
+sub lineseq {
+    my($self, $root, $cx, @ops) = @_;
+    my($expr, @exprs);
+
+    my $out_cop = $self->{'curcop'};
+    my $out_seq = defined($out_cop) ? $out_cop->cop_seq : undef;
+    my $limit_seq;
+    if (defined $root) {
+	$limit_seq = $out_seq;
+	my $nseq;
+	$nseq = $self->find_scope_st($root->sibling) if ${$root->sibling};
+	$limit_seq = $nseq if !defined($limit_seq)
+			   or defined($nseq) && $nseq < $limit_seq;
+    }
+    $limit_seq = $self->{'limit_seq'}
+	if defined($self->{'limit_seq'})
+	&& (!defined($limit_seq) || $self->{'limit_seq'} < $limit_seq);
+    local $self->{'limit_seq'} = $limit_seq;
+
+    $self->walk_lineseq($root, \@ops,
+		       sub { push @exprs, $_[0]} );
+
+    my $sep = $cx ? '; ' : ";\n";
+    my $body = join($sep, grep {length} @exprs);
+    my $subs = "";
+    if (defined $root && defined $limit_seq && !$self->{'in_format'}) {
+	$subs = join "\n", $self->seq_subs($limit_seq);
+    }
+    return join($sep, grep {length} $body, $subs);
+}
+
+sub scopeop {
+    my($real_block, $self, $op, $cx) = @_;
+    my $kid;
+    my @kids;
+
+    local(@$self{qw'curstash warnings hints hinthash'})
+		= @$self{qw'curstash warnings hints hinthash'} if $real_block;
+    if ($real_block) {
+	$kid = $op->first->sibling; # skip enter
+	if (is_miniwhile($kid)) {
+	    my $top = $kid->first;
+	    my $name = $top->name;
+	    if ($name eq "and") {
+		$name = $self->keyword("while");
+	    } elsif ($name eq "or") {
+		$name = $self->keyword("until");
+	    } else { # no conditional -> while 1 or until 0
+		return $self->deparse($top->first, 1) . " "
+		     . $self->keyword("while") . " 1";
+	    }
+	    my $cond = $top->first;
+	    my $body = $cond->sibling->first; # skip lineseq
+	    $cond = $self->deparse($cond, 1);
+	    $body = $self->deparse($body, 1);
+	    return "$body $name $cond";
+	}
+    } else {
+	$kid = $op->first;
+    }
+    for (; !null($kid); $kid = $kid->sibling) {
+	push @kids, $kid;
+    }
+    if ($cx > 0) { # inside an expression, (a do {} while for lineseq)
+	my $body = $self->lineseq($op, 0, @kids);
+	return is_lexical_subs(@kids)
+		? $body
+		: ($self->lex_in_scope("&do") ? "CORE::do" : "do")
+		 . " {\n\t$body\n\b}";
+    } else {
+	my $lineseq = $self->lineseq($op, $cx, @kids);
+	return (length ($lineseq) ? "$lineseq;" : "");
+    }
+}
+
+sub pp_scope { scopeop(0, @_); }
+sub pp_lineseq { scopeop(0, @_); }
+sub pp_leave { scopeop(1, @_); }
+
+# This is a special case of scopeop and lineseq, for the case of the
+# main_root. The difference is that we print the output statements as
+# soon as we get them, for the sake of impatient users.
+sub deparse_root {
+    my $self = shift;
+    my($op) = @_;
+    local(@$self{qw'curstash warnings hints hinthash'})
+      = @$self{qw'curstash warnings hints hinthash'};
+    my @kids;
+    return if null $op->first; # Can happen, e.g., for Bytecode without -k
+    for (my $kid = $op->first->sibling; !null($kid); $kid = $kid->sibling) {
+	push @kids, $kid;
+    }
+    $self->walk_lineseq($op, \@kids,
+			sub { return unless length $_[0];
+			      print $self->indent($_[0].';');
+			      print "\n"
+				unless $_[1] == $#kids;
+			  });
+}
+
+sub walk_lineseq {
+    my ($self, $op, $kids, $callback) = @_;
+    my @kids = @$kids;
+    for (my $i = 0; $i < @kids; $i++) {
+	my $expr = "";
+	if (is_state $kids[$i]) {
+	    $expr = $self->deparse($kids[$i++], 0);
+	    if ($i > $#kids) {
+		$callback->($expr, $i);
+		last;
+	    }
+	}
+	if (is_for_loop($kids[$i])) {
+	    $callback->($expr . $self->for_loop($kids[$i], 0),
+		$i += $kids[$i]->sibling->name eq "unstack" ? 2 : 1);
+	    next;
+	}
+	my $expr2 = $self->deparse($kids[$i], (@kids != 1)/2);
+	$expr2 =~ s/^sub :(?!:)/+sub :/; # statement label otherwise
+	$expr .= $expr2;
+	$callback->($expr, $i);
+    }
+}
+
+# The BEGIN {} is used here because otherwise this code isn't executed
+# when you run B::Deparse on itself.
+my %globalnames;
+BEGIN { map($globalnames{$_}++, "SIG", "STDIN", "STDOUT", "STDERR", "INC",
+	    "ENV", "ARGV", "ARGVOUT", "_"); }
+
+sub gv_name {
+    my $self = shift;
+    my $gv = shift;
+    my $raw = shift;
+#Carp::confess() unless ref($gv) eq "B::GV";
+    my $cv = $gv->FLAGS & SVf_ROK ? $gv->RV : 0;
+    my $stash = ($cv || $gv)->STASH->NAME;
+    my $name = $raw
+	? $cv ? $cv->NAME_HEK || $cv->GV->NAME : $gv->NAME
+	: $cv
+	    ? B::safename($cv->NAME_HEK || $cv->GV->NAME)
+	    : $gv->SAFENAME;
+    if ($stash eq 'main' && $name =~ /^::/) {
+	$stash = '::';
+    }
+    elsif (($stash eq 'main'
+	    && ($globalnames{$name} || $name =~ /^[^A-Za-z_:]/))
+	or ($stash eq $self->{'curstash'} && !$globalnames{$name}
+	    && ($stash eq 'main' || $name !~ /::/))
+	  )
+    {
+	$stash = "";
+    } else {
+	$stash = $stash . "::";
+    }
+    if (!$raw and $name =~ /^(\^..|{)/) {
+        $name = "{$name}";       # ${^WARNING_BITS}, etc and ${
+    }
+    return $stash . $name;
+}
+
+# Return the name to use for a stash variable.
+# If a lexical with the same name is in scope, or
+# if strictures are enabled, it may need to be
+# fully-qualified.
+sub stash_variable {
+    my ($self, $prefix, $name, $cx) = @_;
+
+    return "$prefix$name" if $name =~ /::/;
+
+    unless ($prefix eq '$' || $prefix eq '@' || $prefix eq '&' || #'
+	    $prefix eq '%' || $prefix eq '$#') {
+	return "$prefix$name";
+    }
+
+    if ($name =~ /^[^[:alpha:]_+-]$/) {
+      if (defined $cx && $cx == 26) {
+	if ($prefix eq '@') {
+	    return "$prefix\{$name}";
+	}
+	elsif ($name eq '#') { return '${#}' } #  "${#}a" vs "$#a"
+      }
+      if ($prefix eq '$#') {
+	return "\$#{$name}";
+      }
+    }
+
+    return $prefix . $self->maybe_qualify($prefix, $name);
+}
+
+my %unctrl = # portable to EBCDIC
+    (
+     "\c@" => '@',	# unused
+     "\cA" => 'A',
+     "\cB" => 'B',
+     "\cC" => 'C',
+     "\cD" => 'D',
+     "\cE" => 'E',
+     "\cF" => 'F',
+     "\cG" => 'G',
+     "\cH" => 'H',
+     "\cI" => 'I',
+     "\cJ" => 'J',
+     "\cK" => 'K',
+     "\cL" => 'L',
+     "\cM" => 'M',
+     "\cN" => 'N',
+     "\cO" => 'O',
+     "\cP" => 'P',
+     "\cQ" => 'Q',
+     "\cR" => 'R',
+     "\cS" => 'S',
+     "\cT" => 'T',
+     "\cU" => 'U',
+     "\cV" => 'V',
+     "\cW" => 'W',
+     "\cX" => 'X',
+     "\cY" => 'Y',
+     "\cZ" => 'Z',
+     "\c[" => '[',	# unused
+     "\c\\" => '\\',	# unused
+     "\c]" => ']',	# unused
+     "\c_" => '_',	# unused
+    );
+
+# Return just the name, without the prefix.  It may be returned as a quoted
+# string.  The second return value is a boolean indicating that.
+sub stash_variable_name {
+    my($self, $prefix, $gv) = @_;
+    my $name = $self->gv_name($gv, 1);
+    $name = $self->maybe_qualify($prefix,$name);
+    if ($name =~ /^(?:\S|(?!\d)[\ca-\cz]?(?:\w|::)*|\d+)\z/) {
+	$name =~ s/^([\ca-\cz])/'^' . $unctrl{$1}/e;
+	$name =~ /^(\^..|{)/ and $name = "{$name}";
+	return $name, 0; # not quoted
+    }
+    else {
+	single_delim("q", "'", $name, $self), 1;
+    }
+}
+
+sub maybe_qualify {
+    my ($self,$prefix,$name) = @_;
+    my $v = ($prefix eq '$#' ? '@' : $prefix) . $name;
+    return $name if !$prefix || $name =~ /::/;
+    return $self->{'curstash'}.'::'. $name
+	if
+	    $name =~ /^(?!\d)\w/         # alphabetic
+	 && $v    !~ /^\$[ab]\z/	 # not $a or $b
+	 && !$globalnames{$name}         # not a global name
+	 && $self->{hints} & $strict_bits{vars}  # strict vars
+	 && !$self->lex_in_scope($v,1)   # no "our"
+      or $self->lex_in_scope($v);        # conflicts with "my" variable
+    return $name;
+}
+
+sub lex_in_scope {
+    my ($self, $name, $our) = @_;
+    substr $name, 0, 0, = $our ? 'o' : 'm'; # our/my
+    $self->populate_curcvlex() if !defined $self->{'curcvlex'};
+
+    return 0 if !defined($self->{'curcop'});
+    my $seq = $self->{'curcop'}->cop_seq;
+    return 0 if !exists $self->{'curcvlex'}{$name};
+    for my $a (@{$self->{'curcvlex'}{$name}}) {
+	my ($st, $en) = @$a;
+	return 1 if $seq > $st && $seq <= $en;
+    }
+    return 0;
+}
+
+sub populate_curcvlex {
+    my $self = shift;
+    for (my $cv = $self->{'curcv'}; class($cv) eq "CV"; $cv = $cv->OUTSIDE) {
+	my $padlist = $cv->PADLIST;
+	# an undef CV still in lexical chain
+	next if class($padlist) eq "SPECIAL";
+	my @padlist = $padlist->ARRAY;
+	my @ns = $padlist[0]->ARRAY;
+
+	for (my $i=0; $i<@ns; ++$i) {
+	    next if class($ns[$i]) eq "SPECIAL";
+	    if (class($ns[$i]) eq "PV") {
+		# Probably that pesky lexical @_
+		next;
+	    }
+            my $name = $ns[$i]->PVX;
+	    next unless defined $name;
+	    my ($seq_st, $seq_en) =
+		($ns[$i]->FLAGS & SVf_FAKE)
+		    ? (0, 999999)
+		    : ($ns[$i]->COP_SEQ_RANGE_LOW, $ns[$i]->COP_SEQ_RANGE_HIGH);
+
+	    push @{$self->{'curcvlex'}{
+			($ns[$i]->FLAGS & SVpad_OUR ? 'o' : 'm') . $name
+		  }}, [$seq_st, $seq_en, $ns[$i]];
+	}
+    }
+}
+
+sub find_scope_st { ((find_scope(@_))[0]); }
+sub find_scope_en { ((find_scope(@_))[1]); }
+
+# Recurses down the tree, looking for pad variable introductions and COPs
+sub find_scope {
+    my ($self, $op, $scope_st, $scope_en) = @_;
+    carp("Undefined op in find_scope") if !defined $op;
+    return ($scope_st, $scope_en) unless $op->flags & OPf_KIDS;
+
+    my @queue = ($op);
+    while(my $op = shift @queue ) {
+	for (my $o=$op->first; $$o; $o=$o->sibling) {
+	    if ($o->name =~ /^pad.v$/ && $o->private & OPpLVAL_INTRO) {
+		my $s = int($self->padname_sv($o->targ)->COP_SEQ_RANGE_LOW);
+		my $e = $self->padname_sv($o->targ)->COP_SEQ_RANGE_HIGH;
+		$scope_st = $s if !defined($scope_st) || $s < $scope_st;
+		$scope_en = $e if !defined($scope_en) || $e > $scope_en;
+		return ($scope_st, $scope_en);
+	    }
+	    elsif (is_state($o)) {
+		my $c = $o->cop_seq;
+		$scope_st = $c if !defined($scope_st) || $c < $scope_st;
+		$scope_en = $c if !defined($scope_en) || $c > $scope_en;
+		return ($scope_st, $scope_en);
+	    }
+	    elsif ($o->flags & OPf_KIDS) {
+		unshift (@queue, $o);
+	    }
+	}
+    }
+
+    return ($scope_st, $scope_en);
+}
+
+# Returns a list of subs which should be inserted before the COP
+sub cop_subs {
+    my ($self, $op, $out_seq) = @_;
+    my $seq = $op->cop_seq;
+    if ($] < 5.021006) {
+      # If we have nephews, then our sequence number indicates
+      # the cop_seq of the end of some sort of scope.
+      if (class($op->sibling) ne "NULL" && $op->sibling->flags & OPf_KIDS
+	and my $nseq = $self->find_scope_st($op->sibling) ) {
+	$seq = $nseq;
+      }
+    }
+    $seq = $out_seq if defined($out_seq) && $out_seq < $seq;
+    return $self->seq_subs($seq);
+}
+
+sub seq_subs {
+    my ($self, $seq) = @_;
+    my @text;
+#push @text, "# ($seq)\n";
+
+    return "" if !defined $seq;
+    my @pending;
+    while (scalar(@{$self->{'subs_todo'}})
+	   and $seq > $self->{'subs_todo'}[0][0]) {
+	my $cv = $self->{'subs_todo'}[0][1];
+	# Skip the OUTSIDE check for lexical subs.  We may be deparsing a
+	# cloned anon sub with lexical subs declared in it, in which case
+	# the OUTSIDE pointer points to the anon protosub.
+	my $lexical = ref $self->{'subs_todo'}[0][3];
+	my $outside = !$lexical && $cv && $cv->OUTSIDE;
+	if (!$lexical and $cv
+	 and ${$cv->OUTSIDE || \0} != ${$self->{'curcv'}})
+	{
+	    push @pending, shift @{$self->{'subs_todo'}};
+	    next;
+	}
+	push @text, $self->next_todo;
+    }
+    unshift @{$self->{'subs_todo'}}, @pending;
+    return @text;
+}
+
+sub _features_from_bundle {
+    my ($hints, $hh) = @_;
+    foreach (@{$feature::feature_bundle{@feature::hint_bundles[$hints >> $feature::hint_shift]}}) {
+	$hh->{$feature::feature{$_}} = 1;
+    }
+    return $hh;
+}
+
+# Notice how subs and formats are inserted between statements here;
+# also $[ assignments and pragmas.
+sub pp_nextstate {
+    my $self = shift;
+    my($op, $cx) = @_;
+    $self->{'curcop'} = $op;
+    my @text;
+    push @text, $self->cop_subs($op);
+    if (@text) {
+	# Special marker to swallow up the semicolon
+	push @text, "\cK";
+    }
+    my $stash = $op->stashpv;
+    if ($stash ne $self->{'curstash'}) {
+	push @text, $self->keyword("package") . " $stash;\n";
+	$self->{'curstash'} = $stash;
+    }
+
+    if (OPpCONST_ARYBASE && $self->{'arybase'} != $op->arybase) {
+	push @text, '$[ = '. $op->arybase .";\n";
+	$self->{'arybase'} = $op->arybase;
+    }
+
+    my $warnings = $op->warnings;
+    my $warning_bits;
+    if ($warnings->isa("B::SPECIAL") && $$warnings == 4) {
+	$warning_bits = $warnings::Bits{"all"} & WARN_MASK;
+    }
+    elsif ($warnings->isa("B::SPECIAL") && $$warnings == 5) {
+        $warning_bits = $warnings::NONE;
+    }
+    elsif ($warnings->isa("B::SPECIAL")) {
+	$warning_bits = undef;
+    }
+    else {
+	$warning_bits = $warnings->PV & WARN_MASK;
+    }
+
+    if (defined ($warning_bits) and
+       !defined($self->{warnings}) || $self->{'warnings'} ne $warning_bits) {
+	push @text,
+	    $self->declare_warnings($self->{'warnings'}, $warning_bits);
+	$self->{'warnings'} = $warning_bits;
+    }
+
+    my $hints = $] < 5.008009 ? $op->private : $op->hints;
+    my $old_hints = $self->{'hints'};
+    if ($self->{'hints'} != $hints) {
+	push @text, $self->declare_hints($self->{'hints'}, $hints);
+	$self->{'hints'} = $hints;
+    }
+
+    my $newhh;
+    if ($] > 5.009) {
+	$newhh = $op->hints_hash->HASH;
+    }
+
+    if ($] >= 5.015006) {
+	# feature bundle hints
+	my $from = $old_hints & $feature::hint_mask;
+	my $to   = $    hints & $feature::hint_mask;
+	if ($from != $to) {
+	    if ($to == $feature::hint_mask) {
+		if ($self->{'hinthash'}) {
+		    delete $self->{'hinthash'}{$_}
+			for grep /^feature_/, keys %{$self->{'hinthash'}};
+		}
+		else { $self->{'hinthash'} = {} }
+		$self->{'hinthash'}
+		    = _features_from_bundle($from, $self->{'hinthash'});
+	    }
+	    else {
+		my $bundle =
+		    $feature::hint_bundles[$to >> $feature::hint_shift];
+		$bundle =~ s/(\d[13579])\z/$1+1/e; # 5.11 => 5.12
+		push @text,
+		    $self->keyword("no") . " feature ':all';\n",
+		    $self->keyword("use") . " feature ':$bundle';\n";
+	    }
+	}
+    }
+
+    if ($] > 5.009) {
+	push @text, $self->declare_hinthash(
+	    $self->{'hinthash'}, $newhh,
+	    $self->{indent_size}, $self->{hints},
+	);
+	$self->{'hinthash'} = $newhh;
+    }
+
+    # This should go after of any branches that add statements, to
+    # increase the chances that it refers to the same line it did in
+    # the original program.
+    if ($self->{'linenums'} && $cx != .5) { # $cx == .5 means in a format
+	push @text, "\f#line " . $op->line .
+	  ' "' . $op->file, qq'"\n';
+    }
+
+    push @text, $op->label . ": " if $op->label;
+
+    return join("", @text);
+}
+
+sub declare_warnings {
+    my ($self, $from, $to) = @_;
+    if (($to & WARN_MASK) eq (warnings::bits("all") & WARN_MASK)) {
+	return $self->keyword("use") . " warnings;\n";
+    }
+    elsif (($to & WARN_MASK) eq ("\0"x length($to) & WARN_MASK)) {
+	return $self->keyword("no") . " warnings;\n";
+    }
+    return "BEGIN {\${^WARNING_BITS} = \""
+           . join("", map { sprintf("\\x%02x", ord $_) } split "", $to)
+           . "\"}\n\cK";
+}
+
+sub declare_hints {
+    my ($self, $from, $to) = @_;
+    my $use = $to   & ~$from;
+    my $no  = $from & ~$to;
+    my $decls = "";
+    for my $pragma (hint_pragmas($use)) {
+	$decls .= $self->keyword("use") . " $pragma;\n";
+    }
+    for my $pragma (hint_pragmas($no)) {
+        $decls .= $self->keyword("no") . " $pragma;\n";
+    }
+    return $decls;
+}
+
+# Internal implementation hints that the core sets automatically, so don't need
+# (or want) to be passed back to the user
+my %ignored_hints = (
+    'open<' => 1,
+    'open>' => 1,
+    ':'     => 1,
+    'strict/refs' => 1,
+    'strict/subs' => 1,
+    'strict/vars' => 1,
+);
+
+my %rev_feature;
+
+sub declare_hinthash {
+    my ($self, $from, $to, $indent, $hints) = @_;
+    my $doing_features =
+	($hints & $feature::hint_mask) == $feature::hint_mask;
+    my @decls;
+    my @features;
+    my @unfeatures; # bugs?
+    for my $key (sort keys %$to) {
+	next if $ignored_hints{$key};
+	my $is_feature = $key =~ /^feature_/ && $^V ge 5.15.6;
+	next if $is_feature and not $doing_features;
+	if (!exists $from->{$key} or $from->{$key} ne $to->{$key}) {
+	    push(@features, $key), next if $is_feature;
+	    push @decls,
+		qq(\$^H{) . single_delim("q", "'", $key, $self) . qq(} = )
+	      . (
+		   defined $to->{$key}
+			? single_delim("q", "'", $to->{$key}, $self)
+			: 'undef'
+		)
+	      . qq(;);
+	}
+    }
+    for my $key (sort keys %$from) {
+	next if $ignored_hints{$key};
+	my $is_feature = $key =~ /^feature_/ && $^V ge 5.15.6;
+	next if $is_feature and not $doing_features;
+	if (!exists $to->{$key}) {
+	    push(@unfeatures, $key), next if $is_feature;
+	    push @decls, qq(delete \$^H{'$key'};);
+	}
+    }
+    my @ret;
+    if (@features || @unfeatures) {
+	if (!%rev_feature) { %rev_feature = reverse %feature::feature }
+    }
+    if (@features) {
+	push @ret, $self->keyword("use") . " feature "
+		 . join(", ", map "'$rev_feature{$_}'", @features) . ";\n";
+    }
+    if (@unfeatures) {
+	push @ret, $self->keyword("no") . " feature "
+		 . join(", ", map "'$rev_feature{$_}'", @unfeatures)
+		 . ";\n";
+    }
+    @decls and
+	push @ret,
+	     join("\n" . (" " x $indent), "BEGIN {", @decls) . "\n}\n\cK";
+    return @ret;
+}
+
+sub hint_pragmas {
+    my ($bits) = @_;
+    my (@pragmas, @strict);
+    push @pragmas, "integer" if $bits & 0x1;
+    for (sort keys %strict_bits) {
+	push @strict, "'$_'" if $bits & $strict_bits{$_};
+    }
+    if (@strict == keys %strict_bits) {
+	push @pragmas, "strict";
+    }
+    elsif (@strict) {
+	push @pragmas, "strict " . join ', ', @strict;
+    }
+    push @pragmas, "bytes" if $bits & 0x8;
+    return @pragmas;
+}
+
+sub pp_dbstate { pp_nextstate(@_) }
+sub pp_setstate { pp_nextstate(@_) }
+
+sub pp_unstack { return "" } # see also leaveloop
+
+my %feature_keywords = (
+  # keyword => 'feature',
+    state   => 'state',
+    say     => 'say',
+    given   => 'switch',
+    when    => 'switch',
+    default => 'switch',
+    break   => 'switch',
+    evalbytes=>'evalbytes',
+    __SUB__ => '__SUB__',
+   fc       => 'fc',
+);
+
+# keywords that are strong and also have a prototype
+#
+my %strong_proto_keywords = map { $_ => 1 } qw(
+    pos
+    prototype
+    scalar
+    study
+    undef
+);
+
+sub feature_enabled {
+	my($self,$name) = @_;
+	my $hh;
+	my $hints = $self->{hints} & $feature::hint_mask;
+	if ($hints && $hints != $feature::hint_mask) {
+	    $hh = _features_from_bundle($hints);
+	}
+	elsif ($hints) { $hh = $self->{'hinthash'} }
+	return $hh && $hh->{"feature_$feature_keywords{$name}"}
+}
+
+sub keyword {
+    my $self = shift;
+    my $name = shift;
+    return $name if $name =~ /^CORE::/; # just in case
+    if (exists $feature_keywords{$name}) {
+	return "CORE::$name" if not $self->feature_enabled($name);
+    }
+    # This sub may be called for a program that has no nextstate ops.  In
+    # that case we may have a lexical sub named no/use/sub in scope but
+    # but $self->lex_in_scope will return false because it depends on the
+    # current nextstate op.  So we need this alternate method if there is
+    # no current cop.
+    if (!$self->{'curcop'}) {
+	$self->populate_curcvlex() if !defined $self->{'curcvlex'};
+	return "CORE::$name" if exists $self->{'curcvlex'}{"m&$name"}
+			     || exists $self->{'curcvlex'}{"o&$name"};
+    } elsif ($self->lex_in_scope("&$name")
+	  || $self->lex_in_scope("&$name", 1)) {
+	return "CORE::$name";
+    }
+    if ($strong_proto_keywords{$name}
+        || ($name !~ /^(?:chom?p|do|exec|glob|s(?:elect|ystem))\z/
+	    && !defined eval{prototype "CORE::$name"})
+    ) { return $name }
+    if (
+	exists $self->{subs_declared}{$name}
+	 or
+	exists &{"$self->{curstash}::$name"}
+    ) {
+	return "CORE::$name"
+    }
+    return $name;
+}
+
+sub baseop {
+    my $self = shift;
+    my($op, $cx, $name) = @_;
+    return $self->keyword($name);
+}
+
+sub pp_stub { "()" }
+sub pp_wantarray { baseop(@_, "wantarray") }
+sub pp_fork { baseop(@_, "fork") }
+sub pp_wait { maybe_targmy(@_, \&baseop, "wait") }
+sub pp_getppid { maybe_targmy(@_, \&baseop, "getppid") }
+sub pp_time { maybe_targmy(@_, \&baseop, "time") }
+sub pp_tms { baseop(@_, "times") }
+sub pp_ghostent { baseop(@_, "gethostent") }
+sub pp_gnetent { baseop(@_, "getnetent") }
+sub pp_gprotoent { baseop(@_, "getprotoent") }
+sub pp_gservent { baseop(@_, "getservent") }
+sub pp_ehostent { baseop(@_, "endhostent") }
+sub pp_enetent { baseop(@_, "endnetent") }
+sub pp_eprotoent { baseop(@_, "endprotoent") }
+sub pp_eservent { baseop(@_, "endservent") }
+sub pp_gpwent { baseop(@_, "getpwent") }
+sub pp_spwent { baseop(@_, "setpwent") }
+sub pp_epwent { baseop(@_, "endpwent") }
+sub pp_ggrent { baseop(@_, "getgrent") }
+sub pp_sgrent { baseop(@_, "setgrent") }
+sub pp_egrent { baseop(@_, "endgrent") }
+sub pp_getlogin { baseop(@_, "getlogin") }
+
+sub POSTFIX () { 1 }
+
+# I couldn't think of a good short name, but this is the category of
+# symbolic unary operators with interesting precedence
+
+sub pfixop {
+    my $self = shift;
+    my($op, $cx, $name, $prec, $flags) = (@_, 0);
+    my $kid = $op->first;
+    $kid = $self->deparse($kid, $prec);
+    return $self->maybe_parens(($flags & POSTFIX)
+				 ? "$kid$name"
+				   # avoid confusion with filetests
+				 : $name eq '-'
+				   && $kid =~ /^[a-zA-Z](?!\w)/
+					? "$name($kid)"
+					: "$name$kid",
+			       $cx, $prec);
+}
+
+sub pp_preinc { pfixop(@_, "++", 23) }
+sub pp_predec { pfixop(@_, "--", 23) }
+sub pp_postinc { maybe_targmy(@_, \&pfixop, "++", 23, POSTFIX) }
+sub pp_postdec { maybe_targmy(@_, \&pfixop, "--", 23, POSTFIX) }
+sub pp_i_preinc { pfixop(@_, "++", 23) }
+sub pp_i_predec { pfixop(@_, "--", 23) }
+sub pp_i_postinc { maybe_targmy(@_, \&pfixop, "++", 23, POSTFIX) }
+sub pp_i_postdec { maybe_targmy(@_, \&pfixop, "--", 23, POSTFIX) }
+sub pp_complement { maybe_targmy(@_, \&pfixop, "~", 21) }
+*pp_ncomplement = *pp_complement;
+sub pp_scomplement { maybe_targmy(@_, \&pfixop, "~.", 21) }
+
+sub pp_negate { maybe_targmy(@_, \&real_negate) }
+sub real_negate {
+    my $self = shift;
+    my($op, $cx) = @_;
+    if ($op->first->name =~ /^(i_)?negate$/) {
+	# avoid --$x
+	$self->pfixop($op, $cx, "-", 21.5);
+    } else {
+	$self->pfixop($op, $cx, "-", 21);	
+    }
+}
+sub pp_i_negate { pp_negate(@_) }
+
+sub pp_not {
+    my $self = shift;
+    my($op, $cx) = @_;
+    if ($cx <= 4) {
+	$self->listop($op, $cx, "not", $op->first);
+    } else {
+	$self->pfixop($op, $cx, "!", 21);	
+    }
+}
+
+sub unop {
+    my $self = shift;
+    my($op, $cx, $name, $nollafr) = @_;
+    my $kid;
+    if ($op->flags & OPf_KIDS) {
+	$kid = $op->first;
+ 	if (not $name) {
+ 	    # this deals with 'boolkeys' right now
+ 	    return $self->deparse($kid,$cx);
+ 	}
+	my $builtinname = $name;
+	$builtinname =~ /^CORE::/ or $builtinname = "CORE::$name";
+	if (defined prototype($builtinname)
+	   && $builtinname ne 'CORE::readline'
+	   && prototype($builtinname) =~ /^;?\*/
+	   && $kid->name eq "rv2gv") {
+	    $kid = $kid->first;
+	}
+
+	if ($nollafr) {
+	    if (($kid = $self->deparse($kid, 16)) !~ s/^\cS//) {
+		# require foo() is a syntax error.
+		$kid =~ /^(?!\d)\w/ and $kid = "($kid)";
+	    }
+	    return $self->maybe_parens(
+			$self->keyword($name) . " $kid", $cx, 16
+		   );
+	}   
+	return $self->maybe_parens_unop($name, $kid, $cx);
+    } else {
+	return $self->maybe_parens(
+	    $self->keyword($name) . ($op->flags & OPf_SPECIAL ? "()" : ""),
+	    $cx, 16,
+	);
+    }
+}
+
+sub pp_chop { maybe_targmy(@_, \&unop, "chop") }
+sub pp_chomp { maybe_targmy(@_, \&unop, "chomp") }
+sub pp_schop { maybe_targmy(@_, \&unop, "chop") }
+sub pp_schomp { maybe_targmy(@_, \&unop, "chomp") }
+sub pp_defined { unop(@_, "defined") }
+sub pp_undef { unop(@_, "undef") }
+sub pp_study { unop(@_, "study") }
+sub pp_ref { unop(@_, "ref") }
+sub pp_pos { maybe_local(@_, unop(@_, "pos")) }
+
+sub pp_sin { maybe_targmy(@_, \&unop, "sin") }
+sub pp_cos { maybe_targmy(@_, \&unop, "cos") }
+sub pp_rand { maybe_targmy(@_, \&unop, "rand") }
+sub pp_srand { unop(@_, "srand") }
+sub pp_exp { maybe_targmy(@_, \&unop, "exp") }
+sub pp_log { maybe_targmy(@_, \&unop, "log") }
+sub pp_sqrt { maybe_targmy(@_, \&unop, "sqrt") }
+sub pp_int { maybe_targmy(@_, \&unop, "int") }
+sub pp_hex { maybe_targmy(@_, \&unop, "hex") }
+sub pp_oct { maybe_targmy(@_, \&unop, "oct") }
+sub pp_abs { maybe_targmy(@_, \&unop, "abs") }
+
+sub pp_length { maybe_targmy(@_, \&unop, "length") }
+sub pp_ord { maybe_targmy(@_, \&unop, "ord") }
+sub pp_chr { maybe_targmy(@_, \&unop, "chr") }
+
+sub pp_each { unop(@_, "each") }
+sub pp_values { unop(@_, "values") }
+sub pp_keys { unop(@_, "keys") }
+{ no strict 'refs'; *{"pp_r$_"} = *{"pp_$_"} for qw< keys each values >; }
+sub pp_boolkeys { 
+    # no name because its an optimisation op that has no keyword
+    unop(@_,"");
+}
+sub pp_aeach { unop(@_, "each") }
+sub pp_avalues { unop(@_, "values") }
+sub pp_akeys { unop(@_, "keys") }
+sub pp_pop { unop(@_, "pop") }
+sub pp_shift { unop(@_, "shift") }
+
+sub pp_caller { unop(@_, "caller") }
+sub pp_reset { unop(@_, "reset") }
+sub pp_exit { unop(@_, "exit") }
+sub pp_prototype { unop(@_, "prototype") }
+
+sub pp_close { unop(@_, "close") }
+sub pp_fileno { unop(@_, "fileno") }
+sub pp_umask { unop(@_, "umask") }
+sub pp_untie { unop(@_, "untie") }
+sub pp_tied { unop(@_, "tied") }
+sub pp_dbmclose { unop(@_, "dbmclose") }
+sub pp_getc { unop(@_, "getc") }
+sub pp_eof { unop(@_, "eof") }
+sub pp_tell { unop(@_, "tell") }
+sub pp_getsockname { unop(@_, "getsockname") }
+sub pp_getpeername { unop(@_, "getpeername") }
+
+sub pp_chdir {
+    my ($self, $op, $cx) = @_;
+    if (($op->flags & (OPf_SPECIAL|OPf_KIDS)) == (OPf_SPECIAL|OPf_KIDS)) {
+	my $kw = $self->keyword("chdir");
+	my $kid = $self->const_sv($op->first)->PV;
+	my $code = $kw
+		 . ($cx >= 16 || $self->{'parens'} ? "($kid)" : " $kid");
+	maybe_targmy(@_, sub { $_[3] }, $code);
+    } else {
+	maybe_targmy(@_, \&unop, "chdir")
+    }
+}
+
+sub pp_chroot { maybe_targmy(@_, \&unop, "chroot") }
+sub pp_readlink { unop(@_, "readlink") }
+sub pp_rmdir { maybe_targmy(@_, \&unop, "rmdir") }
+sub pp_readdir { unop(@_, "readdir") }
+sub pp_telldir { unop(@_, "telldir") }
+sub pp_rewinddir { unop(@_, "rewinddir") }
+sub pp_closedir { unop(@_, "closedir") }
+sub pp_getpgrp { maybe_targmy(@_, \&unop, "getpgrp") }
+sub pp_localtime { unop(@_, "localtime") }
+sub pp_gmtime { unop(@_, "gmtime") }
+sub pp_alarm { unop(@_, "alarm") }
+sub pp_sleep { maybe_targmy(@_, \&unop, "sleep") }
+
+sub pp_dofile {
+    my $code = unop(@_, "do", 1); # llafr does not apply
+    if ($code =~ s/^((?:CORE::)?do) \{/$1({/) { $code .= ')' }
+    $code;
+}
+sub pp_entereval {
+    unop(
+      @_,
+      $_[1]->private & OPpEVAL_BYTES ? 'evalbytes' : "eval"
+    )
+}
+
+sub pp_ghbyname { unop(@_, "gethostbyname") }
+sub pp_gnbyname { unop(@_, "getnetbyname") }
+sub pp_gpbyname { unop(@_, "getprotobyname") }
+sub pp_shostent { unop(@_, "sethostent") }
+sub pp_snetent { unop(@_, "setnetent") }
+sub pp_sprotoent { unop(@_, "setprotoent") }
+sub pp_sservent { unop(@_, "setservent") }
+sub pp_gpwnam { unop(@_, "getpwnam") }
+sub pp_gpwuid { unop(@_, "getpwuid") }
+sub pp_ggrnam { unop(@_, "getgrnam") }
+sub pp_ggrgid { unop(@_, "getgrgid") }
+
+sub pp_lock { unop(@_, "lock") }
+
+sub pp_continue { unop(@_, "continue"); }
+sub pp_break { unop(@_, "break"); }
+
+sub givwhen {
+    my $self = shift;
+    my($op, $cx, $givwhen) = @_;
+
+    my $enterop = $op->first;
+    my ($head, $block);
+    if ($enterop->flags & OPf_SPECIAL) {
+	$head = $self->keyword("default");
+	$block = $self->deparse($enterop->first, 0);
+    }
+    else {
+	my $cond = $enterop->first;
+	my $cond_str = $self->deparse($cond, 1);
+	$head = "$givwhen ($cond_str)";
+	$block = $self->deparse($cond->sibling, 0);
+    }
+
+    return "$head {\n".
+	"\t$block\n".
+	"\b}\cK";
+}
+
+sub pp_leavegiven { givwhen(@_, $_[0]->keyword("given")); }
+sub pp_leavewhen  { givwhen(@_, $_[0]->keyword("when")); }
+
+sub pp_exists {
+    my $self = shift;
+    my($op, $cx) = @_;
+    my $arg;
+    my $name = $self->keyword("exists");
+    if ($op->private & OPpEXISTS_SUB) {
+	# Checking for the existence of a subroutine
+	return $self->maybe_parens_func($name,
+				$self->pp_rv2cv($op->first, 16), $cx, 16);
+    }
+    if ($op->flags & OPf_SPECIAL) {
+	# Array element, not hash element
+	return $self->maybe_parens_func($name,
+				$self->pp_aelem($op->first, 16), $cx, 16);
+    }
+    return $self->maybe_parens_func($name, $self->pp_helem($op->first, 16),
+				    $cx, 16);
+}
+
+sub pp_delete {
+    my $self = shift;
+    my($op, $cx) = @_;
+    my $arg;
+    my $name = $self->keyword("delete");
+    if ($op->private & OPpSLICE) {
+	if ($op->flags & OPf_SPECIAL) {
+	    # Deleting from an array, not a hash
+	    return $self->maybe_parens_func($name,
+					$self->pp_aslice($op->first, 16),
+					$cx, 16);
+	}
+	return $self->maybe_parens_func($name,
+					$self->pp_hslice($op->first, 16),
+					$cx, 16);
+    } else {
+	if ($op->flags & OPf_SPECIAL) {
+	    # Deleting from an array, not a hash
+	    return $self->maybe_parens_func($name,
+					$self->pp_aelem($op->first, 16),
+					$cx, 16);
+	}
+	return $self->maybe_parens_func($name,
+					$self->pp_helem($op->first, 16),
+					$cx, 16);
+    }
+}
+
+sub pp_require {
+    my $self = shift;
+    my($op, $cx) = @_;
+    my $opname = $op->flags & OPf_SPECIAL ? 'CORE::require' : 'require';
+    my $kid = $op->first;
+    if ($kid->name eq 'const') {
+	my $priv = $kid->private;
+	my $sv = $self->const_sv($kid);
+	my $arg;
+	if ($priv & OPpCONST_BARE) {
+	    $arg = $sv->PV;
+	    $arg =~ s[/][::]g;
+	    $arg =~ s/\.pm//g;
+	} elsif ($priv & OPpCONST_NOVER) {
+	    $opname = $self->keyword('no');
+	    $arg = $self->const($sv, 16);
+	} elsif ((my $tmp = $self->const($sv, 16)) =~ /^v/) {
+	    $arg = $tmp;
+	}
+	if ($arg) {
+	    return $self->maybe_parens("$opname $arg", $cx, 16);
+	}
+    }
+    $self->unop(
+	    $op, $cx,
+	    $opname,
+	    1, # llafr does not apply
+    );
+}
+
+sub pp_scalar {
+    my $self = shift;
+    my($op, $cx) = @_;
+    my $kid = $op->first;
+    if (not null $kid->sibling) {
+	# XXX Was a here-doc
+	return $self->dquote($op);
+    }
+    $self->unop(@_, "scalar");
+}
+
+
+sub padval {
+    my $self = shift;
+    my $targ = shift;
+    return $self->{'curcv'}->PADLIST->ARRAYelt(1)->ARRAYelt($targ);
+}
+
+sub anon_hash_or_list {
+    my $self = shift;
+    my($op, $cx) = @_;
+
+    my($pre, $post) = @{{"anonlist" => ["[","]"],
+			 "anonhash" => ["{","}"]}->{$op->name}};
+    my($expr, @exprs);
+    $op = $op->first->sibling; # skip pushmark
+    for (; !null($op); $op = $op->sibling) {
+	$expr = $self->deparse($op, 6);
+	push @exprs, $expr;
+    }
+    if ($pre eq "{" and $cx < 1) {
+	# Disambiguate that it's not a block
+	$pre = "+{";
+    }
+    return $pre . join(", ", @exprs) . $post;
+}
+
+sub pp_anonlist {
+    my $self = shift;
+    my ($op, $cx) = @_;
+    if ($op->flags & OPf_SPECIAL) {
+	return $self->anon_hash_or_list($op, $cx);
+    }
+    warn "Unexpected op pp_" . $op->name() . " without OPf_SPECIAL";
+    return 'XXX';
+}
+
+*pp_anonhash = \&pp_anonlist;
+
+sub pp_refgen {
+    my $self = shift;	
+    my($op, $cx) = @_;
+    my $kid = $op->first;
+    if ($kid->name eq "null") {
+	my $anoncode = $kid = $kid->first;
+	if ($anoncode->name eq "anonconst") {
+	    $anoncode = $anoncode->first->first->sibling;
+	}
+	if ($anoncode->name eq "anoncode"
+	 or !null($anoncode = $kid->sibling) and
+		 $anoncode->name eq "anoncode") {
+            return $self->e_anoncode({ code => $self->padval($anoncode->targ) });
+	} elsif ($kid->name eq "pushmark") {
+            my $sib_name = $kid->sibling->name;
+            if ($sib_name eq 'entersub') {
+                my $text = $self->deparse($kid->sibling, 1);
+                # Always show parens for \(&func()), but only with -p otherwise
+                $text = "($text)" if $self->{'parens'}
+                                 or $kid->sibling->private & OPpENTERSUB_AMPER;
+                return "\\$text";
+            }
+        }
+    }
+    local $self->{'in_refgen'} = 1;
+    $self->pfixop($op, $cx, "\\", 20);
+}
+
+sub e_anoncode {
+    my ($self, $info) = @_;
+    my $text = $self->deparse_sub($info->{code});
+    return $self->keyword("sub") . " $text";
+}
+
+sub pp_srefgen { pp_refgen(@_) }
+
+sub pp_readline {
+    my $self = shift;
+    my($op, $cx) = @_;
+    my $kid = $op->first;
+    if (is_scalar($kid)
+        and $op->flags & OPf_SPECIAL
+        and $self->deparse($kid, 1) eq 'ARGV')
+    {
+        return '<<>>';
+    }
+    return $self->unop($op, $cx, "readline");
+}
+
+sub pp_rcatline {
+    my $self = shift;
+    my($op) = @_;
+    return "<" . $self->gv_name($self->gv_or_padgv($op)) . ">";
+}
+
+# Unary operators that can occur as pseudo-listops inside double quotes
+sub dq_unop {
+    my $self = shift;
+    my($op, $cx, $name, $prec, $flags) = (@_, 0, 0);
+    my $kid;
+    if ($op->flags & OPf_KIDS) {
+       $kid = $op->first;
+       # If there's more than one kid, the first is an ex-pushmark.
+       $kid = $kid->sibling if not null $kid->sibling;
+       return $self->maybe_parens_unop($name, $kid, $cx);
+    } else {
+       return $name .  ($op->flags & OPf_SPECIAL ? "()" : "");
+    }
+}
+
+sub pp_ucfirst { dq_unop(@_, "ucfirst") }
+sub pp_lcfirst { dq_unop(@_, "lcfirst") }
+sub pp_uc { dq_unop(@_, "uc") }
+sub pp_lc { dq_unop(@_, "lc") }
+sub pp_quotemeta { maybe_targmy(@_, \&dq_unop, "quotemeta") }
+sub pp_fc { dq_unop(@_, "fc") }
+
+sub loopex {
+    my $self = shift;
+    my ($op, $cx, $name) = @_;
+    if (class($op) eq "PVOP") {
+	$name .= " " . $op->pv;
+    } elsif (class($op) eq "OP") {
+	# no-op
+    } elsif (class($op) eq "UNOP") {
+	(my $kid = $self->deparse($op->first, 7)) =~ s/^\cS//;
+	# last foo() is a syntax error.
+	$kid =~ /^(?!\d)\w/ and $kid = "($kid)";
+	$name .= " $kid";
+    }
+    return $self->maybe_parens($name, $cx, 7);
+}
+
+sub pp_last { loopex(@_, "last") }
+sub pp_next { loopex(@_, "next") }
+sub pp_redo { loopex(@_, "redo") }
+sub pp_goto { loopex(@_, "goto") }
+sub pp_dump { loopex(@_, "CORE::dump") }
+
+sub ftst {
+    my $self = shift;
+    my($op, $cx, $name) = @_;
+    if (class($op) eq "UNOP") {
+	# Genuine '-X' filetests are exempt from the LLAFR, but not
+	# l?stat()
+	if ($name =~ /^-/) {
+	    (my $kid = $self->deparse($op->first, 16)) =~ s/^\cS//;
+	    return $self->maybe_parens("$name $kid", $cx, 16);
+	}
+	return $self->maybe_parens_unop($name, $op->first, $cx);
+    } elsif (class($op) =~ /^(SV|PAD)OP$/) {
+	return $self->maybe_parens_func($name, $self->pp_gv($op, 1), $cx, 16);
+    } else { # I don't think baseop filetests ever survive ck_ftst, but...
+	return $name;
+    }
+}
+
+sub pp_lstat    { ftst(@_, "lstat") }
+sub pp_stat     { ftst(@_, "stat") }
+sub pp_ftrread  { ftst(@_, "-R") }
+sub pp_ftrwrite { ftst(@_, "-W") }
+sub pp_ftrexec  { ftst(@_, "-X") }
+sub pp_fteread  { ftst(@_, "-r") }
+sub pp_ftewrite { ftst(@_, "-w") }
+sub pp_fteexec  { ftst(@_, "-x") }
+sub pp_ftis     { ftst(@_, "-e") }
+sub pp_fteowned { ftst(@_, "-O") }
+sub pp_ftrowned { ftst(@_, "-o") }
+sub pp_ftzero   { ftst(@_, "-z") }
+sub pp_ftsize   { ftst(@_, "-s") }
+sub pp_ftmtime  { ftst(@_, "-M") }
+sub pp_ftatime  { ftst(@_, "-A") }
+sub pp_ftctime  { ftst(@_, "-C") }
+sub pp_ftsock   { ftst(@_, "-S") }
+sub pp_ftchr    { ftst(@_, "-c") }
+sub pp_ftblk    { ftst(@_, "-b") }
+sub pp_ftfile   { ftst(@_, "-f") }
+sub pp_ftdir    { ftst(@_, "-d") }
+sub pp_ftpipe   { ftst(@_, "-p") }
+sub pp_ftlink   { ftst(@_, "-l") }
+sub pp_ftsuid   { ftst(@_, "-u") }
+sub pp_ftsgid   { ftst(@_, "-g") }
+sub pp_ftsvtx   { ftst(@_, "-k") }
+sub pp_fttty    { ftst(@_, "-t") }
+sub pp_fttext   { ftst(@_, "-T") }
+sub pp_ftbinary { ftst(@_, "-B") }
+
+sub SWAP_CHILDREN () { 1 }
+sub ASSIGN () { 2 } # has OP= variant
+sub LIST_CONTEXT () { 4 } # Assignment is in list context
+
+my(%left, %right);
+
+sub assoc_class {
+    my $op = shift;
+    my $name = $op->name;
+    if ($name eq "concat" and $op->first->name eq "concat") {
+	# avoid spurious '=' -- see comment in pp_concat
+	return "concat";
+    }
+    if ($name eq "null" and class($op) eq "UNOP"
+	and $op->first->name =~ /^(and|x?or)$/
+	and null $op->first->sibling)
+    {
+	# Like all conditional constructs, OP_ANDs and OP_ORs are topped
+	# with a null that's used as the common end point of the two
+	# flows of control. For precedence purposes, ignore it.
+	# (COND_EXPRs have these too, but we don't bother with
+	# their associativity).
+	return assoc_class($op->first);
+    }
+    return $name . ($op->flags & OPf_STACKED ? "=" : "");
+}
+
+# Left associative operators, like '+', for which
+# $a + $b + $c is equivalent to ($a + $b) + $c
+
+BEGIN {
+    %left = ('multiply' => 19, 'i_multiply' => 19,
+	     'divide' => 19, 'i_divide' => 19,
+	     'modulo' => 19, 'i_modulo' => 19,
+	     'repeat' => 19,
+	     'add' => 18, 'i_add' => 18,
+	     'subtract' => 18, 'i_subtract' => 18,
+	     'concat' => 18,
+	     'left_shift' => 17, 'right_shift' => 17,
+	     'bit_and' => 13, 'nbit_and' => 13, 'sbit_and' => 13,
+	     'bit_or' => 12, 'bit_xor' => 12,
+	     'sbit_or' => 12, 'sbit_xor' => 12,
+	     'nbit_or' => 12, 'nbit_xor' => 12,
+	     'and' => 3,
+	     'or' => 2, 'xor' => 2,
+	    );
+}
+
+sub deparse_binop_left {
+    my $self = shift;
+    my($op, $left, $prec) = @_;
+    if ($left{assoc_class($op)} && $left{assoc_class($left)}
+	and $left{assoc_class($op)} == $left{assoc_class($left)})
+    {
+	return $self->deparse($left, $prec - .00001);
+    } else {
+	return $self->deparse($left, $prec);	
+    }
+}
+
+# Right associative operators, like '=', for which
+# $a = $b = $c is equivalent to $a = ($b = $c)
+
+BEGIN {
+    %right = ('pow' => 22,
+	      'sassign=' => 7, 'aassign=' => 7,
+	      'multiply=' => 7, 'i_multiply=' => 7,
+	      'divide=' => 7, 'i_divide=' => 7,
+	      'modulo=' => 7, 'i_modulo=' => 7,
+	      'repeat=' => 7, 'refassign' => 7, 'refassign=' => 7,
+	      'add=' => 7, 'i_add=' => 7,
+	      'subtract=' => 7, 'i_subtract=' => 7,
+	      'concat=' => 7,
+	      'left_shift=' => 7, 'right_shift=' => 7,
+	      'bit_and=' => 7, 'sbit_and=' => 7, 'nbit_and=' => 7,
+	      'nbit_or=' => 7, 'nbit_xor=' => 7,
+	      'sbit_or=' => 7, 'sbit_xor=' => 7,
+	      'andassign' => 7,
+	      'orassign' => 7,
+	     );
+}
+
+sub deparse_binop_right {
+    my $self = shift;
+    my($op, $right, $prec) = @_;
+    if ($right{assoc_class($op)} && $right{assoc_class($right)}
+	and $right{assoc_class($op)} == $right{assoc_class($right)})
+    {
+	return $self->deparse($right, $prec - .00001);
+    } else {
+	return $self->deparse($right, $prec);	
+    }
+}
+
+sub binop {
+    my $self = shift;
+    my ($op, $cx, $opname, $prec, $flags) = (@_, 0);
+    my $left = $op->first;
+    my $right = $op->last;
+    my $eq = "";
+    if ($op->flags & OPf_STACKED && $flags & ASSIGN) {
+	$eq = "=";
+	$prec = 7;
+    }
+    if ($flags & SWAP_CHILDREN) {
+	($left, $right) = ($right, $left);
+    }
+    my $leftop = $left;
+    $left = $self->deparse_binop_left($op, $left, $prec);
+    $left = "($left)" if $flags & LIST_CONTEXT
+		     and    $left !~ /^(my|our|local|)[\@\(]/
+			 || do {
+				# Parenthesize if the left argument is a
+				# lone repeat op.
+				my $left = $leftop->first->sibling;
+				$left->name eq 'repeat'
+				    && null($left->sibling);
+			    };
+    $right = $self->deparse_binop_right($op, $right, $prec);
+    return $self->maybe_parens("$left $opname$eq $right", $cx, $prec);
+}
+
+sub pp_add { maybe_targmy(@_, \&binop, "+", 18, ASSIGN) }
+sub pp_multiply { maybe_targmy(@_, \&binop, "*", 19, ASSIGN) }
+sub pp_subtract { maybe_targmy(@_, \&binop, "-",18,  ASSIGN) }
+sub pp_divide { maybe_targmy(@_, \&binop, "/", 19, ASSIGN) }
+sub pp_modulo { maybe_targmy(@_, \&binop, "%", 19, ASSIGN) }
+sub pp_i_add { maybe_targmy(@_, \&binop, "+", 18, ASSIGN) }
+sub pp_i_multiply { maybe_targmy(@_, \&binop, "*", 19, ASSIGN) }
+sub pp_i_subtract { maybe_targmy(@_, \&binop, "-", 18, ASSIGN) }
+sub pp_i_divide { maybe_targmy(@_, \&binop, "/", 19, ASSIGN) }
+sub pp_i_modulo { maybe_targmy(@_, \&binop, "%", 19, ASSIGN) }
+sub pp_pow { maybe_targmy(@_, \&binop, "**", 22, ASSIGN) }
+
+sub pp_left_shift { maybe_targmy(@_, \&binop, "<<", 17, ASSIGN) }
+sub pp_right_shift { maybe_targmy(@_, \&binop, ">>", 17, ASSIGN) }
+sub pp_bit_and { maybe_targmy(@_, \&binop, "&", 13, ASSIGN) }
+sub pp_bit_or { maybe_targmy(@_, \&binop, "|", 12, ASSIGN) }
+sub pp_bit_xor { maybe_targmy(@_, \&binop, "^", 12, ASSIGN) }
+*pp_nbit_and = *pp_bit_and;
+*pp_nbit_or  = *pp_bit_or;
+*pp_nbit_xor = *pp_bit_xor;
+sub pp_sbit_and { maybe_targmy(@_, \&binop, "&.", 13, ASSIGN) }
+sub pp_sbit_or { maybe_targmy(@_, \&binop, "|.", 12, ASSIGN) }
+sub pp_sbit_xor { maybe_targmy(@_, \&binop, "^.", 12, ASSIGN) }
+
+sub pp_eq { binop(@_, "==", 14) }
+sub pp_ne { binop(@_, "!=", 14) }
+sub pp_lt { binop(@_, "<", 15) }
+sub pp_gt { binop(@_, ">", 15) }
+sub pp_ge { binop(@_, ">=", 15) }
+sub pp_le { binop(@_, "<=", 15) }
+sub pp_ncmp { binop(@_, "<=>", 14) }
+sub pp_i_eq { binop(@_, "==", 14) }
+sub pp_i_ne { binop(@_, "!=", 14) }
+sub pp_i_lt { binop(@_, "<", 15) }
+sub pp_i_gt { binop(@_, ">", 15) }
+sub pp_i_ge { binop(@_, ">=", 15) }
+sub pp_i_le { binop(@_, "<=", 15) }
+sub pp_i_ncmp { maybe_targmy(@_, \&binop, "<=>", 14) }
+
+sub pp_seq { binop(@_, "eq", 14) }
+sub pp_sne { binop(@_, "ne", 14) }
+sub pp_slt { binop(@_, "lt", 15) }
+sub pp_sgt { binop(@_, "gt", 15) }
+sub pp_sge { binop(@_, "ge", 15) }
+sub pp_sle { binop(@_, "le", 15) }
+sub pp_scmp { maybe_targmy(@_, \&binop, "cmp", 14) }
+
+sub pp_sassign { binop(@_, "=", 7, SWAP_CHILDREN) }
+sub pp_aassign { binop(@_, "=", 7, SWAP_CHILDREN | LIST_CONTEXT) }
+
+sub pp_smartmatch {
+    my ($self, $op, $cx) = @_;
+    if ($op->flags & OPf_SPECIAL) {
+	return $self->deparse($op->last, $cx);
+    }
+    else {
+	binop(@_, "~~", 14);
+    }
+}
+
+# '.' is special because concats-of-concats are optimized to save copying
+# by making all but the first concat stacked. The effect is as if the
+# programmer had written '($a . $b) .= $c', except legal.
+sub pp_concat { maybe_targmy(@_, \&real_concat) }
+sub real_concat {
+    my $self = shift;
+    my($op, $cx) = @_;
+    my $left = $op->first;
+    my $right = $op->last;
+    my $eq = "";
+    my $prec = 18;
+    if ($op->flags & OPf_STACKED and $op->first->name ne "concat") {
+	$eq = "=";
+	$prec = 7;
+    }
+    $left = $self->deparse_binop_left($op, $left, $prec);
+    $right = $self->deparse_binop_right($op, $right, $prec);
+    return $self->maybe_parens("$left .$eq $right", $cx, $prec);
+}
+
+sub pp_repeat { maybe_targmy(@_, \&repeat) }
+
+# 'x' is weird when the left arg is a list
+sub repeat {
+    my $self = shift;
+    my($op, $cx) = @_;
+    my $left = $op->first;
+    my $right = $op->last;
+    my $eq = "";
+    my $prec = 19;
+    if ($op->flags & OPf_STACKED) {
+	$eq = "=";
+	$prec = 7;
+    }
+    if (null($right)) { # list repeat; count is inside left-side ex-list
+			# in 5.21.5 and earlier
+	my $kid = $left->first->sibling; # skip pushmark
+	my @exprs;
+	for (; !null($kid->sibling); $kid = $kid->sibling) {
+	    push @exprs, $self->deparse($kid, 6);
+	}
+	$right = $kid;
+	$left = "(" . join(", ", @exprs). ")";
+    } else {
+	my $dolist = $op->private & OPpREPEAT_DOLIST;
+	$left = $self->deparse_binop_left($op, $left, $dolist ? 1 : $prec);
+	if ($dolist) {
+	    $left = "($left)";
+	}
+    }
+    $right = $self->deparse_binop_right($op, $right, $prec);
+    return $self->maybe_parens("$left x$eq $right", $cx, $prec);
+}
+
+sub range {
+    my $self = shift;
+    my ($op, $cx, $type) = @_;
+    my $left = $op->first;
+    my $right = $left->sibling;
+    $left = $self->deparse($left, 9);
+    $right = $self->deparse($right, 9);
+    return $self->maybe_parens("$left $type $right", $cx, 9);
+}
+
+sub pp_flop {
+    my $self = shift;
+    my($op, $cx) = @_;
+    my $flip = $op->first;
+    my $type = ($flip->flags & OPf_SPECIAL) ? "..." : "..";
+    return $self->range($flip->first, $cx, $type);
+}
+
+# one-line while/until is handled in pp_leave
+
+sub logop {
+    my $self = shift;
+    my ($op, $cx, $lowop, $lowprec, $highop, $highprec, $blockname) = @_;
+    my $left = $op->first;
+    my $right = $op->first->sibling;
+    $blockname &&= $self->keyword($blockname);
+    if ($cx < 1 and is_scope($right) and $blockname
+	and $self->{'expand'} < 7)
+    { # if ($a) {$b}
+	$left = $self->deparse($left, 1);
+	$right = $self->deparse($right, 0);
+	return "$blockname ($left) {\n\t$right\n\b}\cK";
+    } elsif ($cx < 1 and $blockname and not $self->{'parens'}
+	     and $self->{'expand'} < 7) { # $b if $a
+	$right = $self->deparse($right, 1);
+	$left = $self->deparse($left, 1);
+	return "$right $blockname $left";
+    } elsif ($cx > $lowprec and $highop) { # $a && $b
+	$left = $self->deparse_binop_left($op, $left, $highprec);
+	$right = $self->deparse_binop_right($op, $right, $highprec);
+	return $self->maybe_parens("$left $highop $right", $cx, $highprec);
+    } else { # $a and $b
+	$left = $self->deparse_binop_left($op, $left, $lowprec);
+	$right = $self->deparse_binop_right($op, $right, $lowprec);
+	return $self->maybe_parens("$left $lowop $right", $cx, $lowprec);
+    }
+}
+
+sub pp_and { logop(@_, "and", 3, "&&", 11, "if") }
+sub pp_or  { logop(@_, "or",  2, "||", 10, "unless") }
+sub pp_dor { logop(@_, "//", 10) }
+
+# xor is syntactically a logop, but it's really a binop (contrary to
+# old versions of opcode.pl). Syntax is what matters here.
+sub pp_xor { logop(@_, "xor", 2, "",   0,  "") }
+
+sub logassignop {
+    my $self = shift;
+    my ($op, $cx, $opname) = @_;
+    my $left = $op->first;
+    my $right = $op->first->sibling->first; # skip sassign
+    $left = $self->deparse($left, 7);
+    $right = $self->deparse($right, 7);
+    return $self->maybe_parens("$left $opname $right", $cx, 7);
+}
+
+sub pp_andassign { logassignop(@_, "&&=") }
+sub pp_orassign  { logassignop(@_, "||=") }
+sub pp_dorassign { logassignop(@_, "//=") }
+
+sub rv2gv_or_string {
+    my($self,$op) = @_;
+    if ($op->name eq "gv") { # could be open("open") or open("###")
+	my($name,$quoted) =
+	    $self->stash_variable_name("", $self->gv_or_padgv($op));
+	$quoted ? $name : "*$name";
+    }
+    else {
+	$self->deparse($op, 6);
+    }
+}
+
+sub listop {
+    my $self = shift;
+    my($op, $cx, $name, $kid, $nollafr) = @_;
+    my(@exprs);
+    my $parens = ($cx >= 5) || $self->{'parens'};
+    $kid ||= $op->first->sibling;
+    # If there are no arguments, add final parentheses (or parenthesize the
+    # whole thing if the llafr does not apply) to account for cases like
+    # (return)+1 or setpgrp()+1.  When the llafr does not apply, we use a
+    # precedence of 6 (< comma), as "return, 1" does not need parentheses.
+    if (null $kid) {
+	return $nollafr
+		? $self->maybe_parens($self->keyword($name), $cx, 7)
+		: $self->keyword($name) . '()' x (7 < $cx);
+    }
+    my $first;
+    my $fullname = $self->keyword($name);
+    my $proto = prototype("CORE::$name");
+    if (
+	 (     (defined $proto && $proto =~ /^;?\*/)
+	    || $name eq 'select' # select(F) doesn't have a proto
+	 )
+	 && $kid->name eq "rv2gv"
+	 && !($kid->private & OPpLVAL_INTRO)
+    ) {
+	$first = $self->rv2gv_or_string($kid->first);
+    }
+    else {
+	$first = $self->deparse($kid, 6);
+    }
+    if ($name eq "chmod" && $first =~ /^\d+$/) {
+	$first = sprintf("%#o", $first);
+    }
+    $first = "+$first"
+	if not $parens and not $nollafr and substr($first, 0, 1) eq "(";
+    push @exprs, $first;
+    $kid = $kid->sibling;
+    if (defined $proto && $proto =~ /^\*\*/ && $kid->name eq "rv2gv"
+	 && !($kid->private & OPpLVAL_INTRO)) {
+	push @exprs, $first = $self->rv2gv_or_string($kid->first);
+	$kid = $kid->sibling;
+    }
+    for (; !null($kid); $kid = $kid->sibling) {
+	push @exprs, $self->deparse($kid, 6);
+    }
+    if ($name eq "reverse" && ($op->private & OPpREVERSE_INPLACE)) {
+	return "$exprs[0] = $fullname"
+	         . ($parens ? "($exprs[0])" : " $exprs[0]");
+    }
+
+    if ($parens && $nollafr) {
+	return "($fullname " . join(", ", @exprs) . ")";
+    } elsif ($parens) {
+	return "$fullname(" . join(", ", @exprs) . ")";
+    } else {
+	return "$fullname " . join(", ", @exprs);
+    }
+}
+
+sub pp_bless { listop(@_, "bless") }
+sub pp_atan2 { maybe_targmy(@_, \&listop, "atan2") }
+sub pp_substr {
+    my ($self,$op,$cx) = @_;
+    if ($op->private & OPpSUBSTR_REPL_FIRST) {
+	return
+	   listop($self, $op, 7, "substr", $op->first->sibling->sibling)
+	 . " = "
+	 . $self->deparse($op->first->sibling, 7);
+    }
+    maybe_local(@_, listop(@_, "substr"))
+}
+sub pp_vec { maybe_targmy(@_, \&maybe_local, listop(@_, "vec")) }
+sub pp_index { maybe_targmy(@_, \&listop, "index") }
+sub pp_rindex { maybe_targmy(@_, \&listop, "rindex") }
+sub pp_sprintf { maybe_targmy(@_, \&listop, "sprintf") }
+sub pp_formline { listop(@_, "formline") } # see also deparse_format
+sub pp_crypt { maybe_targmy(@_, \&listop, "crypt") }
+sub pp_unpack { listop(@_, "unpack") }
+sub pp_pack { listop(@_, "pack") }
+sub pp_join { maybe_targmy(@_, \&listop, "join") }
+sub pp_splice { listop(@_, "splice") }
+sub pp_push { maybe_targmy(@_, \&listop, "push") }
+sub pp_unshift { maybe_targmy(@_, \&listop, "unshift") }
+sub pp_reverse { listop(@_, "reverse") }
+sub pp_warn { listop(@_, "warn") }
+sub pp_die { listop(@_, "die") }
+sub pp_return { listop(@_, "return", undef, 1) } # llafr does not apply
+sub pp_open { listop(@_, "open") }
+sub pp_pipe_op { listop(@_, "pipe") }
+sub pp_tie { listop(@_, "tie") }
+sub pp_binmode { listop(@_, "binmode") }
+sub pp_dbmopen { listop(@_, "dbmopen") }
+sub pp_sselect { listop(@_, "select") }
+sub pp_select { listop(@_, "select") }
+sub pp_read { listop(@_, "read") }
+sub pp_sysopen { listop(@_, "sysopen") }
+sub pp_sysseek { listop(@_, "sysseek") }
+sub pp_sysread { listop(@_, "sysread") }
+sub pp_syswrite { listop(@_, "syswrite") }
+sub pp_send { listop(@_, "send") }
+sub pp_recv { listop(@_, "recv") }
+sub pp_seek { listop(@_, "seek") }
+sub pp_fcntl { listop(@_, "fcntl") }
+sub pp_ioctl { listop(@_, "ioctl") }
+sub pp_flock { maybe_targmy(@_, \&listop, "flock") }
+sub pp_socket { listop(@_, "socket") }
+sub pp_sockpair { listop(@_, "socketpair") }
+sub pp_bind { listop(@_, "bind") }
+sub pp_connect { listop(@_, "connect") }
+sub pp_listen { listop(@_, "listen") }
+sub pp_accept { listop(@_, "accept") }
+sub pp_shutdown { listop(@_, "shutdown") }
+sub pp_gsockopt { listop(@_, "getsockopt") }
+sub pp_ssockopt { listop(@_, "setsockopt") }
+sub pp_chown { maybe_targmy(@_, \&listop, "chown") }
+sub pp_unlink { maybe_targmy(@_, \&listop, "unlink") }
+sub pp_chmod { maybe_targmy(@_, \&listop, "chmod") }
+sub pp_utime { maybe_targmy(@_, \&listop, "utime") }
+sub pp_rename { maybe_targmy(@_, \&listop, "rename") }
+sub pp_link { maybe_targmy(@_, \&listop, "link") }
+sub pp_symlink { maybe_targmy(@_, \&listop, "symlink") }
+sub pp_mkdir { maybe_targmy(@_, \&listop, "mkdir") }
+sub pp_open_dir { listop(@_, "opendir") }
+sub pp_seekdir { listop(@_, "seekdir") }
+sub pp_waitpid { maybe_targmy(@_, \&listop, "waitpid") }
+sub pp_system { maybe_targmy(@_, \&indirop, "system") }
+sub pp_exec { maybe_targmy(@_, \&indirop, "exec") }
+sub pp_kill { maybe_targmy(@_, \&listop, "kill") }
+sub pp_setpgrp { maybe_targmy(@_, \&listop, "setpgrp") }
+sub pp_getpriority { maybe_targmy(@_, \&listop, "getpriority") }
+sub pp_setpriority { maybe_targmy(@_, \&listop, "setpriority") }
+sub pp_shmget { listop(@_, "shmget") }
+sub pp_shmctl { listop(@_, "shmctl") }
+sub pp_shmread { listop(@_, "shmread") }
+sub pp_shmwrite { listop(@_, "shmwrite") }
+sub pp_msgget { listop(@_, "msgget") }
+sub pp_msgctl { listop(@_, "msgctl") }
+sub pp_msgsnd { listop(@_, "msgsnd") }
+sub pp_msgrcv { listop(@_, "msgrcv") }
+sub pp_semget { listop(@_, "semget") }
+sub pp_semctl { listop(@_, "semctl") }
+sub pp_semop { listop(@_, "semop") }
+sub pp_ghbyaddr { listop(@_, "gethostbyaddr") }
+sub pp_gnbyaddr { listop(@_, "getnetbyaddr") }
+sub pp_gpbynumber { listop(@_, "getprotobynumber") }
+sub pp_gsbyname { listop(@_, "getservbyname") }
+sub pp_gsbyport { listop(@_, "getservbyport") }
+sub pp_syscall { listop(@_, "syscall") }
+
+sub pp_glob {
+    my $self = shift;
+    my($op, $cx) = @_;
+    my $kid = $op->first->sibling;  # skip pushmark
+    my $keyword =
+	$op->flags & OPf_SPECIAL ? 'glob' : $self->keyword('glob');
+    my $text = $self->deparse($kid);
+    return $cx >= 5 || $self->{'parens'}
+	? "$keyword($text)"
+	: "$keyword $text";
+}
+
+# Truncate is special because OPf_SPECIAL makes a bareword first arg
+# be a filehandle. This could probably be better fixed in the core
+# by moving the GV lookup into ck_truc.
+
+sub pp_truncate {
+    my $self = shift;
+    my($op, $cx) = @_;
+    my(@exprs);
+    my $parens = ($cx >= 5) || $self->{'parens'};
+    my $kid = $op->first->sibling;
+    my $fh;
+    if ($op->flags & OPf_SPECIAL) {
+	# $kid is an OP_CONST
+	$fh = $self->const_sv($kid)->PV;
+    } else {
+	$fh = $self->deparse($kid, 6);
+        $fh = "+$fh" if not $parens and substr($fh, 0, 1) eq "(";
+    }
+    my $len = $self->deparse($kid->sibling, 6);
+    my $name = $self->keyword('truncate');
+    if ($parens) {
+	return "$name($fh, $len)";
+    } else {
+	return "$name $fh, $len";
+    }
+}
+
+sub indirop {
+    my $self = shift;
+    my($op, $cx, $name) = @_;
+    my($expr, @exprs);
+    my $firstkid = my $kid = $op->first->sibling;
+    my $indir = "";
+    if ($op->flags & OPf_STACKED) {
+	$indir = $kid;
+	$indir = $indir->first; # skip rv2gv
+	if (is_scope($indir)) {
+	    $indir = "{" . $self->deparse($indir, 0) . "}";
+	    $indir = "{;}" if $indir eq "{}";
+	} elsif ($indir->name eq "const" && $indir->private & OPpCONST_BARE) {
+	    $indir = $self->const_sv($indir)->PV;
+	} else {
+	    $indir = $self->deparse($indir, 24);
+	}
+	$indir = $indir . " ";
+	$kid = $kid->sibling;
+    }
+    if ($name eq "sort" && $op->private & (OPpSORT_NUMERIC | OPpSORT_INTEGER)) {
+	$indir = ($op->private & OPpSORT_DESCEND) ? '{$b <=> $a} '
+						  : '{$a <=> $b} ';
+    }
+    elsif ($name eq "sort" && $op->private & OPpSORT_DESCEND) {
+	$indir = '{$b cmp $a} ';
+    }
+    for (; !null($kid); $kid = $kid->sibling) {
+	$expr = $self->deparse($kid, !$indir && $kid == $firstkid && $name eq "sort" && $firstkid->name eq "entersub" ? 16 : 6);
+	push @exprs, $expr;
+    }
+    my $name2;
+    if ($name eq "sort" && $op->private & OPpSORT_REVERSE) {
+	$name2 = $self->keyword('reverse') . ' ' . $self->keyword('sort');
+    }
+    else { $name2 = $self->keyword($name) }
+    if ($name eq "sort" && ($op->private & OPpSORT_INPLACE)) {
+	return "$exprs[0] = $name2 $indir $exprs[0]";
+    }
+
+    my $args = $indir . join(", ", @exprs);
+    if ($indir ne "" && $name eq "sort") {
+	# We don't want to say "sort(f 1, 2, 3)", since perl -w will
+	# give bareword warnings in that case. Therefore if context
+	# requires, we'll put parens around the outside "(sort f 1, 2,
+	# 3)". Unfortunately, we'll currently think the parens are
+	# necessary more often that they really are, because we don't
+	# distinguish which side of an assignment we're on.
+	if ($cx >= 5) {
+	    return "($name2 $args)";
+	} else {
+	    return "$name2 $args";
+	}
+    } elsif (
+	!$indir && $name eq "sort"
+      && !null($op->first->sibling)
+      && $op->first->sibling->name eq 'entersub'
+    ) {
+	# We cannot say sort foo(bar), as foo will be interpreted as a
+	# comparison routine.  We have to say sort(...) in that case.
+	return "$name2($args)";
+    } else {
+	return length $args
+		? $self->maybe_parens_func($name2, $args, $cx, 5)
+		: $name2 . '()' x (7 < $cx);
+    }
+
+}
+
+sub pp_prtf { indirop(@_, "printf") }
+sub pp_print { indirop(@_, "print") }
+sub pp_say  { indirop(@_, "say") }
+sub pp_sort { indirop(@_, "sort") }
+
+sub mapop {
+    my $self = shift;
+    my($op, $cx, $name) = @_;
+    my($expr, @exprs);
+    my $kid = $op->first; # this is the (map|grep)start
+    $kid = $kid->first->sibling; # skip a pushmark
+    my $code = $kid->first; # skip a null
+    if (is_scope $code) {
+	$code = "{" . $self->deparse($code, 0) . "} ";
+    } else {
+	$code = $self->deparse($code, 24);
+	$code .= ", " if !null($kid->sibling);
+    }
+    $kid = $kid->sibling;
+    for (; !null($kid); $kid = $kid->sibling) {
+	$expr = $self->deparse($kid, 6);
+	push @exprs, $expr if defined $expr;
+    }
+    return $self->maybe_parens_func($self->keyword($name),
+				    $code . join(", ", @exprs), $cx, 5);
+}
+
+sub pp_mapwhile { mapop(@_, "map") }
+sub pp_grepwhile { mapop(@_, "grep") }
+sub pp_mapstart { baseop(@_, "map") }
+sub pp_grepstart { baseop(@_, "grep") }
+
+my %uses_intro;
+BEGIN {
+    @uses_intro{
+	eval { require B::Op_private }
+	  ? @{$B::Op_private::ops_using{OPpLVAL_INTRO}}
+	  : qw(gvsv rv2sv rv2hv rv2gv rv2av aelem helem aslice
+	       hslice delete padsv padav padhv enteriter entersub padrange
+	       pushmark cond_expr refassign list)
+    } = ();
+    delete @uses_intro{qw( lvref lvrefslice lvavref entersub )};
+}
+
+sub pp_list {
+    my $self = shift;
+    my($op, $cx) = @_;
+    my($expr, @exprs);
+    my $kid = $op->first->sibling; # skip pushmark
+    return '' if class($kid) eq 'NULL';
+    my $lop;
+    my $local = "either"; # could be local(...), my(...), state(...) or our(...)
+    my $type;
+    for ($lop = $kid; !null($lop); $lop = $lop->sibling) {
+	my $lopname = $lop->name;
+	my $loppriv = $lop->private;
+	my $newtype;
+	if ($lopname =~ /^pad[ash]v$/ && $loppriv & OPpLVAL_INTRO) {
+	    if ($loppriv & OPpPAD_STATE) { # state()
+		($local = "", last) if $local !~ /^(?:either|state)$/;
+		$local = "state";
+	    } else { # my()
+		($local = "", last) if $local !~ /^(?:either|my)$/;
+		$local = "my";
+	    }
+	    my $padname = $self->padname_sv($lop->targ);
+	    if ($padname->FLAGS & SVpad_TYPED) {
+		$newtype = $padname->SvSTASH->NAME;
+	    }
+	} elsif ($lopname =~ /^(?:gv|rv2)([ash])v$/
+			&& $loppriv & OPpOUR_INTRO
+		or $lopname eq "null" && class($lop) eq 'UNOP'
+			&& $lop->first->name eq "gvsv"
+			&& $lop->first->private & OPpOUR_INTRO) { # our()
+	    my $newlocal = "local " x !!($loppriv & OPpLVAL_INTRO) . "our";
+	    ($local = "", last)
+		if $local ne 'either' && $local ne $newlocal;
+	    $local = $newlocal;
+	    my $funny = !$1 || $1 eq 's' ? '$' : $1 eq 'a' ? '@' : '%';
+	    if (my $t = $self->find_our_type(
+		    $funny . $self->gv_or_padgv($lop->first)->NAME
+	       )) {
+		$newtype = $t;
+	    }
+	} elsif ($lopname ne 'undef'
+	   and    !($loppriv & OPpLVAL_INTRO)
+	       || !exists $uses_intro{$lopname eq 'null'
+					? substr B::ppname($lop->targ), 3
+					: $lopname})
+	{
+	    $local = ""; # or not
+	    last;
+	} elsif ($lopname ne "undef")
+	{
+	    # local()
+	    ($local = "", last) if $local !~ /^(?:either|local)$/;
+	    $local = "local";
+	}
+	if (defined $type && defined $newtype && $newtype ne $type) {
+	    $local = '';
+	    last;
+	}
+	$type = $newtype;
+    }
+    $local = "" if $local eq "either"; # no point if it's all undefs
+    $local &&= join ' ', map $self->keyword($_), split / /, $local;
+    $local .= " $type " if $local && length $type;
+    return $self->deparse($kid, $cx) if null $kid->sibling and not $local;
+    for (; !null($kid); $kid = $kid->sibling) {
+	if ($local) {
+	    if (class($kid) eq "UNOP" and $kid->first->name eq "gvsv") {
+		$lop = $kid->first;
+	    } else {
+		$lop = $kid;
+	    }
+	    $self->{'avoid_local'}{$$lop}++;
+	    $expr = $self->deparse($kid, 6);
+	    delete $self->{'avoid_local'}{$$lop};
+	} else {
+	    $expr = $self->deparse($kid, 6);
+	}
+	push @exprs, $expr;
+    }
+    if ($local) {
+	return "$local(" . join(", ", @exprs) . ")";
+    } else {
+	return $self->maybe_parens( join(", ", @exprs), $cx, 6);	
+    }
+}
+
+sub is_ifelse_cont {
+    my $op = shift;
+    return ($op->name eq "null" and class($op) eq "UNOP"
+	    and $op->first->name =~ /^(and|cond_expr)$/
+	    and is_scope($op->first->first->sibling));
+}
+
+sub pp_cond_expr {
+    my $self = shift;
+    my($op, $cx) = @_;
+    my $cond = $op->first;
+    my $true = $cond->sibling;
+    my $false = $true->sibling;
+    my $cuddle = $self->{'cuddle'};
+    unless ($cx < 1 and (is_scope($true) and $true->name ne "null") and
+	    (is_scope($false) || is_ifelse_cont($false))
+	    and $self->{'expand'} < 7) {
+	$cond = $self->deparse($cond, 8);
+	$true = $self->deparse($true, 6);
+	$false = $self->deparse($false, 8);
+	return $self->maybe_parens("$cond ? $true : $false", $cx, 8);
+    }
+
+    $cond = $self->deparse($cond, 1);
+    $true = $self->deparse($true, 0);
+    my $head = $self->keyword("if") . " ($cond) {\n\t$true\n\b}";
+    my @elsifs;
+    my $elsif;
+    while (!null($false) and is_ifelse_cont($false)) {
+	my $newop = $false->first;
+	my $newcond = $newop->first;
+	my $newtrue = $newcond->sibling;
+	$false = $newtrue->sibling; # last in chain is OP_AND => no else
+	if ($newcond->name eq "lineseq")
+	{
+	    # lineseq to ensure correct line numbers in elsif()
+	    # Bug #37302 fixed by change #33710.
+	    $newcond = $newcond->first->sibling;
+	}
+	$newcond = $self->deparse($newcond, 1);
+	$newtrue = $self->deparse($newtrue, 0);
+	$elsif ||= $self->keyword("elsif");
+	push @elsifs, "$elsif ($newcond) {\n\t$newtrue\n\b}";
+    }
+    if (!null($false)) {
+	$false = $cuddle . $self->keyword("else") . " {\n\t" .
+	  $self->deparse($false, 0) . "\n\b}\cK";
+    } else {
+	$false = "\cK";
+    }
+    return $head . join($cuddle, "", @elsifs) . $false;
+}
+
+sub pp_once {
+    my ($self, $op, $cx) = @_;
+    my $cond = $op->first;
+    my $true = $cond->sibling;
+
+    my $ret = $self->deparse($true, $cx);
+    $ret =~ s/^(\(?)\$/$1 . $self->keyword("state") . ' $'/e;
+    $ret;
+}
+
+sub loop_common {
+    my $self = shift;
+    my($op, $cx, $init) = @_;
+    my $enter = $op->first;
+    my $kid = $enter->sibling;
+    local(@$self{qw'curstash warnings hints hinthash'})
+		= @$self{qw'curstash warnings hints hinthash'};
+    my $head = "";
+    my $bare = 0;
+    my $body;
+    my $cond = undef;
+    my $name;
+    if ($kid->name eq "lineseq") { # bare or infinite loop
+	if ($kid->last->name eq "unstack") { # infinite
+	    $head = "while (1) "; # Can't use for(;;) if there's a continue
+	    $cond = "";
+	} else {
+	    $bare = 1;
+	}
+	$body = $kid;
+    } elsif ($enter->name eq "enteriter") { # foreach
+	my $ary = $enter->first->sibling; # first was pushmark
+	my $var = $ary->sibling;
+	if ($ary->name eq 'null' and $enter->private & OPpITER_REVERSED) {
+	    # "reverse" was optimised away
+	    $ary = listop($self, $ary->first->sibling, 1, 'reverse');
+	} elsif ($enter->flags & OPf_STACKED
+	    and not null $ary->first->sibling->sibling)
+	{
+	    $ary = $self->deparse($ary->first->sibling, 9) . " .. " .
+	      $self->deparse($ary->first->sibling->sibling, 9);
+	} else {
+	    $ary = $self->deparse($ary, 1);
+	}
+	if (null $var) {
+            $var = $self->pp_padsv($enter, 1, 1);
+	} elsif ($var->name eq "rv2gv") {
+	    $var = $self->pp_rv2sv($var, 1);
+	    if ($enter->private & OPpOUR_INTRO) {
+		# our declarations don't have package names
+		$var =~ s/^(.).*::/$1/;
+		$var = "our $var";
+	    }
+	} elsif ($var->name eq "gv") {
+	    $var = "\$" . $self->deparse($var, 1);
+	} else {
+	    $var = $self->deparse($var, 1);
+	}
+	$body = $kid->first->first->sibling; # skip OP_AND and OP_ITER
+	if (!is_state $body->first and $body->first->name !~ /^(?:stub|leave|scope)$/) {
+	    confess unless $var eq '$_';
+	    $body = $body->first;
+	    return $self->deparse($body, 2) . " "
+		 . $self->keyword("foreach") . " ($ary)";
+	}
+	$head = "foreach $var ($ary) ";
+    } elsif ($kid->name eq "null") { # while/until
+	$kid = $kid->first;
+	$name = {"and" => "while", "or" => "until"}->{$kid->name};
+	$cond = $kid->first;
+	$body = $kid->first->sibling;
+    } elsif ($kid->name eq "stub") { # bare and empty
+	return "{;}"; # {} could be a hashref
+    }
+    # If there isn't a continue block, then the next pointer for the loop
+    # will point to the unstack, which is kid's last child, except
+    # in a bare loop, when it will point to the leaveloop. When neither of
+    # these conditions hold, then the second-to-last child is the continue
+    # block (or the last in a bare loop).
+    my $cont_start = $enter->nextop;
+    my $cont;
+    my $precond;
+    my $postcond;
+    if ($$cont_start != $$op && ${$cont_start} != ${$body->last}) {
+	if ($bare) {
+	    $cont = $body->last;
+	} else {
+	    $cont = $body->first;
+	    while (!null($cont->sibling->sibling)) {
+		$cont = $cont->sibling;
+	    }
+	}
+	my $state = $body->first;
+	my $cuddle = $self->{'cuddle'};
+	my @states;
+	for (; $$state != $$cont; $state = $state->sibling) {
+	    push @states, $state;
+	}
+	$body = $self->lineseq(undef, 0, @states);
+	if (defined $cond and not is_scope $cont and $self->{'expand'} < 3) {
+	    $precond = "for ($init; ";
+	    $postcond = "; " . $self->deparse($cont, 1) .") ";
+	    $cont = "\cK";
+	} else {
+	    $cont = $cuddle . "continue {\n\t" .
+	      $self->deparse($cont, 0) . "\n\b}\cK";
+	}
+    } else {
+	return "" if !defined $body;
+	if (length $init) {
+	    $precond = "for ($init; ";
+	    $postcond = ";) ";
+	}
+	$cont = "\cK";
+	$body = $self->deparse($body, 0);
+    }
+    if ($precond) { # for(;;)
+	$cond &&= $name eq 'until'
+		    ? listop($self, undef, 1, "not", $cond->first)
+		    : $self->deparse($cond, 1);
+	$head = "$precond$cond$postcond";
+    }
+    if ($name && !$head) {
+	ref $cond and $cond = $self->deparse($cond, 1);
+	$head = "$name ($cond) ";
+    }
+    $head =~ s/^(for(?:each)?|while|until)/$self->keyword($1)/e;
+    $body =~ s/;?$/;\n/;
+
+    return $head . "{\n\t" . $body . "\b}" . $cont;
+}
+
+sub pp_leaveloop { shift->loop_common(@_, "") }
+
+sub for_loop {
+    my $self = shift;
+    my($op, $cx) = @_;
+    my $init = $self->deparse($op, 1);
+    my $s = $op->sibling;
+    my $ll = $s->name eq "unstack" ? $s->sibling : $s->first->sibling;
+    return $self->loop_common($ll, $cx, $init);
+}
+
+sub pp_leavetry {
+    my $self = shift;
+    return "eval {\n\t" . $self->pp_leave(@_) . "\n\b}";
+}
+
+sub _op_is_or_was {
+  my ($op, $expect_type) = @_;
+  my $type = $op->type;
+  return($type == $expect_type
+         || ($type == OP_NULL && $op->targ == $expect_type));
+}
+
+sub pp_null {
+    my($self, $op, $cx) = @_;
+    if (class($op) eq "OP") {
+	# old value is lost
+	return $self->{'ex_const'} if $op->targ == OP_CONST;
+    } elsif (class ($op) eq "COP") {
+	    return &pp_nextstate;
+    } elsif ($op->first->name eq 'pushmark'
+             or $op->first->name eq 'null'
+                && $op->first->targ == OP_PUSHMARK
+                && _op_is_or_was($op, OP_LIST)) {
+	return $self->pp_list($op, $cx);
+    } elsif ($op->first->name eq "enter") {
+	return $self->pp_leave($op, $cx);
+    } elsif ($op->first->name eq "leave") {
+	return $self->pp_leave($op->first, $cx);
+    } elsif ($op->first->name eq "scope") {
+	return $self->pp_scope($op->first, $cx);
+    } elsif ($op->targ == OP_STRINGIFY) {
+	return $self->dquote($op, $cx);
+    } elsif ($op->targ == OP_GLOB) {
+	return $self->pp_glob(
+	         $op->first    # entersub
+	            ->first    # ex-list
+	            ->first    # pushmark
+	            ->sibling, # glob
+	         $cx
+	       );
+    } elsif (!null($op->first->sibling) and
+	     $op->first->sibling->name eq "readline" and
+	     $op->first->sibling->flags & OPf_STACKED) {
+	return $self->maybe_parens($self->deparse($op->first, 7) . " = "
+				   . $self->deparse($op->first->sibling, 7),
+				   $cx, 7);
+    } elsif (!null($op->first->sibling) and
+	     $op->first->sibling->name =~ /^transr?\z/ and
+	     $op->first->sibling->flags & OPf_STACKED) {
+	return $self->maybe_parens($self->deparse($op->first, 20) . " =~ "
+				   . $self->deparse($op->first->sibling, 20),
+				   $cx, 20);
+    } elsif ($op->flags & OPf_SPECIAL && $cx < 1 && !$op->targ) {
+	return ($self->lex_in_scope("&do") ? "CORE::do" : "do")
+	     . " {\n\t". $self->deparse($op->first, $cx) ."\n\b};";
+    } elsif (!null($op->first->sibling) and
+	     $op->first->sibling->name eq "null" and
+	     class($op->first->sibling) eq "UNOP" and
+	     $op->first->sibling->first->flags & OPf_STACKED and
+	     $op->first->sibling->first->name eq "rcatline") {
+	return $self->maybe_parens($self->deparse($op->first, 18) . " .= "
+				   . $self->deparse($op->first->sibling, 18),
+				   $cx, 18);
+    } else {
+	return $self->deparse($op->first, $cx);
+    }
+}
+
+sub padname {
+    my $self = shift;
+    my $targ = shift;
+    return $self->padname_sv($targ)->PVX;
+}
+
+sub padany {
+    my $self = shift;
+    my $op = shift;
+    return substr($self->padname($op->targ), 1); # skip $/@/%
+}
+
+sub pp_padsv {
+    my $self = shift;
+    my($op, $cx, $forbid_parens) = @_;
+    my $targ = $op->targ;
+    return $self->maybe_my($op, $cx, $self->padname($targ),
+			   $self->padname_sv($targ),
+			   $forbid_parens);
+}
+
+sub pp_padav { pp_padsv(@_) }
+sub pp_padhv { pp_padsv(@_) }
+
+sub gv_or_padgv {
+    my $self = shift;
+    my $op = shift;
+    if (class($op) eq "PADOP") {
+	return $self->padval($op->padix);
+    } else { # class($op) eq "SVOP"
+	return $op->gv;
+    }
+}
+
+sub pp_gvsv {
+    my $self = shift;
+    my($op, $cx) = @_;
+    my $gv = $self->gv_or_padgv($op);
+    return $self->maybe_local($op, $cx, $self->stash_variable("\$",
+				 $self->gv_name($gv), $cx));
+}
+
+sub pp_gv {
+    my $self = shift;
+    my($op, $cx) = @_;
+    my $gv = $self->gv_or_padgv($op);
+    return $self->gv_name($gv);
+}
+
+sub pp_aelemfast_lex {
+    my $self = shift;
+    my($op, $cx) = @_;
+    my $name = $self->padname($op->targ);
+    $name =~ s/^@/\$/;
+    my $i = $op->private;
+    $i -= 256 if $i > 127;
+    return $name . "[" .  ($i + $self->{'arybase'}) . "]";
+}
+
+sub pp_aelemfast {
+    my $self = shift;
+    my($op, $cx) = @_;
+    # optimised PADAV, pre 5.15
+    return $self->pp_aelemfast_lex(@_) if ($op->flags & OPf_SPECIAL);
+
+    my $gv = $self->gv_or_padgv($op);
+    my($name,$quoted) = $self->stash_variable_name('@',$gv);
+    $name = $quoted ? "$name->" : '$' . $name;
+    my $i = $op->private;
+    $i -= 256 if $i > 127;
+    return $name . "[" .  ($i + $self->{'arybase'}) . "]";
+}
+
+sub rv2x {
+    my $self = shift;
+    my($op, $cx, $type) = @_;
+
+    if (class($op) eq 'NULL' || !$op->can("first")) {
+	carp("Unexpected op in pp_rv2x");
+	return 'XXX';
+    }
+    my $kid = $op->first;
+    if ($kid->name eq "gv") {
+	return $self->stash_variable($type, $self->deparse($kid, 0), $cx);
+    } elsif (is_scalar $kid) {
+	my $str = $self->deparse($kid, 0);
+	if ($str =~ /^\$([^\w\d])\z/) {
+	    # "$$+" isn't a legal way to write the scalar dereference
+	    # of $+, since the lexer can't tell you aren't trying to
+	    # do something like "$$ + 1" to get one more than your
+	    # PID. Either "${$+}" or "$${+}" are workable
+	    # disambiguations, but if the programmer did the former,
+	    # they'd be in the "else" clause below rather than here.
+	    # It's not clear if this should somehow be unified with
+	    # the code in dq and re_dq that also adds lexer
+	    # disambiguation braces.
+	    $str = '$' . "{$1}"; #'
+	}
+	return $type . $str;
+    } else {
+	return $type . "{" . $self->deparse($kid, 0) . "}";
+    }
+}
+
+sub pp_rv2sv { maybe_local(@_, rv2x(@_, "\$")) }
+sub pp_rv2hv { maybe_local(@_, rv2x(@_, "%")) }
+sub pp_rv2gv { maybe_local(@_, rv2x(@_, "*")) }
+
+# skip rv2av
+sub pp_av2arylen {
+    my $self = shift;
+    my($op, $cx) = @_;
+    if ($op->first->name eq "padav") {
+	return $self->maybe_local($op, $cx, '$#' . $self->padany($op->first));
+    } else {
+	return $self->maybe_local($op, $cx,
+				  $self->rv2x($op->first, $cx, '$#'));
+    }
+}
+
+# skip down to the old, ex-rv2cv
+sub pp_rv2cv {
+    my ($self, $op, $cx) = @_;
+    if (!null($op->first) && $op->first->name eq 'null' &&
+	$op->first->targ == OP_LIST)
+    {
+	return $self->rv2x($op->first->first->sibling, $cx, "&")
+    }
+    else {
+	return $self->rv2x($op, $cx, "")
+    }
+}
+
+sub list_const {
+    my $self = shift;
+    my($cx, @list) = @_;
+    my @a = map $self->const($_, 6), @list;
+    if (@a == 0) {
+	return "()";
+    } elsif (@a == 1) {
+	return $a[0];
+    } elsif ( @a > 2 and !grep(!/^-?\d+$/, @a)) {
+	# collapse (-1,0,1,2) into (-1..2)
+	my ($s, $e) = @a[0,-1];
+	my $i = $s;
+	return $self->maybe_parens("$s..$e", $cx, 9)
+	  unless grep $i++ != $_, @a;
+    }
+    return $self->maybe_parens(join(", ", @a), $cx, 6);
+}
+
+sub pp_rv2av {
+    my $self = shift;
+    my($op, $cx) = @_;
+    my $kid = $op->first;
+    if ($kid->name eq "const") { # constant list
+	my $av = $self->const_sv($kid);
+	return $self->list_const($cx, $av->ARRAY);
+    } else {
+	return $self->maybe_local($op, $cx, $self->rv2x($op, $cx, "\@"));
+    }
+ }
+
+sub is_subscriptable {
+    my $op = shift;
+    if ($op->name =~ /^([ahg]elem|multideref$)/) {
+	return 1;
+    } elsif ($op->name eq "entersub") {
+	my $kid = $op->first;
+	return 0 unless null $kid->sibling;
+	$kid = $kid->first;
+	$kid = $kid->sibling until null $kid->sibling;
+	return 0 if is_scope($kid);
+	$kid = $kid->first;
+	return 0 if $kid->name eq "gv" || $kid->name eq "padcv";
+	return 0 if is_scalar($kid);
+	return is_subscriptable($kid);	
+    } else {
+	return 0;
+    }
+}
+
+sub elem_or_slice_array_name
+{
+    my $self = shift;
+    my ($array, $left, $padname, $allow_arrow) = @_;
+
+    if ($array->name eq $padname) {
+	return $self->padany($array);
+    } elsif (is_scope($array)) { # ${expr}[0]
+	return "{" . $self->deparse($array, 0) . "}";
+    } elsif ($array->name eq "gv") {
+	($array, my $quoted) =
+	    $self->stash_variable_name(
+		$left eq '[' ? '@' : '%', $self->gv_or_padgv($array)
+	    );
+	if (!$allow_arrow && $quoted) {
+	    # This cannot happen.
+	    die "Invalid variable name $array for slice";
+	}
+	return $quoted ? "$array->" : $array;
+    } elsif (!$allow_arrow || is_scalar $array) { # $x[0], $$x[0], ...
+	return $self->deparse($array, 24);
+    } else {
+	return undef;
+    }
+}
+
+sub elem_or_slice_single_index
+{
+    my $self = shift;
+    my ($idx) = @_;
+
+    $idx = $self->deparse($idx, 1);
+
+    # Outer parens in an array index will confuse perl
+    # if we're interpolating in a regular expression, i.e.
+    # /$x$foo[(-1)]/ is *not* the same as /$x$foo[-1]/
+    #
+    # If $self->{parens}, then an initial '(' will
+    # definitely be paired with a final ')'. If
+    # !$self->{parens}, the misleading parens won't
+    # have been added in the first place.
+    #
+    # [You might think that we could get "(...)...(...)"
+    # where the initial and final parens do not match
+    # each other. But we can't, because the above would
+    # only happen if there's an infix binop between the
+    # two pairs of parens, and *that* means that the whole
+    # expression would be parenthesized as well.]
+    #
+    $idx =~ s/^\((.*)\)$/$1/ if $self->{'parens'};
+
+    # Hash-element braces will autoquote a bareword inside themselves.
+    # We need to make sure that C<$hash{warn()}> doesn't come out as
+    # C<$hash{warn}>, which has a quite different meaning. Currently
+    # B::Deparse will always quote strings, even if the string was a
+    # bareword in the original (i.e. the OPpCONST_BARE flag is ignored
+    # for constant strings.) So we can cheat slightly here - if we see
+    # a bareword, we know that it is supposed to be a function call.
+    #
+    $idx =~ s/^([A-Za-z_]\w*)$/$1()/;
+
+    return $idx;
+}
+
+sub elem {
+    my $self = shift;
+    my ($op, $cx, $left, $right, $padname) = @_;
+    my($array, $idx) = ($op->first, $op->first->sibling);
+
+    $idx = $self->elem_or_slice_single_index($idx);
+
+    unless ($array->name eq $padname) { # Maybe this has been fixed	
+	$array = $array->first; # skip rv2av (or ex-rv2av in _53+)
+    }
+    if (my $array_name=$self->elem_or_slice_array_name
+	    ($array, $left, $padname, 1)) {
+	return ($array_name =~ /->\z/
+		    ? $array_name
+		    : $array_name eq '#' ? '${#}' : "\$" . $array_name)
+	      . $left . $idx . $right;
+    } else {
+	# $x[20][3]{hi} or expr->[20]
+	my $arrow = is_subscriptable($array) ? "" : "->";
+	return $self->deparse($array, 24) . $arrow . $left . $idx . $right;
+    }
+
+}
+
+# a simplified version of elem_or_slice_array_name()
+# for the use of pp_multideref
+
+sub multideref_var_name {
+    my $self = shift;
+    my ($gv, $is_hash) = @_;
+
+    my ($name, $quoted) =
+        $self->stash_variable_name( $is_hash  ? '%' : '@', $gv);
+    return $quoted ? "$name->"
+                   : $name eq '#'
+                        ? '${#}'       # avoid ${#}[1] => $#[1]
+                        : '$' . $name;
+}
+
+
+sub pp_multideref {
+    my $self = shift;
+    my($op, $cx) = @_;
+    my $text = "";
+
+    if ($op->private & OPpMULTIDEREF_EXISTS) {
+        $text = $self->keyword("exists"). " ";
+    }
+    elsif ($op->private & OPpMULTIDEREF_DELETE) {
+        $text = $self->keyword("delete"). " ";
+    }
+    elsif ($op->private & OPpLVAL_INTRO) {
+        $text = $self->keyword("local"). " ";
+    }
+
+    if ($op->first && ($op->first->flags & OPf_KIDS)) {
+        # arbitrary initial expression, e.g. f(1,2,3)->[...]
+        $text .=  $self->deparse($op->first, 24);
+    }
+
+    my @items = $op->aux_list($self->{curcv});
+    my $actions = shift @items;
+
+    my $is_hash;
+    my $derefs = 0;
+
+    while (1) {
+        if (($actions & MDEREF_ACTION_MASK) == MDEREF_reload) {
+            $actions = shift @items;
+            next;
+        }
+
+        $is_hash = (
+           ($actions & MDEREF_ACTION_MASK) == MDEREF_HV_pop_rv2hv_helem
+        || ($actions & MDEREF_ACTION_MASK) == MDEREF_HV_gvsv_vivify_rv2hv_helem
+        || ($actions & MDEREF_ACTION_MASK) == MDEREF_HV_padsv_vivify_rv2hv_helem
+        || ($actions & MDEREF_ACTION_MASK) == MDEREF_HV_vivify_rv2hv_helem
+        || ($actions & MDEREF_ACTION_MASK) == MDEREF_HV_padhv_helem
+        || ($actions & MDEREF_ACTION_MASK) == MDEREF_HV_gvhv_helem
+        );
+
+        if (   ($actions & MDEREF_ACTION_MASK) == MDEREF_AV_padav_aelem
+            || ($actions & MDEREF_ACTION_MASK) == MDEREF_HV_padhv_helem)
+        {
+            $derefs = 1;
+            $text .= '$' . substr($self->padname(shift @items), 1);
+        }
+        elsif (   ($actions & MDEREF_ACTION_MASK) == MDEREF_AV_gvav_aelem
+               || ($actions & MDEREF_ACTION_MASK) == MDEREF_HV_gvhv_helem)
+        {
+            $derefs = 1;
+            $text .= $self->multideref_var_name(shift @items, $is_hash);
+        }
+        else {
+            if (   ($actions & MDEREF_ACTION_MASK) ==
+                                        MDEREF_AV_padsv_vivify_rv2av_aelem
+                || ($actions & MDEREF_ACTION_MASK) ==
+                                        MDEREF_HV_padsv_vivify_rv2hv_helem)
+            {
+                $text .= $self->padname(shift @items);
+            }
+            elsif (   ($actions & MDEREF_ACTION_MASK) ==
+                                           MDEREF_AV_gvsv_vivify_rv2av_aelem
+                   || ($actions & MDEREF_ACTION_MASK) ==
+                                           MDEREF_HV_gvsv_vivify_rv2hv_helem)
+            {
+                $text .= $self->multideref_var_name(shift @items, $is_hash);
+            }
+            elsif (   ($actions & MDEREF_ACTION_MASK) ==
+                                           MDEREF_AV_pop_rv2av_aelem
+                   || ($actions & MDEREF_ACTION_MASK) ==
+                                           MDEREF_HV_pop_rv2hv_helem)
+            {
+                if (   ($op->flags & OPf_KIDS)
+                    && (   _op_is_or_was($op->first, OP_RV2AV)
+                        || _op_is_or_was($op->first, OP_RV2HV))
+                    && ($op->first->flags & OPf_KIDS)
+                    && (   _op_is_or_was($op->first->first, OP_AELEM)
+                        || _op_is_or_was($op->first->first, OP_HELEM))
+                    )
+                {
+                    $derefs++;
+                }
+            }
+
+            $text .= '->' if !$derefs++;
+        }
+
+
+        if (($actions & MDEREF_INDEX_MASK) == MDEREF_INDEX_none) {
+            last;
+        }
+
+        $text .= $is_hash ? '{' : '[';
+
+        if (($actions & MDEREF_INDEX_MASK) == MDEREF_INDEX_const) {
+            my $key = shift @items;
+            if ($is_hash) {
+                $text .= $self->const($key, $cx);
+            }
+            else {
+                $text .= $key;
+            }
+        }
+        elsif (($actions & MDEREF_INDEX_MASK) == MDEREF_INDEX_padsv) {
+            $text .= $self->padname(shift @items);
+        }
+        elsif (($actions & MDEREF_INDEX_MASK) == MDEREF_INDEX_gvsv) {
+            $text .= '$' .  ($self->stash_variable_name('$', shift @items))[0];
+        }
+
+        $text .= $is_hash ? '}' : ']';
+
+        if ($actions & MDEREF_FLAG_last) {
+            last;
+        }
+        $actions >>= MDEREF_SHIFT;
+    }
+
+    return $text;
+}
+
+
+sub pp_aelem { maybe_local(@_, elem(@_, "[", "]", "padav")) }
+sub pp_helem { maybe_local(@_, elem(@_, "{", "}", "padhv")) }
+
+sub pp_gelem {
+    my $self = shift;
+    my($op, $cx) = @_;
+    my($glob, $part) = ($op->first, $op->last);
+    $glob = $glob->first; # skip rv2gv
+    $glob = $glob->first if $glob->name eq "rv2gv"; # this one's a bug
+    my $scope = is_scope($glob);
+    $glob = $self->deparse($glob, 0);
+    $part = $self->deparse($part, 1);
+    return "*" . ($scope ? "{$glob}" : $glob) . "{$part}";
+}
+
+sub slice {
+    my $self = shift;
+    my ($op, $cx, $left, $right, $regname, $padname) = @_;
+    my $last;
+    my(@elems, $kid, $array, $list);
+    if (class($op) eq "LISTOP") {
+	$last = $op->last;
+    } else { # ex-hslice inside delete()
+	for ($kid = $op->first; !null $kid->sibling; $kid = $kid->sibling) {}
+	$last = $kid;
+    }
+    $array = $last;
+    $array = $array->first
+	if $array->name eq $regname or $array->name eq "null";
+    $array = $self->elem_or_slice_array_name($array,$left,$padname,0);
+    $kid = $op->first->sibling; # skip pushmark
+    if ($kid->name eq "list") {
+	$kid = $kid->first->sibling; # skip list, pushmark
+	for (; !null $kid; $kid = $kid->sibling) {
+	    push @elems, $self->deparse($kid, 6);
+	}
+	$list = join(", ", @elems);
+    } else {
+	$list = $self->elem_or_slice_single_index($kid);
+    }
+    my $lead = '@';
+    $lead = '%' if $op->name =~ /^kv/i;
+    return $lead . $array . $left . $list . $right;
+}
+
+sub pp_aslice   { maybe_local(@_, slice(@_, "[", "]", "rv2av", "padav")) }
+sub pp_kvaslice {                 slice(@_, "[", "]", "rv2av", "padav")  }
+sub pp_hslice   { maybe_local(@_, slice(@_, "{", "}", "rv2hv", "padhv")) }
+sub pp_kvhslice {                 slice(@_, "{", "}", "rv2hv", "padhv")  }
+
+sub pp_lslice {
+    my $self = shift;
+    my($op, $cx) = @_;
+    my $idx = $op->first;
+    my $list = $op->last;
+    my(@elems, $kid);
+    $list = $self->deparse($list, 1);
+    $idx = $self->deparse($idx, 1);
+    return "($list)" . "[$idx]";
+}
+
+sub want_scalar {
+    my $op = shift;
+    return ($op->flags & OPf_WANT) == OPf_WANT_SCALAR;
+}
+
+sub want_list {
+    my $op = shift;
+    return ($op->flags & OPf_WANT) == OPf_WANT_LIST;
+}
+
+sub _method {
+    my $self = shift;
+    my($op, $cx) = @_;
+    my $kid = $op->first->sibling; # skip pushmark
+    my($meth, $obj, @exprs);
+    if ($kid->name eq "list" and want_list $kid) {
+	# When an indirect object isn't a bareword but the args are in
+	# parens, the parens aren't part of the method syntax (the LLAFR
+	# doesn't apply), but they make a list with OPf_PARENS set that
+	# doesn't get flattened by the append_elem that adds the method,
+	# making a (object, arg1, arg2, ...) list where the object
+	# usually is. This can be distinguished from
+	# '($obj, $arg1, $arg2)->meth()' (which is legal if $arg2 is an
+	# object) because in the later the list is in scalar context
+	# as the left side of -> always is, while in the former
+	# the list is in list context as method arguments always are.
+	# (Good thing there aren't method prototypes!)
+	$meth = $kid->sibling;
+	$kid = $kid->first->sibling; # skip pushmark
+	$obj = $kid;
+	$kid = $kid->sibling;
+	for (; not null $kid; $kid = $kid->sibling) {
+	    push @exprs, $kid;
+	}
+    } else {
+	$obj = $kid;
+	$kid = $kid->sibling;
+	for (; !null ($kid->sibling) && $kid->name!~/^method(?:_named)?\z/;
+	      $kid = $kid->sibling) {
+	    push @exprs, $kid
+	}
+	$meth = $kid;
+    }
+
+    if ($meth->name eq "method_named") {
+	$meth = $self->meth_sv($meth)->PV;
+    } elsif ($meth->name eq "method_super") {
+	$meth = "SUPER::".$self->meth_sv($meth)->PV;
+    } elsif ($meth->name eq "method_redir") {
+        $meth = $self->meth_rclass_sv($meth)->PV.'::'.$self->meth_sv($meth)->PV;
+    } elsif ($meth->name eq "method_redir_super") {
+        $meth = $self->meth_rclass_sv($meth)->PV.'::SUPER::'.
+                $self->meth_sv($meth)->PV;
+    } else {
+	$meth = $meth->first;
+	if ($meth->name eq "const") {
+	    # As of 5.005_58, this case is probably obsoleted by the
+	    # method_named case above
+	    $meth = $self->const_sv($meth)->PV; # needs to be bare
+	}
+    }
+
+    return { method => $meth, variable_method => ref($meth),
+             object => $obj, args => \@exprs  },
+	   $cx;
+}
+
+# compat function only
+sub method {
+    my $self = shift;
+    my $info = $self->_method(@_);
+    return $self->e_method( $self->_method(@_) );
+}
+
+sub e_method {
+    my ($self, $info, $cx) = @_;
+    my $obj = $self->deparse($info->{object}, 24);
+
+    my $meth = $info->{method};
+    $meth = $self->deparse($meth, 1) if $info->{variable_method};
+    my $args = join(", ", map { $self->deparse($_, 6) } @{$info->{args}} );
+    if ($info->{object}->name eq 'scope' && want_list $info->{object}) {
+	# method { $object }
+	# This must be deparsed this way to preserve list context
+	# of $object.
+	my $need_paren = $cx >= 6;
+	return '(' x $need_paren
+	     . $meth . substr($obj,2) # chop off the "do"
+	     . " $args"
+	     . ')' x $need_paren;
+    }
+    my $kid = $obj . "->" . $meth;
+    if (length $args) {
+	return $kid . "(" . $args . ")"; # parens mandatory
+    } else {
+	return $kid;
+    }
+}
+
+# returns "&" if the prototype doesn't match the args,
+# or ("", $args_after_prototype_demunging) if it does.
+sub check_proto {
+    my $self = shift;
+    return "&" if $self->{'noproto'};
+    my($proto, @args) = @_;
+    my($arg, $real);
+    my $doneok = 0;
+    my @reals;
+    # An unbackslashed @ or % gobbles up the rest of the args
+    1 while $proto =~ s/(?<!\\)([@%])[^\]]+$/$1/;
+    $proto =~ s/^\s*//;
+    while ($proto) {
+	$proto =~ s/^(\\?[\$\@&%*_]|\\\[[\$\@&%*]+\]|;|)\s*//;
+	my $chr = $1;
+	if ($chr eq "") {
+	    return "&" if @args;
+	} elsif ($chr eq ";") {
+	    $doneok = 1;
+	} elsif ($chr eq "@" or $chr eq "%") {
+	    push @reals, map($self->deparse($_, 6), @args);
+	    @args = ();
+	} else {
+	    $arg = shift @args;
+	    last unless $arg;
+	    if ($chr eq "\$" || $chr eq "_") {
+		if (want_scalar $arg) {
+		    push @reals, $self->deparse($arg, 6);
+		} else {
+		    return "&";
+		}
+	    } elsif ($chr eq "&") {
+		if ($arg->name =~ /^(s?refgen|undef)$/) {
+		    push @reals, $self->deparse($arg, 6);
+		} else {
+		    return "&";
+		}
+	    } elsif ($chr eq "*") {
+		if ($arg->name =~ /^s?refgen$/
+		    and $arg->first->first->name eq "rv2gv")
+		  {
+		      $real = $arg->first->first; # skip refgen, null
+		      if ($real->first->name eq "gv") {
+			  push @reals, $self->deparse($real, 6);
+		      } else {
+			  push @reals, $self->deparse($real->first, 6);
+		      }
+		  } else {
+		      return "&";
+		  }
+	    } elsif (substr($chr, 0, 1) eq "\\") {
+		$chr =~ tr/\\[]//d;
+		if ($arg->name =~ /^s?refgen$/ and
+		    !null($real = $arg->first) and
+		    ($chr =~ /\$/ && is_scalar($real->first)
+		     or ($chr =~ /@/
+			 && class($real->first->sibling) ne 'NULL'
+			 && $real->first->sibling->name
+			 =~ /^(rv2|pad)av$/)
+		     or ($chr =~ /%/
+			 && class($real->first->sibling) ne 'NULL'
+			 && $real->first->sibling->name
+			 =~ /^(rv2|pad)hv$/)
+		     #or ($chr =~ /&/ # This doesn't work
+		     #   && $real->first->name eq "rv2cv")
+		     or ($chr =~ /\*/
+			 && $real->first->name eq "rv2gv")))
+		  {
+		      push @reals, $self->deparse($real, 6);
+		  } else {
+		      return "&";
+		  }
+	    }
+       }
+    }
+    return "&" if $proto and !$doneok; # too few args and no ';'
+    return "&" if @args;               # too many args
+    return ("", join ", ", @reals);
+}
+
+sub retscalar {
+    my $name = $_[0]->name;
+    # XXX There has to be a better way of doing this scalar-op check.
+    #     Currently PL_opargs is not exposed.
+    if ($name eq 'null') {
+        $name = substr B::ppname($_[0]->targ), 3
+    }
+    $name =~ /^(?:scalar|pushmark|wantarray|const|gvsv|gv|padsv|rv2gv
+                 |rv2sv|av2arylen|anoncode|prototype|srefgen|ref|bless
+                 |regcmaybe|regcreset|regcomp|qr|subst|substcont|trans
+                 |transr|sassign|chop|schop|chomp|schomp|defined|undef
+                 |study|pos|preinc|i_preinc|predec|i_predec|postinc
+                 |i_postinc|postdec|i_postdec|pow|multiply|i_multiply
+                 |divide|i_divide|modulo|i_modulo|add|i_add|subtract
+                 |i_subtract|concat|stringify|left_shift|right_shift|lt
+                 |i_lt|gt|i_gt|le|i_le|ge|i_ge|eq|i_eq|ne|i_ne|ncmp|i_ncmp
+                 |slt|sgt|sle|sge|seq|sne|scmp|[sn]?bit_(?:and|x?or)|negate
+                 |i_negate|not|[sn]?complement|smartmatch|atan2|sin|cos
+                 |rand|srand|exp|log|sqrt|int|hex|oct|abs|length|substr
+                 |vec|index|rindex|sprintf|formline|ord|chr|crypt|ucfirst
+                 |lcfirst|uc|lc|quotemeta|aelemfast|aelem|exists|helem
+                 |pack|join|anonlist|anonhash|push|pop|shift|unshift|xor
+                 |andassign|orassign|dorassign|warn|die|reset|nextstate
+                 |dbstate|unstack|last|next|redo|dump|goto|exit|open|close
+                 |pipe_op|fileno|umask|binmode|tie|untie|tied|dbmopen
+                 |dbmclose|select|getc|read|enterwrite|prtf|print|say
+                 |sysopen|sysseek|sysread|syswrite|eof|tell|seek|truncate
+                 |fcntl|ioctl|flock|send|recv|socket|sockpair|bind|connect
+                 |listen|accept|shutdown|gsockopt|ssockopt|getsockname
+                 |getpeername|ftrread|ftrwrite|ftrexec|fteread|ftewrite
+                 |fteexec|ftis|ftsize|ftmtime|ftatime|ftctime|ftrowned
+                 |fteowned|ftzero|ftsock|ftchr|ftblk|ftfile|ftdir|ftpipe
+                 |ftsuid|ftsgid|ftsvtx|ftlink|fttty|fttext|ftbinary|chdir
+                 |chown|chroot|unlink|chmod|utime|rename|link|symlink
+                 |readlink|mkdir|rmdir|open_dir|telldir|seekdir|rewinddir
+                 |closedir|fork|wait|waitpid|system|exec|kill|getppid
+                 |getpgrp|setpgrp|getpriority|setpriority|time|alarm|sleep
+                 |shmget|shmctl|shmread|shmwrite|msgget|msgctl|msgsnd
+                 |msgrcv|semop|semget|semctl|hintseval|shostent|snetent
+                 |sprotoent|sservent|ehostent|enetent|eprotoent|eservent
+                 |spwent|epwent|sgrent|egrent|getlogin|syscall|lock|runcv
+                 |fc)\z/x
+}
+
+sub pp_entersub {
+    my $self = shift;
+    my($op, $cx) = @_;
+    return $self->e_method($self->_method($op, $cx))
+        unless null $op->first->sibling;
+    my $prefix = "";
+    my $amper = "";
+    my($kid, @exprs);
+    if ($op->flags & OPf_SPECIAL && !($op->flags & OPf_MOD)) {
+	$prefix = "do ";
+    } elsif ($op->private & OPpENTERSUB_AMPER) {
+	$amper = "&";
+    }
+    $kid = $op->first;
+    $kid = $kid->first->sibling; # skip ex-list, pushmark
+    for (; not null $kid->sibling; $kid = $kid->sibling) {
+	push @exprs, $kid;
+    }
+    my $simple = 0;
+    my $proto = undef;
+    my $lexical;
+    if (is_scope($kid)) {
+	$amper = "&";
+	$kid = "{" . $self->deparse($kid, 0) . "}";
+    } elsif ($kid->first->name eq "gv") {
+	my $gv = $self->gv_or_padgv($kid->first);
+	my $cv;
+	if (class($gv) eq 'GV' && class($cv = $gv->CV) ne "SPECIAL"
+	 || $gv->FLAGS & SVf_ROK && class($cv = $gv->RV) eq 'CV') {
+	    $proto = $cv->PV if $cv->FLAGS & SVf_POK;
+	}
+	$simple = 1; # only calls of named functions can be prototyped
+	$kid = $self->deparse($kid, 24);
+	my $fq;
+	# Fully qualify any sub name that conflicts with a lexical.
+	if ($self->lex_in_scope("&$kid")
+	 || $self->lex_in_scope("&$kid", 1))
+	{
+	    $fq++;
+	} elsif (!$amper) {
+	    if ($kid eq 'main::') {
+		$kid = '::';
+	    }
+	    else {
+	      if ($kid !~ /::/ && $kid ne 'x') {
+		# Fully qualify any sub name that is also a keyword.  While
+		# we could check the import flag, we cannot guarantee that
+		# the code deparsed so far would set that flag, so we qual-
+		# ify the names regardless of importation.
+		if (exists $feature_keywords{$kid}) {
+		    $fq++ if $self->feature_enabled($kid);
+		} elsif (do { local $@; local $SIG{__DIE__};
+			      eval { () = prototype "CORE::$kid"; 1 } }) {
+		    $fq++
+		}
+	      }
+	      if ($kid !~ /^(?:\w|::)(?:[\w\d]|::(?!\z))*\z/) {
+		$kid = single_delim("q", "'", $kid, $self) . '->';
+	      }
+	    }
+	}
+	$fq and substr $kid, 0, 0, = $self->{'curstash'}.'::';
+    } elsif (is_scalar ($kid->first) && $kid->first->name ne 'rv2cv') {
+	$amper = "&";
+	$kid = $self->deparse($kid, 24);
+    } else {
+	$prefix = "";
+	my $grandkid = $kid->first;
+	my $arrow = ($lexical = $grandkid->name eq "padcv")
+		 || is_subscriptable($grandkid)
+		    ? ""
+		    : "->";
+	$kid = $self->deparse($kid, 24) . $arrow;
+	if ($lexical) {
+	    my $padlist = $self->{'curcv'}->PADLIST;
+	    my $padoff = $grandkid->targ;
+	    my $padname = $padlist->ARRAYelt(0)->ARRAYelt($padoff);
+	    my $protocv = $padname->FLAGS & SVpad_STATE
+		? $padlist->ARRAYelt(1)->ARRAYelt($padoff)
+		: $padname->PROTOCV;
+	    if ($protocv->FLAGS & SVf_POK) {
+		$proto = $protocv->PV
+	    }
+	    $simple = 1;
+	}
+    }
+
+    # Doesn't matter how many prototypes there are, if
+    # they haven't happened yet!
+    my $declared = $lexical || exists $self->{'subs_declared'}{$kid};
+    if (not $declared and $self->{'in_coderef2text'}) {
+	no strict 'refs';
+	no warnings 'uninitialized';
+	$declared =
+	       (
+		 defined &{ ${$self->{'curstash'}."::"}{$kid} }
+		 && !exists
+		     $self->{'subs_deparsed'}{$self->{'curstash'}."::".$kid}
+		 && defined prototype $self->{'curstash'}."::".$kid
+	       );
+    }
+    if (!$declared && defined($proto)) {
+	# Avoid "too early to check prototype" warning
+	($amper, $proto) = ('&');
+    }
+
+    my $args;
+    my $listargs = 1;
+    if ($declared and defined $proto and not $amper) {
+	($amper, $args) = $self->check_proto($proto, @exprs);
+	$listargs = $amper;
+    }
+    if ($listargs) {
+	$args = join(", ", map(
+		    ($_->flags & OPf_WANT) == OPf_WANT_SCALAR
+		 && !retscalar($_)
+			? $self->maybe_parens_unop('scalar', $_, 6)
+			: $self->deparse($_, 6),
+		    @exprs
+		));
+    }
+    if ($prefix or $amper) {
+	if ($kid eq '&') { $kid = "{$kid}" } # &{&} cannot be written as &&
+	if ($op->flags & OPf_STACKED) {
+	    return $prefix . $amper . $kid . "(" . $args . ")";
+	} else {
+	    return $prefix . $amper. $kid;
+	}
+    } else {
+	# It's a syntax error to call CORE::GLOBAL::foo with a prefix,
+	# so it must have been translated from a keyword call. Translate
+	# it back.
+	$kid =~ s/^CORE::GLOBAL:://;
+
+	my $dproto = defined($proto) ? $proto : "undefined";
+	my $scalar_proto = $dproto =~ /^;*(?:[\$*_+]|\\.|\\\[[^]]\])\z/;
+        if (!$declared) {
+	    return "$kid(" . $args . ")";
+	} elsif ($dproto =~ /^\s*\z/) {
+	    return $kid;
+	} elsif ($scalar_proto and is_scalar($exprs[0])) {
+	    # is_scalar is an excessively conservative test here:
+	    # really, we should be comparing to the precedence of the
+	    # top operator of $exprs[0] (ala unop()), but that would
+	    # take some major code restructuring to do right.
+	    return $self->maybe_parens_func($kid, $args, $cx, 16);
+	} elsif (not $scalar_proto and defined($proto) || $simple) { #'
+	    return $self->maybe_parens_func($kid, $args, $cx, 5);
+	} else {
+	    return "$kid(" . $args . ")";
+	}
+    }
+}
+
+sub pp_enterwrite { unop(@_, "write") }
+
+# escape things that cause interpolation in double quotes,
+# but not character escapes
+sub uninterp {
+    my($str) = @_;
+    $str =~ s/(^|\G|[^\\])((?:\\\\)*)([\$\@]|\\[uUlLQE])/$1$2\\$3/g;
+    return $str;
+}
+
+{
+my $bal;
+BEGIN {
+    use re "eval";
+    # Matches any string which is balanced with respect to {braces}
+    $bal = qr(
+      (?:
+	[^\\{}]
+      | \\\\
+      | \\[{}]
+      | \{(??{$bal})\}
+      )*
+    )x;
+}
+
+# the same, but treat $|, $), $( and $ at the end of the string differently
+# and leave comments unmangled for the sake of /x and (?x).
+sub re_uninterp {
+    my($str) = @_;
+
+    $str =~ s/
+	  ( ^|\G                  # $1
+          | [^\\]
+          )
+
+          (                       # $2
+            (?:\\\\)*
+          )
+
+          (                       # $3
+            ( \(\?\??\{$bal\}\)   # $4  (skip over (?{}) and (??{}) blocks)
+            | \#[^\n]*            #     (skip over comments)
+            )
+          | [\$\@]
+            (?!\||\)|\(|$|\s)
+          | \\[uUlLQE]
+          )
+
+	/defined($4) && length($4) ? "$1$2$4" : "$1$2\\$3"/xeg;
+
+    return $str;
+}
+}
+
+# character escapes, but not delimiters that might need to be escaped
+sub escape_str { # ASCII, UTF8
+    my($str) = @_;
+    $str =~ s/(.)/ord($1) > 255 ? sprintf("\\x{%x}", ord($1)) : $1/eg;
+    $str =~ s/\a/\\a/g;
+#    $str =~ s/\cH/\\b/g; # \b means something different in a regex; and \cH
+                          # isn't a backspace in EBCDIC
+    $str =~ s/\t/\\t/g;
+    $str =~ s/\n/\\n/g;
+    $str =~ s/\e/\\e/g;
+    $str =~ s/\f/\\f/g;
+    $str =~ s/\r/\\r/g;
+    $str =~ s/([\cA-\cZ])/'\\c' . $unctrl{$1}/ge;
+    $str =~ s/([[:^print:]])/sprintf("\\%03o", ord($1))/age;
+    return $str;
+}
+
+# For regexes.  Leave whitespace unmangled in case of /x or (?x).
+sub escape_re {
+    my($str) = @_;
+    $str =~ s/(.)/ord($1) > 255 ? sprintf("\\x{%x}", ord($1)) : $1/eg;
+    $str =~ s/([[:^print:]])/
+	($1 =~ y! \t\n!!) ? $1 : sprintf("\\%03o", ord($1))/age;
+    $str =~ s/\n/\n\f/g;
+    return $str;
+}
+
+# Don't do this for regexen
+sub unback {
+    my($str) = @_;
+    $str =~ s/\\/\\\\/g;
+    return $str;
+}
+
+# Remove backslashes which precede literal control characters,
+# to avoid creating ambiguity when we escape the latter.
+sub re_unback {
+    my($str) = @_;
+
+    # the insane complexity here is due to the behaviour of "\c\"
+    $str =~ s/(^|[^\\]|\\c\\)(?<!\\c)\\(\\\\)*(?=[[:^print:]])/$1$2/g;
+    return $str;
+}
+
+sub balanced_delim {
+    my($str) = @_;
+    my @str = split //, $str;
+    my($ar, $open, $close, $fail, $c, $cnt, $last_bs);
+    for $ar (['[',']'], ['(',')'], ['<','>'], ['{','}']) {
+	($open, $close) = @$ar;
+	$fail = 0; $cnt = 0; $last_bs = 0;
+	for $c (@str) {
+	    if ($c eq $open) {
+		$fail = 1 if $last_bs;
+		$cnt++;
+	    } elsif ($c eq $close) {
+		$fail = 1 if $last_bs;
+		$cnt--;
+		if ($cnt < 0) {
+		    # qq()() isn't ")("
+		    $fail = 1;
+		    last;
+		}
+	    }
+	    $last_bs = $c eq '\\';
+	}
+	$fail = 1 if $cnt != 0;
+	return ($open, "$open$str$close") if not $fail;
+    }
+    return ("", $str);
+}
+
+sub single_delim {
+    my($q, $default, $str, $self) = @_;
+    return "$default$str$default" if $default and index($str, $default) == -1;
+    my $coreq = $self->keyword($q); # maybe CORE::q
+    if ($q ne 'qr') {
+	(my $succeed, $str) = balanced_delim($str);
+	return "$coreq$str" if $succeed;
+    }
+    for my $delim ('/', '"', '#') {
+	return "$coreq$delim" . $str . $delim if index($str, $delim) == -1;
+    }
+    if ($default) {
+	$str =~ s/$default/\\$default/g;
+	return "$default$str$default";
+    } else {
+	$str =~ s[/][\\/]g;
+	return "$coreq/$str/";
+    }
+}
+
+my $max_prec;
+BEGIN { $max_prec = int(0.999 + 8*length(pack("F", 42))*log(2)/log(10)); }
+
+# Split a floating point number into an integer mantissa and a binary
+# exponent. Assumes you've already made sure the number isn't zero or
+# some weird infinity or NaN.
+sub split_float {
+    my($f) = @_;
+    my $exponent = 0;
+    if ($f == int($f)) {
+	while ($f % 2 == 0) {
+	    $f /= 2;
+	    $exponent++;
+	}
+    } else {
+	while ($f != int($f)) {
+	    $f *= 2;
+	    $exponent--;
+	}
+    }
+    my $mantissa = sprintf("%.0f", $f);
+    return ($mantissa, $exponent);
+}
+
+sub const {
+    my $self = shift;
+    my($sv, $cx) = @_;
+    if ($self->{'use_dumper'}) {
+	return $self->const_dumper($sv, $cx);
+    }
+    if (class($sv) eq "SPECIAL") {
+	# sv_undef, sv_yes, sv_no
+	return $$sv == 3 ? $self->maybe_parens("!1", $cx, 21)
+			 : ('undef', '1')[$$sv-1];
+    }
+    if (class($sv) eq "NULL") {
+       return 'undef';
+    }
+    # convert a version object into the "v1.2.3" string in its V magic
+    if ($sv->FLAGS & SVs_RMG) {
+	for (my $mg = $sv->MAGIC; $mg; $mg = $mg->MOREMAGIC) {
+	    return $mg->PTR if $mg->TYPE eq 'V';
+	}
+    }
+
+    if ($sv->FLAGS & SVf_IOK) {
+	my $str = $sv->int_value;
+	$str = $self->maybe_parens($str, $cx, 21) if $str < 0;
+	return $str;
+    } elsif ($sv->FLAGS & SVf_NOK) {
+	my $nv = $sv->NV;
+	if ($nv == 0) {
+	    if (pack("F", $nv) eq pack("F", 0)) {
+		# positive zero
+		return "0";
+	    } else {
+		# negative zero
+		return $self->maybe_parens("-.0", $cx, 21);
+	    }
+	} elsif (1/$nv == 0) {
+	    if ($nv > 0) {
+		# positive infinity
+		return $self->maybe_parens("9**9**9", $cx, 22);
+	    } else {
+		# negative infinity
+		return $self->maybe_parens("-9**9**9", $cx, 21);
+	    }
+	} elsif ($nv != $nv) {
+	    # NaN
+	    if (pack("F", $nv) eq pack("F", sin(9**9**9))) {
+		# the normal kind
+		return "sin(9**9**9)";
+	    } elsif (pack("F", $nv) eq pack("F", -sin(9**9**9))) {
+		# the inverted kind
+		return $self->maybe_parens("-sin(9**9**9)", $cx, 21);
+	    } else {
+		# some other kind
+		my $hex = unpack("h*", pack("F", $nv));
+		return qq'unpack("F", pack("h*", "$hex"))';
+	    }
+	}
+	# first, try the default stringification
+	my $str = "$nv";
+	if ($str != $nv) {
+	    # failing that, try using more precision
+	    $str = sprintf("%.${max_prec}g", $nv);
+#	    if (pack("F", $str) ne pack("F", $nv)) {
+	    if ($str != $nv) {
+		# not representable in decimal with whatever sprintf()
+		# and atof() Perl is using here.
+		my($mant, $exp) = split_float($nv);
+		return $self->maybe_parens("$mant * 2**$exp", $cx, 19);
+	    }
+	}
+	$str = $self->maybe_parens($str, $cx, 21) if $nv < 0;
+	return $str;
+    } elsif ($sv->FLAGS & SVf_ROK && $sv->can("RV")) {
+	my $ref = $sv->RV;
+	my $class = class($ref);
+	if ($class eq "AV") {
+	    return "[" . $self->list_const(2, $ref->ARRAY) . "]";
+	} elsif ($class eq "HV") {
+	    my %hash = $ref->ARRAY;
+	    my @elts;
+	    for my $k (sort keys %hash) {
+		push @elts, "$k => " . $self->const($hash{$k}, 6);
+	    }
+	    return "{" . join(", ", @elts) . "}";
+	} elsif ($class eq "CV") {
+	    BEGIN {
+		if ($] > 5.0150051) {
+		    require overloading;
+		    unimport overloading;
+		}
+	    }
+	    if ($] > 5.0150051 && $self->{curcv} &&
+		 $self->{curcv}->object_2svref == $ref->object_2svref) {
+		return $self->keyword("__SUB__");
+	    }
+	    return "sub " . $self->deparse_sub($ref);
+	}
+	if ($class ne 'SPECIAL' and $ref->FLAGS & SVs_SMG) {
+	    for (my $mg = $ref->MAGIC; $mg; $mg = $mg->MOREMAGIC) {
+		if ($mg->TYPE eq 'r') {
+		    my $re = re_uninterp(escape_re(re_unback($mg->precomp)));
+		    return single_delim("qr", "", $re, $self);
+		}
+	    }
+	}
+	
+	my $const = $self->const($ref, 20);
+	if ($self->{in_subst_repl} && $const =~ /^[0-9]/) {
+	    $const = "($const)";
+	}
+	return $self->maybe_parens("\\$const", $cx, 20);
+    } elsif ($sv->FLAGS & SVf_POK) {
+	my $str = $sv->PV;
+	if ($str =~ /[[:^print:]]/a) {
+	    return single_delim("qq", '"',
+				 uninterp(escape_str unback $str), $self);
+	} else {
+	    return single_delim("q", "'", unback($str), $self);
+	}
+    } else {
+	return "undef";
+    }
+}
+
+sub const_dumper {
+    my $self = shift;
+    my($sv, $cx) = @_;
+    my $ref = $sv->object_2svref();
+    my $dumper = Data::Dumper->new([$$ref], ['$v']);
+    $dumper->Purity(1)->Terse(1)->Deparse(1)->Indent(0)->Useqq(1)->Sortkeys(1);
+    my $str = $dumper->Dump();
+    if ($str =~ /^\$v/) {
+	return '${my ' . $str . ' \$v}';
+    } else {
+	return $str;
+    }
+}
+
+sub const_sv {
+    my $self = shift;
+    my $op = shift;
+    my $sv = $op->sv;
+    # the constant could be in the pad (under useithreads)
+    $sv = $self->padval($op->targ) unless $$sv;
+    return $sv;
+}
+
+sub meth_sv {
+    my $self = shift;
+    my $op = shift;
+    my $sv = $op->meth_sv;
+    # the constant could be in the pad (under useithreads)
+    $sv = $self->padval($op->targ) unless $$sv;
+    return $sv;
+}
+
+sub meth_rclass_sv {
+    my $self = shift;
+    my $op = shift;
+    my $sv = $op->rclass;
+    # the constant could be in the pad (under useithreads)
+    $sv = $self->padval($sv) unless ref $sv;
+    return $sv;
+}
+
+sub pp_const {
+    my $self = shift;
+    my($op, $cx) = @_;
+    if ($op->private & OPpCONST_ARYBASE) {
+        return '$[';
+    }
+#    if ($op->private & OPpCONST_BARE) { # trouble with '=>' autoquoting
+#	return $self->const_sv($op)->PV;
+#    }
+    my $sv = $self->const_sv($op);
+    return $self->const($sv, $cx);
+}
+
+sub dq {
+    my $self = shift;
+    my $op = shift;
+    my $type = $op->name;
+    if ($type eq "const") {
+	return '$[' if $op->private & OPpCONST_ARYBASE;
+	return uninterp(escape_str(unback($self->const_sv($op)->as_string)));
+    } elsif ($type eq "concat") {
+	my $first = $self->dq($op->first);
+	my $last  = $self->dq($op->last);
+
+	# Disambiguate "${foo}bar", "${foo}{bar}", "${foo}[1]", "$foo\::bar"
+	($last =~ /^[A-Z\\\^\[\]_?]/ &&
+	    $first =~ s/([\$@])\^$/${1}{^}/)  # "${^}W" etc
+	    || ($last =~ /^[:'{\[\w_]/ && #'
+		$first =~ s/([\$@])([A-Za-z_]\w*)$/${1}{$2}/);
+
+	return $first . $last;
+    } elsif ($type eq "uc") {
+	return '\U' . $self->dq($op->first->sibling) . '\E';
+    } elsif ($type eq "lc") {
+	return '\L' . $self->dq($op->first->sibling) . '\E';
+    } elsif ($type eq "ucfirst") {
+	return '\u' . $self->dq($op->first->sibling);
+    } elsif ($type eq "lcfirst") {
+	return '\l' . $self->dq($op->first->sibling);
+    } elsif ($type eq "quotemeta") {
+	return '\Q' . $self->dq($op->first->sibling) . '\E';
+    } elsif ($type eq "fc") {
+	return '\F' . $self->dq($op->first->sibling) . '\E';
+    } elsif ($type eq "join") {
+	return $self->deparse($op->last, 26); # was join($", @ary)
+    } else {
+	return $self->deparse($op, 26);
+    }
+}
+
+sub pp_backtick {
+    my $self = shift;
+    my($op, $cx) = @_;
+    # skip pushmark if it exists (readpipe() vs ``)
+    my $child = $op->first->sibling->isa('B::NULL')
+	? $op->first : $op->first->sibling;
+    if ($self->pure_string($child)) {
+	return single_delim("qx", '`', $self->dq($child, 1), $self);
+    }
+    unop($self, @_, "readpipe");
+}
+
+sub dquote {
+    my $self = shift;
+    my($op, $cx) = @_;
+    my $kid = $op->first->sibling; # skip ex-stringify, pushmark
+    return $self->deparse($kid, $cx) if $self->{'unquote'};
+    $self->maybe_targmy($kid, $cx,
+			sub {single_delim("qq", '"', $self->dq($_[1]),
+					   $self)});
+}
+
+# OP_STRINGIFY is a listop, but it only ever has one arg
+sub pp_stringify {
+    my ($self, $op, $cx) = @_;
+    my $kid = $op->first->sibling;
+    while ($kid->name eq 'null' && !null($kid->first)) {
+	$kid = $kid->first;
+    }
+    if ($kid->name =~ /^(?:const|padsv|rv2sv|av2arylen|gvsv|multideref
+			  |aelemfast(?:_lex)?|[ah]elem|join|concat)\z/x) {
+	maybe_targmy(@_, \&dquote);
+    }
+    else {
+	# Actually an optimised join.
+	my $result = listop(@_,"join");
+	$result =~ s/join([( ])/join$1$self->{'ex_const'}, /;
+	$result;
+    }
+}
+
+# tr/// and s/// (and tr[][], tr[]//, tr###, etc)
+# note that tr(from)/to/ is OK, but not tr/from/(to)
+sub double_delim {
+    my($from, $to) = @_;
+    my($succeed, $delim);
+    if ($from !~ m[/] and $to !~ m[/]) {
+	return "/$from/$to/";
+    } elsif (($succeed, $from) = balanced_delim($from) and $succeed) {
+	if (($succeed, $to) = balanced_delim($to) and $succeed) {
+	    return "$from$to";
+	} else {
+	    for $delim ('/', '"', '#') { # note no "'" -- s''' is special
+		return "$from$delim$to$delim" if index($to, $delim) == -1;
+	    }
+	    $to =~ s[/][\\/]g;
+	    return "$from/$to/";
+	}
+    } else {
+	for $delim ('/', '"', '#') { # note no '
+	    return "$delim$from$delim$to$delim"
+		if index($to . $from, $delim) == -1;
+	}
+	$from =~ s[/][\\/]g;
+	$to =~ s[/][\\/]g;
+	return "/$from/$to/";	
+    }
+}
+
+# Only used by tr///, so backslashes hyphens
+sub pchr { # ASCII
+    my($n) = @_;
+    if ($n == ord '\\') {
+	return '\\\\';
+    } elsif ($n == ord "-") {
+	return "\\-";
+    } elsif (utf8::native_to_unicode($n) >= utf8::native_to_unicode(ord(' '))
+             and utf8::native_to_unicode($n) <= utf8::native_to_unicode(ord('~')))
+    {
+        # I'm presuming a regex is not ok here, otherwise we could have used
+        # /[[:print:]]/a to get here
+	return chr($n);
+    } elsif ($n == ord "\a") {
+	return '\\a';
+    } elsif ($n == ord "\b") {
+	return '\\b';
+    } elsif ($n == ord "\t") {
+	return '\\t';
+    } elsif ($n == ord "\n") {
+	return '\\n';
+    } elsif ($n == ord "\e") {
+	return '\\e';
+    } elsif ($n == ord "\f") {
+	return '\\f';
+    } elsif ($n == ord "\r") {
+	return '\\r';
+    } elsif ($n >= ord("\cA") and $n <= ord("\cZ")) {
+	return '\\c' . unctrl{chr $n};
+    } else {
+#	return '\x' . sprintf("%02x", $n);
+	return '\\' . sprintf("%03o", $n);
+    }
+}
+
+sub collapse {
+    my(@chars) = @_;
+    my($str, $c, $tr) = ("");
+    for ($c = 0; $c < @chars; $c++) {
+	$tr = $chars[$c];
+	$str .= pchr($tr);
+	if ($c <= $#chars - 2 and $chars[$c + 1] == $tr + 1 and
+	    $chars[$c + 2] == $tr + 2)
+	{
+	    for (; $c <= $#chars-1 and $chars[$c + 1] == $chars[$c] + 1; $c++)
+	      {}
+	    $str .= "-";
+	    $str .= pchr($chars[$c]);
+	}
+    }
+    return $str;
+}
+
+sub tr_decode_byte {
+    my($table, $flags) = @_;
+    my(@table) = unpack("s*", $table);
+    splice @table, 0x100, 1;   # Number of subsequent elements
+    my($c, $tr, @from, @to, @delfrom, $delhyphen);
+    if ($table[ord "-"] != -1 and
+	$table[ord("-") - 1] == -1 || $table[ord("-") + 1] == -1)
+    {
+	$tr = $table[ord "-"];
+	$table[ord "-"] = -1;
+	if ($tr >= 0) {
+	    @from = ord("-");
+	    @to = $tr;
+	} else { # -2 ==> delete
+	    $delhyphen = 1;
+	}
+    }
+    for ($c = 0; $c < @table; $c++) {
+	$tr = $table[$c];
+	if ($tr >= 0) {
+	    push @from, $c; push @to, $tr;
+	} elsif ($tr == -2) {
+	    push @delfrom, $c;
+	}
+    }
+    @from = (@from, @delfrom);
+    if ($flags & OPpTRANS_COMPLEMENT) {
+	my @newfrom = ();
+	my %from;
+	@from{@from} = (1) x @from;
+	for ($c = 0; $c < 256; $c++) {
+	    push @newfrom, $c unless $from{$c};
+	}
+	@from = @newfrom;
+    }
+    unless ($flags & OPpTRANS_DELETE || !@to) {
+	pop @to while $#to and $to[$#to] == $to[$#to -1];
+    }
+    my($from, $to);
+    $from = collapse(@from);
+    $to = collapse(@to);
+    $from .= "-" if $delhyphen;
+    return ($from, $to);
+}
+
+sub tr_chr {
+    my $x = shift;
+    if ($x == ord "-") {
+	return "\\-";
+    } elsif ($x == ord "\\") {
+	return "\\\\";
+    } else {
+	return chr $x;
+    }
+}
+
+# XXX This doesn't yet handle all cases correctly either
+
+sub tr_decode_utf8 {
+    my($swash_hv, $flags) = @_;
+    my %swash = $swash_hv->ARRAY;
+    my $final = undef;
+    $final = $swash{'FINAL'}->IV if exists $swash{'FINAL'};
+    my $none = $swash{"NONE"}->IV;
+    my $extra = $none + 1;
+    my(@from, @delfrom, @to);
+    my $line;
+    foreach $line (split /\n/, $swash{'LIST'}->PV) {
+	my($min, $max, $result) = split(/\t/, $line);
+	$min = hex $min;
+	if (length $max) {
+	    $max = hex $max;
+	} else {
+	    $max = $min;
+	}
+	$result = hex $result;
+	if ($result == $extra) {
+	    push @delfrom, [$min, $max];
+	} else {
+	    push @from, [$min, $max];
+	    push @to, [$result, $result + $max - $min];
+	}
+    }
+    for my $i (0 .. $#from) {
+	if ($from[$i][0] == ord '-') {
+	    unshift @from, splice(@from, $i, 1);
+	    unshift @to, splice(@to, $i, 1);
+	    last;
+	} elsif ($from[$i][1] == ord '-') {
+	    $from[$i][1]--;
+	    $to[$i][1]--;
+	    unshift @from, ord '-';
+	    unshift @to, ord '-';
+	    last;
+	}
+    }
+    for my $i (0 .. $#delfrom) {
+	if ($delfrom[$i][0] == ord '-') {
+	    push @delfrom, splice(@delfrom, $i, 1);
+	    last;
+	} elsif ($delfrom[$i][1] == ord '-') {
+	    $delfrom[$i][1]--;
+	    push @delfrom, ord '-';
+	    last;
+	}
+    }
+    if (defined $final and $to[$#to][1] != $final) {
+	push @to, [$final, $final];
+    }
+    push @from, @delfrom;
+    if ($flags & OPpTRANS_COMPLEMENT) {
+	my @newfrom;
+	my $next = 0;
+	for my $i (0 .. $#from) {
+	    push @newfrom, [$next, $from[$i][0] - 1];
+	    $next = $from[$i][1] + 1;
+	}
+	@from = ();
+	for my $range (@newfrom) {
+	    if ($range->[0] <= $range->[1]) {
+		push @from, $range;
+	    }
+	}
+    }
+    my($from, $to, $diff);
+    for my $chunk (@from) {
+	$diff = $chunk->[1] - $chunk->[0];
+	if ($diff > 1) {
+	    $from .= tr_chr($chunk->[0]) . "-" . tr_chr($chunk->[1]);
+	} elsif ($diff == 1) {
+	    $from .= tr_chr($chunk->[0]) . tr_chr($chunk->[1]);
+	} else {
+	    $from .= tr_chr($chunk->[0]);
+	}
+    }
+    for my $chunk (@to) {
+	$diff = $chunk->[1] - $chunk->[0];
+	if ($diff > 1) {
+	    $to .= tr_chr($chunk->[0]) . "-" . tr_chr($chunk->[1]);
+	} elsif ($diff == 1) {
+	    $to .= tr_chr($chunk->[0]) . tr_chr($chunk->[1]);
+	} else {
+	    $to .= tr_chr($chunk->[0]);
+	}
+    }
+    #$final = sprintf("%04x", $final) if defined $final;
+    #$none = sprintf("%04x", $none) if defined $none;
+    #$extra = sprintf("%04x", $extra) if defined $extra;
+    #print STDERR "final: $final\n none: $none\nextra: $extra\n";
+    #print STDERR $swash{'LIST'}->PV;
+    return (escape_str($from), escape_str($to));
+}
+
+sub pp_trans {
+    my $self = shift;
+    my($op, $cx, $morflags) = @_;
+    my($from, $to);
+    my $class = class($op);
+    my $priv_flags = $op->private;
+    if ($class eq "PVOP") {
+	($from, $to) = tr_decode_byte($op->pv, $priv_flags);
+    } elsif ($class eq "PADOP") {
+	($from, $to)
+	  = tr_decode_utf8($self->padval($op->padix)->RV, $priv_flags);
+    } else { # class($op) eq "SVOP"
+	($from, $to) = tr_decode_utf8($op->sv->RV, $priv_flags);
+    }
+    my $flags = "";
+    $flags .= "c" if $priv_flags & OPpTRANS_COMPLEMENT;
+    $flags .= "d" if $priv_flags & OPpTRANS_DELETE;
+    $to = "" if $from eq $to and $flags eq "";
+    $flags .= "s" if $priv_flags & OPpTRANS_SQUASH;
+    $flags .= $morflags if defined $morflags;
+    my $ret = $self->keyword("tr") . double_delim($from, $to) . $flags;
+    if (my $targ = $op->targ) {
+	return $self->maybe_parens($self->padname($targ) . " =~ $ret",
+				   $cx, 20);
+    }
+    return $ret;
+}
+
+sub pp_transr { push @_, 'r'; goto &pp_trans }
+
+sub re_dq_disambiguate {
+    my ($first, $last) = @_;
+    # Disambiguate "${foo}bar", "${foo}{bar}", "${foo}[1]"
+    ($last =~ /^[A-Z\\\^\[\]_?]/ &&
+	$first =~ s/([\$@])\^$/${1}{^}/)  # "${^}W" etc
+	|| ($last =~ /^[{\[\w_]/ &&
+	    $first =~ s/([\$@])([A-Za-z_]\w*)$/${1}{$2}/);
+    return $first . $last;
+}
+
+# Like dq(), but different
+sub re_dq {
+    my $self = shift;
+    my ($op) = @_;
+
+    my $type = $op->name;
+    if ($type eq "const") {
+	return '$[' if $op->private & OPpCONST_ARYBASE;
+	my $unbacked = re_unback($self->const_sv($op)->as_string);
+	return re_uninterp(escape_re($unbacked));
+    } elsif ($type eq "concat") {
+	my $first = $self->re_dq($op->first);
+	my $last  = $self->re_dq($op->last);
+	return re_dq_disambiguate($first, $last);
+    } elsif ($type eq "uc") {
+	return '\U' . $self->re_dq($op->first->sibling) . '\E';
+    } elsif ($type eq "lc") {
+	return '\L' . $self->re_dq($op->first->sibling) . '\E';
+    } elsif ($type eq "ucfirst") {
+	return '\u' . $self->re_dq($op->first->sibling);
+    } elsif ($type eq "lcfirst") {
+	return '\l' . $self->re_dq($op->first->sibling);
+    } elsif ($type eq "quotemeta") {
+	return '\Q' . $self->re_dq($op->first->sibling) . '\E';
+    } elsif ($type eq "fc") {
+	return '\F' . $self->re_dq($op->first->sibling) . '\E';
+    } elsif ($type eq "join") {
+	return $self->deparse($op->last, 26); # was join($", @ary)
+    } else {
+	my $ret = $self->deparse($op, 26);
+	$ret =~ s/^\$([(|)])\z/\${$1}/ # $( $| $) need braces
+	or $ret =~ s/^\@([-+])\z/\@{$1}/; # @- @+ need braces
+	return $ret;
+    }
+}
+
+sub pure_string {
+    my ($self, $op) = @_;
+    return 0 if null $op;
+    my $type = $op->name;
+
+    if ($type eq 'const' || $type eq 'av2arylen') {
+	return 1;
+    }
+    elsif ($type =~ /^(?:[ul]c(first)?|fc)$/ || $type eq 'quotemeta') {
+	return $self->pure_string($op->first->sibling);
+    }
+    elsif ($type eq 'join') {
+	my $join_op = $op->first->sibling;  # Skip pushmark
+	return 0 unless $join_op->name eq 'null' && $join_op->targ == OP_RV2SV;
+
+	my $gvop = $join_op->first;
+	return 0 unless $gvop->name eq 'gvsv';
+        return 0 unless '"' eq $self->gv_name($self->gv_or_padgv($gvop));
+
+	return 0 unless ${$join_op->sibling} eq ${$op->last};
+	return 0 unless $op->last->name =~ /^(?:[ah]slice|(?:rv2|pad)av)$/;
+    }
+    elsif ($type eq 'concat') {
+	return $self->pure_string($op->first)
+            && $self->pure_string($op->last);
+    }
+    elsif (is_scalar($op) || $type =~ /^[ah]elem$/) {
+	return 1;
+    }
+    elsif ($type eq "null" and $op->can('first') and not null $op->first) {
+        my $first = $op->first;
+
+        return 1 if $first->name eq "multideref";
+        return 1 if $first->name eq "aelemfast_lex";
+
+        if (    $first->name eq "null"
+            and $first->can('first')
+	    and not null $first->first
+            and $first->first->name eq "aelemfast"
+	   )
+        {
+            return 1;
+        }
+    }
+
+    return 0;
+}
+
+sub code_list {
+    my ($self,$op,$cv) = @_;
+
+    # localise stuff relating to the current sub
+    $cv and
+	local($self->{'curcv'}) = $cv,
+	local($self->{'curcvlex'}),
+	local(@$self{qw'curstash warnings hints hinthash curcop'})
+	    = @$self{qw'curstash warnings hints hinthash curcop'};
+
+    my $re;
+    for ($op = $op->first->sibling; !null($op); $op = $op->sibling) {
+	if ($op->name eq 'null' and $op->flags & OPf_SPECIAL) {
+	    my $scope = $op->first;
+	    # 0 context (last arg to scopeop) means statement context, so
+	    # the contents of the block will not be wrapped in do{...}.
+	    my $block = scopeop($scope->first->name eq "enter", $self,
+				$scope, 0);
+	    # next op is the source code of the block
+	    $op = $op->sibling;
+	    $re .= ($self->const_sv($op)->PV =~ m|^(\(\?\??\{)|)[0];
+	    my $multiline = $block =~ /\n/;
+	    $re .= $multiline ? "\n\t" : ' ';
+	    $re .= $block;
+	    $re .= $multiline ? "\n\b})" : " })";
+	} else {
+	    $re = re_dq_disambiguate($re, $self->re_dq($op));
+	}
+    }
+    $re;
+}
+
+sub regcomp {
+    my $self = shift;
+    my($op, $cx) = @_;
+    my $kid = $op->first;
+    $kid = $kid->first if $kid->name eq "regcmaybe";
+    $kid = $kid->first if $kid->name eq "regcreset";
+    my $kname = $kid->name;
+    if ($kname eq "null" and !null($kid->first)
+	and $kid->first->name eq 'pushmark')
+    {
+	my $str = '';
+	$kid = $kid->first->sibling;
+	while (!null($kid)) {
+	    my $first = $str;
+	    my $last = $self->re_dq($kid);
+	    $str = re_dq_disambiguate($first, $last);
+	    $kid = $kid->sibling;
+	}
+	return $str, 1;
+    }
+
+    return ($self->re_dq($kid), 1)
+	if $kname =~ /^(?:rv2|pad)av/ or $self->pure_string($kid);
+    return ($self->deparse($kid, $cx), 0);
+}
+
+sub pp_regcomp {
+    my ($self, $op, $cx) = @_;
+    return (($self->regcomp($op, $cx, 0))[0]);
+}
+
+sub re_flags {
+    my ($self, $op) = @_;
+    my $flags = '';
+    my $pmflags = $op->pmflags;
+    if (!$pmflags) {
+	my $re = $op->pmregexp;
+	if ($$re) {
+	    $pmflags = $re->compflags;
+	}
+    }
+    $flags .= "g" if $pmflags & PMf_GLOBAL;
+    $flags .= "i" if $pmflags & PMf_FOLD;
+    $flags .= "m" if $pmflags & PMf_MULTILINE;
+    $flags .= "o" if $pmflags & PMf_KEEP;
+    $flags .= "s" if $pmflags & PMf_SINGLELINE;
+    $flags .= "x" if $pmflags & PMf_EXTENDED;
+    $flags .= "x" if $pmflags & PMf_EXTENDED_MORE;
+    $flags .= "p" if $pmflags & PMf_KEEPCOPY;
+    $flags .= "n" if $pmflags & PMf_NOCAPTURE;
+    if (my $charset = $pmflags & PMf_CHARSET) {
+	# Hardcoding this is fragile, but B does not yet export the
+	# constants we need.
+	$flags .= qw(d l u a aa)[$charset >> 7]
+    }
+    # The /d flag is indicated by 0; only show it if necessary.
+    elsif ($self->{hinthash} and
+	     $self->{hinthash}{reflags_charset}
+	    || $self->{hinthash}{feature_unicode}
+	or $self->{hints} & $feature::hint_mask
+	  && ($self->{hints} & $feature::hint_mask)
+	       != $feature::hint_mask
+	  && $self->{hints} & $feature::hint_uni8bit
+    ) {
+	$flags .= 'd';
+    }
+    $flags;
+}
+
+# osmic acid -- see osmium tetroxide
+
+my %matchwords;
+map($matchwords{join "", sort split //, $_} = $_, 'cig', 'cog', 'cos', 'cogs',
+    'cox', 'go', 'is', 'ism', 'iso', 'mig', 'mix', 'osmic', 'ox', 'sic',
+    'sig', 'six', 'smog', 'so', 'soc', 'sog', 'xi', 'soup', 'soupmix');
+
+# When deparsing a regular expression with code blocks, we have to look in
+# various places to find the blocks.
+#
+# For qr/(?{...})/ without interpolation, the CV is under $qr->qr_anoncv
+# and the code list (list of blocks and constants, maybe vars) is under
+# $cv->ROOT->first->code_list:
+#   ./perl -Ilib -MB -e 'use O "Concise", B::svref_2object(sub {qr/(?{die})/})->ROOT->first->first->sibling->pmregexp->qr_anoncv->object_2svref'
+#
+# For qr/$a(?{...})/ with interpolation, the code list is more accessible,
+# under $pmop->code_list, but the $cv is something you have to dig for in
+# the regcomp op’s kids:
+#   ./perl -Ilib -mO=Concise -e 'qr/$a(?{die})/'
+#
+# For m// and split //, things are much simpler.  There is no CV.  The code
+# list is under $pmop->code_list.
+
+sub matchop {
+    my $self = shift;
+    my($op, $cx, $name, $delim) = @_;
+    my $kid = $op->first;
+    my ($binop, $var, $re) = ("", "", "");
+    if ($op->flags & OPf_STACKED) {
+	$binop = 1;
+	$var = $self->deparse($kid, 20);
+	$kid = $kid->sibling;
+    }
+           # not $name; $name will be 'm' for both match and split
+    elsif ($op->name eq 'match' and my $targ = $op->targ) {
+	$binop = 1;
+	$var = $self->padname($targ);
+    }
+    my $quote = 1;
+    my $pmflags = $op->pmflags;
+    my $rhs_bound_to_defsv;
+    my ($cv, $bregexp);
+    my $have_kid = !null $kid;
+    # Check for code blocks first
+    if (not null my $code_list = $op->code_list) {
+	$re = $self->code_list($code_list,
+			       $op->name eq 'qr'
+				   ? $self->padval(
+				         $kid->first   # ex-list
+					     ->first   #   pushmark
+					     ->sibling #   entersub
+					     ->first   #     ex-list
+					     ->first   #       pushmark
+					     ->sibling #       srefgen
+					     ->first   #         ex-list
+					     ->first   #           anoncode
+					     ->targ
+				     )
+				   : undef);
+    } elsif (${$bregexp = $op->pmregexp} && ${$cv = $bregexp->qr_anoncv}) {
+	my $patop = $cv->ROOT      # leavesub
+		       ->first     #   qr
+		       ->code_list;#     list
+	$re = $self->code_list($patop, $cv);
+    } elsif (!$have_kid) {
+	$re = re_uninterp(escape_re(re_unback($op->precomp)));
+    } elsif ($kid->name ne 'regcomp') {
+	carp("found ".$kid->name." where regcomp expected");
+    } else {
+	($re, $quote) = $self->regcomp($kid, 21);
+    }
+    if ($have_kid and $kid->name eq 'regcomp') {
+	my $matchop = $kid->first;
+	if ($matchop->name eq 'regcreset') {
+	    $matchop = $matchop->first;
+	}
+	if ($matchop->name =~ /^(?:match|transr?|subst)\z/
+	   && $matchop->flags & OPf_SPECIAL) {
+	    $rhs_bound_to_defsv = 1;
+	}
+    }
+    my $flags = "";
+    $flags .= "c" if $pmflags & PMf_CONTINUE;
+    $flags .= $self->re_flags($op);
+    $flags = join '', sort split //, $flags;
+    $flags = $matchwords{$flags} if $matchwords{$flags};
+    if ($pmflags & PMf_ONCE) { # only one kind of delimiter works here
+	$re =~ s/\?/\\?/g;
+	$re = $self->keyword("m") . "?$re?";     # explicit 'm' is required
+    } elsif ($quote) {
+	$re = single_delim($name, $delim, $re, $self);
+    }
+    $re = $re . $flags if $quote;
+    if ($binop) {
+	return
+	 $self->maybe_parens(
+	  $rhs_bound_to_defsv
+	   ? "$var =~ (\$_ =~ $re)"
+	   : "$var =~ $re",
+	  $cx, 20
+	 );
+    } else {
+	return $re;
+    }
+}
+
+sub pp_match { matchop(@_, "m", "/") }
+sub pp_pushre { matchop(@_, "m", "/") }
+sub pp_qr { matchop(@_, "qr", "") }
+
+sub pp_runcv { unop(@_, "__SUB__"); }
+
+sub pp_split {
+    maybe_targmy(@_, \&split);
+}
+sub split {
+    my $self = shift;
+    my($op, $cx) = @_;
+    my($kid, @exprs, $ary, $expr);
+    $kid = $op->first;
+
+    # For our kid (an OP_PUSHRE), pmreplroot is never actually the
+    # root of a replacement; it's either empty, or abused to point to
+    # the GV for an array we split into (an optimization to save
+    # assignment overhead). Depending on whether we're using ithreads,
+    # this OP* holds either a GV* or a PADOFFSET. Luckily, B.xs
+    # figures out for us which it is.
+    my $replroot = $kid->pmreplroot;
+    my $gv = 0;
+    my $stacked = $op->flags & OPf_STACKED;
+    if (ref($replroot) eq "B::GV") {
+	$gv = $replroot;
+    } elsif (!ref($replroot) and $replroot > 0) {
+	$gv = $self->padval($replroot);
+    } elsif ($kid->targ) {
+	$ary = $self->padname($kid->targ)
+    } elsif ($stacked) {
+	$ary = $self->deparse($op->last, 7);
+    }
+    $ary = $self->maybe_local(@_,
+			      $self->stash_variable('@',
+						     $self->gv_name($gv),
+						     $cx))
+	if $gv;
+
+    # Skip the last kid when OPf_STACKED is set, since it is the array
+    # on the left.
+    for (; !null($stacked ? $kid->sibling : $kid); $kid = $kid->sibling) {
+	push @exprs, $self->deparse($kid, 6);
+    }
+
+    # handle special case of split(), and split(' ') that compiles to /\s+/
+    # Under 5.10, the reflags may be undef if the split regexp isn't a constant
+    # Under 5.17.5-5.17.9, the special flag is on split itself.
+    $kid = $op->first;
+    if ( $op->flags & OPf_SPECIAL
+         or (
+            $kid->flags & OPf_SPECIAL
+            and ( $] < 5.009 ? $kid->pmflags & PMf_SKIPWHITE()
+                             : ($kid->reflags || 0) & RXf_SKIPWHITE()
+            )
+         )
+    ) {
+	$exprs[0] = "' '";
+    }
+
+    $expr = "split(" . join(", ", @exprs) . ")";
+    if ($ary) {
+	return $self->maybe_parens("$ary = $expr", $cx, 7);
+    } else {
+	return $expr;
+    }
+}
+
+# oxime -- any of various compounds obtained chiefly by the action of
+# hydroxylamine on aldehydes and ketones and characterized by the
+# bivalent grouping C=NOH [Webster's Tenth]
+
+my %substwords;
+map($substwords{join "", sort split //, $_} = $_, 'ego', 'egoism', 'em',
+    'es', 'ex', 'exes', 'gee', 'go', 'goes', 'ie', 'ism', 'iso', 'me',
+    'meese', 'meso', 'mig', 'mix', 'os', 'ox', 'oxime', 'see', 'seem',
+    'seg', 'sex', 'sig', 'six', 'smog', 'sog', 'some', 'xi', 'rogue',
+    'sir', 'rise', 'smore', 'more', 'seer', 'rome', 'gore', 'grim', 'grime',
+    'or', 'rose', 'rosie');
+
+sub pp_subst {
+    my $self = shift;
+    my($op, $cx) = @_;
+    my $kid = $op->first;
+    my($binop, $var, $re, $repl) = ("", "", "", "");
+    if ($op->flags & OPf_STACKED) {
+	$binop = 1;
+	$var = $self->deparse($kid, 20);
+	$kid = $kid->sibling;
+    }
+    elsif (my $targ = $op->targ) {
+	$binop = 1;
+	$var = $self->padname($targ);
+    }
+    my $flags = "";
+    my $pmflags = $op->pmflags;
+    if (null($op->pmreplroot)) {
+	$repl = $kid;
+	$kid = $kid->sibling;
+    } else {
+	$repl = $op->pmreplroot->first; # skip substcont
+    }
+    while ($repl->name eq "entereval") {
+	    $repl = $repl->first;
+	    $flags .= "e";
+    }
+    {
+	local $self->{in_subst_repl} = 1;
+	if ($pmflags & PMf_EVAL) {
+	    $repl = $self->deparse($repl->first, 0);
+	} else {
+	    $repl = $self->dq($repl);	
+	}
+    }
+    if (not null my $code_list = $op->code_list) {
+	$re = $self->code_list($code_list);
+    } elsif (null $kid) {
+	$re = re_uninterp(escape_re(re_unback($op->precomp)));
+    } else {
+	($re) = $self->regcomp($kid, 1);
+    }
+    $flags .= "r" if $pmflags & PMf_NONDESTRUCT;
+    $flags .= "e" if $pmflags & PMf_EVAL;
+    $flags .= $self->re_flags($op);
+    $flags = join '', sort split //, $flags;
+    $flags = $substwords{$flags} if $substwords{$flags};
+    my $core_s = $self->keyword("s"); # maybe CORE::s
+    if ($binop) {
+	return $self->maybe_parens("$var =~ $core_s"
+				   . double_delim($re, $repl) . $flags,
+				   $cx, 20);
+    } else {
+	return "$core_s". double_delim($re, $repl) . $flags;	
+    }
+}
+
+sub is_lexical_subs {
+    my (@ops) = shift;
+    for my $op (@ops) {
+        return 0 if $op->name !~ /\A(?:introcv|clonecv)\z/;
+    }
+    return 1;
+}
+
+# Pretend these two ops do not exist.  The perl parser adds them to the
+# beginning of any block containing my-sub declarations, whereas we handle
+# the subs in pad_subs and next_todo.
+*pp_clonecv = *pp_introcv;
+sub pp_introcv {
+    my $self = shift;
+    my($op, $cx) = @_;
+    # For now, deparsing doesn't worry about the distinction between introcv
+    # and clonecv, so pretend this op doesn't exist:
+    return '';
+}
+
+sub pp_padcv {
+    my $self = shift;
+    my($op, $cx) = @_;
+    return $self->padany($op);
+}
+
+my %lvref_funnies = (
+    OPpLVREF_SV, => '$',
+    OPpLVREF_AV, => '@',
+    OPpLVREF_HV, => '%',
+    OPpLVREF_CV, => '&',
+);
+
+sub pp_refassign {
+    my ($self, $op, $cx) = @_;
+    my $left;
+    if ($op->private & OPpLVREF_ELEM) {
+	$left = $op->first->sibling;
+	$left = maybe_local(@_, elem($self, $left, undef,
+				     $left->targ == OP_AELEM
+					? qw([ ] padav)
+					: qw({ } padhv)));
+    } elsif ($op->flags & OPf_STACKED) {
+	$left = maybe_local(@_,
+			    $lvref_funnies{$op->private & OPpLVREF_TYPE}
+			  . $self->deparse($op->first->sibling));
+    } else {
+	$left = &pp_padsv;
+    }
+    my $right = $self->deparse_binop_right($op, $op->first, 7);
+    return $self->maybe_parens("\\$left = $right", $cx, 7);
+}
+
+sub pp_lvref {
+    my ($self, $op, $cx) = @_;
+    my $code;
+    if ($op->private & OPpLVREF_ELEM) {
+	$code = $op->first->name =~ /av\z/ ? &pp_aelem : &pp_helem;
+    } elsif ($op->flags & OPf_STACKED) {
+	$code = maybe_local(@_,
+			    $lvref_funnies{$op->private & OPpLVREF_TYPE}
+			  . $self->deparse($op->first));
+    } else {
+	$code = &pp_padsv;
+    }
+    "\\$code";
+}
+
+sub pp_lvrefslice {
+    my ($self, $op, $cx) = @_;
+    '\\' . ($op->last->name =~ /av\z/ ? &pp_aslice : &pp_hslice);
+}
+
+sub pp_lvavref {
+    my ($self, $op, $cx) = @_;
+    '\\(' . ($op->flags & OPf_STACKED
+		? maybe_local(@_, rv2x(@_, "\@"))
+		: &pp_padsv)  . ')'
+}
+
+1;
+__END__
+
+=head1 NAME
+
+B::Deparse - Perl compiler backend to produce perl code
+
+=head1 SYNOPSIS
+
+B<perl> B<-MO=Deparse>[B<,-d>][B<,-f>I<FILE>][B<,-p>][B<,-q>][B<,-l>]
+        [B<,-s>I<LETTERS>][B<,-x>I<LEVEL>] I<prog.pl>
+
+=head1 DESCRIPTION
+
+B::Deparse is a backend module for the Perl compiler that generates
+perl source code, based on the internal compiled structure that perl
+itself creates after parsing a program.  The output of B::Deparse won't
+be exactly the same as the original source, since perl doesn't keep
+track of comments or whitespace, and there isn't a one-to-one
+correspondence between perl's syntactical constructions and their
+compiled form, but it will often be close.  When you use the B<-p>
+option, the output also includes parentheses even when they are not
+required by precedence, which can make it easy to see if perl is
+parsing your expressions the way you intended.
+
+While B::Deparse goes to some lengths to try to figure out what your
+original program was doing, some parts of the language can still trip
+it up; it still fails even on some parts of Perl's own test suite.  If
+you encounter a failure other than the most common ones described in
+the BUGS section below, you can help contribute to B::Deparse's
+ongoing development by submitting a bug report with a small
+example.
+
+=head1 OPTIONS
+
+As with all compiler backend options, these must follow directly after
+the '-MO=Deparse', separated by a comma but not any white space.
+
+=over 4
+
+=item B<-d>
+
+Output data values (when they appear as constants) using Data::Dumper.
+Without this option, B::Deparse will use some simple routines of its
+own for the same purpose.  Currently, Data::Dumper is better for some
+kinds of data (such as complex structures with sharing and
+self-reference) while the built-in routines are better for others
+(such as odd floating-point values).
+
+=item B<-f>I<FILE>
+
+Normally, B::Deparse deparses the main code of a program, and all the subs
+defined in the same file.  To include subs defined in
+other files, pass the B<-f> option with the filename.
+You can pass the B<-f> option several times, to
+include more than one secondary file.  (Most of the time you don't want to
+use it at all.)  You can also use this option to include subs which are
+defined in the scope of a B<#line> directive with two parameters.
+
+=item B<-l>
+
+Add '#line' declarations to the output based on the line and file
+locations of the original code.
+
+=item B<-p>
+
+Print extra parentheses.  Without this option, B::Deparse includes
+parentheses in its output only when they are needed, based on the
+structure of your program.  With B<-p>, it uses parentheses (almost)
+whenever they would be legal.  This can be useful if you are used to
+LISP, or if you want to see how perl parses your input.  If you say
+
+    if ($var & 0x7f == 65) {print "Gimme an A!"}
+    print ($which ? $a : $b), "\n";
+    $name = $ENV{USER} or "Bob";
+
+C<B::Deparse,-p> will print
+
+    if (($var & 0)) {
+        print('Gimme an A!')
+    };
+    (print(($which ? $a : $b)), '???');
+    (($name = $ENV{'USER'}) or '???')
+
+which probably isn't what you intended (the C<'???'> is a sign that
+perl optimized away a constant value).
+
+=item B<-P>
+
+Disable prototype checking.  With this option, all function calls are
+deparsed as if no prototype was defined for them.  In other words,
+
+    perl -MO=Deparse,-P -e 'sub foo (\@) { 1 } foo @x'
+
+will print
+
+    sub foo (\@) {
+	1;
+    }
+    &foo(\@x);
+
+making clear how the parameters are actually passed to C<foo>.
+
+=item B<-q>
+
+Expand double-quoted strings into the corresponding combinations of
+concatenation, uc, ucfirst, lc, lcfirst, quotemeta, and join.  For
+instance, print
+
+    print "Hello, $world, @ladies, \u$gentlemen\E, \u\L$me!";
+
+as
+
+    print 'Hello, ' . $world . ', ' . join($", @ladies) . ', '
+          . ucfirst($gentlemen) . ', ' . ucfirst(lc $me . '!');
+
+Note that the expanded form represents the way perl handles such
+constructions internally -- this option actually turns off the reverse
+translation that B::Deparse usually does.  On the other hand, note that
+C<$x = "$y"> is not the same as C<$x = $y>: the former makes the value
+of $y into a string before doing the assignment.
+
+=item B<-s>I<LETTERS>
+
+Tweak the style of B::Deparse's output.  The letters should follow
+directly after the 's', with no space or punctuation.  The following
+options are available:
+
+=over 4
+
+=item B<C>
+
+Cuddle C<elsif>, C<else>, and C<continue> blocks.  For example, print
+
+    if (...) {
+         ...
+    } else {
+         ...
+    }
+
+instead of
+
+    if (...) {
+         ...
+    }
+    else {
+         ...
+    }
+
+The default is not to cuddle.
+
+=item B<i>I<NUMBER>
+
+Indent lines by multiples of I<NUMBER> columns.  The default is 4 columns.
+
+=item B<T>
+
+Use tabs for each 8 columns of indent.  The default is to use only spaces.
+For instance, if the style options are B<-si4T>, a line that's indented
+3 times will be preceded by one tab and four spaces; if the options were
+B<-si8T>, the same line would be preceded by three tabs.
+
+=item B<v>I<STRING>B<.>
+
+Print I<STRING> for the value of a constant that can't be determined
+because it was optimized away (mnemonic: this happens when a constant
+is used in B<v>oid context).  The end of the string is marked by a period.
+The string should be a valid perl expression, generally a constant.
+Note that unless it's a number, it probably needs to be quoted, and on
+a command line quotes need to be protected from the shell.  Some
+conventional values include 0, 1, 42, '', 'foo', and
+'Useless use of constant omitted' (which may need to be
+B<-sv"'Useless use of constant omitted'.">
+or something similar depending on your shell).  The default is '???'.
+If you're using B::Deparse on a module or other file that's require'd,
+you shouldn't use a value that evaluates to false, since the customary
+true constant at the end of a module will be in void context when the
+file is compiled as a main program.
+
+=back
+
+=item B<-x>I<LEVEL>
+
+Expand conventional syntax constructions into equivalent ones that expose
+their internal operation.  I<LEVEL> should be a digit, with higher values
+meaning more expansion.  As with B<-q>, this actually involves turning off
+special cases in B::Deparse's normal operations.
+
+If I<LEVEL> is at least 3, C<for> loops will be translated into equivalent
+while loops with continue blocks; for instance
+
+    for ($i = 0; $i < 10; ++$i) {
+        print $i;
+    }
+
+turns into
+
+    $i = 0;
+    while ($i < 10) {
+        print $i;
+    } continue {
+        ++$i
+    }
+
+Note that in a few cases this translation can't be perfectly carried back
+into the source code -- if the loop's initializer declares a my variable,
+for instance, it won't have the correct scope outside of the loop.
+
+If I<LEVEL> is at least 5, C<use> declarations will be translated into
+C<BEGIN> blocks containing calls to C<require> and C<import>; for
+instance,
+
+    use strict 'refs';
+
+turns into
+
+    sub BEGIN {
+        require strict;
+        do {
+            'strict'->import('refs')
+        };
+    }
+
+If I<LEVEL> is at least 7, C<if> statements will be translated into
+equivalent expressions using C<&&>, C<?:> and C<do {}>; for instance
+
+    print 'hi' if $nice;
+    if ($nice) {
+        print 'hi';
+    }
+    if ($nice) {
+        print 'hi';
+    } else {
+        print 'bye';
+    }
+
+turns into
+
+    $nice and print 'hi';
+    $nice and do { print 'hi' };
+    $nice ? do { print 'hi' } : do { print 'bye' };
+
+Long sequences of elsifs will turn into nested ternary operators, which
+B::Deparse doesn't know how to indent nicely.
+
+=back
+
+=head1 USING B::Deparse AS A MODULE
+
+=head2 Synopsis
+
+    use B::Deparse;
+    $deparse = B::Deparse->new("-p", "-sC");
+    $body = $deparse->coderef2text(\&func);
+    eval "sub func $body"; # the inverse operation
+
+=head2 Description
+
+B::Deparse can also be used on a sub-by-sub basis from other perl
+programs.
+
+=head2 new
+
+    $deparse = B::Deparse->new(OPTIONS)
+
+Create an object to store the state of a deparsing operation and any
+options.  The options are the same as those that can be given on the
+command line (see L</OPTIONS>); options that are separated by commas
+after B<-MO=Deparse> should be given as separate strings.
+
+=head2 ambient_pragmas
+
+    $deparse->ambient_pragmas(strict => 'all', '$[' => $[);
+
+The compilation of a subroutine can be affected by a few compiler
+directives, B<pragmas>.  These are:
+
+=over 4
+
+=item *
+
+use strict;
+
+=item *
+
+use warnings;
+
+=item *
+
+Assigning to the special variable $[
+
+=item *
+
+use integer;
+
+=item *
+
+use bytes;
+
+=item *
+
+use utf8;
+
+=item *
+
+use re;
+
+=back
+
+Ordinarily, if you use B::Deparse on a subroutine which has
+been compiled in the presence of one or more of these pragmas,
+the output will include statements to turn on the appropriate
+directives.  So if you then compile the code returned by coderef2text,
+it will behave the same way as the subroutine which you deparsed.
+
+However, you may know that you intend to use the results in a
+particular context, where some pragmas are already in scope.  In
+this case, you use the B<ambient_pragmas> method to describe the
+assumptions you wish to make.
+
+Not all of the options currently have any useful effect.  See
+L</BUGS> for more details.
+
+The parameters it accepts are:
+
+=over 4
+
+=item strict
+
+Takes a string, possibly containing several values separated
+by whitespace.  The special values "all" and "none" mean what you'd
+expect.
+
+    $deparse->ambient_pragmas(strict => 'subs refs');
+
+=item $[
+
+Takes a number, the value of the array base $[.
+Cannot be non-zero on Perl 5.15.3 or later.
+
+=item bytes
+
+=item utf8
+
+=item integer
+
+If the value is true, then the appropriate pragma is assumed to
+be in the ambient scope, otherwise not.
+
+=item re
+
+Takes a string, possibly containing a whitespace-separated list of
+values.  The values "all" and "none" are special.  It's also permissible
+to pass an array reference here.
+
+    $deparser->ambient_pragmas(re => 'eval');
+
+
+=item warnings
+
+Takes a string, possibly containing a whitespace-separated list of
+values.  The values "all" and "none" are special, again.  It's also
+permissible to pass an array reference here.
+
+    $deparser->ambient_pragmas(warnings => [qw[void io]]);
+
+If one of the values is the string "FATAL", then all the warnings
+in that list will be considered fatal, just as with the B<warnings>
+pragma itself.  Should you need to specify that some warnings are
+fatal, and others are merely enabled, you can pass the B<warnings>
+parameter twice:
+
+    $deparser->ambient_pragmas(
+	warnings => 'all',
+	warnings => [FATAL => qw/void io/],
+    );
+
+See L<warnings> for more information about lexical warnings.
+
+=item hint_bits
+
+=item warning_bits
+
+These two parameters are used to specify the ambient pragmas in
+the format used by the special variables $^H and ${^WARNING_BITS}.
+
+They exist principally so that you can write code like:
+
+    { my ($hint_bits, $warning_bits);
+    BEGIN {($hint_bits, $warning_bits) = ($^H, ${^WARNING_BITS})}
+    $deparser->ambient_pragmas (
+	hint_bits    => $hint_bits,
+	warning_bits => $warning_bits,
+	'$['         => 0 + $[
+    ); }
+
+which specifies that the ambient pragmas are exactly those which
+are in scope at the point of calling.
+
+=item %^H
+
+This parameter is used to specify the ambient pragmas which are
+stored in the special hash %^H.
+
+=back
+
+=head2 coderef2text
+
+    $body = $deparse->coderef2text(\&func)
+    $body = $deparse->coderef2text(sub ($$) { ... })
+
+Return source code for the body of a subroutine (a block, optionally
+preceded by a prototype in parens), given a reference to the
+sub.  Because a subroutine can have no names, or more than one name,
+this method doesn't return a complete subroutine definition -- if you
+want to eval the result, you should prepend "sub subname ", or "sub "
+for an anonymous function constructor.  Unless the sub was defined in
+the main:: package, the code will include a package declaration.
+
+=head1 BUGS
+
+=over 4
+
+=item *
+
+In Perl 5.20 and earlier, the only pragmas to
+be completely supported are: C<use warnings>,
+C<use strict>, C<use bytes>, C<use integer>
+and C<use feature>.  (C<$[>, which
+behaves like a pragma, is also supported.)
+
+Excepting those listed above, we're currently unable to guarantee that
+B::Deparse will produce a pragma at the correct point in the program.
+(Specifically, pragmas at the beginning of a block often appear right
+before the start of the block instead.)
+Since the effects of pragmas are often lexically scoped, this can mean
+that the pragma holds sway over a different portion of the program
+than in the input file.
+
+=item *
+
+In fact, the above is a specific instance of a more general problem:
+we can't guarantee to produce BEGIN blocks or C<use> declarations in
+exactly the right place.  So if you use a module which affects compilation
+(such as by over-riding keywords, overloading constants or whatever)
+then the output code might not work as intended.
+
+This is the most serious problem in Perl 5.20 and earlier.  Fixing this
+required internal changes in Perl 5.22.
+
+=item *
+
+Some constants don't print correctly either with or without B<-d>.
+For instance, neither B::Deparse nor Data::Dumper know how to print
+dual-valued scalars correctly, as in:
+
+    use constant E2BIG => ($!=7); $y = E2BIG; print $y, 0+$y;
+
+    use constant H => { "#" => 1 }; H->{"#"};
+
+=item *
+
+An input file that uses source filtering probably won't be deparsed into
+runnable code, because it will still include the B<use> declaration
+for the source filtering module, even though the code that is
+produced is already ordinary Perl which shouldn't be filtered again.
+
+=item *
+
+Optimized-away statements are rendered as
+'???'.  This includes statements that
+have a compile-time side-effect, such as the obscure
+
+    my $x if 0;
+
+which is not, consequently, deparsed correctly.
+
+    foreach my $i (@_) { 0 }
+  =>
+    foreach my $i (@_) { '???' }
+
+=item *
+
+Lexical (my) variables declared in scopes external to a subroutine
+appear in code2ref output text as package variables.  This is a tricky
+problem, as perl has no native facility for referring to a lexical variable
+defined within a different scope, although L<PadWalker> is a good start.
+
+See also L<Data::Dump::Streamer>, which combines B::Deparse and
+L<PadWalker> to serialize closures properly.
+
+=item *
+
+There are probably many more bugs on non-ASCII platforms (EBCDIC).
+
+=item *
+
+Prior to Perl 5.22, lexical C<my> subroutines were not deparsed properly.
+They were emitted as pure declarations, sometimes in the wrong place.
+Lexical C<state> subroutines were not deparsed at all.
+
+=back
+
+=head1 AUTHOR
+
+Stephen McCamant <smcc@CSUA.Berkeley.EDU>, based on an earlier version
+by Malcolm Beattie <mbeattie@sable.ox.ac.uk>, with contributions from
+Gisle Aas, James Duncan, Albert Dvornik, Robin Houston, Dave Mitchell,
+Hugo van der Sanden, Gurusamy Sarathy, Nick Ing-Simmons, and Rafael
+Garcia-Suarez.
+
+=cut
diff --git a/lib/5.24.1/B/Op_private.pm b/lib/5.24.1/B/Op_private.pm
new file mode 100644
index 00000000..c6c8906c
--- /dev/null
+++ b/lib/5.24.1/B/Op_private.pm
@@ -0,0 +1,835 @@
+# -*- buffer-read-only: t -*-
+#
+#    lib/B/Op_private.pm
+#
+#    Copyright (C) 2014 by Larry Wall and others
+#
+#    You may distribute under the terms of either the GNU General Public
+#    License or the Artistic License, as specified in the README file.
+#
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is built by regen/opcode.pl from data in
+# regen/op_private and pod embedded in regen/opcode.pl.
+# Any changes made here will be lost!
+
+=head1 NAME
+
+B::Op_private -  OP op_private flag definitions
+
+=head1 SYNOPSIS
+
+    use B::Op_private;
+
+    # flag details for bit 7 of OP_AELEM's op_private:
+    my $name  = $B::Op_private::bits{aelem}{7}; # OPpLVAL_INTRO
+    my $value = $B::Op_private::defines{$name}; # 128
+    my $label = $B::Op_private::labels{$name};  # LVINTRO
+
+    # the bit field at bits 5..6 of OP_AELEM's op_private:
+    my $bf  = $B::Op_private::bits{aelem}{6};
+    my $mask = $bf->{bitmask}; # etc
+
+=head1 DESCRIPTION
+
+This module provides four global hashes:
+
+    %B::Op_private::bits
+    %B::Op_private::defines
+    %B::Op_private::labels
+    %B::Op_private::ops_using
+
+which contain information about the per-op meanings of the bits in the
+op_private field.
+
+=head2 C<%bits>
+
+This is indexed by op name and then bit number (0..7). For single bit flags,
+it returns the name of the define (if any) for that bit:
+
+   $B::Op_private::bits{aelem}{7} eq 'OPpLVAL_INTRO';
+
+For bit fields, it returns a hash ref containing details about the field.
+The same reference will be returned for all bit positions that make
+up the bit field; so for example these both return the same hash ref:
+
+    $bitfield = $B::Op_private::bits{aelem}{5};
+    $bitfield = $B::Op_private::bits{aelem}{6};
+
+The general format of this hash ref is
+
+    {
+        # The bit range and mask; these are always present.
+        bitmin        => 5,
+        bitmax        => 6,
+        bitmask       => 0x60,
+
+        # (The remaining keys are optional)
+
+        # The names of any defines that were requested:
+        mask_def      => 'OPpFOO_MASK',
+        baseshift_def => 'OPpFOO_SHIFT',
+        bitcount_def  => 'OPpFOO_BITS',
+
+        # If present, Concise etc will display the value with a 'FOO='
+        # prefix. If it equals '-', then Concise will treat the bit
+        # field as raw bits and not try to interpret it.
+        label         => 'FOO',
+
+        # If present, specifies the names of some defines and the
+        # display labels that are used to assign meaning to particu-
+        # lar integer values within the bit field; e.g. 3 is dis-
+        # played as 'C'.
+        enum          => [ qw(
+                             1   OPpFOO_A  A
+                             2   OPpFOO_B  B
+                             3   OPpFOO_C  C
+                         )],
+
+    };
+
+
+=head2 C<%defines>
+
+This gives the value of every C<OPp> define, e.g.
+
+    $B::Op_private::defines{OPpLVAL_INTRO} == 128;
+
+=head2 C<%labels>
+
+This gives the short display label for each define, as used by C<B::Concise>
+and C<perl -Dx>, e.g.
+
+    $B::Op_private::labels{OPpLVAL_INTRO} eq 'LVINTRO';
+
+If the label equals '-', then Concise will treat the bit as a raw bit and
+not try to display it symbolically.
+
+=head2 C<%ops_using>
+
+For each define, this gives a reference to an array of op names that use
+the flag.
+
+    @ops_using_lvintro = @{ $B::Op_private::ops_using{OPp_LVAL_INTRO} };
+
+=cut
+
+package B::Op_private;
+
+our %bits;
+
+
+our $VERSION = "5.024001";
+
+$bits{$_}{3} = 'OPpENTERSUB_AMPER' for qw(entersub rv2cv);
+$bits{$_}{6} = 'OPpENTERSUB_DB' for qw(entersub rv2cv);
+$bits{$_}{2} = 'OPpENTERSUB_HASTARG' for qw(entersub rv2cv);
+$bits{$_}{6} = 'OPpFLIP_LINENUM' for qw(flip flop);
+$bits{$_}{1} = 'OPpFT_ACCESS' for qw(fteexec fteread ftewrite ftrexec ftrread ftrwrite);
+$bits{$_}{4} = 'OPpFT_AFTER_t' for qw(ftatime ftbinary ftblk ftchr ftctime ftdir fteexec fteowned fteread ftewrite ftfile ftis ftlink ftmtime ftpipe ftrexec ftrowned ftrread ftrwrite ftsgid ftsize ftsock ftsuid ftsvtx fttext fttty ftzero);
+$bits{$_}{2} = 'OPpFT_STACKED' for qw(ftatime ftbinary ftblk ftchr ftctime ftdir fteexec fteowned fteread ftewrite ftfile ftis ftlink ftmtime ftpipe ftrexec ftrowned ftrread ftrwrite ftsgid ftsize ftsock ftsuid ftsvtx fttext fttty ftzero);
+$bits{$_}{3} = 'OPpFT_STACKING' for qw(ftatime ftbinary ftblk ftchr ftctime ftdir fteexec fteowned fteread ftewrite ftfile ftis ftlink ftmtime ftpipe ftrexec ftrowned ftrread ftrwrite ftsgid ftsize ftsock ftsuid ftsvtx fttext fttty ftzero);
+$bits{$_}{1} = 'OPpHINT_STRICT_REFS' for qw(entersub multideref rv2av rv2cv rv2gv rv2hv rv2sv);
+$bits{$_}{5} = 'OPpHUSH_VMSISH' for qw(dbstate nextstate);
+$bits{$_}{1} = 'OPpITER_REVERSED' for qw(enteriter iter);
+$bits{$_}{7} = 'OPpLVALUE' for qw(leave leaveloop);
+$bits{$_}{6} = 'OPpLVAL_DEFER' for qw(aelem helem multideref);
+$bits{$_}{7} = 'OPpLVAL_INTRO' for qw(aelem aslice cond_expr delete enteriter entersub gvsv helem hslice list lvavref lvref lvrefslice multideref padav padhv padrange padsv pushmark refassign rv2av rv2gv rv2hv rv2sv);
+$bits{$_}{2} = 'OPpLVREF_ELEM' for qw(lvref refassign);
+$bits{$_}{3} = 'OPpLVREF_ITER' for qw(lvref refassign);
+$bits{$_}{3} = 'OPpMAYBE_LVSUB' for qw(aassign aelem aslice av2arylen helem hslice keys kvaslice kvhslice multideref padav padhv pos rv2av rv2gv rv2hv substr vec);
+$bits{$_}{4} = 'OPpMAYBE_TRUEBOOL' for qw(padhv rv2hv);
+$bits{$_}{7} = 'OPpOFFBYONE' for qw(caller runcv wantarray);
+$bits{$_}{5} = 'OPpOPEN_IN_CRLF' for qw(backtick open);
+$bits{$_}{4} = 'OPpOPEN_IN_RAW' for qw(backtick open);
+$bits{$_}{7} = 'OPpOPEN_OUT_CRLF' for qw(backtick open);
+$bits{$_}{6} = 'OPpOPEN_OUT_RAW' for qw(backtick open);
+$bits{$_}{6} = 'OPpOUR_INTRO' for qw(enteriter gvsv rv2av rv2hv rv2sv split);
+$bits{$_}{6} = 'OPpPAD_STATE' for qw(lvavref lvref padav padhv padsv pushmark refassign);
+$bits{$_}{7} = 'OPpPV_IS_UTF8' for qw(dump goto last next redo);
+$bits{$_}{6} = 'OPpREFCOUNTED' for qw(leave leaveeval leavesub leavesublv leavewrite);
+$bits{$_}{6} = 'OPpRUNTIME' for qw(match pushre qr subst substcont);
+$bits{$_}{2} = 'OPpSLICEWARNING' for qw(aslice hslice padav padhv rv2av rv2hv);
+$bits{$_}{4} = 'OPpTARGET_MY' for qw(abs add atan2 chdir chmod chomp chown chr chroot concat cos crypt divide exec exp flock getpgrp getppid getpriority hex i_add i_divide i_modulo i_multiply i_subtract index int kill left_shift length link log mkdir modulo multiply nbit_and nbit_or nbit_xor ncomplement oct ord pow push rand rename right_shift rindex rmdir schomp scomplement setpgrp setpriority sin sleep sqrt srand stringify subtract symlink system time unlink unshift utime wait waitpid);
+$bits{$_}{5} = 'OPpTRANS_COMPLEMENT' for qw(trans transr);
+$bits{$_}{7} = 'OPpTRANS_DELETE' for qw(trans transr);
+$bits{$_}{0} = 'OPpTRANS_FROM_UTF' for qw(trans transr);
+$bits{$_}{6} = 'OPpTRANS_GROWS' for qw(trans transr);
+$bits{$_}{2} = 'OPpTRANS_IDENTICAL' for qw(trans transr);
+$bits{$_}{3} = 'OPpTRANS_SQUASH' for qw(trans transr);
+$bits{$_}{1} = 'OPpTRANS_TO_UTF' for qw(trans transr);
+$bits{$_}{5} = 'OPpTRUEBOOL' for qw(padhv rv2hv);
+
+my @bf = (
+    {
+        label     => '-',
+        mask_def  => 'OPpARG1_MASK',
+        bitmin    => 0,
+        bitmax    => 0,
+        bitmask   => 1,
+    },
+    {
+        label     => '-',
+        mask_def  => 'OPpARG2_MASK',
+        bitmin    => 0,
+        bitmax    => 1,
+        bitmask   => 3,
+    },
+    {
+        label     => '-',
+        mask_def  => 'OPpARG3_MASK',
+        bitmin    => 0,
+        bitmax    => 2,
+        bitmask   => 7,
+    },
+    {
+        label     => '-',
+        mask_def  => 'OPpARG4_MASK',
+        bitmin    => 0,
+        bitmax    => 3,
+        bitmask   => 15,
+    },
+    {
+        label     => '-',
+        mask_def  => 'OPpPADRANGE_COUNTMASK',
+        bitcount_def => 'OPpPADRANGE_COUNTSHIFT',
+        bitmin    => 0,
+        bitmax    => 6,
+        bitmask   => 127,
+    },
+    {
+        label     => '-',
+        bitmin    => 0,
+        bitmax    => 7,
+        bitmask   => 255,
+    },
+    {
+        mask_def  => 'OPpDEREF',
+        bitmin    => 4,
+        bitmax    => 5,
+        bitmask   => 48,
+        enum      => [
+            1, 'OPpDEREF_AV', 'DREFAV',
+            2, 'OPpDEREF_HV', 'DREFHV',
+            3, 'OPpDEREF_SV', 'DREFSV',
+        ],
+    },
+    {
+        mask_def  => 'OPpLVREF_TYPE',
+        bitmin    => 4,
+        bitmax    => 5,
+        bitmask   => 48,
+        enum      => [
+            0, 'OPpLVREF_SV', 'SV',
+            1, 'OPpLVREF_AV', 'AV',
+            2, 'OPpLVREF_HV', 'HV',
+            3, 'OPpLVREF_CV', 'CV',
+        ],
+    },
+);
+
+@{$bits{aassign}}{6,5,4,1,0} = ('OPpASSIGN_COMMON_SCALAR', 'OPpASSIGN_COMMON_RC1', 'OPpASSIGN_COMMON_AGG', $bf[1], $bf[1]);
+$bits{abs}{0} = $bf[0];
+@{$bits{accept}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+@{$bits{add}}{1,0} = ($bf[1], $bf[1]);
+$bits{aeach}{0} = $bf[0];
+@{$bits{aelem}}{5,4,1,0} = ($bf[6], $bf[6], $bf[1], $bf[1]);
+@{$bits{aelemfast}}{7,6,5,4,3,2,1,0} = ($bf[5], $bf[5], $bf[5], $bf[5], $bf[5], $bf[5], $bf[5], $bf[5]);
+@{$bits{aelemfast_lex}}{7,6,5,4,3,2,1,0} = ($bf[5], $bf[5], $bf[5], $bf[5], $bf[5], $bf[5], $bf[5], $bf[5]);
+$bits{akeys}{0} = $bf[0];
+$bits{alarm}{0} = $bf[0];
+$bits{and}{0} = $bf[0];
+$bits{andassign}{0} = $bf[0];
+$bits{anonconst}{0} = $bf[0];
+@{$bits{anonhash}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+@{$bits{anonlist}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+@{$bits{atan2}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+$bits{av2arylen}{0} = $bf[0];
+$bits{avalues}{0} = $bf[0];
+$bits{backtick}{0} = $bf[0];
+@{$bits{bind}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+@{$bits{binmode}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+@{$bits{bit_and}}{1,0} = ($bf[1], $bf[1]);
+@{$bits{bit_or}}{1,0} = ($bf[1], $bf[1]);
+@{$bits{bit_xor}}{1,0} = ($bf[1], $bf[1]);
+@{$bits{bless}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+@{$bits{caller}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+@{$bits{chdir}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+@{$bits{chmod}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+$bits{chomp}{0} = $bf[0];
+$bits{chop}{0} = $bf[0];
+@{$bits{chown}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+$bits{chr}{0} = $bf[0];
+$bits{chroot}{0} = $bf[0];
+@{$bits{close}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+$bits{closedir}{0} = $bf[0];
+$bits{complement}{0} = $bf[0];
+@{$bits{concat}}{1,0} = ($bf[1], $bf[1]);
+$bits{cond_expr}{0} = $bf[0];
+@{$bits{connect}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+@{$bits{const}}{6,4,3,2,1} = ('OPpCONST_BARE', 'OPpCONST_ENTERED', 'OPpCONST_STRICT', 'OPpCONST_SHORTCIRCUIT', 'OPpCONST_NOVER');
+@{$bits{coreargs}}{7,6,1,0} = ('OPpCOREARGS_PUSHMARK', 'OPpCOREARGS_SCALARMOD', 'OPpCOREARGS_DEREF2', 'OPpCOREARGS_DEREF1');
+$bits{cos}{0} = $bf[0];
+@{$bits{crypt}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+$bits{dbmclose}{0} = $bf[0];
+@{$bits{dbmopen}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+$bits{defined}{0} = $bf[0];
+@{$bits{delete}}{6,0} = ('OPpSLICE', $bf[0]);
+@{$bits{die}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+@{$bits{divide}}{1,0} = ($bf[1], $bf[1]);
+$bits{dofile}{0} = $bf[0];
+$bits{dor}{0} = $bf[0];
+$bits{dorassign}{0} = $bf[0];
+$bits{dump}{0} = $bf[0];
+$bits{each}{0} = $bf[0];
+@{$bits{entereval}}{5,4,3,2,1,0} = ('OPpEVAL_RE_REPARSING', 'OPpEVAL_COPHH', 'OPpEVAL_BYTES', 'OPpEVAL_UNICODE', 'OPpEVAL_HAS_HH', $bf[0]);
+$bits{entergiven}{0} = $bf[0];
+$bits{enteriter}{3} = 'OPpITER_DEF';
+@{$bits{entersub}}{5,4,0} = ($bf[6], $bf[6], 'OPpENTERSUB_INARGS');
+$bits{entertry}{0} = $bf[0];
+$bits{enterwhen}{0} = $bf[0];
+@{$bits{enterwrite}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+@{$bits{eof}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+@{$bits{eq}}{1,0} = ($bf[1], $bf[1]);
+@{$bits{exec}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+@{$bits{exists}}{6,0} = ('OPpEXISTS_SUB', $bf[0]);
+@{$bits{exit}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+$bits{exp}{0} = $bf[0];
+$bits{fc}{0} = $bf[0];
+@{$bits{fcntl}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+@{$bits{fileno}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+$bits{flip}{0} = $bf[0];
+@{$bits{flock}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+$bits{flop}{0} = $bf[0];
+@{$bits{formline}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+$bits{ftatime}{0} = $bf[0];
+$bits{ftbinary}{0} = $bf[0];
+$bits{ftblk}{0} = $bf[0];
+$bits{ftchr}{0} = $bf[0];
+$bits{ftctime}{0} = $bf[0];
+$bits{ftdir}{0} = $bf[0];
+$bits{fteexec}{0} = $bf[0];
+$bits{fteowned}{0} = $bf[0];
+$bits{fteread}{0} = $bf[0];
+$bits{ftewrite}{0} = $bf[0];
+$bits{ftfile}{0} = $bf[0];
+$bits{ftis}{0} = $bf[0];
+$bits{ftlink}{0} = $bf[0];
+$bits{ftmtime}{0} = $bf[0];
+$bits{ftpipe}{0} = $bf[0];
+$bits{ftrexec}{0} = $bf[0];
+$bits{ftrowned}{0} = $bf[0];
+$bits{ftrread}{0} = $bf[0];
+$bits{ftrwrite}{0} = $bf[0];
+$bits{ftsgid}{0} = $bf[0];
+$bits{ftsize}{0} = $bf[0];
+$bits{ftsock}{0} = $bf[0];
+$bits{ftsuid}{0} = $bf[0];
+$bits{ftsvtx}{0} = $bf[0];
+$bits{fttext}{0} = $bf[0];
+$bits{fttty}{0} = $bf[0];
+$bits{ftzero}{0} = $bf[0];
+@{$bits{ge}}{1,0} = ($bf[1], $bf[1]);
+@{$bits{gelem}}{1,0} = ($bf[1], $bf[1]);
+@{$bits{getc}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+$bits{getpeername}{0} = $bf[0];
+@{$bits{getpgrp}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+@{$bits{getpriority}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+$bits{getsockname}{0} = $bf[0];
+$bits{ggrgid}{0} = $bf[0];
+$bits{ggrnam}{0} = $bf[0];
+@{$bits{ghbyaddr}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+$bits{ghbyname}{0} = $bf[0];
+@{$bits{glob}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+@{$bits{gmtime}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+@{$bits{gnbyaddr}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+$bits{gnbyname}{0} = $bf[0];
+$bits{goto}{0} = $bf[0];
+$bits{gpbyname}{0} = $bf[0];
+@{$bits{gpbynumber}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+$bits{gpwnam}{0} = $bf[0];
+$bits{gpwuid}{0} = $bf[0];
+$bits{grepstart}{0} = $bf[0];
+$bits{grepwhile}{0} = $bf[0];
+@{$bits{gsbyname}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+@{$bits{gsbyport}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+@{$bits{gsockopt}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+@{$bits{gt}}{1,0} = ($bf[1], $bf[1]);
+$bits{gv}{5} = 'OPpEARLY_CV';
+@{$bits{helem}}{5,4,1,0} = ($bf[6], $bf[6], $bf[1], $bf[1]);
+$bits{hex}{0} = $bf[0];
+@{$bits{i_add}}{1,0} = ($bf[1], $bf[1]);
+@{$bits{i_divide}}{1,0} = ($bf[1], $bf[1]);
+@{$bits{i_eq}}{1,0} = ($bf[1], $bf[1]);
+@{$bits{i_ge}}{1,0} = ($bf[1], $bf[1]);
+@{$bits{i_gt}}{1,0} = ($bf[1], $bf[1]);
+@{$bits{i_le}}{1,0} = ($bf[1], $bf[1]);
+@{$bits{i_lt}}{1,0} = ($bf[1], $bf[1]);
+@{$bits{i_modulo}}{1,0} = ($bf[1], $bf[1]);
+@{$bits{i_multiply}}{1,0} = ($bf[1], $bf[1]);
+@{$bits{i_ncmp}}{1,0} = ($bf[1], $bf[1]);
+@{$bits{i_ne}}{1,0} = ($bf[1], $bf[1]);
+$bits{i_negate}{0} = $bf[0];
+$bits{i_postdec}{0} = $bf[0];
+$bits{i_postinc}{0} = $bf[0];
+$bits{i_predec}{0} = $bf[0];
+$bits{i_preinc}{0} = $bf[0];
+@{$bits{i_subtract}}{1,0} = ($bf[1], $bf[1]);
+@{$bits{index}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+$bits{int}{0} = $bf[0];
+@{$bits{ioctl}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+@{$bits{join}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+$bits{keys}{0} = $bf[0];
+@{$bits{kill}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+$bits{last}{0} = $bf[0];
+$bits{lc}{0} = $bf[0];
+$bits{lcfirst}{0} = $bf[0];
+@{$bits{le}}{1,0} = ($bf[1], $bf[1]);
+$bits{leaveeval}{0} = $bf[0];
+$bits{leavegiven}{0} = $bf[0];
+@{$bits{leaveloop}}{1,0} = ($bf[1], $bf[1]);
+$bits{leavesub}{0} = $bf[0];
+$bits{leavesublv}{0} = $bf[0];
+$bits{leavewhen}{0} = $bf[0];
+$bits{leavewrite}{0} = $bf[0];
+@{$bits{left_shift}}{1,0} = ($bf[1], $bf[1]);
+$bits{length}{0} = $bf[0];
+@{$bits{link}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+$bits{list}{6} = 'OPpLIST_GUESSED';
+@{$bits{listen}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+$bits{localtime}{0} = $bf[0];
+$bits{lock}{0} = $bf[0];
+$bits{log}{0} = $bf[0];
+@{$bits{lslice}}{1,0} = ($bf[1], $bf[1]);
+$bits{lstat}{0} = $bf[0];
+@{$bits{lt}}{1,0} = ($bf[1], $bf[1]);
+$bits{lvavref}{0} = $bf[0];
+@{$bits{lvref}}{5,4,0} = ($bf[7], $bf[7], $bf[0]);
+$bits{mapstart}{0} = $bf[0];
+$bits{mapwhile}{0} = $bf[0];
+$bits{method}{0} = $bf[0];
+$bits{method_named}{0} = $bf[0];
+$bits{method_redir}{0} = $bf[0];
+$bits{method_redir_super}{0} = $bf[0];
+$bits{method_super}{0} = $bf[0];
+@{$bits{mkdir}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+@{$bits{modulo}}{1,0} = ($bf[1], $bf[1]);
+@{$bits{msgctl}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+@{$bits{msgget}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+@{$bits{msgrcv}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+@{$bits{msgsnd}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+@{$bits{multideref}}{5,4,0} = ('OPpMULTIDEREF_DELETE', 'OPpMULTIDEREF_EXISTS', $bf[0]);
+@{$bits{multiply}}{1,0} = ($bf[1], $bf[1]);
+@{$bits{nbit_and}}{1,0} = ($bf[1], $bf[1]);
+@{$bits{nbit_or}}{1,0} = ($bf[1], $bf[1]);
+@{$bits{nbit_xor}}{1,0} = ($bf[1], $bf[1]);
+@{$bits{ncmp}}{1,0} = ($bf[1], $bf[1]);
+$bits{ncomplement}{0} = $bf[0];
+@{$bits{ne}}{1,0} = ($bf[1], $bf[1]);
+$bits{negate}{0} = $bf[0];
+$bits{next}{0} = $bf[0];
+$bits{not}{0} = $bf[0];
+$bits{oct}{0} = $bf[0];
+$bits{once}{0} = $bf[0];
+@{$bits{open}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+@{$bits{open_dir}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+$bits{or}{0} = $bf[0];
+$bits{orassign}{0} = $bf[0];
+$bits{ord}{0} = $bf[0];
+@{$bits{pack}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+@{$bits{padrange}}{6,5,4,3,2,1,0} = ($bf[4], $bf[4], $bf[4], $bf[4], $bf[4], $bf[4], $bf[4]);
+@{$bits{padsv}}{5,4} = ($bf[6], $bf[6]);
+@{$bits{pipe_op}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+$bits{pop}{0} = $bf[0];
+$bits{pos}{0} = $bf[0];
+$bits{postdec}{0} = $bf[0];
+$bits{postinc}{0} = $bf[0];
+@{$bits{pow}}{1,0} = ($bf[1], $bf[1]);
+$bits{predec}{0} = $bf[0];
+$bits{preinc}{0} = $bf[0];
+$bits{prototype}{0} = $bf[0];
+@{$bits{push}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+$bits{quotemeta}{0} = $bf[0];
+@{$bits{rand}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+$bits{range}{0} = $bf[0];
+@{$bits{read}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+$bits{readdir}{0} = $bf[0];
+$bits{readline}{0} = $bf[0];
+$bits{readlink}{0} = $bf[0];
+@{$bits{recv}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+$bits{redo}{0} = $bf[0];
+$bits{ref}{0} = $bf[0];
+@{$bits{refassign}}{5,4,1,0} = ($bf[7], $bf[7], $bf[1], $bf[1]);
+$bits{refgen}{0} = $bf[0];
+$bits{regcmaybe}{0} = $bf[0];
+$bits{regcomp}{0} = $bf[0];
+$bits{regcreset}{0} = $bf[0];
+@{$bits{rename}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+@{$bits{repeat}}{6,1,0} = ('OPpREPEAT_DOLIST', $bf[1], $bf[1]);
+$bits{require}{0} = $bf[0];
+@{$bits{reset}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+@{$bits{reverse}}{3,0} = ('OPpREVERSE_INPLACE', $bf[0]);
+$bits{rewinddir}{0} = $bf[0];
+@{$bits{right_shift}}{1,0} = ($bf[1], $bf[1]);
+@{$bits{rindex}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+$bits{rmdir}{0} = $bf[0];
+$bits{rv2av}{0} = $bf[0];
+@{$bits{rv2cv}}{7,5,0} = ('OPpENTERSUB_NOPAREN', 'OPpMAY_RETURN_CONSTANT', $bf[0]);
+@{$bits{rv2gv}}{6,5,4,2,0} = ('OPpALLOW_FAKE', $bf[6], $bf[6], 'OPpDONT_INIT_GV', $bf[0]);
+$bits{rv2hv}{0} = $bf[0];
+@{$bits{rv2sv}}{5,4,0} = ($bf[6], $bf[6], $bf[0]);
+@{$bits{sassign}}{7,6,1,0} = ('OPpASSIGN_CV_TO_GV', 'OPpASSIGN_BACKWARDS', $bf[1], $bf[1]);
+@{$bits{sbit_and}}{1,0} = ($bf[1], $bf[1]);
+@{$bits{sbit_or}}{1,0} = ($bf[1], $bf[1]);
+@{$bits{sbit_xor}}{1,0} = ($bf[1], $bf[1]);
+$bits{scalar}{0} = $bf[0];
+$bits{schomp}{0} = $bf[0];
+$bits{schop}{0} = $bf[0];
+@{$bits{scmp}}{1,0} = ($bf[1], $bf[1]);
+$bits{scomplement}{0} = $bf[0];
+@{$bits{seek}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+@{$bits{seekdir}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+@{$bits{select}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+@{$bits{semctl}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+@{$bits{semget}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+@{$bits{semop}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+@{$bits{send}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+@{$bits{seq}}{1,0} = ($bf[1], $bf[1]);
+@{$bits{setpgrp}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+@{$bits{setpriority}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+@{$bits{sge}}{1,0} = ($bf[1], $bf[1]);
+@{$bits{sgt}}{1,0} = ($bf[1], $bf[1]);
+$bits{shift}{0} = $bf[0];
+@{$bits{shmctl}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+@{$bits{shmget}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+@{$bits{shmread}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+@{$bits{shmwrite}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+$bits{shostent}{0} = $bf[0];
+@{$bits{shutdown}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+$bits{sin}{0} = $bf[0];
+@{$bits{sle}}{1,0} = ($bf[1], $bf[1]);
+@{$bits{sleep}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+@{$bits{slt}}{1,0} = ($bf[1], $bf[1]);
+@{$bits{smartmatch}}{1,0} = ($bf[1], $bf[1]);
+@{$bits{sne}}{1,0} = ($bf[1], $bf[1]);
+$bits{snetent}{0} = $bf[0];
+@{$bits{socket}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+@{$bits{sockpair}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+@{$bits{sort}}{6,5,4,3,2,1,0} = ('OPpSORT_STABLE', 'OPpSORT_QSORT', 'OPpSORT_DESCEND', 'OPpSORT_INPLACE', 'OPpSORT_REVERSE', 'OPpSORT_INTEGER', 'OPpSORT_NUMERIC');
+@{$bits{splice}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+$bits{split}{7} = 'OPpSPLIT_IMPLIM';
+@{$bits{sprintf}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+$bits{sprotoent}{0} = $bf[0];
+$bits{sqrt}{0} = $bf[0];
+@{$bits{srand}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+$bits{srefgen}{0} = $bf[0];
+@{$bits{sselect}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+$bits{sservent}{0} = $bf[0];
+@{$bits{ssockopt}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+$bits{stat}{0} = $bf[0];
+@{$bits{stringify}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+$bits{study}{0} = $bf[0];
+$bits{substcont}{0} = $bf[0];
+@{$bits{substr}}{4,2,1,0} = ('OPpSUBSTR_REPL_FIRST', $bf[2], $bf[2], $bf[2]);
+@{$bits{subtract}}{1,0} = ($bf[1], $bf[1]);
+@{$bits{symlink}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+@{$bits{syscall}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+@{$bits{sysopen}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+@{$bits{sysread}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+@{$bits{sysseek}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+@{$bits{system}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+@{$bits{syswrite}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+@{$bits{tell}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+$bits{telldir}{0} = $bf[0];
+@{$bits{tie}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+$bits{tied}{0} = $bf[0];
+@{$bits{truncate}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+$bits{uc}{0} = $bf[0];
+$bits{ucfirst}{0} = $bf[0];
+@{$bits{umask}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+$bits{undef}{0} = $bf[0];
+@{$bits{unlink}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+@{$bits{unpack}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+@{$bits{unshift}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+$bits{untie}{0} = $bf[0];
+@{$bits{utime}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+$bits{values}{0} = $bf[0];
+@{$bits{vec}}{1,0} = ($bf[1], $bf[1]);
+@{$bits{waitpid}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+@{$bits{warn}}{3,2,1,0} = ($bf[3], $bf[3], $bf[3], $bf[3]);
+@{$bits{xor}}{1,0} = ($bf[1], $bf[1]);
+
+
+our %defines = (
+    OPpALLOW_FAKE            =>  64,
+    OPpARG1_MASK             =>   1,
+    OPpARG2_MASK             =>   3,
+    OPpARG3_MASK             =>   7,
+    OPpARG4_MASK             =>  15,
+    OPpASSIGN_BACKWARDS      =>  64,
+    OPpASSIGN_COMMON_AGG     =>  16,
+    OPpASSIGN_COMMON_RC1     =>  32,
+    OPpASSIGN_COMMON_SCALAR  =>  64,
+    OPpASSIGN_CV_TO_GV       => 128,
+    OPpCONST_BARE            =>  64,
+    OPpCONST_ENTERED         =>  16,
+    OPpCONST_NOVER           =>   2,
+    OPpCONST_SHORTCIRCUIT    =>   4,
+    OPpCONST_STRICT          =>   8,
+    OPpCOREARGS_DEREF1       =>   1,
+    OPpCOREARGS_DEREF2       =>   2,
+    OPpCOREARGS_PUSHMARK     => 128,
+    OPpCOREARGS_SCALARMOD    =>  64,
+    OPpDEREF                 =>  48,
+    OPpDEREF_AV              =>  16,
+    OPpDEREF_HV              =>  32,
+    OPpDEREF_SV              =>  48,
+    OPpDONT_INIT_GV          =>   4,
+    OPpEARLY_CV              =>  32,
+    OPpENTERSUB_AMPER        =>   8,
+    OPpENTERSUB_DB           =>  64,
+    OPpENTERSUB_HASTARG      =>   4,
+    OPpENTERSUB_INARGS       =>   1,
+    OPpENTERSUB_NOPAREN      => 128,
+    OPpEVAL_BYTES            =>   8,
+    OPpEVAL_COPHH            =>  16,
+    OPpEVAL_HAS_HH           =>   2,
+    OPpEVAL_RE_REPARSING     =>  32,
+    OPpEVAL_UNICODE          =>   4,
+    OPpEXISTS_SUB            =>  64,
+    OPpFLIP_LINENUM          =>  64,
+    OPpFT_ACCESS             =>   2,
+    OPpFT_AFTER_t            =>  16,
+    OPpFT_STACKED            =>   4,
+    OPpFT_STACKING           =>   8,
+    OPpHINT_STRICT_REFS      =>   2,
+    OPpHUSH_VMSISH           =>  32,
+    OPpITER_DEF              =>   8,
+    OPpITER_REVERSED         =>   2,
+    OPpLIST_GUESSED          =>  64,
+    OPpLVALUE                => 128,
+    OPpLVAL_DEFER            =>  64,
+    OPpLVAL_INTRO            => 128,
+    OPpLVREF_AV              =>  16,
+    OPpLVREF_CV              =>  48,
+    OPpLVREF_ELEM            =>   4,
+    OPpLVREF_HV              =>  32,
+    OPpLVREF_ITER            =>   8,
+    OPpLVREF_SV              =>   0,
+    OPpLVREF_TYPE            =>  48,
+    OPpMAYBE_LVSUB           =>   8,
+    OPpMAYBE_TRUEBOOL        =>  16,
+    OPpMAY_RETURN_CONSTANT   =>  32,
+    OPpMULTIDEREF_DELETE     =>  32,
+    OPpMULTIDEREF_EXISTS     =>  16,
+    OPpOFFBYONE              => 128,
+    OPpOPEN_IN_CRLF          =>  32,
+    OPpOPEN_IN_RAW           =>  16,
+    OPpOPEN_OUT_CRLF         => 128,
+    OPpOPEN_OUT_RAW          =>  64,
+    OPpOUR_INTRO             =>  64,
+    OPpPADRANGE_COUNTMASK    => 127,
+    OPpPADRANGE_COUNTSHIFT   =>   7,
+    OPpPAD_STATE             =>  64,
+    OPpPV_IS_UTF8            => 128,
+    OPpREFCOUNTED            =>  64,
+    OPpREPEAT_DOLIST         =>  64,
+    OPpREVERSE_INPLACE       =>   8,
+    OPpRUNTIME               =>  64,
+    OPpSLICE                 =>  64,
+    OPpSLICEWARNING          =>   4,
+    OPpSORT_DESCEND          =>  16,
+    OPpSORT_INPLACE          =>   8,
+    OPpSORT_INTEGER          =>   2,
+    OPpSORT_NUMERIC          =>   1,
+    OPpSORT_QSORT            =>  32,
+    OPpSORT_REVERSE          =>   4,
+    OPpSORT_STABLE           =>  64,
+    OPpSPLIT_IMPLIM          => 128,
+    OPpSUBSTR_REPL_FIRST     =>  16,
+    OPpTARGET_MY             =>  16,
+    OPpTRANS_COMPLEMENT      =>  32,
+    OPpTRANS_DELETE          => 128,
+    OPpTRANS_FROM_UTF        =>   1,
+    OPpTRANS_GROWS           =>  64,
+    OPpTRANS_IDENTICAL       =>   4,
+    OPpTRANS_SQUASH          =>   8,
+    OPpTRANS_TO_UTF          =>   2,
+    OPpTRUEBOOL              =>  32,
+);
+
+our %labels = (
+    OPpALLOW_FAKE            => 'FAKE',
+    OPpASSIGN_BACKWARDS      => 'BKWARD',
+    OPpASSIGN_COMMON_AGG     => 'COM_AGG',
+    OPpASSIGN_COMMON_RC1     => 'COM_RC1',
+    OPpASSIGN_COMMON_SCALAR  => 'COM_SCALAR',
+    OPpASSIGN_CV_TO_GV       => 'CV2GV',
+    OPpCONST_BARE            => 'BARE',
+    OPpCONST_ENTERED         => 'ENTERED',
+    OPpCONST_NOVER           => 'NOVER',
+    OPpCONST_SHORTCIRCUIT    => 'SHORT',
+    OPpCONST_STRICT          => 'STRICT',
+    OPpCOREARGS_DEREF1       => 'DEREF1',
+    OPpCOREARGS_DEREF2       => 'DEREF2',
+    OPpCOREARGS_PUSHMARK     => 'MARK',
+    OPpCOREARGS_SCALARMOD    => '$MOD',
+    OPpDEREF_AV              => 'DREFAV',
+    OPpDEREF_HV              => 'DREFHV',
+    OPpDEREF_SV              => 'DREFSV',
+    OPpDONT_INIT_GV          => 'NOINIT',
+    OPpEARLY_CV              => 'EARLYCV',
+    OPpENTERSUB_AMPER        => 'AMPER',
+    OPpENTERSUB_DB           => 'DBG',
+    OPpENTERSUB_HASTARG      => 'TARG',
+    OPpENTERSUB_INARGS       => 'INARGS',
+    OPpENTERSUB_NOPAREN      => 'NO()',
+    OPpEVAL_BYTES            => 'BYTES',
+    OPpEVAL_COPHH            => 'COPHH',
+    OPpEVAL_HAS_HH           => 'HAS_HH',
+    OPpEVAL_RE_REPARSING     => 'REPARSE',
+    OPpEVAL_UNICODE          => 'UNI',
+    OPpEXISTS_SUB            => 'SUB',
+    OPpFLIP_LINENUM          => 'LINENUM',
+    OPpFT_ACCESS             => 'FTACCESS',
+    OPpFT_AFTER_t            => 'FTAFTERt',
+    OPpFT_STACKED            => 'FTSTACKED',
+    OPpFT_STACKING           => 'FTSTACKING',
+    OPpHINT_STRICT_REFS      => 'STRICT',
+    OPpHUSH_VMSISH           => 'HUSH',
+    OPpITER_DEF              => 'DEF',
+    OPpITER_REVERSED         => 'REVERSED',
+    OPpLIST_GUESSED          => 'GUESSED',
+    OPpLVALUE                => 'LV',
+    OPpLVAL_DEFER            => 'LVDEFER',
+    OPpLVAL_INTRO            => 'LVINTRO',
+    OPpLVREF_AV              => 'AV',
+    OPpLVREF_CV              => 'CV',
+    OPpLVREF_ELEM            => 'ELEM',
+    OPpLVREF_HV              => 'HV',
+    OPpLVREF_ITER            => 'ITER',
+    OPpLVREF_SV              => 'SV',
+    OPpMAYBE_LVSUB           => 'LVSUB',
+    OPpMAYBE_TRUEBOOL        => 'BOOL?',
+    OPpMAY_RETURN_CONSTANT   => 'CONST',
+    OPpMULTIDEREF_DELETE     => 'DELETE',
+    OPpMULTIDEREF_EXISTS     => 'EXISTS',
+    OPpOFFBYONE              => '+1',
+    OPpOPEN_IN_CRLF          => 'INCR',
+    OPpOPEN_IN_RAW           => 'INBIN',
+    OPpOPEN_OUT_CRLF         => 'OUTCR',
+    OPpOPEN_OUT_RAW          => 'OUTBIN',
+    OPpOUR_INTRO             => 'OURINTR',
+    OPpPAD_STATE             => 'STATE',
+    OPpPV_IS_UTF8            => 'UTF',
+    OPpREFCOUNTED            => 'REFC',
+    OPpREPEAT_DOLIST         => 'DOLIST',
+    OPpREVERSE_INPLACE       => 'INPLACE',
+    OPpRUNTIME               => 'RTIME',
+    OPpSLICE                 => 'SLICE',
+    OPpSLICEWARNING          => 'SLICEWARN',
+    OPpSORT_DESCEND          => 'DESC',
+    OPpSORT_INPLACE          => 'INPLACE',
+    OPpSORT_INTEGER          => 'INT',
+    OPpSORT_NUMERIC          => 'NUM',
+    OPpSORT_QSORT            => 'QSORT',
+    OPpSORT_REVERSE          => 'REV',
+    OPpSORT_STABLE           => 'STABLE',
+    OPpSPLIT_IMPLIM          => 'IMPLIM',
+    OPpSUBSTR_REPL_FIRST     => 'REPL1ST',
+    OPpTARGET_MY             => 'TARGMY',
+    OPpTRANS_COMPLEMENT      => 'COMPL',
+    OPpTRANS_DELETE          => 'DEL',
+    OPpTRANS_FROM_UTF        => '<UTF',
+    OPpTRANS_GROWS           => 'GROWS',
+    OPpTRANS_IDENTICAL       => 'IDENT',
+    OPpTRANS_SQUASH          => 'SQUASH',
+    OPpTRANS_TO_UTF          => '>UTF',
+    OPpTRUEBOOL              => 'BOOL',
+);
+
+
+our %ops_using = (
+    OPpALLOW_FAKE            => [qw(rv2gv)],
+    OPpASSIGN_BACKWARDS      => [qw(sassign)],
+    OPpASSIGN_COMMON_AGG     => [qw(aassign)],
+    OPpCONST_BARE            => [qw(const)],
+    OPpCOREARGS_DEREF1       => [qw(coreargs)],
+    OPpEARLY_CV              => [qw(gv)],
+    OPpENTERSUB_AMPER        => [qw(entersub rv2cv)],
+    OPpENTERSUB_INARGS       => [qw(entersub)],
+    OPpENTERSUB_NOPAREN      => [qw(rv2cv)],
+    OPpEVAL_BYTES            => [qw(entereval)],
+    OPpEXISTS_SUB            => [qw(exists)],
+    OPpFLIP_LINENUM          => [qw(flip flop)],
+    OPpFT_ACCESS             => [qw(fteexec fteread ftewrite ftrexec ftrread ftrwrite)],
+    OPpFT_AFTER_t            => [qw(ftatime ftbinary ftblk ftchr ftctime ftdir fteexec fteowned fteread ftewrite ftfile ftis ftlink ftmtime ftpipe ftrexec ftrowned ftrread ftrwrite ftsgid ftsize ftsock ftsuid ftsvtx fttext fttty ftzero)],
+    OPpHINT_STRICT_REFS      => [qw(entersub multideref rv2av rv2cv rv2gv rv2hv rv2sv)],
+    OPpHUSH_VMSISH           => [qw(dbstate nextstate)],
+    OPpITER_DEF              => [qw(enteriter)],
+    OPpITER_REVERSED         => [qw(enteriter iter)],
+    OPpLIST_GUESSED          => [qw(list)],
+    OPpLVALUE                => [qw(leave leaveloop)],
+    OPpLVAL_DEFER            => [qw(aelem helem multideref)],
+    OPpLVAL_INTRO            => [qw(aelem aslice cond_expr delete enteriter entersub gvsv helem hslice list lvavref lvref lvrefslice multideref padav padhv padrange padsv pushmark refassign rv2av rv2gv rv2hv rv2sv)],
+    OPpLVREF_ELEM            => [qw(lvref refassign)],
+    OPpMAYBE_LVSUB           => [qw(aassign aelem aslice av2arylen helem hslice keys kvaslice kvhslice multideref padav padhv pos rv2av rv2gv rv2hv substr vec)],
+    OPpMAYBE_TRUEBOOL        => [qw(padhv rv2hv)],
+    OPpMULTIDEREF_DELETE     => [qw(multideref)],
+    OPpOFFBYONE              => [qw(caller runcv wantarray)],
+    OPpOPEN_IN_CRLF          => [qw(backtick open)],
+    OPpOUR_INTRO             => [qw(enteriter gvsv rv2av rv2hv rv2sv split)],
+    OPpPAD_STATE             => [qw(lvavref lvref padav padhv padsv pushmark refassign)],
+    OPpPV_IS_UTF8            => [qw(dump goto last next redo)],
+    OPpREFCOUNTED            => [qw(leave leaveeval leavesub leavesublv leavewrite)],
+    OPpREPEAT_DOLIST         => [qw(repeat)],
+    OPpREVERSE_INPLACE       => [qw(reverse)],
+    OPpRUNTIME               => [qw(match pushre qr subst substcont)],
+    OPpSLICE                 => [qw(delete)],
+    OPpSLICEWARNING          => [qw(aslice hslice padav padhv rv2av rv2hv)],
+    OPpSORT_DESCEND          => [qw(sort)],
+    OPpSPLIT_IMPLIM          => [qw(split)],
+    OPpSUBSTR_REPL_FIRST     => [qw(substr)],
+    OPpTARGET_MY             => [qw(abs add atan2 chdir chmod chomp chown chr chroot concat cos crypt divide exec exp flock getpgrp getppid getpriority hex i_add i_divide i_modulo i_multiply i_subtract index int kill left_shift length link log mkdir modulo multiply nbit_and nbit_or nbit_xor ncomplement oct ord pow push rand rename right_shift rindex rmdir schomp scomplement setpgrp setpriority sin sleep sqrt srand stringify subtract symlink system time unlink unshift utime wait waitpid)],
+    OPpTRANS_COMPLEMENT      => [qw(trans transr)],
+);
+
+$ops_using{OPpASSIGN_COMMON_RC1} = $ops_using{OPpASSIGN_COMMON_AGG};
+$ops_using{OPpASSIGN_COMMON_SCALAR} = $ops_using{OPpASSIGN_COMMON_AGG};
+$ops_using{OPpASSIGN_CV_TO_GV} = $ops_using{OPpASSIGN_BACKWARDS};
+$ops_using{OPpCONST_ENTERED} = $ops_using{OPpCONST_BARE};
+$ops_using{OPpCONST_NOVER} = $ops_using{OPpCONST_BARE};
+$ops_using{OPpCONST_SHORTCIRCUIT} = $ops_using{OPpCONST_BARE};
+$ops_using{OPpCONST_STRICT} = $ops_using{OPpCONST_BARE};
+$ops_using{OPpCOREARGS_DEREF2} = $ops_using{OPpCOREARGS_DEREF1};
+$ops_using{OPpCOREARGS_PUSHMARK} = $ops_using{OPpCOREARGS_DEREF1};
+$ops_using{OPpCOREARGS_SCALARMOD} = $ops_using{OPpCOREARGS_DEREF1};
+$ops_using{OPpDONT_INIT_GV} = $ops_using{OPpALLOW_FAKE};
+$ops_using{OPpENTERSUB_DB} = $ops_using{OPpENTERSUB_AMPER};
+$ops_using{OPpENTERSUB_HASTARG} = $ops_using{OPpENTERSUB_AMPER};
+$ops_using{OPpEVAL_COPHH} = $ops_using{OPpEVAL_BYTES};
+$ops_using{OPpEVAL_HAS_HH} = $ops_using{OPpEVAL_BYTES};
+$ops_using{OPpEVAL_RE_REPARSING} = $ops_using{OPpEVAL_BYTES};
+$ops_using{OPpEVAL_UNICODE} = $ops_using{OPpEVAL_BYTES};
+$ops_using{OPpFT_STACKED} = $ops_using{OPpFT_AFTER_t};
+$ops_using{OPpFT_STACKING} = $ops_using{OPpFT_AFTER_t};
+$ops_using{OPpLVREF_ITER} = $ops_using{OPpLVREF_ELEM};
+$ops_using{OPpMAY_RETURN_CONSTANT} = $ops_using{OPpENTERSUB_NOPAREN};
+$ops_using{OPpMULTIDEREF_EXISTS} = $ops_using{OPpMULTIDEREF_DELETE};
+$ops_using{OPpOPEN_IN_RAW} = $ops_using{OPpOPEN_IN_CRLF};
+$ops_using{OPpOPEN_OUT_CRLF} = $ops_using{OPpOPEN_IN_CRLF};
+$ops_using{OPpOPEN_OUT_RAW} = $ops_using{OPpOPEN_IN_CRLF};
+$ops_using{OPpSORT_INPLACE} = $ops_using{OPpSORT_DESCEND};
+$ops_using{OPpSORT_INTEGER} = $ops_using{OPpSORT_DESCEND};
+$ops_using{OPpSORT_NUMERIC} = $ops_using{OPpSORT_DESCEND};
+$ops_using{OPpSORT_QSORT} = $ops_using{OPpSORT_DESCEND};
+$ops_using{OPpSORT_REVERSE} = $ops_using{OPpSORT_DESCEND};
+$ops_using{OPpSORT_STABLE} = $ops_using{OPpSORT_DESCEND};
+$ops_using{OPpTRANS_DELETE} = $ops_using{OPpTRANS_COMPLEMENT};
+$ops_using{OPpTRANS_FROM_UTF} = $ops_using{OPpTRANS_COMPLEMENT};
+$ops_using{OPpTRANS_GROWS} = $ops_using{OPpTRANS_COMPLEMENT};
+$ops_using{OPpTRANS_IDENTICAL} = $ops_using{OPpTRANS_COMPLEMENT};
+$ops_using{OPpTRANS_SQUASH} = $ops_using{OPpTRANS_COMPLEMENT};
+$ops_using{OPpTRANS_TO_UTF} = $ops_using{OPpTRANS_COMPLEMENT};
+$ops_using{OPpTRUEBOOL} = $ops_using{OPpMAYBE_TRUEBOOL};
+
+# ex: set ro:
diff --git a/lib/5.24.1/Benchmark.pm b/lib/5.24.1/Benchmark.pm
new file mode 100644
index 00000000..25371621
--- /dev/null
+++ b/lib/5.24.1/Benchmark.pm
@@ -0,0 +1,1123 @@
+package Benchmark;
+
+use strict;
+
+
+=head1 NAME
+
+Benchmark - benchmark running times of Perl code
+
+=head1 SYNOPSIS
+
+    use Benchmark qw(:all) ;
+
+    timethis ($count, "code");
+
+    # Use Perl code in strings...
+    timethese($count, {
+	'Name1' => '...code1...',
+	'Name2' => '...code2...',
+    });
+
+    # ... or use subroutine references.
+    timethese($count, {
+	'Name1' => sub { ...code1... },
+	'Name2' => sub { ...code2... },
+    });
+
+    # cmpthese can be used both ways as well
+    cmpthese($count, {
+	'Name1' => '...code1...',
+	'Name2' => '...code2...',
+    });
+
+    cmpthese($count, {
+	'Name1' => sub { ...code1... },
+	'Name2' => sub { ...code2... },
+    });
+
+    # ...or in two stages
+    $results = timethese($count,
+        {
+	    'Name1' => sub { ...code1... },
+	    'Name2' => sub { ...code2... },
+        },
+	'none'
+    );
+    cmpthese( $results ) ;
+
+    $t = timeit($count, '...other code...')
+    print "$count loops of other code took:",timestr($t),"\n";
+
+    $t = countit($time, '...other code...')
+    $count = $t->iters ;
+    print "$count loops of other code took:",timestr($t),"\n";
+
+    # enable hires wallclock timing if possible
+    use Benchmark ':hireswallclock';
+
+=head1 DESCRIPTION
+
+The Benchmark module encapsulates a number of routines to help you
+figure out how long it takes to execute some code.
+
+timethis - run a chunk of code several times
+
+timethese - run several chunks of code several times
+
+cmpthese - print results of timethese as a comparison chart
+
+timeit - run a chunk of code and see how long it goes
+
+countit - see how many times a chunk of code runs in a given time
+
+
+=head2 Methods
+
+=over 10
+
+=item new
+
+Returns the current time.   Example:
+
+    use Benchmark;
+    $t0 = Benchmark->new;
+    # ... your code here ...
+    $t1 = Benchmark->new;
+    $td = timediff($t1, $t0);
+    print "the code took:",timestr($td),"\n";
+
+=item debug
+
+Enables or disable debugging by setting the C<$Benchmark::Debug> flag:
+
+    Benchmark->debug(1);
+    $t = timeit(10, ' 5 ** $Global ');
+    Benchmark->debug(0);
+
+=item iters
+
+Returns the number of iterations.
+
+=back
+
+=head2 Standard Exports
+
+The following routines will be exported into your namespace
+if you use the Benchmark module:
+
+=over 10
+
+=item timeit(COUNT, CODE)
+
+Arguments: COUNT is the number of times to run the loop, and CODE is
+the code to run.  CODE may be either a code reference or a string to
+be eval'd; either way it will be run in the caller's package.
+
+Returns: a Benchmark object.
+
+=item timethis ( COUNT, CODE, [ TITLE, [ STYLE ]] )
+
+Time COUNT iterations of CODE. CODE may be a string to eval or a
+code reference; either way the CODE will run in the caller's package.
+Results will be printed to STDOUT as TITLE followed by the times.
+TITLE defaults to "timethis COUNT" if none is provided. STYLE
+determines the format of the output, as described for timestr() below.
+
+The COUNT can be zero or negative: this means the I<minimum number of
+CPU seconds> to run.  A zero signifies the default of 3 seconds.  For
+example to run at least for 10 seconds:
+
+	timethis(-10, $code)
+
+or to run two pieces of code tests for at least 3 seconds:
+
+	timethese(0, { test1 => '...', test2 => '...'})
+
+CPU seconds is, in UNIX terms, the user time plus the system time of
+the process itself, as opposed to the real (wallclock) time and the
+time spent by the child processes.  Less than 0.1 seconds is not
+accepted (-0.01 as the count, for example, will cause a fatal runtime
+exception).
+
+Note that the CPU seconds is the B<minimum> time: CPU scheduling and
+other operating system factors may complicate the attempt so that a
+little bit more time is spent.  The benchmark output will, however,
+also tell the number of C<$code> runs/second, which should be a more
+interesting number than the actually spent seconds.
+
+Returns a Benchmark object.
+
+=item timethese ( COUNT, CODEHASHREF, [ STYLE ] )
+
+The CODEHASHREF is a reference to a hash containing names as keys
+and either a string to eval or a code reference for each value.
+For each (KEY, VALUE) pair in the CODEHASHREF, this routine will
+call
+
+	timethis(COUNT, VALUE, KEY, STYLE)
+
+The routines are called in string comparison order of KEY.
+
+The COUNT can be zero or negative, see timethis().
+
+Returns a hash reference of Benchmark objects, keyed by name.
+
+=item timediff ( T1, T2 )
+
+Returns the difference between two Benchmark times as a Benchmark
+object suitable for passing to timestr().
+
+=item timestr ( TIMEDIFF, [ STYLE, [ FORMAT ] ] )
+
+Returns a string that formats the times in the TIMEDIFF object in
+the requested STYLE. TIMEDIFF is expected to be a Benchmark object
+similar to that returned by timediff().
+
+STYLE can be any of 'all', 'none', 'noc', 'nop' or 'auto'. 'all' shows
+each of the 5 times available ('wallclock' time, user time, system time,
+user time of children, and system time of children). 'noc' shows all
+except the two children times. 'nop' shows only wallclock and the
+two children times. 'auto' (the default) will act as 'all' unless
+the children times are both zero, in which case it acts as 'noc'.
+'none' prevents output.
+
+FORMAT is the L<printf(3)>-style format specifier (without the
+leading '%') to use to print the times. It defaults to '5.2f'.
+
+=back
+
+=head2 Optional Exports
+
+The following routines will be exported into your namespace
+if you specifically ask that they be imported:
+
+=over 10
+
+=item clearcache ( COUNT )
+
+Clear the cached time for COUNT rounds of the null loop.
+
+=item clearallcache ( )
+
+Clear all cached times.
+
+=item cmpthese ( COUNT, CODEHASHREF, [ STYLE ] )
+
+=item cmpthese ( RESULTSHASHREF, [ STYLE ] )
+
+Optionally calls timethese(), then outputs comparison chart.  This:
+
+    cmpthese( -1, { a => "++\$i", b => "\$i *= 2" } ) ;
+
+outputs a chart like:
+
+           Rate    b    a
+    b 2831802/s   -- -61%
+    a 7208959/s 155%   --
+
+This chart is sorted from slowest to fastest, and shows the percent speed
+difference between each pair of tests.
+
+C<cmpthese> can also be passed the data structure that timethese() returns:
+
+    $results = timethese( -1,
+        { a => "++\$i", b => "\$i *= 2" } ) ;
+    cmpthese( $results );
+
+in case you want to see both sets of results.
+If the first argument is an unblessed hash reference,
+that is RESULTSHASHREF; otherwise that is COUNT.
+
+Returns a reference to an ARRAY of rows, each row is an ARRAY of cells from the
+above chart, including labels. This:
+
+    my $rows = cmpthese( -1,
+        { a => '++$i', b => '$i *= 2' }, "none" );
+
+returns a data structure like:
+
+    [
+        [ '',       'Rate',   'b',    'a' ],
+        [ 'b', '2885232/s',  '--', '-59%' ],
+        [ 'a', '7099126/s', '146%',  '--' ],
+    ]
+
+B<NOTE>: This result value differs from previous versions, which returned
+the C<timethese()> result structure.  If you want that, just use the two
+statement C<timethese>...C<cmpthese> idiom shown above.
+
+Incidentally, note the variance in the result values between the two examples;
+this is typical of benchmarking.  If this were a real benchmark, you would
+probably want to run a lot more iterations.
+
+=item countit(TIME, CODE)
+
+Arguments: TIME is the minimum length of time to run CODE for, and CODE is
+the code to run.  CODE may be either a code reference or a string to
+be eval'd; either way it will be run in the caller's package.
+
+TIME is I<not> negative.  countit() will run the loop many times to
+calculate the speed of CODE before running it for TIME.  The actual
+time run for will usually be greater than TIME due to system clock
+resolution, so it's best to look at the number of iterations divided
+by the times that you are concerned with, not just the iterations.
+
+Returns: a Benchmark object.
+
+=item disablecache ( )
+
+Disable caching of timings for the null loop. This will force Benchmark
+to recalculate these timings for each new piece of code timed.
+
+=item enablecache ( )
+
+Enable caching of timings for the null loop. The time taken for COUNT
+rounds of the null loop will be calculated only once for each
+different COUNT used.
+
+=item timesum ( T1, T2 )
+
+Returns the sum of two Benchmark times as a Benchmark object suitable
+for passing to timestr().
+
+=back
+
+=head2 :hireswallclock
+
+If the Time::HiRes module has been installed, you can specify the
+special tag C<:hireswallclock> for Benchmark (if Time::HiRes is not
+available, the tag will be silently ignored).  This tag will cause the
+wallclock time to be measured in microseconds, instead of integer
+seconds.  Note though that the speed computations are still conducted
+in CPU time, not wallclock time.
+
+=head1 Benchmark Object
+
+Many of the functions in this module return a Benchmark object,
+or in the case of C<timethese()>, a reference to a hash, the values of
+which are Benchmark objects.  This is useful if you want to store or
+further process results from Benchmark functions.
+
+Internally the Benchmark object holds timing values,
+described in L</"NOTES"> below.
+The following methods can be used to access them:
+
+=over 4
+
+=item cpu_p
+
+Total CPU (User + System) of the main (parent) process.
+
+=item cpu_c
+
+Total CPU (User + System) of any children processes.
+
+=item cpu_a
+
+Total CPU of parent and any children processes.
+
+=item real
+
+Real elapsed time "wallclock seconds".
+
+=item iters
+
+Number of iterations run.
+
+=back
+
+The following illustrates use of the Benchmark object:
+
+    $result = timethis(100000, sub { ... });
+    print "total CPU = ", $result->cpu_a, "\n";
+
+=head1 NOTES
+
+The data is stored as a list of values from the time and times
+functions:
+
+      ($real, $user, $system, $children_user, $children_system, $iters)
+
+in seconds for the whole loop (not divided by the number of rounds).
+
+The timing is done using time(3) and times(3).
+
+Code is executed in the caller's package.
+
+The time of the null loop (a loop with the same
+number of rounds but empty loop body) is subtracted
+from the time of the real loop.
+
+The null loop times can be cached, the key being the
+number of rounds. The caching can be controlled using
+calls like these:
+
+    clearcache($key);
+    clearallcache();
+
+    disablecache();
+    enablecache();
+
+Caching is off by default, as it can (usually slightly) decrease
+accuracy and does not usually noticeably affect runtimes.
+
+=head1 EXAMPLES
+
+For example,
+
+    use Benchmark qw( cmpthese ) ;
+    $x = 3;
+    cmpthese( -5, {
+        a => sub{$x*$x},
+        b => sub{$x**2},
+    } );
+
+outputs something like this:
+
+   Benchmark: running a, b, each for at least 5 CPU seconds...
+          Rate    b    a
+   b 1559428/s   -- -62%
+   a 4152037/s 166%   --
+
+
+while
+
+    use Benchmark qw( timethese cmpthese ) ;
+    $x = 3;
+    $r = timethese( -5, {
+        a => sub{$x*$x},
+        b => sub{$x**2},
+    } );
+    cmpthese $r;
+
+outputs something like this:
+
+    Benchmark: running a, b, each for at least 5 CPU seconds...
+             a: 10 wallclock secs ( 5.14 usr +  0.13 sys =  5.27 CPU) @ 3835055.60/s (n=20210743)
+             b:  5 wallclock secs ( 5.41 usr +  0.00 sys =  5.41 CPU) @ 1574944.92/s (n=8520452)
+           Rate    b    a
+    b 1574945/s   -- -59%
+    a 3835056/s 144%   --
+
+
+=head1 INHERITANCE
+
+Benchmark inherits from no other class, except of course
+from Exporter.
+
+=head1 CAVEATS
+
+Comparing eval'd strings with code references will give you
+inaccurate results: a code reference will show a slightly slower
+execution time than the equivalent eval'd string.
+
+The real time timing is done using time(2) and
+the granularity is therefore only one second.
+
+Short tests may produce negative figures because perl
+can appear to take longer to execute the empty loop
+than a short test; try:
+
+    timethis(100,'1');
+
+The system time of the null loop might be slightly
+more than the system time of the loop with the actual
+code and therefore the difference might end up being E<lt> 0.
+
+=head1 SEE ALSO
+
+L<Devel::NYTProf> - a Perl code profiler
+
+=head1 AUTHORS
+
+Jarkko Hietaniemi <F<jhi@iki.fi>>, Tim Bunce <F<Tim.Bunce@ig.co.uk>>
+
+=head1 MODIFICATION HISTORY
+
+September 8th, 1994; by Tim Bunce.
+
+March 28th, 1997; by Hugo van der Sanden: added support for code
+references and the already documented 'debug' method; revamped
+documentation.
+
+April 04-07th, 1997: by Jarkko Hietaniemi, added the run-for-some-time
+functionality.
+
+September, 1999; by Barrie Slaymaker: math fixes and accuracy and
+efficiency tweaks.  Added cmpthese().  A result is now returned from
+timethese().  Exposed countit() (was runfor()).
+
+December, 2001; by Nicholas Clark: make timestr() recognise the style 'none'
+and return an empty string. If cmpthese is calling timethese, make it pass the
+style in. (so that 'none' will suppress output). Make sub new dump its
+debugging output to STDERR, to be consistent with everything else.
+All bugs found while writing a regression test.
+
+September, 2002; by Jarkko Hietaniemi: add ':hireswallclock' special tag.
+
+February, 2004; by Chia-liang Kao: make cmpthese and timestr use time
+statistics for children instead of parent when the style is 'nop'.
+
+November, 2007; by Christophe Grosjean: make cmpthese and timestr compute
+time consistently with style argument, default is 'all' not 'noc' any more.
+
+=cut
+
+# evaluate something in a clean lexical environment
+sub _doeval { no strict;  eval shift }
+
+#
+# put any lexicals at file scope AFTER here
+#
+
+use Carp;
+use Exporter;
+
+our(@ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS, $VERSION);
+
+@ISA=qw(Exporter);
+@EXPORT=qw(timeit timethis timethese timediff timestr);
+@EXPORT_OK=qw(timesum cmpthese countit
+	      clearcache clearallcache disablecache enablecache);
+%EXPORT_TAGS=( all => [ @EXPORT, @EXPORT_OK ] ) ;
+
+$VERSION = 1.22;
+
+# --- ':hireswallclock' special handling
+
+my $hirestime;
+
+sub mytime () { time }
+
+init();
+
+sub BEGIN {
+    if (eval 'require Time::HiRes') {
+	import Time::HiRes qw(time);
+	$hirestime = \&Time::HiRes::time;
+    }
+}
+
+sub import {
+    my $class = shift;
+    if (grep { $_ eq ":hireswallclock" } @_) {
+	@_ = grep { $_ ne ":hireswallclock" } @_;
+	local $^W=0;
+	*mytime = $hirestime if defined $hirestime;
+    }
+    Benchmark->export_to_level(1, $class, @_);
+}
+
+our($Debug, $Min_Count, $Min_CPU, $Default_Format, $Default_Style,
+    %_Usage, %Cache, $Do_Cache);
+
+sub init {
+    $Debug = 0;
+    $Min_Count = 4;
+    $Min_CPU   = 0.4;
+    $Default_Format = '5.2f';
+    $Default_Style = 'auto';
+    # The cache can cause a slight loss of sys time accuracy. If a
+    # user does many tests (>10) with *very* large counts (>10000)
+    # or works on a very slow machine the cache may be useful.
+    disablecache();
+    clearallcache();
+}
+
+sub debug { $Debug = ($_[1] != 0); }
+
+sub usage {
+    my $calling_sub = (caller(1))[3];
+    $calling_sub =~ s/^Benchmark:://;
+    return $_Usage{$calling_sub} || '';
+}
+
+# The cache needs two branches: 's' for strings and 'c' for code.  The
+# empty loop is different in these two cases.
+
+$_Usage{clearcache} = <<'USAGE';
+usage: clearcache($count);
+USAGE
+
+sub clearcache    {
+    die usage unless @_ == 1;
+    delete $Cache{"$_[0]c"}; delete $Cache{"$_[0]s"};
+}
+
+$_Usage{clearallcache} = <<'USAGE';
+usage: clearallcache();
+USAGE
+
+sub clearallcache {
+    die usage if @_;
+    %Cache = ();
+}
+
+$_Usage{enablecache} = <<'USAGE';
+usage: enablecache();
+USAGE
+
+sub enablecache   {
+    die usage if @_;
+    $Do_Cache = 1;
+}
+
+$_Usage{disablecache} = <<'USAGE';
+usage: disablecache();
+USAGE
+
+sub disablecache  {
+    die usage if @_;
+    $Do_Cache = 0;
+}
+
+
+# --- Functions to process the 'time' data type
+
+sub new { my @t = (mytime, times, @_ == 2 ? $_[1] : 0);
+	  print STDERR "new=@t\n" if $Debug;
+	  bless \@t; }
+
+sub cpu_p { my($r,$pu,$ps,$cu,$cs) = @{$_[0]}; $pu+$ps         ; }
+sub cpu_c { my($r,$pu,$ps,$cu,$cs) = @{$_[0]};         $cu+$cs ; }
+sub cpu_a { my($r,$pu,$ps,$cu,$cs) = @{$_[0]}; $pu+$ps+$cu+$cs ; }
+sub real  { my($r,$pu,$ps,$cu,$cs) = @{$_[0]}; $r              ; }
+sub iters { $_[0]->[5] ; }
+
+# return the sum of various times: which ones depending on $style
+
+sub elapsed {
+    my ($self, $style) = @_;
+    $style = "" unless defined $style;
+
+    return $self->cpu_c if $style eq 'nop';
+    return $self->cpu_p if $style eq 'noc';
+    return $self->cpu_a;
+}
+
+
+$_Usage{timediff} = <<'USAGE';
+usage: $result_diff = timediff($result1, $result2);
+USAGE
+
+sub timediff {
+    my($a, $b) = @_;
+
+    die usage unless ref $a and ref $b;
+
+    my @r;
+    for (my $i=0; $i < @$a; ++$i) {
+	push(@r, $a->[$i] - $b->[$i]);
+    }
+    #die "Bad timediff(): ($r[1] + $r[2]) <= 0 (@$a[1,2]|@$b[1,2])\n"
+    #        if ($r[1] + $r[2]) < 0;
+    bless \@r;
+}
+
+$_Usage{timesum} = <<'USAGE';
+usage: $sum = timesum($result1, $result2);
+USAGE
+
+sub timesum {
+    my($a, $b) = @_;
+
+    die usage unless ref $a and ref $b;
+
+    my @r;
+    for (my $i=0; $i < @$a; ++$i) {
+ 	push(@r, $a->[$i] + $b->[$i]);
+    }
+    bless \@r;
+}
+
+
+$_Usage{timestr} = <<'USAGE';
+usage: $formatted_result = timestr($result1);
+USAGE
+
+sub timestr {
+    my($tr, $style, $f) = @_;
+
+    die usage unless ref $tr;
+
+    my @t = @$tr;
+    warn "bad time value (@t)" unless @t==6;
+    my($r, $pu, $ps, $cu, $cs, $n) = @t;
+    my($pt, $ct, $tt) = ($tr->cpu_p, $tr->cpu_c, $tr->cpu_a);
+    $f = $Default_Format unless defined $f;
+    # format a time in the required style, other formats may be added here
+    $style ||= $Default_Style;
+    return '' if $style eq 'none';
+    $style = ($ct>0) ? 'all' : 'noc' if $style eq 'auto';
+    my $s = "@t $style"; # default for unknown style
+    my $w = $hirestime ? "%2g" : "%2d";
+    $s = sprintf("$w wallclock secs (%$f usr %$f sys + %$f cusr %$f csys = %$f CPU)",
+			    $r,$pu,$ps,$cu,$cs,$tt) if $style eq 'all';
+    $s = sprintf("$w wallclock secs (%$f usr + %$f sys = %$f CPU)",
+			    $r,$pu,$ps,$pt) if $style eq 'noc';
+    $s = sprintf("$w wallclock secs (%$f cusr + %$f csys = %$f CPU)",
+			    $r,$cu,$cs,$ct) if $style eq 'nop';
+    my $elapsed = $tr->elapsed($style);
+    $s .= sprintf(" @ %$f/s (n=$n)",$n/($elapsed)) if $n && $elapsed;
+    $s;
+}
+
+sub timedebug {
+    my($msg, $t) = @_;
+    print STDERR "$msg",timestr($t),"\n" if $Debug;
+}
+
+# --- Functions implementing low-level support for timing loops
+
+$_Usage{runloop} = <<'USAGE';
+usage: runloop($number, [$string | $coderef])
+USAGE
+
+sub runloop {
+    my($n, $c) = @_;
+
+    $n+=0; # force numeric now, so garbage won't creep into the eval
+    croak "negative loopcount $n" if $n<0;
+    confess usage unless defined $c;
+    my($t0, $t1, $td); # before, after, difference
+
+    # find package of caller so we can execute code there
+    my($curpack) = caller(0);
+    my($i, $pack)= 0;
+    while (($pack) = caller(++$i)) {
+	last if $pack ne $curpack;
+    }
+
+    my ($subcode, $subref);
+    if (ref $c eq 'CODE') {
+	$subcode = "sub { for (1 .. $n) { local \$_; package $pack; &\$c; } }";
+        $subref  = eval $subcode;
+    }
+    else {
+	$subcode = "sub { for (1 .. $n) { local \$_; package $pack; $c;} }";
+        $subref  = _doeval($subcode);
+    }
+    croak "runloop unable to compile '$c': $@\ncode: $subcode\n" if $@;
+    print STDERR "runloop $n '$subcode'\n" if $Debug;
+
+    # Wait for the user timer to tick.  This makes the error range more like
+    # -0.01, +0.  If we don't wait, then it's more like -0.01, +0.01.  This
+    # may not seem important, but it significantly reduces the chances of
+    # getting a too low initial $n in the initial, 'find the minimum' loop
+    # in &countit.  This, in turn, can reduce the number of calls to
+    # &runloop a lot, and thus reduce additive errors.
+    #
+    # Note that its possible for the act of reading the system clock to
+    # burn lots of system CPU while we burn very little user clock in the
+    # busy loop, which can cause the loop to run for a very long wall time.
+    # So gradually ramp up the duration of the loop. See RT #122003
+    #
+    my $tbase = Benchmark->new(0)->[1];
+    my $limit = 1;
+    while ( ( $t0 = Benchmark->new(0) )->[1] == $tbase ) {
+        for (my $i=0; $i < $limit; $i++) { my $x = $i / 1.5 } # burn user CPU
+        $limit *= 1.1;
+    }
+    $subref->();
+    $t1 = Benchmark->new($n);
+    $td = &timediff($t1, $t0);
+    timedebug("runloop:",$td);
+    $td;
+}
+
+$_Usage{timeit} = <<'USAGE';
+usage: $result = timeit($count, 'code' );        or
+       $result = timeit($count, sub { code } );
+USAGE
+
+sub timeit {
+    my($n, $code) = @_;
+    my($wn, $wc, $wd);
+
+    die usage unless defined $code and
+                     (!ref $code or ref $code eq 'CODE');
+
+    printf STDERR "timeit $n $code\n" if $Debug;
+    my $cache_key = $n . ( ref( $code ) ? 'c' : 's' );
+    if ($Do_Cache && exists $Cache{$cache_key} ) {
+	$wn = $Cache{$cache_key};
+    } else {
+	$wn = &runloop($n, ref( $code ) ? sub { } : '' );
+	# Can't let our baseline have any iterations, or they get subtracted
+	# out of the result.
+	$wn->[5] = 0;
+	$Cache{$cache_key} = $wn;
+    }
+
+    $wc = &runloop($n, $code);
+
+    $wd = timediff($wc, $wn);
+    timedebug("timeit: ",$wc);
+    timedebug("      - ",$wn);
+    timedebug("      = ",$wd);
+
+    $wd;
+}
+
+
+my $default_for = 3;
+my $min_for     = 0.1;
+
+
+$_Usage{countit} = <<'USAGE';
+usage: $result = countit($time, 'code' );        or
+       $result = countit($time, sub { code } );
+USAGE
+
+sub countit {
+    my ( $tmax, $code ) = @_;
+
+    die usage unless @_;
+
+    if ( not defined $tmax or $tmax == 0 ) {
+	$tmax = $default_for;
+    } elsif ( $tmax < 0 ) {
+	$tmax = -$tmax;
+    }
+
+    die "countit($tmax, ...): timelimit cannot be less than $min_for.\n"
+	if $tmax < $min_for;
+
+    my ($n, $tc);
+
+    # First find the minimum $n that gives a significant timing.
+    my $zeros=0;
+    for ($n = 1; ; $n *= 2 ) {
+	my $t0 = Benchmark->new(0);
+	my $td = timeit($n, $code);
+	my $t1 = Benchmark->new(0);
+	$tc = $td->[1] + $td->[2];
+	if ( $tc <= 0 and $n > 1024 ) {
+	    my $d = timediff($t1, $t0);
+	    # note that $d is the total CPU time taken to call timeit(),
+	    # while $tc is is difference in CPU secs between the empty run
+	    # and the code run. If the code is trivial, its possible
+	    # for $d to get large while $tc is still zero (or slightly
+	    # negative). Bail out once timeit() starts taking more than a
+	    # few seconds without noticeable difference.
+	    if ($d->[1] + $d->[2] > 8
+		|| ++$zeros > 16)
+	    {
+	        die "Timing is consistently zero in estimation loop, cannot benchmark. N=$n\n";
+            }
+	} else {
+	    $zeros = 0;
+	}
+	last if $tc > 0.1;
+    }
+
+    my $nmin = $n;
+
+    # Get $n high enough that we can guess the final $n with some accuracy.
+    my $tpra = 0.1 * $tmax; # Target/time practice.
+    while ( $tc < $tpra ) {
+	# The 5% fudge is to keep us from iterating again all
+	# that often (this speeds overall responsiveness when $tmax is big
+	# and we guess a little low).  This does not noticeably affect
+	# accuracy since we're not counting these times.
+	$n = int( $tpra * 1.05 * $n / $tc ); # Linear approximation.
+	my $td = timeit($n, $code);
+	my $new_tc = $td->[1] + $td->[2];
+        # Make sure we are making progress.
+        $tc = $new_tc > 1.2 * $tc ? $new_tc : 1.2 * $tc;
+    }
+
+    # Now, do the 'for real' timing(s), repeating until we exceed
+    # the max.
+    my $ntot  = 0;
+    my $rtot  = 0;
+    my $utot  = 0.0;
+    my $stot  = 0.0;
+    my $cutot = 0.0;
+    my $cstot = 0.0;
+    my $ttot  = 0.0;
+
+    # The 5% fudge is because $n is often a few % low even for routines
+    # with stable times and avoiding extra timeit()s is nice for
+    # accuracy's sake.
+    $n = int( $n * ( 1.05 * $tmax / $tc ) );
+    $zeros=0;
+    while () {
+	my $td = timeit($n, $code);
+	$ntot  += $n;
+	$rtot  += $td->[0];
+	$utot  += $td->[1];
+	$stot  += $td->[2];
+	$cutot += $td->[3];
+	$cstot += $td->[4];
+	$ttot = $utot + $stot;
+	last if $ttot >= $tmax;
+	if ( $ttot <= 0 ) {
+	    ++$zeros > 16
+	        and die "Timing is consistently zero, cannot benchmark. N=$n\n";
+	} else {
+	    $zeros = 0;
+	}
+        $ttot = 0.01 if $ttot < 0.01;
+	my $r = $tmax / $ttot - 1; # Linear approximation.
+	$n = int( $r * $ntot );
+	$n = $nmin if $n < $nmin;
+    }
+
+    return bless [ $rtot, $utot, $stot, $cutot, $cstot, $ntot ];
+}
+
+# --- Functions implementing high-level time-then-print utilities
+
+sub n_to_for {
+    my $n = shift;
+    return $n == 0 ? $default_for : $n < 0 ? -$n : undef;
+}
+
+$_Usage{timethis} = <<'USAGE';
+usage: $result = timethis($time, 'code' );        or
+       $result = timethis($time, sub { code } );
+USAGE
+
+sub timethis{
+    my($n, $code, $title, $style) = @_;
+    my($t, $forn);
+
+    die usage unless defined $code and
+                     (!ref $code or ref $code eq 'CODE');
+
+    if ( $n > 0 ) {
+	croak "non-integer loopcount $n, stopped" if int($n)<$n;
+	$t = timeit($n, $code);
+	$title = "timethis $n" unless defined $title;
+    } else {
+	my $fort  = n_to_for( $n );
+	$t     = countit( $fort, $code );
+	$title = "timethis for $fort" unless defined $title;
+	$forn  = $t->[-1];
+    }
+    local $| = 1;
+    $style = "" unless defined $style;
+    printf("%10s: ", $title) unless $style eq 'none';
+    print timestr($t, $style, $Default_Format),"\n" unless $style eq 'none';
+
+    $n = $forn if defined $forn;
+
+    if ($t->elapsed($style) < 0) {
+        # due to clock granularity and variable CPU speed and load,
+        # on quick code with a small number of loops, it's possible for
+        # the empty loop to appear to take longer than the real loop
+        # (e.g. 1 tick versus 0 ticks). This leads to a negative elapsed
+        # time. In this case, floor it at zero, to stop bizarre results.
+        print "            (warning: too few iterations for a reliable count)\n";
+        $t->[$_] = 0 for 1..4;
+    }
+
+    # A conservative warning to spot very silly tests.
+    # Don't assume that your benchmark is ok simply because
+    # you don't get this warning!
+    print "            (warning: too few iterations for a reliable count)\n"
+	if     $n < $Min_Count
+	    || ($t->real < 1 && $n < 1000)
+	    || $t->cpu_a < $Min_CPU;
+    $t;
+}
+
+
+$_Usage{timethese} = <<'USAGE';
+usage: timethese($count, { Name1 => 'code1', ... });        or
+       timethese($count, { Name1 => sub { code1 }, ... });
+USAGE
+
+sub timethese{
+    my($n, $alt, $style) = @_;
+    die usage unless ref $alt eq 'HASH';
+
+    my @names = sort keys %$alt;
+    $style = "" unless defined $style;
+    print "Benchmark: " unless $style eq 'none';
+    if ( $n > 0 ) {
+	croak "non-integer loopcount $n, stopped" if int($n)<$n;
+	print "timing $n iterations of" unless $style eq 'none';
+    } else {
+	print "running" unless $style eq 'none';
+    }
+    print " ", join(', ',@names) unless $style eq 'none';
+    unless ( $n > 0 ) {
+	my $for = n_to_for( $n );
+	print ", each" if $n > 1 && $style ne 'none';
+	print " for at least $for CPU seconds" unless $style eq 'none';
+    }
+    print "...\n" unless $style eq 'none';
+
+    # we could save the results in an array and produce a summary here
+    # sum, min, max, avg etc etc
+    my %results;
+    foreach my $name (@names) {
+        $results{$name} = timethis ($n, $alt -> {$name}, $name, $style);
+    }
+
+    return \%results;
+}
+
+
+$_Usage{cmpthese} = <<'USAGE';
+usage: cmpthese($count, { Name1 => 'code1', ... });        or
+       cmpthese($count, { Name1 => sub { code1 }, ... });  or
+       cmpthese($result, $style);
+USAGE
+
+sub cmpthese{
+    my ($results, $style);
+
+    # $count can be a blessed object.
+    if ( ref $_[0] eq 'HASH' ) {
+        ($results, $style) = @_;
+    }
+    else {
+        my($count, $code) = @_[0,1];
+        $style = $_[2] if defined $_[2];
+
+        die usage unless ref $code eq 'HASH';
+
+        $results = timethese($count, $code, ($style || "none"));
+    }
+
+    $style = "" unless defined $style;
+
+    # Flatten in to an array of arrays with the name as the first field
+    my @vals = map{ [ $_, @{$results->{$_}} ] } keys %$results;
+
+    for (@vals) {
+        # recreate the pre-flattened Benchmark object
+        my $tmp_bm = bless [ @{$_}[1..$#$_] ];
+	my $elapsed = $tmp_bm->elapsed($style);
+	# The epsilon fudge here is to prevent div by 0.  Since clock
+	# resolutions are much larger, it's below the noise floor.
+	my $rate = $_->[6]/(($elapsed)+0.000000000000001);
+	$_->[7] = $rate;
+    }
+
+    # Sort by rate
+    @vals = sort { $a->[7] <=> $b->[7] } @vals;
+
+    # If more than half of the rates are greater than one...
+    my $display_as_rate = @vals ? ($vals[$#vals>>1]->[7] > 1) : 0;
+
+    my @rows;
+    my @col_widths;
+
+    my @top_row = (
+        '',
+	$display_as_rate ? 'Rate' : 's/iter',
+	map { $_->[0] } @vals
+    );
+
+    push @rows, \@top_row;
+    @col_widths = map { length( $_ ) } @top_row;
+
+    # Build the data rows
+    # We leave the last column in even though it never has any data.  Perhaps
+    # it should go away.  Also, perhaps a style for a single column of
+    # percentages might be nice.
+    for my $row_val ( @vals ) {
+	my @row;
+
+        # Column 0 = test name
+	push @row, $row_val->[0];
+	$col_widths[0] = length( $row_val->[0] )
+	    if length( $row_val->[0] ) > $col_widths[0];
+
+        # Column 1 = performance
+	my $row_rate = $row_val->[7];
+
+	# We assume that we'll never get a 0 rate.
+	my $rate = $display_as_rate ? $row_rate : 1 / $row_rate;
+
+	# Only give a few decimal places before switching to sci. notation,
+	# since the results aren't usually that accurate anyway.
+	my $format =
+	   $rate >= 100 ?
+	       "%0.0f" :
+	   $rate >= 10 ?
+	       "%0.1f" :
+	   $rate >= 1 ?
+	       "%0.2f" :
+	   $rate >= 0.1 ?
+	       "%0.3f" :
+	       "%0.2e";
+
+	$format .= "/s"
+	    if $display_as_rate;
+
+	my $formatted_rate = sprintf( $format, $rate );
+	push @row, $formatted_rate;
+	$col_widths[1] = length( $formatted_rate )
+	    if length( $formatted_rate ) > $col_widths[1];
+
+        # Columns 2..N = performance ratios
+	my $skip_rest = 0;
+	for ( my $col_num = 0 ; $col_num < @vals ; ++$col_num ) {
+	    my $col_val = $vals[$col_num];
+	    my $out;
+	    if ( $skip_rest ) {
+		$out = '';
+	    }
+	    elsif ( $col_val->[0] eq $row_val->[0] ) {
+		$out = "--";
+		# $skip_rest = 1;
+	    }
+	    else {
+		my $col_rate = $col_val->[7];
+		$out = sprintf( "%.0f%%", 100*$row_rate/$col_rate - 100 );
+	    }
+	    push @row, $out;
+	    $col_widths[$col_num+2] = length( $out )
+		if length( $out ) > $col_widths[$col_num+2];
+
+	    # A little weirdness to set the first column width properly
+	    $col_widths[$col_num+2] = length( $col_val->[0] )
+		if length( $col_val->[0] ) > $col_widths[$col_num+2];
+	}
+	push @rows, \@row;
+    }
+
+    return \@rows if $style eq "none";
+
+    # Equalize column widths in the chart as much as possible without
+    # exceeding 80 characters.  This does not use or affect cols 0 or 1.
+    my @sorted_width_refs =
+       sort { $$a <=> $$b } map { \$_ } @col_widths[2..$#col_widths];
+    my $max_width = ${$sorted_width_refs[-1]};
+
+    my $total = @col_widths - 1 ;
+    for ( @col_widths ) { $total += $_ }
+
+    STRETCHER:
+    while ( $total < 80 ) {
+	my $min_width = ${$sorted_width_refs[0]};
+	last
+	   if $min_width == $max_width;
+	for ( @sorted_width_refs ) {
+	    last
+		if $$_ > $min_width;
+	    ++$$_;
+	    ++$total;
+	    last STRETCHER
+		if $total >= 80;
+	}
+    }
+
+    # Dump the output
+    my $format = join( ' ', map { "%${_}s" } @col_widths ) . "\n";
+    substr( $format, 1, 0 ) = '-';
+    for ( @rows ) {
+	printf $format, @$_;
+    }
+
+    return \@rows ;
+}
+
+
+1;
diff --git a/lib/5.24.1/CORE.pod b/lib/5.24.1/CORE.pod
new file mode 100644
index 00000000..ce5feb59
--- /dev/null
+++ b/lib/5.24.1/CORE.pod
@@ -0,0 +1,96 @@
+=head1 NAME
+
+CORE - Namespace for Perl's core routines
+
+=head1 SYNOPSIS
+
+    BEGIN {
+        *CORE::GLOBAL::hex = sub { 1; };
+    }
+
+    print hex("0x50"),"\n";			# prints 1
+    print CORE::hex("0x50"),"\n";		# prints 80
+    CORE::say "yes";				# prints yes
+
+    BEGIN { *shove = \&CORE::push; }
+    shove @array, 1,2,3;			# pushes on to @array
+
+=head1 DESCRIPTION
+
+The C<CORE> namespace gives access to the original built-in functions of
+Perl.  The C<CORE> package is built into
+Perl, and therefore you do not need to use or
+require a hypothetical "CORE" module prior to accessing routines in this
+namespace.
+
+A list of the built-in functions in Perl can be found in L<perlfunc>.
+
+For all Perl keywords, a C<CORE::> prefix will force the built-in function
+to be used, even if it has been overridden or would normally require the
+L<feature> pragma.  Despite appearances, this has nothing to do with the
+CORE package, but is part of Perl's syntax.
+
+For many Perl functions, the CORE package contains real subroutines.  This
+feature is new in Perl 5.16.  You can take references to these and make
+aliases.  However, some can only be called as barewords; i.e., you cannot
+use ampersand syntax (C<&foo>) or call them through references.  See the
+C<shove> example above.  These subroutines exist for all keywords except the following:
+
+C<__DATA__>, C<__END__>, C<and>, C<cmp>, C<default>, C<do>, C<dump>,
+C<else>, C<elsif>, C<eq>, C<eval>, C<for>, C<foreach>, C<format>, C<ge>,
+C<given>, C<goto>, C<grep>, C<gt>, C<if>, C<last>, C<le>, C<local>, C<lt>,
+C<m>, C<map>, C<my>, C<ne>, C<next>, C<no>, C<or>, C<our>, C<package>,
+C<print>, C<printf>, C<q>, C<qq>, C<qr>, C<qw>, C<qx>, C<redo>, C<require>,
+C<return>, C<s>, C<say>, C<sort>, C<state>, C<sub>, C<tr>, C<unless>,
+C<until>, C<use>, C<when>, C<while>, C<x>, C<xor>, C<y>
+
+Calling with
+ampersand syntax and through references does not work for the following
+functions, as they have special syntax that cannot always be translated
+into a simple list (e.g., C<eof> vs C<eof()>):
+
+C<chdir>, C<chomp>, C<chop>, C<defined>, C<delete>, C<each>,
+C<eof>, C<exec>, C<exists>, C<keys>, C<lstat>, C<pop>, C<push>,
+C<shift>, C<splice>, C<split>, C<stat>, C<system>, C<truncate>,
+C<unlink>, C<unshift>, C<values>
+
+=head1 OVERRIDING CORE FUNCTIONS
+
+To override a Perl built-in routine with your own version, you need to
+import it at compile-time.  This can be conveniently achieved with the
+C<subs> pragma.  This will affect only the package in which you've imported
+the said subroutine:
+
+    use subs 'chdir';
+    sub chdir { ... }
+    chdir $somewhere;
+
+To override a built-in globally (that is, in all namespaces), you need to
+import your function into the C<CORE::GLOBAL> pseudo-namespace at compile
+time:
+
+    BEGIN {
+        *CORE::GLOBAL::hex = sub {
+            # ... your code here
+        };
+    }
+
+The new routine will be called whenever a built-in function is called
+without a qualifying package:
+
+    print hex("0x50"),"\n";			# prints 1
+
+In both cases, if you want access to the original, unaltered routine, use
+the C<CORE::> prefix:
+
+    print CORE::hex("0x50"),"\n";		# prints 80
+
+=head1 AUTHOR
+
+This documentation provided by Tels <nospam-abuse@bloodgate.com> 2007.
+
+=head1 SEE ALSO
+
+L<perlsub>, L<perlfunc>.
+
+=cut
diff --git a/lib/5.24.1/CPAN.pm b/lib/5.24.1/CPAN.pm
new file mode 100644
index 00000000..25bf3494
--- /dev/null
+++ b/lib/5.24.1/CPAN.pm
@@ -0,0 +1,3957 @@
+# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
+# vim: ts=4 sts=4 sw=4:
+use strict;
+package CPAN;
+$CPAN::VERSION = '2.11_01';
+$CPAN::VERSION =~ s/_//;
+
+# we need to run chdir all over and we would get at wrong libraries
+# there
+use File::Spec ();
+BEGIN {
+    if (File::Spec->can("rel2abs")) {
+        for my $inc (@INC) {
+            $inc = File::Spec->rel2abs($inc) unless ref $inc;
+        }
+    }
+}
+use CPAN::Author;
+use CPAN::HandleConfig;
+use CPAN::Version;
+use CPAN::Bundle;
+use CPAN::CacheMgr;
+use CPAN::Complete;
+use CPAN::Debug;
+use CPAN::Distribution;
+use CPAN::Distrostatus;
+use CPAN::FTP;
+use CPAN::Index 1.93; # https://rt.cpan.org/Ticket/Display.html?id=43349
+use CPAN::InfoObj;
+use CPAN::Module;
+use CPAN::Prompt;
+use CPAN::URL;
+use CPAN::Queue;
+use CPAN::Tarzip;
+use CPAN::DeferredCode;
+use CPAN::Shell;
+use CPAN::LWP::UserAgent;
+use CPAN::Exception::RecursiveDependency;
+use CPAN::Exception::yaml_not_installed;
+use CPAN::Exception::yaml_process_error;
+
+use Carp ();
+use Config ();
+use Cwd qw(chdir);
+use DirHandle ();
+use Exporter ();
+use ExtUtils::MakeMaker qw(prompt); # for some unknown reason,
+                                    # 5.005_04 does not work without
+                                    # this
+use File::Basename ();
+use File::Copy ();
+use File::Find;
+use File::Path ();
+use FileHandle ();
+use Fcntl qw(:flock);
+use Safe ();
+use Sys::Hostname qw(hostname);
+use Text::ParseWords ();
+use Text::Wrap ();
+
+# protect against "called too early"
+sub find_perl ();
+sub anycwd ();
+sub _uniq;
+
+no lib ".";
+
+require Mac::BuildTools if $^O eq 'MacOS';
+if ($ENV{PERL5_CPAN_IS_RUNNING} && $$ != $ENV{PERL5_CPAN_IS_RUNNING}) {
+    $ENV{PERL5_CPAN_IS_RUNNING_IN_RECURSION} ||= $ENV{PERL5_CPAN_IS_RUNNING};
+    my @rec = _uniq split(/,/, $ENV{PERL5_CPAN_IS_RUNNING_IN_RECURSION}), $$;
+    $ENV{PERL5_CPAN_IS_RUNNING_IN_RECURSION} = join ",", @rec;
+    # warn "# Note: Recursive call of CPAN.pm detected\n";
+    my $w = sprintf "# Note: CPAN.pm is running in process %d now", pop @rec;
+    my %sleep = (
+                 5 => 30,
+                 6 => 60,
+                 7 => 120,
+                );
+    my $sleep = @rec > 7 ? 300 : ($sleep{scalar @rec}||0);
+    my $verbose = @rec >= 4;
+    while (@rec) {
+        $w .= sprintf " which has been called by process %d", pop @rec;
+    }
+    if ($sleep) {
+        $w .= ".\n\n# Sleeping $sleep seconds to protect other processes\n";
+    }
+    if ($verbose) {
+        warn $w;
+    }
+    local $| = 1;
+    while ($sleep > 0) {
+        printf "\r#%5d", --$sleep;
+        sleep 1;
+    }
+    print "\n";
+}
+$ENV{PERL5_CPAN_IS_RUNNING}=$$;
+$ENV{PERL5_CPANPLUS_IS_RUNNING}=$$; # https://rt.cpan.org/Ticket/Display.html?id=23735
+
+END { $CPAN::End++; &cleanup; }
+
+$CPAN::Signal ||= 0;
+$CPAN::Frontend ||= "CPAN::Shell";
+unless (@CPAN::Defaultsites) {
+    @CPAN::Defaultsites = map {
+        CPAN::URL->new(TEXT => $_, FROM => "DEF")
+    }
+        "http://www.perl.org/CPAN/",
+        "ftp://ftp.perl.org/pub/CPAN/";
+}
+# $CPAN::iCwd (i for initial)
+$CPAN::iCwd ||= CPAN::anycwd();
+$CPAN::Perl ||= CPAN::find_perl();
+$CPAN::Defaultdocs ||= "http://search.cpan.org/perldoc?";
+$CPAN::Defaultrecent ||= "http://search.cpan.org/uploads.rdf";
+$CPAN::Defaultrecent ||= "http://cpan.uwinnipeg.ca/htdocs/cpan.xml";
+
+# our globals are getting a mess
+use vars qw(
+            $AUTOLOAD
+            $Be_Silent
+            $CONFIG_DIRTY
+            $Defaultdocs
+            $Echo_readline
+            $Frontend
+            $GOTOSHELL
+            $HAS_USABLE
+            $Have_warned
+            $MAX_RECURSION
+            $META
+            $RUN_DEGRADED
+            $Signal
+            $SQLite
+            $Suppress_readline
+            $VERSION
+            $autoload_recursion
+            $term
+            @Defaultsites
+            @EXPORT
+           );
+
+$MAX_RECURSION = 32;
+
+@CPAN::ISA = qw(CPAN::Debug Exporter);
+
+# note that these functions live in CPAN::Shell and get executed via
+# AUTOLOAD when called directly
+@EXPORT = qw(
+             autobundle
+             bundle
+             clean
+             cvs_import
+             expand
+             force
+             fforce
+             get
+             install
+             install_tested
+             is_tested
+             make
+             mkmyconfig
+             notest
+             perldoc
+             readme
+             recent
+             recompile
+             report
+             shell
+             smoke
+             test
+             upgrade
+            );
+
+sub soft_chdir_with_alternatives ($);
+
+{
+    $autoload_recursion ||= 0;
+
+    #-> sub CPAN::AUTOLOAD ;
+    sub AUTOLOAD { ## no critic
+        $autoload_recursion++;
+        my($l) = $AUTOLOAD;
+        $l =~ s/.*:://;
+        if ($CPAN::Signal) {
+            warn "Refusing to autoload '$l' while signal pending";
+            $autoload_recursion--;
+            return;
+        }
+        if ($autoload_recursion > 1) {
+            my $fullcommand = join " ", map { "'$_'" } $l, @_;
+            warn "Refusing to autoload $fullcommand in recursion\n";
+            $autoload_recursion--;
+            return;
+        }
+        my(%export);
+        @export{@EXPORT} = '';
+        CPAN::HandleConfig->load unless $CPAN::Config_loaded++;
+        if (exists $export{$l}) {
+            CPAN::Shell->$l(@_);
+        } else {
+            die(qq{Unknown CPAN command "$AUTOLOAD". }.
+                qq{Type ? for help.\n});
+        }
+        $autoload_recursion--;
+    }
+}
+
+{
+    my $x = *SAVEOUT; # avoid warning
+    open($x,">&STDOUT") or die "dup failed";
+    my $redir = 0;
+    sub _redirect(@) {
+        #die if $redir;
+        local $_;
+        push(@_,undef);
+        while(defined($_=shift)) {
+            if (s/^\s*>//){
+                my ($m) = s/^>// ? ">" : "";
+                s/\s+//;
+                $_=shift unless length;
+                die "no dest" unless defined;
+                open(STDOUT,">$m$_") or die "open:$_:$!\n";
+                $redir=1;
+            } elsif ( s/^\s*\|\s*// ) {
+                my $pipe="| $_";
+                while(defined($_[0])){
+                    $pipe .= ' ' . shift;
+                }
+                open(STDOUT,$pipe) or die "open:$pipe:$!\n";
+                $redir=1;
+            } else {
+                push(@_,$_);
+            }
+        }
+        return @_;
+    }
+    sub _unredirect {
+        return unless $redir;
+        $redir = 0;
+        ## redirect: unredirect and propagate errors.  explicit close to wait for pipe.
+        close(STDOUT);
+        open(STDOUT,">&SAVEOUT");
+        die "$@" if "$@";
+        ## redirect: done
+    }
+}
+
+sub _uniq {
+    my(@list) = @_;
+    my %seen;
+    return grep { !$seen{$_}++ } @list;
+}
+
+#-> sub CPAN::shell ;
+sub shell {
+    my($self) = @_;
+    $Suppress_readline = ! -t STDIN unless defined $Suppress_readline;
+    CPAN::HandleConfig->load unless $CPAN::Config_loaded++;
+
+    my $oprompt = shift || CPAN::Prompt->new;
+    my $prompt = $oprompt;
+    my $commandline = shift || "";
+    $CPAN::CurrentCommandId ||= 1;
+
+    local($^W) = 1;
+    unless ($Suppress_readline) {
+        require Term::ReadLine;
+        if (! $term
+            or
+            $term->ReadLine eq "Term::ReadLine::Stub"
+           ) {
+            $term = Term::ReadLine->new('CPAN Monitor');
+        }
+        if ($term->ReadLine eq "Term::ReadLine::Gnu") {
+            my $attribs = $term->Attribs;
+            $attribs->{attempted_completion_function} = sub {
+                &CPAN::Complete::gnu_cpl;
+            }
+        } else {
+            $readline::rl_completion_function =
+                $readline::rl_completion_function = 'CPAN::Complete::cpl';
+        }
+        if (my $histfile = $CPAN::Config->{'histfile'}) {{
+            unless ($term->can("AddHistory")) {
+                $CPAN::Frontend->mywarn("Terminal does not support AddHistory.\n");
+                last;
+            }
+            $META->readhist($term,$histfile);
+        }}
+        for ($CPAN::Config->{term_ornaments}) { # alias
+            local $Term::ReadLine::termcap_nowarn = 1;
+            $term->ornaments($_) if defined;
+        }
+        # $term->OUT is autoflushed anyway
+        my $odef = select STDERR;
+        $| = 1;
+        select STDOUT;
+        $| = 1;
+        select $odef;
+    }
+
+    $META->checklock();
+    my @cwd = grep { defined $_ and length $_ }
+        CPAN::anycwd(),
+              File::Spec->can("tmpdir") ? File::Spec->tmpdir() : (),
+                    File::Spec->rootdir();
+    my $try_detect_readline;
+    $try_detect_readline = $term->ReadLine eq "Term::ReadLine::Stub" if $term;
+    unless ($CPAN::Config->{inhibit_startup_message}) {
+        my $rl_avail = $Suppress_readline ? "suppressed" :
+            ($term->ReadLine ne "Term::ReadLine::Stub") ? "enabled" :
+                "available (maybe install Bundle::CPAN or Bundle::CPANxxl?)";
+        $CPAN::Frontend->myprint(
+                                 sprintf qq{
+cpan shell -- CPAN exploration and modules installation (v%s)
+Enter 'h' for help.
+
+},
+                                 $CPAN::VERSION,
+                                )
+    }
+    my($continuation) = "";
+    my $last_term_ornaments;
+  SHELLCOMMAND: while () {
+        if ($Suppress_readline) {
+            if ($Echo_readline) {
+                $|=1;
+            }
+            print $prompt;
+            last SHELLCOMMAND unless defined ($_ = <> );
+            if ($Echo_readline) {
+                # backdoor: I could not find a way to record sessions
+                print $_;
+            }
+            chomp;
+        } else {
+            last SHELLCOMMAND unless
+                defined ($_ = $term->readline($prompt, $commandline));
+        }
+        $_ = "$continuation$_" if $continuation;
+        s/^\s+//;
+        next SHELLCOMMAND if /^$/;
+        s/^\s*\?\s*/help /;
+        if (/^(?:q(?:uit)?|bye|exit)\s*$/i) {
+            last SHELLCOMMAND;
+        } elsif (s/\\$//s) {
+            chomp;
+            $continuation = $_;
+            $prompt = "    > ";
+        } elsif (/^\!/) {
+            s/^\!//;
+            my($eval) = $_;
+            package
+                CPAN::Eval; # hide from the indexer
+            use strict;
+            use vars qw($import_done);
+            CPAN->import(':DEFAULT') unless $import_done++;
+            CPAN->debug("eval[$eval]") if $CPAN::DEBUG;
+            eval($eval);
+            warn $@ if $@;
+            $continuation = "";
+            $prompt = $oprompt;
+        } elsif (/./) {
+            my(@line);
+            eval { @line = Text::ParseWords::shellwords($_) };
+            warn($@), next SHELLCOMMAND if $@;
+            warn("Text::Parsewords could not parse the line [$_]"),
+                next SHELLCOMMAND unless @line;
+            $CPAN::META->debug("line[".join("|",@line)."]") if $CPAN::DEBUG;
+            my $command = shift @line;
+            eval {
+                local (*STDOUT)=*STDOUT;
+                @line = _redirect(@line);
+                CPAN::Shell->$command(@line)
+              };
+            my $command_error = $@;
+            _unredirect;
+            my $reported_error;
+            if ($command_error) {
+                my $err = $command_error;
+                if (ref $err and $err->isa('CPAN::Exception::blocked_urllist')) {
+                    $CPAN::Frontend->mywarn("Client not fully configured, please proceed with configuring.$err");
+                    $reported_error = ref $err;
+                } else {
+                    # I'd prefer never to arrive here and make all errors exception objects
+                    if ($err =~ /\S/) {
+                        require Carp;
+                        require Dumpvalue;
+                        my $dv = Dumpvalue->new(tick => '"');
+                        Carp::cluck(sprintf "Catching error: %s", $dv->stringify($err));
+                    }
+                }
+            }
+            if ($command =~ /^(
+                             # classic commands
+                             make
+                             |test
+                             |install
+                             |clean
+
+                             # pragmas for classic commands
+                             |ff?orce
+                             |notest
+
+                             # compounds
+                             |report
+                             |smoke
+                             |upgrade
+                            )$/x) {
+                # only commands that tell us something about failed distros
+                # eval necessary for people without an urllist
+                eval {CPAN::Shell->failed($CPAN::CurrentCommandId,1);};
+                if (my $err = $@) {
+                    unless (ref $err and $reported_error eq ref $err) {
+                        die $@;
+                    }
+                }
+            }
+            soft_chdir_with_alternatives(\@cwd);
+            $CPAN::Frontend->myprint("\n");
+            $continuation = "";
+            $CPAN::CurrentCommandId++;
+            $prompt = $oprompt;
+        }
+    } continue {
+        $commandline = ""; # I do want to be able to pass a default to
+                           # shell, but on the second command I see no
+                           # use in that
+        $Signal=0;
+        CPAN::Queue->nullify_queue;
+        if ($try_detect_readline) {
+            if ($CPAN::META->has_inst("Term::ReadLine::Gnu")
+                ||
+                $CPAN::META->has_inst("Term::ReadLine::Perl")
+            ) {
+                delete $INC{"Term/ReadLine.pm"};
+                my $redef = 0;
+                local($SIG{__WARN__}) = CPAN::Shell::paintdots_onreload(\$redef);
+                require Term::ReadLine;
+                $CPAN::Frontend->myprint("\n$redef subroutines in ".
+                                         "Term::ReadLine redefined\n");
+                $GOTOSHELL = 1;
+            }
+        }
+        if ($term and $term->can("ornaments")) {
+            for ($CPAN::Config->{term_ornaments}) { # alias
+                if (defined $_) {
+                    if (not defined $last_term_ornaments
+                        or $_ != $last_term_ornaments
+                    ) {
+                        local $Term::ReadLine::termcap_nowarn = 1;
+                        $term->ornaments($_);
+                        $last_term_ornaments = $_;
+                    }
+                } else {
+                    undef $last_term_ornaments;
+                }
+            }
+        }
+        for my $class (qw(Module Distribution)) {
+            # again unsafe meta access?
+            for my $dm (keys %{$CPAN::META->{readwrite}{"CPAN::$class"}}) {
+                next unless $CPAN::META->{readwrite}{"CPAN::$class"}{$dm}{incommandcolor};
+                CPAN->debug("BUG: $class '$dm' was in command state, resetting");
+                delete $CPAN::META->{readwrite}{"CPAN::$class"}{$dm}{incommandcolor};
+            }
+        }
+        if ($GOTOSHELL) {
+            $GOTOSHELL = 0; # not too often
+            $META->savehist if $CPAN::term && $CPAN::term->can("GetHistory");
+            @_ = ($oprompt,"");
+            goto &shell;
+        }
+    }
+    soft_chdir_with_alternatives(\@cwd);
+}
+
+#-> CPAN::soft_chdir_with_alternatives ;
+sub soft_chdir_with_alternatives ($) {
+    my($cwd) = @_;
+    unless (@$cwd) {
+        my $root = File::Spec->rootdir();
+        $CPAN::Frontend->mywarn(qq{Warning: no good directory to chdir to!
+Trying '$root' as temporary haven.
+});
+        push @$cwd, $root;
+    }
+    while () {
+        if (chdir $cwd->[0]) {
+            return;
+        } else {
+            if (@$cwd>1) {
+                $CPAN::Frontend->mywarn(qq{Could not chdir to "$cwd->[0]": $!
+Trying to chdir to "$cwd->[1]" instead.
+});
+                shift @$cwd;
+            } else {
+                $CPAN::Frontend->mydie(qq{Could not chdir to "$cwd->[0]": $!});
+            }
+        }
+    }
+}
+
+sub _flock {
+    my($fh,$mode) = @_;
+    if ( $Config::Config{d_flock} || $Config::Config{d_fcntl_can_lock} ) {
+        return flock $fh, $mode;
+    } elsif (!$Have_warned->{"d_flock"}++) {
+        $CPAN::Frontend->mywarn("Your OS does not seem to support locking; continuing and ignoring all locking issues\n");
+        $CPAN::Frontend->mysleep(5);
+        return 1;
+    } else {
+        return 1;
+    }
+}
+
+sub _yaml_module () {
+    my $yaml_module = $CPAN::Config->{yaml_module} || "YAML";
+    if (
+        $yaml_module ne "YAML"
+        &&
+        !$CPAN::META->has_inst($yaml_module)
+       ) {
+        # $CPAN::Frontend->mywarn("'$yaml_module' not installed, falling back to 'YAML'\n");
+        $yaml_module = "YAML";
+    }
+    if ($yaml_module eq "YAML"
+        &&
+        $CPAN::META->has_inst($yaml_module)
+        &&
+        $YAML::VERSION < 0.60
+        &&
+        !$Have_warned->{"YAML"}++
+       ) {
+        $CPAN::Frontend->mywarn("Warning: YAML version '$YAML::VERSION' is too low, please upgrade!\n".
+                                "I'll continue but problems are *very* likely to happen.\n"
+                               );
+        $CPAN::Frontend->mysleep(5);
+    }
+    return $yaml_module;
+}
+
+# CPAN::_yaml_loadfile
+sub _yaml_loadfile {
+    my($self,$local_file) = @_;
+    return +[] unless -s $local_file;
+    my $yaml_module = _yaml_module;
+    if ($CPAN::META->has_inst($yaml_module)) {
+        # temporarily enable yaml code deserialisation
+        no strict 'refs';
+        # 5.6.2 could not do the local() with the reference
+        # so we do it manually instead
+        my $old_loadcode = ${"$yaml_module\::LoadCode"};
+        ${ "$yaml_module\::LoadCode" } = $CPAN::Config->{yaml_load_code} || 0;
+
+        my ($code, @yaml);
+        if ($code = UNIVERSAL::can($yaml_module, "LoadFile")) {
+            eval { @yaml = $code->($local_file); };
+            if ($@) {
+                # this shall not be done by the frontend
+                die CPAN::Exception::yaml_process_error->new($yaml_module,$local_file,"parse",$@);
+            }
+        } elsif ($code = UNIVERSAL::can($yaml_module, "Load")) {
+            local *FH;
+            open FH, $local_file or die "Could not open '$local_file': $!";
+            local $/;
+            my $ystream = <FH>;
+            eval { @yaml = $code->($ystream); };
+            if ($@) {
+                # this shall not be done by the frontend
+                die CPAN::Exception::yaml_process_error->new($yaml_module,$local_file,"parse",$@);
+            }
+        }
+        ${"$yaml_module\::LoadCode"} = $old_loadcode;
+        return \@yaml;
+    } else {
+        # this shall not be done by the frontend
+        die CPAN::Exception::yaml_not_installed->new($yaml_module, $local_file, "parse");
+    }
+    return +[];
+}
+
+# CPAN::_yaml_dumpfile
+sub _yaml_dumpfile {
+    my($self,$local_file,@what) = @_;
+    my $yaml_module = _yaml_module;
+    if ($CPAN::META->has_inst($yaml_module)) {
+        my $code;
+        if (UNIVERSAL::isa($local_file, "FileHandle")) {
+            $code = UNIVERSAL::can($yaml_module, "Dump");
+            eval { print $local_file $code->(@what) };
+        } elsif ($code = UNIVERSAL::can($yaml_module, "DumpFile")) {
+            eval { $code->($local_file,@what); };
+        } elsif ($code = UNIVERSAL::can($yaml_module, "Dump")) {
+            local *FH;
+            open FH, ">$local_file" or die "Could not open '$local_file': $!";
+            print FH $code->(@what);
+        }
+        if ($@) {
+            die CPAN::Exception::yaml_process_error->new($yaml_module,$local_file,"dump",$@);
+        }
+    } else {
+        if (UNIVERSAL::isa($local_file, "FileHandle")) {
+            # I think this case does not justify a warning at all
+        } else {
+            die CPAN::Exception::yaml_not_installed->new($yaml_module, $local_file, "dump");
+        }
+    }
+}
+
+sub _init_sqlite () {
+    unless ($CPAN::META->has_inst("CPAN::SQLite")) {
+        $CPAN::Frontend->mywarn(qq{CPAN::SQLite not installed, trying to work without\n})
+            unless $Have_warned->{"CPAN::SQLite"}++;
+        return;
+    }
+    require CPAN::SQLite::META; # not needed since CVS version of 2006-12-17
+    $CPAN::SQLite ||= CPAN::SQLite::META->new($CPAN::META);
+}
+
+{
+    my $negative_cache = {};
+    sub _sqlite_running {
+        if ($negative_cache->{time} && time < $negative_cache->{time} + 60) {
+            # need to cache the result, otherwise too slow
+            return $negative_cache->{fact};
+        } else {
+            $negative_cache = {}; # reset
+        }
+        my $ret = $CPAN::Config->{use_sqlite} && ($CPAN::SQLite || _init_sqlite());
+        return $ret if $ret; # fast anyway
+        $negative_cache->{time} = time;
+        return $negative_cache->{fact} = $ret;
+    }
+}
+
+$META ||= CPAN->new; # In case we re-eval ourselves we need the ||
+
+# from here on only subs.
+################################################################################
+
+sub _perl_fingerprint {
+    my($self,$other_fingerprint) = @_;
+    my $dll = eval {OS2::DLLname()};
+    my $mtime_dll = 0;
+    if (defined $dll) {
+        $mtime_dll = (-f $dll ? (stat(_))[9] : '-1');
+    }
+    my $mtime_perl = (-f CPAN::find_perl ? (stat(_))[9] : '-1');
+    my $this_fingerprint = {
+                            '$^X' => CPAN::find_perl,
+                            sitearchexp => $Config::Config{sitearchexp},
+                            'mtime_$^X' => $mtime_perl,
+                            'mtime_dll' => $mtime_dll,
+                           };
+    if ($other_fingerprint) {
+        if (exists $other_fingerprint->{'stat($^X)'}) { # repair fp from rev. 1.88_57
+            $other_fingerprint->{'mtime_$^X'} = $other_fingerprint->{'stat($^X)'}[9];
+        }
+        # mandatory keys since 1.88_57
+        for my $key (qw($^X sitearchexp mtime_dll mtime_$^X)) {
+            return unless $other_fingerprint->{$key} eq $this_fingerprint->{$key};
+        }
+        return 1;
+    } else {
+        return $this_fingerprint;
+    }
+}
+
+sub suggest_myconfig () {
+  SUGGEST_MYCONFIG: if(!$INC{'CPAN/MyConfig.pm'}) {
+        $CPAN::Frontend->myprint("You don't seem to have a user ".
+                                 "configuration (MyConfig.pm) yet.\n");
+        my $new = CPAN::Shell::colorable_makemaker_prompt("Do you want to create a ".
+                                              "user configuration now? (Y/n)",
+                                              "yes");
+        if($new =~ m{^y}i) {
+            CPAN::Shell->mkmyconfig();
+            return &checklock;
+        } else {
+            $CPAN::Frontend->mydie("OK, giving up.");
+        }
+    }
+}
+
+#-> sub CPAN::all_objects ;
+sub all_objects {
+    my($mgr,$class) = @_;
+    CPAN::HandleConfig->load unless $CPAN::Config_loaded++;
+    CPAN->debug("mgr[$mgr] class[$class]") if $CPAN::DEBUG;
+    CPAN::Index->reload;
+    values %{ $META->{readwrite}{$class} }; # unsafe meta access, ok
+}
+
+# Called by shell, not in batch mode. In batch mode I see no risk in
+# having many processes updating something as installations are
+# continually checked at runtime. In shell mode I suspect it is
+# unintentional to open more than one shell at a time
+
+#-> sub CPAN::checklock ;
+sub checklock {
+    my($self) = @_;
+    my $lockfile = File::Spec->catfile($CPAN::Config->{cpan_home},".lock");
+    if (-f $lockfile && -M _ > 0) {
+        my $fh = FileHandle->new($lockfile) or
+            $CPAN::Frontend->mydie("Could not open lockfile '$lockfile': $!");
+        my $otherpid  = <$fh>;
+        my $otherhost = <$fh>;
+        $fh->close;
+        if (defined $otherpid && $otherpid) {
+            chomp $otherpid;
+        }
+        if (defined $otherhost && $otherhost) {
+            chomp $otherhost;
+        }
+        my $thishost  = hostname();
+        if (defined $otherhost && defined $thishost &&
+            $otherhost ne '' && $thishost ne '' &&
+            $otherhost ne $thishost) {
+            $CPAN::Frontend->mydie(sprintf("CPAN.pm panic: Lockfile '$lockfile'\n".
+                                           "reports other host $otherhost and other ".
+                                           "process $otherpid.\n".
+                                           "Cannot proceed.\n"));
+        } elsif ($RUN_DEGRADED) {
+            $CPAN::Frontend->mywarn("Running in downgraded mode (experimental)\n");
+        } elsif (defined $otherpid && $otherpid) {
+            return if $$ == $otherpid; # should never happen
+            $CPAN::Frontend->mywarn(
+                                    qq{
+There seems to be running another CPAN process (pid $otherpid).  Contacting...
+});
+            if (kill 0, $otherpid or $!{EPERM}) {
+                $CPAN::Frontend->mywarn(qq{Other job is running.\n});
+                my($ans) =
+                    CPAN::Shell::colorable_makemaker_prompt
+                        (qq{Shall I try to run in downgraded }.
+                        qq{mode? (Y/n)},"y");
+                if ($ans =~ /^y/i) {
+                    $CPAN::Frontend->mywarn("Running in downgraded mode (experimental).
+Please report if something unexpected happens\n");
+                    $RUN_DEGRADED = 1;
+                    for ($CPAN::Config) {
+                        # XXX
+                        # $_->{build_dir_reuse} = 0; # 2006-11-17 akoenig Why was that?
+                        $_->{commandnumber_in_prompt} = 0; # visibility
+                        $_->{histfile}       = "";  # who should win otherwise?
+                        $_->{cache_metadata} = 0;   # better would be a lock?
+                        $_->{use_sqlite}     = 0;   # better would be a write lock!
+                        $_->{auto_commit}    = 0;   # we are violent, do not persist
+                        $_->{test_report}    = 0;   # Oliver Paukstadt had sent wrong reports in degraded mode
+                    }
+                } else {
+                    $CPAN::Frontend->mydie("
+You may want to kill the other job and delete the lockfile. On UNIX try:
+    kill $otherpid
+    rm $lockfile
+");
+                }
+            } elsif (-w $lockfile) {
+                my($ans) =
+                    CPAN::Shell::colorable_makemaker_prompt
+                        (qq{Other job not responding. Shall I overwrite }.
+                        qq{the lockfile '$lockfile'? (Y/n)},"y");
+            $CPAN::Frontend->myexit("Ok, bye\n")
+                unless $ans =~ /^y/i;
+            } else {
+                Carp::croak(
+                    qq{Lockfile '$lockfile' not writable by you. }.
+                    qq{Cannot proceed.\n}.
+                    qq{    On UNIX try:\n}.
+                    qq{    rm '$lockfile'\n}.
+                    qq{  and then rerun us.\n}
+                );
+            }
+        } else {
+            $CPAN::Frontend->mydie(sprintf("CPAN.pm panic: Found invalid lockfile ".
+                                           "'$lockfile', please remove. Cannot proceed.\n"));
+        }
+    }
+    my $dotcpan = $CPAN::Config->{cpan_home};
+    eval { File::Path::mkpath($dotcpan);};
+    if ($@) {
+        # A special case at least for Jarkko.
+        my $firsterror = $@;
+        my $seconderror;
+        my $symlinkcpan;
+        if (-l $dotcpan) {
+            $symlinkcpan = readlink $dotcpan;
+            die "readlink $dotcpan failed: $!" unless defined $symlinkcpan;
+            eval { File::Path::mkpath($symlinkcpan); };
+            if ($@) {
+                $seconderror = $@;
+            } else {
+                $CPAN::Frontend->mywarn(qq{
+Working directory $symlinkcpan created.
+});
+            }
+        }
+        unless (-d $dotcpan) {
+            my $mess = qq{
+Your configuration suggests "$dotcpan" as your
+CPAN.pm working directory. I could not create this directory due
+to this error: $firsterror\n};
+            $mess .= qq{
+As "$dotcpan" is a symlink to "$symlinkcpan",
+I tried to create that, but I failed with this error: $seconderror
+} if $seconderror;
+            $mess .= qq{
+Please make sure the directory exists and is writable.
+};
+            $CPAN::Frontend->mywarn($mess);
+            return suggest_myconfig;
+        }
+    } # $@ after eval mkpath $dotcpan
+    if (0) { # to test what happens when a race condition occurs
+        for (reverse 1..10) {
+            print $_, "\n";
+            sleep 1;
+        }
+    }
+    # locking
+    if (!$RUN_DEGRADED && !$self->{LOCKFH}) {
+        my $fh;
+        unless ($fh = FileHandle->new("+>>$lockfile")) {
+            $CPAN::Frontend->mywarn(qq{
+
+Your configuration suggests that CPAN.pm should use a working
+directory of
+    $CPAN::Config->{cpan_home}
+Unfortunately we could not create the lock file
+    $lockfile
+due to '$!'.
+
+Please make sure that the configuration variable
+    \$CPAN::Config->{cpan_home}
+points to a directory where you can write a .lock file. You can set
+this variable in either a CPAN/MyConfig.pm or a CPAN/Config.pm in your
+\@INC path;
+});
+            return suggest_myconfig;
+        }
+        my $sleep = 1;
+        while (!CPAN::_flock($fh, LOCK_EX|LOCK_NB)) {
+            if ($sleep>10) {
+                $CPAN::Frontend->mydie("Giving up\n");
+            }
+            $CPAN::Frontend->mysleep($sleep++);
+            $CPAN::Frontend->mywarn("Could not lock lockfile with flock: $!; retrying\n");
+        }
+
+        seek $fh, 0, 0;
+        truncate $fh, 0;
+        $fh->autoflush(1);
+        $fh->print($$, "\n");
+        $fh->print(hostname(), "\n");
+        $self->{LOCK} = $lockfile;
+        $self->{LOCKFH} = $fh;
+    }
+    $SIG{TERM} = sub {
+        my $sig = shift;
+        &cleanup;
+        $CPAN::Frontend->mydie("Got SIG$sig, leaving");
+    };
+    $SIG{INT} = sub {
+      # no blocks!!!
+        my $sig = shift;
+        &cleanup if $Signal;
+        die "Got yet another signal" if $Signal > 1;
+        $CPAN::Frontend->mydie("Got another SIG$sig") if $Signal;
+        $CPAN::Frontend->mywarn("Caught SIG$sig, trying to continue\n");
+        $Signal++;
+    };
+
+#       From: Larry Wall <larry@wall.org>
+#       Subject: Re: deprecating SIGDIE
+#       To: perl5-porters@perl.org
+#       Date: Thu, 30 Sep 1999 14:58:40 -0700 (PDT)
+#
+#       The original intent of __DIE__ was only to allow you to substitute one
+#       kind of death for another on an application-wide basis without respect
+#       to whether you were in an eval or not.  As a global backstop, it should
+#       not be used any more lightly (or any more heavily :-) than class
+#       UNIVERSAL.  Any attempt to build a general exception model on it should
+#       be politely squashed.  Any bug that causes every eval {} to have to be
+#       modified should be not so politely squashed.
+#
+#       Those are my current opinions.  It is also my opinion that polite
+#       arguments degenerate to personal arguments far too frequently, and that
+#       when they do, it's because both people wanted it to, or at least didn't
+#       sufficiently want it not to.
+#
+#       Larry
+
+    # global backstop to cleanup if we should really die
+    $SIG{__DIE__} = \&cleanup;
+    $self->debug("Signal handler set.") if $CPAN::DEBUG;
+}
+
+#-> sub CPAN::DESTROY ;
+sub DESTROY {
+    &cleanup; # need an eval?
+}
+
+#-> sub CPAN::anycwd ;
+sub anycwd () {
+    my $getcwd;
+    $getcwd = $CPAN::Config->{'getcwd'} || 'cwd';
+    CPAN->$getcwd();
+}
+
+#-> sub CPAN::cwd ;
+sub cwd {Cwd::cwd();}
+
+#-> sub CPAN::getcwd ;
+sub getcwd {Cwd::getcwd();}
+
+#-> sub CPAN::fastcwd ;
+sub fastcwd {Cwd::fastcwd();}
+
+#-> sub CPAN::getdcwd ;
+sub getdcwd {Cwd::getdcwd();}
+
+#-> sub CPAN::backtickcwd ;
+sub backtickcwd {my $cwd = `cwd`; chomp $cwd; $cwd}
+
+# Adapted from Probe::Perl
+#-> sub CPAN::_perl_is_same
+sub _perl_is_same {
+  my ($perl) = @_;
+  return MM->maybe_command($perl)
+    && `$perl -MConfig=myconfig -e print -e myconfig` eq Config->myconfig;
+}
+
+# Adapted in part from Probe::Perl
+#-> sub CPAN::find_perl ;
+sub find_perl () {
+    if ( File::Spec->file_name_is_absolute($^X) ) {
+        return $^X;
+    }
+    else {
+        my $exe = $Config::Config{exe_ext};
+        my @candidates = (
+            File::Spec->catfile($CPAN::iCwd,$^X),
+            $Config::Config{'perlpath'},
+        );
+        for my $perl_name ($^X, 'perl', 'perl5', "perl$]") {
+            for my $path (File::Spec->path(), $Config::Config{'binexp'}) {
+                if ( defined($path) && length $path && -d $path ) {
+                    my $perl = File::Spec->catfile($path,$perl_name);
+                    push @candidates, $perl;
+                    # try with extension if not provided already
+                    if ($^O eq 'VMS') {
+                        # VMS might have a file version at the end
+                        push @candidates, $perl . $exe
+                            unless $perl =~ m/$exe(;\d+)?$/i;
+                    } elsif (defined $exe && length $exe) {
+                        push @candidates, $perl . $exe
+                            unless $perl =~ m/$exe$/i;
+                    }
+                }
+            }
+        }
+        for my $perl ( @candidates ) {
+            if (MM->maybe_command($perl) && _perl_is_same($perl)) {
+                $^X = $perl;
+                return $perl;
+            }
+        }
+    }
+    return $^X; # default fall back
+}
+
+#-> sub CPAN::exists ;
+sub exists {
+    my($mgr,$class,$id) = @_;
+    CPAN::HandleConfig->load unless $CPAN::Config_loaded++;
+    CPAN::Index->reload;
+    ### Carp::croak "exists called without class argument" unless $class;
+    $id ||= "";
+    $id =~ s/:+/::/g if $class eq "CPAN::Module";
+    my $exists;
+    if (CPAN::_sqlite_running) {
+        $exists = (exists $META->{readonly}{$class}{$id} or
+                   $CPAN::SQLite->set($class, $id));
+    } else {
+        $exists =  exists $META->{readonly}{$class}{$id};
+    }
+    $exists ||= exists $META->{readwrite}{$class}{$id}; # unsafe meta access, ok
+}
+
+#-> sub CPAN::delete ;
+sub delete {
+  my($mgr,$class,$id) = @_;
+  delete $META->{readonly}{$class}{$id}; # unsafe meta access, ok
+  delete $META->{readwrite}{$class}{$id}; # unsafe meta access, ok
+}
+
+#-> sub CPAN::has_usable
+# has_inst is sometimes too optimistic, we should replace it with this
+# has_usable whenever a case is given
+sub has_usable {
+    my($self,$mod,$message) = @_;
+    return 1 if $HAS_USABLE->{$mod};
+    my $has_inst = $self->has_inst($mod,$message);
+    return unless $has_inst;
+    my $usable;
+    $usable = {
+
+               #
+               # these subroutines die if they believe the installed version is unusable;
+               #
+               'CPAN::Meta' => [
+                            sub {
+                                require CPAN::Meta;
+                                unless (CPAN::Version->vge(CPAN::Meta->VERSION, 2.110350)) {
+                                    for ("Will not use CPAN::Meta, need version 2.110350\n") {
+                                        $CPAN::Frontend->mywarn($_);
+                                        die $_;
+                                    }
+                                }
+                            },
+                           ],
+
+               'CPAN::Meta::Requirements' => [
+                            sub {
+                                require CPAN::Meta::Requirements;
+                                unless (CPAN::Version->vge(CPAN::Meta::Requirements->VERSION, 2.120920)) {
+                                    for ("Will not use CPAN::Meta::Requirements, need version 2.120920\n") {
+                                        $CPAN::Frontend->mywarn($_);
+                                        die $_;
+                                    }
+                                }
+                            },
+                           ],
+
+               LWP => [ # we frequently had "Can't locate object
+                        # method "new" via package "LWP::UserAgent" at
+                        # (eval 69) line 2006
+                       sub {require LWP},
+                       sub {require LWP::UserAgent},
+                       sub {require HTTP::Request},
+                       sub {require URI::URL;
+                            unless (CPAN::Version->vge(URI::URL::->VERSION,0.08)) {
+                                for ("Will not use URI::URL, need 0.08\n") {
+                                    $CPAN::Frontend->mywarn($_);
+                                    die $_;
+                                }
+                            }
+                       },
+                      ],
+               'Net::FTP' => [
+                            sub {require Net::FTP},
+                            sub {require Net::Config},
+                           ],
+               'HTTP::Tiny' => [
+                            sub {
+                                require HTTP::Tiny;
+                                unless (CPAN::Version->vge(HTTP::Tiny->VERSION, 0.005)) {
+                                    for ("Will not use HTTP::Tiny, need version 0.005\n") {
+                                        $CPAN::Frontend->mywarn($_);
+                                        die $_;
+                                    }
+                                }
+                            },
+                           ],
+               'File::HomeDir' => [
+                                   sub {require File::HomeDir;
+                                        unless (CPAN::Version->vge(File::HomeDir::->VERSION, 0.52)) {
+                                            for ("Will not use File::HomeDir, need 0.52\n") {
+                                                $CPAN::Frontend->mywarn($_);
+                                                die $_;
+                                            }
+                                        }
+                                    },
+                                  ],
+               'Archive::Tar' => [
+                                  sub {require Archive::Tar;
+                                       my $demand = "1.50";
+                                       unless (CPAN::Version->vge(Archive::Tar::->VERSION, $demand)) {
+                                            my $atv = Archive::Tar->VERSION;
+                                            for ("You have Archive::Tar $atv, but $demand or later is recommended. Please upgrade.\n") {
+                                                $CPAN::Frontend->mywarn($_);
+                                            # don't die, because we may need
+                                            # Archive::Tar to upgrade
+                                            }
+
+                                       }
+                                  },
+                                 ],
+               'File::Temp' => [
+                                # XXX we should probably delete from
+                                # %INC too so we can load after we
+                                # installed a new enough version --
+                                # I'm not sure.
+                                sub {require File::Temp;
+                                     unless (CPAN::Version->vge(File::Temp::->VERSION,0.16)) {
+                                         for ("Will not use File::Temp, need 0.16\n") {
+                                                $CPAN::Frontend->mywarn($_);
+                                                die $_;
+                                         }
+                                     }
+                                },
+                               ]
+              };
+    if ($usable->{$mod}) {
+        local @INC = @INC;
+        pop @INC if $INC[-1] eq '.';
+        for my $c (0..$#{$usable->{$mod}}) {
+            my $code = $usable->{$mod}[$c];
+            my $ret = eval { &$code() };
+            $ret = "" unless defined $ret;
+            if ($@) {
+                # warn "DEBUG: c[$c]\$\@[$@]ret[$ret]";
+                return;
+            }
+        }
+    }
+    return $HAS_USABLE->{$mod} = 1;
+}
+
+sub frontend {
+    shift;
+    $CPAN::Frontend = shift if @_;
+    $CPAN::Frontend;
+}
+
+sub use_inst {
+    my ($self, $module) = @_;
+
+    unless ($self->has_inst($module)) {
+        $self->frontend->mydie("$module not installed, cannot continue");
+    }
+}
+
+#-> sub CPAN::has_inst
+sub has_inst {
+    my($self,$mod,$message) = @_;
+    Carp::croak("CPAN->has_inst() called without an argument")
+        unless defined $mod;
+    my %dont = map { $_ => 1 } keys %{$CPAN::META->{dontload_hash}||{}},
+        keys %{$CPAN::Config->{dontload_hash}||{}},
+            @{$CPAN::Config->{dontload_list}||[]};
+    if (defined $message && $message eq "no"  # as far as I remember only used by Nox
+        ||
+        $dont{$mod}
+       ) {
+      $CPAN::META->{dontload_hash}{$mod}||=1; # unsafe meta access, ok
+      return 0;
+    }
+    local @INC = @INC;
+    pop @INC if $INC[-1] eq '.';
+    my $file = $mod;
+    my $obj;
+    $file =~ s|::|/|g;
+    $file .= ".pm";
+    if ($INC{$file}) {
+        # checking %INC is wrong, because $INC{LWP} may be true
+        # although $INC{"URI/URL.pm"} may have failed. But as
+        # I really want to say "blah loaded OK", I have to somehow
+        # cache results.
+        ### warn "$file in %INC"; #debug
+        return 1;
+    } elsif (eval { require $file }) {
+        # eval is good: if we haven't yet read the database it's
+        # perfect and if we have installed the module in the meantime,
+        # it tries again. The second require is only a NOOP returning
+        # 1 if we had success, otherwise it's retrying
+
+        my $mtime = (stat $INC{$file})[9];
+        # privileged files loaded by has_inst; Note: we use $mtime
+        # as a proxy for a checksum.
+        $CPAN::Shell::reload->{$file} = $mtime;
+        my $v = eval "\$$mod\::VERSION";
+        $v = $v ? " (v$v)" : "";
+        CPAN::Shell->optprint("load_module","CPAN: $mod loaded ok$v\n");
+        if ($mod eq "CPAN::WAIT") {
+            push @CPAN::Shell::ISA, 'CPAN::WAIT';
+        }
+        return 1;
+    } elsif ($mod eq "Net::FTP") {
+        $CPAN::Frontend->mywarn(qq{
+  Please, install Net::FTP as soon as possible. CPAN.pm installs it for you
+  if you just type
+      install Bundle::libnet
+
+}) unless $Have_warned->{"Net::FTP"}++;
+        $CPAN::Frontend->mysleep(3);
+    } elsif ($mod eq "Digest::SHA") {
+        if ($Have_warned->{"Digest::SHA"}++) {
+            $CPAN::Frontend->mywarn(qq{CPAN: checksum security checks disabled }.
+                                     qq{because Digest::SHA not installed.\n});
+        } else {
+            $CPAN::Frontend->mywarn(qq{
+  CPAN: checksum security checks disabled because Digest::SHA not installed.
+  Please consider installing the Digest::SHA module.
+
+});
+            $CPAN::Frontend->mysleep(2);
+        }
+    } elsif ($mod eq "Module::Signature") {
+        # NOT prefs_lookup, we are not a distro
+        my $check_sigs = $CPAN::Config->{check_sigs};
+        if (not $check_sigs) {
+            # they do not want us:-(
+        } elsif (not $Have_warned->{"Module::Signature"}++) {
+            # No point in complaining unless the user can
+            # reasonably install and use it.
+            if (eval { require Crypt::OpenPGP; 1 } ||
+                (
+                 defined $CPAN::Config->{'gpg'}
+                 &&
+                 $CPAN::Config->{'gpg'} =~ /\S/
+                )
+               ) {
+                $CPAN::Frontend->mywarn(qq{
+  CPAN: Module::Signature security checks disabled because Module::Signature
+  not installed.  Please consider installing the Module::Signature module.
+  You may also need to be able to connect over the Internet to the public
+  key servers like pool.sks-keyservers.net or pgp.mit.edu.
+
+});
+                $CPAN::Frontend->mysleep(2);
+            }
+        }
+    } else {
+        delete $INC{$file}; # if it inc'd LWP but failed during, say, URI
+    }
+    return 0;
+}
+
+#-> sub CPAN::instance ;
+sub instance {
+    my($mgr,$class,$id) = @_;
+    CPAN::Index->reload;
+    $id ||= "";
+    # unsafe meta access, ok?
+    return $META->{readwrite}{$class}{$id} if exists $META->{readwrite}{$class}{$id};
+    $META->{readwrite}{$class}{$id} ||= $class->new(ID => $id);
+}
+
+#-> sub CPAN::new ;
+sub new {
+    bless {}, shift;
+}
+
+#-> sub CPAN::_exit_messages ;
+sub _exit_messages {
+    my ($self) = @_;
+    $self->{exit_messages} ||= [];
+}
+
+#-> sub CPAN::cleanup ;
+sub cleanup {
+  # warn "cleanup called with arg[@_] End[$CPAN::End] Signal[$Signal]";
+  local $SIG{__DIE__} = '';
+  my($message) = @_;
+  my $i = 0;
+  my $ineval = 0;
+  my($subroutine);
+  while ((undef,undef,undef,$subroutine) = caller(++$i)) {
+      $ineval = 1, last if
+        $subroutine eq '(eval)';
+  }
+  return if $ineval && !$CPAN::End;
+  return unless defined $META->{LOCK};
+  return unless -f $META->{LOCK};
+  $META->savehist;
+  $META->{cachemgr} ||= CPAN::CacheMgr->new('atexit');
+  close $META->{LOCKFH};
+  unlink $META->{LOCK};
+  # require Carp;
+  # Carp::cluck("DEBUGGING");
+  if ( $CPAN::CONFIG_DIRTY ) {
+      $CPAN::Frontend->mywarn("Warning: Configuration not saved.\n");
+  }
+  $CPAN::Frontend->myprint("Lockfile removed.\n");
+  for my $msg ( @{ $META->_exit_messages } ) {
+      $CPAN::Frontend->myprint($msg);
+  }
+}
+
+#-> sub CPAN::readhist
+sub readhist {
+    my($self,$term,$histfile) = @_;
+    my $histsize = $CPAN::Config->{'histsize'} || 100;
+    $term->Attribs->{'MaxHistorySize'} = $histsize if (defined($term->Attribs->{'MaxHistorySize'}));
+    my($fh) = FileHandle->new;
+    open $fh, "<$histfile" or return;
+    local $/ = "\n";
+    while (<$fh>) {
+        chomp;
+        $term->AddHistory($_);
+    }
+    close $fh;
+}
+
+#-> sub CPAN::savehist
+sub savehist {
+    my($self) = @_;
+    my($histfile,$histsize);
+    unless ($histfile = $CPAN::Config->{'histfile'}) {
+        $CPAN::Frontend->mywarn("No history written (no histfile specified).\n");
+        return;
+    }
+    $histsize = $CPAN::Config->{'histsize'} || 100;
+    if ($CPAN::term) {
+        unless ($CPAN::term->can("GetHistory")) {
+            $CPAN::Frontend->mywarn("Terminal does not support GetHistory.\n");
+            return;
+        }
+    } else {
+        return;
+    }
+    my @h = $CPAN::term->GetHistory;
+    splice @h, 0, @h-$histsize if @h>$histsize;
+    my($fh) = FileHandle->new;
+    open $fh, ">$histfile" or $CPAN::Frontend->mydie("Couldn't open >$histfile: $!");
+    local $\ = local $, = "\n";
+    print $fh @h;
+    close $fh;
+}
+
+#-> sub CPAN::is_tested
+sub is_tested {
+    my($self,$what,$when) = @_;
+    unless ($what) {
+        Carp::cluck("DEBUG: empty what");
+        return;
+    }
+    $self->{is_tested}{$what} = $when;
+}
+
+#-> sub CPAN::reset_tested
+# forget all distributions tested -- resets what gets included in PERL5LIB
+sub reset_tested {
+    my ($self) = @_;
+    $self->{is_tested} = {};
+}
+
+#-> sub CPAN::is_installed
+# unsets the is_tested flag: as soon as the thing is installed, it is
+# not needed in set_perl5lib anymore
+sub is_installed {
+    my($self,$what) = @_;
+    delete $self->{is_tested}{$what};
+}
+
+sub _list_sorted_descending_is_tested {
+    my($self) = @_;
+    my $foul = 0;
+    my @sorted = sort
+        { ($self->{is_tested}{$b}||0) <=> ($self->{is_tested}{$a}||0) }
+            grep
+                { if ($foul){ 0 } elsif (-e) { 1 } else { $foul = $_; 0 } }
+                    keys %{$self->{is_tested}};
+    if ($foul) {
+        $CPAN::Frontend->mywarn("Lost build_dir detected ($foul), giving up all cached test results of currently running session.\n");
+        for my $dbd (keys %{$self->{is_tested}}) { # distro-build-dir
+        SEARCH: for my $d ($CPAN::META->all_objects("CPAN::Distribution")) {
+                if ($d->{build_dir} && $d->{build_dir} eq $dbd) {
+                    $CPAN::Frontend->mywarn(sprintf "Flushing cache for %s\n", $d->pretty_id);
+                    $d->fforce("");
+                    last SEARCH;
+                }
+            }
+            delete $self->{is_tested}{$dbd};
+        }
+        return ();
+    } else {
+        return @sorted;
+    }
+}
+
+#-> sub CPAN::set_perl5lib
+# Notes on max environment variable length:
+#   - Win32 : XP or later, 8191; Win2000 or NT4, 2047
+{
+my $fh;
+sub set_perl5lib {
+    my($self,$for) = @_;
+    unless ($for) {
+        (undef,undef,undef,$for) = caller(1);
+        $for =~ s/.*://;
+    }
+    $self->{is_tested} ||= {};
+    return unless %{$self->{is_tested}};
+    my $env = $ENV{PERL5LIB};
+    $env = $ENV{PERLLIB} unless defined $env;
+    my @env;
+    push @env, split /\Q$Config::Config{path_sep}\E/, $env if defined $env and length $env;
+    #my @dirs = map {("$_/blib/arch", "$_/blib/lib")} keys %{$self->{is_tested}};
+    #$CPAN::Frontend->myprint("Prepending @dirs to PERL5LIB.\n");
+
+    my @dirs = map {("$_/blib/arch", "$_/blib/lib")} $self->_list_sorted_descending_is_tested;
+    return if !@dirs;
+
+    if (@dirs < 12) {
+        $CPAN::Frontend->optprint('perl5lib', "Prepending @dirs to PERL5LIB for '$for'\n");
+        $ENV{PERL5LIB} = join $Config::Config{path_sep}, @dirs, @env;
+    } elsif (@dirs < 24 ) {
+        my @d = map {my $cp = $_;
+                     $cp =~ s/^\Q$CPAN::Config->{build_dir}\E/%BUILDDIR%/;
+                     $cp
+                 } @dirs;
+        $CPAN::Frontend->optprint('perl5lib', "Prepending @d to PERL5LIB; ".
+                                 "%BUILDDIR%=$CPAN::Config->{build_dir} ".
+                                 "for '$for'\n"
+                                );
+        $ENV{PERL5LIB} = join $Config::Config{path_sep}, @dirs, @env;
+    } else {
+        my $cnt = keys %{$self->{is_tested}};
+        $CPAN::Frontend->optprint('perl5lib', "Prepending blib/arch and blib/lib of ".
+                                 "$cnt build dirs to PERL5LIB; ".
+                                 "for '$for'\n"
+                                );
+        $ENV{PERL5LIB} = join $Config::Config{path_sep}, @dirs, @env;
+    }
+}}
+
+
+1;
+
+
+__END__
+
+=head1 NAME
+
+CPAN - query, download and build perl modules from CPAN sites
+
+=head1 SYNOPSIS
+
+Interactive mode:
+
+  perl -MCPAN -e shell
+
+--or--
+
+  cpan
+
+Basic commands:
+
+  # Modules:
+
+  cpan> install Acme::Meta                       # in the shell
+
+  CPAN::Shell->install("Acme::Meta");            # in perl
+
+  # Distributions:
+
+  cpan> install NWCLARK/Acme-Meta-0.02.tar.gz    # in the shell
+
+  CPAN::Shell->
+    install("NWCLARK/Acme-Meta-0.02.tar.gz");    # in perl
+
+  # module objects:
+
+  $mo = CPAN::Shell->expandany($mod);
+  $mo = CPAN::Shell->expand("Module",$mod);      # same thing
+
+  # distribution objects:
+
+  $do = CPAN::Shell->expand("Module",$mod)->distribution;
+  $do = CPAN::Shell->expandany($distro);         # same thing
+  $do = CPAN::Shell->expand("Distribution",
+                            $distro);            # same thing
+
+=head1 DESCRIPTION
+
+The CPAN module automates or at least simplifies the make and install
+of perl modules and extensions. It includes some primitive searching
+capabilities and knows how to use LWP, HTTP::Tiny, Net::FTP and certain
+external download clients to fetch distributions from the net.
+
+These are fetched from one or more mirrored CPAN (Comprehensive
+Perl Archive Network) sites and unpacked in a dedicated directory.
+
+The CPAN module also supports named and versioned
+I<bundles> of modules. Bundles simplify handling of sets of
+related modules. See Bundles below.
+
+The package contains a session manager and a cache manager. The
+session manager keeps track of what has been fetched, built, and
+installed in the current session. The cache manager keeps track of the
+disk space occupied by the make processes and deletes excess space
+using a simple FIFO mechanism.
+
+All methods provided are accessible in a programmer style and in an
+interactive shell style.
+
+=head2 CPAN::shell([$prompt, $command]) Starting Interactive Mode
+
+Enter interactive mode by running
+
+    perl -MCPAN -e shell
+
+or
+
+    cpan
+
+which puts you into a readline interface. If C<Term::ReadKey> and
+either of C<Term::ReadLine::Perl> or C<Term::ReadLine::Gnu> are installed,
+history and command completion are supported.
+
+Once at the command line, type C<h> for one-page help
+screen; the rest should be self-explanatory.
+
+The function call C<shell> takes two optional arguments: one the
+prompt, the second the default initial command line (the latter
+only works if a real ReadLine interface module is installed).
+
+The most common uses of the interactive modes are
+
+=over 2
+
+=item Searching for authors, bundles, distribution files and modules
+
+There are corresponding one-letter commands C<a>, C<b>, C<d>, and C<m>
+for each of the four categories and another, C<i> for any of the
+mentioned four. Each of the four entities is implemented as a class
+with slightly differing methods for displaying an object.
+
+Arguments to these commands are either strings exactly matching
+the identification string of an object, or regular expressions
+matched case-insensitively against various attributes of the
+objects. The parser only recognizes a regular expression when you
+enclose it with slashes.
+
+The principle is that the number of objects found influences how an
+item is displayed. If the search finds one item, the result is
+displayed with the rather verbose method C<as_string>, but if
+more than one is found, each object is displayed with the terse method
+C<as_glimpse>.
+
+Examples:
+
+  cpan> m Acme::MetaSyntactic
+  Module id = Acme::MetaSyntactic
+      CPAN_USERID  BOOK (Philippe Bruhat (BooK) <[...]>)
+      CPAN_VERSION 0.99
+      CPAN_FILE    B/BO/BOOK/Acme-MetaSyntactic-0.99.tar.gz
+      UPLOAD_DATE  2006-11-06
+      MANPAGE      Acme::MetaSyntactic - Themed metasyntactic variables names
+      INST_FILE    /usr/local/lib/perl/5.10.0/Acme/MetaSyntactic.pm
+      INST_VERSION 0.99
+  cpan> a BOOK
+  Author id = BOOK
+      EMAIL        [...]
+      FULLNAME     Philippe Bruhat (BooK)
+  cpan> d BOOK/Acme-MetaSyntactic-0.99.tar.gz
+  Distribution id = B/BO/BOOK/Acme-MetaSyntactic-0.99.tar.gz
+      CPAN_USERID  BOOK (Philippe Bruhat (BooK) <[...]>)
+      CONTAINSMODS Acme::MetaSyntactic Acme::MetaSyntactic::Alias [...]
+      UPLOAD_DATE  2006-11-06
+  cpan> m /lorem/
+  Module  = Acme::MetaSyntactic::loremipsum (BOOK/Acme-MetaSyntactic-0.99.tar.gz)
+  Module    Text::Lorem            (ADEOLA/Text-Lorem-0.3.tar.gz)
+  Module    Text::Lorem::More      (RKRIMEN/Text-Lorem-More-0.12.tar.gz)
+  Module    Text::Lorem::More::Source (RKRIMEN/Text-Lorem-More-0.12.tar.gz)
+  cpan> i /berlin/
+  Distribution    BEATNIK/Filter-NumberLines-0.02.tar.gz
+  Module  = DateTime::TimeZone::Europe::Berlin (DROLSKY/DateTime-TimeZone-0.7904.tar.gz)
+  Module    Filter::NumberLines    (BEATNIK/Filter-NumberLines-0.02.tar.gz)
+  Author          [...]
+
+The examples illustrate several aspects: the first three queries
+target modules, authors, or distros directly and yield exactly one
+result. The last two use regular expressions and yield several
+results. The last one targets all of bundles, modules, authors, and
+distros simultaneously. When more than one result is available, they
+are printed in one-line format.
+
+=item C<get>, C<make>, C<test>, C<install>, C<clean> modules or distributions
+
+These commands take any number of arguments and investigate what is
+necessary to perform the action. Argument processing is as follows:
+
+  known module name in format Foo/Bar.pm   module
+  other embedded slash                     distribution
+    - with trailing slash dot              directory
+  enclosing slashes                        regexp
+  known module name in format Foo::Bar     module
+
+If the argument is a distribution file name (recognized by embedded
+slashes), it is processed. If it is a module, CPAN determines the
+distribution file in which this module is included and processes that,
+following any dependencies named in the module's META.yml or
+Makefile.PL (this behavior is controlled by the configuration
+parameter C<prerequisites_policy>). If an argument is enclosed in
+slashes it is treated as a regular expression: it is expanded and if
+the result is a single object (distribution, bundle or module), this
+object is processed.
+
+Example:
+
+    install Dummy::Perl                   # installs the module
+    install AUXXX/Dummy-Perl-3.14.tar.gz  # installs that distribution
+    install /Dummy-Perl-3.14/             # same if the regexp is unambiguous
+
+C<get> downloads a distribution file and untars or unzips it, C<make>
+builds it, C<test> runs the test suite, and C<install> installs it.
+
+Any C<make> or C<test> is run unconditionally. An
+
+  install <distribution_file>
+
+is also run unconditionally. But for
+
+  install <module>
+
+CPAN checks whether an install is needed and prints
+I<module up to date> if the distribution file containing
+the module doesn't need updating.
+
+CPAN also keeps track of what it has done within the current session
+and doesn't try to build a package a second time regardless of whether it
+succeeded or not. It does not repeat a test run if the test
+has been run successfully before. Same for install runs.
+
+The C<force> pragma may precede another command (currently: C<get>,
+C<make>, C<test>, or C<install>) to execute the command from scratch
+and attempt to continue past certain errors. See the section below on
+the C<force> and the C<fforce> pragma.
+
+The C<notest> pragma skips the test part in the build
+process.
+
+Example:
+
+    cpan> notest install Tk
+
+A C<clean> command results in a
+
+  make clean
+
+being executed within the distribution file's working directory.
+
+=item C<readme>, C<perldoc>, C<look> module or distribution
+
+C<readme> displays the README file of the associated distribution.
+C<Look> gets and untars (if not yet done) the distribution file,
+changes to the appropriate directory and opens a subshell process in
+that directory. C<perldoc> displays the module's pod documentation
+in html or plain text format.
+
+=item C<ls> author
+
+=item C<ls> globbing_expression
+
+The first form lists all distribution files in and below an author's
+CPAN directory as stored in the CHECKSUMS files distributed on
+CPAN. The listing recurses into subdirectories.
+
+The second form limits or expands the output with shell
+globbing as in the following examples:
+
+      ls JV/make*
+      ls GSAR/*make*
+      ls */*make*
+
+The last example is very slow and outputs extra progress indicators
+that break the alignment of the result.
+
+Note that globbing only lists directories explicitly asked for, for
+example FOO/* will not list FOO/bar/Acme-Sthg-n.nn.tar.gz. This may be
+regarded as a bug that may be changed in some future version.
+
+=item C<failed>
+
+The C<failed> command reports all distributions that failed on one of
+C<make>, C<test> or C<install> for some reason in the currently
+running shell session.
+
+=item Persistence between sessions
+
+If the C<YAML> or the C<YAML::Syck> module is installed a record of
+the internal state of all modules is written to disk after each step.
+The files contain a signature of the currently running perl version
+for later perusal.
+
+If the configurations variable C<build_dir_reuse> is set to a true
+value, then CPAN.pm reads the collected YAML files. If the stored
+signature matches the currently running perl, the stored state is
+loaded into memory such that persistence between sessions
+is effectively established.
+
+=item The C<force> and the C<fforce> pragma
+
+To speed things up in complex installation scenarios, CPAN.pm keeps
+track of what it has already done and refuses to do some things a
+second time. A C<get>, a C<make>, and an C<install> are not repeated.
+A C<test> is repeated only if the previous test was unsuccessful. The
+diagnostic message when CPAN.pm refuses to do something a second time
+is one of I<Has already been >C<unwrapped|made|tested successfully> or
+something similar. Another situation where CPAN refuses to act is an
+C<install> if the corresponding C<test> was not successful.
+
+In all these cases, the user can override this stubborn behaviour by
+prepending the command with the word force, for example:
+
+  cpan> force get Foo
+  cpan> force make AUTHOR/Bar-3.14.tar.gz
+  cpan> force test Baz
+  cpan> force install Acme::Meta
+
+Each I<forced> command is executed with the corresponding part of its
+memory erased.
+
+The C<fforce> pragma is a variant that emulates a C<force get> which
+erases the entire memory followed by the action specified, effectively
+restarting the whole get/make/test/install procedure from scratch.
+
+=item Lockfile
+
+Interactive sessions maintain a lockfile, by default C<~/.cpan/.lock>.
+Batch jobs can run without a lockfile and not disturb each other.
+
+The shell offers to run in I<downgraded mode> when another process is
+holding the lockfile. This is an experimental feature that is not yet
+tested very well. This second shell then does not write the history
+file, does not use the metadata file, and has a different prompt.
+
+=item Signals
+
+CPAN.pm installs signal handlers for SIGINT and SIGTERM. While you are
+in the cpan-shell, it is intended that you can press C<^C> anytime and
+return to the cpan-shell prompt. A SIGTERM will cause the cpan-shell
+to clean up and leave the shell loop. You can emulate the effect of a
+SIGTERM by sending two consecutive SIGINTs, which usually means by
+pressing C<^C> twice.
+
+CPAN.pm ignores SIGPIPE. If the user sets C<inactivity_timeout>, a
+SIGALRM is used during the run of the C<perl Makefile.PL> or C<perl
+Build.PL> subprocess. A SIGALRM is also used during module version
+parsing, and is controlled by C<version_timeout>.
+
+=back
+
+=head2 CPAN::Shell
+
+The commands available in the shell interface are methods in
+the package CPAN::Shell. If you enter the shell command, your
+input is split by the Text::ParseWords::shellwords() routine, which
+acts like most shells do. The first word is interpreted as the
+method to be invoked, and the rest of the words are treated as the method's arguments.
+Continuation lines are supported by ending a line with a
+literal backslash.
+
+=head2 autobundle
+
+C<autobundle> writes a bundle file into the
+C<$CPAN::Config-E<gt>{cpan_home}/Bundle> directory. The file contains
+a list of all modules that are both available from CPAN and currently
+installed within @INC. Duplicates of each distribution are suppressed.
+The name of the bundle file is based on the current date and a
+counter, e.g. F<Bundle/Snapshot_2012_05_21_00.pm>. This is installed
+again by running C<cpan Bundle::Snapshot_2012_05_21_00>, or installing
+C<Bundle::Snapshot_2012_05_21_00> from the CPAN shell.
+
+Return value: path to the written file.
+
+=head2 hosts
+
+Note: this feature is still in alpha state and may change in future
+versions of CPAN.pm
+
+This commands provides a statistical overview over recent download
+activities. The data for this is collected in the YAML file
+C<FTPstats.yml> in your C<cpan_home> directory. If no YAML module is
+configured or YAML not installed, no stats are provided.
+
+=over
+
+=item install_tested
+
+Install all distributions that have been tested successfully but have
+not yet been installed. See also C<is_tested>.
+
+=item is_tested
+
+List all build directories of distributions that have been tested
+successfully but have not yet been installed. See also
+C<install_tested>.
+
+=back
+
+=head2 mkmyconfig
+
+mkmyconfig() writes your own CPAN::MyConfig file into your C<~/.cpan/>
+directory so that you can save your own preferences instead of the
+system-wide ones.
+
+=head2 r [Module|/Regexp/]...
+
+scans current perl installation for modules that have a newer version
+available on CPAN and provides a list of them. If called without
+argument, all potential upgrades are listed; if called with arguments
+the list is filtered to the modules and regexps given as arguments.
+
+The listing looks something like this:
+
+  Package namespace         installed    latest  in CPAN file
+  CPAN                        1.94_64    1.9600  ANDK/CPAN-1.9600.tar.gz
+  CPAN::Reporter               1.1801    1.1902  DAGOLDEN/CPAN-Reporter-1.1902.tar.gz
+  YAML                           0.70      0.73  INGY/YAML-0.73.tar.gz
+  YAML::Syck                     1.14      1.17  AVAR/YAML-Syck-1.17.tar.gz
+  YAML::Tiny                     1.44      1.50  ADAMK/YAML-Tiny-1.50.tar.gz
+  CGI                            3.43      3.55  MARKSTOS/CGI.pm-3.55.tar.gz
+  Module::Build::YAML            1.40      1.41  DAGOLDEN/Module-Build-0.3800.tar.gz
+  TAP::Parser::Result::YAML      3.22      3.23  ANDYA/Test-Harness-3.23.tar.gz
+  YAML::XS                       0.34      0.35  INGY/YAML-LibYAML-0.35.tar.gz
+
+It suppresses duplicates in the column C<in CPAN file> such that
+distributions with many upgradeable modules are listed only once.
+
+Note that the list is not sorted.
+
+=head2 recent ***EXPERIMENTAL COMMAND***
+
+The C<recent> command downloads a list of recent uploads to CPAN and
+displays them I<slowly>. While the command is running, a $SIG{INT}
+exits the loop after displaying the current item.
+
+B<Note>: This command requires XML::LibXML installed.
+
+B<Note>: This whole command currently is just a hack and will
+probably change in future versions of CPAN.pm, but the general
+approach will likely remain.
+
+B<Note>: See also L<smoke>
+
+=head2 recompile
+
+recompile() is a special command that takes no argument and
+runs the make/test/install cycle with brute force over all installed
+dynamically loadable extensions (a.k.a. XS modules) with 'force' in
+effect. The primary purpose of this command is to finish a network
+installation. Imagine you have a common source tree for two different
+architectures. You decide to do a completely independent fresh
+installation. You start on one architecture with the help of a Bundle
+file produced earlier. CPAN installs the whole Bundle for you, but
+when you try to repeat the job on the second architecture, CPAN
+responds with a C<"Foo up to date"> message for all modules. So you
+invoke CPAN's recompile on the second architecture and you're done.
+
+Another popular use for C<recompile> is to act as a rescue in case your
+perl breaks binary compatibility. If one of the modules that CPAN uses
+is in turn depending on binary compatibility (so you cannot run CPAN
+commands), then you should try the CPAN::Nox module for recovery.
+
+=head2 report Bundle|Distribution|Module
+
+The C<report> command temporarily turns on the C<test_report> config
+variable, then runs the C<force test> command with the given
+arguments. The C<force> pragma reruns the tests and repeats
+every step that might have failed before.
+
+=head2 smoke ***EXPERIMENTAL COMMAND***
+
+B<*** WARNING: this command downloads and executes software from CPAN to
+your computer of completely unknown status. You should never do
+this with your normal account and better have a dedicated well
+separated and secured machine to do this. ***>
+
+The C<smoke> command takes the list of recent uploads to CPAN as
+provided by the C<recent> command and tests them all. While the
+command is running $SIG{INT} is defined to mean that the current item
+shall be skipped.
+
+B<Note>: This whole command currently is just a hack and will
+probably change in future versions of CPAN.pm, but the general
+approach will likely remain.
+
+B<Note>: See also L<recent>
+
+=head2 upgrade [Module|/Regexp/]...
+
+The C<upgrade> command first runs an C<r> command with the given
+arguments and then installs the newest versions of all modules that
+were listed by that.
+
+=head2 The four C<CPAN::*> Classes: Author, Bundle, Module, Distribution
+
+Although it may be considered internal, the class hierarchy does matter
+for both users and programmer. CPAN.pm deals with the four
+classes mentioned above, and those classes all share a set of methods. Classical
+single polymorphism is in effect. A metaclass object registers all
+objects of all kinds and indexes them with a string. The strings
+referencing objects have a separated namespace (well, not completely
+separated):
+
+         Namespace                         Class
+
+   words containing a "/" (slash)      Distribution
+    words starting with Bundle::          Bundle
+          everything else            Module or Author
+
+Modules know their associated Distribution objects. They always refer
+to the most recent official release. Developers may mark their releases
+as unstable development versions (by inserting an underscore into the
+module version number which will also be reflected in the distribution
+name when you run 'make dist'), so the really hottest and newest
+distribution is not always the default.  If a module Foo circulates
+on CPAN in both version 1.23 and 1.23_90, CPAN.pm offers a convenient
+way to install version 1.23 by saying
+
+    install Foo
+
+This would install the complete distribution file (say
+BAR/Foo-1.23.tar.gz) with all accompanying material. But if you would
+like to install version 1.23_90, you need to know where the
+distribution file resides on CPAN relative to the authors/id/
+directory. If the author is BAR, this might be BAR/Foo-1.23_90.tar.gz;
+so you would have to say
+
+    install BAR/Foo-1.23_90.tar.gz
+
+The first example will be driven by an object of the class
+CPAN::Module, the second by an object of class CPAN::Distribution.
+
+=head2 Integrating local directories
+
+Note: this feature is still in alpha state and may change in future
+versions of CPAN.pm
+
+Distribution objects are normally distributions from the CPAN, but
+there is a slightly degenerate case for Distribution objects, too, of
+projects held on the local disk. These distribution objects have the
+same name as the local directory and end with a dot. A dot by itself
+is also allowed for the current directory at the time CPAN.pm was
+used. All actions such as C<make>, C<test>, and C<install> are applied
+directly to that directory. This gives the command C<cpan .> an
+interesting touch: while the normal mantra of installing a CPAN module
+without CPAN.pm is one of
+
+    perl Makefile.PL                 perl Build.PL
+           ( go and get prerequisites )
+    make                             ./Build
+    make test                        ./Build test
+    make install                     ./Build install
+
+the command C<cpan .> does all of this at once. It figures out which
+of the two mantras is appropriate, fetches and installs all
+prerequisites, takes care of them recursively, and finally finishes the
+installation of the module in the current directory, be it a CPAN
+module or not.
+
+The typical usage case is for private modules or working copies of
+projects from remote repositories on the local disk.
+
+=head2 Redirection
+
+The usual shell redirection symbols C< | > and C<< > >> are recognized
+by the cpan shell B<only when surrounded by whitespace>. So piping to
+pager or redirecting output into a file works somewhat as in a normal
+shell, with the stipulation that you must type extra spaces.
+
+=head2 Plugin support ***EXPERIMENTAL***
+
+Plugins are objects that implement any of currently eight methods:
+
+  pre_get
+  post_get
+  pre_make
+  post_make
+  pre_test
+  post_test
+  pre_install
+  post_install
+
+The C<plugin_list> configuration parameter holds a list of strings of
+the form
+
+  Modulename=arg0,arg1,arg2,arg3,...
+
+At run time, each listed plugin is instantiated as a singleton object
+by running the equivalent of this pseudo code:
+
+  my $plugin = <string representation from config>;
+  <generate Modulename and arguments from $plugin>;
+  my $p = $instance{$plugin} ||= Modulename->new($arg0,$arg1,...);
+
+The generated singletons are kept around from instantiation until the
+end of the shell session. <plugin_list> can be reconfigured at any
+time at run time. While the cpan shell is running, it checks all
+activated plugins at each of the 8 reference points listed above and
+runs the respective method if it is implemented for that object. The
+method is called with the active CPAN::Distribution object passed in
+as an argument.
+
+=head1 CONFIGURATION
+
+When the CPAN module is used for the first time, a configuration
+dialogue tries to determine a couple of site specific options. The
+result of the dialog is stored in a hash reference C< $CPAN::Config >
+in a file CPAN/Config.pm.
+
+Default values defined in the CPAN/Config.pm file can be
+overridden in a user specific file: CPAN/MyConfig.pm. Such a file is
+best placed in C<$HOME/.cpan/CPAN/MyConfig.pm>, because C<$HOME/.cpan> is
+added to the search path of the CPAN module before the use() or
+require() statements. The mkmyconfig command writes this file for you.
+
+The C<o conf> command has various bells and whistles:
+
+=over
+
+=item completion support
+
+If you have a ReadLine module installed, you can hit TAB at any point
+of the commandline and C<o conf> will offer you completion for the
+built-in subcommands and/or config variable names.
+
+=item displaying some help: o conf help
+
+Displays a short help
+
+=item displaying current values: o conf [KEY]
+
+Displays the current value(s) for this config variable. Without KEY,
+displays all subcommands and config variables.
+
+Example:
+
+  o conf shell
+
+If KEY starts and ends with a slash, the string in between is
+treated as a regular expression and only keys matching this regexp
+are displayed
+
+Example:
+
+  o conf /color/
+
+=item changing of scalar values: o conf KEY VALUE
+
+Sets the config variable KEY to VALUE. The empty string can be
+specified as usual in shells, with C<''> or C<"">
+
+Example:
+
+  o conf wget /usr/bin/wget
+
+=item changing of list values: o conf KEY SHIFT|UNSHIFT|PUSH|POP|SPLICE|LIST
+
+If a config variable name ends with C<list>, it is a list. C<o conf
+KEY shift> removes the first element of the list, C<o conf KEY pop>
+removes the last element of the list. C<o conf KEYS unshift LIST>
+prepends a list of values to the list, C<o conf KEYS push LIST>
+appends a list of valued to the list.
+
+Likewise, C<o conf KEY splice LIST> passes the LIST to the corresponding
+splice command.
+
+Finally, any other list of arguments is taken as a new list value for
+the KEY variable discarding the previous value.
+
+Examples:
+
+  o conf urllist unshift http://cpan.dev.local/CPAN
+  o conf urllist splice 3 1
+  o conf urllist http://cpan1.local http://cpan2.local ftp://ftp.perl.org
+
+=item reverting to saved: o conf defaults
+
+Reverts all config variables to the state in the saved config file.
+
+=item saving the config: o conf commit
+
+Saves all config variables to the current config file (CPAN/Config.pm
+or CPAN/MyConfig.pm that was loaded at start).
+
+=back
+
+The configuration dialog can be started any time later again by
+issuing the command C< o conf init > in the CPAN shell. A subset of
+the configuration dialog can be run by issuing C<o conf init WORD>
+where WORD is any valid config variable or a regular expression.
+
+=head2 Config Variables
+
+The following keys in the hash reference $CPAN::Config are
+currently defined:
+
+  applypatch         path to external prg
+  auto_commit        commit all changes to config variables to disk
+  build_cache        size of cache for directories to build modules
+  build_dir          locally accessible directory to build modules
+  build_dir_reuse    boolean if distros in build_dir are persistent
+  build_requires_install_policy
+                     to install or not to install when a module is
+                     only needed for building. yes|no|ask/yes|ask/no
+  bzip2              path to external prg
+  cache_metadata     use serializer to cache metadata
+  check_sigs         if signatures should be verified
+  colorize_debug     Term::ANSIColor attributes for debugging output
+  colorize_output    boolean if Term::ANSIColor should colorize output
+  colorize_print     Term::ANSIColor attributes for normal output
+  colorize_warn      Term::ANSIColor attributes for warnings
+  commandnumber_in_prompt
+                     boolean if you want to see current command number
+  commands_quote     preferred character to use for quoting external
+                     commands when running them. Defaults to double
+                     quote on Windows, single tick everywhere else;
+                     can be set to space to disable quoting
+  connect_to_internet_ok
+                     whether to ask if opening a connection is ok before
+                     urllist is specified
+  cpan_home          local directory reserved for this package
+  curl               path to external prg
+  dontload_hash      DEPRECATED
+  dontload_list      arrayref: modules in the list will not be
+                     loaded by the CPAN::has_inst() routine
+  ftp                path to external prg
+  ftp_passive        if set, the environment variable FTP_PASSIVE is set
+                     for downloads
+  ftp_proxy          proxy host for ftp requests
+  ftpstats_period    max number of days to keep download statistics
+  ftpstats_size      max number of items to keep in the download statistics
+  getcwd             see below
+  gpg                path to external prg
+  gzip               location of external program gzip
+  halt_on_failure    stop processing after the first failure of queued
+                     items or dependencies
+  histfile           file to maintain history between sessions
+  histsize           maximum number of lines to keep in histfile
+  http_proxy         proxy host for http requests
+  inactivity_timeout breaks interactive Makefile.PLs or Build.PLs
+                     after this many seconds inactivity. Set to 0 to
+                     disable timeouts.
+  index_expire       refetch index files after this many days
+  inhibit_startup_message
+                     if true, suppress the startup message
+  keep_source_where  directory in which to keep the source (if we do)
+  load_module_verbosity
+                     report loading of optional modules used by CPAN.pm
+  lynx               path to external prg
+  make               location of external make program
+  make_arg           arguments that should always be passed to 'make'
+  make_install_make_command
+                     the make command for running 'make install', for
+                     example 'sudo make'
+  make_install_arg   same as make_arg for 'make install'
+  makepl_arg         arguments passed to 'perl Makefile.PL'
+  mbuild_arg         arguments passed to './Build'
+  mbuild_install_arg arguments passed to './Build install'
+  mbuild_install_build_command
+                     command to use instead of './Build' when we are
+                     in the install stage, for example 'sudo ./Build'
+  mbuildpl_arg       arguments passed to 'perl Build.PL'
+  ncftp              path to external prg
+  ncftpget           path to external prg
+  no_proxy           don't proxy to these hosts/domains (comma separated list)
+  pager              location of external program more (or any pager)
+  password           your password if you CPAN server wants one
+  patch              path to external prg
+  patches_dir        local directory containing patch files
+  perl5lib_verbosity verbosity level for PERL5LIB additions
+  plugin_list        list of active hooks (see Plugin support above
+                     and the CPAN::Plugin module)
+  prefer_external_tar
+                     per default all untar operations are done with
+                     Archive::Tar; by setting this variable to true
+                     the external tar command is used if available
+  prefer_installer   legal values are MB and EUMM: if a module comes
+                     with both a Makefile.PL and a Build.PL, use the
+                     former (EUMM) or the latter (MB); if the module
+                     comes with only one of the two, that one will be
+                     used no matter the setting
+  prerequisites_policy
+                     what to do if you are missing module prerequisites
+                     ('follow' automatically, 'ask' me, or 'ignore')
+                     For 'follow', also sets PERL_AUTOINSTALL and
+                     PERL_EXTUTILS_AUTOINSTALL for "--defaultdeps" if
+                     not already set
+  prefs_dir          local directory to store per-distro build options
+  proxy_user         username for accessing an authenticating proxy
+  proxy_pass         password for accessing an authenticating proxy
+  randomize_urllist  add some randomness to the sequence of the urllist
+  recommends_policy  whether recommended prerequisites should be included
+  scan_cache         controls scanning of cache ('atstart', 'atexit' or 'never')
+  shell              your favorite shell
+  show_unparsable_versions
+                     boolean if r command tells which modules are versionless
+  show_upload_date   boolean if commands should try to determine upload date
+  show_zero_versions boolean if r command tells for which modules $version==0
+  suggests_policy    whether suggested prerequisites should be included
+  tar                location of external program tar
+  tar_verbosity      verbosity level for the tar command
+  term_is_latin      deprecated: if true Unicode is translated to ISO-8859-1
+                     (and nonsense for characters outside latin range)
+  term_ornaments     boolean to turn ReadLine ornamenting on/off
+  test_report        email test reports (if CPAN::Reporter is installed)
+  trust_test_report_history
+                     skip testing when previously tested ok (according to
+                     CPAN::Reporter history)
+  unzip              location of external program unzip
+  urllist            arrayref to nearby CPAN sites (or equivalent locations)
+  use_prompt_default set PERL_MM_USE_DEFAULT for configure/make/test/install
+  use_sqlite         use CPAN::SQLite for metadata storage (fast and lean)
+  username           your username if you CPAN server wants one
+  version_timeout    stops version parsing after this many seconds.
+                     Default is 15 secs. Set to 0 to disable.
+  wait_list          arrayref to a wait server to try (See CPAN::WAIT)
+  wget               path to external prg
+  yaml_load_code     enable YAML code deserialisation via CPAN::DeferredCode
+  yaml_module        which module to use to read/write YAML files
+
+You can set and query each of these options interactively in the cpan
+shell with the C<o conf> or the C<o conf init> command as specified below.
+
+=over 2
+
+=item C<o conf E<lt>scalar optionE<gt>>
+
+prints the current value of the I<scalar option>
+
+=item C<o conf E<lt>scalar optionE<gt> E<lt>valueE<gt>>
+
+Sets the value of the I<scalar option> to I<value>
+
+=item C<o conf E<lt>list optionE<gt>>
+
+prints the current value of the I<list option> in MakeMaker's
+neatvalue format.
+
+=item C<o conf E<lt>list optionE<gt> [shift|pop]>
+
+shifts or pops the array in the I<list option> variable
+
+=item C<o conf E<lt>list optionE<gt> [unshift|push|splice] E<lt>listE<gt>>
+
+works like the corresponding perl commands.
+
+=item interactive editing: o conf init [MATCH|LIST]
+
+Runs an interactive configuration dialog for matching variables.
+Without argument runs the dialog over all supported config variables.
+To specify a MATCH the argument must be enclosed by slashes.
+
+Examples:
+
+  o conf init ftp_passive ftp_proxy
+  o conf init /color/
+
+Note: this method of setting config variables often provides more
+explanation about the functioning of a variable than the manpage.
+
+=back
+
+=head2 CPAN::anycwd($path): Note on config variable getcwd
+
+CPAN.pm changes the current working directory often and needs to
+determine its own current working directory. By default it uses
+Cwd::cwd, but if for some reason this doesn't work on your system,
+configure alternatives according to the following table:
+
+=over 4
+
+=item cwd
+
+Calls Cwd::cwd
+
+=item getcwd
+
+Calls Cwd::getcwd
+
+=item fastcwd
+
+Calls Cwd::fastcwd
+
+=item getdcwd
+
+Calls Cwd::getdcwd
+
+=item backtickcwd
+
+Calls the external command cwd.
+
+=back
+
+=head2 Note on the format of the urllist parameter
+
+urllist parameters are URLs according to RFC 1738. We do a little
+guessing if your URL is not compliant, but if you have problems with
+C<file> URLs, please try the correct format. Either:
+
+    file://localhost/whatever/ftp/pub/CPAN/
+
+or
+
+    file:///home/ftp/pub/CPAN/
+
+=head2 The urllist parameter has CD-ROM support
+
+The C<urllist> parameter of the configuration table contains a list of
+URLs used for downloading. If the list contains any
+C<file> URLs, CPAN always tries there first. This
+feature is disabled for index files. So the recommendation for the
+owner of a CD-ROM with CPAN contents is: include your local, possibly
+outdated CD-ROM as a C<file> URL at the end of urllist, e.g.
+
+  o conf urllist push file://localhost/CDROM/CPAN
+
+CPAN.pm will then fetch the index files from one of the CPAN sites
+that come at the beginning of urllist. It will later check for each
+module to see whether there is a local copy of the most recent version.
+
+Another peculiarity of urllist is that the site that we could
+successfully fetch the last file from automatically gets a preference
+token and is tried as the first site for the next request. So if you
+add a new site at runtime it may happen that the previously preferred
+site will be tried another time. This means that if you want to disallow
+a site for the next transfer, it must be explicitly removed from
+urllist.
+
+=head2 Maintaining the urllist parameter
+
+If you have YAML.pm (or some other YAML module configured in
+C<yaml_module>) installed, CPAN.pm collects a few statistical data
+about recent downloads. You can view the statistics with the C<hosts>
+command or inspect them directly by looking into the C<FTPstats.yml>
+file in your C<cpan_home> directory.
+
+To get some interesting statistics, it is recommended that
+C<randomize_urllist> be set; this introduces some amount of
+randomness into the URL selection.
+
+=head2 The C<requires> and C<build_requires> dependency declarations
+
+Since CPAN.pm version 1.88_51 modules declared as C<build_requires> by
+a distribution are treated differently depending on the config
+variable C<build_requires_install_policy>. By setting
+C<build_requires_install_policy> to C<no>, such a module is not
+installed. It is only built and tested, and then kept in the list of
+tested but uninstalled modules. As such, it is available during the
+build of the dependent module by integrating the path to the
+C<blib/arch> and C<blib/lib> directories in the environment variable
+PERL5LIB. If C<build_requires_install_policy> is set ti C<yes>, then
+both modules declared as C<requires> and those declared as
+C<build_requires> are treated alike. By setting to C<ask/yes> or
+C<ask/no>, CPAN.pm asks the user and sets the default accordingly.
+
+=head2 Configuration for individual distributions (I<Distroprefs>)
+
+(B<Note:> This feature has been introduced in CPAN.pm 1.8854)
+
+Distributions on CPAN usually behave according to what we call the
+CPAN mantra. Or since the advent of Module::Build we should talk about
+two mantras:
+
+    perl Makefile.PL     perl Build.PL
+    make                 ./Build
+    make test            ./Build test
+    make install         ./Build install
+
+But some modules cannot be built with this mantra. They try to get
+some extra data from the user via the environment, extra arguments, or
+interactively--thus disturbing the installation of large bundles like
+Phalanx100 or modules with many dependencies like Plagger.
+
+The distroprefs system of C<CPAN.pm> addresses this problem by
+allowing the user to specify extra informations and recipes in YAML
+files to either
+
+=over
+
+=item
+
+pass additional arguments to one of the four commands,
+
+=item
+
+set environment variables
+
+=item
+
+instantiate an Expect object that reads from the console, waits for
+some regular expressions and enters some answers
+
+=item
+
+temporarily override assorted C<CPAN.pm> configuration variables
+
+=item
+
+specify dependencies the original maintainer forgot
+
+=item
+
+disable the installation of an object altogether
+
+=back
+
+See the YAML and Data::Dumper files that come with the C<CPAN.pm>
+distribution in the C<distroprefs/> directory for examples.
+
+=head2 Filenames
+
+The YAML files themselves must have the C<.yml> extension; all other
+files are ignored (for two exceptions see I<Fallback Data::Dumper and
+Storable> below). The containing directory can be specified in
+C<CPAN.pm> in the C<prefs_dir> config variable. Try C<o conf init
+prefs_dir> in the CPAN shell to set and activate the distroprefs
+system.
+
+Every YAML file may contain arbitrary documents according to the YAML
+specification, and every document is treated as an entity that
+can specify the treatment of a single distribution.
+
+Filenames can be picked arbitrarily; C<CPAN.pm> always reads
+all files (in alphabetical order) and takes the key C<match> (see
+below in I<Language Specs>) as a hashref containing match criteria
+that determine if the current distribution matches the YAML document
+or not.
+
+=head2 Fallback Data::Dumper and Storable
+
+If neither your configured C<yaml_module> nor YAML.pm is installed,
+CPAN.pm falls back to using Data::Dumper and Storable and looks for
+files with the extensions C<.dd> or C<.st> in the C<prefs_dir>
+directory. These files are expected to contain one or more hashrefs.
+For Data::Dumper generated files, this is expected to be done with by
+defining C<$VAR1>, C<$VAR2>, etc. The YAML shell would produce these
+with the command
+
+    ysh < somefile.yml > somefile.dd
+
+For Storable files the rule is that they must be constructed such that
+C<Storable::retrieve(file)> returns an array reference and the array
+elements represent one distropref object each. The conversion from
+YAML would look like so:
+
+    perl -MYAML=LoadFile -MStorable=nstore -e '
+        @y=LoadFile(shift);
+        nstore(\@y, shift)' somefile.yml somefile.st
+
+In bootstrapping situations it is usually sufficient to translate only
+a few YAML files to Data::Dumper for crucial modules like
+C<YAML::Syck>, C<YAML.pm> and C<Expect.pm>. If you prefer Storable
+over Data::Dumper, remember to pull out a Storable version that writes
+an older format than all the other Storable versions that will need to
+read them.
+
+=head2 Blueprint
+
+The following example contains all supported keywords and structures
+with the exception of C<eexpect> which can be used instead of
+C<expect>.
+
+  ---
+  comment: "Demo"
+  match:
+    module: "Dancing::Queen"
+    distribution: "^CHACHACHA/Dancing-"
+    not_distribution: "\.zip$"
+    perl: "/usr/local/cariba-perl/bin/perl"
+    perlconfig:
+      archname: "freebsd"
+      not_cc: "gcc"
+    env:
+      DANCING_FLOOR: "Shubiduh"
+  disabled: 1
+  cpanconfig:
+    make: gmake
+  pl:
+    args:
+      - "--somearg=specialcase"
+
+    env: {}
+
+    expect:
+      - "Which is your favorite fruit"
+      - "apple\n"
+
+  make:
+    args:
+      - all
+      - extra-all
+
+    env: {}
+
+    expect: []
+
+    commandline: "echo SKIPPING make"
+
+  test:
+    args: []
+
+    env: {}
+
+    expect: []
+
+  install:
+    args: []
+
+    env:
+      WANT_TO_INSTALL: YES
+
+    expect:
+      - "Do you really want to install"
+      - "y\n"
+
+  patches:
+    - "ABCDE/Fedcba-3.14-ABCDE-01.patch"
+
+  depends:
+    configure_requires:
+      LWP: 5.8
+    build_requires:
+      Test::Exception: 0.25
+    requires:
+      Spiffy: 0.30
+
+
+=head2 Language Specs
+
+Every YAML document represents a single hash reference. The valid keys
+in this hash are as follows:
+
+=over
+
+=item comment [scalar]
+
+A comment
+
+=item cpanconfig [hash]
+
+Temporarily override assorted C<CPAN.pm> configuration variables.
+
+Supported are: C<build_requires_install_policy>, C<check_sigs>,
+C<make>, C<make_install_make_command>, C<prefer_installer>,
+C<test_report>. Please report as a bug when you need another one
+supported.
+
+=item depends [hash] *** EXPERIMENTAL FEATURE ***
+
+All three types, namely C<configure_requires>, C<build_requires>, and
+C<requires> are supported in the way specified in the META.yml
+specification. The current implementation I<merges> the specified
+dependencies with those declared by the package maintainer. In a
+future implementation this may be changed to override the original
+declaration.
+
+=item disabled [boolean]
+
+Specifies that this distribution shall not be processed at all.
+
+=item features [array] *** EXPERIMENTAL FEATURE ***
+
+Experimental implementation to deal with optional_features from
+META.yml. Still needs coordination with installer software and
+currently works only for META.yml declaring C<dynamic_config=0>. Use
+with caution.
+
+=item goto [string]
+
+The canonical name of a delegate distribution to install
+instead. Useful when a new version, although it tests OK itself,
+breaks something else or a developer release or a fork is already
+uploaded that is better than the last released version.
+
+=item install [hash]
+
+Processing instructions for the C<make install> or C<./Build install>
+phase of the CPAN mantra. See below under I<Processing Instructions>.
+
+=item make [hash]
+
+Processing instructions for the C<make> or C<./Build> phase of the
+CPAN mantra. See below under I<Processing Instructions>.
+
+=item match [hash]
+
+A hashref with one or more of the keys C<distribution>, C<module>,
+C<perl>, C<perlconfig>, and C<env> that specify whether a document is
+targeted at a specific CPAN distribution or installation.
+Keys prefixed with C<not_> negates the corresponding match.
+
+The corresponding values are interpreted as regular expressions. The
+C<distribution> related one will be matched against the canonical
+distribution name, e.g. "AUTHOR/Foo-Bar-3.14.tar.gz".
+
+The C<module> related one will be matched against I<all> modules
+contained in the distribution until one module matches.
+
+The C<perl> related one will be matched against C<$^X> (but with the
+absolute path).
+
+The value associated with C<perlconfig> is itself a hashref that is
+matched against corresponding values in the C<%Config::Config> hash
+living in the C<Config.pm> module.
+Keys prefixed with C<not_> negates the corresponding match.
+
+The value associated with C<env> is itself a hashref that is
+matched against corresponding values in the C<%ENV> hash.
+Keys prefixed with C<not_> negates the corresponding match.
+
+If more than one restriction of C<module>, C<distribution>, etc. is
+specified, the results of the separately computed match values must
+all match. If so, the hashref represented by the
+YAML document is returned as the preference structure for the current
+distribution.
+
+=item patches [array]
+
+An array of patches on CPAN or on the local disk to be applied in
+order via an external patch program. If the value for the C<-p>
+parameter is C<0> or C<1> is determined by reading the patch
+beforehand. The path to each patch is either an absolute path on the
+local filesystem or relative to a patch directory specified in the
+C<patches_dir> configuration variable or in the format of a canonical
+distro name. For examples please consult the distroprefs/ directory in
+the CPAN.pm distribution (these examples are not installed by
+default).
+
+Note: if the C<applypatch> program is installed and C<CPAN::Config>
+knows about it B<and> a patch is written by the C<makepatch> program,
+then C<CPAN.pm> lets C<applypatch> apply the patch. Both C<makepatch>
+and C<applypatch> are available from CPAN in the C<JV/makepatch-*>
+distribution.
+
+=item pl [hash]
+
+Processing instructions for the C<perl Makefile.PL> or C<perl
+Build.PL> phase of the CPAN mantra. See below under I<Processing
+Instructions>.
+
+=item test [hash]
+
+Processing instructions for the C<make test> or C<./Build test> phase
+of the CPAN mantra. See below under I<Processing Instructions>.
+
+=back
+
+=head2 Processing Instructions
+
+=over
+
+=item args [array]
+
+Arguments to be added to the command line
+
+=item commandline
+
+A full commandline to run via C<system()>.
+During execution, the environment variable PERL is set
+to $^X (but with an absolute path). If C<commandline> is specified,
+C<args> is not used.
+
+=item eexpect [hash]
+
+Extended C<expect>. This is a hash reference with four allowed keys,
+C<mode>, C<timeout>, C<reuse>, and C<talk>.
+
+You must install the C<Expect> module to use C<eexpect>. CPAN.pm
+does not install it for you.
+
+C<mode> may have the values C<deterministic> for the case where all
+questions come in the order written down and C<anyorder> for the case
+where the questions may come in any order. The default mode is
+C<deterministic>.
+
+C<timeout> denotes a timeout in seconds. Floating-point timeouts are
+OK. With C<mode=deterministic>, the timeout denotes the
+timeout per question; with C<mode=anyorder> it denotes the
+timeout per byte received from the stream or questions.
+
+C<talk> is a reference to an array that contains alternating questions
+and answers. Questions are regular expressions and answers are literal
+strings. The Expect module watches the stream from the
+execution of the external program (C<perl Makefile.PL>, C<perl
+Build.PL>, C<make>, etc.).
+
+For C<mode=deterministic>, the CPAN.pm injects the
+corresponding answer as soon as the stream matches the regular expression.
+
+For C<mode=anyorder> CPAN.pm answers a question as soon
+as the timeout is reached for the next byte in the input stream. In
+this mode you can use the C<reuse> parameter to decide what will
+happen with a question-answer pair after it has been used. In the
+default case (reuse=0) it is removed from the array, avoiding being
+used again accidentally. If you want to answer the
+question C<Do you really want to do that> several times, then it must
+be included in the array at least as often as you want this answer to
+be given. Setting the parameter C<reuse> to 1 makes this repetition
+unnecessary.
+
+=item env [hash]
+
+Environment variables to be set during the command
+
+=item expect [array]
+
+You must install the C<Expect> module to use C<expect>. CPAN.pm
+does not install it for you.
+
+C<< expect: <array> >> is a short notation for this C<eexpect>:
+
+	eexpect:
+		mode: deterministic
+		timeout: 15
+		talk: <array>
+
+=back
+
+=head2 Schema verification with C<Kwalify>
+
+If you have the C<Kwalify> module installed (which is part of the
+Bundle::CPANxxl), then all your distroprefs files are checked for
+syntactic correctness.
+
+=head2 Example Distroprefs Files
+
+C<CPAN.pm> comes with a collection of example YAML files. Note that these
+are really just examples and should not be used without care because
+they cannot fit everybody's purpose. After all, the authors of the
+packages that ask questions had a need to ask, so you should watch
+their questions and adjust the examples to your environment and your
+needs. You have been warned:-)
+
+=head1 PROGRAMMER'S INTERFACE
+
+If you do not enter the shell, shell commands are
+available both as methods (C<CPAN::Shell-E<gt>install(...)>) and as
+functions in the calling package (C<install(...)>).  Before calling low-level
+commands, it makes sense to initialize components of CPAN you need, e.g.:
+
+  CPAN::HandleConfig->load;
+  CPAN::Shell::setup_output;
+  CPAN::Index->reload;
+
+High-level commands do such initializations automatically.
+
+There's currently only one class that has a stable interface -
+CPAN::Shell. All commands that are available in the CPAN shell are
+methods of the class CPAN::Shell. The arguments on the commandline are
+passed as arguments to the method.
+
+So if you take for example the shell command
+
+  notest install A B C
+
+the actually executed command is
+
+  CPAN::Shell->notest("install","A","B","C");
+
+Each of the commands that produce listings of modules (C<r>,
+C<autobundle>, C<u>) also return a list of the IDs of all modules
+within the list.
+
+=over 2
+
+=item expand($type,@things)
+
+The IDs of all objects available within a program are strings that can
+be expanded to the corresponding real objects with the
+C<CPAN::Shell-E<gt>expand("Module",@things)> method. Expand returns a
+list of CPAN::Module objects according to the C<@things> arguments
+given. In scalar context, it returns only the first element of the
+list.
+
+=item expandany(@things)
+
+Like expand, but returns objects of the appropriate type, i.e.
+CPAN::Bundle objects for bundles, CPAN::Module objects for modules, and
+CPAN::Distribution objects for distributions. Note: it does not expand
+to CPAN::Author objects.
+
+=item Programming Examples
+
+This enables the programmer to do operations that combine
+functionalities that are available in the shell.
+
+    # install everything that is outdated on my disk:
+    perl -MCPAN -e 'CPAN::Shell->install(CPAN::Shell->r)'
+
+    # install my favorite programs if necessary:
+    for $mod (qw(Net::FTP Digest::SHA Data::Dumper)) {
+        CPAN::Shell->install($mod);
+    }
+
+    # list all modules on my disk that have no VERSION number
+    for $mod (CPAN::Shell->expand("Module","/./")) {
+        next unless $mod->inst_file;
+        # MakeMaker convention for undefined $VERSION:
+        next unless $mod->inst_version eq "undef";
+        print "No VERSION in ", $mod->id, "\n";
+    }
+
+    # find out which distribution on CPAN contains a module:
+    print CPAN::Shell->expand("Module","Apache::Constants")->cpan_file
+
+Or if you want to schedule a I<cron> job to watch CPAN, you could list
+all modules that need updating. First a quick and dirty way:
+
+    perl -e 'use CPAN; CPAN::Shell->r;'
+
+If you don't want any output should all modules be
+up to date, parse the output of above command for the regular
+expression C</modules are up to date/> and decide to mail the output
+only if it doesn't match.
+
+If you prefer to do it more in a programmerish style in one single
+process, something like this may better suit you:
+
+  # list all modules on my disk that have newer versions on CPAN
+  for $mod (CPAN::Shell->expand("Module","/./")) {
+    next unless $mod->inst_file;
+    next if $mod->uptodate;
+    printf "Module %s is installed as %s, could be updated to %s from CPAN\n",
+        $mod->id, $mod->inst_version, $mod->cpan_version;
+  }
+
+If that gives too much output every day, you may want to
+watch only for three modules. You can write
+
+  for $mod (CPAN::Shell->expand("Module","/Apache|LWP|CGI/")) {
+
+as the first line instead. Or you can combine some of the above
+tricks:
+
+  # watch only for a new mod_perl module
+  $mod = CPAN::Shell->expand("Module","mod_perl");
+  exit if $mod->uptodate;
+  # new mod_perl arrived, let me know all update recommendations
+  CPAN::Shell->r;
+
+=back
+
+=head2 Methods in the other Classes
+
+=over 4
+
+=item CPAN::Author::as_glimpse()
+
+Returns a one-line description of the author
+
+=item CPAN::Author::as_string()
+
+Returns a multi-line description of the author
+
+=item CPAN::Author::email()
+
+Returns the author's email address
+
+=item CPAN::Author::fullname()
+
+Returns the author's name
+
+=item CPAN::Author::name()
+
+An alias for fullname
+
+=item CPAN::Bundle::as_glimpse()
+
+Returns a one-line description of the bundle
+
+=item CPAN::Bundle::as_string()
+
+Returns a multi-line description of the bundle
+
+=item CPAN::Bundle::clean()
+
+Recursively runs the C<clean> method on all items contained in the bundle.
+
+=item CPAN::Bundle::contains()
+
+Returns a list of objects' IDs contained in a bundle. The associated
+objects may be bundles, modules or distributions.
+
+=item CPAN::Bundle::force($method,@args)
+
+Forces CPAN to perform a task that it normally would have refused to
+do. Force takes as arguments a method name to be called and any number
+of additional arguments that should be passed to the called method.
+The internals of the object get the needed changes so that CPAN.pm
+does not refuse to take the action. The C<force> is passed recursively
+to all contained objects. See also the section above on the C<force>
+and the C<fforce> pragma.
+
+=item CPAN::Bundle::get()
+
+Recursively runs the C<get> method on all items contained in the bundle
+
+=item CPAN::Bundle::inst_file()
+
+Returns the highest installed version of the bundle in either @INC or
+C<< $CPAN::Config->{cpan_home} >>. Note that this is different from
+CPAN::Module::inst_file.
+
+=item CPAN::Bundle::inst_version()
+
+Like CPAN::Bundle::inst_file, but returns the $VERSION
+
+=item CPAN::Bundle::uptodate()
+
+Returns 1 if the bundle itself and all its members are up-to-date.
+
+=item CPAN::Bundle::install()
+
+Recursively runs the C<install> method on all items contained in the bundle
+
+=item CPAN::Bundle::make()
+
+Recursively runs the C<make> method on all items contained in the bundle
+
+=item CPAN::Bundle::readme()
+
+Recursively runs the C<readme> method on all items contained in the bundle
+
+=item CPAN::Bundle::test()
+
+Recursively runs the C<test> method on all items contained in the bundle
+
+=item CPAN::Distribution::as_glimpse()
+
+Returns a one-line description of the distribution
+
+=item CPAN::Distribution::as_string()
+
+Returns a multi-line description of the distribution
+
+=item CPAN::Distribution::author
+
+Returns the CPAN::Author object of the maintainer who uploaded this
+distribution
+
+=item CPAN::Distribution::pretty_id()
+
+Returns a string of the form "AUTHORID/TARBALL", where AUTHORID is the
+author's PAUSE ID and TARBALL is the distribution filename.
+
+=item CPAN::Distribution::base_id()
+
+Returns the distribution filename without any archive suffix.  E.g
+"Foo-Bar-0.01"
+
+=item CPAN::Distribution::clean()
+
+Changes to the directory where the distribution has been unpacked and
+runs C<make clean> there.
+
+=item CPAN::Distribution::containsmods()
+
+Returns a list of IDs of modules contained in a distribution file.
+Works only for distributions listed in the 02packages.details.txt.gz
+file. This typically means that just most recent version of a
+distribution is covered.
+
+=item CPAN::Distribution::cvs_import()
+
+Changes to the directory where the distribution has been unpacked and
+runs something like
+
+    cvs -d $cvs_root import -m $cvs_log $cvs_dir $userid v$version
+
+there.
+
+=item CPAN::Distribution::dir()
+
+Returns the directory into which this distribution has been unpacked.
+
+=item CPAN::Distribution::force($method,@args)
+
+Forces CPAN to perform a task that it normally would have refused to
+do. Force takes as arguments a method name to be called and any number
+of additional arguments that should be passed to the called method.
+The internals of the object get the needed changes so that CPAN.pm
+does not refuse to take the action. See also the section above on the
+C<force> and the C<fforce> pragma.
+
+=item CPAN::Distribution::get()
+
+Downloads the distribution from CPAN and unpacks it. Does nothing if
+the distribution has already been downloaded and unpacked within the
+current session.
+
+=item CPAN::Distribution::install()
+
+Changes to the directory where the distribution has been unpacked and
+runs the external command C<make install> there. If C<make> has not
+yet been run, it will be run first. A C<make test> is issued in
+any case and if this fails, the install is cancelled. The
+cancellation can be avoided by letting C<force> run the C<install> for
+you.
+
+This install method only has the power to install the distribution if
+there are no dependencies in the way. To install an object along with all
+its dependencies, use CPAN::Shell->install.
+
+Note that install() gives no meaningful return value. See uptodate().
+
+=item CPAN::Distribution::isa_perl()
+
+Returns 1 if this distribution file seems to be a perl distribution.
+Normally this is derived from the file name only, but the index from
+CPAN can contain a hint to achieve a return value of true for other
+filenames too.
+
+=item CPAN::Distribution::look()
+
+Changes to the directory where the distribution has been unpacked and
+opens a subshell there. Exiting the subshell returns.
+
+=item CPAN::Distribution::make()
+
+First runs the C<get> method to make sure the distribution is
+downloaded and unpacked. Changes to the directory where the
+distribution has been unpacked and runs the external commands C<perl
+Makefile.PL> or C<perl Build.PL> and C<make> there.
+
+=item CPAN::Distribution::perldoc()
+
+Downloads the pod documentation of the file associated with a
+distribution (in HTML format) and runs it through the external
+command I<lynx> specified in C<< $CPAN::Config->{lynx} >>. If I<lynx>
+isn't available, it converts it to plain text with the external
+command I<html2text> and runs it through the pager specified
+in C<< $CPAN::Config->{pager} >>.
+
+=item CPAN::Distribution::prefs()
+
+Returns the hash reference from the first matching YAML file that the
+user has deposited in the C<prefs_dir/> directory. The first
+succeeding match wins. The files in the C<prefs_dir/> are processed
+alphabetically, and the canonical distro name (e.g.
+AUTHOR/Foo-Bar-3.14.tar.gz) is matched against the regular expressions
+stored in the $root->{match}{distribution} attribute value.
+Additionally all module names contained in a distribution are matched
+against the regular expressions in the $root->{match}{module} attribute
+value. The two match values are ANDed together. Each of the two
+attributes are optional.
+
+=item CPAN::Distribution::prereq_pm()
+
+Returns the hash reference that has been announced by a distribution
+as the C<requires> and C<build_requires> elements. These can be
+declared either by the C<META.yml> (if authoritative) or can be
+deposited after the run of C<Build.PL> in the file C<./_build/prereqs>
+or after the run of C<Makfile.PL> written as the C<PREREQ_PM> hash in
+a comment in the produced C<Makefile>. I<Note>: this method only works
+after an attempt has been made to C<make> the distribution. Returns
+undef otherwise.
+
+=item CPAN::Distribution::readme()
+
+Downloads the README file associated with a distribution and runs it
+through the pager specified in C<< $CPAN::Config->{pager} >>.
+
+=item CPAN::Distribution::reports()
+
+Downloads report data for this distribution from www.cpantesters.org
+and displays a subset of them.
+
+=item CPAN::Distribution::read_yaml()
+
+Returns the content of the META.yml of this distro as a hashref. Note:
+works only after an attempt has been made to C<make> the distribution.
+Returns undef otherwise. Also returns undef if the content of META.yml
+is not authoritative. (The rules about what exactly makes the content
+authoritative are still in flux.)
+
+=item CPAN::Distribution::test()
+
+Changes to the directory where the distribution has been unpacked and
+runs C<make test> there.
+
+=item CPAN::Distribution::uptodate()
+
+Returns 1 if all the modules contained in the distribution are
+up-to-date. Relies on containsmods.
+
+=item CPAN::Index::force_reload()
+
+Forces a reload of all indices.
+
+=item CPAN::Index::reload()
+
+Reloads all indices if they have not been read for more than
+C<< $CPAN::Config->{index_expire} >> days.
+
+=item CPAN::InfoObj::dump()
+
+CPAN::Author, CPAN::Bundle, CPAN::Module, and CPAN::Distribution
+inherit this method. It prints the data structure associated with an
+object. Useful for debugging. Note: the data structure is considered
+internal and thus subject to change without notice.
+
+=item CPAN::Module::as_glimpse()
+
+Returns a one-line description of the module in four columns: The
+first column contains the word C<Module>, the second column consists
+of one character: an equals sign if this module is already installed
+and up-to-date, a less-than sign if this module is installed but can be
+upgraded, and a space if the module is not installed. The third column
+is the name of the module and the fourth column gives maintainer or
+distribution information.
+
+=item CPAN::Module::as_string()
+
+Returns a multi-line description of the module
+
+=item CPAN::Module::clean()
+
+Runs a clean on the distribution associated with this module.
+
+=item CPAN::Module::cpan_file()
+
+Returns the filename on CPAN that is associated with the module.
+
+=item CPAN::Module::cpan_version()
+
+Returns the latest version of this module available on CPAN.
+
+=item CPAN::Module::cvs_import()
+
+Runs a cvs_import on the distribution associated with this module.
+
+=item CPAN::Module::description()
+
+Returns a 44 character description of this module. Only available for
+modules listed in The Module List (CPAN/modules/00modlist.long.html
+or 00modlist.long.txt.gz)
+
+=item CPAN::Module::distribution()
+
+Returns the CPAN::Distribution object that contains the current
+version of this module.
+
+=item CPAN::Module::dslip_status()
+
+Returns a hash reference. The keys of the hash are the letters C<D>,
+C<S>, C<L>, C<I>, and <P>, for development status, support level,
+language, interface and public licence respectively. The data for the
+DSLIP status are collected by pause.perl.org when authors register
+their namespaces. The values of the 5 hash elements are one-character
+words whose meaning is described in the table below. There are also 5
+hash elements C<DV>, C<SV>, C<LV>, C<IV>, and <PV> that carry a more
+verbose value of the 5 status variables.
+
+Where the 'DSLIP' characters have the following meanings:
+
+  D - Development Stage  (Note: *NO IMPLIED TIMESCALES*):
+    i   - Idea, listed to gain consensus or as a placeholder
+    c   - under construction but pre-alpha (not yet released)
+    a/b - Alpha/Beta testing
+    R   - Released
+    M   - Mature (no rigorous definition)
+    S   - Standard, supplied with Perl 5
+
+  S - Support Level:
+    m   - Mailing-list
+    d   - Developer
+    u   - Usenet newsgroup comp.lang.perl.modules
+    n   - None known, try comp.lang.perl.modules
+    a   - abandoned; volunteers welcome to take over maintenance
+
+  L - Language Used:
+    p   - Perl-only, no compiler needed, should be platform independent
+    c   - C and perl, a C compiler will be needed
+    h   - Hybrid, written in perl with optional C code, no compiler needed
+    +   - C++ and perl, a C++ compiler will be needed
+    o   - perl and another language other than C or C++
+
+  I - Interface Style
+    f   - plain Functions, no references used
+    h   - hybrid, object and function interfaces available
+    n   - no interface at all (huh?)
+    r   - some use of unblessed References or ties
+    O   - Object oriented using blessed references and/or inheritance
+
+  P - Public License
+    p   - Standard-Perl: user may choose between GPL and Artistic
+    g   - GPL: GNU General Public License
+    l   - LGPL: "GNU Lesser General Public License" (previously known as
+          "GNU Library General Public License")
+    b   - BSD: The BSD License
+    a   - Artistic license alone
+    2   - Artistic license 2.0 or later
+    o   - open source: approved by www.opensource.org
+    d   - allows distribution without restrictions
+    r   - restricted distribution
+    n   - no license at all
+
+=item CPAN::Module::force($method,@args)
+
+Forces CPAN to perform a task it would normally refuse to
+do. Force takes as arguments a method name to be invoked and any number
+of additional arguments to pass that method.
+The internals of the object get the needed changes so that CPAN.pm
+does not refuse to take the action. See also the section above on the
+C<force> and the C<fforce> pragma.
+
+=item CPAN::Module::get()
+
+Runs a get on the distribution associated with this module.
+
+=item CPAN::Module::inst_file()
+
+Returns the filename of the module found in @INC. The first file found
+is reported, just as perl itself stops searching @INC once it finds a
+module.
+
+=item CPAN::Module::available_file()
+
+Returns the filename of the module found in PERL5LIB or @INC. The
+first file found is reported. The advantage of this method over
+C<inst_file> is that modules that have been tested but not yet
+installed are included because PERL5LIB keeps track of tested modules.
+
+=item CPAN::Module::inst_version()
+
+Returns the version number of the installed module in readable format.
+
+=item CPAN::Module::available_version()
+
+Returns the version number of the available module in readable format.
+
+=item CPAN::Module::install()
+
+Runs an C<install> on the distribution associated with this module.
+
+=item CPAN::Module::look()
+
+Changes to the directory where the distribution associated with this
+module has been unpacked and opens a subshell there. Exiting the
+subshell returns.
+
+=item CPAN::Module::make()
+
+Runs a C<make> on the distribution associated with this module.
+
+=item CPAN::Module::manpage_headline()
+
+If module is installed, peeks into the module's manpage, reads the
+headline, and returns it. Moreover, if the module has been downloaded
+within this session, does the equivalent on the downloaded module even
+if it hasn't been installed yet.
+
+=item CPAN::Module::perldoc()
+
+Runs a C<perldoc> on this module.
+
+=item CPAN::Module::readme()
+
+Runs a C<readme> on the distribution associated with this module.
+
+=item CPAN::Module::reports()
+
+Calls the reports() method on the associated distribution object.
+
+=item CPAN::Module::test()
+
+Runs a C<test> on the distribution associated with this module.
+
+=item CPAN::Module::uptodate()
+
+Returns 1 if the module is installed and up-to-date.
+
+=item CPAN::Module::userid()
+
+Returns the author's ID of the module.
+
+=back
+
+=head2 Cache Manager
+
+Currently the cache manager only keeps track of the build directory
+($CPAN::Config->{build_dir}). It is a simple FIFO mechanism that
+deletes complete directories below C<build_dir> as soon as the size of
+all directories there gets bigger than $CPAN::Config->{build_cache}
+(in MB). The contents of this cache may be used for later
+re-installations that you intend to do manually, but will never be
+trusted by CPAN itself. This is due to the fact that the user might
+use these directories for building modules on different architectures.
+
+There is another directory ($CPAN::Config->{keep_source_where}) where
+the original distribution files are kept. This directory is not
+covered by the cache manager and must be controlled by the user. If
+you choose to have the same directory as build_dir and as
+keep_source_where directory, then your sources will be deleted with
+the same fifo mechanism.
+
+=head2 Bundles
+
+A bundle is just a perl module in the namespace Bundle:: that does not
+define any functions or methods. It usually only contains documentation.
+
+It starts like a perl module with a package declaration and a $VERSION
+variable. After that the pod section looks like any other pod with the
+only difference being that I<one special pod section> exists starting with
+(verbatim):
+
+    =head1 CONTENTS
+
+In this pod section each line obeys the format
+
+        Module_Name [Version_String] [- optional text]
+
+The only required part is the first field, the name of a module
+(e.g. Foo::Bar, i.e. I<not> the name of the distribution file). The rest
+of the line is optional. The comment part is delimited by a dash just
+as in the man page header.
+
+The distribution of a bundle should follow the same convention as
+other distributions.
+
+Bundles are treated specially in the CPAN package. If you say 'install
+Bundle::Tkkit' (assuming such a bundle exists), CPAN will install all
+the modules in the CONTENTS section of the pod. You can install your
+own Bundles locally by placing a conformant Bundle file somewhere into
+your @INC path. The autobundle() command which is available in the
+shell interface does that for you by including all currently installed
+modules in a snapshot bundle file.
+
+=head1 PREREQUISITES
+
+The CPAN program is trying to depend on as little as possible so the
+user can use it in hostile environment. It works better the more goodies
+the environment provides. For example if you try in the CPAN shell
+
+  install Bundle::CPAN
+
+or
+
+  install Bundle::CPANxxl
+
+you will find the shell more convenient than the bare shell before.
+
+If you have a local mirror of CPAN and can access all files with
+"file:" URLs, then you only need a perl later than perl5.003 to run
+this module. Otherwise Net::FTP is strongly recommended. LWP may be
+required for non-UNIX systems, or if your nearest CPAN site is
+associated with a URL that is not C<ftp:>.
+
+If you have neither Net::FTP nor LWP, there is a fallback mechanism
+implemented for an external ftp command or for an external lynx
+command.
+
+=head1 UTILITIES
+
+=head2 Finding packages and VERSION
+
+This module presumes that all packages on CPAN
+
+=over 2
+
+=item *
+
+declare their $VERSION variable in an easy to parse manner. This
+prerequisite can hardly be relaxed because it consumes far too much
+memory to load all packages into the running program just to determine
+the $VERSION variable. Currently all programs that are dealing with
+version use something like this
+
+    perl -MExtUtils::MakeMaker -le \
+        'print MM->parse_version(shift)' filename
+
+If you are author of a package and wonder if your $VERSION can be
+parsed, please try the above method.
+
+=item *
+
+come as compressed or gzipped tarfiles or as zip files and contain a
+C<Makefile.PL> or C<Build.PL> (well, we try to handle a bit more, but
+with little enthusiasm).
+
+=back
+
+=head2 Debugging
+
+Debugging this module is more than a bit complex due to interference from
+the software producing the indices on CPAN, the mirroring process on CPAN,
+packaging, configuration, synchronicity, and even (gasp!) due to bugs
+within the CPAN.pm module itself.
+
+For debugging the code of CPAN.pm itself in interactive mode, some
+debugging aid can be turned on for most packages within
+CPAN.pm with one of
+
+=over 2
+
+=item o debug package...
+
+sets debug mode for packages.
+
+=item o debug -package...
+
+unsets debug mode for packages.
+
+=item o debug all
+
+turns debugging on for all packages.
+
+=item o debug number
+
+=back
+
+which sets the debugging packages directly. Note that C<o debug 0>
+turns debugging off.
+
+What seems a successful strategy is the combination of C<reload
+cpan> and the debugging switches. Add a new debug statement while
+running in the shell and then issue a C<reload cpan> and see the new
+debugging messages immediately without losing the current context.
+
+C<o debug> without an argument lists the valid package names and the
+current set of packages in debugging mode. C<o debug> has built-in
+completion support.
+
+For debugging of CPAN data there is the C<dump> command which takes
+the same arguments as make/test/install and outputs each object's
+Data::Dumper dump. If an argument looks like a perl variable and
+contains one of C<$>, C<@> or C<%>, it is eval()ed and fed to
+Data::Dumper directly.
+
+=head2 Floppy, Zip, Offline Mode
+
+CPAN.pm works nicely without network access, too. If you maintain machines
+that are not networked at all, you should consider working with C<file:>
+URLs. You'll have to collect your modules somewhere first. So
+you might use CPAN.pm to put together all you need on a networked
+machine. Then copy the $CPAN::Config->{keep_source_where} (but not
+$CPAN::Config->{build_dir}) directory on a floppy. This floppy is kind
+of a personal CPAN. CPAN.pm on the non-networked machines works nicely
+with this floppy. See also below the paragraph about CD-ROM support.
+
+=head2 Basic Utilities for Programmers
+
+=over 2
+
+=item has_inst($module)
+
+Returns true if the module is installed. Used to load all modules into
+the running CPAN.pm that are considered optional. The config variable
+C<dontload_list> intercepts the C<has_inst()> call such
+that an optional module is not loaded despite being available. For
+example, the following command will prevent C<YAML.pm> from being
+loaded:
+
+    cpan> o conf dontload_list push YAML
+
+See the source for details.
+
+=item use_inst($module)
+
+Similary to L<has_inst()> tries to load optional library but also dies if
+library is not available
+
+=item has_usable($module)
+
+Returns true if the module is installed and in a usable state. Only
+useful for a handful of modules that are used internally. See the
+source for details.
+
+=item instance($module)
+
+The constructor for all the singletons used to represent modules,
+distributions, authors, and bundles. If the object already exists, this
+method returns the object; otherwise, it calls the constructor.
+
+=item frontend()
+
+=item frontend($new_frontend)
+
+Getter/setter for frontend object. Method just allows to subclass CPAN.pm.
+
+=back
+
+=head1 SECURITY
+
+There's no strong security layer in CPAN.pm. CPAN.pm helps you to
+install foreign, unmasked, unsigned code on your machine. We compare
+to a checksum that comes from the net just as the distribution file
+itself. But we try to make it easy to add security on demand:
+
+=head2 Cryptographically signed modules
+
+Since release 1.77, CPAN.pm has been able to verify cryptographically
+signed module distributions using Module::Signature.  The CPAN modules
+can be signed by their authors, thus giving more security.  The simple
+unsigned MD5 checksums that were used before by CPAN protect mainly
+against accidental file corruption.
+
+You will need to have Module::Signature installed, which in turn
+requires that you have at least one of Crypt::OpenPGP module or the
+command-line F<gpg> tool installed.
+
+You will also need to be able to connect over the Internet to the public
+key servers, like pgp.mit.edu, and their port 11731 (the HKP protocol).
+
+The configuration parameter check_sigs is there to turn signature
+checking on or off.
+
+=head1 EXPORT
+
+Most functions in package CPAN are exported by default. The reason
+for this is that the primary use is intended for the cpan shell or for
+one-liners.
+
+=head1 ENVIRONMENT
+
+When the CPAN shell enters a subshell via the look command, it sets
+the environment CPAN_SHELL_LEVEL to 1, or increments that variable if it is
+already set.
+
+When CPAN runs, it sets the environment variable PERL5_CPAN_IS_RUNNING
+to the ID of the running process. It also sets
+PERL5_CPANPLUS_IS_RUNNING to prevent runaway processes which could
+happen with older versions of Module::Install.
+
+When running C<perl Makefile.PL>, the environment variable
+C<PERL5_CPAN_IS_EXECUTING> is set to the full path of the
+C<Makefile.PL> that is being executed. This prevents runaway processes
+with newer versions of Module::Install.
+
+When the config variable ftp_passive is set, all downloads will be run
+with the environment variable FTP_PASSIVE set to this value. This is
+in general a good idea as it influences both Net::FTP and LWP based
+connections. The same effect can be achieved by starting the cpan
+shell with this environment variable set. For Net::FTP alone, one can
+also always set passive mode by running libnetcfg.
+
+=head1 POPULATE AN INSTALLATION WITH LOTS OF MODULES
+
+Populating a freshly installed perl with one's favorite modules is pretty
+easy if you maintain a private bundle definition file. To get a useful
+blueprint of a bundle definition file, the command autobundle can be used
+on the CPAN shell command line. This command writes a bundle definition
+file for all modules installed for the current perl
+interpreter. It's recommended to run this command once only, and from then
+on maintain the file manually under a private name, say
+Bundle/my_bundle.pm. With a clever bundle file you can then simply say
+
+    cpan> install Bundle::my_bundle
+
+then answer a few questions and go out for coffee (possibly
+even in a different city).
+
+Maintaining a bundle definition file means keeping track of two
+things: dependencies and interactivity. CPAN.pm sometimes fails on
+calculating dependencies because not all modules define all MakeMaker
+attributes correctly, so a bundle definition file should specify
+prerequisites as early as possible. On the other hand, it's
+annoying that so many distributions need some interactive configuring. So
+what you can try to accomplish in your private bundle file is to have the
+packages that need to be configured early in the file and the gentle
+ones later, so you can go out for coffee after a few minutes and leave CPAN.pm
+to churn away unattended.
+
+=head1 WORKING WITH CPAN.pm BEHIND FIREWALLS
+
+Thanks to Graham Barr for contributing the following paragraphs about
+the interaction between perl, and various firewall configurations. For
+further information on firewalls, it is recommended to consult the
+documentation that comes with the I<ncftp> program. If you are unable to
+go through the firewall with a simple Perl setup, it is likely
+that you can configure I<ncftp> so that it works through your firewall.
+
+=head2 Three basic types of firewalls
+
+Firewalls can be categorized into three basic types.
+
+=over 4
+
+=item http firewall
+
+This is when the firewall machine runs a web server, and to access the
+outside world, you must do so via that web server. If you set environment
+variables like http_proxy or ftp_proxy to values beginning with http://,
+or in your web browser you've proxy information set, then you know
+you are running behind an http firewall.
+
+To access servers outside these types of firewalls with perl (even for
+ftp), you need LWP or HTTP::Tiny.
+
+=item ftp firewall
+
+This where the firewall machine runs an ftp server. This kind of
+firewall will only let you access ftp servers outside the firewall.
+This is usually done by connecting to the firewall with ftp, then
+entering a username like "user@outside.host.com".
+
+To access servers outside these type of firewalls with perl, you
+need Net::FTP.
+
+=item One-way visibility
+
+One-way visibility means these firewalls try to make themselves
+invisible to users inside the firewall. An FTP data connection is
+normally created by sending your IP address to the remote server and then
+listening for the return connection. But the remote server will not be able to
+connect to you because of the firewall. For these types of firewall,
+FTP connections need to be done in a passive mode.
+
+There are two that I can think off.
+
+=over 4
+
+=item SOCKS
+
+If you are using a SOCKS firewall, you will need to compile perl and link
+it with the SOCKS library.  This is what is normally called a 'socksified'
+perl. With this executable you will be able to connect to servers outside
+the firewall as if it were not there.
+
+=item IP Masquerade
+
+This is when the firewall implemented in the kernel (via NAT, or networking
+address translation), it allows you to hide a complete network behind one
+IP address. With this firewall no special compiling is needed as you can
+access hosts directly.
+
+For accessing ftp servers behind such firewalls you usually need to
+set the environment variable C<FTP_PASSIVE> or the config variable
+ftp_passive to a true value.
+
+=back
+
+=back
+
+=head2 Configuring lynx or ncftp for going through a firewall
+
+If you can go through your firewall with e.g. lynx, presumably with a
+command such as
+
+    /usr/local/bin/lynx -pscott:tiger
+
+then you would configure CPAN.pm with the command
+
+    o conf lynx "/usr/local/bin/lynx -pscott:tiger"
+
+That's all. Similarly for ncftp or ftp, you would configure something
+like
+
+    o conf ncftp "/usr/bin/ncftp -f /home/scott/ncftplogin.cfg"
+
+Your mileage may vary...
+
+=head1 FAQ
+
+=over 4
+
+=item 1)
+
+I installed a new version of module X but CPAN keeps saying,
+I have the old version installed
+
+Probably you B<do> have the old version installed. This can
+happen if a module installs itself into a different directory in the
+@INC path than it was previously installed. This is not really a
+CPAN.pm problem, you would have the same problem when installing the
+module manually. The easiest way to prevent this behaviour is to add
+the argument C<UNINST=1> to the C<make install> call, and that is why
+many people add this argument permanently by configuring
+
+  o conf make_install_arg UNINST=1
+
+=item 2)
+
+So why is UNINST=1 not the default?
+
+Because there are people who have their precise expectations about who
+may install where in the @INC path and who uses which @INC array. In
+fine tuned environments C<UNINST=1> can cause damage.
+
+=item 3)
+
+I want to clean up my mess, and install a new perl along with
+all modules I have. How do I go about it?
+
+Run the autobundle command for your old perl and optionally rename the
+resulting bundle file (e.g. Bundle/mybundle.pm), install the new perl
+with the Configure option prefix, e.g.
+
+    ./Configure -Dprefix=/usr/local/perl-5.6.78.9
+
+Install the bundle file you produced in the first step with something like
+
+    cpan> install Bundle::mybundle
+
+and you're done.
+
+=item 4)
+
+When I install bundles or multiple modules with one command
+there is too much output to keep track of.
+
+You may want to configure something like
+
+  o conf make_arg "| tee -ai /root/.cpan/logs/make.out"
+  o conf make_install_arg "| tee -ai /root/.cpan/logs/make_install.out"
+
+so that STDOUT is captured in a file for later inspection.
+
+
+=item 5)
+
+I am not root, how can I install a module in a personal directory?
+
+As of CPAN 1.9463, if you do not have permission to write the default perl
+library directories, CPAN's configuration process will ask you whether
+you want to bootstrap <local::lib>, which makes keeping a personal
+perl library directory easy.
+
+Another thing you should bear in mind is that the UNINST parameter can
+be dangerous when you are installing into a private area because you
+might accidentally remove modules that other people depend on that are
+not using the private area.
+
+=item 6)
+
+How to get a package, unwrap it, and make a change before building it?
+
+Have a look at the C<look> (!) command.
+
+=item 7)
+
+I installed a Bundle and had a couple of fails. When I
+retried, everything resolved nicely. Can this be fixed to work
+on first try?
+
+The reason for this is that CPAN does not know the dependencies of all
+modules when it starts out. To decide about the additional items to
+install, it just uses data found in the META.yml file or the generated
+Makefile. An undetected missing piece breaks the process. But it may
+well be that your Bundle installs some prerequisite later than some
+depending item and thus your second try is able to resolve everything.
+Please note, CPAN.pm does not know the dependency tree in advance and
+cannot sort the queue of things to install in a topologically correct
+order. It resolves perfectly well B<if> all modules declare the
+prerequisites correctly with the PREREQ_PM attribute to MakeMaker or
+the C<requires> stanza of Module::Build. For bundles which fail and
+you need to install often, it is recommended to sort the Bundle
+definition file manually.
+
+=item 8)
+
+In our intranet, we have many modules for internal use. How
+can I integrate these modules with CPAN.pm but without uploading
+the modules to CPAN?
+
+Have a look at the CPAN::Site module.
+
+=item 9)
+
+When I run CPAN's shell, I get an error message about things in my
+C</etc/inputrc> (or C<~/.inputrc>) file.
+
+These are readline issues and can only be fixed by studying readline
+configuration on your architecture and adjusting the referenced file
+accordingly. Please make a backup of the C</etc/inputrc> or C<~/.inputrc>
+and edit them. Quite often harmless changes like uppercasing or
+lowercasing some arguments solves the problem.
+
+=item 10)
+
+Some authors have strange characters in their names.
+
+Internally CPAN.pm uses the UTF-8 charset. If your terminal is
+expecting ISO-8859-1 charset, a converter can be activated by setting
+term_is_latin to a true value in your config file. One way of doing so
+would be
+
+    cpan> o conf term_is_latin 1
+
+If other charset support is needed, please file a bug report against
+CPAN.pm at rt.cpan.org and describe your needs. Maybe we can extend
+the support or maybe UTF-8 terminals become widely available.
+
+Note: this config variable is deprecated and will be removed in a
+future version of CPAN.pm. It will be replaced with the conventions
+around the family of $LANG and $LC_* environment variables.
+
+=item 11)
+
+When an install fails for some reason and then I correct the error
+condition and retry, CPAN.pm refuses to install the module, saying
+C<Already tried without success>.
+
+Use the force pragma like so
+
+  force install Foo::Bar
+
+Or you can use
+
+  look Foo::Bar
+
+and then C<make install> directly in the subshell.
+
+=item 12)
+
+How do I install a "DEVELOPER RELEASE" of a module?
+
+By default, CPAN will install the latest non-developer release of a
+module. If you want to install a dev release, you have to specify the
+partial path starting with the author id to the tarball you wish to
+install, like so:
+
+    cpan> install KWILLIAMS/Module-Build-0.27_07.tar.gz
+
+Note that you can use the C<ls> command to get this path listed.
+
+=item 13)
+
+How do I install a module and all its dependencies from the commandline,
+without being prompted for anything, despite my CPAN configuration
+(or lack thereof)?
+
+CPAN uses ExtUtils::MakeMaker's prompt() function to ask its questions, so
+if you set the PERL_MM_USE_DEFAULT environment variable, you shouldn't be
+asked any questions at all (assuming the modules you are installing are
+nice about obeying that variable as well):
+
+    % PERL_MM_USE_DEFAULT=1 perl -MCPAN -e 'install My::Module'
+
+=item 14)
+
+How do I create a Module::Build based Build.PL derived from an
+ExtUtils::MakeMaker focused Makefile.PL?
+
+http://search.cpan.org/dist/Module-Build-Convert/
+
+=item 15)
+
+I'm frequently irritated with the CPAN shell's inability to help me
+select a good mirror.
+
+CPAN can now help you select a "good" mirror, based on which ones have the
+lowest 'ping' round-trip times.  From the shell, use the command 'o conf init
+urllist' and allow CPAN to automatically select mirrors for you.
+
+Beyond that help, the urllist config parameter is yours. You can add and remove
+sites at will. You should find out which sites have the best up-to-dateness,
+bandwidth, reliability, etc. and are topologically close to you. Some people
+prefer fast downloads, others up-to-dateness, others reliability.  You decide
+which to try in which order.
+
+Henk P. Penning maintains a site that collects data about CPAN sites:
+
+  http://mirrors.cpan.org/
+
+Also, feel free to play with experimental features. Run
+
+  o conf init randomize_urllist ftpstats_period ftpstats_size
+
+and choose your favorite parameters. After a few downloads running the
+C<hosts> command will probably assist you in choosing the best mirror
+sites.
+
+=item 16)
+
+Why do I get asked the same questions every time I start the shell?
+
+You can make your configuration changes permanent by calling the
+command C<o conf commit>. Alternatively set the C<auto_commit>
+variable to true by running C<o conf init auto_commit> and answering
+the following question with yes.
+
+=item 17)
+
+Older versions of CPAN.pm had the original root directory of all
+tarballs in the build directory. Now there are always random
+characters appended to these directory names. Why was this done?
+
+The random characters are provided by File::Temp and ensure that each
+module's individual build directory is unique. This makes running
+CPAN.pm in concurrent processes simultaneously safe.
+
+=item 18)
+
+Speaking of the build directory. Do I have to clean it up myself?
+
+You have the choice to set the config variable C<scan_cache> to
+C<never>. Then you must clean it up yourself. The other possible
+values, C<atstart> and C<atexit> clean up the build directory when you
+start (or more precisely, after the first extraction into the build
+directory) or exit the CPAN shell, respectively. If you never start up
+the CPAN shell, you probably also have to clean up the build directory
+yourself.
+
+=back
+
+=head1 COMPATIBILITY
+
+=head2 OLD PERL VERSIONS
+
+CPAN.pm is regularly tested to run under 5.005 and assorted
+newer versions. It is getting more and more difficult to get the
+minimal prerequisites working on older perls. It is close to
+impossible to get the whole Bundle::CPAN working there. If you're in
+the position to have only these old versions, be advised that CPAN is
+designed to work fine without the Bundle::CPAN installed.
+
+To get things going, note that GBARR/Scalar-List-Utils-1.18.tar.gz is
+compatible with ancient perls and that File::Temp is listed as a
+prerequisite but CPAN has reasonable workarounds if it is missing.
+
+=head2 CPANPLUS
+
+This module and its competitor, the CPANPLUS module, are both much
+cooler than the other. CPAN.pm is older. CPANPLUS was designed to be
+more modular, but it was never intended to be compatible with CPAN.pm.
+
+=head2 CPANMINUS
+
+In the year 2010 App::cpanminus was launched as a new approach to a
+cpan shell with a considerably smaller footprint. Very cool stuff.
+
+=head1 SECURITY ADVICE
+
+This software enables you to upgrade software on your computer and so
+is inherently dangerous because the newly installed software may
+contain bugs and may alter the way your computer works or even make it
+unusable. Please consider backing up your data before every upgrade.
+
+=head1 BUGS
+
+Please report bugs via L<http://rt.cpan.org/>
+
+Before submitting a bug, please make sure that the traditional method
+of building a Perl module package from a shell by following the
+installation instructions of that package still works in your
+environment.
+
+=head1 AUTHOR
+
+Andreas Koenig C<< <andk@cpan.org> >>
+
+=head1 LICENSE
+
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+See L<http://www.perl.com/perl/misc/Artistic.html>
+
+=head1 TRANSLATIONS
+
+Kawai,Takanori provides a Japanese translation of a very old version
+of this manpage at
+L<http://homepage3.nifty.com/hippo2000/perltips/CPAN.htm>
+
+=head1 SEE ALSO
+
+Many people enter the CPAN shell by running the L<cpan> utility
+program which is installed in the same directory as perl itself. So if
+you have this directory in your PATH variable (or some equivalent in
+your operating system) then typing C<cpan> in a console window will
+work for you as well. Above that the utility provides several
+commandline shortcuts.
+
+melezhik (Alexey) sent me a link where he published a chef recipe to
+work with CPAN.pm: http://community.opscode.com/cookbooks/cpan.
+
+
+=cut
diff --git a/lib/5.24.1/CPAN/API/HOWTO.pod b/lib/5.24.1/CPAN/API/HOWTO.pod
new file mode 100644
index 00000000..e65a4bc9
--- /dev/null
+++ b/lib/5.24.1/CPAN/API/HOWTO.pod
@@ -0,0 +1,44 @@
+=head1 NAME
+
+CPAN::API::HOWTO - a recipe book for programming with CPAN.pm
+
+=head1 RECIPES
+
+All of these recipes assume that you have put "use CPAN" at the top of
+your program.
+
+=head2 What distribution contains a particular module?
+
+    my $distribution = CPAN::Shell->expand(
+        "Module", "Data::UUID"
+    )->distribution()->pretty_id();
+
+This returns a string of the form "AUTHORID/TARBALL".  If you want the
+full path and filename to this distribution on a CPAN mirror, then it is
+C<.../authors/id/A/AU/AUTHORID/TARBALL>.
+
+=head2 What modules does a particular distribution contain?
+
+    CPAN::Index->reload();
+    my @modules = CPAN::Shell->expand(
+        "Distribution", "JHI/Graph-0.83.tar.gz"
+    )->containsmods();
+
+You may also refer to a distribution in the form A/AU/AUTHORID/TARBALL.
+
+=head1 SEE ALSO
+
+the main CPAN.pm documentation
+
+=head1 LICENSE
+
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+See L<http://www.perl.com/perl/misc/Artistic.html>
+
+=head1 AUTHOR
+
+David Cantrell
+
+=cut
diff --git a/lib/5.24.1/CPAN/Author.pm b/lib/5.24.1/CPAN/Author.pm
new file mode 100644
index 00000000..572f3ab3
--- /dev/null
+++ b/lib/5.24.1/CPAN/Author.pm
@@ -0,0 +1,236 @@
+# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
+# vim: ts=4 sts=4 sw=4:
+package CPAN::Author;
+use strict;
+
+use CPAN::InfoObj;
+@CPAN::Author::ISA = qw(CPAN::InfoObj);
+use vars qw(
+            $VERSION
+);
+$VERSION = "5.5002";
+
+package CPAN::Author;
+use strict;
+
+#-> sub CPAN::Author::force
+sub force {
+    my $self = shift;
+    $self->{force}++;
+}
+
+#-> sub CPAN::Author::force
+sub unforce {
+    my $self = shift;
+    delete $self->{force};
+}
+
+#-> sub CPAN::Author::id
+sub id {
+    my $self = shift;
+    my $id = $self->{ID};
+    $CPAN::Frontend->mydie("Illegal author id[$id]") unless $id =~ /^[A-Z]/;
+    $id;
+}
+
+#-> sub CPAN::Author::as_glimpse ;
+sub as_glimpse {
+    my($self) = @_;
+    my(@m);
+    my $class = ref($self);
+    $class =~ s/^CPAN:://;
+    push @m, sprintf(qq{%-15s %s ("%s" <%s>)\n},
+                     $class,
+                     $self->{ID},
+                     $self->fullname,
+                     $self->email);
+    join "", @m;
+}
+
+#-> sub CPAN::Author::fullname ;
+sub fullname {
+    shift->ro->{FULLNAME};
+}
+*name = \&fullname;
+
+#-> sub CPAN::Author::email ;
+sub email    { shift->ro->{EMAIL}; }
+
+#-> sub CPAN::Author::ls ;
+sub ls {
+    my $self = shift;
+    my $glob = shift || "";
+    my $silent = shift || 0;
+    my $id = $self->id;
+
+    # adapted from CPAN::Distribution::verifyCHECKSUM ;
+    my(@csf); # chksumfile
+    @csf = $self->id =~ /(.)(.)(.*)/;
+    $csf[1] = join "", @csf[0,1];
+    $csf[2] = join "", @csf[1,2]; # ("A","AN","ANDK")
+    my(@dl);
+    @dl = $self->dir_listing([$csf[0],"CHECKSUMS"], 0, 1);
+    unless (grep {$_->[2] eq $csf[1]} @dl) {
+        $CPAN::Frontend->myprint("Directory $csf[1]/ does not exist\n") unless $silent ;
+        return;
+    }
+    @dl = $self->dir_listing([@csf[0,1],"CHECKSUMS"], 0, 1);
+    unless (grep {$_->[2] eq $csf[2]} @dl) {
+        $CPAN::Frontend->myprint("Directory $id/ does not exist\n") unless $silent;
+        return;
+    }
+    @dl = $self->dir_listing([@csf,"CHECKSUMS"], 1, 1);
+    if ($glob) {
+        if ($CPAN::META->has_inst("Text::Glob")) {
+            $glob =~ s|/$|/*|;
+            my $rglob = Text::Glob::glob_to_regex($glob);
+            CPAN->debug("glob[$glob]rglob[$rglob]dl[@dl]") if $CPAN::DEBUG;
+            my @tmpdl = grep { $_->[2] =~ /$rglob/ } @dl;
+            if (1==@tmpdl && $tmpdl[0][0]==0) {
+                $rglob = Text::Glob::glob_to_regex("$glob/*");
+                @dl = grep { $_->[2] =~ /$rglob/ } @dl;
+            } else {
+                @dl = @tmpdl;
+            }
+            CPAN->debug("rglob[$rglob]dl[@dl]") if $CPAN::DEBUG;
+        } else {
+            $CPAN::Frontend->mydie("Text::Glob not installed, cannot proceed");
+        }
+    }
+    unless ($silent >= 2) {
+        $CPAN::Frontend->myprint
+            (
+             join "",
+             map {
+                 sprintf
+                     (
+                      "%8d %10s %s/%s%s\n",
+                      $_->[0],
+                      $_->[1],
+                      $id,
+                      $_->[2],
+                      0==$_->[0]?"/":"",
+                     )
+                 } sort { $a->[2] cmp $b->[2] } @dl
+            );
+    }
+    @dl;
+}
+
+# returns an array of arrays, the latter contain (size,mtime,filename)
+#-> sub CPAN::Author::dir_listing ;
+sub dir_listing {
+    my $self = shift;
+    my $chksumfile = shift;
+    my $recursive = shift;
+    my $may_ftp = shift;
+
+    my $lc_want =
+        File::Spec->catfile($CPAN::Config->{keep_source_where},
+                            "authors", "id", @$chksumfile);
+
+    my $fh;
+
+    CPAN->debug("chksumfile[@$chksumfile]recursive[$recursive]may_ftp[$may_ftp]") if $CPAN::DEBUG;
+    # Purge and refetch old (pre-PGP) CHECKSUMS; they are a security
+    # hazard.  (Without GPG installed they are not that much better,
+    # though.)
+    $fh = FileHandle->new;
+    if (open($fh, $lc_want)) {
+        my $line = <$fh>; close $fh;
+        unlink($lc_want) unless $line =~ /PGP/;
+    }
+
+    local($") = "/";
+    # connect "force" argument with "index_expire".
+    my $force = $self->{force};
+    if (my @stat = stat $lc_want) {
+        $force ||= $stat[9] + $CPAN::Config->{index_expire}*86400 <= time;
+    }
+    my $lc_file;
+    if ($may_ftp) {
+        $lc_file = eval {
+            CPAN::FTP->localize
+                    (
+                     "authors/id/@$chksumfile",
+                     $lc_want,
+                     $force,
+                    );
+        };
+        unless ($lc_file) {
+            $CPAN::Frontend->myprint("Trying $lc_want.gz\n");
+            $chksumfile->[-1] .= ".gz";
+            $lc_file = eval {
+                CPAN::FTP->localize
+                        ("authors/id/@$chksumfile",
+                         "$lc_want.gz",
+                         1,
+                        );
+            };
+            if ($lc_file) {
+                $lc_file =~ s{\.gz(?!\n)\Z}{}; #};
+                eval{CPAN::Tarzip->new("$lc_file.gz")->gunzip($lc_file)};
+            } else {
+                return;
+            }
+        }
+    } else {
+        $lc_file = $lc_want;
+        # we *could* second-guess and if the user has a file: URL,
+        # then we could look there. But on the other hand, if they do
+        # have a file: URL, why did they choose to set
+        # $CPAN::Config->{show_upload_date} to false?
+    }
+
+    # adapted from CPAN::Distribution::CHECKSUM_check_file ;
+    $fh = FileHandle->new;
+    my($cksum);
+    if (open $fh, $lc_file) {
+        local($/);
+        my $eval = <$fh>;
+        $eval =~ s/\015?\012/\n/g;
+        close $fh;
+        my($compmt) = Safe->new();
+        $cksum = $compmt->reval($eval);
+        if ($@) {
+            rename $lc_file, "$lc_file.bad";
+            Carp::confess($@) if $@;
+        }
+    } elsif ($may_ftp) {
+        Carp::carp ("Could not open '$lc_file' for reading.");
+    } else {
+        # Maybe should warn: "You may want to set show_upload_date to a true value"
+        return;
+    }
+    my(@result,$f);
+    for $f (sort keys %$cksum) {
+        if (exists $cksum->{$f}{isdir}) {
+            if ($recursive) {
+                my(@dir) = @$chksumfile;
+                pop @dir;
+                push @dir, $f, "CHECKSUMS";
+                push @result, [ 0, "-", $f ];
+                push @result, map {
+                    [$_->[0], $_->[1], "$f/$_->[2]"]
+                } $self->dir_listing(\@dir,1,$may_ftp);
+            } else {
+                push @result, [ 0, "-", $f ];
+            }
+        } else {
+            push @result, [
+                           ($cksum->{$f}{"size"}||0),
+                           $cksum->{$f}{"mtime"}||"---",
+                           $f
+                          ];
+        }
+    }
+    @result;
+}
+
+#-> sub CPAN::Author::reports
+sub reports {
+    $CPAN::Frontend->mywarn("reports on authors not implemented.
+Please file a bugreport if you need this.\n");
+}
+
+1;
diff --git a/lib/5.24.1/CPAN/Bundle.pm b/lib/5.24.1/CPAN/Bundle.pm
new file mode 100644
index 00000000..1525dde5
--- /dev/null
+++ b/lib/5.24.1/CPAN/Bundle.pm
@@ -0,0 +1,290 @@
+# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
+# vim: ts=4 sts=4 sw=4:
+package CPAN::Bundle;
+use strict;
+use CPAN::Module;
+@CPAN::Bundle::ISA = qw(CPAN::Module);
+
+use vars qw(
+            $VERSION
+);
+$VERSION = "5.5001";
+
+sub look {
+    my $self = shift;
+    $CPAN::Frontend->myprint($self->as_string);
+}
+
+#-> CPAN::Bundle::undelay
+sub undelay {
+    my $self = shift;
+    delete $self->{later};
+    for my $c ( $self->contains ) {
+        my $obj = CPAN::Shell->expandany($c) or next;
+        $obj->undelay;
+    }
+}
+
+# mark as dirty/clean
+#-> sub CPAN::Bundle::color_cmd_tmps ;
+sub color_cmd_tmps {
+    my($self) = shift;
+    my($depth) = shift || 0;
+    my($color) = shift || 0;
+    my($ancestors) = shift || [];
+    # a module needs to recurse to its cpan_file, a distribution needs
+    # to recurse into its prereq_pms, a bundle needs to recurse into its modules
+
+    return if exists $self->{incommandcolor}
+        && $color==1
+        && $self->{incommandcolor}==$color;
+    if ($depth>=$CPAN::MAX_RECURSION) {
+        die(CPAN::Exception::RecursiveDependency->new($ancestors));
+    }
+    # warn "color_cmd_tmps $depth $color " . $self->id; # sleep 1;
+
+    for my $c ( $self->contains ) {
+        my $obj = CPAN::Shell->expandany($c) or next;
+        CPAN->debug("c[$c]obj[$obj]") if $CPAN::DEBUG;
+        $obj->color_cmd_tmps($depth+1,$color,[@$ancestors, $self->id]);
+    }
+    # never reached code?
+    #if ($color==0) {
+      #delete $self->{badtestcnt};
+    #}
+    $self->{incommandcolor} = $color;
+}
+
+#-> sub CPAN::Bundle::as_string ;
+sub as_string {
+    my($self) = @_;
+    $self->contains;
+    # following line must be "=", not "||=" because we have a moving target
+    $self->{INST_VERSION} = $self->inst_version;
+    return $self->SUPER::as_string;
+}
+
+#-> sub CPAN::Bundle::contains ;
+sub contains {
+    my($self) = @_;
+    my($inst_file) = $self->inst_file || "";
+    my($id) = $self->id;
+    $self->debug("inst_file[$inst_file]id[$id]") if $CPAN::DEBUG;
+    if ($inst_file && CPAN::Version->vlt($self->inst_version,$self->cpan_version)) {
+        undef $inst_file;
+    }
+    unless ($inst_file) {
+        # Try to get at it in the cpan directory
+        $self->debug("no inst_file") if $CPAN::DEBUG;
+        my $cpan_file;
+        $CPAN::Frontend->mydie("I don't know a bundle with ID $id\n") unless
+              $cpan_file = $self->cpan_file;
+        if ($cpan_file eq "N/A") {
+            $CPAN::Frontend->mydie("Bundle $id not found on disk and not on CPAN.
+  Maybe stale symlink? Maybe removed during session? Giving up.\n");
+        }
+        my $dist = $CPAN::META->instance('CPAN::Distribution',
+                                         $self->cpan_file);
+        $self->debug("before get id[$dist->{ID}]") if $CPAN::DEBUG;
+        $dist->get;
+        $self->debug("after get id[$dist->{ID}]") if $CPAN::DEBUG;
+        my($todir) = $CPAN::Config->{'cpan_home'};
+        my(@me,$from,$to,$me);
+        @me = split /::/, $self->id;
+        $me[-1] .= ".pm";
+        $me = File::Spec->catfile(@me);
+        $from = $self->find_bundle_file($dist->{build_dir},join('/',@me));
+        $to = File::Spec->catfile($todir,$me);
+        File::Path::mkpath(File::Basename::dirname($to));
+        File::Copy::copy($from, $to)
+              or Carp::confess("Couldn't copy $from to $to: $!");
+        $inst_file = $to;
+    }
+    my @result;
+    my $fh = FileHandle->new;
+    local $/ = "\n";
+    open($fh,$inst_file) or die "Could not open '$inst_file': $!";
+    my $in_cont = 0;
+    $self->debug("inst_file[$inst_file]") if $CPAN::DEBUG;
+    while (<$fh>) {
+        $in_cont = m/^=(?!head1\s+(?i-xsm:CONTENTS))/ ? 0 :
+            m/^=head1\s+(?i-xsm:CONTENTS)/ ? 1 : $in_cont;
+        next unless $in_cont;
+        next if /^=/;
+        s/\#.*//;
+        next if /^\s+$/;
+        chomp;
+        push @result, (split " ", $_, 2)[0];
+    }
+    close $fh;
+    delete $self->{STATUS};
+    $self->{CONTAINS} = \@result;
+    $self->debug("CONTAINS[@result]") if $CPAN::DEBUG;
+    unless (@result) {
+        $CPAN::Frontend->mywarn(qq{
+The bundle file "$inst_file" may be a broken
+bundlefile. It seems not to contain any bundle definition.
+Please check the file and if it is bogus, please delete it.
+Sorry for the inconvenience.
+});
+    }
+    @result;
+}
+
+#-> sub CPAN::Bundle::find_bundle_file
+# $where is in local format, $what is in unix format
+sub find_bundle_file {
+    my($self,$where,$what) = @_;
+    $self->debug("where[$where]what[$what]") if $CPAN::DEBUG;
+### The following two lines let CPAN.pm become Bundle/CPAN.pm :-(
+###    my $bu = File::Spec->catfile($where,$what);
+###    return $bu if -f $bu;
+    my $manifest = File::Spec->catfile($where,"MANIFEST");
+    unless (-f $manifest) {
+        require ExtUtils::Manifest;
+        my $cwd = CPAN::anycwd();
+        $self->safe_chdir($where);
+        ExtUtils::Manifest::mkmanifest();
+        $self->safe_chdir($cwd);
+    }
+    my $fh = FileHandle->new($manifest)
+        or Carp::croak("Couldn't open $manifest: $!");
+    local($/) = "\n";
+    my $bundle_filename = $what;
+    $bundle_filename =~ s|Bundle.*/||;
+    my $bundle_unixpath;
+    while (<$fh>) {
+        next if /^\s*\#/;
+        my($file) = /(\S+)/;
+        if ($file =~ m|\Q$what\E$|) {
+            $bundle_unixpath = $file;
+            # return File::Spec->catfile($where,$bundle_unixpath); # bad
+            last;
+        }
+        # retry if she managed to have no Bundle directory
+        $bundle_unixpath = $file if $file =~ m|\Q$bundle_filename\E$|;
+    }
+    return File::Spec->catfile($where, split /\//, $bundle_unixpath)
+        if $bundle_unixpath;
+    Carp::croak("Couldn't find a Bundle file in $where");
+}
+
+# needs to work quite differently from Module::inst_file because of
+# cpan_home/Bundle/ directory and the possibility that we have
+# shadowing effect. As it makes no sense to take the first in @INC for
+# Bundles, we parse them all for $VERSION and take the newest.
+
+#-> sub CPAN::Bundle::inst_file ;
+sub inst_file {
+    my($self) = @_;
+    my($inst_file);
+    my(@me);
+    @me = split /::/, $self->id;
+    $me[-1] .= ".pm";
+    my($incdir,$bestv);
+    foreach $incdir ($CPAN::Config->{'cpan_home'},@INC) {
+        my $parsefile = File::Spec->catfile($incdir, @me);
+        CPAN->debug("parsefile[$parsefile]") if $CPAN::DEBUG;
+        next unless -f $parsefile;
+        my $have = eval { MM->parse_version($parsefile); };
+        if ($@) {
+            $CPAN::Frontend->mywarn("Error while parsing version number in file '$parsefile'\n");
+        }
+        if (!$bestv || CPAN::Version->vgt($have,$bestv)) {
+            $self->{INST_FILE} = $parsefile;
+            $self->{INST_VERSION} = $bestv = $have;
+        }
+    }
+    $self->{INST_FILE};
+}
+
+#-> sub CPAN::Bundle::inst_version ;
+sub inst_version {
+    my($self) = @_;
+    $self->inst_file; # finds INST_VERSION as side effect
+    $self->{INST_VERSION};
+}
+
+#-> sub CPAN::Bundle::rematein ;
+sub rematein {
+    my($self,$meth) = @_;
+    $self->debug("self[$self] meth[$meth]") if $CPAN::DEBUG;
+    my($id) = $self->id;
+    Carp::croak( "Can't $meth $id, don't have an associated bundle file. :-(\n" )
+        unless $self->inst_file || $self->cpan_file;
+    my($s,%fail);
+    for $s ($self->contains) {
+        my($type) = $s =~ m|/| ? 'CPAN::Distribution' :
+            $s =~ m|^Bundle::| ? 'CPAN::Bundle' : 'CPAN::Module';
+        if ($type eq 'CPAN::Distribution') {
+            $CPAN::Frontend->mywarn(qq{
+The Bundle }.$self->id.qq{ contains
+explicitly a file '$s'.
+Going to $meth that.
+});
+            $CPAN::Frontend->mysleep(5);
+        }
+        # possibly noisy action:
+        $self->debug("type[$type] s[$s]") if $CPAN::DEBUG;
+        my $obj = $CPAN::META->instance($type,$s);
+        $obj->{reqtype} = $self->{reqtype};
+        # $obj->$meth();
+        # XXX should optional be based on whether bundle was optional? -- xdg, 2012-04-01
+        # A: Sure, what could demand otherwise? --andk, 2013-11-25
+        CPAN::Queue->queue_item(qmod => $obj->id, reqtype => $self->{reqtype}, optional => !$self->{mandatory});
+    }
+}
+
+# If a bundle contains another that contains an xs_file we have here,
+# we just don't bother I suppose
+#-> sub CPAN::Bundle::xs_file
+sub xs_file {
+    return 0;
+}
+
+#-> sub CPAN::Bundle::force ;
+sub fforce   { shift->rematein('fforce',@_); }
+#-> sub CPAN::Bundle::force ;
+sub force   { shift->rematein('force',@_); }
+#-> sub CPAN::Bundle::notest ;
+sub notest  { shift->rematein('notest',@_); }
+#-> sub CPAN::Bundle::get ;
+sub get     { shift->rematein('get',@_); }
+#-> sub CPAN::Bundle::make ;
+sub make    { shift->rematein('make',@_); }
+#-> sub CPAN::Bundle::test ;
+sub test    {
+    my $self = shift;
+    # $self->{badtestcnt} ||= 0;
+    $self->rematein('test',@_);
+}
+#-> sub CPAN::Bundle::install ;
+sub install {
+  my $self = shift;
+  $self->rematein('install',@_);
+}
+#-> sub CPAN::Bundle::clean ;
+sub clean   { shift->rematein('clean',@_); }
+
+#-> sub CPAN::Bundle::uptodate ;
+sub uptodate {
+    my($self) = @_;
+    return 0 unless $self->SUPER::uptodate; # we must have the current Bundle def
+    my $c;
+    foreach $c ($self->contains) {
+        my $obj = CPAN::Shell->expandany($c);
+        return 0 unless $obj->uptodate;
+    }
+    return 1;
+}
+
+#-> sub CPAN::Bundle::readme ;
+sub readme  {
+    my($self) = @_;
+    my($file) = $self->cpan_file or $CPAN::Frontend->myprint(qq{
+No File found for bundle } . $self->id . qq{\n}), return;
+    $self->debug("self[$self] file[$file]") if $CPAN::DEBUG;
+    $CPAN::META->instance('CPAN::Distribution',$file)->readme;
+}
+
+1;
diff --git a/lib/5.24.1/CPAN/CacheMgr.pm b/lib/5.24.1/CPAN/CacheMgr.pm
new file mode 100644
index 00000000..144efd62
--- /dev/null
+++ b/lib/5.24.1/CPAN/CacheMgr.pm
@@ -0,0 +1,249 @@
+# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
+# vim: ts=4 sts=4 sw=4:
+package CPAN::CacheMgr;
+use strict;
+use CPAN::InfoObj;
+@CPAN::CacheMgr::ISA = qw(CPAN::InfoObj CPAN);
+use Cwd qw(chdir);
+use File::Find;
+
+use vars qw(
+            $VERSION
+);
+$VERSION = "5.5002";
+
+package CPAN::CacheMgr;
+use strict;
+
+#-> sub CPAN::CacheMgr::as_string ;
+sub as_string {
+    eval { require Data::Dumper };
+    if ($@) {
+        return shift->SUPER::as_string;
+    } else {
+        return Data::Dumper::Dumper(shift);
+    }
+}
+
+#-> sub CPAN::CacheMgr::cachesize ;
+sub cachesize {
+    shift->{DU};
+}
+
+#-> sub CPAN::CacheMgr::tidyup ;
+sub tidyup {
+  my($self) = @_;
+  return unless $CPAN::META->{LOCK};
+  return unless -d $self->{ID};
+  my @toremove = grep { $self->{SIZE}{$_}==0 } @{$self->{FIFO}};
+  for my $current (0..$#toremove) {
+    my $toremove = $toremove[$current];
+    $CPAN::Frontend->myprint(sprintf(
+                                     "DEL(%d/%d): %s \n",
+                                     $current+1,
+                                     scalar @toremove,
+                                     $toremove,
+                                    )
+                            );
+    return if $CPAN::Signal;
+    $self->_clean_cache($toremove);
+    return if $CPAN::Signal;
+  }
+  $self->{FIFO} = [];
+}
+
+#-> sub CPAN::CacheMgr::dir ;
+sub dir {
+    shift->{ID};
+}
+
+#-> sub CPAN::CacheMgr::entries ;
+sub entries {
+    my($self,$dir) = @_;
+    return unless defined $dir;
+    $self->debug("reading dir[$dir]") if $CPAN::DEBUG;
+    $dir ||= $self->{ID};
+    my($cwd) = CPAN::anycwd();
+    chdir $dir or Carp::croak("Can't chdir to $dir: $!");
+    my $dh = DirHandle->new(File::Spec->curdir)
+        or Carp::croak("Couldn't opendir $dir: $!");
+    my(@entries);
+    for ($dh->read) {
+        next if $_ eq "." || $_ eq "..";
+        if (-f $_) {
+            push @entries, File::Spec->catfile($dir,$_);
+        } elsif (-d _) {
+            push @entries, File::Spec->catdir($dir,$_);
+        } else {
+            $CPAN::Frontend->mywarn("Warning: weird direntry in $dir: $_\n");
+        }
+    }
+    chdir $cwd or Carp::croak("Can't chdir to $cwd: $!");
+    sort { -M $a <=> -M $b} @entries;
+}
+
+#-> sub CPAN::CacheMgr::disk_usage ;
+sub disk_usage {
+    my($self,$dir,$fast) = @_;
+    return if exists $self->{SIZE}{$dir};
+    return if $CPAN::Signal;
+    my($Du) = 0;
+    if (-e $dir) {
+        if (-d $dir) {
+            unless (-x $dir) {
+                unless (chmod 0755, $dir) {
+                    $CPAN::Frontend->mywarn("I have neither the -x permission nor the ".
+                                            "permission to change the permission; cannot ".
+                                            "estimate disk usage of '$dir'\n");
+                    $CPAN::Frontend->mysleep(5);
+                    return;
+                }
+            }
+        } elsif (-f $dir) {
+            # nothing to say, no matter what the permissions
+        }
+    } else {
+        $CPAN::Frontend->mywarn("File or directory '$dir' has gone, ignoring\n");
+        return;
+    }
+    if ($fast) {
+        $Du = 0; # placeholder
+    } else {
+        find(
+             sub {
+           $File::Find::prune++ if $CPAN::Signal;
+           return if -l $_;
+           if ($^O eq 'MacOS') {
+             require Mac::Files;
+             my $cat  = Mac::Files::FSpGetCatInfo($_);
+             $Du += $cat->ioFlLgLen() + $cat->ioFlRLgLen() if $cat;
+           } else {
+             if (-d _) {
+               unless (-x _) {
+                 unless (chmod 0755, $_) {
+                   $CPAN::Frontend->mywarn("I have neither the -x permission nor ".
+                                           "the permission to change the permission; ".
+                                           "can only partially estimate disk usage ".
+                                           "of '$_'\n");
+                   $CPAN::Frontend->mysleep(5);
+                   return;
+                 }
+               }
+             } else {
+               $Du += (-s _);
+             }
+           }
+         },
+         $dir
+            );
+    }
+    return if $CPAN::Signal;
+    $self->{SIZE}{$dir} = $Du/1024/1024;
+    unshift @{$self->{FIFO}}, $dir;
+    $self->debug("measured $dir is $Du") if $CPAN::DEBUG;
+    $self->{DU} += $Du/1024/1024;
+    $self->{DU};
+}
+
+#-> sub CPAN::CacheMgr::_clean_cache ;
+sub _clean_cache {
+    my($self,$dir) = @_;
+    return unless -e $dir;
+    unless (File::Spec->canonpath(File::Basename::dirname($dir))
+            eq File::Spec->canonpath($CPAN::Config->{build_dir})) {
+        $CPAN::Frontend->mywarn("Directory '$dir' not below $CPAN::Config->{build_dir}, ".
+                                "will not remove\n");
+        $CPAN::Frontend->mysleep(5);
+        return;
+    }
+    $self->debug("have to rmtree $dir, will free $self->{SIZE}{$dir}")
+        if $CPAN::DEBUG;
+    File::Path::rmtree($dir);
+    my $id_deleted = 0;
+    if ($dir !~ /\.yml$/ && -f "$dir.yml") {
+        my $yaml_module = CPAN::_yaml_module();
+        if ($CPAN::META->has_inst($yaml_module)) {
+            my($peek_yaml) = eval { CPAN->_yaml_loadfile("$dir.yml"); };
+            if ($@) {
+                $CPAN::Frontend->mywarn("(parse error on '$dir.yml' removing anyway)");
+                unlink "$dir.yml" or
+                    $CPAN::Frontend->mywarn("(Could not unlink '$dir.yml': $!)");
+                return;
+            } elsif (my $id = $peek_yaml->[0]{distribution}{ID}) {
+                $CPAN::META->delete("CPAN::Distribution", $id);
+
+                # XXX we should restore the state NOW, otherwise this
+                # distro does not exist until we read an index. BUG ALERT(?)
+
+                # $CPAN::Frontend->mywarn (" +++\n");
+                $id_deleted++;
+            }
+        }
+        unlink "$dir.yml"; # may fail
+        unless ($id_deleted) {
+            CPAN->debug("no distro found associated with '$dir'");
+        }
+    }
+    $self->{DU} -= $self->{SIZE}{$dir};
+    delete $self->{SIZE}{$dir};
+}
+
+#-> sub CPAN::CacheMgr::new ;
+sub new {
+    my($class,$phase) = @_;
+    $phase ||= "atstart";
+    my $time = time;
+    my($debug,$t2);
+    $debug = "";
+    my $self = {
+        ID => $CPAN::Config->{build_dir},
+        MAX => $CPAN::Config->{'build_cache'},
+        SCAN => $CPAN::Config->{'scan_cache'} || 'atstart',
+        DU => 0
+    };
+    $CPAN::Frontend->mydie("Unknown scan_cache argument: $self->{SCAN}")
+        unless $self->{SCAN} =~ /never|atstart|atexit/;
+    File::Path::mkpath($self->{ID});
+    my $dh = DirHandle->new($self->{ID});
+    bless $self, $class;
+    $self->scan_cache($phase);
+    $t2 = time;
+    $debug .= "timing of CacheMgr->new: ".($t2 - $time);
+    $time = $t2;
+    CPAN->debug($debug) if $CPAN::DEBUG;
+    $self;
+}
+
+#-> sub CPAN::CacheMgr::scan_cache ;
+sub scan_cache {
+    my ($self, $phase) = @_;
+    $phase = '' unless defined $phase;
+    return unless $phase eq $self->{SCAN};
+    return unless $CPAN::META->{LOCK};
+    $CPAN::Frontend->myprint(
+                             sprintf("Scanning cache %s for sizes\n",
+                             $self->{ID}));
+    my $e;
+    my @entries = $self->entries($self->{ID});
+    my $i = 0;
+    my $painted = 0;
+    for $e (@entries) {
+        my $symbol = ".";
+        if ($self->{DU} > $self->{MAX}) {
+            $symbol = "-";
+            $self->disk_usage($e,1);
+        } else {
+            $self->disk_usage($e);
+        }
+        $i++;
+        while (($painted/76) < ($i/@entries)) {
+            $CPAN::Frontend->myprint($symbol);
+            $painted++;
+        }
+        return if $CPAN::Signal;
+    }
+    $CPAN::Frontend->myprint("DONE\n");
+    $self->tidyup;
+}
+
+1;
diff --git a/lib/5.24.1/CPAN/Complete.pm b/lib/5.24.1/CPAN/Complete.pm
new file mode 100644
index 00000000..588e6e6c
--- /dev/null
+++ b/lib/5.24.1/CPAN/Complete.pm
@@ -0,0 +1,175 @@
+# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
+# vim: ts=4 sts=4 sw=4:
+package CPAN::Complete;
+use strict;
+@CPAN::Complete::ISA = qw(CPAN::Debug);
+# Q: where is the "How do I add a new command" HOWTO?
+# A: git log -p -1 355c44e9caaec857e4b12f51afb96498833c3e36 where andk added the report command
+@CPAN::Complete::COMMANDS = sort qw(
+                                    ? ! a b d h i m o q r u
+                                    autobundle
+                                    bye
+                                    clean
+                                    cvs_import
+                                    dump
+                                    exit
+                                    failed
+                                    force
+                                    fforce
+                                    hosts
+                                    install
+                                    install_tested
+                                    is_tested
+                                    look
+                                    ls
+                                    make
+                                    mkmyconfig
+                                    notest
+                                    perldoc
+                                    quit
+                                    readme
+                                    recent
+                                    recompile
+                                    reload
+                                    report
+                                    reports
+                                    scripts
+                                    smoke
+                                    test
+                                    upgrade
+);
+
+use vars qw(
+            $VERSION
+);
+$VERSION = "5.5001";
+
+package CPAN::Complete;
+use strict;
+
+sub gnu_cpl {
+    my($text, $line, $start, $end) = @_;
+    my(@perlret) = cpl($text, $line, $start);
+    # find longest common match. Can anybody show me how to peruse
+    # T::R::Gnu to have this done automatically? Seems expensive.
+    return () unless @perlret;
+    my($newtext) = $text;
+    for (my $i = length($text)+1;;$i++) {
+        last unless length($perlret[0]) && length($perlret[0]) >= $i;
+        my $try = substr($perlret[0],0,$i);
+        my @tries = grep {substr($_,0,$i) eq $try} @perlret;
+        # warn "try[$try]tries[@tries]";
+        if (@tries == @perlret) {
+            $newtext = $try;
+        } else {
+            last;
+        }
+    }
+    ($newtext,@perlret);
+}
+
+#-> sub CPAN::Complete::cpl ;
+sub cpl {
+    my($word,$line,$pos) = @_;
+    $word ||= "";
+    $line ||= "";
+    $pos ||= 0;
+    CPAN->debug("word [$word] line[$line] pos[$pos]") if $CPAN::DEBUG;
+    $line =~ s/^\s*//;
+    if ($line =~ s/^((?:notest|f?force)\s*)//) {
+        $pos -= length($1);
+    }
+    my @return;
+    if ($pos == 0 || $line =~ /^(?:h(?:elp)?|\?)\s/) {
+        @return = grep /^\Q$word\E/, @CPAN::Complete::COMMANDS;
+    } elsif ( $line !~ /^[\!abcdghimorutl]/ ) {
+        @return = ();
+    } elsif ($line =~ /^a\s/) {
+        @return = cplx('CPAN::Author',uc($word));
+    } elsif ($line =~ /^ls\s/) {
+        my($author,$rest) = $word =~ m|([^/]+)/?(.*)|;
+        @return = $rest ? () : map {"$_/"} cplx('CPAN::Author',uc($author||""));
+        if (0 && 1==@return) { # XXX too slow and even wrong when there is a * already
+            @return = grep /^\Q$word\E/, map {"$author/$_->[2]"} CPAN::Shell->expand("Author",$author)->ls("$rest*","2");
+        }
+    } elsif ($line =~ /^b\s/) {
+        CPAN::Shell->local_bundles;
+        @return = cplx('CPAN::Bundle',$word);
+    } elsif ($line =~ /^d\s/) {
+        @return = cplx('CPAN::Distribution',$word);
+    } elsif ($line =~ m/^(
+                          [mru]|make|clean|dump|get|test|install|readme|look|cvs_import|perldoc|recent
+                         )\s/x ) {
+        if ($word =~ /^Bundle::/) {
+            CPAN::Shell->local_bundles;
+        }
+        @return = (cplx('CPAN::Module',$word),cplx('CPAN::Bundle',$word));
+    } elsif ($line =~ /^i\s/) {
+        @return = cpl_any($word);
+    } elsif ($line =~ /^reload\s/) {
+        @return = cpl_reload($word,$line,$pos);
+    } elsif ($line =~ /^o\s/) {
+        @return = cpl_option($word,$line,$pos);
+    } elsif ($line =~ m/^\S+\s/ ) {
+        # fallback for future commands and what we have forgotten above
+        @return = (cplx('CPAN::Module',$word),cplx('CPAN::Bundle',$word));
+    } else {
+        @return = ();
+    }
+    return @return;
+}
+
+#-> sub CPAN::Complete::cplx ;
+sub cplx {
+    my($class, $word) = @_;
+    if (CPAN::_sqlite_running()) {
+        $CPAN::SQLite->search($class, "^\Q$word\E");
+    }
+    my $method = "id";
+    $method = "pretty_id" if $class eq "CPAN::Distribution";
+    sort grep /^\Q$word\E/, map { $_->$method() } $CPAN::META->all_objects($class);
+}
+
+#-> sub CPAN::Complete::cpl_any ;
+sub cpl_any {
+    my($word) = shift;
+    return (
+            cplx('CPAN::Author',$word),
+            cplx('CPAN::Bundle',$word),
+            cplx('CPAN::Distribution',$word),
+            cplx('CPAN::Module',$word),
+           );
+}
+
+#-> sub CPAN::Complete::cpl_reload ;
+sub cpl_reload {
+    my($word,$line,$pos) = @_;
+    $word ||= "";
+    my(@words) = split " ", $line;
+    CPAN->debug("word[$word] line[$line] pos[$pos]") if $CPAN::DEBUG;
+    my(@ok) = qw(cpan index);
+    return @ok if @words == 1;
+    return grep /^\Q$word\E/, @ok if @words == 2 && $word;
+}
+
+#-> sub CPAN::Complete::cpl_option ;
+sub cpl_option {
+    my($word,$line,$pos) = @_;
+    $word ||= "";
+    my(@words) = split " ", $line;
+    CPAN->debug("word[$word] line[$line] pos[$pos]") if $CPAN::DEBUG;
+    my(@ok) = qw(conf debug);
+    return @ok if @words == 1;
+    return grep /^\Q$word\E/, @ok if @words == 2 && length($word);
+    if (0) {
+    } elsif ($words[1] eq 'index') {
+        return ();
+    } elsif ($words[1] eq 'conf') {
+        return CPAN::HandleConfig::cpl(@_);
+    } elsif ($words[1] eq 'debug') {
+        return sort grep /^\Q$word\E/i,
+            sort keys %CPAN::DEBUG, 'all';
+    }
+}
+
+1;
diff --git a/lib/5.24.1/CPAN/Debug.pm b/lib/5.24.1/CPAN/Debug.pm
new file mode 100644
index 00000000..48e394bd
--- /dev/null
+++ b/lib/5.24.1/CPAN/Debug.pm
@@ -0,0 +1,83 @@
+# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
+package CPAN::Debug;
+use strict;
+use vars qw($VERSION);
+
+$VERSION = "5.5001";
+# module is internal to CPAN.pm
+
+%CPAN::DEBUG = qw[
+                  CPAN              1
+                  Index             2
+                  InfoObj           4
+                  Author            8
+                  Distribution     16
+                  Bundle           32
+                  Module           64
+                  CacheMgr        128
+                  Complete        256
+                  FTP             512
+                  Shell          1024
+                  Eval           2048
+                  HandleConfig   4096
+                  Tarzip         8192
+                  Version       16384
+                  Queue         32768
+                  FirstTime     65536
+];
+
+$CPAN::DEBUG ||= 0;
+
+#-> sub CPAN::Debug::debug ;
+sub debug {
+    my($self,$arg) = @_;
+
+    my @caller;
+    my $i = 0;
+    while () {
+        my(@c) = (caller($i))[0 .. ($i ? 3 : 2)];
+        last unless defined $c[0];
+        push @caller, \@c;
+        for (0,3) {
+            last if $_ > $#c;
+            $c[$_] =~ s/.*:://;
+        }
+        for (1) {
+            $c[$_] =~ s|.*/||;
+        }
+        last if ++$i>=3;
+    }
+    pop @caller;
+    if ($CPAN::DEBUG{$caller[0][0]} & $CPAN::DEBUG) {
+        if ($arg and ref $arg) {
+            eval { require Data::Dumper };
+            if ($@) {
+                $CPAN::Frontend->myprint("Debug(\n" . $arg->as_string . ")\n");
+            } else {
+                $CPAN::Frontend->myprint("Debug(\n" . Data::Dumper::Dumper($arg) . ")\n");
+            }
+        } else {
+            my $outer = "";
+            local $" = ",";
+            if (@caller>1) {
+                $outer = ",[@{$caller[1]}]";
+            }
+            $CPAN::Frontend->myprint("Debug(@{$caller[0]}$outer): $arg\n");
+        }
+    }
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+CPAN::Debug - internal debugging for CPAN.pm
+
+=head1 LICENSE
+
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+=cut
diff --git a/lib/5.24.1/CPAN/DeferredCode.pm b/lib/5.24.1/CPAN/DeferredCode.pm
new file mode 100644
index 00000000..0db37a64
--- /dev/null
+++ b/lib/5.24.1/CPAN/DeferredCode.pm
@@ -0,0 +1,16 @@
+package CPAN::DeferredCode;
+
+use strict;
+use vars qw/$VERSION/;
+
+use overload fallback => 1, map { ($_ => 'run') } qw/
+    bool "" 0+
+/;
+
+$VERSION = "5.50";
+
+sub run {
+    $_[0]->();
+}
+
+1;
diff --git a/lib/5.24.1/CPAN/Distribution.pm b/lib/5.24.1/CPAN/Distribution.pm
new file mode 100644
index 00000000..092b781a
--- /dev/null
+++ b/lib/5.24.1/CPAN/Distribution.pm
@@ -0,0 +1,4426 @@
+# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
+# vim: ts=4 sts=4 sw=4:
+package CPAN::Distribution;
+use strict;
+use Cwd qw(chdir);
+use CPAN::Distroprefs;
+use CPAN::InfoObj;
+use File::Path ();
+@CPAN::Distribution::ISA = qw(CPAN::InfoObj);
+use vars qw($VERSION);
+$VERSION = "2.04";
+
+# no prepare, because prepare is not a command on the shell command line
+# TODO: clear instance cache on reload
+my %instance;
+for my $method (qw(get make test install)) {
+    no strict 'refs';
+    for my $prefix (qw(pre post)) {
+        my $hookname = sprintf "%s_%s", $prefix, $method;
+        *$hookname = sub {
+            my($self) = @_;
+            for my $plugin (@{$CPAN::Config->{plugin_list}}) {
+                my($plugin_proper,$args) = split /=/, $plugin, 2;
+                $args = "" unless defined $args;
+                if ($CPAN::META->has_inst($plugin_proper)){
+                    my @args = split /,/, $args;
+                    $instance{$plugin} ||= $plugin_proper->new(@args);
+                    if ($instance{$plugin}->can($hookname)) {
+                        $instance{$plugin}->$hookname($self);
+                    }
+                } else {
+                    $CPAN::Frontend->mydie("Plugin '$plugin_proper' not found");
+                }
+            }
+        };
+    }
+}
+
+# Accessors
+sub cpan_comment {
+    my $self = shift;
+    my $ro = $self->ro or return;
+    $ro->{CPAN_COMMENT}
+}
+
+#-> CPAN::Distribution::undelay
+sub undelay {
+    my $self = shift;
+    for my $delayer (
+                     "configure_requires_later",
+                     "configure_requires_later_for",
+                     "later",
+                     "later_for",
+                    ) {
+        delete $self->{$delayer};
+    }
+}
+
+#-> CPAN::Distribution::is_dot_dist
+sub is_dot_dist {
+    my($self) = @_;
+    return substr($self->id,-1,1) eq ".";
+}
+
+# add the A/AN/ stuff
+#-> CPAN::Distribution::normalize
+sub normalize {
+    my($self,$s) = @_;
+    $s = $self->id unless defined $s;
+    if (substr($s,-1,1) eq ".") {
+        # using a global because we are sometimes called as static method
+        if (!$CPAN::META->{LOCK}
+            && !$CPAN::Have_warned->{"$s is unlocked"}++
+           ) {
+            $CPAN::Frontend->mywarn("You are visiting the local directory
+  '$s'
+  without lock, take care that concurrent processes do not do likewise.\n");
+            $CPAN::Frontend->mysleep(1);
+        }
+        if ($s eq ".") {
+            $s = "$CPAN::iCwd/.";
+        } elsif (File::Spec->file_name_is_absolute($s)) {
+        } elsif (File::Spec->can("rel2abs")) {
+            $s = File::Spec->rel2abs($s);
+        } else {
+            $CPAN::Frontend->mydie("Your File::Spec is too old, please upgrade File::Spec");
+        }
+        CPAN->debug("s[$s]") if $CPAN::DEBUG;
+        unless ($CPAN::META->exists("CPAN::Distribution", $s)) {
+            for ($CPAN::META->instance("CPAN::Distribution", $s)) {
+                $_->{build_dir} = $s;
+                $_->{archived} = "local_directory";
+                $_->{unwrapped} = CPAN::Distrostatus->new("YES -- local_directory");
+            }
+        }
+    } elsif (
+        $s =~ tr|/|| == 1
+        or
+        $s !~ m|[A-Z]/[A-Z-0-9]{2}/[A-Z-0-9]{2,}/|
+       ) {
+        return $s if $s =~ m:^N/A|^Contact Author: ;
+        $s =~ s|^(.)(.)([^/]*/)(.+)$|$1/$1$2/$1$2$3$4|;
+        CPAN->debug("s[$s]") if $CPAN::DEBUG;
+    }
+    $s;
+}
+
+#-> sub CPAN::Distribution::author ;
+sub author {
+    my($self) = @_;
+    my($authorid);
+    if (substr($self->id,-1,1) eq ".") {
+        $authorid = "LOCAL";
+    } else {
+        ($authorid) = $self->pretty_id =~ /^([\w\-]+)/;
+    }
+    CPAN::Shell->expand("Author",$authorid);
+}
+
+# tries to get the yaml from CPAN instead of the distro itself:
+# EXPERIMENTAL, UNDOCUMENTED AND UNTESTED, for Tels
+sub fast_yaml {
+    my($self) = @_;
+    my $meta = $self->pretty_id;
+    $meta =~ s/\.(tar.gz|tgz|zip|tar.bz2)/.meta/;
+    my(@ls) = CPAN::Shell->globls($meta);
+    my $norm = $self->normalize($meta);
+
+    my($local_file);
+    my($local_wanted) =
+        File::Spec->catfile(
+                            $CPAN::Config->{keep_source_where},
+                            "authors",
+                            "id",
+                            split(/\//,$norm)
+                           );
+    $self->debug("Doing localize") if $CPAN::DEBUG;
+    unless ($local_file =
+            CPAN::FTP->localize("authors/id/$norm",
+                                $local_wanted)) {
+        $CPAN::Frontend->mydie("Giving up on downloading yaml file '$local_wanted'\n");
+    }
+    my $yaml = CPAN->_yaml_loadfile($local_file)->[0];
+}
+
+#-> sub CPAN::Distribution::cpan_userid
+sub cpan_userid {
+    my $self = shift;
+    if ($self->{ID} =~ m{[A-Z]/[A-Z\-]{2}/([A-Z\-]+)/}) {
+        return $1;
+    }
+    return $self->SUPER::cpan_userid;
+}
+
+#-> sub CPAN::Distribution::pretty_id
+sub pretty_id {
+    my $self = shift;
+    my $id = $self->id;
+    return $id unless $id =~ m|^./../|;
+    substr($id,5);
+}
+
+#-> sub CPAN::Distribution::base_id
+sub base_id {
+    my $self = shift;
+    my $id = $self->pretty_id();
+    my $base_id = File::Basename::basename($id);
+    $base_id =~ s{\.(?:tar\.(bz2|gz|Z)|t(?:gz|bz)|zip)$}{}i;
+    return $base_id;
+}
+
+#-> sub CPAN::Distribution::tested_ok_but_not_installed
+sub tested_ok_but_not_installed {
+    my $self = shift;
+    return (
+           $self->{make_test}
+        && $self->{build_dir}
+        && (UNIVERSAL::can($self->{make_test},"failed") ?
+             ! $self->{make_test}->failed :
+             $self->{make_test} =~ /^YES/
+            )
+        && (
+            !$self->{install}
+            ||
+            $self->{install}->failed
+           )
+    );
+}
+
+
+# mark as dirty/clean for the sake of recursion detection. $color=1
+# means "in use", $color=0 means "not in use anymore". $color=2 means
+# we have determined prereqs now and thus insist on passing this
+# through (at least) once again.
+
+#-> sub CPAN::Distribution::color_cmd_tmps ;
+sub color_cmd_tmps {
+    my($self) = shift;
+    my($depth) = shift || 0;
+    my($color) = shift || 0;
+    my($ancestors) = shift || [];
+    # a distribution needs to recurse into its prereq_pms
+    $self->debug("color_cmd_tmps[$depth,$color,@$ancestors]") if $CPAN::DEBUG;
+
+    return if exists $self->{incommandcolor}
+        && $color==1
+        && $self->{incommandcolor}==$color;
+    $CPAN::MAX_RECURSION||=0; # silence 'once' warnings
+    if ($depth>=$CPAN::MAX_RECURSION) {
+        die(CPAN::Exception::RecursiveDependency->new($ancestors));
+    }
+    # warn "color_cmd_tmps $depth $color " . $self->id; # sleep 1;
+    my $prereq_pm = $self->prereq_pm;
+    if (defined $prereq_pm) {
+        # XXX also optional_req & optional_breq? -- xdg, 2012-04-01
+        # A: no, optional deps may recurse -- ak, 2014-05-07
+      PREREQ: for my $pre (
+                keys %{$prereq_pm->{requires}||{}},
+                keys %{$prereq_pm->{build_requires}||{}},
+            ) {
+            next PREREQ if $pre eq "perl";
+            my $premo;
+            unless ($premo = CPAN::Shell->expand("Module",$pre)) {
+                $CPAN::Frontend->mywarn("prerequisite module[$pre] not known\n");
+                $CPAN::Frontend->mysleep(0.2);
+                next PREREQ;
+            }
+            $premo->color_cmd_tmps($depth+1,$color,[@$ancestors, $self->id]);
+        }
+    }
+    if ($color==0) {
+        delete $self->{sponsored_mods};
+
+        # as we are at the end of a command, we'll give up this
+        # reminder of a broken test. Other commands may test this guy
+        # again. Maybe 'badtestcnt' should be renamed to
+        # 'make_test_failed_within_command'?
+        delete $self->{badtestcnt};
+    }
+    $self->{incommandcolor} = $color;
+}
+
+#-> sub CPAN::Distribution::as_string ;
+sub as_string {
+    my $self = shift;
+    $self->containsmods;
+    $self->upload_date;
+    $self->SUPER::as_string(@_);
+}
+
+#-> sub CPAN::Distribution::containsmods ;
+sub containsmods {
+    my $self = shift;
+    return keys %{$self->{CONTAINSMODS}} if exists $self->{CONTAINSMODS};
+    my $dist_id = $self->{ID};
+    for my $mod ($CPAN::META->all_objects("CPAN::Module")) {
+        my $mod_file = $mod->cpan_file or next;
+        my $mod_id = $mod->{ID} or next;
+        # warn "mod_file[$mod_file] dist_id[$dist_id] mod_id[$mod_id]";
+        # sleep 1;
+        if ($CPAN::Signal) {
+            delete $self->{CONTAINSMODS};
+            return;
+        }
+        $self->{CONTAINSMODS}{$mod_id} = undef if $mod_file eq $dist_id;
+    }
+    keys %{$self->{CONTAINSMODS}||={}};
+}
+
+#-> sub CPAN::Distribution::upload_date ;
+sub upload_date {
+    my $self = shift;
+    return $self->{UPLOAD_DATE} if exists $self->{UPLOAD_DATE};
+    my(@local_wanted) = split(/\//,$self->id);
+    my $filename = pop @local_wanted;
+    push @local_wanted, "CHECKSUMS";
+    my $author = CPAN::Shell->expand("Author",$self->cpan_userid);
+    return unless $author;
+    my @dl = $author->dir_listing(\@local_wanted,0,$CPAN::Config->{show_upload_date});
+    return unless @dl;
+    my($dirent) = grep { $_->[2] eq $filename } @dl;
+    # warn sprintf "dirent[%s]id[%s]", $dirent, $self->id;
+    return unless $dirent->[1];
+    return $self->{UPLOAD_DATE} = $dirent->[1];
+}
+
+#-> sub CPAN::Distribution::uptodate ;
+sub uptodate {
+    my($self) = @_;
+    my $c;
+    foreach $c ($self->containsmods) {
+        my $obj = CPAN::Shell->expandany($c);
+        unless ($obj->uptodate) {
+            my $id = $self->pretty_id;
+            $self->debug("$id not uptodate due to $c") if $CPAN::DEBUG;
+            return 0;
+        }
+    }
+    return 1;
+}
+
+#-> sub CPAN::Distribution::called_for ;
+sub called_for {
+    my($self,$id) = @_;
+    $self->{CALLED_FOR} = $id if defined $id;
+    return $self->{CALLED_FOR};
+}
+
+#-> sub CPAN::Distribution::shortcut_get ;
+# return values: undef means don't shortcut; 0 means shortcut as fail;
+# and 1 means shortcut as success
+sub shortcut_get {
+    my ($self) = @_;
+
+    if (my $why = $self->check_disabled) {
+        $self->{unwrapped} = CPAN::Distrostatus->new("NO $why");
+        # XXX why is this goodbye() instead of just print/warn?
+        # Alternatively, should other print/warns here be goodbye()?
+        # -- xdg, 2012-04-05
+        return $self->goodbye("[disabled] -- NA $why");
+    }
+
+    $self->debug("checking already unwrapped[$self->{ID}]") if $CPAN::DEBUG;
+    if (exists $self->{build_dir} && -d $self->{build_dir}) {
+        # this deserves print, not warn:
+        return $self->success("Has already been unwrapped into directory ".
+            "$self->{build_dir}"
+        );
+    }
+
+    # XXX I'm not sure this should be here because it's not really
+    # a test for whether get should continue or return; this is
+    # a side effect -- xdg, 2012-04-05
+    $self->debug("checking missing build_dir[$self->{ID}]") if $CPAN::DEBUG;
+    if (exists $self->{build_dir} && ! -d $self->{build_dir}){
+        # we have lost it.
+        $self->fforce(""); # no method to reset all phases but not set force (dodge)
+        return undef; # no shortcut
+    }
+
+    # although we talk about 'force' we shall not test on
+    # force directly. New model of force tries to refrain from
+    # direct checking of force.
+    $self->debug("checking unwrapping error[$self->{ID}]") if $CPAN::DEBUG;
+    if ( exists $self->{unwrapped} and (
+            UNIVERSAL::can($self->{unwrapped},"failed") ?
+            $self->{unwrapped}->failed :
+            $self->{unwrapped} =~ /^NO/ )
+    ) {
+        return $self->goodbye("Unwrapping had some problem, won't try again without force");
+    }
+
+    return undef; # no shortcut
+}
+
+#-> sub CPAN::Distribution::get ;
+sub get {
+    my($self) = @_;
+
+    $self->pre_get();
+
+    $self->debug("checking goto id[$self->{ID}]") if $CPAN::DEBUG;
+    if (my $goto = $self->prefs->{goto}) {
+        return $self->goto($goto);
+    }
+
+    if ( defined( my $sc = $self->shortcut_get) ) {
+        return $sc;
+    }
+
+    local $ENV{PERL5LIB} = defined($ENV{PERL5LIB})
+                           ? $ENV{PERL5LIB}
+                           : ($ENV{PERLLIB} || "");
+    local $ENV{PERL5OPT} = defined $ENV{PERL5OPT} ? $ENV{PERL5OPT} : "";
+    $CPAN::META->set_perl5lib;
+    local $ENV{MAKEFLAGS}; # protect us from outer make calls
+
+    my $sub_wd = CPAN::anycwd(); # for cleaning up as good as possible
+
+    my($local_file);
+    # XXX I don't think this check needs to be here, as it
+    # is already checked in shortcut_get() -- xdg, 2012-04-05
+    unless ($self->{build_dir} && -d $self->{build_dir}) {
+        $self->get_file_onto_local_disk;
+        return if $CPAN::Signal;
+        $self->check_integrity;
+        return if $CPAN::Signal;
+        (my $packagedir,$local_file) = $self->run_preps_on_packagedir;
+        # XXX why is this check here? -- xdg, 2012-04-08
+        if (exists $self->{writemakefile} && ref $self->{writemakefile}
+           && $self->{writemakefile}->can("failed") &&
+           $self->{writemakefile}->failed) {
+           #
+            return;
+        }
+        $packagedir ||= $self->{build_dir};
+        $self->{build_dir} = $packagedir;
+    }
+
+    # XXX should this move up to after run_preps_on_packagedir?
+    # Otherwise, failing writemakefile can return without
+    # a $CPAN::Signal check -- xdg, 2012-04-05
+    if ($CPAN::Signal) {
+        $self->safe_chdir($sub_wd);
+        return;
+    }
+    return unless $self->patch;
+    $self->store_persistent_state;
+
+    $self->post_get();
+
+    return 1; # success
+}
+
+#-> CPAN::Distribution::get_file_onto_local_disk
+sub get_file_onto_local_disk {
+    my($self) = @_;
+
+    return if $self->is_dot_dist;
+    my($local_file);
+    my($local_wanted) =
+        File::Spec->catfile(
+                            $CPAN::Config->{keep_source_where},
+                            "authors",
+                            "id",
+                            split(/\//,$self->id)
+                           );
+
+    $self->debug("Doing localize") if $CPAN::DEBUG;
+    unless ($local_file =
+            CPAN::FTP->localize("authors/id/$self->{ID}",
+                                $local_wanted)) {
+        my $note = "";
+        if ($CPAN::Index::DATE_OF_02) {
+            $note = "Note: Current database in memory was generated ".
+                "on $CPAN::Index::DATE_OF_02\n";
+        }
+        $CPAN::Frontend->mydie("Giving up on '$local_wanted'\n$note");
+    }
+
+    $self->debug("local_wanted[$local_wanted]local_file[$local_file]") if $CPAN::DEBUG;
+    $self->{localfile} = $local_file;
+}
+
+
+#-> CPAN::Distribution::check_integrity
+sub check_integrity {
+    my($self) = @_;
+
+    return if $self->is_dot_dist;
+    if ($CPAN::META->has_inst("Digest::SHA")) {
+        $self->debug("Digest::SHA is installed, verifying");
+        $self->verifyCHECKSUM;
+    } else {
+        $self->debug("Digest::SHA is NOT installed");
+    }
+}
+
+#-> CPAN::Distribution::run_preps_on_packagedir
+sub run_preps_on_packagedir {
+    my($self) = @_;
+    return if $self->is_dot_dist;
+
+    $CPAN::META->{cachemgr} ||= CPAN::CacheMgr->new(); # unsafe meta access, ok
+    my $builddir = $CPAN::META->{cachemgr}->dir; # unsafe meta access, ok
+    $self->safe_chdir($builddir);
+    $self->debug("Removing tmp-$$") if $CPAN::DEBUG;
+    File::Path::rmtree("tmp-$$");
+    unless (mkdir "tmp-$$", 0755) {
+        $CPAN::Frontend->unrecoverable_error(<<EOF);
+Couldn't mkdir '$builddir/tmp-$$': $!
+
+Cannot continue: Please find the reason why I cannot make the
+directory
+$builddir/tmp-$$
+and fix the problem, then retry.
+
+EOF
+    }
+    if ($CPAN::Signal) {
+        return;
+    }
+    $self->safe_chdir("tmp-$$");
+
+    #
+    # Unpack the goods
+    #
+    my $local_file = $self->{localfile};
+    my $ct = eval{CPAN::Tarzip->new($local_file)};
+    unless ($ct) {
+        $self->{unwrapped} = CPAN::Distrostatus->new("NO");
+        delete $self->{build_dir};
+        return;
+    }
+    if ($local_file =~ /(\.tar\.(bz2|gz|Z)|\.tgz)(?!\n)\Z/i) {
+        $self->{was_uncompressed}++ unless eval{$ct->gtest()};
+        $self->untar_me($ct);
+    } elsif ( $local_file =~ /\.zip(?!\n)\Z/i ) {
+        $self->unzip_me($ct);
+    } else {
+        $self->{was_uncompressed}++ unless $ct->gtest();
+        $local_file = $self->handle_singlefile($local_file);
+    }
+
+    # we are still in the tmp directory!
+    # Let's check if the package has its own directory.
+    my $dh = DirHandle->new(File::Spec->curdir)
+        or Carp::croak("Couldn't opendir .: $!");
+    my @readdir = grep $_ !~ /^\.\.?(?!\n)\Z/s, $dh->read; ### MAC??
+    if (grep { $_ eq "pax_global_header" } @readdir) {
+        $CPAN::Frontend->mywarn("Your (un)tar seems to have extracted a file named 'pax_global_header'
+from the tarball '$local_file'.
+This is almost certainly an error. Please upgrade your tar.
+I'll ignore this file for now.
+See also http://rt.cpan.org/Ticket/Display.html?id=38932\n");
+        $CPAN::Frontend->mysleep(5);
+        @readdir = grep { $_ ne "pax_global_header" } @readdir;
+    }
+    $dh->close;
+    my ($packagedir);
+    # XXX here we want in each branch File::Temp to protect all build_dir directories
+    if (CPAN->has_usable("File::Temp")) {
+        my $tdir_base;
+        my $from_dir;
+        my @dirents;
+        if (@readdir == 1 && -d $readdir[0]) {
+            $tdir_base = $readdir[0];
+            $from_dir = File::Spec->catdir(File::Spec->curdir,$readdir[0]);
+            my $dh2;
+            unless ($dh2 = DirHandle->new($from_dir)) {
+                my($mode) = (stat $from_dir)[2];
+                my $why = sprintf
+                    (
+                     "Couldn't opendir '%s', mode '%o': %s",
+                     $from_dir,
+                     $mode,
+                     $!,
+                    );
+                $CPAN::Frontend->mywarn("$why\n");
+                $self->{writemakefile} = CPAN::Distrostatus->new("NO -- $why");
+                return;
+            }
+            @dirents = grep $_ !~ /^\.\.?(?!\n)\Z/s, $dh2->read; ### MAC??
+        } else {
+            my $userid = $self->cpan_userid;
+            CPAN->debug("userid[$userid]");
+            if (!$userid or $userid eq "N/A") {
+                $userid = "anon";
+            }
+            $tdir_base = $userid;
+            $from_dir = File::Spec->curdir;
+            @dirents = @readdir;
+        }
+        eval { File::Path::mkpath $builddir; };
+        if ($@) {
+            $CPAN::Frontend->mydie("Cannot create directory $builddir: $@");
+        }
+        $packagedir = File::Temp::tempdir(
+                                          "$tdir_base-XXXXXX",
+                                          DIR => $builddir,
+                                          CLEANUP => 0,
+                                         );
+        chmod 0777 &~ umask, $packagedir; # may fail
+        my $f;
+        for $f (@dirents) { # is already without "." and ".."
+            my $from = File::Spec->catfile($from_dir,$f);
+            my $to = File::Spec->catfile($packagedir,$f);
+            unless (File::Copy::move($from,$to)) {
+                my $err = $!;
+                $from = File::Spec->rel2abs($from);
+                Carp::confess("Couldn't move $from to $to: $err");
+            }
+        }
+    } else { # older code below, still better than nothing when there is no File::Temp
+        my($distdir);
+        if (@readdir == 1 && -d $readdir[0]) {
+            $distdir = $readdir[0];
+            $packagedir = File::Spec->catdir($builddir,$distdir);
+            $self->debug("packagedir[$packagedir]builddir[$builddir]distdir[$distdir]")
+                if $CPAN::DEBUG;
+            -d $packagedir and $CPAN::Frontend->myprint("Removing previously used ".
+                                                        "$packagedir\n");
+            File::Path::rmtree($packagedir);
+            unless (File::Copy::move($distdir,$packagedir)) {
+                $CPAN::Frontend->unrecoverable_error(<<EOF);
+Couldn't move '$distdir' to '$packagedir': $!
+
+Cannot continue: Please find the reason why I cannot move
+$builddir/tmp-$$/$distdir
+to
+$packagedir
+and fix the problem, then retry
+
+EOF
+            }
+            $self->debug(sprintf("moved distdir[%s] to packagedir[%s] -e[%s]-d[%s]",
+                                 $distdir,
+                                 $packagedir,
+                                 -e $packagedir,
+                                 -d $packagedir,
+                                )) if $CPAN::DEBUG;
+        } else {
+            my $userid = $self->cpan_userid;
+            CPAN->debug("userid[$userid]") if $CPAN::DEBUG;
+            if (!$userid or $userid eq "N/A") {
+                $userid = "anon";
+            }
+            my $pragmatic_dir = $userid . '000';
+            $pragmatic_dir =~ s/\W_//g;
+            $pragmatic_dir++ while -d "../$pragmatic_dir";
+            $packagedir = File::Spec->catdir($builddir,$pragmatic_dir);
+            $self->debug("packagedir[$packagedir]") if $CPAN::DEBUG;
+            File::Path::mkpath($packagedir);
+            my($f);
+            for $f (@readdir) { # is already without "." and ".."
+                my $to = File::Spec->catdir($packagedir,$f);
+                File::Copy::move($f,$to) or Carp::confess("Couldn't move $f to $to: $!");
+            }
+        }
+    }
+    $self->{build_dir} = $packagedir;
+    $self->safe_chdir($builddir);
+    File::Path::rmtree("tmp-$$");
+
+    $self->safe_chdir($packagedir);
+    $self->_signature_business();
+    $self->safe_chdir($builddir);
+
+    return($packagedir,$local_file);
+}
+
+#-> sub CPAN::Distribution::pick_meta_file ;
+sub pick_meta_file {
+    my($self, $filter) = @_;
+    $filter = '.' unless defined $filter;
+
+    my $build_dir;
+    unless ($build_dir = $self->{build_dir}) {
+        # maybe permission on build_dir was missing
+        $CPAN::Frontend->mywarn("Warning: cannot determine META.yml without a build_dir.\n");
+        return;
+    }
+
+    my $has_cm = $CPAN::META->has_usable("CPAN::Meta");
+    my $has_pcm = $CPAN::META->has_usable("Parse::CPAN::Meta");
+
+    my @choices;
+    push @choices, 'MYMETA.json' if $has_cm;
+    push @choices, 'MYMETA.yml' if $has_cm || $has_pcm;
+    push @choices, 'META.json' if $has_cm;
+    push @choices, 'META.yml' if $has_cm || $has_pcm;
+
+    for my $file ( grep { /$filter/ } @choices ) {
+        my $path = File::Spec->catfile( $build_dir, $file );
+        return $path if -f $path
+    }
+
+    return;
+}
+
+#-> sub CPAN::Distribution::parse_meta_yml ;
+sub parse_meta_yml {
+    my($self, $yaml) = @_;
+    $self->debug(sprintf("parse_meta_yml[%s]",$yaml||'undef')) if $CPAN::DEBUG;
+    my $build_dir = $self->{build_dir} or die "PANIC: cannot parse yaml without a build_dir";
+    $yaml ||= File::Spec->catfile($build_dir,"META.yml");
+    $self->debug("meta[$yaml]") if $CPAN::DEBUG;
+    return unless -f $yaml;
+    my $early_yaml;
+    eval {
+        $CPAN::META->has_inst("Parse::CPAN::Meta") or die;
+        die "Parse::CPAN::Meta yaml too old" unless $Parse::CPAN::Meta::VERSION >= "1.40";
+        # P::C::M returns last document in scalar context
+        $early_yaml = Parse::CPAN::Meta::LoadFile($yaml);
+    };
+    unless ($early_yaml) {
+        eval { $early_yaml = CPAN->_yaml_loadfile($yaml)->[0]; };
+    }
+    $self->debug(sprintf("yaml[%s]", $early_yaml || 'UNDEF')) if $CPAN::DEBUG;
+    $self->debug($early_yaml) if $CPAN::DEBUG && $early_yaml;
+    if (!ref $early_yaml or ref $early_yaml ne "HASH"){
+        # fix rt.cpan.org #95271
+        $CPAN::Frontend->mywarn("The content of '$yaml' is not a HASH reference. Cannot use it.\n");
+        return {};
+    }
+    return $early_yaml || undef;
+}
+
+#-> sub CPAN::Distribution::satisfy_requires ;
+# return values: 1 means requirements are satisfied;
+# and 0 means not satisfied (and maybe queued)
+sub satisfy_requires {
+    my ($self) = @_;
+    $self->debug("Entering satisfy_requires") if $CPAN::DEBUG;
+    if (my @prereq = $self->unsat_prereq("later")) {
+        $self->debug("unsatisfied[@prereq]") if $CPAN::DEBUG;
+        $self->debug(@prereq) if $CPAN::DEBUG && @prereq;
+        if ($prereq[0][0] eq "perl") {
+            my $need = "requires perl '$prereq[0][1]'";
+            my $id = $self->pretty_id;
+            $CPAN::Frontend->mywarn("$id $need; you have only $]; giving up\n");
+            $self->{make} = CPAN::Distrostatus->new("NO $need");
+            $self->store_persistent_state;
+            die "[prereq] -- NOT OK\n";
+        } else {
+            my $follow = eval { $self->follow_prereqs("later",@prereq); };
+            if (0) {
+            } elsif ($follow) {
+                return; # we need deps
+            } elsif ($@ && ref $@ && $@->isa("CPAN::Exception::RecursiveDependency")) {
+                $CPAN::Frontend->mywarn($@);
+                die "[depend] -- NOT OK\n";
+            }
+        }
+    }
+    return 1;
+}
+
+#-> sub CPAN::Distribution::satisfy_configure_requires ;
+# return values: 1 means configure_require is satisfied;
+# and 0 means not satisfied (and maybe queued)
+sub satisfy_configure_requires {
+    my($self) = @_;
+    $self->debug("Entering satisfy_configure_requires") if $CPAN::DEBUG;
+    my $enable_configure_requires = 1;
+    if (!$enable_configure_requires) {
+        return 1;
+        # if we return 1 here, everything is as before we introduced
+        # configure_requires that means, things with
+        # configure_requires simply fail, all others succeed
+    }
+    my @prereq = $self->unsat_prereq("configure_requires_later");
+    $self->debug(sprintf "configure_requires[%s]", join(",",map {join "/",@$_} @prereq)) if $CPAN::DEBUG;
+    return 1 unless @prereq;
+    $self->debug(\@prereq) if $CPAN::DEBUG;
+    if ($self->{configure_requires_later}) {
+        for my $k (keys %{$self->{configure_requires_later_for}||{}}) {
+            if ($self->{configure_requires_later_for}{$k}>1) {
+                my $type = "";
+                for my $p (@prereq) {
+                    if ($p->[0] eq $k) {
+                        $type = $p->[1];
+                    }
+                }
+                $type = " $type" if $type;
+                $CPAN::Frontend->mywarn("Warning: unmanageable(?) prerequisite $k$type");
+                sleep 1;
+            }
+        }
+    }
+    if ($prereq[0][0] eq "perl") {
+        my $need = "requires perl '$prereq[0][1]'";
+        my $id = $self->pretty_id;
+        $CPAN::Frontend->mywarn("$id $need; you have only $]; giving up\n");
+        $self->{make} = CPAN::Distrostatus->new("NO $need");
+        $self->store_persistent_state;
+        return $self->goodbye("[prereq] -- NOT OK");
+    } else {
+        my $follow = eval {
+            $self->follow_prereqs("configure_requires_later", @prereq);
+        };
+        if (0) {
+        } elsif ($follow) {
+            return; # we need deps
+        } elsif ($@ && ref $@ && $@->isa("CPAN::Exception::RecursiveDependency")) {
+            $CPAN::Frontend->mywarn($@);
+            return $self->goodbye("[depend] -- NOT OK");
+        }
+        else {
+          return $self->goodbye("[configure_requires] -- NOT OK");
+        }
+    }
+    die "never reached";
+}
+
+#-> sub CPAN::Distribution::choose_MM_or_MB ;
+sub choose_MM_or_MB {
+    my($self) = @_;
+    $self->satisfy_configure_requires() or return;
+    my $local_file = $self->{localfile};
+    my($mpl) = File::Spec->catfile($self->{build_dir},"Makefile.PL");
+    my($mpl_exists) = -f $mpl;
+    unless ($mpl_exists) {
+        # NFS has been reported to have racing problems after the
+        # renaming of a directory in some environments.
+        # This trick helps.
+        $CPAN::Frontend->mysleep(1);
+        my $mpldh = DirHandle->new($self->{build_dir})
+            or Carp::croak("Couldn't opendir $self->{build_dir}: $!");
+        $mpl_exists = grep /^Makefile\.PL$/, $mpldh->read;
+        $mpldh->close;
+    }
+    my $prefer_installer = "eumm"; # eumm|mb
+    if (-f File::Spec->catfile($self->{build_dir},"Build.PL")) {
+        if ($mpl_exists) { # they *can* choose
+            if ($CPAN::META->has_inst("Module::Build")) {
+                $prefer_installer = CPAN::HandleConfig->prefs_lookup(
+                  $self, q{prefer_installer}
+                );
+                # M::B <= 0.35 left a DATA handle open that
+                # causes problems upgrading M::B on Windows
+                close *Module::Build::Version::DATA
+                  if fileno *Module::Build::Version::DATA;
+            }
+        } else {
+            $prefer_installer = "mb";
+        }
+    }
+    if (lc($prefer_installer) eq "rand") {
+        $prefer_installer = rand()<.5 ? "eumm" : "mb";
+    }
+    if (lc($prefer_installer) eq "mb") {
+        $self->{modulebuild} = 1;
+    } elsif ($self->{archived} eq "patch") {
+        # not an edge case, nothing to install for sure
+        my $why = "A patch file cannot be installed";
+        $CPAN::Frontend->mywarn("Refusing to handle this file: $why\n");
+        $self->{writemakefile} = CPAN::Distrostatus->new("NO $why");
+    } elsif (! $mpl_exists) {
+        $self->_edge_cases($mpl,$local_file);
+    }
+    if ($self->{build_dir}
+        &&
+        $CPAN::Config->{build_dir_reuse}
+       ) {
+        $self->store_persistent_state;
+    }
+    return $self;
+}
+
+# see also reanimate_build_dir
+#-> CPAN::Distribution::store_persistent_state
+sub store_persistent_state {
+    my($self) = @_;
+    my $dir = $self->{build_dir};
+    unless (defined $dir && length $dir) {
+        my $id = $self->id;
+        $CPAN::Frontend->mywarnonce("build_dir of $id is not known, ".
+                                    "will not store persistent state\n");
+        return;
+    }
+    # self-build-dir
+    my $sbd = Cwd::realpath(
+        File::Spec->catdir($dir,                       File::Spec->updir ())
+                           );
+    # config-build-dir
+    my $cbd = Cwd::realpath(
+        # the catdir is a workaround for bug https://rt.cpan.org/Ticket/Display.html?id=101283
+        File::Spec->catdir($CPAN::Config->{build_dir}, File::Spec->curdir())
+    );
+    unless ($sbd eq $cbd) {
+        $CPAN::Frontend->mywarnonce("Directory '$dir' not below $CPAN::Config->{build_dir}, ".
+                                    "will not store persistent state\n");
+        return;
+    }
+    my $file = sprintf "%s.yml", $dir;
+    my $yaml_module = CPAN::_yaml_module();
+    if ($CPAN::META->has_inst($yaml_module)) {
+        CPAN->_yaml_dumpfile(
+                             $file,
+                             {
+                              time => time,
+                              perl => CPAN::_perl_fingerprint(),
+                              distribution => $self,
+                             }
+                            );
+    } else {
+        $CPAN::Frontend->myprintonce("'$yaml_module' not installed, ".
+                                    "will not store persistent state\n");
+    }
+}
+
+#-> CPAN::Distribution::try_download
+sub try_download {
+    my($self,$patch) = @_;
+    my $norm = $self->normalize($patch);
+    my($local_wanted) =
+        File::Spec->catfile(
+                            $CPAN::Config->{keep_source_where},
+                            "authors",
+                            "id",
+                            split(/\//,$norm),
+                           );
+    $self->debug("Doing localize") if $CPAN::DEBUG;
+    return CPAN::FTP->localize("authors/id/$norm",
+                               $local_wanted);
+}
+
+{
+    my $stdpatchargs = "";
+    #-> CPAN::Distribution::patch
+    sub patch {
+        my($self) = @_;
+        $self->debug("checking patches id[$self->{ID}]") if $CPAN::DEBUG;
+        my $patches = $self->prefs->{patches};
+        $patches ||= "";
+        $self->debug("patches[$patches]") if $CPAN::DEBUG;
+        if ($patches) {
+            return unless @$patches;
+            $self->safe_chdir($self->{build_dir});
+            CPAN->debug("patches[$patches]") if $CPAN::DEBUG;
+            my $patchbin = $CPAN::Config->{patch};
+            unless ($patchbin && length $patchbin) {
+                $CPAN::Frontend->mydie("No external patch command configured\n\n".
+                                       "Please run 'o conf init /patch/'\n\n");
+            }
+            unless (MM->maybe_command($patchbin)) {
+                $CPAN::Frontend->mydie("No external patch command available\n\n".
+                                       "Please run 'o conf init /patch/'\n\n");
+            }
+            $patchbin = CPAN::HandleConfig->safe_quote($patchbin);
+            local $ENV{PATCH_GET} = 0; # formerly known as -g0
+            unless ($stdpatchargs) {
+                my $system = "$patchbin --version |";
+                local *FH;
+                open FH, $system or die "Could not fork '$system': $!";
+                local $/ = "\n";
+                my $pversion;
+              PARSEVERSION: while (<FH>) {
+                    if (/^patch\s+([\d\.]+)/) {
+                        $pversion = $1;
+                        last PARSEVERSION;
+                    }
+                }
+                if ($pversion) {
+                    $stdpatchargs = "-N --fuzz=3";
+                } else {
+                    $stdpatchargs = "-N";
+                }
+            }
+            my $countedpatches = @$patches == 1 ? "1 patch" : (scalar @$patches . " patches");
+            $CPAN::Frontend->myprint("Applying $countedpatches:\n");
+            my $patches_dir = $CPAN::Config->{patches_dir};
+            for my $patch (@$patches) {
+                if ($patches_dir && !File::Spec->file_name_is_absolute($patch)) {
+                    my $f = File::Spec->catfile($patches_dir, $patch);
+                    $patch = $f if -f $f;
+                }
+                unless (-f $patch) {
+                    CPAN->debug("not on disk: patch[$patch]") if $CPAN::DEBUG;
+                    if (my $trydl = $self->try_download($patch)) {
+                        $patch = $trydl;
+                    } else {
+                        my $fail = "Could not find patch '$patch'";
+                        $CPAN::Frontend->mywarn("$fail; cannot continue\n");
+                        $self->{unwrapped} = CPAN::Distrostatus->new("NO -- $fail");
+                        delete $self->{build_dir};
+                        return;
+                    }
+                }
+                $CPAN::Frontend->myprint("  $patch\n");
+                my $readfh = CPAN::Tarzip->TIEHANDLE($patch);
+
+                my $pcommand;
+                my($ppp,$pfiles) = $self->_patch_p_parameter($readfh);
+                if ($ppp eq "applypatch") {
+                    $pcommand = "$CPAN::Config->{applypatch} -verbose";
+                } else {
+                    my $thispatchargs = join " ", $stdpatchargs, $ppp;
+                    $pcommand = "$patchbin $thispatchargs";
+                    require Config; # usually loaded from CPAN.pm
+                    if ($Config::Config{osname} eq "solaris") {
+                        # native solaris patch cannot patch readonly files
+                        for my $file (@{$pfiles||[]}) {
+                            my @stat = stat $file or next;
+                            chmod $stat[2] | 0600, $file; # may fail
+                        }
+                    }
+                }
+
+                $readfh = CPAN::Tarzip->TIEHANDLE($patch); # open again
+                my $writefh = FileHandle->new;
+                $CPAN::Frontend->myprint("  $pcommand\n");
+                unless (open $writefh, "|$pcommand") {
+                    my $fail = "Could not fork '$pcommand'";
+                    $CPAN::Frontend->mywarn("$fail; cannot continue\n");
+                    $self->{unwrapped} = CPAN::Distrostatus->new("NO -- $fail");
+                    delete $self->{build_dir};
+                    return;
+                }
+                binmode($writefh);
+                while (my $x = $readfh->READLINE) {
+                    print $writefh $x;
+                }
+                unless (close $writefh) {
+                    my $fail = "Could not apply patch '$patch'";
+                    $CPAN::Frontend->mywarn("$fail; cannot continue\n");
+                    $self->{unwrapped} = CPAN::Distrostatus->new("NO -- $fail");
+                    delete $self->{build_dir};
+                    return;
+                }
+            }
+            $self->{patched}++;
+        }
+        return 1;
+    }
+}
+
+# may return
+# - "applypatch"
+# - ("-p0"|"-p1", $files)
+sub _patch_p_parameter {
+    my($self,$fh) = @_;
+    my $cnt_files   = 0;
+    my $cnt_p0files = 0;
+    my @files;
+    local($_);
+    while ($_ = $fh->READLINE) {
+        if (
+            $CPAN::Config->{applypatch}
+            &&
+            /\#\#\#\# ApplyPatch data follows \#\#\#\#/
+           ) {
+            return "applypatch"
+        }
+        next unless /^[\*\+]{3}\s(\S+)/;
+        my $file = $1;
+        push @files, $file;
+        $cnt_files++;
+        $cnt_p0files++ if -f $file;
+        CPAN->debug("file[$file]cnt_files[$cnt_files]cnt_p0files[$cnt_p0files]")
+            if $CPAN::DEBUG;
+    }
+    return "-p1" unless $cnt_files;
+    my $opt_p = $cnt_files==$cnt_p0files ? "-p0" : "-p1";
+    return ($opt_p, \@files);
+}
+
+#-> sub CPAN::Distribution::_edge_cases
+# with "configure" or "Makefile" or single file scripts
+sub _edge_cases {
+    my($self,$mpl,$local_file) = @_;
+    $self->debug(sprintf("makefilepl[%s]anycwd[%s]",
+                         $mpl,
+                         CPAN::anycwd(),
+                        )) if $CPAN::DEBUG;
+    my $build_dir = $self->{build_dir};
+    my($configure) = File::Spec->catfile($build_dir,"Configure");
+    if (-f $configure) {
+        # do we have anything to do?
+        $self->{configure} = $configure;
+    } elsif (-f File::Spec->catfile($build_dir,"Makefile")) {
+        $CPAN::Frontend->mywarn(qq{
+Package comes with a Makefile and without a Makefile.PL.
+We\'ll try to build it with that Makefile then.
+});
+        $self->{writemakefile} = CPAN::Distrostatus->new("YES");
+        $CPAN::Frontend->mysleep(2);
+    } else {
+        my $cf = $self->called_for || "unknown";
+        if ($cf =~ m|/|) {
+            $cf =~ s|.*/||;
+            $cf =~ s|\W.*||;
+        }
+        $cf =~ s|[/\\:]||g;     # risk of filesystem damage
+        $cf = "unknown" unless length($cf);
+        if (my $crud = $self->_contains_crud($build_dir)) {
+            my $why = qq{Package contains $crud; not recognized as a perl package, giving up};
+            $CPAN::Frontend->mywarn("$why\n");
+            $self->{writemakefile} = CPAN::Distrostatus->new(qq{NO -- $why});
+            return;
+        }
+        $CPAN::Frontend->mywarn(qq{Package seems to come without Makefile.PL.
+  (The test -f "$mpl" returned false.)
+  Writing one on our own (setting NAME to $cf)\a\n});
+        $self->{had_no_makefile_pl}++;
+        $CPAN::Frontend->mysleep(3);
+
+        # Writing our own Makefile.PL
+
+        my $exefile_stanza = "";
+        if ($self->{archived} eq "maybe_pl") {
+            $exefile_stanza = $self->_exefile_stanza($build_dir,$local_file);
+        }
+
+        my $fh = FileHandle->new;
+        $fh->open(">$mpl")
+            or Carp::croak("Could not open >$mpl: $!");
+        $fh->print(
+                   qq{# This Makefile.PL has been autogenerated by the module CPAN.pm
+# because there was no Makefile.PL supplied.
+# Autogenerated on: }.scalar localtime().qq{
+
+use ExtUtils::MakeMaker;
+WriteMakefile(
+              NAME => q[$cf],$exefile_stanza
+             );
+});
+        $fh->close;
+    }
+}
+
+#-> CPAN;:Distribution::_contains_crud
+sub _contains_crud {
+    my($self,$dir) = @_;
+    my(@dirs, $dh, @files);
+    opendir $dh, $dir or return;
+    my $dirent;
+    for $dirent (readdir $dh) {
+        next if $dirent =~ /^\.\.?$/;
+        my $path = File::Spec->catdir($dir,$dirent);
+        if (-d $path) {
+            push @dirs, $dirent;
+        } elsif (-f $path) {
+            push @files, $dirent;
+        }
+    }
+    if (@dirs && @files) {
+        return "both files[@files] and directories[@dirs]";
+    } elsif (@files > 2) {
+        return "several files[@files] but no Makefile.PL or Build.PL";
+    }
+    return;
+}
+
+#-> CPAN;:Distribution::_exefile_stanza
+sub _exefile_stanza {
+    my($self,$build_dir,$local_file) = @_;
+
+            my $fh = FileHandle->new;
+            my $script_file = File::Spec->catfile($build_dir,$local_file);
+            $fh->open($script_file)
+                or Carp::croak("Could not open script '$script_file': $!");
+            local $/ = "\n";
+            # parse name and prereq
+            my($state) = "poddir";
+            my($name, $prereq) = ("", "");
+            while (<$fh>) {
+                if ($state eq "poddir" && /^=head\d\s+(\S+)/) {
+                    if ($1 eq 'NAME') {
+                        $state = "name";
+                    } elsif ($1 eq 'PREREQUISITES') {
+                        $state = "prereq";
+                    }
+                } elsif ($state =~ m{^(name|prereq)$}) {
+                    if (/^=/) {
+                        $state = "poddir";
+                    } elsif (/^\s*$/) {
+                        # nop
+                    } elsif ($state eq "name") {
+                        if ($name eq "") {
+                            ($name) = /^(\S+)/;
+                            $state = "poddir";
+                        }
+                    } elsif ($state eq "prereq") {
+                        $prereq .= $_;
+                    }
+                } elsif (/^=cut\b/) {
+                    last;
+                }
+            }
+            $fh->close;
+
+            for ($name) {
+                s{.*<}{};       # strip X<...>
+                s{>.*}{};
+            }
+            chomp $prereq;
+            $prereq = join " ", split /\s+/, $prereq;
+            my($PREREQ_PM) = join("\n", map {
+                s{.*<}{};       # strip X<...>
+                s{>.*}{};
+                if (/[\s\'\"]/) { # prose?
+                } else {
+                    s/[^\w:]$//; # period?
+                    " "x28 . "'$_' => 0,";
+                }
+            } split /\s*,\s*/, $prereq);
+
+            if ($name) {
+                my $to_file = File::Spec->catfile($build_dir, $name);
+                rename $script_file, $to_file
+                    or die "Can't rename $script_file to $to_file: $!";
+            }
+
+    return "
+              EXE_FILES => ['$name'],
+              PREREQ_PM => {
+$PREREQ_PM
+                           },
+";
+}
+
+#-> CPAN::Distribution::_signature_business
+sub _signature_business {
+    my($self) = @_;
+    my $check_sigs = CPAN::HandleConfig->prefs_lookup($self,
+                                                      q{check_sigs});
+    if ($check_sigs) {
+        if ($CPAN::META->has_inst("Module::Signature")) {
+            if (-f "SIGNATURE") {
+                $self->debug("Module::Signature is installed, verifying") if $CPAN::DEBUG;
+                my $rv = Module::Signature::verify();
+                if ($rv != Module::Signature::SIGNATURE_OK() and
+                    $rv != Module::Signature::SIGNATURE_MISSING()) {
+                    $CPAN::Frontend->mywarn(
+                                            qq{\nSignature invalid for }.
+                                            qq{distribution file. }.
+                                            qq{Please investigate.\n\n}
+                                           );
+
+                    my $wrap =
+                        sprintf(qq{I'd recommend removing %s. Some error occurred   }.
+                                qq{while checking its signature, so it could        }.
+                                qq{be invalid. Maybe you have configured            }.
+                                qq{your 'urllist' with a bad URL. Please check this }.
+                                qq{array with 'o conf urllist' and retry. Or        }.
+                                qq{examine the distribution in a subshell. Try
+  look %s
+and run
+  cpansign -v
+},
+                                $self->{localfile},
+                                $self->pretty_id,
+                               );
+                    $self->{signature_verify} = CPAN::Distrostatus->new("NO");
+                    $CPAN::Frontend->mywarn(Text::Wrap::wrap("","",$wrap));
+                    $CPAN::Frontend->mysleep(5) if $CPAN::Frontend->can("mysleep");
+                } else {
+                    $self->{signature_verify} = CPAN::Distrostatus->new("YES");
+                    $self->debug("Module::Signature has verified") if $CPAN::DEBUG;
+                }
+            } else {
+                $CPAN::Frontend->mywarn(qq{Package came without SIGNATURE\n\n});
+            }
+        } else {
+            $self->debug("Module::Signature is NOT installed") if $CPAN::DEBUG;
+        }
+    }
+}
+
+#-> CPAN::Distribution::untar_me ;
+sub untar_me {
+    my($self,$ct) = @_;
+    $self->{archived} = "tar";
+    my $result = eval { $ct->untar() };
+    if ($result) {
+        $self->{unwrapped} = CPAN::Distrostatus->new("YES");
+    } else {
+        # unfortunately we have no $@ here, Tarzip is using mydie which dies with "\n"
+        $self->{unwrapped} = CPAN::Distrostatus->new("NO -- untar failed");
+    }
+}
+
+# CPAN::Distribution::unzip_me ;
+sub unzip_me {
+    my($self,$ct) = @_;
+    $self->{archived} = "zip";
+    if ($ct->unzip()) {
+        $self->{unwrapped} = CPAN::Distrostatus->new("YES");
+    } else {
+        $self->{unwrapped} = CPAN::Distrostatus->new("NO -- unzip failed");
+    }
+    return;
+}
+
+sub handle_singlefile {
+    my($self,$local_file) = @_;
+
+    if ( $local_file =~ /\.pm(\.(gz|Z))?(?!\n)\Z/ ) {
+        $self->{archived} = "pm";
+    } elsif ( $local_file =~ /\.patch(\.(gz|bz2))?(?!\n)\Z/ ) {
+        $self->{archived} = "patch";
+    } else {
+        $self->{archived} = "maybe_pl";
+    }
+
+    my $to = File::Basename::basename($local_file);
+    if ($to =~ s/\.(gz|Z)(?!\n)\Z//) {
+        if (eval{CPAN::Tarzip->new($local_file)->gunzip($to)}) {
+            $self->{unwrapped} = CPAN::Distrostatus->new("YES");
+        } else {
+            $self->{unwrapped} = CPAN::Distrostatus->new("NO -- uncompressing failed");
+        }
+    } else {
+        if (File::Copy::cp($local_file,".")) {
+            $self->{unwrapped} = CPAN::Distrostatus->new("YES");
+        } else {
+            $self->{unwrapped} = CPAN::Distrostatus->new("NO -- copying failed");
+        }
+    }
+    return $to;
+}
+
+#-> sub CPAN::Distribution::new ;
+sub new {
+    my($class,%att) = @_;
+
+    # $CPAN::META->{cachemgr} ||= CPAN::CacheMgr->new();
+
+    my $this = { %att };
+    return bless $this, $class;
+}
+
+#-> sub CPAN::Distribution::look ;
+sub look {
+    my($self) = @_;
+
+    if ($^O eq 'MacOS') {
+      $self->Mac::BuildTools::look;
+      return;
+    }
+
+    if (  $CPAN::Config->{'shell'} ) {
+        $CPAN::Frontend->myprint(qq{
+Trying to open a subshell in the build directory...
+});
+    } else {
+        $CPAN::Frontend->myprint(qq{
+Your configuration does not define a value for subshells.
+Please define it with "o conf shell <your shell>"
+});
+        return;
+    }
+    my $dist = $self->id;
+    my $dir;
+    unless ($dir = $self->dir) {
+        $self->get;
+    }
+    unless ($dir ||= $self->dir) {
+        $CPAN::Frontend->mywarn(qq{
+Could not determine which directory to use for looking at $dist.
+});
+        return;
+    }
+    my $pwd  = CPAN::anycwd();
+    $self->safe_chdir($dir);
+    $CPAN::Frontend->myprint(qq{Working directory is $dir\n});
+    {
+        local $ENV{CPAN_SHELL_LEVEL} = $ENV{CPAN_SHELL_LEVEL}||0;
+        $ENV{CPAN_SHELL_LEVEL} += 1;
+        my $shell = CPAN::HandleConfig->safe_quote($CPAN::Config->{'shell'});
+
+        local $ENV{PERL5LIB} = defined($ENV{PERL5LIB})
+            ? $ENV{PERL5LIB}
+                : ($ENV{PERLLIB} || "");
+
+        local $ENV{PERL5OPT} = defined $ENV{PERL5OPT} ? $ENV{PERL5OPT} : "";
+        $CPAN::META->set_perl5lib;
+        local $ENV{MAKEFLAGS}; # protect us from outer make calls
+
+        unless (system($shell) == 0) {
+            my $code = $? >> 8;
+            $CPAN::Frontend->mywarn("Subprocess shell exit code $code\n");
+        }
+    }
+    $self->safe_chdir($pwd);
+}
+
+# CPAN::Distribution::cvs_import ;
+sub cvs_import {
+    my($self) = @_;
+    $self->get;
+    my $dir = $self->dir;
+
+    my $package = $self->called_for;
+    my $module = $CPAN::META->instance('CPAN::Module', $package);
+    my $version = $module->cpan_version;
+
+    my $userid = $self->cpan_userid;
+
+    my $cvs_dir = (split /\//, $dir)[-1];
+    $cvs_dir =~ s/-\d+[^-]+(?!\n)\Z//;
+    my $cvs_root =
+      $CPAN::Config->{cvsroot} || $ENV{CVSROOT};
+    my $cvs_site_perl =
+      $CPAN::Config->{cvs_site_perl} || $ENV{CVS_SITE_PERL};
+    if ($cvs_site_perl) {
+        $cvs_dir = "$cvs_site_perl/$cvs_dir";
+    }
+    my $cvs_log = qq{"imported $package $version sources"};
+    $version =~ s/\./_/g;
+    # XXX cvs: undocumented and unclear how it was meant to work
+    my @cmd = ('cvs', '-d', $cvs_root, 'import', '-m', $cvs_log,
+               "$cvs_dir", $userid, "v$version");
+
+    my $pwd  = CPAN::anycwd();
+    chdir($dir) or $CPAN::Frontend->mydie(qq{Could not chdir to "$dir": $!});
+
+    $CPAN::Frontend->myprint(qq{Working directory is $dir\n});
+
+    $CPAN::Frontend->myprint(qq{@cmd\n});
+    system(@cmd) == 0 or
+    # XXX cvs
+        $CPAN::Frontend->mydie("cvs import failed");
+    chdir($pwd) or $CPAN::Frontend->mydie(qq{Could not chdir to "$pwd": $!});
+}
+
+#-> sub CPAN::Distribution::readme ;
+sub readme {
+    my($self) = @_;
+    my($dist) = $self->id;
+    my($sans,$suffix) = $dist =~ /(.+)\.(tgz|tar[\._-]gz|tar\.Z|zip)$/;
+    $self->debug("sans[$sans] suffix[$suffix]\n") if $CPAN::DEBUG;
+    my($local_file);
+    my($local_wanted) =
+        File::Spec->catfile(
+                            $CPAN::Config->{keep_source_where},
+                            "authors",
+                            "id",
+                            split(/\//,"$sans.readme"),
+                           );
+    my $readme = "authors/id/$sans.readme";
+    $self->debug("Doing localize for '$readme'") if $CPAN::DEBUG;
+    $local_file = CPAN::FTP->localize($readme,
+                                      $local_wanted)
+        or $CPAN::Frontend->mydie(qq{No $sans.readme found});
+
+    if ($^O eq 'MacOS') {
+        Mac::BuildTools::launch_file($local_file);
+        return;
+    }
+
+    my $fh_pager = FileHandle->new;
+    local($SIG{PIPE}) = "IGNORE";
+    my $pager = $CPAN::Config->{'pager'} || "cat";
+    $fh_pager->open("|$pager")
+        or die "Could not open pager $pager\: $!";
+    my $fh_readme = FileHandle->new;
+    $fh_readme->open($local_file)
+        or $CPAN::Frontend->mydie(qq{Could not open "$local_file": $!});
+    $CPAN::Frontend->myprint(qq{
+Displaying file
+  $local_file
+with pager "$pager"
+});
+    $fh_pager->print(<$fh_readme>);
+    $fh_pager->close;
+}
+
+#-> sub CPAN::Distribution::verifyCHECKSUM ;
+sub verifyCHECKSUM {
+    my($self) = @_;
+  EXCUSE: {
+        my @e;
+        $self->{CHECKSUM_STATUS} ||= "";
+        $self->{CHECKSUM_STATUS} eq "OK" and push @e, "Checksum was ok";
+        $CPAN::Frontend->myprint(join "", map {"  $_\n"} @e) and return if @e;
+    }
+    my($lc_want,$lc_file,@local,$basename);
+    @local = split(/\//,$self->id);
+    pop @local;
+    push @local, "CHECKSUMS";
+    $lc_want =
+        File::Spec->catfile($CPAN::Config->{keep_source_where},
+                            "authors", "id", @local);
+    local($") = "/";
+    if (my $size = -s $lc_want) {
+        $self->debug("lc_want[$lc_want]size[$size]") if $CPAN::DEBUG;
+        if ($self->CHECKSUM_check_file($lc_want,1)) {
+            return $self->{CHECKSUM_STATUS} = "OK";
+        }
+    }
+    $lc_file = CPAN::FTP->localize("authors/id/@local",
+                                   $lc_want,1);
+    unless ($lc_file) {
+        $CPAN::Frontend->myprint("Trying $lc_want.gz\n");
+        $local[-1] .= ".gz";
+        $lc_file = CPAN::FTP->localize("authors/id/@local",
+                                       "$lc_want.gz",1);
+        if ($lc_file) {
+            $lc_file =~ s/\.gz(?!\n)\Z//;
+            eval{CPAN::Tarzip->new("$lc_file.gz")->gunzip($lc_file)};
+        } else {
+            return;
+        }
+    }
+    if ($self->CHECKSUM_check_file($lc_file)) {
+        return $self->{CHECKSUM_STATUS} = "OK";
+    }
+}
+
+#-> sub CPAN::Distribution::SIG_check_file ;
+sub SIG_check_file {
+    my($self,$chk_file) = @_;
+    my $rv = eval { Module::Signature::_verify($chk_file) };
+
+    if ($rv == Module::Signature::SIGNATURE_OK()) {
+        $CPAN::Frontend->myprint("Signature for $chk_file ok\n");
+        return $self->{SIG_STATUS} = "OK";
+    } else {
+        $CPAN::Frontend->myprint(qq{\nSignature invalid for }.
+                                 qq{distribution file. }.
+                                 qq{Please investigate.\n\n}.
+                                 $self->as_string,
+                                 $CPAN::META->instance(
+                                                       'CPAN::Author',
+                                                       $self->cpan_userid
+                                                      )->as_string);
+
+        my $wrap = qq{I\'d recommend removing $chk_file. Its signature
+is invalid. Maybe you have configured your 'urllist' with
+a bad URL. Please check this array with 'o conf urllist', and
+retry.};
+
+        $CPAN::Frontend->mydie(Text::Wrap::wrap("","",$wrap));
+    }
+}
+
+#-> sub CPAN::Distribution::CHECKSUM_check_file ;
+
+# sloppy is 1 when we have an old checksums file that maybe is good
+# enough
+
+sub CHECKSUM_check_file {
+    my($self,$chk_file,$sloppy) = @_;
+    my($cksum,$file,$basename);
+
+    $sloppy ||= 0;
+    $self->debug("chk_file[$chk_file]sloppy[$sloppy]") if $CPAN::DEBUG;
+    my $check_sigs = CPAN::HandleConfig->prefs_lookup($self,
+                                                      q{check_sigs});
+    if ($check_sigs) {
+        if ($CPAN::META->has_inst("Module::Signature")) {
+            $self->debug("Module::Signature is installed, verifying") if $CPAN::DEBUG;
+            $self->SIG_check_file($chk_file);
+        } else {
+            $self->debug("Module::Signature is NOT installed") if $CPAN::DEBUG;
+        }
+    }
+
+    $file = $self->{localfile};
+    $basename = File::Basename::basename($file);
+    my $fh = FileHandle->new;
+    if (open $fh, $chk_file) {
+        local($/);
+        my $eval = <$fh>;
+        $eval =~ s/\015?\012/\n/g;
+        close $fh;
+        my($compmt) = Safe->new();
+        $cksum = $compmt->reval($eval);
+        if ($@) {
+            rename $chk_file, "$chk_file.bad";
+            Carp::confess($@) if $@;
+        }
+    } else {
+        Carp::carp "Could not open $chk_file for reading";
+    }
+
+    if (! ref $cksum or ref $cksum ne "HASH") {
+        $CPAN::Frontend->mywarn(qq{
+Warning: checksum file '$chk_file' broken.
+
+When trying to read that file I expected to get a hash reference
+for further processing, but got garbage instead.
+});
+        my $answer = CPAN::Shell::colorable_makemaker_prompt("Proceed nonetheless?", "no");
+        $answer =~ /^\s*y/i or $CPAN::Frontend->mydie("Aborted.\n");
+        $self->{CHECKSUM_STATUS} = "NIL -- CHECKSUMS file broken";
+        return;
+    } elsif (exists $cksum->{$basename}{sha256}) {
+        $self->debug("Found checksum for $basename:" .
+                     "$cksum->{$basename}{sha256}\n") if $CPAN::DEBUG;
+
+        open($fh, $file);
+        binmode $fh;
+        my $eq = $self->eq_CHECKSUM($fh,$cksum->{$basename}{sha256});
+        $fh->close;
+        $fh = CPAN::Tarzip->TIEHANDLE($file);
+
+        unless ($eq) {
+            my $dg = Digest::SHA->new(256);
+            my($data,$ref);
+            $ref = \$data;
+            while ($fh->READ($ref, 4096) > 0) {
+                $dg->add($data);
+            }
+            my $hexdigest = $dg->hexdigest;
+            $eq += $hexdigest eq $cksum->{$basename}{'sha256-ungz'};
+        }
+
+        if ($eq) {
+            $CPAN::Frontend->myprint("Checksum for $file ok\n");
+            return $self->{CHECKSUM_STATUS} = "OK";
+        } else {
+            $CPAN::Frontend->myprint(qq{\nChecksum mismatch for }.
+                                     qq{distribution file. }.
+                                     qq{Please investigate.\n\n}.
+                                     $self->as_string,
+                                     $CPAN::META->instance(
+                                                           'CPAN::Author',
+                                                           $self->cpan_userid
+                                                          )->as_string);
+
+            my $wrap = qq{I\'d recommend removing $file. Its
+checksum is incorrect. Maybe you have configured your 'urllist' with
+a bad URL. Please check this array with 'o conf urllist', and
+retry.};
+
+            $CPAN::Frontend->mydie(Text::Wrap::wrap("","",$wrap));
+
+            # former versions just returned here but this seems a
+            # serious threat that deserves a die
+
+            # $CPAN::Frontend->myprint("\n\n");
+            # sleep 3;
+            # return;
+        }
+        # close $fh if fileno($fh);
+    } else {
+        return if $sloppy;
+        unless ($self->{CHECKSUM_STATUS}) {
+            $CPAN::Frontend->mywarn(qq{
+Warning: No checksum for $basename in $chk_file.
+
+The cause for this may be that the file is very new and the checksum
+has not yet been calculated, but it may also be that something is
+going awry right now.
+});
+            my $answer = CPAN::Shell::colorable_makemaker_prompt("Proceed?", "yes");
+            $answer =~ /^\s*y/i or $CPAN::Frontend->mydie("Aborted.\n");
+        }
+        $self->{CHECKSUM_STATUS} = "NIL -- distro not in CHECKSUMS file";
+        return;
+    }
+}
+
+#-> sub CPAN::Distribution::eq_CHECKSUM ;
+sub eq_CHECKSUM {
+    my($self,$fh,$expect) = @_;
+    if ($CPAN::META->has_inst("Digest::SHA")) {
+        my $dg = Digest::SHA->new(256);
+        my($data);
+        while (read($fh, $data, 4096)) {
+            $dg->add($data);
+        }
+        my $hexdigest = $dg->hexdigest;
+        # warn "fh[$fh] hex[$hexdigest] aexp[$expectMD5]";
+        return $hexdigest eq $expect;
+    }
+    return 1;
+}
+
+#-> sub CPAN::Distribution::force ;
+
+# Both CPAN::Modules and CPAN::Distributions know if "force" is in
+# effect by autoinspection, not by inspecting a global variable. One
+# of the reason why this was chosen to work that way was the treatment
+# of dependencies. They should not automatically inherit the force
+# status. But this has the downside that ^C and die() will return to
+# the prompt but will not be able to reset the force_update
+# attributes. We try to correct for it currently in the read_metadata
+# routine, and immediately before we check for a Signal. I hope this
+# works out in one of v1.57_53ff
+
+# "Force get forgets previous error conditions"
+
+#-> sub CPAN::Distribution::fforce ;
+sub fforce {
+  my($self, $method) = @_;
+  $self->force($method,1);
+}
+
+#-> sub CPAN::Distribution::force ;
+sub force {
+  my($self, $method,$fforce) = @_;
+  my %phase_map = (
+                   get => [
+                           "unwrapped",
+                           "build_dir",
+                           "archived",
+                           "localfile",
+                           "CHECKSUM_STATUS",
+                           "signature_verify",
+                           "prefs",
+                           "prefs_file",
+                           "prefs_file_doc",
+                          ],
+                   make => [
+                            "writemakefile",
+                            "make",
+                            "modulebuild",
+                            "prereq_pm",
+                           ],
+                   test => [
+                            "badtestcnt",
+                            "make_test",
+                           ],
+                   install => [
+                               "install",
+                              ],
+                   unknown => [
+                               "reqtype",
+                               "yaml_content",
+                              ],
+                  );
+  my $methodmatch = 0;
+  my $ldebug = 0;
+ PHASE: for my $phase (qw(unknown get make test install)) { # order matters
+      $methodmatch = 1 if $fforce || $phase eq $method;
+      next unless $methodmatch;
+    ATTRIBUTE: for my $att (@{$phase_map{$phase}}) {
+          if ($phase eq "get") {
+              if (substr($self->id,-1,1) eq "."
+                  && $att =~ /(unwrapped|build_dir|archived)/ ) {
+                  # cannot be undone for local distros
+                  next ATTRIBUTE;
+              }
+              if ($att eq "build_dir"
+                  && $self->{build_dir}
+                  && $CPAN::META->{is_tested}
+                 ) {
+                  delete $CPAN::META->{is_tested}{$self->{build_dir}};
+              }
+          } elsif ($phase eq "test") {
+              if ($att eq "make_test"
+                  && $self->{make_test}
+                  && $self->{make_test}{COMMANDID}
+                  && $self->{make_test}{COMMANDID} == $CPAN::CurrentCommandId
+                 ) {
+                  # endless loop too likely
+                  next ATTRIBUTE;
+              }
+          }
+          delete $self->{$att};
+          if ($ldebug || $CPAN::DEBUG) {
+              # local $CPAN::DEBUG = 16; # Distribution
+              CPAN->debug(sprintf "id[%s]phase[%s]att[%s]", $self->id, $phase, $att);
+          }
+      }
+  }
+  if ($method && $method =~ /make|test|install/) {
+    $self->{force_update} = 1; # name should probably have been force_install
+  }
+}
+
+#-> sub CPAN::Distribution::notest ;
+sub notest {
+  my($self, $method) = @_;
+  # $CPAN::Frontend->mywarn("XDEBUG: set notest for $self $method");
+  $self->{"notest"}++; # name should probably have been force_install
+}
+
+#-> sub CPAN::Distribution::unnotest ;
+sub unnotest {
+  my($self) = @_;
+  # warn "XDEBUG: deleting notest";
+  delete $self->{notest};
+}
+
+#-> sub CPAN::Distribution::unforce ;
+sub unforce {
+  my($self) = @_;
+  delete $self->{force_update};
+}
+
+#-> sub CPAN::Distribution::isa_perl ;
+sub isa_perl {
+  my($self) = @_;
+  my $file = File::Basename::basename($self->id);
+  if ($file =~ m{ ^ perl
+                  -?
+                  (5)
+                  ([._-])
+                  (
+                   \d{3}(_[0-4][0-9])?
+                   |
+                   \d+\.\d+
+                  )
+                  \.tar[._-](?:gz|bz2)
+                  (?!\n)\Z
+                }xs) {
+    return "$1.$3";
+  } elsif ($self->cpan_comment
+           &&
+           $self->cpan_comment =~ /isa_perl\(.+?\)/) {
+    return $1;
+  }
+}
+
+
+#-> sub CPAN::Distribution::perl ;
+sub perl {
+    my ($self) = @_;
+    if (! $self) {
+        use Carp qw(carp);
+        carp __PACKAGE__ . "::perl was called without parameters.";
+    }
+    return CPAN::HandleConfig->safe_quote($CPAN::Perl);
+}
+
+#-> sub CPAN::Distribution::shortcut_prepare ;
+# return values: undef means don't shortcut; 0 means shortcut as fail;
+# and 1 means shortcut as success
+
+sub shortcut_prepare {
+    my ($self) = @_;
+
+    $self->debug("checking archive type[$self->{ID}]") if $CPAN::DEBUG;
+    if (!$self->{archived} || $self->{archived} eq "NO") {
+        return $self->goodbye("Is neither a tar nor a zip archive.");
+    }
+
+    $self->debug("checking unwrapping[$self->{ID}]") if $CPAN::DEBUG;
+    if (!$self->{unwrapped}
+        || (
+            UNIVERSAL::can($self->{unwrapped},"failed") ?
+            $self->{unwrapped}->failed :
+            $self->{unwrapped} =~ /^NO/
+            )) {
+        return $self->goodbye("Had problems unarchiving. Please build manually");
+    }
+
+    $self->debug("checking signature[$self->{ID}]") if $CPAN::DEBUG;
+    if ( ! $self->{force_update}
+        && exists $self->{signature_verify}
+        && (
+                UNIVERSAL::can($self->{signature_verify},"failed") ?
+                $self->{signature_verify}->failed :
+                $self->{signature_verify} =~ /^NO/
+            )
+    ) {
+        return $self->goodbye("Did not pass the signature test.");
+    }
+
+    $self->debug("checking writemakefile[$self->{ID}]") if $CPAN::DEBUG;
+    if ($self->{writemakefile}) {
+        if (
+                UNIVERSAL::can($self->{writemakefile},"failed") ?
+                $self->{writemakefile}->failed :
+                $self->{writemakefile} =~ /^NO/
+            ) {
+            # XXX maybe a retry would be in order?
+            my $err = UNIVERSAL::can($self->{writemakefile},"text") ?
+                $self->{writemakefile}->text :
+                    $self->{writemakefile};
+            $err =~ s/^NO\s*(--\s+)?//;
+            $err ||= "Had some problem writing Makefile";
+            $err .= ", not re-running";
+            return $self->goodbye($err);
+        } else {
+            return $self->success("Has already been prepared");
+        }
+    }
+
+    $self->debug("checking configure_requires_later[$self->{ID}]") if $CPAN::DEBUG;
+    if( my $later = $self->{configure_requires_later} ) { # see also undelay
+        return $self->goodbye($later);
+    }
+
+    return undef; # no shortcut
+}
+
+sub prepare {
+    my ($self) = @_;
+
+    $self->get
+        or return;
+
+    if ( defined( my $sc = $self->shortcut_prepare) ) {
+        return $sc;
+    }
+
+    local $ENV{PERL5LIB} = defined($ENV{PERL5LIB})
+                           ? $ENV{PERL5LIB}
+                           : ($ENV{PERLLIB} || "");
+    local $ENV{PERL5OPT} = defined $ENV{PERL5OPT} ? $ENV{PERL5OPT} : "";
+    $CPAN::META->set_perl5lib;
+    local $ENV{MAKEFLAGS}; # protect us from outer make calls
+
+    if ($CPAN::Signal) {
+        delete $self->{force_update};
+        return;
+    }
+
+    my $builddir = $self->dir or
+        $CPAN::Frontend->mydie("PANIC: Cannot determine build directory\n");
+
+    unless (chdir $builddir) {
+        $CPAN::Frontend->mywarn("Couldn't chdir to '$builddir': $!");
+        return;
+    }
+
+    if ($CPAN::Signal) {
+        delete $self->{force_update};
+        return;
+    }
+
+    $self->debug("Changed directory to $builddir") if $CPAN::DEBUG;
+
+    local $ENV{PERL_AUTOINSTALL} = $ENV{PERL_AUTOINSTALL} || '';
+    local $ENV{PERL_EXTUTILS_AUTOINSTALL} = $ENV{PERL_EXTUTILS_AUTOINSTALL} || '';
+    $self->choose_MM_or_MB
+        or return;
+
+    my $configurator = $self->{configure} ? "Configure"
+                     : $self->{modulebuild} ? "Build.PL"
+                     : "Makefile.PL";
+
+    $CPAN::Frontend->myprint("Configuring ".$self->id." with $configurator\n");
+
+    if ($CPAN::Config->{prerequisites_policy} eq "follow") {
+        $ENV{PERL_AUTOINSTALL}          ||= "--defaultdeps";
+        $ENV{PERL_EXTUTILS_AUTOINSTALL} ||= "--defaultdeps";
+    }
+
+    my $system;
+    my $pl_commandline;
+    if ($self->prefs->{pl}) {
+        $pl_commandline = $self->prefs->{pl}{commandline};
+    }
+    local $ENV{PERL} = defined $ENV{PERL}? $ENV{PERL} : $^X;
+    local $ENV{PERL5_CPAN_IS_EXECUTING} = $ENV{PERL5_CPAN_IS_EXECUTING} || '';
+    local $ENV{PERL_MM_USE_DEFAULT} = 1 if $CPAN::Config->{use_prompt_default};
+    local $ENV{NONINTERACTIVE_TESTING} = 1 if $CPAN::Config->{use_prompt_default};
+    if ($pl_commandline) {
+        $system = $pl_commandline;
+        $ENV{PERL} = $^X;
+    } elsif ($self->{'configure'}) {
+        $system = $self->{'configure'};
+    } elsif ($self->{modulebuild}) {
+        my($perl) = $self->perl or die "Couldn\'t find executable perl\n";
+        my $mbuildpl_arg = $self->_make_phase_arg("pl");
+        $system = sprintf("%s Build.PL%s",
+                          $perl,
+                          $mbuildpl_arg ? " $mbuildpl_arg" : "",
+                         );
+    } else {
+        my($perl) = $self->perl or die "Couldn\'t find executable perl\n";
+        my $switch = "";
+# This needs a handler that can be turned on or off:
+#        $switch = "-MExtUtils::MakeMaker ".
+#            "-Mops=:default,:filesys_read,:filesys_open,require,chdir"
+#            if $] > 5.00310;
+        my $makepl_arg = $self->_make_phase_arg("pl");
+        $ENV{PERL5_CPAN_IS_EXECUTING} = File::Spec->catfile($self->{build_dir},
+                                                            "Makefile.PL");
+        $system = sprintf("%s%s Makefile.PL%s",
+                          $perl,
+                          $switch ? " $switch" : "",
+                          $makepl_arg ? " $makepl_arg" : "",
+                         );
+    }
+    my $pl_env;
+    if ($self->prefs->{pl}) {
+        $pl_env = $self->prefs->{pl}{env};
+    }
+    local @ENV{keys %$pl_env} = values %$pl_env if $pl_env;
+    if (exists $self->{writemakefile}) {
+    } else {
+        local($SIG{ALRM}) = sub { die "inactivity_timeout reached\n" };
+        my($ret,$pid,$output);
+        $@ = "";
+        my $go_via_alarm;
+        if ($CPAN::Config->{inactivity_timeout}) {
+            require Config;
+            if ($Config::Config{d_alarm}
+                &&
+                $Config::Config{d_alarm} eq "define"
+               ) {
+                $go_via_alarm++
+            } else {
+                $CPAN::Frontend->mywarn("Warning: you have configured the config ".
+                                        "variable 'inactivity_timeout' to ".
+                                        "'$CPAN::Config->{inactivity_timeout}'. But ".
+                                        "on this machine the system call 'alarm' ".
+                                        "isn't available. This means that we cannot ".
+                                        "provide the feature of intercepting long ".
+                                        "waiting code and will turn this feature off.\n"
+                                       );
+                $CPAN::Config->{inactivity_timeout} = 0;
+            }
+        }
+        if ($go_via_alarm) {
+            if ( $self->_should_report('pl') ) {
+                ($output, $ret) = CPAN::Reporter::record_command(
+                    $system,
+                    $CPAN::Config->{inactivity_timeout},
+                );
+                CPAN::Reporter::grade_PL( $self, $system, $output, $ret );
+            }
+            else {
+                eval {
+                    alarm $CPAN::Config->{inactivity_timeout};
+                    local $SIG{CHLD}; # = sub { wait };
+                    if (defined($pid = fork)) {
+                        if ($pid) { #parent
+                            # wait;
+                            waitpid $pid, 0;
+                        } else {    #child
+                            # note, this exec isn't necessary if
+                            # inactivity_timeout is 0. On the Mac I'd
+                            # suggest, we set it always to 0.
+                            exec $system;
+                        }
+                    } else {
+                        $CPAN::Frontend->myprint("Cannot fork: $!");
+                        return;
+                    }
+                };
+                alarm 0;
+                if ($@) {
+                    kill 9, $pid;
+                    waitpid $pid, 0;
+                    my $err = "$@";
+                    $CPAN::Frontend->myprint($err);
+                    $self->{writemakefile} = CPAN::Distrostatus->new("NO $err");
+                    $@ = "";
+                    $self->store_persistent_state;
+                    return $self->goodbye("$system -- TIMED OUT");
+                }
+            }
+        } else {
+            if (my $expect_model = $self->_prefs_with_expect("pl")) {
+                # XXX probably want to check _should_report here and warn
+                # about not being able to use CPAN::Reporter with expect
+                $ret = $self->_run_via_expect($system,'writemakefile',$expect_model);
+                if (! defined $ret
+                    && $self->{writemakefile}
+                    && $self->{writemakefile}->failed) {
+                    # timeout
+                    return;
+                }
+            }
+            elsif ( $self->_should_report('pl') ) {
+                ($output, $ret) = CPAN::Reporter::record_command($system);
+                CPAN::Reporter::grade_PL( $self, $system, $output, $ret );
+            }
+            else {
+                $ret = system($system);
+            }
+            if ($ret != 0) {
+                $self->{writemakefile} = CPAN::Distrostatus
+                    ->new("NO '$system' returned status $ret");
+                $CPAN::Frontend->mywarn("Warning: No success on command[$system]\n");
+                $self->store_persistent_state;
+                return $self->goodbye("$system -- NOT OK");
+            }
+        }
+        if (-f "Makefile" || -f "Build" || ($^O eq 'VMS' && (-f 'descrip.mms' || -f 'Build.com'))) {
+            $self->{writemakefile} = CPAN::Distrostatus->new("YES");
+            delete $self->{make_clean}; # if cleaned before, enable next
+            $self->store_persistent_state;
+            return $self->success("$system -- OK");
+        } else {
+            my $makefile = $self->{modulebuild} ? "Build" : "Makefile";
+            my $why = "No '$makefile' created";
+            $CPAN::Frontend->mywarn($why);
+            $self->{writemakefile} = CPAN::Distrostatus
+                ->new(qq{NO -- $why\n});
+            $self->store_persistent_state;
+            return $self->goodbye("$system -- NOT OK");
+        }
+    }
+    $self->store_persistent_state;
+    return 1; # success
+}
+
+#-> sub CPAN::Distribution::shortcut_make ;
+# return values: undef means don't shortcut; 0 means shortcut as fail;
+# and 1 means shortcut as success
+sub shortcut_make {
+    my ($self) = @_;
+
+    $self->debug("checking make/build results[$self->{ID}]") if $CPAN::DEBUG;
+    if (defined $self->{make}) {
+        if (UNIVERSAL::can($self->{make},"failed") ?
+            $self->{make}->failed :
+            $self->{make} =~ /^NO/
+        ) {
+            if ($self->{force_update}) {
+                # Trying an already failed 'make' (unless somebody else blocks)
+                return undef; # no shortcut
+            } else {
+                # introduced for turning recursion detection into a distrostatus
+                my $error = length $self->{make}>3
+                    ? substr($self->{make},3) : "Unknown error";
+                $self->store_persistent_state;
+                return $self->goodbye("Could not make: $error\n");
+            }
+        } else {
+            return $self->success("Has already been made")
+        }
+    }
+    return undef; # no shortcut
+}
+
+#-> sub CPAN::Distribution::make ;
+sub make {
+    my($self) = @_;
+
+    $self->pre_make();
+
+    $self->debug("checking goto id[$self->{ID}]") if $CPAN::DEBUG;
+    if (my $goto = $self->prefs->{goto}) {
+        return $self->goto($goto);
+    }
+    # Emergency brake if they said install Pippi and get newest perl
+
+    # XXX Would this make more sense in shortcut_prepare, since
+    # that doesn't make sense on a perl dist either?  Broader
+    # question: what is the purpose of suggesting force install
+    # on a perl distribution?  That seems unlikely to result in
+    # such a dependency being satisfied, even if the perl is
+    # successfully installed.  This situation is tantamount to
+    # a prereq on a version of perl greater than the current one
+    # so I think we should just abort. -- xdg, 2012-04-06
+    if ($self->isa_perl) {
+        if (
+            $self->called_for ne $self->id &&
+            ! $self->{force_update}
+        ) {
+            # if we die here, we break bundles
+            $CPAN::Frontend
+                ->mywarn(sprintf(
+                            qq{The most recent version "%s" of the module "%s"
+is part of the perl-%s distribution. To install that, you need to run
+  force install %s   --or--
+  install %s
+},
+                             $CPAN::META->instance(
+                                                   'CPAN::Module',
+                                                   $self->called_for
+                                                  )->cpan_version,
+                             $self->called_for,
+                             $self->isa_perl,
+                             $self->called_for,
+                             $self->id,
+                            ));
+            $self->{make} = CPAN::Distrostatus->new("NO isa perl");
+            $CPAN::Frontend->mysleep(1);
+            return;
+        }
+    }
+
+    $self->prepare
+        or return;
+
+    if ( defined( my $sc = $self->shortcut_make) ) {
+        return $sc;
+    }
+
+    if ($CPAN::Signal) {
+        delete $self->{force_update};
+        return;
+    }
+
+    my $builddir = $self->dir or
+        $CPAN::Frontend->mydie("PANIC: Cannot determine build directory\n");
+
+    unless (chdir $builddir) {
+        $CPAN::Frontend->mywarn("Couldn't chdir to '$builddir': $!");
+        return;
+    }
+
+    my $make = $self->{modulebuild} ? "Build" : "make";
+    $CPAN::Frontend->myprint(sprintf "Running %s for %s\n", $make, $self->id);
+    local $ENV{PERL5LIB} = defined($ENV{PERL5LIB})
+                           ? $ENV{PERL5LIB}
+                           : ($ENV{PERLLIB} || "");
+    local $ENV{PERL5OPT} = defined $ENV{PERL5OPT} ? $ENV{PERL5OPT} : "";
+    $CPAN::META->set_perl5lib;
+    local $ENV{MAKEFLAGS}; # protect us from outer make calls
+
+    if ($CPAN::Signal) {
+        delete $self->{force_update};
+        return;
+    }
+
+    if ($^O eq 'MacOS') {
+        Mac::BuildTools::make($self);
+        return;
+    }
+
+    my %env;
+    while (my($k,$v) = each %ENV) {
+        next if defined $v;
+        $env{$k} = '';
+    }
+    local @ENV{keys %env} = values %env;
+    my $satisfied = eval { $self->satisfy_requires };
+    return $self->goodbye($@) if $@;
+    return unless $satisfied ;
+    if ($CPAN::Signal) {
+        delete $self->{force_update};
+        return;
+    }
+
+    # need to chdir again, because $self->satisfy_requires might change the directory
+    unless (chdir $builddir) {
+        $CPAN::Frontend->mywarn("Couldn't chdir to '$builddir': $!");
+        return;
+    }
+
+    my $system;
+    my $make_commandline;
+    if ($self->prefs->{make}) {
+        $make_commandline = $self->prefs->{make}{commandline};
+    }
+    local $ENV{PERL} = defined $ENV{PERL}? $ENV{PERL} : $^X;
+    local $ENV{PERL_MM_USE_DEFAULT} = 1 if $CPAN::Config->{use_prompt_default};
+    local $ENV{NONINTERACTIVE_TESTING} = 1 if $CPAN::Config->{use_prompt_default};
+    if ($make_commandline) {
+        $system = $make_commandline;
+        $ENV{PERL} = CPAN::find_perl();
+    } else {
+        if ($self->{modulebuild}) {
+            unless (-f "Build" || ($^O eq 'VMS' && -f 'Build.com')) {
+                my $cwd = CPAN::anycwd();
+                $CPAN::Frontend->mywarn("Alert: no Build file available for 'make $self->{id}'".
+                                        " in cwd[$cwd]. Danger, Will Robinson!\n");
+                $CPAN::Frontend->mysleep(5);
+            }
+            $system = join " ", $self->_build_command(), $CPAN::Config->{mbuild_arg};
+        } else {
+            $system = join " ", $self->_make_command(),  $CPAN::Config->{make_arg};
+        }
+        $system =~ s/\s+$//;
+        my $make_arg = $self->_make_phase_arg("make");
+        $system = sprintf("%s%s",
+                          $system,
+                          $make_arg ? " $make_arg" : "",
+                         );
+    }
+    my $make_env;
+    if ($self->prefs->{make}) {
+        $make_env = $self->prefs->{make}{env};
+    }
+    local @ENV{keys %$make_env} = values %$make_env if $make_env;
+    my $expect_model = $self->_prefs_with_expect("make");
+    my $want_expect = 0;
+    if ( $expect_model && @{$expect_model->{talk}} ) {
+        my $can_expect = $CPAN::META->has_inst("Expect");
+        if ($can_expect) {
+            $want_expect = 1;
+        } else {
+            $CPAN::Frontend->mywarn("Expect not installed, falling back to ".
+                                    "system()\n");
+        }
+    }
+    my $system_ok;
+    if ($want_expect) {
+        # XXX probably want to check _should_report here and
+        # warn about not being able to use CPAN::Reporter with expect
+        $system_ok = $self->_run_via_expect($system,'make',$expect_model) == 0;
+    }
+    elsif ( $self->_should_report('make') ) {
+        my ($output, $ret) = CPAN::Reporter::record_command($system);
+        CPAN::Reporter::grade_make( $self, $system, $output, $ret );
+        $system_ok = ! $ret;
+    }
+    else {
+        $system_ok = system($system) == 0;
+    }
+    $self->introduce_myself;
+    if ( $system_ok ) {
+        $CPAN::Frontend->myprint("  $system -- OK\n");
+        $self->{make} = CPAN::Distrostatus->new("YES");
+    } else {
+        $self->{writemakefile} ||= CPAN::Distrostatus->new("YES");
+        $self->{make} = CPAN::Distrostatus->new("NO");
+        $CPAN::Frontend->mywarn("  $system -- NOT OK\n");
+    }
+    $self->store_persistent_state;
+
+    $self->post_make();
+
+    return !! $system_ok;
+}
+
+# CPAN::Distribution::goodbye ;
+sub goodbye {
+    my($self,$goodbye) = @_;
+    my $id = $self->pretty_id;
+    $CPAN::Frontend->mywarn("  $id\n  $goodbye\n");
+    return 0; # must be explicit false, not undef
+}
+
+sub success {
+    my($self,$why) = @_;
+    my $id = $self->pretty_id;
+    $CPAN::Frontend->myprint("  $id\n  $why\n");
+    return 1;
+}
+
+# CPAN::Distribution::_run_via_expect ;
+sub _run_via_expect {
+    my($self,$system,$phase,$expect_model) = @_;
+    CPAN->debug("system[$system]expect_model[$expect_model]") if $CPAN::DEBUG;
+    if ($CPAN::META->has_inst("Expect")) {
+        my $expo = Expect->new;  # expo Expect object;
+        $expo->spawn($system);
+        $expect_model->{mode} ||= "deterministic";
+        if ($expect_model->{mode} eq "deterministic") {
+            return $self->_run_via_expect_deterministic($expo,$phase,$expect_model);
+        } elsif ($expect_model->{mode} eq "anyorder") {
+            return $self->_run_via_expect_anyorder($expo,$phase,$expect_model);
+        } else {
+            die "Panic: Illegal expect mode: $expect_model->{mode}";
+        }
+    } else {
+        $CPAN::Frontend->mywarn("Expect not installed, falling back to system()\n");
+        return system($system);
+    }
+}
+
+sub _run_via_expect_anyorder {
+    my($self,$expo,$phase,$expect_model) = @_;
+    my $timeout = $expect_model->{timeout} || 5;
+    my $reuse = $expect_model->{reuse};
+    my @expectacopy = @{$expect_model->{talk}}; # we trash it!
+    my $but = "";
+    my $timeout_start = time;
+  EXPECT: while () {
+        my($eof,$ran_into_timeout);
+        # XXX not up to the full power of expect. one could certainly
+        # wrap all of the talk pairs into a single expect call and on
+        # success tweak it and step ahead to the next question. The
+        # current implementation unnecessarily limits itself to a
+        # single match.
+        my @match = $expo->expect(1,
+                                  [ eof => sub {
+                                        $eof++;
+                                    } ],
+                                  [ timeout => sub {
+                                        $ran_into_timeout++;
+                                    } ],
+                                  -re => eval"qr{.}",
+                                 );
+        if ($match[2]) {
+            $but .= $match[2];
+        }
+        $but .= $expo->clear_accum;
+        if ($eof) {
+            $expo->soft_close;
+            return $expo->exitstatus();
+        } elsif ($ran_into_timeout) {
+            # warn "DEBUG: they are asking a question, but[$but]";
+            for (my $i = 0; $i <= $#expectacopy; $i+=2) {
+                my($next,$send) = @expectacopy[$i,$i+1];
+                my $regex = eval "qr{$next}";
+                # warn "DEBUG: will compare with regex[$regex].";
+                if ($but =~ /$regex/) {
+                    # warn "DEBUG: will send send[$send]";
+                    $expo->send($send);
+                    # never allow reusing an QA pair unless they told us
+                    splice @expectacopy, $i, 2 unless $reuse;
+                    $but =~ s/(?s:^.*?)$regex//;
+                    $timeout_start = time;
+                    next EXPECT;
+                }
+            }
+            my $have_waited = time - $timeout_start;
+            if ($have_waited < $timeout) {
+                # warn "DEBUG: have_waited[$have_waited]timeout[$timeout]";
+                next EXPECT;
+            }
+            my $why = "could not answer a question during the dialog";
+            $CPAN::Frontend->mywarn("Failing: $why\n");
+            $self->{$phase} =
+                CPAN::Distrostatus->new("NO $why");
+            return 0;
+        }
+    }
+}
+
+sub _run_via_expect_deterministic {
+    my($self,$expo,$phase,$expect_model) = @_;
+    my $ran_into_timeout;
+    my $ran_into_eof;
+    my $timeout = $expect_model->{timeout} || 15; # currently unsettable
+    my $expecta = $expect_model->{talk};
+  EXPECT: for (my $i = 0; $i <= $#$expecta; $i+=2) {
+        my($re,$send) = @$expecta[$i,$i+1];
+        CPAN->debug("timeout[$timeout]re[$re]") if $CPAN::DEBUG;
+        my $regex = eval "qr{$re}";
+        $expo->expect($timeout,
+                      [ eof => sub {
+                            my $but = $expo->clear_accum;
+                            $CPAN::Frontend->mywarn("EOF (maybe harmless)
+expected[$regex]\nbut[$but]\n\n");
+                            $ran_into_eof++;
+                        } ],
+                      [ timeout => sub {
+                            my $but = $expo->clear_accum;
+                            $CPAN::Frontend->mywarn("TIMEOUT
+expected[$regex]\nbut[$but]\n\n");
+                            $ran_into_timeout++;
+                        } ],
+                      -re => $regex);
+        if ($ran_into_timeout) {
+            # note that the caller expects 0 for success
+            $self->{$phase} =
+                CPAN::Distrostatus->new("NO timeout during expect dialog");
+            return 0;
+        } elsif ($ran_into_eof) {
+            last EXPECT;
+        }
+        $expo->send($send);
+    }
+    $expo->soft_close;
+    return $expo->exitstatus();
+}
+
+#-> CPAN::Distribution::_validate_distropref
+sub _validate_distropref {
+    my($self,@args) = @_;
+    if (
+        $CPAN::META->has_inst("CPAN::Kwalify")
+        &&
+        $CPAN::META->has_inst("Kwalify")
+       ) {
+        eval {CPAN::Kwalify::_validate("distroprefs",@args);};
+        if ($@) {
+            $CPAN::Frontend->mywarn($@);
+        }
+    } else {
+        CPAN->debug("not validating '@args'") if $CPAN::DEBUG;
+    }
+}
+
+#-> CPAN::Distribution::_find_prefs
+sub _find_prefs {
+    my($self) = @_;
+    my $distroid = $self->pretty_id;
+    #CPAN->debug("distroid[$distroid]") if $CPAN::DEBUG;
+    my $prefs_dir = $CPAN::Config->{prefs_dir};
+    return if $prefs_dir =~ /^\s*$/;
+    eval { File::Path::mkpath($prefs_dir); };
+    if ($@) {
+        $CPAN::Frontend->mydie("Cannot create directory $prefs_dir");
+    }
+    # shortcut if there are no distroprefs files
+    {
+      my $dh = DirHandle->new($prefs_dir) or $CPAN::Frontend->mydie("Couldn't open '$prefs_dir': $!");
+      my @files = map { /\.(yml|dd|st)\z/i } $dh->read;
+      return unless @files;
+    }
+    my $yaml_module = CPAN::_yaml_module();
+    my $ext_map = {};
+    my @extensions;
+    if ($CPAN::META->has_inst($yaml_module)) {
+        $ext_map->{yml} = 'CPAN';
+    } else {
+        my @fallbacks;
+        if ($CPAN::META->has_inst("Data::Dumper")) {
+            push @fallbacks, $ext_map->{dd} = 'Data::Dumper';
+        }
+        if ($CPAN::META->has_inst("Storable")) {
+            push @fallbacks, $ext_map->{st} = 'Storable';
+        }
+        if (@fallbacks) {
+            local $" = " and ";
+            unless ($self->{have_complained_about_missing_yaml}++) {
+                $CPAN::Frontend->mywarnonce("'$yaml_module' not installed, falling back ".
+                                            "to @fallbacks to read prefs '$prefs_dir'\n");
+            }
+        } else {
+            unless ($self->{have_complained_about_missing_yaml}++) {
+                $CPAN::Frontend->mywarnonce("'$yaml_module' not installed, cannot ".
+                                            "read prefs '$prefs_dir'\n");
+            }
+        }
+    }
+    my $finder = CPAN::Distroprefs->find($prefs_dir, $ext_map);
+    DIRENT: while (my $result = $finder->next) {
+        if ($result->is_warning) {
+            $CPAN::Frontend->mywarn($result->as_string);
+            $CPAN::Frontend->mysleep(1);
+            next DIRENT;
+        } elsif ($result->is_fatal) {
+            $CPAN::Frontend->mydie($result->as_string);
+        }
+
+        my @prefs = @{ $result->prefs };
+
+      ELEMENT: for my $y (0..$#prefs) {
+            my $pref = $prefs[$y];
+            $self->_validate_distropref($pref->data, $result->abs, $y);
+
+            # I don't know why we silently skip when there's no match, but
+            # complain if there's an empty match hashref, and there's no
+            # comment explaining why -- hdp, 2008-03-18
+            unless ($pref->has_any_match) {
+                next ELEMENT;
+            }
+
+            unless ($pref->has_valid_subkeys) {
+                $CPAN::Frontend->mydie(sprintf
+                    "Nonconforming .%s file '%s': " .
+                    "missing match/* subattribute. " .
+                    "Please remove, cannot continue.",
+                    $result->ext, $result->abs,
+                );
+            }
+
+            my $arg = {
+                env          => \%ENV,
+                distribution => $distroid,
+                perl         => \&CPAN::find_perl,
+                perlconfig   => \%Config::Config,
+                module       => sub { [ $self->containsmods ] },
+            };
+
+            if ($pref->matches($arg)) {
+                return {
+                    prefs => $pref->data,
+                    prefs_file => $result->abs,
+                    prefs_file_doc => $y,
+                };
+            }
+
+        }
+    }
+    return;
+}
+
+# CPAN::Distribution::prefs
+sub prefs {
+    my($self) = @_;
+    if (exists $self->{negative_prefs_cache}
+        &&
+        $self->{negative_prefs_cache} != $CPAN::CurrentCommandId
+       ) {
+        delete $self->{negative_prefs_cache};
+        delete $self->{prefs};
+    }
+    if (exists $self->{prefs}) {
+        return $self->{prefs}; # XXX comment out during debugging
+    }
+    if ($CPAN::Config->{prefs_dir}) {
+        CPAN->debug("prefs_dir[$CPAN::Config->{prefs_dir}]") if $CPAN::DEBUG;
+        my $prefs = $self->_find_prefs();
+        $prefs ||= ""; # avoid warning next line
+        CPAN->debug("prefs[$prefs]") if $CPAN::DEBUG;
+        if ($prefs) {
+            for my $x (qw(prefs prefs_file prefs_file_doc)) {
+                $self->{$x} = $prefs->{$x};
+            }
+            my $bs = sprintf(
+                             "%s[%s]",
+                             File::Basename::basename($self->{prefs_file}),
+                             $self->{prefs_file_doc},
+                            );
+            my $filler1 = "_" x 22;
+            my $filler2 = int(66 - length($bs))/2;
+            $filler2 = 0 if $filler2 < 0;
+            $filler2 = " " x $filler2;
+            $CPAN::Frontend->myprint("
+$filler1 D i s t r o P r e f s $filler1
+$filler2 $bs $filler2
+");
+            $CPAN::Frontend->mysleep(1);
+            return $self->{prefs};
+        }
+    }
+    $self->{negative_prefs_cache} = $CPAN::CurrentCommandId;
+    return $self->{prefs} = +{};
+}
+
+# CPAN::Distribution::_make_phase_arg
+sub _make_phase_arg {
+    my($self, $phase) = @_;
+    my $_make_phase_arg;
+    my $prefs = $self->prefs;
+    if (
+        $prefs
+        && exists $prefs->{$phase}
+        && exists $prefs->{$phase}{args}
+        && $prefs->{$phase}{args}
+       ) {
+        $_make_phase_arg = join(" ",
+                           map {CPAN::HandleConfig
+                                 ->safe_quote($_)} @{$prefs->{$phase}{args}},
+                          );
+    }
+
+# cpan[2]> o conf make[TAB]
+# make                       make_install_make_command
+# make_arg                   makepl_arg
+# make_install_arg
+# cpan[2]> o conf mbuild[TAB]
+# mbuild_arg                    mbuild_install_build_command
+# mbuild_install_arg            mbuildpl_arg
+
+    my $mantra; # must switch make/mbuild here
+    if ($self->{modulebuild}) {
+        $mantra = "mbuild";
+    } else {
+        $mantra = "make";
+    }
+    my %map = (
+               pl => "pl_arg",
+               make => "_arg",
+               test => "_test_arg", # does not really exist but maybe
+                                    # will some day and now protects
+                                    # us from unini warnings
+               install => "_install_arg",
+              );
+    my $phase_underscore_meshup = $map{$phase};
+    my $what = sprintf "%s%s", $mantra, $phase_underscore_meshup;
+
+    $_make_phase_arg ||= $CPAN::Config->{$what};
+    return $_make_phase_arg;
+}
+
+# CPAN::Distribution::_make_command
+sub _make_command {
+    my ($self) = @_;
+    if ($self) {
+        return
+            CPAN::HandleConfig
+                ->safe_quote(
+                             CPAN::HandleConfig->prefs_lookup($self,
+                                                              q{make})
+                             || $Config::Config{make}
+                             || 'make'
+                            );
+    } else {
+        # Old style call, without object. Deprecated
+        Carp::confess("CPAN::_make_command() used as function. Don't Do That.");
+        return
+          safe_quote(undef,
+                     CPAN::HandleConfig->prefs_lookup($self,q{make})
+                     || $CPAN::Config->{make}
+                     || $Config::Config{make}
+                     || 'make');
+    }
+}
+
+sub _make_install_make_command {
+    my ($self) = @_;
+    my $mimc =
+        CPAN::HandleConfig->prefs_lookup($self, q{make_install_make_command});
+    return $self->_make_command() unless $mimc;
+
+    # Quote the "make install" make command on Windows, where it is commonly
+    # found in, e.g., C:\Program Files\... and therefore needs quoting. We can't
+    # do this in general because the command maybe "sudo make..." (i.e. a
+    # program with arguments), but that is unlikely to be the case on Windows.
+    $mimc = CPAN::HandleConfig->safe_quote($mimc) if $^O eq 'MSWin32';
+
+    return $mimc;
+}
+
+#-> sub CPAN::Distribution::is_locally_optional
+sub is_locally_optional {
+    my($self, $prereq_pm, $prereq) = @_;
+    $prereq_pm ||= $self->{prereq_pm};
+    exists $prereq_pm->{opt_requires}{$prereq}
+        ||
+            exists $prereq_pm->{opt_build_requires}{$prereq};
+}
+
+#-> sub CPAN::Distribution::follow_prereqs ;
+sub follow_prereqs {
+    my($self) = shift;
+    my($slot) = shift;
+    my(@prereq_tuples) = grep {$_->[0] ne "perl"} @_;
+    return unless @prereq_tuples;
+    my(@good_prereq_tuples);
+    for my $p (@prereq_tuples) {
+        # e.g. $p = ['Devel::PartialDump', 'r', 1]
+        # promote if possible
+        if ($p->[1] =~ /^(r|c)$/) {
+            push @good_prereq_tuples, $p;
+        } elsif ($p->[1] =~ /^(b)$/) {
+            my $reqtype = CPAN::Queue->reqtype_of($p->[0]);
+            if ($reqtype =~ /^(r|c)$/) {
+                push @good_prereq_tuples, [$p->[0], $reqtype, $p->[2]];
+            } else {
+                push @good_prereq_tuples, $p;
+            }
+        } else {
+            die "Panic: in follow_prereqs: reqtype[$p->[1]] seen, should never happen";
+        }
+    }
+    my $pretty_id = $self->pretty_id;
+    my %map = (
+               b => "build_requires",
+               r => "requires",
+               c => "commandline",
+              );
+    my($filler1,$filler2,$filler3,$filler4);
+    my $unsat = "Unsatisfied dependencies detected during";
+    my $w = length($unsat) > length($pretty_id) ? length($unsat) : length($pretty_id);
+    {
+        my $r = int(($w - length($unsat))/2);
+        my $l = $w - length($unsat) - $r;
+        $filler1 = "-"x4 . " "x$l;
+        $filler2 = " "x$r . "-"x4 . "\n";
+    }
+    {
+        my $r = int(($w - length($pretty_id))/2);
+        my $l = $w - length($pretty_id) - $r;
+        $filler3 = "-"x4 . " "x$l;
+        $filler4 = " "x$r . "-"x4 . "\n";
+    }
+    $CPAN::Frontend->
+        myprint("$filler1 $unsat $filler2".
+                "$filler3 $pretty_id $filler4".
+                join("", map {sprintf "    %s \[%s%s]\n", $_->[0], $map{$_->[1]}, $self->is_locally_optional(undef,$_->[0]) ? ",optional" : ""} @good_prereq_tuples),
+               );
+    my $follow = 0;
+    if ($CPAN::Config->{prerequisites_policy} eq "follow") {
+        $follow = 1;
+    } elsif ($CPAN::Config->{prerequisites_policy} eq "ask") {
+        my $answer = CPAN::Shell::colorable_makemaker_prompt(
+"Shall I follow them and prepend them to the queue
+of modules we are processing right now?", "yes");
+        $follow = $answer =~ /^\s*y/i;
+    } else {
+        my @prereq = map { $_->[0] } @good_prereq_tuples;
+        local($") = ", ";
+        $CPAN::Frontend->
+            myprint("  Ignoring dependencies on modules @prereq\n");
+    }
+    if ($follow) {
+        my $id = $self->id;
+        my(@to_queue_mand,@to_queue_opt);
+        for my $gp (@good_prereq_tuples) {
+            my($prereq,$reqtype,$optional) = @$gp;
+            my $qthing = +{qmod=>$prereq,reqtype=>$reqtype,optional=>$optional};
+            if ($optional &&
+                $self->is_locally_optional(undef,$prereq)
+               ){
+                # Since we do not depend on this one, we do not need
+                # this in a mandatory arrangement:
+                push @to_queue_opt, $qthing;
+            } else {
+                my $any = CPAN::Shell->expandany($prereq);
+                $self->{$slot . "_for"}{$any->id}++;
+                if ($any) {
+                    unless ($optional) {
+                        # No recursion check in an optional area of the tree
+                        $any->color_cmd_tmps(0,2);
+                    }
+                } else {
+                    $CPAN::Frontend->mywarn("Warning (maybe a bug): Cannot expand prereq '$prereq'\n");
+                    $CPAN::Frontend->mysleep(2);
+                }
+                # order everything that is not locally_optional just
+                # like mandatory items: this keeps leaves before
+                # branches
+                unshift @to_queue_mand, $qthing;
+            }
+        }
+        if (@to_queue_mand) {
+            unshift @to_queue_mand, {qmod => $id, reqtype => $self->{reqtype}, optional=> !$self->{mandatory}};
+            CPAN::Queue->jumpqueue(@to_queue_opt,@to_queue_mand);
+            $self->{$slot} = "Delayed until after prerequisites";
+            return 1; # signal we need dependencies
+        } elsif (@to_queue_opt) {
+            CPAN::Queue->jumpqueue(@to_queue_opt);
+        }
+    }
+    return;
+}
+
+sub _feature_depends {
+    my($self) = @_;
+    my $meta_yml = $self->parse_meta_yml();
+    my $optf = $meta_yml->{optional_features} or return;
+    if (!ref $optf or ref $optf ne "HASH"){
+        $CPAN::Frontend->mywarn("The content of optional_features is not a HASH reference. Cannot use it.\n");
+        $optf = {};
+    }
+    my $wantf = $self->prefs->{features} or return;
+    if (!ref $wantf or ref $wantf ne "ARRAY"){
+        $CPAN::Frontend->mywarn("The content of 'features' is not an ARRAY reference. Cannot use it.\n");
+        $wantf = [];
+    }
+    my $dep = +{};
+    for my $wf (@$wantf) {
+        if (my $f = $optf->{$wf}) {
+            $CPAN::Frontend->myprint("Found the demanded feature '$wf' that ".
+                                     "is accompanied by this description:\n".
+                                     $f->{description}.
+                                     "\n\n"
+                                    );
+            # configure_requires currently not in the spec, unlikely to be useful anyway
+            for my $reqtype (qw(configure_requires build_requires requires)) {
+                my $reqhash = $f->{$reqtype} or next;
+                while (my($k,$v) = each %$reqhash) {
+                    $dep->{$reqtype}{$k} = $v;
+                }
+            }
+        } else {
+            $CPAN::Frontend->mywarn("The demanded feature '$wf' was not ".
+                                    "found in the META.yml file".
+                                    "\n\n"
+                                   );
+        }
+    }
+    $dep;
+}
+
+sub prereqs_for_slot {
+    my($self,$slot) = @_;
+    my($prereq_pm);
+    $CPAN::META->has_usable("CPAN::Meta::Requirements")
+        or die "CPAN::Meta::Requirements not available";
+    my $merged = CPAN::Meta::Requirements->new;
+    my $prefs_depends = $self->prefs->{depends}||{};
+    my $feature_depends = $self->_feature_depends();
+    if ($slot eq "configure_requires_later") {
+        for my $hash (  $self->configure_requires,
+                        $prefs_depends->{configure_requires},
+                        $feature_depends->{configure_requires},
+        ) {
+            $merged->add_requirements(
+                CPAN::Meta::Requirements->from_string_hash($hash)
+            );
+        }
+        if (-f "Build.PL"
+            && ! -f File::Spec->catfile($self->{build_dir},"Makefile.PL")
+            && ! $merged->requirements_for_module("Module::Build")
+            && ! $CPAN::META->has_inst("Module::Build")
+           ) {
+            $CPAN::Frontend->mywarn(
+              "  Warning: CPAN.pm discovered Module::Build as undeclared prerequisite.\n".
+              "  Adding it now as such.\n"
+            );
+            $CPAN::Frontend->mysleep(5);
+            $merged->add_minimum( "Module::Build" => 0 );
+            delete $self->{writemakefile};
+        }
+        $prereq_pm = {}; # configure_requires defined as "b"
+    } elsif ($slot eq "later") {
+        my $prereq_pm_0 = $self->prereq_pm || {};
+        for my $reqtype (qw(requires build_requires opt_requires opt_build_requires)) {
+            $prereq_pm->{$reqtype} = {%{$prereq_pm_0->{$reqtype}||{}}}; # copy to not pollute it
+            for my $dep ($prefs_depends,$feature_depends) {
+                for my $k (keys %{$dep->{$reqtype}||{}}) {
+                    $prereq_pm->{$reqtype}{$k} = $dep->{$reqtype}{$k};
+                }
+            }
+        }
+        # XXX what about optional_req|breq? -- xdg, 2012-04-01
+        for my $hash (
+            $prereq_pm->{requires},
+            $prereq_pm->{build_requires},
+            $prereq_pm->{opt_requires},
+            $prereq_pm->{opt_build_requires},
+
+        ) {
+            $merged->add_requirements(
+                CPAN::Meta::Requirements->from_string_hash($hash)
+            );
+        }
+    } else {
+        die "Panic: illegal slot '$slot'";
+    }
+    return ($merged->as_string_hash, $prereq_pm);
+}
+
+#-> sub CPAN::Distribution::unsat_prereq ;
+# return ([Foo,"r"],[Bar,"b"]) for normal modules
+# return ([perl=>5.008]) if we need a newer perl than we are running under
+# (sorry for the inconsistency, it was an accident)
+sub unsat_prereq {
+    my($self,$slot) = @_;
+    my($merged_hash,$prereq_pm) = $self->prereqs_for_slot($slot);
+    my(@need);
+    $CPAN::META->has_usable("CPAN::Meta::Requirements")
+        or die "CPAN::Meta::Requirements not available";
+    my $merged = CPAN::Meta::Requirements->from_string_hash($merged_hash);
+    my @merged = $merged->required_modules;
+    CPAN->debug("all merged_prereqs[@merged]") if $CPAN::DEBUG;
+  NEED: for my $need_module ( @merged ) {
+        my $need_version = $merged->requirements_for_module($need_module);
+        my($available_version,$inst_file,$available_file,$nmo);
+        if ($need_module eq "perl") {
+            $available_version = $];
+            $available_file = CPAN::find_perl();
+        } else {
+            if (CPAN::_sqlite_running()) {
+                CPAN::Index->reload;
+                $CPAN::SQLite->search("CPAN::Module",$need_module);
+            }
+            $nmo = $CPAN::META->instance("CPAN::Module",$need_module);
+            next if $nmo->uptodate;
+            $inst_file = $nmo->inst_file || '';
+            $available_file = $nmo->available_file || '';
+
+            # if they have not specified a version, we accept any installed one
+            if ( $available_file
+                and ( # a few quick short circuits
+                     not defined $need_version
+                     or $need_version eq '0'    # "==" would trigger warning when not numeric
+                     or $need_version eq "undef"
+                    )) {
+                unless ($nmo->inst_deprecated) {
+                    next NEED;
+                }
+            }
+
+            $available_version = $nmo->available_version;
+        }
+
+        # We only want to install prereqs if either they're not installed
+        # or if the installed version is too old. We cannot omit this
+        # check, because if 'force' is in effect, nobody else will check.
+        # But we don't want to accept a deprecated module installed as part
+        # of the Perl core, so we continue if the available file is the installed
+        # one and is deprecated
+
+        if ( $available_file ) {
+            my $fulfills_all_version_rqs = $self->_fulfills_all_version_rqs
+                (
+                 $need_module,
+                 $available_file,
+                 $available_version,
+                 $need_version,
+                );
+            if ( $inst_file
+                       && $available_file eq $inst_file
+                       && $nmo->inst_deprecated
+                     ) {
+                # continue installing as a prereq. we really want that
+                # because the deprecated module may spit out warnings
+                # and third party did not know until today. Only one
+                # exception is OK, because CPANPLUS is special after
+                # all:
+                if ( $fulfills_all_version_rqs and
+                     $nmo->id =~ /^CPANPLUS(?:::Dist::Build)$/
+                   ) {
+                    # here we have an available version that is good
+                    # enough although deprecated (preventing circular
+                    # loop CPANPLUS => CPANPLUS::Dist::Build RT#83042)
+                    next NEED;
+                }
+            } elsif (
+                $self->{reqtype} =~ /^(r|c)$/
+                && (exists $prereq_pm->{requires}{$need_module} || exists $prereq_pm->{opt_requires} )
+                && $nmo 
+                && !$inst_file
+            ) {
+                # continue installing as a prereq; this may be a
+                # distro we already used when it was a build_requires
+                # so we did not install it. But suddenly somebody
+                # wants it as a requires
+                my $need_distro = $nmo->distribution;
+                if ($need_distro->{install} && $need_distro->{install}->failed && $need_distro->{install}->text =~ /is only/) {
+                    CPAN->debug("promotion from build_requires to requires") if $CPAN::DEBUG;
+                    delete $need_distro->{install}; # promote to another installation attempt
+                    $need_distro->{reqtype} = "r";
+                    $need_distro->install;
+                    next NEED;
+                }
+            }
+            else {
+                next NEED if $fulfills_all_version_rqs;
+            }
+        }
+
+        if ($need_module eq "perl") {
+            return ["perl", $need_version];
+        }
+        $self->{sponsored_mods}{$need_module} ||= 0;
+        CPAN->debug("need_module[$need_module]s/s/n[$self->{sponsored_mods}{$need_module}]") if $CPAN::DEBUG;
+        if (my $sponsoring = $self->{sponsored_mods}{$need_module}++) {
+            # We have already sponsored it and for some reason it's still
+            # not available. So we do ... what??
+
+            # if we push it again, we have a potential infinite loop
+
+            # The following "next" was a very problematic construct.
+            # It helped a lot but broke some day and had to be
+            # replaced.
+
+            # We must be able to deal with modules that come again and
+            # again as a prereq and have themselves prereqs and the
+            # queue becomes long but finally we would find the correct
+            # order. The RecursiveDependency check should trigger a
+            # die when it's becoming too weird. Unfortunately removing
+            # this next breaks many other things.
+
+            # The bug that brought this up is described in Todo under
+            # "5.8.9 cannot install Compress::Zlib"
+
+            # next; # this is the next that had to go away
+
+            # The following "next NEED" are fine and the error message
+            # explains well what is going on. For example when the DBI
+            # fails and consequently DBD::SQLite fails and now we are
+            # processing CPAN::SQLite. Then we must have a "next" for
+            # DBD::SQLite. How can we get it and how can we identify
+            # all other cases we must identify?
+
+            my $do = $nmo->distribution;
+            next NEED unless $do; # not on CPAN
+            if (CPAN::Version->vcmp($need_version, $nmo->ro->{CPAN_VERSION}) > 0){
+                $CPAN::Frontend->mywarn("Warning: Prerequisite ".
+                                        "'$need_module => $need_version' ".
+                                        "for '$self->{ID}' seems ".
+                                        "not available according to the indices\n"
+                                       );
+                next NEED;
+            }
+          NOSAYER: for my $nosayer (
+                                    "unwrapped",
+                                    "writemakefile",
+                                    "signature_verify",
+                                    "make",
+                                    "make_test",
+                                    "install",
+                                    "make_clean",
+                                   ) {
+                if ($do->{$nosayer}) {
+                    my $selfid = $self->pretty_id;
+                    my $did = $do->pretty_id;
+                    if (UNIVERSAL::can($do->{$nosayer},"failed") ?
+                        $do->{$nosayer}->failed :
+                        $do->{$nosayer} =~ /^NO/) {
+                        if ($nosayer eq "make_test"
+                            &&
+                            $do->{make_test}{COMMANDID} != $CPAN::CurrentCommandId
+                           ) {
+                            next NOSAYER;
+                        }
+                        ### XXX  don't complain about missing optional deps -- xdg, 2012-04-01
+                        if ($self->is_locally_optional($prereq_pm, $need_module)) {
+                            # don't complain about failing optional prereqs
+                        }
+                        else {
+                            $CPAN::Frontend->mywarn("Warning: Prerequisite ".
+                                                    "'$need_module => $need_version' ".
+                                                    "for '$selfid' failed when ".
+                                                    "processing '$did' with ".
+                                                    "'$nosayer => $do->{$nosayer}'. Continuing, ".
+                                                    "but chances to succeed are limited.\n"
+                                                );
+                            $CPAN::Frontend->mysleep($sponsoring/10);
+                        }
+                        next NEED;
+                    } else { # the other guy succeeded
+                        if ($nosayer =~ /^(install|make_test)$/) {
+                            # we had this with
+                            # DMAKI/DateTime-Calendar-Chinese-0.05.tar.gz
+                            # in 2007-03 for 'make install'
+                            # and 2008-04: #30464 (for 'make test')
+                            # $CPAN::Frontend->mywarn("Warning: Prerequisite ".
+                            #                         "'$need_module => $need_version' ".
+                            #                         "for '$selfid' already built ".
+                            #                         "but the result looks suspicious. ".
+                            #                         "Skipping another build attempt, ".
+                            #                         "to prevent looping endlessly.\n"
+                            #                        );
+                            next NEED;
+                        }
+                    }
+                }
+            }
+        }
+        my $needed_as;
+        if (0) {
+        } elsif (exists $prereq_pm->{requires}{$need_module}
+            || exists $prereq_pm->{opt_requires}{$need_module}
+        ) {
+            $needed_as = "r";
+        } elsif ($slot eq "configure_requires_later") {
+            # in ae872487d5 we said: C< we have not yet run the
+            # {Build,Makefile}.PL, we must presume "r" >; but the
+            # meta.yml standard says C< These dependencies are not
+            # required after the distribution is installed. >; so now
+            # we change it back to "b" and care for the proper
+            # promotion later.
+            $needed_as = "b";
+        } else {
+            $needed_as = "b";
+        }
+        # here need to flag as optional for recommends/suggests
+        # -- xdg, 2012-04-01
+        my $optional = !$self->{mandatory}
+            || $self->is_locally_optional($prereq_pm, $need_module);
+        push @need, [$need_module,$needed_as,$optional];
+    }
+    my @unfolded = map { "[".join(",",@$_)."]" } @need;
+    CPAN->debug("returning from unsat_prereq[@unfolded]") if $CPAN::DEBUG;
+    @need;
+}
+
+sub _fulfills_all_version_rqs {
+    my($self,$need_module,$available_file,$available_version,$need_version) = @_;
+    my(@all_requirements) = split /\s*,\s*/, $need_version;
+    local($^W) = 0;
+    my $ok = 0;
+  RQ: for my $rq (@all_requirements) {
+        if ($rq =~ s|>=\s*||) {
+        } elsif ($rq =~ s|>\s*||) {
+            # 2005-12: one user
+            if (CPAN::Version->vgt($available_version,$rq)) {
+                $ok++;
+            }
+            next RQ;
+        } elsif ($rq =~ s|!=\s*||) {
+            # 2005-12: no user
+            if (CPAN::Version->vcmp($available_version,$rq)) {
+                $ok++;
+                next RQ;
+            } else {
+                $ok=0;
+                last RQ;
+            }
+        } elsif ($rq =~ m|<=?\s*|) {
+            # 2005-12: no user
+            $CPAN::Frontend->mywarn("Downgrading not supported (rq[$rq])\n");
+            $ok++;
+            next RQ;
+        } elsif ($rq =~ s|==\s*||) {
+            # 2009-07: ELLIOTJS/Perl-Critic-1.099_002.tar.gz
+            if (CPAN::Version->vcmp($available_version,$rq)) {
+                $ok=0;
+                last RQ;
+            } else {
+                $ok++;
+                next RQ;
+            }
+        }
+        if (! CPAN::Version->vgt($rq, $available_version)) {
+            $ok++;
+        }
+        CPAN->debug(sprintf("need_module[%s]available_file[%s]".
+                            "available_version[%s]rq[%s]ok[%d]",
+                            $need_module,
+                            $available_file,
+                            $available_version,
+                            CPAN::Version->readable($rq),
+                            $ok,
+                           )) if $CPAN::DEBUG;
+    }
+    my $ret = $ok == @all_requirements;
+    CPAN->debug(sprintf("need_module[%s]ok[%s]all_requirements[%d]",$need_module, $ok, scalar @all_requirements)) if $CPAN::DEBUG;
+    return $ret;
+}
+
+#-> sub CPAN::Distribution::read_meta
+# read any sort of meta files, return CPAN::Meta object if no errors
+sub read_meta {
+    my($self) = @_;
+    my $meta_file = $self->pick_meta_file
+        or return;
+
+    return unless $CPAN::META->has_usable("CPAN::Meta");
+    my $meta = eval { CPAN::Meta->load_file($meta_file)}
+        or return;
+
+    # Very old EU::MM could have wrong META
+    if ($meta_file eq 'META.yml'
+        && $meta->generated_by =~ /ExtUtils::MakeMaker version ([\d\._]+)/
+    ) {
+        my $eummv = do { local $^W = 0; $1+0; };
+        return if $eummv < 6.2501;
+    }
+
+    return $meta;
+}
+
+#-> sub CPAN::Distribution::read_yaml ;
+# XXX This should be DEPRECATED -- dagolden, 2011-02-05
+sub read_yaml {
+    my($self) = @_;
+    my $meta_file = $self->pick_meta_file('\.yml$');
+    $self->debug("meta_file[$meta_file]") if $CPAN::DEBUG;
+    return unless $meta_file;
+    my $yaml;
+    eval { $yaml = $self->parse_meta_yml($meta_file) };
+    if ($@ or ! $yaml) {
+        return undef; # if we die, then we cannot read YAML's own META.yml
+    }
+    # not "authoritative"
+    if (defined $yaml && (! ref $yaml || ref $yaml ne "HASH")) {
+        $CPAN::Frontend->mywarn("META.yml does not seem to be conforming, cannot use it.\n");
+        $yaml = undef;
+    }
+    $self->debug(sprintf "yaml[%s]", $yaml || "UNDEF")
+        if $CPAN::DEBUG;
+    $self->debug($yaml) if $CPAN::DEBUG && $yaml;
+    # MYMETA.yml is static and authoritative by definition
+    if ( $meta_file =~ /MYMETA\.yml/ ) {
+      return $yaml;
+    }
+    # META.yml is authoritative only if dynamic_config is defined and false
+    if ( defined $yaml->{dynamic_config} && ! $yaml->{dynamic_config} ) {
+      return $yaml;
+    }
+    # otherwise, we can't use what we found
+    return undef;
+}
+
+#-> sub CPAN::Distribution::configure_requires ;
+sub configure_requires {
+    my($self) = @_;
+    return unless my $meta_file = $self->pick_meta_file('^META');
+    if (my $meta_obj = $self->read_meta) {
+        my $prereqs = $meta_obj->effective_prereqs;
+        my $cr = $prereqs->requirements_for(qw/configure requires/);
+        return $cr ? $cr->as_string_hash : undef;
+    }
+    else {
+        my $yaml = eval { $self->parse_meta_yml($meta_file) };
+        return $yaml->{configure_requires};
+    }
+}
+
+#-> sub CPAN::Distribution::prereq_pm ;
+sub prereq_pm {
+    my($self) = @_;
+    return unless $self->{writemakefile}  # no need to have succeeded
+                                          # but we must have run it
+        || $self->{modulebuild};
+    unless ($self->{build_dir}) {
+        return;
+    }
+    # no Makefile/Build means configuration aborted, so don't look for prereqs
+    my $makefile  = File::Spec->catfile($self->{build_dir}, $^O eq 'VMS' ? 'descrip.mms' : 'Makefile');
+    my $buildfile = File::Spec->catfile($self->{build_dir}, $^O eq 'VMS' ? 'Build.com' : 'Build');
+    return unless   -f $makefile || -f $buildfile;
+    CPAN->debug(sprintf "writemakefile[%s]modulebuild[%s]",
+                $self->{writemakefile}||"",
+                $self->{modulebuild}||"",
+               ) if $CPAN::DEBUG;
+    my($req,$breq, $opt_req, $opt_breq);
+    my $meta_obj = $self->read_meta;
+    # META/MYMETA is only authoritative if dynamic_config is false
+    if ($meta_obj && ! $meta_obj->dynamic_config) {
+        my $prereqs = $meta_obj->effective_prereqs;
+        my $requires = $prereqs->requirements_for(qw/runtime requires/);
+        my $build_requires = $prereqs->requirements_for(qw/build requires/);
+        my $test_requires = $prereqs->requirements_for(qw/test requires/);
+        # XXX we don't yet distinguish build vs test, so merge them for now
+        $build_requires->add_requirements($test_requires);
+        $req = $requires->as_string_hash;
+        $breq = $build_requires->as_string_hash;
+
+        # XXX assemble optional_req && optional_breq from recommends/suggests
+        # depending on corresponding policies -- xdg, 2012-04-01
+        CPAN->use_inst("CPAN::Meta::Requirements");
+        my $opt_runtime = CPAN::Meta::Requirements->new;
+        my $opt_build   = CPAN::Meta::Requirements->new;
+        if ( $CPAN::Config->{recommends_policy} ) {
+            $opt_runtime->add_requirements( $prereqs->requirements_for(qw/runtime recommends/));
+            $opt_build->add_requirements(   $prereqs->requirements_for(qw/build recommends/));
+            $opt_build->add_requirements(   $prereqs->requirements_for(qw/test  recommends/));
+
+        }
+        if ( $CPAN::Config->{suggests_policy} ) {
+            $opt_runtime->add_requirements( $prereqs->requirements_for(qw/runtime suggests/));
+            $opt_build->add_requirements(   $prereqs->requirements_for(qw/build suggests/));
+            $opt_build->add_requirements(   $prereqs->requirements_for(qw/test  suggests/));
+        }
+        $opt_req = $opt_runtime->as_string_hash;
+        $opt_breq = $opt_build->as_string_hash;
+    }
+    elsif (my $yaml = $self->read_yaml) { # often dynamic_config prevents a result here
+        $req =  $yaml->{requires} || {};
+        $breq =  $yaml->{build_requires} || {};
+        if ( $CPAN::Config->{recommends_policy} ) {
+            $opt_req = $yaml->{recommends} || {};
+        }
+        undef $req unless ref $req eq "HASH" && %$req;
+        if ($req) {
+            if ($yaml->{generated_by} &&
+                $yaml->{generated_by} =~ /ExtUtils::MakeMaker version ([\d\._]+)/) {
+                my $eummv = do { local $^W = 0; $1+0; };
+                if ($eummv < 6.2501) {
+                    # thanks to Slaven for digging that out: MM before
+                    # that could be wrong because it could reflect a
+                    # previous release
+                    undef $req;
+                }
+            }
+            my $areq;
+            my $do_replace;
+            while (my($k,$v) = each %{$req||{}}) {
+                next unless defined $v;
+                if ($v =~ /\d/) {
+                    $areq->{$k} = $v;
+                } elsif ($k =~ /[A-Za-z]/ &&
+                         $v =~ /[A-Za-z]/ &&
+                         $CPAN::META->exists("CPAN::Module",$v)
+                        ) {
+                    $CPAN::Frontend->mywarn("Suspicious key-value pair in META.yml's ".
+                                            "requires hash: $k => $v; I'll take both ".
+                                            "key and value as a module name\n");
+                    $CPAN::Frontend->mysleep(1);
+                    $areq->{$k} = 0;
+                    $areq->{$v} = 0;
+                    $do_replace++;
+                }
+            }
+            $req = $areq if $do_replace;
+        }
+    }
+    else {
+        $CPAN::Frontend->mywarnonce("Could not read metadata file. Falling back to other ".
+                                    "methods to determine prerequisites\n");
+    }
+
+    unless ($req || $breq) {
+        my $build_dir;
+        unless ( $build_dir = $self->{build_dir} ) {
+            return;
+        }
+        my $makefile = File::Spec->catfile($build_dir,"Makefile");
+        my $fh;
+        if (-f $makefile
+            and
+            $fh = FileHandle->new("<$makefile\0")) {
+            CPAN->debug("Getting prereq from Makefile") if $CPAN::DEBUG;
+            local($/) = "\n";
+            while (<$fh>) {
+                last if /MakeMaker post_initialize section/;
+                my($p) = m{^[\#]
+                           \s+PREREQ_PM\s+=>\s+(.+)
+                       }x;
+                next unless $p;
+                # warn "Found prereq expr[$p]";
+
+                #  Regexp modified by A.Speer to remember actual version of file
+                #  PREREQ_PM hash key wants, then add to
+                while ( $p =~ m/(?:\s)([\w\:]+)=>(q\[.*?\]|undef),?/g ) {
+                    my($m,$n) = ($1,$2);
+                    # When a prereq is mentioned twice: let the bigger
+                    # win; usual culprit is that they declared
+                    # build_requires separately from requires; see
+                    # rt.cpan.org #47774
+                    my($prevn);
+                    if ( defined $req->{$m} ) {
+                        $prevn = $req->{$m};
+                    }
+                    if ($n =~ /^q\[(.*?)\]$/) {
+                        $n = $1;
+                    }
+                    if (!$prevn || CPAN::Version->vlt($prevn, $n)){
+                        $req->{$m} = $n;
+                    }
+                }
+                last;
+            }
+        }
+    }
+    unless ($req || $breq) {
+        my $build_dir = $self->{build_dir} or die "Panic: no build_dir?";
+        my $buildfile = File::Spec->catfile($build_dir,"Build");
+        if (-f $buildfile) {
+            CPAN->debug("Found '$buildfile'") if $CPAN::DEBUG;
+            my $build_prereqs = File::Spec->catfile($build_dir,"_build","prereqs");
+            if (-f $build_prereqs) {
+                CPAN->debug("Getting prerequisites from '$build_prereqs'") if $CPAN::DEBUG;
+                my $content = do { local *FH;
+                                   open FH, $build_prereqs
+                                       or $CPAN::Frontend->mydie("Could not open ".
+                                                                 "'$build_prereqs': $!");
+                                   local $/;
+                                   <FH>;
+                               };
+                my $bphash = eval $content;
+                if ($@) {
+                } else {
+                    $req  = $bphash->{requires} || +{};
+                    $breq = $bphash->{build_requires} || +{};
+                }
+            }
+        }
+    }
+    # XXX needs to be adapted for optional_req & optional_breq -- xdg, 2012-04-01
+    if ($req || $breq || $opt_req || $opt_breq ) {
+        return $self->{prereq_pm} = {
+           requires => $req,
+           build_requires => $breq,
+           opt_requires => $opt_req,
+           opt_build_requires => $opt_breq,
+       };
+    }
+}
+
+#-> sub CPAN::Distribution::shortcut_test ;
+# return values: undef means don't shortcut; 0 means shortcut as fail;
+# and 1 means shortcut as success
+sub shortcut_test {
+    my ($self) = @_;
+
+    $self->debug("checking badtestcnt[$self->{ID}]") if $CPAN::DEBUG;
+    $self->{badtestcnt} ||= 0;
+    if ($self->{badtestcnt} > 0) {
+        require Data::Dumper;
+        CPAN->debug(sprintf "NOREPEAT[%s]", Data::Dumper::Dumper($self)) if $CPAN::DEBUG;
+        return $self->goodbye("Won't repeat unsuccessful test during this command");
+    }
+
+    for my $slot ( qw/later configure_requires_later/ ) {
+        $self->debug("checking $slot slot[$self->{ID}]") if $CPAN::DEBUG;
+        return $self->success($self->{$slot})
+        if $self->{$slot};
+    }
+
+    $self->debug("checking if tests passed[$self->{ID}]") if $CPAN::DEBUG;
+    if ( $self->{make_test} ) {
+        if (
+            UNIVERSAL::can($self->{make_test},"failed") ?
+            $self->{make_test}->failed :
+            $self->{make_test} =~ /^NO/
+        ) {
+            if (
+                UNIVERSAL::can($self->{make_test},"commandid")
+                &&
+                $self->{make_test}->commandid == $CPAN::CurrentCommandId
+            ) {
+                return $self->goodbye("Has already been tested within this command");
+            }
+        } else {
+            # if global "is_tested" has been cleared, we need to mark this to
+            # be added to PERL5LIB if not already installed
+            if ($self->tested_ok_but_not_installed) {
+                $CPAN::META->is_tested($self->{build_dir},$self->{make_test}{TIME});
+            }
+            return $self->success("Has already been tested successfully");
+        }
+    }
+
+    if ($self->{notest}) {
+        $self->{make_test} = CPAN::Distrostatus->new("YES");
+        return $self->success("Skipping test because of notest pragma");
+    }
+
+    return undef; # no shortcut
+}
+
+#-> sub CPAN::Distribution::_exe_files ;
+sub _exe_files {
+    my($self) = @_;
+    return unless $self->{writemakefile}  # no need to have succeeded
+                                          # but we must have run it
+        || $self->{modulebuild};
+    unless ($self->{build_dir}) {
+        return;
+    }
+    CPAN->debug(sprintf "writemakefile[%s]modulebuild[%s]",
+                $self->{writemakefile}||"",
+                $self->{modulebuild}||"",
+               ) if $CPAN::DEBUG;
+    my $build_dir;
+    unless ( $build_dir = $self->{build_dir} ) {
+        return;
+    }
+    my $makefile = File::Spec->catfile($build_dir,"Makefile");
+    my $fh;
+    my @exe_files;
+    if (-f $makefile
+        and
+        $fh = FileHandle->new("<$makefile\0")) {
+        CPAN->debug("Getting exefiles from Makefile") if $CPAN::DEBUG;
+        local($/) = "\n";
+        while (<$fh>) {
+            last if /MakeMaker post_initialize section/;
+            my($p) = m{^[\#]
+                       \s+EXE_FILES\s+=>\s+\[(.+)\]
+                  }x;
+            next unless $p;
+            # warn "Found exefiles expr[$p]";
+            my @p = split /,\s*/, $p;
+            for my $p2 (@p) {
+                if ($p2 =~ /^q\[(.+)\]/) {
+                    push @exe_files, $1;
+                }
+            }
+        }
+    }
+    return \@exe_files if @exe_files;
+    my $buildparams = File::Spec->catfile($build_dir,"_build","build_params");
+    if (-f $buildparams) {
+        CPAN->debug("Found '$buildparams'") if $CPAN::DEBUG;
+        my $x = do $buildparams;
+        for my $sf (@{$x->[2]{script_files} || []}) {
+            push @exe_files, $sf;
+        }
+    }
+    return \@exe_files;
+}
+
+#-> sub CPAN::Distribution::test ;
+sub test {
+    my($self) = @_;
+
+    $self->pre_test();
+
+    $self->debug("checking goto id[$self->{ID}]") if $CPAN::DEBUG;
+    if (my $goto = $self->prefs->{goto}) {
+        return $self->goto($goto);
+    }
+
+    $self->make
+        or return;
+
+    if ( defined( my $sc = $self->shortcut_test ) ) {
+        return $sc;
+    }
+
+    if ($CPAN::Signal) {
+      delete $self->{force_update};
+      return;
+    }
+    # warn "XDEBUG: checking for notest: $self->{notest} $self";
+    my $make = $self->{modulebuild} ? "Build" : "make";
+
+    local $ENV{PERL5LIB} = defined($ENV{PERL5LIB})
+                           ? $ENV{PERL5LIB}
+                           : ($ENV{PERLLIB} || "");
+
+    local $ENV{PERL5OPT} = defined $ENV{PERL5OPT} ? $ENV{PERL5OPT} : "";
+    $CPAN::META->set_perl5lib;
+    local $ENV{MAKEFLAGS}; # protect us from outer make calls
+    local $ENV{PERL_MM_USE_DEFAULT} = 1 if $CPAN::Config->{use_prompt_default};
+    local $ENV{NONINTERACTIVE_TESTING} = 1 if $CPAN::Config->{use_prompt_default};
+
+    $CPAN::Frontend->myprint("Running $make test\n");
+
+    my $builddir = $self->dir or
+        $CPAN::Frontend->mydie("PANIC: Cannot determine build directory\n");
+
+    unless (chdir $builddir) {
+        $CPAN::Frontend->mywarn("Couldn't chdir to '$builddir': $!");
+        return;
+    }
+
+    $self->debug("Changed directory to $self->{build_dir}")
+        if $CPAN::DEBUG;
+
+    if ($^O eq 'MacOS') {
+        Mac::BuildTools::make_test($self);
+        return;
+    }
+
+    if ($self->{modulebuild}) {
+        my $thm = CPAN::Shell->expand("Module","Test::Harness");
+        my $v = $thm->inst_version;
+        if (CPAN::Version->vlt($v,2.62)) {
+            # XXX Eric Wilhelm reported this as a bug: klapperl:
+            # Test::Harness 3.0 self-tests, so that should be 'unless
+            # installing Test::Harness'
+            unless ($self->id eq $thm->distribution->id) {
+               $CPAN::Frontend->mywarn(qq{The version of your Test::Harness is only
+  '$v', you need at least '2.62'. Please upgrade your Test::Harness.\n});
+                $self->{make_test} = CPAN::Distrostatus->new("NO Test::Harness too old");
+                return;
+            }
+        }
+    }
+
+    if ( ! $self->{force_update}  ) {
+        # bypass actual tests if "trust_test_report_history" and have a report
+        my $have_tested_fcn;
+        if (   $CPAN::Config->{trust_test_report_history}
+            && $CPAN::META->has_inst("CPAN::Reporter::History")
+            && ( $have_tested_fcn = CPAN::Reporter::History->can("have_tested" ))) {
+            if ( my @reports = $have_tested_fcn->( dist => $self->base_id ) ) {
+                # Do nothing if grade was DISCARD
+                if ( $reports[-1]->{grade} =~ /^(?:PASS|UNKNOWN)$/ ) {
+                    $self->{make_test} = CPAN::Distrostatus->new("YES");
+                    # if global "is_tested" has been cleared, we need to mark this to
+                    # be added to PERL5LIB if not already installed
+                    if ($self->tested_ok_but_not_installed) {
+                        $CPAN::META->is_tested($self->{build_dir},$self->{make_test}{TIME});
+                    }
+                    $CPAN::Frontend->myprint("Found prior test report -- OK\n");
+                    return;
+                }
+                elsif ( $reports[-1]->{grade} =~ /^(?:FAIL|NA)$/ ) {
+                    $self->{make_test} = CPAN::Distrostatus->new("NO");
+                    $self->{badtestcnt}++;
+                    $CPAN::Frontend->mywarn("Found prior test report -- NOT OK\n");
+                    return;
+                }
+            }
+        }
+    }
+
+    my $system;
+    my $prefs_test = $self->prefs->{test};
+    if (my $commandline
+        = exists $prefs_test->{commandline} ? $prefs_test->{commandline} : "") {
+        $system = $commandline;
+        $ENV{PERL} = CPAN::find_perl();
+    } elsif ($self->{modulebuild}) {
+        $system = sprintf "%s test", $self->_build_command();
+        unless (-e "Build" || ($^O eq 'VMS' && -e "Build.com")) {
+            my $id = $self->pretty_id;
+            $CPAN::Frontend->mywarn("Alert: no 'Build' file found while trying to test '$id'");
+        }
+    } else {
+        $system = join " ", $self->_make_command(), "test";
+    }
+    my $make_test_arg = $self->_make_phase_arg("test");
+    $system = sprintf("%s%s",
+                      $system,
+                      $make_test_arg ? " $make_test_arg" : "",
+                     );
+    my($tests_ok);
+    my $test_env;
+    if ($self->prefs->{test}) {
+        $test_env = $self->prefs->{test}{env};
+    }
+    local @ENV{keys %$test_env} = values %$test_env if $test_env;
+    my $expect_model = $self->_prefs_with_expect("test");
+    my $want_expect = 0;
+    if ( $expect_model && @{$expect_model->{talk}} ) {
+        my $can_expect = $CPAN::META->has_inst("Expect");
+        if ($can_expect) {
+            $want_expect = 1;
+        } else {
+            $CPAN::Frontend->mywarn("Expect not installed, falling back to ".
+                                    "testing without\n");
+        }
+    }
+    if ($want_expect) {
+        if ($self->_should_report('test')) {
+            $CPAN::Frontend->mywarn("Reporting via CPAN::Reporter is currently ".
+                                    "not supported when distroprefs specify ".
+                                    "an interactive test\n");
+        }
+        $tests_ok = $self->_run_via_expect($system,'test',$expect_model) == 0;
+    } elsif ( $self->_should_report('test') ) {
+        $tests_ok = CPAN::Reporter::test($self, $system);
+    } else {
+        $tests_ok = system($system) == 0;
+    }
+    $self->introduce_myself;
+    my $but = $self->_make_test_illuminate_prereqs();
+    if ( $tests_ok ) {
+        if ($but) {
+            $CPAN::Frontend->mywarn("Tests succeeded but $but\n");
+            $self->{make_test} = CPAN::Distrostatus->new("NO $but");
+            $self->store_persistent_state;
+            return $self->goodbye("[dependencies] -- NA");
+        }
+        $CPAN::Frontend->myprint("  $system -- OK\n");
+        $self->{make_test} = CPAN::Distrostatus->new("YES");
+        $CPAN::META->is_tested($self->{build_dir},$self->{make_test}{TIME});
+        # probably impossible to need the next line because badtestcnt
+        # has a lifespan of one command
+        delete $self->{badtestcnt};
+    } else {
+        if ($but) {
+            $but .= "; additionally test harness failed";
+            $CPAN::Frontend->mywarn("$but\n");
+            $self->{make_test} = CPAN::Distrostatus->new("NO $but");
+        } elsif ( $self->{force_update} ) {
+            $self->{make_test} = CPAN::Distrostatus->new(
+                "NO but failure ignored because 'force' in effect"
+            );
+        } else {
+            $self->{make_test} = CPAN::Distrostatus->new("NO");
+        }
+        $self->{badtestcnt}++;
+        $CPAN::Frontend->mywarn("  $system -- NOT OK\n");
+        CPAN::Shell->optprint
+              ("hint",
+               sprintf
+               ("//hint// to see the cpan-testers results for installing this module, try:
+  reports %s\n",
+                $self->pretty_id));
+    }
+    $self->store_persistent_state;
+
+    $self->post_test();
+
+    return $self->{force_update} ? 1 : !! $tests_ok;
+}
+
+sub _make_test_illuminate_prereqs {
+    my($self) = @_;
+    my @prereq;
+
+    # local $CPAN::DEBUG = 16; # Distribution
+    for my $m (keys %{$self->{sponsored_mods}}) {
+        next unless $self->{sponsored_mods}{$m} > 0;
+        my $m_obj = CPAN::Shell->expand("Module",$m) or next;
+        # XXX we need available_version which reflects
+        # $ENV{PERL5LIB} so that already tested but not yet
+        # installed modules are counted.
+        my $available_version = $m_obj->available_version;
+        my $available_file = $m_obj->available_file;
+        if ($available_version &&
+            !CPAN::Version->vlt($available_version,$self->{prereq_pm}{$m})
+           ) {
+            CPAN->debug("m[$m] good enough available_version[$available_version]")
+                if $CPAN::DEBUG;
+        } elsif ($available_file
+                 && (
+                     !$self->{prereq_pm}{$m}
+                     ||
+                     $self->{prereq_pm}{$m} == 0
+                    )
+                ) {
+            # lex Class::Accessor::Chained::Fast which has no $VERSION
+            CPAN->debug("m[$m] have available_file[$available_file]")
+                if $CPAN::DEBUG;
+        } else {
+            push @prereq, $m
+                if $m_obj->{mandatory};
+        }
+    }
+    my $but;
+    if (@prereq) {
+        my $cnt = @prereq;
+        my $which = join ",", @prereq;
+        $but = $cnt == 1 ? "one dependency not OK ($which)" :
+            "$cnt dependencies missing ($which)";
+    }
+    $but;
+}
+
+sub _prefs_with_expect {
+    my($self,$where) = @_;
+    return unless my $prefs = $self->prefs;
+    return unless my $where_prefs = $prefs->{$where};
+    if ($where_prefs->{expect}) {
+        return {
+                mode => "deterministic",
+                timeout => 15,
+                talk => $where_prefs->{expect},
+               };
+    } elsif ($where_prefs->{"eexpect"}) {
+        return $where_prefs->{"eexpect"};
+    }
+    return;
+}
+
+#-> sub CPAN::Distribution::clean ;
+sub clean {
+    my($self) = @_;
+    my $make = $self->{modulebuild} ? "Build" : "make";
+    $CPAN::Frontend->myprint("Running $make clean\n");
+    unless (exists $self->{archived}) {
+        $CPAN::Frontend->mywarn("Distribution seems to have never been unzipped".
+                                "/untarred, nothing done\n");
+        return 1;
+    }
+    unless (exists $self->{build_dir}) {
+        $CPAN::Frontend->mywarn("Distribution has no own directory, nothing to do.\n");
+        return 1;
+    }
+    if (exists $self->{writemakefile}
+        and $self->{writemakefile}->failed
+       ) {
+        $CPAN::Frontend->mywarn("No Makefile, don't know how to 'make clean'\n");
+        return 1;
+    }
+  EXCUSE: {
+        my @e;
+        exists $self->{make_clean} and $self->{make_clean} eq "YES" and
+            push @e, "make clean already called once";
+        $CPAN::Frontend->myprint(join "", map {"  $_\n"} @e) and return if @e;
+    }
+    chdir $self->{build_dir} or
+        Carp::confess("Couldn't chdir to $self->{build_dir}: $!");
+    $self->debug("Changed directory to $self->{build_dir}") if $CPAN::DEBUG;
+
+    if ($^O eq 'MacOS') {
+        Mac::BuildTools::make_clean($self);
+        return;
+    }
+
+    my $system;
+    if ($self->{modulebuild}) {
+        unless (-f "Build") {
+            my $cwd = CPAN::anycwd();
+            $CPAN::Frontend->mywarn("Alert: no Build file available for 'clean $self->{id}".
+                                    " in cwd[$cwd]. Danger, Will Robinson!");
+            $CPAN::Frontend->mysleep(5);
+        }
+        $system = sprintf "%s clean", $self->_build_command();
+    } else {
+        $system  = join " ", $self->_make_command(), "clean";
+    }
+    my $system_ok = system($system) == 0;
+    $self->introduce_myself;
+    if ( $system_ok ) {
+      $CPAN::Frontend->myprint("  $system -- OK\n");
+
+      # $self->force;
+
+      # Jost Krieger pointed out that this "force" was wrong because
+      # it has the effect that the next "install" on this distribution
+      # will untar everything again. Instead we should bring the
+      # object's state back to where it is after untarring.
+
+      for my $k (qw(
+                    force_update
+                    install
+                    writemakefile
+                    make
+                    make_test
+                   )) {
+          delete $self->{$k};
+      }
+      $self->{make_clean} = CPAN::Distrostatus->new("YES");
+
+    } else {
+      # Hmmm, what to do if make clean failed?
+
+      $self->{make_clean} = CPAN::Distrostatus->new("NO");
+      $CPAN::Frontend->mywarn(qq{  $system -- NOT OK\n});
+
+      # 2006-02-27: seems silly to me to force a make now
+      # $self->force("make"); # so that this directory won't be used again
+
+    }
+    $self->store_persistent_state;
+}
+
+#-> sub CPAN::Distribution::check_disabled ;
+sub check_disabled {
+    my ($self) = @_;
+    $self->debug("checking disabled id[$self->{ID}]") if $CPAN::DEBUG;
+    if ($self->prefs->{disabled} && ! $self->{force_update}) {
+        return sprintf(
+                            "Disabled via prefs file '%s' doc %d",
+                            $self->{prefs_file},
+                            $self->{prefs_file_doc},
+                            );
+    }
+    return;
+}
+
+#-> sub CPAN::Distribution::goto ;
+sub goto {
+    my($self,$goto) = @_;
+    $goto = $self->normalize($goto);
+    my $why = sprintf(
+                      "Goto '$goto' via prefs file '%s' doc %d",
+                      $self->{prefs_file},
+                      $self->{prefs_file_doc},
+                     );
+    $self->{unwrapped} = CPAN::Distrostatus->new("NO $why");
+    # 2007-07-16 akoenig : Better than NA would be if we could inherit
+    # the status of the $goto distro but given the exceptional nature
+    # of 'goto' I feel reluctant to implement it
+    my $goodbye_message = "[goto] -- NA $why";
+    $self->goodbye($goodbye_message);
+
+    # inject into the queue
+
+    CPAN::Queue->delete($self->id);
+    CPAN::Queue->jumpqueue({qmod => $goto, reqtype => $self->{reqtype}});
+
+    # and run where we left off
+
+    my($method) = (caller(1))[3];
+    CPAN->instance("CPAN::Distribution",$goto)->$method();
+    CPAN::Queue->delete_first($goto);
+    # XXX delete_first returns undef; is that what this should return
+    # up the call stack, eg. return $sefl->goto($goto) -- xdg, 2012-04-04
+}
+
+#-> sub CPAN::Distribution::shortcut_install ;
+# return values: undef means don't shortcut; 0 means shortcut as fail;
+# and 1 means shortcut as success
+sub shortcut_install {
+    my ($self) = @_;
+
+    $self->debug("checking previous install results[$self->{ID}]") if $CPAN::DEBUG;
+    if (exists $self->{install}) {
+        my $text = UNIVERSAL::can($self->{install},"text") ?
+            $self->{install}->text :
+                $self->{install};
+        if ($text =~ /^YES/) {
+            $CPAN::META->is_installed($self->{build_dir});
+            return $self->success("Already done");
+        } elsif ($text =~ /is only/) {
+            # e.g. 'is only build_requires'
+            return $self->goodbye($text);
+        } else {
+            # comment in Todo on 2006-02-11; maybe retry?
+            return $self->goodbye("Already tried without success");
+        }
+    }
+
+    for my $slot ( qw/later configure_requires_later/ ) {
+        return $self->success($self->{$slot})
+        if $self->{$slot};
+    }
+
+    return undef;
+}
+
+#-> sub CPAN::Distribution::install ;
+sub install {
+    my($self) = @_;
+
+    $self->pre_install();
+
+    $self->debug("checking goto id[$self->{ID}]") if $CPAN::DEBUG;
+    if (my $goto = $self->prefs->{goto}) {
+        return $self->goto($goto);
+    }
+
+    $self->test
+        or return;
+
+    if ( defined( my $sc = $self->shortcut_install ) ) {
+        return $sc;
+    }
+
+    if ($CPAN::Signal) {
+      delete $self->{force_update};
+      return;
+    }
+
+    my $builddir = $self->dir or
+        $CPAN::Frontend->mydie("PANIC: Cannot determine build directory\n");
+
+    unless (chdir $builddir) {
+        $CPAN::Frontend->mywarn("Couldn't chdir to '$builddir': $!");
+        return;
+    }
+
+    $self->debug("Changed directory to $self->{build_dir}")
+        if $CPAN::DEBUG;
+
+    my $make = $self->{modulebuild} ? "Build" : "make";
+    $CPAN::Frontend->myprint("Running $make install\n");
+
+    if ($^O eq 'MacOS') {
+        Mac::BuildTools::make_install($self);
+        return;
+    }
+
+    my $system;
+    if (my $commandline = $self->prefs->{install}{commandline}) {
+        $system = $commandline;
+        $ENV{PERL} = CPAN::find_perl();
+    } elsif ($self->{modulebuild}) {
+        my($mbuild_install_build_command) =
+            exists $CPAN::HandleConfig::keys{mbuild_install_build_command} &&
+                $CPAN::Config->{mbuild_install_build_command} ?
+                    $CPAN::Config->{mbuild_install_build_command} :
+                        $self->_build_command();
+        my $install_directive = $^O eq 'VMS' ? '"install"' : 'install';
+        $system = sprintf("%s %s %s",
+                          $mbuild_install_build_command,
+                          $install_directive,
+                          $CPAN::Config->{mbuild_install_arg},
+                         );
+    } else {
+        my($make_install_make_command) = $self->_make_install_make_command();
+        $system = sprintf("%s install %s",
+                          $make_install_make_command,
+                          $CPAN::Config->{make_install_arg},
+                         );
+    }
+
+    my($stderr) = $^O eq "MSWin32" || $^O eq 'VMS' ? "" : " 2>&1 ";
+    my $brip = CPAN::HandleConfig->prefs_lookup($self,
+                                                q{build_requires_install_policy});
+    $brip ||="ask/yes";
+    my $id = $self->id;
+    my $reqtype = $self->{reqtype} ||= "c"; # in doubt it was a command
+    my $want_install = "yes";
+    if ($reqtype eq "b") {
+        if ($brip eq "no") {
+            $want_install = "no";
+        } elsif ($brip =~ m|^ask/(.+)|) {
+            my $default = $1;
+            $default = "yes" unless $default =~ /^(y|n)/i;
+            $want_install =
+                CPAN::Shell::colorable_makemaker_prompt
+                      ("$id is just needed temporarily during building or testing. ".
+                       "Do you want to install it permanently?",
+                       $default);
+        }
+    }
+    unless ($want_install =~ /^y/i) {
+        my $is_only = "is only 'build_requires'";
+        $self->{install} = CPAN::Distrostatus->new("NO -- $is_only");
+        delete $self->{force_update};
+        return $self->goodbye("Not installing because $is_only");
+    }
+    local $ENV{PERL5LIB} = defined($ENV{PERL5LIB})
+                           ? $ENV{PERL5LIB}
+                           : ($ENV{PERLLIB} || "");
+
+    local $ENV{PERL5OPT} = defined $ENV{PERL5OPT} ? $ENV{PERL5OPT} : "";
+    $CPAN::META->set_perl5lib;
+    local $ENV{PERL_MM_USE_DEFAULT} = 1 if $CPAN::Config->{use_prompt_default};
+    local $ENV{NONINTERACTIVE_TESTING} = 1 if $CPAN::Config->{use_prompt_default};
+
+    my($pipe) = FileHandle->new("$system $stderr |") || Carp::croak("Can't execute $system: $!");
+    my($makeout) = "";
+    while (<$pipe>) {
+        print $_; # intentionally NOT use Frontend->myprint because it
+                  # looks irritating when we markup in color what we
+                  # just pass through from an external program
+        $makeout .= $_;
+    }
+    $pipe->close;
+    my $close_ok = $? == 0;
+    $self->introduce_myself;
+    if ( $close_ok ) {
+        $CPAN::Frontend->myprint("  $system -- OK\n");
+        $CPAN::META->is_installed($self->{build_dir});
+        $self->{install} = CPAN::Distrostatus->new("YES");
+    } else {
+        $self->{install} = CPAN::Distrostatus->new("NO");
+        $CPAN::Frontend->mywarn("  $system -- NOT OK\n");
+        my $mimc =
+            CPAN::HandleConfig->prefs_lookup($self,
+                                             q{make_install_make_command});
+        if (
+            $makeout =~ /permission/s
+            && $> > 0
+            && (
+                ! $mimc
+                || $mimc eq (CPAN::HandleConfig->prefs_lookup($self,
+                                                              q{make}))
+               )
+           ) {
+            $CPAN::Frontend->myprint(
+                                     qq{----\n}.
+                                     qq{  You may have to su }.
+                                     qq{to root to install the package\n}.
+                                     qq{  (Or you may want to run something like\n}.
+                                     qq{    o conf make_install_make_command 'sudo make'\n}.
+                                     qq{  to raise your permissions.}
+                                    );
+        }
+    }
+    delete $self->{force_update};
+    $self->store_persistent_state;
+
+    $self->post_install();
+
+    return !! $close_ok;
+}
+
+sub introduce_myself {
+    my($self) = @_;
+    $CPAN::Frontend->myprint(sprintf("  %s\n",$self->pretty_id));
+}
+
+#-> sub CPAN::Distribution::dir ;
+sub dir {
+    shift->{build_dir};
+}
+
+#-> sub CPAN::Distribution::perldoc ;
+sub perldoc {
+    my($self) = @_;
+
+    my($dist) = $self->id;
+    my $package = $self->called_for;
+
+    if ($CPAN::META->has_inst("Pod::Perldocs")) {
+        my($perl) = $self->perl
+            or $CPAN::Frontend->mydie("Couldn't find executable perl\n");
+        my @args = ($perl, q{-MPod::Perldocs}, q{-e},
+                    q{Pod::Perldocs->run()}, $package);
+        my($wstatus);
+        unless ( ($wstatus = system(@args)) == 0 ) {
+            my $estatus = $wstatus >> 8;
+            $CPAN::Frontend->myprint(qq{
+    Function system("@args")
+    returned status $estatus (wstat $wstatus)
+    });
+        }
+    }
+    else {
+        $self->_display_url( $CPAN::Defaultdocs . $package );
+    }
+}
+
+#-> sub CPAN::Distribution::_check_binary ;
+sub _check_binary {
+    my ($dist,$shell,$binary) = @_;
+    my ($pid,$out);
+
+    $CPAN::Frontend->myprint(qq{ + _check_binary($binary)\n})
+      if $CPAN::DEBUG;
+
+    if ($CPAN::META->has_inst("File::Which")) {
+        return File::Which::which($binary);
+    } else {
+        local *README;
+        $pid = open README, "which $binary|"
+            or $CPAN::Frontend->mywarn(qq{Could not fork 'which $binary': $!\n});
+        return unless $pid;
+        while (<README>) {
+            $out .= $_;
+        }
+        close README
+            or $CPAN::Frontend->mywarn("Could not run 'which $binary': $!\n")
+                and return;
+    }
+
+    $CPAN::Frontend->myprint(qq{   + $out \n})
+      if $CPAN::DEBUG && $out;
+
+    return $out;
+}
+
+#-> sub CPAN::Distribution::_display_url ;
+sub _display_url {
+    my($self,$url) = @_;
+    my($res,$saved_file,$pid,$out);
+
+    $CPAN::Frontend->myprint(qq{ + _display_url($url)\n})
+      if $CPAN::DEBUG;
+
+    # should we define it in the config instead?
+    my $html_converter = "html2text.pl";
+
+    my $web_browser = $CPAN::Config->{'lynx'} || undef;
+    my $web_browser_out = $web_browser
+        ? CPAN::Distribution->_check_binary($self,$web_browser)
+        : undef;
+
+    if ($web_browser_out) {
+        # web browser found, run the action
+        my $browser = CPAN::HandleConfig->safe_quote($CPAN::Config->{'lynx'});
+        $CPAN::Frontend->myprint(qq{system[$browser $url]})
+            if $CPAN::DEBUG;
+        $CPAN::Frontend->myprint(qq{
+Displaying URL
+  $url
+with browser $browser
+});
+        $CPAN::Frontend->mysleep(1);
+        system("$browser $url");
+        if ($saved_file) { 1 while unlink($saved_file) }
+    } else {
+        # web browser not found, let's try text only
+        my $html_converter_out =
+            CPAN::Distribution->_check_binary($self,$html_converter);
+        $html_converter_out = CPAN::HandleConfig->safe_quote($html_converter_out);
+
+        if ($html_converter_out ) {
+            # html2text found, run it
+            $saved_file = CPAN::Distribution->_getsave_url( $self, $url );
+            $CPAN::Frontend->mydie(qq{ERROR: problems while getting $url\n})
+                unless defined($saved_file);
+
+            local *README;
+            $pid = open README, "$html_converter $saved_file |"
+                or $CPAN::Frontend->mydie(qq{
+Could not fork '$html_converter $saved_file': $!});
+            my($fh,$filename);
+            if ($CPAN::META->has_usable("File::Temp")) {
+                $fh = File::Temp->new(
+                                      dir      => File::Spec->tmpdir,
+                                      template => 'cpan_htmlconvert_XXXX',
+                                      suffix => '.txt',
+                                      unlink => 0,
+                                     );
+                $filename = $fh->filename;
+            } else {
+                $filename = "cpan_htmlconvert_$$.txt";
+                $fh = FileHandle->new();
+                open $fh, ">$filename" or die;
+            }
+            while (<README>) {
+                $fh->print($_);
+            }
+            close README or
+                $CPAN::Frontend->mydie(qq{Could not run '$html_converter $saved_file': $!});
+            my $tmpin = $fh->filename;
+            $CPAN::Frontend->myprint(sprintf(qq{
+Run '%s %s' and
+saved output to %s\n},
+                                             $html_converter,
+                                             $saved_file,
+                                             $tmpin,
+                                            )) if $CPAN::DEBUG;
+            close $fh;
+            local *FH;
+            open FH, $tmpin
+                or $CPAN::Frontend->mydie(qq{Could not open "$tmpin": $!});
+            my $fh_pager = FileHandle->new;
+            local($SIG{PIPE}) = "IGNORE";
+            my $pager = $CPAN::Config->{'pager'} || "cat";
+            $fh_pager->open("|$pager")
+                or $CPAN::Frontend->mydie(qq{
+Could not open pager '$pager': $!});
+            $CPAN::Frontend->myprint(qq{
+Displaying URL
+  $url
+with pager "$pager"
+});
+            $CPAN::Frontend->mysleep(1);
+            $fh_pager->print(<FH>);
+            $fh_pager->close;
+        } else {
+            # coldn't find the web browser or html converter
+            $CPAN::Frontend->myprint(qq{
+You need to install lynx or $html_converter to use this feature.});
+        }
+    }
+}
+
+#-> sub CPAN::Distribution::_getsave_url ;
+sub _getsave_url {
+    my($dist, $shell, $url) = @_;
+
+    $CPAN::Frontend->myprint(qq{ + _getsave_url($url)\n})
+      if $CPAN::DEBUG;
+
+    my($fh,$filename);
+    if ($CPAN::META->has_usable("File::Temp")) {
+        $fh = File::Temp->new(
+                              dir      => File::Spec->tmpdir,
+                              template => "cpan_getsave_url_XXXX",
+                              suffix => ".html",
+                              unlink => 0,
+                             );
+        $filename = $fh->filename;
+    } else {
+        $fh = FileHandle->new;
+        $filename = "cpan_getsave_url_$$.html";
+    }
+    my $tmpin = $filename;
+    if ($CPAN::META->has_usable('LWP')) {
+        $CPAN::Frontend->myprint("Fetching with LWP:
+  $url
+");
+        my $Ua;
+        CPAN::LWP::UserAgent->config;
+        eval { $Ua = CPAN::LWP::UserAgent->new; };
+        if ($@) {
+            $CPAN::Frontend->mywarn("ERROR: CPAN::LWP::UserAgent->new dies with $@\n");
+            return;
+        } else {
+            my($var);
+            $Ua->proxy('http', $var)
+                if $var = $CPAN::Config->{http_proxy} || $ENV{http_proxy};
+            $Ua->no_proxy($var)
+                if $var = $CPAN::Config->{no_proxy} || $ENV{no_proxy};
+        }
+
+        my $req = HTTP::Request->new(GET => $url);
+        $req->header('Accept' => 'text/html');
+        my $res = $Ua->request($req);
+        if ($res->is_success) {
+            $CPAN::Frontend->myprint(" + request successful.\n")
+                if $CPAN::DEBUG;
+            print $fh $res->content;
+            close $fh;
+            $CPAN::Frontend->myprint(qq{ + saved content to $tmpin \n})
+                if $CPAN::DEBUG;
+            return $tmpin;
+        } else {
+            $CPAN::Frontend->myprint(sprintf(
+                                             "LWP failed with code[%s], message[%s]\n",
+                                             $res->code,
+                                             $res->message,
+                                            ));
+            return;
+        }
+    } else {
+        $CPAN::Frontend->mywarn("  LWP not available\n");
+        return;
+    }
+}
+
+#-> sub CPAN::Distribution::_build_command
+sub _build_command {
+    my($self) = @_;
+    if ($^O eq "MSWin32") { # special code needed at least up to
+                            # Module::Build 0.2611 and 0.2706; a fix
+                            # in M:B has been promised 2006-01-30
+        my($perl) = $self->perl or $CPAN::Frontend->mydie("Couldn't find executable perl\n");
+        return "$perl ./Build";
+    }
+    elsif ($^O eq 'VMS') {
+        return "$^X Build.com";
+    }
+    return "./Build";
+}
+
+#-> sub CPAN::Distribution::_should_report
+sub _should_report {
+    my($self, $phase) = @_;
+    die "_should_report() requires a 'phase' argument"
+        if ! defined $phase;
+
+    # configured
+    my $test_report = CPAN::HandleConfig->prefs_lookup($self,
+                                                       q{test_report});
+    return unless $test_report;
+
+    # don't repeat if we cached a result
+    return $self->{should_report}
+        if exists $self->{should_report};
+
+    # don't report if we generated a Makefile.PL
+    if ( $self->{had_no_makefile_pl} ) {
+        $CPAN::Frontend->mywarn(
+            "Will not send CPAN Testers report with generated Makefile.PL.\n"
+        );
+        return $self->{should_report} = 0;
+    }
+
+    # available
+    if ( ! $CPAN::META->has_inst("CPAN::Reporter")) {
+        $CPAN::Frontend->mywarnonce(
+            "CPAN::Reporter not installed.  No reports will be sent.\n"
+        );
+        return $self->{should_report} = 0;
+    }
+
+    # capable
+    my $crv = CPAN::Reporter->VERSION;
+    if ( CPAN::Version->vlt( $crv, 0.99 ) ) {
+        # don't cache $self->{should_report} -- need to check each phase
+        if ( $phase eq 'test' ) {
+            return 1;
+        }
+        else {
+            $CPAN::Frontend->mywarn(
+                "Reporting on the '$phase' phase requires CPAN::Reporter 0.99, but \n" .
+                "you only have version $crv\.  Only 'test' phase reports will be sent.\n"
+            );
+            return;
+        }
+    }
+
+    # appropriate
+    if ($self->is_dot_dist) {
+        $CPAN::Frontend->mywarn("Reporting via CPAN::Reporter is disabled ".
+                                "for local directories\n");
+        return $self->{should_report} = 0;
+    }
+    if ($self->prefs->{patches}
+        &&
+        @{$self->prefs->{patches}}
+        &&
+        $self->{patched}
+       ) {
+        $CPAN::Frontend->mywarn("Reporting via CPAN::Reporter is disabled ".
+                                "when the source has been patched\n");
+        return $self->{should_report} = 0;
+    }
+
+    # proceed and cache success
+    return $self->{should_report} = 1;
+}
+
+#-> sub CPAN::Distribution::reports
+sub reports {
+    my($self) = @_;
+    my $pathname = $self->id;
+    $CPAN::Frontend->myprint("Distribution: $pathname\n");
+
+    unless ($CPAN::META->has_inst("CPAN::DistnameInfo")) {
+        $CPAN::Frontend->mydie("CPAN::DistnameInfo not installed; cannot continue");
+    }
+    unless ($CPAN::META->has_usable("LWP")) {
+        $CPAN::Frontend->mydie("LWP not installed; cannot continue");
+    }
+    unless ($CPAN::META->has_usable("File::Temp")) {
+        $CPAN::Frontend->mydie("File::Temp not installed; cannot continue");
+    }
+
+    my $d = CPAN::DistnameInfo->new($pathname);
+
+    my $dist      = $d->dist;      # "CPAN-DistnameInfo"
+    my $version   = $d->version;   # "0.02"
+    my $maturity  = $d->maturity;  # "released"
+    my $filename  = $d->filename;  # "CPAN-DistnameInfo-0.02.tar.gz"
+    my $cpanid    = $d->cpanid;    # "GBARR"
+    my $distvname = $d->distvname; # "CPAN-DistnameInfo-0.02"
+
+    my $url = sprintf "http://www.cpantesters.org/show/%s.yaml", $dist;
+
+    CPAN::LWP::UserAgent->config;
+    my $Ua;
+    eval { $Ua = CPAN::LWP::UserAgent->new; };
+    if ($@) {
+        $CPAN::Frontend->mydie("CPAN::LWP::UserAgent->new dies with $@\n");
+    }
+    $CPAN::Frontend->myprint("Fetching '$url'...");
+    my $resp = $Ua->get($url);
+    unless ($resp->is_success) {
+        $CPAN::Frontend->mydie(sprintf "Could not download '%s': %s\n", $url, $resp->code);
+    }
+    $CPAN::Frontend->myprint("DONE\n\n");
+    my $yaml = $resp->content;
+    # what a long way round!
+    my $fh = File::Temp->new(
+                             dir      => File::Spec->tmpdir,
+                             template => 'cpan_reports_XXXX',
+                             suffix => '.yaml',
+                             unlink => 0,
+                            );
+    my $tfilename = $fh->filename;
+    print $fh $yaml;
+    close $fh or $CPAN::Frontend->mydie("Could not close '$tfilename': $!");
+    my $unserialized = CPAN->_yaml_loadfile($tfilename)->[0];
+    unlink $tfilename or $CPAN::Frontend->mydie("Could not unlink '$tfilename': $!");
+    my %other_versions;
+    my $this_version_seen;
+    for my $rep (@$unserialized) {
+        my $rversion = $rep->{version};
+        if ($rversion eq $version) {
+            unless ($this_version_seen++) {
+                $CPAN::Frontend->myprint ("$rep->{version}:\n");
+            }
+            my $arch = $rep->{archname} || $rep->{platform}        || '????';
+            my $grade = $rep->{action}  || $rep->{status}          || '????';
+            my $ostext = $rep->{ostext} || ucfirst($rep->{osname}) || '????';
+            $CPAN::Frontend->myprint
+                (sprintf("%1s%1s%-4s %s on %s %s (%s)\n",
+                         $arch eq $Config::Config{archname}?"*":"",
+                         $grade eq "PASS"?"+":$grade eq"FAIL"?"-":"",
+                         $grade,
+                         $rep->{perl},
+                         $ostext,
+                         $rep->{osvers},
+                         $arch,
+                        ));
+        } else {
+            $other_versions{$rep->{version}}++;
+        }
+    }
+    unless ($this_version_seen) {
+        $CPAN::Frontend->myprint("No reports found for version '$version'
+Reports for other versions:\n");
+        for my $v (sort keys %other_versions) {
+            $CPAN::Frontend->myprint(" $v\: $other_versions{$v}\n");
+        }
+    }
+    $url =~ s/\.yaml/.html/;
+    $CPAN::Frontend->myprint("See $url for details\n");
+}
+
+1;
diff --git a/lib/5.24.1/CPAN/Distroprefs.pm b/lib/5.24.1/CPAN/Distroprefs.pm
new file mode 100644
index 00000000..05b19faa
--- /dev/null
+++ b/lib/5.24.1/CPAN/Distroprefs.pm
@@ -0,0 +1,481 @@
+# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
+# vim: ts=4 sts=4 sw=4:
+
+use 5.006;
+use strict;
+package CPAN::Distroprefs;
+
+use vars qw($VERSION);
+$VERSION = '6.0001';
+
+package CPAN::Distroprefs::Result;
+
+use File::Spec;
+
+sub new { bless $_[1] || {} => $_[0] }
+
+sub abs { File::Spec->catfile($_[0]->dir, $_[0]->file) }
+
+sub __cloner {
+    my ($class, $name, $newclass) = @_;
+    $newclass = 'CPAN::Distroprefs::Result::' . $newclass;
+    no strict 'refs';
+    *{$class . '::' . $name} = sub {
+        $newclass->new({
+            %{ $_[0] },
+            %{ $_[1] },
+        });
+    };
+}
+BEGIN { __PACKAGE__->__cloner(as_warning => 'Warning') }
+BEGIN { __PACKAGE__->__cloner(as_fatal   => 'Fatal') }
+BEGIN { __PACKAGE__->__cloner(as_success => 'Success') }
+
+sub __accessor {
+    my ($class, $key) = @_;
+    no strict 'refs';
+    *{$class . '::' . $key} = sub { $_[0]->{$key} };
+}
+BEGIN { __PACKAGE__->__accessor($_) for qw(type file ext dir) }
+
+sub is_warning { 0 }
+sub is_fatal   { 0 }
+sub is_success { 0 }
+
+package CPAN::Distroprefs::Result::Error;
+use vars qw(@ISA);
+BEGIN { @ISA = 'CPAN::Distroprefs::Result' } ## no critic
+BEGIN { __PACKAGE__->__accessor($_) for qw(msg) }
+
+sub as_string {
+    my ($self) = @_;
+    if ($self->msg) {
+        return sprintf $self->fmt_reason, $self->file, $self->msg;
+    } else {
+        return sprintf $self->fmt_unknown, $self->file;
+    }
+}
+
+package CPAN::Distroprefs::Result::Warning;
+use vars qw(@ISA);
+BEGIN { @ISA = 'CPAN::Distroprefs::Result::Error' } ## no critic
+sub is_warning { 1 }
+sub fmt_reason  { "Error reading distroprefs file %s, skipping: %s" }
+sub fmt_unknown { "Unknown error reading distroprefs file %s, skipping." }
+
+package CPAN::Distroprefs::Result::Fatal;
+use vars qw(@ISA);
+BEGIN { @ISA = 'CPAN::Distroprefs::Result::Error' } ## no critic
+sub is_fatal { 1 }
+sub fmt_reason  { "Error reading distroprefs file %s: %s" }
+sub fmt_unknown { "Unknown error reading distroprefs file %s." }
+
+package CPAN::Distroprefs::Result::Success;
+use vars qw(@ISA);
+BEGIN { @ISA = 'CPAN::Distroprefs::Result' } ## no critic
+BEGIN { __PACKAGE__->__accessor($_) for qw(prefs extension) }
+sub is_success { 1 }
+
+package CPAN::Distroprefs::Iterator;
+
+sub new { bless $_[1] => $_[0] }
+
+sub next { $_[0]->() }
+
+package CPAN::Distroprefs;
+
+use Carp ();
+use DirHandle;
+
+sub _load_method {
+    my ($self, $loader, $result) = @_;
+    return '_load_yaml' if $loader eq 'CPAN' or $loader =~ /^YAML(::|$)/;
+    return '_load_' . $result->ext;
+}
+
+sub _load_yaml {
+    my ($self, $loader, $result) = @_;
+    my $data = eval {
+        $loader eq 'CPAN'
+        ? $loader->_yaml_loadfile($result->abs)
+        : [ $loader->can('LoadFile')->($result->abs) ]
+    };
+    if (my $err = $@) {
+        die $result->as_warning({
+            msg  => $err,
+        });
+    } elsif (!$data) {
+        die $result->as_warning;
+    } else {
+        return @$data;
+    }
+}
+
+sub _load_dd {
+    my ($self, $loader, $result) = @_;
+    my @data;
+    {
+        package CPAN::Eval;
+        # this caused a die in CPAN.pm, and I am leaving it 'fatal', though I'm
+        # not sure why we wouldn't just skip the file as we do for all other
+        # errors. -- hdp
+        my $abs = $result->abs;
+        open FH, "<$abs" or die $result->as_fatal(msg => "$!");
+        local $/;
+        my $eval = <FH>;
+        close FH;
+        no strict;
+        eval $eval;
+        if (my $err = $@) {
+            die $result->as_warning({ msg => $err });
+        }
+        my $i = 1;
+        while (${"VAR$i"}) {
+            push @data, ${"VAR$i"};
+            $i++;
+        }
+    }
+    return @data;
+}
+
+sub _load_st {
+    my ($self, $loader, $result) = @_;
+    # eval because Storable is never forward compatible
+    my @data = eval { @{scalar $loader->can('retrieve')->($result->abs) } };
+    if (my $err = $@) {
+        die $result->as_warning({ msg => $err });
+    }
+    return @data;
+}
+
+sub _build_file_list {
+    if (@_ > 3) {
+        die "_build_file_list should be called with 3 arguments, was called with more. First argument is '$_[0]'.";
+    }
+    my ($dir, $dir1, $ext_re) = @_;
+    my @list;
+    my $dh;
+    unless (opendir($dh, $dir)) {
+        $CPAN::Frontend->mywarn("ignoring prefs directory '$dir': $!");
+        return @list;
+    }
+    while (my $fn = readdir $dh) {
+        next if $fn eq '.' || $fn eq '..';
+        if (-d "$dir/$fn") {
+            next if $fn =~ /^[._]/; # prune .svn, .git, .hg, _darcs and what the user wants to hide
+            push @list, _build_file_list("$dir/$fn", "$dir1$fn/", $ext_re);
+        } else {
+            if ($fn =~ $ext_re) {
+                push @list, "$dir1$fn";
+            }
+        }
+    }
+    return @list;
+}
+
+sub find {
+    my ($self, $dir, $ext_map) = @_;
+
+    return CPAN::Distroprefs::Iterator->new(sub { return }) unless %$ext_map;
+
+    my $possible_ext = join "|", map { quotemeta } keys %$ext_map;
+    my $ext_re = qr/\.($possible_ext)$/;
+
+    my @files = _build_file_list($dir, '', $ext_re);
+    @files = sort @files if @files;
+
+    # label the block so that we can use redo in the middle
+    return CPAN::Distroprefs::Iterator->new(sub { LOOP: {
+
+        my $fn = shift @files;
+        return unless defined $fn;
+        my ($ext) = $fn =~ $ext_re;
+
+        my $loader = $ext_map->{$ext};
+
+        my $result = CPAN::Distroprefs::Result->new({
+            file => $fn, ext => $ext, dir => $dir
+        });
+        # copied from CPAN.pm; is this ever actually possible?
+        redo unless -f $result->abs;
+
+        my $load_method = $self->_load_method($loader, $result);
+        my @prefs = eval { $self->$load_method($loader, $result) };
+        if (my $err = $@) {
+            if (ref($err) && eval { $err->isa('CPAN::Distroprefs::Result') }) {
+                return $err;
+            }
+            # rethrow any exceptions that we did not generate
+            die $err;
+        } elsif (!@prefs) {
+            # the loader should have handled this, but just in case:
+            return $result->as_warning;
+        }
+        return $result->as_success({
+            prefs => [
+                map { CPAN::Distroprefs::Pref->new({ data => $_ }) } @prefs
+            ],
+        });
+    } });
+}
+
+package CPAN::Distroprefs::Pref;
+
+use Carp ();
+
+sub new { bless $_[1] => $_[0] }
+
+sub data { shift->{data} }
+
+sub has_any_match { $_[0]->data->{match} ? 1 : 0 }
+
+sub has_match {
+    my $match = $_[0]->data->{match} || return 0;
+    exists $match->{$_[1]} || exists $match->{"not_$_[1]"}
+}
+
+sub has_valid_subkeys {
+    grep { exists $_[0]->data->{match}{$_} }
+        map { $_, "not_$_" }
+        $_[0]->match_attributes
+}
+
+sub _pattern {
+    my $re = shift;
+    my $p = eval sprintf 'qr{%s}', $re;
+    if ($@) {
+        $@ =~ s/\n$//;
+        die "Error in Distroprefs pattern qr{$re}\n$@";
+    }
+    return $p;
+}
+
+sub _match_scalar {
+    my ($match, $data) = @_;
+    my $qr = _pattern($match);
+    return $data =~ /$qr/;
+}
+
+sub _match_hash {
+    my ($match, $data) = @_;
+    for my $mkey (keys %$match) {
+	(my $dkey = $mkey) =~ s/^not_//;
+        my $val = defined $data->{$dkey} ? $data->{$dkey} : '';
+	if (_match_scalar($match->{$mkey}, $val)) {
+	    return 0 if $mkey =~ /^not_/;
+	}
+	else {
+	    return 0 if $mkey !~ /^not_/;
+	}
+    }
+    return 1;
+}
+
+sub _match {
+    my ($self, $key, $data, $matcher) = @_;
+    my $m = $self->data->{match};
+    if (exists $m->{$key}) {
+	return 0 unless $matcher->($m->{$key}, $data);
+    }
+    if (exists $m->{"not_$key"}) {
+	return 0 if $matcher->($m->{"not_$key"}, $data);
+    }
+    return 1;
+}
+
+sub _scalar_match {
+    my ($self, $key, $data) = @_;
+    return $self->_match($key, $data, \&_match_scalar);
+}
+
+sub _hash_match {
+    my ($self, $key, $data) = @_;
+    return $self->_match($key, $data, \&_match_hash);
+}
+
+# do not take the order of C<keys %$match> because "module" is by far the
+# slowest
+sub match_attributes { qw(env distribution perl perlconfig module) }
+
+sub match_module {
+    my ($self, $modules) = @_;
+    return $self->_match("module", $modules, sub {
+	my($match, $data) = @_;
+	my $qr = _pattern($match);
+	for my $module (@$data) {
+	    return 1 if $module =~ /$qr/;
+	}
+	return 0;
+    });
+}
+
+sub match_distribution { shift->_scalar_match(distribution => @_) }
+sub match_perl         { shift->_scalar_match(perl         => @_) }
+
+sub match_perlconfig   { shift->_hash_match(perlconfig => @_) }
+sub match_env          { shift->_hash_match(env        => @_) }
+
+sub matches {
+    my ($self, $arg) = @_;
+
+    my $default_match = 0;
+    for my $key (grep { $self->has_match($_) } $self->match_attributes) {
+        unless (exists $arg->{$key}) {
+            Carp::croak "Can't match pref: missing argument key $key";
+        }
+        $default_match = 1;
+        my $val = $arg->{$key};
+        # make it possible to avoid computing things until we have to
+        if (ref($val) eq 'CODE') { $val = $val->() }
+        my $meth = "match_$key";
+        return 0 unless $self->$meth($val);
+    }
+
+    return $default_match;
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+CPAN::Distroprefs -- read and match distroprefs
+
+=head1 SYNOPSIS
+
+    use CPAN::Distroprefs;
+
+    my %info = (... distribution/environment info ...);
+
+    my $finder = CPAN::Distroprefs->find($prefs_dir, \%ext_map);
+
+    while (my $result = $finder->next) {
+
+        die $result->as_string if $result->is_fatal;
+
+        warn($result->as_string), next if $result->is_warning;
+
+        for my $pref (@{ $result->prefs }) {
+            if ($pref->matches(\%info)) {
+                return $pref;
+            }
+        }
+    }
+
+
+=head1 DESCRIPTION
+
+This module encapsulates reading L<Distroprefs|CPAN> and matching them against CPAN distributions.
+
+=head1 INTERFACE
+
+    my $finder = CPAN::Distroprefs->find($dir, \%ext_map);
+
+    while (my $result = $finder->next) { ... }
+
+Build an iterator which finds distroprefs files in the tree below the
+given directory. Within the tree directories matching C<m/^[._]/> are
+pruned.
+
+C<%ext_map> is a hashref whose keys are file extensions and whose values are
+modules used to load matching files:
+
+    {
+        'yml' => 'YAML::Syck',
+        'dd'  => 'Data::Dumper',
+        ...
+    }
+
+Each time C<< $finder->next >> is called, the iterator returns one of two
+possible values:
+
+=over
+
+=item * a CPAN::Distroprefs::Result object
+
+=item * C<undef>, indicating that no prefs files remain to be found
+
+=back
+
+=head1 RESULTS
+
+L<C<find()>|/INTERFACE> returns CPAN::Distroprefs::Result objects to
+indicate success or failure when reading a prefs file.
+
+=head2 Common
+
+All results share some common attributes:
+
+=head3 type
+
+C<success>, C<warning>, or C<fatal>
+
+=head3 file
+
+the file from which these prefs were read, or to which this error refers (relative filename)
+
+=head3 ext
+
+the file's extension, which determines how to load it
+
+=head3 dir
+
+the directory the file was read from
+
+=head3 abs
+
+the absolute path to the file
+
+=head2 Errors
+
+Error results (warning and fatal) contain:
+
+=head3 msg
+
+the error message (usually either C<$!> or a YAML error)
+
+=head2 Successes
+
+Success results contain:
+
+=head3 prefs
+
+an arrayref of CPAN::Distroprefs::Pref objects
+
+=head1 PREFS
+
+CPAN::Distroprefs::Pref objects represent individual distroprefs documents.
+They are constructed automatically as part of C<success> results from C<find()>.
+
+=head3 data
+
+the pref information as a hashref, suitable for e.g. passing to Kwalify
+
+=head3 match_attributes
+
+returns a list of the valid match attributes (see the Distroprefs section in L<CPAN>)
+
+currently: C<env perl perlconfig distribution module>
+
+=head3 has_any_match
+
+true if this pref has a 'match' attribute at all
+
+=head3 has_valid_subkeys
+
+true if this pref has a 'match' attribute and at least one valid match attribute
+
+=head3 matches
+
+  if ($pref->matches(\%arg)) { ... }
+
+true if this pref matches the passed-in hashref, which must have a value for
+each of the C<match_attributes> (above)
+
+=head1 LICENSE
+
+This program is free software; you can redistribute it and/or modify it under
+the same terms as Perl itself.
+
+=cut
diff --git a/lib/5.24.1/CPAN/Distrostatus.pm b/lib/5.24.1/CPAN/Distrostatus.pm
new file mode 100644
index 00000000..0cc6cc9a
--- /dev/null
+++ b/lib/5.24.1/CPAN/Distrostatus.pm
@@ -0,0 +1,45 @@
+# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
+# vim: ts=4 sts=4 sw=4:
+package CPAN::Distrostatus;
+use overload '""' => "as_string",
+    fallback => 1;
+use vars qw($something_has_failed_at);
+use vars qw(
+            $VERSION
+);
+$VERSION = "5.5";
+
+
+sub new {
+    my($class,$arg) = @_;
+    my $failed = substr($arg,0,2) eq "NO";
+    if ($failed) {
+        $something_has_failed_at = $CPAN::CurrentCommandId;
+    }
+    bless {
+           TEXT => $arg,
+           FAILED => $failed,
+           COMMANDID => $CPAN::CurrentCommandId,
+           TIME => time,
+          }, $class;
+}
+sub something_has_just_failed () {
+    defined $something_has_failed_at &&
+        $something_has_failed_at == $CPAN::CurrentCommandId;
+}
+sub commandid { shift->{COMMANDID} }
+sub failed { shift->{FAILED} }
+sub text {
+    my($self,$set) = @_;
+    if (defined $set) {
+        $self->{TEXT} = $set;
+    }
+    $self->{TEXT};
+}
+sub as_string {
+    my($self) = @_;
+    $self->text;
+}
+
+
+1;
diff --git a/lib/5.24.1/CPAN/Exception/RecursiveDependency.pm b/lib/5.24.1/CPAN/Exception/RecursiveDependency.pm
new file mode 100644
index 00000000..b928ad74
--- /dev/null
+++ b/lib/5.24.1/CPAN/Exception/RecursiveDependency.pm
@@ -0,0 +1,85 @@
+# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
+# vim: ts=4 sts=4 sw=4:
+package CPAN::Exception::RecursiveDependency;
+use strict;
+use overload '""' => "as_string";
+
+use vars qw(
+            $VERSION
+);
+$VERSION = "5.5";
+
+# a module sees its distribution (no version)
+# a distribution sees its prereqs (which are module names) (usually with versions)
+# a bundle sees its module names and/or its distributions (no version)
+
+sub new {
+    my($class) = shift;
+    my($deps_arg) = shift;
+    my (@deps,%seen,$loop_starts_with);
+  DCHAIN: for my $dep (@$deps_arg) {
+        push @deps, {name => $dep, display_as => $dep};
+        if ($seen{$dep}++) {
+            $loop_starts_with = $dep;
+            last DCHAIN;
+        }
+    }
+    my $in_loop = 0;
+    for my $i (0..$#deps) {
+        my $x = $deps[$i]{name};
+        $in_loop ||= $loop_starts_with && $x eq $loop_starts_with;
+        my $xo = CPAN::Shell->expandany($x) or next;
+        if ($xo->isa("CPAN::Module")) {
+            my $have = $xo->inst_version || "N/A";
+            my($want,$d,$want_type);
+            if ($i>0 and $d = $deps[$i-1]{name}) {
+                my $do = CPAN::Shell->expandany($d);
+                $want = $do->{prereq_pm}{requires}{$x};
+                if (defined $want) {
+                    $want_type = "requires: ";
+                } else {
+                    $want = $do->{prereq_pm}{build_requires}{$x};
+                    if (defined $want) {
+                        $want_type = "build_requires: ";
+                    } else {
+                        $want_type = "unknown status";
+                        $want = "???";
+                    }
+                }
+            } else {
+                $want = $xo->cpan_version;
+                $want_type = "want: ";
+            }
+            $deps[$i]{have} = $have;
+            $deps[$i]{want_type} = $want_type;
+            $deps[$i]{want} = $want;
+            $deps[$i]{display_as} = "$x (have: $have; $want_type$want)";
+        } elsif ($xo->isa("CPAN::Distribution")) {
+            $deps[$i]{display_as} = $xo->pretty_id;
+            if ($in_loop) {
+                $xo->{make} = CPAN::Distrostatus->new("NO cannot resolve circular dependency");
+            } else {
+                $xo->{make} = CPAN::Distrostatus->new("NO one dependency ($loop_starts_with) is a circular dependency");
+            }
+            $xo->store_persistent_state; # otherwise I will not reach
+                                         # all involved parties for
+                                         # the next session
+        }
+    }
+    bless { deps => \@deps, loop_starts_with => $loop_starts_with }, $class;
+}
+
+sub as_string {
+    my($self) = shift;
+    my $deps = $self->{deps};
+    my $loop_starts_with = $self->{loop_starts_with};
+    unless ($loop_starts_with) {
+        return "--not a recursive/circular dependency--";
+    }
+    my $ret = "\nRecursive dependency detected:\n    ";
+    $ret .= join("\n => ", map {$_->{display_as}} @$deps);
+    $ret .= ".\nCannot resolve.\n";
+    $ret;
+}
+
+1;
diff --git a/lib/5.24.1/CPAN/Exception/blocked_urllist.pm b/lib/5.24.1/CPAN/Exception/blocked_urllist.pm
new file mode 100644
index 00000000..87d07d13
--- /dev/null
+++ b/lib/5.24.1/CPAN/Exception/blocked_urllist.pm
@@ -0,0 +1,46 @@
+# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
+# vim: ts=4 sts=4 sw=4:
+package CPAN::Exception::blocked_urllist;
+use strict;
+use overload '""' => "as_string";
+
+use vars qw(
+            $VERSION
+);
+$VERSION = "1.001";
+
+
+sub new {
+    my($class) = @_;
+    bless {}, $class;
+}
+
+sub as_string {
+    my($self) = shift;
+    if ($CPAN::Config->{connect_to_internet_ok}) {
+        return qq{
+
+You have not configured a urllist for CPAN mirrors. Configure it with
+
+    o conf init urllist
+
+};
+    } else {
+        return qq{
+
+You have not configured a urllist and do not allow connections to the
+internet to get a list of mirrors.  If you wish to get a list of CPAN
+mirrors to pick from, use this command
+
+    o conf init connect_to_internet_ok urllist
+
+If you do not wish to get a list of mirrors and would prefer to set
+your urllist manually, use just this command instead
+
+    o conf init urllist
+
+};
+    }
+}
+
+1;
diff --git a/lib/5.24.1/CPAN/Exception/yaml_not_installed.pm b/lib/5.24.1/CPAN/Exception/yaml_not_installed.pm
new file mode 100644
index 00000000..1e7fa83a
--- /dev/null
+++ b/lib/5.24.1/CPAN/Exception/yaml_not_installed.pm
@@ -0,0 +1,23 @@
+# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
+# vim: ts=4 sts=4 sw=4:
+package CPAN::Exception::yaml_not_installed;
+use strict;
+use overload '""' => "as_string";
+
+use vars qw(
+            $VERSION
+);
+$VERSION = "5.5";
+
+
+sub new {
+    my($class,$module,$file,$during) = @_;
+    bless { module => $module, file => $file, during => $during }, $class;
+}
+
+sub as_string {
+    my($self) = shift;
+    "'$self->{module}' not installed, cannot $self->{during} '$self->{file}'\n";
+}
+
+1;
diff --git a/lib/5.24.1/CPAN/Exception/yaml_process_error.pm b/lib/5.24.1/CPAN/Exception/yaml_process_error.pm
new file mode 100644
index 00000000..ae8c14eb
--- /dev/null
+++ b/lib/5.24.1/CPAN/Exception/yaml_process_error.pm
@@ -0,0 +1,53 @@
+# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
+# vim: ts=4 sts=4 sw=4:
+package CPAN::Exception::yaml_process_error;
+use strict;
+use overload '""' => "as_string";
+
+use vars qw(
+            $VERSION
+);
+$VERSION = "5.5";
+
+
+sub new {
+    my($class,$module,$file,$during,$error) = @_;
+    # my $at = Carp::longmess(""); # XXX find something more beautiful
+    bless { module => $module,
+            file => $file,
+            during => $during,
+            error => $error,
+            # at => $at,
+          }, $class;
+}
+
+sub as_string {
+    my($self) = shift;
+    if ($self->{during}) {
+        if ($self->{file}) {
+            if ($self->{module}) {
+                if ($self->{error}) {
+                    return "Alert: While trying to '$self->{during}' YAML file\n".
+                        " '$self->{file}'\n".
+                            "with '$self->{module}' the following error was encountered:\n".
+                                "  $self->{error}\n";
+                } else {
+                    return "Alert: While trying to '$self->{during}' YAML file\n".
+                        " '$self->{file}'\n".
+                            "with '$self->{module}' some unknown error was encountered\n";
+                }
+            } else {
+                return "Alert: While trying to '$self->{during}' YAML file\n".
+                    " '$self->{file}'\n".
+                        "some unknown error was encountered\n";
+            }
+        } else {
+            return "Alert: While trying to '$self->{during}' some YAML file\n".
+                    "some unknown error was encountered\n";
+        }
+    } else {
+        return "Alert: unknown error encountered\n";
+    }
+}
+
+1;
diff --git a/lib/5.24.1/CPAN/FTP.pm b/lib/5.24.1/CPAN/FTP.pm
new file mode 100644
index 00000000..831f234d
--- /dev/null
+++ b/lib/5.24.1/CPAN/FTP.pm
@@ -0,0 +1,1126 @@
+# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
+# vim: ts=4 sts=4 sw=4:
+package CPAN::FTP;
+use strict;
+
+use Fcntl qw(:flock);
+use File::Basename qw(dirname);
+use File::Path qw(mkpath);
+use CPAN::FTP::netrc;
+use vars qw($connect_to_internet_ok $Ua $Thesite $ThesiteURL $Themethod);
+
+@CPAN::FTP::ISA = qw(CPAN::Debug);
+
+use vars qw(
+            $VERSION
+);
+$VERSION = "5.5006";
+
+#-> sub CPAN::FTP::ftp_statistics
+# if they want to rewrite, they need to pass in a filehandle
+sub _ftp_statistics {
+    my($self,$fh) = @_;
+    my $locktype = $fh ? LOCK_EX : LOCK_SH;
+    # XXX On Windows flock() implements mandatory locking, so we can
+    # XXX only use shared locking to still allow _yaml_load_file() to
+    # XXX read from the file using a different filehandle.
+    $locktype = LOCK_SH if $^O eq "MSWin32";
+
+    $fh ||= FileHandle->new;
+    my $file = File::Spec->catfile($CPAN::Config->{cpan_home},"FTPstats.yml");
+    mkpath dirname $file;
+    open $fh, "+>>$file" or $CPAN::Frontend->mydie("Could not open '$file': $!");
+    my $sleep = 1;
+    my $waitstart;
+    while (!CPAN::_flock($fh, $locktype|LOCK_NB)) {
+        $waitstart ||= localtime();
+        if ($sleep>3) {
+            $CPAN::Frontend->mywarn("Waiting for a read lock on '$file' (since $waitstart)\n");
+        }
+        $CPAN::Frontend->mysleep($sleep);
+        if ($sleep <= 3) {
+            $sleep+=0.33;
+        } elsif ($sleep <=6) {
+            $sleep+=0.11;
+        }
+    }
+    my $stats = eval { CPAN->_yaml_loadfile($file); };
+    if ($@) {
+        if (ref $@) {
+            if (ref $@ eq "CPAN::Exception::yaml_not_installed") {
+                chomp $@;
+                $CPAN::Frontend->myprintonce("Warning (usually harmless): $@\n");
+                return;
+            } elsif (ref $@ eq "CPAN::Exception::yaml_process_error") {
+                my $time = time;
+                my $to = "$file.$time";
+                $CPAN::Frontend->myprint("Error reading '$file': $@\nStashing away as '$to' to prevent further interruptions. You may want to remove that file later.\n");
+                rename $file, $to or $CPAN::Frontend->mydie("Could not rename: $!");
+                return;
+            }
+        } else {
+            $CPAN::Frontend->mydie($@);
+        }
+    }
+    CPAN::_flock($fh, LOCK_UN);
+    return $stats->[0];
+}
+
+#-> sub CPAN::FTP::_mytime
+sub _mytime () {
+    if (CPAN->has_inst("Time::HiRes")) {
+        return Time::HiRes::time();
+    } else {
+        return time;
+    }
+}
+
+#-> sub CPAN::FTP::_new_stats
+sub _new_stats {
+    my($self,$file) = @_;
+    my $ret = {
+               file => $file,
+               attempts => [],
+               start => _mytime,
+              };
+    $ret;
+}
+
+#-> sub CPAN::FTP::_add_to_statistics
+sub _add_to_statistics {
+    my($self,$stats) = @_;
+    my $yaml_module = CPAN::_yaml_module();
+    $self->debug("yaml_module[$yaml_module]") if $CPAN::DEBUG;
+    if ($CPAN::META->has_inst($yaml_module)) {
+        $stats->{thesiteurl} = $ThesiteURL;
+        $stats->{end} = CPAN::FTP::_mytime();
+        my $fh = FileHandle->new;
+        my $time = time;
+        my $sdebug = 0;
+        my @debug;
+        @debug = $time if $sdebug;
+        my $fullstats = $self->_ftp_statistics($fh);
+        close $fh;
+        $fullstats->{history} ||= [];
+        push @debug, scalar @{$fullstats->{history}} if $sdebug;
+        push @debug, time if $sdebug;
+        push @{$fullstats->{history}}, $stats;
+        # YAML.pm 0.62 is unacceptably slow with 999;
+        # YAML::Syck 0.82 has no noticable performance problem with 999;
+        my $ftpstats_size = $CPAN::Config->{ftpstats_size} || 99;
+        my $ftpstats_period = $CPAN::Config->{ftpstats_period} || 14;
+        while (
+               @{$fullstats->{history}} > $ftpstats_size
+               || $time - $fullstats->{history}[0]{start} > 86400*$ftpstats_period
+              ) {
+            shift @{$fullstats->{history}}
+        }
+        push @debug, scalar @{$fullstats->{history}} if $sdebug;
+        push @debug, time if $sdebug;
+        push @debug, scalar localtime($fullstats->{history}[0]{start}) if $sdebug;
+        # need no eval because if this fails, it is serious
+        my $sfile = File::Spec->catfile($CPAN::Config->{cpan_home},"FTPstats.yml");
+        CPAN->_yaml_dumpfile("$sfile.$$",$fullstats);
+        if ( $sdebug ) {
+            local $CPAN::DEBUG = 512; # FTP
+            push @debug, time;
+            CPAN->debug(sprintf("DEBUG history: before_read[%d]before[%d]at[%d]".
+                                "after[%d]at[%d]oldest[%s]dumped backat[%d]",
+                                @debug,
+                               ));
+        }
+        # Win32 cannot rename a file to an existing filename
+        unlink($sfile) if ($^O eq 'MSWin32' or $^O eq 'os2');
+	_copy_stat($sfile, "$sfile.$$") if -e $sfile;
+        rename "$sfile.$$", $sfile
+            or $CPAN::Frontend->mydie("Could not rename '$sfile.$$' to '$sfile': $!\n");
+    }
+}
+
+# Copy some stat information (owner, group, mode and) from one file to
+# another.
+# This is a utility function which might be moved to a utility repository.
+#-> sub CPAN::FTP::_copy_stat
+sub _copy_stat {
+    my($src, $dest) = @_;
+    my @stat = stat($src);
+    if (!@stat) {
+	$CPAN::Frontend->mywarn("Can't stat '$src': $!\n");
+	return;
+    }
+
+    eval {
+	chmod $stat[2], $dest
+	    or $CPAN::Frontend->mywarn("Can't chmod '$dest' to " . sprintf("0%o", $stat[2]) . ": $!\n");
+    };
+    warn $@ if $@;
+    eval {
+	chown $stat[4], $stat[5], $dest
+	    or do {
+		my $save_err = $!; # otherwise it's lost in the get... calls
+		$CPAN::Frontend->mywarn("Can't chown '$dest' to " .
+					(getpwuid($stat[4]))[0] . "/" .
+					(getgrgid($stat[5]))[0] . ": $save_err\n"
+				       );
+	    };
+    };
+    warn $@ if $@;
+}
+
+# if file is CHECKSUMS, suggest the place where we got the file to be
+# checked from, maybe only for young files?
+#-> sub CPAN::FTP::_recommend_url_for
+sub _recommend_url_for {
+    my($self, $file, $urllist) = @_;
+    if ($file =~ s|/CHECKSUMS(.gz)?$||) {
+        my $fullstats = $self->_ftp_statistics();
+        my $history = $fullstats->{history} || [];
+        while (my $last = pop @$history) {
+            last if $last->{end} - time > 3600; # only young results are interesting
+            next unless $last->{file}; # dirname of nothing dies!
+            next unless $file eq dirname($last->{file});
+            return $last->{thesiteurl};
+        }
+    }
+    if ($CPAN::Config->{randomize_urllist}
+        &&
+        rand(1) < $CPAN::Config->{randomize_urllist}
+       ) {
+        $urllist->[int rand scalar @$urllist];
+    } else {
+        return ();
+    }
+}
+
+#-> sub CPAN::FTP::_get_urllist
+sub _get_urllist {
+    my($self, $with_defaults) = @_;
+    $with_defaults ||= 0;
+    CPAN->debug("with_defaults[$with_defaults]") if $CPAN::DEBUG;
+
+    $CPAN::Config->{urllist} ||= [];
+    unless (ref $CPAN::Config->{urllist} eq 'ARRAY') {
+        $CPAN::Frontend->mywarn("Malformed urllist; ignoring.  Configuration file corrupt?\n");
+        $CPAN::Config->{urllist} = [];
+    }
+    my @urllist = grep { defined $_ and length $_ } @{$CPAN::Config->{urllist}};
+    push @urllist, @CPAN::Defaultsites if $with_defaults;
+    for my $u (@urllist) {
+        CPAN->debug("u[$u]") if $CPAN::DEBUG;
+        if (UNIVERSAL::can($u,"text")) {
+            $u->{TEXT} .= "/" unless substr($u->{TEXT},-1) eq "/";
+        } else {
+            $u .= "/" unless substr($u,-1) eq "/";
+            $u = CPAN::URL->new(TEXT => $u, FROM => "USER");
+        }
+    }
+    \@urllist;
+}
+
+#-> sub CPAN::FTP::ftp_get ;
+sub ftp_get {
+    my($class,$host,$dir,$file,$target) = @_;
+    $class->debug(
+                  qq[Going to fetch file [$file] from dir [$dir]
+        on host [$host] as local [$target]\n]
+                 ) if $CPAN::DEBUG;
+    my $ftp = Net::FTP->new($host);
+    unless ($ftp) {
+        $CPAN::Frontend->mywarn("  Could not connect to host '$host' with Net::FTP\n");
+        return;
+    }
+    return 0 unless defined $ftp;
+    $ftp->debug(1) if $CPAN::DEBUG{'FTP'} & $CPAN::DEBUG;
+    $class->debug(qq[Going to login("anonymous","$Config::Config{cf_email}")]);
+    unless ( $ftp->login("anonymous",$Config::Config{'cf_email'}) ) {
+        my $msg = $ftp->message;
+        $CPAN::Frontend->mywarn("  Couldn't login on $host: $msg\n");
+        return;
+    }
+    unless ( $ftp->cwd($dir) ) {
+        my $msg = $ftp->message;
+        $CPAN::Frontend->mywarn("  Couldn't cwd $dir: $msg\n");
+        return;
+    }
+    $ftp->binary;
+    $class->debug(qq[Going to ->get("$file","$target")\n]) if $CPAN::DEBUG;
+    unless ( $ftp->get($file,$target) ) {
+        my $msg = $ftp->message;
+        $CPAN::Frontend->mywarn("  Couldn't fetch $file from $host: $msg\n");
+        return;
+    }
+    $ftp->quit; # it's ok if this fails
+    return 1;
+}
+
+# If more accuracy is wanted/needed, Chris Leach sent me this patch...
+
+ # > *** /install/perl/live/lib/CPAN.pm- Wed Sep 24 13:08:48 1997
+ # > --- /tmp/cp Wed Sep 24 13:26:40 1997
+ # > ***************
+ # > *** 1562,1567 ****
+ # > --- 1562,1580 ----
+ # >       return 1 if substr($url,0,4) eq "file";
+ # >       return 1 unless $url =~ m|://([^/]+)|;
+ # >       my $host = $1;
+ # > +     my $proxy = $CPAN::Config->{'http_proxy'} || $ENV{'http_proxy'};
+ # > +     if ($proxy) {
+ # > +         $proxy =~ m|://([^/:]+)|;
+ # > +         $proxy = $1;
+ # > +         my $noproxy = $CPAN::Config->{'no_proxy'} || $ENV{'no_proxy'};
+ # > +         if ($noproxy) {
+ # > +             if ($host !~ /$noproxy$/) {
+ # > +                 $host = $proxy;
+ # > +             }
+ # > +         } else {
+ # > +             $host = $proxy;
+ # > +         }
+ # > +     }
+ # >       require Net::Ping;
+ # >       return 1 unless $Net::Ping::VERSION >= 2;
+ # >       my $p;
+
+
+#-> sub CPAN::FTP::localize ;
+sub localize {
+    my($self,$file,$aslocal,$force,$with_defaults) = @_;
+    $force ||= 0;
+    Carp::croak( "Usage: ->localize(cpan_file,as_local_file[,\$force])" )
+        unless defined $aslocal;
+    if ($CPAN::DEBUG){
+        require Carp;
+        my $longmess = Carp::longmess();
+        $self->debug("file[$file] aslocal[$aslocal] force[$force] carplongmess[$longmess]");
+    }
+    if ($^O eq 'MacOS') {
+        # Comment by AK on 2000-09-03: Uniq short filenames would be
+        # available in CHECKSUMS file
+        my($name, $path) = File::Basename::fileparse($aslocal, '');
+        if (length($name) > 31) {
+            $name =~ s/(
+                        \.(
+                           readme(\.(gz|Z))? |
+                           (tar\.)?(gz|Z) |
+                           tgz |
+                           zip |
+                           pm\.(gz|Z)
+                          )
+                       )$//x;
+            my $suf = $1;
+            my $size = 31 - length($suf);
+            while (length($name) > $size) {
+                chop $name;
+            }
+            $name .= $suf;
+            $aslocal = File::Spec->catfile($path, $name);
+        }
+    }
+
+    if (-f $aslocal && -r _ && !($force & 1)) {
+        my $size;
+        if ($size = -s $aslocal) {
+            $self->debug("aslocal[$aslocal]size[$size]") if $CPAN::DEBUG;
+            return $aslocal;
+        } else {
+            # empty file from a previous unsuccessful attempt to download it
+            unlink $aslocal or
+                $CPAN::Frontend->mydie("Found a zero-length '$aslocal' that I ".
+                                       "could not remove.");
+        }
+    }
+    my($maybe_restore) = 0;
+    if (-f $aslocal) {
+        rename $aslocal, "$aslocal.bak$$";
+        $maybe_restore++;
+    }
+
+    my($aslocal_dir) = dirname($aslocal);
+    # Inheritance is not easier to manage than a few if/else branches
+    if ($CPAN::META->has_usable('LWP::UserAgent')) {
+        unless ($Ua) {
+            CPAN::LWP::UserAgent->config;
+            eval {$Ua = CPAN::LWP::UserAgent->new;}; # Why is has_usable still not fit enough?
+            if ($@) {
+                $CPAN::Frontend->mywarn("CPAN::LWP::UserAgent->new dies with $@\n")
+                    if $CPAN::DEBUG;
+            } else {
+                my($var);
+                $Ua->proxy('ftp',  $var)
+                    if $var = $CPAN::Config->{ftp_proxy} || $ENV{ftp_proxy};
+                $Ua->proxy('http', $var)
+                    if $var = $CPAN::Config->{http_proxy} || $ENV{http_proxy};
+                $Ua->no_proxy($var)
+                    if $var = $CPAN::Config->{no_proxy} || $ENV{no_proxy};
+            }
+        }
+    }
+    for my $prx (qw(ftp_proxy http_proxy no_proxy)) {
+        $ENV{$prx} = $CPAN::Config->{$prx} if $CPAN::Config->{$prx};
+    }
+
+    # Try the list of urls for each single object. We keep a record
+    # where we did get a file from
+    my(@reordered,$last);
+    my $ccurllist = $self->_get_urllist($with_defaults);
+    $last = $#$ccurllist;
+    if ($force & 2) { # local cpans probably out of date, don't reorder
+        @reordered = (0..$last);
+    } else {
+        @reordered =
+            sort {
+                (substr($ccurllist->[$b],0,4) eq "file")
+                    <=>
+                (substr($ccurllist->[$a],0,4) eq "file")
+                    or
+                defined($ThesiteURL)
+                    and
+                ($ccurllist->[$b] eq $ThesiteURL)
+                    <=>
+                ($ccurllist->[$a] eq $ThesiteURL)
+            } 0..$last;
+    }
+    my(@levels);
+    $Themethod ||= "";
+    $self->debug("Themethod[$Themethod]reordered[@reordered]") if $CPAN::DEBUG;
+    my @all_levels = (
+                      ["dleasy",   "file"],
+                      ["dleasy"],
+                      ["dlhard"],
+                      ["dlhardest"],
+                      ["dleasy",   "http","defaultsites"],
+                      ["dlhard",   "http","defaultsites"],
+                      ["dleasy",   "ftp", "defaultsites"],
+                      ["dlhard",   "ftp", "defaultsites"],
+                      ["dlhardest","",    "defaultsites"],
+                     );
+    if ($Themethod) {
+        @levels = grep {$_->[0] eq $Themethod} @all_levels;
+        push @levels, grep {$_->[0] ne $Themethod} @all_levels;
+    } else {
+        @levels = @all_levels;
+    }
+    @levels = qw/dleasy/ if $^O eq 'MacOS';
+    my($levelno);
+    local $ENV{FTP_PASSIVE} =
+        exists $CPAN::Config->{ftp_passive} ?
+        $CPAN::Config->{ftp_passive} : 1;
+    my $ret;
+    my $stats = $self->_new_stats($file);
+    for ($CPAN::Config->{connect_to_internet_ok}) {
+        $connect_to_internet_ok = $_ if not defined $connect_to_internet_ok and defined $_;
+    }
+  LEVEL: for $levelno (0..$#levels) {
+        my $level_tuple = $levels[$levelno];
+        my($level,$scheme,$sitetag) = @$level_tuple;
+        $self->mymkpath($aslocal_dir) unless $scheme && "file" eq $scheme;
+        my $defaultsites = $sitetag && $sitetag eq "defaultsites" && !@$ccurllist;
+        my @urllist;
+        if ($defaultsites) {
+            unless (defined $connect_to_internet_ok) {
+                $CPAN::Frontend->myprint(sprintf qq{
+I would like to connect to one of the following sites to get '%s':
+
+%s
+},
+                                         $file,
+                                         join("",map { " ".$_->text."\n" } @CPAN::Defaultsites),
+                                        );
+                my $answer = CPAN::Shell::colorable_makemaker_prompt("Is it OK to try to connect to the Internet?", "yes");
+                if ($answer =~ /^y/i) {
+                    $connect_to_internet_ok = 1;
+                } else {
+                    $connect_to_internet_ok = 0;
+                }
+            }
+            if ($connect_to_internet_ok) {
+                @urllist = @CPAN::Defaultsites;
+            } else {
+                my $sleep = 2;
+                # the tricky thing about dying here is that everybody
+                # believes that calls to exists() or all_objects() are
+                # safe.
+                require CPAN::Exception::blocked_urllist;
+                die CPAN::Exception::blocked_urllist->new;
+            }
+        } else { # ! $defaultsites
+            my @host_seq = $level =~ /dleasy/ ?
+                @reordered : 0..$last;  # reordered has file and $Thesiteurl first
+            @urllist = map { $ccurllist->[$_] } @host_seq;
+        }
+        $self->debug("synth. urllist[@urllist]") if $CPAN::DEBUG;
+        my $aslocal_tempfile = $aslocal . ".tmp" . $$;
+        if (my $recommend = $self->_recommend_url_for($file,\@urllist)) {
+            @urllist = grep { $_ ne $recommend } @urllist;
+            unshift @urllist, $recommend;
+        }
+        $self->debug("synth. urllist[@urllist]") if $CPAN::DEBUG;
+        $ret = $self->hostdlxxx($level,$scheme,\@urllist,$file,$aslocal_tempfile,$stats);
+        if ($ret) {
+            CPAN->debug("ret[$ret]aslocal[$aslocal]") if $CPAN::DEBUG;
+            if ($ret eq $aslocal_tempfile) {
+                # if we got it exactly as we asked for, only then we
+                # want to rename
+                rename $aslocal_tempfile, $aslocal
+                    or $CPAN::Frontend->mydie("Error while trying to rename ".
+                                              "'$ret' to '$aslocal': $!");
+                $ret = $aslocal;
+            }
+            elsif (-f $ret && $scheme eq 'file' ) {
+                # it's a local file, so there's nothing left to do, we
+                # let them read from where it is
+            }
+            $Themethod = $level;
+            my $now = time;
+            # utime $now, $now, $aslocal; # too bad, if we do that, we
+                                          # might alter a local mirror
+            $self->debug("level[$level]") if $CPAN::DEBUG;
+            last LEVEL;
+        } else {
+            unlink $aslocal_tempfile;
+            last if $CPAN::Signal; # need to cleanup
+        }
+    }
+    if ($ret) {
+        $stats->{filesize} = -s $ret;
+    }
+    $self->debug("before _add_to_statistics") if $CPAN::DEBUG;
+    $self->_add_to_statistics($stats);
+    $self->debug("after _add_to_statistics") if $CPAN::DEBUG;
+    if ($ret) {
+        unlink "$aslocal.bak$$";
+        return $ret;
+    }
+    unless ($CPAN::Signal) {
+        my(@mess);
+        local $" = " ";
+        if (@{$CPAN::Config->{urllist}}) {
+            push @mess,
+                qq{Please check, if the URLs I found in your configuration file \(}.
+                    join(", ", @{$CPAN::Config->{urllist}}).
+                        qq{\) are valid.};
+        } else {
+            push @mess, qq{Your urllist is empty!};
+        }
+        push @mess, qq{The urllist can be edited.},
+            qq{E.g. with 'o conf urllist push ftp://myurl/'};
+        $CPAN::Frontend->mywarn(Text::Wrap::wrap("","","@mess"). "\n\n");
+        $CPAN::Frontend->mydie("Could not fetch $file\n");
+    }
+    if ($maybe_restore) {
+        rename "$aslocal.bak$$", $aslocal;
+        $CPAN::Frontend->myprint("Trying to get away with old file:\n" .
+                                 $self->ls($aslocal) . "\n");
+        return $aslocal;
+    }
+    return;
+}
+
+sub mymkpath {
+    my($self, $aslocal_dir) = @_;
+    mkpath($aslocal_dir);
+    $CPAN::Frontend->mywarn(qq{Warning: You are not allowed to write into }.
+                            qq{directory "$aslocal_dir".
+    I\'ll continue, but if you encounter problems, they may be due
+    to insufficient permissions.\n}) unless -w $aslocal_dir;
+}
+
+sub hostdlxxx {
+    my $self = shift;
+    my $level = shift;
+    my $scheme = shift;
+    my $h = shift;
+    $h = [ grep /^\Q$scheme\E:/, @$h ] if $scheme;
+    my $method = "host$level";
+    $self->$method($h, @_);
+}
+
+sub _set_attempt {
+    my($self,$stats,$method,$url) = @_;
+    push @{$stats->{attempts}}, {
+                                 method => $method,
+                                 start => _mytime,
+                                 url => $url,
+                                };
+}
+
+# package CPAN::FTP;
+sub hostdleasy { #called from hostdlxxx
+    my($self,$host_seq,$file,$aslocal,$stats) = @_;
+    my($ro_url);
+  HOSTEASY: for $ro_url (@$host_seq) {
+        $self->_set_attempt($stats,"dleasy",$ro_url);
+        my $url .= "$ro_url$file";
+        $self->debug("localizing perlish[$url]") if $CPAN::DEBUG;
+        if ($url =~ /^file:/) {
+            my $l;
+            if ($CPAN::META->has_inst('URI::URL')) {
+                my $u =  URI::URL->new($url);
+                $l = $u->file;
+            } else { # works only on Unix, is poorly constructed, but
+                # hopefully better than nothing.
+                # RFC 1738 says fileurl BNF is
+                # fileurl = "file://" [ host | "localhost" ] "/" fpath
+                # Thanks to "Mark D. Baushke" <mdb@cisco.com> for
+                # the code
+                ($l = $url) =~ s|^file://[^/]*/|/|; # discard the host part
+                $l =~ s|^file:||;                   # assume they
+                                                    # meant
+                                                    # file://localhost
+                $l =~ s|^/||s
+                    if ! -f $l && $l =~ m|^/\w:|;   # e.g. /P:
+            }
+            $self->debug("local file[$l]") if $CPAN::DEBUG;
+            if ( -f $l && -r _) {
+                $ThesiteURL = $ro_url;
+                return $l;
+            }
+            # If request is for a compressed file and we can find the
+            # uncompressed file also, return the path of the uncompressed file
+            # otherwise, decompress it and return the resulting path
+            if ($l =~ /(.+)\.gz$/) {
+                my $ungz = $1;
+                if ( -f $ungz && -r _) {
+                    $ThesiteURL = $ro_url;
+                    return $ungz;
+                }
+                elsif (-f $l && -r _) {
+                    eval { CPAN::Tarzip->new($l)->gunzip($aslocal) };
+                    if ( -f $aslocal && -s _) {
+                        $ThesiteURL = $ro_url;
+                        return $aslocal;
+                    }
+                    elsif (! -s $aslocal) {
+                        unlink $aslocal;
+                    }
+                    elsif (-f $l) {
+                        $CPAN::Frontend->mywarn("Error decompressing '$l': $@\n")
+                            if $@;
+                        return;
+                    }
+                }
+            }
+            # Otherwise, return the local file path if it exists
+            elsif ( -f $l && -r _) {
+                $ThesiteURL = $ro_url;
+                return $l;
+            }
+            # If we can't find it, but there is a compressed version
+            # of it, then decompress it
+            elsif (-f "$l.gz") {
+                $self->debug("found compressed $l.gz") if $CPAN::DEBUG;
+                eval { CPAN::Tarzip->new("$l.gz")->gunzip($aslocal) };
+                if ( -f $aslocal) {
+                    $ThesiteURL = $ro_url;
+                    return $aslocal;
+                }
+                else {
+                    $CPAN::Frontend->mywarn("Error decompressing '$l': $@\n")
+                        if $@;
+                    return;
+                }
+            }
+            $CPAN::Frontend->mywarn("Could not find '$l'\n");
+        }
+        $self->debug("it was not a file URL") if $CPAN::DEBUG;
+        if ($CPAN::META->has_usable('LWP')) {
+            $CPAN::Frontend->myprint("Fetching with LWP:\n$url\n");
+            unless ($Ua) {
+                CPAN::LWP::UserAgent->config;
+                eval { $Ua = CPAN::LWP::UserAgent->new; };
+                if ($@) {
+                    $CPAN::Frontend->mywarn("CPAN::LWP::UserAgent->new dies with $@\n");
+                }
+            }
+            my $res = $Ua->mirror($url, $aslocal);
+            if ($res->is_success) {
+                $ThesiteURL = $ro_url;
+                my $now = time;
+                utime $now, $now, $aslocal; # download time is more
+                                            # important than upload
+                                            # time
+                return $aslocal;
+            } elsif ($url !~ /\.gz(?!\n)\Z/) {
+                my $gzurl = "$url.gz";
+                $CPAN::Frontend->myprint("Fetching with LWP:\n$gzurl\n");
+                $res = $Ua->mirror($gzurl, "$aslocal.gz");
+                if ($res->is_success) {
+                    if (eval {CPAN::Tarzip->new("$aslocal.gz")->gunzip($aslocal)}) {
+                        $ThesiteURL = $ro_url;
+                        return $aslocal;
+                    }
+                }
+            } else {
+                $CPAN::Frontend->myprint(sprintf(
+                                                 "LWP failed with code[%s] message[%s]\n",
+                                                 $res->code,
+                                                 $res->message,
+                                                ));
+                # Alan Burlison informed me that in firewall environments
+                # Net::FTP can still succeed where LWP fails. So we do not
+                # skip Net::FTP anymore when LWP is available.
+            }
+        } elsif ($url =~ /^http:/ && $CPAN::META->has_usable('HTTP::Tiny')) {
+            require CPAN::HTTP::Client;
+            my $chc = CPAN::HTTP::Client->new(
+                proxy => $CPAN::Config->{http_proxy} || $ENV{http_proxy},
+                no_proxy => $CPAN::Config->{no_proxy} || $ENV{no_proxy},
+            );
+            for my $try ( $url, ( $url !~ /\.gz(?!\n)\Z/ ? "$url.gz" : () ) ) {
+                $CPAN::Frontend->myprint("Fetching with HTTP::Tiny:\n$try\n");
+                my $res = eval { $chc->mirror($try, $aslocal) };
+                if ( $res && $res->{success} ) {
+                    $ThesiteURL = $ro_url;
+                    my $now = time;
+                    utime $now, $now, $aslocal; # download time is more
+                                                # important than upload
+                                                # time
+                    return $aslocal;
+                }
+                elsif ( $res && $res->{status} ne '599') {
+                    $CPAN::Frontend->myprint(sprintf(
+                            "HTTP::Tiny failed with code[%s] message[%s]\n",
+                            $res->{status},
+                            $res->{reason},
+                        )
+                    );
+                }
+                elsif ( $res && $res->{status} eq '599') {
+                    $CPAN::Frontend->myprint(sprintf(
+                            "HTTP::Tiny failed with an internal error: %s\n",
+                            $res->{content},
+                        )
+                    );
+                }
+                else {
+                    my $err = $@ || 'Unknown error';
+                    $CPAN::Frontend->myprint(sprintf(
+                            "Error downloading with HTTP::Tiny: %s\n", $err
+                        )
+                    );
+                }
+            }
+        }
+        return if $CPAN::Signal;
+        if ($url =~ m|^ftp://(.*?)/(.*)/(.*)|) {
+            # that's the nice and easy way thanks to Graham
+            $self->debug("recognized ftp") if $CPAN::DEBUG;
+            my($host,$dir,$getfile) = ($1,$2,$3);
+            if ($CPAN::META->has_usable('Net::FTP')) {
+                $dir =~ s|/+|/|g;
+                $CPAN::Frontend->myprint("Fetching with Net::FTP:\n$url\n");
+                $self->debug("getfile[$getfile]dir[$dir]host[$host]" .
+                             "aslocal[$aslocal]") if $CPAN::DEBUG;
+                if (CPAN::FTP->ftp_get($host,$dir,$getfile,$aslocal)) {
+                    $ThesiteURL = $ro_url;
+                    return $aslocal;
+                }
+                if ($aslocal !~ /\.gz(?!\n)\Z/) {
+                    my $gz = "$aslocal.gz";
+                    $CPAN::Frontend->myprint("Fetching with Net::FTP\n$url.gz\n");
+                    if (CPAN::FTP->ftp_get($host,
+                                           $dir,
+                                           "$getfile.gz",
+                                           $gz) &&
+                        eval{CPAN::Tarzip->new($gz)->gunzip($aslocal)}
+                    ) {
+                        $ThesiteURL = $ro_url;
+                        return $aslocal;
+                    }
+                }
+                # next HOSTEASY;
+            } else {
+                CPAN->debug("Net::FTP does not count as usable atm") if $CPAN::DEBUG;
+            }
+        }
+        if (
+            UNIVERSAL::can($ro_url,"text")
+            and
+            $ro_url->{FROM} eq "USER"
+           ) {
+            ##address #17973: default URLs should not try to override
+            ##user-defined URLs just because LWP is not available
+            my $ret = $self->hostdlhard([$ro_url],$file,$aslocal,$stats);
+            return $ret if $ret;
+        }
+        return if $CPAN::Signal;
+    }
+}
+
+# package CPAN::FTP;
+sub hostdlhard {
+    my($self,$host_seq,$file,$aslocal,$stats) = @_;
+
+    # Came back if Net::FTP couldn't establish connection (or
+    # failed otherwise) Maybe they are behind a firewall, but they
+    # gave us a socksified (or other) ftp program...
+
+    my($ro_url);
+    my($devnull) = $CPAN::Config->{devnull} || "";
+    # < /dev/null ";
+    my($aslocal_dir) = dirname($aslocal);
+    mkpath($aslocal_dir);
+    my $some_dl_success = 0;
+    my $any_attempt = 0;
+ HOSTHARD: for $ro_url (@$host_seq) {
+        $self->_set_attempt($stats,"dlhard",$ro_url);
+        my $url = "$ro_url$file";
+        my($proto,$host,$dir,$getfile);
+
+        # Courtesy Mark Conty mark_conty@cargill.com change from
+        # if ($url =~ m|^ftp://(.*?)/(.*)/(.*)|) {
+        # to
+        if ($url =~ m|^([^:]+)://(.*?)/(.*)/(.*)|) {
+            # proto not yet used
+            ($proto,$host,$dir,$getfile) = ($1,$2,$3,$4);
+        } else {
+            next HOSTHARD; # who said, we could ftp anything except ftp?
+        }
+        next HOSTHARD if $proto eq "file"; # file URLs would have had
+                                           # success above. Likely a bogus URL
+
+        # making at least one attempt against a host
+        $any_attempt++;
+
+        $self->debug("localizing funkyftpwise[$url]") if $CPAN::DEBUG;
+
+        # Try the most capable first and leave ncftp* for last as it only
+        # does FTP.
+        my $proxy_vars = $self->_proxy_vars($ro_url);
+      DLPRG: for my $f (qw(curl wget lynx ncftpget ncftp)) {
+            my $funkyftp = CPAN::HandleConfig->safe_quote($CPAN::Config->{$f});
+            next DLPRG unless defined $funkyftp;
+            next DLPRG if $funkyftp =~ /^\s*$/;
+
+            my($src_switch) = "";
+            my($chdir) = "";
+            my($stdout_redir) = " > \"$aslocal\"";
+            if ($f eq "lynx") {
+                $src_switch = " -source";
+            } elsif ($f eq "ncftp") {
+                next DLPRG unless $url =~ m{\Aftp://};
+                $src_switch = " -c";
+            } elsif ($f eq "wget") {
+                $src_switch = " -O \"$aslocal\"";
+                $stdout_redir = "";
+            } elsif ($f eq 'curl') {
+                $src_switch = ' -L -f -s -S --netrc-optional';
+                if ($proxy_vars->{http_proxy}) {
+                    $src_switch .= qq{ -U "$proxy_vars->{proxy_user}:$proxy_vars->{proxy_pass}" -x "$proxy_vars->{http_proxy}"};
+                }
+            } elsif ($f eq "ncftpget") {
+                next DLPRG unless $url =~ m{\Aftp://};
+                $chdir = "cd $aslocal_dir && ";
+                $stdout_redir = "";
+            }
+            $CPAN::Frontend->myprint(
+                                     qq[
+Trying with
+    $funkyftp$src_switch
+to get
+    $url
+]);
+            my($system) =
+                "$chdir$funkyftp$src_switch \"$url\" $devnull$stdout_redir";
+            $self->debug("system[$system]") if $CPAN::DEBUG;
+            my($wstatus) = system($system);
+            if ($f eq "lynx") {
+                # lynx returns 0 when it fails somewhere
+                if (-s $aslocal) {
+                    my $content = do { local *FH;
+                                       open FH, $aslocal or die;
+                                       local $/;
+                                       <FH> };
+                    if ($content =~ /^<.*(<title>[45]|Error [45])/si) {
+                        $CPAN::Frontend->mywarn(qq{
+No success, the file that lynx has downloaded looks like an error message:
+$content
+});
+                        $CPAN::Frontend->mysleep(1);
+                        next DLPRG;
+                    }
+                    $some_dl_success++;
+                } else {
+                    $CPAN::Frontend->myprint(qq{
+No success, the file that lynx has downloaded is an empty file.
+});
+                    next DLPRG;
+                }
+            }
+            if ($wstatus == 0) {
+                if (-s $aslocal) {
+                    # Looks good
+                    $some_dl_success++;
+                }
+                $ThesiteURL = $ro_url;
+                return $aslocal;
+            } else {
+                my $estatus = $wstatus >> 8;
+                my $size = -f $aslocal ?
+                    ", left\n$aslocal with size ".-s _ :
+                    "\nWarning: expected file [$aslocal] doesn't exist";
+                $CPAN::Frontend->myprint(qq{
+    Function system("$system")
+    returned status $estatus (wstat $wstatus)$size
+    });
+            }
+            return if $CPAN::Signal;
+        } # download/transfer programs (DLPRG)
+    } # host
+    return unless $any_attempt;
+    if ($some_dl_success) {
+        $CPAN::Frontend->mywarn("Warning: doesn't seem we had substantial success downloading '$aslocal'. Don't know how to proceed.\n");
+    } else {
+        $CPAN::Frontend->mywarn("Warning: no success downloading '$aslocal'. Giving up on it.\n");
+    }
+    return;
+}
+
+#-> CPAN::FTP::_proxy_vars
+sub _proxy_vars {
+    my($self,$url) = @_;
+    my $ret = +{};
+    my $http_proxy = $CPAN::Config->{'http_proxy'} || $ENV{'http_proxy'};
+    if ($http_proxy) {
+        my($host) = $url =~ m|://([^/:]+)|;
+        my $want_proxy = 1;
+        my $noproxy = $CPAN::Config->{'no_proxy'} || $ENV{'no_proxy'} || "";
+        my @noproxy = split /\s*,\s*/, $noproxy;
+        if ($host) {
+          DOMAIN: for my $domain (@noproxy) {
+                if ($host =~ /\Q$domain\E$/) { # cf. LWP::UserAgent
+                    $want_proxy = 0;
+                    last DOMAIN;
+                }
+            }
+        } else {
+            $CPAN::Frontend->mywarn("  Could not determine host from http_proxy '$http_proxy'\n");
+        }
+        if ($want_proxy) {
+            my($user, $pass) =
+                CPAN::HTTP::Credentials->get_proxy_credentials();
+            $ret = {
+                    proxy_user => $user,
+                    proxy_pass => $pass,
+                    http_proxy => $http_proxy
+                  };
+        }
+    }
+    return $ret;
+}
+
+# package CPAN::FTP;
+sub hostdlhardest {
+    my($self,$host_seq,$file,$aslocal,$stats) = @_;
+
+    return unless @$host_seq;
+    my($ro_url);
+    my($aslocal_dir) = dirname($aslocal);
+    mkpath($aslocal_dir);
+    my $ftpbin = $CPAN::Config->{ftp};
+    unless ($ftpbin && length $ftpbin && MM->maybe_command($ftpbin)) {
+        $CPAN::Frontend->myprint("No external ftp command available\n\n");
+        return;
+    }
+    $CPAN::Frontend->mywarn(qq{
+As a last resort we now switch to the external ftp command '$ftpbin'
+to get '$aslocal'.
+
+Doing so often leads to problems that are hard to diagnose.
+
+If you're the victim of such problems, please consider unsetting the
+ftp config variable with
+
+    o conf ftp ""
+    o conf commit
+
+});
+    $CPAN::Frontend->mysleep(2);
+  HOSTHARDEST: for $ro_url (@$host_seq) {
+        $self->_set_attempt($stats,"dlhardest",$ro_url);
+        my $url = "$ro_url$file";
+        $self->debug("localizing ftpwise[$url]") if $CPAN::DEBUG;
+        unless ($url =~ m|^ftp://(.*?)/(.*)/(.*)|) {
+            next;
+        }
+        my($host,$dir,$getfile) = ($1,$2,$3);
+        my $timestamp = 0;
+        my($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,
+            $ctime,$blksize,$blocks) = stat($aslocal);
+        $timestamp = $mtime ||= 0;
+        my($netrc) = CPAN::FTP::netrc->new;
+        my($netrcfile) = $netrc->netrc;
+        my($verbose) = $CPAN::DEBUG{'FTP'} & $CPAN::DEBUG ? " -v" : "";
+        my $targetfile = File::Basename::basename($aslocal);
+        my(@dialog);
+        push(
+             @dialog,
+             "lcd $aslocal_dir",
+             "cd /",
+             map("cd $_", split /\//, $dir), # RFC 1738
+             "bin",
+             "passive",
+             "get $getfile $targetfile",
+             "quit"
+        );
+        if (! $netrcfile) {
+            CPAN->debug("No ~/.netrc file found") if $CPAN::DEBUG;
+        } elsif ($netrc->hasdefault || $netrc->contains($host)) {
+            CPAN->debug(sprintf("hasdef[%d]cont($host)[%d]",
+                                $netrc->hasdefault,
+                                $netrc->contains($host))) if $CPAN::DEBUG;
+            if ($netrc->protected) {
+                my $dialog = join "", map { "    $_\n" } @dialog;
+                my $netrc_explain;
+                if ($netrc->contains($host)) {
+                    $netrc_explain = "Relying that your .netrc entry for '$host' ".
+                        "manages the login";
+                } else {
+                    $netrc_explain = "Relying that your default .netrc entry ".
+                        "manages the login";
+                }
+                $CPAN::Frontend->myprint(qq{
+  Trying with external ftp to get
+    '$url'
+  $netrc_explain
+  Sending the dialog
+$dialog
+}
+                );
+                $self->talk_ftp("$ftpbin$verbose $host",
+                                @dialog);
+                ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
+                    $atime,$mtime,$ctime,$blksize,$blocks) = stat($aslocal);
+                $mtime ||= 0;
+                if ($mtime > $timestamp) {
+                    $CPAN::Frontend->myprint("GOT $aslocal\n");
+                    $ThesiteURL = $ro_url;
+                    return $aslocal;
+                } else {
+                    $CPAN::Frontend->myprint("Hmm... Still failed!\n");
+                }
+                    return if $CPAN::Signal;
+            } else {
+                $CPAN::Frontend->mywarn(qq{Your $netrcfile is not }.
+                                        qq{correctly protected.\n});
+            }
+        } else {
+            $CPAN::Frontend->mywarn("Your ~/.netrc neither contains $host
+  nor does it have a default entry\n");
+        }
+
+        # OK, they don't have a valid ~/.netrc. Use 'ftp -n'
+        # then and login manually to host, using e-mail as
+        # password.
+        $CPAN::Frontend->myprint(qq{Issuing "$ftpbin$verbose -n"\n});
+        unshift(
+                @dialog,
+                "open $host",
+                "user anonymous $Config::Config{'cf_email'}"
+        );
+        my $dialog = join "", map { "    $_\n" } @dialog;
+        $CPAN::Frontend->myprint(qq{
+  Trying with external ftp to get
+    $url
+  Sending the dialog
+$dialog
+}
+        );
+        $self->talk_ftp("$ftpbin$verbose -n", @dialog);
+        ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
+            $atime,$mtime,$ctime,$blksize,$blocks) = stat($aslocal);
+        $mtime ||= 0;
+        if ($mtime > $timestamp) {
+            $CPAN::Frontend->myprint("GOT $aslocal\n");
+            $ThesiteURL = $ro_url;
+            return $aslocal;
+        } else {
+            $CPAN::Frontend->myprint("Bad luck... Still failed!\n");
+        }
+        return if $CPAN::Signal;
+        $CPAN::Frontend->mywarn("Can't access URL $url.\n\n");
+        $CPAN::Frontend->mysleep(2);
+    } # host
+}
+
+# package CPAN::FTP;
+sub talk_ftp {
+    my($self,$command,@dialog) = @_;
+    my $fh = FileHandle->new;
+    $fh->open("|$command") or die "Couldn't open ftp: $!";
+    foreach (@dialog) { $fh->print("$_\n") }
+    $fh->close; # Wait for process to complete
+    my $wstatus = $?;
+    my $estatus = $wstatus >> 8;
+    $CPAN::Frontend->myprint(qq{
+Subprocess "|$command"
+  returned status $estatus (wstat $wstatus)
+}) if $wstatus;
+}
+
+# find2perl needs modularization, too, all the following is stolen
+# from there
+# CPAN::FTP::ls
+sub ls {
+    my($self,$name) = @_;
+    my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$sizemm,
+     $atime,$mtime,$ctime,$blksize,$blocks) = lstat($name);
+
+    my($perms,%user,%group);
+    my $pname = $name;
+
+    if ($blocks) {
+        $blocks = int(($blocks + 1) / 2);
+    }
+    else {
+        $blocks = int(($sizemm + 1023) / 1024);
+    }
+
+    if    (-f _) { $perms = '-'; }
+    elsif (-d _) { $perms = 'd'; }
+    elsif (-c _) { $perms = 'c'; $sizemm = &sizemm; }
+    elsif (-b _) { $perms = 'b'; $sizemm = &sizemm; }
+    elsif (-p _) { $perms = 'p'; }
+    elsif (-S _) { $perms = 's'; }
+    else         { $perms = 'l'; $pname .= ' -> ' . readlink($_); }
+
+    my(@rwx) = ('---','--x','-w-','-wx','r--','r-x','rw-','rwx');
+    my(@moname) = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
+    my $tmpmode = $mode;
+    my $tmp = $rwx[$tmpmode & 7];
+    $tmpmode >>= 3;
+    $tmp = $rwx[$tmpmode & 7] . $tmp;
+    $tmpmode >>= 3;
+    $tmp = $rwx[$tmpmode & 7] . $tmp;
+    substr($tmp,2,1) =~ tr/-x/Ss/ if -u _;
+    substr($tmp,5,1) =~ tr/-x/Ss/ if -g _;
+    substr($tmp,8,1) =~ tr/-x/Tt/ if -k _;
+    $perms .= $tmp;
+
+    my $user = $user{$uid} || $uid;   # too lazy to implement lookup
+    my $group = $group{$gid} || $gid;
+
+    my($sec,$min,$hour,$mday,$mon,$year) = localtime($mtime);
+    my($timeyear);
+    my($moname) = $moname[$mon];
+    if (-M _ > 365.25 / 2) {
+        $timeyear = $year + 1900;
+    }
+    else {
+        $timeyear = sprintf("%02d:%02d", $hour, $min);
+    }
+
+    sprintf "%5lu %4ld %-10s %2d %-8s %-8s %8s %s %2d %5s %s\n",
+             $ino,
+                  $blocks,
+                       $perms,
+                             $nlink,
+                                 $user,
+                                      $group,
+                                           $sizemm,
+                                               $moname,
+                                                  $mday,
+                                                      $timeyear,
+                                                          $pname;
+}
+
+1;
diff --git a/lib/5.24.1/CPAN/FTP/netrc.pm b/lib/5.24.1/CPAN/FTP/netrc.pm
new file mode 100644
index 00000000..0778e8ad
--- /dev/null
+++ b/lib/5.24.1/CPAN/FTP/netrc.pm
@@ -0,0 +1,62 @@
+package CPAN::FTP::netrc;
+use strict;
+
+$CPAN::FTP::netrc::VERSION = $CPAN::FTP::netrc::VERSION = "1.01";
+
+# package CPAN::FTP::netrc;
+sub new {
+    my($class) = @_;
+    my $file = File::Spec->catfile($ENV{HOME},".netrc");
+
+    my($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
+       $atime,$mtime,$ctime,$blksize,$blocks)
+        = stat($file);
+    $mode ||= 0;
+    my $protected = 0;
+
+    my($fh,@machines,$hasdefault);
+    $hasdefault = 0;
+    $fh = FileHandle->new or die "Could not create a filehandle";
+
+    if($fh->open($file)) {
+        $protected = ($mode & 077) == 0;
+        local($/) = "";
+      NETRC: while (<$fh>) {
+            my(@tokens) = split " ", $_;
+          TOKEN: while (@tokens) {
+                my($t) = shift @tokens;
+                if ($t eq "default") {
+                    $hasdefault++;
+                    last NETRC;
+                }
+                last TOKEN if $t eq "macdef";
+                if ($t eq "machine") {
+                    push @machines, shift @tokens;
+                }
+            }
+        }
+    } else {
+        $file = $hasdefault = $protected = "";
+    }
+
+    bless {
+        'mach' => [@machines],
+        'netrc' => $file,
+        'hasdefault' => $hasdefault,
+        'protected' => $protected,
+    }, $class;
+}
+
+# CPAN::FTP::netrc::hasdefault;
+sub hasdefault { shift->{'hasdefault'} }
+sub netrc      { shift->{'netrc'}      }
+sub protected  { shift->{'protected'}  }
+sub contains {
+    my($self,$mach) = @_;
+    for ( @{$self->{'mach'}} ) {
+        return 1 if $_ eq $mach;
+    }
+    return 0;
+}
+
+1;
diff --git a/lib/5.24.1/CPAN/FirstTime.pm b/lib/5.24.1/CPAN/FirstTime.pm
new file mode 100644
index 00000000..918e009a
--- /dev/null
+++ b/lib/5.24.1/CPAN/FirstTime.pm
@@ -0,0 +1,2107 @@
+# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
+# vim: ts=4 sts=4 sw=4:
+package CPAN::FirstTime;
+use strict;
+
+use ExtUtils::MakeMaker ();
+use FileHandle ();
+use File::Basename ();
+use File::Path ();
+use File::Spec ();
+use CPAN::Mirrors ();
+use vars qw($VERSION $auto_config);
+$VERSION = "5.5307";
+
+=head1 NAME
+
+CPAN::FirstTime - Utility for CPAN::Config file Initialization
+
+=head1 SYNOPSIS
+
+CPAN::FirstTime::init()
+
+=head1 DESCRIPTION
+
+The init routine asks a few questions and writes a CPAN/Config.pm or
+CPAN/MyConfig.pm file (depending on what it is currently using).
+
+In the following all questions and explanations regarding config
+variables are collected.
+
+=cut
+
+# down until the next =back the manpage must be parsed by the program
+# because the text is used in the init dialogues.
+
+my @podpara = split /\n\n/, <<'=back';
+
+=over 2
+
+=item auto_commit
+
+Normally CPAN.pm keeps config variables in memory and changes need to
+be saved in a separate 'o conf commit' command to make them permanent
+between sessions. If you set the 'auto_commit' option to true, changes
+to a config variable are always automatically committed to disk.
+
+Always commit changes to config variables to disk?
+
+=item build_cache
+
+CPAN.pm can limit the size of the disk area for keeping the build
+directories with all the intermediate files.
+
+Cache size for build directory (in MB)?
+
+=item build_dir
+
+Directory where the build process takes place?
+
+=item build_dir_reuse
+
+Until version 1.88 CPAN.pm never trusted the contents of the build_dir
+directory between sessions. Since 1.88_58 CPAN.pm has a YAML-based
+mechanism that makes it possible to share the contents of the
+build_dir/ directory between different sessions with the same version
+of perl. People who prefer to test things several days before
+installing will like this feature because it saves a lot of time.
+
+If you say yes to the following question, CPAN will try to store
+enough information about the build process so that it can pick up in
+future sessions at the same state of affairs as it left a previous
+session.
+
+Store and re-use state information about distributions between
+CPAN.pm sessions?
+
+=item build_requires_install_policy
+
+When a module declares another one as a 'build_requires' prerequisite
+this means that the other module is only needed for building or
+testing the module but need not be installed permanently. In this case
+you may wish to install that other module nonetheless or just keep it
+in the 'build_dir' directory to have it available only temporarily.
+Installing saves time on future installations but makes the perl
+installation bigger.
+
+You can choose if you want to always install (yes), never install (no)
+or be always asked. In the latter case you can set the default answer
+for the question to yes (ask/yes) or no (ask/no).
+
+Policy on installing 'build_requires' modules (yes, no, ask/yes,
+ask/no)?
+
+=item cache_metadata
+
+To considerably speed up the initial CPAN shell startup, it is
+possible to use Storable to create a cache of metadata. If Storable is
+not available, the normal index mechanism will be used.
+
+Note: this mechanism is not used when use_sqlite is on and SQLLite is
+running.
+
+Cache metadata (yes/no)?
+
+=item check_sigs
+
+CPAN packages can be digitally signed by authors and thus verified
+with the security provided by strong cryptography. The exact mechanism
+is defined in the Module::Signature module. While this is generally
+considered a good thing, it is not always convenient to the end user
+to install modules that are signed incorrectly or where the key of the
+author is not available or where some prerequisite for
+Module::Signature has a bug and so on.
+
+With the check_sigs parameter you can turn signature checking on and
+off. The default is off for now because the whole tool chain for the
+functionality is not yet considered mature by some. The author of
+CPAN.pm would recommend setting it to true most of the time and
+turning it off only if it turns out to be annoying.
+
+Note that if you do not have Module::Signature installed, no signature
+checks will be performed at all.
+
+Always try to check and verify signatures if a SIGNATURE file is in
+the package and Module::Signature is installed (yes/no)?
+
+=item colorize_output
+
+When you have Term::ANSIColor installed, you can turn on colorized
+output to have some visual differences between normal CPAN.pm output,
+warnings, debugging output, and the output of the modules being
+installed. Set your favorite colors after some experimenting with the
+Term::ANSIColor module.
+
+Please note that on Windows platforms colorized output also requires
+the Win32::Console::ANSI module.
+
+Do you want to turn on colored output?
+
+=item colorize_print
+
+Color for normal output?
+
+=item colorize_warn
+
+Color for warnings?
+
+=item colorize_debug
+
+Color for debugging messages?
+
+=item commandnumber_in_prompt
+
+The prompt of the cpan shell can contain the current command number
+for easier tracking of the session or be a plain string.
+
+Do you want the command number in the prompt (yes/no)?
+
+=item connect_to_internet_ok
+
+If you have never defined your own C<urllist> in your configuration
+then C<CPAN.pm> will be hesitant to use the built in default sites for
+downloading. It will ask you once per session if a connection to the
+internet is OK and only if you say yes, it will try to connect. But to
+avoid this question, you can choose your favorite download sites once
+and get away with it. Or, if you have no favorite download sites
+answer yes to the following question.
+
+If no urllist has been chosen yet, would you prefer CPAN.pm to connect
+to the built-in default sites without asking? (yes/no)?
+
+=item ftp_passive
+
+Shall we always set the FTP_PASSIVE environment variable when dealing
+with ftp download (yes/no)?
+
+=item ftpstats_period
+
+Statistics about downloads are truncated by size and period
+simultaneously.
+
+How many days shall we keep statistics about downloads?
+
+=item ftpstats_size
+
+Statistics about downloads are truncated by size and period
+simultaneously.
+
+How many items shall we keep in the statistics about downloads?
+
+=item getcwd
+
+CPAN.pm changes the current working directory often and needs to
+determine its own current working directory. Per default it uses
+Cwd::cwd but if this doesn't work on your system for some reason,
+alternatives can be configured according to the following table:
+
+    cwd         Cwd::cwd
+    getcwd      Cwd::getcwd
+    fastcwd     Cwd::fastcwd
+    getdcwd     Cwd::getdcwd
+    backtickcwd external command cwd
+
+Preferred method for determining the current working directory?
+
+=item halt_on_failure
+
+Normally, CPAN.pm continues processing the full list of targets and
+dependencies, even if one of them fails.  However, you can specify
+that CPAN should halt after the first failure.  (Note that optional
+recommended or suggested modules that fail will not cause a halt.)
+
+Do you want to halt on failure (yes/no)?
+
+=item histfile
+
+If you have one of the readline packages (Term::ReadLine::Perl,
+Term::ReadLine::Gnu, possibly others) installed, the interactive CPAN
+shell will have history support. The next two questions deal with the
+filename of the history file and with its size. If you do not want to
+set this variable, please hit SPACE ENTER to the following question.
+
+File to save your history?
+
+=item histsize
+
+Number of lines to save?
+
+=item inactivity_timeout
+
+Sometimes you may wish to leave the processes run by CPAN alone
+without caring about them. Because the Makefile.PL or the Build.PL
+sometimes contains question you're expected to answer, you can set a
+timer that will kill a 'perl Makefile.PL' process after the specified
+time in seconds.
+
+If you set this value to 0, these processes will wait forever. This is
+the default and recommended setting.
+
+Timeout for inactivity during {Makefile,Build}.PL?
+
+=item index_expire
+
+The CPAN indexes are usually rebuilt once or twice per hour, but the
+typical CPAN mirror mirrors only once or twice per day. Depending on
+the quality of your mirror and your desire to be on the bleeding edge,
+you may want to set the following value to more or less than one day
+(which is the default). It determines after how many days CPAN.pm
+downloads new indexes.
+
+Let the index expire after how many days?
+
+=item inhibit_startup_message
+
+When the CPAN shell is started it normally displays a greeting message
+that contains the running version and the status of readline support.
+
+Do you want to turn this message off?
+
+=item keep_source_where
+
+Unless you are accessing the CPAN on your filesystem via a file: URL,
+CPAN.pm needs to keep the source files it downloads somewhere. Please
+supply a directory where the downloaded files are to be kept.
+
+Download target directory?
+
+=item load_module_verbosity
+
+When CPAN.pm loads a module it needs for some optional feature, it
+usually reports about module name and version. Choose 'v' to get this
+message, 'none' to suppress it.
+
+Verbosity level for loading modules (none or v)?
+
+=item makepl_arg
+
+Every Makefile.PL is run by perl in a separate process. Likewise we
+run 'make' and 'make install' in separate processes. If you have
+any parameters (e.g. PREFIX, UNINST or the like) you want to
+pass to the calls, please specify them here.
+
+If you don't understand this question, just press ENTER.
+
+Typical frequently used settings:
+
+    PREFIX=~/perl    # non-root users (please see manual for more hints)
+
+Parameters for the 'perl Makefile.PL' command?
+
+=item make_arg
+
+Parameters for the 'make' command? Typical frequently used setting:
+
+    -j3              # dual processor system (on GNU make)
+
+Your choice:
+
+=item make_install_arg
+
+Parameters for the 'make install' command?
+Typical frequently used setting:
+
+    UNINST=1         # to always uninstall potentially conflicting files
+                     # (but do NOT use with local::lib or INSTALL_BASE)
+
+Your choice:
+
+=item make_install_make_command
+
+Do you want to use a different make command for 'make install'?
+Cautious people will probably prefer:
+
+    su root -c make
+ or
+    sudo make
+ or
+    /path1/to/sudo -u admin_account /path2/to/make
+
+or some such. Your choice:
+
+=item mbuildpl_arg
+
+A Build.PL is run by perl in a separate process. Likewise we run
+'./Build' and './Build install' in separate processes. If you have any
+parameters you want to pass to the calls, please specify them here.
+
+Typical frequently used settings:
+
+    --install_base /home/xxx             # different installation directory
+
+Parameters for the 'perl Build.PL' command?
+
+=item mbuild_arg
+
+Parameters for the './Build' command? Setting might be:
+
+    --extra_linker_flags -L/usr/foo/lib  # non-standard library location
+
+Your choice:
+
+=item mbuild_install_arg
+
+Parameters for the './Build install' command? Typical frequently used
+setting:
+
+    --uninst 1       # uninstall conflicting files
+                     # (but do NOT use with local::lib or INSTALL_BASE)
+
+Your choice:
+
+=item mbuild_install_build_command
+
+Do you want to use a different command for './Build install'? Sudo
+users will probably prefer:
+
+    su root -c ./Build
+ or
+    sudo ./Build
+ or
+    /path1/to/sudo -u admin_account ./Build
+
+or some such. Your choice:
+
+=item pager
+
+What is your favorite pager program?
+
+=item prefer_installer
+
+When you have Module::Build installed and a module comes with both a
+Makefile.PL and a Build.PL, which shall have precedence?
+
+The main two standard installer modules are the old and well
+established ExtUtils::MakeMaker (for short: EUMM) which uses the
+Makefile.PL. And the next generation installer Module::Build (MB)
+which works with the Build.PL (and often comes with a Makefile.PL
+too). If a module comes only with one of the two we will use that one
+but if both are supplied then a decision must be made between EUMM and
+MB. See also http://rt.cpan.org/Ticket/Display.html?id=29235 for a
+discussion about the right default.
+
+Or, as a third option you can choose RAND which will make a random
+decision (something regular CPAN testers will enjoy).
+
+In case you can choose between running a Makefile.PL or a Build.PL,
+which installer would you prefer (EUMM or MB or RAND)?
+
+=item prefs_dir
+
+CPAN.pm can store customized build environments based on regular
+expressions for distribution names. These are YAML files where the
+default options for CPAN.pm and the environment can be overridden and
+dialog sequences can be stored that can later be executed by an
+Expect.pm object. The CPAN.pm distribution comes with some prefab YAML
+files that cover sample distributions that can be used as blueprints
+to store your own prefs. Please check out the distroprefs/ directory of
+the CPAN.pm distribution to get a quick start into the prefs system.
+
+Directory where to store default options/environment/dialogs for
+building modules that need some customization?
+
+=item prerequisites_policy
+
+The CPAN module can detect when a module which you are trying to build
+depends on prerequisites. If this happens, it can build the
+prerequisites for you automatically ('follow'), ask you for
+confirmation ('ask'), or just ignore them ('ignore').  Choosing
+'follow' also sets PERL_AUTOINSTALL and PERL_EXTUTILS_AUTOINSTALL for
+"--defaultdeps" if not already set.
+
+Please set your policy to one of the three values.
+
+Policy on building prerequisites (follow, ask or ignore)?
+
+=item randomize_urllist
+
+CPAN.pm can introduce some randomness when using hosts for download
+that are configured in the urllist parameter. Enter a numeric value
+between 0 and 1 to indicate how often you want to let CPAN.pm try a
+random host from the urllist. A value of one specifies to always use a
+random host as the first try. A value of zero means no randomness at
+all. Anything in between specifies how often, on average, a random
+host should be tried first.
+
+Randomize parameter
+
+=item recommends_policy
+
+(Experimental feature!) Some CPAN modules recommend additional, optional dependencies.  These should
+generally be installed except in resource constrained environments.  When this
+policy is true, recommended modules will be included with required modules.
+
+Included recommended modules?
+
+=item scan_cache
+
+By default, each time the CPAN module is started, cache scanning is
+performed to keep the cache size in sync ('atstart'). Alternatively,
+scanning and cleanup can happen when CPAN exits ('atexit'). To prevent
+any cache cleanup, answer 'never'.
+
+Perform cache scanning ('atstart', 'atexit' or 'never')?
+
+=item shell
+
+What is your favorite shell?
+
+=item show_unparsable_versions
+
+During the 'r' command CPAN.pm finds modules without version number.
+When the command finishes, it prints a report about this. If you
+want this report to be very verbose, say yes to the following
+variable.
+
+Show all individual modules that have no $VERSION?
+
+=item show_upload_date
+
+The 'd' and the 'm' command normally only show you information they
+have in their in-memory database and thus will never connect to the
+internet. If you set the 'show_upload_date' variable to true, 'm' and
+'d' will additionally show you the upload date of the module or
+distribution. Per default this feature is off because it may require a
+net connection to get at the upload date.
+
+Always try to show upload date with 'd' and 'm' command (yes/no)?
+
+=item show_zero_versions
+
+During the 'r' command CPAN.pm finds modules with a version number of
+zero. When the command finishes, it prints a report about this. If you
+want this report to be very verbose, say yes to the following
+variable.
+
+Show all individual modules that have a $VERSION of zero?
+
+=item suggests_policy
+
+(Experimental feature!) Some CPAN modules suggest additional, optional dependencies.  These 'suggest'
+dependencies provide enhanced operation.  When this policy is true, suggested
+modules will be included with required modules.
+
+Included suggested modules?
+
+=item tar_verbosity
+
+When CPAN.pm uses the tar command, which switch for the verbosity
+shall be used? Choose 'none' for quiet operation, 'v' for file
+name listing, 'vv' for full listing.
+
+Tar command verbosity level (none or v or vv)?
+
+=item term_is_latin
+
+The next option deals with the charset (a.k.a. character set) your
+terminal supports. In general, CPAN is English speaking territory, so
+the charset does not matter much but some CPAN have names that are
+outside the ASCII range. If your terminal supports UTF-8, you should
+say no to the next question. If it expects ISO-8859-1 (also known as
+LATIN1) then you should say yes. If it supports neither, your answer
+does not matter because you will not be able to read the names of some
+authors anyway. If you answer no, names will be output in UTF-8.
+
+Your terminal expects ISO-8859-1 (yes/no)?
+
+=item term_ornaments
+
+When using Term::ReadLine, you can turn ornaments on so that your
+input stands out against the output from CPAN.pm.
+
+Do you want to turn ornaments on?
+
+=item test_report
+
+The goal of the CPAN Testers project (http://testers.cpan.org/) is to
+test as many CPAN packages as possible on as many platforms as
+possible.  This provides valuable feedback to module authors and
+potential users to identify bugs or platform compatibility issues and
+improves the overall quality and value of CPAN.
+
+One way you can contribute is to send test results for each module
+that you install.  If you install the CPAN::Reporter module, you have
+the option to automatically generate and deliver test reports to CPAN
+Testers whenever you run tests on a CPAN package.
+
+See the CPAN::Reporter documentation for additional details and
+configuration settings.  If your firewall blocks outgoing traffic,
+you may need to configure CPAN::Reporter before sending reports.
+
+Generate test reports if CPAN::Reporter is installed (yes/no)?
+
+=item perl5lib_verbosity
+
+When CPAN.pm extends @INC via PERL5LIB, it prints a list of
+directories added (or a summary of how many directories are
+added).  Choose 'v' to get this message, 'none' to suppress it.
+
+Verbosity level for PERL5LIB changes (none or v)?
+
+=item prefer_external_tar
+
+Per default all untar operations are done with the perl module
+Archive::Tar; by setting this variable to true the external tar
+command is used if available; on Unix this is usually preferred
+because they have a reliable and fast gnutar implementation.
+
+Use the external tar program instead of Archive::Tar?
+
+=item trust_test_report_history
+
+When a distribution has already been tested by CPAN::Reporter on
+this machine, CPAN can skip the test phase and just rely on the
+test report history instead.
+
+Note that this will not apply to distributions that failed tests
+because of missing dependencies.  Also, tests can be run
+regardless of the history using "force".
+
+Do you want to rely on the test report history (yes/no)?
+
+=item use_prompt_default
+
+When this is true, CPAN will set PERL_MM_USE_DEFAULT to a true
+value.  This causes ExtUtils::MakeMaker (and compatible) prompts
+to use default values instead of stopping to prompt you to answer
+questions. It also sets NONINTERACTIVE_TESTING to a true value to
+signal more generally that distributions should not try to
+interact with you.
+
+Do you want to use prompt defaults (yes/no)?
+
+=item use_sqlite
+
+CPAN::SQLite is a layer between the index files that are downloaded
+from the CPAN and CPAN.pm that speeds up metadata queries and reduces
+memory consumption of CPAN.pm considerably.
+
+Use CPAN::SQLite if available? (yes/no)?
+
+=item version_timeout
+
+This timeout prevents CPAN from hanging when trying to parse a
+pathologically coded $VERSION from a module.
+
+The default is 15 seconds.  If you set this value to 0, no timeout
+will occur, but this is not recommended.
+
+Timeout for parsing module versions?
+
+=item yaml_load_code
+
+Both YAML.pm and YAML::Syck are capable of deserialising code. As this
+requires a string eval, which might be a security risk, you can use
+this option to enable or disable the deserialisation of code via
+CPAN::DeferredCode. (Note: This does not work under perl 5.6)
+
+Do you want to enable code deserialisation (yes/no)?
+
+=item yaml_module
+
+At the time of this writing (2009-03) there are three YAML
+implementations working: YAML, YAML::Syck, and YAML::XS. The latter
+two are faster but need a C compiler installed on your system. There
+may be more alternative YAML conforming modules. When I tried two
+other players, YAML::Tiny and YAML::Perl, they seemed not powerful
+enough to work with CPAN.pm. This may have changed in the meantime.
+
+Which YAML implementation would you prefer?
+
+=back
+
+=head1 LICENSE
+
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+=cut
+
+use vars qw( %prompts );
+
+{
+
+    my @prompts = (
+
+auto_config => qq{
+CPAN.pm requires configuration, but most of it can be done automatically.
+If you answer 'no' below, you will enter an interactive dialog for each
+configuration option instead.
+
+Would you like to configure as much as possible automatically?},
+
+auto_pick => qq{
+Would you like me to automatically choose some CPAN mirror
+sites for you? (This means connecting to the Internet)},
+
+config_intro => qq{
+
+The following questions are intended to help you with the
+configuration. The CPAN module needs a directory of its own to cache
+important index files and maybe keep a temporary mirror of CPAN files.
+This may be a site-wide or a personal directory.
+
+},
+
+# cpan_home => qq{ },
+
+cpan_home_where => qq{
+
+First of all, I'd like to create this directory. Where?
+
+},
+
+external_progs => qq{
+
+The CPAN module will need a few external programs to work properly.
+Please correct me, if I guess the wrong path for a program. Don't
+panic if you do not have some of them, just press ENTER for those. To
+disable the use of a program, you can type a space followed by ENTER.
+
+},
+
+proxy_intro => qq{
+
+If you're accessing the net via proxies, you can specify them in the
+CPAN configuration or via environment variables. The variable in
+the \$CPAN::Config takes precedence.
+
+},
+
+proxy_user => qq{
+
+If your proxy is an authenticating proxy, you can store your username
+permanently. If you do not want that, just press ENTER. You will then
+be asked for your username in every future session.
+
+},
+
+proxy_pass => qq{
+
+Your password for the authenticating proxy can also be stored
+permanently on disk. If this violates your security policy, just press
+ENTER. You will then be asked for the password in every future
+session.
+
+},
+
+urls_intro => qq{
+Now you need to choose your CPAN mirror sites.  You can let me
+pick mirrors for you, you can select them from a list or you
+can enter them by hand.
+},
+
+urls_picker_intro => qq{First, pick a nearby continent and country by typing in the number(s)
+in front of the item(s) you want to select. You can pick several of
+each, separated by spaces. Then, you will be presented with a list of
+URLs of CPAN mirrors in the countries you selected, along with
+previously selected URLs. Select some of those URLs, or just keep the
+old list. Finally, you will be prompted for any extra URLs -- file:,
+ftp:, or http: -- that host a CPAN mirror.
+
+You should select more than one (just in case the first isn't available).
+
+},
+
+password_warn => qq{
+
+Warning: Term::ReadKey seems not to be available, your password will
+be echoed to the terminal!
+
+},
+
+install_help => qq{
+Warning: You do not have write permission for Perl library directories.
+
+To install modules, you need to configure a local Perl library directory or
+escalate your privileges.  CPAN can help you by bootstrapping the local::lib
+module or by configuring itself to use 'sudo' (if available).  You may also
+resolve this problem manually if you need to customize your setup.
+
+What approach do you want?  (Choose 'local::lib', 'sudo' or 'manual')
+},
+
+local_lib_installed => qq{
+local::lib is installed. You must now add the following environment variables
+to your shell configuration files (or registry, if you are on Windows) and
+then restart your command line shell and CPAN before installing modules:
+
+},
+
+              );
+
+    die "Coding error in \@prompts declaration.  Odd number of elements, above"
+        if (@prompts % 2);
+
+    %prompts = @prompts;
+
+    if (scalar(keys %prompts) != scalar(@prompts)/2) {
+        my %already;
+        for my $item (0..$#prompts) {
+            next if $item % 2;
+            die "$prompts[$item] is duplicated\n" if $already{$prompts[$item]}++;
+        }
+    }
+
+    shift @podpara;
+    while (@podpara) {
+        warn "Alert: cannot parse my own manpage for init dialog" unless $podpara[0] =~ s/^=item\s+//;
+        my $name = shift @podpara;
+        my @para;
+        while (@podpara && $podpara[0] !~ /^=item/) {
+            push @para, shift @podpara;
+        }
+        $prompts{$name} = pop @para;
+        if (@para) {
+            $prompts{$name . "_intro"} = join "", map { "$_\n\n" } @para;
+        }
+    }
+
+}
+
+sub init {
+    my($configpm, %args) = @_;
+    use Config;
+    # extra args after 'o conf init'
+    my $matcher = $args{args} && @{$args{args}} ? $args{args}[0] : '';
+    if ($matcher =~ /^\/(.*)\/$/) {
+        # case /regex/ => take the first, ignore the rest
+        $matcher = $1;
+        shift @{$args{args}};
+        if (@{$args{args}}) {
+            local $" = " ";
+            $CPAN::Frontend->mywarn("Ignoring excessive arguments '@{$args{args}}'");
+            $CPAN::Frontend->mysleep(2);
+        }
+    } elsif (0 == length $matcher) {
+    } elsif (0 && $matcher eq "~") { # extremely buggy, but a nice idea
+        my @unconfigured = grep { not exists $CPAN::Config->{$_}
+                                      or not defined $CPAN::Config->{$_}
+                                          or not length $CPAN::Config->{$_}
+                                  } keys %$CPAN::Config;
+        $matcher = "\\b(".join("|", @unconfigured).")\\b";
+        $CPAN::Frontend->mywarn("matcher[$matcher]");
+    } else {
+        # case WORD... => all arguments must be valid
+        for my $arg (@{$args{args}}) {
+            unless (exists $CPAN::HandleConfig::keys{$arg}) {
+                $CPAN::Frontend->mywarn("'$arg' is not a valid configuration variable\n");
+                return;
+            }
+        }
+        $matcher = "\\b(".join("|",@{$args{args}}).")\\b";
+    }
+    CPAN->debug("matcher[$matcher]") if $CPAN::DEBUG;
+
+    unless ($CPAN::VERSION) {
+        require CPAN::Nox;
+    }
+    require CPAN::HandleConfig;
+    CPAN::HandleConfig::require_myconfig_or_config();
+    $CPAN::Config ||= {};
+    local($/) = "\n";
+    local($\) = "";
+    local($|) = 1;
+
+    my($ans,$default); # why so half global?
+
+    #
+    #= Files, directories
+    #
+
+    local *_real_prompt;
+    if ( $args{autoconfig} ) {
+        $auto_config = 1;
+    } elsif ($matcher) {
+        $auto_config = 0;
+    } else {
+        my $_conf = prompt($prompts{auto_config}, "yes");
+        $auto_config = ($_conf and $_conf =~ /^y/i) ? 1 : 0;
+    }
+    CPAN->debug("auto_config[$auto_config]") if $CPAN::DEBUG;
+    if ( $auto_config ) {
+            local $^W = 0;
+            # prototype should match that of &MakeMaker::prompt
+            my $current_second = time;
+            my $current_second_count = 0;
+            my $i_am_mad = 0;
+            # silent prompting -- just quietly use default
+            *_real_prompt = sub { return $_[1] };
+    }
+
+    #
+    # bootstrap local::lib or sudo
+    #
+    unless ( $matcher
+        || _can_write_to_libdirs() || _using_installbase() || _using_sudo()
+    ) {
+        local $auto_config = 0; # We *must* ask, even under autoconfig
+        local *_real_prompt;    # We *must* show prompt
+        my_prompt_loop(install_help => 'local::lib', $matcher,
+                   'local::lib|sudo|manual');
+    }
+    $CPAN::Config->{install_help} ||= ''; # Temporary to suppress warnings
+
+    if (!$matcher or q{
+                       build_dir
+                       build_dir_reuse
+                       cpan_home
+                       keep_source_where
+                       prefs_dir
+                      } =~ /$matcher/) {
+        $CPAN::Frontend->myprint($prompts{config_intro}) unless $auto_config;
+
+        init_cpan_home($matcher);
+
+        my_dflt_prompt("keep_source_where",
+                       File::Spec->catdir($CPAN::Config->{cpan_home},"sources"),
+                       $matcher,
+                      );
+        my_dflt_prompt("build_dir",
+                       File::Spec->catdir($CPAN::Config->{cpan_home},"build"),
+                       $matcher
+                      );
+        my_yn_prompt(build_dir_reuse => 0, $matcher);
+        my_dflt_prompt("prefs_dir",
+                       File::Spec->catdir($CPAN::Config->{cpan_home},"prefs"),
+                       $matcher
+                      );
+    }
+
+    #
+    #= Config: auto_commit
+    #
+
+    my_yn_prompt(auto_commit => 0, $matcher);
+
+    #
+    #= Cache size, Index expire
+    #
+    my_dflt_prompt(build_cache => 100, $matcher);
+
+    my_dflt_prompt(index_expire => 1, $matcher);
+    my_prompt_loop(scan_cache => 'atstart', $matcher, 'atstart|atexit|never');
+
+    #
+    #= cache_metadata
+    #
+
+    my_yn_prompt(cache_metadata => 1, $matcher);
+    my_yn_prompt(use_sqlite => 0, $matcher);
+
+    #
+    #= Do we follow PREREQ_PM?
+    #
+
+    my_prompt_loop(prerequisites_policy => 'follow', $matcher,
+                   'follow|ask|ignore');
+    my_prompt_loop(build_requires_install_policy => 'yes', $matcher,
+                   'yes|no|ask/yes|ask/no');
+    my_yn_prompt(recommends_policy => 1, $matcher);
+    my_yn_prompt(suggests_policy => 0, $matcher);
+
+    #
+    #= Module::Signature
+    #
+    my_yn_prompt(check_sigs => 0, $matcher);
+
+    #
+    #= CPAN::Reporter
+    #
+    if (!$matcher or 'test_report' =~ /$matcher/) {
+        my_yn_prompt(test_report => 0, $matcher);
+        if (
+            $matcher &&
+            $CPAN::Config->{test_report} &&
+            $CPAN::META->has_inst("CPAN::Reporter") &&
+            CPAN::Reporter->can('configure')
+           ) {
+            my $_conf = prompt("Would you like me configure CPAN::Reporter now?", "yes");
+            if ($_conf =~ /^y/i) {
+              $CPAN::Frontend->myprint("\nProceeding to configure CPAN::Reporter.\n");
+              CPAN::Reporter::configure();
+              $CPAN::Frontend->myprint("\nReturning to CPAN configuration.\n");
+            }
+        }
+    }
+
+    my_yn_prompt(trust_test_report_history => 0, $matcher);
+
+    #
+    #= YAML vs. YAML::Syck
+    #
+    if (!$matcher or "yaml_module" =~ /$matcher/) {
+        my_dflt_prompt(yaml_module => "YAML", $matcher);
+        my $old_v = $CPAN::Config->{load_module_verbosity};
+        $CPAN::Config->{load_module_verbosity} = q[none];
+        if (!$auto_config && !$CPAN::META->has_inst($CPAN::Config->{yaml_module})) {
+            $CPAN::Frontend->mywarn
+                ("Warning (maybe harmless): '$CPAN::Config->{yaml_module}' not installed.\n");
+            $CPAN::Frontend->mysleep(3);
+        }
+        $CPAN::Config->{load_module_verbosity} = $old_v;
+    }
+
+    #
+    #= YAML code deserialisation
+    #
+    my_yn_prompt(yaml_load_code => 0, $matcher);
+
+    #
+    #= External programs
+    #
+    my(@path) = split /$Config{'path_sep'}/, $ENV{'PATH'};
+    $CPAN::Frontend->myprint($prompts{external_progs})
+        if !$matcher && !$auto_config;
+    _init_external_progs($matcher, {
+        path => \@path,
+        progs => [ qw/make bzip2 gzip tar unzip gpg patch applypatch/ ],
+        shortcut => 0
+      });
+    _init_external_progs($matcher, {
+        path => \@path,
+        progs => [ qw/wget curl lynx ncftpget ncftp ftp/ ],
+        shortcut => 1
+      });
+
+    {
+        my $path = $CPAN::Config->{'pager'} ||
+            $ENV{PAGER} || find_exe("less",\@path) ||
+                find_exe("more",\@path) || ($^O eq 'MacOS' ? $ENV{EDITOR} : 0 )
+                    || "more";
+        my_dflt_prompt(pager => $path, $matcher);
+    }
+
+    {
+        my $path = $CPAN::Config->{'shell'};
+        if ($path && File::Spec->file_name_is_absolute($path)) {
+            $CPAN::Frontend->mywarn("Warning: configured $path does not exist\n")
+                unless -e $path;
+            $path = "";
+        }
+        $path ||= $ENV{SHELL};
+        $path ||= $ENV{COMSPEC} if $^O eq "MSWin32";
+        if ($^O eq 'MacOS') {
+            $CPAN::Config->{'shell'} = 'not_here';
+        } else {
+            $path ||= 'sh', $path =~ s,\\,/,g if $^O eq 'os2'; # Cosmetic only
+            my_dflt_prompt(shell => $path, $matcher);
+        }
+    }
+
+    {
+        my $tar = $CPAN::Config->{tar};
+        my $prefer_external_tar = $CPAN::Config->{prefer_external_tar}; # XXX not yet supported
+        unless (defined $prefer_external_tar) {
+            if ($^O =~ /(MSWin32|solaris)/) {
+                # both have a record of broken tars
+                $prefer_external_tar = 0;
+            } elsif ($tar) {
+                $prefer_external_tar = 1;
+            } else {
+                $prefer_external_tar = 0;
+            }
+        }
+        my_yn_prompt(prefer_external_tar => $prefer_external_tar, $matcher);
+    }
+
+    #
+    # verbosity
+    #
+
+    my_prompt_loop(tar_verbosity => 'none', $matcher,
+                   'none|v|vv');
+    my_prompt_loop(load_module_verbosity => 'none', $matcher,
+                   'none|v');
+    my_prompt_loop(perl5lib_verbosity => 'none', $matcher,
+                   'none|v');
+    my_yn_prompt(inhibit_startup_message => 0, $matcher);
+
+    #
+    #= Installer, arguments to make etc.
+    #
+
+    my_prompt_loop(prefer_installer => 'MB', $matcher, 'MB|EUMM|RAND');
+
+    if (!$matcher or 'makepl_arg make_arg' =~ /$matcher/) {
+        my_dflt_prompt(makepl_arg => "", $matcher);
+        my_dflt_prompt(make_arg => "", $matcher);
+        if ( $CPAN::Config->{makepl_arg} =~ /LIBS=|INC=/ ) {
+            $CPAN::Frontend->mywarn(
+                "Warning: Using LIBS or INC in makepl_arg will likely break distributions\n" .
+                "that specify their own LIBS or INC options in Makefile.PL.\n"
+            );
+        }
+
+    }
+
+    require CPAN::HandleConfig;
+    if (exists $CPAN::HandleConfig::keys{make_install_make_command}) {
+        # as long as Windows needs $self->_build_command, we cannot
+        # support sudo on windows :-)
+        my $default = $CPAN::Config->{make} || "";
+        if ( $default && $CPAN::Config->{install_help} eq 'sudo' ) {
+            if ( find_exe('sudo') ) {
+                $default = "sudo $default";
+                delete $CPAN::Config->{make_install_make_command}
+                    unless $CPAN::Config->{make_install_make_command} =~ /sudo/;
+            }
+            else {
+                $CPAN::Frontend->mywarnonce("Could not find 'sudo' in PATH\n");
+            }
+        }
+        my_dflt_prompt(make_install_make_command => $default, $matcher);
+    }
+
+    my_dflt_prompt(make_install_arg => $CPAN::Config->{make_arg} || "",
+                   $matcher);
+
+    my_dflt_prompt(mbuildpl_arg => "", $matcher);
+    my_dflt_prompt(mbuild_arg => "", $matcher);
+
+    if (exists $CPAN::HandleConfig::keys{mbuild_install_build_command}
+        and $^O ne "MSWin32") {
+        # as long as Windows needs $self->_build_command, we cannot
+        # support sudo on windows :-)
+        my $default = $^O eq 'VMS' ? '@Build.com' : "./Build";
+        if ( $CPAN::Config->{install_help} eq 'sudo' ) {
+            if ( find_exe('sudo') ) {
+                $default = "sudo $default";
+                delete $CPAN::Config->{mbuild_install_build_command}
+                    unless $CPAN::Config->{mbuild_install_build_command} =~ /sudo/;
+            }
+            else {
+                $CPAN::Frontend->mywarnonce("Could not find 'sudo' in PATH\n");
+            }
+        }
+        my_dflt_prompt(mbuild_install_build_command => $default, $matcher);
+    }
+
+    my_dflt_prompt(mbuild_install_arg => "", $matcher);
+
+    #
+    #== use_prompt_default
+    #
+    my_yn_prompt(use_prompt_default => 0, $matcher);
+
+    #
+    #= Alarm period
+    #
+
+    my_dflt_prompt(inactivity_timeout => 0, $matcher);
+    my_dflt_prompt(version_timeout => 15, $matcher);
+
+    #
+    #== halt_on_failure
+    #
+    my_yn_prompt(halt_on_failure => 0, $matcher);
+
+    #
+    #= Proxies
+    #
+
+    my @proxy_vars = qw/ftp_proxy http_proxy no_proxy/;
+    my @proxy_user_vars = qw/proxy_user proxy_pass/;
+    if (!$matcher or "@proxy_vars @proxy_user_vars" =~ /$matcher/) {
+        $CPAN::Frontend->myprint($prompts{proxy_intro}) unless $auto_config;
+
+        for (@proxy_vars) {
+            $prompts{$_} = "Your $_?";
+            my_dflt_prompt($_ => $ENV{$_}||"", $matcher);
+        }
+
+        if ($CPAN::Config->{ftp_proxy} ||
+            $CPAN::Config->{http_proxy}) {
+
+            $default = $CPAN::Config->{proxy_user} || $CPAN::LWP::UserAgent::USER || "";
+
+            $CPAN::Frontend->myprint($prompts{proxy_user}) unless $auto_config;
+
+            if ($CPAN::Config->{proxy_user} = prompt("Your proxy user id?",$default)) {
+                $CPAN::Frontend->myprint($prompts{proxy_pass}) unless $auto_config;
+
+                if ($CPAN::META->has_inst("Term::ReadKey")) {
+                    Term::ReadKey::ReadMode("noecho");
+                } else {
+                    $CPAN::Frontend->myprint($prompts{password_warn}) unless $auto_config;
+                }
+                $CPAN::Config->{proxy_pass} = prompt_no_strip("Your proxy password?");
+                if ($CPAN::META->has_inst("Term::ReadKey")) {
+                    Term::ReadKey::ReadMode("restore");
+                }
+                $CPAN::Frontend->myprint("\n\n") unless $auto_config;
+            }
+        }
+    }
+
+    #
+    #= how plugins work
+    #
+
+    # XXX MISSING: my_array_prompt to be used with plugins. We did something like this near
+    #     git log -p fd68f8f5e33f4cecea4fdb7abc5ee19c12f138f0..test-notest-test-dependency
+    # Need to do similar steps for plugin_list. As long as we do not support it here, people
+    # must use the cpan shell prompt to write something like
+    #     o conf plugin_list push CPAN::Plugin::Specfile=dir,/tmp/foo-20141013,...
+    #     o conf commit
+
+    #
+    #= how FTP works
+    #
+
+    my_yn_prompt(ftp_passive => 1, $matcher);
+
+    #
+    #= how cwd works
+    #
+
+    my_prompt_loop(getcwd => 'cwd', $matcher,
+                   'cwd|getcwd|fastcwd|getdcwd|backtickcwd');
+
+    #
+    #= the CPAN shell itself (prompt, color)
+    #
+
+    my_yn_prompt(commandnumber_in_prompt => 1, $matcher);
+    my_yn_prompt(term_ornaments => 1, $matcher);
+    if ("colorize_output colorize_print colorize_warn colorize_debug" =~ $matcher) {
+        my_yn_prompt(colorize_output => 0, $matcher);
+        if ($CPAN::Config->{colorize_output}) {
+            if ($CPAN::META->has_inst("Term::ANSIColor")) {
+                my $T="gYw";
+                $CPAN::Frontend->myprint( "                                      on_  on_y ".
+                    "        on_ma           on_\n") unless $auto_config;
+                $CPAN::Frontend->myprint( "                   on_black on_red  green ellow ".
+                    "on_blue genta on_cyan white\n") unless $auto_config;
+
+                for my $FG ("", "bold",
+                            map {$_,"bold $_"} "black","red","green",
+                            "yellow","blue",
+                            "magenta",
+                            "cyan","white") {
+                    $CPAN::Frontend->myprint(sprintf( "%12s ", $FG)) unless $auto_config;
+                    for my $BG ("",map {"on_$_"} qw(black red green yellow
+                                                    blue magenta cyan white)) {
+                            $CPAN::Frontend->myprint( $FG||$BG ?
+                            Term::ANSIColor::colored("  $T  ","$FG $BG") : "  $T  ") unless $auto_config;
+                    }
+                    $CPAN::Frontend->myprint( "\n" ) unless $auto_config;
+                }
+                $CPAN::Frontend->myprint( "\n" ) unless $auto_config;
+            }
+            for my $tuple (
+                           ["colorize_print", "bold blue on_white"],
+                           ["colorize_warn", "bold red on_white"],
+                           ["colorize_debug", "black on_cyan"],
+                          ) {
+                my_dflt_prompt($tuple->[0] => $tuple->[1], $matcher);
+                if ($CPAN::META->has_inst("Term::ANSIColor")) {
+                    eval { Term::ANSIColor::color($CPAN::Config->{$tuple->[0]})};
+                    if ($@) {
+                        $CPAN::Config->{$tuple->[0]} = $tuple->[1];
+                        $CPAN::Frontend->mywarn($@."setting to default '$tuple->[1]'\n");
+                    }
+                }
+            }
+        }
+    }
+
+    #
+    #== term_is_latin
+    #
+
+    my_yn_prompt(term_is_latin => 1, $matcher);
+
+    #
+    #== save history in file 'histfile'
+    #
+
+    if (!$matcher or 'histfile histsize' =~ /$matcher/) {
+        $CPAN::Frontend->myprint($prompts{histfile_intro}) unless $auto_config;
+        defined($default = $CPAN::Config->{histfile}) or
+            $default = File::Spec->catfile($CPAN::Config->{cpan_home},"histfile");
+        my_dflt_prompt(histfile => $default, $matcher);
+
+        if ($CPAN::Config->{histfile}) {
+            defined($default = $CPAN::Config->{histsize}) or $default = 100;
+            my_dflt_prompt(histsize => $default, $matcher);
+        }
+    }
+
+    #
+    #== do an ls on the m or the d command
+    #
+    my_yn_prompt(show_upload_date => 0, $matcher);
+
+    #
+    #== verbosity at the end of the r command
+    #
+    if (!$matcher
+        or 'show_unparsable_versions' =~ /$matcher/
+        or 'show_zero_versions' =~ /$matcher/
+       ) {
+        my_yn_prompt(show_unparsable_versions => 0, $matcher);
+        my_yn_prompt(show_zero_versions => 0, $matcher);
+    }
+
+    #
+    #= MIRRORED.BY and conf_sites()
+    #
+
+    # Let's assume they want to use the internet and make them turn it
+    # off if they really don't.
+    my_yn_prompt("connect_to_internet_ok" => 1, $matcher);
+
+    # Allow matching but don't show during manual config
+    if ($matcher) {
+        if ("randomize_urllist" =~ $matcher) {
+            my_dflt_prompt(randomize_urllist => 0, $matcher);
+        }
+        if ("ftpstats_size" =~ $matcher) {
+            my_dflt_prompt(ftpstats_size => 99, $matcher);
+        }
+        if ("ftpstats_period" =~ $matcher) {
+            my_dflt_prompt(ftpstats_period => 14, $matcher);
+        }
+    }
+
+    $CPAN::Config->{urllist} ||= [];
+
+    if ($auto_config) {
+        if(@{ $CPAN::Config->{urllist} }) {
+            $CPAN::Frontend->myprint(
+                "Your 'urllist' is already configured. Type 'o conf init urllist' to change it.\n"
+            );
+        }
+        else {
+            $CPAN::Config->{urllist} = [ 'http://www.cpan.org/' ];
+        }
+    }
+    elsif (!$matcher || "urllist" =~ $matcher) {
+        _do_pick_mirrors();
+    }
+
+    if ($auto_config) {
+        $CPAN::Frontend->myprint(
+            "\nAutoconfiguration complete.\n"
+        );
+        $auto_config = 0; # reset
+    }
+
+    # bootstrap local::lib now if requested
+    if ( $CPAN::Config->{install_help} eq 'local::lib' ) {
+        if ( ! @{ $CPAN::Config->{urllist} } ) {
+            $CPAN::Frontend->myprint(
+                "Skipping local::lib bootstrap because 'urllist' is not configured.\n"
+            );
+        }
+        else {
+            $CPAN::Frontend->myprint("\nAttempting to bootstrap local::lib...\n");
+            $CPAN::Frontend->myprint("\nWriting $configpm for bootstrap...\n");
+            delete $CPAN::Config->{install_help}; # temporary only
+            CPAN::HandleConfig->commit;
+            my $dist;
+            if ( $dist = CPAN::Shell->expand('Module', 'local::lib')->distribution ) {
+                # this is a hack to force bootstrapping
+                $dist->{prefs}{pl}{commandline} = "$^X Makefile.PL --bootstrap";
+                # Set @INC for this process so we find things as they bootstrap
+                require lib;
+                lib->import(_local_lib_inc_path());
+                eval { $dist->install };
+            }
+            if ( ! $dist || (my $err = $@) ) {
+                $err ||= 'Could not locate local::lib in the CPAN index';
+                $CPAN::Frontend->mywarn("Error bootstrapping local::lib: $@\n");
+                $CPAN::Frontend->myprint("From the CPAN Shell, you might try 'look local::lib' and \n"
+                    . "run 'perl Makefile --bootstrap' and see if that is successful.  Then\n"
+                    . "restart your CPAN client\n"
+                );
+            }
+            else {
+                _local_lib_config();
+            }
+        }
+    }
+
+    # install_help is temporary for configuration and not saved
+    delete $CPAN::Config->{install_help};
+
+    $CPAN::Frontend->myprint("\n");
+    if ($matcher && !$CPAN::Config->{auto_commit}) {
+        $CPAN::Frontend->myprint("Please remember to call 'o conf commit' to ".
+                                 "make the config permanent!\n");
+    } else {
+        CPAN::HandleConfig->commit;
+    }
+
+    if (! $matcher) {
+        $CPAN::Frontend->myprint(
+            "\nYou can re-run configuration any time with 'o conf init' in the CPAN shell\n"
+        );
+    }
+
+}
+
+sub _local_lib_config {
+    # Set environment stuff for this process
+    require local::lib;
+
+    # Tell user about environment vars to set
+    $CPAN::Frontend->myprint($prompts{local_lib_installed});
+    local $ENV{SHELL} = $CPAN::Config->{shell} || $ENV{SHELL};
+    my $shellvars = local::lib->environment_vars_string_for(_local_lib_path());
+    $CPAN::Frontend->myprint($shellvars);
+
+    # Set %ENV after getting string above
+    my %env = local::lib->build_environment_vars_for(_local_lib_path(), 1);
+    while ( my ($k, $v) = each %env ) {
+        $ENV{$k} = $v;
+    }
+
+    # Offer to mangle the shell config
+    my $munged_rc;
+    if ( my $rc = _find_shell_config() ) {
+        local $auto_config = 0; # We *must* ask, even under autoconfig
+        local *_real_prompt;    # We *must* show prompt
+        my $_conf = prompt(
+            "\nWould you like me to append that to $rc now?", "yes"
+        );
+        if ($_conf =~ /^y/i) {
+            open my $fh, ">>", $rc;
+            print {$fh} "\n$shellvars";
+            close $fh;
+            $munged_rc++;
+        }
+    }
+
+    # Warn at exit time
+    if ($munged_rc) {
+        push @{$CPAN::META->_exit_messages}, << "HERE";
+
+*** Remember to restart your shell before running cpan again ***
+HERE
+    }
+    else {
+        push @{$CPAN::META->_exit_messages}, << "HERE";
+
+*** Remember to add these environment variables to your shell config
+    and restart your shell before running cpan again ***
+
+$shellvars
+HERE
+    }
+}
+
+{
+    my %shell_rc_map = (
+        map { $_ => ".${_}rc" } qw/ bash tcsh csh /,
+        map { $_ => ".profile" } qw/dash ash sh/,
+        zsh  => ".zshenv",
+    );
+
+    sub _find_shell_config {
+        my $shell = File::Basename::basename($CPAN::Config->{shell});
+        if ( my $rc = $shell_rc_map{$shell} ) {
+            my $path = File::Spec->catfile($ENV{HOME}, $rc);
+            return $path if -w $path;
+        }
+    }
+}
+
+
+sub _local_lib_inc_path {
+    return File::Spec->catdir(_local_lib_path(), qw/lib perl5/);
+}
+
+sub _local_lib_path {
+    return File::Spec->catdir(_local_lib_home(), 'perl5');
+}
+
+# Adapted from resolve_home_path() in local::lib -- this is where
+# local::lib thinks the user's home is
+{
+    my $local_lib_home;
+    sub _local_lib_home {
+        $local_lib_home ||= File::Spec->rel2abs( do {
+            if ($CPAN::META->has_usable("File::HomeDir") && File::HomeDir->VERSION >= 0.65) {
+                File::HomeDir->my_home;
+            } elsif (defined $ENV{HOME}) {
+                $ENV{HOME};
+            } else {
+                (getpwuid $<)[7] || "~";
+            }
+        });
+    }
+}
+
+sub _do_pick_mirrors {
+    local *_real_prompt;
+    *_real_prompt = \&CPAN::Shell::colorable_makemaker_prompt;
+    $CPAN::Frontend->myprint($prompts{urls_intro});
+    # Only prompt for auto-pick if Net::Ping is new enough to do timings
+    my $_conf = 'n';
+    if ( $CPAN::META->has_usable("Net::Ping") && Net::Ping->VERSION gt '2.13') {
+        $_conf = prompt($prompts{auto_pick}, "yes");
+    } else {
+        prompt("Autoselection disabled due to Net::Ping missing or insufficient. Please press ENTER");
+    }
+    my @old_list = @{ $CPAN::Config->{urllist} };
+    if ( $_conf =~ /^y/i ) {
+        conf_sites( auto_pick => 1 ) or bring_your_own();
+    }
+    else {
+        _print_urllist('Current') if @old_list;
+        my $msg = scalar @old_list
+            ? "\nWould you like to edit the urllist or pick new mirrors from a list?"
+            : "\nWould you like to pick from the CPAN mirror list?" ;
+        my $_conf = prompt($msg, "yes");
+        if ( $_conf =~ /^y/i ) {
+            conf_sites();
+        }
+        bring_your_own();
+    }
+    _print_urllist('New');
+}
+
+sub _init_external_progs {
+    my($matcher,$args) = @_;
+    my $PATH = $args->{path};
+    my @external_progs = @{ $args->{progs} };
+    my $shortcut = $args->{shortcut};
+    my $showed_make_warning;
+
+    if (!$matcher or "@external_progs" =~ /$matcher/) {
+        my $old_warn = $^W;
+        local $^W if $^O eq 'MacOS';
+        local $^W = $old_warn;
+        my $progname;
+        for $progname (@external_progs) {
+            next if $matcher && $progname !~ /$matcher/;
+            if ($^O eq 'MacOS') {
+                $CPAN::Config->{$progname} = 'not_here';
+                next;
+            }
+
+            my $progcall = $progname;
+            unless ($matcher) {
+                # we really don't need ncftp if we have ncftpget, but
+                # if they chose this dialog via matcher, they shall have it
+                next if $progname eq "ncftp" && $CPAN::Config->{ncftpget} gt " ";
+            }
+            my $path = $CPAN::Config->{$progname}
+                || $Config::Config{$progname}
+                    || "";
+            if (File::Spec->file_name_is_absolute($path)) {
+                # testing existence is not good enough, some have these exe
+                # extensions
+
+                # warn "Warning: configured $path does not exist\n" unless -e $path;
+                # $path = "";
+            } elsif ($path =~ /^\s+$/) {
+                # preserve disabled programs
+            } else {
+                $path = '';
+            }
+            unless ($path) {
+                # e.g. make -> nmake
+                $progcall = $Config::Config{$progname} if $Config::Config{$progname};
+            }
+
+            $path ||= find_exe($progcall,$PATH);
+            unless ($path) { # not -e $path, because find_exe already checked that
+                local $"=";";
+                $CPAN::Frontend->mywarn("Warning: $progcall not found in PATH[@$PATH]\n") unless $auto_config;
+                _beg_for_make(), $showed_make_warning++ if $progname eq "make";
+            }
+            $prompts{$progname} = "Where is your $progname program?";
+            $path = my_dflt_prompt($progname,$path,$matcher,1); # 1 => no strip spaces
+            my $disabling = $path =~ m/^\s*$/;
+
+            # don't let them disable or misconfigure make without warning
+            if ( $progname eq "make" && ( $disabling || ! _check_found($path) ) ) {
+              if ( $disabling && $showed_make_warning ) {
+                next;
+              }
+              else {
+                _beg_for_make() unless $showed_make_warning++;
+                undef $CPAN::Config->{$progname};
+                $CPAN::Frontend->mywarn("Press SPACE and ENTER to disable make (NOT RECOMMENDED)\n");
+                redo;
+              }
+            }
+            elsif ( $disabling ) {
+              next;
+            }
+            elsif ( _check_found( $CPAN::Config->{$progname} ) ) {
+              last if $shortcut && !$matcher;
+            }
+            else {
+              undef $CPAN::Config->{$progname};
+              $CPAN::Frontend->mywarn("Press SPACE and ENTER to disable $progname\n");
+              redo;
+            }
+        }
+    }
+}
+
+sub _check_found {
+  my ($prog) = @_;
+  if ( ! -f $prog ) {
+    $CPAN::Frontend->mywarn("Warning: '$prog' does not exist\n")
+      unless $auto_config;
+    return;
+  }
+  elsif ( ! -x $prog ) {
+    $CPAN::Frontend->mywarn("Warning: '$prog' is not executable\n")
+      unless $auto_config;
+    return;
+  }
+  return 1;
+}
+
+sub _beg_for_make {
+  $CPAN::Frontend->mywarn(<<"HERE");
+
+ALERT: 'make' is an essential tool for building perl Modules.
+Please make sure you have 'make' (or some equivalent) working.
+
+HERE
+  if ($^O eq "MSWin32") {
+    $CPAN::Frontend->mywarn(<<"HERE");
+Windows users may want to follow this procedure when back in the CPAN shell:
+
+    look YVES/scripts/alien_nmake.pl
+    perl alien_nmake.pl
+
+This will install nmake on your system which can be used as a 'make'
+substitute. You can then revisit this dialog with
+
+    o conf init make
+
+HERE
+  }
+}
+
+sub init_cpan_home {
+    my($matcher) = @_;
+    if (!$matcher or 'cpan_home' =~ /$matcher/) {
+        my $cpan_home =
+            $CPAN::Config->{cpan_home} || CPAN::HandleConfig::cpan_home();
+        if (-d $cpan_home) {
+            $CPAN::Frontend->myprint(
+                "\nI see you already have a directory\n" .
+                "\n$cpan_home\n" .
+                "Shall we use it as the general CPAN build and cache directory?\n\n"
+            ) unless $auto_config;
+        } else {
+            # no cpan-home, must prompt and get one
+            $CPAN::Frontend->myprint($prompts{cpan_home_where}) unless $auto_config;
+        }
+
+        my $default = $cpan_home;
+        my $loop = 0;
+        my($last_ans,$ans);
+        $CPAN::Frontend->myprint(" <cpan_home>\n") unless $auto_config;
+    PROMPT: while ($ans = prompt("CPAN build and cache directory?",$default)) {
+            if (File::Spec->file_name_is_absolute($ans)) {
+                my @cpan_home = split /[\/\\]/, $ans;
+            DIR: for my $dir (@cpan_home) {
+                    if ($dir =~ /^~/ and (!$last_ans or $ans ne $last_ans)) {
+                        $CPAN::Frontend
+                            ->mywarn("Warning: a tilde in the path will be ".
+                                     "taken as a literal tilde. Please ".
+                                     "confirm again if you want to keep it\n");
+                        $last_ans = $default = $ans;
+                        next PROMPT;
+                    }
+                }
+            } else {
+                require Cwd;
+                my $cwd = Cwd::cwd();
+                my $absans = File::Spec->catdir($cwd,$ans);
+                $CPAN::Frontend->mywarn("The path '$ans' is not an ".
+                                        "absolute path. Please specify ".
+                                        "an absolute path\n");
+                $default = $absans;
+                next PROMPT;
+            }
+            eval { File::Path::mkpath($ans); }; # dies if it can't
+            if ($@) {
+                $CPAN::Frontend->mywarn("Couldn't create directory $ans.\n".
+                                        "Please retry.\n");
+                next PROMPT;
+            }
+            if (-d $ans && -w _) {
+                last PROMPT;
+            } else {
+                $CPAN::Frontend->mywarn("Couldn't find directory $ans\n".
+                                        "or directory is not writable. Please retry.\n");
+                if (++$loop > 5) {
+                    $CPAN::Frontend->mydie("Giving up");
+                }
+            }
+        }
+        $CPAN::Config->{cpan_home} = $ans;
+    }
+}
+
+sub my_dflt_prompt {
+    my ($item, $dflt, $m, $no_strip) = @_;
+    my $default = $CPAN::Config->{$item} || $dflt;
+
+    if (!$auto_config && (!$m || $item =~ /$m/)) {
+        if (my $intro = $prompts{$item . "_intro"}) {
+            $CPAN::Frontend->myprint($intro);
+        }
+        $CPAN::Frontend->myprint(" <$item>\n");
+        $CPAN::Config->{$item} =
+          $no_strip ? prompt_no_strip($prompts{$item}, $default)
+                    : prompt(         $prompts{$item}, $default);
+    } else {
+        $CPAN::Config->{$item} = $default;
+    }
+    return $CPAN::Config->{$item};
+}
+
+sub my_yn_prompt {
+    my ($item, $dflt, $m) = @_;
+    my $default;
+    defined($default = $CPAN::Config->{$item}) or $default = $dflt;
+
+    # $DB::single = 1;
+    if (!$auto_config && (!$m || $item =~ /$m/)) {
+        if (my $intro = $prompts{$item . "_intro"}) {
+            $CPAN::Frontend->myprint($intro);
+        }
+        $CPAN::Frontend->myprint(" <$item>\n");
+        my $ans = prompt($prompts{$item}, $default ? 'yes' : 'no');
+        $CPAN::Config->{$item} = ($ans =~ /^[y1]/i ? 1 : 0);
+    } else {
+        $CPAN::Config->{$item} = $default;
+    }
+}
+
+sub my_prompt_loop {
+    my ($item, $dflt, $m, $ok) = @_;
+    my $default = $CPAN::Config->{$item} || $dflt;
+    my $ans;
+
+    if (!$auto_config && (!$m || $item =~ /$m/)) {
+        $CPAN::Frontend->myprint($prompts{$item . "_intro"});
+        $CPAN::Frontend->myprint(" <$item>\n");
+        do { $ans = prompt($prompts{$item}, $default);
+        } until $ans =~ /$ok/;
+        $CPAN::Config->{$item} = $ans;
+    } else {
+        $CPAN::Config->{$item} = $default;
+    }
+}
+
+
+# Here's the logic about the MIRRORED.BY file.  There are a number of scenarios:
+# (1) We have a cached MIRRORED.BY file
+#   (1a) We're auto-picking
+#       - Refresh it automatically if it's old
+#   (1b) Otherwise, ask if using cached is ok.  If old, default to no.
+#       - If cached is not ok, get it from the Internet. If it succeeds we use
+#         the new file.  Otherwise, we use the old file.
+# (2) We don't have a copy at all
+#   (2a) If we are allowed to connect, we try to get a new copy.  If it succeeds,
+#        we use it, otherwise, we warn about failure
+#   (2b) If we aren't allowed to connect,
+
+sub conf_sites {
+    my %args = @_;
+    # auto pick implies using the internet
+    $CPAN::Config->{connect_to_internet_ok} = 1 if $args{auto_pick};
+
+    my $m = 'MIRRORED.BY';
+    my $mby = File::Spec->catfile($CPAN::Config->{keep_source_where},$m);
+    File::Path::mkpath(File::Basename::dirname($mby));
+    # Why are we using MIRRORED.BY from the current directory?
+    # Is this for testing? -- dagolden, 2009-11-05
+    if (-f $mby && -f $m && -M $m < -M $mby) {
+        require File::Copy;
+        File::Copy::copy($m,$mby) or die "Could not update $mby: $!";
+    }
+    local $^T = time;
+    # if we have a cached copy is not older than 60 days, we either
+    # use it or refresh it or fall back to it if the refresh failed.
+    if ($mby && -f $mby && -s _ > 0 ) {
+      my $very_old = (-M $mby > 60);
+      my $mtime = localtime((stat _)[9]);
+      # if auto_pick, refresh anything old automatically
+      if ( $args{auto_pick} ) {
+        if ( $very_old ) {
+          $CPAN::Frontend->myprint(qq{Trying to refresh your mirror list\n});
+          eval { CPAN::FTP->localize($m,$mby,3,1) }
+            or $CPAN::Frontend->myprint(qq{Refresh failed.  Using the old cached copy instead.\n});
+          $CPAN::Frontend->myprint("\n");
+        }
+      }
+      else {
+        my $prompt = qq{Found a cached mirror list as of $mtime
+
+If you'd like to just use the cached copy, answer 'yes', below.
+If you'd like an updated copy of the mirror list, answer 'no' and
+I'll get a fresh one from the Internet.
+
+Shall I use the cached mirror list?};
+        my $ans = prompt($prompt, $very_old ? "no" : "yes");
+        if ($ans =~ /^n/i) {
+          $CPAN::Frontend->myprint(qq{Trying to refresh your mirror list\n});
+          # you asked for it from the Internet
+          $CPAN::Config->{connect_to_internet_ok} = 1;
+          eval { CPAN::FTP->localize($m,$mby,3,1) }
+            or $CPAN::Frontend->myprint(qq{Refresh failed.  Using the old cached copy instead.\n});
+          $CPAN::Frontend->myprint("\n");
+        }
+      }
+    }
+    # else there is no cached copy and we must fetch or fail
+    else {
+      # If they haven't agree to connect to the internet, ask again
+      if ( ! $CPAN::Config->{connect_to_internet_ok} ) {
+        my $prompt = q{You are missing a copy of the CPAN mirror list.
+
+May I connect to the Internet to get it?};
+        my $ans = prompt($prompt, "yes");
+        if ($ans =~ /^y/i) {
+          $CPAN::Config->{connect_to_internet_ok} = 1;
+        }
+      }
+
+      # Now get it from the Internet or complain
+      if ( $CPAN::Config->{connect_to_internet_ok} ) {
+        $CPAN::Frontend->myprint(qq{Trying to fetch a mirror list from the Internet\n});
+        eval { CPAN::FTP->localize($m,$mby,3,1) }
+          or $CPAN::Frontend->mywarn(<<'HERE');
+We failed to get a copy of the mirror list from the Internet.
+You will need to provide CPAN mirror URLs yourself.
+HERE
+        $CPAN::Frontend->myprint("\n");
+      }
+      else {
+        $CPAN::Frontend->mywarn(<<'HERE');
+You will need to provide CPAN mirror URLs yourself or set
+'o conf connect_to_internet_ok 1' and try again.
+HERE
+      }
+    }
+
+    # if we finally have a good local MIRRORED.BY, get on with picking
+    if (-f $mby && -s _ > 0){
+        $CPAN::Config->{urllist} =
+          $args{auto_pick} ? auto_mirrored_by($mby) : choose_mirrored_by($mby);
+        return 1;
+    }
+
+    return;
+}
+
+sub find_exe {
+    my($exe,$path) = @_;
+    $path ||= [split /$Config{'path_sep'}/, $ENV{'PATH'}];
+    my($dir);
+    #warn "in find_exe exe[$exe] path[@$path]";
+    for $dir (@$path) {
+        my $abs = File::Spec->catfile($dir,$exe);
+        if (($abs = MM->maybe_command($abs))) {
+            return $abs;
+        }
+    }
+}
+
+sub picklist {
+    my($items,$prompt,$default,$require_nonempty,$empty_warning)=@_;
+    CPAN->debug("picklist('$items','$prompt','$default','$require_nonempty',".
+                "'$empty_warning')") if $CPAN::DEBUG;
+    $default ||= '';
+
+    my $pos = 0;
+
+    my @nums;
+  SELECTION: while (1) {
+
+        # display, at most, 15 items at a time
+        my $limit = $#{ $items } - $pos;
+        $limit = 15 if $limit > 15;
+
+        # show the next $limit items, get the new position
+        $pos = display_some($items, $limit, $pos, $default);
+        $pos = 0 if $pos >= @$items;
+
+        my $num = prompt($prompt,$default);
+
+        @nums = split (' ', $num);
+        {
+            my %seen;
+            @nums = grep { !$seen{$_}++ } @nums;
+        }
+        my $i = scalar @$items;
+        unrangify(\@nums);
+        if (0 == @nums) {
+            # cannot allow nothing because nothing means paging!
+            # return;
+        } elsif (grep (/\D/ || $_ < 1 || $_ > $i, @nums)) {
+            $CPAN::Frontend->mywarn("invalid items entered, try again\n");
+            if ("@nums" =~ /\D/) {
+                $CPAN::Frontend->mywarn("(we are expecting only numbers between 1 and $i)\n");
+            }
+            next SELECTION;
+        }
+        if ($require_nonempty && !@nums) {
+            $CPAN::Frontend->mywarn("$empty_warning\n");
+        }
+
+        # a blank line continues...
+        unless (@nums){
+            $CPAN::Frontend->mysleep(0.1); # prevent hot spinning process on the next bug
+            next SELECTION;
+        }
+        last;
+    }
+    for (@nums) { $_-- }
+    @{$items}[@nums];
+}
+
+sub unrangify ($) {
+    my($nums) = $_[0];
+    my @nums2 = ();
+    while (@{$nums||[]}) {
+        my $n = shift @$nums;
+        if ($n =~ /^(\d+)-(\d+)$/) {
+            my @range = $1 .. $2;
+            # warn "range[@range]";
+            push @nums2, @range;
+        } else {
+            push @nums2, $n;
+        }
+    }
+    push @$nums, @nums2;
+}
+
+sub display_some {
+    my ($items, $limit, $pos, $default) = @_;
+    $pos ||= 0;
+
+    my @displayable = @$items[$pos .. ($pos + $limit)];
+    for my $item (@displayable) {
+        $CPAN::Frontend->myprint(sprintf "(%d) %s\n", ++$pos, $item);
+    }
+    my $hit_what = $default ? "SPACE ENTER" : "ENTER";
+    $CPAN::Frontend->myprint(sprintf("%d more items, hit %s to show them\n",
+                                     (@$items - $pos),
+                                     $hit_what,
+                                    ))
+        if $pos < @$items;
+    return $pos;
+}
+
+sub auto_mirrored_by {
+    my $local = shift or return;
+    local $|=1;
+    $CPAN::Frontend->myprint("Looking for CPAN mirrors near you (please be patient)\n");
+    my $mirrors = CPAN::Mirrors->new($local);
+
+    my $cnt = 0;
+    my @best = $mirrors->best_mirrors(
+      how_many => 3,
+      callback => sub {
+          $CPAN::Frontend->myprint(".");
+          if ($cnt++>60) { $cnt=0; $CPAN::Frontend->myprint("\n"); }
+      },
+    );
+
+    my $urllist = [ map { $_->http } @best ];
+    push @$urllist, grep { /^file:/ } @{$CPAN::Config->{urllist}};
+    $CPAN::Frontend->myprint(" done!\n\n");
+
+    return $urllist
+}
+
+sub choose_mirrored_by {
+    my $local = shift or return;
+    my ($default);
+    my $mirrors = CPAN::Mirrors->new($local);
+    my @previous_urls = @{$CPAN::Config->{urllist}};
+
+    $CPAN::Frontend->myprint($prompts{urls_picker_intro});
+
+    my (@cont, $cont, %cont, @countries, @urls, %seen);
+    my $no_previous_warn =
+        "Sorry! since you don't have any existing picks, you must make a\n" .
+            "geographic selection.";
+    my $offer_cont = [sort $mirrors->continents];
+    if (@previous_urls) {
+        push @$offer_cont, "(edit previous picks)";
+        $default = @$offer_cont;
+    } else {
+        # cannot allow nothing because nothing means paging!
+        # push @$offer_cont, "(none of the above)";
+    }
+    @cont = picklist($offer_cont,
+                     "Select your continent (or several nearby continents)",
+                     $default,
+                     ! @previous_urls,
+                     $no_previous_warn);
+    # cannot allow nothing because nothing means paging!
+    # return unless @cont;
+
+    foreach $cont (@cont) {
+        my @c = sort $mirrors->countries($cont);
+        @cont{@c} = map ($cont, 0..$#c);
+        @c = map ("$_ ($cont)", @c) if @cont > 1;
+        push (@countries, @c);
+    }
+    if (@previous_urls && @countries) {
+        push @countries, "(edit previous picks)";
+        $default = @countries;
+    }
+
+    if (@countries) {
+        @countries = picklist (\@countries,
+                               "Select your country (or several nearby countries)",
+                               $default,
+                               ! @previous_urls,
+                               $no_previous_warn);
+        %seen = map (($_ => 1), @previous_urls);
+        # hmmm, should take list of defaults from CPAN::Config->{'urllist'}...
+        foreach my $country (@countries) {
+            next if $country =~ /edit previous picks/;
+            (my $bare_country = $country) =~ s/ \(.*\)//;
+            my @u;
+            for my $m ( $mirrors->mirrors($bare_country) ) {
+              push @u, $m->ftp if $m->ftp;
+              push @u, $m->http if $m->http;
+            }
+            @u = grep (! $seen{$_}, @u);
+            @u = map ("$_ ($bare_country)", @u)
+                if @countries > 1;
+            push (@urls, sort @u);
+        }
+    }
+    push (@urls, map ("$_ (previous pick)", @previous_urls));
+    my $prompt = "Select as many URLs as you like (by number),
+put them on one line, separated by blanks, hyphenated ranges allowed
+ e.g. '1 4 5' or '7 1-4 8'";
+    if (@previous_urls) {
+        $default = join (' ', ((scalar @urls) - (scalar @previous_urls) + 1) ..
+                         (scalar @urls));
+        $prompt .= "\n(or just hit ENTER to keep your previous picks)";
+    }
+
+    @urls = picklist (\@urls, $prompt, $default);
+    foreach (@urls) { s/ \(.*\)//; }
+    return [ @urls ];
+}
+
+sub bring_your_own {
+    my $urllist = [ @{$CPAN::Config->{urllist}} ];
+    my %seen = map (($_ => 1), @$urllist);
+    my($ans,@urls);
+    my $eacnt = 0; # empty answers
+    $CPAN::Frontend->myprint(<<'HERE');
+Now you can enter your own CPAN URLs by hand. A local CPAN mirror can be
+listed using a 'file:' URL like 'file:///path/to/cpan/'
+
+HERE
+    do {
+        my $prompt = "Enter another URL or ENTER to quit:";
+        unless (%seen) {
+            $prompt = qq{CPAN.pm needs at least one URL where it can fetch CPAN files from.
+
+Please enter your CPAN site:};
+        }
+        $ans = prompt ($prompt, "");
+
+        if ($ans) {
+            $ans =~ s|/?\z|/|; # has to end with one slash
+            # XXX This manipulation is odd.  Shouldn't we check that $ans is
+            # a directory before converting to file:///?  And we need /// below,
+            # too, don't we?  -- dagolden, 2009-11-05
+            $ans = "file:$ans" unless $ans =~ /:/; # without a scheme is a file:
+            if ($ans =~ /^\w+:\/./) {
+                push @urls, $ans unless $seen{$ans}++;
+            } else {
+                $CPAN::Frontend->
+                    myprint(sprintf(qq{"%s" doesn\'t look like an URL at first sight.
+I\'ll ignore it for now.
+You can add it to your %s
+later if you\'re sure it\'s right.\n},
+                                   $ans,
+                                   $INC{'CPAN/MyConfig.pm'}
+                                   || $INC{'CPAN/Config.pm'}
+                                   || "configuration file",
+                                  ));
+            }
+        } else {
+            if (++$eacnt >= 5) {
+                $CPAN::Frontend->
+                    mywarn("Giving up.\n");
+                $CPAN::Frontend->mysleep(5);
+                return;
+            }
+        }
+    } while $ans || !%seen;
+
+    @$urllist = CPAN::_uniq(@$urllist, @urls);
+    $CPAN::Config->{urllist} = $urllist;
+}
+
+sub _print_urllist {
+    my ($which) = @_;
+    $CPAN::Frontend->myprint("$which urllist\n");
+    for ( @{$CPAN::Config->{urllist} || []} ) {
+      $CPAN::Frontend->myprint("  $_\n")
+    };
+}
+
+sub _can_write_to_libdirs {
+    return -w $Config{installprivlib}
+        && -w $Config{installarchlib}
+        && -w $Config{installsitelib}
+        && -w $Config{installsitearch}
+}
+
+sub _using_installbase {
+    return 1 if $ENV{PERL_MM_OPT} && $ENV{PERL_MM_OPT} =~ /install_base/i;
+    return 1 if grep { ($CPAN::Config->{$_}||q{}) =~ /install_base/i }
+        qw(makepl_arg make_install_arg mbuildpl_arg mbuild_install_arg);
+    return;
+}
+
+sub _using_sudo {
+    return 1 if grep { ($CPAN::Config->{$_}||q{}) =~ /sudo/ }
+        qw(make_install_make_command mbuild_install_build_command);
+    return;
+}
+
+sub _strip_spaces {
+    $_[0] =~ s/^\s+//;  # no leading spaces
+    $_[0] =~ s/\s+\z//; # no trailing spaces
+}
+
+sub prompt ($;$) {
+    unless (defined &_real_prompt) {
+        *_real_prompt = \&CPAN::Shell::colorable_makemaker_prompt;
+    }
+    my $ans = _real_prompt(@_);
+
+    _strip_spaces($ans);
+    $CPAN::Frontend->myprint("\n") unless $auto_config;
+
+    return $ans;
+}
+
+
+sub prompt_no_strip ($;$) {
+    unless (defined &_real_prompt) {
+        *_real_prompt = \&CPAN::Shell::colorable_makemaker_prompt;
+    }
+    return _real_prompt(@_);
+}
+
+
+
+1;
diff --git a/lib/5.24.1/CPAN/HTTP/Client.pm b/lib/5.24.1/CPAN/HTTP/Client.pm
new file mode 100644
index 00000000..4fc792c2
--- /dev/null
+++ b/lib/5.24.1/CPAN/HTTP/Client.pm
@@ -0,0 +1,254 @@
+# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
+# vim: ts=4 sts=4 sw=4:
+package CPAN::HTTP::Client;
+use strict;
+use vars qw(@ISA);
+use CPAN::HTTP::Credentials;
+use HTTP::Tiny 0.005;
+
+$CPAN::HTTP::Client::VERSION = $CPAN::HTTP::Client::VERSION = "1.9601";
+
+# CPAN::HTTP::Client is adapted from parts of cpanm by Tatsuhiko Miyagawa
+# and parts of LWP by Gisle Aas
+
+sub new {
+    my $class = shift;
+    my %args = @_;
+    for my $k ( keys %args ) {
+        $args{$k} = '' unless defined $args{$k};
+    }
+    $args{no_proxy} = [split(",", $args{no_proxy}) ] if $args{no_proxy};
+    return bless \%args, $class;
+}
+
+# This executes a request with redirection (up to 5) and returns the
+# response structure generated by HTTP::Tiny
+#
+# If authentication fails, it will attempt to get new authentication
+# information and repeat up to 5 times
+
+sub mirror {
+    my($self, $uri, $path) = @_;
+
+    my $want_proxy = $self->_want_proxy($uri);
+    my $http = HTTP::Tiny->new(
+        $want_proxy ? (proxy => $self->{proxy}) : ()
+    );
+
+    my ($response, %headers);
+    my $retries = 0;
+    while ( $retries++ < 5 ) {
+        $response = $http->mirror( $uri, $path, {headers => \%headers} );
+        if ( $response->{status} eq '401' ) {
+            last unless $self->_get_auth_params( $response, 'non_proxy' );
+        }
+        elsif ( $response->{status} eq '407' ) {
+            last unless $self->_get_auth_params( $response, 'proxy' );
+        }
+        else {
+            last; # either success or failure
+        }
+        my %headers = (
+            $self->_auth_headers( $uri, 'non_proxy' ),
+            ( $want_proxy ? $self->_auth_headers($uri, 'proxy') : () ),
+        );
+    }
+
+    return $response;
+}
+
+sub _want_proxy {
+    my ($self, $uri) = @_;
+    return unless $self->{proxy};
+    my($host) = $uri =~ m|://([^/:]+)|;
+    return ! grep { $host =~ /\Q$_\E$/ } @{ $self->{no_proxy} || [] };
+}
+
+# Generates the authentication headers for a given mode
+# C<mode> is 'proxy' or 'non_proxy'
+# C<_${mode}_type> is 'basic' or 'digest'
+# C<_${mode}_params> will be the challenge parameters from the 401/407 headers
+sub _auth_headers {
+    my ($self, $uri, $mode) = @_;
+    # Get names for our mode-specific attributes
+    my ($type_key, $param_key) = map {"_" . $mode . $_} qw/_type _params/;
+
+    # If _prepare_auth has not been called, we can't prepare headers
+    return unless $self->{$type_key};
+
+    # Get user credentials for mode
+    my $cred_method = "get_" . ($mode ? "proxy" : "non_proxy") ."_credentials";
+    my ($user, $pass) = CPAN::HTTP::Credentials->$cred_method;
+
+    # Generate the header for the mode & type
+    my $header = $mode eq 'proxy' ? 'Proxy-Authorization' : 'Authorization';
+    my $value_method = "_" . $self->{$type_key} . "_auth";
+    my $value = $self->$value_method($user, $pass, $self->{$param_key}, $uri);
+
+    # If we didn't get a value, we didn't have the right modules available
+    return $value ? ( $header, $value ) : ();
+}
+
+# Extract authentication parameters from headers, but clear any prior
+# credentials if we failed (so we might prompt user for password again)
+sub _get_auth_params {
+    my ($self, $response, $mode) = @_;
+    my $prefix = $mode eq 'proxy' ? 'Proxy' : 'WWW';
+    my ($type_key, $param_key) = map {"_" . $mode . $_} qw/_type _params/;
+    if ( ! $response->{success} ) { # auth failed
+        my $method = "clear_${mode}_credentials";
+        CPAN::HTTP::Credentials->$method;
+        delete $self->{$_} for $type_key, $param_key;
+    }
+    ($self->{$type_key}, $self->{$param_key}) =
+        $self->_get_challenge( $response, "${prefix}-Authenticate");
+    return $self->{$type_key};
+}
+
+# Extract challenge type and parameters for a challenge list
+sub _get_challenge {
+    my ($self, $response, $auth_header) = @_;
+
+    my $auth_list = $response->{headers}(lc $auth_header);
+    return unless defined $auth_list;
+    $auth_list = [$auth_list] unless ref $auth_list;
+
+    for my $challenge (@$auth_list) {
+        $challenge =~ tr/,/;/;  # "," is used to separate auth-params!!
+        ($challenge) = $self->split_header_words($challenge);
+        my $scheme = shift(@$challenge);
+        shift(@$challenge); # no value
+        $challenge = { @$challenge };  # make rest into a hash
+
+        unless ($scheme =~ /^(basic|digest)$/) {
+            next; # bad scheme
+        }
+        $scheme = $1;  # untainted now
+
+        return ($scheme, $challenge);
+    }
+    return;
+}
+
+# Generate a basic authentication header value
+sub _basic_auth {
+    my ($self, $user, $pass) = @_;
+    unless ( $CPAN::META->has_usable('MIME::Base64') ) {
+        $CPAN::Frontend->mywarn(
+            "MIME::Base64 is required for 'Basic' style authentication"
+        );
+        return;
+    }
+    return "Basic " . MIME::Base64::encode_base64("$user\:$pass", q{});
+}
+
+# Generate a digest authentication header value
+sub _digest_auth {
+    my ($self, $user, $pass, $auth_param, $uri) = @_;
+    unless ( $CPAN::META->has_usable('Digest::MD5') ) {
+        $CPAN::Frontend->mywarn(
+            "Digest::MD5 is required for 'Digest' style authentication"
+        );
+        return;
+    }
+
+    my $nc = sprintf "%08X", ++$self->{_nonce_count}{$auth_param->{nonce}};
+    my $cnonce = sprintf "%8x", time;
+
+    my ($path) = $uri =~ m{^\w+?://[^/]+(/.*)$};
+    $path = "/" unless defined $path;
+
+    my $md5 = Digest::MD5->new;
+
+    my(@digest);
+    $md5->add(join(":", $user, $auth_param->{realm}, $pass));
+    push(@digest, $md5->hexdigest);
+    $md5->reset;
+
+    push(@digest, $auth_param->{nonce});
+
+    if ($auth_param->{qop}) {
+        push(@digest, $nc, $cnonce, ($auth_param->{qop} =~ m|^auth[,;]auth-int$|) ? 'auth' : $auth_param->{qop});
+    }
+
+    $md5->add(join(":", 'GET', $path));
+    push(@digest, $md5->hexdigest);
+    $md5->reset;
+
+    $md5->add(join(":", @digest));
+    my($digest) = $md5->hexdigest;
+    $md5->reset;
+
+    my %resp = map { $_ => $auth_param->{$_} } qw(realm nonce opaque);
+    @resp{qw(username uri response algorithm)} = ($user, $path, $digest, "MD5");
+
+    if (($auth_param->{qop} || "") =~ m|^auth([,;]auth-int)?$|) {
+        @resp{qw(qop cnonce nc)} = ("auth", $cnonce, $nc);
+    }
+
+    my(@order) =
+        qw(username realm qop algorithm uri nonce nc cnonce response opaque);
+    my @pairs;
+    for (@order) {
+        next unless defined $resp{$_};
+        push(@pairs, "$_=" . qq("$resp{$_}"));
+    }
+
+    my $auth_value  = "Digest " . join(", ", @pairs);
+    return $auth_value;
+}
+
+# split_header_words adapted from HTTP::Headers::Util
+sub split_header_words {
+    my ($self, @words) = @_;
+    my @res = $self->_split_header_words(@words);
+    for my $arr (@res) {
+        for (my $i = @$arr - 2; $i >= 0; $i -= 2) {
+            $arr->[$i] = lc($arr->[$i]);
+        }
+    }
+    return @res;
+}
+
+sub _split_header_words {
+    my($self, @val) = @_;
+    my @res;
+    for (@val) {
+        my @cur;
+        while (length) {
+            if (s/^\s*(=*[^\s=;,]+)//) {  # 'token' or parameter 'attribute'
+                push(@cur, $1);
+                # a quoted value
+                if (s/^\s*=\s*\"([^\"\\]*(?:\\.[^\"\\]*)*)\"//) {
+                    my $val = $1;
+                    $val =~ s/\\(.)/$1/g;
+                    push(@cur, $val);
+                    # some unquoted value
+                }
+                elsif (s/^\s*=\s*([^;,\s]*)//) {
+                    my $val = $1;
+                    $val =~ s/\s+$//;
+                    push(@cur, $val);
+                    # no value, a lone token
+                }
+                else {
+                    push(@cur, undef);
+                }
+            }
+            elsif (s/^\s*,//) {
+                push(@res, [@cur]) if @cur;
+                @cur = ();
+            }
+            elsif (s/^\s*;// || s/^\s+//) {
+                # continue
+            }
+            else {
+                die "This should not happen: '$_'";
+            }
+        }
+        push(@res, \@cur) if @cur;
+    }
+    @res;
+}
+
+1;
diff --git a/lib/5.24.1/CPAN/HTTP/Credentials.pm b/lib/5.24.1/CPAN/HTTP/Credentials.pm
new file mode 100644
index 00000000..96a98800
--- /dev/null
+++ b/lib/5.24.1/CPAN/HTTP/Credentials.pm
@@ -0,0 +1,91 @@
+# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
+# vim: ts=4 sts=4 sw=4:
+package CPAN::HTTP::Credentials;
+use strict;
+use vars qw($USER $PASSWORD $PROXY_USER $PROXY_PASSWORD);
+
+$CPAN::HTTP::Credentials::VERSION = $CPAN::HTTP::Credentials::VERSION = "1.9601";
+
+sub clear_credentials {
+   clear_non_proxy_credentials();
+   clear_proxy_credentials();
+}
+
+sub clear_non_proxy_credentials {
+    undef $USER;
+    undef $PASSWORD;
+}
+
+sub clear_proxy_credentials {
+    undef $PROXY_USER;
+    undef $PROXY_PASSWORD;
+}
+
+sub get_proxy_credentials {
+    my $self = shift;
+    if ($PROXY_USER && $PROXY_PASSWORD) {
+        return ($PROXY_USER, $PROXY_PASSWORD);
+    }
+    if ( defined $CPAN::Config->{proxy_user}
+            && $CPAN::Config->{proxy_user}
+    ) {
+        $PROXY_USER = $CPAN::Config->{proxy_user};
+        $PROXY_PASSWORD = $CPAN::Config->{proxy_pass} || "";
+        return ($PROXY_USER, $PROXY_PASSWORD);
+    }
+    my $username_prompt = "\nProxy authentication needed!
+ (Note: to permanently configure username and password run
+   o conf proxy_user your_username
+   o conf proxy_pass your_password
+     )\nUsername:";
+    ($PROXY_USER, $PROXY_PASSWORD) =
+        _get_username_and_password_from_user($username_prompt);
+    return ($PROXY_USER,$PROXY_PASSWORD);
+}
+
+sub get_non_proxy_credentials {
+    my $self = shift;
+    if ($USER && $PASSWORD) {
+        return ($USER, $PASSWORD);
+    }
+    if ( defined $CPAN::Config->{username} ) {
+        $USER = $CPAN::Config->{username};
+        $PASSWORD = $CPAN::Config->{password} || "";
+        return ($USER, $PASSWORD);
+    }
+    my $username_prompt = "\nAuthentication needed!
+     (Note: to permanently configure username and password run
+       o conf username your_username
+       o conf password your_password
+     )\nUsername:";
+
+    ($USER, $PASSWORD) =
+        _get_username_and_password_from_user($username_prompt);
+    return ($USER,$PASSWORD);
+}
+
+sub _get_username_and_password_from_user {
+    my $username_message = shift;
+    my ($username,$password);
+
+    ExtUtils::MakeMaker->import(qw(prompt));
+    $username = prompt($username_message);
+        if ($CPAN::META->has_inst("Term::ReadKey")) {
+            Term::ReadKey::ReadMode("noecho");
+        }
+    else {
+        $CPAN::Frontend->mywarn(
+            "Warning: Term::ReadKey seems not to be available, your password will be echoed to the terminal!\n"
+        );
+    }
+    $password = prompt("Password:");
+
+        if ($CPAN::META->has_inst("Term::ReadKey")) {
+            Term::ReadKey::ReadMode("restore");
+        }
+        $CPAN::Frontend->myprint("\n\n");
+    return ($username,$password);
+}
+
+1;
+
diff --git a/lib/5.24.1/CPAN/HandleConfig.pm b/lib/5.24.1/CPAN/HandleConfig.pm
new file mode 100644
index 00000000..e596cbcd
--- /dev/null
+++ b/lib/5.24.1/CPAN/HandleConfig.pm
@@ -0,0 +1,799 @@
+package CPAN::HandleConfig;
+use strict;
+use vars qw(%can %keys $loading $VERSION);
+use File::Path ();
+use File::Spec ();
+use File::Basename ();
+use Carp ();
+
+=head1 NAME
+
+CPAN::HandleConfig - internal configuration handling for CPAN.pm
+
+=cut 
+
+$VERSION = "5.5006"; # see also CPAN::Config::VERSION at end of file
+
+%can = (
+        commit   => "Commit changes to disk",
+        defaults => "Reload defaults from disk",
+        help     => "Short help about 'o conf' usage",
+        init     => "Interactive setting of all options",
+);
+
+# Q: where is the "How do I add a new config option" HOWTO?
+# A1: svn diff -r 757:758 # where dagolden added test_report [git e997b71de88f1019a1472fc13cb97b1b7f96610f]
+# A2: svn diff -r 985:986 # where andk added yaml_module [git 312b6d9b12b1bdec0b6e282d853482145475021f]
+# A3: 1. add new config option to %keys below
+#     2. add a Pod description in CPAN::FirstTime; it should include a
+#        prompt line; see others for examples
+#     3. add a "matcher" section in CPAN::FirstTime::init that includes
+#        a prompt function; see others for examples
+#     4. add config option to documentation section in CPAN.pm
+
+%keys = map { $_ => undef }
+    (
+     "applypatch",
+     "auto_commit",
+     "build_cache",
+     "build_dir",
+     "build_dir_reuse",
+     "build_requires_install_policy",
+     "bzip2",
+     "cache_metadata",
+     "check_sigs",
+     "colorize_debug",
+     "colorize_output",
+     "colorize_print",
+     "colorize_warn",
+     "commandnumber_in_prompt",
+     "commands_quote",
+     "connect_to_internet_ok",
+     "cpan_home",
+     "curl",
+     "dontload_hash", # deprecated after 1.83_68 (rev. 581)
+     "dontload_list",
+     "ftp",
+     "ftp_passive",
+     "ftp_proxy",
+     "ftpstats_size",
+     "ftpstats_period",
+     "getcwd",
+     "gpg",
+     "gzip",
+     "halt_on_failure",
+     "histfile",
+     "histsize",
+     "http_proxy",
+     "inactivity_timeout",
+     "index_expire",
+     "inhibit_startup_message",
+     "keep_source_where",
+     "load_module_verbosity",
+     "lynx",
+     "make",
+     "make_arg",
+     "make_install_arg",
+     "make_install_make_command",
+     "makepl_arg",
+     "mbuild_arg",
+     "mbuild_install_arg",
+     "mbuild_install_build_command",
+     "mbuildpl_arg",
+     "ncftp",
+     "ncftpget",
+     "no_proxy",
+     "pager",
+     "password",
+     "patch",
+     "patches_dir",
+     "perl5lib_verbosity",
+     "plugin_list",
+     "prefer_external_tar",
+     "prefer_installer",
+     "prefs_dir",
+     "prerequisites_policy",
+     "proxy_pass",
+     "proxy_user",
+     "randomize_urllist",
+     "recommends_policy",
+     "scan_cache",
+     "shell",
+     "show_unparsable_versions",
+     "show_upload_date",
+     "show_zero_versions",
+     "suggests_policy",
+     "tar",
+     "tar_verbosity",
+     "term_is_latin",
+     "term_ornaments",
+     "test_report",
+     "trust_test_report_history",
+     "unzip",
+     "urllist",
+     "use_prompt_default",
+     "use_sqlite",
+     "username",
+     "version_timeout",
+     "wait_list",
+     "wget",
+     "yaml_load_code",
+     "yaml_module",
+    );
+
+my %prefssupport = map { $_ => 1 }
+    (
+     "build_requires_install_policy",
+     "check_sigs",
+     "make",
+     "make_install_make_command",
+     "prefer_installer",
+     "test_report",
+    );
+
+# returns true on successful action
+sub edit {
+    my($self,@args) = @_;
+    return unless @args;
+    CPAN->debug("self[$self]args[".join(" | ",@args)."]");
+    my($o,$str,$func,$args,$key_exists);
+    $o = shift @args;
+    if($can{$o}) {
+        my $success = $self->$o(args => \@args); # o conf init => sub init => sub load
+        unless ($success) {
+            die "Panic: could not configure CPAN.pm for args [@args]. Giving up.";
+        }
+    } else {
+        CPAN->debug("o[$o]") if $CPAN::DEBUG;
+        unless (exists $keys{$o}) {
+            $CPAN::Frontend->mywarn("Warning: unknown configuration variable '$o'\n");
+        }
+        my $changed;
+
+
+        # one day I used randomize_urllist for a boolean, so we must
+        # list them explicitly --ak
+        if (0) {
+        } elsif ($o =~ /^(wait_list|urllist|dontload_list|plugin_list)$/) {
+
+            #
+            # ARRAYS
+            #
+
+            $func = shift @args;
+            $func ||= "";
+            CPAN->debug("func[$func]args[@args]") if $CPAN::DEBUG;
+            # Let's avoid eval, it's easier to comprehend without.
+            if ($func eq "push") {
+                push @{$CPAN::Config->{$o}}, @args;
+                $changed = 1;
+            } elsif ($func eq "pop") {
+                pop @{$CPAN::Config->{$o}};
+                $changed = 1;
+            } elsif ($func eq "shift") {
+                shift @{$CPAN::Config->{$o}};
+                $changed = 1;
+            } elsif ($func eq "unshift") {
+                unshift @{$CPAN::Config->{$o}}, @args;
+                $changed = 1;
+            } elsif ($func eq "splice") {
+                my $offset = shift @args || 0;
+                my $length = shift @args || 0;
+                splice @{$CPAN::Config->{$o}}, $offset, $length, @args; # may warn
+                $changed = 1;
+            } elsif ($func) {
+                $CPAN::Config->{$o} = [$func, @args];
+                $changed = 1;
+            } else {
+                $self->prettyprint($o);
+            }
+            if ($changed) {
+                if ($o eq "urllist") {
+                    # reset the cached values
+                    undef $CPAN::FTP::Thesite;
+                    undef $CPAN::FTP::Themethod;
+                    $CPAN::Index::LAST_TIME = 0;
+                } elsif ($o eq "dontload_list") {
+                    # empty it, it will be built up again
+                    $CPAN::META->{dontload_hash} = {};
+                }
+            }
+        } elsif ($o =~ /_hash$/) {
+
+            #
+            # HASHES
+            #
+
+            if (@args==1 && $args[0] eq "") {
+                @args = ();
+            } elsif (@args % 2) {
+                push @args, "";
+            }
+            $CPAN::Config->{$o} = { @args };
+            $changed = 1;
+        } else {
+
+            #
+            # SCALARS
+            #
+
+            if (defined $args[0]) {
+                $CPAN::CONFIG_DIRTY = 1;
+                $CPAN::Config->{$o} = $args[0];
+                $changed = 1;
+            }
+            $self->prettyprint($o)
+                if exists $keys{$o} or defined $CPAN::Config->{$o};
+        }
+        if ($changed) {
+            if ($CPAN::Config->{auto_commit}) {
+                $self->commit;
+            } else {
+                $CPAN::CONFIG_DIRTY = 1;
+                $CPAN::Frontend->myprint("Please use 'o conf commit' to ".
+                                         "make the config permanent!\n\n");
+            }
+        }
+    }
+}
+
+sub prettyprint {
+    my($self,$k) = @_;
+    my $v = $CPAN::Config->{$k};
+    if (ref $v) {
+        my(@report);
+        if (ref $v eq "ARRAY") {
+            @report = map {"\t$_ \[$v->[$_]]\n"} 0..$#$v;
+        } else {
+            @report = map
+                {
+                    sprintf "\t%-18s => %s\n",
+                               "[$_]",
+                                        defined $v->{$_} ? "[$v->{$_}]" : "undef"
+                } keys %$v;
+        }
+        $CPAN::Frontend->myprint(
+                                 join(
+                                      "",
+                                      sprintf(
+                                              "    %-18s\n",
+                                              $k
+                                             ),
+                                      @report
+                                     )
+                                );
+    } elsif (defined $v) {
+        $CPAN::Frontend->myprint(sprintf "    %-18s [%s]\n", $k, $v);
+    } else {
+        $CPAN::Frontend->myprint(sprintf "    %-18s undef\n", $k);
+    }
+}
+
+# generally, this should be called without arguments so that the currently
+# loaded config file is where changes are committed.
+sub commit {
+    my($self,@args) = @_;
+    CPAN->debug("args[@args]") if $CPAN::DEBUG;
+    if ($CPAN::RUN_DEGRADED) {
+        $CPAN::Frontend->mydie(
+            "'o conf commit' disabled in ".
+            "degraded mode. Maybe try\n".
+            " !undef \$CPAN::RUN_DEGRADED\n"
+        );
+    }
+    my ($configpm, $must_reload);
+
+    # XXX does anything do this? can it be simplified? -- dagolden, 2011-01-19
+    if (@args) {
+      if ($args[0] eq "args") {
+        # we have not signed that contract
+      } else {
+        $configpm = $args[0];
+      }
+    }
+
+    # use provided name or the current config or create a new MyConfig
+    $configpm ||= require_myconfig_or_config() || make_new_config();
+
+    # commit to MyConfig if we can't write to Config
+    if ( ! -w $configpm && $configpm =~ m{CPAN/Config\.pm} ) {
+        my $myconfig = _new_config_name();
+        $CPAN::Frontend->mywarn(
+            "Your $configpm file\n".
+            "is not writable. I will attempt to write your configuration to\n" .
+            "$myconfig instead.\n\n"
+        );
+        $configpm = make_new_config();
+        $must_reload++; # so it gets loaded as $INC{'CPAN/MyConfig.pm'}
+    }
+
+    # XXX why not just "-w $configpm"? -- dagolden, 2011-01-19
+    my($mode);
+    if (-f $configpm) {
+        $mode = (stat $configpm)[2];
+        if ($mode && ! -w _) {
+            _die_cant_write_config($configpm);
+        }
+    }
+
+    $self->_write_config_file($configpm);
+    require_myconfig_or_config() if $must_reload;
+
+    #$mode = 0444 | ( $mode & 0111 ? 0111 : 0 );
+    #chmod $mode, $configpm;
+###why was that so?    $self->defaults;
+    $CPAN::Frontend->myprint("commit: wrote '$configpm'\n");
+    $CPAN::CONFIG_DIRTY = 0;
+    1;
+}
+
+sub _write_config_file {
+    my ($self, $configpm) = @_;
+    my $msg;
+    $msg = <<EOF if $configpm =~ m{CPAN/Config\.pm};
+
+# This is CPAN.pm's systemwide configuration file. This file provides
+# defaults for users, and the values can be changed in a per-user
+# configuration file.
+
+EOF
+    $msg ||= "\n";
+    my($fh) = FileHandle->new;
+    rename $configpm, "$configpm~" if -f $configpm;
+    open $fh, ">$configpm" or
+        $CPAN::Frontend->mydie("Couldn't open >$configpm: $!");
+    $fh->print(qq[$msg\$CPAN::Config = \{\n]);
+    foreach (sort keys %$CPAN::Config) {
+        unless (exists $keys{$_}) {
+            # do not drop them: forward compatibility!
+            $CPAN::Frontend->mywarn("Unknown config variable '$_'\n");
+            next;
+        }
+        $fh->print(
+            "  '$_' => ",
+            $self->neatvalue($CPAN::Config->{$_}),
+            ",\n"
+        );
+    }
+    $fh->print("};\n1;\n__END__\n");
+    close $fh;
+
+    return;
+}
+
+
+# stolen from MakeMaker; not taking the original because it is buggy;
+# bugreport will have to say: keys of hashes remain unquoted and can
+# produce syntax errors
+sub neatvalue {
+    my($self, $v) = @_;
+    return "undef" unless defined $v;
+    my($t) = ref $v;
+    unless ($t) {
+        $v =~ s/\\/\\\\/g;
+        return "q[$v]";
+    }
+    if ($t eq 'ARRAY') {
+        my(@m, @neat);
+        push @m, "[";
+        foreach my $elem (@$v) {
+            push @neat, "q[$elem]";
+        }
+        push @m, join ", ", @neat;
+        push @m, "]";
+        return join "", @m;
+    }
+    return "$v" unless $t eq 'HASH';
+    my(@m, $key, $val);
+    while (($key,$val) = each %$v) {
+        last unless defined $key; # cautious programming in case (undef,undef) is true
+        push(@m,"q[$key]=>".$self->neatvalue($val)) ;
+    }
+    return "{ ".join(', ',@m)." }";
+}
+
+sub defaults {
+    my($self) = @_;
+    if ($CPAN::RUN_DEGRADED) {
+                             $CPAN::Frontend->mydie(
+                                                    "'o conf defaults' disabled in ".
+                                                    "degraded mode. Maybe try\n".
+                                                    " !undef \$CPAN::RUN_DEGRADED\n"
+                                                   );
+    }
+    my $done;
+    for my $config (qw(CPAN/MyConfig.pm CPAN/Config.pm)) {
+        if ($INC{$config}) {
+            CPAN->debug("INC{'$config'}[$INC{$config}]") if $CPAN::DEBUG;
+            CPAN::Shell->_reload_this($config,{reloforce => 1});
+            $CPAN::Frontend->myprint("'$INC{$config}' reread\n");
+            last;
+        }
+    }
+    $CPAN::CONFIG_DIRTY = 0;
+    1;
+}
+
+=head2 C<< CLASS->safe_quote ITEM >>
+
+Quotes an item to become safe against spaces
+in shell interpolation. An item is enclosed
+in double quotes if:
+
+  - the item contains spaces in the middle
+  - the item does not start with a quote
+
+This happens to avoid shell interpolation
+problems when whitespace is present in
+directory names.
+
+This method uses C<commands_quote> to determine
+the correct quote. If C<commands_quote> is
+a space, no quoting will take place.
+
+
+if it starts and ends with the same quote character: leave it as it is
+
+if it contains no whitespace: leave it as it is
+
+if it contains whitespace, then
+
+if it contains quotes: better leave it as it is
+
+else: quote it with the correct quote type for the box we're on
+
+=cut
+
+{
+    # Instead of patching the guess, set commands_quote
+    # to the right value
+    my ($quotes,$use_quote)
+        = $^O eq 'MSWin32'
+            ? ('"', '"')
+                : (q{"'}, "'")
+                    ;
+
+    sub safe_quote {
+        my ($self, $command) = @_;
+        # Set up quote/default quote
+        my $quote = $CPAN::Config->{commands_quote} || $quotes;
+
+        if ($quote ne ' '
+            and defined($command )
+            and $command =~ /\s/
+            and $command !~ /[$quote]/) {
+            return qq<$use_quote$command$use_quote>
+        }
+        return $command;
+    }
+}
+
+sub init {
+    my($self,@args) = @_;
+    CPAN->debug("self[$self]args[".join(",",@args)."]");
+    $self->load(do_init => 1, @args);
+    1;
+}
+
+# Loads CPAN::MyConfig or fall-back to CPAN::Config. Will not reload a file
+# if already loaded. Returns the path to the file %INC or else the empty string
+#
+# Note -- if CPAN::Config were loaded and CPAN::MyConfig subsequently
+# created, calling this again will leave *both* in %INC
+
+sub require_myconfig_or_config () {
+    if (   $INC{"CPAN/MyConfig.pm"} || _try_loading("CPAN::MyConfig", cpan_home())) {
+        return $INC{"CPAN/MyConfig.pm"};
+    }
+    elsif ( $INC{"CPAN/Config.pm"} || _try_loading("CPAN::Config") ) {
+        return $INC{"CPAN/Config.pm"};
+    }
+    else {
+        return q{};
+    }
+}
+
+# Load a module, but ignore "can't locate..." errors
+# Optionally take a list of directories to add to @INC for the load
+sub _try_loading {
+    my ($module, @dirs) = @_;
+    (my $file = $module) =~ s{::}{/}g;
+    $file .= ".pm";
+
+    local @INC = @INC;
+    for my $dir ( @dirs ) {
+        if ( -f File::Spec->catfile($dir, $file) ) {
+            unshift @INC, $dir;
+            last;
+        }
+    }
+
+    eval { require $file };
+    my $err_myconfig = $@;
+    if ($err_myconfig and $err_myconfig !~ m#locate \Q$file\E#) {
+        die "Error while requiring ${module}:\n$err_myconfig";
+    }
+    return $INC{$file};
+}
+
+# prioritized list of possible places for finding "CPAN/MyConfig.pm"
+sub cpan_home_dir_candidates {
+    my @dirs;
+    my $old_v = $CPAN::Config->{load_module_verbosity};
+    $CPAN::Config->{load_module_verbosity} = q[none];
+    if ($CPAN::META->has_usable('File::HomeDir')) {
+        if ($^O ne 'darwin') {
+            push @dirs, File::HomeDir->my_data;
+            # my_data is ~/Library/Application Support on darwin,
+            # which causes issues in the toolchain.
+        }
+        push @dirs, File::HomeDir->my_home;
+    }
+    # Windows might not have HOME, so check it first
+    push @dirs, $ENV{HOME} if $ENV{HOME};
+    # Windows might have these instead
+    push( @dirs, File::Spec->catpath($ENV{HOMEDRIVE}, $ENV{HOMEPATH}, '') )
+      if $ENV{HOMEDRIVE} && $ENV{HOMEPATH};
+    push @dirs, $ENV{USERPROFILE} if $ENV{USERPROFILE};
+
+    $CPAN::Config->{load_module_verbosity} = $old_v;
+    my $dotcpan = $^O eq 'VMS' ? '_cpan' : '.cpan';
+    @dirs = map { File::Spec->catdir($_, $dotcpan) } grep { defined } @dirs;
+    return wantarray ? @dirs : $dirs[0];
+}
+
+sub load {
+    my($self, %args) = @_;
+    $CPAN::Be_Silent+=0; # protect against 'used only once'
+    $CPAN::Be_Silent++ if $args{be_silent}; # do not use; planned to be removed in 2011
+    my $do_init = delete $args{do_init} || 0;
+    my $make_myconfig = delete $args{make_myconfig};
+    $loading = 0 unless defined $loading;
+
+    my $configpm = require_myconfig_or_config;
+    my @miss = $self->missing_config_data;
+    CPAN->debug("do_init[$do_init]loading[$loading]miss[@miss]") if $CPAN::DEBUG;
+    return unless $do_init || @miss;
+
+    # I'm not how we'd ever wind up in a recursive loop, but I'm leaving
+    # this here for safety's sake -- dagolden, 2011-01-19
+    return if $loading;
+    local $loading = ($loading||0) + 1;
+
+    # Warn if we have a config file, but things were found missing
+    if ($configpm && @miss && !$do_init) {
+        if ($make_myconfig || ( ! -w $configpm && $configpm =~ m{CPAN/Config\.pm})) {
+            $configpm = make_new_config();
+            $CPAN::Frontend->myprint(<<END);
+The system CPAN configuration file has provided some default values,
+but you need to complete the configuration dialog for CPAN.pm.
+Configuration will be written to
+ <<$configpm>>
+END
+        }
+        else {
+            $CPAN::Frontend->myprint(<<END);
+Sorry, we have to rerun the configuration dialog for CPAN.pm due to
+some missing parameters. Configuration will be written to
+ <<$configpm>>
+
+END
+        }
+    }
+
+    require CPAN::FirstTime;
+    return CPAN::FirstTime::init($configpm || make_new_config(), %args);
+}
+
+# Creates a new, empty config file at the preferred location
+# Any existing will be renamed with a ".bak" suffix if possible
+# If the file cannot be created, an exception is thrown
+sub make_new_config {
+    my $configpm = _new_config_name();
+    my $configpmdir = File::Basename::dirname( $configpm );
+    File::Path::mkpath($configpmdir) unless -d $configpmdir;
+
+    if ( -w $configpmdir ) {
+        #_#_# following code dumped core on me with 5.003_11, a.k.
+        if( -f $configpm ) {
+            my $configpm_bak = "$configpm.bak";
+            unlink $configpm_bak if -f $configpm_bak;
+            if( rename $configpm, $configpm_bak ) {
+                $CPAN::Frontend->mywarn(<<END);
+Old configuration file $configpm
+    moved to $configpm_bak
+END
+            }
+        }
+        my $fh = FileHandle->new;
+        if ($fh->open(">$configpm")) {
+            $fh->print("1;\n");
+            return $configpm;
+        }
+    }
+    _die_cant_write_config($configpm);
+}
+
+sub _die_cant_write_config {
+    my ($configpm) = @_;
+    $CPAN::Frontend->mydie(<<"END");
+WARNING: CPAN.pm is unable to write a configuration file.  You
+must be able to create and write to '$configpm'.
+
+Aborting configuration.
+END
+
+}
+
+# From candidate directories, we would like (in descending preference order):
+#   * the one that contains a MyConfig file
+#   * one that exists (even without MyConfig)
+#   * the first one on the list
+sub cpan_home {
+    my @dirs = cpan_home_dir_candidates();
+    for my $d (@dirs) {
+        return $d if -f "$d/CPAN/MyConfig.pm";
+    }
+    for my $d (@dirs) {
+        return $d if -d $d;
+    }
+    return $dirs[0];
+}
+
+sub _new_config_name {
+    return File::Spec->catfile(cpan_home(), 'CPAN', 'MyConfig.pm');
+}
+
+# returns mandatory but missing entries in the Config
+sub missing_config_data {
+    my(@miss);
+    for (
+         "auto_commit",
+         "build_cache",
+         "build_dir",
+         "cache_metadata",
+         "cpan_home",
+         "ftp_proxy",
+         #"gzip",
+         "http_proxy",
+         "index_expire",
+         #"inhibit_startup_message",
+         "keep_source_where",
+         #"make",
+         "make_arg",
+         "make_install_arg",
+         "makepl_arg",
+         "mbuild_arg",
+         "mbuild_install_arg",
+         ($^O eq "MSWin32" ? "" : "mbuild_install_build_command"),
+         "mbuildpl_arg",
+         "no_proxy",
+         #"pager",
+         "prerequisites_policy",
+         "scan_cache",
+         #"tar",
+         #"unzip",
+         "urllist",
+        ) {
+        next unless exists $keys{$_};
+        push @miss, $_ unless defined $CPAN::Config->{$_};
+    }
+    return @miss;
+}
+
+sub help {
+    $CPAN::Frontend->myprint(q[
+Known options:
+  commit    commit session changes to disk
+  defaults  reload default config values from disk
+  help      this help
+  init      enter a dialog to set all or a set of parameters
+
+Edit key values as in the following (the "o" is a literal letter o):
+  o conf build_cache 15
+  o conf build_dir "/foo/bar"
+  o conf urllist shift
+  o conf urllist unshift ftp://ftp.foo.bar/
+  o conf inhibit_startup_message 1
+
+]);
+    1; #don't reprint CPAN::Config
+}
+
+sub cpl {
+    my($word,$line,$pos) = @_;
+    $word ||= "";
+    CPAN->debug("word[$word] line[$line] pos[$pos]") if $CPAN::DEBUG;
+    my(@words) = split " ", substr($line,0,$pos+1);
+    if (
+        defined($words[2])
+        and
+        $words[2] =~ /list$/
+        and
+        (
+        @words == 3
+        ||
+        @words == 4 && length($word)
+        )
+       ) {
+        return grep /^\Q$word\E/, qw(splice shift unshift pop push);
+    } elsif (defined($words[2])
+             and
+             $words[2] eq "init"
+             and
+            (
+             @words == 3
+             ||
+             @words >= 4 && length($word)
+            )) {
+        return sort grep /^\Q$word\E/, keys %keys;
+    } elsif (@words >= 4) {
+        return ();
+    }
+    my %seen;
+    my(@o_conf) =  sort grep { !$seen{$_}++ }
+        keys %can,
+            keys %$CPAN::Config,
+                keys %keys;
+    return grep /^\Q$word\E/, @o_conf;
+}
+
+sub prefs_lookup {
+    my($self,$distro,$what) = @_;
+
+    if ($prefssupport{$what}) {
+        return $CPAN::Config->{$what} unless
+            $distro
+                and $distro->prefs
+                    and $distro->prefs->{cpanconfig}
+                        and defined $distro->prefs->{cpanconfig}{$what};
+        return $distro->prefs->{cpanconfig}{$what};
+    } else {
+        $CPAN::Frontend->mywarn("Warning: $what not yet officially ".
+                                "supported for distroprefs, doing a normal lookup");
+        return $CPAN::Config->{$what};
+    }
+}
+
+
+{
+    package
+        CPAN::Config; ####::###### #hide from indexer
+    # note: J. Nick Koston wrote me that they are using
+    # CPAN::Config->commit although undocumented. I suggested
+    # CPAN::Shell->o("conf","commit") even when ugly it is at least
+    # documented
+
+    # that's why I added the CPAN::Config class with autoload and
+    # deprecated warning
+
+    use strict;
+    use vars qw($AUTOLOAD $VERSION);
+    $VERSION = "5.5006";
+
+    # formerly CPAN::HandleConfig was known as CPAN::Config
+    sub AUTOLOAD { ## no critic
+        my $class = shift; # e.g. in dh-make-perl: CPAN::Config
+        my($l) = $AUTOLOAD;
+        $CPAN::Frontend->mywarn("Dispatching deprecated method '$l' to CPAN::HandleConfig\n");
+        $l =~ s/.*:://;
+        CPAN::HandleConfig->$l(@_);
+    }
+}
+
+1;
+
+__END__
+
+=head1 LICENSE
+
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+=cut
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# End:
+# vim: ts=4 sts=4 sw=4:
diff --git a/lib/5.24.1/CPAN/Index.pm b/lib/5.24.1/CPAN/Index.pm
new file mode 100644
index 00000000..8205d78b
--- /dev/null
+++ b/lib/5.24.1/CPAN/Index.pm
@@ -0,0 +1,626 @@
+package CPAN::Index;
+use strict;
+use vars qw($LAST_TIME $DATE_OF_02 $DATE_OF_03 $HAVE_REANIMATED $VERSION);
+$VERSION = "1.9601";
+@CPAN::Index::ISA = qw(CPAN::Debug);
+$LAST_TIME ||= 0;
+$DATE_OF_03 ||= 0;
+# use constant PROTOCOL => "2.0"; # commented out to avoid warning on upgrade from 1.57
+sub PROTOCOL { 2.0 }
+
+#-> sub CPAN::Index::force_reload ;
+sub force_reload {
+    my($class) = @_;
+    $CPAN::Index::LAST_TIME = 0;
+    $class->reload(1);
+}
+
+my @indexbundle =
+    (
+     {
+      reader => "rd_authindex",
+      dir => "authors",
+      remotefile => '01mailrc.txt.gz',
+      shortlocalfile => '01mailrc.gz',
+     },
+     {
+      reader => "rd_modpacks",
+      dir => "modules",
+      remotefile => '02packages.details.txt.gz',
+      shortlocalfile => '02packag.gz',
+     },
+     {
+      reader => "rd_modlist",
+      dir => "modules",
+      remotefile => '03modlist.data.gz',
+      shortlocalfile => '03mlist.gz',
+     },
+    );
+
+#-> sub CPAN::Index::reload ;
+sub reload {
+    my($self,$force) = @_;
+    my $time = time;
+
+    # XXX check if a newer one is available. (We currently read it
+    # from time to time)
+    for ($CPAN::Config->{index_expire}) {
+        $_ = 0.001 unless $_ && $_ > 0.001;
+    }
+    unless (1 || $CPAN::Have_warned->{readmetadatacache}++) {
+        # debug here when CPAN doesn't seem to read the Metadata
+        require Carp;
+        Carp::cluck("META-PROTOCOL[$CPAN::META->{PROTOCOL}]");
+    }
+    unless ($CPAN::META->{PROTOCOL}) {
+        $self->read_metadata_cache;
+        $CPAN::META->{PROTOCOL} ||= "1.0";
+    }
+    if ( $CPAN::META->{PROTOCOL} < PROTOCOL  ) {
+        # warn "Setting last_time to 0";
+        $LAST_TIME = 0; # No warning necessary
+    }
+    if ($LAST_TIME + $CPAN::Config->{index_expire}*86400 > $time
+        and ! $force) {
+        # called too often
+        # CPAN->debug("LAST_TIME[$LAST_TIME]index_expire[$CPAN::Config->{index_expire}]time[$time]");
+    } elsif (0) {
+        # IFF we are developing, it helps to wipe out the memory
+        # between reloads, otherwise it is not what a user expects.
+        undef $CPAN::META; # Neue Gruendlichkeit since v1.52(r1.274)
+        $CPAN::META = CPAN->new;
+    } else {
+        my($debug,$t2);
+        local $LAST_TIME = $time;
+        local $CPAN::META->{PROTOCOL} = PROTOCOL;
+
+        my $needshort = $^O eq "dos";
+
+    INX: for my $indexbundle (@indexbundle) {
+            my $reader = $indexbundle->{reader};
+            my $localfile = $needshort ? $indexbundle->{shortlocalfile} : $indexbundle->{remotefile};
+            my $localpath = File::Spec->catfile($indexbundle->{dir}, $localfile);
+            my $remote = join "/", $indexbundle->{dir}, $indexbundle->{remotefile};
+            my $localized = $self->reload_x($remote, $localpath, $force);
+            $self->$reader($localized); # may die but we let the shell catch it
+            if ($CPAN::DEBUG){
+                $t2 = time;
+                $debug = "timing reading 01[".($t2 - $time)."]";
+                $time = $t2;
+            }
+            return if $CPAN::Signal; # this is sometimes lengthy
+        }
+        $self->write_metadata_cache;
+        if ($CPAN::DEBUG){
+            $t2 = time;
+            $debug .= "03[".($t2 - $time)."]";
+            $time = $t2;
+        }
+        CPAN->debug($debug) if $CPAN::DEBUG;
+    }
+    if ($CPAN::Config->{build_dir_reuse}) {
+        $self->reanimate_build_dir;
+    }
+    if (CPAN::_sqlite_running()) {
+        $CPAN::SQLite->reload(time => $time, force => $force)
+            if not $LAST_TIME;
+    }
+    $LAST_TIME = $time;
+    $CPAN::META->{PROTOCOL} = PROTOCOL;
+}
+
+#-> sub CPAN::Index::reanimate_build_dir ;
+sub reanimate_build_dir {
+    my($self) = @_;
+    unless ($CPAN::META->has_inst($CPAN::Config->{yaml_module}||"YAML")) {
+        return;
+    }
+    return if $HAVE_REANIMATED++;
+    my $d = $CPAN::Config->{build_dir};
+    my $dh = DirHandle->new;
+    opendir $dh, $d or return; # does not exist
+    my $dirent;
+    my $i = 0;
+    my $painted = 0;
+    my $restored = 0;
+    my $start = CPAN::FTP::_mytime();
+    my @candidates = map { $_->[0] }
+        sort { $b->[1] <=> $a->[1] }
+            map { [ $_, -M File::Spec->catfile($d,$_) ] }
+                grep {/(.+)\.yml$/ && -d File::Spec->catfile($d,$1)} readdir $dh;
+    if ( @candidates ) {
+        $CPAN::Frontend->myprint
+            (sprintf("Reading %d yaml file%s from %s/\n",
+                    scalar @candidates,
+                    @candidates==1 ? "" : "s",
+                    $CPAN::Config->{build_dir}
+                    ));
+      DISTRO: for $i (0..$#candidates) {
+            my $dirent = $candidates[$i];
+            my $y = eval {CPAN->_yaml_loadfile(File::Spec->catfile($d,$dirent))};
+            if ($@) {
+                warn "Error while parsing file '$dirent'; error: '$@'";
+                next DISTRO;
+            }
+            my $c = $y->[0];
+            if ($c && $c->{perl} && $c->{distribution} && CPAN->_perl_fingerprint($c->{perl})) {
+                my $key = $c->{distribution}{ID};
+                for my $k (keys %{$c->{distribution}}) {
+                    if ($c->{distribution}{$k}
+                        && ref $c->{distribution}{$k}
+                        && UNIVERSAL::isa($c->{distribution}{$k},"CPAN::Distrostatus")) {
+                        $c->{distribution}{$k}{COMMANDID} = $i - @candidates;
+                    }
+                }
+
+                #we tried to restore only if element already
+                #exists; but then we do not work with metadata
+                #turned off.
+                my $do
+                    = $CPAN::META->{readwrite}{'CPAN::Distribution'}{$key}
+                        = $c->{distribution};
+                for my $skipper (qw(
+                                    badtestcnt
+                                    configure_requires_later
+                                    configure_requires_later_for
+                                    force_update
+                                    later
+                                    later_for
+                                    notest
+                                    should_report
+                                    sponsored_mods
+                                    prefs
+                                    negative_prefs_cache
+                                  )) {
+                    delete $do->{$skipper};
+                }
+                if ($do->can("tested_ok_but_not_installed")) {
+                    if ($do->tested_ok_but_not_installed) {
+                        $CPAN::META->is_tested($do->{build_dir},$do->{make_test}{TIME});
+                    } else {
+                        next DISTRO;
+                    }
+                }
+                $restored++;
+            }
+            $i++;
+            while (($painted/76) < ($i/@candidates)) {
+                $CPAN::Frontend->myprint(".");
+                $painted++;
+            }
+        }
+    }
+    else {
+        $CPAN::Frontend->myprint("Build_dir empty, nothing to restore\n");
+    }
+    my $took = CPAN::FTP::_mytime() - $start;
+    $CPAN::Frontend->myprint(sprintf(
+                                     "DONE\nRestored the state of %s (in %.4f secs)\n",
+                                     $restored || "none",
+                                     $took,
+                                    ));
+}
+
+
+#-> sub CPAN::Index::reload_x ;
+sub reload_x {
+    my($cl,$wanted,$localname,$force) = @_;
+    $force |= 2; # means we're dealing with an index here
+    CPAN::HandleConfig->load; # we should guarantee loading wherever
+                              # we rely on Config XXX
+    $localname ||= $wanted;
+    my $abs_wanted = File::Spec->catfile($CPAN::Config->{'keep_source_where'},
+                                         $localname);
+    if (
+        -f $abs_wanted &&
+        -M $abs_wanted < $CPAN::Config->{'index_expire'} &&
+        !($force & 1)
+       ) {
+        my $s = $CPAN::Config->{'index_expire'} == 1 ? "" : "s";
+        $cl->debug(qq{$abs_wanted younger than $CPAN::Config->{'index_expire'} }.
+                   qq{day$s. I\'ll use that.});
+        return $abs_wanted;
+    } else {
+        $force |= 1; # means we're quite serious about it.
+    }
+    return CPAN::FTP->localize($wanted,$abs_wanted,$force);
+}
+
+#-> sub CPAN::Index::rd_authindex ;
+sub rd_authindex {
+    my($cl, $index_target) = @_;
+    return unless defined $index_target;
+    return if CPAN::_sqlite_running();
+    my @lines;
+    $CPAN::Frontend->myprint("Reading '$index_target'\n");
+    local(*FH);
+    tie *FH, 'CPAN::Tarzip', $index_target;
+    local($/) = "\n";
+    local($_);
+    push @lines, split /\012/ while <FH>;
+    my $i = 0;
+    my $painted = 0;
+    foreach (@lines) {
+        my($userid,$fullname,$email) =
+            m/alias\s+(\S+)\s+\"([^\"\<]*)\s+\<(.*)\>\"/;
+        $fullname ||= $email;
+        if ($userid && $fullname && $email) {
+            my $userobj = $CPAN::META->instance('CPAN::Author',$userid);
+            $userobj->set('FULLNAME' => $fullname, 'EMAIL' => $email);
+        } else {
+            CPAN->debug(sprintf "line[%s]", $_) if $CPAN::DEBUG;
+        }
+        $i++;
+        while (($painted/76) < ($i/@lines)) {
+            $CPAN::Frontend->myprint(".");
+            $painted++;
+        }
+        return if $CPAN::Signal;
+    }
+    $CPAN::Frontend->myprint("DONE\n");
+}
+
+sub userid {
+  my($self,$dist) = @_;
+  $dist = $self->{'id'} unless defined $dist;
+  my($ret) = $dist =~ m|(?:\w/\w\w/)?([^/]+)/|;
+  $ret;
+}
+
+#-> sub CPAN::Index::rd_modpacks ;
+sub rd_modpacks {
+    my($self, $index_target) = @_;
+    return unless defined $index_target;
+    return if CPAN::_sqlite_running();
+    $CPAN::Frontend->myprint("Reading '$index_target'\n");
+    my $fh = CPAN::Tarzip->TIEHANDLE($index_target);
+    local $_;
+    CPAN->debug(sprintf "start[%d]", time) if $CPAN::DEBUG;
+    my $slurp = "";
+    my $chunk;
+    while (my $bytes = $fh->READ(\$chunk,8192)) {
+        $slurp.=$chunk;
+    }
+    my @lines = split /\012/, $slurp;
+    CPAN->debug(sprintf "end[%d]", time) if $CPAN::DEBUG;
+    undef $fh;
+    # read header
+    my($line_count,$last_updated);
+    while (@lines) {
+        my $shift = shift(@lines);
+        last if $shift =~ /^\s*$/;
+        $shift =~ /^Line-Count:\s+(\d+)/ and $line_count = $1;
+        $shift =~ /^Last-Updated:\s+(.+)/ and $last_updated = $1;
+    }
+    CPAN->debug("line_count[$line_count]last_updated[$last_updated]") if $CPAN::DEBUG;
+    my $errors = 0;
+    if (not defined $line_count) {
+
+        $CPAN::Frontend->mywarn(qq{Warning: Your $index_target does not contain a Line-Count header.
+Please check the validity of the index file by comparing it to more
+than one CPAN mirror. I'll continue but problems seem likely to
+happen.\a
+});
+        $errors++;
+        $CPAN::Frontend->mysleep(5);
+    } elsif ($line_count != scalar @lines) {
+
+        $CPAN::Frontend->mywarn(sprintf qq{Warning: Your %s
+contains a Line-Count header of %d but I see %d lines there. Please
+check the validity of the index file by comparing it to more than one
+CPAN mirror. I'll continue but problems seem likely to happen.\a\n},
+$index_target, $line_count, scalar(@lines));
+
+    }
+    if (not defined $last_updated) {
+
+        $CPAN::Frontend->mywarn(qq{Warning: Your $index_target does not contain a Last-Updated header.
+Please check the validity of the index file by comparing it to more
+than one CPAN mirror. I'll continue but problems seem likely to
+happen.\a
+});
+        $errors++;
+        $CPAN::Frontend->mysleep(5);
+    } else {
+
+        $CPAN::Frontend
+            ->myprint(sprintf qq{  Database was generated on %s\n},
+                      $last_updated);
+        $DATE_OF_02 = $last_updated;
+
+        my $age = time;
+        if ($CPAN::META->has_inst('HTTP::Date')) {
+            require HTTP::Date;
+            $age -= HTTP::Date::str2time($last_updated);
+        } else {
+            $CPAN::Frontend->mywarn("  HTTP::Date not available\n");
+            require Time::Local;
+            my(@d) = $last_updated =~ / (\d+) (\w+) (\d+) (\d+):(\d+):(\d+) /;
+            $d[1] = index("Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec", $d[1])/4;
+            $age -= $d[1]>=0 ? Time::Local::timegm(@d[5,4,3,0,1,2]) : 0;
+        }
+        $age /= 3600*24;
+        if ($age > 30) {
+
+            $CPAN::Frontend
+                ->mywarn(sprintf
+                         qq{Warning: This index file is %d days old.
+  Please check the host you chose as your CPAN mirror for staleness.
+  I'll continue but problems seem likely to happen.\a\n},
+                         $age);
+
+        } elsif ($age < -1) {
+
+            $CPAN::Frontend
+                ->mywarn(sprintf
+                         qq{Warning: Your system date is %d days behind this index file!
+  System time:          %s
+  Timestamp index file: %s
+  Please fix your system time, problems with the make command expected.\n},
+                         -$age,
+                         scalar gmtime,
+                         $DATE_OF_02,
+                        );
+
+        }
+    }
+
+
+    # A necessity since we have metadata_cache: delete what isn't
+    # there anymore
+    my $secondtime = $CPAN::META->exists("CPAN::Module","CPAN");
+    CPAN->debug("secondtime[$secondtime]") if $CPAN::DEBUG;
+    my(%exists);
+    my $i = 0;
+    my $painted = 0;
+ LINE: foreach (@lines) {
+        # before 1.56 we split into 3 and discarded the rest. From
+        # 1.57 we assign remaining text to $comment thus allowing to
+        # influence isa_perl
+        my($mod,$version,$dist,$comment) = split " ", $_, 4;
+        unless ($mod && defined $version && $dist) {
+            require Dumpvalue;
+            my $dv = Dumpvalue->new(tick => '"');
+            $CPAN::Frontend->mywarn(sprintf "Could not split line[%s]\n", $dv->stringify($_));
+            if ($errors++ >= 5){
+                $CPAN::Frontend->mydie("Giving up parsing your $index_target, too many errors");
+            }
+            next LINE;
+        }
+        my($bundle,$id,$userid);
+
+        if ($mod eq 'CPAN' &&
+            ! (
+            CPAN::Queue->exists('Bundle::CPAN') ||
+            CPAN::Queue->exists('CPAN')
+            )
+        ) {
+            local($^W)= 0;
+            if ($version > $CPAN::VERSION) {
+                $CPAN::Frontend->mywarn(qq{
+  New CPAN.pm version (v$version) available.
+  [Currently running version is v$CPAN::VERSION]
+  You might want to try
+    install CPAN
+    reload cpan
+  to both upgrade CPAN.pm and run the new version without leaving
+  the current session.
+
+}); #});
+                $CPAN::Frontend->mysleep(2);
+                $CPAN::Frontend->myprint(qq{\n});
+            }
+            last if $CPAN::Signal;
+        } elsif ($mod =~ /^Bundle::(.*)/) {
+            $bundle = $1;
+        }
+
+        if ($bundle) {
+            $id =  $CPAN::META->instance('CPAN::Bundle',$mod);
+            # Let's make it a module too, because bundles have so much
+            # in common with modules.
+
+            # Changed in 1.57_63: seems like memory bloat now without
+            # any value, so commented out
+
+            # $CPAN::META->instance('CPAN::Module',$mod);
+
+        } else {
+
+            # instantiate a module object
+            $id = $CPAN::META->instance('CPAN::Module',$mod);
+
+        }
+
+        # Although CPAN prohibits same name with different version the
+        # indexer may have changed the version for the same distro
+        # since the last time ("Force Reindexing" feature)
+        if ($id->cpan_file ne $dist
+            ||
+            $id->cpan_version ne $version
+           ) {
+            $userid = $id->userid || $self->userid($dist);
+            $id->set(
+                     'CPAN_USERID' => $userid,
+                     'CPAN_VERSION' => $version,
+                     'CPAN_FILE' => $dist,
+                    );
+        }
+
+        # instantiate a distribution object
+        if ($CPAN::META->exists('CPAN::Distribution',$dist)) {
+        # we do not need CONTAINSMODS unless we do something with
+        # this dist, so we better produce it on demand.
+
+        ## my $obj = $CPAN::META->instance(
+        ##                                 'CPAN::Distribution' => $dist
+        ##                                );
+        ## $obj->{CONTAINSMODS}{$mod} = undef; # experimental
+        } else {
+            $CPAN::META->instance(
+                                  'CPAN::Distribution' => $dist
+                                 )->set(
+                                        'CPAN_USERID' => $userid,
+                                        'CPAN_COMMENT' => $comment,
+                                       );
+        }
+        if ($secondtime) {
+            for my $name ($mod,$dist) {
+                # $self->debug("exists name[$name]") if $CPAN::DEBUG;
+                $exists{$name} = undef;
+            }
+        }
+        $i++;
+        while (($painted/76) < ($i/@lines)) {
+            $CPAN::Frontend->myprint(".");
+            $painted++;
+        }
+        return if $CPAN::Signal;
+    }
+    $CPAN::Frontend->myprint("DONE\n");
+    if ($secondtime) {
+        for my $class (qw(CPAN::Module CPAN::Bundle CPAN::Distribution)) {
+            for my $o ($CPAN::META->all_objects($class)) {
+                next if exists $exists{$o->{ID}};
+                $CPAN::META->delete($class,$o->{ID});
+                # CPAN->debug("deleting ID[$o->{ID}] in class[$class]")
+                #     if $CPAN::DEBUG;
+            }
+        }
+    }
+}
+
+#-> sub CPAN::Index::rd_modlist ;
+sub rd_modlist {
+    my($cl,$index_target) = @_;
+    return unless defined $index_target;
+    return if CPAN::_sqlite_running();
+    $CPAN::Frontend->myprint("Reading '$index_target'\n");
+    my $fh = CPAN::Tarzip->TIEHANDLE($index_target);
+    local $_;
+    my $slurp = "";
+    my $chunk;
+    while (my $bytes = $fh->READ(\$chunk,8192)) {
+        $slurp.=$chunk;
+    }
+    my @eval2 = split /\012/, $slurp;
+
+    while (@eval2) {
+        my $shift = shift(@eval2);
+        if ($shift =~ /^Date:\s+(.*)/) {
+            if ($DATE_OF_03 eq $1) {
+                $CPAN::Frontend->myprint("Unchanged.\n");
+                return;
+            }
+            ($DATE_OF_03) = $1;
+        }
+        last if $shift =~ /^\s*$/;
+    }
+    push @eval2, q{CPAN::Modulelist->data;};
+    local($^W) = 0;
+    my($compmt) = Safe->new("CPAN::Safe1");
+    my($eval2) = join("\n", @eval2);
+    CPAN->debug(sprintf "length of eval2[%d]", length $eval2) if $CPAN::DEBUG;
+    my $ret = $compmt->reval($eval2);
+    Carp::confess($@) if $@;
+    return if $CPAN::Signal;
+    my $i = 0;
+    my $until = keys(%$ret);
+    my $painted = 0;
+    CPAN->debug(sprintf "until[%d]", $until) if $CPAN::DEBUG;
+    for (keys %$ret) {
+        my $obj = $CPAN::META->instance("CPAN::Module",$_);
+        delete $ret->{$_}{modid}; # not needed here, maybe elsewhere
+        $obj->set(%{$ret->{$_}});
+        $i++;
+        while (($painted/76) < ($i/$until)) {
+            $CPAN::Frontend->myprint(".");
+            $painted++;
+        }
+        return if $CPAN::Signal;
+    }
+    $CPAN::Frontend->myprint("DONE\n");
+}
+
+#-> sub CPAN::Index::write_metadata_cache ;
+sub write_metadata_cache {
+    my($self) = @_;
+    return unless $CPAN::Config->{'cache_metadata'};
+    return if CPAN::_sqlite_running();
+    return unless $CPAN::META->has_usable("Storable");
+    my $cache;
+    foreach my $k (qw(CPAN::Bundle CPAN::Author CPAN::Module
+                      CPAN::Distribution)) {
+        $cache->{$k} = $CPAN::META->{readonly}{$k}; # unsafe meta access, ok
+    }
+    my $metadata_file = File::Spec->catfile($CPAN::Config->{cpan_home},"Metadata");
+    $cache->{last_time} = $LAST_TIME;
+    $cache->{DATE_OF_02} = $DATE_OF_02;
+    $cache->{PROTOCOL} = PROTOCOL;
+    $CPAN::Frontend->myprint("Writing $metadata_file\n");
+    eval { Storable::nstore($cache, $metadata_file) };
+    $CPAN::Frontend->mywarn($@) if $@; # ?? missing "\n" after $@ in mywarn ??
+}
+
+#-> sub CPAN::Index::read_metadata_cache ;
+sub read_metadata_cache {
+    my($self) = @_;
+    return unless $CPAN::Config->{'cache_metadata'};
+    return if CPAN::_sqlite_running();
+    return unless $CPAN::META->has_usable("Storable");
+    my $metadata_file = File::Spec->catfile($CPAN::Config->{cpan_home},"Metadata");
+    return unless -r $metadata_file and -f $metadata_file;
+    $CPAN::Frontend->myprint("Reading '$metadata_file'\n");
+    my $cache;
+    eval { $cache = Storable::retrieve($metadata_file) };
+    $CPAN::Frontend->mywarn($@) if $@; # ?? missing "\n" after $@ in mywarn ??
+    if (!$cache || !UNIVERSAL::isa($cache, 'HASH')) {
+        $LAST_TIME = 0;
+        return;
+    }
+    if (exists $cache->{PROTOCOL}) {
+        if (PROTOCOL > $cache->{PROTOCOL}) {
+            $CPAN::Frontend->mywarn(sprintf("Ignoring Metadata cache written ".
+                                            "with protocol v%s, requiring v%s\n",
+                                            $cache->{PROTOCOL},
+                                            PROTOCOL)
+                                   );
+            return;
+        }
+    } else {
+        $CPAN::Frontend->mywarn("Ignoring Metadata cache written ".
+                                "with protocol v1.0\n");
+        return;
+    }
+    my $clcnt = 0;
+    my $idcnt = 0;
+    while(my($class,$v) = each %$cache) {
+        next unless $class =~ /^CPAN::/;
+        $CPAN::META->{readonly}{$class} = $v; # unsafe meta access, ok
+        while (my($id,$ro) = each %$v) {
+            $CPAN::META->{readwrite}{$class}{$id} ||=
+                $class->new(ID=>$id, RO=>$ro);
+            $idcnt++;
+        }
+        $clcnt++;
+    }
+    unless ($clcnt) { # sanity check
+        $CPAN::Frontend->myprint("Warning: Found no data in $metadata_file\n");
+        return;
+    }
+    if ($idcnt < 1000) {
+        $CPAN::Frontend->myprint("Warning: Found only $idcnt objects ".
+                                 "in $metadata_file\n");
+        return;
+    }
+    $CPAN::META->{PROTOCOL} ||=
+        $cache->{PROTOCOL}; # reading does not up or downgrade, but it
+                            # does initialize to some protocol
+    $LAST_TIME = $cache->{last_time};
+    $DATE_OF_02 = $cache->{DATE_OF_02};
+    $CPAN::Frontend->myprint("  Database was generated on $DATE_OF_02\n")
+        if defined $DATE_OF_02; # An old cache may not contain DATE_OF_02
+    return;
+}
+
+1;
diff --git a/lib/5.24.1/CPAN/InfoObj.pm b/lib/5.24.1/CPAN/InfoObj.pm
new file mode 100644
index 00000000..9198316c
--- /dev/null
+++ b/lib/5.24.1/CPAN/InfoObj.pm
@@ -0,0 +1,224 @@
+# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
+# vim: ts=4 sts=4 sw=4:
+package CPAN::InfoObj;
+use strict;
+
+use CPAN::Debug;
+@CPAN::InfoObj::ISA = qw(CPAN::Debug);
+
+use Cwd qw(chdir);
+
+use vars qw(
+            $VERSION
+);
+$VERSION = "5.5";
+
+sub ro {
+    my $self = shift;
+    exists $self->{RO} and return $self->{RO};
+}
+
+#-> sub CPAN::InfoObj::cpan_userid
+sub cpan_userid {
+    my $self = shift;
+    my $ro = $self->ro;
+    if ($ro) {
+        return $ro->{CPAN_USERID} || "N/A";
+    } else {
+        $self->debug("ID[$self->{ID}]");
+        # N/A for bundles found locally
+        return "N/A";
+    }
+}
+
+sub id { shift->{ID}; }
+
+#-> sub CPAN::InfoObj::new ;
+sub new {
+    my $this = bless {}, shift;
+    %$this = @_;
+    $this
+}
+
+# The set method may only be used by code that reads index data or
+# otherwise "objective" data from the outside world. All session
+# related material may do anything else with instance variables but
+# must not touch the hash under the RO attribute. The reason is that
+# the RO hash gets written to Metadata file and is thus persistent.
+
+#-> sub CPAN::InfoObj::safe_chdir ;
+sub safe_chdir {
+  my($self,$todir) = @_;
+  # we die if we cannot chdir and we are debuggable
+  Carp::confess("safe_chdir called without todir argument")
+        unless defined $todir and length $todir;
+  if (chdir $todir) {
+    $self->debug(sprintf "changed directory to %s", CPAN::anycwd())
+        if $CPAN::DEBUG;
+  } else {
+    if (-e $todir) {
+        unless (-x $todir) {
+            unless (chmod 0755, $todir) {
+                my $cwd = CPAN::anycwd();
+                $CPAN::Frontend->mywarn("I have neither the -x permission nor the ".
+                                        "permission to change the permission; cannot ".
+                                        "chdir to '$todir'\n");
+                $CPAN::Frontend->mysleep(5);
+                $CPAN::Frontend->mydie(qq{Could not chdir from cwd[$cwd] }.
+                                       qq{to todir[$todir]: $!});
+            }
+        }
+    } else {
+        $CPAN::Frontend->mydie("Directory '$todir' has gone. Cannot continue.\n");
+    }
+    if (chdir $todir) {
+      $self->debug(sprintf "changed directory to %s", CPAN::anycwd())
+          if $CPAN::DEBUG;
+    } else {
+      my $cwd = CPAN::anycwd();
+      $CPAN::Frontend->mydie(qq{Could not chdir from cwd[$cwd] }.
+                             qq{to todir[$todir] (a chmod has been issued): $!});
+    }
+  }
+}
+
+#-> sub CPAN::InfoObj::set ;
+sub set {
+    my($self,%att) = @_;
+    my $class = ref $self;
+
+    # This must be ||=, not ||, because only if we write an empty
+    # reference, only then the set method will write into the readonly
+    # area. But for Distributions that spring into existence, maybe
+    # because of a typo, we do not like it that they are written into
+    # the readonly area and made permanent (at least for a while) and
+    # that is why we do not "allow" other places to call ->set.
+    unless ($self->id) {
+        CPAN->debug("Bug? Empty ID, rejecting");
+        return;
+    }
+    my $ro = $self->{RO} =
+        $CPAN::META->{readonly}{$class}{$self->id} ||= {};
+
+    while (my($k,$v) = each %att) {
+        $ro->{$k} = $v;
+    }
+}
+
+#-> sub CPAN::InfoObj::as_glimpse ;
+sub as_glimpse {
+    my($self) = @_;
+    my(@m);
+    my $class = ref($self);
+    $class =~ s/^CPAN:://;
+    my $id = $self->can("pretty_id") ? $self->pretty_id : $self->{ID};
+    push @m, sprintf "%-15s %s\n", $class, $id;
+    join "", @m;
+}
+
+#-> sub CPAN::InfoObj::as_string ;
+sub as_string {
+    my($self) = @_;
+    my(@m);
+    my $class = ref($self);
+    $class =~ s/^CPAN:://;
+    push @m, $class, " id = $self->{ID}\n";
+    my $ro;
+    unless ($ro = $self->ro) {
+        if (substr($self->{ID},-1,1) eq ".") { # directory
+            $ro = +{};
+        } else {
+            $CPAN::Frontend->mywarn("Unknown object $self->{ID}\n");
+            $CPAN::Frontend->mysleep(5);
+            return;
+        }
+    }
+    for (sort keys %$ro) {
+        # next if m/^(ID|RO)$/;
+        my $extra = "";
+        if ($_ eq "CPAN_USERID") {
+            $extra .= " (";
+            $extra .= $self->fullname;
+            my $email; # old perls!
+            if ($email = $CPAN::META->instance("CPAN::Author",
+                                               $self->cpan_userid
+                                              )->email) {
+                $extra .= " <$email>";
+            } else {
+                $extra .= " <no email>";
+            }
+            $extra .= ")";
+        } elsif ($_ eq "FULLNAME") { # potential UTF-8 conversion
+            push @m, sprintf "    %-12s %s\n", $_, $self->fullname;
+            next;
+        }
+        next unless defined $ro->{$_};
+        push @m, sprintf "    %-12s %s%s\n", $_, $ro->{$_}, $extra;
+    }
+  KEY: for (sort keys %$self) {
+        next if m/^(ID|RO)$/;
+        unless (defined $self->{$_}) {
+            delete $self->{$_};
+            next KEY;
+        }
+        if (ref($self->{$_}) eq "ARRAY") {
+            push @m, sprintf "    %-12s %s\n", $_, "@{$self->{$_}}";
+        } elsif (ref($self->{$_}) eq "HASH") {
+            my $value;
+            if (/^CONTAINSMODS$/) {
+                $value = join(" ",sort keys %{$self->{$_}});
+            } elsif (/^prereq_pm$/) {
+                my @value;
+                my $v = $self->{$_};
+                for my $x (sort keys %$v) {
+                    my @svalue;
+                    for my $y (sort keys %{$v->{$x}}) {
+                        push @svalue, "$y=>$v->{$x}{$y}";
+                    }
+                    push @value, "$x\:" . join ",", @svalue if @svalue;
+                }
+                $value = join ";", @value;
+            } else {
+                $value = $self->{$_};
+            }
+            push @m, sprintf(
+                             "    %-12s %s\n",
+                             $_,
+                             $value,
+                            );
+        } else {
+            push @m, sprintf "    %-12s %s\n", $_, $self->{$_};
+        }
+    }
+    join "", @m, "\n";
+}
+
+#-> sub CPAN::InfoObj::fullname ;
+sub fullname {
+    my($self) = @_;
+    $CPAN::META->instance("CPAN::Author",$self->cpan_userid)->fullname;
+}
+
+#-> sub CPAN::InfoObj::dump ;
+sub dump {
+    my($self, $what) = @_;
+    unless ($CPAN::META->has_inst("Data::Dumper")) {
+        $CPAN::Frontend->mydie("dump command requires Data::Dumper installed");
+    }
+    local $Data::Dumper::Sortkeys;
+    $Data::Dumper::Sortkeys = 1;
+    my $out = Data::Dumper::Dumper($what ? eval $what : $self);
+    if (length $out > 100000) {
+        my $fh_pager = FileHandle->new;
+        local($SIG{PIPE}) = "IGNORE";
+        my $pager = $CPAN::Config->{'pager'} || "cat";
+        $fh_pager->open("|$pager")
+            or die "Could not open pager $pager\: $!";
+        $fh_pager->print($out);
+        close $fh_pager;
+    } else {
+        $CPAN::Frontend->myprint($out);
+    }
+}
+
+1;
diff --git a/lib/5.24.1/CPAN/Kwalify.pm b/lib/5.24.1/CPAN/Kwalify.pm
new file mode 100644
index 00000000..3cade90b
--- /dev/null
+++ b/lib/5.24.1/CPAN/Kwalify.pm
@@ -0,0 +1,136 @@
+=head1 NAME
+
+CPAN::Kwalify - Interface between CPAN.pm and Kwalify.pm
+
+=head1 SYNOPSIS
+
+  use CPAN::Kwalify;
+  validate($schema_name, $data, $file, $doc);
+
+=head1 DESCRIPTION
+
+=over
+
+=item _validate($schema_name, $data, $file, $doc)
+
+$schema_name is the name of a supported schema. Currently only
+C<distroprefs> is supported. $data is the data to be validated. $file
+is the absolute path to the file the data are coming from. $doc is the
+index of the document within $doc that is to be validated. The last
+two arguments are only there for better error reporting.
+
+Relies on being called from within CPAN.pm.
+
+Dies if something fails. Does not return anything useful.
+
+=item yaml($schema_name)
+
+Returns the YAML text of that schema. Dies if something fails.
+
+=back
+
+=head1 AUTHOR
+
+Andreas Koenig C<< <andk@cpan.org> >>
+
+=head1 LICENSE
+
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+See L<http://www.perl.com/perl/misc/Artistic.html>
+
+
+
+=cut
+
+
+use strict;
+
+package CPAN::Kwalify;
+use vars qw($VERSION $VAR1);
+$VERSION = "5.50";
+
+use File::Spec ();
+
+my %vcache = ();
+
+my $schema_loaded = {};
+
+sub _validate {
+    my($schema_name,$data,$abs,$y) = @_;
+    my $yaml_module = CPAN->_yaml_module;
+    if (
+        $CPAN::META->has_inst($yaml_module)
+        &&
+        $CPAN::META->has_inst("Kwalify")
+       ) {
+        my $load = UNIVERSAL::can($yaml_module,"Load");
+        unless ($schema_loaded->{$schema_name}) {
+            eval {
+                my $schema_yaml = yaml($schema_name);
+                $schema_loaded->{$schema_name} = $load->($schema_yaml);
+            };
+            if ($@) {
+                # we know that YAML.pm 0.62 cannot parse the schema,
+                # so we try a fallback
+                my $content = do {
+                    my $path = __FILE__;
+                    $path =~ s/\.pm$//;
+                    $path = File::Spec->catfile($path, "$schema_name.dd");
+                    local *FH;
+                    open FH, $path or die "Could not open '$path': $!";
+                    local $/;
+                    <FH>;
+                };
+                $VAR1 = undef;
+                eval $content;
+                if (my $err = $@) {
+                    die "parsing of '$schema_name.dd' failed: $err";
+                }
+                $schema_loaded->{$schema_name} = $VAR1;
+            }
+        }
+    }
+    if (my $schema = $schema_loaded->{$schema_name}) {
+        my $mtime = (stat $abs)[9];
+        for my $k (keys %{$vcache{$abs}}) {
+            delete $vcache{$abs}{$k} unless $k eq $mtime;
+        }
+        return if $vcache{$abs}{$mtime}{$y}++;
+        eval { Kwalify::validate($schema, $data) };
+        if (my $err = $@) {
+            my $info = {}; yaml($schema_name, info => $info);
+            die "validation of distropref '$abs'[$y] against schema '$info->{path}' failed: $err";
+        }
+    }
+}
+
+sub _clear_cache {
+    %vcache = ();
+}
+
+sub yaml {
+    my($schema_name, %opt) = @_;
+    my $content = do {
+        my $path = __FILE__;
+        $path =~ s/\.pm$//;
+        $path = File::Spec->catfile($path, "$schema_name.yml");
+        if ($opt{info}) {
+            $opt{info}{path} = $path;
+        }
+        local *FH;
+        open FH, $path or die "Could not open '$path': $!";
+        local $/;
+        <FH>;
+    };
+    return $content;
+}
+
+1;
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# End:
+
diff --git a/lib/5.24.1/CPAN/Kwalify/distroprefs.dd b/lib/5.24.1/CPAN/Kwalify/distroprefs.dd
new file mode 100644
index 00000000..fd046271
--- /dev/null
+++ b/lib/5.24.1/CPAN/Kwalify/distroprefs.dd
@@ -0,0 +1,150 @@
+$VAR1 = {
+  "mapping" => {
+    "comment" => {
+      "type" => "text"
+    },
+    "cpanconfig" => {
+      "mapping" => {
+        "=" => {
+          "type" => "text"
+        }
+      },
+      "type" => "map"
+    },
+    "depends" => {
+      "mapping" => {
+        "build_requires" => {
+          "mapping" => {
+            "=" => {
+              "type" => "text"
+            }
+          },
+          "type" => "map"
+        },
+        "configure_requires" => {},
+        "requires" => {}
+      },
+      "type" => "map"
+    },
+    "disabled" => {
+      "enum" => [
+        0,
+        1
+      ],
+      "type" => "int"
+    },
+    "features" => {
+      "sequence" => [
+        {
+          "type" => "text"
+        }
+      ],
+      "type" => "seq"
+    },
+    "goto" => {
+      "type" => "text"
+    },
+    "install" => {
+      "mapping" => {
+        "args" => {
+          "sequence" => [
+            {
+              "type" => "text"
+            }
+          ],
+          "type" => "seq"
+        },
+        "commandline" => {
+          "type" => "text"
+        },
+        "eexpect" => {
+          "mapping" => {
+            "mode" => {
+              "enum" => [
+                "deterministic",
+                "anyorder"
+              ],
+              "type" => "text"
+            },
+            "reuse" => {
+              "type" => "int"
+            },
+            "talk" => {
+              "sequence" => [
+                {
+                  "type" => "text"
+                }
+              ],
+              "type" => "seq"
+            },
+            "timeout" => {
+              "type" => "number"
+            }
+          },
+          "type" => "map"
+        },
+        "env" => {
+          "mapping" => {
+            "=" => {
+              "type" => "text"
+            }
+          },
+          "type" => "map"
+        },
+        "expect" => {
+          "sequence" => [
+            {
+              "type" => "text"
+            }
+          ],
+          "type" => "seq"
+        }
+      },
+      "type" => "map"
+    },
+    "make" => {},
+    "match" => {
+      "mapping" => {
+        "distribution" => {
+          "type" => "text"
+        },
+        "env" => {
+          "mapping" => {
+            "=" => {
+              "type" => "text"
+            }
+          },
+          "type" => "map"
+        },
+        "module" => {
+          "type" => "text"
+        },
+        "perl" => {
+          "type" => "text"
+        },
+        "perlconfig" => {}
+      },
+      "type" => "map"
+    },
+    "patches" => {
+      "sequence" => [
+        {
+          "type" => "text"
+        }
+      ],
+      "type" => "seq"
+    },
+    "pl" => {},
+    "reminder" => {
+      "type" => "text"
+    },
+    "test" => {}
+  },
+  "type" => "map"
+};
+$VAR1->{"mapping"}{"depends"}{"mapping"}{"configure_requires"} = $VAR1->{"mapping"}{"depends"}{"mapping"}{"build_requires"};
+$VAR1->{"mapping"}{"depends"}{"mapping"}{"requires"} = $VAR1->{"mapping"}{"depends"}{"mapping"}{"build_requires"};
+$VAR1->{"mapping"}{"make"} = $VAR1->{"mapping"}{"install"};
+$VAR1->{"mapping"}{"match"}{"mapping"}{"perlconfig"} = $VAR1->{"mapping"}{"match"}{"mapping"}{"env"};
+$VAR1->{"mapping"}{"pl"} = $VAR1->{"mapping"}{"install"};
+$VAR1->{"mapping"}{"test"} = $VAR1->{"mapping"}{"install"};
diff --git a/lib/5.24.1/CPAN/Kwalify/distroprefs.yml b/lib/5.24.1/CPAN/Kwalify/distroprefs.yml
new file mode 100644
index 00000000..431f1742
--- /dev/null
+++ b/lib/5.24.1/CPAN/Kwalify/distroprefs.yml
@@ -0,0 +1,92 @@
+--- 
+type: map
+mapping:
+  comment:
+    type: text
+  depends:
+    type: map
+    mapping:
+      configure_requires:
+        &requires_common
+        type: map
+        mapping:
+          =:
+            type: text
+      build_requires: *requires_common
+      requires:       *requires_common
+  match:
+    type: map
+    mapping:
+      distribution:
+        type: text
+      module:
+        type: text
+      perl:
+        type: text
+      perlconfig:
+        &matchhash_common
+        type: map
+        mapping:
+          =:
+            type: text
+      env: *matchhash_common
+  install:
+    &args_env_expect
+    type: map
+    mapping:
+      args:
+        type: seq
+        sequence:
+          - type: text
+      commandline:
+        type: text
+      env:
+        type: map
+        mapping:
+          =:
+            type: text
+      expect:
+        type: seq
+        sequence:
+          - type: text
+      eexpect:
+        type: map
+        mapping:
+          mode:
+            type: text
+            enum:
+              - deterministic
+              - anyorder
+          timeout:
+            type: number
+          reuse:
+            type: int
+          talk:
+            type: seq
+            sequence:
+              - type: text
+  make: *args_env_expect
+  pl:   *args_env_expect
+  test: *args_env_expect
+  patches:
+    type: seq
+    sequence:
+      - type: text
+  disabled:
+    type: int
+    enum:
+      - 0
+      - 1
+  goto:
+    type: text
+  cpanconfig:
+    type: map
+    mapping:
+      =:
+        type: text
+  features:
+    type: seq
+    sequence:
+      - type: text
+  reminder:
+    type: text
diff --git a/lib/5.24.1/CPAN/LWP/UserAgent.pm b/lib/5.24.1/CPAN/LWP/UserAgent.pm
new file mode 100644
index 00000000..fe8bf27a
--- /dev/null
+++ b/lib/5.24.1/CPAN/LWP/UserAgent.pm
@@ -0,0 +1,62 @@
+# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
+# vim: ts=4 sts=4 sw=4:
+package CPAN::LWP::UserAgent;
+use strict;
+use vars qw(@ISA $USER $PASSWD $SETUPDONE);
+use CPAN::HTTP::Credentials;
+# we delay requiring LWP::UserAgent and setting up inheritance until we need it
+
+$CPAN::LWP::UserAgent::VERSION = $CPAN::LWP::UserAgent::VERSION = "1.9601";
+
+
+sub config {
+    return if $SETUPDONE;
+    if ($CPAN::META->has_usable('LWP::UserAgent')) {
+        require LWP::UserAgent;
+        @ISA = qw(Exporter LWP::UserAgent); ## no critic
+        $SETUPDONE++;
+    } else {
+        $CPAN::Frontend->mywarn("  LWP::UserAgent not available\n");
+    }
+}
+
+sub get_basic_credentials {
+    my($self, $realm, $uri, $proxy) = @_;
+    if ( $proxy ) {
+        return CPAN::HTTP::Credentials->get_proxy_credentials();
+    } else {
+        return CPAN::HTTP::Credentials->get_non_proxy_credentials();
+    }
+}
+
+sub no_proxy {
+    my ( $self, $no_proxy ) = @_;
+    return $self->SUPER::no_proxy( split(',',$no_proxy) );
+}
+
+# mirror(): Its purpose is to deal with proxy authentication. When we
+# call SUPER::mirror, we really call the mirror method in
+# LWP::UserAgent. LWP::UserAgent will then call
+# $self->get_basic_credentials or some equivalent and this will be
+# $self->dispatched to our own get_basic_credentials method.
+
+# Our own get_basic_credentials sets $USER and $PASSWD, two globals.
+
+# 407 stands for HTTP_PROXY_AUTHENTICATION_REQUIRED. Which means
+# although we have gone through our get_basic_credentials, the proxy
+# server refuses to connect. This could be a case where the username or
+# password has changed in the meantime, so I'm trying once again without
+# $USER and $PASSWD to give the get_basic_credentials routine another
+# chance to set $USER and $PASSWD.
+
+sub mirror {
+    my($self,$url,$aslocal) = @_;
+    my $result = $self->SUPER::mirror($url,$aslocal);
+    if ($result->code == 407) {
+        CPAN::HTTP::Credentials->clear_credentials;
+        $result = $self->SUPER::mirror($url,$aslocal);
+    }
+    $result;
+}
+
+1;
diff --git a/lib/5.24.1/CPAN/Meta.pm b/lib/5.24.1/CPAN/Meta.pm
new file mode 100644
index 00000000..afbb2218
--- /dev/null
+++ b/lib/5.24.1/CPAN/Meta.pm
@@ -0,0 +1,1156 @@
+use 5.006;
+use strict;
+use warnings;
+package CPAN::Meta;
+
+our $VERSION = '2.150005';
+
+#pod =head1 SYNOPSIS
+#pod
+#pod     use v5.10;
+#pod     use strict;
+#pod     use warnings;
+#pod     use CPAN::Meta;
+#pod     use Module::Load;
+#pod
+#pod     my $meta = CPAN::Meta->load_file('META.json');
+#pod
+#pod     printf "testing requirements for %s version %s\n",
+#pod     $meta->name,
+#pod     $meta->version;
+#pod
+#pod     my $prereqs = $meta->effective_prereqs;
+#pod
+#pod     for my $phase ( qw/configure runtime build test/ ) {
+#pod         say "Requirements for $phase:";
+#pod         my $reqs = $prereqs->requirements_for($phase, "requires");
+#pod         for my $module ( sort $reqs->required_modules ) {
+#pod             my $status;
+#pod             if ( eval { load $module unless $module eq 'perl'; 1 } ) {
+#pod                 my $version = $module eq 'perl' ? $] : $module->VERSION;
+#pod                 $status = $reqs->accepts_module($module, $version)
+#pod                         ? "$version ok" : "$version not ok";
+#pod             } else {
+#pod                 $status = "missing"
+#pod             };
+#pod             say "  $module ($status)";
+#pod         }
+#pod     }
+#pod
+#pod =head1 DESCRIPTION
+#pod
+#pod Software distributions released to the CPAN include a F<META.json> or, for
+#pod older distributions, F<META.yml>, which describes the distribution, its
+#pod contents, and the requirements for building and installing the distribution.
+#pod The data structure stored in the F<META.json> file is described in
+#pod L<CPAN::Meta::Spec>.
+#pod
+#pod CPAN::Meta provides a simple class to represent this distribution metadata (or
+#pod I<distmeta>), along with some helpful methods for interrogating that data.
+#pod
+#pod The documentation below is only for the methods of the CPAN::Meta object.  For
+#pod information on the meaning of individual fields, consult the spec.
+#pod
+#pod =cut
+
+use Carp qw(carp croak);
+use CPAN::Meta::Feature;
+use CPAN::Meta::Prereqs;
+use CPAN::Meta::Converter;
+use CPAN::Meta::Validator;
+use Parse::CPAN::Meta 1.4414 ();
+
+BEGIN { *_dclone = \&CPAN::Meta::Converter::_dclone }
+
+#pod =head1 STRING DATA
+#pod
+#pod The following methods return a single value, which is the value for the
+#pod corresponding entry in the distmeta structure.  Values should be either undef
+#pod or strings.
+#pod
+#pod =for :list
+#pod * abstract
+#pod * description
+#pod * dynamic_config
+#pod * generated_by
+#pod * name
+#pod * release_status
+#pod * version
+#pod
+#pod =cut
+
+BEGIN {
+  my @STRING_READERS = qw(
+    abstract
+    description
+    dynamic_config
+    generated_by
+    name
+    release_status
+    version
+  );
+
+  no strict 'refs';
+  for my $attr (@STRING_READERS) {
+    *$attr = sub { $_[0]{ $attr } };
+  }
+}
+
+#pod =head1 LIST DATA
+#pod
+#pod These methods return lists of string values, which might be represented in the
+#pod distmeta structure as arrayrefs or scalars:
+#pod
+#pod =for :list
+#pod * authors
+#pod * keywords
+#pod * licenses
+#pod
+#pod The C<authors> and C<licenses> methods may also be called as C<author> and
+#pod C<license>, respectively, to match the field name in the distmeta structure.
+#pod
+#pod =cut
+
+BEGIN {
+  my @LIST_READERS = qw(
+    author
+    keywords
+    license
+  );
+
+  no strict 'refs';
+  for my $attr (@LIST_READERS) {
+    *$attr = sub {
+      my $value = $_[0]{ $attr };
+      croak "$attr must be called in list context"
+        unless wantarray;
+      return @{ _dclone($value) } if ref $value;
+      return $value;
+    };
+  }
+}
+
+sub authors  { $_[0]->author }
+sub licenses { $_[0]->license }
+
+#pod =head1 MAP DATA
+#pod
+#pod These readers return hashrefs of arbitrary unblessed data structures, each
+#pod described more fully in the specification:
+#pod
+#pod =for :list
+#pod * meta_spec
+#pod * resources
+#pod * provides
+#pod * no_index
+#pod * prereqs
+#pod * optional_features
+#pod
+#pod =cut
+
+BEGIN {
+  my @MAP_READERS = qw(
+    meta-spec
+    resources
+    provides
+    no_index
+
+    prereqs
+    optional_features
+  );
+
+  no strict 'refs';
+  for my $attr (@MAP_READERS) {
+    (my $subname = $attr) =~ s/-/_/;
+    *$subname = sub {
+      my $value = $_[0]{ $attr };
+      return _dclone($value) if $value;
+      return {};
+    };
+  }
+}
+
+#pod =head1 CUSTOM DATA
+#pod
+#pod A list of custom keys are available from the C<custom_keys> method and
+#pod particular keys may be retrieved with the C<custom> method.
+#pod
+#pod   say $meta->custom($_) for $meta->custom_keys;
+#pod
+#pod If a custom key refers to a data structure, a deep clone is returned.
+#pod
+#pod =cut
+
+sub custom_keys {
+  return grep { /^x_/i } keys %{$_[0]};
+}
+
+sub custom {
+  my ($self, $attr) = @_;
+  my $value = $self->{$attr};
+  return _dclone($value) if ref $value;
+  return $value;
+}
+
+#pod =method new
+#pod
+#pod   my $meta = CPAN::Meta->new($distmeta_struct, \%options);
+#pod
+#pod Returns a valid CPAN::Meta object or dies if the supplied metadata hash
+#pod reference fails to validate.  Older-format metadata will be up-converted to
+#pod version 2 if they validate against the original stated specification.
+#pod
+#pod It takes an optional hashref of options. Valid options include:
+#pod
+#pod =over
+#pod
+#pod =item *
+#pod
+#pod lazy_validation -- if true, new will attempt to convert the given metadata
+#pod to version 2 before attempting to validate it.  This means than any
+#pod fixable errors will be handled by CPAN::Meta::Converter before validation.
+#pod (Note that this might result in invalid optional data being silently
+#pod dropped.)  The default is false.
+#pod
+#pod =back
+#pod
+#pod =cut
+
+sub _new {
+  my ($class, $struct, $options) = @_;
+  my $self;
+
+  if ( $options->{lazy_validation} ) {
+    # try to convert to a valid structure; if succeeds, then return it
+    my $cmc = CPAN::Meta::Converter->new( $struct );
+    $self = $cmc->convert( version => 2 ); # valid or dies
+    return bless $self, $class;
+  }
+  else {
+    # validate original struct
+    my $cmv = CPAN::Meta::Validator->new( $struct );
+    unless ( $cmv->is_valid) {
+      die "Invalid metadata structure. Errors: "
+        . join(", ", $cmv->errors) . "\n";
+    }
+  }
+
+  # up-convert older spec versions
+  my $version = $struct->{'meta-spec'}{version} || '1.0';
+  if ( $version == 2 ) {
+    $self = $struct;
+  }
+  else {
+    my $cmc = CPAN::Meta::Converter->new( $struct );
+    $self = $cmc->convert( version => 2 );
+  }
+
+  return bless $self, $class;
+}
+
+sub new {
+  my ($class, $struct, $options) = @_;
+  my $self = eval { $class->_new($struct, $options) };
+  croak($@) if $@;
+  return $self;
+}
+
+#pod =method create
+#pod
+#pod   my $meta = CPAN::Meta->create($distmeta_struct, \%options);
+#pod
+#pod This is same as C<new()>, except that C<generated_by> and C<meta-spec> fields
+#pod will be generated if not provided.  This means the metadata structure is
+#pod assumed to otherwise follow the latest L<CPAN::Meta::Spec>.
+#pod
+#pod =cut
+
+sub create {
+  my ($class, $struct, $options) = @_;
+  my $version = __PACKAGE__->VERSION || 2;
+  $struct->{generated_by} ||= __PACKAGE__ . " version $version" ;
+  $struct->{'meta-spec'}{version} ||= int($version);
+  my $self = eval { $class->_new($struct, $options) };
+  croak ($@) if $@;
+  return $self;
+}
+
+#pod =method load_file
+#pod
+#pod   my $meta = CPAN::Meta->load_file($distmeta_file, \%options);
+#pod
+#pod Given a pathname to a file containing metadata, this deserializes the file
+#pod according to its file suffix and constructs a new C<CPAN::Meta> object, just
+#pod like C<new()>.  It will die if the deserialized version fails to validate
+#pod against its stated specification version.
+#pod
+#pod It takes the same options as C<new()> but C<lazy_validation> defaults to
+#pod true.
+#pod
+#pod =cut
+
+sub load_file {
+  my ($class, $file, $options) = @_;
+  $options->{lazy_validation} = 1 unless exists $options->{lazy_validation};
+
+  croak "load_file() requires a valid, readable filename"
+    unless -r $file;
+
+  my $self;
+  eval {
+    my $struct = Parse::CPAN::Meta->load_file( $file );
+    $self = $class->_new($struct, $options);
+  };
+  croak($@) if $@;
+  return $self;
+}
+
+#pod =method load_yaml_string
+#pod
+#pod   my $meta = CPAN::Meta->load_yaml_string($yaml, \%options);
+#pod
+#pod This method returns a new CPAN::Meta object using the first document in the
+#pod given YAML string.  In other respects it is identical to C<load_file()>.
+#pod
+#pod =cut
+
+sub load_yaml_string {
+  my ($class, $yaml, $options) = @_;
+  $options->{lazy_validation} = 1 unless exists $options->{lazy_validation};
+
+  my $self;
+  eval {
+    my ($struct) = Parse::CPAN::Meta->load_yaml_string( $yaml );
+    $self = $class->_new($struct, $options);
+  };
+  croak($@) if $@;
+  return $self;
+}
+
+#pod =method load_json_string
+#pod
+#pod   my $meta = CPAN::Meta->load_json_string($json, \%options);
+#pod
+#pod This method returns a new CPAN::Meta object using the structure represented by
+#pod the given JSON string.  In other respects it is identical to C<load_file()>.
+#pod
+#pod =cut
+
+sub load_json_string {
+  my ($class, $json, $options) = @_;
+  $options->{lazy_validation} = 1 unless exists $options->{lazy_validation};
+
+  my $self;
+  eval {
+    my $struct = Parse::CPAN::Meta->load_json_string( $json );
+    $self = $class->_new($struct, $options);
+  };
+  croak($@) if $@;
+  return $self;
+}
+
+#pod =method load_string
+#pod
+#pod   my $meta = CPAN::Meta->load_string($string, \%options);
+#pod
+#pod If you don't know if a string contains YAML or JSON, this method will use
+#pod L<Parse::CPAN::Meta> to guess.  In other respects it is identical to
+#pod C<load_file()>.
+#pod
+#pod =cut
+
+sub load_string {
+  my ($class, $string, $options) = @_;
+  $options->{lazy_validation} = 1 unless exists $options->{lazy_validation};
+
+  my $self;
+  eval {
+    my $struct = Parse::CPAN::Meta->load_string( $string );
+    $self = $class->_new($struct, $options);
+  };
+  croak($@) if $@;
+  return $self;
+}
+
+#pod =method save
+#pod
+#pod   $meta->save($distmeta_file, \%options);
+#pod
+#pod Serializes the object as JSON and writes it to the given file.  The only valid
+#pod option is C<version>, which defaults to '2'. On Perl 5.8.1 or later, the file
+#pod is saved with UTF-8 encoding.
+#pod
+#pod For C<version> 2 (or higher), the filename should end in '.json'.  L<JSON::PP>
+#pod is the default JSON backend. Using another JSON backend requires L<JSON> 2.5 or
+#pod later and you must set the C<$ENV{PERL_JSON_BACKEND}> to a supported alternate
+#pod backend like L<JSON::XS>.
+#pod
+#pod For C<version> less than 2, the filename should end in '.yml'.
+#pod L<CPAN::Meta::Converter> is used to generate an older metadata structure, which
+#pod is serialized to YAML.  CPAN::Meta::YAML is the default YAML backend.  You may
+#pod set the C<$ENV{PERL_YAML_BACKEND}> to a supported alternative backend, though
+#pod this is not recommended due to subtle incompatibilities between YAML parsers on
+#pod CPAN.
+#pod
+#pod =cut
+
+sub save {
+  my ($self, $file, $options) = @_;
+
+  my $version = $options->{version} || '2';
+  my $layer = $] ge '5.008001' ? ':utf8' : '';
+
+  if ( $version ge '2' ) {
+    carp "'$file' should end in '.json'"
+      unless $file =~ m{\.json$};
+  }
+  else {
+    carp "'$file' should end in '.yml'"
+      unless $file =~ m{\.yml$};
+  }
+
+  my $data = $self->as_string( $options );
+  open my $fh, ">$layer", $file
+    or die "Error opening '$file' for writing: $!\n";
+
+  print {$fh} $data;
+  close $fh
+    or die "Error closing '$file': $!\n";
+
+  return 1;
+}
+
+#pod =method meta_spec_version
+#pod
+#pod This method returns the version part of the C<meta_spec> entry in the distmeta
+#pod structure.  It is equivalent to:
+#pod
+#pod   $meta->meta_spec->{version};
+#pod
+#pod =cut
+
+sub meta_spec_version {
+  my ($self) = @_;
+  return $self->meta_spec->{version};
+}
+
+#pod =method effective_prereqs
+#pod
+#pod   my $prereqs = $meta->effective_prereqs;
+#pod
+#pod   my $prereqs = $meta->effective_prereqs( \@feature_identifiers );
+#pod
+#pod This method returns a L<CPAN::Meta::Prereqs> object describing all the
+#pod prereqs for the distribution.  If an arrayref of feature identifiers is given,
+#pod the prereqs for the identified features are merged together with the
+#pod distribution's core prereqs before the CPAN::Meta::Prereqs object is returned.
+#pod
+#pod =cut
+
+sub effective_prereqs {
+  my ($self, $features) = @_;
+  $features ||= [];
+
+  my $prereq = CPAN::Meta::Prereqs->new($self->prereqs);
+
+  return $prereq unless @$features;
+
+  my @other = map {; $self->feature($_)->prereqs } @$features;
+
+  return $prereq->with_merged_prereqs(\@other);
+}
+
+#pod =method should_index_file
+#pod
+#pod   ... if $meta->should_index_file( $filename );
+#pod
+#pod This method returns true if the given file should be indexed.  It decides this
+#pod by checking the C<file> and C<directory> keys in the C<no_index> property of
+#pod the distmeta structure. Note that neither the version format nor
+#pod C<release_status> are considered.
+#pod
+#pod C<$filename> should be given in unix format.
+#pod
+#pod =cut
+
+sub should_index_file {
+  my ($self, $filename) = @_;
+
+  for my $no_index_file (@{ $self->no_index->{file} || [] }) {
+    return if $filename eq $no_index_file;
+  }
+
+  for my $no_index_dir (@{ $self->no_index->{directory} }) {
+    $no_index_dir =~ s{$}{/} unless $no_index_dir =~ m{/\z};
+    return if index($filename, $no_index_dir) == 0;
+  }
+
+  return 1;
+}
+
+#pod =method should_index_package
+#pod
+#pod   ... if $meta->should_index_package( $package );
+#pod
+#pod This method returns true if the given package should be indexed.  It decides
+#pod this by checking the C<package> and C<namespace> keys in the C<no_index>
+#pod property of the distmeta structure. Note that neither the version format nor
+#pod C<release_status> are considered.
+#pod
+#pod =cut
+
+sub should_index_package {
+  my ($self, $package) = @_;
+
+  for my $no_index_pkg (@{ $self->no_index->{package} || [] }) {
+    return if $package eq $no_index_pkg;
+  }
+
+  for my $no_index_ns (@{ $self->no_index->{namespace} }) {
+    return if index($package, "${no_index_ns}::") == 0;
+  }
+
+  return 1;
+}
+
+#pod =method features
+#pod
+#pod   my @feature_objects = $meta->features;
+#pod
+#pod This method returns a list of L<CPAN::Meta::Feature> objects, one for each
+#pod optional feature described by the distribution's metadata.
+#pod
+#pod =cut
+
+sub features {
+  my ($self) = @_;
+
+  my $opt_f = $self->optional_features;
+  my @features = map {; CPAN::Meta::Feature->new($_ => $opt_f->{ $_ }) }
+                 keys %$opt_f;
+
+  return @features;
+}
+
+#pod =method feature
+#pod
+#pod   my $feature_object = $meta->feature( $identifier );
+#pod
+#pod This method returns a L<CPAN::Meta::Feature> object for the optional feature
+#pod with the given identifier.  If no feature with that identifier exists, an
+#pod exception will be raised.
+#pod
+#pod =cut
+
+sub feature {
+  my ($self, $ident) = @_;
+
+  croak "no feature named $ident"
+    unless my $f = $self->optional_features->{ $ident };
+
+  return CPAN::Meta::Feature->new($ident, $f);
+}
+
+#pod =method as_struct
+#pod
+#pod   my $copy = $meta->as_struct( \%options );
+#pod
+#pod This method returns a deep copy of the object's metadata as an unblessed hash
+#pod reference.  It takes an optional hashref of options.  If the hashref contains
+#pod a C<version> argument, the copied metadata will be converted to the version
+#pod of the specification and returned.  For example:
+#pod
+#pod   my $old_spec = $meta->as_struct( {version => "1.4"} );
+#pod
+#pod =cut
+
+sub as_struct {
+  my ($self, $options) = @_;
+  my $struct = _dclone($self);
+  if ( $options->{version} ) {
+    my $cmc = CPAN::Meta::Converter->new( $struct );
+    $struct = $cmc->convert( version => $options->{version} );
+  }
+  return $struct;
+}
+
+#pod =method as_string
+#pod
+#pod   my $string = $meta->as_string( \%options );
+#pod
+#pod This method returns a serialized copy of the object's metadata as a character
+#pod string.  (The strings are B<not> UTF-8 encoded.)  It takes an optional hashref
+#pod of options.  If the hashref contains a C<version> argument, the copied metadata
+#pod will be converted to the version of the specification and returned.  For
+#pod example:
+#pod
+#pod   my $string = $meta->as_string( {version => "1.4"} );
+#pod
+#pod For C<version> greater than or equal to 2, the string will be serialized as
+#pod JSON.  For C<version> less than 2, the string will be serialized as YAML.  In
+#pod both cases, the same rules are followed as in the C<save()> method for choosing
+#pod a serialization backend.
+#pod
+#pod The serialized structure will include a C<x_serialization_backend> entry giving
+#pod the package and version used to serialize.  Any existing key in the given
+#pod C<$meta> object will be clobbered.
+#pod
+#pod =cut
+
+sub as_string {
+  my ($self, $options) = @_;
+
+  my $version = $options->{version} || '2';
+
+  my $struct;
+  if ( $self->meta_spec_version ne $version ) {
+    my $cmc = CPAN::Meta::Converter->new( $self->as_struct );
+    $struct = $cmc->convert( version => $version );
+  }
+  else {
+    $struct = $self->as_struct;
+  }
+
+  my ($data, $backend);
+  if ( $version ge '2' ) {
+    $backend = Parse::CPAN::Meta->json_backend();
+    local $struct->{x_serialization_backend} = sprintf '%s version %s',
+      $backend, $backend->VERSION;
+    $data = $backend->new->pretty->canonical->encode($struct);
+  }
+  else {
+    $backend = Parse::CPAN::Meta->yaml_backend();
+    local $struct->{x_serialization_backend} = sprintf '%s version %s',
+      $backend, $backend->VERSION;
+    $data = eval { no strict 'refs'; &{"$backend\::Dump"}($struct) };
+    if ( $@ ) {
+      croak $backend->can('errstr') ? $backend->errstr : $@
+    }
+  }
+
+  return $data;
+}
+
+# Used by JSON::PP, etc. for "convert_blessed"
+sub TO_JSON {
+  return { %{ $_[0] } };
+}
+
+1;
+
+# ABSTRACT: the distribution metadata for a CPAN dist
+
+=pod
+
+=encoding UTF-8
+
+=head1 NAME
+
+CPAN::Meta - the distribution metadata for a CPAN dist
+
+=head1 VERSION
+
+version 2.150005
+
+=head1 SYNOPSIS
+
+    use v5.10;
+    use strict;
+    use warnings;
+    use CPAN::Meta;
+    use Module::Load;
+
+    my $meta = CPAN::Meta->load_file('META.json');
+
+    printf "testing requirements for %s version %s\n",
+    $meta->name,
+    $meta->version;
+
+    my $prereqs = $meta->effective_prereqs;
+
+    for my $phase ( qw/configure runtime build test/ ) {
+        say "Requirements for $phase:";
+        my $reqs = $prereqs->requirements_for($phase, "requires");
+        for my $module ( sort $reqs->required_modules ) {
+            my $status;
+            if ( eval { load $module unless $module eq 'perl'; 1 } ) {
+                my $version = $module eq 'perl' ? $] : $module->VERSION;
+                $status = $reqs->accepts_module($module, $version)
+                        ? "$version ok" : "$version not ok";
+            } else {
+                $status = "missing"
+            };
+            say "  $module ($status)";
+        }
+    }
+
+=head1 DESCRIPTION
+
+Software distributions released to the CPAN include a F<META.json> or, for
+older distributions, F<META.yml>, which describes the distribution, its
+contents, and the requirements for building and installing the distribution.
+The data structure stored in the F<META.json> file is described in
+L<CPAN::Meta::Spec>.
+
+CPAN::Meta provides a simple class to represent this distribution metadata (or
+I<distmeta>), along with some helpful methods for interrogating that data.
+
+The documentation below is only for the methods of the CPAN::Meta object.  For
+information on the meaning of individual fields, consult the spec.
+
+=head1 METHODS
+
+=head2 new
+
+  my $meta = CPAN::Meta->new($distmeta_struct, \%options);
+
+Returns a valid CPAN::Meta object or dies if the supplied metadata hash
+reference fails to validate.  Older-format metadata will be up-converted to
+version 2 if they validate against the original stated specification.
+
+It takes an optional hashref of options. Valid options include:
+
+=over
+
+=item *
+
+lazy_validation -- if true, new will attempt to convert the given metadata
+to version 2 before attempting to validate it.  This means than any
+fixable errors will be handled by CPAN::Meta::Converter before validation.
+(Note that this might result in invalid optional data being silently
+dropped.)  The default is false.
+
+=back
+
+=head2 create
+
+  my $meta = CPAN::Meta->create($distmeta_struct, \%options);
+
+This is same as C<new()>, except that C<generated_by> and C<meta-spec> fields
+will be generated if not provided.  This means the metadata structure is
+assumed to otherwise follow the latest L<CPAN::Meta::Spec>.
+
+=head2 load_file
+
+  my $meta = CPAN::Meta->load_file($distmeta_file, \%options);
+
+Given a pathname to a file containing metadata, this deserializes the file
+according to its file suffix and constructs a new C<CPAN::Meta> object, just
+like C<new()>.  It will die if the deserialized version fails to validate
+against its stated specification version.
+
+It takes the same options as C<new()> but C<lazy_validation> defaults to
+true.
+
+=head2 load_yaml_string
+
+  my $meta = CPAN::Meta->load_yaml_string($yaml, \%options);
+
+This method returns a new CPAN::Meta object using the first document in the
+given YAML string.  In other respects it is identical to C<load_file()>.
+
+=head2 load_json_string
+
+  my $meta = CPAN::Meta->load_json_string($json, \%options);
+
+This method returns a new CPAN::Meta object using the structure represented by
+the given JSON string.  In other respects it is identical to C<load_file()>.
+
+=head2 load_string
+
+  my $meta = CPAN::Meta->load_string($string, \%options);
+
+If you don't know if a string contains YAML or JSON, this method will use
+L<Parse::CPAN::Meta> to guess.  In other respects it is identical to
+C<load_file()>.
+
+=head2 save
+
+  $meta->save($distmeta_file, \%options);
+
+Serializes the object as JSON and writes it to the given file.  The only valid
+option is C<version>, which defaults to '2'. On Perl 5.8.1 or later, the file
+is saved with UTF-8 encoding.
+
+For C<version> 2 (or higher), the filename should end in '.json'.  L<JSON::PP>
+is the default JSON backend. Using another JSON backend requires L<JSON> 2.5 or
+later and you must set the C<$ENV{PERL_JSON_BACKEND}> to a supported alternate
+backend like L<JSON::XS>.
+
+For C<version> less than 2, the filename should end in '.yml'.
+L<CPAN::Meta::Converter> is used to generate an older metadata structure, which
+is serialized to YAML.  CPAN::Meta::YAML is the default YAML backend.  You may
+set the C<$ENV{PERL_YAML_BACKEND}> to a supported alternative backend, though
+this is not recommended due to subtle incompatibilities between YAML parsers on
+CPAN.
+
+=head2 meta_spec_version
+
+This method returns the version part of the C<meta_spec> entry in the distmeta
+structure.  It is equivalent to:
+
+  $meta->meta_spec->{version};
+
+=head2 effective_prereqs
+
+  my $prereqs = $meta->effective_prereqs;
+
+  my $prereqs = $meta->effective_prereqs( \@feature_identifiers );
+
+This method returns a L<CPAN::Meta::Prereqs> object describing all the
+prereqs for the distribution.  If an arrayref of feature identifiers is given,
+the prereqs for the identified features are merged together with the
+distribution's core prereqs before the CPAN::Meta::Prereqs object is returned.
+
+=head2 should_index_file
+
+  ... if $meta->should_index_file( $filename );
+
+This method returns true if the given file should be indexed.  It decides this
+by checking the C<file> and C<directory> keys in the C<no_index> property of
+the distmeta structure. Note that neither the version format nor
+C<release_status> are considered.
+
+C<$filename> should be given in unix format.
+
+=head2 should_index_package
+
+  ... if $meta->should_index_package( $package );
+
+This method returns true if the given package should be indexed.  It decides
+this by checking the C<package> and C<namespace> keys in the C<no_index>
+property of the distmeta structure. Note that neither the version format nor
+C<release_status> are considered.
+
+=head2 features
+
+  my @feature_objects = $meta->features;
+
+This method returns a list of L<CPAN::Meta::Feature> objects, one for each
+optional feature described by the distribution's metadata.
+
+=head2 feature
+
+  my $feature_object = $meta->feature( $identifier );
+
+This method returns a L<CPAN::Meta::Feature> object for the optional feature
+with the given identifier.  If no feature with that identifier exists, an
+exception will be raised.
+
+=head2 as_struct
+
+  my $copy = $meta->as_struct( \%options );
+
+This method returns a deep copy of the object's metadata as an unblessed hash
+reference.  It takes an optional hashref of options.  If the hashref contains
+a C<version> argument, the copied metadata will be converted to the version
+of the specification and returned.  For example:
+
+  my $old_spec = $meta->as_struct( {version => "1.4"} );
+
+=head2 as_string
+
+  my $string = $meta->as_string( \%options );
+
+This method returns a serialized copy of the object's metadata as a character
+string.  (The strings are B<not> UTF-8 encoded.)  It takes an optional hashref
+of options.  If the hashref contains a C<version> argument, the copied metadata
+will be converted to the version of the specification and returned.  For
+example:
+
+  my $string = $meta->as_string( {version => "1.4"} );
+
+For C<version> greater than or equal to 2, the string will be serialized as
+JSON.  For C<version> less than 2, the string will be serialized as YAML.  In
+both cases, the same rules are followed as in the C<save()> method for choosing
+a serialization backend.
+
+The serialized structure will include a C<x_serialization_backend> entry giving
+the package and version used to serialize.  Any existing key in the given
+C<$meta> object will be clobbered.
+
+=head1 STRING DATA
+
+The following methods return a single value, which is the value for the
+corresponding entry in the distmeta structure.  Values should be either undef
+or strings.
+
+=over 4
+
+=item *
+
+abstract
+
+=item *
+
+description
+
+=item *
+
+dynamic_config
+
+=item *
+
+generated_by
+
+=item *
+
+name
+
+=item *
+
+release_status
+
+=item *
+
+version
+
+=back
+
+=head1 LIST DATA
+
+These methods return lists of string values, which might be represented in the
+distmeta structure as arrayrefs or scalars:
+
+=over 4
+
+=item *
+
+authors
+
+=item *
+
+keywords
+
+=item *
+
+licenses
+
+=back
+
+The C<authors> and C<licenses> methods may also be called as C<author> and
+C<license>, respectively, to match the field name in the distmeta structure.
+
+=head1 MAP DATA
+
+These readers return hashrefs of arbitrary unblessed data structures, each
+described more fully in the specification:
+
+=over 4
+
+=item *
+
+meta_spec
+
+=item *
+
+resources
+
+=item *
+
+provides
+
+=item *
+
+no_index
+
+=item *
+
+prereqs
+
+=item *
+
+optional_features
+
+=back
+
+=head1 CUSTOM DATA
+
+A list of custom keys are available from the C<custom_keys> method and
+particular keys may be retrieved with the C<custom> method.
+
+  say $meta->custom($_) for $meta->custom_keys;
+
+If a custom key refers to a data structure, a deep clone is returned.
+
+=for Pod::Coverage TO_JSON abstract author authors custom custom_keys description dynamic_config
+generated_by keywords license licenses meta_spec name no_index
+optional_features prereqs provides release_status resources version
+
+=head1 BUGS
+
+Please report any bugs or feature using the CPAN Request Tracker.
+Bugs can be submitted through the web interface at
+L<http://rt.cpan.org/Dist/Display.html?Queue=CPAN-Meta>
+
+When submitting a bug or request, please include a test-file or a patch to an
+existing test-file that illustrates the bug or desired feature.
+
+=head1 SEE ALSO
+
+=over 4
+
+=item *
+
+L<CPAN::Meta::Converter>
+
+=item *
+
+L<CPAN::Meta::Validator>
+
+=back
+
+=for :stopwords cpan testmatrix url annocpan anno bugtracker rt cpants kwalitee diff irc mailto metadata placeholders metacpan
+
+=head1 SUPPORT
+
+=head2 Bugs / Feature Requests
+
+Please report any bugs or feature requests through the issue tracker
+at L<https://github.com/Perl-Toolchain-Gang/CPAN-Meta/issues>.
+You will be notified automatically of any progress on your issue.
+
+=head2 Source Code
+
+This is open source software.  The code repository is available for
+public review and contribution under the terms of the license.
+
+L<https://github.com/Perl-Toolchain-Gang/CPAN-Meta>
+
+  git clone https://github.com/Perl-Toolchain-Gang/CPAN-Meta.git
+
+=head1 AUTHORS
+
+=over 4
+
+=item *
+
+David Golden <dagolden@cpan.org>
+
+=item *
+
+Ricardo Signes <rjbs@cpan.org>
+
+=back
+
+=head1 CONTRIBUTORS
+
+=for stopwords Ansgar Burchardt Avar Arnfjord Bjarmason Christopher J. Madsen Chuck Adams Cory G Watson Damyan Ivanov Eric Wilhelm Graham Knop Gregor Hermann Karen Etheridge Kenichi Ishigaki Ken Williams Lars Dieckow Leon Timmermans majensen Mark Fowler Matt S Trout Michael G. Schwern mohawk2 moznion Niko Tyni Olaf Alders Olivier Mengué Randy Sims Tomohiro Hosaka
+
+=over 4
+
+=item *
+
+Ansgar Burchardt <ansgar@cpan.org>
+
+=item *
+
+Avar Arnfjord Bjarmason <avar@cpan.org>
+
+=item *
+
+Christopher J. Madsen <cjm@cpan.org>
+
+=item *
+
+Chuck Adams <cja987@gmail.com>
+
+=item *
+
+Cory G Watson <gphat@cpan.org>
+
+=item *
+
+Damyan Ivanov <dam@cpan.org>
+
+=item *
+
+Eric Wilhelm <ewilhelm@cpan.org>
+
+=item *
+
+Graham Knop <haarg@haarg.org>
+
+=item *
+
+Gregor Hermann <gregoa@debian.org>
+
+=item *
+
+Karen Etheridge <ether@cpan.org>
+
+=item *
+
+Kenichi Ishigaki <ishigaki@cpan.org>
+
+=item *
+
+Ken Williams <kwilliams@cpan.org>
+
+=item *
+
+Lars Dieckow <daxim@cpan.org>
+
+=item *
+
+Leon Timmermans <leont@cpan.org>
+
+=item *
+
+majensen <maj@fortinbras.us>
+
+=item *
+
+Mark Fowler <markf@cpan.org>
+
+=item *
+
+Matt S Trout <mst@shadowcat.co.uk>
+
+=item *
+
+Michael G. Schwern <mschwern@cpan.org>
+
+=item *
+
+mohawk2 <mohawk2@users.noreply.github.com>
+
+=item *
+
+moznion <moznion@gmail.com>
+
+=item *
+
+Niko Tyni <ntyni@debian.org>
+
+=item *
+
+Olaf Alders <olaf@wundersolutions.com>
+
+=item *
+
+Olivier Mengué <dolmen@cpan.org>
+
+=item *
+
+Randy Sims <randys@thepierianspring.org>
+
+=item *
+
+Tomohiro Hosaka <bokutin@bokut.in>
+
+=back
+
+=head1 COPYRIGHT AND LICENSE
+
+This software is copyright (c) 2010 by David Golden and Ricardo Signes.
+
+This is free software; you can redistribute it and/or modify it under
+the same terms as the Perl 5 programming language system itself.
+
+=cut
+
+__END__
+
+
+# vim: ts=2 sts=2 sw=2 et :
diff --git a/lib/5.24.1/CPAN/Meta/Converter.pm b/lib/5.24.1/CPAN/Meta/Converter.pm
new file mode 100644
index 00000000..03806bc8
--- /dev/null
+++ b/lib/5.24.1/CPAN/Meta/Converter.pm
@@ -0,0 +1,1639 @@
+use 5.006;
+use strict;
+use warnings;
+package CPAN::Meta::Converter;
+
+our $VERSION = '2.150005';
+
+#pod =head1 SYNOPSIS
+#pod
+#pod   my $struct = decode_json_file('META.json');
+#pod
+#pod   my $cmc = CPAN::Meta::Converter->new( $struct );
+#pod
+#pod   my $new_struct = $cmc->convert( version => "2" );
+#pod
+#pod =head1 DESCRIPTION
+#pod
+#pod This module converts CPAN Meta structures from one form to another.  The
+#pod primary use is to convert older structures to the most modern version of
+#pod the specification, but other transformations may be implemented in the
+#pod future as needed.  (E.g. stripping all custom fields or stripping all
+#pod optional fields.)
+#pod
+#pod =cut
+
+use CPAN::Meta::Validator;
+use CPAN::Meta::Requirements;
+use Parse::CPAN::Meta 1.4400 ();
+
+# To help ExtUtils::MakeMaker bootstrap CPAN::Meta::Requirements on perls
+# before 5.10, we fall back to the EUMM bundled compatibility version module if
+# that's the only thing available.  This shouldn't ever happen in a normal CPAN
+# install of CPAN::Meta::Requirements, as version.pm will be picked up from
+# prereqs and be available at runtime.
+
+BEGIN {
+  eval "use version ()"; ## no critic
+  if ( my $err = $@ ) {
+    eval "use ExtUtils::MakeMaker::version" or die $err; ## no critic
+  }
+}
+
+# Perl 5.10.0 didn't have "is_qv" in version.pm
+*_is_qv = version->can('is_qv') ? sub { $_[0]->is_qv } : sub { exists $_[0]->{qv} };
+
+sub _dclone {
+  my $ref = shift;
+
+  # if an object is in the data structure and doesn't specify how to
+  # turn itself into JSON, we just stringify the object.  That does the
+  # right thing for typical things that might be there, like version objects,
+  # Path::Class objects, etc.
+  no warnings 'once';
+  no warnings 'redefine';
+  local *UNIVERSAL::TO_JSON = sub { "$_[0]" };
+
+  my $json = Parse::CPAN::Meta->json_backend()->new
+      ->utf8
+      ->allow_blessed
+      ->convert_blessed;
+  $json->decode($json->encode($ref))
+}
+
+my %known_specs = (
+    '2'   => 'http://search.cpan.org/perldoc?CPAN::Meta::Spec',
+    '1.4' => 'http://module-build.sourceforge.net/META-spec-v1.4.html',
+    '1.3' => 'http://module-build.sourceforge.net/META-spec-v1.3.html',
+    '1.2' => 'http://module-build.sourceforge.net/META-spec-v1.2.html',
+    '1.1' => 'http://module-build.sourceforge.net/META-spec-v1.1.html',
+    '1.0' => 'http://module-build.sourceforge.net/META-spec-v1.0.html'
+);
+
+my @spec_list = sort { $a <=> $b } keys %known_specs;
+my ($LOWEST, $HIGHEST) = @spec_list[0,-1];
+
+#--------------------------------------------------------------------------#
+# converters
+#
+# called as $converter->($element, $field_name, $full_meta, $to_version)
+#
+# defined return value used for field
+# undef return value means field is skipped
+#--------------------------------------------------------------------------#
+
+sub _keep { $_[0] }
+
+sub _keep_or_one { defined($_[0]) ? $_[0] : 1 }
+
+sub _keep_or_zero { defined($_[0]) ? $_[0] : 0 }
+
+sub _keep_or_unknown { defined($_[0]) && length($_[0]) ? $_[0] : "unknown" }
+
+sub _generated_by {
+  my $gen = shift;
+  my $sig = __PACKAGE__ . " version " . (__PACKAGE__->VERSION || "<dev>");
+
+  return $sig unless defined $gen and length $gen;
+  return $gen if $gen =~ /\Q$sig/;
+  return "$gen, $sig";
+}
+
+sub _listify { ! defined $_[0] ? undef : ref $_[0] eq 'ARRAY' ? $_[0] : [$_[0]] }
+
+sub _prefix_custom {
+  my $key = shift;
+  $key =~ s/^(?!x_)   # Unless it already starts with x_
+             (?:x-?)? # Remove leading x- or x (if present)
+           /x_/ix;    # and prepend x_
+  return $key;
+}
+
+sub _ucfirst_custom {
+  my $key = shift;
+  $key = ucfirst $key unless $key =~ /[A-Z]/;
+  return $key;
+}
+
+sub _no_prefix_ucfirst_custom {
+  my $key = shift;
+  $key =~ s/^x_//;
+  return _ucfirst_custom($key);
+}
+
+sub _change_meta_spec {
+  my ($element, undef, undef, $version) = @_;
+  return {
+    version => $version,
+    url => $known_specs{$version},
+  };
+}
+
+my @open_source = (
+  'perl',
+  'gpl',
+  'apache',
+  'artistic',
+  'artistic_2',
+  'lgpl',
+  'bsd',
+  'gpl',
+  'mit',
+  'mozilla',
+  'open_source',
+);
+
+my %is_open_source = map {; $_ => 1 } @open_source;
+
+my @valid_licenses_1 = (
+  @open_source,
+  'unrestricted',
+  'restrictive',
+  'unknown',
+);
+
+my %license_map_1 = (
+  ( map { $_ => $_ } @valid_licenses_1 ),
+  artistic2 => 'artistic_2',
+);
+
+sub _license_1 {
+  my ($element) = @_;
+  return 'unknown' unless defined $element;
+  if ( $license_map_1{lc $element} ) {
+    return $license_map_1{lc $element};
+  }
+  else {
+    return 'unknown';
+  }
+}
+
+my @valid_licenses_2 = qw(
+  agpl_3
+  apache_1_1
+  apache_2_0
+  artistic_1
+  artistic_2
+  bsd
+  freebsd
+  gfdl_1_2
+  gfdl_1_3
+  gpl_1
+  gpl_2
+  gpl_3
+  lgpl_2_1
+  lgpl_3_0
+  mit
+  mozilla_1_0
+  mozilla_1_1
+  openssl
+  perl_5
+  qpl_1_0
+  ssleay
+  sun
+  zlib
+  open_source
+  restricted
+  unrestricted
+  unknown
+);
+
+# The "old" values were defined by Module::Build, and were often vague.  I have
+# made the decisions below based on reading Module::Build::API and how clearly
+# it specifies the version of the license.
+my %license_map_2 = (
+  (map { $_ => $_ } @valid_licenses_2),
+  apache      => 'apache_2_0',  # clearly stated as 2.0
+  artistic    => 'artistic_1',  # clearly stated as 1
+  artistic2   => 'artistic_2',  # clearly stated as 2
+  gpl         => 'open_source', # we don't know which GPL; punt
+  lgpl        => 'open_source', # we don't know which LGPL; punt
+  mozilla     => 'open_source', # we don't know which MPL; punt
+  perl        => 'perl_5',      # clearly Perl 5
+  restrictive => 'restricted',
+);
+
+sub _license_2 {
+  my ($element) = @_;
+  return [ 'unknown' ] unless defined $element;
+  $element = [ $element ] unless ref $element eq 'ARRAY';
+  my @new_list;
+  for my $lic ( @$element ) {
+    next unless defined $lic;
+    if ( my $new = $license_map_2{lc $lic} ) {
+      push @new_list, $new;
+    }
+  }
+  return @new_list ? \@new_list : [ 'unknown' ];
+}
+
+my %license_downgrade_map = qw(
+  agpl_3            open_source
+  apache_1_1        apache
+  apache_2_0        apache
+  artistic_1        artistic
+  artistic_2        artistic_2
+  bsd               bsd
+  freebsd           open_source
+  gfdl_1_2          open_source
+  gfdl_1_3          open_source
+  gpl_1             gpl
+  gpl_2             gpl
+  gpl_3             gpl
+  lgpl_2_1          lgpl
+  lgpl_3_0          lgpl
+  mit               mit
+  mozilla_1_0       mozilla
+  mozilla_1_1       mozilla
+  openssl           open_source
+  perl_5            perl
+  qpl_1_0           open_source
+  ssleay            open_source
+  sun               open_source
+  zlib              open_source
+  open_source       open_source
+  restricted        restrictive
+  unrestricted      unrestricted
+  unknown           unknown
+);
+
+sub _downgrade_license {
+  my ($element) = @_;
+  if ( ! defined $element ) {
+    return "unknown";
+  }
+  elsif( ref $element eq 'ARRAY' ) {
+    if ( @$element > 1) {
+      if (grep { !$is_open_source{ $license_downgrade_map{lc $_} || 'unknown' } } @$element) {
+        return 'unknown';
+      }
+      else {
+        return 'open_source';
+      }
+    }
+    elsif ( @$element == 1 ) {
+      return $license_downgrade_map{lc $element->[0]} || "unknown";
+    }
+  }
+  elsif ( ! ref $element ) {
+    return $license_downgrade_map{lc $element} || "unknown";
+  }
+  return "unknown";
+}
+
+my $no_index_spec_1_2 = {
+  'file' => \&_listify,
+  'dir' => \&_listify,
+  'package' => \&_listify,
+  'namespace' => \&_listify,
+};
+
+my $no_index_spec_1_3 = {
+  'file' => \&_listify,
+  'directory' => \&_listify,
+  'package' => \&_listify,
+  'namespace' => \&_listify,
+};
+
+my $no_index_spec_2 = {
+  'file' => \&_listify,
+  'directory' => \&_listify,
+  'package' => \&_listify,
+  'namespace' => \&_listify,
+  ':custom'  => \&_prefix_custom,
+};
+
+sub _no_index_1_2 {
+  my (undef, undef, $meta) = @_;
+  my $no_index = $meta->{no_index} || $meta->{private};
+  return unless $no_index;
+
+  # cleanup wrong format
+  if ( ! ref $no_index ) {
+    my $item = $no_index;
+    $no_index = { dir => [ $item ], file => [ $item ] };
+  }
+  elsif ( ref $no_index eq 'ARRAY' ) {
+    my $list = $no_index;
+    $no_index = { dir => [ @$list ], file => [ @$list ] };
+  }
+
+  # common mistake: files -> file
+  if ( exists $no_index->{files} ) {
+    $no_index->{file} = delete $no_index->{files};
+  }
+  # common mistake: modules -> module
+  if ( exists $no_index->{modules} ) {
+    $no_index->{module} = delete $no_index->{modules};
+  }
+  return _convert($no_index, $no_index_spec_1_2);
+}
+
+sub _no_index_directory {
+  my ($element, $key, $meta, $version) = @_;
+  return unless $element;
+
+  # cleanup wrong format
+  if ( ! ref $element ) {
+    my $item = $element;
+    $element = { directory => [ $item ], file => [ $item ] };
+  }
+  elsif ( ref $element eq 'ARRAY' ) {
+    my $list = $element;
+    $element = { directory => [ @$list ], file => [ @$list ] };
+  }
+
+  if ( exists $element->{dir} ) {
+    $element->{directory} = delete $element->{dir};
+  }
+  # common mistake: files -> file
+  if ( exists $element->{files} ) {
+    $element->{file} = delete $element->{files};
+  }
+  # common mistake: modules -> module
+  if ( exists $element->{modules} ) {
+    $element->{module} = delete $element->{modules};
+  }
+  my $spec = $version == 2 ? $no_index_spec_2 : $no_index_spec_1_3;
+  return _convert($element, $spec);
+}
+
+sub _is_module_name {
+  my $mod = shift;
+  return unless defined $mod && length $mod;
+  return $mod =~ m{^[A-Za-z][A-Za-z0-9_]*(?:::[A-Za-z0-9_]+)*$};
+}
+
+sub _clean_version {
+  my ($element) = @_;
+  return 0 if ! defined $element;
+
+  $element =~ s{^\s*}{};
+  $element =~ s{\s*$}{};
+  $element =~ s{^\.}{0.};
+
+  return 0 if ! length $element;
+  return 0 if ( $element eq 'undef' || $element eq '<undef>' );
+
+  my $v = eval { version->new($element) };
+  # XXX check defined $v and not just $v because version objects leak memory
+  # in boolean context -- dagolden, 2012-02-03
+  if ( defined $v ) {
+    return _is_qv($v) ? $v->normal : $element;
+  }
+  else {
+    return 0;
+  }
+}
+
+sub _bad_version_hook {
+  my ($v) = @_;
+  $v =~ s{^\s*}{};
+  $v =~ s{\s*$}{};
+  $v =~ s{[a-z]+$}{}; # strip trailing alphabetics
+  my $vobj = eval { version->new($v) };
+  return defined($vobj) ? $vobj : version->new(0); # or give up
+}
+
+sub _version_map {
+  my ($element) = @_;
+  return unless defined $element;
+  if ( ref $element eq 'HASH' ) {
+    # XXX turn this into CPAN::Meta::Requirements with bad version hook
+    # and then turn it back into a hash
+    my $new_map = CPAN::Meta::Requirements->new(
+      { bad_version_hook => \&_bad_version_hook } # punt
+    );
+    while ( my ($k,$v) = each %$element ) {
+      next unless _is_module_name($k);
+      if ( !defined($v) || !length($v) || $v eq 'undef' || $v eq '<undef>'  ) {
+        $v = 0;
+      }
+      # some weird, old META have bad yml with module => module
+      # so check if value is like a module name and not like a version
+      if ( _is_module_name($v) && ! version::is_lax($v) ) {
+        $new_map->add_minimum($k => 0);
+        $new_map->add_minimum($v => 0);
+      }
+      $new_map->add_string_requirement($k => $v);
+    }
+    return $new_map->as_string_hash;
+  }
+  elsif ( ref $element eq 'ARRAY' ) {
+    my $hashref = { map { $_ => 0 } @$element };
+    return _version_map($hashref); # cleanup any weird stuff
+  }
+  elsif ( ref $element eq '' && length $element ) {
+    return { $element => 0 }
+  }
+  return;
+}
+
+sub _prereqs_from_1 {
+  my (undef, undef, $meta) = @_;
+  my $prereqs = {};
+  for my $phase ( qw/build configure/ ) {
+    my $key = "${phase}_requires";
+    $prereqs->{$phase}{requires} = _version_map($meta->{$key})
+      if $meta->{$key};
+  }
+  for my $rel ( qw/requires recommends conflicts/ ) {
+    $prereqs->{runtime}{$rel} = _version_map($meta->{$rel})
+      if $meta->{$rel};
+  }
+  return $prereqs;
+}
+
+my $prereqs_spec = {
+  configure => \&_prereqs_rel,
+  build     => \&_prereqs_rel,
+  test      => \&_prereqs_rel,
+  runtime   => \&_prereqs_rel,
+  develop   => \&_prereqs_rel,
+  ':custom'  => \&_prefix_custom,
+};
+
+my $relation_spec = {
+  requires   => \&_version_map,
+  recommends => \&_version_map,
+  suggests   => \&_version_map,
+  conflicts  => \&_version_map,
+  ':custom'  => \&_prefix_custom,
+};
+
+sub _cleanup_prereqs {
+  my ($prereqs, $key, $meta, $to_version) = @_;
+  return unless $prereqs && ref $prereqs eq 'HASH';
+  return _convert( $prereqs, $prereqs_spec, $to_version );
+}
+
+sub _prereqs_rel {
+  my ($relation, $key, $meta, $to_version) = @_;
+  return unless $relation && ref $relation eq 'HASH';
+  return _convert( $relation, $relation_spec, $to_version );
+}
+
+
+BEGIN {
+  my @old_prereqs = qw(
+    requires
+    configure_requires
+    recommends
+    conflicts
+  );
+
+  for ( @old_prereqs ) {
+    my $sub = "_get_$_";
+    my ($phase,$type) = split qr/_/, $_;
+    if ( ! defined $type ) {
+      $type = $phase;
+      $phase = 'runtime';
+    }
+    no strict 'refs';
+    *{$sub} = sub { _extract_prereqs($_[2]->{prereqs},$phase,$type) };
+  }
+}
+
+sub _get_build_requires {
+  my ($data, $key, $meta) = @_;
+
+  my $test_h  = _extract_prereqs($_[2]->{prereqs}, qw(test  requires)) || {};
+  my $build_h = _extract_prereqs($_[2]->{prereqs}, qw(build requires)) || {};
+
+  my $test_req  = CPAN::Meta::Requirements->from_string_hash($test_h);
+  my $build_req = CPAN::Meta::Requirements->from_string_hash($build_h);
+
+  $test_req->add_requirements($build_req)->as_string_hash;
+}
+
+sub _extract_prereqs {
+  my ($prereqs, $phase, $type) = @_;
+  return unless ref $prereqs eq 'HASH';
+  return scalar _version_map($prereqs->{$phase}{$type});
+}
+
+sub _downgrade_optional_features {
+  my (undef, undef, $meta) = @_;
+  return unless exists $meta->{optional_features};
+  my $origin = $meta->{optional_features};
+  my $features = {};
+  for my $name ( keys %$origin ) {
+    $features->{$name} = {
+      description => $origin->{$name}{description},
+      requires => _extract_prereqs($origin->{$name}{prereqs},'runtime','requires'),
+      configure_requires => _extract_prereqs($origin->{$name}{prereqs},'runtime','configure_requires'),
+      build_requires => _extract_prereqs($origin->{$name}{prereqs},'runtime','build_requires'),
+      recommends => _extract_prereqs($origin->{$name}{prereqs},'runtime','recommends'),
+      conflicts => _extract_prereqs($origin->{$name}{prereqs},'runtime','conflicts'),
+    };
+    for my $k (keys %{$features->{$name}} ) {
+      delete $features->{$name}{$k} unless defined $features->{$name}{$k};
+    }
+  }
+  return $features;
+}
+
+sub _upgrade_optional_features {
+  my (undef, undef, $meta) = @_;
+  return unless exists $meta->{optional_features};
+  my $origin = $meta->{optional_features};
+  my $features = {};
+  for my $name ( keys %$origin ) {
+    $features->{$name} = {
+      description => $origin->{$name}{description},
+      prereqs => _prereqs_from_1(undef, undef, $origin->{$name}),
+    };
+    delete $features->{$name}{prereqs}{configure};
+  }
+  return $features;
+}
+
+my $optional_features_2_spec = {
+  description => \&_keep,
+  prereqs => \&_cleanup_prereqs,
+  ':custom'  => \&_prefix_custom,
+};
+
+sub _feature_2 {
+  my ($element, $key, $meta, $to_version) = @_;
+  return unless $element && ref $element eq 'HASH';
+  _convert( $element, $optional_features_2_spec, $to_version );
+}
+
+sub _cleanup_optional_features_2 {
+  my ($element, $key, $meta, $to_version) = @_;
+  return unless $element && ref $element eq 'HASH';
+  my $new_data = {};
+  for my $k ( keys %$element ) {
+    $new_data->{$k} = _feature_2( $element->{$k}, $k, $meta, $to_version );
+  }
+  return unless keys %$new_data;
+  return $new_data;
+}
+
+sub _optional_features_1_4 {
+  my ($element) = @_;
+  return unless $element;
+  $element = _optional_features_as_map($element);
+  for my $name ( keys %$element ) {
+    for my $drop ( qw/requires_packages requires_os excluded_os/ ) {
+      delete $element->{$name}{$drop};
+    }
+  }
+  return $element;
+}
+
+sub _optional_features_as_map {
+  my ($element) = @_;
+  return unless $element;
+  if ( ref $element eq 'ARRAY' ) {
+    my %map;
+    for my $feature ( @$element ) {
+      my (@parts) = %$feature;
+      $map{$parts[0]} = $parts[1];
+    }
+    $element = \%map;
+  }
+  return $element;
+}
+
+sub _is_urlish { defined $_[0] && $_[0] =~ m{\A[-+.a-z0-9]+:.+}i }
+
+sub _url_or_drop {
+  my ($element) = @_;
+  return $element if _is_urlish($element);
+  return;
+}
+
+sub _url_list {
+  my ($element) = @_;
+  return unless $element;
+  $element = _listify( $element );
+  $element = [ grep { _is_urlish($_) } @$element ];
+  return unless @$element;
+  return $element;
+}
+
+sub _author_list {
+  my ($element) = @_;
+  return [ 'unknown' ] unless $element;
+  $element = _listify( $element );
+  $element = [ map { defined $_ && length $_ ? $_ : 'unknown' } @$element ];
+  return [ 'unknown' ] unless @$element;
+  return $element;
+}
+
+my $resource2_upgrade = {
+  license    => sub { return _is_urlish($_[0]) ? _listify( $_[0] ) : undef },
+  homepage   => \&_url_or_drop,
+  bugtracker => sub {
+    my ($item) = @_;
+    return unless $item;
+    if ( $item =~ m{^mailto:(.*)$} ) { return { mailto => $1 } }
+    elsif( _is_urlish($item) ) { return { web => $item } }
+    else { return }
+  },
+  repository => sub { return _is_urlish($_[0]) ? { url => $_[0] } : undef },
+  ':custom'  => \&_prefix_custom,
+};
+
+sub _upgrade_resources_2 {
+  my (undef, undef, $meta, $version) = @_;
+  return unless exists $meta->{resources};
+  return _convert($meta->{resources}, $resource2_upgrade);
+}
+
+my $bugtracker2_spec = {
+  web => \&_url_or_drop,
+  mailto => \&_keep,
+  ':custom'  => \&_prefix_custom,
+};
+
+sub _repo_type {
+  my ($element, $key, $meta, $to_version) = @_;
+  return $element if defined $element;
+  return unless exists $meta->{url};
+  my $repo_url = $meta->{url};
+  for my $type ( qw/git svn/ ) {
+    return $type if $repo_url =~ m{\A$type};
+  }
+  return;
+}
+
+my $repository2_spec = {
+  web => \&_url_or_drop,
+  url => \&_url_or_drop,
+  type => \&_repo_type,
+  ':custom'  => \&_prefix_custom,
+};
+
+my $resources2_cleanup = {
+  license    => \&_url_list,
+  homepage   => \&_url_or_drop,
+  bugtracker => sub { ref $_[0] ? _convert( $_[0], $bugtracker2_spec ) : undef },
+  repository => sub { my $data = shift; ref $data ? _convert( $data, $repository2_spec ) : undef },
+  ':custom'  => \&_prefix_custom,
+};
+
+sub _cleanup_resources_2 {
+  my ($resources, $key, $meta, $to_version) = @_;
+  return unless $resources && ref $resources eq 'HASH';
+  return _convert($resources, $resources2_cleanup, $to_version);
+}
+
+my $resource1_spec = {
+  license    => \&_url_or_drop,
+  homepage   => \&_url_or_drop,
+  bugtracker => \&_url_or_drop,
+  repository => \&_url_or_drop,
+  ':custom'  => \&_keep,
+};
+
+sub _resources_1_3 {
+  my (undef, undef, $meta, $version) = @_;
+  return unless exists $meta->{resources};
+  return _convert($meta->{resources}, $resource1_spec);
+}
+
+*_resources_1_4 = *_resources_1_3;
+
+sub _resources_1_2 {
+  my (undef, undef, $meta) = @_;
+  my $resources = $meta->{resources} || {};
+  if ( $meta->{license_url} && ! $resources->{license} ) {
+    $resources->{license} = $meta->{license_url}
+      if _is_urlish($meta->{license_url});
+  }
+  return unless keys %$resources;
+  return _convert($resources, $resource1_spec);
+}
+
+my $resource_downgrade_spec = {
+  license    => sub { return ref $_[0] ? $_[0]->[0] : $_[0] },
+  homepage   => \&_url_or_drop,
+  bugtracker => sub { return $_[0]->{web} },
+  repository => sub { return $_[0]->{url} || $_[0]->{web} },
+  ':custom'  => \&_no_prefix_ucfirst_custom,
+};
+
+sub _downgrade_resources {
+  my (undef, undef, $meta, $version) = @_;
+  return unless exists $meta->{resources};
+  return _convert($meta->{resources}, $resource_downgrade_spec);
+}
+
+sub _release_status {
+  my ($element, undef, $meta) = @_;
+  return $element if $element && $element =~ m{\A(?:stable|testing|unstable)\z};
+  return _release_status_from_version(undef, undef, $meta);
+}
+
+sub _release_status_from_version {
+  my (undef, undef, $meta) = @_;
+  my $version = $meta->{version} || '';
+  return ( $version =~ /_/ ) ? 'testing' : 'stable';
+}
+
+my $provides_spec = {
+  file => \&_keep,
+  version => \&_keep,
+};
+
+my $provides_spec_2 = {
+  file => \&_keep,
+  version => \&_keep,
+  ':custom'  => \&_prefix_custom,
+};
+
+sub _provides {
+  my ($element, $key, $meta, $to_version) = @_;
+  return unless defined $element && ref $element eq 'HASH';
+  my $spec = $to_version == 2 ? $provides_spec_2 : $provides_spec;
+  my $new_data = {};
+  for my $k ( keys %$element ) {
+    $new_data->{$k} = _convert($element->{$k}, $spec, $to_version);
+    $new_data->{$k}{version} = _clean_version($element->{$k}{version})
+      if exists $element->{$k}{version};
+  }
+  return $new_data;
+}
+
+sub _convert {
+  my ($data, $spec, $to_version, $is_fragment) = @_;
+
+  my $new_data = {};
+  for my $key ( keys %$spec ) {
+    next if $key eq ':custom' || $key eq ':drop';
+    next unless my $fcn = $spec->{$key};
+    if ( $is_fragment && $key eq 'generated_by' ) {
+      $fcn = \&_keep;
+    }
+    die "spec for '$key' is not a coderef"
+      unless ref $fcn && ref $fcn eq 'CODE';
+    my $new_value = $fcn->($data->{$key}, $key, $data, $to_version);
+    $new_data->{$key} = $new_value if defined $new_value;
+  }
+
+  my $drop_list   = $spec->{':drop'};
+  my $customizer  = $spec->{':custom'} || \&_keep;
+
+  for my $key ( keys %$data ) {
+    next if $drop_list && grep { $key eq $_ } @$drop_list;
+    next if exists $spec->{$key}; # we handled it
+    $new_data->{ $customizer->($key) } = $data->{$key};
+  }
+
+  return $new_data;
+}
+
+#--------------------------------------------------------------------------#
+# define converters for each conversion
+#--------------------------------------------------------------------------#
+
+# each converts from prior version
+# special ":custom" field is used for keys not recognized in spec
+my %up_convert = (
+  '2-from-1.4' => {
+    # PRIOR MANDATORY
+    'abstract'            => \&_keep_or_unknown,
+    'author'              => \&_author_list,
+    'generated_by'        => \&_generated_by,
+    'license'             => \&_license_2,
+    'meta-spec'           => \&_change_meta_spec,
+    'name'                => \&_keep,
+    'version'             => \&_keep,
+    # CHANGED TO MANDATORY
+    'dynamic_config'      => \&_keep_or_one,
+    # ADDED MANDATORY
+    'release_status'      => \&_release_status,
+    # PRIOR OPTIONAL
+    'keywords'            => \&_keep,
+    'no_index'            => \&_no_index_directory,
+    'optional_features'   => \&_upgrade_optional_features,
+    'provides'            => \&_provides,
+    'resources'           => \&_upgrade_resources_2,
+    # ADDED OPTIONAL
+    'description'         => \&_keep,
+    'prereqs'             => \&_prereqs_from_1,
+
+    # drop these deprecated fields, but only after we convert
+    ':drop' => [ qw(
+        build_requires
+        configure_requires
+        conflicts
+        distribution_type
+        license_url
+        private
+        recommends
+        requires
+    ) ],
+
+    # other random keys need x_ prefixing
+    ':custom'              => \&_prefix_custom,
+  },
+  '1.4-from-1.3' => {
+    # PRIOR MANDATORY
+    'abstract'            => \&_keep_or_unknown,
+    'author'              => \&_author_list,
+    'generated_by'        => \&_generated_by,
+    'license'             => \&_license_1,
+    'meta-spec'           => \&_change_meta_spec,
+    'name'                => \&_keep,
+    'version'             => \&_keep,
+    # PRIOR OPTIONAL
+    'build_requires'      => \&_version_map,
+    'conflicts'           => \&_version_map,
+    'distribution_type'   => \&_keep,
+    'dynamic_config'      => \&_keep_or_one,
+    'keywords'            => \&_keep,
+    'no_index'            => \&_no_index_directory,
+    'optional_features'   => \&_optional_features_1_4,
+    'provides'            => \&_provides,
+    'recommends'          => \&_version_map,
+    'requires'            => \&_version_map,
+    'resources'           => \&_resources_1_4,
+    # ADDED OPTIONAL
+    'configure_requires'  => \&_keep,
+
+    # drop these deprecated fields, but only after we convert
+    ':drop' => [ qw(
+      license_url
+      private
+    )],
+
+    # other random keys are OK if already valid
+    ':custom'              => \&_keep
+  },
+  '1.3-from-1.2' => {
+    # PRIOR MANDATORY
+    'abstract'            => \&_keep_or_unknown,
+    'author'              => \&_author_list,
+    'generated_by'        => \&_generated_by,
+    'license'             => \&_license_1,
+    'meta-spec'           => \&_change_meta_spec,
+    'name'                => \&_keep,
+    'version'             => \&_keep,
+    # PRIOR OPTIONAL
+    'build_requires'      => \&_version_map,
+    'conflicts'           => \&_version_map,
+    'distribution_type'   => \&_keep,
+    'dynamic_config'      => \&_keep_or_one,
+    'keywords'            => \&_keep,
+    'no_index'            => \&_no_index_directory,
+    'optional_features'   => \&_optional_features_as_map,
+    'provides'            => \&_provides,
+    'recommends'          => \&_version_map,
+    'requires'            => \&_version_map,
+    'resources'           => \&_resources_1_3,
+
+    # drop these deprecated fields, but only after we convert
+    ':drop' => [ qw(
+      license_url
+      private
+    )],
+
+    # other random keys are OK if already valid
+    ':custom'              => \&_keep
+  },
+  '1.2-from-1.1' => {
+    # PRIOR MANDATORY
+    'version'             => \&_keep,
+    # CHANGED TO MANDATORY
+    'license'             => \&_license_1,
+    'name'                => \&_keep,
+    'generated_by'        => \&_generated_by,
+    # ADDED MANDATORY
+    'abstract'            => \&_keep_or_unknown,
+    'author'              => \&_author_list,
+    'meta-spec'           => \&_change_meta_spec,
+    # PRIOR OPTIONAL
+    'build_requires'      => \&_version_map,
+    'conflicts'           => \&_version_map,
+    'distribution_type'   => \&_keep,
+    'dynamic_config'      => \&_keep_or_one,
+    'recommends'          => \&_version_map,
+    'requires'            => \&_version_map,
+    # ADDED OPTIONAL
+    'keywords'            => \&_keep,
+    'no_index'            => \&_no_index_1_2,
+    'optional_features'   => \&_optional_features_as_map,
+    'provides'            => \&_provides,
+    'resources'           => \&_resources_1_2,
+
+    # drop these deprecated fields, but only after we convert
+    ':drop' => [ qw(
+      license_url
+      private
+    )],
+
+    # other random keys are OK if already valid
+    ':custom'              => \&_keep
+  },
+  '1.1-from-1.0' => {
+    # CHANGED TO MANDATORY
+    'version'             => \&_keep,
+    # IMPLIED MANDATORY
+    'name'                => \&_keep,
+    # PRIOR OPTIONAL
+    'build_requires'      => \&_version_map,
+    'conflicts'           => \&_version_map,
+    'distribution_type'   => \&_keep,
+    'dynamic_config'      => \&_keep_or_one,
+    'generated_by'        => \&_generated_by,
+    'license'             => \&_license_1,
+    'recommends'          => \&_version_map,
+    'requires'            => \&_version_map,
+    # ADDED OPTIONAL
+    'license_url'         => \&_url_or_drop,
+    'private'             => \&_keep,
+
+    # other random keys are OK if already valid
+    ':custom'              => \&_keep
+  },
+);
+
+my %down_convert = (
+  '1.4-from-2' => {
+    # MANDATORY
+    'abstract'            => \&_keep_or_unknown,
+    'author'              => \&_author_list,
+    'generated_by'        => \&_generated_by,
+    'license'             => \&_downgrade_license,
+    'meta-spec'           => \&_change_meta_spec,
+    'name'                => \&_keep,
+    'version'             => \&_keep,
+    # OPTIONAL
+    'build_requires'      => \&_get_build_requires,
+    'configure_requires'  => \&_get_configure_requires,
+    'conflicts'           => \&_get_conflicts,
+    'distribution_type'   => \&_keep,
+    'dynamic_config'      => \&_keep_or_one,
+    'keywords'            => \&_keep,
+    'no_index'            => \&_no_index_directory,
+    'optional_features'   => \&_downgrade_optional_features,
+    'provides'            => \&_provides,
+    'recommends'          => \&_get_recommends,
+    'requires'            => \&_get_requires,
+    'resources'           => \&_downgrade_resources,
+
+    # drop these unsupported fields (after conversion)
+    ':drop' => [ qw(
+      description
+      prereqs
+      release_status
+    )],
+
+    # custom keys will be left unchanged
+    ':custom'              => \&_keep
+  },
+  '1.3-from-1.4' => {
+    # MANDATORY
+    'abstract'            => \&_keep_or_unknown,
+    'author'              => \&_author_list,
+    'generated_by'        => \&_generated_by,
+    'license'             => \&_license_1,
+    'meta-spec'           => \&_change_meta_spec,
+    'name'                => \&_keep,
+    'version'             => \&_keep,
+    # OPTIONAL
+    'build_requires'      => \&_version_map,
+    'conflicts'           => \&_version_map,
+    'distribution_type'   => \&_keep,
+    'dynamic_config'      => \&_keep_or_one,
+    'keywords'            => \&_keep,
+    'no_index'            => \&_no_index_directory,
+    'optional_features'   => \&_optional_features_as_map,
+    'provides'            => \&_provides,
+    'recommends'          => \&_version_map,
+    'requires'            => \&_version_map,
+    'resources'           => \&_resources_1_3,
+
+    # drop these unsupported fields, but only after we convert
+    ':drop' => [ qw(
+      configure_requires
+    )],
+
+    # other random keys are OK if already valid
+    ':custom'              => \&_keep,
+  },
+  '1.2-from-1.3' => {
+    # MANDATORY
+    'abstract'            => \&_keep_or_unknown,
+    'author'              => \&_author_list,
+    'generated_by'        => \&_generated_by,
+    'license'             => \&_license_1,
+    'meta-spec'           => \&_change_meta_spec,
+    'name'                => \&_keep,
+    'version'             => \&_keep,
+    # OPTIONAL
+    'build_requires'      => \&_version_map,
+    'conflicts'           => \&_version_map,
+    'distribution_type'   => \&_keep,
+    'dynamic_config'      => \&_keep_or_one,
+    'keywords'            => \&_keep,
+    'no_index'            => \&_no_index_1_2,
+    'optional_features'   => \&_optional_features_as_map,
+    'provides'            => \&_provides,
+    'recommends'          => \&_version_map,
+    'requires'            => \&_version_map,
+    'resources'           => \&_resources_1_3,
+
+    # other random keys are OK if already valid
+    ':custom'              => \&_keep,
+  },
+  '1.1-from-1.2' => {
+    # MANDATORY
+    'version'             => \&_keep,
+    # IMPLIED MANDATORY
+    'name'                => \&_keep,
+    'meta-spec'           => \&_change_meta_spec,
+    # OPTIONAL
+    'build_requires'      => \&_version_map,
+    'conflicts'           => \&_version_map,
+    'distribution_type'   => \&_keep,
+    'dynamic_config'      => \&_keep_or_one,
+    'generated_by'        => \&_generated_by,
+    'license'             => \&_license_1,
+    'private'             => \&_keep,
+    'recommends'          => \&_version_map,
+    'requires'            => \&_version_map,
+
+    # drop unsupported fields
+    ':drop' => [ qw(
+      abstract
+      author
+      provides
+      no_index
+      keywords
+      resources
+    )],
+
+    # other random keys are OK if already valid
+    ':custom'              => \&_keep,
+  },
+  '1.0-from-1.1' => {
+    # IMPLIED MANDATORY
+    'name'                => \&_keep,
+    'meta-spec'           => \&_change_meta_spec,
+    'version'             => \&_keep,
+    # PRIOR OPTIONAL
+    'build_requires'      => \&_version_map,
+    'conflicts'           => \&_version_map,
+    'distribution_type'   => \&_keep,
+    'dynamic_config'      => \&_keep_or_one,
+    'generated_by'        => \&_generated_by,
+    'license'             => \&_license_1,
+    'recommends'          => \&_version_map,
+    'requires'            => \&_version_map,
+
+    # other random keys are OK if already valid
+    ':custom'              => \&_keep,
+  },
+);
+
+my %cleanup = (
+  '2' => {
+    # PRIOR MANDATORY
+    'abstract'            => \&_keep_or_unknown,
+    'author'              => \&_author_list,
+    'generated_by'        => \&_generated_by,
+    'license'             => \&_license_2,
+    'meta-spec'           => \&_change_meta_spec,
+    'name'                => \&_keep,
+    'version'             => \&_keep,
+    # CHANGED TO MANDATORY
+    'dynamic_config'      => \&_keep_or_one,
+    # ADDED MANDATORY
+    'release_status'      => \&_release_status,
+    # PRIOR OPTIONAL
+    'keywords'            => \&_keep,
+    'no_index'            => \&_no_index_directory,
+    'optional_features'   => \&_cleanup_optional_features_2,
+    'provides'            => \&_provides,
+    'resources'           => \&_cleanup_resources_2,
+    # ADDED OPTIONAL
+    'description'         => \&_keep,
+    'prereqs'             => \&_cleanup_prereqs,
+
+    # drop these deprecated fields, but only after we convert
+    ':drop' => [ qw(
+        build_requires
+        configure_requires
+        conflicts
+        distribution_type
+        license_url
+        private
+        recommends
+        requires
+    ) ],
+
+    # other random keys need x_ prefixing
+    ':custom'              => \&_prefix_custom,
+  },
+  '1.4' => {
+    # PRIOR MANDATORY
+    'abstract'            => \&_keep_or_unknown,
+    'author'              => \&_author_list,
+    'generated_by'        => \&_generated_by,
+    'license'             => \&_license_1,
+    'meta-spec'           => \&_change_meta_spec,
+    'name'                => \&_keep,
+    'version'             => \&_keep,
+    # PRIOR OPTIONAL
+    'build_requires'      => \&_version_map,
+    'conflicts'           => \&_version_map,
+    'distribution_type'   => \&_keep,
+    'dynamic_config'      => \&_keep_or_one,
+    'keywords'            => \&_keep,
+    'no_index'            => \&_no_index_directory,
+    'optional_features'   => \&_optional_features_1_4,
+    'provides'            => \&_provides,
+    'recommends'          => \&_version_map,
+    'requires'            => \&_version_map,
+    'resources'           => \&_resources_1_4,
+    # ADDED OPTIONAL
+    'configure_requires'  => \&_keep,
+
+    # other random keys are OK if already valid
+    ':custom'             => \&_keep
+  },
+  '1.3' => {
+    # PRIOR MANDATORY
+    'abstract'            => \&_keep_or_unknown,
+    'author'              => \&_author_list,
+    'generated_by'        => \&_generated_by,
+    'license'             => \&_license_1,
+    'meta-spec'           => \&_change_meta_spec,
+    'name'                => \&_keep,
+    'version'             => \&_keep,
+    # PRIOR OPTIONAL
+    'build_requires'      => \&_version_map,
+    'conflicts'           => \&_version_map,
+    'distribution_type'   => \&_keep,
+    'dynamic_config'      => \&_keep_or_one,
+    'keywords'            => \&_keep,
+    'no_index'            => \&_no_index_directory,
+    'optional_features'   => \&_optional_features_as_map,
+    'provides'            => \&_provides,
+    'recommends'          => \&_version_map,
+    'requires'            => \&_version_map,
+    'resources'           => \&_resources_1_3,
+
+    # other random keys are OK if already valid
+    ':custom'             => \&_keep
+  },
+  '1.2' => {
+    # PRIOR MANDATORY
+    'version'             => \&_keep,
+    # CHANGED TO MANDATORY
+    'license'             => \&_license_1,
+    'name'                => \&_keep,
+    'generated_by'        => \&_generated_by,
+    # ADDED MANDATORY
+    'abstract'            => \&_keep_or_unknown,
+    'author'              => \&_author_list,
+    'meta-spec'           => \&_change_meta_spec,
+    # PRIOR OPTIONAL
+    'build_requires'      => \&_version_map,
+    'conflicts'           => \&_version_map,
+    'distribution_type'   => \&_keep,
+    'dynamic_config'      => \&_keep_or_one,
+    'recommends'          => \&_version_map,
+    'requires'            => \&_version_map,
+    # ADDED OPTIONAL
+    'keywords'            => \&_keep,
+    'no_index'            => \&_no_index_1_2,
+    'optional_features'   => \&_optional_features_as_map,
+    'provides'            => \&_provides,
+    'resources'           => \&_resources_1_2,
+
+    # other random keys are OK if already valid
+    ':custom'             => \&_keep
+  },
+  '1.1' => {
+    # CHANGED TO MANDATORY
+    'version'             => \&_keep,
+    # IMPLIED MANDATORY
+    'name'                => \&_keep,
+    'meta-spec'           => \&_change_meta_spec,
+    # PRIOR OPTIONAL
+    'build_requires'      => \&_version_map,
+    'conflicts'           => \&_version_map,
+    'distribution_type'   => \&_keep,
+    'dynamic_config'      => \&_keep_or_one,
+    'generated_by'        => \&_generated_by,
+    'license'             => \&_license_1,
+    'recommends'          => \&_version_map,
+    'requires'            => \&_version_map,
+    # ADDED OPTIONAL
+    'license_url'         => \&_url_or_drop,
+    'private'             => \&_keep,
+
+    # other random keys are OK if already valid
+    ':custom'             => \&_keep
+  },
+  '1.0' => {
+    # IMPLIED MANDATORY
+    'name'                => \&_keep,
+    'meta-spec'           => \&_change_meta_spec,
+    'version'             => \&_keep,
+    # IMPLIED OPTIONAL
+    'build_requires'      => \&_version_map,
+    'conflicts'           => \&_version_map,
+    'distribution_type'   => \&_keep,
+    'dynamic_config'      => \&_keep_or_one,
+    'generated_by'        => \&_generated_by,
+    'license'             => \&_license_1,
+    'recommends'          => \&_version_map,
+    'requires'            => \&_version_map,
+
+    # other random keys are OK if already valid
+    ':custom'             => \&_keep,
+  },
+);
+
+# for a given field in a spec version, what fields will it feed
+# into in the *latest* spec (i.e. v2); meta-spec omitted because
+# we always expect a meta-spec to be generated
+my %fragments_generate = (
+  '2' => {
+    'abstract'            =>   'abstract',
+    'author'              =>   'author',
+    'generated_by'        =>   'generated_by',
+    'license'             =>   'license',
+    'name'                =>   'name',
+    'version'             =>   'version',
+    'dynamic_config'      =>   'dynamic_config',
+    'release_status'      =>   'release_status',
+    'keywords'            =>   'keywords',
+    'no_index'            =>   'no_index',
+    'optional_features'   =>   'optional_features',
+    'provides'            =>   'provides',
+    'resources'           =>   'resources',
+    'description'         =>   'description',
+    'prereqs'             =>   'prereqs',
+  },
+  '1.4' => {
+    'abstract'            => 'abstract',
+    'author'              => 'author',
+    'generated_by'        => 'generated_by',
+    'license'             => 'license',
+    'name'                => 'name',
+    'version'             => 'version',
+    'build_requires'      => 'prereqs',
+    'conflicts'           => 'prereqs',
+    'distribution_type'   => 'distribution_type',
+    'dynamic_config'      => 'dynamic_config',
+    'keywords'            => 'keywords',
+    'no_index'            => 'no_index',
+    'optional_features'   => 'optional_features',
+    'provides'            => 'provides',
+    'recommends'          => 'prereqs',
+    'requires'            => 'prereqs',
+    'resources'           => 'resources',
+    'configure_requires'  => 'prereqs',
+  },
+);
+# this is not quite true but will work well enough
+# as 1.4 is a superset of earlier ones
+$fragments_generate{$_} = $fragments_generate{'1.4'} for qw/1.3 1.2 1.1 1.0/;
+
+#--------------------------------------------------------------------------#
+# Code
+#--------------------------------------------------------------------------#
+
+#pod =method new
+#pod
+#pod   my $cmc = CPAN::Meta::Converter->new( $struct );
+#pod
+#pod The constructor should be passed a valid metadata structure but invalid
+#pod structures are accepted.  If no meta-spec version is provided, version 1.0 will
+#pod be assumed.
+#pod
+#pod Optionally, you can provide a C<default_version> argument after C<$struct>:
+#pod
+#pod   my $cmc = CPAN::Meta::Converter->new( $struct, default_version => "1.4" );
+#pod
+#pod This is only needed when converting a metadata fragment that does not include a
+#pod C<meta-spec> field.
+#pod
+#pod =cut
+
+sub new {
+  my ($class,$data,%args) = @_;
+
+  # create an attributes hash
+  my $self = {
+    'data'    => $data,
+    'spec'    => _extract_spec_version($data, $args{default_version}),
+  };
+
+  # create the object
+  return bless $self, $class;
+}
+
+sub _extract_spec_version {
+    my ($data, $default) = @_;
+    my $spec = $data->{'meta-spec'};
+
+    # is meta-spec there and valid?
+    return( $default || "1.0" ) unless defined $spec && ref $spec eq 'HASH'; # before meta-spec?
+
+    # does the version key look like a valid version?
+    my $v = $spec->{version};
+    if ( defined $v && $v =~ /^\d+(?:\.\d+)?$/ ) {
+        return $v if defined $v && grep { $v eq $_ } keys %known_specs; # known spec
+        return $v+0 if defined $v && grep { $v == $_ } keys %known_specs; # 2.0 => 2
+    }
+
+    # otherwise, use heuristics: look for 1.x vs 2.0 fields
+    return "2" if exists $data->{prereqs};
+    return "1.4" if exists $data->{configure_requires};
+    return( $default || "1.2" ); # when meta-spec was first defined
+}
+
+#pod =method convert
+#pod
+#pod   my $new_struct = $cmc->convert( version => "2" );
+#pod
+#pod Returns a new hash reference with the metadata converted to a different form.
+#pod C<convert> will die if any conversion/standardization still results in an
+#pod invalid structure.
+#pod
+#pod Valid parameters include:
+#pod
+#pod =over
+#pod
+#pod =item *
+#pod
+#pod C<version> -- Indicates the desired specification version (e.g. "1.0", "1.1" ... "1.4", "2").
+#pod Defaults to the latest version of the CPAN Meta Spec.
+#pod
+#pod =back
+#pod
+#pod Conversion proceeds through each version in turn.  For example, a version 1.2
+#pod structure might be converted to 1.3 then 1.4 then finally to version 2. The
+#pod conversion process attempts to clean-up simple errors and standardize data.
+#pod For example, if C<author> is given as a scalar, it will converted to an array
+#pod reference containing the item. (Converting a structure to its own version will
+#pod also clean-up and standardize.)
+#pod
+#pod When data are cleaned and standardized, missing or invalid fields will be
+#pod replaced with sensible defaults when possible.  This may be lossy or imprecise.
+#pod For example, some badly structured META.yml files on CPAN have prerequisite
+#pod modules listed as both keys and values:
+#pod
+#pod   requires => { 'Foo::Bar' => 'Bam::Baz' }
+#pod
+#pod These would be split and each converted to a prerequisite with a minimum
+#pod version of zero.
+#pod
+#pod When some mandatory fields are missing or invalid, the conversion will attempt
+#pod to provide a sensible default or will fill them with a value of 'unknown'.  For
+#pod example a missing or unrecognized C<license> field will result in a C<license>
+#pod field of 'unknown'.  Fields that may get an 'unknown' include:
+#pod
+#pod =for :list
+#pod * abstract
+#pod * author
+#pod * license
+#pod
+#pod =cut
+
+sub convert {
+  my ($self, %args) = @_;
+  my $args = { %args };
+
+  my $new_version = $args->{version} || $HIGHEST;
+  my $is_fragment = $args->{is_fragment};
+
+  my ($old_version) = $self->{spec};
+  my $converted = _dclone($self->{data});
+
+  if ( $old_version == $new_version ) {
+    $converted = _convert( $converted, $cleanup{$old_version}, $old_version, $is_fragment );
+    unless ( $args->{is_fragment} ) {
+      my $cmv = CPAN::Meta::Validator->new( $converted );
+      unless ( $cmv->is_valid ) {
+        my $errs = join("\n", $cmv->errors);
+        die "Failed to clean-up $old_version metadata. Errors:\n$errs\n";
+      }
+    }
+    return $converted;
+  }
+  elsif ( $old_version > $new_version )  {
+    my @vers = sort { $b <=> $a } keys %known_specs;
+    for my $i ( 0 .. $#vers-1 ) {
+      next if $vers[$i] > $old_version;
+      last if $vers[$i+1] < $new_version;
+      my $spec_string = "$vers[$i+1]-from-$vers[$i]";
+      $converted = _convert( $converted, $down_convert{$spec_string}, $vers[$i+1], $is_fragment );
+      unless ( $args->{is_fragment} ) {
+        my $cmv = CPAN::Meta::Validator->new( $converted );
+        unless ( $cmv->is_valid ) {
+          my $errs = join("\n", $cmv->errors);
+          die "Failed to downconvert metadata to $vers[$i+1]. Errors:\n$errs\n";
+        }
+      }
+    }
+    return $converted;
+  }
+  else {
+    my @vers = sort { $a <=> $b } keys %known_specs;
+    for my $i ( 0 .. $#vers-1 ) {
+      next if $vers[$i] < $old_version;
+      last if $vers[$i+1] > $new_version;
+      my $spec_string = "$vers[$i+1]-from-$vers[$i]";
+      $converted = _convert( $converted, $up_convert{$spec_string}, $vers[$i+1], $is_fragment );
+      unless ( $args->{is_fragment} ) {
+        my $cmv = CPAN::Meta::Validator->new( $converted );
+        unless ( $cmv->is_valid ) {
+          my $errs = join("\n", $cmv->errors);
+          die "Failed to upconvert metadata to $vers[$i+1]. Errors:\n$errs\n";
+        }
+      }
+    }
+    return $converted;
+  }
+}
+
+#pod =method upgrade_fragment
+#pod
+#pod   my $new_struct = $cmc->upgrade_fragment;
+#pod
+#pod Returns a new hash reference with the metadata converted to the latest version
+#pod of the CPAN Meta Spec.  No validation is done on the result -- you must
+#pod validate after merging fragments into a complete metadata document.
+#pod
+#pod Available since version 2.141170.
+#pod
+#pod =cut
+
+sub upgrade_fragment {
+  my ($self) = @_;
+  my ($old_version) = $self->{spec};
+  my %expected =
+    map {; $_ => 1 }
+    grep { defined }
+    map { $fragments_generate{$old_version}{$_} }
+    keys %{ $self->{data} };
+  my $converted = $self->convert( version => $HIGHEST, is_fragment => 1 );
+  for my $key ( keys %$converted ) {
+    next if $key =~ /^x_/i || $key eq 'meta-spec';
+    delete $converted->{$key} unless $expected{$key};
+  }
+  return $converted;
+}
+
+1;
+
+# ABSTRACT: Convert CPAN distribution metadata structures
+
+=pod
+
+=encoding UTF-8
+
+=head1 NAME
+
+CPAN::Meta::Converter - Convert CPAN distribution metadata structures
+
+=head1 VERSION
+
+version 2.150005
+
+=head1 SYNOPSIS
+
+  my $struct = decode_json_file('META.json');
+
+  my $cmc = CPAN::Meta::Converter->new( $struct );
+
+  my $new_struct = $cmc->convert( version => "2" );
+
+=head1 DESCRIPTION
+
+This module converts CPAN Meta structures from one form to another.  The
+primary use is to convert older structures to the most modern version of
+the specification, but other transformations may be implemented in the
+future as needed.  (E.g. stripping all custom fields or stripping all
+optional fields.)
+
+=head1 METHODS
+
+=head2 new
+
+  my $cmc = CPAN::Meta::Converter->new( $struct );
+
+The constructor should be passed a valid metadata structure but invalid
+structures are accepted.  If no meta-spec version is provided, version 1.0 will
+be assumed.
+
+Optionally, you can provide a C<default_version> argument after C<$struct>:
+
+  my $cmc = CPAN::Meta::Converter->new( $struct, default_version => "1.4" );
+
+This is only needed when converting a metadata fragment that does not include a
+C<meta-spec> field.
+
+=head2 convert
+
+  my $new_struct = $cmc->convert( version => "2" );
+
+Returns a new hash reference with the metadata converted to a different form.
+C<convert> will die if any conversion/standardization still results in an
+invalid structure.
+
+Valid parameters include:
+
+=over
+
+=item *
+
+C<version> -- Indicates the desired specification version (e.g. "1.0", "1.1" ... "1.4", "2").
+Defaults to the latest version of the CPAN Meta Spec.
+
+=back
+
+Conversion proceeds through each version in turn.  For example, a version 1.2
+structure might be converted to 1.3 then 1.4 then finally to version 2. The
+conversion process attempts to clean-up simple errors and standardize data.
+For example, if C<author> is given as a scalar, it will converted to an array
+reference containing the item. (Converting a structure to its own version will
+also clean-up and standardize.)
+
+When data are cleaned and standardized, missing or invalid fields will be
+replaced with sensible defaults when possible.  This may be lossy or imprecise.
+For example, some badly structured META.yml files on CPAN have prerequisite
+modules listed as both keys and values:
+
+  requires => { 'Foo::Bar' => 'Bam::Baz' }
+
+These would be split and each converted to a prerequisite with a minimum
+version of zero.
+
+When some mandatory fields are missing or invalid, the conversion will attempt
+to provide a sensible default or will fill them with a value of 'unknown'.  For
+example a missing or unrecognized C<license> field will result in a C<license>
+field of 'unknown'.  Fields that may get an 'unknown' include:
+
+=over 4
+
+=item *
+
+abstract
+
+=item *
+
+author
+
+=item *
+
+license
+
+=back
+
+=head2 upgrade_fragment
+
+  my $new_struct = $cmc->upgrade_fragment;
+
+Returns a new hash reference with the metadata converted to the latest version
+of the CPAN Meta Spec.  No validation is done on the result -- you must
+validate after merging fragments into a complete metadata document.
+
+Available since version 2.141170.
+
+=head1 BUGS
+
+Please report any bugs or feature using the CPAN Request Tracker.
+Bugs can be submitted through the web interface at
+L<http://rt.cpan.org/Dist/Display.html?Queue=CPAN-Meta>
+
+When submitting a bug or request, please include a test-file or a patch to an
+existing test-file that illustrates the bug or desired feature.
+
+=head1 AUTHORS
+
+=over 4
+
+=item *
+
+David Golden <dagolden@cpan.org>
+
+=item *
+
+Ricardo Signes <rjbs@cpan.org>
+
+=back
+
+=head1 COPYRIGHT AND LICENSE
+
+This software is copyright (c) 2010 by David Golden and Ricardo Signes.
+
+This is free software; you can redistribute it and/or modify it under
+the same terms as the Perl 5 programming language system itself.
+
+=cut
+
+__END__
+
+
+# vim: ts=2 sts=2 sw=2 et :
diff --git a/lib/5.24.1/CPAN/Meta/Feature.pm b/lib/5.24.1/CPAN/Meta/Feature.pm
new file mode 100644
index 00000000..9dac4f42
--- /dev/null
+++ b/lib/5.24.1/CPAN/Meta/Feature.pm
@@ -0,0 +1,149 @@
+use 5.006;
+use strict;
+use warnings;
+package CPAN::Meta::Feature;
+
+our $VERSION = '2.150005';
+
+use CPAN::Meta::Prereqs;
+
+#pod =head1 DESCRIPTION
+#pod
+#pod A CPAN::Meta::Feature object describes an optional feature offered by a CPAN
+#pod distribution and specified in the distribution's F<META.json> (or F<META.yml>)
+#pod file.
+#pod
+#pod For the most part, this class will only be used when operating on the result of
+#pod the C<feature> or C<features> methods on a L<CPAN::Meta> object.
+#pod
+#pod =method new
+#pod
+#pod   my $feature = CPAN::Meta::Feature->new( $identifier => \%spec );
+#pod
+#pod This returns a new Feature object.  The C<%spec> argument to the constructor
+#pod should be the same as the value of the C<optional_feature> entry in the
+#pod distmeta.  It must contain entries for C<description> and C<prereqs>.
+#pod
+#pod =cut
+
+sub new {
+  my ($class, $identifier, $spec) = @_;
+
+  my %guts = (
+    identifier  => $identifier,
+    description => $spec->{description},
+    prereqs     => CPAN::Meta::Prereqs->new($spec->{prereqs}),
+  );
+
+  bless \%guts => $class;
+}
+
+#pod =method identifier
+#pod
+#pod This method returns the feature's identifier.
+#pod
+#pod =cut
+
+sub identifier  { $_[0]{identifier}  }
+
+#pod =method description
+#pod
+#pod This method returns the feature's long description.
+#pod
+#pod =cut
+
+sub description { $_[0]{description} }
+
+#pod =method prereqs
+#pod
+#pod This method returns the feature's prerequisites as a L<CPAN::Meta::Prereqs>
+#pod object.
+#pod
+#pod =cut
+
+sub prereqs     { $_[0]{prereqs} }
+
+1;
+
+# ABSTRACT: an optional feature provided by a CPAN distribution
+
+=pod
+
+=encoding UTF-8
+
+=head1 NAME
+
+CPAN::Meta::Feature - an optional feature provided by a CPAN distribution
+
+=head1 VERSION
+
+version 2.150005
+
+=head1 DESCRIPTION
+
+A CPAN::Meta::Feature object describes an optional feature offered by a CPAN
+distribution and specified in the distribution's F<META.json> (or F<META.yml>)
+file.
+
+For the most part, this class will only be used when operating on the result of
+the C<feature> or C<features> methods on a L<CPAN::Meta> object.
+
+=head1 METHODS
+
+=head2 new
+
+  my $feature = CPAN::Meta::Feature->new( $identifier => \%spec );
+
+This returns a new Feature object.  The C<%spec> argument to the constructor
+should be the same as the value of the C<optional_feature> entry in the
+distmeta.  It must contain entries for C<description> and C<prereqs>.
+
+=head2 identifier
+
+This method returns the feature's identifier.
+
+=head2 description
+
+This method returns the feature's long description.
+
+=head2 prereqs
+
+This method returns the feature's prerequisites as a L<CPAN::Meta::Prereqs>
+object.
+
+=head1 BUGS
+
+Please report any bugs or feature using the CPAN Request Tracker.
+Bugs can be submitted through the web interface at
+L<http://rt.cpan.org/Dist/Display.html?Queue=CPAN-Meta>
+
+When submitting a bug or request, please include a test-file or a patch to an
+existing test-file that illustrates the bug or desired feature.
+
+=head1 AUTHORS
+
+=over 4
+
+=item *
+
+David Golden <dagolden@cpan.org>
+
+=item *
+
+Ricardo Signes <rjbs@cpan.org>
+
+=back
+
+=head1 COPYRIGHT AND LICENSE
+
+This software is copyright (c) 2010 by David Golden and Ricardo Signes.
+
+This is free software; you can redistribute it and/or modify it under
+the same terms as the Perl 5 programming language system itself.
+
+=cut
+
+__END__
+
+
+# vim: ts=2 sts=2 sw=2 et :
diff --git a/lib/5.24.1/CPAN/Meta/History.pm b/lib/5.24.1/CPAN/Meta/History.pm
new file mode 100644
index 00000000..f4cac5e5
--- /dev/null
+++ b/lib/5.24.1/CPAN/Meta/History.pm
@@ -0,0 +1,316 @@
+# vi:tw=72
+use 5.006;
+use strict;
+use warnings;
+package CPAN::Meta::History;
+
+our $VERSION = '2.150005';
+
+1;
+
+# ABSTRACT: history of CPAN Meta Spec changes
+
+__END__
+
+=pod
+
+=encoding UTF-8
+
+=head1 NAME
+
+CPAN::Meta::History - history of CPAN Meta Spec changes
+
+=head1 VERSION
+
+version 2.150005
+
+=head1 DESCRIPTION
+
+The CPAN Meta Spec has gone through several iterations.  It was
+originally written in HTML and later revised into POD (though published
+in HTML generated from the POD).  Fields were added, removed or changed,
+sometimes by design and sometimes to reflect real-world usage after the
+fact.
+
+This document reconstructs the history of the CPAN Meta Spec based on
+change logs, repository commit messages and the published HTML files.
+In some cases, particularly prior to version 1.2, the exact version
+when certain fields were introduced or changed is inconsistent between
+sources.  When in doubt, the published HTML files for versions 1.0 to
+1.4 as they existed when version 2 was developed are used as the
+definitive source.
+
+Starting with version 2, the specification document is part of the
+CPAN-Meta distribution and will be published on CPAN as
+L<CPAN::Meta::Spec>.
+
+Going forward, specification version numbers will be integers and
+decimal portions will correspond to a release date for the CPAN::Meta
+library.
+
+=head1 HISTORY
+
+=head2 Version 2
+
+April 2010
+
+=over
+
+=item *
+
+Revised spec examples as perl data structures rather than YAML
+
+=item *
+
+Switched to JSON serialization from YAML
+
+=item *
+
+Specified allowed version number formats
+
+=item *
+
+Replaced 'requires', 'build_requires', 'configure_requires',
+'recommends' and 'conflicts' with new 'prereqs' data structure divided
+by I<phase> (configure, build, test, runtime, etc.) and I<relationship>
+(requires, recommends, suggests, conflicts)
+
+=item *
+
+Added support for 'develop' phase for requirements for maintaining
+a list of authoring tools
+
+=item *
+
+Changed 'license' to a list and revised the set of valid licenses
+
+=item *
+
+Made 'dynamic_config' mandatory to reduce confusion
+
+=item *
+
+Changed 'resources' subkey 'repository' to a hash that clarifies
+repository type, url for browsing and url for checkout
+
+=item *
+
+Changed 'resources' subkey 'bugtracker' to a hash for either web
+or mailto resource
+
+=item *
+
+Changed specification of 'optional_features':
+
+=over
+
+=item *
+
+Added formal specification and usage guide instead of just example
+
+=item *
+
+Changed to use new prereqs data structure instead of individual keys
+
+=back
+
+=item *
+
+Clarified intended use of 'author' as generalized contact list
+
+=item *
+
+Added 'release_status' field to indicate stable, testing or unstable
+status to provide hints to indexers
+
+=item *
+
+Added 'description' field for a longer description of the distribution
+
+=item *
+
+Formalized use of "x_" or "X_" for all custom keys not listed in the
+official spec
+
+=back
+
+=head2 Version 1.4
+
+June 2008
+
+=over
+
+=item *
+
+Noted explicit support for 'perl' in prerequisites
+
+=item *
+
+Added 'configure_requires' prerequisite type
+
+=item *
+
+Changed 'optional_features'
+
+=over
+
+=item *
+
+Example corrected to show map of maps instead of list of maps
+(though descriptive text said 'map' even in v1.3)
+
+=item *
+
+Removed 'requires_packages', 'requires_os' and 'excluded_os'
+as valid subkeys
+
+=back
+
+=back
+
+=head2 Version 1.3
+
+November 2006
+
+=over
+
+=item *
+
+Added 'no_index' subkey 'directory' and removed 'dir' to match actual
+usage in the wild
+
+=item *
+
+Added a 'repository' subkey to 'resources'
+
+=back
+
+=head2 Version 1.2
+
+August 2005
+
+=over
+
+=item *
+
+Re-wrote and restructured spec in POD syntax
+
+=item *
+
+Changed 'name' to be mandatory
+
+=item *
+
+Changed 'generated_by' to be mandatory
+
+=item *
+
+Changed 'license' to be mandatory
+
+=item *
+
+Added version range specifications for prerequisites
+
+=item *
+
+Added required 'abstract' field
+
+=item *
+
+Added required 'author' field
+
+=item *
+
+Added required 'meta-spec' field to define 'version' (and 'url') of the
+CPAN Meta Spec used for metadata
+
+=item *
+
+Added 'provides' field
+
+=item *
+
+Added 'no_index' field and deprecated 'private' field.  'no_index'
+subkeys include 'file', 'dir', 'package' and 'namespace'
+
+=item *
+
+Added 'keywords' field
+
+=item *
+
+Added 'resources' field with subkeys 'homepage', 'license', and
+'bugtracker'
+
+=item *
+
+Added 'optional_features' field as an alternate under 'recommends'.
+Includes 'description', 'requires', 'build_requires', 'conflicts',
+'requires_packages', 'requires_os' and 'excluded_os' as valid subkeys
+
+=item *
+
+Removed 'license_uri' field
+
+=back
+
+=head2 Version 1.1
+
+May 2003
+
+=over
+
+=item *
+
+Changed 'version' to be mandatory
+
+=item *
+
+Added 'private' field
+
+=item *
+
+Added 'license_uri' field
+
+=back
+
+=head2 Version 1.0
+
+March 2003
+
+=over
+
+=item *
+
+Original release (in HTML format only)
+
+=item *
+
+Included 'name', 'version', 'license', 'distribution_type', 'requires',
+'recommends', 'build_requires', 'conflicts', 'dynamic_config',
+'generated_by'
+
+=back
+
+=head1 AUTHORS
+
+=over 4
+
+=item *
+
+David Golden <dagolden@cpan.org>
+
+=item *
+
+Ricardo Signes <rjbs@cpan.org>
+
+=back
+
+=head1 COPYRIGHT AND LICENSE
+
+This software is copyright (c) 2010 by David Golden and Ricardo Signes.
+
+This is free software; you can redistribute it and/or modify it under
+the same terms as the Perl 5 programming language system itself.
+
+=cut
diff --git a/lib/5.24.1/CPAN/Meta/History/Meta_1_0.pod b/lib/5.24.1/CPAN/Meta/History/Meta_1_0.pod
new file mode 100644
index 00000000..cd3bb9c3
--- /dev/null
+++ b/lib/5.24.1/CPAN/Meta/History/Meta_1_0.pod
@@ -0,0 +1,239 @@
+=for :stopwords DOAP RDF
+
+=head1 NAME
+
+CPAN::Meta::History::Meta_1_0 - Version 1.0 metadata specification for META.yml
+
+=head1 PREFACE
+
+This is a historical copy of the version 1.0 specification for F<META.yml>
+files, copyright by Ken Williams and licensed under the same terms as Perl
+itself.
+
+Modifications from the original:
+
+=over
+
+=item *
+
+Conversion from the original HTML to POD format
+
+=item *
+
+Include list of valid licenses from L<Module::Build> 0.17 rather than
+linking to the module.
+
+=back
+
+=head1 DESCRIPTION
+
+This document describes version 1.0 of the F<META.yml> specification.
+
+The META.yml file describes important properties of contributed Perl
+distributions such as the ones found on L<CPAN|http://www.cpan.org>.  It is
+typically created by tools like L<Module::Build> and L<ExtUtils::MakeMaker>.
+
+The fields in the F<META.yml> file are meant to be helpful to people
+maintaining module collections (like CPAN), for people writing
+installation tools (like L<CPAN> or L<CPANPLUS>), or just people who want to
+know some stuff about a distribution before downloading it and starting to
+install it.
+
+=head1 Format
+
+F<META.yml> files are written in the L<YAML|http://www.yaml.org/> format.  The
+reasons we chose YAML instead of, say, XML or Data::Dumper are discussed in
+L<this thread|http://archive.develooper.com/makemaker@perl.org/msg00405.html>
+on the MakeMaker mailing list.
+
+The first line of a F<META.yml> file should be a valid L<YAML document header|http://www.yaml.org/spec/#.Document>
+like C<"--- #YAML:1.0">
+
+=head1 Fields
+
+The rest of the META.yml file is one big YAML
+L<mapping|http://www.yaml.org/spec/#.-syntax-mapping-Mapping->,
+whose keys are described here.
+
+=over 4
+
+=item name
+
+Example: C<Module-Build>
+
+The name of the distribution.  Often created by taking the "main
+module" in the distribution and changing "::" to "-".  Sometimes it's
+completely different, however, as in the case of the
+L<libwww-perl|http://search.cpan.org/author/GAAS/libwww-perl/> distribution.
+
+=item version
+
+Example: C<0.16>
+
+The version of the distribution to which the META.yml file refers.
+
+=item license
+
+Example: C<perl>
+
+The license under which this distribution may be used and
+redistributed.
+
+Must be one of the following licenses:
+
+=over 4
+
+=item perl
+
+The distribution may be copied and redistributed under the same terms as perl
+itself (this is by far the most common licensing option for modules on CPAN).
+This is a dual license, in which the user may choose between either the GPL or
+the Artistic license.
+
+=item gpl
+
+The distribution is distributed under the terms of the Gnu General Public
+License (L<http://www.opensource.org/licenses/gpl-license.php>).
+
+=item lgpl
+
+The distribution is distributed under the terms of the Gnu Lesser General
+Public License (L<http://www.opensource.org/licenses/lgpl-license.php>).
+
+=item artistic
+
+The distribution is licensed under the Artistic License, as specified by the
+Artistic file in the standard perl distribution.
+
+=item bsd
+
+The distribution is licensed under the BSD License
+(L<http://www.opensource.org/licenses/bsd-license.php>).
+
+=item open_source
+
+The distribution is licensed under some other Open Source Initiative-approved
+license listed at L<http://www.opensource.org/licenses/>.
+
+=item unrestricted
+
+The distribution is licensed under a license that is B<not> approved by
+L<www.opensource.org|http://www.opensource.org> but that allows distribution
+without restrictions.
+
+=item restrictive
+
+The distribution may not be redistributed without special permission from the
+author and/or copyright holder.
+
+=back
+
+=item distribution_type
+
+Example: C<module>
+
+What kind of stuff is contained in this distribution.  Most things on
+CPAN are C<module>s (which can also mean a collection of
+modules), but some things are C<script>s.
+
+=item requires
+
+Example:
+
+  Data::Dumper: 0
+  File::Find: 1.03
+
+A YAML L<mapping|http://www.yaml.org/spec/#.-syntax-mapping-Mapping->
+indicating the Perl modules this distribution requires for proper
+operation.  The keys are the module names, and the values are version
+specifications as described in the L<Module::Build|documentation for Module::Build's "requires" parameter>.
+
+I<Note: the exact nature of the fancy specifications like
+C<< ">= 1.2, != 1.5, < 2.0" >> is subject to
+change.  Advance notice will be given here.  The simple specifications
+like C<"1.2"> will not change in format.>
+
+=item recommends
+
+Example:
+
+  Data::Dumper: 0
+  File::Find: 1.03
+
+A YAML L<mapping|http://www.yaml.org/spec/#.-syntax-mapping-Mapping->
+indicating the Perl modules this distribution recommends for enhanced
+operation.
+
+=item build_requires
+
+Example:
+
+  Data::Dumper: 0
+  File::Find: 1.03
+
+A YAML L<mapping|http://www.yaml.org/spec/#.-syntax-mapping-Mapping->
+indicating the Perl modules required for building and/or testing of
+this distribution.  These dependencies are not required after the
+module is installed.
+
+=item conflicts
+
+Example:
+
+  Data::Dumper: 0
+  File::Find: 1.03
+
+A YAML L<mapping|http://www.yaml.org/spec/#.-syntax-mapping-Mapping->
+indicating the Perl modules that cannot be installed while this
+distribution is installed.  This is a pretty uncommon situation.
+
+=item dynamic_config
+
+Example: C<0>
+
+A boolean flag indicating whether a F<Build.PL> or
+F<Makefile.PL> (or similar) must be executed, or whether this
+module can be built, tested and installed solely from consulting its
+metadata file.  The main reason to set this to a true value if that
+your module performs some dynamic configuration (asking questions,
+sensing the environment, etc.) as part of its build/install process.
+
+Currently L<Module::Build> doesn't actually do anything with
+this flag - it's probably going to be up to higher-level tools like
+L<CPAN|CPAN.pm> to do something useful with it.  It can potentially
+bring lots of security, packaging, and convenience improvements.
+
+=item generated_by
+
+Example: C<Module::Build version 0.16>
+
+Indicates the tool that was used to create this F<META.yml> file.  It's
+good form to include both the name of the tool and its version, but
+this field is essentially opaque, at least for the moment.
+
+=back
+
+=head1 Related Projects
+
+=over 4
+
+=item DOAP
+
+An RDF vocabulary to describe software projects. L<http://usefulinc.com/doap>.
+
+=back
+
+=head1 History
+
+=over 4
+
+=item *
+
+B<March 14, 2003> (Pi day) - created version 1.0 of this document.
+
+=item *
+
+B<May 8, 2003> - added the "dynamic_config" field, which was missing from the
+initial version.
+
+=back
diff --git a/lib/5.24.1/CPAN/Meta/History/Meta_1_1.pod b/lib/5.24.1/CPAN/Meta/History/Meta_1_1.pod
new file mode 100644
index 00000000..7b4b2f41
--- /dev/null
+++ b/lib/5.24.1/CPAN/Meta/History/Meta_1_1.pod
@@ -0,0 +1,301 @@
+=for :stopwords Ingy READMEs WTF licensure
+
+=head1 NAME
+
+CPAN::Meta::History::Meta_1_1 - Version 1.1 metadata specification for META.yml
+
+=head1 PREFACE
+
+This is a historical copy of the version 1.1 specification for F<META.yml>
+files, copyright by Ken Williams and licensed under the same terms as Perl
+itself.
+
+Modifications from the original:
+
+=over
+
+=item *
+
+Conversion from the original HTML to POD format
+
+=item *
+
+Include list of valid licenses from L<Module::Build> 0.18 rather than
+linking to the module.
+
+=back
+
+=head1 DESCRIPTION
+
+This document describes version 1.1 of the F<META.yml> specification.
+
+The F<META.yml> file describes important properties of contributed Perl
+distributions such as the ones found on L<CPAN|http://www.cpan.org>.  It is
+typically created by tools like L<Module::Build> and L<ExtUtils::MakeMaker>.
+
+The fields in the F<META.yml> file are meant to be helpful to people
+maintaining module collections (like CPAN), for people writing
+installation tools (like L<CPAN> or L<CPANPLUS>), or just people who want to
+know some stuff about a distribution before downloading it and starting to
+install it.
+
+=head1 Format
+
+F<META.yml> files are written in the L<YAML|http://www.yaml.org/> format.  The
+reasons we chose YAML instead of, say, XML or Data::Dumper are discussed in
+L<this thread|http://archive.develooper.com/makemaker@perl.org/msg00405.html>
+on the MakeMaker mailing list.
+
+The first line of a F<META.yml> file should be a valid L<YAML document header|http://www.yaml.org/spec/#.Document>
+like C<"--- #YAML:1.0">
+
+=head1 Fields
+
+The rest of the META.yml file is one big YAML
+L<mapping|http://www.yaml.org/spec/#.-syntax-mapping-Mapping->,
+whose keys are described here.
+
+=over 4
+
+=item name
+
+Example: C<Module-Build>
+
+The name of the distribution.  Often created by taking the "main
+module" in the distribution and changing "::" to "-".  Sometimes it's
+completely different, however, as in the case of the
+L<libwww-perl|http://search.cpan.org/author/GAAS/libwww-perl/> distribution.
+
+=item version
+
+Example: C<0.16>
+
+The version of the distribution to which the META.yml file refers.
+This is a mandatory field.
+
+The version is essentially an arbitrary string, but I<must> be
+only ASCII characters, and I<strongly should> be of the format
+integer-dot-digit-digit, i.e. C<25.57>, optionally followed by
+underscore-digit-digit, i.e. C<25.57_04>.
+
+The standard tools that deal with module distribution (PAUSE, CPAN,
+etc.) form an identifier for each distribution by joining the 'name'
+and 'version' attributes with a dash (C<->) character.  Tools
+who are prepared to deal with distributions that have no version
+numbers generally omit the dash as well.
+
+=item license
+
+Example: C<perl>
+
+a descriptive term for the licenses ... not authoritative, but must
+be consistent with licensure statements in the READMEs, documentation, etc.
+
+The license under which this distribution may be used and
+redistributed.
+
+Must be one of the following licenses:
+
+=over 4
+
+=item perl
+
+The distribution may be copied and redistributed under the same terms as perl
+itself (this is by far the most common licensing option for modules on CPAN).
+This is a dual license, in which the user may choose between either the GPL or
+the Artistic license.
+
+=item gpl
+
+The distribution is distributed under the terms of the Gnu General Public
+License (L<http://www.opensource.org/licenses/gpl-license.php>).
+
+=item lgpl
+
+The distribution is distributed under the terms of the Gnu Lesser General
+Public License (L<http://www.opensource.org/licenses/lgpl-license.php>).
+
+=item artistic
+
+The distribution is licensed under the Artistic License, as specified by the
+Artistic file in the standard perl distribution.
+
+=item bsd
+
+The distribution is licensed under the BSD License
+(L<http://www.opensource.org/licenses/bsd-license.php>).
+
+=item open_source
+
+The distribution is licensed under some other Open Source Initiative-approved
+license listed at L<http://www.opensource.org/licenses/>.
+
+=item unrestricted
+
+The distribution is licensed under a license that is B<not> approved by
+L<www.opensource.org|http://www.opensource.org> but that allows distribution
+without restrictions.
+
+=item restrictive
+
+The distribution may not be redistributed without special permission from the
+author and/or copyright holder.
+
+=back
+
+=item license_uri
+
+This should contain a URI where the exact terms of the license may be found.
+
+(change "unrestricted" to "redistributable"?)
+
+=item distribution_type
+
+Example: C<module>
+
+What kind of stuff is contained in this distribution.  Most things on
+CPAN are C<module>s (which can also mean a collection of
+modules), but some things are C<script>s.
+
+This field is basically meaningless, and tools (like Module::Build or
+MakeMaker) will likely stop generating it in the future.
+
+=item private
+
+WTF is going on here?
+
+index_ignore: any application that indexes the contents of
+distributions (PAUSE, search.cpan.org) ought to ignore the items
+(packages, files, directories, namespace hierarchies).
+
+=item requires
+
+Example:
+
+  Data::Dumper: 0
+  File::Find: 1.03
+
+A YAML L<mapping|http://www.yaml.org/spec/#.-syntax-mapping-Mapping->
+indicating the Perl modules this distribution requires for proper
+operation.  The keys are the module names, and the values are version
+specifications as described in the L<Module::Build|documentation for Module::Build's "requires" parameter>.
+
+I<Note: the exact nature of the fancy specifications like
+C<< ">= 1.2, != 1.5, < 2.0" >> is subject to
+change.  Advance notice will be given here.  The simple specifications
+like C<"1.2"> will not change in format.>
+
+=item recommends
+
+Example:
+
+  Data::Dumper: 0
+  File::Find: 1.03
+
+A YAML L<mapping|http://www.yaml.org/spec/#.-syntax-mapping-Mapping->
+indicating the Perl modules this distribution recommends for enhanced
+operation.
+
+=item build_requires
+
+Example:
+
+  Data::Dumper: 0
+  File::Find: 1.03
+
+A YAML L<mapping|http://www.yaml.org/spec/#.-syntax-mapping-Mapping->
+indicating the Perl modules required for building and/or testing of
+this distribution.  These dependencies are not required after the
+module is installed.
+
+=item conflicts
+
+Example:
+
+  Data::Dumper: 0
+  File::Find: 1.03
+
+A YAML L<mapping|http://www.yaml.org/spec/#.-syntax-mapping-Mapping->
+indicating the Perl modules that cannot be installed while this
+distribution is installed.  This is a pretty uncommon situation.
+
+- possibly separate out test-time prereqs, complications include: can
+tests be meaningfully preserved for later running?  are test-time
+prereqs in addition to build-time, or exclusive?
+
+- make official location for installed *distributions*, which can
+contain tests, etc.
+
+=item dynamic_config
+
+Example: C<0>
+
+A boolean flag indicating whether a F<Build.PL> or
+F<Makefile.PL> (or similar) must be executed, or whether this
+module can be built, tested and installed solely from consulting its
+metadata file.  The main reason to set this to a true value if that
+your module performs some dynamic configuration (asking questions,
+sensing the environment, etc.) as part of its build/install process.
+
+Currently L<Module::Build> doesn't actually do anything with
+this flag - it's probably going to be up to higher-level tools like
+L<CPAN|CPAN.pm> to do something useful with it.  It can potentially
+bring lots of security, packaging, and convenience improvements.
+
+=item generated_by
+
+Example: C<Module::Build version 0.16>
+
+Indicates the tool that was used to create this F<META.yml> file.  It's
+good form to include both the name of the tool and its version, but
+this field is essentially opaque, at least for the moment.
+
+=back
+
+=head2 Ingy's suggestions
+
+=over 4
+
+=item short_description
+
+add as field, containing abstract, maximum 80 characters, suggested minimum 40 characters
+
+=item description
+
+long version of abstract, should add?
+
+=item maturity
+
+alpha, beta, gamma, mature, stable
+
+=item author_id, owner_id
+
+=item categorization, keyword, chapter_id
+
+=item URL for further information
+
+could default to search.cpan.org on PAUSE
+
+=item namespaces
+
+can be specified for single elements by prepending
+dotted-form, i.e. "com.example.my_application.my_property".  Default
+namespace for META.yml is probably "org.cpan.meta_author" or
+something.  Precedent for this is Apple's Carbon namespaces, I think.
+
+=back
+
+=head1 History
+
+=over 4
+
+=item *
+
+B<March 14, 2003> (Pi day) - created version 1.0 of this document.
+
+=item *
+
+B<May 8, 2003> - added the "dynamic_config" field, which was missing from the
+initial version.
+
+=back
diff --git a/lib/5.24.1/CPAN/Meta/History/Meta_1_2.pod b/lib/5.24.1/CPAN/Meta/History/Meta_1_2.pod
new file mode 100644
index 00000000..48867b2b
--- /dev/null
+++ b/lib/5.24.1/CPAN/Meta/History/Meta_1_2.pod
@@ -0,0 +1,712 @@
+=for :stopwords MailingList RWS subcontext
+
+=head1 NAME
+
+CPAN::Meta::History::Meta_1_2 - Version 1.2 metadata specification for META.yml
+
+=head1 PREFACE
+
+This is a historical copy of the version 1.2 specification for F<META.yml>
+files, copyright by Ken Williams and licensed under the same terms as Perl
+itself.
+
+Modifications from the original:
+
+=over
+
+=item *
+
+Various spelling corrections
+
+=item *
+
+Include list of valid licenses from L<Module::Build> 0.2611 rather than
+linking to the module.
+
+=back
+
+=head1 SYNOPSIS
+
+ --- #YAML:1.0
+ name: Module-Build
+ abstract: Build and install Perl modules
+ version: 0.20
+ author:
+   - Ken Williams <kwilliams@cpan.org>
+ license: perl
+ distribution_type: module
+ requires:
+   Config: 0
+   Cwd: 0
+   Data::Dumper: 0
+   ExtUtils::Install: 0
+   File::Basename: 0
+   File::Compare: 0
+   File::Copy: 0
+   File::Find: 0
+   File::Path: 0
+   File::Spec: 0
+   IO::File: 0
+   perl: 5.005_03
+ recommends:
+   Archive::Tar: 1.00
+   ExtUtils::Install: 0.3
+   ExtUtils::ParseXS: 2.02
+   Pod::Text: 0
+   YAML: 0.35
+ build_requires:
+   Test: 0
+ urls:
+   license: http://dev.perl.org/licenses/
+ meta-spec:
+   version: 1.2
+   url: http://module-build.sourceforge.net/META-spec-v1.2.html
+ generated_by: Module::Build version 0.20
+
+=head1 DESCRIPTION
+
+This document describes version 1.2 of the F<META.yml> specification.
+
+The F<META.yml> file describes important properties of contributed
+Perl distributions such as the ones found on CPAN.  It is typically
+created by tools like Module::Build, Module::Install, and
+ExtUtils::MakeMaker.
+
+The fields in the F<META.yml> file are meant to be helpful for people
+maintaining module collections (like CPAN), for people writing
+installation tools (like CPAN.pm or CPANPLUS), or just for people who
+want to know some stuff about a distribution before downloading it and
+starting to install it.
+
+I<Note: The latest stable version of this specification can always be
+found at L<http://module-build.sourceforge.net/META-spec-current.html>,
+and the latest development version (which may include things that
+won't make it into the stable version can always be found at
+L<http://module-build.sourceforge.net/META-spec-blead.html>.>
+
+=head1 FORMAT
+
+F<META.yml> files are written in the YAML format (see
+L<http://www.yaml.org/>).
+
+See the following links to learn why we chose YAML instead of, say,
+XML or Data::Dumper:
+
+=over 4
+
+=item *
+
+Module::Build design plans
+
+L<http://nntp.x.perl.org/group/perl.makemaker/406>
+
+=item *
+
+Not keen on YAML
+
+L<http://nntp.x.perl.org/group/perl.module-authors/1353>
+
+=item *
+
+META Concerns
+
+L<http://nntp.x.perl.org/group/perl.module-authors/1385>
+
+=back
+
+=head1 TERMINOLOGY
+
+=over 4
+
+=item distribution
+
+This is the primary object described by the F<META.yml>
+specification. In the context of this document it usually refers to a
+collection of modules, scripts, and/or documents that are distributed
+for other developers to use.
+
+=item module
+
+This refers to a reusable library of code typically contained in a
+single file. Currently, we primarily talk of perl modules, but this
+specification should be open enough to apply to other languages as
+well (ex. python, ruby).
+
+=back
+
+=head1 VERSION SPECIFICATIONS
+
+Some fields require a version specification (ex. L<"requires">,
+L<"recommends">, L<"build_requires">, etc.).  This section details the
+version specifications that are currently supported.
+
+If a single version is listed, then that version is considered to be
+the minimum version supported.
+
+If 0 is given as the version number, then any version is supported.
+
+Additionally, for more complicated requirements, the specification
+supports a list of versions, each of which may be optionally preceded
+by a relational operator.
+
+Supported operators include E<lt> (less than), E<lt>= (less than or
+equal), E<gt> (greater than), E<gt>= (greater than or equal), == (equal), and !=
+(not equal).
+
+If a list is given then it is evaluated from left to right so that any
+specifications in the list that conflict with a previous specification
+are overridden by the later.
+
+Examples:
+
+ >= 1.2, != 1.5, < 2.0
+
+Any version from version 1.2 onward, except version 1.5, that also
+precedes version 2.0.
+
+=head1 HEADER
+
+The first line of a F<META.yml> file should be a valid YAML document
+header like C<"--- #YAML:1.0">.
+
+=head1 FIELDS
+
+The rest of the F<META.yml> file is one big YAML mapping whose keys
+are described here.
+
+=head2 meta-spec
+
+Example:
+
+ meta-spec:
+   version: 1.2
+   url: http://module-build.sourceforge.net/META-spec-v1.2.html
+
+(Spec 1.1) [required] {URL} This field indicates the location of the
+version of the META.yml specification used.
+
+=head2 name
+
+Example:
+
+  name: Module-Build
+
+(Spec 1.0) [required] {string} The name of the distribution which is often
+created by taking the "main module" in the distribution and changing
+"::" to "-".  Sometimes it's completely different, however, as in the
+case of the libwww-perl distribution (see
+L<http://search.cpan.org/author/GAAS/libwww-perl/>).
+
+=head2 version
+
+Example:
+
+  version: 0.20
+
+(Spec 1.0) [required] {version} The version of the distribution to which the
+F<META.yml> file refers.
+
+=head2 abstract
+
+Example:
+
+  abstract: Build and install Perl modules.
+
+(Spec 1.1) [required] {string} A short description of the purpose of the
+distribution.
+
+=head2 author
+
+Example:
+
+  author:
+    - Ken Williams <kwilliams@cpan.org>
+
+(Spec 1.1) [required] {list of strings} A YAML sequence indicating the author(s) of the
+distribution. The preferred form is author-name <email-address>.
+
+=head2 license
+
+Example:
+
+  license: perl
+
+(Spec 1.0) [required] {string} The license under which this distribution may be
+used and redistributed.
+
+Must be one of the following licenses:
+
+=over 4
+
+=item perl
+
+The distribution may be copied and redistributed under the same terms as perl
+itself (this is by far the most common licensing option for modules on CPAN).
+This is a dual license, in which the user may choose between either the GPL or
+the Artistic license.
+
+=item gpl
+
+The distribution is distributed under the terms of the Gnu General Public
+License (L<http://www.opensource.org/licenses/gpl-license.php>).
+
+=item lgpl
+
+The distribution is distributed under the terms of the Gnu Lesser General
+Public License (L<http://www.opensource.org/licenses/lgpl-license.php>).
+
+=item artistic
+
+The distribution is licensed under the Artistic License, as specified by the
+Artistic file in the standard perl distribution.
+
+=item bsd
+
+The distribution is licensed under the BSD License
+(L<http://www.opensource.org/licenses/bsd-license.php>).
+
+=item open_source
+
+The distribution is licensed under some other Open Source Initiative-approved
+license listed at L<http://www.opensource.org/licenses/>.
+
+=item unrestricted
+
+The distribution is licensed under a license that is B<not> approved by
+L<www.opensource.org|http://www.opensource.org> but that allows distribution
+without restrictions.
+
+=item restrictive
+
+The distribution may not be redistributed without special permission from the
+author and/or copyright holder.
+
+=back
+
+=head2 distribution_type
+
+Example:
+
+  distribution_type: module
+
+(Spec 1.0) [optional] {string} What kind of stuff is contained in this
+distribution.  Most things on CPAN are C<module>s (which can also mean
+a collection of modules), but some things are C<script>s.
+
+Unfortunately this field is basically meaningless, since many
+distributions are hybrids of several kinds of things, or some new
+thing, or subjectively different in focus depending on who's using
+them.  Tools like Module::Build and MakeMaker will likely stop
+generating this field.
+
+=head2 requires
+
+Example:
+
+  requires:
+    Data::Dumper: 0
+    File::Find: 1.03
+
+(Spec 1.0) [optional] {map} A YAML mapping indicating the Perl modules this
+distribution requires for proper operation.  The keys are the module
+names, and the values are version specifications as described in
+L<Module::Build> for the "requires" parameter.
+
+=head2 recommends
+
+Example:
+
+  recommends:
+    Data::Dumper: 0
+    File::Find: 1.03
+
+(Spec 1.0) [optional] {map} A YAML mapping indicating the Perl modules this
+distribution recommends for enhanced operation.
+
+I<ALTERNATIVE: It may be desirable to present to the user which
+features depend on which modules so they can make an informed
+decision about which recommended modules to install.>
+
+Example:
+
+  optional_features:
+  - foo:
+      description: Provides the ability to blah.
+      requires:
+        Data::Dumper: 0
+        File::Find: 1.03
+  - bar:
+      description: This feature is not available on this platform.
+      excludes_os: MSWin32
+
+I<(Spec 1.1) [optional] {map} A YAML sequence of names for optional features
+which are made available when its requirements are met. For each
+feature a description is provided along with any of L<"requires">,
+L<"build_requires">, L<"conflicts">, L<"requires_packages">,
+L<"requires_os">, and L<"excludes_os"> which have the same meaning in
+this subcontext as described elsewhere in this document.>
+
+=head2 build_requires
+
+Example:
+
+  build_requires:
+    Data::Dumper: 0
+    File::Find: 1.03
+
+(Spec 1.0) [optional] {map} A YAML mapping indicating the Perl modules
+required for building and/or testing of this distribution.  These
+dependencies are not required after the module is installed.
+
+=head2 conflicts
+
+Example:
+
+  conflicts:
+    Data::Dumper: 0
+    File::Find: 1.03
+
+(Spec 1.0) [optional] {map} A YAML mapping indicating the Perl modules that
+cannot be installed while this distribution is installed.  This is a
+pretty uncommon situation.
+
+=head2 dynamic_config
+
+Example:
+
+  dynamic_config: 0
+
+(Spec 1.0) [optional] {boolean} A boolean flag indicating whether a F<Build.PL>
+or F<Makefile.PL> (or similar) must be executed when building this
+distribution, or whether it can be built, tested and installed solely
+from consulting its
+metadata file.  The main reason to set this to a true value if that
+your module performs some dynamic configuration (asking questions,
+sensing the environment, etc.) as part of its build/install process.
+
+Currently Module::Build doesn't actually do anything with this flag
+- it's probably going to be up to higher-level tools like CPAN
+to do something useful with it.  It can potentially bring lots of
+security, packaging, and convenience improvements.
+
+If this field is omitted, it defaults to 1 (true).
+
+=head2 private
+
+I<(Deprecated)> (Spec 1.0) [optional] {map} This field has been renamed to
+L</"no_index">.  See below.
+
+=head2 provides
+
+Example:
+
+  provides:
+    Foo::Bar:
+      file: lib/Foo/Bar.pm
+      version: 0.27_02
+    Foo::Bar::Blah:
+      file: lib/Foo/Bar/Blah.pm
+    Foo::Bar::Baz:
+      file: lib/Foo/Bar/Baz.pm
+      version: 0.3
+
+(Spec 1.1) [optional] {map} A YAML mapping that describes all packages
+provided by this distribution.  This information can be (and, in some
+cases, is) used by distribution and automation mechanisms like PAUSE,
+CPAN, and search.cpan.org to build indexes saying in which
+distribution various packages can be found.
+
+When using tools like C<Module::Build> that can generate the
+C<provides> mapping for your distribution automatically, make sure you
+examine what it generates to make sure it makes sense - indexers will
+usually trust the C<provides> field if it's present, rather than
+scanning through the distribution files themselves to figure out
+packages and versions.  This is a good thing, because it means you can
+use the C<provides> field to tell the indexers precisely what you want
+indexed about your distribution, rather than relying on them to
+essentially guess what you want indexed.
+
+=head2 no_index
+
+Example:
+
+  no_index:
+    file:
+    - My/Module.pm
+    dir:
+    - My/Private
+    package:
+    - My::Module::Stuff
+    namespace:
+    - My::Module::Stuff
+
+(Spec 1.1) [optional] {map} A YAML mapping that describes any files,
+directories, packages, and namespaces that are private
+(i.e. implementation artifacts) that are not of interest to searching
+and indexing tools.  This is useful when no C<provides> field is
+present.
+
+I<(Note: I'm not actually sure who looks at this field, or exactly
+what they do with it.  This spec could be off in some way from actual
+usage.)>
+
+=head3 file
+
+(Spec 1.1) [optional] Exclude any listed file(s).
+
+=head3 dir
+
+(Spec 1.1) [optional] Exclude anything below the listed
+directory(ies).
+
+=head3 package
+
+(Spec 1.1) [optional] Exclude the listed package(s).
+
+=head3 namespace
+
+(Spec 1.1) [optional] Excludes anything below the listed namespace(s),
+but I<not> the listed namespace(s) its self.
+
+=head2 keywords
+
+Example:
+
+  keywords:
+    - make
+    - build
+    - install
+
+(Spec 1.1) [optional] {list} A sequence of keywords/phrases that describe
+this distribution.
+
+=head2 resources
+
+Example:
+
+  resources:
+    license: http://dev.perl.org/licenses/
+    homepage: http://sourceforge.net/projects/module-build
+    bugtracker: http://rt.cpan.org/NoAuth/Bugs.html?Dist=Module-Build
+    MailingList: http://lists.sourceforge.net/lists/listinfo/module-build-general
+
+(Spec 1.1) [optional] {map} A mapping of any URL resources related to
+this distribution.  All-lower-case keys, such as C<homepage>,
+C<license>, and C<bugtracker>, are reserved by this specification, as
+they have "official" meanings defined here in this specification.  If
+you'd like to add your own "special" entries (like the "MailingList"
+entry above), use at least one upper-case letter.
+
+The current set of official keys is:
+
+=over 2
+
+=item homepage
+
+The official home of this project on the web.
+
+=item license
+
+An URL for an official statement of this distribution's license.
+
+=item bugtracker
+
+An URL for a bug tracker (e.g. Bugzilla or RT queue) for this project.
+
+=back
+
+
+=head2 generated_by
+
+Example:
+
+  generated_by: Module::Build version 0.20
+
+(Spec 1.0) [required] {string} Indicates the tool that was used to create this
+F<META.yml> file.  It's good form to include both the name of the tool
+and its version, but this field is essentially opaque, at least for
+the moment. If F<META.yml> was generated by hand, it is suggested that
+the author be specified here.
+
+[Note: My F<meta_stats.pl> script which I use to gather statistics
+regarding F<META.yml> usage prefers the form listed above, i.e. it
+splits on /\s+version\s+/ taking the first field as the name of the
+tool that generated the file and the second field as version of that
+tool. RWS]
+
+=head1 SEE ALSO
+
+CPAN, L<http://www.cpan.org/>
+
+CPAN.pm, L<http://search.cpan.org/author/ANDK/CPAN/>
+
+CPANPLUS, L<http://search.cpan.org/author/KANE/CPANPLUS/>
+
+Data::Dumper, L<http://search.cpan.org/author/ILYAM/Data-Dumper/>
+
+ExtUtils::MakeMaker, L<http://search.cpan.org/author/MSCHWERN/ExtUtils-MakeMaker/>
+
+Module::Build, L<http://search.cpan.org/author/KWILLIAMS/Module-Build/>
+
+Module::Install, L<http://search.cpan.org/author/KWILLIAMS/Module-Install/>
+
+XML, L<http://www.w3.org/XML/>
+
+YAML, L<http://www.yaml.org/>
+
+=head1 HISTORY
+
+=over 4
+
+=item March 14, 2003 (Pi day)
+
+=over 2
+
+=item *
+
+Created version 1.0 of this document.
+
+=back
+
+=item May 8, 2003
+
+=over 2
+
+=item *
+
+Added the L</"dynamic_config"> field, which was missing from the initial
+version.
+
+=back
+
+=item November 13, 2003
+
+=over 2
+
+=item *
+
+Added more YAML rationale articles.
+
+=item *
+
+Fixed existing link to YAML discussion thread to point to new
+L<http://nntp.x.perl.org/group/> site.
+
+=item *
+
+Added and deprecated the L<"private"> field.
+
+=item *
+
+Added L<"abstract">, L<"configure">, L<"requires_packages">,
+L<"requires_os">, L<"excludes_os">, and L<"no_index"> fields.
+
+=item *
+
+Bumped version.
+
+=back
+
+=item November 16, 2003
+
+=over 2
+
+=item *
+
+Added L<"generation">, L<"authored_by"> fields.
+
+=item *
+
+Add alternative proposal to the L<"recommends"> field.
+
+=item *
+
+Add proposal for a L<"requires_build_tools"> field.
+
+=back
+
+=item December 9, 2003
+
+=over 2
+
+=item *
+
+Added link to latest version of this specification on CPAN.
+
+=item *
+
+Added section L<"VERSION SPECIFICATIONS">.
+
+=item *
+
+Chang name from Module::Build::META-spec to CPAN::META::Specification.
+
+=item *
+
+Add proposal for L<"auto_regenerate"> field.
+
+=back
+
+=item December 15, 2003
+
+=over 2
+
+=item *
+
+Add L<"index"> field as a compliment to L<"no_index">
+
+=item *
+
+Add L<"keywords"> field as a means to aid searching distributions.
+
+=item *
+
+Add L<"TERMINOLOGY"> section to explain certain terms that may be
+ambiguous.
+
+=back
+
+=item July 26, 2005
+
+=over 2
+
+=item *
+
+Removed a bunch of items (generation, requires_build_tools,
+requires_packages, configure, requires_os, excludes_os,
+auto_regenerate) that have never actually been supported, but were
+more like records of brainstorming.
+
+=item *
+
+Changed C<authored_by> to C<author>, since that's always been what
+it's actually called in actual F<META.yml> files.
+
+=item *
+
+Added the "==" operator to the list of supported version-checking
+operators.
+
+=item *
+
+Noted that the C<distribution_type> field is basically meaningless,
+and shouldn't really be used.
+
+=item *
+
+Clarified C<dynamic_config> a bit.
+
+=back
+
+=item August 23, 2005
+
+=over 2
+
+=item *
+
+Removed the name C<CPAN::META::Specification>, since that implies a
+module that doesn't actually exist.
+
+=back
+
+=back
diff --git a/lib/5.24.1/CPAN/Meta/History/Meta_1_3.pod b/lib/5.24.1/CPAN/Meta/History/Meta_1_3.pod
new file mode 100644
index 00000000..b075adcc
--- /dev/null
+++ b/lib/5.24.1/CPAN/Meta/History/Meta_1_3.pod
@@ -0,0 +1,735 @@
+=for :stopwords MailingList PODs RWS subcontext
+
+=head1 NAME
+
+CPAN::Meta::History::Meta_1_3 - Version 1.3 metadata specification for META.yml
+
+=head1 PREFACE
+
+This is a historical copy of the version 1.3 specification for F<META.yml>
+files, copyright by Ken Williams and licensed under the same terms as Perl
+itself.
+
+Modifications from the original:
+
+=over
+
+=item *
+
+Various spelling corrections
+
+=item *
+
+Include list of valid licenses from L<Module::Build> 0.2805 rather than
+linking to the module.
+
+=back
+
+=head1 SYNOPSIS
+
+ --- #YAML:1.0
+ name: Module-Build
+ abstract: Build and install Perl modules
+ version: 0.20
+ author:
+   - Ken Williams <kwilliams@cpan.org>
+ license: perl
+ distribution_type: module
+ requires:
+   Config: 0
+   Cwd: 0
+   Data::Dumper: 0
+   ExtUtils::Install: 0
+   File::Basename: 0
+   File::Compare: 0
+   File::Copy: 0
+   File::Find: 0
+   File::Path: 0
+   File::Spec: 0
+   IO::File: 0
+   perl: 5.005_03
+ recommends:
+   Archive::Tar: 1.00
+   ExtUtils::Install: 0.3
+   ExtUtils::ParseXS: 2.02
+   Pod::Text: 0
+   YAML: 0.35
+ build_requires:
+   Test: 0
+ urls:
+   license: http://dev.perl.org/licenses/
+ meta-spec:
+   version: 1.3
+   url: http://module-build.sourceforge.net/META-spec-v1.3.html
+ generated_by: Module::Build version 0.20
+
+=head1 DESCRIPTION
+
+This document describes version 1.3 of the F<META.yml> specification.
+
+The F<META.yml> file describes important properties of contributed
+Perl distributions such as the ones found on CPAN.  It is typically
+created by tools like Module::Build, Module::Install, and
+ExtUtils::MakeMaker.
+
+The fields in the F<META.yml> file are meant to be helpful for people
+maintaining module collections (like CPAN), for people writing
+installation tools (like CPAN.pm or CPANPLUS), or just for people who
+want to know some stuff about a distribution before downloading it and
+starting to install it.
+
+I<Note: The latest stable version of this specification can always be
+found at L<http://module-build.sourceforge.net/META-spec-current.html>,
+and the latest development version (which may include things that
+won't make it into the stable version) can always be found at
+L<http://module-build.sourceforge.net/META-spec-blead.html>.>
+
+=head1 FORMAT
+
+F<META.yml> files are written in the YAML format (see
+L<http://www.yaml.org/>).
+
+See the following links to learn why we chose YAML instead of, say,
+XML or Data::Dumper:
+
+=over 4
+
+=item Module::Build design plans
+
+L<http://nntp.x.perl.org/group/perl.makemaker/406>
+
+=item Not keen on YAML
+
+L<http://nntp.x.perl.org/group/perl.module-authors/1353>
+
+=item META Concerns
+
+L<http://nntp.x.perl.org/group/perl.module-authors/1385>
+
+=back
+
+=head1 TERMINOLOGY
+
+=over 4
+
+=item distribution
+
+This is the primary object described by the F<META.yml>
+specification. In the context of this document it usually refers to a
+collection of modules, scripts, and/or documents that are distributed
+together for other developers to use.  Examples of distributions are
+C<Class-Container>, C<libwww-perl>, or C<DBI>.
+
+=item module
+
+This refers to a reusable library of code typically contained in a
+single file. Currently, we primarily talk of perl modules, but this
+specification should be open enough to apply to other languages as
+well (ex. python, ruby).  Examples of modules are C<Class::Container>,
+C<LWP::Simple>, or C<DBD::File>.
+
+=back
+
+=head1 HEADER
+
+The first line of a F<META.yml> file should be a valid YAML document
+header like C<"--- #YAML:1.0">.
+
+=head1 FIELDS
+
+The rest of the F<META.yml> file is one big YAML mapping whose keys
+are described here.
+
+=head2 meta-spec
+
+Example:
+
+ meta-spec:
+   version: 1.3
+   url: http://module-build.sourceforge.net/META-spec-v1.3.html
+
+(Spec 1.1) [required] {URL} This field indicates the location of the
+version of the META.yml specification used.
+
+=head2 name
+
+Example:
+
+  name: Module-Build
+
+(Spec 1.0) [required] {string} The name of the distribution which is often
+created by taking the "main module" in the distribution and changing
+"::" to "-".  Sometimes it's completely different, however, as in the
+case of the libwww-perl distribution (see
+L<http://search.cpan.org/dist/libwww-perl/>).
+
+=head2 version
+
+Example:
+
+  version: 0.20
+
+(Spec 1.0) [required] {version} The version of the distribution to which the
+F<META.yml> file refers.
+
+=head2 abstract
+
+Example:
+
+  abstract: Build and install Perl modules.
+
+(Spec 1.1) [required] {string} A short description of the purpose of the
+distribution.
+
+=head2 author
+
+Example:
+
+  author:
+    - Ken Williams <kwilliams@cpan.org>
+
+(Spec 1.1) [required] {list of strings} A YAML sequence indicating the author(s) of the
+distribution. The preferred form is author-name <email-address>.
+
+=head2 license
+
+Example:
+
+  license: perl
+
+(Spec 1.0) [required] {string} The license under which this distribution may be
+used and redistributed.
+
+Must be one of the following licenses:
+
+=over 4
+
+=item apache
+
+The distribution is licensed under the Apache Software License
+(L<http://opensource.org/licenses/apachepl.php>).
+
+=item artistic
+
+The distribution is licensed under the Artistic License, as specified by the
+Artistic file in the standard perl distribution.
+
+=item bsd
+
+The distribution is licensed under the BSD License
+(L<http://www.opensource.org/licenses/bsd-license.php>).
+
+=item gpl
+
+The distribution is licensed under the terms of the Gnu General Public License
+(L<http://www.opensource.org/licenses/gpl-license.php>).
+
+=item lgpl
+
+The distribution is licensed under the terms of the Gnu Lesser General Public
+License (L<http://www.opensource.org/licenses/lgpl-license.php>).
+
+=item mit
+
+The distribution is licensed under the MIT License
+(L<http://opensource.org/licenses/mit-license.php>).
+
+=item mozilla
+
+The distribution is licensed under the Mozilla Public License.
+(L<http://opensource.org/licenses/mozilla1.0.php> or
+L<http://opensource.org/licenses/mozilla1.1.php>)
+
+=item open_source
+
+The distribution is licensed under some other Open Source Initiative-approved
+license listed at L<http://www.opensource.org/licenses/>.
+
+=item perl
+
+The distribution may be copied and redistributed under the same terms as perl
+itself (this is by far the most common licensing option for modules on CPAN).
+This is a dual license, in which the user may choose between either the GPL or
+the Artistic license.
+
+=item restrictive
+
+The distribution may not be redistributed without special permission from the
+author and/or copyright holder.
+
+=item unrestricted
+
+The distribution is licensed under a license that is not approved by
+L<www.opensource.org|http://www.opensource.org/> but that allows distribution
+without restrictions.
+
+=back
+
+=head2 distribution_type
+
+Example:
+
+  distribution_type: module
+
+(Spec 1.0) [optional] {string} What kind of stuff is contained in this
+distribution.  Most things on CPAN are C<module>s (which can also mean
+a collection of modules), but some things are C<script>s.
+
+Unfortunately this field is basically meaningless, since many
+distributions are hybrids of several kinds of things, or some new
+thing, or subjectively different in focus depending on who's using
+them.  Tools like Module::Build and MakeMaker will likely stop
+generating this field.
+
+=head2 requires
+
+Example:
+
+  requires:
+    Data::Dumper: 0
+    File::Find: 1.03
+
+(Spec 1.0) [optional] {map} A YAML mapping indicating the Perl modules this
+distribution requires for proper operation.  The keys are the module
+names, and the values are version specifications as described in
+L<VERSION SPECIFICATIONS>.
+
+=head2 recommends
+
+Example:
+
+  recommends:
+    Data::Dumper: 0
+    File::Find: 1.03
+
+(Spec 1.0) [optional] {map} A YAML mapping indicating the Perl modules
+this distribution recommends for enhanced operation.  The keys are the
+module names, and the values are version specifications as described
+in L<VERSION SPECIFICATIONS>.
+
+
+
+I<ALTERNATIVE: It may be desirable to present to the user which
+features depend on which modules so they can make an informed decision
+about which recommended modules to install.>
+
+Example:
+
+  optional_features:
+  - foo:
+      description: Provides the ability to blah.
+      requires:
+        Data::Dumper: 0
+        File::Find: 1.03
+  - bar:
+      description: This feature is not available on this platform.
+      excludes_os: MSWin32
+
+I<(Spec 1.1) [optional] {map} A YAML sequence of names for optional features
+which are made available when its requirements are met. For each
+feature a description is provided along with any of L<"requires">,
+L<"build_requires">, L<"conflicts">, L<"requires_packages">,
+L<"requires_os">, and L<"excludes_os"> which have the same meaning in
+this subcontext as described elsewhere in this document.>
+
+=head2 build_requires
+
+Example:
+
+  build_requires:
+    Data::Dumper: 0
+    File::Find: 1.03
+
+(Spec 1.0) [optional] {map} A YAML mapping indicating the Perl modules
+required for building and/or testing of this distribution.  The keys
+are the module names, and the values are version specifications as
+described in L<VERSION SPECIFICATIONS>.  These dependencies are not
+required after the module is installed.
+
+=head2 conflicts
+
+Example:
+
+  conflicts:
+    Data::Dumper: 0
+    File::Find: 1.03
+
+(Spec 1.0) [optional] {map} A YAML mapping indicating the Perl modules that
+cannot be installed while this distribution is installed.  This is a
+pretty uncommon situation.  The keys for C<conflicts> are the module
+names, and the values are version specifications as described in
+L<VERSION SPECIFICATIONS>.
+
+
+=head2 dynamic_config
+
+Example:
+
+  dynamic_config: 0
+
+(Spec 1.0) [optional] {boolean} A boolean flag indicating whether a F<Build.PL>
+or F<Makefile.PL> (or similar) must be executed when building this
+distribution, or whether it can be built, tested and installed solely
+from consulting its
+metadata file.  The main reason to set this to a true value is that
+your module performs some dynamic configuration (asking questions,
+sensing the environment, etc.) as part of its build/install process.
+
+Currently Module::Build doesn't actually do anything with this flag
+- it's probably going to be up to higher-level tools like CPAN
+to do something useful with it.  It can potentially bring lots of
+security, packaging, and convenience improvements.
+
+If this field is omitted, it defaults to 1 (true).
+
+=head2 private
+
+I<(Deprecated)> (Spec 1.0) [optional] {map} This field has been renamed to
+L</"no_index">.  See below.
+
+=head2 provides
+
+Example:
+
+  provides:
+    Foo::Bar:
+      file: lib/Foo/Bar.pm
+      version: 0.27_02
+    Foo::Bar::Blah:
+      file: lib/Foo/Bar/Blah.pm
+    Foo::Bar::Baz:
+      file: lib/Foo/Bar/Baz.pm
+      version: 0.3
+
+(Spec 1.1) [optional] {map} A YAML mapping that describes all packages
+provided by this distribution.  This information can be (and, in some
+cases, is) used by distribution and automation mechanisms like PAUSE,
+CPAN, and search.cpan.org to build indexes saying in which
+distribution various packages can be found.
+
+When using tools like C<Module::Build> that can generate the
+C<provides> mapping for your distribution automatically, make sure you
+examine what it generates to make sure it makes sense - indexers will
+usually trust the C<provides> field if it's present, rather than
+scanning through the distribution files themselves to figure out
+packages and versions.  This is a good thing, because it means you can
+use the C<provides> field to tell the indexers precisely what you want
+indexed about your distribution, rather than relying on them to
+essentially guess what you want indexed.
+
+=head2 no_index
+
+Example:
+
+  no_index:
+    file:
+    - My/Module.pm
+    directory:
+    - My/Private
+    package:
+    - My::Module::Stuff
+    namespace:
+    - My::Module::Stuff
+
+(Spec 1.1) [optional] {map} A YAML mapping that describes any files,
+directories, packages, and namespaces that are private
+(i.e. implementation artifacts) that are not of interest to searching
+and indexing tools.  This is useful when no C<provides> field is
+present.
+
+For example, C<search.cpan.org> excludes items listed in C<no_index>
+when searching for POD, meaning files in these directories will not
+converted to HTML and made public - which is useful if you have
+example or test PODs that you don't want the search engine to go
+through.
+
+=head3 file
+
+(Spec 1.1) [optional] Exclude any listed file(s).
+
+=head3 directory
+
+(Spec 1.1) [optional] Exclude anything below the listed
+directory(ies).
+
+[Note: previous editions of the spec had C<dir> instead of
+C<directory>, but I think MakeMaker and various users started using
+C<directory>, so in deference we switched to that.]
+
+=head3 package
+
+(Spec 1.1) [optional] Exclude the listed package(s).
+
+=head3 namespace
+
+(Spec 1.1) [optional] Excludes anything below the listed namespace(s),
+but I<not> the listed namespace(s) its self.
+
+=head2 keywords
+
+Example:
+
+  keywords:
+    - make
+    - build
+    - install
+
+(Spec 1.1) [optional] {list} A sequence of keywords/phrases that describe
+this distribution.
+
+=head2 resources
+
+Example:
+
+  resources:
+    license: http://dev.perl.org/licenses/
+    homepage: http://sourceforge.net/projects/module-build
+    bugtracker: http://rt.cpan.org/NoAuth/Bugs.html?Dist=Module-Build
+    repository: http://sourceforge.net/cvs/?group_id=45731
+    MailingList: http://lists.sourceforge.net/lists/listinfo/module-build-general
+
+(Spec 1.1) [optional] {map} A mapping of any URL resources related to
+this distribution.  All-lower-case keys, such as C<homepage>,
+C<license>, and C<bugtracker>, are reserved by this specification, as
+they have "official" meanings defined here in this specification.  If
+you'd like to add your own "special" entries (like the "MailingList"
+entry above), use at least one upper-case letter.
+
+The current set of official keys is:
+
+=over 2
+
+=item homepage
+
+The official home of this project on the web.
+
+=item license
+
+An URL for an official statement of this distribution's license.
+
+=item bugtracker
+
+An URL for a bug tracker (e.g. Bugzilla or RT queue) for this project.
+
+=back
+
+
+=head2 generated_by
+
+Example:
+
+  generated_by: Module::Build version 0.20
+
+(Spec 1.0) [required] {string} Indicates the tool that was used to create this
+F<META.yml> file.  It's good form to include both the name of the tool
+and its version, but this field is essentially opaque, at least for
+the moment. If F<META.yml> was generated by hand, it is suggested that
+the author be specified here.
+
+[Note: My F<meta_stats.pl> script which I use to gather statistics
+regarding F<META.yml> usage prefers the form listed above, i.e. it
+splits on /\s+version\s+/ taking the first field as the name of the
+tool that generated the file and the second field as version of that
+tool. RWS]
+
+=head1 VERSION SPECIFICATIONS
+
+Some fields require a version specification (ex. L<"requires">,
+L<"recommends">, L<"build_requires">, etc.) to indicate the particular
+versionZ<>(s) of some other module that may be required as a
+prerequisite.  This section details the version specification formats
+that are currently supported.
+
+The simplest format for a version specification is just the version
+number itself, e.g. C<2.4>.  This means that B<at least> version 2.4
+must be present.  To indicate that B<any> version of a prerequisite is
+okay, even if the prerequisite doesn't define a version at all, use
+the version C<0>.
+
+You may also use the operators E<lt> (less than), E<lt>= (less than or
+equal), E<gt> (greater than), E<gt>= (greater than or equal), ==
+(equal), and != (not equal).  For example, the specification C<E<lt>
+2.0> means that any version of the prerequisite less than 2.0 is
+suitable.
+
+For more complicated situations, version specifications may be AND-ed
+together using commas.  The specification C<E<gt>= 1.2, != 1.5, E<lt>
+2.0> indicates a version that must be B<at least> 1.2, B<less than>
+2.0, and B<not equal to> 1.5.
+
+=head1 SEE ALSO
+
+CPAN, L<http://www.cpan.org/>
+
+CPAN.pm, L<http://search.cpan.org/dist/CPAN/>
+
+CPANPLUS, L<http://search.cpan.org/dist/CPANPLUS/>
+
+Data::Dumper, L<http://search.cpan.org/dist/Data-Dumper/>
+
+ExtUtils::MakeMaker, L<http://search.cpan.org/dist/ExtUtils-MakeMaker/>
+
+Module::Build, L<http://search.cpan.org/dist/Module-Build/>
+
+Module::Install, L<http://search.cpan.org/dist/Module-Install/>
+
+XML, L<http://www.w3.org/XML/>
+
+YAML, L<http://www.yaml.org/>
+
+=head1 HISTORY
+
+=over 4
+
+=item March 14, 2003 (Pi day)
+
+=over 2
+
+=item *
+
+Created version 1.0 of this document.
+
+=back
+
+=item May 8, 2003
+
+=over 2
+
+=item *
+
+Added the L</"dynamic_config"> field, which was missing from the initial
+version.
+
+=back
+
+=item November 13, 2003
+
+=over 2
+
+=item *
+
+Added more YAML rationale articles.
+
+=item *
+
+Fixed existing link to YAML discussion thread to point to new
+L<http://nntp.x.perl.org/group/> site.
+
+=item *
+
+Added and deprecated the L<"private"> field.
+
+=item *
+
+Added L<"abstract">, L<"configure">, L<"requires_packages">,
+L<"requires_os">, L<"excludes_os">, and L<"no_index"> fields.
+
+=item *
+
+Bumped version.
+
+=back
+
+=item November 16, 2003
+
+=over 2
+
+=item *
+
+Added L<"generation">, L<"authored_by"> fields.
+
+=item *
+
+Add alternative proposal to the L<"recommends"> field.
+
+=item *
+
+Add proposal for a L<"requires_build_tools"> field.
+
+=back
+
+=item December 9, 2003
+
+=over 2
+
+=item *
+
+Added link to latest version of this specification on CPAN.
+
+=item *
+
+Added section L<"VERSION SPECIFICATIONS">.
+
+=item *
+
+Chang name from Module::Build::META-spec to CPAN::META::Specification.
+
+=item *
+
+Add proposal for L<"auto_regenerate"> field.
+
+=back
+
+=item December 15, 2003
+
+=over 2
+
+=item *
+
+Add L<"index"> field as a compliment to L<"no_index">
+
+=item *
+
+Add L<"keywords"> field as a means to aid searching distributions.
+
+=item *
+
+Add L<"TERMINOLOGY"> section to explain certain terms that may be
+ambiguous.
+
+=back
+
+=item July 26, 2005
+
+=over 2
+
+=item *
+
+Removed a bunch of items (generation, requires_build_tools,
+requires_packages, configure, requires_os, excludes_os,
+auto_regenerate) that have never actually been supported, but were
+more like records of brainstorming.
+
+=item *
+
+Changed C<authored_by> to C<author>, since that's always been what
+it's actually called in actual F<META.yml> files.
+
+=item *
+
+Added the "==" operator to the list of supported version-checking
+operators.
+
+=item *
+
+Noted that the C<distribution_type> field is basically meaningless,
+and shouldn't really be used.
+
+=item *
+
+Clarified C<dynamic_config> a bit.
+
+=back
+
+=item August 23, 2005
+
+=over 2
+
+=item *
+
+Removed the name C<CPAN::META::Specification>, since that implies a
+module that doesn't actually exist.
+
+=back
+
+=back
diff --git a/lib/5.24.1/CPAN/Meta/History/Meta_1_4.pod b/lib/5.24.1/CPAN/Meta/History/Meta_1_4.pod
new file mode 100644
index 00000000..471296ce
--- /dev/null
+++ b/lib/5.24.1/CPAN/Meta/History/Meta_1_4.pod
@@ -0,0 +1,788 @@
+=for :stopwords MailingList PODs RWS subcontext
+
+=head1 NAME
+
+CPAN::Meta::History::Meta_1_4 - Version 1.4 metadata specification for META.yml
+
+=head1 PREFACE
+
+This is a historical copy of the version 1.4 specification for F<META.yml>
+files, copyright by Ken Williams and licensed under the same terms as Perl
+itself.
+
+Modifications from the original:
+
+=over
+
+=item *
+
+Various spelling corrections
+
+=item *
+
+Include list of valid licenses from L<Module::Build> 0.2807 rather than
+linking to the module.
+
+=back
+
+=head1 SYNOPSIS
+
+ --- #YAML:1.0
+ name: Module-Build
+ abstract: Build and install Perl modules
+ version: 0.20
+ author:
+   - Ken Williams <kwilliams@cpan.org>
+ license: perl
+ distribution_type: module
+ requires:
+   Config: 0
+   Cwd: 0
+   Data::Dumper: 0
+   ExtUtils::Install: 0
+   File::Basename: 0
+   File::Compare: 0
+   File::Copy: 0
+   File::Find: 0
+   File::Path: 0
+   File::Spec: 0
+   IO::File: 0
+   perl: 5.005_03
+ recommends:
+   Archive::Tar: 1.00
+   ExtUtils::Install: 0.3
+   ExtUtils::ParseXS: 2.02
+   Pod::Text: 0
+   YAML: 0.35
+ build_requires:
+   Test: 0
+ resources:
+   license: http://dev.perl.org/licenses/
+ meta-spec:
+   version: 1.4
+   url: http://module-build.sourceforge.net/META-spec-v1.3.html
+ generated_by: Module::Build version 0.20
+
+=head1 DESCRIPTION
+
+This document describes version 1.4 of the F<META.yml> specification.
+
+The F<META.yml> file describes important properties of contributed
+Perl distributions such as the ones found on CPAN.  It is typically
+created by tools like Module::Build, Module::Install, and
+ExtUtils::MakeMaker.
+
+The fields in the F<META.yml> file are meant to be helpful for people
+maintaining module collections (like CPAN), for people writing
+installation tools (like CPAN.pm or CPANPLUS), or just for people who
+want to know some stuff about a distribution before downloading it and
+starting to install it.
+
+I<Note: The latest stable version of this specification can always be
+found at L<http://module-build.sourceforge.net/META-spec-current.html>,
+and the latest development version (which may include things that
+won't make it into the stable version) can always be found at
+L<http://module-build.sourceforge.net/META-spec-blead.html>.>
+
+=begin MAINTAINER
+
+The master source for the META spec is META-spec.pod.  META-spec.html
+is built (manually) from META-spec.pod whenever there are changes, and
+the two files should generally be checked in together.  Ideally it
+would happen through a trigger or something, but it doesn't.
+
+Ken has a cron job that copies the latest bleeding-edge version of the
+spec (HTML version) to Sourceforge whenever his laptop is turned on:
+
+  21 * * * * svn cat http://svn.perl.org/modules/Module-Build/trunk/website/META-spec.html \
+       | ssh kwilliams@shell.sourceforge.net \
+       'cat > /home/groups/m/mo/module-build/htdocs/META-spec-blead.html'
+
+The numbered revisions of the spec at
+L<"http://module-build.sourceforge.net/"> are captures of the spec at
+opportune moments.  A couple of symlinks also exist for convenience:
+
+ -rw-r--r--  1 kwilliams 24585 Oct 10 17:21 META-spec-blead.html
+ lrwxrwxrwx  1 kwilliams    19 Jan 19  2007 META-spec-current.html -> META-spec-v1.3.html
+ lrwxrwxrwx  1 kwilliams    22 Jan 19  2007 META-spec.html -> META-spec-current.html
+ -rw-r--r--  1 kwilliams  5830 Jul 25  2005 META-spec-v1.0.html
+ -rw-r--r--  1 kwilliams  7847 Jul 25  2005 META-spec-v1.1.html
+ -rw-r--r--  1 kwilliams 22635 Aug 23  2005 META-spec-v1.2.html
+ -rw-r--r--  1 kwilliams 24086 Nov  4  2006 META-spec-v1.3.html
+
+=end MAINTAINER
+
+
+=head1 FORMAT
+
+F<META.yml> files are written in the YAML format (see
+L<http://www.yaml.org/>).
+
+See the following links to learn why we chose YAML instead of, say,
+XML or Data::Dumper:
+
+=over 4
+
+=item Module::Build design plans
+
+L<http://nntp.x.perl.org/group/perl.makemaker/406>
+
+=item Not keen on YAML
+
+L<http://nntp.x.perl.org/group/perl.module-authors/1353>
+
+=item META Concerns
+
+L<http://nntp.x.perl.org/group/perl.module-authors/1385>
+
+=back
+
+=head1 TERMINOLOGY
+
+=over 4
+
+=item distribution
+
+This is the primary object described by the F<META.yml>
+specification. In the context of this document it usually refers to a
+collection of modules, scripts, and/or documents that are distributed
+together for other developers to use.  Examples of distributions are
+C<Class-Container>, C<libwww-perl>, or C<DBI>.
+
+=item module
+
+This refers to a reusable library of code typically contained in a
+single file. Currently, we primarily talk of perl modules, but this
+specification should be open enough to apply to other languages as
+well (ex. python, ruby).  Examples of modules are C<Class::Container>,
+C<LWP::Simple>, or C<DBD::File>.
+
+=back
+
+=head1 HEADER
+
+The first line of a F<META.yml> file should be a valid YAML document
+header like C<"--- #YAML:1.0">.
+
+=head1 FIELDS
+
+The rest of the F<META.yml> file is one big YAML mapping whose keys
+are described here.
+
+=head2 meta-spec
+
+Example:
+
+ meta-spec:
+   version: 1.4
+   url: http://module-build.sourceforge.net/META-spec-v1.3.html
+
+(Spec 1.1) [required] {URL} This field indicates the location of the
+version of the META.yml specification used.
+
+=head2 name
+
+Example:
+
+  name: Module-Build
+
+(Spec 1.0) [required] {string} The name of the distribution which is often
+created by taking the "main module" in the distribution and changing
+"::" to "-".  Sometimes it's completely different, however, as in the
+case of the libwww-perl distribution (see
+L<http://search.cpan.org/dist/libwww-perl/>).
+
+=head2 version
+
+Example:
+
+  version: 0.20
+
+(Spec 1.0) [required] {version} The version of the distribution to which the
+F<META.yml> file refers.
+
+=head2 abstract
+
+Example:
+
+  abstract: Build and install Perl modules.
+
+(Spec 1.1) [required] {string} A short description of the purpose of the
+distribution.
+
+=head2 author
+
+Example:
+
+  author:
+    - Ken Williams <kwilliams@cpan.org>
+
+(Spec 1.1) [required] {list of strings} A YAML sequence indicating the author(s) of the
+distribution. The preferred form is author-name <email-address>.
+
+=head2 license
+
+Example:
+
+  license: perl
+
+(Spec 1.0) [required] {string} The license under which this
+distribution may be used and redistributed.
+
+Must be one of the following licenses:
+
+=over 4
+
+=item apache
+
+The distribution is licensed under the Apache Software License
+(L<http://opensource.org/licenses/apachepl.php>).
+
+=item artistic
+
+The distribution is licensed under the Artistic License, as specified by the
+Artistic file in the standard perl distribution.
+
+=item bsd
+
+The distribution is licensed under the BSD License
+(L<http://www.opensource.org/licenses/bsd-license.php>).
+
+=item gpl
+
+The distribution is licensed under the terms of the Gnu General Public License
+(L<http://www.opensource.org/licenses/gpl-license.php>).
+
+=item lgpl
+
+The distribution is licensed under the terms of the Gnu Lesser General Public
+License (L<http://www.opensource.org/licenses/lgpl-license.php>).
+
+=item mit
+
+The distribution is licensed under the MIT License
+(L<http://opensource.org/licenses/mit-license.php>).
+
+=item mozilla
+
+The distribution is licensed under the Mozilla Public License.
+(L<http://opensource.org/licenses/mozilla1.0.php> or
+L<http://opensource.org/licenses/mozilla1.1.php>)
+
+=item open_source
+
+The distribution is licensed under some other Open Source Initiative-approved
+license listed at L<http://www.opensource.org/licenses/>.
+
+=item perl
+
+The distribution may be copied and redistributed under the same terms as perl
+itself (this is by far the most common licensing option for modules on CPAN).
+This is a dual license, in which the user may choose between either the GPL or
+the Artistic license.
+
+=item restrictive
+
+The distribution may not be redistributed without special permission from the
+author and/or copyright holder.
+
+=item unrestricted
+
+The distribution is licensed under a license that is not approved by
+L<www.opensource.org|http://www.opensource.org/> but that allows distribution
+without restrictions.
+
+=back
+
+=head2 distribution_type
+
+Example:
+
+  distribution_type: module
+
+(Spec 1.0) [optional] {string} What kind of stuff is contained in this
+distribution.  Most things on CPAN are C<module>s (which can also mean
+a collection of modules), but some things are C<script>s.
+
+Unfortunately this field is basically meaningless, since many
+distributions are hybrids of several kinds of things, or some new
+thing, or subjectively different in focus depending on who's using
+them.  Tools like Module::Build and MakeMaker will likely stop
+generating this field.
+
+=head2 requires
+
+Example:
+
+  requires:
+    Data::Dumper: 0
+    File::Find: 1.03
+
+(Spec 1.0) [optional] {map} A YAML mapping indicating the Perl
+prerequisites this distribution requires for proper operation.  The
+keys are the names of the prerequisites (module names or 'perl'), and
+the values are version specifications as described in L<VERSION
+SPECIFICATIONS>.
+
+=head2 recommends
+
+Example:
+
+  recommends:
+    Data::Dumper: 0
+    File::Find: 1.03
+
+(Spec 1.0) [optional] {map} A YAML mapping indicating the Perl
+prerequisites this distribution recommends for enhanced operation.
+The keys are the names of the prerequisites (module names or 'perl'),
+and the values are version specifications as described in L<VERSION
+SPECIFICATIONS>.
+
+
+
+I<ALTERNATIVE: It may be desirable to present to the user which
+features depend on which modules so they can make an informed decision
+about which recommended modules to install.>
+
+Example:
+
+  optional_features:
+    foo:
+      description: Provides the ability to blah.
+      requires:
+        Data::Dumper: 0
+        File::Find: 1.03
+
+I<(Spec 1.1) [optional] {map} A YAML mapping of names for optional features
+which are made available when its requirements are met. For each
+feature a description is provided along with any of L<"requires">,
+L<"build_requires">, and L<"conflicts">, which have the same meaning in
+this subcontext as described elsewhere in this document.>
+
+=head2 build_requires
+
+Example:
+
+  build_requires:
+    Data::Dumper: 0
+    File::Find: 1.03
+
+(Spec 1.0) [optional] {map} A YAML mapping indicating the Perl
+prerequisites required for building and/or testing of this
+distribution.  The keys are the names of the prerequisites (module
+names or 'perl'), and the values are version specifications as
+described in L<VERSION SPECIFICATIONS>.  These dependencies are not
+required after the distribution is installed.
+
+=head2 configure_requires
+
+Example:
+
+  configure_requires:
+    Module::Build: 0.2809
+    Data::Dumper: 0
+    File::Find: 1.03
+
+(Spec 1.4) [optional] {map} A YAML mapping indicating the Perl prerequisites
+required before configuring this distribution.  The keys are the
+names of the prerequisites (module names or 'perl'), and the values are version specifications as described
+in L<VERSION SPECIFICATIONS>.  These dependencies are not required
+after the distribution is installed.
+
+=head2 conflicts
+
+Example:
+
+  conflicts:
+    Data::Dumper: 0
+    File::Find: 1.03
+
+(Spec 1.0) [optional] {map} A YAML mapping indicating any items that
+cannot be installed while this distribution is installed.  This is a
+pretty uncommon situation.  The keys for C<conflicts> are the item
+names (module names or 'perl'), and the values are version
+specifications as described in L<VERSION SPECIFICATIONS>.
+
+
+=head2 dynamic_config
+
+Example:
+
+  dynamic_config: 0
+
+(Spec 1.0) [optional] {boolean} A boolean flag indicating whether a F<Build.PL>
+or F<Makefile.PL> (or similar) must be executed when building this
+distribution, or whether it can be built, tested and installed solely
+from consulting its
+metadata file.  The main reason to set this to a true value is that
+your module performs some dynamic configuration (asking questions,
+sensing the environment, etc.) as part of its build/install process.
+
+Currently Module::Build doesn't actually do anything with this flag
+- it's probably going to be up to higher-level tools like CPAN
+to do something useful with it.  It can potentially bring lots of
+security, packaging, and convenience improvements.
+
+If this field is omitted, it defaults to 1 (true).
+
+=head2 private
+
+I<(Deprecated)> (Spec 1.0) [optional] {map} This field has been renamed to
+L</"no_index">.  See below.
+
+=head2 provides
+
+Example:
+
+  provides:
+    Foo::Bar:
+      file: lib/Foo/Bar.pm
+      version: 0.27_02
+    Foo::Bar::Blah:
+      file: lib/Foo/Bar/Blah.pm
+    Foo::Bar::Baz:
+      file: lib/Foo/Bar/Baz.pm
+      version: 0.3
+
+(Spec 1.1) [optional] {map} A YAML mapping that describes all packages
+provided by this distribution.  This information can be (and, in some
+cases, is) used by distribution and automation mechanisms like PAUSE,
+CPAN, and search.cpan.org to build indexes saying in which
+distribution various packages can be found.
+
+When using tools like C<Module::Build> that can generate the
+C<provides> mapping for your distribution automatically, make sure you
+examine what it generates to make sure it makes sense - indexers will
+usually trust the C<provides> field if it's present, rather than
+scanning through the distribution files themselves to figure out
+packages and versions.  This is a good thing, because it means you can
+use the C<provides> field to tell the indexers precisely what you want
+indexed about your distribution, rather than relying on them to
+essentially guess what you want indexed.
+
+=head2 no_index
+
+Example:
+
+  no_index:
+    file:
+    - My/Module.pm
+    directory:
+    - My/Private
+    package:
+    - My::Module::Stuff
+    namespace:
+    - My::Module::Stuff
+
+(Spec 1.1) [optional] {map} A YAML mapping that describes any files,
+directories, packages, and namespaces that are private
+(i.e. implementation artifacts) that are not of interest to searching
+and indexing tools.  This is useful when no C<provides> field is
+present.
+
+For example, C<search.cpan.org> excludes items listed in C<no_index>
+when searching for POD, meaning files in these directories will not
+converted to HTML and made public - which is useful if you have
+example or test PODs that you don't want the search engine to go
+through.
+
+=head3 file
+
+(Spec 1.1) [optional] Exclude any listed file(s).
+
+=head3 directory
+
+(Spec 1.1) [optional] Exclude anything below the listed
+directory(ies).
+
+[Note: previous editions of the spec had C<dir> instead of
+C<directory>, but I think MakeMaker and various users started using
+C<directory>, so in deference we switched to that.]
+
+=head3 package
+
+(Spec 1.1) [optional] Exclude the listed package(s).
+
+=head3 namespace
+
+(Spec 1.1) [optional] Excludes anything below the listed namespace(s),
+but I<not> the listed namespace(s) its self.
+
+=head2 keywords
+
+Example:
+
+  keywords:
+    - make
+    - build
+    - install
+
+(Spec 1.1) [optional] {list} A sequence of keywords/phrases that describe
+this distribution.
+
+=head2 resources
+
+Example:
+
+  resources:
+    license: http://dev.perl.org/licenses/
+    homepage: http://sourceforge.net/projects/module-build
+    bugtracker: http://rt.cpan.org/NoAuth/Bugs.html?Dist=Module-Build
+    repository: http://sourceforge.net/cvs/?group_id=45731
+    MailingList: http://lists.sourceforge.net/lists/listinfo/module-build-general
+
+(Spec 1.1) [optional] {map} A mapping of any URL resources related to
+this distribution.  All-lower-case keys, such as C<homepage>,
+C<license>, and C<bugtracker>, are reserved by this specification, as
+they have "official" meanings defined here in this specification.  If
+you'd like to add your own "special" entries (like the "MailingList"
+entry above), use at least one upper-case letter.
+
+The current set of official keys is:
+
+=over 2
+
+=item homepage
+
+The official home of this project on the web.
+
+=item license
+
+An URL for an official statement of this distribution's license.
+
+=item bugtracker
+
+An URL for a bug tracker (e.g. Bugzilla or RT queue) for this project.
+
+=back
+
+
+=head2 generated_by
+
+Example:
+
+  generated_by: Module::Build version 0.20
+
+(Spec 1.0) [required] {string} Indicates the tool that was used to create this
+F<META.yml> file.  It's good form to include both the name of the tool
+and its version, but this field is essentially opaque, at least for
+the moment. If F<META.yml> was generated by hand, it is suggested that
+the author be specified here.
+
+[Note: My F<meta_stats.pl> script which I use to gather statistics
+regarding F<META.yml> usage prefers the form listed above, i.e. it
+splits on /\s+version\s+/ taking the first field as the name of the
+tool that generated the file and the second field as version of that
+tool. RWS]
+
+=head1 VERSION SPECIFICATIONS
+
+Some fields require a version specification (ex. L<"requires">,
+L<"recommends">, L<"build_requires">, etc.) to indicate the particular
+versionZ<>(s) of some other module that may be required as a
+prerequisite.  This section details the version specification formats
+that are currently supported.
+
+The simplest format for a version specification is just the version
+number itself, e.g. C<2.4>.  This means that B<at least> version 2.4
+must be present.  To indicate that B<any> version of a prerequisite is
+okay, even if the prerequisite doesn't define a version at all, use
+the version C<0>.
+
+You may also use the operators E<lt> (less than), E<lt>= (less than or
+equal), E<gt> (greater than), E<gt>= (greater than or equal), ==
+(equal), and != (not equal).  For example, the specification C<E<lt>
+2.0> means that any version of the prerequisite less than 2.0 is
+suitable.
+
+For more complicated situations, version specifications may be AND-ed
+together using commas.  The specification C<E<gt>= 1.2, != 1.5, E<lt>
+2.0> indicates a version that must be B<at least> 1.2, B<less than>
+2.0, and B<not equal to> 1.5.
+
+=head1 SEE ALSO
+
+CPAN, L<http://www.cpan.org/>
+
+CPAN.pm, L<http://search.cpan.org/dist/CPAN/>
+
+CPANPLUS, L<http://search.cpan.org/dist/CPANPLUS/>
+
+Data::Dumper, L<http://search.cpan.org/dist/Data-Dumper/>
+
+ExtUtils::MakeMaker, L<http://search.cpan.org/dist/ExtUtils-MakeMaker/>
+
+Module::Build, L<http://search.cpan.org/dist/Module-Build/>
+
+Module::Install, L<http://search.cpan.org/dist/Module-Install/>
+
+XML, L<http://www.w3.org/XML/>
+
+YAML, L<http://www.yaml.org/>
+
+=head1 HISTORY
+
+=over 4
+
+=item March 14, 2003 (Pi day)
+
+=over 2
+
+=item *
+
+Created version 1.0 of this document.
+
+=back
+
+=item May 8, 2003
+
+=over 2
+
+=item *
+
+Added the L</"dynamic_config"> field, which was missing from the initial
+version.
+
+=back
+
+=item November 13, 2003
+
+=over 2
+
+=item *
+
+Added more YAML rationale articles.
+
+=item *
+
+Fixed existing link to YAML discussion thread to point to new
+L<http://nntp.x.perl.org/group/> site.
+
+=item *
+
+Added and deprecated the L<"private"> field.
+
+=item *
+
+Added L<"abstract">, L<"configure">, L<"requires_packages">,
+L<"requires_os">, L<"excludes_os">, and L<"no_index"> fields.
+
+=item *
+
+Bumped version.
+
+=back
+
+=item November 16, 2003
+
+=over 2
+
+=item *
+
+Added L<"generation">, L<"authored_by"> fields.
+
+=item *
+
+Add alternative proposal to the L<"recommends"> field.
+
+=item *
+
+Add proposal for a L<"requires_build_tools"> field.
+
+=back
+
+=item December 9, 2003
+
+=over 2
+
+=item *
+
+Added link to latest version of this specification on CPAN.
+
+=item *
+
+Added section L<"VERSION SPECIFICATIONS">.
+
+=item *
+
+Chang name from Module::Build::META-spec to CPAN::META::Specification.
+
+=item *
+
+Add proposal for L<"auto_regenerate"> field.
+
+=back
+
+=item December 15, 2003
+
+=over 2
+
+=item *
+
+Add L<"index"> field as a compliment to L<"no_index">
+
+=item *
+
+Add L<"keywords"> field as a means to aid searching distributions.
+
+=item *
+
+Add L<"TERMINOLOGY"> section to explain certain terms that may be
+ambiguous.
+
+=back
+
+=item July 26, 2005
+
+=over 2
+
+=item *
+
+Removed a bunch of items (generation, requires_build_tools,
+requires_packages, configure, requires_os, excludes_os,
+auto_regenerate) that have never actually been supported, but were
+more like records of brainstorming.
+
+=item *
+
+Changed C<authored_by> to C<author>, since that's always been what
+it's actually called in actual F<META.yml> files.
+
+=item *
+
+Added the "==" operator to the list of supported version-checking
+operators.
+
+=item *
+
+Noted that the C<distribution_type> field is basically meaningless,
+and shouldn't really be used.
+
+=item *
+
+Clarified C<dynamic_config> a bit.
+
+=back
+
+=item August 23, 2005
+
+=over 2
+
+=item *
+
+Removed the name C<CPAN::META::Specification>, since that implies a
+module that doesn't actually exist.
+
+=back
+
+=item June 12, 2007
+
+=over 2
+
+=item *
+
+Added C<configure_requires>.
+
+=back
+
+=back
diff --git a/lib/5.24.1/CPAN/Meta/Merge.pm b/lib/5.24.1/CPAN/Meta/Merge.pm
new file mode 100644
index 00000000..05a18ea9
--- /dev/null
+++ b/lib/5.24.1/CPAN/Meta/Merge.pm
@@ -0,0 +1,297 @@
+use strict;
+use warnings;
+
+package CPAN::Meta::Merge;
+
+our $VERSION = '2.150005';
+
+use Carp qw/croak/;
+use Scalar::Util qw/blessed/;
+use CPAN::Meta::Converter 2.141170;
+
+sub _is_identical {
+  my ($left, $right) = @_;
+  return
+    (not defined $left and not defined $right)
+    # if either of these are references, we compare the serialized value
+    || (defined $left and defined $right and $left eq $right);
+}
+
+sub _identical {
+  my ($left, $right, $path) = @_;
+  croak sprintf "Can't merge attribute %s: '%s' does not equal '%s'", join('.', @{$path}), $left, $right
+    unless _is_identical($left, $right);
+  return $left;
+}
+
+sub _merge {
+  my ($current, $next, $mergers, $path) = @_;
+  for my $key (keys %{$next}) {
+    if (not exists $current->{$key}) {
+      $current->{$key} = $next->{$key};
+    }
+    elsif (my $merger = $mergers->{$key}) {
+      $current->{$key} = $merger->($current->{$key}, $next->{$key}, [ @{$path}, $key ]);
+    }
+    elsif ($merger = $mergers->{':default'}) {
+      $current->{$key} = $merger->($current->{$key}, $next->{$key}, [ @{$path}, $key ]);
+    }
+    else {
+      croak sprintf "Can't merge unknown attribute '%s'", join '.', @{$path}, $key;
+    }
+  }
+  return $current;
+}
+
+sub _uniq {
+  my %seen = ();
+  return grep { not $seen{$_}++ } @_;
+}
+
+sub _set_addition {
+  my ($left, $right) = @_;
+  return [ +_uniq(@{$left}, @{$right}) ];
+}
+
+sub _uniq_map {
+  my ($left, $right, $path) = @_;
+  for my $key (keys %{$right}) {
+    if (not exists $left->{$key}) {
+      $left->{$key} = $right->{$key};
+    }
+    # identical strings or references are merged identically
+    elsif (_is_identical($left->{$key}, $right->{$key})) {
+      1; # do nothing - keep left
+    }
+    elsif (ref $left->{$key} eq 'HASH' and ref $right->{$key} eq 'HASH') {
+      $left->{$key} = _uniq_map($left->{$key}, $right->{$key}, [ @{$path}, $key ]);
+    }
+    else {
+      croak 'Duplication of element ' . join '.', @{$path}, $key;
+    }
+  }
+  return $left;
+}
+
+sub _improvize {
+  my ($left, $right, $path) = @_;
+  my ($name) = reverse @{$path};
+  if ($name =~ /^x_/) {
+    if (ref($left) eq 'ARRAY') {
+      return _set_addition($left, $right, $path);
+    }
+    elsif (ref($left) eq 'HASH') {
+      return _uniq_map($left, $right, $path);
+    }
+    else {
+      return _identical($left, $right, $path);
+    }
+  }
+  croak sprintf "Can't merge '%s'", join '.', @{$path};
+}
+
+sub _optional_features {
+  my ($left, $right, $path) = @_;
+
+  for my $key (keys %{$right}) {
+    if (not exists $left->{$key}) {
+      $left->{$key} = $right->{$key};
+    }
+    else {
+      for my $subkey (keys %{ $right->{$key} }) {
+        next if $subkey eq 'prereqs';
+        if (not exists $left->{$key}{$subkey}) {
+          $left->{$key}{$subkey} = $right->{$key}{$subkey};
+        }
+        else {
+          Carp::croak "Cannot merge two optional_features named '$key' with different '$subkey' values"
+            if do { no warnings 'uninitialized'; $left->{$key}{$subkey} ne $right->{$key}{$subkey} };
+        }
+      }
+
+      require CPAN::Meta::Prereqs;
+      $left->{$key}{prereqs} =
+        CPAN::Meta::Prereqs->new($left->{$key}{prereqs})
+          ->with_merged_prereqs(CPAN::Meta::Prereqs->new($right->{$key}{prereqs}))
+          ->as_string_hash;
+    }
+  }
+  return $left;
+}
+
+
+my %default = (
+  abstract       => \&_identical,
+  author         => \&_set_addition,
+  dynamic_config => sub {
+    my ($left, $right) = @_;
+    return $left || $right;
+  },
+  generated_by => sub {
+    my ($left, $right) = @_;
+    return join ', ', _uniq(split(/, /, $left), split(/, /, $right));
+  },
+  license     => \&_set_addition,
+  'meta-spec' => {
+    version => \&_identical,
+    url     => \&_identical
+  },
+  name              => \&_identical,
+  release_status    => \&_identical,
+  version           => \&_identical,
+  description       => \&_identical,
+  keywords          => \&_set_addition,
+  no_index          => { map { ($_ => \&_set_addition) } qw/file directory package namespace/ },
+  optional_features => \&_optional_features,
+  prereqs           => sub {
+    require CPAN::Meta::Prereqs;
+    my ($left, $right) = map { CPAN::Meta::Prereqs->new($_) } @_[0,1];
+    return $left->with_merged_prereqs($right)->as_string_hash;
+  },
+  provides  => \&_uniq_map,
+  resources => {
+    license    => \&_set_addition,
+    homepage   => \&_identical,
+    bugtracker => \&_uniq_map,
+    repository => \&_uniq_map,
+    ':default' => \&_improvize,
+  },
+  ':default' => \&_improvize,
+);
+
+sub new {
+  my ($class, %arguments) = @_;
+  croak 'default version required' if not exists $arguments{default_version};
+  my %mapping = %default;
+  my %extra = %{ $arguments{extra_mappings} || {} };
+  for my $key (keys %extra) {
+    if (ref($mapping{$key}) eq 'HASH') {
+      $mapping{$key} = { %{ $mapping{$key} }, %{ $extra{$key} } };
+    }
+    else {
+      $mapping{$key} = $extra{$key};
+    }
+  }
+  return bless {
+    default_version => $arguments{default_version},
+    mapping => _coerce_mapping(\%mapping, []),
+  }, $class;
+}
+
+my %coderef_for = (
+  set_addition => \&_set_addition,
+  uniq_map     => \&_uniq_map,
+  identical    => \&_identical,
+  improvize    => \&_improvize,
+);
+
+sub _coerce_mapping {
+  my ($orig, $map_path) = @_;
+  my %ret;
+  for my $key (keys %{$orig}) {
+    my $value = $orig->{$key};
+    if (ref($orig->{$key}) eq 'CODE') {
+      $ret{$key} = $value;
+    }
+    elsif (ref($value) eq 'HASH') {
+      my $mapping = _coerce_mapping($value, [ @{$map_path}, $key ]);
+      $ret{$key} = sub {
+        my ($left, $right, $path) = @_;
+        return _merge($left, $right, $mapping, [ @{$path} ]);
+      };
+    }
+    elsif ($coderef_for{$value}) {
+      $ret{$key} = $coderef_for{$value};
+    }
+    else {
+      croak "Don't know what to do with " . join '.', @{$map_path}, $key;
+    }
+  }
+  return \%ret;
+}
+
+sub merge {
+  my ($self, @items) = @_;
+  my $current = {};
+  for my $next (@items) {
+    if ( blessed($next) && $next->isa('CPAN::Meta') ) {
+      $next = $next->as_struct;
+    }
+    elsif ( ref($next) eq 'HASH' ) {
+      my $cmc = CPAN::Meta::Converter->new(
+        $next, default_version => $self->{default_version}
+      );
+      $next = $cmc->upgrade_fragment;
+    }
+    else {
+      croak "Don't know how to merge '$next'";
+    }
+    $current = _merge($current, $next, $self->{mapping}, []);
+  }
+  return $current;
+}
+
+1;
+
+# ABSTRACT: Merging CPAN Meta fragments
+
+
+# vim: ts=2 sts=2 sw=2 et :
+
+__END__
+
+=pod
+
+=encoding UTF-8
+
+=head1 NAME
+
+CPAN::Meta::Merge - Merging CPAN Meta fragments
+
+=head1 VERSION
+
+version 2.150005
+
+=head1 SYNOPSIS
+
+ my $merger = CPAN::Meta::Merge->new(default_version => "2");
+ my $meta = $merger->merge($base, @additional);
+
+=head1 DESCRIPTION
+
+=head1 METHODS
+
+=head2 new
+
+This creates a CPAN::Meta::Merge object. It takes one mandatory named
+argument, C<version>, declaring the version of the meta-spec that must be
+used for the merge. It can optionally take an C<extra_mappings> argument
+that allows one to add additional merging functions for specific elements.
+
+=head2 merge(@fragments)
+
+Merge all C<@fragments> together. It will accept both CPAN::Meta objects and
+(possibly incomplete) hashrefs of metadata.
+
+=head1 AUTHORS
+
+=over 4
+
+=item *
+
+David Golden <dagolden@cpan.org>
+
+=item *
+
+Ricardo Signes <rjbs@cpan.org>
+
+=back
+
+=head1 COPYRIGHT AND LICENSE
+
+This software is copyright (c) 2010 by David Golden and Ricardo Signes.
+
+This is free software; you can redistribute it and/or modify it under
+the same terms as the Perl 5 programming language system itself.
+
+=cut
diff --git a/lib/5.24.1/CPAN/Meta/Prereqs.pm b/lib/5.24.1/CPAN/Meta/Prereqs.pm
new file mode 100644
index 00000000..8a13eb13
--- /dev/null
+++ b/lib/5.24.1/CPAN/Meta/Prereqs.pm
@@ -0,0 +1,422 @@
+use 5.006;
+use strict;
+use warnings;
+package CPAN::Meta::Prereqs;
+
+our $VERSION = '2.150005';
+
+#pod =head1 DESCRIPTION
+#pod
+#pod A CPAN::Meta::Prereqs object represents the prerequisites for a CPAN
+#pod distribution or one of its optional features.  Each set of prereqs is
+#pod organized by phase and type, as described in L<CPAN::Meta::Prereqs>.
+#pod
+#pod =cut
+
+use Carp qw(confess);
+use Scalar::Util qw(blessed);
+use CPAN::Meta::Requirements 2.121;
+
+#pod =method new
+#pod
+#pod   my $prereq = CPAN::Meta::Prereqs->new( \%prereq_spec );
+#pod
+#pod This method returns a new set of Prereqs.  The input should look like the
+#pod contents of the C<prereqs> field described in L<CPAN::Meta::Spec>, meaning
+#pod something more or less like this:
+#pod
+#pod   my $prereq = CPAN::Meta::Prereqs->new({
+#pod     runtime => {
+#pod       requires => {
+#pod         'Some::Module' => '1.234',
+#pod         ...,
+#pod       },
+#pod       ...,
+#pod     },
+#pod     ...,
+#pod   });
+#pod
+#pod You can also construct an empty set of prereqs with:
+#pod
+#pod   my $prereqs = CPAN::Meta::Prereqs->new;
+#pod
+#pod This empty set of prereqs is useful for accumulating new prereqs before finally
+#pod dumping the whole set into a structure or string.
+#pod
+#pod =cut
+
+sub __legal_phases { qw(configure build test runtime develop)   }
+sub __legal_types  { qw(requires recommends suggests conflicts) }
+
+# expect a prereq spec from META.json -- rjbs, 2010-04-11
+sub new {
+  my ($class, $prereq_spec) = @_;
+  $prereq_spec ||= {};
+
+  my %is_legal_phase = map {; $_ => 1 } $class->__legal_phases;
+  my %is_legal_type  = map {; $_ => 1 } $class->__legal_types;
+
+  my %guts;
+  PHASE: for my $phase (keys %$prereq_spec) {
+    next PHASE unless $phase =~ /\Ax_/i or $is_legal_phase{$phase};
+
+    my $phase_spec = $prereq_spec->{ $phase };
+    next PHASE unless keys %$phase_spec;
+
+    TYPE: for my $type (keys %$phase_spec) {
+      next TYPE unless $type =~ /\Ax_/i or $is_legal_type{$type};
+
+      my $spec = $phase_spec->{ $type };
+
+      next TYPE unless keys %$spec;
+
+      $guts{prereqs}{$phase}{$type} = CPAN::Meta::Requirements->from_string_hash(
+        $spec
+      );
+    }
+  }
+
+  return bless \%guts => $class;
+}
+
+#pod =method requirements_for
+#pod
+#pod   my $requirements = $prereqs->requirements_for( $phase, $type );
+#pod
+#pod This method returns a L<CPAN::Meta::Requirements> object for the given
+#pod phase/type combination.  If no prerequisites are registered for that
+#pod combination, a new CPAN::Meta::Requirements object will be returned, and it may
+#pod be added to as needed.
+#pod
+#pod If C<$phase> or C<$type> are undefined or otherwise invalid, an exception will
+#pod be raised.
+#pod
+#pod =cut
+
+sub requirements_for {
+  my ($self, $phase, $type) = @_;
+
+  confess "requirements_for called without phase" unless defined $phase;
+  confess "requirements_for called without type"  unless defined $type;
+
+  unless ($phase =~ /\Ax_/i or grep { $phase eq $_ } $self->__legal_phases) {
+    confess "requested requirements for unknown phase: $phase";
+  }
+
+  unless ($type =~ /\Ax_/i or grep { $type eq $_ } $self->__legal_types) {
+    confess "requested requirements for unknown type: $type";
+  }
+
+  my $req = ($self->{prereqs}{$phase}{$type} ||= CPAN::Meta::Requirements->new);
+
+  $req->finalize if $self->is_finalized;
+
+  return $req;
+}
+
+#pod =method with_merged_prereqs
+#pod
+#pod   my $new_prereqs = $prereqs->with_merged_prereqs( $other_prereqs );
+#pod
+#pod   my $new_prereqs = $prereqs->with_merged_prereqs( \@other_prereqs );
+#pod
+#pod This method returns a new CPAN::Meta::Prereqs objects in which all the
+#pod other prerequisites given are merged into the current set.  This is primarily
+#pod provided for combining a distribution's core prereqs with the prereqs of one of
+#pod its optional features.
+#pod
+#pod The new prereqs object has no ties to the originals, and altering it further
+#pod will not alter them.
+#pod
+#pod =cut
+
+sub with_merged_prereqs {
+  my ($self, $other) = @_;
+
+  my @other = blessed($other) ? $other : @$other;
+
+  my @prereq_objs = ($self, @other);
+
+  my %new_arg;
+
+  for my $phase ($self->__legal_phases) {
+    for my $type ($self->__legal_types) {
+      my $req = CPAN::Meta::Requirements->new;
+
+      for my $prereq (@prereq_objs) {
+        my $this_req = $prereq->requirements_for($phase, $type);
+        next unless $this_req->required_modules;
+
+        $req->add_requirements($this_req);
+      }
+
+      next unless $req->required_modules;
+
+      $new_arg{ $phase }{ $type } = $req->as_string_hash;
+    }
+  }
+
+  return (ref $self)->new(\%new_arg);
+}
+
+#pod =method merged_requirements
+#pod
+#pod     my $new_reqs = $prereqs->merged_requirements( \@phases, \@types );
+#pod     my $new_reqs = $prereqs->merged_requirements( \@phases );
+#pod     my $new_reqs = $prereqs->merged_requirements();
+#pod
+#pod This method joins together all requirements across a number of phases
+#pod and types into a new L<CPAN::Meta::Requirements> object.  If arguments
+#pod are omitted, it defaults to "runtime", "build" and "test" for phases
+#pod and "requires" and "recommends" for types.
+#pod
+#pod =cut
+
+sub merged_requirements {
+  my ($self, $phases, $types) = @_;
+  $phases = [qw/runtime build test/] unless defined $phases;
+  $types = [qw/requires recommends/] unless defined $types;
+
+  confess "merged_requirements phases argument must be an arrayref"
+    unless ref $phases eq 'ARRAY';
+  confess "merged_requirements types argument must be an arrayref"
+    unless ref $types eq 'ARRAY';
+
+  my $req = CPAN::Meta::Requirements->new;
+
+  for my $phase ( @$phases ) {
+    unless ($phase =~ /\Ax_/i or grep { $phase eq $_ } $self->__legal_phases) {
+        confess "requested requirements for unknown phase: $phase";
+    }
+    for my $type ( @$types ) {
+      unless ($type =~ /\Ax_/i or grep { $type eq $_ } $self->__legal_types) {
+          confess "requested requirements for unknown type: $type";
+      }
+      $req->add_requirements( $self->requirements_for($phase, $type) );
+    }
+  }
+
+  $req->finalize if $self->is_finalized;
+
+  return $req;
+}
+
+
+#pod =method as_string_hash
+#pod
+#pod This method returns a hashref containing structures suitable for dumping into a
+#pod distmeta data structure.  It is made up of hashes and strings, only; there will
+#pod be no Prereqs, CPAN::Meta::Requirements, or C<version> objects inside it.
+#pod
+#pod =cut
+
+sub as_string_hash {
+  my ($self) = @_;
+
+  my %hash;
+
+  for my $phase ($self->__legal_phases) {
+    for my $type ($self->__legal_types) {
+      my $req = $self->requirements_for($phase, $type);
+      next unless $req->required_modules;
+
+      $hash{ $phase }{ $type } = $req->as_string_hash;
+    }
+  }
+
+  return \%hash;
+}
+
+#pod =method is_finalized
+#pod
+#pod This method returns true if the set of prereqs has been marked "finalized," and
+#pod cannot be altered.
+#pod
+#pod =cut
+
+sub is_finalized { $_[0]{finalized} }
+
+#pod =method finalize
+#pod
+#pod Calling C<finalize> on a Prereqs object will close it for further modification.
+#pod Attempting to make any changes that would actually alter the prereqs will
+#pod result in an exception being thrown.
+#pod
+#pod =cut
+
+sub finalize {
+  my ($self) = @_;
+
+  $self->{finalized} = 1;
+
+  for my $phase (keys %{ $self->{prereqs} }) {
+    $_->finalize for values %{ $self->{prereqs}{$phase} };
+  }
+}
+
+#pod =method clone
+#pod
+#pod   my $cloned_prereqs = $prereqs->clone;
+#pod
+#pod This method returns a Prereqs object that is identical to the original object,
+#pod but can be altered without affecting the original object.  Finalization does
+#pod not survive cloning, meaning that you may clone a finalized set of prereqs and
+#pod then modify the clone.
+#pod
+#pod =cut
+
+sub clone {
+  my ($self) = @_;
+
+  my $clone = (ref $self)->new( $self->as_string_hash );
+}
+
+1;
+
+# ABSTRACT: a set of distribution prerequisites by phase and type
+
+=pod
+
+=encoding UTF-8
+
+=head1 NAME
+
+CPAN::Meta::Prereqs - a set of distribution prerequisites by phase and type
+
+=head1 VERSION
+
+version 2.150005
+
+=head1 DESCRIPTION
+
+A CPAN::Meta::Prereqs object represents the prerequisites for a CPAN
+distribution or one of its optional features.  Each set of prereqs is
+organized by phase and type, as described in L<CPAN::Meta::Prereqs>.
+
+=head1 METHODS
+
+=head2 new
+
+  my $prereq = CPAN::Meta::Prereqs->new( \%prereq_spec );
+
+This method returns a new set of Prereqs.  The input should look like the
+contents of the C<prereqs> field described in L<CPAN::Meta::Spec>, meaning
+something more or less like this:
+
+  my $prereq = CPAN::Meta::Prereqs->new({
+    runtime => {
+      requires => {
+        'Some::Module' => '1.234',
+        ...,
+      },
+      ...,
+    },
+    ...,
+  });
+
+You can also construct an empty set of prereqs with:
+
+  my $prereqs = CPAN::Meta::Prereqs->new;
+
+This empty set of prereqs is useful for accumulating new prereqs before finally
+dumping the whole set into a structure or string.
+
+=head2 requirements_for
+
+  my $requirements = $prereqs->requirements_for( $phase, $type );
+
+This method returns a L<CPAN::Meta::Requirements> object for the given
+phase/type combination.  If no prerequisites are registered for that
+combination, a new CPAN::Meta::Requirements object will be returned, and it may
+be added to as needed.
+
+If C<$phase> or C<$type> are undefined or otherwise invalid, an exception will
+be raised.
+
+=head2 with_merged_prereqs
+
+  my $new_prereqs = $prereqs->with_merged_prereqs( $other_prereqs );
+
+  my $new_prereqs = $prereqs->with_merged_prereqs( \@other_prereqs );
+
+This method returns a new CPAN::Meta::Prereqs objects in which all the
+other prerequisites given are merged into the current set.  This is primarily
+provided for combining a distribution's core prereqs with the prereqs of one of
+its optional features.
+
+The new prereqs object has no ties to the originals, and altering it further
+will not alter them.
+
+=head2 merged_requirements
+
+    my $new_reqs = $prereqs->merged_requirements( \@phases, \@types );
+    my $new_reqs = $prereqs->merged_requirements( \@phases );
+    my $new_reqs = $prereqs->merged_requirements();
+
+This method joins together all requirements across a number of phases
+and types into a new L<CPAN::Meta::Requirements> object.  If arguments
+are omitted, it defaults to "runtime", "build" and "test" for phases
+and "requires" and "recommends" for types.
+
+=head2 as_string_hash
+
+This method returns a hashref containing structures suitable for dumping into a
+distmeta data structure.  It is made up of hashes and strings, only; there will
+be no Prereqs, CPAN::Meta::Requirements, or C<version> objects inside it.
+
+=head2 is_finalized
+
+This method returns true if the set of prereqs has been marked "finalized," and
+cannot be altered.
+
+=head2 finalize
+
+Calling C<finalize> on a Prereqs object will close it for further modification.
+Attempting to make any changes that would actually alter the prereqs will
+result in an exception being thrown.
+
+=head2 clone
+
+  my $cloned_prereqs = $prereqs->clone;
+
+This method returns a Prereqs object that is identical to the original object,
+but can be altered without affecting the original object.  Finalization does
+not survive cloning, meaning that you may clone a finalized set of prereqs and
+then modify the clone.
+
+=head1 BUGS
+
+Please report any bugs or feature using the CPAN Request Tracker.
+Bugs can be submitted through the web interface at
+L<http://rt.cpan.org/Dist/Display.html?Queue=CPAN-Meta>
+
+When submitting a bug or request, please include a test-file or a patch to an
+existing test-file that illustrates the bug or desired feature.
+
+=head1 AUTHORS
+
+=over 4
+
+=item *
+
+David Golden <dagolden@cpan.org>
+
+=item *
+
+Ricardo Signes <rjbs@cpan.org>
+
+=back
+
+=head1 COPYRIGHT AND LICENSE
+
+This software is copyright (c) 2010 by David Golden and Ricardo Signes.
+
+This is free software; you can redistribute it and/or modify it under
+the same terms as the Perl 5 programming language system itself.
+
+=cut
+
+__END__
+
+
+# vim: ts=2 sts=2 sw=2 et :
diff --git a/lib/5.24.1/CPAN/Meta/Requirements.pm b/lib/5.24.1/CPAN/Meta/Requirements.pm
new file mode 100644
index 00000000..b0e83b0d
--- /dev/null
+++ b/lib/5.24.1/CPAN/Meta/Requirements.pm
@@ -0,0 +1,1194 @@
+use 5.006; # keep at v5.6 for CPAN.pm
+use strict;
+use warnings;
+package CPAN::Meta::Requirements;
+# ABSTRACT: a set of version requirements for a CPAN dist
+
+our $VERSION = '2.140';
+
+#pod =head1 SYNOPSIS
+#pod
+#pod   use CPAN::Meta::Requirements;
+#pod
+#pod   my $build_requires = CPAN::Meta::Requirements->new;
+#pod
+#pod   $build_requires->add_minimum('Library::Foo' => 1.208);
+#pod
+#pod   $build_requires->add_minimum('Library::Foo' => 2.602);
+#pod
+#pod   $build_requires->add_minimum('Module::Bar'  => 'v1.2.3');
+#pod
+#pod   $METAyml->{build_requires} = $build_requires->as_string_hash;
+#pod
+#pod =head1 DESCRIPTION
+#pod
+#pod A CPAN::Meta::Requirements object models a set of version constraints like
+#pod those specified in the F<META.yml> or F<META.json> files in CPAN distributions,
+#pod and as defined by L<CPAN::Meta::Spec>;
+#pod It can be built up by adding more and more constraints, and it will reduce them
+#pod to the simplest representation.
+#pod
+#pod Logically impossible constraints will be identified immediately by thrown
+#pod exceptions.
+#pod
+#pod =cut
+
+use Carp ();
+
+# To help ExtUtils::MakeMaker bootstrap CPAN::Meta::Requirements on perls
+# before 5.10, we fall back to the EUMM bundled compatibility version module if
+# that's the only thing available.  This shouldn't ever happen in a normal CPAN
+# install of CPAN::Meta::Requirements, as version.pm will be picked up from
+# prereqs and be available at runtime.
+
+BEGIN {
+  eval "use version ()"; ## no critic
+  if ( my $err = $@ ) {
+    eval "use ExtUtils::MakeMaker::version" or die $err; ## no critic
+  }
+}
+
+# Perl 5.10.0 didn't have "is_qv" in version.pm
+*_is_qv = version->can('is_qv') ? sub { $_[0]->is_qv } : sub { exists $_[0]->{qv} };
+
+# construct once, reuse many times
+my $V0 = version->new(0);
+
+#pod =method new
+#pod
+#pod   my $req = CPAN::Meta::Requirements->new;
+#pod
+#pod This returns a new CPAN::Meta::Requirements object.  It takes an optional
+#pod hash reference argument.  Currently, only one key is supported:
+#pod
+#pod =for :list
+#pod * C<bad_version_hook> -- if provided, when a version cannot be parsed into
+#pod   a version object, this code reference will be called with the invalid
+#pod   version string as first argument, and the module name as second
+#pod   argument.  It must return a valid version object.
+#pod
+#pod All other keys are ignored.
+#pod
+#pod =cut
+
+my @valid_options = qw( bad_version_hook );
+
+sub new {
+  my ($class, $options) = @_;
+  $options ||= {};
+  Carp::croak "Argument to $class\->new() must be a hash reference"
+    unless ref $options eq 'HASH';
+  my %self = map {; $_ => $options->{$_}} @valid_options;
+
+  return bless \%self => $class;
+}
+
+# from version::vpp
+sub _find_magic_vstring {
+  my $value = shift;
+  my $tvalue = '';
+  require B;
+  my $sv = B::svref_2object(\$value);
+  my $magic = ref($sv) eq 'B::PVMG' ? $sv->MAGIC : undef;
+  while ( $magic ) {
+    if ( $magic->TYPE eq 'V' ) {
+      $tvalue = $magic->PTR;
+      $tvalue =~ s/^v?(.+)$/v$1/;
+      last;
+    }
+    else {
+      $magic = $magic->MOREMAGIC;
+    }
+  }
+  return $tvalue;
+}
+
+# safe if given an unblessed reference
+sub _isa_version {
+  UNIVERSAL::isa( $_[0], 'UNIVERSAL' ) && $_[0]->isa('version')
+}
+
+sub _version_object {
+  my ($self, $module, $version) = @_;
+
+  my ($vobj, $err);
+
+  if (not defined $version or (!ref($version) && $version eq '0')) {
+    return $V0;
+  }
+  elsif ( ref($version) eq 'version' || ( ref($version) && _isa_version($version) ) ) {
+    $vobj = $version;
+  }
+  else {
+    # hack around version::vpp not handling <3 character vstring literals
+    if ( $INC{'version/vpp.pm'} || $INC{'ExtUtils/MakeMaker/version/vpp.pm'} ) {
+      my $magic = _find_magic_vstring( $version );
+      $version = $magic if length $magic;
+    }
+    # pad to 3 characters if before 5.8.1 and appears to be a v-string
+    if ( $] < 5.008001 && $version !~ /\A[0-9]/ && substr($version,0,1) ne 'v' && length($version) < 3 ) {
+      $version .= "\0" x (3 - length($version));
+    }
+    eval {
+      local $SIG{__WARN__} = sub { die "Invalid version: $_[0]" };
+      # avoid specific segfault on some older version.pm versions
+      die "Invalid version: $version" if $version eq 'version';
+      $vobj = version->new($version);
+    };
+    if ( my $err = $@ ) {
+      my $hook = $self->{bad_version_hook};
+      $vobj = eval { $hook->($version, $module) }
+        if ref $hook eq 'CODE';
+      unless (eval { $vobj->isa("version") }) {
+        $err =~ s{ at .* line \d+.*$}{};
+        die "Can't convert '$version': $err";
+      }
+    }
+  }
+
+  # ensure no leading '.'
+  if ( $vobj =~ m{\A\.} ) {
+    $vobj = version->new("0$vobj");
+  }
+
+  # ensure normal v-string form
+  if ( _is_qv($vobj) ) {
+    $vobj = version->new($vobj->normal);
+  }
+
+  return $vobj;
+}
+
+#pod =method add_minimum
+#pod
+#pod   $req->add_minimum( $module => $version );
+#pod
+#pod This adds a new minimum version requirement.  If the new requirement is
+#pod redundant to the existing specification, this has no effect.
+#pod
+#pod Minimum requirements are inclusive.  C<$version> is required, along with any
+#pod greater version number.
+#pod
+#pod This method returns the requirements object.
+#pod
+#pod =method add_maximum
+#pod
+#pod   $req->add_maximum( $module => $version );
+#pod
+#pod This adds a new maximum version requirement.  If the new requirement is
+#pod redundant to the existing specification, this has no effect.
+#pod
+#pod Maximum requirements are inclusive.  No version strictly greater than the given
+#pod version is allowed.
+#pod
+#pod This method returns the requirements object.
+#pod
+#pod =method add_exclusion
+#pod
+#pod   $req->add_exclusion( $module => $version );
+#pod
+#pod This adds a new excluded version.  For example, you might use these three
+#pod method calls:
+#pod
+#pod   $req->add_minimum( $module => '1.00' );
+#pod   $req->add_maximum( $module => '1.82' );
+#pod
+#pod   $req->add_exclusion( $module => '1.75' );
+#pod
+#pod Any version between 1.00 and 1.82 inclusive would be acceptable, except for
+#pod 1.75.
+#pod
+#pod This method returns the requirements object.
+#pod
+#pod =method exact_version
+#pod
+#pod   $req->exact_version( $module => $version );
+#pod
+#pod This sets the version required for the given module to I<exactly> the given
+#pod version.  No other version would be considered acceptable.
+#pod
+#pod This method returns the requirements object.
+#pod
+#pod =cut
+
+BEGIN {
+  for my $type (qw(maximum exclusion exact_version)) {
+    my $method = "with_$type";
+    my $to_add = $type eq 'exact_version' ? $type : "add_$type";
+
+    my $code = sub {
+      my ($self, $name, $version) = @_;
+
+      $version = $self->_version_object( $name, $version );
+
+      $self->__modify_entry_for($name, $method, $version);
+
+      return $self;
+    };
+
+    no strict 'refs';
+    *$to_add = $code;
+  }
+}
+
+# add_minimum is optimized compared to generated subs above because
+# it is called frequently and with "0" or equivalent input
+sub add_minimum {
+  my ($self, $name, $version) = @_;
+
+  # stringify $version so that version->new("0.00")->stringify ne "0"
+  # which preserves the user's choice of "0.00" as the requirement
+  if (not defined $version or "$version" eq '0') {
+    return $self if $self->__entry_for($name);
+    Carp::confess("can't add new requirements to finalized requirements")
+      if $self->is_finalized;
+
+    $self->{requirements}{ $name } =
+      CPAN::Meta::Requirements::_Range::Range->with_minimum($V0, $name);
+  }
+  else {
+    $version = $self->_version_object( $name, $version );
+
+    $self->__modify_entry_for($name, 'with_minimum', $version);
+  }
+  return $self;
+}
+
+#pod =method add_requirements
+#pod
+#pod   $req->add_requirements( $another_req_object );
+#pod
+#pod This method adds all the requirements in the given CPAN::Meta::Requirements
+#pod object to the requirements object on which it was called.  If there are any
+#pod conflicts, an exception is thrown.
+#pod
+#pod This method returns the requirements object.
+#pod
+#pod =cut
+
+sub add_requirements {
+  my ($self, $req) = @_;
+
+  for my $module ($req->required_modules) {
+    my $modifiers = $req->__entry_for($module)->as_modifiers;
+    for my $modifier (@$modifiers) {
+      my ($method, @args) = @$modifier;
+      $self->$method($module => @args);
+    };
+  }
+
+  return $self;
+}
+
+#pod =method accepts_module
+#pod
+#pod   my $bool = $req->accepts_module($module => $version);
+#pod
+#pod Given an module and version, this method returns true if the version
+#pod specification for the module accepts the provided version.  In other words,
+#pod given:
+#pod
+#pod   Module => '>= 1.00, < 2.00'
+#pod
+#pod We will accept 1.00 and 1.75 but not 0.50 or 2.00.
+#pod
+#pod For modules that do not appear in the requirements, this method will return
+#pod true.
+#pod
+#pod =cut
+
+sub accepts_module {
+  my ($self, $module, $version) = @_;
+
+  $version = $self->_version_object( $module, $version );
+
+  return 1 unless my $range = $self->__entry_for($module);
+  return $range->_accepts($version);
+}
+
+#pod =method clear_requirement
+#pod
+#pod   $req->clear_requirement( $module );
+#pod
+#pod This removes the requirement for a given module from the object.
+#pod
+#pod This method returns the requirements object.
+#pod
+#pod =cut
+
+sub clear_requirement {
+  my ($self, $module) = @_;
+
+  return $self unless $self->__entry_for($module);
+
+  Carp::confess("can't clear requirements on finalized requirements")
+    if $self->is_finalized;
+
+  delete $self->{requirements}{ $module };
+
+  return $self;
+}
+
+#pod =method requirements_for_module
+#pod
+#pod   $req->requirements_for_module( $module );
+#pod
+#pod This returns a string containing the version requirements for a given module in
+#pod the format described in L<CPAN::Meta::Spec> or undef if the given module has no
+#pod requirements. This should only be used for informational purposes such as error
+#pod messages and should not be interpreted or used for comparison (see
+#pod L</accepts_module> instead).
+#pod
+#pod =cut
+
+sub requirements_for_module {
+  my ($self, $module) = @_;
+  my $entry = $self->__entry_for($module);
+  return unless $entry;
+  return $entry->as_string;
+}
+
+#pod =method structured_requirements_for_module
+#pod
+#pod   $req->structured_requirements_for_module( $module );
+#pod
+#pod This returns a data structure containing the version requirements for a given
+#pod module or undef if the given module has no requirements.  This should
+#pod not be used for version checks (see L</accepts_module> instead).
+#pod
+#pod Added in version 2.134.
+#pod
+#pod =cut
+
+sub structured_requirements_for_module {
+  my ($self, $module) = @_;
+  my $entry = $self->__entry_for($module);
+  return unless $entry;
+  return $entry->as_struct;
+}
+
+#pod =method required_modules
+#pod
+#pod This method returns a list of all the modules for which requirements have been
+#pod specified.
+#pod
+#pod =cut
+
+sub required_modules { keys %{ $_[0]{requirements} } }
+
+#pod =method clone
+#pod
+#pod   $req->clone;
+#pod
+#pod This method returns a clone of the invocant.  The clone and the original object
+#pod can then be changed independent of one another.
+#pod
+#pod =cut
+
+sub clone {
+  my ($self) = @_;
+  my $new = (ref $self)->new;
+
+  return $new->add_requirements($self);
+}
+
+sub __entry_for     { $_[0]{requirements}{ $_[1] } }
+
+sub __modify_entry_for {
+  my ($self, $name, $method, $version) = @_;
+
+  my $fin = $self->is_finalized;
+  my $old = $self->__entry_for($name);
+
+  Carp::confess("can't add new requirements to finalized requirements")
+    if $fin and not $old;
+
+  my $new = ($old || 'CPAN::Meta::Requirements::_Range::Range')
+          ->$method($version, $name);
+
+  Carp::confess("can't modify finalized requirements")
+    if $fin and $old->as_string ne $new->as_string;
+
+  $self->{requirements}{ $name } = $new;
+}
+
+#pod =method is_simple
+#pod
+#pod This method returns true if and only if all requirements are inclusive minimums
+#pod -- that is, if their string expression is just the version number.
+#pod
+#pod =cut
+
+sub is_simple {
+  my ($self) = @_;
+  for my $module ($self->required_modules) {
+    # XXX: This is a complete hack, but also entirely correct.
+    return if $self->__entry_for($module)->as_string =~ /\s/;
+  }
+
+  return 1;
+}
+
+#pod =method is_finalized
+#pod
+#pod This method returns true if the requirements have been finalized by having the
+#pod C<finalize> method called on them.
+#pod
+#pod =cut
+
+sub is_finalized { $_[0]{finalized} }
+
+#pod =method finalize
+#pod
+#pod This method marks the requirements finalized.  Subsequent attempts to change
+#pod the requirements will be fatal, I<if> they would result in a change.  If they
+#pod would not alter the requirements, they have no effect.
+#pod
+#pod If a finalized set of requirements is cloned, the cloned requirements are not
+#pod also finalized.
+#pod
+#pod =cut
+
+sub finalize { $_[0]{finalized} = 1 }
+
+#pod =method as_string_hash
+#pod
+#pod This returns a reference to a hash describing the requirements using the
+#pod strings in the L<CPAN::Meta::Spec> specification.
+#pod
+#pod For example after the following program:
+#pod
+#pod   my $req = CPAN::Meta::Requirements->new;
+#pod
+#pod   $req->add_minimum('CPAN::Meta::Requirements' => 0.102);
+#pod
+#pod   $req->add_minimum('Library::Foo' => 1.208);
+#pod
+#pod   $req->add_maximum('Library::Foo' => 2.602);
+#pod
+#pod   $req->add_minimum('Module::Bar'  => 'v1.2.3');
+#pod
+#pod   $req->add_exclusion('Module::Bar'  => 'v1.2.8');
+#pod
+#pod   $req->exact_version('Xyzzy'  => '6.01');
+#pod
+#pod   my $hashref = $req->as_string_hash;
+#pod
+#pod C<$hashref> would contain:
+#pod
+#pod   {
+#pod     'CPAN::Meta::Requirements' => '0.102',
+#pod     'Library::Foo' => '>= 1.208, <= 2.206',
+#pod     'Module::Bar'  => '>= v1.2.3, != v1.2.8',
+#pod     'Xyzzy'        => '== 6.01',
+#pod   }
+#pod
+#pod =cut
+
+sub as_string_hash {
+  my ($self) = @_;
+
+  my %hash = map {; $_ => $self->{requirements}{$_}->as_string }
+             $self->required_modules;
+
+  return \%hash;
+}
+
+#pod =method add_string_requirement
+#pod
+#pod   $req->add_string_requirement('Library::Foo' => '>= 1.208, <= 2.206');
+#pod   $req->add_string_requirement('Library::Foo' => v1.208);
+#pod
+#pod This method parses the passed in string and adds the appropriate requirement
+#pod for the given module.  A version can be a Perl "v-string".  It understands
+#pod version ranges as described in the L<CPAN::Meta::Spec/Version Ranges>. For
+#pod example:
+#pod
+#pod =over 4
+#pod
+#pod =item 1.3
+#pod
+#pod =item >= 1.3
+#pod
+#pod =item <= 1.3
+#pod
+#pod =item == 1.3
+#pod
+#pod =item != 1.3
+#pod
+#pod =item > 1.3
+#pod
+#pod =item < 1.3
+#pod
+#pod =item >= 1.3, != 1.5, <= 2.0
+#pod
+#pod A version number without an operator is equivalent to specifying a minimum
+#pod (C<E<gt>=>).  Extra whitespace is allowed.
+#pod
+#pod =back
+#pod
+#pod =cut
+
+my %methods_for_op = (
+  '==' => [ qw(exact_version) ],
+  '!=' => [ qw(add_exclusion) ],
+  '>=' => [ qw(add_minimum)   ],
+  '<=' => [ qw(add_maximum)   ],
+  '>'  => [ qw(add_minimum add_exclusion) ],
+  '<'  => [ qw(add_maximum add_exclusion) ],
+);
+
+sub add_string_requirement {
+  my ($self, $module, $req) = @_;
+
+  unless ( defined $req && length $req ) {
+    $req = 0;
+    $self->_blank_carp($module);
+  }
+
+  my $magic = _find_magic_vstring( $req );
+  if (length $magic) {
+    $self->add_minimum($module => $magic);
+    return;
+  }
+
+  my @parts = split qr{\s*,\s*}, $req;
+
+  for my $part (@parts) {
+    my ($op, $ver) = $part =~ m{\A\s*(==|>=|>|<=|<|!=)\s*(.*)\z};
+
+    if (! defined $op) {
+      $self->add_minimum($module => $part);
+    } else {
+      Carp::confess("illegal requirement string: $req")
+        unless my $methods = $methods_for_op{ $op };
+
+      $self->$_($module => $ver) for @$methods;
+    }
+  }
+}
+
+#pod =method from_string_hash
+#pod
+#pod   my $req = CPAN::Meta::Requirements->from_string_hash( \%hash );
+#pod   my $req = CPAN::Meta::Requirements->from_string_hash( \%hash, \%opts );
+#pod
+#pod This is an alternate constructor for a CPAN::Meta::Requirements
+#pod object. It takes a hash of module names and version requirement
+#pod strings and returns a new CPAN::Meta::Requirements object. As with
+#pod add_string_requirement, a version can be a Perl "v-string". Optionally,
+#pod you can supply a hash-reference of options, exactly as with the L</new>
+#pod method.
+#pod
+#pod =cut
+
+sub _blank_carp {
+  my ($self, $module) = @_;
+  Carp::carp("Undefined requirement for $module treated as '0'");
+}
+
+sub from_string_hash {
+  my ($class, $hash, $options) = @_;
+
+  my $self = $class->new($options);
+
+  for my $module (keys %$hash) {
+    my $req = $hash->{$module};
+    unless ( defined $req && length $req ) {
+      $req = 0;
+      $class->_blank_carp($module);
+    }
+    $self->add_string_requirement($module, $req);
+  }
+
+  return $self;
+}
+
+##############################################################
+
+{
+  package
+    CPAN::Meta::Requirements::_Range::Exact;
+  sub _new     { bless { version => $_[1] } => $_[0] }
+
+  sub _accepts { return $_[0]{version} == $_[1] }
+
+  sub as_string { return "== $_[0]{version}" }
+
+  sub as_struct { return [ [ '==', "$_[0]{version}" ] ] }
+
+  sub as_modifiers { return [ [ exact_version => $_[0]{version} ] ] }
+
+  sub _reject_requirements {
+    my ($self, $module, $error) = @_;
+    Carp::confess("illegal requirements for $module: $error")
+  }
+
+  sub _clone {
+    (ref $_[0])->_new( version->new( $_[0]{version} ) )
+  }
+
+  sub with_exact_version {
+    my ($self, $version, $module) = @_;
+    $module = 'module' unless defined $module;
+
+    return $self->_clone if $self->_accepts($version);
+
+    $self->_reject_requirements(
+      $module,
+      "can't be exactly $version when exact requirement is already $self->{version}",
+    );
+  }
+
+  sub with_minimum {
+    my ($self, $minimum, $module) = @_;
+    $module = 'module' unless defined $module;
+
+    return $self->_clone if $self->{version} >= $minimum;
+    $self->_reject_requirements(
+      $module,
+      "minimum $minimum exceeds exact specification $self->{version}",
+    );
+  }
+
+  sub with_maximum {
+    my ($self, $maximum, $module) = @_;
+    $module = 'module' unless defined $module;
+
+    return $self->_clone if $self->{version} <= $maximum;
+    $self->_reject_requirements(
+      $module,
+      "maximum $maximum below exact specification $self->{version}",
+    );
+  }
+
+  sub with_exclusion {
+    my ($self, $exclusion, $module) = @_;
+    $module = 'module' unless defined $module;
+
+    return $self->_clone unless $exclusion == $self->{version};
+    $self->_reject_requirements(
+      $module,
+      "tried to exclude $exclusion, which is already exactly specified",
+    );
+  }
+}
+
+##############################################################
+
+{
+  package
+    CPAN::Meta::Requirements::_Range::Range;
+
+  sub _self { ref($_[0]) ? $_[0] : (bless { } => $_[0]) }
+
+  sub _clone {
+    return (bless { } => $_[0]) unless ref $_[0];
+
+    my ($s) = @_;
+    my %guts = (
+      (exists $s->{minimum} ? (minimum => version->new($s->{minimum})) : ()),
+      (exists $s->{maximum} ? (maximum => version->new($s->{maximum})) : ()),
+
+      (exists $s->{exclusions}
+        ? (exclusions => [ map { version->new($_) } @{ $s->{exclusions} } ])
+        : ()),
+    );
+
+    bless \%guts => ref($s);
+  }
+
+  sub as_modifiers {
+    my ($self) = @_;
+    my @mods;
+    push @mods, [ add_minimum => $self->{minimum} ] if exists $self->{minimum};
+    push @mods, [ add_maximum => $self->{maximum} ] if exists $self->{maximum};
+    push @mods, map {; [ add_exclusion => $_ ] } @{$self->{exclusions} || []};
+    return \@mods;
+  }
+
+  sub as_struct {
+    my ($self) = @_;
+
+    return 0 if ! keys %$self;
+
+    my @exclusions = @{ $self->{exclusions} || [] };
+
+    my @parts;
+
+    for my $tuple (
+      [ qw( >= > minimum ) ],
+      [ qw( <= < maximum ) ],
+    ) {
+      my ($op, $e_op, $k) = @$tuple;
+      if (exists $self->{$k}) {
+        my @new_exclusions = grep { $_ != $self->{ $k } } @exclusions;
+        if (@new_exclusions == @exclusions) {
+          push @parts, [ $op, "$self->{ $k }" ];
+        } else {
+          push @parts, [ $e_op, "$self->{ $k }" ];
+          @exclusions = @new_exclusions;
+        }
+      }
+    }
+
+    push @parts, map {; [ "!=", "$_" ] } @exclusions;
+
+    return \@parts;
+  }
+
+  sub as_string {
+    my ($self) = @_;
+
+    my @parts = @{ $self->as_struct };
+
+    return $parts[0][1] if @parts == 1 and $parts[0][0] eq '>=';
+
+    return join q{, }, map {; join q{ }, @$_ } @parts;
+  }
+
+  sub _reject_requirements {
+    my ($self, $module, $error) = @_;
+    Carp::confess("illegal requirements for $module: $error")
+  }
+
+  sub with_exact_version {
+    my ($self, $version, $module) = @_;
+    $module = 'module' unless defined $module;
+    $self = $self->_clone;
+
+    unless ($self->_accepts($version)) {
+      $self->_reject_requirements(
+        $module,
+        "exact specification $version outside of range " . $self->as_string
+      );
+    }
+
+    return CPAN::Meta::Requirements::_Range::Exact->_new($version);
+  }
+
+  sub _simplify {
+    my ($self, $module) = @_;
+
+    if (defined $self->{minimum} and defined $self->{maximum}) {
+      if ($self->{minimum} == $self->{maximum}) {
+        if (grep { $_ == $self->{minimum} } @{ $self->{exclusions} || [] }) {
+          $self->_reject_requirements(
+            $module,
+            "minimum and maximum are both $self->{minimum}, which is excluded",
+          );
+        }
+
+        return CPAN::Meta::Requirements::_Range::Exact->_new($self->{minimum})
+      }
+
+      if ($self->{minimum} > $self->{maximum}) {
+        $self->_reject_requirements(
+          $module,
+          "minimum $self->{minimum} exceeds maximum $self->{maximum}",
+        );
+      }
+    }
+
+    # eliminate irrelevant exclusions
+    if ($self->{exclusions}) {
+      my %seen;
+      @{ $self->{exclusions} } = grep {
+        (! defined $self->{minimum} or $_ >= $self->{minimum})
+        and
+        (! defined $self->{maximum} or $_ <= $self->{maximum})
+        and
+        ! $seen{$_}++
+      } @{ $self->{exclusions} };
+    }
+
+    return $self;
+  }
+
+  sub with_minimum {
+    my ($self, $minimum, $module) = @_;
+    $module = 'module' unless defined $module;
+    $self = $self->_clone;
+
+    if (defined (my $old_min = $self->{minimum})) {
+      $self->{minimum} = (sort { $b cmp $a } ($minimum, $old_min))[0];
+    } else {
+      $self->{minimum} = $minimum;
+    }
+
+    return $self->_simplify($module);
+  }
+
+  sub with_maximum {
+    my ($self, $maximum, $module) = @_;
+    $module = 'module' unless defined $module;
+    $self = $self->_clone;
+
+    if (defined (my $old_max = $self->{maximum})) {
+      $self->{maximum} = (sort { $a cmp $b } ($maximum, $old_max))[0];
+    } else {
+      $self->{maximum} = $maximum;
+    }
+
+    return $self->_simplify($module);
+  }
+
+  sub with_exclusion {
+    my ($self, $exclusion, $module) = @_;
+    $module = 'module' unless defined $module;
+    $self = $self->_clone;
+
+    push @{ $self->{exclusions} ||= [] }, $exclusion;
+
+    return $self->_simplify($module);
+  }
+
+  sub _accepts {
+    my ($self, $version) = @_;
+
+    return if defined $self->{minimum} and $version < $self->{minimum};
+    return if defined $self->{maximum} and $version > $self->{maximum};
+    return if defined $self->{exclusions}
+          and grep { $version == $_ } @{ $self->{exclusions} };
+
+    return 1;
+  }
+}
+
+1;
+# vim: ts=2 sts=2 sw=2 et:
+
+__END__
+
+=pod
+
+=encoding UTF-8
+
+=head1 NAME
+
+CPAN::Meta::Requirements - a set of version requirements for a CPAN dist
+
+=head1 VERSION
+
+version 2.140
+
+=head1 SYNOPSIS
+
+  use CPAN::Meta::Requirements;
+
+  my $build_requires = CPAN::Meta::Requirements->new;
+
+  $build_requires->add_minimum('Library::Foo' => 1.208);
+
+  $build_requires->add_minimum('Library::Foo' => 2.602);
+
+  $build_requires->add_minimum('Module::Bar'  => 'v1.2.3');
+
+  $METAyml->{build_requires} = $build_requires->as_string_hash;
+
+=head1 DESCRIPTION
+
+A CPAN::Meta::Requirements object models a set of version constraints like
+those specified in the F<META.yml> or F<META.json> files in CPAN distributions,
+and as defined by L<CPAN::Meta::Spec>;
+It can be built up by adding more and more constraints, and it will reduce them
+to the simplest representation.
+
+Logically impossible constraints will be identified immediately by thrown
+exceptions.
+
+=head1 METHODS
+
+=head2 new
+
+  my $req = CPAN::Meta::Requirements->new;
+
+This returns a new CPAN::Meta::Requirements object.  It takes an optional
+hash reference argument.  Currently, only one key is supported:
+
+=over 4
+
+=item *
+
+C<bad_version_hook> -- if provided, when a version cannot be parsed into a version object, this code reference will be called with the invalid version string as first argument, and the module name as second argument.  It must return a valid version object.
+
+=back
+
+All other keys are ignored.
+
+=head2 add_minimum
+
+  $req->add_minimum( $module => $version );
+
+This adds a new minimum version requirement.  If the new requirement is
+redundant to the existing specification, this has no effect.
+
+Minimum requirements are inclusive.  C<$version> is required, along with any
+greater version number.
+
+This method returns the requirements object.
+
+=head2 add_maximum
+
+  $req->add_maximum( $module => $version );
+
+This adds a new maximum version requirement.  If the new requirement is
+redundant to the existing specification, this has no effect.
+
+Maximum requirements are inclusive.  No version strictly greater than the given
+version is allowed.
+
+This method returns the requirements object.
+
+=head2 add_exclusion
+
+  $req->add_exclusion( $module => $version );
+
+This adds a new excluded version.  For example, you might use these three
+method calls:
+
+  $req->add_minimum( $module => '1.00' );
+  $req->add_maximum( $module => '1.82' );
+
+  $req->add_exclusion( $module => '1.75' );
+
+Any version between 1.00 and 1.82 inclusive would be acceptable, except for
+1.75.
+
+This method returns the requirements object.
+
+=head2 exact_version
+
+  $req->exact_version( $module => $version );
+
+This sets the version required for the given module to I<exactly> the given
+version.  No other version would be considered acceptable.
+
+This method returns the requirements object.
+
+=head2 add_requirements
+
+  $req->add_requirements( $another_req_object );
+
+This method adds all the requirements in the given CPAN::Meta::Requirements
+object to the requirements object on which it was called.  If there are any
+conflicts, an exception is thrown.
+
+This method returns the requirements object.
+
+=head2 accepts_module
+
+  my $bool = $req->accepts_module($module => $version);
+
+Given an module and version, this method returns true if the version
+specification for the module accepts the provided version.  In other words,
+given:
+
+  Module => '>= 1.00, < 2.00'
+
+We will accept 1.00 and 1.75 but not 0.50 or 2.00.
+
+For modules that do not appear in the requirements, this method will return
+true.
+
+=head2 clear_requirement
+
+  $req->clear_requirement( $module );
+
+This removes the requirement for a given module from the object.
+
+This method returns the requirements object.
+
+=head2 requirements_for_module
+
+  $req->requirements_for_module( $module );
+
+This returns a string containing the version requirements for a given module in
+the format described in L<CPAN::Meta::Spec> or undef if the given module has no
+requirements. This should only be used for informational purposes such as error
+messages and should not be interpreted or used for comparison (see
+L</accepts_module> instead).
+
+=head2 structured_requirements_for_module
+
+  $req->structured_requirements_for_module( $module );
+
+This returns a data structure containing the version requirements for a given
+module or undef if the given module has no requirements.  This should
+not be used for version checks (see L</accepts_module> instead).
+
+Added in version 2.134.
+
+=head2 required_modules
+
+This method returns a list of all the modules for which requirements have been
+specified.
+
+=head2 clone
+
+  $req->clone;
+
+This method returns a clone of the invocant.  The clone and the original object
+can then be changed independent of one another.
+
+=head2 is_simple
+
+This method returns true if and only if all requirements are inclusive minimums
+-- that is, if their string expression is just the version number.
+
+=head2 is_finalized
+
+This method returns true if the requirements have been finalized by having the
+C<finalize> method called on them.
+
+=head2 finalize
+
+This method marks the requirements finalized.  Subsequent attempts to change
+the requirements will be fatal, I<if> they would result in a change.  If they
+would not alter the requirements, they have no effect.
+
+If a finalized set of requirements is cloned, the cloned requirements are not
+also finalized.
+
+=head2 as_string_hash
+
+This returns a reference to a hash describing the requirements using the
+strings in the L<CPAN::Meta::Spec> specification.
+
+For example after the following program:
+
+  my $req = CPAN::Meta::Requirements->new;
+
+  $req->add_minimum('CPAN::Meta::Requirements' => 0.102);
+
+  $req->add_minimum('Library::Foo' => 1.208);
+
+  $req->add_maximum('Library::Foo' => 2.602);
+
+  $req->add_minimum('Module::Bar'  => 'v1.2.3');
+
+  $req->add_exclusion('Module::Bar'  => 'v1.2.8');
+
+  $req->exact_version('Xyzzy'  => '6.01');
+
+  my $hashref = $req->as_string_hash;
+
+C<$hashref> would contain:
+
+  {
+    'CPAN::Meta::Requirements' => '0.102',
+    'Library::Foo' => '>= 1.208, <= 2.206',
+    'Module::Bar'  => '>= v1.2.3, != v1.2.8',
+    'Xyzzy'        => '== 6.01',
+  }
+
+=head2 add_string_requirement
+
+  $req->add_string_requirement('Library::Foo' => '>= 1.208, <= 2.206');
+  $req->add_string_requirement('Library::Foo' => v1.208);
+
+This method parses the passed in string and adds the appropriate requirement
+for the given module.  A version can be a Perl "v-string".  It understands
+version ranges as described in the L<CPAN::Meta::Spec/Version Ranges>. For
+example:
+
+=over 4
+
+=item 1.3
+
+=item >= 1.3
+
+=item <= 1.3
+
+=item == 1.3
+
+=item != 1.3
+
+=item > 1.3
+
+=item < 1.3
+
+=item >= 1.3, != 1.5, <= 2.0
+
+A version number without an operator is equivalent to specifying a minimum
+(C<E<gt>=>).  Extra whitespace is allowed.
+
+=back
+
+=head2 from_string_hash
+
+  my $req = CPAN::Meta::Requirements->from_string_hash( \%hash );
+  my $req = CPAN::Meta::Requirements->from_string_hash( \%hash, \%opts );
+
+This is an alternate constructor for a CPAN::Meta::Requirements
+object. It takes a hash of module names and version requirement
+strings and returns a new CPAN::Meta::Requirements object. As with
+add_string_requirement, a version can be a Perl "v-string". Optionally,
+you can supply a hash-reference of options, exactly as with the L</new>
+method.
+
+=for :stopwords cpan testmatrix url annocpan anno bugtracker rt cpants kwalitee diff irc mailto metadata placeholders metacpan
+
+=head1 SUPPORT
+
+=head2 Bugs / Feature Requests
+
+Please report any bugs or feature requests through the issue tracker
+at L<https://github.com/Perl-Toolchain-Gang/CPAN-Meta-Requirements/issues>.
+You will be notified automatically of any progress on your issue.
+
+=head2 Source Code
+
+This is open source software.  The code repository is available for
+public review and contribution under the terms of the license.
+
+L<https://github.com/Perl-Toolchain-Gang/CPAN-Meta-Requirements>
+
+  git clone https://github.com/Perl-Toolchain-Gang/CPAN-Meta-Requirements.git
+
+=head1 AUTHORS
+
+=over 4
+
+=item *
+
+David Golden <dagolden@cpan.org>
+
+=item *
+
+Ricardo Signes <rjbs@cpan.org>
+
+=back
+
+=head1 CONTRIBUTORS
+
+=for stopwords Ed J Karen Etheridge Leon Timmermans robario
+
+=over 4
+
+=item *
+
+Ed J <mohawk2@users.noreply.github.com>
+
+=item *
+
+Karen Etheridge <ether@cpan.org>
+
+=item *
+
+Leon Timmermans <fawaka@gmail.com>
+
+=item *
+
+robario <webmaster@robario.com>
+
+=back
+
+=head1 COPYRIGHT AND LICENSE
+
+This software is copyright (c) 2010 by David Golden and Ricardo Signes.
+
+This is free software; you can redistribute it and/or modify it under
+the same terms as the Perl 5 programming language system itself.
+
+=cut
diff --git a/lib/5.24.1/CPAN/Meta/Spec.pm b/lib/5.24.1/CPAN/Meta/Spec.pm
new file mode 100644
index 00000000..9056940b
--- /dev/null
+++ b/lib/5.24.1/CPAN/Meta/Spec.pm
@@ -0,0 +1,1235 @@
+# XXX RULES FOR PATCHING THIS FILE XXX
+# Patches that fix typos or formatting are acceptable.  Patches
+# that change semantics are not acceptable without prior approval
+# by David Golden or Ricardo Signes.
+
+use 5.006;
+use strict;
+use warnings;
+package CPAN::Meta::Spec;
+
+our $VERSION = '2.150005';
+
+1;
+
+# ABSTRACT: specification for CPAN distribution metadata
+
+
+# vi:tw=72
+
+__END__
+
+=pod
+
+=encoding UTF-8
+
+=head1 NAME
+
+CPAN::Meta::Spec - specification for CPAN distribution metadata
+
+=head1 VERSION
+
+version 2.150005
+
+=head1 SYNOPSIS
+
+  my $distmeta = {
+    name => 'Module-Build',
+    abstract => 'Build and install Perl modules',
+    description =>  "Module::Build is a system for "
+      . "building, testing, and installing Perl modules. "
+      . "It is meant to ... blah blah blah ...",
+    version  => '0.36',
+    release_status => 'stable',
+    author   => [
+      'Ken Williams <kwilliams@cpan.org>',
+      'Module-Build List <module-build@perl.org>', # additional contact
+    ],
+    license  => [ 'perl_5' ],
+    prereqs => {
+      runtime => {
+        requires => {
+          'perl'   => '5.006',
+          'ExtUtils::Install' => '0',
+          'File::Basename' => '0',
+          'File::Compare'  => '0',
+          'IO::File'   => '0',
+        },
+        recommends => {
+          'Archive::Tar' => '1.00',
+          'ExtUtils::Install' => '0.3',
+          'ExtUtils::ParseXS' => '2.02',
+        },
+      },
+      build => {
+        requires => {
+          'Test::More' => '0',
+        },
+      }
+    },
+    resources => {
+      license => ['http://dev.perl.org/licenses/'],
+    },
+    optional_features => {
+      domination => {
+        description => 'Take over the world',
+        prereqs     => {
+          develop => { requires => { 'Genius::Evil'     => '1.234' } },
+          runtime => { requires => { 'Machine::Weather' => '2.0'   } },
+        },
+      },
+    },
+    dynamic_config => 1,
+    keywords => [ qw/ toolchain cpan dual-life / ],
+    'meta-spec' => {
+      version => '2',
+      url     => 'https://metacpan.org/pod/CPAN::Meta::Spec',
+    },
+    generated_by => 'Module::Build version 0.36',
+  };
+
+=head1 DESCRIPTION
+
+This document describes version 2 of the CPAN distribution metadata
+specification, also known as the "CPAN Meta Spec".
+
+Revisions of this specification for typo corrections and prose
+clarifications may be issued as CPAN::Meta::Spec 2.I<x>.  These
+revisions will never change semantics or add or remove specified
+behavior.
+
+Distribution metadata describe important properties of Perl
+distributions. Distribution building tools like Module::Build,
+Module::Install, ExtUtils::MakeMaker or Dist::Zilla should create a
+metadata file in accordance with this specification and include it with
+the distribution for use by automated tools that index, examine, package
+or install Perl distributions.
+
+=head1 TERMINOLOGY
+
+=over 4
+
+=item distribution
+
+This is the primary object described by the metadata. In the context of
+this document it usually refers to a collection of modules, scripts,
+and/or documents that are distributed together for other developers to
+use.  Examples of distributions are C<Class-Container>, C<libwww-perl>,
+or C<DBI>.
+
+=item module
+
+This refers to a reusable library of code contained in a single file.
+Modules usually contain one or more packages and are often referred
+to by the name of a primary package that can be mapped to the file
+name. For example, one might refer to C<File::Spec> instead of
+F<File/Spec.pm>
+
+=item package
+
+This refers to a namespace declared with the Perl C<package> statement.
+In Perl, packages often have a version number property given by the
+C<$VERSION> variable in the namespace.
+
+=item consumer
+
+This refers to code that reads a metadata file, deserializes it into a
+data structure in memory, or interprets a data structure of metadata
+elements.
+
+=item producer
+
+This refers to code that constructs a metadata data structure,
+serializes into a bytestream and/or writes it to disk.
+
+=item must, should, may, etc.
+
+These terms are interpreted as described in IETF RFC 2119.
+
+=back
+
+=head1 DATA TYPES
+
+Fields in the L</STRUCTURE> section describe data elements, each of
+which has an associated data type as described herein.  There are four
+primitive types: Boolean, String, List and Map.  Other types are
+subtypes of primitives and define compound data structures or define
+constraints on the values of a data element.
+
+=head2 Boolean
+
+A I<Boolean> is used to provide a true or false value.  It B<must> be
+represented as a defined value.
+
+=head2 String
+
+A I<String> is data element containing a non-zero length sequence of
+Unicode characters, such as an ordinary Perl scalar that is not a
+reference.
+
+=head2 List
+
+A I<List> is an ordered collection of zero or more data elements.
+Elements of a List may be of mixed types.
+
+Producers B<must> represent List elements using a data structure which
+unambiguously indicates that multiple values are possible, such as a
+reference to a Perl array (an "arrayref").
+
+Consumers expecting a List B<must> consider a String as equivalent to a
+List of length 1.
+
+=head2 Map
+
+A I<Map> is an unordered collection of zero or more data elements
+("values"), indexed by associated String elements ("keys").  The Map's
+value elements may be of mixed types.
+
+=head2 License String
+
+A I<License String> is a subtype of String with a restricted set of
+values.  Valid values are described in detail in the description of
+the L</license> field.
+
+=head2 URL
+
+I<URL> is a subtype of String containing a Uniform Resource Locator or
+Identifier.  [ This type is called URL and not URI for historical reasons. ]
+
+=head2 Version
+
+A I<Version> is a subtype of String containing a value that describes
+the version number of packages or distributions.  Restrictions on format
+are described in detail in the L</Version Formats> section.
+
+=head2 Version Range
+
+The I<Version Range> type is a subtype of String.  It describes a range
+of Versions that may be present or installed to fulfill prerequisites.
+It is specified in detail in the L</Version Ranges> section.
+
+=head1 STRUCTURE
+
+The metadata structure is a data element of type Map.  This section
+describes valid keys within the Map.
+
+Any keys not described in this specification document (whether top-level
+or within compound data structures described herein) are considered
+I<custom keys> and B<must> begin with an "x" or "X" and be followed by an
+underscore; i.e. they must match the pattern: C<< qr{\Ax_}i >>.  If a
+custom key refers to a compound data structure, subkeys within it do not
+need an "x_" or "X_" prefix.
+
+Consumers of metadata may ignore any or all custom keys.  All other keys
+not described herein are invalid and should be ignored by consumers.
+Producers must not generate or output invalid keys.
+
+For each key, an example is provided followed by a description.  The
+description begins with the version of spec in which the key was added
+or in which the definition was modified, whether the key is I<required>
+or I<optional> and the data type of the corresponding data element.
+These items are in parentheses, brackets and braces, respectively.
+
+If a data type is a Map or Map subtype, valid subkeys will be described
+as well.
+
+Some fields are marked I<Deprecated>.  These are shown for historical
+context and must not be produced in or consumed from any metadata structure
+of version 2 or higher.
+
+=head2 REQUIRED FIELDS
+
+=head3 abstract
+
+Example:
+
+  abstract => 'Build and install Perl modules'
+
+(Spec 1.2) [required] {String}
+
+This is a short description of the purpose of the distribution.
+
+=head3 author
+
+Example:
+
+  author => [ 'Ken Williams <kwilliams@cpan.org>' ]
+
+(Spec 1.2) [required] {List of one or more Strings}
+
+This List indicates the person(s) to contact concerning the
+distribution. The preferred form of the contact string is:
+
+  contact-name <email-address>
+
+This field provides a general contact list independent of other
+structured fields provided within the L</resources> field, such as
+C<bugtracker>.  The addressee(s) can be contacted for any purpose
+including but not limited to (security) problems with the distribution,
+questions about the distribution or bugs in the distribution.
+
+A distribution's original author is usually the contact listed within
+this field.  Co-maintainers, successor maintainers or mailing lists
+devoted to the distribution may also be listed in addition to or instead
+of the original author.
+
+=head3 dynamic_config
+
+Example:
+
+  dynamic_config => 1
+
+(Spec 2) [required] {Boolean}
+
+A boolean flag indicating whether a F<Build.PL> or F<Makefile.PL> (or
+similar) must be executed to determine prerequisites.
+
+This field should be set to a true value if the distribution performs
+some dynamic configuration (asking questions, sensing the environment,
+etc.) as part of its configuration.  This field should be set to a false
+value to indicate that prerequisites included in metadata may be
+considered final and valid for static analysis.
+
+Note: when this field is true, post-configuration prerequisites are not
+guaranteed to bear any relation whatsoever to those stated in the metadata,
+and relying on them doing so is an error. See also
+L</Prerequisites for dynamically configured distributions> in the implementors'
+notes.
+
+This field explicitly B<does not> indicate whether installation may be
+safely performed without using a Makefile or Build file, as there may be
+special files to install or custom installation targets (e.g. for
+dual-life modules that exist on CPAN as well as in the Perl core).  This
+field only defines whether or not prerequisites are exactly as given in the
+metadata.
+
+=head3 generated_by
+
+Example:
+
+  generated_by => 'Module::Build version 0.36'
+
+(Spec 1.0) [required] {String}
+
+This field indicates the tool that was used to create this metadata.
+There are no defined semantics for this field, but it is traditional to
+use a string in the form "Generating::Package version 1.23" or the
+author's name, if the file was generated by hand.
+
+=head3 license
+
+Example:
+
+  license => [ 'perl_5' ]
+
+  license => [ 'apache_2_0', 'mozilla_1_0' ]
+
+(Spec 2) [required] {List of one or more License Strings}
+
+One or more licenses that apply to some or all of the files in the
+distribution.  If multiple licenses are listed, the distribution
+documentation should be consulted to clarify the interpretation of
+multiple licenses.
+
+The following list of license strings are valid:
+
+ string          description
+ -------------   -----------------------------------------------
+ agpl_3          GNU Affero General Public License, Version 3
+ apache_1_1      Apache Software License, Version 1.1
+ apache_2_0      Apache License, Version 2.0
+ artistic_1      Artistic License, (Version 1)
+ artistic_2      Artistic License, Version 2.0
+ bsd             BSD License (three-clause)
+ freebsd         FreeBSD License (two-clause)
+ gfdl_1_2        GNU Free Documentation License, Version 1.2
+ gfdl_1_3        GNU Free Documentation License, Version 1.3
+ gpl_1           GNU General Public License, Version 1
+ gpl_2           GNU General Public License, Version 2
+ gpl_3           GNU General Public License, Version 3
+ lgpl_2_1        GNU Lesser General Public License, Version 2.1
+ lgpl_3_0        GNU Lesser General Public License, Version 3.0
+ mit             MIT (aka X11) License
+ mozilla_1_0     Mozilla Public License, Version 1.0
+ mozilla_1_1     Mozilla Public License, Version 1.1
+ openssl         OpenSSL License
+ perl_5          The Perl 5 License (Artistic 1 & GPL 1 or later)
+ qpl_1_0         Q Public License, Version 1.0
+ ssleay          Original SSLeay License
+ sun             Sun Internet Standards Source License (SISSL)
+ zlib            zlib License
+
+The following license strings are also valid and indicate other
+licensing not described above:
+
+ string          description
+ -------------   -----------------------------------------------
+ open_source     Other Open Source Initiative (OSI) approved license
+ restricted      Requires special permission from copyright holder
+ unrestricted    Not an OSI approved license, but not restricted
+ unknown         License not provided in metadata
+
+All other strings are invalid in the license field.
+
+=head3 meta-spec
+
+Example:
+
+  'meta-spec' => {
+    version => '2',
+    url     => 'http://search.cpan.org/perldoc?CPAN::Meta::Spec',
+  }
+
+(Spec 1.2) [required] {Map}
+
+This field indicates the version of the CPAN Meta Spec that should be
+used to interpret the metadata.  Consumers must check this key as soon
+as possible and abort further metadata processing if the meta-spec
+version is not supported by the consumer.
+
+The following keys are valid, but only C<version> is required.
+
+=over
+
+=item version
+
+This subkey gives the integer I<Version> of the CPAN Meta Spec against
+which the document was generated.
+
+=item url
+
+This is a I<URL> of the metadata specification document corresponding to
+the given version.  This is strictly for human-consumption and should
+not impact the interpretation of the document.
+
+For the version 2 spec, either of these are recommended:
+
+=over 4
+
+=item *
+
+C<https://metacpan.org/pod/CPAN::Meta::Spec>
+
+=item *
+
+C<http://search.cpan.org/perldoc?CPAN::Meta::Spec>
+
+=back
+
+=back
+
+=head3 name
+
+Example:
+
+  name => 'Module-Build'
+
+(Spec 1.0) [required] {String}
+
+This field is the name of the distribution.  This is often created by
+taking the "main package" in the distribution and changing C<::> to
+C<->, but the name may be completely unrelated to the packages within
+the distribution.  For example, L<LWP::UserAgent> is distributed as part
+of the distribution name "libwww-perl".
+
+=head3 release_status
+
+Example:
+
+  release_status => 'stable'
+
+(Spec 2) [required] {String}
+
+This field provides the  release status of this distribution.  If the
+C<version> field contains an underscore character, then
+C<release_status> B<must not> be "stable."
+
+The C<release_status> field B<must> have one of the following values:
+
+=over
+
+=item stable
+
+This indicates an ordinary, "final" release that should be indexed by PAUSE
+or other indexers.
+
+=item testing
+
+This indicates a "beta" release that is substantially complete, but has an
+elevated risk of bugs and requires additional testing.  The distribution
+should not be installed over a stable release without an explicit request
+or other confirmation from a user.  This release status may also be used
+for "release candidate" versions of a distribution.
+
+=item unstable
+
+This indicates an "alpha" release that is under active development, but has
+been released for early feedback or testing and may be missing features or
+may have serious bugs.  The distribution should not be installed over a
+stable release without an explicit request or other confirmation from a
+user.
+
+=back
+
+Consumers B<may> use this field to determine how to index the
+distribution for CPAN or other repositories in addition to or in
+replacement of heuristics based on version number or file name.
+
+=head3 version
+
+Example:
+
+  version => '0.36'
+
+(Spec 1.0) [required] {Version}
+
+This field gives the version of the distribution to which the metadata
+structure refers.
+
+=head2 OPTIONAL FIELDS
+
+=head3 description
+
+Example:
+
+    description =>  "Module::Build is a system for "
+      . "building, testing, and installing Perl modules. "
+      . "It is meant to ... blah blah blah ...",
+
+(Spec 2) [optional] {String}
+
+A longer, more complete description of the purpose or intended use of
+the distribution than the one provided by the C<abstract> key.
+
+=head3 keywords
+
+Example:
+
+  keywords => [ qw/ toolchain cpan dual-life / ]
+
+(Spec 1.1) [optional] {List of zero or more Strings}
+
+A List of keywords that describe this distribution.  Keywords
+B<must not> include whitespace.
+
+=head3 no_index
+
+Example:
+
+  no_index => {
+    file      => [ 'My/Module.pm' ],
+    directory => [ 'My/Private' ],
+    package   => [ 'My::Module::Secret' ],
+    namespace => [ 'My::Module::Sample' ],
+  }
+
+(Spec 1.2) [optional] {Map}
+
+This Map describes any files, directories, packages, and namespaces that
+are private to the packaging or implementation of the distribution and
+should be ignored by indexing or search tools. Note that this is a list of
+exclusions, and the spec does not define what to I<include> - see
+L</Indexing distributions a la PAUSE> in the implementors notes for more
+information.
+
+Valid subkeys are as follows:
+
+=over
+
+=item file
+
+A I<List> of relative paths to files.  Paths B<must be> specified with
+unix conventions.
+
+=item directory
+
+A I<List> of relative paths to directories.  Paths B<must be> specified
+with unix conventions.
+
+[ Note: previous editions of the spec had C<dir> instead of C<directory> ]
+
+=item package
+
+A I<List> of package names.
+
+=item namespace
+
+A I<List> of package namespaces, where anything below the namespace
+must be ignored, but I<not> the namespace itself.
+
+In the example above for C<no_index>, C<My::Module::Sample::Foo> would
+be ignored, but C<My::Module::Sample> would not.
+
+=back
+
+=head3 optional_features
+
+Example:
+
+  optional_features => {
+    sqlite => {
+      description => 'Provides SQLite support',
+      prereqs => {
+        runtime => {
+          requires => {
+            'DBD::SQLite' => '1.25'
+          }
+        }
+      }
+    }
+  }
+
+(Spec 2) [optional] {Map}
+
+This Map describes optional features with incremental prerequisites.
+Each key of the C<optional_features> Map is a String used to identify
+the feature and each value is a Map with additional information about
+the feature.  Valid subkeys include:
+
+=over
+
+=item description
+
+This is a String describing the feature.  Every optional feature
+should provide a description
+
+=item prereqs
+
+This entry is required and has the same structure as that of the
+C<L</prereqs>> key.  It provides a list of package requirements
+that must be satisfied for the feature to be supported or enabled.
+
+There is one crucial restriction:  the prereqs of an optional feature
+B<must not> include C<configure> phase prereqs.
+
+=back
+
+Consumers B<must not> include optional features as prerequisites without
+explicit instruction from users (whether via interactive prompting,
+a function parameter or a configuration value, etc. ).
+
+If an optional feature is used by a consumer to add additional
+prerequisites, the consumer should merge the optional feature
+prerequisites into those given by the C<prereqs> key using the same
+semantics.  See L</Merging and Resolving Prerequisites> for details on
+merging prerequisites.
+
+I<Suggestion for disuse:> Because there is currently no way for a
+distribution to specify a dependency on an optional feature of another
+dependency, the use of C<optional_feature> is discouraged.  Instead,
+create a separate, installable distribution that ensures the desired
+feature is available.  For example, if C<Foo::Bar> has a C<Baz> feature,
+release a separate C<Foo-Bar-Baz> distribution that satisfies
+requirements for the feature.
+
+=head3 prereqs
+
+Example:
+
+  prereqs => {
+    runtime => {
+      requires => {
+        'perl'          => '5.006',
+        'File::Spec'    => '0.86',
+        'JSON'          => '2.16',
+      },
+      recommends => {
+        'JSON::XS'      => '2.26',
+      },
+      suggests => {
+        'Archive::Tar'  => '0',
+      },
+    },
+    build => {
+      requires => {
+        'Alien::SDL'    => '1.00',
+      },
+    },
+    test => {
+      recommends => {
+        'Test::Deep'    => '0.10',
+      },
+    }
+  }
+
+(Spec 2) [optional] {Map}
+
+This is a Map that describes all the prerequisites of the distribution.
+The keys are phases of activity, such as C<configure>, C<build>, C<test>
+or C<runtime>.  Values are Maps in which the keys name the type of
+prerequisite relationship such as C<requires>, C<recommends>, or
+C<suggests> and the value provides a set of prerequisite relations.  The
+set of relations B<must> be specified as a Map of package names to
+version ranges.
+
+The full definition for this field is given in the L</Prereq Spec>
+section.
+
+=head3 provides
+
+Example:
+
+  provides => {
+    'Foo::Bar' => {
+      file    => 'lib/Foo/Bar.pm',
+      version => '0.27_02',
+    },
+    'Foo::Bar::Blah' => {
+      file    => 'lib/Foo/Bar/Blah.pm',
+    },
+    'Foo::Bar::Baz' => {
+      file    => 'lib/Foo/Bar/Baz.pm',
+      version => '0.3',
+    },
+  }
+
+(Spec 1.2) [optional] {Map}
+
+This describes all packages provided by this distribution.  This
+information is used by distribution and automation mechanisms like
+PAUSE, CPAN, metacpan.org and search.cpan.org to build indexes saying in
+which distribution various packages can be found.
+
+The keys of C<provides> are package names that can be found within
+the distribution.  If a package name key is provided, it must
+have a Map with the following valid subkeys:
+
+=over
+
+=item file
+
+This field is required.  It must contain a Unix-style relative file path
+from the root of the distribution directory to a file that contains or
+generates the package.  It may be given as C<META.yml> or C<META.json>
+to claim a package for indexing without needing a C<*.pm>.
+
+=item version
+
+If it exists, this field must contains a I<Version> String for the
+package.  If the package does not have a C<$VERSION>, this field must
+be omitted.
+
+=back
+
+=head3 resources
+
+Example:
+
+  resources => {
+    license     => [ 'http://dev.perl.org/licenses/' ],
+    homepage    => 'http://sourceforge.net/projects/module-build',
+    bugtracker  => {
+      web    => 'http://rt.cpan.org/Public/Dist/Display.html?Name=CPAN-Meta',
+      mailto => 'meta-bugs@example.com',
+    },
+    repository  => {
+      url  => 'git://github.com/dagolden/cpan-meta.git',
+      web  => 'http://github.com/dagolden/cpan-meta',
+      type => 'git',
+    },
+    x_twitter   => 'http://twitter.com/cpan_linked/',
+  }
+
+(Spec 2) [optional] {Map}
+
+This field describes resources related to this distribution.
+
+Valid subkeys include:
+
+=over
+
+=item homepage
+
+The official home of this project on the web.
+
+=item license
+
+A List of I<URL>'s that relate to this distribution's license.  As with the
+top-level C<license> field, distribution documentation should be consulted
+to clarify the interpretation of multiple licenses provided here.
+
+=item bugtracker
+
+This entry describes the bug tracking system for this distribution.  It
+is a Map with the following valid keys:
+
+  web    - a URL pointing to a web front-end for the bug tracker
+  mailto - an email address to which bugs can be sent
+
+=item repository
+
+This entry describes the source control repository for this distribution.  It
+is a Map with the following valid keys:
+
+  url  - a URL pointing to the repository itself
+  web  - a URL pointing to a web front-end for the repository
+  type - a lowercase string indicating the VCS used
+
+Because a url like C<http://myrepo.example.com/> is ambiguous as to
+type, producers should provide a C<type> whenever a C<url> key is given.
+The C<type> field should be the name of the most common program used
+to work with the repository, e.g. C<git>, C<svn>, C<cvs>, C<darcs>,
+C<bzr> or C<hg>.
+
+=back
+
+=head2 DEPRECATED FIELDS
+
+=head3 build_requires
+
+I<(Deprecated in Spec 2)> [optional] {String}
+
+Replaced by C<prereqs>
+
+=head3 configure_requires
+
+I<(Deprecated in Spec 2)> [optional] {String}
+
+Replaced by C<prereqs>
+
+=head3 conflicts
+
+I<(Deprecated in Spec 2)> [optional] {String}
+
+Replaced by C<prereqs>
+
+=head3 distribution_type
+
+I<(Deprecated in Spec 2)> [optional] {String}
+
+This field indicated 'module' or 'script' but was considered
+meaningless, since many distributions are hybrids of several kinds of
+things.
+
+=head3 license_uri
+
+I<(Deprecated in Spec 1.2)> [optional] {URL}
+
+Replaced by C<license> in C<resources>
+
+=head3 private
+
+I<(Deprecated in Spec 1.2)> [optional] {Map}
+
+This field has been renamed to L</"no_index">.
+
+=head3 recommends
+
+I<(Deprecated in Spec 2)> [optional] {String}
+
+Replaced by C<prereqs>
+
+=head3 requires
+
+I<(Deprecated in Spec 2)> [optional] {String}
+
+Replaced by C<prereqs>
+
+=head1 VERSION NUMBERS
+
+=head2 Version Formats
+
+This section defines the Version type, used by several fields in the
+CPAN Meta Spec.
+
+Version numbers must be treated as strings, not numbers.  For
+example, C<1.200> B<must not> be serialized as C<1.2>.  Version
+comparison should be delegated to the Perl L<version> module, version
+0.80 or newer.
+
+Unless otherwise specified, version numbers B<must> appear in one of two
+formats:
+
+=over
+
+=item Decimal versions
+
+Decimal versions are regular "decimal numbers", with some limitations.
+They B<must> be non-negative and B<must> begin and end with a digit.  A
+single underscore B<may> be included, but B<must> be between two digits.
+They B<must not> use exponential notation ("1.23e-2").
+
+   version => '1.234'       # OK
+   version => '1.23_04'     # OK
+
+   version => '1.23_04_05'  # Illegal
+   version => '1.'          # Illegal
+   version => '.1'          # Illegal
+
+=item Dotted-integer versions
+
+Dotted-integer (also known as dotted-decimal) versions consist of
+positive integers separated by full stop characters (i.e. "dots",
+"periods" or "decimal points").  This are equivalent in format to Perl
+"v-strings", with some additional restrictions on form.  They must be
+given in "normal" form, which has a leading "v" character and at least
+three integer components.  To retain a one-to-one mapping with decimal
+versions, all components after the first B<should> be restricted to the
+range 0 to 999.  The final component B<may> be separated by an
+underscore character instead of a period.
+
+   version => 'v1.2.3'      # OK
+   version => 'v1.2_3'      # OK
+   version => 'v1.2.3.4'    # OK
+   version => 'v1.2.3_4'    # OK
+   version => 'v2009.10.31' # OK
+
+   version => 'v1.2'          # Illegal
+   version => '1.2.3'         # Illegal
+   version => 'v1.2_3_4'      # Illegal
+   version => 'v1.2009.10.31' # Not recommended
+
+=back
+
+=head2 Version Ranges
+
+Some fields (prereq, optional_features) indicate the particular
+version(s) of some other module that may be required as a prerequisite.
+This section details the Version Range type used to provide this
+information.
+
+The simplest format for a Version Range is just the version
+number itself, e.g. C<2.4>.  This means that B<at least> version 2.4
+must be present.  To indicate that B<any> version of a prerequisite is
+okay, even if the prerequisite doesn't define a version at all, use
+the version C<0>.
+
+Alternatively, a version range B<may> use the operators E<lt> (less than),
+E<lt>= (less than or equal), E<gt> (greater than), E<gt>= (greater than
+or equal), == (equal), and != (not equal).  For example, the
+specification C<E<lt> 2.0> means that any version of the prerequisite
+less than 2.0 is suitable.
+
+For more complicated situations, version specifications B<may> be AND-ed
+together using commas.  The specification C<E<gt>= 1.2, != 1.5, E<lt>
+2.0> indicates a version that must be B<at least> 1.2, B<less than> 2.0,
+and B<not equal to> 1.5.
+
+=head1 PREREQUISITES
+
+=head2 Prereq Spec
+
+The C<prereqs> key in the top-level metadata and within
+C<optional_features> define the relationship between a distribution and
+other packages.  The prereq spec structure is a hierarchical data
+structure which divides prerequisites into I<Phases> of activity in the
+installation process and I<Relationships> that indicate how
+prerequisites should be resolved.
+
+For example, to specify that C<Data::Dumper> is C<required> during the
+C<test> phase, this entry would appear in the distribution metadata:
+
+  prereqs => {
+    test => {
+      requires => {
+        'Data::Dumper' => '2.00'
+      }
+    }
+  }
+
+=head3 Phases
+
+Requirements for regular use must be listed in the C<runtime> phase.
+Other requirements should be listed in the earliest stage in which they
+are required and consumers must accumulate and satisfy requirements
+across phases before executing the activity. For example, C<build>
+requirements must also be available during the C<test> phase.
+
+  before action       requirements that must be met
+  ----------------    --------------------------------
+  perl Build.PL       configure
+  perl Makefile.PL
+
+  make                configure, runtime, build
+  Build
+
+  make test           configure, runtime, build, test
+  Build test
+
+Consumers that install the distribution must ensure that
+I<runtime> requirements are also installed and may install
+dependencies from other phases.
+
+  after action        requirements that must be met
+  ----------------    --------------------------------
+  make install        runtime
+  Build install
+
+=over
+
+=item configure
+
+The configure phase occurs before any dynamic configuration has been
+attempted.  Libraries required by the configure phase B<must> be
+available for use before the distribution building tool has been
+executed.
+
+=item build
+
+The build phase is when the distribution's source code is compiled (if
+necessary) and otherwise made ready for installation.
+
+=item test
+
+The test phase is when the distribution's automated test suite is run.
+Any library that is needed only for testing and not for subsequent use
+should be listed here.
+
+=item runtime
+
+The runtime phase refers not only to when the distribution's contents
+are installed, but also to its continued use.  Any library that is a
+prerequisite for regular use of this distribution should be indicated
+here.
+
+=item develop
+
+The develop phase's prereqs are libraries needed to work on the
+distribution's source code as its author does.  These tools might be
+needed to build a release tarball, to run author-only tests, or to
+perform other tasks related to developing new versions of the
+distribution.
+
+=back
+
+=head3 Relationships
+
+=over
+
+=item requires
+
+These dependencies B<must> be installed for proper completion of the
+phase.
+
+=item recommends
+
+Recommended dependencies are I<strongly> encouraged and should be
+satisfied except in resource constrained environments.
+
+=item suggests
+
+These dependencies are optional, but are suggested for enhanced operation
+of the described distribution.
+
+=item conflicts
+
+These libraries cannot be installed when the phase is in operation.
+This is a very rare situation, and the C<conflicts> relationship should
+be used with great caution, or not at all.
+
+=back
+
+=head2 Merging and Resolving Prerequisites
+
+Whenever metadata consumers merge prerequisites, either from different
+phases or from C<optional_features>, they should merged in a way which
+preserves the intended semantics of the prerequisite structure.  Generally,
+this means concatenating the version specifications using commas, as
+described in the L<Version Ranges> section.
+
+Another subtle error that can occur in resolving prerequisites comes from
+the way that modules in prerequisites are indexed to distribution files on
+CPAN.  When a module is deleted from a distribution, prerequisites calling
+for that module could indicate an older distribution should be installed,
+potentially overwriting files from a newer distribution.
+
+For example, as of Oct 31, 2009, the CPAN index file contained these
+module-distribution mappings:
+
+  Class::MOP                   0.94  D/DR/DROLSKY/Class-MOP-0.94.tar.gz
+  Class::MOP::Class            0.94  D/DR/DROLSKY/Class-MOP-0.94.tar.gz
+  Class::MOP::Class::Immutable 0.04  S/ST/STEVAN/Class-MOP-0.36.tar.gz
+
+Consider the case where "Class::MOP" 0.94 is installed.  If a
+distribution specified "Class::MOP::Class::Immutable" as a prerequisite,
+it could result in Class-MOP-0.36.tar.gz being installed, overwriting
+any files from Class-MOP-0.94.tar.gz.
+
+Consumers of metadata B<should> test whether prerequisites would result
+in installed module files being "downgraded" to an older version and
+B<may> warn users or ignore the prerequisite that would cause such a
+result.
+
+=head1 SERIALIZATION
+
+Distribution metadata should be serialized (as a hashref) as
+JSON-encoded data and packaged with distributions as the file
+F<META.json>.
+
+In the past, the distribution metadata structure had been packed with
+distributions as F<META.yml>, a file in the YAML Tiny format (for which,
+see L<YAML::Tiny>).  Tools that consume distribution metadata from disk
+should be capable of loading F<META.yml>, but should prefer F<META.json>
+if both are found.
+
+=head1 NOTES FOR IMPLEMENTORS
+
+=head2 Extracting Version Numbers from Perl Modules
+
+To get the version number from a Perl module, consumers should use the
+C<< MM->parse_version($file) >> method provided by
+L<ExtUtils::MakeMaker> or L<Module::Metadata>.  For example, for the
+module given by C<$mod>, the version may be retrieved in one of the
+following ways:
+
+  # via ExtUtils::MakeMaker
+  my $file = MM->_installed_file_for_module($mod);
+  my $version = MM->parse_version($file)
+
+The private C<_installed_file_for_module> method may be replaced with
+other methods for locating a module in C<@INC>.
+
+  # via Module::Metadata
+  my $info = Module::Metadata->new_from_module($mod);
+  my $version = $info->version;
+
+If only a filename is available, the following approach may be used:
+
+  # via Module::Build
+  my $info = Module::Metadata->new_from_file($file);
+  my $version = $info->version;
+
+=head2 Comparing Version Numbers
+
+The L<version> module provides the most reliable way to compare version
+numbers in all the various ways they might be provided or might exist
+within modules.  Given two strings containing version numbers, C<$v1> and
+C<$v2>, they should be converted to C<version> objects before using
+ordinary comparison operators.  For example:
+
+  use version;
+  if ( version->new($v1) <=> version->new($v2) ) {
+    print "Versions are not equal\n";
+  }
+
+If the only comparison needed is whether an installed module is of a
+sufficiently high version, a direct test may be done using the string
+form of C<eval> and the C<use> function.  For example, for module C<$mod>
+and version prerequisite C<$prereq>:
+
+  if ( eval "use $mod $prereq (); 1" ) {
+    print "Module $mod version is OK.\n";
+  }
+
+If the values of C<$mod> and C<$prereq> have not been scrubbed, however,
+this presents security implications.
+
+=head2 Prerequisites for dynamically configured distributions
+
+When C<dynamic_config> is true, it is an error to presume that the
+prerequisites given in distribution metadata will have any relationship
+whatsoever to the actual prerequisites of the distribution.
+
+In practice, however, one can generally expect such prerequisites to be
+one of two things:
+
+=over 4
+
+=item *
+
+The minimum prerequisites for the distribution, to which dynamic configuration will only add items
+
+=item *
+
+Whatever the distribution configured with on the releaser's machine at release time
+
+=back
+
+The second case often turns out to have identical results to the first case,
+albeit only by accident.
+
+As such, consumers may use this data for informational analysis, but
+presenting it to the user as canonical or relying on it as such is
+invariably the height of folly.
+
+=head2 Indexing distributions a la PAUSE
+
+While no_index tells you what must be ignored when indexing, this spec holds
+no opinion on how you should get your initial candidate list of things to
+possibly index. For "normal" distributions you might consider simply indexing
+the contents of lib/, but there are many fascinating oddities on CPAN and
+many dists from the days when it was normal to put the main .pm file in the
+root of the distribution archive - so PAUSE currently indexes all .pm and .PL
+files that are not either (a) specifically excluded by no_index (b) in
+C<inc>, C<xt>, or C<t> directories, or common 'mistake' directories such as
+C<perl5>.
+
+Or: If you're trying to be PAUSE-like, make sure you skip C<inc>, C<xt> and
+C<t> as well as anything marked as no_index.
+
+Also remember: If the META file contains a provides field, you shouldn't be
+indexing anything in the first place - just use that.
+
+=head1 SEE ALSO
+
+=over 4
+
+=item *
+
+CPAN, L<http://www.cpan.org/>
+
+=item *
+
+JSON, L<http://json.org/>
+
+=item *
+
+YAML, L<http://www.yaml.org/>
+
+=item *
+
+L<CPAN>
+
+=item *
+
+L<CPANPLUS>
+
+=item *
+
+L<ExtUtils::MakeMaker>
+
+=item *
+
+L<Module::Build>
+
+=item *
+
+L<Module::Install>
+
+=back
+
+=head1 HISTORY
+
+Ken Williams wrote the original CPAN Meta Spec (also known as the
+"META.yml spec") in 2003 and maintained it through several revisions
+with input from various members of the community.  In 2005, Randy
+Sims redrafted it from HTML to POD for the version 1.2 release.  Ken
+continued to maintain the spec through version 1.4.
+
+In late 2009, David Golden organized the version 2 proposal review
+process.  David and Ricardo Signes drafted the final version 2 spec
+in April 2010 based on the version 1.4 spec and patches contributed
+during the proposal process.
+
+=head1 AUTHORS
+
+=over 4
+
+=item *
+
+David Golden <dagolden@cpan.org>
+
+=item *
+
+Ricardo Signes <rjbs@cpan.org>
+
+=back
+
+=head1 COPYRIGHT AND LICENSE
+
+This software is copyright (c) 2010 by David Golden and Ricardo Signes.
+
+This is free software; you can redistribute it and/or modify it under
+the same terms as the Perl 5 programming language system itself.
+
+=cut
diff --git a/lib/5.24.1/CPAN/Meta/Validator.pm b/lib/5.24.1/CPAN/Meta/Validator.pm
new file mode 100644
index 00000000..eddaa107
--- /dev/null
+++ b/lib/5.24.1/CPAN/Meta/Validator.pm
@@ -0,0 +1,1210 @@
+use 5.006;
+use strict;
+use warnings;
+package CPAN::Meta::Validator;
+
+our $VERSION = '2.150005';
+
+#pod =head1 SYNOPSIS
+#pod
+#pod   my $struct = decode_json_file('META.json');
+#pod
+#pod   my $cmv = CPAN::Meta::Validator->new( $struct );
+#pod
+#pod   unless ( $cmv->is_valid ) {
+#pod     my $msg = "Invalid META structure.  Errors found:\n";
+#pod     $msg .= join( "\n", $cmv->errors );
+#pod     die $msg;
+#pod   }
+#pod
+#pod =head1 DESCRIPTION
+#pod
+#pod This module validates a CPAN Meta structure against the version of the
+#pod the specification claimed in the C<meta-spec> field of the structure.
+#pod
+#pod =cut
+
+#--------------------------------------------------------------------------#
+# This code copied and adapted from Test::CPAN::Meta
+# by Barbie, <barbie@cpan.org> for Miss Barbell Productions,
+# L<http://www.missbarbell.co.uk>
+#--------------------------------------------------------------------------#
+
+#--------------------------------------------------------------------------#
+# Specification Definitions
+#--------------------------------------------------------------------------#
+
+my %known_specs = (
+    '1.4' => 'http://module-build.sourceforge.net/META-spec-v1.4.html',
+    '1.3' => 'http://module-build.sourceforge.net/META-spec-v1.3.html',
+    '1.2' => 'http://module-build.sourceforge.net/META-spec-v1.2.html',
+    '1.1' => 'http://module-build.sourceforge.net/META-spec-v1.1.html',
+    '1.0' => 'http://module-build.sourceforge.net/META-spec-v1.0.html'
+);
+my %known_urls = map {$known_specs{$_} => $_} keys %known_specs;
+
+my $module_map1 = { 'map' => { ':key' => { name => \&module, value => \&exversion } } };
+
+my $module_map2 = { 'map' => { ':key' => { name => \&module, value => \&version   } } };
+
+my $no_index_2 = {
+    'map'       => { file       => { list => { value => \&string } },
+                     directory  => { list => { value => \&string } },
+                     'package'  => { list => { value => \&string } },
+                     namespace  => { list => { value => \&string } },
+                    ':key'      => { name => \&custom_2, value => \&anything },
+    }
+};
+
+my $no_index_1_3 = {
+    'map'       => { file       => { list => { value => \&string } },
+                     directory  => { list => { value => \&string } },
+                     'package'  => { list => { value => \&string } },
+                     namespace  => { list => { value => \&string } },
+                     ':key'     => { name => \&string, value => \&anything },
+    }
+};
+
+my $no_index_1_2 = {
+    'map'       => { file       => { list => { value => \&string } },
+                     dir        => { list => { value => \&string } },
+                     'package'  => { list => { value => \&string } },
+                     namespace  => { list => { value => \&string } },
+                     ':key'     => { name => \&string, value => \&anything },
+    }
+};
+
+my $no_index_1_1 = {
+    'map'       => { ':key'     => { name => \&string, list => { value => \&string } },
+    }
+};
+
+my $prereq_map = {
+  map => {
+    ':key' => {
+      name => \&phase,
+      'map' => {
+        ':key'  => {
+          name => \&relation,
+          %$module_map1,
+        },
+      },
+    }
+  },
+};
+
+my %definitions = (
+  '2' => {
+    # REQUIRED
+    'abstract'            => { mandatory => 1, value => \&string  },
+    'author'              => { mandatory => 1, list => { value => \&string } },
+    'dynamic_config'      => { mandatory => 1, value => \&boolean },
+    'generated_by'        => { mandatory => 1, value => \&string  },
+    'license'             => { mandatory => 1, list => { value => \&license } },
+    'meta-spec' => {
+      mandatory => 1,
+      'map' => {
+        version => { mandatory => 1, value => \&version},
+        url     => { value => \&url },
+        ':key' => { name => \&custom_2, value => \&anything },
+      }
+    },
+    'name'                => { mandatory => 1, value => \&string  },
+    'release_status'      => { mandatory => 1, value => \&release_status },
+    'version'             => { mandatory => 1, value => \&version },
+
+    # OPTIONAL
+    'description' => { value => \&string },
+    'keywords'    => { list => { value => \&string } },
+    'no_index'    => $no_index_2,
+    'optional_features'   => {
+      'map'       => {
+        ':key'  => {
+          name => \&string,
+          'map'   => {
+            description        => { value => \&string },
+            prereqs => $prereq_map,
+            ':key' => { name => \&custom_2, value => \&anything },
+          }
+        }
+      }
+    },
+    'prereqs' => $prereq_map,
+    'provides'    => {
+      'map'       => {
+        ':key' => {
+          name  => \&module,
+          'map' => {
+            file    => { mandatory => 1, value => \&file },
+            version => { value => \&version },
+            ':key' => { name => \&custom_2, value => \&anything },
+          }
+        }
+      }
+    },
+    'resources'   => {
+      'map'       => {
+        license    => { list => { value => \&url } },
+        homepage   => { value => \&url },
+        bugtracker => {
+          'map' => {
+            web => { value => \&url },
+            mailto => { value => \&string},
+            ':key' => { name => \&custom_2, value => \&anything },
+          }
+        },
+        repository => {
+          'map' => {
+            web => { value => \&url },
+            url => { value => \&url },
+            type => { value => \&string },
+            ':key' => { name => \&custom_2, value => \&anything },
+          }
+        },
+        ':key'     => { value => \&string, name => \&custom_2 },
+      }
+    },
+
+    # CUSTOM -- additional user defined key/value pairs
+    # note we can only validate the key name, as the structure is user defined
+    ':key'        => { name => \&custom_2, value => \&anything },
+  },
+
+'1.4' => {
+  'meta-spec'           => {
+    mandatory => 1,
+    'map' => {
+      version => { mandatory => 1, value => \&version},
+      url     => { mandatory => 1, value => \&urlspec },
+      ':key'  => { name => \&string, value => \&anything },
+    },
+  },
+
+  'name'                => { mandatory => 1, value => \&string  },
+  'version'             => { mandatory => 1, value => \&version },
+  'abstract'            => { mandatory => 1, value => \&string  },
+  'author'              => { mandatory => 1, list  => { value => \&string } },
+  'license'             => { mandatory => 1, value => \&license },
+  'generated_by'        => { mandatory => 1, value => \&string  },
+
+  'distribution_type'   => { value => \&string  },
+  'dynamic_config'      => { value => \&boolean },
+
+  'requires'            => $module_map1,
+  'recommends'          => $module_map1,
+  'build_requires'      => $module_map1,
+  'configure_requires'  => $module_map1,
+  'conflicts'           => $module_map2,
+
+  'optional_features'   => {
+    'map'       => {
+        ':key'  => { name => \&string,
+            'map'   => { description        => { value => \&string },
+                         requires           => $module_map1,
+                         recommends         => $module_map1,
+                         build_requires     => $module_map1,
+                         conflicts          => $module_map2,
+                         ':key'  => { name => \&string, value => \&anything },
+            }
+        }
+     }
+  },
+
+  'provides'    => {
+    'map'       => {
+      ':key' => { name  => \&module,
+        'map' => {
+          file    => { mandatory => 1, value => \&file },
+          version => { value => \&version },
+          ':key'  => { name => \&string, value => \&anything },
+        }
+      }
+    }
+  },
+
+  'no_index'    => $no_index_1_3,
+  'private'     => $no_index_1_3,
+
+  'keywords'    => { list => { value => \&string } },
+
+  'resources'   => {
+    'map'       => { license    => { value => \&url },
+                     homepage   => { value => \&url },
+                     bugtracker => { value => \&url },
+                     repository => { value => \&url },
+                     ':key'     => { value => \&string, name => \&custom_1 },
+    }
+  },
+
+  # additional user defined key/value pairs
+  # note we can only validate the key name, as the structure is user defined
+  ':key'        => { name => \&string, value => \&anything },
+},
+
+'1.3' => {
+  'meta-spec'           => {
+    mandatory => 1,
+    'map' => {
+      version => { mandatory => 1, value => \&version},
+      url     => { mandatory => 1, value => \&urlspec },
+      ':key'  => { name => \&string, value => \&anything },
+    },
+  },
+
+  'name'                => { mandatory => 1, value => \&string  },
+  'version'             => { mandatory => 1, value => \&version },
+  'abstract'            => { mandatory => 1, value => \&string  },
+  'author'              => { mandatory => 1, list  => { value => \&string } },
+  'license'             => { mandatory => 1, value => \&license },
+  'generated_by'        => { mandatory => 1, value => \&string  },
+
+  'distribution_type'   => { value => \&string  },
+  'dynamic_config'      => { value => \&boolean },
+
+  'requires'            => $module_map1,
+  'recommends'          => $module_map1,
+  'build_requires'      => $module_map1,
+  'conflicts'           => $module_map2,
+
+  'optional_features'   => {
+    'map'       => {
+        ':key'  => { name => \&string,
+            'map'   => { description        => { value => \&string },
+                         requires           => $module_map1,
+                         recommends         => $module_map1,
+                         build_requires     => $module_map1,
+                         conflicts          => $module_map2,
+                         ':key'  => { name => \&string, value => \&anything },
+            }
+        }
+     }
+  },
+
+  'provides'    => {
+    'map'       => {
+      ':key' => { name  => \&module,
+        'map' => {
+          file    => { mandatory => 1, value => \&file },
+          version => { value => \&version },
+          ':key'  => { name => \&string, value => \&anything },
+        }
+      }
+    }
+  },
+
+
+  'no_index'    => $no_index_1_3,
+  'private'     => $no_index_1_3,
+
+  'keywords'    => { list => { value => \&string } },
+
+  'resources'   => {
+    'map'       => { license    => { value => \&url },
+                     homepage   => { value => \&url },
+                     bugtracker => { value => \&url },
+                     repository => { value => \&url },
+                     ':key'     => { value => \&string, name => \&custom_1 },
+    }
+  },
+
+  # additional user defined key/value pairs
+  # note we can only validate the key name, as the structure is user defined
+  ':key'        => { name => \&string, value => \&anything },
+},
+
+# v1.2 is misleading, it seems to assume that a number of fields where created
+# within v1.1, when they were created within v1.2. This may have been an
+# original mistake, and that a v1.1 was retro fitted into the timeline, when
+# v1.2 was originally slated as v1.1. But I could be wrong ;)
+'1.2' => {
+  'meta-spec'           => {
+    mandatory => 1,
+    'map' => {
+      version => { mandatory => 1, value => \&version},
+      url     => { mandatory => 1, value => \&urlspec },
+      ':key'  => { name => \&string, value => \&anything },
+    },
+  },
+
+
+  'name'                => { mandatory => 1, value => \&string  },
+  'version'             => { mandatory => 1, value => \&version },
+  'license'             => { mandatory => 1, value => \&license },
+  'generated_by'        => { mandatory => 1, value => \&string  },
+  'author'              => { mandatory => 1, list => { value => \&string } },
+  'abstract'            => { mandatory => 1, value => \&string  },
+
+  'distribution_type'   => { value => \&string  },
+  'dynamic_config'      => { value => \&boolean },
+
+  'keywords'            => { list => { value => \&string } },
+
+  'private'             => $no_index_1_2,
+  '$no_index'           => $no_index_1_2,
+
+  'requires'            => $module_map1,
+  'recommends'          => $module_map1,
+  'build_requires'      => $module_map1,
+  'conflicts'           => $module_map2,
+
+  'optional_features'   => {
+    'map'       => {
+        ':key'  => { name => \&string,
+            'map'   => { description        => { value => \&string },
+                         requires           => $module_map1,
+                         recommends         => $module_map1,
+                         build_requires     => $module_map1,
+                         conflicts          => $module_map2,
+                         ':key'  => { name => \&string, value => \&anything },
+            }
+        }
+     }
+  },
+
+  'provides'    => {
+    'map'       => {
+      ':key' => { name  => \&module,
+        'map' => {
+          file    => { mandatory => 1, value => \&file },
+          version => { value => \&version },
+          ':key'  => { name => \&string, value => \&anything },
+        }
+      }
+    }
+  },
+
+  'resources'   => {
+    'map'       => { license    => { value => \&url },
+                     homepage   => { value => \&url },
+                     bugtracker => { value => \&url },
+                     repository => { value => \&url },
+                     ':key'     => { value => \&string, name => \&custom_1 },
+    }
+  },
+
+  # additional user defined key/value pairs
+  # note we can only validate the key name, as the structure is user defined
+  ':key'        => { name => \&string, value => \&anything },
+},
+
+# note that the 1.1 spec only specifies 'version' as mandatory
+'1.1' => {
+  'name'                => { value => \&string  },
+  'version'             => { mandatory => 1, value => \&version },
+  'license'             => { value => \&license },
+  'generated_by'        => { value => \&string  },
+
+  'license_uri'         => { value => \&url },
+  'distribution_type'   => { value => \&string  },
+  'dynamic_config'      => { value => \&boolean },
+
+  'private'             => $no_index_1_1,
+
+  'requires'            => $module_map1,
+  'recommends'          => $module_map1,
+  'build_requires'      => $module_map1,
+  'conflicts'           => $module_map2,
+
+  # additional user defined key/value pairs
+  # note we can only validate the key name, as the structure is user defined
+  ':key'        => { name => \&string, value => \&anything },
+},
+
+# note that the 1.0 spec doesn't specify optional or mandatory fields
+# but we will treat version as mandatory since otherwise META 1.0 is
+# completely arbitrary and pointless
+'1.0' => {
+  'name'                => { value => \&string  },
+  'version'             => { mandatory => 1, value => \&version },
+  'license'             => { value => \&license },
+  'generated_by'        => { value => \&string  },
+
+  'license_uri'         => { value => \&url },
+  'distribution_type'   => { value => \&string  },
+  'dynamic_config'      => { value => \&boolean },
+
+  'requires'            => $module_map1,
+  'recommends'          => $module_map1,
+  'build_requires'      => $module_map1,
+  'conflicts'           => $module_map2,
+
+  # additional user defined key/value pairs
+  # note we can only validate the key name, as the structure is user defined
+  ':key'        => { name => \&string, value => \&anything },
+},
+);
+
+#--------------------------------------------------------------------------#
+# Code
+#--------------------------------------------------------------------------#
+
+#pod =method new
+#pod
+#pod   my $cmv = CPAN::Meta::Validator->new( $struct )
+#pod
+#pod The constructor must be passed a metadata structure.
+#pod
+#pod =cut
+
+sub new {
+  my ($class,$data) = @_;
+
+  # create an attributes hash
+  my $self = {
+    'data'    => $data,
+    'spec'    => eval { $data->{'meta-spec'}{'version'} } || "1.0",
+    'errors'  => undef,
+  };
+
+  # create the object
+  return bless $self, $class;
+}
+
+#pod =method is_valid
+#pod
+#pod   if ( $cmv->is_valid ) {
+#pod     ...
+#pod   }
+#pod
+#pod Returns a boolean value indicating whether the metadata provided
+#pod is valid.
+#pod
+#pod =cut
+
+sub is_valid {
+    my $self = shift;
+    my $data = $self->{data};
+    my $spec_version = $self->{spec};
+    $self->check_map($definitions{$spec_version},$data);
+    return ! $self->errors;
+}
+
+#pod =method errors
+#pod
+#pod   warn( join "\n", $cmv->errors );
+#pod
+#pod Returns a list of errors seen during validation.
+#pod
+#pod =cut
+
+sub errors {
+    my $self = shift;
+    return ()   unless(defined $self->{errors});
+    return @{$self->{errors}};
+}
+
+#pod =begin :internals
+#pod
+#pod =head2 Check Methods
+#pod
+#pod =over
+#pod
+#pod =item *
+#pod
+#pod check_map($spec,$data)
+#pod
+#pod Checks whether a map (or hash) part of the data structure conforms to the
+#pod appropriate specification definition.
+#pod
+#pod =item *
+#pod
+#pod check_list($spec,$data)
+#pod
+#pod Checks whether a list (or array) part of the data structure conforms to
+#pod the appropriate specification definition.
+#pod
+#pod =item *
+#pod
+#pod =back
+#pod
+#pod =cut
+
+my $spec_error = "Missing validation action in specification. "
+  . "Must be one of 'map', 'list', or 'value'";
+
+sub check_map {
+    my ($self,$spec,$data) = @_;
+
+    if(ref($spec) ne 'HASH') {
+        $self->_error( "Unknown META specification, cannot validate." );
+        return;
+    }
+
+    if(ref($data) ne 'HASH') {
+        $self->_error( "Expected a map structure from string or file." );
+        return;
+    }
+
+    for my $key (keys %$spec) {
+        next    unless($spec->{$key}->{mandatory});
+        next    if(defined $data->{$key});
+        push @{$self->{stack}}, $key;
+        $self->_error( "Missing mandatory field, '$key'" );
+        pop @{$self->{stack}};
+    }
+
+    for my $key (keys %$data) {
+        push @{$self->{stack}}, $key;
+        if($spec->{$key}) {
+            if($spec->{$key}{value}) {
+                $spec->{$key}{value}->($self,$key,$data->{$key});
+            } elsif($spec->{$key}{'map'}) {
+                $self->check_map($spec->{$key}{'map'},$data->{$key});
+            } elsif($spec->{$key}{'list'}) {
+                $self->check_list($spec->{$key}{'list'},$data->{$key});
+            } else {
+                $self->_error( "$spec_error for '$key'" );
+            }
+
+        } elsif ($spec->{':key'}) {
+            $spec->{':key'}{name}->($self,$key,$key);
+            if($spec->{':key'}{value}) {
+                $spec->{':key'}{value}->($self,$key,$data->{$key});
+            } elsif($spec->{':key'}{'map'}) {
+                $self->check_map($spec->{':key'}{'map'},$data->{$key});
+            } elsif($spec->{':key'}{'list'}) {
+                $self->check_list($spec->{':key'}{'list'},$data->{$key});
+            } else {
+                $self->_error( "$spec_error for ':key'" );
+            }
+
+
+        } else {
+            $self->_error( "Unknown key, '$key', found in map structure" );
+        }
+        pop @{$self->{stack}};
+    }
+}
+
+sub check_list {
+    my ($self,$spec,$data) = @_;
+
+    if(ref($data) ne 'ARRAY') {
+        $self->_error( "Expected a list structure" );
+        return;
+    }
+
+    if(defined $spec->{mandatory}) {
+        if(!defined $data->[0]) {
+            $self->_error( "Missing entries from mandatory list" );
+        }
+    }
+
+    for my $value (@$data) {
+        push @{$self->{stack}}, $value || "<undef>";
+        if(defined $spec->{value}) {
+            $spec->{value}->($self,'list',$value);
+        } elsif(defined $spec->{'map'}) {
+            $self->check_map($spec->{'map'},$value);
+        } elsif(defined $spec->{'list'}) {
+            $self->check_list($spec->{'list'},$value);
+        } elsif ($spec->{':key'}) {
+            $self->check_map($spec,$value);
+        } else {
+          $self->_error( "$spec_error associated with '$self->{stack}[-2]'" );
+        }
+        pop @{$self->{stack}};
+    }
+}
+
+#pod =head2 Validator Methods
+#pod
+#pod =over
+#pod
+#pod =item *
+#pod
+#pod header($self,$key,$value)
+#pod
+#pod Validates that the header is valid.
+#pod
+#pod Note: No longer used as we now read the data structure, not the file.
+#pod
+#pod =item *
+#pod
+#pod url($self,$key,$value)
+#pod
+#pod Validates that a given value is in an acceptable URL format
+#pod
+#pod =item *
+#pod
+#pod urlspec($self,$key,$value)
+#pod
+#pod Validates that the URL to a META specification is a known one.
+#pod
+#pod =item *
+#pod
+#pod string_or_undef($self,$key,$value)
+#pod
+#pod Validates that the value is either a string or an undef value. Bit of a
+#pod catchall function for parts of the data structure that are completely user
+#pod defined.
+#pod
+#pod =item *
+#pod
+#pod string($self,$key,$value)
+#pod
+#pod Validates that a string exists for the given key.
+#pod
+#pod =item *
+#pod
+#pod file($self,$key,$value)
+#pod
+#pod Validate that a file is passed for the given key. This may be made more
+#pod thorough in the future. For now it acts like \&string.
+#pod
+#pod =item *
+#pod
+#pod exversion($self,$key,$value)
+#pod
+#pod Validates a list of versions, e.g. '<= 5, >=2, ==3, !=4, >1, <6, 0'.
+#pod
+#pod =item *
+#pod
+#pod version($self,$key,$value)
+#pod
+#pod Validates a single version string. Versions of the type '5.8.8' and '0.00_00'
+#pod are both valid. A leading 'v' like 'v1.2.3' is also valid.
+#pod
+#pod =item *
+#pod
+#pod boolean($self,$key,$value)
+#pod
+#pod Validates for a boolean value. Currently these values are '1', '0', 'true',
+#pod 'false', however the latter 2 may be removed.
+#pod
+#pod =item *
+#pod
+#pod license($self,$key,$value)
+#pod
+#pod Validates that a value is given for the license. Returns 1 if an known license
+#pod type, or 2 if a value is given but the license type is not a recommended one.
+#pod
+#pod =item *
+#pod
+#pod custom_1($self,$key,$value)
+#pod
+#pod Validates that the given key is in CamelCase, to indicate a user defined
+#pod keyword and only has characters in the class [-_a-zA-Z].  In version 1.X
+#pod of the spec, this was only explicitly stated for 'resources'.
+#pod
+#pod =item *
+#pod
+#pod custom_2($self,$key,$value)
+#pod
+#pod Validates that the given key begins with 'x_' or 'X_', to indicate a user
+#pod defined keyword and only has characters in the class [-_a-zA-Z]
+#pod
+#pod =item *
+#pod
+#pod identifier($self,$key,$value)
+#pod
+#pod Validates that key is in an acceptable format for the META specification,
+#pod for an identifier, i.e. any that matches the regular expression
+#pod qr/[a-z][a-z_]/i.
+#pod
+#pod =item *
+#pod
+#pod module($self,$key,$value)
+#pod
+#pod Validates that a given key is in an acceptable module name format, e.g.
+#pod 'Test::CPAN::Meta::Version'.
+#pod
+#pod =back
+#pod
+#pod =end :internals
+#pod
+#pod =cut
+
+sub header {
+    my ($self,$key,$value) = @_;
+    if(defined $value) {
+        return 1    if($value && $value =~ /^--- #YAML:1.0/);
+    }
+    $self->_error( "file does not have a valid YAML header." );
+    return 0;
+}
+
+sub release_status {
+  my ($self,$key,$value) = @_;
+  if(defined $value) {
+    my $version = $self->{data}{version} || '';
+    if ( $version =~ /_/ ) {
+      return 1 if ( $value =~ /\A(?:testing|unstable)\z/ );
+      $self->_error( "'$value' for '$key' is invalid for version '$version'" );
+    }
+    else {
+      return 1 if ( $value =~ /\A(?:stable|testing|unstable)\z/ );
+      $self->_error( "'$value' for '$key' is invalid" );
+    }
+  }
+  else {
+    $self->_error( "'$key' is not defined" );
+  }
+  return 0;
+}
+
+# _uri_split taken from URI::Split by Gisle Aas, Copyright 2003
+sub _uri_split {
+     return $_[0] =~ m,(?:([^:/?#]+):)?(?://([^/?#]*))?([^?#]*)(?:\?([^#]*))?(?:#(.*))?,;
+}
+
+sub url {
+    my ($self,$key,$value) = @_;
+    if(defined $value) {
+      my ($scheme, $auth, $path, $query, $frag) = _uri_split($value);
+      unless ( defined $scheme && length $scheme ) {
+        $self->_error( "'$value' for '$key' does not have a URL scheme" );
+        return 0;
+      }
+      unless ( defined $auth && length $auth ) {
+        $self->_error( "'$value' for '$key' does not have a URL authority" );
+        return 0;
+      }
+      return 1;
+    }
+    $value ||= '';
+    $self->_error( "'$value' for '$key' is not a valid URL." );
+    return 0;
+}
+
+sub urlspec {
+    my ($self,$key,$value) = @_;
+    if(defined $value) {
+        return 1    if($value && $known_specs{$self->{spec}} eq $value);
+        if($value && $known_urls{$value}) {
+            $self->_error( 'META specification URL does not match version' );
+            return 0;
+        }
+    }
+    $self->_error( 'Unknown META specification' );
+    return 0;
+}
+
+sub anything { return 1 }
+
+sub string {
+    my ($self,$key,$value) = @_;
+    if(defined $value) {
+        return 1    if($value || $value =~ /^0$/);
+    }
+    $self->_error( "value is an undefined string" );
+    return 0;
+}
+
+sub string_or_undef {
+    my ($self,$key,$value) = @_;
+    return 1    unless(defined $value);
+    return 1    if($value || $value =~ /^0$/);
+    $self->_error( "No string defined for '$key'" );
+    return 0;
+}
+
+sub file {
+    my ($self,$key,$value) = @_;
+    return 1    if(defined $value);
+    $self->_error( "No file defined for '$key'" );
+    return 0;
+}
+
+sub exversion {
+    my ($self,$key,$value) = @_;
+    if(defined $value && ($value || $value =~ /0/)) {
+        my $pass = 1;
+        for(split(",",$value)) { $self->version($key,$_) or ($pass = 0); }
+        return $pass;
+    }
+    $value = '<undef>'  unless(defined $value);
+    $self->_error( "'$value' for '$key' is not a valid version." );
+    return 0;
+}
+
+sub version {
+    my ($self,$key,$value) = @_;
+    if(defined $value) {
+        return 0    unless($value || $value =~ /0/);
+        return 1    if($value =~ /^\s*((<|<=|>=|>|!=|==)\s*)?v?\d+((\.\d+((_|\.)\d+)?)?)/);
+    } else {
+        $value = '<undef>';
+    }
+    $self->_error( "'$value' for '$key' is not a valid version." );
+    return 0;
+}
+
+sub boolean {
+    my ($self,$key,$value) = @_;
+    if(defined $value) {
+        return 1    if($value =~ /^(0|1|true|false)$/);
+    } else {
+        $value = '<undef>';
+    }
+    $self->_error( "'$value' for '$key' is not a boolean value." );
+    return 0;
+}
+
+my %v1_licenses = (
+    'perl'         => 'http://dev.perl.org/licenses/',
+    'gpl'          => 'http://www.opensource.org/licenses/gpl-license.php',
+    'apache'       => 'http://apache.org/licenses/LICENSE-2.0',
+    'artistic'     => 'http://opensource.org/licenses/artistic-license.php',
+    'artistic_2'   => 'http://opensource.org/licenses/artistic-license-2.0.php',
+    'lgpl'         => 'http://www.opensource.org/licenses/lgpl-license.php',
+    'bsd'          => 'http://www.opensource.org/licenses/bsd-license.php',
+    'gpl'          => 'http://www.opensource.org/licenses/gpl-license.php',
+    '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,
+);
+
+my %v2_licenses = map { $_ => 1 } qw(
+  agpl_3
+  apache_1_1
+  apache_2_0
+  artistic_1
+  artistic_2
+  bsd
+  freebsd
+  gfdl_1_2
+  gfdl_1_3
+  gpl_1
+  gpl_2
+  gpl_3
+  lgpl_2_1
+  lgpl_3_0
+  mit
+  mozilla_1_0
+  mozilla_1_1
+  openssl
+  perl_5
+  qpl_1_0
+  ssleay
+  sun
+  zlib
+  open_source
+  restricted
+  unrestricted
+  unknown
+);
+
+sub license {
+    my ($self,$key,$value) = @_;
+    my $licenses = $self->{spec} < 2 ? \%v1_licenses : \%v2_licenses;
+    if(defined $value) {
+        return 1    if($value && exists $licenses->{$value});
+    } else {
+        $value = '<undef>';
+    }
+    $self->_error( "License '$value' is invalid" );
+    return 0;
+}
+
+sub custom_1 {
+    my ($self,$key) = @_;
+    if(defined $key) {
+        # a valid user defined key should be alphabetic
+        # and contain at least one capital case letter.
+        return 1    if($key && $key =~ /^[_a-z]+$/i && $key =~ /[A-Z]/);
+    } else {
+        $key = '<undef>';
+    }
+    $self->_error( "Custom resource '$key' must be in CamelCase." );
+    return 0;
+}
+
+sub custom_2 {
+    my ($self,$key) = @_;
+    if(defined $key) {
+        return 1    if($key && $key =~ /^x_/i);  # user defined
+    } else {
+        $key = '<undef>';
+    }
+    $self->_error( "Custom key '$key' must begin with 'x_' or 'X_'." );
+    return 0;
+}
+
+sub identifier {
+    my ($self,$key) = @_;
+    if(defined $key) {
+        return 1    if($key && $key =~ /^([a-z][_a-z]+)$/i);    # spec 2.0 defined
+    } else {
+        $key = '<undef>';
+    }
+    $self->_error( "Key '$key' is not a legal identifier." );
+    return 0;
+}
+
+sub module {
+    my ($self,$key) = @_;
+    if(defined $key) {
+        return 1    if($key && $key =~ /^[A-Za-z0-9_]+(::[A-Za-z0-9_]+)*$/);
+    } else {
+        $key = '<undef>';
+    }
+    $self->_error( "Key '$key' is not a legal module name." );
+    return 0;
+}
+
+my @valid_phases = qw/ configure build test runtime develop /;
+sub phase {
+    my ($self,$key) = @_;
+    if(defined $key) {
+        return 1 if( length $key && grep { $key eq $_ } @valid_phases );
+        return 1 if $key =~ /x_/i;
+    } else {
+        $key = '<undef>';
+    }
+    $self->_error( "Key '$key' is not a legal phase." );
+    return 0;
+}
+
+my @valid_relations = qw/ requires recommends suggests conflicts /;
+sub relation {
+    my ($self,$key) = @_;
+    if(defined $key) {
+        return 1 if( length $key && grep { $key eq $_ } @valid_relations );
+        return 1 if $key =~ /x_/i;
+    } else {
+        $key = '<undef>';
+    }
+    $self->_error( "Key '$key' is not a legal prereq relationship." );
+    return 0;
+}
+
+sub _error {
+    my $self = shift;
+    my $mess = shift;
+
+    $mess .= ' ('.join(' -> ',@{$self->{stack}}).')'  if($self->{stack});
+    $mess .= " [Validation: $self->{spec}]";
+
+    push @{$self->{errors}}, $mess;
+}
+
+1;
+
+# ABSTRACT: validate CPAN distribution metadata structures
+
+=pod
+
+=encoding UTF-8
+
+=head1 NAME
+
+CPAN::Meta::Validator - validate CPAN distribution metadata structures
+
+=head1 VERSION
+
+version 2.150005
+
+=head1 SYNOPSIS
+
+  my $struct = decode_json_file('META.json');
+
+  my $cmv = CPAN::Meta::Validator->new( $struct );
+
+  unless ( $cmv->is_valid ) {
+    my $msg = "Invalid META structure.  Errors found:\n";
+    $msg .= join( "\n", $cmv->errors );
+    die $msg;
+  }
+
+=head1 DESCRIPTION
+
+This module validates a CPAN Meta structure against the version of the
+the specification claimed in the C<meta-spec> field of the structure.
+
+=head1 METHODS
+
+=head2 new
+
+  my $cmv = CPAN::Meta::Validator->new( $struct )
+
+The constructor must be passed a metadata structure.
+
+=head2 is_valid
+
+  if ( $cmv->is_valid ) {
+    ...
+  }
+
+Returns a boolean value indicating whether the metadata provided
+is valid.
+
+=head2 errors
+
+  warn( join "\n", $cmv->errors );
+
+Returns a list of errors seen during validation.
+
+=begin :internals
+
+=head2 Check Methods
+
+=over
+
+=item *
+
+check_map($spec,$data)
+
+Checks whether a map (or hash) part of the data structure conforms to the
+appropriate specification definition.
+
+=item *
+
+check_list($spec,$data)
+
+Checks whether a list (or array) part of the data structure conforms to
+the appropriate specification definition.
+
+=item *
+
+=back
+
+=head2 Validator Methods
+
+=over
+
+=item *
+
+header($self,$key,$value)
+
+Validates that the header is valid.
+
+Note: No longer used as we now read the data structure, not the file.
+
+=item *
+
+url($self,$key,$value)
+
+Validates that a given value is in an acceptable URL format
+
+=item *
+
+urlspec($self,$key,$value)
+
+Validates that the URL to a META specification is a known one.
+
+=item *
+
+string_or_undef($self,$key,$value)
+
+Validates that the value is either a string or an undef value. Bit of a
+catchall function for parts of the data structure that are completely user
+defined.
+
+=item *
+
+string($self,$key,$value)
+
+Validates that a string exists for the given key.
+
+=item *
+
+file($self,$key,$value)
+
+Validate that a file is passed for the given key. This may be made more
+thorough in the future. For now it acts like \&string.
+
+=item *
+
+exversion($self,$key,$value)
+
+Validates a list of versions, e.g. '<= 5, >=2, ==3, !=4, >1, <6, 0'.
+
+=item *
+
+version($self,$key,$value)
+
+Validates a single version string. Versions of the type '5.8.8' and '0.00_00'
+are both valid. A leading 'v' like 'v1.2.3' is also valid.
+
+=item *
+
+boolean($self,$key,$value)
+
+Validates for a boolean value. Currently these values are '1', '0', 'true',
+'false', however the latter 2 may be removed.
+
+=item *
+
+license($self,$key,$value)
+
+Validates that a value is given for the license. Returns 1 if an known license
+type, or 2 if a value is given but the license type is not a recommended one.
+
+=item *
+
+custom_1($self,$key,$value)
+
+Validates that the given key is in CamelCase, to indicate a user defined
+keyword and only has characters in the class [-_a-zA-Z].  In version 1.X
+of the spec, this was only explicitly stated for 'resources'.
+
+=item *
+
+custom_2($self,$key,$value)
+
+Validates that the given key begins with 'x_' or 'X_', to indicate a user
+defined keyword and only has characters in the class [-_a-zA-Z]
+
+=item *
+
+identifier($self,$key,$value)
+
+Validates that key is in an acceptable format for the META specification,
+for an identifier, i.e. any that matches the regular expression
+qr/[a-z][a-z_]/i.
+
+=item *
+
+module($self,$key,$value)
+
+Validates that a given key is in an acceptable module name format, e.g.
+'Test::CPAN::Meta::Version'.
+
+=back
+
+=end :internals
+
+=for Pod::Coverage anything boolean check_list custom_1 custom_2 exversion file
+identifier license module phase relation release_status string string_or_undef
+url urlspec version header check_map
+
+=head1 BUGS
+
+Please report any bugs or feature using the CPAN Request Tracker.
+Bugs can be submitted through the web interface at
+L<http://rt.cpan.org/Dist/Display.html?Queue=CPAN-Meta>
+
+When submitting a bug or request, please include a test-file or a patch to an
+existing test-file that illustrates the bug or desired feature.
+
+=head1 AUTHORS
+
+=over 4
+
+=item *
+
+David Golden <dagolden@cpan.org>
+
+=item *
+
+Ricardo Signes <rjbs@cpan.org>
+
+=back
+
+=head1 COPYRIGHT AND LICENSE
+
+This software is copyright (c) 2010 by David Golden and Ricardo Signes.
+
+This is free software; you can redistribute it and/or modify it under
+the same terms as the Perl 5 programming language system itself.
+
+=cut
+
+__END__
+
+
+# vim: ts=2 sts=2 sw=2 et :
diff --git a/lib/5.24.1/CPAN/Meta/YAML.pm b/lib/5.24.1/CPAN/Meta/YAML.pm
new file mode 100644
index 00000000..746abd63
--- /dev/null
+++ b/lib/5.24.1/CPAN/Meta/YAML.pm
@@ -0,0 +1,951 @@
+use 5.008001; # sane UTF-8 support
+use strict;
+use warnings;
+package CPAN::Meta::YAML; # git description: v1.68-2-gcc5324e
+# XXX-INGY is 5.8.1 too old/broken for utf8?
+# XXX-XDG Lancaster consensus was that it was sufficient until
+# proven otherwise
+$CPAN::Meta::YAML::VERSION = '0.018';
+; # original $VERSION removed by Doppelgaenger
+
+#####################################################################
+# The CPAN::Meta::YAML API.
+#
+# These are the currently documented API functions/methods and
+# exports:
+
+use Exporter;
+our @ISA       = qw{ Exporter  };
+our @EXPORT    = qw{ Load Dump };
+our @EXPORT_OK = qw{ LoadFile DumpFile freeze thaw };
+
+###
+# Functional/Export API:
+
+sub Dump {
+    return CPAN::Meta::YAML->new(@_)->_dump_string;
+}
+
+# XXX-INGY Returning last document seems a bad behavior.
+# XXX-XDG I think first would seem more natural, but I don't know
+# that it's worth changing now
+sub Load {
+    my $self = CPAN::Meta::YAML->_load_string(@_);
+    if ( wantarray ) {
+        return @$self;
+    } else {
+        # To match YAML.pm, return the last document
+        return $self->[-1];
+    }
+}
+
+# XXX-INGY Do we really need freeze and thaw?
+# XXX-XDG I don't think so.  I'd support deprecating them.
+BEGIN {
+    *freeze = \&Dump;
+    *thaw   = \&Load;
+}
+
+sub DumpFile {
+    my $file = shift;
+    return CPAN::Meta::YAML->new(@_)->_dump_file($file);
+}
+
+sub LoadFile {
+    my $file = shift;
+    my $self = CPAN::Meta::YAML->_load_file($file);
+    if ( wantarray ) {
+        return @$self;
+    } else {
+        # Return only the last document to match YAML.pm,
+        return $self->[-1];
+    }
+}
+
+
+###
+# Object Oriented API:
+
+# Create an empty CPAN::Meta::YAML object
+# XXX-INGY Why do we use ARRAY object?
+# NOTE: I get it now, but I think it's confusing and not needed.
+# Will change it on a branch later, for review.
+#
+# XXX-XDG I don't support changing it yet.  It's a very well-documented
+# "API" of CPAN::Meta::YAML.  I'd support deprecating it, but Adam suggested
+# we not change it until YAML.pm's own OO API is established so that
+# users only have one API change to digest, not two
+sub new {
+    my $class = shift;
+    bless [ @_ ], $class;
+}
+
+# XXX-INGY It probably doesn't matter, and it's probably too late to
+# change, but 'read/write' are the wrong names. Read and Write
+# are actions that take data from storage to memory
+# characters/strings. These take the data to/from storage to native
+# Perl objects, which the terms dump and load are meant. As long as
+# this is a legacy quirk to CPAN::Meta::YAML it's ok, but I'd prefer not
+# to add new {read,write}_* methods to this API.
+
+sub read_string {
+    my $self = shift;
+    $self->_load_string(@_);
+}
+
+sub write_string {
+    my $self = shift;
+    $self->_dump_string(@_);
+}
+
+sub read {
+    my $self = shift;
+    $self->_load_file(@_);
+}
+
+sub write {
+    my $self = shift;
+    $self->_dump_file(@_);
+}
+
+
+
+
+#####################################################################
+# Constants
+
+# Printed form of the unprintable characters in the lowest range
+# of ASCII characters, listed by ASCII ordinal position.
+my @UNPRINTABLE = qw(
+    0    x01  x02  x03  x04  x05  x06  a
+    b    t    n    v    f    r    x0E  x0F
+    x10  x11  x12  x13  x14  x15  x16  x17
+    x18  x19  x1A  e    x1C  x1D  x1E  x1F
+);
+
+# Printable characters for escapes
+my %UNESCAPES = (
+    0 => "\x00", z => "\x00", N    => "\x85",
+    a => "\x07", b => "\x08", t    => "\x09",
+    n => "\x0a", v => "\x0b", f    => "\x0c",
+    r => "\x0d", e => "\x1b", '\\' => '\\',
+);
+
+# XXX-INGY
+# I(ngy) need to decide if these values should be quoted in
+# CPAN::Meta::YAML or not. Probably yes.
+
+# These 3 values have special meaning when unquoted and using the
+# default YAML schema. They need quotes if they are strings.
+my %QUOTE = map { $_ => 1 } qw{
+    null true false
+};
+
+# The commented out form is simpler, but overloaded the Perl regex
+# engine due to recursion and backtracking problems on strings
+# larger than 32,000ish characters. Keep it for reference purposes.
+# qr/\"((?:\\.|[^\"])*)\"/
+my $re_capture_double_quoted = qr/\"([^\\"]*(?:\\.[^\\"]*)*)\"/;
+my $re_capture_single_quoted = qr/\'([^\']*(?:\'\'[^\']*)*)\'/;
+# unquoted re gets trailing space that needs to be stripped
+my $re_capture_unquoted_key  = qr/([^:]+(?::+\S(?:[^:]*|.*?(?=:)))*)(?=\s*\:(?:\s+|$))/;
+my $re_trailing_comment      = qr/(?:\s+\#.*)?/;
+my $re_key_value_separator   = qr/\s*:(?:\s+(?:\#.*)?|$)/;
+
+
+
+
+
+#####################################################################
+# CPAN::Meta::YAML Implementation.
+#
+# These are the private methods that do all the work. They may change
+# at any time.
+
+
+###
+# Loader functions:
+
+# Create an object from a file
+sub _load_file {
+    my $class = ref $_[0] ? ref shift : shift;
+
+    # Check the file
+    my $file = shift or $class->_error( 'You did not specify a file name' );
+    $class->_error( "File '$file' does not exist" )
+        unless -e $file;
+    $class->_error( "'$file' is a directory, not a file" )
+        unless -f _;
+    $class->_error( "Insufficient permissions to read '$file'" )
+        unless -r _;
+
+    # Open unbuffered with strict UTF-8 decoding and no translation layers
+    open( my $fh, "<:unix:encoding(UTF-8)", $file );
+    unless ( $fh ) {
+        $class->_error("Failed to open file '$file': $!");
+    }
+
+    # flock if available (or warn if not possible for OS-specific reasons)
+    if ( _can_flock() ) {
+        flock( $fh, Fcntl::LOCK_SH() )
+            or warn "Couldn't lock '$file' for reading: $!";
+    }
+
+    # slurp the contents
+    my $contents = eval {
+        use warnings FATAL => 'utf8';
+        local $/;
+        <$fh>
+    };
+    if ( my $err = $@ ) {
+        $class->_error("Error reading from file '$file': $err");
+    }
+
+    # close the file (release the lock)
+    unless ( close $fh ) {
+        $class->_error("Failed to close file '$file': $!");
+    }
+
+    $class->_load_string( $contents );
+}
+
+# Create an object from a string
+sub _load_string {
+    my $class  = ref $_[0] ? ref shift : shift;
+    my $self   = bless [], $class;
+    my $string = $_[0];
+    eval {
+        unless ( defined $string ) {
+            die \"Did not provide a string to load";
+        }
+
+        # Check if Perl has it marked as characters, but it's internally
+        # inconsistent.  E.g. maybe latin1 got read on a :utf8 layer
+        if ( utf8::is_utf8($string) && ! utf8::valid($string) ) {
+            die \<<'...';
+Read an invalid UTF-8 string (maybe mixed UTF-8 and 8-bit character set).
+Did you decode with lax ":utf8" instead of strict ":encoding(UTF-8)"?
+...
+        }
+
+        # Ensure Unicode character semantics, even for 0x80-0xff
+        utf8::upgrade($string);
+
+        # Check for and strip any leading UTF-8 BOM
+        $string =~ s/^\x{FEFF}//;
+
+        # Check for some special cases
+        return $self unless length $string;
+
+        # Split the file into lines
+        my @lines = grep { ! /^\s*(?:\#.*)?\z/ }
+                split /(?:\015{1,2}\012|\015|\012)/, $string;
+
+        # Strip the initial YAML header
+        @lines and $lines[0] =~ /^\%YAML[: ][\d\.]+.*\z/ and shift @lines;
+
+        # A nibbling parser
+        my $in_document = 0;
+        while ( @lines ) {
+            # Do we have a document header?
+            if ( $lines[0] =~ /^---\s*(?:(.+)\s*)?\z/ ) {
+                # Handle scalar documents
+                shift @lines;
+                if ( defined $1 and $1 !~ /^(?:\#.+|\%YAML[: ][\d\.]+)\z/ ) {
+                    push @$self,
+                        $self->_load_scalar( "$1", [ undef ], \@lines );
+                    next;
+                }
+                $in_document = 1;
+            }
+
+            if ( ! @lines or $lines[0] =~ /^(?:---|\.\.\.)/ ) {
+                # A naked document
+                push @$self, undef;
+                while ( @lines and $lines[0] !~ /^---/ ) {
+                    shift @lines;
+                }
+                $in_document = 0;
+
+            # XXX The final '-+$' is to look for -- which ends up being an
+            # error later.
+            } elsif ( ! $in_document && @$self ) {
+                # only the first document can be explicit
+                die \"CPAN::Meta::YAML failed to classify the line '$lines[0]'";
+            } elsif ( $lines[0] =~ /^\s*\-(?:\s|$|-+$)/ ) {
+                # An array at the root
+                my $document = [ ];
+                push @$self, $document;
+                $self->_load_array( $document, [ 0 ], \@lines );
+
+            } elsif ( $lines[0] =~ /^(\s*)\S/ ) {
+                # A hash at the root
+                my $document = { };
+                push @$self, $document;
+                $self->_load_hash( $document, [ length($1) ], \@lines );
+
+            } else {
+                # Shouldn't get here.  @lines have whitespace-only lines
+                # stripped, and previous match is a line with any
+                # non-whitespace.  So this clause should only be reachable via
+                # a perlbug where \s is not symmetric with \S
+
+                # uncoverable statement
+                die \"CPAN::Meta::YAML failed to classify the line '$lines[0]'";
+            }
+        }
+    };
+    my $err = $@;
+    if ( ref $err eq 'SCALAR' ) {
+        $self->_error(${$err});
+    } elsif ( $err ) {
+        $self->_error($err);
+    }
+
+    return $self;
+}
+
+sub _unquote_single {
+    my ($self, $string) = @_;
+    return '' unless length $string;
+    $string =~ s/\'\'/\'/g;
+    return $string;
+}
+
+sub _unquote_double {
+    my ($self, $string) = @_;
+    return '' unless length $string;
+    $string =~ s/\\"/"/g;
+    $string =~
+        s{\\([Nnever\\fartz0b]|x([0-9a-fA-F]{2}))}
+         {(length($1)>1)?pack("H2",$2):$UNESCAPES{$1}}gex;
+    return $string;
+}
+
+# Load a YAML scalar string to the actual Perl scalar
+sub _load_scalar {
+    my ($self, $string, $indent, $lines) = @_;
+
+    # Trim trailing whitespace
+    $string =~ s/\s*\z//;
+
+    # Explitic null/undef
+    return undef if $string eq '~';
+
+    # Single quote
+    if ( $string =~ /^$re_capture_single_quoted$re_trailing_comment\z/ ) {
+        return $self->_unquote_single($1);
+    }
+
+    # Double quote.
+    if ( $string =~ /^$re_capture_double_quoted$re_trailing_comment\z/ ) {
+        return $self->_unquote_double($1);
+    }
+
+    # Special cases
+    if ( $string =~ /^[\'\"!&]/ ) {
+        die \"CPAN::Meta::YAML does not support a feature in line '$string'";
+    }
+    return {} if $string =~ /^{}(?:\s+\#.*)?\z/;
+    return [] if $string =~ /^\[\](?:\s+\#.*)?\z/;
+
+    # Regular unquoted string
+    if ( $string !~ /^[>|]/ ) {
+        die \"CPAN::Meta::YAML found illegal characters in plain scalar: '$string'"
+            if $string =~ /^(?:-(?:\s|$)|[\@\%\`])/ or
+                $string =~ /:(?:\s|$)/;
+        $string =~ s/\s+#.*\z//;
+        return $string;
+    }
+
+    # Error
+    die \"CPAN::Meta::YAML failed to find multi-line scalar content" unless @$lines;
+
+    # Check the indent depth
+    $lines->[0]   =~ /^(\s*)/;
+    $indent->[-1] = length("$1");
+    if ( defined $indent->[-2] and $indent->[-1] <= $indent->[-2] ) {
+        die \"CPAN::Meta::YAML found bad indenting in line '$lines->[0]'";
+    }
+
+    # Pull the lines
+    my @multiline = ();
+    while ( @$lines ) {
+        $lines->[0] =~ /^(\s*)/;
+        last unless length($1) >= $indent->[-1];
+        push @multiline, substr(shift(@$lines), length($1));
+    }
+
+    my $j = (substr($string, 0, 1) eq '>') ? ' ' : "\n";
+    my $t = (substr($string, 1, 1) eq '-') ? ''  : "\n";
+    return join( $j, @multiline ) . $t;
+}
+
+# Load an array
+sub _load_array {
+    my ($self, $array, $indent, $lines) = @_;
+
+    while ( @$lines ) {
+        # Check for a new document
+        if ( $lines->[0] =~ /^(?:---|\.\.\.)/ ) {
+            while ( @$lines and $lines->[0] !~ /^---/ ) {
+                shift @$lines;
+            }
+            return 1;
+        }
+
+        # Check the indent level
+        $lines->[0] =~ /^(\s*)/;
+        if ( length($1) < $indent->[-1] ) {
+            return 1;
+        } elsif ( length($1) > $indent->[-1] ) {
+            die \"CPAN::Meta::YAML found bad indenting in line '$lines->[0]'";
+        }
+
+        if ( $lines->[0] =~ /^(\s*\-\s+)[^\'\"]\S*\s*:(?:\s+|$)/ ) {
+            # Inline nested hash
+            my $indent2 = length("$1");
+            $lines->[0] =~ s/-/ /;
+            push @$array, { };
+            $self->_load_hash( $array->[-1], [ @$indent, $indent2 ], $lines );
+
+        } elsif ( $lines->[0] =~ /^\s*\-\s*\z/ ) {
+            shift @$lines;
+            unless ( @$lines ) {
+                push @$array, undef;
+                return 1;
+            }
+            if ( $lines->[0] =~ /^(\s*)\-/ ) {
+                my $indent2 = length("$1");
+                if ( $indent->[-1] == $indent2 ) {
+                    # Null array entry
+                    push @$array, undef;
+                } else {
+                    # Naked indenter
+                    push @$array, [ ];
+                    $self->_load_array(
+                        $array->[-1], [ @$indent, $indent2 ], $lines
+                    );
+                }
+
+            } elsif ( $lines->[0] =~ /^(\s*)\S/ ) {
+                push @$array, { };
+                $self->_load_hash(
+                    $array->[-1], [ @$indent, length("$1") ], $lines
+                );
+
+            } else {
+                die \"CPAN::Meta::YAML failed to classify line '$lines->[0]'";
+            }
+
+        } elsif ( $lines->[0] =~ /^\s*\-(\s*)(.+?)\s*\z/ ) {
+            # Array entry with a value
+            shift @$lines;
+            push @$array, $self->_load_scalar(
+                "$2", [ @$indent, undef ], $lines
+            );
+
+        } elsif ( defined $indent->[-2] and $indent->[-1] == $indent->[-2] ) {
+            # This is probably a structure like the following...
+            # ---
+            # foo:
+            # - list
+            # bar: value
+            #
+            # ... so lets return and let the hash parser handle it
+            return 1;
+
+        } else {
+            die \"CPAN::Meta::YAML failed to classify line '$lines->[0]'";
+        }
+    }
+
+    return 1;
+}
+
+# Load a hash
+sub _load_hash {
+    my ($self, $hash, $indent, $lines) = @_;
+
+    while ( @$lines ) {
+        # Check for a new document
+        if ( $lines->[0] =~ /^(?:---|\.\.\.)/ ) {
+            while ( @$lines and $lines->[0] !~ /^---/ ) {
+                shift @$lines;
+            }
+            return 1;
+        }
+
+        # Check the indent level
+        $lines->[0] =~ /^(\s*)/;
+        if ( length($1) < $indent->[-1] ) {
+            return 1;
+        } elsif ( length($1) > $indent->[-1] ) {
+            die \"CPAN::Meta::YAML found bad indenting in line '$lines->[0]'";
+        }
+
+        # Find the key
+        my $key;
+
+        # Quoted keys
+        if ( $lines->[0] =~
+            s/^\s*$re_capture_single_quoted$re_key_value_separator//
+        ) {
+            $key = $self->_unquote_single($1);
+        }
+        elsif ( $lines->[0] =~
+            s/^\s*$re_capture_double_quoted$re_key_value_separator//
+        ) {
+            $key = $self->_unquote_double($1);
+        }
+        elsif ( $lines->[0] =~
+            s/^\s*$re_capture_unquoted_key$re_key_value_separator//
+        ) {
+            $key = $1;
+            $key =~ s/\s+$//;
+        }
+        elsif ( $lines->[0] =~ /^\s*\?/ ) {
+            die \"CPAN::Meta::YAML does not support a feature in line '$lines->[0]'";
+        }
+        else {
+            die \"CPAN::Meta::YAML failed to classify line '$lines->[0]'";
+        }
+
+        if ( exists $hash->{$key} ) {
+            warn "CPAN::Meta::YAML found a duplicate key '$key' in line '$lines->[0]'";
+        }
+
+        # Do we have a value?
+        if ( length $lines->[0] ) {
+            # Yes
+            $hash->{$key} = $self->_load_scalar(
+                shift(@$lines), [ @$indent, undef ], $lines
+            );
+        } else {
+            # An indent
+            shift @$lines;
+            unless ( @$lines ) {
+                $hash->{$key} = undef;
+                return 1;
+            }
+            if ( $lines->[0] =~ /^(\s*)-/ ) {
+                $hash->{$key} = [];
+                $self->_load_array(
+                    $hash->{$key}, [ @$indent, length($1) ], $lines
+                );
+            } elsif ( $lines->[0] =~ /^(\s*)./ ) {
+                my $indent2 = length("$1");
+                if ( $indent->[-1] >= $indent2 ) {
+                    # Null hash entry
+                    $hash->{$key} = undef;
+                } else {
+                    $hash->{$key} = {};
+                    $self->_load_hash(
+                        $hash->{$key}, [ @$indent, length($1) ], $lines
+                    );
+                }
+            }
+        }
+    }
+
+    return 1;
+}
+
+
+###
+# Dumper functions:
+
+# Save an object to a file
+sub _dump_file {
+    my $self = shift;
+
+    require Fcntl;
+
+    # Check the file
+    my $file = shift or $self->_error( 'You did not specify a file name' );
+
+    my $fh;
+    # flock if available (or warn if not possible for OS-specific reasons)
+    if ( _can_flock() ) {
+        # Open without truncation (truncate comes after lock)
+        my $flags = Fcntl::O_WRONLY()|Fcntl::O_CREAT();
+        sysopen( $fh, $file, $flags );
+        unless ( $fh ) {
+            $self->_error("Failed to open file '$file' for writing: $!");
+        }
+
+        # Use no translation and strict UTF-8
+        binmode( $fh, ":raw:encoding(UTF-8)");
+
+        flock( $fh, Fcntl::LOCK_EX() )
+            or warn "Couldn't lock '$file' for reading: $!";
+
+        # truncate and spew contents
+        truncate $fh, 0;
+        seek $fh, 0, 0;
+    }
+    else {
+        open $fh, ">:unix:encoding(UTF-8)", $file;
+    }
+
+    # serialize and spew to the handle
+    print {$fh} $self->_dump_string;
+
+    # close the file (release the lock)
+    unless ( close $fh ) {
+        $self->_error("Failed to close file '$file': $!");
+    }
+
+    return 1;
+}
+
+# Save an object to a string
+sub _dump_string {
+    my $self = shift;
+    return '' unless ref $self && @$self;
+
+    # Iterate over the documents
+    my $indent = 0;
+    my @lines  = ();
+
+    eval {
+        foreach my $cursor ( @$self ) {
+            push @lines, '---';
+
+            # An empty document
+            if ( ! defined $cursor ) {
+                # Do nothing
+
+            # A scalar document
+            } elsif ( ! ref $cursor ) {
+                $lines[-1] .= ' ' . $self->_dump_scalar( $cursor );
+
+            # A list at the root
+            } elsif ( ref $cursor eq 'ARRAY' ) {
+                unless ( @$cursor ) {
+                    $lines[-1] .= ' []';
+                    next;
+                }
+                push @lines, $self->_dump_array( $cursor, $indent, {} );
+
+            # A hash at the root
+            } elsif ( ref $cursor eq 'HASH' ) {
+                unless ( %$cursor ) {
+                    $lines[-1] .= ' {}';
+                    next;
+                }
+                push @lines, $self->_dump_hash( $cursor, $indent, {} );
+
+            } else {
+                die \("Cannot serialize " . ref($cursor));
+            }
+        }
+    };
+    if ( ref $@ eq 'SCALAR' ) {
+        $self->_error(${$@});
+    } elsif ( $@ ) {
+        $self->_error($@);
+    }
+
+    join '', map { "$_\n" } @lines;
+}
+
+sub _has_internal_string_value {
+    my $value = shift;
+    my $b_obj = B::svref_2object(\$value);  # for round trip problem
+    return $b_obj->FLAGS & B::SVf_POK();
+}
+
+sub _dump_scalar {
+    my $string = $_[1];
+    my $is_key = $_[2];
+    # Check this before checking length or it winds up looking like a string!
+    my $has_string_flag = _has_internal_string_value($string);
+    return '~'  unless defined $string;
+    return "''" unless length  $string;
+    if (Scalar::Util::looks_like_number($string)) {
+        # keys and values that have been used as strings get quoted
+        if ( $is_key || $has_string_flag ) {
+            return qq['$string'];
+        }
+        else {
+            return $string;
+        }
+    }
+    if ( $string =~ /[\x00-\x09\x0b-\x0d\x0e-\x1f\x7f-\x9f\'\n]/ ) {
+        $string =~ s/\\/\\\\/g;
+        $string =~ s/"/\\"/g;
+        $string =~ s/\n/\\n/g;
+        $string =~ s/[\x85]/\\N/g;
+        $string =~ s/([\x00-\x1f])/\\$UNPRINTABLE[ord($1)]/g;
+        $string =~ s/([\x7f-\x9f])/'\x' . sprintf("%X",ord($1))/ge;
+        return qq|"$string"|;
+    }
+    if ( $string =~ /(?:^[~!@#%&*|>?:,'"`{}\[\]]|^-+$|\s|:\z)/ or
+        $QUOTE{$string}
+    ) {
+        return "'$string'";
+    }
+    return $string;
+}
+
+sub _dump_array {
+    my ($self, $array, $indent, $seen) = @_;
+    if ( $seen->{refaddr($array)}++ ) {
+        die \"CPAN::Meta::YAML does not support circular references";
+    }
+    my @lines  = ();
+    foreach my $el ( @$array ) {
+        my $line = ('  ' x $indent) . '-';
+        my $type = ref $el;
+        if ( ! $type ) {
+            $line .= ' ' . $self->_dump_scalar( $el );
+            push @lines, $line;
+
+        } elsif ( $type eq 'ARRAY' ) {
+            if ( @$el ) {
+                push @lines, $line;
+                push @lines, $self->_dump_array( $el, $indent + 1, $seen );
+            } else {
+                $line .= ' []';
+                push @lines, $line;
+            }
+
+        } elsif ( $type eq 'HASH' ) {
+            if ( keys %$el ) {
+                push @lines, $line;
+                push @lines, $self->_dump_hash( $el, $indent + 1, $seen );
+            } else {
+                $line .= ' {}';
+                push @lines, $line;
+            }
+
+        } else {
+            die \"CPAN::Meta::YAML does not support $type references";
+        }
+    }
+
+    @lines;
+}
+
+sub _dump_hash {
+    my ($self, $hash, $indent, $seen) = @_;
+    if ( $seen->{refaddr($hash)}++ ) {
+        die \"CPAN::Meta::YAML does not support circular references";
+    }
+    my @lines  = ();
+    foreach my $name ( sort keys %$hash ) {
+        my $el   = $hash->{$name};
+        my $line = ('  ' x $indent) . $self->_dump_scalar($name, 1) . ":";
+        my $type = ref $el;
+        if ( ! $type ) {
+            $line .= ' ' . $self->_dump_scalar( $el );
+            push @lines, $line;
+
+        } elsif ( $type eq 'ARRAY' ) {
+            if ( @$el ) {
+                push @lines, $line;
+                push @lines, $self->_dump_array( $el, $indent + 1, $seen );
+            } else {
+                $line .= ' []';
+                push @lines, $line;
+            }
+
+        } elsif ( $type eq 'HASH' ) {
+            if ( keys %$el ) {
+                push @lines, $line;
+                push @lines, $self->_dump_hash( $el, $indent + 1, $seen );
+            } else {
+                $line .= ' {}';
+                push @lines, $line;
+            }
+
+        } else {
+            die \"CPAN::Meta::YAML does not support $type references";
+        }
+    }
+
+    @lines;
+}
+
+
+
+#####################################################################
+# DEPRECATED API methods:
+
+# Error storage (DEPRECATED as of 1.57)
+our $errstr    = '';
+
+# Set error
+sub _error {
+    require Carp;
+    $errstr = $_[1];
+    $errstr =~ s/ at \S+ line \d+.*//;
+    Carp::croak( $errstr );
+}
+
+# Retrieve error
+my $errstr_warned;
+sub errstr {
+    require Carp;
+    Carp::carp( "CPAN::Meta::YAML->errstr and \$CPAN::Meta::YAML::errstr is deprecated" )
+        unless $errstr_warned++;
+    $errstr;
+}
+
+
+
+
+#####################################################################
+# Helper functions. Possibly not needed.
+
+
+# Use to detect nv or iv
+use B;
+
+# XXX-INGY Is flock CPAN::Meta::YAML's responsibility?
+# Some platforms can't flock :-(
+# XXX-XDG I think it is.  When reading and writing files, we ought
+# to be locking whenever possible.  People (foolishly) use YAML
+# files for things like session storage, which has race issues.
+my $HAS_FLOCK;
+sub _can_flock {
+    if ( defined $HAS_FLOCK ) {
+        return $HAS_FLOCK;
+    }
+    else {
+        require Config;
+        my $c = \%Config::Config;
+        $HAS_FLOCK = grep { $c->{$_} } qw/d_flock d_fcntl_can_lock d_lockf/;
+        require Fcntl if $HAS_FLOCK;
+        return $HAS_FLOCK;
+    }
+}
+
+
+# XXX-INGY Is this core in 5.8.1? Can we remove this?
+# XXX-XDG Scalar::Util 1.18 didn't land until 5.8.8, so we need this
+#####################################################################
+# Use Scalar::Util if possible, otherwise emulate it
+
+use Scalar::Util ();
+BEGIN {
+    local $@;
+    if ( eval { Scalar::Util->VERSION(1.18); } ) {
+        *refaddr = *Scalar::Util::refaddr;
+    }
+    else {
+        eval <<'END_PERL';
+# Scalar::Util failed to load or too old
+sub refaddr {
+    my $pkg = ref($_[0]) or return undef;
+    if ( !! UNIVERSAL::can($_[0], 'can') ) {
+        bless $_[0], 'Scalar::Util::Fake';
+    } else {
+        $pkg = undef;
+    }
+    "$_[0]" =~ /0x(\w+)/;
+    my $i = do { no warnings 'portable'; hex $1 };
+    bless $_[0], $pkg if defined $pkg;
+    $i;
+}
+END_PERL
+    }
+}
+
+delete $CPAN::Meta::YAML::{refaddr};
+
+1;
+
+# XXX-INGY Doc notes I'm putting up here. Changing the doc when it's wrong
+# but leaving grey area stuff up here.
+#
+# I would like to change Read/Write to Load/Dump below without
+# changing the actual API names.
+#
+# It might be better to put Load/Dump API in the SYNOPSIS instead of the
+# dubious OO API.
+#
+# null and bool explanations may be outdated.
+
+=pod
+
+=encoding UTF-8
+
+=head1 NAME
+
+CPAN::Meta::YAML - Read and write a subset of YAML for CPAN Meta files
+
+=head1 VERSION
+
+version 0.018
+
+=head1 SYNOPSIS
+
+    use CPAN::Meta::YAML;
+
+    # reading a META file
+    open $fh, "<:utf8", "META.yml";
+    $yaml_text = do { local $/; <$fh> };
+    $yaml = CPAN::Meta::YAML->read_string($yaml_text)
+      or die CPAN::Meta::YAML->errstr;
+
+    # finding the metadata
+    $meta = $yaml->[0];
+
+    # writing a META file
+    $yaml_text = $yaml->write_string
+      or die CPAN::Meta::YAML->errstr;
+    open $fh, ">:utf8", "META.yml";
+    print $fh $yaml_text;
+
+=head1 DESCRIPTION
+
+This module implements a subset of the YAML specification for use in reading
+and writing CPAN metadata files like F<META.yml> and F<MYMETA.yml>.  It should
+not be used for any other general YAML parsing or generation task.
+
+NOTE: F<META.yml> (and F<MYMETA.yml>) files should be UTF-8 encoded.  Users are
+responsible for proper encoding and decoding.  In particular, the C<read> and
+C<write> methods do B<not> support UTF-8 and should not be used.
+
+=head1 SUPPORT
+
+This module is currently derived from L<YAML::Tiny> by Adam Kennedy.  If
+there are bugs in how it parses a particular META.yml file, please file
+a bug report in the YAML::Tiny bugtracker:
+L<https://github.com/Perl-Toolchain-Gang/YAML-Tiny/issues>
+
+=head1 SEE ALSO
+
+L<YAML::Tiny>, L<YAML>, L<YAML::XS>
+
+=head1 AUTHORS
+
+=over 4
+
+=item *
+
+Adam Kennedy <adamk@cpan.org>
+
+=item *
+
+David Golden <dagolden@cpan.org>
+
+=back
+
+=head1 COPYRIGHT AND LICENSE
+
+This software is copyright (c) 2010 by Adam Kennedy.
+
+This is free software; you can redistribute it and/or modify it under
+the same terms as the Perl 5 programming language system itself.
+
+=cut
+
+__END__
+
+
+# ABSTRACT: Read and write a subset of YAML for CPAN Meta files
+
+
diff --git a/lib/5.24.1/CPAN/Mirrors.pm b/lib/5.24.1/CPAN/Mirrors.pm
new file mode 100644
index 00000000..37e7ce0e
--- /dev/null
+++ b/lib/5.24.1/CPAN/Mirrors.pm
@@ -0,0 +1,589 @@
+# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
+# vim: ts=4 sts=4 sw=4:
+=head1 NAME
+
+CPAN::Mirrors - Get CPAN mirror information and select a fast one
+
+=head1 SYNOPSIS
+
+    use CPAN::Mirrors;
+
+    my $mirrors = CPAN::Mirrors->new( $mirrored_by_file );
+
+    my $seen = {};
+
+    my $best_continent = $mirrors->find_best_continents( { seen => $seen } );
+    my @mirrors        = $mirrors->get_mirrors_by_continents( $best_continent );
+
+    my $callback = sub {
+        my( $m ) = @_;
+        printf "%s = %s\n", $m->hostname, $m->rtt
+        };
+    $mirrors->get_mirrors_timings( \@mirrors, $seen, $callback );
+
+    @mirrors = sort { $a->rtt <=> $b->rtt } @mirrors;
+
+    print "Best mirrors are ", map( { $_->rtt } @mirrors[0..3] ), "\n";
+
+=head1 DESCRIPTION
+
+=over
+
+=cut
+
+package CPAN::Mirrors;
+use strict;
+use vars qw($VERSION $urllist $silent);
+$VERSION = "1.9601";
+
+use Carp;
+use FileHandle;
+use Fcntl ":flock";
+use Net::Ping ();
+
+=item new( LOCAL_FILE_NAME )
+
+Create a new CPAN::Mirrors object from LOCAL_FILE_NAME. This file
+should look like that in http://www.cpan.org/MIRRORED.BY .
+
+=cut
+
+sub new {
+    my ($class, $file) = @_;
+    croak "CPAN::Mirrors->new requires a filename" unless defined $file;
+    croak "The file [$file] was not found" unless -e $file;
+
+    my $self = bless {
+        mirrors      => [],
+        geography    => {},
+    }, $class;
+
+    $self->parse_mirrored_by( $file );
+
+    return $self;
+}
+
+sub parse_mirrored_by {
+    my ($self, $file) = @_;
+    my $handle = FileHandle->new;
+    $handle->open($file)
+        or croak "Couldn't open $file: $!";
+    flock $handle, LOCK_SH;
+    $self->_parse($file,$handle);
+    flock $handle, LOCK_UN;
+    $handle->close;
+}
+
+=item continents()
+
+Return a list of continents based on those defined in F<MIRRORED.BY>.
+
+=cut
+
+sub continents {
+    my ($self) = @_;
+    return keys %{$self->{geography}};
+}
+
+=item countries( [CONTINENTS] )
+
+Return a list of countries based on those defined in F<MIRRORED.BY>.
+It only returns countries for the continents you specify (as defined
+in C<continents>). If you don't specify any continents, it returns all
+of the countries listed in F<MIRRORED.BY>.
+
+=cut
+
+sub countries {
+    my ($self, @continents) = @_;
+    @continents = $self->continents unless @continents;
+    my @countries;
+    for my $c (@continents) {
+        push @countries, keys %{ $self->{geography}{$c} };
+    }
+    return @countries;
+}
+
+=item mirrors( [COUNTRIES] )
+
+Return a list of mirrors based on those defined in F<MIRRORED.BY>.
+It only returns mirrors for the countries you specify (as defined
+in C<countries>). If you don't specify any countries, it returns all
+of the mirrors listed in F<MIRRORED.BY>.
+
+=cut
+
+sub mirrors {
+    my ($self, @countries) = @_;
+    return @{$self->{mirrors}} unless @countries;
+    my %wanted = map { $_ => 1 } @countries;
+    my @found;
+    for my $m (@{$self->{mirrors}}) {
+        push @found, $m if exists $wanted{$m->country};
+    }
+    return @found;
+}
+
+=item get_mirrors_by_countries( [COUNTRIES] )
+
+A more sensible synonym for mirrors.
+
+=cut
+
+sub get_mirrors_by_countries { &mirrors }
+
+=item get_mirrors_by_continents( [CONTINENTS] )
+
+Return a list of mirrors for all of continents you specify. If you don't
+specify any continents, it returns all of the mirrors.
+
+You can specify a single continent or an array reference of continents.
+
+=cut
+
+sub get_mirrors_by_continents {
+    my ($self, $continents ) = @_;
+    $continents = [ $continents ] unless ref $continents;
+
+    eval {
+        $self->mirrors( $self->get_countries_by_continents( @$continents ) );
+        };
+    }
+
+=item get_countries_by_continents( [CONTINENTS] )
+
+A more sensible synonym for countries.
+
+=cut
+
+sub get_countries_by_continents { &countries }
+
+=item default_mirror
+
+Returns the default mirror, http://www.cpan.org/ . This mirror uses
+dynamic DNS to give a close mirror.
+
+=cut
+
+sub default_mirror { 'http://www.cpan.org/' }
+
+=item best_mirrors
+
+C<best_mirrors> checks for the best mirrors based on the list of
+continents you pass, or, without that, all continents, as defined
+by C<CPAN::Mirrored::By>. It pings each mirror, up to the value of
+C<how_many>. In list context, it returns up to C<how_many> mirror.
+In scalar context, it returns the single best mirror.
+
+Arguments
+
+    how_many   - the number of mirrors to return. Default: 1
+    callback   - a callback for find_best_continents
+    verbose    - true or false on all the whining and moaning. Default: false
+    continents - an array ref of the continents to check
+
+If you don't specify the continents, C<best_mirrors> calls
+C<find_best_continents> to get the list of continents to check.
+
+If you don't have L<Net::Ping> v2.13 or later, needed for timings,
+this returns the default mirror.
+
+=cut
+
+sub best_mirrors {
+    my ($self, %args) = @_;
+    my $how_many      = $args{how_many} || 1;
+    my $callback      = $args{callback};
+    my $verbose       = defined $args{verbose} ? $args{verbose} : 0;
+    my $continents    = $args{continents} || [];
+       $continents    = [$continents] unless ref $continents;
+
+    # Old Net::Ping did not do timings at all
+    my $min_version = '2.13';
+    unless( Net::Ping->VERSION gt $min_version ) {
+        carp sprintf "Net::Ping version is %s (< %s). Returning %s",
+            Net::Ping->VERSION, $min_version, $self->default_mirror;
+        return $self->default_mirror;
+    }
+
+    my $seen = {};
+
+    if ( ! @$continents ) {
+        print "Searching for the best continent ...\n" if $verbose;
+        my @best_continents = $self->find_best_continents(
+            seen     => $seen,
+            verbose  => $verbose,
+            callback => $callback,
+            );
+
+        # Only add enough continents to find enough mirrors
+        my $count = 0;
+        for my $continent ( @best_continents ) {
+            push @$continents, $continent;
+            $count += $self->mirrors( $self->countries($continent) );
+            last if $count >= $how_many;
+        }
+    }
+
+    print "Scanning " . join(", ", @$continents) . " ...\n" if $verbose;
+
+    my $trial_mirrors = $self->get_n_random_mirrors_by_continents( 3 * $how_many, $continents->[0] );
+
+    my $timings = $self->get_mirrors_timings( $trial_mirrors, $seen, $callback );
+    return [] unless @$timings;
+
+    $how_many = @$timings if $how_many > @$timings;
+
+    return wantarray ? @{$timings}[0 .. $how_many-1] : $timings->[0];
+}
+
+=item get_n_random_mirrors_by_continents( N, [CONTINENTS] )
+
+Returns up to N random mirrors for the specified continents. Specify the
+continents as an array reference.
+
+=cut
+
+sub get_n_random_mirrors_by_continents {
+    my( $self, $n, $continents ) = @_;
+    $n ||= 3;
+    $continents = [ $continents ] unless ref $continents;
+
+    if ( $n <= 0 ) {
+        return wantarray ? () : [];
+    }
+
+    my @long_list = $self->get_mirrors_by_continents( $continents );
+
+    if ( $n eq '*' or $n > @long_list ) {
+        return wantarray ? @long_list : \@long_list;
+    }
+
+    @long_list = map  {$_->[0]}
+                 sort {$a->[1] <=> $b->[1]}
+                 map  {[$_, rand]} @long_list;
+
+    splice @long_list, $n; # truncate
+
+    \@long_list;
+}
+
+=item get_mirrors_timings( MIRROR_LIST, SEEN, CALLBACK );
+
+Pings the listed mirrors and returns a list of mirrors sorted in
+ascending ping times.
+
+C<MIRROR_LIST> is an anonymous array of C<CPAN::Mirrored::By> objects to
+ping.
+
+The optional argument C<SEEN> is a hash reference used to track the
+mirrors you've already pinged.
+
+The optional argument C<CALLBACK> is a subroutine reference to call
+after each ping. It gets the C<CPAN::Mirrored::By> object after each
+ping.
+
+=cut
+
+sub get_mirrors_timings {
+    my( $self, $mirror_list, $seen, $callback ) = @_;
+
+    $seen = {} unless defined $seen;
+    croak "The mirror list argument must be an array reference"
+        unless ref $mirror_list eq ref [];
+    croak "The seen argument must be a hash reference"
+        unless ref $seen eq ref {};
+    croak "callback must be a subroutine"
+        if( defined $callback and ref $callback ne ref sub {} );
+
+    my $timings = [];
+    for my $m ( @$mirror_list ) {
+        $seen->{$m->hostname} = $m;
+        next unless eval{ $m->http };
+
+        if( $self->_try_a_ping( $seen, $m, ) ) {
+            my $ping = $m->ping;
+            next unless defined $ping;
+            push @$timings, $m;
+            $callback->( $m ) if $callback;
+        }
+        else {
+            push @$timings, $seen->{$m->hostname}
+                if defined $seen->{$m->hostname}->rtt;
+        }
+    }
+
+    my @best = sort {
+           if( defined $a->rtt and defined $b->rtt )     {
+            $a->rtt <=> $b->rtt
+            }
+        elsif( defined $a->rtt and ! defined $b->rtt )   {
+            return -1;
+            }
+        elsif( ! defined $a->rtt and defined $b->rtt )   {
+            return 1;
+            }
+        elsif( ! defined $a->rtt and ! defined $b->rtt ) {
+            return 0;
+            }
+
+        } @$timings;
+
+    return wantarray ? @best : \@best;
+}
+
+=item find_best_continents( HASH_REF );
+
+C<find_best_continents> goes through each continent and pings C<N>
+random mirrors on that continent. It then orders the continents by
+ascending median ping time. In list context, it returns the ordered list
+of continent. In scalar context, it returns the same list as an
+anonymous array.
+
+Arguments:
+
+    n        - the number of hosts to ping for each continent. Default: 3
+    seen     - a hashref of cached hostname ping times
+    verbose  - true or false for noisy or quiet. Default: false
+    callback - a subroutine to run after each ping.
+    ping_cache_limit - how long, in seconds, to reuse previous ping times.
+        Default: 1 day
+
+The C<seen> hash has hostnames as keys and anonymous arrays as values.
+The anonymous array is a triplet of a C<CPAN::Mirrored::By> object, a
+ping time, and the epoch time for the measurement.
+
+The callback subroutine gets the C<CPAN::Mirrored::By> object, the ping
+time, and measurement time (the same things in the C<seen> hashref) as
+arguments. C<find_best_continents> doesn't care what the callback does
+and ignores the return value.
+
+With a low value for C<N>, a single mirror might skew the results enough
+to choose a worse continent. If you have that problem, try a larger
+value.
+
+=cut
+
+sub find_best_continents {
+    my ($self, %args) = @_;
+
+    $args{n}     ||=  3;
+    $args{verbose} = 0 unless defined $args{verbose};
+    $args{seen}    = {} unless defined $args{seen};
+    croak "The seen argument must be a hash reference"
+        unless ref $args{seen} eq ref {};
+    $args{ping_cache_limit} = 24 * 60 * 60
+        unless defined $args{ping_cache_time};
+    croak "callback must be a subroutine"
+        if( defined $args{callback} and ref $args{callback} ne ref sub {} );
+
+    my %medians;
+    CONT: for my $c ( $self->continents ) {
+        print "Testing $c\n" if $args{verbose};
+        my @mirrors = $self->mirrors( $self->countries($c) );
+
+        next CONT unless @mirrors;
+        my $n = (@mirrors < $args{n}) ? @mirrors : $args{n};
+
+        my @tests;
+        my $tries = 0;
+        RANDOM: while ( @mirrors && @tests < $n && $tries++ < 15 ) {
+            my $m = splice( @mirrors, int(rand(@mirrors)), 1 );
+           if( $self->_try_a_ping( $args{seen}, $m, $args{ping_cache_limit} ) ) {
+                $self->get_mirrors_timings( [ $m ], @args{qw(seen callback)} );
+                next RANDOM unless defined $args{seen}{$m->hostname}->rtt;
+            }
+            printf "\t%s -> %0.2f ms\n",
+                $m->hostname,
+                join ' ', 1000 * $args{seen}{$m->hostname}->rtt
+                    if $args{verbose};
+
+            push @tests, $args{seen}{$m->hostname}->rtt;
+        }
+
+        my $median = $self->_get_median_ping_time( \@tests, $args{verbose} );
+        $medians{$c} = $median if defined $median;
+    }
+
+    my @best_cont = sort { $medians{$a} <=> $medians{$b} } keys %medians;
+
+    if ( $args{verbose} ) {
+        print "Median result by continent:\n";
+        for my $c ( @best_cont ) {
+            printf( "  %4d ms  %s\n", int($medians{$c}*1000+.5), $c );
+        }
+    }
+
+    return wantarray ? @best_cont : $best_cont[0];
+}
+
+# retry if
+sub _try_a_ping {
+    my ($self, $seen, $mirror, $ping_cache_limit ) = @_;
+
+    ( ! exists $seen->{$mirror->hostname} )
+        or
+    (
+    ! defined $seen->{$mirror->hostname}->rtt
+        or
+    time - $seen->{$mirror->hostname}->rtt > $ping_cache_limit
+    )
+}
+
+sub _get_median_ping_time {
+    my ($self, $tests, $verbose ) = @_;
+
+    my @sorted = sort { $a <=> $b } @$tests;
+
+    my $median = do {
+           if ( @sorted == 0 ) { undef }
+        elsif ( @sorted == 1 ) { $sorted[0] }
+        elsif ( @sorted % 2 )  { $sorted[ int(@sorted / 2) ] }
+        else {
+            my $mid_high = int(@sorted/2);
+            ($sorted[$mid_high-1] + $sorted[$mid_high])/2;
+        }
+    };
+
+    printf "\t-->median time: %0.2f ms\n", $median * 1000 if $verbose;
+
+    return $median;
+}
+
+# Adapted from Parse::CPAN::MirroredBy by Adam Kennedy
+sub _parse {
+    my ($self, $file, $handle) = @_;
+    my $output = $self->{mirrors};
+    my $geo    = $self->{geography};
+
+    local $/ = "\012";
+    my $line = 0;
+    my $mirror = undef;
+    while ( 1 ) {
+        # Next line
+        my $string = <$handle>;
+        last if ! defined $string;
+        $line = $line + 1;
+
+        # Remove the useless lines
+        chomp( $string );
+        next if $string =~ /^\s*$/;
+        next if $string =~ /^\s*#/;
+
+        # Hostname or property?
+        if ( $string =~ /^\s/ ) {
+            # Property
+            unless ( $string =~ /^\s+(\w+)\s+=\s+\"(.*)\"$/ ) {
+                croak("Invalid property on line $line");
+            }
+            my ($prop, $value) = ($1,$2);
+            $mirror ||= {};
+            if ( $prop eq 'dst_location' ) {
+                my (@location,$continent,$country);
+                @location = (split /\s*,\s*/, $value)
+                    and ($continent, $country) = @location[-1,-2];
+                $continent =~ s/\s\(.*//;
+                $continent =~ s/\W+$//; # if Jarkko doesn't know latitude/longitude
+                $geo->{$continent}{$country} = 1 if $continent && $country;
+                $mirror->{continent} = $continent || "unknown";
+                $mirror->{country} = $country || "unknown";
+            }
+            elsif ( $prop eq 'dst_http' ) {
+                $mirror->{http} = $value;
+            }
+            elsif ( $prop eq 'dst_ftp' ) {
+                $mirror->{ftp} = $value;
+            }
+            elsif ( $prop eq 'dst_rsync' ) {
+                $mirror->{rsync} = $value;
+            }
+            else {
+                $prop =~ s/^dst_//;
+                $mirror->{$prop} = $value;
+            }
+        } else {
+            # Hostname
+            unless ( $string =~ /^([\w\.-]+)\:\s*$/ ) {
+                croak("Invalid host name on line $line");
+            }
+            my $current = $mirror;
+            $mirror     = { hostname => "$1" };
+            if ( $current ) {
+                push @$output, CPAN::Mirrored::By->new($current);
+            }
+        }
+    }
+    if ( $mirror ) {
+        push @$output, CPAN::Mirrored::By->new($mirror);
+    }
+
+    return;
+}
+
+#--------------------------------------------------------------------------#
+
+package CPAN::Mirrored::By;
+use strict;
+use Net::Ping   ();
+
+sub new {
+    my($self,$arg) = @_;
+    $arg ||= {};
+    bless $arg, $self;
+}
+sub hostname  { shift->{hostname}    }
+sub continent { shift->{continent}   }
+sub country   { shift->{country}     }
+sub http      { shift->{http}  || '' }
+sub ftp       { shift->{ftp}   || '' }
+sub rsync     { shift->{rsync} || '' }
+sub rtt       { shift->{rtt}         }
+sub ping_time { shift->{ping_time}   }
+
+sub url {
+    my $self = shift;
+    return $self->{http} || $self->{ftp};
+}
+
+sub ping {
+    my $self = shift;
+
+    my $ping = Net::Ping->new($^O eq 'VMS' ? 'icmp' : 'tcp', 1);
+    my ($proto) = $self->url =~ m{^([^:]+)};
+    my $port = $proto eq 'http' ? 80 : 21;
+    return unless $port;
+
+    if ( $ping->can('port_number') ) {
+        $ping->port_number($port);
+    }
+    else {
+        $ping->{'port_num'} = $port;
+    }
+
+    $ping->hires(1) if $ping->can('hires');
+    my ($alive,$rtt) = $ping->ping($self->hostname);
+
+    $self->{rtt} = $alive ? $rtt : undef;
+    $self->{ping_time} = time;
+
+    $self->rtt;
+}
+
+
+1;
+
+=back
+
+=head1 AUTHOR
+
+Andreas Koenig C<< <andk@cpan.org> >>, David Golden C<< <dagolden@cpan.org> >>,
+brian d foy C<< <bdfoy@cpan.org> >>
+
+=head1 LICENSE
+
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+See L<http://www.perl.com/perl/misc/Artistic.html>
+
+=cut
diff --git a/lib/5.24.1/CPAN/Module.pm b/lib/5.24.1/CPAN/Module.pm
new file mode 100644
index 00000000..bf1226c0
--- /dev/null
+++ b/lib/5.24.1/CPAN/Module.pm
@@ -0,0 +1,697 @@
+# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
+# vim: ts=4 sts=4 sw=4:
+package CPAN::Module;
+use strict;
+@CPAN::Module::ISA = qw(CPAN::InfoObj);
+
+use vars qw(
+            $VERSION
+);
+$VERSION = "5.5002";
+
+BEGIN {
+    # alarm() is not implemented in perl 5.6.x and earlier under Windows
+    *ALARM_IMPLEMENTED = sub () { $] >= 5.007 || $^O !~ /MSWin/ };
+}
+
+# Accessors
+#-> sub CPAN::Module::userid
+sub userid {
+    my $self = shift;
+    my $ro = $self->ro;
+    return unless $ro;
+    return $ro->{userid} || $ro->{CPAN_USERID};
+}
+#-> sub CPAN::Module::description
+sub description {
+    my $self = shift;
+    my $ro = $self->ro or return "";
+    $ro->{description}
+}
+
+#-> sub CPAN::Module::distribution
+sub distribution {
+    my($self) = @_;
+    CPAN::Shell->expand("Distribution",$self->cpan_file);
+}
+
+#-> sub CPAN::Module::_is_representative_module
+sub _is_representative_module {
+    my($self) = @_;
+    return $self->{_is_representative_module} if defined $self->{_is_representative_module};
+    my $pm = $self->cpan_file or return $self->{_is_representative_module} = 0;
+    $pm =~ s|.+/||;
+    $pm =~ s{\.(?:tar\.(bz2|gz|Z)|t(?:gz|bz)|zip)$}{}i; # see base_id
+    $pm =~ s|-\d+\.\d+.+$||;
+    $pm =~ s|-[\d\.]+$||;
+    $pm =~ s/-/::/g;
+    $self->{_is_representative_module} = $pm eq $self->{ID} ? 1 : 0;
+    # warn "DEBUG: $pm eq $self->{ID} => $self->{_is_representative_module}";
+    $self->{_is_representative_module};
+}
+
+#-> sub CPAN::Module::undelay
+sub undelay {
+    my $self = shift;
+    delete $self->{later};
+    if ( my $dist = CPAN::Shell->expand("Distribution", $self->cpan_file) ) {
+        $dist->undelay;
+    }
+}
+
+# mark as dirty/clean
+#-> sub CPAN::Module::color_cmd_tmps ;
+sub color_cmd_tmps {
+    my($self) = shift;
+    my($depth) = shift || 0;
+    my($color) = shift || 0;
+    my($ancestors) = shift || [];
+    # a module needs to recurse to its cpan_file
+
+    return if exists $self->{incommandcolor}
+        && $color==1
+        && $self->{incommandcolor}==$color;
+    return if $color==0 && !$self->{incommandcolor};
+    if ($color>=1) {
+        if ( $self->uptodate ) {
+            $self->{incommandcolor} = $color;
+            return;
+        } elsif (my $have_version = $self->available_version) {
+            # maybe what we have is good enough
+            if (@$ancestors) {
+                my $who_asked_for_me = $ancestors->[-1];
+                my $obj = CPAN::Shell->expandany($who_asked_for_me);
+                if (0) {
+                } elsif ($obj->isa("CPAN::Bundle")) {
+                    # bundles cannot specify a minimum version
+                    return;
+                } elsif ($obj->isa("CPAN::Distribution")) {
+                    if (my $prereq_pm = $obj->prereq_pm) {
+                        for my $k (keys %$prereq_pm) {
+                            if (my $want_version = $prereq_pm->{$k}{$self->id}) {
+                                if (CPAN::Version->vcmp($have_version,$want_version) >= 0) {
+                                    $self->{incommandcolor} = $color;
+                                    return;
+                                }
+                            }
+                        }
+                    }
+                }
+            }
+        }
+    } else {
+        $self->{incommandcolor} = $color; # set me before recursion,
+                                          # so we can break it
+    }
+    if ($depth>=$CPAN::MAX_RECURSION) {
+        die(CPAN::Exception::RecursiveDependency->new($ancestors));
+    }
+    # warn "color_cmd_tmps $depth $color " . $self->id; # sleep 1;
+
+    if ( my $dist = CPAN::Shell->expand("Distribution", $self->cpan_file) ) {
+        $dist->color_cmd_tmps($depth+1,$color,[@$ancestors, $self->id]);
+    }
+    # unreached code?
+    # if ($color==0) {
+    #    delete $self->{badtestcnt};
+    # }
+    $self->{incommandcolor} = $color;
+}
+
+#-> sub CPAN::Module::as_glimpse ;
+sub as_glimpse {
+    my($self) = @_;
+    my(@m);
+    my $class = ref($self);
+    $class =~ s/^CPAN:://;
+    my $color_on = "";
+    my $color_off = "";
+    if (
+        $CPAN::Shell::COLOR_REGISTERED
+        &&
+        $CPAN::META->has_inst("Term::ANSIColor")
+        &&
+        $self->description
+       ) {
+        $color_on = Term::ANSIColor::color("green");
+        $color_off = Term::ANSIColor::color("reset");
+    }
+    my $uptodateness = " ";
+    unless ($class eq "Bundle") {
+        my $u = $self->uptodate;
+        $uptodateness = $u ? "=" : "<" if defined $u;
+    };
+    my $id = do {
+        my $d = $self->distribution;
+        $d ? $d -> pretty_id : $self->cpan_userid;
+    };
+    push @m, sprintf("%-7s %1s %s%-22s%s (%s)\n",
+                     $class,
+                     $uptodateness,
+                     $color_on,
+                     $self->id,
+                     $color_off,
+                     $id,
+                    );
+    join "", @m;
+}
+
+#-> sub CPAN::Module::dslip_status
+sub dslip_status {
+    my($self) = @_;
+    my($stat);
+    # development status
+    @{$stat->{D}}{qw,i c a b R M S,}     = qw,idea
+                                              pre-alpha alpha beta released
+                                              mature standard,;
+    # support level
+    @{$stat->{S}}{qw,m d u n a,}         = qw,mailing-list
+                                              developer comp.lang.perl.*
+                                              none abandoned,;
+    # language
+    @{$stat->{L}}{qw,p c + o h,}         = qw,perl C C++ other hybrid,;
+    # interface
+    @{$stat->{I}}{qw,f r O p h n,}       = qw,functions
+                                              references+ties
+                                              object-oriented pragma
+                                              hybrid none,;
+    # public licence
+    @{$stat->{P}}{qw,p g l b a 2 o d r n,} = qw,Standard-Perl
+                                              GPL LGPL
+                                              BSD Artistic Artistic_2
+                                              open-source
+                                              distribution_allowed
+                                              restricted_distribution
+                                              no_licence,;
+    for my $x (qw(d s l i p)) {
+        $stat->{$x}{' '} = 'unknown';
+        $stat->{$x}{'?'} = 'unknown';
+    }
+    my $ro = $self->ro;
+    return +{} unless $ro && $ro->{statd};
+    return {
+            D  => $ro->{statd},
+            S  => $ro->{stats},
+            L  => $ro->{statl},
+            I  => $ro->{stati},
+            P  => $ro->{statp},
+            DV => $stat->{D}{$ro->{statd}},
+            SV => $stat->{S}{$ro->{stats}},
+            LV => $stat->{L}{$ro->{statl}},
+            IV => $stat->{I}{$ro->{stati}},
+            PV => $stat->{P}{$ro->{statp}},
+           };
+}
+
+#-> sub CPAN::Module::as_string ;
+sub as_string {
+    my($self) = @_;
+    my(@m);
+    CPAN->debug("$self entering as_string") if $CPAN::DEBUG;
+    my $class = ref($self);
+    $class =~ s/^CPAN:://;
+    local($^W) = 0;
+    push @m, $class, " id = $self->{ID}\n";
+    my $sprintf = "    %-12s %s\n";
+    push @m, sprintf($sprintf, 'DESCRIPTION', $self->description)
+        if $self->description;
+    my $sprintf2 = "    %-12s %s (%s)\n";
+    my($userid);
+    $userid = $self->userid;
+    if ( $userid ) {
+        my $author;
+        if ($author = CPAN::Shell->expand('Author',$userid)) {
+            my $email = "";
+            my $m; # old perls
+            if ($m = $author->email) {
+                $email = " <$m>";
+            }
+            push @m, sprintf(
+                             $sprintf2,
+                             'CPAN_USERID',
+                             $userid,
+                             $author->fullname . $email
+                            );
+        }
+    }
+    push @m, sprintf($sprintf, 'CPAN_VERSION', $self->cpan_version)
+        if $self->cpan_version;
+    if (my $cpan_file = $self->cpan_file) {
+        push @m, sprintf($sprintf, 'CPAN_FILE', $cpan_file);
+        if (my $dist = CPAN::Shell->expand("Distribution",$cpan_file)) {
+            my $upload_date = $dist->upload_date;
+            if ($upload_date) {
+                push @m, sprintf($sprintf, 'UPLOAD_DATE', $upload_date);
+            }
+        }
+    }
+    my $sprintf3 = "    %-12s %1s%1s%1s%1s%1s (%s,%s,%s,%s,%s)\n";
+    my $dslip = $self->dslip_status;
+    push @m, sprintf(
+                     $sprintf3,
+                     'DSLIP_STATUS',
+                     @{$dslip}{qw(D S L I P DV SV LV IV PV)},
+                    ) if $dslip->{D};
+    my $local_file = $self->inst_file;
+    unless ($self->{MANPAGE}) {
+        my $manpage;
+        if ($local_file) {
+            $manpage = $self->manpage_headline($local_file);
+        } else {
+            # If we have already untarred it, we should look there
+            my $dist = $CPAN::META->instance('CPAN::Distribution',
+                                             $self->cpan_file);
+            # warn "dist[$dist]";
+            # mff=manifest file; mfh=manifest handle
+            my($mff,$mfh);
+            if (
+                $dist->{build_dir}
+                and
+                (-f  ($mff = File::Spec->catfile($dist->{build_dir}, "MANIFEST")))
+                and
+                $mfh = FileHandle->new($mff)
+               ) {
+                CPAN->debug("mff[$mff]") if $CPAN::DEBUG;
+                my $lfre = $self->id; # local file RE
+                $lfre =~ s/::/./g;
+                $lfre .= "\\.pm\$";
+                my($lfl); # local file file
+                local $/ = "\n";
+                my(@mflines) = <$mfh>;
+                for (@mflines) {
+                    s/^\s+//;
+                    s/\s.*//s;
+                }
+                while (length($lfre)>5 and !$lfl) {
+                    ($lfl) = grep /$lfre/, @mflines;
+                    CPAN->debug("lfl[$lfl]lfre[$lfre]") if $CPAN::DEBUG;
+                    $lfre =~ s/.+?\.//;
+                }
+                $lfl =~ s/\s.*//; # remove comments
+                $lfl =~ s/\s+//g; # chomp would maybe be too system-specific
+                my $lfl_abs = File::Spec->catfile($dist->{build_dir},$lfl);
+                # warn "lfl_abs[$lfl_abs]";
+                if (-f $lfl_abs) {
+                    $manpage = $self->manpage_headline($lfl_abs);
+                }
+            }
+        }
+        $self->{MANPAGE} = $manpage if $manpage;
+    }
+    my($item);
+    for $item (qw/MANPAGE/) {
+        push @m, sprintf($sprintf, $item, $self->{$item})
+            if exists $self->{$item};
+    }
+    for $item (qw/CONTAINS/) {
+        push @m, sprintf($sprintf, $item, join(" ",@{$self->{$item}}))
+            if exists $self->{$item} && @{$self->{$item}};
+    }
+    push @m, sprintf($sprintf, 'INST_FILE',
+                     $local_file || "(not installed)");
+    push @m, sprintf($sprintf, 'INST_VERSION',
+                     $self->inst_version) if $local_file;
+    if (%{$CPAN::META->{is_tested}||{}}) { # XXX needs to be methodified somehow
+        my $available_file = $self->available_file;
+        if ($available_file && $available_file ne $local_file) {
+            push @m, sprintf($sprintf, 'AVAILABLE_FILE', $available_file);
+            push @m, sprintf($sprintf, 'AVAILABLE_VERSION', $self->available_version);
+        }
+    }
+    join "", @m, "\n";
+}
+
+#-> sub CPAN::Module::manpage_headline
+sub manpage_headline {
+    my($self,$local_file) = @_;
+    my(@local_file) = $local_file;
+    $local_file =~ s/\.pm(?!\n)\Z/.pod/;
+    push @local_file, $local_file;
+    my(@result,$locf);
+    for $locf (@local_file) {
+        next unless -f $locf;
+        my $fh = FileHandle->new($locf)
+            or $Carp::Frontend->mydie("Couldn't open $locf: $!");
+        my $inpod = 0;
+        local $/ = "\n";
+        while (<$fh>) {
+            $inpod = m/^=(?!head1\s+NAME\s*$)/ ? 0 :
+                m/^=head1\s+NAME\s*$/ ? 1 : $inpod;
+            next unless $inpod;
+            next if /^=/;
+            next if /^\s+$/;
+            chomp;
+            push @result, $_;
+        }
+        close $fh;
+        last if @result;
+    }
+    for (@result) {
+        s/^\s+//;
+        s/\s+$//;
+    }
+    join " ", @result;
+}
+
+#-> sub CPAN::Module::cpan_file ;
+# Note: also inherited by CPAN::Bundle
+sub cpan_file {
+    my $self = shift;
+    # CPAN->debug(sprintf "id[%s]", $self->id) if $CPAN::DEBUG;
+    unless ($self->ro) {
+        CPAN::Index->reload;
+    }
+    my $ro = $self->ro;
+    if ($ro && defined $ro->{CPAN_FILE}) {
+        return $ro->{CPAN_FILE};
+    } else {
+        my $userid = $self->userid;
+        if ( $userid ) {
+            if ($CPAN::META->exists("CPAN::Author",$userid)) {
+                my $author = $CPAN::META->instance("CPAN::Author",
+                                                   $userid);
+                my $fullname = $author->fullname;
+                my $email = $author->email;
+                unless (defined $fullname && defined $email) {
+                    return sprintf("Contact Author %s",
+                                   $userid,
+                                  );
+                }
+                return "Contact Author $fullname <$email>";
+            } else {
+                return "Contact Author $userid (Email address not available)";
+            }
+        } else {
+            return "N/A";
+        }
+    }
+}
+
+#-> sub CPAN::Module::cpan_version ;
+sub cpan_version {
+    my $self = shift;
+
+    my $ro = $self->ro;
+    unless ($ro) {
+        # Can happen with modules that are not on CPAN
+        $ro = {};
+    }
+    $ro->{CPAN_VERSION} = 'undef'
+        unless defined $ro->{CPAN_VERSION};
+    $ro->{CPAN_VERSION};
+}
+
+#-> sub CPAN::Module::force ;
+sub force {
+    my($self) = @_;
+    $self->{force_update} = 1;
+}
+
+#-> sub CPAN::Module::fforce ;
+sub fforce {
+    my($self) = @_;
+    $self->{force_update} = 2;
+}
+
+#-> sub CPAN::Module::notest ;
+sub notest {
+    my($self) = @_;
+    # $CPAN::Frontend->mywarn("XDEBUG: set notest for Module");
+    $self->{notest}++;
+}
+
+#-> sub CPAN::Module::rematein ;
+sub rematein {
+    my($self,$meth) = @_;
+    $CPAN::Frontend->myprint(sprintf("Running %s for module '%s'\n",
+                                     $meth,
+                                     $self->id));
+    my $cpan_file = $self->cpan_file;
+    if ($cpan_file eq "N/A" || $cpan_file =~ /^Contact Author/) {
+        $CPAN::Frontend->mywarn(sprintf qq{
+  The module %s isn\'t available on CPAN.
+
+  Either the module has not yet been uploaded to CPAN, or it is
+  temporary unavailable. Please contact the author to find out
+  more about the status. Try 'i %s'.
+},
+                                $self->id,
+                                $self->id,
+                               );
+        return;
+    }
+    my $pack = $CPAN::META->instance('CPAN::Distribution',$cpan_file);
+    $pack->called_for($self->id);
+    if (exists $self->{force_update}) {
+        if ($self->{force_update} == 2) {
+            $pack->fforce($meth);
+        } else {
+            $pack->force($meth);
+        }
+    }
+    $pack->notest($meth) if exists $self->{notest} && $self->{notest};
+
+    $pack->{reqtype} ||= "";
+    CPAN->debug("dist-reqtype[$pack->{reqtype}]".
+                "self-reqtype[$self->{reqtype}]") if $CPAN::DEBUG;
+        if ($pack->{reqtype}) {
+            if ($pack->{reqtype} eq "b" && $self->{reqtype} =~ /^[rc]$/) {
+                $pack->{reqtype} = $self->{reqtype};
+                if (
+                    exists $pack->{install}
+                    &&
+                    (
+                     UNIVERSAL::can($pack->{install},"failed") ?
+                     $pack->{install}->failed :
+                     $pack->{install} =~ /^NO/
+                    )
+                   ) {
+                    delete $pack->{install};
+                    $CPAN::Frontend->mywarn
+                        ("Promoting $pack->{ID} from 'build_requires' to 'requires'");
+                }
+            }
+        } else {
+            $pack->{reqtype} = $self->{reqtype};
+        }
+
+    my $success = eval {
+        $pack->$meth();
+    };
+    my $err = $@;
+    $pack->unforce if $pack->can("unforce") && exists $self->{force_update};
+    $pack->unnotest if $pack->can("unnotest") && exists $self->{notest};
+    delete $self->{force_update};
+    delete $self->{notest};
+    if ($err) {
+        die $err;
+    }
+    return $success;
+}
+
+#-> sub CPAN::Module::perldoc ;
+sub perldoc { shift->rematein('perldoc') }
+#-> sub CPAN::Module::readme ;
+sub readme  { shift->rematein('readme') }
+#-> sub CPAN::Module::look ;
+sub look    { shift->rematein('look') }
+#-> sub CPAN::Module::cvs_import ;
+sub cvs_import { shift->rematein('cvs_import') }
+#-> sub CPAN::Module::get ;
+sub get     { shift->rematein('get',@_) }
+#-> sub CPAN::Module::make ;
+sub make    { shift->rematein('make') }
+#-> sub CPAN::Module::test ;
+sub test   {
+    my $self = shift;
+    # $self->{badtestcnt} ||= 0;
+    $self->rematein('test',@_);
+}
+
+#-> sub CPAN::Module::deprecated_in_core ;
+sub deprecated_in_core {
+    my ($self) = @_;
+    return unless $CPAN::META->has_inst('Module::CoreList') && Module::CoreList->can('is_deprecated');
+    return Module::CoreList::is_deprecated($self->{ID});
+}
+
+#-> sub CPAN::Module::inst_deprecated;
+# Indicates whether the *installed* version of the module is a deprecated *and*
+# installed as part of the Perl core library path
+sub inst_deprecated {
+    my ($self) = @_;
+    my $inst_file = $self->inst_file or return;
+    return $self->deprecated_in_core && $self->_in_priv_or_arch($inst_file);
+}
+
+#-> sub CPAN::Module::uptodate ;
+sub uptodate {
+    my ($self) = @_;
+    local ($_);
+    my $inst = $self->inst_version or return 0;
+    my $cpan = $self->cpan_version;
+    return 0 if CPAN::Version->vgt($cpan,$inst) || $self->inst_deprecated;
+    CPAN->debug
+        (join
+         ("",
+          "returning uptodate. ",
+          "cpan[$cpan]inst[$inst]",
+         )) if $CPAN::DEBUG;
+    return 1;
+}
+
+# returns true if installed in privlib or archlib
+sub _in_priv_or_arch {
+    my($self,$inst_file) = @_;
+    foreach my $pair (
+        [qw(sitearchexp archlibexp)],
+        [qw(sitelibexp privlibexp)]
+    ) {
+        my ($site, $priv) = @Config::Config{@$pair};
+        if ($^O eq 'VMS') {
+            for my $d ($site, $priv) { $d = VMS::Filespec::unixify($d) };
+        }
+        s!/*$!!g foreach $site, $priv;
+        next if $site eq $priv;
+
+        if ($priv eq substr($inst_file,0,length($priv))) {
+            return 1;
+        }
+    }
+    return 0;
+}
+
+#-> sub CPAN::Module::install ;
+sub install {
+    my($self) = @_;
+    my($doit) = 0;
+    if ($self->uptodate
+        &&
+        not exists $self->{force_update}
+       ) {
+        $CPAN::Frontend->myprint(sprintf("%s is up to date (%s).\n",
+                                         $self->id,
+                                         $self->inst_version,
+                                        ));
+    } else {
+        $doit = 1;
+    }
+    my $ro = $self->ro;
+    if ($ro && $ro->{stats} && $ro->{stats} eq "a") {
+        $CPAN::Frontend->mywarn(qq{
+\n\n\n     ***WARNING***
+     The module $self->{ID} has no active maintainer (CPAN support level flag 'abandoned').\n\n\n
+});
+        $CPAN::Frontend->mysleep(5);
+    }
+    return $doit ? $self->rematein('install') : 1;
+}
+#-> sub CPAN::Module::clean ;
+sub clean  { shift->rematein('clean') }
+
+#-> sub CPAN::Module::inst_file ;
+sub inst_file {
+    my($self) = @_;
+    $self->_file_in_path([@INC]);
+}
+
+#-> sub CPAN::Module::available_file ;
+sub available_file {
+    my($self) = @_;
+    my $sep = $Config::Config{path_sep};
+    my $perllib = $ENV{PERL5LIB};
+    $perllib = $ENV{PERLLIB} unless defined $perllib;
+    my @perllib = split(/$sep/,$perllib) if defined $perllib;
+    my @cpan_perl5inc;
+    if ($CPAN::Perl5lib_tempfile) {
+        my $yaml = CPAN->_yaml_loadfile($CPAN::Perl5lib_tempfile);
+        @cpan_perl5inc = @{$yaml->[0]{inc} || []};
+    }
+    $self->_file_in_path([@cpan_perl5inc,@perllib,@INC]);
+}
+
+#-> sub CPAN::Module::file_in_path ;
+sub _file_in_path {
+    my($self,$path) = @_;
+    my($dir,@packpath);
+    @packpath = split /::/, $self->{ID};
+    $packpath[-1] .= ".pm";
+    if (@packpath == 1 && $packpath[0] eq "readline.pm") {
+        unshift @packpath, "Term", "ReadLine"; # historical reasons
+    }
+    foreach $dir (@$path) {
+        my $pmfile = File::Spec->catfile($dir,@packpath);
+        if (-f $pmfile) {
+            return $pmfile;
+        }
+    }
+    return;
+}
+
+#-> sub CPAN::Module::xs_file ;
+sub xs_file {
+    my($self) = @_;
+    my($dir,@packpath);
+    @packpath = split /::/, $self->{ID};
+    push @packpath, $packpath[-1];
+    $packpath[-1] .= "." . $Config::Config{'dlext'};
+    foreach $dir (@INC) {
+        my $xsfile = File::Spec->catfile($dir,'auto',@packpath);
+        if (-f $xsfile) {
+            return $xsfile;
+        }
+    }
+    return;
+}
+
+#-> sub CPAN::Module::inst_version ;
+sub inst_version {
+    my($self) = @_;
+    my $parsefile = $self->inst_file or return;
+    my $have = $self->parse_version($parsefile);
+    $have;
+}
+
+#-> sub CPAN::Module::inst_version ;
+sub available_version {
+    my($self) = @_;
+    my $parsefile = $self->available_file or return;
+    my $have = $self->parse_version($parsefile);
+    $have;
+}
+
+#-> sub CPAN::Module::parse_version ;
+sub parse_version {
+    my($self,$parsefile) = @_;
+    if (ALARM_IMPLEMENTED) {
+        my $timeout = (exists($CPAN::Config{'version_timeout'}))
+                            ? $CPAN::Config{'version_timeout'}
+                            : 15;
+        alarm($timeout);
+    }
+    my $have = eval {
+        local $SIG{ALRM} = sub { die "alarm\n" };
+        MM->parse_version($parsefile);
+    };
+    if ($@) {
+        $CPAN::Frontend->mywarn("Error while parsing version number in file '$parsefile'\n");
+    }
+    alarm(0) if ALARM_IMPLEMENTED;
+    my $leastsanity = eval { defined $have && length $have; };
+    $have = "undef" unless $leastsanity;
+    $have =~ s/^ //; # since the %vd hack these two lines here are needed
+    $have =~ s/ $//; # trailing whitespace happens all the time
+
+    $have = CPAN::Version->readable($have);
+
+    $have =~ s/\s*//g; # stringify to float around floating point issues
+    $have; # no stringify needed, \s* above matches always
+}
+
+#-> sub CPAN::Module::reports
+sub reports {
+    my($self) = @_;
+    $self->distribution->reports;
+}
+
+1;
diff --git a/lib/5.24.1/CPAN/Nox.pm b/lib/5.24.1/CPAN/Nox.pm
new file mode 100644
index 00000000..f7ed4a38
--- /dev/null
+++ b/lib/5.24.1/CPAN/Nox.pm
@@ -0,0 +1,52 @@
+package CPAN::Nox;
+use strict;
+use vars qw($VERSION @EXPORT);
+
+BEGIN{
+  $CPAN::Suppress_readline=1 unless defined $CPAN::term;
+}
+
+use Exporter ();
+@CPAN::ISA = ('Exporter');
+use CPAN;
+
+$VERSION = "5.5001";
+$CPAN::META->has_inst('Digest::MD5','no');
+$CPAN::META->has_inst('LWP','no');
+$CPAN::META->has_inst('Compress::Zlib','no');
+@EXPORT = @CPAN::EXPORT;
+
+*AUTOLOAD = \&CPAN::AUTOLOAD;
+
+1;
+
+__END__
+
+=head1 NAME
+
+CPAN::Nox - Wrapper around CPAN.pm without using any XS module
+
+=head1 SYNOPSIS
+
+Interactive mode:
+
+  perl -MCPAN::Nox -e shell;
+
+=head1 DESCRIPTION
+
+This package has the same functionality as CPAN.pm, but tries to
+prevent the usage of compiled extensions during its own
+execution. Its primary purpose is a rescue in case you upgraded perl
+and broke binary compatibility somehow.
+
+=head1 LICENSE
+
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+=head1  SEE ALSO
+
+L<CPAN>
+
+=cut
+
diff --git a/lib/5.24.1/CPAN/Plugin.pm b/lib/5.24.1/CPAN/Plugin.pm
new file mode 100644
index 00000000..646d86b2
--- /dev/null
+++ b/lib/5.24.1/CPAN/Plugin.pm
@@ -0,0 +1,145 @@
+package CPAN::Plugin;
+
+use strict;
+use warnings;
+
+our $VERSION = '0.95';
+
+require CPAN;
+
+######################################################################
+
+sub new {                                # ;
+    my ($class, %params) = @_;
+
+    my $self = +{
+        (ref $class ? (%$class) : ()),
+        %params,
+    };
+
+    $self = bless $self, ref $class ? ref $class : $class;
+
+    unless (ref $class) {
+        local $_;
+        no warnings 'once';
+        $CPAN::META->use_inst ($_) for $self->plugin_requires;
+    }
+
+    $self;
+}
+
+######################################################################
+sub plugin_requires {                    # ;
+}
+
+######################################################################
+sub distribution_object {                # ;
+    my ($self) = @_;
+    $self->{distribution_object};
+}
+
+######################################################################
+sub distribution {                       # ;
+    my ($self) = @_;
+
+    my $distribution = $self->distribution_object->id;
+    CPAN::Shell->expand("Distribution",$distribution)
+      or $self->frontend->mydie("Unknowns distribution '$distribution'\n");
+}
+
+######################################################################
+sub distribution_info {                  # ;
+    my ($self) = @_;
+
+    CPAN::DistnameInfo->new ($self->distribution->id);
+}
+
+######################################################################
+sub build_dir {                          # ;
+    my ($self) = @_;
+
+    my $build_dir = $self->distribution->{build_dir}
+      or $self->frontend->mydie("Distribution has not been built yet, cannot proceed");
+}
+
+######################################################################
+sub is_xs {                              #
+    my ($self) = @_;
+
+    my @xs = glob File::Spec->catfile ($self->build_dir, '*.xs'); # quick try
+
+    unless (@xs) {
+        require ExtUtils::Manifest;
+        my $manifest_file = File::Spec->catfile ($self->build_dir, "MANIFEST");
+        my $manifest = ExtUtils::Manifest::maniread($manifest_file);
+        @xs = grep /\.xs$/, keys %$manifest;
+    }
+
+    scalar @xs;
+}
+
+######################################################################
+
+package CPAN::Plugin;
+
+1;
+
+__END__
+
+=pod
+
+=head1 NAME
+
+CPAN::Plugin - Base class for CPAN shell extensions
+
+=head1 SYNOPSIS
+
+   package My::Plugin;
+   use base 'CPAN::Plugin';
+
+   sub post_test {
+     my ($self, $distribution_object) = @_;
+     $self = $self->new (distribution_object => $distribution_object);
+     ...;
+   }
+
+=head1 DESCRIPTION
+
+=head2 Alpha Status
+
+The plugin system in the CPAN shell was introduced in version 2.07 and
+is still considered experimental.
+
+=head2 How Plugins work?
+
+See L<CPAN/"Plugin support">.
+
+=head1 METHODS
+
+=head2 plugin_requires
+
+returns list of packages given plugin requires for functionality.
+This list is evaluated using C<CPAN->use_inst> method.
+
+=head2 distribution_object
+
+Get current distribution object.
+
+=head2 distribution
+
+=head2 distribution_info
+
+=head2 build_dir
+
+Simple delegatees for misc parameters derived from distribution
+
+=head2 is_xs
+
+Predicate to detect whether package contains XS.
+
+=head1 AUTHOR
+
+Branislav Zahradnik <barney@cpan.org>
+
+=cut
+
diff --git a/lib/5.24.1/CPAN/Plugin/Specfile.pm b/lib/5.24.1/CPAN/Plugin/Specfile.pm
new file mode 100644
index 00000000..f63d322c
--- /dev/null
+++ b/lib/5.24.1/CPAN/Plugin/Specfile.pm
@@ -0,0 +1,258 @@
+=head1 NAME
+
+CPAN::Plugin::Specfile - Proof of concept implementation of a trivial CPAN::Plugin
+
+=head1 SYNOPSIS
+
+  # once in the cpan shell
+  o conf plugin_list push CPAN::Plugin::Specfile
+
+  # make permanent
+  o conf commit
+
+  # any time in the cpan shell to write a spec file
+  test Acme::Meta
+
+  # disable
+  o conf plugin_list pop
+
+=head1 DESCRIPTION
+
+Implemented as a post-test hook, this plugin writes a specfile after
+every successful test run. The content is also written to the
+terminal.
+
+As a side effect, the timestamps of the written specfiles reflect the
+linear order of all dependencies.
+
+B<WARNING:> This code is just a small demo how to use the plugin
+system of the CPAN shell, not a full fledged spec file writer. Do not
+expect new features in this plugin.
+
+=head2 OPTIONS
+
+The target directory to store the spec files in can be set using C<dir>
+as in
+
+  o conf plugin_list push CPAN::Plugin::Specfile=dir,/tmp/specfiles-000042
+
+The default directory for this is the
+C<plugins/CPAN::Plugin::Specfile> directory in the I<cpan_home>
+directory.
+
+=head1 AUTHOR
+
+Andreas Koenig <andk@cpan.org>, Branislav Zahradnik <barney@cpan.org>
+
+=cut
+
+package CPAN::Plugin::Specfile;
+
+our $VERSION = '0.01';
+
+use File::Path;
+use File::Spec;
+
+sub __accessor {
+    my ($class, $key) = @_;
+    no strict 'refs';
+    *{$class . '::' . $key} = sub {
+        my $self = shift;
+        if (@_) {
+            $self->{$key} = shift;
+        }
+        return $self->{$key};
+    };
+}
+BEGIN { __PACKAGE__->__accessor($_) for qw(dir dir_default) }
+
+sub new {
+    my($class, @rest) = @_;
+    my $self = bless {}, $class;
+    while (my($arg,$val) = splice @rest, 0, 2) {
+        $self->$arg($val);
+    }
+    $self->dir_default(File::Spec->catdir($CPAN::Config->{cpan_home},"plugins",__PACKAGE__));
+    $self;
+}
+
+sub post_test {
+    my $self = shift;
+    my $distribution_object = shift;
+    my $distribution = $distribution_object->pretty_id;
+    unless ($CPAN::META->has_inst("CPAN::DistnameInfo")){
+        $CPAN::Frontend->mydie("CPAN::DistnameInfo not installed; cannot continue");
+    }
+    my $d = CPAN::Shell->expand("Distribution",$distribution)
+        or $CPAN::Frontend->mydie("Unknowns distribution '$distribution'\n");
+    my $build_dir = $d->{build_dir} or $CPAN::Frontend->mydie("Distribution has not been built yet, cannot proceed");
+    my %contains = map {($_ => undef)} $d->containsmods;
+    my @m;
+    my $width = 16;
+    my $header = sub {
+        my($header,$value) = @_;
+        push @m, sprintf("%-s:%*s%s\n", $header, $width-length($header), "", $value);
+    };
+    my $dni = CPAN::DistnameInfo->new($distribution);
+    my $dist = $dni->dist;
+    my $summary = CPAN::Shell->_guess_manpage($d,\%contains,$dist);
+    $header->("Name", "perl-$dist");
+    my $version = $dni->version;
+    $header->("Version", $version);
+    $header->("Release", "1%{?dist}");
+#Summary:        Template processing system
+#Group:          Development/Libraries
+#License:        GPL+ or Artistic
+#URL:            http://www.template-toolkit.org/
+#Source0:        http://search.cpan.org/CPAN/authors/id/A/AB/ABW/Template-Toolkit-%{version}.tar.gz
+#Patch0:         Template-2.22-SREZIC-01.patch
+#BuildRoot:      %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
+    for my $h_tuple
+        ([Summary    => $summary],
+         [Group      => "Development/Libraries"],
+         [License    =>],
+         [URL        =>],
+         [BuildRoot  => "%{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)"],
+         [Requires   => "perl(:MODULE_COMPAT_%(eval \"`%{__perl} -V:version`\"; echo \$version))"],
+        ) {
+        my($h,$v) = @$h_tuple;
+        $v = "unknown" unless defined $v;
+        $header->($h, $v);
+    }
+    $header->("Source0", sprintf(
+                                 "http://search.cpan.org/CPAN/authors/id/%s/%s/%s",
+                                 substr($distribution,0,1),
+                                 substr($distribution,0,2),
+                                 $distribution
+                                ));
+    require POSIX;
+    my @xs = glob "$build_dir/*.xs"; # quick try
+    unless (@xs) {
+        require ExtUtils::Manifest;
+        my $manifest_file = "$build_dir/MANIFEST";
+        my $manifest = ExtUtils::Manifest::maniread($manifest_file);
+        @xs = grep /\.xs$/, keys %$manifest;
+    }
+    if (! @xs) {
+        $header->('BuildArch', 'noarch');
+    }
+    for my $k (sort keys %contains) {
+        my $m = CPAN::Shell->expand("Module",$k);
+        my $v = $contains{$k} = $m->cpan_version;
+        my $vspec = $v eq "undef" ? "" : " = $v";
+        $header->("Provides", "perl($k)$vspec");
+    }
+    if (my $prereq_pm = $d->{prereq_pm}) {
+        my %req;
+        for my $reqkey (keys %$prereq_pm) {
+            while (my($k,$v) = each %{$prereq_pm->{$reqkey}}) {
+                $req{$k} = $v;
+            }
+        }
+        if (-e "$build_dir/Build.PL" && ! exists $req{"Module::Build"}) {
+            $req{"Module::Build"} = 0;
+        }
+        for my $k (sort keys %req) {
+            next if $k eq "perl";
+            my $v = $req{$k};
+            my $vspec = defined $v && length $v && $v > 0 ? " >= $v" : "";
+            $header->(BuildRequires => "perl($k)$vspec");
+            next if $k =~ /^(Module::Build)$/; # MB is always only a
+                                               # BuildRequires; if we
+                                               # turn it into a
+                                               # Requires, then we
+                                               # would have to make it
+                                               # a BuildRequires
+                                               # everywhere we depend
+                                               # on *one* MB built
+                                               # module.
+            $header->(Requires => "perl($k)$vspec");
+        }
+    }
+    push @m, "\n%define _use_internal_dependency_generator     0
+%define __find_requires %{nil}
+%define __find_provides %{nil}
+";
+    push @m, "\n%description\n%{summary}.\n";
+    push @m, "\n%prep\n%setup -q -n $dist-%{version}\n";
+    if (-e "$build_dir/Build.PL") {
+        # see http://www.redhat.com/archives/rpm-list/2002-July/msg00110.html about RPM_BUILD_ROOT vs %{buildroot}
+        push @m, <<'EOF';
+
+%build
+%{__perl} Build.PL --installdirs=vendor --libdoc installvendorman3dir
+./Build
+
+%install
+rm -rf $RPM_BUILD_ROOT
+./Build install destdir=$RPM_BUILD_ROOT create_packlist=0
+find $RPM_BUILD_ROOT -depth -type d -exec rmdir {} 2>/dev/null \;
+%{_fixperms} $RPM_BUILD_ROOT/*
+
+%check
+./Build test
+EOF
+    } elsif (-e "$build_dir/Makefile.PL") {
+        push @m, <<'EOF';
+
+%build
+%{__perl} Makefile.PL INSTALLDIRS=vendor
+make %{?_smp_mflags}
+
+%install
+rm -rf $RPM_BUILD_ROOT
+make pure_install DESTDIR=$RPM_BUILD_ROOT
+find $RPM_BUILD_ROOT -type f -name .packlist -exec rm -f {} ';'
+find $RPM_BUILD_ROOT -depth -type d -exec rmdir {} 2>/dev/null ';'
+%{_fixperms} $RPM_BUILD_ROOT/*
+
+%check
+make test
+EOF
+    } else {
+        $CPAN::Frontend->mydie("'$distribution' has neither a Build.PL nor a Makefile.PL\n");
+    }
+    push @m, "\n%clean\nrm -rf \$RPM_BUILD_ROOT\n";
+    my $vendorlib = @xs ? "vendorarch" : "vendorlib";
+    my $date = POSIX::strftime("%a %b %d %Y", gmtime);
+    my @doc = grep { -e "$build_dir/$_" } qw(README Changes);
+    my $exe_stanza = "\n";
+    if (my $exe_files = $d->_exe_files) {
+        if (@$exe_files) {
+            $exe_stanza = "%{_mandir}/man1/*.1*\n";
+            for my $e (@$exe_files) {
+                unless (CPAN->has_inst("File::Basename")) {
+                    $CPAN::Frontend->mydie("File::Basename not installed, cannot continue");
+                }
+                my $basename = File::Basename::basename($e);
+                $exe_stanza .= "/usr/bin/$basename\n";
+            }
+        }
+    }
+    push @m, <<EOF;
+
+%files
+%defattr(-,root,root,-)
+%doc @doc
+%{perl_$vendorlib}/*
+%{_mandir}/man3/*.3*
+$exe_stanza
+%changelog
+* $date  <specfile\@specfile.cpan.org> - $version-1
+- autogenerated by CPAN::Plugin::Specfile()
+
+EOF
+
+    my $ret = join "", @m;
+    $CPAN::Frontend->myprint($ret);
+    my $target_dir = $self->dir || $self->dir_default;
+    File::Path::mkpath($target_dir);
+    my $outfile = File::Spec->catfile($target_dir, "perl-$dist.spec");
+    open my $specout, ">", $outfile
+        or $CPAN::Frontend->mydie("Could not open >$outfile: $!");
+    print $specout $ret;
+    $CPAN::Frontend->myprint("Wrote $outfile");
+    $ret;
+}
+
+1;
diff --git a/lib/5.24.1/CPAN/Prompt.pm b/lib/5.24.1/CPAN/Prompt.pm
new file mode 100644
index 00000000..7a4e2d81
--- /dev/null
+++ b/lib/5.24.1/CPAN/Prompt.pm
@@ -0,0 +1,29 @@
+# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
+# vim: ts=4 sts=4 sw=4:
+package CPAN::Prompt;
+use overload '""' => "as_string";
+use vars qw($prompt);
+use vars qw(
+            $VERSION
+);
+$VERSION = "5.5";
+
+
+$prompt = "cpan> ";
+$CPAN::CurrentCommandId ||= 0;
+sub new {
+    bless {}, shift;
+}
+sub as_string {
+    my $word = "cpan";
+    unless ($CPAN::META->{LOCK}) {
+        $word = "nolock_cpan";
+    }
+    if ($CPAN::Config->{commandnumber_in_prompt}) {
+        sprintf "$word\[%d]> ", $CPAN::CurrentCommandId;
+    } else {
+        "$word> ";
+    }
+}
+
+1;
diff --git a/lib/5.24.1/CPAN/Queue.pm b/lib/5.24.1/CPAN/Queue.pm
new file mode 100644
index 00000000..8027d22d
--- /dev/null
+++ b/lib/5.24.1/CPAN/Queue.pm
@@ -0,0 +1,223 @@
+# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
+use strict;
+package CPAN::Queue::Item;
+
+# CPAN::Queue::Item::new ;
+sub new {
+    my($class,@attr) = @_;
+    my $self = bless { @attr }, $class;
+    return $self;
+}
+
+sub as_string {
+    my($self) = @_;
+    $self->{qmod};
+}
+
+# r => requires, b => build_requires, c => commandline
+sub reqtype {
+    my($self) = @_;
+    $self->{reqtype};
+}
+
+sub optional {
+    my($self) = @_;
+    $self->{optional};
+}
+
+package CPAN::Queue;
+
+# One use of the queue is to determine if we should or shouldn't
+# announce the availability of a new CPAN module
+
+# Now we try to use it for dependency tracking. For that to happen
+# we need to draw a dependency tree and do the leaves first. This can
+# easily be reached by running CPAN.pm recursively, but we don't want
+# to waste memory and run into deep recursion. So what we can do is
+# this:
+
+# CPAN::Queue is the package where the queue is maintained. Dependencies
+# often have high priority and must be brought to the head of the queue,
+# possibly by jumping the queue if they are already there. My first code
+# attempt tried to be extremely correct. Whenever a module needed
+# immediate treatment, I either unshifted it to the front of the queue,
+# or, if it was already in the queue, I spliced and let it bypass the
+# others. This became a too correct model that made it impossible to put
+# an item more than once into the queue. Why would you need that? Well,
+# you need temporary duplicates as the manager of the queue is a loop
+# that
+#
+#  (1) looks at the first item in the queue without shifting it off
+#
+#  (2) cares for the item
+#
+#  (3) removes the item from the queue, *even if its agenda failed and
+#      even if the item isn't the first in the queue anymore* (that way
+#      protecting against never ending queues)
+#
+# So if an item has prerequisites, the installation fails now, but we
+# want to retry later. That's easy if we have it twice in the queue.
+#
+# I also expect insane dependency situations where an item gets more
+# than two lives in the queue. Simplest example is triggered by 'install
+# Foo Foo Foo'. People make this kind of mistakes and I don't want to
+# get in the way. I wanted the queue manager to be a dumb servant, not
+# one that knows everything.
+#
+# Who would I tell in this model that the user wants to be asked before
+# processing? I can't attach that information to the module object,
+# because not modules are installed but distributions. So I'd have to
+# tell the distribution object that it should ask the user before
+# processing. Where would the question be triggered then? Most probably
+# in CPAN::Distribution::rematein.
+
+use vars qw{ @All $VERSION };
+$VERSION = "5.5002";
+
+# CPAN::Queue::queue_item ;
+sub queue_item {
+    my($class,@attr) = @_;
+    my $item = "$class\::Item"->new(@attr);
+    $class->qpush($item);
+    return 1;
+}
+
+# CPAN::Queue::qpush ;
+sub qpush {
+    my($class,$obj) = @_;
+    push @All, $obj;
+    CPAN->debug(sprintf("in new All[%s]",
+                        join("",map {sprintf " %s\[%s][%s]\n",$_->{qmod},$_->{reqtype},$_->{optional}} @All),
+                       )) if $CPAN::DEBUG;
+}
+
+# CPAN::Queue::first ;
+sub first {
+    my $obj = $All[0];
+    $obj;
+}
+
+# CPAN::Queue::delete_first ;
+sub delete_first {
+    my($class,$what) = @_;
+    my $i;
+    for my $i (0..$#All) {
+        if (  $All[$i]->{qmod} eq $what ) {
+            splice @All, $i, 1;
+            last;
+        }
+    }
+    CPAN->debug(sprintf("after delete_first mod[%s] All[%s]",
+                        $what,
+                        join("",map {sprintf " %s\[%s][%s]\n",$_->{qmod},$_->{reqtype},$_->{optional}} @All)
+                       )) if $CPAN::DEBUG;
+}
+
+# CPAN::Queue::jumpqueue ;
+sub jumpqueue {
+    my $class = shift;
+    my @what = @_;
+    CPAN->debug(sprintf("before jumpqueue All[%s] what[%s]",
+                        join("",map {sprintf " %s\[%s][%s]\n",$_->{qmod},$_->{reqtype},$_->{optional}} @All),
+                        join("",map {sprintf " %s\[%s][%s]\n",$_->{qmod},$_->{reqtype},$_->{optional}} @what),
+                       )) if $CPAN::DEBUG;
+    unless (defined $what[0]{reqtype}) {
+        # apparently it was not the Shell that sent us this enquiry,
+        # treat it as commandline
+        $what[0]{reqtype} = "c";
+    }
+    my $inherit_reqtype = $what[0]{reqtype} =~ /^(c|r)$/ ? "r" : "b";
+  WHAT: for my $what_tuple (@what) {
+        my($qmod,$reqtype,$optional) = @$what_tuple{qw(qmod reqtype optional)};
+        if ($reqtype eq "r"
+            &&
+            $inherit_reqtype eq "b"
+           ) {
+            $reqtype = "b";
+        }
+        my $jumped = 0;
+        for (my $i=0; $i<$#All;$i++) { #prevent deep recursion
+            if ($All[$i]{qmod} eq $qmod) {
+                $jumped++;
+            }
+        }
+        # high jumped values are normal for popular modules when
+        # dealing with large bundles: XML::Simple,
+        # namespace::autoclean, UNIVERSAL::require
+        CPAN->debug("qmod[$qmod]jumped[$jumped]") if $CPAN::DEBUG;
+        my $obj = "$class\::Item"->new(
+                                       qmod => $qmod,
+                                       reqtype => $reqtype,
+                                       optional => !! $optional,
+                                      );
+        unshift @All, $obj;
+    }
+    CPAN->debug(sprintf("after jumpqueue All[%s]",
+                        join("",map {sprintf " %s\[%s][%s]\n",$_->{qmod},$_->{reqtype},$_->{optional}} @All)
+                       )) if $CPAN::DEBUG;
+}
+
+# CPAN::Queue::exists ;
+sub exists {
+    my($self,$what) = @_;
+    my @all = map { $_->{qmod} } @All;
+    my $exists = grep { $_->{qmod} eq $what } @All;
+    # warn "in exists what[$what] all[@all] exists[$exists]";
+    $exists;
+}
+
+# CPAN::Queue::delete ;
+sub delete {
+    my($self,$mod) = @_;
+    @All = grep { $_->{qmod} ne $mod } @All;
+    CPAN->debug(sprintf("after delete mod[%s] All[%s]",
+                        $mod,
+                        join("",map {sprintf " %s\[%s][%s]\n",$_->{qmod},$_->{reqtype},$_->{optional}} @All)
+                       )) if $CPAN::DEBUG;
+}
+
+# CPAN::Queue::nullify_queue ;
+sub nullify_queue {
+    @All = ();
+}
+
+# CPAN::Queue::size ;
+sub size {
+    return scalar @All;
+}
+
+sub reqtype_of {
+    my($self,$mod) = @_;
+    my $best = "";
+    for my $item (grep { $_->{qmod} eq $mod } @All) {
+        my $c = $item->{reqtype};
+        if ($c eq "c") {
+            $best = $c;
+            last;
+        } elsif ($c eq "r") {
+            $best = $c;
+        } elsif ($c eq "b") {
+            if ($best eq "") {
+                $best = $c;
+            }
+        } else {
+            die "Panic: in reqtype_of: reqtype[$c] seen, should never happen";
+        }
+    }
+    return $best;
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+CPAN::Queue - internal queue support for CPAN.pm
+
+=head1 LICENSE
+
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+=cut
diff --git a/lib/5.24.1/CPAN/Shell.pm b/lib/5.24.1/CPAN/Shell.pm
new file mode 100644
index 00000000..43e2fb9f
--- /dev/null
+++ b/lib/5.24.1/CPAN/Shell.pm
@@ -0,0 +1,2067 @@
+package CPAN::Shell;
+use strict;
+
+# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
+# vim: ts=4 sts=4 sw=4:
+
+use vars qw(
+            $ADVANCED_QUERY
+            $AUTOLOAD
+            $COLOR_REGISTERED
+            $Help
+            $autoload_recursion
+            $reload
+            @ISA
+            @relo
+            $VERSION
+           );
+@relo =     (
+             "CPAN.pm",
+             "CPAN/Author.pm",
+             "CPAN/CacheMgr.pm",
+             "CPAN/Complete.pm",
+             "CPAN/Debug.pm",
+             "CPAN/DeferredCode.pm",
+             "CPAN/Distribution.pm",
+             "CPAN/Distroprefs.pm",
+             "CPAN/Distrostatus.pm",
+             "CPAN/Exception/RecursiveDependency.pm",
+             "CPAN/Exception/yaml_not_installed.pm",
+             "CPAN/FirstTime.pm",
+             "CPAN/FTP.pm",
+             "CPAN/FTP/netrc.pm",
+             "CPAN/HandleConfig.pm",
+             "CPAN/Index.pm",
+             "CPAN/InfoObj.pm",
+             "CPAN/Kwalify.pm",
+             "CPAN/LWP/UserAgent.pm",
+             "CPAN/Module.pm",
+             "CPAN/Prompt.pm",
+             "CPAN/Queue.pm",
+             "CPAN/Reporter/Config.pm",
+             "CPAN/Reporter/History.pm",
+             "CPAN/Reporter/PrereqCheck.pm",
+             "CPAN/Reporter.pm",
+             "CPAN/Shell.pm",
+             "CPAN/SQLite.pm",
+             "CPAN/Tarzip.pm",
+             "CPAN/Version.pm",
+            );
+$VERSION = "5.5005";
+# record the initial timestamp for reload.
+$reload = { map {$INC{$_} ? ($_,(stat $INC{$_})[9]) : ()} @relo };
+@CPAN::Shell::ISA = qw(CPAN::Debug);
+use Cwd qw(chdir);
+use Carp ();
+$COLOR_REGISTERED ||= 0;
+$Help = {
+         '?' => \"help",
+         '!' => "eval the rest of the line as perl",
+         a => "whois author",
+         autobundle => "write inventory into a bundle file",
+         b => "info about bundle",
+         bye => \"quit",
+         clean => "clean up a distribution's build directory",
+         # cvs_import
+         d => "info about a distribution",
+         # dump
+         exit => \"quit",
+         failed => "list all failed actions within current session",
+         fforce => "redo a command from scratch",
+         force => "redo a command",
+         get => "download a distribution",
+         h => \"help",
+         help => "overview over commands; 'help ...' explains specific commands",
+         hosts => "statistics about recently used hosts",
+         i => "info about authors/bundles/distributions/modules",
+         install => "install a distribution",
+         install_tested => "install all distributions tested OK",
+         is_tested => "list all distributions tested OK",
+         look => "open a subshell in a distribution's directory",
+         ls => "list distributions matching a fileglob",
+         m => "info about a module",
+         make => "make/build a distribution",
+         mkmyconfig => "write current config into a CPAN/MyConfig.pm file",
+         notest => "run a (usually install) command but leave out the test phase",
+         o => "'o conf ...' for config stuff; 'o debug ...' for debugging",
+         perldoc => "try to get a manpage for a module",
+         q => \"quit",
+         quit => "leave the cpan shell",
+         r => "review upgradable modules",
+         readme => "display the README of a distro with a pager",
+         recent => "show recent uploads to the CPAN",
+         # recompile
+         reload => "'reload cpan' or 'reload index'",
+         report => "test a distribution and send a test report to cpantesters",
+         reports => "info about reported tests from cpantesters",
+         # scripts
+         # smoke
+         test => "test a distribution",
+         u => "display uninstalled modules",
+         upgrade => "combine 'r' command with immediate installation",
+        };
+{
+    $autoload_recursion   ||= 0;
+
+    #-> sub CPAN::Shell::AUTOLOAD ;
+    sub AUTOLOAD { ## no critic
+        $autoload_recursion++;
+        my($l) = $AUTOLOAD;
+        my $class = shift(@_);
+        # warn "autoload[$l] class[$class]";
+        $l =~ s/.*:://;
+        if ($CPAN::Signal) {
+            warn "Refusing to autoload '$l' while signal pending";
+            $autoload_recursion--;
+            return;
+        }
+        if ($autoload_recursion > 1) {
+            my $fullcommand = join " ", map { "'$_'" } $l, @_;
+            warn "Refusing to autoload $fullcommand in recursion\n";
+            $autoload_recursion--;
+            return;
+        }
+        if ($l =~ /^w/) {
+            # XXX needs to be reconsidered
+            if ($CPAN::META->has_inst('CPAN::WAIT')) {
+                CPAN::WAIT->$l(@_);
+            } else {
+                $CPAN::Frontend->mywarn(qq{
+Commands starting with "w" require CPAN::WAIT to be installed.
+Please consider installing CPAN::WAIT to use the fulltext index.
+For this you just need to type
+    install CPAN::WAIT
+});
+            }
+        } else {
+            $CPAN::Frontend->mywarn(qq{Unknown shell command '$l'. }.
+                                    qq{Type ? for help.
+});
+        }
+        $autoload_recursion--;
+    }
+}
+
+
+#-> sub CPAN::Shell::h ;
+sub h {
+    my($class,$about) = @_;
+    if (defined $about) {
+        my $help;
+        if (exists $Help->{$about}) {
+            if (ref $Help->{$about}) { # aliases
+                $about = ${$Help->{$about}};
+            }
+            $help = $Help->{$about};
+        } else {
+            $help = "No help available";
+        }
+        $CPAN::Frontend->myprint("$about\: $help\n");
+    } else {
+        my $filler = " " x (80 - 28 - length($CPAN::VERSION));
+        $CPAN::Frontend->myprint(qq{
+Display Information $filler (ver $CPAN::VERSION)
+ command  argument          description
+ a,b,d,m  WORD or /REGEXP/  about authors, bundles, distributions, modules
+ i        WORD or /REGEXP/  about any of the above
+ ls       AUTHOR or GLOB    about files in the author's directory
+    (with WORD being a module, bundle or author name or a distribution
+    name of the form AUTHOR/DISTRIBUTION)
+
+Download, Test, Make, Install...
+ get      download                     clean    make clean
+ make     make (implies get)           look     open subshell in dist directory
+ test     make test (implies make)     readme   display these README files
+ install  make install (implies test)  perldoc  display POD documentation
+
+Upgrade
+ r        WORDs or /REGEXP/ or NONE    report updates for some/matching/all modules
+ upgrade  WORDs or /REGEXP/ or NONE    upgrade some/matching/all modules
+
+Pragmas
+ force  CMD    try hard to do command  fforce CMD    try harder
+ notest CMD    skip testing
+
+Other
+ h,?           display this menu       ! perl-code   eval a perl command
+ o conf [opt]  set and query options   q             quit the cpan shell
+ reload cpan   load CPAN.pm again      reload index  load newer indices
+ autobundle    Snapshot                recent        latest CPAN uploads});
+}
+}
+
+*help = \&h;
+
+#-> sub CPAN::Shell::a ;
+sub a {
+  my($self,@arg) = @_;
+  # authors are always UPPERCASE
+  for (@arg) {
+    $_ = uc $_ unless /=/;
+  }
+  $CPAN::Frontend->myprint($self->format_result('Author',@arg));
+}
+
+#-> sub CPAN::Shell::globls ;
+sub globls {
+    my($self,$s,$pragmas) = @_;
+    # ls is really very different, but we had it once as an ordinary
+    # command in the Shell (up to rev. 321) and we could not handle
+    # force well then
+    my(@accept,@preexpand);
+    if ($s =~ /[\*\?\/]/) {
+        if ($CPAN::META->has_inst("Text::Glob")) {
+            if (my($au,$pathglob) = $s =~ m|(.*?)/(.*)|) {
+                my $rau = Text::Glob::glob_to_regex(uc $au);
+                CPAN::Shell->debug("au[$au]pathglob[$pathglob]rau[$rau]")
+                      if $CPAN::DEBUG;
+                push @preexpand, map { $_->id . "/" . $pathglob }
+                    CPAN::Shell->expand_by_method('CPAN::Author',['id'],"/$rau/");
+            } else {
+                my $rau = Text::Glob::glob_to_regex(uc $s);
+                push @preexpand, map { $_->id }
+                    CPAN::Shell->expand_by_method('CPAN::Author',
+                                                  ['id'],
+                                                  "/$rau/");
+            }
+        } else {
+            $CPAN::Frontend->mydie("Text::Glob not installed, cannot proceed");
+        }
+    } else {
+        push @preexpand, uc $s;
+    }
+    for (@preexpand) {
+        unless (/^[A-Z0-9\-]+(\/|$)/i) {
+            $CPAN::Frontend->mywarn("ls command rejects argument $_: not an author\n");
+            next;
+        }
+        push @accept, $_;
+    }
+    my $silent = @accept>1;
+    my $last_alpha = "";
+    my @results;
+    for my $a (@accept) {
+        my($author,$pathglob);
+        if ($a =~ m|(.*?)/(.*)|) {
+            my $a2 = $1;
+            $pathglob = $2;
+            $author = CPAN::Shell->expand_by_method('CPAN::Author',
+                                                    ['id'],
+                                                    $a2)
+                or $CPAN::Frontend->mydie("No author found for $a2\n");
+        } else {
+            $author = CPAN::Shell->expand_by_method('CPAN::Author',
+                                                    ['id'],
+                                                    $a)
+                or $CPAN::Frontend->mydie("No author found for $a\n");
+        }
+        if ($silent) {
+            my $alpha = substr $author->id, 0, 1;
+            my $ad;
+            if ($alpha eq $last_alpha) {
+                $ad = "";
+            } else {
+                $ad = "[$alpha]";
+                $last_alpha = $alpha;
+            }
+            $CPAN::Frontend->myprint($ad);
+        }
+        for my $pragma (@$pragmas) {
+            if ($author->can($pragma)) {
+                $author->$pragma();
+            }
+        }
+        CPAN->debug("author[$author]pathglob[$pathglob]silent[$silent]") if $CPAN::DEBUG;
+        push @results, $author->ls($pathglob,$silent); # silent if
+                                                       # more than one
+                                                       # author
+        for my $pragma (@$pragmas) {
+            my $unpragma = "un$pragma";
+            if ($author->can($unpragma)) {
+                $author->$unpragma();
+            }
+        }
+    }
+    @results;
+}
+
+#-> sub CPAN::Shell::local_bundles ;
+sub local_bundles {
+    my($self,@which) = @_;
+    my($incdir,$bdir,$dh);
+    foreach $incdir ($CPAN::Config->{'cpan_home'},@INC) {
+        my @bbase = "Bundle";
+        while (my $bbase = shift @bbase) {
+            $bdir = File::Spec->catdir($incdir,split /::/, $bbase);
+            CPAN->debug("bdir[$bdir]\@bbase[@bbase]") if $CPAN::DEBUG;
+            if ($dh = DirHandle->new($bdir)) { # may fail
+                my($entry);
+                for $entry ($dh->read) {
+                    next if $entry =~ /^\./;
+                    next unless $entry =~ /^\w+(\.pm)?(?!\n)\Z/;
+                    if (-d File::Spec->catdir($bdir,$entry)) {
+                        push @bbase, "$bbase\::$entry";
+                    } else {
+                        next unless $entry =~ s/\.pm(?!\n)\Z//;
+                        $CPAN::META->instance('CPAN::Bundle',"$bbase\::$entry");
+                    }
+                }
+            }
+        }
+    }
+}
+
+#-> sub CPAN::Shell::b ;
+sub b {
+    my($self,@which) = @_;
+    CPAN->debug("which[@which]") if $CPAN::DEBUG;
+    $self->local_bundles;
+    $CPAN::Frontend->myprint($self->format_result('Bundle',@which));
+}
+
+#-> sub CPAN::Shell::d ;
+sub d { $CPAN::Frontend->myprint(shift->format_result('Distribution',@_));}
+
+#-> sub CPAN::Shell::m ;
+sub m { # emacs confused here }; sub mimimimimi { # emacs in sync here
+    my $self = shift;
+    my @m = @_;
+    for (@m) {
+        if (m|(?:\w+/)*\w+\.pm$|) { # same regexp in expandany
+            s/.pm$//;
+            s|/|::|g;
+        }
+    }
+    $CPAN::Frontend->myprint($self->format_result('Module',@m));
+}
+
+#-> sub CPAN::Shell::i ;
+sub i {
+    my($self) = shift;
+    my(@args) = @_;
+    @args = '/./' unless @args;
+    my(@result);
+    for my $type (qw/Bundle Distribution Module/) {
+        push @result, $self->expand($type,@args);
+    }
+    # Authors are always uppercase.
+    push @result, $self->expand("Author", map { uc $_ } @args);
+
+    my $result = @result == 1 ?
+        $result[0]->as_string :
+            @result == 0 ?
+                "No objects found of any type for argument @args\n" :
+                    join("",
+                         (map {$_->as_glimpse} @result),
+                         scalar @result, " items found\n",
+                        );
+    $CPAN::Frontend->myprint($result);
+}
+
+#-> sub CPAN::Shell::o ;
+
+# CPAN::Shell::o and CPAN::HandleConfig::edit are closely related. 'o
+# conf' calls through to CPAN::HandleConfig::edit. 'o conf' should
+# probably have been called 'set' and 'o debug' maybe 'set debug' or
+# 'debug'; 'o conf ARGS' calls ->edit in CPAN/HandleConfig.pm
+sub o {
+    my($self,$o_type,@o_what) = @_;
+    $o_type ||= "";
+    CPAN->debug("o_type[$o_type] o_what[".join(" | ",@o_what)."]\n");
+    if ($o_type eq 'conf') {
+        my($cfilter);
+        ($cfilter) = $o_what[0] =~ m|^/(.*)/$| if @o_what;
+        if (!@o_what or $cfilter) { # print all things, "o conf"
+            $cfilter ||= "";
+            my $qrfilter = eval 'qr/$cfilter/';
+            if ($@) {
+                $CPAN::Frontend->mydie("Cannot parse commandline: $@");
+            }
+            my($k,$v);
+            my $configpm = CPAN::HandleConfig->require_myconfig_or_config;
+            $CPAN::Frontend->myprint("\$CPAN::Config options from $configpm\:\n");
+            for $k (sort keys %CPAN::HandleConfig::can) {
+                next unless $k =~ /$qrfilter/;
+                $v = $CPAN::HandleConfig::can{$k};
+                $CPAN::Frontend->myprint(sprintf "    %-18s [%s]\n", $k, $v);
+            }
+            $CPAN::Frontend->myprint("\n");
+            for $k (sort keys %CPAN::HandleConfig::keys) {
+                next unless $k =~ /$qrfilter/;
+                CPAN::HandleConfig->prettyprint($k);
+            }
+            $CPAN::Frontend->myprint("\n");
+        } else {
+            if (CPAN::HandleConfig->edit(@o_what)) {
+            } else {
+                $CPAN::Frontend->myprint(qq{Type 'o conf' to view all configuration }.
+                                         qq{items\n\n});
+            }
+        }
+    } elsif ($o_type eq 'debug') {
+        my(%valid);
+        @o_what = () if defined $o_what[0] && $o_what[0] =~ /help/i;
+        if (@o_what) {
+            while (@o_what) {
+                my($what) = shift @o_what;
+                if ($what =~ s/^-// && exists $CPAN::DEBUG{$what}) {
+                    $CPAN::DEBUG &= $CPAN::DEBUG ^ $CPAN::DEBUG{$what};
+                    next;
+                }
+                if ( exists $CPAN::DEBUG{$what} ) {
+                    $CPAN::DEBUG |= $CPAN::DEBUG{$what};
+                } elsif ($what =~ /^\d/) {
+                    $CPAN::DEBUG = $what;
+                } elsif (lc $what eq 'all') {
+                    my($max) = 0;
+                    for (values %CPAN::DEBUG) {
+                        $max += $_;
+                    }
+                    $CPAN::DEBUG = $max;
+                } else {
+                    my($known) = 0;
+                    for (keys %CPAN::DEBUG) {
+                        next unless lc($_) eq lc($what);
+                        $CPAN::DEBUG |= $CPAN::DEBUG{$_};
+                        $known = 1;
+                    }
+                    $CPAN::Frontend->myprint("unknown argument [$what]\n")
+                        unless $known;
+                }
+            }
+        } else {
+            my $raw = "Valid options for debug are ".
+                join(", ",sort(keys %CPAN::DEBUG), 'all').
+                     qq{ or a number. Completion works on the options. }.
+                     qq{Case is ignored.};
+            require Text::Wrap;
+            $CPAN::Frontend->myprint(Text::Wrap::fill("","",$raw));
+            $CPAN::Frontend->myprint("\n\n");
+        }
+        if ($CPAN::DEBUG) {
+            $CPAN::Frontend->myprint("Options set for debugging ($CPAN::DEBUG):\n");
+            my($k,$v);
+            for $k (sort {$CPAN::DEBUG{$a} <=> $CPAN::DEBUG{$b}} keys %CPAN::DEBUG) {
+                $v = $CPAN::DEBUG{$k};
+                $CPAN::Frontend->myprint(sprintf "    %-14s(%s)\n", $k, $v)
+                    if $v & $CPAN::DEBUG;
+            }
+        } else {
+            $CPAN::Frontend->myprint("Debugging turned off completely.\n");
+        }
+    } else {
+        $CPAN::Frontend->myprint(qq{
+Known options:
+  conf    set or get configuration variables
+  debug   set or get debugging options
+});
+    }
+}
+
+# CPAN::Shell::paintdots_onreload
+sub paintdots_onreload {
+    my($ref) = shift;
+    sub {
+        if ( $_[0] =~ /[Ss]ubroutine ([\w:]+) redefined/ ) {
+            my($subr) = $1;
+            ++$$ref;
+            local($|) = 1;
+            # $CPAN::Frontend->myprint(".($subr)");
+            $CPAN::Frontend->myprint(".");
+            if ($subr =~ /\bshell\b/i) {
+                # warn "debug[$_[0]]";
+
+                # It would be nice if we could detect that a
+                # subroutine has actually changed, but for now we
+                # practically always set the GOTOSHELL global
+
+                $CPAN::GOTOSHELL=1;
+            }
+            return;
+        }
+        warn @_;
+    };
+}
+
+#-> sub CPAN::Shell::hosts ;
+sub hosts {
+    my($self) = @_;
+    my $fullstats = CPAN::FTP->_ftp_statistics();
+    my $history = $fullstats->{history} || [];
+    my %S; # statistics
+    while (my $last = pop @$history) {
+        my $attempts = $last->{attempts} or next;
+        my $start;
+        if (@$attempts) {
+            $start = $attempts->[-1]{start};
+            if ($#$attempts > 0) {
+                for my $i (0..$#$attempts-1) {
+                    my $url = $attempts->[$i]{url} or next;
+                    $S{no}{$url}++;
+                }
+            }
+        } else {
+            $start = $last->{start};
+        }
+        next unless $last->{thesiteurl}; # C-C? bad filenames?
+        $S{start} = $start;
+        $S{end} ||= $last->{end};
+        my $dltime = $last->{end} - $start;
+        my $dlsize = $last->{filesize} || 0;
+        my $url = ref $last->{thesiteurl} ? $last->{thesiteurl}->text : $last->{thesiteurl};
+        my $s = $S{ok}{$url} ||= {};
+        $s->{n}++;
+        $s->{dlsize} ||= 0;
+        $s->{dlsize} += $dlsize/1024;
+        $s->{dltime} ||= 0;
+        $s->{dltime} += $dltime;
+    }
+    my $res;
+    for my $url (keys %{$S{ok}}) {
+        next if $S{ok}{$url}{dltime} == 0; # div by zero
+        push @{$res->{ok}}, [@{$S{ok}{$url}}{qw(n dlsize dltime)},
+                             $S{ok}{$url}{dlsize}/$S{ok}{$url}{dltime},
+                             $url,
+                            ];
+    }
+    for my $url (keys %{$S{no}}) {
+        push @{$res->{no}}, [$S{no}{$url},
+                             $url,
+                            ];
+    }
+    my $R = ""; # report
+    if ($S{start} && $S{end}) {
+        $R .= sprintf "Log starts: %s\n", $S{start} ? scalar(localtime $S{start}) : "unknown";
+        $R .= sprintf "Log ends  : %s\n", $S{end}   ? scalar(localtime $S{end})   : "unknown";
+    }
+    if ($res->{ok} && @{$res->{ok}}) {
+        $R .= sprintf "\nSuccessful downloads:
+   N       kB  secs      kB/s url\n";
+        my $i = 20;
+        for (sort { $b->[3] <=> $a->[3] } @{$res->{ok}}) {
+            $R .= sprintf "%4d %8d %5d %9.1f %s\n", @$_;
+            last if --$i<=0;
+        }
+    }
+    if ($res->{no} && @{$res->{no}}) {
+        $R .= sprintf "\nUnsuccessful downloads:\n";
+        my $i = 20;
+        for (sort { $b->[0] <=> $a->[0] } @{$res->{no}}) {
+            $R .= sprintf "%4d %s\n", @$_;
+            last if --$i<=0;
+        }
+    }
+    $CPAN::Frontend->myprint($R);
+}
+
+# here is where 'reload cpan' is done
+#-> sub CPAN::Shell::reload ;
+sub reload {
+    my($self,$command,@arg) = @_;
+    $command ||= "";
+    $self->debug("self[$self]command[$command]arg[@arg]") if $CPAN::DEBUG;
+    if ($command =~ /^cpan$/i) {
+        my $redef = 0;
+        chdir $CPAN::iCwd if $CPAN::iCwd; # may fail
+        my $failed;
+      MFILE: for my $f (@relo) {
+            next unless exists $INC{$f};
+            my $p = $f;
+            $p =~ s/\.pm$//;
+            $p =~ s|/|::|g;
+            $CPAN::Frontend->myprint("($p");
+            local($SIG{__WARN__}) = paintdots_onreload(\$redef);
+            $self->_reload_this($f) or $failed++;
+            my $v = eval "$p\::->VERSION";
+            $CPAN::Frontend->myprint("v$v)");
+        }
+        $CPAN::Frontend->myprint("\n$redef subroutines redefined\n");
+        if ($failed) {
+            my $errors = $failed == 1 ? "error" : "errors";
+            $CPAN::Frontend->mywarn("\n$failed $errors during reload. You better quit ".
+                                    "this session.\n");
+        }
+    } elsif ($command =~ /^index$/i) {
+      CPAN::Index->force_reload;
+    } else {
+      $CPAN::Frontend->myprint(qq{cpan     re-evals the CPAN modules
+index    re-reads the index files\n});
+    }
+}
+
+# reload means only load again what we have loaded before
+#-> sub CPAN::Shell::_reload_this ;
+sub _reload_this {
+    my($self,$f,$args) = @_;
+    CPAN->debug("f[$f]") if $CPAN::DEBUG;
+    return 1 unless $INC{$f}; # we never loaded this, so we do not
+                              # reload but say OK
+    my $pwd = CPAN::anycwd();
+    CPAN->debug("pwd[$pwd]") if $CPAN::DEBUG;
+    my($file);
+    for my $inc (@INC) {
+        $file = File::Spec->catfile($inc,split /\//, $f);
+        last if -f $file;
+        $file = "";
+    }
+    CPAN->debug("file[$file]") if $CPAN::DEBUG;
+    my @inc = @INC;
+    unless ($file && -f $file) {
+        # this thingy is not in the INC path, maybe CPAN/MyConfig.pm?
+        $file = $INC{$f};
+        unless (CPAN->has_inst("File::Basename")) {
+            @inc = File::Basename::dirname($file);
+        } else {
+            # do we ever need this?
+            @inc = substr($file,0,-length($f)-1); # bring in back to me!
+        }
+    }
+    CPAN->debug("file[$file]inc[@inc]") if $CPAN::DEBUG;
+    unless (-f $file) {
+        $CPAN::Frontend->mywarn("Found no file to reload for '$f'\n");
+        return;
+    }
+    my $mtime = (stat $file)[9];
+    $reload->{$f} ||= -1;
+    my $must_reload = $mtime != $reload->{$f};
+    $args ||= {};
+    $must_reload ||= $args->{reloforce}; # o conf defaults needs this
+    if ($must_reload) {
+        my $fh = FileHandle->new($file) or
+            $CPAN::Frontend->mydie("Could not open $file: $!");
+        my $content;
+        {
+            local($/);
+            local $^W = 1;
+            $content = <$fh>;
+        }
+        CPAN->debug(sprintf("reload file[%s] content[%s...]",$file,substr($content,0,128)))
+            if $CPAN::DEBUG;
+        delete $INC{$f};
+        local @INC = @inc;
+        eval "require '$f'";
+        if ($@) {
+            warn $@;
+            return;
+        }
+        $reload->{$f} = $mtime;
+    } else {
+        $CPAN::Frontend->myprint("__unchanged__");
+    }
+    return 1;
+}
+
+#-> sub CPAN::Shell::mkmyconfig ;
+sub mkmyconfig {
+    my($self) = @_;
+    if ( my $configpm = $INC{'CPAN/MyConfig.pm'} ) {
+        $CPAN::Frontend->myprint(
+            "CPAN::MyConfig already exists as $configpm.\n" .
+            "Running configuration again...\n"
+        );
+        require CPAN::FirstTime;
+        CPAN::FirstTime::init($configpm);
+    }
+    else {
+        # force some missing values to be filled in with defaults
+        delete $CPAN::Config->{$_}
+            for qw/build_dir cpan_home keep_source_where histfile/;
+        CPAN::HandleConfig->load( make_myconfig => 1 );
+    }
+}
+
+#-> sub CPAN::Shell::_binary_extensions ;
+sub _binary_extensions {
+    my($self) = shift @_;
+    my(@result,$module,%seen,%need,$headerdone);
+    for $module ($self->expand('Module','/./')) {
+        my $file  = $module->cpan_file;
+        next if $file eq "N/A";
+        next if $file =~ /^Contact Author/;
+        my $dist = $CPAN::META->instance('CPAN::Distribution',$file);
+        next if $dist->isa_perl;
+        next unless $module->xs_file;
+        local($|) = 1;
+        $CPAN::Frontend->myprint(".");
+        push @result, $module;
+    }
+#    print join " | ", @result;
+    $CPAN::Frontend->myprint("\n");
+    return @result;
+}
+
+#-> sub CPAN::Shell::recompile ;
+sub recompile {
+    my($self) = shift @_;
+    my($module,@module,$cpan_file,%dist);
+    @module = $self->_binary_extensions();
+    for $module (@module) { # we force now and compile later, so we
+                            # don't do it twice
+        $cpan_file = $module->cpan_file;
+        my $pack = $CPAN::META->instance('CPAN::Distribution',$cpan_file);
+        $pack->force;
+        $dist{$cpan_file}++;
+    }
+    for $cpan_file (sort keys %dist) {
+        $CPAN::Frontend->myprint("  CPAN: Recompiling $cpan_file\n\n");
+        my $pack = $CPAN::META->instance('CPAN::Distribution',$cpan_file);
+        $pack->install;
+        $CPAN::Signal = 0; # it's tempting to reset Signal, so we can
+                           # stop a package from recompiling,
+                           # e.g. IO-1.12 when we have perl5.003_10
+    }
+}
+
+#-> sub CPAN::Shell::scripts ;
+sub scripts {
+    my($self, $arg) = @_;
+    $CPAN::Frontend->mywarn(">>>> experimental command, currently unsupported <<<<\n\n");
+
+    for my $req (qw( HTML::LinkExtor Sort::Versions List::Util )) {
+        unless ($CPAN::META->has_inst($req)) {
+            $CPAN::Frontend->mywarn("  $req not available\n");
+        }
+    }
+    my $p = HTML::LinkExtor->new();
+    my $indexfile = "/home/ftp/pub/PAUSE/scripts/new/index.html";
+    unless (-f $indexfile) {
+        $CPAN::Frontend->mydie("found no indexfile[$indexfile]\n");
+    }
+    $p->parse_file($indexfile);
+    my @hrefs;
+    my $qrarg;
+    if ($arg =~ s|^/(.+)/$|$1|) {
+        $qrarg = eval 'qr/$arg/'; # hide construct from 5.004
+    }
+    for my $l ($p->links) {
+        my $tag = shift @$l;
+        next unless $tag eq "a";
+        my %att = @$l;
+        my $href = $att{href};
+        next unless $href =~ s|^\.\./authors/id/./../||;
+        if ($arg) {
+            if ($qrarg) {
+                if ($href =~ $qrarg) {
+                    push @hrefs, $href;
+                }
+            } else {
+                if ($href =~ /\Q$arg\E/) {
+                    push @hrefs, $href;
+                }
+            }
+        } else {
+            push @hrefs, $href;
+        }
+    }
+    # now filter for the latest version if there is more than one of a name
+    my %stems;
+    for (sort @hrefs) {
+        my $href = $_;
+        s/-v?\d.*//;
+        my $stem = $_;
+        $stems{$stem} ||= [];
+        push @{$stems{$stem}}, $href;
+    }
+    for (sort keys %stems) {
+        my $highest;
+        if (@{$stems{$_}} > 1) {
+            $highest = List::Util::reduce {
+                Sort::Versions::versioncmp($a,$b) > 0 ? $a : $b
+              } @{$stems{$_}};
+        } else {
+            $highest = $stems{$_}[0];
+        }
+        $CPAN::Frontend->myprint("$highest\n");
+    }
+}
+
+sub _guess_manpage {
+    my($self,$d,$contains,$dist) = @_;
+    $dist =~ s/-/::/g;
+    my $module;
+    if (exists $contains->{$dist}) {
+        $module = $dist;
+    } elsif (1 == keys %$contains) {
+        ($module) = keys %$contains;
+    }
+    my $manpage;
+    if ($module) {
+        my $m = $self->expand("Module",$module);
+        $m->as_string; # called for side-effects, shame
+        $manpage = $m->{MANPAGE};
+    } else {
+        $manpage = "unknown";
+    }
+    return $manpage;
+}
+
+#-> sub CPAN::Shell::_specfile ;
+sub _specfile {
+    die "CPAN::Shell::_specfile() has been moved to CPAN::Plugin::Specfile::post_test()";
+}
+
+#-> sub CPAN::Shell::report ;
+sub report {
+    my($self,@args) = @_;
+    unless ($CPAN::META->has_inst("CPAN::Reporter")) {
+        $CPAN::Frontend->mydie("CPAN::Reporter not installed; cannot continue");
+    }
+    local $CPAN::Config->{test_report} = 1;
+    $self->force("test",@args); # force is there so that the test be
+                                # re-run (as documented)
+}
+
+# compare with is_tested
+#-> sub CPAN::Shell::install_tested
+sub install_tested {
+    my($self,@some) = @_;
+    $CPAN::Frontend->mywarn("install_tested() must not be called with arguments.\n"),
+        return if @some;
+    CPAN::Index->reload;
+
+    for my $b (reverse $CPAN::META->_list_sorted_descending_is_tested) {
+        my $yaml = "$b.yml";
+        unless (-f $yaml) {
+            $CPAN::Frontend->mywarn("No YAML file for $b available, skipping\n");
+            next;
+        }
+        my $yaml_content = CPAN->_yaml_loadfile($yaml);
+        my $id = $yaml_content->[0]{distribution}{ID};
+        unless ($id) {
+            $CPAN::Frontend->mywarn("No ID found in '$yaml', skipping\n");
+            next;
+        }
+        my $do = CPAN::Shell->expandany($id);
+        unless ($do) {
+            $CPAN::Frontend->mywarn("Could not expand ID '$id', skipping\n");
+            next;
+        }
+        unless ($do->{build_dir}) {
+            $CPAN::Frontend->mywarn("Distro '$id' has no build_dir, skipping\n");
+            next;
+        }
+        unless ($do->{build_dir} eq $b) {
+            $CPAN::Frontend->mywarn("Distro '$id' has build_dir '$do->{build_dir}' but expected '$b', skipping\n");
+            next;
+        }
+        push @some, $do;
+    }
+
+    $CPAN::Frontend->mywarn("No tested distributions found.\n"),
+        return unless @some;
+
+    @some = grep { $_->{make_test} && ! $_->{make_test}->failed } @some;
+    $CPAN::Frontend->mywarn("No distributions tested with this build of perl found.\n"),
+        return unless @some;
+
+    # @some = grep { not $_->uptodate } @some;
+    # $CPAN::Frontend->mywarn("No non-uptodate distributions tested with this build of perl found.\n"),
+    #     return unless @some;
+
+    CPAN->debug("some[@some]");
+    for my $d (@some) {
+        my $id = $d->can("pretty_id") ? $d->pretty_id : $d->id;
+        $CPAN::Frontend->myprint("install_tested: Running for $id\n");
+        $CPAN::Frontend->mysleep(1);
+        $self->install($d);
+    }
+}
+
+#-> sub CPAN::Shell::upgrade ;
+sub upgrade {
+    my($self,@args) = @_;
+    $self->install($self->r(@args));
+}
+
+#-> sub CPAN::Shell::_u_r_common ;
+sub _u_r_common {
+    my($self) = shift @_;
+    my($what) = shift @_;
+    CPAN->debug("self[$self] what[$what] args[@_]") if $CPAN::DEBUG;
+    Carp::croak "Usage: \$obj->_u_r_common(a|r|u)" unless
+          $what && $what =~ /^[aru]$/;
+    my(@args) = @_;
+    @args = '/./' unless @args;
+    my(@result,$module,%seen,%need,$headerdone,
+       $version_undefs,$version_zeroes,
+       @version_undefs,@version_zeroes);
+    $version_undefs = $version_zeroes = 0;
+    my $sprintf = "%s%-25s%s %9s %9s  %s\n";
+    my @expand = $self->expand('Module',@args);
+    if ($CPAN::DEBUG) { # Looks like noise to me, was very useful for debugging
+             # for metadata cache
+        my $expand = scalar @expand;
+        $CPAN::Frontend->myprint(sprintf "%d matches in the database, time[%d]\n", $expand, time);
+    }
+    my @sexpand;
+    if ($] < 5.008) {
+        # hard to believe that the more complex sorting can lead to
+        # stack curruptions on older perl
+        @sexpand = sort {$a->id cmp $b->id} @expand;
+    } else {
+        @sexpand = map {
+            $_->[1]
+        } sort {
+            $b->[0] <=> $a->[0]
+            ||
+            $a->[1]{ID} cmp $b->[1]{ID},
+        } map {
+            [$_->_is_representative_module,
+             $_
+            ]
+        } @expand;
+    }
+    if ($CPAN::DEBUG) {
+        $CPAN::Frontend->myprint(sprintf "sorted at time[%d]\n", time);
+        sleep 1;
+    }
+  MODULE: for $module (@sexpand) {
+        my $file  = $module->cpan_file;
+        next MODULE unless defined $file; # ??
+        $file =~ s!^./../!!;
+        my($latest) = $module->cpan_version;
+        my($inst_file) = $module->inst_file;
+        CPAN->debug("file[$file]latest[$latest]") if $CPAN::DEBUG;
+        my($have);
+        return if $CPAN::Signal;
+        my($next_MODULE);
+        eval { # version.pm involved!
+            if ($inst_file) {
+                if ($what eq "a") {
+                    $have = $module->inst_version;
+                } elsif ($what eq "r") {
+                    $have = $module->inst_version;
+                    local($^W) = 0;
+                    if ($have eq "undef") {
+                        $version_undefs++;
+                        push @version_undefs, $module->as_glimpse;
+                    } elsif (CPAN::Version->vcmp($have,0)==0) {
+                        $version_zeroes++;
+                        push @version_zeroes, $module->as_glimpse;
+                    }
+                    ++$next_MODULE unless CPAN::Version->vgt($latest, $have);
+                    # to be pedantic we should probably say:
+                    #    && !($have eq "undef" && $latest ne "undef" && $latest gt "");
+                    # to catch the case where CPAN has a version 0 and we have a version undef
+                } elsif ($what eq "u") {
+                    ++$next_MODULE;
+                }
+            } else {
+                if ($what eq "a") {
+                    ++$next_MODULE;
+                } elsif ($what eq "r") {
+                    ++$next_MODULE;
+                } elsif ($what eq "u") {
+                    $have = "-";
+                }
+            }
+        };
+        next MODULE if $next_MODULE;
+        if ($@) {
+            $CPAN::Frontend->mywarn
+                (sprintf("Error while comparing cpan/installed versions of '%s':
+INST_FILE: %s
+INST_VERSION: %s %s
+CPAN_VERSION: %s %s
+",
+                         $module->id,
+                         $inst_file || "",
+                         (defined $have ? $have : "[UNDEFINED]"),
+                         (ref $have ? ref $have : ""),
+                         $latest,
+                         (ref $latest ? ref $latest : ""),
+                        ));
+            next MODULE;
+        }
+        return if $CPAN::Signal; # this is sometimes lengthy
+        $seen{$file} ||= 0;
+        if ($what eq "a") {
+            push @result, sprintf "%s %s\n", $module->id, $have;
+        } elsif ($what eq "r") {
+            push @result, $module->id;
+            next MODULE if $seen{$file}++;
+        } elsif ($what eq "u") {
+            push @result, $module->id;
+            next MODULE if $seen{$file}++;
+            next MODULE if $file =~ /^Contact/;
+        }
+        unless ($headerdone++) {
+            $CPAN::Frontend->myprint("\n");
+            $CPAN::Frontend->myprint(sprintf(
+                                             $sprintf,
+                                             "",
+                                             "Package namespace",
+                                             "",
+                                             "installed",
+                                             "latest",
+                                             "in CPAN file"
+                                            ));
+        }
+        my $color_on = "";
+        my $color_off = "";
+        if (
+            $COLOR_REGISTERED
+            &&
+            $CPAN::META->has_inst("Term::ANSIColor")
+            &&
+            $module->description
+           ) {
+            $color_on = Term::ANSIColor::color("green");
+            $color_off = Term::ANSIColor::color("reset");
+        }
+        $CPAN::Frontend->myprint(sprintf $sprintf,
+                                 $color_on,
+                                 $module->id,
+                                 $color_off,
+                                 $have,
+                                 $latest,
+                                 $file);
+        $need{$module->id}++;
+    }
+    unless (%need) {
+        if ($what eq "u") {
+            $CPAN::Frontend->myprint("No modules found for @args\n");
+        } elsif ($what eq "r") {
+            $CPAN::Frontend->myprint("All modules are up to date for @args\n");
+        }
+    }
+    if ($what eq "r") {
+        if ($version_zeroes) {
+            my $s_has = $version_zeroes > 1 ? "s have" : " has";
+            $CPAN::Frontend->myprint(qq{$version_zeroes installed module$s_has }.
+                                     qq{a version number of 0\n});
+            if ($CPAN::Config->{show_zero_versions}) {
+                local $" = "\t";
+                $CPAN::Frontend->myprint(qq{  they are\n\t@version_zeroes\n});
+                $CPAN::Frontend->myprint(qq{(use 'o conf show_zero_versions 0' }.
+                                         qq{to hide them)\n});
+            } else {
+                $CPAN::Frontend->myprint(qq{(use 'o conf show_zero_versions 1' }.
+                                         qq{to show them)\n});
+            }
+        }
+        if ($version_undefs) {
+            my $s_has = $version_undefs > 1 ? "s have" : " has";
+            $CPAN::Frontend->myprint(qq{$version_undefs installed module$s_has no }.
+                                     qq{parsable version number\n});
+            if ($CPAN::Config->{show_unparsable_versions}) {
+                local $" = "\t";
+                $CPAN::Frontend->myprint(qq{  they are\n\t@version_undefs\n});
+                $CPAN::Frontend->myprint(qq{(use 'o conf show_unparsable_versions 0' }.
+                                         qq{to hide them)\n});
+            } else {
+                $CPAN::Frontend->myprint(qq{(use 'o conf show_unparsable_versions 1' }.
+                                         qq{to show them)\n});
+            }
+        }
+    }
+    @result;
+}
+
+#-> sub CPAN::Shell::r ;
+sub r {
+    shift->_u_r_common("r",@_);
+}
+
+#-> sub CPAN::Shell::u ;
+sub u {
+    shift->_u_r_common("u",@_);
+}
+
+#-> sub CPAN::Shell::failed ;
+sub failed {
+    my($self,$only_id,$silent) = @_;
+    my @failed = $self->find_failed($only_id);
+    my $scope;
+    if ($only_id) {
+        $scope = "this command";
+    } elsif ($CPAN::Index::HAVE_REANIMATED) {
+        $scope = "this or a previous session";
+        # it might be nice to have a section for previous session and
+        # a second for this
+    } else {
+        $scope = "this session";
+    }
+    if (@failed) {
+        my $print;
+        my $debug = 0;
+        if ($debug) {
+            $print = join "",
+                map { sprintf "%5d %-45s: %s %s\n", @$_ }
+                    sort { $a->[0] <=> $b->[0] } @failed;
+        } else {
+            $print = join "",
+                map { sprintf " %-45s: %s %s\n", @$_[1..3] }
+                    sort {
+                        $a->[0] <=> $b->[0]
+                            ||
+                                $a->[4] <=> $b->[4]
+                       } @failed;
+        }
+        $CPAN::Frontend->myprint("Failed during $scope:\n$print");
+    } elsif (!$only_id || !$silent) {
+        $CPAN::Frontend->myprint("Nothing failed in $scope\n");
+    }
+}
+
+sub find_failed {
+    my($self,$only_id) = @_;
+    my @failed;
+  DIST: for my $d ($CPAN::META->all_objects("CPAN::Distribution")) {
+        my $failed = "";
+      NAY: for my $nosayer ( # order matters!
+                            "unwrapped",
+                            "writemakefile",
+                            "signature_verify",
+                            "make",
+                            "make_test",
+                            "install",
+                            "make_clean",
+                           ) {
+            next unless exists $d->{$nosayer};
+            next unless defined $d->{$nosayer};
+            next unless (
+                         UNIVERSAL::can($d->{$nosayer},"failed") ?
+                         $d->{$nosayer}->failed :
+                         $d->{$nosayer} =~ /^NO/
+                        );
+            next NAY if $only_id && $only_id != (
+                                                 UNIVERSAL::can($d->{$nosayer},"commandid")
+                                                 ?
+                                                 $d->{$nosayer}->commandid
+                                                 :
+                                                 $CPAN::CurrentCommandId
+                                                );
+            $failed = $nosayer;
+            last;
+        }
+        next DIST unless $failed;
+        my $id = $d->id;
+        $id =~ s|^./../||;
+        ### XXX need to flag optional modules as '(optional)' if they are
+        # from recommends/suggests -- i.e. *show* failure, but make it clear
+        # it was failure of optional module -- xdg, 2012-04-01
+        $id = "(optional) $id" if ! $d->{mandatory};
+        #$print .= sprintf(
+        #                  "  %-45s: %s %s\n",
+        push @failed,
+            (
+             UNIVERSAL::can($d->{$failed},"failed") ?
+             [
+              $d->{$failed}->commandid,
+              $id,
+              $failed,
+              $d->{$failed}->text,
+              $d->{$failed}{TIME}||0,
+              !! $d->{mandatory},
+             ] :
+             [
+              1,
+              $id,
+              $failed,
+              $d->{$failed},
+              0,
+              !! $d->{mandatory},
+             ]
+            );
+    }
+    return @failed;
+}
+
+sub mandatory_dist_failed {
+    my ($self) = @_;
+    return grep { $_->[5] } $self->find_failed($CPAN::CurrentCommandID);
+}
+
+# XXX intentionally undocumented because completely bogus, unportable,
+# useless, etc.
+
+#-> sub CPAN::Shell::status ;
+sub status {
+    my($self) = @_;
+    require Devel::Size;
+    my $ps = FileHandle->new;
+    open $ps, "/proc/$$/status";
+    my $vm = 0;
+    while (<$ps>) {
+        next unless /VmSize:\s+(\d+)/;
+        $vm = $1;
+        last;
+    }
+    $CPAN::Frontend->mywarn(sprintf(
+                                    "%-27s %6d\n%-27s %6d\n",
+                                    "vm",
+                                    $vm,
+                                    "CPAN::META",
+                                    Devel::Size::total_size($CPAN::META)/1024,
+                                   ));
+    for my $k (sort keys %$CPAN::META) {
+        next unless substr($k,0,4) eq "read";
+        warn sprintf " %-26s %6d\n", $k, Devel::Size::total_size($CPAN::META->{$k})/1024;
+        for my $k2 (sort keys %{$CPAN::META->{$k}}) {
+            warn sprintf "  %-25s %6d (keys: %6d)\n",
+                $k2,
+                    Devel::Size::total_size($CPAN::META->{$k}{$k2})/1024,
+                          scalar keys %{$CPAN::META->{$k}{$k2}};
+        }
+    }
+}
+
+# compare with install_tested
+#-> sub CPAN::Shell::is_tested
+sub is_tested {
+    my($self) = @_;
+    CPAN::Index->reload;
+    for my $b (reverse $CPAN::META->_list_sorted_descending_is_tested) {
+        my $time;
+        if ($CPAN::META->{is_tested}{$b}) {
+            $time = scalar(localtime $CPAN::META->{is_tested}{$b});
+        } else {
+            $time = scalar localtime;
+            $time =~ s/\S/?/g;
+        }
+        $CPAN::Frontend->myprint(sprintf "%s %s\n", $time, $b);
+    }
+}
+
+#-> sub CPAN::Shell::autobundle ;
+sub autobundle {
+    my($self) = shift;
+    CPAN::HandleConfig->load unless $CPAN::Config_loaded++;
+    my(@bundle) = $self->_u_r_common("a",@_);
+    my($todir) = File::Spec->catdir($CPAN::Config->{'cpan_home'},"Bundle");
+    File::Path::mkpath($todir);
+    unless (-d $todir) {
+        $CPAN::Frontend->myprint("Couldn't mkdir $todir for some reason\n");
+        return;
+    }
+    my($y,$m,$d) =  (localtime)[5,4,3];
+    $y+=1900;
+    $m++;
+    my($c) = 0;
+    my($me) = sprintf "Snapshot_%04d_%02d_%02d_%02d", $y, $m, $d, $c;
+    my($to) = File::Spec->catfile($todir,"$me.pm");
+    while (-f $to) {
+        $me = sprintf "Snapshot_%04d_%02d_%02d_%02d", $y, $m, $d, ++$c;
+        $to = File::Spec->catfile($todir,"$me.pm");
+    }
+    my($fh) = FileHandle->new(">$to") or Carp::croak "Can't open >$to: $!";
+    $fh->print(
+               "package Bundle::$me;\n\n",
+               "\$","VERSION = '0.01';\n\n", # hide from perl-reversion
+               "1;\n\n",
+               "__END__\n\n",
+               "=head1 NAME\n\n",
+               "Bundle::$me - Snapshot of installation on ",
+               $Config::Config{'myhostname'},
+               " on ",
+               scalar(localtime),
+               "\n\n=head1 SYNOPSIS\n\n",
+               "perl -MCPAN -e 'install Bundle::$me'\n\n",
+               "=head1 CONTENTS\n\n",
+               join("\n", @bundle),
+               "\n\n=head1 CONFIGURATION\n\n",
+               Config->myconfig,
+               "\n\n=head1 AUTHOR\n\n",
+               "This Bundle has been generated automatically ",
+               "by the autobundle routine in CPAN.pm.\n",
+              );
+    $fh->close;
+    $CPAN::Frontend->myprint("\nWrote bundle file
+    $to\n\n");
+    return $to;
+}
+
+#-> sub CPAN::Shell::expandany ;
+sub expandany {
+    my($self,$s) = @_;
+    CPAN->debug("s[$s]") if $CPAN::DEBUG;
+    my $module_as_path = "";
+    if ($s =~ m|(?:\w+/)*\w+\.pm$|) { # same regexp in sub m
+        $module_as_path = $s;
+        $module_as_path =~ s/.pm$//;
+        $module_as_path =~ s|/|::|g;
+    }
+    if ($module_as_path) {
+        if ($module_as_path =~ m|^Bundle::|) {
+            $self->local_bundles;
+            return $self->expand('Bundle',$module_as_path);
+        } else {
+            return $self->expand('Module',$module_as_path)
+                if $CPAN::META->exists('CPAN::Module',$module_as_path);
+        }
+    } elsif ($s =~ m|/| or substr($s,-1,1) eq ".") { # looks like a file or a directory
+        $s = CPAN::Distribution->normalize($s);
+        return $CPAN::META->instance('CPAN::Distribution',$s);
+        # Distributions spring into existence, not expand
+    } elsif ($s =~ m|^Bundle::|) {
+        $self->local_bundles; # scanning so late for bundles seems
+                              # both attractive and crumpy: always
+                              # current state but easy to forget
+                              # somewhere
+        return $self->expand('Bundle',$s);
+    } else {
+        return $self->expand('Module',$s)
+            if $CPAN::META->exists('CPAN::Module',$s);
+    }
+    return;
+}
+
+#-> sub CPAN::Shell::expand ;
+sub expand {
+    my $self = shift;
+    my($type,@args) = @_;
+    CPAN->debug("type[$type]args[@args]") if $CPAN::DEBUG;
+    my $class = "CPAN::$type";
+    my $methods = ['id'];
+    for my $meth (qw(name)) {
+        next unless $class->can($meth);
+        push @$methods, $meth;
+    }
+    $self->expand_by_method($class,$methods,@args);
+}
+
+#-> sub CPAN::Shell::expand_by_method ;
+sub expand_by_method {
+    my $self = shift;
+    my($class,$methods,@args) = @_;
+    my($arg,@m);
+    for $arg (@args) {
+        my($regex,$command);
+        if ($arg =~ m|^/(.*)/$|) {
+            $regex = $1;
+# FIXME:  there seem to be some ='s in the author data, which trigger
+#         a failure here.  This needs to be contemplated.
+#            } elsif ($arg =~ m/=/) {
+#                $command = 1;
+        }
+        my $obj;
+        CPAN->debug(sprintf "class[%s]regex[%s]command[%s]",
+                    $class,
+                    defined $regex ? $regex : "UNDEFINED",
+                    defined $command ? $command : "UNDEFINED",
+                   ) if $CPAN::DEBUG;
+        if (defined $regex) {
+            if (CPAN::_sqlite_running()) {
+                CPAN::Index->reload;
+                $CPAN::SQLite->search($class, $regex);
+            }
+            for $obj (
+                      $CPAN::META->all_objects($class)
+                     ) {
+                unless ($obj && UNIVERSAL::can($obj,"id") && $obj->id) {
+                    # BUG, we got an empty object somewhere
+                    require Data::Dumper;
+                    CPAN->debug(sprintf(
+                                        "Bug in CPAN: Empty id on obj[%s][%s]",
+                                        $obj,
+                                        Data::Dumper::Dumper($obj)
+                                       )) if $CPAN::DEBUG;
+                    next;
+                }
+                for my $method (@$methods) {
+                    my $match = eval {$obj->$method() =~ /$regex/i};
+                    if ($@) {
+                        my($err) = $@ =~ /^(.+) at .+? line \d+\.$/;
+                        $err ||= $@; # if we were too restrictive above
+                        $CPAN::Frontend->mydie("$err\n");
+                    } elsif ($match) {
+                        push @m, $obj;
+                        last;
+                    }
+                }
+            }
+        } elsif ($command) {
+            die "equal sign in command disabled (immature interface), ".
+                "you can set
+ ! \$CPAN::Shell::ADVANCED_QUERY=1
+to enable it. But please note, this is HIGHLY EXPERIMENTAL code
+that may go away anytime.\n"
+                    unless $ADVANCED_QUERY;
+            my($method,$criterion) = $arg =~ /(.+?)=(.+)/;
+            my($matchcrit) = $criterion =~ m/^~(.+)/;
+            for my $self (
+                          sort
+                          {$a->id cmp $b->id}
+                          $CPAN::META->all_objects($class)
+                         ) {
+                my $lhs = $self->$method() or next; # () for 5.00503
+                if ($matchcrit) {
+                    push @m, $self if $lhs =~ m/$matchcrit/;
+                } else {
+                    push @m, $self if $lhs eq $criterion;
+                }
+            }
+        } else {
+            my($xarg) = $arg;
+            if ( $class eq 'CPAN::Bundle' ) {
+                $xarg =~ s/^(Bundle::)?(.*)/Bundle::$2/;
+            } elsif ($class eq "CPAN::Distribution") {
+                $xarg = CPAN::Distribution->normalize($arg);
+            } else {
+                $xarg =~ s/:+/::/g;
+            }
+            if ($CPAN::META->exists($class,$xarg)) {
+                $obj = $CPAN::META->instance($class,$xarg);
+            } elsif ($CPAN::META->exists($class,$arg)) {
+                $obj = $CPAN::META->instance($class,$arg);
+            } else {
+                next;
+            }
+            push @m, $obj;
+        }
+    }
+    @m = sort {$a->id cmp $b->id} @m;
+    if ( $CPAN::DEBUG ) {
+        my $wantarray = wantarray;
+        my $join_m = join ",", map {$_->id} @m;
+        # $self->debug("wantarray[$wantarray]join_m[$join_m]");
+        my $count = scalar @m;
+        $self->debug("class[$class]wantarray[$wantarray]count m[$count]");
+    }
+    return wantarray ? @m : $m[0];
+}
+
+#-> sub CPAN::Shell::format_result ;
+sub format_result {
+    my($self) = shift;
+    my($type,@args) = @_;
+    @args = '/./' unless @args;
+    my(@result) = $self->expand($type,@args);
+    my $result = @result == 1 ?
+        $result[0]->as_string :
+            @result == 0 ?
+                "No objects of type $type found for argument @args\n" :
+                    join("",
+                         (map {$_->as_glimpse} @result),
+                         scalar @result, " items found\n",
+                        );
+    $result;
+}
+
+#-> sub CPAN::Shell::report_fh ;
+{
+    my $installation_report_fh;
+    my $previously_noticed = 0;
+
+    sub report_fh {
+        return $installation_report_fh if $installation_report_fh;
+        if ($CPAN::META->has_usable("File::Temp")) {
+            $installation_report_fh
+                = File::Temp->new(
+                                  dir      => File::Spec->tmpdir,
+                                  template => 'cpan_install_XXXX',
+                                  suffix   => '.txt',
+                                  unlink   => 0,
+                                 );
+        }
+        unless ( $installation_report_fh ) {
+            warn("Couldn't open installation report file; " .
+                 "no report file will be generated."
+                ) unless $previously_noticed++;
+        }
+    }
+}
+
+
+# The only reason for this method is currently to have a reliable
+# debugging utility that reveals which output is going through which
+# channel. No, I don't like the colors ;-)
+
+# to turn colordebugging on, write
+# cpan> o conf colorize_output 1
+
+#-> sub CPAN::Shell::colorize_output ;
+{
+    my $print_ornamented_have_warned = 0;
+    sub colorize_output {
+        my $colorize_output = $CPAN::Config->{colorize_output};
+        if ($colorize_output && $^O eq 'MSWin32' && !$CPAN::META->has_inst("Win32::Console::ANSI")) {
+            unless ($print_ornamented_have_warned++) {
+                # no myprint/mywarn within myprint/mywarn!
+                warn "Colorize_output is set to true but Win32::Console::ANSI is not
+installed. To activate colorized output, please install Win32::Console::ANSI.\n\n";
+            }
+            $colorize_output = 0;
+        }
+        if ($colorize_output && !$CPAN::META->has_inst("Term::ANSIColor")) {
+            unless ($print_ornamented_have_warned++) {
+                # no myprint/mywarn within myprint/mywarn!
+                warn "Colorize_output is set to true but Term::ANSIColor is not
+installed. To activate colorized output, please install Term::ANSIColor.\n\n";
+            }
+            $colorize_output = 0;
+        }
+        return $colorize_output;
+    }
+}
+
+
+#-> sub CPAN::Shell::print_ornamented ;
+sub print_ornamented {
+    my($self,$what,$ornament) = @_;
+    return unless defined $what;
+
+    local $| = 1; # Flush immediately
+    if ( $CPAN::Be_Silent ) {
+        # WARNING: variable Be_Silent is poisoned and must be eliminated.
+        print {report_fh()} $what;
+        return;
+    }
+    my $swhat = "$what"; # stringify if it is an object
+    if ($CPAN::Config->{term_is_latin}) {
+        # note: deprecated, need to switch to $LANG and $LC_*
+        # courtesy jhi:
+        $swhat
+            =~ s{([\xC0-\xDF])([\x80-\xBF])}{chr(ord($1)<<6&0xC0|ord($2)&0x3F)}eg; #};
+    }
+    if ($self->colorize_output) {
+        if ( $CPAN::DEBUG && $swhat =~ /^Debug\(/ ) {
+            # if you want to have this configurable, please file a bug report
+            $ornament = $CPAN::Config->{colorize_debug} || "black on_cyan";
+        }
+        my $color_on = eval { Term::ANSIColor::color($ornament) } || "";
+        if ($@) {
+            print "Term::ANSIColor rejects color[$ornament]: $@\n
+Please choose a different color (Hint: try 'o conf init /color/')\n";
+        }
+        # GGOLDBACH/Test-GreaterVersion-0.008 broke without this
+        # $trailer construct. We want the newline be the last thing if
+        # there is a newline at the end ensuring that the next line is
+        # empty for other players
+        my $trailer = "";
+        $trailer = $1 if $swhat =~ s/([\r\n]+)\z//;
+        print $color_on,
+            $swhat,
+                Term::ANSIColor::color("reset"),
+                      $trailer;
+    } else {
+        print $swhat;
+    }
+}
+
+#-> sub CPAN::Shell::myprint ;
+
+# where is myprint/mywarn/Frontend/etc. documented? Where to use what?
+# I think, we send everything to STDOUT and use print for normal/good
+# news and warn for news that need more attention. Yes, this is our
+# working contract for now.
+sub myprint {
+    my($self,$what) = @_;
+    $self->print_ornamented($what,
+                            $CPAN::Config->{colorize_print}||'bold blue on_white',
+                           );
+}
+
+my %already_printed;
+#-> sub CPAN::Shell::mywarnonce ;
+sub myprintonce {
+    my($self,$what) = @_;
+    $self->myprint($what) unless $already_printed{$what}++;
+}
+
+sub optprint {
+    my($self,$category,$what) = @_;
+    my $vname = $category . "_verbosity";
+    CPAN::HandleConfig->load unless $CPAN::Config_loaded++;
+    if (!$CPAN::Config->{$vname}
+        || $CPAN::Config->{$vname} =~ /^v/
+       ) {
+        $CPAN::Frontend->myprint($what);
+    }
+}
+
+#-> sub CPAN::Shell::myexit ;
+sub myexit {
+    my($self,$what) = @_;
+    $self->myprint($what);
+    exit;
+}
+
+#-> sub CPAN::Shell::mywarn ;
+sub mywarn {
+    my($self,$what) = @_;
+    $self->print_ornamented($what, $CPAN::Config->{colorize_warn}||'bold red on_white');
+}
+
+my %already_warned;
+#-> sub CPAN::Shell::mywarnonce ;
+sub mywarnonce {
+    my($self,$what) = @_;
+    $self->mywarn($what) unless $already_warned{$what}++;
+}
+
+# only to be used for shell commands
+#-> sub CPAN::Shell::mydie ;
+sub mydie {
+    my($self,$what) = @_;
+    $self->mywarn($what);
+
+    # If it is the shell, we want the following die to be silent,
+    # but if it is not the shell, we would need a 'die $what'. We need
+    # to take care that only shell commands use mydie. Is this
+    # possible?
+
+    die "\n";
+}
+
+# sub CPAN::Shell::colorable_makemaker_prompt ;
+sub colorable_makemaker_prompt {
+    my($foo,$bar) = @_;
+    if (CPAN::Shell->colorize_output) {
+        my $ornament = $CPAN::Config->{colorize_print}||'bold blue on_white';
+        my $color_on = eval { Term::ANSIColor::color($ornament); } || "";
+        print $color_on;
+    }
+    my $ans = ExtUtils::MakeMaker::prompt($foo,$bar);
+    if (CPAN::Shell->colorize_output) {
+        print Term::ANSIColor::color('reset');
+    }
+    return $ans;
+}
+
+# use this only for unrecoverable errors!
+#-> sub CPAN::Shell::unrecoverable_error ;
+sub unrecoverable_error {
+    my($self,$what) = @_;
+    my @lines = split /\n/, $what;
+    my $longest = 0;
+    for my $l (@lines) {
+        $longest = length $l if length $l > $longest;
+    }
+    $longest = 62 if $longest > 62;
+    for my $l (@lines) {
+        if ($l =~ /^\s*$/) {
+            $l = "\n";
+            next;
+        }
+        $l = "==> $l";
+        if (length $l < 66) {
+            $l = pack "A66 A*", $l, "<==";
+        }
+        $l .= "\n";
+    }
+    unshift @lines, "\n";
+    $self->mydie(join "", @lines);
+}
+
+#-> sub CPAN::Shell::mysleep ;
+sub mysleep {
+    return if $ENV{AUTOMATED_TESTING} || ! -t STDOUT;
+    my($self, $sleep) = @_;
+    if (CPAN->has_inst("Time::HiRes")) {
+        Time::HiRes::sleep($sleep);
+    } else {
+        sleep($sleep < 1 ? 1 : int($sleep + 0.5));
+    }
+}
+
+#-> sub CPAN::Shell::setup_output ;
+sub setup_output {
+    return if -t STDOUT;
+    my $odef = select STDERR;
+    $| = 1;
+    select STDOUT;
+    $| = 1;
+    select $odef;
+}
+
+#-> sub CPAN::Shell::rematein ;
+# RE-adme||MA-ke||TE-st||IN-stall : nearly everything runs through here
+sub rematein {
+    my $self = shift;
+    # this variable was global and disturbed programmers, so localize:
+    local $CPAN::Distrostatus::something_has_failed_at;
+    my($meth,@some) = @_;
+    my @pragma;
+    while($meth =~ /^(ff?orce|notest)$/) {
+        push @pragma, $meth;
+        $meth = shift @some or
+            $CPAN::Frontend->mydie("Pragma $pragma[-1] used without method: ".
+                                   "cannot continue");
+    }
+    setup_output();
+    CPAN->debug("pragma[@pragma]meth[$meth]some[@some]") if $CPAN::DEBUG;
+
+    # Here is the place to set "test_count" on all involved parties to
+    # 0. We then can pass this counter on to the involved
+    # distributions and those can refuse to test if test_count > X. In
+    # the first stab at it we could use a 1 for "X".
+
+    # But when do I reset the distributions to start with 0 again?
+    # Jost suggested to have a random or cycling interaction ID that
+    # we pass through. But the ID is something that is just left lying
+    # around in addition to the counter, so I'd prefer to set the
+    # counter to 0 now, and repeat at the end of the loop. But what
+    # about dependencies? They appear later and are not reset, they
+    # enter the queue but not its copy. How do they get a sensible
+    # test_count?
+
+    # With configure_requires, "get" is vulnerable in recursion.
+
+    my $needs_recursion_protection = "get|make|test|install";
+
+    # construct the queue
+    my($s,@s,@qcopy);
+  STHING: foreach $s (@some) {
+        my $obj;
+        if (ref $s) {
+            CPAN->debug("s is an object[$s]") if $CPAN::DEBUG;
+            $obj = $s;
+        } elsif ($s =~ m|[\$\@\%]|) { # looks like a perl variable
+        } elsif ($s =~ m|^/|) { # looks like a regexp
+            if (substr($s,-1,1) eq ".") {
+                $obj = CPAN::Shell->expandany($s);
+            } else {
+                my @obj;
+            CLASS: for my $class (qw(Distribution Bundle Module)) {
+                    if (@obj = $self->expand($class,$s)) {
+                        last CLASS;
+                    }
+                }
+                if (@obj) {
+                    if (1==@obj) {
+                        $obj = $obj[0];
+                    } else {
+                        $CPAN::Frontend->mywarn("Sorry, $meth with a regular expression is ".
+                                                "only supported when unambiguous.\nRejecting argument '$s'\n");
+                        $CPAN::Frontend->mysleep(2);
+                        next STHING;
+                    }
+                }
+            }
+        } elsif ($meth eq "ls") {
+            $self->globls($s,\@pragma);
+            next STHING;
+        } else {
+            CPAN->debug("calling expandany [$s]") if $CPAN::DEBUG;
+            $obj = CPAN::Shell->expandany($s);
+        }
+        if (0) {
+        } elsif (ref $obj) {
+            if ($meth =~ /^($needs_recursion_protection)$/) {
+                # it would be silly to check for recursion for look or dump
+                # (we are in CPAN::Shell::rematein)
+                CPAN->debug("Testing against recursion") if $CPAN::DEBUG;
+                eval {  $obj->color_cmd_tmps(0,1); };
+                if ($@) {
+                    if (ref $@
+                        and $@->isa("CPAN::Exception::RecursiveDependency")) {
+                        $CPAN::Frontend->mywarn($@);
+                    } else {
+                        if (0) {
+                            require Carp;
+                            Carp::confess(sprintf "DEBUG: \$\@[%s]ref[%s]", $@, ref $@);
+                        }
+                        die;
+                    }
+                }
+            }
+            CPAN::Queue->queue_item(qmod => $obj->id, reqtype => "c", optional => '');
+            push @qcopy, $obj;
+        } elsif ($CPAN::META->exists('CPAN::Author',uc($s))) {
+            $obj = $CPAN::META->instance('CPAN::Author',uc($s));
+            if ($meth =~ /^(dump|ls|reports)$/) {
+                $obj->$meth();
+            } else {
+                $CPAN::Frontend->mywarn(
+                                        join "",
+                                        "Don't be silly, you can't $meth ",
+                                        $obj->fullname,
+                                        " ;-)\n"
+                                       );
+                $CPAN::Frontend->mysleep(2);
+            }
+        } elsif ($s =~ m|[\$\@\%]| && $meth eq "dump") {
+            CPAN::InfoObj->dump($s);
+        } else {
+            $CPAN::Frontend
+                ->mywarn(qq{Warning: Cannot $meth $s, }.
+                         qq{don't know what it is.
+Try the command
+
+    i /$s/
+
+to find objects with matching identifiers.
+});
+            $CPAN::Frontend->mysleep(2);
+        }
+    }
+
+    # queuerunner (please be warned: when I started to change the
+    # queue to hold objects instead of names, I made one or two
+    # mistakes and never found which. I reverted back instead)
+  QITEM: while (my $q = CPAN::Queue->first) {
+        my $obj;
+        my $s = $q->as_string;
+        my $reqtype = $q->reqtype || "";
+        my $optional = $q->optional || "";
+        $obj = CPAN::Shell->expandany($s);
+        unless ($obj) {
+            # don't know how this can happen, maybe we should panic,
+            # but maybe we get a solution from the first user who hits
+            # this unfortunate exception?
+            $CPAN::Frontend->mywarn("Warning: Could not expand string '$s' ".
+                                    "to an object. Skipping.\n");
+            $CPAN::Frontend->mysleep(5);
+            CPAN::Queue->delete_first($s);
+            next QITEM;
+        }
+        $obj->{reqtype} ||= "";
+        my $type = ref $obj;
+        if ( $type eq 'CPAN::Distribution' || $type eq 'CPAN::Bundle' ) {
+            $obj->{mandatory} ||= ! $optional; # once mandatory, always mandatory
+        }
+        elsif ( $type eq 'CPAN::Module' ) {
+            $obj->{mandatory} ||= ! $optional; # once mandatory, always mandatory
+            if (my $d = $obj->distribution) {
+                $d->{mandatory} ||= ! $optional; # once mandatory, always mandatory
+            } elsif ($optional) {
+                # the queue object does not know who was recommending/suggesting us:(
+                # So we only vaguely write "optional".
+                $CPAN::Frontend->mywarn("Warning: optional module '$s' ".
+                                        "not known. Skipping.\n");
+                CPAN::Queue->delete_first($s);
+                next QITEM;
+            }
+        }
+        {
+            # force debugging because CPAN::SQLite somehow delivers us
+            # an empty object;
+
+            # local $CPAN::DEBUG = 1024; # Shell; probably fixed now
+
+            CPAN->debug("s[$s]obj-reqtype[$obj->{reqtype}]".
+                        "q-reqtype[$reqtype]") if $CPAN::DEBUG;
+        }
+        if ($obj->{reqtype}) {
+            if ($obj->{reqtype} eq "b" && $reqtype =~ /^[rc]$/) {
+                $obj->{reqtype} = $reqtype;
+                if (
+                    exists $obj->{install}
+                    &&
+                    (
+                     UNIVERSAL::can($obj->{install},"failed") ?
+                     $obj->{install}->failed :
+                     $obj->{install} =~ /^NO/
+                    )
+                   ) {
+                    delete $obj->{install};
+                    $CPAN::Frontend->mywarn
+                        ("Promoting $obj->{ID} from 'build_requires' to 'requires'");
+                }
+            }
+        } else {
+            $obj->{reqtype} = $reqtype;
+        }
+
+        for my $pragma (@pragma) {
+            if ($pragma
+                &&
+                $obj->can($pragma)) {
+                $obj->$pragma($meth);
+            }
+        }
+        if (UNIVERSAL::can($obj, 'called_for')) {
+            $obj->called_for($s);
+        }
+        CPAN->debug(qq{pragma[@pragma]meth[$meth]}.
+                    qq{ID[$obj->{ID}]}) if $CPAN::DEBUG;
+
+        push @qcopy, $obj;
+        if ($meth =~ /^(report)$/) { # they came here with a pragma?
+            $self->$meth($obj);
+        } elsif (! UNIVERSAL::can($obj,$meth)) {
+            # Must never happen
+            my $serialized = "";
+            if (0) {
+            } elsif ($CPAN::META->has_inst("YAML::Syck")) {
+                $serialized = YAML::Syck::Dump($obj);
+            } elsif ($CPAN::META->has_inst("YAML")) {
+                $serialized = YAML::Dump($obj);
+            } elsif ($CPAN::META->has_inst("Data::Dumper")) {
+                $serialized = Data::Dumper::Dumper($obj);
+            } else {
+                require overload;
+                $serialized = overload::StrVal($obj);
+            }
+            CPAN->debug("Going to panic. meth[$meth]s[$s]") if $CPAN::DEBUG;
+            $CPAN::Frontend->mydie("Panic: obj[$serialized] cannot meth[$meth]");
+        } else {
+            my $upgraded_meth = $meth;
+            if ( $meth eq "make" and $obj->{reqtype} eq "b" ) {
+                # rt 86915
+                $upgraded_meth = "test";
+            }
+            if ($obj->$upgraded_meth()) {
+                CPAN::Queue->delete($s);
+                CPAN->debug("Succeeded and deleted from queue. pragma[@pragma]meth[$meth][s][$s]") if $CPAN::DEBUG;
+            } else {
+                CPAN->debug("Failed. pragma[@pragma]meth[$meth]s[$s]") if $CPAN::DEBUG;
+            }
+        }
+
+        $obj->undelay;
+        for my $pragma (@pragma) {
+            my $unpragma = "un$pragma";
+            if ($obj->can($unpragma)) {
+                $obj->$unpragma();
+            }
+        }
+        # if any failures occurred and the current object is mandatory, we
+        # still don't know if *it* failed or if it was another (optional)
+        # module, so we have to check that explicitly (and expensively)
+        if (    $CPAN::Config->{halt_on_failure}
+            && $obj->{mandatory}
+            && CPAN::Distrostatus::something_has_just_failed()
+            && $self->mandatory_dist_failed()
+        ) {
+            $CPAN::Frontend->mywarn("Stopping: '$meth' failed for '$s'.\n");
+            CPAN::Queue->nullify_queue;
+            last QITEM;
+        }
+        CPAN::Queue->delete_first($s);
+    }
+    if ($meth =~ /^($needs_recursion_protection)$/) {
+        for my $obj (@qcopy) {
+            $obj->color_cmd_tmps(0,0);
+        }
+    }
+}
+
+#-> sub CPAN::Shell::recent ;
+sub recent {
+  my($self) = @_;
+  if ($CPAN::META->has_inst("XML::LibXML")) {
+      my $url = $CPAN::Defaultrecent;
+      $CPAN::Frontend->myprint("Fetching '$url'\n");
+      unless ($CPAN::META->has_usable("LWP")) {
+          $CPAN::Frontend->mydie("LWP not installed; cannot continue");
+      }
+      CPAN::LWP::UserAgent->config;
+      my $Ua;
+      eval { $Ua = CPAN::LWP::UserAgent->new; };
+      if ($@) {
+          $CPAN::Frontend->mydie("CPAN::LWP::UserAgent->new dies with $@\n");
+      }
+      my $resp = $Ua->get($url);
+      unless ($resp->is_success) {
+          $CPAN::Frontend->mydie(sprintf "Could not download '%s': %s\n", $url, $resp->code);
+      }
+      $CPAN::Frontend->myprint("DONE\n\n");
+      my $xml = XML::LibXML->new->parse_string($resp->content);
+      if (0) {
+          my $s = $xml->serialize(2);
+          $s =~ s/\n\s*\n/\n/g;
+          $CPAN::Frontend->myprint($s);
+          return;
+      }
+      my @distros;
+      if ($url =~ /winnipeg/) {
+          my $pubdate = $xml->findvalue("/rss/channel/pubDate");
+          $CPAN::Frontend->myprint("    pubDate: $pubdate\n\n");
+          for my $eitem ($xml->findnodes("/rss/channel/item")) {
+              my $distro = $eitem->findvalue("enclosure/\@url");
+              $distro =~ s|.*?/authors/id/./../||;
+              my $size   = $eitem->findvalue("enclosure/\@length");
+              my $desc   = $eitem->findvalue("description");
+              $desc =~ s/.+? - //;
+              $CPAN::Frontend->myprint("$distro [$size b]\n    $desc\n");
+              push @distros, $distro;
+          }
+      } elsif ($url =~ /search.*uploads.rdf/) {
+          # xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
+          # xmlns="http://purl.org/rss/1.0/"
+          # xmlns:taxo="http://purl.org/rss/1.0/modules/taxonomy/"
+          # xmlns:dc="http://purl.org/dc/elements/1.1/"
+          # xmlns:syn="http://purl.org/rss/1.0/modules/syndication/"
+          # xmlns:admin="http://webns.net/mvcb/"
+
+
+          my $dc_date = $xml->findvalue("//*[local-name(.) = 'RDF']/*[local-name(.) = 'channel']/*[local-name(.) = 'date']");
+          $CPAN::Frontend->myprint("    dc:date: $dc_date\n\n");
+          my $finish_eitem = 0;
+          local $SIG{INT} = sub { $finish_eitem = 1 };
+        EITEM: for my $eitem ($xml->findnodes("//*[local-name(.) = 'RDF']/*[local-name(.) = 'item']")) {
+              my $distro = $eitem->findvalue("\@rdf:about");
+              $distro =~ s|.*~||; # remove up to the tilde before the name
+              $distro =~ s|/$||; # remove trailing slash
+              $distro =~ s|([^/]+)|\U$1\E|; # upcase the name
+              my $author = uc $1 or die "distro[$distro] without author, cannot continue";
+              my $desc   = $eitem->findvalue("*[local-name(.) = 'description']");
+              my $i = 0;
+            SUBDIRTEST: while () {
+                  last SUBDIRTEST if ++$i >= 6; # half a dozen must do!
+                  if (my @ret = $self->globls("$distro*")) {
+                      @ret = grep {$_->[2] !~ /meta/} @ret;
+                      @ret = grep {length $_->[2]} @ret;
+                      if (@ret) {
+                          $distro = "$author/$ret[0][2]";
+                          last SUBDIRTEST;
+                      }
+                  }
+                  $distro =~ s|/|/*/|; # allow it to reside in a subdirectory
+              }
+
+              next EITEM if $distro =~ m|\*|; # did not find the thing
+              $CPAN::Frontend->myprint("____$desc\n");
+              push @distros, $distro;
+              last EITEM if $finish_eitem;
+          }
+      }
+      return \@distros;
+  } else {
+      # deprecated old version
+      $CPAN::Frontend->mydie("no XML::LibXML installed, cannot continue\n");
+  }
+}
+
+#-> sub CPAN::Shell::smoke ;
+sub smoke {
+    my($self) = @_;
+    my $distros = $self->recent;
+  DISTRO: for my $distro (@$distros) {
+        next if $distro =~ m|/Bundle-|; # XXX crude heuristic to skip bundles
+        $CPAN::Frontend->myprint(sprintf "Downloading and testing '$distro'\n");
+        {
+            my $skip = 0;
+            local $SIG{INT} = sub { $skip = 1 };
+            for (0..9) {
+                $CPAN::Frontend->myprint(sprintf "\r%2d (Hit ^C to skip)", 10-$_);
+                sleep 1;
+                if ($skip) {
+                    $CPAN::Frontend->myprint(" skipped\n");
+                    next DISTRO;
+                }
+            }
+        }
+        $CPAN::Frontend->myprint("\r  \n"); # leave the dirty line with a newline
+        $self->test($distro);
+    }
+}
+
+{
+    # set up the dispatching methods
+    no strict "refs";
+    for my $command (qw(
+                        clean
+                        cvs_import
+                        dump
+                        force
+                        fforce
+                        get
+                        install
+                        look
+                        ls
+                        make
+                        notest
+                        perldoc
+                        readme
+                        reports
+                        test
+                       )) {
+        *$command = sub { shift->rematein($command, @_); };
+    }
+}
+
+1;
diff --git a/lib/5.24.1/CPAN/Tarzip.pm b/lib/5.24.1/CPAN/Tarzip.pm
new file mode 100644
index 00000000..f585a01b
--- /dev/null
+++ b/lib/5.24.1/CPAN/Tarzip.pm
@@ -0,0 +1,474 @@
+# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
+package CPAN::Tarzip;
+use strict;
+use vars qw($VERSION @ISA $BUGHUNTING);
+use CPAN::Debug;
+use File::Basename qw(basename);
+$VERSION = "5.5012";
+# module is internal to CPAN.pm
+
+@ISA = qw(CPAN::Debug); ## no critic
+$BUGHUNTING ||= 0; # released code must have turned off
+
+# it's ok if file doesn't exist, it just matters if it is .gz or .bz2
+sub new {
+    my($class,$file) = @_;
+    $CPAN::Frontend->mydie("CPAN::Tarzip->new called without arg") unless defined $file;
+    my $me = { FILE => $file };
+    if ($file =~ /\.(bz2|gz|zip|tbz|tgz)$/i) {
+        $me->{ISCOMPRESSED} = 1;
+    } else {
+        $me->{ISCOMPRESSED} = 0;
+    }
+    if (0) {
+    } elsif ($file =~ /\.(?:bz2|tbz)$/i) {
+        unless ($me->{UNGZIPPRG} = $CPAN::Config->{bzip2}) {
+            my $bzip2 = _my_which("bzip2");
+            if ($bzip2) {
+                $me->{UNGZIPPRG} = $bzip2;
+            } else {
+                $CPAN::Frontend->mydie(qq{
+CPAN.pm needs the external program bzip2 in order to handle '$file'.
+Please install it now and run 'o conf init bzip2' from the
+CPAN shell prompt to register it as external program.
+});
+            }
+        }
+    } else {
+        $me->{UNGZIPPRG} = _my_which("gzip");
+    }
+    $me->{TARPRG} = _my_which("tar") || _my_which("gtar");
+    bless $me, $class;
+}
+
+sub _my_which {
+    my($what) = @_;
+    if ($CPAN::Config->{$what}) {
+        return $CPAN::Config->{$what};
+    }
+    if ($CPAN::META->has_inst("File::Which")) {
+        return File::Which::which($what);
+    }
+    my @cand = MM->maybe_command($what);
+    return $cand[0] if @cand;
+    require File::Spec;
+    my $component;
+  PATH_COMPONENT: foreach $component (File::Spec->path()) {
+        next unless defined($component) && $component;
+        my($abs) = File::Spec->catfile($component,$what);
+        if (MM->maybe_command($abs)) {
+            return $abs;
+        }
+    }
+    return;
+}
+
+sub gzip {
+    my($self,$read) = @_;
+    my $write = $self->{FILE};
+    if ($CPAN::META->has_inst("Compress::Zlib")) {
+        my($buffer,$fhw);
+        $fhw = FileHandle->new($read)
+            or $CPAN::Frontend->mydie("Could not open $read: $!");
+        my $cwd = `pwd`;
+        my $gz = Compress::Zlib::gzopen($write, "wb")
+            or $CPAN::Frontend->mydie("Cannot gzopen $write: $! (pwd is $cwd)\n");
+        binmode($fhw);
+        $gz->gzwrite($buffer)
+            while read($fhw,$buffer,4096) > 0 ;
+        $gz->gzclose() ;
+        $fhw->close;
+        return 1;
+    } else {
+        my $command = CPAN::HandleConfig->safe_quote($self->{UNGZIPPRG});
+        system(qq{$command -c "$read" > "$write"})==0;
+    }
+}
+
+
+sub gunzip {
+    my($self,$write) = @_;
+    my $read = $self->{FILE};
+    if ($CPAN::META->has_inst("Compress::Zlib")) {
+        my($buffer,$fhw);
+        $fhw = FileHandle->new(">$write")
+            or $CPAN::Frontend->mydie("Could not open >$write: $!");
+        my $gz = Compress::Zlib::gzopen($read, "rb")
+            or $CPAN::Frontend->mydie("Cannot gzopen $read: $!\n");
+        binmode($fhw);
+        $fhw->print($buffer)
+            while $gz->gzread($buffer) > 0 ;
+        $CPAN::Frontend->mydie("Error reading from $read: $!\n")
+            if $gz->gzerror != Compress::Zlib::Z_STREAM_END();
+        $gz->gzclose() ;
+        $fhw->close;
+        return 1;
+    } else {
+        my $command = CPAN::HandleConfig->safe_quote($self->{UNGZIPPRG});
+        system(qq{$command -d -c "$read" > "$write"})==0;
+    }
+}
+
+
+sub gtest {
+    my($self) = @_;
+    return $self->{GTEST} if exists $self->{GTEST};
+    defined $self->{FILE} or $CPAN::Frontend->mydie("gtest called but no FILE specified");
+    my $read = $self->{FILE};
+    my $success;
+    if ($read=~/\.(?:bz2|tbz)$/ && $CPAN::META->has_inst("Compress::Bzip2")) {
+        my($buffer,$len);
+        $len = 0;
+        my $gz = Compress::Bzip2::bzopen($read, "rb")
+            or $CPAN::Frontend->mydie(sprintf("Cannot gzopen %s: %s\n",
+                                              $read,
+                                              $Compress::Bzip2::bzerrno));
+        while ($gz->bzread($buffer) > 0 ) {
+            $len += length($buffer);
+            $buffer = "";
+        }
+        my $err = $gz->bzerror;
+        $success = ! $err || $err == Compress::Bzip2::BZ_STREAM_END();
+        if ($len == -s $read) {
+            $success = 0;
+            CPAN->debug("hit an uncompressed file") if $CPAN::DEBUG;
+        }
+        $gz->gzclose();
+        CPAN->debug("err[$err]success[$success]") if $CPAN::DEBUG;
+    } elsif ( $read=~/\.(?:gz|tgz)$/ && $CPAN::META->has_inst("Compress::Zlib") ) {
+        # After I had reread the documentation in zlib.h, I discovered that
+        # uncompressed files do not lead to an gzerror (anymore?).
+        my($buffer,$len);
+        $len = 0;
+        my $gz = Compress::Zlib::gzopen($read, "rb")
+            or $CPAN::Frontend->mydie(sprintf("Cannot gzopen %s: %s\n",
+                                              $read,
+                                              $Compress::Zlib::gzerrno));
+        while ($gz->gzread($buffer) > 0 ) {
+            $len += length($buffer);
+            $buffer = "";
+        }
+        my $err = $gz->gzerror;
+        $success = ! $err || $err == Compress::Zlib::Z_STREAM_END();
+        if ($len == -s $read) {
+            $success = 0;
+            CPAN->debug("hit an uncompressed file") if $CPAN::DEBUG;
+        }
+        $gz->gzclose();
+        CPAN->debug("err[$err]success[$success]") if $CPAN::DEBUG;
+    } elsif (!$self->{ISCOMPRESSED}) {
+        $success = 0;
+    } else {
+        my $command = CPAN::HandleConfig->safe_quote($self->{UNGZIPPRG});
+        $success = 0==system(qq{$command -qdt "$read"});
+    }
+    return $self->{GTEST} = $success;
+}
+
+
+sub TIEHANDLE {
+    my($class,$file) = @_;
+    my $ret;
+    $class->debug("file[$file]");
+    my $self = $class->new($file);
+    if (0) {
+    } elsif (!$self->gtest) {
+        my $fh = FileHandle->new($file)
+            or $CPAN::Frontend->mydie("Could not open file[$file]: $!");
+        binmode $fh;
+        $self->{FH} = $fh;
+        $class->debug("via uncompressed FH");
+    } elsif ($file =~ /\.(?:bz2|tbz)$/ && $CPAN::META->has_inst("Compress::Bzip2")) {
+        my $gz = Compress::Bzip2::bzopen($file,"rb") or
+            $CPAN::Frontend->mydie("Could not bzopen $file");
+        $self->{GZ} = $gz;
+        $class->debug("via Compress::Bzip2");
+    } elsif ($file =~/\.(?:gz|tgz)$/ && $CPAN::META->has_inst("Compress::Zlib")) {
+        my $gz = Compress::Zlib::gzopen($file,"rb") or
+            $CPAN::Frontend->mydie("Could not gzopen $file");
+        $self->{GZ} = $gz;
+        $class->debug("via Compress::Zlib");
+    } else {
+        my $gzip = CPAN::HandleConfig->safe_quote($self->{UNGZIPPRG});
+        my $pipe = "$gzip -d -c $file |";
+        my $fh = FileHandle->new($pipe) or $CPAN::Frontend->mydie("Could not pipe[$pipe]: $!");
+        binmode $fh;
+        $self->{FH} = $fh;
+        $class->debug("via external $gzip");
+    }
+    $self;
+}
+
+
+sub READLINE {
+    my($self) = @_;
+    if (exists $self->{GZ}) {
+        my $gz = $self->{GZ};
+        my($line,$bytesread);
+        $bytesread = $gz->gzreadline($line);
+        return undef if $bytesread <= 0;
+        return $line;
+    } else {
+        my $fh = $self->{FH};
+        return scalar <$fh>;
+    }
+}
+
+
+sub READ {
+    my($self,$ref,$length,$offset) = @_;
+    $CPAN::Frontend->mydie("read with offset not implemented") if defined $offset;
+    if (exists $self->{GZ}) {
+        my $gz = $self->{GZ};
+        my $byteread = $gz->gzread($$ref,$length);# 30eaf79e8b446ef52464b5422da328a8
+        return $byteread;
+    } else {
+        my $fh = $self->{FH};
+        return read($fh,$$ref,$length);
+    }
+}
+
+
+sub DESTROY {
+    my($self) = @_;
+    if (exists $self->{GZ}) {
+        my $gz = $self->{GZ};
+        $gz->gzclose() if defined $gz; # hard to say if it is allowed
+                                       # to be undef ever. AK, 2000-09
+    } else {
+        my $fh = $self->{FH};
+        $fh->close if defined $fh;
+    }
+    undef $self;
+}
+
+sub untar {
+    my($self) = @_;
+    my $file = $self->{FILE};
+    my($prefer) = 0;
+
+    my $exttar = $self->{TARPRG} || "";
+    $exttar = "" if $exttar =~ /^\s+$/; # user refuses to use it
+    my $extgzip = $self->{UNGZIPPRG} || "";
+    $extgzip = "" if $extgzip =~ /^\s+$/; # user refuses to use it
+
+    if (0) { # makes changing order easier
+    } elsif ($BUGHUNTING) {
+        $prefer=2;
+    } elsif ($CPAN::Config->{prefer_external_tar}) {
+        $prefer = 1;
+    } elsif (
+             $CPAN::META->has_usable("Archive::Tar")
+             &&
+             $CPAN::META->has_inst("Compress::Zlib") ) {
+        my $prefer_external_tar = $CPAN::Config->{prefer_external_tar};
+        unless (defined $prefer_external_tar) {
+            if ($^O =~ /(MSWin32|solaris)/) {
+                $prefer_external_tar = 0;
+            } else {
+                $prefer_external_tar = 1;
+            }
+        }
+        $prefer = $prefer_external_tar ? 1 : 2;
+    } elsif ($exttar && $extgzip) {
+        # no modules and not bz2
+        $prefer = 1;
+        # but solaris binary tar is a problem
+        if ($^O eq 'solaris' && qx($exttar --version 2>/dev/null) !~ /gnu/i) {
+            $CPAN::Frontend->mywarn(<< 'END_WARN');
+
+WARNING: Many CPAN distributions were archived with GNU tar and some of
+them may be incompatible with Solaris tar.  We respectfully suggest you
+configure CPAN to use a GNU tar instead ("o conf init tar") or install
+a recent Archive::Tar instead;
+
+END_WARN
+        }
+    } else {
+        my $foundtar = $exttar ? "'$exttar'" : "nothing";
+        my $foundzip = $extgzip ? "'$extgzip'" : $foundtar ? "nothing" : "also nothing";
+        my $foundAT;
+        if ($CPAN::META->has_usable("Archive::Tar")) {
+            $foundAT = sprintf "'%s'", "Archive::Tar::"->VERSION;
+        } else {
+            $foundAT = "nothing";
+        }
+        my $foundCZ;
+        if ($CPAN::META->has_inst("Compress::Zlib")) {
+            $foundCZ = sprintf "'%s'", "Compress::Zlib::"->VERSION;
+        } elsif ($foundAT) {
+            $foundCZ = "nothing";
+        } else {
+            $foundCZ = "also nothing";
+        }
+        $CPAN::Frontend->mydie(qq{
+
+CPAN.pm needs either the external programs tar and gzip -or- both
+modules Archive::Tar and Compress::Zlib installed.
+
+For tar I found $foundtar, for gzip $foundzip.
+
+For Archive::Tar I found $foundAT, for Compress::Zlib $foundCZ;
+
+Can't continue cutting file '$file'.
+});
+    }
+    my $tar_verb = "v";
+    if (defined $CPAN::Config->{tar_verbosity}) {
+        $tar_verb = $CPAN::Config->{tar_verbosity} eq "none" ? "" :
+            $CPAN::Config->{tar_verbosity};
+    }
+    if ($prefer==1) { # 1 => external gzip+tar
+        my($system);
+        my $is_compressed = $self->gtest();
+        my $tarcommand = CPAN::HandleConfig->safe_quote($exttar);
+        if ($is_compressed) {
+            my $command = CPAN::HandleConfig->safe_quote($extgzip);
+            $system = qq{$command -d -c }.
+                qq{< "$file" | $tarcommand x${tar_verb}f -};
+        } else {
+            $system = qq{$tarcommand x${tar_verb}f "$file"};
+        }
+        if (system($system) != 0) {
+            # people find the most curious tar binaries that cannot handle
+            # pipes
+            if ($is_compressed) {
+                (my $ungzf = $file) =~ s/\.gz(?!\n)\Z//;
+                $ungzf = basename $ungzf;
+                my $ct = CPAN::Tarzip->new($file);
+                if ($ct->gunzip($ungzf)) {
+                    $CPAN::Frontend->myprint(qq{Uncompressed $file successfully\n});
+                } else {
+                    $CPAN::Frontend->mydie(qq{Couldn\'t uncompress $file\n});
+                }
+                $file = $ungzf;
+            }
+            $system = qq{$tarcommand x${tar_verb}f "$file"};
+            $CPAN::Frontend->myprint(qq{Using Tar:$system:\n});
+            my $ret = system($system);
+            if ($ret==0) {
+                $CPAN::Frontend->myprint(qq{Untarred $file successfully\n});
+            } else {
+                if ($? == -1) {
+                    $CPAN::Frontend->mydie(sprintf qq{Couldn\'t untar %s: '%s'\n},
+                                           $file, $!);
+                } elsif ($? & 127) {
+                    $CPAN::Frontend->mydie(sprintf qq{Couldn\'t untar %s: child died with signal %d, %s coredump\n},
+                                           $file, ($? & 127),  ($? & 128) ? 'with' : 'without');
+                } else {
+                    $CPAN::Frontend->mydie(sprintf qq{Couldn\'t untar %s: child exited with value %d\n},
+                                           $file, $? >> 8);
+                }
+            }
+            return 1;
+        } else {
+            return 1;
+        }
+    } elsif ($prefer==2) { # 2 => modules
+        unless ($CPAN::META->has_usable("Archive::Tar")) {
+            $CPAN::Frontend->mydie("Archive::Tar not installed, please install it to continue");
+        }
+        # Make sure AT does not use uid/gid/permissions in the archive
+        # This leaves it to the user's umask instead
+        local $Archive::Tar::CHMOD = 1;
+        local $Archive::Tar::SAME_PERMISSIONS = 0;
+        # Make sure AT leaves current user as owner
+        local $Archive::Tar::CHOWN = 0;
+        my $tar = Archive::Tar->new($file,1);
+        my $af; # archive file
+        my @af;
+        if ($BUGHUNTING) {
+            # RCS 1.337 had this code, it turned out unacceptable slow but
+            # it revealed a bug in Archive::Tar. Code is only here to hunt
+            # the bug again. It should never be enabled in published code.
+            # GDGraph3d-0.53 was an interesting case according to Larry
+            # Virden.
+            warn(">>>Bughunting code enabled<<< " x 20);
+            for $af ($tar->list_files) {
+                if ($af =~ m!^(/|\.\./)!) {
+                    $CPAN::Frontend->mydie("ALERT: Archive contains ".
+                                           "illegal member [$af]");
+                }
+                $CPAN::Frontend->myprint("$af\n");
+                $tar->extract($af); # slow but effective for finding the bug
+                return if $CPAN::Signal;
+            }
+        } else {
+            for $af ($tar->list_files) {
+                if ($af =~ m!^(/|\.\./)!) {
+                    $CPAN::Frontend->mydie("ALERT: Archive contains ".
+                                           "illegal member [$af]");
+                }
+                if ($tar_verb eq "v" || $tar_verb eq "vv") {
+                    $CPAN::Frontend->myprint("$af\n");
+                }
+                push @af, $af;
+                return if $CPAN::Signal;
+            }
+            $tar->extract(@af) or
+                $CPAN::Frontend->mydie("Could not untar with Archive::Tar.");
+        }
+
+        Mac::BuildTools::convert_files([$tar->list_files], 1)
+            if ($^O eq 'MacOS');
+
+        return 1;
+    }
+}
+
+sub unzip {
+    my($self) = @_;
+    my $file = $self->{FILE};
+    if ($CPAN::META->has_inst("Archive::Zip")) {
+        # blueprint of the code from Archive::Zip::Tree::extractTree();
+        my $zip = Archive::Zip->new();
+        my $status;
+        $status = $zip->read($file);
+        $CPAN::Frontend->mydie("Read of file[$file] failed\n")
+            if $status != Archive::Zip::AZ_OK();
+        $CPAN::META->debug("Successfully read file[$file]") if $CPAN::DEBUG;
+        my @members = $zip->members();
+        for my $member ( @members ) {
+            my $af = $member->fileName();
+            if ($af =~ m!^(/|\.\./)!) {
+                $CPAN::Frontend->mydie("ALERT: Archive contains ".
+                                       "illegal member [$af]");
+            }
+            $status = $member->extractToFileNamed( $af );
+            $CPAN::META->debug("af[$af]status[$status]") if $CPAN::DEBUG;
+            $CPAN::Frontend->mydie("Extracting of file[$af] from zipfile[$file] failed\n") if
+                $status != Archive::Zip::AZ_OK();
+            return if $CPAN::Signal;
+        }
+        return 1;
+    } elsif ( my $unzip = $CPAN::Config->{unzip}  ) {
+        my @system = ($unzip, $file);
+        return system(@system) == 0;
+    }
+    else {
+            $CPAN::Frontend->mydie(<<"END");
+
+Can't unzip '$file':
+
+You have not configured an 'unzip' program and do not have Archive::Zip
+installed.  Please either install Archive::Zip or else configure 'unzip'
+by running the command 'o conf init unzip' from the CPAN shell prompt.
+
+END
+    }
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+CPAN::Tarzip - internal handling of tar archives for CPAN.pm
+
+=head1 LICENSE
+
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+=cut
diff --git a/lib/5.24.1/CPAN/URL.pm b/lib/5.24.1/CPAN/URL.pm
new file mode 100644
index 00000000..52b42eec
--- /dev/null
+++ b/lib/5.24.1/CPAN/URL.pm
@@ -0,0 +1,31 @@
+# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
+# vim: ts=4 sts=4 sw=4:
+package CPAN::URL;
+use overload '""' => "as_string", fallback => 1;
+# accessors: TEXT(the url string), FROM(DEF=>defaultlist,USER=>urllist),
+# planned are things like age or quality
+
+use vars qw(
+            $VERSION
+);
+$VERSION = "5.5";
+
+sub new {
+    my($class,%args) = @_;
+    bless {
+           %args
+          }, $class;
+}
+sub as_string {
+    my($self) = @_;
+    $self->text;
+}
+sub text {
+    my($self,$set) = @_;
+    if (defined $set) {
+        $self->{TEXT} = $set;
+    }
+    $self->{TEXT};
+}
+
+1;
diff --git a/lib/5.24.1/CPAN/Version.pm b/lib/5.24.1/CPAN/Version.pm
new file mode 100644
index 00000000..fa75221d
--- /dev/null
+++ b/lib/5.24.1/CPAN/Version.pm
@@ -0,0 +1,177 @@
+package CPAN::Version;
+
+use strict;
+use vars qw($VERSION);
+$VERSION = "5.5003";
+
+# CPAN::Version::vcmp courtesy Jost Krieger
+sub vcmp {
+    my($self,$l,$r) = @_;
+    local($^W) = 0;
+    CPAN->debug("l[$l] r[$r]") if $CPAN::DEBUG;
+
+    # treat undef as zero
+    $l = 0 if $l eq 'undef';
+    $r = 0 if $r eq 'undef';
+
+    return 0 if $l eq $r; # short circuit for quicker success
+
+    for ($l,$r) {
+        s/_//g;
+    }
+    CPAN->debug("l[$l] r[$r]") if $CPAN::DEBUG;
+    for ($l,$r) {
+        next unless tr/.// > 1 || /^v/;
+        s/^v?/v/;
+        1 while s/\.0+(\d)/.$1/; # remove leading zeroes per group
+    }
+    CPAN->debug("l[$l] r[$r]") if $CPAN::DEBUG;
+    if ($l=~/^v/ <=> $r=~/^v/) {
+        for ($l,$r) {
+            next if /^v/;
+            $_ = $self->float2vv($_);
+        }
+    }
+    CPAN->debug("l[$l] r[$r]") if $CPAN::DEBUG;
+    my $lvstring = "v0";
+    my $rvstring = "v0";
+    if ($] >= 5.006
+     && $l =~ /^v/
+     && $r =~ /^v/) {
+        $lvstring = $self->vstring($l);
+        $rvstring = $self->vstring($r);
+        CPAN->debug(sprintf "lv[%vd] rv[%vd]", $lvstring, $rvstring) if $CPAN::DEBUG;
+    }
+
+    return (
+            ($l ne "undef") <=> ($r ne "undef")
+            ||
+            $lvstring cmp $rvstring
+            ||
+            $l <=> $r
+            ||
+            $l cmp $r
+    );
+}
+
+sub vgt {
+    my($self,$l,$r) = @_;
+    $self->vcmp($l,$r) > 0;
+}
+
+sub vlt {
+    my($self,$l,$r) = @_;
+    $self->vcmp($l,$r) < 0;
+}
+
+sub vge {
+    my($self,$l,$r) = @_;
+    $self->vcmp($l,$r) >= 0;
+}
+
+sub vle {
+    my($self,$l,$r) = @_;
+    $self->vcmp($l,$r) <= 0;
+}
+
+sub vstring {
+    my($self,$n) = @_;
+    $n =~ s/^v// or die "CPAN::Version::vstring() called with invalid arg [$n]";
+    pack "U*", split /\./, $n;
+}
+
+# vv => visible vstring
+sub float2vv {
+    my($self,$n) = @_;
+    my($rev) = int($n);
+    $rev ||= 0;
+    my($mantissa) = $n =~ /\.(\d{1,12})/; # limit to 12 digits to limit
+                                          # architecture influence
+    $mantissa ||= 0;
+    $mantissa .= "0" while length($mantissa)%3;
+    my $ret = "v" . $rev;
+    while ($mantissa) {
+        $mantissa =~ s/(\d{1,3})// or
+            die "Panic: length>0 but not a digit? mantissa[$mantissa]";
+        $ret .= ".".int($1);
+    }
+    # warn "n[$n]ret[$ret]";
+    $ret =~ s/(\.0)+/.0/; # v1.0.0 => v1.0
+    $ret;
+}
+
+sub readable {
+    my($self,$n) = @_;
+    $n =~ /^([\w\-\+\.]+)/;
+
+    return $1 if defined $1 && length($1)>0;
+    # if the first user reaches version v43, he will be treated as "+".
+    # We'll have to decide about a new rule here then, depending on what
+    # will be the prevailing versioning behavior then.
+
+    if ($] < 5.006) { # or whenever v-strings were introduced
+        # we get them wrong anyway, whatever we do, because 5.005 will
+        # have already interpreted 0.2.4 to be "0.24". So even if he
+        # indexer sends us something like "v0.2.4" we compare wrongly.
+
+        # And if they say v1.2, then the old perl takes it as "v12"
+
+        if (defined $CPAN::Frontend) {
+            $CPAN::Frontend->mywarn("Suspicious version string seen [$n]\n");
+        } else {
+            warn("Suspicious version string seen [$n]\n");
+        }
+        return $n;
+    }
+    my $better = sprintf "v%vd", $n;
+    CPAN->debug("n[$n] better[$better]") if $CPAN::DEBUG;
+    return $better;
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+CPAN::Version - utility functions to compare CPAN versions
+
+=head1 SYNOPSIS
+
+  use CPAN::Version;
+
+  CPAN::Version->vgt("1.1","1.1.1");    # 1 bc. 1.1 > 1.001001
+
+  CPAN::Version->vlt("1.1","1.1");      # 0 bc. 1.1 not < 1.1
+
+  CPAN::Version->vcmp("1.1","1.1.1");   # 1 bc. first is larger
+
+  CPAN::Version->vcmp("1.1.1","1.1");   # -1 bc. first is smaller
+
+  CPAN::Version->readable(v1.2.3);      # "v1.2.3"
+
+  CPAN::Version->vstring("v1.2.3");     # v1.2.3
+
+  CPAN::Version->float2vv(1.002003);    # "v1.2.3"
+
+=head1 DESCRIPTION
+
+This module mediates between some version that perl sees in a package
+and the version that is published by the CPAN indexer.
+
+It's only written as a helper module for both CPAN.pm and CPANPLUS.pm.
+
+As it stands it predates version.pm but has the same goal: make
+version strings visible and comparable.
+
+=head1 LICENSE
+
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+=cut
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# End:
diff --git a/lib/5.24.1/Carp.pm b/lib/5.24.1/Carp.pm
new file mode 100644
index 00000000..92f88661
--- /dev/null
+++ b/lib/5.24.1/Carp.pm
@@ -0,0 +1,933 @@
+package Carp;
+
+{ use 5.006; }
+use strict;
+use warnings;
+BEGIN {
+    # Very old versions of warnings.pm load Carp.  This can go wrong due
+    # to the circular dependency.  If warnings is invoked before Carp,
+    # then warnings starts by loading Carp, then Carp (above) tries to
+    # invoke warnings, and gets nothing because warnings is in the process
+    # of loading and hasn't defined its import method yet.  If we were
+    # only turning on warnings ("use warnings" above) this wouldn't be too
+    # bad, because Carp would just gets the state of the -w switch and so
+    # might not get some warnings that it wanted.  The real problem is
+    # that we then want to turn off Unicode warnings, but "no warnings
+    # 'utf8'" won't be effective if we're in this circular-dependency
+    # situation.  So, if warnings.pm is an affected version, we turn
+    # off all warnings ourselves by directly setting ${^WARNING_BITS}.
+    # On unaffected versions, we turn off just Unicode warnings, via
+    # the proper API.
+    if(!defined($warnings::VERSION) || eval($warnings::VERSION) < 1.06) {
+	${^WARNING_BITS} = "";
+    } else {
+	"warnings"->unimport("utf8");
+    }
+}
+
+sub _fetch_sub { # fetch sub without autovivifying
+    my($pack, $sub) = @_;
+    $pack .= '::';
+    # only works with top-level packages
+    return unless exists($::{$pack});
+    for ($::{$pack}) {
+	return unless ref \$_ eq 'GLOB' && *$_{HASH} && exists $$_{$sub};
+	for ($$_{$sub}) {
+	    return ref \$_ eq 'GLOB' ? *$_{CODE} : undef
+	}
+    }
+}
+
+# UTF8_REGEXP_PROBLEM is a compile-time constant indicating whether Carp
+# must avoid applying a regular expression to an upgraded (is_utf8)
+# string.  There are multiple problems, on different Perl versions,
+# that require this to be avoided.  All versions prior to 5.13.8 will
+# load utf8_heavy.pl for the swash system, even if the regexp doesn't
+# use character classes.  Perl 5.6 and Perls [5.11.2, 5.13.11) exhibit
+# specific problems when Carp is being invoked in the aftermath of a
+# syntax error.
+BEGIN {
+    if("$]" < 5.013011) {
+	*UTF8_REGEXP_PROBLEM = sub () { 1 };
+    } else {
+	*UTF8_REGEXP_PROBLEM = sub () { 0 };
+    }
+}
+
+# is_utf8() is essentially the utf8::is_utf8() function, which indicates
+# whether a string is represented in the upgraded form (using UTF-8
+# internally).  As utf8::is_utf8() is only available from Perl 5.8
+# onwards, extra effort is required here to make it work on Perl 5.6.
+BEGIN {
+    if(defined(my $sub = _fetch_sub utf8 => 'is_utf8')) {
+	*is_utf8 = $sub;
+    } else {
+	# black magic for perl 5.6
+	*is_utf8 = sub { unpack("C", "\xaa".$_[0]) != 170 };
+    }
+}
+
+# The downgrade() function defined here is to be used for attempts to
+# downgrade where it is acceptable to fail.  It must be called with a
+# second argument that is a true value.
+BEGIN {
+    if(defined(my $sub = _fetch_sub utf8 => 'downgrade')) {
+	*downgrade = \&{"utf8::downgrade"};
+    } else {
+	*downgrade = sub {
+	    my $r = "";
+	    my $l = length($_[0]);
+	    for(my $i = 0; $i != $l; $i++) {
+		my $o = ord(substr($_[0], $i, 1));
+		return if $o > 255;
+		$r .= chr($o);
+	    }
+	    $_[0] = $r;
+	};
+    }
+}
+
+our $VERSION = '1.40';
+$VERSION =~ tr/_//d;
+
+our $MaxEvalLen = 0;
+our $Verbose    = 0;
+our $CarpLevel  = 0;
+our $MaxArgLen  = 64;    # How much of each argument to print. 0 = all.
+our $MaxArgNums = 8;     # How many arguments to print. 0 = all.
+our $RefArgFormatter = undef; # allow caller to format reference arguments
+
+require Exporter;
+our @ISA       = ('Exporter');
+our @EXPORT    = qw(confess croak carp);
+our @EXPORT_OK = qw(cluck verbose longmess shortmess);
+our @EXPORT_FAIL = qw(verbose);    # hook to enable verbose mode
+
+# The members of %Internal are packages that are internal to perl.
+# Carp will not report errors from within these packages if it
+# can.  The members of %CarpInternal are internal to Perl's warning
+# system.  Carp will not report errors from within these packages
+# either, and will not report calls *to* these packages for carp and
+# croak.  They replace $CarpLevel, which is deprecated.    The
+# $Max(EvalLen|(Arg(Len|Nums)) variables are used to specify how the eval
+# text and function arguments should be formatted when printed.
+
+our %CarpInternal;
+our %Internal;
+
+# disable these by default, so they can live w/o require Carp
+$CarpInternal{Carp}++;
+$CarpInternal{warnings}++;
+$Internal{Exporter}++;
+$Internal{'Exporter::Heavy'}++;
+
+# if the caller specifies verbose usage ("perl -MCarp=verbose script.pl")
+# then the following method will be called by the Exporter which knows
+# to do this thanks to @EXPORT_FAIL, above.  $_[1] will contain the word
+# 'verbose'.
+
+sub export_fail { shift; $Verbose = shift if $_[0] eq 'verbose'; @_ }
+
+sub _cgc {
+    no strict 'refs';
+    return \&{"CORE::GLOBAL::caller"} if defined &{"CORE::GLOBAL::caller"};
+    return;
+}
+
+sub longmess {
+    local($!, $^E);
+    # Icky backwards compatibility wrapper. :-(
+    #
+    # The story is that the original implementation hard-coded the
+    # number of call levels to go back, so calls to longmess were off
+    # by one.  Other code began calling longmess and expecting this
+    # behaviour, so the replacement has to emulate that behaviour.
+    my $cgc = _cgc();
+    my $call_pack = $cgc ? $cgc->() : caller();
+    if ( $Internal{$call_pack} or $CarpInternal{$call_pack} ) {
+        return longmess_heavy(@_);
+    }
+    else {
+        local $CarpLevel = $CarpLevel + 1;
+        return longmess_heavy(@_);
+    }
+}
+
+our @CARP_NOT;
+
+sub shortmess {
+    local($!, $^E);
+    my $cgc = _cgc();
+
+    # Icky backwards compatibility wrapper. :-(
+    local @CARP_NOT = $cgc ? $cgc->() : caller();
+    shortmess_heavy(@_);
+}
+
+sub croak   { die shortmess @_ }
+sub confess { die longmess @_ }
+sub carp    { warn shortmess @_ }
+sub cluck   { warn longmess @_ }
+
+BEGIN {
+    if("$]" >= 5.015002 || ("$]" >= 5.014002 && "$]" < 5.015) ||
+	    ("$]" >= 5.012005 && "$]" < 5.013)) {
+	*CALLER_OVERRIDE_CHECK_OK = sub () { 1 };
+    } else {
+	*CALLER_OVERRIDE_CHECK_OK = sub () { 0 };
+    }
+}
+
+sub caller_info {
+    my $i = shift(@_) + 1;
+    my %call_info;
+    my $cgc = _cgc();
+    {
+	# Some things override caller() but forget to implement the
+	# @DB::args part of it, which we need.  We check for this by
+	# pre-populating @DB::args with a sentinel which no-one else
+	# has the address of, so that we can detect whether @DB::args
+	# has been properly populated.  However, on earlier versions
+	# of perl this check tickles a bug in CORE::caller() which
+	# leaks memory.  So we only check on fixed perls.
+        @DB::args = \$i if CALLER_OVERRIDE_CHECK_OK;
+        package DB;
+        @call_info{
+            qw(pack file line sub has_args wantarray evaltext is_require) }
+            = $cgc ? $cgc->($i) : caller($i);
+    }
+
+    unless ( defined $call_info{file} ) {
+        return ();
+    }
+
+    my $sub_name = Carp::get_subname( \%call_info );
+    if ( $call_info{has_args} ) {
+        my @args;
+        if (CALLER_OVERRIDE_CHECK_OK && @DB::args == 1
+            && ref $DB::args[0] eq ref \$i
+            && $DB::args[0] == \$i ) {
+            @DB::args = ();    # Don't let anyone see the address of $i
+            local $@;
+            my $where = eval {
+                my $func    = $cgc or return '';
+                my $gv      =
+                    (_fetch_sub B => 'svref_2object' or return '')
+                        ->($func)->GV;
+                my $package = $gv->STASH->NAME;
+                my $subname = $gv->NAME;
+                return unless defined $package && defined $subname;
+
+                # returning CORE::GLOBAL::caller isn't useful for tracing the cause:
+                return if $package eq 'CORE::GLOBAL' && $subname eq 'caller';
+                " in &${package}::$subname";
+            } || '';
+            @args
+                = "** Incomplete caller override detected$where; \@DB::args were not set **";
+        }
+        else {
+            @args = @DB::args;
+            my $overflow;
+            if ( $MaxArgNums and @args > $MaxArgNums )
+            {    # More than we want to show?
+                $#args = $MaxArgNums - 1;
+                $overflow = 1;
+            }
+
+            @args = map { Carp::format_arg($_) } @args;
+
+            if ($overflow) {
+                push @args, '...';
+            }
+        }
+
+        # Push the args onto the subroutine
+        $sub_name .= '(' . join( ', ', @args ) . ')';
+    }
+    $call_info{sub_name} = $sub_name;
+    return wantarray() ? %call_info : \%call_info;
+}
+
+# Transform an argument to a function into a string.
+our $in_recurse;
+sub format_arg {
+    my $arg = shift;
+
+    if ( ref($arg) ) {
+         # legitimate, let's not leak it.
+        if (!$in_recurse &&
+	    do {
+                local $@;
+	        local $in_recurse = 1;
+		local $SIG{__DIE__} = sub{};
+                eval {$arg->can('CARP_TRACE') }
+            })
+        {
+            return $arg->CARP_TRACE();
+        }
+        elsif (!$in_recurse &&
+	       defined($RefArgFormatter) &&
+	       do {
+                local $@;
+	        local $in_recurse = 1;
+		local $SIG{__DIE__} = sub{};
+                eval {$arg = $RefArgFormatter->($arg); 1}
+                })
+        {
+            return $arg;
+        }
+        else
+        {
+	    my $sub = _fetch_sub(overload => 'StrVal');
+	    return $sub ? &$sub($arg) : "$arg";
+        }
+    }
+    return "undef" if !defined($arg);
+    downgrade($arg, 1);
+    return $arg if !(UTF8_REGEXP_PROBLEM && is_utf8($arg)) &&
+	    $arg =~ /\A-?[0-9]+(?:\.[0-9]*)?(?:[eE][-+]?[0-9]+)?\z/;
+    my $suffix = "";
+    if ( 2 < $MaxArgLen and $MaxArgLen < length($arg) ) {
+        substr ( $arg, $MaxArgLen - 3 ) = "";
+	$suffix = "...";
+    }
+    if(UTF8_REGEXP_PROBLEM && is_utf8($arg)) {
+	for(my $i = length($arg); $i--; ) {
+	    my $c = substr($arg, $i, 1);
+	    my $x = substr($arg, 0, 0);   # work around bug on Perl 5.8.{1,2}
+	    if($c eq "\"" || $c eq "\\" || $c eq "\$" || $c eq "\@") {
+		substr $arg, $i, 0, "\\";
+		next;
+	    }
+	    my $o = ord($c);
+
+            # This code is repeated in Regexp::CARP_TRACE()
+            if ($] ge 5.007_003) {
+                substr $arg, $i, 1, sprintf("\\x{%x}", $o)
+		  if utf8::native_to_unicode($o) < utf8::native_to_unicode(0x20)
+                  || utf8::native_to_unicode($o) > utf8::native_to_unicode(0x7e);
+            } elsif (ord("A") == 65) {
+                substr $arg, $i, 1, sprintf("\\x{%x}", $o)
+                    if $o < 0x20 || $o > 0x7e;
+            } else { # Early EBCDIC
+
+                # 3 EBCDIC code pages supported then;  all controls but one
+                # are the code points below SPACE.  The other one is 0x5F on
+                # POSIX-BC; FF on the other two.
+                substr $arg, $i, 1, sprintf("\\x{%x}", $o)
+                    if $o < ord(" ") || ((ord ("^") == 106)
+                                          ? $o == 0x5f
+                                          : $o == 0xff);
+            }
+	}
+    } else {
+	$arg =~ s/([\"\\\$\@])/\\$1/g;
+        # This is all the ASCII printables spelled-out.  It is portable to all
+        # Perl versions and platforms (such as EBCDIC).  There are other more
+        # compact ways to do this, but may not work everywhere every version.
+        $arg =~ s/([^ !"\$\%#'()*+,\-.\/0123456789:;<=>?\@ABCDEFGHIJKLMNOPQRSTUVWXYZ\[\\\]^_`abcdefghijklmnopqrstuvwxyz\{|}~])/sprintf("\\x{%x}",ord($1))/eg;
+    }
+    downgrade($arg, 1);
+    return "\"".$arg."\"".$suffix;
+}
+
+sub Regexp::CARP_TRACE {
+    my $arg = "$_[0]";
+    downgrade($arg, 1);
+    if(UTF8_REGEXP_PROBLEM && is_utf8($arg)) {
+	for(my $i = length($arg); $i--; ) {
+	    my $o = ord(substr($arg, $i, 1));
+	    my $x = substr($arg, 0, 0);   # work around bug on Perl 5.8.{1,2}
+
+            # This code is repeated in format_arg()
+            if ($] ge 5.007_003) {
+                substr $arg, $i, 1, sprintf("\\x{%x}", $o)
+		  if utf8::native_to_unicode($o) < utf8::native_to_unicode(0x20)
+                  || utf8::native_to_unicode($o) > utf8::native_to_unicode(0x7e);
+            } elsif (ord("A") == 65) {
+                substr $arg, $i, 1, sprintf("\\x{%x}", $o)
+                    if $o < 0x20 || $o > 0x7e;
+            } else { # Early EBCDIC
+                substr $arg, $i, 1, sprintf("\\x{%x}", $o)
+                    if $o < ord(" ") || ((ord ("^") == 106)
+                                          ? $o == 0x5f
+                                          : $o == 0xff);
+            }
+	}
+    } else {
+        # See comment in format_arg() about this same regex.
+        $arg =~ s/([^ !"\$\%#'()*+,\-.\/0123456789:;<=>?\@ABCDEFGHIJKLMNOPQRSTUVWXYZ\[\\\]^_`abcdefghijklmnopqrstuvwxyz\{|}~])/sprintf("\\x{%x}",ord($1))/eg;
+    }
+    downgrade($arg, 1);
+    my $suffix = "";
+    if($arg =~ /\A\(\?\^?([a-z]*)(?:-[a-z]*)?:(.*)\)\z/s) {
+	($suffix, $arg) = ($1, $2);
+    }
+    if ( 2 < $MaxArgLen and $MaxArgLen < length($arg) ) {
+        substr ( $arg, $MaxArgLen - 3 ) = "";
+	$suffix = "...".$suffix;
+    }
+    return "qr($arg)$suffix";
+}
+
+# Takes an inheritance cache and a package and returns
+# an anon hash of known inheritances and anon array of
+# inheritances which consequences have not been figured
+# for.
+sub get_status {
+    my $cache = shift;
+    my $pkg   = shift;
+    $cache->{$pkg} ||= [ { $pkg => $pkg }, [ trusts_directly($pkg) ] ];
+    return @{ $cache->{$pkg} };
+}
+
+# Takes the info from caller() and figures out the name of
+# the sub/require/eval
+sub get_subname {
+    my $info = shift;
+    if ( defined( $info->{evaltext} ) ) {
+        my $eval = $info->{evaltext};
+        if ( $info->{is_require} ) {
+            return "require $eval";
+        }
+        else {
+            $eval =~ s/([\\\'])/\\$1/g;
+            return "eval '" . str_len_trim( $eval, $MaxEvalLen ) . "'";
+        }
+    }
+
+    # this can happen on older perls when the sub (or the stash containing it)
+    # has been deleted
+    if ( !defined( $info->{sub} ) ) {
+        return '__ANON__::__ANON__';
+    }
+
+    return ( $info->{sub} eq '(eval)' ) ? 'eval {...}' : $info->{sub};
+}
+
+# Figures out what call (from the point of view of the caller)
+# the long error backtrace should start at.
+sub long_error_loc {
+    my $i;
+    my $lvl = $CarpLevel;
+    {
+        ++$i;
+        my $cgc = _cgc();
+        my @caller = $cgc ? $cgc->($i) : caller($i);
+        my $pkg = $caller[0];
+        unless ( defined($pkg) ) {
+
+            # This *shouldn't* happen.
+            if (%Internal) {
+                local %Internal;
+                $i = long_error_loc();
+                last;
+            }
+            elsif (defined $caller[2]) {
+                # this can happen when the stash has been deleted
+                # in that case, just assume that it's a reasonable place to
+                # stop (the file and line data will still be intact in any
+                # case) - the only issue is that we can't detect if the
+                # deleted package was internal (so don't do that then)
+                # -doy
+                redo unless 0 > --$lvl;
+                last;
+            }
+            else {
+                return 2;
+            }
+        }
+        redo if $CarpInternal{$pkg};
+        redo unless 0 > --$lvl;
+        redo if $Internal{$pkg};
+    }
+    return $i - 1;
+}
+
+sub longmess_heavy {
+    if ( ref( $_[0] ) ) {   # don't break references as exceptions
+        return wantarray ? @_ : $_[0];
+    }
+    my $i = long_error_loc();
+    return ret_backtrace( $i, @_ );
+}
+
+# Returns a full stack backtrace starting from where it is
+# told.
+sub ret_backtrace {
+    my ( $i, @error ) = @_;
+    my $mess;
+    my $err = join '', @error;
+    $i++;
+
+    my $tid_msg = '';
+    if ( defined &threads::tid ) {
+        my $tid = threads->tid;
+        $tid_msg = " thread $tid" if $tid;
+    }
+
+    my %i = caller_info($i);
+    $mess = "$err at $i{file} line $i{line}$tid_msg";
+    if( defined $. ) {
+        local $@ = '';
+        local $SIG{__DIE__};
+        eval {
+            CORE::die;
+        };
+        if($@ =~ /^Died at .*(, <.*?> line \d+).$/ ) {
+            $mess .= $1;
+        }
+    }
+    $mess .= "\.\n";
+
+    while ( my %i = caller_info( ++$i ) ) {
+        $mess .= "\t$i{sub_name} called at $i{file} line $i{line}$tid_msg\n";
+    }
+
+    return $mess;
+}
+
+sub ret_summary {
+    my ( $i, @error ) = @_;
+    my $err = join '', @error;
+    $i++;
+
+    my $tid_msg = '';
+    if ( defined &threads::tid ) {
+        my $tid = threads->tid;
+        $tid_msg = " thread $tid" if $tid;
+    }
+
+    my %i = caller_info($i);
+    return "$err at $i{file} line $i{line}$tid_msg\.\n";
+}
+
+sub short_error_loc {
+    # You have to create your (hash)ref out here, rather than defaulting it
+    # inside trusts *on a lexical*, as you want it to persist across calls.
+    # (You can default it on $_[2], but that gets messy)
+    my $cache = {};
+    my $i     = 1;
+    my $lvl   = $CarpLevel;
+    {
+        my $cgc = _cgc();
+        my $called = $cgc ? $cgc->($i) : caller($i);
+        $i++;
+        my $caller = $cgc ? $cgc->($i) : caller($i);
+
+        if (!defined($caller)) {
+            my @caller = $cgc ? $cgc->($i) : caller($i);
+            if (@caller) {
+                # if there's no package but there is other caller info, then
+                # the package has been deleted - treat this as a valid package
+                # in this case
+                redo if defined($called) && $CarpInternal{$called};
+                redo unless 0 > --$lvl;
+                last;
+            }
+            else {
+                return 0;
+            }
+        }
+        redo if $Internal{$caller};
+        redo if $CarpInternal{$caller};
+        redo if $CarpInternal{$called};
+        redo if trusts( $called, $caller, $cache );
+        redo if trusts( $caller, $called, $cache );
+        redo unless 0 > --$lvl;
+    }
+    return $i - 1;
+}
+
+sub shortmess_heavy {
+    return longmess_heavy(@_) if $Verbose;
+    return @_ if ref( $_[0] );    # don't break references as exceptions
+    my $i = short_error_loc();
+    if ($i) {
+        ret_summary( $i, @_ );
+    }
+    else {
+        longmess_heavy(@_);
+    }
+}
+
+# If a string is too long, trims it with ...
+sub str_len_trim {
+    my $str = shift;
+    my $max = shift || 0;
+    if ( 2 < $max and $max < length($str) ) {
+        substr( $str, $max - 3 ) = '...';
+    }
+    return $str;
+}
+
+# Takes two packages and an optional cache.  Says whether the
+# first inherits from the second.
+#
+# Recursive versions of this have to work to avoid certain
+# possible endless loops, and when following long chains of
+# inheritance are less efficient.
+sub trusts {
+    my $child  = shift;
+    my $parent = shift;
+    my $cache  = shift;
+    my ( $known, $partial ) = get_status( $cache, $child );
+
+    # Figure out consequences until we have an answer
+    while ( @$partial and not exists $known->{$parent} ) {
+        my $anc = shift @$partial;
+        next if exists $known->{$anc};
+        $known->{$anc}++;
+        my ( $anc_knows, $anc_partial ) = get_status( $cache, $anc );
+        my @found = keys %$anc_knows;
+        @$known{@found} = ();
+        push @$partial, @$anc_partial;
+    }
+    return exists $known->{$parent};
+}
+
+# Takes a package and gives a list of those trusted directly
+sub trusts_directly {
+    my $class = shift;
+    no strict 'refs';
+    my $stash = \%{"$class\::"};
+    for my $var (qw/ CARP_NOT ISA /) {
+        # Don't try using the variable until we know it exists,
+        # to avoid polluting the caller's namespace.
+        if ( $stash->{$var} && *{$stash->{$var}}{ARRAY} && @{$stash->{$var}} ) {
+           return @{$stash->{$var}}
+        }
+    }
+    return;
+}
+
+if(!defined($warnings::VERSION) ||
+	do { no warnings "numeric"; $warnings::VERSION < 1.03 }) {
+    # Very old versions of warnings.pm import from Carp.  This can go
+    # wrong due to the circular dependency.  If Carp is invoked before
+    # warnings, then Carp starts by loading warnings, then warnings
+    # tries to import from Carp, and gets nothing because Carp is in
+    # the process of loading and hasn't defined its import method yet.
+    # So we work around that by manually exporting to warnings here.
+    no strict "refs";
+    *{"warnings::$_"} = \&$_ foreach @EXPORT;
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+Carp - alternative warn and die for modules
+
+=head1 SYNOPSIS
+
+    use Carp;
+
+    # warn user (from perspective of caller)
+    carp "string trimmed to 80 chars";
+
+    # die of errors (from perspective of caller)
+    croak "We're outta here!";
+
+    # die of errors with stack backtrace
+    confess "not implemented";
+
+    # cluck, longmess and shortmess not exported by default
+    use Carp qw(cluck longmess shortmess);
+    cluck "This is how we got here!";
+    $long_message   = longmess( "message from cluck() or confess()" );
+    $short_message  = shortmess( "message from carp() or croak()" );
+
+=head1 DESCRIPTION
+
+The Carp routines are useful in your own modules because
+they act like C<die()> or C<warn()>, but with a message which is more
+likely to be useful to a user of your module.  In the case of
+C<cluck()> and C<confess()>, that context is a summary of every
+call in the call-stack; C<longmess()> returns the contents of the error
+message.
+
+For a shorter message you can use C<carp()> or C<croak()> which report the
+error as being from where your module was called.  C<shortmess()> returns the
+contents of this error message.  There is no guarantee that that is where the
+error was, but it is a good educated guess.
+
+C<Carp> takes care not to clobber the status variables C<$!> and C<$^E>
+in the course of assembling its error messages.  This means that a
+C<$SIG{__DIE__}> or C<$SIG{__WARN__}> handler can capture the error
+information held in those variables, if it is required to augment the
+error message, and if the code calling C<Carp> left useful values there.
+Of course, C<Carp> can't guarantee the latter.
+
+You can also alter the way the output and logic of C<Carp> works, by
+changing some global variables in the C<Carp> namespace. See the
+section on C<GLOBAL VARIABLES> below.
+
+Here is a more complete description of how C<carp> and C<croak> work.
+What they do is search the call-stack for a function call stack where
+they have not been told that there shouldn't be an error.  If every
+call is marked safe, they give up and give a full stack backtrace
+instead.  In other words they presume that the first likely looking
+potential suspect is guilty.  Their rules for telling whether
+a call shouldn't generate errors work as follows:
+
+=over 4
+
+=item 1.
+
+Any call from a package to itself is safe.
+
+=item 2.
+
+Packages claim that there won't be errors on calls to or from
+packages explicitly marked as safe by inclusion in C<@CARP_NOT>, or
+(if that array is empty) C<@ISA>.  The ability to override what
+@ISA says is new in 5.8.
+
+=item 3.
+
+The trust in item 2 is transitive.  If A trusts B, and B
+trusts C, then A trusts C.  So if you do not override C<@ISA>
+with C<@CARP_NOT>, then this trust relationship is identical to,
+"inherits from".
+
+=item 4.
+
+Any call from an internal Perl module is safe.  (Nothing keeps
+user modules from marking themselves as internal to Perl, but
+this practice is discouraged.)
+
+=item 5.
+
+Any call to Perl's warning system (eg Carp itself) is safe.
+(This rule is what keeps it from reporting the error at the
+point where you call C<carp> or C<croak>.)
+
+=item 6.
+
+C<$Carp::CarpLevel> can be set to skip a fixed number of additional
+call levels.  Using this is not recommended because it is very
+difficult to get it to behave correctly.
+
+=back
+
+=head2 Forcing a Stack Trace
+
+As a debugging aid, you can force Carp to treat a croak as a confess
+and a carp as a cluck across I<all> modules. In other words, force a
+detailed stack trace to be given.  This can be very helpful when trying
+to understand why, or from where, a warning or error is being generated.
+
+This feature is enabled by 'importing' the non-existent symbol
+'verbose'. You would typically enable it by saying
+
+    perl -MCarp=verbose script.pl
+
+or by including the string C<-MCarp=verbose> in the PERL5OPT
+environment variable.
+
+Alternately, you can set the global variable C<$Carp::Verbose> to true.
+See the C<GLOBAL VARIABLES> section below.
+
+=head2 Stack Trace formatting
+
+At each stack level, the subroutine's name is displayed along with
+its parameters.  For simple scalars, this is sufficient.  For complex
+data types, such as objects and other references, this can simply
+display C<'HASH(0x1ab36d8)'>.
+
+Carp gives two ways to control this.
+
+=over 4
+
+=item 1.
+
+For objects, a method, C<CARP_TRACE>, will be called, if it exists.  If
+this method doesn't exist, or it recurses into C<Carp>, or it otherwise
+throws an exception, this is skipped, and Carp moves on to the next option,
+otherwise checking stops and the string returned is used.  It is recommended
+that the object's type is part of the string to make debugging easier.
+
+=item 2.
+
+For any type of reference, C<$Carp::RefArgFormatter> is checked (see below).
+This variable is expected to be a code reference, and the current parameter
+is passed in.  If this function doesn't exist (the variable is undef), or
+it recurses into C<Carp>, or it otherwise throws an exception, this is
+skipped, and Carp moves on to the next option, otherwise checking stops
+and the string returned is used.
+
+=item 3.
+
+Otherwise, if neither C<CARP_TRACE> nor C<$Carp::RefArgFormatter> is
+available, stringify the value ignoring any overloading.
+
+=back
+
+=head1 GLOBAL VARIABLES
+
+=head2 $Carp::MaxEvalLen
+
+This variable determines how many characters of a string-eval are to
+be shown in the output. Use a value of C<0> to show all text.
+
+Defaults to C<0>.
+
+=head2 $Carp::MaxArgLen
+
+This variable determines how many characters of each argument to a
+function to print. Use a value of C<0> to show the full length of the
+argument.
+
+Defaults to C<64>.
+
+=head2 $Carp::MaxArgNums
+
+This variable determines how many arguments to each function to show.
+Use a false value to show all arguments to a function call.  To suppress all
+arguments, use C<-1> or C<'0 but true'>.
+
+Defaults to C<8>.
+
+=head2 $Carp::Verbose
+
+This variable makes C<carp()> and C<croak()> generate stack backtraces
+just like C<cluck()> and C<confess()>.  This is how C<use Carp 'verbose'>
+is implemented internally.
+
+Defaults to C<0>.
+
+=head2 $Carp::RefArgFormatter
+
+This variable sets a general argument formatter to display references.
+Plain scalars and objects that implement C<CARP_TRACE> will not go through
+this formatter.  Calling C<Carp> from within this function is not supported.
+
+local $Carp::RefArgFormatter = sub {
+    require Data::Dumper;
+    Data::Dumper::Dump($_[0]); # not necessarily safe
+};
+
+=head2 @CARP_NOT
+
+This variable, I<in your package>, says which packages are I<not> to be
+considered as the location of an error. The C<carp()> and C<cluck()>
+functions will skip over callers when reporting where an error occurred.
+
+NB: This variable must be in the package's symbol table, thus:
+
+    # These work
+    our @CARP_NOT; # file scope
+    use vars qw(@CARP_NOT); # package scope
+    @My::Package::CARP_NOT = ... ; # explicit package variable
+
+    # These don't work
+    sub xyz { ... @CARP_NOT = ... } # w/o declarations above
+    my @CARP_NOT; # even at top-level
+
+Example of use:
+
+    package My::Carping::Package;
+    use Carp;
+    our @CARP_NOT;
+    sub bar     { .... or _error('Wrong input') }
+    sub _error  {
+        # temporary control of where'ness, __PACKAGE__ is implicit
+        local @CARP_NOT = qw(My::Friendly::Caller);
+        carp(@_)
+    }
+
+This would make C<Carp> report the error as coming from a caller not
+in C<My::Carping::Package>, nor from C<My::Friendly::Caller>.
+
+Also read the L</DESCRIPTION> section above, about how C<Carp> decides
+where the error is reported from.
+
+Use C<@CARP_NOT>, instead of C<$Carp::CarpLevel>.
+
+Overrides C<Carp>'s use of C<@ISA>.
+
+=head2 %Carp::Internal
+
+This says what packages are internal to Perl.  C<Carp> will never
+report an error as being from a line in a package that is internal to
+Perl.  For example:
+
+    $Carp::Internal{ (__PACKAGE__) }++;
+    # time passes...
+    sub foo { ... or confess("whatever") };
+
+would give a full stack backtrace starting from the first caller
+outside of __PACKAGE__.  (Unless that package was also internal to
+Perl.)
+
+=head2 %Carp::CarpInternal
+
+This says which packages are internal to Perl's warning system.  For
+generating a full stack backtrace this is the same as being internal
+to Perl, the stack backtrace will not start inside packages that are
+listed in C<%Carp::CarpInternal>.  But it is slightly different for
+the summary message generated by C<carp> or C<croak>.  There errors
+will not be reported on any lines that are calling packages in
+C<%Carp::CarpInternal>.
+
+For example C<Carp> itself is listed in C<%Carp::CarpInternal>.
+Therefore the full stack backtrace from C<confess> will not start
+inside of C<Carp>, and the short message from calling C<croak> is
+not placed on the line where C<croak> was called.
+
+=head2 $Carp::CarpLevel
+
+This variable determines how many additional call frames are to be
+skipped that would not otherwise be when reporting where an error
+occurred on a call to one of C<Carp>'s functions.  It is fairly easy
+to count these call frames on calls that generate a full stack
+backtrace.  However it is much harder to do this accounting for calls
+that generate a short message.  Usually people skip too many call
+frames.  If they are lucky they skip enough that C<Carp> goes all of
+the way through the call stack, realizes that something is wrong, and
+then generates a full stack backtrace.  If they are unlucky then the
+error is reported from somewhere misleading very high in the call
+stack.
+
+Therefore it is best to avoid C<$Carp::CarpLevel>.  Instead use
+C<@CARP_NOT>, C<%Carp::Internal> and C<%Carp::CarpInternal>.
+
+Defaults to C<0>.
+
+=head1 BUGS
+
+The Carp routines don't handle exception objects currently.
+If called with a first argument that is a reference, they simply
+call die() or warn(), as appropriate.
+
+=head1 SEE ALSO
+
+L<Carp::Always>,
+L<Carp::Clan>
+
+=head1 CONTRIBUTING
+
+L<Carp> is maintained by the perl 5 porters as part of the core perl 5
+version control repository. Please see the L<perlhack> perldoc for how to
+submit patches and contribute to it.
+
+=head1 AUTHOR
+
+The Carp module first appeared in Larry Wall's perl 5.000 distribution.
+Since then it has been modified by several of the perl 5 porters.
+Andrew Main (Zefram) <zefram@fysh.org> divested Carp into an independent
+distribution.
+
+=head1 COPYRIGHT
+
+Copyright (C) 1994-2013 Larry Wall
+
+Copyright (C) 2011, 2012, 2013 Andrew Main (Zefram) <zefram@fysh.org>
+
+=head1 LICENSE
+
+This module is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
diff --git a/lib/5.24.1/Carp/Heavy.pm b/lib/5.24.1/Carp/Heavy.pm
new file mode 100644
index 00000000..b05d7583
--- /dev/null
+++ b/lib/5.24.1/Carp/Heavy.pm
@@ -0,0 +1,21 @@
+package Carp::Heavy;
+
+use Carp ();
+
+our $VERSION = '1.40';
+$VERSION =~ tr/_//d;
+
+# Carp::Heavy was merged into Carp in version 1.12.  Any mismatched versions
+# after this point are not significant and can be ignored.
+if(($Carp::VERSION || 0) < 1.12) {
+	my $cv = defined($Carp::VERSION) ? $Carp::VERSION : "undef";
+	die "Version mismatch between Carp $cv ($INC{q(Carp.pm)}) and Carp::Heavy $VERSION ($INC{q(Carp/Heavy.pm)}).  Did you alter \@INC after Carp was loaded?\n";
+}
+
+1;
+
+# Most of the machinery of Carp used to be here.
+# It has been moved in Carp.pm now, but this placeholder remains for
+# the benefit of modules that like to preload Carp::Heavy directly.
+# This must load Carp, because some modules rely on the historical
+# behaviour of Carp::Heavy loading Carp.
diff --git a/lib/5.24.1/Class/Struct.pm b/lib/5.24.1/Class/Struct.pm
new file mode 100644
index 00000000..0aaab519
--- /dev/null
+++ b/lib/5.24.1/Class/Struct.pm
@@ -0,0 +1,637 @@
+package Class::Struct;
+
+## See POD after __END__
+
+use 5.006_001;
+
+use strict;
+use warnings::register;
+our(@ISA, @EXPORT, $VERSION);
+
+use Carp;
+
+require Exporter;
+@ISA = qw(Exporter);
+@EXPORT = qw(struct);
+
+$VERSION = '0.65';
+
+my $print = 0;
+sub printem {
+    if (@_) { $print = shift }
+    else    { $print++ }
+}
+
+{
+    package Class::Struct::Tie_ISA;
+
+    sub TIEARRAY {
+        my $class = shift;
+        return bless [], $class;
+    }
+
+    sub STORE {
+        my ($self, $index, $value) = @_;
+        Class::Struct::_subclass_error();
+    }
+
+    sub FETCH {
+        my ($self, $index) = @_;
+        $self->[$index];
+    }
+
+    sub FETCHSIZE {
+        my $self = shift;
+        return scalar(@$self);
+    }
+
+    sub DESTROY { }
+}
+
+sub import {
+    my $self = shift;
+
+    if ( @_ == 0 ) {
+      $self->export_to_level( 1, $self, @EXPORT );
+    } elsif ( @_ == 1 ) {
+	# This is admittedly a little bit silly:
+	# do we ever export anything else than 'struct'...?
+      $self->export_to_level( 1, $self, @_ );
+    } else {
+      goto &struct;
+    }
+}
+
+sub struct {
+
+    # Determine parameter list structure, one of:
+    #   struct( class => [ element-list ])
+    #   struct( class => { element-list })
+    #   struct( element-list )
+    # Latter form assumes current package name as struct name.
+
+    my ($class, @decls);
+    my $base_type = ref $_[1];
+    if ( $base_type eq 'HASH' ) {
+        $class = shift;
+        @decls = %{shift()};
+        _usage_error() if @_;
+    }
+    elsif ( $base_type eq 'ARRAY' ) {
+        $class = shift;
+        @decls = @{shift()};
+        _usage_error() if @_;
+    }
+    else {
+        $base_type = 'ARRAY';
+        $class = (caller())[0];
+        @decls = @_;
+    }
+
+    _usage_error() if @decls % 2 == 1;
+
+    # Ensure we are not, and will not be, a subclass.
+
+    my $isa = do {
+        no strict 'refs';
+        \@{$class . '::ISA'};
+    };
+    _subclass_error() if @$isa;
+    tie @$isa, 'Class::Struct::Tie_ISA';
+
+    # Create constructor.
+
+    croak "function 'new' already defined in package $class"
+        if do { no strict 'refs'; defined &{$class . "::new"} };
+
+    my @methods = ();
+    my %refs = ();
+    my %arrays = ();
+    my %hashes = ();
+    my %classes = ();
+    my $got_class = 0;
+    my $out = '';
+
+    $out = "{\n  package $class;\n  use Carp;\n  sub new {\n";
+    $out .= "    my (\$class, \%init) = \@_;\n";
+    $out .= "    \$class = __PACKAGE__ unless \@_;\n";
+
+    my $cnt = 0;
+    my $idx = 0;
+    my( $cmt, $name, $type, $elem );
+
+    if( $base_type eq 'HASH' ){
+        $out .= "    my(\$r) = {};\n";
+        $cmt = '';
+    }
+    elsif( $base_type eq 'ARRAY' ){
+        $out .= "    my(\$r) = [];\n";
+    }
+
+    $out .= " bless \$r, \$class;\n\n";
+
+    while( $idx < @decls ){
+        $name = $decls[$idx];
+        $type = $decls[$idx+1];
+        push( @methods, $name );
+        if( $base_type eq 'HASH' ){
+            $elem = "{'${class}::$name'}";
+        }
+        elsif( $base_type eq 'ARRAY' ){
+            $elem = "[$cnt]";
+            ++$cnt;
+            $cmt = " # $name";
+        }
+        if( $type =~ /^\*(.)/ ){
+            $refs{$name}++;
+            $type = $1;
+        }
+        my $init = "defined(\$init{'$name'}) ? \$init{'$name'} :";
+        if( $type eq '@' ){
+            $out .= "    croak 'Initializer for $name must be array reference'\n"; 
+            $out .= "        if defined(\$init{'$name'}) && ref(\$init{'$name'}) ne 'ARRAY';\n";
+            $out .= "    \$r->$name( $init [] );$cmt\n"; 
+            $arrays{$name}++;
+        }
+        elsif( $type eq '%' ){
+            $out .= "    croak 'Initializer for $name must be hash reference'\n";
+            $out .= "        if defined(\$init{'$name'}) && ref(\$init{'$name'}) ne 'HASH';\n";
+            $out .= "    \$r->$name( $init {} );$cmt\n";
+            $hashes{$name}++;
+        }
+        elsif ( $type eq '$') {
+            $out .= "    \$r->$name( $init undef );$cmt\n";
+        }
+        elsif( $type =~ /^\w+(?:::\w+)*$/ ){
+            $out .= "    if (defined(\$init{'$name'})) {\n";
+           $out .= "       if (ref \$init{'$name'} eq 'HASH')\n";
+            $out .= "            { \$r->$name( $type->new(\%{\$init{'$name'}}) ) } $cmt\n";
+           $out .= "       elsif (UNIVERSAL::isa(\$init{'$name'}, '$type'))\n";
+            $out .= "            { \$r->$name( \$init{'$name'} ) } $cmt\n";
+            $out .= "       else { croak 'Initializer for $name must be hash or $type reference' }\n";
+            $out .= "    }\n";
+            $classes{$name} = $type;
+            $got_class = 1;
+        }
+        else{
+            croak "'$type' is not a valid struct element type";
+        }
+        $idx += 2;
+    }
+
+    $out .= "\n \$r;\n}\n";
+
+    # Create accessor methods.
+
+    my( $pre, $pst, $sel );
+    $cnt = 0;
+    foreach $name (@methods){
+        if ( do { no strict 'refs'; defined &{$class . "::$name"} } ) {
+            warnings::warnif("function '$name' already defined, overrides struct accessor method");
+        }
+        else {
+            $pre = $pst = $cmt = $sel = '';
+            if( defined $refs{$name} ){
+                $pre = "\\(";
+                $pst = ")";
+                $cmt = " # returns ref";
+            }
+            $out .= "  sub $name {$cmt\n    my \$r = shift;\n";
+            if( $base_type eq 'ARRAY' ){
+                $elem = "[$cnt]";
+                ++$cnt;
+            }
+            elsif( $base_type eq 'HASH' ){
+                $elem = "{'${class}::$name'}";
+            }
+            if( defined $arrays{$name} ){
+                $out .= "    my \$i;\n";
+                $out .= "    \@_ ? (\$i = shift) : return \$r->$elem;\n"; 
+                $out .= "    if (ref(\$i) eq 'ARRAY' && !\@_) { \$r->$elem = \$i; return \$r }\n";
+                $sel = "->[\$i]";
+            }
+            elsif( defined $hashes{$name} ){
+                $out .= "    my \$i;\n";
+                $out .= "    \@_ ? (\$i = shift) : return \$r->$elem;\n";
+                $out .= "    if (ref(\$i) eq 'HASH' && !\@_) { \$r->$elem = \$i; return \$r }\n";
+                $sel = "->{\$i}";
+            }
+            elsif( defined $classes{$name} ){
+                $out .= "    croak '$name argument is wrong class' if \@_ && ! UNIVERSAL::isa(\$_[0], '$classes{$name}');\n";
+            }
+            $out .= "    croak 'Too many args to $name' if \@_ > 1;\n";
+            $out .= "    \@_ ? ($pre\$r->$elem$sel = shift$pst) : $pre\$r->$elem$sel$pst;\n";
+            $out .= "  }\n";
+        }
+    }
+    $out .= "}\n1;\n";
+
+    print $out if $print;
+    my $result = eval $out;
+    carp $@ if $@;
+}
+
+sub _usage_error {
+    confess "struct usage error";
+}
+
+sub _subclass_error {
+    croak 'struct class cannot be a subclass (@ISA not allowed)';
+}
+
+1; # for require
+
+
+__END__
+
+=head1 NAME
+
+Class::Struct - declare struct-like datatypes as Perl classes
+
+=head1 SYNOPSIS
+
+    use Class::Struct;
+            # declare struct, based on array:
+    struct( CLASS_NAME => [ ELEMENT_NAME => ELEMENT_TYPE, ... ]);
+            # declare struct, based on hash:
+    struct( CLASS_NAME => { ELEMENT_NAME => ELEMENT_TYPE, ... });
+
+    package CLASS_NAME;
+    use Class::Struct;
+            # declare struct, based on array, implicit class name:
+    struct( ELEMENT_NAME => ELEMENT_TYPE, ... );
+
+    # Declare struct at compile time
+    use Class::Struct CLASS_NAME => [ELEMENT_NAME => ELEMENT_TYPE, ...];
+    use Class::Struct CLASS_NAME => {ELEMENT_NAME => ELEMENT_TYPE, ...};
+
+    # declare struct at compile time, based on array, implicit
+    # class name:
+    package CLASS_NAME;
+    use Class::Struct ELEMENT_NAME => ELEMENT_TYPE, ... ;
+
+    package Myobj;
+    use Class::Struct;
+            # declare struct with four types of elements:
+    struct( s => '$', a => '@', h => '%', c => 'My_Other_Class' );
+
+    $obj = new Myobj;               # constructor
+
+                                    # scalar type accessor:
+    $element_value = $obj->s;           # element value
+    $obj->s('new value');               # assign to element
+
+                                    # array type accessor:
+    $ary_ref = $obj->a;                 # reference to whole array
+    $ary_element_value = $obj->a(2);    # array element value
+    $obj->a(2, 'new value');            # assign to array element
+
+                                    # hash type accessor:
+    $hash_ref = $obj->h;                # reference to whole hash
+    $hash_element_value = $obj->h('x'); # hash element value
+    $obj->h('x', 'new value');          # assign to hash element
+
+                                    # class type accessor:
+    $element_value = $obj->c;           # object reference
+    $obj->c->method(...);               # call method of object
+    $obj->c(new My_Other_Class);        # assign a new object
+
+=head1 DESCRIPTION
+
+C<Class::Struct> exports a single function, C<struct>.
+Given a list of element names and types, and optionally
+a class name, C<struct> creates a Perl 5 class that implements
+a "struct-like" data structure.
+
+The new class is given a constructor method, C<new>, for creating
+struct objects.
+
+Each element in the struct data has an accessor method, which is
+used to assign to the element and to fetch its value.  The
+default accessor can be overridden by declaring a C<sub> of the
+same name in the package.  (See Example 2.)
+
+Each element's type can be scalar, array, hash, or class.
+
+=head2 The C<struct()> function
+
+The C<struct> function has three forms of parameter-list.
+
+    struct( CLASS_NAME => [ ELEMENT_LIST ]);
+    struct( CLASS_NAME => { ELEMENT_LIST });
+    struct( ELEMENT_LIST );
+
+The first and second forms explicitly identify the name of the
+class being created.  The third form assumes the current package
+name as the class name.
+
+An object of a class created by the first and third forms is
+based on an array, whereas an object of a class created by the
+second form is based on a hash. The array-based forms will be
+somewhat faster and smaller; the hash-based forms are more
+flexible.
+
+The class created by C<struct> must not be a subclass of another
+class other than C<UNIVERSAL>.
+
+It can, however, be used as a superclass for other classes. To facilitate
+this, the generated constructor method uses a two-argument blessing.
+Furthermore, if the class is hash-based, the key of each element is
+prefixed with the class name (see I<Perl Cookbook>, Recipe 13.12).
+
+A function named C<new> must not be explicitly defined in a class
+created by C<struct>.
+
+The I<ELEMENT_LIST> has the form
+
+    NAME => TYPE, ...
+
+Each name-type pair declares one element of the struct. Each
+element name will be defined as an accessor method unless a
+method by that name is explicitly defined; in the latter case, a
+warning is issued if the warning flag (B<-w>) is set.
+
+=head2 Class Creation at Compile Time
+
+C<Class::Struct> can create your class at compile time.  The main reason
+for doing this is obvious, so your class acts like every other class in
+Perl.  Creating your class at compile time will make the order of events
+similar to using any other class ( or Perl module ).
+
+There is no significant speed gain between compile time and run time
+class creation, there is just a new, more standard order of events.
+
+=head2 Element Types and Accessor Methods
+
+The four element types -- scalar, array, hash, and class -- are
+represented by strings -- C<'$'>, C<'@'>, C<'%'>, and a class name --
+optionally preceded by a C<'*'>.
+
+The accessor method provided by C<struct> for an element depends
+on the declared type of the element.
+
+=over 4
+
+=item Scalar (C<'$'> or C<'*$'>)
+
+The element is a scalar, and by default is initialized to C<undef>
+(but see L<Initializing with new>).
+
+The accessor's argument, if any, is assigned to the element.
+
+If the element type is C<'$'>, the value of the element (after
+assignment) is returned. If the element type is C<'*$'>, a reference
+to the element is returned.
+
+=item Array (C<'@'> or C<'*@'>)
+
+The element is an array, initialized by default to C<()>.
+
+With no argument, the accessor returns a reference to the
+element's whole array (whether or not the element was
+specified as C<'@'> or C<'*@'>).
+
+With one or two arguments, the first argument is an index
+specifying one element of the array; the second argument, if
+present, is assigned to the array element.  If the element type
+is C<'@'>, the accessor returns the array element value.  If the
+element type is C<'*@'>, a reference to the array element is
+returned.
+
+As a special case, when the accessor is called with an array reference
+as the sole argument, this causes an assignment of the whole array element.
+The object reference is returned.
+
+=item Hash (C<'%'> or C<'*%'>)
+
+The element is a hash, initialized by default to C<()>.
+
+With no argument, the accessor returns a reference to the
+element's whole hash (whether or not the element was
+specified as C<'%'> or C<'*%'>).
+
+With one or two arguments, the first argument is a key specifying
+one element of the hash; the second argument, if present, is
+assigned to the hash element.  If the element type is C<'%'>, the
+accessor returns the hash element value.  If the element type is
+C<'*%'>, a reference to the hash element is returned.
+
+As a special case, when the accessor is called with a hash reference
+as the sole argument, this causes an assignment of the whole hash element.
+The object reference is returned.
+
+=item Class (C<'Class_Name'> or C<'*Class_Name'>)
+
+The element's value must be a reference blessed to the named
+class or to one of its subclasses. The element is not initialized
+by default.
+
+The accessor's argument, if any, is assigned to the element. The
+accessor will C<croak> if this is not an appropriate object
+reference.
+
+If the element type does not start with a C<'*'>, the accessor
+returns the element value (after assignment). If the element type
+starts with a C<'*'>, a reference to the element itself is returned.
+
+=back
+
+=head2 Initializing with C<new>
+
+C<struct> always creates a constructor called C<new>. That constructor
+may take a list of initializers for the various elements of the new
+struct. 
+
+Each initializer is a pair of values: I<element name>C< =E<gt> >I<value>.
+The initializer value for a scalar element is just a scalar value. The 
+initializer for an array element is an array reference. The initializer
+for a hash is a hash reference.
+
+The initializer for a class element is an object of the corresponding class,
+or of one of it's subclasses, or a reference to a hash containing named 
+arguments to be passed to the element's constructor.
+
+See Example 3 below for an example of initialization.
+
+=head1 EXAMPLES
+
+=over 4
+
+=item Example 1
+
+Giving a struct element a class type that is also a struct is how
+structs are nested.  Here, C<Timeval> represents a time (seconds and
+microseconds), and C<Rusage> has two elements, each of which is of
+type C<Timeval>.
+
+    use Class::Struct;
+
+    struct( Rusage => {
+        ru_utime => 'Timeval',  # user time used
+        ru_stime => 'Timeval',  # system time used
+    });
+
+    struct( Timeval => [
+        tv_secs  => '$',        # seconds
+        tv_usecs => '$',        # microseconds
+    ]);
+
+    # create an object:
+    my $t = Rusage->new(ru_utime=>Timeval->new(),
+        ru_stime=>Timeval->new());
+
+    # $t->ru_utime and $t->ru_stime are objects of type Timeval.
+    # set $t->ru_utime to 100.0 sec and $t->ru_stime to 5.0 sec.
+    $t->ru_utime->tv_secs(100);
+    $t->ru_utime->tv_usecs(0);
+    $t->ru_stime->tv_secs(5);
+    $t->ru_stime->tv_usecs(0);
+
+=item Example 2
+
+An accessor function can be redefined in order to provide
+additional checking of values, etc.  Here, we want the C<count>
+element always to be nonnegative, so we redefine the C<count>
+accessor accordingly.
+
+    package MyObj;
+    use Class::Struct;
+
+    # declare the struct
+    struct ( 'MyObj', { count => '$', stuff => '%' } );
+
+    # override the default accessor method for 'count'
+    sub count {
+        my $self = shift;
+        if ( @_ ) {
+            die 'count must be nonnegative' if $_[0] < 0;
+            $self->{'MyObj::count'} = shift;
+            warn "Too many args to count" if @_;
+        }
+        return $self->{'MyObj::count'};
+    }
+
+    package main;
+    $x = new MyObj;
+    print "\$x->count(5) = ", $x->count(5), "\n";
+                            # prints '$x->count(5) = 5'
+
+    print "\$x->count = ", $x->count, "\n";
+                            # prints '$x->count = 5'
+
+    print "\$x->count(-5) = ", $x->count(-5), "\n";
+                            # dies due to negative argument!
+
+=item Example 3
+
+The constructor of a generated class can be passed a list
+of I<element>=>I<value> pairs, with which to initialize the struct.
+If no initializer is specified for a particular element, its default
+initialization is performed instead. Initializers for non-existent
+elements are silently ignored.
+
+Note that the initializer for a nested class may be specified as
+an object of that class, or as a reference to a hash of initializers
+that are passed on to the nested struct's constructor.
+
+    use Class::Struct;
+
+    struct Breed =>
+    {
+        name  => '$',
+        cross => '$',
+    };
+
+    struct Cat =>
+    [
+        name     => '$',
+        kittens  => '@',
+        markings => '%',
+        breed    => 'Breed',
+    ];
+
+
+    my $cat = Cat->new( name => 'Socks',
+               kittens  => ['Monica', 'Kenneth'],
+               markings => { socks=>1, blaze=>"white" },
+               breed    => Breed->new(name=>'short-hair', cross=>1),
+          or:  breed    => {name=>'short-hair', cross=>1},
+                      );
+
+    print "Once a cat called ", $cat->name, "\n";
+    print "(which was a ", $cat->breed->name, ")\n";
+    print "had 2 kittens: ", join(' and ', @{$cat->kittens}), "\n";
+
+=back
+
+=head1 Author and Modification History
+
+Modified by Damian Conway, 2001-09-10, v0.62.
+
+   Modified implicit construction of nested objects.
+   Now will also take an object ref instead of requiring a hash ref.
+   Also default initializes nested object attributes to undef, rather
+   than calling object constructor without args
+   Original over-helpfulness was fraught with problems:
+       * the class's constructor might not be called 'new'
+       * the class might not have a hash-like-arguments constructor
+       * the class might not have a no-argument constructor
+       * "recursive" data structures didn't work well:
+                 package Person;
+                 struct { mother => 'Person', father => 'Person'};
+
+
+Modified by Casey West, 2000-11-08, v0.59.
+
+    Added the ability for compile time class creation.
+
+Modified by Damian Conway, 1999-03-05, v0.58.
+
+    Added handling of hash-like arg list to class ctor.
+
+    Changed to two-argument blessing in ctor to support
+    derivation from created classes.
+
+    Added classname prefixes to keys in hash-based classes
+    (refer to "Perl Cookbook", Recipe 13.12 for rationale).
+
+    Corrected behaviour of accessors for '*@' and '*%' struct
+    elements.  Package now implements documented behaviour when
+    returning a reference to an entire hash or array element.
+    Previously these were returned as a reference to a reference
+    to the element.
+
+Renamed to C<Class::Struct> and modified by Jim Miner, 1997-04-02.
+
+    members() function removed.
+    Documentation corrected and extended.
+    Use of struct() in a subclass prohibited.
+    User definition of accessor allowed.
+    Treatment of '*' in element types corrected.
+    Treatment of classes as element types corrected.
+    Class name to struct() made optional.
+    Diagnostic checks added.
+
+Originally C<Class::Template> by Dean Roehrich.
+
+    # Template.pm   --- struct/member template builder
+    #   12mar95
+    #   Dean Roehrich
+    #
+    # changes/bugs fixed since 28nov94 version:
+    #  - podified
+    # changes/bugs fixed since 21nov94 version:
+    #  - Fixed examples.
+    # changes/bugs fixed since 02sep94 version:
+    #  - Moved to Class::Template.
+    # changes/bugs fixed since 20feb94 version:
+    #  - Updated to be a more proper module.
+    #  - Added "use strict".
+    #  - Bug in build_methods, was using @var when @$var needed.
+    #  - Now using my() rather than local().
+    #
+    # Uses perl5 classes to create nested data types.
+    # This is offered as one implementation of Tom Christiansen's
+    # "structs.pl" idea.
+
+=cut
diff --git a/lib/5.24.1/Compress/Zlib.pm b/lib/5.24.1/Compress/Zlib.pm
new file mode 100644
index 00000000..897b1e26
--- /dev/null
+++ b/lib/5.24.1/Compress/Zlib.pm
@@ -0,0 +1,1507 @@
+
+package Compress::Zlib;
+
+require 5.006 ;
+require Exporter;
+use Carp ;
+use IO::Handle ;
+use Scalar::Util qw(dualvar);
+
+use IO::Compress::Base::Common 2.069 ;
+use Compress::Raw::Zlib 2.069 ;
+use IO::Compress::Gzip 2.069 ;
+use IO::Uncompress::Gunzip 2.069 ;
+
+use strict ;
+use warnings ;
+use bytes ;
+our ($VERSION, $XS_VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
+
+$VERSION = '2.069_001';
+$XS_VERSION = $VERSION; 
+$VERSION = eval $VERSION;
+
+@ISA = qw(Exporter);
+# Items to export into callers namespace by default. Note: do not export
+# names by default without a very good reason. Use EXPORT_OK instead.
+# Do not simply export all your public functions/methods/constants.
+@EXPORT = qw(
+        deflateInit inflateInit
+
+        compress uncompress
+
+        gzopen $gzerrno
+    );
+
+push @EXPORT, @Compress::Raw::Zlib::EXPORT ;
+
+@EXPORT_OK = qw(memGunzip memGzip zlib_version);
+%EXPORT_TAGS = (
+    ALL         => \@EXPORT
+);
+
+BEGIN
+{
+    *zlib_version = \&Compress::Raw::Zlib::zlib_version;
+}
+
+use constant FLAG_APPEND             => 1 ;
+use constant FLAG_CRC                => 2 ;
+use constant FLAG_ADLER              => 4 ;
+use constant FLAG_CONSUME_INPUT      => 8 ;
+
+our (@my_z_errmsg);
+
+@my_z_errmsg = (
+    "need dictionary",     # Z_NEED_DICT     2
+    "stream end",          # Z_STREAM_END    1
+    "",                    # Z_OK            0
+    "file error",          # Z_ERRNO        (-1)
+    "stream error",        # Z_STREAM_ERROR (-2)
+    "data error",          # Z_DATA_ERROR   (-3)
+    "insufficient memory", # Z_MEM_ERROR    (-4)
+    "buffer error",        # Z_BUF_ERROR    (-5)
+    "incompatible version",# Z_VERSION_ERROR(-6)
+    );
+
+
+sub _set_gzerr
+{
+    my $value = shift ;
+
+    if ($value == 0) {
+        $Compress::Zlib::gzerrno = 0 ;
+    }
+    elsif ($value == Z_ERRNO() || $value > 2) {
+        $Compress::Zlib::gzerrno = $! ;
+    }
+    else {
+        $Compress::Zlib::gzerrno = dualvar($value+0, $my_z_errmsg[2 - $value]);
+    }
+
+    return $value ;
+}
+
+sub _set_gzerr_undef
+{
+    _set_gzerr(@_);
+    return undef;
+}
+
+sub _save_gzerr
+{
+    my $gz = shift ;
+    my $test_eof = shift ;
+
+    my $value = $gz->errorNo() || 0 ;
+    my $eof = $gz->eof() ;
+
+    if ($test_eof) {
+        # gzread uses Z_STREAM_END to denote a successful end
+        $value = Z_STREAM_END() if $gz->eof() && $value == 0 ;
+    }
+
+    _set_gzerr($value) ;
+}
+
+sub gzopen($$)
+{
+    my ($file, $mode) = @_ ;
+
+    my $gz ;
+    my %defOpts = (Level    => Z_DEFAULT_COMPRESSION(),
+                   Strategy => Z_DEFAULT_STRATEGY(),
+                  );
+
+    my $writing ;
+    $writing = ! ($mode =~ /r/i) ;
+    $writing = ($mode =~ /[wa]/i) ;
+
+    $defOpts{Level}    = $1               if $mode =~ /(\d)/;
+    $defOpts{Strategy} = Z_FILTERED()     if $mode =~ /f/i;
+    $defOpts{Strategy} = Z_HUFFMAN_ONLY() if $mode =~ /h/i;
+    $defOpts{Append}   = 1                if $mode =~ /a/i;
+
+    my $infDef = $writing ? 'deflate' : 'inflate';
+    my @params = () ;
+
+    croak "gzopen: file parameter is not a filehandle or filename"
+        unless isaFilehandle $file || isaFilename $file  || 
+               (ref $file && ref $file eq 'SCALAR');
+
+    return undef unless $mode =~ /[rwa]/i ;
+
+    _set_gzerr(0) ;
+
+    if ($writing) {
+        $gz = new IO::Compress::Gzip($file, Minimal => 1, AutoClose => 1, 
+                                     %defOpts) 
+            or $Compress::Zlib::gzerrno = $IO::Compress::Gzip::GzipError;
+    }
+    else {
+        $gz = new IO::Uncompress::Gunzip($file, 
+                                         Transparent => 1,
+                                         Append => 0, 
+                                         AutoClose => 1, 
+                                         MultiStream => 1,
+                                         Strict => 0) 
+            or $Compress::Zlib::gzerrno = $IO::Uncompress::Gunzip::GunzipError;
+    }
+
+    return undef
+        if ! defined $gz ;
+
+    bless [$gz, $infDef], 'Compress::Zlib::gzFile';
+}
+
+sub Compress::Zlib::gzFile::gzread
+{
+    my $self = shift ;
+
+    return _set_gzerr(Z_STREAM_ERROR())
+        if $self->[1] ne 'inflate';
+
+    my $len = defined $_[1] ? $_[1] : 4096 ; 
+
+    my $gz = $self->[0] ;
+    if ($self->gzeof() || $len == 0) {
+        # Zap the output buffer to match ver 1 behaviour.
+        $_[0] = "" ;
+        _save_gzerr($gz, 1);
+        return 0 ;
+    }
+
+    my $status = $gz->read($_[0], $len) ; 
+    _save_gzerr($gz, 1);
+    return $status ;
+}
+
+sub Compress::Zlib::gzFile::gzreadline
+{
+    my $self = shift ;
+
+    my $gz = $self->[0] ;
+    {
+        # Maintain backward compatibility with 1.x behaviour
+        # It didn't support $/, so this can't either.
+        local $/ = "\n" ;
+        $_[0] = $gz->getline() ; 
+    }
+    _save_gzerr($gz, 1);
+    return defined $_[0] ? length $_[0] : 0 ;
+}
+
+sub Compress::Zlib::gzFile::gzwrite
+{
+    my $self = shift ;
+    my $gz = $self->[0] ;
+
+    return _set_gzerr(Z_STREAM_ERROR())
+        if $self->[1] ne 'deflate';
+
+    $] >= 5.008 and (utf8::downgrade($_[0], 1) 
+        or croak "Wide character in gzwrite");
+
+    my $status = $gz->write($_[0]) ;
+    _save_gzerr($gz);
+    return $status ;
+}
+
+sub Compress::Zlib::gzFile::gztell
+{
+    my $self = shift ;
+    my $gz = $self->[0] ;
+    my $status = $gz->tell() ;
+    _save_gzerr($gz);
+    return $status ;
+}
+
+sub Compress::Zlib::gzFile::gzseek
+{
+    my $self   = shift ;
+    my $offset = shift ;
+    my $whence = shift ;
+
+    my $gz = $self->[0] ;
+    my $status ;
+    eval { $status = $gz->seek($offset, $whence) ; };
+    if ($@)
+    {
+        my $error = $@;
+        $error =~ s/^.*: /gzseek: /;
+        $error =~ s/ at .* line \d+\s*$//;
+        croak $error;
+    }
+    _save_gzerr($gz);
+    return $status ;
+}
+
+sub Compress::Zlib::gzFile::gzflush
+{
+    my $self = shift ;
+    my $f    = shift ;
+
+    my $gz = $self->[0] ;
+    my $status = $gz->flush($f) ;
+    my $err = _save_gzerr($gz);
+    return $status ? 0 : $err;
+}
+
+sub Compress::Zlib::gzFile::gzclose
+{
+    my $self = shift ;
+    my $gz = $self->[0] ;
+
+    my $status = $gz->close() ;
+    my $err = _save_gzerr($gz);
+    return $status ? 0 : $err;
+}
+
+sub Compress::Zlib::gzFile::gzeof
+{
+    my $self = shift ;
+    my $gz = $self->[0] ;
+
+    return 0
+        if $self->[1] ne 'inflate';
+
+    my $status = $gz->eof() ;
+    _save_gzerr($gz);
+    return $status ;
+}
+
+sub Compress::Zlib::gzFile::gzsetparams
+{
+    my $self = shift ;
+    croak "Usage: Compress::Zlib::gzFile::gzsetparams(file, level, strategy)"
+        unless @_ eq 2 ;
+
+    my $gz = $self->[0] ;
+    my $level = shift ;
+    my $strategy = shift;
+
+    return _set_gzerr(Z_STREAM_ERROR())
+        if $self->[1] ne 'deflate';
+ 
+    my $status = *$gz->{Compress}->deflateParams(-Level   => $level, 
+                                                -Strategy => $strategy);
+    _save_gzerr($gz);
+    return $status ;
+}
+
+sub Compress::Zlib::gzFile::gzerror
+{
+    my $self = shift ;
+    my $gz = $self->[0] ;
+    
+    return $Compress::Zlib::gzerrno ;
+}
+
+
+sub compress($;$)
+{
+    my ($x, $output, $err, $in) =('', '', '', '') ;
+
+    if (ref $_[0] ) {
+        $in = $_[0] ;
+        croak "not a scalar reference" unless ref $in eq 'SCALAR' ;
+    }
+    else {
+        $in = \$_[0] ;
+    }
+
+    $] >= 5.008 and (utf8::downgrade($$in, 1) 
+        or croak "Wide character in compress");
+
+    my $level = (@_ == 2 ? $_[1] : Z_DEFAULT_COMPRESSION() );
+
+    $x = Compress::Raw::Zlib::_deflateInit(FLAG_APPEND,
+                                           $level,
+                                           Z_DEFLATED,
+                                           MAX_WBITS,
+                                           MAX_MEM_LEVEL,
+                                           Z_DEFAULT_STRATEGY,
+                                           4096,
+                                           '') 
+            or return undef ;
+
+    $err = $x->deflate($in, $output) ;
+    return undef unless $err == Z_OK() ;
+
+    $err = $x->flush($output) ;
+    return undef unless $err == Z_OK() ;
+    
+    return $output ;
+}
+
+sub uncompress($)
+{
+    my ($output, $in) =('', '') ;
+
+    if (ref $_[0] ) {
+        $in = $_[0] ;
+        croak "not a scalar reference" unless ref $in eq 'SCALAR' ;
+    }
+    else {
+        $in = \$_[0] ;
+    }
+
+    $] >= 5.008 and (utf8::downgrade($$in, 1) 
+        or croak "Wide character in uncompress");    
+        
+    my ($obj, $status) = Compress::Raw::Zlib::_inflateInit(0,
+                                MAX_WBITS, 4096, "") ;   
+                                
+    $status == Z_OK 
+        or return undef;
+    
+    $obj->inflate($in, $output) == Z_STREAM_END 
+        or return undef;
+    
+    return $output;
+}
+ 
+sub deflateInit(@)
+{
+    my ($got) = ParseParameters(0,
+                {
+                'bufsize'       => [IO::Compress::Base::Common::Parse_unsigned, 4096],
+                'level'         => [IO::Compress::Base::Common::Parse_signed,   Z_DEFAULT_COMPRESSION()],
+                'method'        => [IO::Compress::Base::Common::Parse_unsigned, Z_DEFLATED()],
+                'windowbits'    => [IO::Compress::Base::Common::Parse_signed,   MAX_WBITS()],
+                'memlevel'      => [IO::Compress::Base::Common::Parse_unsigned, MAX_MEM_LEVEL()],
+                'strategy'      => [IO::Compress::Base::Common::Parse_unsigned, Z_DEFAULT_STRATEGY()],
+                'dictionary'    => [IO::Compress::Base::Common::Parse_any,      ""],
+                }, @_ ) ;
+
+    croak "Compress::Zlib::deflateInit: Bufsize must be >= 1, you specified " . 
+            $got->getValue('bufsize')
+        unless $got->getValue('bufsize') >= 1;
+
+    my $obj ;
+ 
+    my $status = 0 ;
+    ($obj, $status) = 
+      Compress::Raw::Zlib::_deflateInit(0,
+                $got->getValue('level'), 
+                $got->getValue('method'), 
+                $got->getValue('windowbits'), 
+                $got->getValue('memlevel'), 
+                $got->getValue('strategy'), 
+                $got->getValue('bufsize'),
+                $got->getValue('dictionary')) ;
+
+    my $x = ($status == Z_OK() ? bless $obj, "Zlib::OldDeflate"  : undef) ;
+    return wantarray ? ($x, $status) : $x ;
+}
+ 
+sub inflateInit(@)
+{
+    my ($got) = ParseParameters(0,
+                {
+                'bufsize'       => [IO::Compress::Base::Common::Parse_unsigned, 4096],
+                'windowbits'    => [IO::Compress::Base::Common::Parse_signed,   MAX_WBITS()],
+                'dictionary'    => [IO::Compress::Base::Common::Parse_any,      ""],
+                }, @_) ;
+
+
+    croak "Compress::Zlib::inflateInit: Bufsize must be >= 1, you specified " . 
+            $got->getValue('bufsize')
+        unless $got->getValue('bufsize') >= 1;
+
+    my $status = 0 ;
+    my $obj ;
+    ($obj, $status) = Compress::Raw::Zlib::_inflateInit(FLAG_CONSUME_INPUT,
+                                $got->getValue('windowbits'), 
+                                $got->getValue('bufsize'), 
+                                $got->getValue('dictionary')) ;
+
+    my $x = ($status == Z_OK() ? bless $obj, "Zlib::OldInflate"  : undef) ;
+
+    wantarray ? ($x, $status) : $x ;
+}
+
+package Zlib::OldDeflate ;
+
+our (@ISA);
+@ISA = qw(Compress::Raw::Zlib::deflateStream);
+
+
+sub deflate
+{
+    my $self = shift ;
+    my $output ;
+
+    my $status = $self->SUPER::deflate($_[0], $output) ;
+    wantarray ? ($output, $status) : $output ;
+}
+
+sub flush
+{
+    my $self = shift ;
+    my $output ;
+    my $flag = shift || Compress::Zlib::Z_FINISH();
+    my $status = $self->SUPER::flush($output, $flag) ;
+    
+    wantarray ? ($output, $status) : $output ;
+}
+
+package Zlib::OldInflate ;
+
+our (@ISA);
+@ISA = qw(Compress::Raw::Zlib::inflateStream);
+
+sub inflate
+{
+    my $self = shift ;
+    my $output ;
+    my $status = $self->SUPER::inflate($_[0], $output) ;
+    wantarray ? ($output, $status) : $output ;
+}
+
+package Compress::Zlib ;
+
+use IO::Compress::Gzip::Constants 2.069 ;
+
+sub memGzip($)
+{
+    _set_gzerr(0);
+    my $x = Compress::Raw::Zlib::_deflateInit(FLAG_APPEND|FLAG_CRC,
+                                           Z_BEST_COMPRESSION,
+                                           Z_DEFLATED,
+                                           -MAX_WBITS(),
+                                           MAX_MEM_LEVEL,
+                                           Z_DEFAULT_STRATEGY,
+                                           4096,
+                                           '') 
+            or return undef ;
+ 
+    # if the deflation buffer isn't a reference, make it one
+    my $string = (ref $_[0] ? $_[0] : \$_[0]) ;
+
+    $] >= 5.008 and (utf8::downgrade($$string, 1) 
+        or croak "Wide character in memGzip");
+
+    my $out;
+    my $status ;
+
+    $x->deflate($string, $out) == Z_OK
+        or return undef ;
+ 
+    $x->flush($out) == Z_OK
+        or return undef ;
+ 
+    return IO::Compress::Gzip::Constants::GZIP_MINIMUM_HEADER . 
+           $out . 
+           pack("V V", $x->crc32(), $x->total_in());
+}
+
+
+sub _removeGzipHeader($)
+{
+    my $string = shift ;
+
+    return Z_DATA_ERROR() 
+        if length($$string) < GZIP_MIN_HEADER_SIZE ;
+
+    my ($magic1, $magic2, $method, $flags, $time, $xflags, $oscode) = 
+        unpack ('CCCCVCC', $$string);
+
+    return Z_DATA_ERROR()
+        unless $magic1 == GZIP_ID1 and $magic2 == GZIP_ID2 and
+           $method == Z_DEFLATED() and !($flags & GZIP_FLG_RESERVED) ;
+    substr($$string, 0, GZIP_MIN_HEADER_SIZE) = '' ;
+
+    # skip extra field
+    if ($flags & GZIP_FLG_FEXTRA)
+    {
+        return Z_DATA_ERROR()
+            if length($$string) < GZIP_FEXTRA_HEADER_SIZE ;
+
+        my ($extra_len) = unpack ('v', $$string);
+        $extra_len += GZIP_FEXTRA_HEADER_SIZE;
+        return Z_DATA_ERROR()
+            if length($$string) < $extra_len ;
+
+        substr($$string, 0, $extra_len) = '';
+    }
+
+    # skip orig name
+    if ($flags & GZIP_FLG_FNAME)
+    {
+        my $name_end = index ($$string, GZIP_NULL_BYTE);
+        return Z_DATA_ERROR()
+           if $name_end == -1 ;
+        substr($$string, 0, $name_end + 1) =  '';
+    }
+
+    # skip comment
+    if ($flags & GZIP_FLG_FCOMMENT)
+    {
+        my $comment_end = index ($$string, GZIP_NULL_BYTE);
+        return Z_DATA_ERROR()
+            if $comment_end == -1 ;
+        substr($$string, 0, $comment_end + 1) = '';
+    }
+
+    # skip header crc
+    if ($flags & GZIP_FLG_FHCRC)
+    {
+        return Z_DATA_ERROR()
+            if length ($$string) < GZIP_FHCRC_SIZE ;
+        substr($$string, 0, GZIP_FHCRC_SIZE) = '';
+    }
+    
+    return Z_OK();
+}
+
+sub _ret_gun_error
+{
+    $Compress::Zlib::gzerrno = $IO::Uncompress::Gunzip::GunzipError;
+    return undef;
+}
+
+
+sub memGunzip($)
+{
+    # if the buffer isn't a reference, make it one
+    my $string = (ref $_[0] ? $_[0] : \$_[0]);
+ 
+    $] >= 5.008 and (utf8::downgrade($$string, 1) 
+        or croak "Wide character in memGunzip");
+
+    _set_gzerr(0);
+
+    my $status = _removeGzipHeader($string) ;
+    $status == Z_OK() 
+        or return _set_gzerr_undef($status);
+     
+    my $bufsize = length $$string > 4096 ? length $$string : 4096 ;
+    my $x = Compress::Raw::Zlib::_inflateInit(FLAG_CRC | FLAG_CONSUME_INPUT,
+                                -MAX_WBITS(), $bufsize, '') 
+              or return _ret_gun_error();
+
+    my $output = '' ;
+    $status = $x->inflate($string, $output);
+    
+    if ( $status == Z_OK() )
+    {
+        _set_gzerr(Z_DATA_ERROR());
+        return undef;
+    }
+
+    return _ret_gun_error()
+        if ($status != Z_STREAM_END());
+
+    if (length $$string >= 8)
+    {
+        my ($crc, $len) = unpack ("VV", substr($$string, 0, 8));
+        substr($$string, 0, 8) = '';
+        return _set_gzerr_undef(Z_DATA_ERROR())
+            unless $len == length($output) and
+                   $crc == Compress::Raw::Zlib::crc32($output);
+    }
+    else
+    {
+        $$string = '';
+    }
+
+    return $output;   
+}
+
+# Autoload methods go after __END__, and are processed by the autosplit program.
+
+1;
+__END__
+
+
+=head1 NAME
+
+Compress::Zlib - Interface to zlib compression library
+
+=head1 SYNOPSIS
+
+    use Compress::Zlib ;
+
+    ($d, $status) = deflateInit( [OPT] ) ;
+    $status = $d->deflate($input, $output) ;
+    $status = $d->flush([$flush_type]) ;
+    $d->deflateParams(OPTS) ;
+    $d->deflateTune(OPTS) ;
+    $d->dict_adler() ;
+    $d->crc32() ;
+    $d->adler32() ;
+    $d->total_in() ;
+    $d->total_out() ;
+    $d->msg() ;
+    $d->get_Strategy();
+    $d->get_Level();
+    $d->get_BufSize();
+
+    ($i, $status) = inflateInit( [OPT] ) ;
+    $status = $i->inflate($input, $output [, $eof]) ;
+    $status = $i->inflateSync($input) ;
+    $i->dict_adler() ;
+    $d->crc32() ;
+    $d->adler32() ;
+    $i->total_in() ;
+    $i->total_out() ;
+    $i->msg() ;
+    $d->get_BufSize();
+
+    $dest = compress($source) ;
+    $dest = uncompress($source) ;
+
+    $gz = gzopen($filename or filehandle, $mode) ;
+    $bytesread = $gz->gzread($buffer [,$size]) ;
+    $bytesread = $gz->gzreadline($line) ;
+    $byteswritten = $gz->gzwrite($buffer) ;
+    $status = $gz->gzflush($flush) ;
+    $offset = $gz->gztell() ;
+    $status = $gz->gzseek($offset, $whence) ;
+    $status = $gz->gzclose() ;
+    $status = $gz->gzeof() ;
+    $status = $gz->gzsetparams($level, $strategy) ;
+    $errstring = $gz->gzerror() ; 
+    $gzerrno
+
+    $dest = Compress::Zlib::memGzip($buffer) ;
+    $dest = Compress::Zlib::memGunzip($buffer) ;
+
+    $crc = adler32($buffer [,$crc]) ;
+    $crc = crc32($buffer [,$crc]) ;
+
+    $crc = crc32_combine($crc1, $crc2, $len2);
+    $adler = adler32_combine($adler1, $adler2, $len2);
+
+    my $version = Compress::Raw::Zlib::zlib_version();
+
+=head1 DESCRIPTION
+
+The I<Compress::Zlib> module provides a Perl interface to the I<zlib>
+compression library (see L</AUTHOR> for details about where to get
+I<zlib>). 
+
+The C<Compress::Zlib> module can be split into two general areas of
+functionality, namely a simple read/write interface to I<gzip> files
+and a low-level in-memory compression/decompression interface.
+
+Each of these areas will be discussed in the following sections.
+
+=head2 Notes for users of Compress::Zlib version 1
+
+The main change in C<Compress::Zlib> version 2.x is that it does not now
+interface directly to the zlib library. Instead it uses the
+C<IO::Compress::Gzip> and C<IO::Uncompress::Gunzip> modules for
+reading/writing gzip files, and the C<Compress::Raw::Zlib> module for some
+low-level zlib access. 
+
+The interface provided by version 2 of this module should be 100% backward
+compatible with version 1. If you find a difference in the expected
+behaviour please contact the author (See L</AUTHOR>). See L<GZIP INTERFACE> 
+
+With the creation of the C<IO::Compress> and C<IO::Uncompress> modules no
+new features are planned for C<Compress::Zlib> - the new modules do
+everything that C<Compress::Zlib> does and then some. Development on
+C<Compress::Zlib> will be limited to bug fixes only.
+
+If you are writing new code, your first port of call should be one of the
+new C<IO::Compress> or C<IO::Uncompress> modules.
+
+=head1 GZIP INTERFACE
+
+A number of functions are supplied in I<zlib> for reading and writing
+I<gzip> files that conform to RFC 1952. This module provides an interface
+to most of them. 
+
+If you have previously used C<Compress::Zlib> 1.x, the following
+enhancements/changes have been made to the C<gzopen> interface:
+
+=over 5
+
+=item 1
+
+If you want to open either STDIN or STDOUT with C<gzopen>, you can now
+optionally use the special filename "C<->" as a synonym for C<\*STDIN> and
+C<\*STDOUT>.
+
+=item 2 
+
+In C<Compress::Zlib> version 1.x, C<gzopen> used the zlib library to open
+the underlying file. This made things especially tricky when a Perl
+filehandle was passed to C<gzopen>. Behind the scenes the numeric C file
+descriptor had to be extracted from the Perl filehandle and this passed to
+the zlib library.
+
+Apart from being non-portable to some operating systems, this made it
+difficult to use C<gzopen> in situations where you wanted to extract/create
+a gzip data stream that is embedded in a larger file, without having to
+resort to opening and closing the file multiple times. 
+
+It also made it impossible to pass a perl filehandle that wasn't associated
+with a real filesystem file, like, say, an C<IO::String>.
+
+In C<Compress::Zlib> version 2.x, the C<gzopen> interface has been
+completely rewritten to use the L<IO::Compress::Gzip|IO::Compress::Gzip>
+for writing gzip files and L<IO::Uncompress::Gunzip|IO::Uncompress::Gunzip>
+for reading gzip files. None of the limitations mentioned above apply.
+
+=item 3
+
+Addition of C<gzseek> to provide a restricted C<seek> interface.
+
+=item 4.
+
+Added C<gztell>.
+
+=back
+
+A more complete and flexible interface for reading/writing gzip
+files/buffers is included with the module C<IO-Compress-Zlib>. See
+L<IO::Compress::Gzip|IO::Compress::Gzip> and
+L<IO::Uncompress::Gunzip|IO::Uncompress::Gunzip> for more details.
+
+=over 5
+
+=item B<$gz = gzopen($filename, $mode)>
+
+=item B<$gz = gzopen($filehandle, $mode)>
+
+This function opens either the I<gzip> file C<$filename> for reading or
+writing or attaches to the opened filehandle, C<$filehandle>. 
+It returns an object on success and C<undef> on failure.
+
+When writing a gzip file this interface will I<always> create the smallest
+possible gzip header (exactly 10 bytes). If you want greater control over
+what gets stored in the gzip header (like the original filename or a
+comment) use L<IO::Compress::Gzip|IO::Compress::Gzip> instead. Similarly if
+you want to read the contents of the gzip header use
+L<IO::Uncompress::Gunzip|IO::Uncompress::Gunzip>.
+
+The second parameter, C<$mode>, is used to specify whether the file is
+opened for reading or writing and to optionally specify a compression
+level and compression strategy when writing. The format of the C<$mode>
+parameter is similar to the mode parameter to the 'C' function C<fopen>,
+so "rb" is used to open for reading, "wb" for writing and "ab" for
+appending (writing at the end of the file).
+
+To specify a compression level when writing, append a digit between 0
+and 9 to the mode string -- 0 means no compression and 9 means maximum
+compression.
+If no compression level is specified Z_DEFAULT_COMPRESSION is used.
+
+To specify the compression strategy when writing, append 'f' for filtered
+data, 'h' for Huffman only compression, or 'R' for run-length encoding.
+If no strategy is specified Z_DEFAULT_STRATEGY is used.
+
+So, for example, "wb9" means open for writing with the maximum compression
+using the default strategy and "wb4R" means open for writing with compression
+level 4 and run-length encoding.
+
+Refer to the I<zlib> documentation for the exact format of the C<$mode>
+parameter.
+
+=item B<$bytesread = $gz-E<gt>gzread($buffer [, $size]) ;>
+
+Reads C<$size> bytes from the compressed file into C<$buffer>. If
+C<$size> is not specified, it will default to 4096. If the scalar
+C<$buffer> is not large enough, it will be extended automatically.
+
+Returns the number of bytes actually read. On EOF it returns 0 and in
+the case of an error, -1.
+
+=item B<$bytesread = $gz-E<gt>gzreadline($line) ;>
+
+Reads the next line from the compressed file into C<$line>. 
+
+Returns the number of bytes actually read. On EOF it returns 0 and in
+the case of an error, -1.
+
+It is legal to intermix calls to C<gzread> and C<gzreadline>.
+
+To maintain backward compatibility with version 1.x of this module
+C<gzreadline> ignores the C<$/> variable - it I<always> uses the string
+C<"\n"> as the line delimiter.  
+
+If you want to read a gzip file a line at a time and have it respect the
+C<$/> variable (or C<$INPUT_RECORD_SEPARATOR>, or C<$RS> when C<English> is
+in use) see L<IO::Uncompress::Gunzip|IO::Uncompress::Gunzip>.
+
+=item B<$byteswritten = $gz-E<gt>gzwrite($buffer) ;>
+
+Writes the contents of C<$buffer> to the compressed file. Returns the
+number of bytes actually written, or 0 on error.
+
+=item B<$status = $gz-E<gt>gzflush($flush_type) ;>
+
+Flushes all pending output into the compressed file.
+
+This method takes an optional parameter, C<$flush_type>, that controls
+how the flushing will be carried out. By default the C<$flush_type>
+used is C<Z_FINISH>. Other valid values for C<$flush_type> are
+C<Z_NO_FLUSH>, C<Z_SYNC_FLUSH>, C<Z_FULL_FLUSH> and C<Z_BLOCK>. It is
+strongly recommended that you only set the C<flush_type> parameter if
+you fully understand the implications of what it does - overuse of C<flush>
+can seriously degrade the level of compression achieved. See the C<zlib>
+documentation for details.
+
+Returns 0 on success.
+
+=item B<$offset = $gz-E<gt>gztell() ;>
+
+Returns the uncompressed file offset.
+
+=item B<$status = $gz-E<gt>gzseek($offset, $whence) ;>
+
+Provides a sub-set of the C<seek> functionality, with the restriction
+that it is only legal to seek forward in the compressed file.
+It is a fatal error to attempt to seek backward.
+
+When opened for writing, empty parts of the file will have NULL (0x00)
+bytes written to them.
+
+The C<$whence> parameter should be one of SEEK_SET, SEEK_CUR or SEEK_END.
+
+Returns 1 on success, 0 on failure.
+
+=item B<$gz-E<gt>gzclose>
+
+Closes the compressed file. Any pending data is flushed to the file
+before it is closed.
+
+Returns 0 on success.
+
+=item B<$gz-E<gt>gzsetparams($level, $strategy>
+
+Change settings for the deflate stream C<$gz>.
+
+The list of the valid options is shown below. Options not specified
+will remain unchanged.
+
+Note: This method is only available if you are running zlib 1.0.6 or better.
+
+=over 5
+
+=item B<$level>
+
+Defines the compression level. Valid values are 0 through 9,
+C<Z_NO_COMPRESSION>, C<Z_BEST_SPEED>, C<Z_BEST_COMPRESSION>, and
+C<Z_DEFAULT_COMPRESSION>.
+
+=item B<$strategy>
+
+Defines the strategy used to tune the compression. The valid values are
+C<Z_DEFAULT_STRATEGY>, C<Z_FILTERED> and C<Z_HUFFMAN_ONLY>. 
+
+=back
+
+=item B<$gz-E<gt>gzerror>
+
+Returns the I<zlib> error message or number for the last operation
+associated with C<$gz>. The return value will be the I<zlib> error
+number when used in a numeric context and the I<zlib> error message
+when used in a string context. The I<zlib> error number constants,
+shown below, are available for use.
+
+    Z_OK
+    Z_STREAM_END
+    Z_ERRNO
+    Z_STREAM_ERROR
+    Z_DATA_ERROR
+    Z_MEM_ERROR
+    Z_BUF_ERROR
+
+=item B<$gzerrno>
+
+The C<$gzerrno> scalar holds the error code associated with the most
+recent I<gzip> routine. Note that unlike C<gzerror()>, the error is
+I<not> associated with a particular file.
+
+As with C<gzerror()> it returns an error number in numeric context and
+an error message in string context. Unlike C<gzerror()> though, the
+error message will correspond to the I<zlib> message when the error is
+associated with I<zlib> itself, or the UNIX error message when it is
+not (i.e. I<zlib> returned C<Z_ERRORNO>).
+
+As there is an overlap between the error numbers used by I<zlib> and
+UNIX, C<$gzerrno> should only be used to check for the presence of
+I<an> error in numeric context. Use C<gzerror()> to check for specific
+I<zlib> errors. The I<gzcat> example below shows how the variable can
+be used safely.
+
+=back
+
+=head2 Examples
+
+Here is an example script which uses the interface. It implements a
+I<gzcat> function.
+
+    use strict ;
+    use warnings ;
+    
+    use Compress::Zlib ;
+    
+    # use stdin if no files supplied
+    @ARGV = '-' unless @ARGV ;
+    
+    foreach my $file (@ARGV) {
+        my $buffer ;
+    
+        my $gz = gzopen($file, "rb") 
+             or die "Cannot open $file: $gzerrno\n" ;
+    
+        print $buffer while $gz->gzread($buffer) > 0 ;
+    
+        die "Error reading from $file: $gzerrno" . ($gzerrno+0) . "\n" 
+            if $gzerrno != Z_STREAM_END ;
+        
+        $gz->gzclose() ;
+    }
+
+Below is a script which makes use of C<gzreadline>. It implements a
+very simple I<grep> like script.
+
+    use strict ;
+    use warnings ;
+    
+    use Compress::Zlib ;
+    
+    die "Usage: gzgrep pattern [file...]\n"
+        unless @ARGV >= 1;
+    
+    my $pattern = shift ;
+    
+    # use stdin if no files supplied
+    @ARGV = '-' unless @ARGV ;
+    
+    foreach my $file (@ARGV) {
+        my $gz = gzopen($file, "rb") 
+             or die "Cannot open $file: $gzerrno\n" ;
+    
+        while ($gz->gzreadline($_) > 0) {
+            print if /$pattern/ ;
+        }
+    
+        die "Error reading from $file: $gzerrno\n" 
+            if $gzerrno != Z_STREAM_END ;
+        
+        $gz->gzclose() ;
+    }
+
+This script, I<gzstream>, does the opposite of the I<gzcat> script
+above. It reads from standard input and writes a gzip data stream to
+standard output.
+
+    use strict ;
+    use warnings ;
+    
+    use Compress::Zlib ;
+    
+    binmode STDOUT;  # gzopen only sets it on the fd
+    
+    my $gz = gzopen(\*STDOUT, "wb")
+          or die "Cannot open stdout: $gzerrno\n" ;
+    
+    while (<>) {
+        $gz->gzwrite($_) 
+          or die "error writing: $gzerrno\n" ;
+    }
+
+    $gz->gzclose ;
+
+=head2 Compress::Zlib::memGzip
+
+This function is used to create an in-memory gzip file with the minimum
+possible gzip header (exactly 10 bytes).
+
+    $dest = Compress::Zlib::memGzip($buffer) 
+        or die "Cannot compress: $gzerrno\n";
+
+If successful, it returns the in-memory gzip file. Otherwise it returns
+C<undef> and the C<$gzerrno> variable will store the zlib error code.
+
+The C<$buffer> parameter can either be a scalar or a scalar reference.
+
+See L<IO::Compress::Gzip|IO::Compress::Gzip> for an alternative way to
+carry out in-memory gzip compression.
+
+=head2 Compress::Zlib::memGunzip
+
+This function is used to uncompress an in-memory gzip file.
+
+    $dest = Compress::Zlib::memGunzip($buffer) 
+        or die "Cannot uncompress: $gzerrno\n";
+
+If successful, it returns the uncompressed gzip file. Otherwise it
+returns C<undef> and the C<$gzerrno> variable will store the zlib error
+code.
+
+The C<$buffer> parameter can either be a scalar or a scalar reference. The
+contents of the C<$buffer> parameter are destroyed after calling this function.
+
+If C<$buffer> consists of multiple concatenated gzip data streams only the
+first will be uncompressed. Use C<gunzip> with the C<MultiStream> option in
+the C<IO::Uncompress::Gunzip> module if you need to deal with concatenated
+data streams.
+
+See L<IO::Uncompress::Gunzip|IO::Uncompress::Gunzip> for an alternative way
+to carry out in-memory gzip uncompression.
+
+=head1 COMPRESS/UNCOMPRESS
+
+Two functions are provided to perform in-memory compression/uncompression of
+RFC 1950 data streams. They are called C<compress> and C<uncompress>.
+
+=over 5
+
+=item B<$dest = compress($source [, $level] ) ;>
+
+Compresses C<$source>. If successful it returns the compressed
+data. Otherwise it returns I<undef>.
+
+The source buffer, C<$source>, can either be a scalar or a scalar
+reference.
+
+The C<$level> parameter defines the compression level. Valid values are
+0 through 9, C<Z_NO_COMPRESSION>, C<Z_BEST_SPEED>,
+C<Z_BEST_COMPRESSION>, and C<Z_DEFAULT_COMPRESSION>.
+If C<$level> is not specified C<Z_DEFAULT_COMPRESSION> will be used.
+
+=item B<$dest = uncompress($source) ;>
+
+Uncompresses C<$source>. If successful it returns the uncompressed
+data. Otherwise it returns I<undef>.
+
+The source buffer can either be a scalar or a scalar reference.
+
+=back
+
+Please note: the two functions defined above are I<not> compatible with
+the Unix commands of the same name.
+
+See L<IO::Deflate|IO::Deflate> and L<IO::Inflate|IO::Inflate> included with
+this distribution for an alternative interface for reading/writing RFC 1950
+files/buffers.
+
+=head1 Deflate Interface
+
+This section defines an interface that allows in-memory compression using
+the I<deflate> interface provided by zlib.
+
+Here is a definition of the interface available:
+
+=head2 B<($d, $status) = deflateInit( [OPT] )>
+
+Initialises a deflation stream. 
+
+It combines the features of the I<zlib> functions C<deflateInit>,
+C<deflateInit2> and C<deflateSetDictionary>.
+
+If successful, it will return the initialised deflation stream, C<$d>
+and C<$status> of C<Z_OK> in a list context. In scalar context it
+returns the deflation stream, C<$d>, only.
+
+If not successful, the returned deflation stream (C<$d>) will be
+I<undef> and C<$status> will hold the exact I<zlib> error code.
+
+The function optionally takes a number of named options specified as
+C<< -Name=>value >> pairs. This allows individual options to be
+tailored without having to specify them all in the parameter list.
+
+For backward compatibility, it is also possible to pass the parameters
+as a reference to a hash containing the name=>value pairs.
+
+The function takes one optional parameter, a reference to a hash.  The
+contents of the hash allow the deflation interface to be tailored.
+
+Here is a list of the valid options:
+
+=over 5
+
+=item B<-Level>
+
+Defines the compression level. Valid values are 0 through 9,
+C<Z_NO_COMPRESSION>, C<Z_BEST_SPEED>, C<Z_BEST_COMPRESSION>, and
+C<Z_DEFAULT_COMPRESSION>.
+
+The default is Z_DEFAULT_COMPRESSION.
+
+=item B<-Method>
+
+Defines the compression method. The only valid value at present (and
+the default) is Z_DEFLATED.
+
+=item B<-WindowBits>
+
+To create an RFC 1950 data stream, set C<WindowBits> to a positive number.
+
+To create an RFC 1951 data stream, set C<WindowBits> to C<-MAX_WBITS>.
+
+For a full definition of the meaning and valid values for C<WindowBits> refer
+to the I<zlib> documentation for I<deflateInit2>.
+
+Defaults to MAX_WBITS.
+
+=item B<-MemLevel>
+
+For a definition of the meaning and valid values for C<MemLevel>
+refer to the I<zlib> documentation for I<deflateInit2>.
+
+Defaults to MAX_MEM_LEVEL.
+
+=item B<-Strategy>
+
+Defines the strategy used to tune the compression. The valid values are
+C<Z_DEFAULT_STRATEGY>, C<Z_FILTERED> and C<Z_HUFFMAN_ONLY>. 
+
+The default is Z_DEFAULT_STRATEGY.
+
+=item B<-Dictionary>
+
+When a dictionary is specified I<Compress::Zlib> will automatically
+call C<deflateSetDictionary> directly after calling C<deflateInit>. The
+Adler32 value for the dictionary can be obtained by calling the method 
+C<$d->dict_adler()>.
+
+The default is no dictionary.
+
+=item B<-Bufsize>
+
+Sets the initial size for the deflation buffer. If the buffer has to be
+reallocated to increase the size, it will grow in increments of
+C<Bufsize>.
+
+The default is 4096.
+
+=back
+
+Here is an example of using the C<deflateInit> optional parameter list
+to override the default buffer size and compression level. All other
+options will take their default values.
+
+    deflateInit( -Bufsize => 300, 
+                 -Level => Z_BEST_SPEED  ) ;
+
+=head2 B<($out, $status) = $d-E<gt>deflate($buffer)>
+
+Deflates the contents of C<$buffer>. The buffer can either be a scalar
+or a scalar reference.  When finished, C<$buffer> will be
+completely processed (assuming there were no errors). If the deflation
+was successful it returns the deflated output, C<$out>, and a status
+value, C<$status>, of C<Z_OK>.
+
+On error, C<$out> will be I<undef> and C<$status> will contain the
+I<zlib> error code.
+
+In a scalar context C<deflate> will return C<$out> only.
+
+As with the I<deflate> function in I<zlib>, it is not necessarily the
+case that any output will be produced by this method. So don't rely on
+the fact that C<$out> is empty for an error test.
+
+=head2 B<($out, $status) = $d-E<gt>flush()>
+=head2 B<($out, $status) = $d-E<gt>flush($flush_type)>
+
+Typically used to finish the deflation. Any pending output will be
+returned via C<$out>.
+C<$status> will have a value C<Z_OK> if successful.
+
+In a scalar context C<flush> will return C<$out> only.
+
+Note that flushing can seriously degrade the compression ratio, so it
+should only be used to terminate a decompression (using C<Z_FINISH>) or
+when you want to create a I<full flush point> (using C<Z_FULL_FLUSH>).
+
+By default the C<flush_type> used is C<Z_FINISH>. Other valid values
+for C<flush_type> are C<Z_NO_FLUSH>, C<Z_PARTIAL_FLUSH>, C<Z_SYNC_FLUSH>
+and C<Z_FULL_FLUSH>. It is strongly recommended that you only set the
+C<flush_type> parameter if you fully understand the implications of
+what it does. See the C<zlib> documentation for details.
+
+=head2 B<$status = $d-E<gt>deflateParams([OPT])>
+
+Change settings for the deflate stream C<$d>.
+
+The list of the valid options is shown below. Options not specified
+will remain unchanged.
+
+=over 5
+
+=item B<-Level>
+
+Defines the compression level. Valid values are 0 through 9,
+C<Z_NO_COMPRESSION>, C<Z_BEST_SPEED>, C<Z_BEST_COMPRESSION>, and
+C<Z_DEFAULT_COMPRESSION>.
+
+=item B<-Strategy>
+
+Defines the strategy used to tune the compression. The valid values are
+C<Z_DEFAULT_STRATEGY>, C<Z_FILTERED> and C<Z_HUFFMAN_ONLY>. 
+
+=back
+
+=head2 B<$d-E<gt>dict_adler()>
+
+Returns the adler32 value for the dictionary.
+
+=head2 B<$d-E<gt>msg()>
+
+Returns the last error message generated by zlib.
+
+=head2 B<$d-E<gt>total_in()>
+
+Returns the total number of bytes uncompressed bytes input to deflate.
+
+=head2 B<$d-E<gt>total_out()>
+
+Returns the total number of compressed bytes output from deflate.
+
+=head2 Example
+
+Here is a trivial example of using C<deflate>. It simply reads standard
+input, deflates it and writes it to standard output.
+
+    use strict ;
+    use warnings ;
+
+    use Compress::Zlib ;
+
+    binmode STDIN;
+    binmode STDOUT;
+    my $x = deflateInit()
+       or die "Cannot create a deflation stream\n" ;
+
+    my ($output, $status) ;
+    while (<>)
+    {
+        ($output, $status) = $x->deflate($_) ;
+    
+        $status == Z_OK
+            or die "deflation failed\n" ;
+    
+        print $output ;
+    }
+    
+    ($output, $status) = $x->flush() ;
+    
+    $status == Z_OK
+        or die "deflation failed\n" ;
+    
+    print $output ;
+
+=head1 Inflate Interface
+
+This section defines the interface available that allows in-memory
+uncompression using the I<deflate> interface provided by zlib.
+
+Here is a definition of the interface:
+
+=head2 B<($i, $status) = inflateInit()>
+
+Initialises an inflation stream. 
+
+In a list context it returns the inflation stream, C<$i>, and the
+I<zlib> status code in C<$status>. In a scalar context it returns the
+inflation stream only.
+
+If successful, C<$i> will hold the inflation stream and C<$status> will
+be C<Z_OK>.
+
+If not successful, C<$i> will be I<undef> and C<$status> will hold the
+I<zlib> error code.
+
+The function optionally takes a number of named options specified as
+C<< -Name=>value >> pairs. This allows individual options to be
+tailored without having to specify them all in the parameter list.
+ 
+For backward compatibility, it is also possible to pass the parameters
+as a reference to a hash containing the name=>value pairs.
+ 
+The function takes one optional parameter, a reference to a hash.  The
+contents of the hash allow the deflation interface to be tailored.
+ 
+Here is a list of the valid options:
+
+=over 5
+
+=item B<-WindowBits>
+
+To uncompress an RFC 1950 data stream, set C<WindowBits> to a positive number.
+
+To uncompress an RFC 1951 data stream, set C<WindowBits> to C<-MAX_WBITS>.
+
+For a full definition of the meaning and valid values for C<WindowBits> refer
+to the I<zlib> documentation for I<inflateInit2>.
+
+Defaults to MAX_WBITS.
+
+=item B<-Bufsize>
+
+Sets the initial size for the inflation buffer. If the buffer has to be
+reallocated to increase the size, it will grow in increments of
+C<Bufsize>. 
+
+Default is 4096.
+
+=item B<-Dictionary>
+
+The default is no dictionary.
+
+=back
+
+Here is an example of using the C<inflateInit> optional parameter to
+override the default buffer size.
+
+    inflateInit( -Bufsize => 300 ) ;
+
+=head2 B<($out, $status) = $i-E<gt>inflate($buffer)>
+
+Inflates the complete contents of C<$buffer>. The buffer can either be
+a scalar or a scalar reference.
+
+Returns C<Z_OK> if successful and C<Z_STREAM_END> if the end of the
+compressed data has been successfully reached. 
+If not successful, C<$out> will be I<undef> and C<$status> will hold
+the I<zlib> error code.
+
+The C<$buffer> parameter is modified by C<inflate>. On completion it
+will contain what remains of the input buffer after inflation. This
+means that C<$buffer> will be an empty string when the return status is
+C<Z_OK>. When the return status is C<Z_STREAM_END> the C<$buffer>
+parameter will contains what (if anything) was stored in the input
+buffer after the deflated data stream.
+
+This feature is useful when processing a file format that encapsulates
+a  compressed data stream (e.g. gzip, zip).
+
+=head2 B<$status = $i-E<gt>inflateSync($buffer)>
+
+Scans C<$buffer> until it reaches either a I<full flush point> or the
+end of the buffer.
+
+If a I<full flush point> is found, C<Z_OK> is returned and C<$buffer>
+will be have all data up to the flush point removed. This can then be
+passed to the C<deflate> method.
+
+Any other return code means that a flush point was not found. If more
+data is available, C<inflateSync> can be called repeatedly with more
+compressed data until the flush point is found.
+
+=head2 B<$i-E<gt>dict_adler()>
+
+Returns the adler32 value for the dictionary.
+
+=head2 B<$i-E<gt>msg()>
+
+Returns the last error message generated by zlib.
+
+=head2 B<$i-E<gt>total_in()>
+
+Returns the total number of bytes compressed bytes input to inflate.
+
+=head2 B<$i-E<gt>total_out()>
+
+Returns the total number of uncompressed bytes output from inflate.
+
+=head2 Example
+
+Here is an example of using C<inflate>.
+
+    use strict ;
+    use warnings ;
+    
+    use Compress::Zlib ;
+    
+    my $x = inflateInit()
+       or die "Cannot create a inflation stream\n" ;
+    
+    my $input = '' ;
+    binmode STDIN;
+    binmode STDOUT;
+    
+    my ($output, $status) ;
+    while (read(STDIN, $input, 4096))
+    {
+        ($output, $status) = $x->inflate(\$input) ;
+    
+        print $output 
+            if $status == Z_OK or $status == Z_STREAM_END ;
+    
+        last if $status != Z_OK ;
+    }
+    
+    die "inflation failed\n"
+        unless $status == Z_STREAM_END ;
+
+=head1 CHECKSUM FUNCTIONS
+
+Two functions are provided by I<zlib> to calculate checksums. For the
+Perl interface, the order of the two parameters in both functions has
+been reversed. This allows both running checksums and one off
+calculations to be done.
+
+    $crc = adler32($buffer [,$crc]) ;
+    $crc = crc32($buffer [,$crc]) ;
+
+The buffer parameters can either be a scalar or a scalar reference.
+
+If the $crc parameters is C<undef>, the crc value will be reset.
+
+If you have built this module with zlib 1.2.3 or better, two more
+CRC-related functions are available.
+
+    $crc = crc32_combine($crc1, $crc2, $len2);
+    $adler = adler32_combine($adler1, $adler2, $len2);
+
+These functions allow checksums to be merged.
+Refer to the I<zlib> documentation for more details.
+
+=head1 Misc
+
+=head2 my $version = Compress::Zlib::zlib_version();
+
+Returns the version of the zlib library.
+
+=head1 CONSTANTS
+
+All the I<zlib> constants are automatically imported when you make use
+of I<Compress::Zlib>.
+
+=head1 SEE ALSO
+
+L<IO::Compress::Gzip>, L<IO::Uncompress::Gunzip>, L<IO::Compress::Deflate>, L<IO::Uncompress::Inflate>, L<IO::Compress::RawDeflate>, L<IO::Uncompress::RawInflate>, L<IO::Compress::Bzip2>, L<IO::Uncompress::Bunzip2>, L<IO::Compress::Lzma>, L<IO::Uncompress::UnLzma>, L<IO::Compress::Xz>, L<IO::Uncompress::UnXz>, L<IO::Compress::Lzop>, L<IO::Uncompress::UnLzop>, L<IO::Compress::Lzf>, L<IO::Uncompress::UnLzf>, L<IO::Uncompress::AnyInflate>, L<IO::Uncompress::AnyUncompress>
+
+L<IO::Compress::FAQ|IO::Compress::FAQ>
+
+L<File::GlobMapper|File::GlobMapper>, L<Archive::Zip|Archive::Zip>,
+L<Archive::Tar|Archive::Tar>,
+L<IO::Zlib|IO::Zlib>
+
+For RFC 1950, 1951 and 1952 see 
+F<http://www.faqs.org/rfcs/rfc1950.html>,
+F<http://www.faqs.org/rfcs/rfc1951.html> and
+F<http://www.faqs.org/rfcs/rfc1952.html>
+
+The I<zlib> compression library was written by Jean-loup Gailly
+F<gzip@prep.ai.mit.edu> and Mark Adler F<madler@alumni.caltech.edu>.
+
+The primary site for the I<zlib> compression library is
+F<http://www.zlib.org>.
+
+The primary site for gzip is F<http://www.gzip.org>.
+
+=head1 AUTHOR
+
+This module was written by Paul Marquess, F<pmqs@cpan.org>. 
+
+=head1 MODIFICATION HISTORY
+
+See the Changes file.
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright (c) 1995-2015 Paul Marquess. All rights reserved.
+
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
diff --git a/lib/5.24.1/Config/Extensions.pm b/lib/5.24.1/Config/Extensions.pm
new file mode 100644
index 00000000..82fb9e09
--- /dev/null
+++ b/lib/5.24.1/Config/Extensions.pm
@@ -0,0 +1,63 @@
+package Config::Extensions;
+use strict;
+use vars qw(%Extensions $VERSION @ISA @EXPORT_OK);
+use Config;
+require Exporter;
+
+$VERSION = '0.01';
+@ISA = 'Exporter';
+@EXPORT_OK = '%Extensions';
+
+foreach my $type (qw(static dynamic nonxs)) {
+    foreach (split /\s+/, $Config{$type . '_ext'}) {
+	s!/!::!g;
+	$Extensions{$_} = $type;
+    }
+}
+
+1;
+__END__
+=head1 NAME
+
+Config::Extensions - hash lookup of which core extensions were built.
+
+=head1 SYNOPSIS
+
+    use Config::Extensions '%Extensions';
+    if ($Extensions{PerlIO::via}) {
+        # This perl has PerlIO::via built
+    }
+
+=head1 DESCRIPTION
+
+The Config::Extensions module provides a hash C<%Extensions> containing all
+the core extensions that were enabled for this perl. The hash is keyed by
+extension name, with each entry having one of 3 possible values:
+
+=over 4
+
+=item dynamic
+
+The extension is dynamically linked
+
+=item nonxs
+
+The extension is pure perl, so doesn't need linking to the perl executable
+
+=item static
+
+The extension is statically linked to the perl binary
+
+=back
+
+As all values evaluate to true, a simple C<if> test is good enough to determine
+whether an extension is present.
+
+All the data uses to generate the C<%Extensions> hash is already present in
+the C<Config> module, but not in such a convenient format to quickly reference.
+
+=head1 AUTHOR
+
+Nicholas Clark <nick@ccl4.org>
+
+=cut
diff --git a/lib/5.24.1/Config/Perl/V.pm b/lib/5.24.1/Config/Perl/V.pm
new file mode 100644
index 00000000..79999fb4
--- /dev/null
+++ b/lib/5.24.1/Config/Perl/V.pm
@@ -0,0 +1,545 @@
+#!/pro/bin/perl
+
+package Config::Perl::V;
+
+use strict;
+use warnings;
+
+use Config;
+use Exporter;
+use vars qw($VERSION @ISA @EXPORT_OK %EXPORT_TAGS);
+$VERSION     = "0.25";
+@ISA         = ("Exporter");
+@EXPORT_OK   = qw( plv2hash summary myconfig signature );
+%EXPORT_TAGS = (
+    all => [ @EXPORT_OK  ],
+    sig => [ "signature" ],
+    );
+
+#  Characteristics of this binary (from libperl):
+#    Compile-time options: DEBUGGING PERL_DONT_CREATE_GVSV PERL_MALLOC_WRAP
+#                          USE_64_BIT_INT USE_LARGE_FILES USE_PERLIO
+
+# The list are as the perl binary has stored it in PL_bincompat_options
+#  search for it in
+#   perl.c line 1643 S_Internals_V ()
+#     perl -ne'(/^S_Internals_V/../^}/)&&s/^\s+"( .*)"/$1/ and print' perl.c
+#   perl.h line 4566 PL_bincompat_options
+#     perl -ne'(/^\w.*PL_bincompat/../^\w}/)&&s/^\s+"( .*)"/$1/ and print' perl.h
+my %BTD = map { $_ => 0 } qw(
+
+    DEBUGGING
+    NO_HASH_SEED
+    NO_MATHOMS
+    NO_TAINT_SUPPORT
+    PERL_BOOL_AS_CHAR
+    PERL_COPY_ON_WRITE
+    PERL_DISABLE_PMC
+    PERL_DONT_CREATE_GVSV
+    PERL_EXTERNAL_GLOB
+    PERL_HASH_FUNC_DJB2
+    PERL_HASH_FUNC_MURMUR3
+    PERL_HASH_FUNC_ONE_AT_A_TIME
+    PERL_HASH_FUNC_ONE_AT_A_TIME_HARD
+    PERL_HASH_FUNC_ONE_AT_A_TIME_OLD
+    PERL_HASH_FUNC_SDBM
+    PERL_HASH_FUNC_SIPHASH
+    PERL_HASH_FUNC_SUPERFAST
+    PERL_IS_MINIPERL
+    PERL_MALLOC_WRAP
+    PERL_MEM_LOG
+    PERL_MEM_LOG_ENV
+    PERL_MEM_LOG_ENV_FD
+    PERL_MEM_LOG_NOIMPL
+    PERL_MEM_LOG_STDERR
+    PERL_MEM_LOG_TIMESTAMP
+    PERL_NEW_COPY_ON_WRITE
+    PERL_PERTURB_KEYS_DETERMINISTIC
+    PERL_PERTURB_KEYS_DISABLED
+    PERL_PERTURB_KEYS_RANDOM
+    PERL_PRESERVE_IVUV
+    PERL_RELOCATABLE_INCPUSH
+    PERL_USE_DEVEL
+    PERL_USE_SAFE_PUTENV
+    UNLINK_ALL_VERSIONS
+    USE_ATTRIBUTES_FOR_PERLIO
+    USE_FAST_STDIO
+    USE_HASH_SEED_EXPLICIT
+    USE_LOCALE
+    USE_LOCALE_CTYPE
+    USE_NO_REGISTRY
+    USE_PERL_ATOF
+    USE_SITECUSTOMIZE
+
+    DEBUG_LEAKING_SCALARS
+    DEBUG_LEAKING_SCALARS_FORK_DUMP
+    DECCRTL_SOCKETS
+    FAKE_THREADS
+    FCRYPT
+    HAS_TIMES
+    HAVE_INTERP_INTERN
+    MULTIPLICITY
+    MYMALLOC
+    PERL_DEBUG_READONLY_COW
+    PERL_DEBUG_READONLY_OPS
+    PERL_GLOBAL_STRUCT
+    PERL_GLOBAL_STRUCT_PRIVATE
+    PERL_IMPLICIT_CONTEXT
+    PERL_IMPLICIT_SYS
+    PERLIO_LAYERS
+    PERL_MAD
+    PERL_MICRO
+    PERL_NEED_APPCTX
+    PERL_NEED_TIMESBASE
+    PERL_OLD_COPY_ON_WRITE
+    PERL_POISON
+    PERL_SAWAMPERSAND
+    PERL_TRACK_MEMPOOL
+    PERL_USES_PL_PIDSTATUS
+    PL_OP_SLAB_ALLOC
+    THREADS_HAVE_PIDS
+    USE_64_BIT_ALL
+    USE_64_BIT_INT
+    USE_IEEE
+    USE_ITHREADS
+    USE_LARGE_FILES
+    USE_LOCALE_COLLATE
+    USE_LOCALE_NUMERIC
+    USE_LOCALE_TIME
+    USE_LONG_DOUBLE
+    USE_PERLIO
+    USE_QUADMATH
+    USE_REENTRANT_API
+    USE_SFIO
+    USE_SOCKS
+    VMS_DO_SOCKETS
+    VMS_SHORTEN_LONG_SYMBOLS
+    VMS_SYMBOL_CASE_AS_IS
+    );
+
+# These are all the keys that are
+# 1. Always present in %Config - lib/Config.pm #87 tie %Config
+# 2. Reported by 'perl -V' (the rest)
+my @config_vars = qw(
+
+    api_subversion
+    api_version
+    api_versionstring
+    archlibexp
+    dont_use_nlink
+    d_readlink
+    d_symlink
+    exe_ext
+    inc_version_list
+    ldlibpthname
+    patchlevel
+    path_sep
+    perl_patchlevel
+    privlibexp
+    scriptdir
+    sitearchexp
+    sitelibexp
+    subversion
+    usevendorprefix
+    version
+
+    git_commit_id
+    git_describe
+    git_branch
+    git_uncommitted_changes
+    git_commit_id_title
+    git_snapshot_date
+
+    package revision version_patchlevel_string
+
+    osname osvers archname
+    myuname
+    config_args
+    hint useposix d_sigaction
+    useithreads usemultiplicity
+    useperlio d_sfio uselargefiles usesocks
+    use64bitint use64bitall uselongdouble
+    usemymalloc bincompat5005
+
+    cc ccflags
+    optimize
+    cppflags
+    ccversion gccversion gccosandvers
+    intsize longsize ptrsize doublesize byteorder
+    d_longlong longlongsize d_longdbl longdblsize
+    ivtype ivsize nvtype nvsize lseektype lseeksize
+    alignbytes prototype
+
+    ld ldflags
+    libpth
+    libs
+    perllibs
+    libc so useshrplib libperl
+    gnulibc_version
+
+    dlsrc dlext d_dlsymun ccdlflags
+    cccdlflags lddlflags
+    );
+
+my %empty_build = (
+    osname  => "",
+    stamp   => 0,
+    options => { %BTD },
+    patches => [],
+    );
+
+sub _make_derived
+{
+    my $conf = shift;
+
+    for ( [ lseektype		=> "Off_t"	],
+	  [ myuname		=> "uname"	],
+	  [ perl_patchlevel	=> "patch"	],
+	  ) {
+	my ($official, $derived) = @$_;
+	$conf->{config}{$derived}  ||= $conf->{config}{$official};
+	$conf->{config}{$official} ||= $conf->{config}{$derived};
+	$conf->{derived}{$derived} = delete $conf->{config}{$derived};
+	}
+
+    if (exists $conf->{config}{version_patchlevel_string} &&
+       !exists $conf->{config}{api_version}) {
+	my $vps = $conf->{config}{version_patchlevel_string};
+	$vps =~ s{\b revision   \s+ (\S+) }{}x and
+	    $conf->{config}{revision}        ||= $1;
+
+	$vps =~ s{\b version    \s+ (\S+) }{}x and
+	    $conf->{config}{api_version}     ||= $1;
+	$vps =~ s{\b subversion \s+ (\S+) }{}x and
+	    $conf->{config}{subversion}      ||= $1;
+	$vps =~ s{\b patch      \s+ (\S+) }{}x and
+	    $conf->{config}{perl_patchlevel} ||= $1;
+	}
+
+    ($conf->{config}{version_patchlevel_string} ||= join " ",
+	map  { ($_, $conf->{config}{$_} ) }
+	grep {      $conf->{config}{$_}   }
+	qw( api_version subversion perl_patchlevel )) =~ s/\bperl_//; 
+
+    $conf->{config}{perl_patchlevel}  ||= "";	# 0 is not a valid patchlevel
+
+    if ($conf->{config}{perl_patchlevel} =~ m{^git\w*-([^-]+)}i) {
+	$conf->{config}{git_branch}   ||= $1;
+	$conf->{config}{git_describe} ||= $conf->{config}{perl_patchlevel};
+	}
+
+    $conf;
+    } # _make_derived
+
+sub plv2hash
+{
+    my %config;
+
+    my $pv = join "\n" => @_;
+
+    if ($pv =~ m/^Summary of my\s+(\S+)\s+\(\s*(.*?)\s*\)/m) {
+	$config{"package"} = $1;
+	my $rev = $2;
+	$rev =~ s/^ revision \s+ (\S+) \s*//x and $config{revision} = $1;
+	$rev and $config{version_patchlevel_string} = $rev;
+	my ($rel) = $config{"package"} =~ m{perl(\d)};
+	my ($vers, $subvers) = $rev =~ m{version\s+(\d+)\s+subversion\s+(\d+)};
+	defined $vers && defined $subvers && defined $rel and
+	    $config{version} = "$rel.$vers.$subvers";
+	}
+
+    if ($pv =~ m/^\s+(Snapshot of:)\s+(\S+)/) {
+	$config{git_commit_id_title} = $1;
+	$config{git_commit_id}       = $2;
+	}
+
+    if (my %kv = ($pv =~ m{\b
+	    (\w+)		# key
+	    \s*=		# assign
+	    ( '\s*[^']*?\s*'	# quoted value
+	    | \S+[^=]*?\s*\n	# unquoted running till end of line
+	    | \S+		# unquoted value
+	    | \s*\n		# empty
+	    )
+	    (?:,?\s+|\s*\n)?	# separator (5.8.x reports did not have a ','
+	    }gx)) {		# between every kv pair
+
+	while (my ($k, $v) = each %kv) {
+	    $k =~ s/\s+$//;
+	    $v =~ s/\s*\n\z//;
+	    $v =~ s/,$//;
+	    $v =~ m/^'(.*)'$/ and $v = $1;
+	    $v =~ s/\s+$//;
+	    $config{$k} = $v;
+	    }
+	}
+
+    my $build = { %empty_build };
+
+    $pv =~ m{^\s+Compiled at\s+(.*)}m
+	and $build->{stamp}   = $1;
+    $pv =~ m{^\s+Locally applied patches:(?:\s+|\n)(.*?)(?:[\s\n]+Buil[td] under)}ms
+	and $build->{patches} = [ split m/\n+\s*/, $1 ];
+    $pv =~ m{^\s+Compile-time options:(?:\s+|\n)(.*?)(?:[\s\n]+(?:Locally applied|Buil[td] under))}ms
+	and map { $build->{options}{$_} = 1 } split m/\s+|\n/ => $1;
+
+    $build->{osname} = $config{osname};
+    $pv =~ m{^\s+Built under\s+(.*)}m
+	and $build->{osname}  = $1;
+    $config{osname} ||= $build->{osname};
+
+    return _make_derived ({
+	build		=> $build,
+	environment	=> {},
+	config		=> \%config,
+	derived		=> {},
+	inc		=> [],
+	});
+    } # plv2hash
+
+sub summary
+{
+    my $conf = shift || myconfig ();
+    ref $conf eq "HASH" &&
+	exists $conf->{config} && exists $conf->{build} or return;
+
+    my %info = map {
+	exists $conf->{config}{$_} ? ( $_ => $conf->{config}{$_} ) : () }
+	qw( archname osname osvers revision patchlevel subversion version
+	    cc ccversion gccversion config_args inc_version_list
+	    d_longdbl d_longlong use64bitall use64bitint useithreads
+	    uselongdouble usemultiplicity usemymalloc useperlio useshrplib 
+	    doublesize intsize ivsize nvsize longdblsize longlongsize lseeksize
+	    );
+    $info{$_}++ for grep { $conf->{build}{options}{$_} } keys %{$conf->{build}{options}};
+
+    return \%info;
+    } # summary
+
+sub signature
+{
+    eval { require Digest::MD5 };
+    $@ and return "00000000000000000000000000000000";
+
+    my $conf = shift || summary ();
+    delete $conf->{config_args};
+    return Digest::MD5::md5_hex (join "\xFF" => map {
+	"$_=".(defined $conf->{$_} ? $conf->{$_} : "\xFE");
+	} sort keys %$conf);
+    } # signature
+
+sub myconfig
+{
+    my $args = shift;
+    my %args = ref $args eq "HASH"  ? %$args :
+               ref $args eq "ARRAY" ? @$args : ();
+
+    my $build = { %empty_build };
+
+    # 5.14.0 and later provide all the information without shelling out
+    my $stamp = eval { Config::compile_date () };
+    if (defined $stamp) {
+	$stamp =~ s/^Compiled at //;
+	$build->{osname}      = $^O;
+	$build->{stamp}       = $stamp;
+	$build->{patches}     =     [ Config::local_patches () ];
+	$build->{options}{$_} = 1 for Config::bincompat_options (),
+				      Config::non_bincompat_options ();
+	}
+    else {
+	#y $pv = qx[$^X -e"sub Config::myconfig{};" -V];
+	my $cnf = plv2hash (qx[$^X -V]);
+
+	$build->{$_} = $cnf->{build}{$_} for qw( osname stamp patches options );
+	}
+
+    my @KEYS = keys %ENV;
+    my %env  =
+	map {      $_ => $ENV{$_} } grep m/^PERL/      => @KEYS;
+    $args{env} and
+	map { $env{$_} = $ENV{$_} } grep m{$args{env}} => @KEYS;
+
+    my %config = map { $_ => $Config{$_} } @config_vars;
+
+    return _make_derived ({
+	build		=> $build,
+	environment	=> \%env,
+	config		=> \%config,
+	derived		=> {},
+	inc		=> \@INC,
+	});
+    } # myconfig
+
+1;
+
+__END__
+
+=head1 NAME
+
+Config::Perl::V - Structured data retrieval of perl -V output
+
+=head1 SYNOPSIS
+
+ use Config::Perl::V;
+
+ my $local_config = Config::Perl::V::myconfig ();
+ print $local_config->{config}{osname};
+
+=head1 DESCRIPTION
+
+=head2 $conf = myconfig ()
+
+This function will collect the data described in L<the hash structure> below,
+and return that as a hash reference. It optionally accepts an option to
+include more entries from %ENV. See L<environment> below.
+
+Note that this will not work on uninstalled perls when called with
+C<-I/path/to/uninstalled/perl/lib>, but it works when that path is in
+C<$PERL5LIB> or in C<$PERL5OPT>, as paths passed using C<-I> are not
+known when the C<-V> information is collected.
+
+=head2 $conf = plv2hash ($text [, ...])
+
+Convert a sole 'perl -V' text block, or list of lines, to a complete
+myconfig hash.  All unknown entries are defaulted.
+
+=head2 $info = summary ([$conf])
+
+Return an arbitrary selection of the information. If no C<$conf> is
+given, C<myconfig ()> is used instead.
+
+=head2 $md5 = signature ([$conf])
+
+Return the MD5 of the info returned by C<summary ()> without the
+C<config_args> entry.
+
+If C<Digest::MD5> is not available, it return a string with only C<0>'s.
+
+=head2 The hash structure
+
+The returned hash consists of 4 parts:
+
+=over 4
+
+=item build
+
+This information is extracted from the second block that is emitted by
+C<perl -V>, and usually looks something like
+
+ Characteristics of this binary (from libperl):
+   Compile-time options: DEBUGGING USE_64_BIT_INT USE_LARGE_FILES
+   Locally applied patches:
+	 defined-or
+	 MAINT24637
+   Built under linux
+   Compiled at Jun 13 2005 10:44:20
+   @INC:
+     /usr/lib/perl5/5.8.7/i686-linux-64int
+     /usr/lib/perl5/5.8.7
+     /usr/lib/perl5/site_perl/5.8.7/i686-linux-64int
+     /usr/lib/perl5/site_perl/5.8.7
+     /usr/lib/perl5/site_perl
+     .
+
+or
+
+ Characteristics of this binary (from libperl):
+   Compile-time options: DEBUGGING MULTIPLICITY
+			 PERL_DONT_CREATE_GVSV PERL_IMPLICIT_CONTEXT
+			 PERL_MALLOC_WRAP PERL_TRACK_MEMPOOL
+			 PERL_USE_SAFE_PUTENV USE_ITHREADS
+			 USE_LARGE_FILES USE_PERLIO
+			 USE_REENTRANT_API
+   Built under linux
+   Compiled at Jan 28 2009 15:26:59
+
+This information is not available anywhere else, including C<%Config>,
+but it is the information that is only known to the perl binary.
+
+The extracted information is stored in 5 entries in the C<build> hash:
+
+=over 4
+
+=item osname
+
+This is most likely the same as C<$Config{osname}>, and was the name
+known when perl was built. It might be different if perl was cross-compiled.
+
+The default for this field, if it cannot be extracted, is to copy
+C<$Config{osname}>. The two may be differing in casing (OpenBSD vs openbsd).
+
+=item stamp
+
+This is the time string for which the perl binary was compiled. The default
+value is 0.
+
+=item options
+
+This is a hash with all the known defines as keys. The value is either 0,
+which means unknown or unset, or 1, which means defined.
+
+=item derived
+
+As some variables are reported by a different name in the output of C<perl -V>
+than their actual name in C<%Config>, I decided to leave the C<config> entry
+as close to reality as possible, and put in the entries that might have been
+guessed by the printed output in a separate block.
+
+=item patches
+
+This is a list of optionally locally applied patches. Default is an empty list.
+
+=back
+
+=item environment
+
+By default this hash is only filled with the environment variables
+out of %ENV that start with C<PERL>, but you can pass the C<env> option
+to myconfig to get more
+
+ my $conf = Config::Perl::V::myconfig ({ env => qr/^ORACLE/ });
+ my $conf = Config::Perl::V::myconfig ([ env => qr/^ORACLE/ ]);
+
+=item config
+
+This hash is filled with the variables that C<perl -V> fills its report
+with, and it has the same variables that C<Config::myconfig> returns
+from C<%Config>.
+
+=item inc
+
+This is the list of default @INC.
+
+=back
+
+=head1 REASONING
+
+This module was written to be able to return the configuration for the
+currently used perl as deeply as needed for the CPANTESTERS framework.
+Up until now they used the output of myconfig as a single text blob,
+and so it was missing the vital binary characteristics of the running
+perl and the optional applied patches.
+
+=head1 BUGS
+
+Please feedback what is wrong
+
+=head1 TODO
+
+ * Implement retrieval functions/methods
+ * Documentation
+ * Error checking
+ * Tests
+
+=head1 AUTHOR
+
+H.Merijn Brand <h.m.brand@xs4all.nl>
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright (C) 2009-2015 H.Merijn Brand
+
+This library is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
+=cut
diff --git a/lib/5.24.1/DB.pm b/lib/5.24.1/DB.pm
new file mode 100644
index 00000000..404c57cb
--- /dev/null
+++ b/lib/5.24.1/DB.pm
@@ -0,0 +1,802 @@
+#
+# Documentation is at the __END__
+#
+
+package DB;
+
+# "private" globals
+
+my ($running, $ready, $deep, $usrctxt, $evalarg, 
+    @stack, @saved, @skippkg, @clients);
+my $preeval = {};
+my $posteval = {};
+my $ineval = {};
+
+####
+#
+# Globals - must be defined at startup so that clients can refer to 
+# them right after a C<require DB;>
+#
+####
+
+BEGIN {
+
+  # these are hardcoded in perl source (some are magical)
+
+  $DB::sub = '';        # name of current subroutine
+  %DB::sub = ();        # "filename:fromline-toline" for every known sub
+  $DB::single = 0;      # single-step flag (set it to 1 to enable stops in BEGIN/use)
+  $DB::signal = 0;      # signal flag (will cause a stop at the next line)
+  $DB::trace = 0;       # are we tracing through subroutine calls?
+  @DB::args = ();       # arguments of current subroutine or @ARGV array
+  @DB::dbline = ();     # list of lines in currently loaded file
+  %DB::dbline = ();     # actions in current file (keyed by line number)
+  @DB::ret = ();        # return value of last sub executed in list context
+  $DB::ret = '';        # return value of last sub executed in scalar context
+
+  # other "public" globals  
+
+  $DB::package = '';    # current package space
+  $DB::filename = '';   # current filename
+  $DB::subname = '';    # currently executing sub (fully qualified name)
+  $DB::lineno = '';     # current line number
+
+  $DB::VERSION = $DB::VERSION = '1.08';
+
+  # initialize private globals to avoid warnings
+
+  $running = 1;         # are we running, or are we stopped?
+  @stack = (0);
+  @clients = ();
+  $deep = 1000;
+  $ready = 0;
+  @saved = ();
+  @skippkg = ();
+  $usrctxt = '';
+  $evalarg = '';
+}
+
+####
+# entry point for all subroutine calls
+#
+sub sub {
+  push(@stack, $DB::single);
+  $DB::single &= 1;
+  $DB::single |= 4 if $#stack == $deep;
+  if ($DB::sub eq 'DESTROY' or substr($DB::sub, -9) eq '::DESTROY' or not defined wantarray) {
+    &$DB::sub;
+    $DB::single |= pop(@stack);
+    $DB::ret = undef;
+  }
+  elsif (wantarray) {
+    @DB::ret = &$DB::sub;
+    $DB::single |= pop(@stack);
+    @DB::ret;
+  }
+  else {
+    $DB::ret = &$DB::sub;
+    $DB::single |= pop(@stack);
+    $DB::ret;
+  }
+}
+
+####
+# this is called by perl for every statement
+#
+sub DB {
+  return unless $ready;
+  &save;
+  ($DB::package, $DB::filename, $DB::lineno) = caller;
+
+  return if @skippkg and grep { $_ eq $DB::package } @skippkg;
+
+  $usrctxt = "package $DB::package;";		# this won't let them modify, alas
+  local(*DB::dbline) = "::_<$DB::filename";
+
+  my ($stop, $action);
+  if (($stop,$action) = split(/\0/,$DB::dbline{$DB::lineno})) {
+    if ($stop eq '1') {
+      $DB::signal |= 1;
+    }
+    else {
+      $stop = 0 unless $stop;			# avoid un_init warning
+      $evalarg = "\$DB::signal |= do { $stop; }"; &eval;
+      $DB::dbline{$DB::lineno} =~ s/;9($|\0)/$1/;    # clear any temp breakpt
+    }
+  }
+  if ($DB::single || $DB::trace || $DB::signal) {
+    $DB::subname = ($DB::sub =~ /\'|::/) ? $DB::sub : "${DB::package}::$DB::sub"; #';
+    DB->loadfile($DB::filename, $DB::lineno);
+  }
+  $evalarg = $action, &eval if $action;
+  if ($DB::single || $DB::signal) {
+    _outputall($#stack . " levels deep in subroutine calls.\n") if $DB::single & 4;
+    $DB::single = 0;
+    $DB::signal = 0;
+    $running = 0;
+    
+    &eval if ($evalarg = DB->prestop);
+    my $c;
+    for $c (@clients) {
+      # perform any client-specific prestop actions
+      &eval if ($evalarg = $c->cprestop);
+      
+      # Now sit in an event loop until something sets $running
+      do {
+	$c->idle;                     # call client event loop; must not block
+	if ($running == 2) {          # client wants something eval-ed
+	  &eval if ($evalarg = $c->evalcode);
+	  $running = 0;
+	}
+      } until $running;
+      
+      # perform any client-specific poststop actions
+      &eval if ($evalarg = $c->cpoststop);
+    }
+    &eval if ($evalarg = DB->poststop);
+  }
+  ($@, $!, $,, $/, $\, $^W) = @saved;
+  ();
+}
+  
+####
+# this takes its argument via $evalarg to preserve current @_
+#    
+sub eval {
+  ($@, $!, $,, $/, $\, $^W) = @saved;
+  eval "$usrctxt $evalarg; &DB::save";
+  _outputall($@) if $@;
+}
+
+###############################################################################
+#         no compile-time subroutine call allowed before this point           #
+###############################################################################
+
+use strict;                # this can run only after DB() and sub() are defined
+
+sub save {
+  @saved = ($@, $!, $,, $/, $\, $^W);
+  $, = ""; $/ = "\n"; $\ = ""; $^W = 0;
+}
+
+sub catch {
+  for (@clients) { $_->awaken; }
+  $DB::signal = 1;
+  $ready = 1;
+}
+
+####
+#
+# Client callable (read inheritable) methods defined after this point
+#
+####
+
+sub register {
+  my $s = shift;
+  $s = _clientname($s) if ref($s);
+  push @clients, $s;
+}
+
+sub done {
+  my $s = shift;
+  $s = _clientname($s) if ref($s);
+  @clients = grep {$_ ne $s} @clients;
+  $s->cleanup;
+#  $running = 3 unless @clients;
+  exit(0) unless @clients;
+}
+
+sub _clientname {
+  my $name = shift;
+  "$name" =~ /^(.+)=[A-Z]+\(.+\)$/;
+  return $1;
+}
+
+sub next {
+  my $s = shift;
+  $DB::single = 2;
+  $running = 1;
+}
+
+sub step {
+  my $s = shift;
+  $DB::single = 1;
+  $running = 1;
+}
+
+sub cont {
+  my $s = shift;
+  my $i = shift;
+  $s->set_tbreak($i) if $i;
+  for ($i = 0; $i <= $#stack;) {
+	$stack[$i++] &= ~1;
+  }
+  $DB::single = 0;
+  $running = 1;
+}
+
+####
+# XXX caller must experimentally determine $i (since it depends
+# on how many client call frames are between this call and the DB call).
+# Such is life.
+#
+sub ret {
+  my $s = shift;
+  my $i = shift;      # how many levels to get to DB sub
+  $i = 0 unless defined $i;
+  $stack[$#stack-$i] |= 1;
+  $DB::single = 0;
+  $running = 1;
+}
+
+####
+# XXX caller must experimentally determine $start (since it depends
+# on how many client call frames are between this call and the DB call).
+# Such is life.
+#
+sub backtrace {
+  my $self = shift;
+  my $start = shift;
+  my($p,$f,$l,$s,$h,$w,$e,$r,$a, @a, @ret,$i);
+  $start = 1 unless $start;
+  for ($i = $start; ($p,$f,$l,$s,$h,$w,$e,$r) = caller($i); $i++) {
+    @a = @DB::args;
+    for (@a) {
+      s/'/\\'/g;
+      s/([^\0]*)/'$1'/ unless /^-?[\d.]+$/;
+      require 'meta_notation.pm';
+      $_ = _meta_notation($_) if /[[:^print:]]/a;
+    }
+    $w = $w ? '@ = ' : '$ = ';
+    $a = $h ? '(' . join(', ', @a) . ')' : '';
+    $e =~ s/\n\s*\;\s*\Z// if $e;
+    $e =~ s/[\\\']/\\$1/g if $e;
+    if ($r) {
+      $s = "require '$e'";
+    } elsif (defined $r) {
+      $s = "eval '$e'";
+    } elsif ($s eq '(eval)') {
+      $s = "eval {...}";
+    }
+    $f = "file '$f'" unless $f eq '-e';
+    push @ret, "$w&$s$a from $f line $l";
+    last if $DB::signal;
+  }
+  return @ret;
+}
+
+sub _outputall {
+  my $c;
+  for $c (@clients) {
+    $c->output(@_);
+  }
+}
+
+sub trace_toggle {
+  my $s = shift;
+  $DB::trace = !$DB::trace;
+}
+
+
+####
+# without args: returns all defined subroutine names
+# with subname args: returns a listref [file, start, end]
+#
+sub subs {
+  my $s = shift;
+  if (@_) {
+    my(@ret) = ();
+    while (@_) {
+      my $name = shift;
+      push @ret, [$DB::sub{$name} =~ /^(.*)\:(\d+)-(\d+)$/] 
+	if exists $DB::sub{$name};
+    }
+    return @ret;
+  }
+  return keys %DB::sub;
+}
+
+####
+# first argument is a filename whose subs will be returned
+# if a filename is not supplied, all subs in the current
+# filename are returned.
+#
+sub filesubs {
+  my $s = shift;
+  my $fname = shift;
+  $fname = $DB::filename unless $fname;
+  return grep { $DB::sub{$_} =~ /^$fname/ } keys %DB::sub;
+}
+
+####
+# returns a list of all filenames that DB knows about
+#
+sub files {
+  my $s = shift;
+  my(@f) = grep(m|^_<|, keys %main::);
+  return map { substr($_,2) } @f;
+}
+
+####
+# returns reference to an array holding the lines in currently
+# loaded file
+#
+sub lines {
+  my $s = shift;
+  return \@DB::dbline;
+}
+
+####
+# loadfile($file, $line)
+#
+sub loadfile {
+  my $s = shift;
+  my($file, $line) = @_;
+  if (!defined $main::{'_<' . $file}) {
+    my $try;
+    if (($try) = grep(m|^_<.*$file|, keys %main::)) {  
+      $file = substr($try,2);
+    }
+  }
+  if (defined($main::{'_<' . $file})) {
+    my $c;
+#    _outputall("Loading file $file..");
+    *DB::dbline = "::_<$file";
+    $DB::filename = $file;
+    for $c (@clients) {
+#      print "2 ", $file, '|', $line, "\n";
+      $c->showfile($file, $line);
+    }
+    return $file;
+  }
+  return undef;
+}
+
+sub lineevents {
+  my $s = shift;
+  my $fname = shift;
+  my(%ret) = ();
+  my $i;
+  $fname = $DB::filename unless $fname;
+  local(*DB::dbline) = "::_<$fname";
+  for ($i = 1; $i <= $#DB::dbline; $i++) {
+    $ret{$i} = [$DB::dbline[$i], split(/\0/, $DB::dbline{$i})] 
+      if defined $DB::dbline{$i};
+  }
+  return %ret;
+}
+
+sub set_break {
+  my $s = shift;
+  my $i = shift;
+  my $cond = shift;
+  $i ||= $DB::lineno;
+  $cond ||= '1';
+  $i = _find_subline($i) if ($i =~ /\D/);
+  $s->output("Subroutine not found.\n") unless $i;
+  if ($i) {
+    if ($DB::dbline[$i] == 0) {
+      $s->output("Line $i not breakable.\n");
+    }
+    else {
+      $DB::dbline{$i} =~ s/^[^\0]*/$cond/;
+    }
+  }
+}
+
+sub set_tbreak {
+  my $s = shift;
+  my $i = shift;
+  $i = _find_subline($i) if ($i =~ /\D/);
+  $s->output("Subroutine not found.\n") unless $i;
+  if ($i) {
+    if ($DB::dbline[$i] == 0) {
+      $s->output("Line $i not breakable.\n");
+    }
+    else {
+      $DB::dbline{$i} =~ s/($|\0)/;9$1/; # add one-time-only b.p.
+    }
+  }
+}
+
+sub _find_subline {
+  my $name = shift;
+  $name =~ s/\'/::/;
+  $name = "${DB::package}\:\:" . $name if $name !~ /::/;
+  $name = "main" . $name if substr($name,0,2) eq "::";
+  my($fname, $from, $to) = ($DB::sub{$name} =~ /^(.*):(\d+)-(\d+)$/);
+  if ($from) {
+    local *DB::dbline = "::_<$fname";
+    ++$from while $DB::dbline[$from] == 0 && $from < $to;
+    return $from;
+  }
+  return undef;
+}
+
+sub clr_breaks {
+  my $s = shift;
+  my $i;
+  if (@_) {
+    while (@_) {
+      $i = shift;
+      $i = _find_subline($i) if ($i =~ /\D/);
+      $s->output("Subroutine not found.\n") unless $i;
+      if (defined $DB::dbline{$i}) {
+        $DB::dbline{$i} =~ s/^[^\0]+//;
+        if ($DB::dbline{$i} =~ s/^\0?$//) {
+          delete $DB::dbline{$i};
+        }
+      }
+    }
+  }
+  else {
+    for ($i = 1; $i <= $#DB::dbline ; $i++) {
+      if (defined $DB::dbline{$i}) {
+        $DB::dbline{$i} =~ s/^[^\0]+//;
+        if ($DB::dbline{$i} =~ s/^\0?$//) {
+          delete $DB::dbline{$i};
+        }
+      }
+    }
+  }
+}
+
+sub set_action {
+  my $s = shift;
+  my $i = shift;
+  my $act = shift;
+  $i = _find_subline($i) if ($i =~ /\D/);
+  $s->output("Subroutine not found.\n") unless $i;
+  if ($i) {
+    if ($DB::dbline[$i] == 0) {
+      $s->output("Line $i not actionable.\n");
+    }
+    else {
+      $DB::dbline{$i} =~ s/\0[^\0]*//;
+      $DB::dbline{$i} .= "\0" . $act;
+    }
+  }
+}
+
+sub clr_actions {
+  my $s = shift;
+  my $i;
+  if (@_) {
+    while (@_) {
+      my $i = shift;
+      $i = _find_subline($i) if ($i =~ /\D/);
+      $s->output("Subroutine not found.\n") unless $i;
+      if ($i && $DB::dbline[$i] != 0) {
+	$DB::dbline{$i} =~ s/\0[^\0]*//;
+	delete $DB::dbline{$i} if $DB::dbline{$i} =~ s/^\0?$//;
+      }
+    }
+  }
+  else {
+    for ($i = 1; $i <= $#DB::dbline ; $i++) {
+      if (defined $DB::dbline{$i}) {
+	$DB::dbline{$i} =~ s/\0[^\0]*//;
+	delete $DB::dbline{$i} if $DB::dbline{$i} =~ s/^\0?$//;
+      }
+    }
+  }
+}
+
+sub prestop {
+  my ($client, $val) = @_;
+  return defined($val) ? $preeval->{$client} = $val : $preeval->{$client};
+}
+
+sub poststop {
+  my ($client, $val) = @_;
+  return defined($val) ? $posteval->{$client} = $val : $posteval->{$client};
+}
+
+#
+# "pure virtual" methods
+#
+
+# client-specific pre/post-stop actions.
+sub cprestop {}
+sub cpoststop {}
+
+# client complete startup
+sub awaken {}
+
+sub skippkg {
+  my $s = shift;
+  push @skippkg, @_ if @_;
+}
+
+sub evalcode {
+  my ($client, $val) = @_;
+  if (defined $val) {
+    $running = 2;    # hand over to DB() to evaluate in its context
+    $ineval->{$client} = $val;
+  }
+  return $ineval->{$client};
+}
+
+sub ready {
+  my $s = shift;
+  return $ready = 1;
+}
+
+# stubs
+    
+sub init {}
+sub stop {}
+sub idle {}
+sub cleanup {}
+sub output {}
+
+#
+# client init
+#
+for (@clients) { $_->init }
+
+$SIG{'INT'} = \&DB::catch;
+
+# disable this if stepping through END blocks is desired
+# (looks scary and deconstructivist with Swat)
+END { $ready = 0 }
+
+1;
+__END__
+
+=head1 NAME
+
+DB - programmatic interface to the Perl debugging API
+
+=head1 SYNOPSIS
+
+    package CLIENT;
+    use DB;
+    @ISA = qw(DB);
+
+    # these (inherited) methods can be called by the client
+
+    CLIENT->register()      # register a client package name
+    CLIENT->done()          # de-register from the debugging API
+    CLIENT->skippkg('hide::hide')  # ask DB not to stop in this package
+    CLIENT->cont([WHERE])       # run some more (until BREAK or 
+                                # another breakpointt)
+    CLIENT->step()              # single step
+    CLIENT->next()              # step over
+    CLIENT->ret()               # return from current subroutine
+    CLIENT->backtrace()         # return the call stack description
+    CLIENT->ready()             # call when client setup is done
+    CLIENT->trace_toggle()      # toggle subroutine call trace mode
+    CLIENT->subs([SUBS])        # return subroutine information
+    CLIENT->files()             # return list of all files known to DB
+    CLIENT->lines()             # return lines in currently loaded file
+    CLIENT->loadfile(FILE,LINE) # load a file and let other clients know
+    CLIENT->lineevents()        # return info on lines with actions
+    CLIENT->set_break([WHERE],[COND])
+    CLIENT->set_tbreak([WHERE])
+    CLIENT->clr_breaks([LIST])
+    CLIENT->set_action(WHERE,ACTION)
+    CLIENT->clr_actions([LIST])
+    CLIENT->evalcode(STRING)  # eval STRING in executing code's context
+    CLIENT->prestop([STRING]) # execute in code context before stopping
+    CLIENT->poststop([STRING])# execute in code context before resuming
+
+    # These methods will be called at the appropriate times.
+    # Stub versions provided do nothing.
+    # None of these can block.
+
+    CLIENT->init()          # called when debug API inits itself
+    CLIENT->stop(FILE,LINE) # when execution stops
+    CLIENT->idle()          # while stopped (can be a client event loop)
+    CLIENT->cleanup()       # just before exit
+    CLIENT->output(LIST)    # called to print any output that
+                            # the API must show
+
+=head1 DESCRIPTION
+
+Perl debug information is frequently required not just by debuggers,
+but also by modules that need some "special" information to do their
+job properly, like profilers.
+
+This module abstracts and provides all of the hooks into Perl internal
+debugging functionality, so that various implementations of Perl debuggers
+(or packages that want to simply get at the "privileged" debugging data)
+can all benefit from the development of this common code.  Currently used
+by Swat, the perl/Tk GUI debugger.
+
+Note that multiple "front-ends" can latch into this debugging API
+simultaneously.  This is intended to facilitate things like
+debugging with a command line and GUI at the same time, debugging 
+debuggers etc.  [Sounds nice, but this needs some serious support -- GSAR]
+
+In particular, this API does B<not> provide the following functions:
+
+=over 4
+
+=item *
+
+data display
+
+=item *
+
+command processing
+
+=item *
+
+command alias management
+
+=item *
+
+user interface (tty or graphical)
+
+=back
+
+These are intended to be services performed by the clients of this API.
+
+This module attempts to be squeaky clean w.r.t C<use strict;> and when
+warnings are enabled.
+
+
+=head2 Global Variables
+
+The following "public" global names can be read by clients of this API.
+Beware that these should be considered "readonly".
+
+=over 8
+
+=item  $DB::sub
+
+Name of current executing subroutine.
+
+=item  %DB::sub
+
+The keys of this hash are the names of all the known subroutines.  Each value
+is an encoded string that has the sprintf(3) format 
+C<("%s:%d-%d", filename, fromline, toline)>.
+
+=item  $DB::single
+
+Single-step flag.  Will be true if the API will stop at the next statement.
+
+=item  $DB::signal
+
+Signal flag. Will be set to a true value if a signal was caught.  Clients may
+check for this flag to abort time-consuming operations.
+
+=item  $DB::trace
+
+This flag is set to true if the API is tracing through subroutine calls.
+
+=item  @DB::args
+
+Contains the arguments of current subroutine, or the C<@ARGV> array if in the 
+toplevel context.
+
+=item  @DB::dbline
+
+List of lines in currently loaded file.
+
+=item  %DB::dbline
+
+Actions in current file (keys are line numbers).  The values are strings that
+have the sprintf(3) format C<("%s\000%s", breakcondition, actioncode)>. 
+
+=item  $DB::package
+
+Package namespace of currently executing code.
+
+=item  $DB::filename
+
+Currently loaded filename.
+
+=item  $DB::subname
+
+Fully qualified name of currently executing subroutine.
+
+=item  $DB::lineno
+
+Line number that will be executed next.
+
+=back
+
+=head2 API Methods
+
+The following are methods in the DB base class.  A client must
+access these methods by inheritance (*not* by calling them directly),
+since the API keeps track of clients through the inheritance
+mechanism.
+
+=over 8
+
+=item CLIENT->register()
+
+register a client object/package
+
+=item CLIENT->evalcode(STRING)
+
+eval STRING in executing code context
+
+=item CLIENT->skippkg('D::hide')
+
+ask DB not to stop in these packages
+
+=item CLIENT->run()
+
+run some more (until a breakpt is reached)
+
+=item CLIENT->step()
+
+single step
+
+=item CLIENT->next()
+
+step over
+
+=item CLIENT->done()
+
+de-register from the debugging API
+
+=back
+
+=head2 Client Callback Methods
+
+The following "virtual" methods can be defined by the client.  They will
+be called by the API at appropriate points.  Note that unless specified
+otherwise, the debug API only defines empty, non-functional default versions
+of these methods.
+
+=over 8
+
+=item CLIENT->init()
+
+Called after debug API inits itself.
+
+=item CLIENT->prestop([STRING])
+
+Usually inherited from DB package.  If no arguments are passed,
+returns the prestop action string.
+
+=item CLIENT->stop()
+
+Called when execution stops (w/ args file, line).
+
+=item CLIENT->idle()
+
+Called while stopped (can be a client event loop).
+
+=item CLIENT->poststop([STRING])
+
+Usually inherited from DB package.  If no arguments are passed,
+returns the poststop action string.
+
+=item CLIENT->evalcode(STRING)
+
+Usually inherited from DB package.  Ask for a STRING to be C<eval>-ed
+in executing code context.
+
+=item CLIENT->cleanup()
+
+Called just before exit.
+
+=item CLIENT->output(LIST)
+
+Called when API must show a message (warnings, errors etc.).
+
+
+=back
+
+
+=head1 BUGS
+
+The interface defined by this module is missing some of the later additions
+to perl's debugging functionality.  As such, this interface should be considered
+highly experimental and subject to change.
+
+=head1 AUTHOR
+
+Gurusamy Sarathy	gsar@activestate.com
+
+This code heavily adapted from an early version of perl5db.pl attributable
+to Larry Wall and the Perl Porters.
+
+=cut
diff --git a/lib/5.24.1/DBM_Filter.pm b/lib/5.24.1/DBM_Filter.pm
new file mode 100644
index 00000000..033fd1c7
--- /dev/null
+++ b/lib/5.24.1/DBM_Filter.pm
@@ -0,0 +1,601 @@
+package DBM_Filter ;
+
+use strict;
+use warnings;
+our $VERSION = '0.06';
+
+package Tie::Hash ;
+
+use strict;
+use warnings;
+
+use Carp;
+
+
+our %LayerStack = ();
+our %origDESTROY = ();
+
+our %Filters = map { $_, undef } qw(
+            Fetch_Key
+            Fetch_Value
+            Store_Key
+            Store_Value
+	);
+
+our %Options = map { $_, 1 } qw(
+            fetch
+            store
+	);
+
+#sub Filter_Enable
+#{
+#}
+#
+#sub Filter_Disable
+#{
+#}
+
+sub Filtered
+{
+    my $this = shift;
+    return defined $LayerStack{$this} ;
+}
+
+sub Filter_Pop
+{
+    my $this = shift;
+    my $stack = $LayerStack{$this} || return undef ;
+    my $filter = pop @{ $stack };
+
+    # remove the filter hooks if this is the last filter to pop
+    if ( @{ $stack } == 0 ) {
+        $this->filter_store_key  ( undef );
+        $this->filter_store_value( undef );
+        $this->filter_fetch_key  ( undef );
+        $this->filter_fetch_value( undef );
+        delete $LayerStack{$this};
+    }
+
+    return $filter;
+}
+
+sub Filter_Key_Push
+{
+    &_do_Filter_Push;
+}
+
+sub Filter_Value_Push
+{
+    &_do_Filter_Push;
+}
+
+
+sub Filter_Push
+{
+    &_do_Filter_Push;
+}
+
+sub _do_Filter_Push
+{
+    my $this = shift;
+    my %callbacks = ();
+    my $caller = (caller(1))[3];
+    $caller =~ s/^.*:://;
+ 
+    croak "$caller: no parameters present" unless @_ ;
+
+    if ( ! $Options{lc $_[0]} ) {
+        my $class = shift;
+        my @params = @_;
+
+        # if $class already contains "::", don't prefix "DBM_Filter::"
+        $class = "DBM_Filter::$class" unless $class =~ /::/;
+    
+        no strict 'refs';
+        # does the "DBM_Filter::$class" exist?
+	if ( ! %{ "${class}::"} ) {
+	    # Nope, so try to load it.
+            eval " require $class ; " ;
+            croak "$caller: Cannot Load DBM Filter '$class': $@" if $@;
+        }
+    
+        my $fetch  = *{ "${class}::Fetch"  }{CODE};
+        my $store  = *{ "${class}::Store"  }{CODE};
+        my $filter = *{ "${class}::Filter" }{CODE};
+        use strict 'refs';
+
+        my $count = defined($filter) + defined($store) + defined($fetch) ;
+
+        if ( $count == 0 )
+          { croak "$caller: No methods (Filter, Fetch or Store) found in class '$class'" }
+        elsif ( $count == 1 && ! defined $filter) {
+           my $need = defined($fetch) ? 'Store' : 'Fetch';
+           croak "$caller: Missing method '$need' in class '$class'" ;
+        }
+        elsif ( $count >= 2 && defined $filter)
+          { croak "$caller: Can't mix Filter with Store and Fetch in class '$class'" }
+
+        if (defined $filter) {
+            my $callbacks = &{ $filter }(@params);
+            croak "$caller: '${class}::Filter' did not return a hash reference" 
+                unless ref $callbacks && ref $callbacks eq 'HASH';
+            %callbacks = %{ $callbacks } ;
+        }
+        else {
+            $callbacks{Fetch} = $fetch;
+            $callbacks{Store} = $store;
+        }
+    }
+    else {
+        croak "$caller: not even params" unless @_ % 2 == 0;
+        %callbacks = @_;
+    }
+    
+    my %filters = %Filters ;
+    my @got = ();
+    while (my ($k, $v) = each %callbacks )
+    {
+        my $key = $k;
+        $k = lc $k;
+        if ($k eq 'fetch') {
+            push @got, 'Fetch';
+            if ($caller eq 'Filter_Push')
+              { $filters{Fetch_Key} = $filters{Fetch_Value} = $v }
+            elsif ($caller eq 'Filter_Key_Push')
+              { $filters{Fetch_Key} = $v }
+            elsif ($caller eq 'Filter_Value_Push')
+              { $filters{Fetch_Value} = $v }
+        }
+        elsif ($k eq 'store') {
+            push @got, 'Store';
+            if ($caller eq 'Filter_Push')
+              { $filters{Store_Key} = $filters{Store_Value} = $v }
+            elsif ($caller eq 'Filter_Key_Push')
+              { $filters{Store_Key} = $v }
+            elsif ($caller eq 'Filter_Value_Push')
+              { $filters{Store_Value} = $v }
+        }
+        else
+          { croak "$caller: Unknown key '$key'" }
+
+        croak "$caller: value associated with key '$key' is not a code reference"
+            unless ref $v && ref $v eq 'CODE';
+    }
+
+    if ( @got != 2 ) {
+        push @got, 'neither' if @got == 0 ;
+        croak "$caller: expected both Store & Fetch - got @got";
+    }
+
+    # remember the class
+    push @{ $LayerStack{$this} }, \%filters ;
+
+    my $str_this = "$this" ; # Avoid a closure with $this in the subs below
+
+    $this->filter_store_key  ( sub { store_hook($str_this, 'Store_Key')   });
+    $this->filter_store_value( sub { store_hook($str_this, 'Store_Value') });
+    $this->filter_fetch_key  ( sub { fetch_hook($str_this, 'Fetch_Key')   });
+    $this->filter_fetch_value( sub { fetch_hook($str_this, 'Fetch_Value') });
+
+    # Hijack the callers DESTROY method
+    $this =~ /^(.*)=/;
+    my $type = $1 ;
+    no strict 'refs';
+    if ( *{ "${type}::DESTROY" }{CODE} ne \&MyDESTROY )
+    {
+        $origDESTROY{$type} = *{ "${type}::DESTROY" }{CODE};
+        no warnings 'redefine';
+        *{ "${type}::DESTROY" } = \&MyDESTROY ;
+    }
+}
+
+sub store_hook
+{
+    my $this = shift ;
+    my $type = shift ;
+    foreach my $layer (@{ $LayerStack{$this} })
+    {
+        &{ $layer->{$type} }() if defined $layer->{$type} ;
+    }
+}
+
+sub fetch_hook
+{
+    my $this = shift ;
+    my $type = shift ;
+    foreach my $layer (reverse @{ $LayerStack{$this} })
+    {
+        &{ $layer->{$type} }() if defined $layer->{$type} ;
+    }
+}
+
+sub MyDESTROY
+{
+    my $this = shift ;
+    delete $LayerStack{$this} ;
+
+    # call real DESTROY
+    $this =~ /^(.*)=/;
+    &{ $origDESTROY{$1} }($this);
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+DBM_Filter -- Filter DBM keys/values 
+
+=head1 SYNOPSIS
+
+    use DBM_Filter ;
+    use SDBM_File; # or DB_File, GDBM_File, NDBM_File, or ODBM_File
+
+    $db = tie %hash, ...
+
+    $db->Filter_Push(Fetch => sub {...},
+                     Store => sub {...});
+
+    $db->Filter_Push('my_filter1');
+    $db->Filter_Push('my_filter2', params...);
+
+    $db->Filter_Key_Push(...) ;
+    $db->Filter_Value_Push(...) ;
+
+    $db->Filter_Pop();
+    $db->Filtered();
+
+    package DBM_Filter::my_filter1;
+
+    sub Store { ... }
+    sub Fetch { ... }
+
+    1;
+
+    package DBM_Filter::my_filter2;
+
+    sub Filter
+    {
+        my @opts = @_;
+        ...
+        return (
+            sub Store { ... },
+            sub Fetch { ... } );
+    }
+
+    1;
+
+=head1 DESCRIPTION
+
+This module provides an interface that allows filters to be applied
+to tied Hashes associated with DBM files. It builds on the DBM Filter
+hooks that are present in all the *DB*_File modules included with the
+standard Perl source distribution from version 5.6.1 onwards. In addition
+to the *DB*_File modules distributed with Perl, the BerkeleyDB module,
+available on CPAN, supports the DBM Filter hooks. See L<perldbmfilter>
+for more details on the DBM Filter hooks.
+
+=head1 What is a DBM Filter?
+
+A DBM Filter allows the keys and/or values in a tied hash to be modified
+by some user-defined code just before it is written to the DBM file and
+just after it is read back from the DBM file. For example, this snippet
+of code
+
+    $some_hash{"abc"} = 42;
+
+could potentially trigger two filters, one for the writing of the key
+"abc" and another for writing the value 42.  Similarly, this snippet
+
+    my ($key, $value) = each %some_hash
+
+will trigger two filters, one for the reading of the key and one for
+the reading of the value.
+
+Like the existing DBM Filter functionality, this module arranges for the
+C<$_> variable to be populated with the key or value that a filter will
+check. This usually means that most DBM filters tend to be very short.
+
+=head2 So what's new?
+
+The main enhancements over the standard DBM Filter hooks are:
+
+=over 4
+
+=item *
+
+A cleaner interface.
+
+=item *
+
+The ability to easily apply multiple filters to a single DBM file.
+
+=item *
+
+The ability to create "canned" filters. These allow commonly used filters
+to be packaged into a stand-alone module.
+
+=back
+
+=head1 METHODS
+
+This module will arrange for the following methods to be available via
+the object returned from the C<tie> call.
+
+=head2 $db->Filter_Push() / $db->Filter_Key_Push() / $db->Filter_Value_Push()
+
+Add a filter to filter stack for the database, C<$db>. The three formats
+vary only in whether they apply to the DBM key, the DBM value or both.
+
+=over 5
+
+=item Filter_Push
+
+The filter is applied to I<both> keys and values.
+
+=item Filter_Key_Push
+
+The filter is applied to the key I<only>.
+
+=item Filter_Value_Push
+
+The filter is applied to the value I<only>.
+
+=back
+
+
+=head2 $db->Filter_Pop()
+
+Removes the last filter that was applied to the DBM file associated with
+C<$db>, if present.
+
+=head2 $db->Filtered()
+
+Returns TRUE if there are any filters applied to the DBM associated
+with C<$db>.  Otherwise returns FALSE.
+
+
+
+=head1 Writing a Filter
+
+Filters can be created in two main ways
+
+=head2 Immediate Filters
+
+An immediate filter allows you to specify the filter code to be used
+at the point where the filter is applied to a dbm. In this mode the
+Filter_*_Push methods expects to receive exactly two parameters.
+
+    my $db = tie %hash, 'SDBM_File', ...
+    $db->Filter_Push( Store => sub { },
+                      Fetch => sub { });
+
+The code reference associated with C<Store> will be called before any
+key/value is written to the database and the code reference associated
+with C<Fetch> will be called after any key/value is read from the
+database.
+
+For example, here is a sample filter that adds a trailing NULL character
+to all strings before they are written to the DBM file, and removes the
+trailing NULL when they are read from the DBM file
+
+    my $db = tie %hash, 'SDBM_File', ...
+    $db->Filter_Push( Store => sub { $_ .= "\x00" ; },
+                      Fetch => sub { s/\x00$// ;    });
+
+
+Points to note:
+
+=over 5
+
+=item 1.
+
+Both the Store and Fetch filters manipulate C<$_>.
+
+=back
+
+=head2 Canned Filters
+
+Immediate filters are useful for one-off situations. For more generic
+problems it can be useful to package the filter up in its own module.
+
+The usage is for a canned filter is:
+
+    $db->Filter_Push("name", params)
+
+where
+
+=over 5
+
+=item "name"
+
+is the name of the module to load. If the string specified does not
+contain the package separator characters "::", it is assumed to refer to
+the full module name "DBM_Filter::name". This means that the full names
+for canned filters, "null" and "utf8", included with this module are:
+
+    DBM_Filter::null
+    DBM_Filter::utf8
+
+=item params
+
+any optional parameters that need to be sent to the filter. See the
+encode filter for an example of a module that uses parameters.
+
+=back
+
+The module that implements the canned filter can take one of two
+forms. Here is a template for the first
+
+    package DBM_Filter::null ;
+
+    use strict;
+    use warnings;
+
+    sub Store 
+    {
+        # store code here    
+    }
+
+    sub Fetch
+    {
+        # fetch code here
+    }
+
+    1;
+
+
+Notes:
+
+=over 5
+
+=item 1.
+
+The package name uses the C<DBM_Filter::> prefix.
+
+=item 2.
+
+The module I<must> have both a Store and a Fetch method. If only one is
+present, or neither are present, a fatal error will be thrown.
+
+=back
+
+The second form allows the filter to hold state information using a
+closure, thus:
+
+    package DBM_Filter::encoding ;
+
+    use strict;
+    use warnings;
+
+    sub Filter
+    {
+        my @params = @_ ;
+
+        ...
+        return {
+            Store   => sub { $_ = $encoding->encode($_) },
+            Fetch   => sub { $_ = $encoding->decode($_) }
+            } ;
+    }
+
+    1;
+
+
+In this instance the "Store" and "Fetch" methods are encapsulated inside a
+"Filter" method.
+
+
+=head1 Filters Included
+
+A number of canned filers are provided with this module. They cover a
+number of the main areas that filters are needed when interfacing with
+DBM files. They also act as templates for your own filters.
+
+The filter included are:
+
+=over 5
+
+=item * utf8
+
+This module will ensure that all data written to the DBM will be encoded
+in UTF-8.
+
+This module needs the Encode module.
+
+=item * encode
+
+Allows you to choose the character encoding will be store in the DBM file.
+
+=item * compress
+
+This filter will compress all data before it is written to the database
+and uncompressed it on reading.
+
+This module needs Compress::Zlib. 
+
+=item * int32
+
+This module is used when interoperating with a C/C++ application that
+uses a C int as either the key and/or value in the DBM file.
+
+=item * null
+
+This module ensures that all data written to the DBM file is null
+terminated. This is useful when you have a perl script that needs
+to interoperate with a DBM file that a C program also uses. A fairly
+common issue is for the C application to include the terminating null
+in a string when it writes to the DBM file. This filter will ensure that
+all data written to the DBM file can be read by the C application.
+
+=back
+
+=head1 NOTES
+
+=head2 Maintain Round Trip Integrity
+
+When writing a DBM filter it is I<very> important to ensure that it is
+possible to retrieve all data that you have written when the DBM filter
+is in place. In practice, this means that whatever transformation is
+applied to the data in the Store method, the I<exact> inverse operation
+should be applied in the Fetch method.
+
+If you don't provide an exact inverse transformation, you will find that
+code like this will not behave as you expect.
+
+     while (my ($k, $v) = each %hash)
+     {
+         ...
+     }
+
+Depending on the transformation, you will find that one or more of the
+following will happen
+
+=over 5
+
+=item 1
+
+The loop will never terminate.
+
+=item 2
+
+Too few records will be retrieved.
+
+=item 3
+
+Too many will be retrieved.
+
+=item 4
+
+The loop will do the right thing for a while, but it will unexpectedly fail. 
+
+=back
+
+=head2 Don't mix filtered & non-filtered data in the same database file. 
+
+This is just a restatement of the previous section. Unless you are
+completely certain you know what you are doing, avoid mixing filtered &
+non-filtered data.
+
+=head1 EXAMPLE
+
+Say you need to interoperate with a legacy C application that stores
+keys as C ints and the values and null terminated UTF-8 strings. Here
+is how you would set that up
+
+    my $db = tie %hash, 'SDBM_File', ...
+
+    $db->Filter_Key_Push('int32') ;
+
+    $db->Filter_Value_Push('utf8');
+    $db->Filter_Value_Push('null');
+
+=head1 SEE ALSO
+
+<DB_File>,  L<GDBM_File>, L<NDBM_File>, L<ODBM_File>, L<SDBM_File>, L<perldbmfilter>
+
+=head1 AUTHOR
+
+Paul Marquess <pmqs@cpan.org>
+
diff --git a/lib/5.24.1/DBM_Filter/compress.pm b/lib/5.24.1/DBM_Filter/compress.pm
new file mode 100644
index 00000000..cb286a73
--- /dev/null
+++ b/lib/5.24.1/DBM_Filter/compress.pm
@@ -0,0 +1,53 @@
+package DBM_Filter::compress ;
+
+use strict;
+use warnings;
+use Carp;
+
+our $VERSION = '0.03';
+
+BEGIN
+{
+    eval { require Compress::Zlib; Compress::Zlib->import() };
+
+    croak "Compress::Zlib module not found.\n"
+        if $@;
+}
+
+
+
+sub Store { $_ = compress($_) }
+sub Fetch { $_ = uncompress($_) }
+
+1;
+
+__END__
+
+=head1 NAME
+
+DBM_Filter::compress - filter for DBM_Filter
+
+=head1 SYNOPSIS
+
+    use SDBM_File; # or DB_File, GDBM_File, NDBM_File, ODBM_File
+    use DBM_Filter ;
+
+    $db = tie %hash, ...
+    $db->Filter_Push('compress');
+
+=head1 DESCRIPTION
+
+This DBM filter will compress all data before it is written to the database
+and uncompressed it on reading.
+
+A fatal error will be thrown if the Compress::Zlib module is not
+available.
+
+=head1 SEE ALSO
+
+L<DBM_Filter>, L<perldbmfilter>, L<Compress::Zlib>
+
+=head1 AUTHOR
+
+Paul Marquess pmqs@cpan.org
+
diff --git a/lib/5.24.1/DBM_Filter/encode.pm b/lib/5.24.1/DBM_Filter/encode.pm
new file mode 100644
index 00000000..907f51d7
--- /dev/null
+++ b/lib/5.24.1/DBM_Filter/encode.pm
@@ -0,0 +1,86 @@
+package DBM_Filter::encode ;
+
+use strict;
+use warnings;
+use Carp;
+
+our $VERSION = '0.03';
+
+BEGIN
+{
+    eval { require Encode; };
+
+    croak "Encode module not found.\n"
+        if $@;
+}
+
+
+sub Filter
+{
+    my $encoding_name = shift || "utf8";
+
+    my $encoding = Encode::find_encoding($encoding_name) ;
+
+    croak "Encoding '$encoding_name' is not available"
+        unless $encoding;
+
+    return {
+        Store   => sub {
+			 $_ = $encoding->encode($_)
+			     if defined $_ ;
+		   },
+        Fetch   => sub {
+			 $_ = $encoding->decode($_)
+			     if defined $_ ;
+			}
+        } ;
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+DBM_Filter::encode - filter for DBM_Filter
+
+=head1 SYNOPSIS
+
+    use SDBM_File; # or DB_File, GDBM_File, NDBM_File, ODBM_File
+    use DBM_Filter ;
+
+    $db = tie %hash, ...
+    $db->Filter_Push('encode' => 'iso-8859-16');
+
+=head1 DESCRIPTION
+
+This DBM filter allows you to choose the character encoding will be
+store in the DBM file. The usage is
+
+    $db->Filter_Push('encode' => ENCODING);
+
+where "ENCODING" must be a valid encoding name that the Encode module
+recognises.
+
+A fatal error will be thrown if:
+
+=over 5
+
+=item 1
+
+The Encode module is not available.
+
+=item 2
+
+The encoding requested is not supported by the Encode module.
+
+=back
+
+=head1 SEE ALSO
+
+L<DBM_Filter>, L<perldbmfilter>, L<Encode>
+
+=head1 AUTHOR
+
+Paul Marquess pmqs@cpan.org
+
diff --git a/lib/5.24.1/DBM_Filter/int32.pm b/lib/5.24.1/DBM_Filter/int32.pm
new file mode 100644
index 00000000..bedcebad
--- /dev/null
+++ b/lib/5.24.1/DBM_Filter/int32.pm
@@ -0,0 +1,50 @@
+package DBM_Filter::int32 ;
+
+use strict;
+use warnings;
+
+our $VERSION = '0.03';
+
+# todo get Filter to figure endian.
+
+sub Store
+{
+    $_ = 0 if ! defined $_ || $_ eq "" ;
+    $_ = pack("i", $_);
+}
+
+sub Fetch
+{
+    no warnings 'uninitialized';
+    $_ = unpack("i", $_);
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+DBM_Filter::int32 - filter for DBM_Filter
+
+=head1 SYNOPSIS
+
+    use SDBM_File; # or DB_File, GDBM_File, NDBM_File, or ODBM_File
+    use DBM_Filter ;
+
+    $db = tie %hash, ...
+    $db->Filter_Push('int32');
+
+=head1 DESCRIPTION
+
+This DBM filter is used when interoperating with a C/C++ application
+that uses a C int as either the key and/or value in the DBM file.
+
+=head1 SEE ALSO
+
+L<DBM_Filter>, L<perldbmfilter>
+
+=head1 AUTHOR
+
+Paul Marquess pmqs@cpan.org
+
diff --git a/lib/5.24.1/DBM_Filter/null.pm b/lib/5.24.1/DBM_Filter/null.pm
new file mode 100644
index 00000000..d06ffac8
--- /dev/null
+++ b/lib/5.24.1/DBM_Filter/null.pm
@@ -0,0 +1,52 @@
+package DBM_Filter::null ;
+
+use strict;
+use warnings;
+
+our $VERSION = '0.03';
+
+sub Store
+{
+    no warnings 'uninitialized';
+    $_ .= "\x00" ;
+}
+
+sub Fetch
+{
+    no warnings 'uninitialized';
+    s/\x00$// ;
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+DBM_Filter::null - filter for DBM_Filter
+
+=head1 SYNOPSIS
+
+    use SDBM_File; # or DB_File, GDBM_File, NDBM_File, or ODBM_File
+    use DBM_Filter ;
+
+    $db = tie %hash, ...
+    $db->Filter_Push('null');
+
+=head1 DESCRIPTION
+
+This filter ensures that all data written to the DBM file is null
+terminated. This is useful when you have a perl script that needs
+to interoperate with a DBM file that a C program also uses. A fairly
+common issue is for the C application to include the terminating null
+in a string when it writes to the DBM file. This filter will ensure that
+all data written to the DBM file can be read by the C application.
+
+
+=head1 SEE ALSO
+
+L<DBM_Filter>, L<perldbmfilter>
+
+=head1 AUTHOR
+
+Paul Marquess pmqs@cpan.org
diff --git a/lib/5.24.1/DBM_Filter/utf8.pm b/lib/5.24.1/DBM_Filter/utf8.pm
new file mode 100644
index 00000000..56efd12f
--- /dev/null
+++ b/lib/5.24.1/DBM_Filter/utf8.pm
@@ -0,0 +1,51 @@
+package DBM_Filter::utf8 ;
+
+use strict;
+use warnings;
+use Carp;
+
+our $VERSION = '0.03';
+
+BEGIN
+{
+    eval { require Encode; };
+
+    croak "Encode module not found.\n"
+        if $@;
+}
+
+sub Store { $_ = Encode::encode_utf8($_) if defined $_ }
+
+sub Fetch { $_ = Encode::decode_utf8($_) if defined $_ }
+
+1;
+
+__END__
+
+=head1 NAME
+
+DBM_Filter::utf8 - filter for DBM_Filter
+
+=head1 SYNOPSIS
+
+    use SDBM_File; # or DB_File, GDBM_File, NDBM_File, or ODBM_File
+    use DBM_Filter;
+
+    $db = tie %hash, ...
+    $db->Filter_Push('utf8');
+
+=head1 DESCRIPTION
+
+This Filter will ensure that all data written to the DBM will be encoded
+in UTF-8.
+
+This module uses the Encode module.
+
+=head1 SEE ALSO
+
+L<DBM_Filter>, L<perldbmfilter>, L<Encode>
+
+=head1 AUTHOR
+
+Paul Marquess pmqs@cpan.org
+
diff --git a/lib/5.24.1/Devel/SelfStubber.pm b/lib/5.24.1/Devel/SelfStubber.pm
new file mode 100644
index 00000000..e47cd3a3
--- /dev/null
+++ b/lib/5.24.1/Devel/SelfStubber.pm
@@ -0,0 +1,152 @@
+package Devel::SelfStubber;
+use File::Spec;
+require SelfLoader;
+@ISA = qw(SelfLoader);
+@EXPORT = 'AUTOLOAD';
+$JUST_STUBS = 1;
+$VERSION = 1.05;
+sub Version {$VERSION}
+
+# Use as
+# perl -e 'use Devel::SelfStubber;Devel::SelfStubber->stub(MODULE_NAME,LIB)'
+# (LIB defaults to '.') e.g.
+# perl -e 'use Devel::SelfStubber;Devel::SelfStubber->stub('Math::BigInt')'
+# would print out stubs needed if you added a __DATA__ before the subs.
+# Setting $Devel::SelfStubber::JUST_STUBS to 0 will print out the whole
+# module with the stubs entered just before the __DATA__
+
+sub _add_to_cache {
+    my($self,$fullname,$pack,$lines, $prototype) = @_;
+    push(@DATA,@{$lines});
+    if($fullname){push(@STUBS,"sub $fullname $prototype;\n")}; # stubs
+    '1;';
+}
+
+sub _package_defined {
+    my($self,$line) = @_;
+    push(@DATA,$line);
+}
+
+sub stub {
+    my($self,$module,$lib) = @_;
+    my($line,$end_data,$fh,$mod_file,$found_selfloader);
+    $lib ||= File::Spec->curdir();
+    ($mod_file = $module) =~ s,::,/,g;
+    $mod_file =~ tr|/|:| if $^O eq 'MacOS';
+
+    $mod_file = File::Spec->catfile($lib, "$mod_file.pm");
+    $fh = "${module}::DATA";
+    my (@BEFORE_DATA, @AFTER_DATA, @AFTER_END);
+    @DATA = @STUBS = ();
+
+    open($fh,$mod_file) || die "Unable to open $mod_file";
+    local $/ = "\n";
+    while(defined ($line = <$fh>) and $line !~ m/^__DATA__/) {
+	push(@BEFORE_DATA,$line);
+	$line =~ /use\s+SelfLoader/ && $found_selfloader++;
+    }
+    (defined ($line) && $line =~ m/^__DATA__/)
+      || die "$mod_file doesn't contain a __DATA__ token";
+    $found_selfloader ||
+	print 'die "\'use SelfLoader;\' statement NOT FOUND!!\n"',"\n";
+    if ($JUST_STUBS) {
+        $self->_load_stubs($module);
+    } else {
+        $self->_load_stubs($module, \@AFTER_END);
+    }
+    if ( fileno($fh) ) {
+	$end_data = 1;
+	while(defined($line = <$fh>)) {
+	    push(@AFTER_DATA,$line);
+	}
+    }
+    close($fh);
+    unless ($JUST_STUBS) {
+	print @BEFORE_DATA;
+    }
+    print @STUBS;
+    unless ($JUST_STUBS) {
+	print "1;\n__DATA__\n",@DATA;
+	if($end_data) { print "__END__ DATA\n",@AFTER_DATA; }
+	if(@AFTER_END) { print "__END__\n",@AFTER_END; }
+    }
+}
+
+1;
+__END__
+
+=head1 NAME
+
+Devel::SelfStubber - generate stubs for a SelfLoading module
+
+=head1 SYNOPSIS
+
+To generate just the stubs:
+
+    use Devel::SelfStubber;
+    Devel::SelfStubber->stub('MODULENAME','MY_LIB_DIR');
+
+or to generate the whole module with stubs inserted correctly
+
+    use Devel::SelfStubber;
+    $Devel::SelfStubber::JUST_STUBS=0;
+    Devel::SelfStubber->stub('MODULENAME','MY_LIB_DIR');
+
+MODULENAME is the Perl module name, e.g. Devel::SelfStubber,
+NOT 'Devel/SelfStubber' or 'Devel/SelfStubber.pm'.
+
+MY_LIB_DIR defaults to '.' if not present.
+
+=head1 DESCRIPTION
+
+Devel::SelfStubber prints the stubs you need to put in the module
+before the __DATA__ token (or you can get it to print the entire
+module with stubs correctly placed). The stubs ensure that if
+a method is called, it will get loaded. They are needed specifically
+for inherited autoloaded methods.
+
+This is best explained using the following example:
+
+Assume four classes, A,B,C & D.
+
+A is the root class, B is a subclass of A, C is a subclass of B,
+and D is another subclass of A.
+
+                        A
+                       / \
+                      B   D
+                     /
+                    C
+
+If D calls an autoloaded method 'foo' which is defined in class A,
+then the method is loaded into class A, then executed. If C then
+calls method 'foo', and that method was reimplemented in class
+B, but set to be autoloaded, then the lookup mechanism never gets to
+the AUTOLOAD mechanism in B because it first finds the method
+already loaded in A, and so erroneously uses that. If the method
+foo had been stubbed in B, then the lookup mechanism would have
+found the stub, and correctly loaded and used the sub from B.
+
+So, for classes and subclasses to have inheritance correctly
+work with autoloading, you need to ensure stubs are loaded.
+
+The SelfLoader can load stubs automatically at module initialization
+with the statement 'SelfLoader-E<gt>load_stubs()';, but you may wish to
+avoid having the stub loading overhead associated with your
+initialization (though note that the SelfLoader::load_stubs method
+will be called sooner or later - at latest when the first sub
+is being autoloaded). In this case, you can put the sub stubs
+before the __DATA__ token. This can be done manually, but this
+module allows automatic generation of the stubs.
+
+By default it just prints the stubs, but you can set the
+global $Devel::SelfStubber::JUST_STUBS to 0 and it will
+print out the entire module with the stubs positioned correctly.
+
+At the very least, this is useful to see what the SelfLoader
+thinks are stubs - in order to ensure future versions of the
+SelfStubber remain in step with the SelfLoader, the
+SelfStubber actually uses the SelfLoader to determine which
+stubs are needed.
+
+=cut
diff --git a/lib/5.24.1/Digest.pm b/lib/5.24.1/Digest.pm
new file mode 100644
index 00000000..16dae9d1
--- /dev/null
+++ b/lib/5.24.1/Digest.pm
@@ -0,0 +1,323 @@
+package Digest;
+
+use strict;
+use vars qw($VERSION %MMAP $AUTOLOAD);
+
+$VERSION = "1.17_01";
+
+%MMAP = (
+  "SHA-1"      => [["Digest::SHA", 1], "Digest::SHA1", ["Digest::SHA2", 1]],
+  "SHA-224"    => [["Digest::SHA", 224]],
+  "SHA-256"    => [["Digest::SHA", 256], ["Digest::SHA2", 256]],
+  "SHA-384"    => [["Digest::SHA", 384], ["Digest::SHA2", 384]],
+  "SHA-512"    => [["Digest::SHA", 512], ["Digest::SHA2", 512]],
+  "HMAC-MD5"   => "Digest::HMAC_MD5",
+  "HMAC-SHA-1" => "Digest::HMAC_SHA1",
+  "CRC-16"     => [["Digest::CRC", type => "crc16"]],
+  "CRC-32"     => [["Digest::CRC", type => "crc32"]],
+  "CRC-CCITT"  => [["Digest::CRC", type => "crcccitt"]],
+  "RIPEMD-160" => "Crypt::RIPEMD160",
+);
+
+sub new
+{
+    shift;  # class ignored
+    my $algorithm = shift;
+    my $impl = $MMAP{$algorithm} || do {
+        $algorithm =~ s/\W+//g;
+        "Digest::$algorithm";
+    };
+    $impl = [$impl] unless ref($impl);
+    local $@;  # don't clobber it for our caller
+    my $err;
+    for  (@$impl) {
+        my $class = $_;
+        my @args;
+        ($class, @args) = @$class if ref($class);
+        no strict 'refs';
+        unless (exists ${"$class\::"}{"VERSION"}) {
+            my $pm_file = $class . ".pm";
+            $pm_file =~ s{::}{/}g;
+            eval {
+                local @INC = @INC;
+                pop @INC if $INC[-1] eq '.';
+                require $pm_file
+	    };
+            if ($@) {
+                $err ||= $@;
+                next;
+            }
+        }
+        return $class->new(@args, @_);
+    }
+    die $err;
+}
+
+sub AUTOLOAD
+{
+    my $class = shift;
+    my $algorithm = substr($AUTOLOAD, rindex($AUTOLOAD, '::')+2);
+    $class->new($algorithm, @_);
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+Digest - Modules that calculate message digests
+
+=head1 SYNOPSIS
+
+  $md5  = Digest->new("MD5");
+  $sha1 = Digest->new("SHA-1");
+  $sha256 = Digest->new("SHA-256");
+  $sha384 = Digest->new("SHA-384");
+  $sha512 = Digest->new("SHA-512");
+
+  $hmac = Digest->HMAC_MD5($key);
+
+=head1 DESCRIPTION
+
+The C<Digest::> modules calculate digests, also called "fingerprints"
+or "hashes", of some data, called a message.  The digest is (usually)
+some small/fixed size string.  The actual size of the digest depend of
+the algorithm used.  The message is simply a sequence of arbitrary
+bytes or bits.
+
+An important property of the digest algorithms is that the digest is
+I<likely> to change if the message change in some way.  Another
+property is that digest functions are one-way functions, that is it
+should be I<hard> to find a message that correspond to some given
+digest.  Algorithms differ in how "likely" and how "hard", as well as
+how efficient they are to compute.
+
+Note that the properties of the algorithms change over time, as the
+algorithms are analyzed and machines grow faster.  If your application
+for instance depends on it being "impossible" to generate the same
+digest for a different message it is wise to make it easy to plug in
+stronger algorithms as the one used grow weaker.  Using the interface
+documented here should make it easy to change algorithms later.
+
+All C<Digest::> modules provide the same programming interface.  A
+functional interface for simple use, as well as an object oriented
+interface that can handle messages of arbitrary length and which can
+read files directly.
+
+The digest can be delivered in three formats:
+
+=over 8
+
+=item I<binary>
+
+This is the most compact form, but it is not well suited for printing
+or embedding in places that can't handle arbitrary data.
+
+=item I<hex>
+
+A twice as long string of lowercase hexadecimal digits.
+
+=item I<base64>
+
+A string of portable printable characters.  This is the base64 encoded
+representation of the digest with any trailing padding removed.  The
+string will be about 30% longer than the binary version.
+L<MIME::Base64> tells you more about this encoding.
+
+=back
+
+
+The functional interface is simply importable functions with the same
+name as the algorithm.  The functions take the message as argument and
+return the digest.  Example:
+
+  use Digest::MD5 qw(md5);
+  $digest = md5($message);
+
+There are also versions of the functions with "_hex" or "_base64"
+appended to the name, which returns the digest in the indicated form.
+
+=head1 OO INTERFACE
+
+The following methods are available for all C<Digest::> modules:
+
+=over 4
+
+=item $ctx = Digest->XXX($arg,...)
+
+=item $ctx = Digest->new(XXX => $arg,...)
+
+=item $ctx = Digest::XXX->new($arg,...)
+
+The constructor returns some object that encapsulate the state of the
+message-digest algorithm.  You can add data to the object and finally
+ask for the digest.  The "XXX" should of course be replaced by the proper
+name of the digest algorithm you want to use.
+
+The two first forms are simply syntactic sugar which automatically
+load the right module on first use.  The second form allow you to use
+algorithm names which contains letters which are not legal perl
+identifiers, e.g. "SHA-1".  If no implementation for the given algorithm
+can be found, then an exception is raised.
+
+If new() is called as an instance method (i.e. $ctx->new) it will just
+reset the state the object to the state of a newly created object.  No
+new object is created in this case, and the return value is the
+reference to the object (i.e. $ctx).
+
+=item $other_ctx = $ctx->clone
+
+The clone method creates a copy of the digest state object and returns
+a reference to the copy.
+
+=item $ctx->reset
+
+This is just an alias for $ctx->new.
+
+=item $ctx->add( $data )
+
+=item $ctx->add( $chunk1, $chunk2, ... )
+
+The string value of the $data provided as argument is appended to the
+message we calculate the digest for.  The return value is the $ctx
+object itself.
+
+If more arguments are provided then they are all appended to the
+message, thus all these lines will have the same effect on the state
+of the $ctx object:
+
+  $ctx->add("a"); $ctx->add("b"); $ctx->add("c");
+  $ctx->add("a")->add("b")->add("c");
+  $ctx->add("a", "b", "c");
+  $ctx->add("abc");
+
+Most algorithms are only defined for strings of bytes and this method
+might therefore croak if the provided arguments contain chars with
+ordinal number above 255.
+
+=item $ctx->addfile( $io_handle )
+
+The $io_handle is read until EOF and the content is appended to the
+message we calculate the digest for.  The return value is the $ctx
+object itself.
+
+The addfile() method will croak() if it fails reading data for some
+reason.  If it croaks it is unpredictable what the state of the $ctx
+object will be in. The addfile() method might have been able to read
+the file partially before it failed.  It is probably wise to discard
+or reset the $ctx object if this occurs.
+
+In most cases you want to make sure that the $io_handle is in
+"binmode" before you pass it as argument to the addfile() method.
+
+=item $ctx->add_bits( $data, $nbits )
+
+=item $ctx->add_bits( $bitstring )
+
+The add_bits() method is an alternative to add() that allow partial
+bytes to be appended to the message.  Most users should just ignore
+this method as partial bytes is very unlikely to be of any practical
+use.
+
+The two argument form of add_bits() will add the first $nbits bits
+from $data.  For the last potentially partial byte only the high order
+C<< $nbits % 8 >> bits are used.  If $nbits is greater than C<<
+length($data) * 8 >>, then this method would do the same as C<<
+$ctx->add($data) >>.
+
+The one argument form of add_bits() takes a $bitstring of "1" and "0"
+chars as argument.  It's a shorthand for C<< $ctx->add_bits(pack("B*",
+$bitstring), length($bitstring)) >>.
+
+The return value is the $ctx object itself.
+
+This example shows two calls that should have the same effect:
+
+   $ctx->add_bits("111100001010");
+   $ctx->add_bits("\xF0\xA0", 12);
+
+Most digest algorithms are byte based and for these it is not possible
+to add bits that are not a multiple of 8, and the add_bits() method
+will croak if you try.
+
+=item $ctx->digest
+
+Return the binary digest for the message.
+
+Note that the C<digest> operation is effectively a destructive,
+read-once operation. Once it has been performed, the $ctx object is
+automatically C<reset> and can be used to calculate another digest
+value.  Call $ctx->clone->digest if you want to calculate the digest
+without resetting the digest state.
+
+=item $ctx->hexdigest
+
+Same as $ctx->digest, but will return the digest in hexadecimal form.
+
+=item $ctx->b64digest
+
+Same as $ctx->digest, but will return the digest as a base64 encoded
+string.
+
+=back
+
+=head1 Digest speed
+
+This table should give some indication on the relative speed of
+different algorithms.  It is sorted by throughput based on a benchmark
+done with of some implementations of this API:
+
+ Algorithm      Size    Implementation                  MB/s
+
+ MD4            128     Digest::MD4 v1.3               165.0
+ MD5            128     Digest::MD5 v2.33               98.8
+ SHA-256        256     Digest::SHA2 v1.1.0             66.7
+ SHA-1          160     Digest::SHA v4.3.1              58.9
+ SHA-1          160     Digest::SHA1 v2.10              48.8
+ SHA-256        256     Digest::SHA v4.3.1              41.3
+ Haval-256      256     Digest::Haval256 v1.0.4         39.8
+ SHA-384        384     Digest::SHA2 v1.1.0             19.6
+ SHA-512        512     Digest::SHA2 v1.1.0             19.3
+ SHA-384        384     Digest::SHA v4.3.1              19.2
+ SHA-512        512     Digest::SHA v4.3.1              19.2
+ Whirlpool      512     Digest::Whirlpool v1.0.2        13.0
+ MD2            128     Digest::MD2 v2.03                9.5
+
+ Adler-32        32     Digest::Adler32 v0.03            1.3
+ CRC-16          16     Digest::CRC v0.05                1.1
+ CRC-32          32     Digest::CRC v0.05                1.1
+ MD5            128     Digest::Perl::MD5 v1.5           1.0
+ CRC-CCITT       16     Digest::CRC v0.05                0.8
+
+These numbers was achieved Apr 2004 with ActivePerl-5.8.3 running
+under Linux on a P4 2.8 GHz CPU.  The last 5 entries differ by being
+pure perl implementations of the algorithms, which explains why they
+are so slow.
+
+=head1 SEE ALSO
+
+L<Digest::Adler32>, L<Digest::CRC>, L<Digest::Haval256>,
+L<Digest::HMAC>, L<Digest::MD2>, L<Digest::MD4>, L<Digest::MD5>,
+L<Digest::SHA>, L<Digest::SHA1>, L<Digest::SHA2>, L<Digest::Whirlpool>
+
+New digest implementations should consider subclassing from L<Digest::base>.
+
+L<MIME::Base64>
+
+http://en.wikipedia.org/wiki/Cryptographic_hash_function
+
+=head1 AUTHOR
+
+Gisle Aas <gisle@aas.no>
+
+The C<Digest::> interface is based on the interface originally
+developed by Neil Winton for his C<MD5> module.
+
+This library is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+    Copyright 1998-2006 Gisle Aas.
+    Copyright 1995,1996 Neil Winton.
+
+=cut
diff --git a/lib/5.24.1/Digest/base.pm b/lib/5.24.1/Digest/base.pm
new file mode 100644
index 00000000..b2844ba3
--- /dev/null
+++ b/lib/5.24.1/Digest/base.pm
@@ -0,0 +1,100 @@
+package Digest::base;
+
+use strict;
+use vars qw($VERSION);
+$VERSION = "1.16";
+
+# subclass is supposed to implement at least these
+sub new;
+sub clone;
+sub add;
+sub digest;
+
+sub reset {
+    my $self = shift;
+    $self->new(@_);  # ugly
+}
+
+sub addfile {
+    my ($self, $handle) = @_;
+
+    my $n;
+    my $buf = "";
+
+    while (($n = read($handle, $buf, 4*1024))) {
+        $self->add($buf);
+    }
+    unless (defined $n) {
+	require Carp;
+	Carp::croak("Read failed: $!");
+    }
+
+    $self;
+}
+
+sub add_bits {
+    my $self = shift;
+    my $bits;
+    my $nbits;
+    if (@_ == 1) {
+	my $arg = shift;
+	$bits = pack("B*", $arg);
+	$nbits = length($arg);
+    }
+    else {
+	($bits, $nbits) = @_;
+    }
+    if (($nbits % 8) != 0) {
+	require Carp;
+	Carp::croak("Number of bits must be multiple of 8 for this algorithm");
+    }
+    return $self->add(substr($bits, 0, $nbits/8));
+}
+
+sub hexdigest {
+    my $self = shift;
+    return unpack("H*", $self->digest(@_));
+}
+
+sub b64digest {
+    my $self = shift;
+    require MIME::Base64;
+    my $b64 = MIME::Base64::encode($self->digest(@_), "");
+    $b64 =~ s/=+$//;
+    return $b64;
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+Digest::base - Digest base class
+
+=head1 SYNOPSIS
+
+  package Digest::Foo;
+  use base 'Digest::base';
+
+=head1 DESCRIPTION
+
+The C<Digest::base> class provide implementations of the methods
+C<addfile> and C<add_bits> in terms of C<add>, and of the methods
+C<hexdigest> and C<b64digest> in terms of C<digest>.
+
+Digest implementations might want to inherit from this class to get
+this implementations of the alternative I<add> and I<digest> methods.
+A minimal subclass needs to implement the following methods by itself:
+
+    new
+    clone
+    add
+    digest
+
+The arguments and expected behaviour of these methods are described in
+L<Digest>.
+
+=head1 SEE ALSO
+
+L<Digest>
diff --git a/lib/5.24.1/Digest/file.pm b/lib/5.24.1/Digest/file.pm
new file mode 100644
index 00000000..3b86e635
--- /dev/null
+++ b/lib/5.24.1/Digest/file.pm
@@ -0,0 +1,85 @@
+package Digest::file;
+
+use strict;
+
+use Exporter ();
+use Carp qw(croak);
+use Digest ();
+
+use vars qw($VERSION @ISA @EXPORT_OK);
+
+$VERSION = "1.16";
+@ISA = qw(Exporter);
+@EXPORT_OK = qw(digest_file_ctx digest_file digest_file_hex digest_file_base64);
+
+sub digest_file_ctx {
+    my $file = shift;
+    croak("No digest algorithm specified") unless @_;
+    local *F;
+    open(F, "<", $file) || croak("Can't open '$file': $!");
+    binmode(F);
+    my $ctx = Digest->new(@_);
+    $ctx->addfile(*F);
+    close(F);
+    return $ctx;
+}
+
+sub digest_file {
+    digest_file_ctx(@_)->digest;
+}
+
+sub digest_file_hex {
+    digest_file_ctx(@_)->hexdigest;
+}
+
+sub digest_file_base64 {
+    digest_file_ctx(@_)->b64digest;
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+Digest::file - Calculate digests of files
+
+=head1 SYNOPSIS
+
+  # Poor mans "md5sum" command
+  use Digest::file qw(digest_file_hex);
+  for (@ARGV) {
+      print digest_file_hex($_, "MD5"), "  $_\n";
+  }
+
+=head1 DESCRIPTION
+
+This module provide 3 convenience functions to calculate the digest
+of files.  The following functions are provided:
+
+=over
+
+=item digest_file( $file, $algorithm, [$arg,...] )
+
+This function will calculate and return the binary digest of the bytes
+of the given file.  The function will croak if it fails to open or
+read the file.
+
+The $algorithm is a string like "MD2", "MD5", "SHA-1", "SHA-512".
+Additional arguments are passed to the constructor for the
+implementation of the given algorithm.
+
+=item digest_file_hex( $file, $algorithm, [$arg,...] )
+
+Same as digest_file(), but return the digest in hex form.
+
+=item digest_file_base64( $file, $algorithm, [$arg,...] )
+
+Same as digest_file(), but return the digest as a base64 encoded
+string.
+
+=back
+
+=head1 SEE ALSO
+
+L<Digest>
diff --git a/lib/5.24.1/DirHandle.pm b/lib/5.24.1/DirHandle.pm
new file mode 100644
index 00000000..7493c00a
--- /dev/null
+++ b/lib/5.24.1/DirHandle.pm
@@ -0,0 +1,78 @@
+package DirHandle;
+
+our $VERSION = '1.04';
+
+=head1 NAME 
+
+DirHandle - supply object methods for directory handles
+
+=head1 SYNOPSIS
+
+    use DirHandle;
+    $d = DirHandle->new(".");
+    if (defined $d) {
+        while (defined($_ = $d->read)) { something($_); }
+        $d->rewind;
+        while (defined($_ = $d->read)) { something_else($_); }
+        undef $d;
+    }
+
+=head1 DESCRIPTION
+
+The C<DirHandle> method provide an alternative interface to the
+opendir(), closedir(), readdir(), and rewinddir() functions.
+
+The only objective benefit to using C<DirHandle> is that it avoids
+namespace pollution by creating globs to hold directory handles.
+
+=cut
+
+require 5.000;
+use Carp;
+use Symbol;
+
+sub new {
+    @_ >= 1 && @_ <= 2 or croak 'usage: DirHandle->new( [DIRNAME] )';
+    my $class = shift;
+    my $dh = gensym;
+    if (@_) {
+	DirHandle::open($dh, $_[0])
+	    or return undef;
+    }
+    bless $dh, $class;
+}
+
+sub DESTROY {
+    my ($dh) = @_;
+    # Don't warn about already being closed as it may have been closed 
+    # correctly, or maybe never opened at all.
+    local($., $@, $!, $^E, $?);
+    no warnings 'io';
+    closedir($dh);
+}
+
+sub open {
+    @_ == 2 or croak 'usage: $dh->open(DIRNAME)';
+    my ($dh, $dirname) = @_;
+    opendir($dh, $dirname);
+}
+
+sub close {
+    @_ == 1 or croak 'usage: $dh->close()';
+    my ($dh) = @_;
+    closedir($dh);
+}
+
+sub read {
+    @_ == 1 or croak 'usage: $dh->read()';
+    my ($dh) = @_;
+    readdir($dh);
+}
+
+sub rewind {
+    @_ == 1 or croak 'usage: $dh->rewind()';
+    my ($dh) = @_;
+    rewinddir($dh);
+}
+
+1;
diff --git a/lib/5.24.1/Dumpvalue.pm b/lib/5.24.1/Dumpvalue.pm
new file mode 100644
index 00000000..eef9b271
--- /dev/null
+++ b/lib/5.24.1/Dumpvalue.pm
@@ -0,0 +1,672 @@
+use 5.006_001;			# for (defined ref) and $#$v and our
+package Dumpvalue;
+use strict;
+our $VERSION = '1.18';
+our(%address, $stab, @stab, %stab, %subs);
+
+sub ASCII { return ord('A') == 65; }
+
+# This module will give incorrect results for some inputs on EBCDIC platforms
+# before v5.8
+*to_native = ($] lt "5.008")
+             ? sub { return shift }
+             : sub { return utf8::unicode_to_native(shift) };
+
+my $APC = chr to_native(0x9F);
+my $backslash_c_question = (ASCII) ? '\177' : $APC;
+
+# documentation nits, handle complex data structures better by chromatic
+# translate control chars to ^X - Randal Schwartz
+# Modifications to print types by Peter Gordon v1.0
+
+# Ilya Zakharevich -- patches after 5.001 (and some before ;-)
+
+# Won't dump symbol tables and contents of debugged files by default
+
+# (IZ) changes for objectification:
+#   c) quote() renamed to method set_quote();
+#   d) unctrlSet() renamed to method set_unctrl();
+#   f) Compiles with 'use strict', but in two places no strict refs is needed:
+#      maybe more problems are waiting...
+
+my %defaults = (
+		globPrint	      => 0,
+		printUndef	      => 1,
+		tick		      => "auto",
+		unctrl		      => 'quote',
+		subdump		      => 1,
+		dumpReused	      => 0,
+		bareStringify	      => 1,
+		hashDepth	      => '',
+		arrayDepth	      => '',
+		dumpDBFiles	      => '',
+		dumpPackages	      => '',
+		quoteHighBit	      => '',
+		usageOnly	      => '',
+		compactDump	      => '',
+		veryCompact	      => '',
+		stopDbSignal	      => '',
+	       );
+
+sub new {
+  my $class = shift;
+  my %opt = (%defaults, @_);
+  bless \%opt, $class;
+}
+
+sub set {
+  my $self = shift;
+  my %opt = @_;
+  @$self{keys %opt} = values %opt;
+}
+
+sub get {
+  my $self = shift;
+  wantarray ? @$self{@_} : $$self{pop @_};
+}
+
+sub dumpValue {
+  my $self = shift;
+  die "usage: \$dumper->dumpValue(value)" unless @_ == 1;
+  local %address;
+  local $^W=0;
+  (print "undef\n"), return unless defined $_[0];
+  (print $self->stringify($_[0]), "\n"), return unless ref $_[0];
+  $self->unwrap($_[0],0);
+}
+
+sub dumpValues {
+  my $self = shift;
+  local %address;
+  local $^W=0;
+  (print "undef\n"), return unless defined $_[0];
+  $self->unwrap(\@_,0);
+}
+
+# This one is good for variable names:
+
+sub unctrl {
+  local($_) = @_;
+
+  return \$_ if ref \$_ eq "GLOB";
+  s/([\000-\037])/'^' . chr(to_native(ord($1)^64))/eg;
+  s/ $backslash_c_question /^?/xg;
+  $_;
+}
+
+sub stringify {
+  my $self = shift;
+  local $_ = shift;
+  my $noticks = shift;
+  my $tick = $self->{tick};
+
+  return 'undef' unless defined $_ or not $self->{printUndef};
+  return $_ . "" if ref \$_ eq 'GLOB';
+  { no strict 'refs';
+    $_ = &{'overload::StrVal'}($_)
+      if $self->{bareStringify} and ref $_
+	and %overload:: and defined &{'overload::StrVal'};
+  }
+  if ($tick eq 'auto') {
+    if (/[^[:^cntrl:]\n]/) {   # All ASCII controls but \n get '"'
+      $tick = '"';
+    } else {
+      $tick = "'";
+    }
+  }
+  if ($tick eq "'") {
+    s/([\'\\])/\\$1/g;
+  } elsif ($self->{unctrl} eq 'unctrl') {
+    s/([\"\\])/\\$1/g ;
+    $_ = &unctrl($_);
+    s/([[:^ascii:]])/'\\0x'.sprintf('%2X',ord($1))/eg
+      if $self->{quoteHighBit};
+  } elsif ($self->{unctrl} eq 'quote') {
+    s/([\"\\\$\@])/\\$1/g if $tick eq '"';
+    s/\e/\\e/g;
+    s/([\000-\037$backslash_c_question])/'\\c'._escaped_ord($1)/eg;
+  }
+  s/([[:^ascii:]])/'\\'.sprintf('%3o',ord($1))/eg if $self->{quoteHighBit};
+  ($noticks || /^\d+(\.\d*)?\Z/)
+    ? $_
+      : $tick . $_ . $tick;
+}
+
+# Ensure a resulting \ is escaped to be \\
+sub _escaped_ord {
+    my $chr = shift;
+    if ($chr eq $backslash_c_question) {
+        $chr = '?';
+    }
+    else {
+        $chr = chr(to_native(ord($chr)^64));
+        $chr =~ s{\\}{\\\\}g;
+    }
+    return $chr;
+}
+
+sub DumpElem {
+  my ($self, $v) = (shift, shift);
+  my $short = $self->stringify($v, ref $v);
+  my $shortmore = '';
+  if ($self->{veryCompact} && ref $v
+      && (ref $v eq 'ARRAY' and !grep(ref $_, @$v) )) {
+    my $depth = $#$v;
+    ($shortmore, $depth) = (' ...', $self->{arrayDepth} - 1)
+      if $self->{arrayDepth} and $depth >= $self->{arrayDepth};
+    my @a = map $self->stringify($_), @$v[0..$depth];
+    print "0..$#{$v}  @a$shortmore\n";
+  } elsif ($self->{veryCompact} && ref $v
+	   && (ref $v eq 'HASH') and !grep(ref $_, values %$v)) {
+    my @a = sort keys %$v;
+    my $depth = $#a;
+    ($shortmore, $depth) = (' ...', $self->{hashDepth} - 1)
+      if $self->{hashDepth} and $depth >= $self->{hashDepth};
+    my @b = map {$self->stringify($_) . " => " . $self->stringify($$v{$_})}
+      @a[0..$depth];
+    local $" = ', ';
+    print "@b$shortmore\n";
+  } else {
+    print "$short\n";
+    $self->unwrap($v,shift);
+  }
+}
+
+sub unwrap {
+  my $self = shift;
+  return if $DB::signal and $self->{stopDbSignal};
+  my ($v) = shift ;
+  my ($s) = shift ;		# extra no of spaces
+  my $sp;
+  my (%v,@v,$address,$short,$fileno);
+
+  $sp = " " x $s ;
+  $s += 3 ;
+
+  # Check for reused addresses
+  if (ref $v) {
+    my $val = $v;
+    { no strict 'refs';
+      $val = &{'overload::StrVal'}($v)
+	if %overload:: and defined &{'overload::StrVal'};
+    }
+    ($address) = $val =~ /(0x[0-9a-f]+)\)$/ ;
+    if (!$self->{dumpReused} && defined $address) {
+      $address{$address}++ ;
+      if ( $address{$address} > 1 ) {
+	print "${sp}-> REUSED_ADDRESS\n" ;
+	return ;
+      }
+    }
+  } elsif (ref \$v eq 'GLOB') {
+    $address = "$v" . "";	# To avoid a bug with globs
+    $address{$address}++ ;
+    if ( $address{$address} > 1 ) {
+      print "${sp}*DUMPED_GLOB*\n" ;
+      return ;
+    }
+  }
+
+  if (ref $v eq 'Regexp') {
+    my $re = "$v";
+    $re =~ s,/,\\/,g;
+    print "$sp-> qr/$re/\n";
+    return;
+  }
+
+  if ( UNIVERSAL::isa($v, 'HASH') ) {
+    my @sortKeys = sort keys(%$v) ;
+    my $more;
+    my $tHashDepth = $#sortKeys ;
+    $tHashDepth = $#sortKeys < $self->{hashDepth}-1 ? $#sortKeys : $self->{hashDepth}-1
+      unless $self->{hashDepth} eq '' ;
+    $more = "....\n" if $tHashDepth < $#sortKeys ;
+    my $shortmore = "";
+    $shortmore = ", ..." if $tHashDepth < $#sortKeys ;
+    $#sortKeys = $tHashDepth ;
+    if ($self->{compactDump} && !grep(ref $_, values %{$v})) {
+      $short = $sp;
+      my @keys;
+      for (@sortKeys) {
+	push @keys, $self->stringify($_) . " => " . $self->stringify($v->{$_});
+      }
+      $short .= join ', ', @keys;
+      $short .= $shortmore;
+      (print "$short\n"), return if length $short <= $self->{compactDump};
+    }
+    for my $key (@sortKeys) {
+      return if $DB::signal and $self->{stopDbSignal};
+      my $value = $ {$v}{$key} ;
+      print $sp, $self->stringify($key), " => ";
+      $self->DumpElem($value, $s);
+    }
+    print "$sp  empty hash\n" unless @sortKeys;
+    print "$sp$more" if defined $more ;
+  } elsif ( UNIVERSAL::isa($v, 'ARRAY') ) {
+    my $tArrayDepth = $#{$v} ;
+    my $more ;
+    $tArrayDepth = $#$v < $self->{arrayDepth}-1 ? $#$v : $self->{arrayDepth}-1
+      unless  $self->{arrayDepth} eq '' ;
+    $more = "....\n" if $tArrayDepth < $#{$v} ;
+    my $shortmore = "";
+    $shortmore = " ..." if $tArrayDepth < $#{$v} ;
+    if ($self->{compactDump} && !grep(ref $_, @{$v})) {
+      if ($#$v >= 0) {
+	$short = $sp . "0..$#{$v}  " .
+	  join(" ", 
+	       map {exists $v->[$_] ? $self->stringify($v->[$_]) : "empty"} (0..$tArrayDepth)
+	      ) . "$shortmore";
+      } else {
+	$short = $sp . "empty array";
+      }
+      (print "$short\n"), return if length $short <= $self->{compactDump};
+    }
+    for my $num (0 .. $tArrayDepth) {
+      return if $DB::signal and $self->{stopDbSignal};
+      print "$sp$num  ";
+      if (exists $v->[$num]) {
+        $self->DumpElem($v->[$num], $s);
+      } else {
+	print "empty slot\n";
+      }
+    }
+    print "$sp  empty array\n" unless @$v;
+    print "$sp$more" if defined $more ;
+  } elsif (  UNIVERSAL::isa($v, 'SCALAR') or ref $v eq 'REF' ) {
+    print "$sp-> ";
+    $self->DumpElem($$v, $s);
+  } elsif ( UNIVERSAL::isa($v, 'CODE') ) {
+    print "$sp-> ";
+    $self->dumpsub(0, $v);
+  } elsif ( UNIVERSAL::isa($v, 'GLOB') ) {
+    print "$sp-> ",$self->stringify($$v,1),"\n";
+    if ($self->{globPrint}) {
+      $s += 3;
+      $self->dumpglob('', $s, "{$$v}", $$v, 1);
+    } elsif (defined ($fileno = fileno($v))) {
+      print( (' ' x ($s+3)) .  "FileHandle({$$v}) => fileno($fileno)\n" );
+    }
+  } elsif (ref \$v eq 'GLOB') {
+    if ($self->{globPrint}) {
+      $self->dumpglob('', $s, "{$v}", $v, 1);
+    } elsif (defined ($fileno = fileno(\$v))) {
+      print( (' ' x $s) .  "FileHandle({$v}) => fileno($fileno)\n" );
+    }
+  }
+}
+
+sub matchvar {
+  $_[0] eq $_[1] or
+    ($_[1] =~ /^([!~])(.)([\x00-\xff]*)/) and
+      ($1 eq '!') ^ (eval {($_[2] . "::" . $_[0]) =~ /$2$3/});
+}
+
+sub compactDump {
+  my $self = shift;
+  $self->{compactDump} = shift if @_;
+  $self->{compactDump} = 6*80-1 
+    if $self->{compactDump} and $self->{compactDump} < 2;
+  $self->{compactDump};
+}
+
+sub veryCompact {
+  my $self = shift;
+  $self->{veryCompact} = shift if @_;
+  $self->compactDump(1) if !$self->{compactDump} and $self->{veryCompact};
+  $self->{veryCompact};
+}
+
+sub set_unctrl {
+  my $self = shift;
+  if (@_) {
+    my $in = shift;
+    if ($in eq 'unctrl' or $in eq 'quote') {
+      $self->{unctrl} = $in;
+    } else {
+      print "Unknown value for 'unctrl'.\n";
+    }
+  }
+  $self->{unctrl};
+}
+
+sub set_quote {
+  my $self = shift;
+  if (@_ and $_[0] eq '"') {
+    $self->{tick} = '"';
+    $self->{unctrl} = 'quote';
+  } elsif (@_ and $_[0] eq 'auto') {
+    $self->{tick} = 'auto';
+    $self->{unctrl} = 'quote';
+  } elsif (@_) {		# Need to set
+    $self->{tick} = "'";
+    $self->{unctrl} = 'unctrl';
+  }
+  $self->{tick};
+}
+
+sub dumpglob {
+  my $self = shift;
+  return if $DB::signal and $self->{stopDbSignal};
+  my ($package, $off, $key, $val, $all) = @_;
+  local(*stab) = $val;
+  my $fileno;
+  if (($key !~ /^_</ or $self->{dumpDBFiles}) and defined $stab) {
+    print( (' ' x $off) . "\$", &unctrl($key), " = " );
+    $self->DumpElem($stab, 3+$off);
+  }
+  if (($key !~ /^_</ or $self->{dumpDBFiles}) and @stab) {
+    print( (' ' x $off) . "\@$key = (\n" );
+    $self->unwrap(\@stab,3+$off) ;
+    print( (' ' x $off) .  ")\n" );
+  }
+  if ($key ne "main::" && $key ne "DB::" && %stab
+      && ($self->{dumpPackages} or $key !~ /::$/)
+      && ($key !~ /^_</ or $self->{dumpDBFiles})
+      && !($package eq "Dumpvalue" and $key eq "stab")) {
+    print( (' ' x $off) . "\%$key = (\n" );
+    $self->unwrap(\%stab,3+$off) ;
+    print( (' ' x $off) .  ")\n" );
+  }
+  if (defined ($fileno = fileno(*stab))) {
+    print( (' ' x $off) .  "FileHandle($key) => fileno($fileno)\n" );
+  }
+  if ($all) {
+    if (defined &stab) {
+      $self->dumpsub($off, $key);
+    }
+  }
+}
+
+sub CvGV_name {
+  my $self = shift;
+  my $in = shift;
+  return if $self->{skipCvGV};	# Backdoor to avoid problems if XS broken...
+  $in = \&$in;			# Hard reference...
+  eval {require Devel::Peek; 1} or return;
+  my $gv = Devel::Peek::CvGV($in) or return;
+  *$gv{PACKAGE} . '::' . *$gv{NAME};
+}
+
+sub dumpsub {
+  my $self = shift;
+  my ($off,$sub) = @_;
+  my $ini = $sub;
+  my $s;
+  $sub = $1 if $sub =~ /^\{\*(.*)\}$/;
+  my $subref = defined $1 ? \&$sub : \&$ini;
+  my $place = $DB::sub{$sub} || (($s = $subs{"$subref"}) && $DB::sub{$s})
+    || (($s = $self->CvGV_name($subref)) && $DB::sub{$s})
+    || ($self->{subdump} && ($s = $self->findsubs("$subref"))
+	&& $DB::sub{$s});
+  $s = $sub unless defined $s;
+  $place = '???' unless defined $place;
+  print( (' ' x $off) .  "&$s in $place\n" );
+}
+
+sub findsubs {
+  my $self = shift;
+  return undef unless %DB::sub;
+  my ($addr, $name, $loc);
+  while (($name, $loc) = each %DB::sub) {
+    $addr = \&$name;
+    $subs{"$addr"} = $name;
+  }
+  $self->{subdump} = 0;
+  $subs{ shift() };
+}
+
+sub dumpvars {
+  my $self = shift;
+  my ($package,@vars) = @_;
+  local(%address,$^W);
+  my ($key,$val);
+  $package .= "::" unless $package =~ /::$/;
+  *stab = *main::;
+
+  while ($package =~ /(\w+?::)/g) {
+    *stab = $ {stab}{$1};
+  }
+  $self->{TotalStrings} = 0;
+  $self->{Strings} = 0;
+  $self->{CompleteTotal} = 0;
+  while (($key,$val) = each(%stab)) {
+    return if $DB::signal and $self->{stopDbSignal};
+    next if @vars && !grep( matchvar($key, $_), @vars );
+    if ($self->{usageOnly}) {
+      $self->globUsage(\$val, $key)
+	if ($package ne 'Dumpvalue' or $key ne 'stab')
+	   and ref(\$val) eq 'GLOB';
+    } else {
+      $self->dumpglob($package, 0,$key, $val);
+    }
+  }
+  if ($self->{usageOnly}) {
+    print <<EOP;
+String space: $self->{TotalStrings} bytes in $self->{Strings} strings.
+EOP
+    $self->{CompleteTotal} += $self->{TotalStrings};
+    print <<EOP;
+Grand total = $self->{CompleteTotal} bytes (1 level deep) + overhead.
+EOP
+  }
+}
+
+sub scalarUsage {
+  my $self = shift;
+  my $size;
+  if (UNIVERSAL::isa($_[0], 'ARRAY')) {
+	$size = $self->arrayUsage($_[0]);
+  } elsif (UNIVERSAL::isa($_[0], 'HASH')) {
+	$size = $self->hashUsage($_[0]);
+  } elsif (!ref($_[0])) {
+	$size = length($_[0]);
+  }
+  $self->{TotalStrings} += $size;
+  $self->{Strings}++;
+  $size;
+}
+
+sub arrayUsage {		# array ref, name
+  my $self = shift;
+  my $size = 0;
+  map {$size += $self->scalarUsage($_)} @{$_[0]};
+  my $len = @{$_[0]};
+  print "\@$_[1] = $len item", ($len > 1 ? "s" : ""), " (data: $size bytes)\n"
+      if defined $_[1];
+  $self->{CompleteTotal} +=  $size;
+  $size;
+}
+
+sub hashUsage {			# hash ref, name
+  my $self = shift;
+  my @keys = keys %{$_[0]};
+  my @values = values %{$_[0]};
+  my $keys = $self->arrayUsage(\@keys);
+  my $values = $self->arrayUsage(\@values);
+  my $len = @keys;
+  my $total = $keys + $values;
+  print "\%$_[1] = $len item", ($len > 1 ? "s" : ""),
+    " (keys: $keys; values: $values; total: $total bytes)\n"
+      if defined $_[1];
+  $total;
+}
+
+sub globUsage {			# glob ref, name
+  my $self = shift;
+  local *stab = *{$_[0]};
+  my $total = 0;
+  $total += $self->scalarUsage($stab) if defined $stab;
+  $total += $self->arrayUsage(\@stab, $_[1]) if @stab;
+  $total += $self->hashUsage(\%stab, $_[1]) 
+    if %stab and $_[1] ne "main::" and $_[1] ne "DB::";	
+  #and !($package eq "Dumpvalue" and $key eq "stab"));
+  $total;
+}
+
+1;
+
+=head1 NAME
+
+Dumpvalue - provides screen dump of Perl data.
+
+=head1 SYNOPSIS
+
+  use Dumpvalue;
+  my $dumper = Dumpvalue->new;
+  $dumper->set(globPrint => 1);
+  $dumper->dumpValue(\*::);
+  $dumper->dumpvars('main');
+  my $dump = $dumper->stringify($some_value);
+
+=head1 DESCRIPTION
+
+=head2 Creation
+
+A new dumper is created by a call
+
+  $d = Dumpvalue->new(option1 => value1, option2 => value2)
+
+Recognized options:
+
+=over 4
+
+=item C<arrayDepth>, C<hashDepth>
+
+Print only first N elements of arrays and hashes.  If false, prints all the
+elements.
+
+=item C<compactDump>, C<veryCompact>
+
+Change style of array and hash dump.  If true, short array
+may be printed on one line.
+
+=item C<globPrint>
+
+Whether to print contents of globs.
+
+=item C<dumpDBFiles>
+
+Dump arrays holding contents of debugged files.
+
+=item C<dumpPackages>
+
+Dump symbol tables of packages.
+
+=item C<dumpReused>
+
+Dump contents of "reused" addresses.
+
+=item C<tick>, C<quoteHighBit>, C<printUndef>
+
+Change style of string dump.  Default value of C<tick> is C<auto>, one
+can enable either double-quotish dump, or single-quotish by setting it
+to C<"> or C<'>.  By default, characters with high bit set are printed
+I<as is>.  If C<quoteHighBit> is set, they will be quoted.
+
+=item C<usageOnly>
+
+rudimentary per-package memory usage dump.  If set,
+C<dumpvars> calculates total size of strings in variables in the package.
+
+=item unctrl
+
+Changes the style of printout of strings.  Possible values are
+C<unctrl> and C<quote>.
+
+=item subdump
+
+Whether to try to find the subroutine name given the reference.
+
+=item bareStringify
+
+Whether to write the non-overloaded form of the stringify-overloaded objects.
+
+=item quoteHighBit
+
+Whether to print chars with high bit set in binary or "as is".
+
+=item stopDbSignal
+
+Whether to abort printing if debugger signal flag is raised.
+
+=back
+
+Later in the life of the object the methods may be queries with get()
+method and set() method (which accept multiple arguments).
+
+=head2 Methods
+
+=over 4
+
+=item dumpValue
+
+  $dumper->dumpValue($value);
+  $dumper->dumpValue([$value1, $value2]);
+
+Prints a dump to the currently selected filehandle.
+
+=item dumpValues
+
+  $dumper->dumpValues($value1, $value2);
+
+Same as C<< $dumper->dumpValue([$value1, $value2]); >>.
+
+=item stringify
+
+  my $dump = $dumper->stringify($value [,$noticks] );
+
+Returns the dump of a single scalar without printing. If the second
+argument is true, the return value does not contain enclosing ticks.
+Does not handle data structures.
+
+=item dumpvars
+
+  $dumper->dumpvars('my_package');
+  $dumper->dumpvars('my_package', 'foo', '~bar$', '!......');
+
+The optional arguments are considered as literal strings unless they
+start with C<~> or C<!>, in which case they are interpreted as regular
+expressions (possibly negated).
+
+The second example prints entries with names C<foo>, and also entries
+with names which ends on C<bar>, or are shorter than 5 chars.
+
+=item set_quote
+
+  $d->set_quote('"');
+
+Sets C<tick> and C<unctrl> options to suitable values for printout with the
+given quote char.  Possible values are C<auto>, C<'> and C<">.
+
+=item set_unctrl
+
+  $d->set_unctrl('unctrl');
+
+Sets C<unctrl> option with checking for an invalid argument.
+Possible values are C<unctrl> and C<quote>.
+
+=item compactDump
+
+  $d->compactDump(1);
+
+Sets C<compactDump> option.  If the value is 1, sets to a reasonable
+big number.
+
+=item veryCompact
+
+  $d->veryCompact(1);
+
+Sets C<compactDump> and C<veryCompact> options simultaneously.
+
+=item set
+
+  $d->set(option1 => value1, option2 => value2);
+
+=item get
+
+  @values = $d->get('option1', 'option2');
+
+=back
+
+=cut
+
diff --git a/lib/5.24.1/Encode/Changes.e2x b/lib/5.24.1/Encode/Changes.e2x
new file mode 100644
index 00000000..5c67c55c
--- /dev/null
+++ b/lib/5.24.1/Encode/Changes.e2x
@@ -0,0 +1,7 @@
+#
+# $Id: Changes.e2x,v 2.0 2004/05/16 20:55:15 dankogai Exp $
+# Revision history for Perl extension Encode::$_Name_.
+#
+
+0.01  $_Now_
+  Autogenerated by enc2xs version $_Version_.
diff --git a/lib/5.24.1/Encode/ConfigLocal_PM.e2x b/lib/5.24.1/Encode/ConfigLocal_PM.e2x
new file mode 100644
index 00000000..e203dfde
--- /dev/null
+++ b/lib/5.24.1/Encode/ConfigLocal_PM.e2x
@@ -0,0 +1,13 @@
+#
+# Local demand-load module list
+#
+# You should not edit this file by hand!  use "enc2xs -C"
+# 
+package Encode::ConfigLocal;
+our $VERSION = $_LocalVer_;
+
+use strict;
+
+$_ModLines_
+
+1;
diff --git a/lib/5.24.1/Encode/Makefile_PL.e2x b/lib/5.24.1/Encode/Makefile_PL.e2x
new file mode 100644
index 00000000..c17a5096
--- /dev/null
+++ b/lib/5.24.1/Encode/Makefile_PL.e2x
@@ -0,0 +1,190 @@
+#
+# This file is auto-generated by:
+# enc2xs version $_Version_
+# $_Now_
+#
+use 5.7.2;
+use strict;
+use ExtUtils::MakeMaker;
+use Config;
+
+# Please edit the following to the taste!
+my $name = '$_Name_';
+my %tables = (
+         $_Name__t   => [ $_TableFiles_ ],
+         );
+
+#### DO NOT EDIT BEYOND THIS POINT!
+require File::Spec;
+my ($enc2xs, $encode_h) = ();
+my @path_ext = ('');
+@path_ext = split(';', $ENV{PATHEXT}) if $^O eq 'MSWin32';
+PATHLOOP:
+for my $d (@Config{qw/bin sitebin vendorbin/}, 
+       (split /$Config{path_sep}/o, $ENV{PATH})){
+    for my $f (qw/enc2xs enc2xs5.7.3/){
+        my $path = File::Spec->catfile($d, $f);
+        for my $ext (@path_ext) {
+            my $bin = "$path$ext";
+            -r "$bin" and $enc2xs = $bin and last PATHLOOP;
+        }
+    }
+}
+$enc2xs or die "enc2xs not found!";
+print "enc2xs is $enc2xs\n";
+my %encode_h = ();
+for my $d (@INC){
+    my $dir = File::Spec->catfile($d, "Encode");
+    my $file =  File::Spec->catfile($dir, "encode.h");
+    -f $file and $encode_h{$dir} = -M $file;
+}
+%encode_h or die "encode.h not found!";
+# find the latest one
+($encode_h) = sort {$encode_h{$b} <=> $encode_h{$a}} keys %encode_h;
+print "encode.h is at $encode_h\n";
+
+WriteMakefile(
+              INC		=> "-I$encode_h",
+#### END_OF_HEADER -- DO NOT EDIT THIS LINE BY HAND! ####
+          NAME		=> 'Encode::'.$name,
+          VERSION_FROM	=> "$name.pm",
+          OBJECT		=> '$(O_FILES)',
+          'dist'		=> {
+          COMPRESS	=> 'gzip -9f',
+          SUFFIX	=> 'gz',
+          DIST_DEFAULT => 'all tardist',
+          },
+          MAN3PODS	=> {},
+          PREREQ_PM => {
+                'Encode'     => "1.41",
+                           },
+          # OS 390 winges about line numbers > 64K ???
+          XSOPT => '-nolinenumbers',
+          );
+
+package MY;
+
+sub post_initialize
+{
+    my ($self) = @_;
+    my %o;
+    my $x = $self->{'OBJ_EXT'};
+    # Add the table O_FILES
+    foreach my $e (keys %tables)
+    {
+    $o{$e.$x} = 1;
+    }
+    $o{"$name$x"} = 1;
+    $self->{'O_FILES'} = [sort keys %o];
+    my @files = ("$name.xs");
+    $self->{'C'} = ["$name.c"];
+    # The next two lines to make MacPerl Happy -- dankogai via pudge
+    $self->{SOURCE} .= " $name.c"
+        if $^O eq 'MacOS' && $self->{SOURCE} !~ /\b$name\.c\b/;
+    # $self->{'H'} = [$self->catfile($self->updir,'encode.h')];
+    my %xs;
+    foreach my $table (sort keys %tables) {
+    push (@{$self->{'C'}},"$table.c");
+    # Do NOT add $table.h etc. to H_FILES unless we own up as to how they
+    # get built.
+    foreach my $ext (qw($(OBJ_EXT) .c .h .exh .fnm)) {
+        push (@files,$table.$ext);
+    }
+    }
+    $self->{'XS'} = { "$name.xs" => "$name.c" };
+    $self->{'clean'}{'FILES'} .= join(' ',@files);
+    open(XS,">$name.xs") || die "Cannot open $name.xs:$!";
+    print XS <<'END';
+#include <EXTERN.h>
+#include <perl.h>
+#include <XSUB.h>
+#include "encode.h"
+END
+    foreach my $table (sort keys %tables) {
+    print XS qq[#include "${table}.h"\n];
+    }
+    print XS <<"END";
+
+static void
+Encode_XSEncoding(pTHX_ encode_t *enc)
+{
+ dSP;
+ HV *stash = gv_stashpv("Encode::XS", TRUE);
+ SV *iv    = newSViv(PTR2IV(enc));
+ SV *sv    = sv_bless(newRV_noinc(iv),stash);
+ int i = 0;
+ /* with the SvLEN() == 0 hack, PVX won't be freed. We cast away name's
+ constness, in the hope that perl won't mess with it. */
+ assert(SvTYPE(iv) >= SVt_PV); assert(SvLEN(iv) == 0);
+ SvFLAGS(iv) |= SVp_POK;
+ SvPVX(iv) = (char*) enc->name[0];
+ PUSHMARK(sp);
+ XPUSHs(sv);
+ while (enc->name[i])
+  {
+   const char *name = enc->name[i++];
+   XPUSHs(sv_2mortal(newSVpvn(name,strlen(name))));
+  }
+ PUTBACK;
+ call_pv("Encode::define_encoding",G_DISCARD);
+ SvREFCNT_dec(sv);
+}
+
+MODULE = Encode::$name	PACKAGE = Encode::$name
+PROTOTYPES: DISABLE
+BOOT:
+{
+END
+    foreach my $table (sort keys %tables) {
+    print XS qq[#include "${table}.exh"\n];
+    }
+    print XS "}\n";
+    close(XS);
+    return "# Built $name.xs\n\n";
+}
+
+sub postamble
+{
+    my $self = shift;
+    my $dir  = "."; # $self->catdir('Encode');
+    my $str  = "# $name\$(OBJ_EXT) depends on .h and .exh files not .c files - but all written by enc2xs\n";
+    $str    .= "$name.c : $name.xs ";
+    foreach my $table (sort keys %tables)
+    {
+    $str .= " $table.c";
+    }
+    $str .= "\n\n";
+    $str .= "$name\$(OBJ_EXT) : $name.c\n\n";
+
+    foreach my $table (sort keys %tables)
+    {
+    my $numlines = 1;
+    my $lengthsofar = length($str);
+    my $continuator = '';
+    $str .= "$table.c : Makefile.PL";
+    foreach my $file (@{$tables{$table}})
+    {
+        $str .= $continuator.' '.$self->catfile($dir,$file);
+        if ( length($str)-$lengthsofar > 128*$numlines )
+        {
+        $continuator .= " \\\n\t";
+        $numlines++;
+        } else {
+        $continuator = '';
+        }
+    }
+    my $plib   = $self->{PERL_CORE} ? '"-I$(PERL_LIB)"' : '';
+    my $ucopts = '-"Q"';
+    $str .=  
+        qq{\n\t\$(PERL) $plib $enc2xs $ucopts -o \$\@ -f $table.fnm\n\n};
+    open (FILELIST, ">$table.fnm")
+        || die "Could not open $table.fnm: $!";
+    foreach my $file (@{$tables{$table}})
+    {
+        print FILELIST $self->catfile($dir,$file) . "\n";
+    }
+    close(FILELIST);
+    }
+    return $str;
+}
+
diff --git a/lib/5.24.1/Encode/PerlIO.pod b/lib/5.24.1/Encode/PerlIO.pod
new file mode 100644
index 00000000..1a9269a9
--- /dev/null
+++ b/lib/5.24.1/Encode/PerlIO.pod
@@ -0,0 +1,167 @@
+=head1 NAME
+
+Encode::PerlIO -- a detailed document on Encode and PerlIO
+
+=head1 Overview
+
+It is very common to want to do encoding transformations when
+reading or writing files, network connections, pipes etc.
+If Perl is configured to use the new 'perlio' IO system then
+C<Encode> provides a "layer" (see L<PerlIO>) which can transform
+data as it is read or written.
+
+Here is how the blind poet would modernise the encoding:
+
+    use Encode;
+    open(my $iliad,'<:encoding(iso-8859-7)','iliad.greek');
+    open(my $utf8,'>:utf8','iliad.utf8');
+    my @epic = <$iliad>;
+    print $utf8 @epic;
+    close($utf8);
+    close($illiad);
+
+In addition, the new IO system can also be configured to read/write
+UTF-8 encoded characters (as noted above, this is efficient):
+
+    open(my $fh,'>:utf8','anything');
+    print $fh "Any \x{0021} string \N{SMILEY FACE}\n";
+
+Either of the above forms of "layer" specifications can be made the default
+for a lexical scope with the C<use open ...> pragma. See L<open>.
+
+Once a handle is open, its layers can be altered using C<binmode>.
+
+Without any such configuration, or if Perl itself is built using the
+system's own IO, then write operations assume that the file handle
+accepts only I<bytes> and will C<die> if a character larger than 255 is
+written to the handle. When reading, each octet from the handle becomes
+a byte-in-a-character. Note that this default is the same behaviour
+as bytes-only languages (including Perl before v5.6) would have,
+and is sufficient to handle native 8-bit encodings e.g. iso-8859-1,
+EBCDIC etc. and any legacy mechanisms for handling other encodings
+and binary data.
+
+In other cases, it is the program's responsibility to transform
+characters into bytes using the API above before doing writes, and to
+transform the bytes read from a handle into characters before doing
+"character operations" (e.g. C<lc>, C</\W+/>, ...).
+
+You can also use PerlIO to convert larger amounts of data you don't
+want to bring into memory.  For example, to convert between ISO-8859-1
+(Latin 1) and UTF-8 (or UTF-EBCDIC in EBCDIC machines):
+
+    open(F, "<:encoding(iso-8859-1)", "data.txt") or die $!;
+    open(G, ">:utf8",                 "data.utf") or die $!;
+    while (<F>) { print G }
+
+    # Could also do "print G <F>" but that would pull
+    # the whole file into memory just to write it out again.
+
+More examples:
+
+    open(my $f, "<:encoding(cp1252)")
+    open(my $g, ">:encoding(iso-8859-2)")
+    open(my $h, ">:encoding(latin9)")       # iso-8859-15
+
+See also L<encoding> for how to change the default encoding of the
+data in your script.
+
+=head1 How does it work?
+
+Here is a crude diagram of how filehandle, PerlIO, and Encode
+interact.
+
+  filehandle <-> PerlIO        PerlIO <-> scalar (read/printed)
+                       \      /
+                        Encode   
+
+When PerlIO receives data from either direction, it fills a buffer
+(currently with 1024 bytes) and passes the buffer to Encode.
+Encode tries to convert the valid part and passes it back to PerlIO,
+leaving invalid parts (usually a partial character) in the buffer.
+PerlIO then appends more data to the buffer, calls Encode again,
+and so on until the data stream ends.
+
+To do so, PerlIO always calls (de|en)code methods with CHECK set to 1.
+This ensures that the method stops at the right place when it
+encounters partial character.  The following is what happens when
+PerlIO and Encode tries to encode (from utf8) more than 1024 bytes
+and the buffer boundary happens to be in the middle of a character.
+
+   A   B   C   ....   ~     \x{3000}    ....
+  41  42  43   ....  7E   e3   80   80  ....
+  <- buffer --------------->
+  << encoded >>>>>>>>>>
+                       <- next buffer ------
+
+Encode converts from the beginning to \x7E, leaving \xe3 in the buffer
+because it is invalid (partial character).
+
+Unfortunately, this scheme does not work well with escape-based
+encodings such as ISO-2022-JP.
+
+=head1 Line Buffering
+
+Now let's see what happens when you try to decode from ISO-2022-JP and
+the buffer ends in the middle of a character.
+
+              JIS208-ESC   \x{5f3e}
+   A   B   C   ....   ~   \e   $   B  |DAN | ....
+  41  42  43   ....  7E   1b  24  41  43  46 ....
+  <- buffer --------------------------->
+  << encoded >>>>>>>>>>>>>>>>>>>>>>>
+
+As you see, the next buffer begins with \x43.  But \x43 is 'C' in
+ASCII, which is wrong in this case because we are now in JISX 0208
+area so it has to convert \x43\x46, not \x43.  Unlike utf8 and EUC,
+in escape-based encodings you can't tell if a given octet is a whole
+character or just part of it.
+
+Fortunately PerlIO also supports line buffer if you tell PerlIO to use
+one instead of fixed buffer.  Since ISO-2022-JP is guaranteed to revert to ASCII at the end of the line, partial
+character will never happen when line buffer is used.
+
+To tell PerlIO to use line buffer, implement -E<gt>needs_lines method
+for your encoding object.  See  L<Encode::Encoding> for details.
+
+Thanks to these efforts most encodings that come with Encode support
+PerlIO but that still leaves following encodings.
+
+  iso-2022-kr
+  MIME-B
+  MIME-Header
+  MIME-Q
+
+Fortunately iso-2022-kr is hardly used (according to Jungshik) and
+MIME-* are very unlikely to be fed to PerlIO because they are for mail
+headers.  See L<Encode::MIME::Header> for details.
+
+=head2 How can I tell whether my encoding fully supports PerlIO ?
+
+As of this writing, any encoding whose class belongs to Encode::XS and
+Encode::Unicode works.  The Encode module has a C<perlio_ok> method
+which you can use before applying PerlIO encoding to the filehandle.
+Here is an example:
+
+  my $use_perlio = perlio_ok($enc);
+  my $layer = $use_perlio ? "<:raw" : "<:encoding($enc)";
+  open my $fh, $layer, $file or die "$file : $!";
+  while(<$fh>){
+    $_ = decode($enc, $_) unless $use_perlio;
+    # .... 
+  }
+
+=head1 SEE ALSO
+
+L<Encode::Encoding>,
+L<Encode::Supported>,
+L<Encode::PerlIO>, 
+L<encoding>,
+L<perlebcdic>, 
+L<perlfunc/open>, 
+L<perlunicode>, 
+L<utf8>, 
+the Perl Unicode Mailing List E<lt>perl-unicode@perl.orgE<gt>
+
+=cut
+
diff --git a/lib/5.24.1/Encode/README.e2x b/lib/5.24.1/Encode/README.e2x
new file mode 100644
index 00000000..28a31a65
--- /dev/null
+++ b/lib/5.24.1/Encode/README.e2x
@@ -0,0 +1,31 @@
+Encode::$_Name_ version 0.1
+========
+
+NAME
+       Encode::$_Name_ - <describe encoding>
+
+SYNOPSIS
+       use Encode::$_Name_;
+       #<put more words here>
+ABSTRACT
+      <fill this in>
+INSTALLATION
+
+To install this module type the following:
+
+   perl Makefile.PL
+   make
+   make test
+   make install
+
+DEPENDENCIES
+
+This module requires perl version 5.7.3 or later.
+
+COPYRIGHT AND LICENCE
+
+Copyright (C) 2002 Your Name <your@address.domain>
+
+This library is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself. 
+
diff --git a/lib/5.24.1/Encode/Supported.pod b/lib/5.24.1/Encode/Supported.pod
new file mode 100644
index 00000000..c731509a
--- /dev/null
+++ b/lib/5.24.1/Encode/Supported.pod
@@ -0,0 +1,901 @@
+=head1 NAME
+
+Encode::Supported -- Encodings supported by Encode
+
+=head1 DESCRIPTION
+
+=head2 Encoding Names
+
+Encoding names are case insensitive. White space in names
+is ignored.  In addition, an encoding may have aliases.
+Each encoding has one "canonical" name.  The "canonical"
+name is chosen from the names of the encoding by picking
+the first in the following sequence (with a few exceptions).
+
+=over 2
+
+=item *
+
+The name used by the Perl community.  That includes 'utf8' and 'ascii'.
+Unlike aliases, canonical names directly reach the method so such
+frequently used words like 'utf8' don't need to do alias lookups.
+
+=item *
+
+The MIME name as defined in IETF RFCs.  This includes all "iso-"s.
+
+=item * 
+
+The name in the IANA registry.
+
+=item *
+
+The name used by the organization that defined it.
+
+=back
+
+In case I<de jure> canonical names differ from that of the Encode
+module, they are always aliased if it ever be implemented.  So you can
+safely tell if a given encoding is implemented or not just by passing 
+the canonical name.
+
+Because of all the alias issues, and because in the general case 
+encodings have state, "Encode" uses an encoding object internally 
+once an operation is in progress.
+
+=head1 Supported Encodings
+
+As of Perl 5.8.0, at least the following encodings are recognized.
+Note that unless otherwise specified, they are all case insensitive
+(via alias) and all occurrence of spaces are replaced with '-'.
+In other words, "ISO 8859 1" and "iso-8859-1" are identical.
+
+Encodings are categorized and implemented in several different modules
+but you don't have to C<use Encode::XX> to make them available for
+most cases.  Encode.pm will automatically load those modules on demand.
+
+=head2 Built-in Encodings
+
+The following encodings are always available.
+
+  Canonical     Aliases                      Comments & References
+  ----------------------------------------------------------------
+  ascii         US-ascii ISO-646-US                         [ECMA]
+  ascii-ctrl			                  Special Encoding
+  iso-8859-1    latin1                                       [ISO]
+  null				                  Special Encoding
+  utf8          UTF-8                                    [RFC2279]
+  ----------------------------------------------------------------
+
+I<null> and I<ascii-ctrl> are special.  "null" fails for all character
+so when you set fallback mode to PERLQQ, HTMLCREF or XMLCREF, ALL
+CHARACTERS will fall back to character references.  Ditto for
+"ascii-ctrl" except for control characters.  For fallback modes, see
+L<Encode>.
+
+=head2 Encode::Unicode -- other Unicode encodings
+
+Unicode coding schemes other than native utf8 are supported by
+Encode::Unicode, which will be autoloaded on demand.
+
+  ----------------------------------------------------------------
+  UCS-2BE       UCS-2, iso-10646-1                      [IANA, UC]
+  UCS-2LE                                                     [UC]
+  UTF-16                                                      [UC]
+  UTF-16BE                                                    [UC]
+  UTF-16LE                                                    [UC]
+  UTF-32                                                      [UC]
+  UTF-32BE	UCS-4                                         [UC]
+  UTF-32LE                                                    [UC]
+  UTF-7                                                  [RFC2152]
+  ----------------------------------------------------------------
+
+To find how (UCS-2|UTF-(16|32))(LE|BE)? differ from one another,
+see L<Encode::Unicode>. 
+
+UTF-7 is a special encoding which "re-encodes" UTF-16BE into a 7-bit
+encoding.  It is implemented separately by Encode::Unicode::UTF7.
+
+=head2 Encode::Byte -- Extended ASCII
+
+Encode::Byte implements most single-byte encodings except for
+Symbols and EBCDIC. The following encodings are based on single-byte
+encodings implemented as extended ASCII.  Most of them map
+\x80-\xff (upper half) to non-ASCII characters.
+
+=over 2
+
+=item ISO-8859 and corresponding vendor mappings
+
+Since there are so many, they are presented in table format with
+languages and corresponding encoding names by vendors.  Note that
+the table is sorted in order of ISO-8859 and the corresponding vendor
+mappings are slightly different from that of ISO.  See
+L<http://czyborra.com/charsets/iso8859.html> for details.
+
+  Lang/Regions  ISO/Other Std.  DOS     Windows Macintosh  Others
+  ----------------------------------------------------------------
+  N. America    (ASCII)         cp437        AdobeStandardEncoding
+                                cp863 (DOSCanadaF)
+  W. Europe     iso-8859-1      cp850   cp1252  MacRoman  nextstep
+                                                         hp-roman8
+                                cp860 (DOSPortuguese)
+  Cntrl. Europe iso-8859-2      cp852   cp1250  MacCentralEurRoman
+                                                MacCroatian
+                                                MacRomanian
+                                                MacRumanian
+  Latin3[1]     iso-8859-3      
+  Latin4[2]     iso-8859-4              
+  Cyrillics     iso-8859-5      cp855   cp1251  MacCyrillic
+    (See also next section)     cp866           MacUkrainian
+  Arabic        iso-8859-6      cp864   cp1256  MacArabic
+                                cp1006          MacFarsi
+  Greek         iso-8859-7      cp737   cp1253  MacGreek
+                                cp869 (DOSGreek2)
+  Hebrew        iso-8859-8      cp862   cp1255  MacHebrew
+  Turkish       iso-8859-9      cp857   cp1254  MacTurkish
+  Nordics       iso-8859-10     cp865
+                                cp861           MacIcelandic
+                                                MacSami
+  Thai          iso-8859-11[3]  cp874           MacThai
+  (iso-8859-12 is nonexistent. Reserved for Indics?)
+  Baltics       iso-8859-13     cp775           cp1257
+  Celtics       iso-8859-14
+  Latin9 [4]    iso-8859-15
+  Latin10       iso-8859-16
+  Vietnamese    viscii                  cp1258  MacVietnamese
+  ----------------------------------------------------------------
+
+  [1] Esperanto, Maltese, and Turkish. Turkish is now on 8859-9.
+  [2] Baltics.  Now on 8859-10, except for Latvian.
+  [3] TIS 620 +  Non-Breaking Space (0xA0 / U+00A0)
+  [4] Nicknamed Latin0; the Euro sign as well as French and Finnish
+      letters that are missing from 8859-1 were added.
+
+All cp* are also available as ibm-*, ms-*, and windows-* .  See also
+L<http://czyborra.com/charsets/codepages.html>.
+
+Macintosh encodings don't seem to be registered in such entities as
+IANA.  "Canonical" names in Encode are based upon Apple's Tech Note
+1150.  See L<http://developer.apple.com/technotes/tn/tn1150.html> 
+for details.
+
+=item KOI8 - De Facto Standard for the Cyrillic world
+
+Though ISO-8859 does have ISO-8859-5, the KOI8 series is far more
+popular in the Net.   L<Encode> comes with the following KOI charsets.
+For gory details, see L<http://czyborra.com/charsets/cyrillic.html>
+
+  ----------------------------------------------------------------
+  koi8-f                                        
+  koi8-r cp878                                           [RFC1489]
+  koi8-u                                                 [RFC2319]
+  ----------------------------------------------------------------
+
+=back
+
+=head2 gsm0338 - Hentai Latin 1
+
+GSM0338 is for GSM handsets. Though it shares alphanumerals with
+ASCII, control character ranges and other parts are mapped very
+differently, mainly to store Greek characters.  There are also escape
+sequences (starting with 0x1B) to cover e.g. the Euro sign.  
+
+This was once handled by L<Encode::Bytes> but because of all those
+unusual specifications, Encode 2.20 has relocated the support to
+L<Encode::GSM0338>. See L<Encode::GSM0338> for details.
+
+=over 2
+
+=item gsm0338 support before 2.19
+
+Some special cases like a trailing 0x00 byte or a lone 0x1B byte are not
+well-defined and decode() will return an empty string for them.
+One possible workaround is
+
+   $gsm =~ s/\x00\z/\x00\x00/;
+   $uni = decode("gsm0338", $gsm);
+   $uni .= "\xA0" if $gsm =~ /\x1B\z/;
+
+Note that the Encode implementation of GSM0338 does not implement the
+reuse of Latin capital letters as Greek capital letters (for example,
+the 0x5A is U+005A (LATIN CAPITAL LETTER Z), not U+0396 (GREEK CAPITAL
+LETTER ZETA).
+
+The GSM0338 is also covered in Encode::Byte even though it is not
+an "extended ASCII" encoding.
+
+=back
+
+=head2 CJK: Chinese, Japanese, Korean (Multibyte)
+
+Note that Vietnamese is listed above.  Also read "Encoding vs Charset"
+below.  Also note that these are implemented in distinct modules by
+countries, due to the size concerns (simplified Chinese is mapped
+to 'CN', continental China, while traditional Chinese is mapped to
+'TW', Taiwan).  Please refer to their respective documentation pages.
+
+=over 2
+
+=item Encode::CN -- Continental China
+
+  Standard      DOS/Win Macintosh                Comment/Reference
+  ----------------------------------------------------------------
+  euc-cn [1]            MacChineseSimp
+  (gbk)         cp936 [2]
+  gb12345-raw                      { GB12345 without CES }
+  gb2312-raw                       { GB2312  without CES }
+  hz
+  iso-ir-165
+  ----------------------------------------------------------------
+
+  [1] GB2312 is aliased to this.  See L<Microsoft-related naming mess>
+  [2] gbk is aliased to this.  See L<Microsoft-related naming mess>
+
+=item Encode::JP -- Japan
+
+  Standard      DOS/Win Macintosh                Comment/Reference
+  ----------------------------------------------------------------
+  euc-jp
+  shiftjis      cp932   macJapanese
+  7bit-jis
+  iso-2022-jp                                            [RFC1468]
+  iso-2022-jp-1                                          [RFC2237]
+  jis0201-raw  { JIS X 0201 (roman + halfwidth kana) without CES }
+  jis0208-raw  { JIS X 0208 (Kanji + fullwidth kana) without CES }
+  jis0212-raw  { JIS X 0212 (Extended Kanji)         without CES }
+  ----------------------------------------------------------------
+
+=item Encode::KR -- Korea
+
+  Standard      DOS/Win Macintosh                Comment/Reference
+  ----------------------------------------------------------------
+  euc-kr                MacKorean                        [RFC1557]
+                cp949 [1]                    
+  iso-2022-kr                                            [RFC1557]
+  johab                                  [KS X 1001:1998, Annex 3]
+  ksc5601-raw                              { KSC5601 without CES }
+  ----------------------------------------------------------------
+
+  [1] ks_c_5601-1987, (x-)?windows-949, and uhc are aliased to this.
+  See below.
+
+=item Encode::TW -- Taiwan
+
+  Standard      DOS/Win Macintosh                Comment/Reference
+  ----------------------------------------------------------------
+  big5-eten     cp950   MacChineseTrad {big5 aliased to big5-eten}
+  big5-hkscs                              
+  ----------------------------------------------------------------
+
+=item Encode::HanExtra -- More Chinese via CPAN
+
+Due to the size concerns, additional Chinese encodings below are
+distributed separately on CPAN, under the name Encode::HanExtra.
+
+  Standard      DOS/Win Macintosh                Comment/Reference
+  ----------------------------------------------------------------
+  big5ext                                   CMEX's Big5e Extension
+  big5plus                                  CMEX's Big5+ Extension
+  cccii         Chinese Character Code for Information Interchange
+  euc-tw                             EUC (Extended Unix Character)
+  gb18030                          GBK with Traditional Characters
+  ----------------------------------------------------------------
+
+=item Encode::JIS2K -- JIS X 0213 encodings via CPAN
+
+Due to size concerns, additional Japanese encodings below are
+distributed separately on CPAN, under the name Encode::JIS2K.
+
+  Standard      DOS/Win Macintosh                Comment/Reference
+  ----------------------------------------------------------------
+  euc-jisx0213
+  shiftjisx0123
+  iso-2022-jp-3
+  jis0213-1-raw
+  jis0213-2-raw
+  ----------------------------------------------------------------
+
+=back
+
+=head2 Miscellaneous encodings
+
+=over 2
+
+=item Encode::EBCDIC
+
+See L<perlebcdic> for details.
+
+  ----------------------------------------------------------------
+  cp37
+  cp500  
+  cp875  
+  cp1026  
+  cp1047  
+  posix-bc
+  ----------------------------------------------------------------
+
+=item Encode::Symbols
+
+For symbols  and dingbats.
+
+  ----------------------------------------------------------------
+  symbol
+  dingbats
+  MacDingbats
+  AdobeZdingbat
+  AdobeSymbol
+  ----------------------------------------------------------------
+
+=item Encode::MIME::Header
+
+Strictly speaking, MIME header encoding documented in RFC 2047 is more
+of encapsulation than encoding.  However, their support in modern
+world is imperative so they are supported.
+
+  ----------------------------------------------------------------
+  MIME-Header                                            [RFC2047]
+  MIME-B                                                 [RFC2047]
+  MIME-Q                                                 [RFC2047]
+  ----------------------------------------------------------------
+
+=item Encode::Guess
+
+This one is not a name of encoding but a utility that lets you pick up
+the most appropriate encoding for a data out of given I<suspects>.  See
+L<Encode::Guess> for details.
+
+=back
+
+=head1 Unsupported encodings
+
+The following encodings are not supported as yet; some because they
+are rarely used, some because of technical difficulties.  They may
+be supported by external modules via CPAN in the future, however.
+
+=over 2
+
+=item   ISO-2022-JP-2 [RFC1554]
+
+Not very popular yet.  Needs Unicode Database or equivalent to
+implement encode() (because it includes JIS X 0208/0212, KSC5601, and
+GB2312 simultaneously, whose code points in Unicode overlap.  So you
+need to lookup the database to determine to what character set a given
+Unicode character should belong). 
+
+=item ISO-2022-CN [RFC1922]
+
+Not very popular.  Needs CNS 11643-1 and -2 which are not available in
+this module.  CNS 11643 is supported (via euc-tw) in Encode::HanExtra.
+Autrijus Tang may add support for this encoding in his module in future.
+
+=item Various HP-UX encodings
+
+The following are unsupported due to the lack of mapping data.
+
+  '8'  - arabic8, greek8, hebrew8, kana8, thai8, and turkish8
+  '15' - japanese15, korean15, and roi15
+
+=item Cyrillic encoding ISO-IR-111
+
+Anton Tagunov doubts its usefulness.
+
+=item ISO-8859-8-1 [Hebrew]
+
+None of the Encode team knows Hebrew enough (ISO-8859-8, cp1255 and
+MacHebrew are supported because and just because there were mappings
+available at L<http://www.unicode.org/>).  Contributions welcome.
+
+=item ISIRI 3342, Iran System, ISIRI 2900 [Farsi]
+
+Ditto.
+
+=item Thai encoding TCVN
+
+Ditto.
+
+=item Vietnamese encodings VPS
+
+Though Jungshik Shin has reported that Mozilla supports this encoding,
+it was too late before 5.8.0 for us to add it.  In the future, it
+may be available via a separate module.  See
+L<http://lxr.mozilla.org/seamonkey/source/intl/uconv/ucvlatin/vps.uf>
+and
+L<http://lxr.mozilla.org/seamonkey/source/intl/uconv/ucvlatin/vps.ut>
+if you are interested in helping us.
+
+=item Various Mac encodings
+
+The following are unsupported due to the lack of mapping data. 
+
+  MacArmenian,  MacBengali,   MacBurmese,   MacEthiopic
+  MacExtArabic, MacGeorgian,  MacKannada,   MacKhmer
+  MacLaotian,   MacMalayalam, MacMongolian, MacOriya
+  MacSinhalese, MacTamil,     MacTelugu,    MacTibetan
+  MacVietnamese
+
+The rest which are already available are based upon the vendor mappings
+at L<http://www.unicode.org/Public/MAPPINGS/VENDORS/APPLE/> .
+
+=item (Mac) Indic encodings
+
+The maps for the following are available at L<http://www.unicode.org/>
+but remain unsupported because those encodings need an algorithmical
+approach, currently unsupported by F<enc2xs>:
+
+  MacDevanagari
+  MacGurmukhi
+  MacGujarati
+
+For details, please see C<Unicode mapping issues and notes:> at
+L<http://www.unicode.org/Public/MAPPINGS/VENDORS/APPLE/DEVANAGA.TXT> .
+
+I believe this issue is prevalent not only for Mac Indics but also in
+other Indic encodings, but the above were the only Indic encodings
+maps that I could find at L<http://www.unicode.org/> .
+
+=back
+
+=head1 Encoding vs. Charset -- terminology
+
+We are used to using the term (character) I<encoding> and I<character
+set> interchangeably.  But just as confusing the terms byte and
+character is dangerous and the terms should be differentiated when
+needed, we need to differentiate I<encoding> and I<character set>.
+
+To understand that, here is a description of how we make computers
+grok our characters.
+
+=over 2
+
+=item *
+
+First we start with which characters to include.  We call this
+collection of characters I<character repertoire>.
+
+=item *
+
+Then we have to give each character a unique ID so your computer can
+tell the difference between 'a' and 'A'.  This itemized character
+repertoire is now a I<character set>.
+
+=item *
+
+If your computer can grow the character set without further
+processing, you can go ahead and use it.  This is called a I<coded
+character set> (CCS) or I<raw character encoding>.  ASCII is used this
+way for most cases.
+
+=item *
+
+But in many cases, especially multi-byte CJK encodings, you have to
+tweak a little more.  Your network connection may not accept any data
+with the Most Significant Bit set, and your computer may not be able to
+tell if a given byte is a whole character or just half of it.  So you
+have to I<encode> the character set to use it.
+
+A I<character encoding scheme> (CES) determines how to encode a given
+character set, or a set of multiple character sets.  7bit ISO-2022 is
+an example of a CES.  You switch between character sets via I<escape
+sequences>.
+
+=back
+
+Technically, or mathematically, speaking, a character set encoded in
+such a CES that maps character by character may form a CCS.  EUC is such
+an example.  The CES of EUC is as follows:
+
+=over 2
+
+=item *
+
+Map ASCII unchanged.
+
+=item *
+
+Map such a character set that consists of 94 or 96 powered by N
+members by adding 0x80 to each byte.
+
+=item *
+
+You can also use 0x8e and 0x8f to indicate that the following sequence of
+characters belongs to yet another character set.  To each following byte
+is added the value 0x80.
+
+=back
+
+By carefully looking at the encoded byte sequence, you can find that the
+byte sequence conforms a unique number.  In that sense, EUC is a CCS
+generated by a CES above from up to four CCS (complicated?).  UTF-8
+falls into this category.  See L<perlUnicode/"UTF-8"> to find out how
+UTF-8 maps Unicode to a byte sequence.
+
+You may also have found out by now why 7bit ISO-2022 cannot comprise
+a CCS.  If you look at a byte sequence \x21\x21, you can't tell if
+it is two !'s or IDEOGRAPHIC SPACE.  EUC maps the latter to \xA1\xA1
+so you have no trouble differentiating between "!!". and S<"  ">.
+
+=head1 Encoding Classification (by Anton Tagunov and Dan Kogai)
+
+This section tries to classify the supported encodings by their 
+applicability for information exchange over the Internet and to 
+choose the most suitable aliases to name them in the context of 
+such communication.
+
+=over 2
+
+=item * 
+
+To (en|de)code encodings marked by C<(**)>, you need 
+C<Encode::HanExtra>, available from CPAN.
+
+=back
+
+Encoding names
+
+  US-ASCII    UTF-8    ISO-8859-*  KOI8-R
+  Shift_JIS   EUC-JP   ISO-2022-JP ISO-2022-JP-1
+  EUC-KR      Big5     GB2312
+
+are registered with IANA as preferred MIME names and may
+be used over the Internet.
+
+C<Shift_JIS> has been officialized by JIS X 0208:1997.
+L<Microsoft-related naming mess> gives details.
+
+C<GB2312> is the IANA name for C<EUC-CN>.
+See L<Microsoft-related naming mess> for details.
+
+C<GB_2312-80> I<raw> encoding is available as C<gb2312-raw>
+with Encode. See L<Encode::CN> for details.
+
+  EUC-CN
+  KOI8-U        [RFC2319]
+
+have not been registered with IANA (as of March 2002) but
+seem to be supported by major web browsers. 
+The IANA name for C<EUC-CN> is C<GB2312>.
+
+  KS_C_5601-1987
+
+is heavily misused.
+See L<Microsoft-related naming mess> for details.
+
+C<KS_C_5601-1987> I<raw> encoding is available as C<kcs5601-raw>
+with Encode. See L<Encode::KR> for details.
+
+  UTF-16 UTF-16BE UTF-16LE
+
+are IANA-registered C<charset>s. See [RFC 2781] for details.
+Jungshik Shin reports that UTF-16 with a BOM is well accepted
+by MS IE 5/6 and NS 4/6. Beware however that
+
+=over 2
+
+=item *
+
+C<UTF-16> support in any software you're going to be
+using/interoperating with has probably been less tested
+then C<UTF-8> support
+
+=item *
+
+C<UTF-8> coded data seamlessly passes traditional
+command piping (C<cat>, C<more>, etc.) while C<UTF-16> coded
+data is likely to cause confusion (with its zero bytes,
+for example)
+
+=item *
+
+it is beyond the power of words to describe the way HTML browsers
+encode non-C<ASCII> form data. To get a general impression, visit
+L<http://www.alanflavell.org.uk/charset/form-i18n.html>.
+While encoding of form data has stabilized for C<UTF-8> encoded pages
+(at least IE 5/6, NS 6, and Opera 6 behave consistently), be sure to
+expect fun (and cross-browser discrepancies) with C<UTF-16> encoded
+pages!
+
+=back
+
+The rule of thumb is to use C<UTF-8> unless you know what
+you're doing and unless you really benefit from using C<UTF-16>.
+
+  ISO-IR-165    [RFC1345]
+  VISCII
+  GB 12345
+  GB 18030 (**)  (see links below)
+  EUC-TW   (**)
+
+are totally valid encodings but not registered at IANA.
+The names under which they are listed here are probably the
+most widely-known names for these encodings and are recommended
+names.
+
+  BIG5PLUS (**)
+
+is a proprietary name. 
+
+=head2 Microsoft-related naming mess
+
+Microsoft products misuse the following names:
+
+=over 2
+
+=item KS_C_5601-1987
+
+Microsoft extension to C<EUC-KR>.
+
+Proper names: C<CP949>, C<UHC>, C<x-windows-949> (as used by Mozilla).
+
+See L<http://lists.w3.org/Archives/Public/ietf-charsets/2001AprJun/0033.html>
+for details.
+
+Encode aliases C<KS_C_5601-1987> to C<cp949> to reflect this common
+misusage. I<Raw> C<KS_C_5601-1987> encoding is available as
+C<kcs5601-raw>.
+
+See L<Encode::KR> for details.
+
+=item GB2312
+
+Microsoft extension to C<EUC-CN>.
+
+Proper names: C<CP936>, C<GBK>.
+
+C<GB2312> has been registered in the C<EUC-CN> meaning at
+IANA. This has partially repaired the situation: Microsoft's 
+C<GB2312> has become a superset of the official C<GB2312>.
+
+Encode aliases C<GB2312> to C<euc-cn> in full agreement with
+IANA registration. C<cp936> is supported separately.
+I<Raw> C<GB_2312-80> encoding is available as C<gb2312-raw>.
+
+See L<Encode::CN> for details.
+
+=item Big5
+
+Microsoft extension to C<Big5>.
+
+Proper name: C<CP950>.
+
+Encode separately supports C<Big5> and C<cp950>.
+
+=item Shift_JIS
+
+Microsoft's understanding of C<Shift_JIS>.
+
+JIS has not endorsed the full Microsoft standard however.
+The official C<Shift_JIS> includes only JIS X 0201 and JIS X 0208
+character sets, while Microsoft has always used C<Shift_JIS>
+to encode a wider character repertoire. See C<IANA> registration for
+C<Windows-31J>.
+
+As a historical predecessor, Microsoft's variant
+probably has more rights for the name, though it may be objected
+that Microsoft shouldn't have used JIS as part of the name
+in the first place.
+
+Unambiguous name: C<CP932>. C<IANA> name (also used by Mozilla, and
+provided as an alias by Encode): C<Windows-31J>.
+
+Encode separately supports C<Shift_JIS> and C<cp932>.
+
+=back
+
+=head1 Glossary
+
+=over 2
+
+=item character repertoire
+
+A collection of unique characters.  A I<character> set in the strictest
+sense. At this stage, characters are not numbered.
+
+=item coded character set (CCS)
+
+A character set that is mapped in a way computers can use directly.
+Many character encodings, including EUC, fall in this category.
+
+=item character encoding scheme (CES)
+
+An algorithm to map a character set to a byte sequence.  You don't
+have to be able to tell which character set a given byte sequence
+belongs.  7-bit ISO-2022 is a CES but it cannot be a CCS.  EUC is an
+example of being both a CCS and CES.
+
+=item charset (in MIME context)
+
+has long been used in the meaning of C<encoding>, CES.
+
+While the word combination C<character set> has lost this meaning
+in MIME context since [RFC 2130], the C<charset> abbreviation has
+retained it. This is how [RFC 2277] and [RFC 2278] bless C<charset>:
+
+ This document uses the term "charset" to mean a set of rules for
+ mapping from a sequence of octets to a sequence of characters, such
+ as the combination of a coded character set and a character encoding
+ scheme; this is also what is used as an identifier in MIME "charset="
+ parameters, and registered in the IANA charset registry ...  (Note
+ that this is NOT a term used by other standards bodies, such as ISO).
+ [RFC 2277]
+
+=item EUC
+
+Extended Unix Character.  See ISO-2022.
+
+=item ISO-2022
+
+A CES that was carefully designed to coexist with ASCII.  There are a 7
+bit version and an 8 bit version.  
+
+The 7 bit version switches character set via escape sequence so it
+cannot form a CCS.  Since this is more difficult to handle in programs
+than the 8 bit version, the 7 bit version is not very popular except for
+iso-2022-jp, the I<de facto> standard CES for e-mails.
+
+The 8 bit version can form a CCS.  EUC and ISO-8859 are two examples
+thereof.  Pre-5.6 perl could use them as string literals.
+
+=item UCS
+
+Short for I<Universal Character Set>.  When you say just UCS, it means
+I<Unicode>.
+
+=item UCS-2
+
+ISO/IEC 10646 encoding form: Universal Character Set coded in two
+octets.
+
+=item Unicode
+
+A character set that aims to include all character repertoires of the
+world.  Many character sets in various national as well as industrial
+standards have become, in a way, just subsets of Unicode.
+
+=item UTF
+
+Short for I<Unicode Transformation Format>.  Determines how to map a
+Unicode character into a byte sequence.
+
+=item UTF-16
+
+A UTF in 16-bit encoding.  Can either be in big endian or little
+endian.  The big endian version is called UTF-16BE (equal to UCS-2 + 
+surrogate support) and the little endian version is called UTF-16LE.
+
+=back
+
+=head1 See Also
+
+L<Encode>, 
+L<Encode::Byte>, 
+L<Encode::CN>, L<Encode::JP>, L<Encode::KR>, L<Encode::TW>,
+L<Encode::EBCDIC>, L<Encode::Symbol>
+L<Encode::MIME::Header>, L<Encode::Guess>
+
+=head1 References
+
+=over 2
+
+=item ECMA
+
+European Computer Manufacturers Association
+L<http://www.ecma.ch>
+
+=over 2
+
+=item ECMA-035 (eq C<ISO-2022>)
+
+L<http://www.ecma.ch/ecma1/STAND/ECMA-035.HTM> 
+
+The specification of ISO-2022 is available from the link above.
+
+=back
+
+=item IANA
+
+Internet Assigned Numbers Authority
+L<http://www.iana.org/>
+
+=over 2
+
+=item Assigned Charset Names by IANA
+
+L<http://www.iana.org/assignments/character-sets>
+
+Most of the C<canonical names> in Encode derive from this list
+so you can directly apply the string you have extracted from MIME
+header of mails and web pages.
+
+=back
+
+=item ISO
+
+International Organization for Standardization
+L<http://www.iso.ch/>
+
+=item RFC
+
+Request For Comments -- need I say more?
+L<http://www.rfc-editor.org/>, L<http://www.ietf.org/rfc.html>,
+L<http://www.faqs.org/rfcs/>
+
+=item UC
+
+Unicode Consortium
+L<http://www.unicode.org/>
+
+=over 2
+
+=item Unicode Glossary
+
+L<http://www.unicode.org/glossary/>
+
+The glossary of this document is based upon this site.
+
+=back
+
+=back
+
+=head2 Other Notable Sites
+
+=over 2
+
+=item czyborra.com
+
+L<http://czyborra.com/>
+
+Contains a lot of useful information, especially gory details of ISO
+vs. vendor mappings.
+
+=item CJK.inf
+
+L<http://examples.oreilly.com/cjkvinfo/doc/cjk.inf>
+
+Somewhat obsolete (last update in 1996), but still useful.  Also try
+
+L<ftp://ftp.oreilly.com/pub/examples/nutshell/cjkv/pdf/GB18030_Summary.pdf>
+
+You will find brief info on C<EUC-CN>, C<GBK> and mostly on C<GB 18030>.
+
+=item Jungshik Shin's Hangul FAQ
+
+L<http://jshin.net/faq>
+
+And especially its subject 8.
+
+L<http://jshin.net/faq/qa8.html>
+
+A comprehensive overview of the Korean (C<KS *>) standards.
+
+=item debian.org: "Introduction to i18n"
+
+A brief description for most of the mentioned CJK encodings is
+contained in
+L<http://www.debian.org/doc/manuals/intro-i18n/ch-codes.en.html>
+
+=back
+
+=head2 Offline sources
+
+=over 2
+
+=item C<CJKV Information Processing> by Ken Lunde
+
+CJKV Information Processing
+1999 O'Reilly & Associates, ISBN : 1-56592-224-7
+
+The modern successor of C<CJK.inf>.
+
+Features a comprehensive coverage of CJKV character sets and
+encodings along with many other issues faced by anyone trying
+to better support CJKV languages/scripts in all the areas of
+information processing.
+
+To purchase this book, visit
+L<http://oreilly.com/catalog/9780596514471/>
+or your favourite bookstore.
+
+=back
+
+=cut
diff --git a/lib/5.24.1/Encode/_PM.e2x b/lib/5.24.1/Encode/_PM.e2x
new file mode 100644
index 00000000..eb59cd1b
--- /dev/null
+++ b/lib/5.24.1/Encode/_PM.e2x
@@ -0,0 +1,23 @@
+package Encode::$_Name_;
+our $VERSION = "0.01";
+ 
+use Encode;
+use XSLoader;
+XSLoader::load(__PACKAGE__,$VERSION);
+
+1;
+__END__
+
+=head1 NAME
+ 
+Encode::$_Name_ - New Encoding
+ 
+=head1 SYNOPSIS
+
+You got to fill this in!
+
+=head1 SEE ALSO
+
+L<Encode>
+
+=cut
diff --git a/lib/5.24.1/Encode/_T.e2x b/lib/5.24.1/Encode/_T.e2x
new file mode 100644
index 00000000..6cf5f293
--- /dev/null
+++ b/lib/5.24.1/Encode/_T.e2x
@@ -0,0 +1,7 @@
+use strict;
+# Adjust the number here!
+use Test::More tests => 2;
+
+use_ok('Encode');
+use_ok('Encode::$_Name_');
+# Add more test here!
diff --git a/lib/5.24.1/Encode/encode.h b/lib/5.24.1/Encode/encode.h
new file mode 100644
index 00000000..5fbcf76a
--- /dev/null
+++ b/lib/5.24.1/Encode/encode.h
@@ -0,0 +1,110 @@
+#ifndef ENCODE_H
+#define ENCODE_H
+
+#ifndef H_PERL
+/* check whether we're "in perl" so that we can do data parts without
+   getting extern references to the code parts
+*/
+typedef unsigned char U8;
+#endif
+
+typedef struct encpage_s encpage_t;
+
+struct encpage_s
+{
+    /* fields ordered to pack nicely on 32-bit machines */
+    const U8 *const seq;   /* Packed output sequences we generate 
+                  if we match */
+    const encpage_t *const next;      /* Page to go to if we match */
+    const U8   min;        /* Min value of octet to match this entry */
+    const U8   max;        /* Max value of octet to match this entry */
+    const U8   dlen;       /* destination length - 
+                  size of entries in seq */
+    const U8   slen;       /* source length - 
+                  number of source octets needed */
+};
+
+/*
+  At any point in a translation there is a page pointer which points
+  at an array of the above structures.
+
+  Basic operation :
+  get octet from source stream.
+  if (octet >= min && octet < max) {
+    if slen is 0 then we cannot represent this character.
+    if we have less than slen octets (including this one) then 
+      we have a partial character.
+    otherwise
+      copy dlen octets from seq + dlen*(octet-min) to output
+      (dlen may be zero if we don't know yet.)
+      load page pointer with next to continue.
+      (is slen is one this is end of a character)
+      get next octet.
+  }
+  else {
+    increment the page pointer to look at next slot in the array
+  }
+
+  arrays SHALL be constructed so there is an entry which matches
+  ..0xFF at the end, and either maps it or indicates no
+  representation.
+
+  if MSB of slen is set then mapping is an approximate "FALLBACK" entry.
+
+*/
+
+
+typedef struct encode_s encode_t;
+struct encode_s
+{
+    const encpage_t *const t_utf8;  /* Starting table for translation from 
+                       the encoding to UTF-8 form */
+    const encpage_t *const f_utf8;  /* Starting table for translation 
+                       from UTF-8 to the encoding */
+    const U8 *const rep;            /* Replacement character in this
+                       encoding e.g. "?" */
+    int        replen;              /* Number of octets in rep */
+    U8         min_el;              /* Minimum octets to represent a
+                       character */
+    U8         max_el;              /* Maximum octets to represent a
+                       character */
+    const char *const name[2];      /* name(s) of this encoding */
+};
+
+#ifdef H_PERL
+/* See comment at top of file for deviousness */
+
+extern int do_encode(const encpage_t *enc, const U8 *src, STRLEN *slen,
+                     U8 *dst, STRLEN dlen, STRLEN *dout, int approx,
+             const U8 *term, STRLEN tlen);
+
+extern void Encode_DefineEncoding(encode_t *enc);
+
+#endif /* H_PERL */
+
+#define ENCODE_NOSPACE  1
+#define ENCODE_PARTIAL  2
+#define ENCODE_NOREP    3
+#define ENCODE_FALLBACK 4
+#define ENCODE_FOUND_TERM 5
+
+#define FBCHAR_UTF8		"\xEF\xBF\xBD"
+
+#define  ENCODE_DIE_ON_ERR     0x0001 /* croaks immediately */
+#define  ENCODE_WARN_ON_ERR    0x0002 /* warn on error; may proceed */
+#define  ENCODE_RETURN_ON_ERR  0x0004 /* immediately returns on NOREP */
+#define  ENCODE_LEAVE_SRC      0x0008 /* $src updated unless set */
+#define  ENCODE_PERLQQ         0x0100 /* perlqq fallback string */
+#define  ENCODE_HTMLCREF       0x0200 /* HTML character ref. fb mode */
+#define  ENCODE_XMLCREF        0x0400 /* XML  character ref. fb mode */
+#define  ENCODE_STOP_AT_PARTIAL 0x0800 /* stop at partial explicitly */
+
+#define  ENCODE_FB_DEFAULT     0x0000
+#define  ENCODE_FB_CROAK       0x0001
+#define  ENCODE_FB_QUIET       ENCODE_RETURN_ON_ERR
+#define  ENCODE_FB_WARN        (ENCODE_RETURN_ON_ERR|ENCODE_WARN_ON_ERR)
+#define  ENCODE_FB_PERLQQ      (ENCODE_PERLQQ|ENCODE_LEAVE_SRC)
+#define  ENCODE_FB_HTMLCREF    (ENCODE_HTMLCREF|ENCODE_LEAVE_SRC)
+#define  ENCODE_FB_XMLCREF     (ENCODE_XMLCREF|ENCODE_LEAVE_SRC)
+
+#endif /* ENCODE_H */
diff --git a/lib/5.24.1/English.pm b/lib/5.24.1/English.pm
new file mode 100644
index 00000000..e40cc124
--- /dev/null
+++ b/lib/5.24.1/English.pm
@@ -0,0 +1,237 @@
+package English;
+
+our $VERSION = '1.10';
+
+require Exporter;
+@ISA = qw(Exporter);
+
+=head1 NAME
+
+English - use nice English (or awk) names for ugly punctuation variables
+
+=head1 SYNOPSIS
+
+    use English;
+    use English qw( -no_match_vars ) ;  # Avoids regex performance
+                                        # penalty in perl 5.16 and
+                                        # earlier
+    ...
+    if ($ERRNO =~ /denied/) { ... }
+
+=head1 DESCRIPTION
+
+This module provides aliases for the built-in variables whose
+names no one seems to like to read.  Variables with side-effects
+which get triggered just by accessing them (like $0) will still 
+be affected.
+
+For those variables that have an B<awk> version, both long
+and short English alternatives are provided.  For example, 
+the C<$/> variable can be referred to either $RS or 
+$INPUT_RECORD_SEPARATOR if you are using the English module.
+
+See L<perlvar> for a complete list of these.
+
+=head1 PERFORMANCE
+
+NOTE: This was fixed in perl 5.20.  Mentioning these three variables no
+longer makes a speed difference.  This section still applies if your code
+is to run on perl 5.18 or earlier.
+
+This module can provoke sizeable inefficiencies for regular expressions,
+due to unfortunate implementation details.  If performance matters in
+your application and you don't need $PREMATCH, $MATCH, or $POSTMATCH,
+try doing
+
+   use English qw( -no_match_vars ) ;
+
+.  B<It is especially important to do this in modules to avoid penalizing
+all applications which use them.>
+
+=cut
+
+no warnings;
+
+my $globbed_match ;
+
+# Grandfather $NAME import
+sub import {
+    my $this = shift;
+    my @list = grep { ! /^-no_match_vars$/ } @_ ;
+    local $Exporter::ExportLevel = 1;
+    if ( @_ == @list ) {
+        *EXPORT = \@COMPLETE_EXPORT ;
+        $globbed_match ||= (
+	    eval q{
+		*MATCH				= *&	;
+		*PREMATCH			= *`	;
+		*POSTMATCH			= *'	;
+		1 ;
+	       }
+	    || do {
+		require Carp ;
+		Carp::croak("Can't create English for match leftovers: $@") ;
+	    }
+	) ;
+    }
+    else {
+        *EXPORT = \@MINIMAL_EXPORT ;
+    }
+    Exporter::import($this,grep {s/^\$/*/} @list);
+}
+
+@MINIMAL_EXPORT = qw(
+	*ARG
+	*LAST_PAREN_MATCH
+	*INPUT_LINE_NUMBER
+	*NR
+	*INPUT_RECORD_SEPARATOR
+	*RS
+	*OUTPUT_AUTOFLUSH
+	*OUTPUT_FIELD_SEPARATOR
+	*OFS
+	*OUTPUT_RECORD_SEPARATOR
+	*ORS
+	*LIST_SEPARATOR
+	*SUBSCRIPT_SEPARATOR
+	*SUBSEP
+	*FORMAT_PAGE_NUMBER
+	*FORMAT_LINES_PER_PAGE
+	*FORMAT_LINES_LEFT
+	*FORMAT_NAME
+	*FORMAT_TOP_NAME
+	*FORMAT_LINE_BREAK_CHARACTERS
+	*FORMAT_FORMFEED
+	*CHILD_ERROR
+	*OS_ERROR
+	*ERRNO
+	*EXTENDED_OS_ERROR
+	*EVAL_ERROR
+	*PROCESS_ID
+	*PID
+	*REAL_USER_ID
+	*UID
+	*EFFECTIVE_USER_ID
+	*EUID
+	*REAL_GROUP_ID
+	*GID
+	*EFFECTIVE_GROUP_ID
+	*EGID
+	*PROGRAM_NAME
+	*PERL_VERSION
+	*OLD_PERL_VERSION
+	*ACCUMULATOR
+	*COMPILING
+	*DEBUGGING
+	*SYSTEM_FD_MAX
+	*INPLACE_EDIT
+	*PERLDB
+	*BASETIME
+	*WARNING
+	*EXECUTABLE_NAME
+	*OSNAME
+	*LAST_REGEXP_CODE_RESULT
+	*EXCEPTIONS_BEING_CAUGHT
+	*LAST_SUBMATCH_RESULT
+	@LAST_MATCH_START
+	@LAST_MATCH_END
+);
+
+
+@MATCH_EXPORT = qw(
+	*MATCH
+	*PREMATCH
+	*POSTMATCH
+);
+
+@COMPLETE_EXPORT = ( @MINIMAL_EXPORT, @MATCH_EXPORT ) ;
+
+# The ground of all being.
+
+	*ARG					= *_	;
+
+# Matching.
+
+	*LAST_PAREN_MATCH			= *+	;
+	*LAST_SUBMATCH_RESULT			= *^N ;
+	*LAST_MATCH_START			= *-{ARRAY} ;
+	*LAST_MATCH_END				= *+{ARRAY} ;
+
+# Input.
+
+	*INPUT_LINE_NUMBER			= *.	;
+	    *NR					= *.	;
+	*INPUT_RECORD_SEPARATOR			= */	;
+	    *RS					= */	;
+
+# Output.
+
+	*OUTPUT_AUTOFLUSH			= *|	;
+	*OUTPUT_FIELD_SEPARATOR			= *,	;
+	    *OFS				= *,	;
+	*OUTPUT_RECORD_SEPARATOR		= *\	;
+	    *ORS				= *\	;
+
+# Interpolation "constants".
+
+	*LIST_SEPARATOR				= *"	;
+	*SUBSCRIPT_SEPARATOR			= *;	;
+	    *SUBSEP				= *;	;
+
+# Formats
+
+	*FORMAT_PAGE_NUMBER			= *%	;
+	*FORMAT_LINES_PER_PAGE			= *=	;
+	*FORMAT_LINES_LEFT			= *-{SCALAR}	;
+	*FORMAT_NAME				= *~	;
+	*FORMAT_TOP_NAME			= *^	;
+	*FORMAT_LINE_BREAK_CHARACTERS		= *:	;
+	*FORMAT_FORMFEED			= *^L	;
+
+# Error status.
+
+	*CHILD_ERROR				= *?	;
+	*OS_ERROR				= *!	;
+	    *ERRNO				= *!	;
+	*OS_ERROR				= *!	;
+	    *ERRNO				= *!	;
+	*EXTENDED_OS_ERROR			= *^E	;
+	*EVAL_ERROR				= *@	;
+
+# Process info.
+
+	*PROCESS_ID				= *$	;
+	    *PID				= *$	;
+	*REAL_USER_ID				= *<	;
+	    *UID				= *<	;
+	*EFFECTIVE_USER_ID			= *>	;
+	    *EUID				= *>	;
+	*REAL_GROUP_ID				= *(	;
+	    *GID				= *(	;
+	*EFFECTIVE_GROUP_ID			= *)	;
+	    *EGID				= *)	;
+	*PROGRAM_NAME				= *0	;
+
+# Internals.
+
+	*PERL_VERSION				= *^V	;
+	*OLD_PERL_VERSION			= *]	;
+	*ACCUMULATOR				= *^A	;
+	*COMPILING				= *^C	;
+	*DEBUGGING				= *^D	;
+	*SYSTEM_FD_MAX				= *^F	;
+	*INPLACE_EDIT				= *^I	;
+	*PERLDB					= *^P	;
+	*LAST_REGEXP_CODE_RESULT		= *^R	;
+	*EXCEPTIONS_BEING_CAUGHT		= *^S	;
+	*BASETIME				= *^T	;
+	*WARNING				= *^W	;
+	*EXECUTABLE_NAME			= *^X	;
+	*OSNAME					= *^O	;
+
+# Deprecated.
+
+#	*ARRAY_BASE				= *[	;
+#	*OFMT					= *#	;
+
+1;
diff --git a/lib/5.24.1/Env.pm b/lib/5.24.1/Env.pm
new file mode 100644
index 00000000..6e6cd8b2
--- /dev/null
+++ b/lib/5.24.1/Env.pm
@@ -0,0 +1,254 @@
+package Env;
+
+our $VERSION = '1.04';
+
+=head1 NAME
+
+Env - perl module that imports environment variables as scalars or arrays
+
+=head1 SYNOPSIS
+
+    use Env;
+    use Env qw(PATH HOME TERM);
+    use Env qw($SHELL @LD_LIBRARY_PATH);
+
+=head1 DESCRIPTION
+
+Perl maintains environment variables in a special hash named C<%ENV>.  For
+when this access method is inconvenient, the Perl module C<Env> allows
+environment variables to be treated as scalar or array variables.
+
+The C<Env::import()> function ties environment variables with suitable
+names to global Perl variables with the same names.  By default it
+ties all existing environment variables (C<keys %ENV>) to scalars.  If
+the C<import> function receives arguments, it takes them to be a list of
+variables to tie; it's okay if they don't yet exist. The scalar type
+prefix '$' is inferred for any element of this list not prefixed by '$'
+or '@'. Arrays are implemented in terms of C<split> and C<join>, using
+C<$Config::Config{path_sep}> as the delimiter.
+
+After an environment variable is tied, merely use it like a normal variable.
+You may access its value 
+
+    @path = split(/:/, $PATH);
+    print join("\n", @LD_LIBRARY_PATH), "\n";
+
+or modify it
+
+    $PATH .= ":.";
+    push @LD_LIBRARY_PATH, $dir;
+
+however you'd like. Bear in mind, however, that each access to a tied array
+variable requires splitting the environment variable's string anew.
+
+The code:
+
+    use Env qw(@PATH);
+    push @PATH, '.';
+
+is equivalent to:
+
+    use Env qw(PATH);
+    $PATH .= ":.";
+
+except that if C<$ENV{PATH}> started out empty, the second approach leaves
+it with the (odd) value "C<:.>", but the first approach leaves it with "C<.>".
+
+To remove a tied environment variable from
+the environment, assign it the undefined value
+
+    undef $PATH;
+    undef @LD_LIBRARY_PATH;
+
+=head1 LIMITATIONS
+
+On VMS systems, arrays tied to environment variables are read-only. Attempting
+to change anything will cause a warning.
+
+=head1 AUTHOR
+
+Chip Salzenberg E<lt>F<chip@fin.uucp>E<gt>
+and
+Gregor N. Purdy E<lt>F<gregor@focusresearch.com>E<gt>
+
+=cut
+
+sub import {
+    my ($callpack) = caller(0);
+    my $pack = shift;
+    my @vars = grep /^[\$\@]?[A-Za-z_]\w*$/, (@_ ? @_ : keys(%ENV));
+    return unless @vars;
+
+    @vars = map { m/^[\$\@]/ ? $_ : '$'.$_ } @vars;
+
+    eval "package $callpack; use vars qw(" . join(' ', @vars) . ")";
+    die $@ if $@;
+    foreach (@vars) {
+	my ($type, $name) = m/^([\$\@])(.*)$/;
+	if ($type eq '$') {
+	    tie ${"${callpack}::$name"}, Env, $name;
+	} else {
+	    if ($^O eq 'VMS') {
+		tie @{"${callpack}::$name"}, Env::Array::VMS, $name;
+	    } else {
+		tie @{"${callpack}::$name"}, Env::Array, $name;
+	    }
+	}
+    }
+}
+
+sub TIESCALAR {
+    bless \($_[1]);
+}
+
+sub FETCH {
+    my ($self) = @_;
+    $ENV{$$self};
+}
+
+sub STORE {
+    my ($self, $value) = @_;
+    if (defined($value)) {
+	$ENV{$$self} = $value;
+    } else {
+	delete $ENV{$$self};
+    }
+}
+
+######################################################################
+
+package Env::Array;
+ 
+use Config;
+use Tie::Array;
+
+@ISA = qw(Tie::Array);
+
+my $sep = $Config::Config{path_sep};
+
+sub TIEARRAY {
+    bless \($_[1]);
+}
+
+sub FETCHSIZE {
+    my ($self) = @_;
+    return 1 + scalar(() = $ENV{$$self} =~ /\Q$sep\E/g);
+}
+
+sub STORESIZE {
+    my ($self, $size) = @_;
+    my @temp = split($sep, $ENV{$$self});
+    $#temp = $size - 1;
+    $ENV{$$self} = join($sep, @temp);
+}
+
+sub CLEAR {
+    my ($self) = @_;
+    $ENV{$$self} = '';
+}
+
+sub FETCH {
+    my ($self, $index) = @_;
+    return (split($sep, $ENV{$$self}))[$index];
+}
+
+sub STORE {
+    my ($self, $index, $value) = @_;
+    my @temp = split($sep, $ENV{$$self});
+    $temp[$index] = $value;
+    $ENV{$$self} = join($sep, @temp);
+    return $value;
+}
+
+sub EXISTS {
+    my ($self, $index) = @_;
+    return $index < $self->FETCHSIZE;
+}
+
+sub DELETE {
+    my ($self, $index) = @_;
+    my @temp = split($sep, $ENV{$$self});
+    my $value = splice(@temp, $index, 1, ());
+    $ENV{$$self} = join($sep, @temp);
+    return $value;
+}
+
+sub PUSH {
+    my $self = shift;
+    my @temp = split($sep, $ENV{$$self});
+    push @temp, @_;
+    $ENV{$$self} = join($sep, @temp);
+    return scalar(@temp);
+}
+
+sub POP {
+    my ($self) = @_;
+    my @temp = split($sep, $ENV{$$self});
+    my $result = pop @temp;
+    $ENV{$$self} = join($sep, @temp);
+    return $result;
+}
+
+sub UNSHIFT {
+    my $self = shift;
+    my @temp = split($sep, $ENV{$$self});
+    my $result = unshift @temp, @_;
+    $ENV{$$self} = join($sep, @temp);
+    return $result;
+}
+
+sub SHIFT {
+    my ($self) = @_;
+    my @temp = split($sep, $ENV{$$self});
+    my $result = shift @temp;
+    $ENV{$$self} = join($sep, @temp);
+    return $result;
+}
+
+sub SPLICE {
+    my $self = shift;
+    my $offset = shift;
+    my $length = shift;
+    my @temp = split($sep, $ENV{$$self});
+    if (wantarray) {
+	my @result = splice @temp, $offset, $length, @_;
+	$ENV{$$self} = join($sep, @temp);
+	return @result;
+    } else {
+	my $result = scalar splice @temp, $offset, $length, @_;
+	$ENV{$$self} = join($sep, @temp);
+	return $result;
+    }
+}
+
+######################################################################
+
+package Env::Array::VMS;
+use Tie::Array;
+
+@ISA = qw(Tie::Array);
+ 
+sub TIEARRAY {
+    bless \($_[1]);
+}
+
+sub FETCHSIZE {
+    my ($self) = @_;
+    my $i = 0;
+    while ($i < 127 and defined $ENV{$$self . ';' . $i}) { $i++; };
+    return $i;
+}
+
+sub FETCH {
+    my ($self, $index) = @_;
+    return $ENV{$$self . ';' . $index};
+}
+
+sub EXISTS {
+    my ($self, $index) = @_;
+    return $index < $self->FETCHSIZE;
+}
+
+sub DELETE { }
+
+1;
diff --git a/lib/5.24.1/Exporter.pm b/lib/5.24.1/Exporter.pm
new file mode 100644
index 00000000..0b3db215
--- /dev/null
+++ b/lib/5.24.1/Exporter.pm
@@ -0,0 +1,591 @@
+package Exporter;
+
+require 5.006;
+
+# Be lean.
+#use strict;
+#no strict 'refs';
+
+our $Debug = 0;
+our $ExportLevel = 0;
+our $Verbose ||= 0;
+our $VERSION = '5.72';
+our (%Cache);
+
+sub as_heavy {
+  require Exporter::Heavy;
+  # Unfortunately, this does not work if the caller is aliased as *name = \&foo
+  # Thus the need to create a lot of identical subroutines
+  my $c = (caller(1))[3];
+  $c =~ s/.*:://;
+  \&{"Exporter::Heavy::heavy_$c"};
+}
+
+sub export {
+  goto &{as_heavy()};
+}
+
+sub import {
+  my $pkg = shift;
+  my $callpkg = caller($ExportLevel);
+
+  if ($pkg eq "Exporter" and @_ and $_[0] eq "import") {
+    *{$callpkg."::import"} = \&import;
+    return;
+  }
+
+  # We *need* to treat @{"$pkg\::EXPORT_FAIL"} since Carp uses it :-(
+  my $exports = \@{"$pkg\::EXPORT"};
+  # But, avoid creating things if they don't exist, which saves a couple of
+  # hundred bytes per package processed.
+  my $fail = ${$pkg . '::'}{EXPORT_FAIL} && \@{"$pkg\::EXPORT_FAIL"};
+  return export $pkg, $callpkg, @_
+    if $Verbose or $Debug or $fail && @$fail > 1;
+  my $export_cache = ($Cache{$pkg} ||= {});
+  my $args = @_ or @_ = @$exports;
+
+  if ($args and not %$export_cache) {
+    s/^&//, $export_cache->{$_} = 1
+      foreach (@$exports, @{"$pkg\::EXPORT_OK"});
+  }
+  my $heavy;
+  # Try very hard not to use {} and hence have to  enter scope on the foreach
+  # We bomb out of the loop with last as soon as heavy is set.
+  if ($args or $fail) {
+    ($heavy = (/\W/ or $args and not exists $export_cache->{$_}
+               or $fail and @$fail and $_ eq $fail->[0])) and last
+                 foreach (@_);
+  } else {
+    ($heavy = /\W/) and last
+      foreach (@_);
+  }
+  return export $pkg, $callpkg, ($args ? @_ : ()) if $heavy;
+  local $SIG{__WARN__} = 
+	sub {require Carp; &Carp::carp} if not $SIG{__WARN__};
+  # shortcut for the common case of no type character
+  *{"$callpkg\::$_"} = \&{"$pkg\::$_"} foreach @_;
+}
+
+# Default methods
+
+sub export_fail {
+    my $self = shift;
+    @_;
+}
+
+# Unfortunately, caller(1)[3] "does not work" if the caller is aliased as
+# *name = \&foo.  Thus the need to create a lot of identical subroutines
+# Otherwise we could have aliased them to export().
+
+sub export_to_level {
+  goto &{as_heavy()};
+}
+
+sub export_tags {
+  goto &{as_heavy()};
+}
+
+sub export_ok_tags {
+  goto &{as_heavy()};
+}
+
+sub require_version {
+  goto &{as_heavy()};
+}
+
+1;
+__END__
+
+=head1 NAME
+
+Exporter - Implements default import method for modules
+
+=head1 SYNOPSIS
+
+In module F<YourModule.pm>:
+
+  package YourModule;
+  require Exporter;
+  @ISA = qw(Exporter);
+  @EXPORT_OK = qw(munge frobnicate);  # symbols to export on request
+
+or
+
+  package YourModule;
+  use Exporter 'import'; # gives you Exporter's import() method directly
+  @EXPORT_OK = qw(munge frobnicate);  # symbols to export on request
+
+In other files which wish to use C<YourModule>:
+
+  use YourModule qw(frobnicate);      # import listed symbols
+  frobnicate ($left, $right)          # calls YourModule::frobnicate
+
+Take a look at L</Good Practices> for some variants
+you will like to use in modern Perl code.
+
+=head1 DESCRIPTION
+
+The Exporter module implements an C<import> method which allows a module
+to export functions and variables to its users' namespaces.  Many modules
+use Exporter rather than implementing their own C<import> method because
+Exporter provides a highly flexible interface, with an implementation optimised
+for the common case.
+
+Perl automatically calls the C<import> method when processing a
+C<use> statement for a module.  Modules and C<use> are documented
+in L<perlfunc> and L<perlmod>.  Understanding the concept of
+modules and how the C<use> statement operates is important to
+understanding the Exporter.
+
+=head2 How to Export
+
+The arrays C<@EXPORT> and C<@EXPORT_OK> in a module hold lists of
+symbols that are going to be exported into the users name space by
+default, or which they can request to be exported, respectively.  The
+symbols can represent functions, scalars, arrays, hashes, or typeglobs.
+The symbols must be given by full name with the exception that the
+ampersand in front of a function is optional, e.g.
+
+    @EXPORT    = qw(afunc $scalar @array);   # afunc is a function
+    @EXPORT_OK = qw(&bfunc %hash *typeglob); # explicit prefix on &bfunc
+
+If you are only exporting function names it is recommended to omit the
+ampersand, as the implementation is faster this way.
+
+=head2 Selecting What to Export
+
+Do B<not> export method names!
+
+Do B<not> export anything else by default without a good reason!
+
+Exports pollute the namespace of the module user.  If you must export
+try to use C<@EXPORT_OK> in preference to C<@EXPORT> and avoid short or
+common symbol names to reduce the risk of name clashes.
+
+Generally anything not exported is still accessible from outside the
+module using the C<YourModule::item_name> (or C<< $blessed_ref->method >>)
+syntax.  By convention you can use a leading underscore on names to
+informally indicate that they are 'internal' and not for public use.
+
+(It is actually possible to get private functions by saying:
+
+  my $subref = sub { ... };
+  $subref->(@args);            # Call it as a function
+  $obj->$subref(@args);        # Use it as a method
+
+However if you use them for methods it is up to you to figure out
+how to make inheritance work.)
+
+As a general rule, if the module is trying to be object oriented
+then export nothing.  If it's just a collection of functions then
+C<@EXPORT_OK> anything but use C<@EXPORT> with caution.  For function and
+method names use barewords in preference to names prefixed with
+ampersands for the export lists.
+
+Other module design guidelines can be found in L<perlmod>.
+
+=head2 How to Import
+
+In other files which wish to use your module there are three basic ways for
+them to load your module and import its symbols:
+
+=over 4
+
+=item C<use YourModule;>
+
+This imports all the symbols from YourModule's C<@EXPORT> into the namespace
+of the C<use> statement.
+
+=item C<use YourModule ();>
+
+This causes perl to load your module but does not import any symbols.
+
+=item C<use YourModule qw(...);>
+
+This imports only the symbols listed by the caller into their namespace.
+All listed symbols must be in your C<@EXPORT> or C<@EXPORT_OK>, else an error
+occurs.  The advanced export features of Exporter are accessed like this,
+but with list entries that are syntactically distinct from symbol names.
+
+=back
+
+Unless you want to use its advanced features, this is probably all you
+need to know to use Exporter.
+
+=head1 Advanced Features
+
+=head2 Specialised Import Lists
+
+If any of the entries in an import list begins with !, : or / then
+the list is treated as a series of specifications which either add to
+or delete from the list of names to import.  They are processed left to
+right. Specifications are in the form:
+
+    [!]name         This name only
+    [!]:DEFAULT     All names in @EXPORT
+    [!]:tag         All names in $EXPORT_TAGS{tag} anonymous array
+    [!]/pattern/    All names in @EXPORT and @EXPORT_OK which match
+
+A leading ! indicates that matching names should be deleted from the
+list of names to import.  If the first specification is a deletion it
+is treated as though preceded by :DEFAULT.  If you just want to import
+extra names in addition to the default set you will still need to
+include :DEFAULT explicitly.
+
+e.g., F<Module.pm> defines:
+
+    @EXPORT      = qw(A1 A2 A3 A4 A5);
+    @EXPORT_OK   = qw(B1 B2 B3 B4 B5);
+    %EXPORT_TAGS = (T1 => [qw(A1 A2 B1 B2)], T2 => [qw(A1 A2 B3 B4)]);
+
+Note that you cannot use tags in @EXPORT or @EXPORT_OK.
+
+Names in EXPORT_TAGS must also appear in @EXPORT or @EXPORT_OK.
+
+An application using Module can say something like:
+
+    use Module qw(:DEFAULT :T2 !B3 A3);
+
+Other examples include:
+
+    use Socket qw(!/^[AP]F_/ !SOMAXCONN !SOL_SOCKET);
+    use POSIX  qw(:errno_h :termios_h !TCSADRAIN !/^EXIT/);
+
+Remember that most patterns (using //) will need to be anchored
+with a leading ^, e.g., C</^EXIT/> rather than C</EXIT/>.
+
+You can say C<BEGIN { $Exporter::Verbose=1 }> to see how the
+specifications are being processed and what is actually being imported
+into modules.
+
+=head2 Exporting Without Using Exporter's import Method
+
+Exporter has a special method, 'export_to_level' which is used in situations
+where you can't directly call Exporter's
+import method.  The export_to_level
+method looks like:
+
+    MyPackage->export_to_level(
+	$where_to_export, $package, @what_to_export
+    );
+
+where C<$where_to_export> is an integer telling how far up the calling stack
+to export your symbols, and C<@what_to_export> is an array telling what
+symbols *to* export (usually this is C<@_>).  The C<$package> argument is
+currently unused.
+
+For example, suppose that you have a module, A, which already has an
+import function:
+
+    package A;
+
+    @ISA = qw(Exporter);
+    @EXPORT_OK = qw($b);
+
+    sub import
+    {
+	$A::b = 1;     # not a very useful import method
+    }
+
+and you want to Export symbol C<$A::b> back to the module that called 
+package A.  Since Exporter relies on the import method to work, via 
+inheritance, as it stands Exporter::import() will never get called. 
+Instead, say the following:
+
+    package A;
+    @ISA = qw(Exporter);
+    @EXPORT_OK = qw($b);
+
+    sub import
+    {
+	$A::b = 1;
+	A->export_to_level(1, @_);
+    }
+
+This will export the symbols one level 'above' the current package - ie: to 
+the program or module that used package A. 
+
+Note: Be careful not to modify C<@_> at all before you call export_to_level
+- or people using your package will get very unexplained results!
+
+=head2 Exporting Without Inheriting from Exporter
+
+By including Exporter in your C<@ISA> you inherit an Exporter's import() method
+but you also inherit several other helper methods which you probably don't
+want.  To avoid this you can do:
+
+  package YourModule;
+  use Exporter qw(import);
+
+which will export Exporter's own import() method into YourModule.
+Everything will work as before but you won't need to include Exporter in
+C<@YourModule::ISA>.
+
+Note: This feature was introduced in version 5.57
+of Exporter, released with perl 5.8.3.
+
+=head2 Module Version Checking
+
+The Exporter module will convert an attempt to import a number from a
+module into a call to C<< $module_name->VERSION($value) >>.  This can
+be used to validate that the version of the module being used is
+greater than or equal to the required version.
+
+For historical reasons, Exporter supplies a C<require_version> method that
+simply delegates to C<VERSION>.  Originally, before C<UNIVERSAL::VERSION>
+existed, Exporter would call C<require_version>.
+
+Since the C<UNIVERSAL::VERSION> method treats the C<$VERSION> number as
+a simple numeric value it will regard version 1.10 as lower than
+1.9.  For this reason it is strongly recommended that you use numbers
+with at least two decimal places, e.g., 1.09.
+
+=head2 Managing Unknown Symbols
+
+In some situations you may want to prevent certain symbols from being
+exported.  Typically this applies to extensions which have functions
+or constants that may not exist on some systems.
+
+The names of any symbols that cannot be exported should be listed
+in the C<@EXPORT_FAIL> array.
+
+If a module attempts to import any of these symbols the Exporter
+will give the module an opportunity to handle the situation before
+generating an error.  The Exporter will call an export_fail method
+with a list of the failed symbols:
+
+  @failed_symbols = $module_name->export_fail(@failed_symbols);
+
+If the C<export_fail> method returns an empty list then no error is
+recorded and all the requested symbols are exported.  If the returned
+list is not empty then an error is generated for each symbol and the
+export fails.  The Exporter provides a default C<export_fail> method which
+simply returns the list unchanged.
+
+Uses for the C<export_fail> method include giving better error messages
+for some symbols and performing lazy architectural checks (put more
+symbols into C<@EXPORT_FAIL> by default and then take them out if someone
+actually tries to use them and an expensive check shows that they are
+usable on that platform).
+
+=head2 Tag Handling Utility Functions
+
+Since the symbols listed within C<%EXPORT_TAGS> must also appear in either
+C<@EXPORT> or C<@EXPORT_OK>, two utility functions are provided which allow
+you to easily add tagged sets of symbols to C<@EXPORT> or C<@EXPORT_OK>:
+
+  %EXPORT_TAGS = (foo => [qw(aa bb cc)], bar => [qw(aa cc dd)]);
+
+  Exporter::export_tags('foo');     # add aa, bb and cc to @EXPORT
+  Exporter::export_ok_tags('bar');  # add aa, cc and dd to @EXPORT_OK
+
+Any names which are not tags are added to C<@EXPORT> or C<@EXPORT_OK>
+unchanged but will trigger a warning (with C<-w>) to avoid misspelt tags
+names being silently added to C<@EXPORT> or C<@EXPORT_OK>.  Future versions
+may make this a fatal error.
+
+=head2 Generating Combined Tags
+
+If several symbol categories exist in C<%EXPORT_TAGS>, it's usually
+useful to create the utility ":all" to simplify "use" statements.
+
+The simplest way to do this is:
+
+  %EXPORT_TAGS = (foo => [qw(aa bb cc)], bar => [qw(aa cc dd)]);
+
+  # add all the other ":class" tags to the ":all" class,
+  # deleting duplicates
+  {
+    my %seen;
+
+    push @{$EXPORT_TAGS{all}},
+      grep {!$seen{$_}++} @{$EXPORT_TAGS{$_}} foreach keys %EXPORT_TAGS;
+  }
+
+F<CGI.pm> creates an ":all" tag which contains some (but not really
+all) of its categories.  That could be done with one small
+change:
+
+  # add some of the other ":class" tags to the ":all" class,
+  # deleting duplicates
+  {
+    my %seen;
+
+    push @{$EXPORT_TAGS{all}},
+      grep {!$seen{$_}++} @{$EXPORT_TAGS{$_}}
+        foreach qw/html2 html3 netscape form cgi internal/;
+  }
+
+Note that the tag names in C<%EXPORT_TAGS> don't have the leading ':'.
+
+=head2 C<AUTOLOAD>ed Constants
+
+Many modules make use of C<AUTOLOAD>ing for constant subroutines to
+avoid having to compile and waste memory on rarely used values (see
+L<perlsub> for details on constant subroutines).  Calls to such
+constant subroutines are not optimized away at compile time because
+they can't be checked at compile time for constancy.
+
+Even if a prototype is available at compile time, the body of the
+subroutine is not (it hasn't been C<AUTOLOAD>ed yet).  perl needs to
+examine both the C<()> prototype and the body of a subroutine at
+compile time to detect that it can safely replace calls to that
+subroutine with the constant value.
+
+A workaround for this is to call the constants once in a C<BEGIN> block:
+
+   package My ;
+
+   use Socket ;
+
+   foo( SO_LINGER );  ## SO_LINGER NOT optimized away; called at runtime
+   BEGIN { SO_LINGER }
+   foo( SO_LINGER );  ## SO_LINGER optimized away at compile time.
+
+This forces the C<AUTOLOAD> for C<SO_LINGER> to take place before
+SO_LINGER is encountered later in C<My> package.
+
+If you are writing a package that C<AUTOLOAD>s, consider forcing
+an C<AUTOLOAD> for any constants explicitly imported by other packages
+or which are usually used when your package is C<use>d.
+
+=head1 Good Practices
+
+=head2 Declaring C<@EXPORT_OK> and Friends
+
+When using C<Exporter> with the standard C<strict> and C<warnings>
+pragmas, the C<our> keyword is needed to declare the package
+variables C<@EXPORT_OK>, C<@EXPORT>, C<@ISA>, etc.
+
+  our @ISA = qw(Exporter);
+  our @EXPORT_OK = qw(munge frobnicate);
+
+If backward compatibility for Perls under 5.6 is important,
+one must write instead a C<use vars> statement.
+
+  use vars qw(@ISA @EXPORT_OK);
+  @ISA = qw(Exporter);
+  @EXPORT_OK = qw(munge frobnicate);
+
+=head2 Playing Safe
+
+There are some caveats with the use of runtime statements
+like C<require Exporter> and the assignment to package
+variables, which can be very subtle for the unaware programmer.
+This may happen for instance with mutually recursive
+modules, which are affected by the time the relevant
+constructions are executed.
+
+The ideal (but a bit ugly) way to never have to think
+about that is to use C<BEGIN> blocks.  So the first part
+of the L</SYNOPSIS> code could be rewritten as:
+
+  package YourModule;
+
+  use strict;
+  use warnings;
+
+  our (@ISA, @EXPORT_OK);
+  BEGIN {
+     require Exporter;
+     @ISA = qw(Exporter);
+     @EXPORT_OK = qw(munge frobnicate);  # symbols to export on request
+  }
+
+The C<BEGIN> will assure that the loading of F<Exporter.pm>
+and the assignments to C<@ISA> and C<@EXPORT_OK> happen
+immediately, leaving no room for something to get awry
+or just plain wrong.
+
+With respect to loading C<Exporter> and inheriting, there
+are alternatives with the use of modules like C<base> and C<parent>.
+
+  use base qw(Exporter);
+  # or
+  use parent qw(Exporter);
+
+Any of these statements are nice replacements for
+C<BEGIN { require Exporter; @ISA = qw(Exporter); }>
+with the same compile-time effect.  The basic difference
+is that C<base> code interacts with declared C<fields>
+while C<parent> is a streamlined version of the older
+C<base> code to just establish the IS-A relationship.
+
+For more details, see the documentation and code of
+L<base> and L<parent>.
+
+Another thorough remedy to that runtime
+vs. compile-time trap is to use L<Exporter::Easy>,
+which is a wrapper of Exporter that allows all
+boilerplate code at a single gulp in the
+use statement.
+
+   use Exporter::Easy (
+       OK => [ qw(munge frobnicate) ],
+   );
+   # @ISA setup is automatic
+   # all assignments happen at compile time
+
+=head2 What Not to Export
+
+You have been warned already in L</Selecting What to Export>
+to not export:
+
+=over 4
+
+=item *
+
+method names (because you don't need to
+and that's likely to not do what you want),
+
+=item *
+
+anything by default (because you don't want to surprise your users...
+badly)
+
+=item *
+
+anything you don't need to (because less is more)
+
+=back
+
+There's one more item to add to this list.  Do B<not>
+export variable names.  Just because C<Exporter> lets you
+do that, it does not mean you should.
+
+  @EXPORT_OK = qw($svar @avar %hvar); # DON'T!
+
+Exporting variables is not a good idea.  They can
+change under the hood, provoking horrible
+effects at-a-distance that are too hard to track
+and to fix.  Trust me: they are not worth it.
+
+To provide the capability to set/get class-wide
+settings, it is best instead to provide accessors
+as subroutines or class methods instead.
+
+=head1 SEE ALSO
+
+C<Exporter> is definitely not the only module with
+symbol exporter capabilities.  At CPAN, you may find
+a bunch of them.  Some are lighter.  Some
+provide improved APIs and features.  Pick the one
+that fits your needs.  The following is
+a sample list of such modules.
+
+    Exporter::Easy
+    Exporter::Lite
+    Exporter::Renaming
+    Exporter::Tidy
+    Sub::Exporter / Sub::Installer
+    Perl6::Export / Perl6::Export::Attrs
+
+=head1 LICENSE
+
+This library is free software.  You can redistribute it
+and/or modify it under the same terms as Perl itself.
+
+=cut
+
+
+
diff --git a/lib/5.24.1/Exporter/Heavy.pm b/lib/5.24.1/Exporter/Heavy.pm
new file mode 100644
index 00000000..21b67c18
--- /dev/null
+++ b/lib/5.24.1/Exporter/Heavy.pm
@@ -0,0 +1,253 @@
+package Exporter::Heavy;
+
+use strict;
+no strict 'refs';
+
+# On one line so MakeMaker will see it.
+require Exporter;  our $VERSION = $Exporter::VERSION;
+
+=head1 NAME
+
+Exporter::Heavy - Exporter guts
+
+=head1 SYNOPSIS
+
+(internal use only)
+
+=head1 DESCRIPTION
+
+No user-serviceable parts inside.
+
+=cut
+
+#
+# We go to a lot of trouble not to 'require Carp' at file scope,
+#  because Carp requires Exporter, and something has to give.
+#
+
+sub _rebuild_cache {
+    my ($pkg, $exports, $cache) = @_;
+    s/^&// foreach @$exports;
+    @{$cache}{@$exports} = (1) x @$exports;
+    my $ok = \@{"${pkg}::EXPORT_OK"};
+    if (@$ok) {
+	s/^&// foreach @$ok;
+	@{$cache}{@$ok} = (1) x @$ok;
+    }
+}
+
+sub heavy_export {
+
+    # Save the old __WARN__ handler in case it was defined
+    my $oldwarn = $SIG{__WARN__};
+
+    # First make import warnings look like they're coming from the "use".
+    local $SIG{__WARN__} = sub {
+	# restore it back so proper stacking occurs
+	local $SIG{__WARN__} = $oldwarn;
+	my $text = shift;
+	if ($text =~ s/ at \S*Exporter\S*.pm line \d+.*\n//) {
+	    require Carp;
+	    local $Carp::CarpLevel = 1;	# ignore package calling us too.
+	    Carp::carp($text);
+	}
+	else {
+	    warn $text;
+	}
+    };
+    local $SIG{__DIE__} = sub {
+	require Carp;
+	local $Carp::CarpLevel = 1;	# ignore package calling us too.
+	Carp::croak("$_[0]Illegal null symbol in \@${1}::EXPORT")
+	    if $_[0] =~ /^Unable to create sub named "(.*?)::"/;
+    };
+
+    my($pkg, $callpkg, @imports) = @_;
+    my($type, $sym, $cache_is_current, $oops);
+    my($exports, $export_cache) = (\@{"${pkg}::EXPORT"},
+                                   $Exporter::Cache{$pkg} ||= {});
+
+    if (@imports) {
+	if (!%$export_cache) {
+	    _rebuild_cache ($pkg, $exports, $export_cache);
+	    $cache_is_current = 1;
+	}
+
+	if (grep m{^[/!:]}, @imports) {
+	    my $tagsref = \%{"${pkg}::EXPORT_TAGS"};
+	    my $tagdata;
+	    my %imports;
+	    my($remove, $spec, @names, @allexports);
+	    # negated first item implies starting with default set:
+	    unshift @imports, ':DEFAULT' if $imports[0] =~ m/^!/;
+	    foreach $spec (@imports){
+		$remove = $spec =~ s/^!//;
+
+		if ($spec =~ s/^://){
+		    if ($spec eq 'DEFAULT'){
+			@names = @$exports;
+		    }
+		    elsif ($tagdata = $tagsref->{$spec}) {
+			@names = @$tagdata;
+		    }
+		    else {
+			warn qq["$spec" is not defined in %${pkg}::EXPORT_TAGS];
+			++$oops;
+			next;
+		    }
+		}
+		elsif ($spec =~ m:^/(.*)/$:){
+		    my $patn = $1;
+		    @allexports = keys %$export_cache unless @allexports; # only do keys once
+		    @names = grep(/$patn/, @allexports); # not anchored by default
+		}
+		else {
+		    @names = ($spec); # is a normal symbol name
+		}
+
+		warn "Import ".($remove ? "del":"add").": @names "
+		    if $Exporter::Verbose;
+
+		if ($remove) {
+		   foreach $sym (@names) { delete $imports{$sym} } 
+		}
+		else {
+		    @imports{@names} = (1) x @names;
+		}
+	    }
+	    @imports = keys %imports;
+	}
+
+        my @carp;
+	foreach $sym (@imports) {
+	    if (!$export_cache->{$sym}) {
+		if ($sym =~ m/^\d/) {
+		    $pkg->VERSION($sym); # inherit from UNIVERSAL
+		    # If the version number was the only thing specified
+		    # then we should act as if nothing was specified:
+		    if (@imports == 1) {
+			@imports = @$exports;
+			last;
+		    }
+		    # We need a way to emulate 'use Foo ()' but still
+		    # allow an easy version check: "use Foo 1.23, ''";
+		    if (@imports == 2 and !$imports[1]) {
+			@imports = ();
+			last;
+		    }
+		} elsif ($sym !~ s/^&// || !$export_cache->{$sym}) {
+		    # Last chance - see if they've updated EXPORT_OK since we
+		    # cached it.
+
+		    unless ($cache_is_current) {
+			%$export_cache = ();
+			_rebuild_cache ($pkg, $exports, $export_cache);
+			$cache_is_current = 1;
+		    }
+
+		    if (!$export_cache->{$sym}) {
+			# accumulate the non-exports
+			push @carp,
+			  qq["$sym" is not exported by the $pkg module\n];
+			$oops++;
+		    }
+		}
+	    }
+	}
+	if ($oops) {
+	    require Carp;
+	    Carp::croak("@{carp}Can't continue after import errors");
+	}
+    }
+    else {
+	@imports = @$exports;
+    }
+
+    my($fail, $fail_cache) = (\@{"${pkg}::EXPORT_FAIL"},
+                              $Exporter::FailCache{$pkg} ||= {});
+
+    if (@$fail) {
+	if (!%$fail_cache) {
+	    # Build cache of symbols. Optimise the lookup by adding
+	    # barewords twice... both with and without a leading &.
+	    # (Technique could be applied to $export_cache at cost of memory)
+	    my @expanded = map { /^\w/ ? ($_, '&'.$_) : $_ } @$fail;
+	    warn "${pkg}::EXPORT_FAIL cached: @expanded" if $Exporter::Verbose;
+	    @{$fail_cache}{@expanded} = (1) x @expanded;
+	}
+	my @failed;
+	foreach $sym (@imports) { push(@failed, $sym) if $fail_cache->{$sym} }
+	if (@failed) {
+	    @failed = $pkg->export_fail(@failed);
+	    foreach $sym (@failed) {
+                require Carp;
+		Carp::carp(qq["$sym" is not implemented by the $pkg module ],
+			"on this architecture");
+	    }
+	    if (@failed) {
+		require Carp;
+		Carp::croak("Can't continue after import errors");
+	    }
+	}
+    }
+
+    warn "Importing into $callpkg from $pkg: ",
+		join(", ",sort @imports) if $Exporter::Verbose;
+
+    foreach $sym (@imports) {
+	# shortcut for the common case of no type character
+	(*{"${callpkg}::$sym"} = \&{"${pkg}::$sym"}, next)
+	    unless $sym =~ s/^(\W)//;
+	$type = $1;
+	no warnings 'once';
+	*{"${callpkg}::$sym"} =
+	    $type eq '&' ? \&{"${pkg}::$sym"} :
+	    $type eq '$' ? \${"${pkg}::$sym"} :
+	    $type eq '@' ? \@{"${pkg}::$sym"} :
+	    $type eq '%' ? \%{"${pkg}::$sym"} :
+	    $type eq '*' ?  *{"${pkg}::$sym"} :
+	    do { require Carp; Carp::croak("Can't export symbol: $type$sym") };
+    }
+}
+
+sub heavy_export_to_level
+{
+      my $pkg = shift;
+      my $level = shift;
+      (undef) = shift;			# XXX redundant arg
+      my $callpkg = caller($level);
+      $pkg->export($callpkg, @_);
+}
+
+# Utility functions
+
+sub _push_tags {
+    my($pkg, $var, $syms) = @_;
+    my @nontag = ();
+    my $export_tags = \%{"${pkg}::EXPORT_TAGS"};
+    push(@{"${pkg}::$var"},
+	map { $export_tags->{$_} ? @{$export_tags->{$_}} 
+                                 : scalar(push(@nontag,$_),$_) }
+		(@$syms) ? @$syms : keys %$export_tags);
+    if (@nontag and $^W) {
+	# This may change to a die one day
+	require Carp;
+	Carp::carp(join(", ", @nontag)." are not tags of $pkg");
+    }
+}
+
+sub heavy_require_version {
+    my($self, $wanted) = @_;
+    my $pkg = ref $self || $self;
+    return ${pkg}->VERSION($wanted);
+}
+
+sub heavy_export_tags {
+  _push_tags((caller)[0], "EXPORT",    \@_);
+}
+
+sub heavy_export_ok_tags {
+  _push_tags((caller)[0], "EXPORT_OK", \@_);
+}
+
+1;
diff --git a/lib/5.24.1/ExtUtils/CBuilder.pm b/lib/5.24.1/ExtUtils/CBuilder.pm
new file mode 100644
index 00000000..6ce0c687
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/CBuilder.pm
@@ -0,0 +1,297 @@
+package ExtUtils::CBuilder;
+$ExtUtils::CBuilder::VERSION = '0.280225';
+use File::Spec ();
+use File::Path ();
+use File::Basename ();
+use Perl::OSType qw/os_type/;
+
+use warnings;
+use strict;
+use vars qw(@ISA);
+
+# We only use this once - don't waste a symbol table entry on it.
+# More importantly, don't make it an inheritable method.
+my $load = sub {
+  my $mod = shift;
+  eval "use $mod";
+  die $@ if $@;
+  @ISA = ($mod);
+};
+
+{
+  my @package = split /::/, __PACKAGE__;
+
+  my $ostype = os_type();
+
+  if (grep {-e File::Spec->catfile($_, @package, 'Platform', $^O) . '.pm'} @INC) {
+      $load->(__PACKAGE__ . "::Platform::$^O");
+
+  } elsif ( $ostype &&
+            grep {-e File::Spec->catfile($_, @package, 'Platform', $ostype) . '.pm'} @INC) {
+      $load->(__PACKAGE__ . "::Platform::$ostype");
+
+  } else {
+      $load->(__PACKAGE__ . "::Base");
+  }
+}
+
+1;
+__END__
+
+=head1 NAME
+
+ExtUtils::CBuilder - Compile and link C code for Perl modules
+
+=head1 SYNOPSIS
+
+  use ExtUtils::CBuilder;
+
+  my $b = ExtUtils::CBuilder->new(%options);
+  $obj_file = $b->compile(source => 'MyModule.c');
+  $lib_file = $b->link(objects => $obj_file);
+
+=head1 DESCRIPTION
+
+This module can build the C portions of Perl modules by invoking the
+appropriate compilers and linkers in a cross-platform manner.  It was
+motivated by the C<Module::Build> project, but may be useful for other
+purposes as well.  However, it is I<not> intended as a general
+cross-platform interface to all your C building needs.  That would
+have been a much more ambitious goal!
+
+=head1 METHODS
+
+=over 4
+
+=item new
+
+Returns a new C<ExtUtils::CBuilder> object.  A C<config> parameter
+lets you override C<Config.pm> settings for all operations performed
+by the object, as in the following example:
+
+  # Use a different compiler than Config.pm says
+  my $b = ExtUtils::CBuilder->new( config =>
+                                   { ld => 'gcc' } );
+
+A C<quiet> parameter tells C<CBuilder> to not print its C<system()>
+commands before executing them:
+
+  # Be quieter than normal
+  my $b = ExtUtils::CBuilder->new( quiet => 1 );
+
+=item have_compiler
+
+Returns true if the current system has a working C compiler and
+linker, false otherwise.  To determine this, we actually compile and
+link a sample C library.  The sample will be compiled in the system
+tempdir or, if that fails for some reason, in the current directory.
+
+=item have_cplusplus
+
+Just like have_compiler but for C++ instead of C.
+
+=item compile
+
+Compiles a C source file and produces an object file.  The name of the
+object file is returned.  The source file is specified in a C<source>
+parameter, which is required; the other parameters listed below are
+optional.
+
+=over 4
+
+=item C<object_file>
+
+Specifies the name of the output file to create.  Otherwise the
+C<object_file()> method will be consulted, passing it the name of the
+C<source> file.
+
+=item C<include_dirs>
+
+Specifies any additional directories in which to search for header
+files.  May be given as a string indicating a single directory, or as
+a list reference indicating multiple directories.
+
+=item C<extra_compiler_flags>
+
+Specifies any additional arguments to pass to the compiler.  Should be
+given as a list reference containing the arguments individually, or if
+this is not possible, as a string containing all the arguments
+together.
+
+=item C<C++>
+
+Specifies that the source file is a C++ source file and sets appropriate
+compiler flags
+
+=back
+
+The operation of this method is also affected by the
+C<archlibexp>, C<cccdlflags>, C<ccflags>, C<optimize>, and C<cc>
+entries in C<Config.pm>.
+
+=item link
+
+Invokes the linker to produce a library file from object files.  In
+scalar context, the name of the library file is returned.  In list
+context, the library file and any temporary files created are
+returned.  A required C<objects> parameter contains the name of the
+object files to process, either in a string (for one object file) or
+list reference (for one or more files).  The following parameters are
+optional:
+
+
+=over 4
+
+=item lib_file
+
+Specifies the name of the output library file to create.  Otherwise
+the C<lib_file()> method will be consulted, passing it the name of
+the first entry in C<objects>.
+
+=item module_name
+
+Specifies the name of the Perl module that will be created by linking.
+On platforms that need to do prelinking (Win32, OS/2, etc.) this is a
+required parameter.
+
+=item extra_linker_flags
+
+Any additional flags you wish to pass to the linker.
+
+=back
+
+On platforms where C<need_prelink()> returns true, C<prelink()>
+will be called automatically.
+
+The operation of this method is also affected by the C<lddlflags>,
+C<shrpenv>, and C<ld> entries in C<Config.pm>.
+
+=item link_executable
+
+Invokes the linker to produce an executable file from object files.  In
+scalar context, the name of the executable file is returned.  In list
+context, the executable file and any temporary files created are
+returned.  A required C<objects> parameter contains the name of the
+object files to process, either in a string (for one object file) or
+list reference (for one or more files).  The optional parameters are
+the same as C<link> with exception for
+
+
+=over 4
+
+=item exe_file
+
+Specifies the name of the output executable file to create.  Otherwise
+the C<exe_file()> method will be consulted, passing it the name of the
+first entry in C<objects>.
+
+=back
+
+=item object_file
+
+ my $object_file = $b->object_file($source_file);
+
+Converts the name of a C source file to the most natural name of an
+output object file to create from it.  For instance, on Unix the
+source file F<foo.c> would result in the object file F<foo.o>.
+
+=item lib_file
+
+ my $lib_file = $b->lib_file($object_file);
+
+Converts the name of an object file to the most natural name of a
+output library file to create from it.  For instance, on Mac OS X the
+object file F<foo.o> would result in the library file F<foo.bundle>.
+
+=item exe_file
+
+ my $exe_file = $b->exe_file($object_file);
+
+Converts the name of an object file to the most natural name of an
+executable file to create from it.  For instance, on Mac OS X the
+object file F<foo.o> would result in the executable file F<foo>, and
+on Windows it would result in F<foo.exe>.
+
+
+=item prelink
+
+On certain platforms like Win32, OS/2, VMS, and AIX, it is necessary
+to perform some actions before invoking the linker.  The
+C<ExtUtils::Mksymlists> module does this, writing files used by the
+linker during the creation of shared libraries for dynamic extensions.
+The names of any files written will be returned as a list.
+
+Several parameters correspond to C<ExtUtils::Mksymlists::Mksymlists()>
+options, as follows:
+
+    Mksymlists()   prelink()          type
+   -------------|-------------------|-------------------
+    NAME        |  dl_name          | string (required)
+    DLBASE      |  dl_base          | string
+    FILE        |  dl_file          | string
+    DL_VARS     |  dl_vars          | array reference
+    DL_FUNCS    |  dl_funcs         | hash reference
+    FUNCLIST    |  dl_func_list     | array reference
+    IMPORTS     |  dl_imports       | hash reference
+    VERSION     |  dl_version       | string
+
+Please see the documentation for C<ExtUtils::Mksymlists> for the
+details of what these parameters do.
+
+=item need_prelink
+
+Returns true on platforms where C<prelink()> should be called
+during linking, and false otherwise.
+
+=item extra_link_args_after_prelink
+
+Returns list of extra arguments to give to the link command; the arguments
+are the same as for prelink(), with addition of array reference to the
+results of prelink(); this reference is indexed by key C<prelink_res>.
+
+=back
+
+=head1 TO DO
+
+Currently this has only been tested on Unix and doesn't contain any of
+the Windows-specific code from the C<Module::Build> project.  I'll do
+that next.
+
+=head1 HISTORY
+
+This module is an outgrowth of the C<Module::Build> project, to which
+there have been many contributors.  Notably, Randy W. Sims submitted
+lots of code to support 3 compilers on Windows and helped with various
+other platform-specific issues.  Ilya Zakharevich has contributed
+fixes for OS/2; John E. Malmberg and Peter Prymmer have done likewise
+for VMS.
+
+=head1 SUPPORT
+
+ExtUtils::CBuilder is maintained as part of the Perl 5 core.  Please
+submit any bug reports via the F<perlbug> tool included with Perl 5.
+Bug reports will be included in the Perl 5 ticket system at
+L<http://rt.perl.org>.
+
+The Perl 5 source code is available at <http://perl5.git.perl.org/perl.git>
+and ExtUtils-CBuilder may be found in the F<dist/ExtUtils-CBuilder> directory
+of the repository.
+
+=head1 AUTHOR
+
+Ken Williams, kwilliams@cpan.org
+
+Additional contributions by The Perl 5 Porters.
+
+=head1 COPYRIGHT
+
+Copyright (c) 2003-2005 Ken Williams.  All rights reserved.
+
+This library is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+=head1 SEE ALSO
+
+perl(1), Module::Build(3)
+
+=cut
diff --git a/lib/5.24.1/ExtUtils/CBuilder/Base.pm b/lib/5.24.1/ExtUtils/CBuilder/Base.pm
new file mode 100644
index 00000000..60b2f432
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/CBuilder/Base.pm
@@ -0,0 +1,394 @@
+package ExtUtils::CBuilder::Base;
+$ExtUtils::CBuilder::Base::VERSION = '0.280225';
+use strict;
+use warnings;
+use File::Spec;
+use File::Basename;
+use Cwd ();
+use Config;
+use Text::ParseWords;
+use IPC::Cmd qw(can_run);
+use File::Temp qw(tempfile);
+
+# More details about C/C++ compilers:
+# http://developers.sun.com/sunstudio/documentation/product/compiler.jsp
+# http://gcc.gnu.org/
+# http://publib.boulder.ibm.com/infocenter/comphelp/v101v121/index.jsp
+# http://msdn.microsoft.com/en-us/vstudio/default.aspx
+
+my %cc2cxx = (
+    # first line order is important to support wrappers like in pkgsrc
+    cc => [ 'c++', 'CC', 'aCC', 'cxx', ], # Sun Studio, HP ANSI C/C++ Compilers
+    gcc => [ 'g++' ], # GNU Compiler Collection
+    xlc => [ 'xlC' ], # IBM C/C++ Set, xlc without thread-safety
+    xlc_r => [ 'xlC_r' ], # IBM C/C++ Set, xlc with thread-safety
+    cl    => [ 'cl' ], # Microsoft Visual Studio
+);
+
+sub new {
+  my $class = shift;
+  my $self = bless {@_}, $class;
+
+  $self->{properties}{perl} = $class->find_perl_interpreter
+    or warn "Warning: Can't locate your perl binary";
+
+  while (my ($k,$v) = each %Config) {
+    $self->{config}{$k} = $v unless exists $self->{config}{$k};
+  }
+  $self->{config}{cc} = $ENV{CC} if defined $ENV{CC};
+  $self->{config}{ccflags} = join(" ", $self->{config}{ccflags}, $ENV{CFLAGS})
+     if defined $ENV{CFLAGS};
+  $self->{config}{cxx} = $ENV{CXX} if defined $ENV{CXX};
+  $self->{config}{cxxflags} = $ENV{CXXFLAGS} if defined $ENV{CXXFLAGS};
+  $self->{config}{ld} = $ENV{LD} if defined $ENV{LD};
+  $self->{config}{ldflags} = join(" ", $self->{config}{ldflags}, $ENV{LDFLAGS})
+     if defined $ENV{LDFLAGS};
+
+  unless ( exists $self->{config}{cxx} ) {
+    my ($ccpath, $ccbase, $ccsfx ) = fileparse($self->{config}{cc}, qr/\.[^.]*/);
+    foreach my $cxx (@{$cc2cxx{$ccbase}}) {
+      if( can_run( File::Spec->catfile( $ccpath, $cxx, $ccsfx ) ) ) {
+        $self->{config}{cxx} = File::Spec->catfile( $ccpath, $cxx, $ccsfx );
+	last;
+      }
+      if( can_run( File::Spec->catfile( $cxx, $ccsfx ) ) ) {
+        $self->{config}{cxx} = File::Spec->catfile( $cxx, $ccsfx );
+	last;
+      }
+      if( can_run( $cxx ) ) {
+        $self->{config}{cxx} = $cxx;
+	last;
+      }
+    }
+    unless ( exists $self->{config}{cxx} ) {
+      $self->{config}{cxx} = $self->{config}{cc};
+      my $cflags = $self->{config}{ccflags};
+      $self->{config}{cxxflags} = '-x c++';
+      $self->{config}{cxxflags} .= " $cflags" if defined $cflags;
+    }
+  }
+
+  return $self;
+}
+
+sub find_perl_interpreter {
+  my $perl;
+  File::Spec->file_name_is_absolute($perl = $^X)
+    or -f ($perl = $Config::Config{perlpath})
+    or ($perl = $^X); # XXX how about using IPC::Cmd::can_run here?
+  return $perl;
+}
+
+sub add_to_cleanup {
+  my $self = shift;
+  foreach (@_) {
+    $self->{files_to_clean}{$_} = 1;
+  }
+}
+
+sub cleanup {
+  my $self = shift;
+  foreach my $file (keys %{$self->{files_to_clean}}) {
+    unlink $file;
+  }
+}
+
+sub get_config {
+    return %{ $_[0]->{config} };
+}
+
+sub object_file {
+  my ($self, $filename) = @_;
+
+  # File name, minus the suffix
+  (my $file_base = $filename) =~ s/\.[^.]+$//;
+  return "$file_base$self->{config}{obj_ext}";
+}
+
+sub arg_include_dirs {
+  my $self = shift;
+  return map {"-I$_"} @_;
+}
+
+sub arg_nolink { '-c' }
+
+sub arg_object_file {
+  my ($self, $file) = @_;
+  return ('-o', $file);
+}
+
+sub arg_share_object_file {
+  my ($self, $file) = @_;
+  return ($self->split_like_shell($self->{config}{lddlflags}), '-o', $file);
+}
+
+sub arg_exec_file {
+  my ($self, $file) = @_;
+  return ('-o', $file);
+}
+
+sub arg_defines {
+  my ($self, %args) = @_;
+  return map "-D$_=$args{$_}", sort keys %args;
+}
+
+sub compile {
+  my ($self, %args) = @_;
+  die "Missing 'source' argument to compile()" unless defined $args{source};
+
+  my $cf = $self->{config}; # For convenience
+
+  my $object_file = $args{object_file}
+    ? $args{object_file}
+    : $self->object_file($args{source});
+
+  my $include_dirs_ref =
+    (exists($args{include_dirs}) && ref($args{include_dirs}) ne "ARRAY")
+      ? [ $args{include_dirs} ]
+      : $args{include_dirs};
+  my @include_dirs = $self->arg_include_dirs(
+    @{ $include_dirs_ref || [] },
+    $self->perl_inc(),
+  );
+
+  my @defines = $self->arg_defines( %{$args{defines} || {}} );
+
+  my @extra_compiler_flags =
+    $self->split_like_shell($args{extra_compiler_flags});
+  my @cccdlflags = $self->split_like_shell($cf->{cccdlflags});
+  my @ccflags = $self->split_like_shell($args{'C++'} ? $cf->{cxxflags} : $cf->{ccflags});
+  my @optimize = $self->split_like_shell($cf->{optimize});
+  my @flags = (
+    @include_dirs,
+    @defines,
+    @cccdlflags,
+    @extra_compiler_flags,
+    $self->arg_nolink,
+    @ccflags,
+    @optimize,
+    $self->arg_object_file($object_file),
+  );
+  my @cc = $self->split_like_shell($args{'C++'} ? $cf->{cxx} : $cf->{cc});
+
+  $self->do_system(@cc, @flags, $args{source})
+    or die "error building $object_file from '$args{source}'";
+
+  return $object_file;
+}
+
+sub have_compiler {
+  my ($self, $is_cplusplus) = @_;
+  my $have_compiler_flag = $is_cplusplus ? "have_cxx" : "have_cc";
+  my $suffix = $is_cplusplus ? ".cc" : ".c";
+  return $self->{$have_compiler_flag} if defined $self->{$have_compiler_flag};
+
+  my $result;
+  my $attempts = 3;
+  # tmpdir has issues for some people so fall back to current dir
+
+  # don't clobber existing files (rare, but possible)
+  my ( $FH, $tmpfile ) = tempfile( "compilet-XXXXX", SUFFIX => $suffix );
+  binmode $FH;
+
+  if ( $is_cplusplus ) {
+    print $FH "class Bogus { public: int boot_compilet() { return 1; } };\n";
+  }
+  else {
+    print $FH "int boot_compilet() { return 1; }\n";
+  }
+  close $FH;
+
+  my ($obj_file, @lib_files);
+  eval {
+    local $^W = 0;
+    local $self->{quiet} = 1;
+    $obj_file = $self->compile('C++' => $is_cplusplus, source => $tmpfile);
+    @lib_files = $self->link(objects => $obj_file, module_name => 'compilet');
+  };
+  $result = $@ ? 0 : 1;
+
+  foreach (grep defined, $tmpfile, $obj_file, @lib_files) {
+    1 while unlink;
+  }
+
+  return $self->{$have_compiler_flag} = $result;
+}
+
+sub have_cplusplus {
+  push @_, 1;
+  goto &have_compiler;
+}
+
+sub lib_file {
+  my ($self, $dl_file, %args) = @_;
+  $dl_file =~ s/\.[^.]+$//;
+  $dl_file =~ tr/"//d;
+
+  if (defined $args{module_name} and length $args{module_name}) {
+    # Need to create with the same name as DynaLoader will load with.
+    require DynaLoader;
+    if (defined &DynaLoader::mod2fname) {
+      my $lib = DynaLoader::mod2fname([split /::/, $args{module_name}]);
+      my ($dev, $lib_dir, undef) = File::Spec->splitpath($dl_file);
+      $dl_file = File::Spec->catpath($dev, $lib_dir, $lib);
+    }
+  }
+
+  $dl_file .= ".$self->{config}{dlext}";
+
+  return $dl_file;
+}
+
+
+sub exe_file {
+  my ($self, $dl_file) = @_;
+  $dl_file =~ s/\.[^.]+$//;
+  $dl_file =~ tr/"//d;
+  return "$dl_file$self->{config}{_exe}";
+}
+
+sub need_prelink { 0 }
+
+sub extra_link_args_after_prelink { return }
+
+sub prelink {
+  my ($self, %args) = @_;
+
+  my ($dl_file_out, $mksymlists_args) = _prepare_mksymlists_args(\%args);
+
+  require ExtUtils::Mksymlists;
+  # dl. abbrev for dynamic library
+  ExtUtils::Mksymlists::Mksymlists( %{ $mksymlists_args } );
+
+  # Mksymlists will create one of these files
+  return grep -e, map "$dl_file_out.$_", qw(ext def opt);
+}
+
+sub _prepare_mksymlists_args {
+  my $args = shift;
+  ($args->{dl_file} = $args->{dl_name}) =~ s/.*::// unless $args->{dl_file};
+
+  my %mksymlists_args = (
+    DL_VARS  => $args->{dl_vars}      || [],
+    DL_FUNCS => $args->{dl_funcs}     || {},
+    FUNCLIST => $args->{dl_func_list} || [],
+    IMPORTS  => $args->{dl_imports}   || {},
+    NAME     => $args->{dl_name},    # Name of the Perl module
+    DLBASE   => $args->{dl_base},    # Basename of DLL file
+    FILE     => $args->{dl_file},    # Dir + Basename of symlist file
+    VERSION  => (defined $args->{dl_version} ? $args->{dl_version} : '0.0'),
+  );
+  return ($args->{dl_file}, \%mksymlists_args);
+}
+
+sub link {
+  my ($self, %args) = @_;
+  return $self->_do_link('lib_file', lddl => 1, %args);
+}
+
+sub link_executable {
+  my ($self, %args) = @_;
+  return $self->_do_link('exe_file', lddl => 0, %args);
+}
+
+sub _do_link {
+  my ($self, $type, %args) = @_;
+
+  my $cf = $self->{config}; # For convenience
+
+  my $objects = delete $args{objects};
+  $objects = [$objects] unless ref $objects;
+  my $out = $args{$type} || $self->$type($objects->[0], %args);
+
+  my @temp_files;
+  @temp_files =
+    $self->prelink(%args, dl_name => $args{module_name})
+      if $args{lddl} && $self->need_prelink;
+
+  my @linker_flags = (
+    $self->split_like_shell($args{extra_linker_flags}),
+    $self->extra_link_args_after_prelink(
+       %args, dl_name => $args{module_name}, prelink_res => \@temp_files
+    )
+  );
+
+  my @output = $args{lddl}
+    ? $self->arg_share_object_file($out)
+    : $self->arg_exec_file($out);
+  my @shrp = $self->split_like_shell($cf->{shrpenv});
+  my @ld = $self->split_like_shell($cf->{ld});
+
+  $self->do_system(@shrp, @ld, @output, @$objects, @linker_flags)
+    or die "error building $out from @$objects";
+
+  return wantarray ? ($out, @temp_files) : $out;
+}
+
+
+sub do_system {
+  my ($self, @cmd) = @_;
+  print "@cmd\n" if !$self->{quiet};
+  return !system(@cmd);
+}
+
+sub split_like_shell {
+  my ($self, $string) = @_;
+
+  return () unless defined($string);
+  return @$string if UNIVERSAL::isa($string, 'ARRAY');
+  $string =~ s/^\s+|\s+$//g;
+  return () unless length($string);
+
+  # Text::ParseWords replaces all 'escaped' characters with themselves, which completely
+  # breaks paths under windows. As such, we forcibly replace backwards slashes with forward
+  # slashes on windows.
+  $string =~ s@\\@/@g if $^O eq 'MSWin32';
+
+  return Text::ParseWords::shellwords($string);
+}
+
+# if building perl, perl's main source directory
+sub perl_src {
+  # N.B. makemaker actually searches regardless of PERL_CORE, but
+  # only squawks at not finding it if PERL_CORE is set
+
+  return unless $ENV{PERL_CORE};
+
+  my $Updir = File::Spec->updir;
+  my $dir   = File::Spec->curdir;
+
+  # Try up to 5 levels upwards
+  for (0..10) {
+    if (
+      -f File::Spec->catfile($dir,"config_h.SH")
+      &&
+      -f File::Spec->catfile($dir,"perl.h")
+      &&
+      -f File::Spec->catfile($dir,"lib","Exporter.pm")
+    ) {
+      return Cwd::realpath( $dir );
+    }
+
+    $dir = File::Spec->catdir($dir, $Updir);
+  }
+
+  warn "PERL_CORE is set but I can't find your perl source!\n";
+  return ''; # return empty string if $ENV{PERL_CORE} but can't find dir ???
+}
+
+# directory of perl's include files
+sub perl_inc {
+  my $self = shift;
+
+  $self->perl_src() || File::Spec->catdir($self->{config}{archlibexp},"CORE");
+}
+
+sub DESTROY {
+  my $self = shift;
+  local($., $@, $!, $^E, $?);
+  $self->cleanup();
+}
+
+1;
+
+# vim: ts=2 sw=2 et:
diff --git a/lib/5.24.1/ExtUtils/CBuilder/Platform/Unix.pm b/lib/5.24.1/ExtUtils/CBuilder/Platform/Unix.pm
new file mode 100644
index 00000000..399e254a
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/CBuilder/Platform/Unix.pm
@@ -0,0 +1,40 @@
+package ExtUtils::CBuilder::Platform::Unix;
+$ExtUtils::CBuilder::Platform::Unix::VERSION = '0.280225';
+use warnings;
+use strict;
+use ExtUtils::CBuilder::Base;
+
+use vars qw(@ISA);
+@ISA = qw(ExtUtils::CBuilder::Base);
+
+sub link_executable {
+  my $self = shift;
+
+  # On some platforms (which ones??) $Config{cc} seems to be a better
+  # bet for linking executables than $Config{ld}.  Cygwin is a notable
+  # exception.
+  local $self->{config}{ld} =
+    $self->{config}{cc} . " " . $self->{config}{ldflags};
+  return $self->SUPER::link_executable(@_);
+}
+
+sub link {
+  my $self = shift;
+  my $cf = $self->{config};
+
+  # Some platforms (notably Mac OS X 10.3, but some others too) expect
+  # the syntax "FOO=BAR /bin/command arg arg" to work in %Config
+  # (notably $Config{ld}).  It usually works in system(SCALAR), but we
+  # use system(LIST). We fix it up here with 'env'.
+
+  local $cf->{ld} = $cf->{ld};
+  if (ref $cf->{ld}) {
+    unshift @{$cf->{ld}}, 'env' if $cf->{ld}[0] =~ /^\s*\w+=/;
+  } else {
+    $cf->{ld} =~ s/^(\s*\w+=)/env $1/;
+  }
+
+  return $self->SUPER::link(@_);
+}
+
+1;
diff --git a/lib/5.24.1/ExtUtils/CBuilder/Platform/VMS.pm b/lib/5.24.1/ExtUtils/CBuilder/Platform/VMS.pm
new file mode 100644
index 00000000..e9d9f6fc
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/CBuilder/Platform/VMS.pm
@@ -0,0 +1,290 @@
+package ExtUtils::CBuilder::Platform::VMS;
+$ExtUtils::CBuilder::Platform::VMS::VERSION = '0.280225';
+use warnings;
+use strict;
+use ExtUtils::CBuilder::Base;
+
+use vars qw(@ISA);
+@ISA = qw(ExtUtils::CBuilder::Base);
+
+use File::Spec::Functions qw(catfile catdir);
+use Config;
+
+# We do prelink, but don't want the parent to redo it.
+
+sub need_prelink { 0 }
+
+sub arg_defines {
+  my ($self, %args) = @_;
+
+  s/"/""/g foreach values %args;
+
+  my @config_defines;
+
+  # VMS can only have one define qualifier; add the one from config, if any.
+  if ($self->{config}{ccflags} =~ s{/  def[^=]+  =+  \(?  ([^\/\)]*)  } {}ix) {
+    push @config_defines, $1;
+  }
+
+  return '' unless keys(%args) || @config_defines;
+
+  return ('/define=('
+          . join(',',
+		 @config_defines,
+                 map "\"$_" . ( length($args{$_}) ? "=$args{$_}" : '') . "\"",
+                     sort keys %args)
+          . ')');
+}
+
+sub arg_include_dirs {
+  my ($self, @dirs) = @_;
+
+  # VMS can only have one include list, add the one from config.
+  if ($self->{config}{ccflags} =~ s{/inc[^=]+(?:=)+(?:\()?([^\/\)]*)} {}i) {
+    unshift @dirs, $1;
+  }
+  return unless @dirs;
+
+  return ('/include=(' . join(',', @dirs) . ')');
+}
+
+# We override the compile method because we consume the includes and defines
+# parts of ccflags in the process of compiling but don't save those parts
+# anywhere, so $self->{config}{ccflags} needs to be reset for each compile
+# operation.
+
+sub compile {
+  my ($self, %args) = @_;
+
+  $self->{config}{ccflags} = $Config{ccflags};
+  $self->{config}{ccflags} = $ENV{CFLAGS} if defined $ENV{CFLAGS};
+
+  return $self->SUPER::compile(%args);
+}
+
+sub _do_link {
+  my ($self, $type, %args) = @_;
+
+  my $objects = delete $args{objects};
+  $objects = [$objects] unless ref $objects;
+
+  if ($args{lddl}) {
+
+    # prelink will call Mksymlists, which creates the extension-specific
+    # linker options file and populates it with the boot symbol.
+
+    my @temp_files = $self->prelink(%args, dl_name => $args{module_name});
+
+    # We now add the rest of what we need to the linker options file.  We
+    # should replicate the functionality of C<ExtUtils::MM_VMS::dlsyms>,
+    # but there is as yet no infrastructure for handling object libraries,
+    # so for now we depend on object files being listed individually on the
+    # command line, which should work for simple cases.  We do bring in our
+    # own version of C<ExtUtils::Liblist::Kid::ext> so that any additional
+    # libraries (including PERLSHR) can be added to the options file.
+
+    my @optlibs = $self->_liblist_ext( $args{'libs'} );
+
+    my $optfile = 'sys$disk:[]' . $temp_files[0];
+    open my $opt_fh, '>>', $optfile
+        or die "_do_link: Unable to open $optfile: $!";
+    for my $lib (@optlibs) {print $opt_fh "$lib\n" if length $lib }
+    close $opt_fh;
+
+    $objects->[-1] .= ',';
+    push @$objects, $optfile . '/OPTIONS,';
+
+    # This one not needed for DEC C, but leave for completeness.
+    push @$objects, $self->perl_inc() . 'perlshr_attr.opt/OPTIONS';
+  }
+
+  return $self->SUPER::_do_link($type, %args, objects => $objects);
+}
+
+sub arg_nolink { return; }
+
+sub arg_object_file {
+  my ($self, $file) = @_;
+  return "/obj=$file";
+}
+
+sub arg_exec_file {
+  my ($self, $file) = @_;
+  return ("/exe=$file");
+}
+
+sub arg_share_object_file {
+  my ($self, $file) = @_;
+  return ("$self->{config}{lddlflags}=$file");
+}
+
+# The following is reproduced almost verbatim from ExtUtils::Liblist::Kid::_vms_ext.
+# We can't just call that because it's tied up with the MakeMaker object hierarchy.
+
+sub _liblist_ext {
+  my($self, $potential_libs,$verbose,$give_libs) = @_;
+  $verbose ||= 0;
+
+  my(@crtls,$crtlstr);
+  @crtls = ( ($self->{'config'}{'ldflags'} =~ m-/Debug-i ? $self->{'config'}{'dbgprefix'} : '')
+              . 'PerlShr/Share' );
+  push(@crtls, grep { not /\(/ } split /\s+/, $self->{'config'}{'perllibs'});
+  push(@crtls, grep { not /\(/ } split /\s+/, $self->{'config'}{'libc'});
+  # In general, we pass through the basic libraries from %Config unchanged.
+  # The one exception is that if we're building in the Perl source tree, and
+  # a library spec could be resolved via a logical name, we go to some trouble
+  # to ensure that the copy in the local tree is used, rather than one to
+  # which a system-wide logical may point.
+  if ($self->perl_src) {
+    my($lib,$locspec,$type);
+    foreach $lib (@crtls) {
+      if (($locspec,$type) = $lib =~ m{^([\w\$-]+)(/\w+)?} and $locspec =~ /perl/i) {
+        if    (lc $type eq '/share')   { $locspec .= $self->{'config'}{'exe_ext'}; }
+        elsif (lc $type eq '/library') { $locspec .= $self->{'config'}{'lib_ext'}; }
+        else                           { $locspec .= $self->{'config'}{'obj_ext'}; }
+        $locspec = catfile($self->perl_src, $locspec);
+        $lib = "$locspec$type" if -e $locspec;
+      }
+    }
+  }
+  $crtlstr = @crtls ? join(' ',@crtls) : '';
+
+  unless ($potential_libs) {
+    warn "Result:\n\tEXTRALIBS: \n\tLDLOADLIBS: $crtlstr\n" if $verbose;
+    return ('', '', $crtlstr, '', ($give_libs ? [] : ()));
+  }
+
+  my(@dirs,@libs,$dir,$lib,%found,@fndlibs,$ldlib);
+  my $cwd = cwd();
+  my($so,$lib_ext,$obj_ext) = @{$self->{'config'}}{'so','lib_ext','obj_ext'};
+  # List of common Unix library names and their VMS equivalents
+  # (VMS equivalent of '' indicates that the library is automatically
+  # searched by the linker, and should be skipped here.)
+  my(@flibs, %libs_seen);
+  my %libmap = ( 'm' => '', 'f77' => '', 'F77' => '', 'V77' => '', 'c' => '',
+                 'malloc' => '', 'crypt' => '', 'resolv' => '', 'c_s' => '',
+                 'socket' => '', 'X11' => 'DECW$XLIBSHR',
+                 'Xt' => 'DECW$XTSHR', 'Xm' => 'DECW$XMLIBSHR',
+                 'Xmu' => 'DECW$XMULIBSHR');
+
+  warn "Potential libraries are '$potential_libs'\n" if $verbose;
+
+  # First, sort out directories and library names in the input
+  foreach $lib (split ' ',$potential_libs) {
+    push(@dirs,$1),   next if $lib =~ /^-L(.*)/;
+    push(@dirs,$lib), next if $lib =~ /[:>\]]$/;
+    push(@dirs,$lib), next if -d $lib;
+    push(@libs,$1),   next if $lib =~ /^-l(.*)/;
+    push(@libs,$lib);
+  }
+  push(@dirs,split(' ',$self->{'config'}{'libpth'}));
+
+  # Now make sure we've got VMS-syntax absolute directory specs
+  # (We don't, however, check whether someone's hidden a relative
+  # path in a logical name.)
+  foreach $dir (@dirs) {
+    unless (-d $dir) {
+      warn "Skipping nonexistent Directory $dir\n" if $verbose > 1;
+      $dir = '';
+      next;
+    }
+    warn "Resolving directory $dir\n" if $verbose;
+    if (!File::Spec->file_name_is_absolute($dir)) {
+        $dir = catdir($cwd,$dir);
+    }
+  }
+  @dirs = grep { length($_) } @dirs;
+  unshift(@dirs,''); # Check each $lib without additions first
+
+  LIB: foreach $lib (@libs) {
+    if (exists $libmap{$lib}) {
+      next unless length $libmap{$lib};
+      $lib = $libmap{$lib};
+    }
+
+    my(@variants,$variant,$cand);
+    my($ctype) = '';
+
+    # If we don't have a file type, consider it a possibly abbreviated name and
+    # check for common variants.  We try these first to grab libraries before
+    # a like-named executable image (e.g. -lperl resolves to perlshr.exe
+    # before perl.exe).
+    if ($lib !~ /\.[^:>\]]*$/) {
+      push(@variants,"${lib}shr","${lib}rtl","${lib}lib");
+      push(@variants,"lib$lib") if $lib !~ /[:>\]]/;
+    }
+    push(@variants,$lib);
+    warn "Looking for $lib\n" if $verbose;
+    foreach $variant (@variants) {
+      my($fullname, $name);
+
+      foreach $dir (@dirs) {
+        my($type);
+
+        $name = "$dir$variant";
+        warn "\tChecking $name\n" if $verbose > 2;
+        $fullname = VMS::Filespec::rmsexpand($name);
+        if (defined $fullname and -f $fullname) {
+          # It's got its own suffix, so we'll have to figure out the type
+          if    ($fullname =~ /(?:$so|exe)$/i)      { $type = 'SHR'; }
+          elsif ($fullname =~ /(?:$lib_ext|olb)$/i) { $type = 'OLB'; }
+          elsif ($fullname =~ /(?:$obj_ext|obj)$/i) {
+            warn "Note (probably harmless): "
+                ."Plain object file $fullname found in library list\n";
+            $type = 'OBJ';
+          }
+          else {
+            warn "Note (probably harmless): "
+                ."Unknown library type for $fullname; assuming shared\n";
+            $type = 'SHR';
+          }
+        }
+        elsif (-f ($fullname = VMS::Filespec::rmsexpand($name,$so))      or
+               -f ($fullname = VMS::Filespec::rmsexpand($name,'.exe')))     {
+          $type = 'SHR';
+          $name = $fullname unless $fullname =~ /exe;?\d*$/i;
+        }
+        elsif (not length($ctype) and  # If we've got a lib already,
+                                       # don't bother
+               ( -f ($fullname = VMS::Filespec::rmsexpand($name,$lib_ext)) or
+                 -f ($fullname = VMS::Filespec::rmsexpand($name,'.olb'))))  {
+          $type = 'OLB';
+          $name = $fullname unless $fullname =~ /olb;?\d*$/i;
+        }
+        elsif (not length($ctype) and  # If we've got a lib already,
+                                       # don't bother
+               ( -f ($fullname = VMS::Filespec::rmsexpand($name,$obj_ext)) or
+                 -f ($fullname = VMS::Filespec::rmsexpand($name,'.obj'))))  {
+          warn "Note (probably harmless): "
+		       ."Plain object file $fullname found in library list\n";
+          $type = 'OBJ';
+          $name = $fullname unless $fullname =~ /obj;?\d*$/i;
+        }
+        if (defined $type) {
+          $ctype = $type; $cand = $name;
+          last if $ctype eq 'SHR';
+        }
+      }
+      if ($ctype) {
+        push @{$found{$ctype}}, $cand;
+        warn "\tFound as $cand (really $fullname), type $ctype\n"
+          if $verbose > 1;
+	push @flibs, $name unless $libs_seen{$fullname}++;
+        next LIB;
+      }
+    }
+    warn "Note (probably harmless): "
+		 ."No library found for $lib\n";
+  }
+
+  push @fndlibs, @{$found{OBJ}}                      if exists $found{OBJ};
+  push @fndlibs, map { "$_/Library" } @{$found{OLB}} if exists $found{OLB};
+  push @fndlibs, map { "$_/Share"   } @{$found{SHR}} if exists $found{SHR};
+  $lib = join(' ',@fndlibs);
+
+  $ldlib = $crtlstr ? "$lib $crtlstr" : $lib;
+  warn "Result:\n\tEXTRALIBS: $lib\n\tLDLOADLIBS: $ldlib\n" if $verbose;
+  wantarray ? ($lib, '', $ldlib, '', ($give_libs ? \@flibs : ())) : $lib;
+}
+
+1;
diff --git a/lib/5.24.1/ExtUtils/CBuilder/Platform/Windows.pm b/lib/5.24.1/ExtUtils/CBuilder/Platform/Windows.pm
new file mode 100644
index 00000000..80b8f29c
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/CBuilder/Platform/Windows.pm
@@ -0,0 +1,290 @@
+package ExtUtils::CBuilder::Platform::Windows;
+$ExtUtils::CBuilder::Platform::Windows::VERSION = '0.280225';
+use strict;
+use warnings;
+
+use File::Basename;
+use File::Spec;
+
+use ExtUtils::CBuilder::Base;
+use IO::File;
+
+use vars qw(@ISA);
+@ISA = qw(ExtUtils::CBuilder::Base);
+
+=begin comment
+
+The compiler-specific packages implement functions for generating properly
+formatted commandlines for the compiler being used. Each package
+defines two primary functions 'format_linker_cmd()' &
+'format_compiler_cmd()' that accepts a list of named arguments (a
+hash) and returns a list of formatted options suitable for invoking the
+compiler. By default, if the compiler supports scripting of its
+operation then a script file is built containing the options while
+those options are removed from the commandline, and a reference to the
+script is pushed onto the commandline in their place. Scripting the
+compiler in this way helps to avoid the problems associated with long
+commandlines under some shells.
+
+=end comment
+
+=cut
+
+sub new {
+  my $class = shift;
+  my $self = $class->SUPER::new(@_);
+  my $cf = $self->{config};
+
+  # Inherit from an appropriate compiler driver class
+  my $driver = "ExtUtils::CBuilder::Platform::Windows::" . $self->_compiler_type;
+  eval "require $driver" or die "Could not load compiler driver: $@";
+  unshift @ISA, $driver;
+
+  return $self;
+}
+
+sub _compiler_type {
+  my $self = shift;
+  my $cc = $self->{config}{cc};
+
+  return (  $cc =~ /cl(\.exe)?$/ ? 'MSVC'
+	  : $cc =~ /bcc32(\.exe)?$/ ? 'BCC'
+	  : 'GCC');
+}
+
+sub split_like_shell {
+  # Since Windows will pass the whole command string (not an argument
+  # array) to the target program and make the program parse it itself,
+  # we don't actually need to do any processing here.
+  (my $self, local $_) = @_;
+
+  return @$_ if defined() && UNIVERSAL::isa($_, 'ARRAY');
+  return unless defined() && length();
+  return ($_);
+}
+
+sub do_system {
+  # See above
+  my $self = shift;
+  my $cmd = join(" ",
+		 grep length,
+		 map {$a=$_;$a=~s/\t/ /g;$a=~s/^\s+|\s+$//;$a}
+		 grep defined, @_);
+  return $self->SUPER::do_system($cmd);
+}
+
+sub arg_defines {
+  my ($self, %args) = @_;
+  s/"/\\"/g foreach values %args;
+  return map qq{"-D$_=$args{$_}"}, sort keys %args;
+}
+
+sub compile {
+  my ($self, %args) = @_;
+  my $cf = $self->{config};
+
+  die "Missing 'source' argument to compile()" unless defined $args{source};
+
+  $args{include_dirs} = [ $args{include_dirs} ]
+    if exists($args{include_dirs}) && ref($args{include_dirs}) ne "ARRAY";
+
+  my ($basename, $srcdir) =
+    ( File::Basename::fileparse($args{source}, '\.[^.]+$') )[0,1];
+
+  $srcdir ||= File::Spec->curdir();
+
+  my @defines = $self->arg_defines( %{ $args{defines} || {} } );
+
+  my %spec = (
+    srcdir      => $srcdir,
+    builddir    => $srcdir,
+    basename    => $basename,
+    source      => $args{source},
+    output      => $args{object_file} || File::Spec->catfile($srcdir, $basename) . $cf->{obj_ext},
+    cc          => $cf->{cc},
+    cflags      => [
+                     $self->split_like_shell($cf->{ccflags}),
+                     $self->split_like_shell($cf->{cccdlflags}),
+                     $self->split_like_shell($args{extra_compiler_flags}),
+                   ],
+    optimize    => [ $self->split_like_shell($cf->{optimize})    ],
+    defines     => \@defines,
+    includes    => [ @{$args{include_dirs} || []} ],
+    perlinc     => [
+                     $self->perl_inc(),
+                     $self->split_like_shell($cf->{incpath}),
+                   ],
+    use_scripts => 1, # XXX provide user option to change this???
+  );
+
+  $self->normalize_filespecs(
+    \$spec{source},
+    \$spec{output},
+     $spec{includes},
+     $spec{perlinc},
+  );
+
+  my @cmds = $self->format_compiler_cmd(%spec);
+  while ( my $cmd = shift @cmds ) {
+    $self->do_system( @$cmd )
+      or die "error building $cf->{dlext} file from '$args{source}'";
+  }
+
+  (my $out = $spec{output}) =~ tr/'"//d;
+  return $out;
+}
+
+sub need_prelink { 1 }
+
+sub link {
+  my ($self, %args) = @_;
+  my $cf = $self->{config};
+
+  my @objects = ( ref $args{objects} eq 'ARRAY' ? @{$args{objects}} : $args{objects} );
+  my $to = join '', (File::Spec->splitpath($objects[0]))[0,1];
+  $to ||= File::Spec->curdir();
+
+  (my $file_base = $args{module_name}) =~ s/.*:://;
+  my $output = $args{lib_file} ||
+    File::Spec->catfile($to, "$file_base.$cf->{dlext}");
+
+  # if running in perl source tree, look for libs there, not installed
+  my $lddlflags = $cf->{lddlflags};
+  my $perl_src = $self->perl_src();
+  $lddlflags =~ s/\Q$cf->{archlibexp}\E[\\\/]CORE/$perl_src\/lib\/CORE/ if $perl_src;
+
+  my %spec = (
+    srcdir        => $to,
+    builddir      => $to,
+    startup       => [ ],
+    objects       => \@objects,
+    libs          => [ ],
+    output        => $output,
+    ld            => $cf->{ld},
+    libperl       => $cf->{libperl},
+    perllibs      => [ $self->split_like_shell($cf->{perllibs})  ],
+    libpath       => [ $self->split_like_shell($cf->{libpth})    ],
+    lddlflags     => [ $self->split_like_shell($lddlflags) ],
+    other_ldflags => [ $self->split_like_shell($args{extra_linker_flags} || '') ],
+    use_scripts   => 1, # XXX provide user option to change this???
+  );
+
+  unless ( $spec{basename} ) {
+    ($spec{basename} = $args{module_name}) =~ s/.*:://;
+  }
+
+  $spec{srcdir}   = File::Spec->canonpath( $spec{srcdir}   );
+  $spec{builddir} = File::Spec->canonpath( $spec{builddir} );
+
+  $spec{output}    ||= File::Spec->catfile( $spec{builddir},
+                                            $spec{basename}  . '.'.$cf->{dlext}   );
+  $spec{manifest}  ||= $spec{output} . '.manifest';
+  $spec{implib}    ||= File::Spec->catfile( $spec{builddir},
+                                            $spec{basename}  . $cf->{lib_ext} );
+  $spec{explib}    ||= File::Spec->catfile( $spec{builddir},
+                                            $spec{basename}  . '.exp'  );
+  if ($cf->{cc} eq 'cl') {
+    $spec{dbg_file}  ||= File::Spec->catfile( $spec{builddir},
+                                            $spec{basename}  . '.pdb'  );
+  }
+  elsif ($cf->{cc} eq 'bcc32') {
+    $spec{dbg_file}  ||= File::Spec->catfile( $spec{builddir},
+                                            $spec{basename}  . '.tds'  );
+  }
+  $spec{def_file}  ||= File::Spec->catfile( $spec{srcdir}  ,
+                                            $spec{basename}  . '.def'  );
+  $spec{base_file} ||= File::Spec->catfile( $spec{srcdir}  ,
+                                            $spec{basename}  . '.base' );
+
+  $self->add_to_cleanup(
+    grep defined,
+    @{[ @spec{qw(manifest implib explib dbg_file def_file base_file map_file)} ]}
+  );
+
+  foreach my $opt ( qw(output manifest implib explib dbg_file def_file map_file base_file) ) {
+    $self->normalize_filespecs( \$spec{$opt} );
+  }
+
+  foreach my $opt ( qw(libpath startup objects) ) {
+    $self->normalize_filespecs( $spec{$opt} );
+  }
+
+  (my $def_base = $spec{def_file}) =~ tr/'"//d;
+  $def_base =~ s/\.def$//;
+  $self->prelink( %args,
+                  dl_name => $args{module_name},
+                  dl_file => $def_base,
+                  dl_base => $spec{basename} );
+
+  my @cmds = $self->format_linker_cmd(%spec);
+  while ( my $cmd = shift @cmds ) {
+    $self->do_system( @$cmd );
+  }
+
+  $spec{output} =~ tr/'"//d;
+  return wantarray
+    ? grep defined, @spec{qw[output manifest implib explib dbg_file def_file map_file base_file]}
+    : $spec{output};
+}
+
+# canonize & quote paths
+sub normalize_filespecs {
+  my ($self, @specs) = @_;
+  foreach my $spec ( grep defined, @specs ) {
+    if ( ref $spec eq 'ARRAY') {
+      $self->normalize_filespecs( map {\$_} grep defined, @$spec )
+    } elsif ( ref $spec eq 'SCALAR' ) {
+      $$spec =~ tr/"//d if $$spec;
+      next unless $$spec;
+      $$spec = '"' . File::Spec->canonpath($$spec) . '"';
+    } elsif ( ref $spec eq '' ) {
+      $spec = '"' . File::Spec->canonpath($spec) . '"';
+    } else {
+      die "Don't know how to normalize " . (ref $spec || $spec) . "\n";
+    }
+  }
+}
+
+# directory of perl's include files
+sub perl_inc {
+  my $self = shift;
+
+  my $perl_src = $self->perl_src();
+
+  if ($perl_src) {
+    File::Spec->catdir($perl_src, "lib", "CORE");
+  } else {
+    File::Spec->catdir($self->{config}{archlibexp},"CORE");
+  }
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+ExtUtils::CBuilder::Platform::Windows - Builder class for Windows platforms
+
+=head1 DESCRIPTION
+
+This module implements the Windows-specific parts of ExtUtils::CBuilder.
+Most of the Windows-specific stuff has to do with compiling and
+linking C code.  Currently we support the 3 compilers perl itself
+supports: MSVC, BCC, and GCC.
+
+This module inherits from C<ExtUtils::CBuilder::Base>, so any functionality
+not implemented here will be implemented there.  The interfaces are
+defined by the L<ExtUtils::CBuilder> documentation.
+
+=head1 AUTHOR
+
+Ken Williams <ken@mathforum.org>
+
+Most of the code here was written by Randy W. Sims <RandyS@ThePierianSpring.org>.
+
+=head1 SEE ALSO
+
+perl(1), ExtUtils::CBuilder(3), ExtUtils::MakeMaker(3)
+
+=cut
diff --git a/lib/5.24.1/ExtUtils/CBuilder/Platform/Windows/BCC.pm b/lib/5.24.1/ExtUtils/CBuilder/Platform/Windows/BCC.pm
new file mode 100644
index 00000000..513c4aca
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/CBuilder/Platform/Windows/BCC.pm
@@ -0,0 +1,130 @@
+package ExtUtils::CBuilder::Platform::Windows::BCC;
+$ExtUtils::CBuilder::Platform::Windows::BCC::VERSION = '0.280225';
+use strict;
+use warnings;
+
+sub format_compiler_cmd {
+  my ($self, %spec) = @_;
+
+  foreach my $path ( @{ $spec{includes} || [] },
+                     @{ $spec{perlinc}  || [] } ) {
+    $path = '-I' . $path;
+  }
+
+  %spec = $self->write_compiler_script(%spec)
+    if $spec{use_scripts};
+
+  return [ grep {defined && length} (
+    $spec{cc}, '-c'         ,
+    @{$spec{includes}}      ,
+    @{$spec{cflags}}        ,
+    @{$spec{optimize}}      ,
+    @{$spec{defines}}       ,
+    @{$spec{perlinc}}       ,
+    "-o$spec{output}"       ,
+    $spec{source}           ,
+  ) ];
+}
+
+sub write_compiler_script {
+  my ($self, %spec) = @_;
+
+  my $script = File::Spec->catfile( $spec{srcdir},
+                                    $spec{basename} . '.ccs' );
+
+  $self->add_to_cleanup($script);
+
+  print "Generating script '$script'\n" if !$self->{quiet};
+
+  my $SCRIPT = IO::File->new( ">$script" )
+    or die( "Could not create script '$script': $!" );
+
+  # XXX Borland "response files" seem to be unable to accept macro
+  # definitions containing quoted strings. Escaping strings with
+  # backslash doesn't work, and any level of quotes are stripped. The
+  # result is a floating point number in the source file where a
+  # string is expected. So we leave the macros on the command line.
+  print $SCRIPT join( "\n",
+    map { ref $_ ? @{$_} : $_ }
+    grep defined,
+    delete(
+      @spec{ qw(includes cflags optimize perlinc) } )
+  );
+
+  push @{$spec{includes}}, '@"' . $script . '"';
+
+  return %spec;
+}
+
+sub format_linker_cmd {
+  my ($self, %spec) = @_;
+
+  foreach my $path ( @{$spec{libpath}} ) {
+    $path = "-L$path";
+  }
+
+  push( @{$spec{startup}}, 'c0d32.obj' )
+    unless ( $spec{startup} && @{$spec{startup}} );
+
+  %spec = $self->write_linker_script(%spec)
+    if $spec{use_scripts};
+
+  return [ grep {defined && length} (
+    $spec{ld}               ,
+    @{$spec{lddlflags}}     ,
+    @{$spec{libpath}}       ,
+    @{$spec{other_ldflags}} ,
+    @{$spec{startup}}       ,
+    @{$spec{objects}}       , ',',
+    $spec{output}           , ',',
+    $spec{map_file}         , ',',
+    $spec{libperl}          ,
+    @{$spec{perllibs}}      , ',',
+    $spec{def_file}
+  ) ];
+}
+
+sub write_linker_script {
+  my ($self, %spec) = @_;
+
+  # To work around Borlands "unique" commandline syntax,
+  # two scripts are used:
+
+  my $ld_script = File::Spec->catfile( $spec{srcdir},
+                                       $spec{basename} . '.lds' );
+  my $ld_libs   = File::Spec->catfile( $spec{srcdir},
+                                       $spec{basename} . '.lbs' );
+
+  $self->add_to_cleanup($ld_script, $ld_libs);
+
+  print "Generating scripts '$ld_script' and '$ld_libs'.\n" if !$self->{quiet};
+
+  # Script 1: contains options & names of object files.
+  my $LD_SCRIPT = IO::File->new( ">$ld_script" )
+    or die( "Could not create linker script '$ld_script': $!" );
+
+  print $LD_SCRIPT join( " +\n",
+    map { @{$_} }
+    grep defined,
+    delete(
+      @spec{ qw(lddlflags libpath other_ldflags startup objects) } )
+  );
+
+  # Script 2: contains name of libs to link against.
+  my $LD_LIBS = IO::File->new( ">$ld_libs" )
+    or die( "Could not create linker script '$ld_libs': $!" );
+
+  print $LD_LIBS join( " +\n",
+     (delete $spec{libperl}  || ''),
+    @{delete $spec{perllibs} || []},
+  );
+
+  push @{$spec{lddlflags}}, '@"' . $ld_script  . '"';
+  push @{$spec{perllibs}},  '@"' . $ld_libs    . '"';
+
+  return %spec;
+}
+
+1;
+
+
diff --git a/lib/5.24.1/ExtUtils/CBuilder/Platform/Windows/GCC.pm b/lib/5.24.1/ExtUtils/CBuilder/Platform/Windows/GCC.pm
new file mode 100644
index 00000000..19851df3
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/CBuilder/Platform/Windows/GCC.pm
@@ -0,0 +1,151 @@
+package ExtUtils::CBuilder::Platform::Windows::GCC;
+$ExtUtils::CBuilder::Platform::Windows::GCC::VERSION = '0.280225';
+use warnings;
+use strict;
+
+sub format_compiler_cmd {
+  my ($self, %spec) = @_;
+
+  foreach my $path ( @{ $spec{includes} || [] },
+                     @{ $spec{perlinc}  || [] } ) {
+    $path = '-I' . $path;
+  }
+
+  # split off any -arguments included in cc
+  my @cc = split / (?=-)/, $spec{cc};
+
+  return [ grep {defined && length} (
+    @cc, '-c'               ,
+    @{$spec{includes}}      ,
+    @{$spec{cflags}}        ,
+    @{$spec{optimize}}      ,
+    @{$spec{defines}}       ,
+    @{$spec{perlinc}}       ,
+    '-o', $spec{output}     ,
+    $spec{source}           ,
+  ) ];
+}
+
+sub format_linker_cmd {
+  my ($self, %spec) = @_;
+  my $cf = $self->{config};
+
+  # The Config.pm variable 'libperl' is hardcoded to the full name
+  # of the perl import library (i.e. 'libperl56.a'). GCC will not
+  # find it unless the 'lib' prefix & the extension are stripped.
+  $spec{libperl} =~ s/^(?:lib)?([^.]+).*$/-l$1/;
+
+  unshift( @{$spec{other_ldflags}}, '-nostartfiles' )
+    if ( $spec{startup} && @{$spec{startup}} );
+
+  # From ExtUtils::MM_Win32:
+  #
+  ## one thing for GCC/Mingw32:
+  ## we try to overcome non-relocateable-DLL problems by generating
+  ##    a (hopefully unique) image-base from the dll's name
+  ## -- BKS, 10-19-1999
+  File::Basename::basename( $spec{output} ) =~ /(....)(.{0,4})/;
+  $spec{image_base} = sprintf( "0x%x0000", unpack('n', $1 ^ $2) );
+
+  %spec = $self->write_linker_script(%spec)
+    if $spec{use_scripts};
+
+  foreach my $path ( @{$spec{libpath}} ) {
+    $path = "-L$path";
+  }
+
+  my @cmds; # Stores the series of commands needed to build the module.
+
+  my $DLLTOOL = $cf->{dlltool} || 'dlltool';
+
+  push @cmds, [
+    $DLLTOOL, '--def'        , $spec{def_file},
+              '--output-exp' , $spec{explib}
+  ];
+
+  # split off any -arguments included in ld
+  my @ld = split / (?=-)/, $spec{ld};
+
+  push @cmds, [ grep {defined && length} (
+    @ld                       ,
+    '-o', $spec{output}       ,
+    "-Wl,--base-file,$spec{base_file}"   ,
+    "-Wl,--image-base,$spec{image_base}" ,
+    @{$spec{lddlflags}}       ,
+    @{$spec{libpath}}         ,
+    @{$spec{startup}}         ,
+    @{$spec{objects}}         ,
+    @{$spec{other_ldflags}}   ,
+    $spec{libperl}            ,
+    @{$spec{perllibs}}        ,
+    $spec{explib}             ,
+    $spec{map_file} ? ('-Map', $spec{map_file}) : ''
+  ) ];
+
+  push @cmds, [
+    $DLLTOOL, '--def'        , $spec{def_file},
+              '--output-exp' , $spec{explib},
+              '--base-file'  , $spec{base_file}
+  ];
+
+  push @cmds, [ grep {defined && length} (
+    @ld                       ,
+    '-o', $spec{output}       ,
+    "-Wl,--image-base,$spec{image_base}" ,
+    @{$spec{lddlflags}}       ,
+    @{$spec{libpath}}         ,
+    @{$spec{startup}}         ,
+    @{$spec{objects}}         ,
+    @{$spec{other_ldflags}}   ,
+    $spec{libperl}            ,
+    @{$spec{perllibs}}        ,
+    $spec{explib}             ,
+    $spec{map_file} ? ('-Map', $spec{map_file}) : ''
+  ) ];
+
+  return @cmds;
+}
+
+sub write_linker_script {
+  my ($self, %spec) = @_;
+
+  my $script = File::Spec->catfile( $spec{srcdir},
+                                    $spec{basename} . '.lds' );
+
+  $self->add_to_cleanup($script);
+
+  print "Generating script '$script'\n" if !$self->{quiet};
+
+  my $SCRIPT = IO::File->new( ">$script" )
+    or die( "Could not create script '$script': $!" );
+
+  print $SCRIPT ( 'SEARCH_DIR(' . $_ . ")\n" )
+    for @{delete $spec{libpath} || []};
+
+  # gcc takes only one startup file, so the first object in startup is
+  # specified as the startup file and any others are shifted into the
+  # beginning of the list of objects.
+  if ( $spec{startup} && @{$spec{startup}} ) {
+    print $SCRIPT 'STARTUP(' . shift( @{$spec{startup}} ) . ")\n";
+    unshift @{$spec{objects}},
+      @{delete $spec{startup} || []};
+  }
+
+  print $SCRIPT 'INPUT(' . join( ',',
+    @{delete $spec{objects}  || []}
+  ) . ")\n";
+
+  print $SCRIPT 'INPUT(' . join( ' ',
+     (delete $spec{libperl}  || ''),
+    @{delete $spec{perllibs} || []},
+  ) . ")\n";
+
+  #it is important to keep the order 1.linker_script - 2.other_ldflags
+  unshift @{$spec{other_ldflags}}, '"' . $script . '"';
+
+  return %spec;
+}
+
+1;
+
+
diff --git a/lib/5.24.1/ExtUtils/CBuilder/Platform/Windows/MSVC.pm b/lib/5.24.1/ExtUtils/CBuilder/Platform/Windows/MSVC.pm
new file mode 100644
index 00000000..c8d675f4
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/CBuilder/Platform/Windows/MSVC.pm
@@ -0,0 +1,132 @@
+package ExtUtils::CBuilder::Platform::Windows::MSVC;
+$ExtUtils::CBuilder::Platform::Windows::MSVC::VERSION = '0.280225';
+use warnings;
+use strict;
+
+sub arg_exec_file {
+  my ($self, $file) = @_;
+  return "/OUT:$file";
+}
+
+sub format_compiler_cmd {
+  my ($self, %spec) = @_;
+
+  foreach my $path ( @{ $spec{includes} || [] },
+                     @{ $spec{perlinc}  || [] } ) {
+    $path = '-I' . $path;
+  }
+
+  %spec = $self->write_compiler_script(%spec)
+    if $spec{use_scripts};
+
+  return [ grep {defined && length} (
+    $spec{cc},'-nologo','-c',
+    @{$spec{includes}}      ,
+    @{$spec{cflags}}        ,
+    @{$spec{optimize}}      ,
+    @{$spec{defines}}       ,
+    @{$spec{perlinc}}       ,
+    "-Fo$spec{output}"      ,
+    $spec{source}           ,
+  ) ];
+}
+
+sub write_compiler_script {
+  my ($self, %spec) = @_;
+
+  my $script = File::Spec->catfile( $spec{srcdir},
+                                    $spec{basename} . '.ccs' );
+
+  $self->add_to_cleanup($script);
+  print "Generating script '$script'\n" if !$self->{quiet};
+
+  my $SCRIPT = IO::File->new( ">$script" )
+    or die( "Could not create script '$script': $!" );
+
+  print $SCRIPT join( "\n",
+    map { ref $_ ? @{$_} : $_ }
+    grep defined,
+    delete(
+      @spec{ qw(includes cflags optimize defines perlinc) } )
+  );
+
+  push @{$spec{includes}}, '@"' . $script . '"';
+
+  return %spec;
+}
+
+sub format_linker_cmd {
+  my ($self, %spec) = @_;
+  my $cf = $self->{config};
+
+  foreach my $path ( @{$spec{libpath}} ) {
+    $path = "-libpath:$path";
+  }
+
+  my $output = $spec{output};
+  my $manifest = $spec{manifest};
+
+  $spec{def_file}  &&= '-def:'      . $spec{def_file};
+  $spec{output}    &&= '-out:'      . $spec{output};
+  $spec{manifest}  &&= '-manifest ' . $spec{manifest};
+  $spec{implib}    &&= '-implib:'   . $spec{implib};
+  $spec{map_file}  &&= '-map:'      . $spec{map_file};
+
+  %spec = $self->write_linker_script(%spec)
+    if $spec{use_scripts};
+
+  my @cmds; # Stores the series of commands needed to build the module.
+
+  push @cmds, [ grep {defined && length} (
+    $spec{ld}               ,
+    @{$spec{lddlflags}}     ,
+    @{$spec{libpath}}       ,
+    @{$spec{other_ldflags}} ,
+    @{$spec{startup}}       ,
+    @{$spec{objects}}       ,
+    $spec{map_file}         ,
+    $spec{libperl}          ,
+    @{$spec{perllibs}}      ,
+    $spec{def_file}         ,
+    $spec{implib}           ,
+    $spec{output}           ,
+  ) ];
+
+  # Embed the manifest file if it exists
+  push @cmds, [
+    'if', 'exist', $manifest, 'mt', '-nologo', $spec{manifest}, '-outputresource:' . "$output;2"
+  ];
+
+  return @cmds;
+}
+
+sub write_linker_script {
+  my ($self, %spec) = @_;
+
+  my $script = File::Spec->catfile( $spec{srcdir},
+                                    $spec{basename} . '.lds' );
+
+  $self->add_to_cleanup($script);
+
+  print "Generating script '$script'\n" if !$self->{quiet};
+
+  my $SCRIPT = IO::File->new( ">$script" )
+    or die( "Could not create script '$script': $!" );
+
+  print $SCRIPT join( "\n",
+    map { ref $_ ? @{$_} : $_ }
+    grep defined,
+    delete(
+      @spec{ qw(lddlflags libpath other_ldflags
+                startup objects libperl perllibs
+                def_file implib map_file)            } )
+  );
+
+  push @{$spec{lddlflags}}, '@"' . $script . '"';
+
+  return %spec;
+}
+
+1;
+
+
diff --git a/lib/5.24.1/ExtUtils/CBuilder/Platform/aix.pm b/lib/5.24.1/ExtUtils/CBuilder/Platform/aix.pm
new file mode 100644
index 00000000..488d3e68
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/CBuilder/Platform/aix.pm
@@ -0,0 +1,31 @@
+package ExtUtils::CBuilder::Platform::aix;
+$ExtUtils::CBuilder::Platform::aix::VERSION = '0.280225';
+use warnings;
+use strict;
+use ExtUtils::CBuilder::Platform::Unix;
+use File::Spec;
+
+use vars qw(@ISA);
+@ISA = qw(ExtUtils::CBuilder::Platform::Unix);
+
+sub need_prelink { 1 }
+
+sub link {
+  my ($self, %args) = @_;
+  my $cf = $self->{config};
+
+  (my $baseext = $args{module_name}) =~ s/.*:://;
+  my $perl_inc = $self->perl_inc();
+
+  # Massage some very naughty bits in %Config
+  local $cf->{lddlflags} = $cf->{lddlflags};
+  for ($cf->{lddlflags}) {
+    s/\Q$(BASEEXT)\E/$baseext/;
+    s/\Q$(PERL_INC)\E/$perl_inc/;
+  }
+
+  return $self->SUPER::link(%args);
+}
+
+
+1;
diff --git a/lib/5.24.1/ExtUtils/CBuilder/Platform/android.pm b/lib/5.24.1/ExtUtils/CBuilder/Platform/android.pm
new file mode 100644
index 00000000..b9e6af31
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/CBuilder/Platform/android.pm
@@ -0,0 +1,39 @@
+package ExtUtils::CBuilder::Platform::android;
+$ExtUtils::CBuilder::Platform::android::VERSION = '0.280225';
+use warnings;
+use strict;
+use File::Spec;
+use ExtUtils::CBuilder::Platform::Unix;
+use Config;
+
+use vars qw(@ISA);
+@ISA = qw(ExtUtils::CBuilder::Platform::Unix);
+
+# The Android linker will not recognize symbols from
+# libperl unless the module explicitly depends on it.
+sub link {
+  my ($self, %args) = @_;
+
+  if ($self->{config}{useshrplib} eq 'true') {
+    $args{extra_linker_flags} = [
+      $self->split_like_shell($args{extra_linker_flags}),
+      '-L' . $self->perl_inc(),
+      '-lperl',
+      $self->split_like_shell($Config{perllibs}),
+    ];
+  }
+
+  # Several modules on CPAN rather rightfully expect being
+  # able to pass $so_file to DynaLoader::dl_load_file and
+  # have it Just Work.  However, $so_file will more likely
+  # than not be a relative path, and unless the module 
+  # author subclasses MakeMaker/Module::Build to modify
+  # LD_LIBRARY_PATH, which would be insane, Android's linker
+  # won't find the .so
+  # So we make this all work by returning an absolute path.
+  my($so_file, @so_tmps) = $self->SUPER::link(%args);
+  $so_file = File::Spec->rel2abs($so_file);
+  return wantarray ? ($so_file, @so_tmps) : $so_file;
+}
+
+1;
diff --git a/lib/5.24.1/ExtUtils/CBuilder/Platform/cygwin.pm b/lib/5.24.1/ExtUtils/CBuilder/Platform/cygwin.pm
new file mode 100644
index 00000000..339840f8
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/CBuilder/Platform/cygwin.pm
@@ -0,0 +1,33 @@
+package ExtUtils::CBuilder::Platform::cygwin;
+$ExtUtils::CBuilder::Platform::cygwin::VERSION = '0.280225';
+use warnings;
+use strict;
+use File::Spec;
+use ExtUtils::CBuilder::Platform::Unix;
+
+use vars qw(@ISA);
+@ISA = qw(ExtUtils::CBuilder::Platform::Unix);
+
+# TODO: If a specific exe_file name is requested, if the exe created
+# doesn't have that name, we might want to rename it.  Apparently asking
+# for an exe of "foo" might result in "foo.exe".  Alternatively, we should
+# make sure the return value is correctly "foo.exe".
+# C.f http://rt.cpan.org/Public/Bug/Display.html?id=41003
+sub link_executable {
+  my $self = shift;
+  return $self->SUPER::link_executable(@_);
+}
+
+sub link {
+  my ($self, %args) = @_;
+
+  my $lib = $self->{config}{useshrplib} ? 'libperl.dll.a' : 'libperl.a';
+  $args{extra_linker_flags} = [
+    File::Spec->catfile($self->perl_inc(), $lib),
+    $self->split_like_shell($args{extra_linker_flags})
+  ];
+
+  return $self->SUPER::link(%args);
+}
+
+1;
diff --git a/lib/5.24.1/ExtUtils/CBuilder/Platform/darwin.pm b/lib/5.24.1/ExtUtils/CBuilder/Platform/darwin.pm
new file mode 100644
index 00000000..04a87da3
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/CBuilder/Platform/darwin.pm
@@ -0,0 +1,22 @@
+package ExtUtils::CBuilder::Platform::darwin;
+$ExtUtils::CBuilder::Platform::darwin::VERSION = '0.280225';
+use warnings;
+use strict;
+use ExtUtils::CBuilder::Platform::Unix;
+
+use vars qw(@ISA);
+@ISA = qw(ExtUtils::CBuilder::Platform::Unix);
+
+sub compile {
+  my $self = shift;
+  my $cf = $self->{config};
+
+  # -flat_namespace isn't a compile flag, it's a linker flag.  But
+  # it's mistakenly in Config.pm as both.  Make the correction here.
+  local $cf->{ccflags} = $cf->{ccflags};
+  $cf->{ccflags} =~ s/-flat_namespace//;
+  $self->SUPER::compile(@_);
+}
+
+
+1;
diff --git a/lib/5.24.1/ExtUtils/CBuilder/Platform/dec_osf.pm b/lib/5.24.1/ExtUtils/CBuilder/Platform/dec_osf.pm
new file mode 100644
index 00000000..d503e861
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/CBuilder/Platform/dec_osf.pm
@@ -0,0 +1,18 @@
+package ExtUtils::CBuilder::Platform::dec_osf;
+$ExtUtils::CBuilder::Platform::dec_osf::VERSION = '0.280225';
+use warnings;
+use strict;
+use ExtUtils::CBuilder::Platform::Unix;
+use File::Spec;
+
+use vars qw(@ISA);
+@ISA = qw(ExtUtils::CBuilder::Platform::Unix);
+
+sub link_executable {
+  my $self = shift;
+  # $Config{ld} is 'ld' but that won't work: use the cc instead.
+  local $self->{config}{ld} = $self->{config}{cc};
+  return $self->SUPER::link_executable(@_);
+}
+
+1;
diff --git a/lib/5.24.1/ExtUtils/CBuilder/Platform/os2.pm b/lib/5.24.1/ExtUtils/CBuilder/Platform/os2.pm
new file mode 100644
index 00000000..8d0e3eb0
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/CBuilder/Platform/os2.pm
@@ -0,0 +1,74 @@
+package ExtUtils::CBuilder::Platform::os2;
+$ExtUtils::CBuilder::Platform::os2::VERSION = '0.280225';
+use warnings;
+use strict;
+use ExtUtils::CBuilder::Platform::Unix;
+
+use vars qw(@ISA);
+@ISA = qw(ExtUtils::CBuilder::Platform::Unix);
+
+sub need_prelink { 1 }
+
+sub prelink {
+  # Generate import libraries (XXXX currently near .DEF; should be near DLL!)
+  my $self = shift;
+  my %args = @_;
+
+  my @res = $self->SUPER::prelink(%args);
+  die "Unexpected number of DEF files" unless @res == 1;
+  die "Can't find DEF file in the output"
+    unless $res[0] =~ m,^(.*)\.def$,si;
+  my $libname = "$1$self->{config}{lib_ext}";	# Put .LIB file near .DEF file
+  $self->do_system('emximp', '-o', $libname, $res[0]) or die "emxexp: res=$?";
+  return (@res, $libname);
+}
+
+sub _do_link {
+  my $self = shift;
+  my ($how, %args) = @_;
+  if ($how eq 'lib_file'
+      and (defined $args{module_name} and length $args{module_name})) {
+
+    # Now know the basename, find directory parts via lib_file, or objects
+    my $objs = ( (ref $args{objects}) ? $args{objects} : [$args{objects}] );
+    my $near_obj = $self->lib_file(@$objs);
+    my $exp_dir = ($near_obj =~ m,(.*)[/\\],s ? "$1/" : '' );
+
+    $args{dl_file} = $1 if $near_obj =~ m,(.*)\.,s; # put ExportList near OBJ
+
+    # XXX _do_link does not have place to put libraries?
+    push @$objs, $self->perl_inc() . "/libperl$self->{config}{lib_ext}";
+    $args{objects} = $objs;
+  }
+  # Some 'env' do exec(), thus return too early when run from ksh;
+  # To avoid 'env', remove (useless) shrpenv
+  local $self->{config}{shrpenv} = '';
+  return $self->SUPER::_do_link($how, %args);
+}
+
+sub extra_link_args_after_prelink {
+  # Add .DEF file to the link line
+  my ($self, %args) = @_;
+
+  my @DEF = grep /\.def$/i, @{$args{prelink_res}};
+  die "More than one .def files created by 'prelink' stage" if @DEF > 1;
+  # XXXX No "$how" argument here, so how to test for dynamic link?
+  die "No .def file created by 'prelink' stage"
+    unless @DEF or not @{$args{prelink_res}};
+
+  my @after_libs = ($OS2::is_aout ? ()
+      : $self->perl_inc() . "/libperl_override$self->{config}{lib_ext}");
+  # , "-L", "-lperl"
+  (@after_libs, @DEF);
+}
+
+sub link_executable {
+  # ldflags is not expecting .exe extension given on command line; remove -Zexe
+  my $self = shift;
+  local $self->{config}{ldflags} = $self->{config}{ldflags};
+  $self->{config}{ldflags} =~ s/(?<!\S)-Zexe(?!\S)//;
+  return $self->SUPER::link_executable(@_);
+}
+
+
+1;
diff --git a/lib/5.24.1/ExtUtils/Command.pm b/lib/5.24.1/ExtUtils/Command.pm
new file mode 100644
index 00000000..34e85dec
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/Command.pm
@@ -0,0 +1,380 @@
+package ExtUtils::Command;
+
+use 5.00503;
+use strict;
+require Exporter;
+use vars qw(@ISA @EXPORT @EXPORT_OK $VERSION);
+@ISA       = qw(Exporter);
+@EXPORT    = qw(cp rm_f rm_rf mv cat eqtime mkpath touch test_f test_d chmod
+                dos2unix);
+$VERSION = '7.10_02';
+$VERSION = eval $VERSION;
+
+my $Is_VMS   = $^O eq 'VMS';
+my $Is_VMS_mode = $Is_VMS;
+my $Is_VMS_noefs = $Is_VMS;
+my $Is_Win32 = $^O eq 'MSWin32';
+
+if( $Is_VMS ) {
+    my $vms_unix_rpt;
+    my $vms_efs;
+    my $vms_case;
+
+    if (eval { local $SIG{__DIE__};
+               local @INC = @INC;
+               pop @INC if $INC[-1] eq '.';
+               require VMS::Feature; }) {
+        $vms_unix_rpt = VMS::Feature::current("filename_unix_report");
+        $vms_efs = VMS::Feature::current("efs_charset");
+        $vms_case = VMS::Feature::current("efs_case_preserve");
+    } else {
+        my $unix_rpt = $ENV{'DECC$FILENAME_UNIX_REPORT'} || '';
+        my $efs_charset = $ENV{'DECC$EFS_CHARSET'} || '';
+        my $efs_case = $ENV{'DECC$EFS_CASE_PRESERVE'} || '';
+        $vms_unix_rpt = $unix_rpt =~ /^[ET1]/i;
+        $vms_efs = $efs_charset =~ /^[ET1]/i;
+        $vms_case = $efs_case =~ /^[ET1]/i;
+    }
+    $Is_VMS_mode = 0 if $vms_unix_rpt;
+    $Is_VMS_noefs = 0 if ($vms_efs);
+}
+
+
+=head1 NAME
+
+ExtUtils::Command - utilities to replace common UNIX commands in Makefiles etc.
+
+=head1 SYNOPSIS
+
+  perl -MExtUtils::Command -e cat files... > destination
+  perl -MExtUtils::Command -e mv source... destination
+  perl -MExtUtils::Command -e cp source... destination
+  perl -MExtUtils::Command -e touch files...
+  perl -MExtUtils::Command -e rm_f files...
+  perl -MExtUtils::Command -e rm_rf directories...
+  perl -MExtUtils::Command -e mkpath directories...
+  perl -MExtUtils::Command -e eqtime source destination
+  perl -MExtUtils::Command -e test_f file
+  perl -MExtUtils::Command -e test_d directory
+  perl -MExtUtils::Command -e chmod mode files...
+  ...
+
+=head1 DESCRIPTION
+
+The module is used to replace common UNIX commands.  In all cases the
+functions work from @ARGV rather than taking arguments.  This makes
+them easier to deal with in Makefiles.  Call them like this:
+
+  perl -MExtUtils::Command -e some_command some files to work on
+
+and I<NOT> like this:
+
+  perl -MExtUtils::Command -e 'some_command qw(some files to work on)'
+
+For that use L<Shell::Command>.
+
+Filenames with * and ? will be glob expanded.
+
+
+=head2 FUNCTIONS
+
+=over 4
+
+=cut
+
+# VMS uses % instead of ? to mean "one character"
+my $wild_regex = $Is_VMS ? '*%' : '*?';
+sub expand_wildcards
+{
+ @ARGV = map(/[$wild_regex]/o ? glob($_) : $_,@ARGV);
+}
+
+
+=item cat
+
+    cat file ...
+
+Concatenates all files mentioned on command line to STDOUT.
+
+=cut
+
+sub cat ()
+{
+ expand_wildcards();
+ print while (<>);
+}
+
+=item eqtime
+
+    eqtime source destination
+
+Sets modified time of destination to that of source.
+
+=cut
+
+sub eqtime
+{
+ my ($src,$dst) = @ARGV;
+ local @ARGV = ($dst);  touch();  # in case $dst doesn't exist
+ utime((stat($src))[8,9],$dst);
+}
+
+=item rm_rf
+
+    rm_rf files or directories ...
+
+Removes files and directories - recursively (even if readonly)
+
+=cut
+
+sub rm_rf
+{
+ expand_wildcards();
+ require File::Path;
+ File::Path::rmtree([grep -e $_,@ARGV],0,0);
+}
+
+=item rm_f
+
+    rm_f file ...
+
+Removes files (even if readonly)
+
+=cut
+
+sub rm_f {
+    expand_wildcards();
+
+    foreach my $file (@ARGV) {
+        next unless -f $file;
+
+        next if _unlink($file);
+
+        chmod(0777, $file);
+
+        next if _unlink($file);
+
+        require Carp;
+        Carp::carp("Cannot delete $file: $!");
+    }
+}
+
+sub _unlink {
+    my $files_unlinked = 0;
+    foreach my $file (@_) {
+        my $delete_count = 0;
+        $delete_count++ while unlink $file;
+        $files_unlinked++ if $delete_count;
+    }
+    return $files_unlinked;
+}
+
+
+=item touch
+
+    touch file ...
+
+Makes files exist, with current timestamp
+
+=cut
+
+sub touch {
+    my $t    = time;
+    expand_wildcards();
+    foreach my $file (@ARGV) {
+        open(FILE,">>$file") || die "Cannot write $file:$!";
+        close(FILE);
+        utime($t,$t,$file);
+    }
+}
+
+=item mv
+
+    mv source_file destination_file
+    mv source_file source_file destination_dir
+
+Moves source to destination.  Multiple sources are allowed if
+destination is an existing directory.
+
+Returns true if all moves succeeded, false otherwise.
+
+=cut
+
+sub mv {
+    expand_wildcards();
+    my @src = @ARGV;
+    my $dst = pop @src;
+
+    if (@src > 1 && ! -d $dst) {
+        require Carp;
+        Carp::croak("Too many arguments");
+    }
+
+    require File::Copy;
+    my $nok = 0;
+    foreach my $src (@src) {
+        $nok ||= !File::Copy::move($src,$dst);
+    }
+    return !$nok;
+}
+
+=item cp
+
+    cp source_file destination_file
+    cp source_file source_file destination_dir
+
+Copies sources to the destination.  Multiple sources are allowed if
+destination is an existing directory.
+
+Returns true if all copies succeeded, false otherwise.
+
+=cut
+
+sub cp {
+    expand_wildcards();
+    my @src = @ARGV;
+    my $dst = pop @src;
+
+    if (@src > 1 && ! -d $dst) {
+        require Carp;
+        Carp::croak("Too many arguments");
+    }
+
+    require File::Copy;
+    my $nok = 0;
+    foreach my $src (@src) {
+        $nok ||= !File::Copy::copy($src,$dst);
+
+        # Win32 does not update the mod time of a copied file, just the
+        # created time which make does not look at.
+        utime(time, time, $dst) if $Is_Win32;
+    }
+    return $nok;
+}
+
+=item chmod
+
+    chmod mode files ...
+
+Sets UNIX like permissions 'mode' on all the files.  e.g. 0666
+
+=cut
+
+sub chmod {
+    local @ARGV = @ARGV;
+    my $mode = shift(@ARGV);
+    expand_wildcards();
+
+    if( $Is_VMS_mode && $Is_VMS_noefs) {
+        require File::Spec;
+        foreach my $idx (0..$#ARGV) {
+            my $path = $ARGV[$idx];
+            next unless -d $path;
+
+            # chmod 0777, [.foo.bar] doesn't work on VMS, you have to do
+            # chmod 0777, [.foo]bar.dir
+            my @dirs = File::Spec->splitdir( $path );
+            $dirs[-1] .= '.dir';
+            $path = File::Spec->catfile(@dirs);
+
+            $ARGV[$idx] = $path;
+        }
+    }
+
+    chmod(oct $mode,@ARGV) || die "Cannot chmod ".join(' ',$mode,@ARGV).":$!";
+}
+
+=item mkpath
+
+    mkpath directory ...
+
+Creates directories, including any parent directories.
+
+=cut
+
+sub mkpath
+{
+ expand_wildcards();
+ require File::Path;
+ File::Path::mkpath([@ARGV],0,0777);
+}
+
+=item test_f
+
+    test_f file
+
+Tests if a file exists.  I<Exits> with 0 if it does, 1 if it does not (ie.
+shell's idea of true and false).
+
+=cut
+
+sub test_f
+{
+ exit(-f $ARGV[0] ? 0 : 1);
+}
+
+=item test_d
+
+    test_d directory
+
+Tests if a directory exists.  I<Exits> with 0 if it does, 1 if it does
+not (ie. shell's idea of true and false).
+
+=cut
+
+sub test_d
+{
+ exit(-d $ARGV[0] ? 0 : 1);
+}
+
+=item dos2unix
+
+    dos2unix files or dirs ...
+
+Converts DOS and OS/2 linefeeds to Unix style recursively.
+
+=cut
+
+sub dos2unix {
+    require File::Find;
+    File::Find::find(sub {
+        return if -d;
+        return unless -w _;
+        return unless -r _;
+        return if -B _;
+
+        local $\;
+
+	my $orig = $_;
+	my $temp = '.dos2unix_tmp';
+	open ORIG, $_ or do { warn "dos2unix can't open $_: $!"; return };
+	open TEMP, ">$temp" or
+	    do { warn "dos2unix can't create .dos2unix_tmp: $!"; return };
+        while (my $line = <ORIG>) {
+            $line =~ s/\015\012/\012/g;
+            print TEMP $line;
+        }
+	close ORIG;
+	close TEMP;
+	rename $temp, $orig;
+
+    }, @ARGV);
+}
+
+=back
+
+=head1 SEE ALSO
+
+Shell::Command which is these same functions but take arguments normally.
+
+
+=head1 AUTHOR
+
+Nick Ing-Simmons C<ni-s@cpan.org>
+
+Maintained by Michael G Schwern C<schwern@pobox.com> within the
+ExtUtils-MakeMaker package and, as a separate CPAN package, by
+Randy Kobes C<r.kobes@uwinnipeg.ca>.
+
+=cut
+
diff --git a/lib/5.24.1/ExtUtils/Command/MM.pm b/lib/5.24.1/ExtUtils/Command/MM.pm
new file mode 100644
index 00000000..b4385fc8
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/Command/MM.pm
@@ -0,0 +1,316 @@
+package ExtUtils::Command::MM;
+
+require 5.006;
+
+use strict;
+use warnings;
+
+require Exporter;
+our @ISA = qw(Exporter);
+
+our @EXPORT  = qw(test_harness pod2man perllocal_install uninstall
+                  warn_if_old_packlist test_s cp_nonempty);
+our $VERSION = '7.10_02';
+
+my $Is_VMS = $^O eq 'VMS';
+
+eval {  require Time::HiRes; die unless Time::HiRes->can("stat"); };
+*mtime = $@ ?
+ sub { [             stat($_[0])]->[9] } :
+ sub { [Time::HiRes::stat($_[0])]->[9] } ;
+
+=head1 NAME
+
+ExtUtils::Command::MM - Commands for the MM's to use in Makefiles
+
+=head1 SYNOPSIS
+
+  perl "-MExtUtils::Command::MM" -e "function" "--" arguments...
+
+
+=head1 DESCRIPTION
+
+B<FOR INTERNAL USE ONLY!>  The interface is not stable.
+
+ExtUtils::Command::MM encapsulates code which would otherwise have to
+be done with large "one" liners.
+
+Any $(FOO) used in the examples are make variables, not Perl.
+
+=over 4
+
+=item B<test_harness>
+
+  test_harness($verbose, @test_libs);
+
+Runs the tests on @ARGV via Test::Harness passing through the $verbose
+flag.  Any @test_libs will be unshifted onto the test's @INC.
+
+@test_libs are run in alphabetical order.
+
+=cut
+
+sub test_harness {
+    require Test::Harness;
+    require File::Spec;
+
+    $Test::Harness::verbose = shift;
+
+    # Because Windows doesn't do this for us and listing all the *.t files
+    # out on the command line can blow over its exec limit.
+    require ExtUtils::Command;
+    my @argv = ExtUtils::Command::expand_wildcards(@ARGV);
+
+    local @INC = @INC;
+    unshift @INC, map { File::Spec->rel2abs($_) } @_;
+    Test::Harness::runtests(sort { lc $a cmp lc $b } @argv);
+}
+
+
+
+=item B<pod2man>
+
+  pod2man( '--option=value',
+           $podfile1 => $manpage1,
+           $podfile2 => $manpage2,
+           ...
+         );
+
+  # or args on @ARGV
+
+pod2man() is a function performing most of the duties of the pod2man
+program.  Its arguments are exactly the same as pod2man as of 5.8.0
+with the addition of:
+
+    --perm_rw   octal permission to set the resulting manpage to
+
+And the removal of:
+
+    --verbose/-v
+    --help/-h
+
+If no arguments are given to pod2man it will read from @ARGV.
+
+If Pod::Man is unavailable, this function will warn and return undef.
+
+=cut
+
+sub pod2man {
+    local @ARGV = @_ ? @_ : @ARGV;
+
+    {
+        local $@;
+        if( !eval { require Pod::Man } ) {
+            warn "Pod::Man is not available: $@".
+                 "Man pages will not be generated during this install.\n";
+            return 0;
+        }
+    }
+    require Getopt::Long;
+
+    # We will cheat and just use Getopt::Long.  We fool it by putting
+    # our arguments into @ARGV.  Should be safe.
+    my %options = ();
+    Getopt::Long::config ('bundling_override');
+    Getopt::Long::GetOptions (\%options,
+                'section|s=s', 'release|r=s', 'center|c=s',
+                'date|d=s', 'fixed=s', 'fixedbold=s', 'fixeditalic=s',
+                'fixedbolditalic=s', 'official|o', 'quotes|q=s', 'lax|l',
+                'name|n=s', 'perm_rw=i', 'utf8|u'
+    );
+    delete $options{utf8} unless $Pod::Man::VERSION >= 2.17;
+
+    # If there's no files, don't bother going further.
+    return 0 unless @ARGV;
+
+    # Official sets --center, but don't override things explicitly set.
+    if ($options{official} && !defined $options{center}) {
+        $options{center} = q[Perl Programmer's Reference Guide];
+    }
+
+    # This isn't a valid Pod::Man option and is only accepted for backwards
+    # compatibility.
+    delete $options{lax};
+    my $count = scalar @ARGV / 2;
+    my $plural = $count == 1 ? 'document' : 'documents';
+    print "Manifying $count pod $plural\n";
+
+    do {{  # so 'next' works
+        my ($pod, $man) = splice(@ARGV, 0, 2);
+
+        next if ((-e $man) &&
+                 (mtime($man) > mtime($pod)) &&
+                 (mtime($man) > mtime("Makefile")));
+
+        my $parser = Pod::Man->new(%options);
+        $parser->parse_from_file($pod, $man)
+          or do { warn("Could not install $man\n");  next };
+
+        if (exists $options{perm_rw}) {
+            chmod(oct($options{perm_rw}), $man)
+              or do { warn("chmod $options{perm_rw} $man: $!\n"); next };
+        }
+    }} while @ARGV;
+
+    return 1;
+}
+
+
+=item B<warn_if_old_packlist>
+
+  perl "-MExtUtils::Command::MM" -e warn_if_old_packlist <somefile>
+
+Displays a warning that an old packlist file was found.  Reads the
+filename from @ARGV.
+
+=cut
+
+sub warn_if_old_packlist {
+    my $packlist = $ARGV[0];
+
+    return unless -f $packlist;
+    print <<"PACKLIST_WARNING";
+WARNING: I have found an old package in
+    $packlist.
+Please make sure the two installations are not conflicting
+PACKLIST_WARNING
+
+}
+
+
+=item B<perllocal_install>
+
+    perl "-MExtUtils::Command::MM" -e perllocal_install
+        <type> <module name> <key> <value> ...
+
+    # VMS only, key|value pairs come on STDIN
+    perl "-MExtUtils::Command::MM" -e perllocal_install
+        <type> <module name> < <key>|<value> ...
+
+Prints a fragment of POD suitable for appending to perllocal.pod.
+Arguments are read from @ARGV.
+
+'type' is the type of what you're installing.  Usually 'Module'.
+
+'module name' is simply the name of your module.  (Foo::Bar)
+
+Key/value pairs are extra information about the module.  Fields include:
+
+    installed into      which directory your module was out into
+    LINKTYPE            dynamic or static linking
+    VERSION             module version number
+    EXE_FILES           any executables installed in a space seperated
+                        list
+
+=cut
+
+sub perllocal_install {
+    my($type, $name) = splice(@ARGV, 0, 2);
+
+    # VMS feeds args as a piped file on STDIN since it usually can't
+    # fit all the args on a single command line.
+    my @mod_info = $Is_VMS ? split /\|/, <STDIN>
+                           : @ARGV;
+
+    my $pod;
+    $pod = sprintf <<POD, scalar localtime;
+ =head2 %s: C<$type> L<$name|$name>
+
+ =over 4
+
+POD
+
+    do {
+        my($key, $val) = splice(@mod_info, 0, 2);
+
+        $pod .= <<POD
+ =item *
+
+ C<$key: $val>
+
+POD
+
+    } while(@mod_info);
+
+    $pod .= "=back\n\n";
+    $pod =~ s/^ //mg;
+    print $pod;
+
+    return 1;
+}
+
+=item B<uninstall>
+
+    perl "-MExtUtils::Command::MM" -e uninstall <packlist>
+
+A wrapper around ExtUtils::Install::uninstall().  Warns that
+uninstallation is deprecated and doesn't actually perform the
+uninstallation.
+
+=cut
+
+sub uninstall {
+    my($packlist) = shift @ARGV;
+
+    require ExtUtils::Install;
+
+    print <<'WARNING';
+
+Uninstall is unsafe and deprecated, the uninstallation was not performed.
+We will show what would have been done.
+
+WARNING
+
+    ExtUtils::Install::uninstall($packlist, 1, 1);
+
+    print <<'WARNING';
+
+Uninstall is unsafe and deprecated, the uninstallation was not performed.
+Please check the list above carefully, there may be errors.
+Remove the appropriate files manually.
+Sorry for the inconvenience.
+
+WARNING
+
+}
+
+=item B<test_s>
+
+   perl "-MExtUtils::Command::MM" -e test_s <file>
+
+Tests if a file exists and is not empty (size > 0).
+I<Exits> with 0 if it does, 1 if it does not.
+
+=cut
+
+sub test_s {
+  exit(-s $ARGV[0] ? 0 : 1);
+}
+
+=item B<cp_nonempty>
+
+  perl "-MExtUtils::Command::MM" -e cp_nonempty <srcfile> <dstfile> <perm>
+
+Tests if the source file exists and is not empty (size > 0). If it is not empty
+it copies it to the given destination with the given permissions.
+
+=back
+
+=cut
+
+sub cp_nonempty {
+  my @args = @ARGV;
+  return 0 unless -s $args[0];
+  require ExtUtils::Command;
+  {
+    local @ARGV = @args[0,1];
+    ExtUtils::Command::cp(@ARGV);
+  }
+  {
+    local @ARGV = @args[2,1];
+    ExtUtils::Command::chmod(@ARGV);
+  }
+}
+
+
+1;
diff --git a/lib/5.24.1/ExtUtils/Constant.pm b/lib/5.24.1/ExtUtils/Constant.pm
new file mode 100644
index 00000000..0dc92587
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/Constant.pm
@@ -0,0 +1,567 @@
+package ExtUtils::Constant;
+use vars qw (@ISA $VERSION @EXPORT_OK %EXPORT_TAGS);
+$VERSION = 0.23;
+
+=head1 NAME
+
+ExtUtils::Constant - generate XS code to import C header constants
+
+=head1 SYNOPSIS
+
+    use ExtUtils::Constant qw (WriteConstants);
+    WriteConstants(
+        NAME => 'Foo',
+        NAMES => [qw(FOO BAR BAZ)],
+    );
+    # Generates wrapper code to make the values of the constants FOO BAR BAZ
+    #  available to perl
+
+=head1 DESCRIPTION
+
+ExtUtils::Constant facilitates generating C and XS wrapper code to allow
+perl modules to AUTOLOAD constants defined in C library header files.
+It is principally used by the C<h2xs> utility, on which this code is based.
+It doesn't contain the routines to scan header files to extract these
+constants.
+
+=head1 USAGE
+
+Generally one only needs to call the C<WriteConstants> function, and then
+
+    #include "const-c.inc"
+
+in the C section of C<Foo.xs>
+
+    INCLUDE: const-xs.inc
+
+in the XS section of C<Foo.xs>.
+
+For greater flexibility use C<constant_types()>, C<C_constant> and
+C<XS_constant>, with which C<WriteConstants> is implemented.
+
+Currently this module understands the following types. h2xs may only know
+a subset. The sizes of the numeric types are chosen by the C<Configure>
+script at compile time.
+
+=over 4
+
+=item IV
+
+signed integer, at least 32 bits.
+
+=item UV
+
+unsigned integer, the same size as I<IV>
+
+=item NV
+
+floating point type, probably C<double>, possibly C<long double>
+
+=item PV
+
+NUL terminated string, length will be determined with C<strlen>
+
+=item PVN
+
+A fixed length thing, given as a [pointer, length] pair. If you know the
+length of a string at compile time you may use this instead of I<PV>
+
+=item SV
+
+A B<mortal> SV.
+
+=item YES
+
+Truth.  (C<PL_sv_yes>)  The value is not needed (and ignored).
+
+=item NO
+
+Defined Falsehood.  (C<PL_sv_no>)  The value is not needed (and ignored).
+
+=item UNDEF
+
+C<undef>.  The value of the macro is not needed.
+
+=back
+
+=head1 FUNCTIONS
+
+=over 4
+
+=cut
+
+if ($] >= 5.006) {
+  eval "use warnings; 1" or die $@;
+}
+use strict;
+use Carp qw(croak cluck);
+
+use Exporter;
+use ExtUtils::Constant::Utils qw(C_stringify);
+use ExtUtils::Constant::XS qw(%XS_Constant %XS_TypeSet);
+
+@ISA = 'Exporter';
+
+%EXPORT_TAGS = ( 'all' => [ qw(
+	XS_constant constant_types return_clause memEQ_clause C_stringify
+	C_constant autoload WriteConstants WriteMakefileSnippet
+) ] );
+
+@EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
+
+=item constant_types
+
+A function returning a single scalar with C<#define> definitions for the
+constants used internally between the generated C and XS functions.
+
+=cut
+
+sub constant_types {
+  ExtUtils::Constant::XS->header();
+}
+
+sub memEQ_clause {
+  cluck "ExtUtils::Constant::memEQ_clause is deprecated";
+  ExtUtils::Constant::XS->memEQ_clause({name=>$_[0], checked_at=>$_[1],
+					indent=>$_[2]});
+}
+
+sub return_clause ($$) {
+  cluck "ExtUtils::Constant::return_clause is deprecated";
+  my $indent = shift;
+  ExtUtils::Constant::XS->return_clause({indent=>$indent}, @_);
+}
+
+sub switch_clause {
+  cluck "ExtUtils::Constant::switch_clause is deprecated";
+  my $indent = shift;
+  my $comment = shift;
+  ExtUtils::Constant::XS->switch_clause({indent=>$indent, comment=>$comment},
+					@_);
+}
+
+sub C_constant {
+  my ($package, $subname, $default_type, $what, $indent, $breakout, @items)
+    = @_;
+  ExtUtils::Constant::XS->C_constant({package => $package, subname => $subname,
+				      default_type => $default_type,
+				      types => $what, indent => $indent,
+				      breakout => $breakout}, @items);
+}
+
+=item XS_constant PACKAGE, TYPES, XS_SUBNAME, C_SUBNAME
+
+A function to generate the XS code to implement the perl subroutine
+I<PACKAGE>::constant used by I<PACKAGE>::AUTOLOAD to load constants.
+This XS code is a wrapper around a C subroutine usually generated by
+C<C_constant>, and usually named C<constant>.
+
+I<TYPES> should be given either as a comma separated list of types that the
+C subroutine C<constant> will generate or as a reference to a hash. It should
+be the same list of types as C<C_constant> was given.
+[Otherwise C<XS_constant> and C<C_constant> may have different ideas about
+the number of parameters passed to the C function C<constant>]
+
+You can call the perl visible subroutine something other than C<constant> if
+you give the parameter I<XS_SUBNAME>. The C subroutine it calls defaults to
+the name of the perl visible subroutine, unless you give the parameter
+I<C_SUBNAME>.
+
+=cut
+
+sub XS_constant {
+  my $package = shift;
+  my $what = shift;
+  my $XS_subname = shift;
+  my $C_subname = shift;
+  $XS_subname ||= 'constant';
+  $C_subname ||= $XS_subname;
+
+  if (!ref $what) {
+    # Convert line of the form IV,UV,NV to hash
+    $what = {map {$_ => 1} split /,\s*/, ($what)};
+  }
+  my $params = ExtUtils::Constant::XS->params ($what);
+  my $type;
+
+  my $xs = <<"EOT";
+void
+$XS_subname(sv)
+    PREINIT:
+#ifdef dXSTARG
+	dXSTARG; /* Faster if we have it.  */
+#else
+	dTARGET;
+#endif
+	STRLEN		len;
+        int		type;
+EOT
+
+  if ($params->{IV}) {
+    $xs .= "	IV		iv;\n";
+  } else {
+    $xs .= "	/* IV\t\tiv;\tUncomment this if you need to return IVs */\n";
+  }
+  if ($params->{NV}) {
+    $xs .= "	NV		nv;\n";
+  } else {
+    $xs .= "	/* NV\t\tnv;\tUncomment this if you need to return NVs */\n";
+  }
+  if ($params->{PV}) {
+    $xs .= "	const char	*pv;\n";
+  } else {
+    $xs .=
+      "	/* const char\t*pv;\tUncomment this if you need to return PVs */\n";
+  }
+
+  $xs .= << 'EOT';
+    INPUT:
+	SV *		sv;
+        const char *	s = SvPV(sv, len);
+EOT
+  if ($params->{''}) {
+  $xs .= << 'EOT';
+    INPUT:
+	int		utf8 = SvUTF8(sv);
+EOT
+  }
+  $xs .= << 'EOT';
+    PPCODE:
+EOT
+
+  if ($params->{IV} xor $params->{NV}) {
+    $xs .= << "EOT";
+        /* Change this to $C_subname(aTHX_ s, len, &iv, &nv);
+           if you need to return both NVs and IVs */
+EOT
+  }
+  $xs .= "	type = $C_subname(aTHX_ s, len";
+  $xs .= ', utf8' if $params->{''};
+  $xs .= ', &iv' if $params->{IV};
+  $xs .= ', &nv' if $params->{NV};
+  $xs .= ', &pv' if $params->{PV};
+  $xs .= ', &sv' if $params->{SV};
+  $xs .= ");\n";
+
+  # If anyone is insane enough to suggest a package name containing %
+  my $package_sprintf_safe = $package;
+  $package_sprintf_safe =~ s/%/%%/g;
+
+  $xs .= << "EOT";
+      /* Return 1 or 2 items. First is error message, or undef if no error.
+           Second, if present, is found value */
+        switch (type) {
+        case PERL_constant_NOTFOUND:
+          sv =
+	    sv_2mortal(newSVpvf("%s is not a valid $package_sprintf_safe macro", s));
+          PUSHs(sv);
+          break;
+        case PERL_constant_NOTDEF:
+          sv = sv_2mortal(newSVpvf(
+	    "Your vendor has not defined $package_sprintf_safe macro %s, used",
+				   s));
+          PUSHs(sv);
+          break;
+EOT
+
+  foreach $type (sort keys %XS_Constant) {
+    # '' marks utf8 flag needed.
+    next if $type eq '';
+    $xs .= "\t/* Uncomment this if you need to return ${type}s\n"
+      unless $what->{$type};
+    $xs .= "        case PERL_constant_IS$type:\n";
+    if (length $XS_Constant{$type}) {
+      $xs .= << "EOT";
+          EXTEND(SP, 1);
+          PUSHs(&PL_sv_undef);
+          $XS_Constant{$type};
+EOT
+    } else {
+      # Do nothing. return (), which will be correctly interpreted as
+      # (undef, undef)
+    }
+    $xs .= "          break;\n";
+    unless ($what->{$type}) {
+      chop $xs; # Yes, another need for chop not chomp.
+      $xs .= " */\n";
+    }
+  }
+  $xs .= << "EOT";
+        default:
+          sv = sv_2mortal(newSVpvf(
+	    "Unexpected return type %d while processing $package_sprintf_safe macro %s, used",
+               type, s));
+          PUSHs(sv);
+        }
+EOT
+
+  return $xs;
+}
+
+
+=item autoload PACKAGE, VERSION, AUTOLOADER
+
+A function to generate the AUTOLOAD subroutine for the module I<PACKAGE>
+I<VERSION> is the perl version the code should be backwards compatible with.
+It defaults to the version of perl running the subroutine.  If I<AUTOLOADER>
+is true, the AUTOLOAD subroutine falls back on AutoLoader::AUTOLOAD for all
+names that the constant() routine doesn't recognise.
+
+=cut
+
+# ' # Grr. syntax highlighters that don't grok pod.
+
+sub autoload {
+  my ($module, $compat_version, $autoloader) = @_;
+  $compat_version ||= $];
+  croak "Can't maintain compatibility back as far as version $compat_version"
+    if $compat_version < 5;
+  my $func = "sub AUTOLOAD {\n"
+  . "    # This AUTOLOAD is used to 'autoload' constants from the constant()\n"
+  . "    # XS function.";
+  $func .= "  If a constant is not found then control is passed\n"
+  . "    # to the AUTOLOAD in AutoLoader." if $autoloader;
+
+
+  $func .= "\n\n"
+  . "    my \$constname;\n";
+  $func .=
+    "    our \$AUTOLOAD;\n"  if ($compat_version >= 5.006);
+
+  $func .= <<"EOT";
+    (\$constname = \$AUTOLOAD) =~ s/.*:://;
+    croak "&${module}::constant not defined" if \$constname eq 'constant';
+    my (\$error, \$val) = constant(\$constname);
+EOT
+
+  if ($autoloader) {
+    $func .= <<'EOT';
+    if ($error) {
+	if ($error =~  /is not a valid/) {
+	    $AutoLoader::AUTOLOAD = $AUTOLOAD;
+	    goto &AutoLoader::AUTOLOAD;
+	} else {
+	    croak $error;
+	}
+    }
+EOT
+  } else {
+    $func .=
+      "    if (\$error) { croak \$error; }\n";
+  }
+
+  $func .= <<'END';
+    {
+	no strict 'refs';
+	# Fixed between 5.005_53 and 5.005_61
+#XXX	if ($] >= 5.00561) {
+#XXX	    *$AUTOLOAD = sub () { $val };
+#XXX	}
+#XXX	else {
+	    *$AUTOLOAD = sub { $val };
+#XXX	}
+    }
+    goto &$AUTOLOAD;
+}
+
+END
+
+  return $func;
+}
+
+
+=item WriteMakefileSnippet
+
+WriteMakefileSnippet ATTRIBUTE =E<gt> VALUE [, ...] 
+
+A function to generate perl code for Makefile.PL that will regenerate
+the constant subroutines.  Parameters are named as passed to C<WriteConstants>,
+with the addition of C<INDENT> to specify the number of leading spaces
+(default 2).
+
+Currently only C<INDENT>, C<NAME>, C<DEFAULT_TYPE>, C<NAMES>, C<C_FILE> and
+C<XS_FILE> are recognised.
+
+=cut
+
+sub WriteMakefileSnippet {
+  my %args = @_;
+  my $indent = $args{INDENT} || 2;
+
+  my $result = <<"EOT";
+ExtUtils::Constant::WriteConstants(
+                                   NAME         => '$args{NAME}',
+                                   NAMES        => \\\@names,
+                                   DEFAULT_TYPE => '$args{DEFAULT_TYPE}',
+EOT
+  foreach (qw (C_FILE XS_FILE)) {
+    next unless exists $args{$_};
+    $result .= sprintf "                                   %-12s => '%s',\n",
+      $_, $args{$_};
+  }
+  $result .= <<'EOT';
+                                );
+EOT
+
+  $result =~ s/^/' 'x$indent/gem;
+  return ExtUtils::Constant::XS->dump_names({default_type=>$args{DEFAULT_TYPE},
+					     indent=>$indent,},
+					    @{$args{NAMES}})
+    . $result;
+}
+
+=item WriteConstants ATTRIBUTE =E<gt> VALUE [, ...]
+
+Writes a file of C code and a file of XS code which you should C<#include>
+and C<INCLUDE> in the C and XS sections respectively of your module's XS
+code.  You probably want to do this in your C<Makefile.PL>, so that you can
+easily edit the list of constants without touching the rest of your module.
+The attributes supported are
+
+=over 4
+
+=item NAME
+
+Name of the module.  This must be specified
+
+=item DEFAULT_TYPE
+
+The default type for the constants.  If not specified C<IV> is assumed.
+
+=item BREAKOUT_AT
+
+The names of the constants are grouped by length.  Generate child subroutines
+for each group with this number or more names in.
+
+=item NAMES
+
+An array of constants' names, either scalars containing names, or hashrefs
+as detailed in L<"C_constant">.
+
+=item PROXYSUBS
+
+If true, uses proxy subs. See L<ExtUtils::Constant::ProxySubs>.
+
+=item C_FH
+
+A filehandle to write the C code to.  If not given, then I<C_FILE> is opened
+for writing.
+
+=item C_FILE
+
+The name of the file to write containing the C code.  The default is
+C<const-c.inc>.  The C<-> in the name ensures that the file can't be
+mistaken for anything related to a legitimate perl package name, and
+not naming the file C<.c> avoids having to override Makefile.PL's
+C<.xs> to C<.c> rules.
+
+=item XS_FH
+
+A filehandle to write the XS code to.  If not given, then I<XS_FILE> is opened
+for writing.
+
+=item XS_FILE
+
+The name of the file to write containing the XS code.  The default is
+C<const-xs.inc>.
+
+=item XS_SUBNAME
+
+The perl visible name of the XS subroutine generated which will return the
+constants. The default is C<constant>.
+
+=item C_SUBNAME
+
+The name of the C subroutine generated which will return the constants.
+The default is I<XS_SUBNAME>.  Child subroutines have C<_> and the name
+length appended, so constants with 10 character names would be in
+C<constant_10> with the default I<XS_SUBNAME>.
+
+=back
+
+=cut
+
+sub WriteConstants {
+  my %ARGS =
+    ( # defaults
+     C_FILE =>       'const-c.inc',
+     XS_FILE =>      'const-xs.inc',
+     XS_SUBNAME =>   'constant',
+     DEFAULT_TYPE => 'IV',
+     @_);
+
+  $ARGS{C_SUBNAME} ||= $ARGS{XS_SUBNAME}; # No-one sane will have C_SUBNAME eq '0'
+
+  croak "Module name not specified" unless length $ARGS{NAME};
+
+  # Do this before creating (empty) files, in case it fails:
+  require ExtUtils::Constant::ProxySubs if $ARGS{PROXYSUBS};
+
+  my $c_fh = $ARGS{C_FH};
+  if (!$c_fh) {
+      if ($] <= 5.008) {
+	  # We need these little games, rather than doing things
+	  # unconditionally, because we're used in core Makefile.PLs before
+	  # IO is available (needed by filehandle), but also we want to work on
+	  # older perls where undefined scalars do not automatically turn into
+	  # anonymous file handles.
+	  require FileHandle;
+	  $c_fh = FileHandle->new();
+      }
+      open $c_fh, ">$ARGS{C_FILE}" or die "Can't open $ARGS{C_FILE}: $!";
+  }
+
+  my $xs_fh = $ARGS{XS_FH};
+  if (!$xs_fh) {
+      if ($] <= 5.008) {
+	  require FileHandle;
+	  $xs_fh = FileHandle->new();
+      }
+      open $xs_fh, ">$ARGS{XS_FILE}" or die "Can't open $ARGS{XS_FILE}: $!";
+  }
+
+  # As this subroutine is intended to make code that isn't edited, there's no
+  # need for the user to specify any types that aren't found in the list of
+  # names.
+  
+  if ($ARGS{PROXYSUBS}) {
+      $ARGS{C_FH} = $c_fh;
+      $ARGS{XS_FH} = $xs_fh;
+      ExtUtils::Constant::ProxySubs->WriteConstants(%ARGS);
+  } else {
+      my $types = {};
+
+      print $c_fh constant_types(); # macro defs
+      print $c_fh "\n";
+
+      # indent is still undef. Until anyone implements indent style rules with
+      # it.
+      foreach (ExtUtils::Constant::XS->C_constant({package => $ARGS{NAME},
+						   subname => $ARGS{C_SUBNAME},
+						   default_type =>
+						       $ARGS{DEFAULT_TYPE},
+						       types => $types,
+						       breakout =>
+						       $ARGS{BREAKOUT_AT}},
+						  @{$ARGS{NAMES}})) {
+	  print $c_fh $_, "\n"; # C constant subs
+      }
+      print $xs_fh XS_constant ($ARGS{NAME}, $types, $ARGS{XS_SUBNAME},
+				$ARGS{C_SUBNAME});
+  }
+
+  close $c_fh or warn "Error closing $ARGS{C_FILE}: $!" unless $ARGS{C_FH};
+  close $xs_fh or warn "Error closing $ARGS{XS_FILE}: $!" unless $ARGS{XS_FH};
+}
+
+1;
+__END__
+
+=back
+
+=head1 AUTHOR
+
+Nicholas Clark <nick@ccl4.org> based on the code in C<h2xs> by Larry Wall and
+others
+
+=cut
diff --git a/lib/5.24.1/ExtUtils/Constant/Base.pm b/lib/5.24.1/ExtUtils/Constant/Base.pm
new file mode 100644
index 00000000..b6abe1c2
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/Constant/Base.pm
@@ -0,0 +1,1018 @@
+package ExtUtils::Constant::Base;
+
+use strict;
+use vars qw($VERSION);
+use Carp;
+use Text::Wrap;
+use ExtUtils::Constant::Utils qw(C_stringify perl_stringify);
+$VERSION = '0.05';
+
+use constant is_perl56 => ($] < 5.007 && $] > 5.005_50);
+
+
+=head1 NAME
+
+ExtUtils::Constant::Base - base class for ExtUtils::Constant objects
+
+=head1 SYNOPSIS
+
+    require ExtUtils::Constant::Base;
+    @ISA = 'ExtUtils::Constant::Base';
+
+=head1 DESCRIPTION
+
+ExtUtils::Constant::Base provides a base implementation of methods to
+generate C code to give fast constant value lookup by named string. Currently
+it's mostly used ExtUtils::Constant::XS, which generates the lookup code
+for the constant() subroutine found in many XS modules.
+
+=head1 USAGE
+
+ExtUtils::Constant::Base exports no subroutines. The following methods are
+available
+
+=over 4
+
+=cut
+
+sub valid_type {
+  # Default to assuming that you don't need different types of return data.
+  1;
+}
+sub default_type {
+  '';
+}
+
+=item header
+
+A method returning a scalar containing definitions needed, typically for a
+C header file.
+
+=cut
+
+sub header {
+  ''
+}
+
+# This might actually be a return statement. Note that you are responsible
+# for any space you might need before your value, as it lets to perform
+# "tricks" such as "return KEY_" and have strings appended.
+sub assignment_clause_for_type;
+# In which case this might be an empty string
+sub return_statement_for_type {undef};
+sub return_statement_for_notdef;
+sub return_statement_for_notfound;
+
+# "#if 1" is true to a C pre-processor
+sub macro_from_name {
+  1;
+}
+
+sub macro_from_item {
+  1;
+}
+
+sub macro_to_ifdef {
+    my ($self, $macro) = @_;
+    if (ref $macro) {
+	return $macro->[0];
+    }
+    if (defined $macro && $macro ne "" && $macro ne "1") {
+	return $macro ? "#ifdef $macro\n" : "#if 0\n";
+    }
+    return "";
+}
+
+sub macro_to_ifndef {
+    my ($self, $macro) = @_;
+    if (ref $macro) {
+	# Can't invert these stylishly, so "bodge it"
+	return "$macro->[0]#else\n";
+    }
+    if (defined $macro && $macro ne "" && $macro ne "1") {
+	return $macro ? "#ifndef $macro\n" : "#if 1\n";
+    }
+    croak "Can't generate an ifndef for unconditional code";
+}
+
+sub macro_to_endif {
+    my ($self, $macro) = @_;
+
+    if (ref $macro) {
+	return $macro->[1];
+    }
+    if (defined $macro && $macro ne "" && $macro ne "1") {
+	return "#endif\n";
+    }
+    return "";
+}
+
+sub name_param {
+  'name';
+}
+
+# This is possibly buggy, in that it's not mandatory (below, in the main
+# C_constant parameters, but is expected to exist here, if it's needed)
+# Buggy because if you're definitely pure 8 bit only, and will never be
+# presented with your constants in utf8, the default form of C_constant can't
+# be told not to do the utf8 version.
+
+sub is_utf8_param {
+  'utf8';
+}
+
+sub memEQ {
+  "!memcmp";
+}
+
+=item memEQ_clause args_hashref
+
+A method to return a suitable C C<if> statement to check whether I<name>
+is equal to the C variable C<name>. If I<checked_at> is defined, then it
+is used to avoid C<memEQ> for short names, or to generate a comment to
+highlight the position of the character in the C<switch> statement.
+
+If i<checked_at> is a reference to a scalar, then instead it gives
+the characters pre-checked at the beginning, (and the number of chars by
+which the C variable name has been advanced. These need to be chopped from
+the front of I<name>).
+
+=cut
+
+sub memEQ_clause {
+#    if (memEQ(name, "thingy", 6)) {
+  # Which could actually be a character comparison or even ""
+  my ($self, $args) = @_;
+  my ($name, $checked_at, $indent) = @{$args}{qw(name checked_at indent)};
+  $indent = ' ' x ($indent || 4);
+  my $front_chop;
+  if (ref $checked_at) {
+    # regexp won't work on 5.6.1 without use utf8; in turn that won't work
+    # on 5.005_03.
+    substr ($name, 0, length $$checked_at,) = '';
+    $front_chop = C_stringify ($$checked_at);
+    undef $checked_at;
+  }
+  my $len = length $name;
+
+  if ($len < 2) {
+    return $indent . "{\n"
+	if (defined $checked_at and $checked_at == 0) or $len == 0;
+    # We didn't switch, drop through to the code for the 2 character string
+    $checked_at = 1;
+  }
+
+  my $name_param = $self->name_param;
+
+  if ($len < 3 and defined $checked_at) {
+    my $check;
+    if ($checked_at == 1) {
+      $check = 0;
+    } elsif ($checked_at == 0) {
+      $check = 1;
+    }
+    if (defined $check) {
+      my $char = C_stringify (substr $name, $check, 1);
+      # Placate 5.005 with a break in the string. I can't see a good way of
+      # getting it to not take [ as introducing an array lookup, even with
+      # ${name_param}[$check]
+      return $indent . "if ($name_param" . "[$check] == '$char') {\n";
+    }
+  }
+  if (($len == 2 and !defined $checked_at)
+     or ($len == 3 and defined ($checked_at) and $checked_at == 2)) {
+    my $char1 = C_stringify (substr $name, 0, 1);
+    my $char2 = C_stringify (substr $name, 1, 1);
+    return $indent .
+      "if ($name_param" . "[0] == '$char1' && $name_param" . "[1] == '$char2') {\n";
+  }
+  if (($len == 3 and defined ($checked_at) and $checked_at == 1)) {
+    my $char1 = C_stringify (substr $name, 0, 1);
+    my $char2 = C_stringify (substr $name, 2, 1);
+    return $indent .
+      "if ($name_param" . "[0] == '$char1' && $name_param" . "[2] == '$char2') {\n";
+  }
+
+  my $pointer = '^';
+  my $have_checked_last = defined ($checked_at) && $len == $checked_at + 1;
+  if ($have_checked_last) {
+    # Checked at the last character, so no need to memEQ it.
+    $pointer = C_stringify (chop $name);
+    $len--;
+  }
+
+  $name = C_stringify ($name);
+  my $memEQ = $self->memEQ();
+  my $body = $indent . "if ($memEQ($name_param, \"$name\", $len)) {\n";
+  # Put a little ^ under the letter we checked at
+  # Screws up for non printable and non-7 bit stuff, but that's too hard to
+  # get right.
+  if (defined $checked_at) {
+    $body .= $indent . "/*      " . (' ' x length $memEQ)
+      . (' ' x length $name_param)
+      . (' ' x $checked_at) . $pointer
+      . (' ' x ($len - $checked_at + length $len)) . "    */\n";
+  } elsif (defined $front_chop) {
+    $body .= $indent . "/*                $front_chop"
+      . (' ' x ($len + 1 + length $len)) . "    */\n";
+  }
+  return $body;
+}
+
+=item dump_names arg_hashref, ITEM...
+
+An internal function to generate the embedded perl code that will regenerate
+the constant subroutines.  I<default_type>, I<types> and I<ITEM>s are the
+same as for C_constant.  I<indent> is treated as number of spaces to indent
+by.  If C<declare_types> is true a C<$types> is always declared in the perl
+code generated, if defined and false never declared, and if undefined C<$types>
+is only declared if the values in I<types> as passed in cannot be inferred from
+I<default_types> and the I<ITEM>s.
+
+=cut
+
+sub dump_names {
+  my ($self, $args, @items) = @_;
+  my ($default_type, $what, $indent, $declare_types)
+    = @{$args}{qw(default_type what indent declare_types)};
+  $indent = ' ' x ($indent || 0);
+
+  my $result;
+  my (@simple, @complex, %used_types);
+  foreach (@items) {
+    my $type;
+    if (ref $_) {
+      $type = $_->{type} || $default_type;
+      if ($_->{utf8}) {
+        # For simplicity always skip the bytes case, and reconstitute this entry
+        # from its utf8 twin.
+        next if $_->{utf8} eq 'no';
+        # Copy the hashref, as we don't want to mess with the caller's hashref.
+        $_ = {%$_};
+        unless (is_perl56) {
+          utf8::decode ($_->{name});
+        } else {
+          $_->{name} = pack 'U*', unpack 'U0U*', $_->{name};
+        }
+        delete $_->{utf8};
+      }
+    } else {
+      $_ = {name=>$_};
+      $type = $default_type;
+    }
+    $used_types{$type}++;
+    if ($type eq $default_type
+        # grr 5.6.1
+        and length $_->{name}
+        and length $_->{name} == ($_->{name} =~ tr/A-Za-z0-9_//)
+        and !defined ($_->{macro}) and !defined ($_->{value})
+        and !defined ($_->{default}) and !defined ($_->{pre})
+        and !defined ($_->{post}) and !defined ($_->{def_pre})
+        and !defined ($_->{def_post}) and !defined ($_->{weight})) {
+      # It's the default type, and the name consists only of A-Za-z0-9_
+      push @simple, $_->{name};
+    } else {
+      push @complex, $_;
+    }
+  }
+
+  if (!defined $declare_types) {
+    # Do they pass in any types we weren't already using?
+    foreach (keys %$what) {
+      next if $used_types{$_};
+      $declare_types++; # Found one in $what that wasn't used.
+      last; # And one is enough to terminate this loop
+    }
+  }
+  if ($declare_types) {
+    $result = $indent . 'my $types = {map {($_, 1)} qw('
+      . join (" ", sort keys %$what) . ")};\n";
+  }
+  local $Text::Wrap::huge = 'overflow';
+  local $Text::Wrap::columns = 80;
+  $result .= wrap ($indent . "my \@names = (qw(",
+		   $indent . "               ", join (" ", sort @simple) . ")");
+  if (@complex) {
+    foreach my $item (sort {$a->{name} cmp $b->{name}} @complex) {
+      my $name = perl_stringify $item->{name};
+      my $line = ",\n$indent            {name=>\"$name\"";
+      $line .= ", type=>\"$item->{type}\"" if defined $item->{type};
+      foreach my $thing (qw (macro value default pre post def_pre def_post)) {
+        my $value = $item->{$thing};
+        if (defined $value) {
+          if (ref $value) {
+            $line .= ", $thing=>[\""
+              . join ('", "', map {perl_stringify $_} @$value) . '"]';
+          } else {
+            $line .= ", $thing=>\"" . perl_stringify($value) . "\"";
+          }
+        }
+      }
+      $line .= "}";
+      # Ensure that the enclosing C comment doesn't end
+      # by turning */  into *" . "/
+      $line =~ s!\*\/!\*" . "/!gs;
+      # gcc -Wall doesn't like finding /* inside a comment
+      $line =~ s!\/\*!/" . "\*!gs;
+      $result .= $line;
+    }
+  }
+  $result .= ");\n";
+
+  $result;
+}
+
+=item assign arg_hashref, VALUE...
+
+A method to return a suitable assignment clause. If I<type> is aggregate
+(eg I<PVN> expects both pointer and length) then there should be multiple
+I<VALUE>s for the components. I<pre> and I<post> if defined give snippets
+of C code to proceed and follow the assignment. I<pre> will be at the start
+of a block, so variables may be defined in it.
+
+=cut
+# Hmm. value undef to to NOTDEF? value () to do NOTFOUND?
+
+sub assign {
+  my $self = shift;
+  my $args = shift;
+  my ($indent, $type, $pre, $post, $item)
+      = @{$args}{qw(indent type pre post item)};
+  $post ||= '';
+  my $clause;
+  my $close;
+  if ($pre) {
+    chomp $pre;
+    $close = "$indent}\n";
+    $clause = $indent . "{\n";
+    $indent .= "  ";
+    $clause .= "$indent$pre";
+    $clause .= ";" unless $pre =~ /;$/;
+    $clause .= "\n";
+  }
+  confess "undef \$type" unless defined $type;
+  confess "Can't generate code for type $type"
+    unless $self->valid_type($type);
+
+  $clause .= join '', map {"$indent$_\n"}
+    $self->assignment_clause_for_type({type=>$type,item=>$item}, @_);
+  chomp $post;
+  if (length $post) {
+    $clause .= "$post";
+    $clause .= ";" unless $post =~ /;$/;
+    $clause .= "\n";
+  }
+  my $return = $self->return_statement_for_type($type);
+  $clause .= "$indent$return\n" if defined $return;
+  $clause .= $close if $close;
+  return $clause;
+}
+
+=item return_clause arg_hashref, ITEM
+
+A method to return a suitable C<#ifdef> clause. I<ITEM> is a hashref
+(as passed to C<C_constant> and C<match_clause>. I<indent> is the number
+of spaces to indent, defaulting to 6.
+
+=cut
+
+sub return_clause {
+
+##ifdef thingy
+#      *iv_return = thingy;
+#      return PERL_constant_ISIV;
+##else
+#      return PERL_constant_NOTDEF;
+##endif
+  my ($self, $args, $item) = @_;
+  my $indent = $args->{indent};
+
+  my ($name, $value, $default, $pre, $post, $def_pre, $def_post, $type)
+    = @$item{qw (name value default pre post def_pre def_post type)};
+  $value = $name unless defined $value;
+  my $macro = $self->macro_from_item($item);
+  $indent = ' ' x ($indent || 6);
+  unless (defined $type) {
+    # use Data::Dumper; print STDERR Dumper ($item);
+    confess "undef \$type";
+  }
+
+  ##ifdef thingy
+  my $clause = $self->macro_to_ifdef($macro);
+
+  #      *iv_return = thingy;
+  #      return PERL_constant_ISIV;
+  $clause
+    .= $self->assign ({indent=>$indent, type=>$type, pre=>$pre, post=>$post,
+		       item=>$item}, ref $value ? @$value : $value);
+
+  if (defined $macro && $macro ne "" && $macro ne "1") {
+    ##else
+    $clause .= "#else\n";
+
+    #      return PERL_constant_NOTDEF;
+    if (!defined $default) {
+      my $notdef = $self->return_statement_for_notdef();
+      $clause .= "$indent$notdef\n" if defined $notdef;
+    } else {
+      my @default = ref $default ? @$default : $default;
+      $type = shift @default;
+      $clause .= $self->assign ({indent=>$indent, type=>$type, pre=>$pre,
+				 post=>$post, item=>$item}, @default);
+    }
+  }
+  ##endif
+  $clause .= $self->macro_to_endif($macro);
+
+  return $clause;
+}
+
+sub match_clause {
+  # $offset defined if we have checked an offset.
+  my ($self, $args, $item) = @_;
+  my ($offset, $indent) = @{$args}{qw(checked_at indent)};
+  $indent = ' ' x ($indent || 4);
+  my $body = '';
+  my ($no, $yes, $either, $name, $inner_indent);
+  if (ref $item eq 'ARRAY') {
+    ($yes, $no) = @$item;
+    $either = $yes || $no;
+    confess "$item is $either expecting hashref in [0] || [1]"
+      unless ref $either eq 'HASH';
+    $name = $either->{name};
+  } else {
+    confess "$item->{name} has utf8 flag '$item->{utf8}', should be false"
+      if $item->{utf8};
+    $name = $item->{name};
+    $inner_indent = $indent;
+  }
+
+  $body .= $self->memEQ_clause ({name => $name, checked_at => $offset,
+				 indent => length $indent});
+  # If we've been presented with an arrayref for $item, then the user string
+  # contains in the range 128-255, and we need to check whether it was utf8
+  # (or not).
+  # In the worst case we have two named constants, where one's name happens
+  # encoded in UTF8 happens to be the same byte sequence as the second's
+  # encoded in (say) ISO-8859-1.
+  # In this case, $yes and $no both have item hashrefs.
+  if ($yes) {
+    $body .= $indent . "  if (" . $self->is_utf8_param . ") {\n";
+  } elsif ($no) {
+    $body .= $indent . "  if (!" . $self->is_utf8_param . ") {\n";
+  }
+  if ($either) {
+    $body .= $self->return_clause ({indent=>4 + length $indent}, $either);
+    if ($yes and $no) {
+      $body .= $indent . "  } else {\n";
+      $body .= $self->return_clause ({indent=>4 + length $indent}, $no);
+    }
+    $body .= $indent . "  }\n";
+  } else {
+    $body .= $self->return_clause ({indent=>2 + length $indent}, $item);
+  }
+  $body .= $indent . "}\n";
+}
+
+
+=item switch_clause arg_hashref, NAMELEN, ITEMHASH, ITEM...
+
+An internal method to generate a suitable C<switch> clause, called by
+C<C_constant> I<ITEM>s are in the hash ref format as given in the description
+of C<C_constant>, and must all have the names of the same length, given by
+I<NAMELEN>.  I<ITEMHASH> is a reference to a hash, keyed by name, values being
+the hashrefs in the I<ITEM> list.  (No parameters are modified, and there can
+be keys in the I<ITEMHASH> that are not in the list of I<ITEM>s without
+causing problems - the hash is passed in to save generating it afresh for
+each call).
+
+=cut
+
+sub switch_clause {
+  my ($self, $args, $namelen, $items, @items) = @_;
+  my ($indent, $comment) = @{$args}{qw(indent comment)};
+  $indent = ' ' x ($indent || 2);
+
+  local $Text::Wrap::huge = 'overflow';
+  local $Text::Wrap::columns = 80;
+
+  my @names = sort map {$_->{name}} @items;
+  my $leader = $indent . '/* ';
+  my $follower = ' ' x length $leader;
+  my $body = $indent . "/* Names all of length $namelen.  */\n";
+  if (defined $comment) {
+    $body = wrap ($leader, $follower, $comment) . "\n";
+    $leader = $follower;
+  }
+  my @safe_names = @names;
+  foreach (@safe_names) {
+    confess sprintf "Name '$_' is length %d, not $namelen", length
+      unless length == $namelen;
+    # Argh. 5.6.1
+    # next unless tr/A-Za-z0-9_//c;
+    next if tr/A-Za-z0-9_// == length;
+    $_ = '"' . perl_stringify ($_) . '"';
+    # Ensure that the enclosing C comment doesn't end
+    # by turning */  into *" . "/
+    s!\*\/!\*"."/!gs;
+    # gcc -Wall doesn't like finding /* inside a comment
+    s!\/\*!/"."\*!gs;
+  }
+  $body .= wrap ($leader, $follower, join (" ", @safe_names) . " */") . "\n";
+  # Figure out what to switch on.
+  # (RMS, Spread of jump table, Position, Hashref)
+  my @best = (1e38, ~0);
+  # Prefer the last character over the others. (As it lets us shorten the
+  # memEQ clause at no cost).
+  foreach my $i ($namelen - 1, 0 .. ($namelen - 2)) {
+    my ($min, $max) = (~0, 0);
+    my %spread;
+    if (is_perl56) {
+      # Need proper Unicode preserving hash keys for bytes in range 128-255
+      # here too, for some reason. grr 5.6.1 yet again.
+      tie %spread, 'ExtUtils::Constant::Aaargh56Hash';
+    }
+    foreach (@names) {
+      my $char = substr $_, $i, 1;
+      my $ord = ord $char;
+      confess "char $ord is out of range" if $ord > 255;
+      $max = $ord if $ord > $max;
+      $min = $ord if $ord < $min;
+      push @{$spread{$char}}, $_;
+      # warn "$_ $char";
+    }
+    # I'm going to pick the character to split on that minimises the root
+    # mean square of the number of names in each case. Normally this should
+    # be the one with the most keys, but it may pick a 7 where the 8 has
+    # one long linear search. I'm not sure if RMS or just sum of squares is
+    # actually better.
+    # $max and $min are for the tie-breaker if the root mean squares match.
+    # Assuming that the compiler may be building a jump table for the
+    # switch() then try to minimise the size of that jump table.
+    # Finally use < not <= so that if it still ties the earliest part of
+    # the string wins. Because if that passes but the memEQ fails, it may
+    # only need the start of the string to bin the choice.
+    # I think. But I'm micro-optimising. :-)
+    # OK. Trump that. Now favour the last character of the string, before the
+    # rest.
+    my $ss;
+    $ss += @$_ * @$_ foreach values %spread;
+    my $rms = sqrt ($ss / keys %spread);
+    if ($rms < $best[0] || ($rms == $best[0] && ($max - $min) < $best[1])) {
+      @best = ($rms, $max - $min, $i, \%spread);
+    }
+  }
+  confess "Internal error. Failed to pick a switch point for @names"
+    unless defined $best[2];
+  # use Data::Dumper; print Dumper (@best);
+  my ($offset, $best) = @best[2,3];
+  $body .= $indent . "/* Offset $offset gives the best switch position.  */\n";
+
+  my $do_front_chop = $offset == 0 && $namelen > 2;
+  if ($do_front_chop) {
+    $body .= $indent . "switch (*" . $self->name_param() . "++) {\n";
+  } else {
+    $body .= $indent . "switch (" . $self->name_param() . "[$offset]) {\n";
+  }
+  foreach my $char (sort keys %$best) {
+    confess sprintf "'$char' is %d bytes long, not 1", length $char
+      if length ($char) != 1;
+    confess sprintf "char %#X is out of range", ord $char if ord ($char) > 255;
+    $body .= $indent . "case '" . C_stringify ($char) . "':\n";
+    foreach my $thisone (sort {
+	# Deal with the case of an item actually being an array ref to 1 or 2
+	# hashrefs. Don't assign to $a or $b, as they're aliases to the orignal
+	my $l = ref $a eq 'ARRAY' ? ($a->[0] || $->[1]) : $a;
+	my $r = ref $b eq 'ARRAY' ? ($b->[0] || $->[1]) : $b;
+	# Sort by weight first
+	($r->{weight} || 0) <=> ($l->{weight} || 0)
+	    # Sort equal weights by name
+	    or $l->{name} cmp $r->{name}}
+			 # If this looks evil, maybe it is.  $items is a
+			 # hashref, and we're doing a hash slice on it
+			 @{$items}{@{$best->{$char}}}) {
+      # warn "You are here";
+      if ($do_front_chop) {
+        $body .= $self->match_clause ({indent => 2 + length $indent,
+				       checked_at => \$char}, $thisone);
+      } else {
+        $body .= $self->match_clause ({indent => 2 + length $indent,
+				       checked_at => $offset}, $thisone);
+      }
+    }
+    $body .= $indent . "  break;\n";
+  }
+  $body .= $indent . "}\n";
+  return $body;
+}
+
+sub C_constant_return_type {
+  "static int";
+}
+
+sub C_constant_prefix_param {
+  '';
+}
+
+sub C_constant_prefix_param_defintion {
+  '';
+}
+
+sub name_param_definition {
+  "const char *" . $_[0]->name_param;
+}
+
+sub namelen_param {
+  'len';
+}
+
+sub namelen_param_definition {
+  'size_t ' . $_[0]->namelen_param;
+}
+
+sub C_constant_other_params {
+  '';
+}
+
+sub C_constant_other_params_defintion {
+  '';
+}
+
+=item params WHAT
+
+An "internal" method, subject to change, currently called to allow an
+overriding class to cache information that will then be passed into all
+the C<*param*> calls. (Yes, having to read the source to make sense of this is
+considered a known bug). I<WHAT> is be a hashref of types the constant
+function will return. In ExtUtils::Constant::XS this method is used to
+returns a hashref keyed IV NV PV SV to show which combination of pointers will
+be needed in the C argument list generated by
+C_constant_other_params_definition and C_constant_other_params
+
+=cut
+
+sub params {
+  '';
+}
+
+
+=item dogfood arg_hashref, ITEM...
+
+An internal function to generate the embedded perl code that will regenerate
+the constant subroutines.  Parameters are the same as for C_constant.
+
+Currently the base class does nothing and returns an empty string.
+
+=cut
+
+sub dogfood {
+  ''
+}
+
+=item normalise_items args, default_type, seen_types, seen_items, ITEM...
+
+Convert the items to a normalised form. For 8 bit and Unicode values converts
+the item to an array of 1 or 2 items, both 8 bit and UTF-8 encoded.
+
+=cut
+
+sub normalise_items
+{
+    my $self = shift;
+    my $args = shift;
+    my $default_type = shift;
+    my $what = shift;
+    my $items = shift;
+    my @new_items;
+    foreach my $orig (@_) {
+	my ($name, $item);
+      if (ref $orig) {
+        # Make a copy which is a normalised version of the ref passed in.
+        $name = $orig->{name};
+        my ($type, $macro, $value) = @$orig{qw (type macro value)};
+        $type ||= $default_type;
+        $what->{$type} = 1;
+        $item = {name=>$name, type=>$type};
+
+        undef $macro if defined $macro and $macro eq $name;
+        $item->{macro} = $macro if defined $macro;
+        undef $value if defined $value and $value eq $name;
+        $item->{value} = $value if defined $value;
+        foreach my $key (qw(default pre post def_pre def_post weight
+			    not_constant)) {
+          my $value = $orig->{$key};
+          $item->{$key} = $value if defined $value;
+          # warn "$key $value";
+        }
+      } else {
+        $name = $orig;
+        $item = {name=>$name, type=>$default_type};
+        $what->{$default_type} = 1;
+      }
+      warn +(ref ($self) || $self)
+	. "doesn't know how to handle values of type $_ used in macro $name"
+	  unless $self->valid_type ($item->{type});
+      # tr///c is broken on 5.6.1 for utf8, so my original tr/\0-\177//c
+      # doesn't work. Upgrade to 5.8
+      # if ($name !~ tr/\0-\177//c || $] < 5.005_50) {
+      if ($name =~ tr/\0-\177// == length $name || $] < 5.005_50
+	 || $args->{disable_utf8_duplication}) {
+        # No characters outside 7 bit ASCII.
+        if (exists $items->{$name}) {
+          die "Multiple definitions for macro $name";
+        }
+        $items->{$name} = $item;
+      } else {
+        # No characters outside 8 bit. This is hardest.
+        if (exists $items->{$name} and ref $items->{$name} ne 'ARRAY') {
+          confess "Unexpected ASCII definition for macro $name";
+        }
+        # Again, 5.6.1 tr broken, so s/5\.6.*/5\.8\.0/;
+        # if ($name !~ tr/\0-\377//c) {
+        if ($name =~ tr/\0-\377// == length $name) {
+#          if ($] < 5.007) {
+#            $name = pack "C*", unpack "U*", $name;
+#          }
+          $item->{utf8} = 'no';
+          $items->{$name}[1] = $item;
+          push @new_items, $item;
+          # Copy item, to create the utf8 variant.
+          $item = {%$item};
+        }
+        # Encode the name as utf8 bytes.
+        unless (is_perl56) {
+          utf8::encode($name);
+        } else {
+#          warn "Was >$name< " . length ${name};
+          $name = pack 'C*', unpack 'C*', $name . pack 'U*';
+#          warn "Now '${name}' " . length ${name};
+        }
+        if ($items->{$name}[0]) {
+          die "Multiple definitions for macro $name";
+        }
+        $item->{utf8} = 'yes';
+        $item->{name} = $name;
+        $items->{$name}[0] = $item;
+        # We have need for the utf8 flag.
+        $what->{''} = 1;
+      }
+      push @new_items, $item;
+    }
+    @new_items;
+}
+
+=item C_constant arg_hashref, ITEM...
+
+A function that returns a B<list> of C subroutine definitions that return
+the value and type of constants when passed the name by the XS wrapper.
+I<ITEM...> gives a list of constant names. Each can either be a string,
+which is taken as a C macro name, or a reference to a hash with the following
+keys
+
+=over 8
+
+=item name
+
+The name of the constant, as seen by the perl code.
+
+=item type
+
+The type of the constant (I<IV>, I<NV> etc)
+
+=item value
+
+A C expression for the value of the constant, or a list of C expressions if
+the type is aggregate. This defaults to the I<name> if not given.
+
+=item macro
+
+The C pre-processor macro to use in the C<#ifdef>. This defaults to the
+I<name>, and is mainly used if I<value> is an C<enum>. If a reference an
+array is passed then the first element is used in place of the C<#ifdef>
+line, and the second element in place of the C<#endif>. This allows
+pre-processor constructions such as
+
+    #if defined (foo)
+    #if !defined (bar)
+    ...
+    #endif
+    #endif
+
+to be used to determine if a constant is to be defined.
+
+A "macro" 1 signals that the constant is always defined, so the C<#if>/C<#endif>
+test is omitted.
+
+=item default
+
+Default value to use (instead of C<croak>ing with "your vendor has not
+defined...") to return if the macro isn't defined. Specify a reference to
+an array with type followed by value(s).
+
+=item pre
+
+C code to use before the assignment of the value of the constant. This allows
+you to use temporary variables to extract a value from part of a C<struct>
+and return this as I<value>. This C code is places at the start of a block,
+so you can declare variables in it.
+
+=item post
+
+C code to place between the assignment of value (to a temporary) and the
+return from the function. This allows you to clear up anything in I<pre>.
+Rarely needed.
+
+=item def_pre
+
+=item def_post
+
+Equivalents of I<pre> and I<post> for the default value.
+
+=item utf8
+
+Generated internally. Is zero or undefined if name is 7 bit ASCII,
+"no" if the name is 8 bit (and so should only match if SvUTF8() is false),
+"yes" if the name is utf8 encoded.
+
+The internals automatically clone any name with characters 128-255 but none
+256+ (ie one that could be either in bytes or utf8) into a second entry
+which is utf8 encoded.
+
+=item weight
+
+Optional sorting weight for names, to determine the order of
+linear testing when multiple names fall in the same case of a switch clause.
+Higher comes earlier, undefined defaults to zero.
+
+=back
+
+In the argument hashref, I<package> is the name of the package, and is only
+used in comments inside the generated C code. I<subname> defaults to
+C<constant> if undefined.
+
+I<default_type> is the type returned by C<ITEM>s that don't specify their
+type. It defaults to the value of C<default_type()>. I<types> should be given
+either as a comma separated list of types that the C subroutine I<subname>
+will generate or as a reference to a hash. I<default_type> will be added to
+the list if not present, as will any types given in the list of I<ITEM>s. The
+resultant list should be the same list of types that C<XS_constant> is
+given. [Otherwise C<XS_constant> and C<C_constant> may differ in the number of
+parameters to the constant function. I<indent> is currently unused and
+ignored. In future it may be used to pass in information used to change the C
+indentation style used.]  The best way to maintain consistency is to pass in a
+hash reference and let this function update it.
+
+I<breakout> governs when child functions of I<subname> are generated.  If there
+are I<breakout> or more I<ITEM>s with the same length of name, then the code
+to switch between them is placed into a function named I<subname>_I<len>, for
+example C<constant_5> for names 5 characters long.  The default I<breakout> is
+3.  A single C<ITEM> is always inlined.
+
+=cut
+
+# The parameter now BREAKOUT was previously documented as:
+#
+# I<NAMELEN> if defined signals that all the I<name>s of the I<ITEM>s are of
+# this length, and that the constant name passed in by perl is checked and
+# also of this length. It is used during recursion, and should be C<undef>
+# unless the caller has checked all the lengths during code generation, and
+# the generated subroutine is only to be called with a name of this length.
+#
+# As you can see it now performs this function during recursion by being a
+# scalar reference.
+
+sub C_constant {
+  my ($self, $args, @items) = @_;
+  my ($package, $subname, $default_type, $what, $indent, $breakout) =
+    @{$args}{qw(package subname default_type types indent breakout)};
+  $package ||= 'Foo';
+  $subname ||= 'constant';
+  # I'm not using this. But a hashref could be used for full formatting without
+  # breaking this API
+  # $indent ||= 0;
+
+  my ($namelen, $items);
+  if (ref $breakout) {
+    # We are called recursively. We trust @items to be normalised, $what to
+    # be a hashref, and pinch %$items from our parent to save recalculation.
+    ($namelen, $items) = @$breakout;
+  } else {
+    $items = {};
+    if (is_perl56) {
+      # Need proper Unicode preserving hash keys.
+      require ExtUtils::Constant::Aaargh56Hash;
+      tie %$items, 'ExtUtils::Constant::Aaargh56Hash';
+    }
+    $breakout ||= 3;
+    $default_type ||= $self->default_type();
+    if (!ref $what) {
+      # Convert line of the form IV,UV,NV to hash
+      $what = {map {$_ => 1} split /,\s*/, ($what || '')};
+      # Figure out what types we're dealing with, and assign all unknowns to the
+      # default type
+    }
+    @items = $self->normalise_items ({}, $default_type, $what, $items, @items);
+    # use Data::Dumper; print Dumper @items;
+  }
+  my $params = $self->params ($what);
+
+  # Probably "static int"
+  my ($body, @subs);
+  $body = $self->C_constant_return_type($params) . "\n$subname ("
+    # Eg "pTHX_ "
+    . $self->C_constant_prefix_param_defintion($params)
+      # Probably "const char *name"
+      . $self->name_param_definition($params);
+  # Something like ", STRLEN len"
+  $body .= ", " . $self->namelen_param_definition($params)
+    unless defined $namelen;
+  $body .= $self->C_constant_other_params_defintion($params);
+  $body .= ") {\n";
+
+  if (defined $namelen) {
+    # We are a child subroutine. Print the simple description
+    my $comment = 'When generated this function returned values for the list'
+      . ' of names given here.  However, subsequent manual editing may have'
+        . ' added or removed some.';
+    $body .= $self->switch_clause ({indent=>2, comment=>$comment},
+				   $namelen, $items, @items);
+  } else {
+    # We are the top level.
+    $body .= "  /* Initially switch on the length of the name.  */\n";
+    $body .= $self->dogfood ({package => $package, subname => $subname,
+			      default_type => $default_type, what => $what,
+			      indent => $indent, breakout => $breakout},
+			     @items);
+    $body .= '  switch ('.$self->namelen_param().") {\n";
+    # Need to group names of the same length
+    my @by_length;
+    foreach (@items) {
+      push @{$by_length[length $_->{name}]}, $_;
+    }
+    foreach my $i (0 .. $#by_length) {
+      next unless $by_length[$i];	# None of this length
+      $body .= "  case $i:\n";
+      if (@{$by_length[$i]} == 1) {
+        my $only_thing = $by_length[$i]->[0];
+        if ($only_thing->{utf8}) {
+          if ($only_thing->{utf8} eq 'yes') {
+            # With utf8 on flag item is passed in element 0
+            $body .= $self->match_clause (undef, [$only_thing]);
+          } else {
+            # With utf8 off flag item is passed in element 1
+            $body .= $self->match_clause (undef, [undef, $only_thing]);
+          }
+        } else {
+          $body .= $self->match_clause (undef, $only_thing);
+        }
+      } elsif (@{$by_length[$i]} < $breakout) {
+        $body .= $self->switch_clause ({indent=>4},
+				       $i, $items, @{$by_length[$i]});
+      } else {
+        # Only use the minimal set of parameters actually needed by the types
+        # of the names of this length.
+        my $what = {};
+        foreach (@{$by_length[$i]}) {
+          $what->{$_->{type}} = 1;
+          $what->{''} = 1 if $_->{utf8};
+        }
+        $params = $self->params ($what);
+        push @subs, $self->C_constant ({package=>$package,
+					subname=>"${subname}_$i",
+					default_type => $default_type,
+					types => $what, indent => $indent,
+					breakout => [$i, $items]},
+				       @{$by_length[$i]});
+        $body .= "    return ${subname}_$i ("
+	  # Eg "aTHX_ "
+	  . $self->C_constant_prefix_param($params)
+	    # Probably "name"
+	    . $self->name_param($params);
+	$body .= $self->C_constant_other_params($params);
+        $body .= ");\n";
+      }
+      $body .= "    break;\n";
+    }
+    $body .= "  }\n";
+  }
+  my $notfound = $self->return_statement_for_notfound();
+  $body .= "  $notfound\n" if $notfound;
+  $body .= "}\n";
+  return (@subs, $body);
+}
+
+1;
+__END__
+
+=back
+
+=head1 BUGS
+
+Not everything is documented yet.
+
+Probably others.
+
+=head1 AUTHOR
+
+Nicholas Clark <nick@ccl4.org> based on the code in C<h2xs> by Larry Wall and
+others
diff --git a/lib/5.24.1/ExtUtils/Constant/ProxySubs.pm b/lib/5.24.1/ExtUtils/Constant/ProxySubs.pm
new file mode 100644
index 00000000..545d3221
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/Constant/ProxySubs.pm
@@ -0,0 +1,682 @@
+package ExtUtils::Constant::ProxySubs;
+
+use strict;
+use vars qw($VERSION @ISA %type_to_struct %type_from_struct %type_to_sv
+	    %type_to_C_value %type_is_a_problem %type_num_args
+	    %type_temporary);
+use Carp;
+require ExtUtils::Constant::XS;
+use ExtUtils::Constant::Utils qw(C_stringify);
+use ExtUtils::Constant::XS qw(%XS_TypeSet);
+
+$VERSION = '0.08';
+@ISA = 'ExtUtils::Constant::XS';
+
+%type_to_struct =
+    (
+     IV => '{const char *name; I32 namelen; IV value;}',
+     NV => '{const char *name; I32 namelen; NV value;}',
+     UV => '{const char *name; I32 namelen; UV value;}',
+     PV => '{const char *name; I32 namelen; const char *value;}',
+     PVN => '{const char *name; I32 namelen; const char *value; STRLEN len;}',
+     YES => '{const char *name; I32 namelen;}',
+     NO => '{const char *name; I32 namelen;}',
+     UNDEF => '{const char *name; I32 namelen;}',
+     '' => '{const char *name; I32 namelen;} ',
+     );
+
+%type_from_struct =
+    (
+     IV => sub { $_[0] . '->value' },
+     NV => sub { $_[0] . '->value' },
+     UV => sub { $_[0] . '->value' },
+     PV => sub { $_[0] . '->value' },
+     PVN => sub { $_[0] . '->value', $_[0] . '->len' },
+     YES => sub {},
+     NO => sub {},
+     UNDEF => sub {},
+     '' => sub {},
+    );
+
+%type_to_sv = 
+    (
+     IV => sub { "newSViv($_[0])" },
+     NV => sub { "newSVnv($_[0])" },
+     UV => sub { "newSVuv($_[0])" },
+     PV => sub { "newSVpv($_[0], 0)" },
+     PVN => sub { "newSVpvn($_[0], $_[1])" },
+     YES => sub { '&PL_sv_yes' },
+     NO => sub { '&PL_sv_no' },
+     UNDEF => sub { '&PL_sv_undef' },
+     '' => sub { '&PL_sv_yes' },
+     SV => sub {"SvREFCNT_inc($_[0])"},
+     );
+
+%type_to_C_value = 
+    (
+     YES => sub {},
+     NO => sub {},
+     UNDEF => sub {},
+     '' => sub {},
+     );
+
+sub type_to_C_value {
+    my ($self, $type) = @_;
+    return $type_to_C_value{$type} || sub {return map {ref $_ ? @$_ : $_} @_};
+}
+
+# TODO - figure out if there is a clean way for the type_to_sv code to
+# attempt s/sv_2mortal// and if it succeeds tell type_to_sv not to add
+# SvREFCNT_inc
+%type_is_a_problem =
+    (
+     # The documentation says *mortal SV*, but we now need a non-mortal copy.
+     SV => 1,
+     );
+
+%type_temporary =
+    (
+     SV => ['SV *'],
+     PV => ['const char *'],
+     PVN => ['const char *', 'STRLEN'],
+     );
+$type_temporary{$_} = [$_] foreach qw(IV UV NV);
+     
+while (my ($type, $value) = each %XS_TypeSet) {
+    $type_num_args{$type}
+	= defined $value ? ref $value ? scalar @$value : 1 : 0;
+}
+$type_num_args{''} = 0;
+
+sub partition_names {
+    my ($self, $default_type, @items) = @_;
+    my (%found, @notfound, @trouble);
+
+    while (my $item = shift @items) {
+	my $default = delete $item->{default};
+	if ($default) {
+	    # If we find a default value, convert it into a regular item and
+	    # append it to the queue of items to process
+	    my $default_item = {%$item};
+	    $default_item->{invert_macro} = 1;
+	    $default_item->{pre} = delete $item->{def_pre};
+	    $default_item->{post} = delete $item->{def_post};
+	    $default_item->{type} = shift @$default;
+	    $default_item->{value} = $default;
+	    push @items, $default_item;
+	} else {
+	    # It can be "not found" unless it's the default (invert the macro)
+	    # or the "macro" is an empty string (ie no macro)
+	    push @notfound, $item unless $item->{invert_macro}
+		or !$self->macro_to_ifdef($self->macro_from_item($item));
+	}
+
+	if ($item->{pre} or $item->{post} or $item->{not_constant}
+	    or $type_is_a_problem{$item->{type}}) {
+	    push @trouble, $item;
+	} else {
+	    push @{$found{$item->{type}}}, $item;
+	}
+    }
+    # use Data::Dumper; print Dumper \%found;
+    (\%found, \@notfound, \@trouble);
+}
+
+sub boottime_iterator {
+    my ($self, $type, $iterator, $hash, $subname, $push) = @_;
+    my $extractor = $type_from_struct{$type};
+    die "Can't find extractor code for type $type"
+	unless defined $extractor;
+    my $generator = $type_to_sv{$type};
+    die "Can't find generator code for type $type"
+	unless defined $generator;
+
+    my $athx = $self->C_constant_prefix_param();
+
+    if ($push) {
+	return sprintf <<"EOBOOT", &$generator(&$extractor($iterator));
+        while ($iterator->name) {
+	    he = $subname($athx $hash, $iterator->name,
+				     $iterator->namelen, %s);
+	    av_push(push, newSVhek(HeKEY_hek(he)));
+            ++$iterator;
+	}
+EOBOOT
+    } else {
+	return sprintf <<"EOBOOT", &$generator(&$extractor($iterator));
+        while ($iterator->name) {
+	    $subname($athx $hash, $iterator->name,
+				$iterator->namelen, %s);
+            ++$iterator;
+	}
+EOBOOT
+    }
+}
+
+sub name_len_value_macro {
+    my ($self, $item) = @_;
+    my $name = $item->{name};
+    my $value = $item->{value};
+    $value = $item->{name} unless defined $value;
+
+    my $namelen = length $name;
+    if ($name =~ tr/\0-\377// != $namelen) {
+	# the hash API signals UTF-8 by passing the length negated.
+	utf8::encode($name);
+	$namelen = -length $name;
+    }
+    $name = C_stringify($name);
+
+    my $macro = $self->macro_from_item($item);
+    ($name, $namelen, $value, $macro);
+}
+
+sub WriteConstants {
+    my $self = shift;
+    my $ARGS = {@_};
+
+    my ($c_fh, $xs_fh, $c_subname, $default_type, $package)
+	= @{$ARGS}{qw(C_FH XS_FH C_SUBNAME DEFAULT_TYPE NAME)};
+
+    my $xs_subname
+	= exists $ARGS->{XS_SUBNAME} ? $ARGS->{XS_SUBNAME} : 'constant';
+
+    my $options = $ARGS->{PROXYSUBS};
+    $options = {} unless ref $options;
+    my $push = $options->{push};
+    my $explosives = $options->{croak_on_read};
+    my $croak_on_error = $options->{croak_on_error};
+    my $autoload = $options->{autoload};
+    {
+	my $exclusive = 0;
+	++$exclusive if $explosives;
+	++$exclusive if $croak_on_error;
+	++$exclusive if $autoload;
+
+	# Until someone patches this (with test cases):
+	carp ("PROXYSUBS options 'autoload', 'croak_on_read' and 'croak_on_error' cannot be used together")
+	    if $exclusive > 1;
+    }
+    # Strictly it requires Perl_caller_cx
+    carp ("PROXYSUBS option 'croak_on_error' requires v5.13.5 or later")
+	if $croak_on_error && $^V < v5.13.5;
+    # Strictly this is actually 5.8.9, but it's not well tested there
+    my $can_do_pcs = $] >= 5.009;
+    # Until someone patches this (with test cases)
+    carp ("PROXYSUBS option 'push' requires v5.10 or later")
+	if $push && !$can_do_pcs;
+    # Until someone patches this (with test cases)
+    carp ("PROXYSUBS options 'push' and 'croak_on_read' cannot be used together")
+	if $explosives && $push;
+
+    # If anyone is insane enough to suggest a package name containing %
+    my $package_sprintf_safe = $package;
+    $package_sprintf_safe =~ s/%/%%/g;
+
+    # All the types we see
+    my $what = {};
+    # A hash to lookup items with.
+    my $items = {};
+
+    my @items = $self->normalise_items ({disable_utf8_duplication => 1},
+					$default_type, $what, $items,
+					@{$ARGS->{NAMES}});
+
+    # Partition the values by type. Also include any defaults in here
+    # Everything that doesn't have a default needs alternative code for
+    # "I'm missing"
+    # And everything that has pre or post code ends up in a private block
+    my ($found, $notfound, $trouble)
+	= $self->partition_names($default_type, @items);
+
+    my $pthx = $self->C_constant_prefix_param_defintion();
+    my $athx = $self->C_constant_prefix_param();
+    my $symbol_table = C_stringify($package) . '::';
+    $push = C_stringify($package . '::' . $push) if $push;
+    my $cast_CONSTSUB = $] < 5.010 ? '(char *)' : '';
+
+    print $c_fh $self->header();
+    if ($autoload || $croak_on_error) {
+	print $c_fh <<'EOC';
+
+/* This allows slightly more efficient code on !USE_ITHREADS: */
+#ifdef USE_ITHREADS
+#  define COP_FILE(c)	CopFILE(c)
+#  define COP_FILE_F	"s"
+#else
+#  define COP_FILE(c)	CopFILESV(c)
+#  define COP_FILE_F	SVf
+#endif
+EOC
+    }
+
+    my $return_type = $push ? 'HE *' : 'void';
+
+    print $c_fh <<"EOADD";
+
+static $return_type
+${c_subname}_add_symbol($pthx HV *hash, const char *name, I32 namelen, SV *value) {
+EOADD
+    if (!$can_do_pcs) {
+	print $c_fh <<'EO_NOPCS';
+    if (namelen == namelen) {
+EO_NOPCS
+    } else {
+	print $c_fh <<"EO_PCS";
+    HE *he = (HE*) hv_common_key_len(hash, name, namelen, HV_FETCH_LVALUE, NULL,
+				     0);
+    SV *sv;
+
+    if (!he) {
+        Perl_croak($athx "Couldn't add key '%s' to %%$package_sprintf_safe\::",
+		   name);
+    }
+    sv = HeVAL(he);
+    if (SvOK(sv) || SvTYPE(sv) == SVt_PVGV) {
+	/* Someone has been here before us - have to make a real sub.  */
+EO_PCS
+    }
+    # This piece of code is common to both
+    print $c_fh <<"EOADD";
+	newCONSTSUB(hash, ${cast_CONSTSUB}name, value);
+EOADD
+    if ($can_do_pcs) {
+	print $c_fh <<'EO_PCS';
+    } else {
+	SvUPGRADE(sv, SVt_RV);
+	SvRV_set(sv, value);
+	SvROK_on(sv);
+	SvREADONLY_on(value);
+    }
+EO_PCS
+    } else {
+	print $c_fh <<'EO_NOPCS';
+    }
+EO_NOPCS
+    }
+    print $c_fh "    return he;\n" if $push;
+    print $c_fh <<'EOADD';
+}
+
+EOADD
+
+    print $c_fh $explosives ? <<"EXPLODE" : "\n";
+
+static int
+Im_sorry_Dave(pTHX_ SV *sv, MAGIC *mg)
+{
+    PERL_UNUSED_ARG(mg);
+    Perl_croak(aTHX_
+	       "Your vendor has not defined $package_sprintf_safe macro %"SVf
+	       " used", sv);
+    NORETURN_FUNCTION_END;
+}
+
+static MGVTBL not_defined_vtbl = {
+ Im_sorry_Dave, /* get - I'm afraid I can't do that */
+ Im_sorry_Dave, /* set */
+ 0, /* len */
+ 0, /* clear */
+ 0, /* free */
+ 0, /* copy */
+ 0, /* dup */
+};
+
+EXPLODE
+
+{
+    my $key = $symbol_table;
+    # Just seems tidier (and slightly more space efficient) not to have keys
+    # such as Fcntl::
+    $key =~ s/::$//;
+    my $key_len = length $key;
+
+    print $c_fh <<"MISSING";
+
+#ifndef SYMBIAN
+
+/* Store a hash of all symbols missing from the package. To avoid trampling on
+   the package namespace (uninvited) put each package's hash in our namespace.
+   To avoid creating lots of typeblogs and symbol tables for sub-packages, put
+   each package's hash into one hash in our namespace.  */
+
+static HV *
+get_missing_hash(pTHX) {
+    HV *const parent
+	= get_hv("ExtUtils::Constant::ProxySubs::Missing", GVf_MULTI);
+    /* We could make a hash of hashes directly, but this would confuse anything
+	at Perl space that looks at us, and as we're visible in Perl space,
+	best to play nice. */
+    SV *const *const ref
+	= hv_fetch(parent, "$key", $key_len, TRUE);
+    HV *new_hv;
+
+    if (!ref)
+	return NULL;
+
+    if (SvROK(*ref))
+	return (HV*) SvRV(*ref);
+
+    new_hv = newHV();
+    SvUPGRADE(*ref, SVt_RV);
+    SvRV_set(*ref, (SV *)new_hv);
+    SvROK_on(*ref);
+    return new_hv;
+}
+
+#endif
+
+MISSING
+
+}
+
+    print $xs_fh <<"EOBOOT";
+BOOT:
+  {
+#ifdef dTHX
+    dTHX;
+#endif
+    HV *symbol_table = get_hv("$symbol_table", GV_ADD);
+EOBOOT
+    if ($push) {
+	print $xs_fh <<"EOC";
+    AV *push = get_av(\"$push\", GV_ADD);
+    HE *he;
+EOC
+    }
+
+    my %iterator;
+
+    $found->{''}
+        = [map {{%$_, type=>'', invert_macro => 1}} @$notfound];
+
+    foreach my $type (sort keys %$found) {
+	my $struct = $type_to_struct{$type};
+	my $type_to_value = $self->type_to_C_value($type);
+	my $number_of_args = $type_num_args{$type};
+	die "Can't find structure definition for type $type"
+	    unless defined $struct;
+
+	my $lc_type = $type ? lc($type) : 'notfound';
+	my $struct_type = $lc_type . '_s';
+	my $array_name = 'values_for_' . $lc_type;
+	$iterator{$type} = 'value_for_' . $lc_type;
+	# Give the notfound struct file scope. The others are scoped within the
+	# BOOT block
+	my $struct_fh = $type ? $xs_fh : $c_fh;
+
+	print $c_fh "struct $struct_type $struct;\n";
+
+	print $struct_fh <<"EOBOOT";
+
+    static const struct $struct_type $array_name\[] =
+      {
+EOBOOT
+
+
+	foreach my $item (@{$found->{$type}}) {
+            my ($name, $namelen, $value, $macro)
+                 = $self->name_len_value_macro($item);
+
+	    my $ifdef = $self->macro_to_ifdef($macro);
+	    if (!$ifdef && $item->{invert_macro}) {
+		carp("Attempting to supply a default for '$name' which has no conditional macro");
+		next;
+	    }
+	    if ($item->{invert_macro}) {
+		print $struct_fh $self->macro_to_ifndef($macro);
+		print $struct_fh
+			"        /* This is the default value: */\n" if $type;
+	    } else {
+		print $struct_fh $ifdef;
+	    }
+	    print $struct_fh "        { ", join (', ', "\"$name\"", $namelen,
+						 &$type_to_value($value)),
+						 " },\n",
+						 $self->macro_to_endif($macro);
+	}
+
+    # Terminate the list with a NULL
+	print $struct_fh "        { NULL, 0", (", 0" x $number_of_args), " } };\n";
+
+	print $xs_fh <<"EOBOOT" if $type;
+	const struct $struct_type *$iterator{$type} = $array_name;
+EOBOOT
+    }
+
+    delete $found->{''};
+
+    my $add_symbol_subname = $c_subname . '_add_symbol';
+    foreach my $type (sort keys %$found) {
+	print $xs_fh $self->boottime_iterator($type, $iterator{$type}, 
+					      'symbol_table',
+					      $add_symbol_subname, $push);
+    }
+
+    print $xs_fh <<"EOBOOT";
+	if (C_ARRAY_LENGTH(values_for_notfound) > 1) {
+#ifndef SYMBIAN
+	    HV *const ${c_subname}_missing = get_missing_hash(aTHX);
+#endif
+	    const struct notfound_s *value_for_notfound = values_for_notfound;
+	    do {
+EOBOOT
+
+    print $xs_fh $explosives ? <<"EXPLODE" : << "DONT";
+		SV *tripwire = newSV(0);
+		
+		sv_magicext(tripwire, 0, PERL_MAGIC_ext, &not_defined_vtbl, 0, 0);
+		SvPV_set(tripwire, (char *)value_for_notfound->name);
+		if(value_for_notfound->namelen >= 0) {
+		    SvCUR_set(tripwire, value_for_notfound->namelen);
+	    	} else {
+		    SvCUR_set(tripwire, -value_for_notfound->namelen);
+		    SvUTF8_on(tripwire);
+		}
+		SvPOKp_on(tripwire);
+		SvREADONLY_on(tripwire);
+		assert(SvLEN(tripwire) == 0);
+
+		$add_symbol_subname($athx symbol_table, value_for_notfound->name,
+				    value_for_notfound->namelen, tripwire);
+EXPLODE
+
+		/* Need to add prototypes, else parsing will vary by platform.  */
+		HE *he = (HE*) hv_common_key_len(symbol_table,
+						 value_for_notfound->name,
+						 value_for_notfound->namelen,
+						 HV_FETCH_LVALUE, NULL, 0);
+		SV *sv;
+#ifndef SYMBIAN
+		HEK *hek;
+#endif
+		if (!he) {
+		    Perl_croak($athx
+			       "Couldn't add key '%s' to %%$package_sprintf_safe\::",
+			       value_for_notfound->name);
+		}
+		sv = HeVAL(he);
+		if (!SvOK(sv) && SvTYPE(sv) != SVt_PVGV) {
+		    /* Nothing was here before, so mark a prototype of ""  */
+		    sv_setpvn(sv, "", 0);
+		} else if (SvPOK(sv) && SvCUR(sv) == 0) {
+		    /* There is already a prototype of "" - do nothing  */
+		} else {
+		    /* Someone has been here before us - have to make a real
+		       typeglob.  */
+		    /* It turns out to be incredibly hard to deal with all the
+		       corner cases of sub foo (); and reporting errors correctly,
+		       so lets cheat a bit.  Start with a constant subroutine  */
+		    CV *cv = newCONSTSUB(symbol_table,
+					 ${cast_CONSTSUB}value_for_notfound->name,
+					 &PL_sv_yes);
+		    /* and then turn it into a non constant declaration only.  */
+		    SvREFCNT_dec(CvXSUBANY(cv).any_ptr);
+		    CvCONST_off(cv);
+		    CvXSUB(cv) = NULL;
+		    CvXSUBANY(cv).any_ptr = NULL;
+		}
+#ifndef SYMBIAN
+		hek = HeKEY_hek(he);
+		if (!hv_common(${c_subname}_missing, NULL, HEK_KEY(hek),
+ 			       HEK_LEN(hek), HEK_FLAGS(hek), HV_FETCH_ISSTORE,
+			       &PL_sv_yes, HEK_HASH(hek)))
+		    Perl_croak($athx "Couldn't add key '%s' to missing_hash",
+			       value_for_notfound->name);
+#endif
+DONT
+
+    print $xs_fh "		av_push(push, newSVhek(hek));\n"
+	if $push;
+
+    print $xs_fh <<"EOBOOT";
+	    } while ((++value_for_notfound)->name);
+	}
+EOBOOT
+
+    foreach my $item (@$trouble) {
+        my ($name, $namelen, $value, $macro)
+	    = $self->name_len_value_macro($item);
+        my $ifdef = $self->macro_to_ifdef($macro);
+        my $type = $item->{type};
+	my $type_to_value = $self->type_to_C_value($type);
+
+        print $xs_fh $ifdef;
+	if ($item->{invert_macro}) {
+	    print $xs_fh
+		 "        /* This is the default value: */\n" if $type;
+	    print $xs_fh "#else\n";
+	}
+	my $generator = $type_to_sv{$type};
+	die "Can't find generator code for type $type"
+	    unless defined $generator;
+
+	print $xs_fh "        {\n";
+	# We need to use a temporary value because some really troublesome
+	# items use C pre processor directives in their values, and in turn
+	# these don't fit nicely in the macro-ised generator functions
+	my $counter = 0;
+	printf $xs_fh "            %s temp%d;\n", $_, $counter++
+	    foreach @{$type_temporary{$type}};
+
+	print $xs_fh "            $item->{pre}\n" if $item->{pre};
+
+	# And because the code in pre might be both declarations and
+	# statements, we can't declare and assign to the temporaries in one.
+	$counter = 0;
+	printf $xs_fh "            temp%d = %s;\n", $counter++, $_
+	    foreach &$type_to_value($value);
+
+	my @tempvarnames = map {sprintf 'temp%d', $_} 0 .. $counter - 1;
+	printf $xs_fh <<"EOBOOT", $name, &$generator(@tempvarnames);
+	    ${c_subname}_add_symbol($athx symbol_table, "%s",
+				    $namelen, %s);
+EOBOOT
+	print $xs_fh "        $item->{post}\n" if $item->{post};
+	print $xs_fh "        }\n";
+
+        print $xs_fh $self->macro_to_endif($macro);
+    }
+
+    if ($] >= 5.009) {
+	print $xs_fh <<EOBOOT;
+    /* As we've been creating subroutines, we better invalidate any cached
+       methods  */
+    mro_method_changed_in(symbol_table);
+  }
+EOBOOT
+    } else {
+	print $xs_fh <<EOBOOT;
+    /* As we've been creating subroutines, we better invalidate any cached
+       methods  */
+    ++PL_sub_generation;
+  }
+EOBOOT
+    }
+
+    return if !defined $xs_subname;
+
+    if ($croak_on_error || $autoload) {
+        print $xs_fh $croak_on_error ? <<"EOC" : <<'EOA';
+
+void
+$xs_subname(sv)
+    INPUT:
+	SV *		sv;
+    PREINIT:
+	const PERL_CONTEXT *cx = caller_cx(0, NULL);
+	/* cx is NULL if we've been called from the top level. PL_curcop isn't
+	   ideal, but it's much cheaper than other ways of not going SEGV.  */
+	const COP *cop = cx ? cx->blk_oldcop : PL_curcop;
+EOC
+
+void
+AUTOLOAD()
+    PROTOTYPE: DISABLE
+    PREINIT:
+	SV *sv = newSVpvn_flags(SvPVX(cv), SvCUR(cv), SVs_TEMP | SvUTF8(cv));
+	const COP *cop = PL_curcop;
+EOA
+        print $xs_fh <<"EOC";
+    PPCODE:
+#ifndef SYMBIAN
+	/* It's not obvious how to calculate this at C pre-processor time.
+	   However, any compiler optimiser worth its salt should be able to
+	   remove the dead code, and hopefully the now-obviously-unused static
+	   function too.  */
+	HV *${c_subname}_missing = (C_ARRAY_LENGTH(values_for_notfound) > 1)
+	    ? get_missing_hash(aTHX) : NULL;
+	if ((C_ARRAY_LENGTH(values_for_notfound) > 1)
+	    ? hv_exists_ent(${c_subname}_missing, sv, 0) : 0) {
+	    sv = newSVpvf("Your vendor has not defined $package_sprintf_safe macro %" SVf
+			  ", used at %" COP_FILE_F " line %d\\n", sv,
+			  COP_FILE(cop), CopLINE(cop));
+	} else
+#endif
+	{
+	    sv = newSVpvf("%"SVf" is not a valid $package_sprintf_safe macro at %"
+			  COP_FILE_F " line %d\\n", sv, COP_FILE(cop), CopLINE(cop));
+	}
+	croak_sv(sv_2mortal(sv));
+EOC
+    } else {
+        print $xs_fh $explosives ? <<"EXPLODE" : <<"DONT";
+
+void
+$xs_subname(sv)
+    INPUT:
+	SV *		sv;
+    PPCODE:
+	sv = newSVpvf("Your vendor has not defined $package_sprintf_safe macro %" SVf
+			  ", used", sv);
+        PUSHs(sv_2mortal(sv));
+EXPLODE
+
+void
+$xs_subname(sv)
+    INPUT:
+	SV *		sv;
+    PPCODE:
+#ifndef SYMBIAN
+	/* It's not obvious how to calculate this at C pre-processor time.
+	   However, any compiler optimiser worth its salt should be able to
+	   remove the dead code, and hopefully the now-obviously-unused static
+	   function too.  */
+	HV *${c_subname}_missing = (C_ARRAY_LENGTH(values_for_notfound) > 1)
+	    ? get_missing_hash(aTHX) : NULL;
+	if ((C_ARRAY_LENGTH(values_for_notfound) > 1)
+	    ? hv_exists_ent(${c_subname}_missing, sv, 0) : 0) {
+	    sv = newSVpvf("Your vendor has not defined $package_sprintf_safe macro %" SVf
+			  ", used", sv);
+	} else
+#endif
+	{
+	    sv = newSVpvf("%"SVf" is not a valid $package_sprintf_safe macro",
+			  sv);
+	}
+	PUSHs(sv_2mortal(sv));
+DONT
+    }
+}
+
+1;
diff --git a/lib/5.24.1/ExtUtils/Constant/Utils.pm b/lib/5.24.1/ExtUtils/Constant/Utils.pm
new file mode 100644
index 00000000..9608256c
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/Constant/Utils.pm
@@ -0,0 +1,135 @@
+package ExtUtils::Constant::Utils;
+
+use strict;
+use vars qw($VERSION @EXPORT_OK @ISA);
+use Carp;
+
+@ISA = 'Exporter';
+@EXPORT_OK = qw(C_stringify perl_stringify);
+$VERSION = '0.03';
+
+use constant is_perl55 => ($] < 5.005_50);
+use constant is_perl56 => ($] < 5.007 && $] > 5.005_50);
+use constant is_sane_perl => $] > 5.007;
+
+=head1 NAME
+
+ExtUtils::Constant::Utils - helper functions for ExtUtils::Constant
+
+=head1 SYNOPSIS
+
+    use ExtUtils::Constant::Utils qw (C_stringify);
+    $C_code = C_stringify $stuff;
+
+=head1 DESCRIPTION
+
+ExtUtils::Constant::Utils packages up utility subroutines used by
+ExtUtils::Constant, ExtUtils::Constant::Base and derived classes. All its
+functions are explicitly exportable.
+
+=head1 USAGE
+
+=over 4
+
+=item C_stringify NAME
+
+A function which returns a 7 bit ASCII correctly \ escaped version of the
+string passed suitable for C's "" or ''. It will die if passed Unicode
+characters.
+
+=cut
+
+# Hopefully make a happy C identifier.
+sub C_stringify {
+  local $_ = shift;
+  return unless defined $_;
+  # grr 5.6.1
+  confess "Wide character in '$_' intended as a C identifier"
+    if tr/\0-\377// != length;
+  # grr 5.6.1 moreso because its regexps will break on data that happens to
+  # be utf8, which includes my 8 bit test cases.
+  $_ = pack 'C*', unpack 'U*', $_ . pack 'U*' if is_perl56;
+  s/\\/\\\\/g;
+  s/([\"\'])/\\$1/g;	# Grr. fix perl mode.
+  s/\n/\\n/g;		# Ensure newlines don't end up in octal
+  s/\r/\\r/g;
+  s/\t/\\t/g;
+  s/\f/\\f/g;
+  s/\a/\\a/g;
+  unless (is_perl55) {
+    # This will elicit a warning on 5.005_03 about [: :] being reserved unless
+    # I cheat
+    my $cheat = '([[:^print:]])';
+
+    if (ord('A') == 193) { # EBCDIC has no ^\0-\177 workalike.
+      s/$cheat/sprintf "\\%03o", ord $1/ge;
+    } else {
+      s/([^\0-\177])/sprintf "\\%03o", ord $1/ge;
+    }
+
+    s/$cheat/sprintf "\\%03o", ord $1/ge;
+  } else {
+    require POSIX;
+    s/([^A-Za-z0-9_])/POSIX::isprint($1) ? $1 : sprintf "\\%03o", ord $1/ge;
+  }
+  $_;
+}
+
+=item perl_stringify NAME
+
+A function which returns a 7 bit ASCII correctly \ escaped version of the
+string passed suitable for a perl "" string.
+
+=cut
+
+# Hopefully make a happy perl identifier.
+sub perl_stringify {
+  local $_ = shift;
+  return unless defined $_;
+  s/\\/\\\\/g;
+  s/([\"\'])/\\$1/g;	# Grr. fix perl mode.
+  s/\n/\\n/g;		# Ensure newlines don't end up in octal
+  s/\r/\\r/g;
+  s/\t/\\t/g;
+  s/\f/\\f/g;
+  s/\a/\\a/g;
+  unless (is_perl55) {
+    # This will elicit a warning on 5.005_03 about [: :] being reserved unless
+    # I cheat
+    my $cheat = '([[:^print:]])';
+    if (is_sane_perl) {
+	if (ord('A') == 193) { # EBCDIC has no ^\0-\177 workalike.
+	    s/$cheat/sprintf "\\x{%X}", ord $1/ge;
+	} else {
+	    s/([^\0-\177])/sprintf "\\x{%X}", ord $1/ge;
+	}
+    } else {
+      # Grr 5.6.1. And I don't think I can use utf8; to force the regexp
+      # because 5.005_03 will fail.
+      # This is grim, but I also can't split on //
+      my $copy;
+      foreach my $index (0 .. length ($_) - 1) {
+        my $char = substr ($_, $index, 1);
+        $copy .= ($char le "\177") ? $char : sprintf "\\x{%X}", ord $char;
+      }
+      $_ = $copy;
+    }
+    s/$cheat/sprintf "\\%03o", ord $1/ge;
+  } else {
+    # Turns out "\x{}" notation only arrived with 5.6
+    s/([^\0-\177])/sprintf "\\x%02X", ord $1/ge;
+    require POSIX;
+    s/([^A-Za-z0-9_])/POSIX::isprint($1) ? $1 : sprintf "\\%03o", ord $1/ge;
+  }
+  $_;
+}
+
+1;
+__END__
+
+=back
+
+=head1 AUTHOR
+
+Nicholas Clark <nick@ccl4.org> based on the code in C<h2xs> by Larry Wall and
+others
diff --git a/lib/5.24.1/ExtUtils/Constant/XS.pm b/lib/5.24.1/ExtUtils/Constant/XS.pm
new file mode 100644
index 00000000..14eb8097
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/Constant/XS.pm
@@ -0,0 +1,259 @@
+package ExtUtils::Constant::XS;
+
+use strict;
+use vars qw($VERSION %XS_Constant %XS_TypeSet @ISA @EXPORT_OK $is_perl56);
+use Carp;
+use ExtUtils::Constant::Utils 'perl_stringify';
+require ExtUtils::Constant::Base;
+
+
+@ISA = qw(ExtUtils::Constant::Base Exporter);
+@EXPORT_OK = qw(%XS_Constant %XS_TypeSet);
+
+$VERSION = '0.03';
+
+$is_perl56 = ($] < 5.007 && $] > 5.005_50);
+
+=head1 NAME
+
+ExtUtils::Constant::XS - generate C code for XS modules' constants.
+
+=head1 SYNOPSIS
+
+    require ExtUtils::Constant::XS;
+
+=head1 DESCRIPTION
+
+ExtUtils::Constant::XS overrides ExtUtils::Constant::Base to generate C
+code for XS modules' constants.
+
+=head1 BUGS
+
+Nothing is documented.
+
+Probably others.
+
+=head1 AUTHOR
+
+Nicholas Clark <nick@ccl4.org> based on the code in C<h2xs> by Larry Wall and
+others
+
+=cut
+
+# '' is used as a flag to indicate non-ascii macro names, and hence the need
+# to pass in the utf8 on/off flag.
+%XS_Constant = (
+		''    => '',
+		IV    => 'PUSHi(iv)',
+		UV    => 'PUSHu((UV)iv)',
+		NV    => 'PUSHn(nv)',
+		PV    => 'PUSHp(pv, strlen(pv))',
+		PVN   => 'PUSHp(pv, iv)',
+		SV    => 'PUSHs(sv)',
+		YES   => 'PUSHs(&PL_sv_yes)',
+		NO    => 'PUSHs(&PL_sv_no)',
+		UNDEF => '',	# implicit undef
+);
+
+%XS_TypeSet = (
+		IV    => '*iv_return = ',
+		UV    => '*iv_return = (IV)',
+		NV    => '*nv_return = ',
+		PV    => '*pv_return = ',
+		PVN   => ['*pv_return = ', '*iv_return = (IV)'],
+		SV    => '*sv_return = ',
+		YES   => undef,
+		NO    => undef,
+		UNDEF => undef,
+);
+
+sub header {
+  my $start = 1;
+  my @lines;
+  push @lines, "#define PERL_constant_NOTFOUND\t$start\n"; $start++;
+  push @lines, "#define PERL_constant_NOTDEF\t$start\n"; $start++;
+  foreach (sort keys %XS_Constant) {
+    next if $_ eq '';
+    push @lines, "#define PERL_constant_IS$_\t$start\n"; $start++;
+  }
+  push @lines, << 'EOT';
+
+#ifndef NVTYPE
+typedef double NV; /* 5.6 and later define NVTYPE, and typedef NV to it.  */
+#endif
+#ifndef aTHX_
+#define aTHX_ /* 5.6 or later define this for threading support.  */
+#endif
+#ifndef pTHX_
+#define pTHX_ /* 5.6 or later define this for threading support.  */
+#endif
+EOT
+
+  return join '', @lines;
+}
+
+sub valid_type {
+  my ($self, $type) = @_;
+  return exists $XS_TypeSet{$type};
+}
+
+# This might actually be a return statement
+sub assignment_clause_for_type {
+  my $self = shift;
+  my $args = shift;
+  my $type = $args->{type};
+  my $typeset = $XS_TypeSet{$type};
+  if (ref $typeset) {
+    die "Type $type is aggregate, but only single value given"
+      if @_ == 1;
+    return map {"$typeset->[$_]$_[$_];"} 0 .. $#$typeset;
+  } elsif (defined $typeset) {
+    confess "Aggregate value given for type $type"
+      if @_ > 1;
+    return "$typeset$_[0];";
+  }
+  return ();
+}
+
+sub return_statement_for_type {
+  my ($self, $type) = @_;
+  # In the future may pass in an options hash
+  $type = $type->{type} if ref $type;
+  "return PERL_constant_IS$type;";
+}
+
+sub return_statement_for_notdef {
+  # my ($self) = @_;
+  "return PERL_constant_NOTDEF;";
+}
+
+sub return_statement_for_notfound {
+  # my ($self) = @_;
+  "return PERL_constant_NOTFOUND;";
+}
+
+sub default_type {
+  'IV';
+}
+
+sub macro_from_name {
+  my ($self, $item) = @_;
+  my $macro = $item->{name};
+  $macro = $item->{value} unless defined $macro;
+  $macro;
+}
+
+sub macro_from_item {
+  my ($self, $item) = @_;
+  my $macro = $item->{macro};
+  $macro = $self->macro_from_name($item) unless defined $macro;
+  $macro;
+}
+
+# Keep to the traditional perl source macro
+sub memEQ {
+  "memEQ";
+}
+
+sub params {
+  my ($self, $what) = @_;
+  foreach (sort keys %$what) {
+    warn "ExtUtils::Constant doesn't know how to handle values of type $_" unless defined $XS_Constant{$_};
+  }
+  my $params = {};
+  $params->{''} = 1 if $what->{''};
+  $params->{IV} = 1 if $what->{IV} || $what->{UV} || $what->{PVN};
+  $params->{NV} = 1 if $what->{NV};
+  $params->{PV} = 1 if $what->{PV} || $what->{PVN};
+  $params->{SV} = 1 if $what->{SV};
+  return $params;
+}
+
+
+sub C_constant_prefix_param {
+  "aTHX_ ";
+}
+
+sub C_constant_prefix_param_defintion {
+  "pTHX_ ";
+}
+
+sub namelen_param_definition {
+  'STRLEN ' . $_[0] -> namelen_param;
+}
+
+sub C_constant_other_params_defintion {
+  my ($self, $params) = @_;
+  my $body = '';
+  $body .= ", int utf8" if $params->{''};
+  $body .= ", IV *iv_return" if $params->{IV};
+  $body .= ", NV *nv_return" if $params->{NV};
+  $body .= ", const char **pv_return" if $params->{PV};
+  $body .= ", SV **sv_return" if $params->{SV};
+  $body;
+}
+
+sub C_constant_other_params {
+  my ($self, $params) = @_;
+  my $body = '';
+  $body .= ", utf8" if $params->{''};
+  $body .= ", iv_return" if $params->{IV};
+  $body .= ", nv_return" if $params->{NV};
+  $body .= ", pv_return" if $params->{PV};
+  $body .= ", sv_return" if $params->{SV};
+  $body;
+}
+
+sub dogfood {
+  my ($self, $args, @items) = @_;
+  my ($package, $subname, $default_type, $what, $indent, $breakout) =
+    @{$args}{qw(package subname default_type what indent breakout)};
+  my $result = <<"EOT";
+  /* When generated this function returned values for the list of names given
+     in this section of perl code.  Rather than manually editing these functions
+     to add or remove constants, which would result in this comment and section
+     of code becoming inaccurate, we recommend that you edit this section of
+     code, and use it to regenerate a new set of constant functions which you
+     then use to replace the originals.
+
+     Regenerate these constant functions by feeding this entire source file to
+     perl -x
+
+#!$^X -w
+use ExtUtils::Constant qw (constant_types C_constant XS_constant);
+
+EOT
+  $result .= $self->dump_names ({default_type=>$default_type, what=>$what,
+				 indent=>0, declare_types=>1},
+				@items);
+  $result .= <<'EOT';
+
+print constant_types(), "\n"; # macro defs
+EOT
+  $package = perl_stringify($package);
+  $result .=
+    "foreach (C_constant (\"$package\", '$subname', '$default_type', \$types, ";
+  # The form of the indent parameter isn't defined. (Yet)
+  if (defined $indent) {
+    require Data::Dumper;
+    $Data::Dumper::Terse=1;
+    $Data::Dumper::Terse=1; # Not used once. :-)
+    chomp ($indent = Data::Dumper::Dumper ($indent));
+    $result .= $indent;
+  } else {
+    $result .= 'undef';
+  }
+  $result .= ", $breakout" . ', @names) ) {
+    print $_, "\n"; # C constant subs
+}
+print "\n#### XS Section:\n";
+print XS_constant ("' . $package . '", $types);
+__END__
+   */
+
+';
+
+  $result;
+}
+
+1;
diff --git a/lib/5.24.1/ExtUtils/Embed.pm b/lib/5.24.1/ExtUtils/Embed.pm
new file mode 100644
index 00000000..9305b5dc
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/Embed.pm
@@ -0,0 +1,494 @@
+package ExtUtils::Embed;
+require Exporter;
+use Config;
+require File::Spec;
+
+use vars qw(@ISA @EXPORT $VERSION
+	    @Extensions $Verbose $lib_ext
+	    $opt_o $opt_s 
+	    );
+use strict;
+
+# This is not a dual-life module, so no need for development version numbers
+$VERSION = '1.33';
+
+@ISA = qw(Exporter);
+@EXPORT = qw(&xsinit &ldopts 
+	     &ccopts &ccflags &ccdlflags &perl_inc
+	     &xsi_header &xsi_protos &xsi_body);
+
+$Verbose = 0;
+$lib_ext = $Config{lib_ext} || '.a';
+
+sub is_cmd { $0 eq '-e' }
+
+sub my_return {
+    my $val = shift;
+    if(is_cmd) {
+	print $val;
+    }
+    else {
+	return $val;
+    }
+}
+
+sub xsinit { 
+    my($file, $std, $mods) = @_;
+    my($fh,@mods,%seen);
+    $file ||= "perlxsi.c";
+    my $xsinit_proto = "pTHX";
+
+    if (@_) {
+       @mods = @$mods if $mods;
+    }
+    else {
+       require Getopt::Std;
+       Getopt::Std::getopts('o:s:');
+       $file = $opt_o if defined $opt_o;
+       $std  = $opt_s  if defined $opt_s;
+       @mods = @ARGV;
+    }
+    $std = 1 unless scalar @mods;
+
+    if ($file eq "STDOUT") {
+	$fh = \*STDOUT;
+    }
+    else {
+        open $fh, '>', $file
+            or die "Can't open '$file': $!";
+    }
+
+    push(@mods, static_ext()) if defined $std;
+    @mods = grep(!$seen{$_}++, @mods);
+
+    print $fh &xsi_header();
+    print $fh "\nEXTERN_C void xs_init ($xsinit_proto);\n\n";
+    print $fh &xsi_protos(@mods);
+
+    print $fh "\nEXTERN_C void\nxs_init($xsinit_proto)\n{\n";
+    print $fh &xsi_body(@mods);
+    print $fh "}\n";
+
+}
+
+sub xsi_header {
+    return <<EOF;
+#include "EXTERN.h"
+#include "perl.h"
+#include "XSUB.h"
+EOF
+}    
+
+sub xsi_protos {
+    my @exts = @_;
+    my %seen;
+    my $retval = '';
+    foreach my $cname (canon('__', @exts)) {
+        my $ccode = "EXTERN_C void boot_${cname} (pTHX_ CV* cv);\n";
+        $retval .= $ccode
+            unless $seen{$ccode}++;
+    }
+    return $retval;
+}
+
+sub xsi_body {
+    my @exts = @_;
+    my %seen;
+    my $retval;
+    $retval .= "    static const char file[] = __FILE__;\n"
+        if @exts;
+    $retval .= <<'EOT';
+    dXSUB_SYS;
+    PERL_UNUSED_CONTEXT;
+EOT
+    $retval .= "\n"
+        if @exts;
+
+    foreach my $pname (canon('/', @exts)) {
+        next
+            if $seen{$pname}++;
+        (my $mname = $pname) =~ s!/!::!g;
+        (my $cname = $pname) =~ s!/!__!g;
+        my $fname;
+        if ($pname eq 'DynaLoader'){
+            # Must NOT install 'DynaLoader::boot_DynaLoader' as 'bootstrap'!
+            # boot_DynaLoader is called directly in DynaLoader.pm
+            $retval .= "    /* DynaLoader is a special case */\n";
+            $fname = "${mname}::boot_DynaLoader";
+        } else {
+            $fname = "${mname}::bootstrap";
+        }
+        $retval .= "    newXS(\"$fname\", boot_${cname}, file);\n"
+    }
+    return $retval;
+}
+
+sub static_ext {
+    @Extensions = ('DynaLoader', sort $Config{static_ext} =~ /(\S+)/g)
+        unless @Extensions;
+    @Extensions;
+}
+
+sub _escape {
+    my $arg = shift;
+    return $$arg if $^O eq 'VMS'; # parens legal in qualifier lists
+    $$arg =~ s/([\(\)])/\\$1/g;
+}
+
+sub _ldflags {
+    my $ldflags = $Config{ldflags};
+    _escape(\$ldflags);
+    return $ldflags;
+}
+
+sub _ccflags {
+    my $ccflags = $Config{ccflags};
+    _escape(\$ccflags);
+    return $ccflags;
+}
+
+sub _ccdlflags {
+    my $ccdlflags = $Config{ccdlflags};
+    _escape(\$ccdlflags);
+    return $ccdlflags;
+}
+
+sub ldopts {
+    require ExtUtils::MakeMaker;
+    require ExtUtils::Liblist;
+    my($std,$mods,$link_args,$path) = @_;
+    my(@mods,@link_args,@argv);
+    my($dllib,$config_libs,@potential_libs,@path);
+    local($") = ' ' unless $" eq ' ';
+    if (scalar @_) {
+       @link_args = @$link_args if $link_args;
+       @mods = @$mods if $mods;
+    }
+    else {
+       @argv = @ARGV;
+       #hmm
+       while($_ = shift @argv) {
+	   /^-std$/  && do { $std = 1; next; };
+	   /^--$/    && do { @link_args = @argv; last; };
+	   /^-I(.*)/ && do { $path = $1 || shift @argv; next; };
+	   push(@mods, $_); 
+       }
+    }
+    $std = 1 unless scalar @link_args;
+    my $sep = $Config{path_sep} || ':';
+    @path = $path ? split(/\Q$sep/, $path) : @INC;
+
+    push(@potential_libs, @link_args)    if scalar @link_args;
+    # makemaker includes std libs on windows by default
+    if ($^O ne 'MSWin32' and defined($std)) {
+	push(@potential_libs, $Config{perllibs});
+    }
+
+    push(@mods, static_ext()) if $std;
+
+    my($mod,@ns,$root,$sub,$extra,$archive,@archives);
+    print STDERR "Searching (@path) for archives\n" if $Verbose;
+    foreach $mod (@mods) {
+	@ns = split(/::|\/|\\/, $mod);
+	$sub = $ns[-1];
+	$root = File::Spec->catdir(@ns);
+	
+	print STDERR "searching for '$sub${lib_ext}'\n" if $Verbose;
+	foreach (@path) {
+	    next unless -e ($archive = File::Spec->catdir($_,"auto",$root,"$sub$lib_ext"));
+	    push @archives, $archive;
+	    if(-e ($extra = File::Spec->catdir($_,"auto",$root,"extralibs.ld"))) {
+		local(*FH); 
+		if(open(FH, $extra)) {
+		    my($libs) = <FH>; chomp $libs;
+		    push @potential_libs, split /\s+/, $libs;
+		}
+		else {  
+		    warn "Couldn't open '$extra'"; 
+		}
+	    }
+	    last;
+	}
+    }
+    #print STDERR "\@potential_libs = @potential_libs\n";
+
+    my $libperl;
+    if ($^O eq 'MSWin32') {
+	$libperl = $Config{libperl};
+    }
+    elsif ($^O eq 'os390' && $Config{usedl}) {
+	# Nothing for OS/390 (z/OS) dynamic.
+    } else {
+	$libperl = (grep(/^-l\w*perl\w*$/, @link_args))[0]
+	    || ($Config{libperl} =~ /^lib(\w+)(\Q$lib_ext\E|\.\Q$Config{dlext}\E)$/
+		? "-l$1" : '')
+		|| "-lperl";
+    }
+
+    my $lpath = File::Spec->catdir($Config{archlibexp}, 'CORE');
+    $lpath = qq["$lpath"] if $^O eq 'MSWin32';
+    my($extralibs, $bsloadlibs, $ldloadlibs, $ld_run_path) =
+	MM->ext(join ' ', "-L$lpath", $libperl, @potential_libs);
+
+    my $ld_or_bs = $bsloadlibs || $ldloadlibs;
+    print STDERR "bs: $bsloadlibs ** ld: $ldloadlibs" if $Verbose;
+    my $ccdlflags = _ccdlflags();
+    my $ldflags   = _ldflags();
+    my $linkage = "$ccdlflags $ldflags @archives $ld_or_bs";
+    print STDERR "ldopts: '$linkage'\n" if $Verbose;
+
+    return $linkage if scalar @_;
+    my_return("$linkage\n");
+}
+
+sub ccflags {
+    my $ccflags = _ccflags();
+    my_return(" $ccflags ");
+}
+
+sub ccdlflags {
+    my $ccdlflags = _ccdlflags();
+    my_return(" $ccdlflags ");
+}
+
+sub perl_inc {
+    my $dir = File::Spec->catdir($Config{archlibexp}, 'CORE');
+    $dir = qq["$dir"] if $^O eq 'MSWin32';
+    my_return(" -I$dir ");
+}
+
+sub ccopts {
+   ccflags . perl_inc;
+}
+
+sub canon {
+    my($as, @ext) = @_;
+    foreach(@ext) {
+        # might be X::Y or lib/auto/X/Y/Y.a
+        next
+            if s!::!/!g;
+        s!^(?:lib|ext|dist|cpan)/(?:auto/)?!!;
+        s!/\w+\.\w+$!!;
+    }
+    if ($as ne '/') {
+        s!/!$as!g
+            foreach @ext;
+    }
+    @ext;
+}
+
+__END__
+
+=head1 NAME
+
+ExtUtils::Embed - Utilities for embedding Perl in C/C++ applications
+
+=head1 SYNOPSIS
+
+ perl -MExtUtils::Embed -e xsinit 
+ perl -MExtUtils::Embed -e ccopts 
+ perl -MExtUtils::Embed -e ldopts 
+
+=head1 DESCRIPTION
+
+C<ExtUtils::Embed> provides utility functions for embedding a Perl interpreter
+and extensions in your C/C++ applications.  
+Typically, an application F<Makefile> will invoke C<ExtUtils::Embed>
+functions while building your application.  
+
+=head1 @EXPORT
+
+C<ExtUtils::Embed> exports the following functions:
+
+xsinit(), ldopts(), ccopts(), perl_inc(), ccflags(), 
+ccdlflags(), xsi_header(), xsi_protos(), xsi_body()
+
+=head1 FUNCTIONS
+
+=over 4
+
+=item xsinit()
+
+Generate C/C++ code for the XS initializer function.
+
+When invoked as C<`perl -MExtUtils::Embed -e xsinit --`>
+the following options are recognized:
+
+B<-o> E<lt>output filenameE<gt> (Defaults to B<perlxsi.c>)
+
+B<-o STDOUT> will print to STDOUT.
+
+B<-std> (Write code for extensions that are linked with the current Perl.)
+
+Any additional arguments are expected to be names of modules
+to generate code for.
+
+When invoked with parameters the following are accepted and optional:
+
+C<xsinit($filename,$std,[@modules])>
+
+Where,
+
+B<$filename> is equivalent to the B<-o> option.
+
+B<$std> is boolean, equivalent to the B<-std> option.  
+
+B<[@modules]> is an array ref, same as additional arguments mentioned above.
+
+=item Examples
+
+ perl -MExtUtils::Embed -e xsinit -- -o xsinit.c Socket
+
+This will generate code with an C<xs_init> function that glues the perl C<Socket::bootstrap> function 
+to the C C<boot_Socket> function and writes it to a file named F<xsinit.c>.
+
+Note that L<DynaLoader> is a special case where it must call C<boot_DynaLoader> directly.
+
+ perl -MExtUtils::Embed -e xsinit
+
+This will generate code for linking with C<DynaLoader> and
+each static extension found in C<$Config{static_ext}>.
+The code is written to the default file name F<perlxsi.c>.
+
+ perl -MExtUtils::Embed -e xsinit -- -o xsinit.c \
+                            -std DBI DBD::Oracle
+
+Here, code is written for all the currently linked extensions along with code
+for C<DBI> and C<DBD::Oracle>.
+
+If you have a working C<DynaLoader> then there is rarely any need to statically link in any 
+other extensions.
+
+=item ldopts()
+
+Output arguments for linking the Perl library and extensions to your
+application.
+
+When invoked as C<`perl -MExtUtils::Embed -e ldopts --`>
+the following options are recognized:
+
+B<-std> 
+
+Output arguments for linking the Perl library and any extensions linked
+with the current Perl.
+
+B<-I> E<lt>path1:path2E<gt>
+
+Search path for ModuleName.a archives.  
+Default path is C<@INC>.
+Library archives are expected to be found as 
+F</some/path/auto/ModuleName/ModuleName.a>
+For example, when looking for F<Socket.a> relative to a search path,
+we should find F<auto/Socket/Socket.a>
+
+When looking for C<DBD::Oracle> relative to a search path,
+we should find F<auto/DBD/Oracle/Oracle.a>
+
+Keep in mind that you can always supply F</my/own/path/ModuleName.a>
+as an additional linker argument.
+
+B<-->  E<lt>list of linker argsE<gt>
+
+Additional linker arguments to be considered.
+
+Any additional arguments found before the B<--> token 
+are expected to be names of modules to generate code for.
+
+When invoked with parameters the following are accepted and optional:
+
+C<ldopts($std,[@modules],[@link_args],$path)>
+
+Where:
+
+B<$std> is boolean, equivalent to the B<-std> option.  
+
+B<[@modules]> is equivalent to additional arguments found before the B<--> token.
+
+B<[@link_args]> is equivalent to arguments found after the B<--> token.
+
+B<$path> is equivalent to the B<-I> option.
+
+In addition, when ldopts is called with parameters, it will return the argument string
+rather than print it to STDOUT.
+
+=item Examples
+
+ perl -MExtUtils::Embed -e ldopts
+
+This will print arguments for linking with C<libperl> and
+extensions found in C<$Config{static_ext}>.  This includes libraries
+found in C<$Config{libs}> and the first ModuleName.a library
+for each extension that is found by searching C<@INC> or the path
+specified by the B<-I> option.
+In addition, when ModuleName.a is found, additional linker arguments
+are picked up from the F<extralibs.ld> file in the same directory.
+
+ perl -MExtUtils::Embed -e ldopts -- -std Socket
+
+This will do the same as the above example, along with printing additional
+arguments for linking with the C<Socket> extension.
+
+ perl -MExtUtils::Embed -e ldopts -- -std Msql -- \
+                        -L/usr/msql/lib -lmsql
+
+Any arguments after the second '--' token are additional linker
+arguments that will be examined for potential conflict.  If there is no
+conflict, the additional arguments will be part of the output.  
+
+=item perl_inc()
+
+For including perl header files this function simply prints:
+
+ -I$Config{archlibexp}/CORE  
+
+So, rather than having to say:
+
+ perl -MConfig -e 'print "-I$Config{archlibexp}/CORE"'
+
+Just say:
+
+ perl -MExtUtils::Embed -e perl_inc
+
+=item ccflags(), ccdlflags()
+
+These functions simply print $Config{ccflags} and $Config{ccdlflags}
+
+=item ccopts()
+
+This function combines C<perl_inc()>, C<ccflags()> and C<ccdlflags()> into one.
+
+=item xsi_header()
+
+This function simply returns a string defining the same C<EXTERN_C> macro as
+F<perlmain.c> along with #including F<perl.h> and F<EXTERN.h>.
+
+=item xsi_protos(@modules)
+
+This function returns a string of C<boot_$ModuleName> prototypes for each @modules.
+
+=item xsi_body(@modules)
+
+This function returns a string of calls to C<newXS()> that glue the module I<bootstrap>
+function to I<boot_ModuleName> for each @modules.
+
+C<xsinit()> uses the xsi_* functions to generate most of its code.
+
+=back
+
+=head1 EXAMPLES
+
+For examples on how to use C<ExtUtils::Embed> for building C/C++ applications
+with embedded perl, see L<perlembed>.
+
+=head1 SEE ALSO
+
+L<perlembed>
+
+=head1 AUTHOR
+
+Doug MacEachern E<lt>C<dougm@osf.org>E<gt>
+
+Based on ideas from Tim Bunce E<lt>C<Tim.Bunce@ig.co.uk>E<gt> and
+F<minimod.pl> by Andreas Koenig E<lt>C<k@anna.in-berlin.de>E<gt> and Tim Bunce.
+
+=cut
diff --git a/lib/5.24.1/ExtUtils/Install.pm b/lib/5.24.1/ExtUtils/Install.pm
new file mode 100644
index 00000000..1e8ac4cd
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/Install.pm
@@ -0,0 +1,1355 @@
+package ExtUtils::Install;
+use strict;
+
+use vars qw(@ISA @EXPORT $VERSION $MUST_REBOOT %Config);
+
+use AutoSplit;
+use Carp ();
+use Config qw(%Config);
+use Cwd qw(cwd);
+use Exporter;
+use ExtUtils::Packlist;
+use File::Basename qw(dirname);
+use File::Compare qw(compare);
+use File::Copy;
+use File::Find qw(find);
+use File::Path;
+use File::Spec;
+
+
+@ISA = ('Exporter');
+@EXPORT = ('install','uninstall','pm_to_blib', 'install_default');
+
+=pod
+
+=head1 NAME
+
+ExtUtils::Install - install files from here to there
+
+=head1 SYNOPSIS
+
+  use ExtUtils::Install;
+
+  install({ 'blib/lib' => 'some/install/dir' } );
+
+  uninstall($packlist);
+
+  pm_to_blib({ 'lib/Foo/Bar.pm' => 'blib/lib/Foo/Bar.pm' });
+
+=head1 VERSION
+
+2.04
+
+=cut
+
+$VERSION = '2.04';  # <-- do not forget to update the POD section just above this line!
+$VERSION = eval $VERSION;
+
+=pod
+
+=head1 DESCRIPTION
+
+Handles the installing and uninstalling of perl modules, scripts, man
+pages, etc...
+
+Both install() and uninstall() are specific to the way
+ExtUtils::MakeMaker handles the installation and deinstallation of
+perl modules. They are not designed as general purpose tools.
+
+On some operating systems such as Win32 installation may not be possible
+until after a reboot has occurred. This can have varying consequences:
+removing an old DLL does not impact programs using the new one, but if
+a new DLL cannot be installed properly until reboot then anything
+depending on it must wait. The package variable
+
+  $ExtUtils::Install::MUST_REBOOT
+
+is used to store this status.
+
+If this variable is true then such an operation has occurred and
+anything depending on this module cannot proceed until a reboot
+has occurred.
+
+If this value is defined but false then such an operation has
+ocurred, but should not impact later operations.
+
+=over
+
+=begin _private
+
+=item _chmod($$;$)
+
+Wrapper to chmod() for debugging and error trapping.
+
+=item _warnonce(@)
+
+Warns about something only once.
+
+=item _choke(@)
+
+Dies with a special message.
+
+=back
+
+=end _private
+
+=cut
+
+my $Is_VMS     = $^O eq 'VMS';
+my $Is_MacPerl = $^O eq 'MacOS';
+my $Is_Win32   = $^O eq 'MSWin32';
+my $Is_cygwin  = $^O eq 'cygwin';
+my $CanMoveAtBoot = ($Is_Win32 || $Is_cygwin);
+
+# *note* CanMoveAtBoot is only incidentally the same condition as below
+# this needs not hold true in the future.
+my $Has_Win32API_File = ($Is_Win32 || $Is_cygwin)
+    ? (eval {require Win32API::File; 1} || 0)
+    : 0;
+
+
+my $Inc_uninstall_warn_handler;
+
+# install relative to here
+
+my $INSTALL_ROOT = $ENV{PERL_INSTALL_ROOT};
+my $INSTALL_QUIET = $ENV{PERL_INSTALL_QUIET};
+
+my $Curdir = File::Spec->curdir;
+my $Updir  = File::Spec->updir;
+
+sub _estr(@) {
+    return join "\n",'!' x 72,@_,'!' x 72,'';
+}
+
+{my %warned;
+sub _warnonce(@) {
+    my $first=shift;
+    my $msg=_estr "WARNING: $first",@_;
+    warn $msg unless $warned{$msg}++;
+}}
+
+sub _choke(@) {
+    my $first=shift;
+    my $msg=_estr "ERROR: $first",@_;
+    Carp::croak($msg);
+}
+
+
+sub _chmod($$;$) {
+    my ( $mode, $item, $verbose )=@_;
+    $verbose ||= 0;
+    if (chmod $mode, $item) {
+        printf "chmod(0%o, %s)\n",$mode, $item if $verbose > 1;
+    } else {
+        my $err="$!";
+        _warnonce sprintf "WARNING: Failed chmod(0%o, %s): %s\n",
+                  $mode, $item, $err
+            if -e $item;
+    }
+}
+
+=begin _private
+
+=over
+
+=item _move_file_at_boot( $file, $target, $moan  )
+
+OS-Specific, Win32/Cygwin
+
+Schedules a file to be moved/renamed/deleted at next boot.
+$file should be a filespec of an existing file
+$target should be a ref to an array if the file is to be deleted
+otherwise it should be a filespec for a rename. If the file is existing
+it will be replaced.
+
+Sets $MUST_REBOOT to 0 to indicate a deletion operation has occurred
+and sets it to 1 to indicate that a move operation has been requested.
+
+returns 1 on success, on failure if $moan is false errors are fatal.
+If $moan is true then returns 0 on error and warns instead of dies.
+
+=end _private
+
+=cut
+
+
+
+sub _move_file_at_boot { #XXX OS-SPECIFIC
+    my ( $file, $target, $moan  )= @_;
+    Carp::confess("Panic: Can't _move_file_at_boot on this platform!")
+         unless $CanMoveAtBoot;
+
+    my $descr= ref $target
+                ? "'$file' for deletion"
+                : "'$file' for installation as '$target'";
+
+    if ( ! $Has_Win32API_File ) {
+
+        my @msg=(
+            "Cannot schedule $descr at reboot.",
+            "Try installing Win32API::File to allow operations on locked files",
+            "to be scheduled during reboot. Or try to perform the operation by",
+            "hand yourself. (You may need to close other perl processes first)"
+        );
+        if ( $moan ) { _warnonce(@msg) } else { _choke(@msg) }
+        return 0;
+    }
+    my $opts= Win32API::File::MOVEFILE_DELAY_UNTIL_REBOOT();
+    $opts= $opts | Win32API::File::MOVEFILE_REPLACE_EXISTING()
+        unless ref $target;
+
+    _chmod( 0666, $file );
+    _chmod( 0666, $target ) unless ref $target;
+
+    if (Win32API::File::MoveFileEx( $file, $target, $opts )) {
+        $MUST_REBOOT ||= ref $target ? 0 : 1;
+        return 1;
+    } else {
+        my @msg=(
+            "MoveFileEx $descr at reboot failed: $^E",
+            "You may try to perform the operation by hand yourself. ",
+            "(You may need to close other perl processes first).",
+        );
+        if ( $moan ) { _warnonce(@msg) } else { _choke(@msg) }
+    }
+    return 0;
+}
+
+
+=begin _private
+
+
+=item _unlink_or_rename( $file, $tryhard, $installing )
+
+OS-Specific, Win32/Cygwin
+
+Tries to get a file out of the way by unlinking it or renaming it. On
+some OS'es (Win32 based) DLL files can end up locked such that they can
+be renamed but not deleted. Likewise sometimes a file can be locked such
+that it cant even be renamed or changed except at reboot. To handle
+these cases this routine finds a tempfile name that it can either rename
+the file out of the way or use as a proxy for the install so that the
+rename can happen later (at reboot).
+
+  $file : the file to remove.
+  $tryhard : should advanced tricks be used for deletion
+  $installing : we are not merely deleting but we want to overwrite
+
+When $tryhard is not true if the unlink fails its fatal. When $tryhard
+is true then the file is attempted to be renamed. The renamed file is
+then scheduled for deletion. If the rename fails then $installing
+governs what happens. If it is false the failure is fatal. If it is true
+then an attempt is made to schedule installation at boot using a
+temporary file to hold the new file. If this fails then a fatal error is
+thrown, if it succeeds it returns the temporary file name (which will be
+a derivative of the original in the same directory) so that the caller can
+use it to install under. In all other cases of success returns $file.
+On failure throws a fatal error.
+
+=end _private
+
+=cut
+
+
+
+sub _unlink_or_rename { #XXX OS-SPECIFIC
+    my ( $file, $tryhard, $installing )= @_;
+
+    # this chmod was originally unconditional. However, its not needed on
+    # POSIXy systems since permission to unlink a file is specified by the
+    # directory rather than the file; and in fact it screwed up hard- and
+    # symlinked files. Keep it for other platforms in case its still
+    # needed there.
+    if ($^O =~ /^(dos|os2|MSWin32|VMS)$/) {
+        _chmod( 0666, $file );
+    }
+    my $unlink_count = 0;
+    while (unlink $file) { $unlink_count++; }
+    return $file if $unlink_count > 0;
+    my $error="$!";
+
+    _choke("Cannot unlink '$file': $!")
+          unless $CanMoveAtBoot && $tryhard;
+
+    my $tmp= "AAA";
+    ++$tmp while -e "$file.$tmp";
+    $tmp= "$file.$tmp";
+
+    warn "WARNING: Unable to unlink '$file': $error\n",
+         "Going to try to rename it to '$tmp'.\n";
+
+    if ( rename $file, $tmp ) {
+        warn "Rename successful. Scheduling '$tmp'\nfor deletion at reboot.\n";
+        # when $installing we can set $moan to true.
+        # IOW, if we cant delete the renamed file at reboot its
+        # not the end of the world. The other cases are more serious
+        # and need to be fatal.
+        _move_file_at_boot( $tmp, [], $installing );
+        return $file;
+    } elsif ( $installing ) {
+        _warnonce("Rename failed: $!. Scheduling '$tmp'\nfor".
+             " installation as '$file' at reboot.\n");
+        _move_file_at_boot( $tmp, $file );
+        return $tmp;
+    } else {
+        _choke("Rename failed:$!", "Cannot proceed.");
+    }
+
+}
+
+
+=pod
+
+=back
+
+=head2 Functions
+
+=begin _private
+
+=over
+
+=item _get_install_skip
+
+Handles loading the INSTALL.SKIP file. Returns an array of patterns to use.
+
+=cut
+
+
+
+sub _get_install_skip {
+    my ( $skip, $verbose )= @_;
+    if ($ENV{EU_INSTALL_IGNORE_SKIP}) {
+        print "EU_INSTALL_IGNORE_SKIP is set, ignore skipfile settings\n"
+            if $verbose>2;
+        return [];
+    }
+    if ( ! defined $skip ) {
+        print "Looking for install skip list\n"
+            if $verbose>2;
+        for my $file ( 'INSTALL.SKIP', $ENV{EU_INSTALL_SITE_SKIPFILE} ) {
+            next unless $file;
+            print "\tChecking for $file\n"
+                if $verbose>2;
+            if (-e $file) {
+                $skip= $file;
+                last;
+            }
+        }
+    }
+    if ($skip && !ref $skip) {
+        print "Reading skip patterns from '$skip'.\n"
+            if $verbose;
+        if (open my $fh,$skip ) {
+            my @patterns;
+            while (<$fh>) {
+                chomp;
+                next if /^\s*(?:#|$)/;
+                print "\tSkip pattern: $_\n" if $verbose>3;
+                push @patterns, $_;
+            }
+            $skip= \@patterns;
+        } else {
+            warn "Can't read skip file:'$skip':$!\n";
+            $skip=[];
+        }
+    } elsif ( UNIVERSAL::isa($skip,'ARRAY') ) {
+        print "Using array for skip list\n"
+            if $verbose>2;
+    } elsif ($verbose) {
+        print "No skip list found.\n"
+            if $verbose>1;
+        $skip= [];
+    }
+    warn "Got @{[0+@$skip]} skip patterns.\n"
+        if $verbose>3;
+    return $skip
+}
+
+=pod
+
+=item _have_write_access
+
+Abstract a -w check that tries to use POSIX::access() if possible.
+
+=cut
+
+{
+    my  $has_posix;
+    sub _have_write_access {
+        my $dir=shift;
+        unless (defined $has_posix) {
+            $has_posix= (!$Is_cygwin && !$Is_Win32
+             && eval 'local $^W; require POSIX; 1') || 0;
+        }
+        if ($has_posix) {
+            return POSIX::access($dir, POSIX::W_OK());
+        } else {
+            return -w $dir;
+        }
+    }
+}
+
+=pod
+
+=item _can_write_dir(C<$dir>)
+
+Checks whether a given directory is writable, taking account
+the possibility that the directory might not exist and would have to
+be created first.
+
+Returns a list, containing: C<($writable, $determined_by, @create)>
+
+C<$writable> says whether the directory is (hypothetically) writable
+
+C<$determined_by> is the directory the status was determined from. It will be
+either the C<$dir>, or one of its parents.
+
+C<@create> is a list of directories that would probably have to be created
+to make the requested directory. It may not actually be correct on
+relative paths with C<..> in them. But for our purposes it should work ok
+
+=cut
+
+
+sub _can_write_dir {
+    my $dir=shift;
+    return
+        unless defined $dir and length $dir;
+
+    my ($vol, $dirs, $file) = File::Spec->splitpath($dir,1);
+    my @dirs = File::Spec->splitdir($dirs);
+    unshift @dirs, File::Spec->curdir
+        unless File::Spec->file_name_is_absolute($dir);
+
+    my $path='';
+    my @make;
+    while (@dirs) {
+        if ($Is_VMS) {
+            $dir = File::Spec->catdir($vol,@dirs);
+        }
+        else {
+            $dir = File::Spec->catdir(@dirs);
+            $dir = File::Spec->catpath($vol,$dir,'')
+                    if defined $vol and length $vol;
+        }
+        next if ( $dir eq $path );
+        if ( ! -e $dir ) {
+            unshift @make,$dir;
+            next;
+        }
+        if ( _have_write_access($dir) ) {
+            return 1,$dir,@make
+        } else {
+            return 0,$dir,@make
+        }
+    } continue {
+        pop @dirs;
+    }
+    return 0;
+}
+
+=pod
+
+=item _mkpath($dir,$show,$mode,$verbose,$dry_run)
+
+Wrapper around File::Path::mkpath() to handle errors.
+
+If $verbose is true and >1 then additional diagnostics will be produced, also
+this will force $show to true.
+
+If $dry_run is true then the directory will not be created but a check will be
+made to see whether it would be possible to write to the directory, or that
+it would be possible to create the directory.
+
+If $dry_run is not true dies if the directory can not be created or is not
+writable.
+
+=cut
+
+sub _mkpath {
+    my ($dir,$show,$mode,$verbose,$dry_run)=@_;
+    if ( $verbose && $verbose > 1 && ! -d $dir) {
+        $show= 1;
+        printf "mkpath(%s,%d,%#o)\n", $dir, $show, $mode;
+    }
+    if (!$dry_run) {
+        if ( ! eval { File::Path::mkpath($dir,$show,$mode); 1 } ) {
+            _choke("Can't create '$dir'","$@");
+        }
+
+    }
+    my ($can,$root,@make)=_can_write_dir($dir);
+    if (!$can) {
+        my @msg=(
+            "Can't create '$dir'",
+            $root ? "Do not have write permissions on '$root'"
+                  : "Unknown Error"
+        );
+        if ($dry_run) {
+            _warnonce @msg;
+        } else {
+            _choke @msg;
+        }
+    } elsif ($show and $dry_run) {
+        print "$_\n" for @make;
+    }
+
+}
+
+=pod
+
+=item _copy($from,$to,$verbose,$dry_run)
+
+Wrapper around File::Copy::copy to handle errors.
+
+If $verbose is true and >1 then additional diagnostics will be emitted.
+
+If $dry_run is true then the copy will not actually occur.
+
+Dies if the copy fails.
+
+=cut
+
+
+sub _copy {
+    my ( $from, $to, $verbose, $dry_run)=@_;
+    if ($verbose && $verbose>1) {
+        printf "copy(%s,%s)\n", $from, $to;
+    }
+    if (!$dry_run) {
+        File::Copy::copy($from,$to)
+            or Carp::croak( _estr "ERROR: Cannot copy '$from' to '$to': $!" );
+    }
+}
+
+=pod
+
+=item _chdir($from)
+
+Wrapper around chdir to catch errors.
+
+If not called in void context returns the cwd from before the chdir.
+
+dies on error.
+
+=cut
+
+sub _chdir {
+    my ($dir)= @_;
+    my $ret;
+    if (defined wantarray) {
+        $ret= cwd;
+    }
+    chdir $dir
+        or _choke("Couldn't chdir to '$dir': $!");
+    return $ret;
+}
+
+=pod
+
+=back
+
+=end _private
+
+=over
+
+=item B<install>
+
+    # deprecated forms
+    install(\%from_to);
+    install(\%from_to, $verbose, $dry_run, $uninstall_shadows,
+                $skip, $always_copy, \%result);
+
+    # recommended form as of 1.47
+    install([
+        from_to => \%from_to,
+        verbose => 1,
+        dry_run => 0,
+        uninstall_shadows => 1,
+        skip => undef,
+        always_copy => 1,
+        result => \%install_results,
+    ]);
+
+
+Copies each directory tree of %from_to to its corresponding value
+preserving timestamps and permissions.
+
+There are two keys with a special meaning in the hash: "read" and
+"write".  These contain packlist files.  After the copying is done,
+install() will write the list of target files to $from_to{write}. If
+$from_to{read} is given the contents of this file will be merged into
+the written file. The read and the written file may be identical, but
+on AFS it is quite likely that people are installing to a different
+directory than the one where the files later appear.
+
+If $verbose is true, will print out each file removed.  Default is
+false.  This is "make install VERBINST=1". $verbose values going
+up to 5 show increasingly more diagnostics output.
+
+If $dry_run is true it will only print what it was going to do
+without actually doing it.  Default is false.
+
+If $uninstall_shadows is true any differing versions throughout @INC
+will be uninstalled.  This is "make install UNINST=1"
+
+As of 1.37_02 install() supports the use of a list of patterns to filter out
+files that shouldn't be installed. If $skip is omitted or undefined then
+install will try to read the list from INSTALL.SKIP in the CWD. This file is
+a list of regular expressions and is just like the MANIFEST.SKIP file used
+by L<ExtUtils::Manifest>.
+
+A default site INSTALL.SKIP may be provided by setting then environment
+variable EU_INSTALL_SITE_SKIPFILE, this will only be used when there isn't a
+distribution specific INSTALL.SKIP. If the environment variable
+EU_INSTALL_IGNORE_SKIP is true then no install file filtering will be
+performed.
+
+If $skip is undefined then the skip file will be autodetected and used if it
+is found. If $skip is a reference to an array then it is assumed the array
+contains the list of patterns, if $skip is a true non reference it is
+assumed to be the filename holding the list of patterns, any other value of
+$skip is taken to mean that no install filtering should occur.
+
+B<Changes As of Version 1.47>
+
+As of version 1.47 the following additions were made to the install interface.
+Note that the new argument style and use of the %result hash is recommended.
+
+The $always_copy parameter which when true causes files to be updated
+regardless as to whether they have changed, if it is defined but false then
+copies are made only if the files have changed, if it is undefined then the
+value of the environment variable EU_INSTALL_ALWAYS_COPY is used as default.
+
+The %result hash will be populated with the various keys/subhashes reflecting
+the install. Currently these keys and their structure are:
+
+    install             => { $target    => $source },
+    install_fail        => { $target    => $source },
+    install_unchanged   => { $target    => $source },
+
+    install_filtered    => { $source    => $pattern },
+
+    uninstall           => { $uninstalled => $source },
+    uninstall_fail      => { $uninstalled => $source },
+
+where C<$source> is the filespec of the file being installed. C<$target> is where
+it is being installed to, and C<$uninstalled> is any shadow file that is in C<@INC>
+or C<$ENV{PERL5LIB}> or other standard locations, and C<$pattern> is the pattern that
+caused a source file to be skipped. In future more keys will be added, such as to
+show created directories, however this requires changes in other modules and must
+therefore wait.
+
+These keys will be populated before any exceptions are thrown should there be an
+error.
+
+Note that all updates of the %result are additive, the hash will not be
+cleared before use, thus allowing status results of many installs to be easily
+aggregated.
+
+B<NEW ARGUMENT STYLE>
+
+If there is only one argument and it is a reference to an array then
+the array is assumed to contain a list of key-value pairs specifying
+the options. In this case the option "from_to" is mandatory. This style
+means that you do not have to supply a cryptic list of arguments and can
+use a self documenting argument list that is easier to understand.
+
+This is now the recommended interface to install().
+
+B<RETURN>
+
+If all actions were successful install will return a hashref of the results
+as described above for the $result parameter. If any action is a failure
+then install will die, therefore it is recommended to pass in the $result
+parameter instead of using the return value. If the result parameter is
+provided then the returned hashref will be the passed in hashref.
+
+=cut
+
+sub install { #XXX OS-SPECIFIC
+    my($from_to,$verbose,$dry_run,$uninstall_shadows,$skip,$always_copy,$result) = @_;
+    if (@_==1 and eval { 1+@$from_to }) {
+        my %opts        = @$from_to;
+        $from_to        = $opts{from_to}
+                            or Carp::confess("from_to is a mandatory parameter");
+        $verbose        = $opts{verbose};
+        $dry_run        = $opts{dry_run};
+        $uninstall_shadows  = $opts{uninstall_shadows};
+        $skip           = $opts{skip};
+        $always_copy    = $opts{always_copy};
+        $result         = $opts{result};
+    }
+
+    $result ||= {};
+    $verbose ||= 0;
+    $dry_run  ||= 0;
+
+    $skip= _get_install_skip($skip,$verbose);
+    $always_copy =  $ENV{EU_INSTALL_ALWAYS_COPY}
+                 || $ENV{EU_ALWAYS_COPY}
+                 || 0
+        unless defined $always_copy;
+
+    my(%from_to) = %$from_to;
+    my(%pack, $dir, %warned);
+    my($packlist) = ExtUtils::Packlist->new();
+
+    local(*DIR);
+    for (qw/read write/) {
+        $pack{$_}=$from_to{$_};
+        delete $from_to{$_};
+    }
+    my $tmpfile = install_rooted_file($pack{"read"});
+    $packlist->read($tmpfile) if (-f $tmpfile);
+    my $cwd = cwd();
+    my @found_files;
+    my %check_dirs;
+
+    MOD_INSTALL: foreach my $source (sort keys %from_to) {
+        #copy the tree to the target directory without altering
+        #timestamp and permission and remember for the .packlist
+        #file. The packlist file contains the absolute paths of the
+        #install locations. AFS users may call this a bug. We'll have
+        #to reconsider how to add the means to satisfy AFS users also.
+
+        #October 1997: we want to install .pm files into archlib if
+        #there are any files in arch. So we depend on having ./blib/arch
+        #hardcoded here.
+
+        my $targetroot = install_rooted_dir($from_to{$source});
+
+        my $blib_lib  = File::Spec->catdir('blib', 'lib');
+        my $blib_arch = File::Spec->catdir('blib', 'arch');
+        if ($source eq $blib_lib and
+            exists $from_to{$blib_arch} and
+            directory_not_empty($blib_arch)
+        ){
+            $targetroot = install_rooted_dir($from_to{$blib_arch});
+            print "Files found in $blib_arch: installing files in $blib_lib into architecture dependent library tree\n";
+        }
+
+        next unless -d $source;
+        _chdir($source);
+        # 5.5.3's File::Find missing no_chdir option
+        # XXX OS-SPECIFIC
+        # File::Find seems to always be Unixy except on MacPerl :(
+        my $current_directory= $Is_MacPerl ? $Curdir : '.';
+        find(sub {
+            my ($mode,$size,$atime,$mtime) = (stat)[2,7,8,9];
+
+            return if !-f _;
+            my $origfile = $_;
+
+            return if $origfile eq ".exists";
+            my $targetdir  = File::Spec->catdir($targetroot, $File::Find::dir);
+            my $targetfile = File::Spec->catfile($targetdir, $origfile);
+            my $sourcedir  = File::Spec->catdir($source, $File::Find::dir);
+            my $sourcefile = File::Spec->catfile($sourcedir, $origfile);
+
+            for my $pat (@$skip) {
+                if ( $sourcefile=~/$pat/ ) {
+                    print "Skipping $targetfile (filtered)\n"
+                        if $verbose>1;
+                    $result->{install_filtered}{$sourcefile} = $pat;
+                    return;
+                }
+            }
+            # we have to do this for back compat with old File::Finds
+            # and because the target is relative
+            my $save_cwd = _chdir($cwd);
+            my $diff = 0;
+            # XXX: I wonder how useful this logic is actually -- demerphq
+            if ( $always_copy or !-f $targetfile or -s $targetfile != $size) {
+                $diff++;
+            } else {
+                # we might not need to copy this file
+                $diff = compare($sourcefile, $targetfile);
+            }
+            $check_dirs{$targetdir}++
+                unless -w $targetfile;
+
+            push @found_files,
+                [ $diff, $File::Find::dir, $origfile,
+                  $mode, $size, $atime, $mtime,
+                  $targetdir, $targetfile, $sourcedir, $sourcefile,
+
+                ];
+            #restore the original directory we were in when File::Find
+            #called us so that it doesn't get horribly confused.
+            _chdir($save_cwd);
+        }, $current_directory );
+        _chdir($cwd);
+    }
+    foreach my $targetdir (sort keys %check_dirs) {
+        _mkpath( $targetdir, 0, 0755, $verbose, $dry_run );
+    }
+    foreach my $found (@found_files) {
+        my ($diff, $ffd, $origfile, $mode, $size, $atime, $mtime,
+            $targetdir, $targetfile, $sourcedir, $sourcefile)= @$found;
+
+        my $realtarget= $targetfile;
+        if ($diff) {
+            eval {
+                if (-f $targetfile) {
+                    print "_unlink_or_rename($targetfile)\n" if $verbose>1;
+                    $targetfile= _unlink_or_rename( $targetfile, 'tryhard', 'install' )
+                        unless $dry_run;
+                } elsif ( ! -d $targetdir ) {
+                    _mkpath( $targetdir, 0, 0755, $verbose, $dry_run );
+                }
+                print "Installing $targetfile\n";
+
+                _copy( $sourcefile, $targetfile, $verbose, $dry_run, );
+
+
+                #XXX OS-SPECIFIC
+                print "utime($atime,$mtime,$targetfile)\n" if $verbose>1;
+                utime($atime,$mtime + $Is_VMS,$targetfile) unless $dry_run>1;
+
+
+                $mode = 0444 | ( $mode & 0111 ? 0111 : 0 );
+                $mode = $mode | 0222
+                    if $realtarget ne $targetfile;
+                _chmod( $mode, $targetfile, $verbose );
+                $result->{install}{$targetfile} = $sourcefile;
+                1
+            } or do {
+                $result->{install_fail}{$targetfile} = $sourcefile;
+                die $@;
+            };
+        } else {
+            $result->{install_unchanged}{$targetfile} = $sourcefile;
+            print "Skipping $targetfile (unchanged)\n" if $verbose;
+        }
+
+        if ( $uninstall_shadows ) {
+            inc_uninstall($sourcefile,$ffd, $verbose,
+                          $dry_run,
+                          $realtarget ne $targetfile ? $realtarget : "",
+                          $result);
+        }
+
+        # Record the full pathname.
+        $packlist->{$targetfile}++;
+    }
+
+    if ($pack{'write'}) {
+        $dir = install_rooted_dir(dirname($pack{'write'}));
+        _mkpath( $dir, 0, 0755, $verbose, $dry_run );
+        print "Writing $pack{'write'}\n" if $verbose;
+        $packlist->write(install_rooted_file($pack{'write'})) unless $dry_run;
+    }
+
+    _do_cleanup($verbose);
+    return $result;
+}
+
+=begin _private
+
+=item _do_cleanup
+
+Standardize finish event for after another instruction has occurred.
+Handles converting $MUST_REBOOT to a die for instance.
+
+=end _private
+
+=cut
+
+sub _do_cleanup {
+    my ($verbose) = @_;
+    if ($MUST_REBOOT) {
+        die _estr "Operation not completed! ",
+            "You must reboot to complete the installation.",
+            "Sorry.";
+    } elsif (defined $MUST_REBOOT & $verbose) {
+        warn _estr "Installation will be completed at the next reboot.\n",
+             "However it is not necessary to reboot immediately.\n";
+    }
+}
+
+=begin _undocumented
+
+=item install_rooted_file( $file )
+
+Returns $file, or catfile($INSTALL_ROOT,$file) if $INSTALL_ROOT
+is defined.
+
+=item install_rooted_dir( $dir )
+
+Returns $dir, or catdir($INSTALL_ROOT,$dir) if $INSTALL_ROOT
+is defined.
+
+=end _undocumented
+
+=cut
+
+
+sub install_rooted_file {
+    if (defined $INSTALL_ROOT) {
+        File::Spec->catfile($INSTALL_ROOT, $_[0]);
+    } else {
+        $_[0];
+    }
+}
+
+
+sub install_rooted_dir {
+    if (defined $INSTALL_ROOT) {
+        File::Spec->catdir($INSTALL_ROOT, $_[0]);
+    } else {
+        $_[0];
+    }
+}
+
+=begin _undocumented
+
+=item forceunlink( $file, $tryhard )
+
+Tries to delete a file. If $tryhard is true then we will use whatever
+devious tricks we can to delete the file. Currently this only applies to
+Win32 in that it will try to use Win32API::File to schedule a delete at
+reboot. A wrapper for _unlink_or_rename().
+
+=end _undocumented
+
+=cut
+
+
+sub forceunlink {
+    my ( $file, $tryhard )= @_; #XXX OS-SPECIFIC
+    _unlink_or_rename( $file, $tryhard, not("installing") );
+}
+
+=begin _undocumented
+
+=item directory_not_empty( $dir )
+
+Returns 1 if there is an .exists file somewhere in a directory tree.
+Returns 0 if there is not.
+
+=end _undocumented
+
+=cut
+
+sub directory_not_empty ($) {
+  my($dir) = @_;
+  my $files = 0;
+  find(sub {
+           return if $_ eq ".exists";
+           if (-f) {
+             $File::Find::prune++;
+             $files = 1;
+           }
+       }, $dir);
+  return $files;
+}
+
+=pod
+
+=item B<install_default> I<DISCOURAGED>
+
+    install_default();
+    install_default($fullext);
+
+Calls install() with arguments to copy a module from blib/ to the
+default site installation location.
+
+$fullext is the name of the module converted to a directory
+(ie. Foo::Bar would be Foo/Bar).  If $fullext is not specified, it
+will attempt to read it from @ARGV.
+
+This is primarily useful for install scripts.
+
+B<NOTE> This function is not really useful because of the hard-coded
+install location with no way to control site vs core vs vendor
+directories and the strange way in which the module name is given.
+Consider its use discouraged.
+
+=cut
+
+sub install_default {
+  @_ < 2 or Carp::croak("install_default should be called with 0 or 1 argument");
+  my $FULLEXT = @_ ? shift : $ARGV[0];
+  defined $FULLEXT or die "Do not know to where to write install log";
+  my $INST_LIB = File::Spec->catdir($Curdir,"blib","lib");
+  my $INST_ARCHLIB = File::Spec->catdir($Curdir,"blib","arch");
+  my $INST_BIN = File::Spec->catdir($Curdir,'blib','bin');
+  my $INST_SCRIPT = File::Spec->catdir($Curdir,'blib','script');
+  my $INST_MAN1DIR = File::Spec->catdir($Curdir,'blib','man1');
+  my $INST_MAN3DIR = File::Spec->catdir($Curdir,'blib','man3');
+
+  my @INST_HTML;
+  if($Config{installhtmldir}) {
+      my $INST_HTMLDIR = File::Spec->catdir($Curdir,'blib','html');
+      @INST_HTML = ($INST_HTMLDIR => $Config{installhtmldir});
+  }
+
+  install({
+           read => "$Config{sitearchexp}/auto/$FULLEXT/.packlist",
+           write => "$Config{installsitearch}/auto/$FULLEXT/.packlist",
+           $INST_LIB => (directory_not_empty($INST_ARCHLIB)) ?
+                         $Config{installsitearch} :
+                         $Config{installsitelib},
+           $INST_ARCHLIB => $Config{installsitearch},
+           $INST_BIN => $Config{installbin} ,
+           $INST_SCRIPT => $Config{installscript},
+           $INST_MAN1DIR => $Config{installman1dir},
+           $INST_MAN3DIR => $Config{installman3dir},
+       @INST_HTML,
+          },1,0,0);
+}
+
+
+=item B<uninstall>
+
+    uninstall($packlist_file);
+    uninstall($packlist_file, $verbose, $dont_execute);
+
+Removes the files listed in a $packlist_file.
+
+If $verbose is true, will print out each file removed.  Default is
+false.
+
+If $dont_execute is true it will only print what it was going to do
+without actually doing it.  Default is false.
+
+=cut
+
+sub uninstall {
+    my($fil,$verbose,$dry_run) = @_;
+    $verbose ||= 0;
+    $dry_run  ||= 0;
+
+    die _estr "ERROR: no packlist file found: '$fil'"
+        unless -f $fil;
+    # my $my_req = $self->catfile(qw(auto ExtUtils Install forceunlink.al));
+    # require $my_req; # Hairy, but for the first
+    my ($packlist) = ExtUtils::Packlist->new($fil);
+    foreach (sort(keys(%$packlist))) {
+        chomp;
+        print "unlink $_\n" if $verbose;
+        forceunlink($_,'tryhard') unless $dry_run;
+    }
+    print "unlink $fil\n" if $verbose;
+    forceunlink($fil, 'tryhard') unless $dry_run;
+    _do_cleanup($verbose);
+}
+
+=begin _undocumented
+
+=item inc_uninstall($filepath,$libdir,$verbose,$dry_run,$ignore,$results)
+
+Remove shadowed files. If $ignore is true then it is assumed to hold
+a filename to ignore. This is used to prevent spurious warnings from
+occurring when doing an install at reboot.
+
+We now only die when failing to remove a file that has precedence over
+our own, when our install has precedence we only warn.
+
+$results is assumed to contain a hashref which will have the keys
+'uninstall' and 'uninstall_fail' populated with  keys for the files
+removed and values of the source files they would shadow.
+
+=end _undocumented
+
+=cut
+
+sub inc_uninstall {
+    my($filepath,$libdir,$verbose,$dry_run,$ignore,$results) = @_;
+    my($dir);
+    $ignore||="";
+    my $file = (File::Spec->splitpath($filepath))[2];
+    my %seen_dir = ();
+
+    my @PERL_ENV_LIB = split $Config{path_sep}, defined $ENV{'PERL5LIB'}
+      ? $ENV{'PERL5LIB'} : $ENV{'PERLLIB'} || '';
+
+    my @dirs=( @PERL_ENV_LIB,
+               @INC,
+               @Config{qw(archlibexp
+                          privlibexp
+                          sitearchexp
+                          sitelibexp)});
+
+    #warn join "\n","---",@dirs,"---";
+    my $seen_ours;
+    foreach $dir ( @dirs ) {
+        my $canonpath = $Is_VMS ? $dir : File::Spec->canonpath($dir);
+        next if $canonpath eq $Curdir;
+        next if $seen_dir{$canonpath}++;
+        my $targetfile = File::Spec->catfile($canonpath,$libdir,$file);
+        next unless -f $targetfile;
+
+        # The reason why we compare file's contents is, that we cannot
+        # know, which is the file we just installed (AFS). So we leave
+        # an identical file in place
+        my $diff = 0;
+        if ( -f $targetfile && -s _ == -s $filepath) {
+            # We have a good chance, we can skip this one
+            $diff = compare($filepath,$targetfile);
+        } else {
+            $diff++;
+        }
+        print "#$file and $targetfile differ\n" if $diff && $verbose > 1;
+
+        if (!$diff or $targetfile eq $ignore) {
+            $seen_ours = 1;
+            next;
+        }
+        if ($dry_run) {
+            $results->{uninstall}{$targetfile} = $filepath;
+            if ($verbose) {
+                $Inc_uninstall_warn_handler ||= ExtUtils::Install::Warn->new();
+                $libdir =~ s|^\./||s ; # That's just cosmetics, no need to port. It looks prettier.
+                $Inc_uninstall_warn_handler->add(
+                                     File::Spec->catfile($libdir, $file),
+                                     $targetfile
+                                    );
+            }
+            # if not verbose, we just say nothing
+        } else {
+            print "Unlinking $targetfile (shadowing?)\n" if $verbose;
+            eval {
+                die "Fake die for testing"
+                    if $ExtUtils::Install::Testing and
+                       ucase(File::Spec->canonpath($ExtUtils::Install::Testing)) eq ucase($targetfile);
+                forceunlink($targetfile,'tryhard');
+                $results->{uninstall}{$targetfile} = $filepath;
+                1;
+            } or do {
+                $results->{fail_uninstall}{$targetfile} = $filepath;
+                if ($seen_ours) {
+                    warn "Failed to remove probably harmless shadow file '$targetfile'\n";
+                } else {
+                    die "$@\n";
+                }
+            };
+        }
+    }
+}
+
+=begin _undocumented
+
+=item run_filter($cmd,$src,$dest)
+
+Filter $src using $cmd into $dest.
+
+=end _undocumented
+
+=cut
+
+sub run_filter {
+    my ($cmd, $src, $dest) = @_;
+    local(*CMD, *SRC);
+    open(CMD, "|$cmd >$dest") || die "Cannot fork: $!";
+    open(SRC, $src)           || die "Cannot open $src: $!";
+    my $buf;
+    my $sz = 1024;
+    while (my $len = sysread(SRC, $buf, $sz)) {
+        syswrite(CMD, $buf, $len);
+    }
+    close SRC;
+    close CMD or die "Filter command '$cmd' failed for $src";
+}
+
+=pod
+
+=item B<pm_to_blib>
+
+    pm_to_blib(\%from_to, $autosplit_dir);
+    pm_to_blib(\%from_to, $autosplit_dir, $filter_cmd);
+
+Copies each key of %from_to to its corresponding value efficiently.
+Filenames with the extension .pm are autosplit into the $autosplit_dir.
+Any destination directories are created.
+
+$filter_cmd is an optional shell command to run each .pm file through
+prior to splitting and copying.  Input is the contents of the module,
+output the new module contents.
+
+You can have an environment variable PERL_INSTALL_ROOT set which will
+be prepended as a directory to each installed file (and directory).
+
+By default verbose output is generated, setting the PERL_INSTALL_QUIET
+environment variable will silence this output.
+
+=cut
+
+sub pm_to_blib {
+    my($fromto,$autodir,$pm_filter) = @_;
+
+    _mkpath($autodir,0,0755);
+    while(my($from, $to) = each %$fromto) {
+        if( -f $to && -s $from == -s $to && -M $to < -M $from ) {
+            print "Skip $to (unchanged)\n" unless $INSTALL_QUIET;
+            next;
+        }
+
+        # When a pm_filter is defined, we need to pre-process the source first
+        # to determine whether it has changed or not.  Therefore, only perform
+        # the comparison check when there's no filter to be ran.
+        #    -- RAM, 03/01/2001
+
+        my $need_filtering = defined $pm_filter && length $pm_filter &&
+                             $from =~ /\.pm$/;
+
+        if (!$need_filtering && 0 == compare($from,$to)) {
+            print "Skip $to (unchanged)\n" unless $INSTALL_QUIET;
+            next;
+        }
+        if (-f $to){
+            # we wont try hard here. its too likely to mess things up.
+            forceunlink($to);
+        } else {
+            _mkpath(dirname($to),0,0755);
+        }
+        if ($need_filtering) {
+            run_filter($pm_filter, $from, $to);
+            print "$pm_filter <$from >$to\n";
+        } else {
+            _copy( $from, $to );
+            print "cp $from $to\n" unless $INSTALL_QUIET;
+        }
+        my($mode,$atime,$mtime) = (stat $from)[2,8,9];
+        utime($atime,$mtime+$Is_VMS,$to);
+        _chmod(0444 | ( $mode & 0111 ? 0111 : 0 ),$to);
+        next unless $from =~ /\.pm$/;
+        _autosplit($to,$autodir);
+    }
+}
+
+
+=begin _private
+
+=item _autosplit
+
+From 1.0307 back, AutoSplit will sometimes leave an open filehandle to
+the file being split.  This causes problems on systems with mandatory
+locking (ie. Windows).  So we wrap it and close the filehandle.
+
+=end _private
+
+=cut
+
+sub _autosplit { #XXX OS-SPECIFIC
+    my $retval = autosplit(@_);
+    close *AutoSplit::IN if defined *AutoSplit::IN{IO};
+
+    return $retval;
+}
+
+
+package ExtUtils::Install::Warn;
+
+sub new { bless {}, shift }
+
+sub add {
+    my($self,$file,$targetfile) = @_;
+    push @{$self->{$file}}, $targetfile;
+}
+
+sub DESTROY {
+    unless(defined $INSTALL_ROOT) {
+        my $self = shift;
+        my($file,$i,$plural);
+        foreach $file (sort keys %$self) {
+            $plural = @{$self->{$file}} > 1 ? "s" : "";
+            print "## Differing version$plural of $file found. You might like to\n";
+            for (0..$#{$self->{$file}}) {
+                print "rm ", $self->{$file}[$_], "\n";
+                $i++;
+            }
+        }
+        $plural = $i>1 ? "all those files" : "this file";
+        my $inst = (_invokant() eq 'ExtUtils::MakeMaker')
+                 ? ( $Config::Config{make} || 'make' ).' install'
+                     . ( $Is_VMS ? '/MACRO="UNINST"=1' : ' UNINST=1' )
+                 : './Build install uninst=1';
+        print "## Running '$inst' will unlink $plural for you.\n";
+    }
+}
+
+=begin _private
+
+=item _invokant
+
+Does a heuristic on the stack to see who called us for more intelligent
+error messages. Currently assumes we will be called only by Module::Build
+or by ExtUtils::MakeMaker.
+
+=end _private
+
+=cut
+
+sub _invokant {
+    my @stack;
+    my $frame = 0;
+    while (my $file = (caller($frame++))[1]) {
+        push @stack, (File::Spec->splitpath($file))[2];
+    }
+
+    my $builder;
+    my $top = pop @stack;
+    if ($top =~ /^Build/i || exists($INC{'Module/Build.pm'})) {
+        $builder = 'Module::Build';
+    } else {
+        $builder = 'ExtUtils::MakeMaker';
+    }
+    return $builder;
+}
+
+=pod
+
+=back
+
+=head1 ENVIRONMENT
+
+=over 4
+
+=item B<PERL_INSTALL_ROOT>
+
+Will be prepended to each install path.
+
+=item B<EU_INSTALL_IGNORE_SKIP>
+
+Will prevent the automatic use of INSTALL.SKIP as the install skip file.
+
+=item B<EU_INSTALL_SITE_SKIPFILE>
+
+If there is no INSTALL.SKIP file in the make directory then this value
+can be used to provide a default.
+
+=item B<EU_INSTALL_ALWAYS_COPY>
+
+If this environment variable is true then normal install processes will
+always overwrite older identical files during the install process.
+
+Note that the alias EU_ALWAYS_COPY will be supported if EU_INSTALL_ALWAYS_COPY
+is not defined until at least the 1.50 release. Please ensure you use the
+correct EU_INSTALL_ALWAYS_COPY.
+
+=back
+
+=head1 AUTHOR
+
+Original author lost in the mists of time.  Probably the same as Makemaker.
+
+Production release currently maintained by demerphq C<yves at cpan.org>,
+extensive changes by Michael G. Schwern.
+
+Send bug reports via http://rt.cpan.org/.  Please send your
+generated Makefile along with your report.
+
+=head1 LICENSE
+
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+See L<http://www.perl.com/perl/misc/Artistic.html>
+
+
+=cut
+
+1;
diff --git a/lib/5.24.1/ExtUtils/Installed.pm b/lib/5.24.1/ExtUtils/Installed.pm
new file mode 100644
index 00000000..061c3291
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/Installed.pm
@@ -0,0 +1,471 @@
+package ExtUtils::Installed;
+
+use 5.00503;
+use strict;
+#use warnings; # XXX requires 5.6
+use Carp qw();
+use ExtUtils::Packlist;
+use ExtUtils::MakeMaker;
+use Config;
+use File::Find;
+use File::Basename;
+use File::Spec;
+
+my $Is_VMS = $^O eq 'VMS';
+my $DOSISH = ($^O =~ /^(MSWin\d\d|os2|dos|mint)$/);
+
+require VMS::Filespec if $Is_VMS;
+
+use vars qw($VERSION);
+$VERSION = '2.04';
+$VERSION = eval $VERSION;
+
+sub _is_prefix {
+    my ($self, $path, $prefix) = @_;
+    return unless defined $prefix && defined $path;
+
+    if( $Is_VMS ) {
+        $prefix = VMS::Filespec::unixify($prefix);
+        $path   = VMS::Filespec::unixify($path);
+    }
+
+    # Unix path normalization.
+    $prefix = File::Spec->canonpath($prefix);
+
+    return 1 if substr($path, 0, length($prefix)) eq $prefix;
+
+    if ($DOSISH) {
+        $path =~ s|\\|/|g;
+        $prefix =~ s|\\|/|g;
+        return 1 if $path =~ m{^\Q$prefix\E}i;
+    }
+    return(0);
+}
+
+sub _is_doc {
+    my ($self, $path) = @_;
+
+    my $man1dir = $self->{':private:'}{Config}{man1direxp};
+    my $man3dir = $self->{':private:'}{Config}{man3direxp};
+    return(($man1dir && $self->_is_prefix($path, $man1dir))
+           ||
+           ($man3dir && $self->_is_prefix($path, $man3dir))
+           ? 1 : 0)
+}
+
+sub _is_type {
+    my ($self, $path, $type) = @_;
+    return 1 if $type eq "all";
+
+    return($self->_is_doc($path)) if $type eq "doc";
+    my $conf= $self->{':private:'}{Config};
+    if ($type eq "prog") {
+        return($self->_is_prefix($path, $conf->{prefix} || $conf->{prefixexp})
+               && !($self->_is_doc($path)) ? 1 : 0);
+    }
+    return(0);
+}
+
+sub _is_under {
+    my ($self, $path, @under) = @_;
+    $under[0] = "" if (! @under);
+    foreach my $dir (@under) {
+        return(1) if ($self->_is_prefix($path, $dir));
+    }
+
+    return(0);
+}
+
+sub _fix_dirs {
+    my ($self, @dirs)= @_;
+    # File::Find does not know how to deal with VMS filepaths.
+    if( $Is_VMS ) {
+        $_ = VMS::Filespec::unixify($_)
+            for @dirs;
+    }
+
+    if ($DOSISH) {
+        s|\\|/|g for @dirs;
+    }
+    return wantarray ? @dirs : $dirs[0];
+}
+
+sub _make_entry {
+    my ($self, $module, $packlist_file, $modfile)= @_;
+
+    my $data= {
+        module => $module,
+        packlist => scalar(ExtUtils::Packlist->new($packlist_file)),
+        packlist_file => $packlist_file,
+    };
+
+    if (!$modfile) {
+        $data->{version} = $self->{':private:'}{Config}{version};
+    } else {
+        $data->{modfile} = $modfile;
+        # Find the top-level module file in @INC
+        $data->{version} = '';
+        foreach my $dir (@{$self->{':private:'}{INC}}) {
+            my $p = File::Spec->catfile($dir, $modfile);
+            if (-r $p) {
+                $module = _module_name($p, $module) if $Is_VMS;
+
+                $data->{version} = MM->parse_version($p);
+                $data->{version_from} = $p;
+                $data->{packlist_valid} = exists $data->{packlist}{$p};
+                last;
+            }
+        }
+    }
+    $self->{$module}= $data;
+}
+
+our $INSTALLED;
+sub new {
+    my ($class) = shift(@_);
+    $class = ref($class) || $class;
+
+    my %args = @_;
+
+    return $INSTALLED if $INSTALLED and ($args{default_get} || $args{default});
+
+    my $self = bless {}, $class;
+
+    $INSTALLED= $self if $args{default_set} || $args{default};
+
+
+    if ($args{config_override}) {
+        eval {
+            $self->{':private:'}{Config} = { %{$args{config_override}} };
+        } or Carp::croak(
+            "The 'config_override' parameter must be a hash reference."
+        );
+    }
+    else {
+        $self->{':private:'}{Config} = \%Config;
+    }
+
+    for my $tuple ([inc_override => INC => [ @INC ] ],
+                   [ extra_libs => EXTRA => [] ])
+    {
+        my ($arg,$key,$val)=@$tuple;
+        if ( $args{$arg} ) {
+            eval {
+                $self->{':private:'}{$key} = [ @{$args{$arg}} ];
+            } or Carp::croak(
+                "The '$arg' parameter must be an array reference."
+            );
+        }
+        elsif ($val) {
+            $self->{':private:'}{$key} = $val;
+        }
+    }
+    {
+        my %dupe;
+        @{$self->{':private:'}{LIBDIRS}} =
+            grep { $_ ne '.' || ! $args{skip_cwd} }
+            grep { -e $_ && !$dupe{$_}++ }
+            @{$self->{':private:'}{EXTRA}}, @{$self->{':private:'}{INC}};
+    }
+
+    my @dirs= $self->_fix_dirs(@{$self->{':private:'}{LIBDIRS}});
+
+    # Read the core packlist
+    my $archlib = $self->_fix_dirs($self->{':private:'}{Config}{archlibexp});
+    $self->_make_entry("Perl",File::Spec->catfile($archlib, '.packlist'));
+
+    my $root;
+    # Read the module packlists
+    my $sub = sub {
+        # Only process module .packlists
+        return if $_ ne ".packlist" || $File::Find::dir eq $archlib;
+
+        # Hack of the leading bits of the paths & convert to a module name
+        my $module = $File::Find::name;
+        my $found = $module =~ s!^.*?/auto/(.*)/.packlist!$1!s
+            or do {
+            # warn "Woah! \$_=$_\n\$module=$module\n\$File::Find::dir=$File::Find::dir\n",
+            #    join ("\n",@dirs);
+            return;
+        };
+
+        my $modfile = "$module.pm";
+        $module =~ s!/!::!g;
+
+        return if $self->{$module}; #shadowing?
+        $self->_make_entry($module,$File::Find::name,$modfile);
+    };
+    while (@dirs) {
+        $root= shift @dirs;
+        next if !-d $root;
+        find($sub,$root);
+    }
+
+    return $self;
+}
+
+# VMS's non-case preserving file-system means the package name can't
+# be reconstructed from the filename.
+sub _module_name {
+    my($file, $orig_module) = @_;
+
+    my $module = '';
+    if (open PACKFH, $file) {
+        while (<PACKFH>) {
+            if (/package\s+(\S+)\s*;/) {
+                my $pack = $1;
+                # Make a sanity check, that lower case $module
+                # is identical to lowercase $pack before
+                # accepting it
+                if (lc($pack) eq lc($orig_module)) {
+                    $module = $pack;
+                    last;
+                }
+            }
+        }
+        close PACKFH;
+    }
+
+    print STDERR "Couldn't figure out the package name for $file\n"
+      unless $module;
+
+    return $module;
+}
+
+sub modules {
+    my ($self) = @_;
+    $self= $self->new(default=>1) if !ref $self;
+
+    # Bug/feature of sort in scalar context requires this.
+    return wantarray
+        ? sort grep { not /^:private:$/ } keys %$self
+        : grep { not /^:private:$/ } keys %$self;
+}
+
+sub files {
+    my ($self, $module, $type, @under) = @_;
+    $self= $self->new(default=>1) if !ref $self;
+
+    # Validate arguments
+    Carp::croak("$module is not installed") if (! exists($self->{$module}));
+    $type = "all" if (! defined($type));
+    Carp::croak('type must be "all", "prog" or "doc"')
+        if ($type ne "all" && $type ne "prog" && $type ne "doc");
+
+    my (@files);
+    foreach my $file (keys(%{$self->{$module}{packlist}})) {
+        push(@files, $file)
+          if ($self->_is_type($file, $type) &&
+              $self->_is_under($file, @under));
+    }
+    return(@files);
+}
+
+sub directories {
+    my ($self, $module, $type, @under) = @_;
+    $self= $self->new(default=>1) if !ref $self;
+    my (%dirs);
+    foreach my $file ($self->files($module, $type, @under)) {
+        $dirs{dirname($file)}++;
+    }
+    return sort keys %dirs;
+}
+
+sub directory_tree {
+    my ($self, $module, $type, @under) = @_;
+    $self= $self->new(default=>1) if !ref $self;
+    my (%dirs);
+    foreach my $dir ($self->directories($module, $type, @under)) {
+        $dirs{$dir}++;
+        my ($last) = ("");
+        while ($last ne $dir) {
+            $last = $dir;
+            $dir = dirname($dir);
+            last if !$self->_is_under($dir, @under);
+            $dirs{$dir}++;
+        }
+    }
+    return(sort(keys(%dirs)));
+}
+
+sub validate {
+    my ($self, $module, $remove) = @_;
+    $self= $self->new(default=>1) if !ref $self;
+    Carp::croak("$module is not installed") if (! exists($self->{$module}));
+    return($self->{$module}{packlist}->validate($remove));
+}
+
+sub packlist {
+    my ($self, $module) = @_;
+    $self= $self->new(default=>1) if !ref $self;
+    Carp::croak("$module is not installed") if (! exists($self->{$module}));
+    return($self->{$module}{packlist});
+}
+
+sub version {
+    my ($self, $module) = @_;
+    $self= $self->new(default=>1) if !ref $self;
+    Carp::croak("$module is not installed") if (! exists($self->{$module}));
+    return($self->{$module}{version});
+}
+
+sub debug_dump {
+    my ($self, $module) = @_;
+    $self= $self->new(default=>1) if !ref $self;
+    local $self->{":private:"}{Config};
+    require Data::Dumper;
+    print Data::Dumper->new([$self])->Sortkeys(1)->Indent(1)->Dump();
+}
+
+
+1;
+
+__END__
+
+=head1 NAME
+
+ExtUtils::Installed - Inventory management of installed modules
+
+=head1 SYNOPSIS
+
+   use ExtUtils::Installed;
+   my ($inst) = ExtUtils::Installed->new( skip_cwd => 1 );
+   my (@modules) = $inst->modules();
+   my (@missing) = $inst->validate("DBI");
+   my $all_files = $inst->files("DBI");
+   my $files_below_usr_local = $inst->files("DBI", "all", "/usr/local");
+   my $all_dirs = $inst->directories("DBI");
+   my $dirs_below_usr_local = $inst->directory_tree("DBI", "prog");
+   my $packlist = $inst->packlist("DBI");
+
+=head1 DESCRIPTION
+
+ExtUtils::Installed  provides a standard way to find out what core and module
+files have been installed.  It uses the information stored in .packlist files
+created during installation to provide this information.  In addition it
+provides facilities to classify the installed files and to extract directory
+information from the .packlist files.
+
+=head1 USAGE
+
+The new() function searches for all the installed .packlists on the system, and
+stores their contents. The .packlists can be queried with the functions
+described below. Where it searches by default is determined by the settings found
+in C<%Config::Config>, and what the value is of the PERL5LIB environment variable.
+
+=head1 METHODS
+
+Unless specified otherwise all method can be called as class methods, or as object
+methods. If called as class methods then the "default" object will be used, and if
+necessary created using the current processes %Config and @INC.  See the
+'default' option to new() for details.
+
+
+=over 4
+
+=item new()
+
+This takes optional named parameters. Without parameters, this
+searches for all the installed .packlists on the system using
+information from C<%Config::Config> and the default module search
+paths C<@INC>. The packlists are read using the
+L<ExtUtils::Packlist> module.
+
+If the named parameter C<skip_cwd> is true, the current directory C<.> will
+be stripped from C<@INC> before searching for .packlists.  This keeps
+ExtUtils::Installed from finding modules installed in other perls that
+happen to be located below the current directory.
+
+If the named parameter C<config_override> is specified,
+it should be a reference to a hash which contains all information
+usually found in C<%Config::Config>. For example, you can obtain
+the configuration information for a separate perl installation and
+pass that in.
+
+    my $yoda_cfg  = get_fake_config('yoda');
+    my $yoda_inst =
+               ExtUtils::Installed->new(config_override=>$yoda_cfg);
+
+Similarly, the parameter C<inc_override> may be a reference to an
+array which is used in place of the default module search paths
+from C<@INC>.
+
+    use Config;
+    my @dirs = split(/\Q$Config{path_sep}\E/, $ENV{PERL5LIB});
+    my $p5libs = ExtUtils::Installed->new(inc_override=>\@dirs);
+
+B<Note>: You probably do not want to use these options alone, almost always
+you will want to set both together.
+
+The parameter C<extra_libs> can be used to specify B<additional> paths to
+search for installed modules. For instance
+
+    my $installed =
+             ExtUtils::Installed->new(extra_libs=>["/my/lib/path"]);
+
+This should only be necessary if F</my/lib/path> is not in PERL5LIB.
+
+Finally there is the 'default', and the related 'default_get' and 'default_set'
+options. These options control the "default" object which is provided by the
+class interface to the methods. Setting C<default_get> to true tells the constructor
+to return the default object if it is defined. Setting C<default_set> to true tells
+the constructor to make the default object the constructed object. Setting the
+C<default> option is like setting both to true. This is used primarily internally
+and probably isn't interesting to any real user.
+
+=item modules()
+
+This returns a list of the names of all the installed modules.  The perl 'core'
+is given the special name 'Perl'.
+
+=item files()
+
+This takes one mandatory parameter, the name of a module.  It returns a list of
+all the filenames from the package.  To obtain a list of core perl files, use
+the module name 'Perl'.  Additional parameters are allowed.  The first is one
+of the strings "prog", "doc" or "all", to select either just program files,
+just manual files or all files.  The remaining parameters are a list of
+directories. The filenames returned will be restricted to those under the
+specified directories.
+
+=item directories()
+
+This takes one mandatory parameter, the name of a module.  It returns a list of
+all the directories from the package.  Additional parameters are allowed.  The
+first is one of the strings "prog", "doc" or "all", to select either just
+program directories, just manual directories or all directories.  The remaining
+parameters are a list of directories. The directories returned will be
+restricted to those under the specified directories.  This method returns only
+the leaf directories that contain files from the specified module.
+
+=item directory_tree()
+
+This is identical in operation to directories(), except that it includes all the
+intermediate directories back up to the specified directories.
+
+=item validate()
+
+This takes one mandatory parameter, the name of a module.  It checks that all
+the files listed in the modules .packlist actually exist, and returns a list of
+any missing files.  If an optional second argument which evaluates to true is
+given any missing files will be removed from the .packlist
+
+=item packlist()
+
+This returns the ExtUtils::Packlist object for the specified module.
+
+=item version()
+
+This returns the version number for the specified module.
+
+=back
+
+=head1 EXAMPLE
+
+See the example in L<ExtUtils::Packlist>.
+
+=head1 AUTHOR
+
+Alan Burlison <Alan.Burlison@uk.sun.com>
+
+=cut
diff --git a/lib/5.24.1/ExtUtils/Liblist.pm b/lib/5.24.1/ExtUtils/Liblist.pm
new file mode 100644
index 00000000..ed38f8fe
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/Liblist.pm
@@ -0,0 +1,286 @@
+package ExtUtils::Liblist;
+
+use strict;
+
+our $VERSION = '7.10_02';
+
+use File::Spec;
+require ExtUtils::Liblist::Kid;
+our @ISA = qw(ExtUtils::Liblist::Kid File::Spec);
+
+# Backwards compatibility with old interface.
+sub ext {
+    goto &ExtUtils::Liblist::Kid::ext;
+}
+
+sub lsdir {
+  shift;
+  my $rex = qr/$_[1]/;
+  opendir DIR, $_[0];
+  my @out = grep /$rex/, readdir DIR;
+  closedir DIR;
+  return @out;
+}
+
+__END__
+
+=head1 NAME
+
+ExtUtils::Liblist - determine libraries to use and how to use them
+
+=head1 SYNOPSIS
+
+  require ExtUtils::Liblist;
+
+  $MM->ext($potential_libs, $verbose, $need_names);
+
+  # Usually you can get away with:
+  ExtUtils::Liblist->ext($potential_libs, $verbose, $need_names)
+
+=head1 DESCRIPTION
+
+This utility takes a list of libraries in the form C<-llib1 -llib2
+-llib3> and returns lines suitable for inclusion in an extension
+Makefile.  Extra library paths may be included with the form
+C<-L/another/path> this will affect the searches for all subsequent
+libraries.
+
+It returns an array of four or five scalar values: EXTRALIBS,
+BSLOADLIBS, LDLOADLIBS, LD_RUN_PATH, and, optionally, a reference to
+the array of the filenames of actual libraries.  Some of these don't
+mean anything unless on Unix.  See the details about those platform
+specifics below.  The list of the filenames is returned only if
+$need_names argument is true.
+
+Dependent libraries can be linked in one of three ways:
+
+=over 2
+
+=item * For static extensions
+
+by the ld command when the perl binary is linked with the extension
+library. See EXTRALIBS below.
+
+=item * For dynamic extensions at build/link time
+
+by the ld command when the shared object is built/linked. See
+LDLOADLIBS below.
+
+=item * For dynamic extensions at load time
+
+by the DynaLoader when the shared object is loaded. See BSLOADLIBS
+below.
+
+=back
+
+=head2 EXTRALIBS
+
+List of libraries that need to be linked with when linking a perl
+binary which includes this extension. Only those libraries that
+actually exist are included.  These are written to a file and used
+when linking perl.
+
+=head2 LDLOADLIBS and LD_RUN_PATH
+
+List of those libraries which can or must be linked into the shared
+library when created using ld. These may be static or dynamic
+libraries.  LD_RUN_PATH is a colon separated list of the directories
+in LDLOADLIBS. It is passed as an environment variable to the process
+that links the shared library.
+
+=head2 BSLOADLIBS
+
+List of those libraries that are needed but can be linked in
+dynamically at run time on this platform.  SunOS/Solaris does not need
+this because ld records the information (from LDLOADLIBS) into the
+object file.  This list is used to create a .bs (bootstrap) file.
+
+=head1 PORTABILITY
+
+This module deals with a lot of system dependencies and has quite a
+few architecture specific C<if>s in the code.
+
+=head2 VMS implementation
+
+The version of ext() which is executed under VMS differs from the
+Unix-OS/2 version in several respects:
+
+=over 2
+
+=item *
+
+Input library and path specifications are accepted with or without the
+C<-l> and C<-L> prefixes used by Unix linkers.  If neither prefix is
+present, a token is considered a directory to search if it is in fact
+a directory, and a library to search for otherwise.  Authors who wish
+their extensions to be portable to Unix or OS/2 should use the Unix
+prefixes, since the Unix-OS/2 version of ext() requires them.
+
+=item *
+
+Wherever possible, shareable images are preferred to object libraries,
+and object libraries to plain object files.  In accordance with VMS
+naming conventions, ext() looks for files named I<lib>shr and I<lib>rtl;
+it also looks for I<lib>lib and libI<lib> to accommodate Unix conventions
+used in some ported software.
+
+=item *
+
+For each library that is found, an appropriate directive for a linker options
+file is generated.  The return values are space-separated strings of
+these directives, rather than elements used on the linker command line.
+
+=item *
+
+LDLOADLIBS contains both the libraries found based on C<$potential_libs> and
+the CRTLs, if any, specified in Config.pm.  EXTRALIBS contains just those
+libraries found based on C<$potential_libs>.  BSLOADLIBS and LD_RUN_PATH
+are always empty.
+
+=back
+
+In addition, an attempt is made to recognize several common Unix library
+names, and filter them out or convert them to their VMS equivalents, as
+appropriate.
+
+In general, the VMS version of ext() should properly handle input from
+extensions originally designed for a Unix or VMS environment.  If you
+encounter problems, or discover cases where the search could be improved,
+please let us know.
+
+=head2 Win32 implementation
+
+The version of ext() which is executed under Win32 differs from the
+Unix-OS/2 version in several respects:
+
+=over 2
+
+=item *
+
+If C<$potential_libs> is empty, the return value will be empty.
+Otherwise, the libraries specified by C<$Config{perllibs}> (see Config.pm)
+will be appended to the list of C<$potential_libs>.  The libraries
+will be searched for in the directories specified in C<$potential_libs>,
+C<$Config{libpth}>, and in C<$Config{installarchlib}/CORE>.
+For each library that is found,  a space-separated list of fully qualified
+library pathnames is generated.
+
+=item *
+
+Input library and path specifications are accepted with or without the
+C<-l> and C<-L> prefixes used by Unix linkers.
+
+An entry of the form C<-La:\foo> specifies the C<a:\foo> directory to look
+for the libraries that follow.
+
+An entry of the form C<-lfoo> specifies the library C<foo>, which may be
+spelled differently depending on what kind of compiler you are using.  If
+you are using GCC, it gets translated to C<libfoo.a>, but for other win32
+compilers, it becomes C<foo.lib>.  If no files are found by those translated
+names, one more attempt is made to find them using either C<foo.a> or
+C<libfoo.lib>, depending on whether GCC or some other win32 compiler is
+being used, respectively.
+
+If neither the C<-L> or C<-l> prefix is present in an entry, the entry is
+considered a directory to search if it is in fact a directory, and a
+library to search for otherwise.  The C<$Config{lib_ext}> suffix will
+be appended to any entries that are not directories and don't already have
+the suffix.
+
+Note that the C<-L> and C<-l> prefixes are B<not required>, but authors
+who wish their extensions to be portable to Unix or OS/2 should use the
+prefixes, since the Unix-OS/2 version of ext() requires them.
+
+=item *
+
+Entries cannot be plain object files, as many Win32 compilers will
+not handle object files in the place of libraries.
+
+=item *
+
+Entries in C<$potential_libs> beginning with a colon and followed by
+alphanumeric characters are treated as flags.  Unknown flags will be ignored.
+
+An entry that matches C</:nodefault/i> disables the appending of default
+libraries found in C<$Config{perllibs}> (this should be only needed very rarely).
+
+An entry that matches C</:nosearch/i> disables all searching for
+the libraries specified after it.  Translation of C<-Lfoo> and
+C<-lfoo> still happens as appropriate (depending on compiler being used,
+as reflected by C<$Config{cc}>), but the entries are not verified to be
+valid files or directories.
+
+An entry that matches C</:search/i> reenables searching for
+the libraries specified after it.  You can put it at the end to
+enable searching for default libraries specified by C<$Config{perllibs}>.
+
+=item *
+
+The libraries specified may be a mixture of static libraries and
+import libraries (to link with DLLs).  Since both kinds are used
+pretty transparently on the Win32 platform, we do not attempt to
+distinguish between them.
+
+=item *
+
+LDLOADLIBS and EXTRALIBS are always identical under Win32, and BSLOADLIBS
+and LD_RUN_PATH are always empty (this may change in future).
+
+=item *
+
+You must make sure that any paths and path components are properly
+surrounded with double-quotes if they contain spaces. For example,
+C<$potential_libs> could be (literally):
+
+	"-Lc:\Program Files\vc\lib" msvcrt.lib "la test\foo bar.lib"
+
+Note how the first and last entries are protected by quotes in order
+to protect the spaces.
+
+=item *
+
+Since this module is most often used only indirectly from extension
+C<Makefile.PL> files, here is an example C<Makefile.PL> entry to add
+a library to the build process for an extension:
+
+        LIBS => ['-lgl']
+
+When using GCC, that entry specifies that MakeMaker should first look
+for C<libgl.a> (followed by C<gl.a>) in all the locations specified by
+C<$Config{libpth}>.
+
+When using a compiler other than GCC, the above entry will search for
+C<gl.lib> (followed by C<libgl.lib>).
+
+If the library happens to be in a location not in C<$Config{libpth}>,
+you need:
+
+        LIBS => ['-Lc:\gllibs -lgl']
+
+Here is a less often used example:
+
+        LIBS => ['-lgl', ':nosearch -Ld:\mesalibs -lmesa -luser32']
+
+This specifies a search for library C<gl> as before.  If that search
+fails to find the library, it looks at the next item in the list. The
+C<:nosearch> flag will prevent searching for the libraries that follow,
+so it simply returns the value as C<-Ld:\mesalibs -lmesa -luser32>,
+since GCC can use that value as is with its linker.
+
+When using the Visual C compiler, the second item is returned as
+C<-libpath:d:\mesalibs mesa.lib user32.lib>.
+
+When using the Borland compiler, the second item is returned as
+C<-Ld:\mesalibs mesa.lib user32.lib>, and MakeMaker takes care of
+moving the C<-Ld:\mesalibs> to the correct place in the linker
+command line.
+
+=back
+
+
+=head1 SEE ALSO
+
+L<ExtUtils::MakeMaker>
+
+=cut
+
diff --git a/lib/5.24.1/ExtUtils/Liblist/Kid.pm b/lib/5.24.1/ExtUtils/Liblist/Kid.pm
new file mode 100644
index 00000000..93183a37
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/Liblist/Kid.pm
@@ -0,0 +1,644 @@
+package ExtUtils::Liblist::Kid;
+
+# XXX Splitting this out into its own .pm is a temporary solution.
+
+# This kid package is to be used by MakeMaker.  It will not work if
+# $self is not a Makemaker.
+
+use 5.006;
+
+# Broken out of MakeMaker from version 4.11
+
+use strict;
+use warnings;
+our $VERSION = '7.10_02';
+
+use ExtUtils::MakeMaker::Config;
+use Cwd 'cwd';
+use File::Basename;
+use File::Spec;
+
+sub ext {
+    if    ( $^O eq 'VMS' )     { return &_vms_ext; }
+    elsif ( $^O eq 'MSWin32' ) { return &_win32_ext; }
+    else                       { return &_unix_os2_ext; }
+}
+
+sub _unix_os2_ext {
+    my ( $self, $potential_libs, $verbose, $give_libs ) = @_;
+    $verbose ||= 0;
+
+    if ( $^O =~ /os2|android/ and $Config{perllibs} ) {
+
+        # Dynamic libraries are not transitive, so we may need including
+        # the libraries linked against perl.dll/libperl.so again.
+
+        $potential_libs .= " " if $potential_libs;
+        $potential_libs .= $Config{perllibs};
+    }
+    return ( "", "", "", "", ( $give_libs ? [] : () ) ) unless $potential_libs;
+    warn "Potential libraries are '$potential_libs':\n" if $verbose;
+
+    my ( $so ) = $Config{so};
+    my ( $libs ) = defined $Config{perllibs} ? $Config{perllibs} : $Config{libs};
+    my $Config_libext = $Config{lib_ext} || ".a";
+    my $Config_dlext = $Config{dlext};
+
+    # compute $extralibs, $bsloadlibs and $ldloadlibs from
+    # $potential_libs
+    # this is a rewrite of Andy Dougherty's extliblist in perl
+
+    my ( @searchpath );    # from "-L/path" entries in $potential_libs
+    my ( @libpath ) = split " ", $Config{'libpth'} || '';
+    my ( @ldloadlibs, @bsloadlibs, @extralibs, @ld_run_path, %ld_run_path_seen );
+    my ( @libs,       %libs_seen );
+    my ( $fullname,   @fullname );
+    my ( $pwd )   = cwd();    # from Cwd.pm
+    my ( $found ) = 0;
+
+    foreach my $thislib ( split ' ', $potential_libs ) {
+        my ( $custom_name ) = '';
+
+        # Handle possible linker path arguments.
+        if ( $thislib =~ s/^(-[LR]|-Wl,-R|-Wl,-rpath,)// ) {    # save path flag type
+            my ( $ptype ) = $1;
+            unless ( -d $thislib ) {
+                warn "$ptype$thislib ignored, directory does not exist\n"
+                  if $verbose;
+                next;
+            }
+            my ( $rtype ) = $ptype;
+            if ( ( $ptype eq '-R' ) or ( $ptype =~ m!^-Wl,-[Rr]! ) ) {
+                if ( $Config{'lddlflags'} =~ /-Wl,-[Rr]/ ) {
+                    $rtype = '-Wl,-R';
+                }
+                elsif ( $Config{'lddlflags'} =~ /-R/ ) {
+                    $rtype = '-R';
+                }
+            }
+            unless ( File::Spec->file_name_is_absolute( $thislib ) ) {
+                warn "Warning: $ptype$thislib changed to $ptype$pwd/$thislib\n";
+                $thislib = $self->catdir( $pwd, $thislib );
+            }
+            push( @searchpath, $thislib );
+            push( @extralibs,  "$ptype$thislib" );
+            push( @ldloadlibs, "$rtype$thislib" );
+            next;
+        }
+
+        if ( $thislib =~ m!^-Wl,! ) {
+            push( @extralibs,  $thislib );
+            push( @ldloadlibs, $thislib );
+            next;
+        }
+
+        # Handle possible library arguments.
+        if ( $thislib =~ s/^-l(:)?// ) {
+            # Handle -l:foo.so, which means that the library will
+            # actually be called foo.so, not libfoo.so.  This
+            # is used in Android by ExtUtils::Depends to allow one XS
+            # module to link to another.
+            $custom_name = $1 || '';
+        }
+        else {
+            warn "Unrecognized argument in LIBS ignored: '$thislib'\n";
+            next;
+        }
+
+        my ( $found_lib ) = 0;
+        foreach my $thispth ( @searchpath, @libpath ) {
+
+            # Try to find the full name of the library.  We need this to
+            # determine whether it's a dynamically-loadable library or not.
+            # This tends to be subject to various os-specific quirks.
+            # For gcc-2.6.2 on linux (March 1995), DLD can not load
+            # .sa libraries, with the exception of libm.sa, so we
+            # deliberately skip them.
+            if ((@fullname =
+                 $self->lsdir($thispth, "^\Qlib$thislib.$so.\E[0-9]+")) ||
+                (@fullname =
+                 $self->lsdir($thispth, "^\Qlib$thislib.\E[0-9]+\Q\.$so"))) {
+                # Take care that libfoo.so.10 wins against libfoo.so.9.
+                # Compare two libraries to find the most recent version
+                # number.  E.g.  if you have libfoo.so.9.0.7 and
+                # libfoo.so.10.1, first convert all digits into two
+                # decimal places.  Then we'll add ".00" to the shorter
+                # strings so that we're comparing strings of equal length
+                # Thus we'll compare libfoo.so.09.07.00 with
+                # libfoo.so.10.01.00.  Some libraries might have letters
+                # in the version.  We don't know what they mean, but will
+                # try to skip them gracefully -- we'll set any letter to
+                # '0'.  Finally, sort in reverse so we can take the
+                # first element.
+
+                #TODO: iterate through the directory instead of sorting
+
+                $fullname = "$thispth/" . (
+                    sort {
+                        my ( $ma ) = $a;
+                        my ( $mb ) = $b;
+                        $ma =~ tr/A-Za-z/0/s;
+                        $ma =~ s/\b(\d)\b/0$1/g;
+                        $mb =~ tr/A-Za-z/0/s;
+                        $mb =~ s/\b(\d)\b/0$1/g;
+                        while ( length( $ma ) < length( $mb ) ) { $ma .= ".00"; }
+                        while ( length( $mb ) < length( $ma ) ) { $mb .= ".00"; }
+
+                        # Comparison deliberately backwards
+                        $mb cmp $ma;
+                      } @fullname
+                )[0];
+            }
+            elsif ( -f ( $fullname = "$thispth/lib$thislib.$so" )
+                && ( ( $Config{'dlsrc'} ne "dl_dld.xs" ) || ( $thislib eq "m" ) ) )
+            {
+            }
+            elsif (-f ( $fullname = "$thispth/lib${thislib}_s$Config_libext" )
+                && ( $Config{'archname'} !~ /RM\d\d\d-svr4/ )
+                && ( $thislib .= "_s" ) )
+            {    # we must explicitly use _s version
+            }
+            elsif ( -f ( $fullname = "$thispth/lib$thislib$Config_libext" ) ) {
+            }
+            elsif ( defined( $Config_dlext )
+                && -f ( $fullname = "$thispth/lib$thislib.$Config_dlext" ) )
+            {
+            }
+            elsif ( -f ( $fullname = "$thispth/$thislib$Config_libext" ) ) {
+            }
+            elsif ( -f ( $fullname = "$thispth/lib$thislib.dll$Config_libext" ) ) {
+            }
+            elsif ( $^O eq 'cygwin' && -f ( $fullname = "$thispth/$thislib.dll" ) ) {
+            }
+            elsif ( -f ( $fullname = "$thispth/Slib$thislib$Config_libext" ) ) {
+            }
+            elsif ($^O eq 'dgux'
+                && -l ( $fullname = "$thispth/lib$thislib$Config_libext" )
+                && readlink( $fullname ) =~ /^elink:/s )
+            {
+
+                # Some of DG's libraries look like misconnected symbolic
+                # links, but development tools can follow them.  (They
+                # look like this:
+                #
+                #    libm.a -> elink:${SDE_PATH:-/usr}/sde/\
+                #    ${TARGET_BINARY_INTERFACE:-m88kdgux}/usr/lib/libm.a
+                #
+                # , the compilation tools expand the environment variables.)
+            }
+            elsif ( $custom_name && -f ( $fullname = "$thispth/$thislib" ) ) {
+            }
+            else {
+                warn "$thislib not found in $thispth\n" if $verbose;
+                next;
+            }
+            warn "'-l$thislib' found at $fullname\n" if $verbose;
+            push @libs, $fullname unless $libs_seen{$fullname}++;
+            $found++;
+            $found_lib++;
+
+            # Now update library lists
+
+            # what do we know about this library...
+            my $is_dyna = ( $fullname !~ /\Q$Config_libext\E\z/ );
+            my $in_perl = ( $libs =~ /\B-l:?\Q${thislib}\E\b/s );
+
+            # include the path to the lib once in the dynamic linker path
+            # but only if it is a dynamic lib and not in Perl itself
+            my ( $fullnamedir ) = dirname( $fullname );
+            push @ld_run_path, $fullnamedir
+              if $is_dyna
+                  && !$in_perl
+                  && !$ld_run_path_seen{$fullnamedir}++;
+
+            # Do not add it into the list if it is already linked in
+            # with the main perl executable.
+            # We have to special-case the NeXT, because math and ndbm
+            # are both in libsys_s
+            unless (
+                $in_perl
+                || ( $Config{'osname'} eq 'next'
+                    && ( $thislib eq 'm' || $thislib eq 'ndbm' ) )
+              )
+            {
+                push( @extralibs, "-l$custom_name$thislib" );
+            }
+
+            # We might be able to load this archive file dynamically
+            if (   ( $Config{'dlsrc'} =~ /dl_next/ && $Config{'osvers'} lt '4_0' )
+                || ( $Config{'dlsrc'} =~ /dl_dld/ ) )
+            {
+
+                # We push -l$thislib instead of $fullname because
+                # it avoids hardwiring a fixed path into the .bs file.
+                # Mkbootstrap will automatically add dl_findfile() to
+                # the .bs file if it sees a name in the -l format.
+                # USE THIS, when dl_findfile() is fixed:
+                # push(@bsloadlibs, "-l$thislib");
+                # OLD USE WAS while checking results against old_extliblist
+                push( @bsloadlibs, "$fullname" );
+            }
+            else {
+                if ( $is_dyna ) {
+
+                    # For SunOS4, do not add in this shared library if
+                    # it is already linked in the main perl executable
+                    push( @ldloadlibs, "-l$custom_name$thislib" )
+                      unless ( $in_perl and $^O eq 'sunos' );
+                }
+                else {
+                    push( @ldloadlibs, "-l$custom_name$thislib" );
+                }
+            }
+            last;    # found one here so don't bother looking further
+        }
+        warn "Warning (mostly harmless): " . "No library found for -l$thislib\n"
+          unless $found_lib > 0;
+    }
+
+    unless ( $found ) {
+        return ( '', '', '', '', ( $give_libs ? \@libs : () ) );
+    }
+    else {
+        return ( "@extralibs", "@bsloadlibs", "@ldloadlibs", join( ":", @ld_run_path ), ( $give_libs ? \@libs : () ) );
+    }
+}
+
+sub _win32_ext {
+
+    require Text::ParseWords;
+
+    my ( $self, $potential_libs, $verbose, $give_libs ) = @_;
+    $verbose ||= 0;
+
+    # If user did not supply a list, we punt.
+    # (caller should probably use the list in $Config{libs})
+    return ( "", "", "", "", ( $give_libs ? [] : () ) ) unless $potential_libs;
+
+    # TODO: make this use MM_Win32.pm's compiler detection
+    my %libs_seen;
+    my @extralibs;
+    my $cc = $Config{cc} || '';
+    my $VC = $cc =~ /\bcl\b/i;
+    my $GC = $cc =~ /\bgcc\b/i;
+
+    my $libext     = _win32_lib_extensions();
+    my @searchpath = ( '' );                                    # from "-L/path" entries in $potential_libs
+    my @libpath    = _win32_default_search_paths( $VC, $GC );
+    my $pwd        = cwd();                                     # from Cwd.pm
+    my $search     = 1;
+
+    # compute @extralibs from $potential_libs
+    my @lib_search_list = _win32_make_lib_search_list( $potential_libs, $verbose );
+    for ( @lib_search_list ) {
+
+        my $thislib = $_;
+
+        # see if entry is a flag
+        if ( /^:\w+$/ ) {
+            $search = 0 if lc eq ':nosearch';
+            $search = 1 if lc eq ':search';
+            _debug( "Ignoring unknown flag '$thislib'\n", $verbose ) if !/^:(no)?(search|default)$/i;
+            next;
+        }
+
+        # if searching is disabled, do compiler-specific translations
+        unless ( $search ) {
+            s/^-l(.+)$/$1.lib/ unless $GC;
+            s/^-L/-libpath:/ if $VC;
+            push( @extralibs, $_ );
+            next;
+        }
+
+        # handle possible linker path arguments
+        if ( s/^-L// and not -d ) {
+            _debug( "$thislib ignored, directory does not exist\n", $verbose );
+            next;
+        }
+        elsif ( -d ) {
+            unless ( File::Spec->file_name_is_absolute( $_ ) ) {
+                warn "Warning: '$thislib' changed to '-L$pwd/$_'\n";
+                $_ = $self->catdir( $pwd, $_ );
+            }
+            push( @searchpath, $_ );
+            next;
+        }
+
+        my @paths = ( @searchpath, @libpath );
+        my ( $fullname, $path ) = _win32_search_file( $thislib, $libext, \@paths, $verbose, $GC );
+
+        if ( !$fullname ) {
+            warn "Warning (mostly harmless): No library found for $thislib\n";
+            next;
+        }
+
+        _debug( "'$thislib' found as '$fullname'\n", $verbose );
+        push( @extralibs, $fullname );
+        $libs_seen{$fullname} = 1 if $path;    # why is this a special case?
+    }
+
+    my @libs = keys %libs_seen;
+
+    return ( '', '', '', '', ( $give_libs ? \@libs : () ) ) unless @extralibs;
+
+    # make sure paths with spaces are properly quoted
+    @extralibs = map { qq["$_"] } @extralibs;
+    @libs      = map { qq["$_"] } @libs;
+
+    my $lib = join( ' ', @extralibs );
+
+    # normalize back to backward slashes (to help braindead tools)
+    # XXX this may break equally braindead GNU tools that don't understand
+    # backslashes, either.  Seems like one can't win here.  Cursed be CP/M.
+    $lib =~ s,/,\\,g;
+
+    _debug( "Result: $lib\n", $verbose );
+    wantarray ? ( $lib, '', $lib, '', ( $give_libs ? \@libs : () ) ) : $lib;
+}
+
+sub _win32_make_lib_search_list {
+    my ( $potential_libs, $verbose ) = @_;
+
+    # If Config.pm defines a set of default libs, we always
+    # tack them on to the user-supplied list, unless the user
+    # specified :nodefault
+    my $libs = $Config{'perllibs'};
+    $potential_libs = join( ' ', $potential_libs, $libs ) if $libs and $potential_libs !~ /:nodefault/i;
+    _debug( "Potential libraries are '$potential_libs':\n", $verbose );
+
+    $potential_libs =~ s,\\,/,g;    # normalize to forward slashes
+
+    my @list = Text::ParseWords::quotewords( '\s+', 0, $potential_libs );
+
+    return @list;
+}
+
+sub _win32_default_search_paths {
+    my ( $VC, $GC ) = @_;
+
+    my $libpth = $Config{'libpth'} || '';
+    $libpth =~ s,\\,/,g;            # normalize to forward slashes
+
+    my @libpath = Text::ParseWords::quotewords( '\s+', 0, $libpth );
+    push @libpath, "$Config{installarchlib}/CORE";    # add "$Config{installarchlib}/CORE" to default search path
+
+    push @libpath, split /;/, $ENV{LIB}          if $VC and $ENV{LIB};
+    push @libpath, split /;/, $ENV{LIBRARY_PATH} if $GC and $ENV{LIBRARY_PATH};
+
+    return @libpath;
+}
+
+sub _win32_search_file {
+    my ( $thislib, $libext, $paths, $verbose, $GC ) = @_;
+
+    my @file_list = _win32_build_file_list( $thislib, $GC, $libext );
+
+    for my $lib_file ( @file_list ) {
+        for my $path ( @{$paths} ) {
+            my $fullname = $lib_file;
+            $fullname = "$path\\$fullname" if $path;
+
+            return ( $fullname, $path ) if -f $fullname;
+
+            _debug( "'$thislib' not found as '$fullname'\n", $verbose );
+        }
+    }
+
+    return;
+}
+
+sub _win32_build_file_list {
+    my ( $lib, $GC, $extensions ) = @_;
+
+    my @pre_fixed = _win32_build_prefixed_list( $lib, $GC );
+    return map _win32_attach_extensions( $_, $extensions ), @pre_fixed;
+}
+
+sub _win32_build_prefixed_list {
+    my ( $lib, $GC ) = @_;
+
+    return $lib if $lib !~ s/^-l//;
+    return $lib if $lib =~ /^lib/ and !$GC;
+
+    ( my $no_prefix = $lib ) =~ s/^lib//i;
+    $lib = "lib$lib" if $no_prefix eq $lib;
+
+    return ( $lib, $no_prefix ) if $GC;
+    return ( $no_prefix, $lib );
+}
+
+sub _win32_attach_extensions {
+    my ( $lib, $extensions ) = @_;
+    return map _win32_try_attach_extension( $lib, $_ ), @{$extensions};
+}
+
+sub _win32_try_attach_extension {
+    my ( $lib, $extension ) = @_;
+
+    return $lib if $lib =~ /\Q$extension\E$/i;
+    return "$lib$extension";
+}
+
+sub _win32_lib_extensions {
+    my @extensions;
+    push @extensions, $Config{'lib_ext'} if $Config{'lib_ext'};
+    push @extensions, '.dll.a' if grep { m!^\.a$! } @extensions;
+    push @extensions, '.lib' unless grep { m!^\.lib$! } @extensions;
+    return \@extensions;
+}
+
+sub _debug {
+    my ( $message, $verbose ) = @_;
+    return if !$verbose;
+    warn $message;
+    return;
+}
+
+sub _vms_ext {
+    my ( $self, $potential_libs, $verbose, $give_libs ) = @_;
+    $verbose ||= 0;
+
+    my ( @crtls, $crtlstr );
+    @crtls = ( ( $Config{'ldflags'} =~ m-/Debug-i ? $Config{'dbgprefix'} : '' ) . 'PerlShr/Share' );
+    push( @crtls, grep { not /\(/ } split /\s+/, $Config{'perllibs'} );
+    push( @crtls, grep { not /\(/ } split /\s+/, $Config{'libc'} );
+
+    # In general, we pass through the basic libraries from %Config unchanged.
+    # The one exception is that if we're building in the Perl source tree, and
+    # a library spec could be resolved via a logical name, we go to some trouble
+    # to insure that the copy in the local tree is used, rather than one to
+    # which a system-wide logical may point.
+    if ( $self->{PERL_SRC} ) {
+        my ( $locspec, $type );
+        foreach my $lib ( @crtls ) {
+            if ( ( $locspec, $type ) = $lib =~ m{^([\w\$-]+)(/\w+)?} and $locspec =~ /perl/i ) {
+                if    ( lc $type eq '/share' )   { $locspec .= $Config{'exe_ext'}; }
+                elsif ( lc $type eq '/library' ) { $locspec .= $Config{'lib_ext'}; }
+                else                             { $locspec .= $Config{'obj_ext'}; }
+                $locspec = $self->catfile( $self->{PERL_SRC}, $locspec );
+                $lib = "$locspec$type" if -e $locspec;
+            }
+        }
+    }
+    $crtlstr = @crtls ? join( ' ', @crtls ) : '';
+
+    unless ( $potential_libs ) {
+        warn "Result:\n\tEXTRALIBS: \n\tLDLOADLIBS: $crtlstr\n" if $verbose;
+        return ( '', '', $crtlstr, '', ( $give_libs ? [] : () ) );
+    }
+
+    my ( %found, @fndlibs, $ldlib );
+    my $cwd = cwd();
+    my ( $so, $lib_ext, $obj_ext ) = @Config{ 'so', 'lib_ext', 'obj_ext' };
+
+    # List of common Unix library names and their VMS equivalents
+    # (VMS equivalent of '' indicates that the library is automatically
+    # searched by the linker, and should be skipped here.)
+    my ( @flibs, %libs_seen );
+    my %libmap = (
+        'm'      => '',
+        'f77'    => '',
+        'F77'    => '',
+        'V77'    => '',
+        'c'      => '',
+        'malloc' => '',
+        'crypt'  => '',
+        'resolv' => '',
+        'c_s'    => '',
+        'socket' => '',
+        'X11'    => 'DECW$XLIBSHR',
+        'Xt'     => 'DECW$XTSHR',
+        'Xm'     => 'DECW$XMLIBSHR',
+        'Xmu'    => 'DECW$XMULIBSHR'
+    );
+
+    warn "Potential libraries are '$potential_libs'\n" if $verbose;
+
+    # First, sort out directories and library names in the input
+    my ( @dirs, @libs );
+    foreach my $lib ( split ' ', $potential_libs ) {
+        push( @dirs, $1 ),   next if $lib =~ /^-L(.*)/;
+        push( @dirs, $lib ), next if $lib =~ /[:>\]]$/;
+        push( @dirs, $lib ), next if -d $lib;
+        push( @libs, $1 ),   next if $lib =~ /^-l(.*)/;
+        push( @libs, $lib );
+    }
+    push( @dirs, split( ' ', $Config{'libpth'} ) );
+
+    # Now make sure we've got VMS-syntax absolute directory specs
+    # (We don't, however, check whether someone's hidden a relative
+    # path in a logical name.)
+    foreach my $dir ( @dirs ) {
+        unless ( -d $dir ) {
+            warn "Skipping nonexistent Directory $dir\n" if $verbose > 1;
+            $dir = '';
+            next;
+        }
+        warn "Resolving directory $dir\n" if $verbose;
+        if ( File::Spec->file_name_is_absolute( $dir ) ) {
+            $dir = VMS::Filespec::vmspath( $dir );
+        }
+        else {
+            $dir = $self->catdir( $cwd, $dir );
+        }
+    }
+    @dirs = grep { length( $_ ) } @dirs;
+    unshift( @dirs, '' );    # Check each $lib without additions first
+
+  LIB: foreach my $lib ( @libs ) {
+        if ( exists $libmap{$lib} ) {
+            next unless length $libmap{$lib};
+            $lib = $libmap{$lib};
+        }
+
+        my ( @variants, $cand );
+        my ( $ctype ) = '';
+
+        # If we don't have a file type, consider it a possibly abbreviated name and
+        # check for common variants.  We try these first to grab libraries before
+        # a like-named executable image (e.g. -lperl resolves to perlshr.exe
+        # before perl.exe).
+        if ( $lib !~ /\.[^:>\]]*$/ ) {
+            push( @variants, "${lib}shr", "${lib}rtl", "${lib}lib" );
+            push( @variants, "lib$lib" ) if $lib !~ /[:>\]]/;
+        }
+        push( @variants, $lib );
+        warn "Looking for $lib\n" if $verbose;
+        foreach my $variant ( @variants ) {
+            my ( $fullname, $name );
+
+            foreach my $dir ( @dirs ) {
+                my ( $type );
+
+                $name = "$dir$variant";
+                warn "\tChecking $name\n" if $verbose > 2;
+                $fullname = VMS::Filespec::rmsexpand( $name );
+                if ( defined $fullname and -f $fullname ) {
+
+                    # It's got its own suffix, so we'll have to figure out the type
+                    if    ( $fullname =~ /(?:$so|exe)$/i )      { $type = 'SHR'; }
+                    elsif ( $fullname =~ /(?:$lib_ext|olb)$/i ) { $type = 'OLB'; }
+                    elsif ( $fullname =~ /(?:$obj_ext|obj)$/i ) {
+                        warn "Warning (mostly harmless): " . "Plain object file $fullname found in library list\n";
+                        $type = 'OBJ';
+                    }
+                    else {
+                        warn "Warning (mostly harmless): " . "Unknown library type for $fullname; assuming shared\n";
+                        $type = 'SHR';
+                    }
+                }
+                elsif (-f ( $fullname = VMS::Filespec::rmsexpand( $name, $so ) )
+                    or -f ( $fullname = VMS::Filespec::rmsexpand( $name, '.exe' ) ) )
+                {
+                    $type = 'SHR';
+                    $name = $fullname unless $fullname =~ /exe;?\d*$/i;
+                }
+                elsif (
+                    not length( $ctype ) and    # If we've got a lib already,
+                                                # don't bother
+                    ( -f ( $fullname = VMS::Filespec::rmsexpand( $name, $lib_ext ) ) or -f ( $fullname = VMS::Filespec::rmsexpand( $name, '.olb' ) ) )
+                  )
+                {
+                    $type = 'OLB';
+                    $name = $fullname unless $fullname =~ /olb;?\d*$/i;
+                }
+                elsif (
+                    not length( $ctype ) and    # If we've got a lib already,
+                                                # don't bother
+                    ( -f ( $fullname = VMS::Filespec::rmsexpand( $name, $obj_ext ) ) or -f ( $fullname = VMS::Filespec::rmsexpand( $name, '.obj' ) ) )
+                  )
+                {
+                    warn "Warning (mostly harmless): " . "Plain object file $fullname found in library list\n";
+                    $type = 'OBJ';
+                    $name = $fullname unless $fullname =~ /obj;?\d*$/i;
+                }
+                if ( defined $type ) {
+                    $ctype = $type;
+                    $cand  = $name;
+                    last if $ctype eq 'SHR';
+                }
+            }
+            if ( $ctype ) {
+
+                push @{ $found{$ctype} }, $cand;
+                warn "\tFound as $cand (really $fullname), type $ctype\n"
+                  if $verbose > 1;
+                push @flibs, $name unless $libs_seen{$fullname}++;
+                next LIB;
+            }
+        }
+        warn "Warning (mostly harmless): " . "No library found for $lib\n";
+    }
+
+    push @fndlibs, @{ $found{OBJ} } if exists $found{OBJ};
+    push @fndlibs, map { "$_/Library" } @{ $found{OLB} } if exists $found{OLB};
+    push @fndlibs, map { "$_/Share" } @{ $found{SHR} }   if exists $found{SHR};
+    my $lib = join( ' ', @fndlibs );
+
+    $ldlib = $crtlstr ? "$lib $crtlstr" : $lib;
+    $ldlib =~ s/^\s+|\s+$//g;
+    warn "Result:\n\tEXTRALIBS: $lib\n\tLDLOADLIBS: $ldlib\n" if $verbose;
+    wantarray ? ( $lib, '', $ldlib, '', ( $give_libs ? \@flibs : () ) ) : $lib;
+}
+
+1;
diff --git a/lib/5.24.1/ExtUtils/MANIFEST.SKIP b/lib/5.24.1/ExtUtils/MANIFEST.SKIP
new file mode 100644
index 00000000..65592fb8
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/MANIFEST.SKIP
@@ -0,0 +1,63 @@
+# Avoid version control files.
+\bRCS\b
+\bCVS\b
+\bSCCS\b
+,v$
+\B\.svn\b
+\B\.git\b
+\B\.gitignore\b
+\b_darcs\b
+\B\.cvsignore$
+
+# Avoid VMS specific MakeMaker generated files
+\bDescrip.MMS$
+\bDESCRIP.MMS$
+\bdescrip.mms$
+
+# Avoid Makemaker generated and utility files.
+\bMANIFEST\.bak
+\bMakefile$
+\bblib/
+\bMakeMaker-\d
+\bpm_to_blib\.ts$
+\bpm_to_blib$
+\bblibdirs\.ts$         # 6.18 through 6.25 generated this
+\b_eumm/                # 7.05_05 and above
+
+# Avoid Module::Build generated and utility files.
+\bBuild$
+\b_build/
+\bBuild.bat$
+\bBuild.COM$
+\bBUILD.COM$
+\bbuild.com$
+
+# and Module::Build::Tiny generated files
+\b_build_params$
+
+# Avoid temp and backup files.
+~$
+\.old$
+\#$
+\b\.#
+\.bak$
+\.tmp$
+\.#
+\.rej$
+\..*\.sw.?$
+
+# Avoid OS-specific files/dirs
+# Mac OSX metadata
+\B\.DS_Store
+# Mac OSX SMB mount metadata files
+\B\._
+
+# Avoid Devel::Cover and Devel::CoverX::Covered files.
+\bcover_db\b
+\bcovered\b
+
+# Avoid prove files
+\B\.prove$
+
+# Avoid MYMETA files
+^MYMETA\.
diff --git a/lib/5.24.1/ExtUtils/MM.pm b/lib/5.24.1/ExtUtils/MM.pm
new file mode 100644
index 00000000..a8a176bc
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/MM.pm
@@ -0,0 +1,90 @@
+package ExtUtils::MM;
+
+use strict;
+use ExtUtils::MakeMaker::Config;
+
+our $VERSION = '7.10_02';
+
+require ExtUtils::Liblist;
+require ExtUtils::MakeMaker;
+our @ISA = qw(ExtUtils::Liblist ExtUtils::MakeMaker);
+
+=head1 NAME
+
+ExtUtils::MM - OS adjusted ExtUtils::MakeMaker subclass
+
+=head1 SYNOPSIS
+
+  require ExtUtils::MM;
+  my $mm = MM->new(...);
+
+=head1 DESCRIPTION
+
+B<FOR INTERNAL USE ONLY>
+
+ExtUtils::MM is a subclass of ExtUtils::MakeMaker which automatically
+chooses the appropriate OS specific subclass for you
+(ie. ExtUils::MM_Unix, etc...).
+
+It also provides a convenient alias via the MM class (I didn't want
+MakeMaker modules outside of ExtUtils/).
+
+This class might turn out to be a temporary solution, but MM won't go
+away.
+
+=cut
+
+{
+    # Convenient alias.
+    package MM;
+    our @ISA = qw(ExtUtils::MM);
+    sub DESTROY {}
+}
+
+sub _is_win95 {
+    # miniperl might not have the Win32 functions available and we need
+    # to run in miniperl.
+    my $have_win32 = eval { require Win32 };
+    return $have_win32 && defined &Win32::IsWin95 ? Win32::IsWin95()
+                                                  : ! defined $ENV{SYSTEMROOT};
+}
+
+my %Is = ();
+$Is{VMS}    = $^O eq 'VMS';
+$Is{OS2}    = $^O eq 'os2';
+$Is{MacOS}  = $^O eq 'MacOS';
+if( $^O eq 'MSWin32' ) {
+    _is_win95() ? $Is{Win95} = 1 : $Is{Win32} = 1;
+}
+$Is{UWIN}   = $^O =~ /^uwin(-nt)?$/;
+$Is{Cygwin} = $^O eq 'cygwin';
+$Is{NW5}    = $Config{osname} eq 'NetWare';  # intentional
+$Is{BeOS}   = ($^O =~ /beos/i or $^O eq 'haiku');
+$Is{DOS}    = $^O eq 'dos';
+if( $Is{NW5} ) {
+    $^O = 'NetWare';
+    delete $Is{Win32};
+}
+$Is{VOS}    = $^O eq 'vos';
+$Is{QNX}    = $^O eq 'qnx';
+$Is{AIX}    = $^O eq 'aix';
+$Is{Darwin} = $^O eq 'darwin';
+
+$Is{Unix}   = !grep { $_ } values %Is;
+
+map { delete $Is{$_} unless $Is{$_} } keys %Is;
+_assert( keys %Is == 1 );
+my($OS) = keys %Is;
+
+
+my $class = "ExtUtils::MM_$OS";
+eval "require $class" unless $INC{"ExtUtils/MM_$OS.pm"}; ## no critic
+die $@ if $@;
+unshift @ISA, $class;
+
+
+sub _assert {
+    my $sanity = shift;
+    die sprintf "Assert failed at %s line %d\n", (caller)[1,2] unless $sanity;
+    return;
+}
diff --git a/lib/5.24.1/ExtUtils/MM_AIX.pm b/lib/5.24.1/ExtUtils/MM_AIX.pm
new file mode 100644
index 00000000..bb7e6105
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/MM_AIX.pm
@@ -0,0 +1,79 @@
+package ExtUtils::MM_AIX;
+
+use strict;
+our $VERSION = '7.10_02';
+
+require ExtUtils::MM_Unix;
+our @ISA = qw(ExtUtils::MM_Unix);
+
+use ExtUtils::MakeMaker qw(neatvalue);
+
+
+=head1 NAME
+
+ExtUtils::MM_AIX - AIX specific subclass of ExtUtils::MM_Unix
+
+=head1 SYNOPSIS
+
+  Don't use this module directly.
+  Use ExtUtils::MM and let it choose.
+
+=head1 DESCRIPTION
+
+This is a subclass of ExtUtils::MM_Unix which contains functionality for
+AIX.
+
+Unless otherwise stated it works just like ExtUtils::MM_Unix
+
+=head2 Overridden methods
+
+=head3 dlsyms
+
+Define DL_FUNCS and DL_VARS and write the *.exp files.
+
+=cut
+
+sub dlsyms {
+    my($self,%attribs) = @_;
+
+    return '' unless $self->needs_linking();
+
+    my($funcs) = $attribs{DL_FUNCS} || $self->{DL_FUNCS} || {};
+    my($vars)  = $attribs{DL_VARS} || $self->{DL_VARS} || [];
+    my($funclist)  = $attribs{FUNCLIST} || $self->{FUNCLIST} || [];
+    my(@m);
+
+    push(@m,"
+dynamic :: $self->{BASEEXT}.exp
+
+") unless $self->{SKIPHASH}{'dynamic'}; # dynamic and static are subs, so...
+
+    push(@m,"
+static :: $self->{BASEEXT}.exp
+
+") unless $self->{SKIPHASH}{'static'};  # we avoid a warning if we tick them
+
+    push(@m,"
+$self->{BASEEXT}.exp: Makefile.PL
+",'	$(PERLRUN) -e \'use ExtUtils::Mksymlists; \\
+	Mksymlists("NAME" => "',$self->{NAME},'", "DL_FUNCS" => ',
+	neatvalue($funcs), ', "FUNCLIST" => ', neatvalue($funclist),
+	', "DL_VARS" => ', neatvalue($vars), ');\'
+');
+
+    join('',@m);
+}
+
+
+=head1 AUTHOR
+
+Michael G Schwern <schwern@pobox.com> with code from ExtUtils::MM_Unix
+
+=head1 SEE ALSO
+
+L<ExtUtils::MakeMaker>
+
+=cut
+
+
+1;
diff --git a/lib/5.24.1/ExtUtils/MM_Any.pm b/lib/5.24.1/ExtUtils/MM_Any.pm
new file mode 100644
index 00000000..7679dc41
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/MM_Any.pm
@@ -0,0 +1,2914 @@
+package ExtUtils::MM_Any;
+
+use strict;
+our $VERSION = '7.10_02';
+
+use Carp;
+use File::Spec;
+use File::Basename;
+BEGIN { our @ISA = qw(File::Spec); }
+
+# We need $Verbose
+use ExtUtils::MakeMaker qw($Verbose);
+
+use ExtUtils::MakeMaker::Config;
+
+
+# So we don't have to keep calling the methods over and over again,
+# we have these globals to cache the values.  Faster and shrtr.
+my $Curdir  = __PACKAGE__->curdir;
+my $Rootdir = __PACKAGE__->rootdir;
+my $Updir   = __PACKAGE__->updir;
+
+
+=head1 NAME
+
+ExtUtils::MM_Any - Platform-agnostic MM methods
+
+=head1 SYNOPSIS
+
+  FOR INTERNAL USE ONLY!
+
+  package ExtUtils::MM_SomeOS;
+
+  # Temporarily, you have to subclass both.  Put MM_Any first.
+  require ExtUtils::MM_Any;
+  require ExtUtils::MM_Unix;
+  @ISA = qw(ExtUtils::MM_Any ExtUtils::Unix);
+
+=head1 DESCRIPTION
+
+B<FOR INTERNAL USE ONLY!>
+
+ExtUtils::MM_Any is a superclass for the ExtUtils::MM_* set of
+modules.  It contains methods which are either inherently
+cross-platform or are written in a cross-platform manner.
+
+Subclass off of ExtUtils::MM_Any I<and> ExtUtils::MM_Unix.  This is a
+temporary solution.
+
+B<THIS MAY BE TEMPORARY!>
+
+
+=head1 METHODS
+
+Any methods marked I<Abstract> must be implemented by subclasses.
+
+
+=head2 Cross-platform helper methods
+
+These are methods which help writing cross-platform code.
+
+
+
+=head3 os_flavor  I<Abstract>
+
+    my @os_flavor = $mm->os_flavor;
+
+@os_flavor is the style of operating system this is, usually
+corresponding to the MM_*.pm file we're using.
+
+The first element of @os_flavor is the major family (ie. Unix,
+Windows, VMS, OS/2, etc...) and the rest are sub families.
+
+Some examples:
+
+    Cygwin98       ('Unix',  'Cygwin', 'Cygwin9x')
+    Windows        ('Win32')
+    Win98          ('Win32', 'Win9x')
+    Linux          ('Unix',  'Linux')
+    MacOS X        ('Unix',  'Darwin', 'MacOS', 'MacOS X')
+    OS/2           ('OS/2')
+
+This is used to write code for styles of operating system.
+See os_flavor_is() for use.
+
+
+=head3 os_flavor_is
+
+    my $is_this_flavor = $mm->os_flavor_is($this_flavor);
+    my $is_this_flavor = $mm->os_flavor_is(@one_of_these_flavors);
+
+Checks to see if the current operating system is one of the given flavors.
+
+This is useful for code like:
+
+    if( $mm->os_flavor_is('Unix') ) {
+        $out = `foo 2>&1`;
+    }
+    else {
+        $out = `foo`;
+    }
+
+=cut
+
+sub os_flavor_is {
+    my $self = shift;
+    my %flavors = map { ($_ => 1) } $self->os_flavor;
+    return (grep { $flavors{$_} } @_) ? 1 : 0;
+}
+
+
+=head3 can_load_xs
+
+    my $can_load_xs = $self->can_load_xs;
+
+Returns true if we have the ability to load XS.
+
+This is important because miniperl, used to build XS modules in the
+core, can not load XS.
+
+=cut
+
+sub can_load_xs {
+    return defined &DynaLoader::boot_DynaLoader ? 1 : 0;
+}
+
+
+=head3 can_run
+
+  use ExtUtils::MM;
+  my $runnable = MM->can_run($Config{make});
+
+If called in a scalar context it will return the full path to the binary
+you asked for if it was found, or C<undef> if it was not.
+
+If called in a list context, it will return a list of the full paths to instances
+of the binary where found in C<PATH>, or an empty list if it was not found.
+
+Copied from L<IPC::Cmd|IPC::Cmd/"$path = can_run( PROGRAM );">, but modified into
+a method (and removed C<$INSTANCES> capability).
+
+=cut
+
+sub can_run {
+    my ($self, $command) = @_;
+
+    # a lot of VMS executables have a symbol defined
+    # check those first
+    if ( $^O eq 'VMS' ) {
+        require VMS::DCLsym;
+        my $syms = VMS::DCLsym->new;
+        return $command if scalar $syms->getsym( uc $command );
+    }
+
+    my @possibles;
+
+    if( File::Spec->file_name_is_absolute($command) ) {
+        return $self->maybe_command($command);
+
+    } else {
+        for my $dir (
+            File::Spec->path,
+            File::Spec->curdir
+        ) {
+            next if ! $dir || ! -d $dir;
+            my $abs = File::Spec->catfile($self->os_flavor_is('Win32') ? Win32::GetShortPathName( $dir ) : $dir, $command);
+            push @possibles, $abs if $abs = $self->maybe_command($abs);
+        }
+    }
+    return @possibles if wantarray;
+    return shift @possibles;
+}
+
+
+=head3 can_redirect_error
+
+  $useredirect = MM->can_redirect_error;
+
+True if on an OS where qx operator (or backticks) can redirect C<STDERR>
+onto C<STDOUT>.
+
+=cut
+
+sub can_redirect_error {
+  my $self = shift;
+  $self->os_flavor_is('Unix')
+      or ($self->os_flavor_is('Win32') and !$self->os_flavor_is('Win9x'))
+      or $self->os_flavor_is('OS/2')
+}
+
+
+=head3 is_make_type
+
+    my $is_dmake = $self->is_make_type('dmake');
+
+Returns true if C<<$self->make>> is the given type; possibilities are:
+
+  gmake    GNU make
+  dmake
+  nmake
+  bsdmake  BSD pmake-derived
+
+=cut
+
+my %maketype2true;
+# undocumented - so t/cd.t can still do its thing
+sub _clear_maketype_cache { %maketype2true = () }
+
+sub is_make_type {
+    my($self, $type) = @_;
+    return $maketype2true{$type} if defined $maketype2true{$type};
+    (undef, undef, my $make_basename) = $self->splitpath($self->make);
+    return $maketype2true{$type} = 1
+        if $make_basename =~ /\b$type\b/i; # executable's filename
+    return $maketype2true{$type} = 0
+        if $make_basename =~ /\b[gdn]make\b/i; # Never fall through for dmake/nmake/gmake
+    # now have to run with "-v" and guess
+    my $redirect = $self->can_redirect_error ? '2>&1' : '';
+    my $make = $self->make || $self->{MAKE};
+    my $minus_v = `"$make" -v $redirect`;
+    return $maketype2true{$type} = 1
+        if $type eq 'gmake' and $minus_v =~ /GNU make/i;
+    return $maketype2true{$type} = 1
+        if $type eq 'bsdmake'
+      and $minus_v =~ /^usage: make \[-BeikNnqrstWwX\]/im;
+    $maketype2true{$type} = 0; # it wasn't whatever you asked
+}
+
+
+=head3 can_dep_space
+
+    my $can_dep_space = $self->can_dep_space;
+
+Returns true if C<make> can handle (probably by quoting)
+dependencies that contain a space. Currently known true for GNU make,
+false for BSD pmake derivative.
+
+=cut
+
+my $cached_dep_space;
+sub can_dep_space {
+    my $self = shift;
+    return $cached_dep_space if defined $cached_dep_space;
+    return $cached_dep_space = 1 if $self->is_make_type('gmake');
+    return $cached_dep_space = 0 if $self->is_make_type('dmake'); # only on W32
+    return $cached_dep_space = 0 if $self->is_make_type('bsdmake');
+    return $cached_dep_space = 0; # assume no
+}
+
+
+=head3 quote_dep
+
+  $text = $mm->quote_dep($text);
+
+Method that protects Makefile single-value constants (mainly filenames),
+so that make will still treat them as single values even if they
+inconveniently have spaces in. If the make program being used cannot
+achieve such protection and the given text would need it, throws an
+exception.
+
+=cut
+
+sub quote_dep {
+    my ($self, $arg) = @_;
+    die <<EOF if $arg =~ / / and not $self->can_dep_space;
+Tried to use make dependency with space for make that can't:
+  '$arg'
+EOF
+    $arg =~ s/( )/\\$1/g; # how GNU make does it
+    return $arg;
+}
+
+
+=head3 split_command
+
+    my @cmds = $MM->split_command($cmd, @args);
+
+Most OS have a maximum command length they can execute at once.  Large
+modules can easily generate commands well past that limit.  Its
+necessary to split long commands up into a series of shorter commands.
+
+C<split_command> will return a series of @cmds each processing part of
+the args.  Collectively they will process all the arguments.  Each
+individual line in @cmds will not be longer than the
+$self->max_exec_len being careful to take into account macro expansion.
+
+$cmd should include any switches and repeated initial arguments.
+
+If no @args are given, no @cmds will be returned.
+
+Pairs of arguments will always be preserved in a single command, this
+is a heuristic for things like pm_to_blib and pod2man which work on
+pairs of arguments.  This makes things like this safe:
+
+    $self->split_command($cmd, %pod2man);
+
+
+=cut
+
+sub split_command {
+    my($self, $cmd, @args) = @_;
+
+    my @cmds = ();
+    return(@cmds) unless @args;
+
+    # If the command was given as a here-doc, there's probably a trailing
+    # newline.
+    chomp $cmd;
+
+    # set aside 30% for macro expansion.
+    my $len_left = int($self->max_exec_len * 0.70);
+    $len_left -= length $self->_expand_macros($cmd);
+
+    do {
+        my $arg_str = '';
+        my @next_args;
+        while( @next_args = splice(@args, 0, 2) ) {
+            # Two at a time to preserve pairs.
+            my $next_arg_str = "\t  ". join ' ', @next_args, "\n";
+
+            if( !length $arg_str ) {
+                $arg_str .= $next_arg_str
+            }
+            elsif( length($arg_str) + length($next_arg_str) > $len_left ) {
+                unshift @args, @next_args;
+                last;
+            }
+            else {
+                $arg_str .= $next_arg_str;
+            }
+        }
+        chop $arg_str;
+
+        push @cmds, $self->escape_newlines("$cmd \n$arg_str");
+    } while @args;
+
+    return @cmds;
+}
+
+
+sub _expand_macros {
+    my($self, $cmd) = @_;
+
+    $cmd =~ s{\$\((\w+)\)}{
+        defined $self->{$1} ? $self->{$1} : "\$($1)"
+    }e;
+    return $cmd;
+}
+
+
+=head3 echo
+
+    my @commands = $MM->echo($text);
+    my @commands = $MM->echo($text, $file);
+    my @commands = $MM->echo($text, $file, \%opts);
+
+Generates a set of @commands which print the $text to a $file.
+
+If $file is not given, output goes to STDOUT.
+
+If $opts{append} is true the $file will be appended to rather than
+overwritten.  Default is to overwrite.
+
+If $opts{allow_variables} is true, make variables of the form
+C<$(...)> will not be escaped.  Other C<$> will.  Default is to escape
+all C<$>.
+
+Example of use:
+
+    my $make = map "\t$_\n", $MM->echo($text, $file);
+
+=cut
+
+sub echo {
+    my($self, $text, $file, $opts) = @_;
+
+    # Compatibility with old options
+    if( !ref $opts ) {
+        my $append = $opts;
+        $opts = { append => $append || 0 };
+    }
+    $opts->{allow_variables} = 0 unless defined $opts->{allow_variables};
+
+    my $ql_opts = { allow_variables => $opts->{allow_variables} };
+    my @cmds = map { '$(NOECHO) $(ECHO) '.$self->quote_literal($_, $ql_opts) }
+               split /\n/, $text;
+    if( $file ) {
+        my $redirect = $opts->{append} ? '>>' : '>';
+        $cmds[0] .= " $redirect $file";
+        $_ .= " >> $file" foreach @cmds[1..$#cmds];
+    }
+
+    return @cmds;
+}
+
+
+=head3 wraplist
+
+  my $args = $mm->wraplist(@list);
+
+Takes an array of items and turns them into a well-formatted list of
+arguments.  In most cases this is simply something like:
+
+    FOO \
+    BAR \
+    BAZ
+
+=cut
+
+sub wraplist {
+    my $self = shift;
+    return join " \\\n\t", @_;
+}
+
+
+=head3 maketext_filter
+
+    my $filter_make_text = $mm->maketext_filter($make_text);
+
+The text of the Makefile is run through this method before writing to
+disk.  It allows systems a chance to make portability fixes to the
+Makefile.
+
+By default it does nothing.
+
+This method is protected and not intended to be called outside of
+MakeMaker.
+
+=cut
+
+sub maketext_filter { return $_[1] }
+
+
+=head3 cd  I<Abstract>
+
+  my $subdir_cmd = $MM->cd($subdir, @cmds);
+
+This will generate a make fragment which runs the @cmds in the given
+$dir.  The rough equivalent to this, except cross platform.
+
+  cd $subdir && $cmd
+
+Currently $dir can only go down one level.  "foo" is fine.  "foo/bar" is
+not.  "../foo" is right out.
+
+The resulting $subdir_cmd has no leading tab nor trailing newline.  This
+makes it easier to embed in a make string.  For example.
+
+      my $make = sprintf <<'CODE', $subdir_cmd;
+  foo :
+      $(ECHO) what
+      %s
+      $(ECHO) mouche
+  CODE
+
+
+=head3 oneliner  I<Abstract>
+
+  my $oneliner = $MM->oneliner($perl_code);
+  my $oneliner = $MM->oneliner($perl_code, \@switches);
+
+This will generate a perl one-liner safe for the particular platform
+you're on based on the given $perl_code and @switches (a -e is
+assumed) suitable for using in a make target.  It will use the proper
+shell quoting and escapes.
+
+$(PERLRUN) will be used as perl.
+
+Any newlines in $perl_code will be escaped.  Leading and trailing
+newlines will be stripped.  Makes this idiom much easier:
+
+    my $code = $MM->oneliner(<<'CODE', [...switches...]);
+some code here
+another line here
+CODE
+
+Usage might be something like:
+
+    # an echo emulation
+    $oneliner = $MM->oneliner('print "Foo\n"');
+    $make = '$oneliner > somefile';
+
+All dollar signs must be doubled in the $perl_code if you expect them
+to be interpreted normally, otherwise it will be considered a make
+macro.  Also remember to quote make macros else it might be used as a
+bareword.  For example:
+
+    # Assign the value of the $(VERSION_FROM) make macro to $vf.
+    $oneliner = $MM->oneliner('$$vf = "$(VERSION_FROM)"');
+
+Its currently very simple and may be expanded sometime in the figure
+to include more flexible code and switches.
+
+
+=head3 quote_literal  I<Abstract>
+
+    my $safe_text = $MM->quote_literal($text);
+    my $safe_text = $MM->quote_literal($text, \%options);
+
+This will quote $text so it is interpreted literally in the shell.
+
+For example, on Unix this would escape any single-quotes in $text and
+put single-quotes around the whole thing.
+
+If $options{allow_variables} is true it will leave C<'$(FOO)'> make
+variables untouched.  If false they will be escaped like any other
+C<$>.  Defaults to true.
+
+=head3 escape_dollarsigns
+
+    my $escaped_text = $MM->escape_dollarsigns($text);
+
+Escapes stray C<$> so they are not interpreted as make variables.
+
+It lets by C<$(...)>.
+
+=cut
+
+sub escape_dollarsigns {
+    my($self, $text) = @_;
+
+    # Escape dollar signs which are not starting a variable
+    $text =~ s{\$ (?!\() }{\$\$}gx;
+
+    return $text;
+}
+
+
+=head3 escape_all_dollarsigns
+
+    my $escaped_text = $MM->escape_all_dollarsigns($text);
+
+Escapes all C<$> so they are not interpreted as make variables.
+
+=cut
+
+sub escape_all_dollarsigns {
+    my($self, $text) = @_;
+
+    # Escape dollar signs
+    $text =~ s{\$}{\$\$}gx;
+
+    return $text;
+}
+
+
+=head3 escape_newlines  I<Abstract>
+
+    my $escaped_text = $MM->escape_newlines($text);
+
+Shell escapes newlines in $text.
+
+
+=head3 max_exec_len  I<Abstract>
+
+    my $max_exec_len = $MM->max_exec_len;
+
+Calculates the maximum command size the OS can exec.  Effectively,
+this is the max size of a shell command line.
+
+=for _private
+$self->{_MAX_EXEC_LEN} is set by this method, but only for testing purposes.
+
+
+=head3 make
+
+    my $make = $MM->make;
+
+Returns the make variant we're generating the Makefile for.  This attempts
+to do some normalization on the information from %Config or the user.
+
+=cut
+
+sub make {
+    my $self = shift;
+
+    my $make = lc $self->{MAKE};
+
+    # Truncate anything like foomake6 to just foomake.
+    $make =~ s/^(\w+make).*/$1/;
+
+    # Turn gnumake into gmake.
+    $make =~ s/^gnu/g/;
+
+    return $make;
+}
+
+
+=head2 Targets
+
+These are methods which produce make targets.
+
+
+=head3 all_target
+
+Generate the default target 'all'.
+
+=cut
+
+sub all_target {
+    my $self = shift;
+
+    return <<'MAKE_EXT';
+all :: pure_all
+	$(NOECHO) $(NOOP)
+MAKE_EXT
+
+}
+
+
+=head3 blibdirs_target
+
+    my $make_frag = $mm->blibdirs_target;
+
+Creates the blibdirs target which creates all the directories we use
+in blib/.
+
+The blibdirs.ts target is deprecated.  Depend on blibdirs instead.
+
+
+=cut
+
+sub blibdirs_target {
+    my $self = shift;
+
+    my @dirs = map { uc "\$(INST_$_)" } qw(libdir archlib
+                                           autodir archautodir
+                                           bin script
+                                           man1dir man3dir
+                                          );
+
+    my @exists = map { $_.'$(DFSEP).exists' } @dirs;
+
+    my $make = sprintf <<'MAKE', join(' ', @exists);
+blibdirs : %s
+	$(NOECHO) $(NOOP)
+
+# Backwards compat with 6.18 through 6.25
+blibdirs.ts : blibdirs
+	$(NOECHO) $(NOOP)
+
+MAKE
+
+    $make .= $self->dir_target(@dirs);
+
+    return $make;
+}
+
+
+=head3 clean (o)
+
+Defines the clean target.
+
+=cut
+
+sub clean {
+# --- Cleanup and Distribution Sections ---
+
+    my($self, %attribs) = @_;
+    my @m;
+    push(@m, '
+# Delete temporary files but do not touch installed files. We don\'t delete
+# the Makefile here so a later make realclean still has a makefile to use.
+
+clean :: clean_subdirs
+');
+
+    my @files = sort values %{$self->{XS}}; # .c files from *.xs files
+    my @dirs  = qw(blib);
+
+    # Normally these are all under blib but they might have been
+    # redefined.
+    # XXX normally this would be a good idea, but the Perl core sets
+    # INST_LIB = ../../lib rather than actually installing the files.
+    # So a "make clean" in an ext/ directory would blow away lib.
+    # Until the core is adjusted let's leave this out.
+#     push @dirs, qw($(INST_ARCHLIB) $(INST_LIB)
+#                    $(INST_BIN) $(INST_SCRIPT)
+#                    $(INST_MAN1DIR) $(INST_MAN3DIR)
+#                    $(INST_LIBDIR) $(INST_ARCHLIBDIR) $(INST_AUTODIR)
+#                    $(INST_STATIC) $(INST_DYNAMIC)
+#                 );
+
+
+    if( $attribs{FILES} ) {
+        # Use @dirs because we don't know what's in here.
+        push @dirs, ref $attribs{FILES}                ?
+                        @{$attribs{FILES}}             :
+                        split /\s+/, $attribs{FILES}   ;
+    }
+
+    push(@files, qw[$(MAKE_APERL_FILE)
+                    MYMETA.json MYMETA.yml perlmain.c tmon.out mon.out so_locations
+                    blibdirs.ts pm_to_blib pm_to_blib.ts
+                    *$(OBJ_EXT) *$(LIB_EXT) perl.exe perl perl$(EXE_EXT)
+                    $(BOOTSTRAP) $(BASEEXT).bso
+                    $(BASEEXT).def lib$(BASEEXT).def
+                    $(BASEEXT).exp $(BASEEXT).x
+                   ]);
+
+    push(@files, $self->catfile('$(INST_ARCHAUTODIR)','extralibs.all'));
+    push(@files, $self->catfile('$(INST_ARCHAUTODIR)','extralibs.ld'));
+
+    # core files
+    if ($^O eq 'vos') {
+        push(@files, qw[perl*.kp]);
+    }
+    else {
+        push(@files, qw[core core.*perl.*.? *perl.core]);
+    }
+
+    push(@files, map { "core." . "[0-9]"x$_ } (1..5));
+
+    # OS specific things to clean up.  Use @dirs since we don't know
+    # what might be in here.
+    push @dirs, $self->extra_clean_files;
+
+    # Occasionally files are repeated several times from different sources
+    { my(%f) = map { ($_ => 1) } @files; @files = sort keys %f; }
+    { my(%d) = map { ($_ => 1) } @dirs;  @dirs  = sort keys %d; }
+
+    push @m, map "\t$_\n", $self->split_command('- $(RM_F)',  @files);
+    push @m, map "\t$_\n", $self->split_command('- $(RM_RF)', @dirs);
+
+    # Leave Makefile.old around for realclean
+    push @m, <<'MAKE';
+	  $(NOECHO) $(RM_F) $(MAKEFILE_OLD)
+	- $(MV) $(FIRST_MAKEFILE) $(MAKEFILE_OLD) $(DEV_NULL)
+MAKE
+
+    push(@m, "\t$attribs{POSTOP}\n")   if $attribs{POSTOP};
+
+    join("", @m);
+}
+
+
+=head3 clean_subdirs_target
+
+  my $make_frag = $MM->clean_subdirs_target;
+
+Returns the clean_subdirs target.  This is used by the clean target to
+call clean on any subdirectories which contain Makefiles.
+
+=cut
+
+sub clean_subdirs_target {
+    my($self) = shift;
+
+    # No subdirectories, no cleaning.
+    return <<'NOOP_FRAG' unless @{$self->{DIR}};
+clean_subdirs :
+	$(NOECHO) $(NOOP)
+NOOP_FRAG
+
+
+    my $clean = "clean_subdirs :\n";
+
+    for my $dir (@{$self->{DIR}}) {
+        my $subclean = $self->oneliner(sprintf <<'CODE', $dir);
+exit 0 unless chdir '%s';  system '$(MAKE) clean' if -f '$(FIRST_MAKEFILE)';
+CODE
+
+        $clean .= "\t$subclean\n";
+    }
+
+    return $clean;
+}
+
+
+=head3 dir_target
+
+    my $make_frag = $mm->dir_target(@directories);
+
+Generates targets to create the specified directories and set its
+permission to PERM_DIR.
+
+Because depending on a directory to just ensure it exists doesn't work
+too well (the modified time changes too often) dir_target() creates a
+.exists file in the created directory.  It is this you should depend on.
+For portability purposes you should use the $(DIRFILESEP) macro rather
+than a '/' to separate the directory from the file.
+
+    yourdirectory$(DIRFILESEP).exists
+
+=cut
+
+sub dir_target {
+    my($self, @dirs) = @_;
+
+    my $make = '';
+    foreach my $dir (@dirs) {
+        $make .= sprintf <<'MAKE', ($dir) x 4;
+%s$(DFSEP).exists :: Makefile.PL
+	$(NOECHO) $(MKPATH) %s
+	$(NOECHO) $(CHMOD) $(PERM_DIR) %s
+	$(NOECHO) $(TOUCH) %s$(DFSEP).exists
+
+MAKE
+
+    }
+
+    return $make;
+}
+
+
+=head3 distdir
+
+Defines the scratch directory target that will hold the distribution
+before tar-ing (or shar-ing).
+
+=cut
+
+# For backwards compatibility.
+*dist_dir = *distdir;
+
+sub distdir {
+    my($self) = shift;
+
+    my $meta_target = $self->{NO_META} ? '' : 'distmeta';
+    my $sign_target = !$self->{SIGN}   ? '' : 'distsignature';
+
+    return sprintf <<'MAKE_FRAG', $meta_target, $sign_target;
+create_distdir :
+	$(RM_RF) $(DISTVNAME)
+	$(PERLRUN) "-MExtUtils::Manifest=manicopy,maniread" \
+		-e "manicopy(maniread(),'$(DISTVNAME)', '$(DIST_CP)');"
+
+distdir : create_distdir %s %s
+	$(NOECHO) $(NOOP)
+
+MAKE_FRAG
+
+}
+
+
+=head3 dist_test
+
+Defines a target that produces the distribution in the
+scratch directory, and runs 'perl Makefile.PL; make ;make test' in that
+subdirectory.
+
+=cut
+
+sub dist_test {
+    my($self) = shift;
+
+    my $mpl_args = join " ", map qq["$_"], @ARGV;
+
+    my $test = $self->cd('$(DISTVNAME)',
+                         '$(ABSPERLRUN) Makefile.PL '.$mpl_args,
+                         '$(MAKE) $(PASTHRU)',
+                         '$(MAKE) test $(PASTHRU)'
+                        );
+
+    return sprintf <<'MAKE_FRAG', $test;
+disttest : distdir
+	%s
+
+MAKE_FRAG
+
+
+}
+
+
+=head3 dynamic (o)
+
+Defines the dynamic target.
+
+=cut
+
+sub dynamic {
+# --- Dynamic Loading Sections ---
+
+    my($self) = shift;
+    '
+dynamic :: $(FIRST_MAKEFILE) $(BOOTSTRAP) $(INST_DYNAMIC)
+	$(NOECHO) $(NOOP)
+';
+}
+
+
+=head3 makemakerdflt_target
+
+  my $make_frag = $mm->makemakerdflt_target
+
+Returns a make fragment with the makemakerdeflt_target specified.
+This target is the first target in the Makefile, is the default target
+and simply points off to 'all' just in case any make variant gets
+confused or something gets snuck in before the real 'all' target.
+
+=cut
+
+sub makemakerdflt_target {
+    return <<'MAKE_FRAG';
+makemakerdflt : all
+	$(NOECHO) $(NOOP)
+MAKE_FRAG
+
+}
+
+
+=head3 manifypods_target
+
+  my $manifypods_target = $self->manifypods_target;
+
+Generates the manifypods target.  This target generates man pages from
+all POD files in MAN1PODS and MAN3PODS.
+
+=cut
+
+sub manifypods_target {
+    my($self) = shift;
+
+    my $man1pods      = '';
+    my $man3pods      = '';
+    my $dependencies  = '';
+
+    # populate manXpods & dependencies:
+    foreach my $name (sort keys %{$self->{MAN1PODS}}, sort keys %{$self->{MAN3PODS}}) {
+        $dependencies .= " \\\n\t$name";
+    }
+
+    my $manify = <<END;
+manifypods : pure_all $dependencies
+END
+
+    my @man_cmds;
+    foreach my $section (qw(1 3)) {
+        my $pods = $self->{"MAN${section}PODS"};
+        my $p2m = sprintf <<CMD, $] > 5.008 ? " -u" : "";
+	\$(NOECHO) \$(POD2MAN) --section=$section --perm_rw=\$(PERM_RW)%s
+CMD
+        push @man_cmds, $self->split_command($p2m, map {($_,$pods->{$_})} sort keys %$pods);
+    }
+
+    $manify .= "\t\$(NOECHO) \$(NOOP)\n" unless @man_cmds;
+    $manify .= join '', map { "$_\n" } @man_cmds;
+
+    return $manify;
+}
+
+sub _has_cpan_meta {
+    return eval {
+      require CPAN::Meta;
+      CPAN::Meta->VERSION(2.112150);
+      1;
+    };
+}
+
+=head3 metafile_target
+
+    my $target = $mm->metafile_target;
+
+Generate the metafile target.
+
+Writes the file META.yml (YAML encoded meta-data) and META.json
+(JSON encoded meta-data) about the module in the distdir.
+The format follows Module::Build's as closely as possible.
+
+=cut
+
+sub metafile_target {
+    my $self = shift;
+    return <<'MAKE_FRAG' if $self->{NO_META} or ! _has_cpan_meta();
+metafile :
+	$(NOECHO) $(NOOP)
+MAKE_FRAG
+
+    my %metadata   = $self->metafile_data(
+        $self->{META_ADD}   || {},
+        $self->{META_MERGE} || {},
+    );
+
+    _fix_metadata_before_conversion( \%metadata );
+
+    # paper over validation issues, but still complain, necessary because
+    # there's no guarantee that the above will fix ALL errors
+    my $meta = eval { CPAN::Meta->create( \%metadata, { lazy_validation => 1 } ) };
+    warn $@ if $@ and
+               $@ !~ /encountered CODE.*, but JSON can only represent references to arrays or hashes/;
+
+    # use the original metadata straight if the conversion failed
+    # or if it can't be stringified.
+    if( !$meta                                                  ||
+        !eval { $meta->as_string( { version => "1.4" } ) }      ||
+        !eval { $meta->as_string }
+    )
+    {
+        $meta = bless \%metadata, 'CPAN::Meta';
+    }
+
+    my @write_metayml = $self->echo(
+      $meta->as_string({version => "1.4"}), 'META_new.yml'
+    );
+    my @write_metajson = $self->echo(
+      $meta->as_string(), 'META_new.json'
+    );
+
+    my $metayml = join("\n\t", @write_metayml);
+    my $metajson = join("\n\t", @write_metajson);
+    return sprintf <<'MAKE_FRAG', $metayml, $metajson;
+metafile : create_distdir
+	$(NOECHO) $(ECHO) Generating META.yml
+	%s
+	-$(NOECHO) $(MV) META_new.yml $(DISTVNAME)/META.yml
+	$(NOECHO) $(ECHO) Generating META.json
+	%s
+	-$(NOECHO) $(MV) META_new.json $(DISTVNAME)/META.json
+MAKE_FRAG
+
+}
+
+=begin private
+
+=head3 _fix_metadata_before_conversion
+
+    _fix_metadata_before_conversion( \%metadata );
+
+Fixes errors in the metadata before it's handed off to CPAN::Meta for
+conversion. This hopefully results in something that can be used further
+on, no guarantee is made though.
+
+=end private
+
+=cut
+
+sub _fix_metadata_before_conversion {
+    my ( $metadata ) = @_;
+
+    # we should never be called unless this already passed but
+    # prefer to be defensive in case somebody else calls this
+
+    return unless _has_cpan_meta;
+
+    my $bad_version = $metadata->{version} &&
+                      !CPAN::Meta::Validator->new->version( 'version', $metadata->{version} );
+
+    # just delete all invalid versions
+    if( $bad_version ) {
+        warn "Can't parse version '$metadata->{version}'\n";
+        $metadata->{version} = '';
+    }
+
+    my $validator = CPAN::Meta::Validator->new( $metadata );
+    return if $validator->is_valid;
+
+    # fix non-camelcase custom resource keys (only other trick we know)
+    for my $error ( $validator->errors ) {
+        my ( $key ) = ( $error =~ /Custom resource '(.*)' must be in CamelCase./ );
+        next if !$key;
+
+        # first try to remove all non-alphabetic chars
+        ( my $new_key = $key ) =~ s/[^_a-zA-Z]//g;
+
+        # if that doesn't work, uppercase first one
+        $new_key = ucfirst $new_key if !$validator->custom_1( $new_key );
+
+        # copy to new key if that worked
+        $metadata->{resources}{$new_key} = $metadata->{resources}{$key}
+          if $validator->custom_1( $new_key );
+
+        # and delete old one in any case
+        delete $metadata->{resources}{$key};
+    }
+
+    return;
+}
+
+
+=begin private
+
+=head3 _sort_pairs
+
+    my @pairs = _sort_pairs($sort_sub, \%hash);
+
+Sorts the pairs of a hash based on keys ordered according
+to C<$sort_sub>.
+
+=end private
+
+=cut
+
+sub _sort_pairs {
+    my $sort  = shift;
+    my $pairs = shift;
+    return map  { $_ => $pairs->{$_} }
+           sort $sort
+           keys %$pairs;
+}
+
+
+# Taken from Module::Build::Base
+sub _hash_merge {
+    my ($self, $h, $k, $v) = @_;
+    if (ref $h->{$k} eq 'ARRAY') {
+        push @{$h->{$k}}, ref $v ? @$v : $v;
+    } elsif (ref $h->{$k} eq 'HASH') {
+        $self->_hash_merge($h->{$k}, $_, $v->{$_}) foreach keys %$v;
+    } else {
+        $h->{$k} = $v;
+    }
+}
+
+
+=head3 metafile_data
+
+    my @metadata_pairs = $mm->metafile_data(\%meta_add, \%meta_merge);
+
+Returns the data which MakeMaker turns into the META.yml file 
+and the META.json file.
+
+Values of %meta_add will overwrite any existing metadata in those
+keys.  %meta_merge will be merged with them.
+
+=cut
+
+sub metafile_data {
+    my $self = shift;
+    my($meta_add, $meta_merge) = @_;
+
+    my %meta = (
+        # required
+        name         => $self->{DISTNAME},
+        version      => _normalize_version($self->{VERSION}),
+        abstract     => $self->{ABSTRACT} || 'unknown',
+        license      => $self->{LICENSE} || 'unknown',
+        dynamic_config => 1,
+
+        # optional
+        distribution_type => $self->{PM} ? 'module' : 'script',
+
+        no_index     => {
+            directory   => [qw(t inc)]
+        },
+
+        generated_by => "ExtUtils::MakeMaker version $ExtUtils::MakeMaker::VERSION",
+        'meta-spec'  => {
+            url         => 'http://module-build.sourceforge.net/META-spec-v1.4.html',
+            version     => 1.4
+        },
+    );
+
+    # The author key is required and it takes a list.
+    $meta{author}   = defined $self->{AUTHOR}    ? $self->{AUTHOR} : [];
+
+    {
+      my $vers = _metaspec_version( $meta_add, $meta_merge );
+      my $method = $vers =~ m!^2!
+               ? '_add_requirements_to_meta_v2'
+               : '_add_requirements_to_meta_v1_4';
+      %meta = $self->$method( %meta );
+    }
+
+    while( my($key, $val) = each %$meta_add ) {
+        $meta{$key} = $val;
+    }
+
+    while( my($key, $val) = each %$meta_merge ) {
+        $self->_hash_merge(\%meta, $key, $val);
+    }
+
+    return %meta;
+}
+
+
+=begin private
+
+=cut
+
+sub _metaspec_version {
+  my ( $meta_add, $meta_merge ) = @_;
+  return $meta_add->{'meta-spec'}->{version}
+    if defined $meta_add->{'meta-spec'}
+       and defined $meta_add->{'meta-spec'}->{version};
+  return $meta_merge->{'meta-spec'}->{version}
+    if defined $meta_merge->{'meta-spec'}
+       and  defined $meta_merge->{'meta-spec'}->{version};
+  return '1.4';
+}
+
+sub _add_requirements_to_meta_v1_4 {
+    my ( $self, %meta ) = @_;
+
+    # Check the original args so we can tell between the user setting it
+    # to an empty hash and it just being initialized.
+    if( $self->{ARGS}{CONFIGURE_REQUIRES} ) {
+        $meta{configure_requires} = $self->{CONFIGURE_REQUIRES};
+    } else {
+        $meta{configure_requires} = {
+            'ExtUtils::MakeMaker'       => 0,
+        };
+    }
+
+    if( $self->{ARGS}{BUILD_REQUIRES} ) {
+        $meta{build_requires} = $self->{BUILD_REQUIRES};
+    } else {
+        $meta{build_requires} = {
+            'ExtUtils::MakeMaker'       => 0,
+        };
+    }
+
+    if( $self->{ARGS}{TEST_REQUIRES} ) {
+        $meta{build_requires} = {
+          %{ $meta{build_requires} },
+          %{ $self->{TEST_REQUIRES} },
+        };
+    }
+
+    $meta{requires} = $self->{PREREQ_PM}
+        if defined $self->{PREREQ_PM};
+    $meta{requires}{perl} = _normalize_version($self->{MIN_PERL_VERSION})
+        if $self->{MIN_PERL_VERSION};
+
+    return %meta;
+}
+
+sub _add_requirements_to_meta_v2 {
+    my ( $self, %meta ) = @_;
+
+    # Check the original args so we can tell between the user setting it
+    # to an empty hash and it just being initialized.
+    if( $self->{ARGS}{CONFIGURE_REQUIRES} ) {
+        $meta{prereqs}{configure}{requires} = $self->{CONFIGURE_REQUIRES};
+    } else {
+        $meta{prereqs}{configure}{requires} = {
+            'ExtUtils::MakeMaker'       => 0,
+        };
+    }
+
+    if( $self->{ARGS}{BUILD_REQUIRES} ) {
+        $meta{prereqs}{build}{requires} = $self->{BUILD_REQUIRES};
+    } else {
+        $meta{prereqs}{build}{requires} = {
+            'ExtUtils::MakeMaker'       => 0,
+        };
+    }
+
+    if( $self->{ARGS}{TEST_REQUIRES} ) {
+        $meta{prereqs}{test}{requires} = $self->{TEST_REQUIRES};
+    }
+
+    $meta{prereqs}{runtime}{requires} = $self->{PREREQ_PM}
+        if $self->{ARGS}{PREREQ_PM};
+    $meta{prereqs}{runtime}{requires}{perl} = _normalize_version($self->{MIN_PERL_VERSION})
+        if $self->{MIN_PERL_VERSION};
+
+    return %meta;
+}
+
+# Adapted from Module::Build::Base
+sub _normalize_version {
+  my ($version) = @_;
+  $version = 0 unless defined $version;
+
+  if ( ref $version eq 'version' ) { # version objects
+    $version = $version->is_qv ? $version->normal : $version->stringify;
+  }
+  elsif ( $version =~ /^[^v][^.]*\.[^.]+\./ ) { # no leading v, multiple dots
+    # normalize string tuples without "v": "1.2.3" -> "v1.2.3"
+    $version = "v$version";
+  }
+  else {
+    # leave alone
+  }
+  return $version;
+}
+
+=head3 _dump_hash
+
+    $yaml = _dump_hash(\%options, %hash);
+
+Implements a fake YAML dumper for a hash given
+as a list of pairs. No quoting/escaping is done. Keys
+are supposed to be strings. Values are undef, strings,
+hash refs or array refs of strings.
+
+Supported options are:
+
+    delta => STR - indentation delta
+    use_header => BOOL - whether to include a YAML header
+    indent => STR - a string of spaces
+          default: ''
+
+    max_key_length => INT - maximum key length used to align
+        keys and values of the same hash
+        default: 20
+    key_sort => CODE - a sort sub
+            It may be undef, which means no sorting by keys
+        default: sub { lc $a cmp lc $b }
+
+    customs => HASH - special options for certain keys
+           (whose values are hashes themselves)
+        may contain: max_key_length, key_sort, customs
+
+=end private
+
+=cut
+
+sub _dump_hash {
+    croak "first argument should be a hash ref" unless ref $_[0] eq 'HASH';
+    my $options = shift;
+    my %hash = @_;
+
+    # Use a list to preserve order.
+    my @pairs;
+
+    my $k_sort
+        = exists $options->{key_sort} ? $options->{key_sort}
+                                      : sub { lc $a cmp lc $b };
+    if ($k_sort) {
+        croak "'key_sort' should be a coderef" unless ref $k_sort eq 'CODE';
+        @pairs = _sort_pairs($k_sort, \%hash);
+    } else { # list of pairs, no sorting
+        @pairs = @_;
+    }
+
+    my $yaml     = $options->{use_header} ? "--- #YAML:1.0\n" : '';
+    my $indent   = $options->{indent} || '';
+    my $k_length = min(
+        ($options->{max_key_length} || 20),
+        max(map { length($_) + 1 } grep { !ref $hash{$_} } keys %hash)
+    );
+    my $customs  = $options->{customs} || {};
+
+    # printf format for key
+    my $k_format = "%-${k_length}s";
+
+    while( @pairs ) {
+        my($key, $val) = splice @pairs, 0, 2;
+        $val = '~' unless defined $val;
+        if(ref $val eq 'HASH') {
+            if ( keys %$val ) {
+                my %k_options = ( # options for recursive call
+                    delta => $options->{delta},
+                    use_header => 0,
+                    indent => $indent . $options->{delta},
+                );
+                if (exists $customs->{$key}) {
+                    my %k_custom = %{$customs->{$key}};
+                    foreach my $k (qw(key_sort max_key_length customs)) {
+                        $k_options{$k} = $k_custom{$k} if exists $k_custom{$k};
+                    }
+                }
+                $yaml .= $indent . "$key:\n"
+                  . _dump_hash(\%k_options, %$val);
+            }
+            else {
+                $yaml .= $indent . "$key:  {}\n";
+            }
+        }
+        elsif (ref $val eq 'ARRAY') {
+            if( @$val ) {
+                $yaml .= $indent . "$key:\n";
+
+                for (@$val) {
+                    croak "only nested arrays of non-refs are supported" if ref $_;
+                    $yaml .= $indent . $options->{delta} . "- $_\n";
+                }
+            }
+            else {
+                $yaml .= $indent . "$key:  []\n";
+            }
+        }
+        elsif( ref $val and !blessed($val) ) {
+            croak "only nested hashes, arrays and objects are supported";
+        }
+        else {  # if it's an object, just stringify it
+            $yaml .= $indent . sprintf "$k_format  %s\n", "$key:", $val;
+        }
+    };
+
+    return $yaml;
+
+}
+
+sub blessed {
+    return eval { $_[0]->isa("UNIVERSAL"); };
+}
+
+sub max {
+    return (sort { $b <=> $a } @_)[0];
+}
+
+sub min {
+    return (sort { $a <=> $b } @_)[0];
+}
+
+=head3 metafile_file
+
+    my $meta_yml = $mm->metafile_file(@metadata_pairs);
+
+Turns the @metadata_pairs into YAML.
+
+This method does not implement a complete YAML dumper, being limited
+to dump a hash with values which are strings, undef's or nested hashes
+and arrays of strings. No quoting/escaping is done.
+
+=cut
+
+sub metafile_file {
+    my $self = shift;
+
+    my %dump_options = (
+        use_header => 1,
+        delta      => ' ' x 4,
+        key_sort   => undef,
+    );
+    return _dump_hash(\%dump_options, @_);
+
+}
+
+
+=head3 distmeta_target
+
+    my $make_frag = $mm->distmeta_target;
+
+Generates the distmeta target to add META.yml and META.json to the MANIFEST
+in the distdir.
+
+=cut
+
+sub distmeta_target {
+    my $self = shift;
+
+    my @add_meta = (
+      $self->oneliner(<<'CODE', ['-MExtUtils::Manifest=maniadd']),
+exit unless -e q{META.yml};
+eval { maniadd({q{META.yml} => q{Module YAML meta-data (added by MakeMaker)}}) }
+    or print "Could not add META.yml to MANIFEST: $${'@'}\n"
+CODE
+      $self->oneliner(<<'CODE', ['-MExtUtils::Manifest=maniadd'])
+exit unless -f q{META.json};
+eval { maniadd({q{META.json} => q{Module JSON meta-data (added by MakeMaker)}}) }
+    or print "Could not add META.json to MANIFEST: $${'@'}\n"
+CODE
+    );
+
+    my @add_meta_to_distdir = map { $self->cd('$(DISTVNAME)', $_) } @add_meta;
+
+    return sprintf <<'MAKE', @add_meta_to_distdir;
+distmeta : create_distdir metafile
+	$(NOECHO) %s
+	$(NOECHO) %s
+
+MAKE
+
+}
+
+
+=head3 mymeta
+
+    my $mymeta = $mm->mymeta;
+
+Generate MYMETA information as a hash either from an existing CPAN Meta file
+(META.json or META.yml) or from internal data.
+
+=cut
+
+sub mymeta {
+    my $self = shift;
+    my $file = shift || ''; # for testing
+
+    my $mymeta = $self->_mymeta_from_meta($file);
+    my $v2 = 1;
+
+    unless ( $mymeta ) {
+        my @metadata = $self->metafile_data(
+            $self->{META_ADD}   || {},
+            $self->{META_MERGE} || {},
+        );
+        $mymeta = {@metadata};
+        $v2 = 0;
+    }
+
+    # Overwrite the non-configure dependency hashes
+
+    my $method = $v2
+               ? '_add_requirements_to_meta_v2'
+               : '_add_requirements_to_meta_v1_4';
+
+    $mymeta = { $self->$method( %$mymeta ) };
+
+    $mymeta->{dynamic_config} = 0;
+
+    return $mymeta;
+}
+
+
+sub _mymeta_from_meta {
+    my $self = shift;
+    my $metafile = shift || ''; # for testing
+
+    return unless _has_cpan_meta();
+
+    my $meta;
+    for my $file ( $metafile, "META.json", "META.yml" ) {
+      next unless -e $file;
+      eval {
+          $meta = CPAN::Meta->load_file($file)->as_struct( { version => 2 } );
+      };
+      last if $meta;
+    }
+    return unless $meta;
+
+    # META.yml before 6.25_01 cannot be trusted.  META.yml lived in the source directory.
+    # There was a good chance the author accidentally uploaded a stale META.yml if they
+    # rolled their own tarball rather than using "make dist".
+    if ($meta->{generated_by} &&
+        $meta->{generated_by} =~ /ExtUtils::MakeMaker version ([\d\._]+)/) {
+        my $eummv = do { local $^W = 0; $1+0; };
+        if ($eummv < 6.2501) {
+            return;
+        }
+    }
+
+    return $meta;
+}
+
+=head3 write_mymeta
+
+    $self->write_mymeta( $mymeta );
+
+Write MYMETA information to MYMETA.json and MYMETA.yml.
+
+=cut
+
+sub write_mymeta {
+    my $self = shift;
+    my $mymeta = shift;
+
+    return unless _has_cpan_meta();
+
+    _fix_metadata_before_conversion( $mymeta );
+
+    # this can still blow up
+    # not sure if i should just eval this and skip file creation if it
+    # blows up
+    my $meta_obj = CPAN::Meta->new( $mymeta, { lazy_validation => 1 } );
+    $meta_obj->save( 'MYMETA.json' );
+    $meta_obj->save( 'MYMETA.yml', { version => "1.4" } );
+    return 1;
+}
+
+=head3 realclean (o)
+
+Defines the realclean target.
+
+=cut
+
+sub realclean {
+    my($self, %attribs) = @_;
+
+    my @dirs  = qw($(DISTVNAME));
+    my @files = qw($(FIRST_MAKEFILE) $(MAKEFILE_OLD));
+
+    # Special exception for the perl core where INST_* is not in blib.
+    # This cleans up the files built from the ext/ directory (all XS).
+    if( $self->{PERL_CORE} ) {
+        push @dirs, qw($(INST_AUTODIR) $(INST_ARCHAUTODIR));
+        push @files, values %{$self->{PM}};
+    }
+
+    if( $self->has_link_code ){
+        push @files, qw($(OBJECT));
+    }
+
+    if( $attribs{FILES} ) {
+        if( ref $attribs{FILES} ) {
+            push @dirs, @{ $attribs{FILES} };
+        }
+        else {
+            push @dirs, split /\s+/, $attribs{FILES};
+        }
+    }
+
+    # Occasionally files are repeated several times from different sources
+    { my(%f) = map { ($_ => 1) } @files;  @files = keys %f; }
+    { my(%d) = map { ($_ => 1) } @dirs;   @dirs  = keys %d; }
+
+    my $rm_cmd  = join "\n\t", map { "$_" }
+                    $self->split_command('- $(RM_F)',  @files);
+    my $rmf_cmd = join "\n\t", map { "$_" }
+                    $self->split_command('- $(RM_RF)', @dirs);
+
+    my $m = sprintf <<'MAKE', $rm_cmd, $rmf_cmd;
+# Delete temporary files (via clean) and also delete dist files
+realclean purge ::  clean realclean_subdirs
+	%s
+	%s
+MAKE
+
+    $m .= "\t$attribs{POSTOP}\n" if $attribs{POSTOP};
+
+    return $m;
+}
+
+
+=head3 realclean_subdirs_target
+
+  my $make_frag = $MM->realclean_subdirs_target;
+
+Returns the realclean_subdirs target.  This is used by the realclean
+target to call realclean on any subdirectories which contain Makefiles.
+
+=cut
+
+sub realclean_subdirs_target {
+    my $self = shift;
+
+    return <<'NOOP_FRAG' unless @{$self->{DIR}};
+realclean_subdirs :
+	$(NOECHO) $(NOOP)
+NOOP_FRAG
+
+    my $rclean = "realclean_subdirs :\n";
+
+    foreach my $dir (@{$self->{DIR}}) {
+        foreach my $makefile ('$(MAKEFILE_OLD)', '$(FIRST_MAKEFILE)' ) {
+            my $subrclean .= $self->oneliner(sprintf <<'CODE', $dir, ($makefile) x 2);
+chdir '%s';  system '$(MAKE) $(USEMAKEFILE) %s realclean' if -f '%s';
+CODE
+
+            $rclean .= sprintf <<'RCLEAN', $subrclean;
+	- %s
+RCLEAN
+
+        }
+    }
+
+    return $rclean;
+}
+
+
+=head3 signature_target
+
+    my $target = $mm->signature_target;
+
+Generate the signature target.
+
+Writes the file SIGNATURE with "cpansign -s".
+
+=cut
+
+sub signature_target {
+    my $self = shift;
+
+    return <<'MAKE_FRAG';
+signature :
+	cpansign -s
+MAKE_FRAG
+
+}
+
+
+=head3 distsignature_target
+
+    my $make_frag = $mm->distsignature_target;
+
+Generates the distsignature target to add SIGNATURE to the MANIFEST in the
+distdir.
+
+=cut
+
+sub distsignature_target {
+    my $self = shift;
+
+    my $add_sign = $self->oneliner(<<'CODE', ['-MExtUtils::Manifest=maniadd']);
+eval { maniadd({q{SIGNATURE} => q{Public-key signature (added by MakeMaker)}}) }
+    or print "Could not add SIGNATURE to MANIFEST: $${'@'}\n"
+CODE
+
+    my $sign_dist        = $self->cd('$(DISTVNAME)' => 'cpansign -s');
+
+    # cpansign -s complains if SIGNATURE is in the MANIFEST yet does not
+    # exist
+    my $touch_sig        = $self->cd('$(DISTVNAME)' => '$(TOUCH) SIGNATURE');
+    my $add_sign_to_dist = $self->cd('$(DISTVNAME)' => $add_sign );
+
+    return sprintf <<'MAKE', $add_sign_to_dist, $touch_sig, $sign_dist
+distsignature : distmeta
+	$(NOECHO) %s
+	$(NOECHO) %s
+	%s
+
+MAKE
+
+}
+
+
+=head3 special_targets
+
+  my $make_frag = $mm->special_targets
+
+Returns a make fragment containing any targets which have special
+meaning to make.  For example, .SUFFIXES and .PHONY.
+
+=cut
+
+sub special_targets {
+    my $make_frag = <<'MAKE_FRAG';
+.SUFFIXES : .xs .c .C .cpp .i .s .cxx .cc $(OBJ_EXT)
+
+.PHONY: all config static dynamic test linkext manifest blibdirs clean realclean disttest distdir
+
+MAKE_FRAG
+
+    $make_frag .= <<'MAKE_FRAG' if $ENV{CLEARCASE_ROOT};
+.NO_CONFIG_REC: Makefile
+
+MAKE_FRAG
+
+    return $make_frag;
+}
+
+
+
+
+=head2 Init methods
+
+Methods which help initialize the MakeMaker object and macros.
+
+
+=head3 init_ABSTRACT
+
+    $mm->init_ABSTRACT
+
+=cut
+
+sub init_ABSTRACT {
+    my $self = shift;
+
+    if( $self->{ABSTRACT_FROM} and $self->{ABSTRACT} ) {
+        warn "Both ABSTRACT_FROM and ABSTRACT are set.  ".
+             "Ignoring ABSTRACT_FROM.\n";
+        return;
+    }
+
+    if ($self->{ABSTRACT_FROM}){
+        $self->{ABSTRACT} = $self->parse_abstract($self->{ABSTRACT_FROM}) or
+            carp "WARNING: Setting ABSTRACT via file ".
+                 "'$self->{ABSTRACT_FROM}' failed\n";
+    }
+
+    if ($self->{ABSTRACT} && $self->{ABSTRACT} =~ m![[:cntrl:]]+!) {
+            warn "WARNING: ABSTRACT contains control character(s),".
+                 " they will be removed\n";
+            $self->{ABSTRACT} =~ s![[:cntrl:]]+!!g;
+            return;
+    }
+}
+
+=head3 init_INST
+
+    $mm->init_INST;
+
+Called by init_main.  Sets up all INST_* variables except those related
+to XS code.  Those are handled in init_xs.
+
+=cut
+
+sub init_INST {
+    my($self) = shift;
+
+    $self->{INST_ARCHLIB} ||= $self->catdir($Curdir,"blib","arch");
+    $self->{INST_BIN}     ||= $self->catdir($Curdir,'blib','bin');
+
+    # INST_LIB typically pre-set if building an extension after
+    # perl has been built and installed. Setting INST_LIB allows
+    # you to build directly into, say $Config{privlibexp}.
+    unless ($self->{INST_LIB}){
+        if ($self->{PERL_CORE}) {
+            $self->{INST_LIB} = $self->{INST_ARCHLIB} = $self->{PERL_LIB};
+        } else {
+            $self->{INST_LIB} = $self->catdir($Curdir,"blib","lib");
+        }
+    }
+
+    my @parentdir = split(/::/, $self->{PARENT_NAME});
+    $self->{INST_LIBDIR}      = $self->catdir('$(INST_LIB)',     @parentdir);
+    $self->{INST_ARCHLIBDIR}  = $self->catdir('$(INST_ARCHLIB)', @parentdir);
+    $self->{INST_AUTODIR}     = $self->catdir('$(INST_LIB)', 'auto',
+                                              '$(FULLEXT)');
+    $self->{INST_ARCHAUTODIR} = $self->catdir('$(INST_ARCHLIB)', 'auto',
+                                              '$(FULLEXT)');
+
+    $self->{INST_SCRIPT}  ||= $self->catdir($Curdir,'blib','script');
+
+    $self->{INST_MAN1DIR} ||= $self->catdir($Curdir,'blib','man1');
+    $self->{INST_MAN3DIR} ||= $self->catdir($Curdir,'blib','man3');
+
+    return 1;
+}
+
+
+=head3 init_INSTALL
+
+    $mm->init_INSTALL;
+
+Called by init_main.  Sets up all INSTALL_* variables (except
+INSTALLDIRS) and *PREFIX.
+
+=cut
+
+sub init_INSTALL {
+    my($self) = shift;
+
+    if( $self->{ARGS}{INSTALL_BASE} and $self->{ARGS}{PREFIX} ) {
+        die "Only one of PREFIX or INSTALL_BASE can be given.  Not both.\n";
+    }
+
+    if( $self->{ARGS}{INSTALL_BASE} ) {
+        $self->init_INSTALL_from_INSTALL_BASE;
+    }
+    else {
+        $self->init_INSTALL_from_PREFIX;
+    }
+}
+
+
+=head3 init_INSTALL_from_PREFIX
+
+  $mm->init_INSTALL_from_PREFIX;
+
+=cut
+
+sub init_INSTALL_from_PREFIX {
+    my $self = shift;
+
+    $self->init_lib2arch;
+
+    # There are often no Config.pm defaults for these new man variables so
+    # we fall back to the old behavior which is to use installman*dir
+    foreach my $num (1, 3) {
+        my $k = 'installsiteman'.$num.'dir';
+
+        $self->{uc $k} ||= uc "\$(installman${num}dir)"
+          unless $Config{$k};
+    }
+
+    foreach my $num (1, 3) {
+        my $k = 'installvendorman'.$num.'dir';
+
+        unless( $Config{$k} ) {
+            $self->{uc $k}  ||= $Config{usevendorprefix}
+                              ? uc "\$(installman${num}dir)"
+                              : '';
+        }
+    }
+
+    $self->{INSTALLSITEBIN} ||= '$(INSTALLBIN)'
+      unless $Config{installsitebin};
+    $self->{INSTALLSITESCRIPT} ||= '$(INSTALLSCRIPT)'
+      unless $Config{installsitescript};
+
+    unless( $Config{installvendorbin} ) {
+        $self->{INSTALLVENDORBIN} ||= $Config{usevendorprefix}
+                                    ? $Config{installbin}
+                                    : '';
+    }
+    unless( $Config{installvendorscript} ) {
+        $self->{INSTALLVENDORSCRIPT} ||= $Config{usevendorprefix}
+                                       ? $Config{installscript}
+                                       : '';
+    }
+
+
+    my $iprefix = $Config{installprefixexp} || $Config{installprefix} ||
+                  $Config{prefixexp}        || $Config{prefix} || '';
+    my $vprefix = $Config{usevendorprefix}  ? $Config{vendorprefixexp} : '';
+    my $sprefix = $Config{siteprefixexp}    || '';
+
+    # 5.005_03 doesn't have a siteprefix.
+    $sprefix = $iprefix unless $sprefix;
+
+
+    $self->{PREFIX}       ||= '';
+
+    if( $self->{PREFIX} ) {
+        @{$self}{qw(PERLPREFIX SITEPREFIX VENDORPREFIX)} =
+          ('$(PREFIX)') x 3;
+    }
+    else {
+        $self->{PERLPREFIX}   ||= $iprefix;
+        $self->{SITEPREFIX}   ||= $sprefix;
+        $self->{VENDORPREFIX} ||= $vprefix;
+
+        # Lots of MM extension authors like to use $(PREFIX) so we
+        # put something sensible in there no matter what.
+        $self->{PREFIX} = '$('.uc $self->{INSTALLDIRS}.'PREFIX)';
+    }
+
+    my $arch    = $Config{archname};
+    my $version = $Config{version};
+
+    # default style
+    my $libstyle = $Config{installstyle} || 'lib/perl5';
+    my $manstyle = '';
+
+    if( $self->{LIBSTYLE} ) {
+        $libstyle = $self->{LIBSTYLE};
+        $manstyle = $self->{LIBSTYLE} eq 'lib/perl5' ? 'lib/perl5' : '';
+    }
+
+    # Some systems, like VOS, set installman*dir to '' if they can't
+    # read man pages.
+    for my $num (1, 3) {
+        $self->{'INSTALLMAN'.$num.'DIR'} ||= 'none'
+          unless $Config{'installman'.$num.'dir'};
+    }
+
+    my %bin_layouts =
+    (
+        bin         => { s => $iprefix,
+                         t => 'perl',
+                         d => 'bin' },
+        vendorbin   => { s => $vprefix,
+                         t => 'vendor',
+                         d => 'bin' },
+        sitebin     => { s => $sprefix,
+                         t => 'site',
+                         d => 'bin' },
+        script      => { s => $iprefix,
+                         t => 'perl',
+                         d => 'bin' },
+        vendorscript=> { s => $vprefix,
+                         t => 'vendor',
+                         d => 'bin' },
+        sitescript  => { s => $sprefix,
+                         t => 'site',
+                         d => 'bin' },
+    );
+
+    my %man_layouts =
+    (
+        man1dir         => { s => $iprefix,
+                             t => 'perl',
+                             d => 'man/man1',
+                             style => $manstyle, },
+        siteman1dir     => { s => $sprefix,
+                             t => 'site',
+                             d => 'man/man1',
+                             style => $manstyle, },
+        vendorman1dir   => { s => $vprefix,
+                             t => 'vendor',
+                             d => 'man/man1',
+                             style => $manstyle, },
+
+        man3dir         => { s => $iprefix,
+                             t => 'perl',
+                             d => 'man/man3',
+                             style => $manstyle, },
+        siteman3dir     => { s => $sprefix,
+                             t => 'site',
+                             d => 'man/man3',
+                             style => $manstyle, },
+        vendorman3dir   => { s => $vprefix,
+                             t => 'vendor',
+                             d => 'man/man3',
+                             style => $manstyle, },
+    );
+
+    my %lib_layouts =
+    (
+        privlib     => { s => $iprefix,
+                         t => 'perl',
+                         d => '',
+                         style => $libstyle, },
+        vendorlib   => { s => $vprefix,
+                         t => 'vendor',
+                         d => '',
+                         style => $libstyle, },
+        sitelib     => { s => $sprefix,
+                         t => 'site',
+                         d => 'site_perl',
+                         style => $libstyle, },
+
+        archlib     => { s => $iprefix,
+                         t => 'perl',
+                         d => "$version/$arch",
+                         style => $libstyle },
+        vendorarch  => { s => $vprefix,
+                         t => 'vendor',
+                         d => "$version/$arch",
+                         style => $libstyle },
+        sitearch    => { s => $sprefix,
+                         t => 'site',
+                         d => "site_perl/$version/$arch",
+                         style => $libstyle },
+    );
+
+
+    # Special case for LIB.
+    if( $self->{LIB} ) {
+        foreach my $var (keys %lib_layouts) {
+            my $Installvar = uc "install$var";
+
+            if( $var =~ /arch/ ) {
+                $self->{$Installvar} ||=
+                  $self->catdir($self->{LIB}, $Config{archname});
+            }
+            else {
+                $self->{$Installvar} ||= $self->{LIB};
+            }
+        }
+    }
+
+    my %type2prefix = ( perl    => 'PERLPREFIX',
+                        site    => 'SITEPREFIX',
+                        vendor  => 'VENDORPREFIX'
+                      );
+
+    my %layouts = (%bin_layouts, %man_layouts, %lib_layouts);
+    while( my($var, $layout) = each(%layouts) ) {
+        my($s, $t, $d, $style) = @{$layout}{qw(s t d style)};
+        my $r = '$('.$type2prefix{$t}.')';
+
+        warn "Prefixing $var\n" if $Verbose >= 2;
+
+        my $installvar = "install$var";
+        my $Installvar = uc $installvar;
+        next if $self->{$Installvar};
+
+        $d = "$style/$d" if $style;
+        $self->prefixify($installvar, $s, $r, $d);
+
+        warn "  $Installvar == $self->{$Installvar}\n"
+          if $Verbose >= 2;
+    }
+
+    # Generate these if they weren't figured out.
+    $self->{VENDORARCHEXP} ||= $self->{INSTALLVENDORARCH};
+    $self->{VENDORLIBEXP}  ||= $self->{INSTALLVENDORLIB};
+
+    return 1;
+}
+
+
+=head3 init_from_INSTALL_BASE
+
+    $mm->init_from_INSTALL_BASE
+
+=cut
+
+my %map = (
+           lib      => [qw(lib perl5)],
+           arch     => [('lib', 'perl5', $Config{archname})],
+           bin      => [qw(bin)],
+           man1dir  => [qw(man man1)],
+           man3dir  => [qw(man man3)]
+          );
+$map{script} = $map{bin};
+
+sub init_INSTALL_from_INSTALL_BASE {
+    my $self = shift;
+
+    @{$self}{qw(PREFIX VENDORPREFIX SITEPREFIX PERLPREFIX)} =
+                                                         '$(INSTALL_BASE)';
+
+    my %install;
+    foreach my $thing (keys %map) {
+        foreach my $dir (('', 'SITE', 'VENDOR')) {
+            my $uc_thing = uc $thing;
+            my $key = "INSTALL".$dir.$uc_thing;
+
+            $install{$key} ||=
+              $self->catdir('$(INSTALL_BASE)', @{$map{$thing}});
+        }
+    }
+
+    # Adjust for variable quirks.
+    $install{INSTALLARCHLIB} ||= delete $install{INSTALLARCH};
+    $install{INSTALLPRIVLIB} ||= delete $install{INSTALLLIB};
+
+    foreach my $key (keys %install) {
+        $self->{$key} ||= $install{$key};
+    }
+
+    return 1;
+}
+
+
+=head3 init_VERSION  I<Abstract>
+
+    $mm->init_VERSION
+
+Initialize macros representing versions of MakeMaker and other tools
+
+MAKEMAKER: path to the MakeMaker module.
+
+MM_VERSION: ExtUtils::MakeMaker Version
+
+MM_REVISION: ExtUtils::MakeMaker version control revision (for backwards
+             compat)
+
+VERSION: version of your module
+
+VERSION_MACRO: which macro represents the version (usually 'VERSION')
+
+VERSION_SYM: like version but safe for use as an RCS revision number
+
+DEFINE_VERSION: -D line to set the module version when compiling
+
+XS_VERSION: version in your .xs file.  Defaults to $(VERSION)
+
+XS_VERSION_MACRO: which macro represents the XS version.
+
+XS_DEFINE_VERSION: -D line to set the xs version when compiling.
+
+Called by init_main.
+
+=cut
+
+sub init_VERSION {
+    my($self) = shift;
+
+    $self->{MAKEMAKER}  = $ExtUtils::MakeMaker::Filename;
+    $self->{MM_VERSION} = $ExtUtils::MakeMaker::VERSION;
+    $self->{MM_REVISION}= $ExtUtils::MakeMaker::Revision;
+    $self->{VERSION_FROM} ||= '';
+
+    if ($self->{VERSION_FROM}){
+        $self->{VERSION} = $self->parse_version($self->{VERSION_FROM});
+        if( $self->{VERSION} eq 'undef' ) {
+            carp("WARNING: Setting VERSION via file ".
+                 "'$self->{VERSION_FROM}' failed\n");
+        }
+    }
+
+    if (defined $self->{VERSION}) {
+        if ( $self->{VERSION} !~ /^\s*v?[\d_\.]+\s*$/ ) {
+          require version;
+          my $normal = eval { version->new( $self->{VERSION} ) };
+          $self->{VERSION} = $normal if defined $normal;
+        }
+        $self->{VERSION} =~ s/^\s+//;
+        $self->{VERSION} =~ s/\s+$//;
+    }
+    else {
+        $self->{VERSION} = '';
+    }
+
+
+    $self->{VERSION_MACRO}  = 'VERSION';
+    ($self->{VERSION_SYM} = $self->{VERSION}) =~ s/\W/_/g;
+    $self->{DEFINE_VERSION} = '-D$(VERSION_MACRO)=\"$(VERSION)\"';
+
+
+    # Graham Barr and Paul Marquess had some ideas how to ensure
+    # version compatibility between the *.pm file and the
+    # corresponding *.xs file. The bottom line was, that we need an
+    # XS_VERSION macro that defaults to VERSION:
+    $self->{XS_VERSION} ||= $self->{VERSION};
+
+    $self->{XS_VERSION_MACRO}  = 'XS_VERSION';
+    $self->{XS_DEFINE_VERSION} = '-D$(XS_VERSION_MACRO)=\"$(XS_VERSION)\"';
+
+}
+
+
+=head3 init_tools
+
+    $MM->init_tools();
+
+Initializes the simple macro definitions used by tools_other() and
+places them in the $MM object.  These use conservative cross platform
+versions and should be overridden with platform specific versions for
+performance.
+
+Defines at least these macros.
+
+  Macro             Description
+
+  NOOP              Do nothing
+  NOECHO            Tell make not to display the command itself
+
+  SHELL             Program used to run shell commands
+
+  ECHO              Print text adding a newline on the end
+  RM_F              Remove a file
+  RM_RF             Remove a directory
+  TOUCH             Update a file's timestamp
+  TEST_F            Test for a file's existence
+  TEST_S            Test the size of a file
+  CP                Copy a file
+  CP_NONEMPTY       Copy a file if it is not empty
+  MV                Move a file
+  CHMOD             Change permissions on a file
+  FALSE             Exit with non-zero
+  TRUE              Exit with zero
+
+  UMASK_NULL        Nullify umask
+  DEV_NULL          Suppress all command output
+
+=cut
+
+sub init_tools {
+    my $self = shift;
+
+    $self->{ECHO}     ||= $self->oneliner('binmode STDOUT, qq{:raw}; print qq{@ARGV}', ['-l']);
+    $self->{ECHO_N}   ||= $self->oneliner('print qq{@ARGV}');
+
+    $self->{TOUCH}    ||= $self->oneliner('touch', ["-MExtUtils::Command"]);
+    $self->{CHMOD}    ||= $self->oneliner('chmod', ["-MExtUtils::Command"]);
+    $self->{RM_F}     ||= $self->oneliner('rm_f',  ["-MExtUtils::Command"]);
+    $self->{RM_RF}    ||= $self->oneliner('rm_rf', ["-MExtUtils::Command"]);
+    $self->{TEST_F}   ||= $self->oneliner('test_f', ["-MExtUtils::Command"]);
+    $self->{TEST_S}   ||= $self->oneliner('test_s', ["-MExtUtils::Command::MM"]);
+    $self->{CP_NONEMPTY} ||= $self->oneliner('cp_nonempty', ["-MExtUtils::Command::MM"]);
+    $self->{FALSE}    ||= $self->oneliner('exit 1');
+    $self->{TRUE}     ||= $self->oneliner('exit 0');
+
+    $self->{MKPATH}   ||= $self->oneliner('mkpath', ["-MExtUtils::Command"]);
+
+    $self->{CP}       ||= $self->oneliner('cp', ["-MExtUtils::Command"]);
+    $self->{MV}       ||= $self->oneliner('mv', ["-MExtUtils::Command"]);
+
+    $self->{MOD_INSTALL} ||=
+      $self->oneliner(<<'CODE', ['-MExtUtils::Install']);
+install([ from_to => {@ARGV}, verbose => '$(VERBINST)', uninstall_shadows => '$(UNINST)', dir_mode => '$(PERM_DIR)' ]);
+CODE
+    $self->{DOC_INSTALL} ||= $self->oneliner('perllocal_install', ["-MExtUtils::Command::MM"]);
+    $self->{UNINSTALL}   ||= $self->oneliner('uninstall', ["-MExtUtils::Command::MM"]);
+    $self->{WARN_IF_OLD_PACKLIST} ||=
+      $self->oneliner('warn_if_old_packlist', ["-MExtUtils::Command::MM"]);
+    $self->{FIXIN}       ||= $self->oneliner('MY->fixin(shift)', ["-MExtUtils::MY"]);
+    $self->{EQUALIZE_TIMESTAMP} ||= $self->oneliner('eqtime', ["-MExtUtils::Command"]);
+
+    $self->{UNINST}     ||= 0;
+    $self->{VERBINST}   ||= 0;
+
+    $self->{SHELL}              ||= $Config{sh};
+
+    # UMASK_NULL is not used by MakeMaker but some CPAN modules
+    # make use of it.
+    $self->{UMASK_NULL}         ||= "umask 0";
+
+    # Not the greatest default, but its something.
+    $self->{DEV_NULL}           ||= "> /dev/null 2>&1";
+
+    $self->{NOOP}               ||= '$(TRUE)';
+    $self->{NOECHO}             = '@' unless defined $self->{NOECHO};
+
+    $self->{FIRST_MAKEFILE}     ||= $self->{MAKEFILE} || 'Makefile';
+    $self->{MAKEFILE}           ||= $self->{FIRST_MAKEFILE};
+    $self->{MAKEFILE_OLD}       ||= $self->{MAKEFILE}.'.old';
+    $self->{MAKE_APERL_FILE}    ||= $self->{MAKEFILE}.'.aperl';
+
+    # Not everybody uses -f to indicate "use this Makefile instead"
+    $self->{USEMAKEFILE}        ||= '-f';
+
+    # Some makes require a wrapper around macros passed in on the command
+    # line.
+    $self->{MACROSTART}         ||= '';
+    $self->{MACROEND}           ||= '';
+
+    return;
+}
+
+
+=head3 init_others
+
+    $MM->init_others();
+
+Initializes the macro definitions having to do with compiling and
+linking used by tools_other() and places them in the $MM object.
+
+If there is no description, its the same as the parameter to
+WriteMakefile() documented in ExtUtils::MakeMaker.
+
+=cut
+
+sub init_others {
+    my $self = shift;
+
+    $self->{LD_RUN_PATH} = "";
+
+    $self->{LIBS} = $self->_fix_libs($self->{LIBS});
+
+    # Compute EXTRALIBS, BSLOADLIBS and LDLOADLIBS from $self->{LIBS}
+    foreach my $libs ( @{$self->{LIBS}} ){
+        $libs =~ s/^\s*(.*\S)\s*$/$1/; # remove leading and trailing whitespace
+        my(@libs) = $self->extliblist($libs);
+        if ($libs[0] or $libs[1] or $libs[2]){
+            # LD_RUN_PATH now computed by ExtUtils::Liblist
+            ($self->{EXTRALIBS},  $self->{BSLOADLIBS},
+             $self->{LDLOADLIBS}, $self->{LD_RUN_PATH}) = @libs;
+            last;
+        }
+    }
+
+    if ( $self->{OBJECT} ) {
+        $self->{OBJECT} = join(" ", @{$self->{OBJECT}}) if ref $self->{OBJECT};
+        $self->{OBJECT} =~ s!\.o(bj)?\b!\$(OBJ_EXT)!g;
+    } elsif ( $self->{MAGICXS} && @{$self->{O_FILES}||[]} ) {
+        $self->{OBJECT} = join(" ", @{$self->{O_FILES}});
+        $self->{OBJECT} =~ s!\.o(bj)?\b!\$(OBJ_EXT)!g;
+    } else {
+        # init_dirscan should have found out, if we have C files
+        $self->{OBJECT} = "";
+        $self->{OBJECT} = '$(BASEEXT)$(OBJ_EXT)' if @{$self->{C}||[]};
+    }
+    $self->{OBJECT} =~ s/\n+/ \\\n\t/g;
+
+    $self->{BOOTDEP}  = (-f "$self->{BASEEXT}_BS") ? "$self->{BASEEXT}_BS" : "";
+    $self->{PERLMAINCC} ||= '$(CC)';
+    $self->{LDFROM} = '$(OBJECT)' unless $self->{LDFROM};
+
+    # Sanity check: don't define LINKTYPE = dynamic if we're skipping
+    # the 'dynamic' section of MM.  We don't have this problem with
+    # 'static', since we either must use it (%Config says we can't
+    # use dynamic loading) or the caller asked for it explicitly.
+    if (!$self->{LINKTYPE}) {
+       $self->{LINKTYPE} = $self->{SKIPHASH}{'dynamic'}
+                        ? 'static'
+                        : ($Config{usedl} ? 'dynamic' : 'static');
+    }
+
+    return;
+}
+
+
+# Lets look at $self->{LIBS} carefully: It may be an anon array, a string or
+# undefined. In any case we turn it into an anon array
+sub _fix_libs {
+    my($self, $libs) = @_;
+
+    return !defined $libs       ? ['']          :
+           !ref $libs           ? [$libs]       :
+           !defined $libs->[0]  ? ['']          :
+                                  $libs         ;
+}
+
+
+=head3 tools_other
+
+    my $make_frag = $MM->tools_other;
+
+Returns a make fragment containing definitions for the macros init_others()
+initializes.
+
+=cut
+
+sub tools_other {
+    my($self) = shift;
+    my @m;
+
+    # We set PM_FILTER as late as possible so it can see all the earlier
+    # on macro-order sensitive makes such as nmake.
+    for my $tool (qw{ SHELL CHMOD CP MV NOOP NOECHO RM_F RM_RF TEST_F TOUCH
+                      UMASK_NULL DEV_NULL MKPATH EQUALIZE_TIMESTAMP
+                      FALSE TRUE
+                      ECHO ECHO_N
+                      UNINST VERBINST
+                      MOD_INSTALL DOC_INSTALL UNINSTALL
+                      WARN_IF_OLD_PACKLIST
+                      MACROSTART MACROEND
+                      USEMAKEFILE
+                      PM_FILTER
+                      FIXIN
+                      CP_NONEMPTY
+                    } )
+    {
+        next unless defined $self->{$tool};
+        push @m, "$tool = $self->{$tool}\n";
+    }
+
+    return join "", @m;
+}
+
+
+=head3 init_DIRFILESEP  I<Abstract>
+
+  $MM->init_DIRFILESEP;
+  my $dirfilesep = $MM->{DIRFILESEP};
+
+Initializes the DIRFILESEP macro which is the separator between the
+directory and filename in a filepath.  ie. / on Unix, \ on Win32 and
+nothing on VMS.
+
+For example:
+
+    # instead of $(INST_ARCHAUTODIR)/extralibs.ld
+    $(INST_ARCHAUTODIR)$(DIRFILESEP)extralibs.ld
+
+Something of a hack but it prevents a lot of code duplication between
+MM_* variants.
+
+Do not use this as a separator between directories.  Some operating
+systems use different separators between subdirectories as between
+directories and filenames (for example:  VOLUME:[dir1.dir2]file on VMS).
+
+=head3 init_linker  I<Abstract>
+
+    $mm->init_linker;
+
+Initialize macros which have to do with linking.
+
+PERL_ARCHIVE: path to libperl.a equivalent to be linked to dynamic
+extensions.
+
+PERL_ARCHIVE_AFTER: path to a library which should be put on the
+linker command line I<after> the external libraries to be linked to
+dynamic extensions.  This may be needed if the linker is one-pass, and
+Perl includes some overrides for C RTL functions, such as malloc().
+
+EXPORT_LIST: name of a file that is passed to linker to define symbols
+to be exported.
+
+Some OSes do not need these in which case leave it blank.
+
+
+=head3 init_platform
+
+    $mm->init_platform
+
+Initialize any macros which are for platform specific use only.
+
+A typical one is the version number of your OS specific module.
+(ie. MM_Unix_VERSION or MM_VMS_VERSION).
+
+=cut
+
+sub init_platform {
+    return '';
+}
+
+
+=head3 init_MAKE
+
+    $mm->init_MAKE
+
+Initialize MAKE from either a MAKE environment variable or $Config{make}.
+
+=cut
+
+sub init_MAKE {
+    my $self = shift;
+
+    $self->{MAKE} ||= $ENV{MAKE} || $Config{make};
+}
+
+
+=head2 Tools
+
+A grab bag of methods to generate specific macros and commands.
+
+
+
+=head3 manifypods
+
+Defines targets and routines to translate the pods into manpages and
+put them into the INST_* directories.
+
+=cut
+
+sub manifypods {
+    my $self          = shift;
+
+    my $POD2MAN_macro = $self->POD2MAN_macro();
+    my $manifypods_target = $self->manifypods_target();
+
+    return <<END_OF_TARGET;
+
+$POD2MAN_macro
+
+$manifypods_target
+
+END_OF_TARGET
+
+}
+
+
+=head3 POD2MAN_macro
+
+  my $pod2man_macro = $self->POD2MAN_macro
+
+Returns a definition for the POD2MAN macro.  This is a program
+which emulates the pod2man utility.  You can add more switches to the
+command by simply appending them on the macro.
+
+Typical usage:
+
+    $(POD2MAN) --section=3 --perm_rw=$(PERM_RW) podfile1 man_page1 ...
+
+=cut
+
+sub POD2MAN_macro {
+    my $self = shift;
+
+# Need the trailing '--' so perl stops gobbling arguments and - happens
+# to be an alternative end of line separator on VMS so we quote it
+    return <<'END_OF_DEF';
+POD2MAN_EXE = $(PERLRUN) "-MExtUtils::Command::MM" -e pod2man "--"
+POD2MAN = $(POD2MAN_EXE)
+END_OF_DEF
+}
+
+
+=head3 test_via_harness
+
+  my $command = $mm->test_via_harness($perl, $tests);
+
+Returns a $command line which runs the given set of $tests with
+Test::Harness and the given $perl.
+
+Used on the t/*.t files.
+
+=cut
+
+sub test_via_harness {
+    my($self, $perl, $tests) = @_;
+
+    return qq{\t$perl "-MExtUtils::Command::MM" "-MTest::Harness" }.
+           qq{"-e" "undef *Test::Harness::Switches; test_harness(\$(TEST_VERBOSE), '\$(INST_LIB)', '\$(INST_ARCHLIB)')" $tests\n};
+}
+
+=head3 test_via_script
+
+  my $command = $mm->test_via_script($perl, $script);
+
+Returns a $command line which just runs a single test without
+Test::Harness.  No checks are done on the results, they're just
+printed.
+
+Used for test.pl, since they don't always follow Test::Harness
+formatting.
+
+=cut
+
+sub test_via_script {
+    my($self, $perl, $script) = @_;
+    return qq{\t$perl "-I\$(INST_LIB)" "-I\$(INST_ARCHLIB)" $script\n};
+}
+
+
+=head3 tool_autosplit
+
+Defines a simple perl call that runs autosplit. May be deprecated by
+pm_to_blib soon.
+
+=cut
+
+sub tool_autosplit {
+    my($self, %attribs) = @_;
+
+    my $maxlen = $attribs{MAXLEN} ? '$$AutoSplit::Maxlen=$attribs{MAXLEN};'
+                                  : '';
+
+    my $asplit = $self->oneliner(sprintf <<'PERL_CODE', $maxlen);
+use AutoSplit; %s autosplit($$ARGV[0], $$ARGV[1], 0, 1, 1)
+PERL_CODE
+
+    return sprintf <<'MAKE_FRAG', $asplit;
+# Usage: $(AUTOSPLITFILE) FileToSplit AutoDirToSplitInto
+AUTOSPLITFILE = %s
+
+MAKE_FRAG
+
+}
+
+
+=head3 arch_check
+
+    my $arch_ok = $mm->arch_check(
+        $INC{"Config.pm"},
+        File::Spec->catfile($Config{archlibexp}, "Config.pm")
+    );
+
+A sanity check that what Perl thinks the architecture is and what
+Config thinks the architecture is are the same.  If they're not it
+will return false and show a diagnostic message.
+
+When building Perl it will always return true, as nothing is installed
+yet.
+
+The interface is a bit odd because this is the result of a
+quick refactoring.  Don't rely on it.
+
+=cut
+
+sub arch_check {
+    my $self = shift;
+    my($pconfig, $cconfig) = @_;
+
+    return 1 if $self->{PERL_SRC};
+
+    my($pvol, $pthinks) = $self->splitpath($pconfig);
+    my($cvol, $cthinks) = $self->splitpath($cconfig);
+
+    $pthinks = $self->canonpath($pthinks);
+    $cthinks = $self->canonpath($cthinks);
+
+    my $ret = 1;
+    if ($pthinks ne $cthinks) {
+        print "Have $pthinks\n";
+        print "Want $cthinks\n";
+
+        $ret = 0;
+
+        my $arch = (grep length, $self->splitdir($pthinks))[-1];
+
+        print <<END unless $self->{UNINSTALLED_PERL};
+Your perl and your Config.pm seem to have different ideas about the
+architecture they are running on.
+Perl thinks: [$arch]
+Config says: [$Config{archname}]
+This may or may not cause problems. Please check your installation of perl
+if you have problems building this extension.
+END
+    }
+
+    return $ret;
+}
+
+
+
+=head2 File::Spec wrappers
+
+ExtUtils::MM_Any is a subclass of File::Spec.  The methods noted here
+override File::Spec.
+
+
+
+=head3 catfile
+
+File::Spec <= 0.83 has a bug where the file part of catfile is not
+canonicalized.  This override fixes that bug.
+
+=cut
+
+sub catfile {
+    my $self = shift;
+    return $self->canonpath($self->SUPER::catfile(@_));
+}
+
+
+
+=head2 Misc
+
+Methods I can't really figure out where they should go yet.
+
+
+=head3 find_tests
+
+  my $test = $mm->find_tests;
+
+Returns a string suitable for feeding to the shell to return all
+tests in t/*.t.
+
+=cut
+
+sub find_tests {
+    my($self) = shift;
+    return -d 't' ? 't/*.t' : '';
+}
+
+=head3 find_tests_recursive
+
+  my $tests = $mm->find_tests_recursive;
+
+Returns a string suitable for feeding to the shell to return all
+tests in t/ but recursively.
+
+=cut
+
+sub find_tests_recursive {
+    my($self) = shift;
+    return '' unless -d 't';
+
+    require File::Find;
+
+    my %testfiles;
+
+    my $wanted = sub {
+        return unless m!\.t$!;
+        my ($volume,$directories,$file) =
+            File::Spec->splitpath( $File::Find::name  );
+        my @dirs = File::Spec->splitdir( $directories );
+        for ( @dirs ) {
+          next if $_ eq 't';
+          unless ( $_ ) {
+            $_ = '*.t';
+            next;
+          }
+          $_ = '*';
+        }
+        my $testfile = join '/', @dirs;
+        $testfiles{ $testfile } = 1;
+    };
+
+    File::Find::find( $wanted, 't' );
+
+    return join ' ', sort keys %testfiles;
+}
+
+=head3 extra_clean_files
+
+    my @files_to_clean = $MM->extra_clean_files;
+
+Returns a list of OS specific files to be removed in the clean target in
+addition to the usual set.
+
+=cut
+
+# An empty method here tickled a perl 5.8.1 bug and would return its object.
+sub extra_clean_files {
+    return;
+}
+
+
+=head3 installvars
+
+    my @installvars = $mm->installvars;
+
+A list of all the INSTALL* variables without the INSTALL prefix.  Useful
+for iteration or building related variable sets.
+
+=cut
+
+sub installvars {
+    return qw(PRIVLIB SITELIB  VENDORLIB
+              ARCHLIB SITEARCH VENDORARCH
+              BIN     SITEBIN  VENDORBIN
+              SCRIPT  SITESCRIPT  VENDORSCRIPT
+              MAN1DIR SITEMAN1DIR VENDORMAN1DIR
+              MAN3DIR SITEMAN3DIR VENDORMAN3DIR
+             );
+}
+
+
+=head3 libscan
+
+  my $wanted = $self->libscan($path);
+
+Takes a path to a file or dir and returns an empty string if we don't
+want to include this file in the library.  Otherwise it returns the
+the $path unchanged.
+
+Mainly used to exclude version control administrative directories from
+installation.
+
+=cut
+
+sub libscan {
+    my($self,$path) = @_;
+    my($dirs,$file) = ($self->splitpath($path))[1,2];
+    return '' if grep /^(?:RCS|CVS|SCCS|\.svn|_darcs)$/,
+                     $self->splitdir($dirs), $file;
+
+    return $path;
+}
+
+
+=head3 platform_constants
+
+    my $make_frag = $mm->platform_constants
+
+Returns a make fragment defining all the macros initialized in
+init_platform() rather than put them in constants().
+
+=cut
+
+sub platform_constants {
+    return '';
+}
+
+=begin private
+
+=head3 _PREREQ_PRINT
+
+    $self->_PREREQ_PRINT;
+
+Implements PREREQ_PRINT.
+
+Refactored out of MakeMaker->new().
+
+=end private
+
+=cut
+
+sub _PREREQ_PRINT {
+    my $self = shift;
+
+    require Data::Dumper;
+    my @what = ('PREREQ_PM');
+    push @what, 'MIN_PERL_VERSION' if $self->{MIN_PERL_VERSION};
+    push @what, 'BUILD_REQUIRES'   if $self->{BUILD_REQUIRES};
+    print Data::Dumper->Dump([@{$self}{@what}], \@what);
+    exit 0;
+}
+
+
+=begin private
+
+=head3 _PRINT_PREREQ
+
+  $mm->_PRINT_PREREQ;
+
+Implements PRINT_PREREQ, a slightly different version of PREREQ_PRINT
+added by Redhat to, I think, support generating RPMs from Perl modules.
+
+Should not include BUILD_REQUIRES as RPMs do not incluide them.
+
+Refactored out of MakeMaker->new().
+
+=end private
+
+=cut
+
+sub _PRINT_PREREQ {
+    my $self = shift;
+
+    my $prereqs= $self->{PREREQ_PM};
+    my @prereq = map { [$_, $prereqs->{$_}] } keys %$prereqs;
+
+    if ( $self->{MIN_PERL_VERSION} ) {
+        push @prereq, ['perl' => $self->{MIN_PERL_VERSION}];
+    }
+
+    print join(" ", map { "perl($_->[0])>=$_->[1] " }
+                 sort { $a->[0] cmp $b->[0] } @prereq), "\n";
+    exit 0;
+}
+
+
+=begin private
+
+=head3 _all_prereqs
+
+  my $prereqs = $self->_all_prereqs;
+
+Returns a hash ref of both PREREQ_PM and BUILD_REQUIRES.
+
+=end private
+
+=cut
+
+sub _all_prereqs {
+    my $self = shift;
+
+    return { %{$self->{PREREQ_PM}}, %{$self->{BUILD_REQUIRES}} };
+}
+
+=begin private
+
+=head3 _perl_header_files
+
+  my $perl_header_files= $self->_perl_header_files;
+
+returns a sorted list of header files as found in PERL_SRC or $archlibexp/CORE.
+
+Used by perldepend() in MM_Unix and MM_VMS via _perl_header_files_fragment()
+
+=end private
+
+=cut
+
+sub _perl_header_files {
+    my $self = shift;
+
+    my $header_dir = $self->{PERL_SRC} || $ENV{PERL_SRC} || $self->catdir($Config{archlibexp}, 'CORE');
+    opendir my $dh, $header_dir
+        or die "Failed to opendir '$header_dir' to find header files: $!";
+
+    # we need to use a temporary here as the sort in scalar context would have undefined results.
+    my @perl_headers= sort grep { /\.h\z/ } readdir($dh);
+
+    closedir $dh;
+
+    return @perl_headers;
+}
+
+=begin private
+
+=head3 _perl_header_files_fragment ($o, $separator)
+
+  my $perl_header_files_fragment= $self->_perl_header_files_fragment("/");
+
+return a Makefile fragment which holds the list of perl header files which
+XS code depends on $(PERL_INC), and sets up the dependency for the $(OBJECT) file.
+
+The $separator argument defaults to "". MM_VMS will set it to "" and MM_UNIX to "/"
+in perldepend(). This reason child subclasses need to control this is that in
+VMS the $(PERL_INC) directory will already have delimiters in it, but in
+UNIX $(PERL_INC) will need a slash between it an the filename. Hypothetically
+win32 could use "\\" (but it doesn't need to).
+
+=end private
+
+=cut
+
+sub _perl_header_files_fragment {
+    my ($self, $separator)= @_;
+    $separator ||= "";
+    return join("\\\n",
+                "PERL_HDRS = ",
+                map {
+                    sprintf( "        \$(PERL_INCDEP)%s%s            ", $separator, $_ )
+                } $self->_perl_header_files()
+           ) . "\n\n"
+           . "\$(OBJECT) : \$(PERL_HDRS)\n";
+}
+
+
+=head1 AUTHOR
+
+Michael G Schwern <schwern@pobox.com> and the denizens of
+makemaker@perl.org with code from ExtUtils::MM_Unix and
+ExtUtils::MM_Win32.
+
+
+=cut
+
+1;
diff --git a/lib/5.24.1/ExtUtils/MM_BeOS.pm b/lib/5.24.1/ExtUtils/MM_BeOS.pm
new file mode 100644
index 00000000..3015f2dd
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/MM_BeOS.pm
@@ -0,0 +1,62 @@
+package ExtUtils::MM_BeOS;
+
+use strict;
+
+=head1 NAME
+
+ExtUtils::MM_BeOS - methods to override UN*X behaviour in ExtUtils::MakeMaker
+
+=head1 SYNOPSIS
+
+ use ExtUtils::MM_BeOS;	# Done internally by ExtUtils::MakeMaker if needed
+
+=head1 DESCRIPTION
+
+See ExtUtils::MM_Unix for a documentation of the methods provided
+there. This package overrides the implementation of these methods, not
+the semantics.
+
+=over 4
+
+=cut
+
+use ExtUtils::MakeMaker::Config;
+use File::Spec;
+require ExtUtils::MM_Any;
+require ExtUtils::MM_Unix;
+
+our @ISA = qw( ExtUtils::MM_Any ExtUtils::MM_Unix );
+our $VERSION = '7.10_02';
+
+
+=item os_flavor
+
+BeOS is BeOS.
+
+=cut
+
+sub os_flavor {
+    return('BeOS');
+}
+
+=item init_linker
+
+libperl.a equivalent to be linked to dynamic extensions.
+
+=cut
+
+sub init_linker {
+    my($self) = shift;
+
+    $self->{PERL_ARCHIVE} ||=
+      File::Spec->catdir('$(PERL_INC)',$Config{libperl});
+    $self->{PERL_ARCHIVEDEP} ||= '';
+    $self->{PERL_ARCHIVE_AFTER} ||= '';
+    $self->{EXPORT_LIST}  ||= '';
+}
+
+=back
+
+1;
+__END__
+
diff --git a/lib/5.24.1/ExtUtils/MM_Cygwin.pm b/lib/5.24.1/ExtUtils/MM_Cygwin.pm
new file mode 100644
index 00000000..659d430f
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/MM_Cygwin.pm
@@ -0,0 +1,159 @@
+package ExtUtils::MM_Cygwin;
+
+use strict;
+
+use ExtUtils::MakeMaker::Config;
+use File::Spec;
+
+require ExtUtils::MM_Unix;
+require ExtUtils::MM_Win32;
+our @ISA = qw( ExtUtils::MM_Unix );
+
+our $VERSION = '7.10_02';
+
+
+=head1 NAME
+
+ExtUtils::MM_Cygwin - methods to override UN*X behaviour in ExtUtils::MakeMaker
+
+=head1 SYNOPSIS
+
+ use ExtUtils::MM_Cygwin; # Done internally by ExtUtils::MakeMaker if needed
+
+=head1 DESCRIPTION
+
+See ExtUtils::MM_Unix for a documentation of the methods provided there.
+
+=over 4
+
+=item os_flavor
+
+We're Unix and Cygwin.
+
+=cut
+
+sub os_flavor {
+    return('Unix', 'Cygwin');
+}
+
+=item cflags
+
+if configured for dynamic loading, triggers #define EXT in EXTERN.h
+
+=cut
+
+sub cflags {
+    my($self,$libperl)=@_;
+    return $self->{CFLAGS} if $self->{CFLAGS};
+    return '' unless $self->needs_linking();
+
+    my $base = $self->SUPER::cflags($libperl);
+    foreach (split /\n/, $base) {
+        /^(\S*)\s*=\s*(\S*)$/ and $self->{$1} = $2;
+    };
+    $self->{CCFLAGS} .= " -DUSEIMPORTLIB" if ($Config{useshrplib} eq 'true');
+
+    return $self->{CFLAGS} = qq{
+CCFLAGS = $self->{CCFLAGS}
+OPTIMIZE = $self->{OPTIMIZE}
+PERLTYPE = $self->{PERLTYPE}
+};
+
+}
+
+
+=item replace_manpage_separator
+
+replaces strings '::' with '.' in MAN*POD man page names
+
+=cut
+
+sub replace_manpage_separator {
+    my($self, $man) = @_;
+    $man =~ s{/+}{.}g;
+    return $man;
+}
+
+=item init_linker
+
+points to libperl.a
+
+=cut
+
+sub init_linker {
+    my $self = shift;
+
+    if ($Config{useshrplib} eq 'true') {
+        my $libperl = '$(PERL_INC)' .'/'. "$Config{libperl}";
+        if( $] >= 5.006002 ) {
+            $libperl =~ s/a$/dll.a/;
+        }
+        $self->{PERL_ARCHIVE} = $libperl;
+    } else {
+        $self->{PERL_ARCHIVE} =
+          '$(PERL_INC)' .'/'. ("$Config{libperl}" or "libperl.a");
+    }
+
+    $self->{PERL_ARCHIVEDEP} ||= '';
+    $self->{PERL_ARCHIVE_AFTER} ||= '';
+    $self->{EXPORT_LIST}  ||= '';
+}
+
+=item maybe_command
+
+Determine whether a file is native to Cygwin by checking whether it
+resides inside the Cygwin installation (using Windows paths). If so,
+use C<ExtUtils::MM_Unix> to determine if it may be a command.
+Otherwise use the tests from C<ExtUtils::MM_Win32>.
+
+=cut
+
+sub maybe_command {
+    my ($self, $file) = @_;
+
+    my $cygpath = Cygwin::posix_to_win_path('/', 1);
+    my $filepath = Cygwin::posix_to_win_path($file, 1);
+
+    return (substr($filepath,0,length($cygpath)) eq $cygpath)
+    ? $self->SUPER::maybe_command($file) # Unix
+    : ExtUtils::MM_Win32->maybe_command($file); # Win32
+}
+
+=item dynamic_lib
+
+Use the default to produce the *.dll's.
+But for new archdir dll's use the same rebase address if the old exists.
+
+=cut
+
+sub dynamic_lib {
+    my($self, %attribs) = @_;
+    my $s = ExtUtils::MM_Unix::dynamic_lib($self, %attribs);
+    my $ori = "$self->{INSTALLARCHLIB}/auto/$self->{FULLEXT}/$self->{BASEEXT}.$self->{DLEXT}";
+    if (-e $ori) {
+        my $imagebase = `/bin/objdump -p $ori | /bin/grep ImageBase | /bin/cut -c12-`;
+        chomp $imagebase;
+        if ($imagebase gt "40000000") {
+            my $LDDLFLAGS = $self->{LDDLFLAGS};
+            $LDDLFLAGS =~ s/-Wl,--enable-auto-image-base/-Wl,--image-base=0x$imagebase/;
+            $s =~ s/ \$\(LDDLFLAGS\) / $LDDLFLAGS /m;
+        }
+    }
+    $s;
+}
+
+=item all_target
+
+Build man pages, too
+
+=cut
+
+sub all_target {
+    ExtUtils::MM_Unix::all_target(shift);
+}
+
+=back
+
+=cut
+
+1;
diff --git a/lib/5.24.1/ExtUtils/MM_DOS.pm b/lib/5.24.1/ExtUtils/MM_DOS.pm
new file mode 100644
index 00000000..e89c632c
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/MM_DOS.pm
@@ -0,0 +1,65 @@
+package ExtUtils::MM_DOS;
+
+use strict;
+
+our $VERSION = '7.10_02';
+
+require ExtUtils::MM_Any;
+require ExtUtils::MM_Unix;
+our @ISA = qw( ExtUtils::MM_Any ExtUtils::MM_Unix );
+
+
+=head1 NAME
+
+ExtUtils::MM_DOS - DOS specific subclass of ExtUtils::MM_Unix
+
+=head1 SYNOPSIS
+
+  Don't use this module directly.
+  Use ExtUtils::MM and let it choose.
+
+=head1 DESCRIPTION
+
+This is a subclass of ExtUtils::MM_Unix which contains functionality
+for DOS.
+
+Unless otherwise stated, it works just like ExtUtils::MM_Unix
+
+=head2 Overridden methods
+
+=over 4
+
+=item os_flavor
+
+=cut
+
+sub os_flavor {
+    return('DOS');
+}
+
+=item B<replace_manpage_separator>
+
+Generates Foo__Bar.3 style man page names
+
+=cut
+
+sub replace_manpage_separator {
+    my($self, $man) = @_;
+
+    $man =~ s,/+,__,g;
+    return $man;
+}
+
+=back
+
+=head1 AUTHOR
+
+Michael G Schwern <schwern@pobox.com> with code from ExtUtils::MM_Unix
+
+=head1 SEE ALSO
+
+L<ExtUtils::MM_Unix>, L<ExtUtils::MakeMaker>
+
+=cut
+
+1;
diff --git a/lib/5.24.1/ExtUtils/MM_Darwin.pm b/lib/5.24.1/ExtUtils/MM_Darwin.pm
new file mode 100644
index 00000000..b6e7c5b8
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/MM_Darwin.pm
@@ -0,0 +1,47 @@
+package ExtUtils::MM_Darwin;
+
+use strict;
+
+BEGIN {
+    require ExtUtils::MM_Unix;
+    our @ISA = qw( ExtUtils::MM_Unix );
+}
+
+our $VERSION = '7.10_02';
+
+
+=head1 NAME
+
+ExtUtils::MM_Darwin - special behaviors for OS X
+
+=head1 SYNOPSIS
+
+    For internal MakeMaker use only
+
+=head1 DESCRIPTION
+
+See L<ExtUtils::MM_Unix> for L<ExtUtils::MM_Any> for documentation on the
+methods overridden here.
+
+=head2 Overriden Methods
+
+=head3 init_dist
+
+Turn off Apple tar's tendency to copy resource forks as "._foo" files.
+
+=cut
+
+sub init_dist {
+    my $self = shift;
+
+    # Thank you, Apple, for breaking tar and then breaking the work around.
+    # 10.4 wants COPY_EXTENDED_ATTRIBUTES_DISABLE while 10.5 wants
+    # COPYFILE_DISABLE.  I'm not going to push my luck and instead just
+    # set both.
+    $self->{TAR} ||=
+        'COPY_EXTENDED_ATTRIBUTES_DISABLE=1 COPYFILE_DISABLE=1 tar';
+
+    $self->SUPER::init_dist(@_);
+}
+
+1;
diff --git a/lib/5.24.1/ExtUtils/MM_MacOS.pm b/lib/5.24.1/ExtUtils/MM_MacOS.pm
new file mode 100644
index 00000000..7323bf12
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/MM_MacOS.pm
@@ -0,0 +1,33 @@
+package ExtUtils::MM_MacOS;
+
+use strict;
+
+our $VERSION = '7.10_02';
+
+sub new {
+    die 'MacOS Classic (MacPerl) is no longer supported by MakeMaker';
+}
+
+=head1 NAME
+
+ExtUtils::MM_MacOS - once produced Makefiles for MacOS Classic
+
+=head1 SYNOPSIS
+
+  # MM_MacOS no longer contains any code.  This is just a stub.
+
+=head1 DESCRIPTION
+
+Once upon a time, MakeMaker could produce an approximation of a correct
+Makefile on MacOS Classic (MacPerl).  Due to a lack of maintainers, this
+fell out of sync with the rest of MakeMaker and hadn't worked in years.
+Since there's little chance of it being repaired, MacOS Classic is fading
+away, and the code was icky to begin with, the code has been deleted to
+make maintenance easier.
+
+Anyone interested in resurrecting this file should pull the old version
+from the MakeMaker CVS repository and contact makemaker@perl.org.
+
+=cut
+
+1;
diff --git a/lib/5.24.1/ExtUtils/MM_NW5.pm b/lib/5.24.1/ExtUtils/MM_NW5.pm
new file mode 100644
index 00000000..967b5d4c
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/MM_NW5.pm
@@ -0,0 +1,269 @@
+package ExtUtils::MM_NW5;
+
+=head1 NAME
+
+ExtUtils::MM_NW5 - methods to override UN*X behaviour in ExtUtils::MakeMaker
+
+=head1 SYNOPSIS
+
+ use ExtUtils::MM_NW5; # Done internally by ExtUtils::MakeMaker if needed
+
+=head1 DESCRIPTION
+
+See ExtUtils::MM_Unix for a documentation of the methods provided
+there. This package overrides the implementation of these methods, not
+the semantics.
+
+=over
+
+=cut
+
+use strict;
+use ExtUtils::MakeMaker::Config;
+use File::Basename;
+
+our $VERSION = '7.10_02';
+
+require ExtUtils::MM_Win32;
+our @ISA = qw(ExtUtils::MM_Win32);
+
+use ExtUtils::MakeMaker qw( &neatvalue );
+
+$ENV{EMXSHELL} = 'sh'; # to run `commands`
+
+my $BORLAND  = $Config{'cc'} =~ /^bcc/i;
+my $GCC      = $Config{'cc'} =~ /^gcc/i;
+
+
+=item os_flavor
+
+We're Netware in addition to being Windows.
+
+=cut
+
+sub os_flavor {
+    my $self = shift;
+    return ($self->SUPER::os_flavor, 'Netware');
+}
+
+=item init_platform
+
+Add Netware macros.
+
+LIBPTH, BASE_IMPORT, NLM_VERSION, MPKTOOL, TOOLPATH, BOOT_SYMBOL,
+NLM_SHORT_NAME, INCLUDE, PATH, MM_NW5_REVISION
+
+
+=item platform_constants
+
+Add Netware macros initialized above to the Makefile.
+
+=cut
+
+sub init_platform {
+    my($self) = shift;
+
+    # To get Win32's setup.
+    $self->SUPER::init_platform;
+
+    # incpath is copied to makefile var INCLUDE in constants sub, here just
+    # make it empty
+    my $libpth = $Config{'libpth'};
+    $libpth =~ s( )(;);
+    $self->{'LIBPTH'} = $libpth;
+
+    $self->{'BASE_IMPORT'} = $Config{'base_import'};
+
+    # Additional import file specified from Makefile.pl
+    if($self->{'base_import'}) {
+        $self->{'BASE_IMPORT'} .= ', ' . $self->{'base_import'};
+    }
+
+    $self->{'NLM_VERSION'} = $Config{'nlm_version'};
+    $self->{'MPKTOOL'}	= $Config{'mpktool'};
+    $self->{'TOOLPATH'}	= $Config{'toolpath'};
+
+    (my $boot = $self->{'NAME'}) =~ s/:/_/g;
+    $self->{'BOOT_SYMBOL'}=$boot;
+
+    # If the final binary name is greater than 8 chars,
+    # truncate it here.
+    if(length($self->{'BASEEXT'}) > 8) {
+        $self->{'NLM_SHORT_NAME'} = substr($self->{'BASEEXT'},0,8);
+    }
+
+    # Get the include path and replace the spaces with ;
+    # Copy this to makefile as INCLUDE = d:\...;d:\;
+    ($self->{INCLUDE} = $Config{'incpath'}) =~ s/([ ]*)-I/;/g;
+
+    # Set the path to CodeWarrior binaries which might not have been set in
+    # any other place
+    $self->{PATH} = '$(PATH);$(TOOLPATH)';
+
+    $self->{MM_NW5_VERSION} = $VERSION;
+}
+
+sub platform_constants {
+    my($self) = shift;
+    my $make_frag = '';
+
+    # Setup Win32's constants.
+    $make_frag .= $self->SUPER::platform_constants;
+
+    foreach my $macro (qw(LIBPTH BASE_IMPORT NLM_VERSION MPKTOOL
+                          TOOLPATH BOOT_SYMBOL NLM_SHORT_NAME INCLUDE PATH
+                          MM_NW5_VERSION
+                      ))
+    {
+        next unless defined $self->{$macro};
+        $make_frag .= "$macro = $self->{$macro}\n";
+    }
+
+    return $make_frag;
+}
+
+
+=item const_cccmd
+
+=cut
+
+sub const_cccmd {
+    my($self,$libperl)=@_;
+    return $self->{CONST_CCCMD} if $self->{CONST_CCCMD};
+    return '' unless $self->needs_linking();
+    return $self->{CONST_CCCMD} = <<'MAKE_FRAG';
+CCCMD = $(CC) $(CCFLAGS) $(INC) $(OPTIMIZE) \
+	$(PERLTYPE) $(MPOLLUTE) -o $@ \
+	-DVERSION=\"$(VERSION)\" -DXS_VERSION=\"$(XS_VERSION)\"
+MAKE_FRAG
+
+}
+
+
+=item static_lib
+
+=cut
+
+sub static_lib {
+    my($self) = @_;
+
+    return '' unless $self->has_link_code;
+
+    my $m = <<'END';
+$(INST_STATIC): $(OBJECT) $(MYEXTLIB) $(INST_ARCHAUTODIR)$(DFSEP).exists
+	$(RM_RF) $@
+END
+
+    # If this extension has it's own library (eg SDBM_File)
+    # then copy that to $(INST_STATIC) and add $(OBJECT) into it.
+    $m .= <<'END'  if $self->{MYEXTLIB};
+	$self->{CP} $(MYEXTLIB) $@
+END
+
+    my $ar_arg;
+    if( $BORLAND ) {
+        $ar_arg = '$@ $(OBJECT:^"+")';
+    }
+    elsif( $GCC ) {
+        $ar_arg = '-ru $@ $(OBJECT)';
+    }
+    else {
+        $ar_arg = '-type library -o $@ $(OBJECT)';
+    }
+
+    $m .= sprintf <<'END', $ar_arg;
+	$(AR) %s
+	$(NOECHO) $(ECHO) "$(EXTRALIBS)" > $(INST_ARCHAUTODIR)\extralibs.ld
+	$(CHMOD) 755 $@
+END
+
+    $m .= <<'END' if $self->{PERL_SRC};
+	$(NOECHO) $(ECHO) "$(EXTRALIBS)" >> $(PERL_SRC)\ext.libs
+
+
+END
+    return $m;
+}
+
+=item dynamic_lib
+
+Defines how to produce the *.so (or equivalent) files.
+
+=cut
+
+sub dynamic_lib {
+    my($self, %attribs) = @_;
+    return '' unless $self->needs_linking(); #might be because of a subdir
+
+    return '' unless $self->has_link_code;
+
+    my($otherldflags) = $attribs{OTHERLDFLAGS} || ($BORLAND ? 'c0d32.obj': '');
+    my($inst_dynamic_dep) = $attribs{INST_DYNAMIC_DEP} || "";
+    my($ldfrom) = '$(LDFROM)';
+
+    (my $boot = $self->{NAME}) =~ s/:/_/g;
+
+    my $m = <<'MAKE_FRAG';
+# This section creates the dynamically loadable $(INST_DYNAMIC)
+# from $(OBJECT) and possibly $(MYEXTLIB).
+OTHERLDFLAGS = '.$otherldflags.'
+INST_DYNAMIC_DEP = '.$inst_dynamic_dep.'
+
+# Create xdc data for an MT safe NLM in case of mpk build
+$(INST_DYNAMIC): $(OBJECT) $(MYEXTLIB) $(BOOTSTRAP) $(INST_ARCHAUTODIR)$(DFSEP).exists
+	$(NOECHO) $(ECHO) Export boot_$(BOOT_SYMBOL) > $(BASEEXT).def
+	$(NOECHO) $(ECHO) $(BASE_IMPORT) >> $(BASEEXT).def
+	$(NOECHO) $(ECHO) Import @$(PERL_INC)\perl.imp >> $(BASEEXT).def
+MAKE_FRAG
+
+
+    if ( $self->{CCFLAGS} =~ m/ -DMPK_ON /) {
+        $m .= <<'MAKE_FRAG';
+	$(MPKTOOL) $(XDCFLAGS) $(BASEEXT).xdc
+	$(NOECHO) $(ECHO) xdcdata $(BASEEXT).xdc >> $(BASEEXT).def
+MAKE_FRAG
+    }
+
+    # Reconstruct the X.Y.Z version.
+    my $version = join '.', map { sprintf "%d", $_ }
+                              $] =~ /(\d)\.(\d{3})(\d{2})/;
+    $m .= sprintf '	$(LD) $(LDFLAGS) $(OBJECT:.obj=.obj) -desc "Perl %s Extension ($(BASEEXT))  XS_VERSION: $(XS_VERSION)" -nlmversion $(NLM_VERSION)', $version;
+
+    # Taking care of long names like FileHandle, ByteLoader, SDBM_File etc
+    if($self->{NLM_SHORT_NAME}) {
+        # In case of nlms with names exceeding 8 chars, build nlm in the
+        # current dir, rename and move to auto\lib.
+        $m .= q{ -o $(NLM_SHORT_NAME).$(DLEXT)}
+    } else {
+        $m .= q{ -o $(INST_AUTODIR)\\$(BASEEXT).$(DLEXT)}
+    }
+
+    # Add additional lib files if any (SDBM_File)
+    $m .= q{ $(MYEXTLIB) } if $self->{MYEXTLIB};
+
+    $m .= q{ $(PERL_INC)\Main.lib -commandfile $(BASEEXT).def}."\n";
+
+    if($self->{NLM_SHORT_NAME}) {
+        $m .= <<'MAKE_FRAG';
+	if exist $(INST_AUTODIR)\$(NLM_SHORT_NAME).$(DLEXT) del $(INST_AUTODIR)\$(NLM_SHORT_NAME).$(DLEXT)
+	move $(NLM_SHORT_NAME).$(DLEXT) $(INST_AUTODIR)
+MAKE_FRAG
+    }
+
+    $m .= <<'MAKE_FRAG';
+
+	$(CHMOD) 755 $@
+MAKE_FRAG
+
+    return $m;
+}
+
+
+1;
+__END__
+
+=back
+
+=cut
+
+
diff --git a/lib/5.24.1/ExtUtils/MM_OS2.pm b/lib/5.24.1/ExtUtils/MM_OS2.pm
new file mode 100644
index 00000000..598087ca
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/MM_OS2.pm
@@ -0,0 +1,153 @@
+package ExtUtils::MM_OS2;
+
+use strict;
+
+use ExtUtils::MakeMaker qw(neatvalue);
+use File::Spec;
+
+our $VERSION = '7.10_02';
+
+require ExtUtils::MM_Any;
+require ExtUtils::MM_Unix;
+our @ISA = qw(ExtUtils::MM_Any ExtUtils::MM_Unix);
+
+=pod
+
+=head1 NAME
+
+ExtUtils::MM_OS2 - methods to override UN*X behaviour in ExtUtils::MakeMaker
+
+=head1 SYNOPSIS
+
+ use ExtUtils::MM_OS2; # Done internally by ExtUtils::MakeMaker if needed
+
+=head1 DESCRIPTION
+
+See ExtUtils::MM_Unix for a documentation of the methods provided
+there. This package overrides the implementation of these methods, not
+the semantics.
+
+=head1 METHODS
+
+=over 4
+
+=item init_dist
+
+Define TO_UNIX to convert OS2 linefeeds to Unix style.
+
+=cut
+
+sub init_dist {
+    my($self) = @_;
+
+    $self->{TO_UNIX} ||= <<'MAKE_TEXT';
+$(NOECHO) $(TEST_F) tmp.zip && $(RM_F) tmp.zip; $(ZIP) -ll -mr tmp.zip $(DISTVNAME) && unzip -o tmp.zip && $(RM_F) tmp.zip
+MAKE_TEXT
+
+    $self->SUPER::init_dist;
+}
+
+sub dlsyms {
+    my($self,%attribs) = @_;
+
+    my($funcs) = $attribs{DL_FUNCS} || $self->{DL_FUNCS} || {};
+    my($vars)  = $attribs{DL_VARS} || $self->{DL_VARS} || [];
+    my($funclist) = $attribs{FUNCLIST} || $self->{FUNCLIST} || [];
+    my($imports)  = $attribs{IMPORTS} || $self->{IMPORTS} || {};
+    my(@m);
+    (my $boot = $self->{NAME}) =~ s/:/_/g;
+
+    if (not $self->{SKIPHASH}{'dynamic'}) {
+	push(@m,"
+$self->{BASEEXT}.def: Makefile.PL
+",
+     '	$(PERL) "-I$(PERL_ARCHLIB)" "-I$(PERL_LIB)" -e \'use ExtUtils::Mksymlists; \\
+     Mksymlists("NAME" => "$(NAME)", "DLBASE" => "$(DLBASE)", ',
+     '"VERSION" => "$(VERSION)", "DISTNAME" => "$(DISTNAME)", ',
+     '"INSTALLDIRS" => "$(INSTALLDIRS)", ',
+     '"DL_FUNCS" => ',neatvalue($funcs),
+     ', "FUNCLIST" => ',neatvalue($funclist),
+     ', "IMPORTS" => ',neatvalue($imports),
+     ', "DL_VARS" => ', neatvalue($vars), ');\'
+');
+    }
+    if ($self->{IMPORTS} && %{$self->{IMPORTS}}) {
+	# Make import files (needed for static build)
+	-d 'tmp_imp' or mkdir 'tmp_imp', 0777 or die "Can't mkdir tmp_imp";
+	open my $imp, '>', 'tmpimp.imp' or die "Can't open tmpimp.imp";
+	while (my($name, $exp) = each %{$self->{IMPORTS}}) {
+	    my ($lib, $id) = ($exp =~ /(.*)\.(.*)/) or die "Malformed IMPORT `$exp'";
+	    print $imp "$name $lib $id ?\n";
+	}
+	close $imp or die "Can't close tmpimp.imp";
+	# print "emximp -o tmpimp$Config::Config{lib_ext} tmpimp.imp\n";
+	system "emximp -o tmpimp$Config::Config{lib_ext} tmpimp.imp"
+	    and die "Cannot make import library: $!, \$?=$?";
+	# May be running under miniperl, so have no glob...
+	eval { unlink <tmp_imp/*>; 1 } or system "rm tmp_imp/*";
+	system "cd tmp_imp; $Config::Config{ar} x ../tmpimp$Config::Config{lib_ext}"
+	    and die "Cannot extract import objects: $!, \$?=$?";
+    }
+    join('',@m);
+}
+
+sub static_lib {
+    my($self) = @_;
+    my $old = $self->ExtUtils::MM_Unix::static_lib();
+    return $old unless $self->{IMPORTS} && %{$self->{IMPORTS}};
+
+    my @chunks = split /\n{2,}/, $old;
+    shift @chunks unless length $chunks[0]; # Empty lines at the start
+    $chunks[0] .= <<'EOC';
+
+	$(AR) $(AR_STATIC_ARGS) $@ tmp_imp/* && $(RANLIB) $@
+EOC
+    return join "\n\n". '', @chunks;
+}
+
+sub replace_manpage_separator {
+    my($self,$man) = @_;
+    $man =~ s,/+,.,g;
+    $man;
+}
+
+sub maybe_command {
+    my($self,$file) = @_;
+    $file =~ s,[/\\]+,/,g;
+    return $file if -x $file && ! -d _;
+    return "$file.exe" if -x "$file.exe" && ! -d _;
+    return "$file.cmd" if -x "$file.cmd" && ! -d _;
+    return;
+}
+
+=item init_linker
+
+=cut
+
+sub init_linker {
+    my $self = shift;
+
+    $self->{PERL_ARCHIVE} = "\$(PERL_INC)/libperl\$(LIB_EXT)";
+
+    $self->{PERL_ARCHIVEDEP} ||= '';
+    $self->{PERL_ARCHIVE_AFTER} = $OS2::is_aout
+      ? ''
+      : '$(PERL_INC)/libperl_override$(LIB_EXT)';
+    $self->{EXPORT_LIST} = '$(BASEEXT).def';
+}
+
+=item os_flavor
+
+OS/2 is OS/2
+
+=cut
+
+sub os_flavor {
+    return('OS/2');
+}
+
+=back
+
+=cut
+
+1;
diff --git a/lib/5.24.1/ExtUtils/MM_QNX.pm b/lib/5.24.1/ExtUtils/MM_QNX.pm
new file mode 100644
index 00000000..1bdc6e0f
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/MM_QNX.pm
@@ -0,0 +1,57 @@
+package ExtUtils::MM_QNX;
+
+use strict;
+our $VERSION = '7.10_02';
+
+require ExtUtils::MM_Unix;
+our @ISA = qw(ExtUtils::MM_Unix);
+
+
+=head1 NAME
+
+ExtUtils::MM_QNX - QNX specific subclass of ExtUtils::MM_Unix
+
+=head1 SYNOPSIS
+
+  Don't use this module directly.
+  Use ExtUtils::MM and let it choose.
+
+=head1 DESCRIPTION
+
+This is a subclass of ExtUtils::MM_Unix which contains functionality for
+QNX.
+
+Unless otherwise stated it works just like ExtUtils::MM_Unix
+
+=head2 Overridden methods
+
+=head3 extra_clean_files
+
+Add .err files corresponding to each .c file.
+
+=cut
+
+sub extra_clean_files {
+    my $self = shift;
+
+    my @errfiles = @{$self->{C}};
+    for ( @errfiles ) {
+	s/.c$/.err/;
+    }
+
+    return( @errfiles, 'perlmain.err' );
+}
+
+
+=head1 AUTHOR
+
+Michael G Schwern <schwern@pobox.com> with code from ExtUtils::MM_Unix
+
+=head1 SEE ALSO
+
+L<ExtUtils::MakeMaker>
+
+=cut
+
+
+1;
diff --git a/lib/5.24.1/ExtUtils/MM_UWIN.pm b/lib/5.24.1/ExtUtils/MM_UWIN.pm
new file mode 100644
index 00000000..6d85d944
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/MM_UWIN.pm
@@ -0,0 +1,64 @@
+package ExtUtils::MM_UWIN;
+
+use strict;
+our $VERSION = '7.10_02';
+
+require ExtUtils::MM_Unix;
+our @ISA = qw(ExtUtils::MM_Unix);
+
+
+=head1 NAME
+
+ExtUtils::MM_UWIN - U/WIN specific subclass of ExtUtils::MM_Unix
+
+=head1 SYNOPSIS
+
+  Don't use this module directly.
+  Use ExtUtils::MM and let it choose.
+
+=head1 DESCRIPTION
+
+This is a subclass of ExtUtils::MM_Unix which contains functionality for
+the AT&T U/WIN UNIX on Windows environment.
+
+Unless otherwise stated it works just like ExtUtils::MM_Unix
+
+=head2 Overridden methods
+
+=over 4
+
+=item os_flavor
+
+In addition to being Unix, we're U/WIN.
+
+=cut
+
+sub os_flavor {
+    return('Unix', 'U/WIN');
+}
+
+
+=item B<replace_manpage_separator>
+
+=cut
+
+sub replace_manpage_separator {
+    my($self, $man) = @_;
+
+    $man =~ s,/+,.,g;
+    return $man;
+}
+
+=back
+
+=head1 AUTHOR
+
+Michael G Schwern <schwern@pobox.com> with code from ExtUtils::MM_Unix
+
+=head1 SEE ALSO
+
+L<ExtUtils::MM_Win32>, L<ExtUtils::MakeMaker>
+
+=cut
+
+1;
diff --git a/lib/5.24.1/ExtUtils/MM_Unix.pm b/lib/5.24.1/ExtUtils/MM_Unix.pm
new file mode 100644
index 00000000..009b18ee
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/MM_Unix.pm
@@ -0,0 +1,3778 @@
+package ExtUtils::MM_Unix;
+
+require 5.006;
+
+use strict;
+
+use Carp;
+use ExtUtils::MakeMaker::Config;
+use File::Basename qw(basename dirname);
+use DirHandle;
+
+our %Config_Override;
+
+use ExtUtils::MakeMaker qw($Verbose neatvalue);
+
+# If we make $VERSION an our variable parse_version() breaks
+use vars qw($VERSION);
+$VERSION = '7.10_02';
+$VERSION = eval $VERSION;  ## no critic [BuiltinFunctions::ProhibitStringyEval]
+
+require ExtUtils::MM_Any;
+our @ISA = qw(ExtUtils::MM_Any);
+
+my %Is;
+BEGIN {
+    $Is{OS2}     = $^O eq 'os2';
+    $Is{Win32}   = $^O eq 'MSWin32' || $Config{osname} eq 'NetWare';
+    $Is{Dos}     = $^O eq 'dos';
+    $Is{VMS}     = $^O eq 'VMS';
+    $Is{OSF}     = $^O eq 'dec_osf';
+    $Is{IRIX}    = $^O eq 'irix';
+    $Is{NetBSD}  = $^O eq 'netbsd';
+    $Is{Interix} = $^O eq 'interix';
+    $Is{SunOS4}  = $^O eq 'sunos';
+    $Is{Solaris} = $^O eq 'solaris';
+    $Is{SunOS}   = $Is{SunOS4} || $Is{Solaris};
+    $Is{BSD}     = ($^O =~ /^(?:free|net|open)bsd$/ or
+                   grep( $^O eq $_, qw(bsdos interix dragonfly) )
+                  );
+    $Is{Android} = $^O =~ /android/;
+}
+
+BEGIN {
+    if( $Is{VMS} ) {
+        # For things like vmsify()
+        require VMS::Filespec;
+        VMS::Filespec->import;
+    }
+}
+
+
+=head1 NAME
+
+ExtUtils::MM_Unix - methods used by ExtUtils::MakeMaker
+
+=head1 SYNOPSIS
+
+C<require ExtUtils::MM_Unix;>
+
+=head1 DESCRIPTION
+
+The methods provided by this package are designed to be used in
+conjunction with ExtUtils::MakeMaker. When MakeMaker writes a
+Makefile, it creates one or more objects that inherit their methods
+from a package C<MM>. MM itself doesn't provide any methods, but it
+ISA ExtUtils::MM_Unix class. The inheritance tree of MM lets operating
+specific packages take the responsibility for all the methods provided
+by MM_Unix. We are trying to reduce the number of the necessary
+overrides by defining rather primitive operations within
+ExtUtils::MM_Unix.
+
+If you are going to write a platform specific MM package, please try
+to limit the necessary overrides to primitive methods, and if it is not
+possible to do so, let's work out how to achieve that gain.
+
+If you are overriding any of these methods in your Makefile.PL (in the
+MY class), please report that to the makemaker mailing list. We are
+trying to minimize the necessary method overrides and switch to data
+driven Makefile.PLs wherever possible. In the long run less methods
+will be overridable via the MY class.
+
+=head1 METHODS
+
+The following description of methods is still under
+development. Please refer to the code for not suitably documented
+sections and complain loudly to the makemaker@perl.org mailing list.
+Better yet, provide a patch.
+
+Not all of the methods below are overridable in a
+Makefile.PL. Overridable methods are marked as (o). All methods are
+overridable by a platform specific MM_*.pm file.
+
+Cross-platform methods are being moved into MM_Any.  If you can't find
+something that used to be in here, look in MM_Any.
+
+=cut
+
+# So we don't have to keep calling the methods over and over again,
+# we have these globals to cache the values.  Faster and shrtr.
+my $Curdir  = __PACKAGE__->curdir;
+my $Rootdir = __PACKAGE__->rootdir;
+my $Updir   = __PACKAGE__->updir;
+
+
+=head2 Methods
+
+=over 4
+
+=item os_flavor
+
+Simply says that we're Unix.
+
+=cut
+
+sub os_flavor {
+    return('Unix');
+}
+
+
+=item c_o (o)
+
+Defines the suffix rules to compile different flavors of C files to
+object files.
+
+=cut
+
+sub c_o {
+# --- Translation Sections ---
+
+    my($self) = shift;
+    return '' unless $self->needs_linking();
+    my(@m);
+
+    my $command = '$(CCCMD)';
+    my $flags   = '$(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE)';
+
+    if (my $cpp = $Config{cpprun}) {
+        my $cpp_cmd = $self->const_cccmd;
+        $cpp_cmd =~ s/^CCCMD\s*=\s*\$\(CC\)/$cpp/;
+        push @m, qq{
+.c.i:
+	$cpp_cmd $flags \$*.c > \$*.i
+};
+    }
+
+    push @m, qq{
+.c.s:
+	$command -S $flags \$*.c
+
+.c\$(OBJ_EXT):
+	$command $flags \$*.c
+
+.cpp\$(OBJ_EXT):
+	$command $flags \$*.cpp
+
+.cxx\$(OBJ_EXT):
+	$command $flags \$*.cxx
+
+.cc\$(OBJ_EXT):
+	$command $flags \$*.cc
+};
+
+    push @m, qq{
+.C\$(OBJ_EXT):
+	$command $flags \$*.C
+} if !$Is{OS2} and !$Is{Win32} and !$Is{Dos}; #Case-specific
+
+    return join "", @m;
+}
+
+=item cflags (o)
+
+Does very much the same as the cflags script in the perl
+distribution. It doesn't return the whole compiler command line, but
+initializes all of its parts. The const_cccmd method then actually
+returns the definition of the CCCMD macro which uses these parts.
+
+=cut
+
+#'
+
+sub cflags {
+    my($self,$libperl)=@_;
+    return $self->{CFLAGS} if $self->{CFLAGS};
+    return '' unless $self->needs_linking();
+
+    my($prog, $uc, $perltype, %cflags);
+    $libperl ||= $self->{LIBPERL_A} || "libperl$self->{LIB_EXT}" ;
+    $libperl =~ s/\.\$\(A\)$/$self->{LIB_EXT}/;
+
+    @cflags{qw(cc ccflags optimize shellflags)}
+	= @Config{qw(cc ccflags optimize shellflags)};
+
+    # Perl 5.21.4 adds the (gcc) warning (-Wall ...) and std (-std=c89)
+    # flags to the %Config, and the modules in the core should be built
+    # with the warning flags, but NOT the -std=c89 flags (the latter
+    # would break using any system header files that are strict C99).
+    my @ccextraflags = qw(ccwarnflags);
+    if ($ENV{PERL_CORE}) {
+      for my $x (@ccextraflags) {
+        if (exists $Config{$x}) {
+          $cflags{$x} = $Config{$x};
+        }
+      }
+    }
+
+    my($optdebug) = "";
+
+    $cflags{shellflags} ||= '';
+
+    my(%map) =  (
+		D =>   '-DDEBUGGING',
+		E =>   '-DEMBED',
+		DE =>  '-DDEBUGGING -DEMBED',
+		M =>   '-DEMBED -DMULTIPLICITY',
+		DM =>  '-DDEBUGGING -DEMBED -DMULTIPLICITY',
+		);
+
+    if ($libperl =~ /libperl(\w*)\Q$self->{LIB_EXT}/){
+	$uc = uc($1);
+    } else {
+	$uc = ""; # avoid warning
+    }
+    $perltype = $map{$uc} ? $map{$uc} : "";
+
+    if ($uc =~ /^D/) {
+	$optdebug = "-g";
+    }
+
+
+    my($name);
+    ( $name = $self->{NAME} . "_cflags" ) =~ s/:/_/g ;
+    if ($prog = $Config{$name}) {
+	# Expand hints for this extension via the shell
+	print "Processing $name hint:\n" if $Verbose;
+	my(@o)=`cc=\"$cflags{cc}\"
+	  ccflags=\"$cflags{ccflags}\"
+	  optimize=\"$cflags{optimize}\"
+	  perltype=\"$cflags{perltype}\"
+	  optdebug=\"$cflags{optdebug}\"
+	  eval '$prog'
+	  echo cc=\$cc
+	  echo ccflags=\$ccflags
+	  echo optimize=\$optimize
+	  echo perltype=\$perltype
+	  echo optdebug=\$optdebug
+	  `;
+	foreach my $line (@o){
+	    chomp $line;
+	    if ($line =~ /(.*?)=\s*(.*)\s*$/){
+		$cflags{$1} = $2;
+		print "	$1 = $2\n" if $Verbose;
+	    } else {
+		print "Unrecognised result from hint: '$line'\n";
+	    }
+	}
+    }
+
+    if ($optdebug) {
+	$cflags{optimize} = $optdebug;
+    }
+
+    for (qw(ccflags optimize perltype)) {
+        $cflags{$_} ||= '';
+	$cflags{$_} =~ s/^\s+//;
+	$cflags{$_} =~ s/\s+/ /g;
+	$cflags{$_} =~ s/\s+$//;
+	$self->{uc $_} ||= $cflags{$_};
+    }
+
+    if ($self->{POLLUTE}) {
+	$self->{CCFLAGS} .= ' -DPERL_POLLUTE ';
+    }
+
+    for my $x (@ccextraflags) {
+      next unless exists $cflags{$x};
+      $self->{CCFLAGS} .= $cflags{$x} =~ m!^\s! ? $cflags{$x} : ' ' . $cflags{$x};
+    }
+
+    my $pollute = '';
+    if ($Config{usemymalloc} and not $Config{bincompat5005}
+	and not $Config{ccflags} =~ /-DPERL_POLLUTE_MALLOC\b/
+	and $self->{PERL_MALLOC_OK}) {
+	$pollute = '$(PERL_MALLOC_DEF)';
+    }
+
+    $self->{CCFLAGS}  = quote_paren($self->{CCFLAGS});
+    $self->{OPTIMIZE} = quote_paren($self->{OPTIMIZE});
+
+    return $self->{CFLAGS} = qq{
+CCFLAGS = $self->{CCFLAGS}
+OPTIMIZE = $self->{OPTIMIZE}
+PERLTYPE = $self->{PERLTYPE}
+MPOLLUTE = $pollute
+};
+
+}
+
+
+=item const_cccmd (o)
+
+Returns the full compiler call for C programs and stores the
+definition in CONST_CCCMD.
+
+=cut
+
+sub const_cccmd {
+    my($self,$libperl)=@_;
+    return $self->{CONST_CCCMD} if $self->{CONST_CCCMD};
+    return '' unless $self->needs_linking();
+    return $self->{CONST_CCCMD} =
+	q{CCCMD = $(CC) -c $(PASTHRU_INC) $(INC) \\
+	$(CCFLAGS) $(OPTIMIZE) \\
+	$(PERLTYPE) $(MPOLLUTE) $(DEFINE_VERSION) \\
+	$(XS_DEFINE_VERSION)};
+}
+
+=item const_config (o)
+
+Sets SHELL if needed, then defines a couple of constants in the Makefile
+that are imported from %Config.
+
+=cut
+
+sub const_config {
+# --- Constants Sections ---
+
+    my($self) = shift;
+    my @m = $self->specify_shell(); # Usually returns empty string
+    push @m, <<"END";
+
+# These definitions are from config.sh (via $INC{'Config.pm'}).
+# They may have been overridden via Makefile.PL or on the command line.
+END
+
+    my(%once_only);
+    foreach my $key (@{$self->{CONFIG}}){
+        # SITE*EXP macros are defined in &constants; avoid duplicates here
+        next if $once_only{$key};
+        $self->{uc $key} = quote_paren($self->{uc $key});
+        push @m, uc($key) , ' = ' , $self->{uc $key}, "\n";
+        $once_only{$key} = 1;
+    }
+    join('', @m);
+}
+
+=item const_loadlibs (o)
+
+Defines EXTRALIBS, LDLOADLIBS, BSLOADLIBS, LD_RUN_PATH. See
+L<ExtUtils::Liblist> for details.
+
+=cut
+
+sub const_loadlibs {
+    my($self) = shift;
+    return "" unless $self->needs_linking;
+    my @m;
+    push @m, qq{
+# $self->{NAME} might depend on some other libraries:
+# See ExtUtils::Liblist for details
+#
+};
+    for my $tmp (qw/
+         EXTRALIBS LDLOADLIBS BSLOADLIBS
+         /) {
+        next unless defined $self->{$tmp};
+        push @m, "$tmp = $self->{$tmp}\n";
+    }
+    # don't set LD_RUN_PATH if empty
+    for my $tmp (qw/
+         LD_RUN_PATH
+         /) {
+        next unless $self->{$tmp};
+        push @m, "$tmp = $self->{$tmp}\n";
+    }
+    return join "", @m;
+}
+
+=item constants (o)
+
+  my $make_frag = $mm->constants;
+
+Prints out macros for lots of constants.
+
+=cut
+
+sub constants {
+    my($self) = @_;
+    my @m = ();
+
+    $self->{DFSEP} = '$(DIRFILESEP)';  # alias for internal use
+
+    for my $macro (qw(
+
+              AR_STATIC_ARGS DIRFILESEP DFSEP
+              NAME NAME_SYM
+              VERSION    VERSION_MACRO    VERSION_SYM DEFINE_VERSION
+              XS_VERSION XS_VERSION_MACRO             XS_DEFINE_VERSION
+              INST_ARCHLIB INST_SCRIPT INST_BIN INST_LIB
+              INST_MAN1DIR INST_MAN3DIR
+              MAN1EXT      MAN3EXT
+              INSTALLDIRS INSTALL_BASE DESTDIR PREFIX
+              PERLPREFIX      SITEPREFIX      VENDORPREFIX
+                   ),
+                   (map { ("INSTALL".$_,
+                          "DESTINSTALL".$_)
+                        } $self->installvars),
+                   qw(
+              PERL_LIB
+              PERL_ARCHLIB PERL_ARCHLIBDEP
+              LIBPERL_A MYEXTLIB
+              FIRST_MAKEFILE MAKEFILE_OLD MAKE_APERL_FILE
+              PERLMAINCC PERL_SRC PERL_INC PERL_INCDEP
+              PERL            FULLPERL          ABSPERL
+              PERLRUN         FULLPERLRUN       ABSPERLRUN
+              PERLRUNINST     FULLPERLRUNINST   ABSPERLRUNINST
+              PERL_CORE
+              PERM_DIR PERM_RW PERM_RWX
+
+	      ) )
+    {
+	next unless defined $self->{$macro};
+
+        # pathnames can have sharp signs in them; escape them so
+        # make doesn't think it is a comment-start character.
+        $self->{$macro} =~ s/#/\\#/g;
+	$self->{$macro} = $self->quote_dep($self->{$macro})
+	  if $ExtUtils::MakeMaker::macro_dep{$macro};
+	push @m, "$macro = $self->{$macro}\n";
+    }
+
+    push @m, qq{
+MAKEMAKER   = $self->{MAKEMAKER}
+MM_VERSION  = $self->{MM_VERSION}
+MM_REVISION = $self->{MM_REVISION}
+};
+
+    push @m, q{
+# FULLEXT = Pathname for extension directory (eg Foo/Bar/Oracle).
+# BASEEXT = Basename part of FULLEXT. May be just equal FULLEXT. (eg Oracle)
+# PARENT_NAME = NAME without BASEEXT and no trailing :: (eg Foo::Bar)
+# DLBASE  = Basename part of dynamic library. May be just equal BASEEXT.
+};
+
+    for my $macro (qw/
+              MAKE
+	      FULLEXT BASEEXT PARENT_NAME DLBASE VERSION_FROM INC DEFINE OBJECT
+	      LDFROM LINKTYPE BOOTDEP
+	      /	)
+    {
+	next unless defined $self->{$macro};
+	push @m, "$macro = $self->{$macro}\n";
+    }
+
+    push @m, "
+# Handy lists of source code files:
+XS_FILES = ".$self->wraplist(sort keys %{$self->{XS}})."
+C_FILES  = ".$self->wraplist(@{$self->{C}})."
+O_FILES  = ".$self->wraplist(@{$self->{O_FILES}})."
+H_FILES  = ".$self->wraplist(@{$self->{H}})."
+MAN1PODS = ".$self->wraplist(sort keys %{$self->{MAN1PODS}})."
+MAN3PODS = ".$self->wraplist(sort keys %{$self->{MAN3PODS}})."
+";
+
+
+    push @m, q{
+# Where is the Config information that we are using/depend on
+CONFIGDEP = $(PERL_ARCHLIBDEP)$(DFSEP)Config.pm $(PERL_INCDEP)$(DFSEP)config.h
+} if -e File::Spec->catfile( $self->{PERL_INC}, 'config.h' );
+
+
+    push @m, qq{
+# Where to build things
+INST_LIBDIR      = $self->{INST_LIBDIR}
+INST_ARCHLIBDIR  = $self->{INST_ARCHLIBDIR}
+
+INST_AUTODIR     = $self->{INST_AUTODIR}
+INST_ARCHAUTODIR = $self->{INST_ARCHAUTODIR}
+
+INST_STATIC      = $self->{INST_STATIC}
+INST_DYNAMIC     = $self->{INST_DYNAMIC}
+INST_BOOT        = $self->{INST_BOOT}
+};
+
+    push @m, qq{
+# Extra linker info
+EXPORT_LIST        = $self->{EXPORT_LIST}
+PERL_ARCHIVE       = $self->{PERL_ARCHIVE}
+PERL_ARCHIVEDEP    = $self->{PERL_ARCHIVEDEP}
+PERL_ARCHIVE_AFTER = $self->{PERL_ARCHIVE_AFTER}
+};
+
+    push @m, "
+
+TO_INST_PM = ".$self->wraplist(sort keys %{$self->{PM}})."
+
+PM_TO_BLIB = ".$self->wraplist(map { ($_ => $self->{PM}->{$_}) } sort keys %{$self->{PM}})."
+";
+
+    join('',@m);
+}
+
+
+=item depend (o)
+
+Same as macro for the depend attribute.
+
+=cut
+
+sub depend {
+    my($self,%attribs) = @_;
+    my(@m,$key,$val);
+    while (($key,$val) = each %attribs){
+	last unless defined $key;
+	push @m, "$key : $val\n";
+    }
+    join "", @m;
+}
+
+
+=item init_DEST
+
+  $mm->init_DEST
+
+Defines the DESTDIR and DEST* variables paralleling the INSTALL*.
+
+=cut
+
+sub init_DEST {
+    my $self = shift;
+
+    # Initialize DESTDIR
+    $self->{DESTDIR} ||= '';
+
+    # Make DEST variables.
+    foreach my $var ($self->installvars) {
+        my $destvar = 'DESTINSTALL'.$var;
+        $self->{$destvar} ||= '$(DESTDIR)$(INSTALL'.$var.')';
+    }
+}
+
+
+=item init_dist
+
+  $mm->init_dist;
+
+Defines a lot of macros for distribution support.
+
+  macro         description                     default
+
+  TAR           tar command to use              tar
+  TARFLAGS      flags to pass to TAR            cvf
+
+  ZIP           zip command to use              zip
+  ZIPFLAGS      flags to pass to ZIP            -r
+
+  COMPRESS      compression command to          gzip --best
+                use for tarfiles
+  SUFFIX        suffix to put on                .gz
+                compressed files
+
+  SHAR          shar command to use             shar
+
+  PREOP         extra commands to run before
+                making the archive
+  POSTOP        extra commands to run after
+                making the archive
+
+  TO_UNIX       a command to convert linefeeds
+                to Unix style in your archive
+
+  CI            command to checkin your         ci -u
+                sources to version control
+  RCS_LABEL     command to label your sources   rcs -Nv$(VERSION_SYM): -q
+                just after CI is run
+
+  DIST_CP       $how argument to manicopy()     best
+                when the distdir is created
+
+  DIST_DEFAULT  default target to use to        tardist
+                create a distribution
+
+  DISTVNAME     name of the resulting archive   $(DISTNAME)-$(VERSION)
+                (minus suffixes)
+
+=cut
+
+sub init_dist {
+    my $self = shift;
+
+    $self->{TAR}      ||= 'tar';
+    $self->{TARFLAGS} ||= 'cvf';
+    $self->{ZIP}      ||= 'zip';
+    $self->{ZIPFLAGS} ||= '-r';
+    $self->{COMPRESS} ||= 'gzip --best';
+    $self->{SUFFIX}   ||= '.gz';
+    $self->{SHAR}     ||= 'shar';
+    $self->{PREOP}    ||= '$(NOECHO) $(NOOP)'; # eg update MANIFEST
+    $self->{POSTOP}   ||= '$(NOECHO) $(NOOP)'; # eg remove the distdir
+    $self->{TO_UNIX}  ||= '$(NOECHO) $(NOOP)';
+
+    $self->{CI}       ||= 'ci -u';
+    $self->{RCS_LABEL}||= 'rcs -Nv$(VERSION_SYM): -q';
+    $self->{DIST_CP}  ||= 'best';
+    $self->{DIST_DEFAULT} ||= 'tardist';
+
+    ($self->{DISTNAME} = $self->{NAME}) =~ s{::}{-}g unless $self->{DISTNAME};
+    $self->{DISTVNAME} ||= $self->{DISTNAME}.'-'.$self->{VERSION};
+}
+
+=item dist (o)
+
+  my $dist_macros = $mm->dist(%overrides);
+
+Generates a make fragment defining all the macros initialized in
+init_dist.
+
+%overrides can be used to override any of the above.
+
+=cut
+
+sub dist {
+    my($self, %attribs) = @_;
+
+    my $make = '';
+    if ( $attribs{SUFFIX} && $attribs{SUFFIX} !~ m!^\.! ) {
+      $attribs{SUFFIX} = '.' . $attribs{SUFFIX};
+    }
+    foreach my $key (qw(
+            TAR TARFLAGS ZIP ZIPFLAGS COMPRESS SUFFIX SHAR
+            PREOP POSTOP TO_UNIX
+            CI RCS_LABEL DIST_CP DIST_DEFAULT
+            DISTNAME DISTVNAME
+           ))
+    {
+        my $value = $attribs{$key} || $self->{$key};
+        $make .= "$key = $value\n";
+    }
+
+    return $make;
+}
+
+=item dist_basics (o)
+
+Defines the targets distclean, distcheck, skipcheck, manifest, veryclean.
+
+=cut
+
+sub dist_basics {
+    my($self) = shift;
+
+    return <<'MAKE_FRAG';
+distclean :: realclean distcheck
+	$(NOECHO) $(NOOP)
+
+distcheck :
+	$(PERLRUN) "-MExtUtils::Manifest=fullcheck" -e fullcheck
+
+skipcheck :
+	$(PERLRUN) "-MExtUtils::Manifest=skipcheck" -e skipcheck
+
+manifest :
+	$(PERLRUN) "-MExtUtils::Manifest=mkmanifest" -e mkmanifest
+
+veryclean : realclean
+	$(RM_F) *~ */*~ *.orig */*.orig *.bak */*.bak *.old */*.old
+
+MAKE_FRAG
+
+}
+
+=item dist_ci (o)
+
+Defines a check in target for RCS.
+
+=cut
+
+sub dist_ci {
+    my($self) = shift;
+    return sprintf "ci :\n\t%s\n", $self->oneliner(<<'EOF', [qw(-MExtUtils::Manifest=maniread)]);
+@all = sort keys %{ maniread() };
+print(qq{Executing $(CI) @all\n});
+system(qq{$(CI) @all}) == 0 or die $!;
+print(qq{Executing $(RCS_LABEL) ...\n});
+system(qq{$(RCS_LABEL) @all}) == 0 or die $!;
+EOF
+}
+
+=item dist_core (o)
+
+  my $dist_make_fragment = $MM->dist_core;
+
+Puts the targets necessary for 'make dist' together into one make
+fragment.
+
+=cut
+
+sub dist_core {
+    my($self) = shift;
+
+    my $make_frag = '';
+    foreach my $target (qw(dist tardist uutardist tarfile zipdist zipfile
+                           shdist))
+    {
+        my $method = $target.'_target';
+        $make_frag .= "\n";
+        $make_frag .= $self->$method();
+    }
+
+    return $make_frag;
+}
+
+
+=item B<dist_target>
+
+  my $make_frag = $MM->dist_target;
+
+Returns the 'dist' target to make an archive for distribution.  This
+target simply checks to make sure the Makefile is up-to-date and
+depends on $(DIST_DEFAULT).
+
+=cut
+
+sub dist_target {
+    my($self) = shift;
+
+    my $date_check = $self->oneliner(<<'CODE', ['-l']);
+print 'Warning: Makefile possibly out of date with $(VERSION_FROM)'
+    if -e '$(VERSION_FROM)' and -M '$(VERSION_FROM)' < -M '$(FIRST_MAKEFILE)';
+CODE
+
+    return sprintf <<'MAKE_FRAG', $date_check;
+dist : $(DIST_DEFAULT) $(FIRST_MAKEFILE)
+	$(NOECHO) %s
+MAKE_FRAG
+}
+
+=item B<tardist_target>
+
+  my $make_frag = $MM->tardist_target;
+
+Returns the 'tardist' target which is simply so 'make tardist' works.
+The real work is done by the dynamically named tardistfile_target()
+method, tardist should have that as a dependency.
+
+=cut
+
+sub tardist_target {
+    my($self) = shift;
+
+    return <<'MAKE_FRAG';
+tardist : $(DISTVNAME).tar$(SUFFIX)
+	$(NOECHO) $(NOOP)
+MAKE_FRAG
+}
+
+=item B<zipdist_target>
+
+  my $make_frag = $MM->zipdist_target;
+
+Returns the 'zipdist' target which is simply so 'make zipdist' works.
+The real work is done by the dynamically named zipdistfile_target()
+method, zipdist should have that as a dependency.
+
+=cut
+
+sub zipdist_target {
+    my($self) = shift;
+
+    return <<'MAKE_FRAG';
+zipdist : $(DISTVNAME).zip
+	$(NOECHO) $(NOOP)
+MAKE_FRAG
+}
+
+=item B<tarfile_target>
+
+  my $make_frag = $MM->tarfile_target;
+
+The name of this target is the name of the tarball generated by
+tardist.  This target does the actual work of turning the distdir into
+a tarball.
+
+=cut
+
+sub tarfile_target {
+    my($self) = shift;
+
+    return <<'MAKE_FRAG';
+$(DISTVNAME).tar$(SUFFIX) : distdir
+	$(PREOP)
+	$(TO_UNIX)
+	$(TAR) $(TARFLAGS) $(DISTVNAME).tar $(DISTVNAME)
+	$(RM_RF) $(DISTVNAME)
+	$(COMPRESS) $(DISTVNAME).tar
+	$(NOECHO) $(ECHO) 'Created $(DISTVNAME).tar$(SUFFIX)'
+	$(POSTOP)
+MAKE_FRAG
+}
+
+=item zipfile_target
+
+  my $make_frag = $MM->zipfile_target;
+
+The name of this target is the name of the zip file generated by
+zipdist.  This target does the actual work of turning the distdir into
+a zip file.
+
+=cut
+
+sub zipfile_target {
+    my($self) = shift;
+
+    return <<'MAKE_FRAG';
+$(DISTVNAME).zip : distdir
+	$(PREOP)
+	$(ZIP) $(ZIPFLAGS) $(DISTVNAME).zip $(DISTVNAME)
+	$(RM_RF) $(DISTVNAME)
+	$(NOECHO) $(ECHO) 'Created $(DISTVNAME).zip'
+	$(POSTOP)
+MAKE_FRAG
+}
+
+=item uutardist_target
+
+  my $make_frag = $MM->uutardist_target;
+
+Converts the tarfile into a uuencoded file
+
+=cut
+
+sub uutardist_target {
+    my($self) = shift;
+
+    return <<'MAKE_FRAG';
+uutardist : $(DISTVNAME).tar$(SUFFIX)
+	uuencode $(DISTVNAME).tar$(SUFFIX) $(DISTVNAME).tar$(SUFFIX) > $(DISTVNAME).tar$(SUFFIX)_uu
+	$(NOECHO) $(ECHO) 'Created $(DISTVNAME).tar$(SUFFIX)_uu'
+MAKE_FRAG
+}
+
+
+=item shdist_target
+
+  my $make_frag = $MM->shdist_target;
+
+Converts the distdir into a shell archive.
+
+=cut
+
+sub shdist_target {
+    my($self) = shift;
+
+    return <<'MAKE_FRAG';
+shdist : distdir
+	$(PREOP)
+	$(SHAR) $(DISTVNAME) > $(DISTVNAME).shar
+	$(RM_RF) $(DISTVNAME)
+	$(NOECHO) $(ECHO) 'Created $(DISTVNAME).shar'
+	$(POSTOP)
+MAKE_FRAG
+}
+
+
+=item dlsyms (o)
+
+Used by some OS' to define DL_FUNCS and DL_VARS and write the *.exp files.
+
+Normally just returns an empty string.
+
+=cut
+
+sub dlsyms {
+    return '';
+}
+
+
+=item dynamic_bs (o)
+
+Defines targets for bootstrap files.
+
+=cut
+
+sub dynamic_bs {
+    my($self, %attribs) = @_;
+    return '
+BOOTSTRAP =
+' unless $self->has_link_code();
+
+    my $target = $Is{VMS} ? '$(MMS$TARGET)' : '$@';
+
+    return sprintf <<'MAKE_FRAG', ($target) x 2;
+BOOTSTRAP = $(BASEEXT).bs
+
+# As Mkbootstrap might not write a file (if none is required)
+# we use touch to prevent make continually trying to remake it.
+# The DynaLoader only reads a non-empty file.
+$(BOOTSTRAP) : $(FIRST_MAKEFILE) $(BOOTDEP) $(INST_ARCHAUTODIR)$(DFSEP).exists
+	$(NOECHO) $(ECHO) "Running Mkbootstrap for $(NAME) ($(BSLOADLIBS))"
+	$(NOECHO) $(PERLRUN) \
+		"-MExtUtils::Mkbootstrap" \
+		-e "Mkbootstrap('$(BASEEXT)','$(BSLOADLIBS)');"
+	$(NOECHO) $(TOUCH) "%s"
+	$(CHMOD) $(PERM_RW) "%s"
+MAKE_FRAG
+}
+
+=item dynamic_lib (o)
+
+Defines how to produce the *.so (or equivalent) files.
+
+=cut
+
+sub dynamic_lib {
+    my($self, %attribs) = @_;
+    return '' unless $self->needs_linking(); #might be because of a subdir
+
+    return '' unless $self->has_link_code;
+
+    my($otherldflags) = $attribs{OTHERLDFLAGS} || "";
+    my($inst_dynamic_dep) = $attribs{INST_DYNAMIC_DEP} || "";
+    my($armaybe) = $attribs{ARMAYBE} || $self->{ARMAYBE} || ":";
+    my($ldfrom) = '$(LDFROM)';
+    $armaybe = 'ar' if ($Is{OSF} and $armaybe eq ':');
+    my(@m);
+    my $ld_opt = $Is{OS2} ? '$(OPTIMIZE) ' : '';	# Useful on other systems too?
+    my $ld_fix = $Is{OS2} ? '|| ( $(RM_F) $@ && sh -c false )' : '';
+    push(@m,'
+# This section creates the dynamically loadable $(INST_DYNAMIC)
+# from $(OBJECT) and possibly $(MYEXTLIB).
+ARMAYBE = '.$armaybe.'
+OTHERLDFLAGS = '.$ld_opt.$otherldflags.'
+INST_DYNAMIC_DEP = '.$inst_dynamic_dep.'
+INST_DYNAMIC_FIX = '.$ld_fix.'
+
+$(INST_DYNAMIC): $(OBJECT) $(MYEXTLIB) $(INST_ARCHAUTODIR)$(DFSEP).exists $(EXPORT_LIST) $(PERL_ARCHIVEDEP) $(PERL_ARCHIVE_AFTER) $(INST_DYNAMIC_DEP)
+');
+    if ($armaybe ne ':'){
+	$ldfrom = 'tmp$(LIB_EXT)';
+	push(@m,'	$(ARMAYBE) cr '.$ldfrom.' $(OBJECT)'."\n");
+	push(@m,'	$(RANLIB) '."$ldfrom\n");
+    }
+    $ldfrom = "-all $ldfrom -none" if $Is{OSF};
+
+    # The IRIX linker doesn't use LD_RUN_PATH
+    my $ldrun = $Is{IRIX} && $self->{LD_RUN_PATH} ?
+                       qq{-rpath "$self->{LD_RUN_PATH}"} : '';
+
+    # For example in AIX the shared objects/libraries from previous builds
+    # linger quite a while in the shared dynalinker cache even when nobody
+    # is using them.  This is painful if one for instance tries to restart
+    # a failed build because the link command will fail unnecessarily 'cos
+    # the shared object/library is 'busy'.
+    push(@m,'	$(RM_F) $@
+');
+
+    my $libs = '$(LDLOADLIBS)';
+
+    if (($Is{NetBSD} || $Is{Interix} || $Is{Android}) && $Config{'useshrplib'} eq 'true') {
+	# Use nothing on static perl platforms, and to the flags needed
+	# to link against the shared libperl library on shared perl
+	# platforms.  We peek at lddlflags to see if we need -Wl,-R
+	# or -R to add paths to the run-time library search path.
+        if ($Config{'lddlflags'} =~ /-Wl,-R/) {
+            $libs .= ' "-L$(PERL_INC)" "-Wl,-R$(INSTALLARCHLIB)/CORE" "-Wl,-R$(PERL_ARCHLIB)/CORE" -lperl';
+        } elsif ($Config{'lddlflags'} =~ /-R/) {
+            $libs .= ' "-L$(PERL_INC)" "-R$(INSTALLARCHLIB)/CORE" "-R$(PERL_ARCHLIB)/CORE" -lperl';
+        } elsif ( $Is{Android} ) {
+            # The Android linker will not recognize symbols from
+            # libperl unless the module explicitly depends on it.
+            $libs .= ' "-L$(PERL_INC)" -lperl';
+        }
+    }
+
+    my $ld_run_path_shell = "";
+    if ($self->{LD_RUN_PATH} ne "") {
+	$ld_run_path_shell = 'LD_RUN_PATH="$(LD_RUN_PATH)" ';
+    }
+
+    push @m, sprintf <<'MAKE', $ld_run_path_shell, $ldrun, $ldfrom, $libs;
+	%s$(LD) %s $(LDDLFLAGS) %s $(OTHERLDFLAGS) -o $@ $(MYEXTLIB)	\
+	  $(PERL_ARCHIVE) %s $(PERL_ARCHIVE_AFTER) $(EXPORT_LIST)	\
+	  $(INST_DYNAMIC_FIX)
+MAKE
+
+    push @m, <<'MAKE';
+	$(CHMOD) $(PERM_RWX) $@
+	$(NOECHO) $(RM_RF) $(BOOTSTRAP)
+	- $(CP_NONEMPTY) $(BOOTSTRAP) $(INST_BOOT) $(PERM_RW)
+MAKE
+
+    return join('',@m);
+}
+
+=item exescan
+
+Deprecated method. Use libscan instead.
+
+=cut
+
+sub exescan {
+    my($self,$path) = @_;
+    $path;
+}
+
+=item extliblist
+
+Called by init_others, and calls ext ExtUtils::Liblist. See
+L<ExtUtils::Liblist> for details.
+
+=cut
+
+sub extliblist {
+    my($self,$libs) = @_;
+    require ExtUtils::Liblist;
+    $self->ext($libs, $Verbose);
+}
+
+=item find_perl
+
+Finds the executables PERL and FULLPERL
+
+=cut
+
+sub find_perl {
+    my($self, $ver, $names, $dirs, $trace) = @_;
+
+    if ($trace >= 2){
+        print "Looking for perl $ver by these names:
+@$names
+in these dirs:
+@$dirs
+";
+    }
+
+    my $stderr_duped = 0;
+    local *STDERR_COPY;
+
+    unless ($Is{BSD}) {
+        # >& and lexical filehandles together give 5.6.2 indigestion
+        if( open(STDERR_COPY, '>&STDERR') ) {  ## no critic
+            $stderr_duped = 1;
+        }
+        else {
+            warn <<WARNING;
+find_perl() can't dup STDERR: $!
+You might see some garbage while we search for Perl
+WARNING
+        }
+    }
+
+    foreach my $name (@$names){
+        foreach my $dir (@$dirs){
+            next unless defined $dir; # $self->{PERL_SRC} may be undefined
+            my ($abs, $val);
+            if ($self->file_name_is_absolute($name)) {     # /foo/bar
+                $abs = $name;
+            } elsif ($self->canonpath($name) eq
+                     $self->canonpath(basename($name))) {  # foo
+                $abs = $self->catfile($dir, $name);
+            } else {                                            # foo/bar
+                $abs = $self->catfile($Curdir, $name);
+            }
+            print "Checking $abs\n" if ($trace >= 2);
+            next unless $self->maybe_command($abs);
+            print "Executing $abs\n" if ($trace >= 2);
+
+            my $version_check = qq{"$abs" -le "require $ver; print qq{VER_OK}"};
+
+            # To avoid using the unportable 2>&1 to suppress STDERR,
+            # we close it before running the command.
+            # However, thanks to a thread library bug in many BSDs
+            # ( http://www.freebsd.org/cgi/query-pr.cgi?pr=51535 )
+            # we cannot use the fancier more portable way in here
+            # but instead need to use the traditional 2>&1 construct.
+            if ($Is{BSD}) {
+                $val = `$version_check 2>&1`;
+            } else {
+                close STDERR if $stderr_duped;
+                $val = `$version_check`;
+
+                # 5.6.2's 3-arg open doesn't work with >&
+                open STDERR, ">&STDERR_COPY"  ## no critic
+                        if $stderr_duped;
+            }
+
+            if ($val =~ /^VER_OK/m) {
+                print "Using PERL=$abs\n" if $trace;
+                return $abs;
+            } elsif ($trace >= 2) {
+                print "Result: '$val' ".($? >> 8)."\n";
+            }
+        }
+    }
+    print "Unable to find a perl $ver (by these names: @$names, in these dirs: @$dirs)\n";
+    0; # false and not empty
+}
+
+
+=item fixin
+
+  $mm->fixin(@files);
+
+Inserts the sharpbang or equivalent magic number to a set of @files.
+
+=cut
+
+sub fixin {    # stolen from the pink Camel book, more or less
+    my ( $self, @files ) = @_;
+
+    for my $file (@files) {
+        my $file_new = "$file.new";
+        my $file_bak = "$file.bak";
+
+        open( my $fixin, '<', $file ) or croak "Can't process '$file': $!";
+        local $/ = "\n";
+        chomp( my $line = <$fixin> );
+        next unless $line =~ s/^\s*\#!\s*//;    # Not a shebang file.
+
+        my $shb = $self->_fixin_replace_shebang( $file, $line );
+        next unless defined $shb;
+
+        open( my $fixout, ">", "$file_new" ) or do {
+            warn "Can't create new $file: $!\n";
+            next;
+        };
+
+        # Print out the new #! line (or equivalent).
+        local $\;
+        local $/;
+        print $fixout $shb, <$fixin>;
+        close $fixin;
+        close $fixout;
+
+        chmod 0666, $file_bak;
+        unlink $file_bak;
+        unless ( _rename( $file, $file_bak ) ) {
+            warn "Can't rename $file to $file_bak: $!";
+            next;
+        }
+        unless ( _rename( $file_new, $file ) ) {
+            warn "Can't rename $file_new to $file: $!";
+            unless ( _rename( $file_bak, $file ) ) {
+                warn "Can't rename $file_bak back to $file either: $!";
+                warn "Leaving $file renamed as $file_bak\n";
+            }
+            next;
+        }
+        unlink $file_bak;
+    }
+    continue {
+        system("$Config{'eunicefix'} $file") if $Config{'eunicefix'} ne ':';
+    }
+}
+
+
+sub _rename {
+    my($old, $new) = @_;
+
+    foreach my $file ($old, $new) {
+        if( $Is{VMS} and basename($file) !~ /\./ ) {
+            # rename() in 5.8.0 on VMS will not rename a file if it
+            # does not contain a dot yet it returns success.
+            $file = "$file.";
+        }
+    }
+
+    return rename($old, $new);
+}
+
+sub _fixin_replace_shebang {
+    my ( $self, $file, $line ) = @_;
+
+    # Now figure out the interpreter name.
+    my ( $cmd, $arg ) = split ' ', $line, 2;
+    $cmd =~ s!^.*/!!;
+
+    # Now look (in reverse) for interpreter in absolute PATH (unless perl).
+    my $interpreter;
+    if ( $cmd =~ m{^perl(?:\z|[^a-z])} ) {
+        if ( $Config{startperl} =~ m,^\#!.*/perl, ) {
+            $interpreter = $Config{startperl};
+            $interpreter =~ s,^\#!,,;
+        }
+        else {
+            $interpreter = $Config{perlpath};
+        }
+    }
+    else {
+        my (@absdirs)
+            = reverse grep { $self->file_name_is_absolute($_) } $self->path;
+        $interpreter = '';
+
+         foreach my $dir (@absdirs) {
+            if ( $self->maybe_command($cmd) ) {
+                warn "Ignoring $interpreter in $file\n"
+                    if $Verbose && $interpreter;
+                $interpreter = $self->catfile( $dir, $cmd );
+            }
+        }
+    }
+
+    # Figure out how to invoke interpreter on this machine.
+
+    my ($does_shbang) = $Config{'sharpbang'} =~ /^\s*\#\!/;
+    my ($shb) = "";
+    if ($interpreter) {
+        print "Changing sharpbang in $file to $interpreter"
+            if $Verbose;
+         # this is probably value-free on DOSISH platforms
+        if ($does_shbang) {
+            $shb .= "$Config{'sharpbang'}$interpreter";
+            $shb .= ' ' . $arg if defined $arg;
+            $shb .= "\n";
+        }
+    }
+    else {
+        warn "Can't find $cmd in PATH, $file unchanged"
+            if $Verbose;
+        return;
+    }
+    return $shb
+}
+
+=item force (o)
+
+Writes an empty FORCE: target.
+
+=cut
+
+sub force {
+    my($self) = shift;
+    '# Phony target to force checking subdirectories.
+FORCE :
+	$(NOECHO) $(NOOP)
+';
+}
+
+=item guess_name
+
+Guess the name of this package by examining the working directory's
+name. MakeMaker calls this only if the developer has not supplied a
+NAME attribute.
+
+=cut
+
+# ';
+
+sub guess_name {
+    my($self) = @_;
+    use Cwd 'cwd';
+    my $name = basename(cwd());
+    $name =~ s|[\-_][\d\.\-]+\z||;  # this is new with MM 5.00, we
+                                    # strip minus or underline
+                                    # followed by a float or some such
+    print "Warning: Guessing NAME [$name] from current directory name.\n";
+    $name;
+}
+
+=item has_link_code
+
+Returns true if C, XS, MYEXTLIB or similar objects exist within this
+object that need a compiler. Does not descend into subdirectories as
+needs_linking() does.
+
+=cut
+
+sub has_link_code {
+    my($self) = shift;
+    return $self->{HAS_LINK_CODE} if defined $self->{HAS_LINK_CODE};
+    if ($self->{OBJECT} or @{$self->{C} || []} or $self->{MYEXTLIB}){
+	$self->{HAS_LINK_CODE} = 1;
+	return 1;
+    }
+    return $self->{HAS_LINK_CODE} = 0;
+}
+
+
+=item init_dirscan
+
+Scans the directory structure and initializes DIR, XS, XS_FILES,
+C, C_FILES, O_FILES, H, H_FILES, PL_FILES, EXE_FILES.
+
+Called by init_main.
+
+=cut
+
+sub init_dirscan {	# --- File and Directory Lists (.xs .pm .pod etc)
+    my($self) = @_;
+    my(%dir, %xs, %c, %o, %h, %pl_files, %pm);
+
+    my %ignore = map {( $_ => 1 )} qw(Makefile.PL Build.PL test.pl t);
+
+    # ignore the distdir
+    $Is{VMS} ? $ignore{"$self->{DISTVNAME}.dir"} = 1
+            : $ignore{$self->{DISTVNAME}} = 1;
+
+    my $distprefix = $Is{VMS} ? qr/^\Q$self->{DISTNAME}\E-v?[\d\.]+\.dir$/i
+                              : qr/^\Q$self->{DISTNAME}\E-v?[\d\.]+$/;
+
+    @ignore{map lc, keys %ignore} = values %ignore if $Is{VMS};
+
+    if ( defined $self->{XS} and !defined $self->{C} ) {
+	my @c_files = grep { m/\.c(pp|xx)?\z/i } values %{$self->{XS}};
+	my @o_files = grep { m/(?:.(?:o(?:bj)?)|\$\(OBJ_EXT\))\z/i } values %{$self->{XS}};
+	%c = map { $_ => 1 } @c_files;
+	%o = map { $_ => 1 } @o_files;
+    }
+
+    foreach my $name ($self->lsdir($Curdir)){
+	next if $name =~ /\#/;
+	next if $name =~ $distprefix && -d $name;
+	$name = lc($name) if $Is{VMS};
+	next if $name eq $Curdir or $name eq $Updir or $ignore{$name};
+	next unless $self->libscan($name);
+	if (-d $name){
+	    next if -l $name; # We do not support symlinks at all
+            next if $self->{NORECURS};
+	    $dir{$name} = $name if (-f $self->catfile($name,"Makefile.PL"));
+	} elsif ($name =~ /\.xs\z/){
+	    my($c); ($c = $name) =~ s/\.xs\z/.c/;
+	    $xs{$name} = $c;
+	    $c{$c} = 1;
+	} elsif ($name =~ /\.c(pp|xx|c)?\z/i){  # .c .C .cpp .cxx .cc
+	    $c{$name} = 1
+		unless $name =~ m/perlmain\.c/; # See MAP_TARGET
+	} elsif ($name =~ /\.h\z/i){
+	    $h{$name} = 1;
+	} elsif ($name =~ /\.PL\z/) {
+	    ($pl_files{$name} = $name) =~ s/\.PL\z// ;
+	} elsif (($Is{VMS} || $Is{Dos}) && $name =~ /[._]pl$/i) {
+	    # case-insensitive filesystem, one dot per name, so foo.h.PL
+	    # under Unix appears as foo.h_pl under VMS or fooh.pl on Dos
+	    local($/); open(my $pl, '<', $name); my $txt = <$pl>; close $pl;
+	    if ($txt =~ /Extracting \S+ \(with variable substitutions/) {
+		($pl_files{$name} = $name) =~ s/[._]pl\z//i ;
+	    }
+	    else {
+                $pm{$name} = $self->catfile($self->{INST_LIBDIR},$name);
+            }
+	} elsif ($name =~ /\.(p[ml]|pod)\z/){
+	    $pm{$name} = $self->catfile($self->{INST_LIBDIR},$name);
+	}
+    }
+
+    $self->{PL_FILES}   ||= \%pl_files;
+    $self->{DIR}        ||= [sort keys %dir];
+    $self->{XS}         ||= \%xs;
+    $self->{C}          ||= [sort keys %c];
+    $self->{H}          ||= [sort keys %h];
+    $self->{PM}         ||= \%pm;
+
+    my @o_files = @{$self->{C}};
+    %o = (%o, map { $_ => 1 } grep s/\.c(pp|xx|c)?\z/$self->{OBJ_EXT}/i, @o_files);
+    $self->{O_FILES} = [sort keys %o];
+}
+
+
+=item init_MANPODS
+
+Determines if man pages should be generated and initializes MAN1PODS
+and MAN3PODS as appropriate.
+
+=cut
+
+sub init_MANPODS {
+    my $self = shift;
+
+    # Set up names of manual pages to generate from pods
+    foreach my $man (qw(MAN1 MAN3)) {
+        if ( $self->{"${man}PODS"}
+             or $self->{"INSTALL${man}DIR"} =~ /^(none|\s*)$/
+        ) {
+            $self->{"${man}PODS"} ||= {};
+        }
+        else {
+            my $init_method = "init_${man}PODS";
+            $self->$init_method();
+        }
+    }
+}
+
+
+sub _has_pod {
+    my($self, $file) = @_;
+
+    my($ispod)=0;
+    if (open( my $fh, '<', $file )) {
+        while (<$fh>) {
+            if (/^=(?:head\d+|item|pod)\b/) {
+                $ispod=1;
+                last;
+            }
+        }
+        close $fh;
+    } else {
+        # If it doesn't exist yet, we assume, it has pods in it
+        $ispod = 1;
+    }
+
+    return $ispod;
+}
+
+
+=item init_MAN1PODS
+
+Initializes MAN1PODS from the list of EXE_FILES.
+
+=cut
+
+sub init_MAN1PODS {
+    my($self) = @_;
+
+    if ( exists $self->{EXE_FILES} ) {
+	foreach my $name (@{$self->{EXE_FILES}}) {
+	    next unless $self->_has_pod($name);
+
+	    $self->{MAN1PODS}->{$name} =
+		$self->catfile("\$(INST_MAN1DIR)",
+			       basename($name).".\$(MAN1EXT)");
+	}
+    }
+}
+
+
+=item init_MAN3PODS
+
+Initializes MAN3PODS from the list of PM files.
+
+=cut
+
+sub init_MAN3PODS {
+    my $self = shift;
+
+    my %manifypods = (); # we collect the keys first, i.e. the files
+                         # we have to convert to pod
+
+    foreach my $name (keys %{$self->{PM}}) {
+	if ($name =~ /\.pod\z/ ) {
+	    $manifypods{$name} = $self->{PM}{$name};
+	} elsif ($name =~ /\.p[ml]\z/ ) {
+	    if( $self->_has_pod($name) ) {
+		$manifypods{$name} = $self->{PM}{$name};
+	    }
+	}
+    }
+
+    my $parentlibs_re = join '|', @{$self->{PMLIBPARENTDIRS}};
+
+    # Remove "Configure.pm" and similar, if it's not the only pod listed
+    # To force inclusion, just name it "Configure.pod", or override
+    # MAN3PODS
+    foreach my $name (keys %manifypods) {
+	if ($self->{PERL_CORE} and $name =~ /(config|setup).*\.pm/is) {
+	    delete $manifypods{$name};
+	    next;
+	}
+	my($manpagename) = $name;
+	$manpagename =~ s/\.p(od|m|l)\z//;
+	# everything below lib is ok
+	unless($manpagename =~ s!^\W*($parentlibs_re)\W+!!s) {
+	    $manpagename = $self->catfile(
+	        split(/::/,$self->{PARENT_NAME}),$manpagename
+	    );
+	}
+	$manpagename = $self->replace_manpage_separator($manpagename);
+	$self->{MAN3PODS}->{$name} =
+	    $self->catfile("\$(INST_MAN3DIR)", "$manpagename.\$(MAN3EXT)");
+    }
+}
+
+
+=item init_PM
+
+Initializes PMLIBDIRS and PM from PMLIBDIRS.
+
+=cut
+
+sub init_PM {
+    my $self = shift;
+
+    # Some larger extensions often wish to install a number of *.pm/pl
+    # files into the library in various locations.
+
+    # The attribute PMLIBDIRS holds an array reference which lists
+    # subdirectories which we should search for library files to
+    # install. PMLIBDIRS defaults to [ 'lib', $self->{BASEEXT} ].  We
+    # recursively search through the named directories (skipping any
+    # which don't exist or contain Makefile.PL files).
+
+    # For each *.pm or *.pl file found $self->libscan() is called with
+    # the default installation path in $_[1]. The return value of
+    # libscan defines the actual installation location.  The default
+    # libscan function simply returns the path.  The file is skipped
+    # if libscan returns false.
+
+    # The default installation location passed to libscan in $_[1] is:
+    #
+    #  ./*.pm		=> $(INST_LIBDIR)/*.pm
+    #  ./xyz/...	=> $(INST_LIBDIR)/xyz/...
+    #  ./lib/...	=> $(INST_LIB)/...
+    #
+    # In this way the 'lib' directory is seen as the root of the actual
+    # perl library whereas the others are relative to INST_LIBDIR
+    # (which includes PARENT_NAME). This is a subtle distinction but one
+    # that's important for nested modules.
+
+    unless( $self->{PMLIBDIRS} ) {
+        if( $Is{VMS} ) {
+            # Avoid logical name vs directory collisions
+            $self->{PMLIBDIRS} = ['./lib', "./$self->{BASEEXT}"];
+        }
+        else {
+            $self->{PMLIBDIRS} = ['lib', $self->{BASEEXT}];
+        }
+    }
+
+    #only existing directories that aren't in $dir are allowed
+
+    # Avoid $_ wherever possible:
+    # @{$self->{PMLIBDIRS}} = grep -d && !$dir{$_}, @{$self->{PMLIBDIRS}};
+    my (@pmlibdirs) = @{$self->{PMLIBDIRS}};
+    @{$self->{PMLIBDIRS}} = ();
+    my %dir = map { ($_ => $_) } @{$self->{DIR}};
+    foreach my $pmlibdir (@pmlibdirs) {
+	-d $pmlibdir && !$dir{$pmlibdir} && push @{$self->{PMLIBDIRS}}, $pmlibdir;
+    }
+
+    unless( $self->{PMLIBPARENTDIRS} ) {
+	@{$self->{PMLIBPARENTDIRS}} = ('lib');
+    }
+
+    return if $self->{PM} and $self->{ARGS}{PM};
+
+    if (@{$self->{PMLIBDIRS}}){
+	print "Searching PMLIBDIRS: @{$self->{PMLIBDIRS}}\n"
+	    if ($Verbose >= 2);
+	require File::Find;
+        File::Find::find(sub {
+            if (-d $_){
+                unless ($self->libscan($_)){
+                    $File::Find::prune = 1;
+                }
+                return;
+            }
+            return if /\#/;
+            return if /~$/;             # emacs temp files
+            return if /,v$/;            # RCS files
+            return if m{\.swp$};        # vim swap files
+
+	    my $path   = $File::Find::name;
+            my $prefix = $self->{INST_LIBDIR};
+            my $striplibpath;
+
+	    my $parentlibs_re = join '|', @{$self->{PMLIBPARENTDIRS}};
+	    $prefix =  $self->{INST_LIB}
+                if ($striplibpath = $path) =~ s{^(\W*)($parentlibs_re)\W}
+	                                       {$1}i;
+
+	    my($inst) = $self->catfile($prefix,$striplibpath);
+	    local($_) = $inst; # for backwards compatibility
+	    $inst = $self->libscan($inst);
+	    print "libscan($path) => '$inst'\n" if ($Verbose >= 2);
+	    return unless $inst;
+	    $self->{PM}{$path} = $inst;
+	}, @{$self->{PMLIBDIRS}});
+    }
+}
+
+
+=item init_DIRFILESEP
+
+Using / for Unix.  Called by init_main.
+
+=cut
+
+sub init_DIRFILESEP {
+    my($self) = shift;
+
+    $self->{DIRFILESEP} = '/';
+}
+
+
+=item init_main
+
+Initializes AR, AR_STATIC_ARGS, BASEEXT, CONFIG, DISTNAME, DLBASE,
+EXE_EXT, FULLEXT, FULLPERL, FULLPERLRUN, FULLPERLRUNINST, INST_*,
+INSTALL*, INSTALLDIRS, LIB_EXT, LIBPERL_A, MAP_TARGET, NAME,
+OBJ_EXT, PARENT_NAME, PERL, PERL_ARCHLIB, PERL_INC, PERL_LIB,
+PERL_SRC, PERLRUN, PERLRUNINST, PREFIX, VERSION,
+VERSION_SYM, XS_VERSION.
+
+=cut
+
+sub init_main {
+    my($self) = @_;
+
+    # --- Initialize Module Name and Paths
+
+    # NAME    = Foo::Bar::Oracle
+    # FULLEXT = Foo/Bar/Oracle
+    # BASEEXT = Oracle
+    # PARENT_NAME = Foo::Bar
+### Only UNIX:
+###    ($self->{FULLEXT} =
+###     $self->{NAME}) =~ s!::!/!g ; #eg. BSD/Foo/Socket
+    $self->{FULLEXT} = $self->catdir(split /::/, $self->{NAME});
+
+
+    # Copied from DynaLoader:
+
+    my(@modparts) = split(/::/,$self->{NAME});
+    my($modfname) = $modparts[-1];
+
+    # Some systems have restrictions on files names for DLL's etc.
+    # mod2fname returns appropriate file base name (typically truncated)
+    # It may also edit @modparts if required.
+    # We require DynaLoader to make sure that mod2fname is loaded
+    eval { require DynaLoader };
+    if (defined &DynaLoader::mod2fname) {
+        $modfname = &DynaLoader::mod2fname(\@modparts);
+    }
+
+    ($self->{PARENT_NAME}, $self->{BASEEXT}) = $self->{NAME} =~ m!(?:([\w:]+)::)?(\w+)\z! ;
+    $self->{PARENT_NAME} ||= '';
+
+    if (defined &DynaLoader::mod2fname) {
+	# As of 5.001m, dl_os2 appends '_'
+	$self->{DLBASE} = $modfname;
+    } else {
+	$self->{DLBASE} = '$(BASEEXT)';
+    }
+
+
+    # --- Initialize PERL_LIB, PERL_SRC
+
+    # *Real* information: where did we get these two from? ...
+    my $inc_config_dir = dirname($INC{'Config.pm'});
+    my $inc_carp_dir   = dirname($INC{'Carp.pm'});
+
+    unless ($self->{PERL_SRC}){
+        foreach my $dir_count (1..8) { # 8 is the VMS limit for nesting
+            my $dir = $self->catdir(($Updir) x $dir_count);
+
+            if (-f $self->catfile($dir,"config_h.SH")   &&
+                -f $self->catfile($dir,"perl.h")        &&
+                -f $self->catfile($dir,"lib","strict.pm")
+            ) {
+                $self->{PERL_SRC}=$dir ;
+                last;
+            }
+        }
+    }
+
+    warn "PERL_CORE is set but I can't find your PERL_SRC!\n" if
+      $self->{PERL_CORE} and !$self->{PERL_SRC};
+
+    if ($self->{PERL_SRC}){
+	$self->{PERL_LIB}     ||= $self->catdir("$self->{PERL_SRC}","lib");
+
+        $self->{PERL_ARCHLIB} = $self->{PERL_LIB};
+        $self->{PERL_INC}     = ($Is{Win32}) ?
+            $self->catdir($self->{PERL_LIB},"CORE") : $self->{PERL_SRC};
+
+	# catch a situation that has occurred a few times in the past:
+	unless (
+		-s $self->catfile($self->{PERL_SRC},'cflags')
+		or
+		$Is{VMS}
+		&&
+		-s $self->catfile($self->{PERL_SRC},'vmsish.h')
+		or
+		$Is{Win32}
+	       ){
+	    warn qq{
+You cannot build extensions below the perl source tree after executing
+a 'make clean' in the perl source tree.
+
+To rebuild extensions distributed with the perl source you should
+simply Configure (to include those extensions) and then build perl as
+normal. After installing perl the source tree can be deleted. It is
+not needed for building extensions by running 'perl Makefile.PL'
+usually without extra arguments.
+
+It is recommended that you unpack and build additional extensions away
+from the perl source tree.
+};
+	}
+    } else {
+	# we should also consider $ENV{PERL5LIB} here
+        my $old = $self->{PERL_LIB} || $self->{PERL_ARCHLIB} || $self->{PERL_INC};
+	$self->{PERL_LIB}     ||= $Config{privlibexp};
+	$self->{PERL_ARCHLIB} ||= $Config{archlibexp};
+	$self->{PERL_INC}     = $self->catdir("$self->{PERL_ARCHLIB}","CORE"); # wild guess for now
+	my $perl_h;
+
+	if (not -f ($perl_h = $self->catfile($self->{PERL_INC},"perl.h"))
+	    and not $old){
+	    # Maybe somebody tries to build an extension with an
+	    # uninstalled Perl outside of Perl build tree
+	    my $lib;
+	    for my $dir (@INC) {
+	      $lib = $dir, last if -e $self->catfile($dir, "Config.pm");
+	    }
+	    if ($lib) {
+              # Win32 puts its header files in /perl/src/lib/CORE.
+              # Unix leaves them in /perl/src.
+	      my $inc = $Is{Win32} ? $self->catdir($lib, "CORE" )
+                                  : dirname $lib;
+	      if (-e $self->catfile($inc, "perl.h")) {
+		$self->{PERL_LIB}	   = $lib;
+		$self->{PERL_ARCHLIB}	   = $lib;
+		$self->{PERL_INC}	   = $inc;
+		$self->{UNINSTALLED_PERL}  = 1;
+		print <<EOP;
+... Detected uninstalled Perl.  Trying to continue.
+EOP
+	      }
+	    }
+	}
+    }
+
+    if ($Is{Android}) {
+    	# Android fun times!
+    	# ../../perl -I../../lib -MFile::Glob -e1 works
+    	# ../../../perl -I../../../lib -MFile::Glob -e1 fails to find
+    	# the .so for File::Glob.
+    	# This always affects core perl, but may also affect an installed
+    	# perl built with -Duserelocatableinc.
+    	$self->{PERL_LIB} = File::Spec->rel2abs($self->{PERL_LIB});
+    	$self->{PERL_ARCHLIB} = File::Spec->rel2abs($self->{PERL_ARCHLIB});
+    }
+    $self->{PERL_INCDEP} = $self->{PERL_INC};
+    $self->{PERL_ARCHLIBDEP} = $self->{PERL_ARCHLIB};
+
+    # We get SITELIBEXP and SITEARCHEXP directly via
+    # Get_from_Config. When we are running standard modules, these
+    # won't matter, we will set INSTALLDIRS to "perl". Otherwise we
+    # set it to "site". I prefer that INSTALLDIRS be set from outside
+    # MakeMaker.
+    $self->{INSTALLDIRS} ||= "site";
+
+    $self->{MAN1EXT} ||= $Config{man1ext};
+    $self->{MAN3EXT} ||= $Config{man3ext};
+
+    # Get some stuff out of %Config if we haven't yet done so
+    print "CONFIG must be an array ref\n"
+        if ($self->{CONFIG} and ref $self->{CONFIG} ne 'ARRAY');
+    $self->{CONFIG} = [] unless (ref $self->{CONFIG});
+    push(@{$self->{CONFIG}}, @ExtUtils::MakeMaker::Get_from_Config);
+    push(@{$self->{CONFIG}}, 'shellflags') if $Config{shellflags};
+    my(%once_only);
+    foreach my $m (@{$self->{CONFIG}}){
+        next if $once_only{$m};
+        print "CONFIG key '$m' does not exist in Config.pm\n"
+                unless exists $Config{$m};
+        $self->{uc $m} ||= $Config{$m};
+        $once_only{$m} = 1;
+    }
+
+# This is too dangerous:
+#    if ($^O eq "next") {
+#	$self->{AR} = "libtool";
+#	$self->{AR_STATIC_ARGS} = "-o";
+#    }
+# But I leave it as a placeholder
+
+    $self->{AR_STATIC_ARGS} ||= "cr";
+
+    # These should never be needed
+    $self->{OBJ_EXT} ||= '.o';
+    $self->{LIB_EXT} ||= '.a';
+
+    $self->{MAP_TARGET} ||= "perl";
+
+    $self->{LIBPERL_A} ||= "libperl$self->{LIB_EXT}";
+
+    # make a simple check if we find strict
+    warn "Warning: PERL_LIB ($self->{PERL_LIB}) seems not to be a perl library directory
+        (strict.pm not found)"
+        unless -f $self->catfile("$self->{PERL_LIB}","strict.pm") ||
+               $self->{NAME} eq "ExtUtils::MakeMaker";
+}
+
+=item init_tools
+
+Initializes tools to use their common (and faster) Unix commands.
+
+=cut
+
+sub init_tools {
+    my $self = shift;
+
+    $self->{ECHO}       ||= 'echo';
+    $self->{ECHO_N}     ||= 'echo -n';
+    $self->{RM_F}       ||= "rm -f";
+    $self->{RM_RF}      ||= "rm -rf";
+    $self->{TOUCH}      ||= "touch";
+    $self->{TEST_F}     ||= "test -f";
+    $self->{TEST_S}     ||= "test -s";
+    $self->{CP}         ||= "cp";
+    $self->{MV}         ||= "mv";
+    $self->{CHMOD}      ||= "chmod";
+    $self->{FALSE}      ||= 'false';
+    $self->{TRUE}       ||= 'true';
+
+    $self->{LD}         ||= 'ld';
+
+    return $self->SUPER::init_tools(@_);
+
+    # After SUPER::init_tools so $Config{shell} has a
+    # chance to get set.
+    $self->{SHELL}      ||= '/bin/sh';
+
+    return;
+}
+
+
+=item init_linker
+
+Unix has no need of special linker flags.
+
+=cut
+
+sub init_linker {
+    my($self) = shift;
+    $self->{PERL_ARCHIVE} ||= '';
+    $self->{PERL_ARCHIVEDEP} ||= '';
+    $self->{PERL_ARCHIVE_AFTER} ||= '';
+    $self->{EXPORT_LIST}  ||= '';
+}
+
+
+=begin _protected
+
+=item init_lib2arch
+
+    $mm->init_lib2arch
+
+=end _protected
+
+=cut
+
+sub init_lib2arch {
+    my($self) = shift;
+
+    # The user who requests an installation directory explicitly
+    # should not have to tell us an architecture installation directory
+    # as well. We look if a directory exists that is named after the
+    # architecture. If not we take it as a sign that it should be the
+    # same as the requested installation directory. Otherwise we take
+    # the found one.
+    for my $libpair ({l=>"privlib",   a=>"archlib"},
+                     {l=>"sitelib",   a=>"sitearch"},
+                     {l=>"vendorlib", a=>"vendorarch"},
+                    )
+    {
+        my $lib = "install$libpair->{l}";
+        my $Lib = uc $lib;
+        my $Arch = uc "install$libpair->{a}";
+        if( $self->{$Lib} && ! $self->{$Arch} ){
+            my($ilib) = $Config{$lib};
+
+            $self->prefixify($Arch,$ilib,$self->{$Lib});
+
+            unless (-d $self->{$Arch}) {
+                print "Directory $self->{$Arch} not found\n"
+                  if $Verbose;
+                $self->{$Arch} = $self->{$Lib};
+            }
+            print "Defaulting $Arch to $self->{$Arch}\n" if $Verbose;
+        }
+    }
+}
+
+
+=item init_PERL
+
+    $mm->init_PERL;
+
+Called by init_main.  Sets up ABSPERL, PERL, FULLPERL and all the
+*PERLRUN* permutations.
+
+    PERL is allowed to be miniperl
+    FULLPERL must be a complete perl
+
+    ABSPERL is PERL converted to an absolute path
+
+    *PERLRUN contains everything necessary to run perl, find it's
+         libraries, etc...
+
+    *PERLRUNINST is *PERLRUN + everything necessary to find the
+         modules being built.
+
+=cut
+
+sub init_PERL {
+    my($self) = shift;
+
+    my @defpath = ();
+    foreach my $component ($self->{PERL_SRC}, $self->path(),
+                           $Config{binexp})
+    {
+	push @defpath, $component if defined $component;
+    }
+
+    # Build up a set of file names (not command names).
+    my $thisperl = $self->canonpath($^X);
+    $thisperl .= $Config{exe_ext} unless
+                # VMS might have a file version # at the end
+      $Is{VMS} ? $thisperl =~ m/$Config{exe_ext}(;\d+)?$/i
+              : $thisperl =~ m/$Config{exe_ext}$/i;
+
+    # We need a relative path to perl when in the core.
+    $thisperl = $self->abs2rel($thisperl) if $self->{PERL_CORE};
+
+    my @perls = ($thisperl);
+    push @perls, map { "$_$Config{exe_ext}" }
+                     ("perl$Config{version}", 'perl5', 'perl');
+
+    # miniperl has priority over all but the canonical perl when in the
+    # core.  Otherwise its a last resort.
+    my $miniperl = "miniperl$Config{exe_ext}";
+    if( $self->{PERL_CORE} ) {
+        splice @perls, 1, 0, $miniperl;
+    }
+    else {
+        push @perls, $miniperl;
+    }
+
+    $self->{PERL} ||=
+        $self->find_perl(5.0, \@perls, \@defpath, $Verbose );
+
+    my $perl = $self->{PERL};
+    $perl =~ s/^"//;
+    my $has_mcr = $perl =~ s/^MCR\s*//;
+    my $perlflags = '';
+    my $stripped_perl;
+    while ($perl) {
+	($stripped_perl = $perl) =~ s/"$//;
+	last if -x $stripped_perl;
+	last unless $perl =~ s/(\s+\S+)$//;
+	$perlflags = $1.$perlflags;
+    }
+    $self->{PERL} = $stripped_perl;
+    $self->{PERL} = 'MCR '.$self->{PERL} if $has_mcr || $Is{VMS};
+
+    # When built for debugging, VMS doesn't create perl.exe but ndbgperl.exe.
+    my $perl_name = 'perl';
+    $perl_name = 'ndbgperl' if $Is{VMS} &&
+      defined $Config{usevmsdebug} && $Config{usevmsdebug} eq 'define';
+
+    # XXX This logic is flawed.  If "miniperl" is anywhere in the path
+    # it will get confused.  It should be fixed to work only on the filename.
+    # Define 'FULLPERL' to be a non-miniperl (used in test: target)
+    unless ($self->{FULLPERL}) {
+      ($self->{FULLPERL} = $self->{PERL}) =~ s/\Q$miniperl\E$/$perl_name$Config{exe_ext}/i;
+      $self->{FULLPERL} = qq{"$self->{FULLPERL}"}.$perlflags;
+    }
+    # Can't have an image name with quotes, and findperl will have
+    # already escaped spaces.
+    $self->{FULLPERL} =~ tr/"//d if $Is{VMS};
+
+    # Little hack to get around VMS's find_perl putting "MCR" in front
+    # sometimes.
+    $self->{ABSPERL} = $self->{PERL};
+    $has_mcr = $self->{ABSPERL} =~ s/^MCR\s*//;
+    if( $self->file_name_is_absolute($self->{ABSPERL}) ) {
+        $self->{ABSPERL} = '$(PERL)';
+    }
+    else {
+        $self->{ABSPERL} = $self->rel2abs($self->{ABSPERL});
+
+        # Quote the perl command if it contains whitespace
+        $self->{ABSPERL} = $self->quote_literal($self->{ABSPERL})
+          if $self->{ABSPERL} =~ /\s/;
+
+        $self->{ABSPERL} = 'MCR '.$self->{ABSPERL} if $has_mcr;
+    }
+    $self->{PERL} = qq{"$self->{PERL}"}.$perlflags;
+
+    # Can't have an image name with quotes, and findperl will have
+    # already escaped spaces.
+    $self->{PERL} =~ tr/"//d if $Is{VMS};
+
+    # Are we building the core?
+    $self->{PERL_CORE} = $ENV{PERL_CORE} unless exists $self->{PERL_CORE};
+    $self->{PERL_CORE} = 0               unless defined $self->{PERL_CORE};
+
+    # How do we run perl?
+    foreach my $perl (qw(PERL FULLPERL ABSPERL)) {
+        my $run  = $perl.'RUN';
+
+        $self->{$run}  = qq{\$($perl)};
+
+        # Make sure perl can find itself before it's installed.
+        $self->{$run} .= q{ "-I$(PERL_LIB)" "-I$(PERL_ARCHLIB)"}
+          if $self->{UNINSTALLED_PERL} || $self->{PERL_CORE};
+
+        $self->{$perl.'RUNINST'} =
+          sprintf q{$(%sRUN)%s "-I$(INST_ARCHLIB)" "-I$(INST_LIB)"},
+	    $perl, $perlflags;
+    }
+
+    return 1;
+}
+
+
+=item init_platform
+
+=item platform_constants
+
+Add MM_Unix_VERSION.
+
+=cut
+
+sub init_platform {
+    my($self) = shift;
+
+    $self->{MM_Unix_VERSION} = $VERSION;
+    $self->{PERL_MALLOC_DEF} = '-DPERL_EXTMALLOC_DEF -Dmalloc=Perl_malloc '.
+                               '-Dfree=Perl_mfree -Drealloc=Perl_realloc '.
+                               '-Dcalloc=Perl_calloc';
+
+}
+
+sub platform_constants {
+    my($self) = shift;
+    my $make_frag = '';
+
+    foreach my $macro (qw(MM_Unix_VERSION PERL_MALLOC_DEF))
+    {
+        next unless defined $self->{$macro};
+        $make_frag .= "$macro = $self->{$macro}\n";
+    }
+
+    return $make_frag;
+}
+
+
+=item init_PERM
+
+  $mm->init_PERM
+
+Called by init_main.  Initializes PERL_*
+
+=cut
+
+sub init_PERM {
+    my($self) = shift;
+
+    $self->{PERM_DIR} = 755  unless defined $self->{PERM_DIR};
+    $self->{PERM_RW}  = 644  unless defined $self->{PERM_RW};
+    $self->{PERM_RWX} = 755  unless defined $self->{PERM_RWX};
+
+    return 1;
+}
+
+
+=item init_xs
+
+    $mm->init_xs
+
+Sets up macros having to do with XS code.  Currently just INST_STATIC,
+INST_DYNAMIC and INST_BOOT.
+
+=cut
+
+sub init_xs {
+    my $self = shift;
+
+    if ($self->has_link_code()) {
+        $self->{INST_STATIC}  =
+          $self->catfile('$(INST_ARCHAUTODIR)', '$(BASEEXT)$(LIB_EXT)');
+        $self->{INST_DYNAMIC} =
+          $self->catfile('$(INST_ARCHAUTODIR)', '$(DLBASE).$(DLEXT)');
+        $self->{INST_BOOT}    =
+          $self->catfile('$(INST_ARCHAUTODIR)', '$(BASEEXT).bs');
+    } else {
+        $self->{INST_STATIC}  = '';
+        $self->{INST_DYNAMIC} = '';
+        $self->{INST_BOOT}    = '';
+    }
+}
+
+=item install (o)
+
+Defines the install target.
+
+=cut
+
+sub install {
+    my($self, %attribs) = @_;
+    my(@m);
+
+    push @m, q{
+install :: pure_install doc_install
+	$(NOECHO) $(NOOP)
+
+install_perl :: pure_perl_install doc_perl_install
+	$(NOECHO) $(NOOP)
+
+install_site :: pure_site_install doc_site_install
+	$(NOECHO) $(NOOP)
+
+install_vendor :: pure_vendor_install doc_vendor_install
+	$(NOECHO) $(NOOP)
+
+pure_install :: pure_$(INSTALLDIRS)_install
+	$(NOECHO) $(NOOP)
+
+doc_install :: doc_$(INSTALLDIRS)_install
+	$(NOECHO) $(NOOP)
+
+pure__install : pure_site_install
+	$(NOECHO) $(ECHO) INSTALLDIRS not defined, defaulting to INSTALLDIRS=site
+
+doc__install : doc_site_install
+	$(NOECHO) $(ECHO) INSTALLDIRS not defined, defaulting to INSTALLDIRS=site
+
+pure_perl_install :: all
+	$(NOECHO) $(MOD_INSTALL) \
+};
+
+    push @m,
+q{		read "}.$self->catfile('$(PERL_ARCHLIB)','auto','$(FULLEXT)','.packlist').q{" \
+		write "}.$self->catfile('$(DESTINSTALLARCHLIB)','auto','$(FULLEXT)','.packlist').q{" \
+} unless $self->{NO_PACKLIST};
+
+    push @m,
+q{		"$(INST_LIB)" "$(DESTINSTALLPRIVLIB)" \
+		"$(INST_ARCHLIB)" "$(DESTINSTALLARCHLIB)" \
+		"$(INST_BIN)" "$(DESTINSTALLBIN)" \
+		"$(INST_SCRIPT)" "$(DESTINSTALLSCRIPT)" \
+		"$(INST_MAN1DIR)" "$(DESTINSTALLMAN1DIR)" \
+		"$(INST_MAN3DIR)" "$(DESTINSTALLMAN3DIR)"
+	$(NOECHO) $(WARN_IF_OLD_PACKLIST) \
+		"}.$self->catdir('$(SITEARCHEXP)','auto','$(FULLEXT)').q{"
+
+
+pure_site_install :: all
+	$(NOECHO) $(MOD_INSTALL) \
+};
+    push @m,
+q{		read "}.$self->catfile('$(SITEARCHEXP)','auto','$(FULLEXT)','.packlist').q{" \
+		write "}.$self->catfile('$(DESTINSTALLSITEARCH)','auto','$(FULLEXT)','.packlist').q{" \
+} unless $self->{NO_PACKLIST};
+
+    push @m,
+q{		"$(INST_LIB)" "$(DESTINSTALLSITELIB)" \
+		"$(INST_ARCHLIB)" "$(DESTINSTALLSITEARCH)" \
+		"$(INST_BIN)" "$(DESTINSTALLSITEBIN)" \
+		"$(INST_SCRIPT)" "$(DESTINSTALLSITESCRIPT)" \
+		"$(INST_MAN1DIR)" "$(DESTINSTALLSITEMAN1DIR)" \
+		"$(INST_MAN3DIR)" "$(DESTINSTALLSITEMAN3DIR)"
+	$(NOECHO) $(WARN_IF_OLD_PACKLIST) \
+		"}.$self->catdir('$(PERL_ARCHLIB)','auto','$(FULLEXT)').q{"
+
+pure_vendor_install :: all
+	$(NOECHO) $(MOD_INSTALL) \
+};
+    push @m,
+q{		read "}.$self->catfile('$(VENDORARCHEXP)','auto','$(FULLEXT)','.packlist').q{" \
+		write "}.$self->catfile('$(DESTINSTALLVENDORARCH)','auto','$(FULLEXT)','.packlist').q{" \
+} unless $self->{NO_PACKLIST};
+
+    push @m,
+q{		"$(INST_LIB)" "$(DESTINSTALLVENDORLIB)" \
+		"$(INST_ARCHLIB)" "$(DESTINSTALLVENDORARCH)" \
+		"$(INST_BIN)" "$(DESTINSTALLVENDORBIN)" \
+		"$(INST_SCRIPT)" "$(DESTINSTALLVENDORSCRIPT)" \
+		"$(INST_MAN1DIR)" "$(DESTINSTALLVENDORMAN1DIR)" \
+		"$(INST_MAN3DIR)" "$(DESTINSTALLVENDORMAN3DIR)"
+
+};
+
+    push @m, q{
+doc_perl_install :: all
+	$(NOECHO) $(NOOP)
+
+doc_site_install :: all
+	$(NOECHO) $(NOOP)
+
+doc_vendor_install :: all
+	$(NOECHO) $(NOOP)
+
+} if $self->{NO_PERLLOCAL};
+
+    push @m, q{
+doc_perl_install :: all
+	$(NOECHO) $(ECHO) Appending installation info to "$(DESTINSTALLARCHLIB)/perllocal.pod"
+	-$(NOECHO) $(MKPATH) "$(DESTINSTALLARCHLIB)"
+	-$(NOECHO) $(DOC_INSTALL) \
+		"Module" "$(NAME)" \
+		"installed into" $(INSTALLPRIVLIB) \
+		LINKTYPE "$(LINKTYPE)" \
+		VERSION "$(VERSION)" \
+		EXE_FILES "$(EXE_FILES)" \
+		>> "}.$self->catfile('$(DESTINSTALLARCHLIB)','perllocal.pod').q{"
+
+doc_site_install :: all
+	$(NOECHO) $(ECHO) Appending installation info to "$(DESTINSTALLARCHLIB)/perllocal.pod"
+	-$(NOECHO) $(MKPATH) "$(DESTINSTALLARCHLIB)"
+	-$(NOECHO) $(DOC_INSTALL) \
+		"Module" "$(NAME)" \
+		"installed into" $(INSTALLSITELIB) \
+		LINKTYPE "$(LINKTYPE)" \
+		VERSION "$(VERSION)" \
+		EXE_FILES "$(EXE_FILES)" \
+		>> "}.$self->catfile('$(DESTINSTALLARCHLIB)','perllocal.pod').q{"
+
+doc_vendor_install :: all
+	$(NOECHO) $(ECHO) Appending installation info to "$(DESTINSTALLARCHLIB)/perllocal.pod"
+	-$(NOECHO) $(MKPATH) "$(DESTINSTALLARCHLIB)"
+	-$(NOECHO) $(DOC_INSTALL) \
+		"Module" "$(NAME)" \
+		"installed into" $(INSTALLVENDORLIB) \
+		LINKTYPE "$(LINKTYPE)" \
+		VERSION "$(VERSION)" \
+		EXE_FILES "$(EXE_FILES)" \
+		>> "}.$self->catfile('$(DESTINSTALLARCHLIB)','perllocal.pod').q{"
+
+} unless $self->{NO_PERLLOCAL};
+
+    push @m, q{
+uninstall :: uninstall_from_$(INSTALLDIRS)dirs
+	$(NOECHO) $(NOOP)
+
+uninstall_from_perldirs ::
+	$(NOECHO) $(UNINSTALL) "}.$self->catfile('$(PERL_ARCHLIB)','auto','$(FULLEXT)','.packlist').q{"
+
+uninstall_from_sitedirs ::
+	$(NOECHO) $(UNINSTALL) "}.$self->catfile('$(SITEARCHEXP)','auto','$(FULLEXT)','.packlist').q{"
+
+uninstall_from_vendordirs ::
+	$(NOECHO) $(UNINSTALL) "}.$self->catfile('$(VENDORARCHEXP)','auto','$(FULLEXT)','.packlist').q{"
+};
+
+    join("",@m);
+}
+
+=item installbin (o)
+
+Defines targets to make and to install EXE_FILES.
+
+=cut
+
+sub installbin {
+    my($self) = shift;
+
+    return "" unless $self->{EXE_FILES} && ref $self->{EXE_FILES} eq "ARRAY";
+    my @exefiles = @{$self->{EXE_FILES}};
+    return "" unless @exefiles;
+
+    @exefiles = map vmsify($_), @exefiles if $Is{VMS};
+
+    my %fromto;
+    for my $from (@exefiles) {
+	my($path)= $self->catfile('$(INST_SCRIPT)', basename($from));
+
+	local($_) = $path; # for backwards compatibility
+	my $to = $self->libscan($path);
+	print "libscan($from) => '$to'\n" if ($Verbose >=2);
+
+        $to = vmsify($to) if $Is{VMS};
+	$fromto{$from} = $to;
+    }
+    my @to   = values %fromto;
+
+    my @m;
+    push(@m, qq{
+EXE_FILES = @exefiles
+
+pure_all :: @to
+	\$(NOECHO) \$(NOOP)
+
+realclean ::
+});
+
+    # realclean can get rather large.
+    push @m, map "\t$_\n", $self->split_command('$(RM_F)', @to);
+    push @m, "\n";
+
+
+    # A target for each exe file.
+    while (my($from,$to) = each %fromto) {
+	last unless defined $from;
+
+	push @m, sprintf <<'MAKE', $to, $from, $to, $from, $to, $to, $to;
+%s : %s $(FIRST_MAKEFILE) $(INST_SCRIPT)$(DFSEP).exists $(INST_BIN)$(DFSEP).exists
+	$(NOECHO) $(RM_F) %s
+	$(CP) %s %s
+	$(FIXIN) %s
+	-$(NOECHO) $(CHMOD) $(PERM_RWX) %s
+
+MAKE
+
+    }
+
+    join "", @m;
+}
+
+
+=item linkext (o)
+
+Defines the linkext target which in turn defines the LINKTYPE.
+
+=cut
+
+sub linkext {
+    my($self, %attribs) = @_;
+    # LINKTYPE => static or dynamic or ''
+    my($linktype) = defined $attribs{LINKTYPE} ?
+      $attribs{LINKTYPE} : '$(LINKTYPE)';
+    "
+linkext :: $linktype
+	\$(NOECHO) \$(NOOP)
+";
+}
+
+=item lsdir
+
+Takes as arguments a directory name and a regular expression. Returns
+all entries in the directory that match the regular expression.
+
+=cut
+
+sub lsdir {
+    my($self) = shift;
+    my($dir, $regex) = @_;
+    my(@ls);
+    my $dh = new DirHandle;
+    $dh->open($dir || ".") or return ();
+    @ls = $dh->read;
+    $dh->close;
+    @ls = grep(/$regex/, @ls) if $regex;
+    @ls;
+}
+
+=item macro (o)
+
+Simple subroutine to insert the macros defined by the macro attribute
+into the Makefile.
+
+=cut
+
+sub macro {
+    my($self,%attribs) = @_;
+    my(@m,$key,$val);
+    while (($key,$val) = each %attribs){
+	last unless defined $key;
+	push @m, "$key = $val\n";
+    }
+    join "", @m;
+}
+
+=item makeaperl (o)
+
+Called by staticmake. Defines how to write the Makefile to produce a
+static new perl.
+
+By default the Makefile produced includes all the static extensions in
+the perl library. (Purified versions of library files, e.g.,
+DynaLoader_pure_p1_c0_032.a are automatically ignored to avoid link errors.)
+
+=cut
+
+sub makeaperl {
+    my($self, %attribs) = @_;
+    my($makefilename, $searchdirs, $static, $extra, $perlinc, $target, $tmp, $libperl) =
+	@attribs{qw(MAKE DIRS STAT EXTRA INCL TARGET TMP LIBPERL)};
+    my(@m);
+    push @m, "
+# --- MakeMaker makeaperl section ---
+MAP_TARGET    = $target
+FULLPERL      = $self->{FULLPERL}
+";
+    return join '', @m if $self->{PARENT};
+
+    my($dir) = join ":", @{$self->{DIR}};
+
+    unless ($self->{MAKEAPERL}) {
+	push @m, q{
+$(MAP_TARGET) :: static $(MAKE_APERL_FILE)
+	$(MAKE) $(USEMAKEFILE) $(MAKE_APERL_FILE) $@
+
+$(MAKE_APERL_FILE) : $(FIRST_MAKEFILE) pm_to_blib
+	$(NOECHO) $(ECHO) Writing \"$(MAKE_APERL_FILE)\" for this $(MAP_TARGET)
+	$(NOECHO) $(PERLRUNINST) \
+		Makefile.PL DIR="}, $dir, q{" \
+		MAKEFILE=$(MAKE_APERL_FILE) LINKTYPE=static \
+		MAKEAPERL=1 NORECURS=1 CCCDLFLAGS=};
+
+	foreach (@ARGV){
+		if( /\s/ ){
+			s/=(.*)/='$1'/;
+		}
+		push @m, " \\\n\t\t$_";
+	}
+#	push @m, map( " \\\n\t\t$_", @ARGV );
+	push @m, "\n";
+
+	return join '', @m;
+    }
+
+
+
+    my($cccmd, $linkcmd, $lperl);
+
+
+    $cccmd = $self->const_cccmd($libperl);
+    $cccmd =~ s/^CCCMD\s*=\s*//;
+    $cccmd =~ s/\$\(INC\)/ "-I$self->{PERL_INC}" /;
+    $cccmd .= " $Config{cccdlflags}"
+	if ($Config{useshrplib} eq 'true');
+    $cccmd =~ s/\(CC\)/\(PERLMAINCC\)/;
+
+    # The front matter of the linkcommand...
+    $linkcmd = join ' ', "\$(CC)",
+	    grep($_, @Config{qw(ldflags ccdlflags)});
+    $linkcmd =~ s/\s+/ /g;
+    $linkcmd =~ s,(perl\.exp),\$(PERL_INC)/$1,;
+
+    # Which *.a files could we make use of...
+    my %static;
+    require File::Find;
+    File::Find::find(sub {
+	return unless m/\Q$self->{LIB_EXT}\E$/;
+
+        # Skip perl's libraries.
+        return if m/^libperl/ or m/^perl\Q$self->{LIB_EXT}\E$/;
+
+	# Skip purified versions of libraries
+        # (e.g., DynaLoader_pure_p1_c0_032.a)
+	return if m/_pure_\w+_\w+_\w+\.\w+$/ and -f "$File::Find::dir/.pure";
+
+	if( exists $self->{INCLUDE_EXT} ){
+		my $found = 0;
+
+		(my $xx = $File::Find::name) =~ s,.*?/auto/,,s;
+		$xx =~ s,/?$_,,;
+		$xx =~ s,/,::,g;
+
+		# Throw away anything not explicitly marked for inclusion.
+		# DynaLoader is implied.
+		foreach my $incl ((@{$self->{INCLUDE_EXT}},'DynaLoader')){
+			if( $xx eq $incl ){
+				$found++;
+				last;
+			}
+		}
+		return unless $found;
+	}
+	elsif( exists $self->{EXCLUDE_EXT} ){
+		(my $xx = $File::Find::name) =~ s,.*?/auto/,,s;
+		$xx =~ s,/?$_,,;
+		$xx =~ s,/,::,g;
+
+		# Throw away anything explicitly marked for exclusion
+		foreach my $excl (@{$self->{EXCLUDE_EXT}}){
+			return if( $xx eq $excl );
+		}
+	}
+
+	# don't include the installed version of this extension. I
+	# leave this line here, although it is not necessary anymore:
+	# I patched minimod.PL instead, so that Miniperl.pm won't
+	# include duplicates
+
+	# Once the patch to minimod.PL is in the distribution, I can
+	# drop it
+	return if $File::Find::name =~ m:auto/$self->{FULLEXT}/$self->{BASEEXT}$self->{LIB_EXT}\z:;
+	use Cwd 'cwd';
+	$static{cwd() . "/" . $_}++;
+    }, grep( -d $_, @{$searchdirs || []}) );
+
+    # We trust that what has been handed in as argument, will be buildable
+    $static = [] unless $static;
+    @static{@{$static}} = (1) x @{$static};
+
+    $extra = [] unless $extra && ref $extra eq 'ARRAY';
+    for (sort keys %static) {
+	next unless /\Q$self->{LIB_EXT}\E\z/;
+	$_ = dirname($_) . "/extralibs.ld";
+	push @$extra, $_;
+    }
+
+    s/^(.*)/"-I$1"/ for @{$perlinc || []};
+
+    $target ||= "perl";
+    $tmp    ||= ".";
+
+# MAP_STATIC doesn't look into subdirs yet. Once "all" is made and we
+# regenerate the Makefiles, MAP_STATIC and the dependencies for
+# extralibs.all are computed correctly
+    push @m, "
+MAP_LINKCMD   = $linkcmd
+MAP_PERLINC   = @{$perlinc || []}
+MAP_STATIC    = ",
+join(" \\\n\t", reverse sort keys %static), "
+
+MAP_PRELIBS   = $Config{perllibs} $Config{cryptlib}
+";
+
+    if (defined $libperl) {
+	($lperl = $libperl) =~ s/\$\(A\)/$self->{LIB_EXT}/;
+    }
+    unless ($libperl && -f $lperl) { # Ilya's code...
+	my $dir = $self->{PERL_SRC} || "$self->{PERL_ARCHLIB}/CORE";
+	$dir = "$self->{PERL_ARCHLIB}/.." if $self->{UNINSTALLED_PERL};
+	$libperl ||= "libperl$self->{LIB_EXT}";
+	$libperl   = "$dir/$libperl";
+	$lperl   ||= "libperl$self->{LIB_EXT}";
+	$lperl     = "$dir/$lperl";
+
+        if (! -f $libperl and ! -f $lperl) {
+          # We did not find a static libperl. Maybe there is a shared one?
+          if ($Is{SunOS}) {
+            $lperl  = $libperl = "$dir/$Config{libperl}";
+            # SUNOS ld does not take the full path to a shared library
+            $libperl = '' if $Is{SunOS4};
+          }
+        }
+
+	print "Warning: $libperl not found
+    If you're going to build a static perl binary, make sure perl is installed
+    otherwise ignore this warning\n"
+		unless (-f $lperl || defined($self->{PERL_SRC}));
+    }
+
+    # SUNOS ld does not take the full path to a shared library
+    my $llibperl = $libperl ? '$(MAP_LIBPERL)' : '-lperl';
+
+    push @m, "
+MAP_LIBPERL = $libperl
+LLIBPERL    = $llibperl
+";
+
+    push @m, '
+$(INST_ARCHAUTODIR)/extralibs.all : $(INST_ARCHAUTODIR)$(DFSEP).exists '.join(" \\\n\t", @$extra).'
+	$(NOECHO) $(RM_F)  $@
+	$(NOECHO) $(TOUCH) $@
+';
+
+    foreach my $catfile (@$extra){
+	push @m, "\tcat $catfile >> \$\@\n";
+    }
+
+push @m, "
+\$(MAP_TARGET) :: $tmp/perlmain\$(OBJ_EXT) \$(MAP_LIBPERL) \$(MAP_STATIC) \$(INST_ARCHAUTODIR)/extralibs.all
+	\$(MAP_LINKCMD) -o \$\@ \$(OPTIMIZE) $tmp/perlmain\$(OBJ_EXT) \$(LDFROM) \$(MAP_STATIC) \$(LLIBPERL) `cat \$(INST_ARCHAUTODIR)/extralibs.all` \$(MAP_PRELIBS)
+	\$(NOECHO) \$(ECHO) 'To install the new \"\$(MAP_TARGET)\" binary, call'
+	\$(NOECHO) \$(ECHO) '    \$(MAKE) \$(USEMAKEFILE) $makefilename inst_perl MAP_TARGET=\$(MAP_TARGET)'
+	\$(NOECHO) \$(ECHO) 'To remove the intermediate files say'
+	\$(NOECHO) \$(ECHO) '    \$(MAKE) \$(USEMAKEFILE) $makefilename map_clean'
+
+$tmp/perlmain\$(OBJ_EXT): $tmp/perlmain.c
+";
+    push @m, "\t".$self->cd($tmp, qq[$cccmd "-I\$(PERL_INC)" perlmain.c])."\n";
+
+    push @m, qq{
+$tmp/perlmain.c: $makefilename}, q{
+	$(NOECHO) $(ECHO) Writing $@
+	$(NOECHO) $(PERL) $(MAP_PERLINC) "-MExtUtils::Miniperl" \\
+		-e "writemain(grep s#.*/auto/##s, split(q| |, q|$(MAP_STATIC)|))" > $@t && $(MV) $@t $@
+
+};
+    push @m, "\t", q{$(NOECHO) $(PERL) "$(INSTALLSCRIPT)/fixpmain"
+} if (defined (&Dos::UseLFN) && Dos::UseLFN()==0);
+
+
+    push @m, q{
+doc_inst_perl :
+	$(NOECHO) $(ECHO) Appending installation info to "$(DESTINSTALLARCHLIB)/perllocal.pod"
+	-$(NOECHO) $(MKPATH) "$(DESTINSTALLARCHLIB)"
+	-$(NOECHO) $(DOC_INSTALL) \
+		"Perl binary" "$(MAP_TARGET)" \
+		MAP_STATIC "$(MAP_STATIC)" \
+		MAP_EXTRA "`cat $(INST_ARCHAUTODIR)/extralibs.all`" \
+		MAP_LIBPERL "$(MAP_LIBPERL)" \
+		>> "}.$self->catfile('$(DESTINSTALLARCHLIB)','perllocal.pod').q{"
+
+};
+
+    push @m, q{
+inst_perl : pure_inst_perl doc_inst_perl
+
+pure_inst_perl : $(MAP_TARGET)
+	}.$self->{CP}.q{ $(MAP_TARGET) "}.$self->catfile('$(DESTINSTALLBIN)','$(MAP_TARGET)').q{"
+
+clean :: map_clean
+
+map_clean :
+	}.$self->{RM_F}.qq{ $tmp/perlmain\$(OBJ_EXT) $tmp/perlmain.c \$(MAP_TARGET) $makefilename \$(INST_ARCHAUTODIR)/extralibs.all
+};
+
+    join '', @m;
+}
+
+=item makefile (o)
+
+Defines how to rewrite the Makefile.
+
+=cut
+
+sub makefile {
+    my($self) = shift;
+    my $m;
+    # We do not know what target was originally specified so we
+    # must force a manual rerun to be sure. But as it should only
+    # happen very rarely it is not a significant problem.
+    $m = '
+$(OBJECT) : $(FIRST_MAKEFILE)
+
+' if $self->{OBJECT};
+
+    my $newer_than_target = $Is{VMS} ? '$(MMS$SOURCE_LIST)' : '$?';
+    my $mpl_args = join " ", map qq["$_"], @ARGV;
+    my $cross = '';
+    if (defined $::Cross::platform) {
+        # Inherited from win32/buildext.pl
+        $cross = "-MCross=$::Cross::platform ";
+    }
+    $m .= sprintf <<'MAKE_FRAG', $newer_than_target, $cross, $mpl_args;
+# We take a very conservative approach here, but it's worth it.
+# We move Makefile to Makefile.old here to avoid gnu make looping.
+$(FIRST_MAKEFILE) : Makefile.PL $(CONFIGDEP)
+	$(NOECHO) $(ECHO) "Makefile out-of-date with respect to %s"
+	$(NOECHO) $(ECHO) "Cleaning current config before rebuilding Makefile..."
+	-$(NOECHO) $(RM_F) $(MAKEFILE_OLD)
+	-$(NOECHO) $(MV)   $(FIRST_MAKEFILE) $(MAKEFILE_OLD)
+	- $(MAKE) $(USEMAKEFILE) $(MAKEFILE_OLD) clean $(DEV_NULL)
+	$(PERLRUN) %sMakefile.PL %s
+	$(NOECHO) $(ECHO) "==> Your Makefile has been rebuilt. <=="
+	$(NOECHO) $(ECHO) "==> Please rerun the $(MAKE) command.  <=="
+	$(FALSE)
+
+MAKE_FRAG
+
+    return $m;
+}
+
+
+=item maybe_command
+
+Returns true, if the argument is likely to be a command.
+
+=cut
+
+sub maybe_command {
+    my($self,$file) = @_;
+    return $file if -x $file && ! -d $file;
+    return;
+}
+
+
+=item needs_linking (o)
+
+Does this module need linking? Looks into subdirectory objects (see
+also has_link_code())
+
+=cut
+
+sub needs_linking {
+    my($self) = shift;
+
+    my $caller = (caller(0))[3];
+    confess("needs_linking called too early") if
+      $caller =~ /^ExtUtils::MakeMaker::/;
+    return $self->{NEEDS_LINKING} if defined $self->{NEEDS_LINKING};
+    if ($self->has_link_code or $self->{MAKEAPERL}){
+	$self->{NEEDS_LINKING} = 1;
+	return 1;
+    }
+    foreach my $child (keys %{$self->{CHILDREN}}) {
+	if ($self->{CHILDREN}->{$child}->needs_linking) {
+	    $self->{NEEDS_LINKING} = 1;
+	    return 1;
+	}
+    }
+    return $self->{NEEDS_LINKING} = 0;
+}
+
+
+=item parse_abstract
+
+parse a file and return what you think is the ABSTRACT
+
+=cut
+
+sub parse_abstract {
+    my($self,$parsefile) = @_;
+    my $result;
+
+    local $/ = "\n";
+    open(my $fh, '<', $parsefile) or die "Could not open '$parsefile': $!";
+    my $inpod = 0;
+    my $pod_encoding;
+    my $package = $self->{DISTNAME};
+    $package =~ s/-/::/g;
+    while (<$fh>) {
+        $inpod = /^=(?!cut)/ ? 1 : /^=cut/ ? 0 : $inpod;
+        next if !$inpod;
+        chop;
+
+        if ( /^=encoding\s*(.*)$/i ) {
+            $pod_encoding = $1;
+        }
+
+        if ( /^($package(?:\.pm)? \s+ -+ \s+)(.*)/x ) {
+          $result = $2;
+          next;
+        }
+        next unless $result;
+
+        if ( $result && ( /^\s*$/ || /^\=/ ) ) {
+          last;
+        }
+        $result = join ' ', $result, $_;
+    }
+    close $fh;
+
+    if ( $pod_encoding and !( $] < 5.008 or !$Config{useperlio} ) ) {
+        # Have to wrap in an eval{} for when running under PERL_CORE
+        # Encode isn't available during build phase and parsing
+        # ABSTRACT isn't important there
+        eval {
+          require Encode;
+          $result = Encode::decode($pod_encoding, $result);
+        }
+    }
+
+    return $result;
+}
+
+=item parse_version
+
+    my $version = MM->parse_version($file);
+
+Parse a $file and return what $VERSION is set to by the first assignment.
+It will return the string "undef" if it can't figure out what $VERSION
+is. $VERSION should be for all to see, so C<our $VERSION> or plain $VERSION
+are okay, but C<my $VERSION> is not.
+
+C<<package Foo VERSION>> is also checked for.  The first version
+declaration found is used, but this may change as it differs from how
+Perl does it.
+
+parse_version() will try to C<use version> before checking for
+C<$VERSION> so the following will work.
+
+    $VERSION = qv(1.2.3);
+
+=cut
+
+sub parse_version {
+    my($self,$parsefile) = @_;
+    my $result;
+
+    local $/ = "\n";
+    local $_;
+    open(my $fh, '<', $parsefile) or die "Could not open '$parsefile': $!";
+    my $inpod = 0;
+    while (<$fh>) {
+        $inpod = /^=(?!cut)/ ? 1 : /^=cut/ ? 0 : $inpod;
+        next if $inpod || /^\s*#/;
+        chop;
+        next if /^\s*(if|unless|elsif)/;
+        if ( m{^ \s* package \s+ \w[\w\:\']* \s+ (v?[0-9._]+) \s* ;  }x ) {
+            local $^W = 0;
+            $result = $1;
+        }
+        elsif ( m{(?<!\\) ([\$*]) (([\w\:\']*) \bVERSION)\b .* (?<![<>=!])\=[^=]}x ) {
+			$result = $self->get_version($parsefile, $1, $2);
+        }
+        else {
+          next;
+        }
+        last if defined $result;
+    }
+    close $fh;
+
+    if ( defined $result && $result !~ /^v?[\d_\.]+$/ ) {
+      require version;
+      my $normal = eval { version->new( $result ) };
+      $result = $normal if defined $normal;
+    }
+    $result = "undef" unless defined $result;
+    return $result;
+}
+
+sub get_version {
+    my ($self, $parsefile, $sigil, $name) = @_;
+    my $line = $_; # from the while() loop in parse_version
+    {
+        package ExtUtils::MakeMaker::_version;
+        undef *version; # in case of unexpected version() sub
+        eval {
+            require version;
+            version::->import;
+        };
+        no strict;
+        local *{$name};
+        local $^W = 0;
+        $line = $1 if $line =~ m{^(.+)}s;
+        eval($line); ## no critic
+        return ${$name};
+    }
+}
+
+=item pasthru (o)
+
+Defines the string that is passed to recursive make calls in
+subdirectories.
+
+=cut
+
+sub pasthru {
+    my($self) = shift;
+    my(@m);
+
+    my(@pasthru);
+    my($sep) = $Is{VMS} ? ',' : '';
+    $sep .= "\\\n\t";
+
+    foreach my $key (qw(LIB LIBPERL_A LINKTYPE OPTIMIZE
+                     PREFIX INSTALL_BASE)
+                 )
+    {
+        next unless defined $self->{$key};
+	push @pasthru, "$key=\"\$($key)\"";
+    }
+
+    foreach my $key (qw(DEFINE INC)) {
+        next unless defined $self->{$key};
+	push @pasthru, "PASTHRU_$key=\"\$(PASTHRU_$key)\"";
+    }
+
+    push @m, "\nPASTHRU = ", join ($sep, @pasthru), "\n";
+    join "", @m;
+}
+
+=item perl_script
+
+Takes one argument, a file name, and returns the file name, if the
+argument is likely to be a perl script. On MM_Unix this is true for
+any ordinary, readable file.
+
+=cut
+
+sub perl_script {
+    my($self,$file) = @_;
+    return $file if -r $file && -f _;
+    return;
+}
+
+=item perldepend (o)
+
+Defines the dependency from all *.h files that come with the perl
+distribution.
+
+=cut
+
+sub perldepend {
+    my($self) = shift;
+    my(@m);
+
+    my $make_config = $self->cd('$(PERL_SRC)', '$(MAKE) lib/Config.pm');
+
+    push @m, sprintf <<'MAKE_FRAG', $make_config if $self->{PERL_SRC};
+# Check for unpropogated config.sh changes. Should never happen.
+# We do NOT just update config.h because that is not sufficient.
+# An out of date config.h is not fatal but complains loudly!
+$(PERL_INCDEP)/config.h: $(PERL_SRC)/config.sh
+	-$(NOECHO) $(ECHO) "Warning: $(PERL_INC)/config.h out of date with $(PERL_SRC)/config.sh"; $(FALSE)
+
+$(PERL_ARCHLIB)/Config.pm: $(PERL_SRC)/config.sh
+	$(NOECHO) $(ECHO) "Warning: $(PERL_ARCHLIB)/Config.pm may be out of date with $(PERL_SRC)/config.sh"
+	%s
+MAKE_FRAG
+
+    return join "", @m unless $self->needs_linking;
+
+    if ($self->{OBJECT}) {
+        # Need to add an object file dependency on the perl headers.
+        # this is very important for XS modules in perl.git development.
+        push @m, $self->_perl_header_files_fragment("/"); # Directory separator between $(PERL_INC)/header.h
+    }
+
+    push @m, join(" ", sort values %{$self->{XS}})." : \$(XSUBPPDEPS)\n"  if %{$self->{XS}};
+
+    return join "\n", @m;
+}
+
+
+=item pm_to_blib
+
+Defines target that copies all files in the hash PM to their
+destination and autosplits them. See L<ExtUtils::Install/DESCRIPTION>
+
+=cut
+
+sub pm_to_blib {
+    my $self = shift;
+    my($autodir) = $self->catdir('$(INST_LIB)','auto');
+    my $r = q{
+pm_to_blib : $(FIRST_MAKEFILE) $(TO_INST_PM)
+};
+
+    # VMS will swallow '' and PM_FILTER is often empty.  So use q[]
+    my $pm_to_blib = $self->oneliner(<<CODE, ['-MExtUtils::Install']);
+pm_to_blib({\@ARGV}, '$autodir', q[\$(PM_FILTER)], '\$(PERM_DIR)')
+CODE
+
+    my @cmds = $self->split_command($pm_to_blib,
+                  map { ($_, $self->{PM}->{$_}) } sort keys %{$self->{PM}});
+
+    $r .= join '', map { "\t\$(NOECHO) $_\n" } @cmds;
+    $r .= qq{\t\$(NOECHO) \$(TOUCH) pm_to_blib\n};
+
+    return $r;
+}
+
+=item post_constants (o)
+
+Returns an empty string per default. Dedicated to overrides from
+within Makefile.PL after all constants have been defined.
+
+=cut
+
+sub post_constants{
+    "";
+}
+
+=item post_initialize (o)
+
+Returns an empty string per default. Used in Makefile.PLs to add some
+chunk of text to the Makefile after the object is initialized.
+
+=cut
+
+sub post_initialize {
+    "";
+}
+
+=item postamble (o)
+
+Returns an empty string. Can be used in Makefile.PLs to write some
+text to the Makefile at the end.
+
+=cut
+
+sub postamble {
+    "";
+}
+
+# transform dot-separated version string into comma-separated quadruple
+# examples:  '1.2.3.4.5' => '1,2,3,4'
+#            '1.2.3'     => '1,2,3,0'
+sub _ppd_version {
+    my ($self, $string) = @_;
+    return join ',', ((split /\./, $string), (0) x 4)[0..3];
+}
+
+=item ppd
+
+Defines target that creates a PPD (Perl Package Description) file
+for a binary distribution.
+
+=cut
+
+sub ppd {
+    my($self) = @_;
+
+    my $abstract = $self->{ABSTRACT} || '';
+    $abstract =~ s/\n/\\n/sg;
+    $abstract =~ s/</&lt;/g;
+    $abstract =~ s/>/&gt;/g;
+
+    my $author = join(', ',@{$self->{AUTHOR} || []});
+    $author =~ s/</&lt;/g;
+    $author =~ s/>/&gt;/g;
+
+    my $ppd_file = '$(DISTNAME).ppd';
+
+    my @ppd_cmds = $self->echo(<<'PPD_HTML', $ppd_file, { append => 0, allow_variables => 1 });
+<SOFTPKG NAME="$(DISTNAME)" VERSION="$(VERSION)">
+PPD_HTML
+
+    my $ppd_xml = sprintf <<'PPD_HTML', $abstract, $author;
+    <ABSTRACT>%s</ABSTRACT>
+    <AUTHOR>%s</AUTHOR>
+PPD_HTML
+
+    $ppd_xml .= "    <IMPLEMENTATION>\n";
+    if ( $self->{MIN_PERL_VERSION} ) {
+        my $min_perl_version = $self->_ppd_version($self->{MIN_PERL_VERSION});
+        $ppd_xml .= sprintf <<'PPD_PERLVERS', $min_perl_version;
+        <PERLCORE VERSION="%s" />
+PPD_PERLVERS
+
+    }
+
+    # Don't add "perl" to requires.  perl dependencies are
+    # handles by ARCHITECTURE.
+    my %prereqs = %{$self->{PREREQ_PM}};
+    delete $prereqs{perl};
+
+    # Build up REQUIRE
+    foreach my $prereq (sort keys %prereqs) {
+        my $name = $prereq;
+        $name .= '::' unless $name =~ /::/;
+        my $version = $prereqs{$prereq};
+
+        my %attrs = ( NAME => $name );
+        $attrs{VERSION} = $version if $version;
+        my $attrs = join " ", map { qq[$_="$attrs{$_}"] } sort keys %attrs;
+        $ppd_xml .= qq(        <REQUIRE $attrs />\n);
+    }
+
+    my $archname = $Config{archname};
+    if ($] >= 5.008) {
+        # archname did not change from 5.6 to 5.8, but those versions may
+        # not be not binary compatible so now we append the part of the
+        # version that changes when binary compatibility may change
+        $archname .= "-$Config{PERL_REVISION}.$Config{PERL_VERSION}";
+    }
+    $ppd_xml .= sprintf <<'PPD_OUT', $archname;
+        <ARCHITECTURE NAME="%s" />
+PPD_OUT
+
+    if ($self->{PPM_INSTALL_SCRIPT}) {
+        if ($self->{PPM_INSTALL_EXEC}) {
+            $ppd_xml .= sprintf qq{        <INSTALL EXEC="%s">%s</INSTALL>\n},
+                  $self->{PPM_INSTALL_EXEC}, $self->{PPM_INSTALL_SCRIPT};
+        }
+        else {
+            $ppd_xml .= sprintf qq{        <INSTALL>%s</INSTALL>\n},
+                  $self->{PPM_INSTALL_SCRIPT};
+        }
+    }
+
+    if ($self->{PPM_UNINSTALL_SCRIPT}) {
+        if ($self->{PPM_UNINSTALL_EXEC}) {
+            $ppd_xml .= sprintf qq{        <UNINSTALL EXEC="%s">%s</UNINSTALL>\n},
+                  $self->{PPM_UNINSTALL_EXEC}, $self->{PPM_UNINSTALL_SCRIPT};
+        }
+        else {
+            $ppd_xml .= sprintf qq{        <UNINSTALL>%s</UNINSTALL>\n},
+                  $self->{PPM_UNINSTALL_SCRIPT};
+        }
+    }
+
+    my ($bin_location) = $self->{BINARY_LOCATION} || '';
+    $bin_location =~ s/\\/\\\\/g;
+
+    $ppd_xml .= sprintf <<'PPD_XML', $bin_location;
+        <CODEBASE HREF="%s" />
+    </IMPLEMENTATION>
+</SOFTPKG>
+PPD_XML
+
+    push @ppd_cmds, $self->echo($ppd_xml, $ppd_file, { append => 1 });
+
+    return sprintf <<'PPD_OUT', join "\n\t", @ppd_cmds;
+# Creates a PPD (Perl Package Description) for a binary distribution.
+ppd :
+	%s
+PPD_OUT
+
+}
+
+=item prefixify
+
+  $MM->prefixify($var, $prefix, $new_prefix, $default);
+
+Using either $MM->{uc $var} || $Config{lc $var}, it will attempt to
+replace it's $prefix with a $new_prefix.
+
+Should the $prefix fail to match I<AND> a PREFIX was given as an
+argument to WriteMakefile() it will set it to the $new_prefix +
+$default.  This is for systems whose file layouts don't neatly fit into
+our ideas of prefixes.
+
+This is for heuristics which attempt to create directory structures
+that mirror those of the installed perl.
+
+For example:
+
+    $MM->prefixify('installman1dir', '/usr', '/home/foo', 'man/man1');
+
+this will attempt to remove '/usr' from the front of the
+$MM->{INSTALLMAN1DIR} path (initializing it to $Config{installman1dir}
+if necessary) and replace it with '/home/foo'.  If this fails it will
+simply use '/home/foo/man/man1'.
+
+=cut
+
+sub prefixify {
+    my($self,$var,$sprefix,$rprefix,$default) = @_;
+
+    my $path = $self->{uc $var} ||
+               $Config_Override{lc $var} || $Config{lc $var} || '';
+
+    $rprefix .= '/' if $sprefix =~ m|/$|;
+
+    warn "  prefixify $var => $path\n" if $Verbose >= 2;
+    warn "    from $sprefix to $rprefix\n" if $Verbose >= 2;
+
+    if( $self->{ARGS}{PREFIX} &&
+        $path !~ s{^\Q$sprefix\E\b}{$rprefix}s )
+    {
+
+        warn "    cannot prefix, using default.\n" if $Verbose >= 2;
+        warn "    no default!\n" if !$default && $Verbose >= 2;
+
+        $path = $self->catdir($rprefix, $default) if $default;
+    }
+
+    print "    now $path\n" if $Verbose >= 2;
+    return $self->{uc $var} = $path;
+}
+
+
+=item processPL (o)
+
+Defines targets to run *.PL files.
+
+=cut
+
+sub processPL {
+    my $self = shift;
+    my $pl_files = $self->{PL_FILES};
+
+    return "" unless $pl_files;
+
+    my $m = '';
+    foreach my $plfile (sort keys %$pl_files) {
+        my $list = ref($pl_files->{$plfile})
+                     ?  $pl_files->{$plfile}
+		     : [$pl_files->{$plfile}];
+
+	foreach my $target (@$list) {
+            if( $Is{VMS} ) {
+                $plfile = vmsify($self->eliminate_macros($plfile));
+                $target = vmsify($self->eliminate_macros($target));
+            }
+
+	    # Normally a .PL file runs AFTER pm_to_blib so it can have
+	    # blib in its @INC and load the just built modules.  BUT if
+	    # the generated module is something in $(TO_INST_PM) which
+	    # pm_to_blib depends on then it can't depend on pm_to_blib
+	    # else we have a dependency loop.
+	    my $pm_dep;
+	    my $perlrun;
+	    if( defined $self->{PM}{$target} ) {
+		$pm_dep  = '';
+		$perlrun = 'PERLRUN';
+	    }
+	    else {
+		$pm_dep  = 'pm_to_blib';
+		$perlrun = 'PERLRUNINST';
+	    }
+
+            $m .= <<MAKE_FRAG;
+
+all :: $target
+	\$(NOECHO) \$(NOOP)
+
+$target :: $plfile $pm_dep
+	\$($perlrun) $plfile $target
+MAKE_FRAG
+
+	}
+    }
+
+    return $m;
+}
+
+=item specify_shell
+
+Specify SHELL if needed - not done on Unix.
+
+=cut
+
+sub specify_shell {
+  return '';
+}
+
+=item quote_paren
+
+Backslashes parentheses C<()> in command line arguments.
+Doesn't handle recursive Makefile C<$(...)> constructs,
+but handles simple ones.
+
+=cut
+
+sub quote_paren {
+    my $arg = shift;
+    $arg =~ s{\$\((.+?)\)}{\$\\\\($1\\\\)}g;	# protect $(...)
+    $arg =~ s{(?<!\\)([()])}{\\$1}g;		# quote unprotected
+    $arg =~ s{\$\\\\\((.+?)\\\\\)}{\$($1)}g;	# unprotect $(...)
+    return $arg;
+}
+
+=item replace_manpage_separator
+
+  my $man_name = $MM->replace_manpage_separator($file_path);
+
+Takes the name of a package, which may be a nested package, in the
+form 'Foo/Bar.pm' and replaces the slash with C<::> or something else
+safe for a man page file name.  Returns the replacement.
+
+=cut
+
+sub replace_manpage_separator {
+    my($self,$man) = @_;
+
+    $man =~ s,/+,::,g;
+    return $man;
+}
+
+
+=item cd
+
+=cut
+
+sub cd {
+    my($self, $dir, @cmds) = @_;
+
+    # No leading tab and no trailing newline makes for easier embedding
+    my $make_frag = join "\n\t", map { "cd $dir && $_" } @cmds;
+
+    return $make_frag;
+}
+
+=item oneliner
+
+=cut
+
+sub oneliner {
+    my($self, $cmd, $switches) = @_;
+    $switches = [] unless defined $switches;
+
+    # Strip leading and trailing newlines
+    $cmd =~ s{^\n+}{};
+    $cmd =~ s{\n+$}{};
+
+    my @cmds = split /\n/, $cmd;
+    $cmd = join " \n\t  -e ", map $self->quote_literal($_), @cmds;
+    $cmd = $self->escape_newlines($cmd);
+
+    $switches = join ' ', @$switches;
+
+    return qq{\$(ABSPERLRUN) $switches -e $cmd --};
+}
+
+
+=item quote_literal
+
+Quotes macro literal value suitable for being used on a command line so
+that when expanded by make, will be received by command as given to
+this method:
+
+  my $quoted = $mm->quote_literal(q{it isn't});
+  # returns:
+  #   'it isn'\''t'
+  print MAKEFILE "target:\n\techo $quoted\n";
+  # when run "make target", will output:
+  #   it isn't
+
+=cut
+
+sub quote_literal {
+    my($self, $text, $opts) = @_;
+    $opts->{allow_variables} = 1 unless defined $opts->{allow_variables};
+
+    # Quote single quotes
+    $text =~ s{'}{'\\''}g;
+
+    $text = $opts->{allow_variables}
+      ? $self->escape_dollarsigns($text) : $self->escape_all_dollarsigns($text);
+
+    return "'$text'";
+}
+
+
+=item escape_newlines
+
+=cut
+
+sub escape_newlines {
+    my($self, $text) = @_;
+
+    $text =~ s{\n}{\\\n}g;
+
+    return $text;
+}
+
+
+=item max_exec_len
+
+Using POSIX::ARG_MAX.  Otherwise falling back to 4096.
+
+=cut
+
+sub max_exec_len {
+    my $self = shift;
+
+    if (!defined $self->{_MAX_EXEC_LEN}) {
+        if (my $arg_max = eval { require POSIX;  &POSIX::ARG_MAX }) {
+            $self->{_MAX_EXEC_LEN} = $arg_max;
+        }
+        else {      # POSIX minimum exec size
+            $self->{_MAX_EXEC_LEN} = 4096;
+        }
+    }
+
+    return $self->{_MAX_EXEC_LEN};
+}
+
+
+=item static (o)
+
+Defines the static target.
+
+=cut
+
+sub static {
+# --- Static Loading Sections ---
+
+    my($self) = shift;
+    '
+## $(INST_PM) has been moved to the all: target.
+## It remains here for awhile to allow for old usage: "make static"
+static :: $(FIRST_MAKEFILE) $(INST_STATIC)
+	$(NOECHO) $(NOOP)
+';
+}
+
+=item static_lib (o)
+
+Defines how to produce the *.a (or equivalent) files.
+
+=cut
+
+sub static_lib {
+    my($self) = @_;
+    return '' unless $self->has_link_code;
+
+    my(@m);
+    push(@m, <<'END');
+
+$(INST_STATIC) : $(OBJECT) $(MYEXTLIB) $(INST_ARCHAUTODIR)$(DFSEP).exists
+	$(RM_RF) $@
+END
+
+    # If this extension has its own library (eg SDBM_File)
+    # then copy that to $(INST_STATIC) and add $(OBJECT) into it.
+    push(@m, <<'MAKE_FRAG') if $self->{MYEXTLIB};
+	$(CP) $(MYEXTLIB) "$@"
+MAKE_FRAG
+
+    my $ar;
+    if (exists $self->{FULL_AR} && -x $self->{FULL_AR}) {
+        # Prefer the absolute pathed ar if available so that PATH
+        # doesn't confuse us.  Perl itself is built with the full_ar.
+        $ar = 'FULL_AR';
+    } else {
+        $ar = 'AR';
+    }
+    push @m, sprintf <<'MAKE_FRAG', $ar;
+	$(%s) $(AR_STATIC_ARGS) $@ $(OBJECT) && $(RANLIB) $@
+	$(CHMOD) $(PERM_RWX) $@
+	$(NOECHO) $(ECHO) "$(EXTRALIBS)" > "$(INST_ARCHAUTODIR)/extralibs.ld"
+MAKE_FRAG
+
+    # Old mechanism - still available:
+    push @m, <<'MAKE_FRAG' if $self->{PERL_SRC} && $self->{EXTRALIBS};
+	$(NOECHO) $(ECHO) "$(EXTRALIBS)" >> "$(PERL_SRC)/ext.libs"
+MAKE_FRAG
+
+    join('', @m);
+}
+
+=item staticmake (o)
+
+Calls makeaperl.
+
+=cut
+
+sub staticmake {
+    my($self, %attribs) = @_;
+    my(@static);
+
+    my(@searchdirs)=($self->{PERL_ARCHLIB}, $self->{SITEARCHEXP},  $self->{INST_ARCHLIB});
+
+    # And as it's not yet built, we add the current extension
+    # but only if it has some C code (or XS code, which implies C code)
+    if (@{$self->{C}}) {
+	@static = $self->catfile($self->{INST_ARCHLIB},
+				 "auto",
+				 $self->{FULLEXT},
+				 "$self->{BASEEXT}$self->{LIB_EXT}"
+				);
+    }
+
+    # Either we determine now, which libraries we will produce in the
+    # subdirectories or we do it at runtime of the make.
+
+    # We could ask all subdir objects, but I cannot imagine, why it
+    # would be necessary.
+
+    # Instead we determine all libraries for the new perl at
+    # runtime.
+    my(@perlinc) = ($self->{INST_ARCHLIB}, $self->{INST_LIB}, $self->{PERL_ARCHLIB}, $self->{PERL_LIB});
+
+    $self->makeaperl(MAKE	=> $self->{MAKEFILE},
+		     DIRS	=> \@searchdirs,
+		     STAT	=> \@static,
+		     INCL	=> \@perlinc,
+		     TARGET	=> $self->{MAP_TARGET},
+		     TMP	=> "",
+		     LIBPERL	=> $self->{LIBPERL_A}
+		    );
+}
+
+=item subdir_x (o)
+
+Helper subroutine for subdirs
+
+=cut
+
+sub subdir_x {
+    my($self, $subdir) = @_;
+
+    my $subdir_cmd = $self->cd($subdir,
+      '$(MAKE) $(USEMAKEFILE) $(FIRST_MAKEFILE) all $(PASTHRU)'
+    );
+    return sprintf <<'EOT', $subdir_cmd;
+
+subdirs ::
+	$(NOECHO) %s
+EOT
+
+}
+
+=item subdirs (o)
+
+Defines targets to process subdirectories.
+
+=cut
+
+sub subdirs {
+# --- Sub-directory Sections ---
+    my($self) = shift;
+    my(@m);
+    # This method provides a mechanism to automatically deal with
+    # subdirectories containing further Makefile.PL scripts.
+    # It calls the subdir_x() method for each subdirectory.
+    foreach my $dir (@{$self->{DIR}}){
+	push(@m, $self->subdir_x($dir));
+####	print "Including $dir subdirectory\n";
+    }
+    if (@m){
+	unshift(@m, "
+# The default clean, realclean and test targets in this Makefile
+# have automatically been given entries for each subdir.
+
+");
+    } else {
+	push(@m, "\n# none")
+    }
+    join('',@m);
+}
+
+=item test (o)
+
+Defines the test targets.
+
+=cut
+
+sub test {
+# --- Test and Installation Sections ---
+
+    my($self, %attribs) = @_;
+    my $tests = $attribs{TESTS} || '';
+    if (!$tests && -d 't' && defined $attribs{RECURSIVE_TEST_FILES}) {
+        $tests = $self->find_tests_recursive;
+    }
+    elsif (!$tests && -d 't') {
+        $tests = $self->find_tests;
+    }
+    # have to do this because nmake is broken
+    $tests =~ s!/!\\!g if $self->is_make_type('nmake');
+    # note: 'test.pl' name is also hardcoded in init_dirscan()
+    my(@m);
+    push(@m,"
+TEST_VERBOSE=0
+TEST_TYPE=test_\$(LINKTYPE)
+TEST_FILE = test.pl
+TEST_FILES = $tests
+TESTDB_SW = -d
+
+testdb :: testdb_\$(LINKTYPE)
+
+test :: \$(TEST_TYPE) subdirs-test
+
+subdirs-test ::
+	\$(NOECHO) \$(NOOP)
+
+");
+
+    foreach my $dir (@{ $self->{DIR} }) {
+        my $test = $self->cd($dir, '$(MAKE) test $(PASTHRU)');
+
+        push @m, <<END
+subdirs-test ::
+	\$(NOECHO) $test
+
+END
+    }
+
+    push(@m, "\t\$(NOECHO) \$(ECHO) 'No tests defined for \$(NAME) extension.'\n")
+	unless $tests or -f "test.pl" or @{$self->{DIR}};
+    push(@m, "\n");
+
+    push(@m, "test_dynamic :: pure_all\n");
+    push(@m, $self->test_via_harness('$(FULLPERLRUN)', '$(TEST_FILES)'))
+      if $tests;
+    push(@m, $self->test_via_script('$(FULLPERLRUN)', '$(TEST_FILE)'))
+      if -f "test.pl";
+    push(@m, "\n");
+
+    push(@m, "testdb_dynamic :: pure_all\n");
+    push(@m, $self->test_via_script('$(FULLPERLRUN) $(TESTDB_SW)',
+                                    '$(TEST_FILE)'));
+    push(@m, "\n");
+
+    # Occasionally we may face this degenerate target:
+    push @m, "test_ : test_dynamic\n\n";
+
+    if ($self->needs_linking()) {
+	push(@m, "test_static :: pure_all \$(MAP_TARGET)\n");
+	push(@m, $self->test_via_harness('./$(MAP_TARGET)', '$(TEST_FILES)')) if $tests;
+	push(@m, $self->test_via_script('./$(MAP_TARGET)', '$(TEST_FILE)')) if -f "test.pl";
+	push(@m, "\n");
+	push(@m, "testdb_static :: pure_all \$(MAP_TARGET)\n");
+	push(@m, $self->test_via_script('./$(MAP_TARGET) $(TESTDB_SW)', '$(TEST_FILE)'));
+	push(@m, "\n");
+    } else {
+	push @m, "test_static :: test_dynamic\n";
+	push @m, "testdb_static :: testdb_dynamic\n";
+    }
+    join("", @m);
+}
+
+=item test_via_harness (override)
+
+For some reason which I forget, Unix machines like to have
+PERL_DL_NONLAZY set for tests.
+
+=cut
+
+sub test_via_harness {
+    my($self, $perl, $tests) = @_;
+    return $self->SUPER::test_via_harness("PERL_DL_NONLAZY=1 $perl", $tests);
+}
+
+=item test_via_script (override)
+
+Again, the PERL_DL_NONLAZY thing.
+
+=cut
+
+sub test_via_script {
+    my($self, $perl, $script) = @_;
+    return $self->SUPER::test_via_script("PERL_DL_NONLAZY=1 $perl", $script);
+}
+
+
+=item tool_xsubpp (o)
+
+Determines typemaps, xsubpp version, prototype behaviour.
+
+=cut
+
+sub tool_xsubpp {
+    my($self) = shift;
+    return "" unless $self->needs_linking;
+
+    my $xsdir;
+    my @xsubpp_dirs = @INC;
+
+    # Make sure we pick up the new xsubpp if we're building perl.
+    unshift @xsubpp_dirs, $self->{PERL_LIB} if $self->{PERL_CORE};
+
+    my $foundxsubpp = 0;
+    foreach my $dir (@xsubpp_dirs) {
+        $xsdir = $self->catdir($dir, 'ExtUtils');
+        if( -r $self->catfile($xsdir, "xsubpp") ) {
+            $foundxsubpp = 1;
+            last;
+        }
+    }
+    die "ExtUtils::MM_Unix::tool_xsubpp : Can't find xsubpp" if !$foundxsubpp;
+
+    my $tmdir   = File::Spec->catdir($self->{PERL_LIB},"ExtUtils");
+    my(@tmdeps) = $self->catfile($tmdir,'typemap');
+    if( $self->{TYPEMAPS} ){
+        foreach my $typemap (@{$self->{TYPEMAPS}}){
+            if( ! -f  $typemap ) {
+                warn "Typemap $typemap not found.\n";
+            }
+            else {
+                push(@tmdeps,  $typemap);
+            }
+        }
+    }
+    push(@tmdeps, "typemap") if -f "typemap";
+    my @tmargs = map(qq{-typemap "$_"}, @tmdeps);
+    $_ = $self->quote_dep($_) for @tmdeps;
+    if( exists $self->{XSOPT} ){
+        unshift( @tmargs, $self->{XSOPT} );
+    }
+
+    if ($Is{VMS}                          &&
+        $Config{'ldflags'}               &&
+        $Config{'ldflags'} =~ m!/Debug!i &&
+        (!exists($self->{XSOPT}) || $self->{XSOPT} !~ /linenumbers/)
+       )
+    {
+        unshift(@tmargs,'-nolinenumbers');
+    }
+
+
+    $self->{XSPROTOARG} = "" unless defined $self->{XSPROTOARG};
+    my $xsdirdep = $self->quote_dep($xsdir);
+    # -dep for use when dependency not command
+
+    return qq{
+XSUBPPDIR = $xsdir
+XSUBPP = "\$(XSUBPPDIR)\$(DFSEP)xsubpp"
+XSUBPPRUN = \$(PERLRUN) \$(XSUBPP)
+XSPROTOARG = $self->{XSPROTOARG}
+XSUBPPDEPS = @tmdeps $xsdirdep\$(DFSEP)xsubpp
+XSUBPPARGS = @tmargs
+XSUBPP_EXTRA_ARGS =
+};
+}
+
+
+=item all_target
+
+Build man pages, too
+
+=cut
+
+sub all_target {
+    my $self = shift;
+
+    return <<'MAKE_EXT';
+all :: pure_all manifypods
+	$(NOECHO) $(NOOP)
+MAKE_EXT
+}
+
+=item top_targets (o)
+
+Defines the targets all, subdirs, config, and O_FILES
+
+=cut
+
+sub top_targets {
+# --- Target Sections ---
+
+    my($self) = shift;
+    my(@m);
+
+    push @m, $self->all_target, "\n" unless $self->{SKIPHASH}{'all'};
+
+    push @m, '
+pure_all :: config pm_to_blib subdirs linkext
+	$(NOECHO) $(NOOP)
+
+subdirs :: $(MYEXTLIB)
+	$(NOECHO) $(NOOP)
+
+config :: $(FIRST_MAKEFILE) blibdirs
+	$(NOECHO) $(NOOP)
+';
+
+    push @m, '
+$(O_FILES): $(H_FILES)
+' if @{$self->{O_FILES} || []} && @{$self->{H} || []};
+
+    push @m, q{
+help :
+	perldoc ExtUtils::MakeMaker
+};
+
+    join('',@m);
+}
+
+=item writedoc
+
+Obsolete, deprecated method. Not used since Version 5.21.
+
+=cut
+
+sub writedoc {
+# --- perllocal.pod section ---
+    my($self,$what,$name,@attribs)=@_;
+    my $time = localtime;
+    print "=head2 $time: $what C<$name>\n\n=over 4\n\n=item *\n\n";
+    print join "\n\n=item *\n\n", map("C<$_>",@attribs);
+    print "\n\n=back\n\n";
+}
+
+=item xs_c (o)
+
+Defines the suffix rules to compile XS files to C.
+
+=cut
+
+sub xs_c {
+    my($self) = shift;
+    return '' unless $self->needs_linking();
+    '
+.xs.c:
+	$(XSUBPPRUN) $(XSPROTOARG) $(XSUBPPARGS) $(XSUBPP_EXTRA_ARGS) $*.xs > $*.xsc && $(MV) $*.xsc $*.c
+';
+}
+
+=item xs_cpp (o)
+
+Defines the suffix rules to compile XS files to C++.
+
+=cut
+
+sub xs_cpp {
+    my($self) = shift;
+    return '' unless $self->needs_linking();
+    '
+.xs.cpp:
+	$(XSUBPPRUN) $(XSPROTOARG) $(XSUBPPARGS) $*.xs > $*.xsc && $(MV) $*.xsc $*.cpp
+';
+}
+
+=item xs_o (o)
+
+Defines suffix rules to go from XS to object files directly. This is
+only intended for broken make implementations.
+
+=cut
+
+sub xs_o {	# many makes are too dumb to use xs_c then c_o
+    my($self) = shift;
+    return '' unless $self->needs_linking();
+    '
+.xs$(OBJ_EXT):
+	$(XSUBPPRUN) $(XSPROTOARG) $(XSUBPPARGS) $*.xs > $*.xsc && $(MV) $*.xsc $*.c
+	$(CCCMD) $(CCCDLFLAGS) "-I$(PERL_INC)" $(PASTHRU_DEFINE) $(DEFINE) $*.c
+';
+}
+
+
+1;
+
+=back
+
+=head1 SEE ALSO
+
+L<ExtUtils::MakeMaker>
+
+=cut
+
+__END__
diff --git a/lib/5.24.1/ExtUtils/MM_VMS.pm b/lib/5.24.1/ExtUtils/MM_VMS.pm
new file mode 100644
index 00000000..60dd8713
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/MM_VMS.pm
@@ -0,0 +1,2090 @@
+package ExtUtils::MM_VMS;
+
+use strict;
+
+use ExtUtils::MakeMaker::Config;
+require Exporter;
+
+BEGIN {
+    # so we can compile the thing on non-VMS platforms.
+    if( $^O eq 'VMS' ) {
+        require VMS::Filespec;
+        VMS::Filespec->import;
+    }
+}
+
+use File::Basename;
+
+our $VERSION = '7.10_02';
+
+require ExtUtils::MM_Any;
+require ExtUtils::MM_Unix;
+our @ISA = qw( ExtUtils::MM_Any ExtUtils::MM_Unix );
+
+use ExtUtils::MakeMaker qw($Verbose neatvalue);
+our $Revision = $ExtUtils::MakeMaker::Revision;
+
+
+=head1 NAME
+
+ExtUtils::MM_VMS - methods to override UN*X behaviour in ExtUtils::MakeMaker
+
+=head1 SYNOPSIS
+
+  Do not use this directly.
+  Instead, use ExtUtils::MM and it will figure out which MM_*
+  class to use for you.
+
+=head1 DESCRIPTION
+
+See ExtUtils::MM_Unix for a documentation of the methods provided
+there. This package overrides the implementation of these methods, not
+the semantics.
+
+=head2 Methods always loaded
+
+=over 4
+
+=item wraplist
+
+Converts a list into a string wrapped at approximately 80 columns.
+
+=cut
+
+sub wraplist {
+    my($self) = shift;
+    my($line,$hlen) = ('',0);
+
+    foreach my $word (@_) {
+      # Perl bug -- seems to occasionally insert extra elements when
+      # traversing array (scalar(@array) doesn't show them, but
+      # foreach(@array) does) (5.00307)
+      next unless $word =~ /\w/;
+      $line .= ' ' if length($line);
+      if ($hlen > 80) { $line .= "\\\n\t"; $hlen = 0; }
+      $line .= $word;
+      $hlen += length($word) + 2;
+    }
+    $line;
+}
+
+
+# This isn't really an override.  It's just here because ExtUtils::MM_VMS
+# appears in @MM::ISA before ExtUtils::Liblist::Kid, so if there isn't an ext()
+# in MM_VMS, then AUTOLOAD is called, and bad things happen.  So, we just
+# mimic inheritance here and hand off to ExtUtils::Liblist::Kid.
+# XXX This hackery will die soon. --Schwern
+sub ext {
+    require ExtUtils::Liblist::Kid;
+    goto &ExtUtils::Liblist::Kid::ext;
+}
+
+=back
+
+=head2 Methods
+
+Those methods which override default MM_Unix methods are marked
+"(override)", while methods unique to MM_VMS are marked "(specific)".
+For overridden methods, documentation is limited to an explanation
+of why this method overrides the MM_Unix method; see the ExtUtils::MM_Unix
+documentation for more details.
+
+=over 4
+
+=item guess_name (override)
+
+Try to determine name of extension being built.  We begin with the name
+of the current directory.  Since VMS filenames are case-insensitive,
+however, we look for a F<.pm> file whose name matches that of the current
+directory (presumably the 'main' F<.pm> file for this extension), and try
+to find a C<package> statement from which to obtain the Mixed::Case
+package name.
+
+=cut
+
+sub guess_name {
+    my($self) = @_;
+    my($defname,$defpm,@pm,%xs);
+    local *PM;
+
+    $defname = basename(fileify($ENV{'DEFAULT'}));
+    $defname =~ s![\d\-_]*\.dir.*$!!;  # Clip off .dir;1 suffix, and package version
+    $defpm = $defname;
+    # Fallback in case for some reason a user has copied the files for an
+    # extension into a working directory whose name doesn't reflect the
+    # extension's name.  We'll use the name of a unique .pm file, or the
+    # first .pm file with a matching .xs file.
+    if (not -e "${defpm}.pm") {
+      @pm = glob('*.pm');
+      s/.pm$// for @pm;
+      if (@pm == 1) { ($defpm = $pm[0]) =~ s/.pm$//; }
+      elsif (@pm) {
+        %xs = map { s/.xs$//; ($_,1) } glob('*.xs');  ## no critic
+        if (keys %xs) {
+            foreach my $pm (@pm) {
+                $defpm = $pm, last if exists $xs{$pm};
+            }
+        }
+      }
+    }
+    if (open(my $pm, '<', "${defpm}.pm")){
+        while (<$pm>) {
+            if (/^\s*package\s+([^;]+)/i) {
+                $defname = $1;
+                last;
+            }
+        }
+        print "Warning (non-fatal): Couldn't find package name in ${defpm}.pm;\n\t",
+                     "defaulting package name to $defname\n"
+            if eof($pm);
+        close $pm;
+    }
+    else {
+        print "Warning (non-fatal): Couldn't find ${defpm}.pm;\n\t",
+                     "defaulting package name to $defname\n";
+    }
+    $defname =~ s#[\d.\-_]+$##;
+    $defname;
+}
+
+=item find_perl (override)
+
+Use VMS file specification syntax and CLI commands to find and
+invoke Perl images.
+
+=cut
+
+sub find_perl {
+    my($self, $ver, $names, $dirs, $trace) = @_;
+    my($vmsfile,@sdirs,@snames,@cand);
+    my($rslt);
+    my($inabs) = 0;
+    local *TCF;
+
+    if( $self->{PERL_CORE} ) {
+        # Check in relative directories first, so we pick up the current
+        # version of Perl if we're running MakeMaker as part of the main build.
+        @sdirs = sort { my($absa) = $self->file_name_is_absolute($a);
+                        my($absb) = $self->file_name_is_absolute($b);
+                        if ($absa && $absb) { return $a cmp $b }
+                        else { return $absa ? 1 : ($absb ? -1 : ($a cmp $b)); }
+                      } @$dirs;
+        # Check miniperl before perl, and check names likely to contain
+        # version numbers before "generic" names, so we pick up an
+        # executable that's less likely to be from an old installation.
+        @snames = sort { my($ba) = $a =~ m!([^:>\]/]+)$!;  # basename
+                         my($bb) = $b =~ m!([^:>\]/]+)$!;
+                         my($ahasdir) = (length($a) - length($ba) > 0);
+                         my($bhasdir) = (length($b) - length($bb) > 0);
+                         if    ($ahasdir and not $bhasdir) { return 1; }
+                         elsif ($bhasdir and not $ahasdir) { return -1; }
+                         else { $bb =~ /\d/ <=> $ba =~ /\d/
+                                  or substr($ba,0,1) cmp substr($bb,0,1)
+                                  or length($bb) <=> length($ba) } } @$names;
+    }
+    else {
+        @sdirs  = @$dirs;
+        @snames = @$names;
+    }
+
+    # Image names containing Perl version use '_' instead of '.' under VMS
+    s/\.(\d+)$/_$1/ for @snames;
+    if ($trace >= 2){
+        print "Looking for perl $ver by these names:\n";
+        print "\t@snames,\n";
+        print "in these dirs:\n";
+        print "\t@sdirs\n";
+    }
+    foreach my $dir (@sdirs){
+        next unless defined $dir; # $self->{PERL_SRC} may be undefined
+        $inabs++ if $self->file_name_is_absolute($dir);
+        if ($inabs == 1) {
+            # We've covered relative dirs; everything else is an absolute
+            # dir (probably an installed location).  First, we'll try
+            # potential command names, to see whether we can avoid a long
+            # MCR expression.
+            foreach my $name (@snames) {
+                push(@cand,$name) if $name =~ /^[\w\-\$]+$/;
+            }
+            $inabs++; # Should happen above in next $dir, but just in case...
+        }
+        foreach my $name (@snames){
+            push @cand, ($name !~ m![/:>\]]!) ? $self->catfile($dir,$name)
+                                              : $self->fixpath($name,0);
+        }
+    }
+    foreach my $name (@cand) {
+        print "Checking $name\n" if $trace >= 2;
+        # If it looks like a potential command, try it without the MCR
+        if ($name =~ /^[\w\-\$]+$/) {
+            open(my $tcf, ">", "temp_mmvms.com")
+                or die('unable to open temp file');
+            print $tcf "\$ set message/nofacil/nosever/noident/notext\n";
+            print $tcf "\$ $name -e \"require $ver; print \"\"VER_OK\\n\"\"\"\n";
+            close $tcf;
+            $rslt = `\@temp_mmvms.com` ;
+            unlink('temp_mmvms.com');
+            if ($rslt =~ /VER_OK/) {
+                print "Using PERL=$name\n" if $trace;
+                return $name;
+            }
+        }
+        next unless $vmsfile = $self->maybe_command($name);
+        $vmsfile =~ s/;[\d\-]*$//;  # Clip off version number; we can use a newer version as well
+        print "Executing $vmsfile\n" if ($trace >= 2);
+        open(my $tcf, '>', "temp_mmvms.com")
+                or die('unable to open temp file');
+        print $tcf "\$ set message/nofacil/nosever/noident/notext\n";
+        print $tcf "\$ mcr $vmsfile -e \"require $ver; print \"\"VER_OK\\n\"\"\" \n";
+        close $tcf;
+        $rslt = `\@temp_mmvms.com`;
+        unlink('temp_mmvms.com');
+        if ($rslt =~ /VER_OK/) {
+            print "Using PERL=MCR $vmsfile\n" if $trace;
+            return "MCR $vmsfile";
+        }
+    }
+    print "Unable to find a perl $ver (by these names: @$names, in these dirs: @$dirs)\n";
+    0; # false and not empty
+}
+
+=item _fixin_replace_shebang (override)
+
+Helper routine for MM->fixin(), overridden because there's no such thing as an
+actual shebang line that will be interpreted by the shell, so we just prepend
+$Config{startperl} and preserve the shebang line argument for any switches it
+may contain.
+
+=cut
+
+sub _fixin_replace_shebang {
+    my ( $self, $file, $line ) = @_;
+
+    my ( undef, $arg ) = split ' ', $line, 2;
+
+    return $Config{startperl} . "\n" . $Config{sharpbang} . "perl $arg\n";
+}
+
+=item maybe_command (override)
+
+Follows VMS naming conventions for executable files.
+If the name passed in doesn't exactly match an executable file,
+appends F<.Exe> (or equivalent) to check for executable image, and F<.Com>
+to check for DCL procedure.  If this fails, checks directories in DCL$PATH
+and finally F<Sys$System:> for an executable file having the name specified,
+with or without the F<.Exe>-equivalent suffix.
+
+=cut
+
+sub maybe_command {
+    my($self,$file) = @_;
+    return $file if -x $file && ! -d _;
+    my(@dirs) = ('');
+    my(@exts) = ('',$Config{'exe_ext'},'.exe','.com');
+
+    if ($file !~ m![/:>\]]!) {
+        for (my $i = 0; defined $ENV{"DCL\$PATH;$i"}; $i++) {
+            my $dir = $ENV{"DCL\$PATH;$i"};
+            $dir .= ':' unless $dir =~ m%[\]:]$%;
+            push(@dirs,$dir);
+        }
+        push(@dirs,'Sys$System:');
+        foreach my $dir (@dirs) {
+            my $sysfile = "$dir$file";
+            foreach my $ext (@exts) {
+                return $file if -x "$sysfile$ext" && ! -d _;
+            }
+        }
+    }
+    return 0;
+}
+
+
+=item pasthru (override)
+
+VMS has $(MMSQUALIFIERS) which is a listing of all the original command line
+options.  This is used in every invocation of make in the VMS Makefile so
+PASTHRU should not be necessary.  Using PASTHRU tends to blow commands past
+the 256 character limit.
+
+=cut
+
+sub pasthru {
+    return "PASTHRU=\n";
+}
+
+
+=item pm_to_blib (override)
+
+VMS wants a dot in every file so we can't have one called 'pm_to_blib',
+it becomes 'pm_to_blib.' and MMS/K isn't smart enough to know that when
+you have a target called 'pm_to_blib' it should look for 'pm_to_blib.'.
+
+So in VMS its pm_to_blib.ts.
+
+=cut
+
+sub pm_to_blib {
+    my $self = shift;
+
+    my $make = $self->SUPER::pm_to_blib;
+
+    $make =~ s{^pm_to_blib :}{pm_to_blib.ts :}m;
+    $make =~ s{\$\(TOUCH\) pm_to_blib}{\$(TOUCH) pm_to_blib.ts};
+
+    $make = <<'MAKE' . $make;
+# Dummy target to match Unix target name; we use pm_to_blib.ts as
+# timestamp file to avoid repeated invocations under VMS
+pm_to_blib : pm_to_blib.ts
+	$(NOECHO) $(NOOP)
+
+MAKE
+
+    return $make;
+}
+
+
+=item perl_script (override)
+
+If name passed in doesn't specify a readable file, appends F<.com> or
+F<.pl> and tries again, since it's customary to have file types on all files
+under VMS.
+
+=cut
+
+sub perl_script {
+    my($self,$file) = @_;
+    return $file if -r $file && ! -d _;
+    return "$file.com" if -r "$file.com";
+    return "$file.pl" if -r "$file.pl";
+    return '';
+}
+
+
+=item replace_manpage_separator
+
+Use as separator a character which is legal in a VMS-syntax file name.
+
+=cut
+
+sub replace_manpage_separator {
+    my($self,$man) = @_;
+    $man = unixify($man);
+    $man =~ s#/+#__#g;
+    $man;
+}
+
+=item init_DEST
+
+(override) Because of the difficulty concatenating VMS filepaths we
+must pre-expand the DEST* variables.
+
+=cut
+
+sub init_DEST {
+    my $self = shift;
+
+    $self->SUPER::init_DEST;
+
+    # Expand DEST variables.
+    foreach my $var ($self->installvars) {
+        my $destvar = 'DESTINSTALL'.$var;
+        $self->{$destvar} = $self->eliminate_macros($self->{$destvar});
+    }
+}
+
+
+=item init_DIRFILESEP
+
+No separator between a directory path and a filename on VMS.
+
+=cut
+
+sub init_DIRFILESEP {
+    my($self) = shift;
+
+    $self->{DIRFILESEP} = '';
+    return 1;
+}
+
+
+=item init_main (override)
+
+
+=cut
+
+sub init_main {
+    my($self) = shift;
+
+    $self->SUPER::init_main;
+
+    $self->{DEFINE} ||= '';
+    if ($self->{DEFINE} ne '') {
+        my(@terms) = split(/\s+/,$self->{DEFINE});
+        my(@defs,@udefs);
+        foreach my $def (@terms) {
+            next unless $def;
+            my $targ = \@defs;
+            if ($def =~ s/^-([DU])//) {    # If it was a Unix-style definition
+                $targ = \@udefs if $1 eq 'U';
+                $def =~ s/='(.*)'$/=$1/;  # then remove shell-protection ''
+                $def =~ s/^'(.*)'$/$1/;   # from entire term or argument
+            }
+            if ($def =~ /=/) {
+                $def =~ s/"/""/g;  # Protect existing " from DCL
+                $def = qq["$def"]; # and quote to prevent parsing of =
+            }
+            push @$targ, $def;
+        }
+
+        $self->{DEFINE} = '';
+        if (@defs)  {
+            $self->{DEFINE}  = '/Define=(' . join(',',@defs)  . ')';
+        }
+        if (@udefs) {
+            $self->{DEFINE} .= '/Undef=('  . join(',',@udefs) . ')';
+        }
+    }
+}
+
+=item init_tools (override)
+
+Provide VMS-specific forms of various utility commands.
+
+Sets DEV_NULL to nothing because I don't know how to do it on VMS.
+
+Changes EQUALIZE_TIMESTAMP to set revision date of target file to
+one second later than source file, since MMK interprets precisely
+equal revision dates for a source and target file as a sign that the
+target needs to be updated.
+
+=cut
+
+sub init_tools {
+    my($self) = @_;
+
+    $self->{NOOP}               = 'Continue';
+    $self->{NOECHO}             ||= '@ ';
+
+    $self->{MAKEFILE}           ||= $self->{FIRST_MAKEFILE} || 'Descrip.MMS';
+    $self->{FIRST_MAKEFILE}     ||= $self->{MAKEFILE};
+    $self->{MAKE_APERL_FILE}    ||= 'Makeaperl.MMS';
+    $self->{MAKEFILE_OLD}       ||= $self->eliminate_macros('$(FIRST_MAKEFILE)_old');
+#
+#   If an extension is not specified, then MMS/MMK assumes an
+#   an extension of .MMS.  If there really is no extension,
+#   then a trailing "." needs to be appended to specify a
+#   a null extension.
+#
+    $self->{MAKEFILE} .= '.' unless $self->{MAKEFILE} =~ m/\./;
+    $self->{FIRST_MAKEFILE} .= '.' unless $self->{FIRST_MAKEFILE} =~ m/\./;
+    $self->{MAKE_APERL_FILE} .= '.' unless $self->{MAKE_APERL_FILE} =~ m/\./;
+    $self->{MAKEFILE_OLD} .= '.' unless $self->{MAKEFILE_OLD} =~ m/\./;
+
+    $self->{MACROSTART}         ||= '/Macro=(';
+    $self->{MACROEND}           ||= ')';
+    $self->{USEMAKEFILE}        ||= '/Descrip=';
+
+    $self->{EQUALIZE_TIMESTAMP} ||= '$(ABSPERLRUN) -we "open F,qq{>>$ARGV[1]};close F;utime(0,(stat($ARGV[0]))[9]+1,$ARGV[1])"';
+
+    $self->{MOD_INSTALL} ||=
+      $self->oneliner(<<'CODE', ['-MExtUtils::Install']);
+install([ from_to => {split('\|', <STDIN>)}, verbose => '$(VERBINST)', uninstall_shadows => '$(UNINST)', dir_mode => '$(PERM_DIR)' ]);
+CODE
+
+    $self->{UMASK_NULL} = '! ';
+
+    $self->SUPER::init_tools;
+
+    # Use the default shell
+    $self->{SHELL}    ||= 'Posix';
+
+    # Redirection on VMS goes before the command, not after as on Unix.
+    # $(DEV_NULL) is used once and its not worth going nuts over making
+    # it work.  However, Unix's DEV_NULL is quite wrong for VMS.
+    $self->{DEV_NULL}   = '';
+
+    return;
+}
+
+=item init_platform (override)
+
+Add PERL_VMS, MM_VMS_REVISION and MM_VMS_VERSION.
+
+MM_VMS_REVISION is for backwards compatibility before MM_VMS had a
+$VERSION.
+
+=cut
+
+sub init_platform {
+    my($self) = shift;
+
+    $self->{MM_VMS_REVISION} = $Revision;
+    $self->{MM_VMS_VERSION}  = $VERSION;
+    $self->{PERL_VMS} = $self->catdir($self->{PERL_SRC}, 'VMS')
+      if $self->{PERL_SRC};
+}
+
+
+=item platform_constants
+
+=cut
+
+sub platform_constants {
+    my($self) = shift;
+    my $make_frag = '';
+
+    foreach my $macro (qw(PERL_VMS MM_VMS_REVISION MM_VMS_VERSION))
+    {
+        next unless defined $self->{$macro};
+        $make_frag .= "$macro = $self->{$macro}\n";
+    }
+
+    return $make_frag;
+}
+
+
+=item init_VERSION (override)
+
+Override the *DEFINE_VERSION macros with VMS semantics.  Translate the
+MAKEMAKER filepath to VMS style.
+
+=cut
+
+sub init_VERSION {
+    my $self = shift;
+
+    $self->SUPER::init_VERSION;
+
+    $self->{DEFINE_VERSION}    = '"$(VERSION_MACRO)=""$(VERSION)"""';
+    $self->{XS_DEFINE_VERSION} = '"$(XS_VERSION_MACRO)=""$(XS_VERSION)"""';
+    $self->{MAKEMAKER} = vmsify($INC{'ExtUtils/MakeMaker.pm'});
+}
+
+
+=item constants (override)
+
+Fixes up numerous file and directory macros to insure VMS syntax
+regardless of input syntax.  Also makes lists of files
+comma-separated.
+
+=cut
+
+sub constants {
+    my($self) = @_;
+
+    # Be kind about case for pollution
+    for (@ARGV) { $_ = uc($_) if /POLLUTE/i; }
+
+    # Cleanup paths for directories in MMS macros.
+    foreach my $macro ( qw [
+            INST_BIN INST_SCRIPT INST_LIB INST_ARCHLIB
+            PERL_LIB PERL_ARCHLIB
+            PERL_INC PERL_SRC ],
+                        (map { 'INSTALL'.$_ } $self->installvars)
+                      )
+    {
+        next unless defined $self->{$macro};
+        next if $macro =~ /MAN/ && $self->{$macro} eq 'none';
+        $self->{$macro} = $self->fixpath($self->{$macro},1);
+    }
+
+    # Cleanup paths for files in MMS macros.
+    foreach my $macro ( qw[LIBPERL_A FIRST_MAKEFILE MAKEFILE_OLD
+                           MAKE_APERL_FILE MYEXTLIB] )
+    {
+        next unless defined $self->{$macro};
+        $self->{$macro} = $self->fixpath($self->{$macro},0);
+    }
+
+    # Fixup files for MMS macros
+    # XXX is this list complete?
+    for my $macro (qw/
+                   FULLEXT VERSION_FROM
+	      /	) {
+        next unless defined $self->{$macro};
+        $self->{$macro} = $self->fixpath($self->{$macro},0);
+    }
+
+
+    for my $macro (qw/
+                   OBJECT LDFROM
+	      /	) {
+        next unless defined $self->{$macro};
+
+        # Must expand macros before splitting on unescaped whitespace.
+        $self->{$macro} = $self->eliminate_macros($self->{$macro});
+        if ($self->{$macro} =~ /(?<!\^)\s/) {
+            $self->{$macro} =~ s/(\\)?\n+\s+/ /g;
+            $self->{$macro} = $self->wraplist(
+                map $self->fixpath($_,0), split /,?(?<!\^)\s+/, $self->{$macro}
+            );
+        }
+        else {
+            $self->{$macro} = $self->fixpath($self->{$macro},0);
+        }
+    }
+
+    for my $macro (qw/ XS MAN1PODS MAN3PODS PM /) {
+        # Where is the space coming from? --jhi
+        next unless $self ne " " && defined $self->{$macro};
+        my %tmp = ();
+        for my $key (keys %{$self->{$macro}}) {
+            $tmp{$self->fixpath($key,0)} =
+                                     $self->fixpath($self->{$macro}{$key},0);
+        }
+        $self->{$macro} = \%tmp;
+    }
+
+    for my $macro (qw/ C O_FILES H /) {
+        next unless defined $self->{$macro};
+        my @tmp = ();
+        for my $val (@{$self->{$macro}}) {
+            push(@tmp,$self->fixpath($val,0));
+        }
+        $self->{$macro} = \@tmp;
+    }
+
+    # mms/k does not define a $(MAKE) macro.
+    $self->{MAKE} = '$(MMS)$(MMSQUALIFIERS)';
+
+    return $self->SUPER::constants;
+}
+
+
+=item special_targets
+
+Clear the default .SUFFIXES and put in our own list.
+
+=cut
+
+sub special_targets {
+    my $self = shift;
+
+    my $make_frag .= <<'MAKE_FRAG';
+.SUFFIXES :
+.SUFFIXES : $(OBJ_EXT) .c .cpp .cxx .xs
+
+MAKE_FRAG
+
+    return $make_frag;
+}
+
+=item cflags (override)
+
+Bypass shell script and produce qualifiers for CC directly (but warn
+user if a shell script for this extension exists).  Fold multiple
+/Defines into one, since some C compilers pay attention to only one
+instance of this qualifier on the command line.
+
+=cut
+
+sub cflags {
+    my($self,$libperl) = @_;
+    my($quals) = $self->{CCFLAGS} || $Config{'ccflags'};
+    my($definestr,$undefstr,$flagoptstr) = ('','','');
+    my($incstr) = '/Include=($(PERL_INC)';
+    my($name,$sys,@m);
+
+    ( $name = $self->{NAME} . "_cflags" ) =~ s/:/_/g ;
+    print "Unix shell script ".$Config{"$self->{'BASEEXT'}_cflags"}.
+         " required to modify CC command for $self->{'BASEEXT'}\n"
+    if ($Config{$name});
+
+    if ($quals =~ / -[DIUOg]/) {
+	while ($quals =~ / -([Og])(\d*)\b/) {
+	    my($type,$lvl) = ($1,$2);
+	    $quals =~ s/ -$type$lvl\b\s*//;
+	    if ($type eq 'g') { $flagoptstr = '/NoOptimize'; }
+	    else { $flagoptstr = '/Optimize' . (defined($lvl) ? "=$lvl" : ''); }
+	}
+	while ($quals =~ / -([DIU])(\S+)/) {
+	    my($type,$def) = ($1,$2);
+	    $quals =~ s/ -$type$def\s*//;
+	    $def =~ s/"/""/g;
+	    if    ($type eq 'D') { $definestr .= qq["$def",]; }
+	    elsif ($type eq 'I') { $incstr .= ',' . $self->fixpath($def,1); }
+	    else                 { $undefstr  .= qq["$def",]; }
+	}
+    }
+    if (length $quals and $quals !~ m!/!) {
+	warn "MM_VMS: Ignoring unrecognized CCFLAGS elements \"$quals\"\n";
+	$quals = '';
+    }
+    $definestr .= q["PERL_POLLUTE",] if $self->{POLLUTE};
+    if (length $definestr) { chop($definestr); $quals .= "/Define=($definestr)"; }
+    if (length $undefstr)  { chop($undefstr);  $quals .= "/Undef=($undefstr)";   }
+    # Deal with $self->{DEFINE} here since some C compilers pay attention
+    # to only one /Define clause on command line, so we have to
+    # conflate the ones from $Config{'ccflags'} and $self->{DEFINE}
+    # ($self->{DEFINE} has already been VMSified in constants() above)
+    if ($self->{DEFINE}) { $quals .= $self->{DEFINE}; }
+    for my $type (qw(Def Undef)) {
+	my(@terms);
+	while ($quals =~ m:/${type}i?n?e?=([^/]+):ig) {
+		my $term = $1;
+		$term =~ s:^\((.+)\)$:$1:;
+		push @terms, $term;
+	    }
+	if ($type eq 'Def') {
+	    push @terms, qw[ $(DEFINE_VERSION) $(XS_DEFINE_VERSION) ];
+	}
+	if (@terms) {
+	    $quals =~ s:/${type}i?n?e?=[^/]+::ig;
+	    $quals .= "/${type}ine=(" . join(',',@terms) . ')';
+	}
+    }
+
+    $libperl or $libperl = $self->{LIBPERL_A} || "libperl.olb";
+
+    # Likewise with $self->{INC} and /Include
+    if ($self->{'INC'}) {
+	my(@includes) = split(/\s+/,$self->{INC});
+	foreach (@includes) {
+	    s/^-I//;
+	    $incstr .= ','.$self->fixpath($_,1);
+	}
+    }
+    $quals .= "$incstr)";
+#    $quals =~ s/,,/,/g; $quals =~ s/\(,/(/g;
+    $self->{CCFLAGS} = $quals;
+
+    $self->{PERLTYPE} ||= '';
+
+    $self->{OPTIMIZE} ||= $flagoptstr || $Config{'optimize'};
+    if ($self->{OPTIMIZE} !~ m!/!) {
+	if    ($self->{OPTIMIZE} =~ m!-g!) { $self->{OPTIMIZE} = '/Debug/NoOptimize' }
+	elsif ($self->{OPTIMIZE} =~ /-O(\d*)/) {
+	    $self->{OPTIMIZE} = '/Optimize' . (defined($1) ? "=$1" : '');
+	}
+	else {
+	    warn "MM_VMS: Can't parse OPTIMIZE \"$self->{OPTIMIZE}\"; using default\n" if length $self->{OPTIMIZE};
+	    $self->{OPTIMIZE} = '/Optimize';
+	}
+    }
+
+    return $self->{CFLAGS} = qq{
+CCFLAGS = $self->{CCFLAGS}
+OPTIMIZE = $self->{OPTIMIZE}
+PERLTYPE = $self->{PERLTYPE}
+};
+}
+
+=item const_cccmd (override)
+
+Adds directives to point C preprocessor to the right place when
+handling #include E<lt>sys/foo.hE<gt> directives.  Also constructs CC
+command line a bit differently than MM_Unix method.
+
+=cut
+
+sub const_cccmd {
+    my($self,$libperl) = @_;
+    my(@m);
+
+    return $self->{CONST_CCCMD} if $self->{CONST_CCCMD};
+    return '' unless $self->needs_linking();
+    if ($Config{'vms_cc_type'} eq 'gcc') {
+        push @m,'
+.FIRST
+	',$self->{NOECHO},'If F$TrnLnm("Sys").eqs."" Then Define/NoLog SYS GNU_CC_Include:[VMS]';
+    }
+    elsif ($Config{'vms_cc_type'} eq 'vaxc') {
+        push @m,'
+.FIRST
+	',$self->{NOECHO},'If F$TrnLnm("Sys").eqs."" .and. F$TrnLnm("VAXC$Include").eqs."" Then Define/NoLog SYS Sys$Library
+	',$self->{NOECHO},'If F$TrnLnm("Sys").eqs."" .and. F$TrnLnm("VAXC$Include").nes."" Then Define/NoLog SYS VAXC$Include';
+    }
+    else {
+        push @m,'
+.FIRST
+	',$self->{NOECHO},'If F$TrnLnm("Sys").eqs."" .and. F$TrnLnm("DECC$System_Include").eqs."" Then Define/NoLog SYS ',
+		($Config{'archname'} eq 'VMS_AXP' ? 'Sys$Library' : 'DECC$Library_Include'),'
+	',$self->{NOECHO},'If F$TrnLnm("Sys").eqs."" .and. F$TrnLnm("DECC$System_Include").nes."" Then Define/NoLog SYS DECC$System_Include';
+    }
+
+    push(@m, "\n\nCCCMD = $Config{'cc'} \$(CCFLAGS)\$(OPTIMIZE)\n");
+
+    $self->{CONST_CCCMD} = join('',@m);
+}
+
+
+=item tools_other (override)
+
+Throw in some dubious extra macros for Makefile args.
+
+Also keep around the old $(SAY) macro in case somebody's using it.
+
+=cut
+
+sub tools_other {
+    my($self) = @_;
+
+    # XXX Are these necessary?  Does anyone override them?  They're longer
+    # than just typing the literal string.
+    my $extra_tools = <<'EXTRA_TOOLS';
+
+# Just in case anyone is using the old macro.
+USEMACROS = $(MACROSTART)
+SAY = $(ECHO)
+
+EXTRA_TOOLS
+
+    return $self->SUPER::tools_other . $extra_tools;
+}
+
+=item init_dist (override)
+
+VMSish defaults for some values.
+
+  macro         description                     default
+
+  ZIPFLAGS      flags to pass to ZIP            -Vu
+
+  COMPRESS      compression command to          gzip
+                use for tarfiles
+  SUFFIX        suffix to put on                -gz
+                compressed files
+
+  SHAR          shar command to use             vms_share
+
+  DIST_DEFAULT  default target to use to        tardist
+                create a distribution
+
+  DISTVNAME     Use VERSION_SYM instead of      $(DISTNAME)-$(VERSION_SYM)
+                VERSION for the name
+
+=cut
+
+sub init_dist {
+    my($self) = @_;
+    $self->{ZIPFLAGS}     ||= '-Vu';
+    $self->{COMPRESS}     ||= 'gzip';
+    $self->{SUFFIX}       ||= '-gz';
+    $self->{SHAR}         ||= 'vms_share';
+    $self->{DIST_DEFAULT} ||= 'zipdist';
+
+    $self->SUPER::init_dist;
+
+    $self->{DISTVNAME} = "$self->{DISTNAME}-$self->{VERSION_SYM}"
+      unless $self->{ARGS}{DISTVNAME};
+
+    return;
+}
+
+=item c_o (override)
+
+Use VMS syntax on command line.  In particular, $(DEFINE) and
+$(PERL_INC) have been pulled into $(CCCMD).  Also use MM[SK] macros.
+
+=cut
+
+sub c_o {
+    my($self) = @_;
+    return '' unless $self->needs_linking();
+    '
+.c$(OBJ_EXT) :
+	$(CCCMD) $(CCCDLFLAGS) $(MMS$TARGET_NAME).c
+
+.cpp$(OBJ_EXT) :
+	$(CCCMD) $(CCCDLFLAGS) $(MMS$TARGET_NAME).cpp
+
+.cxx$(OBJ_EXT) :
+	$(CCCMD) $(CCCDLFLAGS) $(MMS$TARGET_NAME).cxx
+
+';
+}
+
+=item xs_c (override)
+
+Use MM[SK] macros.
+
+=cut
+
+sub xs_c {
+    my($self) = @_;
+    return '' unless $self->needs_linking();
+    '
+.xs.c :
+	$(XSUBPPRUN) $(XSPROTOARG) $(XSUBPPARGS) $(MMS$TARGET_NAME).xs >$(MMS$TARGET)
+';
+}
+
+=item xs_o (override)
+
+Use MM[SK] macros, and VMS command line for C compiler.
+
+=cut
+
+sub xs_o {	# many makes are too dumb to use xs_c then c_o
+    my($self) = @_;
+    return '' unless $self->needs_linking();
+    '
+.xs$(OBJ_EXT) :
+	$(XSUBPPRUN) $(XSPROTOARG) $(XSUBPPARGS) $(MMS$TARGET_NAME).xs >$(MMS$TARGET_NAME).c
+	$(CCCMD) $(CCCDLFLAGS) $(MMS$TARGET_NAME).c
+';
+}
+
+
+=item dlsyms (override)
+
+Create VMS linker options files specifying universal symbols for this
+extension's shareable image, and listing other shareable images or
+libraries to which it should be linked.
+
+=cut
+
+sub dlsyms {
+    my($self,%attribs) = @_;
+
+    return '' unless $self->needs_linking();
+
+    my($funcs) = $attribs{DL_FUNCS} || $self->{DL_FUNCS} || {};
+    my($vars)  = $attribs{DL_VARS}  || $self->{DL_VARS}  || [];
+    my($funclist)  = $attribs{FUNCLIST}  || $self->{FUNCLIST}  || [];
+    my(@m);
+
+    unless ($self->{SKIPHASH}{'dynamic'}) {
+	push(@m,'
+dynamic :: $(INST_ARCHAUTODIR)$(BASEEXT).opt
+	$(NOECHO) $(NOOP)
+');
+    }
+
+    push(@m,'
+static :: $(INST_ARCHAUTODIR)$(BASEEXT).opt
+	$(NOECHO) $(NOOP)
+') unless $self->{SKIPHASH}{'static'};
+
+    push @m,'
+$(INST_ARCHAUTODIR)$(BASEEXT).opt : $(BASEEXT).opt
+	$(CP) $(MMS$SOURCE) $(MMS$TARGET)
+
+$(BASEEXT).opt : Makefile.PL
+	$(PERLRUN) -e "use ExtUtils::Mksymlists;" -
+	',qq[-e "Mksymlists('NAME' => '$self->{NAME}', 'DL_FUNCS' => ],
+	neatvalue($funcs),q[, 'DL_VARS' => ],neatvalue($vars),
+	q[, 'FUNCLIST' => ],neatvalue($funclist),qq[)"\n];
+
+    push @m, '	$(PERL) -e "print ""$(INST_STATIC)/Include=';
+    if ($self->{OBJECT} =~ /\bBASEEXT\b/ or
+        $self->{OBJECT} =~ /\b$self->{BASEEXT}\b/i) {
+        push @m, ($Config{d_vms_case_sensitive_symbols}
+	           ? uc($self->{BASEEXT}) :'$(BASEEXT)');
+    }
+    else {  # We don't have a "main" object file, so pull 'em all in
+        # Upcase module names if linker is being case-sensitive
+        my($upcase) = $Config{d_vms_case_sensitive_symbols};
+        my(@omods) = split ' ', $self->eliminate_macros($self->{OBJECT});
+        for (@omods) {
+            s/\.[^.]*$//;         # Trim off file type
+            s[\$\(\w+_EXT\)][];   # even as a macro
+            s/.*[:>\/\]]//;       # Trim off dir spec
+            $_ = uc if $upcase;
+        };
+
+        my(@lines);
+        my $tmp = shift @omods;
+        foreach my $elt (@omods) {
+            $tmp .= ",$elt";
+            if (length($tmp) > 80) { push @lines, $tmp;  $tmp = ''; }
+        }
+        push @lines, $tmp;
+        push @m, '(', join( qq[, -\\n\\t"";" >>\$(MMS\$TARGET)\n\t\$(PERL) -e "print ""], @lines),')';
+    }
+    push @m, '\n$(INST_STATIC)/Library\n"";" >>$(MMS$TARGET)',"\n";
+
+    if (length $self->{LDLOADLIBS}) {
+        my($line) = '';
+        foreach my $lib (split ' ', $self->{LDLOADLIBS}) {
+            $lib =~ s%\$%\\\$%g;  # Escape '$' in VMS filespecs
+            if (length($line) + length($lib) > 160) {
+                push @m, "\t\$(PERL) -e \"print qq{$line}\" >>\$(MMS\$TARGET)\n";
+                $line = $lib . '\n';
+            }
+            else { $line .= $lib . '\n'; }
+        }
+        push @m, "\t\$(PERL) -e \"print qq{$line}\" >>\$(MMS\$TARGET)\n" if $line;
+    }
+
+    join('',@m);
+
+}
+
+=item dynamic_lib (override)
+
+Use VMS Link command.
+
+=cut
+
+sub dynamic_lib {
+    my($self, %attribs) = @_;
+    return '' unless $self->needs_linking(); #might be because of a subdir
+
+    return '' unless $self->has_link_code();
+
+    my($otherldflags) = $attribs{OTHERLDFLAGS} || "";
+    my($inst_dynamic_dep) = $attribs{INST_DYNAMIC_DEP} || "";
+    my $shr = $Config{'dbgprefix'} . 'PerlShr';
+    my(@m);
+    push @m,"
+
+OTHERLDFLAGS = $otherldflags
+INST_DYNAMIC_DEP = $inst_dynamic_dep
+
+";
+    push @m, '
+$(INST_DYNAMIC) : $(INST_STATIC) $(PERL_INC)perlshr_attr.opt $(INST_ARCHAUTODIR)$(DFSEP).exists $(EXPORT_LIST) $(PERL_ARCHIVE) $(INST_DYNAMIC_DEP)
+	If F$TrnLNm("',$shr,'").eqs."" Then Define/NoLog/User ',"$shr Sys\$Share:$shr.$Config{'dlext'}",'
+	Link $(LDFLAGS) /Shareable=$(MMS$TARGET)$(OTHERLDFLAGS) $(BASEEXT).opt/Option,$(PERL_INC)perlshr_attr.opt/Option
+';
+
+    join('',@m);
+}
+
+
+=item static_lib (override)
+
+Use VMS commands to manipulate object library.
+
+=cut
+
+sub static_lib {
+    my($self) = @_;
+    return '' unless $self->needs_linking();
+
+    return '
+$(INST_STATIC) :
+	$(NOECHO) $(NOOP)
+' unless ($self->{OBJECT} or @{$self->{C} || []} or $self->{MYEXTLIB});
+
+    my(@m);
+    push @m,'
+# Rely on suffix rule for update action
+$(OBJECT) : $(INST_ARCHAUTODIR)$(DFSEP).exists
+
+$(INST_STATIC) : $(OBJECT) $(MYEXTLIB)
+';
+    # If this extension has its own library (eg SDBM_File)
+    # then copy that to $(INST_STATIC) and add $(OBJECT) into it.
+    push(@m, "\t",'$(CP) $(MYEXTLIB) $(MMS$TARGET)',"\n") if $self->{MYEXTLIB};
+
+    push(@m,"\t",'If F$Search("$(MMS$TARGET)").eqs."" Then Library/Object/Create $(MMS$TARGET)',"\n");
+
+    # if there was a library to copy, then we can't use MMS$SOURCE_LIST,
+    # 'cause it's a library and you can't stick them in other libraries.
+    # In that case, we use $OBJECT instead and hope for the best
+    if ($self->{MYEXTLIB}) {
+      push(@m,"\t",'Library/Object/Replace $(MMS$TARGET) $(OBJECT)',"\n");
+    } else {
+      push(@m,"\t",'Library/Object/Replace $(MMS$TARGET) $(MMS$SOURCE_LIST)',"\n");
+    }
+
+    push @m, "\t\$(NOECHO) \$(PERL) -e 1 >\$(INST_ARCHAUTODIR)extralibs.ld\n";
+    foreach my $lib (split ' ', $self->{EXTRALIBS}) {
+      push(@m,"\t",'$(NOECHO) $(PERL) -e "print qq{',$lib,'\n}" >>$(INST_ARCHAUTODIR)extralibs.ld',"\n");
+    }
+    join('',@m);
+}
+
+
+=item extra_clean_files
+
+Clean up some OS specific files.  Plus the temp file used to shorten
+a lot of commands.  And the name mangler database.
+
+=cut
+
+sub extra_clean_files {
+    return qw(
+              *.Map *.Dmp *.Lis *.cpp *.$(DLEXT) *.Opt $(BASEEXT).bso
+              .MM_Tmp cxx_repository
+             );
+}
+
+
+=item zipfile_target
+
+=item tarfile_target
+
+=item shdist_target
+
+Syntax for invoking shar, tar and zip differs from that for Unix.
+
+=cut
+
+sub zipfile_target {
+    my($self) = shift;
+
+    return <<'MAKE_FRAG';
+$(DISTVNAME).zip : distdir
+	$(PREOP)
+	$(ZIP) "$(ZIPFLAGS)" $(MMS$TARGET) [.$(DISTVNAME)...]*.*;
+	$(RM_RF) $(DISTVNAME)
+	$(POSTOP)
+MAKE_FRAG
+}
+
+sub tarfile_target {
+    my($self) = shift;
+
+    return <<'MAKE_FRAG';
+$(DISTVNAME).tar$(SUFFIX) : distdir
+	$(PREOP)
+	$(TO_UNIX)
+        $(TAR) "$(TARFLAGS)" $(DISTVNAME).tar [.$(DISTVNAME)...]
+	$(RM_RF) $(DISTVNAME)
+	$(COMPRESS) $(DISTVNAME).tar
+	$(POSTOP)
+MAKE_FRAG
+}
+
+sub shdist_target {
+    my($self) = shift;
+
+    return <<'MAKE_FRAG';
+shdist : distdir
+	$(PREOP)
+	$(SHAR) [.$(DISTVNAME)...]*.*; $(DISTVNAME).share
+	$(RM_RF) $(DISTVNAME)
+	$(POSTOP)
+MAKE_FRAG
+}
+
+
+# --- Test and Installation Sections ---
+
+=item install (override)
+
+Work around DCL's 255 character limit several times,and use
+VMS-style command line quoting in a few cases.
+
+=cut
+
+sub install {
+    my($self, %attribs) = @_;
+    my(@m);
+
+    push @m, q[
+install :: all pure_install doc_install
+	$(NOECHO) $(NOOP)
+
+install_perl :: all pure_perl_install doc_perl_install
+	$(NOECHO) $(NOOP)
+
+install_site :: all pure_site_install doc_site_install
+	$(NOECHO) $(NOOP)
+
+install_vendor :: all pure_vendor_install doc_vendor_install
+	$(NOECHO) $(NOOP)
+
+pure_install :: pure_$(INSTALLDIRS)_install
+	$(NOECHO) $(NOOP)
+
+doc_install :: doc_$(INSTALLDIRS)_install
+        $(NOECHO) $(NOOP)
+
+pure__install : pure_site_install
+	$(NOECHO) $(ECHO) "INSTALLDIRS not defined, defaulting to INSTALLDIRS=site"
+
+doc__install : doc_site_install
+	$(NOECHO) $(ECHO) "INSTALLDIRS not defined, defaulting to INSTALLDIRS=site"
+
+# This hack brought to you by DCL's 255-character command line limit
+pure_perl_install ::
+];
+    push @m,
+q[	$(NOECHO) $(PERLRUN) "-MFile::Spec" -e "print 'read|'.File::Spec->catfile('$(PERL_ARCHLIB)','auto','$(FULLEXT)','.packlist').'|'" >.MM_tmp
+	$(NOECHO) $(PERLRUN) "-MFile::Spec" -e "print 'write|'.File::Spec->catfile('$(DESTINSTALLARCHLIB)','auto','$(FULLEXT)','.packlist').'|'" >>.MM_tmp
+] unless $self->{NO_PACKLIST};
+
+    push @m,
+q[	$(NOECHO) $(ECHO_N) "$(INST_LIB)|$(DESTINSTALLPRIVLIB)|" >>.MM_tmp
+	$(NOECHO) $(ECHO_N) "$(INST_ARCHLIB)|$(DESTINSTALLARCHLIB)|" >>.MM_tmp
+	$(NOECHO) $(ECHO_N) "$(INST_BIN)|$(DESTINSTALLBIN)|" >>.MM_tmp
+	$(NOECHO) $(ECHO_N) "$(INST_SCRIPT)|$(DESTINSTALLSCRIPT)|" >>.MM_tmp
+	$(NOECHO) $(ECHO_N) "$(INST_MAN1DIR) $(DESTINSTALLMAN1DIR) " >>.MM_tmp
+	$(NOECHO) $(ECHO_N) "$(INST_MAN3DIR)|$(DESTINSTALLMAN3DIR)" >>.MM_tmp
+	$(NOECHO) $(MOD_INSTALL) <.MM_tmp
+	$(NOECHO) $(RM_F) .MM_tmp
+	$(NOECHO) $(WARN_IF_OLD_PACKLIST) "].$self->catfile($self->{SITEARCHEXP},'auto',$self->{FULLEXT},'.packlist').q["
+
+# Likewise
+pure_site_install ::
+];
+    push @m,
+q[	$(NOECHO) $(PERLRUN) "-MFile::Spec" -e "print 'read|'.File::Spec->catfile('$(SITEARCHEXP)','auto','$(FULLEXT)','.packlist').'|'" >.MM_tmp
+	$(NOECHO) $(PERLRUN) "-MFile::Spec" -e "print 'write|'.File::Spec->catfile('$(DESTINSTALLSITEARCH)','auto','$(FULLEXT)','.packlist').'|'" >>.MM_tmp
+] unless $self->{NO_PACKLIST};
+
+    push @m,
+q[	$(NOECHO) $(ECHO_N) "$(INST_LIB)|$(DESTINSTALLSITELIB)|" >>.MM_tmp
+	$(NOECHO) $(ECHO_N) "$(INST_ARCHLIB)|$(DESTINSTALLSITEARCH)|" >>.MM_tmp
+	$(NOECHO) $(ECHO_N) "$(INST_BIN)|$(DESTINSTALLSITEBIN)|" >>.MM_tmp
+	$(NOECHO) $(ECHO_N) "$(INST_SCRIPT)|$(DESTINSTALLSCRIPT)|" >>.MM_tmp
+	$(NOECHO) $(ECHO_N) "$(INST_MAN1DIR)|$(DESTINSTALLSITEMAN1DIR)|" >>.MM_tmp
+	$(NOECHO) $(ECHO_N) "$(INST_MAN3DIR)|$(DESTINSTALLSITEMAN3DIR)" >>.MM_tmp
+	$(NOECHO) $(MOD_INSTALL) <.MM_tmp
+	$(NOECHO) $(RM_F) .MM_tmp
+	$(NOECHO) $(WARN_IF_OLD_PACKLIST) "].$self->catfile($self->{PERL_ARCHLIB},'auto',$self->{FULLEXT},'.packlist').q["
+
+pure_vendor_install ::
+];
+    push @m,
+q[	$(NOECHO) $(PERLRUN) "-MFile::Spec" -e "print 'read|'.File::Spec->catfile('$(VENDORARCHEXP)','auto','$(FULLEXT)','.packlist').'|'" >.MM_tmp
+	$(NOECHO) $(PERLRUN) "-MFile::Spec" -e "print 'write|'.File::Spec->catfile('$(DESTINSTALLVENDORARCH)','auto','$(FULLEXT)','.packlist').'|'" >>.MM_tmp
+] unless $self->{NO_PACKLIST};
+
+    push @m,
+q[	$(NOECHO) $(ECHO_N) "$(INST_LIB)|$(DESTINSTALLVENDORLIB)|" >>.MM_tmp
+	$(NOECHO) $(ECHO_N) "$(INST_ARCHLIB)|$(DESTINSTALLVENDORARCH)|" >>.MM_tmp
+	$(NOECHO) $(ECHO_N) "$(INST_BIN)|$(DESTINSTALLVENDORBIN)|" >>.MM_tmp
+	$(NOECHO) $(ECHO_N) "$(INST_SCRIPT)|$(DESTINSTALLSCRIPT)|" >>.MM_tmp
+	$(NOECHO) $(ECHO_N) "$(INST_MAN1DIR)|$(DESTINSTALLVENDORMAN1DIR)|" >>.MM_tmp
+	$(NOECHO) $(ECHO_N) "$(INST_MAN3DIR)|$(DESTINSTALLVENDORMAN3DIR)" >>.MM_tmp
+	$(NOECHO) $(MOD_INSTALL) <.MM_tmp
+	$(NOECHO) $(RM_F) .MM_tmp
+
+];
+
+    push @m, q[
+# Ditto
+doc_perl_install ::
+	$(NOECHO) $(NOOP)
+
+# And again
+doc_site_install ::
+	$(NOECHO) $(NOOP)
+
+doc_vendor_install ::
+	$(NOECHO) $(NOOP)
+
+] if $self->{NO_PERLLOCAL};
+
+    push @m, q[
+# Ditto
+doc_perl_install ::
+	$(NOECHO) $(ECHO) "Appending installation info to ].$self->catfile($self->{DESTINSTALLARCHLIB}, 'perllocal.pod').q["
+	$(NOECHO) $(MKPATH) $(DESTINSTALLARCHLIB)
+	$(NOECHO) $(ECHO_N) "installed into|$(INSTALLPRIVLIB)|" >.MM_tmp
+	$(NOECHO) $(ECHO_N) "LINKTYPE|$(LINKTYPE)|VERSION|$(VERSION)|EXE_FILES|$(EXE_FILES) " >>.MM_tmp
+	$(NOECHO) $(DOC_INSTALL) "Module" "$(NAME)" <.MM_tmp >>].$self->catfile($self->{DESTINSTALLARCHLIB},'perllocal.pod').q[
+	$(NOECHO) $(RM_F) .MM_tmp
+
+# And again
+doc_site_install ::
+	$(NOECHO) $(ECHO) "Appending installation info to ].$self->catfile($self->{DESTINSTALLARCHLIB}, 'perllocal.pod').q["
+	$(NOECHO) $(MKPATH) $(DESTINSTALLARCHLIB)
+	$(NOECHO) $(ECHO_N) "installed into|$(INSTALLSITELIB)|" >.MM_tmp
+	$(NOECHO) $(ECHO_N) "LINKTYPE|$(LINKTYPE)|VERSION|$(VERSION)|EXE_FILES|$(EXE_FILES) " >>.MM_tmp
+	$(NOECHO) $(DOC_INSTALL) "Module" "$(NAME)" <.MM_tmp >>].$self->catfile($self->{DESTINSTALLARCHLIB},'perllocal.pod').q[
+	$(NOECHO) $(RM_F) .MM_tmp
+
+doc_vendor_install ::
+	$(NOECHO) $(ECHO) "Appending installation info to ].$self->catfile($self->{DESTINSTALLARCHLIB}, 'perllocal.pod').q["
+	$(NOECHO) $(MKPATH) $(DESTINSTALLARCHLIB)
+	$(NOECHO) $(ECHO_N) "installed into|$(INSTALLVENDORLIB)|" >.MM_tmp
+	$(NOECHO) $(ECHO_N) "LINKTYPE|$(LINKTYPE)|VERSION|$(VERSION)|EXE_FILES|$(EXE_FILES) " >>.MM_tmp
+	$(NOECHO) $(DOC_INSTALL) "Module" "$(NAME)" <.MM_tmp >>].$self->catfile($self->{DESTINSTALLARCHLIB},'perllocal.pod').q[
+	$(NOECHO) $(RM_F) .MM_tmp
+
+] unless $self->{NO_PERLLOCAL};
+
+    push @m, q[
+uninstall :: uninstall_from_$(INSTALLDIRS)dirs
+	$(NOECHO) $(NOOP)
+
+uninstall_from_perldirs ::
+	$(NOECHO) $(UNINSTALL) ].$self->catfile($self->{PERL_ARCHLIB},'auto',$self->{FULLEXT},'.packlist').q[
+
+uninstall_from_sitedirs ::
+	$(NOECHO) $(UNINSTALL) ].$self->catfile($self->{SITEARCHEXP},'auto',$self->{FULLEXT},'.packlist').q[
+
+uninstall_from_vendordirs ::
+	$(NOECHO) $(UNINSTALL) ].$self->catfile($self->{VENDORARCHEXP},'auto',$self->{FULLEXT},'.packlist').q[
+];
+
+    join('',@m);
+}
+
+=item perldepend (override)
+
+Use VMS-style syntax for files; it's cheaper to just do it directly here
+than to have the MM_Unix method call C<catfile> repeatedly.  Also, if
+we have to rebuild Config.pm, use MM[SK] to do it.
+
+=cut
+
+sub perldepend {
+    my($self) = @_;
+    my(@m);
+
+    if ($self->{OBJECT}) {
+        # Need to add an object file dependency on the perl headers.
+        # this is very important for XS modules in perl.git development.
+
+        push @m, $self->_perl_header_files_fragment(""); # empty separator on VMS as its in the $(PERL_INC)
+    }
+
+    if ($self->{PERL_SRC}) {
+	my(@macros);
+	my($mmsquals) = '$(USEMAKEFILE)[.vms]$(FIRST_MAKEFILE)';
+	push(@macros,'__AXP__=1') if $Config{'archname'} eq 'VMS_AXP';
+	push(@macros,'DECC=1')    if $Config{'vms_cc_type'} eq 'decc';
+	push(@macros,'GNUC=1')    if $Config{'vms_cc_type'} eq 'gcc';
+	push(@macros,'SOCKET=1')  if $Config{'d_has_sockets'};
+	push(@macros,qq["CC=$Config{'cc'}"])  if $Config{'cc'} =~ m!/!;
+	$mmsquals .= '$(USEMACROS)' . join(',',@macros) . '$(MACROEND)' if @macros;
+	push(@m,q[
+# Check for unpropagated config.sh changes. Should never happen.
+# We do NOT just update config.h because that is not sufficient.
+# An out of date config.h is not fatal but complains loudly!
+$(PERL_INC)config.h : $(PERL_SRC)config.sh
+	$(NOOP)
+
+$(PERL_ARCHLIB)Config.pm : $(PERL_SRC)config.sh
+	$(NOECHO) Write Sys$Error "$(PERL_ARCHLIB)Config.pm may be out of date with config.h or genconfig.pl"
+	olddef = F$Environment("Default")
+	Set Default $(PERL_SRC)
+	$(MMS)],$mmsquals,);
+	if ($self->{PERL_ARCHLIB} =~ m|\[-| && $self->{PERL_SRC} =~ m|(\[-+)|) {
+	    my($prefix,$target) = ($1,$self->fixpath('$(PERL_ARCHLIB)Config.pm',0));
+	    $target =~ s/\Q$prefix/[/;
+	    push(@m," $target");
+	}
+	else { push(@m,' $(MMS$TARGET)'); }
+	push(@m,q[
+	Set Default 'olddef'
+]);
+    }
+
+    push(@m, join(" ", map($self->fixpath($_,0),values %{$self->{XS}}))." : \$(XSUBPPDEPS)\n")
+      if %{$self->{XS}};
+
+    join('',@m);
+}
+
+
+=item makeaperl (override)
+
+Undertake to build a new set of Perl images using VMS commands.  Since
+VMS does dynamic loading, it's not necessary to statically link each
+extension into the Perl image, so this isn't the normal build path.
+Consequently, it hasn't really been tested, and may well be incomplete.
+
+=cut
+
+our %olbs;  # needs to be localized
+
+sub makeaperl {
+    my($self, %attribs) = @_;
+    my($makefilename, $searchdirs, $static, $extra, $perlinc, $target, $tmpdir, $libperl) =
+      @attribs{qw(MAKE DIRS STAT EXTRA INCL TARGET TMP LIBPERL)};
+    my(@m);
+    push @m, "
+# --- MakeMaker makeaperl section ---
+MAP_TARGET    = $target
+";
+    return join '', @m if $self->{PARENT};
+
+    my($dir) = join ":", @{$self->{DIR}};
+
+    unless ($self->{MAKEAPERL}) {
+	push @m, q{
+$(MAKE_APERL_FILE) : $(FIRST_MAKEFILE)
+	$(NOECHO) $(ECHO) "Writing ""$(MMS$TARGET)"" for this $(MAP_TARGET)"
+	$(NOECHO) $(PERLRUNINST) \
+		Makefile.PL DIR=}, $dir, q{ \
+		FIRST_MAKEFILE=$(MAKE_APERL_FILE) LINKTYPE=static \
+		MAKEAPERL=1 NORECURS=1 };
+
+	push @m, map(q[ \\\n\t\t"$_"], @ARGV),q{
+
+$(MAP_TARGET) :: $(MAKE_APERL_FILE)
+	$(MAKE)$(USEMAKEFILE)$(MAKE_APERL_FILE) static $(MMS$TARGET)
+};
+	push @m, "\n";
+
+	return join '', @m;
+    }
+
+
+    my($linkcmd,@optlibs,@staticpkgs,$extralist,$targdir,$libperldir,%libseen);
+    local($_);
+
+    # The front matter of the linkcommand...
+    $linkcmd = join ' ', $Config{'ld'},
+	    grep($_, @Config{qw(large split ldflags ccdlflags)});
+    $linkcmd =~ s/\s+/ /g;
+
+    # Which *.olb files could we make use of...
+    local(%olbs);       # XXX can this be lexical?
+    $olbs{$self->{INST_ARCHAUTODIR}} = "$self->{BASEEXT}\$(LIB_EXT)";
+    require File::Find;
+    File::Find::find(sub {
+	return unless m/\Q$self->{LIB_EXT}\E$/;
+	return if m/^libperl/;
+
+	if( exists $self->{INCLUDE_EXT} ){
+		my $found = 0;
+
+		(my $xx = $File::Find::name) =~ s,.*?/auto/,,;
+		$xx =~ s,/?$_,,;
+		$xx =~ s,/,::,g;
+
+		# Throw away anything not explicitly marked for inclusion.
+		# DynaLoader is implied.
+		foreach my $incl ((@{$self->{INCLUDE_EXT}},'DynaLoader')){
+			if( $xx eq $incl ){
+				$found++;
+				last;
+			}
+		}
+		return unless $found;
+	}
+	elsif( exists $self->{EXCLUDE_EXT} ){
+		(my $xx = $File::Find::name) =~ s,.*?/auto/,,;
+		$xx =~ s,/?$_,,;
+		$xx =~ s,/,::,g;
+
+		# Throw away anything explicitly marked for exclusion
+		foreach my $excl (@{$self->{EXCLUDE_EXT}}){
+			return if( $xx eq $excl );
+		}
+	}
+
+	$olbs{$ENV{DEFAULT}} = $_;
+    }, grep( -d $_, @{$searchdirs || []}));
+
+    # We trust that what has been handed in as argument will be buildable
+    $static = [] unless $static;
+    @olbs{@{$static}} = (1) x @{$static};
+
+    $extra = [] unless $extra && ref $extra eq 'ARRAY';
+    # Sort the object libraries in inverse order of
+    # filespec length to try to insure that dependent extensions
+    # will appear before their parents, so the linker will
+    # search the parent library to resolve references.
+    # (e.g. Intuit::DWIM will precede Intuit, so unresolved
+    # references from [.intuit.dwim]dwim.obj can be found
+    # in [.intuit]intuit.olb).
+    for (sort { length($a) <=> length($b) } keys %olbs) {
+	next unless $olbs{$_} =~ /\Q$self->{LIB_EXT}\E$/;
+	my($dir) = $self->fixpath($_,1);
+	my($extralibs) = $dir . "extralibs.ld";
+	my($extopt) = $dir . $olbs{$_};
+	$extopt =~ s/$self->{LIB_EXT}$/.opt/;
+	push @optlibs, "$dir$olbs{$_}";
+	# Get external libraries this extension will need
+	if (-f $extralibs ) {
+	    my %seenthis;
+	    open my $list, "<", $extralibs or warn $!,next;
+	    while (<$list>) {
+		chomp;
+		# Include a library in the link only once, unless it's mentioned
+		# multiple times within a single extension's options file, in which
+		# case we assume the builder needed to search it again later in the
+		# link.
+		my $skip = exists($libseen{$_}) && !exists($seenthis{$_});
+		$libseen{$_}++;  $seenthis{$_}++;
+		next if $skip;
+		push @$extra,$_;
+	    }
+	}
+	# Get full name of extension for ExtUtils::Miniperl
+	if (-f $extopt) {
+	    open my $opt, '<', $extopt or die $!;
+	    while (<$opt>) {
+		next unless /(?:UNIVERSAL|VECTOR)=boot_([\w_]+)/;
+		my $pkg = $1;
+		$pkg =~ s#__*#::#g;
+		push @staticpkgs,$pkg;
+	    }
+	}
+    }
+    # Place all of the external libraries after all of the Perl extension
+    # libraries in the final link, in order to maximize the opportunity
+    # for XS code from multiple extensions to resolve symbols against the
+    # same external library while only including that library once.
+    push @optlibs, @$extra;
+
+    $target = "Perl$Config{'exe_ext'}" unless $target;
+    my $shrtarget;
+    ($shrtarget,$targdir) = fileparse($target);
+    $shrtarget =~ s/^([^.]*)/$1Shr/;
+    $shrtarget = $targdir . $shrtarget;
+    $target = "Perlshr.$Config{'dlext'}" unless $target;
+    $tmpdir = "[]" unless $tmpdir;
+    $tmpdir = $self->fixpath($tmpdir,1);
+    if (@optlibs) { $extralist = join(' ',@optlibs); }
+    else          { $extralist = ''; }
+    # Let ExtUtils::Liblist find the necessary libs for us (but skip PerlShr)
+    # that's what we're building here).
+    push @optlibs, grep { !/PerlShr/i } split ' ', +($self->ext())[2];
+    if ($libperl) {
+	unless (-f $libperl || -f ($libperl = $self->catfile($Config{'installarchlib'},'CORE',$libperl))) {
+	    print "Warning: $libperl not found\n";
+	    undef $libperl;
+	}
+    }
+    unless ($libperl) {
+	if (defined $self->{PERL_SRC}) {
+	    $libperl = $self->catfile($self->{PERL_SRC},"libperl$self->{LIB_EXT}");
+	} elsif (-f ($libperl = $self->catfile($Config{'installarchlib'},'CORE',"libperl$self->{LIB_EXT}")) ) {
+	} else {
+	    print "Warning: $libperl not found
+    If you're going to build a static perl binary, make sure perl is installed
+    otherwise ignore this warning\n";
+	}
+    }
+    $libperldir = $self->fixpath((fileparse($libperl))[1],1);
+
+    push @m, '
+# Fill in the target you want to produce if it\'s not perl
+MAP_TARGET    = ',$self->fixpath($target,0),'
+MAP_SHRTARGET = ',$self->fixpath($shrtarget,0),"
+MAP_LINKCMD   = $linkcmd
+MAP_PERLINC   = ", $perlinc ? map('"$_" ',@{$perlinc}) : '',"
+MAP_EXTRA     = $extralist
+MAP_LIBPERL = ",$self->fixpath($libperl,0),'
+';
+
+
+    push @m,"\n${tmpdir}Makeaperl.Opt : \$(MAP_EXTRA)\n";
+    foreach (@optlibs) {
+	push @m,'	$(NOECHO) $(PERL) -e "print q{',$_,'}" >>$(MMS$TARGET)',"\n";
+    }
+    push @m,"\n${tmpdir}PerlShr.Opt :\n\t";
+    push @m,'$(NOECHO) $(PERL) -e "print q{$(MAP_SHRTARGET)}" >$(MMS$TARGET)',"\n";
+
+    push @m,'
+$(MAP_SHRTARGET) : $(MAP_LIBPERL) Makeaperl.Opt ',"${libperldir}Perlshr_Attr.Opt",'
+	$(MAP_LINKCMD)/Shareable=$(MMS$TARGET) $(MAP_LIBPERL), Makeaperl.Opt/Option ',"${libperldir}Perlshr_Attr.Opt/Option",'
+$(MAP_TARGET) : $(MAP_SHRTARGET) ',"${tmpdir}perlmain\$(OBJ_EXT) ${tmpdir}PerlShr.Opt",'
+	$(MAP_LINKCMD) ',"${tmpdir}perlmain\$(OBJ_EXT)",', PerlShr.Opt/Option
+	$(NOECHO) $(ECHO) "To install the new ""$(MAP_TARGET)"" binary, say"
+	$(NOECHO) $(ECHO) "    $(MAKE)$(USEMAKEFILE)$(FIRST_MAKEFILE) inst_perl $(USEMACROS)MAP_TARGET=$(MAP_TARGET)$(ENDMACRO)"
+	$(NOECHO) $(ECHO) "To remove the intermediate files, say
+	$(NOECHO) $(ECHO) "    $(MAKE)$(USEMAKEFILE)$(FIRST_MAKEFILE) map_clean"
+';
+    push @m,"\n${tmpdir}perlmain.c : \$(FIRST_MAKEFILE)\n\t\$(NOECHO) \$(PERL) -e 1 >${tmpdir}Writemain.tmp\n";
+    push @m, "# More from the 255-char line length limit\n";
+    foreach (@staticpkgs) {
+	push @m,'	$(NOECHO) $(PERL) -e "print q{',$_,qq[}" >>${tmpdir}Writemain.tmp\n];
+    }
+
+    push @m, sprintf <<'MAKE_FRAG', $tmpdir, $tmpdir;
+	$(NOECHO) $(PERL) $(MAP_PERLINC) -ane "use ExtUtils::Miniperl; writemain(@F)" %sWritemain.tmp >$(MMS$TARGET)
+	$(NOECHO) $(RM_F) %sWritemain.tmp
+MAKE_FRAG
+
+    push @m, q[
+# Still more from the 255-char line length limit
+doc_inst_perl :
+	$(NOECHO) $(MKPATH) $(DESTINSTALLARCHLIB)
+	$(NOECHO) $(ECHO) "Perl binary $(MAP_TARGET)|" >.MM_tmp
+	$(NOECHO) $(ECHO) "MAP_STATIC|$(MAP_STATIC)|" >>.MM_tmp
+	$(NOECHO) $(PERL) -pl040 -e " " ].$self->catfile('$(INST_ARCHAUTODIR)','extralibs.all'),q[ >>.MM_tmp
+	$(NOECHO) $(ECHO) -e "MAP_LIBPERL|$(MAP_LIBPERL)|" >>.MM_tmp
+	$(NOECHO) $(DOC_INSTALL) <.MM_tmp >>].$self->catfile('$(DESTINSTALLARCHLIB)','perllocal.pod').q[
+	$(NOECHO) $(RM_F) .MM_tmp
+];
+
+    push @m, "
+inst_perl : pure_inst_perl doc_inst_perl
+	\$(NOECHO) \$(NOOP)
+
+pure_inst_perl : \$(MAP_TARGET)
+	$self->{CP} \$(MAP_SHRTARGET) ",$self->fixpath($Config{'installbin'},1),"
+	$self->{CP} \$(MAP_TARGET) ",$self->fixpath($Config{'installbin'},1),"
+
+clean :: map_clean
+	\$(NOECHO) \$(NOOP)
+
+map_clean :
+	\$(RM_F) ${tmpdir}perlmain\$(OBJ_EXT) ${tmpdir}perlmain.c \$(FIRST_MAKEFILE)
+	\$(RM_F) ${tmpdir}Makeaperl.Opt ${tmpdir}PerlShr.Opt \$(MAP_TARGET)
+";
+
+    join '', @m;
+}
+
+
+# --- Output postprocessing section ---
+
+=item maketext_filter (override)
+
+Insure that colons marking targets are preceded by space, in order
+to distinguish the target delimiter from a colon appearing as
+part of a filespec.
+
+=cut
+
+sub maketext_filter {
+    my($self, $text) = @_;
+
+    $text =~ s/^([^\s:=]+)(:+\s)/$1 $2/mg;
+    return $text;
+}
+
+=item prefixify (override)
+
+prefixifying on VMS is simple.  Each should simply be:
+
+    perl_root:[some.dir]
+
+which can just be converted to:
+
+    volume:[your.prefix.some.dir]
+
+otherwise you get the default layout.
+
+In effect, your search prefix is ignored and $Config{vms_prefix} is
+used instead.
+
+=cut
+
+sub prefixify {
+    my($self, $var, $sprefix, $rprefix, $default) = @_;
+
+    # Translate $(PERLPREFIX) to a real path.
+    $rprefix = $self->eliminate_macros($rprefix);
+    $rprefix = vmspath($rprefix) if $rprefix;
+    $sprefix = vmspath($sprefix) if $sprefix;
+
+    $default = vmsify($default)
+      unless $default =~ /\[.*\]/;
+
+    (my $var_no_install = $var) =~ s/^install//;
+    my $path = $self->{uc $var} ||
+               $ExtUtils::MM_Unix::Config_Override{lc $var} ||
+               $Config{lc $var} || $Config{lc $var_no_install};
+
+    if( !$path ) {
+        warn "  no Config found for $var.\n" if $Verbose >= 2;
+        $path = $self->_prefixify_default($rprefix, $default);
+    }
+    elsif( !$self->{ARGS}{PREFIX} || !$self->file_name_is_absolute($path) ) {
+        # do nothing if there's no prefix or if its relative
+    }
+    elsif( $sprefix eq $rprefix ) {
+        warn "  no new prefix.\n" if $Verbose >= 2;
+    }
+    else {
+
+        warn "  prefixify $var => $path\n"     if $Verbose >= 2;
+        warn "    from $sprefix to $rprefix\n" if $Verbose >= 2;
+
+        my($path_vol, $path_dirs) = $self->splitpath( $path );
+        if( $path_vol eq $Config{vms_prefix}.':' ) {
+            warn "  $Config{vms_prefix}: seen\n" if $Verbose >= 2;
+
+            $path_dirs =~ s{^\[}{\[.} unless $path_dirs =~ m{^\[\.};
+            $path = $self->_catprefix($rprefix, $path_dirs);
+        }
+        else {
+            $path = $self->_prefixify_default($rprefix, $default);
+        }
+    }
+
+    print "    now $path\n" if $Verbose >= 2;
+    return $self->{uc $var} = $path;
+}
+
+
+sub _prefixify_default {
+    my($self, $rprefix, $default) = @_;
+
+    warn "  cannot prefix, using default.\n" if $Verbose >= 2;
+
+    if( !$default ) {
+        warn "No default!\n" if $Verbose >= 1;
+        return;
+    }
+    if( !$rprefix ) {
+        warn "No replacement prefix!\n" if $Verbose >= 1;
+        return '';
+    }
+
+    return $self->_catprefix($rprefix, $default);
+}
+
+sub _catprefix {
+    my($self, $rprefix, $default) = @_;
+
+    my($rvol, $rdirs) = $self->splitpath($rprefix);
+    if( $rvol ) {
+        return $self->catpath($rvol,
+                                   $self->catdir($rdirs, $default),
+                                   ''
+                                  )
+    }
+    else {
+        return $self->catdir($rdirs, $default);
+    }
+}
+
+
+=item cd
+
+=cut
+
+sub cd {
+    my($self, $dir, @cmds) = @_;
+
+    $dir = vmspath($dir);
+
+    my $cmd = join "\n\t", map "$_", @cmds;
+
+    # No leading tab makes it look right when embedded
+    my $make_frag = sprintf <<'MAKE_FRAG', $dir, $cmd;
+startdir = F$Environment("Default")
+	Set Default %s
+	%s
+	Set Default 'startdir'
+MAKE_FRAG
+
+    # No trailing newline makes this easier to embed
+    chomp $make_frag;
+
+    return $make_frag;
+}
+
+
+=item oneliner
+
+=cut
+
+sub oneliner {
+    my($self, $cmd, $switches) = @_;
+    $switches = [] unless defined $switches;
+
+    # Strip leading and trailing newlines
+    $cmd =~ s{^\n+}{};
+    $cmd =~ s{\n+$}{};
+
+    my @cmds = split /\n/, $cmd;
+    $cmd = join " \n\t  -e ", map $self->quote_literal($_), @cmds;
+    $cmd = $self->escape_newlines($cmd);
+
+    # Switches must be quoted else they will be lowercased.
+    $switches = join ' ', map { qq{"$_"} } @$switches;
+
+    return qq{\$(ABSPERLRUN) $switches -e $cmd "--"};
+}
+
+
+=item B<echo>
+
+perl trips up on "<foo>" thinking it's an input redirect.  So we use the
+native Write command instead.  Besides, its faster.
+
+=cut
+
+sub echo {
+    my($self, $text, $file, $opts) = @_;
+
+    # Compatibility with old options
+    if( !ref $opts ) {
+        my $append = $opts;
+        $opts = { append => $append || 0 };
+    }
+    my $opencmd = $opts->{append} ? 'Open/Append' : 'Open/Write';
+
+    $opts->{allow_variables} = 0 unless defined $opts->{allow_variables};
+
+    my $ql_opts = { allow_variables => $opts->{allow_variables} };
+
+    my @cmds = ("\$(NOECHO) $opencmd MMECHOFILE $file ");
+    push @cmds, map { '$(NOECHO) Write MMECHOFILE '.$self->quote_literal($_, $ql_opts) }
+                split /\n/, $text;
+    push @cmds, '$(NOECHO) Close MMECHOFILE';
+    return @cmds;
+}
+
+
+=item quote_literal
+
+=cut
+
+sub quote_literal {
+    my($self, $text, $opts) = @_;
+    $opts->{allow_variables} = 1 unless defined $opts->{allow_variables};
+
+    # I believe this is all we should need.
+    $text =~ s{"}{""}g;
+
+    $text = $opts->{allow_variables}
+      ? $self->escape_dollarsigns($text) : $self->escape_all_dollarsigns($text);
+
+    return qq{"$text"};
+}
+
+=item escape_dollarsigns
+
+Quote, don't escape.
+
+=cut
+
+sub escape_dollarsigns {
+    my($self, $text) = @_;
+
+    # Quote dollar signs which are not starting a variable
+    $text =~ s{\$ (?!\() }{"\$"}gx;
+
+    return $text;
+}
+
+
+=item escape_all_dollarsigns
+
+Quote, don't escape.
+
+=cut
+
+sub escape_all_dollarsigns {
+    my($self, $text) = @_;
+
+    # Quote dollar signs
+    $text =~ s{\$}{"\$\"}gx;
+
+    return $text;
+}
+
+=item escape_newlines
+
+=cut
+
+sub escape_newlines {
+    my($self, $text) = @_;
+
+    $text =~ s{\n}{-\n}g;
+
+    return $text;
+}
+
+=item max_exec_len
+
+256 characters.
+
+=cut
+
+sub max_exec_len {
+    my $self = shift;
+
+    return $self->{_MAX_EXEC_LEN} ||= 256;
+}
+
+=item init_linker
+
+=cut
+
+sub init_linker {
+    my $self = shift;
+    $self->{EXPORT_LIST} ||= '$(BASEEXT).opt';
+
+    my $shr = $Config{dbgprefix} . 'PERLSHR';
+    if ($self->{PERL_SRC}) {
+        $self->{PERL_ARCHIVE} ||=
+          $self->catfile($self->{PERL_SRC}, "$shr.$Config{'dlext'}");
+    }
+    else {
+        $self->{PERL_ARCHIVE} ||=
+          $ENV{$shr} ? $ENV{$shr} : "Sys\$Share:$shr.$Config{'dlext'}";
+    }
+
+    $self->{PERL_ARCHIVEDEP} ||= '';
+    $self->{PERL_ARCHIVE_AFTER} ||= '';
+}
+
+
+=item catdir (override)
+
+=item catfile (override)
+
+Eliminate the macros in the output to the MMS/MMK file.
+
+(File::Spec::VMS used to do this for us, but it's being removed)
+
+=cut
+
+sub catdir {
+    my $self = shift;
+
+    # Process the macros on VMS MMS/MMK
+    my @args = map { m{\$\(} ? $self->eliminate_macros($_) : $_  } @_;
+
+    my $dir = $self->SUPER::catdir(@args);
+
+    # Fix up the directory and force it to VMS format.
+    $dir = $self->fixpath($dir, 1);
+
+    return $dir;
+}
+
+sub catfile {
+    my $self = shift;
+
+    # Process the macros on VMS MMS/MMK
+    my @args = map { m{\$\(} ? $self->eliminate_macros($_) : $_  } @_;
+
+    my $file = $self->SUPER::catfile(@args);
+
+    $file = vmsify($file);
+
+    return $file
+}
+
+
+=item eliminate_macros
+
+Expands MM[KS]/Make macros in a text string, using the contents of
+identically named elements of C<%$self>, and returns the result
+as a file specification in Unix syntax.
+
+NOTE:  This is the canonical version of the method.  The version in
+File::Spec::VMS is deprecated.
+
+=cut
+
+sub eliminate_macros {
+    my($self,$path) = @_;
+    return '' unless $path;
+    $self = {} unless ref $self;
+
+    my($npath) = unixify($path);
+    # sometimes unixify will return a string with an off-by-one trailing null
+    $npath =~ s{\0$}{};
+
+    my($complex) = 0;
+    my($head,$macro,$tail);
+
+    # perform m##g in scalar context so it acts as an iterator
+    while ($npath =~ m#(.*?)\$\((\S+?)\)(.*)#gs) {
+        if (defined $self->{$2}) {
+            ($head,$macro,$tail) = ($1,$2,$3);
+            if (ref $self->{$macro}) {
+                if (ref $self->{$macro} eq 'ARRAY') {
+                    $macro = join ' ', @{$self->{$macro}};
+                }
+                else {
+                    print "Note: can't expand macro \$($macro) containing ",ref($self->{$macro}),
+                          "\n\t(using MMK-specific deferred substitutuon; MMS will break)\n";
+                    $macro = "\cB$macro\cB";
+                    $complex = 1;
+                }
+            }
+            else { ($macro = unixify($self->{$macro})) =~ s#/\Z(?!\n)##; }
+            $npath = "$head$macro$tail";
+        }
+    }
+    if ($complex) { $npath =~ s#\cB(.*?)\cB#\${$1}#gs; }
+    $npath;
+}
+
+=item fixpath
+
+   my $path = $mm->fixpath($path);
+   my $path = $mm->fixpath($path, $is_dir);
+
+Catchall routine to clean up problem MM[SK]/Make macros.  Expands macros
+in any directory specification, in order to avoid juxtaposing two
+VMS-syntax directories when MM[SK] is run.  Also expands expressions which
+are all macro, so that we can tell how long the expansion is, and avoid
+overrunning DCL's command buffer when MM[KS] is running.
+
+fixpath() checks to see whether the result matches the name of a
+directory in the current default directory and returns a directory or
+file specification accordingly.  C<$is_dir> can be set to true to
+force fixpath() to consider the path to be a directory or false to force
+it to be a file.
+
+NOTE:  This is the canonical version of the method.  The version in
+File::Spec::VMS is deprecated.
+
+=cut
+
+sub fixpath {
+    my($self,$path,$force_path) = @_;
+    return '' unless $path;
+    $self = bless {}, $self unless ref $self;
+    my($fixedpath,$prefix,$name);
+
+    if ($path =~ m#^\$\([^\)]+\)\Z(?!\n)#s || $path =~ m#[/:>\]]#) {
+        if ($force_path or $path =~ /(?:DIR\)|\])\Z(?!\n)/) {
+            $fixedpath = vmspath($self->eliminate_macros($path));
+        }
+        else {
+            $fixedpath = vmsify($self->eliminate_macros($path));
+        }
+    }
+    elsif ((($prefix,$name) = ($path =~ m#^\$\(([^\)]+)\)(.+)#s)) && $self->{$prefix}) {
+        my($vmspre) = $self->eliminate_macros("\$($prefix)");
+        # is it a dir or just a name?
+        $vmspre = ($vmspre =~ m|/| or $prefix =~ /DIR\Z(?!\n)/) ? vmspath($vmspre) : '';
+        $fixedpath = ($vmspre ? $vmspre : $self->{$prefix}) . $name;
+        $fixedpath = vmspath($fixedpath) if $force_path;
+    }
+    else {
+        $fixedpath = $path;
+        $fixedpath = vmspath($fixedpath) if $force_path;
+    }
+    # No hints, so we try to guess
+    if (!defined($force_path) and $fixedpath !~ /[:>(.\]]/) {
+        $fixedpath = vmspath($fixedpath) if -d $fixedpath;
+    }
+
+    # Trim off root dirname if it's had other dirs inserted in front of it.
+    $fixedpath =~ s/\.000000([\]>])/$1/;
+    # Special case for VMS absolute directory specs: these will have had device
+    # prepended during trip through Unix syntax in eliminate_macros(), since
+    # Unix syntax has no way to express "absolute from the top of this device's
+    # directory tree".
+    if ($path =~ /^[\[>][^.\-]/) { $fixedpath =~ s/^[^\[<]+//; }
+
+    return $fixedpath;
+}
+
+
+=item os_flavor
+
+VMS is VMS.
+
+=cut
+
+sub os_flavor {
+    return('VMS');
+}
+
+
+=item is_make_type (override)
+
+None of the make types being checked for is viable on VMS,
+plus our $self->{MAKE} is an unexpanded (and unexpandable)
+macro whose value is known only to the make utility itself.
+
+=cut
+
+sub is_make_type {
+    my($self, $type) = @_;
+    return 0;
+}
+
+
+=back
+
+
+=head1 AUTHOR
+
+Original author Charles Bailey F<bailey@newman.upenn.edu>
+
+Maintained by Michael G Schwern F<schwern@pobox.com>
+
+See L<ExtUtils::MakeMaker> for patching and contact information.
+
+
+=cut
+
+1;
+
diff --git a/lib/5.24.1/ExtUtils/MM_VOS.pm b/lib/5.24.1/ExtUtils/MM_VOS.pm
new file mode 100644
index 00000000..07ad95f4
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/MM_VOS.pm
@@ -0,0 +1,50 @@
+package ExtUtils::MM_VOS;
+
+use strict;
+our $VERSION = '7.10_02';
+
+require ExtUtils::MM_Unix;
+our @ISA = qw(ExtUtils::MM_Unix);
+
+
+=head1 NAME
+
+ExtUtils::MM_VOS - VOS specific subclass of ExtUtils::MM_Unix
+
+=head1 SYNOPSIS
+
+  Don't use this module directly.
+  Use ExtUtils::MM and let it choose.
+
+=head1 DESCRIPTION
+
+This is a subclass of ExtUtils::MM_Unix which contains functionality for
+VOS.
+
+Unless otherwise stated it works just like ExtUtils::MM_Unix
+
+=head2 Overridden methods
+
+=head3 extra_clean_files
+
+Cleanup VOS core files
+
+=cut
+
+sub extra_clean_files {
+    return qw(*.kp);
+}
+
+
+=head1 AUTHOR
+
+Michael G Schwern <schwern@pobox.com> with code from ExtUtils::MM_Unix
+
+=head1 SEE ALSO
+
+L<ExtUtils::MakeMaker>
+
+=cut
+
+
+1;
diff --git a/lib/5.24.1/ExtUtils/MM_Win32.pm b/lib/5.24.1/ExtUtils/MM_Win32.pm
new file mode 100644
index 00000000..0a2fb606
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/MM_Win32.pm
@@ -0,0 +1,664 @@
+package ExtUtils::MM_Win32;
+
+use strict;
+
+
+=head1 NAME
+
+ExtUtils::MM_Win32 - methods to override UN*X behaviour in ExtUtils::MakeMaker
+
+=head1 SYNOPSIS
+
+ use ExtUtils::MM_Win32; # Done internally by ExtUtils::MakeMaker if needed
+
+=head1 DESCRIPTION
+
+See ExtUtils::MM_Unix for a documentation of the methods provided
+there. This package overrides the implementation of these methods, not
+the semantics.
+
+=cut
+
+use ExtUtils::MakeMaker::Config;
+use File::Basename;
+use File::Spec;
+use ExtUtils::MakeMaker qw( neatvalue );
+
+require ExtUtils::MM_Any;
+require ExtUtils::MM_Unix;
+our @ISA = qw( ExtUtils::MM_Any ExtUtils::MM_Unix );
+our $VERSION = '7.10_02';
+
+$ENV{EMXSHELL} = 'sh'; # to run `commands`
+
+my ( $BORLAND, $GCC, $DLLTOOL ) = _identify_compiler_environment( \%Config );
+
+sub _identify_compiler_environment {
+	my ( $config ) = @_;
+
+	my $BORLAND = $config->{cc} =~ /^bcc/i ? 1 : 0;
+	my $GCC     = $config->{cc} =~ /\bgcc\b/i ? 1 : 0;
+	my $DLLTOOL = $config->{dlltool} || 'dlltool';
+
+	return ( $BORLAND, $GCC, $DLLTOOL );
+}
+
+
+=head2 Overridden methods
+
+=over 4
+
+=item B<dlsyms>
+
+=cut
+
+sub dlsyms {
+    my($self,%attribs) = @_;
+
+    my($funcs) = $attribs{DL_FUNCS} || $self->{DL_FUNCS} || {};
+    my($vars)  = $attribs{DL_VARS} || $self->{DL_VARS} || [];
+    my($funclist) = $attribs{FUNCLIST} || $self->{FUNCLIST} || [];
+    my($imports)  = $attribs{IMPORTS} || $self->{IMPORTS} || {};
+    my(@m);
+
+    if (not $self->{SKIPHASH}{'dynamic'}) {
+	push(@m,"
+$self->{BASEEXT}.def: Makefile.PL
+",
+     q!	$(PERLRUN) -MExtUtils::Mksymlists \\
+     -e "Mksymlists('NAME'=>\"!, $self->{NAME},
+     q!\", 'DLBASE' => '!,$self->{DLBASE},
+     # The above two lines quoted differently to work around
+     # a bug in the 4DOS/4NT command line interpreter.  The visible
+     # result of the bug was files named q('extension_name',) *with the
+     # single quotes and the comma* in the extension build directories.
+     q!', 'DL_FUNCS' => !,neatvalue($funcs),
+     q!, 'FUNCLIST' => !,neatvalue($funclist),
+     q!, 'IMPORTS' => !,neatvalue($imports),
+     q!, 'DL_VARS' => !, neatvalue($vars), q!);"
+!);
+    }
+    join('',@m);
+}
+
+=item replace_manpage_separator
+
+Changes the path separator with .
+
+=cut
+
+sub replace_manpage_separator {
+    my($self,$man) = @_;
+    $man =~ s,/+,.,g;
+    $man;
+}
+
+
+=item B<maybe_command>
+
+Since Windows has nothing as simple as an executable bit, we check the
+file extension.
+
+The PATHEXT env variable will be used to get a list of extensions that
+might indicate a command, otherwise .com, .exe, .bat and .cmd will be
+used by default.
+
+=cut
+
+sub maybe_command {
+    my($self,$file) = @_;
+    my @e = exists($ENV{'PATHEXT'})
+          ? split(/;/, $ENV{PATHEXT})
+	  : qw(.com .exe .bat .cmd);
+    my $e = '';
+    for (@e) { $e .= "\Q$_\E|" }
+    chop $e;
+    # see if file ends in one of the known extensions
+    if ($file =~ /($e)$/i) {
+	return $file if -e $file;
+    }
+    else {
+	for (@e) {
+	    return "$file$_" if -e "$file$_";
+	}
+    }
+    return;
+}
+
+
+=item B<init_DIRFILESEP>
+
+Using \ for Windows, except for "gmake" where it is /.
+
+=cut
+
+sub init_DIRFILESEP {
+    my($self) = shift;
+
+    # The ^ makes sure its not interpreted as an escape in nmake
+    $self->{DIRFILESEP} = $self->is_make_type('nmake') ? '^\\' :
+                          $self->is_make_type('dmake') ? '\\\\' :
+                          $self->is_make_type('gmake') ? '/'
+                                                       : '\\';
+}
+
+=item init_tools
+
+Override some of the slower, portable commands with Windows specific ones.
+
+=cut
+
+sub init_tools {
+    my ($self) = @_;
+
+    $self->{NOOP}     ||= 'rem';
+    $self->{DEV_NULL} ||= '> NUL';
+
+    $self->{FIXIN}    ||= $self->{PERL_CORE} ?
+      "\$(PERLRUN) $self->{PERL_SRC}\\win32\\bin\\pl2bat.pl" :
+      'pl2bat.bat';
+
+    $self->SUPER::init_tools;
+
+    # Setting SHELL from $Config{sh} can break dmake.  Its ok without it.
+    delete $self->{SHELL};
+
+    return;
+}
+
+
+=item init_others
+
+Override the default link and compile tools.
+
+LDLOADLIBS's default is changed to $Config{libs}.
+
+Adjustments are made for Borland's quirks needing -L to come first.
+
+=cut
+
+sub init_others {
+    my $self = shift;
+
+    $self->{LD}     ||= 'link';
+    $self->{AR}     ||= 'lib';
+
+    $self->SUPER::init_others;
+
+    $self->{LDLOADLIBS} ||= $Config{libs};
+    # -Lfoo must come first for Borland, so we put it in LDDLFLAGS
+    if ($BORLAND) {
+        my $libs = $self->{LDLOADLIBS};
+        my $libpath = '';
+        while ($libs =~ s/(?:^|\s)(("?)-L.+?\2)(?:\s|$)/ /) {
+            $libpath .= ' ' if length $libpath;
+            $libpath .= $1;
+        }
+        $self->{LDLOADLIBS} = $libs;
+        $self->{LDDLFLAGS} ||= $Config{lddlflags};
+        $self->{LDDLFLAGS} .= " $libpath";
+    }
+
+    return;
+}
+
+
+=item init_platform
+
+Add MM_Win32_VERSION.
+
+=item platform_constants
+
+=cut
+
+sub init_platform {
+    my($self) = shift;
+
+    $self->{MM_Win32_VERSION} = $VERSION;
+
+    return;
+}
+
+sub platform_constants {
+    my($self) = shift;
+    my $make_frag = '';
+
+    foreach my $macro (qw(MM_Win32_VERSION))
+    {
+        next unless defined $self->{$macro};
+        $make_frag .= "$macro = $self->{$macro}\n";
+    }
+
+    return $make_frag;
+}
+
+=item specify_shell
+
+Set SHELL to $ENV{COMSPEC} only if make is type 'gmake'.
+
+=cut
+
+sub specify_shell {
+    my $self = shift;
+    return '' unless $self->is_make_type('gmake');
+    "\nSHELL = $ENV{COMSPEC}\n";
+}
+
+=item constants
+
+Add MAXLINELENGTH for dmake before all the constants are output.
+
+=cut
+
+sub constants {
+    my $self = shift;
+
+    my $make_text = $self->SUPER::constants;
+    return $make_text unless $self->is_make_type('dmake');
+
+    # dmake won't read any single "line" (even those with escaped newlines)
+    # larger than a certain size which can be as small as 8k.  PM_TO_BLIB
+    # on large modules like DateTime::TimeZone can create lines over 32k.
+    # So we'll crank it up to a <ironic>WHOPPING</ironic> 64k.
+    #
+    # This has to come here before all the constants and not in
+    # platform_constants which is after constants.
+    my $size = $self->{MAXLINELENGTH} || 800000;
+    my $prefix = qq{
+# Get dmake to read long commands like PM_TO_BLIB
+MAXLINELENGTH = $size
+
+};
+
+    return $prefix . $make_text;
+}
+
+
+=item special_targets
+
+Add .USESHELL target for dmake.
+
+=cut
+
+sub special_targets {
+    my($self) = @_;
+
+    my $make_frag = $self->SUPER::special_targets;
+
+    $make_frag .= <<'MAKE_FRAG' if $self->is_make_type('dmake');
+.USESHELL :
+MAKE_FRAG
+
+    return $make_frag;
+}
+
+
+=item static_lib
+
+Changes how to run the linker.
+
+The rest is duplicate code from MM_Unix.  Should move the linker code
+to its own method.
+
+=cut
+
+sub static_lib {
+    my($self) = @_;
+    return '' unless $self->has_link_code;
+
+    my(@m);
+    push(@m, <<'END');
+$(INST_STATIC): $(OBJECT) $(MYEXTLIB) $(INST_ARCHAUTODIR)$(DFSEP).exists
+	$(RM_RF) $@
+END
+
+    # If this extension has its own library (eg SDBM_File)
+    # then copy that to $(INST_STATIC) and add $(OBJECT) into it.
+    push @m, <<'MAKE_FRAG' if $self->{MYEXTLIB};
+	$(CP) $(MYEXTLIB) $@
+MAKE_FRAG
+
+    push @m,
+q{	$(AR) }.($BORLAND ? '$@ $(OBJECT:^"+")'
+			  : ($GCC ? '-ru $@ $(OBJECT)'
+			          : '-out:$@ $(OBJECT)')).q{
+	$(CHMOD) $(PERM_RWX) $@
+	$(NOECHO) $(ECHO) "$(EXTRALIBS)" > $(INST_ARCHAUTODIR)\extralibs.ld
+};
+
+    # Old mechanism - still available:
+    push @m, <<'MAKE_FRAG' if $self->{PERL_SRC} && $self->{EXTRALIBS};
+	$(NOECHO) $(ECHO) "$(EXTRALIBS)" >> $(PERL_SRC)\ext.libs
+MAKE_FRAG
+
+    join('', @m);
+}
+
+
+=item dynamic_lib
+
+Complicated stuff for Win32 that I don't understand. :(
+
+=cut
+
+sub dynamic_lib {
+    my($self, %attribs) = @_;
+    return '' unless $self->needs_linking(); #might be because of a subdir
+
+    return '' unless $self->has_link_code;
+
+    my($otherldflags) = $attribs{OTHERLDFLAGS} || ($BORLAND ? 'c0d32.obj': '');
+    my($inst_dynamic_dep) = $attribs{INST_DYNAMIC_DEP} || "";
+    my($ldfrom) = '$(LDFROM)';
+    my(@m);
+
+    push(@m,'
+# This section creates the dynamically loadable $(INST_DYNAMIC)
+# from $(OBJECT) and possibly $(MYEXTLIB).
+OTHERLDFLAGS = '.$otherldflags.'
+INST_DYNAMIC_DEP = '.$inst_dynamic_dep.'
+
+$(INST_DYNAMIC): $(OBJECT) $(MYEXTLIB) $(BOOTSTRAP) $(INST_ARCHAUTODIR)$(DFSEP).exists $(EXPORT_LIST) $(PERL_ARCHIVEDEP) $(INST_DYNAMIC_DEP)
+');
+    if ($GCC) {
+      push(@m,
+       q{	}.$DLLTOOL.q{ --def $(EXPORT_LIST) --output-exp dll.exp
+	$(LD) -o $@ -Wl,--base-file -Wl,dll.base $(LDDLFLAGS) }.$ldfrom.q{ $(OTHERLDFLAGS) $(MYEXTLIB) "$(PERL_ARCHIVE)" $(LDLOADLIBS) dll.exp
+	}.$DLLTOOL.q{ --def $(EXPORT_LIST) --base-file dll.base --output-exp dll.exp
+	$(LD) -o $@ $(LDDLFLAGS) }.$ldfrom.q{ $(OTHERLDFLAGS) $(MYEXTLIB) "$(PERL_ARCHIVE)" $(LDLOADLIBS) dll.exp });
+    } elsif ($BORLAND) {
+      push(@m,
+       q{	$(LD) $(LDDLFLAGS) $(OTHERLDFLAGS) }.$ldfrom.q{,$@,,}
+       .($self->is_make_type('dmake')
+                ? q{"$(PERL_ARCHIVE:s,/,\,)" $(LDLOADLIBS:s,/,\,) }
+		 .q{$(MYEXTLIB:s,/,\,),$(EXPORT_LIST:s,/,\,)}
+		: q{"$(subst /,\,$(PERL_ARCHIVE))" $(subst /,\,$(LDLOADLIBS)) }
+		 .q{$(subst /,\,$(MYEXTLIB)),$(subst /,\,$(EXPORT_LIST))})
+       .q{,$(RESFILES)});
+    } else {	# VC
+      push(@m,
+       q{	$(LD) -out:$@ $(LDDLFLAGS) }.$ldfrom.q{ $(OTHERLDFLAGS) }
+      .q{$(MYEXTLIB) "$(PERL_ARCHIVE)" $(LDLOADLIBS) -def:$(EXPORT_LIST)});
+
+      # Embed the manifest file if it exists
+      push(@m, q{
+	if exist $@.manifest mt -nologo -manifest $@.manifest -outputresource:$@;2
+	if exist $@.manifest del $@.manifest});
+    }
+    push @m, '
+	$(CHMOD) $(PERM_RWX) $@
+';
+
+    join('',@m);
+}
+
+=item extra_clean_files
+
+Clean out some extra dll.{base,exp} files which might be generated by
+gcc.  Otherwise, take out all *.pdb files.
+
+=cut
+
+sub extra_clean_files {
+    my $self = shift;
+
+    return $GCC ? (qw(dll.base dll.exp)) : ('*.pdb');
+}
+
+=item init_linker
+
+=cut
+
+sub init_linker {
+    my $self = shift;
+
+    $self->{PERL_ARCHIVE}       = "\$(PERL_INC)\\$Config{libperl}";
+    $self->{PERL_ARCHIVEDEP}    = "\$(PERL_INCDEP)\\$Config{libperl}";
+    $self->{PERL_ARCHIVE_AFTER} = '';
+    $self->{EXPORT_LIST}        = '$(BASEEXT).def';
+}
+
+
+=item perl_script
+
+Checks for the perl program under several common perl extensions.
+
+=cut
+
+sub perl_script {
+    my($self,$file) = @_;
+    return $file if -r $file && -f _;
+    return "$file.pl"  if -r "$file.pl" && -f _;
+    return "$file.plx" if -r "$file.plx" && -f _;
+    return "$file.bat" if -r "$file.bat" && -f _;
+    return;
+}
+
+sub can_dep_space {
+    my $self = shift;
+    1; # with Win32::GetShortPathName
+}
+
+=item quote_dep
+
+=cut
+
+sub quote_dep {
+    my ($self, $arg) = @_;
+    if ($arg =~ / / and not $self->is_make_type('gmake')) {
+        require Win32;
+        $arg = Win32::GetShortPathName($arg);
+        die <<EOF if not defined $arg or $arg =~ / /;
+Tried to use make dependency with space for non-GNU make:
+  '$arg'
+Fallback to short pathname failed.
+EOF
+        return $arg;
+    }
+    return $self->SUPER::quote_dep($arg);
+}
+
+=item xs_o
+
+This target is stubbed out.  Not sure why.
+
+=cut
+
+sub xs_o {
+    return ''
+}
+
+
+=item pasthru
+
+All we send is -nologo to nmake to prevent it from printing its damned
+banner.
+
+=cut
+
+sub pasthru {
+    my($self) = shift;
+    return "PASTHRU = " . ($self->is_make_type('nmake') ? "-nologo" : "");
+}
+
+
+=item arch_check (override)
+
+Normalize all arguments for consistency of comparison.
+
+=cut
+
+sub arch_check {
+    my $self = shift;
+
+    # Win32 is an XS module, minperl won't have it.
+    # arch_check() is not critical, so just fake it.
+    return 1 unless $self->can_load_xs;
+    return $self->SUPER::arch_check( map { $self->_normalize_path_name($_) } @_);
+}
+
+sub _normalize_path_name {
+    my $self = shift;
+    my $file = shift;
+
+    require Win32;
+    my $short = Win32::GetShortPathName($file);
+    return defined $short ? lc $short : lc $file;
+}
+
+
+=item oneliner
+
+These are based on what command.com does on Win98.  They may be wrong
+for other Windows shells, I don't know.
+
+=cut
+
+sub oneliner {
+    my($self, $cmd, $switches) = @_;
+    $switches = [] unless defined $switches;
+
+    # Strip leading and trailing newlines
+    $cmd =~ s{^\n+}{};
+    $cmd =~ s{\n+$}{};
+
+    $cmd = $self->quote_literal($cmd);
+    $cmd = $self->escape_newlines($cmd);
+
+    $switches = join ' ', @$switches;
+
+    return qq{\$(ABSPERLRUN) $switches -e $cmd --};
+}
+
+
+sub quote_literal {
+    my($self, $text, $opts) = @_;
+    $opts->{allow_variables} = 1 unless defined $opts->{allow_variables};
+
+    # See: http://www.autohotkey.net/~deleyd/parameters/parameters.htm#CPP
+
+    # Apply the Microsoft C/C++ parsing rules
+    $text =~ s{\\\\"}{\\\\\\\\\\"}g;  # \\" -> \\\\\"
+    $text =~ s{(?<!\\)\\"}{\\\\\\"}g; # \"  -> \\\"
+    $text =~ s{(?<!\\)"}{\\"}g;       # "   -> \"
+    $text = qq{"$text"} if $text =~ /[ \t]/;
+
+    # Apply the Command Prompt parsing rules (cmd.exe)
+    my @text = split /("[^"]*")/, $text;
+    # We should also escape parentheses, but it breaks one-liners containing
+    # $(MACRO)s in makefiles.
+    s{([<>|&^@!])}{^$1}g foreach grep { !/^"[^"]*"$/ } @text;
+    $text = join('', @text);
+
+    # dmake expands {{ to { and }} to }.
+    if( $self->is_make_type('dmake') ) {
+        $text =~ s/{/{{/g;
+        $text =~ s/}/}}/g;
+    }
+
+    $text = $opts->{allow_variables}
+      ? $self->escape_dollarsigns($text) : $self->escape_all_dollarsigns($text);
+
+    return $text;
+}
+
+
+sub escape_newlines {
+    my($self, $text) = @_;
+
+    # Escape newlines
+    $text =~ s{\n}{\\\n}g;
+
+    return $text;
+}
+
+
+=item cd
+
+dmake can handle Unix style cd'ing but nmake (at least 1.5) cannot.  It
+wants:
+
+    cd dir1\dir2
+    command
+    another_command
+    cd ..\..
+
+=cut
+
+sub cd {
+    my($self, $dir, @cmds) = @_;
+
+    return $self->SUPER::cd($dir, @cmds) unless $self->is_make_type('nmake');
+
+    my $cmd = join "\n\t", map "$_", @cmds;
+
+    my $updirs = $self->catdir(map { $self->updir } $self->splitdir($dir));
+
+    # No leading tab and no trailing newline makes for easier embedding.
+    my $make_frag = sprintf <<'MAKE_FRAG', $dir, $cmd, $updirs;
+cd %s
+	%s
+	cd %s
+MAKE_FRAG
+
+    chomp $make_frag;
+
+    return $make_frag;
+}
+
+
+=item max_exec_len
+
+nmake 1.50 limits command length to 2048 characters.
+
+=cut
+
+sub max_exec_len {
+    my $self = shift;
+
+    return $self->{_MAX_EXEC_LEN} ||= 2 * 1024;
+}
+
+
+=item os_flavor
+
+Windows is Win32.
+
+=cut
+
+sub os_flavor {
+    return('Win32');
+}
+
+
+=item cflags
+
+Defines the PERLDLL symbol if we are configured for static building since all
+code destined for the perl5xx.dll must be compiled with the PERLDLL symbol
+defined.
+
+=cut
+
+sub cflags {
+    my($self,$libperl)=@_;
+    return $self->{CFLAGS} if $self->{CFLAGS};
+    return '' unless $self->needs_linking();
+
+    my $base = $self->SUPER::cflags($libperl);
+    foreach (split /\n/, $base) {
+        /^(\S*)\s*=\s*(\S*)$/ and $self->{$1} = $2;
+    };
+    $self->{CCFLAGS} .= " -DPERLDLL" if ($self->{LINKTYPE} eq 'static');
+
+    return $self->{CFLAGS} = qq{
+CCFLAGS = $self->{CCFLAGS}
+OPTIMIZE = $self->{OPTIMIZE}
+PERLTYPE = $self->{PERLTYPE}
+};
+
+}
+
+1;
+__END__
+
+=back
diff --git a/lib/5.24.1/ExtUtils/MM_Win95.pm b/lib/5.24.1/ExtUtils/MM_Win95.pm
new file mode 100644
index 00000000..096f28d7
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/MM_Win95.pm
@@ -0,0 +1,124 @@
+package ExtUtils::MM_Win95;
+
+use strict;
+
+our $VERSION = '7.10_02';
+
+require ExtUtils::MM_Win32;
+our @ISA = qw(ExtUtils::MM_Win32);
+
+use ExtUtils::MakeMaker::Config;
+
+
+=head1 NAME
+
+ExtUtils::MM_Win95 - method to customize MakeMaker for Win9X
+
+=head1 SYNOPSIS
+
+  You should not be using this module directly.
+
+=head1 DESCRIPTION
+
+This is a subclass of ExtUtils::MM_Win32 containing changes necessary
+to get MakeMaker playing nice with command.com and other Win9Xisms.
+
+=head2 Overridden methods
+
+Most of these make up for limitations in the Win9x/nmake command shell.
+Mostly its lack of &&.
+
+=over 4
+
+
+=item xs_c
+
+The && problem.
+
+=cut
+
+sub xs_c {
+    my($self) = shift;
+    return '' unless $self->needs_linking();
+    '
+.xs.c:
+	$(XSUBPPRUN) $(XSPROTOARG) $(XSUBPPARGS) $*.xs > $*.c
+	'
+}
+
+
+=item xs_cpp
+
+The && problem
+
+=cut
+
+sub xs_cpp {
+    my($self) = shift;
+    return '' unless $self->needs_linking();
+    '
+.xs.cpp:
+	$(XSUBPPRUN) $(XSPROTOARG) $(XSUBPPARGS) $*.xs > $*.cpp
+	';
+}
+
+=item xs_o
+
+The && problem.
+
+=cut
+
+sub xs_o {
+    my($self) = shift;
+    return '' unless $self->needs_linking();
+    '
+.xs$(OBJ_EXT):
+	$(XSUBPPRUN) $(XSPROTOARG) $(XSUBPPARGS) $*.xs > $*.c
+	$(CCCMD) $(CCCDLFLAGS) -I$(PERL_INC) $(DEFINE) $*.c
+	';
+}
+
+
+=item max_exec_len
+
+Win98 chokes on things like Encode if we set the max length to nmake's max
+of 2K.  So we go for a more conservative value of 1K.
+
+=cut
+
+sub max_exec_len {
+    my $self = shift;
+
+    return $self->{_MAX_EXEC_LEN} ||= 1024;
+}
+
+
+=item os_flavor
+
+Win95 and Win98 and WinME are collectively Win9x and Win32
+
+=cut
+
+sub os_flavor {
+    my $self = shift;
+    return ($self->SUPER::os_flavor, 'Win9x');
+}
+
+
+=back
+
+
+=head1 AUTHOR
+
+Code originally inside MM_Win32.  Original author unknown.
+
+Currently maintained by Michael G Schwern C<schwern@pobox.com>.
+
+Send patches and ideas to C<makemaker@perl.org>.
+
+See https://metacpan.org/release/ExtUtils-MakeMaker.
+
+=cut
+
+
+1;
diff --git a/lib/5.24.1/ExtUtils/MY.pm b/lib/5.24.1/ExtUtils/MY.pm
new file mode 100644
index 00000000..5a080ea8
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/MY.pm
@@ -0,0 +1,40 @@
+package ExtUtils::MY;
+
+use strict;
+require ExtUtils::MM;
+
+our $VERSION = '7.10_02';
+our @ISA = qw(ExtUtils::MM);
+
+{
+    package MY;
+    our @ISA = qw(ExtUtils::MY);
+}
+
+sub DESTROY {}
+
+
+=head1 NAME
+
+ExtUtils::MY - ExtUtils::MakeMaker subclass for customization
+
+=head1 SYNOPSIS
+
+  # in your Makefile.PL
+  sub MY::whatever {
+      ...
+  }
+
+=head1 DESCRIPTION
+
+B<FOR INTERNAL USE ONLY>
+
+ExtUtils::MY is a subclass of ExtUtils::MM.  Its provided in your
+Makefile.PL for you to add and override MakeMaker functionality.
+
+It also provides a convenient alias via the MY class.
+
+ExtUtils::MY might turn out to be a temporary solution, but MY won't
+go away.
+
+=cut
diff --git a/lib/5.24.1/ExtUtils/MakeMaker.pm b/lib/5.24.1/ExtUtils/MakeMaker.pm
new file mode 100644
index 00000000..42b174fe
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/MakeMaker.pm
@@ -0,0 +1,3242 @@
+# $Id$
+package ExtUtils::MakeMaker;
+
+use strict;
+
+BEGIN {require 5.006;}
+
+require Exporter;
+use ExtUtils::MakeMaker::Config;
+use ExtUtils::MakeMaker::version; # ensure we always have our fake version.pm
+use Carp;
+use File::Path;
+my $CAN_DECODE = eval { require ExtUtils::MakeMaker::Locale; }; # 2 birds, 1 stone
+eval { ExtUtils::MakeMaker::Locale::reinit('UTF-8') }
+  if $CAN_DECODE and $ExtUtils::MakeMaker::Locale::ENCODING_LOCALE eq 'US-ASCII';
+
+our $Verbose = 0;       # exported
+our @Parent;            # needs to be localized
+our @Get_from_Config;   # referenced by MM_Unix
+our @MM_Sections;
+our @Overridable;
+my @Prepend_parent;
+my %Recognized_Att_Keys;
+our %macro_fsentity; # whether a macro is a filesystem name
+our %macro_dep; # whether a macro is a dependency
+
+our $VERSION = '7.10_02';
+$VERSION = eval $VERSION;  ## no critic [BuiltinFunctions::ProhibitStringyEval]
+
+# Emulate something resembling CVS $Revision$
+(our $Revision = $VERSION) =~ s{_}{};
+$Revision = int $Revision * 10000;
+
+our $Filename = __FILE__;   # referenced outside MakeMaker
+
+our @ISA = qw(Exporter);
+our @EXPORT    = qw(&WriteMakefile $Verbose &prompt);
+our @EXPORT_OK = qw($VERSION &neatvalue &mkbootstrap &mksymlists
+                    &WriteEmptyMakefile);
+
+# These will go away once the last of the Win32 & VMS specific code is
+# purged.
+my $Is_VMS     = $^O eq 'VMS';
+my $Is_Win32   = $^O eq 'MSWin32';
+our $UNDER_CORE = $ENV{PERL_CORE}; # needs to be our
+
+full_setup();
+
+require ExtUtils::MM;  # Things like CPAN assume loading ExtUtils::MakeMaker
+                       # will give them MM.
+
+require ExtUtils::MY;  # XXX pre-5.8 versions of ExtUtils::Embed expect
+                       # loading ExtUtils::MakeMaker will give them MY.
+                       # This will go when Embed is its own CPAN module.
+
+
+sub WriteMakefile {
+    croak "WriteMakefile: Need even number of args" if @_ % 2;
+
+    require ExtUtils::MY;
+    my %att = @_;
+
+    _convert_compat_attrs(\%att);
+
+    _verify_att(\%att);
+
+    my $mm = MM->new(\%att);
+    $mm->flush;
+
+    return $mm;
+}
+
+
+# Basic signatures of the attributes WriteMakefile takes.  Each is the
+# reference type.  Empty value indicate it takes a non-reference
+# scalar.
+my %Att_Sigs;
+my %Special_Sigs = (
+ AUTHOR             => 'ARRAY',
+ C                  => 'ARRAY',
+ CONFIG             => 'ARRAY',
+ CONFIGURE          => 'CODE',
+ 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',''],
+ MAN1PODS           => 'HASH',
+ MAN3PODS           => 'HASH',
+ META_ADD           => 'HASH',
+ META_MERGE         => 'HASH',
+ OBJECT             => ['ARRAY', ''],
+ PL_FILES           => 'HASH',
+ PM                 => 'HASH',
+ PMLIBDIRS          => 'ARRAY',
+ PMLIBPARENTDIRS    => 'ARRAY',
+ PREREQ_PM          => 'HASH',
+ BUILD_REQUIRES     => 'HASH',
+ CONFIGURE_REQUIRES => 'HASH',
+ TEST_REQUIRES      => 'HASH',
+ SKIP               => 'ARRAY',
+ TYPEMAPS           => 'ARRAY',
+ XS                 => 'HASH',
+ VERSION            => ['version',''],
+ _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',
+);
+
+@Att_Sigs{keys %Recognized_Att_Keys} = ('') x keys %Recognized_Att_Keys;
+@Att_Sigs{keys %Special_Sigs} = values %Special_Sigs;
+
+sub _convert_compat_attrs { #result of running several times should be same
+    my($att) = @_;
+    if (exists $att->{AUTHOR}) {
+        if ($att->{AUTHOR}) {
+            if (!ref($att->{AUTHOR})) {
+                my $t = $att->{AUTHOR};
+                $att->{AUTHOR} = [$t];
+            }
+        } else {
+                $att->{AUTHOR} = [];
+        }
+    }
+}
+
+sub _verify_att {
+    my($att) = @_;
+
+    while( my($key, $val) = each %$att ) {
+        my $sig = $Att_Sigs{$key};
+        unless( defined $sig ) {
+            warn "WARNING: $key is not a known parameter.\n";
+            next;
+        }
+
+        my @sigs   = ref $sig ? @$sig : $sig;
+        my $given  = ref $val;
+        unless( grep { _is_of_type($val, $_) } @sigs ) {
+            my $takes = join " or ", map { _format_att($_) } @sigs;
+
+            my $has = _format_att($given);
+            warn "WARNING: $key takes a $takes not a $has.\n".
+                 "         Please inform the author.\n";
+        }
+    }
+}
+
+
+# Check if a given thing is a reference or instance of $type
+sub _is_of_type {
+    my($thing, $type) = @_;
+
+    return 1 if ref $thing eq $type;
+
+    local $SIG{__DIE__};
+    return 1 if eval{ $thing->isa($type) };
+
+    return 0;
+}
+
+
+sub _format_att {
+    my $given = shift;
+
+    return $given eq ''        ? "string/number"
+         : uc $given eq $given ? "$given reference"
+         :                       "$given object"
+         ;
+}
+
+
+sub prompt ($;$) {  ## no critic
+    my($mess, $def) = @_;
+    confess("prompt function called without an argument")
+        unless defined $mess;
+
+    my $isa_tty = -t STDIN && (-t STDOUT || !(-f STDOUT || -c STDOUT)) ;
+
+    my $dispdef = defined $def ? "[$def] " : " ";
+    $def = defined $def ? $def : "";
+
+    local $|=1;
+    local $\;
+    print "$mess $dispdef";
+
+    my $ans;
+    if ($ENV{PERL_MM_USE_DEFAULT} || (!$isa_tty && eof STDIN)) {
+        print "$def\n";
+    }
+    else {
+        $ans = <STDIN>;
+        if( defined $ans ) {
+            $ans =~ s{\015?\012$}{};
+        }
+        else { # user hit ctrl-D
+            print "\n";
+        }
+    }
+
+    return (!defined $ans || $ans eq '') ? $def : $ans;
+}
+
+sub eval_in_subdirs {
+    my($self) = @_;
+    use Cwd qw(cwd abs_path);
+    my $pwd = cwd() || die "Can't figure out your cwd!";
+
+    local @INC = map eval {abs_path($_) if -e} || $_, @INC;
+    push @INC, '.';     # '.' has to always be at the end of @INC
+
+    foreach my $dir (@{$self->{DIR}}){
+        my($abs) = $self->catdir($pwd,$dir);
+        eval { $self->eval_in_x($abs); };
+        last if $@;
+    }
+    chdir $pwd;
+    die $@ if $@;
+}
+
+sub eval_in_x {
+    my($self,$dir) = @_;
+    chdir $dir or carp("Couldn't change to directory $dir: $!");
+
+    {
+        package main;
+        do './Makefile.PL';
+    };
+    if ($@) {
+#         if ($@ =~ /prerequisites/) {
+#             die "MakeMaker WARNING: $@";
+#         } else {
+#             warn "WARNING from evaluation of $dir/Makefile.PL: $@";
+#         }
+        die "ERROR from evaluation of $dir/Makefile.PL: $@";
+    }
+}
+
+
+# package name for the classes into which the first object will be blessed
+my $PACKNAME = 'PACK000';
+
+sub full_setup {
+    $Verbose ||= 0;
+
+    my @dep_macros = qw/
+    PERL_INCDEP        PERL_ARCHLIBDEP     PERL_ARCHIVEDEP
+    /;
+
+    my @fs_macros = qw/
+    FULLPERL XSUBPPDIR
+
+    INST_ARCHLIB INST_SCRIPT INST_BIN INST_LIB INST_MAN1DIR INST_MAN3DIR
+    INSTALLDIRS
+    DESTDIR PREFIX INSTALL_BASE
+    PERLPREFIX      SITEPREFIX      VENDORPREFIX
+    INSTALLPRIVLIB  INSTALLSITELIB  INSTALLVENDORLIB
+    INSTALLARCHLIB  INSTALLSITEARCH INSTALLVENDORARCH
+    INSTALLBIN      INSTALLSITEBIN  INSTALLVENDORBIN
+    INSTALLMAN1DIR          INSTALLMAN3DIR
+    INSTALLSITEMAN1DIR      INSTALLSITEMAN3DIR
+    INSTALLVENDORMAN1DIR    INSTALLVENDORMAN3DIR
+    INSTALLSCRIPT   INSTALLSITESCRIPT  INSTALLVENDORSCRIPT
+    PERL_LIB        PERL_ARCHLIB
+    SITELIBEXP      SITEARCHEXP
+
+    MAKE LIBPERL_A LIB PERL_SRC PERL_INC
+    PPM_INSTALL_EXEC PPM_UNINSTALL_EXEC
+    PPM_INSTALL_SCRIPT PPM_UNINSTALL_SCRIPT
+    /;
+
+    my @attrib_help = qw/
+
+    AUTHOR ABSTRACT ABSTRACT_FROM BINARY_LOCATION
+    C CAPI CCFLAGS CONFIG CONFIGURE DEFINE DIR DISTNAME DISTVNAME
+    DL_FUNCS DL_VARS
+    EXCLUDE_EXT EXE_FILES FIRST_MAKEFILE
+    FULLPERLRUN FULLPERLRUNINST
+    FUNCLIST H IMPORTS
+
+    INC INCLUDE_EXT LDFROM LIBS LICENSE
+    LINKTYPE MAKEAPERL MAKEFILE MAKEFILE_OLD MAN1PODS MAN3PODS MAP_TARGET
+    META_ADD META_MERGE MIN_PERL_VERSION BUILD_REQUIRES CONFIGURE_REQUIRES
+    MYEXTLIB NAME NEEDS_LINKING NOECHO NO_META NO_MYMETA NO_PACKLIST NO_PERLLOCAL
+    NORECURS NO_VC OBJECT OPTIMIZE PERL_MALLOC_OK PERL PERLMAINCC PERLRUN
+    PERLRUNINST PERL_CORE
+    PERM_DIR PERM_RW PERM_RWX MAGICXS
+    PL_FILES PM PM_FILTER PMLIBDIRS PMLIBPARENTDIRS POLLUTE
+    PREREQ_FATAL PREREQ_PM PREREQ_PRINT PRINT_PREREQ
+    SIGN SKIP TEST_REQUIRES TYPEMAPS UNINST VERSION VERSION_FROM XS XSOPT XSPROTOARG
+    XS_VERSION clean depend dist dynamic_lib linkext macro realclean
+    tool_autosplit
+
+    MAN1EXT MAN3EXT
+
+    MACPERL_SRC MACPERL_LIB MACLIBS_68K MACLIBS_PPC MACLIBS_SC MACLIBS_MRC
+    MACLIBS_ALL_68K MACLIBS_ALL_PPC MACLIBS_SHARED
+        /;
+    push @attrib_help, @fs_macros;
+    @macro_fsentity{@fs_macros, @dep_macros} = (1) x (@fs_macros+@dep_macros);
+    @macro_dep{@dep_macros} = (1) x @dep_macros;
+
+    # IMPORTS is used under OS/2 and Win32
+
+    # @Overridable is close to @MM_Sections but not identical.  The
+    # order is important. Many subroutines declare macros. These
+    # depend on each other. Let's try to collect the macros up front,
+    # then pasthru, then the rules.
+
+    # MM_Sections are the sections we have to call explicitly
+    # in Overridable we have subroutines that are used indirectly
+
+
+    @MM_Sections =
+        qw(
+
+ post_initialize const_config constants platform_constants
+ tool_autosplit tool_xsubpp tools_other
+
+ makemakerdflt
+
+ dist macro depend cflags const_loadlibs const_cccmd
+ post_constants
+
+ pasthru
+
+ special_targets
+ c_o xs_c xs_o
+ top_targets blibdirs linkext dlsyms dynamic_bs dynamic
+ dynamic_lib static static_lib manifypods processPL
+ installbin subdirs
+ clean_subdirs clean realclean_subdirs realclean
+ metafile signature
+ dist_basics dist_core distdir dist_test dist_ci distmeta distsignature
+ install force perldepend makefile staticmake test ppd
+
+          ); # loses section ordering
+
+    @Overridable = @MM_Sections;
+    push @Overridable, qw[
+
+ libscan makeaperl needs_linking
+ subdir_x test_via_harness test_via_script
+
+ init_VERSION init_dist init_INST init_INSTALL init_DEST init_dirscan
+ init_PM init_MANPODS init_xs init_PERL init_DIRFILESEP init_linker
+                         ];
+
+    push @MM_Sections, qw[
+
+ pm_to_blib selfdocument
+
+                         ];
+
+    # Postamble needs to be the last that was always the case
+    push @MM_Sections, "postamble";
+    push @Overridable, "postamble";
+
+    # All sections are valid keys.
+    @Recognized_Att_Keys{@MM_Sections} = (1) x @MM_Sections;
+
+    # we will use all these variables in the Makefile
+    @Get_from_Config =
+        qw(
+           ar cc cccdlflags ccdlflags dlext dlsrc exe_ext full_ar ld
+           lddlflags ldflags libc lib_ext obj_ext osname osvers ranlib
+           sitelibexp sitearchexp so
+          );
+
+    # 5.5.3 doesn't have any concept of vendor libs
+    push @Get_from_Config, qw( vendorarchexp vendorlibexp ) if $] >= 5.006;
+
+    foreach my $item (@attrib_help){
+        $Recognized_Att_Keys{$item} = 1;
+    }
+    foreach my $item (@Get_from_Config) {
+        $Recognized_Att_Keys{uc $item} = $Config{$item};
+        print "Attribute '\U$item\E' => '$Config{$item}'\n"
+            if ($Verbose >= 2);
+    }
+
+    #
+    # When we eval a Makefile.PL in a subdirectory, that one will ask
+    # us (the parent) for the values and will prepend "..", so that
+    # all files to be installed end up below OUR ./blib
+    #
+    @Prepend_parent = qw(
+           INST_BIN INST_LIB INST_ARCHLIB INST_SCRIPT
+           MAP_TARGET INST_MAN1DIR INST_MAN3DIR PERL_SRC
+           PERL FULLPERL
+    );
+}
+
+sub new {
+    my($class,$self) = @_;
+    my($key);
+
+    _convert_compat_attrs($self) if defined $self && $self;
+
+    # Store the original args passed to WriteMakefile()
+    foreach my $k (keys %$self) {
+        $self->{ARGS}{$k} = $self->{$k};
+    }
+
+    $self = {} unless defined $self;
+
+    # Temporarily bless it into MM so it can be used as an
+    # object.  It will be blessed into a temp package later.
+    bless $self, "MM";
+
+    # Cleanup all the module requirement bits
+    for my $key (qw(PREREQ_PM BUILD_REQUIRES CONFIGURE_REQUIRES TEST_REQUIRES)) {
+        $self->{$key}      ||= {};
+        $self->clean_versions( $key );
+    }
+
+
+    if ("@ARGV" =~ /\bPREREQ_PRINT\b/) {
+        $self->_PREREQ_PRINT;
+    }
+
+    # PRINT_PREREQ is RedHatism.
+    if ("@ARGV" =~ /\bPRINT_PREREQ\b/) {
+        $self->_PRINT_PREREQ;
+   }
+
+    print "MakeMaker (v$VERSION)\n" if $Verbose;
+    if (-f "MANIFEST" && ! -f "Makefile" && ! $UNDER_CORE){
+        check_manifest();
+    }
+
+    check_hints($self);
+
+    if ( defined $self->{MIN_PERL_VERSION}
+          && $self->{MIN_PERL_VERSION} !~ /^v?[\d_\.]+$/ ) {
+      require version;
+      my $normal = eval {
+        local $SIG{__WARN__} = sub {
+            # simulate "use warnings FATAL => 'all'" for vintage perls
+            die @_;
+        };
+        version->new( $self->{MIN_PERL_VERSION} )
+      };
+      $self->{MIN_PERL_VERSION} = $normal if defined $normal && !$@;
+    }
+
+    # Translate X.Y.Z to X.00Y00Z
+    if( defined $self->{MIN_PERL_VERSION} ) {
+        $self->{MIN_PERL_VERSION} =~ s{ ^v? (\d+) \. (\d+) \. (\d+) $ }
+                                      {sprintf "%d.%03d%03d", $1, $2, $3}ex;
+    }
+
+    my $perl_version_ok = eval {
+        local $SIG{__WARN__} = sub {
+            # simulate "use warnings FATAL => 'all'" for vintage perls
+            die @_;
+        };
+        !$self->{MIN_PERL_VERSION} or $self->{MIN_PERL_VERSION} <= $]
+    };
+    if (!$perl_version_ok) {
+        if (!defined $perl_version_ok) {
+            die <<'END';
+Warning: MIN_PERL_VERSION is not in a recognized format.
+Recommended is a quoted numerical value like '5.005' or '5.008001'.
+END
+        }
+        elsif ($self->{PREREQ_FATAL}) {
+            die sprintf <<"END", $self->{MIN_PERL_VERSION}, $];
+MakeMaker FATAL: perl version too low for this distribution.
+Required is %s. We run %s.
+END
+        }
+        else {
+            warn sprintf
+                "Warning: Perl version %s or higher required. We run %s.\n",
+                $self->{MIN_PERL_VERSION}, $];
+        }
+    }
+
+    my %configure_att;         # record &{$self->{CONFIGURE}} attributes
+    my(%initial_att) = %$self; # record initial attributes
+
+    my(%unsatisfied) = ();
+    my $prereqs = $self->_all_prereqs;
+    foreach my $prereq (sort keys %$prereqs) {
+        my $required_version = $prereqs->{$prereq};
+
+        my $pr_version = 0;
+        my $installed_file;
+
+        if ( $prereq eq 'perl' ) {
+          if ( defined $required_version && $required_version =~ /^v?[\d_\.]+$/
+               || $required_version !~ /^v?[\d_\.]+$/ ) {
+            require version;
+            my $normal = eval { version->new( $required_version ) };
+            $required_version = $normal if defined $normal;
+          }
+          $installed_file = $prereq;
+          $pr_version = $];
+        }
+        else {
+          $installed_file = MM->_installed_file_for_module($prereq);
+          $pr_version = MM->parse_version($installed_file) if $installed_file;
+          $pr_version = 0 if $pr_version eq 'undef';
+        }
+
+        # convert X.Y_Z alpha version #s to X.YZ for easier comparisons
+        $pr_version =~ s/(\d+)\.(\d+)_(\d+)/$1.$2$3/;
+
+        if (!$installed_file) {
+            warn sprintf "Warning: prerequisite %s %s not found.\n",
+              $prereq, $required_version
+                   unless $self->{PREREQ_FATAL}
+                       or $UNDER_CORE;
+
+            $unsatisfied{$prereq} = 'not installed';
+        }
+        elsif ($pr_version < $required_version ){
+            warn sprintf "Warning: prerequisite %s %s not found. We have %s.\n",
+              $prereq, $required_version, ($pr_version || 'unknown version')
+                  unless $self->{PREREQ_FATAL}
+                       or $UNDER_CORE;
+
+            $unsatisfied{$prereq} = $required_version ? $required_version : 'unknown version' ;
+        }
+    }
+
+    if (%unsatisfied && $self->{PREREQ_FATAL}){
+        my $failedprereqs = join "\n", map {"    $_ $unsatisfied{$_}"}
+                            sort { $a cmp $b } keys %unsatisfied;
+        die <<"END";
+MakeMaker FATAL: prerequisites not found.
+$failedprereqs
+
+Please install these modules first and rerun 'perl Makefile.PL'.
+END
+    }
+
+    if (defined $self->{CONFIGURE}) {
+        if (ref $self->{CONFIGURE} eq 'CODE') {
+            %configure_att = %{&{$self->{CONFIGURE}}};
+            _convert_compat_attrs(\%configure_att);
+            $self = { %$self, %configure_att };
+        } else {
+            croak "Attribute 'CONFIGURE' to WriteMakefile() not a code reference\n";
+        }
+    }
+
+    # This is for old Makefiles written pre 5.00, will go away
+    if ( Carp::longmess("") =~ /runsubdirpl/s ){
+        carp("WARNING: Please rerun 'perl Makefile.PL' to regenerate your Makefiles\n");
+    }
+
+    my $newclass = ++$PACKNAME;
+    local @Parent = @Parent;    # Protect against non-local exits
+    {
+        print "Blessing Object into class [$newclass]\n" if $Verbose>=2;
+        mv_all_methods("MY",$newclass);
+        bless $self, $newclass;
+        push @Parent, $self;
+        require ExtUtils::MY;
+
+        no strict 'refs';   ## no critic;
+        @{"$newclass\:\:ISA"} = 'MM';
+    }
+
+    if (defined $Parent[-2]){
+        $self->{PARENT} = $Parent[-2];
+        for my $key (@Prepend_parent) {
+            next unless defined $self->{PARENT}{$key};
+
+            # Don't stomp on WriteMakefile() args.
+            next if defined $self->{ARGS}{$key} and
+                    $self->{ARGS}{$key} eq $self->{$key};
+
+            $self->{$key} = $self->{PARENT}{$key};
+
+            if ($Is_VMS && $key =~ /PERL$/) {
+                # PERL or FULLPERL will be a command verb or even a
+                # command with an argument instead of a full file
+                # specification under VMS.  So, don't turn the command
+                # into a filespec, but do add a level to the path of
+                # the argument if not already absolute.
+                my @cmd = split /\s+/, $self->{$key};
+                $cmd[1] = $self->catfile('[-]',$cmd[1])
+                  unless (@cmd < 2) || $self->file_name_is_absolute($cmd[1]);
+                $self->{$key} = join(' ', @cmd);
+            } else {
+                my $value = $self->{$key};
+                # not going to test in FS so only stripping start
+                $value =~ s/^"// if $key =~ /PERL$/;
+                $value = $self->catdir("..", $value)
+                  unless $self->file_name_is_absolute($value);
+                $value = qq{"$value} if $key =~ /PERL$/;
+                $self->{$key} = $value;
+            }
+        }
+        if ($self->{PARENT}) {
+            $self->{PARENT}->{CHILDREN}->{$newclass} = $self;
+            foreach my $opt (qw(POLLUTE PERL_CORE LINKTYPE LD OPTIMIZE)) {
+                if (exists $self->{PARENT}->{$opt}
+                    and not exists $self->{$opt})
+                    {
+                        # inherit, but only if already unspecified
+                        $self->{$opt} = $self->{PARENT}->{$opt};
+                    }
+            }
+        }
+        my @fm = grep /^FIRST_MAKEFILE=/, @ARGV;
+        parse_args($self,@fm) if @fm;
+    }
+    else {
+        parse_args($self, _shellwords($ENV{PERL_MM_OPT} || ''),@ARGV);
+    }
+
+    # RT#91540 PREREQ_FATAL not recognized on command line
+    if (%unsatisfied && $self->{PREREQ_FATAL}){
+        my $failedprereqs = join "\n", map {"    $_ $unsatisfied{$_}"}
+                            sort { $a cmp $b } keys %unsatisfied;
+        die <<"END";
+MakeMaker FATAL: prerequisites not found.
+$failedprereqs
+
+Please install these modules first and rerun 'perl Makefile.PL'.
+END
+    }
+
+    $self->{NAME} ||= $self->guess_name;
+
+    warn "Warning: NAME must be a package name\n"
+      unless $self->{NAME} =~ m!^[A-Z_a-z][0-9A-Z_a-z]*(?:::[0-9A-Z_a-z]+)*$!;
+
+    ($self->{NAME_SYM} = $self->{NAME}) =~ s/\W+/_/g;
+
+    $self->init_MAKE;
+    $self->init_main;
+    $self->init_VERSION;
+    $self->init_dist;
+    $self->init_INST;
+    $self->init_INSTALL;
+    $self->init_DEST;
+    $self->init_dirscan;
+    $self->init_PM;
+    $self->init_MANPODS;
+    $self->init_xs;
+    $self->init_PERL;
+    $self->init_DIRFILESEP;
+    $self->init_linker;
+    $self->init_ABSTRACT;
+
+    $self->arch_check(
+        $INC{'Config.pm'},
+        $self->catfile($Config{'archlibexp'}, "Config.pm")
+    );
+
+    $self->init_tools();
+    $self->init_others();
+    $self->init_platform();
+    $self->init_PERM();
+    my($argv) = neatvalue(\@ARGV);
+    $argv =~ s/^\[/(/;
+    $argv =~ s/\]$/)/;
+
+    push @{$self->{RESULT}}, <<END;
+# This Makefile is for the $self->{NAME} extension to perl.
+#
+# It was generated automatically by MakeMaker version
+# $VERSION (Revision: $Revision) from the contents of
+# Makefile.PL. Don't edit this file, edit Makefile.PL instead.
+#
+#       ANY CHANGES MADE HERE WILL BE LOST!
+#
+#   MakeMaker ARGV: $argv
+#
+END
+
+    push @{$self->{RESULT}}, $self->_MakeMaker_Parameters_section(\%initial_att);
+
+    if (defined $self->{CONFIGURE}) {
+       push @{$self->{RESULT}}, <<END;
+
+#   MakeMaker 'CONFIGURE' Parameters:
+END
+        if (scalar(keys %configure_att) > 0) {
+            foreach my $key (sort keys %configure_att){
+               next if $key eq 'ARGS';
+               my($v) = neatvalue($configure_att{$key});
+               $v =~ s/(CODE|HASH|ARRAY|SCALAR)\([\dxa-f]+\)/$1\(...\)/;
+               $v =~ tr/\n/ /s;
+               push @{$self->{RESULT}}, "#     $key => $v";
+            }
+        }
+        else
+        {
+           push @{$self->{RESULT}}, "# no values returned";
+        }
+        undef %configure_att;  # free memory
+    }
+
+    # turn the SKIP array into a SKIPHASH hash
+    for my $skip (@{$self->{SKIP} || []}) {
+        $self->{SKIPHASH}{$skip} = 1;
+    }
+    delete $self->{SKIP}; # free memory
+
+    if ($self->{PARENT}) {
+        for (qw/install dist dist_basics dist_core distdir dist_test dist_ci/) {
+            $self->{SKIPHASH}{$_} = 1;
+        }
+    }
+
+    # We run all the subdirectories now. They don't have much to query
+    # from the parent, but the parent has to query them: if they need linking!
+    unless ($self->{NORECURS}) {
+        $self->eval_in_subdirs if @{$self->{DIR}};
+    }
+
+    foreach my $section ( @MM_Sections ){
+        # Support for new foo_target() methods.
+        my $method = $section;
+        $method .= '_target' unless $self->can($method);
+
+        print "Processing Makefile '$section' section\n" if ($Verbose >= 2);
+        my($skipit) = $self->skipcheck($section);
+        if ($skipit){
+            push @{$self->{RESULT}}, "\n# --- MakeMaker $section section $skipit.";
+        } else {
+            my(%a) = %{$self->{$section} || {}};
+            push @{$self->{RESULT}}, "\n# --- MakeMaker $section section:";
+            push @{$self->{RESULT}}, "# " . join ", ", %a if $Verbose && %a;
+            push @{$self->{RESULT}}, $self->maketext_filter(
+                $self->$method( %a )
+            );
+        }
+    }
+
+    push @{$self->{RESULT}}, "\n# End.";
+
+    $self;
+}
+
+sub WriteEmptyMakefile {
+    croak "WriteEmptyMakefile: Need an even number of args" if @_ % 2;
+
+    my %att = @_;
+    my $self = MM->new(\%att);
+
+    my $new = $self->{MAKEFILE};
+    my $old = $self->{MAKEFILE_OLD};
+    if (-f $old) {
+        _unlink($old) or warn "unlink $old: $!";
+    }
+    if ( -f $new ) {
+        _rename($new, $old) or warn "rename $new => $old: $!"
+    }
+    open my $mfh, '>', $new or die "open $new for write: $!";
+    print $mfh <<'EOP';
+all :
+
+clean :
+
+install :
+
+makemakerdflt :
+
+test :
+
+EOP
+    close $mfh or die "close $new for write: $!";
+}
+
+
+=begin private
+
+=head3 _installed_file_for_module
+
+  my $file = MM->_installed_file_for_module($module);
+
+Return the first installed .pm $file associated with the $module.  The
+one which will show up when you C<use $module>.
+
+$module is something like "strict" or "Test::More".
+
+=end private
+
+=cut
+
+sub _installed_file_for_module {
+    my $class  = shift;
+    my $prereq = shift;
+
+    my $file = "$prereq.pm";
+    $file =~ s{::}{/}g;
+
+    my $path;
+    for my $dir (@INC) {
+        my $tmp = File::Spec->catfile($dir, $file);
+        if ( -r $tmp ) {
+            $path = $tmp;
+            last;
+        }
+    }
+
+    return $path;
+}
+
+
+# Extracted from MakeMaker->new so we can test it
+sub _MakeMaker_Parameters_section {
+    my $self = shift;
+    my $att  = shift;
+
+    my @result = <<'END';
+#   MakeMaker Parameters:
+END
+
+    foreach my $key (sort keys %$att){
+        next if $key eq 'ARGS';
+        my $v;
+        if ($key eq 'PREREQ_PM') {
+            # CPAN.pm takes prereqs from this field in 'Makefile'
+            # and does not know about BUILD_REQUIRES
+            $v = neatvalue({
+                %{ $att->{PREREQ_PM} || {} },
+                %{ $att->{BUILD_REQUIRES} || {} },
+                %{ $att->{TEST_REQUIRES} || {} },
+            });
+        } else {
+            $v = neatvalue($att->{$key});
+        }
+
+        $v =~ s/(CODE|HASH|ARRAY|SCALAR)\([\dxa-f]+\)/$1\(...\)/;
+        $v =~ tr/\n/ /s;
+        push @result, "#     $key => $v";
+    }
+
+    return @result;
+}
+
+# _shellwords and _parseline borrowed from Text::ParseWords
+sub _shellwords {
+    my (@lines) = @_;
+    my @allwords;
+
+    foreach my $line (@lines) {
+      $line =~ s/^\s+//;
+      my @words = _parse_line('\s+', 0, $line);
+      pop @words if (@words and !defined $words[-1]);
+      return() unless (@words || !length($line));
+      push(@allwords, @words);
+    }
+    return(@allwords);
+}
+
+sub _parse_line {
+    my($delimiter, $keep, $line) = @_;
+    my($word, @pieces);
+
+    no warnings 'uninitialized';  # we will be testing undef strings
+
+    while (length($line)) {
+        # This pattern is optimised to be stack conservative on older perls.
+        # Do not refactor without being careful and testing it on very long strings.
+        # See Perl bug #42980 for an example of a stack busting input.
+        $line =~ s/^
+                    (?:
+                        # double quoted string
+                        (")                             # $quote
+                        ((?>[^\\"]*(?:\\.[^\\"]*)*))"   # $quoted
+        | # --OR--
+                        # singe quoted string
+                        (')                             # $quote
+                        ((?>[^\\']*(?:\\.[^\\']*)*))'   # $quoted
+                    |   # --OR--
+                        # unquoted string
+            (                               # $unquoted
+                            (?:\\.|[^\\"'])*?
+                        )
+                        # followed by
+            (                               # $delim
+                            \Z(?!\n)                    # EOL
+                        |   # --OR--
+                            (?-x:$delimiter)            # delimiter
+                        |   # --OR--
+                            (?!^)(?=["'])               # a quote
+                        )
+        )//xs or return;    # extended layout
+        my ($quote, $quoted, $unquoted, $delim) = (($1 ? ($1,$2) : ($3,$4)), $5, $6);
+
+
+  return() unless( defined($quote) || length($unquoted) || length($delim));
+
+        if ($keep) {
+      $quoted = "$quote$quoted$quote";
+  }
+        else {
+      $unquoted =~ s/\\(.)/$1/sg;
+      if (defined $quote) {
+    $quoted =~ s/\\(.)/$1/sg if ($quote eq '"');
+    #$quoted =~ s/\\([\\'])/$1/g if ( $PERL_SINGLE_QUOTE && $quote eq "'");
+            }
+  }
+        $word .= substr($line, 0, 0); # leave results tainted
+        $word .= defined $quote ? $quoted : $unquoted;
+
+        if (length($delim)) {
+            push(@pieces, $word);
+            push(@pieces, $delim) if ($keep eq 'delimiters');
+            undef $word;
+        }
+        if (!length($line)) {
+            push(@pieces, $word);
+  }
+    }
+    return(@pieces);
+}
+
+sub check_manifest {
+    print "Checking if your kit is complete...\n";
+    require ExtUtils::Manifest;
+    # avoid warning
+    $ExtUtils::Manifest::Quiet = $ExtUtils::Manifest::Quiet = 1;
+    my(@missed) = ExtUtils::Manifest::manicheck();
+    if (@missed) {
+        print "Warning: the following files are missing in your kit:\n";
+        print "\t", join "\n\t", @missed;
+        print "\n";
+        print "Please inform the author.\n";
+    } else {
+        print "Looks good\n";
+    }
+}
+
+sub parse_args{
+    my($self, @args) = @_;
+    @args = map { Encode::decode(locale => $_) } @args if $CAN_DECODE;
+    foreach (@args) {
+        unless (m/(.*?)=(.*)/) {
+            ++$Verbose if m/^verb/;
+            next;
+        }
+        my($name, $value) = ($1, $2);
+        if ($value =~ m/^~(\w+)?/) { # tilde with optional username
+            $value =~ s [^~(\w*)]
+                [$1 ?
+                 ((getpwnam($1))[7] || "~$1") :
+                 (getpwuid($>))[7]
+                 ]ex;
+        }
+
+        # Remember the original args passed it.  It will be useful later.
+        $self->{ARGS}{uc $name} = $self->{uc $name} = $value;
+    }
+
+    # catch old-style 'potential_libs' and inform user how to 'upgrade'
+    if (defined $self->{potential_libs}){
+        my($msg)="'potential_libs' => '$self->{potential_libs}' should be";
+        if ($self->{potential_libs}){
+            print "$msg changed to:\n\t'LIBS' => ['$self->{potential_libs}']\n";
+        } else {
+            print "$msg deleted.\n";
+        }
+        $self->{LIBS} = [$self->{potential_libs}];
+        delete $self->{potential_libs};
+    }
+    # catch old-style 'ARMAYBE' and inform user how to 'upgrade'
+    if (defined $self->{ARMAYBE}){
+        my($armaybe) = $self->{ARMAYBE};
+        print "ARMAYBE => '$armaybe' should be changed to:\n",
+                        "\t'dynamic_lib' => {ARMAYBE => '$armaybe'}\n";
+        my(%dl) = %{$self->{dynamic_lib} || {}};
+        $self->{dynamic_lib} = { %dl, ARMAYBE => $armaybe};
+        delete $self->{ARMAYBE};
+    }
+    if (defined $self->{LDTARGET}){
+        print "LDTARGET should be changed to LDFROM\n";
+        $self->{LDFROM} = $self->{LDTARGET};
+        delete $self->{LDTARGET};
+    }
+    # Turn a DIR argument on the command line into an array
+    if (defined $self->{DIR} && ref \$self->{DIR} eq 'SCALAR') {
+        # So they can choose from the command line, which extensions they want
+        # the grep enables them to have some colons too much in case they
+        # have to build a list with the shell
+        $self->{DIR} = [grep $_, split ":", $self->{DIR}];
+    }
+    # Turn a INCLUDE_EXT argument on the command line into an array
+    if (defined $self->{INCLUDE_EXT} && ref \$self->{INCLUDE_EXT} eq 'SCALAR') {
+        $self->{INCLUDE_EXT} = [grep $_, split '\s+', $self->{INCLUDE_EXT}];
+    }
+    # Turn a EXCLUDE_EXT argument on the command line into an array
+    if (defined $self->{EXCLUDE_EXT} && ref \$self->{EXCLUDE_EXT} eq 'SCALAR') {
+        $self->{EXCLUDE_EXT} = [grep $_, split '\s+', $self->{EXCLUDE_EXT}];
+    }
+
+    foreach my $mmkey (sort keys %$self){
+        next if $mmkey eq 'ARGS';
+        print "  $mmkey => ", neatvalue($self->{$mmkey}), "\n" if $Verbose;
+        print "'$mmkey' is not a known MakeMaker parameter name.\n"
+            unless exists $Recognized_Att_Keys{$mmkey};
+    }
+    $| = 1 if $Verbose;
+}
+
+sub check_hints {
+    my($self) = @_;
+    # We allow extension-specific hints files.
+
+    require File::Spec;
+    my $curdir = File::Spec->curdir;
+
+    my $hint_dir = File::Spec->catdir($curdir, "hints");
+    return unless -d $hint_dir;
+
+    # First we look for the best hintsfile we have
+    my($hint)="${^O}_$Config{osvers}";
+    $hint =~ s/\./_/g;
+    $hint =~ s/_$//;
+    return unless $hint;
+
+    # Also try without trailing minor version numbers.
+    while (1) {
+        last if -f File::Spec->catfile($hint_dir, "$hint.pl");  # found
+    } continue {
+        last unless $hint =~ s/_[^_]*$//; # nothing to cut off
+    }
+    my $hint_file = File::Spec->catfile($hint_dir, "$hint.pl");
+
+    return unless -f $hint_file;    # really there
+
+    _run_hintfile($self, $hint_file);
+}
+
+sub _run_hintfile {
+    our $self;
+    local($self) = shift;       # make $self available to the hint file.
+    my($hint_file) = shift;
+
+    local($@, $!);
+    warn "Processing hints file $hint_file\n";
+
+    # Just in case the ./ isn't on the hint file, which File::Spec can
+    # often strip off, we bung the curdir into @INC
+    local @INC = (File::Spec->curdir, @INC);
+    my $ret = do $hint_file;
+    if( !defined $ret ) {
+        my $error = $@ || $!;
+        warn $error;
+    }
+}
+
+sub mv_all_methods {
+    my($from,$to) = @_;
+
+    # Here you see the *current* list of methods that are overridable
+    # from Makefile.PL via MY:: subroutines. As of VERSION 5.07 I'm
+    # still trying to reduce the list to some reasonable minimum --
+    # because I want to make it easier for the user. A.K.
+
+    local $SIG{__WARN__} = sub {
+        # can't use 'no warnings redefined', 5.6 only
+        warn @_ unless $_[0] =~ /^Subroutine .* redefined/
+    };
+    foreach my $method (@Overridable) {
+
+        # We cannot say "next" here. Nick might call MY->makeaperl
+        # which isn't defined right now
+
+        # Above statement was written at 4.23 time when Tk-b8 was
+        # around. As Tk-b9 only builds with 5.002something and MM 5 is
+        # standard, we try to enable the next line again. It was
+        # commented out until MM 5.23
+
+        next unless defined &{"${from}::$method"};
+
+        {
+            no strict 'refs';   ## no critic
+            *{"${to}::$method"} = \&{"${from}::$method"};
+
+            # If we delete a method, then it will be undefined and cannot
+            # be called.  But as long as we have Makefile.PLs that rely on
+            # %MY:: being intact, we have to fill the hole with an
+            # inheriting method:
+
+            {
+                package MY;
+                my $super = "SUPER::".$method;
+                *{$method} = sub {
+                    shift->$super(@_);
+                };
+            }
+        }
+    }
+
+    # We have to clean out %INC also, because the current directory is
+    # changed frequently and Graham Barr prefers to get his version
+    # out of a History.pl file which is "required" so wouldn't get
+    # loaded again in another extension requiring a History.pl
+
+    # With perl5.002_01 the deletion of entries in %INC caused Tk-b11
+    # to core dump in the middle of a require statement. The required
+    # file was Tk/MMutil.pm.  The consequence is, we have to be
+    # extremely careful when we try to give perl a reason to reload a
+    # library with same name.  The workaround prefers to drop nothing
+    # from %INC and teach the writers not to use such libraries.
+
+#    my $inc;
+#    foreach $inc (keys %INC) {
+#       #warn "***$inc*** deleted";
+#       delete $INC{$inc};
+#    }
+}
+
+sub skipcheck {
+    my($self) = shift;
+    my($section) = @_;
+    if ($section eq 'dynamic') {
+        print "Warning (non-fatal): Target 'dynamic' depends on targets ",
+        "in skipped section 'dynamic_bs'\n"
+            if $self->{SKIPHASH}{dynamic_bs} && $Verbose;
+        print "Warning (non-fatal): Target 'dynamic' depends on targets ",
+        "in skipped section 'dynamic_lib'\n"
+            if $self->{SKIPHASH}{dynamic_lib} && $Verbose;
+    }
+    if ($section eq 'dynamic_lib') {
+        print "Warning (non-fatal): Target '\$(INST_DYNAMIC)' depends on ",
+        "targets in skipped section 'dynamic_bs'\n"
+            if $self->{SKIPHASH}{dynamic_bs} && $Verbose;
+    }
+    if ($section eq 'static') {
+        print "Warning (non-fatal): Target 'static' depends on targets ",
+        "in skipped section 'static_lib'\n"
+            if $self->{SKIPHASH}{static_lib} && $Verbose;
+    }
+    return 'skipped' if $self->{SKIPHASH}{$section};
+    return '';
+}
+
+sub flush {
+    my $self = shift;
+
+    # This needs a bit more work for more wacky OSen
+    my $type = 'Unix-style';
+    if ( $self->os_flavor_is('Win32') ) {
+      my $make = $self->make;
+      $make = +( File::Spec->splitpath( $make ) )[-1];
+      $make =~ s!\.exe$!!i;
+      $type = $make . '-style';
+    }
+    elsif ( $Is_VMS ) {
+        $type = $Config{make} . '-style';
+    }
+
+    my $finalname = $self->{MAKEFILE};
+    print "Generating a $type $finalname\n";
+    print "Writing $finalname for $self->{NAME}\n";
+
+    unlink($finalname, "MakeMaker.tmp", $Is_VMS ? 'Descrip.MMS' : ());
+    open(my $fh,">", "MakeMaker.tmp")
+        or die "Unable to open MakeMaker.tmp: $!";
+    binmode $fh, ':encoding(locale)' if $CAN_DECODE;
+
+    for my $chunk (@{$self->{RESULT}}) {
+        my $to_write = $chunk;
+        utf8::encode $to_write if !$CAN_DECODE && $] > 5.008;
+        print $fh "$to_write\n" or die "Can't write to MakeMaker.tmp: $!";
+    }
+
+    close $fh
+        or die "Can't write to MakeMaker.tmp: $!";
+    _rename("MakeMaker.tmp", $finalname) or
+      warn "rename MakeMaker.tmp => $finalname: $!";
+    chmod 0644, $finalname unless $Is_VMS;
+
+    unless ($self->{NO_MYMETA}) {
+        # Write MYMETA.yml to communicate metadata up to the CPAN clients
+        if ( $self->write_mymeta( $self->mymeta ) ) {
+            print "Writing MYMETA.yml and MYMETA.json\n";
+        }
+
+    }
+    my %keep = map { ($_ => 1) } qw(NEEDS_LINKING HAS_LINK_CODE);
+    if ($self->{PARENT} && !$self->{_KEEP_AFTER_FLUSH}) {
+        foreach (keys %$self) { # safe memory
+            delete $self->{$_} unless $keep{$_};
+        }
+    }
+
+    system("$Config::Config{eunicefix} $finalname") unless $Config::Config{eunicefix} eq ":";
+}
+
+# This is a rename for OS's where the target must be unlinked first.
+sub _rename {
+    my($src, $dest) = @_;
+    chmod 0666, $dest;
+    unlink $dest;
+    return rename $src, $dest;
+}
+
+# This is an unlink for OS's where the target must be writable first.
+sub _unlink {
+    my @files = @_;
+    chmod 0666, @files;
+    return unlink @files;
+}
+
+
+# The following mkbootstrap() is only for installations that are calling
+# the pre-4.1 mkbootstrap() from their old Makefiles. This MakeMaker
+# writes Makefiles, that use ExtUtils::Mkbootstrap directly.
+sub mkbootstrap {
+    die <<END;
+!!! Your Makefile has been built such a long time ago, !!!
+!!! that is unlikely to work with current MakeMaker.   !!!
+!!! Please rebuild your Makefile                       !!!
+END
+}
+
+# Ditto for mksymlists() as of MakeMaker 5.17
+sub mksymlists {
+    die <<END;
+!!! Your Makefile has been built such a long time ago, !!!
+!!! that is unlikely to work with current MakeMaker.   !!!
+!!! Please rebuild your Makefile                       !!!
+END
+}
+
+sub neatvalue {
+    my($v) = @_;
+    return "undef" unless defined $v;
+    my($t) = ref $v;
+    return "q[$v]" unless $t;
+    if ($t eq 'ARRAY') {
+        my(@m, @neat);
+        push @m, "[";
+        foreach my $elem (@$v) {
+            push @neat, "q[$elem]";
+        }
+        push @m, join ", ", @neat;
+        push @m, "]";
+        return join "", @m;
+    }
+    return $v unless $t eq 'HASH';
+    my(@m, $key, $val);
+    for my $key (sort keys %$v) {
+        last unless defined $key; # cautious programming in case (undef,undef) is true
+        push @m,"$key=>".neatvalue($v->{$key});
+    }
+    return "{ ".join(', ',@m)." }";
+}
+
+sub _find_magic_vstring {
+    my $value = shift;
+    return $value if $UNDER_CORE;
+    my $tvalue = '';
+    require B;
+    my $sv = B::svref_2object(\$value);
+    my $magic = ref($sv) eq 'B::PVMG' ? $sv->MAGIC : undef;
+    while ( $magic ) {
+        if ( $magic->TYPE eq 'V' ) {
+            $tvalue = $magic->PTR;
+            $tvalue =~ s/^v?(.+)$/v$1/;
+            last;
+        }
+        else {
+            $magic = $magic->MOREMAGIC;
+        }
+    }
+    return $tvalue;
+}
+
+
+# Look for weird version numbers, warn about them and set them to 0
+# before CPAN::Meta chokes.
+sub clean_versions {
+    my($self, $key) = @_;
+    my $reqs = $self->{$key};
+    for my $module (keys %$reqs) {
+        my $v = $reqs->{$module};
+        my $printable = _find_magic_vstring($v);
+        $v = $printable if length $printable;
+        my $version = eval {
+            local $SIG{__WARN__} = sub {
+              # simulate "use warnings FATAL => 'all'" for vintage perls
+              die @_;
+            };
+            version->new($v)->stringify;
+        };
+        if( $@ || $reqs->{$module} eq '' ) {
+            if ( $] < 5.008 && $v !~ /^v?[\d_\.]+$/ ) {
+               $v = sprintf "v%vd", $v unless $v eq '';
+            }
+            carp "Unparsable version '$v' for prerequisite $module";
+            $reqs->{$module} = 0;
+        }
+        else {
+            $reqs->{$module} = $version;
+        }
+    }
+}
+
+sub selfdocument {
+    my($self) = @_;
+    my(@m);
+    if ($Verbose){
+        push @m, "\n# Full list of MakeMaker attribute values:";
+        foreach my $key (sort keys %$self){
+            next if $key eq 'RESULT' || $key =~ /^[A-Z][a-z]/;
+            my($v) = neatvalue($self->{$key});
+            $v =~ s/(CODE|HASH|ARRAY|SCALAR)\([\dxa-f]+\)/$1\(...\)/;
+            $v =~ tr/\n/ /s;
+            push @m, "# $key => $v";
+        }
+    }
+    join "\n", @m;
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+ExtUtils::MakeMaker - Create a module Makefile
+
+=head1 SYNOPSIS
+
+  use ExtUtils::MakeMaker;
+
+  WriteMakefile(
+      NAME              => "Foo::Bar",
+      VERSION_FROM      => "lib/Foo/Bar.pm",
+  );
+
+=head1 DESCRIPTION
+
+This utility is designed to write a Makefile for an extension module
+from a Makefile.PL. It is based on the Makefile.SH model provided by
+Andy Dougherty and the perl5-porters.
+
+It splits the task of generating the Makefile into several subroutines
+that can be individually overridden.  Each subroutine returns the text
+it wishes to have written to the Makefile.
+
+As there are various Make programs with incompatible syntax, which
+use operating system shells, again with incompatible syntax, it is
+important for users of this module to know which flavour of Make
+a Makefile has been written for so they'll use the correct one and
+won't have to face the possibly bewildering errors resulting from
+using the wrong one.
+
+On POSIX systems, that program will likely be GNU Make; on Microsoft
+Windows, it will be either Microsoft NMake, DMake or GNU Make.
+See the section on the L</"MAKE"> parameter for details.
+
+ExtUtils::MakeMaker (EUMM) is object oriented. Each directory below the current
+directory that contains a Makefile.PL is treated as a separate
+object. This makes it possible to write an unlimited number of
+Makefiles with a single invocation of WriteMakefile().
+
+All inputs to WriteMakefile are Unicode characters, not just octets. EUMM
+seeks to handle all of these correctly. It is currently still not possible
+to portably use Unicode characters in module names, because this requires
+Perl to handle Unicode filenames, which is not yet the case on Windows.
+
+=head2 How To Write A Makefile.PL
+
+See L<ExtUtils::MakeMaker::Tutorial>.
+
+The long answer is the rest of the manpage :-)
+
+=head2 Default Makefile Behaviour
+
+The generated Makefile enables the user of the extension to invoke
+
+  perl Makefile.PL # optionally "perl Makefile.PL verbose"
+  make
+  make test        # optionally set TEST_VERBOSE=1
+  make install     # See below
+
+The Makefile to be produced may be altered by adding arguments of the
+form C<KEY=VALUE>. E.g.
+
+  perl Makefile.PL INSTALL_BASE=~
+
+Other interesting targets in the generated Makefile are
+
+  make config     # to check if the Makefile is up-to-date
+  make clean      # delete local temp files (Makefile gets renamed)
+  make realclean  # delete derived files (including ./blib)
+  make ci         # check in all the files in the MANIFEST file
+  make dist       # see below the Distribution Support section
+
+=head2 make test
+
+MakeMaker checks for the existence of a file named F<test.pl> in the
+current directory, and if it exists it executes the script with the
+proper set of perl C<-I> options.
+
+MakeMaker also checks for any files matching glob("t/*.t"). It will
+execute all matching files in alphabetical order via the
+L<Test::Harness> module with the C<-I> switches set correctly.
+
+If you'd like to see the raw output of your tests, set the
+C<TEST_VERBOSE> variable to true.
+
+  make test TEST_VERBOSE=1
+
+If you want to run particular test files, set the C<TEST_FILES> variable.
+It is possible to use globbing with this mechanism.
+
+  make test TEST_FILES='t/foobar.t t/dagobah*.t'
+
+Windows users who are using C<nmake> should note that due to a bug in C<nmake>,
+when specifying C<TEST_FILES> you must use back-slashes instead of forward-slashes.
+
+  nmake test TEST_FILES='t\foobar.t t\dagobah*.t'
+
+=head2 make testdb
+
+A useful variation of the above is the target C<testdb>. It runs the
+test under the Perl debugger (see L<perldebug>). If the file
+F<test.pl> exists in the current directory, it is used for the test.
+
+If you want to debug some other testfile, set the C<TEST_FILE> variable
+thusly:
+
+  make testdb TEST_FILE=t/mytest.t
+
+By default the debugger is called using C<-d> option to perl. If you
+want to specify some other option, set the C<TESTDB_SW> variable:
+
+  make testdb TESTDB_SW=-Dx
+
+=head2 make install
+
+make alone puts all relevant files into directories that are named by
+the macros INST_LIB, INST_ARCHLIB, INST_SCRIPT, INST_MAN1DIR and
+INST_MAN3DIR.  All these default to something below ./blib if you are
+I<not> building below the perl source directory. If you I<are>
+building below the perl source, INST_LIB and INST_ARCHLIB default to
+../../lib, and INST_SCRIPT is not defined.
+
+The I<install> target of the generated Makefile copies the files found
+below each of the INST_* directories to their INSTALL*
+counterparts. Which counterparts are chosen depends on the setting of
+INSTALLDIRS according to the following table:
+
+                                 INSTALLDIRS set to
+                           perl        site          vendor
+
+                 PERLPREFIX      SITEPREFIX          VENDORPREFIX
+  INST_ARCHLIB   INSTALLARCHLIB  INSTALLSITEARCH     INSTALLVENDORARCH
+  INST_LIB       INSTALLPRIVLIB  INSTALLSITELIB      INSTALLVENDORLIB
+  INST_BIN       INSTALLBIN      INSTALLSITEBIN      INSTALLVENDORBIN
+  INST_SCRIPT    INSTALLSCRIPT   INSTALLSITESCRIPT   INSTALLVENDORSCRIPT
+  INST_MAN1DIR   INSTALLMAN1DIR  INSTALLSITEMAN1DIR  INSTALLVENDORMAN1DIR
+  INST_MAN3DIR   INSTALLMAN3DIR  INSTALLSITEMAN3DIR  INSTALLVENDORMAN3DIR
+
+The INSTALL... macros in turn default to their %Config
+($Config{installprivlib}, $Config{installarchlib}, etc.) counterparts.
+
+You can check the values of these variables on your system with
+
+    perl '-V:install.*'
+
+And to check the sequence in which the library directories are
+searched by perl, run
+
+    perl -le 'print join $/, @INC'
+
+Sometimes older versions of the module you're installing live in other
+directories in @INC.  Because Perl loads the first version of a module it
+finds, not the newest, you might accidentally get one of these older
+versions even after installing a brand new version.  To delete I<all other
+versions of the module you're installing> (not simply older ones) set the
+C<UNINST> variable.
+
+    make install UNINST=1
+
+
+=head2 INSTALL_BASE
+
+INSTALL_BASE can be passed into Makefile.PL to change where your
+module will be installed.  INSTALL_BASE is more like what everyone
+else calls "prefix" than PREFIX is.
+
+To have everything installed in your home directory, do the following.
+
+    # Unix users, INSTALL_BASE=~ works fine
+    perl Makefile.PL INSTALL_BASE=/path/to/your/home/dir
+
+Like PREFIX, it sets several INSTALL* attributes at once.  Unlike
+PREFIX it is easy to predict where the module will end up.  The
+installation pattern looks like this:
+
+    INSTALLARCHLIB     INSTALL_BASE/lib/perl5/$Config{archname}
+    INSTALLPRIVLIB     INSTALL_BASE/lib/perl5
+    INSTALLBIN         INSTALL_BASE/bin
+    INSTALLSCRIPT      INSTALL_BASE/bin
+    INSTALLMAN1DIR     INSTALL_BASE/man/man1
+    INSTALLMAN3DIR     INSTALL_BASE/man/man3
+
+INSTALL_BASE in MakeMaker and C<--install_base> in Module::Build (as
+of 0.28) install to the same location.  If you want MakeMaker and
+Module::Build to install to the same location simply set INSTALL_BASE
+and C<--install_base> to the same location.
+
+INSTALL_BASE was added in 6.31.
+
+
+=head2 PREFIX and LIB attribute
+
+PREFIX and LIB can be used to set several INSTALL* attributes in one
+go.  Here's an example for installing into your home directory.
+
+    # Unix users, PREFIX=~ works fine
+    perl Makefile.PL PREFIX=/path/to/your/home/dir
+
+This will install all files in the module under your home directory,
+with man pages and libraries going into an appropriate place (usually
+~/man and ~/lib).  How the exact location is determined is complicated
+and depends on how your Perl was configured.  INSTALL_BASE works more
+like what other build systems call "prefix" than PREFIX and we
+recommend you use that instead.
+
+Another way to specify many INSTALL directories with a single
+parameter is LIB.
+
+    perl Makefile.PL LIB=~/lib
+
+This will install the module's architecture-independent files into
+~/lib, the architecture-dependent files into ~/lib/$archname.
+
+Note, that in both cases the tilde expansion is done by MakeMaker, not
+by perl by default, nor by make.
+
+Conflicts between parameters LIB, PREFIX and the various INSTALL*
+arguments are resolved so that:
+
+=over 4
+
+=item *
+
+setting LIB overrides any setting of INSTALLPRIVLIB, INSTALLARCHLIB,
+INSTALLSITELIB, INSTALLSITEARCH (and they are not affected by PREFIX);
+
+=item *
+
+without LIB, setting PREFIX replaces the initial C<$Config{prefix}>
+part of those INSTALL* arguments, even if the latter are explicitly
+set (but are set to still start with C<$Config{prefix}>).
+
+=back
+
+If the user has superuser privileges, and is not working on AFS or
+relatives, then the defaults for INSTALLPRIVLIB, INSTALLARCHLIB,
+INSTALLSCRIPT, etc. will be appropriate, and this incantation will be
+the best:
+
+    perl Makefile.PL;
+    make;
+    make test
+    make install
+
+make install by default writes some documentation of what has been
+done into the file C<$(INSTALLARCHLIB)/perllocal.pod>. This feature
+can be bypassed by calling make pure_install.
+
+=head2 AFS users
+
+will have to specify the installation directories as these most
+probably have changed since perl itself has been installed. They will
+have to do this by calling
+
+    perl Makefile.PL INSTALLSITELIB=/afs/here/today \
+        INSTALLSCRIPT=/afs/there/now INSTALLMAN3DIR=/afs/for/manpages
+    make
+
+Be careful to repeat this procedure every time you recompile an
+extension, unless you are sure the AFS installation directories are
+still valid.
+
+=head2 Static Linking of a new Perl Binary
+
+An extension that is built with the above steps is ready to use on
+systems supporting dynamic loading. On systems that do not support
+dynamic loading, any newly created extension has to be linked together
+with the available resources. MakeMaker supports the linking process
+by creating appropriate targets in the Makefile whenever an extension
+is built. You can invoke the corresponding section of the makefile with
+
+    make perl
+
+That produces a new perl binary in the current directory with all
+extensions linked in that can be found in INST_ARCHLIB, SITELIBEXP,
+and PERL_ARCHLIB. To do that, MakeMaker writes a new Makefile, on
+UNIX, this is called F<Makefile.aperl> (may be system dependent). If you
+want to force the creation of a new perl, it is recommended that you
+delete this F<Makefile.aperl>, so the directories are searched through
+for linkable libraries again.
+
+The binary can be installed into the directory where perl normally
+resides on your machine with
+
+    make inst_perl
+
+To produce a perl binary with a different name than C<perl>, either say
+
+    perl Makefile.PL MAP_TARGET=myperl
+    make myperl
+    make inst_perl
+
+or say
+
+    perl Makefile.PL
+    make myperl MAP_TARGET=myperl
+    make inst_perl MAP_TARGET=myperl
+
+In any case you will be prompted with the correct invocation of the
+C<inst_perl> target that installs the new binary into INSTALLBIN.
+
+make inst_perl by default writes some documentation of what has been
+done into the file C<$(INSTALLARCHLIB)/perllocal.pod>. This
+can be bypassed by calling make pure_inst_perl.
+
+Warning: the inst_perl: target will most probably overwrite your
+existing perl binary. Use with care!
+
+Sometimes you might want to build a statically linked perl although
+your system supports dynamic loading. In this case you may explicitly
+set the linktype with the invocation of the Makefile.PL or make:
+
+    perl Makefile.PL LINKTYPE=static    # recommended
+
+or
+
+    make LINKTYPE=static                # works on most systems
+
+=head2 Determination of Perl Library and Installation Locations
+
+MakeMaker needs to know, or to guess, where certain things are
+located.  Especially INST_LIB and INST_ARCHLIB (where to put the files
+during the make(1) run), PERL_LIB and PERL_ARCHLIB (where to read
+existing modules from), and PERL_INC (header files and C<libperl*.*>).
+
+Extensions may be built either using the contents of the perl source
+directory tree or from the installed perl library. The recommended way
+is to build extensions after you have run 'make install' on perl
+itself. You can do that in any directory on your hard disk that is not
+below the perl source tree. The support for extensions below the ext
+directory of the perl distribution is only good for the standard
+extensions that come with perl.
+
+If an extension is being built below the C<ext/> directory of the perl
+source then MakeMaker will set PERL_SRC automatically (e.g.,
+C<../..>).  If PERL_SRC is defined and the extension is recognized as
+a standard extension, then other variables default to the following:
+
+  PERL_INC     = PERL_SRC
+  PERL_LIB     = PERL_SRC/lib
+  PERL_ARCHLIB = PERL_SRC/lib
+  INST_LIB     = PERL_LIB
+  INST_ARCHLIB = PERL_ARCHLIB
+
+If an extension is being built away from the perl source then MakeMaker
+will leave PERL_SRC undefined and default to using the installed copy
+of the perl library. The other variables default to the following:
+
+  PERL_INC     = $archlibexp/CORE
+  PERL_LIB     = $privlibexp
+  PERL_ARCHLIB = $archlibexp
+  INST_LIB     = ./blib/lib
+  INST_ARCHLIB = ./blib/arch
+
+If perl has not yet been installed then PERL_SRC can be defined on the
+command line as shown in the previous section.
+
+
+=head2 Which architecture dependent directory?
+
+If you don't want to keep the defaults for the INSTALL* macros,
+MakeMaker helps you to minimize the typing needed: the usual
+relationship between INSTALLPRIVLIB and INSTALLARCHLIB is determined
+by Configure at perl compilation time. MakeMaker supports the user who
+sets INSTALLPRIVLIB. If INSTALLPRIVLIB is set, but INSTALLARCHLIB not,
+then MakeMaker defaults the latter to be the same subdirectory of
+INSTALLPRIVLIB as Configure decided for the counterparts in %Config,
+otherwise it defaults to INSTALLPRIVLIB. The same relationship holds
+for INSTALLSITELIB and INSTALLSITEARCH.
+
+MakeMaker gives you much more freedom than needed to configure
+internal variables and get different results. It is worth mentioning
+that make(1) also lets you configure most of the variables that are
+used in the Makefile. But in the majority of situations this will not
+be necessary, and should only be done if the author of a package
+recommends it (or you know what you're doing).
+
+=head2 Using Attributes and Parameters
+
+The following attributes may be specified as arguments to WriteMakefile()
+or as NAME=VALUE pairs on the command line. Attributes that became
+available with later versions of MakeMaker are indicated.
+
+In order to maintain portability of attributes with older versions of
+MakeMaker you may want to use L<App::EUMM::Upgrade> with your C<Makefile.PL>.
+
+=over 2
+
+=item ABSTRACT
+
+One line description of the module. Will be included in PPD file.
+
+=item ABSTRACT_FROM
+
+Name of the file that contains the package description. MakeMaker looks
+for a line in the POD matching /^($package\s-\s)(.*)/. This is typically
+the first line in the "=head1 NAME" section. $2 becomes the abstract.
+
+=item AUTHOR
+
+Array of strings containing name (and email address) of package author(s).
+Is used in CPAN Meta files (META.yml or META.json) and PPD
+(Perl Package Description) files for PPM (Perl Package Manager).
+
+=item BINARY_LOCATION
+
+Used when creating PPD files for binary packages.  It can be set to a
+full or relative path or URL to the binary archive for a particular
+architecture.  For example:
+
+        perl Makefile.PL BINARY_LOCATION=x86/Agent.tar.gz
+
+builds a PPD package that references a binary of the C<Agent> package,
+located in the C<x86> directory relative to the PPD itself.
+
+=item BUILD_REQUIRES
+
+Available in version 6.5503 and above.
+
+A hash of modules that are needed to build your module but not run it.
+
+This will go into the C<build_requires> field of your F<META.yml> and the C<build> of the C<prereqs> field of your F<META.json>.
+
+Defaults to C<<< { "ExtUtils::MakeMaker" => 0 } >>> if this attribute is not specified.
+
+The format is the same as PREREQ_PM.
+
+=item C
+
+Ref to array of *.c file names. Initialised from a directory scan
+and the values portion of the XS attribute hash. This is not
+currently used by MakeMaker but may be handy in Makefile.PLs.
+
+=item CCFLAGS
+
+String that will be included in the compiler call command line between
+the arguments INC and OPTIMIZE.
+
+=item CONFIG
+
+Arrayref. E.g. [qw(archname manext)] defines ARCHNAME & MANEXT from
+config.sh. MakeMaker will add to CONFIG the following values anyway:
+ar
+cc
+cccdlflags
+ccdlflags
+dlext
+dlsrc
+ld
+lddlflags
+ldflags
+libc
+lib_ext
+obj_ext
+ranlib
+sitelibexp
+sitearchexp
+so
+
+=item CONFIGURE
+
+CODE reference. The subroutine should return a hash reference. The
+hash may contain further attributes, e.g. {LIBS =E<gt> ...}, that have to
+be determined by some evaluation method.
+
+=item CONFIGURE_REQUIRES
+
+Available in version 6.52 and above.
+
+A hash of modules that are required to run Makefile.PL itself, but not
+to run your distribution.
+
+This will go into the C<configure_requires> field of your F<META.yml> and the C<configure> of the C<prereqs> field of your F<META.json>.
+
+Defaults to C<<< { "ExtUtils::MakeMaker" => 0 } >>> if this attribute is not specified.
+
+The format is the same as PREREQ_PM.
+
+=item DEFINE
+
+Something like C<"-DHAVE_UNISTD_H">
+
+=item DESTDIR
+
+This is the root directory into which the code will be installed.  It
+I<prepends itself to the normal prefix>.  For example, if your code
+would normally go into F</usr/local/lib/perl> you could set DESTDIR=~/tmp/
+and installation would go into F<~/tmp/usr/local/lib/perl>.
+
+This is primarily of use for people who repackage Perl modules.
+
+NOTE: Due to the nature of make, it is important that you put the trailing
+slash on your DESTDIR.  F<~/tmp/> not F<~/tmp>.
+
+=item DIR
+
+Ref to array of subdirectories containing Makefile.PLs e.g. ['sdbm']
+in ext/SDBM_File
+
+=item DISTNAME
+
+A safe filename for the package.
+
+Defaults to NAME below but with :: replaced with -.
+
+For example, Foo::Bar becomes Foo-Bar.
+
+=item DISTVNAME
+
+Your name for distributing the package with the version number
+included.  This is used by 'make dist' to name the resulting archive
+file.
+
+Defaults to DISTNAME-VERSION.
+
+For example, version 1.04 of Foo::Bar becomes Foo-Bar-1.04.
+
+On some OS's where . has special meaning VERSION_SYM may be used in
+place of VERSION.
+
+=item DLEXT
+
+Specifies the extension of the module's loadable object. For example:
+
+  DLEXT => 'unusual_ext', # Default value is $Config{so}
+
+NOTE: When using this option to alter the extension of a module's
+loadable object, it is also necessary that the module's pm file
+specifies the same change:
+
+  local $DynaLoader::dl_dlext = 'unusual_ext';
+
+=item DL_FUNCS
+
+Hashref of symbol names for routines to be made available as universal
+symbols.  Each key/value pair consists of the package name and an
+array of routine names in that package.  Used only under AIX, OS/2,
+VMS and Win32 at present.  The routine names supplied will be expanded
+in the same way as XSUB names are expanded by the XS() macro.
+Defaults to
+
+  {"$(NAME)" => ["boot_$(NAME)" ] }
+
+e.g.
+
+  {"RPC" => [qw( boot_rpcb rpcb_gettime getnetconfigent )],
+   "NetconfigPtr" => [ 'DESTROY'] }
+
+Please see the L<ExtUtils::Mksymlists> documentation for more information
+about the DL_FUNCS, DL_VARS and FUNCLIST attributes.
+
+=item DL_VARS
+
+Array of symbol names for variables to be made available as universal symbols.
+Used only under AIX, OS/2, VMS and Win32 at present.  Defaults to [].
+(e.g. [ qw(Foo_version Foo_numstreams Foo_tree ) ])
+
+=item EXCLUDE_EXT
+
+Array of extension names to exclude when doing a static build.  This
+is ignored if INCLUDE_EXT is present.  Consult INCLUDE_EXT for more
+details.  (e.g.  [ qw( Socket POSIX ) ] )
+
+This attribute may be most useful when specified as a string on the
+command line:  perl Makefile.PL EXCLUDE_EXT='Socket Safe'
+
+=item EXE_FILES
+
+Ref to array of executable files. The files will be copied to the
+INST_SCRIPT directory. Make realclean will delete them from there
+again.
+
+If your executables start with something like #!perl or
+#!/usr/bin/perl MakeMaker will change this to the path of the perl
+'Makefile.PL' was invoked with so the programs will be sure to run
+properly even if perl is not in /usr/bin/perl.
+
+=item FIRST_MAKEFILE
+
+The name of the Makefile to be produced.  This is used for the second
+Makefile that will be produced for the MAP_TARGET.
+
+Defaults to 'Makefile' or 'Descrip.MMS' on VMS.
+
+(Note: we couldn't use MAKEFILE because dmake uses this for something
+else).
+
+=item FULLPERL
+
+Perl binary able to run this extension, load XS modules, etc...
+
+=item FULLPERLRUN
+
+Like PERLRUN, except it uses FULLPERL.
+
+=item FULLPERLRUNINST
+
+Like PERLRUNINST, except it uses FULLPERL.
+
+=item FUNCLIST
+
+This provides an alternate means to specify function names to be
+exported from the extension.  Its value is a reference to an
+array of function names to be exported by the extension.  These
+names are passed through unaltered to the linker options file.
+
+=item H
+
+Ref to array of *.h file names. Similar to C.
+
+=item IMPORTS
+
+This attribute is used to specify names to be imported into the
+extension. Takes a hash ref.
+
+It is only used on OS/2 and Win32.
+
+=item INC
+
+Include file dirs eg: C<"-I/usr/5include -I/path/to/inc">
+
+=item INCLUDE_EXT
+
+Array of extension names to be included when doing a static build.
+MakeMaker will normally build with all of the installed extensions when
+doing a static build, and that is usually the desired behavior.  If
+INCLUDE_EXT is present then MakeMaker will build only with those extensions
+which are explicitly mentioned. (e.g.  [ qw( Socket POSIX ) ])
+
+It is not necessary to mention DynaLoader or the current extension when
+filling in INCLUDE_EXT.  If the INCLUDE_EXT is mentioned but is empty then
+only DynaLoader and the current extension will be included in the build.
+
+This attribute may be most useful when specified as a string on the
+command line:  perl Makefile.PL INCLUDE_EXT='POSIX Socket Devel::Peek'
+
+=item INSTALLARCHLIB
+
+Used by 'make install', which copies files from INST_ARCHLIB to this
+directory if INSTALLDIRS is set to perl.
+
+=item INSTALLBIN
+
+Directory to install binary files (e.g. tkperl) into if
+INSTALLDIRS=perl.
+
+=item INSTALLDIRS
+
+Determines which of the sets of installation directories to choose:
+perl, site or vendor.  Defaults to site.
+
+=item INSTALLMAN1DIR
+
+=item INSTALLMAN3DIR
+
+These directories get the man pages at 'make install' time if
+INSTALLDIRS=perl.  Defaults to $Config{installman*dir}.
+
+If set to 'none', no man pages will be installed.
+
+=item INSTALLPRIVLIB
+
+Used by 'make install', which copies files from INST_LIB to this
+directory if INSTALLDIRS is set to perl.
+
+Defaults to $Config{installprivlib}.
+
+=item INSTALLSCRIPT
+
+Used by 'make install' which copies files from INST_SCRIPT to this
+directory if INSTALLDIRS=perl.
+
+=item INSTALLSITEARCH
+
+Used by 'make install', which copies files from INST_ARCHLIB to this
+directory if INSTALLDIRS is set to site (default).
+
+=item INSTALLSITEBIN
+
+Used by 'make install', which copies files from INST_BIN to this
+directory if INSTALLDIRS is set to site (default).
+
+=item INSTALLSITELIB
+
+Used by 'make install', which copies files from INST_LIB to this
+directory if INSTALLDIRS is set to site (default).
+
+=item INSTALLSITEMAN1DIR
+
+=item INSTALLSITEMAN3DIR
+
+These directories get the man pages at 'make install' time if
+INSTALLDIRS=site (default).  Defaults to
+$(SITEPREFIX)/man/man$(MAN*EXT).
+
+If set to 'none', no man pages will be installed.
+
+=item INSTALLSITESCRIPT
+
+Used by 'make install' which copies files from INST_SCRIPT to this
+directory if INSTALLDIRS is set to site (default).
+
+=item INSTALLVENDORARCH
+
+Used by 'make install', which copies files from INST_ARCHLIB to this
+directory if INSTALLDIRS is set to vendor.
+
+=item INSTALLVENDORBIN
+
+Used by 'make install', which copies files from INST_BIN to this
+directory if INSTALLDIRS is set to vendor.
+
+=item INSTALLVENDORLIB
+
+Used by 'make install', which copies files from INST_LIB to this
+directory if INSTALLDIRS is set to vendor.
+
+=item INSTALLVENDORMAN1DIR
+
+=item INSTALLVENDORMAN3DIR
+
+These directories get the man pages at 'make install' time if
+INSTALLDIRS=vendor.  Defaults to $(VENDORPREFIX)/man/man$(MAN*EXT).
+
+If set to 'none', no man pages will be installed.
+
+=item INSTALLVENDORSCRIPT
+
+Used by 'make install' which copies files from INST_SCRIPT to this
+directory if INSTALLDIRS is set to vendor.
+
+=item INST_ARCHLIB
+
+Same as INST_LIB for architecture dependent files.
+
+=item INST_BIN
+
+Directory to put real binary files during 'make'. These will be copied
+to INSTALLBIN during 'make install'
+
+=item INST_LIB
+
+Directory where we put library files of this extension while building
+it.
+
+=item INST_MAN1DIR
+
+Directory to hold the man pages at 'make' time
+
+=item INST_MAN3DIR
+
+Directory to hold the man pages at 'make' time
+
+=item INST_SCRIPT
+
+Directory where executable files should be installed during
+'make'. Defaults to "./blib/script", just to have a dummy location during
+testing. make install will copy the files in INST_SCRIPT to
+INSTALLSCRIPT.
+
+=item LD
+
+Program to be used to link libraries for dynamic loading.
+
+Defaults to $Config{ld}.
+
+=item LDDLFLAGS
+
+Any special flags that might need to be passed to ld to create a
+shared library suitable for dynamic loading.  It is up to the makefile
+to use it.  (See L<Config/lddlflags>)
+
+Defaults to $Config{lddlflags}.
+
+=item LDFROM
+
+Defaults to "$(OBJECT)" and is used in the ld command to specify
+what files to link/load from (also see dynamic_lib below for how to
+specify ld flags)
+
+=item LIB
+
+LIB should only be set at C<perl Makefile.PL> time but is allowed as a
+MakeMaker argument. It has the effect of setting both INSTALLPRIVLIB
+and INSTALLSITELIB to that value regardless any explicit setting of
+those arguments (or of PREFIX).  INSTALLARCHLIB and INSTALLSITEARCH
+are set to the corresponding architecture subdirectory.
+
+=item LIBPERL_A
+
+The filename of the perllibrary that will be used together with this
+extension. Defaults to libperl.a.
+
+=item LIBS
+
+An anonymous array of alternative library
+specifications to be searched for (in order) until
+at least one library is found. E.g.
+
+  'LIBS' => ["-lgdbm", "-ldbm -lfoo", "-L/path -ldbm.nfs"]
+
+Mind, that any element of the array
+contains a complete set of arguments for the ld
+command. So do not specify
+
+  'LIBS' => ["-ltcl", "-ltk", "-lX11"]
+
+See ODBM_File/Makefile.PL for an example, where an array is needed. If
+you specify a scalar as in
+
+  'LIBS' => "-ltcl -ltk -lX11"
+
+MakeMaker will turn it into an array with one element.
+
+=item LICENSE
+
+Available in version 6.31 and above.
+
+The licensing terms of your distribution.  Generally it's "perl_5" for the
+same license as Perl itself.
+
+See L<CPAN::Meta::Spec> for the list of options.
+
+Defaults to "unknown".
+
+=item LINKTYPE
+
+'static' or 'dynamic' (default unless usedl=undef in
+config.sh). Should only be used to force static linking (also see
+linkext below).
+
+=item MAGICXS
+
+When this is set to C<1>, C<OBJECT> will be automagically derived from
+C<O_FILES>.
+
+=item MAKE
+
+Variant of make you intend to run the generated Makefile with.  This
+parameter lets Makefile.PL know what make quirks to account for when
+generating the Makefile.
+
+MakeMaker also honors the MAKE environment variable.  This parameter
+takes precedence.
+
+Currently the only significant values are 'dmake' and 'nmake' for Windows
+users, instructing MakeMaker to generate a Makefile in the flavour of
+DMake ("Dennis Vadura's Make") or Microsoft NMake respectively.
+
+Defaults to $Config{make}, which may go looking for a Make program
+in your environment.
+
+How are you supposed to know what flavour of Make a Makefile has
+been generated for if you didn't specify a value explicitly? Search
+the generated Makefile for the definition of the MAKE variable,
+which is used to recursively invoke the Make utility. That will tell
+you what Make you're supposed to invoke the Makefile with.
+
+=item MAKEAPERL
+
+Boolean which tells MakeMaker that it should include the rules to
+make a perl. This is handled automatically as a switch by
+MakeMaker. The user normally does not need it.
+
+=item MAKEFILE_OLD
+
+When 'make clean' or similar is run, the $(FIRST_MAKEFILE) will be
+backed up at this location.
+
+Defaults to $(FIRST_MAKEFILE).old or $(FIRST_MAKEFILE)_old on VMS.
+
+=item MAN1PODS
+
+Hashref of pod-containing files. MakeMaker will default this to all
+EXE_FILES files that include POD directives. The files listed
+here will be converted to man pages and installed as was requested
+at Configure time.
+
+This hash should map POD files (or scripts containing POD) to the
+man file names under the C<blib/man1/> directory, as in the following
+example:
+
+  MAN1PODS            => {
+    'doc/command.pod'    => 'blib/man1/command.1',
+    'scripts/script.pl'  => 'blib/man1/script.1',
+  }
+
+=item MAN3PODS
+
+Hashref that assigns to *.pm and *.pod files the files into which the
+manpages are to be written. MakeMaker parses all *.pod and *.pm files
+for POD directives. Files that contain POD will be the default keys of
+the MAN3PODS hashref. These will then be converted to man pages during
+C<make> and will be installed during C<make install>.
+
+Example similar to MAN1PODS.
+
+=item MAP_TARGET
+
+If it is intended that a new perl binary be produced, this variable
+may hold a name for that binary. Defaults to perl
+
+=item META_ADD
+
+=item META_MERGE
+
+Available in version 6.46 and above.
+
+A hashref of items to add to the CPAN Meta file (F<META.yml> or
+F<META.json>).
+
+They differ in how they behave if they have the same key as the
+default metadata.  META_ADD will override the default value with its
+own.  META_MERGE will merge its value with the default.
+
+Unless you want to override the defaults, prefer META_MERGE so as to
+get the advantage of any future defaults.
+
+Where prereqs are concerned, if META_MERGE is used, prerequisites are merged
+with their counterpart C<WriteMakefile()> argument
+(PREREQ_PM is merged into {prereqs}{runtime}{requires},
+BUILD_REQUIRES into C<{prereqs}{build}{requires}>,
+CONFIGURE_REQUIRES into C<{prereqs}{configure}{requires}>,
+and TEST_REQUIRES into C<{prereqs}{test}{requires})>.
+When prereqs are specified with META_ADD, the only prerequisites added to the
+file come from the metadata, not C<WriteMakefile()> arguments.
+
+Note that these configuration options are only used for generating F<META.yml>
+and F<META.json> -- they are NOT used for F<MYMETA.yml> and F<MYMETA.json>.
+Therefore data in these fields should NOT be used for dynamic (user-side)
+configuration.
+
+By default CPAN Meta specification C<1.4> is used. In order to use
+CPAN Meta specification C<2.0>, indicate with C<meta-spec> the version
+you want to use.
+
+  META_MERGE        => {
+
+    "meta-spec" => { version => 2 },
+
+    resources => {
+
+      repository => {
+          type => 'git',
+          url => 'git://github.com/Perl-Toolchain-Gang/ExtUtils-MakeMaker.git',
+          web => 'https://github.com/Perl-Toolchain-Gang/ExtUtils-MakeMaker',
+      },
+
+    },
+
+  },
+
+=item MIN_PERL_VERSION
+
+Available in version 6.48 and above.
+
+The minimum required version of Perl for this distribution.
+
+Either the 5.006001 or the 5.6.1 format is acceptable.
+
+=item MYEXTLIB
+
+If the extension links to a library that it builds, set this to the
+name of the library (see SDBM_File)
+
+=item NAME
+
+The package representing the distribution. For example, C<Test::More>
+or C<ExtUtils::MakeMaker>. It will be used to derive information about
+the distribution such as the L</DISTNAME>, installation locations
+within the Perl library and where XS files will be looked for by
+default (see L</XS>).
+
+C<NAME> I<must> be a valid Perl package name and it I<must> have an
+associated C<.pm> file. For example, C<Foo::Bar> is a valid C<NAME>
+and there must exist F<Foo/Bar.pm>.  Any XS code should be in
+F<Bar.xs> unless stated otherwise.
+
+Your distribution B<must> have a C<NAME>.
+
+=item NEEDS_LINKING
+
+MakeMaker will figure out if an extension contains linkable code
+anywhere down the directory tree, and will set this variable
+accordingly, but you can speed it up a very little bit if you define
+this boolean variable yourself.
+
+=item NOECHO
+
+Command so make does not print the literal commands it's running.
+
+By setting it to an empty string you can generate a Makefile that
+prints all commands. Mainly used in debugging MakeMaker itself.
+
+Defaults to C<@>.
+
+=item NORECURS
+
+Boolean.  Attribute to inhibit descending into subdirectories.
+
+=item NO_META
+
+When true, suppresses the generation and addition to the MANIFEST of
+the META.yml and META.json module meta-data files during 'make distdir'.
+
+Defaults to false.
+
+=item NO_MYMETA
+
+When true, suppresses the generation of MYMETA.yml and MYMETA.json module
+meta-data files during 'perl Makefile.PL'.
+
+Defaults to false.
+
+=item NO_PACKLIST
+
+When true, suppresses the writing of C<packlist> files for installs.
+
+Defaults to false.
+
+=item NO_PERLLOCAL
+
+When true, suppresses the appending of installations to C<perllocal>.
+
+Defaults to false.
+
+=item NO_VC
+
+In general, any generated Makefile checks for the current version of
+MakeMaker and the version the Makefile was built under. If NO_VC is
+set, the version check is neglected. Do not write this into your
+Makefile.PL, use it interactively instead.
+
+=item OBJECT
+
+List of object files, defaults to '$(BASEEXT)$(OBJ_EXT)', but can be a long
+string or an array containing all object files, e.g. "tkpBind.o
+tkpButton.o tkpCanvas.o" or ["tkpBind.o", "tkpButton.o", "tkpCanvas.o"]
+
+(Where BASEEXT is the last component of NAME, and OBJ_EXT is $Config{obj_ext}.)
+
+=item OPTIMIZE
+
+Defaults to C<-O>. Set it to C<-g> to turn debugging on. The flag is
+passed to subdirectory makes.
+
+=item PERL
+
+Perl binary for tasks that can be done by miniperl.
+
+=item PERL_CORE
+
+Set only when MakeMaker is building the extensions of the Perl core
+distribution.
+
+=item PERLMAINCC
+
+The call to the program that is able to compile perlmain.c. Defaults
+to $(CC).
+
+=item PERL_ARCHLIB
+
+Same as for PERL_LIB, but for architecture dependent files.
+
+Used only when MakeMaker is building the extensions of the Perl core
+distribution (because normally $(PERL_ARCHLIB) is automatically in @INC,
+and adding it would get in the way of PERL5LIB).
+
+=item PERL_LIB
+
+Directory containing the Perl library to use.
+
+Used only when MakeMaker is building the extensions of the Perl core
+distribution (because normally $(PERL_LIB) is automatically in @INC,
+and adding it would get in the way of PERL5LIB).
+
+=item PERL_MALLOC_OK
+
+defaults to 0.  Should be set to TRUE if the extension can work with
+the memory allocation routines substituted by the Perl malloc() subsystem.
+This should be applicable to most extensions with exceptions of those
+
+=over 4
+
+=item *
+
+with bugs in memory allocations which are caught by Perl's malloc();
+
+=item *
+
+which interact with the memory allocator in other ways than via
+malloc(), realloc(), free(), calloc(), sbrk() and brk();
+
+=item *
+
+which rely on special alignment which is not provided by Perl's malloc().
+
+=back
+
+B<NOTE.>  Neglecting to set this flag in I<any one> of the loaded extension
+nullifies many advantages of Perl's malloc(), such as better usage of
+system resources, error detection, memory usage reporting, catchable failure
+of memory allocations, etc.
+
+=item PERLPREFIX
+
+Directory under which core modules are to be installed.
+
+Defaults to $Config{installprefixexp}, falling back to
+$Config{installprefix}, $Config{prefixexp} or $Config{prefix} should
+$Config{installprefixexp} not exist.
+
+Overridden by PREFIX.
+
+=item PERLRUN
+
+Use this instead of $(PERL) when you wish to run perl.  It will set up
+extra necessary flags for you.
+
+=item PERLRUNINST
+
+Use this instead of $(PERL) when you wish to run perl to work with
+modules.  It will add things like -I$(INST_ARCH) and other necessary
+flags so perl can see the modules you're about to install.
+
+=item PERL_SRC
+
+Directory containing the Perl source code (use of this should be
+avoided, it may be undefined)
+
+=item PERM_DIR
+
+Desired permission for directories. Defaults to C<755>.
+
+=item PERM_RW
+
+Desired permission for read/writable files. Defaults to C<644>.
+
+=item PERM_RWX
+
+Desired permission for executable files. Defaults to C<755>.
+
+=item PL_FILES
+
+MakeMaker can run programs to generate files for you at build time.
+By default any file named *.PL (except Makefile.PL and Build.PL) in
+the top level directory will be assumed to be a Perl program and run
+passing its own basename in as an argument.  For example...
+
+    perl foo.PL foo
+
+This behavior can be overridden by supplying your own set of files to
+search.  PL_FILES accepts a hash ref, the key being the file to run
+and the value is passed in as the first argument when the PL file is run.
+
+    PL_FILES => {'bin/foobar.PL' => 'bin/foobar'}
+
+Would run bin/foobar.PL like this:
+
+    perl bin/foobar.PL bin/foobar
+
+If multiple files from one program are desired an array ref can be used.
+
+    PL_FILES => {'bin/foobar.PL' => [qw(bin/foobar1 bin/foobar2)]}
+
+In this case the program will be run multiple times using each target file.
+
+    perl bin/foobar.PL bin/foobar1
+    perl bin/foobar.PL bin/foobar2
+
+PL files are normally run B<after> pm_to_blib and include INST_LIB and
+INST_ARCH in their C<@INC>, so the just built modules can be
+accessed... unless the PL file is making a module (or anything else in
+PM) in which case it is run B<before> pm_to_blib and does not include
+INST_LIB and INST_ARCH in its C<@INC>.  This apparently odd behavior
+is there for backwards compatibility (and it's somewhat DWIM).
+
+
+=item PM
+
+Hashref of .pm files and *.pl files to be installed.  e.g.
+
+  {'name_of_file.pm' => '$(INST_LIB)/install_as.pm'}
+
+By default this will include *.pm and *.pl and the files found in
+the PMLIBDIRS directories.  Defining PM in the
+Makefile.PL will override PMLIBDIRS.
+
+=item PMLIBDIRS
+
+Ref to array of subdirectories containing library files.  Defaults to
+[ 'lib', $(BASEEXT) ]. The directories will be scanned and I<any> files
+they contain will be installed in the corresponding location in the
+library.  A libscan() method can be used to alter the behaviour.
+Defining PM in the Makefile.PL will override PMLIBDIRS.
+
+(Where BASEEXT is the last component of NAME.)
+
+=item PM_FILTER
+
+A filter program, in the traditional Unix sense (input from stdin, output
+to stdout) that is passed on each .pm file during the build (in the
+pm_to_blib() phase).  It is empty by default, meaning no filtering is done.
+
+Great care is necessary when defining the command if quoting needs to be
+done.  For instance, you would need to say:
+
+  {'PM_FILTER' => 'grep -v \\"^\\#\\"'}
+
+to remove all the leading comments on the fly during the build.  The
+extra \\ are necessary, unfortunately, because this variable is interpolated
+within the context of a Perl program built on the command line, and double
+quotes are what is used with the -e switch to build that command line.  The
+# is escaped for the Makefile, since what is going to be generated will then
+be:
+
+  PM_FILTER = grep -v \"^\#\"
+
+Without the \\ before the #, we'd have the start of a Makefile comment,
+and the macro would be incorrectly defined.
+
+=item POLLUTE
+
+Release 5.005 grandfathered old global symbol names by providing preprocessor
+macros for extension source compatibility.  As of release 5.6, these
+preprocessor definitions are not available by default.  The POLLUTE flag
+specifies that the old names should still be defined:
+
+  perl Makefile.PL POLLUTE=1
+
+Please inform the module author if this is necessary to successfully install
+a module under 5.6 or later.
+
+=item PPM_INSTALL_EXEC
+
+Name of the executable used to run C<PPM_INSTALL_SCRIPT> below. (e.g. perl)
+
+=item PPM_INSTALL_SCRIPT
+
+Name of the script that gets executed by the Perl Package Manager after
+the installation of a package.
+
+=item PPM_UNINSTALL_EXEC
+
+Name of the executable used to run C<PPM_UNINSTALL_SCRIPT> below. (e.g. perl)
+
+=item PPM_UNINSTALL_SCRIPT
+
+Name of the script that gets executed by the Perl Package Manager before
+the removal of a package.
+
+=item PREFIX
+
+This overrides all the default install locations.  Man pages,
+libraries, scripts, etc...  MakeMaker will try to make an educated
+guess about where to place things under the new PREFIX based on your
+Config defaults.  Failing that, it will fall back to a structure
+which should be sensible for your platform.
+
+If you specify LIB or any INSTALL* variables they will not be affected
+by the PREFIX.
+
+=item PREREQ_FATAL
+
+Bool. If this parameter is true, failing to have the required modules
+(or the right versions thereof) will be fatal. C<perl Makefile.PL>
+will C<die> instead of simply informing the user of the missing dependencies.
+
+It is I<extremely> rare to have to use C<PREREQ_FATAL>. Its use by module
+authors is I<strongly discouraged> and should never be used lightly.
+
+For dependencies that are required in order to run C<Makefile.PL>,
+see C<CONFIGURE_REQUIRES>.
+
+Module installation tools have ways of resolving unmet dependencies but
+to do that they need a F<Makefile>.  Using C<PREREQ_FATAL> breaks this.
+That's bad.
+
+Assuming you have good test coverage, your tests should fail with
+missing dependencies informing the user more strongly that something
+is wrong.  You can write a F<t/00compile.t> test which will simply
+check that your code compiles and stop "make test" prematurely if it
+doesn't.  See L<Test::More/BAIL_OUT> for more details.
+
+
+=item PREREQ_PM
+
+A hash of modules that are needed to run your module.  The keys are
+the module names ie. Test::More, and the minimum version is the
+value. If the required version number is 0 any version will do.
+
+This will go into the C<requires> field of your F<META.yml> and the C<runtime> of the C<prereqs> field of your F<META.json>.
+
+    PREREQ_PM => {
+        # Require Test::More at least 0.47
+        "Test::More" => "0.47",
+
+        # Require any version of Acme::Buffy
+        "Acme::Buffy" => 0,
+    }
+
+=item PREREQ_PRINT
+
+Bool.  If this parameter is true, the prerequisites will be printed to
+stdout and MakeMaker will exit.  The output format is an evalable hash
+ref.
+
+  $PREREQ_PM = {
+                 'A::B' => Vers1,
+                 'C::D' => Vers2,
+                 ...
+               };
+
+If a distribution defines a minimal required perl version, this is
+added to the output as an additional line of the form:
+
+  $MIN_PERL_VERSION = '5.008001';
+
+If BUILD_REQUIRES is not empty, it will be dumped as $BUILD_REQUIRES hashref.
+
+=item PRINT_PREREQ
+
+RedHatism for C<PREREQ_PRINT>.  The output format is different, though:
+
+    perl(A::B)>=Vers1 perl(C::D)>=Vers2 ...
+
+A minimal required perl version, if present, will look like this:
+
+    perl(perl)>=5.008001
+
+=item SITEPREFIX
+
+Like PERLPREFIX, but only for the site install locations.
+
+Defaults to $Config{siteprefixexp}.  Perls prior to 5.6.0 didn't have
+an explicit siteprefix in the Config.  In those cases
+$Config{installprefix} will be used.
+
+Overridable by PREFIX
+
+=item SIGN
+
+When true, perform the generation and addition to the MANIFEST of the
+SIGNATURE file in the distdir during 'make distdir', via 'cpansign
+-s'.
+
+Note that you need to install the Module::Signature module to
+perform this operation.
+
+Defaults to false.
+
+=item SKIP
+
+Arrayref. E.g. [qw(name1 name2)] skip (do not write) sections of the
+Makefile. Caution! Do not use the SKIP attribute for the negligible
+speedup. It may seriously damage the resulting Makefile. Only use it
+if you really need it.
+
+=item TEST_REQUIRES
+
+Available in version 6.64 and above.
+
+A hash of modules that are needed to test your module but not run or
+build it.
+
+This will go into the C<build_requires> field of your F<META.yml> and the C<test> of the C<prereqs> field of your F<META.json>.
+
+The format is the same as PREREQ_PM.
+
+=item TYPEMAPS
+
+Ref to array of typemap file names.  Use this when the typemaps are
+in some directory other than the current directory or when they are
+not named B<typemap>.  The last typemap in the list takes
+precedence.  A typemap in the current directory has highest
+precedence, even if it isn't listed in TYPEMAPS.  The default system
+typemap has lowest precedence.
+
+=item VENDORPREFIX
+
+Like PERLPREFIX, but only for the vendor install locations.
+
+Defaults to $Config{vendorprefixexp}.
+
+Overridable by PREFIX
+
+=item VERBINST
+
+If true, make install will be verbose
+
+=item VERSION
+
+Your version number for distributing the package.  This defaults to
+0.1.
+
+=item VERSION_FROM
+
+Instead of specifying the VERSION in the Makefile.PL you can let
+MakeMaker parse a file to determine the version number. The parsing
+routine requires that the file named by VERSION_FROM contains one
+single line to compute the version number. The first line in the file
+that contains something like a $VERSION assignment or C<package Name
+VERSION> will be used. The following lines will be parsed o.k.:
+
+    # Good
+    package Foo::Bar 1.23;                      # 1.23
+    $VERSION   = '1.00';                        # 1.00
+    *VERSION   = \'1.01';                       # 1.01
+    ($VERSION) = q$Revision$ =~ /(\d+)/g;       # The digits in $Revision$
+    $FOO::VERSION = '1.10';                     # 1.10
+    *FOO::VERSION = \'1.11';                    # 1.11
+
+but these will fail:
+
+    # Bad
+    my $VERSION         = '1.01';
+    local $VERSION      = '1.02';
+    local $FOO::VERSION = '1.30';
+
+(Putting C<my> or C<local> on the preceding line will work o.k.)
+
+"Version strings" are incompatible and should not be used.
+
+    # Bad
+    $VERSION = 1.2.3;
+    $VERSION = v1.2.3;
+
+L<version> objects are fine.  As of MakeMaker 6.35 version.pm will be
+automatically loaded, but you must declare the dependency on version.pm.
+For compatibility with older MakeMaker you should load on the same line
+as $VERSION is declared.
+
+    # All on one line
+    use version; our $VERSION = qv(1.2.3);
+
+The file named in VERSION_FROM is not added as a dependency to
+Makefile. This is not really correct, but it would be a major pain
+during development to have to rewrite the Makefile for any smallish
+change in that file. If you want to make sure that the Makefile
+contains the correct VERSION macro after any change of the file, you
+would have to do something like
+
+    depend => { Makefile => '$(VERSION_FROM)' }
+
+See attribute C<depend> below.
+
+=item VERSION_SYM
+
+A sanitized VERSION with . replaced by _.  For places where . has
+special meaning (some filesystems, RCS labels, etc...)
+
+=item XS
+
+Hashref of .xs files. MakeMaker will default this.  e.g.
+
+  {'name_of_file.xs' => 'name_of_file.c'}
+
+The .c files will automatically be included in the list of files
+deleted by a make clean.
+
+=item XSOPT
+
+String of options to pass to xsubpp.  This might include C<-C++> or
+C<-extern>.  Do not include typemaps here; the TYPEMAP parameter exists for
+that purpose.
+
+=item XSPROTOARG
+
+May be set to C<-protoypes>, C<-noprototypes> or the empty string.  The
+empty string is equivalent to the xsubpp default, or C<-noprototypes>.
+See the xsubpp documentation for details.  MakeMaker
+defaults to the empty string.
+
+=item XS_VERSION
+
+Your version number for the .xs file of this package.  This defaults
+to the value of the VERSION attribute.
+
+=back
+
+=head2 Additional lowercase attributes
+
+can be used to pass parameters to the methods which implement that
+part of the Makefile.  Parameters are specified as a hash ref but are
+passed to the method as a hash.
+
+=over 2
+
+=item clean
+
+  {FILES => "*.xyz foo"}
+
+=item depend
+
+  {ANY_TARGET => ANY_DEPENDENCY, ...}
+
+(ANY_TARGET must not be given a double-colon rule by MakeMaker.)
+
+=item dist
+
+  {TARFLAGS => 'cvfF', COMPRESS => 'gzip', SUFFIX => '.gz',
+  SHAR => 'shar -m', DIST_CP => 'ln', ZIP => '/bin/zip',
+  ZIPFLAGS => '-rl', DIST_DEFAULT => 'private tardist' }
+
+If you specify COMPRESS, then SUFFIX should also be altered, as it is
+needed to tell make the target file of the compression. Setting
+DIST_CP to ln can be useful, if you need to preserve the timestamps on
+your files. DIST_CP can take the values 'cp', which copies the file,
+'ln', which links the file, and 'best' which copies symbolic links and
+links the rest. Default is 'best'.
+
+=item dynamic_lib
+
+  {ARMAYBE => 'ar', OTHERLDFLAGS => '...', INST_DYNAMIC_DEP => '...'}
+
+=item linkext
+
+  {LINKTYPE => 'static', 'dynamic' or ''}
+
+NB: Extensions that have nothing but *.pm files had to say
+
+  {LINKTYPE => ''}
+
+with Pre-5.0 MakeMakers. Since version 5.00 of MakeMaker such a line
+can be deleted safely. MakeMaker recognizes when there's nothing to
+be linked.
+
+=item macro
+
+  {ANY_MACRO => ANY_VALUE, ...}
+
+=item postamble
+
+Anything put here will be passed to MY::postamble() if you have one.
+
+=item realclean
+
+  {FILES => '$(INST_ARCHAUTODIR)/*.xyz'}
+
+=item test
+
+Specify the targets for testing.
+
+  {TESTS => 't/*.t'}
+
+C<RECURSIVE_TEST_FILES> can be used to include all directories
+recursively under C<t> that contain C<.t> files. It will be ignored if
+you provide your own C<TESTS> attribute, defaults to false.
+
+  {RECURSIVE_TEST_FILES=>1}
+
+=item tool_autosplit
+
+  {MAXLEN => 8}
+
+=back
+
+=head2 Overriding MakeMaker Methods
+
+If you cannot achieve the desired Makefile behaviour by specifying
+attributes you may define private subroutines in the Makefile.PL.
+Each subroutine returns the text it wishes to have written to
+the Makefile. To override a section of the Makefile you can
+either say:
+
+        sub MY::c_o { "new literal text" }
+
+or you can edit the default by saying something like:
+
+        package MY; # so that "SUPER" works right
+        sub c_o {
+            my $inherited = shift->SUPER::c_o(@_);
+            $inherited =~ s/old text/new text/;
+            $inherited;
+        }
+
+If you are running experiments with embedding perl as a library into
+other applications, you might find MakeMaker is not sufficient. You'd
+better have a look at ExtUtils::Embed which is a collection of utilities
+for embedding.
+
+If you still need a different solution, try to develop another
+subroutine that fits your needs and submit the diffs to
+C<makemaker@perl.org>
+
+For a complete description of all MakeMaker methods see
+L<ExtUtils::MM_Unix>.
+
+Here is a simple example of how to add a new target to the generated
+Makefile:
+
+    sub MY::postamble {
+        return <<'MAKE_FRAG';
+    $(MYEXTLIB): sdbm/Makefile
+            cd sdbm && $(MAKE) all
+
+    MAKE_FRAG
+    }
+
+=head2 The End Of Cargo Cult Programming
+
+WriteMakefile() now does some basic sanity checks on its parameters to
+protect against typos and malformatted values.  This means some things
+which happened to work in the past will now throw warnings and
+possibly produce internal errors.
+
+Some of the most common mistakes:
+
+=over 2
+
+=item C<< MAN3PODS => ' ' >>
+
+This is commonly used to suppress the creation of man pages.  MAN3PODS
+takes a hash ref not a string, but the above worked by accident in old
+versions of MakeMaker.
+
+The correct code is C<< MAN3PODS => { } >>.
+
+=back
+
+
+=head2 Hintsfile support
+
+MakeMaker.pm uses the architecture-specific information from
+Config.pm. In addition it evaluates architecture specific hints files
+in a C<hints/> directory. The hints files are expected to be named
+like their counterparts in C<PERL_SRC/hints>, but with an C<.pl> file
+name extension (eg. C<next_3_2.pl>). They are simply C<eval>ed by
+MakeMaker within the WriteMakefile() subroutine, and can be used to
+execute commands as well as to include special variables. The rules
+which hintsfile is chosen are the same as in Configure.
+
+The hintsfile is eval()ed immediately after the arguments given to
+WriteMakefile are stuffed into a hash reference $self but before this
+reference becomes blessed. So if you want to do the equivalent to
+override or create an attribute you would say something like
+
+    $self->{LIBS} = ['-ldbm -lucb -lc'];
+
+=head2 Distribution Support
+
+For authors of extensions MakeMaker provides several Makefile
+targets. Most of the support comes from the ExtUtils::Manifest module,
+where additional documentation can be found.
+
+=over 4
+
+=item    make distcheck
+
+reports which files are below the build directory but not in the
+MANIFEST file and vice versa. (See ExtUtils::Manifest::fullcheck() for
+details)
+
+=item    make skipcheck
+
+reports which files are skipped due to the entries in the
+C<MANIFEST.SKIP> file (See ExtUtils::Manifest::skipcheck() for
+details)
+
+=item    make distclean
+
+does a realclean first and then the distcheck. Note that this is not
+needed to build a new distribution as long as you are sure that the
+MANIFEST file is ok.
+
+=item    make veryclean
+
+does a realclean first and then removes backup files such as C<*~>,
+C<*.bak>, C<*.old> and C<*.orig>
+
+=item    make manifest
+
+rewrites the MANIFEST file, adding all remaining files found (See
+ExtUtils::Manifest::mkmanifest() for details)
+
+=item    make distdir
+
+Copies all the files that are in the MANIFEST file to a newly created
+directory with the name C<$(DISTNAME)-$(VERSION)>. If that directory
+exists, it will be removed first.
+
+Additionally, it will create META.yml and META.json module meta-data file
+in the distdir and add this to the distdir's MANIFEST.  You can shut this
+behavior off with the NO_META flag.
+
+=item   make disttest
+
+Makes a distdir first, and runs a C<perl Makefile.PL>, a make, and
+a make test in that directory.
+
+=item    make tardist
+
+First does a distdir. Then a command $(PREOP) which defaults to a null
+command, followed by $(TO_UNIX), which defaults to a null command under
+UNIX, and will convert files in distribution directory to UNIX format
+otherwise. Next it runs C<tar> on that directory into a tarfile and
+deletes the directory. Finishes with a command $(POSTOP) which
+defaults to a null command.
+
+=item    make dist
+
+Defaults to $(DIST_DEFAULT) which in turn defaults to tardist.
+
+=item    make uutardist
+
+Runs a tardist first and uuencodes the tarfile.
+
+=item    make shdist
+
+First does a distdir. Then a command $(PREOP) which defaults to a null
+command. Next it runs C<shar> on that directory into a sharfile and
+deletes the intermediate directory again. Finishes with a command
+$(POSTOP) which defaults to a null command.  Note: For shdist to work
+properly a C<shar> program that can handle directories is mandatory.
+
+=item    make zipdist
+
+First does a distdir. Then a command $(PREOP) which defaults to a null
+command. Runs C<$(ZIP) $(ZIPFLAGS)> on that directory into a
+zipfile. Then deletes that directory. Finishes with a command
+$(POSTOP) which defaults to a null command.
+
+=item    make ci
+
+Does a $(CI) and a $(RCS_LABEL) on all files in the MANIFEST file.
+
+=back
+
+Customization of the dist targets can be done by specifying a hash
+reference to the dist attribute of the WriteMakefile call. The
+following parameters are recognized:
+
+    CI           ('ci -u')
+    COMPRESS     ('gzip --best')
+    POSTOP       ('@ :')
+    PREOP        ('@ :')
+    TO_UNIX      (depends on the system)
+    RCS_LABEL    ('rcs -q -Nv$(VERSION_SYM):')
+    SHAR         ('shar')
+    SUFFIX       ('.gz')
+    TAR          ('tar')
+    TARFLAGS     ('cvf')
+    ZIP          ('zip')
+    ZIPFLAGS     ('-r')
+
+An example:
+
+    WriteMakefile(
+        ...other options...
+        dist => {
+            COMPRESS => "bzip2",
+            SUFFIX   => ".bz2"
+        }
+    );
+
+
+=head2 Module Meta-Data (META and MYMETA)
+
+Long plaguing users of MakeMaker based modules has been the problem of
+getting basic information about the module out of the sources
+I<without> running the F<Makefile.PL> and doing a bunch of messy
+heuristics on the resulting F<Makefile>.  Over the years, it has become
+standard to keep this information in one or more CPAN Meta files
+distributed with each distribution.
+
+The original format of CPAN Meta files was L<YAML> and the corresponding
+file was called F<META.yml>.  In 2010, version 2 of the L<CPAN::Meta::Spec>
+was released, which mandates JSON format for the metadata in order to
+overcome certain compatibility issues between YAML serializers and to
+avoid breaking older clients unable to handle a new version of the spec.
+The L<CPAN::Meta> library is now standard for accessing old and new-style
+Meta files.
+
+If L<CPAN::Meta> is installed, MakeMaker will automatically generate
+F<META.json> and F<META.yml> files for you and add them to your F<MANIFEST> as
+part of the 'distdir' target (and thus the 'dist' target).  This is intended to
+seamlessly and rapidly populate CPAN with module meta-data.  If you wish to
+shut this feature off, set the C<NO_META> C<WriteMakefile()> flag to true.
+
+At the 2008 QA Hackathon in Oslo, Perl module toolchain maintainers agrees
+to use the CPAN Meta format to communicate post-configuration requirements
+between toolchain components.  These files, F<MYMETA.json> and F<MYMETA.yml>,
+are generated when F<Makefile.PL> generates a F<Makefile> (if L<CPAN::Meta>
+is installed).  Clients like L<CPAN> or L<CPANPLUS> will read this
+files to see what prerequisites must be fulfilled before building or testing
+the distribution.  If you with to shut this feature off, set the C<NO_MYMETA>
+C<WriteMakeFile()> flag to true.
+
+=head2 Disabling an extension
+
+If some events detected in F<Makefile.PL> imply that there is no way
+to create the Module, but this is a normal state of things, then you
+can create a F<Makefile> which does nothing, but succeeds on all the
+"usual" build targets.  To do so, use
+
+    use ExtUtils::MakeMaker qw(WriteEmptyMakefile);
+    WriteEmptyMakefile();
+
+instead of WriteMakefile().
+
+This may be useful if other modules expect this module to be I<built>
+OK, as opposed to I<work> OK (say, this system-dependent module builds
+in a subdirectory of some other distribution, or is listed as a
+dependency in a CPAN::Bundle, but the functionality is supported by
+different means on the current architecture).
+
+=head2 Other Handy Functions
+
+=over 4
+
+=item prompt
+
+    my $value = prompt($message);
+    my $value = prompt($message, $default);
+
+The C<prompt()> function provides an easy way to request user input
+used to write a makefile.  It displays the $message as a prompt for
+input.  If a $default is provided it will be used as a default.  The
+function returns the $value selected by the user.
+
+If C<prompt()> detects that it is not running interactively and there
+is nothing on STDIN or if the PERL_MM_USE_DEFAULT environment variable
+is set to true, the $default will be used without prompting.  This
+prevents automated processes from blocking on user input.
+
+If no $default is provided an empty string will be used instead.
+
+=back
+
+=head2 Supported versions of Perl
+
+Please note that while this module works on Perl 5.6, it is no longer
+being routinely tested on 5.6 - the earliest Perl version being routinely
+tested, and expressly supported, is 5.8.1. However, patches to repair
+any breakage on 5.6 are still being accepted.
+
+=head1 ENVIRONMENT
+
+=over 4
+
+=item PERL_MM_OPT
+
+Command line options used by C<MakeMaker-E<gt>new()>, and thus by
+C<WriteMakefile()>.  The string is split as the shell would, and the result
+is processed before any actual command line arguments are processed.
+
+  PERL_MM_OPT='CCFLAGS="-Wl,-rpath -Wl,/foo/bar/lib" LIBS="-lwibble -lwobble"'
+
+=item PERL_MM_USE_DEFAULT
+
+If set to a true value then MakeMaker's prompt function will
+always return the default without waiting for user input.
+
+=item PERL_CORE
+
+Same as the PERL_CORE parameter.  The parameter overrides this.
+
+=back
+
+=head1 SEE ALSO
+
+L<Module::Build> is a pure-Perl alternative to MakeMaker which does
+not rely on make or any other external utility.  It is easier to
+extend to suit your needs.
+
+L<Module::Install> is a wrapper around MakeMaker which adds features
+not normally available.
+
+L<ExtUtils::ModuleMaker> and L<Module::Starter> are both modules to
+help you setup your distribution.
+
+L<CPAN::Meta> and L<CPAN::Meta::Spec> explain CPAN Meta files in detail.
+
+L<File::ShareDir::Install> makes it easy to install static, sometimes
+also referred to as 'shared' files. L<File::ShareDir> helps accessing
+the shared files after installation.
+
+L<Dist::Zilla> makes it easy for the module author to create MakeMaker-based
+distributions with lots of bells and whistles.
+
+=head1 AUTHORS
+
+Andy Dougherty C<doughera@lafayette.edu>, Andreas KE<ouml>nig
+C<andreas.koenig@mind.de>, Tim Bunce C<timb@cpan.org>.  VMS
+support by Charles Bailey C<bailey@newman.upenn.edu>.  OS/2 support
+by Ilya Zakharevich C<ilya@math.ohio-state.edu>.
+
+Currently maintained by Michael G Schwern C<schwern@pobox.com>
+
+Send patches and ideas to C<makemaker@perl.org>.
+
+Send bug reports via http://rt.cpan.org/.  Please send your
+generated Makefile along with your report.
+
+For more up-to-date information, see L<https://metacpan.org/release/ExtUtils-MakeMaker>.
+
+Repository available at L<https://github.com/Perl-Toolchain-Gang/ExtUtils-MakeMaker>.
+
+=head1 LICENSE
+
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+See L<http://www.perl.com/perl/misc/Artistic.html>
+
+
+=cut
diff --git a/lib/5.24.1/ExtUtils/MakeMaker/Config.pm b/lib/5.24.1/ExtUtils/MakeMaker/Config.pm
new file mode 100644
index 00000000..707e3bf7
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/MakeMaker/Config.pm
@@ -0,0 +1,39 @@
+package ExtUtils::MakeMaker::Config;
+
+use strict;
+
+our $VERSION = '7.10_02';
+
+use Config ();
+
+# Give us an overridable config.
+our %Config = %Config::Config;
+
+sub import {
+    my $caller = caller;
+
+    no strict 'refs';   ## no critic
+    *{$caller.'::Config'} = \%Config;
+}
+
+1;
+
+
+=head1 NAME
+
+ExtUtils::MakeMaker::Config - Wrapper around Config.pm
+
+
+=head1 SYNOPSIS
+
+  use ExtUtils::MakeMaker::Config;
+  print $Config{installbin};  # or whatever
+
+
+=head1 DESCRIPTION
+
+B<FOR INTERNAL USE ONLY>
+
+A very thin wrapper around Config.pm so MakeMaker is easier to test.
+
+=cut
diff --git a/lib/5.24.1/ExtUtils/MakeMaker/FAQ.pod b/lib/5.24.1/ExtUtils/MakeMaker/FAQ.pod
new file mode 100644
index 00000000..d3aa100f
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/MakeMaker/FAQ.pod
@@ -0,0 +1,464 @@
+package ExtUtils::MakeMaker::FAQ;
+
+our $VERSION = '7.10_01';
+
+1;
+__END__
+
+=head1 NAME
+
+ExtUtils::MakeMaker::FAQ - Frequently Asked Questions About MakeMaker
+
+=head1 DESCRIPTION
+
+FAQs, tricks and tips for C<ExtUtils::MakeMaker>.
+
+
+=head2 Module Installation
+
+=over 4
+
+=item How do I install a module into my home directory?
+
+If you're not the Perl administrator you probably don't have
+permission to install a module to its default location.  Then you
+should install it for your own use into your home directory like so:
+
+    # Non-unix folks, replace ~ with /path/to/your/home/dir
+    perl Makefile.PL INSTALL_BASE=~
+
+This will put modules into F<~/lib/perl5>, man pages into F<~/man> and
+programs into F<~/bin>.
+
+To ensure your Perl programs can see these newly installed modules,
+set your C<PERL5LIB> environment variable to F<~/lib/perl5> or tell
+each of your programs to look in that directory with the following:
+
+    use lib "$ENV{HOME}/lib/perl5";
+
+or if $ENV{HOME} isn't set and you don't want to set it for some
+reason, do it the long way.
+
+    use lib "/path/to/your/home/dir/lib/perl5";
+
+
+=item How do I get MakeMaker and Module::Build to install to the same place?
+
+Module::Build, as of 0.28, supports two ways to install to the same
+location as MakeMaker.
+
+We highly recommend the install_base method, its the simplest and most
+closely approximates the expected behavior of an installation prefix.
+
+1) Use INSTALL_BASE / C<--install_base>
+
+MakeMaker (as of 6.31) and Module::Build (as of 0.28) both can install
+to the same locations using the "install_base" concept.  See
+L<ExtUtils::MakeMaker/INSTALL_BASE> for details.  To get MM and MB to
+install to the same location simply set INSTALL_BASE in MM and
+C<--install_base> in MB to the same location.
+
+    perl Makefile.PL INSTALL_BASE=/whatever
+    perl Build.PL    --install_base /whatever
+
+This works most like other language's behavior when you specify a
+prefix.  We recommend this method.
+
+2) Use PREFIX / C<--prefix>
+
+Module::Build 0.28 added support for C<--prefix> which works like
+MakeMaker's PREFIX.
+
+    perl Makefile.PL PREFIX=/whatever
+    perl Build.PL    --prefix /whatever
+
+We highly discourage this method.  It should only be used if you know
+what you're doing and specifically need the PREFIX behavior.  The
+PREFIX algorithm is complicated and focused on matching the system
+installation.
+
+=item How do I keep from installing man pages?
+
+Recent versions of MakeMaker will only install man pages on Unix-like
+operating systems.
+
+For an individual module:
+
+        perl Makefile.PL INSTALLMAN1DIR=none INSTALLMAN3DIR=none
+
+If you want to suppress man page installation for all modules you have
+to reconfigure Perl and tell it 'none' when it asks where to install
+man pages.
+
+
+=item How do I use a module without installing it?
+
+Two ways.  One is to build the module normally...
+
+        perl Makefile.PL
+        make
+        make test
+
+...and then set the PERL5LIB environment variable to point at the
+blib/lib and blib/arch directories.
+
+The other is to install the module in a temporary location.
+
+        perl Makefile.PL INSTALL_BASE=~/tmp
+        make
+        make test
+        make install
+
+And then set PERL5LIB to F<~/tmp/lib/perl5>.  This works well when you
+have multiple modules to work with.  It also ensures that the module
+goes through its full installation process which may modify it.
+
+=item PREFIX vs INSTALL_BASE from Module::Build::Cookbook
+
+The behavior of PREFIX is complicated and depends closely on how your
+Perl is configured. The resulting installation locations will vary from
+machine to machine and even different installations of Perl on the same machine.
+Because of this, its difficult to document where prefix will place your modules.
+
+In contrast, INSTALL_BASE has predictable, easy to explain installation locations.
+Now that Module::Build and MakeMaker both have INSTALL_BASE there is little reason
+to use PREFIX other than to preserve your existing installation locations. If you
+are starting a fresh Perl installation we encourage you to use INSTALL_BASE. If
+you have an existing installation installed via PREFIX, consider moving it to an
+installation structure matching INSTALL_BASE and using that instead.
+
+=back
+
+=head2 Common errors and problems
+
+=over 4
+
+=item "No rule to make target `/usr/lib/perl5/CORE/config.h', needed by `Makefile'"
+
+Just what it says, you're missing that file.  MakeMaker uses it to
+determine if perl has been rebuilt since the Makefile was made.  It's
+a bit of a bug that it halts installation.
+
+Some operating systems don't ship the CORE directory with their base
+perl install.  To solve the problem, you likely need to install a perl
+development package such as perl-devel (CentOS, Fedora and other
+Redhat systems) or perl (Ubuntu and other Debian systems).
+
+=back
+
+=head2 Philosophy and History
+
+=over 4
+
+=item Why not just use <insert other build config tool here>?
+
+Why did MakeMaker reinvent the build configuration wheel?  Why not
+just use autoconf or automake or ppm or Ant or ...
+
+There are many reasons, but the major one is cross-platform
+compatibility.
+
+Perl is one of the most ported pieces of software ever.  It works on
+operating systems I've never even heard of (see perlport for details).
+It needs a build tool that can work on all those platforms and with
+any wacky C compilers and linkers they might have.
+
+No such build tool exists.  Even make itself has wildly different
+dialects.  So we have to build our own.
+
+
+=item What is Module::Build and how does it relate to MakeMaker?
+
+Module::Build is a project by Ken Williams to supplant MakeMaker.
+Its primary advantages are:
+
+=over 8
+
+=item * pure perl.  no make, no shell commands
+
+=item * easier to customize
+
+=item * cleaner internals
+
+=item * less cruft
+
+=back
+
+Module::Build was long the official heir apparent to MakeMaker.  The rate of
+both its development and adoption has slowed in recent years, though, and it is
+unclear what the future holds for it.  That said, Module::Build set the stage
+for I<something> to become the heir to MakeMaker.  MakeMaker's maintainers have
+long said that it is a dead end and should be kept functioning, but not
+extended with new features.  It's complicated enough as it is!
+
+=back
+
+
+=head2 Module Writing
+
+=over 4
+
+=item How do I keep my $VERSION up to date without resetting it manually?
+
+Often you want to manually set the $VERSION in the main module
+distribution because this is the version that everybody sees on CPAN
+and maybe you want to customize it a bit.  But for all the other
+modules in your dist, $VERSION is really just bookkeeping and all that's
+important is it goes up every time the module is changed.  Doing this
+by hand is a pain and you often forget.
+
+Simplest way to do it automatically is to use your version control
+system's revision number (you are using version control, right?).
+
+In CVS, RCS and SVN you use $Revision$ (see the documentation of your
+version control system for details).  Every time the file is checked
+in the $Revision$ will be updated, updating your $VERSION.
+
+SVN uses a simple integer for $Revision$ so you can adapt it for your
+$VERSION like so:
+
+    ($VERSION) = q$Revision$ =~ /(\d+)/;
+
+In CVS and RCS version 1.9 is followed by 1.10.  Since CPAN compares
+version numbers numerically we use a sprintf() to convert 1.9 to 1.009
+and 1.10 to 1.010 which compare properly.
+
+    $VERSION = sprintf "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/g;
+
+If branches are involved (ie. $Revision: 1.5.3.4$) it's a little more
+complicated.
+
+    # must be all on one line or MakeMaker will get confused.
+    $VERSION = do { my @r = (q$Revision$ =~ /\d+/g); sprintf "%d."."%03d" x $#r, @r };
+
+In SVN, $Revision$ should be the same for every file in the project so
+they would all have the same $VERSION.  CVS and RCS have a different
+$Revision$ per file so each file will have a different $VERSION.
+Distributed version control systems, such as SVK, may have a different
+$Revision$ based on who checks out the file, leading to a different $VERSION
+on each machine!  Finally, some distributed version control systems, such
+as darcs, have no concept of revision number at all.
+
+
+=item What's this F<META.yml> thing and how did it get in my F<MANIFEST>?!
+
+F<META.yml> is a module meta-data file pioneered by Module::Build and
+automatically generated as part of the 'distdir' target (and thus
+'dist').  See L<ExtUtils::MakeMaker/"Module Meta-Data">.
+
+To shut off its generation, pass the C<NO_META> flag to C<WriteMakefile()>.
+
+
+=item How do I delete everything not in my F<MANIFEST>?
+
+Some folks are surprised that C<make distclean> does not delete
+everything not listed in their MANIFEST (thus making a clean
+distribution) but only tells them what they need to delete.  This is
+done because it is considered too dangerous.  While developing your
+module you might write a new file, not add it to the MANIFEST, then
+run a C<distclean> and be sad because your new work was deleted.
+
+If you really want to do this, you can use
+C<ExtUtils::Manifest::manifind()> to read the MANIFEST and File::Find
+to delete the files.  But you have to be careful.  Here's a script to
+do that.  Use at your own risk.  Have fun blowing holes in your foot.
+
+    #!/usr/bin/perl -w
+
+    use strict;
+
+    use File::Spec;
+    use File::Find;
+    use ExtUtils::Manifest qw(maniread);
+
+    my %manifest = map  {( $_ => 1 )}
+                   grep { File::Spec->canonpath($_) }
+                        keys %{ maniread() };
+
+    if( !keys %manifest ) {
+        print "No files found in MANIFEST.  Stopping.\n";
+        exit;
+    }
+
+    find({
+          wanted   => sub {
+              my $path = File::Spec->canonpath($_);
+
+              return unless -f $path;
+              return if exists $manifest{ $path };
+
+              print "unlink $path\n";
+              unlink $path;
+          },
+          no_chdir => 1
+         },
+         "."
+    );
+
+
+=item Which tar should I use on Windows?
+
+We recommend ptar from Archive::Tar not older than 1.66 with '-C' option.
+
+=item Which zip should I use on Windows for '[nd]make zipdist'?
+
+We recommend InfoZIP: L<http://www.info-zip.org/Zip.html>
+
+
+=back
+
+=head2 XS
+
+=over 4
+
+=item How do I prevent "object version X.XX does not match bootstrap parameter Y.YY" errors?
+
+XS code is very sensitive to the module version number and will
+complain if the version number in your Perl module doesn't match.  If
+you change your module's version # without rerunning Makefile.PL the old
+version number will remain in the Makefile, causing the XS code to be built
+with the wrong number.
+
+To avoid this, you can force the Makefile to be rebuilt whenever you
+change the module containing the version number by adding this to your
+WriteMakefile() arguments.
+
+    depend => { '$(FIRST_MAKEFILE)' => '$(VERSION_FROM)' }
+
+
+=item How do I make two or more XS files coexist in the same directory?
+
+Sometimes you need to have two and more XS files in the same package.
+One way to go is to put them into separate directories, but sometimes
+this is not the most suitable solution. The following technique allows
+you to put two (and more) XS files in the same directory.
+
+Let's assume that we have a package C<Cool::Foo>, which includes
+C<Cool::Foo> and C<Cool::Bar> modules each having a separate XS
+file. First we use the following I<Makefile.PL>:
+
+  use ExtUtils::MakeMaker;
+
+  WriteMakefile(
+      NAME		=> 'Cool::Foo',
+      VERSION_FROM	=> 'Foo.pm',
+      OBJECT              => q/$(O_FILES)/,
+      # ... other attrs ...
+  );
+
+Notice the C<OBJECT> attribute. MakeMaker generates the following
+variables in I<Makefile>:
+
+  # Handy lists of source code files:
+  XS_FILES= Bar.xs \
+  	Foo.xs
+  C_FILES = Bar.c \
+  	Foo.c
+  O_FILES = Bar.o \
+  	Foo.o
+
+Therefore we can use the C<O_FILES> variable to tell MakeMaker to use
+these objects into the shared library.
+
+That's pretty much it. Now write I<Foo.pm> and I<Foo.xs>, I<Bar.pm>
+and I<Bar.xs>, where I<Foo.pm> bootstraps the shared library and
+I<Bar.pm> simply loading I<Foo.pm>.
+
+The only issue left is to how to bootstrap I<Bar.xs>. This is done
+from I<Foo.xs>:
+
+  MODULE = Cool::Foo PACKAGE = Cool::Foo
+
+  BOOT:
+  # boot the second XS file
+  boot_Cool__Bar(aTHX_ cv);
+
+If you have more than two files, this is the place where you should
+boot extra XS files from.
+
+The following four files sum up all the details discussed so far.
+
+  Foo.pm:
+  -------
+  package Cool::Foo;
+
+  require DynaLoader;
+
+  our @ISA = qw(DynaLoader);
+  our $VERSION = '0.01';
+  bootstrap Cool::Foo $VERSION;
+
+  1;
+
+  Bar.pm:
+  -------
+  package Cool::Bar;
+
+  use Cool::Foo; # bootstraps Bar.xs
+
+  1;
+
+  Foo.xs:
+  -------
+  #include "EXTERN.h"
+  #include "perl.h"
+  #include "XSUB.h"
+
+  MODULE = Cool::Foo  PACKAGE = Cool::Foo
+
+  BOOT:
+  # boot the second XS file
+  boot_Cool__Bar(aTHX_ cv);
+
+  MODULE = Cool::Foo  PACKAGE = Cool::Foo  PREFIX = cool_foo_
+
+  void
+  cool_foo_perl_rules()
+
+      CODE:
+      fprintf(stderr, "Cool::Foo says: Perl Rules\n");
+
+  Bar.xs:
+  -------
+  #include "EXTERN.h"
+  #include "perl.h"
+  #include "XSUB.h"
+
+  MODULE = Cool::Bar  PACKAGE = Cool::Bar PREFIX = cool_bar_
+
+  void
+  cool_bar_perl_rules()
+
+      CODE:
+      fprintf(stderr, "Cool::Bar says: Perl Rules\n");
+
+And of course a very basic test:
+
+  t/cool.t:
+  --------
+  use Test;
+  BEGIN { plan tests => 1 };
+  use Cool::Foo;
+  use Cool::Bar;
+  Cool::Foo::perl_rules();
+  Cool::Bar::perl_rules();
+  ok 1;
+
+This tip has been brought to you by Nick Ing-Simmons and Stas Bekman.
+
+=back
+
+=head1 PATCHING
+
+If you have a question you'd like to see added to the FAQ (whether or
+not you have the answer) please send it to makemaker@perl.org.
+
+=head1 AUTHOR
+
+The denizens of makemaker@perl.org.
+
+=head1 SEE ALSO
+
+L<ExtUtils::MakeMaker>
+
+=cut
diff --git a/lib/5.24.1/ExtUtils/MakeMaker/Locale.pm b/lib/5.24.1/ExtUtils/MakeMaker/Locale.pm
new file mode 100644
index 00000000..68fcd4c5
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/MakeMaker/Locale.pm
@@ -0,0 +1,376 @@
+package ExtUtils::MakeMaker::Locale;
+
+use strict;
+our $VERSION = "7.10";
+
+use base 'Exporter';
+our @EXPORT_OK = qw(
+    decode_argv env
+    $ENCODING_LOCALE $ENCODING_LOCALE_FS
+    $ENCODING_CONSOLE_IN $ENCODING_CONSOLE_OUT
+);
+
+use Encode ();
+use Encode::Alias ();
+
+our $ENCODING_LOCALE;
+our $ENCODING_LOCALE_FS;
+our $ENCODING_CONSOLE_IN;
+our $ENCODING_CONSOLE_OUT;
+
+sub DEBUG () { 0 }
+
+sub _init {
+    if ($^O eq "MSWin32") {
+	unless ($ENCODING_LOCALE) {
+	    # Try to obtain what the Windows ANSI code page is
+	    eval {
+		unless (defined &GetConsoleCP) {
+		    require Win32;
+                    # no point falling back to Win32::GetConsoleCP from this
+                    # as added same time, 0.45
+                    eval { Win32::GetConsoleCP() };
+                    # manually "import" it since Win32->import refuses
+		    *GetConsoleCP = sub { &Win32::GetConsoleCP } unless $@;
+		}
+		unless (defined &GetConsoleCP) {
+		    require Win32::API;
+		    Win32::API->Import('kernel32', 'int GetConsoleCP()');
+		}
+		if (defined &GetConsoleCP) {
+		    my $cp = GetConsoleCP();
+		    $ENCODING_LOCALE = "cp$cp" if $cp;
+		}
+	    };
+	}
+
+	unless ($ENCODING_CONSOLE_IN) {
+            # only test one since set together
+            unless (defined &GetInputCP) {
+                eval {
+                    require Win32;
+                    eval { Win32::GetConsoleCP() };
+                    # manually "import" it since Win32->import refuses
+                    *GetInputCP = sub { &Win32::GetConsoleCP } unless $@;
+                    *GetOutputCP = sub { &Win32::GetConsoleOutputCP } unless $@;
+                };
+                unless (defined &GetInputCP) {
+                    eval {
+                        # try Win32::Console module for codepage to use
+                        require Win32::Console;
+                        eval { Win32::Console::InputCP() };
+                        *GetInputCP = sub { &Win32::Console::InputCP }
+                            unless $@;
+                        *GetOutputCP = sub { &Win32::Console::OutputCP }
+                            unless $@;
+                    };
+                }
+                unless (defined &GetInputCP) {
+                    # final fallback
+                    *GetInputCP = *GetOutputCP = sub {
+                        # another fallback that could work is:
+                        # reg query HKLM\System\CurrentControlSet\Control\Nls\CodePage /v ACP
+                        ((qx(chcp) || '') =~ /^Active code page: (\d+)/)
+                            ? $1 : ();
+                    };
+                }
+	    }
+            my $cp = GetInputCP();
+            $ENCODING_CONSOLE_IN = "cp$cp" if $cp;
+            $cp = GetOutputCP();
+            $ENCODING_CONSOLE_OUT = "cp$cp" if $cp;
+	}
+    }
+
+    unless ($ENCODING_LOCALE) {
+	eval {
+	    require I18N::Langinfo;
+	    $ENCODING_LOCALE = I18N::Langinfo::langinfo(I18N::Langinfo::CODESET());
+
+	    # Workaround of Encode < v2.25.  The "646" encoding  alias was
+	    # introduced in Encode-2.25, but we don't want to require that version
+	    # quite yet.  Should avoid the CPAN testers failure reported from
+	    # openbsd-4.7/perl-5.10.0 combo.
+	    $ENCODING_LOCALE = "ascii" if $ENCODING_LOCALE eq "646";
+
+	    # https://rt.cpan.org/Ticket/Display.html?id=66373
+	    $ENCODING_LOCALE = "hp-roman8" if $^O eq "hpux" && $ENCODING_LOCALE eq "roman8";
+	};
+	$ENCODING_LOCALE ||= $ENCODING_CONSOLE_IN;
+    }
+
+    if ($^O eq "darwin") {
+	$ENCODING_LOCALE_FS ||= "UTF-8";
+    }
+
+    # final fallback
+    $ENCODING_LOCALE ||= $^O eq "MSWin32" ? "cp1252" : "UTF-8";
+    $ENCODING_LOCALE_FS ||= $ENCODING_LOCALE;
+    $ENCODING_CONSOLE_IN ||= $ENCODING_LOCALE;
+    $ENCODING_CONSOLE_OUT ||= $ENCODING_CONSOLE_IN;
+
+    unless (Encode::find_encoding($ENCODING_LOCALE)) {
+	my $foundit;
+	if (lc($ENCODING_LOCALE) eq "gb18030") {
+	    eval {
+		require Encode::HanExtra;
+	    };
+	    if ($@) {
+		die "Need Encode::HanExtra to be installed to support locale codeset ($ENCODING_LOCALE), stopped";
+	    }
+	    $foundit++ if Encode::find_encoding($ENCODING_LOCALE);
+	}
+	die "The locale codeset ($ENCODING_LOCALE) isn't one that perl can decode, stopped"
+	    unless $foundit;
+
+    }
+
+    # use Data::Dump; ddx $ENCODING_LOCALE, $ENCODING_LOCALE_FS, $ENCODING_CONSOLE_IN, $ENCODING_CONSOLE_OUT;
+}
+
+_init();
+Encode::Alias::define_alias(sub {
+    no strict 'refs';
+    no warnings 'once';
+    return ${"ENCODING_" . uc(shift)};
+}, "locale");
+
+sub _flush_aliases {
+    no strict 'refs';
+    for my $a (keys %Encode::Alias::Alias) {
+	if (defined ${"ENCODING_" . uc($a)}) {
+	    delete $Encode::Alias::Alias{$a};
+	    warn "Flushed alias cache for $a" if DEBUG;
+	}
+    }
+}
+
+sub reinit {
+    $ENCODING_LOCALE = shift;
+    $ENCODING_LOCALE_FS = shift;
+    $ENCODING_CONSOLE_IN = $ENCODING_LOCALE;
+    $ENCODING_CONSOLE_OUT = $ENCODING_LOCALE;
+    _init();
+    _flush_aliases();
+}
+
+sub decode_argv {
+    die if defined wantarray;
+    for (@ARGV) {
+	$_ = Encode::decode(locale => $_, @_);
+    }
+}
+
+sub env {
+    my $k = Encode::encode(locale => shift);
+    my $old = $ENV{$k};
+    if (@_) {
+	my $v = shift;
+	if (defined $v) {
+	    $ENV{$k} = Encode::encode(locale => $v);
+	}
+	else {
+	    delete $ENV{$k};
+	}
+    }
+    return Encode::decode(locale => $old) if defined wantarray;
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+ExtUtils::MakeMaker::Locale - bundled Encode::Locale
+
+=head1 SYNOPSIS
+
+  use Encode::Locale;
+  use Encode;
+
+  $string = decode(locale => $bytes);
+  $bytes = encode(locale => $string);
+
+  if (-t) {
+      binmode(STDIN, ":encoding(console_in)");
+      binmode(STDOUT, ":encoding(console_out)");
+      binmode(STDERR, ":encoding(console_out)");
+  }
+
+  # Processing file names passed in as arguments
+  my $uni_filename = decode(locale => $ARGV[0]);
+  open(my $fh, "<", encode(locale_fs => $uni_filename))
+     || die "Can't open '$uni_filename': $!";
+  binmode($fh, ":encoding(locale)");
+  ...
+
+=head1 DESCRIPTION
+
+In many applications it's wise to let Perl use Unicode for the strings it
+processes.  Most of the interfaces Perl has to the outside world are still byte
+based.  Programs therefore need to decode byte strings that enter the program
+from the outside and encode them again on the way out.
+
+The POSIX locale system is used to specify both the language conventions
+requested by the user and the preferred character set to consume and
+output.  The C<Encode::Locale> module looks up the charset and encoding (called
+a CODESET in the locale jargon) and arranges for the L<Encode> module to know
+this encoding under the name "locale".  It means bytes obtained from the
+environment can be converted to Unicode strings by calling C<<
+Encode::encode(locale => $bytes) >> and converted back again with C<<
+Encode::decode(locale => $string) >>.
+
+Where file systems interfaces pass file names in and out of the program we also
+need care.  The trend is for operating systems to use a fixed file encoding
+that don't actually depend on the locale; and this module determines the most
+appropriate encoding for file names. The L<Encode> module will know this
+encoding under the name "locale_fs".  For traditional Unix systems this will
+be an alias to the same encoding as "locale".
+
+For programs running in a terminal window (called a "Console" on some systems)
+the "locale" encoding is usually a good choice for what to expect as input and
+output.  Some systems allows us to query the encoding set for the terminal and
+C<Encode::Locale> will do that if available and make these encodings known
+under the C<Encode> aliases "console_in" and "console_out".  For systems where
+we can't determine the terminal encoding these will be aliased as the same
+encoding as "locale".  The advice is to use "console_in" for input known to
+come from the terminal and "console_out" for output to the terminal.
+
+In addition to arranging for various Encode aliases the following functions and
+variables are provided:
+
+=over
+
+=item decode_argv( )
+
+=item decode_argv( Encode::FB_CROAK )
+
+This will decode the command line arguments to perl (the C<@ARGV> array) in-place.
+
+The function will by default replace characters that can't be decoded by
+"\x{FFFD}", the Unicode replacement character.
+
+Any argument provided is passed as CHECK to underlying Encode::decode() call.
+Pass the value C<Encode::FB_CROAK> to have the decoding croak if not all the
+command line arguments can be decoded.  See L<Encode/"Handling Malformed Data">
+for details on other options for CHECK.
+
+=item env( $uni_key )
+
+=item env( $uni_key => $uni_value )
+
+Interface to get/set environment variables.  Returns the current value as a
+Unicode string. The $uni_key and $uni_value arguments are expected to be
+Unicode strings as well.  Passing C<undef> as $uni_value deletes the
+environment variable named $uni_key.
+
+The returned value will have the characters that can't be decoded replaced by
+"\x{FFFD}", the Unicode replacement character.
+
+There is no interface to request alternative CHECK behavior as for
+decode_argv().  If you need that you need to call encode/decode yourself.
+For example:
+
+    my $key = Encode::encode(locale => $uni_key, Encode::FB_CROAK);
+    my $uni_value = Encode::decode(locale => $ENV{$key}, Encode::FB_CROAK);
+
+=item reinit( )
+
+=item reinit( $encoding )
+
+Reinitialize the encodings from the locale.  You want to call this function if
+you changed anything in the environment that might influence the locale.
+
+This function will croak if the determined encoding isn't recognized by
+the Encode module.
+
+With argument force $ENCODING_... variables to set to the given value.
+
+=item $ENCODING_LOCALE
+
+The encoding name determined to be suitable for the current locale.
+L<Encode> know this encoding as "locale".
+
+=item $ENCODING_LOCALE_FS
+
+The encoding name determined to be suitable for file system interfaces
+involving file names.
+L<Encode> know this encoding as "locale_fs".
+
+=item $ENCODING_CONSOLE_IN
+
+=item $ENCODING_CONSOLE_OUT
+
+The encodings to be used for reading and writing output to the a console.
+L<Encode> know these encodings as "console_in" and "console_out".
+
+=back
+
+=head1 NOTES
+
+This table summarizes the mapping of the encodings set up
+by the C<Encode::Locale> module:
+
+  Encode      |         |              |
+  Alias       | Windows | Mac OS X     | POSIX
+  ------------+---------+--------------+------------
+  locale      | ANSI    | nl_langinfo  | nl_langinfo
+  locale_fs   | ANSI    | UTF-8        | nl_langinfo
+  console_in  | OEM     | nl_langinfo  | nl_langinfo
+  console_out | OEM     | nl_langinfo  | nl_langinfo
+
+=head2 Windows
+
+Windows has basically 2 sets of APIs.  A wide API (based on passing UTF-16
+strings) and a byte based API based a character set called ANSI.  The
+regular Perl interfaces to the OS currently only uses the ANSI APIs.
+Unfortunately ANSI is not a single character set.
+
+The encoding that corresponds to ANSI varies between different editions of
+Windows.  For many western editions of Windows ANSI corresponds to CP-1252
+which is a character set similar to ISO-8859-1.  Conceptually the ANSI
+character set is a similar concept to the POSIX locale CODESET so this module
+figures out what the ANSI code page is and make this available as
+$ENCODING_LOCALE and the "locale" Encoding alias.
+
+Windows systems also operate with another byte based character set.
+It's called the OEM code page.  This is the encoding that the Console
+takes as input and output.  It's common for the OEM code page to
+differ from the ANSI code page.
+
+=head2 Mac OS X
+
+On Mac OS X the file system encoding is always UTF-8 while the locale
+can otherwise be set up as normal for POSIX systems.
+
+File names on Mac OS X will at the OS-level be converted to
+NFD-form.  A file created by passing a NFC-filename will come
+in NFD-form from readdir().  See L<Unicode::Normalize> for details
+of NFD/NFC.
+
+Actually, Apple does not follow the Unicode NFD standard since not all
+character ranges are decomposed.  The claim is that this avoids problems with
+round trip conversions from old Mac text encodings.  See L<Encode::UTF8Mac> for
+details.
+
+=head2 POSIX (Linux and other Unixes)
+
+File systems might vary in what encoding is to be used for
+filenames.  Since this module has no way to actually figure out
+what the is correct it goes with the best guess which is to
+assume filenames are encoding according to the current locale.
+Users are advised to always specify UTF-8 as the locale charset.
+
+=head1 SEE ALSO
+
+L<I18N::Langinfo>, L<Encode>, L<Term::Encoding>
+
+=head1 AUTHOR
+
+Copyright 2010 Gisle Aas <gisle@aas.no>.
+
+This library is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+=cut
diff --git a/lib/5.24.1/ExtUtils/MakeMaker/Tutorial.pod b/lib/5.24.1/ExtUtils/MakeMaker/Tutorial.pod
new file mode 100644
index 00000000..7e53baa5
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/MakeMaker/Tutorial.pod
@@ -0,0 +1,180 @@
+package ExtUtils::MakeMaker::Tutorial;
+
+our $VERSION = '7.10_01';
+
+
+=head1 NAME
+
+ExtUtils::MakeMaker::Tutorial - Writing a module with MakeMaker
+
+=head1 SYNOPSIS
+
+    use ExtUtils::MakeMaker;
+
+    WriteMakefile(
+        NAME            => 'Your::Module',
+        VERSION_FROM    => 'lib/Your/Module.pm'
+    );
+
+=head1 DESCRIPTION
+
+This is a short tutorial on writing a simple module with MakeMaker.
+It's really not that hard.
+
+
+=head2 The Mantra
+
+MakeMaker modules are installed using this simple mantra
+
+        perl Makefile.PL
+        make
+        make test
+        make install
+
+There are lots more commands and options, but the above will do it.
+
+
+=head2 The Layout
+
+The basic files in a module look something like this.
+
+        Makefile.PL
+        MANIFEST
+        lib/Your/Module.pm
+
+That's all that's strictly necessary.  There's additional files you might
+want:
+
+        lib/Your/Other/Module.pm
+        t/some_test.t
+        t/some_other_test.t
+        Changes
+        README
+        INSTALL
+        MANIFEST.SKIP
+        bin/some_program
+
+=over 4
+
+=item Makefile.PL
+
+When you run Makefile.PL, it makes a Makefile.  That's the whole point of
+MakeMaker.  The Makefile.PL is a simple program which loads
+ExtUtils::MakeMaker and runs the WriteMakefile() function to generate a
+Makefile.
+
+Here's an example of what you need for a simple module:
+
+    use ExtUtils::MakeMaker;
+
+    WriteMakefile(
+        NAME            => 'Your::Module',
+        VERSION_FROM    => 'lib/Your/Module.pm'
+    );
+
+NAME is the top-level namespace of your module.  VERSION_FROM is the file
+which contains the $VERSION variable for the entire distribution.  Typically
+this is the same as your top-level module.
+
+
+=item MANIFEST
+
+A simple listing of all the files in your distribution.
+
+        Makefile.PL
+        MANIFEST
+        lib/Your/Module.pm
+
+File paths in a MANIFEST always use Unix conventions (ie. /) even if you're
+not on Unix.
+
+You can write this by hand or generate it with 'make manifest'.
+
+See L<ExtUtils::Manifest> for more details.
+
+
+=item lib/
+
+This is the directory where the .pm and .pod files you wish to have
+installed go.  They are laid out according to namespace.  So Foo::Bar
+is F<lib/Foo/Bar.pm>.
+
+
+=item t/
+
+Tests for your modules go here.  Each test filename ends with a .t.
+So F<t/foo.t>/  'make test' will run these tests.  The directory is flat,
+you cannot, for example, have t/foo/bar.t run by 'make test'.
+
+Tests are run from the top level of your distribution.  So inside a test
+you would refer to ./lib to enter the lib directory, for example.
+
+
+=item Changes
+
+A log of changes you've made to this module.  The layout is free-form.
+Here's an example:
+
+    1.01 Fri Apr 11 00:21:25 PDT 2003
+        - thing() does some stuff now
+        - fixed the wiggy bug in withit()
+
+    1.00 Mon Apr  7 00:57:15 PDT 2003
+        - "Rain of Frogs" now supported
+
+
+=item README
+
+A short description of your module, what it does, why someone would use it
+and its limitations.  CPAN automatically pulls your README file out of
+the archive and makes it available to CPAN users, it is the first thing
+they will read to decide if your module is right for them.
+
+
+=item INSTALL
+
+Instructions on how to install your module along with any dependencies.
+Suggested information to include here:
+
+    any extra modules required for use
+    the minimum version of Perl required
+    if only works on certain operating systems
+
+
+=item MANIFEST.SKIP
+
+A file full of regular expressions to exclude when using 'make
+manifest' to generate the MANIFEST.  These regular expressions
+are checked against each file path found in the distribution (so
+you're matching against "t/foo.t" not "foo.t").
+
+Here's a sample:
+
+    ~$          # ignore emacs and vim backup files
+    .bak$       # ignore manual backups
+    \#          # ignore CVS old revision files and emacs temp files
+
+Since # can be used for comments, # must be escaped.
+
+MakeMaker comes with a default MANIFEST.SKIP to avoid things like
+version control directories and backup files.  Specifying your own
+will override this default.
+
+
+=item bin/
+
+
+=back
+
+=head1 SEE ALSO
+
+L<perlmodstyle> gives stylistic help writing a module.
+
+L<perlnewmod> gives more information about how to write a module.
+
+There are modules to help you through the process of writing a module:
+L<ExtUtils::ModuleMaker>, L<Module::Install>, L<PAR>
+
+=cut
+
+1;
diff --git a/lib/5.24.1/ExtUtils/MakeMaker/version.pm b/lib/5.24.1/ExtUtils/MakeMaker/version.pm
new file mode 100644
index 00000000..35cd2ab9
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/MakeMaker/version.pm
@@ -0,0 +1,55 @@
+#--------------------------------------------------------------------------#
+# This is a modified copy of version.pm 0.9909, bundled exclusively for
+# use by ExtUtils::Makemaker and its dependencies to bootstrap when
+# version.pm is not available.  It should not be used by ordinary modules.
+#
+# When loaded, it will try to load version.pm.  If that fails, it will load
+# ExtUtils::MakeMaker::version::vpp and alias various *version functions
+# to functions in that module.  It will also override UNIVERSAL::VERSION.
+#--------------------------------------------------------------------------#
+
+package ExtUtils::MakeMaker::version;
+
+use 5.006002;
+use strict;
+
+use vars qw(@ISA $VERSION $CLASS $STRICT $LAX *declare *qv);
+
+$VERSION = '7.10_01';
+$CLASS = 'version';
+
+{
+    local $SIG{'__DIE__'};
+    eval "use version";
+    if ( $@ ) { # don't have any version.pm installed
+        eval "use ExtUtils::MakeMaker::version::vpp";
+        die "$@" if ( $@ );
+        local $^W;
+        delete $INC{'version.pm'};
+        $INC{'version.pm'} = $INC{'ExtUtils/MakeMaker/version.pm'};
+        push @version::ISA, "ExtUtils::MakeMaker::version::vpp";
+        $version::VERSION = $VERSION;
+        *version::qv = \&ExtUtils::MakeMaker::version::vpp::qv;
+        *version::declare = \&ExtUtils::MakeMaker::version::vpp::declare;
+        *version::_VERSION = \&ExtUtils::MakeMaker::version::vpp::_VERSION;
+        *version::vcmp = \&ExtUtils::MakeMaker::version::vpp::vcmp;
+        *version::new = \&ExtUtils::MakeMaker::version::vpp::new;
+        if ($] >= 5.009000) {
+            no strict 'refs';
+            *version::stringify = \&ExtUtils::MakeMaker::version::vpp::stringify;
+            *{'version::(""'} = \&ExtUtils::MakeMaker::version::vpp::stringify;
+            *{'version::(<=>'} = \&ExtUtils::MakeMaker::version::vpp::vcmp;
+            *version::parse = \&ExtUtils::MakeMaker::version::vpp::parse;
+        }
+        require ExtUtils::MakeMaker::version::regex;
+        *version::is_lax = \&ExtUtils::MakeMaker::version::regex::is_lax;
+        *version::is_strict = \&ExtUtils::MakeMaker::version::regex::is_strict;
+        *LAX = \$ExtUtils::MakeMaker::version::regex::LAX;
+        *STRICT = \$ExtUtils::MakeMaker::version::regex::STRICT;
+    }
+    elsif ( ! version->can('is_qv') ) {
+        *version::is_qv = sub { exists $_[0]->{qv} };
+    }
+}
+
+1;
diff --git a/lib/5.24.1/ExtUtils/Manifest.pm b/lib/5.24.1/ExtUtils/Manifest.pm
new file mode 100644
index 00000000..4163c933
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/Manifest.pm
@@ -0,0 +1,911 @@
+package ExtUtils::Manifest;
+
+require Exporter;
+use Config;
+use File::Basename;
+use File::Copy 'copy';
+use File::Find;
+use File::Spec 0.8;
+use Carp;
+use strict;
+use warnings;
+
+our $VERSION = '1.70';
+our @ISA = ('Exporter');
+our @EXPORT_OK = qw(mkmanifest
+                manicheck  filecheck  fullcheck  skipcheck
+                manifind   maniread   manicopy   maniadd
+                maniskip
+               );
+
+our $Is_MacOS = $^O eq 'MacOS';
+our $Is_VMS   = $^O eq 'VMS';
+our $Is_VMS_mode = 0;
+our $Is_VMS_lc = 0;
+our $Is_VMS_nodot = 0;  # No dots in dir names or double dots in files
+
+if ($Is_VMS) {
+    require VMS::Filespec if $Is_VMS;
+    my $vms_unix_rpt;
+    my $vms_efs;
+    my $vms_case;
+
+    $Is_VMS_mode = 1;
+    $Is_VMS_lc = 1;
+    $Is_VMS_nodot = 1;
+    if (eval { local $SIG{__DIE__}; require VMS::Feature; }) {
+        $vms_unix_rpt = VMS::Feature::current("filename_unix_report");
+        $vms_efs = VMS::Feature::current("efs_charset");
+        $vms_case = VMS::Feature::current("efs_case_preserve");
+    } else {
+        my $unix_rpt = $ENV{'DECC$FILENAME_UNIX_REPORT'} || '';
+        my $efs_charset = $ENV{'DECC$EFS_CHARSET'} || '';
+        my $efs_case = $ENV{'DECC$EFS_CASE_PRESERVE'} || '';
+        $vms_unix_rpt = $unix_rpt =~ /^[ET1]/i;
+        $vms_efs = $efs_charset =~ /^[ET1]/i;
+        $vms_case = $efs_case =~ /^[ET1]/i;
+    }
+    $Is_VMS_lc = 0 if ($vms_case);
+    $Is_VMS_mode = 0 if ($vms_unix_rpt);
+    $Is_VMS_nodot = 0 if ($vms_efs);
+}
+
+our $Debug   = $ENV{PERL_MM_MANIFEST_DEBUG} || 0;
+our $Verbose = defined $ENV{PERL_MM_MANIFEST_VERBOSE} ?
+                   $ENV{PERL_MM_MANIFEST_VERBOSE} : 1;
+our $Quiet = 0;
+our $MANIFEST = 'MANIFEST';
+
+our $DEFAULT_MSKIP = File::Spec->catfile( dirname(__FILE__), "$MANIFEST.SKIP" );
+
+
+=head1 NAME
+
+ExtUtils::Manifest - utilities to write and check a MANIFEST file
+
+=head1 VERSION
+
+version 1.70
+
+=head1 SYNOPSIS
+
+    use ExtUtils::Manifest qw(...funcs to import...);
+
+    mkmanifest();
+
+    my @missing_files    = manicheck;
+    my @skipped          = skipcheck;
+    my @extra_files      = filecheck;
+    my($missing, $extra) = fullcheck;
+
+    my $found    = manifind();
+
+    my $manifest = maniread();
+
+    manicopy($read,$target);
+
+    maniadd({$file => $comment, ...});
+
+
+=head1 DESCRIPTION
+
+=head2 Functions
+
+ExtUtils::Manifest exports no functions by default.  The following are
+exported on request
+
+=over 4
+
+=item mkmanifest
+
+    mkmanifest();
+
+Writes all files in and below the current directory to your F<MANIFEST>.
+It works similar to the result of the Unix command
+
+    find . > MANIFEST
+
+All files that match any regular expression in a file F<MANIFEST.SKIP>
+(if it exists) are ignored.
+
+Any existing F<MANIFEST> file will be saved as F<MANIFEST.bak>.
+
+=cut
+
+sub _sort {
+    return sort { lc $a cmp lc $b } @_;
+}
+
+sub mkmanifest {
+    my $manimiss = 0;
+    my $read = (-r 'MANIFEST' && maniread()) or $manimiss++;
+    $read = {} if $manimiss;
+    local *M;
+    my $bakbase = $MANIFEST;
+    $bakbase =~ s/\./_/g if $Is_VMS_nodot; # avoid double dots
+    rename $MANIFEST, "$bakbase.bak" unless $manimiss;
+    open M, "> $MANIFEST" or die "Could not open $MANIFEST: $!";
+    binmode M, ':raw';
+    my $skip = maniskip();
+    my $found = manifind();
+    my($key,$val,$file,%all);
+    %all = (%$found, %$read);
+    $all{$MANIFEST} = ($Is_VMS_mode ? "$MANIFEST\t\t" : '') .
+                     'This list of files'
+        if $manimiss; # add new MANIFEST to known file list
+    foreach $file (_sort keys %all) {
+	if ($skip->($file)) {
+	    # Policy: only remove files if they're listed in MANIFEST.SKIP.
+	    # Don't remove files just because they don't exist.
+	    warn "Removed from $MANIFEST: $file\n" if $Verbose and exists $read->{$file};
+	    next;
+	}
+	if ($Verbose){
+	    warn "Added to $MANIFEST: $file\n" unless exists $read->{$file};
+	}
+	my $text = $all{$file};
+	$file = _unmacify($file);
+	my $tabs = (5 - (length($file)+1)/8);
+	$tabs = 1 if $tabs < 1;
+	$tabs = 0 unless $text;
+        if ($file =~ /\s/) {
+            $file =~ s/([\\'])/\\$1/g;
+            $file = "'$file'";
+        }
+	print M $file, "\t" x $tabs, $text, "\n";
+    }
+    close M;
+}
+
+# Geez, shouldn't this use File::Spec or File::Basename or something?
+# Why so careful about dependencies?
+sub clean_up_filename {
+  my $filename = shift;
+  $filename =~ s|^\./||;
+  $filename =~ s/^:([^:]+)$/$1/ if $Is_MacOS;
+  if ( $Is_VMS ) {
+      $filename =~ s/\.$//;                           # trim trailing dot
+      $filename = VMS::Filespec::unixify($filename);  # unescape spaces, etc.
+      if( $Is_VMS_lc ) {
+          $filename = lc($filename);
+          $filename = uc($filename) if $filename =~ /^MANIFEST(\.SKIP)?$/i;
+      }
+  }
+  return $filename;
+}
+
+
+=item manifind
+
+    my $found = manifind();
+
+returns a hash reference. The keys of the hash are the files found
+below the current directory.
+
+=cut
+
+sub manifind {
+    my $p = shift || {};
+    my $found = {};
+
+    my $wanted = sub {
+	my $name = clean_up_filename($File::Find::name);
+	warn "Debug: diskfile $name\n" if $Debug;
+	return if -d $_;
+	$found->{$name} = "";
+    };
+
+    # We have to use "$File::Find::dir/$_" in preprocess, because
+    # $File::Find::name is unavailable.
+    # Also, it's okay to use / here, because MANIFEST files use Unix-style
+    # paths.
+    find({wanted => $wanted, follow_fast => 1},
+	 $Is_MacOS ? ":" : ".");
+
+    return $found;
+}
+
+
+=item manicheck
+
+    my @missing_files = manicheck();
+
+checks if all the files within a C<MANIFEST> in the current directory
+really do exist. If C<MANIFEST> and the tree below the current
+directory are in sync it silently returns an empty list.
+Otherwise it returns a list of files which are listed in the
+C<MANIFEST> but missing from the directory, and by default also
+outputs these names to STDERR.
+
+=cut
+
+sub manicheck {
+    return _check_files();
+}
+
+
+=item filecheck
+
+    my @extra_files = filecheck();
+
+finds files below the current directory that are not mentioned in the
+C<MANIFEST> file. An optional file C<MANIFEST.SKIP> will be
+consulted. Any file matching a regular expression in such a file will
+not be reported as missing in the C<MANIFEST> file. The list of any
+extraneous files found is returned, and by default also reported to
+STDERR.
+
+=cut
+
+sub filecheck {
+    return _check_manifest();
+}
+
+
+=item fullcheck
+
+    my($missing, $extra) = fullcheck();
+
+does both a manicheck() and a filecheck(), returning then as two array
+refs.
+
+=cut
+
+sub fullcheck {
+    return [_check_files()], [_check_manifest()];
+}
+
+
+=item skipcheck
+
+    my @skipped = skipcheck();
+
+lists all the files that are skipped due to your C<MANIFEST.SKIP>
+file.
+
+=cut
+
+sub skipcheck {
+    my($p) = @_;
+    my $found = manifind();
+    my $matches = maniskip();
+
+    my @skipped = ();
+    foreach my $file (_sort keys %$found){
+        if (&$matches($file)){
+            warn "Skipping $file\n" unless $Quiet;
+            push @skipped, $file;
+            next;
+        }
+    }
+
+    return @skipped;
+}
+
+
+sub _check_files {
+    my $p = shift;
+    my $dosnames=(defined(&Dos::UseLFN) && Dos::UseLFN()==0);
+    my $read = maniread() || {};
+    my $found = manifind($p);
+
+    my(@missfile) = ();
+    foreach my $file (_sort keys %$read){
+        warn "Debug: manicheck checking from $MANIFEST $file\n" if $Debug;
+        if ($dosnames){
+            $file = lc $file;
+            $file =~ s=(\.(\w|-)+)=substr ($1,0,4)=ge;
+            $file =~ s=((\w|-)+)=substr ($1,0,8)=ge;
+        }
+        unless ( exists $found->{$file} ) {
+            warn "No such file: $file\n" unless $Quiet;
+            push @missfile, $file;
+        }
+    }
+
+    return @missfile;
+}
+
+
+sub _check_manifest {
+    my($p) = @_;
+    my $read = maniread() || {};
+    my $found = manifind($p);
+    my $skip  = maniskip();
+
+    my @missentry = ();
+    foreach my $file (_sort keys %$found){
+        next if $skip->($file);
+        warn "Debug: manicheck checking from disk $file\n" if $Debug;
+        unless ( exists $read->{$file} ) {
+            my $canon = $Is_MacOS ? "\t" . _unmacify($file) : '';
+            warn "Not in $MANIFEST: $file$canon\n" unless $Quiet;
+            push @missentry, $file;
+        }
+    }
+
+    return @missentry;
+}
+
+
+=item maniread
+
+    my $manifest = maniread();
+    my $manifest = maniread($manifest_file);
+
+reads a named C<MANIFEST> file (defaults to C<MANIFEST> in the current
+directory) and returns a HASH reference with files being the keys and
+comments being the values of the HASH.  Blank lines and lines which
+start with C<#> in the C<MANIFEST> file are discarded.
+
+=cut
+
+sub maniread {
+    my ($mfile) = @_;
+    $mfile ||= $MANIFEST;
+    my $read = {};
+    local *M;
+    unless (open M, "< $mfile"){
+        warn "Problem opening $mfile: $!";
+        return $read;
+    }
+    local $_;
+    while (<M>){
+        chomp;
+        next if /^\s*#/;
+
+        my($file, $comment);
+
+        # filename may contain spaces if enclosed in ''
+        # (in which case, \\ and \' are escapes)
+        if (($file, $comment) = /^'((?:\\[\\']|.+)+)'\s*(.*)/) {
+            $file =~ s/\\([\\'])/$1/g;
+        }
+        else {
+            ($file, $comment) = /^(\S+)\s*(.*)/;
+        }
+        next unless $file;
+
+        if ($Is_MacOS) {
+            $file = _macify($file);
+            $file =~ s/\\([0-3][0-7][0-7])/sprintf("%c", oct($1))/ge;
+        }
+        elsif ($Is_VMS_mode) {
+            require File::Basename;
+            my($base,$dir) = File::Basename::fileparse($file);
+            # Resolve illegal file specifications in the same way as tar
+            if ($Is_VMS_nodot) {
+                $dir =~ tr/./_/;
+                my(@pieces) = split(/\./,$base);
+                if (@pieces > 2)
+                    { $base = shift(@pieces) . '.' . join('_',@pieces); }
+                my $okfile = "$dir$base";
+                warn "Debug: Illegal name $file changed to $okfile\n" if $Debug;
+                $file = $okfile;
+            }
+            if( $Is_VMS_lc ) {
+                $file = lc($file);
+                $file = uc($file) if $file =~ /^MANIFEST(\.SKIP)?$/i;
+            }
+        }
+
+        $read->{$file} = $comment;
+    }
+    close M;
+    $read;
+}
+
+=item maniskip
+
+    my $skipchk = maniskip();
+    my $skipchk = maniskip($manifest_skip_file);
+
+    if ($skipchk->($file)) { .. }
+
+reads a named C<MANIFEST.SKIP> file (defaults to C<MANIFEST.SKIP> in
+the current directory) and returns a CODE reference that tests whether
+a given filename should be skipped.
+
+=cut
+
+# returns an anonymous sub that decides if an argument matches
+sub maniskip {
+    my @skip ;
+    my $mfile = shift || "$MANIFEST.SKIP";
+    _check_mskip_directives($mfile) if -f $mfile;
+    local(*M, $_);
+    open M, "< $mfile" or open M, "< $DEFAULT_MSKIP" or return sub {0};
+    while (<M>){
+      chomp;
+      s/\r//;
+      $_ =~ qr{^\s*(?:(?:'([^\\']*(?:\\.[^\\']*)*)')|([^#\s]\S*))?(?:(?:\s*)|(?:\s+(.*?)\s*))$};
+      #my $comment = $3;
+      my $filename = $2;
+      if ( defined($1) ) {
+        $filename = $1;
+        $filename =~ s/\\(['\\])/$1/g;
+      }
+      next if (not defined($filename) or not $filename);
+      push @skip, _macify($filename);
+    }
+    close M;
+    return sub {0} unless (scalar @skip > 0);
+
+    my $opts = $Is_VMS_mode ? '(?i)' : '';
+
+    # Make sure each entry is isolated in its own parentheses, in case
+    # any of them contain alternations
+    my $regex = join '|', map "(?:$_)", @skip;
+
+    return sub { $_[0] =~ qr{$opts$regex} };
+}
+
+# checks for the special directives
+#   #!include_default
+#   #!include /path/to/some/manifest.skip
+# in a custom MANIFEST.SKIP for, for including
+# the content of, respectively, the default MANIFEST.SKIP
+# and an external manifest.skip file
+sub _check_mskip_directives {
+    my $mfile = shift;
+    local (*M, $_);
+    my @lines = ();
+    my $flag = 0;
+    unless (open M, "< $mfile") {
+        warn "Problem opening $mfile: $!";
+        return;
+    }
+    while (<M>) {
+        if (/^#!include_default\s*$/) {
+	    if (my @default = _include_mskip_file()) {
+	        push @lines, @default;
+		warn "Debug: Including default MANIFEST.SKIP\n" if $Debug;
+		$flag++;
+	    }
+	    next;
+        }
+	if (/^#!include\s+(.*)\s*$/) {
+	    my $external_file = $1;
+	    if (my @external = _include_mskip_file($external_file)) {
+	        push @lines, @external;
+		warn "Debug: Including external $external_file\n" if $Debug;
+		$flag++;
+	    }
+            next;
+        }
+        push @lines, $_;
+    }
+    close M;
+    return unless $flag;
+    my $bakbase = $mfile;
+    $bakbase =~ s/\./_/g if $Is_VMS_nodot;  # avoid double dots
+    rename $mfile, "$bakbase.bak";
+    warn "Debug: Saving original $mfile as $bakbase.bak\n" if $Debug;
+    unless (open M, "> $mfile") {
+        warn "Problem opening $mfile: $!";
+        return;
+    }
+    binmode M, ':raw';
+    print M $_ for (@lines);
+    close M;
+    return;
+}
+
+# returns an array containing the lines of an external
+# manifest.skip file, if given, or $DEFAULT_MSKIP
+sub _include_mskip_file {
+    my $mskip = shift || $DEFAULT_MSKIP;
+    unless (-f $mskip) {
+        warn qq{Included file "$mskip" not found - skipping};
+        return;
+    }
+    local (*M, $_);
+    unless (open M, "< $mskip") {
+        warn "Problem opening $mskip: $!";
+        return;
+    }
+    my @lines = ();
+    push @lines, "\n#!start included $mskip\n";
+    push @lines, $_ while <M>;
+    close M;
+    push @lines, "#!end included $mskip\n\n";
+    return @lines;
+}
+
+=item manicopy
+
+    manicopy(\%src, $dest_dir);
+    manicopy(\%src, $dest_dir, $how);
+
+Copies the files that are the keys in %src to the $dest_dir.  %src is
+typically returned by the maniread() function.
+
+    manicopy( maniread(), $dest_dir );
+
+This function is useful for producing a directory tree identical to the
+intended distribution tree.
+
+$how can be used to specify a different methods of "copying".  Valid
+values are C<cp>, which actually copies the files, C<ln> which creates
+hard links, and C<best> which mostly links the files but copies any
+symbolic link to make a tree without any symbolic link.  C<cp> is the
+default.
+
+=cut
+
+sub manicopy {
+    my($read,$target,$how)=@_;
+    croak "manicopy() called without target argument" unless defined $target;
+    $how ||= 'cp';
+    require File::Path;
+    require File::Basename;
+
+    $target = VMS::Filespec::unixify($target) if $Is_VMS_mode;
+    File::Path::mkpath([ $target ],! $Quiet,$Is_VMS ? undef : 0755);
+    foreach my $file (keys %$read){
+	if ($Is_MacOS) {
+	    if ($file =~ m!:!) {
+		my $dir = _maccat($target, $file);
+		$dir =~ s/[^:]+$//;
+		File::Path::mkpath($dir,1,0755);
+	    }
+	    cp_if_diff($file, _maccat($target, $file), $how);
+	} else {
+	    $file = VMS::Filespec::unixify($file) if $Is_VMS_mode;
+	    if ($file =~ m!/!) { # Ilya, that hurts, I fear, or maybe not?
+		my $dir = File::Basename::dirname($file);
+		$dir = VMS::Filespec::unixify($dir) if $Is_VMS_mode;
+		File::Path::mkpath(["$target/$dir"],! $Quiet,$Is_VMS ? undef : 0755);
+	    }
+	    cp_if_diff($file, "$target/$file", $how);
+	}
+    }
+}
+
+sub cp_if_diff {
+    my($from, $to, $how)=@_;
+    if (! -f $from) {
+        carp "$from not found";
+        return;
+    }
+    my($diff) = 0;
+    local(*F,*T);
+    open(F,"< $from\0") or die "Can't read $from: $!\n";
+    if (open(T,"< $to\0")) {
+        local $_;
+	while (<F>) { $diff++,last if $_ ne <T>; }
+	$diff++ unless eof(T);
+	close T;
+    }
+    else { $diff++; }
+    close F;
+    if ($diff) {
+	if (-e $to) {
+	    unlink($to) or confess "unlink $to: $!";
+	}
+        STRICT_SWITCH: {
+	    best($from,$to), last STRICT_SWITCH if $how eq 'best';
+	    cp($from,$to), last STRICT_SWITCH if $how eq 'cp';
+	    ln($from,$to), last STRICT_SWITCH if $how eq 'ln';
+	    croak("ExtUtils::Manifest::cp_if_diff " .
+		  "called with illegal how argument [$how]. " .
+		  "Legal values are 'best', 'cp', and 'ln'.");
+	}
+    }
+}
+
+sub cp {
+    my ($srcFile, $dstFile) = @_;
+    my ($access,$mod) = (stat $srcFile)[8,9];
+
+    copy($srcFile,$dstFile);
+    utime $access, $mod + ($Is_VMS ? 1 : 0), $dstFile;
+    _manicopy_chmod($srcFile, $dstFile);
+}
+
+
+sub ln {
+    my ($srcFile, $dstFile) = @_;
+    # Fix-me - VMS can support links.
+    return &cp if $Is_VMS or ($^O eq 'MSWin32' and Win32::IsWin95());
+    link($srcFile, $dstFile);
+
+    unless( _manicopy_chmod($srcFile, $dstFile) ) {
+        unlink $dstFile;
+        return;
+    }
+    1;
+}
+
+# 1) Strip off all group and world permissions.
+# 2) Let everyone read it.
+# 3) If the owner can execute it, everyone can.
+sub _manicopy_chmod {
+    my($srcFile, $dstFile) = @_;
+
+    my $perm = 0444 | (stat $srcFile)[2] & 0700;
+    chmod( $perm | ( $perm & 0100 ? 0111 : 0 ), $dstFile );
+}
+
+# Files that are often modified in the distdir.  Don't hard link them.
+my @Exceptions = qw(MANIFEST META.yml SIGNATURE);
+sub best {
+    my ($srcFile, $dstFile) = @_;
+
+    my $is_exception = grep $srcFile =~ /$_/, @Exceptions;
+    if ($is_exception or !$Config{d_link} or -l $srcFile) {
+	cp($srcFile, $dstFile);
+    } else {
+	ln($srcFile, $dstFile) or cp($srcFile, $dstFile);
+    }
+}
+
+sub _macify {
+    my($file) = @_;
+
+    return $file unless $Is_MacOS;
+
+    $file =~ s|^\./||;
+    if ($file =~ m|/|) {
+	$file =~ s|/+|:|g;
+	$file = ":$file";
+    }
+
+    $file;
+}
+
+sub _maccat {
+    my($f1, $f2) = @_;
+
+    return "$f1/$f2" unless $Is_MacOS;
+
+    $f1 .= ":$f2";
+    $f1 =~ s/([^:]:):/$1/g;
+    return $f1;
+}
+
+sub _unmacify {
+    my($file) = @_;
+
+    return $file unless $Is_MacOS;
+
+    $file =~ s|^:||;
+    $file =~ s|([/ \n])|sprintf("\\%03o", unpack("c", $1))|ge;
+    $file =~ y|:|/|;
+
+    $file;
+}
+
+
+=item maniadd
+
+  maniadd({ $file => $comment, ...});
+
+Adds an entry to an existing F<MANIFEST> unless its already there.
+
+$file will be normalized (ie. Unixified).  B<UNIMPLEMENTED>
+
+=cut
+
+sub maniadd {
+    my($additions) = shift;
+
+    _normalize($additions);
+    _fix_manifest($MANIFEST);
+
+    my $manifest = maniread();
+    my @needed = grep { !exists $manifest->{$_} } keys %$additions;
+    return 1 unless @needed;
+
+    open(MANIFEST, ">>$MANIFEST") or
+      die "maniadd() could not open $MANIFEST: $!";
+    binmode MANIFEST, ':raw';
+
+    foreach my $file (_sort @needed) {
+        my $comment = $additions->{$file} || '';
+        if ($file =~ /\s/) {
+            $file =~ s/([\\'])/\\$1/g;
+            $file = "'$file'";
+        }
+        printf MANIFEST "%-40s %s\n", $file, $comment;
+    }
+    close MANIFEST or die "Error closing $MANIFEST: $!";
+
+    return 1;
+}
+
+
+# Make sure this MANIFEST is consistently written with native
+# newlines and has a terminal newline.
+sub _fix_manifest {
+    my $manifest_file = shift;
+
+    open MANIFEST, $MANIFEST or die "Could not open $MANIFEST: $!";
+    local $/;
+    my @manifest = split /(\015\012|\012|\015)/, <MANIFEST>, -1;
+    close MANIFEST;
+    my $must_rewrite = "";
+    if ($manifest[-1] eq ""){
+        # sane case: last line had a terminal newline
+        pop @manifest;
+        for (my $i=1; $i<=$#manifest; $i+=2) {
+            unless ($manifest[$i] eq "\n") {
+                $must_rewrite = "not a newline at pos $i";
+                last;
+            }
+        }
+    } else {
+        $must_rewrite = "last line without newline";
+    }
+
+    if ( $must_rewrite ) {
+        1 while unlink $MANIFEST; # avoid multiple versions on VMS
+        open MANIFEST, ">", $MANIFEST or die "(must_rewrite=$must_rewrite) Could not open >$MANIFEST: $!";
+	binmode MANIFEST, ':raw';
+        for (my $i=0; $i<=$#manifest; $i+=2) {
+            print MANIFEST "$manifest[$i]\n";
+        }
+        close MANIFEST or die "could not write $MANIFEST: $!";
+    }
+}
+
+
+# UNIMPLEMENTED
+sub _normalize {
+    return;
+}
+
+
+=back
+
+=head2 MANIFEST
+
+A list of files in the distribution, one file per line.  The MANIFEST
+always uses Unix filepath conventions even if you're not on Unix.  This
+means F<foo/bar> style not F<foo\bar>.
+
+Anything between white space and an end of line within a C<MANIFEST>
+file is considered to be a comment.  Any line beginning with # is also
+a comment. Beginning with ExtUtils::Manifest 1.52, a filename may
+contain whitespace characters if it is enclosed in single quotes; single
+quotes or backslashes in that filename must be backslash-escaped.
+
+    # this a comment
+    some/file
+    some/other/file            comment about some/file
+    'some/third file'          comment
+
+
+=head2 MANIFEST.SKIP
+
+The file MANIFEST.SKIP may contain regular expressions of files that
+should be ignored by mkmanifest() and filecheck(). The regular
+expressions should appear one on each line. Blank lines and lines
+which start with C<#> are skipped.  Use C<\#> if you need a regular
+expression to start with a C<#>.
+
+For example:
+
+    # Version control files and dirs.
+    \bRCS\b
+    \bCVS\b
+    ,v$
+    \B\.svn\b
+
+    # Makemaker generated files and dirs.
+    ^MANIFEST\.
+    ^Makefile$
+    ^blib/
+    ^MakeMaker-\d
+
+    # Temp, old and emacs backup files.
+    ~$
+    \.old$
+    ^#.*#$
+    ^\.#
+
+If no MANIFEST.SKIP file is found, a default set of skips will be
+used, similar to the example above.  If you want nothing skipped,
+simply make an empty MANIFEST.SKIP file.
+
+In one's own MANIFEST.SKIP file, certain directives
+can be used to include the contents of other MANIFEST.SKIP
+files. At present two such directives are recognized.
+
+=over 4
+
+=item #!include_default
+
+This inserts the contents of the default MANIFEST.SKIP file
+
+=item #!include /Path/to/another/manifest.skip
+
+This inserts the contents of the specified external file
+
+=back
+
+The included contents will be inserted into the MANIFEST.SKIP
+file in between I<#!start included /path/to/manifest.skip>
+and I<#!end included /path/to/manifest.skip> markers.
+The original MANIFEST.SKIP is saved as MANIFEST.SKIP.bak.
+
+=head2 EXPORT_OK
+
+C<&mkmanifest>, C<&manicheck>, C<&filecheck>, C<&fullcheck>,
+C<&maniread>, and C<&manicopy> are exportable.
+
+=head2 GLOBAL VARIABLES
+
+C<$ExtUtils::Manifest::MANIFEST> defaults to C<MANIFEST>. Changing it
+results in both a different C<MANIFEST> and a different
+C<MANIFEST.SKIP> file. This is useful if you want to maintain
+different distributions for different audiences (say a user version
+and a developer version including RCS).
+
+C<$ExtUtils::Manifest::Quiet> defaults to 0. If set to a true value,
+all functions act silently.
+
+C<$ExtUtils::Manifest::Debug> defaults to 0.  If set to a true value,
+or if PERL_MM_MANIFEST_DEBUG is true, debugging output will be
+produced.
+
+=head1 DIAGNOSTICS
+
+All diagnostic output is sent to C<STDERR>.
+
+=over 4
+
+=item C<Not in MANIFEST:> I<file>
+
+is reported if a file is found which is not in C<MANIFEST>.
+
+=item C<Skipping> I<file>
+
+is reported if a file is skipped due to an entry in C<MANIFEST.SKIP>.
+
+=item C<No such file:> I<file>
+
+is reported if a file mentioned in a C<MANIFEST> file does not
+exist.
+
+=item C<MANIFEST:> I<$!>
+
+is reported if C<MANIFEST> could not be opened.
+
+=item C<Added to MANIFEST:> I<file>
+
+is reported by mkmanifest() if $Verbose is set and a file is added
+to MANIFEST. $Verbose is set to 1 by default.
+
+=back
+
+=head1 ENVIRONMENT
+
+=over 4
+
+=item B<PERL_MM_MANIFEST_DEBUG>
+
+Turns on debugging
+
+=back
+
+=head1 SEE ALSO
+
+L<ExtUtils::MakeMaker> which has handy targets for most of the functionality.
+
+=head1 AUTHOR
+
+Andreas Koenig C<andreas.koenig@anima.de>
+
+Currently maintained by the Perl Toolchain Gang.
+
+=head1 COPYRIGHT AND LICENSE
+
+This software is copyright (c) 1996- by Andreas Koenig.
+
+This is free software; you can redistribute it and/or modify it under
+the same terms as the Perl 5 programming language system itself.
+
+=cut
+
+1;
diff --git a/lib/5.24.1/ExtUtils/Miniperl.pm b/lib/5.24.1/ExtUtils/Miniperl.pm
new file mode 100644
index 00000000..61c66df7
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/Miniperl.pm
@@ -0,0 +1,252 @@
+#!./perl -w
+package ExtUtils::Miniperl;
+use strict;
+require Exporter;
+use ExtUtils::Embed 1.31, qw(xsi_header xsi_protos xsi_body);
+
+use vars qw($VERSION @ISA @EXPORT);
+
+@ISA = qw(Exporter);
+@EXPORT = qw(writemain);
+$VERSION = '1.05';
+
+# blead will run this with miniperl, hence we can't use autodie or File::Temp
+my $temp;
+
+END {
+    return if !defined $temp || !-e $temp;
+    unlink $temp or warn "Can't unlink '$temp': $!";
+}
+
+sub writemain{
+    my ($fh, $real);
+
+    if (ref $_[0] eq 'SCALAR') {
+        $real = ${+shift};
+        $temp = $real;
+        $temp =~ s/(?:.c)?\z/.new/;
+        open $fh, '>', $temp
+            or die "Can't open '$temp' for writing: $!";
+    } elsif (ref $_[0]) {
+        $fh = shift;
+    } else {
+        $fh = \*STDOUT;
+    }
+
+    my(@exts) = @_;
+
+    printf $fh <<'EOF!HEAD', xsi_header();
+/*    miniperlmain.c
+ *
+ *    Copyright (C) 1994, 1995, 1996, 1997, 1999, 2000, 2001, 2002, 2003,
+ *    2004, 2005, 2006, 2007, by Larry Wall and others
+ *
+ *    You may distribute under the terms of either the GNU General Public
+ *    License or the Artistic License, as specified in the README file.
+ *
+ */
+
+/*
+ *      The Road goes ever on and on
+ *          Down from the door where it began.
+ *
+ *     [Bilbo on p.35 of _The Lord of the Rings_, I/i: "A Long-Expected Party"]
+ *     [Frodo on p.73 of _The Lord of the Rings_, I/iii: "Three Is Company"]
+ */
+
+/* This file contains the main() function for the perl interpreter.
+ * Note that miniperlmain.c contains main() for the 'miniperl' binary,
+ * while perlmain.c contains main() for the 'perl' binary.
+ *
+ * Miniperl is like perl except that it does not support dynamic loading,
+ * and in fact is used to build the dynamic modules needed for the 'real'
+ * perl executable.
+ */
+
+#ifdef OEMVS
+#ifdef MYMALLOC
+/* sbrk is limited to first heap segment so make it big */
+#pragma runopts(HEAP(8M,500K,ANYWHERE,KEEP,8K,4K) STACK(,,ANY,) ALL31(ON))
+#else
+#pragma runopts(HEAP(2M,500K,ANYWHERE,KEEP,8K,4K) STACK(,,ANY,) ALL31(ON))
+#endif
+#endif
+
+#define PERL_IN_MINIPERLMAIN_C
+%s
+static void xs_init (pTHX);
+static PerlInterpreter *my_perl;
+
+#if defined(PERL_GLOBAL_STRUCT_PRIVATE)
+/* The static struct perl_vars* may seem counterproductive since the
+ * whole idea PERL_GLOBAL_STRUCT_PRIVATE was to avoid statics, but note
+ * that this static is not in the shared perl library, the globals PL_Vars
+ * and PL_VarsPtr will stay away. */
+static struct perl_vars* my_plvarsp;
+struct perl_vars* Perl_GetVarsPrivate(void) { return my_plvarsp; }
+#endif
+
+#ifdef NO_ENV_ARRAY_IN_MAIN
+extern char **environ;
+int
+main(int argc, char **argv)
+#else
+int
+main(int argc, char **argv, char **env)
+#endif
+{
+    int exitstatus, i;
+#ifdef PERL_GLOBAL_STRUCT
+    struct perl_vars *my_vars = init_global_struct();
+#  ifdef PERL_GLOBAL_STRUCT_PRIVATE
+    int veto;
+
+    my_plvarsp = my_vars;
+#  endif
+#endif /* PERL_GLOBAL_STRUCT */
+#ifndef NO_ENV_ARRAY_IN_MAIN
+    PERL_UNUSED_ARG(env);
+#endif
+#ifndef PERL_USE_SAFE_PUTENV
+    PL_use_safe_putenv = FALSE;
+#endif /* PERL_USE_SAFE_PUTENV */
+
+    /* if user wants control of gprof profiling off by default */
+    /* noop unless Configure is given -Accflags=-DPERL_GPROF_CONTROL */
+    PERL_GPROF_MONCONTROL(0);
+
+#ifdef NO_ENV_ARRAY_IN_MAIN
+    PERL_SYS_INIT3(&argc,&argv,&environ);
+#else
+    PERL_SYS_INIT3(&argc,&argv,&env);
+#endif
+
+#if defined(USE_ITHREADS)
+    /* XXX Ideally, this should really be happening in perl_alloc() or
+     * perl_construct() to keep libperl.a transparently fork()-safe.
+     * It is currently done here only because Apache/mod_perl have
+     * problems due to lack of a call to cancel pthread_atfork()
+     * handlers when shared objects that contain the handlers may
+     * be dlclose()d.  This forces applications that embed perl to
+     * call PTHREAD_ATFORK() explicitly, but if and only if it hasn't
+     * been called at least once before in the current process.
+     * --GSAR 2001-07-20 */
+    PTHREAD_ATFORK(Perl_atfork_lock,
+                   Perl_atfork_unlock,
+                   Perl_atfork_unlock);
+#endif
+
+    PERL_SYS_FPU_INIT;
+
+    if (!PL_do_undump) {
+	my_perl = perl_alloc();
+	if (!my_perl)
+	    exit(1);
+	perl_construct(my_perl);
+	PL_perl_destruct_level = 0;
+    }
+    PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
+    exitstatus = perl_parse(my_perl, xs_init, argc, argv, (char **)NULL);
+    if (!exitstatus)
+        perl_run(my_perl);
+
+#ifndef PERL_MICRO
+    /* Unregister our signal handler before destroying my_perl */
+    for (i = 1; PL_sig_name[i]; i++) {
+	if (rsignal_state(PL_sig_num[i]) == (Sighandler_t) PL_csighandlerp) {
+	    rsignal(PL_sig_num[i], (Sighandler_t) SIG_DFL);
+	}
+    }
+#endif
+
+    exitstatus = perl_destruct(my_perl);
+
+    perl_free(my_perl);
+
+#if defined(USE_ENVIRON_ARRAY) && defined(PERL_TRACK_MEMPOOL) && !defined(NO_ENV_ARRAY_IN_MAIN)
+    /*
+     * The old environment may have been freed by perl_free()
+     * when PERL_TRACK_MEMPOOL is defined, but without having
+     * been restored by perl_destruct() before (this is only
+     * done if destruct_level > 0).
+     *
+     * It is important to have a valid environment for atexit()
+     * routines that are eventually called.
+     */
+    environ = env;
+#endif
+
+    PERL_SYS_TERM();
+
+#ifdef PERL_GLOBAL_STRUCT
+#  ifdef PERL_GLOBAL_STRUCT_PRIVATE
+    veto = my_plvarsp->Gveto_cleanup;
+#  endif
+    free_global_struct(my_vars);
+#  ifdef PERL_GLOBAL_STRUCT_PRIVATE
+    if (!veto)
+        my_plvarsp = NULL;
+    /* Remember, functions registered with atexit() can run after this point,
+       and may access "global" variables, and hence end up calling
+       Perl_GetVarsPrivate()  */
+#endif
+#endif /* PERL_GLOBAL_STRUCT */
+
+    exit(exitstatus);
+}
+
+/* Register any extra external extensions */
+
+EOF!HEAD
+
+    print $fh xsi_protos(@exts), <<'EOT', xsi_body(@exts), "}\n";
+
+static void
+xs_init(pTHX)
+{
+EOT
+
+    if ($real) {
+        close $fh or die "Can't close '$temp': $!";
+        rename $temp, $real or die "Can't rename '$temp' to '$real': $!";
+    }
+}
+
+1;
+__END__
+
+=head1 NAME
+
+ExtUtils::Miniperl - write the C code for perlmain.c
+
+=head1 SYNOPSIS
+
+    use ExtUtils::Miniperl;
+    writemain(@directories);
+    # or
+    writemain($fh, @directories);
+    # or
+    writemain(\$filename, @directories);
+
+=head1 DESCRIPTION
+
+C<writemain()> takes an argument list of directories containing archive
+libraries that relate to perl modules and should be linked into a new
+perl binary. It writes a corresponding F<perlmain.c> file that
+is a plain C file containing all the bootstrap code to make the
+modules associated with the libraries available from within perl.
+If the first argument to C<writemain()> is a reference to a scalar it is
+used as the filename to open for output. Any other reference is used as
+the filehandle to write to. Otherwise output defaults to C<STDOUT>.
+
+The typical usage is from within a Makefile generated by
+L<ExtUtils::MakeMaker>. So under normal circumstances you won't have to
+deal with this module directly.
+
+=head1 SEE ALSO
+
+L<ExtUtils::MakeMaker>
+
+=cut
+
+# ex: set ts=8 sts=4 sw=4 et:
diff --git a/lib/5.24.1/ExtUtils/Mkbootstrap.pm b/lib/5.24.1/ExtUtils/Mkbootstrap.pm
new file mode 100644
index 00000000..dc2310e0
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/Mkbootstrap.pm
@@ -0,0 +1,109 @@
+package ExtUtils::Mkbootstrap;
+
+# There's just too much Dynaloader incest here to turn on strict vars.
+use strict 'refs';
+
+our $VERSION = '7.10_02';
+
+require Exporter;
+our @ISA = ('Exporter');
+our @EXPORT = ('&Mkbootstrap');
+
+use Config;
+
+our $Verbose = 0;
+
+
+sub Mkbootstrap {
+    my($baseext, @bsloadlibs)=@_;
+    @bsloadlibs = grep($_, @bsloadlibs); # strip empty libs
+
+    print "	bsloadlibs=@bsloadlibs\n" if $Verbose;
+
+    # We need DynaLoader here because we and/or the *_BS file may
+    # call dl_findfile(). We don't say `use' here because when
+    # first building perl extensions the DynaLoader will not have
+    # been built when MakeMaker gets first used.
+    require DynaLoader;
+
+    rename "$baseext.bs", "$baseext.bso"
+      if -s "$baseext.bs";
+
+    if (-f "${baseext}_BS"){
+	$_ = "${baseext}_BS";
+	package DynaLoader; # execute code as if in DynaLoader
+	local($osname, $dlsrc) = (); # avoid warnings
+	($osname, $dlsrc) = @Config::Config{qw(osname dlsrc)};
+	$bscode = "";
+	unshift @INC, ".";
+	require $_;
+	shift @INC;
+    }
+
+    if ($Config{'dlsrc'} =~ /^dl_dld/){
+	package DynaLoader;
+	push(@dl_resolve_using, dl_findfile('-lc'));
+    }
+
+    my(@all) = (@bsloadlibs, @DynaLoader::dl_resolve_using);
+    my($method) = '';
+    if (@all){
+	open my $bs, ">", "$baseext.bs"
+		or die "Unable to open $baseext.bs: $!";
+	print "Writing $baseext.bs\n";
+	print "	containing: @all" if $Verbose;
+	print $bs "# $baseext DynaLoader bootstrap file for $^O architecture.\n";
+	print $bs "# Do not edit this file, changes will be lost.\n";
+	print $bs "# This file was automatically generated by the\n";
+	print $bs "# Mkbootstrap routine in ExtUtils::Mkbootstrap (v$VERSION).\n";
+	print $bs "\@DynaLoader::dl_resolve_using = ";
+	# If @all contains names in the form -lxxx or -Lxxx then it's asking for
+	# runtime library location so we automatically add a call to dl_findfile()
+	if (" @all" =~ m/ -[lLR]/){
+	    print $bs "  dl_findfile(qw(\n  @all\n  ));\n";
+	}else{
+	    print $bs "  qw(@all);\n";
+	}
+	# write extra code if *_BS says so
+	print $bs $DynaLoader::bscode if $DynaLoader::bscode;
+	print $bs "\n1;\n";
+	close $bs;
+    }
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+ExtUtils::Mkbootstrap - make a bootstrap file for use by DynaLoader
+
+=head1 SYNOPSIS
+
+C<Mkbootstrap>
+
+=head1 DESCRIPTION
+
+Mkbootstrap typically gets called from an extension Makefile.
+
+There is no C<*.bs> file supplied with the extension. Instead, there may
+be a C<*_BS> file which has code for the special cases, like posix for
+berkeley db on the NeXT.
+
+This file will get parsed, and produce a maybe empty
+C<@DynaLoader::dl_resolve_using> array for the current architecture.
+That will be extended by $BSLOADLIBS, which was computed by
+ExtUtils::Liblist::ext(). If this array still is empty, we do nothing,
+else we write a .bs file with an C<@DynaLoader::dl_resolve_using>
+array.
+
+The C<*_BS> file can put some code into the generated C<*.bs> file by
+placing it in C<$bscode>. This is a handy 'escape' mechanism that may
+prove useful in complex situations.
+
+If @DynaLoader::dl_resolve_using contains C<-L*> or C<-l*> entries then
+Mkbootstrap will automatically add a dl_findfile() call to the
+generated C<*.bs> file.
+
+=cut
diff --git a/lib/5.24.1/ExtUtils/Mksymlists.pm b/lib/5.24.1/ExtUtils/Mksymlists.pm
new file mode 100644
index 00000000..37180b89
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/Mksymlists.pm
@@ -0,0 +1,317 @@
+package ExtUtils::Mksymlists;
+
+use 5.006;
+use strict qw[ subs refs ];
+# no strict 'vars';  # until filehandles are exempted
+
+use Carp;
+use Exporter;
+use Config;
+
+our @ISA = qw(Exporter);
+our @EXPORT = qw(&Mksymlists);
+our $VERSION = '7.10_02';
+
+sub Mksymlists {
+    my(%spec) = @_;
+    my($osname) = $^O;
+
+    croak("Insufficient information specified to Mksymlists")
+        unless ( $spec{NAME} or
+                 ($spec{FILE} and ($spec{DL_FUNCS} or $spec{FUNCLIST})) );
+
+    $spec{DL_VARS} = [] unless $spec{DL_VARS};
+    ($spec{FILE} = $spec{NAME}) =~ s/.*::// unless $spec{FILE};
+    $spec{FUNCLIST} = [] unless $spec{FUNCLIST};
+    $spec{DL_FUNCS} = { $spec{NAME} => [] }
+        unless ( ($spec{DL_FUNCS} and keys %{$spec{DL_FUNCS}}) or
+                 @{$spec{FUNCLIST}});
+    if (defined $spec{DL_FUNCS}) {
+        foreach my $package (sort keys %{$spec{DL_FUNCS}}) {
+            my($packprefix,$bootseen);
+            ($packprefix = $package) =~ s/\W/_/g;
+            foreach my $sym (@{$spec{DL_FUNCS}->{$package}}) {
+                if ($sym =~ /^boot_/) {
+                    push(@{$spec{FUNCLIST}},$sym);
+                    $bootseen++;
+                }
+                else {
+                    push(@{$spec{FUNCLIST}},"XS_${packprefix}_$sym");
+                }
+            }
+            push(@{$spec{FUNCLIST}},"boot_$packprefix") unless $bootseen;
+        }
+    }
+
+#    We'll need this if we ever add any OS which uses mod2fname
+#    not as pseudo-builtin.
+#    require DynaLoader;
+    if (defined &DynaLoader::mod2fname and not $spec{DLBASE}) {
+        $spec{DLBASE} = DynaLoader::mod2fname([ split(/::/,$spec{NAME}) ]);
+    }
+
+    if    ($osname eq 'aix') { _write_aix(\%spec); }
+    elsif ($osname eq 'MacOS'){ _write_aix(\%spec) }
+    elsif ($osname eq 'VMS') { _write_vms(\%spec) }
+    elsif ($osname eq 'os2') { _write_os2(\%spec) }
+    elsif ($osname eq 'MSWin32') { _write_win32(\%spec) }
+    else {
+        croak("Don't know how to create linker option file for $osname\n");
+    }
+}
+
+
+sub _write_aix {
+    my($data) = @_;
+
+    rename "$data->{FILE}.exp", "$data->{FILE}.exp_old";
+
+    open( my $exp, ">", "$data->{FILE}.exp")
+        or croak("Can't create $data->{FILE}.exp: $!\n");
+    print $exp join("\n",@{$data->{DL_VARS}}, "\n") if @{$data->{DL_VARS}};
+    print $exp join("\n",@{$data->{FUNCLIST}}, "\n") if @{$data->{FUNCLIST}};
+    close $exp;
+}
+
+
+sub _write_os2 {
+    my($data) = @_;
+    require Config;
+    my $threaded = ($Config::Config{archname} =~ /-thread/ ? " threaded" : "");
+
+    if (not $data->{DLBASE}) {
+        ($data->{DLBASE} = $data->{NAME}) =~ s/.*:://;
+        $data->{DLBASE} = substr($data->{DLBASE},0,7) . '_';
+    }
+    my $distname = $data->{DISTNAME} || $data->{NAME};
+    $distname = "Distribution $distname";
+    my $patchlevel = " pl$Config{perl_patchlevel}" || '';
+    my $comment = sprintf "Perl (v%s%s%s) module %s",
+      $Config::Config{version}, $threaded, $patchlevel, $data->{NAME};
+    chomp $comment;
+    if ($data->{INSTALLDIRS} and $data->{INSTALLDIRS} eq 'perl') {
+        $distname = 'perl5-porters@perl.org';
+        $comment = "Core $comment";
+    }
+    $comment = "$comment (Perl-config: $Config{config_args})";
+    $comment = substr($comment, 0, 200) . "...)" if length $comment > 203;
+    rename "$data->{FILE}.def", "$data->{FILE}_def.old";
+
+    open(my $def, ">", "$data->{FILE}.def")
+        or croak("Can't create $data->{FILE}.def: $!\n");
+    print $def "LIBRARY '$data->{DLBASE}' INITINSTANCE TERMINSTANCE\n";
+    print $def "DESCRIPTION '\@#$distname:$data->{VERSION}#\@ $comment'\n";
+    print $def "CODE LOADONCALL\n";
+    print $def "DATA LOADONCALL NONSHARED MULTIPLE\n";
+    print $def "EXPORTS\n  ";
+    print $def join("\n  ",@{$data->{DL_VARS}}, "\n") if @{$data->{DL_VARS}};
+    print $def join("\n  ",@{$data->{FUNCLIST}}, "\n") if @{$data->{FUNCLIST}};
+    _print_imports($def, $data);
+    close $def;
+}
+
+sub _print_imports {
+    my ($def, $data)= @_;
+    my $imports= $data->{IMPORTS}
+        or return;
+    if ( keys %$imports ) {
+        print $def "IMPORTS\n";
+        foreach my $name (sort keys %$imports) {
+            print $def "  $name=$imports->{$name}\n";
+        }
+    }
+}
+
+sub _write_win32 {
+    my($data) = @_;
+
+    require Config;
+    if (not $data->{DLBASE}) {
+        ($data->{DLBASE} = $data->{NAME}) =~ s/.*:://;
+        $data->{DLBASE} = substr($data->{DLBASE},0,7) . '_';
+    }
+    rename "$data->{FILE}.def", "$data->{FILE}_def.old";
+
+    open( my $def, ">", "$data->{FILE}.def" )
+        or croak("Can't create $data->{FILE}.def: $!\n");
+    # put library name in quotes (it could be a keyword, like 'Alias')
+    if ($Config::Config{'cc'} !~ /^gcc/i) {
+        print $def "LIBRARY \"$data->{DLBASE}\"\n";
+    }
+    print $def "EXPORTS\n  ";
+    my @syms;
+    # Export public symbols both with and without underscores to
+    # ensure compatibility between DLLs from Borland C and Visual C
+    # NOTE: DynaLoader itself only uses the names without underscores,
+    # so this is only to cover the case when the extension DLL may be
+    # linked to directly from C. GSAR 97-07-10
+
+    #bcc dropped in 5.16, so dont create useless extra symbols for export table
+    unless($] >= 5.016) {
+        if ($Config::Config{'cc'} =~ /^bcc/i) {
+            push @syms, "_$_", "$_ = _$_"
+                for (@{$data->{DL_VARS}}, @{$data->{FUNCLIST}});
+        }
+        else {
+            push @syms, "$_", "_$_ = $_"
+                for (@{$data->{DL_VARS}}, @{$data->{FUNCLIST}});
+        }
+    } else {
+        push @syms, "$_"
+            for (@{$data->{DL_VARS}}, @{$data->{FUNCLIST}});
+    }
+    print $def join("\n  ",@syms, "\n") if @syms;
+    _print_imports($def, $data);
+    close $def;
+}
+
+
+sub _write_vms {
+    my($data) = @_;
+
+    require Config; # a reminder for once we do $^O
+    require ExtUtils::XSSymSet;
+
+    my($isvax) = $Config::Config{'archname'} =~ /VAX/i;
+    my($set) = new ExtUtils::XSSymSet;
+
+    rename "$data->{FILE}.opt", "$data->{FILE}.opt_old";
+
+    open(my $opt,">", "$data->{FILE}.opt")
+        or croak("Can't create $data->{FILE}.opt: $!\n");
+
+    # Options file declaring universal symbols
+    # Used when linking shareable image for dynamic extension,
+    # or when linking PerlShr into which we've added this package
+    # as a static extension
+    # We don't do anything to preserve order, so we won't relax
+    # the GSMATCH criteria for a dynamic extension
+
+    print $opt "case_sensitive=yes\n"
+        if $Config::Config{d_vms_case_sensitive_symbols};
+
+    foreach my $sym (@{$data->{FUNCLIST}}) {
+        my $safe = $set->addsym($sym);
+        if ($isvax) { print $opt "UNIVERSAL=$safe\n" }
+        else        { print $opt "SYMBOL_VECTOR=($safe=PROCEDURE)\n"; }
+    }
+
+    foreach my $sym (@{$data->{DL_VARS}}) {
+        my $safe = $set->addsym($sym);
+        print $opt "PSECT_ATTR=${sym},PIC,OVR,RD,NOEXE,WRT,NOSHR\n";
+        if ($isvax) { print $opt "UNIVERSAL=$safe\n" }
+        else        { print $opt "SYMBOL_VECTOR=($safe=DATA)\n"; }
+    }
+
+    close $opt;
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+ExtUtils::Mksymlists - write linker options files for dynamic extension
+
+=head1 SYNOPSIS
+
+    use ExtUtils::Mksymlists;
+    Mksymlists(  NAME     => $name ,
+                 DL_VARS  => [ $var1, $var2, $var3 ],
+                 DL_FUNCS => { $pkg1 => [ $func1, $func2 ],
+                               $pkg2 => [ $func3 ] );
+
+=head1 DESCRIPTION
+
+C<ExtUtils::Mksymlists> produces files used by the linker under some OSs
+during the creation of shared libraries for dynamic extensions.  It is
+normally called from a MakeMaker-generated Makefile when the extension
+is built.  The linker option file is generated by calling the function
+C<Mksymlists>, which is exported by default from C<ExtUtils::Mksymlists>.
+It takes one argument, a list of key-value pairs, in which the following
+keys are recognized:
+
+=over 4
+
+=item DLBASE
+
+This item specifies the name by which the linker knows the
+extension, which may be different from the name of the
+extension itself (for instance, some linkers add an '_' to the
+name of the extension).  If it is not specified, it is derived
+from the NAME attribute.  It is presently used only by OS2 and Win32.
+
+=item DL_FUNCS
+
+This is identical to the DL_FUNCS attribute available via MakeMaker,
+from which it is usually taken.  Its value is a reference to an
+associative array, in which each key is the name of a package, and
+each value is an a reference to an array of function names which
+should be exported by the extension.  For instance, one might say
+C<DL_FUNCS =E<gt> { Homer::Iliad =E<gt> [ qw(trojans greeks) ],
+Homer::Odyssey =E<gt> [ qw(travellers family suitors) ] }>.  The
+function names should be identical to those in the XSUB code;
+C<Mksymlists> will alter the names written to the linker option
+file to match the changes made by F<xsubpp>.  In addition, if
+none of the functions in a list begin with the string B<boot_>,
+C<Mksymlists> will add a bootstrap function for that package,
+just as xsubpp does.  (If a B<boot_E<lt>pkgE<gt>> function is
+present in the list, it is passed through unchanged.)  If
+DL_FUNCS is not specified, it defaults to the bootstrap
+function for the extension specified in NAME.
+
+=item DL_VARS
+
+This is identical to the DL_VARS attribute available via MakeMaker,
+and, like DL_FUNCS, it is usually specified via MakeMaker.  Its
+value is a reference to an array of variable names which should
+be exported by the extension.
+
+=item FILE
+
+This key can be used to specify the name of the linker option file
+(minus the OS-specific extension), if for some reason you do not
+want to use the default value, which is the last word of the NAME
+attribute (I<e.g.> for C<Tk::Canvas>, FILE defaults to C<Canvas>).
+
+=item FUNCLIST
+
+This provides an alternate means to specify function names to be
+exported from the extension.  Its value is a reference to an
+array of function names to be exported by the extension.  These
+names are passed through unaltered to the linker options file.
+Specifying a value for the FUNCLIST attribute suppresses automatic
+generation of the bootstrap function for the package. To still create
+the bootstrap name you have to specify the package name in the
+DL_FUNCS hash:
+
+    Mksymlists(  NAME     => $name ,
+		 FUNCLIST => [ $func1, $func2 ],
+                 DL_FUNCS => { $pkg => [] } );
+
+
+=item IMPORTS
+
+This attribute is used to specify names to be imported into the
+extension. It is currently only used by OS/2 and Win32.
+
+=item NAME
+
+This gives the name of the extension (I<e.g.> C<Tk::Canvas>) for which
+the linker option file will be produced.
+
+=back
+
+When calling C<Mksymlists>, one should always specify the NAME
+attribute.  In most cases, this is all that's necessary.  In
+the case of unusual extensions, however, the other attributes
+can be used to provide additional information to the linker.
+
+=head1 AUTHOR
+
+Charles Bailey I<E<lt>bailey@newman.upenn.eduE<gt>>
+
+=head1 REVISION
+
+Last revised 14-Feb-1996, for Perl 5.002.
diff --git a/lib/5.24.1/ExtUtils/Packlist.pm b/lib/5.24.1/ExtUtils/Packlist.pm
new file mode 100644
index 00000000..c1ab0021
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/Packlist.pm
@@ -0,0 +1,353 @@
+package ExtUtils::Packlist;
+
+use 5.00503;
+use strict;
+use Carp qw();
+use Config;
+use vars qw($VERSION $Relocations);
+$VERSION = '2.04';
+$VERSION = eval $VERSION;
+
+# Used for generating filehandle globs.  IO::File might not be available!
+my $fhname = "FH1";
+
+=begin _undocumented
+
+=over
+
+=item mkfh()
+
+Make a filehandle. Same kind of idea as Symbol::gensym().
+
+=cut
+
+sub mkfh()
+{
+no strict;
+local $^W;
+my $fh = \*{$fhname++};
+use strict;
+return($fh);
+}
+
+=item __find_relocations
+
+Works out what absolute paths in the configuration have been located at run
+time relative to $^X, and generates a regexp that matches them
+
+=back
+
+=end _undocumented
+
+=cut
+
+sub __find_relocations
+{
+    my %paths;
+    while (my ($raw_key, $raw_val) = each %Config) {
+	my $exp_key = $raw_key . "exp";
+	next unless exists $Config{$exp_key};
+	next unless $raw_val =~ m!\.\.\./!;
+	$paths{$Config{$exp_key}}++;
+    }
+    # Longest prefixes go first in the alternatives
+    my $alternations = join "|", map {quotemeta $_}
+    sort {length $b <=> length $a} keys %paths;
+    qr/^($alternations)/o;
+}
+
+sub new($$)
+{
+my ($class, $packfile) = @_;
+$class = ref($class) || $class;
+my %self;
+tie(%self, $class, $packfile);
+return(bless(\%self, $class));
+}
+
+sub TIEHASH
+{
+my ($class, $packfile) = @_;
+my $self = { packfile => $packfile };
+bless($self, $class);
+$self->read($packfile) if (defined($packfile) && -f $packfile);
+return($self);
+}
+
+sub STORE
+{
+$_[0]->{data}->{$_[1]} = $_[2];
+}
+
+sub FETCH
+{
+return($_[0]->{data}->{$_[1]});
+}
+
+sub FIRSTKEY
+{
+my $reset = scalar(keys(%{$_[0]->{data}}));
+return(each(%{$_[0]->{data}}));
+}
+
+sub NEXTKEY
+{
+return(each(%{$_[0]->{data}}));
+}
+
+sub EXISTS
+{
+return(exists($_[0]->{data}->{$_[1]}));
+}
+
+sub DELETE
+{
+return(delete($_[0]->{data}->{$_[1]}));
+}
+
+sub CLEAR
+{
+%{$_[0]->{data}} = ();
+}
+
+sub DESTROY
+{
+}
+
+sub read($;$)
+{
+my ($self, $packfile) = @_;
+$self = tied(%$self) || $self;
+
+if (defined($packfile)) { $self->{packfile} = $packfile; }
+else { $packfile = $self->{packfile}; }
+Carp::croak("No packlist filename specified") if (! defined($packfile));
+my $fh = mkfh();
+open($fh, "<$packfile") || Carp::croak("Can't open file $packfile: $!");
+$self->{data} = {};
+my ($line);
+while (defined($line = <$fh>))
+   {
+   chomp $line;
+   my ($key, $data) = $line;
+   if ($key =~ /^(.*?)( \w+=.*)$/)
+      {
+      $key = $1;
+      $data = { map { split('=', $_) } split(' ', $2)};
+
+      if ($Config{userelocatableinc} && $data->{relocate_as})
+      {
+	  require File::Spec;
+	  require Cwd;
+	  my ($vol, $dir) = File::Spec->splitpath($packfile);
+	  my $newpath = File::Spec->catpath($vol, $dir, $data->{relocate_as});
+	  $key = Cwd::realpath($newpath);
+      }
+         }
+   $key =~ s!/\./!/!g;   # Some .packlists have spurious '/./' bits in the paths
+      $self->{data}->{$key} = $data;
+      }
+close($fh);
+}
+
+sub write($;$)
+{
+my ($self, $packfile) = @_;
+$self = tied(%$self) || $self;
+if (defined($packfile)) { $self->{packfile} = $packfile; }
+else { $packfile = $self->{packfile}; }
+Carp::croak("No packlist filename specified") if (! defined($packfile));
+my $fh = mkfh();
+open($fh, ">$packfile") || Carp::croak("Can't open file $packfile: $!");
+foreach my $key (sort(keys(%{$self->{data}})))
+   {
+       my $data = $self->{data}->{$key};
+       if ($Config{userelocatableinc}) {
+	   $Relocations ||= __find_relocations();
+	   if ($packfile =~ $Relocations) {
+	       # We are writing into a subdirectory of a run-time relocated
+	       # path. Figure out if the this file is also within a subdir.
+	       my $prefix = $1;
+	       if (File::Spec->no_upwards(File::Spec->abs2rel($key, $prefix)))
+	       {
+		   # The relocated path is within the found prefix
+		   my $packfile_prefix;
+		   (undef, $packfile_prefix)
+		       = File::Spec->splitpath($packfile);
+
+		   my $relocate_as
+		       = File::Spec->abs2rel($key, $packfile_prefix);
+
+		   if (!ref $data) {
+		       $data = {};
+		   }
+		   $data->{relocate_as} = $relocate_as;
+	       }
+	   }
+       }
+   print $fh ("$key");
+   if (ref($data))
+      {
+      foreach my $k (sort(keys(%$data)))
+         {
+         print $fh (" $k=$data->{$k}");
+         }
+      }
+   print $fh ("\n");
+   }
+close($fh);
+}
+
+sub validate($;$)
+{
+my ($self, $remove) = @_;
+$self = tied(%$self) || $self;
+my @missing;
+foreach my $key (sort(keys(%{$self->{data}})))
+   {
+   if (! -e $key)
+      {
+      push(@missing, $key);
+      delete($self->{data}{$key}) if ($remove);
+      }
+   }
+return(@missing);
+}
+
+sub packlist_file($)
+{
+my ($self) = @_;
+$self = tied(%$self) || $self;
+return($self->{packfile});
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+ExtUtils::Packlist - manage .packlist files
+
+=head1 SYNOPSIS
+
+   use ExtUtils::Packlist;
+   my ($pl) = ExtUtils::Packlist->new('.packlist');
+   $pl->read('/an/old/.packlist');
+   my @missing_files = $pl->validate();
+   $pl->write('/a/new/.packlist');
+
+   $pl->{'/some/file/name'}++;
+      or
+   $pl->{'/some/other/file/name'} = { type => 'file',
+                                      from => '/some/file' };
+
+=head1 DESCRIPTION
+
+ExtUtils::Packlist provides a standard way to manage .packlist files.
+Functions are provided to read and write .packlist files.  The original
+.packlist format is a simple list of absolute pathnames, one per line.  In
+addition, this package supports an extended format, where as well as a filename
+each line may contain a list of attributes in the form of a space separated
+list of key=value pairs.  This is used by the installperl script to
+differentiate between files and links, for example.
+
+=head1 USAGE
+
+The hash reference returned by the new() function can be used to examine and
+modify the contents of the .packlist.  Items may be added/deleted from the
+.packlist by modifying the hash.  If the value associated with a hash key is a
+scalar, the entry written to the .packlist by any subsequent write() will be a
+simple filename.  If the value is a hash, the entry written will be the
+filename followed by the key=value pairs from the hash.  Reading back the
+.packlist will recreate the original entries.
+
+=head1 FUNCTIONS
+
+=over 4
+
+=item new()
+
+This takes an optional parameter, the name of a .packlist.  If the file exists,
+it will be opened and the contents of the file will be read.  The new() method
+returns a reference to a hash.  This hash holds an entry for each line in the
+.packlist.  In the case of old-style .packlists, the value associated with each
+key is undef.  In the case of new-style .packlists, the value associated with
+each key is a hash containing the key=value pairs following the filename in the
+.packlist.
+
+=item read()
+
+This takes an optional parameter, the name of the .packlist to be read.  If
+no file is specified, the .packlist specified to new() will be read.  If the
+.packlist does not exist, Carp::croak will be called.
+
+=item write()
+
+This takes an optional parameter, the name of the .packlist to be written.  If
+no file is specified, the .packlist specified to new() will be overwritten.
+
+=item validate()
+
+This checks that every file listed in the .packlist actually exists.  If an
+argument which evaluates to true is given, any missing files will be removed
+from the internal hash.  The return value is a list of the missing files, which
+will be empty if they all exist.
+
+=item packlist_file()
+
+This returns the name of the associated .packlist file
+
+=back
+
+=head1 EXAMPLE
+
+Here's C<modrm>, a little utility to cleanly remove an installed module.
+
+    #!/usr/local/bin/perl -w
+
+    use strict;
+    use IO::Dir;
+    use ExtUtils::Packlist;
+    use ExtUtils::Installed;
+
+    sub emptydir($) {
+	my ($dir) = @_;
+	my $dh = IO::Dir->new($dir) || return(0);
+	my @count = $dh->read();
+	$dh->close();
+	return(@count == 2 ? 1 : 0);
+    }
+
+    # Find all the installed packages
+    print("Finding all installed modules...\n");
+    my $installed = ExtUtils::Installed->new();
+
+    foreach my $module (grep(!/^Perl$/, $installed->modules())) {
+       my $version = $installed->version($module) || "???";
+       print("Found module $module Version $version\n");
+       print("Do you want to delete $module? [n] ");
+       my $r = <STDIN>; chomp($r);
+       if ($r && $r =~ /^y/i) {
+	  # Remove all the files
+	  foreach my $file (sort($installed->files($module))) {
+	     print("rm $file\n");
+	     unlink($file);
+	  }
+	  my $pf = $installed->packlist($module)->packlist_file();
+	  print("rm $pf\n");
+	  unlink($pf);
+	  foreach my $dir (sort($installed->directory_tree($module))) {
+	     if (emptydir($dir)) {
+		print("rmdir $dir\n");
+		rmdir($dir);
+	     }
+	  }
+       }
+    }
+
+=head1 AUTHOR
+
+Alan Burlison <Alan.Burlison@uk.sun.com>
+
+=cut
diff --git a/lib/5.24.1/ExtUtils/ParseXS.pm b/lib/5.24.1/ExtUtils/ParseXS.pm
new file mode 100644
index 00000000..32d74e18
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/ParseXS.pm
@@ -0,0 +1,2149 @@
+package ExtUtils::ParseXS;
+use strict;
+
+use 5.006001;
+use Cwd;
+use Config;
+use Exporter 'import';
+use File::Basename;
+use File::Spec;
+use Symbol;
+
+our $VERSION;
+BEGIN {
+  $VERSION = '3.31';
+}
+use ExtUtils::ParseXS::Constants $VERSION;
+use ExtUtils::ParseXS::CountLines $VERSION;
+use ExtUtils::ParseXS::Utilities $VERSION;
+use ExtUtils::ParseXS::Eval $VERSION;
+$VERSION = eval $VERSION if $VERSION =~ /_/;
+
+use ExtUtils::ParseXS::Utilities qw(
+  standard_typemap_locations
+  trim_whitespace
+  C_string
+  valid_proto_string
+  process_typemaps
+  map_type
+  standard_XS_defs
+  assign_func_args
+  analyze_preprocessor_statements
+  set_cond
+  Warn
+  current_line_number
+  blurt
+  death
+  check_conditional_preprocessor_statements
+  escape_file_for_line_directive
+  report_typemap_failure
+);
+
+our @EXPORT_OK = qw(
+  process_file
+  report_error_count
+);
+
+##############################
+# A number of "constants"
+
+our ($C_group_rex, $C_arg);
+# Group in C (no support for comments or literals)
+$C_group_rex = qr/ [({\[]
+             (?: (?> [^()\[\]{}]+ ) | (??{ $C_group_rex }) )*
+             [)}\]] /x;
+# Chunk in C without comma at toplevel (no comments):
+$C_arg = qr/ (?: (?> [^()\[\]{},"']+ )
+       |   (??{ $C_group_rex })
+       |   " (?: (?> [^\\"]+ )
+         |   \\.
+         )* "        # String literal
+              |   ' (?: (?> [^\\']+ ) | \\. )* ' # Char literal
+       )* /xs;
+
+# "impossible" keyword (multiple newline)
+my $END = "!End!\n\n";
+# Match an XS Keyword
+my $BLOCK_regexp = '\s*(' . $ExtUtils::ParseXS::Constants::XSKeywordsAlternation . "|$END)\\s*:";
+
+
+
+sub new {
+  return bless {} => shift;
+}
+
+our $Singleton = __PACKAGE__->new;
+
+sub process_file {
+  my $self;
+  # Allow for $package->process_file(%hash), $obj->process_file, and process_file()
+  if (@_ % 2) {
+    my $invocant = shift;
+    $self = ref($invocant) ? $invocant : $invocant->new;
+  }
+  else {
+    $self = $Singleton;
+  }
+
+  my %options = @_;
+  $self->{ProtoUsed} = exists $options{prototypes};
+
+  # Set defaults.
+  my %args = (
+    argtypes        => 1,
+    csuffix         => '.c',
+    except          => 0,
+    hiertype        => 0,
+    inout           => 1,
+    linenumbers     => 1,
+    optimize        => 1,
+    output          => \*STDOUT,
+    prototypes      => 0,
+    typemap         => [],
+    versioncheck    => 1,
+    FH              => Symbol::gensym(),
+    %options,
+  );
+  $args{except} = $args{except} ? ' TRY' : '';
+
+  # Global Constants
+
+  my ($Is_VMS, $SymSet);
+  if ($^O eq 'VMS') {
+    $Is_VMS = 1;
+    # Establish set of global symbols with max length 28, since xsubpp
+    # will later add the 'XS_' prefix.
+    require ExtUtils::XSSymSet;
+    $SymSet = ExtUtils::XSSymSet->new(28);
+  }
+  @{ $self->{XSStack} } = ({type => 'none'});
+  $self->{InitFileCode} = [ @ExtUtils::ParseXS::Constants::InitFileCode ];
+  $self->{Overload}     = 0; # bool
+  $self->{errors}       = 0; # count
+  $self->{Fallback}     = '&PL_sv_undef';
+
+  # Most of the 1500 lines below uses these globals.  We'll have to
+  # clean this up sometime, probably.  For now, we just pull them out
+  # of %args.  -Ken
+
+  $self->{RetainCplusplusHierarchicalTypes} = $args{hiertype};
+  $self->{WantPrototypes} = $args{prototypes};
+  $self->{WantVersionChk} = $args{versioncheck};
+  $self->{WantLineNumbers} = $args{linenumbers};
+  $self->{IncludedFiles} = {};
+
+  die "Missing required parameter 'filename'" unless $args{filename};
+  $self->{filepathname} = $args{filename};
+  ($self->{dir}, $self->{filename}) =
+    (dirname($args{filename}), basename($args{filename}));
+  $self->{filepathname} =~ s/\\/\\\\/g;
+  $self->{IncludedFiles}->{$args{filename}}++;
+
+  # Open the output file if given as a string.  If they provide some
+  # other kind of reference, trust them that we can print to it.
+  if (not ref $args{output}) {
+    open my($fh), "> $args{output}" or die "Can't create $args{output}: $!";
+    $args{outfile} = $args{output};
+    $args{output} = $fh;
+  }
+
+  # Really, we shouldn't have to chdir() or select() in the first
+  # place.  For now, just save and restore.
+  my $orig_cwd = cwd();
+  my $orig_fh = select();
+
+  chdir($self->{dir});
+  my $pwd = cwd();
+  my $csuffix = $args{csuffix};
+
+  if ($self->{WantLineNumbers}) {
+    my $cfile;
+    if ( $args{outfile} ) {
+      $cfile = $args{outfile};
+    }
+    else {
+      $cfile = $args{filename};
+      $cfile =~ s/\.xs$/$csuffix/i or $cfile .= $csuffix;
+    }
+    tie(*PSEUDO_STDOUT, 'ExtUtils::ParseXS::CountLines', $cfile, $args{output});
+    select PSEUDO_STDOUT;
+  }
+  else {
+    select $args{output};
+  }
+
+  $self->{typemap} = process_typemaps( $args{typemap}, $pwd );
+
+  # Move more settings from parameters to object
+  foreach my $datum ( qw| argtypes except inout optimize | ) {
+    $self->{$datum} = $args{$datum};
+  }
+  $self->{strip_c_func_prefix} = $args{s};
+
+  # Identify the version of xsubpp used
+  print <<EOM;
+/*
+ * This file was generated automatically by ExtUtils::ParseXS version $VERSION from the
+ * contents of $self->{filename}. Do not edit this file, edit $self->{filename} instead.
+ *
+ *    ANY CHANGES MADE HERE WILL BE LOST!
+ *
+ */
+
+EOM
+
+
+  print("#line 1 \"" . escape_file_for_line_directive($self->{filepathname}) . "\"\n")
+    if $self->{WantLineNumbers};
+
+  # Open the input file (using $self->{filename} which
+  # is a basename'd $args{filename} due to chdir above)
+  open($self->{FH}, '<', $self->{filename}) or die "cannot open $self->{filename}: $!\n";
+
+  FIRSTMODULE:
+  while (readline($self->{FH})) {
+    if (/^=/) {
+      my $podstartline = $.;
+      do {
+        if (/^=cut\s*$/) {
+          # We can't just write out a /* */ comment, as our embedded
+          # POD might itself be in a comment. We can't put a /**/
+          # comment inside #if 0, as the C standard says that the source
+          # file is decomposed into preprocessing characters in the stage
+          # before preprocessing commands are executed.
+          # I don't want to leave the text as barewords, because the spec
+          # isn't clear whether macros are expanded before or after
+          # preprocessing commands are executed, and someone pathological
+          # may just have defined one of the 3 words as a macro that does
+          # something strange. Multiline strings are illegal in C, so
+          # the "" we write must be a string literal. And they aren't
+          # concatenated until 2 steps later, so we are safe.
+          #     - Nicholas Clark
+          print("#if 0\n  \"Skipped embedded POD.\"\n#endif\n");
+          printf("#line %d \"%s\"\n", $. + 1, escape_file_for_line_directive($self->{filepathname}))
+            if $self->{WantLineNumbers};
+          next FIRSTMODULE;
+        }
+
+      } while (readline($self->{FH}));
+      # At this point $. is at end of file so die won't state the start
+      # of the problem, and as we haven't yet read any lines &death won't
+      # show the correct line in the message either.
+      die ("Error: Unterminated pod in $self->{filename}, line $podstartline\n")
+        unless $self->{lastline};
+    }
+    last if ($self->{Package}, $self->{Prefix}) =
+      /^MODULE\s*=\s*[\w:]+(?:\s+PACKAGE\s*=\s*([\w:]+))?(?:\s+PREFIX\s*=\s*(\S+))?\s*$/;
+
+    print $_;
+  }
+  unless (defined $_) {
+    warn "Didn't find a 'MODULE ... PACKAGE ... PREFIX' line\n";
+    exit 0; # Not a fatal error for the caller process
+  }
+
+  print 'ExtUtils::ParseXS::CountLines'->end_marker, "\n" if $self->{WantLineNumbers};
+
+  standard_XS_defs();
+
+  print 'ExtUtils::ParseXS::CountLines'->end_marker, "\n" if $self->{WantLineNumbers};
+
+  $self->{lastline}    = $_;
+  $self->{lastline_no} = $.;
+
+  my $BootCode_ref = [];
+  my $XSS_work_idx = 0;
+  my $cpp_next_tmp = 'XSubPPtmpAAAA';
+ PARAGRAPH:
+  while ($self->fetch_para()) {
+    my $outlist_ref  = [];
+    # Print initial preprocessor statements and blank lines
+    while (@{ $self->{line} } && $self->{line}->[0] !~ /^[^\#]/) {
+      my $ln = shift(@{ $self->{line} });
+      print $ln, "\n";
+      next unless $ln =~ /^\#\s*((if)(?:n?def)?|elsif|else|endif)\b/;
+      my $statement = $+;
+      ( $self, $XSS_work_idx, $BootCode_ref ) =
+        analyze_preprocessor_statements(
+          $self, $statement, $XSS_work_idx, $BootCode_ref
+        );
+    }
+
+    next PARAGRAPH unless @{ $self->{line} };
+
+    if ($XSS_work_idx && !$self->{XSStack}->[$XSS_work_idx]{varname}) {
+      # We are inside an #if, but have not yet #defined its xsubpp variable.
+      print "#define $cpp_next_tmp 1\n\n";
+      push(@{ $self->{InitFileCode} }, "#if $cpp_next_tmp\n");
+      push(@{ $BootCode_ref },     "#if $cpp_next_tmp");
+      $self->{XSStack}->[$XSS_work_idx]{varname} = $cpp_next_tmp++;
+    }
+
+    $self->death(
+      "Code is not inside a function"
+        ." (maybe last function was ended by a blank line "
+        ." followed by a statement on column one?)")
+      if $self->{line}->[0] =~ /^\s/;
+
+    # initialize info arrays
+    foreach my $member (qw(args_match var_types defaults arg_list
+                           argtype_seen in_out lengthof))
+    {
+      $self->{$member} = {};
+    }
+    $self->{proto_arg} = [];
+    $self->{processing_arg_with_types} = 0; # bool
+    $self->{proto_in_this_xsub}        = 0; # counter & bool
+    $self->{scope_in_this_xsub}        = 0; # counter & bool
+    $self->{interface}                 = 0; # bool
+    $self->{interface_macro}           = 'XSINTERFACE_FUNC';
+    $self->{interface_macro_set}       = 'XSINTERFACE_FUNC_SET';
+    $self->{ProtoThisXSUB}             = $self->{WantPrototypes}; # states 0 (none), 1 (yes), 2 (empty prototype)
+    $self->{ScopeThisXSUB}             = 0; # bool
+
+    my $xsreturn = 0;
+
+    $_ = shift(@{ $self->{line} });
+    while (my $kwd = $self->check_keyword("REQUIRE|PROTOTYPES|EXPORT_XSUB_SYMBOLS|FALLBACK|VERSIONCHECK|INCLUDE(?:_COMMAND)?|SCOPE")) {
+      my $method = $kwd . "_handler";
+      $self->$method($_);
+      next PARAGRAPH unless @{ $self->{line} };
+      $_ = shift(@{ $self->{line} });
+    }
+
+    if ($self->check_keyword("BOOT")) {
+      check_conditional_preprocessor_statements($self);
+      push (@{ $BootCode_ref }, "#line $self->{line_no}->[@{ $self->{line_no} } - @{ $self->{line} }] \""
+                                . escape_file_for_line_directive($self->{filepathname}) . "\"")
+        if $self->{WantLineNumbers} && $self->{line}->[0] !~ /^\s*#\s*line\b/;
+      push (@{ $BootCode_ref }, @{ $self->{line} }, "");
+      next PARAGRAPH;
+    }
+
+    # extract return type, function name and arguments
+    ($self->{ret_type}) = ExtUtils::Typemaps::tidy_type($_);
+    my $RETVAL_no_return = 1 if $self->{ret_type} =~ s/^NO_OUTPUT\s+//;
+
+    # Allow one-line ANSI-like declaration
+    unshift @{ $self->{line} }, $2
+      if $self->{argtypes}
+        and $self->{ret_type} =~ s/^(.*?\w.*?)\s*\b(\w+\s*\(.*)/$1/s;
+
+    # a function definition needs at least 2 lines
+    $self->blurt("Error: Function definition too short '$self->{ret_type}'"), next PARAGRAPH
+      unless @{ $self->{line} };
+
+    my $externC = 1 if $self->{ret_type} =~ s/^extern "C"\s+//;
+    my $static  = 1 if $self->{ret_type} =~ s/^static\s+//;
+
+    my $func_header = shift(@{ $self->{line} });
+    $self->blurt("Error: Cannot parse function definition from '$func_header'"), next PARAGRAPH
+      unless $func_header =~ /^(?:([\w:]*)::)?(\w+)\s*\(\s*(.*?)\s*\)\s*(const)?\s*(;\s*)?$/s;
+
+    my ($class, $orig_args);
+    ($class, $self->{func_name}, $orig_args) =  ($1, $2, $3);
+    $class = "$4 $class" if $4;
+    ($self->{pname} = $self->{func_name}) =~ s/^($self->{Prefix})?/$self->{Packprefix}/;
+    my $clean_func_name;
+    ($clean_func_name = $self->{func_name}) =~ s/^$self->{Prefix}//;
+    $self->{Full_func_name} = "$self->{Packid}_$clean_func_name";
+    if ($Is_VMS) {
+      $self->{Full_func_name} = $SymSet->addsym( $self->{Full_func_name} );
+    }
+
+    # Check for duplicate function definition
+    for my $tmp (@{ $self->{XSStack} }) {
+      next unless defined $tmp->{functions}{ $self->{Full_func_name} };
+      Warn( $self, "Warning: duplicate function definition '$clean_func_name' detected");
+      last;
+    }
+    $self->{XSStack}->[$XSS_work_idx]{functions}{ $self->{Full_func_name} }++;
+    delete $self->{XsubAliases};
+    delete $self->{XsubAliasValues};
+    %{ $self->{Interfaces} }      = ();
+    @{ $self->{Attributes} }      = ();
+    $self->{DoSetMagic} = 1;
+
+    $orig_args =~ s/\\\s*/ /g;    # process line continuations
+    my @args;
+
+    my (@fake_INPUT_pre);    # For length(s) generated variables
+    my (@fake_INPUT);
+    my $only_C_inlist_ref = {};        # Not in the signature of Perl function
+    if ($self->{argtypes} and $orig_args =~ /\S/) {
+      my $args = "$orig_args ,";
+      use re 'eval';
+      if ($args =~ /^( (??{ $C_arg }) , )* $ /x) {
+        @args = ($args =~ /\G ( (??{ $C_arg }) ) , /xg);
+        no re 'eval';
+        for ( @args ) {
+          s/^\s+//;
+          s/\s+$//;
+          my ($arg, $default) = ($_ =~ m/ ( [^=]* ) ( (?: = .* )? ) /x);
+          my ($pre, $len_name) = ($arg =~ /(.*?) \s*
+                             \b ( \w+ | length\( \s*\w+\s* \) )
+                             \s* $ /x);
+          next unless defined($pre) && length($pre);
+          my $out_type = '';
+          my $inout_var;
+          if ($self->{inout} and s/^(IN|IN_OUTLIST|OUTLIST|OUT|IN_OUT)\b\s*//) {
+            my $type = $1;
+            $out_type = $type if $type ne 'IN';
+            $arg =~ s/^(IN|IN_OUTLIST|OUTLIST|OUT|IN_OUT)\b\s*//;
+            $pre =~ s/^(IN|IN_OUTLIST|OUTLIST|OUT|IN_OUT)\b\s*//;
+          }
+          my $islength;
+          if ($len_name =~ /^length\( \s* (\w+) \s* \)\z/x) {
+            $len_name = "XSauto_length_of_$1";
+            $islength = 1;
+            die "Default value on length() argument: '$_'"
+              if length $default;
+          }
+          if (length $pre or $islength) { # Has a type
+            if ($islength) {
+              push @fake_INPUT_pre, $arg;
+            }
+            else {
+              push @fake_INPUT, $arg;
+            }
+            # warn "pushing '$arg'\n";
+            $self->{argtype_seen}->{$len_name}++;
+            $_ = "$len_name$default"; # Assigns to @args
+          }
+          $only_C_inlist_ref->{$_} = 1 if $out_type eq "OUTLIST" or $islength;
+          push @{ $outlist_ref }, $len_name if $out_type =~ /OUTLIST$/;
+          $self->{in_out}->{$len_name} = $out_type if $out_type;
+        }
+      }
+      else {
+        no re 'eval';
+        @args = split(/\s*,\s*/, $orig_args);
+        Warn( $self, "Warning: cannot parse argument list '$orig_args', fallback to split");
+      }
+    }
+    else {
+      @args = split(/\s*,\s*/, $orig_args);
+      for (@args) {
+        if ($self->{inout} and s/^(IN|IN_OUTLIST|OUTLIST|IN_OUT|OUT)\b\s*//) {
+          my $out_type = $1;
+          next if $out_type eq 'IN';
+          $only_C_inlist_ref->{$_} = 1 if $out_type eq "OUTLIST";
+          if ($out_type =~ /OUTLIST$/) {
+              push @{ $outlist_ref }, undef;
+          }
+          $self->{in_out}->{$_} = $out_type;
+        }
+      }
+    }
+    if (defined($class)) {
+      my $arg0 = ((defined($static) or $self->{func_name} eq 'new')
+          ? "CLASS" : "THIS");
+      unshift(@args, $arg0);
+    }
+    my $extra_args = 0;
+    my @args_num = ();
+    my $num_args = 0;
+    my $report_args = '';
+    my $ellipsis;
+    foreach my $i (0 .. $#args) {
+      if ($args[$i] =~ s/\.\.\.//) {
+        $ellipsis = 1;
+        if ($args[$i] eq '' && $i == $#args) {
+          $report_args .= ", ...";
+          pop(@args);
+          last;
+        }
+      }
+      if ($only_C_inlist_ref->{$args[$i]}) {
+        push @args_num, undef;
+      }
+      else {
+        push @args_num, ++$num_args;
+          $report_args .= ", $args[$i]";
+      }
+      if ($args[$i] =~ /^([^=]*[^\s=])\s*=\s*(.*)/s) {
+        $extra_args++;
+        $args[$i] = $1;
+        $self->{defaults}->{$args[$i]} = $2;
+        $self->{defaults}->{$args[$i]} =~ s/"/\\"/g;
+      }
+      $self->{proto_arg}->[$i+1] = '$';
+    }
+    my $min_args = $num_args - $extra_args;
+    $report_args =~ s/"/\\"/g;
+    $report_args =~ s/^,\s+//;
+    $self->{func_args} = assign_func_args($self, \@args, $class);
+    @{ $self->{args_match} }{@args} = @args_num;
+
+    my $PPCODE = grep(/^\s*PPCODE\s*:/, @{ $self->{line} });
+    my $CODE = grep(/^\s*CODE\s*:/, @{ $self->{line} });
+    # Detect CODE: blocks which use ST(n)= or XST_m*(n,v)
+    # to set explicit return values.
+    my $EXPLICIT_RETURN = ($CODE &&
+            ("@{ $self->{line} }" =~ /(\bST\s*\([^;]*=) | (\bXST_m\w+\s*\()/x ));
+
+    $self->{ALIAS}  = grep(/^\s*ALIAS\s*:/,  @{ $self->{line} });
+
+    my $INTERFACE  = grep(/^\s*INTERFACE\s*:/,  @{ $self->{line} });
+
+    $xsreturn = 1 if $EXPLICIT_RETURN;
+
+    $externC = $externC ? qq[extern "C"] : "";
+
+    # print function header
+    print Q(<<"EOF");
+#$externC
+#XS_EUPXS(XS_$self->{Full_func_name}); /* prototype to pass -Wmissing-prototypes */
+#XS_EUPXS(XS_$self->{Full_func_name})
+#[[
+#    dVAR; dXSARGS;
+EOF
+    print Q(<<"EOF") if $self->{ALIAS};
+#    dXSI32;
+EOF
+    print Q(<<"EOF") if $INTERFACE;
+#    dXSFUNCTION($self->{ret_type});
+EOF
+
+    $self->{cond} = set_cond($ellipsis, $min_args, $num_args);
+
+    print Q(<<"EOF") if $self->{except};
+#    char errbuf[1024];
+#    *errbuf = '\\0';
+EOF
+
+    if($self->{cond}) {
+      print Q(<<"EOF");
+#    if ($self->{cond})
+#       croak_xs_usage(cv,  "$report_args");
+EOF
+    }
+    else {
+    # cv likely to be unused
+    print Q(<<"EOF");
+#    PERL_UNUSED_VAR(cv); /* -W */
+EOF
+    }
+
+    #gcc -Wall: if an xsub has PPCODE is used
+    #it is possible none of ST, XSRETURN or XSprePUSH macros are used
+    #hence 'ax' (setup by dXSARGS) is unused
+    #XXX: could breakup the dXSARGS; into dSP;dMARK;dITEMS
+    #but such a move could break third-party extensions
+    print Q(<<"EOF") if $PPCODE;
+#    PERL_UNUSED_VAR(ax); /* -Wall */
+EOF
+
+    print Q(<<"EOF") if $PPCODE;
+#    SP -= items;
+EOF
+
+    # Now do a block of some sort.
+
+    $self->{condnum} = 0;
+    $self->{cond} = '';            # last CASE: conditional
+    push(@{ $self->{line} }, "$END:");
+    push(@{ $self->{line_no} }, $self->{line_no}->[-1]);
+    $_ = '';
+    check_conditional_preprocessor_statements();
+    while (@{ $self->{line} }) {
+
+      $self->CASE_handler($_) if $self->check_keyword("CASE");
+      print Q(<<"EOF");
+#   $self->{except} [[
+EOF
+
+      # do initialization of input variables
+      $self->{thisdone} = 0;
+      $self->{retvaldone} = 0;
+      $self->{deferred} = "";
+      %{ $self->{arg_list} } = ();
+      $self->{gotRETVAL} = 0;
+      $self->INPUT_handler($_);
+      $self->process_keyword("INPUT|PREINIT|INTERFACE_MACRO|C_ARGS|ALIAS|ATTRS|PROTOTYPE|SCOPE|OVERLOAD");
+
+      print Q(<<"EOF") if $self->{ScopeThisXSUB};
+#   ENTER;
+#   [[
+EOF
+
+      if (!$self->{thisdone} && defined($class)) {
+        if (defined($static) or $self->{func_name} eq 'new') {
+          print "\tchar *";
+          $self->{var_types}->{"CLASS"} = "char *";
+          $self->generate_init( {
+            type          => "char *",
+            num           => 1,
+            var           => "CLASS",
+            printed_name  => undef,
+          } );
+        }
+        else {
+          print "\t" . map_type($self, "$class *");
+          $self->{var_types}->{"THIS"} = "$class *";
+          $self->generate_init( {
+            type          => "$class *",
+            num           => 1,
+            var           => "THIS",
+            printed_name  => undef,
+          } );
+        }
+      }
+
+      # These are set if OUTPUT is found and/or CODE using RETVAL
+      $self->{have_OUTPUT} = $self->{have_CODE_with_RETVAL} = 0;
+
+      my ($wantRETVAL);
+      # do code
+      if (/^\s*NOT_IMPLEMENTED_YET/) {
+        print "\n\tPerl_croak(aTHX_ \"$self->{pname}: not implemented yet\");\n";
+        $_ = '';
+      }
+      else {
+        if ($self->{ret_type} ne "void") {
+          print "\t" . map_type($self, $self->{ret_type}, 'RETVAL') . ";\n"
+            if !$self->{retvaldone};
+          $self->{args_match}->{"RETVAL"} = 0;
+          $self->{var_types}->{"RETVAL"} = $self->{ret_type};
+          my $outputmap = $self->{typemap}->get_outputmap( ctype => $self->{ret_type} );
+          print "\tdXSTARG;\n"
+            if $self->{optimize} and $outputmap and $outputmap->targetable;
+        }
+
+        if (@fake_INPUT or @fake_INPUT_pre) {
+          unshift @{ $self->{line} }, @fake_INPUT_pre, @fake_INPUT, $_;
+          $_ = "";
+          $self->{processing_arg_with_types} = 1;
+          $self->INPUT_handler($_);
+        }
+        print $self->{deferred};
+
+        $self->process_keyword("INIT|ALIAS|ATTRS|PROTOTYPE|INTERFACE_MACRO|INTERFACE|C_ARGS|OVERLOAD");
+
+        if ($self->check_keyword("PPCODE")) {
+          $self->print_section();
+          $self->death("PPCODE must be last thing") if @{ $self->{line} };
+          print "\tLEAVE;\n" if $self->{ScopeThisXSUB};
+          print "\tPUTBACK;\n\treturn;\n";
+        }
+        elsif ($self->check_keyword("CODE")) {
+          my $consumed_code = $self->print_section();
+          if ($consumed_code =~ /\bRETVAL\b/) {
+            $self->{have_CODE_with_RETVAL} = 1;
+          }
+        }
+        elsif (defined($class) and $self->{func_name} eq "DESTROY") {
+          print "\n\t";
+          print "delete THIS;\n";
+        }
+        else {
+          print "\n\t";
+          if ($self->{ret_type} ne "void") {
+            print "RETVAL = ";
+            $wantRETVAL = 1;
+          }
+          if (defined($static)) {
+            if ($self->{func_name} eq 'new') {
+              $self->{func_name} = "$class";
+            }
+            else {
+              print "${class}::";
+            }
+          }
+          elsif (defined($class)) {
+            if ($self->{func_name} eq 'new') {
+              $self->{func_name} .= " $class";
+            }
+            else {
+              print "THIS->";
+            }
+          }
+          my $strip = $self->{strip_c_func_prefix};
+          $self->{func_name} =~ s/^\Q$strip//
+            if defined $strip;
+          $self->{func_name} = 'XSFUNCTION' if $self->{interface};
+          print "$self->{func_name}($self->{func_args});\n";
+        }
+      }
+
+      # do output variables
+      $self->{gotRETVAL} = 0;        # 1 if RETVAL seen in OUTPUT section;
+      undef $self->{RETVAL_code} ;    # code to set RETVAL (from OUTPUT section);
+      # $wantRETVAL set if 'RETVAL =' autogenerated
+      ($wantRETVAL, $self->{ret_type}) = (0, 'void') if $RETVAL_no_return;
+      undef %{ $self->{outargs} };
+
+      $self->process_keyword("POSTCALL|OUTPUT|ALIAS|ATTRS|PROTOTYPE|OVERLOAD");
+
+      # A CODE section with RETVAL, but no OUTPUT? FAIL!
+      if ($self->{have_CODE_with_RETVAL} and not $self->{have_OUTPUT} and $self->{ret_type} ne 'void') {
+        $self->Warn("Warning: Found a 'CODE' section which seems to be using 'RETVAL' but no 'OUTPUT' section.");
+      }
+
+      $self->generate_output( {
+        type        => $self->{var_types}->{$_},
+        num         => $self->{args_match}->{$_},
+        var         => $_,
+        do_setmagic => $self->{DoSetMagic},
+        do_push     => undef,
+      } ) for grep $self->{in_out}->{$_} =~ /OUT$/, keys %{ $self->{in_out} };
+
+      my $prepush_done;
+      # all OUTPUT done, so now push the return value on the stack
+      if ($self->{gotRETVAL} && $self->{RETVAL_code}) {
+        print "\t$self->{RETVAL_code}\n";
+      }
+      elsif ($self->{gotRETVAL} || $wantRETVAL) {
+        my $outputmap = $self->{typemap}->get_outputmap( ctype => $self->{ret_type} );
+        my $trgt = $self->{optimize} && $outputmap && $outputmap->targetable;
+        my $var = 'RETVAL';
+        my $type = $self->{ret_type};
+
+        if ($trgt) {
+          my $what = $self->eval_output_typemap_code(
+            qq("$trgt->{what}"),
+            {var => $var, type => $self->{ret_type}}
+          );
+          if (not $trgt->{with_size} and $trgt->{type} eq 'p') { # sv_setpv
+            # PUSHp corresponds to sv_setpvn.  Treat sv_setpv directly
+            print "\tsv_setpv(TARG, $what); XSprePUSH; PUSHTARG;\n";
+            $prepush_done = 1;
+          }
+          else {
+            my $tsize = $trgt->{what_size};
+            $tsize = '' unless defined $tsize;
+            $tsize = $self->eval_output_typemap_code(
+              qq("$tsize"),
+              {var => $var, type => $self->{ret_type}}
+            );
+            print "\tXSprePUSH; PUSH$trgt->{type}($what$tsize);\n";
+            $prepush_done = 1;
+          }
+        }
+        else {
+          # RETVAL almost never needs SvSETMAGIC()
+          $self->generate_output( {
+            type        => $self->{ret_type},
+            num         => 0,
+            var         => 'RETVAL',
+            do_setmagic => 0,
+            do_push     => undef,
+          } );
+        }
+      }
+
+      $xsreturn = 1 if $self->{ret_type} ne "void";
+      my $num = $xsreturn;
+      my $c = @{ $outlist_ref };
+      print "\tXSprePUSH;" if $c and not $prepush_done;
+      print "\tEXTEND(SP,$c);\n" if $c;
+      $xsreturn += $c;
+      $self->generate_output( {
+        type        => $self->{var_types}->{$_},
+        num         => $num++,
+        var         => $_,
+        do_setmagic => 0,
+        do_push     => 1,
+      } ) for @{ $outlist_ref };
+
+      # do cleanup
+      $self->process_keyword("CLEANUP|ALIAS|ATTRS|PROTOTYPE|OVERLOAD");
+
+      print Q(<<"EOF") if $self->{ScopeThisXSUB};
+#   ]]
+EOF
+      print Q(<<"EOF") if $self->{ScopeThisXSUB} and not $PPCODE;
+#   LEAVE;
+EOF
+
+      # print function trailer
+      print Q(<<"EOF");
+#    ]]
+EOF
+      print Q(<<"EOF") if $self->{except};
+#    BEGHANDLERS
+#    CATCHALL
+#    sprintf(errbuf, "%s: %s\\tpropagated", Xname, Xreason);
+#    ENDHANDLERS
+EOF
+      if ($self->check_keyword("CASE")) {
+        $self->blurt("Error: No 'CASE:' at top of function")
+          unless $self->{condnum};
+        $_ = "CASE: $_";    # Restore CASE: label
+        next;
+      }
+      last if $_ eq "$END:";
+      $self->death(/^$BLOCK_regexp/o ? "Misplaced '$1:'" : "Junk at end of function ($_)");
+    }
+
+    print Q(<<"EOF") if $self->{except};
+#    if (errbuf[0])
+#    Perl_croak(aTHX_ errbuf);
+EOF
+
+    if ($xsreturn) {
+      print Q(<<"EOF") unless $PPCODE;
+#    XSRETURN($xsreturn);
+EOF
+    }
+    else {
+      print Q(<<"EOF") unless $PPCODE;
+#    XSRETURN_EMPTY;
+EOF
+    }
+
+    print Q(<<"EOF");
+#]]
+#
+EOF
+
+    $self->{proto} = "";
+    unless($self->{ProtoThisXSUB}) {
+      $self->{newXS} = "newXS_deffile";
+      $self->{file} = "";
+    }
+    else {
+    # Build the prototype string for the xsub
+      $self->{newXS} = "newXSproto_portable";
+      $self->{file} = ", file";
+
+      if ($self->{ProtoThisXSUB} eq 2) {
+        # User has specified empty prototype
+      }
+      elsif ($self->{ProtoThisXSUB} eq 1) {
+        my $s = ';';
+        if ($min_args < $num_args)  {
+          $s = '';
+          $self->{proto_arg}->[$min_args] .= ";";
+        }
+        push @{ $self->{proto_arg} }, "$s\@"
+          if $ellipsis;
+
+        $self->{proto} = join ("", grep defined, @{ $self->{proto_arg} } );
+      }
+      else {
+        # User has specified a prototype
+        $self->{proto} = $self->{ProtoThisXSUB};
+      }
+      $self->{proto} = qq{, "$self->{proto}"};
+    }
+
+    if ($self->{XsubAliases} and keys %{ $self->{XsubAliases} }) {
+      $self->{XsubAliases}->{ $self->{pname} } = 0
+        unless defined $self->{XsubAliases}->{ $self->{pname} };
+      foreach my $xname (sort keys %{ $self->{XsubAliases} }) {
+        my $value = $self->{XsubAliases}{$xname};
+        push(@{ $self->{InitFileCode} }, Q(<<"EOF"));
+#        cv = $self->{newXS}(\"$xname\", XS_$self->{Full_func_name}$self->{file}$self->{proto});
+#        XSANY.any_i32 = $value;
+EOF
+      }
+    }
+    elsif (@{ $self->{Attributes} }) {
+      push(@{ $self->{InitFileCode} }, Q(<<"EOF"));
+#        cv = $self->{newXS}(\"$self->{pname}\", XS_$self->{Full_func_name}$self->{file}$self->{proto});
+#        apply_attrs_string("$self->{Package}", cv, "@{ $self->{Attributes} }", 0);
+EOF
+    }
+    elsif ($self->{interface}) {
+      foreach my $yname (sort keys %{ $self->{Interfaces} }) {
+        my $value = $self->{Interfaces}{$yname};
+        $yname = "$self->{Package}\::$yname" unless $yname =~ /::/;
+        push(@{ $self->{InitFileCode} }, Q(<<"EOF"));
+#        cv = $self->{newXS}(\"$yname\", XS_$self->{Full_func_name}$self->{file}$self->{proto});
+#        $self->{interface_macro_set}(cv,$value);
+EOF
+      }
+    }
+    elsif($self->{newXS} eq 'newXS_deffile'){ # work around P5NCI's empty newXS macro
+      push(@{ $self->{InitFileCode} },
+       "        $self->{newXS}(\"$self->{pname}\", XS_$self->{Full_func_name}$self->{file}$self->{proto});\n");
+    }
+    else {
+      push(@{ $self->{InitFileCode} },
+       "        (void)$self->{newXS}(\"$self->{pname}\", XS_$self->{Full_func_name}$self->{file}$self->{proto});\n");
+    }
+  } # END 'PARAGRAPH' 'while' loop
+
+  if ($self->{Overload}) { # make it findable with fetchmethod
+    print Q(<<"EOF");
+#XS_EUPXS(XS_$self->{Packid}_nil); /* prototype to pass -Wmissing-prototypes */
+#XS_EUPXS(XS_$self->{Packid}_nil)
+#{
+#   dXSARGS;
+#   XSRETURN_EMPTY;
+#}
+#
+EOF
+    unshift(@{ $self->{InitFileCode} }, <<"MAKE_FETCHMETHOD_WORK");
+    /* Making a sub named "$self->{Package}::()" allows the package */
+    /* to be findable via fetchmethod(), and causes */
+    /* overload::Overloaded("$self->{Package}") to return true. */
+    (void)$self->{newXS}("$self->{Package}::()", XS_$self->{Packid}_nil$self->{file}$self->{proto});
+MAKE_FETCHMETHOD_WORK
+  }
+
+  # print initialization routine
+
+  print Q(<<"EOF");
+##ifdef __cplusplus
+#extern "C"
+##endif
+EOF
+
+  print Q(<<"EOF");
+#XS_EXTERNAL(boot_$self->{Module_cname}); /* prototype to pass -Wmissing-prototypes */
+#XS_EXTERNAL(boot_$self->{Module_cname})
+#[[
+##if PERL_VERSION_LE(5, 21, 5)
+#    dVAR; dXSARGS;
+##else
+#    dVAR; ${\($self->{WantVersionChk} ?
+     'dXSBOOTARGSXSAPIVERCHK;' : 'dXSBOOTARGSAPIVERCHK;')}
+##endif
+EOF
+
+  #Under 5.8.x and lower, newXS is declared in proto.h as expecting a non-const
+  #file name argument. If the wrong qualifier is used, it causes breakage with
+  #C++ compilers and warnings with recent gcc.
+  #-Wall: if there is no $self->{Full_func_name} there are no xsubs in this .xs
+  #so 'file' is unused
+  print Q(<<"EOF") if $self->{Full_func_name};
+##if (PERL_REVISION == 5 && PERL_VERSION < 9)
+#    char* file = __FILE__;
+##else
+#    const char* file = __FILE__;
+##endif
+#
+#    PERL_UNUSED_VAR(file);
+EOF
+
+  print Q("#\n");
+
+  print Q(<<"EOF");
+#    PERL_UNUSED_VAR(cv); /* -W */
+#    PERL_UNUSED_VAR(items); /* -W */
+EOF
+
+  if( $self->{WantVersionChk}){
+    print Q(<<"EOF") ;
+##if PERL_VERSION_LE(5, 21, 5)
+#    XS_VERSION_BOOTCHECK;
+##  ifdef XS_APIVERSION_BOOTCHECK
+#    XS_APIVERSION_BOOTCHECK;
+##  endif
+##endif
+
+EOF
+  } else {
+    print Q(<<"EOF") ;
+##if PERL_VERSION_LE(5, 21, 5) && defined(XS_APIVERSION_BOOTCHECK)
+#  XS_APIVERSION_BOOTCHECK;
+##endif
+
+EOF
+  }
+
+  print Q(<<"EOF") if defined $self->{XsubAliases} or defined $self->{interfaces};
+#    {
+#        CV * cv;
+#
+EOF
+
+  print Q(<<"EOF") if ($self->{Overload});
+#    /* register the overloading (type 'A') magic */
+##if (PERL_REVISION == 5 && PERL_VERSION < 9)
+#    PL_amagic_generation++;
+##endif
+#    /* The magic for overload gets a GV* via gv_fetchmeth as */
+#    /* mentioned above, and looks in the SV* slot of it for */
+#    /* the "fallback" status. */
+#    sv_setsv(
+#        get_sv( "$self->{Package}::()", TRUE ),
+#        $self->{Fallback}
+#    );
+EOF
+
+  print @{ $self->{InitFileCode} };
+
+  print Q(<<"EOF") if defined $self->{XsubAliases} or defined $self->{interfaces};
+#    }
+EOF
+
+  if (@{ $BootCode_ref }) {
+    print "\n    /* Initialisation Section */\n\n";
+    @{ $self->{line} } = @{ $BootCode_ref };
+    $self->print_section();
+    print "\n    /* End of Initialisation Section */\n\n";
+  }
+
+  print Q(<<'EOF');
+##if PERL_VERSION_LE(5, 21, 5)
+##  if PERL_VERSION_GE(5, 9, 0)
+#    if (PL_unitcheckav)
+#        call_list(PL_scopestack_ix, PL_unitcheckav);
+##  endif
+#    XSRETURN_YES;
+##else
+#    Perl_xs_boot_epilog(aTHX_ ax);
+##endif
+#]]
+#
+EOF
+
+  warn("Please specify prototyping behavior for $self->{filename} (see perlxs manual)\n")
+    unless $self->{ProtoUsed};
+
+  chdir($orig_cwd);
+  select($orig_fh);
+  untie *PSEUDO_STDOUT if tied *PSEUDO_STDOUT;
+  close $self->{FH};
+
+  return 1;
+}
+
+sub report_error_count {
+  if (@_) {
+    return $_[0]->{errors}||0;
+  }
+  else {
+    return $Singleton->{errors}||0;
+  }
+}
+
+# Input:  ($self, $_, @{ $self->{line} }) == unparsed input.
+# Output: ($_, @{ $self->{line} }) == (rest of line, following lines).
+# Return: the matched keyword if found, otherwise 0
+sub check_keyword {
+  my $self = shift;
+  $_ = shift(@{ $self->{line} }) while !/\S/ && @{ $self->{line} };
+  s/^(\s*)($_[0])\s*:\s*(?:#.*)?/$1/s && $2;
+}
+
+sub print_section {
+  my $self = shift;
+
+  # the "do" is required for right semantics
+  do { $_ = shift(@{ $self->{line} }) } while !/\S/ && @{ $self->{line} };
+
+  my $consumed_code = '';
+
+  print("#line ", $self->{line_no}->[@{ $self->{line_no} } - @{ $self->{line} } -1], " \"",
+        escape_file_for_line_directive($self->{filepathname}), "\"\n")
+    if $self->{WantLineNumbers} && !/^\s*#\s*line\b/ && !/^#if XSubPPtmp/;
+  for (;  defined($_) && !/^$BLOCK_regexp/o;  $_ = shift(@{ $self->{line} })) {
+    print "$_\n";
+    $consumed_code .= "$_\n";
+  }
+  print 'ExtUtils::ParseXS::CountLines'->end_marker, "\n" if $self->{WantLineNumbers};
+
+  return $consumed_code;
+}
+
+sub merge_section {
+  my $self = shift;
+  my $in = '';
+
+  while (!/\S/ && @{ $self->{line} }) {
+    $_ = shift(@{ $self->{line} });
+  }
+
+  for (;  defined($_) && !/^$BLOCK_regexp/o;  $_ = shift(@{ $self->{line} })) {
+    $in .= "$_\n";
+  }
+  chomp $in;
+  return $in;
+}
+
+sub process_keyword {
+  my($self, $pattern) = @_;
+
+  while (my $kwd = $self->check_keyword($pattern)) {
+    my $method = $kwd . "_handler";
+    $self->$method($_);
+  }
+}
+
+sub CASE_handler {
+  my $self = shift;
+  $_ = shift;
+  $self->blurt("Error: 'CASE:' after unconditional 'CASE:'")
+    if $self->{condnum} && $self->{cond} eq '';
+  $self->{cond} = $_;
+  trim_whitespace($self->{cond});
+  print "   ", ($self->{condnum}++ ? " else" : ""), ($self->{cond} ? " if ($self->{cond})\n" : "\n");
+  $_ = '';
+}
+
+sub INPUT_handler {
+  my $self = shift;
+  $_ = shift;
+  for (;  !/^$BLOCK_regexp/o;  $_ = shift(@{ $self->{line} })) {
+    last if /^\s*NOT_IMPLEMENTED_YET/;
+    next unless /\S/;        # skip blank lines
+
+    trim_whitespace($_);
+    my $ln = $_;
+
+    # remove trailing semicolon if no initialisation
+    s/\s*;$//g unless /[=;+].*\S/;
+
+    # Process the length(foo) declarations
+    if (s/^([^=]*)\blength\(\s*(\w+)\s*\)\s*$/$1 XSauto_length_of_$2=NO_INIT/x) {
+      print "\tSTRLEN\tSTRLEN_length_of_$2;\n";
+      $self->{lengthof}->{$2} = undef;
+      $self->{deferred} .= "\n\tXSauto_length_of_$2 = STRLEN_length_of_$2;\n";
+    }
+
+    # check for optional initialisation code
+    my $var_init = '';
+    $var_init = $1 if s/\s*([=;+].*)$//s;
+    $var_init =~ s/"/\\"/g;
+    # *sigh* It's valid to supply explicit input typemaps in the argument list...
+    my $is_overridden_typemap = $var_init =~ /ST\s*\(|\$arg\b/;
+
+    s/\s+/ /g;
+    my ($var_type, $var_addr, $var_name) = /^(.*?[^&\s])\s*(\&?)\s*\b(\w+)$/s
+      or $self->blurt("Error: invalid argument declaration '$ln'"), next;
+
+    # Check for duplicate definitions
+    $self->blurt("Error: duplicate definition of argument '$var_name' ignored"), next
+      if $self->{arg_list}->{$var_name}++
+        or defined $self->{argtype_seen}->{$var_name} and not $self->{processing_arg_with_types};
+
+    $self->{thisdone} |= $var_name eq "THIS";
+    $self->{retvaldone} |= $var_name eq "RETVAL";
+    $self->{var_types}->{$var_name} = $var_type;
+    # XXXX This check is a safeguard against the unfinished conversion of
+    # generate_init().  When generate_init() is fixed,
+    # one can use 2-args map_type() unconditionally.
+    my $printed_name;
+    if ($var_type =~ / \( \s* \* \s* \) /x) {
+      # Function pointers are not yet supported with output_init()!
+      print "\t" . map_type($self, $var_type, $var_name);
+      $printed_name = 1;
+    }
+    else {
+      print "\t" . map_type($self, $var_type, undef);
+      $printed_name = 0;
+    }
+    $self->{var_num} = $self->{args_match}->{$var_name};
+
+    if ($self->{var_num}) {
+      my $typemap = $self->{typemap}->get_typemap(ctype => $var_type);
+      $self->report_typemap_failure($self->{typemap}, $var_type, "death")
+        if not $typemap and not $is_overridden_typemap;
+      $self->{proto_arg}->[$self->{var_num}] = ($typemap && $typemap->proto) || "\$";
+    }
+    $self->{func_args} =~ s/\b($var_name)\b/&$1/ if $var_addr;
+    if ($var_init =~ /^[=;]\s*NO_INIT\s*;?\s*$/
+      or $self->{in_out}->{$var_name} and $self->{in_out}->{$var_name} =~ /^OUT/
+      and $var_init !~ /\S/) {
+      if ($printed_name) {
+        print ";\n";
+      }
+      else {
+        print "\t$var_name;\n";
+      }
+    }
+    elsif ($var_init =~ /\S/) {
+      $self->output_init( {
+        type          => $var_type,
+        num           => $self->{var_num},
+        var           => $var_name,
+        init          => $var_init,
+        printed_name  => $printed_name,
+      } );
+    }
+    elsif ($self->{var_num}) {
+      $self->generate_init( {
+        type          => $var_type,
+        num           => $self->{var_num},
+        var           => $var_name,
+        printed_name  => $printed_name,
+      } );
+    }
+    else {
+      print ";\n";
+    }
+  }
+}
+
+sub OUTPUT_handler {
+  my $self = shift;
+  $self->{have_OUTPUT} = 1;
+
+  $_ = shift;
+  for (;  !/^$BLOCK_regexp/o;  $_ = shift(@{ $self->{line} })) {
+    next unless /\S/;
+    if (/^\s*SETMAGIC\s*:\s*(ENABLE|DISABLE)\s*/) {
+      $self->{DoSetMagic} = ($1 eq "ENABLE" ? 1 : 0);
+      next;
+    }
+    my ($outarg, $outcode) = /^\s*(\S+)\s*(.*?)\s*$/s;
+    $self->blurt("Error: duplicate OUTPUT argument '$outarg' ignored"), next
+      if $self->{outargs}->{$outarg}++;
+    if (!$self->{gotRETVAL} and $outarg eq 'RETVAL') {
+      # deal with RETVAL last
+      $self->{RETVAL_code} = $outcode;
+      $self->{gotRETVAL} = 1;
+      next;
+    }
+    $self->blurt("Error: OUTPUT $outarg not an argument"), next
+      unless defined($self->{args_match}->{$outarg});
+    $self->blurt("Error: No input definition for OUTPUT argument '$outarg' - ignored"), next
+      unless defined $self->{var_types}->{$outarg};
+    $self->{var_num} = $self->{args_match}->{$outarg};
+    if ($outcode) {
+      print "\t$outcode\n";
+      print "\tSvSETMAGIC(ST(" , $self->{var_num} - 1 , "));\n" if $self->{DoSetMagic};
+    }
+    else {
+      $self->generate_output( {
+        type        => $self->{var_types}->{$outarg},
+        num         => $self->{var_num},
+        var         => $outarg,
+        do_setmagic => $self->{DoSetMagic},
+        do_push     => undef,
+      } );
+    }
+    delete $self->{in_out}->{$outarg}     # No need to auto-OUTPUT
+      if exists $self->{in_out}->{$outarg} and $self->{in_out}->{$outarg} =~ /OUT$/;
+  }
+}
+
+sub C_ARGS_handler {
+  my $self = shift;
+  $_ = shift;
+  my $in = $self->merge_section();
+
+  trim_whitespace($in);
+  $self->{func_args} = $in;
+}
+
+sub INTERFACE_MACRO_handler {
+  my $self = shift;
+  $_ = shift;
+  my $in = $self->merge_section();
+
+  trim_whitespace($in);
+  if ($in =~ /\s/) {        # two
+    ($self->{interface_macro}, $self->{interface_macro_set}) = split ' ', $in;
+  }
+  else {
+    $self->{interface_macro} = $in;
+    $self->{interface_macro_set} = 'UNKNOWN_CVT'; # catch later
+  }
+  $self->{interface} = 1;        # local
+  $self->{interfaces} = 1;        # global
+}
+
+sub INTERFACE_handler {
+  my $self = shift;
+  $_ = shift;
+  my $in = $self->merge_section();
+
+  trim_whitespace($in);
+
+  foreach (split /[\s,]+/, $in) {
+    my $iface_name = $_;
+    $iface_name =~ s/^$self->{Prefix}//;
+    $self->{Interfaces}->{$iface_name} = $_;
+  }
+  print Q(<<"EOF");
+#    XSFUNCTION = $self->{interface_macro}($self->{ret_type},cv,XSANY.any_dptr);
+EOF
+  $self->{interface} = 1;        # local
+  $self->{interfaces} = 1;        # global
+}
+
+sub CLEANUP_handler {
+  my $self = shift;
+  $self->print_section();
+}
+
+sub PREINIT_handler {
+  my $self = shift;
+  $self->print_section();
+}
+
+sub POSTCALL_handler {
+  my $self = shift;
+  $self->print_section();
+}
+
+sub INIT_handler {
+  my $self = shift;
+  $self->print_section();
+}
+
+sub get_aliases {
+  my $self = shift;
+  my ($line) = @_;
+  my ($orig) = $line;
+
+  # Parse alias definitions
+  # format is
+  #    alias = value alias = value ...
+
+  while ($line =~ s/^\s*([\w:]+)\s*=\s*(\w+)\s*//) {
+    my ($alias, $value) = ($1, $2);
+    my $orig_alias = $alias;
+
+    # check for optional package definition in the alias
+    $alias = $self->{Packprefix} . $alias if $alias !~ /::/;
+
+    # check for duplicate alias name & duplicate value
+    Warn( $self, "Warning: Ignoring duplicate alias '$orig_alias'")
+      if defined $self->{XsubAliases}->{$alias};
+
+    Warn( $self, "Warning: Aliases '$orig_alias' and '$self->{XsubAliasValues}->{$value}' have identical values")
+      if $self->{XsubAliasValues}->{$value};
+
+    $self->{XsubAliases}->{$alias} = $value;
+    $self->{XsubAliasValues}->{$value} = $orig_alias;
+  }
+
+  blurt( $self, "Error: Cannot parse ALIAS definitions from '$orig'")
+    if $line;
+}
+
+sub ATTRS_handler {
+  my $self = shift;
+  $_ = shift;
+
+  for (;  !/^$BLOCK_regexp/o;  $_ = shift(@{ $self->{line} })) {
+    next unless /\S/;
+    trim_whitespace($_);
+    push @{ $self->{Attributes} }, $_;
+  }
+}
+
+sub ALIAS_handler {
+  my $self = shift;
+  $_ = shift;
+
+  for (;  !/^$BLOCK_regexp/o;  $_ = shift(@{ $self->{line} })) {
+    next unless /\S/;
+    trim_whitespace($_);
+    $self->get_aliases($_) if $_;
+  }
+}
+
+sub OVERLOAD_handler {
+  my $self = shift;
+  $_ = shift;
+
+  for (;  !/^$BLOCK_regexp/o;  $_ = shift(@{ $self->{line} })) {
+    next unless /\S/;
+    trim_whitespace($_);
+    while ( s/^\s*([\w:"\\)\+\-\*\/\%\<\>\.\&\|\^\!\~\{\}\=]+)\s*//) {
+      $self->{Overload} = 1 unless $self->{Overload};
+      my $overload = "$self->{Package}\::(".$1;
+      push(@{ $self->{InitFileCode} },
+       "        (void)$self->{newXS}(\"$overload\", XS_$self->{Full_func_name}$self->{file}$self->{proto});\n");
+    }
+  }
+}
+
+sub FALLBACK_handler {
+  my ($self, $setting) = @_;
+
+  # the rest of the current line should contain either TRUE,
+  # FALSE or UNDEF
+
+  trim_whitespace($setting);
+  $setting = uc($setting);
+
+  my %map = (
+    TRUE => "&PL_sv_yes", 1 => "&PL_sv_yes",
+    FALSE => "&PL_sv_no", 0 => "&PL_sv_no",
+    UNDEF => "&PL_sv_undef",
+  );
+
+  # check for valid FALLBACK value
+  $self->death("Error: FALLBACK: TRUE/FALSE/UNDEF") unless exists $map{$setting};
+
+  $self->{Fallback} = $map{$setting};
+}
+
+
+sub REQUIRE_handler {
+  # the rest of the current line should contain a version number
+  my ($self, $ver) = @_;
+
+  trim_whitespace($ver);
+
+  $self->death("Error: REQUIRE expects a version number")
+    unless $ver;
+
+  # check that the version number is of the form n.n
+  $self->death("Error: REQUIRE: expected a number, got '$ver'")
+    unless $ver =~ /^\d+(\.\d*)?/;
+
+  $self->death("Error: xsubpp $ver (or better) required--this is only $VERSION.")
+    unless $VERSION >= $ver;
+}
+
+sub VERSIONCHECK_handler {
+  # the rest of the current line should contain either ENABLE or
+  # DISABLE
+  my ($self, $setting) = @_;
+
+  trim_whitespace($setting);
+
+  # check for ENABLE/DISABLE
+  $self->death("Error: VERSIONCHECK: ENABLE/DISABLE")
+    unless $setting =~ /^(ENABLE|DISABLE)/i;
+
+  $self->{WantVersionChk} = 1 if $1 eq 'ENABLE';
+  $self->{WantVersionChk} = 0 if $1 eq 'DISABLE';
+
+}
+
+sub PROTOTYPE_handler {
+  my $self = shift;
+  $_ = shift;
+
+  my $specified;
+
+  $self->death("Error: Only 1 PROTOTYPE definition allowed per xsub")
+    if $self->{proto_in_this_xsub}++;
+
+  for (;  !/^$BLOCK_regexp/o;  $_ = shift(@{ $self->{line} })) {
+    next unless /\S/;
+    $specified = 1;
+    trim_whitespace($_);
+    if ($_ eq 'DISABLE') {
+      $self->{ProtoThisXSUB} = 0;
+    }
+    elsif ($_ eq 'ENABLE') {
+      $self->{ProtoThisXSUB} = 1;
+    }
+    else {
+      # remove any whitespace
+      s/\s+//g;
+      $self->death("Error: Invalid prototype '$_'")
+        unless valid_proto_string($_);
+      $self->{ProtoThisXSUB} = C_string($_);
+    }
+  }
+
+  # If no prototype specified, then assume empty prototype ""
+  $self->{ProtoThisXSUB} = 2 unless $specified;
+
+  $self->{ProtoUsed} = 1;
+}
+
+sub SCOPE_handler {
+  # Rest of line should be either ENABLE or DISABLE
+  my ($self, $setting) = @_;
+
+  $self->death("Error: Only 1 SCOPE declaration allowed per xsub")
+    if $self->{scope_in_this_xsub}++;
+
+  trim_whitespace($setting);
+  $self->death("Error: SCOPE: ENABLE/DISABLE")
+      unless $setting =~ /^(ENABLE|DISABLE)\b/i;
+  $self->{ScopeThisXSUB} = ( uc($1) eq 'ENABLE' );
+}
+
+sub PROTOTYPES_handler {
+  # the rest of the current line should contain either ENABLE or
+  # DISABLE
+  my ($self, $setting) = @_;
+
+  trim_whitespace($setting);
+
+  # check for ENABLE/DISABLE
+  $self->death("Error: PROTOTYPES: ENABLE/DISABLE")
+    unless $setting =~ /^(ENABLE|DISABLE)/i;
+
+  $self->{WantPrototypes} = 1 if $1 eq 'ENABLE';
+  $self->{WantPrototypes} = 0 if $1 eq 'DISABLE';
+  $self->{ProtoUsed} = 1;
+}
+
+sub EXPORT_XSUB_SYMBOLS_handler {
+  # the rest of the current line should contain either ENABLE or
+  # DISABLE
+  my ($self, $setting) = @_;
+
+  trim_whitespace($setting);
+
+  # check for ENABLE/DISABLE
+  $self->death("Error: EXPORT_XSUB_SYMBOLS: ENABLE/DISABLE")
+    unless $setting =~ /^(ENABLE|DISABLE)/i;
+
+  my $xs_impl = $1 eq 'ENABLE' ? 'XS_EXTERNAL' : 'XS_INTERNAL';
+
+  print Q(<<"EOF");
+##undef XS_EUPXS
+##if defined(PERL_EUPXS_ALWAYS_EXPORT)
+##  define XS_EUPXS(name) XS_EXTERNAL(name)
+##elif defined(PERL_EUPXS_NEVER_EXPORT)
+##  define XS_EUPXS(name) XS_INTERNAL(name)
+##else
+##  define XS_EUPXS(name) $xs_impl(name)
+##endif
+EOF
+}
+
+
+sub PushXSStack {
+  my $self = shift;
+  my %args = @_;
+  # Save the current file context.
+  push(@{ $self->{XSStack} }, {
+          type            => 'file',
+          LastLine        => $self->{lastline},
+          LastLineNo      => $self->{lastline_no},
+          Line            => $self->{line},
+          LineNo          => $self->{line_no},
+          Filename        => $self->{filename},
+          Filepathname    => $self->{filepathname},
+          Handle          => $self->{FH},
+          IsPipe          => scalar($self->{filename} =~ /\|\s*$/),
+          %args,
+         });
+
+}
+
+sub INCLUDE_handler {
+  my $self = shift;
+  $_ = shift;
+  # the rest of the current line should contain a valid filename
+
+  trim_whitespace($_);
+
+  $self->death("INCLUDE: filename missing")
+    unless $_;
+
+  $self->death("INCLUDE: output pipe is illegal")
+    if /^\s*\|/;
+
+  # simple minded recursion detector
+  $self->death("INCLUDE loop detected")
+    if $self->{IncludedFiles}->{$_};
+
+  ++$self->{IncludedFiles}->{$_} unless /\|\s*$/;
+
+  if (/\|\s*$/ && /^\s*perl\s/) {
+    Warn( $self, "The INCLUDE directive with a command is discouraged." .
+          " Use INCLUDE_COMMAND instead! In particular using 'perl'" .
+          " in an 'INCLUDE: ... |' directive is not guaranteed to pick" .
+          " up the correct perl. The INCLUDE_COMMAND directive allows" .
+          " the use of \$^X as the currently running perl, see" .
+          " 'perldoc perlxs' for details.");
+  }
+
+  $self->PushXSStack();
+
+  $self->{FH} = Symbol::gensym();
+
+  # open the new file
+  open($self->{FH}, $_) or $self->death("Cannot open '$_': $!");
+
+  print Q(<<"EOF");
+#
+#/* INCLUDE:  Including '$_' from '$self->{filename}' */
+#
+EOF
+
+  $self->{filename} = $_;
+  $self->{filepathname} = ( $^O =~ /^mswin/i )
+                          ? qq($self->{dir}/$self->{filename}) # See CPAN RT #61908: gcc doesn't like backslashes on win32?
+                          : File::Spec->catfile($self->{dir}, $self->{filename});
+
+  # Prime the pump by reading the first
+  # non-blank line
+
+  # skip leading blank lines
+  while (readline($self->{FH})) {
+    last unless /^\s*$/;
+  }
+
+  $self->{lastline} = $_;
+  $self->{lastline_no} = $.;
+}
+
+sub QuoteArgs {
+  my $cmd = shift;
+  my @args = split /\s+/, $cmd;
+  $cmd = shift @args;
+  for (@args) {
+    $_ = q(").$_.q(") if !/^\"/ && length($_) > 0;
+  }
+  return join (' ', ($cmd, @args));
+}
+
+# code copied from CPAN::HandleConfig::safe_quote
+#  - that has doc saying leave if start/finish with same quote, but no code
+# given text, will conditionally quote it to protect from shell
+{
+  my ($quote, $use_quote) = $^O eq 'MSWin32'
+      ? (q{"}, q{"})
+      : (q{"'}, q{'});
+  sub _safe_quote {
+      my ($self, $command) = @_;
+      # Set up quote/default quote
+      if (defined($command)
+          and $command =~ /\s/
+          and $command !~ /[$quote]/) {
+          return qq{$use_quote$command$use_quote}
+      }
+      return $command;
+  }
+}
+
+sub INCLUDE_COMMAND_handler {
+  my $self = shift;
+  $_ = shift;
+  # the rest of the current line should contain a valid command
+
+  trim_whitespace($_);
+
+  $_ = QuoteArgs($_) if $^O eq 'VMS';
+
+  $self->death("INCLUDE_COMMAND: command missing")
+    unless $_;
+
+  $self->death("INCLUDE_COMMAND: pipes are illegal")
+    if /^\s*\|/ or /\|\s*$/;
+
+  $self->PushXSStack( IsPipe => 1 );
+
+  $self->{FH} = Symbol::gensym();
+
+  # If $^X is used in INCLUDE_COMMAND, we know it's supposed to be
+  # the same perl interpreter as we're currently running
+  my $X = $self->_safe_quote($^X); # quotes if has spaces
+  s/^\s*\$\^X/$X/;
+
+  # open the new file
+  open ($self->{FH}, "-|", $_)
+    or $self->death( $self, "Cannot run command '$_' to include its output: $!");
+
+  print Q(<<"EOF");
+#
+#/* INCLUDE_COMMAND:  Including output of '$_' from '$self->{filename}' */
+#
+EOF
+
+  $self->{filename} = $_;
+  $self->{filepathname} = $self->{filename};
+  #$self->{filepathname} =~ s/\"/\\"/g; # Fails? See CPAN RT #53938: MinGW Broken after 2.21
+  $self->{filepathname} =~ s/\\/\\\\/g; # Works according to reporter of #53938
+
+  # Prime the pump by reading the first
+  # non-blank line
+
+  # skip leading blank lines
+  while (readline($self->{FH})) {
+    last unless /^\s*$/;
+  }
+
+  $self->{lastline} = $_;
+  $self->{lastline_no} = $.;
+}
+
+sub PopFile {
+  my $self = shift;
+
+  return 0 unless $self->{XSStack}->[-1]{type} eq 'file';
+
+  my $data     = pop @{ $self->{XSStack} };
+  my $ThisFile = $self->{filename};
+  my $isPipe   = $data->{IsPipe};
+
+  --$self->{IncludedFiles}->{$self->{filename}}
+    unless $isPipe;
+
+  close $self->{FH};
+
+  $self->{FH}         = $data->{Handle};
+  # $filename is the leafname, which for some reason is used for diagnostic
+  # messages, whereas $filepathname is the full pathname, and is used for
+  # #line directives.
+  $self->{filename}   = $data->{Filename};
+  $self->{filepathname} = $data->{Filepathname};
+  $self->{lastline}   = $data->{LastLine};
+  $self->{lastline_no} = $data->{LastLineNo};
+  @{ $self->{line} }       = @{ $data->{Line} };
+  @{ $self->{line_no} }    = @{ $data->{LineNo} };
+
+  if ($isPipe and $? ) {
+    --$self->{lastline_no};
+    print STDERR "Error reading from pipe '$ThisFile': $! in $self->{filename}, line $self->{lastline_no}\n" ;
+    exit 1;
+  }
+
+  print Q(<<"EOF");
+#
+#/* INCLUDE: Returning to '$self->{filename}' from '$ThisFile' */
+#
+EOF
+
+  return 1;
+}
+
+sub Q {
+  my($text) = @_;
+  $text =~ s/^#//gm;
+  $text =~ s/\[\[/{/g;
+  $text =~ s/\]\]/}/g;
+  $text;
+}
+
+# Process "MODULE = Foo ..." lines and update global state accordingly
+sub _process_module_xs_line {
+  my ($self, $module, $pkg, $prefix) = @_;
+
+  ($self->{Module_cname} = $module) =~ s/\W/_/g;
+
+  $self->{Package} = defined($pkg) ? $pkg : '';
+  $self->{Prefix}  = quotemeta( defined($prefix) ? $prefix : '' );
+
+  ($self->{Packid} = $self->{Package}) =~ tr/:/_/;
+
+  $self->{Packprefix} = $self->{Package};
+  $self->{Packprefix} .= "::" if $self->{Packprefix} ne "";
+
+  $self->{lastline} = "";
+}
+
+# Skip any embedded POD sections
+sub _maybe_skip_pod {
+  my ($self) = @_;
+
+  while ($self->{lastline} =~ /^=/) {
+    while ($self->{lastline} = readline($self->{FH})) {
+      last if ($self->{lastline} =~ /^=cut\s*$/);
+    }
+    $self->death("Error: Unterminated pod") unless defined $self->{lastline};
+    $self->{lastline} = readline($self->{FH});
+    chomp $self->{lastline};
+    $self->{lastline} =~ s/^\s+$//;
+  }
+}
+
+# This chunk of code strips out (and parses) embedded TYPEMAP blocks
+# which support a HEREdoc-alike block syntax.
+sub _maybe_parse_typemap_block {
+  my ($self) = @_;
+
+  # This is special cased from the usual paragraph-handler logic
+  # due to the HEREdoc-ish syntax.
+  if ($self->{lastline} =~ /^TYPEMAP\s*:\s*<<\s*(?:(["'])(.+?)\1|([^\s'"]+?))\s*;?\s*$/)
+  {
+    my $end_marker = quotemeta(defined($1) ? $2 : $3);
+
+    # Scan until we find $end_marker alone on a line.
+    my @tmaplines;
+    while (1) {
+      $self->{lastline} = readline($self->{FH});
+      $self->death("Error: Unterminated TYPEMAP section") if not defined $self->{lastline};
+      last if $self->{lastline} =~ /^$end_marker\s*$/;
+      push @tmaplines, $self->{lastline};
+    }
+
+    my $tmap = ExtUtils::Typemaps->new(
+      string        => join("", @tmaplines),
+      lineno_offset => 1 + ($self->current_line_number() || 0),
+      fake_filename => $self->{filename},
+    );
+    $self->{typemap}->merge(typemap => $tmap, replace => 1);
+
+    $self->{lastline} = "";
+  }
+}
+
+# Read next xsub into @{ $self->{line} } from ($lastline, readline($self->{FH})).
+sub fetch_para {
+  my $self = shift;
+
+  # parse paragraph
+  $self->death("Error: Unterminated '#if/#ifdef/#ifndef'")
+    if !defined $self->{lastline} && $self->{XSStack}->[-1]{type} eq 'if';
+  @{ $self->{line} } = ();
+  @{ $self->{line_no} } = ();
+  return $self->PopFile() if not defined $self->{lastline}; # EOF
+
+  if ($self->{lastline} =~
+      /^MODULE\s*=\s*([\w:]+)(?:\s+PACKAGE\s*=\s*([\w:]+))?(?:\s+PREFIX\s*=\s*(\S+))?\s*$/)
+  {
+    $self->_process_module_xs_line($1, $2, $3);
+  }
+
+  for (;;) {
+    $self->_maybe_skip_pod;
+
+    $self->_maybe_parse_typemap_block;
+
+    if ($self->{lastline} !~ /^\s*#/ # not a CPP directive
+        # CPP directives:
+        #    ANSI:    if ifdef ifndef elif else endif define undef
+        #        line error pragma
+        #    gcc:    warning include_next
+        #   obj-c:    import
+        #   others:    ident (gcc notes that some cpps have this one)
+        || $self->{lastline} =~ /^\#[ \t]*
+                                  (?:
+                                        (?:if|ifn?def|elif|else|endif|
+                                           define|undef|pragma|error|
+                                           warning|line\s+\d+|ident)
+                                        \b
+                                      | (?:include(?:_next)?|import)
+                                        \s* ["<] .* [>"]
+                                 )
+                                /x
+    )
+    {
+      last if $self->{lastline} =~ /^\S/ && @{ $self->{line} } && $self->{line}->[-1] eq "";
+      push(@{ $self->{line} }, $self->{lastline});
+      push(@{ $self->{line_no} }, $self->{lastline_no});
+    }
+
+    # Read next line and continuation lines
+    last unless defined($self->{lastline} = readline($self->{FH}));
+    $self->{lastline_no} = $.;
+    my $tmp_line;
+    $self->{lastline} .= $tmp_line
+      while ($self->{lastline} =~ /\\$/ && defined($tmp_line = readline($self->{FH})));
+
+    chomp $self->{lastline};
+    $self->{lastline} =~ s/^\s+$//;
+  }
+
+  # Nuke trailing "line" entries until there's one that's not empty
+  pop(@{ $self->{line} }), pop(@{ $self->{line_no} })
+    while @{ $self->{line} } && $self->{line}->[-1] eq "";
+
+  return 1;
+}
+
+sub output_init {
+  my $self = shift;
+  my $argsref = shift;
+
+  my ($type, $num, $var, $init, $printed_name)
+    = @{$argsref}{qw(type num var init printed_name)};
+
+  # local assign for efficiently passing in to eval_input_typemap_code
+  local $argsref->{arg} = $num
+                          ? "ST(" . ($num-1) . ")"
+                          : "/* not a parameter */";
+
+  if ( $init =~ /^=/ ) {
+    if ($printed_name) {
+      $self->eval_input_typemap_code(qq/print " $init\\n"/, $argsref);
+    }
+    else {
+      $self->eval_input_typemap_code(qq/print "\\t$var $init\\n"/, $argsref);
+    }
+  }
+  else {
+    if (  $init =~ s/^\+//  &&  $num  ) {
+      $self->generate_init( {
+        type          => $type,
+        num           => $num,
+        var           => $var,
+        printed_name  => $printed_name,
+      } );
+    }
+    elsif ($printed_name) {
+      print ";\n";
+      $init =~ s/^;//;
+    }
+    else {
+      $self->eval_input_typemap_code(qq/print "\\t$var;\\n"/, $argsref);
+      $init =~ s/^;//;
+    }
+    $self->{deferred}
+      .= $self->eval_input_typemap_code(qq/"\\n\\t$init\\n"/, $argsref);
+  }
+}
+
+sub generate_init {
+  my $self = shift;
+  my $argsref = shift;
+
+  my ($type, $num, $var, $printed_name)
+    = @{$argsref}{qw(type num var printed_name)};
+
+  my $argoff = $num - 1;
+  my $arg = "ST($argoff)";
+
+  my $typemaps = $self->{typemap};
+
+  $type = ExtUtils::Typemaps::tidy_type($type);
+  if (not $typemaps->get_typemap(ctype => $type)) {
+    $self->report_typemap_failure($typemaps, $type);
+    return;
+  }
+
+  (my $ntype = $type) =~ s/\s*\*/Ptr/g;
+  (my $subtype = $ntype) =~ s/(?:Array)?(?:Ptr)?$//;
+
+  my $typem = $typemaps->get_typemap(ctype => $type);
+  my $xstype = $typem->xstype;
+  #this is an optimization from perl 5.0 alpha 6, class check is skipped
+  #T_REF_IV_REF is missing since it has no untyped analog at the moment
+  $xstype =~ s/OBJ$/REF/ || $xstype =~ s/^T_REF_IV_PTR$/T_PTRREF/
+    if $self->{func_name} =~ /DESTROY$/;
+  if ($xstype eq 'T_PV' and exists $self->{lengthof}->{$var}) {
+    print "\t$var" unless $printed_name;
+    print " = ($type)SvPV($arg, STRLEN_length_of_$var);\n";
+    die "default value not supported with length(NAME) supplied"
+      if defined $self->{defaults}->{$var};
+    return;
+  }
+  $type =~ tr/:/_/ unless $self->{RetainCplusplusHierarchicalTypes};
+
+  my $inputmap = $typemaps->get_inputmap(xstype => $xstype);
+  if (not defined $inputmap) {
+    $self->blurt("Error: No INPUT definition for type '$type', typekind '" . $type->xstype . "' found");
+    return;
+  }
+
+  my $expr = $inputmap->cleaned_code;
+  # Note: This gruesome bit either needs heavy rethinking or documentation. I vote for the former. --Steffen
+  if ($expr =~ /DO_ARRAY_ELEM/) {
+    my $subtypemap  = $typemaps->get_typemap(ctype => $subtype);
+    if (not $subtypemap) {
+      $self->report_typemap_failure($typemaps, $subtype);
+      return;
+    }
+
+    my $subinputmap = $typemaps->get_inputmap(xstype => $subtypemap->xstype);
+    if (not $subinputmap) {
+      $self->blurt("Error: No INPUT definition for type '$subtype', typekind '" . $subtypemap->xstype . "' found");
+      return;
+    }
+
+    my $subexpr = $subinputmap->cleaned_code;
+    $subexpr =~ s/\$type/\$subtype/g;
+    $subexpr =~ s/ntype/subtype/g;
+    $subexpr =~ s/\$arg/ST(ix_$var)/g;
+    $subexpr =~ s/\n\t/\n\t\t/g;
+    $subexpr =~ s/is not of (.*\")/[arg %d] is not of $1, ix_$var + 1/g;
+    $subexpr =~ s/\$var/${var}\[ix_$var - $argoff]/;
+    $expr =~ s/DO_ARRAY_ELEM/$subexpr/;
+  }
+  if ($expr =~ m#/\*.*scope.*\*/#i) {  # "scope" in C comments
+    $self->{ScopeThisXSUB} = 1;
+  }
+
+  my $eval_vars = {
+    var           => $var,
+    printed_name  => $printed_name,
+    type          => $type,
+    ntype         => $ntype,
+    subtype       => $subtype,
+    num           => $num,
+    arg           => $arg,
+    argoff        => $argoff,
+  };
+
+  if (defined($self->{defaults}->{$var})) {
+    $expr =~ s/(\t+)/$1    /g;
+    $expr =~ s/        /\t/g;
+    if ($printed_name) {
+      print ";\n";
+    }
+    else {
+      $self->eval_input_typemap_code(qq/print "\\t$var;\\n"/, $eval_vars);
+    }
+    if ($self->{defaults}->{$var} eq 'NO_INIT') {
+      $self->{deferred} .= $self->eval_input_typemap_code(
+        qq/"\\n\\tif (items >= $num) {\\n$expr;\\n\\t}\\n"/,
+        $eval_vars
+      );
+    }
+    else {
+      $self->{deferred} .= $self->eval_input_typemap_code(
+        qq/"\\n\\tif (items < $num)\\n\\t    $var = $self->{defaults}->{$var};\\n\\telse {\\n$expr;\\n\\t}\\n"/,
+        $eval_vars
+      );
+    }
+  }
+  elsif ($self->{ScopeThisXSUB} or $expr !~ /^\s*\$var =/) {
+    if ($printed_name) {
+      print ";\n";
+    }
+    else {
+      $self->eval_input_typemap_code(qq/print "\\t$var;\\n"/, $eval_vars);
+    }
+    $self->{deferred}
+      .= $self->eval_input_typemap_code(qq/"\\n$expr;\\n"/, $eval_vars);
+  }
+  else {
+    die "panic: do not know how to handle this branch for function pointers"
+      if $printed_name;
+    $self->eval_input_typemap_code(qq/print "$expr;\\n"/, $eval_vars);
+  }
+}
+
+sub generate_output {
+  my $self = shift;
+  my $argsref = shift;
+  my ($type, $num, $var, $do_setmagic, $do_push)
+    = @{$argsref}{qw(type num var do_setmagic do_push)};
+
+  my $arg = "ST(" . ($num - ($num != 0)) . ")";
+
+  my $typemaps = $self->{typemap};
+
+  $type = ExtUtils::Typemaps::tidy_type($type);
+  local $argsref->{type} = $type;
+
+  if ($type =~ /^array\(([^,]*),(.*)\)/) {
+    print "\t$arg = sv_newmortal();\n";
+    print "\tsv_setpvn($arg, (char *)$var, $2 * sizeof($1));\n";
+    print "\tSvSETMAGIC($arg);\n" if $do_setmagic;
+  }
+  else {
+    my $typemap = $typemaps->get_typemap(ctype => $type);
+    if (not $typemap) {
+      $self->report_typemap_failure($typemaps, $type);
+      return;
+    }
+
+    my $outputmap = $typemaps->get_outputmap(xstype => $typemap->xstype);
+    if (not $outputmap) {
+      $self->blurt("Error: No OUTPUT definition for type '$type', typekind '" . $typemap->xstype . "' found");
+      return;
+    }
+
+    (my $ntype = $type) =~ s/\s*\*/Ptr/g;
+    $ntype =~ s/\(\)//g;
+    (my $subtype = $ntype) =~ s/(?:Array)?(?:Ptr)?$//;
+
+    my $eval_vars = {%$argsref, subtype => $subtype, ntype => $ntype, arg => $arg};
+    my $expr = $outputmap->cleaned_code;
+    if ($expr =~ /DO_ARRAY_ELEM/) {
+      my $subtypemap = $typemaps->get_typemap(ctype => $subtype);
+      if (not $subtypemap) {
+        $self->report_typemap_failure($typemaps, $subtype);
+        return;
+      }
+
+      my $suboutputmap = $typemaps->get_outputmap(xstype => $subtypemap->xstype);
+      if (not $suboutputmap) {
+        $self->blurt("Error: No OUTPUT definition for type '$subtype', typekind '" . $subtypemap->xstype . "' found");
+        return;
+      }
+
+      my $subexpr = $suboutputmap->cleaned_code;
+      $subexpr =~ s/ntype/subtype/g;
+      $subexpr =~ s/\$arg/ST(ix_$var)/g;
+      $subexpr =~ s/\$var/${var}\[ix_$var]/g;
+      $subexpr =~ s/\n\t/\n\t\t/g;
+      $expr =~ s/DO_ARRAY_ELEM\n/$subexpr/;
+      $self->eval_output_typemap_code("print qq\a$expr\a", $eval_vars);
+      print "\t\tSvSETMAGIC(ST(ix_$var));\n" if $do_setmagic;
+    }
+    elsif ($var eq 'RETVAL') {
+      my $orig_arg = $arg;
+      my $indent;
+      my $use_RETVALSV = 1;
+      my $do_mortal = 0;
+      my $do_copy_tmp = 1;
+      my $pre_expr;
+      local $eval_vars->{arg} = $arg = 'RETVALSV';
+      my $evalexpr = $self->eval_output_typemap_code("qq\a$expr\a", $eval_vars);
+
+      if ($expr =~ /^\t\Q$arg\E = new/) {
+        # We expect that $arg has refcnt 1, so we need to
+        # mortalize it.
+        $do_mortal = 1;
+      }
+      # If RETVAL is immortal, don't mortalize it. This code is not perfect:
+      # It won't detect a func or expression that only returns immortals, for
+      # example, this RE must be tried before next elsif.
+      elsif ($evalexpr =~ /^\t\Q$arg\E\s*=\s*(boolSV\(|(&PL_sv_yes|&PL_sv_no|&PL_sv_undef)\s*;)/) {
+        $do_copy_tmp = 0; #$arg will be a ST(X), no SV* RETVAL, no RETVALSV
+        $use_RETVALSV = 0;
+      }
+      elsif ($evalexpr =~ /^\s*\Q$arg\E\s*=/) {
+        # We expect that $arg has refcnt >=1, so we need
+        # to mortalize it!
+        $use_RETVALSV = 0 if $ntype eq "SVPtr";#reuse SV* RETVAL vs open new block
+        $do_mortal = 1;
+      }
+      else {
+        # Just hope that the entry would safely write it
+        # over an already mortalized value. By
+        # coincidence, something like $arg = &PL_sv_undef
+        # works too, but should be caught above.
+        $pre_expr = "RETVALSV = sv_newmortal();\n";
+        # new mortals don't have set magic
+        $do_setmagic = 0;
+      }
+      if($use_RETVALSV) {
+        print "\t{\n\t    SV * RETVALSV;\n";
+        $indent = "\t    ";
+      } else {
+        $indent = "\t";
+      }
+      print $indent.$pre_expr if $pre_expr;
+
+      if($use_RETVALSV) {
+        #take control of 1 layer of indent, may or may not indent more
+        $evalexpr =~ s/^(\t|        )/$indent/gm;
+        #"\t    \t" doesn't draw right in some IDEs
+        #break down all \t into spaces
+        $evalexpr =~ s/\t/        /g;
+        #rebuild back into \t'es, \t==8 spaces, indent==4 spaces
+        $evalexpr =~ s/        /\t/g;
+      }
+      else {
+        if($do_mortal || $do_setmagic) {
+        #typemap entry evaled with RETVALSV, if we aren't using RETVALSV replace
+          $evalexpr =~ s/RETVALSV/RETVAL/g; #all uses with RETVAL for prettier code
+        }
+        else { #if no extra boilerplate (no mortal, no set magic) is needed
+            #after $evalexport, get rid of RETVALSV's visual cluter and change
+          $evalexpr =~ s/RETVALSV/$orig_arg/g;#the lvalue to ST(X)
+        }
+      }
+      #stop "	RETVAL = RETVAL;" for SVPtr type
+      print $evalexpr if $evalexpr !~ /^\s*RETVAL = RETVAL;$/;
+      print $indent.'RETVAL'.($use_RETVALSV ? 'SV':'')
+            .' = sv_2mortal(RETVAL'.($use_RETVALSV ? 'SV':'').");\n" if $do_mortal;
+      print $indent.'SvSETMAGIC(RETVAL'.($use_RETVALSV ? 'SV':'').");\n" if $do_setmagic;
+      #dont do "RETVALSV = boolSV(RETVAL); ST(0) = RETVALSV;", it is visual clutter
+      print $indent."$orig_arg = RETVAL".($use_RETVALSV ? 'SV':'').";\n"
+        if $do_mortal || $do_setmagic || $do_copy_tmp;
+      print "\t}\n" if $use_RETVALSV;
+    }
+    elsif ($do_push) {
+      print "\tPUSHs(sv_newmortal());\n";
+      local $eval_vars->{arg} = "ST($num)";
+      $self->eval_output_typemap_code("print qq\a$expr\a", $eval_vars);
+      print "\tSvSETMAGIC($arg);\n" if $do_setmagic;
+    }
+    elsif ($arg =~ /^ST\(\d+\)$/) {
+      $self->eval_output_typemap_code("print qq\a$expr\a", $eval_vars);
+      print "\tSvSETMAGIC($arg);\n" if $do_setmagic;
+    }
+  }
+}
+
+
+# Just delegates to a clean package.
+# Shim to evaluate Perl code in the right variable context
+# for typemap code (having things such as $ALIAS set up).
+sub eval_output_typemap_code {
+  my ($self, $code, $other) = @_;
+  return ExtUtils::ParseXS::Eval::eval_output_typemap_code($self, $code, $other);
+}
+
+sub eval_input_typemap_code {
+  my ($self, $code, $other) = @_;
+  return ExtUtils::ParseXS::Eval::eval_input_typemap_code($self, $code, $other);
+}
+
+1;
+
+# vim: ts=2 sw=2 et:
diff --git a/lib/5.24.1/ExtUtils/ParseXS.pod b/lib/5.24.1/ExtUtils/ParseXS.pod
new file mode 100644
index 00000000..6bec0148
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/ParseXS.pod
@@ -0,0 +1,177 @@
+=head1 NAME
+
+ExtUtils::ParseXS - converts Perl XS code into C code
+
+=head1 SYNOPSIS
+
+  use ExtUtils::ParseXS;
+
+  my $pxs = ExtUtils::ParseXS->new;
+  $pxs->process_file( filename => 'foo.xs' );
+
+  $pxs->process_file( filename => 'foo.xs',
+                      output => 'bar.c',
+                      'C++' => 1,
+                      typemap => 'path/to/typemap',
+                      hiertype => 1,
+                      except => 1,
+                      versioncheck => 1,
+                      linenumbers => 1,
+                      optimize => 1,
+                      prototypes => 1,
+                    );
+  
+  # Legacy non-OO interface using a singleton:
+  use ExtUtils::ParseXS qw(process_file);
+  process_file( filename => 'foo.xs' );
+
+=head1 DESCRIPTION
+
+C<ExtUtils::ParseXS> will compile XS code into C code by embedding the constructs
+necessary to let C functions manipulate Perl values and creates the glue
+necessary to let Perl access those functions.  The compiler uses typemaps to
+determine how to map C function parameters and variables to Perl values.
+
+The compiler will search for typemap files called I<typemap>.  It will use
+the following search path to find default typemaps, with the rightmost
+typemap taking precedence.
+
+    ../../../typemap:../../typemap:../typemap:typemap
+
+=head1 EXPORT
+
+None by default.  C<process_file()> and/or C<report_error_count()>
+may be exported upon request. Using the functional interface is
+discouraged.
+
+=head1 METHODS
+
+=over 4
+
+=item $pxs->new()
+
+Returns a new, empty XS parser/compiler object.
+
+=item $pxs->process_file()
+
+This method processes an XS file and sends output to a C file.
+The method may be called as a function (this is the legacy
+interface) and will then use a singleton as invocant.
+
+Named parameters control how the processing is done.
+The following parameters are accepted:
+
+=over 4
+
+=item B<C++>
+
+Adds C<extern "C"> to the C code.  Default is false.
+
+=item B<hiertype>
+
+Retains C<::> in type names so that C++ hierarchical types can be
+mapped.  Default is false.
+
+=item B<except>
+
+Adds exception handling stubs to the C code.  Default is false.
+
+=item B<typemap>
+
+Indicates that a user-supplied typemap should take precedence over the
+default typemaps.  A single typemap may be specified as a string, or
+multiple typemaps can be specified in an array reference, with the
+last typemap having the highest precedence.
+
+=item B<prototypes>
+
+Generates prototype code for all xsubs.  Default is false.
+
+=item B<versioncheck>
+
+Makes sure at run time that the object file (derived from the C<.xs>
+file) and the C<.pm> files have the same version number.  Default is
+true.
+
+=item B<linenumbers>
+
+Adds C<#line> directives to the C output so error messages will look
+like they came from the original XS file.  Default is true.
+
+=item B<optimize>
+
+Enables certain optimizations.  The only optimization that is currently
+affected is the use of I<target>s by the output C code (see L<perlguts>).
+Not optimizing may significantly slow down the generated code, but this is the way
+B<xsubpp> of 5.005 and earlier operated.  Default is to optimize.
+
+=item B<inout>
+
+Enable recognition of C<IN>, C<OUT_LIST> and C<INOUT_LIST>
+declarations.  Default is true.
+
+=item B<argtypes>
+
+Enable recognition of ANSI-like descriptions of function signature.
+Default is true.
+
+=item B<s>
+
+I<Maintainer note:> I have no clue what this does.  Strips function prefixes?
+
+=back
+
+=item $pxs->report_error_count()
+
+This method returns the number of [a certain kind of] errors
+encountered during processing of the XS file.
+
+The method may be called as a function (this is the legacy
+interface) and will then use a singleton as invocant.
+
+=back
+
+=head1 AUTHOR
+
+Based on xsubpp code, written by Larry Wall.
+
+Maintained by:
+
+=over 4
+
+=item *
+
+Ken Williams, <ken@mathforum.org>
+
+=item *
+
+David Golden, <dagolden@cpan.org>
+
+=item *
+
+James Keenan, <jkeenan@cpan.org>
+
+=item *
+
+Steffen Mueller, <smueller@cpan.org>
+
+=back
+
+=head1 COPYRIGHT
+
+Copyright 2002-2014 by Ken Williams, David Golden and other contributors.  All
+rights reserved.
+
+This library is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+Based on the C<ExtUtils::xsubpp> code by Larry Wall and the Perl 5
+Porters, which was released under the same license terms.
+
+=head1 SEE ALSO
+
+L<perl>, ExtUtils::xsubpp, ExtUtils::MakeMaker, L<perlxs>, L<perlxstut>.
+
+=cut
+
+
diff --git a/lib/5.24.1/ExtUtils/ParseXS/Constants.pm b/lib/5.24.1/ExtUtils/ParseXS/Constants.pm
new file mode 100644
index 00000000..2319a24c
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/ParseXS/Constants.pm
@@ -0,0 +1,44 @@
+package ExtUtils::ParseXS::Constants;
+use strict;
+use warnings;
+use Symbol;
+
+our $VERSION = '3.31';
+
+=head1 NAME
+
+ExtUtils::ParseXS::Constants - Initialization values for some globals
+
+=head1 SYNOPSIS
+
+  use ExtUtils::ParseXS::Constants ();
+
+  $PrototypeRegexp = $ExtUtils::ParseXS::Constants::PrototypeRegexp;
+
+=head1 DESCRIPTION
+
+Initialization of certain non-subroutine variables in ExtUtils::ParseXS and some of its
+supporting packages has been moved into this package so that those values can
+be defined exactly once and then re-used in any package.
+
+Nothing is exported.  Use fully qualified variable names.
+
+=cut
+
+# FIXME: THESE ARE NOT CONSTANTS!
+our @InitFileCode;
+
+# Note that to reduce maintenance, $PrototypeRegexp is used
+# by ExtUtils::Typemaps, too!
+our $PrototypeRegexp = "[" . quotemeta('\$%&*@;[]_') . "]";
+our @XSKeywords      = qw( 
+  REQUIRE BOOT CASE PREINIT INPUT INIT CODE PPCODE
+  OUTPUT CLEANUP ALIAS ATTRS PROTOTYPES PROTOTYPE
+  VERSIONCHECK INCLUDE INCLUDE_COMMAND SCOPE INTERFACE
+  INTERFACE_MACRO C_ARGS POSTCALL OVERLOAD FALLBACK
+  EXPORT_XSUB_SYMBOLS
+);
+
+our $XSKeywordsAlternation = join('|', @XSKeywords);
+
+1;
diff --git a/lib/5.24.1/ExtUtils/ParseXS/CountLines.pm b/lib/5.24.1/ExtUtils/ParseXS/CountLines.pm
new file mode 100644
index 00000000..222a95c2
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/ParseXS/CountLines.pm
@@ -0,0 +1,54 @@
+package ExtUtils::ParseXS::CountLines;
+use strict;
+
+our $VERSION = '3.31';
+
+our $SECTION_END_MARKER;
+
+sub TIEHANDLE {
+  my ($class, $cfile, $fh) = @_;
+  $cfile =~ s/\\/\\\\/g;
+  $cfile =~ s/"/\\"/g;
+  $SECTION_END_MARKER = qq{#line --- "$cfile"};
+
+  return bless {
+    buffer => '',
+    fh => $fh,
+    line_no => 1,
+  }, $class;
+}
+
+sub PRINT {
+  my $self = shift;
+  for (@_) {
+    $self->{buffer} .= $_;
+    while ($self->{buffer} =~ s/^([^\n]*\n)//) {
+      my $line = $1;
+      ++$self->{line_no};
+      $line =~ s|^\#line\s+---(?=\s)|#line $self->{line_no}|;
+      print {$self->{fh}} $line;
+    }
+  }
+}
+
+sub PRINTF {
+  my $self = shift;
+  my $fmt = shift;
+  $self->PRINT(sprintf($fmt, @_));
+}
+
+sub DESTROY {
+  # Not necessary if we're careful to end with a "\n"
+  my $self = shift;
+  print {$self->{fh}} $self->{buffer};
+}
+
+sub UNTIE {
+  # This sub does nothing, but is necessary for references to be released.
+}
+
+sub end_marker {
+  return $SECTION_END_MARKER;
+}
+
+1;
diff --git a/lib/5.24.1/ExtUtils/ParseXS/Eval.pm b/lib/5.24.1/ExtUtils/ParseXS/Eval.pm
new file mode 100644
index 00000000..73153326
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/ParseXS/Eval.pm
@@ -0,0 +1,97 @@
+package ExtUtils::ParseXS::Eval;
+use strict;
+use warnings;
+
+our $VERSION = '3.31';
+
+=head1 NAME
+
+ExtUtils::ParseXS::Eval - Clean package to evaluate code in
+
+=head1 SYNOPSIS
+
+  use ExtUtils::ParseXS::Eval;
+  my $rv = ExtUtils::ParseXS::Eval::eval_typemap_code(
+    $parsexs_obj, "some Perl code"
+  );
+
+=head1 SUBROUTINES
+
+=head2 $pxs->eval_output_typemap_code($typemapcode, $other_hashref)
+
+Sets up various bits of previously global state
+(formerly ExtUtils::ParseXS package variables)
+for eval'ing output typemap code that may refer to these
+variables.
+
+Warns the contents of C<$@> if any.
+
+Not all these variables are necessarily considered "public" wrt. use in
+typemaps, so beware. Variables set up from the ExtUtils::ParseXS object:
+
+  $Package $Alias $func_name $Full_func_name $pname
+
+Variables set up from C<$other_hashref>:
+
+  $var $type $ntype $subtype $arg
+
+=cut
+
+sub eval_output_typemap_code {
+  my ($_pxs, $_code, $_other) = @_;
+
+  my ($Package, $ALIAS, $func_name, $Full_func_name, $pname)
+    = @{$_pxs}{qw(Package ALIAS func_name Full_func_name pname)};
+
+  my ($var, $type, $ntype, $subtype, $arg)
+    = @{$_other}{qw(var type ntype subtype arg)};
+
+  my $rv = eval $_code;
+  warn $@ if $@;
+  return $rv;
+}
+
+=head2 $pxs->eval_input_typemap_code($typemapcode, $other_hashref)
+
+Sets up various bits of previously global state
+(formerly ExtUtils::ParseXS package variables)
+for eval'ing output typemap code that may refer to these
+variables.
+
+Warns the contents of C<$@> if any.
+
+Not all these variables are necessarily considered "public" wrt. use in
+typemaps, so beware. Variables set up from the ExtUtils::ParseXS object:
+
+  $Package $Alias $func_name $Full_func_name $pname
+
+Variables set up from C<$other_hashref>:
+
+  $var $type $ntype $subtype $num $init $printed_name $arg $argoff
+
+=cut
+
+sub eval_input_typemap_code {
+  my ($_pxs, $_code, $_other) = @_;
+
+  my ($Package, $ALIAS, $func_name, $Full_func_name, $pname)
+    = @{$_pxs}{qw(Package ALIAS func_name Full_func_name pname)};
+
+  my ($var, $type, $num, $init, $printed_name, $arg, $ntype, $argoff, $subtype)
+    = @{$_other}{qw(var type num init printed_name arg ntype argoff subtype)};
+
+  my $rv = eval $_code;
+  warn $@ if $@;
+  return $rv;
+}
+
+=head1 TODO
+
+Eventually, with better documentation and possible some cleanup,
+this could be part of C<ExtUtils::Typemaps>.
+
+=cut
+
+1;
+
+# vim: ts=2 sw=2 et:
diff --git a/lib/5.24.1/ExtUtils/ParseXS/Utilities.pm b/lib/5.24.1/ExtUtils/ParseXS/Utilities.pm
new file mode 100644
index 00000000..41a9f6de
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/ParseXS/Utilities.pm
@@ -0,0 +1,821 @@
+package ExtUtils::ParseXS::Utilities;
+use strict;
+use warnings;
+use Exporter;
+use File::Spec;
+use ExtUtils::ParseXS::Constants ();
+
+our $VERSION = '3.31';
+
+our (@ISA, @EXPORT_OK);
+@ISA = qw(Exporter);
+@EXPORT_OK = qw(
+  standard_typemap_locations
+  trim_whitespace
+  C_string
+  valid_proto_string
+  process_typemaps
+  map_type
+  standard_XS_defs
+  assign_func_args
+  analyze_preprocessor_statements
+  set_cond
+  Warn
+  current_line_number
+  blurt
+  death
+  check_conditional_preprocessor_statements
+  escape_file_for_line_directive
+  report_typemap_failure
+);
+
+=head1 NAME
+
+ExtUtils::ParseXS::Utilities - Subroutines used with ExtUtils::ParseXS
+
+=head1 SYNOPSIS
+
+  use ExtUtils::ParseXS::Utilities qw(
+    standard_typemap_locations
+    trim_whitespace
+    C_string
+    valid_proto_string
+    process_typemaps
+    map_type
+    standard_XS_defs
+    assign_func_args
+    analyze_preprocessor_statements
+    set_cond
+    Warn
+    blurt
+    death
+    check_conditional_preprocessor_statements
+    escape_file_for_line_directive
+    report_typemap_failure
+  );
+
+=head1 SUBROUTINES
+
+The following functions are not considered to be part of the public interface.
+They are documented here for the benefit of future maintainers of this module.
+
+=head2 C<standard_typemap_locations()>
+
+=over 4
+
+=item * Purpose
+
+Provide a list of filepaths where F<typemap> files may be found.  The
+filepaths -- relative paths to files (not just directory paths) -- appear in this list in lowest-to-highest priority.
+
+The highest priority is to look in the current directory.  
+
+  'typemap'
+
+The second and third highest priorities are to look in the parent of the
+current directory and a directory called F<lib/ExtUtils> underneath the parent
+directory.
+
+  '../typemap',
+  '../lib/ExtUtils/typemap',
+
+The fourth through ninth highest priorities are to look in the corresponding
+grandparent, great-grandparent and great-great-grandparent directories.
+
+  '../../typemap',
+  '../../lib/ExtUtils/typemap',
+  '../../../typemap',
+  '../../../lib/ExtUtils/typemap',
+  '../../../../typemap',
+  '../../../../lib/ExtUtils/typemap',
+
+The tenth and subsequent priorities are to look in directories named
+F<ExtUtils> which are subdirectories of directories found in C<@INC> --
+I<provided> a file named F<typemap> actually exists in such a directory.
+Example:
+
+  '/usr/local/lib/perl5/5.10.1/ExtUtils/typemap',
+
+However, these filepaths appear in the list returned by
+C<standard_typemap_locations()> in reverse order, I<i.e.>, lowest-to-highest.
+
+  '/usr/local/lib/perl5/5.10.1/ExtUtils/typemap',
+  '../../../../lib/ExtUtils/typemap',
+  '../../../../typemap',
+  '../../../lib/ExtUtils/typemap',
+  '../../../typemap',
+  '../../lib/ExtUtils/typemap',
+  '../../typemap',
+  '../lib/ExtUtils/typemap',
+  '../typemap',
+  'typemap'
+
+=item * Arguments
+
+  my @stl = standard_typemap_locations( \@INC );
+
+Reference to C<@INC>.
+
+=item * Return Value
+
+Array holding list of directories to be searched for F<typemap> files.
+
+=back
+
+=cut
+
+SCOPE: {
+  my @tm_template;
+
+  sub standard_typemap_locations {
+    my $include_ref = shift;
+
+    if (not @tm_template) {
+      @tm_template = qw(typemap);
+
+      my $updir = File::Spec->updir();
+      foreach my $dir (
+          File::Spec->catdir(($updir) x 1),
+          File::Spec->catdir(($updir) x 2),
+          File::Spec->catdir(($updir) x 3),
+          File::Spec->catdir(($updir) x 4),
+      ) {
+        unshift @tm_template, File::Spec->catfile($dir, 'typemap');
+        unshift @tm_template, File::Spec->catfile($dir, lib => ExtUtils => 'typemap');
+      }
+    }
+
+    my @tm = @tm_template;
+    foreach my $dir (@{ $include_ref}) {
+      my $file = File::Spec->catfile($dir, ExtUtils => 'typemap');
+      unshift @tm, $file if -e $file;
+    }
+    return @tm;
+  }
+} # end SCOPE
+
+=head2 C<trim_whitespace()>
+
+=over 4
+
+=item * Purpose
+
+Perform an in-place trimming of leading and trailing whitespace from the
+first argument provided to the function.
+
+=item * Argument
+
+  trim_whitespace($arg);
+
+=item * Return Value
+
+None.  Remember:  this is an I<in-place> modification of the argument.
+
+=back
+
+=cut
+
+sub trim_whitespace {
+  $_[0] =~ s/^\s+|\s+$//go;
+}
+
+=head2 C<C_string()>
+
+=over 4
+
+=item * Purpose
+
+Escape backslashes (C<\>) in prototype strings.
+
+=item * Arguments
+
+      $ProtoThisXSUB = C_string($_);
+
+String needing escaping.
+
+=item * Return Value
+
+Properly escaped string.
+
+=back
+
+=cut
+
+sub C_string {
+  my($string) = @_;
+
+  $string =~ s[\\][\\\\]g;
+  $string;
+}
+
+=head2 C<valid_proto_string()>
+
+=over 4
+
+=item * Purpose
+
+Validate prototype string.
+
+=item * Arguments
+
+String needing checking.
+
+=item * Return Value
+
+Upon success, returns the same string passed as argument.
+
+Upon failure, returns C<0>.
+
+=back
+
+=cut
+
+sub valid_proto_string {
+  my ($string) = @_;
+
+  if ( $string =~ /^$ExtUtils::ParseXS::Constants::PrototypeRegexp+$/ ) {
+    return $string;
+  }
+
+  return 0;
+}
+
+=head2 C<process_typemaps()>
+
+=over 4
+
+=item * Purpose
+
+Process all typemap files.
+
+=item * Arguments
+
+  my $typemaps_object = process_typemaps( $args{typemap}, $pwd );
+
+List of two elements:  C<typemap> element from C<%args>; current working
+directory.
+
+=item * Return Value
+
+Upon success, returns an L<ExtUtils::Typemaps> object.
+
+=back
+
+=cut
+
+sub process_typemaps {
+  my ($tmap, $pwd) = @_;
+
+  my @tm = ref $tmap ? @{$tmap} : ($tmap);
+
+  foreach my $typemap (@tm) {
+    die "Can't find $typemap in $pwd\n" unless -r $typemap;
+  }
+
+  push @tm, standard_typemap_locations( \@INC );
+
+  require ExtUtils::Typemaps;
+  my $typemap = ExtUtils::Typemaps->new;
+  foreach my $typemap_loc (@tm) {
+    next unless -f $typemap_loc;
+    # skip directories, binary files etc.
+    warn("Warning: ignoring non-text typemap file '$typemap_loc'\n"), next
+      unless -T $typemap_loc;
+
+    $typemap->merge(file => $typemap_loc, replace => 1);
+  }
+
+  return $typemap;
+}
+
+=head2 C<map_type()>
+
+=over 4
+
+=item * Purpose
+
+Performs a mapping at several places inside C<PARAGRAPH> loop.
+
+=item * Arguments
+
+  $type = map_type($self, $type, $varname);
+
+List of three arguments.
+
+=item * Return Value
+
+String holding augmented version of second argument.
+
+=back
+
+=cut
+
+sub map_type {
+  my ($self, $type, $varname) = @_;
+
+  # C++ has :: in types too so skip this
+  $type =~ tr/:/_/ unless $self->{RetainCplusplusHierarchicalTypes};
+  $type =~ s/^array\(([^,]*),(.*)\).*/$1 */s;
+  if ($varname) {
+    if ($type =~ / \( \s* \* (?= \s* \) ) /xg) {
+      (substr $type, pos $type, 0) = " $varname ";
+    }
+    else {
+      $type .= "\t$varname";
+    }
+  }
+  return $type;
+}
+
+=head2 C<standard_XS_defs()>
+
+=over 4
+
+=item * Purpose
+
+Writes to the C<.c> output file certain preprocessor directives and function
+headers needed in all such files.
+
+=item * Arguments
+
+None.
+
+=item * Return Value
+
+Returns true.
+
+=back
+
+=cut
+
+sub standard_XS_defs {
+  print <<"EOF";
+#ifndef PERL_UNUSED_VAR
+#  define PERL_UNUSED_VAR(var) if (0) var = var
+#endif
+
+#ifndef dVAR
+#  define dVAR		dNOOP
+#endif
+
+
+/* This stuff is not part of the API! You have been warned. */
+#ifndef PERL_VERSION_DECIMAL
+#  define PERL_VERSION_DECIMAL(r,v,s) (r*1000000 + v*1000 + s)
+#endif
+#ifndef PERL_DECIMAL_VERSION
+#  define PERL_DECIMAL_VERSION \\
+	  PERL_VERSION_DECIMAL(PERL_REVISION,PERL_VERSION,PERL_SUBVERSION)
+#endif
+#ifndef PERL_VERSION_GE
+#  define PERL_VERSION_GE(r,v,s) \\
+	  (PERL_DECIMAL_VERSION >= PERL_VERSION_DECIMAL(r,v,s))
+#endif
+#ifndef PERL_VERSION_LE
+#  define PERL_VERSION_LE(r,v,s) \\
+	  (PERL_DECIMAL_VERSION <= PERL_VERSION_DECIMAL(r,v,s))
+#endif
+
+/* XS_INTERNAL is the explicit static-linkage variant of the default
+ * XS macro.
+ *
+ * XS_EXTERNAL is the same as XS_INTERNAL except it does not include
+ * "STATIC", ie. it exports XSUB symbols. You probably don't want that
+ * for anything but the BOOT XSUB.
+ *
+ * See XSUB.h in core!
+ */
+
+
+/* TODO: This might be compatible further back than 5.10.0. */
+#if PERL_VERSION_GE(5, 10, 0) && PERL_VERSION_LE(5, 15, 1)
+#  undef XS_EXTERNAL
+#  undef XS_INTERNAL
+#  if defined(__CYGWIN__) && defined(USE_DYNAMIC_LOADING)
+#    define XS_EXTERNAL(name) __declspec(dllexport) XSPROTO(name)
+#    define XS_INTERNAL(name) STATIC XSPROTO(name)
+#  endif
+#  if defined(__SYMBIAN32__)
+#    define XS_EXTERNAL(name) EXPORT_C XSPROTO(name)
+#    define XS_INTERNAL(name) EXPORT_C STATIC XSPROTO(name)
+#  endif
+#  ifndef XS_EXTERNAL
+#    if defined(HASATTRIBUTE_UNUSED) && !defined(__cplusplus)
+#      define XS_EXTERNAL(name) void name(pTHX_ CV* cv __attribute__unused__)
+#      define XS_INTERNAL(name) STATIC void name(pTHX_ CV* cv __attribute__unused__)
+#    else
+#      ifdef __cplusplus
+#        define XS_EXTERNAL(name) extern "C" XSPROTO(name)
+#        define XS_INTERNAL(name) static XSPROTO(name)
+#      else
+#        define XS_EXTERNAL(name) XSPROTO(name)
+#        define XS_INTERNAL(name) STATIC XSPROTO(name)
+#      endif
+#    endif
+#  endif
+#endif
+
+/* perl >= 5.10.0 && perl <= 5.15.1 */
+
+
+/* The XS_EXTERNAL macro is used for functions that must not be static
+ * like the boot XSUB of a module. If perl didn't have an XS_EXTERNAL
+ * macro defined, the best we can do is assume XS is the same.
+ * Dito for XS_INTERNAL.
+ */
+#ifndef XS_EXTERNAL
+#  define XS_EXTERNAL(name) XS(name)
+#endif
+#ifndef XS_INTERNAL
+#  define XS_INTERNAL(name) XS(name)
+#endif
+
+/* Now, finally, after all this mess, we want an ExtUtils::ParseXS
+ * internal macro that we're free to redefine for varying linkage due
+ * to the EXPORT_XSUB_SYMBOLS XS keyword. This is internal, use
+ * XS_EXTERNAL(name) or XS_INTERNAL(name) in your code if you need to!
+ */
+
+#undef XS_EUPXS
+#if defined(PERL_EUPXS_ALWAYS_EXPORT)
+#  define XS_EUPXS(name) XS_EXTERNAL(name)
+#else
+   /* default to internal */
+#  define XS_EUPXS(name) XS_INTERNAL(name)
+#endif
+
+EOF
+
+  print <<"EOF";
+#ifndef PERL_ARGS_ASSERT_CROAK_XS_USAGE
+#define PERL_ARGS_ASSERT_CROAK_XS_USAGE assert(cv); assert(params)
+
+/* prototype to pass -Wmissing-prototypes */
+STATIC void
+S_croak_xs_usage(const CV *const cv, const char *const params);
+
+STATIC void
+S_croak_xs_usage(const CV *const cv, const char *const params)
+{
+    const GV *const gv = CvGV(cv);
+
+    PERL_ARGS_ASSERT_CROAK_XS_USAGE;
+
+    if (gv) {
+        const char *const gvname = GvNAME(gv);
+        const HV *const stash = GvSTASH(gv);
+        const char *const hvname = stash ? HvNAME(stash) : NULL;
+
+        if (hvname)
+	    Perl_croak_nocontext("Usage: %s::%s(%s)", hvname, gvname, params);
+        else
+	    Perl_croak_nocontext("Usage: %s(%s)", gvname, params);
+    } else {
+        /* Pants. I don't think that it should be possible to get here. */
+	Perl_croak_nocontext("Usage: CODE(0x%"UVxf")(%s)", PTR2UV(cv), params);
+    }
+}
+#undef  PERL_ARGS_ASSERT_CROAK_XS_USAGE
+
+#define croak_xs_usage        S_croak_xs_usage
+
+#endif
+
+/* NOTE: the prototype of newXSproto() is different in versions of perls,
+ * so we define a portable version of newXSproto()
+ */
+#ifdef newXS_flags
+#define newXSproto_portable(name, c_impl, file, proto) newXS_flags(name, c_impl, file, proto, 0)
+#else
+#define newXSproto_portable(name, c_impl, file, proto) (PL_Sv=(SV*)newXS(name, c_impl, file), sv_setpv(PL_Sv, proto), (CV*)PL_Sv)
+#endif /* !defined(newXS_flags) */
+
+#if PERL_VERSION_LE(5, 21, 5)
+#  define newXS_deffile(a,b) Perl_newXS(aTHX_ a,b,file)
+#else
+#  define newXS_deffile(a,b) Perl_newXS_deffile(aTHX_ a,b)
+#endif
+
+EOF
+  return 1;
+}
+
+=head2 C<assign_func_args()>
+
+=over 4
+
+=item * Purpose
+
+Perform assignment to the C<func_args> attribute.
+
+=item * Arguments
+
+  $string = assign_func_args($self, $argsref, $class);
+
+List of three elements.  Second is an array reference; third is a string.
+
+=item * Return Value
+
+String.
+
+=back
+
+=cut
+
+sub assign_func_args {
+  my ($self, $argsref, $class) = @_;
+  my @func_args = @{$argsref};
+  shift @func_args if defined($class);
+
+  for my $arg (@func_args) {
+    $arg =~ s/^/&/ if $self->{in_out}->{$arg};
+  }
+  return join(", ", @func_args);
+}
+
+=head2 C<analyze_preprocessor_statements()>
+
+=over 4
+
+=item * Purpose
+
+Within each function inside each Xsub, print to the F<.c> output file certain
+preprocessor statements.
+
+=item * Arguments
+
+      ( $self, $XSS_work_idx, $BootCode_ref ) =
+        analyze_preprocessor_statements(
+          $self, $statement, $XSS_work_idx, $BootCode_ref
+        );
+
+List of four elements.
+
+=item * Return Value
+
+Modifed values of three of the arguments passed to the function.  In
+particular, the C<XSStack> and C<InitFileCode> attributes are modified.
+
+=back
+
+=cut
+
+sub analyze_preprocessor_statements {
+  my ($self, $statement, $XSS_work_idx, $BootCode_ref) = @_;
+
+  if ($statement eq 'if') {
+    $XSS_work_idx = @{ $self->{XSStack} };
+    push(@{ $self->{XSStack} }, {type => 'if'});
+  }
+  else {
+    $self->death("Error: '$statement' with no matching 'if'")
+      if $self->{XSStack}->[-1]{type} ne 'if';
+    if ($self->{XSStack}->[-1]{varname}) {
+      push(@{ $self->{InitFileCode} }, "#endif\n");
+      push(@{ $BootCode_ref },     "#endif");
+    }
+
+    my(@fns) = keys %{$self->{XSStack}->[-1]{functions}};
+    if ($statement ne 'endif') {
+      # Hide the functions defined in other #if branches, and reset.
+      @{$self->{XSStack}->[-1]{other_functions}}{@fns} = (1) x @fns;
+      @{$self->{XSStack}->[-1]}{qw(varname functions)} = ('', {});
+    }
+    else {
+      my($tmp) = pop(@{ $self->{XSStack} });
+      0 while (--$XSS_work_idx
+           && $self->{XSStack}->[$XSS_work_idx]{type} ne 'if');
+      # Keep all new defined functions
+      push(@fns, keys %{$tmp->{other_functions}});
+      @{$self->{XSStack}->[$XSS_work_idx]{functions}}{@fns} = (1) x @fns;
+    }
+  }
+  return ($self, $XSS_work_idx, $BootCode_ref);
+}
+
+=head2 C<set_cond()>
+
+=over 4
+
+=item * Purpose
+
+=item * Arguments
+
+=item * Return Value
+
+=back
+
+=cut
+
+sub set_cond {
+  my ($ellipsis, $min_args, $num_args) = @_;
+  my $cond;
+  if ($ellipsis) {
+    $cond = ($min_args ? qq(items < $min_args) : 0);
+  }
+  elsif ($min_args == $num_args) {
+    $cond = qq(items != $min_args);
+  }
+  else {
+    $cond = qq(items < $min_args || items > $num_args);
+  }
+  return $cond;
+}
+
+=head2 C<current_line_number()>
+
+=over 4
+
+=item * Purpose
+
+Figures out the current line number in the XS file.
+
+=item * Arguments
+
+C<$self>
+
+=item * Return Value
+
+The current line number.
+
+=back
+
+=cut
+
+sub current_line_number {
+  my $self = shift;
+  my $line_number = $self->{line_no}->[@{ $self->{line_no} } - @{ $self->{line} } -1];
+  return $line_number;
+}
+
+=head2 C<Warn()>
+
+=over 4
+
+=item * Purpose
+
+=item * Arguments
+
+=item * Return Value
+
+=back
+
+=cut
+
+sub Warn {
+  my $self = shift;
+  my $warn_line_number = $self->current_line_number();
+  print STDERR "@_ in $self->{filename}, line $warn_line_number\n";
+}
+
+=head2 C<blurt()>
+
+=over 4
+
+=item * Purpose
+
+=item * Arguments
+
+=item * Return Value
+
+=back
+
+=cut
+
+sub blurt {
+  my $self = shift;
+  $self->Warn(@_);
+  $self->{errors}++
+}
+
+=head2 C<death()>
+
+=over 4
+
+=item * Purpose
+
+=item * Arguments
+
+=item * Return Value
+
+=back
+
+=cut
+
+sub death {
+  my $self = shift;
+  $self->Warn(@_);
+  exit 1;
+}
+
+=head2 C<check_conditional_preprocessor_statements()>
+
+=over 4
+
+=item * Purpose
+
+=item * Arguments
+
+=item * Return Value
+
+=back
+
+=cut
+
+sub check_conditional_preprocessor_statements {
+  my ($self) = @_;
+  my @cpp = grep(/^\#\s*(?:if|e\w+)/, @{ $self->{line} });
+  if (@cpp) {
+    my $cpplevel;
+    for my $cpp (@cpp) {
+      if ($cpp =~ /^\#\s*if/) {
+        $cpplevel++;
+      }
+      elsif (!$cpplevel) {
+        $self->Warn("Warning: #else/elif/endif without #if in this function");
+        print STDERR "    (precede it with a blank line if the matching #if is outside the function)\n"
+          if $self->{XSStack}->[-1]{type} eq 'if';
+        return;
+      }
+      elsif ($cpp =~ /^\#\s*endif/) {
+        $cpplevel--;
+      }
+    }
+    $self->Warn("Warning: #if without #endif in this function") if $cpplevel;
+  }
+}
+
+=head2 C<escape_file_for_line_directive()>
+
+=over 4
+
+=item * Purpose
+
+Escapes a given code source name (typically a file name but can also
+be a command that was read from) so that double-quotes and backslashes are escaped.
+
+=item * Arguments
+
+A string.
+
+=item * Return Value
+
+A string with escapes for double-quotes and backslashes.
+
+=back
+
+=cut
+
+sub escape_file_for_line_directive {
+  my $string = shift;
+  $string =~ s/\\/\\\\/g;
+  $string =~ s/"/\\"/g;
+  return $string;
+}
+
+=head2 C<report_typemap_failure>
+
+=over 4
+
+=item * Purpose
+
+Do error reporting for missing typemaps.
+
+=item * Arguments
+
+The C<ExtUtils::ParseXS> object.
+
+An C<ExtUtils::Typemaps> object.
+
+The string that represents the C type that was not found in the typemap.
+
+Optionally, the string C<death> or C<blurt> to choose
+whether the error is immediately fatal or not. Default: C<blurt>
+
+=item * Return Value
+
+Returns nothing. Depending on the arguments, this
+may call C<death> or C<blurt>, the former of which is
+fatal.
+
+=back
+
+=cut
+
+sub report_typemap_failure {
+  my ($self, $tm, $ctype, $error_method) = @_;
+  $error_method ||= 'blurt';
+
+  my @avail_ctypes = $tm->list_mapped_ctypes;
+
+  my $err = "Could not find a typemap for C type '$ctype'.\n"
+            . "The following C types are mapped by the current typemap:\n'"
+            . join("', '", @avail_ctypes) . "'\n";
+
+  $self->$error_method($err);
+  return();
+}
+
+1;
+
+# vim: ts=2 sw=2 et:
diff --git a/lib/5.24.1/ExtUtils/Typemaps.pm b/lib/5.24.1/ExtUtils/Typemaps.pm
new file mode 100644
index 00000000..48d623ef
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/Typemaps.pm
@@ -0,0 +1,1091 @@
+package ExtUtils::Typemaps;
+use 5.006001;
+use strict;
+use warnings;
+our $VERSION = '3.31';
+
+require ExtUtils::ParseXS;
+require ExtUtils::ParseXS::Constants;
+require ExtUtils::Typemaps::InputMap;
+require ExtUtils::Typemaps::OutputMap;
+require ExtUtils::Typemaps::Type;
+
+=head1 NAME
+
+ExtUtils::Typemaps - Read/Write/Modify Perl/XS typemap files
+
+=head1 SYNOPSIS
+
+  # read/create file
+  my $typemap = ExtUtils::Typemaps->new(file => 'typemap');
+  # alternatively create an in-memory typemap
+  # $typemap = ExtUtils::Typemaps->new();
+  # alternatively create an in-memory typemap by parsing a string
+  # $typemap = ExtUtils::Typemaps->new(string => $sometypemap);
+  
+  # add a mapping
+  $typemap->add_typemap(ctype => 'NV', xstype => 'T_NV');
+  $typemap->add_inputmap(
+     xstype => 'T_NV', code => '$var = ($type)SvNV($arg);'
+  );
+  $typemap->add_outputmap(
+     xstype => 'T_NV', code => 'sv_setnv($arg, (NV)$var);'
+  );
+  $typemap->add_string(string => $typemapstring);
+                                           # will be parsed and merged
+  
+  # remove a mapping (same for remove_typemap and remove_outputmap...)
+  $typemap->remove_inputmap(xstype => 'SomeType');
+  
+  # save a typemap to a file
+  $typemap->write(file => 'anotherfile.map');
+  
+  # merge the other typemap into this one
+  $typemap->merge(typemap => $another_typemap);
+
+=head1 DESCRIPTION
+
+This module can read, modify, create and write Perl XS typemap files. If you don't know
+what a typemap is, please confer the L<perlxstut> and L<perlxs> manuals.
+
+The module is not entirely round-trip safe: For example it currently simply strips all comments.
+The order of entries in the maps is, however, preserved.
+
+We check for duplicate entries in the typemap, but do not check for missing
+C<TYPEMAP> entries for C<INPUTMAP> or C<OUTPUTMAP> entries since these might be hidden
+in a different typemap.
+
+=head1 METHODS
+
+=cut
+
+=head2 new
+
+Returns a new typemap object. Takes an optional C<file> parameter.
+If set, the given file will be read. If the file doesn't exist, an empty typemap
+is returned.
+
+Alternatively, if the C<string> parameter is given, the supplied
+string will be parsed instead of a file.
+
+=cut
+
+sub new {
+  my $class = shift;
+  my %args = @_;
+
+  if (defined $args{file} and defined $args{string}) {
+    die("Cannot handle both 'file' and 'string' arguments to constructor");
+  }
+
+  my $self = bless {
+    file            => undef,
+    %args,
+    typemap_section => [],
+    typemap_lookup  => {},
+    input_section   => [],
+    input_lookup    => {},
+    output_section  => [],
+    output_lookup   => {},
+  } => $class;
+
+  $self->_init();
+
+  return $self;
+}
+
+sub _init {
+  my $self = shift;
+  if (defined $self->{string}) {
+    $self->_parse(\($self->{string}), $self->{lineno_offset}, $self->{fake_filename});
+    delete $self->{string};
+  }
+  elsif (defined $self->{file} and -e $self->{file}) {
+    open my $fh, '<', $self->{file}
+      or die "Cannot open typemap file '"
+             . $self->{file} . "' for reading: $!";
+    local $/ = undef;
+    my $string = <$fh>;
+    $self->_parse(\$string, $self->{lineno_offset}, $self->{file});
+  }
+}
+
+
+=head2 file
+
+Get/set the file that the typemap is written to when the
+C<write> method is called.
+
+=cut
+
+sub file {
+  $_[0]->{file} = $_[1] if @_ > 1;
+  $_[0]->{file}
+}
+
+=head2 add_typemap
+
+Add a C<TYPEMAP> entry to the typemap.
+
+Required named arguments: The C<ctype> (e.g. C<ctype =E<gt> 'double'>)
+and the C<xstype> (e.g. C<xstype =E<gt> 'T_NV'>).
+
+Optional named arguments: C<replace =E<gt> 1> forces removal/replacement of
+existing C<TYPEMAP> entries of the same C<ctype>. C<skip =E<gt> 1>
+triggers a I<"first come first serve"> logic by which new entries that conflict
+with existing entries are silently ignored.
+
+As an alternative to the named parameters usage, you may pass in
+an C<ExtUtils::Typemaps::Type> object as first argument, a copy of which will be
+added to the typemap. In that case, only the C<replace> or C<skip> named parameters
+may be used after the object. Example:
+
+  $map->add_typemap($type_obj, replace => 1);
+
+=cut
+
+sub add_typemap {
+  my $self = shift;
+  my $type;
+  my %args;
+
+  if ((@_ % 2) == 1) {
+    my $orig = shift;
+    $type = $orig->new();
+    %args = @_;
+  }
+  else {
+    %args = @_;
+    my $ctype = $args{ctype};
+    die("Need ctype argument") if not defined $ctype;
+    my $xstype = $args{xstype};
+    die("Need xstype argument") if not defined $xstype;
+
+    $type = ExtUtils::Typemaps::Type->new(
+      xstype      => $xstype,
+      'prototype' => $args{'prototype'},
+      ctype       => $ctype,
+    );
+  }
+
+  if ($args{skip} and $args{replace}) {
+    die("Cannot use both 'skip' and 'replace'");
+  }
+
+  if ($args{replace}) {
+    $self->remove_typemap(ctype => $type->ctype);
+  }
+  elsif ($args{skip}) {
+    return() if exists $self->{typemap_lookup}{$type->ctype};
+  }
+  else {
+    $self->validate(typemap_xstype => $type->xstype, ctype => $type->ctype);
+  }
+
+  # store
+  push @{$self->{typemap_section}}, $type;
+  # remember type for lookup, too.
+  $self->{typemap_lookup}{$type->tidy_ctype} = $#{$self->{typemap_section}};
+
+  return 1;
+}
+
+=head2 add_inputmap
+
+Add an C<INPUT> entry to the typemap.
+
+Required named arguments:
+The C<xstype> (e.g. C<xstype =E<gt> 'T_NV'>)
+and the C<code> to associate with it for input.
+
+Optional named arguments: C<replace =E<gt> 1> forces removal/replacement of
+existing C<INPUT> entries of the same C<xstype>. C<skip =E<gt> 1>
+triggers a I<"first come first serve"> logic by which new entries that conflict
+with existing entries are silently ignored.
+
+As an alternative to the named parameters usage, you may pass in
+an C<ExtUtils::Typemaps::InputMap> object as first argument, a copy of which will be
+added to the typemap. In that case, only the C<replace> or C<skip> named parameters
+may be used after the object. Example:
+
+  $map->add_inputmap($type_obj, replace => 1);
+
+=cut
+
+sub add_inputmap {
+  my $self = shift;
+  my $input;
+  my %args;
+
+  if ((@_ % 2) == 1) {
+    my $orig = shift;
+    $input = $orig->new();
+    %args = @_;
+  }
+  else {
+    %args = @_;
+    my $xstype = $args{xstype};
+    die("Need xstype argument") if not defined $xstype;
+    my $code = $args{code};
+    die("Need code argument") if not defined $code;
+
+    $input = ExtUtils::Typemaps::InputMap->new(
+      xstype => $xstype,
+      code   => $code,
+    );
+  }
+
+  if ($args{skip} and $args{replace}) {
+    die("Cannot use both 'skip' and 'replace'");
+  }
+
+  if ($args{replace}) {
+    $self->remove_inputmap(xstype => $input->xstype);
+  }
+  elsif ($args{skip}) {
+    return() if exists $self->{input_lookup}{$input->xstype};
+  }
+  else {
+    $self->validate(inputmap_xstype => $input->xstype);
+  }
+
+  # store
+  push @{$self->{input_section}}, $input;
+  # remember type for lookup, too.
+  $self->{input_lookup}{$input->xstype} = $#{$self->{input_section}};
+
+  return 1;
+}
+
+=head2 add_outputmap
+
+Add an C<OUTPUT> entry to the typemap.
+Works exactly the same as C<add_inputmap>.
+
+=cut
+
+sub add_outputmap {
+  my $self = shift;
+  my $output;
+  my %args;
+
+  if ((@_ % 2) == 1) {
+    my $orig = shift;
+    $output = $orig->new();
+    %args = @_;
+  }
+  else {
+    %args = @_;
+    my $xstype = $args{xstype};
+    die("Need xstype argument") if not defined $xstype;
+    my $code = $args{code};
+    die("Need code argument") if not defined $code;
+
+    $output = ExtUtils::Typemaps::OutputMap->new(
+      xstype => $xstype,
+      code   => $code,
+    );
+  }
+
+  if ($args{skip} and $args{replace}) {
+    die("Cannot use both 'skip' and 'replace'");
+  }
+
+  if ($args{replace}) {
+    $self->remove_outputmap(xstype => $output->xstype);
+  }
+  elsif ($args{skip}) {
+    return() if exists $self->{output_lookup}{$output->xstype};
+  }
+  else {
+    $self->validate(outputmap_xstype => $output->xstype);
+  }
+
+  # store
+  push @{$self->{output_section}}, $output;
+  # remember type for lookup, too.
+  $self->{output_lookup}{$output->xstype} = $#{$self->{output_section}};
+
+  return 1;
+}
+
+=head2 add_string
+
+Parses a string as a typemap and merge it into the typemap object.
+
+Required named argument: C<string> to specify the string to parse.
+
+=cut
+
+sub add_string {
+  my $self = shift;
+  my %args = @_;
+  die("Need 'string' argument") if not defined $args{string};
+
+  # no, this is not elegant.
+  my $other = ExtUtils::Typemaps->new(string => $args{string});
+  $self->merge(typemap => $other);
+}
+
+=head2 remove_typemap
+
+Removes a C<TYPEMAP> entry from the typemap.
+
+Required named argument: C<ctype> to specify the entry to remove from the typemap.
+
+Alternatively, you may pass a single C<ExtUtils::Typemaps::Type> object.
+
+=cut
+
+sub remove_typemap {
+  my $self = shift;
+  my $ctype;
+  if (@_ > 1) {
+    my %args = @_;
+    $ctype = $args{ctype};
+    die("Need ctype argument") if not defined $ctype;
+    $ctype = tidy_type($ctype);
+  }
+  else {
+    $ctype = $_[0]->tidy_ctype;
+  }
+
+  return $self->_remove($ctype, $self->{typemap_section}, $self->{typemap_lookup});
+}
+
+=head2 remove_inputmap
+
+Removes an C<INPUT> entry from the typemap.
+
+Required named argument: C<xstype> to specify the entry to remove from the typemap.
+
+Alternatively, you may pass a single C<ExtUtils::Typemaps::InputMap> object.
+
+=cut
+
+sub remove_inputmap {
+  my $self = shift;
+  my $xstype;
+  if (@_ > 1) {
+    my %args = @_;
+    $xstype = $args{xstype};
+    die("Need xstype argument") if not defined $xstype;
+  }
+  else {
+    $xstype = $_[0]->xstype;
+  }
+  
+  return $self->_remove($xstype, $self->{input_section}, $self->{input_lookup});
+}
+
+=head2 remove_inputmap
+
+Removes an C<OUTPUT> entry from the typemap.
+
+Required named argument: C<xstype> to specify the entry to remove from the typemap.
+
+Alternatively, you may pass a single C<ExtUtils::Typemaps::OutputMap> object.
+
+=cut
+
+sub remove_outputmap {
+  my $self = shift;
+  my $xstype;
+  if (@_ > 1) {
+    my %args = @_;
+    $xstype = $args{xstype};
+    die("Need xstype argument") if not defined $xstype;
+  }
+  else {
+    $xstype = $_[0]->xstype;
+  }
+  
+  return $self->_remove($xstype, $self->{output_section}, $self->{output_lookup});
+}
+
+sub _remove {
+  my $self   = shift;
+  my $rm     = shift;
+  my $array  = shift;
+  my $lookup = shift;
+
+  # Just fetch the index of the item from the lookup table
+  my $index = $lookup->{$rm};
+  return() if not defined $index;
+
+  # Nuke the item from storage
+  splice(@$array, $index, 1);
+
+  # Decrement the storage position of all items thereafter
+  foreach my $key (keys %$lookup) {
+    if ($lookup->{$key} > $index) {
+      $lookup->{$key}--;
+    }
+  }
+  return();
+}
+
+=head2 get_typemap
+
+Fetches an entry of the TYPEMAP section of the typemap.
+
+Mandatory named arguments: The C<ctype> of the entry.
+
+Returns the C<ExtUtils::Typemaps::Type>
+object for the entry if found.
+
+=cut
+
+sub get_typemap {
+  my $self = shift;
+  die("Need named parameters, got uneven number") if @_ % 2;
+
+  my %args = @_;
+  my $ctype = $args{ctype};
+  die("Need ctype argument") if not defined $ctype;
+  $ctype = tidy_type($ctype);
+
+  my $index = $self->{typemap_lookup}{$ctype};
+  return() if not defined $index;
+  return $self->{typemap_section}[$index];
+}
+
+=head2 get_inputmap
+
+Fetches an entry of the INPUT section of the
+typemap.
+
+Mandatory named arguments: The C<xstype> of the
+entry or the C<ctype> of the typemap that can be used to find
+the C<xstype>. To wit, the following pieces of code
+are equivalent:
+
+  my $type = $typemap->get_typemap(ctype => $ctype)
+  my $input_map = $typemap->get_inputmap(xstype => $type->xstype);
+
+  my $input_map = $typemap->get_inputmap(ctype => $ctype);
+
+Returns the C<ExtUtils::Typemaps::InputMap>
+object for the entry if found.
+
+=cut
+
+sub get_inputmap {
+  my $self = shift;
+  die("Need named parameters, got uneven number") if @_ % 2;
+
+  my %args = @_;
+  my $xstype = $args{xstype};
+  my $ctype  = $args{ctype};
+  die("Need xstype or ctype argument")
+    if not defined $xstype
+    and not defined $ctype;
+  die("Need xstype OR ctype arguments, not both")
+    if defined $xstype and defined $ctype;
+
+  if (defined $ctype) {
+    my $tm = $self->get_typemap(ctype => $ctype);
+    $xstype = $tm && $tm->xstype;
+    return() if not defined $xstype;
+  }
+
+  my $index = $self->{input_lookup}{$xstype};
+  return() if not defined $index;
+  return $self->{input_section}[$index];
+}
+
+=head2 get_outputmap
+
+Fetches an entry of the OUTPUT section of the
+typemap.
+
+Mandatory named arguments: The C<xstype> of the
+entry or the C<ctype> of the typemap that can be used to
+resolve the C<xstype>. (See above for an example.)
+
+Returns the C<ExtUtils::Typemaps::InputMap>
+object for the entry if found.
+
+=cut
+
+sub get_outputmap {
+  my $self = shift;
+  die("Need named parameters, got uneven number") if @_ % 2;
+
+  my %args = @_;
+  my $xstype = $args{xstype};
+  my $ctype  = $args{ctype};
+  die("Need xstype or ctype argument")
+    if not defined $xstype
+    and not defined $ctype;
+  die("Need xstype OR ctype arguments, not both")
+    if defined $xstype and defined $ctype;
+
+  if (defined $ctype) {
+    my $tm = $self->get_typemap(ctype => $ctype);
+    $xstype = $tm && $tm->xstype;
+    return() if not defined $xstype;
+  }
+
+  my $index = $self->{output_lookup}{$xstype};
+  return() if not defined $index;
+  return $self->{output_section}[$index];
+}
+
+=head2 write
+
+Write the typemap to a file. Optionally takes a C<file> argument. If given, the
+typemap will be written to the specified file. If not, the typemap is written
+to the currently stored file name (see C<-E<gt>file> above, this defaults to the file
+it was read from if any).
+
+=cut
+
+sub write {
+  my $self = shift;
+  my %args = @_;
+  my $file = defined $args{file} ? $args{file} : $self->file();
+  die("write() needs a file argument (or set the file name of the typemap using the 'file' method)")
+    if not defined $file;
+
+  open my $fh, '>', $file
+    or die "Cannot open typemap file '$file' for writing: $!";
+  print $fh $self->as_string();
+  close $fh;
+}
+
+=head2 as_string
+
+Generates and returns the string form of the typemap.
+
+=cut
+
+sub as_string {
+  my $self = shift;
+  my $typemap = $self->{typemap_section};
+  my @code;
+  push @code, "TYPEMAP\n";
+  foreach my $entry (@$typemap) {
+    # type kind proto
+    # /^(.*?\S)\s+(\S+)\s*($ExtUtils::ParseXS::Constants::PrototypeRegexp*)$/o
+    push @code, $entry->ctype . "\t" . $entry->xstype
+              . ($entry->proto ne '' ? "\t".$entry->proto : '') . "\n";
+  }
+
+  my $input = $self->{input_section};
+  if (@$input) {
+    push @code, "\nINPUT\n";
+    foreach my $entry (@$input) {
+      push @code, $entry->xstype, "\n", $entry->code, "\n";
+    }
+  }
+
+  my $output = $self->{output_section};
+  if (@$output) {
+    push @code, "\nOUTPUT\n";
+    foreach my $entry (@$output) {
+      push @code, $entry->xstype, "\n", $entry->code, "\n";
+    }
+  }
+  return join '', @code;
+}
+
+=head2 as_embedded_typemap
+
+Generates and returns the string form of the typemap with the
+appropriate prefix around it for verbatim inclusion into an
+XS file as an embedded typemap. This will return a string like
+
+  TYPEMAP: <<END_OF_TYPEMAP
+  ... typemap here (see as_string) ...
+  END_OF_TYPEMAP
+
+The method takes care not to use a HERE-doc end marker that
+appears in the typemap string itself.
+
+=cut
+
+sub as_embedded_typemap {
+  my $self = shift;
+  my $string = $self->as_string;
+
+  my @ident_cand = qw(END_TYPEMAP END_OF_TYPEMAP END);
+  my $icand = 0;
+  my $cand_suffix = "";
+  while ($string =~ /^\Q$ident_cand[$icand]$cand_suffix\E\s*$/m) {
+    $icand++;
+    if ($icand == @ident_cand) {
+      $icand = 0;
+      ++$cand_suffix;
+    }
+  }
+
+  my $marker = "$ident_cand[$icand]$cand_suffix";
+  return "TYPEMAP: <<$marker;\n$string\n$marker\n";
+}
+
+=head2 merge
+
+Merges a given typemap into the object. Note that a failed merge
+operation leaves the object in an inconsistent state so clone it if necessary.
+
+Mandatory named arguments: Either C<typemap =E<gt> $another_typemap_obj>
+or C<file =E<gt> $path_to_typemap_file> but not both.
+
+Optional arguments: C<replace =E<gt> 1> to force replacement
+of existing typemap entries without warning or C<skip =E<gt> 1>
+to skip entries that exist already in the typemap.
+
+=cut
+
+sub merge {
+  my $self = shift;
+  my %args = @_;
+
+  if (exists $args{typemap} and exists $args{file}) {
+    die("Need {file} OR {typemap} argument. Not both!");
+  }
+  elsif (not exists $args{typemap} and not exists $args{file}) {
+    die("Need {file} or {typemap} argument!");
+  }
+
+  my @params;
+  push @params, 'replace' => $args{replace} if exists $args{replace};
+  push @params, 'skip' => $args{skip} if exists $args{skip};
+
+  my $typemap = $args{typemap};
+  if (not defined $typemap) {
+    $typemap = ref($self)->new(file => $args{file}, @params);
+  }
+
+  # FIXME breaking encapsulation. Add accessor code.
+  foreach my $entry (@{$typemap->{typemap_section}}) {
+    $self->add_typemap( $entry, @params );
+  }
+
+  foreach my $entry (@{$typemap->{input_section}}) {
+    $self->add_inputmap( $entry, @params );
+  }
+
+  foreach my $entry (@{$typemap->{output_section}}) {
+    $self->add_outputmap( $entry, @params );
+  }
+
+  return 1;
+}
+
+=head2 is_empty
+
+Returns a bool indicating whether this typemap is entirely empty.
+
+=cut
+
+sub is_empty {
+  my $self = shift;
+
+  return @{ $self->{typemap_section} } == 0
+      && @{ $self->{input_section} } == 0
+      && @{ $self->{output_section} } == 0;
+}
+
+=head2 list_mapped_ctypes
+
+Returns a list of the C types that are mappable by
+this typemap object.
+
+=cut
+
+sub list_mapped_ctypes {
+  my $self = shift;
+  return sort keys %{ $self->{typemap_lookup} };
+}
+
+=head2 _get_typemap_hash
+
+Returns a hash mapping the C types to the XS types:
+
+  {
+    'char **' => 'T_PACKEDARRAY',
+    'bool_t' => 'T_IV',
+    'AV *' => 'T_AVREF',
+    'InputStream' => 'T_IN',
+    'double' => 'T_DOUBLE',
+    # ...
+  }
+
+This is documented because it is used by C<ExtUtils::ParseXS>,
+but it's not intended for general consumption. May be removed
+at any time.
+
+=cut
+
+sub _get_typemap_hash {
+  my $self = shift;
+  my $lookup  = $self->{typemap_lookup};
+  my $storage = $self->{typemap_section};
+
+  my %rv;
+  foreach my $ctype (keys %$lookup) {
+    $rv{$ctype} = $storage->[ $lookup->{$ctype} ]->xstype;
+  }
+
+  return \%rv;
+}
+
+=head2 _get_inputmap_hash
+
+Returns a hash mapping the XS types (identifiers) to the
+corresponding INPUT code:
+
+  {
+    'T_CALLBACK' => '   $var = make_perl_cb_$type($arg)
+  ',
+    'T_OUT' => '    $var = IoOFP(sv_2io($arg))
+  ',
+    'T_REF_IV_PTR' => '   if (sv_isa($arg, \\"${ntype}\\")) {
+    # ...
+  }
+
+This is documented because it is used by C<ExtUtils::ParseXS>,
+but it's not intended for general consumption. May be removed
+at any time.
+
+=cut
+
+sub _get_inputmap_hash {
+  my $self = shift;
+  my $lookup  = $self->{input_lookup};
+  my $storage = $self->{input_section};
+
+  my %rv;
+  foreach my $xstype (keys %$lookup) {
+    $rv{$xstype} = $storage->[ $lookup->{$xstype} ]->code;
+
+    # Squash trailing whitespace to one line break
+    # This isn't strictly necessary, but makes the output more similar
+    # to the original ExtUtils::ParseXS.
+    $rv{$xstype} =~ s/\s*\z/\n/;
+  }
+
+  return \%rv;
+}
+
+
+=head2 _get_outputmap_hash
+
+Returns a hash mapping the XS types (identifiers) to the
+corresponding OUTPUT code:
+
+  {
+    'T_CALLBACK' => '   sv_setpvn($arg, $var.context.value().chp(),
+                $var.context.value().size());
+  ',
+    'T_OUT' => '    {
+            GV *gv = newGVgen("$Package");
+            if ( do_open(gv, "+>&", 3, FALSE, 0, 0, $var) )
+                sv_setsv(
+                  $arg,
+                  sv_bless(newRV((SV*)gv), gv_stashpv("$Package",1))
+                );
+            else
+                $arg = &PL_sv_undef;
+         }
+  ',
+    # ...
+  }
+
+This is documented because it is used by C<ExtUtils::ParseXS>,
+but it's not intended for general consumption. May be removed
+at any time.
+
+=cut
+
+sub _get_outputmap_hash {
+  my $self = shift;
+  my $lookup  = $self->{output_lookup};
+  my $storage = $self->{output_section};
+
+  my %rv;
+  foreach my $xstype (keys %$lookup) {
+    $rv{$xstype} = $storage->[ $lookup->{$xstype} ]->code;
+
+    # Squash trailing whitespace to one line break
+    # This isn't strictly necessary, but makes the output more similar
+    # to the original ExtUtils::ParseXS.
+    $rv{$xstype} =~ s/\s*\z/\n/;
+  }
+
+  return \%rv;
+}
+
+=head2 _get_prototype_hash
+
+Returns a hash mapping the C types of the typemap to their
+corresponding prototypes.
+
+  {
+    'char **' => '$',
+    'bool_t' => '$',
+    'AV *' => '$',
+    'InputStream' => '$',
+    'double' => '$',
+    # ...
+  }
+
+This is documented because it is used by C<ExtUtils::ParseXS>,
+but it's not intended for general consumption. May be removed
+at any time.
+
+=cut
+
+sub _get_prototype_hash {
+  my $self = shift;
+  my $lookup  = $self->{typemap_lookup};
+  my $storage = $self->{typemap_section};
+
+  my %rv;
+  foreach my $ctype (keys %$lookup) {
+    $rv{$ctype} = $storage->[ $lookup->{$ctype} ]->proto || '$';
+  }
+
+  return \%rv;
+}
+
+
+
+# make sure that the provided types wouldn't collide with what's
+# in the object already.
+sub validate {
+  my $self = shift;
+  my %args = @_;
+
+  if ( exists $args{ctype}
+       and exists $self->{typemap_lookup}{tidy_type($args{ctype})} )
+  {
+    die("Multiple definition of ctype '$args{ctype}' in TYPEMAP section");
+  }
+
+  if ( exists $args{inputmap_xstype}
+       and exists $self->{input_lookup}{$args{inputmap_xstype}} )
+  {
+    die("Multiple definition of xstype '$args{inputmap_xstype}' in INPUTMAP section");
+  }
+
+  if ( exists $args{outputmap_xstype}
+       and exists $self->{output_lookup}{$args{outputmap_xstype}} )
+  {
+    die("Multiple definition of xstype '$args{outputmap_xstype}' in OUTPUTMAP section");
+  }
+
+  return 1;
+}
+
+=head2 clone
+
+Creates and returns a clone of a full typemaps object.
+
+Takes named parameters: If C<shallow> is true,
+the clone will share the actual individual type/input/outputmap objects,
+but not share their storage. Use with caution. Without C<shallow>,
+the clone will be fully independent.
+
+=cut
+
+sub clone {
+  my $proto = shift;
+  my %args = @_;
+
+  my $self;
+  if ($args{shallow}) {
+    $self = bless( {
+      %$proto,
+      typemap_section => [@{$proto->{typemap_section}}],
+      typemap_lookup  => {%{$proto->{typemap_lookup}}},
+      input_section   => [@{$proto->{input_section}}],
+      input_lookup    => {%{$proto->{input_lookup}}},
+      output_section  => [@{$proto->{output_section}}],
+      output_lookup   => {%{$proto->{output_lookup}}},
+    } => ref($proto) );
+  }
+  else {
+    $self = bless( {
+      %$proto,
+      typemap_section => [map $_->new, @{$proto->{typemap_section}}],
+      typemap_lookup  => {%{$proto->{typemap_lookup}}},
+      input_section   => [map $_->new, @{$proto->{input_section}}],
+      input_lookup    => {%{$proto->{input_lookup}}},
+      output_section  => [map $_->new, @{$proto->{output_section}}],
+      output_lookup   => {%{$proto->{output_lookup}}},
+    } => ref($proto) );
+  }
+
+  return $self;
+}
+
+=head2 tidy_type
+
+Function to (heuristically) canonicalize a C type. Works to some
+degree with C++ types.
+
+    $halfway_canonical_type = tidy_type($ctype);
+
+Moved from C<ExtUtils::ParseXS>.
+
+=cut
+
+sub tidy_type {
+  local $_ = shift;
+
+  # for templated C++ types, do some bit of flawed canonicalization
+  # wrt. templates at least
+  if (/[<>]/) {
+    s/\s*([<>])\s*/$1/g;
+    s/>>/> >/g;
+  }
+
+  # rationalise any '*' by joining them into bunches and removing whitespace
+  s#\s*(\*+)\s*#$1#g;
+  s#(\*+)# $1 #g ;
+
+  # trim leading & trailing whitespace
+  s/^\s+//; s/\s+$//;
+
+  # change multiple whitespace into a single space
+  s/\s+/ /g;
+
+  $_;
+}
+
+
+
+sub _parse {
+  my $self = shift;
+  my $stringref = shift;
+  my $lineno_offset = shift;
+  $lineno_offset = 0 if not defined $lineno_offset;
+  my $filename = shift;
+  $filename = '<string>' if not defined $filename;
+
+  my $replace = $self->{replace};
+  my $skip    = $self->{skip};
+  die "Can only replace OR skip" if $replace and $skip;
+  my @add_params;
+  push @add_params, replace => 1 if $replace;
+  push @add_params, skip    => 1 if $skip;
+
+  # TODO comments should round-trip, currently ignoring
+  # TODO order of sections, multiple sections of same type
+  # Heavily influenced by ExtUtils::ParseXS
+  my $section = 'typemap';
+  my $lineno = $lineno_offset;
+  my $junk = "";
+  my $current = \$junk;
+  my @input_expr;
+  my @output_expr;
+  while ($$stringref =~ /^(.*)$/gcm) {
+    local $_ = $1;
+    ++$lineno;
+    chomp;
+    next if /^\s*#/;
+    if (/^INPUT\s*$/) {
+      $section = 'input';
+      $current = \$junk;
+      next;
+    }
+    elsif (/^OUTPUT\s*$/) {
+      $section = 'output';
+      $current = \$junk;
+      next;
+    }
+    elsif (/^TYPEMAP\s*$/) {
+      $section = 'typemap';
+      $current = \$junk;
+      next;
+    }
+    
+    if ($section eq 'typemap') {
+      my $line = $_;
+      s/^\s+//; s/\s+$//;
+      next if $_ eq '' or /^#/;
+      my($type, $kind, $proto) = /^(.*?\S)\s+(\S+)\s*($ExtUtils::ParseXS::Constants::PrototypeRegexp*)$/o
+        or warn("Warning: File '$filename' Line $lineno '$line' TYPEMAP entry needs 2 or 3 columns\n"),
+           next;
+      # prototype defaults to '$'
+      $proto = '$' unless $proto;
+      warn("Warning: File '$filename' Line $lineno '$line' Invalid prototype '$proto'\n")
+        unless _valid_proto_string($proto);
+      $self->add_typemap(
+        ExtUtils::Typemaps::Type->new(
+          xstype => $kind, proto => $proto, ctype => $type
+        ),
+        @add_params
+      );
+    } elsif (/^\s/) {
+      s/\s+$//;
+      $$current .= $$current eq '' ? $_ : "\n".$_;
+    } elsif ($_ eq '') {
+      next;
+    } elsif ($section eq 'input') {
+      s/\s+$//;
+      push @input_expr, {xstype => $_, code => ''};
+      $current = \$input_expr[-1]{code};
+    } else { # output section
+      s/\s+$//;
+      push @output_expr, {xstype => $_, code => ''};
+      $current = \$output_expr[-1]{code};
+    }
+
+  } # end while lines
+
+  foreach my $inexpr (@input_expr) {
+    $self->add_inputmap( ExtUtils::Typemaps::InputMap->new(%$inexpr), @add_params );
+  }
+  foreach my $outexpr (@output_expr) {
+    $self->add_outputmap( ExtUtils::Typemaps::OutputMap->new(%$outexpr), @add_params );
+  }
+
+  return 1;
+}
+
+# taken from ExtUtils::ParseXS
+sub _valid_proto_string {
+  my $string = shift;
+  if ($string =~ /^$ExtUtils::ParseXS::Constants::PrototypeRegexp+$/o) {
+    return $string;
+  }
+
+  return 0 ;
+}
+
+# taken from ExtUtils::ParseXS (C_string)
+sub _escape_backslashes {
+  my $string = shift;
+  $string =~ s[\\][\\\\]g;
+  $string;
+}
+
+=head1 CAVEATS
+
+Inherits some evil code from C<ExtUtils::ParseXS>.
+
+=head1 SEE ALSO
+
+The parser is heavily inspired from the one in L<ExtUtils::ParseXS>.
+
+For details on typemaps: L<perlxstut>, L<perlxs>.
+
+=head1 AUTHOR
+
+Steffen Mueller C<<smueller@cpan.org>>
+
+=head1 COPYRIGHT & LICENSE
+
+Copyright 2009, 2010, 2011, 2012, 2013 Steffen Mueller
+
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+=cut
+
+1;
+
diff --git a/lib/5.24.1/ExtUtils/Typemaps/Cmd.pm b/lib/5.24.1/ExtUtils/Typemaps/Cmd.pm
new file mode 100644
index 00000000..ffed504f
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/Typemaps/Cmd.pm
@@ -0,0 +1,168 @@
+package ExtUtils::Typemaps::Cmd;
+use 5.006001;
+use strict;
+use warnings;
+our $VERSION = '3.31';
+
+use ExtUtils::Typemaps;
+
+require Exporter;
+
+our @ISA = qw(Exporter);
+our @EXPORT = qw(embeddable_typemap);
+our %EXPORT_TAGS = (all => \@EXPORT);
+
+sub embeddable_typemap {
+  my @tms = @_;
+
+  # Get typemap objects
+  my @tm_objs = map [$_, _intuit_typemap_source($_)], @tms;
+
+  # merge or short-circuit
+  my $final_tm;
+  if (@tm_objs == 1) {
+    # just one, merge would be pointless
+    $final_tm = shift(@tm_objs)->[1];
+  }
+  else {
+    # multiple, need merge
+    $final_tm = ExtUtils::Typemaps->new;
+    foreach my $other_tm (@tm_objs) {
+      my ($tm_ident, $tm_obj) = @$other_tm;
+      eval {
+        $final_tm->merge(typemap => $tm_obj);
+        1
+      } or do {
+        my $err = $@ || 'Zombie error';
+        die "Failed to merge typ";
+      }
+    }
+  }
+
+  # stringify for embedding
+  return $final_tm->as_embedded_typemap();
+}
+
+sub _load_module {
+  my $name = shift;
+  return eval "require $name; 1";
+}
+
+SCOPE: {
+  my %sources = (
+    module => sub {
+      my $ident = shift;
+      my $tm;
+      if (/::/) { # looks like FQ module name, try that first
+        foreach my $module ($ident, "ExtUtils::Typemaps::$ident") {
+          if (_load_module($module)) {
+            eval { $tm = $module->new }
+              and return $tm;
+          }
+        }
+      }
+      else {
+        foreach my $module ("ExtUtils::Typemaps::$ident", "$ident") {
+          if (_load_module($module)) {
+            eval { $tm = $module->new }
+              and return $tm;
+          }
+        }
+      }
+      return();
+    },
+    file => sub {
+      my $ident = shift;
+      return unless -e $ident and -r _;
+      return ExtUtils::Typemaps->new(file => $ident);
+    },
+  );
+  # Try to find typemap either from module or file
+  sub _intuit_typemap_source {
+    my $identifier = shift;
+
+    my @locate_attempts;
+    if ($identifier =~ /::/ || $identifier !~ /[^\w_]/) {
+      @locate_attempts = qw(module file);
+    }
+    else {
+      @locate_attempts = qw(file module);
+    }
+
+    foreach my $source (@locate_attempts) {
+      my $tm = $sources{$source}->($identifier);
+      return $tm if defined $tm;
+    }
+
+    die "Unable to find typemap for '$identifier': "
+        . "Tried to load both as file or module and failed.\n";
+  }
+} # end SCOPE
+
+=head1 NAME
+
+ExtUtils::Typemaps::Cmd - Quick commands for handling typemaps
+
+=head1 SYNOPSIS
+
+From XS:
+
+  INCLUDE_COMMAND: $^X -MExtUtils::Typemaps::Cmd \
+                   -e "print embeddable_typemap(q{Excommunicated})"
+
+Loads C<ExtUtils::Typemaps::Excommunicated>, instantiates an object,
+and dumps it as an embeddable typemap for use directly in your XS file.
+
+=head1 DESCRIPTION
+
+This is a helper module for L<ExtUtils::Typemaps> for quick
+one-liners, specifically for inclusion of shared typemaps
+that live on CPAN into an XS file (see SYNOPSIS).
+
+For this reason, the following functions are exported by default:
+
+=head1 EXPORTED FUNCTIONS
+
+=head2 embeddable_typemap
+
+Given a list of identifiers, C<embeddable_typemap>
+tries to load typemaps from a file of the given name(s),
+or from a module that is an C<ExtUtils::Typemaps> subclass.
+
+Returns a string representation of the merged typemaps that can
+be included verbatim into XS. Example:
+
+  print embeddable_typemap(
+    "Excommunicated", "ExtUtils::Typemaps::Basic", "./typemap"
+  );
+
+This will try to load a module C<ExtUtils::Typemaps::Excommunicated>
+and use it as an C<ExtUtils::Typemaps> subclass. If that fails, it'll
+try loading C<Excommunicated> as a module, if that fails, it'll try to
+read a file called F<Excommunicated>. It'll work similarly for the
+second argument, but the third will be loaded as a file first.
+
+After loading all typemap files or modules, it will merge them in the
+specified order and dump the result as an embeddable typemap.
+
+=head1 SEE ALSO
+
+L<ExtUtils::Typemaps>
+
+L<perlxs>
+
+=head1 AUTHOR
+
+Steffen Mueller C<<smueller@cpan.org>>
+
+=head1 COPYRIGHT & LICENSE
+
+Copyright 2012 Steffen Mueller
+
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+=cut
+
+1;
+
diff --git a/lib/5.24.1/ExtUtils/Typemaps/InputMap.pm b/lib/5.24.1/ExtUtils/Typemaps/InputMap.pm
new file mode 100644
index 00000000..86c646d5
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/Typemaps/InputMap.pm
@@ -0,0 +1,116 @@
+package ExtUtils::Typemaps::InputMap;
+use 5.006001;
+use strict;
+use warnings;
+our $VERSION = '3.31';
+
+=head1 NAME
+
+ExtUtils::Typemaps::InputMap - Entry in the INPUT section of a typemap
+
+=head1 SYNOPSIS
+
+  use ExtUtils::Typemaps;
+  ...
+  my $input = $typemap->get_input_map('T_NV');
+  my $code = $input->code();
+  $input->code("...");
+
+=head1 DESCRIPTION
+
+Refer to L<ExtUtils::Typemaps> for details.
+
+=head1 METHODS
+
+=cut
+
+=head2 new
+
+Requires C<xstype> and C<code> parameters.
+
+=cut
+
+sub new {
+  my $prot = shift;
+  my $class = ref($prot)||$prot;
+  my %args = @_;
+
+  if (!ref($prot)) {
+    if (not defined $args{xstype} or not defined $args{code}) {
+      die("Need xstype and code parameters");
+    }
+  }
+
+  my $self = bless(
+    (ref($prot) ? {%$prot} : {})
+    => $class
+  );
+
+  $self->{xstype} = $args{xstype} if defined $args{xstype};
+  $self->{code} = $args{code} if defined $args{code};
+  $self->{code} =~ s/^(?=\S)/\t/mg;
+
+  return $self;
+}
+
+=head2 code
+
+Returns or sets the INPUT mapping code for this entry.
+
+=cut
+
+sub code {
+  $_[0]->{code} = $_[1] if @_ > 1;
+  return $_[0]->{code};
+}
+
+=head2 xstype
+
+Returns the name of the XS type of the INPUT map.
+
+=cut
+
+sub xstype {
+  return $_[0]->{xstype};
+}
+
+=head2 cleaned_code
+
+Returns a cleaned-up copy of the code to which certain transformations
+have been applied to make it more ANSI compliant.
+
+=cut
+
+sub cleaned_code {
+  my $self = shift;
+  my $code = $self->code;
+
+  $code =~ s/(?:;+\s*|;*\s+)\z//s;
+
+  # Move C pre-processor instructions to column 1 to be strictly ANSI
+  # conformant. Some pre-processors are fussy about this.
+  $code =~ s/^\s+#/#/mg;
+  $code =~ s/\s*\z/\n/;
+
+  return $code;
+}
+
+=head1 SEE ALSO
+
+L<ExtUtils::Typemaps>
+
+=head1 AUTHOR
+
+Steffen Mueller C<<smueller@cpan.org>>
+
+=head1 COPYRIGHT & LICENSE
+
+Copyright 2009, 2010, 2011, 2012 Steffen Mueller
+
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+=cut
+
+1;
+
diff --git a/lib/5.24.1/ExtUtils/Typemaps/OutputMap.pm b/lib/5.24.1/ExtUtils/Typemaps/OutputMap.pm
new file mode 100644
index 00000000..32cf9f93
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/Typemaps/OutputMap.pm
@@ -0,0 +1,209 @@
+package ExtUtils::Typemaps::OutputMap;
+use 5.006001;
+use strict;
+use warnings;
+our $VERSION = '3.31';
+
+=head1 NAME
+
+ExtUtils::Typemaps::OutputMap - Entry in the OUTPUT section of a typemap
+
+=head1 SYNOPSIS
+
+  use ExtUtils::Typemaps;
+  ...
+  my $output = $typemap->get_output_map('T_NV');
+  my $code = $output->code();
+  $output->code("...");
+
+=head1 DESCRIPTION
+
+Refer to L<ExtUtils::Typemaps> for details.
+
+=head1 METHODS
+
+=cut
+
+=head2 new
+
+Requires C<xstype> and C<code> parameters.
+
+=cut
+
+sub new {
+  my $prot = shift;
+  my $class = ref($prot)||$prot;
+  my %args = @_;
+
+  if (!ref($prot)) {
+    if (not defined $args{xstype} or not defined $args{code}) {
+      die("Need xstype and code parameters");
+    }
+  }
+
+  my $self = bless(
+    (ref($prot) ? {%$prot} : {})
+    => $class
+  );
+
+  $self->{xstype} = $args{xstype} if defined $args{xstype};
+  $self->{code} = $args{code} if defined $args{code};
+  $self->{code} =~ s/^(?=\S)/\t/mg;
+
+  return $self;
+}
+
+=head2 code
+
+Returns or sets the OUTPUT mapping code for this entry.
+
+=cut
+
+sub code {
+  $_[0]->{code} = $_[1] if @_ > 1;
+  return $_[0]->{code};
+}
+
+=head2 xstype
+
+Returns the name of the XS type of the OUTPUT map.
+
+=cut
+
+sub xstype {
+  return $_[0]->{xstype};
+}
+
+=head2 cleaned_code
+
+Returns a cleaned-up copy of the code to which certain transformations
+have been applied to make it more ANSI compliant.
+
+=cut
+
+sub cleaned_code {
+  my $self = shift;
+  my $code = $self->code;
+
+  # Move C pre-processor instructions to column 1 to be strictly ANSI
+  # conformant. Some pre-processors are fussy about this.
+  $code =~ s/^\s+#/#/mg;
+  $code =~ s/\s*\z/\n/;
+
+  return $code;
+}
+
+=head2 targetable
+
+This is an obscure but effective optimization that used to
+live in C<ExtUtils::ParseXS> directly. Not implementing it
+should never result in incorrect use of typemaps, just less
+efficient code.
+
+In a nutshell, this will check whether the output code
+involves calling C<sv_setiv>, C<sv_setuv>, C<sv_setnv>, C<sv_setpv> or
+C<sv_setpvn> to set the special C<$arg> placeholder to a new value
+B<AT THE END OF THE OUTPUT CODE>. If that is the case, the code is
+eligible for using the C<TARG>-related macros to optimize this.
+Thus the name of the method: C<targetable>.
+
+If this optimization is applicable, C<ExtUtils::ParseXS> will
+emit a C<dXSTARG;> definition at the start of the generated XSUB code,
+and type (see below) dependent code to set C<TARG> and push it on
+the stack at the end of the generated XSUB code.
+
+If the optimization can not be applied, this returns undef.
+If it can be applied, this method returns a hash reference containing
+the following information:
+
+  type:      Any of the characters i, u, n, p
+  with_size: Bool indicating whether this is the sv_setpvn variant
+  what:      The code that actually evaluates to the output scalar
+  what_size: If "with_size", this has the string length (as code,
+             not constant, including leading comma)
+
+=cut
+
+sub targetable {
+  my $self = shift;
+  return $self->{targetable} if exists $self->{targetable};
+
+  our $bal; # ()-balanced
+  $bal = qr[
+    (?:
+      (?>[^()]+)
+      |
+      \( (??{ $bal }) \)
+    )*
+  ]x;
+  my $bal_no_comma = qr[
+    (?:
+      (?>[^(),]+)
+      |
+      \( (??{ $bal }) \)
+    )+
+  ]x;
+
+  # matches variations on (SV*)
+  my $sv_cast = qr[
+    (?:
+      \( \s* SV \s* \* \s* \) \s*
+    )?
+  ]x;
+
+  my $size = qr[ # Third arg (to setpvn)
+    , \s* (??{ $bal })
+  ]xo;
+
+  my $code = $self->code;
+
+  # We can still bootstrap compile 're', because in code re.pm is
+  # available to miniperl, and does not attempt to load the XS code.
+  use re 'eval';
+
+  my ($type, $with_size, $arg, $sarg) =
+    ($code =~
+      m[^
+        \s+
+        sv_set([iunp])v(n)?    # Type, is_setpvn
+        \s*
+        \( \s*
+          $sv_cast \$arg \s* , \s*
+          ( $bal_no_comma )    # Set from
+          ( $size )?           # Possible sizeof set-from
+        \s* \) \s* ; \s* $
+      ]xo
+  );
+
+  my $rv = undef;
+  if ($type) {
+    $rv = {
+      type      => $type,
+      with_size => $with_size,
+      what      => $arg,
+      what_size => $sarg,
+    };
+  }
+  $self->{targetable} = $rv;
+  return $rv;
+}
+
+=head1 SEE ALSO
+
+L<ExtUtils::Typemaps>
+
+=head1 AUTHOR
+
+Steffen Mueller C<<smueller@cpan.org>>
+
+=head1 COPYRIGHT & LICENSE
+
+Copyright 2009, 2010, 2011, 2012 Steffen Mueller
+
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+=cut
+
+1;
+
diff --git a/lib/5.24.1/ExtUtils/Typemaps/Type.pm b/lib/5.24.1/ExtUtils/Typemaps/Type.pm
new file mode 100644
index 00000000..abe93cb8
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/Typemaps/Type.pm
@@ -0,0 +1,121 @@
+package ExtUtils::Typemaps::Type;
+use 5.006001;
+use strict;
+use warnings;
+require ExtUtils::Typemaps;
+
+our $VERSION = '3.31';
+
+=head1 NAME
+
+ExtUtils::Typemaps::Type - Entry in the TYPEMAP section of a typemap
+
+=head1 SYNOPSIS
+
+  use ExtUtils::Typemaps;
+  ...
+  my $type = $typemap->get_type_map('char*');
+  my $input = $typemap->get_input_map($type->xstype);
+
+=head1 DESCRIPTION
+
+Refer to L<ExtUtils::Typemaps> for details.
+Object associates C<ctype> with C<xstype>, which is the index
+into the in- and output mapping tables.
+
+=head1 METHODS
+
+=cut
+
+=head2 new
+
+Requires C<xstype> and C<ctype> parameters.
+
+Optionally takes C<prototype> parameter.
+
+=cut
+
+sub new {
+  my $prot = shift;
+  my $class = ref($prot)||$prot;
+  my %args = @_;
+
+  if (!ref($prot)) {
+    if (not defined $args{xstype} or not defined $args{ctype}) {
+      die("Need xstype and ctype parameters");
+    }
+  }
+
+  my $self = bless(
+    (ref($prot) ? {%$prot} : {proto => ''})
+    => $class
+  );
+
+  $self->{xstype} = $args{xstype} if defined $args{xstype};
+  $self->{ctype} = $args{ctype} if defined $args{ctype};
+  $self->{tidy_ctype} = ExtUtils::Typemaps::tidy_type($self->{ctype});
+  $self->{proto} = $args{'prototype'} if defined $args{'prototype'};
+
+  return $self;
+}
+
+=head2 proto
+
+Returns or sets the prototype.
+
+=cut
+
+sub proto {
+  $_[0]->{proto} = $_[1] if @_ > 1;
+  return $_[0]->{proto};
+}
+
+=head2 xstype
+
+Returns the name of the XS type that this C type is associated to.
+
+=cut
+
+sub xstype {
+  return $_[0]->{xstype};
+}
+
+=head2 ctype
+
+Returns the name of the C type as it was set on construction.
+
+=cut
+
+sub ctype {
+  return defined($_[0]->{ctype}) ? $_[0]->{ctype} : $_[0]->{tidy_ctype};
+}
+
+=head2 tidy_ctype
+
+Returns the canonicalized name of the C type.
+
+=cut
+
+sub tidy_ctype {
+  return $_[0]->{tidy_ctype};
+}
+
+=head1 SEE ALSO
+
+L<ExtUtils::Typemaps>
+
+=head1 AUTHOR
+
+Steffen Mueller C<<smueller@cpan.org>>
+
+=head1 COPYRIGHT & LICENSE
+
+Copyright 2009, 2010, 2011, 2012 Steffen Mueller
+
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+=cut
+
+1;
+
diff --git a/lib/5.24.1/ExtUtils/testlib.pm b/lib/5.24.1/ExtUtils/testlib.pm
new file mode 100644
index 00000000..1756998c
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/testlib.pm
@@ -0,0 +1,41 @@
+package ExtUtils::testlib;
+
+use strict;
+use warnings;
+
+our $VERSION = '7.10_02';
+
+use Cwd;
+use File::Spec;
+
+# So the tests can chdir around and not break @INC.
+# We use getcwd() because otherwise rel2abs will blow up under taint
+# mode pre-5.8.  We detaint is so @INC won't be tainted.  This is
+# no worse, and probably better, than just shoving an untainted,
+# relative "blib/lib" onto @INC.
+my $cwd;
+BEGIN {
+    ($cwd) = getcwd() =~ /(.*)/;
+}
+use lib map { File::Spec->rel2abs($_, $cwd) } qw(blib/arch blib/lib);
+1;
+__END__
+
+=head1 NAME
+
+ExtUtils::testlib - add blib/* directories to @INC
+
+=head1 SYNOPSIS
+
+  use ExtUtils::testlib;
+
+=head1 DESCRIPTION
+
+After an extension has been built and before it is installed it may be
+desirable to test it bypassing C<make test>. By adding
+
+    use ExtUtils::testlib;
+
+to a test program the intermediate directories used by C<make> are
+added to @INC.
+
diff --git a/lib/5.24.1/ExtUtils/typemap b/lib/5.24.1/ExtUtils/typemap
new file mode 100644
index 00000000..4bfba95e
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/typemap
@@ -0,0 +1,447 @@
+# basic C types
+int			T_IV
+unsigned		T_UV
+unsigned int		T_UV
+long			T_IV
+unsigned long		T_UV
+short			T_IV
+unsigned short		T_UV
+char			T_CHAR
+unsigned char		T_U_CHAR
+char *			T_PV
+unsigned char *		T_PV
+const char *		T_PV
+caddr_t			T_PV
+wchar_t *		T_PV
+wchar_t			T_IV
+# bool_t is defined in <rpc/rpc.h>
+bool_t			T_IV
+size_t			T_UV
+ssize_t			T_IV
+time_t			T_NV
+unsigned long *		T_OPAQUEPTR
+char **			T_PACKEDARRAY
+void *			T_PTR
+Time_t *		T_PV
+SV *			T_SV
+
+# These are the backwards-compatibility AV*/HV* typemaps that
+# do not decrement refcounts. Locally override with
+# "AV*	T_AVREF_REFCOUNT_FIXED", "HV*	T_HVREF_REFCOUNT_FIXED",
+# "CV*	T_CVREF_REFCOUNT_FIXED", "SVREF	T_SVREF_REFCOUNT_FIXED",
+# to get the fixed versions.
+SVREF			T_SVREF
+CV *			T_CVREF
+AV *			T_AVREF
+HV *			T_HVREF
+
+IV			T_IV
+UV			T_UV
+NV                      T_NV
+I32			T_IV
+I16			T_IV
+I8			T_IV
+STRLEN			T_UV
+U32			T_U_LONG
+U16			T_U_SHORT
+U8			T_UV
+Result			T_U_CHAR
+Boolean			T_BOOL
+float                   T_FLOAT
+double			T_DOUBLE
+SysRet			T_SYSRET
+SysRetLong		T_SYSRET
+FILE *			T_STDIO
+PerlIO *		T_INOUT
+FileHandle		T_PTROBJ
+InputStream		T_IN
+InOutStream		T_INOUT
+OutputStream		T_OUT
+bool			T_BOOL
+
+#############################################################################
+INPUT
+T_SV
+	$var = $arg
+T_SVREF
+	STMT_START {
+		SV* const xsub_tmp_sv = $arg;
+		SvGETMAGIC(xsub_tmp_sv);
+		if (SvROK(xsub_tmp_sv)){
+		    $var = SvRV(xsub_tmp_sv);
+		}
+		else{
+		    Perl_croak_nocontext(\"%s: %s is not a reference\",
+				${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
+				\"$var\");
+		}
+	} STMT_END
+T_SVREF_REFCOUNT_FIXED
+	STMT_START {
+		SV* const xsub_tmp_sv = $arg;
+		SvGETMAGIC(xsub_tmp_sv);
+		if (SvROK(xsub_tmp_sv)){
+		    $var = SvRV(xsub_tmp_sv);
+		}
+		else{
+		    Perl_croak_nocontext(\"%s: %s is not a reference\",
+				${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
+				\"$var\");
+		}
+	} STMT_END
+T_AVREF
+	STMT_START {
+		SV* const xsub_tmp_sv = $arg;
+		SvGETMAGIC(xsub_tmp_sv);
+		if (SvROK(xsub_tmp_sv) && SvTYPE(SvRV(xsub_tmp_sv)) == SVt_PVAV){
+		    $var = (AV*)SvRV(xsub_tmp_sv);
+		}
+		else{
+		    Perl_croak_nocontext(\"%s: %s is not an ARRAY reference\",
+				${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
+				\"$var\");
+		}
+	} STMT_END
+T_AVREF_REFCOUNT_FIXED
+	STMT_START {
+		SV* const xsub_tmp_sv = $arg;
+		SvGETMAGIC(xsub_tmp_sv);
+		if (SvROK(xsub_tmp_sv) && SvTYPE(SvRV(xsub_tmp_sv)) == SVt_PVAV){
+		    $var = (AV*)SvRV(xsub_tmp_sv);
+		}
+		else{
+		    Perl_croak_nocontext(\"%s: %s is not an ARRAY reference\",
+				${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
+				\"$var\");
+		}
+	} STMT_END
+T_HVREF
+	STMT_START {
+		SV* const xsub_tmp_sv = $arg;
+		SvGETMAGIC(xsub_tmp_sv);
+		if (SvROK(xsub_tmp_sv) && SvTYPE(SvRV(xsub_tmp_sv)) == SVt_PVHV){
+		    $var = (HV*)SvRV(xsub_tmp_sv);
+		}
+		else{
+		    Perl_croak_nocontext(\"%s: %s is not a HASH reference\",
+				${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
+				\"$var\");
+		}
+	} STMT_END
+T_HVREF_REFCOUNT_FIXED
+	STMT_START {
+		SV* const xsub_tmp_sv = $arg;
+		SvGETMAGIC(xsub_tmp_sv);
+		if (SvROK(xsub_tmp_sv) && SvTYPE(SvRV(xsub_tmp_sv)) == SVt_PVHV){
+		    $var = (HV*)SvRV(xsub_tmp_sv);
+		}
+		else{
+		    Perl_croak_nocontext(\"%s: %s is not a HASH reference\",
+				${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
+				\"$var\");
+		}
+	} STMT_END
+T_CVREF
+	STMT_START {
+                HV *st;
+                GV *gvp;
+		SV * const xsub_tmp_sv = $arg;
+		SvGETMAGIC(xsub_tmp_sv);
+                $var = sv_2cv(xsub_tmp_sv, &st, &gvp, 0);
+		if (!$var) {
+		    Perl_croak_nocontext(\"%s: %s is not a CODE reference\",
+				${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
+				\"$var\");
+		}
+	} STMT_END
+T_CVREF_REFCOUNT_FIXED
+	STMT_START {
+                HV *st;
+                GV *gvp;
+		SV * const xsub_tmp_sv = $arg;
+		SvGETMAGIC(xsub_tmp_sv);
+                $var = sv_2cv(xsub_tmp_sv, &st, &gvp, 0);
+		if (!$var) {
+		    Perl_croak_nocontext(\"%s: %s is not a CODE reference\",
+				${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
+				\"$var\");
+		}
+	} STMT_END
+T_SYSRET
+	$var NOT IMPLEMENTED
+T_UV
+	$var = ($type)SvUV($arg)
+T_IV
+	$var = ($type)SvIV($arg)
+T_INT
+	$var = (int)SvIV($arg)
+T_ENUM
+	$var = ($type)SvIV($arg)
+T_BOOL
+	$var = (bool)SvTRUE($arg)
+T_U_INT
+	$var = (unsigned int)SvUV($arg)
+T_SHORT
+	$var = (short)SvIV($arg)
+T_U_SHORT
+	$var = (unsigned short)SvUV($arg)
+T_LONG
+	$var = (long)SvIV($arg)
+T_U_LONG
+	$var = (unsigned long)SvUV($arg)
+T_CHAR
+	$var = (char)*SvPV_nolen($arg)
+T_U_CHAR
+	$var = (unsigned char)SvUV($arg)
+T_FLOAT
+	$var = (float)SvNV($arg)
+T_NV
+	$var = ($type)SvNV($arg)
+T_DOUBLE
+	$var = (double)SvNV($arg)
+T_PV
+	$var = ($type)SvPV_nolen($arg)
+T_PTR
+	$var = INT2PTR($type,SvIV($arg))
+T_PTRREF
+	if (SvROK($arg)) {
+	    IV tmp = SvIV((SV*)SvRV($arg));
+	    $var = INT2PTR($type,tmp);
+	}
+	else
+	    Perl_croak_nocontext(\"%s: %s is not a reference\",
+			${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
+			\"$var\")
+T_REF_IV_REF
+	if (sv_isa($arg, \"${ntype}\")) {
+	    IV tmp = SvIV((SV*)SvRV($arg));
+	    $var = *INT2PTR($type *, tmp);
+	}
+	else
+	    Perl_croak_nocontext(\"%s: %s is not of type %s\",
+			${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
+			\"$var\", \"$ntype\")
+T_REF_IV_PTR
+	if (sv_isa($arg, \"${ntype}\")) {
+	    IV tmp = SvIV((SV*)SvRV($arg));
+	    $var = INT2PTR($type, tmp);
+	}
+	else
+	    Perl_croak_nocontext(\"%s: %s is not of type %s\",
+			${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
+			\"$var\", \"$ntype\")
+T_PTROBJ
+	if (SvROK($arg) && sv_derived_from($arg, \"${ntype}\")) {
+	    IV tmp = SvIV((SV*)SvRV($arg));
+	    $var = INT2PTR($type,tmp);
+	}
+	else
+	    Perl_croak_nocontext(\"%s: %s is not of type %s\",
+			${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
+			\"$var\", \"$ntype\")
+T_PTRDESC
+	if (sv_isa($arg, \"${ntype}\")) {
+	    IV tmp = SvIV((SV*)SvRV($arg));
+	    ${type}_desc = (\U${type}_DESC\E*) tmp;
+	    $var = ${type}_desc->ptr;
+	}
+	else
+	    Perl_croak_nocontext(\"%s: %s is not of type %s\",
+			${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
+			\"$var\", \"$ntype\")
+T_REFREF
+	if (SvROK($arg)) {
+	    IV tmp = SvIV((SV*)SvRV($arg));
+	    $var = *INT2PTR($type,tmp);
+	}
+	else
+	    Perl_croak_nocontext(\"%s: %s is not a reference\",
+			${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
+			\"$var\")
+T_REFOBJ
+	if (sv_isa($arg, \"${ntype}\")) {
+	    IV tmp = SvIV((SV*)SvRV($arg));
+	    $var = *INT2PTR($type,tmp);
+	}
+	else
+	    Perl_croak_nocontext(\"%s: %s is not of type %s\",
+			${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
+			\"$var\", \"$ntype\")
+T_OPAQUE
+	$var = *($type *)SvPV_nolen($arg)
+T_OPAQUEPTR
+	$var = ($type)SvPV_nolen($arg)
+T_PACKED
+	$var = XS_unpack_$ntype($arg)
+T_PACKEDARRAY
+	$var = XS_unpack_$ntype($arg)
+T_ARRAY
+	U32 ix_$var = $argoff;
+	$var = $ntype(items -= $argoff);
+	while (items--) {
+	    DO_ARRAY_ELEM;
+	    ix_$var++;
+	}
+        /* this is the number of elements in the array */
+        ix_$var -= $argoff
+T_STDIO
+	$var = PerlIO_findFILE(IoIFP(sv_2io($arg)))
+T_IN
+	$var = IoIFP(sv_2io($arg))
+T_INOUT
+	$var = IoIFP(sv_2io($arg))
+T_OUT
+	$var = IoOFP(sv_2io($arg))
+#############################################################################
+OUTPUT
+T_SV
+	$arg = $var;
+T_SVREF
+	$arg = newRV((SV*)$var);
+T_SVREF_REFCOUNT_FIXED
+	$arg = newRV_noinc((SV*)$var);
+T_AVREF
+	$arg = newRV((SV*)$var);
+T_AVREF_REFCOUNT_FIXED
+	$arg = newRV_noinc((SV*)$var);
+T_HVREF
+	$arg = newRV((SV*)$var);
+T_HVREF_REFCOUNT_FIXED
+	$arg = newRV_noinc((SV*)$var);
+T_CVREF
+	$arg = newRV((SV*)$var);
+T_CVREF_REFCOUNT_FIXED
+	$arg = newRV_noinc((SV*)$var);
+T_IV
+	sv_setiv($arg, (IV)$var);
+T_UV
+	sv_setuv($arg, (UV)$var);
+T_INT
+	sv_setiv($arg, (IV)$var);
+T_SYSRET
+	if ($var != -1) {
+	    if ($var == 0)
+		sv_setpvn($arg, "0 but true", 10);
+	    else
+		sv_setiv($arg, (IV)$var);
+	}
+T_ENUM
+	sv_setiv($arg, (IV)$var);
+T_BOOL
+	${"$var" eq "RETVAL" ? \"$arg = boolSV($var);" : \"sv_setsv($arg, boolSV($var));"}
+T_U_INT
+	sv_setuv($arg, (UV)$var);
+T_SHORT
+	sv_setiv($arg, (IV)$var);
+T_U_SHORT
+	sv_setuv($arg, (UV)$var);
+T_LONG
+	sv_setiv($arg, (IV)$var);
+T_U_LONG
+	sv_setuv($arg, (UV)$var);
+T_CHAR
+	sv_setpvn($arg, (char *)&$var, 1);
+T_U_CHAR
+	sv_setuv($arg, (UV)$var);
+T_FLOAT
+	sv_setnv($arg, (double)$var);
+T_NV
+	sv_setnv($arg, (NV)$var);
+T_DOUBLE
+	sv_setnv($arg, (double)$var);
+T_PV
+	sv_setpv((SV*)$arg, $var);
+T_PTR
+	sv_setiv($arg, PTR2IV($var));
+T_PTRREF
+	sv_setref_pv($arg, Nullch, (void*)$var);
+T_REF_IV_REF
+	sv_setref_pv($arg, \"${ntype}\", (void*)new $ntype($var));
+T_REF_IV_PTR
+	sv_setref_pv($arg, \"${ntype}\", (void*)$var);
+T_PTROBJ
+	sv_setref_pv($arg, \"${ntype}\", (void*)$var);
+T_PTRDESC
+	sv_setref_pv($arg, \"${ntype}\", (void*)new\U${type}_DESC\E($var));
+T_REFREF
+	NOT_IMPLEMENTED
+T_REFOBJ
+	NOT IMPLEMENTED
+T_OPAQUE
+	sv_setpvn($arg, (char *)&$var, sizeof($var));
+T_OPAQUEPTR
+	sv_setpvn($arg, (char *)$var, sizeof(*$var));
+T_PACKED
+	XS_pack_$ntype($arg, $var);
+T_PACKEDARRAY
+	XS_pack_$ntype($arg, $var, count_$ntype);
+T_ARRAY
+        {
+	    U32 ix_$var;
+            SSize_t extend_size =
+                /* The weird way this is written is because g++ is dumb
+                 * enough to warn "comparison is always false" on something
+                 * like:
+                 *
+                 * sizeof(a) > sizeof(b) && a > B_t_MAX
+                 *
+                 * (where the LH condition is false)
+                 */
+                (size_$var > (sizeof(size_$var) > sizeof(SSize_t)
+                              ? SSize_t_MAX : size_$var))
+                ? -1 : (SSize_t)size_$var;
+	    EXTEND(SP, extend_size);
+	    for (ix_$var = 0; ix_$var < size_$var; ix_$var++) {
+		ST(ix_$var) = sv_newmortal();
+	DO_ARRAY_ELEM
+	    }
+        }
+T_STDIO
+	{
+	    GV *gv = newGVgen("$Package");
+	    PerlIO *fp = PerlIO_importFILE($var,0);
+	    if ( fp && do_open(gv, "+<&", 3, FALSE, 0, 0, fp) ) {
+		SV *rv = newRV_inc((SV*)gv);
+		rv = sv_bless(rv, GvSTASH(gv));
+		${"$var" eq "RETVAL" ? \"$arg = sv_2mortal(rv);"
+		    : \"sv_setsv($arg, rv);\n\t\tSvREFCNT_dec_NN(rv);"}
+	    }${"$var" ne "RETVAL" ? \"
+	    else
+		sv_setsv($arg, &PL_sv_undef);\n" : \""}
+	}
+T_IN
+	{
+	    GV *gv = newGVgen("$Package");
+	    if ( do_open(gv, "<&", 2, FALSE, 0, 0, $var) ) {
+		SV *rv = newRV_inc((SV*)gv);
+		rv = sv_bless(rv, GvSTASH(gv));
+		${"$var" eq "RETVAL" ? \"$arg = sv_2mortal(rv);"
+		    : \"sv_setsv($arg, rv);\n\t\tSvREFCNT_dec_NN(rv);"}
+	    }${"$var" ne "RETVAL" ? \"
+	    else
+		sv_setsv($arg, &PL_sv_undef);\n" : \""}
+	}
+T_INOUT
+	{
+	    GV *gv = newGVgen("$Package");
+	    if ( do_open(gv, "+<&", 3, FALSE, 0, 0, $var) ) {
+		SV *rv = newRV_inc((SV*)gv);
+		rv = sv_bless(rv, GvSTASH(gv));
+		${"$var" eq "RETVAL" ? \"$arg = sv_2mortal(rv);"
+		    : \"sv_setsv($arg, rv);\n\t\tSvREFCNT_dec_NN(rv);"}
+	    }${"$var" ne "RETVAL" ? \"
+	    else
+		sv_setsv($arg, &PL_sv_undef);\n" : \""}
+	}
+T_OUT
+	{
+	    GV *gv = newGVgen("$Package");
+	    if ( do_open(gv, "+>&", 3, FALSE, 0, 0, $var) ) {
+		SV *rv = newRV_inc((SV*)gv);
+		rv = sv_bless(rv, GvSTASH(gv));
+		${"$var" eq "RETVAL" ? \"$arg = sv_2mortal(rv);"
+		    : \"sv_setsv($arg, rv);\n\t\tSvREFCNT_dec_NN(rv);"}
+	    }${"$var" ne "RETVAL" ? \"
+	    else
+		sv_setsv($arg, &PL_sv_undef);\n" : \""}
+	}
diff --git a/lib/5.24.1/ExtUtils/xsubpp b/lib/5.24.1/ExtUtils/xsubpp
new file mode 100644
index 00000000..d596cdff
--- /dev/null
+++ b/lib/5.24.1/ExtUtils/xsubpp
@@ -0,0 +1,185 @@
+#!perl
+use 5.006;
+BEGIN { pop @INC if $INC[-1] eq '.' }
+use strict;
+eval {
+  require ExtUtils::ParseXS;
+  1;
+}
+or do {
+  my $err = $@ || 'Zombie error';
+  my $v = $ExtUtils::ParseXS::VERSION;
+  $v = '<undef>' if not defined $v;
+  die "Failed to load or import from ExtUtils::ParseXS (version $v). Please check that ExtUtils::ParseXS is installed correctly and that the newest version will be found in your \@INC path: $err";
+};
+
+use Getopt::Long;
+
+my %args = ();
+
+my $usage = "Usage: xsubpp [-v] [-csuffix csuffix] [-except] [-prototypes] [-noversioncheck] [-nolinenumbers] [-nooptimize] [-noinout] [-noargtypes] [-strip|s pattern] [-typemap typemap]... file.xs\n";
+
+Getopt::Long::Configure qw(no_auto_abbrev no_ignore_case);
+
+@ARGV = grep {$_ ne '-C++'} @ARGV;  # Allow -C++ for backward compatibility
+GetOptions(\%args, qw(hiertype!
+		      prototypes!
+		      versioncheck!
+		      linenumbers!
+		      optimize!
+		      inout!
+		      argtypes!
+		      object_capi!
+		      except!
+		      v
+		      typemap=s@
+		      output=s
+		      s|strip=s
+		      csuffix=s
+		     ))
+  or die $usage;
+
+if ($args{v}) {
+  print "xsubpp version $ExtUtils::ParseXS::VERSION\n";
+  exit;
+}
+
+@ARGV == 1 or die $usage;
+
+$args{filename} = shift @ARGV;
+
+my $pxs = ExtUtils::ParseXS->new;
+$pxs->process_file(%args);
+exit( $pxs->report_error_count() ? 1 : 0 );
+
+__END__
+
+=head1 NAME
+
+xsubpp - compiler to convert Perl XS code into C code
+
+=head1 SYNOPSIS
+
+B<xsubpp> [B<-v>] [B<-except>] [B<-s pattern>] [B<-prototypes>] [B<-noversioncheck>] [B<-nolinenumbers>] [B<-nooptimize>] [B<-typemap typemap>] [B<-output filename>]... file.xs
+
+=head1 DESCRIPTION
+
+This compiler is typically run by the makefiles created by L<ExtUtils::MakeMaker>
+or by L<Module::Build> or other Perl module build tools.
+
+I<xsubpp> will compile XS code into C code by embedding the constructs
+necessary to let C functions manipulate Perl values and creates the glue
+necessary to let Perl access those functions.  The compiler uses typemaps to
+determine how to map C function parameters and variables to Perl values.
+
+The compiler will search for typemap files called I<typemap>.  It will use
+the following search path to find default typemaps, with the rightmost
+typemap taking precedence.
+
+	../../../typemap:../../typemap:../typemap:typemap
+
+It will also use a default typemap installed as C<ExtUtils::typemap>.
+
+=head1 OPTIONS
+
+Note that the C<XSOPT> MakeMaker option may be used to add these options to
+any makefiles generated by MakeMaker.
+
+=over 5
+
+=item B<-hiertype>
+
+Retains '::' in type names so that C++ hierarchical types can be mapped.
+
+=item B<-except>
+
+Adds exception handling stubs to the C code.
+
+=item B<-typemap typemap>
+
+Indicates that a user-supplied typemap should take precedence over the
+default typemaps.  This option may be used multiple times, with the last
+typemap having the highest precedence.
+
+=item B<-output filename>
+
+Specifies the name of the output file to generate.  If no file is
+specified, output will be written to standard output.
+
+=item B<-v>
+
+Prints the I<xsubpp> version number to standard output, then exits.
+
+=item B<-prototypes>
+
+By default I<xsubpp> will not automatically generate prototype code for
+all xsubs. This flag will enable prototypes.
+
+=item B<-noversioncheck>
+
+Disables the run time test that determines if the object file (derived
+from the C<.xs> file) and the C<.pm> files have the same version
+number.
+
+=item B<-nolinenumbers>
+
+Prevents the inclusion of '#line' directives in the output.
+
+=item B<-nooptimize>
+
+Disables certain optimizations.  The only optimization that is currently
+affected is the use of I<target>s by the output C code (see L<perlguts>).
+This may significantly slow down the generated code, but this is the way
+B<xsubpp> of 5.005 and earlier operated.
+
+=item B<-noinout>
+
+Disable recognition of C<IN>, C<OUT_LIST> and C<INOUT_LIST> declarations.
+
+=item B<-noargtypes>
+
+Disable recognition of ANSI-like descriptions of function signature.
+
+=item B<-C++>
+
+Currently doesn't do anything at all.  This flag has been a no-op for
+many versions of perl, at least as far back as perl5.003_07.  It's
+allowed here for backwards compatibility.
+
+=item B<-s=...> or B<-strip=...>
+
+I<This option is obscure and discouraged.>
+
+If specified, the given string will be stripped off from the beginning
+of the C function name in the generated XS functions (if it starts with that prefix).
+This only applies to XSUBs without C<CODE> or C<PPCODE> blocks.
+For example, the XS:
+
+  void foo_bar(int i);
+
+when C<xsubpp> is invoked with C<-s foo_> will install a C<foo_bar>
+function in Perl, but really call C<bar(i)> in C. Most of the time,
+this is the opposite of what you want and failure modes are somewhat
+obscure, so please avoid this option where possible.
+
+=back
+
+=head1 ENVIRONMENT
+
+No environment variables are used.
+
+=head1 AUTHOR
+
+Originally by Larry Wall.  Turned into the C<ExtUtils::ParseXS> module
+by Ken Williams.
+
+=head1 MODIFICATION HISTORY
+
+See the file F<Changes>.
+
+=head1 SEE ALSO
+
+perl(1), perlxs(1), perlxstut(1), ExtUtils::ParseXS
+
+=cut
+
diff --git a/lib/5.24.1/Fatal.pm b/lib/5.24.1/Fatal.pm
new file mode 100644
index 00000000..16e17434
--- /dev/null
+++ b/lib/5.24.1/Fatal.pm
@@ -0,0 +1,1813 @@
+package Fatal;
+
+# ABSTRACT: Replace functions with equivalents which succeed or die
+
+use 5.008;  # 5.8.x needed for autodie
+use Carp;
+use strict;
+use warnings;
+use Tie::RefHash;   # To cache subroutine refs
+use Config;
+use Scalar::Util qw(set_prototype);
+
+use autodie::Util qw(
+  fill_protos
+  install_subs
+  make_core_trampoline
+  on_end_of_compile_scope
+);
+
+use constant PERL510     => ( $] >= 5.010 );
+
+use constant LEXICAL_TAG => q{:lexical};
+use constant VOID_TAG    => q{:void};
+use constant INSIST_TAG  => q{!};
+
+# Keys for %Cached_fatalised_sub  (used in 3rd level)
+use constant CACHE_AUTODIE_LEAK_GUARD    => 0;
+use constant CACHE_FATAL_WRAPPER         => 1;
+use constant CACHE_FATAL_VOID            => 2;
+
+
+use constant ERROR_NOARGS    => 'Cannot use lexical %s with no arguments';
+use constant ERROR_VOID_LEX  => VOID_TAG.' cannot be used with lexical scope';
+use constant ERROR_LEX_FIRST => LEXICAL_TAG.' must be used as first argument';
+use constant ERROR_NO_LEX    => "no %s can only start with ".LEXICAL_TAG;
+use constant ERROR_BADNAME   => "Bad subroutine name for %s: %s";
+use constant ERROR_NOTSUB    => "%s is not a Perl subroutine";
+use constant ERROR_NOT_BUILT => "%s is neither a builtin, nor a Perl subroutine";
+use constant ERROR_NOHINTS   => "No user hints defined for %s";
+
+use constant ERROR_CANT_OVERRIDE => "Cannot make the non-overridable builtin %s fatal";
+
+use constant ERROR_NO_IPC_SYS_SIMPLE => "IPC::System::Simple required for Fatalised/autodying system()";
+
+use constant ERROR_IPC_SYS_SIMPLE_OLD => "IPC::System::Simple version %f required for Fatalised/autodying system().  We only have version %f";
+
+use constant ERROR_AUTODIE_CONFLICT => q{"no autodie '%s'" is not allowed while "use Fatal '%s'" is in effect};
+
+use constant ERROR_FATAL_CONFLICT => q{"use Fatal '%s'" is not allowed while "no autodie '%s'" is in effect};
+
+use constant ERROR_58_HINTS => q{Non-subroutine %s hints for %s are not supported under Perl 5.8.x};
+
+# Older versions of IPC::System::Simple don't support all the
+# features we need.
+
+use constant MIN_IPC_SYS_SIMPLE_VER => 0.12;
+
+our $VERSION = '2.29'; # VERSION: Generated by DZP::OurPkg::Version
+
+our $Debug ||= 0;
+
+# EWOULDBLOCK values for systems that don't supply their own.
+# Even though this is defined with our, that's to help our
+# test code.  Please don't rely upon this variable existing in
+# the future.
+
+our %_EWOULDBLOCK = (
+    MSWin32 => 33,
+);
+
+$Carp::CarpInternal{'Fatal'} = 1;
+$Carp::CarpInternal{'autodie'} = 1;
+$Carp::CarpInternal{'autodie::exception'} = 1;
+
+# the linux parisc port has separate EAGAIN and EWOULDBLOCK,
+# and the kernel returns EAGAIN
+my $try_EAGAIN = ($^O eq 'linux' and $Config{archname} =~ /hppa|parisc/) ? 1 : 0;
+
+# We have some tags that can be passed in for use with import.
+# These are all assumed to be CORE::
+
+my %TAGS = (
+    ':io'      => [qw(:dbm :file :filesys :ipc :socket
+                       read seek sysread syswrite sysseek )],
+    ':dbm'     => [qw(dbmopen dbmclose)],
+    ':file'    => [qw(open close flock sysopen fcntl binmode
+                     ioctl truncate)],
+    ':filesys' => [qw(opendir closedir chdir link unlink rename mkdir
+                      symlink rmdir readlink chmod chown utime)],
+    ':ipc'     => [qw(:msg :semaphore :shm pipe kill)],
+    ':msg'     => [qw(msgctl msgget msgrcv msgsnd)],
+    ':threads' => [qw(fork)],
+    ':semaphore'=>[qw(semctl semget semop)],
+    ':shm'     => [qw(shmctl shmget shmread)],
+    ':system'  => [qw(system exec)],
+
+    # Can we use qw(getpeername getsockname)? What do they do on failure?
+    # TODO - Can socket return false?
+    ':socket'  => [qw(accept bind connect getsockopt listen recv send
+                   setsockopt shutdown socketpair)],
+
+    # Our defaults don't include system(), because it depends upon
+    # an optional module, and it breaks the exotic form.
+    #
+    # This *may* change in the future.  I'd love IPC::System::Simple
+    # to be a dependency rather than a recommendation, and hence for
+    # system() to be autodying by default.
+
+    ':default' => [qw(:io :threads)],
+
+    # Everything in v2.07 and before. This was :default less chmod and chown
+    ':v207'    => [qw(:threads :dbm :socket read seek sysread
+                   syswrite sysseek open close flock sysopen fcntl fileno
+                   binmode ioctl truncate opendir closedir chdir link unlink
+                   rename mkdir symlink rmdir readlink umask
+                   :msg :semaphore :shm pipe)],
+
+    # Chmod was added in 2.13
+    ':v213'    => [qw(:v207 chmod)],
+
+    # chown, utime, kill were added in 2.14
+    ':v214'    => [qw(:v213 chown utime kill)],
+
+    # umask was removed in 2.26
+    ':v225' => [qw(:io :threads umask fileno)],
+
+    # Version specific tags.  These allow someone to specify
+    # use autodie qw(:1.994) and know exactly what they'll get.
+
+    ':1.994' => [qw(:v207)],
+    ':1.995' => [qw(:v207)],
+    ':1.996' => [qw(:v207)],
+    ':1.997' => [qw(:v207)],
+    ':1.998' => [qw(:v207)],
+    ':1.999' => [qw(:v207)],
+    ':1.999_01' => [qw(:v207)],
+    ':2.00'  => [qw(:v207)],
+    ':2.01'  => [qw(:v207)],
+    ':2.02'  => [qw(:v207)],
+    ':2.03'  => [qw(:v207)],
+    ':2.04'  => [qw(:v207)],
+    ':2.05'  => [qw(:v207)],
+    ':2.06'  => [qw(:v207)],
+    ':2.06_01' => [qw(:v207)],
+    ':2.07'  => [qw(:v207)],     # Last release without chmod
+    ':2.08'  => [qw(:v213)],
+    ':2.09'  => [qw(:v213)],
+    ':2.10'  => [qw(:v213)],
+    ':2.11'  => [qw(:v213)],
+    ':2.12'  => [qw(:v213)],
+    ':2.13'  => [qw(:v213)],     # Last release without chown
+    ':2.14'  => [qw(:v225)],
+    ':2.15'  => [qw(:v225)],
+    ':2.16'  => [qw(:v225)],
+    ':2.17'  => [qw(:v225)],
+    ':2.18'  => [qw(:v225)],
+    ':2.19'  => [qw(:v225)],
+    ':2.20'  => [qw(:v225)],
+    ':2.21'  => [qw(:v225)],
+    ':2.22'  => [qw(:v225)],
+    ':2.23'  => [qw(:v225)],
+    ':2.24'  => [qw(:v225)],
+    ':2.25'  => [qw(:v225)],
+    ':2.26'  => [qw(:default)],
+    ':2.27'  => [qw(:default)],
+    ':2.28'  => [qw(:default)],
+    ':2.29'  => [qw(:default)],
+);
+
+
+{
+    # Expand :all immediately by expanding and flattening all tags.
+    # _expand_tag is not really optimised for expanding the ":all"
+    # case (i.e. keys %TAGS, or values %TAGS for that matter), so we
+    # just do it here.
+    #
+    # NB: The %tag_cache/_expand_tag relies on $TAGS{':all'} being
+    # pre-expanded.
+    my %seen;
+    my @all = grep {
+        !/^:/ && !$seen{$_}++
+    } map { @{$_} } values %TAGS;
+    $TAGS{':all'} = \@all;
+}
+
+# This hash contains subroutines for which we should
+# subroutine() // die() rather than subroutine() || die()
+
+my %Use_defined_or;
+
+# CORE::open returns undef on failure.  It can legitimately return
+# 0 on success, eg: open(my $fh, '-|') || exec(...);
+
+@Use_defined_or{qw(
+    CORE::fork
+    CORE::recv
+    CORE::send
+    CORE::open
+    CORE::fileno
+    CORE::read
+    CORE::readlink
+    CORE::sysread
+    CORE::syswrite
+    CORE::sysseek
+    CORE::umask
+)} = ();
+
+# Some functions can return true because they changed *some* things, but
+# not all of them.  This is a list of offending functions, and how many
+# items to subtract from @_ to determine the "success" value they return.
+
+my %Returns_num_things_changed = (
+    'CORE::chmod'  => 1,
+    'CORE::chown'  => 2,
+    'CORE::kill'   => 1,  # TODO: Could this return anything on negative args?
+    'CORE::unlink' => 0,
+    'CORE::utime'  => 2,
+);
+
+# Optional actions to take on the return value before returning it.
+
+my %Retval_action = (
+    "CORE::open"        => q{
+
+    # apply the open pragma from our caller
+    if( defined $retval && !( @_ >= 3 && $_[1] =~ /:/ )) {
+        # Get the caller's hint hash
+        my $hints = (caller 0)[10];
+
+        # Decide if we're reading or writing and apply the appropriate encoding
+        # These keys are undocumented.
+        # Match what PerlIO_context_layers() does.  Read gets the read layer,
+        # everything else gets the write layer.
+        my $encoding = $_[1] =~ /^\+?>/ ? $hints->{"open>"} : $hints->{"open<"};
+
+        # Apply the encoding, if any.
+        if( $encoding ) {
+            binmode $_[0], $encoding;
+        }
+    }
+
+},
+    "CORE::sysopen"     => q{
+
+    # apply the open pragma from our caller
+    if( defined $retval ) {
+        # Get the caller's hint hash
+        my $hints = (caller 0)[10];
+
+        require Fcntl;
+
+        # Decide if we're reading or writing and apply the appropriate encoding.
+        # Match what PerlIO_context_layers() does.  Read gets the read layer,
+        # everything else gets the write layer.
+        my $open_read_only = !($_[2] ^ Fcntl::O_RDONLY());
+        my $encoding = $open_read_only ? $hints->{"open<"} : $hints->{"open>"};
+
+        # Apply the encoding, if any.
+        if( $encoding ) {
+            binmode $_[0], $encoding;
+        }
+    }
+
+},
+);
+
+my %reusable_builtins;
+
+# "Wait!" I hear you cry, "truncate() and chdir() are not reuseable! They can
+# take file and directory handles, which are package depedent."
+#
+# You would be correct, except that prototype() returns signatures which don't
+# allow for passing of globs, and nobody's complained about that. You can
+# still use \*FILEHANDLE, but that results in a reference coming through,
+# and it's already pointing to the filehandle in the caller's packge, so
+# it's all okay.
+
+@reusable_builtins{qw(
+    CORE::fork
+    CORE::kill
+    CORE::truncate
+    CORE::chdir
+    CORE::link
+    CORE::unlink
+    CORE::rename
+    CORE::mkdir
+    CORE::symlink
+    CORE::rmdir
+    CORE::readlink
+    CORE::umask
+    CORE::chmod
+    CORE::chown
+    CORE::utime
+    CORE::msgctl
+    CORE::msgget
+    CORE::msgrcv
+    CORE::msgsnd
+    CORE::semctl
+    CORE::semget
+    CORE::semop
+    CORE::shmctl
+    CORE::shmget
+    CORE::shmread
+    CORE::exec
+    CORE::system
+)} = ();
+
+# Cached_fatalised_sub caches the various versions of our
+# fatalised subs as they're produced.  This means we don't
+# have to build our own replacement of CORE::open and friends
+# for every single package that wants to use them.
+
+my %Cached_fatalised_sub = ();
+
+# Every time we're called with package scope, we record the subroutine
+# (including package or CORE::) in %Package_Fatal.  This allows us
+# to detect illegal combinations of autodie and Fatal, and makes sure
+# we don't accidently make a Fatal function autodying (which isn't
+# very useful).
+
+my %Package_Fatal = ();
+
+# The first time we're called with a user-sub, we cache it here.
+# In the case of a "no autodie ..." we put back the cached copy.
+
+my %Original_user_sub = ();
+
+# Is_fatalised_sub simply records a big map of fatalised subroutine
+# refs.  It means we can avoid repeating work, or fatalising something
+# we've already processed.
+
+my  %Is_fatalised_sub = ();
+tie %Is_fatalised_sub, 'Tie::RefHash';
+
+# Our trampoline cache allows us to cache trampolines which are used to
+# bounce leaked wrapped core subroutines to their actual core counterparts.
+
+my %Trampoline_cache;
+
+# A cache mapping "CORE::<name>" to their prototype.  Turns out that if
+# you "use autodie;" enough times, this pays off.
+my %CORE_prototype_cache;
+
+# We use our package in a few hash-keys.  Having it in a scalar is
+# convenient.  The "guard $PACKAGE" string is used as a key when
+# setting up lexical guards.
+
+my $PACKAGE       = __PACKAGE__;
+my $NO_PACKAGE    = "no $PACKAGE";      # Used to detect 'no autodie'
+
+# Here's where all the magic happens when someone write 'use Fatal'
+# or 'use autodie'.
+
+sub import {
+    my $class        = shift(@_);
+    my @original_args = @_;
+    my $void         = 0;
+    my $lexical      = 0;
+    my $insist_hints = 0;
+
+    my ($pkg, $filename) = caller();
+
+    @_ or return;   # 'use Fatal' is a no-op.
+
+    # If we see the :lexical flag, then _all_ arguments are
+    # changed lexically
+
+    if ($_[0] eq LEXICAL_TAG) {
+        $lexical = 1;
+        shift @_;
+
+        # It is currently an implementation detail that autodie is
+        # implemented as "use Fatal qw(:lexical ...)".  For backwards
+        # compatibility, we allow it - but not without a warning.
+        # NB: Optimise for autodie as it is quite possibly the most
+        # freq. consumer of this case.
+        if ($class ne 'autodie' and not $class->isa('autodie')) {
+            if ($class eq 'Fatal') {
+                warnings::warnif(
+                    'deprecated',
+                    '[deprecated] The "use Fatal qw(:lexical ...)" '
+                    . 'should be replaced by "use autodie qw(...)". '
+                    . 'Seen' # warnif appends " at <...>"
+                    );
+            } else {
+                warnings::warnif(
+                    'deprecated',
+                    "[deprecated] The class/Package $class is a "
+                    . 'subclass of Fatal and used the :lexical. '
+                    . 'If $class provides lexical error checking '
+                    . 'it should extend autodie instead of using :lexical. '
+                    . 'Seen' # warnif appends " at <...>"
+                    );
+            }
+            # "Promote" the call to autodie from here on.  This is
+            # already mostly the case (e.g. use Fatal qw(:lexical ...)
+            # would throw autodie::exceptions on error rather than the
+            # Fatal errors.
+            $class = 'autodie';
+            # This requires that autodie is in fact loaded; otherwise
+            # the "$class->X()" method calls below will explode.
+            require autodie;
+            # TODO, when autodie and Fatal are cleanly separated, we
+            # should go a "goto &autodie::import" here instead.
+        }
+
+        # If we see no arguments and :lexical, we assume they
+        # wanted ':default'.
+
+        if (@_ == 0) {
+            push(@_, ':default');
+        }
+
+        # Don't allow :lexical with :void, it's needlessly confusing.
+        if ( grep { $_ eq VOID_TAG } @_ ) {
+            croak(ERROR_VOID_LEX);
+        }
+    }
+
+    if ( grep { $_ eq LEXICAL_TAG } @_ ) {
+        # If we see the lexical tag as the non-first argument, complain.
+        croak(ERROR_LEX_FIRST);
+    }
+
+    my @fatalise_these =  @_;
+
+    # These subs will get unloaded at the end of lexical scope.
+    my %unload_later;
+    # These subs are to be installed into callers namespace.
+    my %install_subs;
+
+    # Use _translate_import_args to expand tags for us.  It will
+    # pass-through unknown tags (i.e. we have to manually handle
+    # VOID_TAG).
+    #
+    # NB: _translate_import_args re-orders everything for us, so
+    # we don't have to worry about stuff like:
+    #
+    #     :default :void :io
+    #
+    # That will (correctly) translated into
+    #
+    #     expand(:defaults-without-io) :void :io
+    #
+    # by _translate_import_args.
+    for my $func ($class->_translate_import_args(@fatalise_these)) {
+
+        if ($func eq VOID_TAG) {
+
+            # When we see :void, set the void flag.
+            $void = 1;
+
+        } elsif ($func eq INSIST_TAG) {
+
+            $insist_hints = 1;
+
+        } else {
+
+            # Otherwise, fatalise it.
+
+            # Check to see if there's an insist flag at the front.
+            # If so, remove it, and insist we have hints for this sub.
+            my $insist_this = $insist_hints;
+
+            if (substr($func, 0, 1) eq '!') {
+                $func = substr($func, 1);
+                $insist_this = 1;
+            }
+
+            # We're going to make a subroutine fatalistic.
+            # However if we're being invoked with 'use Fatal qw(x)'
+            # and we've already been called with 'no autodie qw(x)'
+            # in the same scope, we consider this to be an error.
+            # Mixing Fatal and autodie effects was considered to be
+            # needlessly confusing on p5p.
+
+            my $sub = $func;
+            $sub = "${pkg}::$sub" unless $sub =~ /::/;
+
+            # If we're being called as Fatal, and we've previously
+            # had a 'no X' in scope for the subroutine, then complain
+            # bitterly.
+
+            if (! $lexical and $^H{$NO_PACKAGE}{$sub}) {
+                 croak(sprintf(ERROR_FATAL_CONFLICT, $func, $func));
+            }
+
+            # We're not being used in a confusing way, so make
+            # the sub fatal.  Note that _make_fatal returns the
+            # old (original) version of the sub, or undef for
+            # built-ins.
+
+            my $sub_ref = $class->_make_fatal(
+                $func, $pkg, $void, $lexical, $filename,
+                $insist_this, \%install_subs,
+            );
+
+            $Original_user_sub{$sub} ||= $sub_ref;
+
+            # If we're making lexical changes, we need to arrange
+            # for them to be cleaned at the end of our scope, so
+            # record them here.
+
+            $unload_later{$func} = $sub_ref if $lexical;
+        }
+    }
+
+    install_subs($pkg, \%install_subs);
+
+    if ($lexical) {
+
+        # Dark magic to have autodie work under 5.8
+        # Copied from namespace::clean, that copied it from
+        # autobox, that found it on an ancient scroll written
+        # in blood.
+
+        # This magic bit causes %^H to be lexically scoped.
+
+        $^H |= 0x020000;
+
+        # Our package guard gets invoked when we leave our lexical
+        # scope.
+
+        on_end_of_compile_scope(sub {
+            install_subs($pkg, \%unload_later);
+        });
+
+        # To allow others to determine when autodie was in scope,
+        # and with what arguments, we also set a %^H hint which
+        # is how we were called.
+
+        # This feature should be considered EXPERIMENTAL, and
+        # may change without notice.  Please e-mail pjf@cpan.org
+        # if you're actually using it.
+
+        $^H{autodie} = "$PACKAGE @original_args";
+
+    }
+
+    return;
+
+}
+
+sub unimport {
+    my $class = shift;
+
+    # Calling "no Fatal" must start with ":lexical"
+    if ($_[0] ne LEXICAL_TAG) {
+        croak(sprintf(ERROR_NO_LEX,$class));
+    }
+
+    shift @_;   # Remove :lexical
+
+    my $pkg = (caller)[0];
+
+    # If we've been called with arguments, then the developer
+    # has explicitly stated 'no autodie qw(blah)',
+    # in which case, we disable Fatalistic behaviour for 'blah'.
+
+    my @unimport_these = @_ ? @_ : ':all';
+    my (%uninstall_subs, %reinstall_subs);
+
+    for my $symbol ($class->_translate_import_args(@unimport_these)) {
+
+        my $sub = $symbol;
+        $sub = "${pkg}::$sub" unless $sub =~ /::/;
+
+        # If 'blah' was already enabled with Fatal (which has package
+        # scope) then, this is considered an error.
+
+        if (exists $Package_Fatal{$sub}) {
+            croak(sprintf(ERROR_AUTODIE_CONFLICT,$symbol,$symbol));
+        }
+
+        # Record 'no autodie qw($sub)' as being in effect.
+        # This is to catch conflicting semantics elsewhere
+        # (eg, mixing Fatal with no autodie)
+
+        $^H{$NO_PACKAGE}{$sub} = 1;
+        # Record the current sub to be reinstalled at end of scope
+        # and then restore the original (can be undef for "CORE::"
+        # subs)
+        $reinstall_subs{$symbol} = \&$sub;
+        $uninstall_subs{$symbol} = $Original_user_sub{$sub};
+
+    }
+
+    install_subs($pkg, \%uninstall_subs);
+    on_end_of_compile_scope(sub {
+        install_subs($pkg, \%reinstall_subs);
+    });
+
+    return;
+
+}
+
+sub _translate_import_args {
+    my ($class, @args) = @_;
+    my @result;
+    my %seen;
+
+    if (@args < 2) {
+        # Optimize for this case, as it is fairly common.  (e.g. use
+        # autodie; or use autodie qw(:all); both trigger this).
+        return unless @args;
+
+        # Not a (known) tag, pass through.
+        return @args unless exists($TAGS{$args[0]});
+
+        # Strip "CORE::" from all elements in the list as import and
+        # unimport does not handle the "CORE::" prefix too well.
+        #
+        # NB: we use substr as it is faster than s/^CORE::// and
+        # it does not change the elements.
+        return map { substr($_, 6) } @{ $class->_expand_tag($args[0]) };
+    }
+
+    # We want to translate
+    #
+    #     :default :void :io
+    #
+    # into (pseudo-ish):
+    #
+    #     expanded(:threads) :void expanded(:io)
+    #
+    # We accomplish this by "reverse, expand + filter, reverse".
+    for my $a (reverse(@args)) {
+        if (exists $TAGS{$a}) {
+            my $expanded = $class->_expand_tag($a);
+            push(@result,
+                 # Remove duplicates after ...
+                 grep { !$seen{$_}++ }
+                 # we have stripped CORE:: (see above)
+                 map { substr($_, 6) }
+                 # We take the elements in reverse order
+                 # (as @result be reversed later).
+                 reverse(@{$expanded}));
+        } else {
+            # pass through - no filtering here for tags.
+            #
+            # The reason for not filtering tags cases like:
+            #
+            #    ":default :void :io :void :threads"
+            #
+            # As we have reversed args, we see this as:
+            #
+            #    ":threads :void :io :void* :default*"
+            #
+            # (Entries marked with "*" will be filtered out completely).  When
+            # reversed again, this will be:
+            #
+            #    ":io :void :threads"
+            #
+            # But we would rather want it to be:
+            #
+            #    ":void :io :threads" or ":void :io :void :threads"
+            #
+
+            my $letter = substr($a, 0, 1);
+            if ($letter ne ':' && $a ne INSIST_TAG) {
+                next if $seen{$a}++;
+                if ($letter eq '!' and $seen{substr($a, 1)}++) {
+                    my $name = substr($a, 1);
+                    # People are being silly and doing:
+                    #
+                    #    use autodie qw(!a a);
+                    #
+                    # Enjoy this little O(n) clean up...
+                    @result = grep { $_ ne $name } @result;
+                }
+            }
+            push @result, $a;
+        }
+    }
+    # Reverse the result to restore the input order
+    return reverse(@result);
+}
+
+
+# NB: Perl::Critic's dump-autodie-tag-contents depends upon this
+# continuing to work.
+
+{
+    # We assume that $TAGS{':all'} is pre-expanded and just fill it in
+    # from the beginning.
+    my %tag_cache = (
+        'all' => [map { "CORE::$_" } @{$TAGS{':all'}}],
+    );
+
+    # Expand a given tag (e.g. ":default") into a listref containing
+    # all sub names covered by that tag.  Each sub is returned as
+    # "CORE::<name>" (i.e. "CORE::open" rather than "open").
+    #
+    # NB: the listref must not be modified.
+    sub _expand_tag {
+        my ($class, $tag) = @_;
+
+        if (my $cached = $tag_cache{$tag}) {
+            return $cached;
+        }
+
+        if (not exists $TAGS{$tag}) {
+            croak "Invalid exception class $tag";
+        }
+
+        my @to_process = @{$TAGS{$tag}};
+
+        # If the tag is basically an alias of another tag (like e.g. ":2.11"),
+        # then just share the resulting reference with the original content (so
+        # we only pay for an extra reference for the alias memory-wise).
+        if (@to_process == 1 && substr($to_process[0], 0, 1) eq ':') {
+            # We could do this for "non-tags" as well, but that only occurs
+            # once at the time of writing (":threads" => ["fork"]), so
+            # probably not worth it.
+            my $expanded = $class->_expand_tag($to_process[0]);
+            $tag_cache{$tag} = $expanded;
+            return $expanded;
+        }
+
+        my %seen = ();
+        my @taglist = ();
+
+        for my $item (@to_process) {
+            # substr is more efficient than m/^:/ for stuff like this,
+            # at the price of being a bit more verbose/low-level.
+            if (substr($item, 0, 1) eq ':') {
+                # Use recursion here to ensure we expand a tag at most once.
+
+                my $expanded = $class->_expand_tag($item);
+                push @taglist, grep { !$seen{$_}++ } @{$expanded};
+            } else {
+                my $subname = "CORE::$item";
+                push @taglist, $subname
+                    unless $seen{$subname}++;
+            }
+        }
+
+        $tag_cache{$tag} = \@taglist;
+
+        return \@taglist;
+
+    }
+
+}
+
+# This is a backwards compatible version of _write_invocation.  It's
+# recommended you don't use it.
+
+sub write_invocation {
+    my ($core, $call, $name, $void, @args) = @_;
+
+    return Fatal->_write_invocation(
+        $core, $call, $name, $void,
+        0,      # Lexical flag
+        undef,  # Sub, unused in legacy mode
+        undef,  # Subref, unused in legacy mode.
+        @args
+    );
+}
+
+# This version of _write_invocation is used internally.  It's not
+# recommended you call it from external code, as the interface WILL
+# change in the future.
+
+sub _write_invocation {
+
+    my ($class, $core, $call, $name, $void, $lexical, $sub, $sref, @argvs) = @_;
+
+    if (@argvs == 1) {        # No optional arguments
+
+        my @argv = @{$argvs[0]};
+        shift @argv;
+
+        return $class->_one_invocation($core,$call,$name,$void,$sub,! $lexical, $sref, @argv);
+
+    } else {
+        my $else = "\t";
+        my (@out, @argv, $n);
+        while (@argvs) {
+            @argv = @{shift @argvs};
+            $n = shift @argv;
+
+            my $condition = "\@_ == $n";
+
+            if (@argv and $argv[-1] =~ /[#@]_/) {
+                # This argv ends with '@' in the prototype, so it matches
+                # any number of args >= the number of expressions in the
+                # argv.
+                $condition = "\@_ >= $n";
+            }
+
+            push @out, "${else}if ($condition) {\n";
+
+            $else = "\t} els";
+
+        push @out, $class->_one_invocation($core,$call,$name,$void,$sub,! $lexical, $sref, @argv);
+        }
+        push @out, qq[
+            }
+            die "Internal error: $name(\@_): Do not expect to get ", scalar(\@_), " arguments";
+    ];
+
+        return join '', @out;
+    }
+}
+
+
+# This is a slim interface to ensure backward compatibility with
+# anyone doing very foolish things with old versions of Fatal.
+
+sub one_invocation {
+    my ($core, $call, $name, $void, @argv) = @_;
+
+    return Fatal->_one_invocation(
+        $core, $call, $name, $void,
+        undef,   # Sub.  Unused in back-compat mode.
+        1,       # Back-compat flag
+        undef,   # Subref, unused in back-compat mode.
+        @argv
+    );
+
+}
+
+# This is the internal interface that generates code.
+# NOTE: This interface WILL change in the future.  Please do not
+# call this subroutine directly.
+
+# TODO: Whatever's calling this code has already looked up hints.  Pass
+# them in, rather than look them up a second time.
+
+sub _one_invocation {
+    my ($class, $core, $call, $name, $void, $sub, $back_compat, $sref, @argv) = @_;
+
+
+    # If someone is calling us directly (a child class perhaps?) then
+    # they could try to mix void without enabling backwards
+    # compatibility.  We just don't support this at all, so we gripe
+    # about it rather than doing something unwise.
+
+    if ($void and not $back_compat) {
+        Carp::confess("Internal error: :void mode not supported with $class");
+    }
+
+    # @argv only contains the results of the in-built prototype
+    # function, and is therefore safe to interpolate in the
+    # code generators below.
+
+    # TODO - The following clobbers context, but that's what the
+    #        old Fatal did.  Do we care?
+
+    if ($back_compat) {
+
+        # Use Fatal qw(system) will never be supported.  It generated
+        # a compile-time error with legacy Fatal, and there's no reason
+        # to support it when autodie does a better job.
+
+        if ($call eq 'CORE::system') {
+            return q{
+                croak("UNIMPLEMENTED: use Fatal qw(system) not supported.");
+            };
+        }
+
+        local $" = ', ';
+
+        if ($void) {
+            return qq/return (defined wantarray)?$call(@argv):
+                   $call(@argv) || Carp::croak("Can't $name(\@_)/ .
+                   ($core ? ': $!' : ', \$! is \"$!\"') . '")'
+        } else {
+            return qq{return $call(@argv) || Carp::croak("Can't $name(\@_)} .
+                   ($core ? ': $!' : ', \$! is \"$!\"') . '")';
+        }
+    }
+
+    # The name of our original function is:
+    #   $call if the function is CORE
+    #   $sub if our function is non-CORE
+
+    # The reason for this is that $call is what we're actually
+    # calling.  For our core functions, this is always
+    # CORE::something.  However for user-defined subs, we're about to
+    # replace whatever it is that we're calling; as such, we actually
+    # calling a subroutine ref.
+
+    my $human_sub_name = $core ? $call : $sub;
+
+    # Should we be testing to see if our result is defined, or
+    # just true?
+
+    my $use_defined_or;
+
+    my $hints;      # All user-sub hints, including list hints.
+
+    if ( $core ) {
+
+        # Core hints are built into autodie.
+
+        $use_defined_or = exists ( $Use_defined_or{$call} );
+
+    }
+    else {
+
+        # User sub hints are looked up using autodie::hints,
+        # since users may wish to add their own hints.
+
+        require autodie::hints;
+
+        $hints = autodie::hints->get_hints_for( $sref );
+
+        # We'll look up the sub's fullname.  This means we
+        # get better reports of where it came from in our
+        # error messages, rather than what imported it.
+
+        $human_sub_name = autodie::hints->sub_fullname( $sref );
+
+    }
+
+    # Checks for special core subs.
+
+    if ($call eq 'CORE::system') {
+
+        # Leverage IPC::System::Simple if we're making an autodying
+        # system.
+
+        local $" = ", ";
+
+        # We need to stash $@ into $E, rather than using
+        # local $@ for the whole sub.  If we don't then
+        # any exceptions from internal errors in autodie/Fatal
+        # will mysteriously disappear before propagating
+        # upwards.
+
+        return qq{
+            my \$retval;
+            my \$E;
+
+
+            {
+                local \$@;
+
+                eval {
+                    \$retval = IPC::System::Simple::system(@argv);
+                };
+
+                \$E = \$@;
+            }
+
+            if (\$E) {
+
+                # TODO - This can't be overridden in child
+                # classes!
+
+                die autodie::exception::system->new(
+                    function => q{CORE::system}, args => [ @argv ],
+                    message => "\$E", errno => \$!,
+                );
+            }
+
+            return \$retval;
+        };
+
+    }
+
+    local $" = ', ';
+
+    # If we're going to throw an exception, here's the code to use.
+    my $die = qq{
+        die $class->throw(
+            function => q{$human_sub_name}, args => [ @argv ],
+            pragma => q{$class}, errno => \$!,
+            context => \$context, return => \$retval,
+            eval_error => \$@
+        )
+    };
+
+    if ($call eq 'CORE::flock') {
+
+        # flock needs special treatment.  When it fails with
+        # LOCK_UN and EWOULDBLOCK, then it's not really fatal, it just
+        # means we couldn't get the lock right now.
+
+        require POSIX;      # For POSIX::EWOULDBLOCK
+
+        local $@;   # Don't blat anyone else's $@.
+
+        # Ensure that our vendor supports EWOULDBLOCK.  If they
+        # don't (eg, Windows), then we use known values for its
+        # equivalent on other systems.
+
+        my $EWOULDBLOCK = eval { POSIX::EWOULDBLOCK(); }
+                          || $_EWOULDBLOCK{$^O}
+                          || _autocroak("Internal error - can't overload flock - EWOULDBLOCK not defined on this system.");
+        my $EAGAIN = $EWOULDBLOCK;
+        if ($try_EAGAIN) {
+            $EAGAIN = eval { POSIX::EAGAIN(); }
+                          || _autocroak("Internal error - can't overload flock - EAGAIN not defined on this system.");
+        }
+
+        require Fcntl;      # For Fcntl::LOCK_NB
+
+        return qq{
+
+            my \$context = wantarray() ? "list" : "scalar";
+
+            # Try to flock.  If successful, return it immediately.
+
+            my \$retval = $call(@argv);
+            return \$retval if \$retval;
+
+            # If we failed, but we're using LOCK_NB and
+            # returned EWOULDBLOCK, it's not a real error.
+
+            if (\$_[1] & Fcntl::LOCK_NB() and
+                (\$! == $EWOULDBLOCK or
+                ($try_EAGAIN and \$! == $EAGAIN ))) {
+                return \$retval;
+            }
+
+            # Otherwise, we failed.  Die noisily.
+
+            $die;
+
+        };
+    }
+
+    if (exists $Returns_num_things_changed{$call}) {
+
+        # Some things return the number of things changed (like
+        # chown, kill, chmod, etc). We only consider these successful
+        # if *all* the things are changed.
+
+        return qq[
+            my \$num_things = \@_ - $Returns_num_things_changed{$call};
+            my \$retval = $call(@argv);
+
+            if (\$retval != \$num_things) {
+
+                # We need \$context to throw an exception.
+                # It's *always* set to scalar, because that's how
+                # autodie calls chown() above.
+
+                my \$context = "scalar";
+                $die;
+            }
+
+            return \$retval;
+        ];
+    }
+
+    # AFAIK everything that can be given an unopned filehandle
+    # will fail if it tries to use it, so we don't really need
+    # the 'unopened' warning class here.  Especially since they
+    # then report the wrong line number.
+
+    # Other warnings are disabled because they produce excessive
+    # complaints from smart-match hints under 5.10.1.
+
+    my $code = qq[
+        no warnings qw(unopened uninitialized numeric);
+        no if \$\] >= 5.017011, warnings => "experimental::smartmatch";
+
+        if (wantarray) {
+            my \@results = $call(@argv);
+            my \$retval  = \\\@results;
+            my \$context = "list";
+
+    ];
+
+    my $retval_action = $Retval_action{$call} || '';
+
+    if ( $hints and ( ref($hints->{list} ) || "" ) eq 'CODE' ) {
+
+        # NB: Subroutine hints are passed as a full list.
+        # This differs from the 5.10.0 smart-match behaviour,
+        # but means that context unaware subroutines can use
+        # the same hints in both list and scalar context.
+
+        $code .= qq{
+            if ( \$hints->{list}->(\@results) ) { $die };
+        };
+    }
+    elsif ( PERL510 and $hints ) {
+        $code .= qq{
+            if ( \@results ~~ \$hints->{list} ) { $die };
+        };
+    }
+    elsif ( $hints ) {
+        croak sprintf(ERROR_58_HINTS, 'list', $sub);
+    }
+    else {
+        $code .= qq{
+            # An empty list, or a single undef is failure
+            if (! \@results or (\@results == 1 and ! defined \$results[0])) {
+                $die;
+            }
+        }
+    }
+
+    # Tidy up the end of our wantarray call.
+
+    $code .= qq[
+            return \@results;
+        }
+    ];
+
+
+    # Otherwise, we're in scalar context.
+    # We're never in a void context, since we have to look
+    # at the result.
+
+    $code .= qq{
+        my \$retval  = $call(@argv);
+        my \$context = "scalar";
+    };
+
+    if ( $hints and ( ref($hints->{scalar} ) || "" ) eq 'CODE' ) {
+
+        # We always call code refs directly, since that always
+        # works in 5.8.x, and always works in 5.10.1
+
+        return $code .= qq{
+            if ( \$hints->{scalar}->(\$retval) ) { $die };
+            $retval_action
+            return \$retval;
+        };
+
+    }
+    elsif (PERL510 and $hints) {
+        return $code . qq{
+
+            if ( \$retval ~~ \$hints->{scalar} ) { $die };
+            $retval_action
+            return \$retval;
+        };
+    }
+    elsif ( $hints ) {
+        croak sprintf(ERROR_58_HINTS, 'scalar', $sub);
+    }
+
+    return $code .
+    ( $use_defined_or ? qq{
+
+        $die if not defined \$retval;
+        $retval_action
+        return \$retval;
+
+    } : qq{
+
+        $retval_action
+        return \$retval || $die;
+
+    } ) ;
+
+}
+
+# This returns the old copy of the sub, so we can
+# put it back at end of scope.
+
+# TODO : Check to make sure prototypes are restored correctly.
+
+# TODO: Taking a huge list of arguments is awful.  Rewriting to
+#       take a hash would be lovely.
+
+# TODO - BACKCOMPAT - This is not yet compatible with 5.10.0
+
+sub _make_fatal {
+    my($class, $sub, $pkg, $void, $lexical, $filename, $insist, $install_subs) = @_;
+    my($code, $sref, $proto, $core, $call, $hints, $cache, $cache_type);
+    my $ini = $sub;
+    my $name = $sub;
+
+
+    if (index($sub, '::') == -1) {
+        $sub = "${pkg}::$sub";
+        if (substr($name, 0, 1) eq '&') {
+            $name = substr($name, 1);
+        }
+    } else {
+        $name =~ s/.*:://;
+    }
+
+
+    # Figure if we're using lexical or package semantics and
+    # twiddle the appropriate bits.
+
+    if (not $lexical) {
+        $Package_Fatal{$sub} = 1;
+    }
+
+    # TODO - We *should* be able to do skipping, since we know when
+    # we've lexicalised / unlexicalised a subroutine.
+
+
+    warn  "# _make_fatal: sub=$sub pkg=$pkg name=$name void=$void\n" if $Debug;
+    croak(sprintf(ERROR_BADNAME, $class, $name)) unless $name =~ /^\w+$/;
+
+    if (defined(&$sub)) {   # user subroutine
+
+        # NOTE: Previously we would localise $@ at this point, so
+        # the following calls to eval {} wouldn't interfere with anything
+        # that's already in $@.  Unfortunately, it would also stop
+        # any of our croaks from triggering(!), which is even worse.
+
+        # This could be something that we've fatalised that
+        # was in core.
+
+	# Store the current sub in case we need to restore it.
+	$sref = \&$sub;
+
+        if ( $Package_Fatal{$sub} and exists($CORE_prototype_cache{"CORE::$name"})) {
+
+            # Something we previously made Fatal that was core.
+            # This is safe to replace with an autodying to core
+            # version.
+
+            $core  = 1;
+            $call  = "CORE::$name";
+            $proto = $CORE_prototype_cache{$call};
+
+            # We return our $sref from this subroutine later
+            # on, indicating this subroutine should be placed
+            # back when we're finished.
+
+
+
+        } else {
+
+            # If this is something we've already fatalised or played with,
+            # then look-up the name of the original sub for the rest of
+            # our processing.
+
+            if (exists($Is_fatalised_sub{$sref})) {
+                # $sub is one of our wrappers around a CORE sub or a
+                # user sub.  Instead of wrapping our wrapper, lets just
+                # generate a new wrapper for the original sub.
+                # - NB: the current wrapper might be for a different class
+                #   than the one we are generating now (e.g. some limited
+                #   mixing between use Fatal + use autodie can occur).
+                # - Even for nested autodie, we need this as the leak guards
+                #   differ.
+                my $s = $Is_fatalised_sub{$sref};
+                if (defined($s)) {
+                    # It is a wrapper for a user sub
+                    $sub = $s;
+                } else {
+                    # It is a wrapper for a CORE:: sub
+                    $core = 1;
+                    $call = "CORE::$name";
+                    $proto = $CORE_prototype_cache{$call};
+                }
+            }
+
+            # A regular user sub, or a user sub wrapping a
+            # core sub.
+
+            if (!$core) {
+                # A non-CORE sub might have hints and such...
+                $proto = prototype($sref);
+                $call = '&$sref';
+                require autodie::hints;
+
+                $hints = autodie::hints->get_hints_for( $sref );
+
+                # If we've insisted on hints, but don't have them, then
+                # bail out!
+
+                if ($insist and not $hints) {
+                    croak(sprintf(ERROR_NOHINTS, $name));
+                }
+
+                # Otherwise, use the default hints if we don't have
+                # any.
+
+                $hints ||= autodie::hints::DEFAULT_HINTS();
+            }
+
+        }
+
+    } elsif ($sub eq $ini && $sub !~ /^CORE::GLOBAL::/) {
+        # Stray user subroutine
+        croak(sprintf(ERROR_NOTSUB,$sub));
+
+    } elsif ($name eq 'system') {
+
+        # If we're fatalising system, then we need to load
+        # helper code.
+
+        # The business with $E is to avoid clobbering our caller's
+        # $@, and to avoid $@ being localised when we croak.
+
+        my $E;
+
+        {
+            local $@;
+
+            eval {
+                require IPC::System::Simple; # Only load it if we need it.
+                require autodie::exception::system;
+            };
+            $E = $@;
+        }
+
+        if ($E) { croak ERROR_NO_IPC_SYS_SIMPLE; }
+
+        # Make sure we're using a recent version of ISS that actually
+        # support fatalised system.
+        if ($IPC::System::Simple::VERSION < MIN_IPC_SYS_SIMPLE_VER) {
+            croak sprintf(
+            ERROR_IPC_SYS_SIMPLE_OLD, MIN_IPC_SYS_SIMPLE_VER,
+            $IPC::System::Simple::VERSION
+            );
+        }
+
+        $call = 'CORE::system';
+        $core = 1;
+
+    } elsif ($name eq 'exec') {
+        # Exec doesn't have a prototype.  We don't care.  This
+        # breaks the exotic form with lexical scope, and gives
+        # the regular form a "do or die" behavior as expected.
+
+        $call = 'CORE::exec';
+        $core = 1;
+
+    } else {            # CORE subroutine
+        $call = "CORE::$name";
+        if (exists($CORE_prototype_cache{$call})) {
+            $proto = $CORE_prototype_cache{$call};
+        } else {
+            my $E;
+            {
+                local $@;
+                $proto = eval { prototype $call };
+                $E = $@;
+            }
+            croak(sprintf(ERROR_NOT_BUILT,$name)) if $E;
+            croak(sprintf(ERROR_CANT_OVERRIDE,$name)) if not defined $proto;
+            $CORE_prototype_cache{$call} = $proto;
+        }
+        $core = 1;
+    }
+
+    # TODO: This caching works, but I don't like using $void and
+    # $lexical as keys.  In particular, I suspect our code may end up
+    # wrapping already wrapped code when autodie and Fatal are used
+    # together.
+
+    # NB: We must use '$sub' (the name plus package) and not
+    # just '$name' (the short name) here.  Failing to do so
+    # results code that's in the wrong package, and hence has
+    # access to the wrong package filehandles.
+
+    $cache = $Cached_fatalised_sub{$class}{$sub};
+    if ($lexical) {
+        $cache_type = CACHE_AUTODIE_LEAK_GUARD;
+    } else {
+        $cache_type = CACHE_FATAL_WRAPPER;
+        $cache_type = CACHE_FATAL_VOID if $void;
+    }
+
+    if (my $subref = $cache->{$cache_type}) {
+        $install_subs->{$name} = $subref;
+        return $sref;
+    }
+
+    # If our subroutine is reusable (ie, not package depdendent),
+    # then check to see if we've got a cached copy, and use that.
+    # See RT #46984. (Thanks to Niels Thykier for being awesome!)
+
+    if ($core && exists $reusable_builtins{$call}) {
+        # For non-lexical subs, we can just use this cache directly
+        # - for lexical variants, we need a leak guard as well.
+        $code = $reusable_builtins{$call}{$lexical};
+        if (!$lexical && defined($code)) {
+            $install_subs->{$name} = $code;
+            return $sref;
+        }
+    }
+
+    if (!($lexical && $core) && !defined($code)) {
+        # No code available, generate it now.
+        my $wrapper_pkg = $pkg;
+        $wrapper_pkg = undef if (exists($reusable_builtins{$call}));
+        $code = $class->_compile_wrapper($wrapper_pkg, $core, $call, $name,
+                                         $void, $lexical, $sub, $sref,
+                                         $hints, $proto);
+        if (!defined($wrapper_pkg)) {
+            # cache it so we don't recompile this part again
+            $reusable_builtins{$call}{$lexical} = $code;
+        }
+    }
+
+    # Now we need to wrap our fatalised sub inside an itty bitty
+    # closure, which can detect if we've leaked into another file.
+    # Luckily, we only need to do this for lexical (autodie)
+    # subs.  Fatal subs can leak all they want, it's considered
+    # a "feature" (or at least backwards compatible).
+
+    # TODO: Cache our leak guards!
+
+    # TODO: This is pretty hairy code.  A lot more tests would
+    # be really nice for this.
+
+    my $installed_sub = $code;
+
+    if ($lexical) {
+        $installed_sub = $class->_make_leak_guard($filename, $code, $sref, $call,
+                                                  $pkg, $proto);
+    }
+
+    $cache->{$cache_type} = $code;
+
+    $install_subs->{$name} = $installed_sub;
+
+    # Cache that we've now overridden this sub.  If we get called
+    # again, we may need to find that find subroutine again (eg, for hints).
+
+    $Is_fatalised_sub{$installed_sub} = $sref;
+
+    return $sref;
+
+}
+
+# This subroutine exists primarily so that child classes can override
+# it to point to their own exception class.  Doing this is significantly
+# less complex than overriding throw()
+
+sub exception_class { return "autodie::exception" };
+
+{
+    my %exception_class_for;
+    my %class_loaded;
+
+    sub throw {
+        my ($class, @args) = @_;
+
+        # Find our exception class if we need it.
+        my $exception_class =
+             $exception_class_for{$class} ||= $class->exception_class;
+
+        if (not $class_loaded{$exception_class}) {
+            if ($exception_class =~ /[^\w:']/) {
+                confess "Bad exception class '$exception_class'.\nThe '$class->exception_class' method wants to use $exception_class\nfor exceptions, but it contains characters which are not word-characters or colons.";
+            }
+
+            # Alas, Perl does turn barewords into modules unless they're
+            # actually barewords.  As such, we're left doing a string eval
+            # to make sure we load our file correctly.
+
+            my $E;
+
+            {
+                local $@;   # We can't clobber $@, it's wrong!
+                my $pm_file = $exception_class . ".pm";
+                $pm_file =~ s{ (?: :: | ' ) }{/}gx;
+                eval { require $pm_file };
+                $E = $@;    # Save $E despite ending our local.
+            }
+
+            # We need quotes around $@ to make sure it's stringified
+            # while still in scope.  Without them, we run the risk of
+            # $@ having been cleared by us exiting the local() block.
+
+            confess "Failed to load '$exception_class'.\nThis may be a typo in the '$class->exception_class' method,\nor the '$exception_class' module may not exist.\n\n $E" if $E;
+
+            $class_loaded{$exception_class}++;
+
+        }
+
+        return $exception_class->new(@args);
+    }
+}
+
+# Creates and returns a leak guard (with prototype if needed).
+sub _make_leak_guard {
+    my ($class, $filename, $wrapped_sub, $orig_sub, $call, $pkg, $proto) = @_;
+
+    # The leak guard is rather lengthly (in fact it makes up the most
+    # of _make_leak_guard).  It is possible to split it into a large
+    # "generic" part and a small wrapper with call-specific
+    # information.  This was done in v2.19 and profiling suggested
+    # that we ended up using a substantial amount of runtime in "goto"
+    # between the leak guard(s) and the final sub.  Therefore, the two
+    # parts were merged into one to reduce the runtime overhead.
+
+    my $leak_guard = sub {
+        my $caller_level = 0;
+        my $caller;
+
+        while ( ($caller = (caller $caller_level)[1]) =~ m{^\(eval \d+\)$} ) {
+
+            # If our filename is actually an eval, and we
+            # reach it, then go to our autodying code immediatately.
+
+            last if ($caller eq $filename);
+            $caller_level++;
+        }
+
+        # We're now out of the eval stack.
+
+        if ($caller eq $filename) {
+            # No leak, call the wrapper.  NB: In this case, it doesn't
+            # matter if it is a CORE sub or not.
+            if (!defined($wrapped_sub)) {
+                # CORE sub that we were too lazy to compile when we
+                # created this leak guard.
+                die "$call is not CORE::<something>"
+                    if substr($call, 0, 6) ne 'CORE::';
+
+                my $name = substr($call, 6);
+                my $sub = $name;
+                my $lexical = 1;
+                my $wrapper_pkg = $pkg;
+                my $code;
+                if (exists($reusable_builtins{$call})) {
+                    $code = $reusable_builtins{$call}{$lexical};
+                    $wrapper_pkg = undef;
+                }
+                if (!defined($code)) {
+                    $code = $class->_compile_wrapper($wrapper_pkg,
+                                                     1, # core
+                                                     $call,
+                                                     $name,
+                                                     0, # void
+                                                     $lexical,
+                                                     $sub,
+                                                     undef, # subref (not used for core)
+                                                     undef, # hints (not used for core)
+                                                     $proto);
+
+                    if (!defined($wrapper_pkg)) {
+                        # cache it so we don't recompile this part again
+                        $reusable_builtins{$call}{$lexical} = $code;
+                    }
+                }
+                # As $wrapped_sub is "closed over", updating its value will
+                # be "remembered" for the next call.
+                $wrapped_sub = $code;
+            }
+            goto $wrapped_sub;
+        }
+
+        # We leaked, time to call the original function.
+        # - for non-core functions that will be $orig_sub
+        # - for CORE functions, $orig_sub may be a trampoline
+        goto $orig_sub if defined($orig_sub);
+
+        # We are wrapping a CORE sub and we do not have a trampoline
+        # yet.
+        #
+        # If we've cached a trampoline, then use it.  Usually only
+        # resuable subs will have cache hits, but non-reusuably ones
+        # can get it as well in (very) rare cases.  It is mostly in
+        # cases where a package uses autodie multiple times and leaks
+        # from multiple places.  Possibly something like:
+        #
+        #  package Pkg::With::LeakyCode;
+        #  sub a {
+        #      use autodie;
+        #      code_that_leaks();
+        #  }
+        #
+        #  sub b {
+        #      use autodie;
+        #      more_leaky_code();
+        #  }
+        #
+        # Note that we use "Fatal" as package name for reusable subs
+        # because A) that allows us to trivially re-use the
+        # trampolines as well and B) because the reusable sub is
+        # compiled into "package Fatal" as well.
+
+        $pkg = 'Fatal' if exists $reusable_builtins{$call};
+        $orig_sub = $Trampoline_cache{$pkg}{$call};
+
+        if (not $orig_sub) {
+            # If we don't have a trampoline, we need to build it.
+            #
+            # We only generate trampolines when we need them, and
+            # we can cache them by subroutine + package.
+            #
+            # As $orig_sub is "closed over", updating its value will
+            # be "remembered" for the next call.
+
+            $orig_sub = make_core_trampoline($call, $pkg, $proto);
+
+            # We still cache it despite remembering it in $orig_sub as
+            # well.  In particularly, we rely on this to avoid
+            # re-compiling the reusable trampolines.
+            $Trampoline_cache{$pkg}{$call} = $orig_sub;
+        }
+
+        # Bounce to our trampoline, which takes us to our core sub.
+        goto $orig_sub;
+    };  # <-- end of leak guard
+
+    # If there is a prototype on the original sub, copy it to the leak
+    # guard.
+    if (defined $proto) {
+        # The "\&" may appear to be redundant but set_prototype
+        # croaks when it is removed.
+        set_prototype(\&$leak_guard, $proto);
+    }
+
+    return $leak_guard;
+}
+
+sub _compile_wrapper {
+    my ($class, $wrapper_pkg, $core, $call, $name, $void, $lexical, $sub, $sref, $hints, $proto) = @_;
+    my $real_proto = '';
+    my @protos;
+    my $code;
+    if (defined $proto) {
+        $real_proto = " ($proto)";
+    } else {
+        $proto = '@';
+    }
+
+    @protos = fill_protos($proto);
+    $code = qq[
+        sub$real_proto {
+    ];
+
+    if (!$lexical) {
+        $code .= q[
+           local($", $!) = (', ', 0);
+        ];
+    }
+
+    # Don't have perl whine if exec fails, since we'll be handling
+    # the exception now.
+    $code .= "no warnings qw(exec);\n" if $call eq "CORE::exec";
+
+    $code .= $class->_write_invocation($core, $call, $name, $void, $lexical,
+                                       $sub, $sref, @protos);
+    $code .= "}\n";
+    warn $code if $Debug;
+
+    # I thought that changing package was a monumental waste of
+    # time for CORE subs, since they'll always be the same.  However
+    # that's not the case, since they may refer to package-based
+    # filehandles (eg, with open).
+    #
+    # The %reusable_builtins hash defines ones we can aggressively
+    # cache as they never depend upon package-based symbols.
+
+    my $E;
+
+    {
+        no strict 'refs'; ## no critic # to avoid: Can't use string (...) as a symbol ref ...
+        local $@;
+        if (defined($wrapper_pkg)) {
+            $code = eval("package $wrapper_pkg; require Carp; $code");  ## no critic
+        } else {
+            $code = eval("require Carp; $code");  ## no critic
+
+        }
+        $E = $@;
+    }
+
+    if (not $code) {
+        my $true_name = $core ? $call : $sub;
+        croak("Internal error in autodie/Fatal processing $true_name: $E");
+    }
+    return $code;
+}
+
+# For some reason, dying while replacing our subs doesn't
+# kill our calling program.  It simply stops the loading of
+# autodie and keeps going with everything else.  The _autocroak
+# sub allows us to die with a vengeance.  It should *only* ever be
+# used for serious internal errors, since the results of it can't
+# be captured.
+
+sub _autocroak {
+    warn Carp::longmess(@_);
+    exit(255);  # Ugh!
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+Fatal - Replace functions with equivalents which succeed or die
+
+=head1 SYNOPSIS
+
+    use Fatal qw(open close);
+
+    open(my $fh, "<", $filename);  # No need to check errors!
+
+    use File::Copy qw(move);
+    use Fatal qw(move);
+
+    move($file1, $file2); # No need to check errors!
+
+    sub juggle { . . . }
+    Fatal->import('juggle');
+
+=head1 BEST PRACTICE
+
+B<Fatal has been obsoleted by the new L<autodie> pragma.> Please use
+L<autodie> in preference to C<Fatal>.  L<autodie> supports lexical scoping,
+throws real exception objects, and provides much nicer error messages.
+
+The use of C<:void> with Fatal is discouraged.
+
+=head1 DESCRIPTION
+
+C<Fatal> provides a way to conveniently replace
+functions which normally return a false value when they fail with
+equivalents which raise exceptions if they are not successful.  This
+lets you use these functions without having to test their return
+values explicitly on each call.  Exceptions can be caught using
+C<eval{}>.  See L<perlfunc> and L<perlvar> for details.
+
+The do-or-die equivalents are set up simply by calling Fatal's
+C<import> routine, passing it the names of the functions to be
+replaced.  You may wrap both user-defined functions and overridable
+CORE operators (except C<exec>, C<system>, C<print>, or any other
+built-in that cannot be expressed via prototypes) in this way.
+
+If the symbol C<:void> appears in the import list, then functions
+named later in that import list raise an exception only when
+these are called in void context--that is, when their return
+values are ignored.  For example
+
+    use Fatal qw/:void open close/;
+
+    # properly checked, so no exception raised on error
+    if (not open(my $fh, '<', '/bogotic') {
+        warn "Can't open /bogotic: $!";
+    }
+
+    # not checked, so error raises an exception
+    close FH;
+
+The use of C<:void> is discouraged, as it can result in exceptions
+not being thrown if you I<accidentally> call a method without
+void context.  Use L<autodie> instead if you need to be able to
+disable autodying/Fatal behaviour for a small block of code.
+
+=head1 DIAGNOSTICS
+
+=over 4
+
+=item Bad subroutine name for Fatal: %s
+
+You've called C<Fatal> with an argument that doesn't look like
+a subroutine name, nor a switch that this version of Fatal
+understands.
+
+=item %s is not a Perl subroutine
+
+You've asked C<Fatal> to try and replace a subroutine which does not
+exist, or has not yet been defined.
+
+=item %s is neither a builtin, nor a Perl subroutine
+
+You've asked C<Fatal> to replace a subroutine, but it's not a Perl
+built-in, and C<Fatal> couldn't find it as a regular subroutine.
+It either doesn't exist or has not yet been defined.
+
+=item Cannot make the non-overridable %s fatal
+
+You've tried to use C<Fatal> on a Perl built-in that can't be
+overridden, such as C<print> or C<system>, which means that
+C<Fatal> can't help you, although some other modules might.
+See the L</"SEE ALSO"> section of this documentation.
+
+=item Internal error: %s
+
+You've found a bug in C<Fatal>.  Please report it using
+the C<perlbug> command.
+
+=back
+
+=head1 BUGS
+
+C<Fatal> clobbers the context in which a function is called and always
+makes it a scalar context, except when the C<:void> tag is used.
+This problem does not exist in L<autodie>.
+
+"Used only once" warnings can be generated when C<autodie> or C<Fatal>
+is used with package filehandles (eg, C<FILE>).  It's strongly recommended
+you use scalar filehandles instead.
+
+=head1 AUTHOR
+
+Original module by Lionel Cons (CERN).
+
+Prototype updates by Ilya Zakharevich <ilya@math.ohio-state.edu>.
+
+L<autodie> support, bugfixes, extended diagnostics, C<system>
+support, and major overhauling by Paul Fenwick <pjf@perltraining.com.au>
+
+=head1 LICENSE
+
+This module is free software, you may distribute it under the
+same terms as Perl itself.
+
+=head1 SEE ALSO
+
+L<autodie> for a nicer way to use lexical Fatal.
+
+L<IPC::System::Simple> for a similar idea for calls to C<system()>
+and backticks.
+
+=for Pod::Coverage exception_class fill_protos one_invocation throw write_invocation ERROR_NO_IPC_SYS_SIMPLE LEXICAL_TAG
+
+=cut
diff --git a/lib/5.24.1/File/Basename.pm b/lib/5.24.1/File/Basename.pm
new file mode 100644
index 00000000..4b4fe95c
--- /dev/null
+++ b/lib/5.24.1/File/Basename.pm
@@ -0,0 +1,402 @@
+=head1 NAME
+
+File::Basename - Parse file paths into directory, filename and suffix.
+
+=head1 SYNOPSIS
+
+    use File::Basename;
+
+    ($name,$path,$suffix) = fileparse($fullname,@suffixlist);
+    $name = fileparse($fullname,@suffixlist);
+
+    $basename = basename($fullname,@suffixlist);
+    $dirname  = dirname($fullname);
+
+
+=head1 DESCRIPTION
+
+These routines allow you to parse file paths into their directory, filename
+and suffix.
+
+B<NOTE>: C<dirname()> and C<basename()> emulate the behaviours, and
+quirks, of the shell and C functions of the same name.  See each
+function's documentation for details.  If your concern is just parsing
+paths it is safer to use L<File::Spec>'s C<splitpath()> and
+C<splitdir()> methods.
+
+It is guaranteed that
+
+    # Where $path_separator is / for Unix, \ for Windows, etc...
+    dirname($path) . $path_separator . basename($path);
+
+is equivalent to the original path for all systems but VMS.
+
+
+=cut
+
+
+package File::Basename;
+
+# File::Basename is used during the Perl build, when the re extension may
+# not be available, but we only actually need it if running under tainting.
+BEGIN {
+  if (${^TAINT}) {
+    require re;
+    re->import('taint');
+  }
+}
+
+
+use strict;
+use 5.006;
+use warnings;
+our(@ISA, @EXPORT, $VERSION, $Fileparse_fstype, $Fileparse_igncase);
+require Exporter;
+@ISA = qw(Exporter);
+@EXPORT = qw(fileparse fileparse_set_fstype basename dirname);
+$VERSION = "2.85";
+
+fileparse_set_fstype($^O);
+
+
+=over 4
+
+=item C<fileparse>
+X<fileparse>
+
+    my($filename, $dirs, $suffix) = fileparse($path);
+    my($filename, $dirs, $suffix) = fileparse($path, @suffixes);
+    my $filename                  = fileparse($path, @suffixes);
+
+The C<fileparse()> routine divides a file path into its $dirs, $filename
+and (optionally) the filename $suffix.
+
+$dirs contains everything up to and including the last
+directory separator in the $path including the volume (if applicable).
+The remainder of the $path is the $filename.
+
+     # On Unix returns ("baz", "/foo/bar/", "")
+     fileparse("/foo/bar/baz");
+
+     # On Windows returns ("baz", 'C:\foo\bar\', "")
+     fileparse('C:\foo\bar\baz');
+
+     # On Unix returns ("", "/foo/bar/baz/", "")
+     fileparse("/foo/bar/baz/");
+
+If @suffixes are given each element is a pattern (either a string or a
+C<qr//>) matched against the end of the $filename.  The matching
+portion is removed and becomes the $suffix.
+
+     # On Unix returns ("baz", "/foo/bar/", ".txt")
+     fileparse("/foo/bar/baz.txt", qr/\.[^.]*/);
+
+If type is non-Unix (see L</fileparse_set_fstype>) then the pattern
+matching for suffix removal is performed case-insensitively, since
+those systems are not case-sensitive when opening existing files.
+
+You are guaranteed that C<$dirs . $filename . $suffix> will
+denote the same location as the original $path.
+
+=cut
+
+
+sub fileparse {
+  my($fullname,@suffices) = @_;
+
+  unless (defined $fullname) {
+      require Carp;
+      Carp::croak("fileparse(): need a valid pathname");
+  }
+
+  my $orig_type = '';
+  my($type,$igncase) = ($Fileparse_fstype, $Fileparse_igncase);
+
+  my($taint) = substr($fullname,0,0);  # Is $fullname tainted?
+
+  if ($type eq "VMS" and $fullname =~ m{/} ) {
+    # We're doing Unix emulation
+    $orig_type = $type;
+    $type = 'Unix';
+  }
+
+  my($dirpath, $basename);
+
+  if (grep { $type eq $_ } qw(MSDOS DOS MSWin32 Epoc)) {
+    ($dirpath,$basename) = ($fullname =~ /^((?:.*[:\\\/])?)(.*)/s);
+    $dirpath .= '.\\' unless $dirpath =~ /[\\\/]\z/;
+  }
+  elsif ($type eq "OS2") {
+    ($dirpath,$basename) = ($fullname =~ m#^((?:.*[:\\/])?)(.*)#s);
+    $dirpath = './' unless $dirpath;	# Can't be 0
+    $dirpath .= '/' unless $dirpath =~ m#[\\/]\z#;
+  }
+  elsif ($type eq "MacOS") {
+    ($dirpath,$basename) = ($fullname =~ /^(.*:)?(.*)/s);
+    $dirpath = ':' unless $dirpath;
+  }
+  elsif ($type eq "AmigaOS") {
+    ($dirpath,$basename) = ($fullname =~ /(.*[:\/])?(.*)/s);
+    $dirpath = './' unless $dirpath;
+  }
+  elsif ($type eq 'VMS' ) {
+    ($dirpath,$basename) = ($fullname =~ /^(.*[:>\]])?(.*)/s);
+    $dirpath ||= '';  # should always be defined
+  }
+  else { # Default to Unix semantics.
+    ($dirpath,$basename) = ($fullname =~ m{^(.*/)?(.*)}s);
+    if ($orig_type eq 'VMS' and $fullname =~ m{^(/[^/]+/000000(/|$))(.*)}) {
+      # dev:[000000] is top of VMS tree, similar to Unix '/'
+      # so strip it off and treat the rest as "normal"
+      my $devspec  = $1;
+      my $remainder = $3;
+      ($dirpath,$basename) = ($remainder =~ m{^(.*/)?(.*)}s);
+      $dirpath ||= '';  # should always be defined
+      $dirpath = $devspec.$dirpath;
+    }
+    $dirpath = './' unless $dirpath;
+  }
+      
+
+  my $tail   = '';
+  my $suffix = '';
+  if (@suffices) {
+    foreach $suffix (@suffices) {
+      my $pat = ($igncase ? '(?i)' : '') . "($suffix)\$";
+      if ($basename =~ s/$pat//s) {
+        $taint .= substr($suffix,0,0);
+        $tail = $1 . $tail;
+      }
+    }
+  }
+
+  # Ensure taint is propagated from the path to its pieces.
+  $tail .= $taint;
+  wantarray ? ($basename .= $taint, $dirpath .= $taint, $tail)
+            : ($basename .= $taint);
+}
+
+
+
+=item C<basename>
+X<basename> X<filename>
+
+    my $filename = basename($path);
+    my $filename = basename($path, @suffixes);
+
+This function is provided for compatibility with the Unix shell command
+C<basename(1)>.  It does B<NOT> always return the file name portion of a
+path as you might expect.  To be safe, if you want the file name portion of
+a path use C<fileparse()>.
+
+C<basename()> returns the last level of a filepath even if the last
+level is clearly directory.  In effect, it is acting like C<pop()> for
+paths.  This differs from C<fileparse()>'s behaviour.
+
+    # Both return "bar"
+    basename("/foo/bar");
+    basename("/foo/bar/");
+
+@suffixes work as in C<fileparse()> except all regex metacharacters are
+quoted.
+
+    # These two function calls are equivalent.
+    my $filename = basename("/foo/bar/baz.txt",  ".txt");
+    my $filename = fileparse("/foo/bar/baz.txt", qr/\Q.txt\E/);
+
+Also note that in order to be compatible with the shell command,
+C<basename()> does not strip off a suffix if it is identical to the
+remaining characters in the filename.
+
+=cut
+
+
+sub basename {
+  my($path) = shift;
+
+  # From BSD basename(1)
+  # The basename utility deletes any prefix ending with the last slash '/'
+  # character present in string (after first stripping trailing slashes)
+  _strip_trailing_sep($path);
+
+  my($basename, $dirname, $suffix) = fileparse( $path, map("\Q$_\E",@_) );
+
+  # From BSD basename(1)
+  # The suffix is not stripped if it is identical to the remaining 
+  # characters in string.
+  if( length $suffix and !length $basename ) {
+      $basename = $suffix;
+  }
+  
+  # Ensure that basename '/' == '/'
+  if( !length $basename ) {
+      $basename = $dirname;
+  }
+
+  return $basename;
+}
+
+
+
+=item C<dirname>
+X<dirname>
+
+This function is provided for compatibility with the Unix shell
+command C<dirname(1)> and has inherited some of its quirks.  In spite of
+its name it does B<NOT> always return the directory name as you might
+expect.  To be safe, if you want the directory name of a path use
+C<fileparse()>.
+
+Only on VMS (where there is no ambiguity between the file and directory
+portions of a path) and AmigaOS (possibly due to an implementation quirk in
+this module) does C<dirname()> work like C<fileparse($path)>, returning just the
+$dirs.
+
+    # On VMS and AmigaOS
+    my $dirs = dirname($path);
+
+When using Unix or MSDOS syntax this emulates the C<dirname(1)> shell function
+which is subtly different from how C<fileparse()> works.  It returns all but
+the last level of a file path even if the last level is clearly a directory.
+In effect, it is not returning the directory portion but simply the path one
+level up acting like C<chop()> for file paths.
+
+Also unlike C<fileparse()>, C<dirname()> does not include a trailing slash on
+its returned path.
+
+    # returns /foo/bar.  fileparse() would return /foo/bar/
+    dirname("/foo/bar/baz");
+
+    # also returns /foo/bar despite the fact that baz is clearly a 
+    # directory.  fileparse() would return /foo/bar/baz/
+    dirname("/foo/bar/baz/");
+
+    # returns '.'.  fileparse() would return 'foo/'
+    dirname("foo/");
+
+Under VMS, if there is no directory information in the $path, then the
+current default device and directory is used.
+
+=cut
+
+
+sub dirname {
+    my $path = shift;
+
+    my($type) = $Fileparse_fstype;
+
+    if( $type eq 'VMS' and $path =~ m{/} ) {
+        # Parse as Unix
+        local($File::Basename::Fileparse_fstype) = '';
+        return dirname($path);
+    }
+
+    my($basename, $dirname) = fileparse($path);
+
+    if ($type eq 'VMS') { 
+        $dirname ||= $ENV{DEFAULT};
+    }
+    elsif ($type eq 'MacOS') {
+	if( !length($basename) && $dirname !~ /^[^:]+:\z/) {
+            _strip_trailing_sep($dirname);
+	    ($basename,$dirname) = fileparse $dirname;
+	}
+	$dirname .= ":" unless $dirname =~ /:\z/;
+    }
+    elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
+        _strip_trailing_sep($dirname);
+        unless( length($basename) ) {
+	    ($basename,$dirname) = fileparse $dirname;
+	    _strip_trailing_sep($dirname);
+	}
+    }
+    elsif ($type eq 'AmigaOS') {
+        if ( $dirname =~ /:\z/) { return $dirname }
+        chop $dirname;
+        $dirname =~ s{[^:/]+\z}{} unless length($basename);
+    }
+    else {
+        _strip_trailing_sep($dirname);
+        unless( length($basename) ) {
+	    ($basename,$dirname) = fileparse $dirname;
+	    _strip_trailing_sep($dirname);
+	}
+    }
+
+    $dirname;
+}
+
+
+# Strip the trailing path separator.
+sub _strip_trailing_sep  {
+    my $type = $Fileparse_fstype;
+
+    if ($type eq 'MacOS') {
+        $_[0] =~ s/([^:]):\z/$1/s;
+    }
+    elsif (grep { $type eq $_ } qw(MSDOS DOS MSWin32 OS2)) { 
+        $_[0] =~ s/([^:])[\\\/]*\z/$1/;
+    }
+    else {
+        $_[0] =~ s{(.)/*\z}{$1}s;
+    }
+}
+
+
+=item C<fileparse_set_fstype>
+X<filesystem>
+
+  my $type = fileparse_set_fstype();
+  my $previous_type = fileparse_set_fstype($type);
+
+Normally File::Basename will assume a file path type native to your current
+operating system (ie. /foo/bar style on Unix, \foo\bar on Windows, etc...).
+With this function you can override that assumption.
+
+Valid $types are "MacOS", "VMS", "AmigaOS", "OS2", "RISCOS",
+"MSWin32", "DOS" (also "MSDOS" for backwards bug compatibility),
+"Epoc" and "Unix" (all case-insensitive).  If an unrecognized $type is
+given "Unix" will be assumed.
+
+If you've selected VMS syntax, and the file specification you pass to
+one of these routines contains a "/", they assume you are using Unix
+emulation and apply the Unix syntax rules instead, for that function
+call only.
+
+=back
+
+=cut
+
+
+BEGIN {
+
+my @Ignore_Case = qw(MacOS VMS AmigaOS OS2 RISCOS MSWin32 MSDOS DOS Epoc);
+my @Types = (@Ignore_Case, qw(Unix));
+
+sub fileparse_set_fstype {
+    my $old = $Fileparse_fstype;
+
+    if (@_) {
+        my $new_type = shift;
+
+        $Fileparse_fstype = 'Unix';  # default
+        foreach my $type (@Types) {
+            $Fileparse_fstype = $type if $new_type =~ /^$type/i;
+        }
+
+        $Fileparse_igncase = 
+          (grep $Fileparse_fstype eq $_, @Ignore_Case) ? 1 : 0;
+    }
+
+    return $old;
+}
+
+}
+
+
+1;
+
+
+=head1 SEE ALSO
+
+L<dirname(1)>, L<basename(1)>, L<File::Spec>
diff --git a/lib/5.24.1/File/Compare.pm b/lib/5.24.1/File/Compare.pm
new file mode 100644
index 00000000..05e1c41d
--- /dev/null
+++ b/lib/5.24.1/File/Compare.pm
@@ -0,0 +1,182 @@
+package File::Compare;
+
+use 5.006;
+use strict;
+use warnings;
+our($VERSION, @ISA, @EXPORT, @EXPORT_OK, $Too_Big);
+
+require Exporter;
+
+$VERSION = '1.1006';
+@ISA = qw(Exporter);
+@EXPORT = qw(compare);
+@EXPORT_OK = qw(cmp compare_text);
+
+$Too_Big = 1024 * 1024 * 2;
+
+sub croak {
+    require Carp;
+    goto &Carp::croak;
+}
+
+sub compare {
+    croak("Usage: compare( file1, file2 [, buffersize]) ")
+      unless(@_ == 2 || @_ == 3);
+
+    my ($from,$to,$size) = @_;
+    my $text_mode = defined($size) && (ref($size) eq 'CODE' || $size < 0);
+
+    my ($fromsize,$closefrom,$closeto);
+    local (*FROM, *TO);
+
+    croak("from undefined") unless (defined $from);
+    croak("to undefined") unless (defined $to);
+
+    if (ref($from) && 
+        (UNIVERSAL::isa($from,'GLOB') || UNIVERSAL::isa($from,'IO::Handle'))) {
+	*FROM = *$from;
+    } elsif (ref(\$from) eq 'GLOB') {
+	*FROM = $from;
+    } else {
+	open(FROM,"<",$from) or goto fail_open1;
+	unless ($text_mode) {
+	    binmode FROM;
+	    $fromsize = -s FROM;
+	}
+	$closefrom = 1;
+    }
+
+    if (ref($to) &&
+        (UNIVERSAL::isa($to,'GLOB') || UNIVERSAL::isa($to,'IO::Handle'))) {
+	*TO = *$to;
+    } elsif (ref(\$to) eq 'GLOB') {
+	*TO = $to;
+    } else {
+	open(TO,"<",$to) or goto fail_open2;
+	binmode TO unless $text_mode;
+	$closeto = 1;
+    }
+
+    if (!$text_mode && $closefrom && $closeto) {
+	# If both are opened files we know they differ if their size differ
+	goto fail_inner if $fromsize != -s TO;
+    }
+
+    if ($text_mode) {
+	local $/ = "\n";
+	my ($fline,$tline);
+	while (defined($fline = <FROM>)) {
+	    goto fail_inner unless defined($tline = <TO>);
+	    if (ref $size) {
+		# $size contains ref to comparison function
+		goto fail_inner if &$size($fline, $tline);
+	    } else {
+		goto fail_inner if $fline ne $tline;
+	    }
+	}
+	goto fail_inner if defined($tline = <TO>);
+    }
+    else {
+	unless (defined($size) && $size > 0) {
+	    $size = $fromsize || -s TO || 0;
+	    $size = 1024 if $size < 512;
+	    $size = $Too_Big if $size > $Too_Big;
+	}
+
+	my ($fr,$tr,$fbuf,$tbuf);
+	$fbuf = $tbuf = '';
+	while(defined($fr = read(FROM,$fbuf,$size)) && $fr > 0) {
+	    unless (defined($tr = read(TO,$tbuf,$fr)) && $tbuf eq $fbuf) {
+		goto fail_inner;
+	    }
+	}
+	goto fail_inner if defined($tr = read(TO,$tbuf,$size)) && $tr > 0;
+    }
+
+    close(TO) || goto fail_open2 if $closeto;
+    close(FROM) || goto fail_open1 if $closefrom;
+
+    return 0;
+    
+  # All of these contortions try to preserve error messages...
+  fail_inner:
+    close(TO) || goto fail_open2 if $closeto;
+    close(FROM) || goto fail_open1 if $closefrom;
+
+    return 1;
+
+  fail_open2:
+    if ($closefrom) {
+	my $status = $!;
+	$! = 0;
+	close FROM;
+	$! = $status unless $!;
+    }
+  fail_open1:
+    return -1;
+}
+
+sub cmp;
+*cmp = \&compare;
+
+sub compare_text {
+    my ($from,$to,$cmp) = @_;
+    croak("Usage: compare_text( file1, file2 [, cmp-function])")
+	unless @_ == 2 || @_ == 3;
+    croak("Third arg to compare_text() function must be a code reference")
+	if @_ == 3 && ref($cmp) ne 'CODE';
+
+    # Using a negative buffer size puts compare into text_mode too
+    $cmp = -1 unless defined $cmp;
+    compare($from, $to, $cmp);
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+File::Compare - Compare files or filehandles
+
+=head1 SYNOPSIS
+
+  	use File::Compare;
+
+	if (compare("file1","file2") == 0) {
+	    print "They're equal\n";
+	}
+
+=head1 DESCRIPTION
+
+The File::Compare::compare function compares the contents of two
+sources, each of which can be a file or a file handle.  It is exported
+from File::Compare by default.
+
+File::Compare::cmp is a synonym for File::Compare::compare.  It is
+exported from File::Compare only by request.
+
+File::Compare::compare_text does a line by line comparison of the two
+files. It stops as soon as a difference is detected. compare_text()
+accepts an optional third argument: This must be a CODE reference to
+a line comparison function, which returns 0 when both lines are considered
+equal. For example:
+
+    compare_text($file1, $file2)
+
+is basically equivalent to
+
+    compare_text($file1, $file2, sub {$_[0] ne $_[1]} )
+
+=head1 RETURN
+
+File::Compare::compare and its sibling functions return 0 if the files
+are equal, 1 if the files are unequal, or -1 if an error was encountered.
+
+=head1 AUTHOR
+
+File::Compare was written by Nick Ing-Simmons.
+Its original documentation was written by Chip Salzenberg.
+
+=cut
+
diff --git a/lib/5.24.1/File/Copy.pm b/lib/5.24.1/File/Copy.pm
new file mode 100644
index 00000000..842bd31c
--- /dev/null
+++ b/lib/5.24.1/File/Copy.pm
@@ -0,0 +1,506 @@
+# File/Copy.pm. Written in 1994 by Aaron Sherman <ajs@ajs.com>. This
+# source code has been placed in the public domain by the author.
+# Please be kind and preserve the documentation.
+#
+# Additions copyright 1996 by Charles Bailey.  Permission is granted
+# to distribute the revised code under the same terms as Perl itself.
+
+package File::Copy;
+
+use 5.006;
+use strict;
+use warnings; no warnings 'newline';
+use File::Spec;
+use Config;
+# During perl build, we need File::Copy but Scalar::Util might not be built yet
+# And then we need these games to avoid loading overload, as that will
+# confuse miniperl during the bootstrap of perl.
+my $Scalar_Util_loaded = eval q{ require Scalar::Util; require overload; 1 };
+our(@ISA, @EXPORT, @EXPORT_OK, $VERSION, $Too_Big, $Syscopy_is_copy);
+sub copy;
+sub syscopy;
+sub cp;
+sub mv;
+
+$VERSION = '2.31';
+
+require Exporter;
+@ISA = qw(Exporter);
+@EXPORT = qw(copy move);
+@EXPORT_OK = qw(cp mv);
+
+$Too_Big = 1024 * 1024 * 2;
+
+sub croak {
+    require Carp;
+    goto &Carp::croak;
+}
+
+sub carp {
+    require Carp;
+    goto &Carp::carp;
+}
+
+sub _catname {
+    my($from, $to) = @_;
+    if (not defined &basename) {
+	require File::Basename;
+	import  File::Basename 'basename';
+    }
+
+    return File::Spec->catfile($to, basename($from));
+}
+
+# _eq($from, $to) tells whether $from and $to are identical
+sub _eq {
+    my ($from, $to) = map {
+        $Scalar_Util_loaded && Scalar::Util::blessed($_)
+	    && overload::Method($_, q{""})
+            ? "$_"
+            : $_
+    } (@_);
+    return '' if ( (ref $from) xor (ref $to) );
+    return $from == $to if ref $from;
+    return $from eq $to;
+}
+
+sub copy {
+    croak("Usage: copy(FROM, TO [, BUFFERSIZE]) ")
+      unless(@_ == 2 || @_ == 3);
+
+    my $from = shift;
+    my $to = shift;
+
+    my $size;
+    if (@_) {
+	$size = shift(@_) + 0;
+	croak("Bad buffer size for copy: $size\n") unless ($size > 0);
+    }
+
+    my $from_a_handle = (ref($from)
+			 ? (ref($from) eq 'GLOB'
+			    || UNIVERSAL::isa($from, 'GLOB')
+                            || UNIVERSAL::isa($from, 'IO::Handle'))
+			 : (ref(\$from) eq 'GLOB'));
+    my $to_a_handle =   (ref($to)
+			 ? (ref($to) eq 'GLOB'
+			    || UNIVERSAL::isa($to, 'GLOB')
+                            || UNIVERSAL::isa($to, 'IO::Handle'))
+			 : (ref(\$to) eq 'GLOB'));
+
+    if (_eq($from, $to)) { # works for references, too
+	carp("'$from' and '$to' are identical (not copied)");
+        return 0;
+    }
+
+    if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) {
+	$to = _catname($from, $to);
+    }
+
+    if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) &&
+	!($^O eq 'MSWin32' || $^O eq 'os2')) {
+	my @fs = stat($from);
+	if (@fs) {
+	    my @ts = stat($to);
+	    if (@ts && $fs[0] == $ts[0] && $fs[1] == $ts[1] && !-p $from) {
+		carp("'$from' and '$to' are identical (not copied)");
+                return 0;
+	    }
+	}
+    }
+    elsif (_eq($from, $to)) {
+	carp("'$from' and '$to' are identical (not copied)");
+	return 0;
+    }
+
+    if (defined &syscopy && !$Syscopy_is_copy
+	&& !$to_a_handle
+	&& !($from_a_handle && $^O eq 'os2' )	# OS/2 cannot handle handles
+	&& !($from_a_handle && $^O eq 'MSWin32')
+	&& !($from_a_handle && $^O eq 'NetWare')
+       )
+    {
+        if ($^O eq 'VMS' && -e $from
+            && ! -d $to && ! -d $from) {
+
+            # VMS natively inherits path components from the source of a
+            # copy, but we want the Unixy behavior of inheriting from
+            # the current working directory.  Also, default in a trailing
+            # dot for null file types.
+
+            $to = VMS::Filespec::rmsexpand(VMS::Filespec::vmsify($to), '.');
+
+            # Get rid of the old versions to be like UNIX
+            1 while unlink $to;
+        }
+
+        return syscopy($from, $to) || 0;
+    }
+
+    my $closefrom = 0;
+    my $closeto = 0;
+    my ($status, $r, $buf);
+    local($\) = '';
+
+    my $from_h;
+    if ($from_a_handle) {
+       $from_h = $from;
+    } else {
+       open $from_h, "<", $from or goto fail_open1;
+       binmode $from_h or die "($!,$^E)";
+       $closefrom = 1;
+    }
+
+    # Seems most logical to do this here, in case future changes would want to
+    # make this croak for some reason.
+    unless (defined $size) {
+	$size = tied(*$from_h) ? 0 : -s $from_h || 0;
+	$size = 1024 if ($size < 512);
+	$size = $Too_Big if ($size > $Too_Big);
+    }
+
+    my $to_h;
+    if ($to_a_handle) {
+       $to_h = $to;
+    } else {
+	$to_h = \do { local *FH }; # XXX is this line obsolete?
+	open $to_h, ">", $to or goto fail_open2;
+	binmode $to_h or die "($!,$^E)";
+	$closeto = 1;
+    }
+
+    $! = 0;
+    for (;;) {
+	my ($r, $w, $t);
+       defined($r = sysread($from_h, $buf, $size))
+	    or goto fail_inner;
+	last unless $r;
+	for ($w = 0; $w < $r; $w += $t) {
+           $t = syswrite($to_h, $buf, $r - $w, $w)
+		or goto fail_inner;
+	}
+    }
+
+    close($to_h) || goto fail_open2 if $closeto;
+    close($from_h) || goto fail_open1 if $closefrom;
+
+    # Use this idiom to avoid uninitialized value warning.
+    return 1;
+
+    # All of these contortions try to preserve error messages...
+  fail_inner:
+    if ($closeto) {
+	$status = $!;
+	$! = 0;
+       close $to_h;
+	$! = $status unless $!;
+    }
+  fail_open2:
+    if ($closefrom) {
+	$status = $!;
+	$! = 0;
+       close $from_h;
+	$! = $status unless $!;
+    }
+  fail_open1:
+    return 0;
+}
+
+sub cp {
+    my($from,$to) = @_;
+    my(@fromstat) = stat $from;
+    my(@tostat) = stat $to;
+    my $perm;
+
+    return 0 unless copy(@_) and @fromstat;
+
+    if (@tostat) {
+        $perm = $tostat[2];
+    } else {
+        $perm = $fromstat[2] & ~(umask || 0);
+	@tostat = stat $to;
+    }
+    # Might be more robust to look for S_I* in Fcntl, but we're
+    # trying to avoid dependence on any XS-containing modules,
+    # since File::Copy is used during the Perl build.
+    $perm &= 07777;
+    if ($perm & 06000) {
+	croak("Unable to check setuid/setgid permissions for $to: $!")
+	    unless @tostat;
+
+	if ($perm & 04000 and                     # setuid
+	    $fromstat[4] != $tostat[4]) {         # owner must match
+	    $perm &= ~06000;
+	}
+
+	if ($perm & 02000 && $> != 0) {           # if not root, setgid
+	    my $ok = $fromstat[5] == $tostat[5];  # group must match
+	    if ($ok) {                            # and we must be in group
+                $ok = grep { $_ == $fromstat[5] } split /\s+/, $)
+	    }
+	    $perm &= ~06000 unless $ok;
+	}
+    }
+    return 0 unless @tostat;
+    return 1 if $perm == ($tostat[2] & 07777);
+    return eval { chmod $perm, $to; } ? 1 : 0;
+}
+
+sub _move {
+    croak("Usage: move(FROM, TO) ") unless @_ == 3;
+
+    my($from,$to,$fallback) = @_;
+
+    my($fromsz,$tosz1,$tomt1,$tosz2,$tomt2,$sts,$ossts);
+
+    if (-d $to && ! -d $from) {
+	$to = _catname($from, $to);
+    }
+
+    ($tosz1,$tomt1) = (stat($to))[7,9];
+    $fromsz = -s $from;
+    if ($^O eq 'os2' and defined $tosz1 and defined $fromsz) {
+      # will not rename with overwrite
+      unlink $to;
+    }
+
+    if ($^O eq 'VMS' && -e $from
+        && ! -d $to && ! -d $from) {
+
+            # VMS natively inherits path components from the source of a
+            # copy, but we want the Unixy behavior of inheriting from
+            # the current working directory.  Also, default in a trailing
+            # dot for null file types.
+
+            $to = VMS::Filespec::rmsexpand(VMS::Filespec::vmsify($to), '.');
+
+            # Get rid of the old versions to be like UNIX
+            1 while unlink $to;
+    }
+
+    return 1 if rename $from, $to;
+
+    # Did rename return an error even though it succeeded, because $to
+    # is on a remote NFS file system, and NFS lost the server's ack?
+    return 1 if defined($fromsz) && !-e $from &&           # $from disappeared
+                (($tosz2,$tomt2) = (stat($to))[7,9]) &&    # $to's there
+                  ((!defined $tosz1) ||			   #  not before or
+		   ($tosz1 != $tosz2 or $tomt1 != $tomt2)) &&  #   was changed
+                $tosz2 == $fromsz;                         # it's all there
+
+    ($tosz1,$tomt1) = (stat($to))[7,9];  # just in case rename did something
+
+    {
+        local $@;
+        eval {
+            local $SIG{__DIE__};
+            $fallback->($from,$to) or die;
+            my($atime, $mtime) = (stat($from))[8,9];
+            utime($atime, $mtime, $to);
+            unlink($from)   or die;
+        };
+        return 1 unless $@;
+    }
+    ($sts,$ossts) = ($! + 0, $^E + 0);
+
+    ($tosz2,$tomt2) = ((stat($to))[7,9],0,0) if defined $tomt1;
+    unlink($to) if !defined($tomt1) or $tomt1 != $tomt2 or $tosz1 != $tosz2;
+    ($!,$^E) = ($sts,$ossts);
+    return 0;
+}
+
+sub move { _move(@_,\&copy); }
+sub mv   { _move(@_,\&cp);   }
+
+# &syscopy is an XSUB under OS/2
+unless (defined &syscopy) {
+    if ($^O eq 'VMS') {
+	*syscopy = \&rmscopy;
+    } elsif ($^O eq 'MSWin32' && defined &DynaLoader::boot_DynaLoader) {
+	# Win32::CopyFile() fill only work if we can load Win32.xs
+	*syscopy = sub {
+	    return 0 unless @_ == 2;
+	    return Win32::CopyFile(@_, 1);
+	};
+    } else {
+	$Syscopy_is_copy = 1;
+	*syscopy = \&copy;
+    }
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+File::Copy - Copy files or filehandles
+
+=head1 SYNOPSIS
+
+	use File::Copy;
+
+	copy("sourcefile","destinationfile") or die "Copy failed: $!";
+	copy("Copy.pm",\*STDOUT);
+	move("/dev1/sourcefile","/dev2/destinationfile");
+
+	use File::Copy "cp";
+
+	$n = FileHandle->new("/a/file","r");
+	cp($n,"x");
+
+=head1 DESCRIPTION
+
+The File::Copy module provides two basic functions, C<copy> and
+C<move>, which are useful for getting the contents of a file from
+one place to another.
+
+=over 4
+
+=item copy
+X<copy> X<cp>
+
+The C<copy> function takes two
+parameters: a file to copy from and a file to copy to. Either
+argument may be a string, a FileHandle reference or a FileHandle
+glob. Obviously, if the first argument is a filehandle of some
+sort, it will be read from, and if it is a file I<name> it will
+be opened for reading. Likewise, the second argument will be
+written to. If the second argument does not exist but the parent
+directory does exist, then it will be created. Trying to copy
+a file into a non-existent directory is an error.
+Trying to copy a file on top of itself is also an error.
+C<copy> will not overwrite read-only files.
+
+If the destination (second argument) already exists and is a directory,
+and the source (first argument) is not a filehandle, then the source
+file will be copied into the directory specified by the destination,
+using the same base name as the source file.  It's a failure to have a
+filehandle as the source when the destination is a directory.
+
+B<Note that passing in
+files as handles instead of names may lead to loss of information
+on some operating systems; it is recommended that you use file
+names whenever possible.>  Files are opened in binary mode where
+applicable.  To get a consistent behaviour when copying from a
+filehandle to a file, use C<binmode> on the filehandle.
+
+An optional third parameter can be used to specify the buffer
+size used for copying. This is the number of bytes from the
+first file, that will be held in memory at any given time, before
+being written to the second file. The default buffer size depends
+upon the file, but will generally be the whole file (up to 2MB), or
+1k for filehandles that do not reference files (eg. sockets).
+
+You may use the syntax C<use File::Copy "cp"> to get at the C<cp>
+alias for this function. The syntax is I<exactly> the same.  The
+behavior is nearly the same as well: as of version 2.15, C<cp> will
+preserve the source file's permission bits like the shell utility
+C<cp(1)> would do, while C<copy> uses the default permissions for the
+target file (which may depend on the process' C<umask>, file
+ownership, inherited ACLs, etc.).  If an error occurs in setting
+permissions, C<cp> will return 0, regardless of whether the file was
+successfully copied.
+
+=item move
+X<move> X<mv> X<rename>
+
+The C<move> function also takes two parameters: the current name
+and the intended name of the file to be moved.  If the destination
+already exists and is a directory, and the source is not a
+directory, then the source file will be renamed into the directory
+specified by the destination.
+
+If possible, move() will simply rename the file.  Otherwise, it copies
+the file to the new location and deletes the original.  If an error occurs
+during this copy-and-delete process, you may be left with a (possibly partial)
+copy of the file under the destination name.
+
+You may use the C<mv> alias for this function in the same way that
+you may use the C<cp> alias for C<copy>.
+
+=item syscopy
+X<syscopy>
+
+File::Copy also provides the C<syscopy> routine, which copies the
+file specified in the first parameter to the file specified in the
+second parameter, preserving OS-specific attributes and file
+structure.  For Unix systems, this is equivalent to the simple
+C<copy> routine, which doesn't preserve OS-specific attributes.  For
+VMS systems, this calls the C<rmscopy> routine (see below).  For OS/2
+systems, this calls the C<syscopy> XSUB directly. For Win32 systems,
+this calls C<Win32::CopyFile>.
+
+B<Special behaviour if C<syscopy> is defined (OS/2, VMS and Win32)>:
+
+If both arguments to C<copy> are not file handles,
+then C<copy> will perform a "system copy" of
+the input file to a new output file, in order to preserve file
+attributes, indexed file structure, I<etc.>  The buffer size
+parameter is ignored.  If either argument to C<copy> is a
+handle to an opened file, then data is copied using Perl
+operators, and no effort is made to preserve file attributes
+or record structure.
+
+The system copy routine may also be called directly under VMS and OS/2
+as C<File::Copy::syscopy> (or under VMS as C<File::Copy::rmscopy>, which
+is the routine that does the actual work for syscopy).
+
+=item rmscopy($from,$to[,$date_flag])
+X<rmscopy>
+
+The first and second arguments may be strings, typeglobs, typeglob
+references, or objects inheriting from IO::Handle;
+they are used in all cases to obtain the
+I<filespec> of the input and output files, respectively.  The
+name and type of the input file are used as defaults for the
+output file, if necessary.
+
+A new version of the output file is always created, which
+inherits the structure and RMS attributes of the input file,
+except for owner and protections (and possibly timestamps;
+see below).  All data from the input file is copied to the
+output file; if either of the first two parameters to C<rmscopy>
+is a file handle, its position is unchanged.  (Note that this
+means a file handle pointing to the output file will be
+associated with an old version of that file after C<rmscopy>
+returns, not the newly created version.)
+
+The third parameter is an integer flag, which tells C<rmscopy>
+how to handle timestamps.  If it is E<lt> 0, none of the input file's
+timestamps are propagated to the output file.  If it is E<gt> 0, then
+it is interpreted as a bitmask: if bit 0 (the LSB) is set, then
+timestamps other than the revision date are propagated; if bit 1
+is set, the revision date is propagated.  If the third parameter
+to C<rmscopy> is 0, then it behaves much like the DCL COPY command:
+if the name or type of the output file was explicitly specified,
+then no timestamps are propagated, but if they were taken implicitly
+from the input filespec, then all timestamps other than the
+revision date are propagated.  If this parameter is not supplied,
+it defaults to 0.
+
+Like C<copy>, C<rmscopy> returns 1 on success.  If an error occurs,
+it sets C<$!>, deletes the output file, and returns 0.
+
+=back
+
+=head1 RETURN
+
+All functions return 1 on success, 0 on failure.
+$! will be set if an error was encountered.
+
+=head1 NOTES
+
+Before calling copy() or move() on a filehandle, the caller should
+close or flush() the file to avoid writes being lost. Note that this
+is the case even for move(), because it may actually copy the file,
+depending on the OS-specific inplementation, and the underlying
+filesystem(s).
+
+=head1 AUTHOR
+
+File::Copy was written by Aaron Sherman I<E<lt>ajs@ajs.comE<gt>> in 1995,
+and updated by Charles Bailey I<E<lt>bailey@newman.upenn.eduE<gt>> in 1996.
+
+=cut
+
diff --git a/lib/5.24.1/File/Fetch.pm b/lib/5.24.1/File/Fetch.pm
new file mode 100644
index 00000000..de2ab123
--- /dev/null
+++ b/lib/5.24.1/File/Fetch.pm
@@ -0,0 +1,1722 @@
+package File::Fetch;
+
+use strict;
+use FileHandle;
+use File::Temp;
+use File::Copy;
+use File::Spec;
+use File::Spec::Unix;
+use File::Basename              qw[dirname];
+
+use Cwd                         qw[cwd];
+use Carp                        qw[carp];
+use IPC::Cmd                    qw[can_run run QUOTE];
+use File::Path                  qw[mkpath];
+use File::Temp                  qw[tempdir];
+use Params::Check               qw[check];
+use Module::Load::Conditional   qw[can_load];
+use Locale::Maketext::Simple    Style => 'gettext';
+
+use vars    qw[ $VERBOSE $PREFER_BIN $FROM_EMAIL $USER_AGENT
+                $BLACKLIST $METHOD_FAIL $VERSION $METHODS
+                $FTP_PASSIVE $TIMEOUT $DEBUG $WARN $FORCEIPV4
+            ];
+
+$VERSION        = '0.48_01';
+$VERSION        = eval $VERSION;    # avoid warnings with development releases
+$PREFER_BIN     = 0;                # XXX TODO implement
+$FROM_EMAIL     = 'File-Fetch@example.com';
+$USER_AGENT     = "File::Fetch/$VERSION";
+$BLACKLIST      = [qw|ftp|];
+push @$BLACKLIST, qw|lftp| if $^O eq 'dragonfly';
+$METHOD_FAIL    = { };
+$FTP_PASSIVE    = 1;
+$TIMEOUT        = 0;
+$DEBUG          = 0;
+$WARN           = 1;
+$FORCEIPV4      = 0;
+
+### methods available to fetch the file depending on the scheme
+$METHODS = {
+    http    => [ qw|lwp httptiny wget curl lftp fetch httplite lynx iosock| ],
+    ftp     => [ qw|lwp netftp wget curl lftp fetch ncftp ftp| ],
+    file    => [ qw|lwp lftp file| ],
+    rsync   => [ qw|rsync| ],
+    git     => [ qw|git| ],
+};
+
+### silly warnings ###
+local $Params::Check::VERBOSE               = 1;
+local $Params::Check::VERBOSE               = 1;
+local $Module::Load::Conditional::VERBOSE   = 0;
+local $Module::Load::Conditional::VERBOSE   = 0;
+
+### see what OS we are on, important for file:// uris ###
+use constant ON_WIN     => ($^O eq 'MSWin32');
+use constant ON_VMS     => ($^O eq 'VMS');
+use constant ON_UNIX    => (!ON_WIN);
+use constant HAS_VOL    => (ON_WIN);
+use constant HAS_SHARE  => (ON_WIN);
+use constant HAS_FETCH  => ( $^O =~ m!^(freebsd|netbsd|dragonfly)$! );
+
+=pod
+
+=head1 NAME
+
+File::Fetch - A generic file fetching mechanism
+
+=head1 SYNOPSIS
+
+    use File::Fetch;
+
+    ### build a File::Fetch object ###
+    my $ff = File::Fetch->new(uri => 'http://some.where.com/dir/a.txt');
+
+    ### fetch the uri to cwd() ###
+    my $where = $ff->fetch() or die $ff->error;
+
+    ### fetch the uri to /tmp ###
+    my $where = $ff->fetch( to => '/tmp' );
+
+    ### parsed bits from the uri ###
+    $ff->uri;
+    $ff->scheme;
+    $ff->host;
+    $ff->path;
+    $ff->file;
+
+=head1 DESCRIPTION
+
+File::Fetch is a generic file fetching mechanism.
+
+It allows you to fetch any file pointed to by a C<ftp>, C<http>,
+C<file>, C<git> or C<rsync> uri by a number of different means.
+
+See the C<HOW IT WORKS> section further down for details.
+
+=head1 ACCESSORS
+
+A C<File::Fetch> object has the following accessors
+
+=over 4
+
+=item $ff->uri
+
+The uri you passed to the constructor
+
+=item $ff->scheme
+
+The scheme from the uri (like 'file', 'http', etc)
+
+=item $ff->host
+
+The hostname in the uri.  Will be empty if host was originally
+'localhost' for a 'file://' url.
+
+=item $ff->vol
+
+On operating systems with the concept of a volume the second element
+of a file:// is considered to the be volume specification for the file.
+Thus on Win32 this routine returns the volume, on other operating
+systems this returns nothing.
+
+On Windows this value may be empty if the uri is to a network share, in
+which case the 'share' property will be defined. Additionally, volume
+specifications that use '|' as ':' will be converted on read to use ':'.
+
+On VMS, which has a volume concept, this field will be empty because VMS
+file specifications are converted to absolute UNIX format and the volume
+information is transparently included.
+
+=item $ff->share
+
+On systems with the concept of a network share (currently only Windows) returns
+the sharename from a file://// url.  On other operating systems returns empty.
+
+=item $ff->path
+
+The path from the uri, will be at least a single '/'.
+
+=item $ff->file
+
+The name of the remote file. For the local file name, the
+result of $ff->output_file will be used.
+
+=item $ff->file_default
+
+The name of the default local file, that $ff->output_file falls back to if
+it would otherwise return no filename. For example when fetching a URI like
+http://www.abc.net.au/ the contents retrieved may be from a remote file called
+'index.html'. The default value of this attribute is literally 'file_default'.
+
+=cut
+
+
+##########################
+### Object & Accessors ###
+##########################
+
+{
+    ### template for autogenerated accessors ###
+    my $Tmpl = {
+        scheme          => { default => 'http' },
+        host            => { default => 'localhost' },
+        path            => { default => '/' },
+        file            => { required => 1 },
+        uri             => { required => 1 },
+        vol             => { default => '' }, # windows for file:// uris
+        share           => { default => '' }, # windows for file:// uris
+        file_default    => { default => 'file_default' },
+        tempdir_root    => { required => 1 }, # Should be lazy-set at ->new()
+        _error_msg      => { no_override => 1 },
+        _error_msg_long => { no_override => 1 },
+    };
+
+    for my $method ( keys %$Tmpl ) {
+        no strict 'refs';
+        *$method = sub {
+                        my $self = shift;
+                        $self->{$method} = $_[0] if @_;
+                        return $self->{$method};
+                    }
+    }
+
+    sub _create {
+        my $class = shift;
+        my %hash  = @_;
+
+        my $args = check( $Tmpl, \%hash ) or return;
+
+        bless $args, $class;
+
+        if( lc($args->scheme) ne 'file' and not $args->host ) {
+            return $class->_error(loc(
+                "Hostname required when fetching from '%1'",$args->scheme));
+        }
+
+        for (qw[path]) {
+            unless( $args->$_() ) { # 5.5.x needs the ()
+                return $class->_error(loc("No '%1' specified",$_));
+            }
+        }
+
+        return $args;
+    }
+}
+
+=item $ff->output_file
+
+The name of the output file. This is the same as $ff->file,
+but any query parameters are stripped off. For example:
+
+    http://example.com/index.html?x=y
+
+would make the output file be C<index.html> rather than
+C<index.html?x=y>.
+
+=back
+
+=cut
+
+sub output_file {
+    my $self = shift;
+    my $file = $self->file;
+
+    $file =~ s/\?.*$//g;
+
+    $file ||= $self->file_default;
+
+    return $file;
+}
+
+### XXX do this or just point to URI::Escape?
+# =head2 $esc_uri = $ff->escaped_uri
+#
+# =cut
+#
+# ### most of this is stolen straight from URI::escape
+# {   ### Build a char->hex map
+#     my %escapes = map { chr($_) => sprintf("%%%02X", $_) } 0..255;
+#
+#     sub escaped_uri {
+#         my $self = shift;
+#         my $uri  = $self->uri;
+#
+#         ### Default unsafe characters.  RFC 2732 ^(uric - reserved)
+#         $uri =~ s/([^A-Za-z0-9\-_.!~*'()])/
+#                     $escapes{$1} || $self->_fail_hi($1)/ge;
+#
+#         return $uri;
+#     }
+#
+#     sub _fail_hi {
+#         my $self = shift;
+#         my $char = shift;
+#
+#         $self->_error(loc(
+#             "Can't escape '%1', try using the '%2' module instead",
+#             sprintf("\\x{%04X}", ord($char)), 'URI::Escape'
+#         ));
+#     }
+#
+#     sub output_file {
+#
+#     }
+#
+#
+# }
+
+=head1 METHODS
+
+=head2 $ff = File::Fetch->new( uri => 'http://some.where.com/dir/file.txt' );
+
+Parses the uri and creates a corresponding File::Fetch::Item object,
+that is ready to be C<fetch>ed and returns it.
+
+Returns false on failure.
+
+=cut
+
+sub new {
+    my $class = shift;
+    my %hash  = @_;
+
+    my ($uri, $file_default, $tempdir_root);
+    my $tmpl = {
+        uri          => { required => 1, store => \$uri },
+        file_default => { required => 0, store => \$file_default },
+        tempdir_root => { required => 0, store => \$tempdir_root },
+    };
+
+    check( $tmpl, \%hash ) or return;
+
+    ### parse the uri to usable parts ###
+    my $href    = $class->_parse_uri( $uri ) or return;
+
+    $href->{file_default} = $file_default if $file_default;
+    $href->{tempdir_root} = File::Spec->rel2abs( $tempdir_root ) if $tempdir_root;
+    $href->{tempdir_root} = File::Spec->rel2abs( Cwd::cwd      ) if not $href->{tempdir_root};
+
+    ### make it into a FFI object ###
+    my $ff      = $class->_create( %$href ) or return;
+
+
+    ### return the object ###
+    return $ff;
+}
+
+### parses an uri to a hash structure:
+###
+### $class->_parse_uri( 'ftp://ftp.cpan.org/pub/mirror/index.txt' )
+###
+### becomes:
+###
+### $href = {
+###     scheme  => 'ftp',
+###     host    => 'ftp.cpan.org',
+###     path    => '/pub/mirror',
+###     file    => 'index.html'
+### };
+###
+### In the case of file:// urls there maybe be additional fields
+###
+### For systems with volume specifications such as Win32 there will be
+### a volume specifier provided in the 'vol' field.
+###
+###   'vol' => 'volumename'
+###
+### For windows file shares there may be a 'share' key specified
+###
+###   'share' => 'sharename'
+###
+### Note that the rules of what a file:// url means vary by the operating system
+### of the host being addressed. Thus file:///d|/foo/bar.txt means the obvious
+### 'D:\foo\bar.txt' on windows, but on unix it means '/d|/foo/bar.txt' and
+### not '/foo/bar.txt'
+###
+### Similarly if the host interpreting the url is VMS then
+### file:///disk$user/my/notes/note12345.txt' means
+### 'DISK$USER:[MY.NOTES]NOTE123456.TXT' but will be returned the same as
+### if it is unix where it means /disk$user/my/notes/note12345.txt'.
+### Except for some cases in the File::Spec methods, Perl on VMS will generally
+### handle UNIX format file specifications.
+###
+### This means it is impossible to serve certain file:// urls on certain systems.
+###
+### Thus are the problems with a protocol-less specification. :-(
+###
+
+sub _parse_uri {
+    my $self = shift;
+    my $uri  = shift or return;
+
+    my $href = { uri => $uri };
+
+    ### find the scheme ###
+    $uri            =~ s|^(\w+)://||;
+    $href->{scheme} = $1;
+
+    ### See rfc 1738 section 3.10
+    ### http://www.faqs.org/rfcs/rfc1738.html
+    ### And wikipedia for more on windows file:// urls
+    ### http://en.wikipedia.org/wiki/File://
+    if( $href->{scheme} eq 'file' ) {
+
+        my @parts = split '/',$uri;
+
+        ### file://hostname/...
+        ### file://hostname/...
+        ### normalize file://localhost with file:///
+        $href->{host} = $parts[0] || '';
+
+        ### index in @parts where the path components begin;
+        my $index = 1;
+
+        ### file:////hostname/sharename/blah.txt
+        if ( HAS_SHARE and not length $parts[0] and not length $parts[1] ) {
+
+            $href->{host}   = $parts[2] || '';  # avoid warnings
+            $href->{share}  = $parts[3] || '';  # avoid warnings
+
+            $index          = 4         # index after the share
+
+        ### file:///D|/blah.txt
+        ### file:///D:/blah.txt
+        } elsif (HAS_VOL) {
+
+            ### this code comes from dmq's patch, but:
+            ### XXX if volume is empty, wouldn't that be an error? --kane
+            ### if so, our file://localhost test needs to be fixed as wel
+            $href->{vol}    = $parts[1] || '';
+
+            ### correct D| style colume descriptors
+            $href->{vol}    =~ s/\A([A-Z])\|\z/$1:/i if ON_WIN;
+
+            $index          = 2;        # index after the volume
+        }
+
+        ### rebuild the path from the leftover parts;
+        $href->{path} = join '/', '', splice( @parts, $index, $#parts );
+
+    } else {
+        ### using anything but qw() in hash slices may produce warnings
+        ### in older perls :-(
+        @{$href}{ qw(host path) } = $uri =~ m|([^/]*)(/.*)$|s;
+    }
+
+    ### split the path into file + dir ###
+    {   my @parts = File::Spec::Unix->splitpath( delete $href->{path} );
+        $href->{path} = $parts[1];
+        $href->{file} = $parts[2];
+    }
+
+    ### host will be empty if the target was 'localhost' and the
+    ### scheme was 'file'
+    $href->{host} = '' if   ($href->{host}      eq 'localhost') and
+                            ($href->{scheme}    eq 'file');
+
+    return $href;
+}
+
+=head2 $where = $ff->fetch( [to => /my/output/dir/ | \$scalar] )
+
+Fetches the file you requested and returns the full path to the file.
+
+By default it writes to C<cwd()>, but you can override that by specifying
+the C<to> argument:
+
+    ### file fetch to /tmp, full path to the file in $where
+    $where = $ff->fetch( to => '/tmp' );
+
+    ### file slurped into $scalar, full path to the file in $where
+    ### file is downloaded to a temp directory and cleaned up at exit time
+    $where = $ff->fetch( to => \$scalar );
+
+Returns the full path to the downloaded file on success, and false
+on failure.
+
+=cut
+
+sub fetch {
+    my $self = shift or return;
+    my %hash = @_;
+
+    my $target;
+    my $tmpl = {
+        to  => { default => cwd(), store => \$target },
+    };
+
+    check( $tmpl, \%hash ) or return;
+
+    my ($to, $fh);
+    ### you want us to slurp the contents
+    if( ref $target and UNIVERSAL::isa( $target, 'SCALAR' ) ) {
+        $to = tempdir( 'FileFetch.XXXXXX', DIR => $self->tempdir_root, CLEANUP => 1 );
+
+    ### plain old fetch
+    } else {
+        $to = $target;
+
+        ### On VMS force to VMS format so File::Spec will work.
+        $to = VMS::Filespec::vmspath($to) if ON_VMS;
+
+        ### create the path if it doesn't exist yet ###
+        unless( -d $to ) {
+            eval { mkpath( $to ) };
+
+            return $self->_error(loc("Could not create path '%1'",$to)) if $@;
+        }
+    }
+
+    ### set passive ftp if required ###
+    local $ENV{FTP_PASSIVE} = $FTP_PASSIVE;
+
+    ### we dont use catfile on win32 because if we are using a cygwin tool
+    ### under cmd.exe they wont understand windows style separators.
+    my $out_to = ON_WIN ? $to.'/'.$self->output_file
+                        : File::Spec->catfile( $to, $self->output_file );
+
+    for my $method ( @{ $METHODS->{$self->scheme} } ) {
+        my $sub =  '_'.$method.'_fetch';
+
+        unless( __PACKAGE__->can($sub) ) {
+            $self->_error(loc("Cannot call method for '%1' -- WEIRD!",
+                        $method));
+            next;
+        }
+
+        ### method is blacklisted ###
+        next if grep { lc $_ eq $method } @$BLACKLIST;
+
+        ### method is known to fail ###
+        next if $METHOD_FAIL->{$method};
+
+        ### there's serious issues with IPC::Run and quoting of command
+        ### line arguments. using quotes in the wrong place breaks things,
+        ### and in the case of say,
+        ### C:\cygwin\bin\wget.EXE --quiet --passive-ftp --output-document
+        ### "index.html" "http://www.cpan.org/index.html?q=1&y=2"
+        ### it doesn't matter how you quote, it always fails.
+        local $IPC::Cmd::USE_IPC_RUN = 0;
+
+        if( my $file = $self->$sub(
+                        to => $out_to
+        )){
+
+            unless( -e $file && -s _ ) {
+                $self->_error(loc("'%1' said it fetched '%2', ".
+                     "but it was not created",$method,$file));
+
+                ### mark the failure ###
+                $METHOD_FAIL->{$method} = 1;
+
+                next;
+
+            } else {
+
+                ### slurp mode?
+                if( ref $target and UNIVERSAL::isa( $target, 'SCALAR' ) ) {
+
+                    ### open the file
+                    open my $fh, "<$file" or do {
+                        $self->_error(
+                            loc("Could not open '%1': %2", $file, $!));
+                        return;
+                    };
+
+                    ### slurp
+                    $$target = do { local $/; <$fh> };
+
+                }
+
+                my $abs = File::Spec->rel2abs( $file );
+                return $abs;
+
+            }
+        }
+    }
+
+
+    ### if we got here, we looped over all methods, but we weren't able
+    ### to fetch it.
+    return;
+}
+
+########################
+### _*_fetch methods ###
+########################
+
+### LWP fetching ###
+sub _lwp_fetch {
+    my $self = shift;
+    my %hash = @_;
+
+    my ($to);
+    my $tmpl = {
+        to  => { required => 1, store => \$to }
+    };
+    check( $tmpl, \%hash ) or return;
+
+    ### modules required to download with lwp ###
+    my $use_list = {
+        LWP                 => '0.0',
+        'LWP::UserAgent'    => '0.0',
+        'HTTP::Request'     => '0.0',
+        'HTTP::Status'      => '0.0',
+        URI                 => '0.0',
+
+    };
+
+    local @INC = @INC;
+    pop @INC if $INC[-1] eq '.';
+    unless( can_load( modules => $use_list ) ) {
+        $METHOD_FAIL->{'lwp'} = 1;
+        return;
+    }
+
+    ### setup the uri object
+    my $uri = URI->new( File::Spec::Unix->catfile(
+                                $self->path, $self->file
+                    ) );
+
+    ### special rules apply for file:// uris ###
+    $uri->scheme( $self->scheme );
+    $uri->host( $self->scheme eq 'file' ? '' : $self->host );
+    $uri->userinfo("anonymous:$FROM_EMAIL") if $self->scheme ne 'file';
+
+    ### set up the useragent object
+    my $ua = LWP::UserAgent->new();
+    $ua->timeout( $TIMEOUT ) if $TIMEOUT;
+    $ua->agent( $USER_AGENT );
+    $ua->from( $FROM_EMAIL );
+    $ua->env_proxy;
+
+    my $res = $ua->mirror($uri, $to) or return;
+
+    ### uptodate or fetched ok ###
+    if ( $res->code == 304 or $res->code == 200 ) {
+        return $to;
+
+    } else {
+        return $self->_error(loc("Fetch failed! HTTP response: %1 %2 [%3]",
+                    $res->code, HTTP::Status::status_message($res->code),
+                    $res->status_line));
+    }
+
+}
+
+### HTTP::Tiny fetching ###
+sub _httptiny_fetch {
+    my $self = shift;
+    my %hash = @_;
+
+    my ($to);
+    my $tmpl = {
+        to  => { required => 1, store => \$to }
+    };
+    check( $tmpl, \%hash ) or return;
+
+    my $use_list = {
+        'HTTP::Tiny'    => '0.008',
+
+    };
+
+    local @INC = @INC;
+    pop @INC if $INC[-1] eq '.';
+    unless( can_load(modules => $use_list) ) {
+        $METHOD_FAIL->{'httptiny'} = 1;
+        return;
+    }
+
+    my $uri = $self->uri;
+
+    my $http = HTTP::Tiny->new( ( $TIMEOUT ? ( timeout => $TIMEOUT ) : () ) );
+
+    my $rc = $http->mirror( $uri, $to );
+
+    unless ( $rc->{success} ) {
+
+        return $self->_error(loc( "Fetch failed! HTTP response: %1 [%2]",
+                    $rc->{status}, $rc->{reason} ) );
+
+    }
+
+    return $to;
+
+}
+
+### HTTP::Lite fetching ###
+sub _httplite_fetch {
+    my $self = shift;
+    my %hash = @_;
+
+    my ($to);
+    my $tmpl = {
+        to  => { required => 1, store => \$to }
+    };
+    check( $tmpl, \%hash ) or return;
+
+    ### modules required to download with lwp ###
+    my $use_list = {
+        'HTTP::Lite'    => '2.2',
+
+    };
+
+    local @INC = @INC;
+    pop @INC if $INC[-1] eq '.';
+    unless( can_load(modules => $use_list) ) {
+        $METHOD_FAIL->{'httplite'} = 1;
+        return;
+    }
+
+    my $uri = $self->uri;
+    my $retries = 0;
+
+    RETRIES: while ( $retries++ < 5 ) {
+
+      my $http = HTTP::Lite->new();
+      # Naughty naughty but there isn't any accessor/setter
+      $http->{timeout} = $TIMEOUT if $TIMEOUT;
+      $http->http11_mode(1);
+
+      my $fh = FileHandle->new;
+
+      unless ( $fh->open($to,'>') ) {
+        return $self->_error(loc(
+             "Could not open '%1' for writing: %2",$to,$!));
+      }
+
+      $fh->autoflush(1);
+
+      binmode $fh;
+
+      my $rc = $http->request( $uri, sub { my ($self,$dref,$cbargs) = @_; local $\; print {$cbargs} $$dref }, $fh );
+
+      close $fh;
+
+      if ( $rc == 301 || $rc == 302 ) {
+          my $loc;
+          HEADERS: for ($http->headers_array) {
+            /Location: (\S+)/ and $loc = $1, last HEADERS;
+          }
+          #$loc or last; # Think we should squeal here.
+          if ($loc =~ m!^/!) {
+            $uri =~ s{^(\w+?://[^/]+)/.*$}{$1};
+            $uri .= $loc;
+          }
+          else {
+            $uri = $loc;
+          }
+          next RETRIES;
+      }
+      elsif ( $rc == 200 ) {
+          return $to;
+      }
+      else {
+        return $self->_error(loc("Fetch failed! HTTP response: %1 [%2]",
+                    $rc, $http->status_message));
+      }
+
+    } # Loop for 5 retries.
+
+    return $self->_error("Fetch failed! Gave up after 5 tries");
+
+}
+
+### Simple IO::Socket::INET fetching ###
+sub _iosock_fetch {
+    my $self = shift;
+    my %hash = @_;
+
+    my ($to);
+    my $tmpl = {
+        to  => { required => 1, store => \$to }
+    };
+    check( $tmpl, \%hash ) or return;
+
+    my $use_list = {
+        'IO::Socket::INET' => '0.0',
+        'IO::Select'       => '0.0',
+    };
+
+    local @INC = @INC;
+    pop @INC if $INC[-1] eq '.';
+    unless( can_load(modules => $use_list) ) {
+        $METHOD_FAIL->{'iosock'} = 1;
+        return;
+    }
+
+    my $sock = IO::Socket::INET->new(
+        PeerHost => $self->host,
+        ( $self->host =~ /:/ ? () : ( PeerPort => 80 ) ),
+    );
+
+    unless ( $sock ) {
+        return $self->_error(loc("Could not open socket to '%1', '%2'",$self->host,$!));
+    }
+
+    my $fh = FileHandle->new;
+
+    # Check open()
+
+    unless ( $fh->open($to,'>') ) {
+        return $self->_error(loc(
+             "Could not open '%1' for writing: %2",$to,$!));
+    }
+
+    $fh->autoflush(1);
+    binmode $fh;
+
+    my $path = File::Spec::Unix->catfile( $self->path, $self->file );
+    my $req = "GET $path HTTP/1.0\x0d\x0aHost: " . $self->host . "\x0d\x0a\x0d\x0a";
+    $sock->send( $req );
+
+    my $select = IO::Select->new( $sock );
+
+    my $resp = '';
+    my $normal = 0;
+    while ( $select->can_read( $TIMEOUT || 60 ) ) {
+      my $ret = $sock->sysread( $resp, 4096, length($resp) );
+      if ( !defined $ret or $ret == 0 ) {
+        $select->remove( $sock );
+        $normal++;
+      }
+    }
+    close $sock;
+
+    unless ( $normal ) {
+        return $self->_error(loc("Socket timed out after '%1' seconds", ( $TIMEOUT || 60 )));
+    }
+
+    # Check the "response"
+    # Strip preceding blank lines apparently they are allowed (RFC 2616 4.1)
+    $resp =~ s/^(\x0d?\x0a)+//;
+    # Check it is an HTTP response
+    unless ( $resp =~ m!^HTTP/(\d+)\.(\d+)!i ) {
+        return $self->_error(loc("Did not get a HTTP response from '%1'",$self->host));
+    }
+
+    # Check for OK
+    my ($code) = $resp =~ m!^HTTP/\d+\.\d+\s+(\d+)!i;
+    unless ( $code eq '200' ) {
+        return $self->_error(loc("Got a '%1' from '%2' expected '200'",$code,$self->host));
+    }
+
+    {
+      local $\;
+      print $fh +($resp =~ m/\x0d\x0a\x0d\x0a(.*)$/s )[0];
+    }
+    close $fh;
+    return $to;
+}
+
+### Net::FTP fetching
+sub _netftp_fetch {
+    my $self = shift;
+    my %hash = @_;
+
+    my ($to);
+    my $tmpl = {
+        to  => { required => 1, store => \$to }
+    };
+    check( $tmpl, \%hash ) or return;
+
+    ### required modules ###
+    local @INC = @INC;
+    pop @INC if $INC[-1] eq '.';
+    my $use_list = { 'Net::FTP' => 0 };
+
+    unless( can_load( modules => $use_list ) ) {
+        $METHOD_FAIL->{'netftp'} = 1;
+        return;
+    }
+
+    ### make connection ###
+    my $ftp;
+    my @options = ($self->host);
+    push(@options, Timeout => $TIMEOUT) if $TIMEOUT;
+    unless( $ftp = Net::FTP->new( @options ) ) {
+        return $self->_error(loc("Ftp creation failed: %1",$@));
+    }
+
+    ### login ###
+    unless( $ftp->login( anonymous => $FROM_EMAIL ) ) {
+        return $self->_error(loc("Could not login to '%1'",$self->host));
+    }
+
+    ### set binary mode, just in case ###
+    $ftp->binary;
+
+    ### create the remote path
+    ### remember remote paths are unix paths! [#11483]
+    my $remote = File::Spec::Unix->catfile( $self->path, $self->file );
+
+    ### fetch the file ###
+    my $target;
+    unless( $target = $ftp->get( $remote, $to ) ) {
+        return $self->_error(loc("Could not fetch '%1' from '%2'",
+                    $remote, $self->host));
+    }
+
+    ### log out ###
+    $ftp->quit;
+
+    return $target;
+
+}
+
+### /bin/wget fetch ###
+sub _wget_fetch {
+    my $self = shift;
+    my %hash = @_;
+
+    my ($to);
+    my $tmpl = {
+        to  => { required => 1, store => \$to }
+    };
+    check( $tmpl, \%hash ) or return;
+
+    my $wget;
+    ### see if we have a wget binary ###
+    unless( $wget = can_run('wget') ) {
+        $METHOD_FAIL->{'wget'} = 1;
+        return;
+    }
+
+    ### no verboseness, thanks ###
+    my $cmd = [ $wget, '--quiet' ];
+
+    ### if a timeout is set, add it ###
+    push(@$cmd, '--timeout=' . $TIMEOUT) if $TIMEOUT;
+
+    ### run passive if specified ###
+    push @$cmd, '--passive-ftp' if $FTP_PASSIVE;
+
+    ### set the output document, add the uri ###
+    push @$cmd, '--output-document', $to, $self->uri;
+
+    ### with IPC::Cmd > 0.41, this is fixed in teh library,
+    ### and there's no need for special casing any more.
+    ### DO NOT quote things for IPC::Run, it breaks stuff.
+    # $IPC::Cmd::USE_IPC_RUN
+    #    ? ($to, $self->uri)
+    #    : (QUOTE. $to .QUOTE, QUOTE. $self->uri .QUOTE);
+
+    ### shell out ###
+    my $captured;
+    unless(run( command => $cmd,
+                buffer  => \$captured,
+                verbose => $DEBUG
+    )) {
+        ### wget creates the output document always, even if the fetch
+        ### fails.. so unlink it in that case
+        1 while unlink $to;
+
+        return $self->_error(loc( "Command failed: %1", $captured || '' ));
+    }
+
+    return $to;
+}
+
+### /bin/lftp fetch ###
+sub _lftp_fetch {
+    my $self = shift;
+    my %hash = @_;
+
+    my ($to);
+    my $tmpl = {
+        to  => { required => 1, store => \$to }
+    };
+    check( $tmpl, \%hash ) or return;
+
+    ### see if we have a lftp binary ###
+    my $lftp;
+    unless( $lftp = can_run('lftp') ) {
+        $METHOD_FAIL->{'lftp'} = 1;
+        return;
+    }
+
+    ### no verboseness, thanks ###
+    my $cmd = [ $lftp, '-f' ];
+
+    my $fh = File::Temp->new;
+
+    my $str;
+
+    ### if a timeout is set, add it ###
+    $str .= "set net:timeout $TIMEOUT;\n" if $TIMEOUT;
+
+    ### run passive if specified ###
+    $str .= "set ftp:passive-mode 1;\n" if $FTP_PASSIVE;
+
+    ### set the output document, add the uri ###
+    ### quote the URI, because lftp supports certain shell
+    ### expansions, most notably & for backgrounding.
+    ### ' quote does nto work, must be "
+    $str .= q[get ']. $self->uri .q[' -o ]. $to . $/;
+
+    if( $DEBUG ) {
+        my $pp_str = join ' ', split $/, $str;
+        print "# lftp command: $pp_str\n";
+    }
+
+    ### write straight to the file.
+    $fh->autoflush(1);
+    print $fh $str;
+
+    ### the command needs to be 1 string to be executed
+    push @$cmd, $fh->filename;
+
+    ### with IPC::Cmd > 0.41, this is fixed in teh library,
+    ### and there's no need for special casing any more.
+    ### DO NOT quote things for IPC::Run, it breaks stuff.
+    # $IPC::Cmd::USE_IPC_RUN
+    #    ? ($to, $self->uri)
+    #    : (QUOTE. $to .QUOTE, QUOTE. $self->uri .QUOTE);
+
+
+    ### shell out ###
+    my $captured;
+    unless(run( command => $cmd,
+                buffer  => \$captured,
+                verbose => $DEBUG
+    )) {
+        ### wget creates the output document always, even if the fetch
+        ### fails.. so unlink it in that case
+        1 while unlink $to;
+
+        return $self->_error(loc( "Command failed: %1", $captured || '' ));
+    }
+
+    return $to;
+}
+
+
+
+### /bin/ftp fetch ###
+sub _ftp_fetch {
+    my $self = shift;
+    my %hash = @_;
+
+    my ($to);
+    my $tmpl = {
+        to  => { required => 1, store => \$to }
+    };
+    check( $tmpl, \%hash ) or return;
+
+    ### see if we have a ftp binary ###
+    my $ftp;
+    unless( $ftp = can_run('ftp') ) {
+        $METHOD_FAIL->{'ftp'} = 1;
+        return;
+    }
+
+    my $fh = FileHandle->new;
+
+    local $SIG{CHLD} = 'IGNORE';
+
+    unless ($fh->open("$ftp -n", '|-')) {
+        return $self->_error(loc("%1 creation failed: %2", $ftp, $!));
+    }
+
+    my @dialog = (
+        "lcd " . dirname($to),
+        "open " . $self->host,
+        "user anonymous $FROM_EMAIL",
+        "cd /",
+        "cd " . $self->path,
+        "binary",
+        "get " . $self->file . " " . $self->output_file,
+        "quit",
+    );
+
+    foreach (@dialog) { $fh->print($_, "\n") }
+    $fh->close or return;
+
+    return $to;
+}
+
+### lynx is stupid - it decompresses any .gz file it finds to be text
+### use /bin/lynx to fetch files
+sub _lynx_fetch {
+    my $self = shift;
+    my %hash = @_;
+
+    my ($to);
+    my $tmpl = {
+        to  => { required => 1, store => \$to }
+    };
+    check( $tmpl, \%hash ) or return;
+
+    ### see if we have a lynx binary ###
+    my $lynx;
+    unless ( $lynx = can_run('lynx') ){
+        $METHOD_FAIL->{'lynx'} = 1;
+        return;
+    }
+
+    unless( IPC::Cmd->can_capture_buffer ) {
+        $METHOD_FAIL->{'lynx'} = 1;
+
+        return $self->_error(loc(
+            "Can not capture buffers. Can not use '%1' to fetch files",
+            'lynx' ));
+    }
+
+    ### check if the HTTP resource exists ###
+    if ($self->uri =~ /^https?:\/\//i) {
+        my $cmd = [
+            $lynx,
+            '-head',
+            '-source',
+            "-auth=anonymous:$FROM_EMAIL",
+        ];
+
+        push @$cmd, "-connect_timeout=$TIMEOUT" if $TIMEOUT;
+
+        push @$cmd, $self->uri;
+
+        ### shell out ###
+        my $head;
+        unless(run( command => $cmd,
+                    buffer  => \$head,
+                    verbose => $DEBUG )
+        ) {
+            return $self->_error(loc("Command failed: %1", $head || ''));
+        }
+
+        unless($head =~ /^HTTP\/\d+\.\d+ 200\b/) {
+            return $self->_error(loc("Command failed: %1", $head || ''));
+        }
+    }
+
+    ### write to the output file ourselves, since lynx ass_u_mes to much
+    my $local = FileHandle->new( $to, 'w' )
+                    or return $self->_error(loc(
+                        "Could not open '%1' for writing: %2",$to,$!));
+
+    ### dump to stdout ###
+    my $cmd = [
+        $lynx,
+        '-source',
+        "-auth=anonymous:$FROM_EMAIL",
+    ];
+
+    push @$cmd, "-connect_timeout=$TIMEOUT" if $TIMEOUT;
+
+    ### DO NOT quote things for IPC::Run, it breaks stuff.
+    push @$cmd, $self->uri;
+
+    ### with IPC::Cmd > 0.41, this is fixed in teh library,
+    ### and there's no need for special casing any more.
+    ### DO NOT quote things for IPC::Run, it breaks stuff.
+    # $IPC::Cmd::USE_IPC_RUN
+    #    ? $self->uri
+    #    : QUOTE. $self->uri .QUOTE;
+
+
+    ### shell out ###
+    my $captured;
+    unless(run( command => $cmd,
+                buffer  => \$captured,
+                verbose => $DEBUG )
+    ) {
+        return $self->_error(loc("Command failed: %1", $captured || ''));
+    }
+
+    ### print to local file ###
+    ### XXX on a 404 with a special error page, $captured will actually
+    ### hold the contents of that page, and make it *appear* like the
+    ### request was a success, when really it wasn't :(
+    ### there doesn't seem to be an option for lynx to change the exit
+    ### code based on a 4XX status or so.
+    ### the closest we can come is using --error_file and parsing that,
+    ### which is very unreliable ;(
+    $local->print( $captured );
+    $local->close or return;
+
+    return $to;
+}
+
+### use /bin/ncftp to fetch files
+sub _ncftp_fetch {
+    my $self = shift;
+    my %hash = @_;
+
+    my ($to);
+    my $tmpl = {
+        to  => { required => 1, store => \$to }
+    };
+    check( $tmpl, \%hash ) or return;
+
+    ### we can only set passive mode in interactive sessions, so bail out
+    ### if $FTP_PASSIVE is set
+    return if $FTP_PASSIVE;
+
+    ### see if we have a ncftp binary ###
+    my $ncftp;
+    unless( $ncftp = can_run('ncftp') ) {
+        $METHOD_FAIL->{'ncftp'} = 1;
+        return;
+    }
+
+    my $cmd = [
+        $ncftp,
+        '-V',                   # do not be verbose
+        '-p', $FROM_EMAIL,      # email as password
+        $self->host,            # hostname
+        dirname($to),           # local dir for the file
+                                # remote path to the file
+        ### DO NOT quote things for IPC::Run, it breaks stuff.
+        $IPC::Cmd::USE_IPC_RUN
+                    ? File::Spec::Unix->catdir( $self->path, $self->file )
+                    : QUOTE. File::Spec::Unix->catdir(
+                                    $self->path, $self->file ) .QUOTE
+
+    ];
+
+    ### shell out ###
+    my $captured;
+    unless(run( command => $cmd,
+                buffer  => \$captured,
+                verbose => $DEBUG )
+    ) {
+        return $self->_error(loc("Command failed: %1", $captured || ''));
+    }
+
+    return $to;
+
+}
+
+### use /bin/curl to fetch files
+sub _curl_fetch {
+    my $self = shift;
+    my %hash = @_;
+
+    my ($to);
+    my $tmpl = {
+        to  => { required => 1, store => \$to }
+    };
+    check( $tmpl, \%hash ) or return;
+    my $curl;
+    unless ( $curl = can_run('curl') ) {
+        $METHOD_FAIL->{'curl'} = 1;
+        return;
+    }
+
+    ### these long opts are self explanatory - I like that -jmb
+    my $cmd = [ $curl, '-q' ];
+
+    push(@$cmd, '-4') if $^O eq 'netbsd' && $FORCEIPV4; # only seen this on NetBSD so far
+
+    push(@$cmd, '--connect-timeout', $TIMEOUT) if $TIMEOUT;
+
+    push(@$cmd, '--silent') unless $DEBUG;
+
+    ### curl does the right thing with passive, regardless ###
+    if ($self->scheme eq 'ftp') {
+        push(@$cmd, '--user', "anonymous:$FROM_EMAIL");
+    }
+
+    ### curl doesn't follow 302 (temporarily moved) etc automatically
+    ### so we add --location to enable that.
+    push @$cmd, '--fail', '--location', '--output', $to, $self->uri;
+
+    ### with IPC::Cmd > 0.41, this is fixed in teh library,
+    ### and there's no need for special casing any more.
+    ### DO NOT quote things for IPC::Run, it breaks stuff.
+    # $IPC::Cmd::USE_IPC_RUN
+    #    ? ($to, $self->uri)
+    #    : (QUOTE. $to .QUOTE, QUOTE. $self->uri .QUOTE);
+
+
+    my $captured;
+    unless(run( command => $cmd,
+                buffer  => \$captured,
+                verbose => $DEBUG )
+    ) {
+
+        return $self->_error(loc("Command failed: %1", $captured || ''));
+    }
+
+    return $to;
+
+}
+
+### /usr/bin/fetch fetch! ###
+sub _fetch_fetch {
+    my $self = shift;
+    my %hash = @_;
+
+    my ($to);
+    my $tmpl = {
+        to  => { required => 1, store => \$to }
+    };
+    check( $tmpl, \%hash ) or return;
+
+    ### see if we have a fetch binary ###
+    my $fetch;
+    unless( HAS_FETCH and $fetch = can_run('fetch') ) {
+        $METHOD_FAIL->{'fetch'} = 1;
+        return;
+    }
+
+    ### no verboseness, thanks ###
+    my $cmd = [ $fetch, '-q' ];
+
+    ### if a timeout is set, add it ###
+    push(@$cmd, '-T', $TIMEOUT) if $TIMEOUT;
+
+    ### run passive if specified ###
+    #push @$cmd, '-p' if $FTP_PASSIVE;
+    local $ENV{'FTP_PASSIVE_MODE'} = 1 if $FTP_PASSIVE;
+
+    ### set the output document, add the uri ###
+    push @$cmd, '-o', $to, $self->uri;
+
+    ### with IPC::Cmd > 0.41, this is fixed in teh library,
+    ### and there's no need for special casing any more.
+    ### DO NOT quote things for IPC::Run, it breaks stuff.
+    # $IPC::Cmd::USE_IPC_RUN
+    #    ? ($to, $self->uri)
+    #    : (QUOTE. $to .QUOTE, QUOTE. $self->uri .QUOTE);
+
+    ### shell out ###
+    my $captured;
+    unless(run( command => $cmd,
+                buffer  => \$captured,
+                verbose => $DEBUG
+    )) {
+        ### wget creates the output document always, even if the fetch
+        ### fails.. so unlink it in that case
+        1 while unlink $to;
+
+        return $self->_error(loc( "Command failed: %1", $captured || '' ));
+    }
+
+    return $to;
+}
+
+### use File::Copy for fetching file:// urls ###
+###
+### See section 3.10 of RFC 1738 (http://www.faqs.org/rfcs/rfc1738.html)
+### Also see wikipedia on file:// (http://en.wikipedia.org/wiki/File://)
+###
+
+sub _file_fetch {
+    my $self = shift;
+    my %hash = @_;
+
+    my ($to);
+    my $tmpl = {
+        to  => { required => 1, store => \$to }
+    };
+    check( $tmpl, \%hash ) or return;
+
+
+
+    ### prefix a / on unix systems with a file uri, since it would
+    ### look somewhat like this:
+    ###     file:///home/kane/file
+    ### whereas windows file uris for 'c:\some\dir\file' might look like:
+    ###     file:///C:/some/dir/file
+    ###     file:///C|/some/dir/file
+    ### or for a network share '\\host\share\some\dir\file':
+    ###     file:////host/share/some/dir/file
+    ###
+    ### VMS file uri's for 'DISK$USER:[MY.NOTES]NOTE123456.TXT' might look like:
+    ###     file://vms.host.edu/disk$user/my/notes/note12345.txt
+    ###
+
+    my $path    = $self->path;
+    my $vol     = $self->vol;
+    my $share   = $self->share;
+
+    my $remote;
+    if (!$share and $self->host) {
+        return $self->_error(loc(
+            "Currently %1 cannot handle hosts in %2 urls",
+            'File::Fetch', 'file://'
+        ));
+    }
+
+    if( $vol ) {
+        $path   = File::Spec->catdir( split /\//, $path );
+        $remote = File::Spec->catpath( $vol, $path, $self->file);
+
+    } elsif( $share ) {
+        ### win32 specific, and a share name, so we wont bother with File::Spec
+        $path   =~ s|/+|\\|g;
+        $remote = "\\\\".$self->host."\\$share\\$path";
+
+    } else {
+        ### File::Spec on VMS can not currently handle UNIX syntax.
+        my $file_class = ON_VMS
+            ? 'File::Spec::Unix'
+            : 'File::Spec';
+
+        $remote  = $file_class->catfile( $path, $self->file );
+    }
+
+    ### File::Copy is littered with 'die' statements :( ###
+    my $rv = eval { File::Copy::copy( $remote, $to ) };
+
+    ### something went wrong ###
+    if( !$rv or $@ ) {
+        return $self->_error(loc("Could not copy '%1' to '%2': %3 %4",
+                             $remote, $to, $!, $@));
+    }
+
+    return $to;
+}
+
+### use /usr/bin/rsync to fetch files
+sub _rsync_fetch {
+    my $self = shift;
+    my %hash = @_;
+
+    my ($to);
+    my $tmpl = {
+        to  => { required => 1, store => \$to }
+    };
+    check( $tmpl, \%hash ) or return;
+    my $rsync;
+    unless ( $rsync = can_run('rsync') ) {
+        $METHOD_FAIL->{'rsync'} = 1;
+        return;
+    }
+
+    my $cmd = [ $rsync ];
+
+    ### XXX: rsync has no I/O timeouts at all, by default
+    push(@$cmd, '--timeout=' . $TIMEOUT) if $TIMEOUT;
+
+    push(@$cmd, '--quiet') unless $DEBUG;
+
+    ### DO NOT quote things for IPC::Run, it breaks stuff.
+    push @$cmd, $self->uri, $to;
+
+    ### with IPC::Cmd > 0.41, this is fixed in teh library,
+    ### and there's no need for special casing any more.
+    ### DO NOT quote things for IPC::Run, it breaks stuff.
+    # $IPC::Cmd::USE_IPC_RUN
+    #    ? ($to, $self->uri)
+    #    : (QUOTE. $to .QUOTE, QUOTE. $self->uri .QUOTE);
+
+    my $captured;
+    unless(run( command => $cmd,
+                buffer  => \$captured,
+                verbose => $DEBUG )
+    ) {
+
+        return $self->_error(loc("Command %1 failed: %2",
+            "@$cmd" || '', $captured || ''));
+    }
+
+    return $to;
+
+}
+
+### use git to fetch files
+sub _git_fetch {
+    my $self = shift;
+    my %hash = @_;
+
+    my ($to);
+    my $tmpl = {
+        to  => { required => 1, store => \$to }
+    };
+    check( $tmpl, \%hash ) or return;
+    my $git;
+    unless ( $git = can_run('git') ) {
+        $METHOD_FAIL->{'git'} = 1;
+        return;
+    }
+
+    my $cmd = [ $git, 'clone' ];
+
+    #push(@$cmd, '--timeout=' . $TIMEOUT) if $TIMEOUT;
+
+    push(@$cmd, '--quiet') unless $DEBUG;
+
+    ### DO NOT quote things for IPC::Run, it breaks stuff.
+    push @$cmd, $self->uri, $to;
+
+    ### with IPC::Cmd > 0.41, this is fixed in teh library,
+    ### and there's no need for special casing any more.
+    ### DO NOT quote things for IPC::Run, it breaks stuff.
+    # $IPC::Cmd::USE_IPC_RUN
+    #    ? ($to, $self->uri)
+    #    : (QUOTE. $to .QUOTE, QUOTE. $self->uri .QUOTE);
+
+    my $captured;
+    unless(run( command => $cmd,
+                buffer  => \$captured,
+                verbose => $DEBUG )
+    ) {
+
+        return $self->_error(loc("Command %1 failed: %2",
+            "@$cmd" || '', $captured || ''));
+    }
+
+    return $to;
+
+}
+
+#################################
+#
+# Error code
+#
+#################################
+
+=pod
+
+=head2 $ff->error([BOOL])
+
+Returns the last encountered error as string.
+Pass it a true value to get the C<Carp::longmess()> output instead.
+
+=cut
+
+### error handling the way Archive::Extract does it
+sub _error {
+    my $self    = shift;
+    my $error   = shift;
+
+    $self->_error_msg( $error );
+    $self->_error_msg_long( Carp::longmess($error) );
+
+    if( $WARN ) {
+        carp $DEBUG ? $self->_error_msg_long : $self->_error_msg;
+    }
+
+    return;
+}
+
+sub error {
+    my $self = shift;
+    return shift() ? $self->_error_msg_long : $self->_error_msg;
+}
+
+
+1;
+
+=pod
+
+=head1 HOW IT WORKS
+
+File::Fetch is able to fetch a variety of uris, by using several
+external programs and modules.
+
+Below is a mapping of what utilities will be used in what order
+for what schemes, if available:
+
+    file    => LWP, lftp, file
+    http    => LWP, HTTP::Lite, wget, curl, lftp, fetch, lynx, iosock
+    ftp     => LWP, Net::FTP, wget, curl, lftp, fetch, ncftp, ftp
+    rsync   => rsync
+    git     => git
+
+If you'd like to disable the use of one or more of these utilities
+and/or modules, see the C<$BLACKLIST> variable further down.
+
+If a utility or module isn't available, it will be marked in a cache
+(see the C<$METHOD_FAIL> variable further down), so it will not be
+tried again. The C<fetch> method will only fail when all options are
+exhausted, and it was not able to retrieve the file.
+
+The C<fetch> utility is available on FreeBSD. NetBSD and Dragonfly BSD
+may also have it from C<pkgsrc>. We only check for C<fetch> on those
+three platforms.
+
+C<iosock> is a very limited L<IO::Socket::INET> based mechanism for
+retrieving C<http> schemed urls. It doesn't follow redirects for instance.
+
+C<git> only supports C<git://> style urls.
+
+A special note about fetching files from an ftp uri:
+
+By default, all ftp connections are done in passive mode. To change
+that, see the C<$FTP_PASSIVE> variable further down.
+
+Furthermore, ftp uris only support anonymous connections, so no
+named user/password pair can be passed along.
+
+C</bin/ftp> is blacklisted by default; see the C<$BLACKLIST> variable
+further down.
+
+=head1 GLOBAL VARIABLES
+
+The behaviour of File::Fetch can be altered by changing the following
+global variables:
+
+=head2 $File::Fetch::FROM_EMAIL
+
+This is the email address that will be sent as your anonymous ftp
+password.
+
+Default is C<File-Fetch@example.com>.
+
+=head2 $File::Fetch::USER_AGENT
+
+This is the useragent as C<LWP> will report it.
+
+Default is C<File::Fetch/$VERSION>.
+
+=head2 $File::Fetch::FTP_PASSIVE
+
+This variable controls whether the environment variable C<FTP_PASSIVE>
+and any passive switches to commandline tools will be set to true.
+
+Default value is 1.
+
+Note: When $FTP_PASSIVE is true, C<ncftp> will not be used to fetch
+files, since passive mode can only be set interactively for this binary
+
+=head2 $File::Fetch::TIMEOUT
+
+When set, controls the network timeout (counted in seconds).
+
+Default value is 0.
+
+=head2 $File::Fetch::WARN
+
+This variable controls whether errors encountered internally by
+C<File::Fetch> should be C<carp>'d or not.
+
+Set to false to silence warnings. Inspect the output of the C<error()>
+method manually to see what went wrong.
+
+Defaults to C<true>.
+
+=head2 $File::Fetch::DEBUG
+
+This enables debugging output when calling commandline utilities to
+fetch files.
+This also enables C<Carp::longmess> errors, instead of the regular
+C<carp> errors.
+
+Good for tracking down why things don't work with your particular
+setup.
+
+Default is 0.
+
+=head2 $File::Fetch::BLACKLIST
+
+This is an array ref holding blacklisted modules/utilities for fetching
+files with.
+
+To disallow the use of, for example, C<LWP> and C<Net::FTP>, you could
+set $File::Fetch::BLACKLIST to:
+
+    $File::Fetch::BLACKLIST = [qw|lwp netftp|]
+
+The default blacklist is [qw|ftp|], as C</bin/ftp> is rather unreliable.
+
+See the note on C<MAPPING> below.
+
+=head2 $File::Fetch::METHOD_FAIL
+
+This is a hashref registering what modules/utilities were known to fail
+for fetching files (mostly because they weren't installed).
+
+You can reset this cache by assigning an empty hashref to it, or
+individually remove keys.
+
+See the note on C<MAPPING> below.
+
+=head1 MAPPING
+
+
+Here's a quick mapping for the utilities/modules, and their names for
+the $BLACKLIST, $METHOD_FAIL and other internal functions.
+
+    LWP         => lwp
+    HTTP::Lite  => httplite
+    HTTP::Tiny  => httptiny
+    Net::FTP    => netftp
+    wget        => wget
+    lynx        => lynx
+    ncftp       => ncftp
+    ftp         => ftp
+    curl        => curl
+    rsync       => rsync
+    lftp        => lftp
+    fetch       => fetch
+    IO::Socket  => iosock
+
+=head1 FREQUENTLY ASKED QUESTIONS
+
+=head2 So how do I use a proxy with File::Fetch?
+
+C<File::Fetch> currently only supports proxies with LWP::UserAgent.
+You will need to set your environment variables accordingly. For
+example, to use an ftp proxy:
+
+    $ENV{ftp_proxy} = 'foo.com';
+
+Refer to the LWP::UserAgent manpage for more details.
+
+=head2 I used 'lynx' to fetch a file, but its contents is all wrong!
+
+C<lynx> can only fetch remote files by dumping its contents to C<STDOUT>,
+which we in turn capture. If that content is a 'custom' error file
+(like, say, a C<404 handler>), you will get that contents instead.
+
+Sadly, C<lynx> doesn't support any options to return a different exit
+code on non-C<200 OK> status, giving us no way to tell the difference
+between a 'successful' fetch and a custom error page.
+
+Therefor, we recommend to only use C<lynx> as a last resort. This is
+why it is at the back of our list of methods to try as well.
+
+=head2 Files I'm trying to fetch have reserved characters or non-ASCII characters in them. What do I do?
+
+C<File::Fetch> is relatively smart about things. When trying to write
+a file to disk, it removes the C<query parameters> (see the
+C<output_file> method for details) from the file name before creating
+it. In most cases this suffices.
+
+If you have any other characters you need to escape, please install
+the C<URI::Escape> module from CPAN, and pre-encode your URI before
+passing it to C<File::Fetch>. You can read about the details of URIs
+and URI encoding here:
+
+  http://www.faqs.org/rfcs/rfc2396.html
+
+=head1 TODO
+
+=over 4
+
+=item Implement $PREFER_BIN
+
+To indicate to rather use commandline tools than modules
+
+=back
+
+=head1 BUG REPORTS
+
+Please report bugs or other issues to E<lt>bug-file-fetch@rt.cpan.org<gt>.
+
+=head1 AUTHOR
+
+This module by Jos Boumans E<lt>kane@cpan.orgE<gt>.
+
+=head1 COPYRIGHT
+
+This library is free software; you may redistribute and/or modify it
+under the same terms as Perl itself.
+
+
+=cut
+
+# Local variables:
+# c-indentation-style: bsd
+# c-basic-offset: 4
+# indent-tabs-mode: nil
+# End:
+# vim: expandtab shiftwidth=4:
+
+
+
+
diff --git a/lib/5.24.1/File/Find.pm b/lib/5.24.1/File/Find.pm
new file mode 100644
index 00000000..03dac9fb
--- /dev/null
+++ b/lib/5.24.1/File/Find.pm
@@ -0,0 +1,1149 @@
+package File::Find;
+use 5.006;
+use strict;
+use warnings;
+use warnings::register;
+our $VERSION = '1.34';
+require Exporter;
+require Cwd;
+
+our @ISA = qw(Exporter);
+our @EXPORT = qw(find finddepth);
+
+
+use strict;
+my $Is_VMS;
+my $Is_Win32;
+
+require File::Basename;
+require File::Spec;
+
+# Should ideally be my() not our() but local() currently
+# refuses to operate on lexicals
+
+our %SLnkSeen;
+our ($wanted_callback, $avoid_nlink, $bydepth, $no_chdir, $follow,
+    $follow_skip, $full_check, $untaint, $untaint_skip, $untaint_pat,
+    $pre_process, $post_process, $dangling_symlinks);
+
+sub contract_name {
+    my ($cdir,$fn) = @_;
+
+    return substr($cdir,0,rindex($cdir,'/')) if $fn eq $File::Find::current_dir;
+
+    $cdir = substr($cdir,0,rindex($cdir,'/')+1);
+
+    $fn =~ s|^\./||;
+
+    my $abs_name= $cdir . $fn;
+
+    if (substr($fn,0,3) eq '../') {
+       1 while $abs_name =~ s!/[^/]*/\.\./+!/!;
+    }
+
+    return $abs_name;
+}
+
+sub PathCombine($$) {
+    my ($Base,$Name) = @_;
+    my $AbsName;
+
+    if (substr($Name,0,1) eq '/') {
+	$AbsName= $Name;
+    }
+    else {
+	$AbsName= contract_name($Base,$Name);
+    }
+
+    # (simple) check for recursion
+    my $newlen= length($AbsName);
+    if ($newlen <= length($Base)) {
+	if (($newlen == length($Base) || substr($Base,$newlen,1) eq '/')
+	    && $AbsName eq substr($Base,0,$newlen))
+	{
+	    return undef;
+	}
+    }
+    return $AbsName;
+}
+
+sub Follow_SymLink($) {
+    my ($AbsName) = @_;
+
+    my ($NewName,$DEV, $INO);
+    ($DEV, $INO)= lstat $AbsName;
+
+    while (-l _) {
+	if ($SLnkSeen{$DEV, $INO}++) {
+	    if ($follow_skip < 2) {
+		die "$AbsName is encountered a second time";
+	    }
+	    else {
+		return undef;
+	    }
+	}
+	$NewName= PathCombine($AbsName, readlink($AbsName));
+	unless(defined $NewName) {
+	    if ($follow_skip < 2) {
+		die "$AbsName is a recursive symbolic link";
+	    }
+	    else {
+		return undef;
+	    }
+	}
+	else {
+	    $AbsName= $NewName;
+	}
+	($DEV, $INO) = lstat($AbsName);
+	return undef unless defined $DEV;  #  dangling symbolic link
+    }
+
+    if ($full_check && defined $DEV && $SLnkSeen{$DEV, $INO}++) {
+	if ( ($follow_skip < 1) || ((-d _) && ($follow_skip < 2)) ) {
+	    die "$AbsName encountered a second time";
+	}
+	else {
+	    return undef;
+	}
+    }
+
+    return $AbsName;
+}
+
+our($dir, $name, $fullname, $prune);
+sub _find_dir_symlnk($$$);
+sub _find_dir($$$);
+
+# check whether or not a scalar variable is tainted
+# (code straight from the Camel, 3rd ed., page 561)
+sub is_tainted_pp {
+    my $arg = shift;
+    my $nada = substr($arg, 0, 0); # zero-length
+    local $@;
+    eval { eval "# $nada" };
+    return length($@) != 0;
+}
+
+sub _find_opt {
+    my $wanted = shift;
+    return unless @_;
+    die "invalid top directory" unless defined $_[0];
+
+    # This function must local()ize everything because callbacks may
+    # call find() or finddepth()
+
+    local %SLnkSeen;
+    local ($wanted_callback, $avoid_nlink, $bydepth, $no_chdir, $follow,
+	$follow_skip, $full_check, $untaint, $untaint_skip, $untaint_pat,
+	$pre_process, $post_process, $dangling_symlinks);
+    local($dir, $name, $fullname, $prune);
+    local *_ = \my $a;
+
+    my $cwd            = $wanted->{bydepth} ? Cwd::fastcwd() : Cwd::getcwd();
+    if ($Is_VMS) {
+	# VMS returns this by default in VMS format which just doesn't
+	# work for the rest of this module.
+	$cwd = VMS::Filespec::unixpath($cwd);
+
+	# Apparently this is not expected to have a trailing space.
+	# To attempt to make VMS/UNIX conversions mostly reversible,
+	# a trailing slash is needed.  The run-time functions ignore the
+	# resulting double slash, but it causes the perl tests to fail.
+        $cwd =~ s#/\z##;
+
+	# This comes up in upper case now, but should be lower.
+	# In the future this could be exact case, no need to change.
+    }
+    my $cwd_untainted  = $cwd;
+    my $check_t_cwd    = 1;
+    $wanted_callback   = $wanted->{wanted};
+    $bydepth           = $wanted->{bydepth};
+    $pre_process       = $wanted->{preprocess};
+    $post_process      = $wanted->{postprocess};
+    $no_chdir          = $wanted->{no_chdir};
+    $full_check        = $Is_Win32 ? 0 : $wanted->{follow};
+    $follow            = $Is_Win32 ? 0 :
+                             $full_check || $wanted->{follow_fast};
+    $follow_skip       = $wanted->{follow_skip};
+    $untaint           = $wanted->{untaint};
+    $untaint_pat       = $wanted->{untaint_pattern};
+    $untaint_skip      = $wanted->{untaint_skip};
+    $dangling_symlinks = $wanted->{dangling_symlinks};
+
+    # for compatibility reasons (find.pl, find2perl)
+    local our ($topdir, $topdev, $topino, $topmode, $topnlink);
+
+    # a symbolic link to a directory doesn't increase the link count
+    $avoid_nlink      = $follow || $File::Find::dont_use_nlink;
+
+    my ($abs_dir, $Is_Dir);
+
+    Proc_Top_Item:
+    foreach my $TOP (@_) {
+	my $top_item = $TOP;
+	$top_item = VMS::Filespec::unixify($top_item) if $Is_VMS;
+
+	($topdev,$topino,$topmode,$topnlink) = $follow ? stat $top_item : lstat $top_item;
+
+	if ($Is_Win32) {
+	    $top_item =~ s|[/\\]\z||
+	      unless $top_item =~ m{^(?:\w:)?[/\\]$};
+	}
+	else {
+	    $top_item =~ s|/\z|| unless $top_item eq '/';
+	}
+
+	$Is_Dir= 0;
+
+	if ($follow) {
+
+	    if (substr($top_item,0,1) eq '/') {
+		$abs_dir = $top_item;
+	    }
+	    elsif ($top_item eq $File::Find::current_dir) {
+		$abs_dir = $cwd;
+	    }
+	    else {  # care about any  ../
+		$top_item =~ s/\.dir\z//i if $Is_VMS;
+		$abs_dir = contract_name("$cwd/",$top_item);
+	    }
+	    $abs_dir= Follow_SymLink($abs_dir);
+	    unless (defined $abs_dir) {
+		if ($dangling_symlinks) {
+		    if (ref $dangling_symlinks eq 'CODE') {
+			$dangling_symlinks->($top_item, $cwd);
+		    } else {
+			warnings::warnif "$top_item is a dangling symbolic link\n";
+		    }
+		}
+		next Proc_Top_Item;
+	    }
+
+	    if (-d _) {
+		$top_item =~ s/\.dir\z//i if $Is_VMS;
+		_find_dir_symlnk($wanted, $abs_dir, $top_item);
+		$Is_Dir= 1;
+	    }
+	}
+	else { # no follow
+	    $topdir = $top_item;
+	    unless (defined $topnlink) {
+		warnings::warnif "Can't stat $top_item: $!\n";
+		next Proc_Top_Item;
+	    }
+	    if (-d _) {
+		$top_item =~ s/\.dir\z//i if $Is_VMS;
+		_find_dir($wanted, $top_item, $topnlink);
+		$Is_Dir= 1;
+	    }
+	    else {
+		$abs_dir= $top_item;
+	    }
+	}
+
+	unless ($Is_Dir) {
+	    unless (($_,$dir) = File::Basename::fileparse($abs_dir)) {
+		($dir,$_) = ('./', $top_item);
+	    }
+
+	    $abs_dir = $dir;
+	    if (( $untaint ) && (is_tainted($dir) )) {
+		( $abs_dir ) = $dir =~ m|$untaint_pat|;
+		unless (defined $abs_dir) {
+		    if ($untaint_skip == 0) {
+			die "directory $dir is still tainted";
+		    }
+		    else {
+			next Proc_Top_Item;
+		    }
+		}
+	    }
+
+	    unless ($no_chdir || chdir $abs_dir) {
+		warnings::warnif "Couldn't chdir $abs_dir: $!\n";
+		next Proc_Top_Item;
+	    }
+
+	    $name = $abs_dir . $_; # $File::Find::name
+	    $_ = $name if $no_chdir;
+
+	    { $wanted_callback->() }; # protect against wild "next"
+
+	}
+
+	unless ( $no_chdir ) {
+	    if ( ($check_t_cwd) && (($untaint) && (is_tainted($cwd) )) ) {
+		( $cwd_untainted ) = $cwd =~ m|$untaint_pat|;
+		unless (defined $cwd_untainted) {
+		    die "insecure cwd in find(depth)";
+		}
+		$check_t_cwd = 0;
+	    }
+	    unless (chdir $cwd_untainted) {
+		die "Can't cd to $cwd: $!\n";
+	    }
+	}
+    }
+}
+
+# API:
+#  $wanted
+#  $p_dir :  "parent directory"
+#  $nlink :  what came back from the stat
+# preconditions:
+#  chdir (if not no_chdir) to dir
+
+sub _find_dir($$$) {
+    my ($wanted, $p_dir, $nlink) = @_;
+    my ($CdLvl,$Level) = (0,0);
+    my @Stack;
+    my @filenames;
+    my ($subcount,$sub_nlink);
+    my $SE= [];
+    my $dir_name= $p_dir;
+    my $dir_pref;
+    my $dir_rel = $File::Find::current_dir;
+    my $tainted = 0;
+    my $no_nlink;
+
+    if ($Is_Win32) {
+	$dir_pref
+	  = ($p_dir =~ m{^(?:\w:[/\\]?|[/\\])$} ? $p_dir : "$p_dir/" );
+    } elsif ($Is_VMS) {
+
+	#	VMS is returning trailing .dir on directories
+	#	and trailing . on files and symbolic links
+	#	in UNIX syntax.
+	#
+
+	$p_dir =~ s/\.(dir)?$//i unless $p_dir eq '.';
+
+	$dir_pref = ($p_dir =~ m/[\]>]+$/ ? $p_dir : "$p_dir/" );
+    }
+    else {
+	$dir_pref= ( $p_dir eq '/' ? '/' : "$p_dir/" );
+    }
+
+    local ($dir, $name, $prune, *DIR);
+
+    unless ( $no_chdir || ($p_dir eq $File::Find::current_dir)) {
+	my $udir = $p_dir;
+	if (( $untaint ) && (is_tainted($p_dir) )) {
+	    ( $udir ) = $p_dir =~ m|$untaint_pat|;
+	    unless (defined $udir) {
+		if ($untaint_skip == 0) {
+		    die "directory $p_dir is still tainted";
+		}
+		else {
+		    return;
+		}
+	    }
+	}
+	unless (chdir ($Is_VMS && $udir !~ /[\/\[<]+/ ? "./$udir" : $udir)) {
+	    warnings::warnif "Can't cd to $udir: $!\n";
+	    return;
+	}
+    }
+
+    # push the starting directory
+    push @Stack,[$CdLvl,$p_dir,$dir_rel,-1]  if  $bydepth;
+
+    while (defined $SE) {
+	unless ($bydepth) {
+	    $dir= $p_dir; # $File::Find::dir
+	    $name= $dir_name; # $File::Find::name
+	    $_= ($no_chdir ? $dir_name : $dir_rel ); # $_
+	    # prune may happen here
+	    $prune= 0;
+	    { $wanted_callback->() };	# protect against wild "next"
+	    next if $prune;
+	}
+
+	# change to that directory
+	unless ($no_chdir || ($dir_rel eq $File::Find::current_dir)) {
+	    my $udir= $dir_rel;
+	    if ( ($untaint) && (($tainted) || ($tainted = is_tainted($dir_rel) )) ) {
+		( $udir ) = $dir_rel =~ m|$untaint_pat|;
+		unless (defined $udir) {
+		    if ($untaint_skip == 0) {
+			die "directory (" . ($p_dir ne '/' ? $p_dir : '') . "/) $dir_rel is still tainted";
+		    } else { # $untaint_skip == 1
+			next;
+		    }
+		}
+	    }
+	    unless (chdir ($Is_VMS && $udir !~ /[\/\[<]+/ ? "./$udir" : $udir)) {
+		warnings::warnif "Can't cd to (" .
+		    ($p_dir ne '/' ? $p_dir : '') . "/) $udir: $!\n";
+		next;
+	    }
+	    $CdLvl++;
+	}
+
+	$dir= $dir_name; # $File::Find::dir
+
+	# Get the list of files in the current directory.
+	unless (opendir DIR, ($no_chdir ? $dir_name : $File::Find::current_dir)) {
+	    warnings::warnif "Can't opendir($dir_name): $!\n";
+	    next;
+	}
+	@filenames = readdir DIR;
+	closedir(DIR);
+	@filenames = $pre_process->(@filenames) if $pre_process;
+	push @Stack,[$CdLvl,$dir_name,"",-2]   if $post_process;
+
+	# default: use whatever was specified
+        # (if $nlink >= 2, and $avoid_nlink == 0, this will switch back)
+        $no_nlink = $avoid_nlink;
+        # if dir has wrong nlink count, force switch to slower stat method
+        $no_nlink = 1 if ($nlink < 2);
+
+	if ($nlink == 2 && !$no_nlink) {
+	    # This dir has no subdirectories.
+	    for my $FN (@filenames) {
+		if ($Is_VMS) {
+		# Big hammer here - Compensate for VMS trailing . and .dir
+		# No win situation until this is changed, but this
+		# will handle the majority of the cases with breaking the fewest
+
+		    $FN =~ s/\.dir\z//i;
+		    $FN =~ s#\.$## if ($FN ne '.');
+		}
+		next if $FN =~ $File::Find::skip_pattern;
+		
+		$name = $dir_pref . $FN; # $File::Find::name
+		$_ = ($no_chdir ? $name : $FN); # $_
+		{ $wanted_callback->() }; # protect against wild "next"
+	    }
+
+	}
+	else {
+	    # This dir has subdirectories.
+	    $subcount = $nlink - 2;
+
+	    # HACK: insert directories at this position, so as to preserve
+	    # the user pre-processed ordering of files (thus ensuring
+	    # directory traversal is in user sorted order, not at random).
+            my $stack_top = @Stack;
+
+	    for my $FN (@filenames) {
+		next if $FN =~ $File::Find::skip_pattern;
+		if ($subcount > 0 || $no_nlink) {
+		    # Seen all the subdirs?
+		    # check for directoriness.
+		    # stat is faster for a file in the current directory
+		    $sub_nlink = (lstat ($no_chdir ? $dir_pref . $FN : $FN))[3];
+
+		    if (-d _) {
+			--$subcount;
+			$FN =~ s/\.dir\z//i if $Is_VMS;
+			# HACK: replace push to preserve dir traversal order
+			#push @Stack,[$CdLvl,$dir_name,$FN,$sub_nlink];
+			splice @Stack, $stack_top, 0,
+			         [$CdLvl,$dir_name,$FN,$sub_nlink];
+		    }
+		    else {
+			$name = $dir_pref . $FN; # $File::Find::name
+			$_= ($no_chdir ? $name : $FN); # $_
+			{ $wanted_callback->() }; # protect against wild "next"
+		    }
+		}
+		else {
+		    $name = $dir_pref . $FN; # $File::Find::name
+		    $_= ($no_chdir ? $name : $FN); # $_
+		    { $wanted_callback->() }; # protect against wild "next"
+		}
+	    }
+	}
+    }
+    continue {
+	while ( defined ($SE = pop @Stack) ) {
+	    ($Level, $p_dir, $dir_rel, $nlink) = @$SE;
+	    if ($CdLvl > $Level && !$no_chdir) {
+		my $tmp;
+		if ($Is_VMS) {
+		    $tmp = '[' . ('-' x ($CdLvl-$Level)) . ']';
+		}
+		else {
+		    $tmp = join('/',('..') x ($CdLvl-$Level));
+		}
+		die "Can't cd to $tmp from $dir_name: $!"
+		    unless chdir ($tmp);
+		$CdLvl = $Level;
+	    }
+
+	    if ($Is_Win32) {
+		$dir_name = ($p_dir =~ m{^(?:\w:[/\\]?|[/\\])$}
+		    ? "$p_dir$dir_rel" : "$p_dir/$dir_rel");
+		$dir_pref = "$dir_name/";
+	    }
+	    elsif ($^O eq 'VMS') {
+                if ($p_dir =~ m/[\]>]+$/) {
+                    $dir_name = $p_dir;
+                    $dir_name =~ s/([\]>]+)$/.$dir_rel$1/;
+                    $dir_pref = $dir_name;
+                }
+                else {
+                    $dir_name = "$p_dir/$dir_rel";
+                    $dir_pref = "$dir_name/";
+                }
+	    }
+	    else {
+		$dir_name = ($p_dir eq '/' ? "/$dir_rel" : "$p_dir/$dir_rel");
+		$dir_pref = "$dir_name/";
+	    }
+
+	    if ( $nlink == -2 ) {
+		$name = $dir = $p_dir; # $File::Find::name / dir
+                $_ = $File::Find::current_dir;
+		$post_process->();		# End-of-directory processing
+	    }
+	    elsif ( $nlink < 0 ) {  # must be finddepth, report dirname now
+		$name = $dir_name;
+		if ( substr($name,-2) eq '/.' ) {
+		    substr($name, length($name) == 2 ? -1 : -2) = '';
+		}
+		$dir = $p_dir;
+		$_ = ($no_chdir ? $dir_name : $dir_rel );
+		if ( substr($_,-2) eq '/.' ) {
+		    substr($_, length($_) == 2 ? -1 : -2) = '';
+		}
+		{ $wanted_callback->() }; # protect against wild "next"
+	     }
+	     else {
+		push @Stack,[$CdLvl,$p_dir,$dir_rel,-1]  if  $bydepth;
+		last;
+	    }
+	}
+    }
+}
+
+
+# API:
+#  $wanted
+#  $dir_loc : absolute location of a dir
+#  $p_dir   : "parent directory"
+# preconditions:
+#  chdir (if not no_chdir) to dir
+
+sub _find_dir_symlnk($$$) {
+    my ($wanted, $dir_loc, $p_dir) = @_; # $dir_loc is the absolute directory
+    my @Stack;
+    my @filenames;
+    my $new_loc;
+    my $updir_loc = $dir_loc; # untainted parent directory
+    my $SE = [];
+    my $dir_name = $p_dir;
+    my $dir_pref;
+    my $loc_pref;
+    my $dir_rel = $File::Find::current_dir;
+    my $byd_flag; # flag for pending stack entry if $bydepth
+    my $tainted = 0;
+    my $ok = 1;
+
+    $dir_pref = ( $p_dir   eq '/' ? '/' : "$p_dir/" );
+    $loc_pref = ( $dir_loc eq '/' ? '/' : "$dir_loc/" );
+
+    local ($dir, $name, $fullname, $prune, *DIR);
+
+    unless ($no_chdir) {
+	# untaint the topdir
+	if (( $untaint ) && (is_tainted($dir_loc) )) {
+	    ( $updir_loc ) = $dir_loc =~ m|$untaint_pat|; # parent dir, now untainted
+	     # once untainted, $updir_loc is pushed on the stack (as parent directory);
+	    # hence, we don't need to untaint the parent directory every time we chdir
+	    # to it later
+	    unless (defined $updir_loc) {
+		if ($untaint_skip == 0) {
+		    die "directory $dir_loc is still tainted";
+		}
+		else {
+		    return;
+		}
+	    }
+	}
+	$ok = chdir($updir_loc) unless ($p_dir eq $File::Find::current_dir);
+	unless ($ok) {
+	    warnings::warnif "Can't cd to $updir_loc: $!\n";
+	    return;
+	}
+    }
+
+    push @Stack,[$dir_loc,$updir_loc,$p_dir,$dir_rel,-1]  if  $bydepth;
+
+    while (defined $SE) {
+
+	unless ($bydepth) {
+	    # change (back) to parent directory (always untainted)
+	    unless ($no_chdir) {
+		unless (chdir $updir_loc) {
+		    warnings::warnif "Can't cd to $updir_loc: $!\n";
+		    next;
+		}
+	    }
+	    $dir= $p_dir; # $File::Find::dir
+	    $name= $dir_name; # $File::Find::name
+	    $_= ($no_chdir ? $dir_name : $dir_rel ); # $_
+	    $fullname= $dir_loc; # $File::Find::fullname
+	    # prune may happen here
+	    $prune= 0;
+	    lstat($_); # make sure  file tests with '_' work
+	    { $wanted_callback->() }; # protect against wild "next"
+	    next if $prune;
+	}
+
+	# change to that directory
+	unless ($no_chdir || ($dir_rel eq $File::Find::current_dir)) {
+	    $updir_loc = $dir_loc;
+	    if ( ($untaint) && (($tainted) || ($tainted = is_tainted($dir_loc) )) ) {
+		# untaint $dir_loc, what will be pushed on the stack as (untainted) parent dir
+		( $updir_loc ) = $dir_loc =~ m|$untaint_pat|;
+		unless (defined $updir_loc) {
+		    if ($untaint_skip == 0) {
+			die "directory $dir_loc is still tainted";
+		    }
+		    else {
+			next;
+		    }
+		}
+	    }
+	    unless (chdir $updir_loc) {
+		warnings::warnif "Can't cd to $updir_loc: $!\n";
+		next;
+	    }
+	}
+
+	$dir = $dir_name; # $File::Find::dir
+
+	# Get the list of files in the current directory.
+	unless (opendir DIR, ($no_chdir ? $dir_loc : $File::Find::current_dir)) {
+	    warnings::warnif "Can't opendir($dir_loc): $!\n";
+	    next;
+	}
+	@filenames = readdir DIR;
+	closedir(DIR);
+
+	for my $FN (@filenames) {
+	    if ($Is_VMS) {
+	    # Big hammer here - Compensate for VMS trailing . and .dir
+	    # No win situation until this is changed, but this
+	    # will handle the majority of the cases with breaking the fewest.
+
+		$FN =~ s/\.dir\z//i;
+		$FN =~ s#\.$## if ($FN ne '.');
+	    }
+	    next if $FN =~ $File::Find::skip_pattern;
+
+	    # follow symbolic links / do an lstat
+	    $new_loc = Follow_SymLink($loc_pref.$FN);
+
+	    # ignore if invalid symlink
+	    unless (defined $new_loc) {
+	        if (!defined -l _ && $dangling_symlinks) {
+                $fullname = undef;
+	            if (ref $dangling_symlinks eq 'CODE') {
+	                $dangling_symlinks->($FN, $dir_pref);
+	            } else {
+	                warnings::warnif "$dir_pref$FN is a dangling symbolic link\n";
+	            }
+	        }
+            else {
+                $fullname = $loc_pref . $FN;
+            }
+	        $name = $dir_pref . $FN;
+	        $_ = ($no_chdir ? $name : $FN);
+	        { $wanted_callback->() };
+	        next;
+	    }
+
+	    if (-d _) {
+		if ($Is_VMS) {
+		    $FN =~ s/\.dir\z//i;
+		    $FN =~ s#\.$## if ($FN ne '.');
+		    $new_loc =~ s/\.dir\z//i;
+		    $new_loc =~ s#\.$## if ($new_loc ne '.');
+		}
+		push @Stack,[$new_loc,$updir_loc,$dir_name,$FN,1];
+	    }
+	    else {
+		$fullname = $new_loc; # $File::Find::fullname
+		$name = $dir_pref . $FN; # $File::Find::name
+		$_ = ($no_chdir ? $name : $FN); # $_
+		{ $wanted_callback->() }; # protect against wild "next"
+	    }
+	}
+
+    }
+    continue {
+	while (defined($SE = pop @Stack)) {
+	    ($dir_loc, $updir_loc, $p_dir, $dir_rel, $byd_flag) = @$SE;
+	    $dir_name = ($p_dir eq '/' ? "/$dir_rel" : "$p_dir/$dir_rel");
+	    $dir_pref = "$dir_name/";
+	    $loc_pref = "$dir_loc/";
+	    if ( $byd_flag < 0 ) {  # must be finddepth, report dirname now
+		unless ($no_chdir || ($dir_rel eq $File::Find::current_dir)) {
+		    unless (chdir $updir_loc) { # $updir_loc (parent dir) is always untainted
+			warnings::warnif "Can't cd to $updir_loc: $!\n";
+			next;
+		    }
+		}
+		$fullname = $dir_loc; # $File::Find::fullname
+		$name = $dir_name; # $File::Find::name
+		if ( substr($name,-2) eq '/.' ) {
+		    substr($name, length($name) == 2 ? -1 : -2) = ''; # $File::Find::name
+		}
+		$dir = $p_dir; # $File::Find::dir
+		$_ = ($no_chdir ? $dir_name : $dir_rel); # $_
+		if ( substr($_,-2) eq '/.' ) {
+		    substr($_, length($_) == 2 ? -1 : -2) = '';
+		}
+
+		lstat($_); # make sure file tests with '_' work
+		{ $wanted_callback->() }; # protect against wild "next"
+	    }
+	    else {
+		push @Stack,[$dir_loc, $updir_loc, $p_dir, $dir_rel,-1]  if  $bydepth;
+		last;
+	    }
+	}
+    }
+}
+
+
+sub wrap_wanted {
+    my $wanted = shift;
+    if ( ref($wanted) eq 'HASH' ) {
+        # RT #122547
+        my %valid_options = map {$_ => 1} qw(
+            wanted
+            bydepth
+            preprocess
+            postprocess
+            follow
+            follow_fast
+            follow_skip
+            dangling_symlinks
+            no_chdir
+            untaint
+            untaint_pattern
+            untaint_skip
+        );
+        my @invalid_options = ();
+        for my $v (keys %{$wanted}) {
+            push @invalid_options, $v unless exists $valid_options{$v};
+        }
+        warn "Invalid option(s): @invalid_options" if @invalid_options;
+
+        unless( exists $wanted->{wanted} and ref( $wanted->{wanted} ) eq 'CODE' ) {
+            die 'no &wanted subroutine given';
+        }
+        if ( $wanted->{follow} || $wanted->{follow_fast}) {
+            $wanted->{follow_skip} = 1 unless defined $wanted->{follow_skip};
+        }
+        if ( $wanted->{untaint} ) {
+            $wanted->{untaint_pattern} = $File::Find::untaint_pattern
+            unless defined $wanted->{untaint_pattern};
+            $wanted->{untaint_skip} = 0 unless defined $wanted->{untaint_skip};
+        }
+        return $wanted;
+    }
+    elsif( ref( $wanted ) eq 'CODE' ) {
+        return { wanted => $wanted };
+    }
+    else {
+       die 'no &wanted subroutine given';
+    }
+}
+
+sub find {
+    my $wanted = shift;
+    _find_opt(wrap_wanted($wanted), @_);
+}
+
+sub finddepth {
+    my $wanted = wrap_wanted(shift);
+    $wanted->{bydepth} = 1;
+    _find_opt($wanted, @_);
+}
+
+# default
+$File::Find::skip_pattern    = qr/^\.{1,2}\z/;
+$File::Find::untaint_pattern = qr|^([-+@\w./]+)$|;
+
+# These are hard-coded for now, but may move to hint files.
+if ($^O eq 'VMS') {
+    $Is_VMS = 1;
+    $File::Find::dont_use_nlink = 1;
+}
+elsif ($^O eq 'MSWin32') {
+    $Is_Win32 = 1;
+}
+
+# this _should_ work properly on all platforms
+# where File::Find can be expected to work
+$File::Find::current_dir = File::Spec->curdir || '.';
+
+$File::Find::dont_use_nlink = 1
+    if $^O eq 'os2' || $^O eq 'dos' || $^O eq 'amigaos' || $Is_Win32 ||
+       $^O eq 'interix' || $^O eq 'cygwin' || $^O eq 'qnx' || $^O eq 'nto';
+
+# Set dont_use_nlink in your hint file if your system's stat doesn't
+# report the number of links in a directory as an indication
+# of the number of files.
+# See e.g. hints/haiku.sh for Haiku.
+unless ($File::Find::dont_use_nlink) {
+    require Config;
+    $File::Find::dont_use_nlink = 1 if ($Config::Config{'dont_use_nlink'});
+}
+
+# We need a function that checks if a scalar is tainted. Either use the
+# Scalar::Util module's tainted() function or our (slower) pure Perl
+# fallback is_tainted_pp()
+{
+    local $@;
+    eval { require Scalar::Util };
+    *is_tainted = $@ ? \&is_tainted_pp : \&Scalar::Util::tainted;
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+File::Find - Traverse a directory tree.
+
+=head1 SYNOPSIS
+
+    use File::Find;
+    find(\&wanted, @directories_to_search);
+    sub wanted { ... }
+
+    use File::Find;
+    finddepth(\&wanted, @directories_to_search);
+    sub wanted { ... }
+
+    use File::Find;
+    find({ wanted => \&process, follow => 1 }, '.');
+
+=head1 DESCRIPTION
+
+These are functions for searching through directory trees doing work
+on each file found similar to the Unix I<find> command.  File::Find
+exports two functions, C<find> and C<finddepth>.  They work similarly
+but have subtle differences.
+
+=over 4
+
+=item B<find>
+
+  find(\&wanted,  @directories);
+  find(\%options, @directories);
+
+C<find()> does a depth-first search over the given C<@directories> in
+the order they are given.  For each file or directory found, it calls
+the C<&wanted> subroutine.  (See below for details on how to use the
+C<&wanted> function).  Additionally, for each directory found, it will
+C<chdir()> into that directory and continue the search, invoking the
+C<&wanted> function on each file or subdirectory in the directory.
+
+=item B<finddepth>
+
+  finddepth(\&wanted,  @directories);
+  finddepth(\%options, @directories);
+
+C<finddepth()> works just like C<find()> except that it invokes the
+C<&wanted> function for a directory I<after> invoking it for the
+directory's contents.  It does a postorder traversal instead of a
+preorder traversal, working from the bottom of the directory tree up
+where C<find()> works from the top of the tree down.
+
+=back
+
+=head2 %options
+
+The first argument to C<find()> is either a code reference to your
+C<&wanted> function, or a hash reference describing the operations
+to be performed for each file.  The
+code reference is described in L</The wanted function> below.
+
+Here are the possible keys for the hash:
+
+=over 3
+
+=item C<wanted>
+
+The value should be a code reference.  This code reference is
+described in L</The wanted function> below. The C<&wanted> subroutine is
+mandatory.
+
+=item C<bydepth>
+
+Reports the name of a directory only AFTER all its entries
+have been reported.  Entry point C<finddepth()> is a shortcut for
+specifying C<< { bydepth => 1 } >> in the first argument of C<find()>.
+
+=item C<preprocess>
+
+The value should be a code reference. This code reference is used to
+preprocess the current directory. The name of the currently processed
+directory is in C<$File::Find::dir>. Your preprocessing function is
+called after C<readdir()>, but before the loop that calls the C<wanted()>
+function. It is called with a list of strings (actually file/directory
+names) and is expected to return a list of strings. The code can be
+used to sort the file/directory names alphabetically, numerically,
+or to filter out directory entries based on their name alone. When
+I<follow> or I<follow_fast> are in effect, C<preprocess> is a no-op.
+
+=item C<postprocess>
+
+The value should be a code reference. It is invoked just before leaving
+the currently processed directory. It is called in void context with no
+arguments. The name of the current directory is in C<$File::Find::dir>. This
+hook is handy for summarizing a directory, such as calculating its disk
+usage. When I<follow> or I<follow_fast> are in effect, C<postprocess> is a
+no-op.
+
+=item C<follow>
+
+Causes symbolic links to be followed. Since directory trees with symbolic
+links (followed) may contain files more than once and may even have
+cycles, a hash has to be built up with an entry for each file.
+This might be expensive both in space and time for a large
+directory tree. See L</follow_fast> and L</follow_skip> below.
+If either I<follow> or I<follow_fast> is in effect:
+
+=over 6
+
+=item *
+
+It is guaranteed that an I<lstat> has been called before the user's
+C<wanted()> function is called. This enables fast file checks involving C<_>.
+Note that this guarantee no longer holds if I<follow> or I<follow_fast>
+are not set.
+
+=item *
+
+There is a variable C<$File::Find::fullname> which holds the absolute
+pathname of the file with all symbolic links resolved.  If the link is
+a dangling symbolic link, then fullname will be set to C<undef>.
+
+=back
+
+This is a no-op on Win32.
+
+=item C<follow_fast>
+
+This is similar to I<follow> except that it may report some files more
+than once.  It does detect cycles, however.  Since only symbolic links
+have to be hashed, this is much cheaper both in space and time.  If
+processing a file more than once (by the user's C<wanted()> function)
+is worse than just taking time, the option I<follow> should be used.
+
+This is also a no-op on Win32.
+
+=item C<follow_skip>
+
+C<follow_skip==1>, which is the default, causes all files which are
+neither directories nor symbolic links to be ignored if they are about
+to be processed a second time. If a directory or a symbolic link
+are about to be processed a second time, File::Find dies.
+
+C<follow_skip==0> causes File::Find to die if any file is about to be
+processed a second time.
+
+C<follow_skip==2> causes File::Find to ignore any duplicate files and
+directories but to proceed normally otherwise.
+
+=item C<dangling_symlinks>
+
+Specifies what to do with symbolic links whose target doesn't exist.
+If true and a code reference, will be called with the symbolic link
+name and the directory it lives in as arguments.  Otherwise, if true
+and warnings are on, a warning of the form C<"symbolic_link_name is a dangling
+symbolic link\n"> will be issued.  If false, the dangling symbolic link
+will be silently ignored.
+
+=item C<no_chdir>
+
+Does not C<chdir()> to each directory as it recurses. The C<wanted()>
+function will need to be aware of this, of course. In this case,
+C<$_> will be the same as C<$File::Find::name>.
+
+=item C<untaint>
+
+If find is used in L<taint-mode|perlsec/Taint mode> (-T command line switch or
+if EUID != UID or if EGID != GID), then internally directory names have to be
+untainted before they can be C<chdir>'d to. Therefore they are checked against
+a regular expression I<untaint_pattern>.  Note that all names passed to the
+user's C<wanted()> function are still tainted. If this option is used while not
+in taint-mode, C<untaint> is a no-op.
+
+=item C<untaint_pattern>
+
+See above. This should be set using the C<qr> quoting operator.
+The default is set to C<qr|^([-+@\w./]+)$|>.
+Note that the parentheses are vital.
+
+=item C<untaint_skip>
+
+If set, a directory which fails the I<untaint_pattern> is skipped,
+including all its sub-directories. The default is to C<die> in such a case.
+
+=back
+
+=head2 The wanted function
+
+The C<wanted()> function does whatever verifications you want on
+each file and directory.  Note that despite its name, the C<wanted()>
+function is a generic callback function, and does B<not> tell
+File::Find if a file is "wanted" or not.  In fact, its return value
+is ignored.
+
+The wanted function takes no arguments but rather does its work
+through a collection of variables.
+
+=over 4
+
+=item C<$File::Find::dir> is the current directory name,
+
+=item C<$_> is the current filename within that directory
+
+=item C<$File::Find::name> is the complete pathname to the file.
+
+=back
+
+The above variables have all been localized and may be changed without
+affecting data outside of the wanted function.
+
+For example, when examining the file F</some/path/foo.ext> you will have:
+
+    $File::Find::dir  = /some/path/
+    $_                = foo.ext
+    $File::Find::name = /some/path/foo.ext
+
+You are chdir()'d to C<$File::Find::dir> when the function is called,
+unless C<no_chdir> was specified. Note that when changing to
+directories is in effect, the root directory (F</>) is a somewhat
+special case inasmuch as the concatenation of C<$File::Find::dir>,
+C<'/'> and C<$_> is not literally equal to C<$File::Find::name>. The
+table below summarizes all variants:
+
+              $File::Find::name  $File::Find::dir  $_
+ default      /                  /                 .
+ no_chdir=>0  /etc               /                 etc
+              /etc/x             /etc              x
+
+ no_chdir=>1  /                  /                 /
+              /etc               /                 /etc
+              /etc/x             /etc              /etc/x
+
+
+When C<follow> or C<follow_fast> are in effect, there is
+also a C<$File::Find::fullname>.  The function may set
+C<$File::Find::prune> to prune the tree unless C<bydepth> was
+specified.  Unless C<follow> or C<follow_fast> is specified, for
+compatibility reasons (find.pl, find2perl) there are in addition the
+following globals available: C<$File::Find::topdir>,
+C<$File::Find::topdev>, C<$File::Find::topino>,
+C<$File::Find::topmode> and C<$File::Find::topnlink>.
+
+This library is useful for the C<find2perl> tool (distributed as part of the
+App-find2perl CPAN distribution), which when fed,
+
+  find2perl / -name .nfs\* -mtime +7 \
+    -exec rm -f {} \; -o -fstype nfs -prune
+
+produces something like:
+
+ sub wanted {
+    /^\.nfs.*\z/s &&
+    (($dev, $ino, $mode, $nlink, $uid, $gid) = lstat($_)) &&
+    int(-M _) > 7 &&
+    unlink($_)
+    ||
+    ($nlink || (($dev, $ino, $mode, $nlink, $uid, $gid) = lstat($_))) &&
+    $dev < 0 &&
+    ($File::Find::prune = 1);
+ }
+
+Notice the C<_> in the above C<int(-M _)>: the C<_> is a magical
+filehandle that caches the information from the preceding
+C<stat()>, C<lstat()>, or filetest.
+
+Here's another interesting wanted function.  It will find all symbolic
+links that don't resolve:
+
+    sub wanted {
+         -l && !-e && print "bogus link: $File::Find::name\n";
+    }
+
+Note that you may mix directories and (non-directory) files in the list of 
+directories to be searched by the C<wanted()> function.
+
+    find(\&wanted, "./foo", "./bar", "./baz/epsilon");
+
+In the example above, no file in F<./baz/> other than F<./baz/epsilon> will be
+evaluated by C<wanted()>.
+
+See also the script C<pfind> on CPAN for a nice application of this
+module.
+
+=head1 WARNINGS
+
+If you run your program with the C<-w> switch, or if you use the
+C<warnings> pragma, File::Find will report warnings for several weird
+situations. You can disable these warnings by putting the statement
+
+    no warnings 'File::Find';
+
+in the appropriate scope. See L<warnings> for more info about lexical
+warnings.
+
+=head1 CAVEAT
+
+=over 2
+
+=item $dont_use_nlink
+
+You can set the variable C<$File::Find::dont_use_nlink> to 1 if you want to
+force File::Find to always stat directories. This was used for file systems
+that do not have an C<nlink> count matching the number of sub-directories.
+Examples are ISO-9660 (CD-ROM), AFS, HPFS (OS/2 file system), FAT (DOS file
+system) and a couple of others.
+
+You shouldn't need to set this variable, since File::Find should now detect
+such file systems on-the-fly and switch itself to using stat. This works even
+for parts of your file system, like a mounted CD-ROM.
+
+If you do set C<$File::Find::dont_use_nlink> to 1, you will notice slow-downs.
+
+=item symlinks
+
+Be aware that the option to follow symbolic links can be dangerous.
+Depending on the structure of the directory tree (including symbolic
+links to directories) you might traverse a given (physical) directory
+more than once (only if C<follow_fast> is in effect).
+Furthermore, deleting or changing files in a symbolically linked directory
+might cause very unpleasant surprises, since you delete or change files
+in an unknown directory.
+
+=back
+
+=head1 BUGS AND CAVEATS
+
+Despite the name of the C<finddepth()> function, both C<find()> and
+C<finddepth()> perform a depth-first search of the directory
+hierarchy.
+
+=head1 HISTORY
+
+File::Find used to produce incorrect results if called recursively.
+During the development of perl 5.8 this bug was fixed.
+The first fixed version of File::Find was 1.01.
+
+=head1 SEE ALSO
+
+L<find(1)>, find2perl.
+
+=cut
diff --git a/lib/5.24.1/File/GlobMapper.pm b/lib/5.24.1/File/GlobMapper.pm
new file mode 100644
index 00000000..76d4bed1
--- /dev/null
+++ b/lib/5.24.1/File/GlobMapper.pm
@@ -0,0 +1,679 @@
+package File::GlobMapper;
+
+use strict;
+use warnings;
+use Carp;
+
+our ($CSH_GLOB);
+
+BEGIN
+{
+    if ($] < 5.006)
+    { 
+        require File::BSDGlob; import File::BSDGlob qw(:glob) ;
+        $CSH_GLOB = File::BSDGlob::GLOB_CSH() ;
+        *globber = \&File::BSDGlob::csh_glob;
+    }  
+    else
+    { 
+        require File::Glob; import File::Glob qw(:glob) ;
+        $CSH_GLOB = File::Glob::GLOB_CSH() ;
+        #*globber = \&File::Glob::bsd_glob;
+        *globber = \&File::Glob::csh_glob;
+    }  
+}
+
+our ($Error);
+
+our ($VERSION, @EXPORT_OK);
+$VERSION = '1.000';
+@EXPORT_OK = qw( globmap );
+
+
+our ($noPreBS, $metachars, $matchMetaRE, %mapping, %wildCount);
+$noPreBS = '(?<!\\\)' ; # no preceding backslash
+$metachars = '.*?[](){}';
+$matchMetaRE = '[' . quotemeta($metachars) . ']';
+
+%mapping = (
+                '*' => '([^/]*)',
+                '?' => '([^/])',
+                '.' => '\.',
+                '[' => '([',
+                '(' => '(',
+                ')' => ')',
+           );
+
+%wildCount = map { $_ => 1 } qw/ * ? . { ( [ /;           
+
+sub globmap ($$;)
+{
+    my $inputGlob = shift ;
+    my $outputGlob = shift ;
+
+    my $obj = new File::GlobMapper($inputGlob, $outputGlob, @_)
+        or croak "globmap: $Error" ;
+    return $obj->getFileMap();
+}
+
+sub new
+{
+    my $class = shift ;
+    my $inputGlob = shift ;
+    my $outputGlob = shift ;
+    # TODO -- flags needs to default to whatever File::Glob does
+    my $flags = shift || $CSH_GLOB ;
+    #my $flags = shift ;
+
+    $inputGlob =~ s/^\s*\<\s*//;
+    $inputGlob =~ s/\s*\>\s*$//;
+
+    $outputGlob =~ s/^\s*\<\s*//;
+    $outputGlob =~ s/\s*\>\s*$//;
+
+    my %object =
+            (   InputGlob   => $inputGlob,
+                OutputGlob  => $outputGlob,
+                GlobFlags   => $flags,
+                Braces      => 0,
+                WildCount   => 0,
+                Pairs       => [],
+                Sigil       => '#',
+            );
+
+    my $self = bless \%object, ref($class) || $class ;
+
+    $self->_parseInputGlob()
+        or return undef ;
+
+    $self->_parseOutputGlob()
+        or return undef ;
+    
+    my @inputFiles = globber($self->{InputGlob}, $flags) ;
+
+    if (GLOB_ERROR)
+    {
+        $Error = $!;
+        return undef ;
+    }
+
+    #if (whatever)
+    {
+        my $missing = grep { ! -e $_ } @inputFiles ;
+
+        if ($missing)
+        {
+            $Error = "$missing input files do not exist";
+            return undef ;
+        }
+    }
+
+    $self->{InputFiles} = \@inputFiles ;
+
+    $self->_getFiles()
+        or return undef ;
+
+    return $self;
+}
+
+sub _retError
+{
+    my $string = shift ;
+    $Error = "$string in input fileglob" ;
+    return undef ;
+}
+
+sub _unmatched
+{
+    my $delimeter = shift ;
+
+    _retError("Unmatched $delimeter");
+    return undef ;
+}
+
+sub _parseBit
+{
+    my $self = shift ;
+
+    my $string = shift ;
+
+    my $out = '';
+    my $depth = 0 ;
+
+    while ($string =~ s/(.*?)$noPreBS(,|$matchMetaRE)//)
+    {
+        $out .= quotemeta($1) ;
+        $out .= $mapping{$2} if defined $mapping{$2};
+
+        ++ $self->{WildCount} if $wildCount{$2} ;
+
+        if ($2 eq ',')
+        { 
+            return _unmatched "("
+                if $depth ;
+            
+            $out .= '|';
+        }
+        elsif ($2 eq '(')
+        { 
+            ++ $depth ;
+        }
+        elsif ($2 eq ')')
+        { 
+            return _unmatched ")"
+                if ! $depth ;
+
+            -- $depth ;
+        }
+        elsif ($2 eq '[')
+        {
+            # TODO -- quotemeta & check no '/'
+            # TODO -- check for \]  & other \ within the []
+            $string =~ s#(.*?\])##
+                or return _unmatched "[" ;
+            $out .= "$1)" ;
+        }
+        elsif ($2 eq ']')
+        {
+            return _unmatched "]" ;
+        }
+        elsif ($2 eq '{' || $2 eq '}')
+        {
+            return _retError "Nested {} not allowed" ;
+        }
+    }
+
+    $out .= quotemeta $string;
+
+    return _unmatched "("
+        if $depth ;
+
+    return $out ;
+}
+
+sub _parseInputGlob
+{
+    my $self = shift ;
+
+    my $string = $self->{InputGlob} ;
+    my $inGlob = '';
+
+    # Multiple concatenated *'s don't make sense
+    #$string =~ s#\*\*+#*# ;
+
+    # TODO -- Allow space to delimit patterns?
+    #my @strings = split /\s+/, $string ;
+    #for my $str (@strings)
+    my $out = '';
+    my $depth = 0 ;
+
+    while ($string =~ s/(.*?)$noPreBS($matchMetaRE)//)
+    {
+        $out .= quotemeta($1) ;
+        $out .= $mapping{$2} if defined $mapping{$2};
+        ++ $self->{WildCount} if $wildCount{$2} ;
+
+        if ($2 eq '(')
+        { 
+            ++ $depth ;
+        }
+        elsif ($2 eq ')')
+        { 
+            return _unmatched ")"
+                if ! $depth ;
+
+            -- $depth ;
+        }
+        elsif ($2 eq '[')
+        {
+            # TODO -- quotemeta & check no '/' or '(' or ')'
+            # TODO -- check for \]  & other \ within the []
+            $string =~ s#(.*?\])##
+                or return _unmatched "[";
+            $out .= "$1)" ;
+        }
+        elsif ($2 eq ']')
+        {
+            return _unmatched "]" ;
+        }
+        elsif ($2 eq '}')
+        {
+            return _unmatched "}" ;
+        }
+        elsif ($2 eq '{')
+        {
+            # TODO -- check no '/' within the {}
+            # TODO -- check for \}  & other \ within the {}
+
+            my $tmp ;
+            unless ( $string =~ s/(.*?)$noPreBS\}//)
+            {
+                return _unmatched "{";
+            }
+            #$string =~ s#(.*?)\}##;
+
+            #my $alt = join '|', 
+            #          map { quotemeta $_ } 
+            #          split "$noPreBS,", $1 ;
+            my $alt = $self->_parseBit($1);
+            defined $alt or return 0 ;
+            $out .= "($alt)" ;
+
+            ++ $self->{Braces} ;
+        }
+    }
+
+    return _unmatched "("
+        if $depth ;
+
+    $out .= quotemeta $string ;
+
+
+    $self->{InputGlob} =~ s/$noPreBS[\(\)]//g;
+    $self->{InputPattern} = $out ;
+
+    #print "# INPUT '$self->{InputGlob}' => '$out'\n";
+
+    return 1 ;
+
+}
+
+sub _parseOutputGlob
+{
+    my $self = shift ;
+
+    my $string = $self->{OutputGlob} ;
+    my $maxwild = $self->{WildCount};
+
+    if ($self->{GlobFlags} & GLOB_TILDE)
+    #if (1)
+    {
+        $string =~ s{
+              ^ ~             # find a leading tilde
+              (               # save this in $1
+                  [^/]        # a non-slash character
+                        *     # repeated 0 or more times (0 means me)
+              )
+            }{
+              $1
+                  ? (getpwnam($1))[7]
+                  : ( $ENV{HOME} || $ENV{LOGDIR} )
+            }ex;
+
+    }
+
+    # max #1 must be == to max no of '*' in input
+    while ( $string =~ m/#(\d)/g )
+    {
+        croak "Max wild is #$maxwild, you tried #$1"
+            if $1 > $maxwild ;
+    }
+
+    my $noPreBS = '(?<!\\\)' ; # no preceding backslash
+    #warn "noPreBS = '$noPreBS'\n";
+
+    #$string =~ s/${noPreBS}\$(\d)/\${$1}/g;
+    $string =~ s/${noPreBS}#(\d)/\${$1}/g;
+    $string =~ s#${noPreBS}\*#\${inFile}#g;
+    $string = '"' . $string . '"';
+
+    #print "OUTPUT '$self->{OutputGlob}' => '$string'\n";
+    $self->{OutputPattern} = $string ;
+
+    return 1 ;
+}
+
+sub _getFiles
+{
+    my $self = shift ;
+
+    my %outInMapping = ();
+    my %inFiles = () ;
+
+    foreach my $inFile (@{ $self->{InputFiles} })
+    {
+        next if $inFiles{$inFile} ++ ;
+
+        my $outFile = $inFile ;
+
+        if ( $inFile =~ m/$self->{InputPattern}/ )
+        {
+            no warnings 'uninitialized';
+            eval "\$outFile = $self->{OutputPattern};" ;
+
+            if (defined $outInMapping{$outFile})
+            {
+                $Error =  "multiple input files map to one output file";
+                return undef ;
+            }
+            $outInMapping{$outFile} = $inFile;
+            push @{ $self->{Pairs} }, [$inFile, $outFile];
+        }
+    }
+
+    return 1 ;
+}
+
+sub getFileMap
+{
+    my $self = shift ;
+
+    return $self->{Pairs} ;
+}
+
+sub getHash
+{
+    my $self = shift ;
+
+    return { map { $_->[0] => $_->[1] } @{ $self->{Pairs} } } ;
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+File::GlobMapper - Extend File Glob to Allow Input and Output Files
+
+=head1 SYNOPSIS
+
+    use File::GlobMapper qw( globmap );
+
+    my $aref = globmap $input => $output
+        or die $File::GlobMapper::Error ;
+
+    my $gm = new File::GlobMapper $input => $output
+        or die $File::GlobMapper::Error ;
+
+
+=head1 DESCRIPTION
+
+This module needs Perl5.005 or better.
+
+This module takes the existing C<File::Glob> module as a starting point and
+extends it to allow new filenames to be derived from the files matched by
+C<File::Glob>.
+
+This can be useful when carrying out batch operations on multiple files that
+have both an input filename and output filename and the output file can be
+derived from the input filename. Examples of operations where this can be
+useful include, file renaming, file copying and file compression.
+
+
+=head2 Behind The Scenes
+
+To help explain what C<File::GlobMapper> does, consider what code you
+would write if you wanted to rename all files in the current directory
+that ended in C<.tar.gz> to C<.tgz>. So say these files are in the
+current directory
+
+    alpha.tar.gz
+    beta.tar.gz
+    gamma.tar.gz
+
+and they need renamed to this
+
+    alpha.tgz
+    beta.tgz
+    gamma.tgz
+
+Below is a possible implementation of a script to carry out the rename
+(error cases have been omitted)
+
+    foreach my $old ( glob "*.tar.gz" )
+    {
+        my $new = $old;
+        $new =~ s#(.*)\.tar\.gz$#$1.tgz# ;
+
+        rename $old => $new 
+            or die "Cannot rename '$old' to '$new': $!\n;
+    }
+
+Notice that a file glob pattern C<*.tar.gz> was used to match the
+C<.tar.gz> files, then a fairly similar regular expression was used in
+the substitute to allow the new filename to be created.
+
+Given that the file glob is just a cut-down regular expression and that it
+has already done a lot of the hard work in pattern matching the filenames,
+wouldn't it be handy to be able to use the patterns in the fileglob to
+drive the new filename?
+
+Well, that's I<exactly> what C<File::GlobMapper> does. 
+
+Here is same snippet of code rewritten using C<globmap>
+
+    for my $pair (globmap '<*.tar.gz>' => '<#1.tgz>' )
+    {
+        my ($from, $to) = @$pair;
+        rename $from => $to 
+            or die "Cannot rename '$old' to '$new': $!\n;
+    }
+
+So how does it work?
+
+Behind the scenes the C<globmap> function does a combination of a
+file glob to match existing filenames followed by a substitute
+to create the new filenames. 
+
+Notice how both parameters to C<globmap> are strings that are delimited by <>.
+This is done to make them look more like file globs - it is just syntactic
+sugar, but it can be handy when you want the strings to be visually
+distinctive. The enclosing <> are optional, so you don't have to use them - in
+fact the first thing globmap will do is remove these delimiters if they are
+present.
+
+The first parameter to C<globmap>, C<*.tar.gz>, is an I<Input File Glob>. 
+Once the enclosing "< ... >" is removed, this is passed (more or
+less) unchanged to C<File::Glob> to carry out a file match.
+
+Next the fileglob C<*.tar.gz> is transformed behind the scenes into a
+full Perl regular expression, with the additional step of wrapping each
+transformed wildcard metacharacter sequence in parenthesis.
+
+In this case the input fileglob C<*.tar.gz> will be transformed into
+this Perl regular expression 
+
+    ([^/]*)\.tar\.gz
+
+Wrapping with parenthesis allows the wildcard parts of the Input File
+Glob to be referenced by the second parameter to C<globmap>, C<#1.tgz>,
+the I<Output File Glob>. This parameter operates just like the replacement
+part of a substitute command. The difference is that the C<#1> syntax
+is used to reference sub-patterns matched in the input fileglob, rather
+than the C<$1> syntax that is used with perl regular expressions. In
+this case C<#1> is used to refer to the text matched by the C<*> in the
+Input File Glob. This makes it easier to use this module where the
+parameters to C<globmap> are typed at the command line.
+
+The final step involves passing each filename matched by the C<*.tar.gz>
+file glob through the derived Perl regular expression in turn and
+expanding the output fileglob using it.
+
+The end result of all this is a list of pairs of filenames. By default
+that is what is returned by C<globmap>. In this example the data structure
+returned will look like this
+
+     ( ['alpha.tar.gz' => 'alpha.tgz'],
+       ['beta.tar.gz'  => 'beta.tgz' ],
+       ['gamma.tar.gz' => 'gamma.tgz']
+     )
+
+
+Each pair is an array reference with two elements - namely the I<from>
+filename, that C<File::Glob> has matched, and a I<to> filename that is
+derived from the I<from> filename.
+
+
+
+=head2 Limitations
+
+C<File::GlobMapper> has been kept simple deliberately, so it isn't intended to
+solve all filename mapping operations. Under the hood C<File::Glob> (or for
+older versions of Perl, C<File::BSDGlob>) is used to match the files, so you
+will never have the flexibility of full Perl regular expression.
+
+=head2 Input File Glob
+
+The syntax for an Input FileGlob is identical to C<File::Glob>, except
+for the following
+
+=over 5
+
+=item 1.
+
+No nested {}
+
+=item 2.
+
+Whitespace does not delimit fileglobs.
+
+=item 3.
+
+The use of parenthesis can be used to capture parts of the input filename.
+
+=item 4.
+
+If an Input glob matches the same file more than once, only the first
+will be used.
+
+=back
+
+The syntax
+
+=over 5
+
+=item B<~>
+
+=item B<~user>
+
+
+=item B<.>
+
+Matches a literal '.'.
+Equivalent to the Perl regular expression
+
+    \.
+
+=item B<*>
+
+Matches zero or more characters, except '/'. Equivalent to the Perl
+regular expression
+
+    [^/]*
+
+=item B<?>
+
+Matches zero or one character, except '/'. Equivalent to the Perl
+regular expression
+
+    [^/]?
+
+=item B<\>
+
+Backslash is used, as usual, to escape the next character.
+
+=item  B<[]>
+
+Character class.
+
+=item  B<{,}>
+
+Alternation
+
+=item  B<()>
+
+Capturing parenthesis that work just like perl
+
+=back
+
+Any other character it taken literally.
+
+=head2 Output File Glob
+
+The Output File Glob is a normal string, with 2 glob-like features.
+
+The first is the '*' metacharacter. This will be replaced by the complete
+filename matched by the input file glob. So
+
+    *.c *.Z
+
+The second is     
+
+Output FileGlobs take the 
+
+=over 5
+
+=item "*"
+
+The "*" character will be replaced with the complete input filename.
+
+=item #1
+
+Patterns of the form /#\d/ will be replaced with the 
+
+=back
+
+=head2 Returned Data
+
+
+=head1 EXAMPLES
+
+=head2 A Rename script
+
+Below is a simple "rename" script that uses C<globmap> to determine the
+source and destination filenames.
+
+    use File::GlobMapper qw(globmap) ;
+    use File::Copy;
+
+    die "rename: Usage rename 'from' 'to'\n"
+        unless @ARGV == 2 ;
+
+    my $fromGlob = shift @ARGV;
+    my $toGlob   = shift @ARGV;
+
+    my $pairs = globmap($fromGlob, $toGlob)
+        or die $File::GlobMapper::Error;
+
+    for my $pair (@$pairs)
+    {
+        my ($from, $to) = @$pair;
+        move $from => $to ;
+    }
+
+
+
+Here is an example that renames all c files to cpp.
+    
+    $ rename '*.c' '#1.cpp'
+
+=head2 A few example globmaps
+
+Below are a few examples of globmaps
+
+To copy all your .c file to a backup directory
+
+    '</my/home/*.c>'    '</my/backup/#1.c>'
+
+If you want to compress all    
+
+    '</my/home/*.[ch]>'    '<*.gz>'
+
+To uncompress
+
+    '</my/home/*.[ch].gz>'    '</my/home/#1.#2>'
+
+=head1 SEE ALSO
+
+L<File::Glob|File::Glob>
+
+=head1 AUTHOR
+
+The I<File::GlobMapper> module was written by Paul Marquess, F<pmqs@cpan.org>.
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright (c) 2005 Paul Marquess. All rights reserved.
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
diff --git a/lib/5.24.1/File/Path.pm b/lib/5.24.1/File/Path.pm
new file mode 100644
index 00000000..034da1e5
--- /dev/null
+++ b/lib/5.24.1/File/Path.pm
@@ -0,0 +1,1172 @@
+package File::Path;
+
+use 5.005_04;
+use strict;
+
+use Cwd 'getcwd';
+use File::Basename ();
+use File::Spec     ();
+
+BEGIN {
+    if ( $] < 5.006 ) {
+
+        # can't say 'opendir my $dh, $dirname'
+        # need to initialise $dh
+        eval 'use Symbol';
+    }
+}
+
+use Exporter ();
+use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
+$VERSION   = '2.12_01';
+$VERSION   = eval $VERSION;
+@ISA       = qw(Exporter);
+@EXPORT    = qw(mkpath rmtree);
+@EXPORT_OK = qw(make_path remove_tree);
+
+BEGIN {
+  for (qw(VMS MacOS MSWin32 os2)) {
+    no strict 'refs';
+    *{"_IS_\U$_"} = $^O eq $_ ? sub () { 1 } : sub () { 0 };
+  }
+
+  # These OSes complain if you want to remove a file that you have no
+  # write permission to:
+  *_FORCE_WRITABLE = (
+    grep { $^O eq $_ } qw(amigaos dos epoc MSWin32 MacOS os2)
+  ) ? sub () { 1 } : sub () { 0 };
+
+  # Unix-like systems need to stat each directory in order to detect
+  # race condition. MS-Windows is immune to this particular attack.
+  *_NEED_STAT_CHECK = !(_IS_MSWIN32()) ? sub () { 1 } : sub () { 0 };
+}
+
+sub _carp {
+    require Carp;
+    goto &Carp::carp;
+}
+
+sub _croak {
+    require Carp;
+    goto &Carp::croak;
+}
+
+sub _error {
+    my $arg     = shift;
+    my $message = shift;
+    my $object  = shift;
+
+    if ( $arg->{error} ) {
+        $object = '' unless defined $object;
+        $message .= ": $!" if $!;
+        push @{ ${ $arg->{error} } }, { $object => $message };
+    }
+    else {
+        _carp( defined($object) ? "$message for $object: $!" : "$message: $!" );
+    }
+}
+
+sub __is_arg {
+    my ($arg) = @_;
+
+    # If client code blessed an array ref to HASH, this will not work
+    # properly. We could have done $arg->isa() wrapped in eval, but
+    # that would be expensive. This implementation should suffice.
+    # We could have also used Scalar::Util:blessed, but we choose not
+    # to add this dependency
+    return ( ref $arg eq 'HASH' );
+}
+
+sub make_path {
+    push @_, {} unless @_ and __is_arg( $_[-1] );
+    goto &mkpath;
+}
+
+sub mkpath {
+    my $old_style = !( @_ and __is_arg( $_[-1] ) );
+
+    my $arg;
+    my $paths;
+
+    if ($old_style) {
+        my ( $verbose, $mode );
+        ( $paths, $verbose, $mode ) = @_;
+        $paths = [$paths] unless UNIVERSAL::isa( $paths, 'ARRAY' );
+        $arg->{verbose} = $verbose;
+        $arg->{mode} = defined $mode ? $mode : oct '777';
+    }
+    else {
+        my %args_permitted = map { $_ => 1 } ( qw|
+            chmod
+            error
+            group
+            mask
+            mode
+            owner
+            uid
+            user
+            verbose
+        | );
+        my @bad_args = ();
+        $arg = pop @_;
+        for my $k (sort keys %{$arg}) {
+            push @bad_args, $k unless $args_permitted{$k};
+        }
+        _carp("Unrecognized option(s) passed to make_path(): @bad_args")
+            if @bad_args;
+        $arg->{mode} = delete $arg->{mask} if exists $arg->{mask};
+        $arg->{mode} = oct '777' unless exists $arg->{mode};
+        ${ $arg->{error} } = [] if exists $arg->{error};
+        $arg->{owner} = delete $arg->{user} if exists $arg->{user};
+        $arg->{owner} = delete $arg->{uid}  if exists $arg->{uid};
+        if ( exists $arg->{owner} and $arg->{owner} =~ /\D/ ) {
+            my $uid = ( getpwnam $arg->{owner} )[2];
+            if ( defined $uid ) {
+                $arg->{owner} = $uid;
+            }
+            else {
+                _error( $arg,
+"unable to map $arg->{owner} to a uid, ownership not changed"
+                );
+                delete $arg->{owner};
+            }
+        }
+        if ( exists $arg->{group} and $arg->{group} =~ /\D/ ) {
+            my $gid = ( getgrnam $arg->{group} )[2];
+            if ( defined $gid ) {
+                $arg->{group} = $gid;
+            }
+            else {
+                _error( $arg,
+"unable to map $arg->{group} to a gid, group ownership not changed"
+                );
+                delete $arg->{group};
+            }
+        }
+        if ( exists $arg->{owner} and not exists $arg->{group} ) {
+            $arg->{group} = -1;    # chown will leave group unchanged
+        }
+        if ( exists $arg->{group} and not exists $arg->{owner} ) {
+            $arg->{owner} = -1;    # chown will leave owner unchanged
+        }
+        $paths = [@_];
+    }
+    return _mkpath( $arg, $paths );
+}
+
+sub _mkpath {
+    my $arg   = shift;
+    my $paths = shift;
+
+    my ( @created );
+    foreach my $path ( @{$paths} ) {
+        next unless defined($path) and length($path);
+        $path .= '/' if _IS_OS2 and $path =~ /^\w:\z/s; # feature of CRT
+
+        # Logic wants Unix paths, so go with the flow.
+        if (_IS_VMS) {
+            next if $path eq '/';
+            $path = VMS::Filespec::unixify($path);
+        }
+        next if -d $path;
+        my $parent = File::Basename::dirname($path);
+        unless ( -d $parent or $path eq $parent ) {
+            push( @created, _mkpath( $arg, [$parent] ) );
+        }
+        print "mkdir $path\n" if $arg->{verbose};
+        if ( mkdir( $path, $arg->{mode} ) ) {
+            push( @created, $path );
+            if ( exists $arg->{owner} ) {
+
+                # NB: $arg->{group} guaranteed to be set during initialisation
+                if ( !chown $arg->{owner}, $arg->{group}, $path ) {
+                    _error( $arg,
+"Cannot change ownership of $path to $arg->{owner}:$arg->{group}"
+                    );
+                }
+            }
+            if ( exists $arg->{chmod} ) {
+                if ( !chmod $arg->{chmod}, $path ) {
+                    _error( $arg,
+                        "Cannot change permissions of $path to $arg->{chmod}" );
+                }
+            }
+        }
+        else {
+            my $save_bang = $!;
+            my ( $e, $e1 ) = ( $save_bang, $^E );
+            $e .= "; $e1" if $e ne $e1;
+
+            # allow for another process to have created it meanwhile
+            if ( ! -d $path ) {
+                $! = $save_bang;
+                if ( $arg->{error} ) {
+                    push @{ ${ $arg->{error} } }, { $path => $e };
+                }
+                else {
+                    _croak("mkdir $path: $e");
+                }
+            }
+        }
+    }
+    return @created;
+}
+
+sub remove_tree {
+    push @_, {} unless @_ and __is_arg( $_[-1] );
+    goto &rmtree;
+}
+
+sub _is_subdir {
+    my ( $dir, $test ) = @_;
+
+    my ( $dv, $dd ) = File::Spec->splitpath( $dir,  1 );
+    my ( $tv, $td ) = File::Spec->splitpath( $test, 1 );
+
+    # not on same volume
+    return 0 if $dv ne $tv;
+
+    my @d = File::Spec->splitdir($dd);
+    my @t = File::Spec->splitdir($td);
+
+    # @t can't be a subdir if it's shorter than @d
+    return 0 if @t < @d;
+
+    return join( '/', @d ) eq join( '/', splice @t, 0, +@d );
+}
+
+sub rmtree {
+    my $old_style = !( @_ and __is_arg( $_[-1] ) );
+
+    my $arg;
+    my $paths;
+
+    if ($old_style) {
+        my ( $verbose, $safe );
+        ( $paths, $verbose, $safe ) = @_;
+        $arg->{verbose} = $verbose;
+        $arg->{safe} = defined $safe ? $safe : 0;
+
+        if ( defined($paths) and length($paths) ) {
+            $paths = [$paths] unless UNIVERSAL::isa( $paths, 'ARRAY' );
+        }
+        else {
+            _carp("No root path(s) specified\n");
+            return 0;
+        }
+    }
+    else {
+        my %args_permitted = map { $_ => 1 } ( qw|
+            error
+            keep_root
+            result
+            safe
+            verbose
+        | );
+        my @bad_args = ();
+        $arg = pop @_;
+        for my $k (sort keys %{$arg}) {
+            push @bad_args, $k unless $args_permitted{$k};
+        }
+        _carp("Unrecognized option(s) passed to remove_tree(): @bad_args")
+            if @bad_args;
+        ${ $arg->{error} }  = [] if exists $arg->{error};
+        ${ $arg->{result} } = [] if exists $arg->{result};
+        $paths = [@_];
+    }
+
+    $arg->{prefix} = '';
+    $arg->{depth}  = 0;
+
+    my @clean_path;
+    $arg->{cwd} = getcwd() or do {
+        _error( $arg, "cannot fetch initial working directory" );
+        return 0;
+    };
+    for ( $arg->{cwd} ) { /\A(.*)\Z/s; $_ = $1 }    # untaint
+
+    for my $p (@$paths) {
+
+        # need to fixup case and map \ to / on Windows
+        my $ortho_root = _IS_MSWIN32 ? _slash_lc($p) : $p;
+        my $ortho_cwd =
+          _IS_MSWIN32 ? _slash_lc( $arg->{cwd} ) : $arg->{cwd};
+        my $ortho_root_length = length($ortho_root);
+        $ortho_root_length-- if _IS_VMS;   # don't compare '.' with ']'
+        if ( $ortho_root_length && _is_subdir( $ortho_root, $ortho_cwd ) ) {
+            local $! = 0;
+            _error( $arg, "cannot remove path when cwd is $arg->{cwd}", $p );
+            next;
+        }
+
+        if (_IS_MACOS) {
+            $p = ":$p" unless $p =~ /:/;
+            $p .= ":" unless $p =~ /:\z/;
+        }
+        elsif ( _IS_MSWIN32 ) {
+            $p =~ s{[/\\]\z}{};
+        }
+        else {
+            $p =~ s{/\z}{};
+        }
+        push @clean_path, $p;
+    }
+
+    @{$arg}{qw(device inode perm)} = ( lstat $arg->{cwd} )[ 0, 1 ] or do {
+        _error( $arg, "cannot stat initial working directory", $arg->{cwd} );
+        return 0;
+    };
+
+    return _rmtree( $arg, \@clean_path );
+}
+
+sub _rmtree {
+    my $arg   = shift;
+    my $paths = shift;
+
+    my $count  = 0;
+    my $curdir = File::Spec->curdir();
+    my $updir  = File::Spec->updir();
+
+    my ( @files, $root );
+  ROOT_DIR:
+    foreach my $root (@$paths) {
+
+        # since we chdir into each directory, it may not be obvious
+        # to figure out where we are if we generate a message about
+        # a file name. We therefore construct a semi-canonical
+        # filename, anchored from the directory being unlinked (as
+        # opposed to being truly canonical, anchored from the root (/).
+
+        my $canon =
+          $arg->{prefix}
+          ? File::Spec->catfile( $arg->{prefix}, $root )
+          : $root;
+
+        my ( $ldev, $lino, $perm ) = ( lstat $root )[ 0, 1, 2 ]
+          or next ROOT_DIR;
+
+        if ( -d _ ) {
+            $root = VMS::Filespec::vmspath( VMS::Filespec::pathify($root) )
+              if _IS_VMS;
+
+            if ( !chdir($root) ) {
+
+                # see if we can escalate privileges to get in
+                # (e.g. funny protection mask such as -w- instead of rwx)
+                $perm &= oct '7777';
+                my $nperm = $perm | oct '700';
+                if (
+                    !(
+                           $arg->{safe}
+                        or $nperm == $perm
+                        or chmod( $nperm, $root )
+                    )
+                  )
+                {
+                    _error( $arg,
+                        "cannot make child directory read-write-exec", $canon );
+                    next ROOT_DIR;
+                }
+                elsif ( !chdir($root) ) {
+                    _error( $arg, "cannot chdir to child", $canon );
+                    next ROOT_DIR;
+                }
+            }
+
+            my ( $cur_dev, $cur_inode, $perm ) = ( stat $curdir )[ 0, 1, 2 ]
+              or do {
+                _error( $arg, "cannot stat current working directory", $canon );
+                next ROOT_DIR;
+              };
+
+            if (_NEED_STAT_CHECK) {
+                ( $ldev eq $cur_dev and $lino eq $cur_inode )
+                  or _croak(
+"directory $canon changed before chdir, expected dev=$ldev ino=$lino, actual dev=$cur_dev ino=$cur_inode, aborting."
+                  );
+            }
+
+            $perm &= oct '7777';    # don't forget setuid, setgid, sticky bits
+            my $nperm = $perm | oct '700';
+
+            # notabene: 0700 is for making readable in the first place,
+            # it's also intended to change it to writable in case we have
+            # to recurse in which case we are better than rm -rf for
+            # subtrees with strange permissions
+
+            if (
+                !(
+                       $arg->{safe}
+                    or $nperm == $perm
+                    or chmod( $nperm, $curdir )
+                )
+              )
+            {
+                _error( $arg, "cannot make directory read+writeable", $canon );
+                $nperm = $perm;
+            }
+
+            my $d;
+            $d = gensym() if $] < 5.006;
+            if ( !opendir $d, $curdir ) {
+                _error( $arg, "cannot opendir", $canon );
+                @files = ();
+            }
+            else {
+                if ( !defined ${^TAINT} or ${^TAINT} ) {
+                    # Blindly untaint dir names if taint mode is active
+                    @files = map { /\A(.*)\z/s; $1 } readdir $d;
+                }
+                else {
+                    @files = readdir $d;
+                }
+                closedir $d;
+            }
+
+            if (_IS_VMS) {
+
+                # Deleting large numbers of files from VMS Files-11
+                # filesystems is faster if done in reverse ASCIIbetical order.
+                # include '.' to '.;' from blead patch #31775
+                @files = map { $_ eq '.' ? '.;' : $_ } reverse @files;
+            }
+
+            @files = grep { $_ ne $updir and $_ ne $curdir } @files;
+
+            if (@files) {
+
+                # remove the contained files before the directory itself
+                my $narg = {%$arg};
+                @{$narg}{qw(device inode cwd prefix depth)} =
+                  ( $cur_dev, $cur_inode, $updir, $canon, $arg->{depth} + 1 );
+                $count += _rmtree( $narg, \@files );
+            }
+
+            # restore directory permissions of required now (in case the rmdir
+            # below fails), while we are still in the directory and may do so
+            # without a race via '.'
+            if ( $nperm != $perm and not chmod( $perm, $curdir ) ) {
+                _error( $arg, "cannot reset chmod", $canon );
+            }
+
+            # don't leave the client code in an unexpected directory
+            chdir( $arg->{cwd} )
+              or
+              _croak("cannot chdir to $arg->{cwd} from $canon: $!, aborting.");
+
+            # ensure that a chdir upwards didn't take us somewhere other
+            # than we expected (see CVE-2002-0435)
+            ( $cur_dev, $cur_inode ) = ( stat $curdir )[ 0, 1 ]
+              or _croak(
+                "cannot stat prior working directory $arg->{cwd}: $!, aborting."
+              );
+
+            if (_NEED_STAT_CHECK) {
+                ( $arg->{device} eq $cur_dev and $arg->{inode} eq $cur_inode )
+                  or _croak(  "previous directory $arg->{cwd} "
+                            . "changed before entering $canon, "
+                            . "expected dev=$ldev ino=$lino, "
+                            . "actual dev=$cur_dev ino=$cur_inode, aborting."
+                  );
+            }
+
+            if ( $arg->{depth} or !$arg->{keep_root} ) {
+                if ( $arg->{safe}
+                    && ( _IS_VMS
+                        ? !&VMS::Filespec::candelete($root)
+                        : !-w $root ) )
+                {
+                    print "skipped $root\n" if $arg->{verbose};
+                    next ROOT_DIR;
+                }
+                if ( _FORCE_WRITABLE and !chmod $perm | oct '700', $root ) {
+                    _error( $arg, "cannot make directory writeable", $canon );
+                }
+                print "rmdir $root\n" if $arg->{verbose};
+                if ( rmdir $root ) {
+                    push @{ ${ $arg->{result} } }, $root if $arg->{result};
+                    ++$count;
+                }
+                else {
+                    _error( $arg, "cannot remove directory", $canon );
+                    if (
+                        _FORCE_WRITABLE
+                        && !chmod( $perm,
+                            ( _IS_VMS ? VMS::Filespec::fileify($root) : $root )
+                        )
+                      )
+                    {
+                        _error(
+                            $arg,
+                            sprintf( "cannot restore permissions to 0%o",
+                                $perm ),
+                            $canon
+                        );
+                    }
+                }
+            }
+        }
+        else {
+            # not a directory
+            $root = VMS::Filespec::vmsify("./$root")
+              if _IS_VMS
+              && !File::Spec->file_name_is_absolute($root)
+              && ( $root !~ m/(?<!\^)[\]>]+/ );    # not already in VMS syntax
+
+            if (
+                $arg->{safe}
+                && (
+                    _IS_VMS
+                    ? !&VMS::Filespec::candelete($root)
+                    : !( -l $root || -w $root )
+                )
+              )
+            {
+                print "skipped $root\n" if $arg->{verbose};
+                next ROOT_DIR;
+            }
+
+            my $nperm = $perm & oct '7777' | oct '600';
+            if (    _FORCE_WRITABLE
+                and $nperm != $perm
+                and not chmod $nperm, $root )
+            {
+                _error( $arg, "cannot make file writeable", $canon );
+            }
+            print "unlink $canon\n" if $arg->{verbose};
+
+            # delete all versions under VMS
+            for ( ; ; ) {
+                if ( unlink $root ) {
+                    push @{ ${ $arg->{result} } }, $root if $arg->{result};
+                }
+                else {
+                    _error( $arg, "cannot unlink file", $canon );
+                    _FORCE_WRITABLE and chmod( $perm, $root )
+                      or _error( $arg,
+                        sprintf( "cannot restore permissions to 0%o", $perm ),
+                        $canon );
+                    last;
+                }
+                ++$count;
+                last unless _IS_VMS && lstat $root;
+            }
+        }
+    }
+    return $count;
+}
+
+sub _slash_lc {
+
+    # fix up slashes and case on MSWin32 so that we can determine that
+    # c:\path\to\dir is underneath C:/Path/To
+    my $path = shift;
+    $path =~ tr{\\}{/};
+    return lc($path);
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+File::Path - Create or remove directory trees
+
+=head1 VERSION
+
+This document describes version 2.12 of File::Path.
+
+=head1 SYNOPSIS
+
+  use File::Path qw(make_path remove_tree);
+
+  @created = make_path('foo/bar/baz', '/zug/zwang');
+  @created = make_path('foo/bar/baz', '/zug/zwang', {
+      verbose => 1,
+      mode => 0711,
+  });
+  make_path('foo/bar/baz', '/zug/zwang', {
+      chmod => 0777,
+  });
+
+  $removed_count = remove_tree('foo/bar/baz', '/zug/zwang');
+  $removed_count = remove_tree('foo/bar/baz', '/zug/zwang', {
+      verbose => 1,
+      error  => \my $err_list,
+  });
+
+  # legacy (interface promoted before v2.00)
+  @created = mkpath('/foo/bar/baz');
+  @created = mkpath('/foo/bar/baz', 1, 0711);
+  @created = mkpath(['/foo/bar/baz', 'blurfl/quux'], 1, 0711);
+  $removed_count = rmtree('foo/bar/baz', 1, 1);
+  $removed_count = rmtree(['foo/bar/baz', 'blurfl/quux'], 1, 1);
+
+  # legacy (interface promoted before v2.06)
+  @created = mkpath('foo/bar/baz', '/zug/zwang', { verbose => 1, mode => 0711 });
+  $removed_count = rmtree('foo/bar/baz', '/zug/zwang', { verbose => 1, mode => 0711 });
+
+=head1 DESCRIPTION
+
+This module provide a convenient way to create directories of
+arbitrary depth and to delete an entire directory subtree from the
+filesystem.
+
+The following functions are provided:
+
+=over
+
+=item make_path( $dir1, $dir2, .... )
+
+=item make_path( $dir1, $dir2, ...., \%opts )
+
+The C<make_path> function creates the given directories if they don't
+exists before, much like the Unix command C<mkdir -p>.
+
+The function accepts a list of directories to be created. Its
+behaviour may be tuned by an optional hashref appearing as the last
+parameter on the call.
+
+The function returns the list of directories actually created during
+the call; in scalar context the number of directories created.
+
+The following keys are recognised in the option hash:
+
+=over
+
+=item mode => $num
+
+The numeric permissions mode to apply to each created directory
+(defaults to 0777), to be modified by the current C<umask>. If the
+directory already exists (and thus does not need to be created),
+the permissions will not be modified.
+
+C<mask> is recognised as an alias for this parameter.
+
+=item chmod => $num
+
+Takes a numeric mode to apply to each created directory (not
+modified by the current C<umask>). If the directory already exists
+(and thus does not need to be created), the permissions will
+not be modified.
+
+=item verbose => $bool
+
+If present, will cause C<make_path> to print the name of each directory
+as it is created. By default nothing is printed.
+
+=item error => \$err
+
+If present, it should be a reference to a scalar.
+This scalar will be made to reference an array, which will
+be used to store any errors that are encountered.  See the L</"ERROR
+HANDLING"> section for more information.
+
+If this parameter is not used, certain error conditions may raise
+a fatal error that will cause the program to halt, unless trapped
+in an C<eval> block.
+
+=item owner => $owner
+
+=item user => $owner
+
+=item uid => $owner
+
+If present, will cause any created directory to be owned by C<$owner>.
+If the value is numeric, it will be interpreted as a uid, otherwise
+as username is assumed. An error will be issued if the username cannot be
+mapped to a uid, or the uid does not exist, or the process lacks the
+privileges to change ownership.
+
+Ownership of directories that already exist will not be changed.
+
+C<user> and C<uid> are aliases of C<owner>.
+
+=item group => $group
+
+If present, will cause any created directory to be owned by the group C<$group>.
+If the value is numeric, it will be interpreted as a gid, otherwise
+as group name is assumed. An error will be issued if the group name cannot be
+mapped to a gid, or the gid does not exist, or the process lacks the
+privileges to change group ownership.
+
+Group ownership of directories that already exist will not be changed.
+
+    make_path '/var/tmp/webcache', {owner=>'nobody', group=>'nogroup'};
+
+=back
+
+=item mkpath( $dir )
+
+=item mkpath( $dir, $verbose, $mode )
+
+=item mkpath( [$dir1, $dir2,...], $verbose, $mode )
+
+=item mkpath( $dir1, $dir2,..., \%opt )
+
+The mkpath() function provide the legacy interface of make_path() with
+a different interpretation of the arguments passed.  The behaviour and
+return value of the function is otherwise identical to make_path().
+
+=item remove_tree( $dir1, $dir2, .... )
+
+=item remove_tree( $dir1, $dir2, ...., \%opts )
+
+The C<remove_tree> function deletes the given directories and any
+files and subdirectories they might contain, much like the Unix
+command C<rm -r> or the Windows commands C<rmdir /s> and C<rd /s>. The
+only exception to the function similarity is C<remove_tree> accepts
+only directories whereas C<rm -r> also accepts files.
+
+The function accepts a list of directories to be
+removed. Its behaviour may be tuned by an optional hashref
+appearing as the last parameter on the call.  If an empty string is
+passed to C<remove_tree>, an error will occur.
+
+The functions returns the number of files successfully deleted.
+
+The following keys are recognised in the option hash:
+
+=over
+
+=item verbose => $bool
+
+If present, will cause C<remove_tree> to print the name of each file as
+it is unlinked. By default nothing is printed.
+
+=item safe => $bool
+
+When set to a true value, will cause C<remove_tree> to skip the files
+for which the process lacks the required privileges needed to delete
+files, such as delete privileges on VMS. In other words, the code
+will make no attempt to alter file permissions. Thus, if the process
+is interrupted, no filesystem object will be left in a more
+permissive mode.
+
+=item keep_root => $bool
+
+When set to a true value, will cause all files and subdirectories
+to be removed, except the initially specified directories. This comes
+in handy when cleaning out an application's scratch directory.
+
+  remove_tree( '/tmp', {keep_root => 1} );
+
+=item result => \$res
+
+If present, it should be a reference to a scalar.
+This scalar will be made to reference an array, which will
+be used to store all files and directories unlinked
+during the call. If nothing is unlinked, the array will be empty.
+
+  remove_tree( '/tmp', {result => \my $list} );
+  print "unlinked $_\n" for @$list;
+
+This is a useful alternative to the C<verbose> key.
+
+=item error => \$err
+
+If present, it should be a reference to a scalar.
+This scalar will be made to reference an array, which will
+be used to store any errors that are encountered.  See the L</"ERROR
+HANDLING"> section for more information.
+
+Removing things is a much more dangerous proposition than
+creating things. As such, there are certain conditions that
+C<remove_tree> may encounter that are so dangerous that the only
+sane action left is to kill the program.
+
+Use C<error> to trap all that is reasonable (problems with
+permissions and the like), and let it die if things get out
+of hand. This is the safest course of action.
+
+=back
+
+=item rmtree( $dir )
+
+=item rmtree( $dir, $verbose, $safe )
+
+=item rmtree( [$dir1, $dir2,...], $verbose, $safe )
+
+=item rmtree( $dir1, $dir2,..., \%opt )
+
+The rmtree() function provide the legacy interface of remove_tree()
+with a different interpretation of the arguments passed. The behaviour
+and return value of the function is otherwise identical to
+remove_tree().
+
+=back
+
+=head2 ERROR HANDLING
+
+=over 4
+
+=item B<NOTE:>
+
+The following error handling mechanism is consistent throughout all
+code paths EXCEPT in cases where the ROOT node is nonexistent.  In
+version 2.11 the maintainers attempted to rectify this inconsistency
+but too many downstream modules encountered problems.  In such case,
+if you require root node evaluation or error checking prior to calling
+C<make_path> or C<remove_tree>, you should take additional precautions.
+
+=back
+
+If C<make_path> or C<remove_tree> encounter an error, a diagnostic
+message will be printed to C<STDERR> via C<carp> (for non-fatal
+errors), or via C<croak> (for fatal errors).
+
+If this behaviour is not desirable, the C<error> attribute may be
+used to hold a reference to a variable, which will be used to store
+the diagnostics. The variable is made a reference to an array of hash
+references.  Each hash contain a single key/value pair where the key
+is the name of the file, and the value is the error message (including
+the contents of C<$!> when appropriate).  If a general error is
+encountered the diagnostic key will be empty.
+
+An example usage looks like:
+
+  remove_tree( 'foo/bar', 'bar/rat', {error => \my $err} );
+  if (@$err) {
+      for my $diag (@$err) {
+          my ($file, $message) = %$diag;
+          if ($file eq '') {
+              print "general error: $message\n";
+          }
+          else {
+              print "problem unlinking $file: $message\n";
+          }
+      }
+  }
+  else {
+      print "No error encountered\n";
+  }
+
+Note that if no errors are encountered, C<$err> will reference an
+empty array.  This means that C<$err> will always end up TRUE; so you
+need to test C<@$err> to determine if errors occurred.
+
+=head2 NOTES
+
+C<File::Path> blindly exports C<mkpath> and C<rmtree> into the
+current namespace. These days, this is considered bad style, but
+to change it now would break too much code. Nonetheless, you are
+invited to specify what it is you are expecting to use:
+
+  use File::Path 'rmtree';
+
+The routines C<make_path> and C<remove_tree> are B<not> exported
+by default. You must specify which ones you want to use.
+
+  use File::Path 'remove_tree';
+
+Note that a side-effect of the above is that C<mkpath> and C<rmtree>
+are no longer exported at all. This is due to the way the C<Exporter>
+module works. If you are migrating a codebase to use the new
+interface, you will have to list everything explicitly. But that's
+just good practice anyway.
+
+  use File::Path qw(remove_tree rmtree);
+
+=head3 API CHANGES
+
+The API was changed in the 2.0 branch. For a time, C<mkpath> and
+C<rmtree> tried, unsuccessfully, to deal with the two different
+calling mechanisms. This approach was considered a failure.
+
+The new semantics are now only available with C<make_path> and
+C<remove_tree>. The old semantics are only available through
+C<mkpath> and C<rmtree>. Users are strongly encouraged to upgrade
+to at least 2.08 in order to avoid surprises.
+
+=head3 SECURITY CONSIDERATIONS
+
+There were race conditions 1.x implementations of File::Path's
+C<rmtree> function (although sometimes patched depending on the OS
+distribution or platform). The 2.0 version contains code to avoid the
+problem mentioned in CVE-2002-0435.
+
+See the following pages for more information:
+
+  http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=286905
+  http://www.nntp.perl.org/group/perl.perl5.porters/2005/01/msg97623.html
+  http://www.debian.org/security/2005/dsa-696
+
+Additionally, unless the C<safe> parameter is set (or the
+third parameter in the traditional interface is TRUE), should a
+C<remove_tree> be interrupted, files that were originally in read-only
+mode may now have their permissions set to a read-write (or "delete
+OK") mode.
+
+=head1 DIAGNOSTICS
+
+FATAL errors will cause the program to halt (C<croak>), since the
+problem is so severe that it would be dangerous to continue. (This
+can always be trapped with C<eval>, but it's not a good idea. Under
+the circumstances, dying is the best thing to do).
+
+SEVERE errors may be trapped using the modern interface. If the
+they are not trapped, or the old interface is used, such an error
+will cause the program will halt.
+
+All other errors may be trapped using the modern interface, otherwise
+they will be C<carp>ed about. Program execution will not be halted.
+
+=over 4
+
+=item mkdir [path]: [errmsg] (SEVERE)
+
+C<make_path> was unable to create the path. Probably some sort of
+permissions error at the point of departure, or insufficient resources
+(such as free inodes on Unix).
+
+=item No root path(s) specified
+
+C<make_path> was not given any paths to create. This message is only
+emitted if the routine is called with the traditional interface.
+The modern interface will remain silent if given nothing to do.
+
+=item No such file or directory
+
+On Windows, if C<make_path> gives you this warning, it may mean that
+you have exceeded your filesystem's maximum path length.
+
+=item cannot fetch initial working directory: [errmsg]
+
+C<remove_tree> attempted to determine the initial directory by calling
+C<Cwd::getcwd>, but the call failed for some reason. No attempt
+will be made to delete anything.
+
+=item cannot stat initial working directory: [errmsg]
+
+C<remove_tree> attempted to stat the initial directory (after having
+successfully obtained its name via C<getcwd>), however, the call
+failed for some reason. No attempt will be made to delete anything.
+
+=item cannot chdir to [dir]: [errmsg]
+
+C<remove_tree> attempted to set the working directory in order to
+begin deleting the objects therein, but was unsuccessful. This is
+usually a permissions issue. The routine will continue to delete
+other things, but this directory will be left intact.
+
+=item directory [dir] changed before chdir, expected dev=[n] ino=[n], actual dev=[n] ino=[n], aborting. (FATAL)
+
+C<remove_tree> recorded the device and inode of a directory, and then
+moved into it. It then performed a C<stat> on the current directory
+and detected that the device and inode were no longer the same. As
+this is at the heart of the race condition problem, the program
+will die at this point.
+
+=item cannot make directory [dir] read+writeable: [errmsg]
+
+C<remove_tree> attempted to change the permissions on the current directory
+to ensure that subsequent unlinkings would not run into problems,
+but was unable to do so. The permissions remain as they were, and
+the program will carry on, doing the best it can.
+
+=item cannot read [dir]: [errmsg]
+
+C<remove_tree> tried to read the contents of the directory in order
+to acquire the names of the directory entries to be unlinked, but
+was unsuccessful. This is usually a permissions issue. The
+program will continue, but the files in this directory will remain
+after the call.
+
+=item cannot reset chmod [dir]: [errmsg]
+
+C<remove_tree>, after having deleted everything in a directory, attempted
+to restore its permissions to the original state but failed. The
+directory may wind up being left behind.
+
+=item cannot remove [dir] when cwd is [dir]
+
+The current working directory of the program is F</some/path/to/here>
+and you are attempting to remove an ancestor, such as F</some/path>.
+The directory tree is left untouched.
+
+The solution is to C<chdir> out of the child directory to a place
+outside the directory tree to be removed.
+
+=item cannot chdir to [parent-dir] from [child-dir]: [errmsg], aborting. (FATAL)
+
+C<remove_tree>, after having deleted everything and restored the permissions
+of a directory, was unable to chdir back to the parent. The program
+halts to avoid a race condition from occurring.
+
+=item cannot stat prior working directory [dir]: [errmsg], aborting. (FATAL)
+
+C<remove_tree> was unable to stat the parent directory after have returned
+from the child. Since there is no way of knowing if we returned to
+where we think we should be (by comparing device and inode) the only
+way out is to C<croak>.
+
+=item previous directory [parent-dir] changed before entering [child-dir], expected dev=[n] ino=[n], actual dev=[n] ino=[n], aborting. (FATAL)
+
+When C<remove_tree> returned from deleting files in a child directory, a
+check revealed that the parent directory it returned to wasn't the one
+it started out from. This is considered a sign of malicious activity.
+
+=item cannot make directory [dir] writeable: [errmsg]
+
+Just before removing a directory (after having successfully removed
+everything it contained), C<remove_tree> attempted to set the permissions
+on the directory to ensure it could be removed and failed. Program
+execution continues, but the directory may possibly not be deleted.
+
+=item cannot remove directory [dir]: [errmsg]
+
+C<remove_tree> attempted to remove a directory, but failed. This may because
+some objects that were unable to be removed remain in the directory, or
+a permissions issue. The directory will be left behind.
+
+=item cannot restore permissions of [dir] to [0nnn]: [errmsg]
+
+After having failed to remove a directory, C<remove_tree> was unable to
+restore its permissions from a permissive state back to a possibly
+more restrictive setting. (Permissions given in octal).
+
+=item cannot make file [file] writeable: [errmsg]
+
+C<remove_tree> attempted to force the permissions of a file to ensure it
+could be deleted, but failed to do so. It will, however, still attempt
+to unlink the file.
+
+=item cannot unlink file [file]: [errmsg]
+
+C<remove_tree> failed to remove a file. Probably a permissions issue.
+
+=item cannot restore permissions of [file] to [0nnn]: [errmsg]
+
+After having failed to remove a file, C<remove_tree> was also unable
+to restore the permissions on the file to a possibly less permissive
+setting. (Permissions given in octal).
+
+=item unable to map [owner] to a uid, ownership not changed");
+
+C<make_path> was instructed to give the ownership of created
+directories to the symbolic name [owner], but C<getpwnam> did
+not return the corresponding numeric uid. The directory will
+be created, but ownership will not be changed.
+
+=item unable to map [group] to a gid, group ownership not changed
+
+C<make_path> was instructed to give the group ownership of created
+directories to the symbolic name [group], but C<getgrnam> did
+not return the corresponding numeric gid. The directory will
+be created, but group ownership will not be changed.
+
+=back
+
+=head1 SEE ALSO
+
+=over 4
+
+=item *
+
+L<File::Remove>
+
+Allows files and directories to be moved to the Trashcan/Recycle
+Bin (where they may later be restored if necessary) if the operating
+system supports such functionality. This feature may one day be
+made available directly in C<File::Path>.
+
+=item *
+
+L<File::Find::Rule>
+
+When removing directory trees, if you want to examine each file to
+decide whether to delete it (and possibly leaving large swathes
+alone), F<File::Find::Rule> offers a convenient and flexible approach
+to examining directory trees.
+
+=back
+
+=head1 BUGS AND LIMITATIONS
+
+The following describes F<File::Path> limitations and how to report bugs.
+
+=head2 MULTITHREAD APPLICATIONS
+
+F<File::Path> B<rmtree> and B<remove_tree> will not work with multithreaded
+applications due to its use of B<chdir>.  At this time, no warning or error
+results and you will certainly encounter unexpected results.
+
+The implementation that surfaces this limitation may change in a future
+release.
+
+=head2 NFS Mount Points
+
+F<File::Path> is not responsible for triggering the automounts, mirror mounts,
+and the contents of network mounted filesystems.  If your NFS implementation
+requires an action to be performed on the filesystem in order for
+F<File::Path> to perform operations, it is strongly suggested you assure
+filesystem availability by reading the root of the mounted filesystem.
+
+=head2 REPORTING BUGS
+
+Please report all bugs on the RT queue, either via the web interface:
+
+L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=File-Path>
+
+or by email:
+
+    bug-File-Path@rt.cpan.org
+
+In either case, please B<attach> patches to the bug report rather than
+including them inline in the web post or the body of the email.
+
+You can also send pull requests to the Github repository:
+
+L<https://github.com/rpcme/File-Path>
+
+=head1 ACKNOWLEDGEMENTS
+
+Paul Szabo identified the race condition originally, and Brendan
+O'Dea wrote an implementation for Debian that addressed the problem.
+That code was used as a basis for the current code. Their efforts
+are greatly appreciated.
+
+Gisle Aas made a number of improvements to the documentation for
+2.07 and his advice and assistance is also greatly appreciated.
+
+=head1 AUTHORS
+
+Prior authors and maintainers: Tim Bunce, Charles Bailey, and
+David Landgren <F<david@landgren.net>>.
+
+Current maintainers are Richard Elberger <F<riche@cpan.org>> and
+James (Jim) Keenan <F<jkeenan@cpan.org>>.
+
+=head1 CONTRIBUTORS
+
+Contributors to File::Path, in alphabetical order.
+
+=over 1
+
+=item <F<bulkdd@cpan.org>>
+
+=item Craig A. Berry <F<craigberry@mac.com>>
+
+=item Richard Elberger <F<riche@cpan.org>>
+
+=item Ryan Yee <F<ryee@cpan.org>>
+
+=item Skye Shaw <F<shaw@cpan.org>>
+
+=item Tom Lutz <F<tommylutz@gmail.com>>
+
+=back
+
+=head1 COPYRIGHT
+
+This module is copyright (C) Charles Bailey, Tim Bunce, David Landgren,
+James Keenan, and Richard Elberger 1995-2015. All rights reserved.
+
+=head1 LICENSE
+
+This library is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
+=cut
diff --git a/lib/5.24.1/File/Temp.pm b/lib/5.24.1/File/Temp.pm
new file mode 100644
index 00000000..817c6d90
--- /dev/null
+++ b/lib/5.24.1/File/Temp.pm
@@ -0,0 +1,2594 @@
+package File::Temp;
+# ABSTRACT: return name and handle of a temporary file safely
+our $VERSION = '0.2304'; # VERSION
+
+
+# Toolchain targets v5.8.1, but we'll try to support back to v5.6 anyway.
+# It might be possible to make this v5.5, but many v5.6isms are creeping
+# into the code and tests.
+use 5.006;
+use strict;
+use Carp;
+use File::Spec 0.8;
+use Cwd ();
+use File::Path 2.06 qw/ rmtree /;
+use Fcntl 1.03;
+use IO::Seekable;               # For SEEK_*
+use Errno;
+use Scalar::Util 'refaddr';
+require VMS::Stdio if $^O eq 'VMS';
+
+# pre-emptively load Carp::Heavy. If we don't when we run out of file
+# handles and attempt to call croak() we get an error message telling
+# us that Carp::Heavy won't load rather than an error telling us we
+# have run out of file handles. We either preload croak() or we
+# switch the calls to croak from _gettemp() to use die.
+eval { require Carp::Heavy; };
+
+# Need the Symbol package if we are running older perl
+require Symbol if $] < 5.006;
+
+### For the OO interface
+use parent 0.221 qw/ IO::Handle IO::Seekable /;
+use overload '""' => "STRINGIFY", '0+' => "NUMIFY",
+  fallback => 1;
+
+# use 'our' on v5.6.0
+use vars qw(@EXPORT_OK %EXPORT_TAGS $DEBUG $KEEP_ALL);
+
+$DEBUG = 0;
+$KEEP_ALL = 0;
+
+# We are exporting functions
+
+use Exporter 5.57 'import';   # 5.57 lets us import 'import'
+
+# Export list - to allow fine tuning of export table
+
+@EXPORT_OK = qw{
+                 tempfile
+                 tempdir
+                 tmpnam
+                 tmpfile
+                 mktemp
+                 mkstemp
+                 mkstemps
+                 mkdtemp
+                 unlink0
+                 cleanup
+                 SEEK_SET
+                 SEEK_CUR
+                 SEEK_END
+             };
+
+# Groups of functions for export
+
+%EXPORT_TAGS = (
+                'POSIX' => [qw/ tmpnam tmpfile /],
+                'mktemp' => [qw/ mktemp mkstemp mkstemps mkdtemp/],
+                'seekable' => [qw/ SEEK_SET SEEK_CUR SEEK_END /],
+               );
+
+# add contents of these tags to @EXPORT
+Exporter::export_tags('POSIX','mktemp','seekable');
+
+# This is a list of characters that can be used in random filenames
+
+my @CHARS = (qw/ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
+                 a b c d e f g h i j k l m n o p q r s t u v w x y z
+                 0 1 2 3 4 5 6 7 8 9 _
+               /);
+
+# Maximum number of tries to make a temp file before failing
+
+use constant MAX_TRIES => 1000;
+
+# Minimum number of X characters that should be in a template
+use constant MINX => 4;
+
+# Default template when no template supplied
+
+use constant TEMPXXX => 'X' x 10;
+
+# Constants for the security level
+
+use constant STANDARD => 0;
+use constant MEDIUM   => 1;
+use constant HIGH     => 2;
+
+# OPENFLAGS. If we defined the flag to use with Sysopen here this gives
+# us an optimisation when many temporary files are requested
+
+my $OPENFLAGS = O_CREAT | O_EXCL | O_RDWR;
+my $LOCKFLAG;
+
+unless ($^O eq 'MacOS') {
+  for my $oflag (qw/ NOFOLLOW BINARY LARGEFILE NOINHERIT /) {
+    my ($bit, $func) = (0, "Fcntl::O_" . $oflag);
+    no strict 'refs';
+    $OPENFLAGS |= $bit if eval {
+      # Make sure that redefined die handlers do not cause problems
+      # e.g. CGI::Carp
+      local $SIG{__DIE__} = sub {};
+      local $SIG{__WARN__} = sub {};
+      $bit = &$func();
+      1;
+    };
+  }
+  # Special case O_EXLOCK
+  $LOCKFLAG = eval {
+    local $SIG{__DIE__} = sub {};
+    local $SIG{__WARN__} = sub {};
+    &Fcntl::O_EXLOCK();
+  };
+}
+
+# On some systems the O_TEMPORARY flag can be used to tell the OS
+# to automatically remove the file when it is closed. This is fine
+# in most cases but not if tempfile is called with UNLINK=>0 and
+# the filename is requested -- in the case where the filename is to
+# be passed to another routine. This happens on windows. We overcome
+# this by using a second open flags variable
+
+my $OPENTEMPFLAGS = $OPENFLAGS;
+unless ($^O eq 'MacOS') {
+  for my $oflag (qw/ TEMPORARY /) {
+    my ($bit, $func) = (0, "Fcntl::O_" . $oflag);
+    local($@);
+    no strict 'refs';
+    $OPENTEMPFLAGS |= $bit if eval {
+      # Make sure that redefined die handlers do not cause problems
+      # e.g. CGI::Carp
+      local $SIG{__DIE__} = sub {};
+      local $SIG{__WARN__} = sub {};
+      $bit = &$func();
+      1;
+    };
+  }
+}
+
+# Private hash tracking which files have been created by each process id via the OO interface
+my %FILES_CREATED_BY_OBJECT;
+
+# INTERNAL ROUTINES - not to be used outside of package
+
+# Generic routine for getting a temporary filename
+# modelled on OpenBSD _gettemp() in mktemp.c
+
+# The template must contain X's that are to be replaced
+# with the random values
+
+#  Arguments:
+
+#  TEMPLATE   - string containing the XXXXX's that is converted
+#           to a random filename and opened if required
+
+# Optionally, a hash can also be supplied containing specific options
+#   "open" => if true open the temp file, else just return the name
+#             default is 0
+#   "mkdir"=> if true, we are creating a temp directory rather than tempfile
+#             default is 0
+#   "suffixlen" => number of characters at end of PATH to be ignored.
+#                  default is 0.
+#   "unlink_on_close" => indicates that, if possible,  the OS should remove
+#                        the file as soon as it is closed. Usually indicates
+#                        use of the O_TEMPORARY flag to sysopen.
+#                        Usually irrelevant on unix
+#   "use_exlock" => Indicates that O_EXLOCK should be used. Default is true.
+
+# Optionally a reference to a scalar can be passed into the function
+# On error this will be used to store the reason for the error
+#   "ErrStr"  => \$errstr
+
+# "open" and "mkdir" can not both be true
+# "unlink_on_close" is not used when "mkdir" is true.
+
+# The default options are equivalent to mktemp().
+
+# Returns:
+#   filehandle - open file handle (if called with doopen=1, else undef)
+#   temp name  - name of the temp file or directory
+
+# For example:
+#   ($fh, $name) = _gettemp($template, "open" => 1);
+
+# for the current version, failures are associated with
+# stored in an error string and returned to give the reason whilst debugging
+# This routine is not called by any external function
+sub _gettemp {
+
+  croak 'Usage: ($fh, $name) = _gettemp($template, OPTIONS);'
+    unless scalar(@_) >= 1;
+
+  # the internal error string - expect it to be overridden
+  # Need this in case the caller decides not to supply us a value
+  # need an anonymous scalar
+  my $tempErrStr;
+
+  # Default options
+  my %options = (
+                 "open" => 0,
+                 "mkdir" => 0,
+                 "suffixlen" => 0,
+                 "unlink_on_close" => 0,
+                 "use_exlock" => 1,
+                 "ErrStr" => \$tempErrStr,
+                );
+
+  # Read the template
+  my $template = shift;
+  if (ref($template)) {
+    # Use a warning here since we have not yet merged ErrStr
+    carp "File::Temp::_gettemp: template must not be a reference";
+    return ();
+  }
+
+  # Check that the number of entries on stack are even
+  if (scalar(@_) % 2 != 0) {
+    # Use a warning here since we have not yet merged ErrStr
+    carp "File::Temp::_gettemp: Must have even number of options";
+    return ();
+  }
+
+  # Read the options and merge with defaults
+  %options = (%options, @_)  if @_;
+
+  # Make sure the error string is set to undef
+  ${$options{ErrStr}} = undef;
+
+  # Can not open the file and make a directory in a single call
+  if ($options{"open"} && $options{"mkdir"}) {
+    ${$options{ErrStr}} = "doopen and domkdir can not both be true\n";
+    return ();
+  }
+
+  # Find the start of the end of the  Xs (position of last X)
+  # Substr starts from 0
+  my $start = length($template) - 1 - $options{"suffixlen"};
+
+  # Check that we have at least MINX x X (e.g. 'XXXX") at the end of the string
+  # (taking suffixlen into account). Any fewer is insecure.
+
+  # Do it using substr - no reason to use a pattern match since
+  # we know where we are looking and what we are looking for
+
+  if (substr($template, $start - MINX + 1, MINX) ne 'X' x MINX) {
+    ${$options{ErrStr}} = "The template must end with at least ".
+      MINX . " 'X' characters\n";
+    return ();
+  }
+
+  # Replace all the X at the end of the substring with a
+  # random character or just all the XX at the end of a full string.
+  # Do it as an if, since the suffix adjusts which section to replace
+  # and suffixlen=0 returns nothing if used in the substr directly
+  # and generate a full path from the template
+
+  my $path = _replace_XX($template, $options{"suffixlen"});
+
+
+  # Split the path into constituent parts - eventually we need to check
+  # whether the directory exists
+  # We need to know whether we are making a temp directory
+  # or a tempfile
+
+  my ($volume, $directories, $file);
+  my $parent;                   # parent directory
+  if ($options{"mkdir"}) {
+    # There is no filename at the end
+    ($volume, $directories, $file) = File::Spec->splitpath( $path, 1);
+
+    # The parent is then $directories without the last directory
+    # Split the directory and put it back together again
+    my @dirs = File::Spec->splitdir($directories);
+
+    # If @dirs only has one entry (i.e. the directory template) that means
+    # we are in the current directory
+    if ($#dirs == 0) {
+      $parent = File::Spec->curdir;
+    } else {
+
+      if ($^O eq 'VMS') {     # need volume to avoid relative dir spec
+        $parent = File::Spec->catdir($volume, @dirs[0..$#dirs-1]);
+        $parent = 'sys$disk:[]' if $parent eq '';
+      } else {
+
+        # Put it back together without the last one
+        $parent = File::Spec->catdir(@dirs[0..$#dirs-1]);
+
+        # ...and attach the volume (no filename)
+        $parent = File::Spec->catpath($volume, $parent, '');
+      }
+
+    }
+
+  } else {
+
+    # Get rid of the last filename (use File::Basename for this?)
+    ($volume, $directories, $file) = File::Spec->splitpath( $path );
+
+    # Join up without the file part
+    $parent = File::Spec->catpath($volume,$directories,'');
+
+    # If $parent is empty replace with curdir
+    $parent = File::Spec->curdir
+      unless $directories ne '';
+
+  }
+
+  # Check that the parent directories exist
+  # Do this even for the case where we are simply returning a name
+  # not a file -- no point returning a name that includes a directory
+  # that does not exist or is not writable
+
+  unless (-e $parent) {
+    ${$options{ErrStr}} = "Parent directory ($parent) does not exist";
+    return ();
+  }
+  unless (-d $parent) {
+    ${$options{ErrStr}} = "Parent directory ($parent) is not a directory";
+    return ();
+  }
+
+  # Check the stickiness of the directory and chown giveaway if required
+  # If the directory is world writable the sticky bit
+  # must be set
+
+  if (File::Temp->safe_level == MEDIUM) {
+    my $safeerr;
+    unless (_is_safe($parent,\$safeerr)) {
+      ${$options{ErrStr}} = "Parent directory ($parent) is not safe ($safeerr)";
+      return ();
+    }
+  } elsif (File::Temp->safe_level == HIGH) {
+    my $safeerr;
+    unless (_is_verysafe($parent, \$safeerr)) {
+      ${$options{ErrStr}} = "Parent directory ($parent) is not safe ($safeerr)";
+      return ();
+    }
+  }
+
+
+  # Now try MAX_TRIES time to open the file
+  for (my $i = 0; $i < MAX_TRIES; $i++) {
+
+    # Try to open the file if requested
+    if ($options{"open"}) {
+      my $fh;
+
+      # If we are running before perl5.6.0 we can not auto-vivify
+      if ($] < 5.006) {
+        $fh = &Symbol::gensym;
+      }
+
+      # Try to make sure this will be marked close-on-exec
+      # XXX: Win32 doesn't respect this, nor the proper fcntl,
+      #      but may have O_NOINHERIT. This may or may not be in Fcntl.
+      local $^F = 2;
+
+      # Attempt to open the file
+      my $open_success = undef;
+      if ( $^O eq 'VMS' and $options{"unlink_on_close"} && !$KEEP_ALL) {
+        # make it auto delete on close by setting FAB$V_DLT bit
+        $fh = VMS::Stdio::vmssysopen($path, $OPENFLAGS, 0600, 'fop=dlt');
+        $open_success = $fh;
+      } else {
+        my $flags = ( ($options{"unlink_on_close"} && !$KEEP_ALL) ?
+                      $OPENTEMPFLAGS :
+                      $OPENFLAGS );
+        $flags |= $LOCKFLAG if (defined $LOCKFLAG && $options{use_exlock});
+        $open_success = sysopen($fh, $path, $flags, 0600);
+      }
+      if ( $open_success ) {
+
+        # in case of odd umask force rw
+        chmod(0600, $path);
+
+        # Opened successfully - return file handle and name
+        return ($fh, $path);
+
+      } else {
+
+        # Error opening file - abort with error
+        # if the reason was anything but EEXIST
+        unless ($!{EEXIST}) {
+          ${$options{ErrStr}} = "Could not create temp file $path: $!";
+          return ();
+        }
+
+        # Loop round for another try
+
+      }
+    } elsif ($options{"mkdir"}) {
+
+      # Open the temp directory
+      if (mkdir( $path, 0700)) {
+        # in case of odd umask
+        chmod(0700, $path);
+
+        return undef, $path;
+      } else {
+
+        # Abort with error if the reason for failure was anything
+        # except EEXIST
+        unless ($!{EEXIST}) {
+          ${$options{ErrStr}} = "Could not create directory $path: $!";
+          return ();
+        }
+
+        # Loop round for another try
+
+      }
+
+    } else {
+
+      # Return true if the file can not be found
+      # Directory has been checked previously
+
+      return (undef, $path) unless -e $path;
+
+      # Try again until MAX_TRIES
+
+    }
+
+    # Did not successfully open the tempfile/dir
+    # so try again with a different set of random letters
+    # No point in trying to increment unless we have only
+    # 1 X say and the randomness could come up with the same
+    # file MAX_TRIES in a row.
+
+    # Store current attempt - in principal this implies that the
+    # 3rd time around the open attempt that the first temp file
+    # name could be generated again. Probably should store each
+    # attempt and make sure that none are repeated
+
+    my $original = $path;
+    my $counter = 0;            # Stop infinite loop
+    my $MAX_GUESS = 50;
+
+    do {
+
+      # Generate new name from original template
+      $path = _replace_XX($template, $options{"suffixlen"});
+
+      $counter++;
+
+    } until ($path ne $original || $counter > $MAX_GUESS);
+
+    # Check for out of control looping
+    if ($counter > $MAX_GUESS) {
+      ${$options{ErrStr}} = "Tried to get a new temp name different to the previous value $MAX_GUESS times.\nSomething wrong with template?? ($template)";
+      return ();
+    }
+
+  }
+
+  # If we get here, we have run out of tries
+  ${ $options{ErrStr} } = "Have exceeded the maximum number of attempts ("
+    . MAX_TRIES . ") to open temp file/dir";
+
+  return ();
+
+}
+
+# Internal routine to replace the XXXX... with random characters
+# This has to be done by _gettemp() every time it fails to
+# open a temp file/dir
+
+# Arguments:  $template (the template with XXX),
+#             $ignore   (number of characters at end to ignore)
+
+# Returns:    modified template
+
+sub _replace_XX {
+
+  croak 'Usage: _replace_XX($template, $ignore)'
+    unless scalar(@_) == 2;
+
+  my ($path, $ignore) = @_;
+
+  # Do it as an if, since the suffix adjusts which section to replace
+  # and suffixlen=0 returns nothing if used in the substr directly
+  # Alternatively, could simply set $ignore to length($path)-1
+  # Don't want to always use substr when not required though.
+  my $end = ( $] >= 5.006 ? "\\z" : "\\Z" );
+
+  if ($ignore) {
+    substr($path, 0, - $ignore) =~ s/X(?=X*$end)/$CHARS[ int( rand( @CHARS ) ) ]/ge;
+  } else {
+    $path =~ s/X(?=X*$end)/$CHARS[ int( rand( @CHARS ) ) ]/ge;
+  }
+  return $path;
+}
+
+# Internal routine to force a temp file to be writable after
+# it is created so that we can unlink it. Windows seems to occasionally
+# force a file to be readonly when written to certain temp locations
+sub _force_writable {
+  my $file = shift;
+  chmod 0600, $file;
+}
+
+
+# internal routine to check to see if the directory is safe
+# First checks to see if the directory is not owned by the
+# current user or root. Then checks to see if anyone else
+# can write to the directory and if so, checks to see if
+# it has the sticky bit set
+
+# Will not work on systems that do not support sticky bit
+
+#Args:  directory path to check
+#       Optionally: reference to scalar to contain error message
+# Returns true if the path is safe and false otherwise.
+# Returns undef if can not even run stat() on the path
+
+# This routine based on version written by Tom Christiansen
+
+# Presumably, by the time we actually attempt to create the
+# file or directory in this directory, it may not be safe
+# anymore... Have to run _is_safe directly after the open.
+
+sub _is_safe {
+
+  my $path = shift;
+  my $err_ref = shift;
+
+  # Stat path
+  my @info = stat($path);
+  unless (scalar(@info)) {
+    $$err_ref = "stat(path) returned no values";
+    return 0;
+  }
+  ;
+  return 1 if $^O eq 'VMS';     # owner delete control at file level
+
+  # Check to see whether owner is neither superuser (or a system uid) nor me
+  # Use the effective uid from the $> variable
+  # UID is in [4]
+  if ($info[4] > File::Temp->top_system_uid() && $info[4] != $>) {
+
+    Carp::cluck(sprintf "uid=$info[4] topuid=%s euid=$> path='$path'",
+                File::Temp->top_system_uid());
+
+    $$err_ref = "Directory owned neither by root nor the current user"
+      if ref($err_ref);
+    return 0;
+  }
+
+  # check whether group or other can write file
+  # use 066 to detect either reading or writing
+  # use 022 to check writability
+  # Do it with S_IWOTH and S_IWGRP for portability (maybe)
+  # mode is in info[2]
+  if (($info[2] & &Fcntl::S_IWGRP) ||  # Is group writable?
+      ($info[2] & &Fcntl::S_IWOTH) ) { # Is world writable?
+    # Must be a directory
+    unless (-d $path) {
+      $$err_ref = "Path ($path) is not a directory"
+        if ref($err_ref);
+      return 0;
+    }
+    # Must have sticky bit set
+    unless (-k $path) {
+      $$err_ref = "Sticky bit not set on $path when dir is group|world writable"
+        if ref($err_ref);
+      return 0;
+    }
+  }
+
+  return 1;
+}
+
+# Internal routine to check whether a directory is safe
+# for temp files. Safer than _is_safe since it checks for
+# the possibility of chown giveaway and if that is a possibility
+# checks each directory in the path to see if it is safe (with _is_safe)
+
+# If _PC_CHOWN_RESTRICTED is not set, does the full test of each
+# directory anyway.
+
+# Takes optional second arg as scalar ref to error reason
+
+sub _is_verysafe {
+
+  # Need POSIX - but only want to bother if really necessary due to overhead
+  require POSIX;
+
+  my $path = shift;
+  print "_is_verysafe testing $path\n" if $DEBUG;
+  return 1 if $^O eq 'VMS';     # owner delete control at file level
+
+  my $err_ref = shift;
+
+  # Should Get the value of _PC_CHOWN_RESTRICTED if it is defined
+  # and If it is not there do the extensive test
+  local($@);
+  my $chown_restricted;
+  $chown_restricted = &POSIX::_PC_CHOWN_RESTRICTED()
+    if eval { &POSIX::_PC_CHOWN_RESTRICTED(); 1};
+
+  # If chown_resticted is set to some value we should test it
+  if (defined $chown_restricted) {
+
+    # Return if the current directory is safe
+    return _is_safe($path,$err_ref) if POSIX::sysconf( $chown_restricted );
+
+  }
+
+  # To reach this point either, the _PC_CHOWN_RESTRICTED symbol
+  # was not available or the symbol was there but chown giveaway
+  # is allowed. Either way, we now have to test the entire tree for
+  # safety.
+
+  # Convert path to an absolute directory if required
+  unless (File::Spec->file_name_is_absolute($path)) {
+    $path = File::Spec->rel2abs($path);
+  }
+
+  # Split directory into components - assume no file
+  my ($volume, $directories, undef) = File::Spec->splitpath( $path, 1);
+
+  # Slightly less efficient than having a function in File::Spec
+  # to chop off the end of a directory or even a function that
+  # can handle ../ in a directory tree
+  # Sometimes splitdir() returns a blank at the end
+  # so we will probably check the bottom directory twice in some cases
+  my @dirs = File::Spec->splitdir($directories);
+
+  # Concatenate one less directory each time around
+  foreach my $pos (0.. $#dirs) {
+    # Get a directory name
+    my $dir = File::Spec->catpath($volume,
+                                  File::Spec->catdir(@dirs[0.. $#dirs - $pos]),
+                                  ''
+                                 );
+
+    print "TESTING DIR $dir\n" if $DEBUG;
+
+    # Check the directory
+    return 0 unless _is_safe($dir,$err_ref);
+
+  }
+
+  return 1;
+}
+
+
+
+# internal routine to determine whether unlink works on this
+# platform for files that are currently open.
+# Returns true if we can, false otherwise.
+
+# Currently WinNT, OS/2 and VMS can not unlink an opened file
+# On VMS this is because the O_EXCL flag is used to open the
+# temporary file. Currently I do not know enough about the issues
+# on VMS to decide whether O_EXCL is a requirement.
+
+sub _can_unlink_opened_file {
+
+  if (grep { $^O eq $_ } qw/MSWin32 os2 VMS dos MacOS haiku/) {
+    return 0;
+  } else {
+    return 1;
+  }
+
+}
+
+# internal routine to decide which security levels are allowed
+# see safe_level() for more information on this
+
+# Controls whether the supplied security level is allowed
+
+#   $cando = _can_do_level( $level )
+
+sub _can_do_level {
+
+  # Get security level
+  my $level = shift;
+
+  # Always have to be able to do STANDARD
+  return 1 if $level == STANDARD;
+
+  # Currently, the systems that can do HIGH or MEDIUM are identical
+  if ( $^O eq 'MSWin32' || $^O eq 'os2' || $^O eq 'cygwin' || $^O eq 'dos' || $^O eq 'MacOS' || $^O eq 'mpeix') {
+    return 0;
+  } else {
+    return 1;
+  }
+
+}
+
+# This routine sets up a deferred unlinking of a specified
+# filename and filehandle. It is used in the following cases:
+#  - Called by unlink0 if an opened file can not be unlinked
+#  - Called by tempfile() if files are to be removed on shutdown
+#  - Called by tempdir() if directories are to be removed on shutdown
+
+# Arguments:
+#   _deferred_unlink( $fh, $fname, $isdir );
+#
+#   - filehandle (so that it can be explicitly closed if open
+#   - filename   (the thing we want to remove)
+#   - isdir      (flag to indicate that we are being given a directory)
+#                 [and hence no filehandle]
+
+# Status is not referred to since all the magic is done with an END block
+
+{
+  # Will set up two lexical variables to contain all the files to be
+  # removed. One array for files, another for directories They will
+  # only exist in this block.
+
+  #  This means we only have to set up a single END block to remove
+  #  all files. 
+
+  # in order to prevent child processes inadvertently deleting the parent
+  # temp files we use a hash to store the temp files and directories
+  # created by a particular process id.
+
+  # %files_to_unlink contains values that are references to an array of
+  # array references containing the filehandle and filename associated with
+  # the temp file.
+  my (%files_to_unlink, %dirs_to_unlink);
+
+  # Set up an end block to use these arrays
+  END {
+    local($., $@, $!, $^E, $?);
+    cleanup(at_exit => 1);
+  }
+
+  # Cleanup function. Always triggered on END (with at_exit => 1) but
+  # can be invoked manually.
+  sub cleanup {
+    my %h = @_;
+    my $at_exit = delete $h{at_exit};
+    $at_exit = 0 if not defined $at_exit;
+    { my @k = sort keys %h; die "unrecognized parameters: @k" if @k }
+
+    if (!$KEEP_ALL) {
+      # Files
+      my @files = (exists $files_to_unlink{$$} ?
+                   @{ $files_to_unlink{$$} } : () );
+      foreach my $file (@files) {
+        # close the filehandle without checking its state
+        # in order to make real sure that this is closed
+        # if its already closed then I don't care about the answer
+        # probably a better way to do this
+        close($file->[0]);      # file handle is [0]
+
+        if (-f $file->[1]) {       # file name is [1]
+          _force_writable( $file->[1] ); # for windows
+          unlink $file->[1] or warn "Error removing ".$file->[1];
+        }
+      }
+      # Dirs
+      my @dirs = (exists $dirs_to_unlink{$$} ?
+                  @{ $dirs_to_unlink{$$} } : () );
+      my ($cwd, $cwd_to_remove);
+      foreach my $dir (@dirs) {
+        if (-d $dir) {
+          # Some versions of rmtree will abort if you attempt to remove
+          # the directory you are sitting in. For automatic cleanup
+          # at program exit, we avoid this by chdir()ing out of the way
+          # first. If not at program exit, it's best not to mess with the
+          # current directory, so just let it fail with a warning.
+          if ($at_exit) {
+            $cwd = Cwd::abs_path(File::Spec->curdir) if not defined $cwd;
+            my $abs = Cwd::abs_path($dir);
+            if ($abs eq $cwd) {
+              $cwd_to_remove = $dir;
+              next;
+            }
+          }
+          eval { rmtree($dir, $DEBUG, 0); };
+          warn $@ if ($@ && $^W);
+        }
+      }
+
+      if (defined $cwd_to_remove) {
+        # We do need to clean up the current directory, and everything
+        # else is done, so get out of there and remove it.
+        chdir $cwd_to_remove or die "cannot chdir to $cwd_to_remove: $!";
+        my $updir = File::Spec->updir;
+        chdir $updir or die "cannot chdir to $updir: $!";
+        eval { rmtree($cwd_to_remove, $DEBUG, 0); };
+        warn $@ if ($@ && $^W);
+      }
+
+      # clear the arrays
+      @{ $files_to_unlink{$$} } = ()
+        if exists $files_to_unlink{$$};
+      @{ $dirs_to_unlink{$$} } = ()
+        if exists $dirs_to_unlink{$$};
+    }
+  }
+
+
+  # This is the sub called to register a file for deferred unlinking
+  # This could simply store the input parameters and defer everything
+  # until the END block. For now we do a bit of checking at this
+  # point in order to make sure that (1) we have a file/dir to delete
+  # and (2) we have been called with the correct arguments.
+  sub _deferred_unlink {
+
+    croak 'Usage:  _deferred_unlink($fh, $fname, $isdir)'
+      unless scalar(@_) == 3;
+
+    my ($fh, $fname, $isdir) = @_;
+
+    warn "Setting up deferred removal of $fname\n"
+      if $DEBUG;
+
+    # make sure we save the absolute path for later cleanup
+    # OK to untaint because we only ever use this internally
+    # as a file path, never interpolating into the shell
+    $fname = Cwd::abs_path($fname);
+    ($fname) = $fname =~ /^(.*)$/;
+
+    # If we have a directory, check that it is a directory
+    if ($isdir) {
+
+      if (-d $fname) {
+
+        # Directory exists so store it
+        # first on VMS turn []foo into [.foo] for rmtree
+        $fname = VMS::Filespec::vmspath($fname) if $^O eq 'VMS';
+        $dirs_to_unlink{$$} = [] 
+          unless exists $dirs_to_unlink{$$};
+        push (@{ $dirs_to_unlink{$$} }, $fname);
+
+      } else {
+        carp "Request to remove directory $fname could not be completed since it does not exist!\n" if $^W;
+      }
+
+    } else {
+
+      if (-f $fname) {
+
+        # file exists so store handle and name for later removal
+        $files_to_unlink{$$} = []
+          unless exists $files_to_unlink{$$};
+        push(@{ $files_to_unlink{$$} }, [$fh, $fname]);
+
+      } else {
+        carp "Request to remove file $fname could not be completed since it is not there!\n" if $^W;
+      }
+
+    }
+
+  }
+
+
+}
+
+# normalize argument keys to upper case and do consistent handling
+# of leading template vs TEMPLATE
+sub _parse_args {
+  my $leading_template = (scalar(@_) % 2 == 1 ? shift(@_) : '' );
+  my %args = @_;
+  %args = map { uc($_), $args{$_} } keys %args;
+
+  # template (store it in an array so that it will
+  # disappear from the arg list of tempfile)
+  my @template = (
+    exists $args{TEMPLATE}  ? $args{TEMPLATE} :
+    $leading_template       ? $leading_template : ()
+  );
+  delete $args{TEMPLATE};
+
+  return( \@template, \%args );
+}
+
+
+sub new {
+  my $proto = shift;
+  my $class = ref($proto) || $proto;
+
+  my ($maybe_template, $args) = _parse_args(@_);
+
+  # see if they are unlinking (defaulting to yes)
+  my $unlink = (exists $args->{UNLINK} ? $args->{UNLINK} : 1 );
+  delete $args->{UNLINK};
+
+  # Protect OPEN
+  delete $args->{OPEN};
+
+  # Open the file and retain file handle and file name
+  my ($fh, $path) = tempfile( @$maybe_template, %$args );
+
+  print "Tmp: $fh - $path\n" if $DEBUG;
+
+  # Store the filename in the scalar slot
+  ${*$fh} = $path;
+
+  # Cache the filename by pid so that the destructor can decide whether to remove it
+  $FILES_CREATED_BY_OBJECT{$$}{$path} = 1;
+
+  # Store unlink information in hash slot (plus other constructor info)
+  %{*$fh} = %$args;
+
+  # create the object
+  bless $fh, $class;
+
+  # final method-based configuration
+  $fh->unlink_on_destroy( $unlink );
+
+  return $fh;
+}
+
+
+sub newdir {
+  my $self = shift;
+
+  my ($maybe_template, $args) = _parse_args(@_);
+
+  # handle CLEANUP without passing CLEANUP to tempdir
+  my $cleanup = (exists $args->{CLEANUP} ? $args->{CLEANUP} : 1 );
+  delete $args->{CLEANUP};
+
+  my $tempdir = tempdir( @$maybe_template, %$args);
+
+  # get a safe absolute path for cleanup, just like
+  # happens in _deferred_unlink
+  my $real_dir = Cwd::abs_path( $tempdir );
+  ($real_dir) = $real_dir =~ /^(.*)$/;
+
+  return bless { DIRNAME => $tempdir,
+                 REALNAME => $real_dir,
+                 CLEANUP => $cleanup,
+                 LAUNCHPID => $$,
+               }, "File::Temp::Dir";
+}
+
+
+sub filename {
+  my $self = shift;
+  return ${*$self};
+}
+
+sub STRINGIFY {
+  my $self = shift;
+  return $self->filename;
+}
+
+# For reference, can't use '0+'=>\&Scalar::Util::refaddr directly because
+# refaddr() demands one parameter only, whereas overload.pm calls with three
+# even for unary operations like '0+'.
+sub NUMIFY {
+  return refaddr($_[0]);
+}
+
+
+sub unlink_on_destroy {
+  my $self = shift;
+  if (@_) {
+    ${*$self}{UNLINK} = shift;
+  }
+  return ${*$self}{UNLINK};
+}
+
+
+sub DESTROY {
+  local($., $@, $!, $^E, $?);
+  my $self = shift;
+
+  # Make sure we always remove the file from the global hash
+  # on destruction. This prevents the hash from growing uncontrollably
+  # and post-destruction there is no reason to know about the file.
+  my $file = $self->filename;
+  my $was_created_by_proc;
+  if (exists $FILES_CREATED_BY_OBJECT{$$}{$file}) {
+    $was_created_by_proc = 1;
+    delete $FILES_CREATED_BY_OBJECT{$$}{$file};
+  }
+
+  if (${*$self}{UNLINK} && !$KEEP_ALL) {
+    print "# --------->   Unlinking $self\n" if $DEBUG;
+
+    # only delete if this process created it
+    return unless $was_created_by_proc;
+
+    # The unlink1 may fail if the file has been closed
+    # by the caller. This leaves us with the decision
+    # of whether to refuse to remove the file or simply
+    # do an unlink without test. Seems to be silly
+    # to do this when we are trying to be careful
+    # about security
+    _force_writable( $file ); # for windows
+    unlink1( $self, $file )
+      or unlink($file);
+  }
+}
+
+
+sub tempfile {
+  if ( @_ && $_[0] eq 'File::Temp' ) {
+      croak "'tempfile' can't be called as a method";
+  }
+  # Can not check for argument count since we can have any
+  # number of args
+
+  # Default options
+  my %options = (
+                 "DIR"    => undef, # Directory prefix
+                 "SUFFIX" => '',    # Template suffix
+                 "UNLINK" => 0,     # Do not unlink file on exit
+                 "OPEN"   => 1,     # Open file
+                 "TMPDIR" => 0, # Place tempfile in tempdir if template specified
+                 "EXLOCK" => 1, # Open file with O_EXLOCK
+                );
+
+  # Check to see whether we have an odd or even number of arguments
+  my ($maybe_template, $args) = _parse_args(@_);
+  my $template = @$maybe_template ? $maybe_template->[0] : undef;
+
+  # Read the options and merge with defaults
+  %options = (%options, %$args);
+
+  # First decision is whether or not to open the file
+  if (! $options{"OPEN"}) {
+
+    warn "tempfile(): temporary filename requested but not opened.\nPossibly unsafe, consider using tempfile() with OPEN set to true\n"
+      if $^W;
+
+  }
+
+  if ($options{"DIR"} and $^O eq 'VMS') {
+
+    # on VMS turn []foo into [.foo] for concatenation
+    $options{"DIR"} = VMS::Filespec::vmspath($options{"DIR"});
+  }
+
+  # Construct the template
+
+  # Have a choice of trying to work around the mkstemp/mktemp/tmpnam etc
+  # functions or simply constructing a template and using _gettemp()
+  # explicitly. Go for the latter
+
+  # First generate a template if not defined and prefix the directory
+  # If no template must prefix the temp directory
+  if (defined $template) {
+    # End up with current directory if neither DIR not TMPDIR are set
+    if ($options{"DIR"}) {
+
+      $template = File::Spec->catfile($options{"DIR"}, $template);
+
+    } elsif ($options{TMPDIR}) {
+
+      $template = File::Spec->catfile(File::Spec->tmpdir, $template );
+
+    }
+
+  } else {
+
+    if ($options{"DIR"}) {
+
+      $template = File::Spec->catfile($options{"DIR"}, TEMPXXX);
+
+    } else {
+
+      $template = File::Spec->catfile(File::Spec->tmpdir, TEMPXXX);
+
+    }
+
+  }
+
+  # Now add a suffix
+  $template .= $options{"SUFFIX"};
+
+  # Determine whether we should tell _gettemp to unlink the file
+  # On unix this is irrelevant and can be worked out after the file is
+  # opened (simply by unlinking the open filehandle). On Windows or VMS
+  # we have to indicate temporary-ness when we open the file. In general
+  # we only want a true temporary file if we are returning just the
+  # filehandle - if the user wants the filename they probably do not
+  # want the file to disappear as soon as they close it (which may be
+  # important if they want a child process to use the file)
+  # For this reason, tie unlink_on_close to the return context regardless
+  # of OS.
+  my $unlink_on_close = ( wantarray ? 0 : 1);
+
+  # Create the file
+  my ($fh, $path, $errstr);
+  croak "Error in tempfile() using template $template: $errstr"
+    unless (($fh, $path) = _gettemp($template,
+                                    "open" => $options{'OPEN'},
+                                    "mkdir"=> 0 ,
+                                    "unlink_on_close" => $unlink_on_close,
+                                    "suffixlen" => length($options{'SUFFIX'}),
+                                    "ErrStr" => \$errstr,
+                                    "use_exlock" => $options{EXLOCK},
+                                   ) );
+
+  # Set up an exit handler that can do whatever is right for the
+  # system. This removes files at exit when requested explicitly or when
+  # system is asked to unlink_on_close but is unable to do so because
+  # of OS limitations.
+  # The latter should be achieved by using a tied filehandle.
+  # Do not check return status since this is all done with END blocks.
+  _deferred_unlink($fh, $path, 0) if $options{"UNLINK"};
+
+  # Return
+  if (wantarray()) {
+
+    if ($options{'OPEN'}) {
+      return ($fh, $path);
+    } else {
+      return (undef, $path);
+    }
+
+  } else {
+
+    # Unlink the file. It is up to unlink0 to decide what to do with
+    # this (whether to unlink now or to defer until later)
+    unlink0($fh, $path) or croak "Error unlinking file $path using unlink0";
+
+    # Return just the filehandle.
+    return $fh;
+  }
+
+
+}
+
+
+# '
+
+sub tempdir  {
+  if ( @_ && $_[0] eq 'File::Temp' ) {
+      croak "'tempdir' can't be called as a method";
+  }
+
+  # Can not check for argument count since we can have any
+  # number of args
+
+  # Default options
+  my %options = (
+                 "CLEANUP"    => 0, # Remove directory on exit
+                 "DIR"        => '', # Root directory
+                 "TMPDIR"     => 0,  # Use tempdir with template
+                );
+
+  # Check to see whether we have an odd or even number of arguments
+  my ($maybe_template, $args) = _parse_args(@_);
+  my $template = @$maybe_template ? $maybe_template->[0] : undef;
+
+  # Read the options and merge with defaults
+  %options = (%options, %$args);
+
+  # Modify or generate the template
+
+  # Deal with the DIR and TMPDIR options
+  if (defined $template) {
+
+    # Need to strip directory path if using DIR or TMPDIR
+    if ($options{'TMPDIR'} || $options{'DIR'}) {
+
+      # Strip parent directory from the filename
+      #
+      # There is no filename at the end
+      $template = VMS::Filespec::vmspath($template) if $^O eq 'VMS';
+      my ($volume, $directories, undef) = File::Spec->splitpath( $template, 1);
+
+      # Last directory is then our template
+      $template = (File::Spec->splitdir($directories))[-1];
+
+      # Prepend the supplied directory or temp dir
+      if ($options{"DIR"}) {
+
+        $template = File::Spec->catdir($options{"DIR"}, $template);
+
+      } elsif ($options{TMPDIR}) {
+
+        # Prepend tmpdir
+        $template = File::Spec->catdir(File::Spec->tmpdir, $template);
+
+      }
+
+    }
+
+  } else {
+
+    if ($options{"DIR"}) {
+
+      $template = File::Spec->catdir($options{"DIR"}, TEMPXXX);
+
+    } else {
+
+      $template = File::Spec->catdir(File::Spec->tmpdir, TEMPXXX);
+
+    }
+
+  }
+
+  # Create the directory
+  my $tempdir;
+  my $suffixlen = 0;
+  if ($^O eq 'VMS') {           # dir names can end in delimiters
+    $template =~ m/([\.\]:>]+)$/;
+    $suffixlen = length($1);
+  }
+  if ( ($^O eq 'MacOS') && (substr($template, -1) eq ':') ) {
+    # dir name has a trailing ':'
+    ++$suffixlen;
+  }
+
+  my $errstr;
+  croak "Error in tempdir() using $template: $errstr"
+    unless ((undef, $tempdir) = _gettemp($template,
+                                         "open" => 0,
+                                         "mkdir"=> 1 ,
+                                         "suffixlen" => $suffixlen,
+                                         "ErrStr" => \$errstr,
+                                        ) );
+
+  # Install exit handler; must be dynamic to get lexical
+  if ( $options{'CLEANUP'} && -d $tempdir) {
+    _deferred_unlink(undef, $tempdir, 1);
+  }
+
+  # Return the dir name
+  return $tempdir;
+
+}
+
+
+
+
+sub mkstemp {
+
+  croak "Usage: mkstemp(template)"
+    if scalar(@_) != 1;
+
+  my $template = shift;
+
+  my ($fh, $path, $errstr);
+  croak "Error in mkstemp using $template: $errstr"
+    unless (($fh, $path) = _gettemp($template,
+                                    "open" => 1,
+                                    "mkdir"=> 0 ,
+                                    "suffixlen" => 0,
+                                    "ErrStr" => \$errstr,
+                                   ) );
+
+  if (wantarray()) {
+    return ($fh, $path);
+  } else {
+    return $fh;
+  }
+
+}
+
+
+
+sub mkstemps {
+
+  croak "Usage: mkstemps(template, suffix)"
+    if scalar(@_) != 2;
+
+
+  my $template = shift;
+  my $suffix   = shift;
+
+  $template .= $suffix;
+
+  my ($fh, $path, $errstr);
+  croak "Error in mkstemps using $template: $errstr"
+    unless (($fh, $path) = _gettemp($template,
+                                    "open" => 1,
+                                    "mkdir"=> 0 ,
+                                    "suffixlen" => length($suffix),
+                                    "ErrStr" => \$errstr,
+                                   ) );
+
+  if (wantarray()) {
+    return ($fh, $path);
+  } else {
+    return $fh;
+  }
+
+}
+
+
+#' # for emacs
+
+sub mkdtemp {
+
+  croak "Usage: mkdtemp(template)"
+    if scalar(@_) != 1;
+
+  my $template = shift;
+  my $suffixlen = 0;
+  if ($^O eq 'VMS') {           # dir names can end in delimiters
+    $template =~ m/([\.\]:>]+)$/;
+    $suffixlen = length($1);
+  }
+  if ( ($^O eq 'MacOS') && (substr($template, -1) eq ':') ) {
+    # dir name has a trailing ':'
+    ++$suffixlen;
+  }
+  my ($junk, $tmpdir, $errstr);
+  croak "Error creating temp directory from template $template\: $errstr"
+    unless (($junk, $tmpdir) = _gettemp($template,
+                                        "open" => 0,
+                                        "mkdir"=> 1 ,
+                                        "suffixlen" => $suffixlen,
+                                        "ErrStr" => \$errstr,
+                                       ) );
+
+  return $tmpdir;
+
+}
+
+
+sub mktemp {
+
+  croak "Usage: mktemp(template)"
+    if scalar(@_) != 1;
+
+  my $template = shift;
+
+  my ($tmpname, $junk, $errstr);
+  croak "Error getting name to temp file from template $template: $errstr"
+    unless (($junk, $tmpname) = _gettemp($template,
+                                         "open" => 0,
+                                         "mkdir"=> 0 ,
+                                         "suffixlen" => 0,
+                                         "ErrStr" => \$errstr,
+                                        ) );
+
+  return $tmpname;
+}
+
+
+sub tmpnam {
+
+  # Retrieve the temporary directory name
+  my $tmpdir = File::Spec->tmpdir;
+
+  croak "Error temporary directory is not writable"
+    if $tmpdir eq '';
+
+  # Use a ten character template and append to tmpdir
+  my $template = File::Spec->catfile($tmpdir, TEMPXXX);
+
+  if (wantarray() ) {
+    return mkstemp($template);
+  } else {
+    return mktemp($template);
+  }
+
+}
+
+
+sub tmpfile {
+
+  # Simply call tmpnam() in a list context
+  my ($fh, $file) = tmpnam();
+
+  # Make sure file is removed when filehandle is closed
+  # This will fail on NFS
+  unlink0($fh, $file)
+    or return undef;
+
+  return $fh;
+
+}
+
+
+sub tempnam {
+
+  croak 'Usage tempnam($dir, $prefix)' unless scalar(@_) == 2;
+
+  my ($dir, $prefix) = @_;
+
+  # Add a string to the prefix
+  $prefix .= 'XXXXXXXX';
+
+  # Concatenate the directory to the file
+  my $template = File::Spec->catfile($dir, $prefix);
+
+  return mktemp($template);
+
+}
+
+
+sub unlink0 {
+
+  croak 'Usage: unlink0(filehandle, filename)'
+    unless scalar(@_) == 2;
+
+  # Read args
+  my ($fh, $path) = @_;
+
+  cmpstat($fh, $path) or return 0;
+
+  # attempt remove the file (does not work on some platforms)
+  if (_can_unlink_opened_file()) {
+
+    # return early (Without unlink) if we have been instructed to retain files.
+    return 1 if $KEEP_ALL;
+
+    # XXX: do *not* call this on a directory; possible race
+    #      resulting in recursive removal
+    croak "unlink0: $path has become a directory!" if -d $path;
+    unlink($path) or return 0;
+
+    # Stat the filehandle
+    my @fh = stat $fh;
+
+    print "Link count = $fh[3] \n" if $DEBUG;
+
+    # Make sure that the link count is zero
+    # - Cygwin provides deferred unlinking, however,
+    #   on Win9x the link count remains 1
+    # On NFS the link count may still be 1 but we can't know that
+    # we are on NFS.  Since we can't be sure, we'll defer it
+
+    return 1 if $fh[3] == 0 || $^O eq 'cygwin';
+  }
+  # fall-through if we can't unlink now
+  _deferred_unlink($fh, $path, 0);
+  return 1;
+}
+
+
+sub cmpstat {
+
+  croak 'Usage: cmpstat(filehandle, filename)'
+    unless scalar(@_) == 2;
+
+  # Read args
+  my ($fh, $path) = @_;
+
+  warn "Comparing stat\n"
+    if $DEBUG;
+
+  # Stat the filehandle - which may be closed if someone has manually
+  # closed the file. Can not turn off warnings without using $^W
+  # unless we upgrade to 5.006 minimum requirement
+  my @fh;
+  {
+    local ($^W) = 0;
+    @fh = stat $fh;
+  }
+  return unless @fh;
+
+  if ($fh[3] > 1 && $^W) {
+    carp "unlink0: fstat found too many links; SB=@fh" if $^W;
+  }
+
+  # Stat the path
+  my @path = stat $path;
+
+  unless (@path) {
+    carp "unlink0: $path is gone already" if $^W;
+    return;
+  }
+
+  # this is no longer a file, but may be a directory, or worse
+  unless (-f $path) {
+    confess "panic: $path is no longer a file: SB=@fh";
+  }
+
+  # Do comparison of each member of the array
+  # On WinNT dev and rdev seem to be different
+  # depending on whether it is a file or a handle.
+  # Cannot simply compare all members of the stat return
+  # Select the ones we can use
+  my @okstat = (0..$#fh);       # Use all by default
+  if ($^O eq 'MSWin32') {
+    @okstat = (1,2,3,4,5,7,8,9,10);
+  } elsif ($^O eq 'os2') {
+    @okstat = (0, 2..$#fh);
+  } elsif ($^O eq 'VMS') {      # device and file ID are sufficient
+    @okstat = (0, 1);
+  } elsif ($^O eq 'dos') {
+    @okstat = (0,2..7,11..$#fh);
+  } elsif ($^O eq 'mpeix') {
+    @okstat = (0..4,8..10);
+  }
+
+  # Now compare each entry explicitly by number
+  for (@okstat) {
+    print "Comparing: $_ : $fh[$_] and $path[$_]\n" if $DEBUG;
+    # Use eq rather than == since rdev, blksize, and blocks (6, 11,
+    # and 12) will be '' on platforms that do not support them.  This
+    # is fine since we are only comparing integers.
+    unless ($fh[$_] eq $path[$_]) {
+      warn "Did not match $_ element of stat\n" if $DEBUG;
+      return 0;
+    }
+  }
+
+  return 1;
+}
+
+
+sub unlink1 {
+  croak 'Usage: unlink1(filehandle, filename)'
+    unless scalar(@_) == 2;
+
+  # Read args
+  my ($fh, $path) = @_;
+
+  cmpstat($fh, $path) or return 0;
+
+  # Close the file
+  close( $fh ) or return 0;
+
+  # Make sure the file is writable (for windows)
+  _force_writable( $path );
+
+  # return early (without unlink) if we have been instructed to retain files.
+  return 1 if $KEEP_ALL;
+
+  # remove the file
+  return unlink($path);
+}
+
+
+{
+  # protect from using the variable itself
+  my $LEVEL = STANDARD;
+  sub safe_level {
+    my $self = shift;
+    if (@_) {
+      my $level = shift;
+      if (($level != STANDARD) && ($level != MEDIUM) && ($level != HIGH)) {
+        carp "safe_level: Specified level ($level) not STANDARD, MEDIUM or HIGH - ignoring\n" if $^W;
+      } else {
+        # Don't allow this on perl 5.005 or earlier
+        if ($] < 5.006 && $level != STANDARD) {
+          # Cant do MEDIUM or HIGH checks
+          croak "Currently requires perl 5.006 or newer to do the safe checks";
+        }
+        # Check that we are allowed to change level
+        # Silently ignore if we can not.
+        $LEVEL = $level if _can_do_level($level);
+      }
+    }
+    return $LEVEL;
+  }
+}
+
+
+{
+  my $TopSystemUID = 10;
+  $TopSystemUID = 197108 if $^O eq 'interix'; # "Administrator"
+  sub top_system_uid {
+    my $self = shift;
+    if (@_) {
+      my $newuid = shift;
+      croak "top_system_uid: UIDs should be numeric"
+        unless $newuid =~ /^\d+$/s;
+      $TopSystemUID = $newuid;
+    }
+    return $TopSystemUID;
+  }
+}
+
+
+package File::Temp::Dir;
+
+use File::Path qw/ rmtree /;
+use strict;
+use overload '""' => "STRINGIFY",
+  '0+' => \&File::Temp::NUMIFY,
+  fallback => 1;
+
+# private class specifically to support tempdir objects
+# created by File::Temp->newdir
+
+# ostensibly the same method interface as File::Temp but without
+# inheriting all the IO::Seekable methods and other cruft
+
+# Read-only - returns the name of the temp directory
+
+sub dirname {
+  my $self = shift;
+  return $self->{DIRNAME};
+}
+
+sub STRINGIFY {
+  my $self = shift;
+  return $self->dirname;
+}
+
+sub unlink_on_destroy {
+  my $self = shift;
+  if (@_) {
+    $self->{CLEANUP} = shift;
+  }
+  return $self->{CLEANUP};
+}
+
+sub DESTROY {
+  my $self = shift;
+  local($., $@, $!, $^E, $?);
+  if ($self->unlink_on_destroy && 
+      $$ == $self->{LAUNCHPID} && !$File::Temp::KEEP_ALL) {
+    if (-d $self->{REALNAME}) {
+      # Some versions of rmtree will abort if you attempt to remove
+      # the directory you are sitting in. We protect that and turn it
+      # into a warning. We do this because this occurs during object
+      # destruction and so can not be caught by the user.
+      eval { rmtree($self->{REALNAME}, $File::Temp::DEBUG, 0); };
+      warn $@ if ($@ && $^W);
+    }
+  }
+}
+
+1;
+
+__END__
+
+=pod
+
+=encoding utf-8
+
+=head1 NAME
+
+File::Temp - return name and handle of a temporary file safely
+
+=head1 VERSION
+
+version 0.2304
+
+=head1 SYNOPSIS
+
+  use File::Temp qw/ tempfile tempdir /;
+
+  $fh = tempfile();
+  ($fh, $filename) = tempfile();
+
+  ($fh, $filename) = tempfile( $template, DIR => $dir);
+  ($fh, $filename) = tempfile( $template, SUFFIX => '.dat');
+  ($fh, $filename) = tempfile( $template, TMPDIR => 1 );
+
+  binmode( $fh, ":utf8" );
+
+  $dir = tempdir( CLEANUP => 1 );
+  ($fh, $filename) = tempfile( DIR => $dir );
+
+Object interface:
+
+  require File::Temp;
+  use File::Temp ();
+  use File::Temp qw/ :seekable /;
+
+  $fh = File::Temp->new();
+  $fname = $fh->filename;
+
+  $fh = File::Temp->new(TEMPLATE => $template);
+  $fname = $fh->filename;
+
+  $tmp = File::Temp->new( UNLINK => 0, SUFFIX => '.dat' );
+  print $tmp "Some data\n";
+  print "Filename is $tmp\n";
+  $tmp->seek( 0, SEEK_END );
+
+The following interfaces are provided for compatibility with
+existing APIs. They should not be used in new code.
+
+MkTemp family:
+
+  use File::Temp qw/ :mktemp  /;
+
+  ($fh, $file) = mkstemp( "tmpfileXXXXX" );
+  ($fh, $file) = mkstemps( "tmpfileXXXXXX", $suffix);
+
+  $tmpdir = mkdtemp( $template );
+
+  $unopened_file = mktemp( $template );
+
+POSIX functions:
+
+  use File::Temp qw/ :POSIX /;
+
+  $file = tmpnam();
+  $fh = tmpfile();
+
+  ($fh, $file) = tmpnam();
+
+Compatibility functions:
+
+  $unopened_file = File::Temp::tempnam( $dir, $pfx );
+
+=head1 DESCRIPTION
+
+C<File::Temp> can be used to create and open temporary files in a safe
+way.  There is both a function interface and an object-oriented
+interface.  The File::Temp constructor or the tempfile() function can
+be used to return the name and the open filehandle of a temporary
+file.  The tempdir() function can be used to create a temporary
+directory.
+
+The security aspect of temporary file creation is emphasized such that
+a filehandle and filename are returned together.  This helps guarantee
+that a race condition can not occur where the temporary file is
+created by another process between checking for the existence of the
+file and its opening.  Additional security levels are provided to
+check, for example, that the sticky bit is set on world writable
+directories.  See L<"safe_level"> for more information.
+
+For compatibility with popular C library functions, Perl implementations of
+the mkstemp() family of functions are provided. These are, mkstemp(),
+mkstemps(), mkdtemp() and mktemp().
+
+Additionally, implementations of the standard L<POSIX|POSIX>
+tmpnam() and tmpfile() functions are provided if required.
+
+Implementations of mktemp(), tmpnam(), and tempnam() are provided,
+but should be used with caution since they return only a filename
+that was valid when function was called, so cannot guarantee
+that the file will not exist by the time the caller opens the filename.
+
+Filehandles returned by these functions support the seekable methods.
+
+=begin __INTERNALS
+
+=head1 PORTABILITY
+
+This section is at the top in order to provide easier access to
+porters.  It is not expected to be rendered by a standard pod
+formatting tool. Please skip straight to the SYNOPSIS section if you
+are not trying to port this module to a new platform.
+
+This module is designed to be portable across operating systems and it
+currently supports Unix, VMS, DOS, OS/2, Windows and Mac OS
+(Classic). When porting to a new OS there are generally three main
+issues that have to be solved:
+=over 4
+
+=item *
+
+Can the OS unlink an open file? If it can not then the
+C<_can_unlink_opened_file> method should be modified.
+
+=item *
+
+Are the return values from C<stat> reliable? By default all the
+return values from C<stat> are compared when unlinking a temporary
+file using the filename and the handle. Operating systems other than
+unix do not always have valid entries in all fields. If utility function
+C<File::Temp::unlink0> fails then the C<stat> comparison should be
+modified accordingly.
+
+=item *
+
+Security. Systems that can not support a test for the sticky bit
+on a directory can not use the MEDIUM and HIGH security tests.
+The C<_can_do_level> method should be modified accordingly.
+
+=back
+
+=end __INTERNALS
+
+=head1 OBJECT-ORIENTED INTERFACE
+
+This is the primary interface for interacting with
+C<File::Temp>. Using the OO interface a temporary file can be created
+when the object is constructed and the file can be removed when the
+object is no longer required.
+
+Note that there is no method to obtain the filehandle from the
+C<File::Temp> object. The object itself acts as a filehandle.  The object
+isa C<IO::Handle> and isa C<IO::Seekable> so all those methods are
+available.
+
+Also, the object is configured such that it stringifies to the name of the
+temporary file and so can be compared to a filename directly.  It numifies
+to the C<refaddr> the same as other handles and so can be compared to other
+handles with C<==>.
+
+    $fh eq $filename       # as a string
+    $fh != \*STDOUT        # as a number
+
+=over 4
+
+=item B<new>
+
+Create a temporary file object.
+
+  my $tmp = File::Temp->new();
+
+by default the object is constructed as if C<tempfile>
+was called without options, but with the additional behaviour
+that the temporary file is removed by the object destructor
+if UNLINK is set to true (the default).
+
+Supported arguments are the same as for C<tempfile>: UNLINK
+(defaulting to true), DIR, EXLOCK and SUFFIX. Additionally, the filename
+template is specified using the TEMPLATE option. The OPEN option
+is not supported (the file is always opened).
+
+ $tmp = File::Temp->new( TEMPLATE => 'tempXXXXX',
+                        DIR => 'mydir',
+                        SUFFIX => '.dat');
+
+Arguments are case insensitive.
+
+Can call croak() if an error occurs.
+
+=item B<newdir>
+
+Create a temporary directory using an object oriented interface.
+
+  $dir = File::Temp->newdir();
+
+By default the directory is deleted when the object goes out of scope.
+
+Supports the same options as the C<tempdir> function. Note that directories
+created with this method default to CLEANUP => 1.
+
+  $dir = File::Temp->newdir( $template, %options );
+
+A template may be specified either with a leading template or
+with a TEMPLATE argument.
+
+=item B<filename>
+
+Return the name of the temporary file associated with this object
+(if the object was created using the "new" constructor).
+
+  $filename = $tmp->filename;
+
+This method is called automatically when the object is used as
+a string.
+
+=item B<dirname>
+
+Return the name of the temporary directory associated with this
+object (if the object was created using the "newdir" constructor).
+
+  $dirname = $tmpdir->dirname;
+
+This method is called automatically when the object is used in string context.
+
+=item B<unlink_on_destroy>
+
+Control whether the file is unlinked when the object goes out of scope.
+The file is removed if this value is true and $KEEP_ALL is not.
+
+ $fh->unlink_on_destroy( 1 );
+
+Default is for the file to be removed.
+
+=item B<DESTROY>
+
+When the object goes out of scope, the destructor is called. This
+destructor will attempt to unlink the file (using L<unlink1|"unlink1">)
+if the constructor was called with UNLINK set to 1 (the default state
+if UNLINK is not specified).
+
+No error is given if the unlink fails.
+
+If the object has been passed to a child process during a fork, the
+file will be deleted when the object goes out of scope in the parent.
+
+For a temporary directory object the directory will be removed unless
+the CLEANUP argument was used in the constructor (and set to false) or
+C<unlink_on_destroy> was modified after creation.  Note that if a temp
+directory is your current directory, it cannot be removed - a warning
+will be given in this case.  C<chdir()> out of the directory before
+letting the object go out of scope.
+
+If the global variable $KEEP_ALL is true, the file or directory
+will not be removed.
+
+=back
+
+=head1 FUNCTIONS
+
+This section describes the recommended interface for generating
+temporary files and directories.
+
+=over 4
+
+=item B<tempfile>
+
+This is the basic function to generate temporary files.
+The behaviour of the file can be changed using various options:
+
+  $fh = tempfile();
+  ($fh, $filename) = tempfile();
+
+Create a temporary file in  the directory specified for temporary
+files, as specified by the tmpdir() function in L<File::Spec>.
+
+  ($fh, $filename) = tempfile($template);
+
+Create a temporary file in the current directory using the supplied
+template.  Trailing `X' characters are replaced with random letters to
+generate the filename.  At least four `X' characters must be present
+at the end of the template.
+
+  ($fh, $filename) = tempfile($template, SUFFIX => $suffix)
+
+Same as previously, except that a suffix is added to the template
+after the `X' translation.  Useful for ensuring that a temporary
+filename has a particular extension when needed by other applications.
+But see the WARNING at the end.
+
+  ($fh, $filename) = tempfile($template, DIR => $dir);
+
+Translates the template as before except that a directory name
+is specified.
+
+  ($fh, $filename) = tempfile($template, TMPDIR => 1);
+
+Equivalent to specifying a DIR of "File::Spec->tmpdir", writing the file
+into the same temporary directory as would be used if no template was
+specified at all.
+
+  ($fh, $filename) = tempfile($template, UNLINK => 1);
+
+Return the filename and filehandle as before except that the file is
+automatically removed when the program exits (dependent on
+$KEEP_ALL). Default is for the file to be removed if a file handle is
+requested and to be kept if the filename is requested. In a scalar
+context (where no filename is returned) the file is always deleted
+either (depending on the operating system) on exit or when it is
+closed (unless $KEEP_ALL is true when the temp file is created).
+
+Use the object-oriented interface if fine-grained control of when
+a file is removed is required.
+
+If the template is not specified, a template is always
+automatically generated. This temporary file is placed in tmpdir()
+(L<File::Spec>) unless a directory is specified explicitly with the
+DIR option.
+
+  $fh = tempfile( DIR => $dir );
+
+If called in scalar context, only the filehandle is returned and the
+file will automatically be deleted when closed on operating systems
+that support this (see the description of tmpfile() elsewhere in this
+document).  This is the preferred mode of operation, as if you only
+have a filehandle, you can never create a race condition by fumbling
+with the filename. On systems that can not unlink an open file or can
+not mark a file as temporary when it is opened (for example, Windows
+NT uses the C<O_TEMPORARY> flag) the file is marked for deletion when
+the program ends (equivalent to setting UNLINK to 1). The C<UNLINK>
+flag is ignored if present.
+
+  (undef, $filename) = tempfile($template, OPEN => 0);
+
+This will return the filename based on the template but
+will not open this file.  Cannot be used in conjunction with
+UNLINK set to true. Default is to always open the file
+to protect from possible race conditions. A warning is issued
+if warnings are turned on. Consider using the tmpnam()
+and mktemp() functions described elsewhere in this document
+if opening the file is not required.
+
+If the operating system supports it (for example BSD derived systems), the 
+filehandle will be opened with O_EXLOCK (open with exclusive file lock). 
+This can sometimes cause problems if the intention is to pass the filename 
+to another system that expects to take an exclusive lock itself (such as 
+DBD::SQLite) whilst ensuring that the tempfile is not reused. In this 
+situation the "EXLOCK" option can be passed to tempfile. By default EXLOCK 
+will be true (this retains compatibility with earlier releases).
+
+  ($fh, $filename) = tempfile($template, EXLOCK => 0);
+
+Options can be combined as required.
+
+Will croak() if there is an error.
+
+=item B<tempdir>
+
+This is the recommended interface for creation of temporary
+directories.  By default the directory will not be removed on exit
+(that is, it won't be temporary; this behaviour can not be changed
+because of issues with backwards compatibility). To enable removal
+either use the CLEANUP option which will trigger removal on program
+exit, or consider using the "newdir" method in the object interface which
+will allow the directory to be cleaned up when the object goes out of
+scope.
+
+The behaviour of the function depends on the arguments:
+
+  $tempdir = tempdir();
+
+Create a directory in tmpdir() (see L<File::Spec|File::Spec>).
+
+  $tempdir = tempdir( $template );
+
+Create a directory from the supplied template. This template is
+similar to that described for tempfile(). `X' characters at the end
+of the template are replaced with random letters to construct the
+directory name. At least four `X' characters must be in the template.
+
+  $tempdir = tempdir ( DIR => $dir );
+
+Specifies the directory to use for the temporary directory.
+The temporary directory name is derived from an internal template.
+
+  $tempdir = tempdir ( $template, DIR => $dir );
+
+Prepend the supplied directory name to the template. The template
+should not include parent directory specifications itself. Any parent
+directory specifications are removed from the template before
+prepending the supplied directory.
+
+  $tempdir = tempdir ( $template, TMPDIR => 1 );
+
+Using the supplied template, create the temporary directory in
+a standard location for temporary files. Equivalent to doing
+
+  $tempdir = tempdir ( $template, DIR => File::Spec->tmpdir);
+
+but shorter. Parent directory specifications are stripped from the
+template itself. The C<TMPDIR> option is ignored if C<DIR> is set
+explicitly.  Additionally, C<TMPDIR> is implied if neither a template
+nor a directory are supplied.
+
+  $tempdir = tempdir( $template, CLEANUP => 1);
+
+Create a temporary directory using the supplied template, but
+attempt to remove it (and all files inside it) when the program
+exits. Note that an attempt will be made to remove all files from
+the directory even if they were not created by this module (otherwise
+why ask to clean it up?). The directory removal is made with
+the rmtree() function from the L<File::Path|File::Path> module.
+Of course, if the template is not specified, the temporary directory
+will be created in tmpdir() and will also be removed at program exit.
+
+Will croak() if there is an error.
+
+=back
+
+=head1 MKTEMP FUNCTIONS
+
+The following functions are Perl implementations of the
+mktemp() family of temp file generation system calls.
+
+=over 4
+
+=item B<mkstemp>
+
+Given a template, returns a filehandle to the temporary file and the name
+of the file.
+
+  ($fh, $name) = mkstemp( $template );
+
+In scalar context, just the filehandle is returned.
+
+The template may be any filename with some number of X's appended
+to it, for example F</tmp/temp.XXXX>. The trailing X's are replaced
+with unique alphanumeric combinations.
+
+Will croak() if there is an error.
+
+=item B<mkstemps>
+
+Similar to mkstemp(), except that an extra argument can be supplied
+with a suffix to be appended to the template.
+
+  ($fh, $name) = mkstemps( $template, $suffix );
+
+For example a template of C<testXXXXXX> and suffix of C<.dat>
+would generate a file similar to F<testhGji_w.dat>.
+
+Returns just the filehandle alone when called in scalar context.
+
+Will croak() if there is an error.
+
+=item B<mkdtemp>
+
+Create a directory from a template. The template must end in
+X's that are replaced by the routine.
+
+  $tmpdir_name = mkdtemp($template);
+
+Returns the name of the temporary directory created.
+
+Directory must be removed by the caller.
+
+Will croak() if there is an error.
+
+=item B<mktemp>
+
+Returns a valid temporary filename but does not guarantee
+that the file will not be opened by someone else.
+
+  $unopened_file = mktemp($template);
+
+Template is the same as that required by mkstemp().
+
+Will croak() if there is an error.
+
+=back
+
+=head1 POSIX FUNCTIONS
+
+This section describes the re-implementation of the tmpnam()
+and tmpfile() functions described in L<POSIX>
+using the mkstemp() from this module.
+
+Unlike the L<POSIX|POSIX> implementations, the directory used
+for the temporary file is not specified in a system include
+file (C<P_tmpdir>) but simply depends on the choice of tmpdir()
+returned by L<File::Spec|File::Spec>. On some implementations this
+location can be set using the C<TMPDIR> environment variable, which
+may not be secure.
+If this is a problem, simply use mkstemp() and specify a template.
+
+=over 4
+
+=item B<tmpnam>
+
+When called in scalar context, returns the full name (including path)
+of a temporary file (uses mktemp()). The only check is that the file does
+not already exist, but there is no guarantee that that condition will
+continue to apply.
+
+  $file = tmpnam();
+
+When called in list context, a filehandle to the open file and
+a filename are returned. This is achieved by calling mkstemp()
+after constructing a suitable template.
+
+  ($fh, $file) = tmpnam();
+
+If possible, this form should be used to prevent possible
+race conditions.
+
+See L<File::Spec/tmpdir> for information on the choice of temporary
+directory for a particular operating system.
+
+Will croak() if there is an error.
+
+=item B<tmpfile>
+
+Returns the filehandle of a temporary file.
+
+  $fh = tmpfile();
+
+The file is removed when the filehandle is closed or when the program
+exits. No access to the filename is provided.
+
+If the temporary file can not be created undef is returned.
+Currently this command will probably not work when the temporary
+directory is on an NFS file system.
+
+Will croak() if there is an error.
+
+=back
+
+=head1 ADDITIONAL FUNCTIONS
+
+These functions are provided for backwards compatibility
+with common tempfile generation C library functions.
+
+They are not exported and must be addressed using the full package
+name.
+
+=over 4
+
+=item B<tempnam>
+
+Return the name of a temporary file in the specified directory
+using a prefix. The file is guaranteed not to exist at the time
+the function was called, but such guarantees are good for one
+clock tick only.  Always use the proper form of C<sysopen>
+with C<O_CREAT | O_EXCL> if you must open such a filename.
+
+  $filename = File::Temp::tempnam( $dir, $prefix );
+
+Equivalent to running mktemp() with $dir/$prefixXXXXXXXX
+(using unix file convention as an example)
+
+Because this function uses mktemp(), it can suffer from race conditions.
+
+Will croak() if there is an error.
+
+=back
+
+=head1 UTILITY FUNCTIONS
+
+Useful functions for dealing with the filehandle and filename.
+
+=over 4
+
+=item B<unlink0>
+
+Given an open filehandle and the associated filename, make a safe
+unlink. This is achieved by first checking that the filename and
+filehandle initially point to the same file and that the number of
+links to the file is 1 (all fields returned by stat() are compared).
+Then the filename is unlinked and the filehandle checked once again to
+verify that the number of links on that file is now 0.  This is the
+closest you can come to making sure that the filename unlinked was the
+same as the file whose descriptor you hold.
+
+  unlink0($fh, $path)
+     or die "Error unlinking file $path safely";
+
+Returns false on error but croaks() if there is a security
+anomaly. The filehandle is not closed since on some occasions this is
+not required.
+
+On some platforms, for example Windows NT, it is not possible to
+unlink an open file (the file must be closed first). On those
+platforms, the actual unlinking is deferred until the program ends and
+good status is returned. A check is still performed to make sure that
+the filehandle and filename are pointing to the same thing (but not at
+the time the end block is executed since the deferred removal may not
+have access to the filehandle).
+
+Additionally, on Windows NT not all the fields returned by stat() can
+be compared. For example, the C<dev> and C<rdev> fields seem to be
+different.  Also, it seems that the size of the file returned by stat()
+does not always agree, with C<stat(FH)> being more accurate than
+C<stat(filename)>, presumably because of caching issues even when
+using autoflush (this is usually overcome by waiting a while after
+writing to the tempfile before attempting to C<unlink0> it).
+
+Finally, on NFS file systems the link count of the file handle does
+not always go to zero immediately after unlinking. Currently, this
+command is expected to fail on NFS disks.
+
+This function is disabled if the global variable $KEEP_ALL is true
+and an unlink on open file is supported. If the unlink is to be deferred
+to the END block, the file is still registered for removal.
+
+This function should not be called if you are using the object oriented
+interface since the it will interfere with the object destructor deleting
+the file.
+
+=item B<cmpstat>
+
+Compare C<stat> of filehandle with C<stat> of provided filename.  This
+can be used to check that the filename and filehandle initially point
+to the same file and that the number of links to the file is 1 (all
+fields returned by stat() are compared).
+
+  cmpstat($fh, $path)
+     or die "Error comparing handle with file";
+
+Returns false if the stat information differs or if the link count is
+greater than 1. Calls croak if there is a security anomaly.
+
+On certain platforms, for example Windows, not all the fields returned by stat()
+can be compared. For example, the C<dev> and C<rdev> fields seem to be
+different in Windows.  Also, it seems that the size of the file
+returned by stat() does not always agree, with C<stat(FH)> being more
+accurate than C<stat(filename)>, presumably because of caching issues
+even when using autoflush (this is usually overcome by waiting a while
+after writing to the tempfile before attempting to C<unlink0> it).
+
+Not exported by default.
+
+=item B<unlink1>
+
+Similar to C<unlink0> except after file comparison using cmpstat, the
+filehandle is closed prior to attempting to unlink the file. This
+allows the file to be removed without using an END block, but does
+mean that the post-unlink comparison of the filehandle state provided
+by C<unlink0> is not available.
+
+  unlink1($fh, $path)
+     or die "Error closing and unlinking file";
+
+Usually called from the object destructor when using the OO interface.
+
+Not exported by default.
+
+This function is disabled if the global variable $KEEP_ALL is true.
+
+Can call croak() if there is a security anomaly during the stat()
+comparison.
+
+=item B<cleanup>
+
+Calling this function will cause any temp files or temp directories
+that are registered for removal to be removed. This happens automatically
+when the process exits but can be triggered manually if the caller is sure
+that none of the temp files are required. This method can be registered as
+an Apache callback.
+
+Note that if a temp directory is your current directory, it cannot be
+removed.  C<chdir()> out of the directory first before calling
+C<cleanup()>. (For the cleanup at program exit when the CLEANUP flag
+is set, this happens automatically.)
+
+On OSes where temp files are automatically removed when the temp file
+is closed, calling this function will have no effect other than to remove
+temporary directories (which may include temporary files).
+
+  File::Temp::cleanup();
+
+Not exported by default.
+
+=back
+
+=head1 PACKAGE VARIABLES
+
+These functions control the global state of the package.
+
+=over 4
+
+=item B<safe_level>
+
+Controls the lengths to which the module will go to check the safety of the
+temporary file or directory before proceeding.
+Options are:
+
+=over 8
+
+=item STANDARD
+
+Do the basic security measures to ensure the directory exists and is
+writable, that temporary files are opened only if they do not already
+exist, and that possible race conditions are avoided.  Finally the
+L<unlink0|"unlink0"> function is used to remove files safely.
+
+=item MEDIUM
+
+In addition to the STANDARD security, the output directory is checked
+to make sure that it is owned either by root or the user running the
+program. If the directory is writable by group or by other, it is then
+checked to make sure that the sticky bit is set.
+
+Will not work on platforms that do not support the C<-k> test
+for sticky bit.
+
+=item HIGH
+
+In addition to the MEDIUM security checks, also check for the
+possibility of ``chown() giveaway'' using the L<POSIX|POSIX>
+sysconf() function. If this is a possibility, each directory in the
+path is checked in turn for safeness, recursively walking back to the
+root directory.
+
+For platforms that do not support the L<POSIX|POSIX>
+C<_PC_CHOWN_RESTRICTED> symbol (for example, Windows NT) it is
+assumed that ``chown() giveaway'' is possible and the recursive test
+is performed.
+
+=back
+
+The level can be changed as follows:
+
+  File::Temp->safe_level( File::Temp::HIGH );
+
+The level constants are not exported by the module.
+
+Currently, you must be running at least perl v5.6.0 in order to
+run with MEDIUM or HIGH security. This is simply because the
+safety tests use functions from L<Fcntl|Fcntl> that are not
+available in older versions of perl. The problem is that the version
+number for Fcntl is the same in perl 5.6.0 and in 5.005_03 even though
+they are different versions.
+
+On systems that do not support the HIGH or MEDIUM safety levels
+(for example Win NT or OS/2) any attempt to change the level will
+be ignored. The decision to ignore rather than raise an exception
+allows portable programs to be written with high security in mind
+for the systems that can support this without those programs failing
+on systems where the extra tests are irrelevant.
+
+If you really need to see whether the change has been accepted
+simply examine the return value of C<safe_level>.
+
+  $newlevel = File::Temp->safe_level( File::Temp::HIGH );
+  die "Could not change to high security"
+      if $newlevel != File::Temp::HIGH;
+
+=item TopSystemUID
+
+This is the highest UID on the current system that refers to a root
+UID. This is used to make sure that the temporary directory is
+owned by a system UID (C<root>, C<bin>, C<sys> etc) rather than
+simply by root.
+
+This is required since on many unix systems C</tmp> is not owned
+by root.
+
+Default is to assume that any UID less than or equal to 10 is a root
+UID.
+
+  File::Temp->top_system_uid(10);
+  my $topid = File::Temp->top_system_uid;
+
+This value can be adjusted to reduce security checking if required.
+The value is only relevant when C<safe_level> is set to MEDIUM or higher.
+
+=item B<$KEEP_ALL>
+
+Controls whether temporary files and directories should be retained
+regardless of any instructions in the program to remove them
+automatically.  This is useful for debugging but should not be used in
+production code.
+
+  $File::Temp::KEEP_ALL = 1;
+
+Default is for files to be removed as requested by the caller.
+
+In some cases, files will only be retained if this variable is true
+when the file is created. This means that you can not create a temporary
+file, set this variable and expect the temp file to still be around
+when the program exits.
+
+=item B<$DEBUG>
+
+Controls whether debugging messages should be enabled.
+
+  $File::Temp::DEBUG = 1;
+
+Default is for debugging mode to be disabled.
+
+=back
+
+=head1 WARNING
+
+For maximum security, endeavour always to avoid ever looking at,
+touching, or even imputing the existence of the filename.  You do not
+know that that filename is connected to the same file as the handle
+you have, and attempts to check this can only trigger more race
+conditions.  It's far more secure to use the filehandle alone and
+dispense with the filename altogether.
+
+If you need to pass the handle to something that expects a filename
+then on a unix system you can use C<"/dev/fd/" . fileno($fh)> for
+arbitrary programs. Perl code that uses the 2-argument version of
+C<< open >> can be passed C<< "+<=&" . fileno($fh) >>. Otherwise you
+will need to pass the filename. You will have to clear the
+close-on-exec bit on that file descriptor before passing it to another
+process.
+
+    use Fcntl qw/F_SETFD F_GETFD/;
+    fcntl($tmpfh, F_SETFD, 0)
+        or die "Can't clear close-on-exec flag on temp fh: $!\n";
+
+=head2 Temporary files and NFS
+
+Some problems are associated with using temporary files that reside
+on NFS file systems and it is recommended that a local filesystem
+is used whenever possible. Some of the security tests will most probably
+fail when the temp file is not local. Additionally, be aware that
+the performance of I/O operations over NFS will not be as good as for
+a local disk.
+
+=head2 Forking
+
+In some cases files created by File::Temp are removed from within an
+END block. Since END blocks are triggered when a child process exits
+(unless C<POSIX::_exit()> is used by the child) File::Temp takes care
+to only remove those temp files created by a particular process ID. This
+means that a child will not attempt to remove temp files created by the
+parent process.
+
+If you are forking many processes in parallel that are all creating
+temporary files, you may need to reset the random number seed using
+srand(EXPR) in each child else all the children will attempt to walk
+through the same set of random file names and may well cause
+themselves to give up if they exceed the number of retry attempts.
+
+=head2 Directory removal
+
+Note that if you have chdir'ed into the temporary directory and it is
+subsequently cleaned up (either in the END block or as part of object
+destruction), then you will get a warning from File::Path::rmtree().
+
+=head2 Taint mode
+
+If you need to run code under taint mode, updating to the latest
+L<File::Spec> is highly recommended.
+
+=head2 BINMODE
+
+The file returned by File::Temp will have been opened in binary mode
+if such a mode is available. If that is not correct, use the C<binmode()>
+function to change the mode of the filehandle.
+
+Note that you can modify the encoding of a file opened by File::Temp
+also by using C<binmode()>.
+
+=head1 HISTORY
+
+Originally began life in May 1999 as an XS interface to the system
+mkstemp() function. In March 2000, the OpenBSD mkstemp() code was
+translated to Perl for total control of the code's
+security checking, to ensure the presence of the function regardless of
+operating system and to help with portability. The module was shipped
+as a standard part of perl from v5.6.1.
+
+Thanks to Tom Christiansen for suggesting that this module
+should be written and providing ideas for code improvements and
+security enhancements.
+
+=head1 SEE ALSO
+
+L<POSIX/tmpnam>, L<POSIX/tmpfile>, L<File::Spec>, L<File::Path>
+
+See L<IO::File> and L<File::MkTemp>, L<Apache::TempFile> for
+different implementations of temporary file handling.
+
+See L<File::Tempdir> for an alternative object-oriented wrapper for
+the C<tempdir> function.
+
+=for Pod::Coverage STRINGIFY NUMIFY top_system_uid
+
+# vim: ts=2 sts=2 sw=2 et:
+
+=for :stopwords cpan testmatrix url annocpan anno bugtracker rt cpants kwalitee diff irc mailto metadata placeholders metacpan
+
+=head1 SUPPORT
+
+=head2 Bugs / Feature Requests
+
+Please report any bugs or feature requests through the issue tracker
+at L<http://rt.cpan.org/Public/Dist/Display.html?Name=File-Temp>.
+You will be notified automatically of any progress on your issue.
+
+=head2 Source Code
+
+This is open source software.  The code repository is available for
+public review and contribution under the terms of the license.
+
+L<https://github.com/Perl-Toolchain-Gang/File-Temp>
+
+  git clone https://github.com/Perl-Toolchain-Gang/File-Temp.git
+
+=head1 AUTHOR
+
+Tim Jenness <tjenness@cpan.org>
+
+=head1 CONTRIBUTORS
+
+=over 4
+
+=item *
+
+Ben Tilly <btilly@gmail.com>
+
+=item *
+
+David Golden <dagolden@cpan.org>
+
+=item *
+
+David Steinbrunner <dsteinbrunner@pobox.com>
+
+=item *
+
+Ed Avis <eda@linux01.wcl.local>
+
+=item *
+
+James E. Keenan <jkeen@verizon.net>
+
+=item *
+
+Karen Etheridge <ether@cpan.org>
+
+=item *
+
+Kevin Ryde <user42@zip.com.au>
+
+=item *
+
+Olivier Mengue <dolmen@cpan.org>
+
+=item *
+
+Peter John Acklam <pjacklam@online.no>
+
+=item *
+
+Peter Rabbitson <ribasushi@cpan.org>
+
+=back
+
+=head1 COPYRIGHT AND LICENSE
+
+This software is copyright (c) 2013 by Tim Jenness and the UK Particle Physics and Astronomy Research Council.
+
+This is free software; you can redistribute it and/or modify it under
+the same terms as the Perl 5 programming language system itself.
+
+=cut
diff --git a/lib/5.24.1/File/stat.pm b/lib/5.24.1/File/stat.pm
new file mode 100644
index 00000000..b631fbf8
--- /dev/null
+++ b/lib/5.24.1/File/stat.pm
@@ -0,0 +1,356 @@
+package File::stat;
+use 5.006;
+
+use strict;
+use warnings;
+use warnings::register;
+use Carp;
+
+BEGIN { *warnif = \&warnings::warnif }
+
+our(@EXPORT, @EXPORT_OK, %EXPORT_TAGS);
+
+our $VERSION = '1.07';
+
+my @fields;
+BEGIN { 
+    use Exporter   ();
+    @EXPORT      = qw(stat lstat);
+    @fields      = qw( $st_dev	   $st_ino    $st_mode 
+		       $st_nlink   $st_uid    $st_gid 
+		       $st_rdev    $st_size 
+		       $st_atime   $st_mtime  $st_ctime 
+		       $st_blksize $st_blocks
+		    );
+    @EXPORT_OK   = ( @fields, "stat_cando" );
+    %EXPORT_TAGS = ( FIELDS => [ @fields, @EXPORT ] );
+}
+use vars @fields;
+
+use Fcntl qw(S_IRUSR S_IWUSR S_IXUSR);
+
+BEGIN {
+    # These constants will croak on use if the platform doesn't define
+    # them. It's important to avoid inflicting that on the user.
+    no strict 'refs';
+    for (qw(suid sgid svtx)) {
+        my $val = eval { &{"Fcntl::S_I\U$_"} };
+        *{"_$_"} = defined $val ? sub { $_[0] & $val ? 1 : "" } : sub { "" };
+    }
+    for (qw(SOCK CHR BLK REG DIR LNK)) {
+        *{"S_IS$_"} = defined eval { &{"Fcntl::S_IF$_"} }
+            ? \&{"Fcntl::S_IS$_"} : sub { "" };
+    }
+    # FIFO flag and macro don't quite follow the S_IF/S_IS pattern above
+    # RT #111638
+    *{"S_ISFIFO"} = defined &Fcntl::S_IFIFO
+      ? \&Fcntl::S_ISFIFO : sub { "" };
+}
+
+# from doio.c
+sub _ingroup {
+    my ($gid, $eff)   = @_;
+
+    # I am assuming that since VMS doesn't have getgroups(2), $) will
+    # always only contain a single entry.
+    $^O eq "VMS"    and return $_[0] == $);
+
+    my ($egid, @supp) = split " ", $);
+    my ($rgid)        = split " ", $(;
+
+    $gid == ($eff ? $egid : $rgid)  and return 1;
+    grep $gid == $_, @supp          and return 1;
+
+    return "";
+}
+
+# VMS uses the Unix version of the routine, even though this is very
+# suboptimal. VMS has a permissions structure that doesn't really fit
+# into struct stat, and unlike on Win32 the normal -X operators respect
+# that, but unfortunately by the time we get here we've already lost the
+# information we need. It looks to me as though if we were to preserve
+# the st_devnam entry of vmsish.h's fake struct stat (which actually
+# holds the filename) it might be possible to do this right, but both
+# getting that value out of the struct (perl's stat doesn't return it)
+# and interpreting it later would require this module to have an XS
+# component (at which point we might as well just call Perl_cando and
+# have done with it).
+    
+if (grep $^O eq $_, qw/os2 MSWin32 dos/) {
+
+    # from doio.c
+    *cando = sub { ($_[0][2] & $_[1]) ? 1 : "" };
+}
+else {
+
+    # from doio.c
+    *cando = sub {
+        my ($s, $mode, $eff) = @_;
+        my $uid = $eff ? $> : $<;
+        my ($stmode, $stuid, $stgid) = @$s[2,4,5];
+
+        # This code basically assumes that the rwx bits of the mode are
+        # the 0777 bits, but so does Perl_cando.
+
+        if ($uid == 0 && $^O ne "VMS") {
+            # If we're root on unix
+            # not testing for executable status => all file tests are true
+            return 1 if !($mode & 0111);
+            # testing for executable status =>
+            # for a file, any x bit will do
+            # for a directory, always true
+            return 1 if $stmode & 0111 || S_ISDIR($stmode);
+            return "";
+        }
+
+        if ($stuid == $uid) {
+            $stmode & $mode         and return 1;
+        }
+        elsif (_ingroup($stgid, $eff)) {
+            $stmode & ($mode >> 3)  and return 1;
+        }
+        else {
+            $stmode & ($mode >> 6)  and return 1;
+        }
+        return "";
+    };
+}
+
+# alias for those who don't like objects
+*stat_cando = \&cando;
+
+my %op = (
+    r => sub { cando($_[0], S_IRUSR, 1) },
+    w => sub { cando($_[0], S_IWUSR, 1) },
+    x => sub { cando($_[0], S_IXUSR, 1) },
+    o => sub { $_[0][4] == $>           },
+
+    R => sub { cando($_[0], S_IRUSR, 0) },
+    W => sub { cando($_[0], S_IWUSR, 0) },
+    X => sub { cando($_[0], S_IXUSR, 0) },
+    O => sub { $_[0][4] == $<           },
+
+    e => sub { 1 },
+    z => sub { $_[0][7] == 0    },
+    s => sub { $_[0][7]         },
+
+    f => sub { S_ISREG ($_[0][2]) },
+    d => sub { S_ISDIR ($_[0][2]) },
+    l => sub { S_ISLNK ($_[0][2]) },
+    p => sub { S_ISFIFO($_[0][2]) },
+    S => sub { S_ISSOCK($_[0][2]) },
+    b => sub { S_ISBLK ($_[0][2]) },
+    c => sub { S_ISCHR ($_[0][2]) },
+
+    u => sub { _suid($_[0][2]) },
+    g => sub { _sgid($_[0][2]) },
+    k => sub { _svtx($_[0][2]) },
+
+    M => sub { ($^T - $_[0][9] ) / 86400 },
+    C => sub { ($^T - $_[0][10]) / 86400 },
+    A => sub { ($^T - $_[0][8] ) / 86400 },
+);
+
+use constant HINT_FILETEST_ACCESS => 0x00400000;
+
+# we need fallback=>1 or stringifying breaks
+use overload 
+    fallback => 1,
+    -X => sub {
+        my ($s, $op) = @_;
+
+        if (index("rwxRWX", $op) >= 0) {
+            (caller 0)[8] & HINT_FILETEST_ACCESS
+                and warnif("File::stat ignores use filetest 'access'");
+
+            $^O eq "VMS" and warnif("File::stat ignores VMS ACLs");
+
+            # It would be nice to have a warning about using -l on a
+            # non-lstat, but that would require an extra member in the
+            # object.
+        }
+
+        if ($op{$op}) {
+            return $op{$op}->($_[0]);
+        }
+        else {
+            croak "-$op is not implemented on a File::stat object";
+        }
+    };
+
+# Class::Struct forbids use of @ISA
+sub import { goto &Exporter::import }
+
+use Class::Struct qw(struct);
+struct 'File::stat' => [
+     map { $_ => '$' } qw{
+	 dev ino mode nlink uid gid rdev size
+	 atime mtime ctime blksize blocks
+     }
+];
+
+sub populate (@) {
+    return unless @_;
+    my $stob = new();
+    @$stob = (
+	$st_dev, $st_ino, $st_mode, $st_nlink, $st_uid, $st_gid, $st_rdev,
+        $st_size, $st_atime, $st_mtime, $st_ctime, $st_blksize, $st_blocks ) 
+	    = @_;
+    return $stob;
+} 
+
+sub lstat ($)  { populate(CORE::lstat(shift)) }
+
+sub stat ($) {
+    my $arg = shift;
+    my $st = populate(CORE::stat $arg);
+    return $st if defined $st;
+	my $fh;
+    {
+		local $!;
+		no strict 'refs';
+		require Symbol;
+		$fh = \*{ Symbol::qualify( $arg, caller() )};
+		return unless defined fileno $fh;
+	}
+    return populate(CORE::stat $fh);
+}
+
+1;
+__END__
+
+=head1 NAME
+
+File::stat - by-name interface to Perl's built-in stat() functions
+
+=head1 SYNOPSIS
+
+ use File::stat;
+ $st = stat($file) or die "No $file: $!";
+ if ( ($st->mode & 0111) && $st->nlink > 1) ) {
+     print "$file is executable with lotsa links\n";
+ } 
+
+ if ( -x $st ) {
+     print "$file is executable\n";
+ }
+
+ use Fcntl "S_IRUSR";
+ if ( $st->cando(S_IRUSR, 1) ) {
+     print "My effective uid can read $file\n";
+ }
+
+ use File::stat qw(:FIELDS);
+ stat($file) or die "No $file: $!";
+ if ( ($st_mode & 0111) && ($st_nlink > 1) ) {
+     print "$file is executable with lotsa links\n";
+ } 
+
+=head1 DESCRIPTION
+
+This module's default exports override the core stat() 
+and lstat() functions, replacing them with versions that return 
+"File::stat" objects.  This object has methods that
+return the similarly named structure field name from the
+stat(2) function; namely,
+dev,
+ino,
+mode,
+nlink,
+uid,
+gid,
+rdev,
+size,
+atime,
+mtime,
+ctime,
+blksize,
+and
+blocks.  
+
+As of version 1.02 (provided with perl 5.12) the object provides C<"-X">
+overloading, so you can call filetest operators (C<-f>, C<-x>, and so
+on) on it. It also provides a C<< ->cando >> method, called like
+
+ $st->cando( ACCESS, EFFECTIVE )
+
+where I<ACCESS> is one of C<S_IRUSR>, C<S_IWUSR> or C<S_IXUSR> from the
+L<Fcntl|Fcntl> module, and I<EFFECTIVE> indicates whether to use
+effective (true) or real (false) ids. The method interprets the C<mode>,
+C<uid> and C<gid> fields, and returns whether or not the current process
+would be allowed the specified access.
+
+If you don't want to use the objects, you may import the C<< ->cando >>
+method into your namespace as a regular function called C<stat_cando>.
+This takes an arrayref containing the return values of C<stat> or
+C<lstat> as its first argument, and interprets it for you.
+
+You may also import all the structure fields directly into your namespace
+as regular variables using the :FIELDS import tag.  (Note that this still
+overrides your stat() and lstat() functions.)  Access these fields as
+variables named with a preceding C<st_> in front their method names.
+Thus, C<$stat_obj-E<gt>dev()> corresponds to $st_dev if you import
+the fields.
+
+To access this functionality without the core overrides,
+pass the C<use> an empty import list, and then access
+function functions with their full qualified names.
+On the other hand, the built-ins are still available
+via the C<CORE::> pseudo-package.
+
+=head1 BUGS
+
+As of Perl 5.8.0 after using this module you cannot use the implicit
+C<$_> or the special filehandle C<_> with stat() or lstat(), trying
+to do so leads into strange errors.  The workaround is for C<$_> to
+be explicit
+
+    my $stat_obj = stat $_;
+
+and for C<_> to explicitly populate the object using the unexported
+and undocumented populate() function with CORE::stat():
+
+    my $stat_obj = File::stat::populate(CORE::stat(_));
+
+=head1 ERRORS
+
+=over 4
+
+=item -%s is not implemented on a File::stat object
+
+The filetest operators C<-t>, C<-T> and C<-B> are not implemented, as
+they require more information than just a stat buffer.
+
+=back
+
+=head1 WARNINGS
+
+These can all be disabled with
+
+    no warnings "File::stat";
+
+=over 4
+
+=item File::stat ignores use filetest 'access'
+
+You have tried to use one of the C<-rwxRWX> filetests with C<use
+filetest 'access'> in effect. C<File::stat> will ignore the pragma, and
+just use the information in the C<mode> member as usual.
+
+=item File::stat ignores VMS ACLs
+
+VMS systems have a permissions structure that cannot be completely
+represented in a stat buffer, and unlike on other systems the builtin
+filetest operators respect this. The C<File::stat> overloads, however,
+do not, since the information required is not available.
+
+=back
+
+=head1 NOTE
+
+While this class is currently implemented using the Class::Struct
+module to build a struct-like class, you shouldn't rely upon this.
+
+=head1 AUTHOR
+
+Tom Christiansen
diff --git a/lib/5.24.1/FileCache.pm b/lib/5.24.1/FileCache.pm
new file mode 100644
index 00000000..149e8813
--- /dev/null
+++ b/lib/5.24.1/FileCache.pm
@@ -0,0 +1,188 @@
+package FileCache;
+
+our $VERSION = '1.09';
+
+=head1 NAME
+
+FileCache - keep more files open than the system permits
+
+=head1 SYNOPSIS
+
+    no strict 'refs';
+
+    use FileCache;
+    # or
+    use FileCache maxopen => 16;
+
+    cacheout $mode, $path;
+    # or
+    cacheout $path;
+    print $path @data;
+
+    $fh = cacheout $mode, $path;
+    # or
+    $fh = cacheout $path;
+    print $fh @data;
+
+=head1 DESCRIPTION
+
+The C<cacheout> function will make sure that there's a filehandle open
+for reading or writing available as the pathname you give it. It
+automatically closes and re-opens files if you exceed your system's
+maximum number of file descriptors, or the suggested maximum I<maxopen>.
+
+=over
+
+=item cacheout EXPR
+
+The 1-argument form of cacheout will open a file for writing (C<< '>' >>)
+on it's first use, and appending (C<<< '>>' >>>) thereafter.
+
+Returns EXPR on success for convenience. You may neglect the
+return value and manipulate EXPR as the filehandle directly if you prefer.
+
+=item cacheout MODE, EXPR
+
+The 2-argument form of cacheout will use the supplied mode for the initial
+and subsequent openings. Most valid modes for 3-argument C<open> are supported
+namely; C<< '>' >>, C<< '+>' >>, C<< '<' >>, C<< '<+' >>, C<<< '>>' >>>,
+C< '|-' > and C< '-|' >
+
+To pass supplemental arguments to a program opened with C< '|-' > or C< '-|' >
+append them to the command string as you would system EXPR.
+
+Returns EXPR on success for convenience. You may neglect the
+return value and manipulate EXPR as the filehandle directly if you prefer.
+
+=back
+
+=head1 CAVEATS
+
+While it is permissible to C<close> a FileCache managed file,
+do not do so if you are calling C<FileCache::cacheout> from a package other
+than which it was imported, or with another module which overrides C<close>.
+If you must, use C<FileCache::cacheout_close>.
+
+Although FileCache can be used with piped opens ('-|' or '|-') doing so is
+strongly discouraged.  If FileCache finds it necessary to close and then reopen
+a pipe, the command at the far end of the pipe will be reexecuted - the results
+of performing IO on FileCache'd pipes is unlikely to be what you expect.  The
+ability to use FileCache on pipes may be removed in a future release.
+
+FileCache does not store the current file offset if it finds it necessary to
+close a file.  When the file is reopened, the offset will be as specified by the
+original C<open> file mode.  This could be construed to be a bug.
+
+The module functionality relies on symbolic references, so things will break
+under 'use strict' unless 'no strict "refs"' is also specified.
+
+=head1 BUGS
+
+F<sys/param.h> lies with its C<NOFILE> define on some systems,
+so you may have to set I<maxopen> yourself.
+
+=cut
+
+require 5.006;
+use Carp;
+use strict;
+no strict 'refs';
+
+# These are not C<my> for legacy reasons.
+# Previous versions requested the user set $cacheout_maxopen by hand.
+# Some authors fiddled with %saw to overcome the clobber on initial open.
+use vars qw(%saw $cacheout_maxopen);
+$cacheout_maxopen = 16;
+
+use parent 'Exporter';
+our @EXPORT = qw[cacheout cacheout_close];
+
+
+my %isopen;
+my $cacheout_seq = 0;
+
+sub import {
+    my ($pkg,%args) = @_;
+
+    # Use Exporter. %args are for us, not Exporter.
+    # Make sure to up export_to_level, or we will import into ourselves,
+    # rather than our calling package;
+
+    __PACKAGE__->export_to_level(1);
+    Exporter::import( $pkg );
+
+    # Truth is okay here because setting maxopen to 0 would be bad
+    return $cacheout_maxopen = $args{maxopen} if $args{maxopen};
+
+    # XXX This code is crazy.  Why is it a one element foreach loop?
+    # Why is it using $param both as a filename and filehandle?
+    foreach my $param ( '/usr/include/sys/param.h' ){
+      if (open($param, '<', $param)) {
+	local ($_, $.);
+	while (<$param>) {
+	  if( /^\s*#\s*define\s+NOFILE\s+(\d+)/ ){
+	    $cacheout_maxopen = $1 - 4;
+	    close($param);
+	    last;
+	  }
+	}
+	close $param;
+      }
+    }
+    $cacheout_maxopen ||= 16;
+}
+
+# Open in their package.
+sub cacheout_open {
+  return open(*{caller(1) . '::' . $_[1]}, $_[0], $_[1]) && $_[1];
+}
+
+# Close in their package.
+sub cacheout_close {
+  # Short-circuit in case the filehandle disappeared
+  my $pkg = caller($_[1]||0);
+  defined fileno(*{$pkg . '::' . $_[0]}) &&
+    CORE::close(*{$pkg . '::' . $_[0]});
+  delete $isopen{$_[0]};
+}
+
+# But only this sub name is visible to them.
+sub cacheout {
+    my($mode, $file, $class, $ret, $ref, $narg);
+    croak "Not enough arguments for cacheout"  unless $narg = scalar @_;
+    croak "Too many arguments for cacheout"    if $narg > 2;
+
+    ($mode, $file) = @_;
+    ($file, $mode) = ($mode, $file) if $narg == 1;
+    croak "Invalid mode for cacheout" if $mode &&
+      ( $mode !~ /^\s*(?:>>|\+?>|\+?<|\|\-|)|\-\|\s*$/ );
+
+    # Mode changed?
+    if( $isopen{$file} && ($mode||'>') ne $isopen{$file}->[1] ){
+      &cacheout_close($file, 1);
+    }
+
+    if( $isopen{$file}) {
+      $ret = $file;
+      $isopen{$file}->[0]++;
+    }
+    else{
+      if( scalar keys(%isopen) > $cacheout_maxopen -1 ) {
+	my @lru = sort{ $isopen{$a}->[0] <=> $isopen{$b}->[0] } keys(%isopen);
+	$cacheout_seq = 0;
+	$isopen{$_}->[0] = $cacheout_seq++ for
+	  splice(@lru, int($cacheout_maxopen / 3)||$cacheout_maxopen);
+	&cacheout_close($_, 1) for @lru;
+      }
+
+      unless( $ref ){
+	$mode ||= $saw{$file} ? '>>' : ($saw{$file}=1, '>');
+      }
+      #XXX should we just return the value from cacheout_open, no croak?
+      $ret = cacheout_open($mode, $file) or croak("Can't create $file: $!");
+
+      $isopen{$file} = [++$cacheout_seq, $mode];
+    }
+    return $ret;
+}
+1;
diff --git a/lib/5.24.1/FileHandle.pm b/lib/5.24.1/FileHandle.pm
new file mode 100644
index 00000000..6b3636a0
--- /dev/null
+++ b/lib/5.24.1/FileHandle.pm
@@ -0,0 +1,262 @@
+package FileHandle;
+
+use 5.006;
+use strict;
+our($VERSION, @ISA, @EXPORT, @EXPORT_OK);
+
+$VERSION = "2.02";
+
+require IO::File;
+@ISA = qw(IO::File);
+
+@EXPORT = qw(_IOFBF _IOLBF _IONBF);
+
+@EXPORT_OK = qw(
+    pipe
+
+    autoflush
+    output_field_separator
+    output_record_separator
+    input_record_separator
+    input_line_number
+    format_page_number
+    format_lines_per_page
+    format_lines_left
+    format_name
+    format_top_name
+    format_line_break_characters
+    format_formfeed
+
+    print
+    printf
+    getline
+    getlines
+);
+
+#
+# Everything we're willing to export, we must first import.
+#
+import IO::Handle grep { !defined(&$_) } @EXPORT, @EXPORT_OK;
+
+#
+# Some people call "FileHandle::function", so all the functions
+# that were in the old FileHandle class must be imported, too.
+#
+{
+    no strict 'refs';
+
+    my %import = (
+	'IO::Handle' =>
+	    [qw(DESTROY new_from_fd fdopen close fileno getc ungetc gets
+		eof flush error clearerr setbuf setvbuf _open_mode_string)],
+	'IO::Seekable' =>
+	    [qw(seek tell getpos setpos)],
+	'IO::File' =>
+	    [qw(new new_tmpfile open)]
+    );
+    for my $pkg (keys %import) {
+	for my $func (@{$import{$pkg}}) {
+	    my $c = *{"${pkg}::$func"}{CODE}
+		or die "${pkg}::$func missing";
+	    *$func = $c;
+	}
+    }
+}
+
+#
+# Specialized importer for Fcntl magic.
+#
+sub import {
+    my $pkg = shift;
+    my $callpkg = caller;
+    require Exporter;
+    Exporter::export($pkg, $callpkg, @_);
+
+    #
+    # If the Fcntl extension is available,
+    #  export its constants.
+    #
+    eval {
+	require Fcntl;
+	Exporter::export('Fcntl', $callpkg);
+    };
+}
+
+################################################
+# This is the only exported function we define;
+# the rest come from other classes.
+#
+
+sub pipe {
+    my $r = new IO::Handle;
+    my $w = new IO::Handle;
+    CORE::pipe($r, $w) or return undef;
+    ($r, $w);
+}
+
+# Rebless standard file handles
+bless *STDIN{IO},  "FileHandle" if ref *STDIN{IO}  eq "IO::Handle";
+bless *STDOUT{IO}, "FileHandle" if ref *STDOUT{IO} eq "IO::Handle";
+bless *STDERR{IO}, "FileHandle" if ref *STDERR{IO} eq "IO::Handle";
+
+1;
+
+__END__
+
+=head1 NAME
+
+FileHandle - supply object methods for filehandles
+
+=head1 SYNOPSIS
+
+    use FileHandle;
+
+    $fh = FileHandle->new;
+    if ($fh->open("< file")) {
+        print <$fh>;
+        $fh->close;
+    }
+
+    $fh = FileHandle->new("> FOO");
+    if (defined $fh) {
+        print $fh "bar\n";
+        $fh->close;
+    }
+
+    $fh = FileHandle->new("file", "r");
+    if (defined $fh) {
+        print <$fh>;
+        undef $fh;       # automatically closes the file
+    }
+
+    $fh = FileHandle->new("file", O_WRONLY|O_APPEND);
+    if (defined $fh) {
+        print $fh "corge\n";
+        undef $fh;       # automatically closes the file
+    }
+
+    $pos = $fh->getpos;
+    $fh->setpos($pos);
+
+    $fh->setvbuf($buffer_var, _IOLBF, 1024);
+
+    ($readfh, $writefh) = FileHandle::pipe;
+
+    autoflush STDOUT 1;
+
+=head1 DESCRIPTION
+
+NOTE: This class is now a front-end to the IO::* classes.
+
+C<FileHandle::new> creates a C<FileHandle>, which is a reference to a
+newly created symbol (see the C<Symbol> package).  If it receives any
+parameters, they are passed to C<FileHandle::open>; if the open fails,
+the C<FileHandle> object is destroyed.  Otherwise, it is returned to
+the caller.
+
+C<FileHandle::new_from_fd> creates a C<FileHandle> like C<new> does.
+It requires two parameters, which are passed to C<FileHandle::fdopen>;
+if the fdopen fails, the C<FileHandle> object is destroyed.
+Otherwise, it is returned to the caller.
+
+C<FileHandle::open> accepts one parameter or two.  With one parameter,
+it is just a front end for the built-in C<open> function.  With two
+parameters, the first parameter is a filename that may include
+whitespace or other special characters, and the second parameter is
+the open mode, optionally followed by a file permission value.
+
+If C<FileHandle::open> receives a Perl mode string (">", "+<", etc.)
+or a POSIX fopen() mode string ("w", "r+", etc.), it uses the basic
+Perl C<open> operator.
+
+If C<FileHandle::open> is given a numeric mode, it passes that mode
+and the optional permissions value to the Perl C<sysopen> operator.
+For convenience, C<FileHandle::import> tries to import the O_XXX
+constants from the Fcntl module.  If dynamic loading is not available,
+this may fail, but the rest of FileHandle will still work.
+
+C<FileHandle::fdopen> is like C<open> except that its first parameter
+is not a filename but rather a file handle name, a FileHandle object,
+or a file descriptor number.
+
+If the C functions fgetpos() and fsetpos() are available, then
+C<FileHandle::getpos> returns an opaque value that represents the
+current position of the FileHandle, and C<FileHandle::setpos> uses
+that value to return to a previously visited position.
+
+If the C function setvbuf() is available, then C<FileHandle::setvbuf>
+sets the buffering policy for the FileHandle.  The calling sequence
+for the Perl function is the same as its C counterpart, including the
+macros C<_IOFBF>, C<_IOLBF>, and C<_IONBF>, except that the buffer
+parameter specifies a scalar variable to use as a buffer.  WARNING: A
+variable used as a buffer by C<FileHandle::setvbuf> must not be
+modified in any way until the FileHandle is closed or until
+C<FileHandle::setvbuf> is called again, or memory corruption may
+result!
+
+See L<perlfunc> for complete descriptions of each of the following
+supported C<FileHandle> methods, which are just front ends for the
+corresponding built-in functions:
+
+    close
+    fileno
+    getc
+    gets
+    eof
+    clearerr
+    seek
+    tell
+
+See L<perlvar> for complete descriptions of each of the following
+supported C<FileHandle> methods:
+
+    autoflush
+    output_field_separator
+    output_record_separator
+    input_record_separator
+    input_line_number
+    format_page_number
+    format_lines_per_page
+    format_lines_left
+    format_name
+    format_top_name
+    format_line_break_characters
+    format_formfeed
+
+Furthermore, for doing normal I/O you might need these:
+
+=over 4
+
+=item $fh->print
+
+See L<perlfunc/print>.
+
+=item $fh->printf
+
+See L<perlfunc/printf>.
+
+=item $fh->getline
+
+This works like <$fh> described in L<perlop/"I/O Operators">
+except that it's more readable and can be safely called in a
+list context but still returns just one line.
+
+=item $fh->getlines
+
+This works like <$fh> when called in a list context to
+read all the remaining lines in a file, except that it's more readable.
+It will also croak() if accidentally called in a scalar context.
+
+=back
+
+There are many other functions available since FileHandle is descended
+from IO::File, IO::Seekable, and IO::Handle.  Please see those
+respective pages for documentation on more functions.
+
+=head1 SEE ALSO
+
+The B<IO> extension,
+L<perlfunc>, 
+L<perlop/"I/O Operators">.
+
+=cut
diff --git a/lib/5.24.1/Filter/Simple.pm b/lib/5.24.1/Filter/Simple.pm
new file mode 100644
index 00000000..82129192
--- /dev/null
+++ b/lib/5.24.1/Filter/Simple.pm
@@ -0,0 +1,805 @@
+package Filter::Simple;
+
+use Text::Balanced ':ALL';
+
+use vars qw{ $VERSION @EXPORT };
+
+$VERSION = '0.92';
+
+use Filter::Util::Call;
+use Carp;
+
+@EXPORT = qw( FILTER FILTER_ONLY );
+
+
+sub import {
+    if (@_>1) { shift; goto &FILTER }
+    else      { *{caller()."::$_"} = \&$_ foreach @EXPORT }
+}
+
+sub fail {
+    croak "FILTER_ONLY: ", @_;
+}
+
+my $exql = sub {
+    my @bits = extract_quotelike $_[0], qr//;
+    return unless $bits[0];
+    return \@bits;
+};
+
+my $ncws = qr/\s+/;
+my $comment = qr/(?<![\$\@%])#.*/;
+my $ws = qr/(?:$ncws|$comment)+/;
+my $id = qr/\b(?!([ysm]|q[rqxw]?|tr)\b)\w+/;
+my $EOP = qr/\n\n|\Z/;
+my $CUT = qr/\n=cut.*$EOP/;
+my $pod_or_DATA = qr/
+              ^=(?:head[1-4]|item) .*? $CUT
+            | ^=pod .*? $CUT
+            | ^=for .*? $CUT
+            | ^=begin .*? $CUT
+            | ^__(DATA|END)__\r?\n.*
+            /smx;
+my $variable = qr{
+        [\$*\@%]\s*
+            \{\s*(?!::)(?:\d+|[][&`'#+*./|,";%=~:?!\@<>()-]|\^[A-Z]?)\}
+      | (?:\$#?|[*\@\%]|\\&)\$*\s*
+               (?:  \{\s*(?:\^(?=[A-Z_]))?(?:\w|::|'\w)*\s*\}
+                  |      (?:\^(?=[A-Z_]))?(?:\w|::|'\w)*
+                  | (?=\{)  # ${ block }
+               )
+        )
+      | \$\s*(?!::)(?:\d+|[][&`'#+*./|,";%=~:?!\@<>()-]|\^[A-Z]?)
+   }x;
+
+my %extractor_for = (
+    quotelike  => [ $ws,  $variable, $id, { MATCH  => \&extract_quotelike } ],
+    regex      => [ $ws,  $pod_or_DATA, $id, $exql           ],
+    string     => [ $ws,  $pod_or_DATA, $id, $exql           ],
+    code       => [ $ws, { DONT_MATCH => $pod_or_DATA }, $variable,
+                    $id, { DONT_MATCH => \&extract_quotelike }   ],
+    code_no_comments
+               => [ { DONT_MATCH => $comment },
+                    $ncws, { DONT_MATCH => $pod_or_DATA }, $variable,
+                    $id, { DONT_MATCH => \&extract_quotelike }   ],
+    executable => [ $ws, { DONT_MATCH => $pod_or_DATA }      ],
+    executable_no_comments
+               => [ { DONT_MATCH => $comment },
+                    $ncws, { DONT_MATCH => $pod_or_DATA }      ],
+    all        => [        { MATCH  => qr/(?s:.*)/         } ],
+);
+
+my %selector_for = (
+    all   => sub { my ($t)=@_; sub{ $_=$$_; $t->(@_); $_} },
+    executable=> sub { my ($t)=@_; sub{ref() ? $_=$$_ : $t->(@_); $_} }, 
+    quotelike => sub { my ($t)=@_; sub{ref() && do{$_=$$_; $t->(@_)}; $_} },
+    regex     => sub { my ($t)=@_;
+               sub{ref() or return $_;
+                   my ($ql,undef,$pre,$op,$ld,$pat) = @$_;
+                   return $_->[0] unless $op =~ /^(qr|m|s)/
+                         || !$op && ($ld eq '/' || $ld eq '?');
+                   $_ = $pat;
+                   $t->(@_);
+                   $ql =~ s/^(\s*\Q$op\E\s*\Q$ld\E)\Q$pat\E/$1$_/;
+                   return "$pre$ql";
+                  };
+            },
+    string     => sub { my ($t)=@_;
+               sub{ref() or return $_;
+                   local *args = \@_;
+                   my ($pre,$op,$ld1,$str1,$rd1,$ld2,$str2,$rd2,$flg) = @{$_}[2..10];
+                   return $_->[0] if $op =~ /^(qr|m)/
+                         || !$op && ($ld1 eq '/' || $ld1 eq '?');
+                   if (!$op || $op eq 'tr' || $op eq 'y') {
+                       local *_ = \$str1;
+                       $t->(@args);
+                   }
+                   if ($op =~ /^(tr|y|s)/) {
+                       local *_ = \$str2;
+                       $t->(@args);
+                   }
+                   my $result = "$pre$op$ld1$str1$rd1";
+                   $result .= $ld2 if $ld1 =~ m/[[({<]/; #])}>
+                   $result .= "$str2$rd2$flg";
+                   return $result;
+                  };
+              },
+);
+
+
+sub gen_std_filter_for {
+    my ($type, $transform) = @_;
+    return sub {
+        my $instr;
+        local @components;
+		for (extract_multiple($_,$extractor_for{$type})) {
+            if (ref())     { push @components, $_; $instr=0 }
+            elsif ($instr) { $components[-1] .= $_ }
+            else           { push @components, $_; $instr=1 }
+        }
+        if ($type =~ /^code/) {
+            my $count = 0;
+            local $placeholder = qr/\Q$;\E(.{4})\Q$;\E/s;
+            my $extractor =      qr/\Q$;\E(.{4})\Q$;\E/s;
+            $_ = join "",
+                  map { ref $_ ? $;.pack('N',$count++).$; : $_ }
+                      @components;
+            @components = grep { ref $_ } @components;
+            $transform->(@_);
+            s/$extractor/${$components[unpack('N',$1)]}/g;
+        }
+        else {
+            my $selector = $selector_for{$type}->($transform);
+            $_ = join "", map $selector->(@_), @components;
+        }
+    }
+};
+
+sub FILTER (&;$) {
+    my $caller = caller;
+    my ($filter, $terminator) = @_;
+    no warnings 'redefine';
+    *{"${caller}::import"} = gen_filter_import($caller,$filter,$terminator);
+    *{"${caller}::unimport"} = gen_filter_unimport($caller);
+}
+
+sub FILTER_ONLY {
+    my $caller = caller;
+    while (@_ > 1) {
+        my ($what, $how) = splice(@_, 0, 2);
+        fail "Unknown selector: $what"
+            unless exists $extractor_for{$what};
+        fail "Filter for $what is not a subroutine reference"
+            unless ref $how eq 'CODE';
+        push @transforms, gen_std_filter_for($what,$how);
+    }
+    my $terminator = shift;
+
+    my $multitransform = sub {
+        foreach my $transform ( @transforms ) {
+            $transform->(@_);
+        }
+    };
+    no warnings 'redefine';
+    *{"${caller}::import"} =
+        gen_filter_import($caller,$multitransform,$terminator);
+    *{"${caller}::unimport"} = gen_filter_unimport($caller);
+}
+
+my $ows    = qr/(?:[ \t]+|#[^\n]*)*/;
+
+sub gen_filter_import {
+    my ($class, $filter, $terminator) = @_;
+    my %terminator;
+    my $prev_import = *{$class."::import"}{CODE};
+    return sub {
+        my ($imported_class, @args) = @_;
+        my $def_terminator =
+            qr/^(?:\s*no\s+$imported_class\s*;$ows|__(?:END|DATA)__)\r?$/;
+        if (!defined $terminator) {
+            $terminator{terminator} = $def_terminator;
+        }
+        elsif (!ref $terminator || ref $terminator eq 'Regexp') {
+            $terminator{terminator} = $terminator;
+        }
+        elsif (ref $terminator ne 'HASH') {
+            croak "Terminator must be specified as scalar or hash ref"
+        }
+        elsif (!exists $terminator->{terminator}) {
+            $terminator{terminator} = $def_terminator;
+        }
+        filter_add(
+            sub {
+                my ($status, $lastline);
+                my $count = 0;
+                my $data = "";
+                while ($status = filter_read()) {
+                    return $status if $status < 0;
+                    if ($terminator{terminator} &&
+                        m/$terminator{terminator}/) {
+                        $lastline = $_;
+                        last;
+                    }
+                    $data .= $_;
+                    $count++;
+                    $_ = "";
+                }
+                return $count if not $count;
+                $_ = $data;
+                $filter->($imported_class, @args) unless $status < 0;
+                if (defined $lastline) {
+                    if (defined $terminator{becomes}) {
+                        $_ .= $terminator{becomes};
+                    }
+                    elsif ($lastline =~ $def_terminator) {
+                        $_ .= $lastline;
+                    }
+                }
+                return $count;
+            }
+        );
+        if ($prev_import) {
+            goto &$prev_import;
+        }
+        elsif ($class->isa('Exporter')) {
+            $class->export_to_level(1,@_);
+        }
+    }
+}
+
+sub gen_filter_unimport {
+    my ($class) = @_;
+    return sub {
+        filter_del();
+        goto &$prev_unimport if $prev_unimport;
+    }
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+Filter::Simple - Simplified source filtering
+
+=head1 SYNOPSIS
+
+ # in MyFilter.pm:
+
+     package MyFilter;
+
+     use Filter::Simple;
+
+     FILTER { ... };
+
+     # or just:
+     #
+     # use Filter::Simple sub { ... };
+
+ # in user's code:
+
+     use MyFilter;
+
+     # this code is filtered
+
+     no MyFilter;
+
+     # this code is not
+
+
+=head1 DESCRIPTION
+
+=head2 The Problem
+
+Source filtering is an immensely powerful feature of recent versions of Perl.
+It allows one to extend the language itself (e.g. the Switch module), to 
+simplify the language (e.g. Language::Pythonesque), or to completely recast the
+language (e.g. Lingua::Romana::Perligata). Effectively, it allows one to use
+the full power of Perl as its own, recursively applied, macro language.
+
+The excellent Filter::Util::Call module (by Paul Marquess) provides a
+usable Perl interface to source filtering, but it is often too powerful
+and not nearly as simple as it could be.
+
+To use the module it is necessary to do the following:
+
+=over 4
+
+=item 1.
+
+Download, build, and install the Filter::Util::Call module.
+(If you have Perl 5.7.1 or later, this is already done for you.)
+
+=item 2.
+
+Set up a module that does a C<use Filter::Util::Call>.
+
+=item 3.
+
+Within that module, create an C<import> subroutine.
+
+=item 4.
+
+Within the C<import> subroutine do a call to C<filter_add>, passing
+it either a subroutine reference.
+
+=item 5.
+
+Within the subroutine reference, call C<filter_read> or C<filter_read_exact>
+to "prime" $_ with source code data from the source file that will
+C<use> your module. Check the status value returned to see if any
+source code was actually read in.
+
+=item 6.
+
+Process the contents of $_ to change the source code in the desired manner.
+
+=item 7.
+
+Return the status value.
+
+=item 8.
+
+If the act of unimporting your module (via a C<no>) should cause source
+code filtering to cease, create an C<unimport> subroutine, and have it call
+C<filter_del>. Make sure that the call to C<filter_read> or
+C<filter_read_exact> in step 5 will not accidentally read past the
+C<no>. Effectively this limits source code filters to line-by-line
+operation, unless the C<import> subroutine does some fancy
+pre-pre-parsing of the source code it's filtering.
+
+=back
+
+For example, here is a minimal source code filter in a module named
+BANG.pm. It simply converts every occurrence of the sequence C<BANG\s+BANG>
+to the sequence C<die 'BANG' if $BANG> in any piece of code following a
+C<use BANG;> statement (until the next C<no BANG;> statement, if any):
+
+    package BANG;
+
+    use Filter::Util::Call ;
+
+    sub import {
+        filter_add( sub {
+        my $caller = caller;
+        my ($status, $no_seen, $data);
+        while ($status = filter_read()) {
+            if (/^\s*no\s+$caller\s*;\s*?$/) {
+                $no_seen=1;
+                last;
+            }
+            $data .= $_;
+            $_ = "";
+        }
+        $_ = $data;
+        s/BANG\s+BANG/die 'BANG' if \$BANG/g
+            unless $status < 0;
+        $_ .= "no $class;\n" if $no_seen;
+        return 1;
+        })
+    }
+
+    sub unimport {
+        filter_del();
+    }
+
+    1 ;
+
+This level of sophistication puts filtering out of the reach of
+many programmers.
+
+
+=head2 A Solution
+
+The Filter::Simple module provides a simplified interface to
+Filter::Util::Call; one that is sufficient for most common cases.
+
+Instead of the above process, with Filter::Simple the task of setting up
+a source code filter is reduced to:
+
+=over 4
+
+=item 1.
+
+Download and install the Filter::Simple module.
+(If you have Perl 5.7.1 or later, this is already done for you.)
+
+=item 2.
+
+Set up a module that does a C<use Filter::Simple> and then
+calls C<FILTER { ... }>.
+
+=item 3.
+
+Within the anonymous subroutine or block that is passed to
+C<FILTER>, process the contents of $_ to change the source code in
+the desired manner.
+
+=back
+
+In other words, the previous example, would become:
+
+    package BANG;
+    use Filter::Simple;
+
+    FILTER {
+        s/BANG\s+BANG/die 'BANG' if \$BANG/g;
+    };
+
+    1 ;
+
+Note that the source code is passed as a single string, so any regex that
+uses C<^> or C<$> to detect line boundaries will need the C</m> flag.
+
+=head2 Disabling or changing <no> behaviour
+
+By default, the installed filter only filters up to a line consisting of one of
+the three standard source "terminators":
+
+    no ModuleName;  # optional comment
+
+or:
+
+    __END__
+
+or:
+
+    __DATA__
+
+but this can be altered by passing a second argument to C<use Filter::Simple>
+or C<FILTER> (just remember: there's I<no> comma after the initial block when
+you use C<FILTER>).
+
+That second argument may be either a C<qr>'d regular expression (which is then
+used to match the terminator line), or a defined false value (which indicates
+that no terminator line should be looked for), or a reference to a hash
+(in which case the terminator is the value associated with the key
+C<'terminator'>.
+
+For example, to cause the previous filter to filter only up to a line of the
+form:
+
+    GNAB esu;
+
+you would write:
+
+    package BANG;
+    use Filter::Simple;
+
+    FILTER {
+        s/BANG\s+BANG/die 'BANG' if \$BANG/g;
+    }
+    qr/^\s*GNAB\s+esu\s*;\s*?$/;
+
+or:
+
+    FILTER {
+        s/BANG\s+BANG/die 'BANG' if \$BANG/g;
+    }
+    { terminator => qr/^\s*GNAB\s+esu\s*;\s*?$/ };
+
+and to prevent the filter's being turned off in any way:
+
+    package BANG;
+    use Filter::Simple;
+
+    FILTER {
+        s/BANG\s+BANG/die 'BANG' if \$BANG/g;
+    }
+    "";    # or: 0
+
+or:
+
+    FILTER {
+        s/BANG\s+BANG/die 'BANG' if \$BANG/g;
+    }
+    { terminator => "" };
+
+B<Note that, no matter what you set the terminator pattern to,
+the actual terminator itself I<must> be contained on a single source line.>
+
+
+=head2 All-in-one interface
+
+Separating the loading of Filter::Simple:
+
+    use Filter::Simple;
+
+from the setting up of the filtering:
+
+    FILTER { ... };
+
+is useful because it allows other code (typically parser support code
+or caching variables) to be defined before the filter is invoked.
+However, there is often no need for such a separation.
+
+In those cases, it is easier to just append the filtering subroutine and
+any terminator specification directly to the C<use> statement that loads
+Filter::Simple, like so:
+
+    use Filter::Simple sub {
+        s/BANG\s+BANG/die 'BANG' if \$BANG/g;
+    };
+
+This is exactly the same as:
+
+    use Filter::Simple;
+    BEGIN {
+        Filter::Simple::FILTER {
+            s/BANG\s+BANG/die 'BANG' if \$BANG/g;
+        };
+    }
+
+except that the C<FILTER> subroutine is not exported by Filter::Simple.
+
+
+=head2 Filtering only specific components of source code
+
+One of the problems with a filter like:
+
+    use Filter::Simple;
+
+    FILTER { s/BANG\s+BANG/die 'BANG' if \$BANG/g };
+
+is that it indiscriminately applies the specified transformation to
+the entire text of your source program. So something like:
+
+    warn 'BANG BANG, YOU'RE DEAD';
+    BANG BANG;
+
+will become:
+
+    warn 'die 'BANG' if $BANG, YOU'RE DEAD';
+    die 'BANG' if $BANG;
+
+It is very common when filtering source to only want to apply the filter
+to the non-character-string parts of the code, or alternatively to I<only>
+the character strings.
+
+Filter::Simple supports this type of filtering by automatically
+exporting the C<FILTER_ONLY> subroutine.
+
+C<FILTER_ONLY> takes a sequence of specifiers that install separate
+(and possibly multiple) filters that act on only parts of the source code.
+For example:
+
+    use Filter::Simple;
+
+    FILTER_ONLY
+        code      => sub { s/BANG\s+BANG/die 'BANG' if \$BANG/g },
+        quotelike => sub { s/BANG\s+BANG/CHITTY CHITTY/g };
+
+The C<"code"> subroutine will only be used to filter parts of the source
+code that are not quotelikes, POD, or C<__DATA__>. The C<quotelike>
+subroutine only filters Perl quotelikes (including here documents).
+
+The full list of alternatives is:
+
+=over
+
+=item C<"code">
+
+Filters only those sections of the source code that are not quotelikes, POD, or
+C<__DATA__>.
+
+=item C<"code_no_comments">
+
+Filters only those sections of the source code that are not quotelikes, POD,
+comments, or C<__DATA__>.
+
+=item C<"executable">
+
+Filters only those sections of the source code that are not POD or C<__DATA__>.
+
+=item C<"executable_no_comments">
+
+Filters only those sections of the source code that are not POD, comments, or C<__DATA__>.
+
+=item C<"quotelike">
+
+Filters only Perl quotelikes (as interpreted by
+C<&Text::Balanced::extract_quotelike>).
+
+=item C<"string">
+
+Filters only the string literal parts of a Perl quotelike (i.e. the 
+contents of a string literal, either half of a C<tr///>, the second
+half of an C<s///>).
+
+=item C<"regex">
+
+Filters only the pattern literal parts of a Perl quotelike (i.e. the 
+contents of a C<qr//> or an C<m//>, the first half of an C<s///>).
+
+=item C<"all">
+
+Filters everything. Identical in effect to C<FILTER>.
+
+=back
+
+Except for C<< FILTER_ONLY code => sub {...} >>, each of
+the component filters is called repeatedly, once for each component
+found in the source code.
+
+Note that you can also apply two or more of the same type of filter in
+a single C<FILTER_ONLY>. For example, here's a simple 
+macro-preprocessor that is only applied within regexes,
+with a final debugging pass that prints the resulting source code:
+
+    use Regexp::Common;
+    FILTER_ONLY
+        regex => sub { s/!\[/[^/g },
+        regex => sub { s/%d/$RE{num}{int}/g },
+        regex => sub { s/%f/$RE{num}{real}/g },
+        all   => sub { print if $::DEBUG };
+
+
+
+=head2 Filtering only the code parts of source code
+
+Most source code ceases to be grammatically correct when it is broken up
+into the pieces between string literals and regexes. So the C<'code'>
+and C<'code_no_comments'> component filter behave slightly differently
+from the other partial filters described in the previous section.
+
+Rather than calling the specified processor on each individual piece of
+code (i.e. on the bits between quotelikes), the C<'code...'> partial
+filters operate on the entire source code, but with the quotelike bits
+(and, in the case of C<'code_no_comments'>, the comments) "blanked out".
+
+That is, a C<'code...'> filter I<replaces> each quoted string, quotelike,
+regex, POD, and __DATA__ section with a placeholder. The
+delimiters of this placeholder are the contents of the C<$;> variable
+at the time the filter is applied (normally C<"\034">). The remaining
+four bytes are a unique identifier for the component being replaced.
+
+This approach makes it comparatively easy to write code preprocessors
+without worrying about the form or contents of strings, regexes, etc.
+
+For convenience, during a C<'code...'> filtering operation, Filter::Simple
+provides a package variable (C<$Filter::Simple::placeholder>) that
+contains a pre-compiled regex that matches any placeholder...and
+captures the identifier within the placeholder. Placeholders can be
+moved and re-ordered within the source code as needed.
+
+In addition, a second package variable (C<@Filter::Simple::components>)
+contains a list of the various pieces of C<$_>, as they were originally split
+up to allow placeholders to be inserted.
+
+Once the filtering has been applied, the original strings, regexes, POD,
+etc. are re-inserted into the code, by replacing each placeholder with
+the corresponding original component (from C<@components>). Note that
+this means that the C<@components> variable must be treated with extreme
+care within the filter. The C<@components> array stores the "back-
+translations" of each placeholder inserted into C<$_>, as well as the
+interstitial source code between placeholders. If the placeholder
+backtranslations are altered in C<@components>, they will be similarly
+changed when the placeholders are removed from C<$_> after the filter
+is complete.
+
+For example, the following filter detects concatenated pairs of
+strings/quotelikes and reverses the order in which they are
+concatenated:
+
+    package DemoRevCat;
+    use Filter::Simple;
+
+    FILTER_ONLY code => sub {
+        my $ph = $Filter::Simple::placeholder;
+        s{ ($ph) \s* [.] \s* ($ph) }{ $2.$1 }gx
+    };
+
+Thus, the following code:
+
+    use DemoRevCat;
+
+    my $str = "abc" . q(def);
+
+    print "$str\n";
+
+would become:
+
+    my $str = q(def)."abc";
+
+    print "$str\n";
+
+and hence print:
+
+    defabc
+
+
+=head2 Using Filter::Simple with an explicit C<import> subroutine
+
+Filter::Simple generates a special C<import> subroutine for
+your module (see L<"How it works">) which would normally replace any
+C<import> subroutine you might have explicitly declared.
+
+However, Filter::Simple is smart enough to notice your existing
+C<import> and Do The Right Thing with it.
+That is, if you explicitly define an C<import> subroutine in a package
+that's using Filter::Simple, that C<import> subroutine will still
+be invoked immediately after any filter you install.
+
+The only thing you have to remember is that the C<import> subroutine
+I<must> be declared I<before> the filter is installed. If you use C<FILTER>
+to install the filter:
+
+    package Filter::TurnItUpTo11;
+
+    use Filter::Simple;
+
+    FILTER { s/(\w+)/\U$1/ };
+
+that will almost never be a problem, but if you install a filtering
+subroutine by passing it directly to the C<use Filter::Simple>
+statement:
+
+    package Filter::TurnItUpTo11;
+
+    use Filter::Simple sub{ s/(\w+)/\U$1/ };
+
+then you must make sure that your C<import> subroutine appears before
+that C<use> statement.
+
+
+=head2 Using Filter::Simple and Exporter together
+
+Likewise, Filter::Simple is also smart enough
+to Do The Right Thing if you use Exporter:
+
+    package Switch;
+    use base Exporter;
+    use Filter::Simple;
+
+    @EXPORT    = qw(switch case);
+    @EXPORT_OK = qw(given  when);
+
+    FILTER { $_ = magic_Perl_filter($_) }
+
+Immediately after the filter has been applied to the source,
+Filter::Simple will pass control to Exporter, so it can do its magic too.
+
+Of course, here too, Filter::Simple has to know you're using Exporter
+before it applies the filter. That's almost never a problem, but if you're
+nervous about it, you can guarantee that things will work correctly by
+ensuring that your C<use base Exporter> always precedes your
+C<use Filter::Simple>.
+
+
+=head2 How it works
+
+The Filter::Simple module exports into the package that calls C<FILTER>
+(or C<use>s it directly) -- such as package "BANG" in the above example --
+two automagically constructed
+subroutines -- C<import> and C<unimport> -- which take care of all the
+nasty details.
+
+In addition, the generated C<import> subroutine passes its own argument
+list to the filtering subroutine, so the BANG.pm filter could easily 
+be made parametric:
+
+    package BANG;
+
+    use Filter::Simple;
+
+    FILTER {
+        my ($die_msg, $var_name) = @_;
+        s/BANG\s+BANG/die '$die_msg' if \${$var_name}/g;
+    };
+
+    # and in some user code:
+
+    use BANG "BOOM", "BAM";  # "BANG BANG" becomes: die 'BOOM' if $BAM
+
+
+The specified filtering subroutine is called every time a C<use BANG> is
+encountered, and passed all the source code following that call, up to
+either the next C<no BANG;> (or whatever terminator you've set) or the
+end of the source file, whichever occurs first. By default, any C<no
+BANG;> call must appear by itself on a separate line, or it is ignored.
+
+
+=head1 AUTHOR
+
+Damian Conway
+
+=head1 CONTACT
+
+Filter::Simple is now maintained by the Perl5-Porters.
+Please submit bug via the C<perlbug> tool that comes with your perl.
+For usage instructions, read C<perldoc perlbug> or possibly C<man perlbug>.
+For mostly anything else, please contact E<lt>perl5-porters@perl.orgE<gt>.
+
+Maintainer of the CPAN release is Steffen Mueller E<lt>smueller@cpan.orgE<gt>.
+Contact him with technical difficulties with respect to the packaging of the
+CPAN module.
+
+Praise of the module, flowers, and presents still go to the author,
+Damian Conway E<lt>damian@conway.orgE<gt>.
+
+=head1 COPYRIGHT AND LICENSE
+
+    Copyright (c) 2000-2014, Damian Conway. All Rights Reserved.
+    This module is free software. It may be used, redistributed
+    and/or modified under the same terms as Perl itself.
diff --git a/lib/5.24.1/FindBin.pm b/lib/5.24.1/FindBin.pm
new file mode 100644
index 00000000..cf6ecf29
--- /dev/null
+++ b/lib/5.24.1/FindBin.pm
@@ -0,0 +1,170 @@
+# FindBin.pm
+#
+# Copyright (c) 1995 Graham Barr & Nick Ing-Simmons. All rights reserved.
+# This program is free software; you can redistribute it and/or modify it
+# under the same terms as Perl itself.
+
+=head1 NAME
+
+FindBin - Locate directory of original perl script
+
+=head1 SYNOPSIS
+
+ use FindBin;
+ use lib "$FindBin::Bin/../lib";
+
+ or
+
+ use FindBin qw($Bin);
+ use lib "$Bin/../lib";
+
+=head1 DESCRIPTION
+
+Locates the full path to the script bin directory to allow the use
+of paths relative to the bin directory.
+
+This allows a user to setup a directory tree for some software with
+directories C<< <root>/bin >> and C<< <root>/lib >>, and then the above
+example will allow the use of modules in the lib directory without knowing
+where the software tree is installed.
+
+If perl is invoked using the B<-e> option or the perl script is read from
+C<STDIN> then FindBin sets both C<$Bin> and C<$RealBin> to the current
+directory.
+
+=head1 EXPORTABLE VARIABLES
+
+ $Bin         - path to bin directory from where script was invoked
+ $Script      - basename of script from which perl was invoked
+ $RealBin     - $Bin with all links resolved
+ $RealScript  - $Script with all links resolved
+
+=head1 KNOWN ISSUES
+
+If there are two modules using C<FindBin> from different directories
+under the same interpreter, this won't work. Since C<FindBin> uses a
+C<BEGIN> block, it'll be executed only once, and only the first caller
+will get it right. This is a problem under mod_perl and other persistent
+Perl environments, where you shouldn't use this module. Which also means
+that you should avoid using C<FindBin> in modules that you plan to put
+on CPAN. To make sure that C<FindBin> will work is to call the C<again>
+function:
+
+  use FindBin;
+  FindBin::again(); # or FindBin->again;
+
+In former versions of FindBin there was no C<again> function. The
+workaround was to force the C<BEGIN> block to be executed again:
+
+  delete $INC{'FindBin.pm'};
+  require FindBin;
+
+=head1 AUTHORS
+
+FindBin is supported as part of the core perl distribution. Please send bug
+reports to E<lt>F<perlbug@perl.org>E<gt> using the perlbug program
+included with perl.
+
+Graham Barr E<lt>F<gbarr@pobox.com>E<gt>
+Nick Ing-Simmons E<lt>F<nik@tiuk.ti.com>E<gt>
+
+=head1 COPYRIGHT
+
+Copyright (c) 1995 Graham Barr & Nick Ing-Simmons. All rights reserved.
+This program is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+=cut
+
+package FindBin;
+use Carp;
+require 5.000;
+require Exporter;
+use Cwd qw(getcwd cwd abs_path);
+use File::Basename;
+use File::Spec;
+
+@EXPORT_OK = qw($Bin $Script $RealBin $RealScript $Dir $RealDir);
+%EXPORT_TAGS = (ALL => [qw($Bin $Script $RealBin $RealScript $Dir $RealDir)]);
+@ISA = qw(Exporter);
+
+$VERSION = "1.51";
+
+
+# needed for VMS-specific filename translation
+if( $^O eq 'VMS' ) {
+    require VMS::Filespec;
+    VMS::Filespec->import;
+}
+
+sub cwd2 {
+   my $cwd = getcwd();
+   # getcwd might fail if it hasn't access to the current directory.
+   # try harder.
+   defined $cwd or $cwd = cwd();
+   $cwd;
+}
+
+sub init
+{
+ *Dir = \$Bin;
+ *RealDir = \$RealBin;
+
+ if($0 eq '-e' || $0 eq '-')
+  {
+   # perl invoked with -e or script is on C<STDIN>
+   $Script = $RealScript = $0;
+   $Bin    = $RealBin    = cwd2();
+   $Bin = VMS::Filespec::unixify($Bin) if $^O eq 'VMS';
+  }
+ else
+  {
+   my $script = $0;
+
+   if ($^O eq 'VMS')
+    {
+     ($Bin,$Script) = VMS::Filespec::rmsexpand($0) =~ /(.*[\]>\/]+)(.*)/s;
+     # C<use disk:[dev]/lib> isn't going to work, so unixify first
+     ($Bin = VMS::Filespec::unixify($Bin)) =~ s/\/\z//;
+     ($RealBin,$RealScript) = ($Bin,$Script);
+    }
+   else
+    {
+     croak("Cannot find current script '$0'") unless(-f $script);
+
+     # Ensure $script contains the complete path in case we C<chdir>
+
+     $script = File::Spec->catfile(cwd2(), $script)
+       unless File::Spec->file_name_is_absolute($script);
+
+     ($Script,$Bin) = fileparse($script);
+
+     # Resolve $script if it is a link
+     while(1)
+      {
+       my $linktext = readlink($script);
+
+       ($RealScript,$RealBin) = fileparse($script);
+       last unless defined $linktext;
+
+       $script = (File::Spec->file_name_is_absolute($linktext))
+                  ? $linktext
+                  : File::Spec->catfile($RealBin, $linktext);
+      }
+
+     # Get absolute paths to directories
+     if ($Bin) {
+      my $BinOld = $Bin;
+      $Bin = abs_path($Bin);
+      defined $Bin or $Bin = File::Spec->canonpath($BinOld);
+     }
+     $RealBin = abs_path($RealBin) if($RealBin);
+    }
+  }
+}
+
+BEGIN { init }
+
+*again = \&init;
+
+1; # Keep require happy
diff --git a/lib/5.24.1/Getopt/Long.pm b/lib/5.24.1/Getopt/Long.pm
new file mode 100644
index 00000000..fdc96bd2
--- /dev/null
+++ b/lib/5.24.1/Getopt/Long.pm
@@ -0,0 +1,2749 @@
+#! perl
+
+# Getopt::Long.pm -- Universal options parsing
+# Author          : Johan Vromans
+# Created On      : Tue Sep 11 15:00:12 1990
+# Last Modified By: Johan Vromans
+# Last Modified On: Thu Oct  8 14:57:49 2015
+# Update Count    : 1697
+# Status          : Released
+
+################ Module Preamble ################
+
+package Getopt::Long;
+
+use 5.004;
+
+use strict;
+
+use vars qw($VERSION);
+$VERSION        =  2.48;
+# For testing versions only.
+use vars qw($VERSION_STRING);
+$VERSION_STRING = "2.48";
+
+use Exporter;
+use vars qw(@ISA @EXPORT @EXPORT_OK);
+@ISA = qw(Exporter);
+
+# Exported subroutines.
+sub GetOptions(@);		# always
+sub GetOptionsFromArray(@);	# on demand
+sub GetOptionsFromString(@);	# on demand
+sub Configure(@);		# on demand
+sub HelpMessage(@);		# on demand
+sub VersionMessage(@);		# in demand
+
+BEGIN {
+    # Init immediately so their contents can be used in the 'use vars' below.
+    @EXPORT    = qw(&GetOptions $REQUIRE_ORDER $PERMUTE $RETURN_IN_ORDER);
+    @EXPORT_OK = qw(&HelpMessage &VersionMessage &Configure
+		    &GetOptionsFromArray &GetOptionsFromString);
+}
+
+# User visible variables.
+use vars @EXPORT, @EXPORT_OK;
+use vars qw($error $debug $major_version $minor_version);
+# Deprecated visible variables.
+use vars qw($autoabbrev $getopt_compat $ignorecase $bundling $order
+	    $passthrough);
+# Official invisible variables.
+use vars qw($genprefix $caller $gnu_compat $auto_help $auto_version $longprefix);
+
+# Really invisible variables.
+my $bundling_values;
+
+# Public subroutines.
+sub config(@);			# deprecated name
+
+# Private subroutines.
+sub ConfigDefaults();
+sub ParseOptionSpec($$);
+sub OptCtl($);
+sub FindOption($$$$$);
+sub ValidValue ($$$$$);
+
+################ Local Variables ################
+
+# $requested_version holds the version that was mentioned in the 'use'
+# or 'require', if any. It can be used to enable or disable specific
+# features.
+my $requested_version = 0;
+
+################ Resident subroutines ################
+
+sub ConfigDefaults() {
+    # Handle POSIX compliancy.
+    if ( defined $ENV{"POSIXLY_CORRECT"} ) {
+	$genprefix = "(--|-)";
+	$autoabbrev = 0;		# no automatic abbrev of options
+	$bundling = 0;			# no bundling of single letter switches
+	$getopt_compat = 0;		# disallow '+' to start options
+	$order = $REQUIRE_ORDER;
+    }
+    else {
+	$genprefix = "(--|-|\\+)";
+	$autoabbrev = 1;		# automatic abbrev of options
+	$bundling = 0;			# bundling off by default
+	$getopt_compat = 1;		# allow '+' to start options
+	$order = $PERMUTE;
+    }
+    # Other configurable settings.
+    $debug = 0;			# for debugging
+    $error = 0;			# error tally
+    $ignorecase = 1;		# ignore case when matching options
+    $passthrough = 0;		# leave unrecognized options alone
+    $gnu_compat = 0;		# require --opt=val if value is optional
+    $longprefix = "(--)";       # what does a long prefix look like
+    $bundling_values = 0;	# no bundling of values
+}
+
+# Override import.
+sub import {
+    my $pkg = shift;		# package
+    my @syms = ();		# symbols to import
+    my @config = ();		# configuration
+    my $dest = \@syms;		# symbols first
+    for ( @_ ) {
+	if ( $_ eq ':config' ) {
+	    $dest = \@config;	# config next
+	    next;
+	}
+	push(@$dest, $_);	# push
+    }
+    # Hide one level and call super.
+    local $Exporter::ExportLevel = 1;
+    push(@syms, qw(&GetOptions)) if @syms; # always export GetOptions
+    $requested_version = 0;
+    $pkg->SUPER::import(@syms);
+    # And configure.
+    Configure(@config) if @config;
+}
+
+################ Initialization ################
+
+# Values for $order. See GNU getopt.c for details.
+($REQUIRE_ORDER, $PERMUTE, $RETURN_IN_ORDER) = (0..2);
+# Version major/minor numbers.
+($major_version, $minor_version) = $VERSION =~ /^(\d+)\.(\d+)/;
+
+ConfigDefaults();
+
+################ OO Interface ################
+
+package Getopt::Long::Parser;
+
+# Store a copy of the default configuration. Since ConfigDefaults has
+# just been called, what we get from Configure is the default.
+my $default_config = do {
+    Getopt::Long::Configure ()
+};
+
+sub new {
+    my $that = shift;
+    my $class = ref($that) || $that;
+    my %atts = @_;
+
+    # Register the callers package.
+    my $self = { caller_pkg => (caller)[0] };
+
+    bless ($self, $class);
+
+    # Process config attributes.
+    if ( defined $atts{config} ) {
+	my $save = Getopt::Long::Configure ($default_config, @{$atts{config}});
+	$self->{settings} = Getopt::Long::Configure ($save);
+	delete ($atts{config});
+    }
+    # Else use default config.
+    else {
+	$self->{settings} = $default_config;
+    }
+
+    if ( %atts ) {		# Oops
+	die(__PACKAGE__.": unhandled attributes: ".
+	    join(" ", sort(keys(%atts)))."\n");
+    }
+
+    $self;
+}
+
+sub configure {
+    my ($self) = shift;
+
+    # Restore settings, merge new settings in.
+    my $save = Getopt::Long::Configure ($self->{settings}, @_);
+
+    # Restore orig config and save the new config.
+    $self->{settings} = Getopt::Long::Configure ($save);
+}
+
+sub getoptions {
+    my ($self) = shift;
+
+    return $self->getoptionsfromarray(\@ARGV, @_);
+}
+
+sub getoptionsfromarray {
+    my ($self) = shift;
+
+    # Restore config settings.
+    my $save = Getopt::Long::Configure ($self->{settings});
+
+    # Call main routine.
+    my $ret = 0;
+    $Getopt::Long::caller = $self->{caller_pkg};
+
+    eval {
+	# Locally set exception handler to default, otherwise it will
+	# be called implicitly here, and again explicitly when we try
+	# to deliver the messages.
+	local ($SIG{__DIE__}) = 'DEFAULT';
+	$ret = Getopt::Long::GetOptionsFromArray (@_);
+    };
+
+    # Restore saved settings.
+    Getopt::Long::Configure ($save);
+
+    # Handle errors and return value.
+    die ($@) if $@;
+    return $ret;
+}
+
+package Getopt::Long;
+
+################ Back to Normal ################
+
+# Indices in option control info.
+# Note that ParseOptions uses the fields directly. Search for 'hard-wired'.
+use constant CTL_TYPE    => 0;
+#use constant   CTL_TYPE_FLAG   => '';
+#use constant   CTL_TYPE_NEG    => '!';
+#use constant   CTL_TYPE_INCR   => '+';
+#use constant   CTL_TYPE_INT    => 'i';
+#use constant   CTL_TYPE_INTINC => 'I';
+#use constant   CTL_TYPE_XINT   => 'o';
+#use constant   CTL_TYPE_FLOAT  => 'f';
+#use constant   CTL_TYPE_STRING => 's';
+
+use constant CTL_CNAME   => 1;
+
+use constant CTL_DEFAULT => 2;
+
+use constant CTL_DEST    => 3;
+ use constant   CTL_DEST_SCALAR => 0;
+ use constant   CTL_DEST_ARRAY  => 1;
+ use constant   CTL_DEST_HASH   => 2;
+ use constant   CTL_DEST_CODE   => 3;
+
+use constant CTL_AMIN    => 4;
+use constant CTL_AMAX    => 5;
+
+# FFU.
+#use constant CTL_RANGE   => ;
+#use constant CTL_REPEAT  => ;
+
+# Rather liberal patterns to match numbers.
+use constant PAT_INT   => "[-+]?_*[0-9][0-9_]*";
+use constant PAT_XINT  =>
+  "(?:".
+	  "[-+]?_*[1-9][0-9_]*".
+  "|".
+	  "0x_*[0-9a-f][0-9a-f_]*".
+  "|".
+	  "0b_*[01][01_]*".
+  "|".
+	  "0[0-7_]*".
+  ")";
+use constant PAT_FLOAT =>
+  "[-+]?".			# optional sign
+  "(?=[0-9.])".			# must start with digit or dec.point
+  "[0-9_]*".			# digits before the dec.point
+  "(\.[0-9_]+)?".		# optional fraction
+  "([eE][-+]?[0-9_]+)?";	# optional exponent
+
+sub GetOptions(@) {
+    # Shift in default array.
+    unshift(@_, \@ARGV);
+    # Try to keep caller() and Carp consistent.
+    goto &GetOptionsFromArray;
+}
+
+sub GetOptionsFromString(@) {
+    my ($string) = shift;
+    require Text::ParseWords;
+    my $args = [ Text::ParseWords::shellwords($string) ];
+    $caller ||= (caller)[0];	# current context
+    my $ret = GetOptionsFromArray($args, @_);
+    return ( $ret, $args ) if wantarray;
+    if ( @$args ) {
+	$ret = 0;
+	warn("GetOptionsFromString: Excess data \"@$args\" in string \"$string\"\n");
+    }
+    $ret;
+}
+
+sub GetOptionsFromArray(@) {
+
+    my ($argv, @optionlist) = @_;	# local copy of the option descriptions
+    my $argend = '--';		# option list terminator
+    my %opctl = ();		# table of option specs
+    my $pkg = $caller || (caller)[0];	# current context
+				# Needed if linkage is omitted.
+    my @ret = ();		# accum for non-options
+    my %linkage;		# linkage
+    my $userlinkage;		# user supplied HASH
+    my $opt;			# current option
+    my $prefix = $genprefix;	# current prefix
+
+    $error = '';
+
+    if ( $debug ) {
+	# Avoid some warnings if debugging.
+	local ($^W) = 0;
+	print STDERR
+	  ("Getopt::Long $Getopt::Long::VERSION ",
+	   "called from package \"$pkg\".",
+	   "\n  ",
+	   "argv: ",
+	   defined($argv)
+	   ? UNIVERSAL::isa( $argv, 'ARRAY' ) ? "(@$argv)" : $argv
+	   : "<undef>",
+	   "\n  ",
+	   "autoabbrev=$autoabbrev,".
+	   "bundling=$bundling,",
+	   "bundling_values=$bundling_values,",
+	   "getopt_compat=$getopt_compat,",
+	   "gnu_compat=$gnu_compat,",
+	   "order=$order,",
+	   "\n  ",
+	   "ignorecase=$ignorecase,",
+	   "requested_version=$requested_version,",
+	   "passthrough=$passthrough,",
+	   "genprefix=\"$genprefix\",",
+	   "longprefix=\"$longprefix\".",
+	   "\n");
+    }
+
+    # Check for ref HASH as first argument.
+    # First argument may be an object. It's OK to use this as long
+    # as it is really a hash underneath.
+    $userlinkage = undef;
+    if ( @optionlist && ref($optionlist[0]) and
+	 UNIVERSAL::isa($optionlist[0],'HASH') ) {
+	$userlinkage = shift (@optionlist);
+	print STDERR ("=> user linkage: $userlinkage\n") if $debug;
+    }
+
+    # See if the first element of the optionlist contains option
+    # starter characters.
+    # Be careful not to interpret '<>' as option starters.
+    if ( @optionlist && $optionlist[0] =~ /^\W+$/
+	 && !($optionlist[0] eq '<>'
+	      && @optionlist > 0
+	      && ref($optionlist[1])) ) {
+	$prefix = shift (@optionlist);
+	# Turn into regexp. Needs to be parenthesized!
+	$prefix =~ s/(\W)/\\$1/g;
+	$prefix = "([" . $prefix . "])";
+	print STDERR ("=> prefix=\"$prefix\"\n") if $debug;
+    }
+
+    # Verify correctness of optionlist.
+    %opctl = ();
+    while ( @optionlist ) {
+	my $opt = shift (@optionlist);
+
+	unless ( defined($opt) ) {
+	    $error .= "Undefined argument in option spec\n";
+	    next;
+	}
+
+	# Strip leading prefix so people can specify "--foo=i" if they like.
+	$opt = $+ if $opt =~ /^$prefix+(.*)$/s;
+
+	if ( $opt eq '<>' ) {
+	    if ( (defined $userlinkage)
+		&& !(@optionlist > 0 && ref($optionlist[0]))
+		&& (exists $userlinkage->{$opt})
+		&& ref($userlinkage->{$opt}) ) {
+		unshift (@optionlist, $userlinkage->{$opt});
+	    }
+	    unless ( @optionlist > 0
+		    && ref($optionlist[0]) && ref($optionlist[0]) eq 'CODE' ) {
+		$error .= "Option spec <> requires a reference to a subroutine\n";
+		# Kill the linkage (to avoid another error).
+		shift (@optionlist)
+		  if @optionlist && ref($optionlist[0]);
+		next;
+	    }
+	    $linkage{'<>'} = shift (@optionlist);
+	    next;
+	}
+
+	# Parse option spec.
+	my ($name, $orig) = ParseOptionSpec ($opt, \%opctl);
+	unless ( defined $name ) {
+	    # Failed. $orig contains the error message. Sorry for the abuse.
+	    $error .= $orig;
+	    # Kill the linkage (to avoid another error).
+	    shift (@optionlist)
+	      if @optionlist && ref($optionlist[0]);
+	    next;
+	}
+
+	# If no linkage is supplied in the @optionlist, copy it from
+	# the userlinkage if available.
+	if ( defined $userlinkage ) {
+	    unless ( @optionlist > 0 && ref($optionlist[0]) ) {
+		if ( exists $userlinkage->{$orig} &&
+		     ref($userlinkage->{$orig}) ) {
+		    print STDERR ("=> found userlinkage for \"$orig\": ",
+				  "$userlinkage->{$orig}\n")
+			if $debug;
+		    unshift (@optionlist, $userlinkage->{$orig});
+		}
+		else {
+		    # Do nothing. Being undefined will be handled later.
+		    next;
+		}
+	    }
+	}
+
+	# Copy the linkage. If omitted, link to global variable.
+	if ( @optionlist > 0 && ref($optionlist[0]) ) {
+	    print STDERR ("=> link \"$orig\" to $optionlist[0]\n")
+		if $debug;
+	    my $rl = ref($linkage{$orig} = shift (@optionlist));
+
+	    if ( $rl eq "ARRAY" ) {
+		$opctl{$name}[CTL_DEST] = CTL_DEST_ARRAY;
+	    }
+	    elsif ( $rl eq "HASH" ) {
+		$opctl{$name}[CTL_DEST] = CTL_DEST_HASH;
+	    }
+	    elsif ( $rl eq "SCALAR" || $rl eq "REF" ) {
+#		if ( $opctl{$name}[CTL_DEST] == CTL_DEST_ARRAY ) {
+#		    my $t = $linkage{$orig};
+#		    $$t = $linkage{$orig} = [];
+#		}
+#		elsif ( $opctl{$name}[CTL_DEST] == CTL_DEST_HASH ) {
+#		}
+#		else {
+		    # Ok.
+#		}
+	    }
+	    elsif ( $rl eq "CODE" ) {
+		# Ok.
+	    }
+	    else {
+		$error .= "Invalid option linkage for \"$opt\"\n";
+	    }
+	}
+	else {
+	    # Link to global $opt_XXX variable.
+	    # Make sure a valid perl identifier results.
+	    my $ov = $orig;
+	    $ov =~ s/\W/_/g;
+	    if ( $opctl{$name}[CTL_DEST] == CTL_DEST_ARRAY ) {
+		print STDERR ("=> link \"$orig\" to \@$pkg","::opt_$ov\n")
+		    if $debug;
+		eval ("\$linkage{\$orig} = \\\@".$pkg."::opt_$ov;");
+	    }
+	    elsif ( $opctl{$name}[CTL_DEST] == CTL_DEST_HASH ) {
+		print STDERR ("=> link \"$orig\" to \%$pkg","::opt_$ov\n")
+		    if $debug;
+		eval ("\$linkage{\$orig} = \\\%".$pkg."::opt_$ov;");
+	    }
+	    else {
+		print STDERR ("=> link \"$orig\" to \$$pkg","::opt_$ov\n")
+		    if $debug;
+		eval ("\$linkage{\$orig} = \\\$".$pkg."::opt_$ov;");
+	    }
+	}
+
+	if ( $opctl{$name}[CTL_TYPE] eq 'I'
+	     && ( $opctl{$name}[CTL_DEST] == CTL_DEST_ARRAY
+		  || $opctl{$name}[CTL_DEST] == CTL_DEST_HASH )
+	   ) {
+	    $error .= "Invalid option linkage for \"$opt\"\n";
+	}
+
+    }
+
+    $error .= "GetOptionsFromArray: 1st parameter is not an array reference\n"
+      unless $argv && UNIVERSAL::isa( $argv, 'ARRAY' );
+
+    # Bail out if errors found.
+    die ($error) if $error;
+    $error = 0;
+
+    # Supply --version and --help support, if needed and allowed.
+    if ( defined($auto_version) ? $auto_version : ($requested_version >= 2.3203) ) {
+	if ( !defined($opctl{version}) ) {
+	    $opctl{version} = ['','version',0,CTL_DEST_CODE,undef];
+	    $linkage{version} = \&VersionMessage;
+	}
+	$auto_version = 1;
+    }
+    if ( defined($auto_help) ? $auto_help : ($requested_version >= 2.3203) ) {
+	if ( !defined($opctl{help}) && !defined($opctl{'?'}) ) {
+	    $opctl{help} = $opctl{'?'} = ['','help',0,CTL_DEST_CODE,undef];
+	    $linkage{help} = \&HelpMessage;
+	}
+	$auto_help = 1;
+    }
+
+    # Show the options tables if debugging.
+    if ( $debug ) {
+	my ($arrow, $k, $v);
+	$arrow = "=> ";
+	while ( ($k,$v) = each(%opctl) ) {
+	    print STDERR ($arrow, "\$opctl{$k} = $v ", OptCtl($v), "\n");
+	    $arrow = "   ";
+	}
+    }
+
+    # Process argument list
+    my $goon = 1;
+    while ( $goon && @$argv > 0 ) {
+
+	# Get next argument.
+	$opt = shift (@$argv);
+	print STDERR ("=> arg \"", $opt, "\"\n") if $debug;
+
+	# Double dash is option list terminator.
+	if ( defined($opt) && $opt eq $argend ) {
+	  push (@ret, $argend) if $passthrough;
+	  last;
+	}
+
+	# Look it up.
+	my $tryopt = $opt;
+	my $found;		# success status
+	my $key;		# key (if hash type)
+	my $arg;		# option argument
+	my $ctl;		# the opctl entry
+
+	($found, $opt, $ctl, $arg, $key) =
+	  FindOption ($argv, $prefix, $argend, $opt, \%opctl);
+
+	if ( $found ) {
+
+	    # FindOption undefines $opt in case of errors.
+	    next unless defined $opt;
+
+	    my $argcnt = 0;
+	    while ( defined $arg ) {
+
+		# Get the canonical name.
+		print STDERR ("=> cname for \"$opt\" is ") if $debug;
+		$opt = $ctl->[CTL_CNAME];
+		print STDERR ("\"$ctl->[CTL_CNAME]\"\n") if $debug;
+
+		if ( defined $linkage{$opt} ) {
+		    print STDERR ("=> ref(\$L{$opt}) -> ",
+				  ref($linkage{$opt}), "\n") if $debug;
+
+		    if ( ref($linkage{$opt}) eq 'SCALAR'
+			 || ref($linkage{$opt}) eq 'REF' ) {
+			if ( $ctl->[CTL_TYPE] eq '+' ) {
+			    print STDERR ("=> \$\$L{$opt} += \"$arg\"\n")
+			      if $debug;
+			    if ( defined ${$linkage{$opt}} ) {
+			        ${$linkage{$opt}} += $arg;
+			    }
+		            else {
+			        ${$linkage{$opt}} = $arg;
+			    }
+			}
+			elsif ( $ctl->[CTL_DEST] == CTL_DEST_ARRAY ) {
+			    print STDERR ("=> ref(\$L{$opt}) auto-vivified",
+					  " to ARRAY\n")
+			      if $debug;
+			    my $t = $linkage{$opt};
+			    $$t = $linkage{$opt} = [];
+			    print STDERR ("=> push(\@{\$L{$opt}, \"$arg\")\n")
+			      if $debug;
+			    push (@{$linkage{$opt}}, $arg);
+			}
+			elsif ( $ctl->[CTL_DEST] == CTL_DEST_HASH ) {
+			    print STDERR ("=> ref(\$L{$opt}) auto-vivified",
+					  " to HASH\n")
+			      if $debug;
+			    my $t = $linkage{$opt};
+			    $$t = $linkage{$opt} = {};
+			    print STDERR ("=> \$\$L{$opt}->{$key} = \"$arg\"\n")
+			      if $debug;
+			    $linkage{$opt}->{$key} = $arg;
+			}
+			else {
+			    print STDERR ("=> \$\$L{$opt} = \"$arg\"\n")
+			      if $debug;
+			    ${$linkage{$opt}} = $arg;
+		        }
+		    }
+		    elsif ( ref($linkage{$opt}) eq 'ARRAY' ) {
+			print STDERR ("=> push(\@{\$L{$opt}, \"$arg\")\n")
+			    if $debug;
+			push (@{$linkage{$opt}}, $arg);
+		    }
+		    elsif ( ref($linkage{$opt}) eq 'HASH' ) {
+			print STDERR ("=> \$\$L{$opt}->{$key} = \"$arg\"\n")
+			    if $debug;
+			$linkage{$opt}->{$key} = $arg;
+		    }
+		    elsif ( ref($linkage{$opt}) eq 'CODE' ) {
+			print STDERR ("=> &L{$opt}(\"$opt\"",
+				      $ctl->[CTL_DEST] == CTL_DEST_HASH ? ", \"$key\"" : "",
+				      ", \"$arg\")\n")
+			    if $debug;
+			my $eval_error = do {
+			    local $@;
+			    local $SIG{__DIE__}  = 'DEFAULT';
+			    eval {
+				&{$linkage{$opt}}
+				  (Getopt::Long::CallBack->new
+				   (name    => $opt,
+				    ctl     => $ctl,
+				    opctl   => \%opctl,
+				    linkage => \%linkage,
+				    prefix  => $prefix,
+				   ),
+				   $ctl->[CTL_DEST] == CTL_DEST_HASH ? ($key) : (),
+				   $arg);
+			    };
+			    $@;
+			};
+			print STDERR ("=> die($eval_error)\n")
+			  if $debug && $eval_error ne '';
+			if ( $eval_error =~ /^!/ ) {
+			    if ( $eval_error =~ /^!FINISH\b/ ) {
+				$goon = 0;
+			    }
+			}
+			elsif ( $eval_error ne '' ) {
+			    warn ($eval_error);
+			    $error++;
+			}
+		    }
+		    else {
+			print STDERR ("Invalid REF type \"", ref($linkage{$opt}),
+				      "\" in linkage\n");
+			die("Getopt::Long -- internal error!\n");
+		    }
+		}
+		# No entry in linkage means entry in userlinkage.
+		elsif ( $ctl->[CTL_DEST] == CTL_DEST_ARRAY ) {
+		    if ( defined $userlinkage->{$opt} ) {
+			print STDERR ("=> push(\@{\$L{$opt}}, \"$arg\")\n")
+			    if $debug;
+			push (@{$userlinkage->{$opt}}, $arg);
+		    }
+		    else {
+			print STDERR ("=>\$L{$opt} = [\"$arg\"]\n")
+			    if $debug;
+			$userlinkage->{$opt} = [$arg];
+		    }
+		}
+		elsif ( $ctl->[CTL_DEST] == CTL_DEST_HASH ) {
+		    if ( defined $userlinkage->{$opt} ) {
+			print STDERR ("=> \$L{$opt}->{$key} = \"$arg\"\n")
+			    if $debug;
+			$userlinkage->{$opt}->{$key} = $arg;
+		    }
+		    else {
+			print STDERR ("=>\$L{$opt} = {$key => \"$arg\"}\n")
+			    if $debug;
+			$userlinkage->{$opt} = {$key => $arg};
+		    }
+		}
+		else {
+		    if ( $ctl->[CTL_TYPE] eq '+' ) {
+			print STDERR ("=> \$L{$opt} += \"$arg\"\n")
+			  if $debug;
+			if ( defined $userlinkage->{$opt} ) {
+			    $userlinkage->{$opt} += $arg;
+			}
+			else {
+			    $userlinkage->{$opt} = $arg;
+			}
+		    }
+		    else {
+			print STDERR ("=>\$L{$opt} = \"$arg\"\n") if $debug;
+			$userlinkage->{$opt} = $arg;
+		    }
+		}
+
+		$argcnt++;
+		last if $argcnt >= $ctl->[CTL_AMAX] && $ctl->[CTL_AMAX] != -1;
+		undef($arg);
+
+		# Need more args?
+		if ( $argcnt < $ctl->[CTL_AMIN] ) {
+		    if ( @$argv ) {
+			if ( ValidValue($ctl, $argv->[0], 1, $argend, $prefix) ) {
+			    $arg = shift(@$argv);
+			    if ( $ctl->[CTL_TYPE] =~ /^[iIo]$/ ) {
+				$arg =~ tr/_//d;
+				$arg = $ctl->[CTL_TYPE] eq 'o' && $arg =~ /^0/
+				  ? oct($arg)
+				  : 0+$arg
+			    }
+			    ($key,$arg) = $arg =~ /^([^=]+)=(.*)/
+			      if $ctl->[CTL_DEST] == CTL_DEST_HASH;
+			    next;
+			}
+			warn("Value \"$$argv[0]\" invalid for option $opt\n");
+			$error++;
+		    }
+		    else {
+			warn("Insufficient arguments for option $opt\n");
+			$error++;
+		    }
+		}
+
+		# Any more args?
+		if ( @$argv && ValidValue($ctl, $argv->[0], 0, $argend, $prefix) ) {
+		    $arg = shift(@$argv);
+		    if ( $ctl->[CTL_TYPE] =~ /^[iIo]$/ ) {
+			$arg =~ tr/_//d;
+			$arg = $ctl->[CTL_TYPE] eq 'o' && $arg =~ /^0/
+			  ? oct($arg)
+			  : 0+$arg
+		    }
+		    ($key,$arg) = $arg =~ /^([^=]+)=(.*)/
+		      if $ctl->[CTL_DEST] == CTL_DEST_HASH;
+		    next;
+		}
+	    }
+	}
+
+	# Not an option. Save it if we $PERMUTE and don't have a <>.
+	elsif ( $order == $PERMUTE ) {
+	    # Try non-options call-back.
+	    my $cb;
+	    if ( defined ($cb = $linkage{'<>'}) ) {
+		print STDERR ("=> &L{$tryopt}(\"$tryopt\")\n")
+		  if $debug;
+		my $eval_error = do {
+		    local $@;
+		    local $SIG{__DIE__}  = 'DEFAULT';
+		    eval {
+			# The arg to <> cannot be the CallBack object
+			# since it may be passed to other modules that
+			# get confused (e.g., Archive::Tar). Well,
+			# it's not relevant for this callback anyway.
+			&$cb($tryopt);
+		    };
+		    $@;
+		};
+		print STDERR ("=> die($eval_error)\n")
+		  if $debug && $eval_error ne '';
+		if ( $eval_error =~ /^!/ ) {
+		    if ( $eval_error =~ /^!FINISH\b/ ) {
+			$goon = 0;
+		    }
+		}
+		elsif ( $eval_error ne '' ) {
+		    warn ($eval_error);
+		    $error++;
+		}
+	    }
+	    else {
+		print STDERR ("=> saving \"$tryopt\" ",
+			      "(not an option, may permute)\n") if $debug;
+		push (@ret, $tryopt);
+	    }
+	    next;
+	}
+
+	# ...otherwise, terminate.
+	else {
+	    # Push this one back and exit.
+	    unshift (@$argv, $tryopt);
+	    return ($error == 0);
+	}
+
+    }
+
+    # Finish.
+    if ( @ret && $order == $PERMUTE ) {
+	#  Push back accumulated arguments
+	print STDERR ("=> restoring \"", join('" "', @ret), "\"\n")
+	    if $debug;
+	unshift (@$argv, @ret);
+    }
+
+    return ($error == 0);
+}
+
+# A readable representation of what's in an optbl.
+sub OptCtl ($) {
+    my ($v) = @_;
+    my @v = map { defined($_) ? ($_) : ("<undef>") } @$v;
+    "[".
+      join(",",
+	   "\"$v[CTL_TYPE]\"",
+	   "\"$v[CTL_CNAME]\"",
+	   "\"$v[CTL_DEFAULT]\"",
+	   ("\$","\@","\%","\&")[$v[CTL_DEST] || 0],
+	   $v[CTL_AMIN] || '',
+	   $v[CTL_AMAX] || '',
+#	   $v[CTL_RANGE] || '',
+#	   $v[CTL_REPEAT] || '',
+	  ). "]";
+}
+
+# Parse an option specification and fill the tables.
+sub ParseOptionSpec ($$) {
+    my ($opt, $opctl) = @_;
+
+    # Match option spec.
+    if ( $opt !~ m;^
+		   (
+		     # Option name
+		     (?: \w+[-\w]* )
+		     # Alias names, or "?"
+		     (?: \| (?: \? | \w[-\w]* ) )*
+		     # Aliases
+		     (?: \| (?: [^-|!+=:][^|!+=:]* )? )*
+		   )?
+		   (
+		     # Either modifiers ...
+		     [!+]
+		     |
+		     # ... or a value/dest/repeat specification
+		     [=:] [ionfs] [@%]? (?: \{\d*,?\d*\} )?
+		     |
+		     # ... or an optional-with-default spec
+		     : (?: -?\d+ | \+ ) [@%]?
+		   )?
+		   $;x ) {
+	return (undef, "Error in option spec: \"$opt\"\n");
+    }
+
+    my ($names, $spec) = ($1, $2);
+    $spec = '' unless defined $spec;
+
+    # $orig keeps track of the primary name the user specified.
+    # This name will be used for the internal or external linkage.
+    # In other words, if the user specifies "FoO|BaR", it will
+    # match any case combinations of 'foo' and 'bar', but if a global
+    # variable needs to be set, it will be $opt_FoO in the exact case
+    # as specified.
+    my $orig;
+
+    my @names;
+    if ( defined $names ) {
+	@names =  split (/\|/, $names);
+	$orig = $names[0];
+    }
+    else {
+	@names = ('');
+	$orig = '';
+    }
+
+    # Construct the opctl entries.
+    my $entry;
+    if ( $spec eq '' || $spec eq '+' || $spec eq '!' ) {
+	# Fields are hard-wired here.
+	$entry = [$spec,$orig,undef,CTL_DEST_SCALAR,0,0];
+    }
+    elsif ( $spec =~ /^:(-?\d+|\+)([@%])?$/ ) {
+	my $def = $1;
+	my $dest = $2;
+	my $type = $def eq '+' ? 'I' : 'i';
+	$dest ||= '$';
+	$dest = $dest eq '@' ? CTL_DEST_ARRAY
+	  : $dest eq '%' ? CTL_DEST_HASH : CTL_DEST_SCALAR;
+	# Fields are hard-wired here.
+	$entry = [$type,$orig,$def eq '+' ? undef : $def,
+		  $dest,0,1];
+    }
+    else {
+	my ($mand, $type, $dest) =
+	  $spec =~ /^([=:])([ionfs])([@%])?(\{(\d+)?(,)?(\d+)?\})?$/;
+	return (undef, "Cannot repeat while bundling: \"$opt\"\n")
+	  if $bundling && defined($4);
+	my ($mi, $cm, $ma) = ($5, $6, $7);
+	return (undef, "{0} is useless in option spec: \"$opt\"\n")
+	  if defined($mi) && !$mi && !defined($ma) && !defined($cm);
+
+	$type = 'i' if $type eq 'n';
+	$dest ||= '$';
+	$dest = $dest eq '@' ? CTL_DEST_ARRAY
+	  : $dest eq '%' ? CTL_DEST_HASH : CTL_DEST_SCALAR;
+	# Default minargs to 1/0 depending on mand status.
+	$mi = $mand eq '=' ? 1 : 0 unless defined $mi;
+	# Adjust mand status according to minargs.
+	$mand = $mi ? '=' : ':';
+	# Adjust maxargs.
+	$ma = $mi ? $mi : 1 unless defined $ma || defined $cm;
+	return (undef, "Max must be greater than zero in option spec: \"$opt\"\n")
+	  if defined($ma) && !$ma;
+	return (undef, "Max less than min in option spec: \"$opt\"\n")
+	  if defined($ma) && $ma < $mi;
+
+	# Fields are hard-wired here.
+	$entry = [$type,$orig,undef,$dest,$mi,$ma||-1];
+    }
+
+    # Process all names. First is canonical, the rest are aliases.
+    my $dups = '';
+    foreach ( @names ) {
+
+	$_ = lc ($_)
+	  if $ignorecase > (($bundling && length($_) == 1) ? 1 : 0);
+
+	if ( exists $opctl->{$_} ) {
+	    $dups .= "Duplicate specification \"$opt\" for option \"$_\"\n";
+	}
+
+	if ( $spec eq '!' ) {
+	    $opctl->{"no$_"} = $entry;
+	    $opctl->{"no-$_"} = $entry;
+	    $opctl->{$_} = [@$entry];
+	    $opctl->{$_}->[CTL_TYPE] = '';
+	}
+	else {
+	    $opctl->{$_} = $entry;
+	}
+    }
+
+    if ( $dups && $^W ) {
+	foreach ( split(/\n+/, $dups) ) {
+	    warn($_."\n");
+	}
+    }
+    ($names[0], $orig);
+}
+
+# Option lookup.
+sub FindOption ($$$$$) {
+
+    # returns (1, $opt, $ctl, $arg, $key) if okay,
+    # returns (1, undef) if option in error,
+    # returns (0) otherwise.
+
+    my ($argv, $prefix, $argend, $opt, $opctl) = @_;
+
+    print STDERR ("=> find \"$opt\"\n") if $debug;
+
+    return (0) unless defined($opt);
+    return (0) unless $opt =~ /^($prefix)(.*)$/s;
+    return (0) if $opt eq "-" && !defined $opctl->{''};
+
+    $opt = substr( $opt, length($1) ); # retain taintedness
+    my $starter = $1;
+
+    print STDERR ("=> split \"$starter\"+\"$opt\"\n") if $debug;
+
+    my $optarg;			# value supplied with --opt=value
+    my $rest;			# remainder from unbundling
+
+    # If it is a long option, it may include the value.
+    # With getopt_compat, only if not bundling.
+    if ( ($starter=~/^$longprefix$/
+	  || ($getopt_compat && ($bundling == 0 || $bundling == 2)))
+	 && (my $oppos = index($opt, '=', 1)) > 0) {
+	my $optorg = $opt;
+	$opt = substr($optorg, 0, $oppos);
+	$optarg = substr($optorg, $oppos + 1); # retain tainedness
+	print STDERR ("=> option \"", $opt,
+		      "\", optarg = \"$optarg\"\n") if $debug;
+    }
+
+    #### Look it up ###
+
+    my $tryopt = $opt;		# option to try
+
+    if ( ( $bundling || $bundling_values ) && $starter eq '-' ) {
+
+	# To try overrides, obey case ignore.
+	$tryopt = $ignorecase ? lc($opt) : $opt;
+
+	# If bundling == 2, long options can override bundles.
+	if ( $bundling == 2 && length($tryopt) > 1
+	     && defined ($opctl->{$tryopt}) ) {
+	    print STDERR ("=> $starter$tryopt overrides unbundling\n")
+	      if $debug;
+	}
+
+	# If bundling_values, option may be followed by the value.
+	elsif ( $bundling_values ) {
+	    $tryopt = $opt;
+	    # Unbundle single letter option.
+	    $rest = length ($tryopt) > 0 ? substr ($tryopt, 1) : '';
+	    $tryopt = substr ($tryopt, 0, 1);
+	    $tryopt = lc ($tryopt) if $ignorecase > 1;
+	    print STDERR ("=> $starter$tryopt unbundled from ",
+			  "$starter$tryopt$rest\n") if $debug;
+	    # Whatever remains may not be considered an option.
+	    $optarg = $rest eq '' ? undef : $rest;
+	    $rest = undef;
+	}
+
+	# Split off a single letter and leave the rest for
+	# further processing.
+	else {
+	    $tryopt = $opt;
+	    # Unbundle single letter option.
+	    $rest = length ($tryopt) > 0 ? substr ($tryopt, 1) : '';
+	    $tryopt = substr ($tryopt, 0, 1);
+	    $tryopt = lc ($tryopt) if $ignorecase > 1;
+	    print STDERR ("=> $starter$tryopt unbundled from ",
+			  "$starter$tryopt$rest\n") if $debug;
+	    $rest = undef unless $rest ne '';
+	}
+    }
+
+    # Try auto-abbreviation.
+    elsif ( $autoabbrev && $opt ne "" ) {
+	# Sort the possible long option names.
+	my @names = sort(keys (%$opctl));
+	# Downcase if allowed.
+	$opt = lc ($opt) if $ignorecase;
+	$tryopt = $opt;
+	# Turn option name into pattern.
+	my $pat = quotemeta ($opt);
+	# Look up in option names.
+	my @hits = grep (/^$pat/, @names);
+	print STDERR ("=> ", scalar(@hits), " hits (@hits) with \"$pat\" ",
+		      "out of ", scalar(@names), "\n") if $debug;
+
+	# Check for ambiguous results.
+	unless ( (@hits <= 1) || (grep ($_ eq $opt, @hits) == 1) ) {
+	    # See if all matches are for the same option.
+	    my %hit;
+	    foreach ( @hits ) {
+		my $hit = $opctl->{$_}->[CTL_CNAME]
+		  if defined $opctl->{$_}->[CTL_CNAME];
+		$hit = "no" . $hit if $opctl->{$_}->[CTL_TYPE] eq '!';
+		$hit{$hit} = 1;
+	    }
+	    # Remove auto-supplied options (version, help).
+	    if ( keys(%hit) == 2 ) {
+		if ( $auto_version && exists($hit{version}) ) {
+		    delete $hit{version};
+		}
+		elsif ( $auto_help && exists($hit{help}) ) {
+		    delete $hit{help};
+		}
+	    }
+	    # Now see if it really is ambiguous.
+	    unless ( keys(%hit) == 1 ) {
+		return (0) if $passthrough;
+		warn ("Option ", $opt, " is ambiguous (",
+		      join(", ", @hits), ")\n");
+		$error++;
+		return (1, undef);
+	    }
+	    @hits = keys(%hit);
+	}
+
+	# Complete the option name, if appropriate.
+	if ( @hits == 1 && $hits[0] ne $opt ) {
+	    $tryopt = $hits[0];
+	    $tryopt = lc ($tryopt) if $ignorecase;
+	    print STDERR ("=> option \"$opt\" -> \"$tryopt\"\n")
+		if $debug;
+	}
+    }
+
+    # Map to all lowercase if ignoring case.
+    elsif ( $ignorecase ) {
+	$tryopt = lc ($opt);
+    }
+
+    # Check validity by fetching the info.
+    my $ctl = $opctl->{$tryopt};
+    unless  ( defined $ctl ) {
+	return (0) if $passthrough;
+	# Pretend one char when bundling.
+	if ( $bundling == 1 && length($starter) == 1 ) {
+	    $opt = substr($opt,0,1);
+            unshift (@$argv, $starter.$rest) if defined $rest;
+	}
+	if ( $opt eq "" ) {
+	    warn ("Missing option after ", $starter, "\n");
+	}
+	else {
+	    warn ("Unknown option: ", $opt, "\n");
+	}
+	$error++;
+	return (1, undef);
+    }
+    # Apparently valid.
+    $opt = $tryopt;
+    print STDERR ("=> found ", OptCtl($ctl),
+		  " for \"", $opt, "\"\n") if $debug;
+
+    #### Determine argument status ####
+
+    # If it is an option w/o argument, we're almost finished with it.
+    my $type = $ctl->[CTL_TYPE];
+    my $arg;
+
+    if ( $type eq '' || $type eq '!' || $type eq '+' ) {
+	if ( defined $optarg ) {
+	    return (0) if $passthrough;
+	    warn ("Option ", $opt, " does not take an argument\n");
+	    $error++;
+	    undef $opt;
+	    undef $optarg if $bundling_values;
+	}
+	elsif ( $type eq '' || $type eq '+' ) {
+	    # Supply explicit value.
+	    $arg = 1;
+	}
+	else {
+	    $opt =~ s/^no-?//i;	# strip NO prefix
+	    $arg = 0;		# supply explicit value
+	}
+	unshift (@$argv, $starter.$rest) if defined $rest;
+	return (1, $opt, $ctl, $arg);
+    }
+
+    # Get mandatory status and type info.
+    my $mand = $ctl->[CTL_AMIN];
+
+    # Check if there is an option argument available.
+    if ( $gnu_compat ) {
+	my $optargtype = 0; # 0 = none, 1 = empty, 2 = nonempty
+	$optargtype = ( !defined($optarg) ? 0 : ( (length($optarg) == 0) ? 1 : 2 ) );
+	return (1, $opt, $ctl, undef)
+	  if (($optargtype == 0) && !$mand);
+	return (1, $opt, $ctl, $type eq 's' ? '' : 0)
+	  if $optargtype == 1;  # --foo=  -> return nothing
+    }
+
+    # Check if there is an option argument available.
+    if ( defined $optarg
+	 ? ($optarg eq '')
+	 : !(defined $rest || @$argv > 0) ) {
+	# Complain if this option needs an argument.
+#	if ( $mand && !($type eq 's' ? defined($optarg) : 0) ) {
+	if ( $mand ) {
+	    return (0) if $passthrough;
+	    warn ("Option ", $opt, " requires an argument\n");
+	    $error++;
+	    return (1, undef);
+	}
+	if ( $type eq 'I' ) {
+	    # Fake incremental type.
+	    my @c = @$ctl;
+	    $c[CTL_TYPE] = '+';
+	    return (1, $opt, \@c, 1);
+	}
+	return (1, $opt, $ctl,
+		defined($ctl->[CTL_DEFAULT]) ? $ctl->[CTL_DEFAULT] :
+		$type eq 's' ? '' : 0);
+    }
+
+    # Get (possibly optional) argument.
+    $arg = (defined $rest ? $rest
+	    : (defined $optarg ? $optarg : shift (@$argv)));
+
+    # Get key if this is a "name=value" pair for a hash option.
+    my $key;
+    if ($ctl->[CTL_DEST] == CTL_DEST_HASH && defined $arg) {
+	($key, $arg) = ($arg =~ /^([^=]*)=(.*)$/s) ? ($1, $2)
+	  : ($arg, defined($ctl->[CTL_DEFAULT]) ? $ctl->[CTL_DEFAULT] :
+	     ($mand ? undef : ($type eq 's' ? "" : 1)));
+	if (! defined $arg) {
+	    warn ("Option $opt, key \"$key\", requires a value\n");
+	    $error++;
+	    # Push back.
+	    unshift (@$argv, $starter.$rest) if defined $rest;
+	    return (1, undef);
+	}
+    }
+
+    #### Check if the argument is valid for this option ####
+
+    my $key_valid = $ctl->[CTL_DEST] == CTL_DEST_HASH ? "[^=]+=" : "";
+
+    if ( $type eq 's' ) {	# string
+	# A mandatory string takes anything.
+	return (1, $opt, $ctl, $arg, $key) if $mand;
+
+	# Same for optional string as a hash value
+	return (1, $opt, $ctl, $arg, $key)
+	  if $ctl->[CTL_DEST] == CTL_DEST_HASH;
+
+	# An optional string takes almost anything.
+	return (1, $opt, $ctl, $arg, $key)
+	  if defined $optarg || defined $rest;
+	return (1, $opt, $ctl, $arg, $key) if $arg eq "-"; # ??
+
+	# Check for option or option list terminator.
+	if ($arg eq $argend ||
+	    $arg =~ /^$prefix.+/) {
+	    # Push back.
+	    unshift (@$argv, $arg);
+	    # Supply empty value.
+	    $arg = '';
+	}
+    }
+
+    elsif ( $type eq 'i'	# numeric/integer
+            || $type eq 'I'	# numeric/integer w/ incr default
+	    || $type eq 'o' ) { # dec/oct/hex/bin value
+
+	my $o_valid = $type eq 'o' ? PAT_XINT : PAT_INT;
+
+	if ( $bundling && defined $rest
+	     && $rest =~ /^($key_valid)($o_valid)(.*)$/si ) {
+	    ($key, $arg, $rest) = ($1, $2, $+);
+	    chop($key) if $key;
+	    $arg = ($type eq 'o' && $arg =~ /^0/) ? oct($arg) : 0+$arg;
+	    unshift (@$argv, $starter.$rest) if defined $rest && $rest ne '';
+	}
+	elsif ( $arg =~ /^$o_valid$/si ) {
+	    $arg =~ tr/_//d;
+	    $arg = ($type eq 'o' && $arg =~ /^0/) ? oct($arg) : 0+$arg;
+	}
+	else {
+	    if ( defined $optarg || $mand ) {
+		if ( $passthrough ) {
+		    unshift (@$argv, defined $rest ? $starter.$rest : $arg)
+		      unless defined $optarg;
+		    return (0);
+		}
+		warn ("Value \"", $arg, "\" invalid for option ",
+		      $opt, " (",
+		      $type eq 'o' ? "extended " : '',
+		      "number expected)\n");
+		$error++;
+		# Push back.
+		unshift (@$argv, $starter.$rest) if defined $rest;
+		return (1, undef);
+	    }
+	    else {
+		# Push back.
+		unshift (@$argv, defined $rest ? $starter.$rest : $arg);
+		if ( $type eq 'I' ) {
+		    # Fake incremental type.
+		    my @c = @$ctl;
+		    $c[CTL_TYPE] = '+';
+		    return (1, $opt, \@c, 1);
+		}
+		# Supply default value.
+		$arg = defined($ctl->[CTL_DEFAULT]) ? $ctl->[CTL_DEFAULT] : 0;
+	    }
+	}
+    }
+
+    elsif ( $type eq 'f' ) { # real number, int is also ok
+	my $o_valid = PAT_FLOAT;
+	if ( $bundling && defined $rest &&
+	     $rest =~ /^($key_valid)($o_valid)(.*)$/s ) {
+	    $arg =~ tr/_//d;
+	    ($key, $arg, $rest) = ($1, $2, $+);
+	    chop($key) if $key;
+	    unshift (@$argv, $starter.$rest) if defined $rest && $rest ne '';
+	}
+	elsif ( $arg =~ /^$o_valid$/ ) {
+	    $arg =~ tr/_//d;
+	}
+	else {
+	    if ( defined $optarg || $mand ) {
+		if ( $passthrough ) {
+		    unshift (@$argv, defined $rest ? $starter.$rest : $arg)
+		      unless defined $optarg;
+		    return (0);
+		}
+		warn ("Value \"", $arg, "\" invalid for option ",
+		      $opt, " (real number expected)\n");
+		$error++;
+		# Push back.
+		unshift (@$argv, $starter.$rest) if defined $rest;
+		return (1, undef);
+	    }
+	    else {
+		# Push back.
+		unshift (@$argv, defined $rest ? $starter.$rest : $arg);
+		# Supply default value.
+		$arg = 0.0;
+	    }
+	}
+    }
+    else {
+	die("Getopt::Long internal error (Can't happen)\n");
+    }
+    return (1, $opt, $ctl, $arg, $key);
+}
+
+sub ValidValue ($$$$$) {
+    my ($ctl, $arg, $mand, $argend, $prefix) = @_;
+
+    if ( $ctl->[CTL_DEST] == CTL_DEST_HASH ) {
+	return 0 unless $arg =~ /[^=]+=(.*)/;
+	$arg = $1;
+    }
+
+    my $type = $ctl->[CTL_TYPE];
+
+    if ( $type eq 's' ) {	# string
+	# A mandatory string takes anything.
+	return (1) if $mand;
+
+	return (1) if $arg eq "-";
+
+	# Check for option or option list terminator.
+	return 0 if $arg eq $argend || $arg =~ /^$prefix.+/;
+	return 1;
+    }
+
+    elsif ( $type eq 'i'	# numeric/integer
+            || $type eq 'I'	# numeric/integer w/ incr default
+	    || $type eq 'o' ) { # dec/oct/hex/bin value
+
+	my $o_valid = $type eq 'o' ? PAT_XINT : PAT_INT;
+	return $arg =~ /^$o_valid$/si;
+    }
+
+    elsif ( $type eq 'f' ) { # real number, int is also ok
+	my $o_valid = PAT_FLOAT;
+	return $arg =~ /^$o_valid$/;
+    }
+    die("ValidValue: Cannot happen\n");
+}
+
+# Getopt::Long Configuration.
+sub Configure (@) {
+    my (@options) = @_;
+
+    my $prevconfig =
+      [ $error, $debug, $major_version, $minor_version, $caller,
+	$autoabbrev, $getopt_compat, $ignorecase, $bundling, $order,
+	$gnu_compat, $passthrough, $genprefix, $auto_version, $auto_help,
+	$longprefix, $bundling_values ];
+
+    if ( ref($options[0]) eq 'ARRAY' ) {
+	( $error, $debug, $major_version, $minor_version, $caller,
+	  $autoabbrev, $getopt_compat, $ignorecase, $bundling, $order,
+	  $gnu_compat, $passthrough, $genprefix, $auto_version, $auto_help,
+	  $longprefix, $bundling_values ) = @{shift(@options)};
+    }
+
+    my $opt;
+    foreach $opt ( @options ) {
+	my $try = lc ($opt);
+	my $action = 1;
+	if ( $try =~ /^no_?(.*)$/s ) {
+	    $action = 0;
+	    $try = $+;
+	}
+	if ( ($try eq 'default' or $try eq 'defaults') && $action ) {
+	    ConfigDefaults ();
+	}
+	elsif ( ($try eq 'posix_default' or $try eq 'posix_defaults') ) {
+	    local $ENV{POSIXLY_CORRECT};
+	    $ENV{POSIXLY_CORRECT} = 1 if $action;
+	    ConfigDefaults ();
+	}
+	elsif ( $try eq 'auto_abbrev' or $try eq 'autoabbrev' ) {
+	    $autoabbrev = $action;
+	}
+	elsif ( $try eq 'getopt_compat' ) {
+	    $getopt_compat = $action;
+            $genprefix = $action ? "(--|-|\\+)" : "(--|-)";
+	}
+	elsif ( $try eq 'gnu_getopt' ) {
+	    if ( $action ) {
+		$gnu_compat = 1;
+		$bundling = 1;
+		$getopt_compat = 0;
+                $genprefix = "(--|-)";
+		$order = $PERMUTE;
+		$bundling_values = 0;
+	    }
+	}
+	elsif ( $try eq 'gnu_compat' ) {
+	    $gnu_compat = $action;
+	    $bundling = 0;
+	    $bundling_values = 1;
+	}
+	elsif ( $try =~ /^(auto_?)?version$/ ) {
+	    $auto_version = $action;
+	}
+	elsif ( $try =~ /^(auto_?)?help$/ ) {
+	    $auto_help = $action;
+	}
+	elsif ( $try eq 'ignorecase' or $try eq 'ignore_case' ) {
+	    $ignorecase = $action;
+	}
+	elsif ( $try eq 'ignorecase_always' or $try eq 'ignore_case_always' ) {
+	    $ignorecase = $action ? 2 : 0;
+	}
+	elsif ( $try eq 'bundling' ) {
+	    $bundling = $action;
+	    $bundling_values = 0 if $action;
+	}
+	elsif ( $try eq 'bundling_override' ) {
+	    $bundling = $action ? 2 : 0;
+	    $bundling_values = 0 if $action;
+	}
+	elsif ( $try eq 'bundling_values' ) {
+	    $bundling_values = $action;
+	    $bundling = 0 if $action;
+	}
+	elsif ( $try eq 'require_order' ) {
+	    $order = $action ? $REQUIRE_ORDER : $PERMUTE;
+	}
+	elsif ( $try eq 'permute' ) {
+	    $order = $action ? $PERMUTE : $REQUIRE_ORDER;
+	}
+	elsif ( $try eq 'pass_through' or $try eq 'passthrough' ) {
+	    $passthrough = $action;
+	}
+	elsif ( $try =~ /^prefix=(.+)$/ && $action ) {
+	    $genprefix = $1;
+	    # Turn into regexp. Needs to be parenthesized!
+	    $genprefix = "(" . quotemeta($genprefix) . ")";
+	    eval { '' =~ /$genprefix/; };
+	    die("Getopt::Long: invalid pattern \"$genprefix\"\n") if $@;
+	}
+	elsif ( $try =~ /^prefix_pattern=(.+)$/ && $action ) {
+	    $genprefix = $1;
+	    # Parenthesize if needed.
+	    $genprefix = "(" . $genprefix . ")"
+	      unless $genprefix =~ /^\(.*\)$/;
+	    eval { '' =~ m"$genprefix"; };
+	    die("Getopt::Long: invalid pattern \"$genprefix\"\n") if $@;
+	}
+	elsif ( $try =~ /^long_prefix_pattern=(.+)$/ && $action ) {
+	    $longprefix = $1;
+	    # Parenthesize if needed.
+	    $longprefix = "(" . $longprefix . ")"
+	      unless $longprefix =~ /^\(.*\)$/;
+	    eval { '' =~ m"$longprefix"; };
+	    die("Getopt::Long: invalid long prefix pattern \"$longprefix\"\n") if $@;
+	}
+	elsif ( $try eq 'debug' ) {
+	    $debug = $action;
+	}
+	else {
+	    die("Getopt::Long: unknown or erroneous config parameter \"$opt\"\n")
+	}
+    }
+    $prevconfig;
+}
+
+# Deprecated name.
+sub config (@) {
+    Configure (@_);
+}
+
+# Issue a standard message for --version.
+#
+# The arguments are mostly the same as for Pod::Usage::pod2usage:
+#
+#  - a number (exit value)
+#  - a string (lead in message)
+#  - a hash with options. See Pod::Usage for details.
+#
+sub VersionMessage(@) {
+    # Massage args.
+    my $pa = setup_pa_args("version", @_);
+
+    my $v = $main::VERSION;
+    my $fh = $pa->{-output} ||
+      ($pa->{-exitval} eq "NOEXIT" || $pa->{-exitval} < 2) ? \*STDOUT : \*STDERR;
+
+    print $fh (defined($pa->{-message}) ? $pa->{-message} : (),
+	       $0, defined $v ? " version $v" : (),
+	       "\n",
+	       "(", __PACKAGE__, "::", "GetOptions",
+	       " version ",
+	       defined($Getopt::Long::VERSION_STRING)
+	         ? $Getopt::Long::VERSION_STRING : $VERSION, ";",
+	       " Perl version ",
+	       $] >= 5.006 ? sprintf("%vd", $^V) : $],
+	       ")\n");
+    exit($pa->{-exitval}) unless $pa->{-exitval} eq "NOEXIT";
+}
+
+# Issue a standard message for --help.
+#
+# The arguments are the same as for Pod::Usage::pod2usage:
+#
+#  - a number (exit value)
+#  - a string (lead in message)
+#  - a hash with options. See Pod::Usage for details.
+#
+sub HelpMessage(@) {
+    eval {
+	require Pod::Usage;
+	import Pod::Usage;
+	1;
+    } || die("Cannot provide help: cannot load Pod::Usage\n");
+
+    # Note that pod2usage will issue a warning if -exitval => NOEXIT.
+    pod2usage(setup_pa_args("help", @_));
+
+}
+
+# Helper routine to set up a normalized hash ref to be used as
+# argument to pod2usage.
+sub setup_pa_args($@) {
+    my $tag = shift;		# who's calling
+
+    # If called by direct binding to an option, it will get the option
+    # name and value as arguments. Remove these, if so.
+    @_ = () if @_ == 2 && $_[0] eq $tag;
+
+    my $pa;
+    if ( @_ > 1 ) {
+	$pa = { @_ };
+    }
+    else {
+	$pa = shift || {};
+    }
+
+    # At this point, $pa can be a number (exit value), string
+    # (message) or hash with options.
+
+    if ( UNIVERSAL::isa($pa, 'HASH') ) {
+	# Get rid of -msg vs. -message ambiguity.
+	$pa->{-message} = $pa->{-msg};
+	delete($pa->{-msg});
+    }
+    elsif ( $pa =~ /^-?\d+$/ ) {
+	$pa = { -exitval => $pa };
+    }
+    else {
+	$pa = { -message => $pa };
+    }
+
+    # These are _our_ defaults.
+    $pa->{-verbose} = 0 unless exists($pa->{-verbose});
+    $pa->{-exitval} = 0 unless exists($pa->{-exitval});
+    $pa;
+}
+
+# Sneak way to know what version the user requested.
+sub VERSION {
+    $requested_version = $_[1];
+    shift->SUPER::VERSION(@_);
+}
+
+package Getopt::Long::CallBack;
+
+sub new {
+    my ($pkg, %atts) = @_;
+    bless { %atts }, $pkg;
+}
+
+sub name {
+    my $self = shift;
+    ''.$self->{name};
+}
+
+use overload
+  # Treat this object as an ordinary string for legacy API.
+  '""'	   => \&name,
+  fallback => 1;
+
+1;
+
+################ Documentation ################
+
+=head1 NAME
+
+Getopt::Long - Extended processing of command line options
+
+=head1 SYNOPSIS
+
+  use Getopt::Long;
+  my $data   = "file.dat";
+  my $length = 24;
+  my $verbose;
+  GetOptions ("length=i" => \$length,    # numeric
+              "file=s"   => \$data,      # string
+              "verbose"  => \$verbose)   # flag
+  or die("Error in command line arguments\n");
+
+=head1 DESCRIPTION
+
+The Getopt::Long module implements an extended getopt function called
+GetOptions(). It parses the command line from C<@ARGV>, recognizing
+and removing specified options and their possible values.
+
+This function adheres to the POSIX syntax for command
+line options, with GNU extensions. In general, this means that options
+have long names instead of single letters, and are introduced with a
+double dash "--". Support for bundling of command line options, as was
+the case with the more traditional single-letter approach, is provided
+but not enabled by default.
+
+=head1 Command Line Options, an Introduction
+
+Command line operated programs traditionally take their arguments from
+the command line, for example filenames or other information that the
+program needs to know. Besides arguments, these programs often take
+command line I<options> as well. Options are not necessary for the
+program to work, hence the name 'option', but are used to modify its
+default behaviour. For example, a program could do its job quietly,
+but with a suitable option it could provide verbose information about
+what it did.
+
+Command line options come in several flavours. Historically, they are
+preceded by a single dash C<->, and consist of a single letter.
+
+    -l -a -c
+
+Usually, these single-character options can be bundled:
+
+    -lac
+
+Options can have values, the value is placed after the option
+character. Sometimes with whitespace in between, sometimes not:
+
+    -s 24 -s24
+
+Due to the very cryptic nature of these options, another style was
+developed that used long names. So instead of a cryptic C<-l> one
+could use the more descriptive C<--long>. To distinguish between a
+bundle of single-character options and a long one, two dashes are used
+to precede the option name. Early implementations of long options used
+a plus C<+> instead. Also, option values could be specified either
+like
+
+    --size=24
+
+or
+
+    --size 24
+
+The C<+> form is now obsolete and strongly deprecated.
+
+=head1 Getting Started with Getopt::Long
+
+Getopt::Long is the Perl5 successor of C<newgetopt.pl>. This was the
+first Perl module that provided support for handling the new style of
+command line options, in particular long option names, hence the Perl5
+name Getopt::Long. This module also supports single-character options
+and bundling.
+
+To use Getopt::Long from a Perl program, you must include the
+following line in your Perl program:
+
+    use Getopt::Long;
+
+This will load the core of the Getopt::Long module and prepare your
+program for using it. Most of the actual Getopt::Long code is not
+loaded until you really call one of its functions.
+
+In the default configuration, options names may be abbreviated to
+uniqueness, case does not matter, and a single dash is sufficient,
+even for long option names. Also, options may be placed between
+non-option arguments. See L<Configuring Getopt::Long> for more
+details on how to configure Getopt::Long.
+
+=head2 Simple options
+
+The most simple options are the ones that take no values. Their mere
+presence on the command line enables the option. Popular examples are:
+
+    --all --verbose --quiet --debug
+
+Handling simple options is straightforward:
+
+    my $verbose = '';	# option variable with default value (false)
+    my $all = '';	# option variable with default value (false)
+    GetOptions ('verbose' => \$verbose, 'all' => \$all);
+
+The call to GetOptions() parses the command line arguments that are
+present in C<@ARGV> and sets the option variable to the value C<1> if
+the option did occur on the command line. Otherwise, the option
+variable is not touched. Setting the option value to true is often
+called I<enabling> the option.
+
+The option name as specified to the GetOptions() function is called
+the option I<specification>. Later we'll see that this specification
+can contain more than just the option name. The reference to the
+variable is called the option I<destination>.
+
+GetOptions() will return a true value if the command line could be
+processed successfully. Otherwise, it will write error messages using
+die() and warn(), and return a false result.
+
+=head2 A little bit less simple options
+
+Getopt::Long supports two useful variants of simple options:
+I<negatable> options and I<incremental> options.
+
+A negatable option is specified with an exclamation mark C<!> after the
+option name:
+
+    my $verbose = '';	# option variable with default value (false)
+    GetOptions ('verbose!' => \$verbose);
+
+Now, using C<--verbose> on the command line will enable C<$verbose>,
+as expected. But it is also allowed to use C<--noverbose>, which will
+disable C<$verbose> by setting its value to C<0>. Using a suitable
+default value, the program can find out whether C<$verbose> is false
+by default, or disabled by using C<--noverbose>.
+
+An incremental option is specified with a plus C<+> after the
+option name:
+
+    my $verbose = '';	# option variable with default value (false)
+    GetOptions ('verbose+' => \$verbose);
+
+Using C<--verbose> on the command line will increment the value of
+C<$verbose>. This way the program can keep track of how many times the
+option occurred on the command line. For example, each occurrence of
+C<--verbose> could increase the verbosity level of the program.
+
+=head2 Mixing command line option with other arguments
+
+Usually programs take command line options as well as other arguments,
+for example, file names. It is good practice to always specify the
+options first, and the other arguments last. Getopt::Long will,
+however, allow the options and arguments to be mixed and 'filter out'
+all the options before passing the rest of the arguments to the
+program. To stop Getopt::Long from processing further arguments,
+insert a double dash C<--> on the command line:
+
+    --size 24 -- --all
+
+In this example, C<--all> will I<not> be treated as an option, but
+passed to the program unharmed, in C<@ARGV>.
+
+=head2 Options with values
+
+For options that take values it must be specified whether the option
+value is required or not, and what kind of value the option expects.
+
+Three kinds of values are supported: integer numbers, floating point
+numbers, and strings.
+
+If the option value is required, Getopt::Long will take the
+command line argument that follows the option and assign this to the
+option variable. If, however, the option value is specified as
+optional, this will only be done if that value does not look like a
+valid command line option itself.
+
+    my $tag = '';	# option variable with default value
+    GetOptions ('tag=s' => \$tag);
+
+In the option specification, the option name is followed by an equals
+sign C<=> and the letter C<s>. The equals sign indicates that this
+option requires a value. The letter C<s> indicates that this value is
+an arbitrary string. Other possible value types are C<i> for integer
+values, and C<f> for floating point values. Using a colon C<:> instead
+of the equals sign indicates that the option value is optional. In
+this case, if no suitable value is supplied, string valued options get
+an empty string C<''> assigned, while numeric options are set to C<0>.
+
+=head2 Options with multiple values
+
+Options sometimes take several values. For example, a program could
+use multiple directories to search for library files:
+
+    --library lib/stdlib --library lib/extlib
+
+To accomplish this behaviour, simply specify an array reference as the
+destination for the option:
+
+    GetOptions ("library=s" => \@libfiles);
+
+Alternatively, you can specify that the option can have multiple
+values by adding a "@", and pass a scalar reference as the
+destination:
+
+    GetOptions ("library=s@" => \$libfiles);
+
+Used with the example above, C<@libfiles> (or C<@$libfiles>) would
+contain two strings upon completion: C<"lib/stdlib"> and
+C<"lib/extlib">, in that order. It is also possible to specify that
+only integer or floating point numbers are acceptable values.
+
+Often it is useful to allow comma-separated lists of values as well as
+multiple occurrences of the options. This is easy using Perl's split()
+and join() operators:
+
+    GetOptions ("library=s" => \@libfiles);
+    @libfiles = split(/,/,join(',',@libfiles));
+
+Of course, it is important to choose the right separator string for
+each purpose.
+
+Warning: What follows is an experimental feature.
+
+Options can take multiple values at once, for example
+
+    --coordinates 52.2 16.4 --rgbcolor 255 255 149
+
+This can be accomplished by adding a repeat specifier to the option
+specification. Repeat specifiers are very similar to the C<{...}>
+repeat specifiers that can be used with regular expression patterns.
+For example, the above command line would be handled as follows:
+
+    GetOptions('coordinates=f{2}' => \@coor, 'rgbcolor=i{3}' => \@color);
+
+The destination for the option must be an array or array reference.
+
+It is also possible to specify the minimal and maximal number of
+arguments an option takes. C<foo=s{2,4}> indicates an option that
+takes at least two and at most 4 arguments. C<foo=s{1,}> indicates one
+or more values; C<foo:s{,}> indicates zero or more option values.
+
+=head2 Options with hash values
+
+If the option destination is a reference to a hash, the option will
+take, as value, strings of the form I<key>C<=>I<value>. The value will
+be stored with the specified key in the hash.
+
+    GetOptions ("define=s" => \%defines);
+
+Alternatively you can use:
+
+    GetOptions ("define=s%" => \$defines);
+
+When used with command line options:
+
+    --define os=linux --define vendor=redhat
+
+the hash C<%defines> (or C<%$defines>) will contain two keys, C<"os">
+with value C<"linux"> and C<"vendor"> with value C<"redhat">. It is
+also possible to specify that only integer or floating point numbers
+are acceptable values. The keys are always taken to be strings.
+
+=head2 User-defined subroutines to handle options
+
+Ultimate control over what should be done when (actually: each time)
+an option is encountered on the command line can be achieved by
+designating a reference to a subroutine (or an anonymous subroutine)
+as the option destination. When GetOptions() encounters the option, it
+will call the subroutine with two or three arguments. The first
+argument is the name of the option. (Actually, it is an object that
+stringifies to the name of the option.) For a scalar or array destination,
+the second argument is the value to be stored. For a hash destination,
+the second argument is the key to the hash, and the third argument
+the value to be stored. It is up to the subroutine to store the value,
+or do whatever it thinks is appropriate.
+
+A trivial application of this mechanism is to implement options that
+are related to each other. For example:
+
+    my $verbose = '';	# option variable with default value (false)
+    GetOptions ('verbose' => \$verbose,
+	        'quiet'   => sub { $verbose = 0 });
+
+Here C<--verbose> and C<--quiet> control the same variable
+C<$verbose>, but with opposite values.
+
+If the subroutine needs to signal an error, it should call die() with
+the desired error message as its argument. GetOptions() will catch the
+die(), issue the error message, and record that an error result must
+be returned upon completion.
+
+If the text of the error message starts with an exclamation mark C<!>
+it is interpreted specially by GetOptions(). There is currently one
+special command implemented: C<die("!FINISH")> will cause GetOptions()
+to stop processing options, as if it encountered a double dash C<-->.
+
+In version 2.37 the first argument to the callback function was
+changed from string to object. This was done to make room for
+extensions and more detailed control. The object stringifies to the
+option name so this change should not introduce compatibility
+problems.
+
+Here is an example of how to access the option name and value from within
+a subroutine:
+
+    GetOptions ('opt=i' => \&handler);
+    sub handler {
+        my ($opt_name, $opt_value) = @_;
+        print("Option name is $opt_name and value is $opt_value\n");
+    }
+
+=head2 Options with multiple names
+
+Often it is user friendly to supply alternate mnemonic names for
+options. For example C<--height> could be an alternate name for
+C<--length>. Alternate names can be included in the option
+specification, separated by vertical bar C<|> characters. To implement
+the above example:
+
+    GetOptions ('length|height=f' => \$length);
+
+The first name is called the I<primary> name, the other names are
+called I<aliases>. When using a hash to store options, the key will
+always be the primary name.
+
+Multiple alternate names are possible.
+
+=head2 Case and abbreviations
+
+Without additional configuration, GetOptions() will ignore the case of
+option names, and allow the options to be abbreviated to uniqueness.
+
+    GetOptions ('length|height=f' => \$length, "head" => \$head);
+
+This call will allow C<--l> and C<--L> for the length option, but
+requires a least C<--hea> and C<--hei> for the head and height options.
+
+=head2 Summary of Option Specifications
+
+Each option specifier consists of two parts: the name specification
+and the argument specification.
+
+The name specification contains the name of the option, optionally
+followed by a list of alternative names separated by vertical bar
+characters.
+
+    length	      option name is "length"
+    length|size|l     name is "length", aliases are "size" and "l"
+
+The argument specification is optional. If omitted, the option is
+considered boolean, a value of 1 will be assigned when the option is
+used on the command line.
+
+The argument specification can be
+
+=over 4
+
+=item !
+
+The option does not take an argument and may be negated by prefixing
+it with "no" or "no-". E.g. C<"foo!"> will allow C<--foo> (a value of
+1 will be assigned) as well as C<--nofoo> and C<--no-foo> (a value of
+0 will be assigned). If the option has aliases, this applies to the
+aliases as well.
+
+Using negation on a single letter option when bundling is in effect is
+pointless and will result in a warning.
+
+=item +
+
+The option does not take an argument and will be incremented by 1
+every time it appears on the command line. E.g. C<"more+">, when used
+with C<--more --more --more>, will increment the value three times,
+resulting in a value of 3 (provided it was 0 or undefined at first).
+
+The C<+> specifier is ignored if the option destination is not a scalar.
+
+=item = I<type> [ I<desttype> ] [ I<repeat> ]
+
+The option requires an argument of the given type. Supported types
+are:
+
+=over 4
+
+=item s
+
+String. An arbitrary sequence of characters. It is valid for the
+argument to start with C<-> or C<-->.
+
+=item i
+
+Integer. An optional leading plus or minus sign, followed by a
+sequence of digits.
+
+=item o
+
+Extended integer, Perl style. This can be either an optional leading
+plus or minus sign, followed by a sequence of digits, or an octal
+string (a zero, optionally followed by '0', '1', .. '7'), or a
+hexadecimal string (C<0x> followed by '0' .. '9', 'a' .. 'f', case
+insensitive), or a binary string (C<0b> followed by a series of '0'
+and '1').
+
+=item f
+
+Real number. For example C<3.14>, C<-6.23E24> and so on.
+
+=back
+
+The I<desttype> can be C<@> or C<%> to specify that the option is
+list or a hash valued. This is only needed when the destination for
+the option value is not otherwise specified. It should be omitted when
+not needed.
+
+The I<repeat> specifies the number of values this option takes per
+occurrence on the command line. It has the format C<{> [ I<min> ] [ C<,> [ I<max> ] ] C<}>.
+
+I<min> denotes the minimal number of arguments. It defaults to 1 for
+options with C<=> and to 0 for options with C<:>, see below. Note that
+I<min> overrules the C<=> / C<:> semantics.
+
+I<max> denotes the maximum number of arguments. It must be at least
+I<min>. If I<max> is omitted, I<but the comma is not>, there is no
+upper bound to the number of argument values taken.
+
+=item : I<type> [ I<desttype> ]
+
+Like C<=>, but designates the argument as optional.
+If omitted, an empty string will be assigned to string values options,
+and the value zero to numeric options.
+
+Note that if a string argument starts with C<-> or C<-->, it will be
+considered an option on itself.
+
+=item : I<number> [ I<desttype> ]
+
+Like C<:i>, but if the value is omitted, the I<number> will be assigned.
+
+=item : + [ I<desttype> ]
+
+Like C<:i>, but if the value is omitted, the current value for the
+option will be incremented.
+
+=back
+
+=head1 Advanced Possibilities
+
+=head2 Object oriented interface
+
+Getopt::Long can be used in an object oriented way as well:
+
+    use Getopt::Long;
+    $p = Getopt::Long::Parser->new;
+    $p->configure(...configuration options...);
+    if ($p->getoptions(...options descriptions...)) ...
+    if ($p->getoptionsfromarray( \@array, ...options descriptions...)) ...
+
+Configuration options can be passed to the constructor:
+
+    $p = new Getopt::Long::Parser
+             config => [...configuration options...];
+
+=head2 Thread Safety
+
+Getopt::Long is thread safe when using ithreads as of Perl 5.8.  It is
+I<not> thread safe when using the older (experimental and now
+obsolete) threads implementation that was added to Perl 5.005.
+
+=head2 Documentation and help texts
+
+Getopt::Long encourages the use of Pod::Usage to produce help
+messages. For example:
+
+    use Getopt::Long;
+    use Pod::Usage;
+
+    my $man = 0;
+    my $help = 0;
+
+    GetOptions('help|?' => \$help, man => \$man) or pod2usage(2);
+    pod2usage(1) if $help;
+    pod2usage(-exitval => 0, -verbose => 2) if $man;
+
+    __END__
+
+    =head1 NAME
+
+    sample - Using Getopt::Long and Pod::Usage
+
+    =head1 SYNOPSIS
+
+    sample [options] [file ...]
+
+     Options:
+       -help            brief help message
+       -man             full documentation
+
+    =head1 OPTIONS
+
+    =over 8
+
+    =item B<-help>
+
+    Print a brief help message and exits.
+
+    =item B<-man>
+
+    Prints the manual page and exits.
+
+    =back
+
+    =head1 DESCRIPTION
+
+    B<This program> will read the given input file(s) and do something
+    useful with the contents thereof.
+
+    =cut
+
+See L<Pod::Usage> for details.
+
+=head2 Parsing options from an arbitrary array
+
+By default, GetOptions parses the options that are present in the
+global array C<@ARGV>. A special entry C<GetOptionsFromArray> can be
+used to parse options from an arbitrary array.
+
+    use Getopt::Long qw(GetOptionsFromArray);
+    $ret = GetOptionsFromArray(\@myopts, ...);
+
+When used like this, options and their possible values are removed
+from C<@myopts>, the global C<@ARGV> is not touched at all.
+
+The following two calls behave identically:
+
+    $ret = GetOptions( ... );
+    $ret = GetOptionsFromArray(\@ARGV, ... );
+
+This also means that a first argument hash reference now becomes the
+second argument:
+
+    $ret = GetOptions(\%opts, ... );
+    $ret = GetOptionsFromArray(\@ARGV, \%opts, ... );
+
+=head2 Parsing options from an arbitrary string
+
+A special entry C<GetOptionsFromString> can be used to parse options
+from an arbitrary string.
+
+    use Getopt::Long qw(GetOptionsFromString);
+    $ret = GetOptionsFromString($string, ...);
+
+The contents of the string are split into arguments using a call to
+C<Text::ParseWords::shellwords>. As with C<GetOptionsFromArray>, the
+global C<@ARGV> is not touched.
+
+It is possible that, upon completion, not all arguments in the string
+have been processed. C<GetOptionsFromString> will, when called in list
+context, return both the return status and an array reference to any
+remaining arguments:
+
+    ($ret, $args) = GetOptionsFromString($string, ... );
+
+If any arguments remain, and C<GetOptionsFromString> was not called in
+list context, a message will be given and C<GetOptionsFromString> will
+return failure.
+
+As with GetOptionsFromArray, a first argument hash reference now
+becomes the second argument.
+
+=head2 Storing options values in a hash
+
+Sometimes, for example when there are a lot of options, having a
+separate variable for each of them can be cumbersome. GetOptions()
+supports, as an alternative mechanism, storing options values in a
+hash.
+
+To obtain this, a reference to a hash must be passed I<as the first
+argument> to GetOptions(). For each option that is specified on the
+command line, the option value will be stored in the hash with the
+option name as key. Options that are not actually used on the command
+line will not be put in the hash, on other words,
+C<exists($h{option})> (or defined()) can be used to test if an option
+was used. The drawback is that warnings will be issued if the program
+runs under C<use strict> and uses C<$h{option}> without testing with
+exists() or defined() first.
+
+    my %h = ();
+    GetOptions (\%h, 'length=i');	# will store in $h{length}
+
+For options that take list or hash values, it is necessary to indicate
+this by appending an C<@> or C<%> sign after the type:
+
+    GetOptions (\%h, 'colours=s@');	# will push to @{$h{colours}}
+
+To make things more complicated, the hash may contain references to
+the actual destinations, for example:
+
+    my $len = 0;
+    my %h = ('length' => \$len);
+    GetOptions (\%h, 'length=i');	# will store in $len
+
+This example is fully equivalent with:
+
+    my $len = 0;
+    GetOptions ('length=i' => \$len);	# will store in $len
+
+Any mixture is possible. For example, the most frequently used options
+could be stored in variables while all other options get stored in the
+hash:
+
+    my $verbose = 0;			# frequently referred
+    my $debug = 0;			# frequently referred
+    my %h = ('verbose' => \$verbose, 'debug' => \$debug);
+    GetOptions (\%h, 'verbose', 'debug', 'filter', 'size=i');
+    if ( $verbose ) { ... }
+    if ( exists $h{filter} ) { ... option 'filter' was specified ... }
+
+=head2 Bundling
+
+With bundling it is possible to set several single-character options
+at once. For example if C<a>, C<v> and C<x> are all valid options,
+
+    -vax
+
+will set all three.
+
+Getopt::Long supports three styles of bundling. To enable bundling, a
+call to Getopt::Long::Configure is required.
+
+The simplest style of bundling can be enabled with:
+
+    Getopt::Long::Configure ("bundling");
+
+Configured this way, single-character options can be bundled but long
+options B<must> always start with a double dash C<--> to avoid
+ambiguity. For example, when C<vax>, C<a>, C<v> and C<x> are all valid
+options,
+
+    -vax
+
+will set C<a>, C<v> and C<x>, but
+
+    --vax
+
+will set C<vax>.
+
+The second style of bundling lifts this restriction. It can be enabled
+with:
+
+    Getopt::Long::Configure ("bundling_override");
+
+Now, C<-vax> will set the option C<vax>.
+
+In all of the above cases, option values may be inserted in the
+bundle. For example:
+
+    -h24w80
+
+is equivalent to
+
+    -h 24 -w 80
+
+A third style of bundling allows only values to be bundled with
+options. It can be enabled with:
+
+    Getopt::Long::Configure ("bundling_values");
+
+Now, C<-h24> will set the option C<h> to C<24>, but option bundles
+like C<-vxa> and C<-h24w80> are flagged as errors.
+
+Enabling C<bundling_values> will disable the other two styles of
+bundling.
+
+When configured for bundling, single-character options are matched
+case sensitive while long options are matched case insensitive. To
+have the single-character options matched case insensitive as well,
+use:
+
+    Getopt::Long::Configure ("bundling", "ignorecase_always");
+
+It goes without saying that bundling can be quite confusing.
+
+=head2 The lonesome dash
+
+Normally, a lone dash C<-> on the command line will not be considered
+an option. Option processing will terminate (unless "permute" is
+configured) and the dash will be left in C<@ARGV>.
+
+It is possible to get special treatment for a lone dash. This can be
+achieved by adding an option specification with an empty name, for
+example:
+
+    GetOptions ('' => \$stdio);
+
+A lone dash on the command line will now be a legal option, and using
+it will set variable C<$stdio>.
+
+=head2 Argument callback
+
+A special option 'name' C<< <> >> can be used to designate a subroutine
+to handle non-option arguments. When GetOptions() encounters an
+argument that does not look like an option, it will immediately call this
+subroutine and passes it one parameter: the argument name. Well, actually
+it is an object that stringifies to the argument name.
+
+For example:
+
+    my $width = 80;
+    sub process { ... }
+    GetOptions ('width=i' => \$width, '<>' => \&process);
+
+When applied to the following command line:
+
+    arg1 --width=72 arg2 --width=60 arg3
+
+This will call
+C<process("arg1")> while C<$width> is C<80>,
+C<process("arg2")> while C<$width> is C<72>, and
+C<process("arg3")> while C<$width> is C<60>.
+
+This feature requires configuration option B<permute>, see section
+L<Configuring Getopt::Long>.
+
+=head1 Configuring Getopt::Long
+
+Getopt::Long can be configured by calling subroutine
+Getopt::Long::Configure(). This subroutine takes a list of quoted
+strings, each specifying a configuration option to be enabled, e.g.
+C<ignore_case>, or disabled, e.g. C<no_ignore_case>. Case does not
+matter. Multiple calls to Configure() are possible.
+
+Alternatively, as of version 2.24, the configuration options may be
+passed together with the C<use> statement:
+
+    use Getopt::Long qw(:config no_ignore_case bundling);
+
+The following options are available:
+
+=over 12
+
+=item default
+
+This option causes all configuration options to be reset to their
+default values.
+
+=item posix_default
+
+This option causes all configuration options to be reset to their
+default values as if the environment variable POSIXLY_CORRECT had
+been set.
+
+=item auto_abbrev
+
+Allow option names to be abbreviated to uniqueness.
+Default is enabled unless environment variable
+POSIXLY_CORRECT has been set, in which case C<auto_abbrev> is disabled.
+
+=item getopt_compat
+
+Allow C<+> to start options.
+Default is enabled unless environment variable
+POSIXLY_CORRECT has been set, in which case C<getopt_compat> is disabled.
+
+=item gnu_compat
+
+C<gnu_compat> controls whether C<--opt=> is allowed, and what it should
+do. Without C<gnu_compat>, C<--opt=> gives an error. With C<gnu_compat>,
+C<--opt=> will give option C<opt> and empty value.
+This is the way GNU getopt_long() does it.
+
+=item gnu_getopt
+
+This is a short way of setting C<gnu_compat> C<bundling> C<permute>
+C<no_getopt_compat>. With C<gnu_getopt>, command line handling should be
+fully compatible with GNU getopt_long().
+
+=item require_order
+
+Whether command line arguments are allowed to be mixed with options.
+Default is disabled unless environment variable
+POSIXLY_CORRECT has been set, in which case C<require_order> is enabled.
+
+See also C<permute>, which is the opposite of C<require_order>.
+
+=item permute
+
+Whether command line arguments are allowed to be mixed with options.
+Default is enabled unless environment variable
+POSIXLY_CORRECT has been set, in which case C<permute> is disabled.
+Note that C<permute> is the opposite of C<require_order>.
+
+If C<permute> is enabled, this means that
+
+    --foo arg1 --bar arg2 arg3
+
+is equivalent to
+
+    --foo --bar arg1 arg2 arg3
+
+If an argument callback routine is specified, C<@ARGV> will always be
+empty upon successful return of GetOptions() since all options have been
+processed. The only exception is when C<--> is used:
+
+    --foo arg1 --bar arg2 -- arg3
+
+This will call the callback routine for arg1 and arg2, and then
+terminate GetOptions() leaving C<"arg3"> in C<@ARGV>.
+
+If C<require_order> is enabled, options processing
+terminates when the first non-option is encountered.
+
+    --foo arg1 --bar arg2 arg3
+
+is equivalent to
+
+    --foo -- arg1 --bar arg2 arg3
+
+If C<pass_through> is also enabled, options processing will terminate
+at the first unrecognized option, or non-option, whichever comes
+first.
+
+=item bundling (default: disabled)
+
+Enabling this option will allow single-character options to be
+bundled. To distinguish bundles from long option names, long options
+I<must> be introduced with C<--> and bundles with C<->.
+
+Note that, if you have options C<a>, C<l> and C<all>, and
+auto_abbrev enabled, possible arguments and option settings are:
+
+    using argument               sets option(s)
+    ------------------------------------------
+    -a, --a                      a
+    -l, --l                      l
+    -al, -la, -ala, -all,...     a, l
+    --al, --all                  all
+
+The surprising part is that C<--a> sets option C<a> (due to auto
+completion), not C<all>.
+
+Note: disabling C<bundling> also disables C<bundling_override>.
+
+=item bundling_override (default: disabled)
+
+If C<bundling_override> is enabled, bundling is enabled as with
+C<bundling> but now long option names override option bundles.
+
+Note: disabling C<bundling_override> also disables C<bundling>.
+
+B<Note:> Using option bundling can easily lead to unexpected results,
+especially when mixing long options and bundles. Caveat emptor.
+
+=item ignore_case  (default: enabled)
+
+If enabled, case is ignored when matching option names. If, however,
+bundling is enabled as well, single character options will be treated
+case-sensitive.
+
+With C<ignore_case>, option specifications for options that only
+differ in case, e.g., C<"foo"> and C<"Foo">, will be flagged as
+duplicates.
+
+Note: disabling C<ignore_case> also disables C<ignore_case_always>.
+
+=item ignore_case_always (default: disabled)
+
+When bundling is in effect, case is ignored on single-character
+options also.
+
+Note: disabling C<ignore_case_always> also disables C<ignore_case>.
+
+=item auto_version (default:disabled)
+
+Automatically provide support for the B<--version> option if
+the application did not specify a handler for this option itself.
+
+Getopt::Long will provide a standard version message that includes the
+program name, its version (if $main::VERSION is defined), and the
+versions of Getopt::Long and Perl. The message will be written to
+standard output and processing will terminate.
+
+C<auto_version> will be enabled if the calling program explicitly
+specified a version number higher than 2.32 in the C<use> or
+C<require> statement.
+
+=item auto_help (default:disabled)
+
+Automatically provide support for the B<--help> and B<-?> options if
+the application did not specify a handler for this option itself.
+
+Getopt::Long will provide a help message using module L<Pod::Usage>. The
+message, derived from the SYNOPSIS POD section, will be written to
+standard output and processing will terminate.
+
+C<auto_help> will be enabled if the calling program explicitly
+specified a version number higher than 2.32 in the C<use> or
+C<require> statement.
+
+=item pass_through (default: disabled)
+
+With C<pass_through> anything that is unknown, ambiguous or supplied with
+an invalid option will not be flagged as an error. Instead the unknown
+option(s) will be passed to the catchall C<< <> >> if present, otherwise
+through to C<@ARGV>. This makes it possible to write wrapper scripts that
+process only part of the user supplied command line arguments, and pass the
+remaining options to some other program.
+
+If C<require_order> is enabled, options processing will terminate at the
+first unrecognized option, or non-option, whichever comes first and all
+remaining arguments are passed to C<@ARGV> instead of the catchall
+C<< <> >> if present.  However, if C<permute> is enabled instead, results
+can become confusing.
+
+Note that the options terminator (default C<-->), if present, will
+also be passed through in C<@ARGV>.
+
+=item prefix
+
+The string that starts options. If a constant string is not
+sufficient, see C<prefix_pattern>.
+
+=item prefix_pattern
+
+A Perl pattern that identifies the strings that introduce options.
+Default is C<--|-|\+> unless environment variable
+POSIXLY_CORRECT has been set, in which case it is C<--|->.
+
+=item long_prefix_pattern
+
+A Perl pattern that allows the disambiguation of long and short
+prefixes. Default is C<-->.
+
+Typically you only need to set this if you are using nonstandard
+prefixes and want some or all of them to have the same semantics as
+'--' does under normal circumstances.
+
+For example, setting prefix_pattern to C<--|-|\+|\/> and
+long_prefix_pattern to C<--|\/> would add Win32 style argument
+handling.
+
+=item debug (default: disabled)
+
+Enable debugging output.
+
+=back
+
+=head1 Exportable Methods
+
+=over
+
+=item VersionMessage
+
+This subroutine provides a standard version message. Its argument can be:
+
+=over 4
+
+=item *
+
+A string containing the text of a message to print I<before> printing
+the standard message.
+
+=item *
+
+A numeric value corresponding to the desired exit status.
+
+=item *
+
+A reference to a hash.
+
+=back
+
+If more than one argument is given then the entire argument list is
+assumed to be a hash.  If a hash is supplied (either as a reference or
+as a list) it should contain one or more elements with the following
+keys:
+
+=over 4
+
+=item C<-message>
+
+=item C<-msg>
+
+The text of a message to print immediately prior to printing the
+program's usage message.
+
+=item C<-exitval>
+
+The desired exit status to pass to the B<exit()> function.
+This should be an integer, or else the string "NOEXIT" to
+indicate that control should simply be returned without
+terminating the invoking process.
+
+=item C<-output>
+
+A reference to a filehandle, or the pathname of a file to which the
+usage message should be written. The default is C<\*STDERR> unless the
+exit value is less than 2 (in which case the default is C<\*STDOUT>).
+
+=back
+
+You cannot tie this routine directly to an option, e.g.:
+
+    GetOptions("version" => \&VersionMessage);
+
+Use this instead:
+
+    GetOptions("version" => sub { VersionMessage() });
+
+=item HelpMessage
+
+This subroutine produces a standard help message, derived from the
+program's POD section SYNOPSIS using L<Pod::Usage>. It takes the same
+arguments as VersionMessage(). In particular, you cannot tie it
+directly to an option, e.g.:
+
+    GetOptions("help" => \&HelpMessage);
+
+Use this instead:
+
+    GetOptions("help" => sub { HelpMessage() });
+
+=back
+
+=head1 Return values and Errors
+
+Configuration errors and errors in the option definitions are
+signalled using die() and will terminate the calling program unless
+the call to Getopt::Long::GetOptions() was embedded in C<eval { ...
+}>, or die() was trapped using C<$SIG{__DIE__}>.
+
+GetOptions returns true to indicate success.
+It returns false when the function detected one or more errors during
+option parsing. These errors are signalled using warn() and can be
+trapped with C<$SIG{__WARN__}>.
+
+=head1 Legacy
+
+The earliest development of C<newgetopt.pl> started in 1990, with Perl
+version 4. As a result, its development, and the development of
+Getopt::Long, has gone through several stages. Since backward
+compatibility has always been extremely important, the current version
+of Getopt::Long still supports a lot of constructs that nowadays are
+no longer necessary or otherwise unwanted. This section describes
+briefly some of these 'features'.
+
+=head2 Default destinations
+
+When no destination is specified for an option, GetOptions will store
+the resultant value in a global variable named C<opt_>I<XXX>, where
+I<XXX> is the primary name of this option. When a program executes
+under C<use strict> (recommended), these variables must be
+pre-declared with our() or C<use vars>.
+
+    our $opt_length = 0;
+    GetOptions ('length=i');	# will store in $opt_length
+
+To yield a usable Perl variable, characters that are not part of the
+syntax for variables are translated to underscores. For example,
+C<--fpp-struct-return> will set the variable
+C<$opt_fpp_struct_return>. Note that this variable resides in the
+namespace of the calling program, not necessarily C<main>. For
+example:
+
+    GetOptions ("size=i", "sizes=i@");
+
+with command line "-size 10 -sizes 24 -sizes 48" will perform the
+equivalent of the assignments
+
+    $opt_size = 10;
+    @opt_sizes = (24, 48);
+
+=head2 Alternative option starters
+
+A string of alternative option starter characters may be passed as the
+first argument (or the first argument after a leading hash reference
+argument).
+
+    my $len = 0;
+    GetOptions ('/', 'length=i' => $len);
+
+Now the command line may look like:
+
+    /length 24 -- arg
+
+Note that to terminate options processing still requires a double dash
+C<-->.
+
+GetOptions() will not interpret a leading C<< "<>" >> as option starters
+if the next argument is a reference. To force C<< "<" >> and C<< ">" >> as
+option starters, use C<< "><" >>. Confusing? Well, B<using a starter
+argument is strongly deprecated> anyway.
+
+=head2 Configuration variables
+
+Previous versions of Getopt::Long used variables for the purpose of
+configuring. Although manipulating these variables still work, it is
+strongly encouraged to use the C<Configure> routine that was introduced
+in version 2.17. Besides, it is much easier.
+
+=head1 Tips and Techniques
+
+=head2 Pushing multiple values in a hash option
+
+Sometimes you want to combine the best of hashes and arrays. For
+example, the command line:
+
+  --list add=first --list add=second --list add=third
+
+where each successive 'list add' option will push the value of add
+into array ref $list->{'add'}. The result would be like
+
+  $list->{add} = [qw(first second third)];
+
+This can be accomplished with a destination routine:
+
+  GetOptions('list=s%' =>
+               sub { push(@{$list{$_[1]}}, $_[2]) });
+
+=head1 Troubleshooting
+
+=head2 GetOptions does not return a false result when an option is not supplied
+
+That's why they're called 'options'.
+
+=head2 GetOptions does not split the command line correctly
+
+The command line is not split by GetOptions, but by the command line
+interpreter (CLI). On Unix, this is the shell. On Windows, it is
+COMMAND.COM or CMD.EXE. Other operating systems have other CLIs.
+
+It is important to know that these CLIs may behave different when the
+command line contains special characters, in particular quotes or
+backslashes. For example, with Unix shells you can use single quotes
+(C<'>) and double quotes (C<">) to group words together. The following
+alternatives are equivalent on Unix:
+
+    "two words"
+    'two words'
+    two\ words
+
+In case of doubt, insert the following statement in front of your Perl
+program:
+
+    print STDERR (join("|",@ARGV),"\n");
+
+to verify how your CLI passes the arguments to the program.
+
+=head2 Undefined subroutine &main::GetOptions called
+
+Are you running Windows, and did you write
+
+    use GetOpt::Long;
+
+(note the capital 'O')?
+
+=head2 How do I put a "-?" option into a Getopt::Long?
+
+You can only obtain this using an alias, and Getopt::Long of at least
+version 2.13.
+
+    use Getopt::Long;
+    GetOptions ("help|?");    # -help and -? will both set $opt_help
+
+Other characters that can't appear in Perl identifiers are also supported
+as aliases with Getopt::Long of at least version 2.39.
+
+As of version 2.32 Getopt::Long provides auto-help, a quick and easy way
+to add the options --help and -? to your program, and handle them.
+
+See C<auto_help> in section L<Configuring Getopt::Long>.
+
+=head1 AUTHOR
+
+Johan Vromans <jvromans@squirrel.nl>
+
+=head1 COPYRIGHT AND DISCLAIMER
+
+This program is Copyright 1990,2015 by Johan Vromans.
+This program is free software; you can redistribute it and/or
+modify it under the terms of the Perl Artistic License or the
+GNU General Public License as published by the Free Software
+Foundation; either version 2 of the License, or (at your option) any
+later version.
+
+This program is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+If you do not have a copy of the GNU General Public License write to
+the Free Software Foundation, Inc., 675 Mass Ave, Cambridge,
+MA 02139, USA.
+
+=cut
+
diff --git a/lib/5.24.1/Getopt/Std.pm b/lib/5.24.1/Getopt/Std.pm
new file mode 100644
index 00000000..b7f8132b
--- /dev/null
+++ b/lib/5.24.1/Getopt/Std.pm
@@ -0,0 +1,304 @@
+package Getopt::Std;
+require 5.000;
+require Exporter;
+
+=head1 NAME
+
+getopt, getopts - Process single-character switches with switch clustering
+
+=head1 SYNOPSIS
+
+    use Getopt::Std;
+
+    getopts('oif:');  # -o & -i are boolean flags, -f takes an argument
+		      # Sets $opt_* as a side effect.
+    getopts('oif:', \%opts);  # options as above. Values in %opts
+    getopt('oDI');    # -o, -D & -I take arg.
+                      # Sets $opt_* as a side effect.
+    getopt('oDI', \%opts);    # -o, -D & -I take arg.  Values in %opts
+
+=head1 DESCRIPTION
+
+The C<getopts()> function processes single-character switches with switch
+clustering.  Pass one argument which is a string containing all switches to be
+recognized.  For each switch found, if an argument is expected and provided,
+C<getopts()> sets C<$opt_x> (where C<x> is the switch name) to the value of
+the argument.  If an argument is expected but none is provided, C<$opt_x> is
+set to an undefined value.  If a switch does not take an argument, C<$opt_x>
+is set to C<1>.
+
+Switches which take an argument don't care whether there is a space between
+the switch and the argument.  If unspecified switches are found on the
+command-line, the user will be warned that an unknown option was given.
+
+The C<getopts()> function returns true unless an invalid option was found.
+
+The C<getopt()> function is similar, but its argument is a string containing
+all switches that take an argument.  If no argument is provided for a switch,
+say, C<y>, the corresponding C<$opt_y> will be set to an undefined value.
+Unspecified switches are silently accepted.  Use of C<getopt()> is not
+recommended.
+
+Note that, if your code is running under the recommended C<use strict
+vars> pragma, you will need to declare these package variables
+with C<our>:
+
+    our($opt_x, $opt_y);
+
+For those of you who don't like additional global variables being created,
+C<getopt()> and C<getopts()> will also accept a hash reference as an optional
+second argument.  Hash keys will be C<x> (where C<x> is the switch name) with
+key values the value of the argument or C<1> if no argument is specified.
+
+To allow programs to process arguments that look like switches, but aren't,
+both functions will stop processing switches when they see the argument
+C<-->.  The C<--> will be removed from @ARGV.
+
+=head1 C<--help> and C<--version>
+
+If C<-> is not a recognized switch letter, getopts() supports arguments
+C<--help> and C<--version>.  If C<main::HELP_MESSAGE()> and/or
+C<main::VERSION_MESSAGE()> are defined, they are called; the arguments are
+the output file handle, the name of option-processing package, its version,
+and the switches string.  If the subroutines are not defined, an attempt is
+made to generate intelligent messages; for best results, define $main::VERSION.
+
+If embedded documentation (in pod format, see L<perlpod>) is detected
+in the script, C<--help> will also show how to access the documentation.
+
+Note that due to excessive paranoia, if $Getopt::Std::STANDARD_HELP_VERSION
+isn't true (the default is false), then the messages are printed on STDERR,
+and the processing continues after the messages are printed.  This being
+the opposite of the standard-conforming behaviour, it is strongly recommended
+to set $Getopt::Std::STANDARD_HELP_VERSION to true.
+
+One can change the output file handle of the messages by setting
+$Getopt::Std::OUTPUT_HELP_VERSION.  One can print the messages of C<--help>
+(without the C<Usage:> line) and C<--version> by calling functions help_mess()
+and version_mess() with the switches string as an argument.
+
+=cut
+
+@ISA = qw(Exporter);
+@EXPORT = qw(getopt getopts);
+$VERSION = '1.11';
+# uncomment the next line to disable 1.03-backward compatibility paranoia
+# $STANDARD_HELP_VERSION = 1;
+
+# Process single-character switches with switch clustering.  Pass one argument
+# which is a string containing all switches that take an argument.  For each
+# switch found, sets $opt_x (where x is the switch name) to the value of the
+# argument, or 1 if no argument.  Switches which take an argument don't care
+# whether there is a space between the switch and the argument.
+
+# Usage:
+#	getopt('oDI');  # -o, -D & -I take arg.  Sets opt_* as a side effect.
+
+sub getopt (;$$) {
+    my ($argumentative, $hash) = @_;
+    $argumentative = '' if !defined $argumentative;
+    my ($first,$rest);
+    local $_;
+    local @EXPORT;
+
+    while (@ARGV && ($_ = $ARGV[0]) =~ /^-(.)(.*)/) {
+	($first,$rest) = ($1,$2);
+	if (/^--$/) {	# early exit if --
+	    shift @ARGV;
+	    last;
+	}
+	if (index($argumentative,$first) >= 0) {
+	    if ($rest ne '') {
+		shift(@ARGV);
+	    }
+	    else {
+		shift(@ARGV);
+		$rest = shift(@ARGV);
+	    }
+	    if (ref $hash) {
+	        $$hash{$first} = $rest;
+	    }
+	    else {
+	        ${"opt_$first"} = $rest;
+	        push( @EXPORT, "\$opt_$first" );
+	    }
+	}
+	else {
+	    if (ref $hash) {
+	        $$hash{$first} = 1;
+	    }
+	    else {
+	        ${"opt_$first"} = 1;
+	        push( @EXPORT, "\$opt_$first" );
+	    }
+	    if ($rest ne '') {
+		$ARGV[0] = "-$rest";
+	    }
+	    else {
+		shift(@ARGV);
+	    }
+	}
+    }
+    unless (ref $hash) { 
+	local $Exporter::ExportLevel = 1;
+	import Getopt::Std;
+    }
+}
+
+sub output_h () {
+  return $OUTPUT_HELP_VERSION if defined $OUTPUT_HELP_VERSION;
+  return \*STDOUT if $STANDARD_HELP_VERSION;
+  return \*STDERR;
+}
+
+sub try_exit () {
+    exit 0 if $STANDARD_HELP_VERSION;
+    my $p = __PACKAGE__;
+    print {output_h()} <<EOM;
+  [Now continuing due to backward compatibility and excessive paranoia.
+   See 'perldoc $p' about \$$p\::STANDARD_HELP_VERSION.]
+EOM
+}
+
+sub version_mess ($;$) {
+    my $args = shift;
+    my $h = output_h;
+    if (@_ and defined &main::VERSION_MESSAGE) {
+	main::VERSION_MESSAGE($h, __PACKAGE__, $VERSION, $args);
+    } else {
+	my $v = $main::VERSION;
+	$v = '[unknown]' unless defined $v;
+	my $myv = $VERSION;
+	$myv .= ' [paranoid]' unless $STANDARD_HELP_VERSION;
+	my $perlv = $];
+	$perlv = sprintf "%vd", $^V if $] >= 5.006;
+	print $h <<EOH;
+$0 version $v calling Getopt::Std::getopts (version $myv),
+running under Perl version $perlv.
+EOH
+    }
+}
+
+sub help_mess ($;$) {
+    my $args = shift;
+    my $h = output_h;
+    if (@_ and defined &main::HELP_MESSAGE) {
+	main::HELP_MESSAGE($h, __PACKAGE__, $VERSION, $args);
+    } else {
+	my (@witharg) = ($args =~ /(\S)\s*:/g);
+	my (@rest) = ($args =~ /([^\s:])(?!\s*:)/g);
+	my ($help, $arg) = ('', '');
+	if (@witharg) {
+	    $help .= "\n\tWith arguments: -" . join " -", @witharg;
+	    $arg = "\nSpace is not required between options and their arguments.";
+	}
+	if (@rest) {
+	    $help .= "\n\tBoolean (without arguments): -" . join " -", @rest;
+	}
+	my ($scr) = ($0 =~ m,([^/\\]+)$,);
+	print $h <<EOH if @_;			# Let the script override this
+
+Usage: $scr [-OPTIONS [-MORE_OPTIONS]] [--] [PROGRAM_ARG1 ...]
+EOH
+	print $h <<EOH;
+
+The following single-character options are accepted:$help
+
+Options may be merged together.  -- stops processing of options.$arg
+EOH
+	my $has_pod;
+	if ( defined $0 and $0 ne '-e' and -f $0 and -r $0
+	     and open my $script, '<', $0 ) {
+	    while (<$script>) {
+		$has_pod = 1, last if /^=(pod|head1)/;
+	    }
+	}
+	print $h <<EOH if $has_pod;
+
+For more details run
+	perldoc -F $0
+EOH
+    }
+}
+
+# Usage:
+#   getopts('a:bc');	# -a takes arg. -b & -c not. Sets opt_* as a
+#			#  side effect.
+
+sub getopts ($;$) {
+    my ($argumentative, $hash) = @_;
+    my (@args,$first,$rest,$exit);
+    my $errs = 0;
+    local $_;
+    local @EXPORT;
+
+    @args = split( / */, $argumentative );
+    while(@ARGV && ($_ = $ARGV[0]) =~ /^-(.)(.*)/s) {
+	($first,$rest) = ($1,$2);
+	if (/^--$/) {	# early exit if --
+	    shift @ARGV;
+	    last;
+	}
+	my $pos = index($argumentative,$first);
+	if ($pos >= 0) {
+	    if (defined($args[$pos+1]) and ($args[$pos+1] eq ':')) {
+		shift(@ARGV);
+		if ($rest eq '') {
+		    ++$errs unless @ARGV;
+		    $rest = shift(@ARGV);
+		}
+		if (ref $hash) {
+		    $$hash{$first} = $rest;
+		}
+		else {
+		    ${"opt_$first"} = $rest;
+		    push( @EXPORT, "\$opt_$first" );
+		}
+	    }
+	    else {
+		if (ref $hash) {
+		    $$hash{$first} = 1;
+		}
+		else {
+		    ${"opt_$first"} = 1;
+		    push( @EXPORT, "\$opt_$first" );
+		}
+		if ($rest eq '') {
+		    shift(@ARGV);
+		}
+		else {
+		    $ARGV[0] = "-$rest";
+		}
+	    }
+	}
+	else {
+	    if ($first eq '-' and $rest eq 'help') {
+		version_mess($argumentative, 'main');
+		help_mess($argumentative, 'main');
+		try_exit();
+		shift(@ARGV);
+		next;
+	    } elsif ($first eq '-' and $rest eq 'version') {
+		version_mess($argumentative, 'main');
+		try_exit();
+		shift(@ARGV);
+		next;
+	    }
+	    warn "Unknown option: $first\n";
+	    ++$errs;
+	    if ($rest ne '') {
+		$ARGV[0] = "-$rest";
+	    }
+	    else {
+		shift(@ARGV);
+	    }
+	}
+    }
+    unless (ref $hash) { 
+	local $Exporter::ExportLevel = 1;
+	import Getopt::Std;
+    }
+    $errs == 0;
+}
+
+1;
diff --git a/lib/5.24.1/HTTP/Tiny.pm b/lib/5.24.1/HTTP/Tiny.pm
new file mode 100644
index 00000000..f9e51845
--- /dev/null
+++ b/lib/5.24.1/HTTP/Tiny.pm
@@ -0,0 +1,2216 @@
+# vim: ts=4 sts=4 sw=4 et:
+package HTTP::Tiny;
+use strict;
+use warnings;
+# ABSTRACT: A small, simple, correct HTTP/1.1 client
+
+our $VERSION = '0.056_001';
+
+use Carp ();
+
+#pod =method new
+#pod
+#pod     $http = HTTP::Tiny->new( %attributes );
+#pod
+#pod This constructor returns a new HTTP::Tiny object.  Valid attributes include:
+#pod
+#pod =for :list
+#pod * C<agent> —
+#pod     A user-agent string (defaults to 'HTTP-Tiny/$VERSION'). If C<agent> — ends in a space character, the default user-agent string is appended.
+#pod * C<cookie_jar> —
+#pod     An instance of L<HTTP::CookieJar> — or equivalent class that supports the C<add> and C<cookie_header> methods
+#pod * C<default_headers> —
+#pod     A hashref of default headers to apply to requests
+#pod * C<local_address> —
+#pod     The local IP address to bind to
+#pod * C<keep_alive> —
+#pod     Whether to reuse the last connection (if for the same scheme, host and port) (defaults to 1)
+#pod * C<max_redirect> —
+#pod     Maximum number of redirects allowed (defaults to 5)
+#pod * C<max_size> —
+#pod     Maximum response size in bytes (only when not using a data callback).  If defined, responses larger than this will return an exception.
+#pod * C<http_proxy> —
+#pod     URL of a proxy server to use for HTTP connections (default is C<$ENV{http_proxy}> — if set)
+#pod * C<https_proxy> —
+#pod     URL of a proxy server to use for HTTPS connections (default is C<$ENV{https_proxy}> — if set)
+#pod * C<proxy> —
+#pod     URL of a generic proxy server for both HTTP and HTTPS connections (default is C<$ENV{all_proxy}> — if set)
+#pod * C<no_proxy> —
+#pod     List of domain suffixes that should not be proxied.  Must be a comma-separated string or an array reference. (default is C<$ENV{no_proxy}> —)
+#pod * C<timeout> —
+#pod     Request timeout in seconds (default is 60)
+#pod * C<verify_SSL> —
+#pod     A boolean that indicates whether to validate the SSL certificate of an C<https> —
+#pod     connection (default is false)
+#pod * C<SSL_options> —
+#pod     A hashref of C<SSL_*> — options to pass through to L<IO::Socket::SSL>
+#pod
+#pod Passing an explicit C<undef> for C<proxy>, C<http_proxy> or C<https_proxy> will
+#pod prevent getting the corresponding proxies from the environment.
+#pod
+#pod Exceptions from C<max_size>, C<timeout> or other errors will result in a
+#pod pseudo-HTTP status code of 599 and a reason of "Internal Exception". The
+#pod content field in the response will contain the text of the exception.
+#pod
+#pod The C<keep_alive> parameter enables a persistent connection, but only to a
+#pod single destination scheme, host and port.  Also, if any connection-relevant
+#pod attributes are modified, or if the process ID or thread ID change, the
+#pod persistent connection will be dropped.  If you want persistent connections
+#pod across multiple destinations, use multiple HTTP::Tiny objects.
+#pod
+#pod See L</SSL SUPPORT> for more on the C<verify_SSL> and C<SSL_options> attributes.
+#pod
+#pod =cut
+
+my @attributes;
+BEGIN {
+    @attributes = qw(
+        cookie_jar default_headers http_proxy https_proxy keep_alive
+        local_address max_redirect max_size proxy no_proxy timeout
+        SSL_options verify_SSL
+    );
+    my %persist_ok = map {; $_ => 1 } qw(
+        cookie_jar default_headers max_redirect max_size
+    );
+    no strict 'refs';
+    no warnings 'uninitialized';
+    for my $accessor ( @attributes ) {
+        *{$accessor} = sub {
+            @_ > 1
+                ? do {
+                    delete $_[0]->{handle} if !$persist_ok{$accessor} && $_[1] ne $_[0]->{$accessor};
+                    $_[0]->{$accessor} = $_[1]
+                }
+                : $_[0]->{$accessor};
+        };
+    }
+}
+
+sub agent {
+    my($self, $agent) = @_;
+    if( @_ > 1 ){
+        $self->{agent} =
+            (defined $agent && $agent =~ / $/) ? $agent . $self->_agent : $agent;
+    }
+    return $self->{agent};
+}
+
+sub new {
+    my($class, %args) = @_;
+
+    my $self = {
+        max_redirect => 5,
+        timeout      => 60,
+        keep_alive   => 1,
+        verify_SSL   => $args{verify_SSL} || $args{verify_ssl} || 0, # no verification by default
+        no_proxy     => $ENV{no_proxy},
+    };
+
+    bless $self, $class;
+
+    $class->_validate_cookie_jar( $args{cookie_jar} ) if $args{cookie_jar};
+
+    for my $key ( @attributes ) {
+        $self->{$key} = $args{$key} if exists $args{$key}
+    }
+
+    $self->agent( exists $args{agent} ? $args{agent} : $class->_agent );
+
+    $self->_set_proxies;
+
+    return $self;
+}
+
+sub _set_proxies {
+    my ($self) = @_;
+
+    # get proxies from %ENV only if not provided; explicit undef will disable
+    # getting proxies from the environment
+
+    # generic proxy
+    if (! exists $self->{proxy} ) {
+        $self->{proxy} = $ENV{all_proxy} || $ENV{ALL_PROXY};
+    }
+
+    if ( defined $self->{proxy} ) {
+        $self->_split_proxy( 'generic proxy' => $self->{proxy} ); # validate
+    }
+    else {
+        delete $self->{proxy};
+    }
+
+    # http proxy
+    if (! exists $self->{http_proxy} ) {
+        # under CGI, bypass HTTP_PROXY as request sets it from Proxy header
+        local $ENV{HTTP_PROXY} if $ENV{REQUEST_METHOD};
+        $self->{http_proxy} = $ENV{http_proxy} || $ENV{HTTP_PROXY} || $self->{proxy};
+    }
+
+    if ( defined $self->{http_proxy} ) {
+        $self->_split_proxy( http_proxy => $self->{http_proxy} ); # validate
+        $self->{_has_proxy}{http} = 1;
+    }
+    else {
+        delete $self->{http_proxy};
+    }
+
+    # https proxy
+    if (! exists $self->{https_proxy} ) {
+        $self->{https_proxy} = $ENV{https_proxy} || $ENV{HTTPS_PROXY} || $self->{proxy};
+    }
+
+    if ( $self->{https_proxy} ) {
+        $self->_split_proxy( https_proxy => $self->{https_proxy} ); # validate
+        $self->{_has_proxy}{https} = 1;
+    }
+    else {
+        delete $self->{https_proxy};
+    }
+
+    # Split no_proxy to array reference if not provided as such
+    unless ( ref $self->{no_proxy} eq 'ARRAY' ) {
+        $self->{no_proxy} =
+            (defined $self->{no_proxy}) ? [ split /\s*,\s*/, $self->{no_proxy} ] : [];
+    }
+
+    return;
+}
+
+#pod =method get|head|put|post|delete
+#pod
+#pod     $response = $http->get($url);
+#pod     $response = $http->get($url, \%options);
+#pod     $response = $http->head($url);
+#pod
+#pod These methods are shorthand for calling C<request()> for the given method.  The
+#pod URL must have unsafe characters escaped and international domain names encoded.
+#pod See C<request()> for valid options and a description of the response.
+#pod
+#pod The C<success> field of the response will be true if the status code is 2XX.
+#pod
+#pod =cut
+
+for my $sub_name ( qw/get head put post delete/ ) {
+    my $req_method = uc $sub_name;
+    no strict 'refs';
+    eval <<"HERE"; ## no critic
+    sub $sub_name {
+        my (\$self, \$url, \$args) = \@_;
+        \@_ == 2 || (\@_ == 3 && ref \$args eq 'HASH')
+        or Carp::croak(q/Usage: \$http->$sub_name(URL, [HASHREF])/ . "\n");
+        return \$self->request('$req_method', \$url, \$args || {});
+    }
+HERE
+}
+
+#pod =method post_form
+#pod
+#pod     $response = $http->post_form($url, $form_data);
+#pod     $response = $http->post_form($url, $form_data, \%options);
+#pod
+#pod This method executes a C<POST> request and sends the key/value pairs from a
+#pod form data hash or array reference to the given URL with a C<content-type> of
+#pod C<application/x-www-form-urlencoded>.  If data is provided as an array
+#pod reference, the order is preserved; if provided as a hash reference, the terms
+#pod are sorted on key and value for consistency.  See documentation for the
+#pod C<www_form_urlencode> method for details on the encoding.
+#pod
+#pod The URL must have unsafe characters escaped and international domain names
+#pod encoded.  See C<request()> for valid options and a description of the response.
+#pod Any C<content-type> header or content in the options hashref will be ignored.
+#pod
+#pod The C<success> field of the response will be true if the status code is 2XX.
+#pod
+#pod =cut
+
+sub post_form {
+    my ($self, $url, $data, $args) = @_;
+    (@_ == 3 || @_ == 4 && ref $args eq 'HASH')
+        or Carp::croak(q/Usage: $http->post_form(URL, DATAREF, [HASHREF])/ . "\n");
+
+    my $headers = {};
+    while ( my ($key, $value) = each %{$args->{headers} || {}} ) {
+        $headers->{lc $key} = $value;
+    }
+    delete $args->{headers};
+
+    return $self->request('POST', $url, {
+            %$args,
+            content => $self->www_form_urlencode($data),
+            headers => {
+                %$headers,
+                'content-type' => 'application/x-www-form-urlencoded'
+            },
+        }
+    );
+}
+
+#pod =method mirror
+#pod
+#pod     $response = $http->mirror($url, $file, \%options)
+#pod     if ( $response->{success} ) {
+#pod         print "$file is up to date\n";
+#pod     }
+#pod
+#pod Executes a C<GET> request for the URL and saves the response body to the file
+#pod name provided.  The URL must have unsafe characters escaped and international
+#pod domain names encoded.  If the file already exists, the request will include an
+#pod C<If-Modified-Since> header with the modification timestamp of the file.  You
+#pod may specify a different C<If-Modified-Since> header yourself in the C<<
+#pod $options->{headers} >> hash.
+#pod
+#pod The C<success> field of the response will be true if the status code is 2XX
+#pod or if the status code is 304 (unmodified).
+#pod
+#pod If the file was modified and the server response includes a properly
+#pod formatted C<Last-Modified> header, the file modification time will
+#pod be updated accordingly.
+#pod
+#pod =cut
+
+sub mirror {
+    my ($self, $url, $file, $args) = @_;
+    @_ == 3 || (@_ == 4 && ref $args eq 'HASH')
+      or Carp::croak(q/Usage: $http->mirror(URL, FILE, [HASHREF])/ . "\n");
+    if ( -e $file and my $mtime = (stat($file))[9] ) {
+        $args->{headers}{'if-modified-since'} ||= $self->_http_date($mtime);
+    }
+    my $tempfile = $file . int(rand(2**31));
+
+    require Fcntl;
+    sysopen my $fh, $tempfile, Fcntl::O_CREAT()|Fcntl::O_EXCL()|Fcntl::O_WRONLY()
+       or Carp::croak(qq/Error: Could not create temporary file $tempfile for downloading: $!\n/);
+    binmode $fh;
+    $args->{data_callback} = sub { print {$fh} $_[0] };
+    my $response = $self->request('GET', $url, $args);
+    close $fh
+        or Carp::croak(qq/Error: Caught error closing temporary file $tempfile: $!\n/);
+
+    if ( $response->{success} ) {
+        rename $tempfile, $file
+            or Carp::croak(qq/Error replacing $file with $tempfile: $!\n/);
+        my $lm = $response->{headers}{'last-modified'};
+        if ( $lm and my $mtime = $self->_parse_http_date($lm) ) {
+            utime $mtime, $mtime, $file;
+        }
+    }
+    $response->{success} ||= $response->{status} eq '304';
+    unlink $tempfile;
+    return $response;
+}
+
+#pod =method request
+#pod
+#pod     $response = $http->request($method, $url);
+#pod     $response = $http->request($method, $url, \%options);
+#pod
+#pod Executes an HTTP request of the given method type ('GET', 'HEAD', 'POST',
+#pod 'PUT', etc.) on the given URL.  The URL must have unsafe characters escaped and
+#pod international domain names encoded.
+#pod
+#pod If the URL includes a "user:password" stanza, they will be used for Basic-style
+#pod authorization headers.  (Authorization headers will not be included in a
+#pod redirected request.) For example:
+#pod
+#pod     $http->request('GET', 'http://Aladdin:open sesame@example.com/');
+#pod
+#pod If the "user:password" stanza contains reserved characters, they must
+#pod be percent-escaped:
+#pod
+#pod     $http->request('GET', 'http://john%40example.com:password@example.com/');
+#pod
+#pod A hashref of options may be appended to modify the request.
+#pod
+#pod Valid options are:
+#pod
+#pod =for :list
+#pod * C<headers> —
+#pod     A hashref containing headers to include with the request.  If the value for
+#pod     a header is an array reference, the header will be output multiple times with
+#pod     each value in the array.  These headers over-write any default headers.
+#pod * C<content> —
+#pod     A scalar to include as the body of the request OR a code reference
+#pod     that will be called iteratively to produce the body of the request
+#pod * C<trailer_callback> —
+#pod     A code reference that will be called if it exists to provide a hashref
+#pod     of trailing headers (only used with chunked transfer-encoding)
+#pod * C<data_callback> —
+#pod     A code reference that will be called for each chunks of the response
+#pod     body received.
+#pod
+#pod The C<Host> header is generated from the URL in accordance with RFC 2616.  It
+#pod is a fatal error to specify C<Host> in the C<headers> option.  Other headers
+#pod may be ignored or overwritten if necessary for transport compliance.
+#pod
+#pod If the C<content> option is a code reference, it will be called iteratively
+#pod to provide the content body of the request.  It should return the empty
+#pod string or undef when the iterator is exhausted.
+#pod
+#pod If the C<content> option is the empty string, no C<content-type> or
+#pod C<content-length> headers will be generated.
+#pod
+#pod If the C<data_callback> option is provided, it will be called iteratively until
+#pod the entire response body is received.  The first argument will be a string
+#pod containing a chunk of the response body, the second argument will be the
+#pod in-progress response hash reference, as described below.  (This allows
+#pod customizing the action of the callback based on the C<status> or C<headers>
+#pod received prior to the content body.)
+#pod
+#pod The C<request> method returns a hashref containing the response.  The hashref
+#pod will have the following keys:
+#pod
+#pod =for :list
+#pod * C<success> —
+#pod     Boolean indicating whether the operation returned a 2XX status code
+#pod * C<url> —
+#pod     URL that provided the response. This is the URL of the request unless
+#pod     there were redirections, in which case it is the last URL queried
+#pod     in a redirection chain
+#pod * C<status> —
+#pod     The HTTP status code of the response
+#pod * C<reason> —
+#pod     The response phrase returned by the server
+#pod * C<content> —
+#pod     The body of the response.  If the response does not have any content
+#pod     or if a data callback is provided to consume the response body,
+#pod     this will be the empty string
+#pod * C<headers> —
+#pod     A hashref of header fields.  All header field names will be normalized
+#pod     to be lower case. If a header is repeated, the value will be an arrayref;
+#pod     it will otherwise be a scalar string containing the value
+#pod
+#pod On an exception during the execution of the request, the C<status> field will
+#pod contain 599, and the C<content> field will contain the text of the exception.
+#pod
+#pod =cut
+
+my %idempotent = map { $_ => 1 } qw/GET HEAD PUT DELETE OPTIONS TRACE/;
+
+sub request {
+    my ($self, $method, $url, $args) = @_;
+    @_ == 3 || (@_ == 4 && ref $args eq 'HASH')
+      or Carp::croak(q/Usage: $http->request(METHOD, URL, [HASHREF])/ . "\n");
+    $args ||= {}; # we keep some state in this during _request
+
+    # RFC 2616 Section 8.1.4 mandates a single retry on broken socket
+    my $response;
+    for ( 0 .. 1 ) {
+        $response = eval { $self->_request($method, $url, $args) };
+        last unless $@ && $idempotent{$method}
+            && $@ =~ m{^(?:Socket closed|Unexpected end)};
+    }
+
+    if (my $e = $@) {
+        # maybe we got a response hash thrown from somewhere deep
+        if ( ref $e eq 'HASH' && exists $e->{status} ) {
+            return $e;
+        }
+
+        # otherwise, stringify it
+        $e = "$e";
+        $response = {
+            url     => $url,
+            success => q{},
+            status  => 599,
+            reason  => 'Internal Exception',
+            content => $e,
+            headers => {
+                'content-type'   => 'text/plain',
+                'content-length' => length $e,
+            }
+        };
+    }
+    return $response;
+}
+
+#pod =method www_form_urlencode
+#pod
+#pod     $params = $http->www_form_urlencode( $data );
+#pod     $response = $http->get("http://example.com/query?$params");
+#pod
+#pod This method converts the key/value pairs from a data hash or array reference
+#pod into a C<x-www-form-urlencoded> string.  The keys and values from the data
+#pod reference will be UTF-8 encoded and escaped per RFC 3986.  If a value is an
+#pod array reference, the key will be repeated with each of the values of the array
+#pod reference.  If data is provided as a hash reference, the key/value pairs in the
+#pod resulting string will be sorted by key and value for consistent ordering.
+#pod
+#pod =cut
+
+sub www_form_urlencode {
+    my ($self, $data) = @_;
+    (@_ == 2 && ref $data)
+        or Carp::croak(q/Usage: $http->www_form_urlencode(DATAREF)/ . "\n");
+    (ref $data eq 'HASH' || ref $data eq 'ARRAY')
+        or Carp::croak("form data must be a hash or array reference\n");
+
+    my @params = ref $data eq 'HASH' ? %$data : @$data;
+    @params % 2 == 0
+        or Carp::croak("form data reference must have an even number of terms\n");
+
+    my @terms;
+    while( @params ) {
+        my ($key, $value) = splice(@params, 0, 2);
+        if ( ref $value eq 'ARRAY' ) {
+            unshift @params, map { $key => $_ } @$value;
+        }
+        else {
+            push @terms, join("=", map { $self->_uri_escape($_) } $key, $value);
+        }
+    }
+
+    return join("&", (ref $data eq 'ARRAY') ? (@terms) : (sort @terms) );
+}
+
+#pod =method can_ssl
+#pod
+#pod     $ok         = HTTP::Tiny->can_ssl;
+#pod     ($ok, $why) = HTTP::Tiny->can_ssl;
+#pod     ($ok, $why) = $http->can_ssl;
+#pod
+#pod Indicates if SSL support is available.  When called as a class object, it
+#pod checks for the correct version of L<Net::SSLeay> and L<IO::Socket::SSL>.
+#pod When called as an object methods, if C<SSL_verify> is true or if C<SSL_verify_mode>
+#pod is set in C<SSL_options>, it checks that a CA file is available.
+#pod
+#pod In scalar context, returns a boolean indicating if SSL is available.
+#pod In list context, returns the boolean and a (possibly multi-line) string of
+#pod errors indicating why SSL isn't available.
+#pod
+#pod =cut
+
+sub can_ssl {
+    my ($self) = @_;
+
+    my($ok, $reason) = (1, '');
+
+    # Need IO::Socket::SSL 1.42 for SSL_create_ctx_callback
+    local @INC = @INC;
+    pop @INC if $INC[-1] eq '.';
+    unless (eval {require IO::Socket::SSL; IO::Socket::SSL->VERSION(1.42)}) {
+        $ok = 0;
+        $reason .= qq/IO::Socket::SSL 1.42 must be installed for https support\n/;
+    }
+
+    # Need Net::SSLeay 1.49 for MODE_AUTO_RETRY
+    unless (eval {require Net::SSLeay; Net::SSLeay->VERSION(1.49)}) {
+        $ok = 0;
+        $reason .= qq/Net::SSLeay 1.49 must be installed for https support\n/;
+    }
+
+    # If an object, check that SSL config lets us get a CA if necessary
+    if ( ref($self) && ( $self->{verify_SSL} || $self->{SSL_options}{SSL_verify_mode} ) ) {
+        my $handle = HTTP::Tiny::Handle->new(
+            SSL_options => $self->{SSL_options},
+            verify_SSL  => $self->{verify_SSL},
+        );
+        unless ( eval { $handle->_find_CA_file; 1 } ) {
+            $ok = 0;
+            $reason .= "$@";
+        }
+    }
+
+    wantarray ? ($ok, $reason) : $ok;
+}
+
+#--------------------------------------------------------------------------#
+# private methods
+#--------------------------------------------------------------------------#
+
+my %DefaultPort = (
+    http => 80,
+    https => 443,
+);
+
+sub _agent {
+    my $class = ref($_[0]) || $_[0];
+    (my $default_agent = $class) =~ s{::}{-}g;
+    return $default_agent . "/" . $class->VERSION;
+}
+
+sub _request {
+    my ($self, $method, $url, $args) = @_;
+
+    my ($scheme, $host, $port, $path_query, $auth) = $self->_split_url($url);
+
+    my $request = {
+        method    => $method,
+        scheme    => $scheme,
+        host      => $host,
+        port      => $port,
+        host_port => ($port == $DefaultPort{$scheme} ? $host : "$host:$port"),
+        uri       => $path_query,
+        headers   => {},
+    };
+
+    # We remove the cached handle so it is not reused in the case of redirect.
+    # If all is well, it will be recached at the end of _request.  We only
+    # reuse for the same scheme, host and port
+    my $handle = delete $self->{handle};
+    if ( $handle ) {
+        unless ( $handle->can_reuse( $scheme, $host, $port ) ) {
+            $handle->close;
+            undef $handle;
+        }
+    }
+    $handle ||= $self->_open_handle( $request, $scheme, $host, $port );
+
+    $self->_prepare_headers_and_cb($request, $args, $url, $auth);
+    $handle->write_request($request);
+
+    my $response;
+    do { $response = $handle->read_response_header }
+        until (substr($response->{status},0,1) ne '1');
+
+    $self->_update_cookie_jar( $url, $response ) if $self->{cookie_jar};
+
+    if ( my @redir_args = $self->_maybe_redirect($request, $response, $args) ) {
+        $handle->close;
+        return $self->_request(@redir_args, $args);
+    }
+
+    my $known_message_length;
+    if ($method eq 'HEAD' || $response->{status} =~ /^[23]04/) {
+        # response has no message body
+        $known_message_length = 1;
+    }
+    else {
+        my $data_cb = $self->_prepare_data_cb($response, $args);
+        $known_message_length = $handle->read_body($data_cb, $response);
+    }
+
+    if ( $self->{keep_alive}
+        && $known_message_length
+        && $response->{protocol} eq 'HTTP/1.1'
+        && ($response->{headers}{connection} || '') ne 'close'
+    ) {
+        $self->{handle} = $handle;
+    }
+    else {
+        $handle->close;
+    }
+
+    $response->{success} = substr( $response->{status}, 0, 1 ) eq '2';
+    $response->{url} = $url;
+    return $response;
+}
+
+sub _open_handle {
+    my ($self, $request, $scheme, $host, $port) = @_;
+
+    my $handle  = HTTP::Tiny::Handle->new(
+        timeout         => $self->{timeout},
+        SSL_options     => $self->{SSL_options},
+        verify_SSL      => $self->{verify_SSL},
+        local_address   => $self->{local_address},
+        keep_alive      => $self->{keep_alive}
+    );
+
+    if ($self->{_has_proxy}{$scheme} && ! grep { $host =~ /\Q$_\E$/ } @{$self->{no_proxy}}) {
+        return $self->_proxy_connect( $request, $handle );
+    }
+    else {
+        return $handle->connect($scheme, $host, $port);
+    }
+}
+
+sub _proxy_connect {
+    my ($self, $request, $handle) = @_;
+
+    my @proxy_vars;
+    if ( $request->{scheme} eq 'https' ) {
+        Carp::croak(qq{No https_proxy defined}) unless $self->{https_proxy};
+        @proxy_vars = $self->_split_proxy( https_proxy => $self->{https_proxy} );
+        if ( $proxy_vars[0] eq 'https' ) {
+            Carp::croak(qq{Can't proxy https over https: $request->{uri} via $self->{https_proxy}});
+        }
+    }
+    else {
+        Carp::croak(qq{No http_proxy defined}) unless $self->{http_proxy};
+        @proxy_vars = $self->_split_proxy( http_proxy => $self->{http_proxy} );
+    }
+
+    my ($p_scheme, $p_host, $p_port, $p_auth) = @proxy_vars;
+
+    if ( length $p_auth && ! defined $request->{headers}{'proxy-authorization'} ) {
+        $self->_add_basic_auth_header( $request, 'proxy-authorization' => $p_auth );
+    }
+
+    $handle->connect($p_scheme, $p_host, $p_port);
+
+    if ($request->{scheme} eq 'https') {
+        $self->_create_proxy_tunnel( $request, $handle );
+    }
+    else {
+        # non-tunneled proxy requires absolute URI
+        $request->{uri} = "$request->{scheme}://$request->{host_port}$request->{uri}";
+    }
+
+    return $handle;
+}
+
+sub _split_proxy {
+    my ($self, $type, $proxy) = @_;
+
+    my ($scheme, $host, $port, $path_query, $auth) = eval { $self->_split_url($proxy) };
+
+    unless(
+        defined($scheme) && length($scheme) && length($host) && length($port)
+        && $path_query eq '/'
+    ) {
+        Carp::croak(qq{$type URL must be in format http[s]://[auth@]<host>:<port>/\n});
+    }
+
+    return ($scheme, $host, $port, $auth);
+}
+
+sub _create_proxy_tunnel {
+    my ($self, $request, $handle) = @_;
+
+    $handle->_assert_ssl;
+
+    my $agent = exists($request->{headers}{'user-agent'})
+        ? $request->{headers}{'user-agent'} : $self->{agent};
+
+    my $connect_request = {
+        method    => 'CONNECT',
+        uri       => "$request->{host}:$request->{port}",
+        headers   => {
+            host => "$request->{host}:$request->{port}",
+            'user-agent' => $agent,
+        }
+    };
+
+    if ( $request->{headers}{'proxy-authorization'} ) {
+        $connect_request->{headers}{'proxy-authorization'} =
+            delete $request->{headers}{'proxy-authorization'};
+    }
+
+    $handle->write_request($connect_request);
+    my $response;
+    do { $response = $handle->read_response_header }
+        until (substr($response->{status},0,1) ne '1');
+
+    # if CONNECT failed, throw the response so it will be
+    # returned from the original request() method;
+    unless (substr($response->{status},0,1) eq '2') {
+        die $response;
+    }
+
+    # tunnel established, so start SSL handshake
+    $handle->start_ssl( $request->{host} );
+
+    return;
+}
+
+sub _prepare_headers_and_cb {
+    my ($self, $request, $args, $url, $auth) = @_;
+
+    for ($self->{default_headers}, $args->{headers}) {
+        next unless defined;
+        while (my ($k, $v) = each %$_) {
+            $request->{headers}{lc $k} = $v;
+        }
+    }
+
+    if (exists $request->{headers}{'host'}) {
+        die(qq/The 'Host' header must not be provided as header option\n/);
+    }
+
+    $request->{headers}{'host'}         = $request->{host_port};
+    $request->{headers}{'user-agent'} ||= $self->{agent};
+    $request->{headers}{'connection'}   = "close"
+        unless $self->{keep_alive};
+
+    if ( defined $args->{content} ) {
+        if (ref $args->{content} eq 'CODE') {
+            $request->{headers}{'content-type'} ||= "application/octet-stream";
+            $request->{headers}{'transfer-encoding'} = 'chunked'
+              unless $request->{headers}{'content-length'}
+                  || $request->{headers}{'transfer-encoding'};
+            $request->{cb} = $args->{content};
+        }
+        elsif ( length $args->{content} ) {
+            my $content = $args->{content};
+            if ( $] ge '5.008' ) {
+                utf8::downgrade($content, 1)
+                    or die(qq/Wide character in request message body\n/);
+            }
+            $request->{headers}{'content-type'} ||= "application/octet-stream";
+            $request->{headers}{'content-length'} = length $content
+              unless $request->{headers}{'content-length'}
+                  || $request->{headers}{'transfer-encoding'};
+            $request->{cb} = sub { substr $content, 0, length $content, '' };
+        }
+        $request->{trailer_cb} = $args->{trailer_callback}
+            if ref $args->{trailer_callback} eq 'CODE';
+    }
+
+    ### If we have a cookie jar, then maybe add relevant cookies
+    if ( $self->{cookie_jar} ) {
+        my $cookies = $self->cookie_jar->cookie_header( $url );
+        $request->{headers}{cookie} = $cookies if length $cookies;
+    }
+
+    # if we have Basic auth parameters, add them
+    if ( length $auth && ! defined $request->{headers}{authorization} ) {
+        $self->_add_basic_auth_header( $request, 'authorization' => $auth );
+    }
+
+    return;
+}
+
+sub _add_basic_auth_header {
+    my ($self, $request, $header, $auth) = @_;
+    require MIME::Base64;
+    $request->{headers}{$header} =
+        "Basic " . MIME::Base64::encode_base64($auth, "");
+    return;
+}
+
+sub _prepare_data_cb {
+    my ($self, $response, $args) = @_;
+    my $data_cb = $args->{data_callback};
+    $response->{content} = '';
+
+    if (!$data_cb || $response->{status} !~ /^2/) {
+        if (defined $self->{max_size}) {
+            $data_cb = sub {
+                $_[1]->{content} .= $_[0];
+                die(qq/Size of response body exceeds the maximum allowed of $self->{max_size}\n/)
+                  if length $_[1]->{content} > $self->{max_size};
+            };
+        }
+        else {
+            $data_cb = sub { $_[1]->{content} .= $_[0] };
+        }
+    }
+    return $data_cb;
+}
+
+sub _update_cookie_jar {
+    my ($self, $url, $response) = @_;
+
+    my $cookies = $response->{headers}->{'set-cookie'};
+    return unless defined $cookies;
+
+    my @cookies = ref $cookies ? @$cookies : $cookies;
+
+    $self->cookie_jar->add( $url, $_ ) for @cookies;
+
+    return;
+}
+
+sub _validate_cookie_jar {
+    my ($class, $jar) = @_;
+
+    # duck typing
+    for my $method ( qw/add cookie_header/ ) {
+        Carp::croak(qq/Cookie jar must provide the '$method' method\n/)
+            unless ref($jar) && ref($jar)->can($method);
+    }
+
+    return;
+}
+
+sub _maybe_redirect {
+    my ($self, $request, $response, $args) = @_;
+    my $headers = $response->{headers};
+    my ($status, $method) = ($response->{status}, $request->{method});
+    if (($status eq '303' or ($status =~ /^30[1278]/ && $method =~ /^GET|HEAD$/))
+        and $headers->{location}
+        and ++$args->{redirects} <= $self->{max_redirect}
+    ) {
+        my $location = ($headers->{location} =~ /^\//)
+            ? "$request->{scheme}://$request->{host_port}$headers->{location}"
+            : $headers->{location} ;
+        return (($status eq '303' ? 'GET' : $method), $location);
+    }
+    return;
+}
+
+sub _split_url {
+    my $url = pop;
+
+    # URI regex adapted from the URI module
+    my ($scheme, $host, $path_query) = $url =~ m<\A([^:/?#]+)://([^/?#]*)([^#]*)>
+      or die(qq/Cannot parse URL: '$url'\n/);
+
+    $scheme     = lc $scheme;
+    $path_query = "/$path_query" unless $path_query =~ m<\A/>;
+
+    my $auth = '';
+    if ( (my $i = index $host, '@') != -1 ) {
+        # user:pass@host
+        $auth = substr $host, 0, $i, ''; # take up to the @ for auth
+        substr $host, 0, 1, '';          # knock the @ off the host
+
+        # userinfo might be percent escaped, so recover real auth info
+        $auth =~ s/%([0-9A-Fa-f]{2})/chr(hex($1))/eg;
+    }
+    my $port = $host =~ s/:(\d*)\z// && length $1 ? $1
+             : $scheme eq 'http'                  ? 80
+             : $scheme eq 'https'                 ? 443
+             : undef;
+
+    return ($scheme, (length $host ? lc $host : "localhost") , $port, $path_query, $auth);
+}
+
+# Date conversions adapted from HTTP::Date
+my $DoW = "Sun|Mon|Tue|Wed|Thu|Fri|Sat";
+my $MoY = "Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Oct|Nov|Dec";
+sub _http_date {
+    my ($sec, $min, $hour, $mday, $mon, $year, $wday) = gmtime($_[1]);
+    return sprintf("%s, %02d %s %04d %02d:%02d:%02d GMT",
+        substr($DoW,$wday*4,3),
+        $mday, substr($MoY,$mon*4,3), $year+1900,
+        $hour, $min, $sec
+    );
+}
+
+sub _parse_http_date {
+    my ($self, $str) = @_;
+    require Time::Local;
+    my @tl_parts;
+    if ($str =~ /^[SMTWF][a-z]+, +(\d{1,2}) ($MoY) +(\d\d\d\d) +(\d\d):(\d\d):(\d\d) +GMT$/) {
+        @tl_parts = ($6, $5, $4, $1, (index($MoY,$2)/4), $3);
+    }
+    elsif ($str =~ /^[SMTWF][a-z]+, +(\d\d)-($MoY)-(\d{2,4}) +(\d\d):(\d\d):(\d\d) +GMT$/ ) {
+        @tl_parts = ($6, $5, $4, $1, (index($MoY,$2)/4), $3);
+    }
+    elsif ($str =~ /^[SMTWF][a-z]+ +($MoY) +(\d{1,2}) +(\d\d):(\d\d):(\d\d) +(?:[^0-9]+ +)?(\d\d\d\d)$/ ) {
+        @tl_parts = ($5, $4, $3, $2, (index($MoY,$1)/4), $6);
+    }
+    return eval {
+        my $t = @tl_parts ? Time::Local::timegm(@tl_parts) : -1;
+        $t < 0 ? undef : $t;
+    };
+}
+
+# URI escaping adapted from URI::Escape
+# c.f. http://www.w3.org/TR/html4/interact/forms.html#h-17.13.4.1
+# perl 5.6 ready UTF-8 encoding adapted from JSON::PP
+my %escapes = map { chr($_) => sprintf("%%%02X", $_) } 0..255;
+$escapes{' '}="+";
+my $unsafe_char = qr/[^A-Za-z0-9\-\._~]/;
+
+sub _uri_escape {
+    my ($self, $str) = @_;
+    if ( $] ge '5.008' ) {
+        utf8::encode($str);
+    }
+    else {
+        $str = pack("U*", unpack("C*", $str)) # UTF-8 encode a byte string
+            if ( length $str == do { use bytes; length $str } );
+        $str = pack("C*", unpack("C*", $str)); # clear UTF-8 flag
+    }
+    $str =~ s/($unsafe_char)/$escapes{$1}/ge;
+    return $str;
+}
+
+package
+    HTTP::Tiny::Handle; # hide from PAUSE/indexers
+use strict;
+use warnings;
+
+use Errno      qw[EINTR EPIPE];
+use IO::Socket qw[SOCK_STREAM];
+
+# PERL_HTTP_TINY_IPV4_ONLY is a private environment variable to force old
+# behavior if someone is unable to boostrap CPAN from a new perl install; it is
+# not intended for general, per-client use and may be removed in the future
+my $SOCKET_CLASS =
+    $ENV{PERL_HTTP_TINY_IPV4_ONLY} ? 'IO::Socket::INET' :
+    eval { require IO::Socket::IP; IO::Socket::IP->VERSION(0.25) } ? 'IO::Socket::IP' :
+    'IO::Socket::INET';
+
+sub BUFSIZE () { 32768 } ## no critic
+
+my $Printable = sub {
+    local $_ = shift;
+    s/\r/\\r/g;
+    s/\n/\\n/g;
+    s/\t/\\t/g;
+    s/([^\x20-\x7E])/sprintf('\\x%.2X', ord($1))/ge;
+    $_;
+};
+
+my $Token = qr/[\x21\x23-\x27\x2A\x2B\x2D\x2E\x30-\x39\x41-\x5A\x5E-\x7A\x7C\x7E]/;
+
+sub new {
+    my ($class, %args) = @_;
+    return bless {
+        rbuf             => '',
+        timeout          => 60,
+        max_line_size    => 16384,
+        max_header_lines => 64,
+        verify_SSL       => 0,
+        SSL_options      => {},
+        %args
+    }, $class;
+}
+
+sub connect {
+    @_ == 4 || die(q/Usage: $handle->connect(scheme, host, port)/ . "\n");
+    my ($self, $scheme, $host, $port) = @_;
+
+    if ( $scheme eq 'https' ) {
+        $self->_assert_ssl;
+    }
+    elsif ( $scheme ne 'http' ) {
+      die(qq/Unsupported URL scheme '$scheme'\n/);
+    }
+    $self->{fh} = $SOCKET_CLASS->new(
+        PeerHost  => $host,
+        PeerPort  => $port,
+        $self->{local_address} ?
+            ( LocalAddr => $self->{local_address} ) : (),
+        Proto     => 'tcp',
+        Type      => SOCK_STREAM,
+        Timeout   => $self->{timeout},
+        KeepAlive => !!$self->{keep_alive}
+    ) or die(qq/Could not connect to '$host:$port': $@\n/);
+
+    binmode($self->{fh})
+      or die(qq/Could not binmode() socket: '$!'\n/);
+
+    $self->start_ssl($host) if $scheme eq 'https';
+
+    $self->{scheme} = $scheme;
+    $self->{host} = $host;
+    $self->{port} = $port;
+    $self->{pid} = $$;
+    $self->{tid} = _get_tid();
+
+    return $self;
+}
+
+sub start_ssl {
+    my ($self, $host) = @_;
+
+    # As this might be used via CONNECT after an SSL session
+    # to a proxy, we shut down any existing SSL before attempting
+    # the handshake
+    if ( ref($self->{fh}) eq 'IO::Socket::SSL' ) {
+        unless ( $self->{fh}->stop_SSL ) {
+            my $ssl_err = IO::Socket::SSL->errstr;
+            die(qq/Error halting prior SSL connection: $ssl_err/);
+        }
+    }
+
+    my $ssl_args = $self->_ssl_args($host);
+    IO::Socket::SSL->start_SSL(
+        $self->{fh},
+        %$ssl_args,
+        SSL_create_ctx_callback => sub {
+            my $ctx = shift;
+            Net::SSLeay::CTX_set_mode($ctx, Net::SSLeay::MODE_AUTO_RETRY());
+        },
+    );
+
+    unless ( ref($self->{fh}) eq 'IO::Socket::SSL' ) {
+        my $ssl_err = IO::Socket::SSL->errstr;
+        die(qq/SSL connection failed for $host: $ssl_err\n/);
+    }
+}
+
+sub close {
+    @_ == 1 || die(q/Usage: $handle->close()/ . "\n");
+    my ($self) = @_;
+    CORE::close($self->{fh})
+      or die(qq/Could not close socket: '$!'\n/);
+}
+
+sub write {
+    @_ == 2 || die(q/Usage: $handle->write(buf)/ . "\n");
+    my ($self, $buf) = @_;
+
+    if ( $] ge '5.008' ) {
+        utf8::downgrade($buf, 1)
+            or die(qq/Wide character in write()\n/);
+    }
+
+    my $len = length $buf;
+    my $off = 0;
+
+    local $SIG{PIPE} = 'IGNORE';
+
+    while () {
+        $self->can_write
+          or die(qq/Timed out while waiting for socket to become ready for writing\n/);
+        my $r = syswrite($self->{fh}, $buf, $len, $off);
+        if (defined $r) {
+            $len -= $r;
+            $off += $r;
+            last unless $len > 0;
+        }
+        elsif ($! == EPIPE) {
+            die(qq/Socket closed by remote server: $!\n/);
+        }
+        elsif ($! != EINTR) {
+            if ($self->{fh}->can('errstr')){
+                my $err = $self->{fh}->errstr();
+                die (qq/Could not write to SSL socket: '$err'\n /);
+            }
+            else {
+                die(qq/Could not write to socket: '$!'\n/);
+            }
+
+        }
+    }
+    return $off;
+}
+
+sub read {
+    @_ == 2 || @_ == 3 || die(q/Usage: $handle->read(len [, allow_partial])/ . "\n");
+    my ($self, $len, $allow_partial) = @_;
+
+    my $buf  = '';
+    my $got = length $self->{rbuf};
+
+    if ($got) {
+        my $take = ($got < $len) ? $got : $len;
+        $buf  = substr($self->{rbuf}, 0, $take, '');
+        $len -= $take;
+    }
+
+    while ($len > 0) {
+        $self->can_read
+          or die(q/Timed out while waiting for socket to become ready for reading/ . "\n");
+        my $r = sysread($self->{fh}, $buf, $len, length $buf);
+        if (defined $r) {
+            last unless $r;
+            $len -= $r;
+        }
+        elsif ($! != EINTR) {
+            if ($self->{fh}->can('errstr')){
+                my $err = $self->{fh}->errstr();
+                die (qq/Could not read from SSL socket: '$err'\n /);
+            }
+            else {
+                die(qq/Could not read from socket: '$!'\n/);
+            }
+        }
+    }
+    if ($len && !$allow_partial) {
+        die(qq/Unexpected end of stream\n/);
+    }
+    return $buf;
+}
+
+sub readline {
+    @_ == 1 || die(q/Usage: $handle->readline()/ . "\n");
+    my ($self) = @_;
+
+    while () {
+        if ($self->{rbuf} =~ s/\A ([^\x0D\x0A]* \x0D?\x0A)//x) {
+            return $1;
+        }
+        if (length $self->{rbuf} >= $self->{max_line_size}) {
+            die(qq/Line size exceeds the maximum allowed size of $self->{max_line_size}\n/);
+        }
+        $self->can_read
+          or die(qq/Timed out while waiting for socket to become ready for reading\n/);
+        my $r = sysread($self->{fh}, $self->{rbuf}, BUFSIZE, length $self->{rbuf});
+        if (defined $r) {
+            last unless $r;
+        }
+        elsif ($! != EINTR) {
+            if ($self->{fh}->can('errstr')){
+                my $err = $self->{fh}->errstr();
+                die (qq/Could not read from SSL socket: '$err'\n /);
+            }
+            else {
+                die(qq/Could not read from socket: '$!'\n/);
+            }
+        }
+    }
+    die(qq/Unexpected end of stream while looking for line\n/);
+}
+
+sub read_header_lines {
+    @_ == 1 || @_ == 2 || die(q/Usage: $handle->read_header_lines([headers])/ . "\n");
+    my ($self, $headers) = @_;
+    $headers ||= {};
+    my $lines   = 0;
+    my $val;
+
+    while () {
+         my $line = $self->readline;
+
+         if (++$lines >= $self->{max_header_lines}) {
+             die(qq/Header lines exceeds maximum number allowed of $self->{max_header_lines}\n/);
+         }
+         elsif ($line =~ /\A ([^\x00-\x1F\x7F:]+) : [\x09\x20]* ([^\x0D\x0A]*)/x) {
+             my ($field_name) = lc $1;
+             if (exists $headers->{$field_name}) {
+                 for ($headers->{$field_name}) {
+                     $_ = [$_] unless ref $_ eq "ARRAY";
+                     push @$_, $2;
+                     $val = \$_->[-1];
+                 }
+             }
+             else {
+                 $val = \($headers->{$field_name} = $2);
+             }
+         }
+         elsif ($line =~ /\A [\x09\x20]+ ([^\x0D\x0A]*)/x) {
+             $val
+               or die(qq/Unexpected header continuation line\n/);
+             next unless length $1;
+             $$val .= ' ' if length $$val;
+             $$val .= $1;
+         }
+         elsif ($line =~ /\A \x0D?\x0A \z/x) {
+            last;
+         }
+         else {
+            die(q/Malformed header line: / . $Printable->($line) . "\n");
+         }
+    }
+    return $headers;
+}
+
+sub write_request {
+    @_ == 2 || die(q/Usage: $handle->write_request(request)/ . "\n");
+    my($self, $request) = @_;
+    $self->write_request_header(@{$request}{qw/method uri headers/});
+    $self->write_body($request) if $request->{cb};
+    return;
+}
+
+my %HeaderCase = (
+    'content-md5'      => 'Content-MD5',
+    'etag'             => 'ETag',
+    'te'               => 'TE',
+    'www-authenticate' => 'WWW-Authenticate',
+    'x-xss-protection' => 'X-XSS-Protection',
+);
+
+# to avoid multiple small writes and hence nagle, you can pass the method line or anything else to
+# combine writes.
+sub write_header_lines {
+    (@_ == 2 || @_ == 3 && ref $_[1] eq 'HASH') || die(q/Usage: $handle->write_header_lines(headers[,prefix])/ . "\n");
+    my($self, $headers, $prefix_data) = @_;
+
+    my $buf = (defined $prefix_data ? $prefix_data : '');
+    while (my ($k, $v) = each %$headers) {
+        my $field_name = lc $k;
+        if (exists $HeaderCase{$field_name}) {
+            $field_name = $HeaderCase{$field_name};
+        }
+        else {
+            $field_name =~ /\A $Token+ \z/xo
+              or die(q/Invalid HTTP header field name: / . $Printable->($field_name) . "\n");
+            $field_name =~ s/\b(\w)/\u$1/g;
+            $HeaderCase{lc $field_name} = $field_name;
+        }
+        for (ref $v eq 'ARRAY' ? @$v : $v) {
+            $_ = '' unless defined $_;
+            $buf .= "$field_name: $_\x0D\x0A";
+        }
+    }
+    $buf .= "\x0D\x0A";
+    return $self->write($buf);
+}
+
+# return value indicates whether message length was defined; this is generally
+# true unless there was no content-length header and we just read until EOF.
+# Other message length errors are thrown as exceptions
+sub read_body {
+    @_ == 3 || die(q/Usage: $handle->read_body(callback, response)/ . "\n");
+    my ($self, $cb, $response) = @_;
+    my $te = $response->{headers}{'transfer-encoding'} || '';
+    my $chunked = grep { /chunked/i } ( ref $te eq 'ARRAY' ? @$te : $te ) ;
+    return $chunked
+        ? $self->read_chunked_body($cb, $response)
+        : $self->read_content_body($cb, $response);
+}
+
+sub write_body {
+    @_ == 2 || die(q/Usage: $handle->write_body(request)/ . "\n");
+    my ($self, $request) = @_;
+    if ($request->{headers}{'content-length'}) {
+        return $self->write_content_body($request);
+    }
+    else {
+        return $self->write_chunked_body($request);
+    }
+}
+
+sub read_content_body {
+    @_ == 3 || @_ == 4 || die(q/Usage: $handle->read_content_body(callback, response, [read_length])/ . "\n");
+    my ($self, $cb, $response, $content_length) = @_;
+    $content_length ||= $response->{headers}{'content-length'};
+
+    if ( defined $content_length ) {
+        my $len = $content_length;
+        while ($len > 0) {
+            my $read = ($len > BUFSIZE) ? BUFSIZE : $len;
+            $cb->($self->read($read, 0), $response);
+            $len -= $read;
+        }
+        return length($self->{rbuf}) == 0;
+    }
+
+    my $chunk;
+    $cb->($chunk, $response) while length( $chunk = $self->read(BUFSIZE, 1) );
+
+    return;
+}
+
+sub write_content_body {
+    @_ == 2 || die(q/Usage: $handle->write_content_body(request)/ . "\n");
+    my ($self, $request) = @_;
+
+    my ($len, $content_length) = (0, $request->{headers}{'content-length'});
+    while () {
+        my $data = $request->{cb}->();
+
+        defined $data && length $data
+          or last;
+
+        if ( $] ge '5.008' ) {
+            utf8::downgrade($data, 1)
+                or die(qq/Wide character in write_content()\n/);
+        }
+
+        $len += $self->write($data);
+    }
+
+    $len == $content_length
+      or die(qq/Content-Length mismatch (got: $len expected: $content_length)\n/);
+
+    return $len;
+}
+
+sub read_chunked_body {
+    @_ == 3 || die(q/Usage: $handle->read_chunked_body(callback, $response)/ . "\n");
+    my ($self, $cb, $response) = @_;
+
+    while () {
+        my $head = $self->readline;
+
+        $head =~ /\A ([A-Fa-f0-9]+)/x
+          or die(q/Malformed chunk head: / . $Printable->($head) . "\n");
+
+        my $len = hex($1)
+          or last;
+
+        $self->read_content_body($cb, $response, $len);
+
+        $self->read(2) eq "\x0D\x0A"
+          or die(qq/Malformed chunk: missing CRLF after chunk data\n/);
+    }
+    $self->read_header_lines($response->{headers});
+    return 1;
+}
+
+sub write_chunked_body {
+    @_ == 2 || die(q/Usage: $handle->write_chunked_body(request)/ . "\n");
+    my ($self, $request) = @_;
+
+    my $len = 0;
+    while () {
+        my $data = $request->{cb}->();
+
+        defined $data && length $data
+          or last;
+
+        if ( $] ge '5.008' ) {
+            utf8::downgrade($data, 1)
+                or die(qq/Wide character in write_chunked_body()\n/);
+        }
+
+        $len += length $data;
+
+        my $chunk  = sprintf '%X', length $data;
+           $chunk .= "\x0D\x0A";
+           $chunk .= $data;
+           $chunk .= "\x0D\x0A";
+
+        $self->write($chunk);
+    }
+    $self->write("0\x0D\x0A");
+    $self->write_header_lines($request->{trailer_cb}->())
+        if ref $request->{trailer_cb} eq 'CODE';
+    return $len;
+}
+
+sub read_response_header {
+    @_ == 1 || die(q/Usage: $handle->read_response_header()/ . "\n");
+    my ($self) = @_;
+
+    my $line = $self->readline;
+
+    $line =~ /\A (HTTP\/(0*\d+\.0*\d+)) [\x09\x20]+ ([0-9]{3}) [\x09\x20]+ ([^\x0D\x0A]*) \x0D?\x0A/x
+      or die(q/Malformed Status-Line: / . $Printable->($line). "\n");
+
+    my ($protocol, $version, $status, $reason) = ($1, $2, $3, $4);
+
+    die (qq/Unsupported HTTP protocol: $protocol\n/)
+        unless $version =~ /0*1\.0*[01]/;
+
+    return {
+        status       => $status,
+        reason       => $reason,
+        headers      => $self->read_header_lines,
+        protocol     => $protocol,
+    };
+}
+
+sub write_request_header {
+    @_ == 4 || die(q/Usage: $handle->write_request_header(method, request_uri, headers)/ . "\n");
+    my ($self, $method, $request_uri, $headers) = @_;
+
+    return $self->write_header_lines($headers, "$method $request_uri HTTP/1.1\x0D\x0A");
+}
+
+sub _do_timeout {
+    my ($self, $type, $timeout) = @_;
+    $timeout = $self->{timeout}
+        unless defined $timeout && $timeout >= 0;
+
+    my $fd = fileno $self->{fh};
+    defined $fd && $fd >= 0
+      or die(qq/select(2): 'Bad file descriptor'\n/);
+
+    my $initial = time;
+    my $pending = $timeout;
+    my $nfound;
+
+    vec(my $fdset = '', $fd, 1) = 1;
+
+    while () {
+        $nfound = ($type eq 'read')
+            ? select($fdset, undef, undef, $pending)
+            : select(undef, $fdset, undef, $pending) ;
+        if ($nfound == -1) {
+            $! == EINTR
+              or die(qq/select(2): '$!'\n/);
+            redo if !$timeout || ($pending = $timeout - (time - $initial)) > 0;
+            $nfound = 0;
+        }
+        last;
+    }
+    $! = 0;
+    return $nfound;
+}
+
+sub can_read {
+    @_ == 1 || @_ == 2 || die(q/Usage: $handle->can_read([timeout])/ . "\n");
+    my $self = shift;
+    if ( ref($self->{fh}) eq 'IO::Socket::SSL' ) {
+        return 1 if $self->{fh}->pending;
+    }
+    return $self->_do_timeout('read', @_)
+}
+
+sub can_write {
+    @_ == 1 || @_ == 2 || die(q/Usage: $handle->can_write([timeout])/ . "\n");
+    my $self = shift;
+    return $self->_do_timeout('write', @_)
+}
+
+sub _assert_ssl {
+    my($ok, $reason) = HTTP::Tiny->can_ssl();
+    die $reason unless $ok;
+}
+
+sub can_reuse {
+    my ($self,$scheme,$host,$port) = @_;
+    return 0 if
+        $self->{pid} != $$
+        || $self->{tid} != _get_tid()
+        || length($self->{rbuf})
+        || $scheme ne $self->{scheme}
+        || $host ne $self->{host}
+        || $port ne $self->{port}
+        || eval { $self->can_read(0) }
+        || $@ ;
+        return 1;
+}
+
+# Try to find a CA bundle to validate the SSL cert,
+# prefer Mozilla::CA or fallback to a system file
+sub _find_CA_file {
+    my $self = shift();
+
+    if ( $self->{SSL_options}->{SSL_ca_file} ) {
+        unless ( -r $self->{SSL_options}->{SSL_ca_file} ) {
+            die qq/SSL_ca_file '$self->{SSL_options}->{SSL_ca_file}' not found or not readable\n/;
+        }
+        return $self->{SSL_options}->{SSL_ca_file};
+    }
+
+    local @INC = @INC;
+    pop @INC if $INC[-1] eq '.';
+    return Mozilla::CA::SSL_ca_file()
+        if eval { require Mozilla::CA; 1 };
+
+    # cert list copied from golang src/crypto/x509/root_unix.go
+    foreach my $ca_bundle (
+        "/etc/ssl/certs/ca-certificates.crt",     # Debian/Ubuntu/Gentoo etc.
+        "/etc/pki/tls/certs/ca-bundle.crt",       # Fedora/RHEL
+        "/etc/ssl/ca-bundle.pem",                 # OpenSUSE
+        "/etc/openssl/certs/ca-certificates.crt", # NetBSD
+        "/etc/ssl/cert.pem",                      # OpenBSD
+        "/usr/local/share/certs/ca-root-nss.crt", # FreeBSD/DragonFly
+        "/etc/pki/tls/cacert.pem",                # OpenELEC
+        "/etc/certs/ca-certificates.crt",         # Solaris 11.2+
+    ) {
+        return $ca_bundle if -e $ca_bundle;
+    }
+
+    die qq/Couldn't find a CA bundle with which to verify the SSL certificate.\n/
+      . qq/Try installing Mozilla::CA from CPAN\n/;
+}
+
+# for thread safety, we need to know thread id if threads are loaded
+sub _get_tid {
+    no warnings 'reserved'; # for 'threads'
+    return threads->can("tid") ? threads->tid : 0;
+}
+
+sub _ssl_args {
+    my ($self, $host) = @_;
+
+    my %ssl_args;
+
+    # This test reimplements IO::Socket::SSL::can_client_sni(), which wasn't
+    # added until IO::Socket::SSL 1.84
+    if ( Net::SSLeay::OPENSSL_VERSION_NUMBER() >= 0x01000000 ) {
+        $ssl_args{SSL_hostname} = $host,          # Sane SNI support
+    }
+
+    if ($self->{verify_SSL}) {
+        $ssl_args{SSL_verifycn_scheme}  = 'http'; # enable CN validation
+        $ssl_args{SSL_verifycn_name}    = $host;  # set validation hostname
+        $ssl_args{SSL_verify_mode}      = 0x01;   # enable cert validation
+        $ssl_args{SSL_ca_file}          = $self->_find_CA_file;
+    }
+    else {
+        $ssl_args{SSL_verifycn_scheme}  = 'none'; # disable CN validation
+        $ssl_args{SSL_verify_mode}      = 0x00;   # disable cert validation
+    }
+
+    # user options override settings from verify_SSL
+    for my $k ( keys %{$self->{SSL_options}} ) {
+        $ssl_args{$k} = $self->{SSL_options}{$k} if $k =~ m/^SSL_/;
+    }
+
+    return \%ssl_args;
+}
+
+1;
+
+__END__
+
+=pod
+
+=encoding UTF-8
+
+=head1 NAME
+
+HTTP::Tiny - A small, simple, correct HTTP/1.1 client
+
+=head1 VERSION
+
+version 0.056
+
+=head1 SYNOPSIS
+
+    use HTTP::Tiny;
+
+    my $response = HTTP::Tiny->new->get('http://example.com/');
+
+    die "Failed!\n" unless $response->{success};
+
+    print "$response->{status} $response->{reason}\n";
+
+    while (my ($k, $v) = each %{$response->{headers}}) {
+        for (ref $v eq 'ARRAY' ? @$v : $v) {
+            print "$k: $_\n";
+        }
+    }
+
+    print $response->{content} if length $response->{content};
+
+=head1 DESCRIPTION
+
+This is a very simple HTTP/1.1 client, designed for doing simple
+requests without the overhead of a large framework like L<LWP::UserAgent>.
+
+It is more correct and more complete than L<HTTP::Lite>.  It supports
+proxies and redirection.  It also correctly resumes after EINTR.
+
+If L<IO::Socket::IP> 0.25 or later is installed, HTTP::Tiny will use it instead
+of L<IO::Socket::INET> for transparent support for both IPv4 and IPv6.
+
+Cookie support requires L<HTTP::CookieJar> or an equivalent class.
+
+=head1 METHODS
+
+=head2 new
+
+    $http = HTTP::Tiny->new( %attributes );
+
+This constructor returns a new HTTP::Tiny object.  Valid attributes include:
+
+=over 4
+
+=item *
+
+C<agent> — A user-agent string (defaults to 'HTTP-Tiny/$VERSION'). If C<agent> — ends in a space character, the default user-agent string is appended.
+
+=item *
+
+C<cookie_jar> — An instance of L<HTTP::CookieJar> — or equivalent class that supports the C<add> and C<cookie_header> methods
+
+=item *
+
+C<default_headers> — A hashref of default headers to apply to requests
+
+=item *
+
+C<local_address> — The local IP address to bind to
+
+=item *
+
+C<keep_alive> — Whether to reuse the last connection (if for the same scheme, host and port) (defaults to 1)
+
+=item *
+
+C<max_redirect> — Maximum number of redirects allowed (defaults to 5)
+
+=item *
+
+C<max_size> — Maximum response size in bytes (only when not using a data callback).  If defined, responses larger than this will return an exception.
+
+=item *
+
+C<http_proxy> — URL of a proxy server to use for HTTP connections (default is C<$ENV{http_proxy}> — if set)
+
+=item *
+
+C<https_proxy> — URL of a proxy server to use for HTTPS connections (default is C<$ENV{https_proxy}> — if set)
+
+=item *
+
+C<proxy> — URL of a generic proxy server for both HTTP and HTTPS connections (default is C<$ENV{all_proxy}> — if set)
+
+=item *
+
+C<no_proxy> — List of domain suffixes that should not be proxied.  Must be a comma-separated string or an array reference. (default is C<$ENV{no_proxy}> —)
+
+=item *
+
+C<timeout> — Request timeout in seconds (default is 60)
+
+=item *
+
+C<verify_SSL> — A boolean that indicates whether to validate the SSL certificate of an C<https> — connection (default is false)
+
+=item *
+
+C<SSL_options> — A hashref of C<SSL_*> — options to pass through to L<IO::Socket::SSL>
+
+=back
+
+Passing an explicit C<undef> for C<proxy>, C<http_proxy> or C<https_proxy> will
+prevent getting the corresponding proxies from the environment.
+
+Exceptions from C<max_size>, C<timeout> or other errors will result in a
+pseudo-HTTP status code of 599 and a reason of "Internal Exception". The
+content field in the response will contain the text of the exception.
+
+The C<keep_alive> parameter enables a persistent connection, but only to a
+single destination scheme, host and port.  Also, if any connection-relevant
+attributes are modified, or if the process ID or thread ID change, the
+persistent connection will be dropped.  If you want persistent connections
+across multiple destinations, use multiple HTTP::Tiny objects.
+
+See L</SSL SUPPORT> for more on the C<verify_SSL> and C<SSL_options> attributes.
+
+=head2 get|head|put|post|delete
+
+    $response = $http->get($url);
+    $response = $http->get($url, \%options);
+    $response = $http->head($url);
+
+These methods are shorthand for calling C<request()> for the given method.  The
+URL must have unsafe characters escaped and international domain names encoded.
+See C<request()> for valid options and a description of the response.
+
+The C<success> field of the response will be true if the status code is 2XX.
+
+=head2 post_form
+
+    $response = $http->post_form($url, $form_data);
+    $response = $http->post_form($url, $form_data, \%options);
+
+This method executes a C<POST> request and sends the key/value pairs from a
+form data hash or array reference to the given URL with a C<content-type> of
+C<application/x-www-form-urlencoded>.  If data is provided as an array
+reference, the order is preserved; if provided as a hash reference, the terms
+are sorted on key and value for consistency.  See documentation for the
+C<www_form_urlencode> method for details on the encoding.
+
+The URL must have unsafe characters escaped and international domain names
+encoded.  See C<request()> for valid options and a description of the response.
+Any C<content-type> header or content in the options hashref will be ignored.
+
+The C<success> field of the response will be true if the status code is 2XX.
+
+=head2 mirror
+
+    $response = $http->mirror($url, $file, \%options)
+    if ( $response->{success} ) {
+        print "$file is up to date\n";
+    }
+
+Executes a C<GET> request for the URL and saves the response body to the file
+name provided.  The URL must have unsafe characters escaped and international
+domain names encoded.  If the file already exists, the request will include an
+C<If-Modified-Since> header with the modification timestamp of the file.  You
+may specify a different C<If-Modified-Since> header yourself in the C<<
+$options->{headers} >> hash.
+
+The C<success> field of the response will be true if the status code is 2XX
+or if the status code is 304 (unmodified).
+
+If the file was modified and the server response includes a properly
+formatted C<Last-Modified> header, the file modification time will
+be updated accordingly.
+
+=head2 request
+
+    $response = $http->request($method, $url);
+    $response = $http->request($method, $url, \%options);
+
+Executes an HTTP request of the given method type ('GET', 'HEAD', 'POST',
+'PUT', etc.) on the given URL.  The URL must have unsafe characters escaped and
+international domain names encoded.
+
+If the URL includes a "user:password" stanza, they will be used for Basic-style
+authorization headers.  (Authorization headers will not be included in a
+redirected request.) For example:
+
+    $http->request('GET', 'http://Aladdin:open sesame@example.com/');
+
+If the "user:password" stanza contains reserved characters, they must
+be percent-escaped:
+
+    $http->request('GET', 'http://john%40example.com:password@example.com/');
+
+A hashref of options may be appended to modify the request.
+
+Valid options are:
+
+=over 4
+
+=item *
+
+C<headers> — A hashref containing headers to include with the request.  If the value for a header is an array reference, the header will be output multiple times with each value in the array.  These headers over-write any default headers.
+
+=item *
+
+C<content> — A scalar to include as the body of the request OR a code reference that will be called iteratively to produce the body of the request
+
+=item *
+
+C<trailer_callback> — A code reference that will be called if it exists to provide a hashref of trailing headers (only used with chunked transfer-encoding)
+
+=item *
+
+C<data_callback> — A code reference that will be called for each chunks of the response body received.
+
+=back
+
+The C<Host> header is generated from the URL in accordance with RFC 2616.  It
+is a fatal error to specify C<Host> in the C<headers> option.  Other headers
+may be ignored or overwritten if necessary for transport compliance.
+
+If the C<content> option is a code reference, it will be called iteratively
+to provide the content body of the request.  It should return the empty
+string or undef when the iterator is exhausted.
+
+If the C<content> option is the empty string, no C<content-type> or
+C<content-length> headers will be generated.
+
+If the C<data_callback> option is provided, it will be called iteratively until
+the entire response body is received.  The first argument will be a string
+containing a chunk of the response body, the second argument will be the
+in-progress response hash reference, as described below.  (This allows
+customizing the action of the callback based on the C<status> or C<headers>
+received prior to the content body.)
+
+The C<request> method returns a hashref containing the response.  The hashref
+will have the following keys:
+
+=over 4
+
+=item *
+
+C<success> — Boolean indicating whether the operation returned a 2XX status code
+
+=item *
+
+C<url> — URL that provided the response. This is the URL of the request unless there were redirections, in which case it is the last URL queried in a redirection chain
+
+=item *
+
+C<status> — The HTTP status code of the response
+
+=item *
+
+C<reason> — The response phrase returned by the server
+
+=item *
+
+C<content> — The body of the response.  If the response does not have any content or if a data callback is provided to consume the response body, this will be the empty string
+
+=item *
+
+C<headers> — A hashref of header fields.  All header field names will be normalized to be lower case. If a header is repeated, the value will be an arrayref; it will otherwise be a scalar string containing the value
+
+=back
+
+On an exception during the execution of the request, the C<status> field will
+contain 599, and the C<content> field will contain the text of the exception.
+
+=head2 www_form_urlencode
+
+    $params = $http->www_form_urlencode( $data );
+    $response = $http->get("http://example.com/query?$params");
+
+This method converts the key/value pairs from a data hash or array reference
+into a C<x-www-form-urlencoded> string.  The keys and values from the data
+reference will be UTF-8 encoded and escaped per RFC 3986.  If a value is an
+array reference, the key will be repeated with each of the values of the array
+reference.  If data is provided as a hash reference, the key/value pairs in the
+resulting string will be sorted by key and value for consistent ordering.
+
+=head2 can_ssl
+
+    $ok         = HTTP::Tiny->can_ssl;
+    ($ok, $why) = HTTP::Tiny->can_ssl;
+    ($ok, $why) = $http->can_ssl;
+
+Indicates if SSL support is available.  When called as a class object, it
+checks for the correct version of L<Net::SSLeay> and L<IO::Socket::SSL>.
+When called as an object methods, if C<SSL_verify> is true or if C<SSL_verify_mode>
+is set in C<SSL_options>, it checks that a CA file is available.
+
+In scalar context, returns a boolean indicating if SSL is available.
+In list context, returns the boolean and a (possibly multi-line) string of
+errors indicating why SSL isn't available.
+
+=for Pod::Coverage SSL_options
+agent
+cookie_jar
+default_headers
+http_proxy
+https_proxy
+keep_alive
+local_address
+max_redirect
+max_size
+no_proxy
+proxy
+timeout
+verify_SSL
+
+=head1 SSL SUPPORT
+
+Direct C<https> connections are supported only if L<IO::Socket::SSL> 1.56 or
+greater and L<Net::SSLeay> 1.49 or greater are installed. An exception will be
+thrown if new enough versions of these modules are not installed or if the SSL
+encryption fails. You can also use C<HTTP::Tiny::can_ssl()> utility function
+that returns boolean to see if the required modules are installed.
+
+An C<https> connection may be made via an C<http> proxy that supports the CONNECT
+command (i.e. RFC 2817).  You may not proxy C<https> via a proxy that itself
+requires C<https> to communicate.
+
+SSL provides two distinct capabilities:
+
+=over 4
+
+=item *
+
+Encrypted communication channel
+
+=item *
+
+Verification of server identity
+
+=back
+
+B<By default, HTTP::Tiny does not verify server identity>.
+
+Server identity verification is controversial and potentially tricky because it
+depends on a (usually paid) third-party Certificate Authority (CA) trust model
+to validate a certificate as legitimate.  This discriminates against servers
+with self-signed certificates or certificates signed by free, community-driven
+CA's such as L<CAcert.org|http://cacert.org>.
+
+By default, HTTP::Tiny does not make any assumptions about your trust model,
+threat level or risk tolerance.  It just aims to give you an encrypted channel
+when you need one.
+
+Setting the C<verify_SSL> attribute to a true value will make HTTP::Tiny verify
+that an SSL connection has a valid SSL certificate corresponding to the host
+name of the connection and that the SSL certificate has been verified by a CA.
+Assuming you trust the CA, this will protect against a L<man-in-the-middle
+attack|http://en.wikipedia.org/wiki/Man-in-the-middle_attack>.  If you are
+concerned about security, you should enable this option.
+
+Certificate verification requires a file containing trusted CA certificates.
+If the L<Mozilla::CA> module is installed, HTTP::Tiny will use the CA file
+included with it as a source of trusted CA's.  (This means you trust Mozilla,
+the author of Mozilla::CA, the CPAN mirror where you got Mozilla::CA, the
+toolchain used to install it, and your operating system security, right?)
+
+If that module is not available, then HTTP::Tiny will search several
+system-specific default locations for a CA certificate file:
+
+=over 4
+
+=item *
+
+/etc/ssl/certs/ca-certificates.crt
+
+=item *
+
+/etc/pki/tls/certs/ca-bundle.crt
+
+=item *
+
+/etc/ssl/ca-bundle.pem
+
+=back
+
+An exception will be raised if C<verify_SSL> is true and no CA certificate file
+is available.
+
+If you desire complete control over SSL connections, the C<SSL_options> attribute
+lets you provide a hash reference that will be passed through to
+C<IO::Socket::SSL::start_SSL()>, overriding any options set by HTTP::Tiny. For
+example, to provide your own trusted CA file:
+
+    SSL_options => {
+        SSL_ca_file => $file_path,
+    }
+
+The C<SSL_options> attribute could also be used for such things as providing a
+client certificate for authentication to a server or controlling the choice of
+cipher used for the SSL connection. See L<IO::Socket::SSL> documentation for
+details.
+
+=head1 PROXY SUPPORT
+
+HTTP::Tiny can proxy both C<http> and C<https> requests.  Only Basic proxy
+authorization is supported and it must be provided as part of the proxy URL:
+C<http://user:pass@proxy.example.com/>.
+
+HTTP::Tiny supports the following proxy environment variables:
+
+=over 4
+
+=item *
+
+http_proxy or HTTP_PROXY
+
+=item *
+
+https_proxy or HTTPS_PROXY
+
+=item *
+
+all_proxy or ALL_PROXY
+
+=back
+
+If the C<REQUEST_METHOD> environment variable is set, then this might be a CGI
+process and C<HTTP_PROXY> would be set from the C<Proxy:> header, which is a
+security risk.  If C<REQUEST_METHOD> is set, C<HTTP_PROXY> (the upper case
+variant only) is ignored.
+
+Tunnelling C<https> over an C<http> proxy using the CONNECT method is
+supported.  If your proxy uses C<https> itself, you can not tunnel C<https>
+over it.
+
+Be warned that proxying an C<https> connection opens you to the risk of a
+man-in-the-middle attack by the proxy server.
+
+The C<no_proxy> environment variable is supported in the format of a
+comma-separated list of domain extensions proxy should not be used for.
+
+Proxy arguments passed to C<new> will override their corresponding
+environment variables.
+
+=head1 LIMITATIONS
+
+HTTP::Tiny is I<conditionally compliant> with the
+L<HTTP/1.1 specifications|http://www.w3.org/Protocols/>:
+
+=over 4
+
+=item *
+
+"Message Syntax and Routing" [RFC7230]
+
+=item *
+
+"Semantics and Content" [RFC7231]
+
+=item *
+
+"Conditional Requests" [RFC7232]
+
+=item *
+
+"Range Requests" [RFC7233]
+
+=item *
+
+"Caching" [RFC7234]
+
+=item *
+
+"Authentication" [RFC7235]
+
+=back
+
+It attempts to meet all "MUST" requirements of the specification, but does not
+implement all "SHOULD" requirements.  (Note: it was developed against the
+earlier RFC 2616 specification and may not yet meet the revised RFC 7230-7235
+spec.)
+
+Some particular limitations of note include:
+
+=over
+
+=item *
+
+HTTP::Tiny focuses on correct transport.  Users are responsible for ensuring
+that user-defined headers and content are compliant with the HTTP/1.1
+specification.
+
+=item *
+
+Users must ensure that URLs are properly escaped for unsafe characters and that
+international domain names are properly encoded to ASCII. See L<URI::Escape>,
+L<URI::_punycode> and L<Net::IDN::Encode>.
+
+=item *
+
+Redirection is very strict against the specification.  Redirection is only
+automatic for response codes 301, 302, 307 and 308 if the request method is
+'GET' or 'HEAD'.  Response code 303 is always converted into a 'GET'
+redirection, as mandated by the specification.  There is no automatic support
+for status 305 ("Use proxy") redirections.
+
+=item *
+
+There is no provision for delaying a request body using an C<Expect> header.
+Unexpected C<1XX> responses are silently ignored as per the specification.
+
+=item *
+
+Only 'chunked' C<Transfer-Encoding> is supported.
+
+=item *
+
+There is no support for a Request-URI of '*' for the 'OPTIONS' request.
+
+=back
+
+Despite the limitations listed above, HTTP::Tiny is considered
+feature-complete.  New feature requests should be directed to
+L<HTTP::Tiny::UA>.
+
+=head1 SEE ALSO
+
+=over 4
+
+=item *
+
+L<HTTP::Tiny::UA> - Higher level UA features for HTTP::Tiny
+
+=item *
+
+L<HTTP::Thin> - HTTP::Tiny wrapper with L<HTTP::Request>/L<HTTP::Response> compatibility
+
+=item *
+
+L<HTTP::Tiny::Mech> - Wrap L<WWW::Mechanize> instance in HTTP::Tiny compatible interface
+
+=item *
+
+L<IO::Socket::IP> - Required for IPv6 support
+
+=item *
+
+L<IO::Socket::SSL> - Required for SSL support
+
+=item *
+
+L<LWP::UserAgent> - If HTTP::Tiny isn't enough for you, this is the "standard" way to do things
+
+=item *
+
+L<Mozilla::CA> - Required if you want to validate SSL certificates
+
+=item *
+
+L<Net::SSLeay> - Required for SSL support
+
+=back
+
+=for :stopwords cpan testmatrix url annocpan anno bugtracker rt cpants kwalitee diff irc mailto metadata placeholders metacpan
+
+=head1 SUPPORT
+
+=head2 Bugs / Feature Requests
+
+Please report any bugs or feature requests through the issue tracker
+at L<https://github.com/chansen/p5-http-tiny/issues>.
+You will be notified automatically of any progress on your issue.
+
+=head2 Source Code
+
+This is open source software.  The code repository is available for
+public review and contribution under the terms of the license.
+
+L<https://github.com/chansen/p5-http-tiny>
+
+  git clone https://github.com/chansen/p5-http-tiny.git
+
+=head1 AUTHORS
+
+=over 4
+
+=item *
+
+Christian Hansen <chansen@cpan.org>
+
+=item *
+
+David Golden <dagolden@cpan.org>
+
+=back
+
+=head1 CONTRIBUTORS
+
+=for stopwords Alan Gardner Alessandro Ghedini Brad Gilbert Chris Nehren Weyl Claes Jakobsson Clinton Gormley Dean Pearce Edward Zborowski James Raspass Jeremy Mates Jess Robinson Lukas Eklund Martin J. Evans Martin-Louis Bright Mike Doherty Olaf Alders Olivier Mengué Petr Písař Sören Kornetzki Syohei YOSHIDA Tatsuhiko Miyagawa Tom Hukins Tony Cook
+
+=over 4
+
+=item *
+
+Alan Gardner <gardner@pythian.com>
+
+=item *
+
+Alessandro Ghedini <al3xbio@gmail.com>
+
+=item *
+
+Brad Gilbert <bgills@cpan.org>
+
+=item *
+
+Chris Nehren <apeiron@cpan.org>
+
+=item *
+
+Chris Weyl <cweyl@alumni.drew.edu>
+
+=item *
+
+Claes Jakobsson <claes@surfar.nu>
+
+=item *
+
+Clinton Gormley <clint@traveljury.com>
+
+=item *
+
+Dean Pearce <pearce@pythian.com>
+
+=item *
+
+Edward Zborowski <ed@rubensteintech.com>
+
+=item *
+
+James Raspass <jraspass@gmail.com>
+
+=item *
+
+Jeremy Mates <jmates@cpan.org>
+
+=item *
+
+Jess Robinson <castaway@desert-island.me.uk>
+
+=item *
+
+Lukas Eklund <leklund@gmail.com>
+
+=item *
+
+Martin J. Evans <mjegh@ntlworld.com>
+
+=item *
+
+Martin-Louis Bright <mlbright@gmail.com>
+
+=item *
+
+Mike Doherty <doherty@cpan.org>
+
+=item *
+
+Olaf Alders <olaf@wundersolutions.com>
+
+=item *
+
+Olivier Mengué <dolmen@cpan.org>
+
+=item *
+
+Petr Písař <ppisar@redhat.com>
+
+=item *
+
+Sören Kornetzki <soeren.kornetzki@delti.com>
+
+=item *
+
+Syohei YOSHIDA <syohex@gmail.com>
+
+=item *
+
+Tatsuhiko Miyagawa <miyagawa@bulknews.net>
+
+=item *
+
+Tom Hukins <tom@eborcom.com>
+
+=item *
+
+Tony Cook <tony@develop-help.com>
+
+=back
+
+=head1 COPYRIGHT AND LICENSE
+
+This software is copyright (c) 2015 by Christian Hansen.
+
+This is free software; you can redistribute it and/or modify it under
+the same terms as the Perl 5 programming language system itself.
+
+=cut
diff --git a/lib/5.24.1/I18N/Collate.pm b/lib/5.24.1/I18N/Collate.pm
new file mode 100644
index 00000000..e080fe6e
--- /dev/null
+++ b/lib/5.24.1/I18N/Collate.pm
@@ -0,0 +1,196 @@
+package I18N::Collate;
+
+use strict;
+our $VERSION = '1.02';
+
+=head1 NAME
+
+I18N::Collate - compare 8-bit scalar data according to the current locale
+
+=head1 SYNOPSIS
+
+    use I18N::Collate;
+    setlocale(LC_COLLATE, 'locale-of-your-choice');
+    $s1 = I18N::Collate->new("scalar_data_1");
+    $s2 = I18N::Collate->new("scalar_data_2");
+
+=head1 DESCRIPTION
+
+  ***
+
+  WARNING: starting from the Perl version 5.003_06
+  the I18N::Collate interface for comparing 8-bit scalar data
+  according to the current locale
+
+	HAS BEEN DEPRECATED
+
+  That is, please do not use it anymore for any new applications
+  and please migrate the old applications away from it because its
+  functionality was integrated into the Perl core language in the
+  release 5.003_06.
+
+  See the perllocale manual page for further information.
+
+  ***
+
+This module provides you with objects that will collate
+according to your national character set, provided that the
+POSIX setlocale() function is supported on your system.
+
+You can compare $s1 and $s2 above with
+
+    $s1 le $s2
+
+to extract the data itself, you'll need a dereference: $$s1
+
+This module uses POSIX::setlocale(). The basic collation conversion is
+done by strxfrm() which terminates at NUL characters being a decent C
+routine.  collate_xfrm() handles embedded NUL characters gracefully.
+
+The available locales depend on your operating system; try whether
+C<locale -a> shows them or man pages for "locale" or "nlsinfo" or the
+direct approach C<ls /usr/lib/nls/loc> or C<ls /usr/lib/nls> or
+C<ls /usr/lib/locale>.  Not all the locales that your vendor supports
+are necessarily installed: please consult your operating system's
+documentation and possibly your local system administration.  The
+locale names are probably something like C<xx_XX.(ISO)?8859-N> or
+C<xx_XX.(ISO)?8859N>, for example C<fr_CH.ISO8859-1> is the Swiss (CH)
+variant of French (fr), ISO Latin (8859) 1 (-1) which is the Western
+European character set.
+
+=cut
+
+# I18N::Collate.pm
+#
+# Author:	Jarkko Hietaniemi <F<jhi@iki.fi>>
+#		Helsinki University of Technology, Finland
+#
+# Acks:		Guy Decoux <F<decoux@moulon.inra.fr>> understood
+#		overloading magic much deeper than I and told
+#		how to cut the size of this code by more than half.
+#		(my first version did overload all of lt gt eq le ge cmp)
+#
+# Purpose:      compare 8-bit scalar data according to the current locale
+#
+# Requirements:	Perl5 POSIX::setlocale() and POSIX::strxfrm()
+#
+# Exports:	setlocale 1)
+#		collate_xfrm 2)
+#
+# Overloads:	cmp # 3)
+#
+# Usage:	use I18N::Collate;
+#	        setlocale(LC_COLLATE, 'locale-of-your-choice'); # 4)
+#		$s1 = I18N::Collate->("scalar_data_1");
+#		$s2 = I18N::Collate->("scalar_data_2");
+#
+#		now you can compare $s1 and $s2: $s1 le $s2
+#		to extract the data itself, you need to deref: $$s1
+#
+# Notes:
+#		1) this uses POSIX::setlocale
+#		2) the basic collation conversion is done by strxfrm() which
+#		   terminates at NUL characters being a decent C routine.
+#		   collate_xfrm handles embedded NUL characters gracefully.
+#		3) due to cmp and overload magic, lt le eq ge gt work also
+#		4) the available locales depend on your operating system;
+#		   try whether "locale -a" shows them or man pages for
+#		   "locale" or "nlsinfo" work or the more direct
+#		   approach "ls /usr/lib/nls/loc" or "ls /usr/lib/nls".
+#		   Not all the locales that your vendor supports
+#		   are necessarily installed: please consult your
+#		   operating system's documentation.
+#		   The locale names are probably something like
+#		   'xx_XX.(ISO)?8859-N' or 'xx_XX.(ISO)?8859N',
+#		   for example 'fr_CH.ISO8859-1' is the Swiss (CH)
+#		   variant of French (fr), ISO Latin (8859) 1 (-1)
+#		   which is the Western European character set.
+#
+# Updated:	19961005
+#
+# ---
+
+use POSIX qw(strxfrm LC_COLLATE);
+use warnings::register;
+
+require Exporter;
+
+our @ISA = qw(Exporter);
+our @EXPORT = qw(collate_xfrm setlocale LC_COLLATE);
+our @EXPORT_OK = qw();
+
+use overload qw(
+fallback	1
+cmp		collate_cmp
+);
+
+our($LOCALE, $C);
+
+our $please_use_I18N_Collate_even_if_deprecated = 0;
+sub new {
+  my $new = $_[1];
+
+  if (warnings::enabled() && $] >= 5.003_06) {
+    unless ($please_use_I18N_Collate_even_if_deprecated) {
+      warnings::warn <<___EOD___;
+***
+
+  WARNING: starting from the Perl version 5.003_06
+  the I18N::Collate interface for comparing 8-bit scalar data
+  according to the current locale
+
+	HAS BEEN DEPRECATED
+
+  That is, please do not use it anymore for any new applications
+  and please migrate the old applications away from it because its
+  functionality was integrated into the Perl core language in the
+  release 5.003_06.
+
+  See the perllocale manual page for further information.
+
+***
+___EOD___
+      $please_use_I18N_Collate_even_if_deprecated++;
+    }
+  }
+
+  bless \$new;
+}
+
+sub setlocale {
+ my ($category, $locale) = @_[0,1];
+
+ POSIX::setlocale($category, $locale) if (defined $category);
+ # the current $LOCALE
+ $LOCALE = $locale || $ENV{'LC_COLLATE'} || $ENV{'LC_ALL'} || '';
+}
+
+sub C {
+  my $s = ${$_[0]};
+
+  $C->{$LOCALE}->{$s} = collate_xfrm($s)
+    unless (defined $C->{$LOCALE}->{$s}); # cache when met
+
+  $C->{$LOCALE}->{$s};
+}
+
+sub collate_xfrm {
+  my $s = $_[0];
+  my $x = '';
+
+  for (split(/(\000+)/, $s)) {
+    $x .= (/^\000/) ? $_ : strxfrm("$_\000");
+  }
+
+  $x;
+}
+
+sub collate_cmp {
+  &C($_[0]) cmp &C($_[1]);
+}
+
+# init $LOCALE
+
+&I18N::Collate::setlocale();
+
+1; # keep require happy
diff --git a/lib/5.24.1/I18N/LangTags.pm b/lib/5.24.1/I18N/LangTags.pm
new file mode 100644
index 00000000..9bac7077
--- /dev/null
+++ b/lib/5.24.1/I18N/LangTags.pm
@@ -0,0 +1,887 @@
+
+# Time-stamp: "2004-10-06 23:26:33 ADT"
+# Sean M. Burke <sburke@cpan.org>
+
+require 5.000;
+package I18N::LangTags;
+use strict;
+use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $VERSION %Panic);
+require Exporter;
+@ISA = qw(Exporter);
+@EXPORT = qw();
+@EXPORT_OK = qw(is_language_tag same_language_tag
+                extract_language_tags super_languages
+                similarity_language_tag is_dialect_of
+                locale2language_tag alternate_language_tags
+                encode_language_tag panic_languages
+                implicate_supers
+                implicate_supers_strictly
+               );
+%EXPORT_TAGS = ('ALL' => \@EXPORT_OK);
+
+$VERSION = "0.40";
+
+sub uniq { my %seen; return grep(!($seen{$_}++), @_); } # a util function
+
+
+=head1 NAME
+
+I18N::LangTags - functions for dealing with RFC3066-style language tags
+
+=head1 SYNOPSIS
+
+  use I18N::LangTags();
+
+...or specify whichever of those functions you want to import, like so:
+
+  use I18N::LangTags qw(implicate_supers similarity_language_tag);
+
+All the exportable functions are listed below -- you're free to import
+only some, or none at all.  By default, none are imported.  If you
+say:
+
+    use I18N::LangTags qw(:ALL)
+
+...then all are exported.  (This saves you from having to use
+something less obvious like C<use I18N::LangTags qw(/./)>.)
+
+If you don't import any of these functions, assume a C<&I18N::LangTags::>
+in front of all the function names in the following examples.
+
+=head1 DESCRIPTION
+
+Language tags are a formalism, described in RFC 3066 (obsoleting
+1766), for declaring what language form (language and possibly
+dialect) a given chunk of information is in.
+
+This library provides functions for common tasks involving language
+tags as they are needed in a variety of protocols and applications.
+
+Please see the "See Also" references for a thorough explanation
+of how to correctly use language tags.
+
+=over
+
+=cut
+
+###########################################################################
+
+=item * the function is_language_tag($lang1)
+
+Returns true iff $lang1 is a formally valid language tag.
+
+   is_language_tag("fr")            is TRUE
+   is_language_tag("x-jicarilla")   is FALSE
+       (Subtags can be 8 chars long at most -- 'jicarilla' is 9)
+
+   is_language_tag("sgn-US")    is TRUE
+       (That's American Sign Language)
+
+   is_language_tag("i-Klikitat")    is TRUE
+       (True without regard to the fact noone has actually
+        registered Klikitat -- it's a formally valid tag)
+
+   is_language_tag("fr-patois")     is TRUE
+       (Formally valid -- altho descriptively weak!)
+
+   is_language_tag("Spanish")       is FALSE
+   is_language_tag("french-patois") is FALSE
+       (No good -- first subtag has to match
+        /^([xXiI]|[a-zA-Z]{2,3})$/ -- see RFC3066)
+
+   is_language_tag("x-borg-prot2532") is TRUE
+       (Yes, subtags can contain digits, as of RFC3066)
+
+=cut
+
+sub is_language_tag {
+
+  ## Changes in the language tagging standards may have to be reflected here.
+
+  my($tag) = lc($_[0]);
+
+  return 0 if $tag eq "i" or $tag eq "x";
+  # Bad degenerate cases that the following
+  #  regexp would erroneously let pass
+
+  return $tag =~ 
+    /^(?:  # First subtag
+         [xi] | [a-z]{2,3}
+      )
+      (?:  # Subtags thereafter
+         -           # separator
+         [a-z0-9]{1,8}  # subtag  
+      )*
+    $/xs ? 1 : 0;
+}
+
+###########################################################################
+
+=item * the function extract_language_tags($whatever)
+
+Returns a list of whatever looks like formally valid language tags
+in $whatever.  Not very smart, so don't get too creative with
+what you want to feed it.
+
+  extract_language_tags("fr, fr-ca, i-mingo")
+    returns:   ('fr', 'fr-ca', 'i-mingo')
+
+  extract_language_tags("It's like this: I'm in fr -- French!")
+    returns:   ('It', 'in', 'fr')
+  (So don't just feed it any old thing.)
+
+The output is untainted.  If you don't know what tainting is,
+don't worry about it.
+
+=cut
+
+sub extract_language_tags {
+
+  ## Changes in the language tagging standards may have to be reflected here.
+
+  my($text) =
+    $_[0] =~ m/(.+)/  # to make for an untainted result
+    ? $1 : ''
+  ;
+  
+  return grep(!m/^[ixIX]$/s, # 'i' and 'x' aren't good tags
+    $text =~ 
+    m/
+      \b
+      (?:  # First subtag
+         [iIxX] | [a-zA-Z]{2,3}
+      )
+      (?:  # Subtags thereafter
+         -           # separator
+         [a-zA-Z0-9]{1,8}  # subtag  
+      )*
+      \b
+    /xsg
+  );
+}
+
+###########################################################################
+
+=item * the function same_language_tag($lang1, $lang2)
+
+Returns true iff $lang1 and $lang2 are acceptable variant tags
+representing the same language-form.
+
+   same_language_tag('x-kadara', 'i-kadara')  is TRUE
+      (The x/i- alternation doesn't matter)
+   same_language_tag('X-KADARA', 'i-kadara')  is TRUE
+      (...and neither does case)
+   same_language_tag('en',       'en-US')     is FALSE
+      (all-English is not the SAME as US English)
+   same_language_tag('x-kadara', 'x-kadar')   is FALSE
+      (these are totally unrelated tags)
+   same_language_tag('no-bok',    'nb')       is TRUE
+      (no-bok is a legacy tag for nb (Norwegian Bokmal))
+
+C<same_language_tag> works by just seeing whether
+C<encode_language_tag($lang1)> is the same as
+C<encode_language_tag($lang2)>.
+
+(Yes, I know this function is named a bit oddly.  Call it historic
+reasons.)
+
+=cut
+
+sub same_language_tag {
+  my $el1 = &encode_language_tag($_[0]);
+  return 0 unless defined $el1;
+   # this avoids the problem of
+   # encode_language_tag($lang1) eq and encode_language_tag($lang2)
+   # being true if $lang1 and $lang2 are both undef
+
+  return $el1 eq &encode_language_tag($_[1]) ? 1 : 0;
+}
+
+###########################################################################
+
+=item * the function similarity_language_tag($lang1, $lang2)
+
+Returns an integer representing the degree of similarity between
+tags $lang1 and $lang2 (the order of which does not matter), where
+similarity is the number of common elements on the left,
+without regard to case and to x/i- alternation.
+
+   similarity_language_tag('fr', 'fr-ca')           is 1
+      (one element in common)
+   similarity_language_tag('fr-ca', 'fr-FR')        is 1
+      (one element in common)
+
+   similarity_language_tag('fr-CA-joual',
+                           'fr-CA-PEI')             is 2
+   similarity_language_tag('fr-CA-joual', 'fr-CA')  is 2
+      (two elements in common)
+
+   similarity_language_tag('x-kadara', 'i-kadara')  is 1
+      (x/i- doesn't matter)
+
+   similarity_language_tag('en',       'x-kadar')   is 0
+   similarity_language_tag('x-kadara', 'x-kadar')   is 0
+      (unrelated tags -- no similarity)
+
+   similarity_language_tag('i-cree-syllabic',
+                           'i-cherokee-syllabic')   is 0
+      (no B<leftmost> elements in common!)
+
+=cut
+
+sub similarity_language_tag {
+  my $lang1 = &encode_language_tag($_[0]);
+  my $lang2 = &encode_language_tag($_[1]);
+   # And encode_language_tag takes care of the whole
+   #  no-nyn==nn, i-hakka==zh-hakka, etc, things
+   
+  # NB: (i-sil-...)?  (i-sgn-...)?
+
+  return undef if !defined($lang1) and !defined($lang2);
+  return 0 if !defined($lang1) or !defined($lang2);
+
+  my @l1_subtags = split('-', $lang1);
+  my @l2_subtags = split('-', $lang2);
+  my $similarity = 0;
+
+  while(@l1_subtags and @l2_subtags) {
+    if(shift(@l1_subtags) eq shift(@l2_subtags)) {
+      ++$similarity;
+    } else {
+      last;
+    } 
+  }
+  return $similarity;
+}
+
+###########################################################################
+
+=item * the function is_dialect_of($lang1, $lang2)
+
+Returns true iff language tag $lang1 represents a subform of
+language tag $lang2.
+
+B<Get the order right!  It doesn't work the other way around!>
+
+   is_dialect_of('en-US', 'en')            is TRUE
+     (American English IS a dialect of all-English)
+
+   is_dialect_of('fr-CA-joual', 'fr-CA')   is TRUE
+   is_dialect_of('fr-CA-joual', 'fr')      is TRUE
+     (Joual is a dialect of (a dialect of) French)
+
+   is_dialect_of('en', 'en-US')            is FALSE
+     (all-English is a NOT dialect of American English)
+
+   is_dialect_of('fr', 'en-CA')            is FALSE
+
+   is_dialect_of('en',    'en'   )         is TRUE
+   is_dialect_of('en-US', 'en-US')         is TRUE
+     (B<Note:> these are degenerate cases)
+
+   is_dialect_of('i-mingo-tom', 'x-Mingo') is TRUE
+     (the x/i thing doesn't matter, nor does case)
+
+   is_dialect_of('nn', 'no')               is TRUE
+     (because 'nn' (New Norse) is aliased to 'no-nyn',
+      as a special legacy case, and 'no-nyn' is a
+      subform of 'no' (Norwegian))
+
+=cut
+
+sub is_dialect_of {
+
+  my $lang1 = &encode_language_tag($_[0]);
+  my $lang2 = &encode_language_tag($_[1]);
+
+  return undef if !defined($lang1) and !defined($lang2);
+  return 0 if !defined($lang1) or !defined($lang2);
+
+  return 1 if $lang1 eq $lang2;
+  return 0 if length($lang1) < length($lang2);
+
+  $lang1 .= '-';
+  $lang2 .= '-';
+  return
+    (substr($lang1, 0, length($lang2)) eq $lang2) ? 1 : 0;
+}
+
+###########################################################################
+
+=item * the function super_languages($lang1)
+
+Returns a list of language tags that are superordinate tags to $lang1
+-- it gets this by removing subtags from the end of $lang1 until
+nothing (or just "i" or "x") is left.
+
+   super_languages("fr-CA-joual")  is  ("fr-CA", "fr")
+
+   super_languages("en-AU")  is  ("en")
+
+   super_languages("en")  is  empty-list, ()
+
+   super_languages("i-cherokee")  is  empty-list, ()
+    ...not ("i"), which would be illegal as well as pointless.
+
+If $lang1 is not a valid language tag, returns empty-list in
+a list context, undef in a scalar context.
+
+A notable and rather unavoidable problem with this method:
+"x-mingo-tom" has an "x" because the whole tag isn't an
+IANA-registered tag -- but super_languages('x-mingo-tom') is
+('x-mingo') -- which isn't really right, since 'i-mingo' is
+registered.  But this module has no way of knowing that.  (But note
+that same_language_tag('x-mingo', 'i-mingo') is TRUE.)
+
+More importantly, you assume I<at your peril> that superordinates of
+$lang1 are mutually intelligible with $lang1.  Consider this
+carefully.
+
+=cut 
+
+sub super_languages {
+  my $lang1 = $_[0];
+  return() unless defined($lang1) && &is_language_tag($lang1);
+
+  # a hack for those annoying new (2001) tags:
+  $lang1 =~ s/^nb\b/no-bok/i; # yes, backwards
+  $lang1 =~ s/^nn\b/no-nyn/i; # yes, backwards
+  $lang1 =~ s/^[ix](-hakka\b)/zh$1/i; # goes the right way
+   # i-hakka-bork-bjork-bjark => zh-hakka-bork-bjork-bjark
+
+  my @l1_subtags = split('-', $lang1);
+
+  ## Changes in the language tagging standards may have to be reflected here.
+
+  # NB: (i-sil-...)?
+
+  my @supers = ();
+  foreach my $bit (@l1_subtags) {
+    push @supers, 
+      scalar(@supers) ? ($supers[-1] . '-' . $bit) : $bit;
+  }
+  pop @supers if @supers;
+  shift @supers if @supers && $supers[0] =~ m<^[iIxX]$>s;
+  return reverse @supers;
+}
+
+###########################################################################
+
+=item * the function locale2language_tag($locale_identifier)
+
+This takes a locale name (like "en", "en_US", or "en_US.ISO8859-1")
+and maps it to a language tag.  If it's not mappable (as with,
+notably, "C" and "POSIX"), this returns empty-list in a list context,
+or undef in a scalar context.
+
+   locale2language_tag("en") is "en"
+
+   locale2language_tag("en_US") is "en-US"
+
+   locale2language_tag("en_US.ISO8859-1") is "en-US"
+
+   locale2language_tag("C") is undef or ()
+
+   locale2language_tag("POSIX") is undef or ()
+
+   locale2language_tag("POSIX") is undef or ()
+
+I'm not totally sure that locale names map satisfactorily to language
+tags.  Think REAL hard about how you use this.  YOU HAVE BEEN WARNED.
+
+The output is untainted.  If you don't know what tainting is,
+don't worry about it.
+
+=cut 
+
+sub locale2language_tag {
+  my $lang =
+    $_[0] =~ m/(.+)/  # to make for an untainted result
+    ? $1 : ''
+  ;
+
+  return $lang if &is_language_tag($lang); # like "en"
+
+  $lang =~ tr<_><->;  # "en_US" -> en-US
+  $lang =~ s<(?:[\.\@][-_a-zA-Z0-9]+)+$><>s;  # "en_US.ISO8859-1" -> en-US
+   # it_IT.utf8@euro => it-IT
+
+  return $lang if &is_language_tag($lang);
+
+  return;
+}
+
+###########################################################################
+
+=item * the function encode_language_tag($lang1)
+
+This function, if given a language tag, returns an encoding of it such
+that:
+
+* tags representing different languages never get the same encoding.
+
+* tags representing the same language always get the same encoding.
+
+* an encoding of a formally valid language tag always is a string
+value that is defined, has length, and is true if considered as a
+boolean.
+
+Note that the encoding itself is B<not> a formally valid language tag.
+Note also that you cannot, currently, go from an encoding back to a
+language tag that it's an encoding of.
+
+Note also that you B<must> consider the encoded value as atomic; i.e.,
+you should not consider it as anything but an opaque, unanalysable
+string value.  (The internals of the encoding method may change in
+future versions, as the language tagging standard changes over time.)
+
+C<encode_language_tag> returns undef if given anything other than a
+formally valid language tag.
+
+The reason C<encode_language_tag> exists is because different language
+tags may represent the same language; this is normally treatable with
+C<same_language_tag>, but consider this situation:
+
+You have a data file that expresses greetings in different languages.
+Its format is "[language tag]=[how to say 'Hello']", like:
+
+          en-US=Hiho
+          fr=Bonjour
+          i-mingo=Hau'
+
+And suppose you write a program that reads that file and then runs as
+a daemon, answering client requests that specify a language tag and
+then expect the string that says how to greet in that language.  So an
+interaction looks like:
+
+          greeting-client asks:    fr
+          greeting-server answers: Bonjour
+
+So far so good.  But suppose the way you're implementing this is:
+
+          my %greetings;
+          die unless open(IN, "<in.dat");
+          while(<IN>) {
+            chomp;
+            next unless /^([^=]+)=(.+)/s;
+            my($lang, $expr) = ($1, $2);
+            $greetings{$lang} = $expr;
+          }
+          close(IN);
+
+at which point %greetings has the contents:
+
+          "en-US"   => "Hiho"
+          "fr"      => "Bonjour"
+          "i-mingo" => "Hau'"
+
+And suppose then that you answer client requests for language $wanted
+by just looking up $greetings{$wanted}.
+
+If the client asks for "fr", that will look up successfully in
+%greetings, to the value "Bonjour".  And if the client asks for
+"i-mingo", that will look up successfully in %greetings, to the value
+"Hau'".
+
+But if the client asks for "i-Mingo" or "x-mingo", or "Fr", then the
+lookup in %greetings fails.  That's the Wrong Thing.
+
+You could instead do lookups on $wanted with:
+
+          use I18N::LangTags qw(same_language_tag);
+          my $response = '';
+          foreach my $l2 (keys %greetings) {
+            if(same_language_tag($wanted, $l2)) {
+              $response = $greetings{$l2};
+              last;
+            }
+          }
+
+But that's rather inefficient.  A better way to do it is to start your
+program with:
+
+          use I18N::LangTags qw(encode_language_tag);
+          my %greetings;
+          die unless open(IN, "<in.dat");
+          while(<IN>) {
+            chomp;
+            next unless /^([^=]+)=(.+)/s;
+            my($lang, $expr) = ($1, $2);
+            $greetings{
+                        encode_language_tag($lang)
+                      } = $expr;
+          }
+          close(IN);
+
+and then just answer client requests for language $wanted by just
+looking up
+
+          $greetings{encode_language_tag($wanted)}
+
+And that does the Right Thing.
+
+=cut
+
+sub encode_language_tag {
+  # Only similarity_language_tag() is allowed to analyse encodings!
+
+  ## Changes in the language tagging standards may have to be reflected here.
+
+  my($tag) = $_[0] || return undef;
+  return undef unless &is_language_tag($tag);
+
+  # For the moment, these legacy variances are few enough that
+  #  we can just handle them here with regexps.
+  $tag =~ s/^iw\b/he/i; # Hebrew
+  $tag =~ s/^in\b/id/i; # Indonesian
+  $tag =~ s/^cre\b/cr/i; # Cree
+  $tag =~ s/^jw\b/jv/i; # Javanese
+  $tag =~ s/^[ix]-lux\b/lb/i;  # Luxemburger
+  $tag =~ s/^[ix]-navajo\b/nv/i;  # Navajo
+  $tag =~ s/^ji\b/yi/i;  # Yiddish
+  # SMB 2003 -- Hm.  There's a bunch of new XXX->YY variances now,
+  #  but maybe they're all so obscure I can ignore them.   "Obscure"
+  #  meaning either that the language is obscure, and/or that the
+  #  XXX form was extant so briefly that it's unlikely it was ever
+  #  used.  I hope.
+  #
+  # These go FROM the simplex to complex form, to get
+  #  similarity-comparison right.  And that's okay, since
+  #  similarity_language_tag is the only thing that
+  #  analyzes our output.
+  $tag =~ s/^[ix]-hakka\b/zh-hakka/i;  # Hakka
+  $tag =~ s/^nb\b/no-bok/i;  # BACKWARDS for Bokmal
+  $tag =~ s/^nn\b/no-nyn/i;  # BACKWARDS for Nynorsk
+
+  $tag =~ s/^[xiXI]-//s;
+   # Just lop off any leading "x/i-"
+
+  return "~" . uc($tag);
+}
+
+#--------------------------------------------------------------------------
+
+=item * the function alternate_language_tags($lang1)
+
+This function, if given a language tag, returns all language tags that
+are alternate forms of this language tag.  (I.e., tags which refer to
+the same language.)  This is meant to handle legacy tags caused by
+the minor changes in language tag standards over the years; and
+the x-/i- alternation is also dealt with.
+
+Note that this function does I<not> try to equate new (and never-used,
+and unusable)
+ISO639-2 three-letter tags to old (and still in use) ISO639-1
+two-letter equivalents -- like "ara" -> "ar" -- because
+"ara" has I<never> been in use as an Internet language tag,
+and RFC 3066 stipulates that it never should be, since a shorter
+tag ("ar") exists.
+
+Examples:
+
+  alternate_language_tags('no-bok')       is ('nb')
+  alternate_language_tags('nb')           is ('no-bok')
+  alternate_language_tags('he')           is ('iw')
+  alternate_language_tags('iw')           is ('he')
+  alternate_language_tags('i-hakka')      is ('zh-hakka', 'x-hakka')
+  alternate_language_tags('zh-hakka')     is ('i-hakka', 'x-hakka')
+  alternate_language_tags('en')           is ()
+  alternate_language_tags('x-mingo-tom')  is ('i-mingo-tom')
+  alternate_language_tags('x-klikitat')   is ('i-klikitat')
+  alternate_language_tags('i-klikitat')   is ('x-klikitat')
+
+This function returns empty-list if given anything other than a formally
+valid language tag.
+
+=cut
+
+my %alt = qw( i x   x i   I X   X I );
+sub alternate_language_tags {
+  my $tag = $_[0];
+  return() unless &is_language_tag($tag);
+
+  my @em; # push 'em real goood!
+
+  # For the moment, these legacy variances are few enough that
+  #  we can just handle them here with regexps.
+  
+  if(     $tag =~ m/^[ix]-hakka\b(.*)/i) {push @em, "zh-hakka$1";
+  } elsif($tag =~ m/^zh-hakka\b(.*)/i) {  push @em, "x-hakka$1", "i-hakka$1";
+
+  } elsif($tag =~ m/^he\b(.*)/i) { push @em, "iw$1";
+  } elsif($tag =~ m/^iw\b(.*)/i) { push @em, "he$1";
+
+  } elsif($tag =~ m/^in\b(.*)/i) { push @em, "id$1";
+  } elsif($tag =~ m/^id\b(.*)/i) { push @em, "in$1";
+
+  } elsif($tag =~ m/^[ix]-lux\b(.*)/i) { push @em, "lb$1";
+  } elsif($tag =~ m/^lb\b(.*)/i) {       push @em, "i-lux$1", "x-lux$1";
+
+  } elsif($tag =~ m/^[ix]-navajo\b(.*)/i) { push @em, "nv$1";
+  } elsif($tag =~ m/^nv\b(.*)/i) {          push @em, "i-navajo$1", "x-navajo$1";
+
+  } elsif($tag =~ m/^yi\b(.*)/i) { push @em, "ji$1";
+  } elsif($tag =~ m/^ji\b(.*)/i) { push @em, "yi$1";
+
+  } elsif($tag =~ m/^nb\b(.*)/i) {     push @em, "no-bok$1";
+  } elsif($tag =~ m/^no-bok\b(.*)/i) { push @em, "nb$1";
+  
+  } elsif($tag =~ m/^nn\b(.*)/i) {     push @em, "no-nyn$1";
+  } elsif($tag =~ m/^no-nyn\b(.*)/i) { push @em, "nn$1";
+  }
+
+  push @em, $alt{$1} . $2 if $tag =~ /^([XIxi])(-.+)/;
+  return @em;
+}
+
+###########################################################################
+
+{
+  # Init %Panic...
+  
+  my @panic = (  # MUST all be lowercase!
+   # Only large ("national") languages make it in this list.
+   #  If you, as a user, are so bizarre that the /only/ language
+   #  you claim to accept is Galician, then no, we won't do you
+   #  the favor of providing Catalan as a panic-fallback for
+   #  you.  Because if I start trying to add "little languages" in
+   #  here, I'll just go crazy.
+
+   # Scandinavian lgs.  All based on opinion and hearsay.
+   'sv' => [qw(nb no da nn)],
+   'da' => [qw(nb no sv nn)], # I guess
+   [qw(no nn nb)], [qw(no nn nb sv da)],
+   'is' => [qw(da sv no nb nn)],
+   'fo' => [qw(da is no nb nn sv)], # I guess
+   
+   # I think this is about the extent of tolerable intelligibility
+   #  among large modern Romance languages.
+   'pt' => [qw(es ca it fr)], # Portuguese, Spanish, Catalan, Italian, French
+   'ca' => [qw(es pt it fr)],
+   'es' => [qw(ca it fr pt)],
+   'it' => [qw(es fr ca pt)],
+   'fr' => [qw(es it ca pt)],
+   
+   # Also assume that speakers of the main Indian languages prefer
+   #  to read/hear Hindi over English
+   [qw(
+     as bn gu kn ks kok ml mni mr ne or pa sa sd te ta ur
+   )] => 'hi',
+    # Assamese, Bengali, Gujarati, [Hindi,] Kannada (Kanarese), Kashmiri,
+    # Konkani, Malayalam, Meithei (Manipuri), Marathi, Nepali, Oriya,
+    # Punjabi, Sanskrit, Sindhi, Telugu, Tamil, and Urdu.
+   'hi' => [qw(bn pa as or)],
+   # I welcome finer data for the other Indian languages.
+   #  E.g., what should Oriya's list be, besides just Hindi?
+   
+   # And the panic languages for English is, of course, nil!
+
+   # My guesses at Slavic intelligibility:
+   ([qw(ru be uk)]) x 2,  # Russian, Belarusian, Ukranian
+   ([qw(sr hr bs)]) x 2,  # Serbian, Croatian, Bosnian
+   'cs' => 'sk', 'sk' => 'cs', # Czech + Slovak
+
+   'ms' => 'id', 'id' => 'ms', # Malay + Indonesian
+
+   'et' => 'fi', 'fi' => 'et', # Estonian + Finnish
+
+   #?? 'lo' => 'th', 'th' => 'lo', # Lao + Thai
+
+  );
+  my($k,$v);
+  while(@panic) {
+    ($k,$v) = splice(@panic,0,2);
+    foreach my $k (ref($k) ? @$k : $k) {
+      foreach my $v (ref($v) ? @$v : $v) {
+        push @{$Panic{$k} ||= []}, $v unless $k eq $v;
+      }
+    }
+  }
+}
+
+=item * the function @langs = panic_languages(@accept_languages)
+
+This function takes a list of 0 or more language
+tags that constitute a given user's Accept-Language list, and
+returns a list of tags for I<other> (non-super)
+languages that are probably acceptable to the user, to be
+used I<if all else fails>.
+
+For example, if a user accepts only 'ca' (Catalan) and
+'es' (Spanish), and the documents/interfaces you have
+available are just in German, Italian, and Chinese, then
+the user will most likely want the Italian one (and not
+the Chinese or German one!), instead of getting
+nothing.  So C<panic_languages('ca', 'es')> returns
+a list containing 'it' (Italian).
+
+English ('en') is I<always> in the return list, but
+whether it's at the very end or not depends
+on the input languages.  This function works by consulting
+an internal table that stipulates what common
+languages are "close" to each other.
+
+A useful construct you might consider using is:
+
+  @fallbacks = super_languages(@accept_languages);
+  push @fallbacks, panic_languages(
+    @accept_languages, @fallbacks,
+  );
+
+=cut
+
+sub panic_languages {
+  # When in panic or in doubt, run in circles, scream, and shout!
+  my(@out, %seen);
+  foreach my $t (@_) {
+    next unless $t;
+    next if $seen{$t}++; # so we don't return it or hit it again
+    # push @out, super_languages($t); # nah, keep that separate
+    push @out, @{ $Panic{lc $t} || next };
+  }
+  return grep !$seen{$_}++,  @out, 'en';
+}
+
+#---------------------------------------------------------------------------
+#---------------------------------------------------------------------------
+
+=item * the function implicate_supers( ...languages... )
+
+This takes a list of strings (which are presumed to be language-tags;
+strings that aren't, are ignored); and after each one, this function
+inserts super-ordinate forms that don't already appear in the list.
+The original list, plus these insertions, is returned.
+
+In other words, it takes this:
+
+  pt-br de-DE en-US fr pt-br-janeiro
+
+and returns this:
+
+  pt-br pt de-DE de en-US en fr pt-br-janeiro
+
+This function is most useful in the idiom
+
+  implicate_supers( I18N::LangTags::Detect::detect() );
+
+(See L<I18N::LangTags::Detect>.)
+
+
+=item * the function implicate_supers_strictly( ...languages... )
+
+This works like C<implicate_supers> except that the implicated
+forms are added to the end of the return list.
+
+In other words, implicate_supers_strictly takes a list of strings
+(which are presumed to be language-tags; strings that aren't, are
+ignored) and after the whole given list, it inserts the super-ordinate forms 
+of all given tags, minus any tags that already appear in the input list.
+
+In other words, it takes this:
+
+  pt-br de-DE en-US fr pt-br-janeiro
+
+and returns this:
+
+  pt-br de-DE en-US fr pt-br-janeiro pt de en
+
+The reason this function has "_strictly" in its name is that when
+you're processing an Accept-Language list according to the RFCs, if
+you interpret the RFCs quite strictly, then you would use
+implicate_supers_strictly, but for normal use (i.e., common-sense use,
+as far as I'm concerned) you'd use implicate_supers.
+
+=cut
+
+sub implicate_supers {
+  my @languages = grep is_language_tag($_), @_;
+  my %seen_encoded;
+  foreach my $lang (@languages) {
+    $seen_encoded{ I18N::LangTags::encode_language_tag($lang) } = 1
+  }
+
+  my(@output_languages);
+  foreach my $lang (@languages) {
+    push @output_languages, $lang;
+    foreach my $s ( I18N::LangTags::super_languages($lang) ) {
+      # Note that super_languages returns the longest first.
+      last if $seen_encoded{ I18N::LangTags::encode_language_tag($s) };
+      push @output_languages, $s;
+    }
+  }
+  return uniq( @output_languages );
+
+}
+
+sub implicate_supers_strictly {
+  my @tags = grep is_language_tag($_), @_;
+  return uniq( @_,   map super_languages($_), @_ );
+}
+
+
+
+###########################################################################
+1;
+__END__
+
+=back
+
+=head1 ABOUT LOWERCASING
+
+I've considered making all the above functions that output language
+tags return all those tags strictly in lowercase.  Having all your
+language tags in lowercase does make some things easier.  But you
+might as well just lowercase as you like, or call
+C<encode_language_tag($lang1)> where appropriate.
+
+=head1 ABOUT UNICODE PLAINTEXT LANGUAGE TAGS
+
+In some future version of I18N::LangTags, I plan to include support
+for RFC2482-style language tags -- which are basically just normal
+language tags with their ASCII characters shifted into Plane 14.
+
+=head1 SEE ALSO
+
+* L<I18N::LangTags::List|I18N::LangTags::List>
+
+* RFC 3066, C<http://www.ietf.org/rfc/rfc3066.txt>, "Tags for the
+Identification of Languages".  (Obsoletes RFC 1766)
+
+* RFC 2277, C<http://www.ietf.org/rfc/rfc2277.txt>, "IETF Policy on
+Character Sets and Languages".
+
+* RFC 2231, C<http://www.ietf.org/rfc/rfc2231.txt>, "MIME Parameter
+Value and Encoded Word Extensions: Character Sets, Languages, and
+Continuations".
+
+* RFC 2482, C<http://www.ietf.org/rfc/rfc2482.txt>,
+"Language Tagging in Unicode Plain Text".
+
+* Locale::Codes, in
+C<http://www.perl.com/CPAN/modules/by-module/Locale/>
+
+* ISO 639-2, "Codes for the representation of names of languages",
+including two-letter and three-letter codes,
+C<http://www.loc.gov/standards/iso639-2/php/code_list.php>
+
+* The IANA list of registered languages (hopefully up-to-date),
+C<http://www.iana.org/assignments/language-tags>
+
+=head1 COPYRIGHT
+
+Copyright (c) 1998+ Sean M. Burke. All rights reserved.
+
+This library is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+The programs and documentation in this dist are distributed in
+the hope that they will be useful, but without any warranty; without
+even the implied warranty of merchantability or fitness for a
+particular purpose.
+
+=head1 AUTHOR
+
+Sean M. Burke C<sburke@cpan.org>
+
+=cut
+
diff --git a/lib/5.24.1/I18N/LangTags/Detect.pm b/lib/5.24.1/I18N/LangTags/Detect.pm
new file mode 100644
index 00000000..a877fbfc
--- /dev/null
+++ b/lib/5.24.1/I18N/LangTags/Detect.pm
@@ -0,0 +1,240 @@
+
+# Time-stamp: "2004-06-20 21:47:55 ADT"
+
+require 5;
+package I18N::LangTags::Detect;
+use strict;
+
+use vars qw( @ISA $VERSION $MATCH_SUPERS $USING_LANGUAGE_TAGS
+             $USE_LITERALS $MATCH_SUPERS_TIGHTLY);
+
+BEGIN { unless(defined &DEBUG) { *DEBUG = sub () {0} } }
+ # define the constant 'DEBUG' at compile-time
+
+$VERSION = "1.05_01";
+@ISA = ();
+use I18N::LangTags qw(alternate_language_tags locale2language_tag);
+
+sub _uniq { my %seen; return grep(!($seen{$_}++), @_); }
+sub _normalize {
+  my(@languages) =
+    map lc($_),
+    grep $_,
+    map {; $_, alternate_language_tags($_) } @_;
+  return _uniq(@languages) if wantarray;
+  return $languages[0];
+}
+
+#---------------------------------------------------------------------------
+# The extent of our functional interface:
+
+sub detect () { return __PACKAGE__->ambient_langprefs; }
+
+#===========================================================================
+
+sub ambient_langprefs { # always returns things untainted
+  my $base_class = $_[0];
+  
+  return $base_class->http_accept_langs
+   if length( $ENV{'REQUEST_METHOD'} || '' ); # I'm a CGI
+       # it's off in its own routine because it's complicated
+
+  # Not running as a CGI: try to puzzle out from the environment
+  my @languages;
+
+  foreach my $envname (qw( LANGUAGE LC_ALL LC_MESSAGES LANG )) {
+    next unless $ENV{$envname};
+    DEBUG and print "Noting \$$envname: $ENV{$envname}\n";
+    push @languages,
+      map locale2language_tag($_),
+        # if it's a lg tag, fine, pass thru (untainted)
+        # if it's a locale ID, try converting to a lg tag (untainted),
+        # otherwise nix it.
+
+      split m/[,:]/,
+      $ENV{$envname}
+    ;
+    last; # first one wins
+  }
+  
+  if($ENV{'IGNORE_WIN32_LOCALE'}) {
+    # no-op
+  } elsif(&_try_use('Win32::Locale')) {
+    # If we have that module installed...
+    push @languages, Win32::Locale::get_language() || ''
+     if defined &Win32::Locale::get_language;
+  }
+  return _normalize @languages;
+}
+
+#---------------------------------------------------------------------------
+
+sub http_accept_langs {
+  # Deal with HTTP "Accept-Language:" stuff.  Hassle.
+  # This code is more lenient than RFC 3282, which you must read.
+  # Hm.  Should I just move this into I18N::LangTags at some point?
+  no integer;
+
+  my $in = (@_ > 1) ? $_[1] : $ENV{'HTTP_ACCEPT_LANGUAGE'};
+  # (always ends up untainting)
+
+  return() unless defined $in and length $in;
+
+  $in =~ s/\([^\)]*\)//g; # nix just about any comment
+  
+  if( $in =~ m/^\s*([a-zA-Z][-a-zA-Z]+)\s*$/s ) {
+    # Very common case: just one language tag
+    return _normalize $1;
+  } elsif( $in =~ m/^\s*[a-zA-Z][-a-zA-Z]+(?:\s*,\s*[a-zA-Z][-a-zA-Z]+)*\s*$/s ) {
+    # Common case these days: just "foo, bar, baz"
+    return _normalize( $in =~ m/([a-zA-Z][-a-zA-Z]+)/g );
+  }
+
+  # Else it's complicated...
+
+  $in =~ s/\s+//g;  # Yes, we can just do without the WS!
+  my @in = $in =~ m/([^,]+)/g;
+  my %pref;
+  
+  my $q;
+  foreach my $tag (@in) {
+    next unless $tag =~
+     m/^([a-zA-Z][-a-zA-Z]+)
+        (?:
+         ;q=
+         (
+          \d*   # a bit too broad of a RE, but so what.
+          (?:
+            \.\d+
+          )?
+         )
+        )?
+       $
+      /sx
+    ;
+    $q = (defined $2 and length $2) ? $2 : 1;
+    #print "$1 with q=$q\n";
+    push @{ $pref{$q} }, lc $1;
+  }
+
+  return _normalize(
+    # Read off %pref, in descending key order...
+    map @{$pref{$_}},
+    sort {$b <=> $a}
+    keys %pref
+  );
+}
+
+#===========================================================================
+
+my %tried = ();
+  # memoization of whether we've used this module, or found it unusable.
+
+sub _try_use {   # Basically a wrapper around "require Modulename"
+  # "Many men have tried..."  "They tried and failed?"  "They tried and died."
+  return $tried{$_[0]} if exists $tried{$_[0]};  # memoization
+
+  my $module = $_[0];   # ASSUME sane module name!
+  { no strict 'refs';
+    no warnings 'once';
+    return($tried{$module} = 1)
+     if %{$module . "::Lexicon"} or @{$module . "::ISA"};
+    # weird case: we never use'd it, but there it is!
+  }
+
+  print " About to use $module ...\n" if DEBUG;
+  {
+    local $SIG{'__DIE__'};
+    local @INC = @INC;
+    pop @INC if $INC[-1] eq '.';
+    eval "require $module"; # used to be "use $module", but no point in that.
+  }
+  if($@) {
+    print "Error using $module \: $@\n" if DEBUG > 1;
+    return $tried{$module} = 0;
+  } else {
+    print " OK, $module is used\n" if DEBUG;
+    return $tried{$module} = 1;
+  }
+}
+
+#---------------------------------------------------------------------------
+1;
+__END__
+
+
+=head1 NAME
+
+I18N::LangTags::Detect - detect the user's language preferences
+
+=head1 SYNOPSIS
+
+  use I18N::LangTags::Detect;
+  my @user_wants = I18N::LangTags::Detect::detect();
+
+=head1 DESCRIPTION
+
+It is a common problem to want to detect what language(s) the user would
+prefer output in.
+
+=head1 FUNCTIONS
+
+This module defines one public function,
+C<I18N::LangTags::Detect::detect()>.  This function is not exported
+(nor is even exportable), and it takes no parameters.
+
+In scalar context, the function returns the most preferred language
+tag (or undef if no preference was seen).
+
+In list context (which is usually what you want),
+the function returns a
+(possibly empty) list of language tags representing (best first) what
+languages the user apparently would accept output in.  You will
+probably want to pass the output of this through
+C<I18N::LangTags::implicate_supers_tightly(...)>
+or
+C<I18N::LangTags::implicate_supers(...)>, like so:
+
+  my @languages =
+    I18N::LangTags::implicate_supers_tightly(
+      I18N::LangTags::Detect::detect()
+    );
+
+
+=head1 ENVIRONMENT
+
+This module looks for several environment variables, including
+REQUEST_METHOD, HTTP_ACCEPT_LANGUAGE,
+LANGUAGE, LC_ALL, LC_MESSAGES, and LANG.
+
+It will also use the L<Win32::Locale> module, if it's installed.
+
+
+=head1 SEE ALSO
+
+L<I18N::LangTags>, L<Win32::Locale>, L<Locale::Maketext>.
+
+(This module's core code started out as a routine in Locale::Maketext;
+but I moved it here once I realized it was more generally useful.)
+
+
+=head1 COPYRIGHT
+
+Copyright (c) 1998-2004 Sean M. Burke. All rights reserved.
+
+This library is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+The programs and documentation in this dist are distributed in
+the hope that they will be useful, but without any warranty; without
+even the implied warranty of merchantability or fitness for a
+particular purpose.
+
+
+=head1 AUTHOR
+
+Sean M. Burke C<sburke@cpan.org>
+
+=cut
+
+# a tip: Put a bit of chopped up pickled ginger in your salad. It's tasty!
diff --git a/lib/5.24.1/I18N/LangTags/List.pm b/lib/5.24.1/I18N/LangTags/List.pm
new file mode 100644
index 00000000..786d7b89
--- /dev/null
+++ b/lib/5.24.1/I18N/LangTags/List.pm
@@ -0,0 +1,1779 @@
+
+require 5;
+package I18N::LangTags::List;
+#  Time-stamp: "2004-10-06 23:26:21 ADT"
+use strict;
+use vars qw(%Name %Is_Disrec $Debug $VERSION);
+$VERSION = '0.39';
+# POD at the end.
+
+#----------------------------------------------------------------------
+{
+# read the table out of our own POD!
+  my $seeking = 1;
+  my $count = 0;
+  my($disrec,$tag,$name);
+  my $last_name = '';
+  while(<I18N::LangTags::List::DATA>) {
+    if($seeking) {
+      $seeking = 0 if m/=for woohah/;
+    } elsif( ($disrec, $tag, $name) =
+          m/(\[?)\{([-0-9a-zA-Z]+)\}(?:\s*:)?\s*([^\[\]]+)/
+    ) {
+      $name =~ s/\s*[;\.]*\s*$//g;
+      next unless $name;
+      ++$count;
+      print "<$tag> <$name>\n" if $Debug;
+      $last_name = $Name{$tag} = $name;
+      $Is_Disrec{$tag} = 1 if $disrec;
+    } elsif (m/[Ff]ormerly \"([-a-z0-9]+)\"/) {
+      $Name{$1} = "$last_name (old tag)" if $last_name;
+      $Is_Disrec{$1} = 1;
+    }
+  }
+  die "No tags read??" unless $count;
+}
+#----------------------------------------------------------------------
+
+sub name {
+  my $tag = lc($_[0] || return);
+  $tag =~ s/^\s+//s;
+  $tag =~ s/\s+$//s;
+  
+  my $alt;
+  if($tag =~ m/^x-(.+)/) {
+    $alt = "i-$1";
+  } elsif($tag =~ m/^i-(.+)/) {
+    $alt = "x-$1";
+  } else {
+    $alt = '';
+  }
+  
+  my $subform = '';
+  my $name = '';
+  print "Input: {$tag}\n" if $Debug;
+  while(length $tag) {
+    last if $name = $Name{$tag};
+    last if $name = $Name{$alt};
+    if($tag =~ s/(-[a-z0-9]+)$//s) {
+      print "Shaving off: $1 leaving $tag\n" if $Debug;
+      $subform = "$1$subform";
+       # and loop around again
+       
+      $alt =~ s/(-[a-z0-9]+)$//s && $Debug && print " alt -> $alt\n";
+    } else {
+      # we're trying to pull a subform off a primary tag. TILT!
+      print "Aborting on: {$name}{$subform}\n" if $Debug;
+      last;
+    }
+  }
+  print "Output: {$name}{$subform}\n" if $Debug;
+  
+  return unless $name;   # Failure
+  return $name unless $subform;   # Exact match
+  $subform =~ s/^-//s;
+  $subform =~ s/-$//s;
+  return "$name (Subform \"$subform\")";
+}
+
+#--------------------------------------------------------------------------
+
+sub is_decent {
+  my $tag = lc($_[0] || return 0);
+  #require I18N::LangTags;
+
+  return 0 unless
+    $tag =~ 
+    /^(?:  # First subtag
+         [xi] | [a-z]{2,3}
+      )
+      (?:  # Subtags thereafter
+         -           # separator
+         [a-z0-9]{1,8}  # subtag  
+      )*
+    $/xs;
+
+  my @supers = ();
+  foreach my $bit (split('-', $tag)) {
+    push @supers, 
+      scalar(@supers) ? ($supers[-1] . '-' . $bit) : $bit;
+  }
+  return 0 unless @supers;
+  shift @supers if $supers[0] =~ m<^(i|x|sgn)$>s;
+  return 0 unless @supers;
+
+  foreach my $f ($tag, @supers) {
+    return 0 if $Is_Disrec{$f};
+    return 2 if $Name{$f};
+     # so that decent subforms of indecent tags are decent
+  }
+  return 2 if $Name{$tag}; # not only is it decent, it's known!
+  return 1;
+}
+
+#--------------------------------------------------------------------------
+1;
+
+__DATA__
+
+=head1 NAME
+
+I18N::LangTags::List -- tags and names for human languages
+
+=head1 SYNOPSIS
+
+  use I18N::LangTags::List;
+  print "Parlez-vous... ", join(', ',
+      I18N::LangTags::List::name('elx') || 'unknown_language',
+      I18N::LangTags::List::name('ar-Kw') || 'unknown_language',
+      I18N::LangTags::List::name('en') || 'unknown_language',
+      I18N::LangTags::List::name('en-CA') || 'unknown_language',
+    ), "?\n";
+
+prints:
+
+  Parlez-vous... Elamite, Kuwait Arabic, English, Canadian English?
+
+=head1 DESCRIPTION
+
+This module provides a function 
+C<I18N::LangTags::List::name( I<langtag> ) > that takes
+a language tag (see L<I18N::LangTags|I18N::LangTags>)
+and returns the best attempt at an English name for it, or
+undef if it can't make sense of the tag.
+
+The function I18N::LangTags::List::name(...) is not exported.
+
+This module also provides a function
+C<I18N::LangTags::List::is_decent( I<langtag> )> that returns true iff
+the language tag is syntactically valid and is for general use (like
+"fr" or "fr-ca", below).  That is, it returns false for tags that are
+syntactically invalid and for tags, like "aus", that are listed in
+brackets below.  This function is not exported.
+
+The map of tags-to-names that it uses is accessible as
+%I18N::LangTags::List::Name, and it's the same as the list
+that follows in this documentation, which should be useful
+to you even if you don't use this module.
+
+=head1 ABOUT LANGUAGE TAGS
+
+Internet language tags, as defined in RFC 3066, are a formalism
+for denoting human languages.  The two-letter ISO 639-1 language
+codes are well known (as "en" for English), as are their forms
+when qualified by a country code ("en-US").  Less well-known are the
+arbitrary-length non-ISO codes (like "i-mingo"), and the 
+recently (in 2001) introduced three-letter ISO-639-2 codes.
+
+Remember these important facts:
+
+=over
+
+=item *
+
+Language tags are not locale IDs.  A locale ID is written with a "_"
+instead of a "-", (almost?) always matches C<m/^\w\w_\w\w\b/>, and
+I<means> something different than a language tag.  A language tag
+denotes a language.  A locale ID denotes a language I<as used in>
+a particular place, in combination with non-linguistic
+location-specific information such as what currency is used
+there.  Locales I<also> often denote character set information,
+as in "en_US.ISO8859-1".
+
+=item *
+
+Language tags are not for computer languages.
+
+=item *
+
+"Dialect" is not a useful term, since there is no objective
+criterion for establishing when two language-forms are
+dialects of eachother, or are separate languages.
+
+=item *
+
+Language tags are not case-sensitive.  en-US, en-us, En-Us, etc.,
+are all the same tag, and denote the same language.
+
+=item *
+
+Not every language tag really refers to a single language.  Some
+language tags refer to conditions: i-default (system-message text
+in English plus maybe other languages), und (undetermined
+language).  Others (notably lots of the three-letter codes) are
+bibliographic tags that classify whole groups of languages, as
+with cus "Cushitic (Other)" (i.e., a
+language that has been classed as Cushtic, but which has no more
+specific code) or the even less linguistically coherent
+sai for "South American Indian (Other)".  Though useful in
+bibliography, B<SUCH TAGS ARE NOT
+FOR GENERAL USE>.  For further guidance, email me.
+
+=item *
+
+Language tags are not country codes.  In fact, they are often
+distinct codes, as with language tag ja for Japanese, and
+ISO 3166 country code C<.jp> for Japan.
+
+=back
+
+=head1 LIST OF LANGUAGES
+
+The first part of each item is the language tag, between
+{...}.  It
+is followed by an English name for the language or language-group.
+Language tags that I judge to be not for general use, are bracketed.
+
+This list is in alphabetical order by English name of the language.
+
+=for reminder
+ The name in the =item line MUST NOT have E<...>'s in it!!
+
+=for woohah START
+
+=over
+
+=item {ab} : Abkhazian
+
+eq Abkhaz
+
+=item {ace} : Achinese
+
+=item {ach} : Acoli
+
+=item {ada} : Adangme
+
+=item {ady} : Adyghe
+
+eq Adygei
+
+=item {aa} : Afar
+
+=item {afh} : Afrihili
+
+(Artificial)
+
+=item {af} : Afrikaans
+
+=item [{afa} : Afro-Asiatic (Other)]
+
+=item {ak} : Akan
+
+(Formerly "aka".)
+
+=item {akk} : Akkadian
+
+(Historical)
+
+=item {sq} : Albanian
+
+=item {ale} : Aleut
+
+=item [{alg} : Algonquian languages]
+
+NOT Algonquin!
+
+=item [{tut} : Altaic (Other)]
+
+=item {am} : Amharic
+
+NOT Aramaic!
+
+=item {i-ami} : Ami
+
+eq Amis.  eq 'Amis.  eq Pangca.
+
+=item [{apa} : Apache languages]
+
+=item {ar} : Arabic
+
+Many forms are mutually un-intelligible in spoken media.
+Notable forms:
+{ar-ae} UAE Arabic;
+{ar-bh} Bahrain Arabic;
+{ar-dz} Algerian Arabic;
+{ar-eg} Egyptian Arabic;
+{ar-iq} Iraqi Arabic;
+{ar-jo} Jordanian Arabic;
+{ar-kw} Kuwait Arabic;
+{ar-lb} Lebanese Arabic;
+{ar-ly} Libyan Arabic;
+{ar-ma} Moroccan Arabic;
+{ar-om} Omani Arabic;
+{ar-qa} Qatari Arabic;
+{ar-sa} Sauda Arabic;
+{ar-sy} Syrian Arabic;
+{ar-tn} Tunisian Arabic;
+{ar-ye} Yemen Arabic.
+
+=item {arc} : Aramaic
+
+NOT Amharic!  NOT Samaritan Aramaic!
+
+=item {arp} : Arapaho
+
+=item {arn} : Araucanian
+
+=item {arw} : Arawak
+
+=item {hy} : Armenian
+
+=item {an} : Aragonese
+
+=item [{art} : Artificial (Other)]
+
+=item {ast} : Asturian
+
+eq Bable.
+
+=item {as} : Assamese
+
+=item [{ath} : Athapascan languages]
+
+eq Athabaskan.  eq Athapaskan.  eq Athabascan.
+
+=item [{aus} : Australian languages]
+
+=item [{map} : Austronesian (Other)]
+
+=item {av} : Avaric
+
+(Formerly "ava".)
+
+=item {ae} : Avestan
+
+eq Zend
+
+=item {awa} : Awadhi
+
+=item {ay} : Aymara
+
+=item {az} : Azerbaijani
+
+eq Azeri
+
+Notable forms:
+{az-Arab} Azerbaijani in Arabic script;
+{az-Cyrl} Azerbaijani in Cyrillic script;
+{az-Latn} Azerbaijani in Latin script.
+
+=item {ban} : Balinese
+
+=item [{bat} : Baltic (Other)]
+
+=item {bal} : Baluchi
+
+=item {bm} : Bambara
+
+(Formerly "bam".)
+
+=item [{bai} : Bamileke languages]
+
+=item {bad} : Banda
+
+=item [{bnt} : Bantu (Other)]
+
+=item {bas} : Basa
+
+=item {ba} : Bashkir
+
+=item {eu} : Basque
+
+=item {btk} : Batak (Indonesia)
+
+=item {bej} : Beja
+
+=item {be} : Belarusian
+
+eq Belarussian.  eq Byelarussian.
+eq Belorussian.  eq Byelorussian.
+eq White Russian.  eq White Ruthenian.
+NOT Ruthenian!
+
+=item {bem} : Bemba
+
+=item {bn} : Bengali
+
+eq Bangla.
+
+=item [{ber} : Berber (Other)]
+
+=item {bho} : Bhojpuri
+
+=item {bh} : Bihari
+
+=item {bik} : Bikol
+
+=item {bin} : Bini
+
+=item {bi} : Bislama
+
+eq Bichelamar.
+
+=item {bs} : Bosnian
+
+=item {bra} : Braj
+
+=item {br} : Breton
+
+=item {bug} : Buginese
+
+=item {bg} : Bulgarian
+
+=item {i-bnn} : Bunun
+
+=item {bua} : Buriat
+
+=item {my} : Burmese
+
+=item {cad} : Caddo
+
+=item {car} : Carib
+
+=item {ca} : Catalan
+
+eq CatalE<aacute>n.  eq Catalonian.
+
+=item [{cau} : Caucasian (Other)]
+
+=item {ceb} : Cebuano
+
+=item [{cel} : Celtic (Other)]
+
+Notable forms:
+{cel-gaulish} Gaulish (Historical)
+
+=item [{cai} : Central American Indian (Other)]
+
+=item {chg} : Chagatai
+
+(Historical?)
+
+=item [{cmc} : Chamic languages]
+
+=item {ch} : Chamorro
+
+=item {ce} : Chechen
+
+=item {chr} : Cherokee
+
+eq Tsalagi
+
+=item {chy} : Cheyenne
+
+=item {chb} : Chibcha
+
+(Historical)  NOT Chibchan (which is a language family).
+
+=item {ny} : Chichewa
+
+eq Nyanja.  eq Chinyanja.
+
+=item {zh} : Chinese
+
+Many forms are mutually un-intelligible in spoken media.
+Notable forms:
+{zh-Hans} Chinese, in simplified script;
+{zh-Hant} Chinese, in traditional script;
+{zh-tw} Taiwan Chinese;
+{zh-cn} PRC Chinese;
+{zh-sg} Singapore Chinese;
+{zh-mo} Macau Chinese;
+{zh-hk} Hong Kong Chinese;
+{zh-guoyu} Mandarin [Putonghua/Guoyu];
+{zh-hakka} Hakka [formerly "i-hakka"];
+{zh-min} Hokkien;
+{zh-min-nan} Southern Hokkien;
+{zh-wuu} Shanghaiese;
+{zh-xiang} Hunanese;
+{zh-gan} Gan;
+{zh-yue} Cantonese.
+
+=for etc
+{i-hakka} Hakka (old tag)
+
+=item {chn} : Chinook Jargon
+
+eq Chinook Wawa.
+
+=item {chp} : Chipewyan
+
+=item {cho} : Choctaw
+
+=item {cu} : Church Slavic
+
+eq Old Church Slavonic.
+
+=item {chk} : Chuukese
+
+eq Trukese.  eq Chuuk.  eq Truk.  eq Ruk.
+
+=item {cv} : Chuvash
+
+=item {cop} : Coptic
+
+=item {kw} : Cornish
+
+=item {co} : Corsican
+
+eq Corse.
+
+=item {cr} : Cree
+
+NOT Creek!  (Formerly "cre".)
+
+=item {mus} : Creek
+
+NOT Cree!
+
+=item [{cpe} : English-based Creoles and pidgins (Other)]
+
+=item [{cpf} : French-based Creoles and pidgins (Other)]
+
+=item [{cpp} : Portuguese-based Creoles and pidgins (Other)]
+
+=item [{crp} : Creoles and pidgins (Other)]
+
+=item {hr} : Croatian
+
+eq Croat.
+
+=item [{cus} : Cushitic (Other)]
+
+=item {cs} : Czech
+
+=item {dak} : Dakota
+
+eq Nakota.  eq Latoka.
+
+=item {da} : Danish
+
+=item {dar} : Dargwa
+
+=item {day} : Dayak
+
+=item {i-default} : Default (Fallthru) Language
+
+Defined in RFC 2277, this is for tagging text
+(which must include English text, and might/should include text
+in other appropriate languages) that is emitted in a context
+where language-negotiation wasn't possible -- in SMTP mail failure
+messages, for example.
+
+=item {del} : Delaware
+
+=item {din} : Dinka
+
+=item {dv} : Divehi
+
+eq Maldivian.  (Formerly "div".)
+
+=item {doi} : Dogri
+
+NOT Dogrib!
+
+=item {dgr} : Dogrib
+
+NOT Dogri!
+
+=item [{dra} : Dravidian (Other)]
+
+=item {dua} : Duala
+
+=item {nl} : Dutch
+
+eq Netherlander.  Notable forms:
+{nl-nl} Netherlands Dutch;
+{nl-be} Belgian Dutch.
+
+=item {dum} : Middle Dutch (ca.1050-1350)
+
+(Historical)
+
+=item {dyu} : Dyula
+
+=item {dz} : Dzongkha
+
+=item {efi} : Efik
+
+=item {egy} : Ancient Egyptian
+
+(Historical)
+
+=item {eka} : Ekajuk
+
+=item {elx} : Elamite
+
+(Historical)
+
+=item {en} : English
+
+Notable forms:
+{en-au} Australian English;
+{en-bz} Belize English;
+{en-ca} Canadian English;
+{en-gb} UK English;
+{en-ie} Irish English;
+{en-jm} Jamaican English;
+{en-nz} New Zealand English;
+{en-ph} Philippine English;
+{en-tt} Trinidad English;
+{en-us} US English;
+{en-za} South African English;
+{en-zw} Zimbabwe English.
+
+=item {enm} : Old English (1100-1500)
+
+(Historical)
+
+=item {ang} : Old English (ca.450-1100)
+
+eq Anglo-Saxon.  (Historical)
+
+=item {i-enochian} : Enochian (Artificial)
+
+=item {myv} : Erzya
+
+=item {eo} : Esperanto
+
+(Artificial)
+
+=item {et} : Estonian
+
+=item {ee} : Ewe
+
+(Formerly "ewe".)
+
+=item {ewo} : Ewondo
+
+=item {fan} : Fang
+
+=item {fat} : Fanti
+
+=item {fo} : Faroese
+
+=item {fj} : Fijian
+
+=item {fi} : Finnish
+
+=item [{fiu} : Finno-Ugrian (Other)]
+
+eq Finno-Ugric.  NOT Ugaritic!
+
+=item {fon} : Fon
+
+=item {fr} : French
+
+Notable forms:
+{fr-fr} France French;
+{fr-be} Belgian French;
+{fr-ca} Canadian French;
+{fr-ch} Swiss French;
+{fr-lu} Luxembourg French;
+{fr-mc} Monaco French.
+
+=item {frm} : Middle French (ca.1400-1600)
+
+(Historical)
+
+=item {fro} : Old French (842-ca.1400)
+
+(Historical)
+
+=item {fy} : Frisian
+
+=item {fur} : Friulian
+
+=item {ff} : Fulah
+
+(Formerly "ful".)
+
+=item {gaa} : Ga
+
+=item {gd} : Scots Gaelic
+
+NOT Scots!
+
+=item {gl} : Gallegan
+
+eq Galician
+
+=item {lg} : Ganda
+
+(Formerly "lug".)
+
+=item {gay} : Gayo
+
+=item {gba} : Gbaya
+
+=item {gez} : Geez
+
+eq Ge'ez
+
+=item {ka} : Georgian
+
+=item {de} : German
+
+Notable forms:
+{de-at} Austrian German;
+{de-be} Belgian German;
+{de-ch} Swiss German;
+{de-de} Germany German;
+{de-li} Liechtenstein German;
+{de-lu} Luxembourg German.
+
+=item {gmh} : Middle High German (ca.1050-1500)
+
+(Historical)
+
+=item {goh} : Old High German (ca.750-1050)
+
+(Historical)
+
+=item [{gem} : Germanic (Other)]
+
+=item {gil} : Gilbertese
+
+=item {gon} : Gondi
+
+=item {gor} : Gorontalo
+
+=item {got} : Gothic
+
+(Historical)
+
+=item {grb} : Grebo
+
+=item {grc} : Ancient Greek
+
+(Historical)  (Until 15th century or so.)
+
+=item {el} : Modern Greek
+
+(Since 15th century or so.)
+
+=item {gn} : Guarani
+
+GuaranE<iacute>
+
+=item {gu} : Gujarati
+
+=item {gwi} : Gwich'in
+
+eq Gwichin
+
+=item {hai} : Haida
+
+=item {ht} : Haitian
+
+eq Haitian Creole
+
+=item {ha} : Hausa
+
+=item {haw} : Hawaiian
+
+Hawai'ian
+
+=item {he} : Hebrew
+
+(Formerly "iw".)
+
+=for etc
+{iw} Hebrew (old tag)
+
+=item {hz} : Herero
+
+=item {hil} : Hiligaynon
+
+=item {him} : Himachali
+
+=item {hi} : Hindi
+
+=item {ho} : Hiri Motu
+
+=item {hit} : Hittite
+
+(Historical)
+
+=item {hmn} : Hmong
+
+=item {hu} : Hungarian
+
+=item {hup} : Hupa
+
+=item {iba} : Iban
+
+=item {is} : Icelandic
+
+=item {io} : Ido
+
+(Artificial)
+
+=item {ig} : Igbo
+
+(Formerly "ibo".)
+
+=item {ijo} : Ijo
+
+=item {ilo} : Iloko
+
+=item [{inc} : Indic (Other)]
+
+=item [{ine} : Indo-European (Other)]
+
+=item {id} : Indonesian
+
+(Formerly "in".)
+
+=for etc
+{in} Indonesian (old tag)
+
+=item {inh} : Ingush
+
+=item {ia} : Interlingua (International Auxiliary Language Association)
+
+(Artificial)  NOT Interlingue!
+
+=item {ie} : Interlingue
+
+(Artificial)  NOT Interlingua!
+
+=item {iu} : Inuktitut
+
+A subform of "Eskimo".
+
+=item {ik} : Inupiaq
+
+A subform of "Eskimo".
+
+=item [{ira} : Iranian (Other)]
+
+=item {ga} : Irish
+
+=item {mga} : Middle Irish (900-1200)
+
+(Historical)
+
+=item {sga} : Old Irish (to 900)
+
+(Historical)
+
+=item [{iro} : Iroquoian languages]
+
+=item {it} : Italian
+
+Notable forms:
+{it-it} Italy Italian;
+{it-ch} Swiss Italian.
+
+=item {ja} : Japanese
+
+(NOT "jp"!)
+
+=item {jv} : Javanese
+
+(Formerly "jw" because of a typo.)
+
+=item {jrb} : Judeo-Arabic
+
+=item {jpr} : Judeo-Persian
+
+=item {kbd} : Kabardian
+
+=item {kab} : Kabyle
+
+=item {kac} : Kachin
+
+=item {kl} : Kalaallisut
+
+eq Greenlandic "Eskimo"
+
+=item {xal} : Kalmyk
+
+=item {kam} : Kamba
+
+=item {kn} : Kannada
+
+eq Kanarese.  NOT Canadian!
+
+=item {kr} : Kanuri
+
+(Formerly "kau".)
+
+=item {krc} : Karachay-Balkar
+
+=item {kaa} : Kara-Kalpak
+
+=item {kar} : Karen
+
+=item {ks} : Kashmiri
+
+=item {csb} : Kashubian
+
+eq Kashub
+
+=item {kaw} : Kawi
+
+=item {kk} : Kazakh
+
+=item {kha} : Khasi
+
+=item {km} : Khmer
+
+eq Cambodian.  eq Kampuchean.
+
+=item [{khi} : Khoisan (Other)]
+
+=item {kho} : Khotanese
+
+=item {ki} : Kikuyu
+
+eq Gikuyu.
+
+=item {kmb} : Kimbundu
+
+=item {rw} : Kinyarwanda
+
+=item {ky} : Kirghiz
+
+=item {i-klingon} : Klingon
+
+=item {kv} : Komi
+
+=item {kg} : Kongo
+
+(Formerly "kon".)
+
+=item {kok} : Konkani
+
+=item {ko} : Korean
+
+=item {kos} : Kosraean
+
+=item {kpe} : Kpelle
+
+=item {kro} : Kru
+
+=item {kj} : Kuanyama
+
+=item {kum} : Kumyk
+
+=item {ku} : Kurdish
+
+=item {kru} : Kurukh
+
+=item {kut} : Kutenai
+
+=item {lad} : Ladino
+
+eq Judeo-Spanish.  NOT Ladin (a minority language in Italy).
+
+=item {lah} : Lahnda
+
+NOT Lamba!
+
+=item {lam} : Lamba
+
+NOT Lahnda!
+
+=item {lo} : Lao
+
+eq Laotian.
+
+=item {la} : Latin
+
+(Historical)  NOT Ladin!  NOT Ladino!
+
+=item {lv} : Latvian
+
+eq Lettish.
+
+=item {lb} : Letzeburgesch
+
+eq Luxemburgian, eq Luxemburger.  (Formerly "i-lux".)
+
+=for etc
+{i-lux} Letzeburgesch (old tag)
+
+=item {lez} : Lezghian
+
+=item {li} : Limburgish
+
+eq Limburger, eq Limburgan.  NOT Letzeburgesch!
+
+=item {ln} : Lingala
+
+=item {lt} : Lithuanian
+
+=item {nds} : Low German
+
+eq Low Saxon.  eq Low German.  eq Low Saxon.
+
+=item {art-lojban} : Lojban (Artificial)
+
+=item {loz} : Lozi
+
+=item {lu} : Luba-Katanga
+
+(Formerly "lub".)
+
+=item {lua} : Luba-Lulua
+
+=item {lui} : Luiseno
+
+eq LuiseE<ntilde>o.
+
+=item {lun} : Lunda
+
+=item {luo} : Luo (Kenya and Tanzania)
+
+=item {lus} : Lushai
+
+=item {mk} : Macedonian
+
+eq the modern Slavic language spoken in what was Yugoslavia.
+NOT the form of Greek spoken in Greek Macedonia!
+
+=item {mad} : Madurese
+
+=item {mag} : Magahi
+
+=item {mai} : Maithili
+
+=item {mak} : Makasar
+
+=item {mg} : Malagasy
+
+=item {ms} : Malay
+
+NOT Malayalam!
+
+=item {ml} : Malayalam
+
+NOT Malay!
+
+=item {mt} : Maltese
+
+=item {mnc} : Manchu
+
+=item {mdr} : Mandar
+
+NOT Mandarin!
+
+=item {man} : Mandingo
+
+=item {mni} : Manipuri
+
+eq Meithei.
+
+=item [{mno} : Manobo languages]
+
+=item {gv} : Manx
+
+=item {mi} : Maori
+
+NOT Mari!
+
+=item {mr} : Marathi
+
+=item {chm} : Mari
+
+NOT Maori!
+
+=item {mh} : Marshall
+
+eq Marshallese.
+
+=item {mwr} : Marwari
+
+=item {mas} : Masai
+
+=item [{myn} : Mayan languages]
+
+=item {men} : Mende
+
+=item {mic} : Micmac
+
+=item {min} : Minangkabau
+
+=item {i-mingo} : Mingo
+
+eq the Irquoian language West Virginia Seneca.  NOT New York Seneca!
+
+=item [{mis} : Miscellaneous languages]
+
+Don't use this.
+
+=item {moh} : Mohawk
+
+=item {mdf} : Moksha
+
+=item {mo} : Moldavian
+
+eq Moldovan.
+
+=item [{mkh} : Mon-Khmer (Other)]
+
+=item {lol} : Mongo
+
+=item {mn} : Mongolian
+
+eq Mongol.
+
+=item {mos} : Mossi
+
+=item [{mul} : Multiple languages]
+
+Not for normal use.
+
+=item [{mun} : Munda languages]
+
+=item {nah} : Nahuatl
+
+=item {nap} : Neapolitan
+
+=item {na} : Nauru
+
+=item {nv} : Navajo
+
+eq Navaho.  (Formerly "i-navajo".)
+
+=for etc
+{i-navajo} Navajo (old tag)
+
+=item {nd} : North Ndebele
+
+=item {nr} : South Ndebele
+
+=item {ng} : Ndonga
+
+=item {ne} : Nepali
+
+eq Nepalese.  Notable forms:
+{ne-np} Nepal Nepali;
+{ne-in} India Nepali.
+
+=item {new} : Newari
+
+=item {nia} : Nias
+
+=item [{nic} : Niger-Kordofanian (Other)]
+
+=item [{ssa} : Nilo-Saharan (Other)]
+
+=item {niu} : Niuean
+
+=item {nog} : Nogai
+
+=item {non} : Old Norse
+
+(Historical)
+
+=item [{nai} : North American Indian]
+
+Do not use this.
+
+=item {no} : Norwegian
+
+Note the two following forms:
+
+=item {nb} : Norwegian Bokmal
+
+eq BokmE<aring>l, (A form of Norwegian.)  (Formerly "no-bok".)
+
+=for etc
+{no-bok} Norwegian Bokmal (old tag)
+
+=item {nn} : Norwegian Nynorsk
+
+(A form of Norwegian.)  (Formerly "no-nyn".)
+
+=for etc
+{no-nyn} Norwegian Nynorsk (old tag)
+
+=item [{nub} : Nubian languages]
+
+=item {nym} : Nyamwezi
+
+=item {nyn} : Nyankole
+
+=item {nyo} : Nyoro
+
+=item {nzi} : Nzima
+
+=item {oc} : Occitan (post 1500)
+
+eq ProvenE<ccedil>al, eq Provencal
+
+=item {oj} : Ojibwa
+
+eq Ojibwe.  (Formerly "oji".)
+
+=item {or} : Oriya
+
+=item {om} : Oromo
+
+=item {osa} : Osage
+
+=item {os} : Ossetian; Ossetic
+
+=item [{oto} : Otomian languages]
+
+Group of languages collectively called "OtomE<iacute>".
+
+=item {pal} : Pahlavi
+
+eq Pahlevi
+
+=item {i-pwn} : Paiwan
+
+eq Pariwan
+
+=item {pau} : Palauan
+
+=item {pi} : Pali
+
+(Historical?)
+
+=item {pam} : Pampanga
+
+=item {pag} : Pangasinan
+
+=item {pa} : Panjabi
+
+eq Punjabi
+
+=item {pap} : Papiamento
+
+eq Papiamentu.
+
+=item [{paa} : Papuan (Other)]
+
+=item {fa} : Persian
+
+eq Farsi.  eq Iranian.
+
+=item {peo} : Old Persian (ca.600-400 B.C.)
+
+=item [{phi} : Philippine (Other)]
+
+=item {phn} : Phoenician
+
+(Historical)
+
+=item {pon} : Pohnpeian
+
+NOT Pompeiian!
+
+=item {pl} : Polish
+
+=item {pt} : Portuguese
+
+eq Portugese.  Notable forms:
+{pt-pt} Portugal Portuguese;
+{pt-br} Brazilian Portuguese.
+
+=item [{pra} : Prakrit languages]
+
+=item {pro} : Old Provencal (to 1500)
+
+eq Old ProvenE<ccedil>al.  (Historical.)
+
+=item {ps} : Pushto
+
+eq Pashto.  eq Pushtu.
+
+=item {qu} : Quechua
+
+eq Quecha.
+
+=item {rm} : Raeto-Romance
+
+eq Romansh.
+
+=item {raj} : Rajasthani
+
+=item {rap} : Rapanui
+
+=item {rar} : Rarotongan
+
+=item [{qaa - qtz} : Reserved for local use.]
+
+=item [{roa} : Romance (Other)]
+
+NOT Romanian!  NOT Romany!  NOT Romansh!
+
+=item {ro} : Romanian
+
+eq Rumanian.  NOT Romany!
+
+=item {rom} : Romany
+
+eq Rom.  NOT Romanian!
+
+=item {rn} : Rundi
+
+=item {ru} : Russian
+
+NOT White Russian!  NOT Rusyn!
+
+=item [{sal} : Salishan languages]
+
+Large language group.
+
+=item {sam} : Samaritan Aramaic
+
+NOT Aramaic!
+
+=item {se} : Northern Sami
+
+eq Lappish.  eq Lapp.  eq (Northern) Saami.
+
+=item {sma} : Southern Sami
+
+=item {smn} : Inari Sami
+
+=item {smj} : Lule Sami
+
+=item {sms} : Skolt Sami
+
+=item [{smi} : Sami languages (Other)]
+
+=item {sm} : Samoan
+
+=item {sad} : Sandawe
+
+=item {sg} : Sango
+
+=item {sa} : Sanskrit
+
+(Historical)
+
+=item {sat} : Santali
+
+=item {sc} : Sardinian
+
+eq Sard.
+
+=item {sas} : Sasak
+
+=item {sco} : Scots
+
+NOT Scots Gaelic!
+
+=item {sel} : Selkup
+
+=item [{sem} : Semitic (Other)]
+
+=item {sr} : Serbian
+
+eq Serb.  NOT Sorbian.
+
+Notable forms:
+{sr-Cyrl} : Serbian in Cyrillic script;
+{sr-Latn} : Serbian in Latin script.
+
+=item {srr} : Serer
+
+=item {shn} : Shan
+
+=item {sn} : Shona
+
+=item {sid} : Sidamo
+
+=item {sgn-...} : Sign Languages
+
+Always use with a subtag.  Notable forms:
+{sgn-gb} British Sign Language (BSL);
+{sgn-ie} Irish Sign Language (ESL);
+{sgn-ni} Nicaraguan Sign Language (ISN);
+{sgn-us} American Sign Language (ASL).
+
+(And so on with other country codes as the subtag.)
+
+=item {bla} : Siksika
+
+eq Blackfoot.  eq Pikanii.
+
+=item {sd} : Sindhi
+
+=item {si} : Sinhalese
+
+eq Sinhala.
+
+=item [{sit} : Sino-Tibetan (Other)]
+
+=item [{sio} : Siouan languages]
+
+=item {den} : Slave (Athapascan)
+
+("Slavey" is a subform.)
+
+=item [{sla} : Slavic (Other)]
+
+=item {sk} : Slovak
+
+eq Slovakian.
+
+=item {sl} : Slovenian
+
+eq Slovene.
+
+=item {sog} : Sogdian
+
+=item {so} : Somali
+
+=item {son} : Songhai
+
+=item {snk} : Soninke
+
+=item {wen} : Sorbian languages
+
+eq Wendish.  eq Sorb.  eq Lusatian.  eq Wend.  NOT Venda!  NOT Serbian!
+
+=item {nso} : Northern Sotho
+
+=item {st} : Southern Sotho
+
+eq Sutu.  eq Sesotho.
+
+=item [{sai} : South American Indian (Other)]
+
+=item {es} : Spanish
+
+Notable forms:
+{es-ar} Argentine Spanish;
+{es-bo} Bolivian Spanish;
+{es-cl} Chilean Spanish;
+{es-co} Colombian Spanish;
+{es-do} Dominican Spanish;
+{es-ec} Ecuadorian Spanish;
+{es-es} Spain Spanish;
+{es-gt} Guatemalan Spanish;
+{es-hn} Honduran Spanish;
+{es-mx} Mexican Spanish;
+{es-pa} Panamanian Spanish;
+{es-pe} Peruvian Spanish;
+{es-pr} Puerto Rican Spanish;
+{es-py} Paraguay Spanish;
+{es-sv} Salvadoran Spanish;
+{es-us} US Spanish;
+{es-uy} Uruguayan Spanish;
+{es-ve} Venezuelan Spanish.
+
+=item {suk} : Sukuma
+
+=item {sux} : Sumerian
+
+(Historical)
+
+=item {su} : Sundanese
+
+=item {sus} : Susu
+
+=item {sw} : Swahili
+
+eq Kiswahili
+
+=item {ss} : Swati
+
+=item {sv} : Swedish
+
+Notable forms:
+{sv-se} Sweden Swedish;
+{sv-fi} Finland Swedish.
+
+=item {syr} : Syriac
+
+=item {tl} : Tagalog
+
+=item {ty} : Tahitian
+
+=item [{tai} : Tai (Other)]
+
+NOT Thai!
+
+=item {tg} : Tajik
+
+=item {tmh} : Tamashek
+
+=item {ta} : Tamil
+
+=item {i-tao} : Tao
+
+eq Yami.
+
+=item {tt} : Tatar
+
+=item {i-tay} : Tayal
+
+eq Atayal.  eq Atayan.
+
+=item {te} : Telugu
+
+=item {ter} : Tereno
+
+=item {tet} : Tetum
+
+=item {th} : Thai
+
+NOT Tai!
+
+=item {bo} : Tibetan
+
+=item {tig} : Tigre
+
+=item {ti} : Tigrinya
+
+=item {tem} : Timne
+
+eq Themne.  eq Timene.
+
+=item {tiv} : Tiv
+
+=item {tli} : Tlingit
+
+=item {tpi} : Tok Pisin
+
+=item {tkl} : Tokelau
+
+=item {tog} : Tonga (Nyasa)
+
+NOT Tsonga!
+
+=item {to} : Tonga (Tonga Islands)
+
+(Pronounced "Tong-a", not "Tong-ga")
+
+NOT Tsonga!
+
+=item {tsi} : Tsimshian
+
+eq Sm'algyax
+
+=item {ts} : Tsonga
+
+NOT Tonga!
+
+=item {i-tsu} : Tsou
+
+=item {tn} : Tswana
+
+Same as Setswana.
+
+=item {tum} : Tumbuka
+
+=item [{tup} : Tupi languages]
+
+=item {tr} : Turkish
+
+(Typically in Roman script)
+
+=item {ota} : Ottoman Turkish (1500-1928)
+
+(Typically in Arabic script)  (Historical)
+
+=item {crh} : Crimean Turkish
+
+eq Crimean Tatar
+
+=item {tk} : Turkmen
+
+eq Turkmeni.
+
+=item {tvl} : Tuvalu
+
+=item {tyv} : Tuvinian
+
+eq Tuvan.  eq Tuvin.
+
+=item {tw} : Twi
+
+=item {udm} : Udmurt
+
+=item {uga} : Ugaritic
+
+NOT Ugric!
+
+=item {ug} : Uighur
+
+=item {uk} : Ukrainian
+
+=item {umb} : Umbundu
+
+=item {und} : Undetermined
+
+Not a tag for normal use.
+
+=item {ur} : Urdu
+
+=item {uz} : Uzbek
+
+eq E<Ouml>zbek
+
+Notable forms:
+{uz-Cyrl} Uzbek in Cyrillic script;
+{uz-Latn} Uzbek in Latin script.
+
+=item {vai} : Vai
+
+=item {ve} : Venda
+
+NOT Wendish!  NOT Wend!  NOT Avestan!  (Formerly "ven".)
+
+=item {vi} : Vietnamese
+
+eq Viet.
+
+=item {vo} : Volapuk
+
+eq VolapE<uuml>k.  (Artificial)
+
+=item {vot} : Votic
+
+eq Votian.  eq Vod.
+
+=item [{wak} : Wakashan languages]
+
+=item {wa} : Walloon
+
+=item {wal} : Walamo
+
+eq Wolaytta.
+
+=item {war} : Waray
+
+Presumably the Philippine language Waray-Waray (SamareE<ntilde>o),
+not the smaller Philippine language Waray Sorsogon, nor the extinct
+Australian language Waray.
+
+=item {was} : Washo
+
+eq Washoe
+
+=item {cy} : Welsh
+
+=item {wo} : Wolof
+
+=item {x-...} : Unregistered (Semi-Private Use)
+
+"x-" is a prefix for language tags that are not registered with ISO
+or IANA.  Example, x-double-dutch
+
+=item {xh} : Xhosa
+
+=item {sah} : Yakut
+
+=item {yao} : Yao
+
+(The Yao in Malawi?)
+
+=item {yap} : Yapese
+
+eq Yap
+
+=item {ii} : Sichuan Yi
+
+=item {yi} : Yiddish
+
+Formerly "ji".  Usually in Hebrew script.
+
+Notable forms:
+{yi-latn} Yiddish in Latin script
+
+=item {yo} : Yoruba
+
+=item [{ypk} : Yupik languages]
+
+Several "Eskimo" languages.
+
+=item {znd} : Zande
+
+=item [{zap} : Zapotec]
+
+(A group of languages.)
+
+=item {zen} : Zenaga
+
+NOT Zend.
+
+=item {za} : Zhuang
+
+=item {zu} : Zulu
+
+=item {zun} : Zuni
+
+eq ZuE<ntilde>i
+
+=back
+
+=for woohah END
+
+=head1 SEE ALSO
+
+L<I18N::LangTags|I18N::LangTags> and its "See Also" section.
+
+=head1 COPYRIGHT AND DISCLAIMER
+
+Copyright (c) 2001+ Sean M. Burke. All rights reserved.
+
+You can redistribute and/or
+modify this document under the same terms as Perl itself.
+
+This document is provided in the hope that it will be
+useful, but without any warranty;
+without even the implied warranty of accuracy, authoritativeness,
+completeness, merchantability, or fitness for a particular purpose.
+
+Email any corrections or questions to me.
+
+=head1 AUTHOR
+
+Sean M. Burke, sburkeE<64>cpan.org
+
+=cut
+
+
+# To generate a list of just the two and three-letter codes:
+
+#!/usr/local/bin/perl -w
+
+require 5; # Time-stamp: "2001-03-13 21:53:39 MST"
+ # Sean M. Burke, sburke@cpan.org
+ # This program is for generating the language_codes.txt file
+use strict;
+use LWP::Simple;
+use HTML::TreeBuilder 3.10;
+my $root = HTML::TreeBuilder->new();
+my $url = 'http://lcweb.loc.gov/standards/iso639-2/bibcodes.html';
+$root->parse(get($url) || die "Can't get $url");
+$root->eof();
+
+my @codes;
+
+foreach my $tr ($root->find_by_tag_name('tr')) {
+  my @f = map $_->as_text(), $tr->content_list();
+  #print map("<$_> ", @f), "\n";
+  next unless @f == 5;
+  pop @f; # nix the French name
+  next if $f[-1] eq 'Language Name (English)'; # it's a header line
+  my $xx = splice(@f, 2,1); # pull out the two-letter code
+  $f[-1] =~ s/^\s+//;
+  $f[-1] =~ s/\s+$//;
+  if($xx =~ m/[a-zA-Z]/) {   # there's a two-letter code for it
+    push   @codes, [ lc($f[-1]),   "$xx\t$f[-1]\n" ];
+  } else { # print the three-letter codes.
+    if($f[0] eq $f[1]) {
+      push @codes, [ lc($f[-1]), "$f[1]\t$f[2]\n" ];
+    } else { # shouldn't happen
+      push @codes, [ lc($f[-1]), "@f !!!!!!!!!!\n" ]; 
+    }
+  }
+}
+
+print map $_->[1], sort {; $a->[0] cmp $b->[0] } @codes;
+print "[ based on $url\n at ", scalar(localtime), "]\n",
+  "[Note: doesn't include IANA-registered codes.]\n";
+exit;
+__END__
+
diff --git a/lib/5.24.1/IO/Compress/Adapter/Bzip2.pm b/lib/5.24.1/IO/Compress/Adapter/Bzip2.pm
new file mode 100644
index 00000000..61955504
--- /dev/null
+++ b/lib/5.24.1/IO/Compress/Adapter/Bzip2.pm
@@ -0,0 +1,154 @@
+package IO::Compress::Adapter::Bzip2 ;
+
+use strict;
+use warnings;
+use bytes;
+
+use IO::Compress::Base::Common  2.069 qw(:Status);
+
+use Compress::Raw::Bzip2  2.069 ;
+
+our ($VERSION);
+$VERSION = '2.069_001';
+
+sub mkCompObject
+{
+    my $BlockSize100K = shift ;
+    my $WorkFactor = shift ;
+    my $Verbosity  = shift ;
+
+    $BlockSize100K = 1 if ! defined $BlockSize100K ;
+    $WorkFactor    = 0 if ! defined $WorkFactor ;
+    $Verbosity     = 0 if ! defined $Verbosity ;
+
+    my ($def, $status) = new Compress::Raw::Bzip2(1, $BlockSize100K,
+                                                 $WorkFactor, $Verbosity);
+
+    return (undef, "Could not create Deflate object: $status", $status)
+        if $status != BZ_OK ;
+
+    return bless {'Def'        => $def,
+                  'Error'      => '',
+                  'ErrorNo'    => 0,
+                 }  ;     
+}
+
+sub compr
+{
+    my $self = shift ;
+
+    my $def   = $self->{Def};
+
+    my $status = $def->bzdeflate($_[0], $_[1]) ;
+    $self->{ErrorNo} = $status;
+
+    if ($status != BZ_RUN_OK)
+    {
+        $self->{Error} = "Deflate Error: $status"; 
+        return STATUS_ERROR;
+    }
+
+    return STATUS_OK;    
+}
+
+sub flush
+{
+    my $self = shift ;
+
+    my $def   = $self->{Def};
+
+    my $status = $def->bzflush($_[0]);
+    $self->{ErrorNo} = $status;
+
+    if ($status != BZ_RUN_OK)
+    {
+        $self->{Error} = "Deflate Error: $status"; 
+        return STATUS_ERROR;
+    }
+
+    return STATUS_OK;    
+    
+}
+
+sub close
+{
+    my $self = shift ;
+
+    my $def   = $self->{Def};
+
+    my $status = $def->bzclose($_[0]);
+    $self->{ErrorNo} = $status;
+
+    if ($status != BZ_STREAM_END)
+    {
+        $self->{Error} = "Deflate Error: $status"; 
+        return STATUS_ERROR;
+    }
+
+    return STATUS_OK;    
+    
+}
+
+
+sub reset
+{
+    my $self = shift ;
+
+    my $outer = $self->{Outer};
+
+    my ($def, $status) = new Compress::Raw::Bzip2();
+    $self->{ErrorNo} = ($status == BZ_OK) ? 0 : $status ;
+
+    if ($status != BZ_OK)
+    {
+        $self->{Error} = "Cannot create Deflate object: $status"; 
+        return STATUS_ERROR;
+    }
+
+    $self->{Def} = $def;
+
+    return STATUS_OK;    
+}
+
+sub compressedBytes
+{
+    my $self = shift ;
+    $self->{Def}->compressedBytes();
+}
+
+sub uncompressedBytes
+{
+    my $self = shift ;
+    $self->{Def}->uncompressedBytes();
+}
+
+#sub total_out
+#{
+#    my $self = shift ;
+#    0;
+#}
+#
+
+#sub total_in
+#{
+#    my $self = shift ;
+#    $self->{Def}->total_in();
+#}
+#
+#sub crc32
+#{
+#    my $self = shift ;
+#    $self->{Def}->crc32();
+#}
+#
+#sub adler32
+#{
+#    my $self = shift ;
+#    $self->{Def}->adler32();
+#}
+
+
+1;
+
+__END__
+
diff --git a/lib/5.24.1/IO/Compress/Adapter/Deflate.pm b/lib/5.24.1/IO/Compress/Adapter/Deflate.pm
new file mode 100644
index 00000000..8ea7e699
--- /dev/null
+++ b/lib/5.24.1/IO/Compress/Adapter/Deflate.pm
@@ -0,0 +1,170 @@
+package IO::Compress::Adapter::Deflate ;
+
+use strict;
+use warnings;
+use bytes;
+
+use IO::Compress::Base::Common 2.069 qw(:Status);
+use Compress::Raw::Zlib  2.069 qw( !crc32 !adler32 ) ;
+                                  
+require Exporter;                                     
+our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, @EXPORT, %DEFLATE_CONSTANTS);
+
+$VERSION = '2.069_001';
+@ISA = qw(Exporter);
+@EXPORT_OK = @Compress::Raw::Zlib::DEFLATE_CONSTANTS;
+%EXPORT_TAGS = %Compress::Raw::Zlib::DEFLATE_CONSTANTS;
+@EXPORT = @EXPORT_OK;
+%DEFLATE_CONSTANTS = %EXPORT_TAGS ;
+
+sub mkCompObject
+{
+    my $crc32    = shift ;
+    my $adler32  = shift ;
+    my $level    = shift ;
+    my $strategy = shift ;
+
+    my ($def, $status) = new Compress::Raw::Zlib::Deflate
+                                -AppendOutput   => 1,
+                                -CRC32          => $crc32,
+                                -ADLER32        => $adler32,
+                                -Level          => $level,
+                                -Strategy       => $strategy,
+                                -WindowBits     => - MAX_WBITS;
+
+    return (undef, "Cannot create Deflate object: $status", $status) 
+        if $status != Z_OK;    
+
+    return bless {'Def'        => $def,
+                  'Error'      => '',
+                 } ;     
+}
+
+sub compr
+{
+    my $self = shift ;
+
+    my $def   = $self->{Def};
+
+    my $status = $def->deflate($_[0], $_[1]) ;
+    $self->{ErrorNo} = $status;
+
+    if ($status != Z_OK)
+    {
+        $self->{Error} = "Deflate Error: $status"; 
+        return STATUS_ERROR;
+    }
+
+    return STATUS_OK;    
+}
+
+sub flush
+{
+    my $self = shift ;
+
+    my $def   = $self->{Def};
+
+    my $opt = $_[1] || Z_FINISH;
+    my $status = $def->flush($_[0], $opt);
+    $self->{ErrorNo} = $status;
+
+    if ($status != Z_OK)
+    {
+        $self->{Error} = "Deflate Error: $status"; 
+        return STATUS_ERROR;
+    }
+
+    return STATUS_OK;        
+}
+
+sub close
+{
+    my $self = shift ;
+
+    my $def   = $self->{Def};
+
+    $def->flush($_[0], Z_FINISH)
+        if defined $def ;
+}
+
+sub reset
+{
+    my $self = shift ;
+
+    my $def   = $self->{Def};
+
+    my $status = $def->deflateReset() ;
+    $self->{ErrorNo} = $status;
+    if ($status != Z_OK)
+    {
+        $self->{Error} = "Deflate Error: $status"; 
+        return STATUS_ERROR;
+    }
+
+    return STATUS_OK;    
+}
+
+sub deflateParams 
+{
+    my $self = shift ;
+
+    my $def   = $self->{Def};
+
+    my $status = $def->deflateParams(@_);
+    $self->{ErrorNo} = $status;
+    if ($status != Z_OK)
+    {
+        $self->{Error} = "deflateParams Error: $status"; 
+        return STATUS_ERROR;
+    }
+
+    return STATUS_OK;   
+}
+
+
+
+#sub total_out
+#{
+#    my $self = shift ;
+#    $self->{Def}->total_out();
+#}
+#
+#sub total_in
+#{
+#    my $self = shift ;
+#    $self->{Def}->total_in();
+#}
+
+sub compressedBytes
+{
+    my $self = shift ;
+
+    $self->{Def}->compressedBytes();
+}
+
+sub uncompressedBytes
+{
+    my $self = shift ;
+    $self->{Def}->uncompressedBytes();
+}
+
+
+
+
+sub crc32
+{
+    my $self = shift ;
+    $self->{Def}->crc32();
+}
+
+sub adler32
+{
+    my $self = shift ;
+    $self->{Def}->adler32();
+}
+
+
+1;
+
+__END__
+
diff --git a/lib/5.24.1/IO/Compress/Adapter/Identity.pm b/lib/5.24.1/IO/Compress/Adapter/Identity.pm
new file mode 100644
index 00000000..7ec9b33f
--- /dev/null
+++ b/lib/5.24.1/IO/Compress/Adapter/Identity.pm
@@ -0,0 +1,101 @@
+package IO::Compress::Adapter::Identity ;
+
+use strict;
+use warnings;
+use bytes;
+
+use IO::Compress::Base::Common  2.069 qw(:Status);
+our ($VERSION);
+
+$VERSION = '2.069_001';
+
+sub mkCompObject
+{
+    my $level    = shift ;
+    my $strategy = shift ;
+
+    return bless {
+                  'CompSize'   => 0,
+                  'UnCompSize' => 0,
+                  'Error'      => '',
+                  'ErrorNo'    => 0,
+                 } ;     
+}
+
+sub compr
+{
+    my $self = shift ;
+
+    if (defined ${ $_[0] } && length ${ $_[0] }) {
+        $self->{CompSize} += length ${ $_[0] } ;
+        $self->{UnCompSize} = $self->{CompSize} ;
+
+        if ( ref $_[1] ) 
+          { ${ $_[1] } .= ${ $_[0] } }
+        else
+          { $_[1] .= ${ $_[0] } }
+    }
+
+    return STATUS_OK ;
+}
+
+sub flush
+{
+    my $self = shift ;
+
+    return STATUS_OK;    
+}
+
+sub close
+{
+    my $self = shift ;
+
+    return STATUS_OK;    
+}
+
+sub reset
+{
+    my $self = shift ;
+
+    $self->{CompSize}   = 0;
+    $self->{UnCompSize} = 0;
+
+    return STATUS_OK;    
+}
+
+sub deflateParams 
+{
+    my $self = shift ;
+
+    return STATUS_OK;   
+}
+
+#sub total_out
+#{
+#    my $self = shift ;
+#    return $self->{UnCompSize} ;
+#}
+#
+#sub total_in
+#{
+#    my $self = shift ;
+#    return $self->{UnCompSize} ;
+#}
+
+sub compressedBytes
+{
+    my $self = shift ;
+    return $self->{UnCompSize} ;
+}
+
+sub uncompressedBytes
+{
+    my $self = shift ;
+    return $self->{UnCompSize} ;
+}
+
+1;
+
+
+__END__
+
diff --git a/lib/5.24.1/IO/Compress/Base.pm b/lib/5.24.1/IO/Compress/Base.pm
new file mode 100644
index 00000000..0b672914
--- /dev/null
+++ b/lib/5.24.1/IO/Compress/Base.pm
@@ -0,0 +1,1048 @@
+
+package IO::Compress::Base ;
+
+require 5.006 ;
+
+use strict ;
+use warnings;
+
+use IO::Compress::Base::Common 2.069 ;
+
+use IO::File (); ;
+use Scalar::Util ();
+
+#use File::Glob;
+#require Exporter ;
+use Carp() ;
+use Symbol();
+#use bytes;
+
+our (@ISA, $VERSION);
+@ISA    = qw(Exporter IO::File);
+
+$VERSION = '2.069_001';
+
+#Can't locate object method "SWASHNEW" via package "utf8" (perhaps you forgot to load "utf8"?) at .../ext/Compress-Zlib/Gzip/blib/lib/Compress/Zlib/Common.pm line 16.
+
+sub saveStatus
+{
+    my $self   = shift ;
+    ${ *$self->{ErrorNo} } = shift() + 0 ;
+    ${ *$self->{Error} } = '' ;
+
+    return ${ *$self->{ErrorNo} } ;
+}
+
+
+sub saveErrorString
+{
+    my $self   = shift ;
+    my $retval = shift ;
+    ${ *$self->{Error} } = shift ;
+    ${ *$self->{ErrorNo} } = shift() + 0 if @_ ;
+
+    return $retval;
+}
+
+sub croakError
+{
+    my $self   = shift ;
+    $self->saveErrorString(0, $_[0]);
+    Carp::croak $_[0];
+}
+
+sub closeError
+{
+    my $self = shift ;
+    my $retval = shift ;
+
+    my $errno = *$self->{ErrorNo};
+    my $error = ${ *$self->{Error} };
+
+    $self->close();
+
+    *$self->{ErrorNo} = $errno ;
+    ${ *$self->{Error} } = $error ;
+
+    return $retval;
+}
+
+
+
+sub error
+{
+    my $self   = shift ;
+    return ${ *$self->{Error} } ;
+}
+
+sub errorNo
+{
+    my $self   = shift ;
+    return ${ *$self->{ErrorNo} } ;
+}
+
+
+sub writeAt
+{
+    my $self = shift ;
+    my $offset = shift;
+    my $data = shift;
+
+    if (defined *$self->{FH}) {
+        my $here = tell(*$self->{FH});
+        return $self->saveErrorString(undef, "Cannot seek to end of output filehandle: $!", $!) 
+            if $here < 0 ;
+        seek(*$self->{FH}, $offset, IO::Handle::SEEK_SET)
+            or return $self->saveErrorString(undef, "Cannot seek to end of output filehandle: $!", $!) ;
+        defined *$self->{FH}->write($data, length $data)
+            or return $self->saveErrorString(undef, $!, $!) ;
+        seek(*$self->{FH}, $here, IO::Handle::SEEK_SET)
+            or return $self->saveErrorString(undef, "Cannot seek to end of output filehandle: $!", $!) ;
+    }
+    else {
+        substr(${ *$self->{Buffer} }, $offset, length($data)) = $data ;
+    }
+
+    return 1;
+}
+
+sub outputPayload
+{
+
+    my $self = shift ;
+    return $self->output(@_);
+}
+
+
+sub output
+{
+    my $self = shift ;
+    my $data = shift ;
+    my $last = shift ;
+
+    return 1 
+        if length $data == 0 && ! $last ;
+
+    if ( *$self->{FilterContainer} ) {
+        *_ = \$data;
+        &{ *$self->{FilterContainer} }();
+    }
+
+    if (length $data) {
+        if ( defined *$self->{FH} ) {
+                defined *$self->{FH}->write( $data, length $data )
+                or return $self->saveErrorString(0, $!, $!); 
+        }
+        else {
+                ${ *$self->{Buffer} } .= $data ;
+        }
+    }
+
+    return 1;
+}
+
+sub getOneShotParams
+{
+    return ( 'multistream' => [IO::Compress::Base::Common::Parse_boolean,   1],
+           );
+}
+
+our %PARAMS = (
+            # Generic Parameters
+            'autoclose' => [IO::Compress::Base::Common::Parse_boolean,   0],
+            'encode'    => [IO::Compress::Base::Common::Parse_any,       undef],
+            'strict'    => [IO::Compress::Base::Common::Parse_boolean,   1],
+            'append'    => [IO::Compress::Base::Common::Parse_boolean,   0],
+            'binmodein' => [IO::Compress::Base::Common::Parse_boolean,   0],
+
+            'filtercontainer' => [IO::Compress::Base::Common::Parse_code,  undef],
+        );
+        
+sub checkParams
+{
+    my $self = shift ;
+    my $class = shift ;
+
+    my $got = shift || IO::Compress::Base::Parameters::new();
+
+    $got->parse(
+        {
+            %PARAMS,
+
+
+            $self->getExtraParams(),
+            *$self->{OneShot} ? $self->getOneShotParams() 
+                              : (),
+        }, 
+        @_) or $self->croakError("${class}: " . $got->getError())  ;
+
+    return $got ;
+}
+
+sub _create
+{
+    my $obj = shift;
+    my $got = shift;
+
+    *$obj->{Closed} = 1 ;
+
+    my $class = ref $obj;
+    $obj->croakError("$class: Missing Output parameter")
+        if ! @_ && ! $got ;
+
+    my $outValue = shift ;
+    my $oneShot = 1 ;
+
+    if (! $got)
+    {
+        $oneShot = 0 ;
+        $got = $obj->checkParams($class, undef, @_)
+            or return undef ;
+    }
+
+    my $lax = ! $got->getValue('strict') ;
+
+    my $outType = IO::Compress::Base::Common::whatIsOutput($outValue);
+
+    $obj->ckOutputParam($class, $outValue)
+        or return undef ;
+
+    if ($outType eq 'buffer') {
+        *$obj->{Buffer} = $outValue;
+    }
+    else {
+        my $buff = "" ;
+        *$obj->{Buffer} = \$buff ;
+    }
+
+    # Merge implies Append
+    my $merge = $got->getValue('merge') ;
+    my $appendOutput = $got->getValue('append') || $merge ;
+    *$obj->{Append} = $appendOutput;
+    *$obj->{FilterContainer} = $got->getValue('filtercontainer') ;
+
+    if ($merge)
+    {
+        # Switch off Merge mode if output file/buffer is empty/doesn't exist
+        if (($outType eq 'buffer' && length $$outValue == 0 ) ||
+            ($outType ne 'buffer' && (! -e $outValue || (-w _ && -z _))) )
+          { $merge = 0 }
+    }
+
+    # If output is a file, check that it is writable
+    #no warnings;
+    #if ($outType eq 'filename' && -e $outValue && ! -w _)
+    #  { return $obj->saveErrorString(undef, "Output file '$outValue' is not writable" ) }
+
+    $obj->ckParams($got)
+        or $obj->croakError("${class}: " . $obj->error());
+
+    if ($got->getValue('encode')) { 
+        my $want_encoding = $got->getValue('encode');
+        *$obj->{Encoding} = IO::Compress::Base::Common::getEncoding($obj, $class, $want_encoding);
+        my $x = *$obj->{Encoding}; 
+    }
+    else {
+        *$obj->{Encoding} = undef; 
+    }
+    
+    $obj->saveStatus(STATUS_OK) ;
+
+    my $status ;
+    if (! $merge)
+    {
+        *$obj->{Compress} = $obj->mkComp($got)
+            or return undef;
+        
+        *$obj->{UnCompSize} = new U64 ;
+        *$obj->{CompSize} = new U64 ;
+
+        if ( $outType eq 'buffer') {
+            ${ *$obj->{Buffer} }  = ''
+                unless $appendOutput ;
+        }
+        else {
+            if ($outType eq 'handle') {
+                *$obj->{FH} = $outValue ;
+                setBinModeOutput(*$obj->{FH}) ;
+                #$outValue->flush() ;
+                *$obj->{Handle} = 1 ;
+                if ($appendOutput)
+                {
+                    seek(*$obj->{FH}, 0, IO::Handle::SEEK_END)
+                        or return $obj->saveErrorString(undef, "Cannot seek to end of output filehandle: $!", $!) ;
+
+                }
+            }
+            elsif ($outType eq 'filename') {    
+                no warnings;
+                my $mode = '>' ;
+                $mode = '>>'
+                    if $appendOutput;
+                *$obj->{FH} = new IO::File "$mode $outValue" 
+                    or return $obj->saveErrorString(undef, "cannot open file '$outValue': $!", $!) ;
+                *$obj->{StdIO} = ($outValue eq '-'); 
+                setBinModeOutput(*$obj->{FH}) ;
+            }
+        }
+
+        *$obj->{Header} = $obj->mkHeader($got) ;
+        $obj->output( *$obj->{Header} )
+            or return undef;
+        $obj->beforePayload();
+    }
+    else
+    {
+        *$obj->{Compress} = $obj->createMerge($outValue, $outType)
+            or return undef;
+    }
+
+    *$obj->{Closed} = 0 ;
+    *$obj->{AutoClose} = $got->getValue('autoclose') ;
+    *$obj->{Output} = $outValue;
+    *$obj->{ClassName} = $class;
+    *$obj->{Got} = $got;
+    *$obj->{OneShot} = 0 ;
+
+    return $obj ;
+}
+
+sub ckOutputParam 
+{
+    my $self = shift ;
+    my $from = shift ;
+    my $outType = IO::Compress::Base::Common::whatIsOutput($_[0]);
+
+    $self->croakError("$from: output parameter not a filename, filehandle or scalar ref")
+        if ! $outType ;
+
+    #$self->croakError("$from: output filename is undef or null string")
+        #if $outType eq 'filename' && (! defined $_[0] || $_[0] eq '')  ;
+
+    $self->croakError("$from: output buffer is read-only")
+        if $outType eq 'buffer' && Scalar::Util::readonly(${ $_[0] });
+    
+    return 1;    
+}
+
+
+sub _def
+{
+    my $obj = shift ;
+    
+    my $class= (caller)[0] ;
+    my $name = (caller(1))[3] ;
+
+    $obj->croakError("$name: expected at least 1 parameters\n")
+        unless @_ >= 1 ;
+
+    my $input = shift ;
+    my $haveOut = @_ ;
+    my $output = shift ;
+
+    my $x = new IO::Compress::Base::Validator($class, *$obj->{Error}, $name, $input, $output)
+        or return undef ;
+
+    push @_, $output if $haveOut && $x->{Hash};
+
+    *$obj->{OneShot} = 1 ;
+
+    my $got = $obj->checkParams($name, undef, @_)
+        or return undef ;
+
+    $x->{Got} = $got ;
+
+#    if ($x->{Hash})
+#    {
+#        while (my($k, $v) = each %$input)
+#        {
+#            $v = \$input->{$k} 
+#                unless defined $v ;
+#
+#            $obj->_singleTarget($x, 1, $k, $v, @_)
+#                or return undef ;
+#        }
+#
+#        return keys %$input ;
+#    }
+
+    if ($x->{GlobMap})
+    {
+        $x->{oneInput} = 1 ;
+        foreach my $pair (@{ $x->{Pairs} })
+        {
+            my ($from, $to) = @$pair ;
+            $obj->_singleTarget($x, 1, $from, $to, @_)
+                or return undef ;
+        }
+
+        return scalar @{ $x->{Pairs} } ;
+    }
+
+    if (! $x->{oneOutput} )
+    {
+        my $inFile = ($x->{inType} eq 'filenames' 
+                        || $x->{inType} eq 'filename');
+
+        $x->{inType} = $inFile ? 'filename' : 'buffer';
+        
+        foreach my $in ($x->{oneInput} ? $input : @$input)
+        {
+            my $out ;
+            $x->{oneInput} = 1 ;
+
+            $obj->_singleTarget($x, $inFile, $in, \$out, @_)
+                or return undef ;
+
+            push @$output, \$out ;
+            #if ($x->{outType} eq 'array')
+            #  { push @$output, \$out }
+            #else
+            #  { $output->{$in} = \$out }
+        }
+
+        return 1 ;
+    }
+
+    # finally the 1 to 1 and n to 1
+    return $obj->_singleTarget($x, 1, $input, $output, @_);
+
+    Carp::croak "should not be here" ;
+}
+
+sub _singleTarget
+{
+    my $obj             = shift ;
+    my $x               = shift ;
+    my $inputIsFilename = shift;
+    my $input           = shift;
+    
+    if ($x->{oneInput})
+    {
+        $obj->getFileInfo($x->{Got}, $input)
+            if isaScalar($input) || (isaFilename($input) and $inputIsFilename) ;
+
+        my $z = $obj->_create($x->{Got}, @_)
+            or return undef ;
+
+
+        defined $z->_wr2($input, $inputIsFilename) 
+            or return $z->closeError(undef) ;
+
+        return $z->close() ;
+    }
+    else
+    {
+        my $afterFirst = 0 ;
+        my $inputIsFilename = ($x->{inType} ne 'array');
+        my $keep = $x->{Got}->clone();
+
+        #for my $element ( ($x->{inType} eq 'hash') ? keys %$input : @$input)
+        for my $element ( @$input)
+        {
+            my $isFilename = isaFilename($element);
+
+            if ( $afterFirst ++ )
+            {
+                defined addInterStream($obj, $element, $isFilename)
+                    or return $obj->closeError(undef) ;
+            }
+            else
+            {
+                $obj->getFileInfo($x->{Got}, $element)
+                    if isaScalar($element) || $isFilename;
+
+                $obj->_create($x->{Got}, @_)
+                    or return undef ;
+            }
+
+            defined $obj->_wr2($element, $isFilename) 
+                or return $obj->closeError(undef) ;
+
+            *$obj->{Got} = $keep->clone();
+        }
+        return $obj->close() ;
+    }
+
+}
+
+sub _wr2
+{
+    my $self = shift ;
+
+    my $source = shift ;
+    my $inputIsFilename = shift;
+
+    my $input = $source ;
+    if (! $inputIsFilename)
+    {
+        $input = \$source 
+            if ! ref $source;
+    }
+
+    if ( ref $input && ref $input eq 'SCALAR' )
+    {
+        return $self->syswrite($input, @_) ;
+    }
+
+    if ( ! ref $input  || isaFilehandle($input))
+    {
+        my $isFilehandle = isaFilehandle($input) ;
+
+        my $fh = $input ;
+
+        if ( ! $isFilehandle )
+        {
+            $fh = new IO::File "<$input"
+                or return $self->saveErrorString(undef, "cannot open file '$input': $!", $!) ;
+        }
+        binmode $fh if *$self->{Got}->valueOrDefault('binmodein') ;
+
+        my $status ;
+        my $buff ;
+        my $count = 0 ;
+        while ($status = read($fh, $buff, 16 * 1024)) {
+            $count += length $buff;
+            defined $self->syswrite($buff, @_) 
+                or return undef ;
+        }
+
+        return $self->saveErrorString(undef, $!, $!) 
+            if ! defined $status ;
+
+        if ( (!$isFilehandle || *$self->{AutoClose}) && $input ne '-')
+        {    
+            $fh->close() 
+                or return undef ;
+        }
+
+        return $count ;
+    }
+
+    Carp::croak "Should not be here";
+    return undef;
+}
+
+sub addInterStream
+{
+    my $self = shift ;
+    my $input = shift ;
+    my $inputIsFilename = shift ;
+
+    if (*$self->{Got}->getValue('multistream'))
+    {
+        $self->getFileInfo(*$self->{Got}, $input)
+            #if isaFilename($input) and $inputIsFilename ;
+            if isaScalar($input) || isaFilename($input) ;
+
+        # TODO -- newStream needs to allow gzip/zip header to be modified
+        return $self->newStream();
+    }
+    elsif (*$self->{Got}->getValue('autoflush'))
+    {
+        #return $self->flush(Z_FULL_FLUSH);
+    }
+
+    return 1 ;
+}
+
+sub getFileInfo
+{
+}
+
+sub TIEHANDLE
+{
+    return $_[0] if ref($_[0]);
+    die "OOPS\n" ;
+}
+  
+sub UNTIE
+{
+    my $self = shift ;
+}
+
+sub DESTROY
+{
+    my $self = shift ;
+    local ($., $@, $!, $^E, $?);
+    
+    $self->close() ;
+
+    # TODO - memory leak with 5.8.0 - this isn't called until 
+    #        global destruction
+    #
+    %{ *$self } = () ;
+    undef $self ;
+}
+
+
+
+sub filterUncompressed
+{
+}
+
+sub syswrite
+{
+    my $self = shift ;
+
+    my $buffer ;
+    if (ref $_[0] ) {
+        $self->croakError( *$self->{ClassName} . "::write: not a scalar reference" )
+            unless ref $_[0] eq 'SCALAR' ;
+        $buffer = $_[0] ;
+    }
+    else {
+        $buffer = \$_[0] ;
+    }
+
+    if (@_ > 1) {
+        my $slen = defined $$buffer ? length($$buffer) : 0;
+        my $len = $slen;
+        my $offset = 0;
+        $len = $_[1] if $_[1] < $len;
+
+        if (@_ > 2) {
+            $offset = $_[2] || 0;
+            $self->croakError(*$self->{ClassName} . "::write: offset outside string") 
+                if $offset > $slen;
+            if ($offset < 0) {
+                $offset += $slen;
+                $self->croakError( *$self->{ClassName} . "::write: offset outside string") if $offset < 0;
+            }
+            my $rem = $slen - $offset;
+            $len = $rem if $rem < $len;
+        }
+
+        $buffer = \substr($$buffer, $offset, $len) ;
+    }
+
+    return 0 if (! defined $$buffer || length $$buffer == 0) && ! *$self->{FlushPending};
+    
+#    *$self->{Pending} .= $$buffer ;
+#    
+#    return length $$buffer
+#        if (length *$self->{Pending} < 1024 * 16 && ! *$self->{FlushPending}) ;
+#
+#    $$buffer = *$self->{Pending} ; 
+#    *$self->{Pending} = '';
+    
+    if (*$self->{Encoding}) {      
+        $$buffer = *$self->{Encoding}->encode($$buffer);
+    }
+    else {
+        $] >= 5.008 and ( utf8::downgrade($$buffer, 1) 
+            or Carp::croak "Wide character in " .  *$self->{ClassName} . "::write:");
+    }
+
+    $self->filterUncompressed($buffer);
+
+    my $buffer_length = defined $$buffer ? length($$buffer) : 0 ;
+    *$self->{UnCompSize}->add($buffer_length) ;
+
+    my $outBuffer='';
+    my $status = *$self->{Compress}->compr($buffer, $outBuffer) ;
+
+    return $self->saveErrorString(undef, *$self->{Compress}{Error}, 
+                                         *$self->{Compress}{ErrorNo})
+        if $status == STATUS_ERROR;
+
+    *$self->{CompSize}->add(length $outBuffer) ;
+
+    $self->outputPayload($outBuffer)
+        or return undef;
+
+    return $buffer_length;
+}
+
+sub print
+{
+    my $self = shift;
+
+    #if (ref $self) {
+    #    $self = *$self{GLOB} ;
+    #}
+
+    if (defined $\) {
+        if (defined $,) {
+            defined $self->syswrite(join($,, @_) . $\);
+        } else {
+            defined $self->syswrite(join("", @_) . $\);
+        }
+    } else {
+        if (defined $,) {
+            defined $self->syswrite(join($,, @_));
+        } else {
+            defined $self->syswrite(join("", @_));
+        }
+    }
+}
+
+sub printf
+{
+    my $self = shift;
+    my $fmt = shift;
+    defined $self->syswrite(sprintf($fmt, @_));
+}
+
+sub _flushCompressed
+{
+    my $self = shift ;
+
+    my $outBuffer='';
+    my $status = *$self->{Compress}->flush($outBuffer, @_) ;
+    return $self->saveErrorString(0, *$self->{Compress}{Error}, 
+                                    *$self->{Compress}{ErrorNo})
+        if $status == STATUS_ERROR;
+
+    if ( defined *$self->{FH} ) {
+        *$self->{FH}->clearerr();
+    }
+
+    *$self->{CompSize}->add(length $outBuffer) ;
+
+    $self->outputPayload($outBuffer)
+        or return 0;
+    return 1;        
+}
+
+sub flush
+{   
+    my $self = shift ;
+
+    $self->_flushCompressed(@_)
+        or return 0;        
+
+    if ( defined *$self->{FH} ) {
+        defined *$self->{FH}->flush()
+            or return $self->saveErrorString(0, $!, $!); 
+    }
+
+    return 1;
+}
+
+sub beforePayload
+{
+}
+
+sub _newStream
+{
+    my $self = shift ;
+    my $got  = shift;
+
+    my $class = ref $self;
+
+    $self->_writeTrailer()
+        or return 0 ;
+
+    $self->ckParams($got)
+        or $self->croakError("newStream: $self->{Error}");
+
+    if ($got->getValue('encode')) { 
+        my $want_encoding = $got->getValue('encode');
+        *$self->{Encoding} = IO::Compress::Base::Common::getEncoding($self, $class, $want_encoding);
+    }
+    else {
+        *$self->{Encoding} = undef;
+    }
+    
+    *$self->{Compress} = $self->mkComp($got)
+        or return 0;
+
+    *$self->{Header} = $self->mkHeader($got) ;
+    $self->output(*$self->{Header} )
+        or return 0;
+    
+    *$self->{UnCompSize}->reset();
+    *$self->{CompSize}->reset();
+
+    $self->beforePayload();
+
+    return 1 ;
+}
+
+sub newStream
+{
+    my $self = shift ;
+  
+    my $got = $self->checkParams('newStream', *$self->{Got}, @_)
+        or return 0 ;    
+
+    $self->_newStream($got);
+
+#    *$self->{Compress} = $self->mkComp($got)
+#        or return 0;
+#
+#    *$self->{Header} = $self->mkHeader($got) ;
+#    $self->output(*$self->{Header} )
+#        or return 0;
+#    
+#    *$self->{UnCompSize}->reset();
+#    *$self->{CompSize}->reset();
+#
+#    $self->beforePayload();
+#
+#    return 1 ;
+}
+
+sub reset
+{
+    my $self = shift ;
+    return *$self->{Compress}->reset() ;
+}
+
+sub _writeTrailer
+{
+    my $self = shift ;
+
+    my $trailer = '';
+
+    my $status = *$self->{Compress}->close($trailer) ;
+    return $self->saveErrorString(0, *$self->{Compress}{Error}, *$self->{Compress}{ErrorNo})
+        if $status == STATUS_ERROR;
+
+    *$self->{CompSize}->add(length $trailer) ;
+
+    $trailer .= $self->mkTrailer();
+    defined $trailer
+      or return 0;
+
+    return $self->output($trailer);
+}
+
+sub _writeFinalTrailer
+{
+    my $self = shift ;
+
+    return $self->output($self->mkFinalTrailer());
+}
+
+sub close
+{
+    my $self = shift ;
+    return 1 if *$self->{Closed} || ! *$self->{Compress} ;
+    *$self->{Closed} = 1 ;
+
+    untie *$self 
+        if $] >= 5.008 ;
+
+    *$self->{FlushPending} = 1 ;
+    $self->_writeTrailer()
+        or return 0 ;
+
+    $self->_writeFinalTrailer()
+        or return 0 ;
+
+    $self->output( "", 1 )
+        or return 0;
+
+    if (defined *$self->{FH}) {
+
+        if ((! *$self->{Handle} || *$self->{AutoClose}) && ! *$self->{StdIO}) {
+            $! = 0 ;
+            *$self->{FH}->close()
+                or return $self->saveErrorString(0, $!, $!); 
+        }
+        delete *$self->{FH} ;
+        # This delete can set $! in older Perls, so reset the errno
+        $! = 0 ;
+    }
+
+    return 1;
+}
+
+
+#sub total_in
+#sub total_out
+#sub msg
+#
+#sub crc
+#{
+#    my $self = shift ;
+#    return *$self->{Compress}->crc32() ;
+#}
+#
+#sub msg
+#{
+#    my $self = shift ;
+#    return *$self->{Compress}->msg() ;
+#}
+#
+#sub dict_adler
+#{
+#    my $self = shift ;
+#    return *$self->{Compress}->dict_adler() ;
+#}
+#
+#sub get_Level
+#{
+#    my $self = shift ;
+#    return *$self->{Compress}->get_Level() ;
+#}
+#
+#sub get_Strategy
+#{
+#    my $self = shift ;
+#    return *$self->{Compress}->get_Strategy() ;
+#}
+
+
+sub tell
+{
+    my $self = shift ;
+
+    return *$self->{UnCompSize}->get32bit() ;
+}
+
+sub eof
+{
+    my $self = shift ;
+
+    return *$self->{Closed} ;
+}
+
+
+sub seek
+{
+    my $self     = shift ;
+    my $position = shift;
+    my $whence   = shift ;
+
+    my $here = $self->tell() ;
+    my $target = 0 ;
+
+    #use IO::Handle qw(SEEK_SET SEEK_CUR SEEK_END);
+    use IO::Handle ;
+
+    if ($whence == IO::Handle::SEEK_SET) {
+        $target = $position ;
+    }
+    elsif ($whence == IO::Handle::SEEK_CUR || $whence == IO::Handle::SEEK_END) {
+        $target = $here + $position ;
+    }
+    else {
+        $self->croakError(*$self->{ClassName} . "::seek: unknown value, $whence, for whence parameter");
+    }
+
+    # short circuit if seeking to current offset
+    return 1 if $target == $here ;    
+
+    # Outlaw any attempt to seek backwards
+    $self->croakError(*$self->{ClassName} . "::seek: cannot seek backwards")
+        if $target < $here ;
+
+    # Walk the file to the new offset
+    my $offset = $target - $here ;
+
+    my $buffer ;
+    defined $self->syswrite("\x00" x $offset)
+        or return 0;
+
+    return 1 ;
+}
+
+sub binmode
+{
+    1;
+#    my $self     = shift ;
+#    return defined *$self->{FH} 
+#            ? binmode *$self->{FH} 
+#            : 1 ;
+}
+
+sub fileno
+{
+    my $self     = shift ;
+    return defined *$self->{FH} 
+            ? *$self->{FH}->fileno() 
+            : undef ;
+}
+
+sub opened
+{
+    my $self     = shift ;
+    return ! *$self->{Closed} ;
+}
+
+sub autoflush
+{
+    my $self     = shift ;
+    return defined *$self->{FH} 
+            ? *$self->{FH}->autoflush(@_) 
+            : undef ;
+}
+
+sub input_line_number
+{
+    return undef ;
+}
+
+
+sub _notAvailable
+{
+    my $name = shift ;
+    return sub { Carp::croak "$name Not Available: File opened only for output" ; } ;
+}
+
+*read     = _notAvailable('read');
+*READ     = _notAvailable('read');
+*readline = _notAvailable('readline');
+*READLINE = _notAvailable('readline');
+*getc     = _notAvailable('getc');
+*GETC     = _notAvailable('getc');
+
+*FILENO   = \&fileno;
+*PRINT    = \&print;
+*PRINTF   = \&printf;
+*WRITE    = \&syswrite;
+*write    = \&syswrite;
+*SEEK     = \&seek; 
+*TELL     = \&tell;
+*EOF      = \&eof;
+*CLOSE    = \&close;
+*BINMODE  = \&binmode;
+
+#*sysread  = \&_notAvailable;
+#*syswrite = \&_write;
+
+1; 
+
+__END__
+
+=head1 NAME
+
+IO::Compress::Base - Base Class for IO::Compress modules 
+
+=head1 SYNOPSIS
+
+    use IO::Compress::Base ;
+
+=head1 DESCRIPTION
+
+This module is not intended for direct use in application code. Its sole
+purpose is to be sub-classed by IO::Compress modules.
+
+=head1 SEE ALSO
+
+L<Compress::Zlib>, L<IO::Compress::Gzip>, L<IO::Uncompress::Gunzip>, L<IO::Compress::Deflate>, L<IO::Uncompress::Inflate>, L<IO::Compress::RawDeflate>, L<IO::Uncompress::RawInflate>, L<IO::Compress::Bzip2>, L<IO::Uncompress::Bunzip2>, L<IO::Compress::Lzma>, L<IO::Uncompress::UnLzma>, L<IO::Compress::Xz>, L<IO::Uncompress::UnXz>, L<IO::Compress::Lzop>, L<IO::Uncompress::UnLzop>, L<IO::Compress::Lzf>, L<IO::Uncompress::UnLzf>, L<IO::Uncompress::AnyInflate>, L<IO::Uncompress::AnyUncompress>
+
+L<IO::Compress::FAQ|IO::Compress::FAQ>
+
+L<File::GlobMapper|File::GlobMapper>, L<Archive::Zip|Archive::Zip>,
+L<Archive::Tar|Archive::Tar>,
+L<IO::Zlib|IO::Zlib>
+
+=head1 AUTHOR
+
+This module was written by Paul Marquess, F<pmqs@cpan.org>. 
+
+=head1 MODIFICATION HISTORY
+
+See the Changes file.
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright (c) 2005-2015 Paul Marquess. All rights reserved.
+
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
diff --git a/lib/5.24.1/IO/Compress/Base/Common.pm b/lib/5.24.1/IO/Compress/Base/Common.pm
new file mode 100644
index 00000000..ef0eb725
--- /dev/null
+++ b/lib/5.24.1/IO/Compress/Base/Common.pm
@@ -0,0 +1,1045 @@
+package IO::Compress::Base::Common;
+
+use strict ;
+use warnings;
+use bytes;
+
+use Carp;
+use Scalar::Util qw(blessed readonly);
+use File::GlobMapper;
+
+require Exporter;
+our ($VERSION, @ISA, @EXPORT, %EXPORT_TAGS, $HAS_ENCODE);
+@ISA = qw(Exporter);
+$VERSION = '2.069_001';
+
+@EXPORT = qw( isaFilehandle isaFilename isaScalar
+              whatIsInput whatIsOutput 
+              isaFileGlobString cleanFileGlobString oneTarget
+              setBinModeInput setBinModeOutput
+              ckInOutParams 
+              createSelfTiedObject
+              
+              isGeMax32
+
+              MAX32
+
+              WANT_CODE
+              WANT_EXT
+              WANT_UNDEF
+              WANT_HASH
+
+              STATUS_OK
+              STATUS_ENDSTREAM
+              STATUS_EOF
+              STATUS_ERROR
+          );  
+
+%EXPORT_TAGS = ( Status => [qw( STATUS_OK
+                                 STATUS_ENDSTREAM
+                                 STATUS_EOF
+                                 STATUS_ERROR
+                           )]);
+
+                       
+use constant STATUS_OK        => 0;
+use constant STATUS_ENDSTREAM => 1;
+use constant STATUS_EOF       => 2;
+use constant STATUS_ERROR     => -1;
+use constant MAX16            => 0xFFFF ;  
+use constant MAX32            => 0xFFFFFFFF ;  
+use constant MAX32cmp         => 0xFFFFFFFF + 1 - 1; # for 5.6.x on 32-bit need to force an non-IV value 
+          
+
+sub isGeMax32
+{
+    return $_[0] >= MAX32cmp ;
+}
+
+sub hasEncode()
+{
+    if (! defined $HAS_ENCODE) {
+        eval
+        {
+            require Encode;
+            Encode->import();
+        };
+
+        $HAS_ENCODE = $@ ? 0 : 1 ;
+    }
+
+    return $HAS_ENCODE;
+}
+
+sub getEncoding($$$)
+{
+    my $obj = shift;
+    my $class = shift ;
+    my $want_encoding = shift ;
+
+    $obj->croakError("$class: Encode module needed to use -Encode")
+        if ! hasEncode();
+
+    my $encoding = Encode::find_encoding($want_encoding);
+
+    $obj->croakError("$class: Encoding '$want_encoding' is not available")
+       if ! $encoding;
+
+    return $encoding;
+}
+
+our ($needBinmode);
+$needBinmode = ($^O eq 'MSWin32' || 
+                    ($] >= 5.006 && eval ' ${^UNICODE} || ${^UTF8LOCALE} '))
+                    ? 1 : 1 ;
+
+sub setBinModeInput($)
+{
+    my $handle = shift ;
+
+    binmode $handle 
+        if  $needBinmode;
+}
+
+sub setBinModeOutput($)
+{
+    my $handle = shift ;
+
+    binmode $handle
+        if  $needBinmode;
+}
+
+sub isaFilehandle($)
+{
+    use utf8; # Pragma needed to keep Perl 5.6.0 happy
+    return (defined $_[0] and 
+             (UNIVERSAL::isa($_[0],'GLOB') or 
+              UNIVERSAL::isa($_[0],'IO::Handle') or
+              UNIVERSAL::isa(\$_[0],'GLOB')) 
+          )
+}
+
+sub isaScalar
+{
+    return ( defined($_[0]) and ref($_[0]) eq 'SCALAR' and defined ${ $_[0] } ) ;
+}
+
+sub isaFilename($)
+{
+    return (defined $_[0] and 
+           ! ref $_[0]    and 
+           UNIVERSAL::isa(\$_[0], 'SCALAR'));
+}
+
+sub isaFileGlobString
+{
+    return defined $_[0] && $_[0] =~ /^<.*>$/;
+}
+
+sub cleanFileGlobString
+{
+    my $string = shift ;
+
+    $string =~ s/^\s*<\s*(.*)\s*>\s*$/$1/;
+
+    return $string;
+}
+
+use constant WANT_CODE  => 1 ;
+use constant WANT_EXT   => 2 ;
+use constant WANT_UNDEF => 4 ;
+#use constant WANT_HASH  => 8 ;
+use constant WANT_HASH  => 0 ;
+
+sub whatIsInput($;$)
+{
+    my $got = whatIs(@_);
+    
+    if (defined $got && $got eq 'filename' && defined $_[0] && $_[0] eq '-')
+    {
+        #use IO::File;
+        $got = 'handle';
+        $_[0] = *STDIN;
+        #$_[0] = new IO::File("<-");
+    }
+
+    return $got;
+}
+
+sub whatIsOutput($;$)
+{
+    my $got = whatIs(@_);
+    
+    if (defined $got && $got eq 'filename' && defined $_[0] && $_[0] eq '-')
+    {
+        $got = 'handle';
+        $_[0] = *STDOUT;
+        #$_[0] = new IO::File(">-");
+    }
+    
+    return $got;
+}
+
+sub whatIs ($;$)
+{
+    return 'handle' if isaFilehandle($_[0]);
+
+    my $wantCode = defined $_[1] && $_[1] & WANT_CODE ;
+    my $extended = defined $_[1] && $_[1] & WANT_EXT ;
+    my $undef    = defined $_[1] && $_[1] & WANT_UNDEF ;
+    my $hash     = defined $_[1] && $_[1] & WANT_HASH ;
+
+    return 'undef'  if ! defined $_[0] && $undef ;
+
+    if (ref $_[0]) {
+        return ''       if blessed($_[0]); # is an object
+        #return ''       if UNIVERSAL::isa($_[0], 'UNIVERSAL'); # is an object
+        return 'buffer' if UNIVERSAL::isa($_[0], 'SCALAR');
+        return 'array'  if UNIVERSAL::isa($_[0], 'ARRAY')  && $extended ;
+        return 'hash'   if UNIVERSAL::isa($_[0], 'HASH')   && $hash ;
+        return 'code'   if UNIVERSAL::isa($_[0], 'CODE')   && $wantCode ;
+        return '';
+    }
+
+    return 'fileglob' if $extended && isaFileGlobString($_[0]);
+    return 'filename';
+}
+
+sub oneTarget
+{
+    return $_[0] =~ /^(code|handle|buffer|filename)$/;
+}
+
+sub IO::Compress::Base::Validator::new
+{
+    my $class = shift ;
+
+    my $Class = shift ;
+    my $error_ref = shift ;
+    my $reportClass = shift ;
+
+    my %data = (Class       => $Class, 
+                Error       => $error_ref,
+                reportClass => $reportClass, 
+               ) ;
+
+    my $obj = bless \%data, $class ;
+
+    local $Carp::CarpLevel = 1;
+
+    my $inType    = $data{inType}    = whatIsInput($_[0], WANT_EXT|WANT_HASH);
+    my $outType   = $data{outType}   = whatIsOutput($_[1], WANT_EXT|WANT_HASH);
+
+    my $oneInput  = $data{oneInput}  = oneTarget($inType);
+    my $oneOutput = $data{oneOutput} = oneTarget($outType);
+
+    if (! $inType)
+    {
+        $obj->croakError("$reportClass: illegal input parameter") ;
+        #return undef ;
+    }    
+
+#    if ($inType eq 'hash')
+#    {
+#        $obj->{Hash} = 1 ;
+#        $obj->{oneInput} = 1 ;
+#        return $obj->validateHash($_[0]);
+#    }
+
+    if (! $outType)
+    {
+        $obj->croakError("$reportClass: illegal output parameter") ;
+        #return undef ;
+    }    
+
+
+    if ($inType ne 'fileglob' && $outType eq 'fileglob')
+    {
+        $obj->croakError("Need input fileglob for outout fileglob");
+    }    
+
+#    if ($inType ne 'fileglob' && $outType eq 'hash' && $inType ne 'filename' )
+#    {
+#        $obj->croakError("input must ne filename or fileglob when output is a hash");
+#    }    
+
+    if ($inType eq 'fileglob' && $outType eq 'fileglob')
+    {
+        $data{GlobMap} = 1 ;
+        $data{inType} = $data{outType} = 'filename';
+        my $mapper = new File::GlobMapper($_[0], $_[1]);
+        if ( ! $mapper )
+        {
+            return $obj->saveErrorString($File::GlobMapper::Error) ;
+        }
+        $data{Pairs} = $mapper->getFileMap();
+
+        return $obj;
+    }
+    
+    $obj->croakError("$reportClass: input and output $inType are identical")
+        if $inType eq $outType && $_[0] eq $_[1] && $_[0] ne '-' ;
+
+    if ($inType eq 'fileglob') # && $outType ne 'fileglob'
+    {
+        my $glob = cleanFileGlobString($_[0]);
+        my @inputs = glob($glob);
+
+        if (@inputs == 0)
+        {
+            # TODO -- legal or die?
+            die "globmap matched zero file -- legal or die???" ;
+        }
+        elsif (@inputs == 1)
+        {
+            $obj->validateInputFilenames($inputs[0])
+                or return undef;
+            $_[0] = $inputs[0]  ;
+            $data{inType} = 'filename' ;
+            $data{oneInput} = 1;
+        }
+        else
+        {
+            $obj->validateInputFilenames(@inputs)
+                or return undef;
+            $_[0] = [ @inputs ] ;
+            $data{inType} = 'filenames' ;
+        }
+    }
+    elsif ($inType eq 'filename')
+    {
+        $obj->validateInputFilenames($_[0])
+            or return undef;
+    }
+    elsif ($inType eq 'array')
+    {
+        $data{inType} = 'filenames' ;
+        $obj->validateInputArray($_[0])
+            or return undef ;
+    }
+
+    return $obj->saveErrorString("$reportClass: output buffer is read-only")
+        if $outType eq 'buffer' && readonly(${ $_[1] });
+
+    if ($outType eq 'filename' )
+    {
+        $obj->croakError("$reportClass: output filename is undef or null string")
+            if ! defined $_[1] || $_[1] eq ''  ;
+
+        if (-e $_[1])
+        {
+            if (-d _ )
+            {
+                return $obj->saveErrorString("output file '$_[1]' is a directory");
+            }
+        }
+    }
+    
+    return $obj ;
+}
+
+sub IO::Compress::Base::Validator::saveErrorString
+{
+    my $self   = shift ;
+    ${ $self->{Error} } = shift ;
+    return undef;
+    
+}
+
+sub IO::Compress::Base::Validator::croakError
+{
+    my $self   = shift ;
+    $self->saveErrorString($_[0]);
+    croak $_[0];
+}
+
+
+
+sub IO::Compress::Base::Validator::validateInputFilenames
+{
+    my $self = shift ;
+
+    foreach my $filename (@_)
+    {
+        $self->croakError("$self->{reportClass}: input filename is undef or null string")
+            if ! defined $filename || $filename eq ''  ;
+
+        next if $filename eq '-';
+
+        if (! -e $filename )
+        {
+            return $self->saveErrorString("input file '$filename' does not exist");
+        }
+
+        if (-d _ )
+        {
+            return $self->saveErrorString("input file '$filename' is a directory");
+        }
+
+#        if (! -r _ )
+#        {
+#            return $self->saveErrorString("cannot open file '$filename': $!");
+#        }
+    }
+
+    return 1 ;
+}
+
+sub IO::Compress::Base::Validator::validateInputArray
+{
+    my $self = shift ;
+
+    if ( @{ $_[0] } == 0 )
+    {
+        return $self->saveErrorString("empty array reference") ;
+    }    
+
+    foreach my $element ( @{ $_[0] } )
+    {
+        my $inType  = whatIsInput($element);
+    
+        if (! $inType)
+        {
+            $self->croakError("unknown input parameter") ;
+        }    
+        elsif($inType eq 'filename')
+        {
+            $self->validateInputFilenames($element)
+                or return undef ;
+        }
+        else
+        {
+            $self->croakError("not a filename") ;
+        }
+    }
+
+    return 1 ;
+}
+
+#sub IO::Compress::Base::Validator::validateHash
+#{
+#    my $self = shift ;
+#    my $href = shift ;
+#
+#    while (my($k, $v) = each %$href)
+#    {
+#        my $ktype = whatIsInput($k);
+#        my $vtype = whatIsOutput($v, WANT_EXT|WANT_UNDEF) ;
+#
+#        if ($ktype ne 'filename')
+#        {
+#            return $self->saveErrorString("hash key not filename") ;
+#        }    
+#
+#        my %valid = map { $_ => 1 } qw(filename buffer array undef handle) ;
+#        if (! $valid{$vtype})
+#        {
+#            return $self->saveErrorString("hash value not ok") ;
+#        }    
+#    }
+#
+#    return $self ;
+#}
+
+sub createSelfTiedObject
+{
+    my $class = shift || (caller)[0] ;
+    my $error_ref = shift ;
+
+    my $obj = bless Symbol::gensym(), ref($class) || $class;
+    tie *$obj, $obj if $] >= 5.005;
+    *$obj->{Closed} = 1 ;
+    $$error_ref = '';
+    *$obj->{Error} = $error_ref ;
+    my $errno = 0 ;
+    *$obj->{ErrorNo} = \$errno ;
+
+    return $obj;
+}
+
+
+
+#package Parse::Parameters ;
+#
+#
+#require Exporter;
+#our ($VERSION, @ISA, @EXPORT);
+#$VERSION = '2.000_08';
+#@ISA = qw(Exporter);
+
+$EXPORT_TAGS{Parse} = [qw( ParseParameters 
+                           Parse_any Parse_unsigned Parse_signed 
+                           Parse_boolean Parse_string
+                           Parse_code
+                           Parse_writable_scalar
+                         )
+                      ];              
+
+push @EXPORT, @{ $EXPORT_TAGS{Parse} } ;
+
+use constant Parse_any      => 0x01;
+use constant Parse_unsigned => 0x02;
+use constant Parse_signed   => 0x04;
+use constant Parse_boolean  => 0x08;
+use constant Parse_string   => 0x10;
+use constant Parse_code     => 0x20;
+
+#use constant Parse_store_ref        => 0x100 ;
+#use constant Parse_multiple         => 0x100 ;
+use constant Parse_writable         => 0x200 ;
+use constant Parse_writable_scalar  => 0x400 | Parse_writable ;
+
+use constant OFF_PARSED     => 0 ;
+use constant OFF_TYPE       => 1 ;
+use constant OFF_DEFAULT    => 2 ;
+use constant OFF_FIXED      => 3 ;
+#use constant OFF_FIRST_ONLY => 4 ;
+#use constant OFF_STICKY     => 5 ;
+
+use constant IxError => 0;
+use constant IxGot   => 1 ;
+
+sub ParseParameters
+{
+    my $level = shift || 0 ; 
+
+    my $sub = (caller($level + 1))[3] ;
+    local $Carp::CarpLevel = 1 ;
+    
+    return $_[1]
+        if @_ == 2 && defined $_[1] && UNIVERSAL::isa($_[1], "IO::Compress::Base::Parameters");
+    
+    my $p = new IO::Compress::Base::Parameters() ;            
+    $p->parse(@_)
+        or croak "$sub: $p->[IxError]" ;
+
+    return $p;
+}
+
+
+use strict;
+
+use warnings;
+use Carp;
+
+
+sub Init
+{
+    my $default = shift ;
+    my %got ;
+    
+    my $obj = IO::Compress::Base::Parameters::new();
+    while (my ($key, $v) = each %$default)
+    {
+        croak "need 2 params [@$v]"
+            if @$v != 2 ;
+
+        my ($type, $value) = @$v ;
+#        my ($first_only, $sticky, $type, $value) = @$v ;
+        my $sticky = 0;
+        my $x ;
+        $obj->_checkType($key, \$value, $type, 0, \$x) 
+            or return undef ;
+
+        $key = lc $key;
+
+#        if (! $sticky) {
+#            $x = []
+#                if $type & Parse_multiple;
+
+#            $got{$key} = [0, $type, $value, $x, $first_only, $sticky] ;
+            $got{$key} = [0, $type, $value, $x] ;            
+#        }
+#
+#        $got{$key}[OFF_PARSED] = 0 ;
+    }
+    
+    return bless \%got, "IO::Compress::Base::Parameters::Defaults" ;
+}
+
+sub IO::Compress::Base::Parameters::new
+{
+    #my $class = shift ;
+
+    my $obj;
+    $obj->[IxError] = '';
+    $obj->[IxGot] = {} ;          
+
+    return bless $obj, 'IO::Compress::Base::Parameters' ;
+}
+
+sub IO::Compress::Base::Parameters::setError
+{
+    my $self = shift ;
+    my $error = shift ;
+    my $retval = @_ ? shift : undef ;
+
+
+    $self->[IxError] = $error ;
+    return $retval;
+}
+          
+sub IO::Compress::Base::Parameters::getError
+{
+    my $self = shift ;
+    return $self->[IxError] ;
+}
+          
+sub IO::Compress::Base::Parameters::parse
+{
+    my $self = shift ;
+    my $default = shift ;
+
+    my $got = $self->[IxGot] ;
+    my $firstTime = keys %{ $got } == 0 ;
+
+    my (@Bad) ;
+    my @entered = () ;
+
+    # Allow the options to be passed as a hash reference or
+    # as the complete hash.
+    if (@_ == 0) {
+        @entered = () ;
+    }
+    elsif (@_ == 1) {
+        my $href = $_[0] ;
+    
+        return $self->setError("Expected even number of parameters, got 1")
+            if ! defined $href or ! ref $href or ref $href ne "HASH" ;
+ 
+        foreach my $key (keys %$href) {
+            push @entered, $key ;
+            push @entered, \$href->{$key} ;
+        }
+    }
+    else {
+       
+        my $count = @_;
+        return $self->setError("Expected even number of parameters, got $count")
+            if $count % 2 != 0 ;
+        
+        for my $i (0.. $count / 2 - 1) {
+            push @entered, $_[2 * $i] ;
+            push @entered, \$_[2 * $i + 1] ;
+        }
+    }
+
+        foreach my $key (keys %$default)
+        {
+    
+            my ($type, $value) = @{ $default->{$key} } ;
+  
+            if ($firstTime) {   
+                $got->{$key} = [0, $type, $value, $value] ;               
+            }
+            else
+            {
+                $got->{$key}[OFF_PARSED] = 0 ;      
+            }               
+        }
+
+
+    my %parsed = ();
+    
+   
+    for my $i (0.. @entered / 2 - 1) {
+        my $key = $entered[2* $i] ;
+        my $value = $entered[2* $i+1] ;
+
+        #print "Key [$key] Value [$value]" ;
+        #print defined $$value ? "[$$value]\n" : "[undef]\n";
+
+        $key =~ s/^-// ;
+        my $canonkey = lc $key;
+ 
+        if ($got->{$canonkey})                                  
+        {
+            my $type = $got->{$canonkey}[OFF_TYPE] ;
+            my $parsed = $parsed{$canonkey};
+            ++ $parsed{$canonkey};
+
+            return $self->setError("Muliple instances of '$key' found") 
+                if $parsed ; 
+
+            my $s ;
+            $self->_checkType($key, $value, $type, 1, \$s)
+                or return undef ;
+
+            $value = $$value ;
+            $got->{$canonkey} = [1, $type, $value, $s] ;
+
+        }
+        else
+          { push (@Bad, $key) }
+    }
+ 
+    if (@Bad) {
+        my ($bad) = join(", ", @Bad) ;
+        return $self->setError("unknown key value(s) $bad") ;
+    }
+
+    return 1;
+}
+
+sub IO::Compress::Base::Parameters::_checkType
+{
+    my $self = shift ;
+
+    my $key   = shift ;
+    my $value = shift ;
+    my $type  = shift ;
+    my $validate  = shift ;
+    my $output  = shift;
+
+    #local $Carp::CarpLevel = $level ;
+    #print "PARSE $type $key $value $validate $sub\n" ;
+
+    if ($type & Parse_writable_scalar)
+    {
+        return $self->setError("Parameter '$key' not writable")
+            if  readonly $$value ;
+
+        if (ref $$value) 
+        {
+            return $self->setError("Parameter '$key' not a scalar reference")
+                if ref $$value ne 'SCALAR' ;
+
+            $$output = $$value ;
+        }
+        else  
+        {
+            return $self->setError("Parameter '$key' not a scalar")
+                if ref $value ne 'SCALAR' ;
+
+            $$output = $value ;
+        }
+
+        return 1;
+    }
+
+
+    $value = $$value ;
+
+    if ($type & Parse_any)
+    {
+        $$output = $value ;
+        return 1;
+    }
+    elsif ($type & Parse_unsigned)
+    {
+     
+        return $self->setError("Parameter '$key' must be an unsigned int, got 'undef'")
+            if ! defined $value ;
+        return $self->setError("Parameter '$key' must be an unsigned int, got '$value'")
+            if $value !~ /^\d+$/;
+    
+        $$output = defined $value ? $value : 0 ;    
+        return 1;
+    }
+    elsif ($type & Parse_signed)
+    {
+        return $self->setError("Parameter '$key' must be a signed int, got 'undef'")
+            if ! defined $value ;
+        return $self->setError("Parameter '$key' must be a signed int, got '$value'")
+            if $value !~ /^-?\d+$/;
+
+        $$output = defined $value ? $value : 0 ;    
+        return 1 ;
+    }
+    elsif ($type & Parse_boolean)
+    {
+        return $self->setError("Parameter '$key' must be an int, got '$value'")
+            if defined $value && $value !~ /^\d*$/;
+
+        $$output =  defined $value && $value != 0 ? 1 : 0 ;    
+        return 1;
+    }
+
+    elsif ($type & Parse_string)
+    {
+        $$output = defined $value ? $value : "" ;    
+        return 1;
+    }
+    elsif ($type & Parse_code)
+    {
+        return $self->setError("Parameter '$key' must be a code reference, got '$value'")
+            if (! defined $value || ref $value ne 'CODE') ;
+
+        $$output = defined $value ? $value : "" ;    
+        return 1;
+    }
+    
+    $$output = $value ;
+    return 1;
+}
+
+sub IO::Compress::Base::Parameters::parsed
+{
+    return $_[0]->[IxGot]{$_[1]}[OFF_PARSED] ;
+}
+
+
+sub IO::Compress::Base::Parameters::getValue
+{
+    return  $_[0]->[IxGot]{$_[1]}[OFF_FIXED] ;
+}
+sub IO::Compress::Base::Parameters::setValue
+{
+    $_[0]->[IxGot]{$_[1]}[OFF_PARSED]  = 1;
+    $_[0]->[IxGot]{$_[1]}[OFF_DEFAULT] = $_[2] ;
+    $_[0]->[IxGot]{$_[1]}[OFF_FIXED]   = $_[2] ;            
+}
+
+sub IO::Compress::Base::Parameters::valueRef
+{
+    return  $_[0]->[IxGot]{$_[1]}[OFF_FIXED]  ;
+}
+
+sub IO::Compress::Base::Parameters::valueOrDefault
+{
+    my $self = shift ;
+    my $name = shift ;
+    my $default = shift ;
+
+    my $value = $self->[IxGot]{$name}[OFF_DEFAULT] ;
+    
+    return $value if defined $value ;
+    return $default ;
+}
+
+sub IO::Compress::Base::Parameters::wantValue
+{
+    return defined $_[0]->[IxGot]{$_[1]}[OFF_DEFAULT] ;
+}
+
+sub IO::Compress::Base::Parameters::clone
+{
+    my $self = shift ;
+    my $obj = [] ;
+    my %got ;
+
+    my $hash = $self->[IxGot] ;
+    for my $k (keys %{ $hash })
+    {
+        $got{$k} = [ @{ $hash->{$k} } ];
+    }
+
+    $obj->[IxError] = $self->[IxError];
+    $obj->[IxGot] = \%got ;
+
+    return bless $obj, 'IO::Compress::Base::Parameters' ;
+}
+
+package U64;
+
+use constant MAX32 => 0xFFFFFFFF ;
+use constant HI_1 => MAX32 + 1 ;
+use constant LOW   => 0 ;
+use constant HIGH  => 1;
+
+sub new
+{
+    return bless [ 0, 0 ], $_[0]
+        if @_ == 1 ;
+        
+    return bless [ $_[1], 0 ], $_[0]
+        if @_ == 2 ;
+        
+    return bless [ $_[2], $_[1] ], $_[0]      
+        if @_ == 3 ;  
+}
+
+sub newUnpack_V64
+{
+    my ($low, $hi) = unpack "V V", $_[0] ;
+    bless [ $low, $hi ], "U64";
+}
+
+sub newUnpack_V32
+{
+    my $string = shift;
+
+    my $low = unpack "V", $string ;
+    bless [ $low, 0 ], "U64";
+}
+
+sub reset
+{
+    $_[0]->[HIGH] = $_[0]->[LOW] = 0;
+}
+
+sub clone
+{
+    bless [ @{$_[0]}  ], ref $_[0] ;    
+}
+
+sub getHigh
+{
+    return $_[0]->[HIGH];
+}
+
+sub getLow
+{
+    return $_[0]->[LOW];
+}
+
+sub get32bit
+{
+    return $_[0]->[LOW];
+}
+
+sub get64bit
+{
+    # Not using << here because the result will still be
+    # a 32-bit value on systems where int size is 32-bits
+    return $_[0]->[HIGH] * HI_1 + $_[0]->[LOW];
+}
+
+sub add
+{
+#    my $self = shift;
+    my $value = $_[1];
+
+    if (ref $value eq 'U64') {
+        $_[0]->[HIGH] += $value->[HIGH] ;
+        $value = $value->[LOW];
+    }
+    elsif ($value > MAX32) {      
+        $_[0]->[HIGH] += int($value / HI_1) ;
+        $value = $value % HI_1;
+    }
+     
+    my $available = MAX32 - $_[0]->[LOW] ;
+ 
+    if ($value > $available) {
+       ++ $_[0]->[HIGH] ;
+       $_[0]->[LOW] = $value - $available - 1;
+    }
+    else {
+       $_[0]->[LOW] += $value ;
+    }
+}
+
+sub add32
+{
+#    my $self = shift;
+    my $value = $_[1];
+
+    if ($value > MAX32) {      
+        $_[0]->[HIGH] += int($value / HI_1) ;
+        $value = $value % HI_1;
+    }
+     
+    my $available = MAX32 - $_[0]->[LOW] ;
+ 
+    if ($value > $available) {
+       ++ $_[0]->[HIGH] ;
+       $_[0]->[LOW] = $value - $available - 1;
+    }
+    else {
+       $_[0]->[LOW] += $value ;
+    }
+}
+
+sub subtract
+{
+    my $self = shift;
+    my $value = shift;
+
+    if (ref $value eq 'U64') {
+
+        if ($value->[HIGH]) {
+            die "bad"
+                if $self->[HIGH] == 0 ||
+                   $value->[HIGH] > $self->[HIGH] ;
+
+           $self->[HIGH] -= $value->[HIGH] ;
+        }
+
+        $value = $value->[LOW] ;
+    }
+
+    if ($value > $self->[LOW]) {
+       -- $self->[HIGH] ;
+       $self->[LOW] = MAX32 - $value + $self->[LOW] + 1 ;
+    }
+    else {
+       $self->[LOW] -= $value;
+    }
+}
+
+sub equal
+{
+    my $self = shift;
+    my $other = shift;
+
+    return $self->[LOW]  == $other->[LOW] &&
+           $self->[HIGH] == $other->[HIGH] ;
+}
+
+sub gt
+{
+    my $self = shift;
+    my $other = shift;
+
+    return $self->cmp($other) > 0 ;
+}
+
+sub cmp
+{
+    my $self = shift;
+    my $other = shift ;
+
+    if ($self->[LOW] == $other->[LOW]) {
+        return $self->[HIGH] - $other->[HIGH] ;
+    }
+    else {
+        return $self->[LOW] - $other->[LOW] ;
+    }
+}
+    
+
+sub is64bit
+{
+    return $_[0]->[HIGH] > 0 ;
+}
+
+sub isAlmost64bit
+{
+    return $_[0]->[HIGH] > 0 ||  $_[0]->[LOW] == MAX32 ;
+}
+
+sub getPacked_V64
+{
+    return pack "V V", @{ $_[0] } ;
+}
+
+sub getPacked_V32
+{
+    return pack "V", $_[0]->[LOW] ;
+}
+
+sub pack_V64
+{
+    return pack "V V", $_[0], 0;
+}
+
+
+sub full32 
+{
+    return $_[0] == MAX32 ;
+}
+
+sub Value_VV64
+{
+    my $buffer = shift;
+
+    my ($lo, $hi) = unpack ("V V" , $buffer);
+    no warnings 'uninitialized';
+    return $hi * HI_1 + $lo;
+}
+
+
+package IO::Compress::Base::Common;
+
+1;
diff --git a/lib/5.24.1/IO/Compress/Bzip2.pm b/lib/5.24.1/IO/Compress/Bzip2.pm
new file mode 100644
index 00000000..2ef5cb58
--- /dev/null
+++ b/lib/5.24.1/IO/Compress/Bzip2.pm
@@ -0,0 +1,805 @@
+package IO::Compress::Bzip2 ;
+
+use strict ;
+use warnings;
+use bytes;
+require Exporter ;
+
+use IO::Compress::Base 2.069 ;
+
+use IO::Compress::Base::Common  2.069 qw();
+use IO::Compress::Adapter::Bzip2 2.069 ;
+
+
+
+our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $Bzip2Error);
+
+$VERSION = '2.069_001';
+$Bzip2Error = '';
+
+@ISA    = qw(Exporter IO::Compress::Base);
+@EXPORT_OK = qw( $Bzip2Error bzip2 ) ;
+%EXPORT_TAGS = %IO::Compress::Base::EXPORT_TAGS ;
+push @{ $EXPORT_TAGS{all} }, @EXPORT_OK ;
+Exporter::export_ok_tags('all');
+
+
+
+sub new
+{
+    my $class = shift ;
+
+    my $obj = IO::Compress::Base::Common::createSelfTiedObject($class, \$Bzip2Error);
+    return $obj->_create(undef, @_);
+}
+
+sub bzip2
+{
+    my $obj = IO::Compress::Base::Common::createSelfTiedObject(undef, \$Bzip2Error);
+    $obj->_def(@_);
+}
+
+
+sub mkHeader 
+{
+    my $self = shift ;
+    return '';
+
+}
+
+sub getExtraParams
+{
+    my $self = shift ;
+
+    use IO::Compress::Base::Common  2.069 qw(:Parse);
+    
+    return (  
+            'blocksize100k' => [IO::Compress::Base::Common::Parse_unsigned,  1],
+            'workfactor'    => [IO::Compress::Base::Common::Parse_unsigned,  0],
+            'verbosity'     => [IO::Compress::Base::Common::Parse_boolean,   0],
+        );
+}
+
+
+
+sub ckParams
+{
+    my $self = shift ;
+    my $got = shift;
+    
+    # check that BlockSize100K is a number between 1 & 9
+    if ($got->parsed('blocksize100k')) {
+        my $value = $got->getValue('blocksize100k');
+        return $self->saveErrorString(undef, "Parameter 'BlockSize100K' not between 1 and 9, got $value")
+            unless defined $value && $value >= 1 && $value <= 9;
+
+    }
+
+    # check that WorkFactor between 0 & 250
+    if ($got->parsed('workfactor')) {
+        my $value = $got->getValue('workfactor');
+        return $self->saveErrorString(undef, "Parameter 'WorkFactor' not between 0 and 250, got $value")
+            unless $value >= 0 && $value <= 250;
+    }
+
+    return 1 ;
+}
+
+
+sub mkComp
+{
+    my $self = shift ;
+    my $got = shift ;
+
+    my $BlockSize100K = $got->getValue('blocksize100k');
+    my $WorkFactor    = $got->getValue('workfactor');
+    my $Verbosity     = $got->getValue('verbosity');
+
+    my ($obj, $errstr, $errno) = IO::Compress::Adapter::Bzip2::mkCompObject(
+                                               $BlockSize100K, $WorkFactor,
+                                               $Verbosity);
+
+    return $self->saveErrorString(undef, $errstr, $errno)
+        if ! defined $obj;
+    
+    return $obj;
+}
+
+
+sub mkTrailer
+{
+    my $self = shift ;
+    return '';
+}
+
+sub mkFinalTrailer
+{
+    return '';
+}
+
+#sub newHeader
+#{
+#    my $self = shift ;
+#    return '';
+#}
+
+sub getInverseClass
+{
+    return ('IO::Uncompress::Bunzip2');
+}
+
+sub getFileInfo
+{
+    my $self = shift ;
+    my $params = shift;
+    my $file = shift ;
+    
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+IO::Compress::Bzip2 - Write bzip2 files/buffers
+ 
+ 
+
+=head1 SYNOPSIS
+
+    use IO::Compress::Bzip2 qw(bzip2 $Bzip2Error) ;
+
+    my $status = bzip2 $input => $output [,OPTS] 
+        or die "bzip2 failed: $Bzip2Error\n";
+
+    my $z = new IO::Compress::Bzip2 $output [,OPTS]
+        or die "bzip2 failed: $Bzip2Error\n";
+
+    $z->print($string);
+    $z->printf($format, $string);
+    $z->write($string);
+    $z->syswrite($string [, $length, $offset]);
+    $z->flush();
+    $z->tell();
+    $z->eof();
+    $z->seek($position, $whence);
+    $z->binmode();
+    $z->fileno();
+    $z->opened();
+    $z->autoflush();
+    $z->input_line_number();
+    $z->newStream( [OPTS] );
+    
+    $z->close() ;
+
+    $Bzip2Error ;
+
+    # IO::File mode
+
+    print $z $string;
+    printf $z $format, $string;
+    tell $z
+    eof $z
+    seek $z, $position, $whence
+    binmode $z
+    fileno $z
+    close $z ;
+    
+
+=head1 DESCRIPTION
+
+This module provides a Perl interface that allows writing bzip2 
+compressed data to files or buffer.
+
+For reading bzip2 files/buffers, see the companion module 
+L<IO::Uncompress::Bunzip2|IO::Uncompress::Bunzip2>.
+
+=head1 Functional Interface
+
+A top-level function, C<bzip2>, is provided to carry out
+"one-shot" compression between buffers and/or files. For finer
+control over the compression process, see the L</"OO Interface">
+section.
+
+    use IO::Compress::Bzip2 qw(bzip2 $Bzip2Error) ;
+
+    bzip2 $input_filename_or_reference => $output_filename_or_reference [,OPTS] 
+        or die "bzip2 failed: $Bzip2Error\n";
+
+The functional interface needs Perl5.005 or better.
+
+=head2 bzip2 $input_filename_or_reference => $output_filename_or_reference [, OPTS]
+
+C<bzip2> expects at least two parameters,
+C<$input_filename_or_reference> and C<$output_filename_or_reference>.
+
+=head3 The C<$input_filename_or_reference> parameter
+
+The parameter, C<$input_filename_or_reference>, is used to define the
+source of the uncompressed data. 
+
+It can take one of the following forms:
+
+=over 5
+
+=item A filename
+
+If the <$input_filename_or_reference> parameter is a simple scalar, it is
+assumed to be a filename. This file will be opened for reading and the
+input data will be read from it.
+
+=item A filehandle
+
+If the C<$input_filename_or_reference> parameter is a filehandle, the input
+data will be read from it.  The string '-' can be used as an alias for
+standard input.
+
+=item A scalar reference 
+
+If C<$input_filename_or_reference> is a scalar reference, the input data
+will be read from C<$$input_filename_or_reference>.
+
+=item An array reference 
+
+If C<$input_filename_or_reference> is an array reference, each element in
+the array must be a filename.
+
+The input data will be read from each file in turn. 
+
+The complete array will be walked to ensure that it only
+contains valid filenames before any data is compressed.
+
+=item An Input FileGlob string
+
+If C<$input_filename_or_reference> is a string that is delimited by the
+characters "<" and ">" C<bzip2> will assume that it is an 
+I<input fileglob string>. The input is the list of files that match the 
+fileglob.
+
+See L<File::GlobMapper|File::GlobMapper> for more details.
+
+=back
+
+If the C<$input_filename_or_reference> parameter is any other type,
+C<undef> will be returned.
+
+=head3 The C<$output_filename_or_reference> parameter
+
+The parameter C<$output_filename_or_reference> is used to control the
+destination of the compressed data. This parameter can take one of
+these forms.
+
+=over 5
+
+=item A filename
+
+If the C<$output_filename_or_reference> parameter is a simple scalar, it is
+assumed to be a filename.  This file will be opened for writing and the 
+compressed data will be written to it.
+
+=item A filehandle
+
+If the C<$output_filename_or_reference> parameter is a filehandle, the
+compressed data will be written to it.  The string '-' can be used as
+an alias for standard output.
+
+=item A scalar reference 
+
+If C<$output_filename_or_reference> is a scalar reference, the
+compressed data will be stored in C<$$output_filename_or_reference>.
+
+=item An Array Reference
+
+If C<$output_filename_or_reference> is an array reference, 
+the compressed data will be pushed onto the array.
+
+=item An Output FileGlob
+
+If C<$output_filename_or_reference> is a string that is delimited by the
+characters "<" and ">" C<bzip2> will assume that it is an
+I<output fileglob string>. The output is the list of files that match the
+fileglob.
+
+When C<$output_filename_or_reference> is an fileglob string,
+C<$input_filename_or_reference> must also be a fileglob string. Anything
+else is an error.
+
+See L<File::GlobMapper|File::GlobMapper> for more details.
+
+=back
+
+If the C<$output_filename_or_reference> parameter is any other type,
+C<undef> will be returned.
+
+=head2 Notes
+
+When C<$input_filename_or_reference> maps to multiple files/buffers and
+C<$output_filename_or_reference> is a single
+file/buffer the input files/buffers will be stored
+in C<$output_filename_or_reference> as a concatenated series of compressed data streams.
+
+=head2 Optional Parameters
+
+Unless specified below, the optional parameters for C<bzip2>,
+C<OPTS>, are the same as those used with the OO interface defined in the
+L</"Constructor Options"> section below.
+
+=over 5
+
+=item C<< AutoClose => 0|1 >>
+
+This option applies to any input or output data streams to 
+C<bzip2> that are filehandles.
+
+If C<AutoClose> is specified, and the value is true, it will result in all
+input and/or output filehandles being closed once C<bzip2> has
+completed.
+
+This parameter defaults to 0.
+
+=item C<< BinModeIn => 0|1 >>
+
+When reading from a file or filehandle, set C<binmode> before reading.
+
+Defaults to 0.
+
+=item C<< Append => 0|1 >>
+
+The behaviour of this option is dependent on the type of output data
+stream.
+
+=over 5
+
+=item * A Buffer
+
+If C<Append> is enabled, all compressed data will be append to the end of
+the output buffer. Otherwise the output buffer will be cleared before any
+compressed data is written to it.
+
+=item * A Filename
+
+If C<Append> is enabled, the file will be opened in append mode. Otherwise
+the contents of the file, if any, will be truncated before any compressed
+data is written to it.
+
+=item * A Filehandle
+
+If C<Append> is enabled, the filehandle will be positioned to the end of
+the file via a call to C<seek> before any compressed data is
+written to it.  Otherwise the file pointer will not be moved.
+
+=back
+
+When C<Append> is specified, and set to true, it will I<append> all compressed 
+data to the output data stream.
+
+So when the output is a filehandle it will carry out a seek to the eof
+before writing any compressed data. If the output is a filename, it will be opened for
+appending. If the output is a buffer, all compressed data will be
+appended to the existing buffer.
+
+Conversely when C<Append> is not specified, or it is present and is set to
+false, it will operate as follows.
+
+When the output is a filename, it will truncate the contents of the file
+before writing any compressed data. If the output is a filehandle
+its position will not be changed. If the output is a buffer, it will be
+wiped before any compressed data is output.
+
+Defaults to 0.
+
+=back
+
+=head2 Examples
+
+To read the contents of the file C<file1.txt> and write the compressed
+data to the file C<file1.txt.bz2>.
+
+    use strict ;
+    use warnings ;
+    use IO::Compress::Bzip2 qw(bzip2 $Bzip2Error) ;
+
+    my $input = "file1.txt";
+    bzip2 $input => "$input.bz2"
+        or die "bzip2 failed: $Bzip2Error\n";
+
+To read from an existing Perl filehandle, C<$input>, and write the
+compressed data to a buffer, C<$buffer>.
+
+    use strict ;
+    use warnings ;
+    use IO::Compress::Bzip2 qw(bzip2 $Bzip2Error) ;
+    use IO::File ;
+
+    my $input = new IO::File "<file1.txt"
+        or die "Cannot open 'file1.txt': $!\n" ;
+    my $buffer ;
+    bzip2 $input => \$buffer 
+        or die "bzip2 failed: $Bzip2Error\n";
+
+To compress all files in the directory "/my/home" that match "*.txt"
+and store the compressed data in the same directory
+
+    use strict ;
+    use warnings ;
+    use IO::Compress::Bzip2 qw(bzip2 $Bzip2Error) ;
+
+    bzip2 '</my/home/*.txt>' => '<*.bz2>'
+        or die "bzip2 failed: $Bzip2Error\n";
+
+and if you want to compress each file one at a time, this will do the trick
+
+    use strict ;
+    use warnings ;
+    use IO::Compress::Bzip2 qw(bzip2 $Bzip2Error) ;
+
+    for my $input ( glob "/my/home/*.txt" )
+    {
+        my $output = "$input.bz2" ;
+        bzip2 $input => $output 
+            or die "Error compressing '$input': $Bzip2Error\n";
+    }
+
+=head1 OO Interface
+
+=head2 Constructor
+
+The format of the constructor for C<IO::Compress::Bzip2> is shown below
+
+    my $z = new IO::Compress::Bzip2 $output [,OPTS]
+        or die "IO::Compress::Bzip2 failed: $Bzip2Error\n";
+
+It returns an C<IO::Compress::Bzip2> object on success and undef on failure. 
+The variable C<$Bzip2Error> will contain an error message on failure.
+
+If you are running Perl 5.005 or better the object, C<$z>, returned from 
+IO::Compress::Bzip2 can be used exactly like an L<IO::File|IO::File> filehandle. 
+This means that all normal output file operations can be carried out 
+with C<$z>. 
+For example, to write to a compressed file/buffer you can use either of 
+these forms
+
+    $z->print("hello world\n");
+    print $z "hello world\n";
+
+The mandatory parameter C<$output> is used to control the destination
+of the compressed data. This parameter can take one of these forms.
+
+=over 5
+
+=item A filename
+
+If the C<$output> parameter is a simple scalar, it is assumed to be a
+filename. This file will be opened for writing and the compressed data
+will be written to it.
+
+=item A filehandle
+
+If the C<$output> parameter is a filehandle, the compressed data will be
+written to it.
+The string '-' can be used as an alias for standard output.
+
+=item A scalar reference 
+
+If C<$output> is a scalar reference, the compressed data will be stored
+in C<$$output>.
+
+=back
+
+If the C<$output> parameter is any other type, C<IO::Compress::Bzip2>::new will
+return undef.
+
+=head2 Constructor Options
+
+C<OPTS> is any combination of the following options:
+
+=over 5
+
+=item C<< AutoClose => 0|1 >>
+
+This option is only valid when the C<$output> parameter is a filehandle. If
+specified, and the value is true, it will result in the C<$output> being
+closed once either the C<close> method is called or the C<IO::Compress::Bzip2>
+object is destroyed.
+
+This parameter defaults to 0.
+
+=item C<< Append => 0|1 >>
+
+Opens C<$output> in append mode. 
+
+The behaviour of this option is dependent on the type of C<$output>.
+
+=over 5
+
+=item * A Buffer
+
+If C<$output> is a buffer and C<Append> is enabled, all compressed data
+will be append to the end of C<$output>. Otherwise C<$output> will be
+cleared before any data is written to it.
+
+=item * A Filename
+
+If C<$output> is a filename and C<Append> is enabled, the file will be
+opened in append mode. Otherwise the contents of the file, if any, will be
+truncated before any compressed data is written to it.
+
+=item * A Filehandle
+
+If C<$output> is a filehandle, the file pointer will be positioned to the
+end of the file via a call to C<seek> before any compressed data is written
+to it.  Otherwise the file pointer will not be moved.
+
+=back
+
+This parameter defaults to 0.
+
+=item C<< BlockSize100K => number >>
+
+Specify the number of 100K blocks bzip2 uses during compression. 
+
+Valid values are from 1 to 9, where 9 is best compression.
+
+The default is 1.
+
+=item C<< WorkFactor => number >>
+
+Specifies how much effort bzip2 should take before resorting to a slower
+fallback compression algorithm.
+
+Valid values range from 0 to 250, where 0 means use the default value 30.
+
+The default is 0.
+
+=item C<< Strict => 0|1 >>
+
+This is a placeholder option.
+
+=back
+
+=head2 Examples
+
+TODO
+
+=head1 Methods 
+
+=head2 print
+
+Usage is
+
+    $z->print($data)
+    print $z $data
+
+Compresses and outputs the contents of the C<$data> parameter. This
+has the same behaviour as the C<print> built-in.
+
+Returns true if successful.
+
+=head2 printf
+
+Usage is
+
+    $z->printf($format, $data)
+    printf $z $format, $data
+
+Compresses and outputs the contents of the C<$data> parameter.
+
+Returns true if successful.
+
+=head2 syswrite
+
+Usage is
+
+    $z->syswrite $data
+    $z->syswrite $data, $length
+    $z->syswrite $data, $length, $offset
+
+Compresses and outputs the contents of the C<$data> parameter.
+
+Returns the number of uncompressed bytes written, or C<undef> if
+unsuccessful.
+
+=head2 write
+
+Usage is
+
+    $z->write $data
+    $z->write $data, $length
+    $z->write $data, $length, $offset
+
+Compresses and outputs the contents of the C<$data> parameter.
+
+Returns the number of uncompressed bytes written, or C<undef> if
+unsuccessful.
+
+=head2 flush
+
+Usage is
+
+    $z->flush;
+
+Flushes any pending compressed data to the output file/buffer.
+
+TODO
+
+Returns true on success.
+
+=head2 tell
+
+Usage is
+
+    $z->tell()
+    tell $z
+
+Returns the uncompressed file offset.
+
+=head2 eof
+
+Usage is
+
+    $z->eof();
+    eof($z);
+
+Returns true if the C<close> method has been called.
+
+=head2 seek
+
+    $z->seek($position, $whence);
+    seek($z, $position, $whence);
+
+Provides a sub-set of the C<seek> functionality, with the restriction
+that it is only legal to seek forward in the output file/buffer.
+It is a fatal error to attempt to seek backward.
+
+Empty parts of the file/buffer will have NULL (0x00) bytes written to them.
+
+The C<$whence> parameter takes one the usual values, namely SEEK_SET,
+SEEK_CUR or SEEK_END.
+
+Returns 1 on success, 0 on failure.
+
+=head2 binmode
+
+Usage is
+
+    $z->binmode
+    binmode $z ;
+
+This is a noop provided for completeness.
+
+=head2 opened
+
+    $z->opened()
+
+Returns true if the object currently refers to a opened file/buffer. 
+
+=head2 autoflush
+
+    my $prev = $z->autoflush()
+    my $prev = $z->autoflush(EXPR)
+
+If the C<$z> object is associated with a file or a filehandle, this method
+returns the current autoflush setting for the underlying filehandle. If
+C<EXPR> is present, and is non-zero, it will enable flushing after every
+write/print operation.
+
+If C<$z> is associated with a buffer, this method has no effect and always
+returns C<undef>.
+
+B<Note> that the special variable C<$|> B<cannot> be used to set or
+retrieve the autoflush setting.
+
+=head2 input_line_number
+
+    $z->input_line_number()
+    $z->input_line_number(EXPR)
+
+This method always returns C<undef> when compressing. 
+
+=head2 fileno
+
+    $z->fileno()
+    fileno($z)
+
+If the C<$z> object is associated with a file or a filehandle, C<fileno>
+will return the underlying file descriptor. Once the C<close> method is
+called C<fileno> will return C<undef>.
+
+If the C<$z> object is associated with a buffer, this method will return
+C<undef>.
+
+=head2 close
+
+    $z->close() ;
+    close $z ;
+
+Flushes any pending compressed data and then closes the output file/buffer. 
+
+For most versions of Perl this method will be automatically invoked if
+the IO::Compress::Bzip2 object is destroyed (either explicitly or by the
+variable with the reference to the object going out of scope). The
+exceptions are Perl versions 5.005 through 5.00504 and 5.8.0. In
+these cases, the C<close> method will be called automatically, but
+not until global destruction of all live objects when the program is
+terminating.
+
+Therefore, if you want your scripts to be able to run on all versions
+of Perl, you should call C<close> explicitly and not rely on automatic
+closing.
+
+Returns true on success, otherwise 0.
+
+If the C<AutoClose> option has been enabled when the IO::Compress::Bzip2
+object was created, and the object is associated with a file, the
+underlying file will also be closed.
+
+=head2 newStream([OPTS])
+
+Usage is
+
+    $z->newStream( [OPTS] )
+
+Closes the current compressed data stream and starts a new one.
+
+OPTS consists of any of the options that are available when creating
+the C<$z> object.
+
+See the L</"Constructor Options"> section for more details.
+
+=head1 Importing 
+
+No symbolic constants are required by this IO::Compress::Bzip2 at present. 
+
+=over 5
+
+=item :all
+
+Imports C<bzip2> and C<$Bzip2Error>.
+Same as doing this
+
+    use IO::Compress::Bzip2 qw(bzip2 $Bzip2Error) ;
+
+    
+
+=back
+
+=head1 EXAMPLES
+
+=head2 Apache::GZip Revisited
+
+See L<IO::Compress::FAQ|IO::Compress::FAQ/"Apache::GZip Revisited">
+
+=head2 Working with Net::FTP
+
+See L<IO::Compress::FAQ|IO::Compress::FAQ/"Compressed files and Net::FTP">
+
+=head1 SEE ALSO
+
+L<Compress::Zlib>, L<IO::Compress::Gzip>, L<IO::Uncompress::Gunzip>, L<IO::Compress::Deflate>, L<IO::Uncompress::Inflate>, L<IO::Compress::RawDeflate>, L<IO::Uncompress::RawInflate>, L<IO::Uncompress::Bunzip2>, L<IO::Compress::Lzma>, L<IO::Uncompress::UnLzma>, L<IO::Compress::Xz>, L<IO::Uncompress::UnXz>, L<IO::Compress::Lzop>, L<IO::Uncompress::UnLzop>, L<IO::Compress::Lzf>, L<IO::Uncompress::UnLzf>, L<IO::Uncompress::AnyInflate>, L<IO::Uncompress::AnyUncompress>
+
+L<IO::Compress::FAQ|IO::Compress::FAQ>
+
+L<File::GlobMapper|File::GlobMapper>, L<Archive::Zip|Archive::Zip>,
+L<Archive::Tar|Archive::Tar>,
+L<IO::Zlib|IO::Zlib>
+
+The primary site for the bzip2 program is F<http://www.bzip.org>.
+
+See the module L<Compress::Bzip2|Compress::Bzip2>
+
+=head1 AUTHOR
+
+This module was written by Paul Marquess, F<pmqs@cpan.org>. 
+
+=head1 MODIFICATION HISTORY
+
+See the Changes file.
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright (c) 2005-2015 Paul Marquess. All rights reserved.
+
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
diff --git a/lib/5.24.1/IO/Compress/Deflate.pm b/lib/5.24.1/IO/Compress/Deflate.pm
new file mode 100644
index 00000000..33a262a4
--- /dev/null
+++ b/lib/5.24.1/IO/Compress/Deflate.pm
@@ -0,0 +1,939 @@
+package IO::Compress::Deflate ;
+
+require 5.006 ;
+
+use strict ;
+use warnings;
+use bytes;
+
+require Exporter ;
+
+use IO::Compress::RawDeflate 2.069 ();
+use IO::Compress::Adapter::Deflate 2.069 ;
+
+use IO::Compress::Zlib::Constants 2.069 ;
+use IO::Compress::Base::Common  2.069 qw();
+
+
+our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, %DEFLATE_CONSTANTS, $DeflateError);
+
+$VERSION = '2.069_001';
+$DeflateError = '';
+
+@ISA    = qw(Exporter IO::Compress::RawDeflate);
+@EXPORT_OK = qw( $DeflateError deflate ) ;
+%EXPORT_TAGS = %IO::Compress::RawDeflate::DEFLATE_CONSTANTS ;
+
+push @{ $EXPORT_TAGS{all} }, @EXPORT_OK ;
+Exporter::export_ok_tags('all');
+
+
+sub new
+{
+    my $class = shift ;
+
+    my $obj = IO::Compress::Base::Common::createSelfTiedObject($class, \$DeflateError);
+    return $obj->_create(undef, @_);
+}
+
+sub deflate
+{
+    my $obj = IO::Compress::Base::Common::createSelfTiedObject(undef, \$DeflateError);
+    return $obj->_def(@_);
+}
+
+
+sub bitmask($$$$)
+{
+    my $into  = shift ;
+    my $value  = shift ;
+    my $offset = shift ;
+    my $mask   = shift ;
+
+    return $into | (($value & $mask) << $offset ) ;
+}
+
+sub mkDeflateHdr($$$;$)
+{
+    my $method = shift ;
+    my $cinfo  = shift;
+    my $level  = shift;
+    my $fdict_adler = shift  ;
+
+    my $cmf = 0;
+    my $flg = 0;
+    my $fdict = 0;
+    $fdict = 1 if defined $fdict_adler;
+
+    $cmf = bitmask($cmf, $method, ZLIB_CMF_CM_OFFSET,    ZLIB_CMF_CM_BITS);
+    $cmf = bitmask($cmf, $cinfo,  ZLIB_CMF_CINFO_OFFSET, ZLIB_CMF_CINFO_BITS);
+
+    $flg = bitmask($flg, $fdict,  ZLIB_FLG_FDICT_OFFSET, ZLIB_FLG_FDICT_BITS);
+    $flg = bitmask($flg, $level,  ZLIB_FLG_LEVEL_OFFSET, ZLIB_FLG_LEVEL_BITS);
+
+    my $fcheck = 31 - ($cmf * 256 + $flg) % 31 ;
+    $flg = bitmask($flg, $fcheck, ZLIB_FLG_FCHECK_OFFSET, ZLIB_FLG_FCHECK_BITS);
+
+    my $hdr =  pack("CC", $cmf, $flg) ;
+    $hdr .= pack("N", $fdict_adler) if $fdict ;
+
+    return $hdr;
+}
+
+sub mkHeader 
+{
+    my $self = shift ;
+    my $param = shift ;
+
+    my $level = $param->getValue('level');
+    my $strategy = $param->getValue('strategy');
+
+    my $lflag ;
+    $level = 6 
+        if $level == Z_DEFAULT_COMPRESSION ;
+
+    if (ZLIB_VERNUM >= 0x1210)
+    {
+        if ($strategy >= Z_HUFFMAN_ONLY || $level < 2)
+         {  $lflag = ZLIB_FLG_LEVEL_FASTEST }
+        elsif ($level < 6)
+         {  $lflag = ZLIB_FLG_LEVEL_FAST }
+        elsif ($level == 6)
+         {  $lflag = ZLIB_FLG_LEVEL_DEFAULT }
+        else
+         {  $lflag = ZLIB_FLG_LEVEL_SLOWEST }
+    }
+    else
+    {
+        $lflag = ($level - 1) >> 1 ;
+        $lflag = 3 if $lflag > 3 ;
+    }
+
+     #my $wbits = (MAX_WBITS - 8) << 4 ;
+    my $wbits = 7;
+    mkDeflateHdr(ZLIB_CMF_CM_DEFLATED, $wbits, $lflag);
+}
+
+sub ckParams
+{
+    my $self = shift ;
+    my $got = shift;
+    
+    $got->setValue('adler32' => 1);
+    return 1 ;
+}
+
+
+sub mkTrailer
+{
+    my $self = shift ;
+    return pack("N", *$self->{Compress}->adler32()) ;
+}
+
+sub mkFinalTrailer
+{
+    return '';
+}
+
+#sub newHeader
+#{
+#    my $self = shift ;
+#    return *$self->{Header};
+#}
+
+sub getExtraParams
+{
+    my $self = shift ;
+    return $self->getZlibParams(),
+}
+
+sub getInverseClass
+{
+    return ('IO::Uncompress::Inflate',
+                \$IO::Uncompress::Inflate::InflateError);
+}
+
+sub getFileInfo
+{
+    my $self = shift ;
+    my $params = shift;
+    my $file = shift ;
+    
+}
+
+
+
+1;
+
+__END__
+
+=head1 NAME
+
+IO::Compress::Deflate - Write RFC 1950 files/buffers
+ 
+ 
+
+=head1 SYNOPSIS
+
+    use IO::Compress::Deflate qw(deflate $DeflateError) ;
+
+    my $status = deflate $input => $output [,OPTS] 
+        or die "deflate failed: $DeflateError\n";
+
+    my $z = new IO::Compress::Deflate $output [,OPTS]
+        or die "deflate failed: $DeflateError\n";
+
+    $z->print($string);
+    $z->printf($format, $string);
+    $z->write($string);
+    $z->syswrite($string [, $length, $offset]);
+    $z->flush();
+    $z->tell();
+    $z->eof();
+    $z->seek($position, $whence);
+    $z->binmode();
+    $z->fileno();
+    $z->opened();
+    $z->autoflush();
+    $z->input_line_number();
+    $z->newStream( [OPTS] );
+    
+    $z->deflateParams();
+    
+    $z->close() ;
+
+    $DeflateError ;
+
+    # IO::File mode
+
+    print $z $string;
+    printf $z $format, $string;
+    tell $z
+    eof $z
+    seek $z, $position, $whence
+    binmode $z
+    fileno $z
+    close $z ;
+    
+
+=head1 DESCRIPTION
+
+This module provides a Perl interface that allows writing compressed
+data to files or buffer as defined in RFC 1950.
+
+For reading RFC 1950 files/buffers, see the companion module 
+L<IO::Uncompress::Inflate|IO::Uncompress::Inflate>.
+
+=head1 Functional Interface
+
+A top-level function, C<deflate>, is provided to carry out
+"one-shot" compression between buffers and/or files. For finer
+control over the compression process, see the L</"OO Interface">
+section.
+
+    use IO::Compress::Deflate qw(deflate $DeflateError) ;
+
+    deflate $input_filename_or_reference => $output_filename_or_reference [,OPTS] 
+        or die "deflate failed: $DeflateError\n";
+
+The functional interface needs Perl5.005 or better.
+
+=head2 deflate $input_filename_or_reference => $output_filename_or_reference [, OPTS]
+
+C<deflate> expects at least two parameters,
+C<$input_filename_or_reference> and C<$output_filename_or_reference>.
+
+=head3 The C<$input_filename_or_reference> parameter
+
+The parameter, C<$input_filename_or_reference>, is used to define the
+source of the uncompressed data. 
+
+It can take one of the following forms:
+
+=over 5
+
+=item A filename
+
+If the <$input_filename_or_reference> parameter is a simple scalar, it is
+assumed to be a filename. This file will be opened for reading and the
+input data will be read from it.
+
+=item A filehandle
+
+If the C<$input_filename_or_reference> parameter is a filehandle, the input
+data will be read from it.  The string '-' can be used as an alias for
+standard input.
+
+=item A scalar reference 
+
+If C<$input_filename_or_reference> is a scalar reference, the input data
+will be read from C<$$input_filename_or_reference>.
+
+=item An array reference 
+
+If C<$input_filename_or_reference> is an array reference, each element in
+the array must be a filename.
+
+The input data will be read from each file in turn. 
+
+The complete array will be walked to ensure that it only
+contains valid filenames before any data is compressed.
+
+=item An Input FileGlob string
+
+If C<$input_filename_or_reference> is a string that is delimited by the
+characters "<" and ">" C<deflate> will assume that it is an 
+I<input fileglob string>. The input is the list of files that match the 
+fileglob.
+
+See L<File::GlobMapper|File::GlobMapper> for more details.
+
+=back
+
+If the C<$input_filename_or_reference> parameter is any other type,
+C<undef> will be returned.
+
+=head3 The C<$output_filename_or_reference> parameter
+
+The parameter C<$output_filename_or_reference> is used to control the
+destination of the compressed data. This parameter can take one of
+these forms.
+
+=over 5
+
+=item A filename
+
+If the C<$output_filename_or_reference> parameter is a simple scalar, it is
+assumed to be a filename.  This file will be opened for writing and the 
+compressed data will be written to it.
+
+=item A filehandle
+
+If the C<$output_filename_or_reference> parameter is a filehandle, the
+compressed data will be written to it.  The string '-' can be used as
+an alias for standard output.
+
+=item A scalar reference 
+
+If C<$output_filename_or_reference> is a scalar reference, the
+compressed data will be stored in C<$$output_filename_or_reference>.
+
+=item An Array Reference
+
+If C<$output_filename_or_reference> is an array reference, 
+the compressed data will be pushed onto the array.
+
+=item An Output FileGlob
+
+If C<$output_filename_or_reference> is a string that is delimited by the
+characters "<" and ">" C<deflate> will assume that it is an
+I<output fileglob string>. The output is the list of files that match the
+fileglob.
+
+When C<$output_filename_or_reference> is an fileglob string,
+C<$input_filename_or_reference> must also be a fileglob string. Anything
+else is an error.
+
+See L<File::GlobMapper|File::GlobMapper> for more details.
+
+=back
+
+If the C<$output_filename_or_reference> parameter is any other type,
+C<undef> will be returned.
+
+=head2 Notes
+
+When C<$input_filename_or_reference> maps to multiple files/buffers and
+C<$output_filename_or_reference> is a single
+file/buffer the input files/buffers will be stored
+in C<$output_filename_or_reference> as a concatenated series of compressed data streams.
+
+=head2 Optional Parameters
+
+Unless specified below, the optional parameters for C<deflate>,
+C<OPTS>, are the same as those used with the OO interface defined in the
+L</"Constructor Options"> section below.
+
+=over 5
+
+=item C<< AutoClose => 0|1 >>
+
+This option applies to any input or output data streams to 
+C<deflate> that are filehandles.
+
+If C<AutoClose> is specified, and the value is true, it will result in all
+input and/or output filehandles being closed once C<deflate> has
+completed.
+
+This parameter defaults to 0.
+
+=item C<< BinModeIn => 0|1 >>
+
+When reading from a file or filehandle, set C<binmode> before reading.
+
+Defaults to 0.
+
+=item C<< Append => 0|1 >>
+
+The behaviour of this option is dependent on the type of output data
+stream.
+
+=over 5
+
+=item * A Buffer
+
+If C<Append> is enabled, all compressed data will be append to the end of
+the output buffer. Otherwise the output buffer will be cleared before any
+compressed data is written to it.
+
+=item * A Filename
+
+If C<Append> is enabled, the file will be opened in append mode. Otherwise
+the contents of the file, if any, will be truncated before any compressed
+data is written to it.
+
+=item * A Filehandle
+
+If C<Append> is enabled, the filehandle will be positioned to the end of
+the file via a call to C<seek> before any compressed data is
+written to it.  Otherwise the file pointer will not be moved.
+
+=back
+
+When C<Append> is specified, and set to true, it will I<append> all compressed 
+data to the output data stream.
+
+So when the output is a filehandle it will carry out a seek to the eof
+before writing any compressed data. If the output is a filename, it will be opened for
+appending. If the output is a buffer, all compressed data will be
+appended to the existing buffer.
+
+Conversely when C<Append> is not specified, or it is present and is set to
+false, it will operate as follows.
+
+When the output is a filename, it will truncate the contents of the file
+before writing any compressed data. If the output is a filehandle
+its position will not be changed. If the output is a buffer, it will be
+wiped before any compressed data is output.
+
+Defaults to 0.
+
+=back
+
+=head2 Examples
+
+To read the contents of the file C<file1.txt> and write the compressed
+data to the file C<file1.txt.1950>.
+
+    use strict ;
+    use warnings ;
+    use IO::Compress::Deflate qw(deflate $DeflateError) ;
+
+    my $input = "file1.txt";
+    deflate $input => "$input.1950"
+        or die "deflate failed: $DeflateError\n";
+
+To read from an existing Perl filehandle, C<$input>, and write the
+compressed data to a buffer, C<$buffer>.
+
+    use strict ;
+    use warnings ;
+    use IO::Compress::Deflate qw(deflate $DeflateError) ;
+    use IO::File ;
+
+    my $input = new IO::File "<file1.txt"
+        or die "Cannot open 'file1.txt': $!\n" ;
+    my $buffer ;
+    deflate $input => \$buffer 
+        or die "deflate failed: $DeflateError\n";
+
+To compress all files in the directory "/my/home" that match "*.txt"
+and store the compressed data in the same directory
+
+    use strict ;
+    use warnings ;
+    use IO::Compress::Deflate qw(deflate $DeflateError) ;
+
+    deflate '</my/home/*.txt>' => '<*.1950>'
+        or die "deflate failed: $DeflateError\n";
+
+and if you want to compress each file one at a time, this will do the trick
+
+    use strict ;
+    use warnings ;
+    use IO::Compress::Deflate qw(deflate $DeflateError) ;
+
+    for my $input ( glob "/my/home/*.txt" )
+    {
+        my $output = "$input.1950" ;
+        deflate $input => $output 
+            or die "Error compressing '$input': $DeflateError\n";
+    }
+
+=head1 OO Interface
+
+=head2 Constructor
+
+The format of the constructor for C<IO::Compress::Deflate> is shown below
+
+    my $z = new IO::Compress::Deflate $output [,OPTS]
+        or die "IO::Compress::Deflate failed: $DeflateError\n";
+
+It returns an C<IO::Compress::Deflate> object on success and undef on failure. 
+The variable C<$DeflateError> will contain an error message on failure.
+
+If you are running Perl 5.005 or better the object, C<$z>, returned from 
+IO::Compress::Deflate can be used exactly like an L<IO::File|IO::File> filehandle. 
+This means that all normal output file operations can be carried out 
+with C<$z>. 
+For example, to write to a compressed file/buffer you can use either of 
+these forms
+
+    $z->print("hello world\n");
+    print $z "hello world\n";
+
+The mandatory parameter C<$output> is used to control the destination
+of the compressed data. This parameter can take one of these forms.
+
+=over 5
+
+=item A filename
+
+If the C<$output> parameter is a simple scalar, it is assumed to be a
+filename. This file will be opened for writing and the compressed data
+will be written to it.
+
+=item A filehandle
+
+If the C<$output> parameter is a filehandle, the compressed data will be
+written to it.
+The string '-' can be used as an alias for standard output.
+
+=item A scalar reference 
+
+If C<$output> is a scalar reference, the compressed data will be stored
+in C<$$output>.
+
+=back
+
+If the C<$output> parameter is any other type, C<IO::Compress::Deflate>::new will
+return undef.
+
+=head2 Constructor Options
+
+C<OPTS> is any combination of the following options:
+
+=over 5
+
+=item C<< AutoClose => 0|1 >>
+
+This option is only valid when the C<$output> parameter is a filehandle. If
+specified, and the value is true, it will result in the C<$output> being
+closed once either the C<close> method is called or the C<IO::Compress::Deflate>
+object is destroyed.
+
+This parameter defaults to 0.
+
+=item C<< Append => 0|1 >>
+
+Opens C<$output> in append mode. 
+
+The behaviour of this option is dependent on the type of C<$output>.
+
+=over 5
+
+=item * A Buffer
+
+If C<$output> is a buffer and C<Append> is enabled, all compressed data
+will be append to the end of C<$output>. Otherwise C<$output> will be
+cleared before any data is written to it.
+
+=item * A Filename
+
+If C<$output> is a filename and C<Append> is enabled, the file will be
+opened in append mode. Otherwise the contents of the file, if any, will be
+truncated before any compressed data is written to it.
+
+=item * A Filehandle
+
+If C<$output> is a filehandle, the file pointer will be positioned to the
+end of the file via a call to C<seek> before any compressed data is written
+to it.  Otherwise the file pointer will not be moved.
+
+=back
+
+This parameter defaults to 0.
+
+=item C<< Merge => 0|1 >>
+
+This option is used to compress input data and append it to an existing
+compressed data stream in C<$output>. The end result is a single compressed
+data stream stored in C<$output>. 
+
+It is a fatal error to attempt to use this option when C<$output> is not an
+RFC 1950 data stream.
+
+There are a number of other limitations with the C<Merge> option:
+
+=over 5 
+
+=item 1
+
+This module needs to have been built with zlib 1.2.1 or better to work. A
+fatal error will be thrown if C<Merge> is used with an older version of
+zlib.  
+
+=item 2
+
+If C<$output> is a file or a filehandle, it must be seekable.
+
+=back
+
+This parameter defaults to 0.
+
+=item -Level 
+
+Defines the compression level used by zlib. The value should either be
+a number between 0 and 9 (0 means no compression and 9 is maximum
+compression), or one of the symbolic constants defined below.
+
+   Z_NO_COMPRESSION
+   Z_BEST_SPEED
+   Z_BEST_COMPRESSION
+   Z_DEFAULT_COMPRESSION
+
+The default is Z_DEFAULT_COMPRESSION.
+
+Note, these constants are not imported by C<IO::Compress::Deflate> by default.
+
+    use IO::Compress::Deflate qw(:strategy);
+    use IO::Compress::Deflate qw(:constants);
+    use IO::Compress::Deflate qw(:all);
+
+=item -Strategy 
+
+Defines the strategy used to tune the compression. Use one of the symbolic
+constants defined below.
+
+   Z_FILTERED
+   Z_HUFFMAN_ONLY
+   Z_RLE
+   Z_FIXED
+   Z_DEFAULT_STRATEGY
+
+The default is Z_DEFAULT_STRATEGY.
+
+=item C<< Strict => 0|1 >>
+
+This is a placeholder option.
+
+=back
+
+=head2 Examples
+
+TODO
+
+=head1 Methods 
+
+=head2 print
+
+Usage is
+
+    $z->print($data)
+    print $z $data
+
+Compresses and outputs the contents of the C<$data> parameter. This
+has the same behaviour as the C<print> built-in.
+
+Returns true if successful.
+
+=head2 printf
+
+Usage is
+
+    $z->printf($format, $data)
+    printf $z $format, $data
+
+Compresses and outputs the contents of the C<$data> parameter.
+
+Returns true if successful.
+
+=head2 syswrite
+
+Usage is
+
+    $z->syswrite $data
+    $z->syswrite $data, $length
+    $z->syswrite $data, $length, $offset
+
+Compresses and outputs the contents of the C<$data> parameter.
+
+Returns the number of uncompressed bytes written, or C<undef> if
+unsuccessful.
+
+=head2 write
+
+Usage is
+
+    $z->write $data
+    $z->write $data, $length
+    $z->write $data, $length, $offset
+
+Compresses and outputs the contents of the C<$data> parameter.
+
+Returns the number of uncompressed bytes written, or C<undef> if
+unsuccessful.
+
+=head2 flush
+
+Usage is
+
+    $z->flush;
+    $z->flush($flush_type);
+
+Flushes any pending compressed data to the output file/buffer.
+
+This method takes an optional parameter, C<$flush_type>, that controls
+how the flushing will be carried out. By default the C<$flush_type>
+used is C<Z_FINISH>. Other valid values for C<$flush_type> are
+C<Z_NO_FLUSH>, C<Z_SYNC_FLUSH>, C<Z_FULL_FLUSH> and C<Z_BLOCK>. It is
+strongly recommended that you only set the C<flush_type> parameter if
+you fully understand the implications of what it does - overuse of C<flush>
+can seriously degrade the level of compression achieved. See the C<zlib>
+documentation for details.
+
+Returns true on success.
+
+=head2 tell
+
+Usage is
+
+    $z->tell()
+    tell $z
+
+Returns the uncompressed file offset.
+
+=head2 eof
+
+Usage is
+
+    $z->eof();
+    eof($z);
+
+Returns true if the C<close> method has been called.
+
+=head2 seek
+
+    $z->seek($position, $whence);
+    seek($z, $position, $whence);
+
+Provides a sub-set of the C<seek> functionality, with the restriction
+that it is only legal to seek forward in the output file/buffer.
+It is a fatal error to attempt to seek backward.
+
+Empty parts of the file/buffer will have NULL (0x00) bytes written to them.
+
+The C<$whence> parameter takes one the usual values, namely SEEK_SET,
+SEEK_CUR or SEEK_END.
+
+Returns 1 on success, 0 on failure.
+
+=head2 binmode
+
+Usage is
+
+    $z->binmode
+    binmode $z ;
+
+This is a noop provided for completeness.
+
+=head2 opened
+
+    $z->opened()
+
+Returns true if the object currently refers to a opened file/buffer. 
+
+=head2 autoflush
+
+    my $prev = $z->autoflush()
+    my $prev = $z->autoflush(EXPR)
+
+If the C<$z> object is associated with a file or a filehandle, this method
+returns the current autoflush setting for the underlying filehandle. If
+C<EXPR> is present, and is non-zero, it will enable flushing after every
+write/print operation.
+
+If C<$z> is associated with a buffer, this method has no effect and always
+returns C<undef>.
+
+B<Note> that the special variable C<$|> B<cannot> be used to set or
+retrieve the autoflush setting.
+
+=head2 input_line_number
+
+    $z->input_line_number()
+    $z->input_line_number(EXPR)
+
+This method always returns C<undef> when compressing. 
+
+=head2 fileno
+
+    $z->fileno()
+    fileno($z)
+
+If the C<$z> object is associated with a file or a filehandle, C<fileno>
+will return the underlying file descriptor. Once the C<close> method is
+called C<fileno> will return C<undef>.
+
+If the C<$z> object is associated with a buffer, this method will return
+C<undef>.
+
+=head2 close
+
+    $z->close() ;
+    close $z ;
+
+Flushes any pending compressed data and then closes the output file/buffer. 
+
+For most versions of Perl this method will be automatically invoked if
+the IO::Compress::Deflate object is destroyed (either explicitly or by the
+variable with the reference to the object going out of scope). The
+exceptions are Perl versions 5.005 through 5.00504 and 5.8.0. In
+these cases, the C<close> method will be called automatically, but
+not until global destruction of all live objects when the program is
+terminating.
+
+Therefore, if you want your scripts to be able to run on all versions
+of Perl, you should call C<close> explicitly and not rely on automatic
+closing.
+
+Returns true on success, otherwise 0.
+
+If the C<AutoClose> option has been enabled when the IO::Compress::Deflate
+object was created, and the object is associated with a file, the
+underlying file will also be closed.
+
+=head2 newStream([OPTS])
+
+Usage is
+
+    $z->newStream( [OPTS] )
+
+Closes the current compressed data stream and starts a new one.
+
+OPTS consists of any of the options that are available when creating
+the C<$z> object.
+
+See the L</"Constructor Options"> section for more details.
+
+=head2 deflateParams
+
+Usage is
+
+    $z->deflateParams
+
+TODO
+
+=head1 Importing 
+
+A number of symbolic constants are required by some methods in 
+C<IO::Compress::Deflate>. None are imported by default.
+
+=over 5
+
+=item :all
+
+Imports C<deflate>, C<$DeflateError> and all symbolic
+constants that can be used by C<IO::Compress::Deflate>. Same as doing this
+
+    use IO::Compress::Deflate qw(deflate $DeflateError :constants) ;
+
+=item :constants
+
+Import all symbolic constants. Same as doing this
+
+    use IO::Compress::Deflate qw(:flush :level :strategy) ;
+
+=item :flush
+
+These symbolic constants are used by the C<flush> method.
+
+    Z_NO_FLUSH
+    Z_PARTIAL_FLUSH
+    Z_SYNC_FLUSH
+    Z_FULL_FLUSH
+    Z_FINISH
+    Z_BLOCK
+
+=item :level
+
+These symbolic constants are used by the C<Level> option in the constructor.
+
+    Z_NO_COMPRESSION
+    Z_BEST_SPEED
+    Z_BEST_COMPRESSION
+    Z_DEFAULT_COMPRESSION
+
+=item :strategy
+
+These symbolic constants are used by the C<Strategy> option in the constructor.
+
+    Z_FILTERED
+    Z_HUFFMAN_ONLY
+    Z_RLE
+    Z_FIXED
+    Z_DEFAULT_STRATEGY
+
+    
+    
+
+=back
+
+=head1 EXAMPLES
+
+=head2 Apache::GZip Revisited
+
+See L<IO::Compress::FAQ|IO::Compress::FAQ/"Apache::GZip Revisited">
+
+=head2 Working with Net::FTP
+
+See L<IO::Compress::FAQ|IO::Compress::FAQ/"Compressed files and Net::FTP">
+
+=head1 SEE ALSO
+
+L<Compress::Zlib>, L<IO::Compress::Gzip>, L<IO::Uncompress::Gunzip>, L<IO::Uncompress::Inflate>, L<IO::Compress::RawDeflate>, L<IO::Uncompress::RawInflate>, L<IO::Compress::Bzip2>, L<IO::Uncompress::Bunzip2>, L<IO::Compress::Lzma>, L<IO::Uncompress::UnLzma>, L<IO::Compress::Xz>, L<IO::Uncompress::UnXz>, L<IO::Compress::Lzop>, L<IO::Uncompress::UnLzop>, L<IO::Compress::Lzf>, L<IO::Uncompress::UnLzf>, L<IO::Uncompress::AnyInflate>, L<IO::Uncompress::AnyUncompress>
+
+L<IO::Compress::FAQ|IO::Compress::FAQ>
+
+L<File::GlobMapper|File::GlobMapper>, L<Archive::Zip|Archive::Zip>,
+L<Archive::Tar|Archive::Tar>,
+L<IO::Zlib|IO::Zlib>
+
+For RFC 1950, 1951 and 1952 see 
+F<http://www.faqs.org/rfcs/rfc1950.html>,
+F<http://www.faqs.org/rfcs/rfc1951.html> and
+F<http://www.faqs.org/rfcs/rfc1952.html>
+
+The I<zlib> compression library was written by Jean-loup Gailly
+F<gzip@prep.ai.mit.edu> and Mark Adler F<madler@alumni.caltech.edu>.
+
+The primary site for the I<zlib> compression library is
+F<http://www.zlib.org>.
+
+The primary site for gzip is F<http://www.gzip.org>.
+
+=head1 AUTHOR
+
+This module was written by Paul Marquess, F<pmqs@cpan.org>. 
+
+=head1 MODIFICATION HISTORY
+
+See the Changes file.
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright (c) 2005-2015 Paul Marquess. All rights reserved.
+
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
diff --git a/lib/5.24.1/IO/Compress/FAQ.pod b/lib/5.24.1/IO/Compress/FAQ.pod
new file mode 100644
index 00000000..7f51b6c4
--- /dev/null
+++ b/lib/5.24.1/IO/Compress/FAQ.pod
@@ -0,0 +1,683 @@
+
+=head1 NAME
+
+IO::Compress::FAQ -- Frequently Asked Questions about IO::Compress
+
+=head1 DESCRIPTION
+
+Common questions answered.
+
+=head1 GENERAL 
+
+=head2 Compatibility with Unix compress/uncompress.
+
+Although C<Compress::Zlib> has a pair of functions called C<compress> and
+C<uncompress>, they are I<not> related to the Unix programs of the same
+name. The C<Compress::Zlib> module is not compatible with Unix
+C<compress>.
+
+If you have the C<uncompress> program available, you can use this to read
+compressed files
+
+    open F, "uncompress -c $filename |";
+    while (<F>)
+    {
+        ...
+
+Alternatively, if you have the C<gunzip> program available, you can use
+this to read compressed files
+
+    open F, "gunzip -c $filename |";
+    while (<F>)
+    {
+        ...
+
+and this to write compress files, if you have the C<compress> program
+available
+
+    open F, "| compress -c $filename ";
+    print F "data";
+    ...
+    close F ;
+
+=head2 Accessing .tar.Z files
+
+The C<Archive::Tar> module can optionally use C<Compress::Zlib> (via the
+C<IO::Zlib> module) to access tar files that have been compressed with
+C<gzip>. Unfortunately tar files compressed with the Unix C<compress>
+utility cannot be read by C<Compress::Zlib> and so cannot be directly
+accessed by C<Archive::Tar>.
+
+If the C<uncompress> or C<gunzip> programs are available, you can use one
+of these workarounds to read C<.tar.Z> files from C<Archive::Tar>
+
+Firstly with C<uncompress>
+
+    use strict;
+    use warnings;
+    use Archive::Tar;
+
+    open F, "uncompress -c $filename |";
+    my $tar = Archive::Tar->new(*F);
+    ...
+
+and this with C<gunzip>
+
+    use strict;
+    use warnings;
+    use Archive::Tar;
+
+    open F, "gunzip -c $filename |";
+    my $tar = Archive::Tar->new(*F);
+    ...
+
+Similarly, if the C<compress> program is available, you can use this to
+write a C<.tar.Z> file
+
+    use strict;
+    use warnings;
+    use Archive::Tar;
+    use IO::File;
+
+    my $fh = new IO::File "| compress -c >$filename";
+    my $tar = Archive::Tar->new();
+    ...
+    $tar->write($fh);
+    $fh->close ;
+
+=head2 How do I recompress using a different compression?
+
+This is easier that you might expect if you realise that all the
+C<IO::Compress::*> objects are derived from C<IO::File> and that all the
+C<IO::Uncompress::*> modules can read from an C<IO::File> filehandle.
+
+So, for example, say you have a file compressed with gzip that you want to
+recompress with bzip2. Here is all that is needed to carry out the
+recompression.
+
+    use IO::Uncompress::Gunzip ':all';
+    use IO::Compress::Bzip2 ':all';
+
+    my $gzipFile = "somefile.gz";
+    my $bzipFile = "somefile.bz2";
+
+    my $gunzip = new IO::Uncompress::Gunzip $gzipFile
+        or die "Cannot gunzip $gzipFile: $GunzipError\n" ;
+
+    bzip2 $gunzip => $bzipFile 
+        or die "Cannot bzip2 to $bzipFile: $Bzip2Error\n" ;
+
+Note, there is a limitation of this technique. Some compression file
+formats store extra information along with the compressed data payload. For
+example, gzip can optionally store the original filename and Zip stores a
+lot of information about the original file. If the original compressed file
+contains any of this extra information, it will not be transferred to the
+new compressed file using the technique above.
+
+=head1 ZIP
+
+=head2 What Compression Types do IO::Compress::Zip & IO::Uncompress::Unzip support?
+
+The following compression formats are supported by C<IO::Compress::Zip> and
+C<IO::Uncompress::Unzip>
+
+=over 5
+
+=item * Store (method 0)
+
+No compression at all.
+
+=item * Deflate (method 8)
+
+This is the default compression used when creating a zip file with
+C<IO::Compress::Zip>.
+
+=item * Bzip2 (method 12)
+
+Only supported if the C<IO-Compress-Bzip2> module is installed.
+
+=item * Lzma (method 14)
+
+Only supported if the C<IO-Compress-Lzma> module is installed.
+
+=back
+
+=head2 Can I Read/Write Zip files larger the 4 Gig?
+
+Yes, both the C<IO-Compress-Zip> and C<IO-Uncompress-Unzip>  modules
+support the zip feature called I<Zip64>. That allows them to read/write
+files/buffers larger than 4Gig. 
+
+If you are creating a Zip file using the one-shot interface, and any of the
+input files is greater than 4Gig, a zip64 complaint zip file will be
+created. 
+
+    zip "really-large-file" => "my.zip";
+
+Similarly with the one-shot interface, if the input is a buffer larger than
+4 Gig, a zip64 complaint zip file will be created. 
+
+    zip \$really_large_buffer => "my.zip";
+
+The one-shot interface allows you to force the creation of a zip64 zip file
+by including the C<Zip64> option.
+
+    zip $filehandle => "my.zip", Zip64 => 1;
+
+If you want to create a zip64 zip file with the OO interface you must
+specify the C<Zip64> option.
+
+    my $zip = new IO::Compress::Zip "whatever", Zip64 => 1;
+	
+When uncompressing with C<IO-Uncompress-Unzip>, it will automatically
+detect if the zip file is zip64.
+
+If you intend to manipulate the Zip64 zip files created with
+C<IO-Compress-Zip> using an external zip/unzip, make sure that it supports
+Zip64.  
+
+In particular, if you are using Info-Zip you need to have zip version 3.x
+or better to update a Zip64 archive and unzip version 6.x to read a zip64
+archive. 
+
+=head2 Can I write more that 64K entries is a Zip files?
+
+Yes. Zip64 allows this. See previous question.
+
+=head2 Zip Resources
+
+The primary reference for zip files is the "appnote" document available at
+L<http://www.pkware.com/documents/casestudies/APPNOTE.TXT>
+
+An alternatively is the Info-Zip appnote. This is available from
+L<ftp://ftp.info-zip.org/pub/infozip/doc/>
+
+=head1 GZIP
+
+=head2 Gzip Resources
+
+The primary reference for gzip files is RFC 1952
+L<http://www.faqs.org/rfcs/rfc1952.html>
+
+The primary site for gzip is F<http://www.gzip.org>.
+
+=head2 Dealing with concatenated gzip files
+
+If the gunzip program encounters a file containing multiple gzip files
+concatenated together it will automatically uncompress them all.
+The example below illustrates this behaviour
+
+    $ echo abc | gzip -c >x.gz
+    $ echo def | gzip -c >>x.gz
+    $ gunzip -c x.gz 
+    abc
+    def
+
+By default C<IO::Uncompress::Gunzip> will I<not> behave like the gunzip
+program. It will only uncompress the first gzip data stream in the file, as
+shown below
+
+    $ perl -MIO::Uncompress::Gunzip=:all -e 'gunzip "x.gz" => \*STDOUT'
+    abc
+
+To force C<IO::Uncompress::Gunzip> to uncompress all the gzip data streams,
+include the C<MultiStream> option, as shown below
+
+    $ perl -MIO::Uncompress::Gunzip=:all -e 'gunzip "x.gz" => \*STDOUT, MultiStream => 1'
+    abc
+    def
+
+=head2 Reading bgzip files with IO::Uncompress::Gunzip
+
+A C<bgzip> file consists of a series of valid gzip-compliant data streams
+concatenated together. To read a file created by C<bgzip> with
+C<IO::Uncompress::Gunzip> use the C<MultiStream> option as shown in the
+previous section.
+
+See the section titled "The BGZF compression format" in
+F<http://samtools.github.io/hts-specs/SAMv1.pdf> for a definition of
+C<bgzip>.
+
+=head1 ZLIB
+
+=head2 Zlib Resources
+
+The primary site for the I<zlib> compression library is
+F<http://www.zlib.org>.
+
+=head1 Bzip2
+
+=head2 Bzip2 Resources
+
+The primary site for bzip2 is F<http://www.bzip.org>.
+
+=head2 Dealing with Concatenated bzip2 files
+
+If the bunzip2 program encounters a file containing multiple bzip2 files
+concatenated together it will automatically uncompress them all.
+The example below illustrates this behaviour
+
+    $ echo abc | bzip2 -c >x.bz2
+    $ echo def | bzip2 -c >>x.bz2
+    $ bunzip2 -c x.bz2
+    abc
+    def
+
+By default C<IO::Uncompress::Bunzip2> will I<not> behave like the bunzip2
+program. It will only uncompress the first bunzip2 data stream in the file, as
+shown below
+
+    $ perl -MIO::Uncompress::Bunzip2=:all -e 'bunzip2 "x.bz2" => \*STDOUT'
+    abc
+
+To force C<IO::Uncompress::Bunzip2> to uncompress all the bzip2 data streams,
+include the C<MultiStream> option, as shown below
+
+    $ perl -MIO::Uncompress::Bunzip2=:all -e 'bunzip2 "x.bz2" => \*STDOUT, MultiStream => 1'
+    abc
+    def
+
+=head2 Interoperating with Pbzip2
+
+Pbzip2 (L<http://compression.ca/pbzip2/>) is a parallel implementation of
+bzip2. The output from pbzip2 consists of a series of concatenated bzip2
+data streams.
+
+By default C<IO::Uncompress::Bzip2> will only uncompress the first bzip2
+data stream in a pbzip2 file. To uncompress the complete pbzip2 file you
+must include the C<MultiStream> option, like this.
+
+    bunzip2 $input => \$output, MultiStream => 1 
+        or die "bunzip2 failed: $Bunzip2Error\n";
+
+=head1 HTTP & NETWORK
+
+=head2 Apache::GZip Revisited
+
+Below is a mod_perl Apache compression module, called C<Apache::GZip>,
+taken from
+F<http://perl.apache.org/docs/tutorials/tips/mod_perl_tricks/mod_perl_tricks.html#On_the_Fly_Compression>
+
+  package Apache::GZip;
+  #File: Apache::GZip.pm
+  
+  use strict vars;
+  use Apache::Constants ':common';
+  use Compress::Zlib;
+  use IO::File;
+  use constant GZIP_MAGIC => 0x1f8b;
+  use constant OS_MAGIC => 0x03;
+  
+  sub handler {
+      my $r = shift;
+      my ($fh,$gz);
+      my $file = $r->filename;
+      return DECLINED unless $fh=IO::File->new($file);
+      $r->header_out('Content-Encoding'=>'gzip');
+      $r->send_http_header;
+      return OK if $r->header_only;
+  
+      tie *STDOUT,'Apache::GZip',$r;
+      print($_) while <$fh>;
+      untie *STDOUT;
+      return OK;
+  }
+  
+  sub TIEHANDLE {
+      my($class,$r) = @_;
+      # initialize a deflation stream
+      my $d = deflateInit(-WindowBits=>-MAX_WBITS()) || return undef;
+  
+      # gzip header -- don't ask how I found out
+      $r->print(pack("nccVcc",GZIP_MAGIC,Z_DEFLATED,0,time(),0,OS_MAGIC));
+  
+      return bless { r   => $r,
+                     crc =>  crc32(undef),
+                     d   => $d,
+                     l   =>  0 
+                   },$class;
+  }
+  
+  sub PRINT {
+      my $self = shift;
+      foreach (@_) {
+        # deflate the data
+        my $data = $self->{d}->deflate($_);
+        $self->{r}->print($data);
+        # keep track of its length and crc
+        $self->{l} += length($_);
+        $self->{crc} = crc32($_,$self->{crc});
+      }
+  }
+  
+  sub DESTROY {
+     my $self = shift;
+     
+     # flush the output buffers
+     my $data = $self->{d}->flush;
+     $self->{r}->print($data);
+     
+     # print the CRC and the total length (uncompressed)
+     $self->{r}->print(pack("LL",@{$self}{qw/crc l/}));
+  }
+   
+  1;
+
+Here's the Apache configuration entry you'll need to make use of it.  Once
+set it will result in everything in the /compressed directory will be
+compressed automagically.
+
+  <Location /compressed>
+     SetHandler  perl-script
+     PerlHandler Apache::GZip
+  </Location>
+
+Although at first sight there seems to be quite a lot going on in
+C<Apache::GZip>, you could sum up what the code was doing as follows --
+read the contents of the file in C<< $r->filename >>, compress it and write
+the compressed data to standard output. That's all.
+
+This code has to jump through a few hoops to achieve this because
+
+=over
+
+=item 1.
+
+The gzip support in C<Compress::Zlib> version 1.x can only work with a real
+filesystem filehandle. The filehandles used by Apache modules are not
+associated with the filesystem.
+
+=item 2.
+
+That means all the gzip support has to be done by hand - in this case by
+creating a tied filehandle to deal with creating the gzip header and
+trailer.
+
+=back
+
+C<IO::Compress::Gzip> doesn't have that filehandle limitation (this was one
+of the reasons for writing it in the first place). So if
+C<IO::Compress::Gzip> is used instead of C<Compress::Zlib> the whole tied
+filehandle code can be removed. Here is the rewritten code.
+
+  package Apache::GZip;
+  
+  use strict vars;
+  use Apache::Constants ':common';
+  use IO::Compress::Gzip;
+  use IO::File;
+  
+  sub handler {
+      my $r = shift;
+      my ($fh,$gz);
+      my $file = $r->filename;
+      return DECLINED unless $fh=IO::File->new($file);
+      $r->header_out('Content-Encoding'=>'gzip');
+      $r->send_http_header;
+      return OK if $r->header_only;
+
+      my $gz = new IO::Compress::Gzip '-', Minimal => 1
+          or return DECLINED ;
+
+      print $gz $_ while <$fh>;
+  
+      return OK;
+  }
+  
+or even more succinctly, like this, using a one-shot gzip
+
+  package Apache::GZip;
+  
+  use strict vars;
+  use Apache::Constants ':common';
+  use IO::Compress::Gzip qw(gzip);
+  
+  sub handler {
+      my $r = shift;
+      $r->header_out('Content-Encoding'=>'gzip');
+      $r->send_http_header;
+      return OK if $r->header_only;
+
+      gzip $r->filename => '-', Minimal => 1
+        or return DECLINED ;
+
+      return OK;
+  }
+   
+  1;
+
+The use of one-shot C<gzip> above just reads from C<< $r->filename >> and
+writes the compressed data to standard output.
+
+Note the use of the C<Minimal> option in the code above. When using gzip
+for Content-Encoding you should I<always> use this option. In the example
+above it will prevent the filename being included in the gzip header and
+make the size of the gzip data stream a slight bit smaller.
+
+=head2 Compressed files and Net::FTP
+
+The C<Net::FTP> module provides two low-level methods called C<stor> and
+C<retr> that both return filehandles. These filehandles can used with the
+C<IO::Compress/Uncompress> modules to compress or uncompress files read
+from or written to an FTP Server on the fly, without having to create a
+temporary file.
+
+Firstly, here is code that uses C<retr> to uncompressed a file as it is
+read from the FTP Server.
+
+    use Net::FTP;
+    use IO::Uncompress::Gunzip qw(:all);
+
+    my $ftp = new Net::FTP ...
+
+    my $retr_fh = $ftp->retr($compressed_filename);
+    gunzip $retr_fh => $outFilename, AutoClose => 1
+        or die "Cannot uncompress '$compressed_file': $GunzipError\n";
+
+and this to compress a file as it is written to the FTP Server 
+
+    use Net::FTP;
+    use IO::Compress::Gzip qw(:all);
+
+    my $stor_fh = $ftp->stor($filename);
+    gzip "filename" => $stor_fh, AutoClose => 1
+        or die "Cannot compress '$filename': $GzipError\n";
+
+=head1 MISC
+
+=head2 Using C<InputLength> to uncompress data embedded in a larger file/buffer.
+
+A fairly common use-case is where compressed data is embedded in a larger
+file/buffer and you want to read both.
+
+As an example consider the structure of a zip file. This is a well-defined
+file format that mixes both compressed and uncompressed sections of data in
+a single file. 
+
+For the purposes of this discussion you can think of a zip file as sequence
+of compressed data streams, each of which is prefixed by an uncompressed
+local header. The local header contains information about the compressed
+data stream, including the name of the compressed file and, in particular,
+the length of the compressed data stream. 
+
+To illustrate how to use C<InputLength> here is a script that walks a zip
+file and prints out how many lines are in each compressed file (if you
+intend write code to walking through a zip file for real see
+L<IO::Uncompress::Unzip/"Walking through a zip file"> ). Also, although
+this example uses the zlib-based compression, the technique can be used by
+the other C<IO::Uncompress::*> modules.
+
+    use strict;
+    use warnings;
+
+    use IO::File;
+    use IO::Uncompress::RawInflate qw(:all);
+
+    use constant ZIP_LOCAL_HDR_SIG  => 0x04034b50;
+    use constant ZIP_LOCAL_HDR_LENGTH => 30;
+
+    my $file = $ARGV[0] ;
+
+    my $fh = new IO::File "<$file"
+                or die "Cannot open '$file': $!\n";
+
+    while (1)
+    {
+        my $sig;
+        my $buffer;
+
+        my $x ;
+        ($x = $fh->read($buffer, ZIP_LOCAL_HDR_LENGTH)) == ZIP_LOCAL_HDR_LENGTH 
+            or die "Truncated file: $!\n";
+
+        my $signature = unpack ("V", substr($buffer, 0, 4));
+
+        last unless $signature == ZIP_LOCAL_HDR_SIG;
+
+        # Read Local Header
+        my $gpFlag             = unpack ("v", substr($buffer, 6, 2));
+        my $compressedMethod   = unpack ("v", substr($buffer, 8, 2));
+        my $compressedLength   = unpack ("V", substr($buffer, 18, 4));
+        my $uncompressedLength = unpack ("V", substr($buffer, 22, 4));
+        my $filename_length    = unpack ("v", substr($buffer, 26, 2)); 
+        my $extra_length       = unpack ("v", substr($buffer, 28, 2));
+
+        my $filename ;
+        $fh->read($filename, $filename_length) == $filename_length 
+            or die "Truncated file\n";
+
+        $fh->read($buffer, $extra_length) == $extra_length
+            or die "Truncated file\n";
+
+        if ($compressedMethod != 8 && $compressedMethod != 0)
+        {
+            warn "Skipping file '$filename' - not deflated $compressedMethod\n";
+            $fh->read($buffer, $compressedLength) == $compressedLength
+                or die "Truncated file\n";
+            next;
+        }
+
+        if ($compressedMethod == 0 && $gpFlag & 8 == 8)
+        {
+            die "Streamed Stored not supported for '$filename'\n";
+        }
+
+        next if $compressedLength == 0;
+
+        # Done reading the Local Header
+
+        my $inf = new IO::Uncompress::RawInflate $fh,
+                            Transparent => 1,
+                            InputLength => $compressedLength
+          or die "Cannot uncompress $file [$filename]: $RawInflateError\n"  ;
+
+        my $line_count = 0;
+
+        while (<$inf>)
+        {
+            ++ $line_count;
+        }
+
+        print "$filename: $line_count\n";
+    }
+
+The majority of the code above is concerned with reading the zip local
+header data. The code that I want to focus on is at the bottom. 
+
+    while (1) {
+    
+        # read local zip header data
+        # get $filename
+        # get $compressedLength
+
+        my $inf = new IO::Uncompress::RawInflate $fh,
+                            Transparent => 1,
+                            InputLength => $compressedLength
+          or die "Cannot uncompress $file [$filename]: $RawInflateError\n"  ;
+
+        my $line_count = 0;
+
+        while (<$inf>)
+        {
+            ++ $line_count;
+        }
+
+        print "$filename: $line_count\n";
+    }
+
+The call to C<IO::Uncompress::RawInflate> creates a new filehandle C<$inf>
+that can be used to read from the parent filehandle C<$fh>, uncompressing
+it as it goes. The use of the C<InputLength> option will guarantee that
+I<at most> C<$compressedLength> bytes of compressed data will be read from
+the C<$fh> filehandle (The only exception is for an error case like a
+truncated file or a corrupt data stream).
+
+This means that once RawInflate is finished C<$fh> will be left at the
+byte directly after the compressed data stream. 
+
+Now consider what the code looks like without C<InputLength> 
+
+    while (1) {
+    
+        # read local zip header data
+        # get $filename
+        # get $compressedLength
+
+        # read all the compressed data into $data
+        read($fh, $data, $compressedLength);
+
+        my $inf = new IO::Uncompress::RawInflate \$data,
+                            Transparent => 1,
+          or die "Cannot uncompress $file [$filename]: $RawInflateError\n"  ;
+
+        my $line_count = 0;
+
+        while (<$inf>)
+        {
+            ++ $line_count;
+        }
+
+        print "$filename: $line_count\n";
+    }
+
+The difference here is the addition of the temporary variable C<$data>.
+This is used to store a copy of the compressed data while it is being
+uncompressed.
+
+If you know that C<$compressedLength> isn't that big then using temporary
+storage won't be a problem. But if C<$compressedLength> is very large or
+you are writing an application that other people will use, and so have no
+idea how big C<$compressedLength> will be, it could be an issue.
+
+Using C<InputLength> avoids the use of temporary storage and means the
+application can cope with large compressed data streams.
+
+One final point -- obviously C<InputLength> can only be used whenever you
+know the length of the compressed data beforehand, like here with a zip
+file. 
+
+=head1 SEE ALSO
+
+L<Compress::Zlib>, L<IO::Compress::Gzip>, L<IO::Uncompress::Gunzip>, L<IO::Compress::Deflate>, L<IO::Uncompress::Inflate>, L<IO::Compress::RawDeflate>, L<IO::Uncompress::RawInflate>, L<IO::Compress::Bzip2>, L<IO::Uncompress::Bunzip2>, L<IO::Compress::Lzma>, L<IO::Uncompress::UnLzma>, L<IO::Compress::Xz>, L<IO::Uncompress::UnXz>, L<IO::Compress::Lzop>, L<IO::Uncompress::UnLzop>, L<IO::Compress::Lzf>, L<IO::Uncompress::UnLzf>, L<IO::Uncompress::AnyInflate>, L<IO::Uncompress::AnyUncompress>
+
+L<IO::Compress::FAQ|IO::Compress::FAQ>
+
+L<File::GlobMapper|File::GlobMapper>, L<Archive::Zip|Archive::Zip>,
+L<Archive::Tar|Archive::Tar>,
+L<IO::Zlib|IO::Zlib>
+
+=head1 AUTHOR
+
+This module was written by Paul Marquess, F<pmqs@cpan.org>. 
+
+=head1 MODIFICATION HISTORY
+
+See the Changes file.
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright (c) 2005-2015 Paul Marquess. All rights reserved.
+
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
diff --git a/lib/5.24.1/IO/Compress/Gzip.pm b/lib/5.24.1/IO/Compress/Gzip.pm
new file mode 100644
index 00000000..80042112
--- /dev/null
+++ b/lib/5.24.1/IO/Compress/Gzip.pm
@@ -0,0 +1,1251 @@
+package IO::Compress::Gzip ;
+
+require 5.006 ;
+
+use strict ;
+use warnings;
+use bytes;
+
+require Exporter ;
+
+use IO::Compress::RawDeflate 2.069 () ; 
+use IO::Compress::Adapter::Deflate 2.069 ;
+
+use IO::Compress::Base::Common  2.069 qw(:Status );
+use IO::Compress::Gzip::Constants 2.069 ;
+use IO::Compress::Zlib::Extra 2.069 ;
+
+BEGIN
+{
+    if (defined &utf8::downgrade ) 
+      { *noUTF8 = \&utf8::downgrade }
+    else
+      { *noUTF8 = sub {} }  
+}
+
+our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, %DEFLATE_CONSTANTS, $GzipError);
+
+$VERSION = '2.069_001';
+$GzipError = '' ;
+
+@ISA    = qw(Exporter IO::Compress::RawDeflate);
+@EXPORT_OK = qw( $GzipError gzip ) ;
+%EXPORT_TAGS = %IO::Compress::RawDeflate::DEFLATE_CONSTANTS ;
+
+push @{ $EXPORT_TAGS{all} }, @EXPORT_OK ;
+Exporter::export_ok_tags('all');
+
+sub new
+{
+    my $class = shift ;
+
+    my $obj = IO::Compress::Base::Common::createSelfTiedObject($class, \$GzipError);
+
+    $obj->_create(undef, @_);
+}
+
+
+sub gzip
+{
+    my $obj = IO::Compress::Base::Common::createSelfTiedObject(undef, \$GzipError);
+    return $obj->_def(@_);
+}
+
+#sub newHeader
+#{
+#    my $self = shift ;
+#    #return GZIP_MINIMUM_HEADER ;
+#    return $self->mkHeader(*$self->{Got});
+#}
+
+sub getExtraParams
+{
+    my $self = shift ;
+
+    return (
+            # zlib behaviour
+            $self->getZlibParams(),
+           
+            # Gzip header fields
+            'minimal'   => [IO::Compress::Base::Common::Parse_boolean,   0],
+            'comment'   => [IO::Compress::Base::Common::Parse_any,       undef],
+            'name'      => [IO::Compress::Base::Common::Parse_any,       undef],
+            'time'      => [IO::Compress::Base::Common::Parse_any,       undef],
+            'textflag'  => [IO::Compress::Base::Common::Parse_boolean,   0],
+            'headercrc' => [IO::Compress::Base::Common::Parse_boolean,   0],
+            'os_code'   => [IO::Compress::Base::Common::Parse_unsigned,  $Compress::Raw::Zlib::gzip_os_code],
+            'extrafield'=> [IO::Compress::Base::Common::Parse_any,       undef],
+            'extraflags'=> [IO::Compress::Base::Common::Parse_any,       undef],
+
+        );
+}
+
+
+sub ckParams
+{
+    my $self = shift ;
+    my $got = shift ;
+
+    # gzip always needs crc32
+    $got->setValue('crc32' => 1);
+
+    return 1
+        if $got->getValue('merge') ;
+
+    my $strict = $got->getValue('strict') ;
+
+
+    {
+        if (! $got->parsed('time') ) {
+            # Modification time defaults to now.
+            $got->setValue(time => time) ;
+        }
+
+        # Check that the Name & Comment don't have embedded NULLs
+        # Also check that they only contain ISO 8859-1 chars.
+        if ($got->parsed('name') && defined $got->getValue('name')) {
+            my $name = $got->getValue('name');
+                
+            return $self->saveErrorString(undef, "Null Character found in Name",
+                                                Z_DATA_ERROR)
+                if $strict && $name =~ /\x00/ ;
+
+            return $self->saveErrorString(undef, "Non ISO 8859-1 Character found in Name",
+                                                Z_DATA_ERROR)
+                if $strict && $name =~ /$GZIP_FNAME_INVALID_CHAR_RE/o ;
+        }
+
+        if ($got->parsed('comment') && defined $got->getValue('comment')) {
+            my $comment = $got->getValue('comment');
+
+            return $self->saveErrorString(undef, "Null Character found in Comment",
+                                                Z_DATA_ERROR)
+                if $strict && $comment =~ /\x00/ ;
+
+            return $self->saveErrorString(undef, "Non ISO 8859-1 Character found in Comment",
+                                                Z_DATA_ERROR)
+                if $strict && $comment =~ /$GZIP_FCOMMENT_INVALID_CHAR_RE/o;
+        }
+
+        if ($got->parsed('os_code') ) {
+            my $value = $got->getValue('os_code');
+
+            return $self->saveErrorString(undef, "OS_Code must be between 0 and 255, got '$value'")
+                if $value < 0 || $value > 255 ;
+            
+        }
+
+        # gzip only supports Deflate at present
+        $got->setValue('method' => Z_DEFLATED) ;
+
+        if ( ! $got->parsed('extraflags')) {
+            $got->setValue('extraflags' => 2) 
+                if $got->getValue('level') == Z_BEST_COMPRESSION ;
+            $got->setValue('extraflags' => 4) 
+                if $got->getValue('level') == Z_BEST_SPEED ;
+        }
+
+        my $data = $got->getValue('extrafield') ;
+        if (defined $data) {
+            my $bad = IO::Compress::Zlib::Extra::parseExtraField($data, $strict, 1) ;
+            return $self->saveErrorString(undef, "Error with ExtraField Parameter: $bad", Z_DATA_ERROR)
+                if $bad ;
+
+            $got->setValue('extrafield' => $data) ;
+        }
+    }
+
+    return 1;
+}
+
+sub mkTrailer
+{
+    my $self = shift ;
+    return pack("V V", *$self->{Compress}->crc32(), 
+                       *$self->{UnCompSize}->get32bit());
+}
+
+sub getInverseClass
+{
+    return ('IO::Uncompress::Gunzip',
+                \$IO::Uncompress::Gunzip::GunzipError);
+}
+
+sub getFileInfo
+{
+    my $self = shift ;
+    my $params = shift;
+    my $filename = shift ;
+
+    return if IO::Compress::Base::Common::isaScalar($filename);
+
+    my $defaultTime = (stat($filename))[9] ;
+
+    $params->setValue('name' => $filename)
+        if ! $params->parsed('name') ;
+
+    $params->setValue('time' => $defaultTime) 
+        if ! $params->parsed('time') ;
+}
+
+
+sub mkHeader
+{
+    my $self = shift ;
+    my $param = shift ;
+
+    # short-circuit if a minimal header is requested.
+    return GZIP_MINIMUM_HEADER if $param->getValue('minimal') ;
+
+    # METHOD
+    my $method = $param->valueOrDefault('method', GZIP_CM_DEFLATED) ;
+
+    # FLAGS
+    my $flags       = GZIP_FLG_DEFAULT ;
+    $flags |= GZIP_FLG_FTEXT    if $param->getValue('textflag') ;
+    $flags |= GZIP_FLG_FHCRC    if $param->getValue('headercrc') ;
+    $flags |= GZIP_FLG_FEXTRA   if $param->wantValue('extrafield') ;
+    $flags |= GZIP_FLG_FNAME    if $param->wantValue('name') ;
+    $flags |= GZIP_FLG_FCOMMENT if $param->wantValue('comment') ;
+    
+    # MTIME
+    my $time = $param->valueOrDefault('time', GZIP_MTIME_DEFAULT) ;
+
+    # EXTRA FLAGS
+    my $extra_flags = $param->valueOrDefault('extraflags', GZIP_XFL_DEFAULT);
+
+    # OS CODE
+    my $os_code = $param->valueOrDefault('os_code', GZIP_OS_DEFAULT) ;
+
+
+    my $out = pack("C4 V C C", 
+            GZIP_ID1,   # ID1
+            GZIP_ID2,   # ID2
+            $method,    # Compression Method
+            $flags,     # Flags
+            $time,      # Modification Time
+            $extra_flags, # Extra Flags
+            $os_code,   # Operating System Code
+            ) ;
+
+    # EXTRA
+    if ($flags & GZIP_FLG_FEXTRA) {
+        my $extra = $param->getValue('extrafield') ;
+        $out .= pack("v", length $extra) . $extra ;
+    }
+
+    # NAME
+    if ($flags & GZIP_FLG_FNAME) {
+        my $name .= $param->getValue('name') ;
+        $name =~ s/\x00.*$//;
+        $out .= $name ;
+        # Terminate the filename with NULL unless it already is
+        $out .= GZIP_NULL_BYTE 
+            if !length $name or
+               substr($name, 1, -1) ne GZIP_NULL_BYTE ;
+    }
+
+    # COMMENT
+    if ($flags & GZIP_FLG_FCOMMENT) {
+        my $comment .= $param->getValue('comment') ;
+        $comment =~ s/\x00.*$//;
+        $out .= $comment ;
+        # Terminate the comment with NULL unless it already is
+        $out .= GZIP_NULL_BYTE
+            if ! length $comment or
+               substr($comment, 1, -1) ne GZIP_NULL_BYTE;
+    }
+
+    # HEADER CRC
+    $out .= pack("v", Compress::Raw::Zlib::crc32($out) & 0x00FF ) 
+        if $param->getValue('headercrc') ;
+
+    noUTF8($out);
+
+    return $out ;
+}
+
+sub mkFinalTrailer
+{
+    return '';
+}
+
+1; 
+
+__END__
+
+=head1 NAME
+
+IO::Compress::Gzip - Write RFC 1952 files/buffers
+ 
+ 
+
+=head1 SYNOPSIS
+
+    use IO::Compress::Gzip qw(gzip $GzipError) ;
+
+    my $status = gzip $input => $output [,OPTS] 
+        or die "gzip failed: $GzipError\n";
+
+    my $z = new IO::Compress::Gzip $output [,OPTS]
+        or die "gzip failed: $GzipError\n";
+
+    $z->print($string);
+    $z->printf($format, $string);
+    $z->write($string);
+    $z->syswrite($string [, $length, $offset]);
+    $z->flush();
+    $z->tell();
+    $z->eof();
+    $z->seek($position, $whence);
+    $z->binmode();
+    $z->fileno();
+    $z->opened();
+    $z->autoflush();
+    $z->input_line_number();
+    $z->newStream( [OPTS] );
+    
+    $z->deflateParams();
+    
+    $z->close() ;
+
+    $GzipError ;
+
+    # IO::File mode
+
+    print $z $string;
+    printf $z $format, $string;
+    tell $z
+    eof $z
+    seek $z, $position, $whence
+    binmode $z
+    fileno $z
+    close $z ;
+    
+
+=head1 DESCRIPTION
+
+This module provides a Perl interface that allows writing compressed
+data to files or buffer as defined in RFC 1952.
+
+All the gzip headers defined in RFC 1952 can be created using
+this module.
+
+For reading RFC 1952 files/buffers, see the companion module 
+L<IO::Uncompress::Gunzip|IO::Uncompress::Gunzip>.
+
+=head1 Functional Interface
+
+A top-level function, C<gzip>, is provided to carry out
+"one-shot" compression between buffers and/or files. For finer
+control over the compression process, see the L</"OO Interface">
+section.
+
+    use IO::Compress::Gzip qw(gzip $GzipError) ;
+
+    gzip $input_filename_or_reference => $output_filename_or_reference [,OPTS] 
+        or die "gzip failed: $GzipError\n";
+
+The functional interface needs Perl5.005 or better.
+
+=head2 gzip $input_filename_or_reference => $output_filename_or_reference [, OPTS]
+
+C<gzip> expects at least two parameters,
+C<$input_filename_or_reference> and C<$output_filename_or_reference>.
+
+=head3 The C<$input_filename_or_reference> parameter
+
+The parameter, C<$input_filename_or_reference>, is used to define the
+source of the uncompressed data. 
+
+It can take one of the following forms:
+
+=over 5
+
+=item A filename
+
+If the <$input_filename_or_reference> parameter is a simple scalar, it is
+assumed to be a filename. This file will be opened for reading and the
+input data will be read from it.
+
+=item A filehandle
+
+If the C<$input_filename_or_reference> parameter is a filehandle, the input
+data will be read from it.  The string '-' can be used as an alias for
+standard input.
+
+=item A scalar reference 
+
+If C<$input_filename_or_reference> is a scalar reference, the input data
+will be read from C<$$input_filename_or_reference>.
+
+=item An array reference 
+
+If C<$input_filename_or_reference> is an array reference, each element in
+the array must be a filename.
+
+The input data will be read from each file in turn. 
+
+The complete array will be walked to ensure that it only
+contains valid filenames before any data is compressed.
+
+=item An Input FileGlob string
+
+If C<$input_filename_or_reference> is a string that is delimited by the
+characters "<" and ">" C<gzip> will assume that it is an 
+I<input fileglob string>. The input is the list of files that match the 
+fileglob.
+
+See L<File::GlobMapper|File::GlobMapper> for more details.
+
+=back
+
+If the C<$input_filename_or_reference> parameter is any other type,
+C<undef> will be returned.
+
+In addition, if C<$input_filename_or_reference> is a simple filename, 
+the default values for
+the C<Name> and C<Time> options will be sourced from that file.
+
+If you do not want to use these defaults they can be overridden by
+explicitly setting the C<Name> and C<Time> options or by setting the
+C<Minimal> parameter.
+
+=head3 The C<$output_filename_or_reference> parameter
+
+The parameter C<$output_filename_or_reference> is used to control the
+destination of the compressed data. This parameter can take one of
+these forms.
+
+=over 5
+
+=item A filename
+
+If the C<$output_filename_or_reference> parameter is a simple scalar, it is
+assumed to be a filename.  This file will be opened for writing and the 
+compressed data will be written to it.
+
+=item A filehandle
+
+If the C<$output_filename_or_reference> parameter is a filehandle, the
+compressed data will be written to it.  The string '-' can be used as
+an alias for standard output.
+
+=item A scalar reference 
+
+If C<$output_filename_or_reference> is a scalar reference, the
+compressed data will be stored in C<$$output_filename_or_reference>.
+
+=item An Array Reference
+
+If C<$output_filename_or_reference> is an array reference, 
+the compressed data will be pushed onto the array.
+
+=item An Output FileGlob
+
+If C<$output_filename_or_reference> is a string that is delimited by the
+characters "<" and ">" C<gzip> will assume that it is an
+I<output fileglob string>. The output is the list of files that match the
+fileglob.
+
+When C<$output_filename_or_reference> is an fileglob string,
+C<$input_filename_or_reference> must also be a fileglob string. Anything
+else is an error.
+
+See L<File::GlobMapper|File::GlobMapper> for more details.
+
+=back
+
+If the C<$output_filename_or_reference> parameter is any other type,
+C<undef> will be returned.
+
+=head2 Notes
+
+When C<$input_filename_or_reference> maps to multiple files/buffers and
+C<$output_filename_or_reference> is a single
+file/buffer the input files/buffers will be stored
+in C<$output_filename_or_reference> as a concatenated series of compressed data streams.
+
+=head2 Optional Parameters
+
+Unless specified below, the optional parameters for C<gzip>,
+C<OPTS>, are the same as those used with the OO interface defined in the
+L</"Constructor Options"> section below.
+
+=over 5
+
+=item C<< AutoClose => 0|1 >>
+
+This option applies to any input or output data streams to 
+C<gzip> that are filehandles.
+
+If C<AutoClose> is specified, and the value is true, it will result in all
+input and/or output filehandles being closed once C<gzip> has
+completed.
+
+This parameter defaults to 0.
+
+=item C<< BinModeIn => 0|1 >>
+
+When reading from a file or filehandle, set C<binmode> before reading.
+
+Defaults to 0.
+
+=item C<< Append => 0|1 >>
+
+The behaviour of this option is dependent on the type of output data
+stream.
+
+=over 5
+
+=item * A Buffer
+
+If C<Append> is enabled, all compressed data will be append to the end of
+the output buffer. Otherwise the output buffer will be cleared before any
+compressed data is written to it.
+
+=item * A Filename
+
+If C<Append> is enabled, the file will be opened in append mode. Otherwise
+the contents of the file, if any, will be truncated before any compressed
+data is written to it.
+
+=item * A Filehandle
+
+If C<Append> is enabled, the filehandle will be positioned to the end of
+the file via a call to C<seek> before any compressed data is
+written to it.  Otherwise the file pointer will not be moved.
+
+=back
+
+When C<Append> is specified, and set to true, it will I<append> all compressed 
+data to the output data stream.
+
+So when the output is a filehandle it will carry out a seek to the eof
+before writing any compressed data. If the output is a filename, it will be opened for
+appending. If the output is a buffer, all compressed data will be
+appended to the existing buffer.
+
+Conversely when C<Append> is not specified, or it is present and is set to
+false, it will operate as follows.
+
+When the output is a filename, it will truncate the contents of the file
+before writing any compressed data. If the output is a filehandle
+its position will not be changed. If the output is a buffer, it will be
+wiped before any compressed data is output.
+
+Defaults to 0.
+
+=back
+
+=head2 Examples
+
+To read the contents of the file C<file1.txt> and write the compressed
+data to the file C<file1.txt.gz>.
+
+    use strict ;
+    use warnings ;
+    use IO::Compress::Gzip qw(gzip $GzipError) ;
+
+    my $input = "file1.txt";
+    gzip $input => "$input.gz"
+        or die "gzip failed: $GzipError\n";
+
+To read from an existing Perl filehandle, C<$input>, and write the
+compressed data to a buffer, C<$buffer>.
+
+    use strict ;
+    use warnings ;
+    use IO::Compress::Gzip qw(gzip $GzipError) ;
+    use IO::File ;
+
+    my $input = new IO::File "<file1.txt"
+        or die "Cannot open 'file1.txt': $!\n" ;
+    my $buffer ;
+    gzip $input => \$buffer 
+        or die "gzip failed: $GzipError\n";
+
+To compress all files in the directory "/my/home" that match "*.txt"
+and store the compressed data in the same directory
+
+    use strict ;
+    use warnings ;
+    use IO::Compress::Gzip qw(gzip $GzipError) ;
+
+    gzip '</my/home/*.txt>' => '<*.gz>'
+        or die "gzip failed: $GzipError\n";
+
+and if you want to compress each file one at a time, this will do the trick
+
+    use strict ;
+    use warnings ;
+    use IO::Compress::Gzip qw(gzip $GzipError) ;
+
+    for my $input ( glob "/my/home/*.txt" )
+    {
+        my $output = "$input.gz" ;
+        gzip $input => $output 
+            or die "Error compressing '$input': $GzipError\n";
+    }
+
+=head1 OO Interface
+
+=head2 Constructor
+
+The format of the constructor for C<IO::Compress::Gzip> is shown below
+
+    my $z = new IO::Compress::Gzip $output [,OPTS]
+        or die "IO::Compress::Gzip failed: $GzipError\n";
+
+It returns an C<IO::Compress::Gzip> object on success and undef on failure. 
+The variable C<$GzipError> will contain an error message on failure.
+
+If you are running Perl 5.005 or better the object, C<$z>, returned from 
+IO::Compress::Gzip can be used exactly like an L<IO::File|IO::File> filehandle. 
+This means that all normal output file operations can be carried out 
+with C<$z>. 
+For example, to write to a compressed file/buffer you can use either of 
+these forms
+
+    $z->print("hello world\n");
+    print $z "hello world\n";
+
+The mandatory parameter C<$output> is used to control the destination
+of the compressed data. This parameter can take one of these forms.
+
+=over 5
+
+=item A filename
+
+If the C<$output> parameter is a simple scalar, it is assumed to be a
+filename. This file will be opened for writing and the compressed data
+will be written to it.
+
+=item A filehandle
+
+If the C<$output> parameter is a filehandle, the compressed data will be
+written to it.
+The string '-' can be used as an alias for standard output.
+
+=item A scalar reference 
+
+If C<$output> is a scalar reference, the compressed data will be stored
+in C<$$output>.
+
+=back
+
+If the C<$output> parameter is any other type, C<IO::Compress::Gzip>::new will
+return undef.
+
+=head2 Constructor Options
+
+C<OPTS> is any combination of the following options:
+
+=over 5
+
+=item C<< AutoClose => 0|1 >>
+
+This option is only valid when the C<$output> parameter is a filehandle. If
+specified, and the value is true, it will result in the C<$output> being
+closed once either the C<close> method is called or the C<IO::Compress::Gzip>
+object is destroyed.
+
+This parameter defaults to 0.
+
+=item C<< Append => 0|1 >>
+
+Opens C<$output> in append mode. 
+
+The behaviour of this option is dependent on the type of C<$output>.
+
+=over 5
+
+=item * A Buffer
+
+If C<$output> is a buffer and C<Append> is enabled, all compressed data
+will be append to the end of C<$output>. Otherwise C<$output> will be
+cleared before any data is written to it.
+
+=item * A Filename
+
+If C<$output> is a filename and C<Append> is enabled, the file will be
+opened in append mode. Otherwise the contents of the file, if any, will be
+truncated before any compressed data is written to it.
+
+=item * A Filehandle
+
+If C<$output> is a filehandle, the file pointer will be positioned to the
+end of the file via a call to C<seek> before any compressed data is written
+to it.  Otherwise the file pointer will not be moved.
+
+=back
+
+This parameter defaults to 0.
+
+=item C<< Merge => 0|1 >>
+
+This option is used to compress input data and append it to an existing
+compressed data stream in C<$output>. The end result is a single compressed
+data stream stored in C<$output>. 
+
+It is a fatal error to attempt to use this option when C<$output> is not an
+RFC 1952 data stream.
+
+There are a number of other limitations with the C<Merge> option:
+
+=over 5 
+
+=item 1
+
+This module needs to have been built with zlib 1.2.1 or better to work. A
+fatal error will be thrown if C<Merge> is used with an older version of
+zlib.  
+
+=item 2
+
+If C<$output> is a file or a filehandle, it must be seekable.
+
+=back
+
+This parameter defaults to 0.
+
+=item -Level 
+
+Defines the compression level used by zlib. The value should either be
+a number between 0 and 9 (0 means no compression and 9 is maximum
+compression), or one of the symbolic constants defined below.
+
+   Z_NO_COMPRESSION
+   Z_BEST_SPEED
+   Z_BEST_COMPRESSION
+   Z_DEFAULT_COMPRESSION
+
+The default is Z_DEFAULT_COMPRESSION.
+
+Note, these constants are not imported by C<IO::Compress::Gzip> by default.
+
+    use IO::Compress::Gzip qw(:strategy);
+    use IO::Compress::Gzip qw(:constants);
+    use IO::Compress::Gzip qw(:all);
+
+=item -Strategy 
+
+Defines the strategy used to tune the compression. Use one of the symbolic
+constants defined below.
+
+   Z_FILTERED
+   Z_HUFFMAN_ONLY
+   Z_RLE
+   Z_FIXED
+   Z_DEFAULT_STRATEGY
+
+The default is Z_DEFAULT_STRATEGY.
+
+=item C<< Minimal => 0|1 >>
+
+If specified, this option will force the creation of the smallest possible
+compliant gzip header (which is exactly 10 bytes long) as defined in
+RFC 1952.
+
+See the section titled "Compliance" in RFC 1952 for a definition 
+of the values used for the fields in the gzip header.
+
+All other parameters that control the content of the gzip header will
+be ignored if this parameter is set to 1.
+
+This parameter defaults to 0.
+
+=item C<< Comment => $comment >>
+
+Stores the contents of C<$comment> in the COMMENT field in
+the gzip header.
+By default, no comment field is written to the gzip file.
+
+If the C<-Strict> option is enabled, the comment can only consist of ISO
+8859-1 characters plus line feed.
+
+If the C<-Strict> option is disabled, the comment field can contain any
+character except NULL. If any null characters are present, the field
+will be truncated at the first NULL.
+
+=item C<< Name => $string >>
+
+Stores the contents of C<$string> in the gzip NAME header field. If
+C<Name> is not specified, no gzip NAME field will be created.
+
+If the C<-Strict> option is enabled, C<$string> can only consist of ISO
+8859-1 characters.
+
+If C<-Strict> is disabled, then C<$string> can contain any character
+except NULL. If any null characters are present, the field will be
+truncated at the first NULL.
+
+=item C<< Time => $number >>
+
+Sets the MTIME field in the gzip header to $number.
+
+This field defaults to the time the C<IO::Compress::Gzip> object was created
+if this option is not specified.
+
+=item C<< TextFlag => 0|1 >>
+
+This parameter controls the setting of the FLG.FTEXT bit in the gzip
+header. It is used to signal that the data stored in the gzip file/buffer
+is probably text.
+
+The default is 0. 
+
+=item C<< HeaderCRC => 0|1 >>
+
+When true this parameter will set the FLG.FHCRC bit to 1 in the gzip header
+and set the CRC16 header field to the CRC of the complete gzip header
+except the CRC16 field itself.
+
+B<Note> that gzip files created with the C<HeaderCRC> flag set to 1 cannot
+be read by most, if not all, of the standard gunzip utilities, most
+notably gzip version 1.2.4. You should therefore avoid using this option if
+you want to maximize the portability of your gzip files.
+
+This parameter defaults to 0.
+
+=item C<< OS_Code => $value >>
+
+Stores C<$value> in the gzip OS header field. A number between 0 and 255 is
+valid.
+
+If not specified, this parameter defaults to the OS code of the Operating
+System this module was built on. The value 3 is used as a catch-all for all
+Unix variants and unknown Operating Systems.
+
+=item C<< ExtraField => $data >>
+
+This parameter allows additional metadata to be stored in the ExtraField in
+the gzip header. An RFC 1952 compliant ExtraField consists of zero or more
+subfields. Each subfield consists of a two byte header followed by the
+subfield data.
+
+The list of subfields can be supplied in any of the following formats
+
+    -ExtraField => [$id1, $data1,
+                    $id2, $data2,
+                     ...
+                   ]
+    -ExtraField => [ [$id1 => $data1],
+                     [$id2 => $data2],
+                     ...
+                   ]
+    -ExtraField => { $id1 => $data1,
+                     $id2 => $data2,
+                     ...
+                   }
+
+Where C<$id1>, C<$id2> are two byte subfield ID's. The second byte of
+the ID cannot be 0, unless the C<Strict> option has been disabled.
+
+If you use the hash syntax, you have no control over the order in which
+the ExtraSubFields are stored, plus you cannot have SubFields with
+duplicate ID.
+
+Alternatively the list of subfields can by supplied as a scalar, thus
+
+    -ExtraField => $rawdata
+
+If you use the raw format, and the C<Strict> option is enabled,
+C<IO::Compress::Gzip> will check that C<$rawdata> consists of zero or more
+conformant sub-fields. When C<Strict> is disabled, C<$rawdata> can
+consist of any arbitrary byte stream.
+
+The maximum size of the Extra Field 65535 bytes.
+
+=item C<< ExtraFlags => $value >>
+
+Sets the XFL byte in the gzip header to C<$value>.
+
+If this option is not present, the value stored in XFL field will be
+determined by the setting of the C<Level> option.
+
+If C<< Level => Z_BEST_SPEED >> has been specified then XFL is set to 2.
+If C<< Level => Z_BEST_COMPRESSION >> has been specified then XFL is set to 4.
+Otherwise XFL is set to 0.
+
+=item C<< Strict => 0|1 >>
+
+C<Strict> will optionally police the values supplied with other options
+to ensure they are compliant with RFC1952.
+
+This option is enabled by default.
+
+If C<Strict> is enabled the following behaviour will be policed:
+
+=over 5
+
+=item * 
+
+The value supplied with the C<Name> option can only contain ISO 8859-1
+characters.
+
+=item * 
+
+The value supplied with the C<Comment> option can only contain ISO 8859-1
+characters plus line-feed.
+
+=item *
+
+The values supplied with the C<-Name> and C<-Comment> options cannot
+contain multiple embedded nulls.
+
+=item * 
+
+If an C<ExtraField> option is specified and it is a simple scalar,
+it must conform to the sub-field structure as defined in RFC 1952.
+
+=item * 
+
+If an C<ExtraField> option is specified the second byte of the ID will be
+checked in each subfield to ensure that it does not contain the reserved
+value 0x00.
+
+=back
+
+When C<Strict> is disabled the following behaviour will be policed:
+
+=over 5
+
+=item * 
+
+The value supplied with C<-Name> option can contain
+any character except NULL.
+
+=item * 
+
+The value supplied with C<-Comment> option can contain any character
+except NULL.
+
+=item *
+
+The values supplied with the C<-Name> and C<-Comment> options can contain
+multiple embedded nulls. The string written to the gzip header will
+consist of the characters up to, but not including, the first embedded
+NULL.
+
+=item * 
+
+If an C<ExtraField> option is specified and it is a simple scalar, the
+structure will not be checked. The only error is if the length is too big.
+
+=item * 
+
+The ID header in an C<ExtraField> sub-field can consist of any two bytes.
+
+=back
+
+=back
+
+=head2 Examples
+
+TODO
+
+=head1 Methods 
+
+=head2 print
+
+Usage is
+
+    $z->print($data)
+    print $z $data
+
+Compresses and outputs the contents of the C<$data> parameter. This
+has the same behaviour as the C<print> built-in.
+
+Returns true if successful.
+
+=head2 printf
+
+Usage is
+
+    $z->printf($format, $data)
+    printf $z $format, $data
+
+Compresses and outputs the contents of the C<$data> parameter.
+
+Returns true if successful.
+
+=head2 syswrite
+
+Usage is
+
+    $z->syswrite $data
+    $z->syswrite $data, $length
+    $z->syswrite $data, $length, $offset
+
+Compresses and outputs the contents of the C<$data> parameter.
+
+Returns the number of uncompressed bytes written, or C<undef> if
+unsuccessful.
+
+=head2 write
+
+Usage is
+
+    $z->write $data
+    $z->write $data, $length
+    $z->write $data, $length, $offset
+
+Compresses and outputs the contents of the C<$data> parameter.
+
+Returns the number of uncompressed bytes written, or C<undef> if
+unsuccessful.
+
+=head2 flush
+
+Usage is
+
+    $z->flush;
+    $z->flush($flush_type);
+
+Flushes any pending compressed data to the output file/buffer.
+
+This method takes an optional parameter, C<$flush_type>, that controls
+how the flushing will be carried out. By default the C<$flush_type>
+used is C<Z_FINISH>. Other valid values for C<$flush_type> are
+C<Z_NO_FLUSH>, C<Z_SYNC_FLUSH>, C<Z_FULL_FLUSH> and C<Z_BLOCK>. It is
+strongly recommended that you only set the C<flush_type> parameter if
+you fully understand the implications of what it does - overuse of C<flush>
+can seriously degrade the level of compression achieved. See the C<zlib>
+documentation for details.
+
+Returns true on success.
+
+=head2 tell
+
+Usage is
+
+    $z->tell()
+    tell $z
+
+Returns the uncompressed file offset.
+
+=head2 eof
+
+Usage is
+
+    $z->eof();
+    eof($z);
+
+Returns true if the C<close> method has been called.
+
+=head2 seek
+
+    $z->seek($position, $whence);
+    seek($z, $position, $whence);
+
+Provides a sub-set of the C<seek> functionality, with the restriction
+that it is only legal to seek forward in the output file/buffer.
+It is a fatal error to attempt to seek backward.
+
+Empty parts of the file/buffer will have NULL (0x00) bytes written to them.
+
+The C<$whence> parameter takes one the usual values, namely SEEK_SET,
+SEEK_CUR or SEEK_END.
+
+Returns 1 on success, 0 on failure.
+
+=head2 binmode
+
+Usage is
+
+    $z->binmode
+    binmode $z ;
+
+This is a noop provided for completeness.
+
+=head2 opened
+
+    $z->opened()
+
+Returns true if the object currently refers to a opened file/buffer. 
+
+=head2 autoflush
+
+    my $prev = $z->autoflush()
+    my $prev = $z->autoflush(EXPR)
+
+If the C<$z> object is associated with a file or a filehandle, this method
+returns the current autoflush setting for the underlying filehandle. If
+C<EXPR> is present, and is non-zero, it will enable flushing after every
+write/print operation.
+
+If C<$z> is associated with a buffer, this method has no effect and always
+returns C<undef>.
+
+B<Note> that the special variable C<$|> B<cannot> be used to set or
+retrieve the autoflush setting.
+
+=head2 input_line_number
+
+    $z->input_line_number()
+    $z->input_line_number(EXPR)
+
+This method always returns C<undef> when compressing. 
+
+=head2 fileno
+
+    $z->fileno()
+    fileno($z)
+
+If the C<$z> object is associated with a file or a filehandle, C<fileno>
+will return the underlying file descriptor. Once the C<close> method is
+called C<fileno> will return C<undef>.
+
+If the C<$z> object is associated with a buffer, this method will return
+C<undef>.
+
+=head2 close
+
+    $z->close() ;
+    close $z ;
+
+Flushes any pending compressed data and then closes the output file/buffer. 
+
+For most versions of Perl this method will be automatically invoked if
+the IO::Compress::Gzip object is destroyed (either explicitly or by the
+variable with the reference to the object going out of scope). The
+exceptions are Perl versions 5.005 through 5.00504 and 5.8.0. In
+these cases, the C<close> method will be called automatically, but
+not until global destruction of all live objects when the program is
+terminating.
+
+Therefore, if you want your scripts to be able to run on all versions
+of Perl, you should call C<close> explicitly and not rely on automatic
+closing.
+
+Returns true on success, otherwise 0.
+
+If the C<AutoClose> option has been enabled when the IO::Compress::Gzip
+object was created, and the object is associated with a file, the
+underlying file will also be closed.
+
+=head2 newStream([OPTS])
+
+Usage is
+
+    $z->newStream( [OPTS] )
+
+Closes the current compressed data stream and starts a new one.
+
+OPTS consists of any of the options that are available when creating
+the C<$z> object.
+
+See the L</"Constructor Options"> section for more details.
+
+=head2 deflateParams
+
+Usage is
+
+    $z->deflateParams
+
+TODO
+
+=head1 Importing 
+
+A number of symbolic constants are required by some methods in 
+C<IO::Compress::Gzip>. None are imported by default.
+
+=over 5
+
+=item :all
+
+Imports C<gzip>, C<$GzipError> and all symbolic
+constants that can be used by C<IO::Compress::Gzip>. Same as doing this
+
+    use IO::Compress::Gzip qw(gzip $GzipError :constants) ;
+
+=item :constants
+
+Import all symbolic constants. Same as doing this
+
+    use IO::Compress::Gzip qw(:flush :level :strategy) ;
+
+=item :flush
+
+These symbolic constants are used by the C<flush> method.
+
+    Z_NO_FLUSH
+    Z_PARTIAL_FLUSH
+    Z_SYNC_FLUSH
+    Z_FULL_FLUSH
+    Z_FINISH
+    Z_BLOCK
+
+=item :level
+
+These symbolic constants are used by the C<Level> option in the constructor.
+
+    Z_NO_COMPRESSION
+    Z_BEST_SPEED
+    Z_BEST_COMPRESSION
+    Z_DEFAULT_COMPRESSION
+
+=item :strategy
+
+These symbolic constants are used by the C<Strategy> option in the constructor.
+
+    Z_FILTERED
+    Z_HUFFMAN_ONLY
+    Z_RLE
+    Z_FIXED
+    Z_DEFAULT_STRATEGY
+
+    
+    
+
+=back
+
+=head1 EXAMPLES
+
+=head2 Apache::GZip Revisited
+
+See L<IO::Compress::FAQ|IO::Compress::FAQ/"Apache::GZip Revisited">
+
+=head2 Working with Net::FTP
+
+See L<IO::Compress::FAQ|IO::Compress::FAQ/"Compressed files and Net::FTP">
+
+=head1 SEE ALSO
+
+L<Compress::Zlib>, L<IO::Uncompress::Gunzip>, L<IO::Compress::Deflate>, L<IO::Uncompress::Inflate>, L<IO::Compress::RawDeflate>, L<IO::Uncompress::RawInflate>, L<IO::Compress::Bzip2>, L<IO::Uncompress::Bunzip2>, L<IO::Compress::Lzma>, L<IO::Uncompress::UnLzma>, L<IO::Compress::Xz>, L<IO::Uncompress::UnXz>, L<IO::Compress::Lzop>, L<IO::Uncompress::UnLzop>, L<IO::Compress::Lzf>, L<IO::Uncompress::UnLzf>, L<IO::Uncompress::AnyInflate>, L<IO::Uncompress::AnyUncompress>
+
+L<IO::Compress::FAQ|IO::Compress::FAQ>
+
+L<File::GlobMapper|File::GlobMapper>, L<Archive::Zip|Archive::Zip>,
+L<Archive::Tar|Archive::Tar>,
+L<IO::Zlib|IO::Zlib>
+
+For RFC 1950, 1951 and 1952 see 
+F<http://www.faqs.org/rfcs/rfc1950.html>,
+F<http://www.faqs.org/rfcs/rfc1951.html> and
+F<http://www.faqs.org/rfcs/rfc1952.html>
+
+The I<zlib> compression library was written by Jean-loup Gailly
+F<gzip@prep.ai.mit.edu> and Mark Adler F<madler@alumni.caltech.edu>.
+
+The primary site for the I<zlib> compression library is
+F<http://www.zlib.org>.
+
+The primary site for gzip is F<http://www.gzip.org>.
+
+=head1 AUTHOR
+
+This module was written by Paul Marquess, F<pmqs@cpan.org>. 
+
+=head1 MODIFICATION HISTORY
+
+See the Changes file.
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright (c) 2005-2015 Paul Marquess. All rights reserved.
+
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
diff --git a/lib/5.24.1/IO/Compress/Gzip/Constants.pm b/lib/5.24.1/IO/Compress/Gzip/Constants.pm
new file mode 100644
index 00000000..950bdb0a
--- /dev/null
+++ b/lib/5.24.1/IO/Compress/Gzip/Constants.pm
@@ -0,0 +1,148 @@
+package IO::Compress::Gzip::Constants;
+
+use strict ;
+use warnings;
+use bytes;
+
+require Exporter;
+
+our ($VERSION, @ISA, @EXPORT, %GZIP_OS_Names);
+our ($GZIP_FNAME_INVALID_CHAR_RE, $GZIP_FCOMMENT_INVALID_CHAR_RE);
+
+$VERSION = '2.069_001';
+
+@ISA = qw(Exporter);
+
+@EXPORT= qw(
+
+    GZIP_ID_SIZE
+    GZIP_ID1
+    GZIP_ID2
+
+    GZIP_FLG_DEFAULT
+    GZIP_FLG_FTEXT
+    GZIP_FLG_FHCRC
+    GZIP_FLG_FEXTRA
+    GZIP_FLG_FNAME
+    GZIP_FLG_FCOMMENT
+    GZIP_FLG_RESERVED
+
+    GZIP_CM_DEFLATED
+
+    GZIP_MIN_HEADER_SIZE
+    GZIP_TRAILER_SIZE
+
+    GZIP_MTIME_DEFAULT
+    GZIP_XFL_DEFAULT
+    GZIP_FEXTRA_HEADER_SIZE
+    GZIP_FEXTRA_MAX_SIZE
+    GZIP_FEXTRA_SUBFIELD_HEADER_SIZE
+    GZIP_FEXTRA_SUBFIELD_ID_SIZE
+    GZIP_FEXTRA_SUBFIELD_LEN_SIZE
+    GZIP_FEXTRA_SUBFIELD_MAX_SIZE
+
+    $GZIP_FNAME_INVALID_CHAR_RE
+    $GZIP_FCOMMENT_INVALID_CHAR_RE
+
+    GZIP_FHCRC_SIZE
+
+    GZIP_ISIZE_MAX
+    GZIP_ISIZE_MOD_VALUE
+
+
+    GZIP_NULL_BYTE
+
+    GZIP_OS_DEFAULT
+
+    %GZIP_OS_Names
+
+    GZIP_MINIMUM_HEADER
+
+    );
+
+# Constant names derived from RFC 1952
+
+use constant GZIP_ID_SIZE                     => 2 ;
+use constant GZIP_ID1                         => 0x1F;
+use constant GZIP_ID2                         => 0x8B;
+
+use constant GZIP_MIN_HEADER_SIZE             => 10 ;# minimum gzip header size
+use constant GZIP_TRAILER_SIZE                => 8 ;
+
+
+use constant GZIP_FLG_DEFAULT                 => 0x00 ;
+use constant GZIP_FLG_FTEXT                   => 0x01 ;
+use constant GZIP_FLG_FHCRC                   => 0x02 ; # called CONTINUATION in gzip
+use constant GZIP_FLG_FEXTRA                  => 0x04 ;
+use constant GZIP_FLG_FNAME                   => 0x08 ;
+use constant GZIP_FLG_FCOMMENT                => 0x10 ;
+#use constant GZIP_FLG_ENCRYPTED              => 0x20 ; # documented in gzip sources
+use constant GZIP_FLG_RESERVED                => (0x20 | 0x40 | 0x80) ;
+
+use constant GZIP_XFL_DEFAULT                 => 0x00 ;
+
+use constant GZIP_MTIME_DEFAULT               => 0x00 ;
+
+use constant GZIP_FEXTRA_HEADER_SIZE          => 2 ;
+use constant GZIP_FEXTRA_MAX_SIZE             => 0xFFFF ;
+use constant GZIP_FEXTRA_SUBFIELD_ID_SIZE     => 2 ;
+use constant GZIP_FEXTRA_SUBFIELD_LEN_SIZE    => 2 ;
+use constant GZIP_FEXTRA_SUBFIELD_HEADER_SIZE => GZIP_FEXTRA_SUBFIELD_ID_SIZE +
+                                                 GZIP_FEXTRA_SUBFIELD_LEN_SIZE;
+use constant GZIP_FEXTRA_SUBFIELD_MAX_SIZE    => GZIP_FEXTRA_MAX_SIZE - 
+                                                 GZIP_FEXTRA_SUBFIELD_HEADER_SIZE ;
+
+
+if (ord('A') == 193)
+{
+    # EBCDIC 
+    $GZIP_FNAME_INVALID_CHAR_RE = '[\x00-\x3f\xff]';
+    $GZIP_FCOMMENT_INVALID_CHAR_RE = '[\x00-\x0a\x11-\x14\x16-\x3f\xff]';
+    
+}
+else
+{
+    $GZIP_FNAME_INVALID_CHAR_RE       =  '[\x00-\x1F\x7F-\x9F]';
+    $GZIP_FCOMMENT_INVALID_CHAR_RE    =  '[\x00-\x09\x11-\x1F\x7F-\x9F]';
+}            
+
+use constant GZIP_FHCRC_SIZE        => 2 ; # aka CONTINUATION in gzip
+
+use constant GZIP_CM_DEFLATED       => 8 ;
+
+use constant GZIP_NULL_BYTE         => "\x00";
+use constant GZIP_ISIZE_MAX         => 0xFFFFFFFF ;
+use constant GZIP_ISIZE_MOD_VALUE   => GZIP_ISIZE_MAX + 1 ;
+
+# OS Names sourced from http://www.gzip.org/format.txt
+
+use constant GZIP_OS_DEFAULT=> 0xFF ;
+%GZIP_OS_Names = (
+    0   => 'MS-DOS',
+    1   => 'Amiga',
+    2   => 'VMS',
+    3   => 'Unix',
+    4   => 'VM/CMS',
+    5   => 'Atari TOS',
+    6   => 'HPFS (OS/2, NT)',
+    7   => 'Macintosh',
+    8   => 'Z-System',
+    9   => 'CP/M',
+    10  => 'TOPS-20',
+    11  => 'NTFS (NT)',
+    12  => 'SMS QDOS',
+    13  => 'Acorn RISCOS',
+    14  => 'VFAT file system (Win95, NT)',
+    15  => 'MVS',
+    16  => 'BeOS',
+    17  => 'Tandem/NSK',
+    18  => 'THEOS',
+    GZIP_OS_DEFAULT()   => 'Unknown',
+    ) ;
+
+use constant GZIP_MINIMUM_HEADER =>   pack("C4 V C C",  
+        GZIP_ID1, GZIP_ID2, GZIP_CM_DEFLATED, GZIP_FLG_DEFAULT,
+        GZIP_MTIME_DEFAULT, GZIP_XFL_DEFAULT, GZIP_OS_DEFAULT) ;
+
+
+1;
diff --git a/lib/5.24.1/IO/Compress/RawDeflate.pm b/lib/5.24.1/IO/Compress/RawDeflate.pm
new file mode 100644
index 00000000..2a553014
--- /dev/null
+++ b/lib/5.24.1/IO/Compress/RawDeflate.pm
@@ -0,0 +1,995 @@
+package IO::Compress::RawDeflate ;
+
+# create RFC1951
+#
+use strict ;
+use warnings;
+use bytes;
+
+use IO::Compress::Base 2.069 ;
+use IO::Compress::Base::Common  2.069 qw(:Status );
+use IO::Compress::Adapter::Deflate 2.069 ;
+
+require Exporter ;
+
+our ($VERSION, @ISA, @EXPORT_OK, %DEFLATE_CONSTANTS, %EXPORT_TAGS, $RawDeflateError);
+
+$VERSION = '2.069_001';
+$RawDeflateError = '';
+
+@ISA = qw(Exporter IO::Compress::Base);
+@EXPORT_OK = qw( $RawDeflateError rawdeflate ) ;
+push @EXPORT_OK, @IO::Compress::Adapter::Deflate::EXPORT_OK ;
+
+%EXPORT_TAGS = %IO::Compress::Adapter::Deflate::DEFLATE_CONSTANTS;
+
+
+{
+    my %seen;
+    foreach (keys %EXPORT_TAGS )
+    {
+        push @{$EXPORT_TAGS{constants}}, 
+                 grep { !$seen{$_}++ } 
+                 @{ $EXPORT_TAGS{$_} }
+    }
+    $EXPORT_TAGS{all} = $EXPORT_TAGS{constants} ;
+}
+
+
+%DEFLATE_CONSTANTS = %EXPORT_TAGS;
+
+#push @{ $EXPORT_TAGS{all} }, @EXPORT_OK ;
+
+Exporter::export_ok_tags('all');
+              
+
+
+sub new
+{
+    my $class = shift ;
+
+    my $obj = IO::Compress::Base::Common::createSelfTiedObject($class, \$RawDeflateError);
+
+    return $obj->_create(undef, @_);
+}
+
+sub rawdeflate
+{
+    my $obj = IO::Compress::Base::Common::createSelfTiedObject(undef, \$RawDeflateError);
+    return $obj->_def(@_);
+}
+
+sub ckParams
+{
+    my $self = shift ;
+    my $got = shift;
+
+    return 1 ;
+}
+
+sub mkComp
+{
+    my $self = shift ;
+    my $got = shift ;
+
+    my ($obj, $errstr, $errno) = IO::Compress::Adapter::Deflate::mkCompObject(
+                                                 $got->getValue('crc32'),
+                                                 $got->getValue('adler32'),
+                                                 $got->getValue('level'),
+                                                 $got->getValue('strategy')
+                                                 );
+
+   return $self->saveErrorString(undef, $errstr, $errno)
+       if ! defined $obj;
+
+   return $obj;    
+}
+
+
+sub mkHeader
+{
+    my $self = shift ;
+    return '';
+}
+
+sub mkTrailer
+{
+    my $self = shift ;
+    return '';
+}
+
+sub mkFinalTrailer
+{
+    return '';
+}
+
+
+#sub newHeader
+#{
+#    my $self = shift ;
+#    return '';
+#}
+
+sub getExtraParams
+{
+    my $self = shift ;
+    return getZlibParams();
+}
+
+use IO::Compress::Base::Common  2.069 qw(:Parse);
+use Compress::Raw::Zlib  2.069 qw(Z_DEFLATED Z_DEFAULT_COMPRESSION Z_DEFAULT_STRATEGY);
+our %PARAMS = (
+            #'method'   => [IO::Compress::Base::Common::Parse_unsigned,  Z_DEFLATED],
+            'level'     => [IO::Compress::Base::Common::Parse_signed,    Z_DEFAULT_COMPRESSION],
+            'strategy'  => [IO::Compress::Base::Common::Parse_signed,    Z_DEFAULT_STRATEGY],
+
+            'crc32'     => [IO::Compress::Base::Common::Parse_boolean,   0],
+            'adler32'   => [IO::Compress::Base::Common::Parse_boolean,   0],
+            'merge'     => [IO::Compress::Base::Common::Parse_boolean,   0], 
+        );
+        
+sub getZlibParams
+{
+    return %PARAMS;    
+}
+
+sub getInverseClass
+{
+    return ('IO::Uncompress::RawInflate', 
+                \$IO::Uncompress::RawInflate::RawInflateError);
+}
+
+sub getFileInfo
+{
+    my $self = shift ;
+    my $params = shift;
+    my $file = shift ;
+    
+}
+
+use Fcntl qw(SEEK_SET);
+
+sub createMerge
+{
+    my $self = shift ;
+    my $outValue = shift ;
+    my $outType = shift ;
+
+    my ($invClass, $error_ref) = $self->getInverseClass();
+    eval "require $invClass" 
+        or die "aaaahhhh" ;
+
+    my $inf = $invClass->new( $outValue, 
+                             Transparent => 0, 
+                             #Strict     => 1,
+                             AutoClose   => 0,
+                             Scan        => 1)
+       or return $self->saveErrorString(undef, "Cannot create InflateScan object: $$error_ref" ) ;
+
+    my $end_offset = 0;
+    $inf->scan() 
+        or return $self->saveErrorString(undef, "Error Scanning: $$error_ref", $inf->errorNo) ;
+    $inf->zap($end_offset) 
+        or return $self->saveErrorString(undef, "Error Zapping: $$error_ref", $inf->errorNo) ;
+
+    my $def = *$self->{Compress} = $inf->createDeflate();
+
+    *$self->{Header} = *$inf->{Info}{Header};
+    *$self->{UnCompSize} = *$inf->{UnCompSize}->clone();
+    *$self->{CompSize} = *$inf->{CompSize}->clone();
+    # TODO -- fix this
+    #*$self->{CompSize} = new U64(0, *$self->{UnCompSize_32bit});
+
+
+    if ( $outType eq 'buffer') 
+      { substr( ${ *$self->{Buffer} }, $end_offset) = '' }
+    elsif ($outType eq 'handle' || $outType eq 'filename') {
+        *$self->{FH} = *$inf->{FH} ;
+        delete *$inf->{FH};
+        *$self->{FH}->flush() ;
+        *$self->{Handle} = 1 if $outType eq 'handle';
+
+        #seek(*$self->{FH}, $end_offset, SEEK_SET) 
+        *$self->{FH}->seek($end_offset, SEEK_SET) 
+            or return $self->saveErrorString(undef, $!, $!) ;
+    }
+
+    return $def ;
+}
+
+#### zlib specific methods
+
+sub deflateParams 
+{
+    my $self = shift ;
+
+    my $level = shift ;
+    my $strategy = shift ;
+
+    my $status = *$self->{Compress}->deflateParams(Level => $level, Strategy => $strategy) ;
+    return $self->saveErrorString(0, *$self->{Compress}{Error}, *$self->{Compress}{ErrorNo})
+        if $status == STATUS_ERROR;
+
+    return 1;    
+}
+
+
+
+
+1;
+
+__END__
+
+=head1 NAME
+
+IO::Compress::RawDeflate - Write RFC 1951 files/buffers
+ 
+ 
+
+=head1 SYNOPSIS
+
+    use IO::Compress::RawDeflate qw(rawdeflate $RawDeflateError) ;
+
+    my $status = rawdeflate $input => $output [,OPTS] 
+        or die "rawdeflate failed: $RawDeflateError\n";
+
+    my $z = new IO::Compress::RawDeflate $output [,OPTS]
+        or die "rawdeflate failed: $RawDeflateError\n";
+
+    $z->print($string);
+    $z->printf($format, $string);
+    $z->write($string);
+    $z->syswrite($string [, $length, $offset]);
+    $z->flush();
+    $z->tell();
+    $z->eof();
+    $z->seek($position, $whence);
+    $z->binmode();
+    $z->fileno();
+    $z->opened();
+    $z->autoflush();
+    $z->input_line_number();
+    $z->newStream( [OPTS] );
+    
+    $z->deflateParams();
+    
+    $z->close() ;
+
+    $RawDeflateError ;
+
+    # IO::File mode
+
+    print $z $string;
+    printf $z $format, $string;
+    tell $z
+    eof $z
+    seek $z, $position, $whence
+    binmode $z
+    fileno $z
+    close $z ;
+    
+
+=head1 DESCRIPTION
+
+This module provides a Perl interface that allows writing compressed
+data to files or buffer as defined in RFC 1951.
+
+Note that RFC 1951 data is not a good choice of compression format
+to use in isolation, especially if you want to auto-detect it.
+
+For reading RFC 1951 files/buffers, see the companion module 
+L<IO::Uncompress::RawInflate|IO::Uncompress::RawInflate>.
+
+=head1 Functional Interface
+
+A top-level function, C<rawdeflate>, is provided to carry out
+"one-shot" compression between buffers and/or files. For finer
+control over the compression process, see the L</"OO Interface">
+section.
+
+    use IO::Compress::RawDeflate qw(rawdeflate $RawDeflateError) ;
+
+    rawdeflate $input_filename_or_reference => $output_filename_or_reference [,OPTS] 
+        or die "rawdeflate failed: $RawDeflateError\n";
+
+The functional interface needs Perl5.005 or better.
+
+=head2 rawdeflate $input_filename_or_reference => $output_filename_or_reference [, OPTS]
+
+C<rawdeflate> expects at least two parameters,
+C<$input_filename_or_reference> and C<$output_filename_or_reference>.
+
+=head3 The C<$input_filename_or_reference> parameter
+
+The parameter, C<$input_filename_or_reference>, is used to define the
+source of the uncompressed data. 
+
+It can take one of the following forms:
+
+=over 5
+
+=item A filename
+
+If the <$input_filename_or_reference> parameter is a simple scalar, it is
+assumed to be a filename. This file will be opened for reading and the
+input data will be read from it.
+
+=item A filehandle
+
+If the C<$input_filename_or_reference> parameter is a filehandle, the input
+data will be read from it.  The string '-' can be used as an alias for
+standard input.
+
+=item A scalar reference 
+
+If C<$input_filename_or_reference> is a scalar reference, the input data
+will be read from C<$$input_filename_or_reference>.
+
+=item An array reference 
+
+If C<$input_filename_or_reference> is an array reference, each element in
+the array must be a filename.
+
+The input data will be read from each file in turn. 
+
+The complete array will be walked to ensure that it only
+contains valid filenames before any data is compressed.
+
+=item An Input FileGlob string
+
+If C<$input_filename_or_reference> is a string that is delimited by the
+characters "<" and ">" C<rawdeflate> will assume that it is an 
+I<input fileglob string>. The input is the list of files that match the 
+fileglob.
+
+See L<File::GlobMapper|File::GlobMapper> for more details.
+
+=back
+
+If the C<$input_filename_or_reference> parameter is any other type,
+C<undef> will be returned.
+
+=head3 The C<$output_filename_or_reference> parameter
+
+The parameter C<$output_filename_or_reference> is used to control the
+destination of the compressed data. This parameter can take one of
+these forms.
+
+=over 5
+
+=item A filename
+
+If the C<$output_filename_or_reference> parameter is a simple scalar, it is
+assumed to be a filename.  This file will be opened for writing and the 
+compressed data will be written to it.
+
+=item A filehandle
+
+If the C<$output_filename_or_reference> parameter is a filehandle, the
+compressed data will be written to it.  The string '-' can be used as
+an alias for standard output.
+
+=item A scalar reference 
+
+If C<$output_filename_or_reference> is a scalar reference, the
+compressed data will be stored in C<$$output_filename_or_reference>.
+
+=item An Array Reference
+
+If C<$output_filename_or_reference> is an array reference, 
+the compressed data will be pushed onto the array.
+
+=item An Output FileGlob
+
+If C<$output_filename_or_reference> is a string that is delimited by the
+characters "<" and ">" C<rawdeflate> will assume that it is an
+I<output fileglob string>. The output is the list of files that match the
+fileglob.
+
+When C<$output_filename_or_reference> is an fileglob string,
+C<$input_filename_or_reference> must also be a fileglob string. Anything
+else is an error.
+
+See L<File::GlobMapper|File::GlobMapper> for more details.
+
+=back
+
+If the C<$output_filename_or_reference> parameter is any other type,
+C<undef> will be returned.
+
+=head2 Notes
+
+When C<$input_filename_or_reference> maps to multiple files/buffers and
+C<$output_filename_or_reference> is a single
+file/buffer the input files/buffers will be stored
+in C<$output_filename_or_reference> as a concatenated series of compressed data streams.
+
+=head2 Optional Parameters
+
+Unless specified below, the optional parameters for C<rawdeflate>,
+C<OPTS>, are the same as those used with the OO interface defined in the
+L</"Constructor Options"> section below.
+
+=over 5
+
+=item C<< AutoClose => 0|1 >>
+
+This option applies to any input or output data streams to 
+C<rawdeflate> that are filehandles.
+
+If C<AutoClose> is specified, and the value is true, it will result in all
+input and/or output filehandles being closed once C<rawdeflate> has
+completed.
+
+This parameter defaults to 0.
+
+=item C<< BinModeIn => 0|1 >>
+
+When reading from a file or filehandle, set C<binmode> before reading.
+
+Defaults to 0.
+
+=item C<< Append => 0|1 >>
+
+The behaviour of this option is dependent on the type of output data
+stream.
+
+=over 5
+
+=item * A Buffer
+
+If C<Append> is enabled, all compressed data will be append to the end of
+the output buffer. Otherwise the output buffer will be cleared before any
+compressed data is written to it.
+
+=item * A Filename
+
+If C<Append> is enabled, the file will be opened in append mode. Otherwise
+the contents of the file, if any, will be truncated before any compressed
+data is written to it.
+
+=item * A Filehandle
+
+If C<Append> is enabled, the filehandle will be positioned to the end of
+the file via a call to C<seek> before any compressed data is
+written to it.  Otherwise the file pointer will not be moved.
+
+=back
+
+When C<Append> is specified, and set to true, it will I<append> all compressed 
+data to the output data stream.
+
+So when the output is a filehandle it will carry out a seek to the eof
+before writing any compressed data. If the output is a filename, it will be opened for
+appending. If the output is a buffer, all compressed data will be
+appended to the existing buffer.
+
+Conversely when C<Append> is not specified, or it is present and is set to
+false, it will operate as follows.
+
+When the output is a filename, it will truncate the contents of the file
+before writing any compressed data. If the output is a filehandle
+its position will not be changed. If the output is a buffer, it will be
+wiped before any compressed data is output.
+
+Defaults to 0.
+
+=back
+
+=head2 Examples
+
+To read the contents of the file C<file1.txt> and write the compressed
+data to the file C<file1.txt.1951>.
+
+    use strict ;
+    use warnings ;
+    use IO::Compress::RawDeflate qw(rawdeflate $RawDeflateError) ;
+
+    my $input = "file1.txt";
+    rawdeflate $input => "$input.1951"
+        or die "rawdeflate failed: $RawDeflateError\n";
+
+To read from an existing Perl filehandle, C<$input>, and write the
+compressed data to a buffer, C<$buffer>.
+
+    use strict ;
+    use warnings ;
+    use IO::Compress::RawDeflate qw(rawdeflate $RawDeflateError) ;
+    use IO::File ;
+
+    my $input = new IO::File "<file1.txt"
+        or die "Cannot open 'file1.txt': $!\n" ;
+    my $buffer ;
+    rawdeflate $input => \$buffer 
+        or die "rawdeflate failed: $RawDeflateError\n";
+
+To compress all files in the directory "/my/home" that match "*.txt"
+and store the compressed data in the same directory
+
+    use strict ;
+    use warnings ;
+    use IO::Compress::RawDeflate qw(rawdeflate $RawDeflateError) ;
+
+    rawdeflate '</my/home/*.txt>' => '<*.1951>'
+        or die "rawdeflate failed: $RawDeflateError\n";
+
+and if you want to compress each file one at a time, this will do the trick
+
+    use strict ;
+    use warnings ;
+    use IO::Compress::RawDeflate qw(rawdeflate $RawDeflateError) ;
+
+    for my $input ( glob "/my/home/*.txt" )
+    {
+        my $output = "$input.1951" ;
+        rawdeflate $input => $output 
+            or die "Error compressing '$input': $RawDeflateError\n";
+    }
+
+=head1 OO Interface
+
+=head2 Constructor
+
+The format of the constructor for C<IO::Compress::RawDeflate> is shown below
+
+    my $z = new IO::Compress::RawDeflate $output [,OPTS]
+        or die "IO::Compress::RawDeflate failed: $RawDeflateError\n";
+
+It returns an C<IO::Compress::RawDeflate> object on success and undef on failure. 
+The variable C<$RawDeflateError> will contain an error message on failure.
+
+If you are running Perl 5.005 or better the object, C<$z>, returned from 
+IO::Compress::RawDeflate can be used exactly like an L<IO::File|IO::File> filehandle. 
+This means that all normal output file operations can be carried out 
+with C<$z>. 
+For example, to write to a compressed file/buffer you can use either of 
+these forms
+
+    $z->print("hello world\n");
+    print $z "hello world\n";
+
+The mandatory parameter C<$output> is used to control the destination
+of the compressed data. This parameter can take one of these forms.
+
+=over 5
+
+=item A filename
+
+If the C<$output> parameter is a simple scalar, it is assumed to be a
+filename. This file will be opened for writing and the compressed data
+will be written to it.
+
+=item A filehandle
+
+If the C<$output> parameter is a filehandle, the compressed data will be
+written to it.
+The string '-' can be used as an alias for standard output.
+
+=item A scalar reference 
+
+If C<$output> is a scalar reference, the compressed data will be stored
+in C<$$output>.
+
+=back
+
+If the C<$output> parameter is any other type, C<IO::Compress::RawDeflate>::new will
+return undef.
+
+=head2 Constructor Options
+
+C<OPTS> is any combination of the following options:
+
+=over 5
+
+=item C<< AutoClose => 0|1 >>
+
+This option is only valid when the C<$output> parameter is a filehandle. If
+specified, and the value is true, it will result in the C<$output> being
+closed once either the C<close> method is called or the C<IO::Compress::RawDeflate>
+object is destroyed.
+
+This parameter defaults to 0.
+
+=item C<< Append => 0|1 >>
+
+Opens C<$output> in append mode. 
+
+The behaviour of this option is dependent on the type of C<$output>.
+
+=over 5
+
+=item * A Buffer
+
+If C<$output> is a buffer and C<Append> is enabled, all compressed data
+will be append to the end of C<$output>. Otherwise C<$output> will be
+cleared before any data is written to it.
+
+=item * A Filename
+
+If C<$output> is a filename and C<Append> is enabled, the file will be
+opened in append mode. Otherwise the contents of the file, if any, will be
+truncated before any compressed data is written to it.
+
+=item * A Filehandle
+
+If C<$output> is a filehandle, the file pointer will be positioned to the
+end of the file via a call to C<seek> before any compressed data is written
+to it.  Otherwise the file pointer will not be moved.
+
+=back
+
+This parameter defaults to 0.
+
+=item C<< Merge => 0|1 >>
+
+This option is used to compress input data and append it to an existing
+compressed data stream in C<$output>. The end result is a single compressed
+data stream stored in C<$output>. 
+
+It is a fatal error to attempt to use this option when C<$output> is not an
+RFC 1951 data stream.
+
+There are a number of other limitations with the C<Merge> option:
+
+=over 5 
+
+=item 1
+
+This module needs to have been built with zlib 1.2.1 or better to work. A
+fatal error will be thrown if C<Merge> is used with an older version of
+zlib.  
+
+=item 2
+
+If C<$output> is a file or a filehandle, it must be seekable.
+
+=back
+
+This parameter defaults to 0.
+
+=item -Level 
+
+Defines the compression level used by zlib. The value should either be
+a number between 0 and 9 (0 means no compression and 9 is maximum
+compression), or one of the symbolic constants defined below.
+
+   Z_NO_COMPRESSION
+   Z_BEST_SPEED
+   Z_BEST_COMPRESSION
+   Z_DEFAULT_COMPRESSION
+
+The default is Z_DEFAULT_COMPRESSION.
+
+Note, these constants are not imported by C<IO::Compress::RawDeflate> by default.
+
+    use IO::Compress::RawDeflate qw(:strategy);
+    use IO::Compress::RawDeflate qw(:constants);
+    use IO::Compress::RawDeflate qw(:all);
+
+=item -Strategy 
+
+Defines the strategy used to tune the compression. Use one of the symbolic
+constants defined below.
+
+   Z_FILTERED
+   Z_HUFFMAN_ONLY
+   Z_RLE
+   Z_FIXED
+   Z_DEFAULT_STRATEGY
+
+The default is Z_DEFAULT_STRATEGY.
+
+=item C<< Strict => 0|1 >>
+
+This is a placeholder option.
+
+=back
+
+=head2 Examples
+
+TODO
+
+=head1 Methods 
+
+=head2 print
+
+Usage is
+
+    $z->print($data)
+    print $z $data
+
+Compresses and outputs the contents of the C<$data> parameter. This
+has the same behaviour as the C<print> built-in.
+
+Returns true if successful.
+
+=head2 printf
+
+Usage is
+
+    $z->printf($format, $data)
+    printf $z $format, $data
+
+Compresses and outputs the contents of the C<$data> parameter.
+
+Returns true if successful.
+
+=head2 syswrite
+
+Usage is
+
+    $z->syswrite $data
+    $z->syswrite $data, $length
+    $z->syswrite $data, $length, $offset
+
+Compresses and outputs the contents of the C<$data> parameter.
+
+Returns the number of uncompressed bytes written, or C<undef> if
+unsuccessful.
+
+=head2 write
+
+Usage is
+
+    $z->write $data
+    $z->write $data, $length
+    $z->write $data, $length, $offset
+
+Compresses and outputs the contents of the C<$data> parameter.
+
+Returns the number of uncompressed bytes written, or C<undef> if
+unsuccessful.
+
+=head2 flush
+
+Usage is
+
+    $z->flush;
+    $z->flush($flush_type);
+
+Flushes any pending compressed data to the output file/buffer.
+
+This method takes an optional parameter, C<$flush_type>, that controls
+how the flushing will be carried out. By default the C<$flush_type>
+used is C<Z_FINISH>. Other valid values for C<$flush_type> are
+C<Z_NO_FLUSH>, C<Z_SYNC_FLUSH>, C<Z_FULL_FLUSH> and C<Z_BLOCK>. It is
+strongly recommended that you only set the C<flush_type> parameter if
+you fully understand the implications of what it does - overuse of C<flush>
+can seriously degrade the level of compression achieved. See the C<zlib>
+documentation for details.
+
+Returns true on success.
+
+=head2 tell
+
+Usage is
+
+    $z->tell()
+    tell $z
+
+Returns the uncompressed file offset.
+
+=head2 eof
+
+Usage is
+
+    $z->eof();
+    eof($z);
+
+Returns true if the C<close> method has been called.
+
+=head2 seek
+
+    $z->seek($position, $whence);
+    seek($z, $position, $whence);
+
+Provides a sub-set of the C<seek> functionality, with the restriction
+that it is only legal to seek forward in the output file/buffer.
+It is a fatal error to attempt to seek backward.
+
+Empty parts of the file/buffer will have NULL (0x00) bytes written to them.
+
+The C<$whence> parameter takes one the usual values, namely SEEK_SET,
+SEEK_CUR or SEEK_END.
+
+Returns 1 on success, 0 on failure.
+
+=head2 binmode
+
+Usage is
+
+    $z->binmode
+    binmode $z ;
+
+This is a noop provided for completeness.
+
+=head2 opened
+
+    $z->opened()
+
+Returns true if the object currently refers to a opened file/buffer. 
+
+=head2 autoflush
+
+    my $prev = $z->autoflush()
+    my $prev = $z->autoflush(EXPR)
+
+If the C<$z> object is associated with a file or a filehandle, this method
+returns the current autoflush setting for the underlying filehandle. If
+C<EXPR> is present, and is non-zero, it will enable flushing after every
+write/print operation.
+
+If C<$z> is associated with a buffer, this method has no effect and always
+returns C<undef>.
+
+B<Note> that the special variable C<$|> B<cannot> be used to set or
+retrieve the autoflush setting.
+
+=head2 input_line_number
+
+    $z->input_line_number()
+    $z->input_line_number(EXPR)
+
+This method always returns C<undef> when compressing. 
+
+=head2 fileno
+
+    $z->fileno()
+    fileno($z)
+
+If the C<$z> object is associated with a file or a filehandle, C<fileno>
+will return the underlying file descriptor. Once the C<close> method is
+called C<fileno> will return C<undef>.
+
+If the C<$z> object is associated with a buffer, this method will return
+C<undef>.
+
+=head2 close
+
+    $z->close() ;
+    close $z ;
+
+Flushes any pending compressed data and then closes the output file/buffer. 
+
+For most versions of Perl this method will be automatically invoked if
+the IO::Compress::RawDeflate object is destroyed (either explicitly or by the
+variable with the reference to the object going out of scope). The
+exceptions are Perl versions 5.005 through 5.00504 and 5.8.0. In
+these cases, the C<close> method will be called automatically, but
+not until global destruction of all live objects when the program is
+terminating.
+
+Therefore, if you want your scripts to be able to run on all versions
+of Perl, you should call C<close> explicitly and not rely on automatic
+closing.
+
+Returns true on success, otherwise 0.
+
+If the C<AutoClose> option has been enabled when the IO::Compress::RawDeflate
+object was created, and the object is associated with a file, the
+underlying file will also be closed.
+
+=head2 newStream([OPTS])
+
+Usage is
+
+    $z->newStream( [OPTS] )
+
+Closes the current compressed data stream and starts a new one.
+
+OPTS consists of any of the options that are available when creating
+the C<$z> object.
+
+See the L</"Constructor Options"> section for more details.
+
+=head2 deflateParams
+
+Usage is
+
+    $z->deflateParams
+
+TODO
+
+=head1 Importing 
+
+A number of symbolic constants are required by some methods in 
+C<IO::Compress::RawDeflate>. None are imported by default.
+
+=over 5
+
+=item :all
+
+Imports C<rawdeflate>, C<$RawDeflateError> and all symbolic
+constants that can be used by C<IO::Compress::RawDeflate>. Same as doing this
+
+    use IO::Compress::RawDeflate qw(rawdeflate $RawDeflateError :constants) ;
+
+=item :constants
+
+Import all symbolic constants. Same as doing this
+
+    use IO::Compress::RawDeflate qw(:flush :level :strategy) ;
+
+=item :flush
+
+These symbolic constants are used by the C<flush> method.
+
+    Z_NO_FLUSH
+    Z_PARTIAL_FLUSH
+    Z_SYNC_FLUSH
+    Z_FULL_FLUSH
+    Z_FINISH
+    Z_BLOCK
+
+=item :level
+
+These symbolic constants are used by the C<Level> option in the constructor.
+
+    Z_NO_COMPRESSION
+    Z_BEST_SPEED
+    Z_BEST_COMPRESSION
+    Z_DEFAULT_COMPRESSION
+
+=item :strategy
+
+These symbolic constants are used by the C<Strategy> option in the constructor.
+
+    Z_FILTERED
+    Z_HUFFMAN_ONLY
+    Z_RLE
+    Z_FIXED
+    Z_DEFAULT_STRATEGY
+
+    
+    
+
+=back
+
+=head1 EXAMPLES
+
+=head2 Apache::GZip Revisited
+
+See L<IO::Compress::FAQ|IO::Compress::FAQ/"Apache::GZip Revisited">
+
+=head2 Working with Net::FTP
+
+See L<IO::Compress::FAQ|IO::Compress::FAQ/"Compressed files and Net::FTP">
+
+=head1 SEE ALSO
+
+L<Compress::Zlib>, L<IO::Compress::Gzip>, L<IO::Uncompress::Gunzip>, L<IO::Compress::Deflate>, L<IO::Uncompress::Inflate>, L<IO::Uncompress::RawInflate>, L<IO::Compress::Bzip2>, L<IO::Uncompress::Bunzip2>, L<IO::Compress::Lzma>, L<IO::Uncompress::UnLzma>, L<IO::Compress::Xz>, L<IO::Uncompress::UnXz>, L<IO::Compress::Lzop>, L<IO::Uncompress::UnLzop>, L<IO::Compress::Lzf>, L<IO::Uncompress::UnLzf>, L<IO::Uncompress::AnyInflate>, L<IO::Uncompress::AnyUncompress>
+
+L<IO::Compress::FAQ|IO::Compress::FAQ>
+
+L<File::GlobMapper|File::GlobMapper>, L<Archive::Zip|Archive::Zip>,
+L<Archive::Tar|Archive::Tar>,
+L<IO::Zlib|IO::Zlib>
+
+For RFC 1950, 1951 and 1952 see 
+F<http://www.faqs.org/rfcs/rfc1950.html>,
+F<http://www.faqs.org/rfcs/rfc1951.html> and
+F<http://www.faqs.org/rfcs/rfc1952.html>
+
+The I<zlib> compression library was written by Jean-loup Gailly
+F<gzip@prep.ai.mit.edu> and Mark Adler F<madler@alumni.caltech.edu>.
+
+The primary site for the I<zlib> compression library is
+F<http://www.zlib.org>.
+
+The primary site for gzip is F<http://www.gzip.org>.
+
+=head1 AUTHOR
+
+This module was written by Paul Marquess, F<pmqs@cpan.org>. 
+
+=head1 MODIFICATION HISTORY
+
+See the Changes file.
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright (c) 2005-2015 Paul Marquess. All rights reserved.
+
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
diff --git a/lib/5.24.1/IO/Compress/Zip.pm b/lib/5.24.1/IO/Compress/Zip.pm
new file mode 100644
index 00000000..98e4f501
--- /dev/null
+++ b/lib/5.24.1/IO/Compress/Zip.pm
@@ -0,0 +1,1965 @@
+package IO::Compress::Zip ;
+
+use strict ;
+use warnings;
+use bytes;
+
+use IO::Compress::Base::Common  2.069 qw(:Status );
+use IO::Compress::RawDeflate 2.069 ();
+use IO::Compress::Adapter::Deflate 2.069 ;
+use IO::Compress::Adapter::Identity 2.069 ;
+use IO::Compress::Zlib::Extra 2.069 ;
+use IO::Compress::Zip::Constants 2.069 ;
+
+use File::Spec();
+use Config;
+
+use Compress::Raw::Zlib  2.069 (); 
+
+BEGIN
+{
+    eval { require IO::Compress::Adapter::Bzip2 ; 
+           import  IO::Compress::Adapter::Bzip2 2.069 ; 
+           require IO::Compress::Bzip2 ; 
+           import  IO::Compress::Bzip2 2.069 ; 
+         } ;
+         
+    eval { require IO::Compress::Adapter::Lzma ; 
+           import  IO::Compress::Adapter::Lzma 2.069 ; 
+           require IO::Compress::Lzma ; 
+           import  IO::Compress::Lzma 2.069 ; 
+         } ;
+}
+
+
+require Exporter ;
+
+our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, %DEFLATE_CONSTANTS, $ZipError);
+
+$VERSION = '2.069_001';
+$ZipError = '';
+
+@ISA = qw(Exporter IO::Compress::RawDeflate);
+@EXPORT_OK = qw( $ZipError zip ) ;
+%EXPORT_TAGS = %IO::Compress::RawDeflate::DEFLATE_CONSTANTS ;
+
+push @{ $EXPORT_TAGS{all} }, @EXPORT_OK ;
+
+$EXPORT_TAGS{zip_method} = [qw( ZIP_CM_STORE ZIP_CM_DEFLATE ZIP_CM_BZIP2 ZIP_CM_LZMA)];
+push @{ $EXPORT_TAGS{all} }, @{ $EXPORT_TAGS{zip_method} };
+
+Exporter::export_ok_tags('all');
+
+sub new
+{
+    my $class = shift ;
+
+    my $obj = IO::Compress::Base::Common::createSelfTiedObject($class, \$ZipError);    
+    $obj->_create(undef, @_);
+
+}
+
+sub zip
+{
+    my $obj = IO::Compress::Base::Common::createSelfTiedObject(undef, \$ZipError);    
+    return $obj->_def(@_);
+}
+
+sub isMethodAvailable
+{
+    my $method = shift;
+    
+    # Store & Deflate are always available
+    return 1
+        if $method == ZIP_CM_STORE || $method == ZIP_CM_DEFLATE ;
+        
+    return 1 
+        if $method == ZIP_CM_BZIP2 and 
+           defined $IO::Compress::Adapter::Bzip2::VERSION;
+           
+    return 1
+        if $method == ZIP_CM_LZMA and
+           defined $IO::Compress::Adapter::Lzma::VERSION;
+           
+    return 0;       
+}
+
+sub beforePayload
+{
+    my $self = shift ;
+
+    if (*$self->{ZipData}{Sparse} ) {
+        my $inc = 1024 * 100 ;
+        my $NULLS = ("\x00" x $inc) ;
+        my $sparse = *$self->{ZipData}{Sparse} ;
+        *$self->{CompSize}->add( $sparse );
+        *$self->{UnCompSize}->add( $sparse );
+        
+        *$self->{FH}->seek($sparse, IO::Handle::SEEK_CUR);
+        
+        *$self->{ZipData}{CRC32} = Compress::Raw::Zlib::crc32($NULLS, *$self->{ZipData}{CRC32})
+            for 1 .. int $sparse / $inc;
+        *$self->{ZipData}{CRC32} = Compress::Raw::Zlib::crc32(substr($NULLS, 0,  $sparse % $inc), 
+                                         *$self->{ZipData}{CRC32})
+            if $sparse % $inc;
+    }
+}
+
+sub mkComp
+{
+    my $self = shift ;
+    my $got = shift ;
+
+    my ($obj, $errstr, $errno) ;
+
+    if (*$self->{ZipData}{Method} == ZIP_CM_STORE) {
+        ($obj, $errstr, $errno) = IO::Compress::Adapter::Identity::mkCompObject(
+                                                 $got->getValue('level'),
+                                                 $got->getValue('strategy')
+                                                 );
+        *$self->{ZipData}{CRC32} = Compress::Raw::Zlib::crc32(undef);
+    }
+    elsif (*$self->{ZipData}{Method} == ZIP_CM_DEFLATE) {
+        ($obj, $errstr, $errno) = IO::Compress::Adapter::Deflate::mkCompObject(
+                                                 $got->getValue('crc32'),
+                                                 $got->getValue('adler32'),
+                                                 $got->getValue('level'),
+                                                 $got->getValue('strategy')
+                                                 );
+    }
+    elsif (*$self->{ZipData}{Method} == ZIP_CM_BZIP2) {
+        ($obj, $errstr, $errno) = IO::Compress::Adapter::Bzip2::mkCompObject(
+                                                $got->getValue('blocksize100k'),
+                                                $got->getValue('workfactor'),
+                                                $got->getValue('verbosity')
+                                               );
+        *$self->{ZipData}{CRC32} = Compress::Raw::Zlib::crc32(undef);
+    }
+    elsif (*$self->{ZipData}{Method} == ZIP_CM_LZMA) {
+        ($obj, $errstr, $errno) = IO::Compress::Adapter::Lzma::mkRawZipCompObject($got->getValue('preset'),
+                                                                                 $got->getValue('extreme'),
+                                                                                 );
+        *$self->{ZipData}{CRC32} = Compress::Raw::Zlib::crc32(undef);
+    }
+
+    return $self->saveErrorString(undef, $errstr, $errno)
+       if ! defined $obj;
+
+    if (! defined *$self->{ZipData}{SizesOffset}) {
+        *$self->{ZipData}{SizesOffset} = 0;
+        *$self->{ZipData}{Offset} = new U64 ;
+    }
+
+    *$self->{ZipData}{AnyZip64} = 0
+        if ! defined  *$self->{ZipData}{AnyZip64} ;
+
+    return $obj;    
+}
+
+sub reset
+{
+    my $self = shift ;
+
+    *$self->{Compress}->reset();
+    *$self->{ZipData}{CRC32} = Compress::Raw::Zlib::crc32('');
+
+    return STATUS_OK;    
+}
+
+sub filterUncompressed
+{
+    my $self = shift ;
+
+    if (*$self->{ZipData}{Method} == ZIP_CM_DEFLATE) {
+        *$self->{ZipData}{CRC32} = *$self->{Compress}->crc32();
+    }
+    else {
+        *$self->{ZipData}{CRC32} = Compress::Raw::Zlib::crc32(${$_[0]}, *$self->{ZipData}{CRC32});
+
+    }
+}
+
+sub canonicalName
+{
+    # This sub is derived from Archive::Zip::_asZipDirName
+
+    # Return the normalized name as used in a zip file (path
+    # separators become slashes, etc.).
+    # Will translate internal slashes in path components (i.e. on Macs) to
+    # underscores.  Discards volume names.
+    # When $forceDir is set, returns paths with trailing slashes 
+    #
+    # input         output
+    # .             '.'
+    # ./a           a
+    # ./a/b         a/b
+    # ./a/b/        a/b
+    # a/b/          a/b
+    # /a/b/         a/b
+    # c:\a\b\c.doc  a/b/c.doc      # on Windows
+    # "i/o maps:whatever"   i_o maps/whatever   # on Macs
+
+    my $name      = shift;
+    my $forceDir  = shift ;
+
+    my ( $volume, $directories, $file ) =
+      File::Spec->splitpath( File::Spec->canonpath($name), $forceDir );
+      
+    my @dirs = map { $_ =~ s{/}{_}g; $_ } 
+               File::Spec->splitdir($directories);
+
+    if ( @dirs > 0 ) { pop (@dirs) if $dirs[-1] eq '' }   # remove empty component
+    push @dirs, defined($file) ? $file : '' ;
+
+    my $normalised_path = join '/', @dirs;
+
+    # Leading directory separators should not be stored in zip archives.
+    # Example:
+    #   C:\a\b\c\      a/b/c
+    #   C:\a\b\c.txt   a/b/c.txt
+    #   /a/b/c/        a/b/c
+    #   /a/b/c.txt     a/b/c.txt
+    $normalised_path =~ s{^/}{};  # remove leading separator
+
+    return $normalised_path;
+}
+
+
+sub mkHeader
+{
+    my $self  = shift;
+    my $param = shift ;
+    
+    *$self->{ZipData}{LocalHdrOffset} = U64::clone(*$self->{ZipData}{Offset});
+        
+    my $comment = '';
+    $comment = $param->valueOrDefault('comment') ;
+
+    my $filename = '';
+    $filename = $param->valueOrDefault('name') ;
+
+    $filename = canonicalName($filename)
+        if length $filename && $param->getValue('canonicalname') ;
+
+    if (defined *$self->{ZipData}{FilterName} ) {
+        local *_ = \$filename ;
+        &{ *$self->{ZipData}{FilterName} }() ;
+    }
+
+#    if ( $param->getValue('utf8') ) {
+#        require Encode ;
+#        $filename = Encode::encode_utf8($filename)
+#            if length $filename ;
+#        $comment = Encode::encode_utf8($comment)
+#            if length $comment ;
+#    }
+
+    my $hdr = '';
+
+    my $time = _unixToDosTime($param->getValue('time'));
+
+    my $extra = '';
+    my $ctlExtra = '';
+    my $empty = 0;
+    my $osCode = $param->getValue('os_code') ;
+    my $extFileAttr = 0 ;
+    
+    # This code assumes Unix.
+    # TODO - revisit this
+    $extFileAttr = 0100644 << 16 
+        if $osCode == ZIP_OS_CODE_UNIX ;
+
+    if (*$self->{ZipData}{Zip64}) {
+        $empty = IO::Compress::Base::Common::MAX32;
+
+        my $x = '';
+        $x .= pack "V V", 0, 0 ; # uncompressedLength   
+        $x .= pack "V V", 0, 0 ; # compressedLength   
+        
+        # Zip64 needs to be first in extra field to workaround a Windows Explorer Bug
+        # See http://www.info-zip.org/phpBB3/viewtopic.php?f=3&t=440 for details
+        $extra .= IO::Compress::Zlib::Extra::mkSubField(ZIP_EXTRA_ID_ZIP64, $x);
+    }
+
+    if (! $param->getValue('minimal')) {
+        if ($param->parsed('mtime'))
+        {
+            $extra .= mkExtendedTime($param->getValue('mtime'), 
+                                    $param->getValue('atime'), 
+                                    $param->getValue('ctime'));
+
+            $ctlExtra .= mkExtendedTime($param->getValue('mtime'));
+        }
+
+        if ( $osCode == ZIP_OS_CODE_UNIX )
+        {
+            if ( $param->getValue('want_exunixn') )
+            {
+                    my $ux3 = mkUnixNExtra( @{ $param->getValue('want_exunixn') }); 
+                    $extra    .= $ux3;
+                    $ctlExtra .= $ux3;
+            }
+
+            if ( $param->getValue('exunix2') )
+            {
+                    $extra    .= mkUnix2Extra( @{ $param->getValue('exunix2') }); 
+                    $ctlExtra .= mkUnix2Extra();
+            }
+        }
+
+        $extFileAttr = $param->getValue('extattr') 
+            if defined $param->getValue('extattr') ;
+
+        $extra .= $param->getValue('extrafieldlocal') 
+            if defined $param->getValue('extrafieldlocal');
+
+        $ctlExtra .= $param->getValue('extrafieldcentral') 
+            if defined $param->getValue('extrafieldcentral');
+    }
+
+    my $method = *$self->{ZipData}{Method} ;
+    my $gpFlag = 0 ;    
+    $gpFlag |= ZIP_GP_FLAG_STREAMING_MASK
+        if *$self->{ZipData}{Stream} ;
+
+    $gpFlag |= ZIP_GP_FLAG_LZMA_EOS_PRESENT
+        if $method == ZIP_CM_LZMA ;
+
+#    $gpFlag |= ZIP_GP_FLAG_LANGUAGE_ENCODING
+#        if  $param->getValue('utf8') && (length($filename) || length($comment));
+
+    my $version = $ZIP_CM_MIN_VERSIONS{$method};
+    $version = ZIP64_MIN_VERSION
+        if ZIP64_MIN_VERSION > $version && *$self->{ZipData}{Zip64};
+
+    my $madeBy = ($param->getValue('os_code') << 8) + $version;
+    my $extract = $version;
+
+    *$self->{ZipData}{Version} = $version;
+    *$self->{ZipData}{MadeBy} = $madeBy;
+
+    my $ifa = 0;
+    $ifa |= ZIP_IFA_TEXT_MASK
+        if $param->getValue('textflag');
+
+    $hdr .= pack "V", ZIP_LOCAL_HDR_SIG ; # signature
+    $hdr .= pack 'v', $extract   ; # extract Version & OS
+    $hdr .= pack 'v', $gpFlag    ; # general purpose flag (set streaming mode)
+    $hdr .= pack 'v', $method    ; # compression method (deflate)
+    $hdr .= pack 'V', $time      ; # last mod date/time
+    $hdr .= pack 'V', 0          ; # crc32               - 0 when streaming
+    $hdr .= pack 'V', $empty     ; # compressed length   - 0 when streaming
+    $hdr .= pack 'V', $empty     ; # uncompressed length - 0 when streaming
+    $hdr .= pack 'v', length $filename ; # filename length
+    $hdr .= pack 'v', length $extra ; # extra length
+    
+    $hdr .= $filename ;
+
+    # Remember the offset for the compressed & uncompressed lengths in the
+    # local header.
+    if (*$self->{ZipData}{Zip64}) {
+        *$self->{ZipData}{SizesOffset} = *$self->{ZipData}{Offset}->get64bit()
+            + length($hdr) + 4 ;
+    }
+    else {
+        *$self->{ZipData}{SizesOffset} = *$self->{ZipData}{Offset}->get64bit()
+                                            + 18;
+    }
+
+    $hdr .= $extra ;
+
+
+    my $ctl = '';
+
+    $ctl .= pack "V", ZIP_CENTRAL_HDR_SIG ; # signature
+    $ctl .= pack 'v', $madeBy    ; # version made by
+    $ctl .= pack 'v', $extract   ; # extract Version
+    $ctl .= pack 'v', $gpFlag    ; # general purpose flag (streaming mode)
+    $ctl .= pack 'v', $method    ; # compression method (deflate)
+    $ctl .= pack 'V', $time      ; # last mod date/time
+    $ctl .= pack 'V', 0          ; # crc32
+    $ctl .= pack 'V', $empty     ; # compressed length
+    $ctl .= pack 'V', $empty     ; # uncompressed length
+    $ctl .= pack 'v', length $filename ; # filename length
+
+    *$self->{ZipData}{ExtraOffset} = length $ctl;
+    *$self->{ZipData}{ExtraSize} = length $ctlExtra ;
+
+    $ctl .= pack 'v', length $ctlExtra ; # extra length
+    $ctl .= pack 'v', length $comment ;  # file comment length
+    $ctl .= pack 'v', 0          ; # disk number start 
+    $ctl .= pack 'v', $ifa       ; # internal file attributes
+    $ctl .= pack 'V', $extFileAttr   ; # external file attributes
+
+    # offset to local hdr
+    if (*$self->{ZipData}{LocalHdrOffset}->is64bit() ) { 
+        $ctl .= pack 'V', IO::Compress::Base::Common::MAX32 ;
+    }
+    else {
+        $ctl .= *$self->{ZipData}{LocalHdrOffset}->getPacked_V32() ; 
+    }
+    
+    $ctl .= $filename ;
+
+    *$self->{ZipData}{Offset}->add32(length $hdr) ;
+
+    *$self->{ZipData}{CentralHeader} = [ $ctl, $ctlExtra, $comment];
+
+    return $hdr;
+}
+
+sub mkTrailer
+{
+    my $self = shift ;
+
+    my $crc32 ;
+    if (*$self->{ZipData}{Method} == ZIP_CM_DEFLATE) {
+        $crc32 = pack "V", *$self->{Compress}->crc32();
+    }
+    else {
+        $crc32 = pack "V", *$self->{ZipData}{CRC32};
+    }
+
+    my ($ctl, $ctlExtra, $comment) = @{ *$self->{ZipData}{CentralHeader} };   
+
+    my $sizes ;
+    if (! *$self->{ZipData}{Zip64}) {
+        $sizes .= *$self->{CompSize}->getPacked_V32() ;   # Compressed size
+        $sizes .= *$self->{UnCompSize}->getPacked_V32() ; # Uncompressed size
+    }
+    else {
+        $sizes .= *$self->{CompSize}->getPacked_V64() ;   # Compressed size
+        $sizes .= *$self->{UnCompSize}->getPacked_V64() ; # Uncompressed size
+    }
+
+    my $data = $crc32 . $sizes ;
+
+    my $xtrasize  = *$self->{UnCompSize}->getPacked_V64() ; # Uncompressed size
+       $xtrasize .= *$self->{CompSize}->getPacked_V64() ;   # Compressed size
+
+    my $hdr = '';
+
+    if (*$self->{ZipData}{Stream}) {
+        $hdr  = pack "V", ZIP_DATA_HDR_SIG ;                       # signature
+        $hdr .= $data ;
+    }
+    else {
+        $self->writeAt(*$self->{ZipData}{LocalHdrOffset}->get64bit() + 14,  $crc32)
+            or return undef;
+        $self->writeAt(*$self->{ZipData}{SizesOffset}, 
+                *$self->{ZipData}{Zip64} ? $xtrasize : $sizes)
+            or return undef;
+    }
+
+    # Central Header Record/Zip64 extended field
+
+    substr($ctl, 16, length $crc32) = $crc32 ;
+
+    my $zip64Payload = '';
+
+    # uncompressed length - only set zip64 if needed
+    if (*$self->{UnCompSize}->isAlmost64bit()) { #  || *$self->{ZipData}{Zip64}) {
+        $zip64Payload .= *$self->{UnCompSize}->getPacked_V64() ; 
+    } else {
+        substr($ctl, 24, 4) = *$self->{UnCompSize}->getPacked_V32() ;
+    }
+
+    # compressed length - only set zip64 if needed
+    if (*$self->{CompSize}->isAlmost64bit()) { # || *$self->{ZipData}{Zip64}) {
+        $zip64Payload .= *$self->{CompSize}->getPacked_V64() ; 
+    } else {
+        substr($ctl, 20, 4) = *$self->{CompSize}->getPacked_V32() ;
+    }
+
+    # Local Header offset
+    $zip64Payload .= *$self->{ZipData}{LocalHdrOffset}->getPacked_V64()
+        if *$self->{ZipData}{LocalHdrOffset}->is64bit() ; 
+
+    # disk no - always zero, so don't need to include it.
+    #$zip64Payload .= pack "V", 0    ; 
+
+    my $zip64Xtra = '';
+    
+    if (length $zip64Payload) {
+        $zip64Xtra = IO::Compress::Zlib::Extra::mkSubField(ZIP_EXTRA_ID_ZIP64, $zip64Payload);
+        
+        substr($ctl, *$self->{ZipData}{ExtraOffset}, 2) = 
+             pack 'v', *$self->{ZipData}{ExtraSize} + length $zip64Xtra;
+
+        *$self->{ZipData}{AnyZip64} = 1;
+    }
+
+    # Zip64 needs to be first in extra field to workaround a Windows Explorer Bug
+    # See http://www.info-zip.org/phpBB3/viewtopic.php?f=3&t=440 for details
+    $ctl .= $zip64Xtra . $ctlExtra . $comment;
+    
+    *$self->{ZipData}{Offset}->add32(length($hdr));
+    *$self->{ZipData}{Offset}->add( *$self->{CompSize} );
+    push @{ *$self->{ZipData}{CentralDir} }, $ctl ;
+
+    return $hdr;
+}
+
+sub mkFinalTrailer
+{
+    my $self = shift ;
+        
+    my $comment = '';
+    $comment = *$self->{ZipData}{ZipComment} ;
+
+    my $cd_offset = *$self->{ZipData}{Offset}->get32bit() ; # offset to start central dir
+
+    my $entries = @{ *$self->{ZipData}{CentralDir} };
+    
+    *$self->{ZipData}{AnyZip64} = 1 
+        if *$self->{ZipData}{Offset}->is64bit || $entries >= 0xFFFF ;      
+           
+    my $cd = join '', @{ *$self->{ZipData}{CentralDir} };
+    my $cd_len = length $cd ;
+
+    my $z64e = '';
+
+    if ( *$self->{ZipData}{AnyZip64} ) {
+
+        my $v  = *$self->{ZipData}{Version} ;
+        my $mb = *$self->{ZipData}{MadeBy} ;
+        $z64e .= pack 'v', $mb            ; # Version made by
+        $z64e .= pack 'v', $v             ; # Version to extract
+        $z64e .= pack 'V', 0              ; # number of disk
+        $z64e .= pack 'V', 0              ; # number of disk with central dir
+        $z64e .= U64::pack_V64 $entries   ; # entries in central dir on this disk
+        $z64e .= U64::pack_V64 $entries   ; # entries in central dir
+        $z64e .= U64::pack_V64 $cd_len    ; # size of central dir
+        $z64e .= *$self->{ZipData}{Offset}->getPacked_V64() ; # offset to start central dir
+
+        $z64e  = pack("V", ZIP64_END_CENTRAL_REC_HDR_SIG) # signature
+              .  U64::pack_V64(length $z64e)
+              .  $z64e ;
+
+        *$self->{ZipData}{Offset}->add32(length $cd) ; 
+
+        $z64e .= pack "V", ZIP64_END_CENTRAL_LOC_HDR_SIG; # signature
+        $z64e .= pack 'V', 0              ; # number of disk with central dir
+        $z64e .= *$self->{ZipData}{Offset}->getPacked_V64() ; # offset to end zip64 central dir
+        $z64e .= pack 'V', 1              ; # Total number of disks 
+
+        $cd_offset = IO::Compress::Base::Common::MAX32 ;
+        $cd_len = IO::Compress::Base::Common::MAX32 if IO::Compress::Base::Common::isGeMax32 $cd_len ;
+        $entries = 0xFFFF if $entries >= 0xFFFF ;
+    }
+
+    my $ecd = '';
+    $ecd .= pack "V", ZIP_END_CENTRAL_HDR_SIG ; # signature
+    $ecd .= pack 'v', 0          ; # number of disk
+    $ecd .= pack 'v', 0          ; # number of disk with central dir
+    $ecd .= pack 'v', $entries   ; # entries in central dir on this disk
+    $ecd .= pack 'v', $entries   ; # entries in central dir
+    $ecd .= pack 'V', $cd_len    ; # size of central dir
+    $ecd .= pack 'V', $cd_offset ; # offset to start central dir
+    $ecd .= pack 'v', length $comment ; # zipfile comment length
+    $ecd .= $comment;
+
+    return $cd . $z64e . $ecd ;
+}
+
+sub ckParams
+{
+    my $self = shift ;
+    my $got = shift;
+    
+    $got->setValue('crc32' => 1);
+
+    if (! $got->parsed('time') ) {
+        # Modification time defaults to now.
+        $got->setValue('time' => time) ;
+    }
+
+    if ($got->parsed('extime') ) {
+        my $timeRef = $got->getValue('extime');
+        if ( defined $timeRef) {
+            return $self->saveErrorString(undef, "exTime not a 3-element array ref")   
+                if ref $timeRef ne 'ARRAY' || @$timeRef != 3;
+        }
+
+        $got->setValue("mtime", $timeRef->[1]);
+        $got->setValue("atime", $timeRef->[0]);
+        $got->setValue("ctime", $timeRef->[2]);
+    }
+    
+    # Unix2/3 Extended Attribute
+    for my $name (qw(exunix2 exunixn))
+    {
+        if ($got->parsed($name) ) {
+            my $idRef = $got->getValue($name);
+            if ( defined $idRef) {
+                return $self->saveErrorString(undef, "$name not a 2-element array ref")   
+                    if ref $idRef ne 'ARRAY' || @$idRef != 2;
+            }
+
+            $got->setValue("uid", $idRef->[0]);
+            $got->setValue("gid", $idRef->[1]);
+            $got->setValue("want_$name", $idRef);
+        }
+    }
+
+    *$self->{ZipData}{AnyZip64} = 1
+        if $got->getValue('zip64');
+    *$self->{ZipData}{Zip64} = $got->getValue('zip64');
+    *$self->{ZipData}{Stream} = $got->getValue('stream');
+
+    my $method = $got->getValue('method');
+    return $self->saveErrorString(undef, "Unknown Method '$method'")   
+        if ! defined $ZIP_CM_MIN_VERSIONS{$method};
+
+    return $self->saveErrorString(undef, "Bzip2 not available")
+        if $method == ZIP_CM_BZIP2 and 
+           ! defined $IO::Compress::Adapter::Bzip2::VERSION;
+
+    return $self->saveErrorString(undef, "Lzma not available")
+        if $method == ZIP_CM_LZMA 
+        and ! defined $IO::Compress::Adapter::Lzma::VERSION;
+
+    *$self->{ZipData}{Method} = $method;
+
+    *$self->{ZipData}{ZipComment} = $got->getValue('zipcomment') ;
+
+    for my $name (qw( extrafieldlocal extrafieldcentral ))
+    {
+        my $data = $got->getValue($name) ;
+        if (defined $data) {
+            my $bad = IO::Compress::Zlib::Extra::parseExtraField($data, 1, 0) ;
+            return $self->saveErrorString(undef, "Error with $name Parameter: $bad")
+                if $bad ;
+
+            $got->setValue($name, $data) ;
+        }
+    }
+
+    return undef
+        if defined $IO::Compress::Bzip2::VERSION
+            and ! IO::Compress::Bzip2::ckParams($self, $got);
+
+    if ($got->parsed('sparse') ) {
+        *$self->{ZipData}{Sparse} = $got->getValue('sparse') ;
+        *$self->{ZipData}{Method} = ZIP_CM_STORE;
+    }
+
+    if ($got->parsed('filtername')) {
+        my $v = $got->getValue('filtername') ;
+        *$self->{ZipData}{FilterName} = $v
+            if ref $v eq 'CODE' ;
+    }
+
+    return 1 ;
+}
+
+sub outputPayload
+{
+    my $self = shift ;
+    return 1 if *$self->{ZipData}{Sparse} ;
+    return $self->output(@_);
+}
+
+
+#sub newHeader
+#{
+#    my $self = shift ;
+#
+#    return $self->mkHeader(*$self->{Got});
+#}
+
+
+our %PARAMS = (            
+            'stream'    => [IO::Compress::Base::Common::Parse_boolean,   1],
+           #'store'     => [IO::Compress::Base::Common::Parse_boolean,   0],
+            'method'    => [IO::Compress::Base::Common::Parse_unsigned,  ZIP_CM_DEFLATE],
+            
+#            # Zip header fields
+            'minimal'   => [IO::Compress::Base::Common::Parse_boolean,   0],
+            'zip64'     => [IO::Compress::Base::Common::Parse_boolean,   0],
+            'comment'   => [IO::Compress::Base::Common::Parse_any,       ''],
+            'zipcomment'=> [IO::Compress::Base::Common::Parse_any,       ''],
+            'name'      => [IO::Compress::Base::Common::Parse_any,       ''],
+            'filtername'=> [IO::Compress::Base::Common::Parse_code,      undef],
+            'canonicalname'=> [IO::Compress::Base::Common::Parse_boolean,   0],
+#            'utf8'      => [IO::Compress::Base::Common::Parse_boolean,   0],
+            'time'      => [IO::Compress::Base::Common::Parse_any,       undef],
+            'extime'    => [IO::Compress::Base::Common::Parse_any,       undef],
+            'exunix2'   => [IO::Compress::Base::Common::Parse_any,       undef], 
+            'exunixn'   => [IO::Compress::Base::Common::Parse_any,       undef], 
+            'extattr'   => [IO::Compress::Base::Common::Parse_any, 
+                    $Compress::Raw::Zlib::gzip_os_code == 3 
+                        ? 0100644 << 16 
+                        : 0],
+            'os_code'   => [IO::Compress::Base::Common::Parse_unsigned,  $Compress::Raw::Zlib::gzip_os_code],
+            
+            'textflag'  => [IO::Compress::Base::Common::Parse_boolean,   0],
+            'extrafieldlocal'  => [IO::Compress::Base::Common::Parse_any,    undef],
+            'extrafieldcentral'=> [IO::Compress::Base::Common::Parse_any,    undef],
+
+            # Lzma
+            'preset'   => [IO::Compress::Base::Common::Parse_unsigned, 6],
+            'extreme'  => [IO::Compress::Base::Common::Parse_boolean,  0],
+
+            # For internal use only         
+            'sparse'    => [IO::Compress::Base::Common::Parse_unsigned,  0],
+
+            IO::Compress::RawDeflate::getZlibParams(),
+            defined $IO::Compress::Bzip2::VERSION
+                ? IO::Compress::Bzip2::getExtraParams()
+                : ()
+                
+  
+                );
+
+sub getExtraParams
+{
+    return %PARAMS ;
+}
+
+sub getInverseClass
+{
+    return ('IO::Uncompress::Unzip',
+                \$IO::Uncompress::Unzip::UnzipError);
+}
+
+sub getFileInfo
+{
+    my $self = shift ;
+    my $params = shift;
+    my $filename = shift ;
+
+    if (IO::Compress::Base::Common::isaScalar($filename))
+    {
+        $params->setValue(zip64 => 1)
+            if IO::Compress::Base::Common::isGeMax32 length (${ $filename }) ;
+
+        return ;
+    }
+
+    my ($mode, $uid, $gid, $size, $atime, $mtime, $ctime) ;
+    if ( $params->parsed('storelinks') )
+    {
+        ($mode, $uid, $gid, $size, $atime, $mtime, $ctime) 
+                = (lstat($filename))[2, 4,5,7, 8,9,10] ;
+    }
+    else
+    {
+        ($mode, $uid, $gid, $size, $atime, $mtime, $ctime) 
+                = (stat($filename))[2, 4,5,7, 8,9,10] ;
+    }
+
+    $params->setValue(textflag => -T $filename )
+        if ! $params->parsed('textflag');
+
+    $params->setValue(zip64 => 1)
+        if IO::Compress::Base::Common::isGeMax32 $size ;
+
+    $params->setValue('name' => $filename)
+        if ! $params->parsed('name') ;
+
+    $params->setValue('time' => $mtime) 
+        if ! $params->parsed('time') ;
+    
+    if ( ! $params->parsed('extime'))
+    {
+        $params->setValue('mtime' => $mtime) ;
+        $params->setValue('atime' => $atime) ;
+        $params->setValue('ctime' => undef) ; # No Creation time
+        # TODO - see if can fillout creation time on non-Unix
+    }
+
+    # NOTE - Unix specific code alert
+    if (! $params->parsed('extattr'))
+    {
+        use Fcntl qw(:mode) ;
+        my $attr = $mode << 16;
+        $attr |= ZIP_A_RONLY if ($mode & S_IWRITE) == 0 ;
+        $attr |= ZIP_A_DIR   if ($mode & S_IFMT  ) == S_IFDIR ;
+        
+        $params->setValue('extattr' => $attr);
+    }
+
+    $params->setValue('want_exunixn', [$uid, $gid]);
+    $params->setValue('uid' => $uid) ;
+    $params->setValue('gid' => $gid) ;
+    
+}
+
+sub mkExtendedTime
+{
+    # order expected is m, a, c
+
+    my $times = '';
+    my $bit = 1 ;
+    my $flags = 0;
+
+    for my $time (@_)
+    {
+        if (defined $time)
+        {
+            $flags |= $bit;
+            $times .= pack("V", $time);
+        }
+
+        $bit <<= 1 ;
+    }
+
+    return IO::Compress::Zlib::Extra::mkSubField(ZIP_EXTRA_ID_EXT_TIMESTAMP,
+                                                 pack("C", $flags) .  $times);
+}
+
+sub mkUnix2Extra
+{
+    my $ids = '';
+    for my $id (@_)
+    {
+        $ids .= pack("v", $id);
+    }
+
+    return IO::Compress::Zlib::Extra::mkSubField(ZIP_EXTRA_ID_INFO_ZIP_UNIX2, 
+                                                 $ids);
+}
+
+sub mkUnixNExtra
+{
+    my $uid = shift;
+    my $gid = shift;
+
+    # Assumes UID/GID are 32-bit
+    my $ids ;
+    $ids .= pack "C", 1; # version
+    $ids .= pack "C", $Config{uidsize};
+    $ids .= pack "V", $uid;
+    $ids .= pack "C", $Config{gidsize};
+    $ids .= pack "V", $gid;
+
+    return IO::Compress::Zlib::Extra::mkSubField(ZIP_EXTRA_ID_INFO_ZIP_UNIXN, 
+                                                 $ids);
+}
+
+
+# from Archive::Zip
+sub _unixToDosTime    # Archive::Zip::Member
+{
+	my $time_t = shift;
+    
+    # TODO - add something to cope with unix time < 1980 
+	my ( $sec, $min, $hour, $mday, $mon, $year ) = localtime($time_t);
+	my $dt = 0;
+	$dt += ( $sec >> 1 );
+	$dt += ( $min << 5 );
+	$dt += ( $hour << 11 );
+	$dt += ( $mday << 16 );
+	$dt += ( ( $mon + 1 ) << 21 );
+	$dt += ( ( $year - 80 ) << 25 );
+	return $dt;
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+IO::Compress::Zip - Write zip files/buffers
+ 
+ 
+
+=head1 SYNOPSIS
+
+    use IO::Compress::Zip qw(zip $ZipError) ;
+
+    my $status = zip $input => $output [,OPTS] 
+        or die "zip failed: $ZipError\n";
+
+    my $z = new IO::Compress::Zip $output [,OPTS]
+        or die "zip failed: $ZipError\n";
+
+    $z->print($string);
+    $z->printf($format, $string);
+    $z->write($string);
+    $z->syswrite($string [, $length, $offset]);
+    $z->flush();
+    $z->tell();
+    $z->eof();
+    $z->seek($position, $whence);
+    $z->binmode();
+    $z->fileno();
+    $z->opened();
+    $z->autoflush();
+    $z->input_line_number();
+    $z->newStream( [OPTS] );
+    
+    $z->deflateParams();
+    
+    $z->close() ;
+
+    $ZipError ;
+
+    # IO::File mode
+
+    print $z $string;
+    printf $z $format, $string;
+    tell $z
+    eof $z
+    seek $z, $position, $whence
+    binmode $z
+    fileno $z
+    close $z ;
+    
+
+=head1 DESCRIPTION
+
+This module provides a Perl interface that allows writing zip 
+compressed data to files or buffer.
+
+The primary purpose of this module is to provide streaming write access to
+zip files and buffers. It is not a general-purpose file archiver. If that
+is what you want, check out C<Archive::Zip>.
+
+At present three compression methods are supported by IO::Compress::Zip,
+namely Store (no compression at all), Deflate, Bzip2 and LZMA.
+
+Note that to create Bzip2 content, the module C<IO::Compress::Bzip2> must
+be installed.
+
+Note that to create LZMA content, the module C<IO::Compress::Lzma> must
+be installed.
+
+For reading zip files/buffers, see the companion module 
+L<IO::Uncompress::Unzip|IO::Uncompress::Unzip>.
+
+=head1 Functional Interface
+
+A top-level function, C<zip>, is provided to carry out
+"one-shot" compression between buffers and/or files. For finer
+control over the compression process, see the L</"OO Interface">
+section.
+
+    use IO::Compress::Zip qw(zip $ZipError) ;
+
+    zip $input_filename_or_reference => $output_filename_or_reference [,OPTS] 
+        or die "zip failed: $ZipError\n";
+
+The functional interface needs Perl5.005 or better.
+
+=head2 zip $input_filename_or_reference => $output_filename_or_reference [, OPTS]
+
+C<zip> expects at least two parameters,
+C<$input_filename_or_reference> and C<$output_filename_or_reference>.
+
+=head3 The C<$input_filename_or_reference> parameter
+
+The parameter, C<$input_filename_or_reference>, is used to define the
+source of the uncompressed data. 
+
+It can take one of the following forms:
+
+=over 5
+
+=item A filename
+
+If the <$input_filename_or_reference> parameter is a simple scalar, it is
+assumed to be a filename. This file will be opened for reading and the
+input data will be read from it.
+
+=item A filehandle
+
+If the C<$input_filename_or_reference> parameter is a filehandle, the input
+data will be read from it.  The string '-' can be used as an alias for
+standard input.
+
+=item A scalar reference 
+
+If C<$input_filename_or_reference> is a scalar reference, the input data
+will be read from C<$$input_filename_or_reference>.
+
+=item An array reference 
+
+If C<$input_filename_or_reference> is an array reference, each element in
+the array must be a filename.
+
+The input data will be read from each file in turn. 
+
+The complete array will be walked to ensure that it only
+contains valid filenames before any data is compressed.
+
+=item An Input FileGlob string
+
+If C<$input_filename_or_reference> is a string that is delimited by the
+characters "<" and ">" C<zip> will assume that it is an 
+I<input fileglob string>. The input is the list of files that match the 
+fileglob.
+
+See L<File::GlobMapper|File::GlobMapper> for more details.
+
+=back
+
+If the C<$input_filename_or_reference> parameter is any other type,
+C<undef> will be returned.
+
+In addition, if C<$input_filename_or_reference> is a simple filename, 
+the default values for
+the C<Name>, C<Time>, C<TextFlag>, C<ExtAttr>, C<exUnixN> and C<exTime> options will be sourced from that file.
+
+If you do not want to use these defaults they can be overridden by
+explicitly setting the C<Name>, C<Time>, C<TextFlag>, C<ExtAttr>, C<exUnixN> and C<exTime> options or by setting the
+C<Minimal> parameter.
+
+=head3 The C<$output_filename_or_reference> parameter
+
+The parameter C<$output_filename_or_reference> is used to control the
+destination of the compressed data. This parameter can take one of
+these forms.
+
+=over 5
+
+=item A filename
+
+If the C<$output_filename_or_reference> parameter is a simple scalar, it is
+assumed to be a filename.  This file will be opened for writing and the 
+compressed data will be written to it.
+
+=item A filehandle
+
+If the C<$output_filename_or_reference> parameter is a filehandle, the
+compressed data will be written to it.  The string '-' can be used as
+an alias for standard output.
+
+=item A scalar reference 
+
+If C<$output_filename_or_reference> is a scalar reference, the
+compressed data will be stored in C<$$output_filename_or_reference>.
+
+=item An Array Reference
+
+If C<$output_filename_or_reference> is an array reference, 
+the compressed data will be pushed onto the array.
+
+=item An Output FileGlob
+
+If C<$output_filename_or_reference> is a string that is delimited by the
+characters "<" and ">" C<zip> will assume that it is an
+I<output fileglob string>. The output is the list of files that match the
+fileglob.
+
+When C<$output_filename_or_reference> is an fileglob string,
+C<$input_filename_or_reference> must also be a fileglob string. Anything
+else is an error.
+
+See L<File::GlobMapper|File::GlobMapper> for more details.
+
+=back
+
+If the C<$output_filename_or_reference> parameter is any other type,
+C<undef> will be returned.
+
+=head2 Notes
+
+When C<$input_filename_or_reference> maps to multiple files/buffers and
+C<$output_filename_or_reference> is a single
+file/buffer the input files/buffers will each be stored
+in C<$output_filename_or_reference> as a distinct entry.
+
+=head2 Optional Parameters
+
+Unless specified below, the optional parameters for C<zip>,
+C<OPTS>, are the same as those used with the OO interface defined in the
+L</"Constructor Options"> section below.
+
+=over 5
+
+=item C<< AutoClose => 0|1 >>
+
+This option applies to any input or output data streams to 
+C<zip> that are filehandles.
+
+If C<AutoClose> is specified, and the value is true, it will result in all
+input and/or output filehandles being closed once C<zip> has
+completed.
+
+This parameter defaults to 0.
+
+=item C<< BinModeIn => 0|1 >>
+
+When reading from a file or filehandle, set C<binmode> before reading.
+
+Defaults to 0.
+
+=item C<< Append => 0|1 >>
+
+The behaviour of this option is dependent on the type of output data
+stream.
+
+=over 5
+
+=item * A Buffer
+
+If C<Append> is enabled, all compressed data will be append to the end of
+the output buffer. Otherwise the output buffer will be cleared before any
+compressed data is written to it.
+
+=item * A Filename
+
+If C<Append> is enabled, the file will be opened in append mode. Otherwise
+the contents of the file, if any, will be truncated before any compressed
+data is written to it.
+
+=item * A Filehandle
+
+If C<Append> is enabled, the filehandle will be positioned to the end of
+the file via a call to C<seek> before any compressed data is
+written to it.  Otherwise the file pointer will not be moved.
+
+=back
+
+When C<Append> is specified, and set to true, it will I<append> all compressed 
+data to the output data stream.
+
+So when the output is a filehandle it will carry out a seek to the eof
+before writing any compressed data. If the output is a filename, it will be opened for
+appending. If the output is a buffer, all compressed data will be
+appended to the existing buffer.
+
+Conversely when C<Append> is not specified, or it is present and is set to
+false, it will operate as follows.
+
+When the output is a filename, it will truncate the contents of the file
+before writing any compressed data. If the output is a filehandle
+its position will not be changed. If the output is a buffer, it will be
+wiped before any compressed data is output.
+
+Defaults to 0.
+
+=back
+
+=head2 Examples
+
+To read the contents of the file C<file1.txt> and write the compressed
+data to the file C<file1.txt.zip>.
+
+    use strict ;
+    use warnings ;
+    use IO::Compress::Zip qw(zip $ZipError) ;
+
+    my $input = "file1.txt";
+    zip $input => "$input.zip"
+        or die "zip failed: $ZipError\n";
+
+To read from an existing Perl filehandle, C<$input>, and write the
+compressed data to a buffer, C<$buffer>.
+
+    use strict ;
+    use warnings ;
+    use IO::Compress::Zip qw(zip $ZipError) ;
+    use IO::File ;
+
+    my $input = new IO::File "<file1.txt"
+        or die "Cannot open 'file1.txt': $!\n" ;
+    my $buffer ;
+    zip $input => \$buffer 
+        or die "zip failed: $ZipError\n";
+
+To create a zip file, C<output.zip>, that contains the compressed contents
+of the files C<alpha.txt> and C<beta.txt>
+
+    use strict ;
+    use warnings ;
+    use IO::Compress::Zip qw(zip $ZipError) ;
+
+    zip [ 'alpha.txt', 'beta.txt' ] => 'output.zip'
+        or die "zip failed: $ZipError\n";
+
+Alternatively, rather than having to explicitly name each of the files that
+you want to compress, you could use a fileglob to select all the C<txt>
+files in the current directory, as follows
+
+    use strict ;
+    use warnings ;
+    use IO::Compress::Zip qw(zip $ZipError) ;
+
+    my @files = <*.txt>;
+    zip \@files => 'output.zip'
+        or die "zip failed: $ZipError\n";
+
+or more succinctly
+
+    zip [ <*.txt> ] => 'output.zip'
+        or die "zip failed: $ZipError\n";
+
+=head1 OO Interface
+
+=head2 Constructor
+
+The format of the constructor for C<IO::Compress::Zip> is shown below
+
+    my $z = new IO::Compress::Zip $output [,OPTS]
+        or die "IO::Compress::Zip failed: $ZipError\n";
+
+It returns an C<IO::Compress::Zip> object on success and undef on failure. 
+The variable C<$ZipError> will contain an error message on failure.
+
+If you are running Perl 5.005 or better the object, C<$z>, returned from 
+IO::Compress::Zip can be used exactly like an L<IO::File|IO::File> filehandle. 
+This means that all normal output file operations can be carried out 
+with C<$z>. 
+For example, to write to a compressed file/buffer you can use either of 
+these forms
+
+    $z->print("hello world\n");
+    print $z "hello world\n";
+
+The mandatory parameter C<$output> is used to control the destination
+of the compressed data. This parameter can take one of these forms.
+
+=over 5
+
+=item A filename
+
+If the C<$output> parameter is a simple scalar, it is assumed to be a
+filename. This file will be opened for writing and the compressed data
+will be written to it.
+
+=item A filehandle
+
+If the C<$output> parameter is a filehandle, the compressed data will be
+written to it.
+The string '-' can be used as an alias for standard output.
+
+=item A scalar reference 
+
+If C<$output> is a scalar reference, the compressed data will be stored
+in C<$$output>.
+
+=back
+
+If the C<$output> parameter is any other type, C<IO::Compress::Zip>::new will
+return undef.
+
+=head2 Constructor Options
+
+C<OPTS> is any combination of the following options:
+
+=over 5
+
+=item C<< AutoClose => 0|1 >>
+
+This option is only valid when the C<$output> parameter is a filehandle. If
+specified, and the value is true, it will result in the C<$output> being
+closed once either the C<close> method is called or the C<IO::Compress::Zip>
+object is destroyed.
+
+This parameter defaults to 0.
+
+=item C<< Append => 0|1 >>
+
+Opens C<$output> in append mode. 
+
+The behaviour of this option is dependent on the type of C<$output>.
+
+=over 5
+
+=item * A Buffer
+
+If C<$output> is a buffer and C<Append> is enabled, all compressed data
+will be append to the end of C<$output>. Otherwise C<$output> will be
+cleared before any data is written to it.
+
+=item * A Filename
+
+If C<$output> is a filename and C<Append> is enabled, the file will be
+opened in append mode. Otherwise the contents of the file, if any, will be
+truncated before any compressed data is written to it.
+
+=item * A Filehandle
+
+If C<$output> is a filehandle, the file pointer will be positioned to the
+end of the file via a call to C<seek> before any compressed data is written
+to it.  Otherwise the file pointer will not be moved.
+
+=back
+
+This parameter defaults to 0.
+
+=item C<< Name => $string >>
+
+Stores the contents of C<$string> in the zip filename header field. 
+
+If C<Name> is not specified and the C<$input> parameter is a filename, the
+value of C<$input> will be used for the zip filename header field.
+
+If C<Name> is not specified and the C<$input> parameter is not a filename,
+no zip filename field will be created.
+
+Note that both the C<CanonicalName> and C<FilterName> options
+can modify the value used for the zip filename header field.
+
+=item C<< CanonicalName => 0|1 >>
+
+This option controls whether the filename field in the zip header is
+I<normalized> into Unix format before being written to the zip file.
+
+It is recommended that you enable this option unless you really need
+to create a non-standard Zip file.
+
+This is what APPNOTE.TXT has to say on what should be stored in the zip
+filename header field.
+
+    The name of the file, with optional relative path.          
+    The path stored should not contain a drive or
+    device letter, or a leading slash.  All slashes
+    should be forward slashes '/' as opposed to
+    backwards slashes '\' for compatibility with Amiga
+    and UNIX file systems etc.
+
+This option defaults to B<false>.
+
+=item C<< FilterName => sub { ... }  >>
+
+This option allow the filename field in the zip header to be modified
+before it is written to the zip file.
+
+This option takes a parameter that must be a reference to a sub.  On entry
+to the sub the C<$_> variable will contain the name to be filtered. If no
+filename is available C<$_> will contain an empty string.
+
+The value of C<$_> when the sub returns will be  stored in the filename
+header field.
+
+Note that if C<CanonicalName> is enabled, a
+normalized filename will be passed to the sub.
+
+If you use C<FilterName> to modify the filename, it is your responsibility
+to keep the filename in Unix format.
+
+Although this option can be used with the OO interface, it is of most use
+with the one-shot interface. For example, the code below shows how
+C<FilterName> can be used to remove the path component from a series of
+filenames before they are stored in C<$zipfile>.
+
+    sub compressTxtFiles
+    {
+        my $zipfile = shift ;
+        my $dir     = shift ;
+
+        zip [ <$dir/*.txt> ] => $zipfile,
+            FilterName => sub { s[^$dir/][] } ;  
+    }    
+
+=item C<< Time => $number >>
+
+Sets the last modified time field in the zip header to $number.
+
+This field defaults to the time the C<IO::Compress::Zip> object was created
+if this option is not specified and the C<$input> parameter is not a
+filename.
+
+=item C<< ExtAttr => $attr >>
+
+This option controls the "external file attributes" field in the central
+header of the zip file. This is a 4 byte field.
+
+If you are running a Unix derivative this value defaults to 
+
+    0100644 << 16
+
+This should allow read/write access to any files that are extracted from
+the zip file/buffer`.
+
+For all other systems it defaults to 0.
+
+=item C<< exTime => [$atime, $mtime, $ctime] >>
+
+This option expects an array reference with exactly three elements:
+C<$atime>, C<mtime> and C<$ctime>. These correspond to the last access
+time, last modification time and creation time respectively.
+
+It uses these values to set the extended timestamp field (ID is "UT") in
+the local zip header using the three values, $atime, $mtime, $ctime. In
+addition it sets the extended timestamp field in the central zip header
+using C<$mtime>.
+
+If any of the three values is C<undef> that time value will not be used.
+So, for example, to set only the C<$mtime> you would use this
+
+    exTime => [undef, $mtime, undef]
+
+If the C<Minimal> option is set to true, this option will be ignored.
+
+By default no extended time field is created.
+
+=item C<< exUnix2 => [$uid, $gid] >>
+
+This option expects an array reference with exactly two elements: C<$uid>
+and C<$gid>. These values correspond to the numeric User ID (UID) and Group ID
+(GID) of the owner of the files respectively.
+
+When the C<exUnix2> option is present it will trigger the creation of a
+Unix2 extra field (ID is "Ux") in the local zip header. This will be populated
+with C<$uid> and C<$gid>. An empty Unix2 extra field will also
+be created in the central zip header. 
+
+Note - The UID & GID are stored as 16-bit
+integers in the "Ux" field. Use C<< exUnixN >> if your UID or GID are
+32-bit.
+
+If the C<Minimal> option is set to true, this option will be ignored.
+
+By default no Unix2 extra field is created.
+
+=item C<< exUnixN => [$uid, $gid] >>
+
+This option expects an array reference with exactly two elements: C<$uid>
+and C<$gid>. These values correspond to the numeric User ID (UID) and Group ID
+(GID) of the owner of the files respectively.
+
+When the C<exUnixN> option is present it will trigger the creation of a
+UnixN extra field (ID is "ux") in both the local and central zip headers. 
+This will be populated with C<$uid> and C<$gid>. 
+The UID & GID are stored as 32-bit integers.
+
+If the C<Minimal> option is set to true, this option will be ignored.
+
+By default no UnixN extra field is created.
+
+=item C<< Comment => $comment >>
+
+Stores the contents of C<$comment> in the Central File Header of
+the zip file.
+
+By default, no comment field is written to the zip file.
+
+=item C<< ZipComment => $comment >>
+
+Stores the contents of C<$comment> in the End of Central Directory record
+of the zip file.
+
+By default, no comment field is written to the zip file.
+
+=item C<< Method => $method >>
+
+Controls which compression method is used. At present four compression
+methods are supported, namely Store (no compression at all), Deflate, 
+Bzip2 and Lzma.
+
+The symbols, ZIP_CM_STORE, ZIP_CM_DEFLATE, ZIP_CM_BZIP2 and ZIP_CM_LZMA 
+are used to select the compression method.
+
+These constants are not imported by C<IO::Compress::Zip> by default.
+
+    use IO::Compress::Zip qw(:zip_method);
+    use IO::Compress::Zip qw(:constants);
+    use IO::Compress::Zip qw(:all);
+
+Note that to create Bzip2 content, the module C<IO::Compress::Bzip2> must
+be installed. A fatal error will be thrown if you attempt to create Bzip2
+content when C<IO::Compress::Bzip2> is not available.
+
+Note that to create Lzma content, the module C<IO::Compress::Lzma> must
+be installed. A fatal error will be thrown if you attempt to create Lzma
+content when C<IO::Compress::Lzma> is not available.
+
+The default method is ZIP_CM_DEFLATE.
+
+=item C<< Stream => 0|1 >>
+
+This option controls whether the zip file/buffer output is created in
+streaming mode.
+
+Note that when outputting to a file with streaming mode disabled (C<Stream>
+is 0), the output file must be seekable.
+
+The default is 1.
+
+=item C<< Zip64 => 0|1 >>
+
+Create a Zip64 zip file/buffer. This option is used if you want
+to store files larger than 4 Gig or store more than 64K files in a single
+zip archive.. 
+
+C<Zip64> will be automatically set, as needed, if working with the one-shot 
+interface when the input is either a filename or a scalar reference.
+
+If you intend to manipulate the Zip64 zip files created with this module
+using an external zip/unzip, make sure that it supports Zip64.  
+
+In particular, if you are using Info-Zip you need to have zip version 3.x
+or better to update a Zip64 archive and unzip version 6.x to read a zip64
+archive. 
+
+The default is 0.
+
+=item C<< TextFlag => 0|1 >>
+
+This parameter controls the setting of a bit in the zip central header. It
+is used to signal that the data stored in the zip file/buffer is probably
+text.
+
+In one-shot mode this flag will be set to true if the Perl C<-T> operator thinks
+the file contains text.
+
+The default is 0. 
+
+=item C<< ExtraFieldLocal => $data >>
+
+=item C<< ExtraFieldCentral => $data >>
+
+The C<ExtraFieldLocal> option is used to store additional metadata in the
+local header for the zip file/buffer. The C<ExtraFieldCentral> does the
+same for the matching central header.
+
+An extra field consists of zero or more subfields. Each subfield consists
+of a two byte header followed by the subfield data.
+
+The list of subfields can be supplied in any of the following formats
+
+    ExtraFieldLocal => [$id1, $data1,
+                        $id2, $data2,
+                         ...
+                       ]
+
+    ExtraFieldLocal => [ [$id1 => $data1],
+                         [$id2 => $data2],
+                         ...
+                       ]
+
+    ExtraFieldLocal => { $id1 => $data1,
+                         $id2 => $data2,
+                         ...
+                       }
+
+Where C<$id1>, C<$id2> are two byte subfield ID's. 
+
+If you use the hash syntax, you have no control over the order in which
+the ExtraSubFields are stored, plus you cannot have SubFields with
+duplicate ID.
+
+Alternatively the list of subfields can by supplied as a scalar, thus
+
+    ExtraField => $rawdata
+
+In this case C<IO::Compress::Zip> will check that C<$rawdata> consists of 
+zero or more conformant sub-fields. 
+
+The Extended Time field (ID "UT"), set using the C<exTime> option, and the
+Unix2 extra field (ID "Ux), set using the C<exUnix2> option, are examples
+of extra fields.
+
+If the C<Minimal> option is set to true, this option will be ignored.
+
+The maximum size of an extra field 65535 bytes.
+
+=item C<< Minimal => 1|0 >>
+
+If specified, this option will disable the creation of all extra fields
+in the zip local and central headers. So the C<exTime>, C<exUnix2>,
+C<exUnixN>, C<ExtraFieldLocal> and C<ExtraFieldCentral> options will 
+be ignored.
+
+This parameter defaults to 0.
+
+=item C<< BlockSize100K => number >>
+
+Specify the number of 100K blocks bzip2 uses during compression. 
+
+Valid values are from 1 to 9, where 9 is best compression.
+
+This option is only valid if the C<Method> is ZIP_CM_BZIP2. It is ignored
+otherwise.
+
+The default is 1.
+
+=item C<< WorkFactor => number >>
+
+Specifies how much effort bzip2 should take before resorting to a slower
+fallback compression algorithm.
+
+Valid values range from 0 to 250, where 0 means use the default value 30.
+
+This option is only valid if the C<Method> is ZIP_CM_BZIP2. It is ignored
+otherwise.
+
+The default is 0.
+
+=item C<< Preset => number >>
+
+Used to choose the LZMA compression preset.
+
+Valid values are 0-9 and C<LZMA_PRESET_DEFAULT>.
+
+0 is the fastest compression with the lowest memory usage and the lowest
+compression.
+
+9 is the slowest compression with the highest memory usage but with the best
+compression.
+
+This option is only valid if the C<Method> is ZIP_CM_LZMA. It is ignored
+otherwise.
+
+Defaults to C<LZMA_PRESET_DEFAULT> (6).
+
+=item C<< Extreme => 0|1 >>
+
+Makes LZMA compression a lot slower, but a small compression gain.
+
+This option is only valid if the C<Method> is ZIP_CM_LZMA. It is ignored
+otherwise.
+
+Defaults to 0.
+
+=item -Level 
+
+Defines the compression level used by zlib. The value should either be
+a number between 0 and 9 (0 means no compression and 9 is maximum
+compression), or one of the symbolic constants defined below.
+
+   Z_NO_COMPRESSION
+   Z_BEST_SPEED
+   Z_BEST_COMPRESSION
+   Z_DEFAULT_COMPRESSION
+
+The default is Z_DEFAULT_COMPRESSION.
+
+Note, these constants are not imported by C<IO::Compress::Zip> by default.
+
+    use IO::Compress::Zip qw(:strategy);
+    use IO::Compress::Zip qw(:constants);
+    use IO::Compress::Zip qw(:all);
+
+=item -Strategy 
+
+Defines the strategy used to tune the compression. Use one of the symbolic
+constants defined below.
+
+   Z_FILTERED
+   Z_HUFFMAN_ONLY
+   Z_RLE
+   Z_FIXED
+   Z_DEFAULT_STRATEGY
+
+The default is Z_DEFAULT_STRATEGY.
+
+=item C<< Strict => 0|1 >>
+
+This is a placeholder option.
+
+=back
+
+=head2 Examples
+
+TODO
+
+=head1 Methods 
+
+=head2 print
+
+Usage is
+
+    $z->print($data)
+    print $z $data
+
+Compresses and outputs the contents of the C<$data> parameter. This
+has the same behaviour as the C<print> built-in.
+
+Returns true if successful.
+
+=head2 printf
+
+Usage is
+
+    $z->printf($format, $data)
+    printf $z $format, $data
+
+Compresses and outputs the contents of the C<$data> parameter.
+
+Returns true if successful.
+
+=head2 syswrite
+
+Usage is
+
+    $z->syswrite $data
+    $z->syswrite $data, $length
+    $z->syswrite $data, $length, $offset
+
+Compresses and outputs the contents of the C<$data> parameter.
+
+Returns the number of uncompressed bytes written, or C<undef> if
+unsuccessful.
+
+=head2 write
+
+Usage is
+
+    $z->write $data
+    $z->write $data, $length
+    $z->write $data, $length, $offset
+
+Compresses and outputs the contents of the C<$data> parameter.
+
+Returns the number of uncompressed bytes written, or C<undef> if
+unsuccessful.
+
+=head2 flush
+
+Usage is
+
+    $z->flush;
+    $z->flush($flush_type);
+
+Flushes any pending compressed data to the output file/buffer.
+
+This method takes an optional parameter, C<$flush_type>, that controls
+how the flushing will be carried out. By default the C<$flush_type>
+used is C<Z_FINISH>. Other valid values for C<$flush_type> are
+C<Z_NO_FLUSH>, C<Z_SYNC_FLUSH>, C<Z_FULL_FLUSH> and C<Z_BLOCK>. It is
+strongly recommended that you only set the C<flush_type> parameter if
+you fully understand the implications of what it does - overuse of C<flush>
+can seriously degrade the level of compression achieved. See the C<zlib>
+documentation for details.
+
+Returns true on success.
+
+=head2 tell
+
+Usage is
+
+    $z->tell()
+    tell $z
+
+Returns the uncompressed file offset.
+
+=head2 eof
+
+Usage is
+
+    $z->eof();
+    eof($z);
+
+Returns true if the C<close> method has been called.
+
+=head2 seek
+
+    $z->seek($position, $whence);
+    seek($z, $position, $whence);
+
+Provides a sub-set of the C<seek> functionality, with the restriction
+that it is only legal to seek forward in the output file/buffer.
+It is a fatal error to attempt to seek backward.
+
+Empty parts of the file/buffer will have NULL (0x00) bytes written to them.
+
+The C<$whence> parameter takes one the usual values, namely SEEK_SET,
+SEEK_CUR or SEEK_END.
+
+Returns 1 on success, 0 on failure.
+
+=head2 binmode
+
+Usage is
+
+    $z->binmode
+    binmode $z ;
+
+This is a noop provided for completeness.
+
+=head2 opened
+
+    $z->opened()
+
+Returns true if the object currently refers to a opened file/buffer. 
+
+=head2 autoflush
+
+    my $prev = $z->autoflush()
+    my $prev = $z->autoflush(EXPR)
+
+If the C<$z> object is associated with a file or a filehandle, this method
+returns the current autoflush setting for the underlying filehandle. If
+C<EXPR> is present, and is non-zero, it will enable flushing after every
+write/print operation.
+
+If C<$z> is associated with a buffer, this method has no effect and always
+returns C<undef>.
+
+B<Note> that the special variable C<$|> B<cannot> be used to set or
+retrieve the autoflush setting.
+
+=head2 input_line_number
+
+    $z->input_line_number()
+    $z->input_line_number(EXPR)
+
+This method always returns C<undef> when compressing. 
+
+=head2 fileno
+
+    $z->fileno()
+    fileno($z)
+
+If the C<$z> object is associated with a file or a filehandle, C<fileno>
+will return the underlying file descriptor. Once the C<close> method is
+called C<fileno> will return C<undef>.
+
+If the C<$z> object is associated with a buffer, this method will return
+C<undef>.
+
+=head2 close
+
+    $z->close() ;
+    close $z ;
+
+Flushes any pending compressed data and then closes the output file/buffer. 
+
+For most versions of Perl this method will be automatically invoked if
+the IO::Compress::Zip object is destroyed (either explicitly or by the
+variable with the reference to the object going out of scope). The
+exceptions are Perl versions 5.005 through 5.00504 and 5.8.0. In
+these cases, the C<close> method will be called automatically, but
+not until global destruction of all live objects when the program is
+terminating.
+
+Therefore, if you want your scripts to be able to run on all versions
+of Perl, you should call C<close> explicitly and not rely on automatic
+closing.
+
+Returns true on success, otherwise 0.
+
+If the C<AutoClose> option has been enabled when the IO::Compress::Zip
+object was created, and the object is associated with a file, the
+underlying file will also be closed.
+
+=head2 newStream([OPTS])
+
+Usage is
+
+    $z->newStream( [OPTS] )
+
+Closes the current compressed data stream and starts a new one.
+
+OPTS consists of any of the options that are available when creating
+the C<$z> object.
+
+See the L</"Constructor Options"> section for more details.
+
+=head2 deflateParams
+
+Usage is
+
+    $z->deflateParams
+
+TODO
+
+=head1 Importing 
+
+A number of symbolic constants are required by some methods in 
+C<IO::Compress::Zip>. None are imported by default.
+
+=over 5
+
+=item :all
+
+Imports C<zip>, C<$ZipError> and all symbolic
+constants that can be used by C<IO::Compress::Zip>. Same as doing this
+
+    use IO::Compress::Zip qw(zip $ZipError :constants) ;
+
+=item :constants
+
+Import all symbolic constants. Same as doing this
+
+    use IO::Compress::Zip qw(:flush :level :strategy :zip_method) ;
+
+=item :flush
+
+These symbolic constants are used by the C<flush> method.
+
+    Z_NO_FLUSH
+    Z_PARTIAL_FLUSH
+    Z_SYNC_FLUSH
+    Z_FULL_FLUSH
+    Z_FINISH
+    Z_BLOCK
+
+=item :level
+
+These symbolic constants are used by the C<Level> option in the constructor.
+
+    Z_NO_COMPRESSION
+    Z_BEST_SPEED
+    Z_BEST_COMPRESSION
+    Z_DEFAULT_COMPRESSION
+
+=item :strategy
+
+These symbolic constants are used by the C<Strategy> option in the constructor.
+
+    Z_FILTERED
+    Z_HUFFMAN_ONLY
+    Z_RLE
+    Z_FIXED
+    Z_DEFAULT_STRATEGY
+
+=item :zip_method
+
+These symbolic constants are used by the C<Method> option in the
+constructor.
+
+    ZIP_CM_STORE
+    ZIP_CM_DEFLATE
+    ZIP_CM_BZIP2
+
+    
+    
+
+=back
+
+=head1 EXAMPLES
+
+=head2 Apache::GZip Revisited
+
+See L<IO::Compress::FAQ|IO::Compress::FAQ/"Apache::GZip Revisited">
+
+=head2 Working with Net::FTP
+
+See L<IO::Compress::FAQ|IO::Compress::FAQ/"Compressed files and Net::FTP">
+
+=head1 SEE ALSO
+
+L<Compress::Zlib>, L<IO::Compress::Gzip>, L<IO::Uncompress::Gunzip>, L<IO::Compress::Deflate>, L<IO::Uncompress::Inflate>, L<IO::Compress::RawDeflate>, L<IO::Uncompress::RawInflate>, L<IO::Compress::Bzip2>, L<IO::Uncompress::Bunzip2>, L<IO::Compress::Lzma>, L<IO::Uncompress::UnLzma>, L<IO::Compress::Xz>, L<IO::Uncompress::UnXz>, L<IO::Compress::Lzop>, L<IO::Uncompress::UnLzop>, L<IO::Compress::Lzf>, L<IO::Uncompress::UnLzf>, L<IO::Uncompress::AnyInflate>, L<IO::Uncompress::AnyUncompress>
+
+L<IO::Compress::FAQ|IO::Compress::FAQ>
+
+L<File::GlobMapper|File::GlobMapper>, L<Archive::Zip|Archive::Zip>,
+L<Archive::Tar|Archive::Tar>,
+L<IO::Zlib|IO::Zlib>
+
+For RFC 1950, 1951 and 1952 see 
+F<http://www.faqs.org/rfcs/rfc1950.html>,
+F<http://www.faqs.org/rfcs/rfc1951.html> and
+F<http://www.faqs.org/rfcs/rfc1952.html>
+
+The I<zlib> compression library was written by Jean-loup Gailly
+F<gzip@prep.ai.mit.edu> and Mark Adler F<madler@alumni.caltech.edu>.
+
+The primary site for the I<zlib> compression library is
+F<http://www.zlib.org>.
+
+The primary site for gzip is F<http://www.gzip.org>.
+
+=head1 AUTHOR
+
+This module was written by Paul Marquess, F<pmqs@cpan.org>. 
+
+=head1 MODIFICATION HISTORY
+
+See the Changes file.
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright (c) 2005-2015 Paul Marquess. All rights reserved.
+
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
diff --git a/lib/5.24.1/IO/Compress/Zip/Constants.pm b/lib/5.24.1/IO/Compress/Zip/Constants.pm
new file mode 100644
index 00000000..d72d0dc6
--- /dev/null
+++ b/lib/5.24.1/IO/Compress/Zip/Constants.pm
@@ -0,0 +1,125 @@
+package IO::Compress::Zip::Constants;
+
+use strict ;
+use warnings;
+
+require Exporter;
+
+our ($VERSION, @ISA, @EXPORT, %ZIP_CM_MIN_VERSIONS);
+
+$VERSION = '2.069_001';
+
+@ISA = qw(Exporter);
+
+@EXPORT= qw(
+
+    ZIP_CM_STORE
+    ZIP_CM_DEFLATE
+    ZIP_CM_BZIP2
+    ZIP_CM_LZMA
+    ZIP_CM_PPMD
+    
+    ZIP_LOCAL_HDR_SIG
+    ZIP_DATA_HDR_SIG
+    ZIP_CENTRAL_HDR_SIG
+    ZIP_END_CENTRAL_HDR_SIG
+    ZIP64_END_CENTRAL_REC_HDR_SIG
+    ZIP64_END_CENTRAL_LOC_HDR_SIG
+    ZIP64_ARCHIVE_EXTRA_SIG
+    ZIP64_DIGITAL_SIGNATURE_SIG
+
+    ZIP_GP_FLAG_ENCRYPTED_MASK
+    ZIP_GP_FLAG_STREAMING_MASK
+    ZIP_GP_FLAG_PATCHED_MASK
+    ZIP_GP_FLAG_STRONG_ENCRYPTED_MASK
+    ZIP_GP_FLAG_LZMA_EOS_PRESENT
+    ZIP_GP_FLAG_LANGUAGE_ENCODING
+
+    ZIP_EXTRA_ID_ZIP64
+    ZIP_EXTRA_ID_EXT_TIMESTAMP
+    ZIP_EXTRA_ID_INFO_ZIP_UNIX2
+    ZIP_EXTRA_ID_INFO_ZIP_UNIXN
+    ZIP_EXTRA_ID_INFO_ZIP_Upath
+    ZIP_EXTRA_ID_INFO_ZIP_Ucom        
+    ZIP_EXTRA_ID_JAVA_EXE
+
+    ZIP_OS_CODE_UNIX
+    ZIP_OS_CODE_DEFAULT
+
+    ZIP_IFA_TEXT_MASK
+
+    %ZIP_CM_MIN_VERSIONS
+    ZIP64_MIN_VERSION
+
+    ZIP_A_RONLY
+    ZIP_A_HIDDEN
+    ZIP_A_SYSTEM
+    ZIP_A_LABEL
+    ZIP_A_DIR 
+    ZIP_A_ARCHIVE
+    );
+
+# Compression types supported
+use constant ZIP_CM_STORE                      => 0 ;
+use constant ZIP_CM_DEFLATE                    => 8 ;
+use constant ZIP_CM_BZIP2                      => 12 ;
+use constant ZIP_CM_LZMA                       => 14 ; # Not Supported yet
+use constant ZIP_CM_PPMD                       => 98 ; # Not Supported yet
+
+# General Purpose Flag
+use constant ZIP_GP_FLAG_ENCRYPTED_MASK        => (1 << 0) ;
+use constant ZIP_GP_FLAG_STREAMING_MASK        => (1 << 3) ;
+use constant ZIP_GP_FLAG_PATCHED_MASK          => (1 << 5) ;
+use constant ZIP_GP_FLAG_STRONG_ENCRYPTED_MASK => (1 << 6) ;
+use constant ZIP_GP_FLAG_LZMA_EOS_PRESENT      => (1 << 1) ;
+use constant ZIP_GP_FLAG_LANGUAGE_ENCODING     => (1 << 11) ;
+
+# Internal File Attributes
+use constant ZIP_IFA_TEXT_MASK                 => 1;
+
+# Signatures for each of the headers
+use constant ZIP_LOCAL_HDR_SIG                 => 0x04034b50;
+use constant ZIP_DATA_HDR_SIG                  => 0x08074b50;
+use constant packed_ZIP_DATA_HDR_SIG           => pack "V", ZIP_DATA_HDR_SIG;
+use constant ZIP_CENTRAL_HDR_SIG               => 0x02014b50;
+use constant ZIP_END_CENTRAL_HDR_SIG           => 0x06054b50;
+use constant ZIP64_END_CENTRAL_REC_HDR_SIG     => 0x06064b50;
+use constant ZIP64_END_CENTRAL_LOC_HDR_SIG     => 0x07064b50;
+use constant ZIP64_ARCHIVE_EXTRA_SIG           => 0x08064b50;
+use constant ZIP64_DIGITAL_SIGNATURE_SIG       => 0x05054b50;
+
+use constant ZIP_OS_CODE_UNIX                  => 3;
+use constant ZIP_OS_CODE_DEFAULT               => 3;
+
+# Extra Field ID's
+use constant ZIP_EXTRA_ID_ZIP64                => pack "v", 1;
+use constant ZIP_EXTRA_ID_EXT_TIMESTAMP        => "UT";
+use constant ZIP_EXTRA_ID_INFO_ZIP_UNIX2       => "Ux";
+use constant ZIP_EXTRA_ID_INFO_ZIP_UNIXN       => "ux";
+use constant ZIP_EXTRA_ID_INFO_ZIP_Upath       => "up";
+use constant ZIP_EXTRA_ID_INFO_ZIP_Ucom        => "uc";
+use constant ZIP_EXTRA_ID_JAVA_EXE             => pack "v", 0xCAFE;
+
+# DOS Attributes
+use constant ZIP_A_RONLY                       => 0x01;
+use constant ZIP_A_HIDDEN                      => 0x02;
+use constant ZIP_A_SYSTEM                      => 0x04;
+use constant ZIP_A_LABEL                       => 0x08;
+use constant ZIP_A_DIR                         => 0x10;
+use constant ZIP_A_ARCHIVE                     => 0x20;
+
+use constant ZIP64_MIN_VERSION                 => 45;
+
+%ZIP_CM_MIN_VERSIONS = (
+            ZIP_CM_STORE()                     => 20,
+            ZIP_CM_DEFLATE()                   => 20,
+            ZIP_CM_BZIP2()                     => 46,
+            ZIP_CM_LZMA()                      => 63,
+            ZIP_CM_PPMD()                      => 63,
+            );
+
+
+1;
+
+__END__
+
diff --git a/lib/5.24.1/IO/Compress/Zlib/Constants.pm b/lib/5.24.1/IO/Compress/Zlib/Constants.pm
new file mode 100644
index 00000000..70f2db19
--- /dev/null
+++ b/lib/5.24.1/IO/Compress/Zlib/Constants.pm
@@ -0,0 +1,77 @@
+
+package IO::Compress::Zlib::Constants ;
+
+use strict ;
+use warnings;
+use bytes;
+
+require Exporter;
+
+our ($VERSION, @ISA, @EXPORT);
+
+$VERSION = '2.069_001';
+
+@ISA = qw(Exporter);
+
+@EXPORT= qw(
+
+        ZLIB_HEADER_SIZE
+        ZLIB_TRAILER_SIZE
+
+        ZLIB_CMF_CM_OFFSET
+        ZLIB_CMF_CM_BITS
+        ZLIB_CMF_CM_DEFLATED
+
+        ZLIB_CMF_CINFO_OFFSET
+        ZLIB_CMF_CINFO_BITS 
+        ZLIB_CMF_CINFO_MAX
+
+        ZLIB_FLG_FCHECK_OFFSET
+        ZLIB_FLG_FCHECK_BITS
+
+        ZLIB_FLG_FDICT_OFFSET
+        ZLIB_FLG_FDICT_BITS
+
+        ZLIB_FLG_LEVEL_OFFSET
+        ZLIB_FLG_LEVEL_BITS
+
+        ZLIB_FLG_LEVEL_FASTEST
+        ZLIB_FLG_LEVEL_FAST
+        ZLIB_FLG_LEVEL_DEFAULT
+        ZLIB_FLG_LEVEL_SLOWEST
+
+        ZLIB_FDICT_SIZE
+
+        );
+
+# Constant names derived from RFC1950
+
+use constant ZLIB_HEADER_SIZE       => 2;
+use constant ZLIB_TRAILER_SIZE      => 4;
+
+use constant ZLIB_CMF_CM_OFFSET     => 0;
+use constant ZLIB_CMF_CM_BITS       => 0xF ; # 0b1111
+use constant ZLIB_CMF_CM_DEFLATED   => 8;
+
+use constant ZLIB_CMF_CINFO_OFFSET  => 4;
+use constant ZLIB_CMF_CINFO_BITS    => 0xF ; # 0b1111;
+use constant ZLIB_CMF_CINFO_MAX     => 7;
+
+use constant ZLIB_FLG_FCHECK_OFFSET => 0;
+use constant ZLIB_FLG_FCHECK_BITS   => 0x1F ; # 0b11111;
+
+use constant ZLIB_FLG_FDICT_OFFSET  => 5;
+use constant ZLIB_FLG_FDICT_BITS    => 0x1 ; # 0b1;
+
+use constant ZLIB_FLG_LEVEL_OFFSET  => 6;
+use constant ZLIB_FLG_LEVEL_BITS    => 0x3 ; # 0b11;
+
+use constant ZLIB_FLG_LEVEL_FASTEST => 0;
+use constant ZLIB_FLG_LEVEL_FAST    => 1;
+use constant ZLIB_FLG_LEVEL_DEFAULT => 2;
+use constant ZLIB_FLG_LEVEL_SLOWEST => 3;
+
+use constant ZLIB_FDICT_SIZE        => 4;
+
+
+1;
diff --git a/lib/5.24.1/IO/Compress/Zlib/Extra.pm b/lib/5.24.1/IO/Compress/Zlib/Extra.pm
new file mode 100644
index 00000000..92ca2052
--- /dev/null
+++ b/lib/5.24.1/IO/Compress/Zlib/Extra.pm
@@ -0,0 +1,229 @@
+package IO::Compress::Zlib::Extra;
+
+require 5.006 ;
+
+use strict ;
+use warnings;
+use bytes;
+
+our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS);
+
+$VERSION = '2.069_001';
+
+use IO::Compress::Gzip::Constants 2.069 ;
+
+sub ExtraFieldError
+{
+    return $_[0];
+    return "Error with ExtraField Parameter: $_[0]" ;
+}
+
+sub validateExtraFieldPair
+{
+    my $pair = shift ;
+    my $strict = shift;
+    my $gzipMode = shift ;
+
+    return ExtraFieldError("Not an array ref")
+        unless ref $pair &&  ref $pair eq 'ARRAY';
+
+    return ExtraFieldError("SubField must have two parts")
+        unless @$pair == 2 ;
+
+    return ExtraFieldError("SubField ID is a reference")
+        if ref $pair->[0] ;
+
+    return ExtraFieldError("SubField Data is a reference")
+        if ref $pair->[1] ;
+
+    # ID is exactly two chars   
+    return ExtraFieldError("SubField ID not two chars long")
+        unless length $pair->[0] == GZIP_FEXTRA_SUBFIELD_ID_SIZE ;
+
+    # Check that the 2nd byte of the ID isn't 0    
+    return ExtraFieldError("SubField ID 2nd byte is 0x00")
+        if $strict && $gzipMode && substr($pair->[0], 1, 1) eq "\x00" ;
+
+    return ExtraFieldError("SubField Data too long")
+        if length $pair->[1] > GZIP_FEXTRA_SUBFIELD_MAX_SIZE ;
+
+
+    return undef ;
+}
+
+sub parseRawExtra
+{
+    my $data     = shift ;
+    my $extraRef = shift;
+    my $strict   = shift;
+    my $gzipMode = shift ;
+
+    #my $lax = shift ;
+
+    #return undef
+    #    if $lax ;
+
+    my $XLEN = length $data ;
+
+    return ExtraFieldError("Too Large")
+        if $XLEN > GZIP_FEXTRA_MAX_SIZE;
+
+    my $offset = 0 ;
+    while ($offset < $XLEN) {
+
+        return ExtraFieldError("Truncated in FEXTRA Body Section")
+            if $offset + GZIP_FEXTRA_SUBFIELD_HEADER_SIZE  > $XLEN ;
+
+        my $id = substr($data, $offset, GZIP_FEXTRA_SUBFIELD_ID_SIZE);    
+        $offset += GZIP_FEXTRA_SUBFIELD_ID_SIZE;
+
+        my $subLen =  unpack("v", substr($data, $offset,
+                                            GZIP_FEXTRA_SUBFIELD_LEN_SIZE));
+        $offset += GZIP_FEXTRA_SUBFIELD_LEN_SIZE ;
+
+        return ExtraFieldError("Truncated in FEXTRA Body Section")
+            if $offset + $subLen > $XLEN ;
+
+        my $bad = validateExtraFieldPair( [$id, 
+                                           substr($data, $offset, $subLen)], 
+                                           $strict, $gzipMode );
+        return $bad if $bad ;
+        push @$extraRef, [$id => substr($data, $offset, $subLen)]
+            if defined $extraRef;;
+
+        $offset += $subLen ;
+    }
+
+        
+    return undef ;
+}
+
+sub findID
+{
+    my $id_want = shift ;
+    my $data    = shift;
+
+    my $XLEN = length $data ;
+
+    my $offset = 0 ;
+    while ($offset < $XLEN) {
+
+        return undef
+            if $offset + GZIP_FEXTRA_SUBFIELD_HEADER_SIZE  > $XLEN ;
+
+        my $id = substr($data, $offset, GZIP_FEXTRA_SUBFIELD_ID_SIZE);    
+        $offset += GZIP_FEXTRA_SUBFIELD_ID_SIZE;
+
+        my $subLen =  unpack("v", substr($data, $offset,
+                                            GZIP_FEXTRA_SUBFIELD_LEN_SIZE));
+        $offset += GZIP_FEXTRA_SUBFIELD_LEN_SIZE ;
+
+        return undef
+            if $offset + $subLen > $XLEN ;
+
+        return substr($data, $offset, $subLen)
+            if $id eq $id_want ;
+
+        $offset += $subLen ;
+    }
+        
+    return undef ;
+}
+
+
+sub mkSubField
+{
+    my $id = shift ;
+    my $data = shift ;
+
+    return $id . pack("v", length $data) . $data ;
+}
+
+sub parseExtraField
+{
+    my $dataRef  = $_[0];
+    my $strict   = $_[1];
+    my $gzipMode = $_[2];
+    #my $lax     = @_ == 2 ? $_[1] : 1;
+
+
+    # ExtraField can be any of
+    #
+    #    -ExtraField => $data
+    #
+    #    -ExtraField => [$id1, $data1,
+    #                    $id2, $data2]
+    #                     ...
+    #                   ]
+    #
+    #    -ExtraField => [ [$id1 => $data1],
+    #                     [$id2 => $data2],
+    #                     ...
+    #                   ]
+    #
+    #    -ExtraField => { $id1 => $data1,
+    #                     $id2 => $data2,
+    #                     ...
+    #                   }
+    
+    if ( ! ref $dataRef ) {
+
+        return undef
+            if ! $strict;
+
+        return parseRawExtra($dataRef, undef, 1, $gzipMode);
+    }
+
+    my $data = $dataRef;
+    my $out = '' ;
+
+    if (ref $data eq 'ARRAY') {    
+        if (ref $data->[0]) {
+
+            foreach my $pair (@$data) {
+                return ExtraFieldError("Not list of lists")
+                    unless ref $pair eq 'ARRAY' ;
+
+                my $bad = validateExtraFieldPair($pair, $strict, $gzipMode) ;
+                return $bad if $bad ;
+
+                $out .= mkSubField(@$pair);
+            }   
+        }   
+        else {
+            return ExtraFieldError("Not even number of elements")
+                unless @$data % 2  == 0;
+
+            for (my $ix = 0; $ix <= @$data -1 ; $ix += 2) {
+                my $bad = validateExtraFieldPair([$data->[$ix],
+                                                  $data->[$ix+1]], 
+                                                 $strict, $gzipMode) ;
+                return $bad if $bad ;
+
+                $out .= mkSubField($data->[$ix], $data->[$ix+1]);
+            }   
+        }
+    }   
+    elsif (ref $data eq 'HASH') {    
+        while (my ($id, $info) = each %$data) {
+            my $bad = validateExtraFieldPair([$id, $info], $strict, $gzipMode);
+            return $bad if $bad ;
+
+            $out .= mkSubField($id, $info);
+        }   
+    }   
+    else {
+        return ExtraFieldError("Not a scalar, array ref or hash ref") ;
+    }
+
+    return ExtraFieldError("Too Large")
+        if length $out > GZIP_FEXTRA_MAX_SIZE;
+
+    $_[0] = $out ;
+
+    return undef;
+}
+
+1;
+
+__END__
diff --git a/lib/5.24.1/IO/Socket/IP.pm b/lib/5.24.1/IO/Socket/IP.pm
new file mode 100644
index 00000000..3266fab7
--- /dev/null
+++ b/lib/5.24.1/IO/Socket/IP.pm
@@ -0,0 +1,1213 @@
+#  You may distribute under the terms of either the GNU General Public License
+#  or the Artistic License (the same terms as Perl itself)
+#
+#  (C) Paul Evans, 2010-2015 -- leonerd@leonerd.org.uk
+
+package IO::Socket::IP;
+# $VERSION needs to be set before  use base 'IO::Socket'
+#  - https://rt.cpan.org/Ticket/Display.html?id=92107
+BEGIN {
+   $VERSION = '0.37';
+}
+
+use strict;
+use warnings;
+use base qw( IO::Socket );
+
+use Carp;
+
+use Socket 1.97 qw(
+   getaddrinfo getnameinfo
+   sockaddr_family
+   AF_INET
+   AI_PASSIVE
+   IPPROTO_TCP IPPROTO_UDP
+   IPPROTO_IPV6 IPV6_V6ONLY
+   NI_DGRAM NI_NUMERICHOST NI_NUMERICSERV NIx_NOHOST NIx_NOSERV
+   SO_REUSEADDR SO_REUSEPORT SO_BROADCAST SO_ERROR
+   SOCK_DGRAM SOCK_STREAM
+   SOL_SOCKET
+);
+my $AF_INET6 = eval { Socket::AF_INET6() }; # may not be defined
+my $AI_ADDRCONFIG = eval { Socket::AI_ADDRCONFIG() } || 0;
+use POSIX qw( dup2 );
+use Errno qw( EINVAL EINPROGRESS EISCONN ENOTCONN ETIMEDOUT EWOULDBLOCK );
+
+use constant HAVE_MSWIN32 => ( $^O eq "MSWin32" );
+
+# At least one OS (Android) is known not to have getprotobyname()
+use constant HAVE_GETPROTOBYNAME => defined eval { getprotobyname( "tcp" ) };
+
+my $IPv6_re = do {
+   # translation of RFC 3986 3.2.2 ABNF to re
+   my $IPv4address = do {
+      my $dec_octet = q<(?:[0-9]|[1-9][0-9]|1[0-9][0-9]|2[0-4][0-9]|25[0-5])>;
+      qq<$dec_octet(?: \\. $dec_octet){3}>;
+   };
+   my $IPv6address = do {
+      my $h16  = qq<[0-9A-Fa-f]{1,4}>;
+      my $ls32 = qq<(?: $h16 : $h16 | $IPv4address)>;
+      qq<(?:
+                                            (?: $h16 : ){6} $ls32
+         |                               :: (?: $h16 : ){5} $ls32
+         | (?:                   $h16 )? :: (?: $h16 : ){4} $ls32
+         | (?: (?: $h16 : ){0,1} $h16 )? :: (?: $h16 : ){3} $ls32
+         | (?: (?: $h16 : ){0,2} $h16 )? :: (?: $h16 : ){2} $ls32
+         | (?: (?: $h16 : ){0,3} $h16 )? ::     $h16 :      $ls32
+         | (?: (?: $h16 : ){0,4} $h16 )? ::                 $ls32
+         | (?: (?: $h16 : ){0,5} $h16 )? ::                 $h16
+         | (?: (?: $h16 : ){0,6} $h16 )? ::
+      )>
+   };
+   qr<$IPv6address>xo;
+};
+
+=head1 NAME
+
+C<IO::Socket::IP> - Family-neutral IP socket supporting both IPv4 and IPv6
+
+=head1 SYNOPSIS
+
+ use IO::Socket::IP;
+
+ my $sock = IO::Socket::IP->new(
+    PeerHost => "www.google.com",
+    PeerPort => "http",
+    Type     => SOCK_STREAM,
+ ) or die "Cannot construct socket - $@";
+
+ my $familyname = ( $sock->sockdomain == PF_INET6 ) ? "IPv6" :
+                  ( $sock->sockdomain == PF_INET  ) ? "IPv4" :
+                                                      "unknown";
+
+ printf "Connected to google via %s\n", $familyname;
+
+=head1 DESCRIPTION
+
+This module provides a protocol-independent way to use IPv4 and IPv6 sockets,
+intended as a replacement for L<IO::Socket::INET>. Most constructor arguments
+and methods are provided in a backward-compatible way. For a list of known
+differences, see the C<IO::Socket::INET> INCOMPATIBILITES section below.
+
+It uses the C<getaddrinfo(3)> function to convert hostnames and service names
+or port numbers into sets of possible addresses to connect to or listen on.
+This allows it to work for IPv6 where the system supports it, while still
+falling back to IPv4-only on systems which don't.
+
+=head1 REPLACING C<IO::Socket> DEFAULT BEHAVIOUR
+
+By placing C<-register> in the import list, L<IO::Socket> uses
+C<IO::Socket::IP> rather than C<IO::Socket::INET> as the class that handles
+C<PF_INET>.  C<IO::Socket> will also use C<IO::Socket::IP> rather than
+C<IO::Socket::INET6> to handle C<PF_INET6>, provided that the C<AF_INET6>
+constant is available.
+
+Changing C<IO::Socket>'s default behaviour means that calling the
+C<IO::Socket> constructor with either C<PF_INET> or C<PF_INET6> as the
+C<Domain> parameter will yield an C<IO::Socket::IP> object.
+
+ use IO::Socket::IP -register;
+
+ my $sock = IO::Socket->new(
+    Domain    => PF_INET6,
+    LocalHost => "::1",
+    Listen    => 1,
+ ) or die "Cannot create socket - $@\n";
+
+ print "Created a socket of type " . ref($sock) . "\n";
+
+Note that C<-register> is a global setting that applies to the entire program;
+it cannot be applied only for certain callers, removed, or limited by lexical
+scope.
+
+=cut
+
+sub import
+{
+   my $pkg = shift;
+   my @symbols;
+
+   foreach ( @_ ) {
+      if( $_ eq "-register" ) {
+         IO::Socket::IP::_ForINET->register_domain( AF_INET );
+         IO::Socket::IP::_ForINET6->register_domain( $AF_INET6 ) if defined $AF_INET6;
+      }
+      else {
+         push @symbols, $_;
+      }
+   }
+
+   @_ = ( $pkg, @symbols );
+   goto &IO::Socket::import;
+}
+
+# Convenient capability test function
+{
+   my $can_disable_v6only;
+   sub CAN_DISABLE_V6ONLY
+   {
+      return $can_disable_v6only if defined $can_disable_v6only;
+
+      socket my $testsock, Socket::PF_INET6(), SOCK_STREAM, 0 or
+         die "Cannot socket(PF_INET6) - $!";
+
+      if( setsockopt $testsock, IPPROTO_IPV6, IPV6_V6ONLY, 0 ) {
+         return $can_disable_v6only = 1;
+      }
+      elsif( $! == EINVAL ) {
+         return $can_disable_v6only = 0;
+      }
+      else {
+         die "Cannot setsockopt() - $!";
+      }
+   }
+}
+
+=head1 CONSTRUCTORS
+
+=cut
+
+=head2 $sock = IO::Socket::IP->new( %args )
+
+Creates a new C<IO::Socket::IP> object, containing a newly created socket
+handle according to the named arguments passed. The recognised arguments are:
+
+=over 8
+
+=item PeerHost => STRING
+
+=item PeerService => STRING
+
+Hostname and service name for the peer to C<connect()> to. The service name
+may be given as a port number, as a decimal string.
+
+=item PeerAddr => STRING
+
+=item PeerPort => STRING
+
+For symmetry with the accessor methods and compatibility with
+C<IO::Socket::INET>, these are accepted as synonyms for C<PeerHost> and
+C<PeerService> respectively.
+
+=item PeerAddrInfo => ARRAY
+
+Alternate form of specifying the peer to C<connect()> to. This should be an
+array of the form returned by C<Socket::getaddrinfo>.
+
+This parameter takes precedence over the C<Peer*>, C<Family>, C<Type> and
+C<Proto> arguments.
+
+=item LocalHost => STRING
+
+=item LocalService => STRING
+
+Hostname and service name for the local address to C<bind()> to.
+
+=item LocalAddr => STRING
+
+=item LocalPort => STRING
+
+For symmetry with the accessor methods and compatibility with
+C<IO::Socket::INET>, these are accepted as synonyms for C<LocalHost> and
+C<LocalService> respectively.
+
+=item LocalAddrInfo => ARRAY
+
+Alternate form of specifying the local address to C<bind()> to. This should be
+an array of the form returned by C<Socket::getaddrinfo>.
+
+This parameter takes precedence over the C<Local*>, C<Family>, C<Type> and
+C<Proto> arguments.
+
+=item Family => INT
+
+The address family to pass to C<getaddrinfo> (e.g. C<AF_INET>, C<AF_INET6>).
+Normally this will be left undefined, and C<getaddrinfo> will search using any
+address family supported by the system.
+
+=item Type => INT
+
+The socket type to pass to C<getaddrinfo> (e.g. C<SOCK_STREAM>,
+C<SOCK_DGRAM>). Normally defined by the caller; if left undefined
+C<getaddrinfo> may attempt to infer the type from the service name.
+
+=item Proto => STRING or INT
+
+The IP protocol to use for the socket (e.g. C<'tcp'>, C<IPPROTO_TCP>,
+C<'udp'>,C<IPPROTO_UDP>). Normally this will be left undefined, and either
+C<getaddrinfo> or the kernel will choose an appropriate value. May be given
+either in string name or numeric form.
+
+=item GetAddrInfoFlags => INT
+
+More flags to pass to the C<getaddrinfo()> function. If not supplied, a
+default of C<AI_ADDRCONFIG> will be used.
+
+These flags will be combined with C<AI_PASSIVE> if the C<Listen> argument is
+given. For more information see the documentation about C<getaddrinfo()> in
+the L<Socket> module.
+
+=item Listen => INT
+
+If defined, puts the socket into listening mode where new connections can be
+accepted using the C<accept> method. The value given is used as the
+C<listen(2)> queue size.
+
+=item ReuseAddr => BOOL
+
+If true, set the C<SO_REUSEADDR> sockopt
+
+=item ReusePort => BOOL
+
+If true, set the C<SO_REUSEPORT> sockopt (not all OSes implement this sockopt)
+
+=item Broadcast => BOOL
+
+If true, set the C<SO_BROADCAST> sockopt
+
+=item V6Only => BOOL
+
+If defined, set the C<IPV6_V6ONLY> sockopt when creating C<PF_INET6> sockets
+to the given value. If true, a listening-mode socket will only listen on the
+C<AF_INET6> addresses; if false it will also accept connections from
+C<AF_INET> addresses.
+
+If not defined, the socket option will not be changed, and default value set
+by the operating system will apply. For repeatable behaviour across platforms
+it is recommended this value always be defined for listening-mode sockets.
+
+Note that not all platforms support disabling this option. Some, at least
+OpenBSD and MirBSD, will fail with C<EINVAL> if you attempt to disable it.
+To determine whether it is possible to disable, you may use the class method
+
+ if( IO::Socket::IP->CAN_DISABLE_V6ONLY ) {
+    ...
+ }
+ else {
+    ...
+ }
+
+If your platform does not support disabling this option but you still want to
+listen for both C<AF_INET> and C<AF_INET6> connections you will have to create
+two listening sockets, one bound to each protocol.
+
+=item MultiHomed
+
+This C<IO::Socket::INET>-style argument is ignored, except if it is defined
+but false. See the C<IO::Socket::INET> INCOMPATIBILITES section below.
+
+However, the behaviour it enables is always performed by C<IO::Socket::IP>.
+
+=item Blocking => BOOL
+
+If defined but false, the socket will be set to non-blocking mode. Otherwise
+it will default to blocking mode. See the NON-BLOCKING section below for more
+detail.
+
+=item Timeout => NUM
+
+If defined, gives a maximum time in seconds to block per C<connect()> call
+when in blocking mode. If missing, no timeout is applied other than that
+provided by the underlying operating system. When in non-blocking mode this
+parameter is ignored.
+
+Note that if the hostname resolves to multiple address candidates, the same
+timeout will apply to each connection attempt individually, rather than to the
+operation as a whole. Further note that the timeout does not apply to the
+initial hostname resolve operation, if connecting by hostname.
+
+This behviour is copied inspired by C<IO::Socket::INET>; for more fine grained
+control over connection timeouts, consider performing a nonblocking connect
+directly.
+
+=back
+
+If neither C<Type> nor C<Proto> hints are provided, a default of
+C<SOCK_STREAM> and C<IPPROTO_TCP> respectively will be set, to maintain
+compatibility with C<IO::Socket::INET>. Other named arguments that are not
+recognised are ignored.
+
+If neither C<Family> nor any hosts or addresses are passed, nor any
+C<*AddrInfo>, then the constructor has no information on which to decide a
+socket family to create. In this case, it performs a C<getaddinfo> call with
+the C<AI_ADDRCONFIG> flag, no host name, and a service name of C<"0">, and
+uses the family of the first returned result.
+
+If the constructor fails, it will set C<$@> to an appropriate error message;
+this may be from C<$!> or it may be some other string; not every failure
+necessarily has an associated C<errno> value.
+
+=head2 $sock = IO::Socket::IP->new( $peeraddr )
+
+As a special case, if the constructor is passed a single argument (as
+opposed to an even-sized list of key/value pairs), it is taken to be the value
+of the C<PeerAddr> parameter. This is parsed in the same way, according to the
+behaviour given in the C<PeerHost> AND C<LocalHost> PARSING section below.
+
+=cut
+
+sub new
+{
+   my $class = shift;
+   my %arg = (@_ == 1) ? (PeerHost => $_[0]) : @_;
+   return $class->SUPER::new(%arg);
+}
+
+# IO::Socket may call this one; neaten up the arguments from IO::Socket::INET
+# before calling our real _configure method
+sub configure
+{
+   my $self = shift;
+   my ( $arg ) = @_;
+
+   $arg->{PeerHost} = delete $arg->{PeerAddr}
+      if exists $arg->{PeerAddr} && !exists $arg->{PeerHost};
+
+   $arg->{PeerService} = delete $arg->{PeerPort}
+      if exists $arg->{PeerPort} && !exists $arg->{PeerService};
+
+   $arg->{LocalHost} = delete $arg->{LocalAddr}
+      if exists $arg->{LocalAddr} && !exists $arg->{LocalHost};
+
+   $arg->{LocalService} = delete $arg->{LocalPort}
+      if exists $arg->{LocalPort} && !exists $arg->{LocalService};
+
+   for my $type (qw(Peer Local)) {
+      my $host    = $type . 'Host';
+      my $service = $type . 'Service';
+
+      if( defined $arg->{$host} ) {
+         ( $arg->{$host}, my $s ) = $self->split_addr( $arg->{$host} );
+         # IO::Socket::INET compat - *Host parsed port always takes precedence
+         $arg->{$service} = $s if defined $s;
+      }
+   }
+
+   $self->_io_socket_ip__configure( $arg );
+}
+
+# Avoid simply calling it _configure, as some subclasses of IO::Socket::INET on CPAN already take that
+sub _io_socket_ip__configure
+{
+   my $self = shift;
+   my ( $arg ) = @_;
+
+   my %hints;
+   my @localinfos;
+   my @peerinfos;
+
+   my $listenqueue = $arg->{Listen};
+   if( defined $listenqueue and
+       ( defined $arg->{PeerHost} || defined $arg->{PeerService} || defined $arg->{PeerAddrInfo} ) ) {
+      croak "Cannot Listen with a peer address";
+   }
+
+   if( defined $arg->{GetAddrInfoFlags} ) {
+      $hints{flags} = $arg->{GetAddrInfoFlags};
+   }
+   else {
+      $hints{flags} = $AI_ADDRCONFIG;
+   }
+
+   if( defined( my $family = $arg->{Family} ) ) {
+      $hints{family} = $family;
+   }
+
+   if( defined( my $type = $arg->{Type} ) ) {
+      $hints{socktype} = $type;
+   }
+
+   if( defined( my $proto = $arg->{Proto} ) ) {
+      unless( $proto =~ m/^\d+$/ ) {
+         my $protonum = HAVE_GETPROTOBYNAME
+            ? getprotobyname( $proto )
+            : eval { Socket->${\"IPPROTO_\U$proto"}() };
+         defined $protonum or croak "Unrecognised protocol $proto";
+         $proto = $protonum;
+      }
+
+      $hints{protocol} = $proto;
+   }
+
+   # To maintain compatibility with IO::Socket::INET, imply a default of
+   # SOCK_STREAM + IPPROTO_TCP if neither hint is given
+   if( !defined $hints{socktype} and !defined $hints{protocol} ) {
+      $hints{socktype} = SOCK_STREAM;
+      $hints{protocol} = IPPROTO_TCP;
+   }
+
+   # Some OSes (NetBSD) don't seem to like just a protocol hint without a
+   # socktype hint as well. We'll set a couple of common ones
+   if( !defined $hints{socktype} and defined $hints{protocol} ) {
+      $hints{socktype} = SOCK_STREAM if $hints{protocol} == IPPROTO_TCP;
+      $hints{socktype} = SOCK_DGRAM  if $hints{protocol} == IPPROTO_UDP;
+   }
+
+   if( my $info = $arg->{LocalAddrInfo} ) {
+      ref $info eq "ARRAY" or croak "Expected 'LocalAddrInfo' to be an ARRAY ref";
+      @localinfos = @$info;
+   }
+   elsif( defined $arg->{LocalHost} or
+          defined $arg->{LocalService} or
+          HAVE_MSWIN32 and $arg->{Listen} ) {
+      # Either may be undef
+      my $host = $arg->{LocalHost};
+      my $service = $arg->{LocalService};
+
+      unless ( defined $host or defined $service ) {
+         $service = 0;
+      }
+
+      local $1; # Placate a taint-related bug; [perl #67962]
+      defined $service and $service =~ s/\((\d+)\)$// and
+         my $fallback_port = $1;
+
+      my %localhints = %hints;
+      $localhints{flags} |= AI_PASSIVE;
+      ( my $err, @localinfos ) = getaddrinfo( $host, $service, \%localhints );
+
+      if( $err and defined $fallback_port ) {
+         ( $err, @localinfos ) = getaddrinfo( $host, $fallback_port, \%localhints );
+      }
+
+      if( $err ) {
+         $@ = "$err";
+         $! = EINVAL;
+         return;
+      }
+   }
+
+   if( my $info = $arg->{PeerAddrInfo} ) {
+      ref $info eq "ARRAY" or croak "Expected 'PeerAddrInfo' to be an ARRAY ref";
+      @peerinfos = @$info;
+   }
+   elsif( defined $arg->{PeerHost} or defined $arg->{PeerService} ) {
+      defined( my $host = $arg->{PeerHost} ) or
+         croak "Expected 'PeerHost'";
+      defined( my $service = $arg->{PeerService} ) or
+         croak "Expected 'PeerService'";
+
+      local $1; # Placate a taint-related bug; [perl #67962]
+      defined $service and $service =~ s/\((\d+)\)$// and
+         my $fallback_port = $1;
+
+      ( my $err, @peerinfos ) = getaddrinfo( $host, $service, \%hints );
+
+      if( $err and defined $fallback_port ) {
+         ( $err, @peerinfos ) = getaddrinfo( $host, $fallback_port, \%hints );
+      }
+
+      if( $err ) {
+         $@ = "$err";
+         $! = EINVAL;
+         return;
+      }
+   }
+
+   my @sockopts_enabled;
+   push @sockopts_enabled, SO_REUSEADDR if $arg->{ReuseAddr};
+   push @sockopts_enabled, SO_REUSEPORT if $arg->{ReusePort};
+   push @sockopts_enabled, SO_BROADCAST if $arg->{Broadcast};
+
+   my $blocking = $arg->{Blocking};
+   defined $blocking or $blocking = 1;
+
+   my $v6only = $arg->{V6Only};
+
+   # IO::Socket::INET defines this key. IO::Socket::IP always implements the
+   # behaviour it requests, so we can ignore it, unless the caller is for some
+   # reason asking to disable it.
+   if( defined $arg->{MultiHomed} and !$arg->{MultiHomed} ) {
+      croak "Cannot disable the MultiHomed parameter";
+   }
+
+   my @infos;
+   foreach my $local ( @localinfos ? @localinfos : {} ) {
+      foreach my $peer ( @peerinfos ? @peerinfos : {} ) {
+         next if defined $local->{family}   and defined $peer->{family}   and
+            $local->{family} != $peer->{family};
+         next if defined $local->{socktype} and defined $peer->{socktype} and
+            $local->{socktype} != $peer->{socktype};
+         next if defined $local->{protocol} and defined $peer->{protocol} and
+            $local->{protocol} != $peer->{protocol};
+
+         my $family   = $local->{family}   || $peer->{family}   or next;
+         my $socktype = $local->{socktype} || $peer->{socktype} or next;
+         my $protocol = $local->{protocol} || $peer->{protocol} || 0;
+
+         push @infos, {
+            family    => $family,
+            socktype  => $socktype,
+            protocol  => $protocol,
+            localaddr => $local->{addr},
+            peeraddr  => $peer->{addr},
+         };
+      }
+   }
+
+   if( !@infos ) {
+      # If there was a Family hint then create a plain unbound, unconnected socket
+      if( defined $hints{family} ) {
+         @infos = ( {
+            family   => $hints{family},
+            socktype => $hints{socktype},
+            protocol => $hints{protocol},
+         } );
+      }
+      # If there wasn't, use getaddrinfo()'s AI_ADDRCONFIG side-effect to guess a
+      # suitable family first.
+      else {
+         ( my $err, @infos ) = getaddrinfo( "", "0", \%hints );
+         if( $err ) {
+            $@ = "$err";
+            $! = EINVAL;
+            return;
+         }
+
+         # We'll take all the @infos anyway, because some OSes (HPUX) are known to
+         # ignore the AI_ADDRCONFIG hint and return AF_INET6 even if they don't
+         # support them
+      }
+   }
+
+   # In the nonblocking case, caller will be calling ->setup multiple times.
+   # Store configuration in the object for the ->setup method
+   # Yes, these are messy. Sorry, I can't help that...
+
+   ${*$self}{io_socket_ip_infos} = \@infos;
+
+   ${*$self}{io_socket_ip_idx} = -1;
+
+   ${*$self}{io_socket_ip_sockopts} = \@sockopts_enabled;
+   ${*$self}{io_socket_ip_v6only} = $v6only;
+   ${*$self}{io_socket_ip_listenqueue} = $listenqueue;
+   ${*$self}{io_socket_ip_blocking} = $blocking;
+
+   ${*$self}{io_socket_ip_errors} = [ undef, undef, undef ];
+
+   # ->setup is allowed to return false in nonblocking mode
+   $self->setup or !$blocking or return undef;
+
+   return $self;
+}
+
+sub setup
+{
+   my $self = shift;
+
+   while(1) {
+      ${*$self}{io_socket_ip_idx}++;
+      last if ${*$self}{io_socket_ip_idx} >= @{ ${*$self}{io_socket_ip_infos} };
+
+      my $info = ${*$self}{io_socket_ip_infos}->[${*$self}{io_socket_ip_idx}];
+
+      $self->socket( @{$info}{qw( family socktype protocol )} ) or
+         ( ${*$self}{io_socket_ip_errors}[2] = $!, next );
+
+      $self->blocking( 0 ) unless ${*$self}{io_socket_ip_blocking};
+
+      foreach my $sockopt ( @{ ${*$self}{io_socket_ip_sockopts} } ) {
+         $self->setsockopt( SOL_SOCKET, $sockopt, pack "i", 1 ) or ( $@ = "$!", return undef );
+      }
+
+      if( defined ${*$self}{io_socket_ip_v6only} and defined $AF_INET6 and $info->{family} == $AF_INET6 ) {
+         my $v6only = ${*$self}{io_socket_ip_v6only};
+         $self->setsockopt( IPPROTO_IPV6, IPV6_V6ONLY, pack "i", $v6only ) or ( $@ = "$!", return undef );
+      }
+
+      if( defined( my $addr = $info->{localaddr} ) ) {
+         $self->bind( $addr ) or
+            ( ${*$self}{io_socket_ip_errors}[1] = $!, next );
+      }
+
+      if( defined( my $listenqueue = ${*$self}{io_socket_ip_listenqueue} ) ) {
+         $self->listen( $listenqueue ) or ( $@ = "$!", return undef );
+      }
+
+      if( defined( my $addr = $info->{peeraddr} ) ) {
+         if( $self->connect( $addr ) ) {
+            $! = 0;
+            return 1;
+         }
+
+         if( $! == EINPROGRESS or $! == EWOULDBLOCK ) {
+            ${*$self}{io_socket_ip_connect_in_progress} = 1;
+            return 0;
+         }
+
+         # If connect failed but we have no system error there must be an error
+         # at the application layer, like a bad certificate with
+         # IO::Socket::SSL.
+         # In this case don't continue IP based multi-homing because the problem
+         # cannot be solved at the IP layer.
+         return 0 if ! $!;
+
+         ${*$self}{io_socket_ip_errors}[0] = $!;
+         next;
+      }
+
+      return 1;
+   }
+
+   # Pick the most appropriate error, stringified
+   $! = ( grep defined, @{ ${*$self}{io_socket_ip_errors}} )[0];
+   $@ = "$!";
+   return undef;
+}
+
+sub connect :method
+{
+   my $self = shift;
+
+   # It seems that IO::Socket hides EINPROGRESS errors, making them look like
+   # a success. This is annoying here.
+   # Instead of putting up with its frankly-irritating intentional breakage of
+   # useful APIs I'm just going to end-run around it and call core's connect()
+   # directly
+
+   if( @_ ) {
+      my ( $addr ) = @_;
+
+      # Annoyingly IO::Socket's connect() is where the timeout logic is
+      # implemented, so we'll have to reinvent it here
+      my $timeout = ${*$self}{'io_socket_timeout'};
+
+      return connect( $self, $addr ) unless defined $timeout;
+
+      my $was_blocking = $self->blocking( 0 );
+
+      my $err = defined connect( $self, $addr ) ? 0 : $!+0;
+
+      if( !$err ) {
+         # All happy
+         $self->blocking( $was_blocking );
+         return 1;
+      }
+      elsif( not( $err == EINPROGRESS or $err == EWOULDBLOCK ) ) {
+         # Failed for some other reason
+         return undef;
+      }
+      elsif( !$was_blocking ) {
+         # We shouldn't block anyway
+         return undef;
+      }
+
+      my $vec = ''; vec( $vec, $self->fileno, 1 ) = 1;
+      if( !select( undef, $vec, $vec, $timeout ) ) {
+         $! = ETIMEDOUT;
+         return undef;
+      }
+
+      # Hoist the error by connect()ing a second time
+      $err = $self->getsockopt( SOL_SOCKET, SO_ERROR );
+      $err = 0 if $err == EISCONN; # Some OSes give EISCONN
+
+      $self->blocking( $was_blocking );
+
+      $! = $err, return undef if $err;
+      return 1;
+   }
+
+   return 1 if !${*$self}{io_socket_ip_connect_in_progress};
+
+   # See if a connect attempt has just failed with an error
+   if( my $errno = $self->getsockopt( SOL_SOCKET, SO_ERROR ) ) {
+      delete ${*$self}{io_socket_ip_connect_in_progress};
+      ${*$self}{io_socket_ip_errors}[0] = $! = $errno;
+      return $self->setup;
+   }
+
+   # No error, so either connect is still in progress, or has completed
+   # successfully. We can tell by trying to connect() again; either it will
+   # succeed or we'll get EISCONN (connected successfully), or EALREADY
+   # (still in progress). This even works on MSWin32.
+   my $addr = ${*$self}{io_socket_ip_infos}[${*$self}{io_socket_ip_idx}]{peeraddr};
+
+   if( connect( $self, $addr ) or $! == EISCONN ) {
+      delete ${*$self}{io_socket_ip_connect_in_progress};
+      $! = 0;
+      return 1;
+   }
+   else {
+      $! = EINPROGRESS;
+      return 0;
+   }
+}
+
+sub connected
+{
+   my $self = shift;
+   return defined $self->fileno &&
+          !${*$self}{io_socket_ip_connect_in_progress} &&
+          defined getpeername( $self ); # ->peername caches, we need to detect disconnection
+}
+
+=head1 METHODS
+
+As well as the following methods, this class inherits all the methods in
+L<IO::Socket> and L<IO::Handle>.
+
+=cut
+
+sub _get_host_service
+{
+   my $self = shift;
+   my ( $addr, $flags, $xflags ) = @_;
+
+   defined $addr or
+      $! = ENOTCONN, return;
+
+   $flags |= NI_DGRAM if $self->socktype == SOCK_DGRAM;
+
+   my ( $err, $host, $service ) = getnameinfo( $addr, $flags, $xflags || 0 );
+   croak "getnameinfo - $err" if $err;
+
+   return ( $host, $service );
+}
+
+sub _unpack_sockaddr
+{
+   my ( $addr ) = @_;
+   my $family = sockaddr_family $addr;
+
+   if( $family == AF_INET ) {
+      return ( Socket::unpack_sockaddr_in( $addr ) )[1];
+   }
+   elsif( defined $AF_INET6 and $family == $AF_INET6 ) {
+      return ( Socket::unpack_sockaddr_in6( $addr ) )[1];
+   }
+   else {
+      croak "Unrecognised address family $family";
+   }
+}
+
+=head2 ( $host, $service ) = $sock->sockhost_service( $numeric )
+
+Returns the hostname and service name of the local address (that is, the
+socket address given by the C<sockname> method).
+
+If C<$numeric> is true, these will be given in numeric form rather than being
+resolved into names.
+
+The following four convenience wrappers may be used to obtain one of the two
+values returned here. If both host and service names are required, this method
+is preferable to the following wrappers, because it will call
+C<getnameinfo(3)> only once.
+
+=cut
+
+sub sockhost_service
+{
+   my $self = shift;
+   my ( $numeric ) = @_;
+
+   $self->_get_host_service( $self->sockname, $numeric ? NI_NUMERICHOST|NI_NUMERICSERV : 0 );
+}
+
+=head2 $addr = $sock->sockhost
+
+Return the numeric form of the local address as a textual representation
+
+=head2 $port = $sock->sockport
+
+Return the numeric form of the local port number
+
+=head2 $host = $sock->sockhostname
+
+Return the resolved name of the local address
+
+=head2 $service = $sock->sockservice
+
+Return the resolved name of the local port number
+
+=cut
+
+sub sockhost { my $self = shift; scalar +( $self->_get_host_service( $self->sockname, NI_NUMERICHOST, NIx_NOSERV ) )[0] }
+sub sockport { my $self = shift; scalar +( $self->_get_host_service( $self->sockname, NI_NUMERICSERV, NIx_NOHOST ) )[1] }
+
+sub sockhostname { my $self = shift; scalar +( $self->_get_host_service( $self->sockname, 0, NIx_NOSERV ) )[0] }
+sub sockservice  { my $self = shift; scalar +( $self->_get_host_service( $self->sockname, 0, NIx_NOHOST ) )[1] }
+
+=head2 $addr = $sock->sockaddr
+
+Return the local address as a binary octet string
+
+=cut
+
+sub sockaddr { my $self = shift; _unpack_sockaddr $self->sockname }
+
+=head2 ( $host, $service ) = $sock->peerhost_service( $numeric )
+
+Returns the hostname and service name of the peer address (that is, the
+socket address given by the C<peername> method), similar to the
+C<sockhost_service> method.
+
+The following four convenience wrappers may be used to obtain one of the two
+values returned here. If both host and service names are required, this method
+is preferable to the following wrappers, because it will call
+C<getnameinfo(3)> only once.
+
+=cut
+
+sub peerhost_service
+{
+   my $self = shift;
+   my ( $numeric ) = @_;
+
+   $self->_get_host_service( $self->peername, $numeric ? NI_NUMERICHOST|NI_NUMERICSERV : 0 );
+}
+
+=head2 $addr = $sock->peerhost
+
+Return the numeric form of the peer address as a textual representation
+
+=head2 $port = $sock->peerport
+
+Return the numeric form of the peer port number
+
+=head2 $host = $sock->peerhostname
+
+Return the resolved name of the peer address
+
+=head2 $service = $sock->peerservice
+
+Return the resolved name of the peer port number
+
+=cut
+
+sub peerhost { my $self = shift; scalar +( $self->_get_host_service( $self->peername, NI_NUMERICHOST, NIx_NOSERV ) )[0] }
+sub peerport { my $self = shift; scalar +( $self->_get_host_service( $self->peername, NI_NUMERICSERV, NIx_NOHOST ) )[1] }
+
+sub peerhostname { my $self = shift; scalar +( $self->_get_host_service( $self->peername, 0, NIx_NOSERV ) )[0] }
+sub peerservice  { my $self = shift; scalar +( $self->_get_host_service( $self->peername, 0, NIx_NOHOST ) )[1] }
+
+=head2 $addr = $peer->peeraddr
+
+Return the peer address as a binary octet string
+
+=cut
+
+sub peeraddr { my $self = shift; _unpack_sockaddr $self->peername }
+
+# This unbelievably dodgy hack works around the bug that IO::Socket doesn't do
+# it
+#    https://rt.cpan.org/Ticket/Display.html?id=61577
+sub accept
+{
+   my $self = shift;
+   my ( $new, $peer ) = $self->SUPER::accept( @_ ) or return;
+
+   ${*$new}{$_} = ${*$self}{$_} for qw( io_socket_domain io_socket_type io_socket_proto );
+
+   return wantarray ? ( $new, $peer )
+                    : $new;
+}
+
+# This second unbelievably dodgy hack guarantees that $self->fileno doesn't
+# change, which is useful during nonblocking connect
+sub socket :method
+{
+   my $self = shift;
+   return $self->SUPER::socket(@_) if not defined $self->fileno;
+
+   # I hate core prototypes sometimes...
+   socket( my $tmph, $_[0], $_[1], $_[2] ) or return undef;
+
+   dup2( $tmph->fileno, $self->fileno ) or die "Unable to dup2 $tmph onto $self - $!";
+}
+
+# Versions of IO::Socket before 1.35 may leave socktype undef if from, say, an
+#   ->fdopen call. In this case we'll apply a fix
+BEGIN {
+   if( eval($IO::Socket::VERSION) < 1.35 ) {
+      *socktype = sub {
+         my $self = shift;
+         my $type = $self->SUPER::socktype;
+         if( !defined $type ) {
+            $type = $self->sockopt( Socket::SO_TYPE() );
+         }
+         return $type;
+      };
+   }
+}
+
+=head2 $inet = $sock->as_inet
+
+Returns a new L<IO::Socket::INET> instance wrapping the same filehandle. This
+may be useful in cases where it is required, for backward-compatibility, to
+have a real object of C<IO::Socket::INET> type instead of C<IO::Socket::IP>.
+The new object will wrap the same underlying socket filehandle as the
+original, so care should be taken not to continue to use both objects
+concurrently. Ideally the original C<$sock> should be discarded after this
+method is called.
+
+This method checks that the socket domain is C<PF_INET> and will throw an
+exception if it isn't.
+
+=cut
+
+sub as_inet
+{
+   my $self = shift;
+   croak "Cannot downgrade a non-PF_INET socket to IO::Socket::INET" unless $self->sockdomain == AF_INET;
+   return IO::Socket::INET->new_from_fd( $self->fileno, "r+" );
+}
+
+=head1 NON-BLOCKING
+
+If the constructor is passed a defined but false value for the C<Blocking>
+argument then the socket is put into non-blocking mode. When in non-blocking
+mode, the socket will not be set up by the time the constructor returns,
+because the underlying C<connect(2)> syscall would otherwise have to block.
+
+The non-blocking behaviour is an extension of the C<IO::Socket::INET> API,
+unique to C<IO::Socket::IP>, because the former does not support multi-homed
+non-blocking connect.
+
+When using non-blocking mode, the caller must repeatedly check for
+writeability on the filehandle (for instance using C<select> or C<IO::Poll>).
+Each time the filehandle is ready to write, the C<connect> method must be
+called, with no arguments. Note that some operating systems, most notably
+C<MSWin32> do not report a C<connect()> failure using write-ready; so you must
+also C<select()> for exceptional status.
+
+While C<connect> returns false, the value of C<$!> indicates whether it should
+be tried again (by being set to the value C<EINPROGRESS>, or C<EWOULDBLOCK> on
+MSWin32), or whether a permanent error has occurred (e.g. C<ECONNREFUSED>).
+
+Once the socket has been connected to the peer, C<connect> will return true
+and the socket will now be ready to use.
+
+Note that calls to the platform's underlying C<getaddrinfo(3)> function may
+block. If C<IO::Socket::IP> has to perform this lookup, the constructor will
+block even when in non-blocking mode.
+
+To avoid this blocking behaviour, the caller should pass in the result of such
+a lookup using the C<PeerAddrInfo> or C<LocalAddrInfo> arguments. This can be
+achieved by using L<Net::LibAsyncNS>, or the C<getaddrinfo(3)> function can be
+called in a child process.
+
+ use IO::Socket::IP;
+ use Errno qw( EINPROGRESS EWOULDBLOCK );
+
+ my @peeraddrinfo = ... # Caller must obtain the getaddinfo result here
+
+ my $socket = IO::Socket::IP->new(
+    PeerAddrInfo => \@peeraddrinfo,
+    Blocking     => 0,
+ ) or die "Cannot construct socket - $@";
+
+ while( !$socket->connect and ( $! == EINPROGRESS || $! == EWOULDBLOCK ) ) {
+    my $wvec = '';
+    vec( $wvec, fileno $socket, 1 ) = 1;
+    my $evec = '';
+    vec( $evec, fileno $socket, 1 ) = 1;
+
+    select( undef, $wvec, $evec, undef ) or die "Cannot select - $!";
+ }
+
+ die "Cannot connect - $!" if $!;
+
+ ...
+
+The example above uses C<select()>, but any similar mechanism should work
+analogously. C<IO::Socket::IP> takes care when creating new socket filehandles
+to preserve the actual file descriptor number, so such techniques as C<poll>
+or C<epoll> should be transparent to its reallocation of a different socket
+underneath, perhaps in order to switch protocol family between C<PF_INET> and
+C<PF_INET6>.
+
+For another example using C<IO::Poll> and C<Net::LibAsyncNS>, see the
+F<examples/nonblocking_libasyncns.pl> file in the module distribution.
+
+=cut
+
+=head1 C<PeerHost> AND C<LocalHost> PARSING
+
+To support the C<IO::Socket::INET> API, the host and port information may be
+passed in a single string rather than as two separate arguments.
+
+If either C<LocalHost> or C<PeerHost> (or their C<...Addr> synonyms) have any
+of the following special forms then special parsing is applied.
+
+The value of the C<...Host> argument will be split to give both the hostname
+and port (or service name):
+
+ hostname.example.org:http    # Host name
+ 192.0.2.1:80                 # IPv4 address
+ [2001:db8::1]:80             # IPv6 address
+
+In each case, the port or service name (e.g. C<80>) is passed as the
+C<LocalService> or C<PeerService> argument.
+
+Either of C<LocalService> or C<PeerService> (or their C<...Port> synonyms) can
+be either a service name, a decimal number, or a string containing both a
+service name and number, in a form such as
+
+ http(80)
+
+In this case, the name (C<http>) will be tried first, but if the resolver does
+not understand it then the port number (C<80>) will be used instead.
+
+If the C<...Host> argument is in this special form and the corresponding
+C<...Service> or C<...Port> argument is also defined, the one parsed from
+the C<...Host> argument will take precedence and the other will be ignored.
+
+=head2 ( $host, $port ) = IO::Socket::IP->split_addr( $addr )
+
+Utility method that provides the parsing functionality described above.
+Returns a 2-element list, containing either the split hostname and port
+description if it could be parsed, or the given address and C<undef> if it was
+not recognised.
+
+ IO::Socket::IP->split_addr( "hostname:http" )
+                              # ( "hostname",  "http" )
+
+ IO::Socket::IP->split_addr( "192.0.2.1:80" )
+                              # ( "192.0.2.1", "80"   )
+
+ IO::Socket::IP->split_addr( "[2001:db8::1]:80" )
+                              # ( "2001:db8::1", "80" )
+
+ IO::Socket::IP->split_addr( "something.else" )
+                              # ( "something.else", undef )
+
+=cut
+
+sub split_addr
+{
+   shift;
+   my ( $addr ) = @_;
+
+   local ( $1, $2 ); # Placate a taint-related bug; [perl #67962]
+   if( $addr =~ m/\A\[($IPv6_re)\](?::([^\s:]*))?\z/ or
+       $addr =~ m/\A([^\s:]*):([^\s:]*)\z/ ) {
+      return ( $1, $2 ) if defined $2 and length $2;
+      return ( $1, undef );
+   }
+
+   return ( $addr, undef );
+}
+
+=head2 $addr = IO::Socket::IP->join_addr( $host, $port )
+
+Utility method that performs the reverse of C<split_addr>, returning a string
+formed by joining the specified host address and port number. The host address
+will be wrapped in C<[]> brackets if required (because it is a raw IPv6
+numeric address).
+
+This can be especially useful when combined with the C<sockhost_service> or
+C<peerhost_service> methods.
+
+ say "Connected to ", IO::Socket::IP->join_addr( $sock->peerhost_service );
+
+=cut
+
+sub join_addr
+{
+   shift;
+   my ( $host, $port ) = @_;
+
+   $host = "[$host]" if $host =~ m/:/;
+
+   return join ":", $host, $port if defined $port;
+   return $host;
+}
+
+# Since IO::Socket->new( Domain => ... ) will delete the Domain parameter
+# before calling ->configure, we need to keep track of which it was
+
+package # hide from indexer
+   IO::Socket::IP::_ForINET;
+use base qw( IO::Socket::IP );
+
+sub configure
+{
+   # This is evil
+   my $self = shift;
+   my ( $arg ) = @_;
+
+   bless $self, "IO::Socket::IP";
+   $self->configure( { %$arg, Family => Socket::AF_INET() } );
+}
+
+package # hide from indexer
+   IO::Socket::IP::_ForINET6;
+use base qw( IO::Socket::IP );
+
+sub configure
+{
+   # This is evil
+   my $self = shift;
+   my ( $arg ) = @_;
+
+   bless $self, "IO::Socket::IP";
+   $self->configure( { %$arg, Family => Socket::AF_INET6() } );
+}
+
+=head1 C<IO::Socket::INET> INCOMPATIBILITES
+
+=over 4
+
+=item *
+
+The behaviour enabled by C<MultiHomed> is in fact implemented by
+C<IO::Socket::IP> as it is required to correctly support searching for a
+useable address from the results of the C<getaddrinfo(3)> call. The
+constructor will ignore the value of this argument, except if it is defined
+but false. An exception is thrown in this case, because that would request it
+disable the C<getaddrinfo(3)> search behaviour in the first place.
+
+=item *
+
+C<IO::Socket::IP> implements both the C<Blocking> and C<Timeout> parameters,
+but it implements the interaction of both in a different way.
+
+In C<::INET>, supplying a timeout overrides the non-blocking behaviour,
+meaning that the C<connect()> operation will still block despite that the
+caller asked for a non-blocking socket. This is not explicitly specified in
+its documentation, nor does this author believe that is a useful behaviour -
+it appears to come from a quirk of implementation.
+
+In C<::IP> therefore, the C<Blocking> parameter takes precedence - if a
+non-blocking socket is requested, no operation will block. The C<Timeout>
+parameter here simply defines the maximum time that a blocking C<connect()>
+call will wait, if it blocks at all.
+
+In order to specifically obtain the "blocking connect then non-blocking send
+and receive" behaviour of specifying this combination of options to C<::INET>
+when using C<::IP>, perform first a blocking connect, then afterwards turn the
+socket into nonblocking mode.
+
+ my $sock = IO::Socket::IP->new(
+    PeerHost => $peer,
+    Timeout => 20,
+ ) or die "Cannot connect - $@";
+
+ $sock->blocking( 0 );
+
+This code will behave identically under both C<IO::Socket::INET> and
+C<IO::Socket::IP>.
+
+=back
+
+=cut
+
+=head1 TODO
+
+=over 4
+
+=item *
+
+Investigate whether C<POSIX::dup2> upsets BSD's C<kqueue> watchers, and if so,
+consider what possible workarounds might be applied.
+
+=back
+
+=head1 AUTHOR
+
+Paul Evans <leonerd@leonerd.org.uk>
+
+=cut
+
+0x55AA;
diff --git a/lib/5.24.1/IO/Uncompress/Adapter/Bunzip2.pm b/lib/5.24.1/IO/Uncompress/Adapter/Bunzip2.pm
new file mode 100644
index 00000000..3d8fefcf
--- /dev/null
+++ b/lib/5.24.1/IO/Uncompress/Adapter/Bunzip2.pm
@@ -0,0 +1,112 @@
+package IO::Uncompress::Adapter::Bunzip2;
+
+use strict;
+use warnings;
+use bytes;
+
+use IO::Compress::Base::Common 2.069 qw(:Status);
+
+use Compress::Raw::Bzip2 2.069 ;
+
+our ($VERSION, @ISA);
+$VERSION = '2.069_001';
+
+sub mkUncompObject
+{
+    my $small     = shift || 0;
+    my $verbosity = shift || 0;
+
+    my ($inflate, $status) = new Compress::Raw::Bunzip2(1, 1, $small, $verbosity, 1);
+
+    return (undef, "Could not create Inflation object: $status", $status)
+        if $status != BZ_OK ;
+
+    return bless {'Inf'           => $inflate,
+                  'CompSize'      => 0,
+                  'UnCompSize'    => 0,
+                  'Error'         => '',
+                  'ConsumesInput' => 1,
+                 }  ;     
+    
+}
+
+sub uncompr
+{
+    my $self = shift ;
+    my $from = shift ;
+    my $to   = shift ;
+    my $eof  = shift ;
+
+    my $inf   = $self->{Inf};
+
+    my $status = $inf->bzinflate($from, $to);
+    $self->{ErrorNo} = $status;
+
+    if ($status != BZ_OK && $status != BZ_STREAM_END )
+    {
+        $self->{Error} = "Inflation Error: $status";
+        return STATUS_ERROR;
+    }
+
+    
+    return STATUS_OK        if $status == BZ_OK ;
+    return STATUS_ENDSTREAM if $status == BZ_STREAM_END ;
+    return STATUS_ERROR ;
+}
+
+
+sub reset
+{
+    my $self = shift ;
+
+    my ($inf, $status) = new Compress::Raw::Bunzip2();
+    $self->{ErrorNo} = ($status == BZ_OK) ? 0 : $status ;
+
+    if ($status != BZ_OK)
+    {
+        $self->{Error} = "Cannot create Inflate object: $status"; 
+        return STATUS_ERROR;
+    }
+
+    $self->{Inf} = $inf;
+
+    return STATUS_OK ;
+}
+
+sub compressedBytes
+{
+    my $self = shift ;
+    $self->{Inf}->compressedBytes();
+}
+
+sub uncompressedBytes
+{
+    my $self = shift ;
+    $self->{Inf}->uncompressedBytes();
+}
+
+sub crc32
+{
+    my $self = shift ;
+    #$self->{Inf}->crc32();
+}
+
+sub adler32
+{
+    my $self = shift ;
+    #$self->{Inf}->adler32();
+}
+
+sub sync
+{
+    my $self = shift ;
+    #( $self->{Inf}->inflateSync(@_) == BZ_OK) 
+    #        ? STATUS_OK 
+    #        : STATUS_ERROR ;
+}
+
+
+1;
+
+__END__
+
diff --git a/lib/5.24.1/IO/Uncompress/Adapter/Identity.pm b/lib/5.24.1/IO/Uncompress/Adapter/Identity.pm
new file mode 100644
index 00000000..840a34fc
--- /dev/null
+++ b/lib/5.24.1/IO/Uncompress/Adapter/Identity.pm
@@ -0,0 +1,188 @@
+package IO::Uncompress::Adapter::Identity;
+
+use warnings;
+use strict;
+use bytes;
+
+use IO::Compress::Base::Common  2.069 qw(:Status);
+use IO::Compress::Zip::Constants ;
+
+our ($VERSION);
+
+$VERSION = '2.069_001';
+
+use Compress::Raw::Zlib  2.069 ();
+
+sub mkUncompObject
+{
+    my $streaming = shift;
+    my $zip64 = shift;
+
+    my $crc32 = 1; #shift ;
+    my $adler32 = shift;
+
+    bless { 'CompSize'   => new U64 , # 0,
+            'UnCompSize' => 0,
+            'wantCRC32'  => $crc32,
+            'CRC32'      => Compress::Raw::Zlib::crc32(''),
+            'wantADLER32'=> $adler32,
+            'ADLER32'    => Compress::Raw::Zlib::adler32(''),
+            'ConsumesInput' => 1,
+            'Streaming'  => $streaming,
+            'Zip64'      => $zip64,
+            'DataHdrSize'  => $zip64 ? 24 :  16,
+            'Pending'   => '',
+
+          } ;
+}
+
+
+sub uncompr
+{
+    my $self = shift;
+    my $in = $_[0];
+    my $eof = $_[2];
+
+    my $len = length $$in;
+    my $remainder = '';
+
+    if (defined $$in && $len) {
+
+        if ($self->{Streaming}) {
+
+            if (length $self->{Pending}) {
+                $$in = $self->{Pending} . $$in ;
+                $len = length $$in;
+                $self->{Pending} = '';
+            }
+
+            my $ind = index($$in, "\x50\x4b\x07\x08");
+
+            if ($ind < 0) {
+                $len = length $$in;
+                if ($len >= 3 && substr($$in, -3) eq "\x50\x4b\x07") {
+                    $ind = $len - 3 ;
+                }
+                elsif ($len >= 2 && substr($$in, -2) eq "\x50\x4b") {
+                    $ind = $len - 2 ;
+                }
+                elsif ($len >= 1 && substr($$in, -1) eq "\x50") {
+                    $ind = $len - 1 ;
+                }
+            }
+           
+            if ($ind >= 0) {
+                $remainder = substr($$in, $ind) ;
+                substr($$in, $ind) = '' ;
+            }
+        }
+
+        if (length $remainder && length $remainder < $self->{DataHdrSize}) {
+            $self->{Pending} = $remainder ;
+            $remainder = '';
+        }
+        elsif (length $remainder >= $self->{DataHdrSize}) {
+            my $crc = unpack "V", substr($remainder, 4);
+            if ($crc == Compress::Raw::Zlib::crc32($$in,  $self->{CRC32})) {
+                my ($l1, $l2) ;
+
+                if ($self->{Zip64}) {
+                    $l1 = U64::newUnpack_V64(substr($remainder, 8));
+                    $l2 = U64::newUnpack_V64(substr($remainder, 16));
+                }
+                else {
+                    $l1 = U64::newUnpack_V32(substr($remainder, 8));
+                    $l2 = U64::newUnpack_V32(substr($remainder, 12));
+                }
+                    
+                my $newLen = $self->{CompSize}->clone();
+                $newLen->add(length $$in);
+                if ($l1->equal($l2) && $l1->equal($newLen) ) {
+                    $eof = 1;
+                }
+                else {
+                    $$in .= substr($remainder, 0, 4) ;
+                    $remainder       = substr($remainder, 4);
+                    #$self->{Pending} = substr($remainder, 4);
+                    #$remainder = '';
+                    $eof = 0;
+                }
+            }
+            else {
+                $$in .= substr($remainder, 0, 4) ;
+                $remainder       = substr($remainder, 4);
+                #$self->{Pending} = substr($remainder, 4);
+                #$remainder = '';
+                $eof = 0;
+            }
+        }
+
+        if (length $$in) {
+            $self->{CompSize}->add(length $$in) ;
+
+            $self->{CRC32} = Compress::Raw::Zlib::crc32($$in,  $self->{CRC32})
+                if $self->{wantCRC32};
+
+            $self->{ADLER32} = Compress::Zlib::adler32($$in,  $self->{ADLER32})
+                if $self->{wantADLER32};
+        }
+
+        ${ $_[1] } .= $$in;
+        $$in  = $remainder;
+    }
+
+    return STATUS_ENDSTREAM if $eof;
+    return STATUS_OK ;
+}
+
+sub reset
+{
+    my $self = shift;
+
+    $self->{CompSize}   = 0;
+    $self->{UnCompSize} = 0;
+    $self->{CRC32}      = Compress::Raw::Zlib::crc32('');
+    $self->{ADLER32}    = Compress::Raw::Zlib::adler32('');      
+
+    return STATUS_OK ;
+}
+
+#sub count
+#{
+#    my $self = shift ;
+#    return $self->{UnCompSize} ;
+#}
+
+sub compressedBytes
+{
+    my $self = shift ;
+    return $self->{CompSize} ;
+}
+
+sub uncompressedBytes
+{
+    my $self = shift ;
+    return $self->{CompSize} ;
+}
+
+sub sync
+{
+    return STATUS_OK ;
+}
+
+sub crc32
+{
+    my $self = shift ;
+    return $self->{CRC32};
+}
+
+sub adler32
+{
+    my $self = shift ;
+    return $self->{ADLER32};
+}
+
+
+1;
+
+__END__
diff --git a/lib/5.24.1/IO/Uncompress/Adapter/Inflate.pm b/lib/5.24.1/IO/Uncompress/Adapter/Inflate.pm
new file mode 100644
index 00000000..d23eb900
--- /dev/null
+++ b/lib/5.24.1/IO/Uncompress/Adapter/Inflate.pm
@@ -0,0 +1,158 @@
+package IO::Uncompress::Adapter::Inflate;
+
+use strict;
+use warnings;
+#use bytes;
+
+use IO::Compress::Base::Common  2.069 qw(:Status);
+use Compress::Raw::Zlib  2.069 qw(Z_OK Z_BUF_ERROR Z_STREAM_END Z_FINISH MAX_WBITS);
+
+our ($VERSION);
+$VERSION = '2.069_001';
+
+
+
+sub mkUncompObject
+{
+    my $crc32   = shift || 1;
+    my $adler32 = shift || 1;
+    my $scan    = shift || 0;
+
+    my $inflate ;
+    my $status ;
+
+    if ($scan)
+    {
+        ($inflate, $status) = new Compress::Raw::Zlib::InflateScan
+                                    #LimitOutput  => 1,
+                                    CRC32        => $crc32,
+                                    ADLER32      => $adler32,
+                                    WindowBits   => - MAX_WBITS ;
+    }
+    else
+    {
+        ($inflate, $status) = new Compress::Raw::Zlib::Inflate
+                                    AppendOutput => 1,
+                                    LimitOutput  => 1,
+                                    CRC32        => $crc32,
+                                    ADLER32      => $adler32,
+                                    WindowBits   => - MAX_WBITS ;
+    }
+
+    return (undef, "Could not create Inflation object: $status", $status) 
+        if $status != Z_OK ;
+
+    return bless {'Inf'        => $inflate,
+                  'CompSize'   => 0,
+                  'UnCompSize' => 0,
+                  'Error'      => '',
+                  'ConsumesInput' => 1,
+                 } ;     
+    
+}
+
+sub uncompr
+{
+    my $self = shift ;
+    my $from = shift ;
+    my $to   = shift ;
+    my $eof  = shift ;
+
+    my $inf   = $self->{Inf};
+
+    my $status = $inf->inflate($from, $to, $eof);
+    $self->{ErrorNo} = $status;
+
+    if ($status != Z_OK && $status != Z_STREAM_END && $status != Z_BUF_ERROR)
+    {
+        $self->{Error} = "Inflation Error: $status";
+        return STATUS_ERROR;
+    }
+            
+    return STATUS_OK        if $status == Z_BUF_ERROR ; # ???
+    return STATUS_OK        if $status == Z_OK ;
+    return STATUS_ENDSTREAM if $status == Z_STREAM_END ;
+    return STATUS_ERROR ;
+}
+
+sub reset
+{
+    my $self = shift ;
+    $self->{Inf}->inflateReset();
+
+    return STATUS_OK ;
+}
+
+#sub count
+#{
+#    my $self = shift ;
+#    $self->{Inf}->inflateCount();
+#}
+
+sub crc32
+{
+    my $self = shift ;
+    $self->{Inf}->crc32();
+}
+
+sub compressedBytes
+{
+    my $self = shift ;
+    $self->{Inf}->compressedBytes();
+}
+
+sub uncompressedBytes
+{
+    my $self = shift ;
+    $self->{Inf}->uncompressedBytes();
+}
+
+sub adler32
+{
+    my $self = shift ;
+    $self->{Inf}->adler32();
+}
+
+sub sync
+{
+    my $self = shift ;
+    ( $self->{Inf}->inflateSync(@_) == Z_OK) 
+            ? STATUS_OK 
+            : STATUS_ERROR ;
+}
+
+
+sub getLastBlockOffset
+{
+    my $self = shift ;
+    $self->{Inf}->getLastBlockOffset();
+}
+
+sub getEndOffset
+{
+    my $self = shift ;
+    $self->{Inf}->getEndOffset();
+}
+
+sub resetLastBlockByte
+{
+    my $self = shift ;
+    $self->{Inf}->resetLastBlockByte(@_);
+}
+
+sub createDeflateStream
+{
+    my $self = shift ;
+    my $deflate = $self->{Inf}->createDeflateStream(@_);
+    return bless {'Def'        => $deflate,
+                  'CompSize'   => 0,
+                  'UnCompSize' => 0,
+                  'Error'      => '',
+                 }, 'IO::Compress::Adapter::Deflate';
+}
+
+1;
+
+
+__END__
+
diff --git a/lib/5.24.1/IO/Uncompress/AnyInflate.pm b/lib/5.24.1/IO/Uncompress/AnyInflate.pm
new file mode 100644
index 00000000..637e6299
--- /dev/null
+++ b/lib/5.24.1/IO/Uncompress/AnyInflate.pm
@@ -0,0 +1,1002 @@
+package IO::Uncompress::AnyInflate ;
+
+# for RFC1950, RFC1951 or RFC1952
+
+use strict;
+use warnings;
+use bytes;
+
+use IO::Compress::Base::Common  2.069 ();
+
+use IO::Uncompress::Adapter::Inflate  2.069 ();
+
+
+use IO::Uncompress::Base  2.069 ;
+use IO::Uncompress::Gunzip  2.069 ;
+use IO::Uncompress::Inflate  2.069 ;
+use IO::Uncompress::RawInflate  2.069 ;
+use IO::Uncompress::Unzip  2.069 ;
+
+require Exporter ;
+
+our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $AnyInflateError);
+
+$VERSION = '2.069_001';
+$AnyInflateError = '';
+
+@ISA = qw( Exporter IO::Uncompress::Base );
+@EXPORT_OK = qw( $AnyInflateError anyinflate ) ;
+%EXPORT_TAGS = %IO::Uncompress::Base::DEFLATE_CONSTANTS ;
+push @{ $EXPORT_TAGS{all} }, @EXPORT_OK ;
+Exporter::export_ok_tags('all');
+
+# TODO - allow the user to pick a set of the three formats to allow
+#        or just assume want to auto-detect any of the three formats.
+
+sub new
+{
+    my $class = shift ;
+    my $obj = IO::Compress::Base::Common::createSelfTiedObject($class, \$AnyInflateError);
+    $obj->_create(undef, 0, @_);
+}
+
+sub anyinflate
+{
+    my $obj = IO::Compress::Base::Common::createSelfTiedObject(undef, \$AnyInflateError);
+    return $obj->_inf(@_) ;
+}
+
+sub getExtraParams
+{
+    use IO::Compress::Base::Common  2.069 qw(:Parse);
+    return ( 'rawinflate' => [Parse_boolean,  0] ) ;
+}
+
+sub ckParams
+{
+    my $self = shift ;
+    my $got = shift ;
+
+    # any always needs both crc32 and adler32
+    $got->setValue('crc32' => 1);
+    $got->setValue('adler32' => 1);
+
+    return 1;
+}
+
+sub mkUncomp
+{
+    my $self = shift ;
+    my $got = shift ;
+
+    my ($obj, $errstr, $errno) = IO::Uncompress::Adapter::Inflate::mkUncompObject();
+
+    return $self->saveErrorString(undef, $errstr, $errno)
+        if ! defined $obj;
+
+    *$self->{Uncomp} = $obj;
+    
+     my @possible = qw( Inflate Gunzip Unzip );
+     unshift @possible, 'RawInflate' 
+        if 1 || $got->getValue('rawinflate');
+
+     my $magic = $self->ckMagic( @possible );
+
+     if ($magic) {
+        *$self->{Info} = $self->readHeader($magic)
+            or return undef ;
+
+        return 1;
+     }
+
+     return 0 ;
+}
+
+
+
+sub ckMagic
+{
+    my $self = shift;
+    my @names = @_ ;
+
+    my $keep = ref $self ;
+    for my $class ( map { "IO::Uncompress::$_" } @names)
+    {
+        bless $self => $class;
+        my $magic = $self->ckMagic();
+
+        if ($magic)
+        {
+            #bless $self => $class;
+            return $magic ;
+        }
+
+        $self->pushBack(*$self->{HeaderPending})  ;
+        *$self->{HeaderPending} = ''  ;
+    }    
+
+    bless $self => $keep;
+    return undef;
+}
+
+1 ;
+
+__END__
+
+
+=head1 NAME
+
+IO::Uncompress::AnyInflate - Uncompress zlib-based (zip, gzip) file/buffer
+
+=head1 SYNOPSIS
+
+    use IO::Uncompress::AnyInflate qw(anyinflate $AnyInflateError) ;
+
+    my $status = anyinflate $input => $output [,OPTS]
+        or die "anyinflate failed: $AnyInflateError\n";
+
+    my $z = new IO::Uncompress::AnyInflate $input [OPTS] 
+        or die "anyinflate failed: $AnyInflateError\n";
+
+    $status = $z->read($buffer)
+    $status = $z->read($buffer, $length)
+    $status = $z->read($buffer, $length, $offset)
+    $line = $z->getline()
+    $char = $z->getc()
+    $char = $z->ungetc()
+    $char = $z->opened()
+
+    $status = $z->inflateSync()
+
+    $data = $z->trailingData()
+    $status = $z->nextStream()
+    $data = $z->getHeaderInfo()
+    $z->tell()
+    $z->seek($position, $whence)
+    $z->binmode()
+    $z->fileno()
+    $z->eof()
+    $z->close()
+
+    $AnyInflateError ;
+
+    # IO::File mode
+
+    <$z>
+    read($z, $buffer);
+    read($z, $buffer, $length);
+    read($z, $buffer, $length, $offset);
+    tell($z)
+    seek($z, $position, $whence)
+    binmode($z)
+    fileno($z)
+    eof($z)
+    close($z)
+
+=head1 DESCRIPTION
+
+This module provides a Perl interface that allows the reading of
+files/buffers that have been compressed in a number of formats that use the
+zlib compression library.
+
+The formats supported are
+
+=over 5
+
+=item RFC 1950
+
+=item RFC 1951 (optionally)
+
+=item gzip (RFC 1952)
+
+=item zip
+
+=back
+
+The module will auto-detect which, if any, of the supported
+compression formats is being used.
+
+=head1 Functional Interface
+
+A top-level function, C<anyinflate>, is provided to carry out
+"one-shot" uncompression between buffers and/or files. For finer
+control over the uncompression process, see the L</"OO Interface">
+section.
+
+    use IO::Uncompress::AnyInflate qw(anyinflate $AnyInflateError) ;
+
+    anyinflate $input_filename_or_reference => $output_filename_or_reference [,OPTS] 
+        or die "anyinflate failed: $AnyInflateError\n";
+
+The functional interface needs Perl5.005 or better.
+
+=head2 anyinflate $input_filename_or_reference => $output_filename_or_reference [, OPTS]
+
+C<anyinflate> expects at least two parameters,
+C<$input_filename_or_reference> and C<$output_filename_or_reference>.
+
+=head3 The C<$input_filename_or_reference> parameter
+
+The parameter, C<$input_filename_or_reference>, is used to define the
+source of the compressed data. 
+
+It can take one of the following forms:
+
+=over 5
+
+=item A filename
+
+If the <$input_filename_or_reference> parameter is a simple scalar, it is
+assumed to be a filename. This file will be opened for reading and the
+input data will be read from it.
+
+=item A filehandle
+
+If the C<$input_filename_or_reference> parameter is a filehandle, the input
+data will be read from it.  The string '-' can be used as an alias for
+standard input.
+
+=item A scalar reference 
+
+If C<$input_filename_or_reference> is a scalar reference, the input data
+will be read from C<$$input_filename_or_reference>.
+
+=item An array reference 
+
+If C<$input_filename_or_reference> is an array reference, each element in
+the array must be a filename.
+
+The input data will be read from each file in turn. 
+
+The complete array will be walked to ensure that it only
+contains valid filenames before any data is uncompressed.
+
+=item An Input FileGlob string
+
+If C<$input_filename_or_reference> is a string that is delimited by the
+characters "<" and ">" C<anyinflate> will assume that it is an 
+I<input fileglob string>. The input is the list of files that match the 
+fileglob.
+
+See L<File::GlobMapper|File::GlobMapper> for more details.
+
+=back
+
+If the C<$input_filename_or_reference> parameter is any other type,
+C<undef> will be returned.
+
+=head3 The C<$output_filename_or_reference> parameter
+
+The parameter C<$output_filename_or_reference> is used to control the
+destination of the uncompressed data. This parameter can take one of
+these forms.
+
+=over 5
+
+=item A filename
+
+If the C<$output_filename_or_reference> parameter is a simple scalar, it is
+assumed to be a filename.  This file will be opened for writing and the 
+uncompressed data will be written to it.
+
+=item A filehandle
+
+If the C<$output_filename_or_reference> parameter is a filehandle, the
+uncompressed data will be written to it.  The string '-' can be used as
+an alias for standard output.
+
+=item A scalar reference 
+
+If C<$output_filename_or_reference> is a scalar reference, the
+uncompressed data will be stored in C<$$output_filename_or_reference>.
+
+=item An Array Reference
+
+If C<$output_filename_or_reference> is an array reference, 
+the uncompressed data will be pushed onto the array.
+
+=item An Output FileGlob
+
+If C<$output_filename_or_reference> is a string that is delimited by the
+characters "<" and ">" C<anyinflate> will assume that it is an
+I<output fileglob string>. The output is the list of files that match the
+fileglob.
+
+When C<$output_filename_or_reference> is an fileglob string,
+C<$input_filename_or_reference> must also be a fileglob string. Anything
+else is an error.
+
+See L<File::GlobMapper|File::GlobMapper> for more details.
+
+=back
+
+If the C<$output_filename_or_reference> parameter is any other type,
+C<undef> will be returned.
+
+=head2 Notes
+
+When C<$input_filename_or_reference> maps to multiple compressed
+files/buffers and C<$output_filename_or_reference> is
+a single file/buffer, after uncompression C<$output_filename_or_reference> will contain a
+concatenation of all the uncompressed data from each of the input
+files/buffers.
+
+=head2 Optional Parameters
+
+Unless specified below, the optional parameters for C<anyinflate>,
+C<OPTS>, are the same as those used with the OO interface defined in the
+L</"Constructor Options"> section below.
+
+=over 5
+
+=item C<< AutoClose => 0|1 >>
+
+This option applies to any input or output data streams to 
+C<anyinflate> that are filehandles.
+
+If C<AutoClose> is specified, and the value is true, it will result in all
+input and/or output filehandles being closed once C<anyinflate> has
+completed.
+
+This parameter defaults to 0.
+
+=item C<< BinModeOut => 0|1 >>
+
+When writing to a file or filehandle, set C<binmode> before writing to the
+file.
+
+Defaults to 0.
+
+=item C<< Append => 0|1 >>
+
+The behaviour of this option is dependent on the type of output data
+stream.
+
+=over 5
+
+=item * A Buffer
+
+If C<Append> is enabled, all uncompressed data will be append to the end of
+the output buffer. Otherwise the output buffer will be cleared before any
+uncompressed data is written to it.
+
+=item * A Filename
+
+If C<Append> is enabled, the file will be opened in append mode. Otherwise
+the contents of the file, if any, will be truncated before any uncompressed
+data is written to it.
+
+=item * A Filehandle
+
+If C<Append> is enabled, the filehandle will be positioned to the end of
+the file via a call to C<seek> before any uncompressed data is
+written to it.  Otherwise the file pointer will not be moved.
+
+=back
+
+When C<Append> is specified, and set to true, it will I<append> all uncompressed 
+data to the output data stream.
+
+So when the output is a filehandle it will carry out a seek to the eof
+before writing any uncompressed data. If the output is a filename, it will be opened for
+appending. If the output is a buffer, all uncompressed data will be
+appended to the existing buffer.
+
+Conversely when C<Append> is not specified, or it is present and is set to
+false, it will operate as follows.
+
+When the output is a filename, it will truncate the contents of the file
+before writing any uncompressed data. If the output is a filehandle
+its position will not be changed. If the output is a buffer, it will be
+wiped before any uncompressed data is output.
+
+Defaults to 0.
+
+=item C<< MultiStream => 0|1 >>
+
+If the input file/buffer contains multiple compressed data streams, this
+option will uncompress the whole lot as a single data stream.
+
+Defaults to 0.
+
+=item C<< TrailingData => $scalar >>
+
+Returns the data, if any, that is present immediately after the compressed
+data stream once uncompression is complete. 
+
+This option can be used when there is useful information immediately
+following the compressed data stream, and you don't know the length of the
+compressed data stream.
+
+If the input is a buffer, C<trailingData> will return everything from the
+end of the compressed data stream to the end of the buffer.
+
+If the input is a filehandle, C<trailingData> will return the data that is
+left in the filehandle input buffer once the end of the compressed data
+stream has been reached. You can then use the filehandle to read the rest
+of the input file. 
+
+Don't bother using C<trailingData> if the input is a filename.
+
+If you know the length of the compressed data stream before you start
+uncompressing, you can avoid having to use C<trailingData> by setting the
+C<InputLength> option.
+
+=back
+
+=head2 Examples
+
+To read the contents of the file C<file1.txt.Compressed> and write the
+uncompressed data to the file C<file1.txt>.
+
+    use strict ;
+    use warnings ;
+    use IO::Uncompress::AnyInflate qw(anyinflate $AnyInflateError) ;
+
+    my $input = "file1.txt.Compressed";
+    my $output = "file1.txt";
+    anyinflate $input => $output
+        or die "anyinflate failed: $AnyInflateError\n";
+
+To read from an existing Perl filehandle, C<$input>, and write the
+uncompressed data to a buffer, C<$buffer>.
+
+    use strict ;
+    use warnings ;
+    use IO::Uncompress::AnyInflate qw(anyinflate $AnyInflateError) ;
+    use IO::File ;
+
+    my $input = new IO::File "<file1.txt.Compressed"
+        or die "Cannot open 'file1.txt.Compressed': $!\n" ;
+    my $buffer ;
+    anyinflate $input => \$buffer 
+        or die "anyinflate failed: $AnyInflateError\n";
+
+To uncompress all files in the directory "/my/home" that match "*.txt.Compressed" and store the compressed data in the same directory
+
+    use strict ;
+    use warnings ;
+    use IO::Uncompress::AnyInflate qw(anyinflate $AnyInflateError) ;
+
+    anyinflate '</my/home/*.txt.Compressed>' => '</my/home/#1.txt>'
+        or die "anyinflate failed: $AnyInflateError\n";
+
+and if you want to compress each file one at a time, this will do the trick
+
+    use strict ;
+    use warnings ;
+    use IO::Uncompress::AnyInflate qw(anyinflate $AnyInflateError) ;
+
+    for my $input ( glob "/my/home/*.txt.Compressed" )
+    {
+        my $output = $input;
+        $output =~ s/.Compressed// ;
+        anyinflate $input => $output 
+            or die "Error compressing '$input': $AnyInflateError\n";
+    }
+
+=head1 OO Interface
+
+=head2 Constructor
+
+The format of the constructor for IO::Uncompress::AnyInflate is shown below
+
+    my $z = new IO::Uncompress::AnyInflate $input [OPTS]
+        or die "IO::Uncompress::AnyInflate failed: $AnyInflateError\n";
+
+Returns an C<IO::Uncompress::AnyInflate> object on success and undef on failure.
+The variable C<$AnyInflateError> will contain an error message on failure.
+
+If you are running Perl 5.005 or better the object, C<$z>, returned from
+IO::Uncompress::AnyInflate can be used exactly like an L<IO::File|IO::File> filehandle.
+This means that all normal input file operations can be carried out with
+C<$z>.  For example, to read a line from a compressed file/buffer you can
+use either of these forms
+
+    $line = $z->getline();
+    $line = <$z>;
+
+The mandatory parameter C<$input> is used to determine the source of the
+compressed data. This parameter can take one of three forms.
+
+=over 5
+
+=item A filename
+
+If the C<$input> parameter is a scalar, it is assumed to be a filename. This
+file will be opened for reading and the compressed data will be read from it.
+
+=item A filehandle
+
+If the C<$input> parameter is a filehandle, the compressed data will be
+read from it.
+The string '-' can be used as an alias for standard input.
+
+=item A scalar reference 
+
+If C<$input> is a scalar reference, the compressed data will be read from
+C<$$input>.
+
+=back
+
+=head2 Constructor Options
+
+The option names defined below are case insensitive and can be optionally
+prefixed by a '-'.  So all of the following are valid
+
+    -AutoClose
+    -autoclose
+    AUTOCLOSE
+    autoclose
+
+OPTS is a combination of the following options:
+
+=over 5
+
+=item C<< AutoClose => 0|1 >>
+
+This option is only valid when the C<$input> parameter is a filehandle. If
+specified, and the value is true, it will result in the file being closed once
+either the C<close> method is called or the IO::Uncompress::AnyInflate object is
+destroyed.
+
+This parameter defaults to 0.
+
+=item C<< MultiStream => 0|1 >>
+
+Allows multiple concatenated compressed streams to be treated as a single
+compressed stream. Decompression will stop once either the end of the
+file/buffer is reached, an error is encountered (premature eof, corrupt
+compressed data) or the end of a stream is not immediately followed by the
+start of another stream.
+
+This parameter defaults to 0.
+
+=item C<< Prime => $string >>
+
+This option will uncompress the contents of C<$string> before processing the
+input file/buffer.
+
+This option can be useful when the compressed data is embedded in another
+file/data structure and it is not possible to work out where the compressed
+data begins without having to read the first few bytes. If this is the
+case, the uncompression can be I<primed> with these bytes using this
+option.
+
+=item C<< Transparent => 0|1 >>
+
+If this option is set and the input file/buffer is not compressed data,
+the module will allow reading of it anyway.
+
+In addition, if the input file/buffer does contain compressed data and
+there is non-compressed data immediately following it, setting this option
+will make this module treat the whole file/buffer as a single data stream.
+
+This option defaults to 1.
+
+=item C<< BlockSize => $num >>
+
+When reading the compressed input data, IO::Uncompress::AnyInflate will read it in
+blocks of C<$num> bytes.
+
+This option defaults to 4096.
+
+=item C<< InputLength => $size >>
+
+When present this option will limit the number of compressed bytes read
+from the input file/buffer to C<$size>. This option can be used in the
+situation where there is useful data directly after the compressed data
+stream and you know beforehand the exact length of the compressed data
+stream. 
+
+This option is mostly used when reading from a filehandle, in which case
+the file pointer will be left pointing to the first byte directly after the
+compressed data stream.
+
+This option defaults to off.
+
+=item C<< Append => 0|1 >>
+
+This option controls what the C<read> method does with uncompressed data.
+
+If set to 1, all uncompressed data will be appended to the output parameter
+of the C<read> method.
+
+If set to 0, the contents of the output parameter of the C<read> method
+will be overwritten by the uncompressed data.
+
+Defaults to 0.
+
+=item C<< Strict => 0|1 >>
+
+This option controls whether the extra checks defined below are used when
+carrying out the decompression. When Strict is on, the extra tests are
+carried out, when Strict is off they are not.
+
+The default for this option is off.
+
+If the input is an RFC 1950 data stream, the following will be checked:
+
+=over 5
+
+=item 1
+
+The ADLER32 checksum field must be present.
+
+=item 2
+
+The value of the ADLER32 field read must match the adler32 value of the
+uncompressed data actually contained in the file.
+
+=back
+
+If the input is a gzip (RFC 1952) data stream, the following will be checked:
+
+=over 5
+
+=item 1 
+
+If the FHCRC bit is set in the gzip FLG header byte, the CRC16 bytes in the
+header must match the crc16 value of the gzip header actually read.
+
+=item 2
+
+If the gzip header contains a name field (FNAME) it consists solely of ISO
+8859-1 characters.
+
+=item 3
+
+If the gzip header contains a comment field (FCOMMENT) it consists solely
+of ISO 8859-1 characters plus line-feed.
+
+=item 4
+
+If the gzip FEXTRA header field is present it must conform to the sub-field
+structure as defined in RFC 1952.
+
+=item 5
+
+The CRC32 and ISIZE trailer fields must be present.
+
+=item 6
+
+The value of the CRC32 field read must match the crc32 value of the
+uncompressed data actually contained in the gzip file.
+
+=item 7
+
+The value of the ISIZE fields read must match the length of the
+uncompressed data actually read from the file.
+
+=back
+
+=item C<< RawInflate => 0|1 >>
+
+When auto-detecting the compressed format, try to test for raw-deflate (RFC
+1951) content using the C<IO::Uncompress::RawInflate> module. 
+
+The reason this is not default behaviour is because RFC 1951 content can
+only be detected by attempting to uncompress it. This process is error
+prone and can result is false positives.
+
+Defaults to 0.
+
+=item C<< ParseExtra => 0|1 >>
+If the gzip FEXTRA header field is present and this option is set, it will
+force the module to check that it conforms to the sub-field structure as
+defined in RFC 1952.
+
+If the C<Strict> is on it will automatically enable this option.
+
+Defaults to 0.
+
+=back
+
+=head2 Examples
+
+TODO
+
+=head1 Methods 
+
+=head2 read
+
+Usage is
+
+    $status = $z->read($buffer)
+
+Reads a block of compressed data (the size of the compressed block is
+determined by the C<Buffer> option in the constructor), uncompresses it and
+writes any uncompressed data into C<$buffer>. If the C<Append> parameter is
+set in the constructor, the uncompressed data will be appended to the
+C<$buffer> parameter. Otherwise C<$buffer> will be overwritten.
+
+Returns the number of uncompressed bytes written to C<$buffer>, zero if eof
+or a negative number on error.
+
+=head2 read
+
+Usage is
+
+    $status = $z->read($buffer, $length)
+    $status = $z->read($buffer, $length, $offset)
+
+    $status = read($z, $buffer, $length)
+    $status = read($z, $buffer, $length, $offset)
+
+Attempt to read C<$length> bytes of uncompressed data into C<$buffer>.
+
+The main difference between this form of the C<read> method and the
+previous one, is that this one will attempt to return I<exactly> C<$length>
+bytes. The only circumstances that this function will not is if end-of-file
+or an IO error is encountered.
+
+Returns the number of uncompressed bytes written to C<$buffer>, zero if eof
+or a negative number on error.
+
+=head2 getline
+
+Usage is
+
+    $line = $z->getline()
+    $line = <$z>
+
+Reads a single line. 
+
+This method fully supports the use of the variable C<$/> (or
+C<$INPUT_RECORD_SEPARATOR> or C<$RS> when C<English> is in use) to
+determine what constitutes an end of line. Paragraph mode, record mode and
+file slurp mode are all supported. 
+
+=head2 getc
+
+Usage is 
+
+    $char = $z->getc()
+
+Read a single character.
+
+=head2 ungetc
+
+Usage is
+
+    $char = $z->ungetc($string)
+
+=head2 inflateSync
+
+Usage is
+
+    $status = $z->inflateSync()
+
+TODO
+
+=head2 getHeaderInfo
+
+Usage is
+
+    $hdr  = $z->getHeaderInfo();
+    @hdrs = $z->getHeaderInfo();
+
+This method returns either a hash reference (in scalar context) or a list
+or hash references (in array context) that contains information about each
+of the header fields in the compressed data stream(s).
+
+=head2 tell
+
+Usage is
+
+    $z->tell()
+    tell $z
+
+Returns the uncompressed file offset.
+
+=head2 eof
+
+Usage is
+
+    $z->eof();
+    eof($z);
+
+Returns true if the end of the compressed input stream has been reached.
+
+=head2 seek
+
+    $z->seek($position, $whence);
+    seek($z, $position, $whence);
+
+Provides a sub-set of the C<seek> functionality, with the restriction
+that it is only legal to seek forward in the input file/buffer.
+It is a fatal error to attempt to seek backward.
+
+Note that the implementation of C<seek> in this module does not provide
+true random access to a compressed file/buffer. It  works by uncompressing
+data from the current offset in the file/buffer until it reaches the
+uncompressed offset specified in the parameters to C<seek>. For very small
+files this may be acceptable behaviour. For large files it may cause an
+unacceptable delay.
+
+The C<$whence> parameter takes one the usual values, namely SEEK_SET,
+SEEK_CUR or SEEK_END.
+
+Returns 1 on success, 0 on failure.
+
+=head2 binmode
+
+Usage is
+
+    $z->binmode
+    binmode $z ;
+
+This is a noop provided for completeness.
+
+=head2 opened
+
+    $z->opened()
+
+Returns true if the object currently refers to a opened file/buffer. 
+
+=head2 autoflush
+
+    my $prev = $z->autoflush()
+    my $prev = $z->autoflush(EXPR)
+
+If the C<$z> object is associated with a file or a filehandle, this method
+returns the current autoflush setting for the underlying filehandle. If
+C<EXPR> is present, and is non-zero, it will enable flushing after every
+write/print operation.
+
+If C<$z> is associated with a buffer, this method has no effect and always
+returns C<undef>.
+
+B<Note> that the special variable C<$|> B<cannot> be used to set or
+retrieve the autoflush setting.
+
+=head2 input_line_number
+
+    $z->input_line_number()
+    $z->input_line_number(EXPR)
+
+Returns the current uncompressed line number. If C<EXPR> is present it has
+the effect of setting the line number. Note that setting the line number
+does not change the current position within the file/buffer being read.
+
+The contents of C<$/> are used to determine what constitutes a line
+terminator.
+
+=head2 fileno
+
+    $z->fileno()
+    fileno($z)
+
+If the C<$z> object is associated with a file or a filehandle, C<fileno>
+will return the underlying file descriptor. Once the C<close> method is
+called C<fileno> will return C<undef>.
+
+If the C<$z> object is associated with a buffer, this method will return
+C<undef>.
+
+=head2 close
+
+    $z->close() ;
+    close $z ;
+
+Closes the output file/buffer. 
+
+For most versions of Perl this method will be automatically invoked if
+the IO::Uncompress::AnyInflate object is destroyed (either explicitly or by the
+variable with the reference to the object going out of scope). The
+exceptions are Perl versions 5.005 through 5.00504 and 5.8.0. In
+these cases, the C<close> method will be called automatically, but
+not until global destruction of all live objects when the program is
+terminating.
+
+Therefore, if you want your scripts to be able to run on all versions
+of Perl, you should call C<close> explicitly and not rely on automatic
+closing.
+
+Returns true on success, otherwise 0.
+
+If the C<AutoClose> option has been enabled when the IO::Uncompress::AnyInflate
+object was created, and the object is associated with a file, the
+underlying file will also be closed.
+
+=head2 nextStream
+
+Usage is
+
+    my $status = $z->nextStream();
+
+Skips to the next compressed data stream in the input file/buffer. If a new
+compressed data stream is found, the eof marker will be cleared and C<$.>
+will be reset to 0.
+
+Returns 1 if a new stream was found, 0 if none was found, and -1 if an
+error was encountered.
+
+=head2 trailingData
+
+Usage is
+
+    my $data = $z->trailingData();
+
+Returns the data, if any, that is present immediately after the compressed
+data stream once uncompression is complete. It only makes sense to call
+this method once the end of the compressed data stream has been
+encountered.
+
+This option can be used when there is useful information immediately
+following the compressed data stream, and you don't know the length of the
+compressed data stream.
+
+If the input is a buffer, C<trailingData> will return everything from the
+end of the compressed data stream to the end of the buffer.
+
+If the input is a filehandle, C<trailingData> will return the data that is
+left in the filehandle input buffer once the end of the compressed data
+stream has been reached. You can then use the filehandle to read the rest
+of the input file. 
+
+Don't bother using C<trailingData> if the input is a filename.
+
+If you know the length of the compressed data stream before you start
+uncompressing, you can avoid having to use C<trailingData> by setting the
+C<InputLength> option in the constructor.
+
+=head1 Importing 
+
+No symbolic constants are required by this IO::Uncompress::AnyInflate at present. 
+
+=over 5
+
+=item :all
+
+Imports C<anyinflate> and C<$AnyInflateError>.
+Same as doing this
+
+    use IO::Uncompress::AnyInflate qw(anyinflate $AnyInflateError) ;
+
+=back
+
+=head1 EXAMPLES
+
+=head2 Working with Net::FTP
+
+See L<IO::Compress::FAQ|IO::Compress::FAQ/"Compressed files and Net::FTP">
+
+=head1 SEE ALSO
+
+L<Compress::Zlib>, L<IO::Compress::Gzip>, L<IO::Uncompress::Gunzip>, L<IO::Compress::Deflate>, L<IO::Uncompress::Inflate>, L<IO::Compress::RawDeflate>, L<IO::Uncompress::RawInflate>, L<IO::Compress::Bzip2>, L<IO::Uncompress::Bunzip2>, L<IO::Compress::Lzma>, L<IO::Uncompress::UnLzma>, L<IO::Compress::Xz>, L<IO::Uncompress::UnXz>, L<IO::Compress::Lzop>, L<IO::Uncompress::UnLzop>, L<IO::Compress::Lzf>, L<IO::Uncompress::UnLzf>, L<IO::Uncompress::AnyUncompress>
+
+L<IO::Compress::FAQ|IO::Compress::FAQ>
+
+L<File::GlobMapper|File::GlobMapper>, L<Archive::Zip|Archive::Zip>,
+L<Archive::Tar|Archive::Tar>,
+L<IO::Zlib|IO::Zlib>
+
+For RFC 1950, 1951 and 1952 see 
+F<http://www.faqs.org/rfcs/rfc1950.html>,
+F<http://www.faqs.org/rfcs/rfc1951.html> and
+F<http://www.faqs.org/rfcs/rfc1952.html>
+
+The I<zlib> compression library was written by Jean-loup Gailly
+F<gzip@prep.ai.mit.edu> and Mark Adler F<madler@alumni.caltech.edu>.
+
+The primary site for the I<zlib> compression library is
+F<http://www.zlib.org>.
+
+The primary site for gzip is F<http://www.gzip.org>.
+
+=head1 AUTHOR
+
+This module was written by Paul Marquess, F<pmqs@cpan.org>. 
+
+=head1 MODIFICATION HISTORY
+
+See the Changes file.
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright (c) 2005-2015 Paul Marquess. All rights reserved.
+
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
diff --git a/lib/5.24.1/IO/Uncompress/AnyUncompress.pm b/lib/5.24.1/IO/Uncompress/AnyUncompress.pm
new file mode 100644
index 00000000..92a04a45
--- /dev/null
+++ b/lib/5.24.1/IO/Uncompress/AnyUncompress.pm
@@ -0,0 +1,1034 @@
+package IO::Uncompress::AnyUncompress ;
+
+use strict;
+use warnings;
+use bytes;
+
+use IO::Compress::Base::Common 2.069 ();
+
+use IO::Uncompress::Base 2.069 ;
+
+
+require Exporter ;
+
+our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $AnyUncompressError);
+
+$VERSION = '2.069_001';
+$AnyUncompressError = '';
+
+@ISA = qw( Exporter IO::Uncompress::Base );
+@EXPORT_OK = qw( $AnyUncompressError anyuncompress ) ;
+%EXPORT_TAGS = %IO::Uncompress::Base::DEFLATE_CONSTANTS ;
+push @{ $EXPORT_TAGS{all} }, @EXPORT_OK ;
+Exporter::export_ok_tags('all');
+
+# TODO - allow the user to pick a set of the three formats to allow
+#        or just assume want to auto-detect any of the three formats.
+
+BEGIN
+{
+   local @INC = @INC;
+   pop @INC if $INC[-1] eq '.';
+   eval ' use IO::Uncompress::Adapter::Inflate 2.069 ;';
+   eval ' use IO::Uncompress::Adapter::Bunzip2 2.069 ;';
+   eval ' use IO::Uncompress::Adapter::LZO 2.069 ;';
+   eval ' use IO::Uncompress::Adapter::Lzf 2.069 ;';
+   eval ' use IO::Uncompress::Adapter::UnLzma 2.069 ;';
+   eval ' use IO::Uncompress::Adapter::UnXz 2.069 ;';
+
+   eval ' use IO::Uncompress::Bunzip2 2.069 ;';
+   eval ' use IO::Uncompress::UnLzop 2.069 ;';
+   eval ' use IO::Uncompress::Gunzip 2.069 ;';
+   eval ' use IO::Uncompress::Inflate 2.069 ;';
+   eval ' use IO::Uncompress::RawInflate 2.069 ;';
+   eval ' use IO::Uncompress::Unzip 2.069 ;';
+   eval ' use IO::Uncompress::UnLzf 2.069 ;';
+   eval ' use IO::Uncompress::UnLzma 2.069 ;';
+   eval ' use IO::Uncompress::UnXz 2.069 ;';
+}
+
+sub new
+{
+    my $class = shift ;
+    my $obj = IO::Compress::Base::Common::createSelfTiedObject($class, \$AnyUncompressError);
+    $obj->_create(undef, 0, @_);
+}
+
+sub anyuncompress
+{
+    my $obj = IO::Compress::Base::Common::createSelfTiedObject(undef, \$AnyUncompressError);
+    return $obj->_inf(@_) ;
+}
+
+sub getExtraParams
+{ 
+    return ( 'rawinflate' => [IO::Compress::Base::Common::Parse_boolean,  0] ,
+             'unlzma'     => [IO::Compress::Base::Common::Parse_boolean,  0] ) ;
+}
+
+sub ckParams
+{
+    my $self = shift ;
+    my $got = shift ;
+
+    # any always needs both crc32 and adler32
+    $got->setValue('crc32' => 1);
+    $got->setValue('adler32' => 1);
+
+    return 1;
+}
+
+sub mkUncomp
+{
+    my $self = shift ;
+    my $got = shift ;
+
+    my $magic ;
+
+    # try zlib first
+    if (defined $IO::Uncompress::RawInflate::VERSION )
+    {
+        my ($obj, $errstr, $errno) = IO::Uncompress::Adapter::Inflate::mkUncompObject();
+
+        return $self->saveErrorString(undef, $errstr, $errno)
+            if ! defined $obj;
+
+        *$self->{Uncomp} = $obj;
+        
+        my @possible = qw( Inflate Gunzip Unzip );
+        unshift @possible, 'RawInflate' 
+            if $got->getValue('rawinflate');
+
+        $magic = $self->ckMagic( @possible );
+        
+        if ($magic) {
+            *$self->{Info} = $self->readHeader($magic)
+                or return undef ;
+
+            return 1;
+        }
+     }
+
+    if (defined $IO::Uncompress::UnLzma::VERSION && $got->getValue('unlzma'))
+    {
+        my ($obj, $errstr, $errno) = IO::Uncompress::Adapter::UnLzma::mkUncompObject();
+
+        return $self->saveErrorString(undef, $errstr, $errno)
+            if ! defined $obj;
+
+        *$self->{Uncomp} = $obj;
+        
+        my @possible = qw( UnLzma );
+        #unshift @possible, 'RawInflate' 
+        #    if $got->getValue('rawinflate');
+
+        if ( *$self->{Info} = $self->ckMagic( @possible ))
+        {
+            return 1;
+        }
+     }
+
+     if (defined $IO::Uncompress::UnXz::VERSION and
+         $magic = $self->ckMagic('UnXz')) {
+        *$self->{Info} = $self->readHeader($magic)
+            or return undef ;
+
+        my ($obj, $errstr, $errno) =
+            IO::Uncompress::Adapter::UnXz::mkUncompObject();
+
+        return $self->saveErrorString(undef, $errstr, $errno)
+            if ! defined $obj;
+
+        *$self->{Uncomp} = $obj;
+
+         return 1;
+     }
+
+     if (defined $IO::Uncompress::Bunzip2::VERSION and
+         $magic = $self->ckMagic('Bunzip2')) {
+        *$self->{Info} = $self->readHeader($magic)
+            or return undef ;
+
+        my ($obj, $errstr, $errno) = IO::Uncompress::Adapter::Bunzip2::mkUncompObject();
+
+        return $self->saveErrorString(undef, $errstr, $errno)
+            if ! defined $obj;
+
+        *$self->{Uncomp} = $obj;
+
+         return 1;
+     }
+
+     if (defined $IO::Uncompress::UnLzop::VERSION and
+            $magic = $self->ckMagic('UnLzop')) {
+
+        *$self->{Info} = $self->readHeader($magic)
+            or return undef ;
+
+        my ($obj, $errstr, $errno) = IO::Uncompress::Adapter::LZO::mkUncompObject();
+
+        return $self->saveErrorString(undef, $errstr, $errno)
+            if ! defined $obj;
+
+        *$self->{Uncomp} = $obj;
+
+         return 1;
+     }
+
+     if (defined $IO::Uncompress::UnLzf::VERSION and
+            $magic = $self->ckMagic('UnLzf')) {
+
+        *$self->{Info} = $self->readHeader($magic)
+            or return undef ;
+
+        my ($obj, $errstr, $errno) = IO::Uncompress::Adapter::Lzf::mkUncompObject();
+
+        return $self->saveErrorString(undef, $errstr, $errno)
+            if ! defined $obj;
+
+        *$self->{Uncomp} = $obj;
+
+         return 1;
+     }
+
+     return 0 ;
+}
+
+
+
+sub ckMagic
+{
+    my $self = shift;
+    my @names = @_ ;
+
+    my $keep = ref $self ;
+    for my $class ( map { "IO::Uncompress::$_" } @names)
+    {
+        bless $self => $class;
+        my $magic = $self->ckMagic();
+
+        if ($magic)
+        {
+            #bless $self => $class;
+            return $magic ;
+        }
+
+        $self->pushBack(*$self->{HeaderPending})  ;
+        *$self->{HeaderPending} = ''  ;
+    }    
+
+    bless $self => $keep;
+    return undef;
+}
+
+1 ;
+
+__END__
+
+
+=head1 NAME
+
+IO::Uncompress::AnyUncompress - Uncompress gzip, zip, bzip2 or lzop file/buffer
+
+=head1 SYNOPSIS
+
+    use IO::Uncompress::AnyUncompress qw(anyuncompress $AnyUncompressError) ;
+
+    my $status = anyuncompress $input => $output [,OPTS]
+        or die "anyuncompress failed: $AnyUncompressError\n";
+
+    my $z = new IO::Uncompress::AnyUncompress $input [OPTS] 
+        or die "anyuncompress failed: $AnyUncompressError\n";
+
+    $status = $z->read($buffer)
+    $status = $z->read($buffer, $length)
+    $status = $z->read($buffer, $length, $offset)
+    $line = $z->getline()
+    $char = $z->getc()
+    $char = $z->ungetc()
+    $char = $z->opened()
+
+    $data = $z->trailingData()
+    $status = $z->nextStream()
+    $data = $z->getHeaderInfo()
+    $z->tell()
+    $z->seek($position, $whence)
+    $z->binmode()
+    $z->fileno()
+    $z->eof()
+    $z->close()
+
+    $AnyUncompressError ;
+
+    # IO::File mode
+
+    <$z>
+    read($z, $buffer);
+    read($z, $buffer, $length);
+    read($z, $buffer, $length, $offset);
+    tell($z)
+    seek($z, $position, $whence)
+    binmode($z)
+    fileno($z)
+    eof($z)
+    close($z)
+
+=head1 DESCRIPTION
+
+This module provides a Perl interface that allows the reading of
+files/buffers that have been compressed with a variety of compression
+libraries.
+
+The formats supported are:
+
+=over 5
+
+=item RFC 1950
+
+=item RFC 1951 (optionally)
+
+=item gzip (RFC 1952)
+
+=item zip
+
+=item bzip2
+
+=item lzop
+
+=item lzf
+
+=item lzma
+
+=item xz
+
+=back
+
+The module will auto-detect which, if any, of the supported
+compression formats is being used.
+
+=head1 Functional Interface
+
+A top-level function, C<anyuncompress>, is provided to carry out
+"one-shot" uncompression between buffers and/or files. For finer
+control over the uncompression process, see the L</"OO Interface">
+section.
+
+    use IO::Uncompress::AnyUncompress qw(anyuncompress $AnyUncompressError) ;
+
+    anyuncompress $input_filename_or_reference => $output_filename_or_reference [,OPTS] 
+        or die "anyuncompress failed: $AnyUncompressError\n";
+
+The functional interface needs Perl5.005 or better.
+
+=head2 anyuncompress $input_filename_or_reference => $output_filename_or_reference [, OPTS]
+
+C<anyuncompress> expects at least two parameters,
+C<$input_filename_or_reference> and C<$output_filename_or_reference>.
+
+=head3 The C<$input_filename_or_reference> parameter
+
+The parameter, C<$input_filename_or_reference>, is used to define the
+source of the compressed data. 
+
+It can take one of the following forms:
+
+=over 5
+
+=item A filename
+
+If the <$input_filename_or_reference> parameter is a simple scalar, it is
+assumed to be a filename. This file will be opened for reading and the
+input data will be read from it.
+
+=item A filehandle
+
+If the C<$input_filename_or_reference> parameter is a filehandle, the input
+data will be read from it.  The string '-' can be used as an alias for
+standard input.
+
+=item A scalar reference 
+
+If C<$input_filename_or_reference> is a scalar reference, the input data
+will be read from C<$$input_filename_or_reference>.
+
+=item An array reference 
+
+If C<$input_filename_or_reference> is an array reference, each element in
+the array must be a filename.
+
+The input data will be read from each file in turn. 
+
+The complete array will be walked to ensure that it only
+contains valid filenames before any data is uncompressed.
+
+=item An Input FileGlob string
+
+If C<$input_filename_or_reference> is a string that is delimited by the
+characters "<" and ">" C<anyuncompress> will assume that it is an 
+I<input fileglob string>. The input is the list of files that match the 
+fileglob.
+
+See L<File::GlobMapper|File::GlobMapper> for more details.
+
+=back
+
+If the C<$input_filename_or_reference> parameter is any other type,
+C<undef> will be returned.
+
+=head3 The C<$output_filename_or_reference> parameter
+
+The parameter C<$output_filename_or_reference> is used to control the
+destination of the uncompressed data. This parameter can take one of
+these forms.
+
+=over 5
+
+=item A filename
+
+If the C<$output_filename_or_reference> parameter is a simple scalar, it is
+assumed to be a filename.  This file will be opened for writing and the 
+uncompressed data will be written to it.
+
+=item A filehandle
+
+If the C<$output_filename_or_reference> parameter is a filehandle, the
+uncompressed data will be written to it.  The string '-' can be used as
+an alias for standard output.
+
+=item A scalar reference 
+
+If C<$output_filename_or_reference> is a scalar reference, the
+uncompressed data will be stored in C<$$output_filename_or_reference>.
+
+=item An Array Reference
+
+If C<$output_filename_or_reference> is an array reference, 
+the uncompressed data will be pushed onto the array.
+
+=item An Output FileGlob
+
+If C<$output_filename_or_reference> is a string that is delimited by the
+characters "<" and ">" C<anyuncompress> will assume that it is an
+I<output fileglob string>. The output is the list of files that match the
+fileglob.
+
+When C<$output_filename_or_reference> is an fileglob string,
+C<$input_filename_or_reference> must also be a fileglob string. Anything
+else is an error.
+
+See L<File::GlobMapper|File::GlobMapper> for more details.
+
+=back
+
+If the C<$output_filename_or_reference> parameter is any other type,
+C<undef> will be returned.
+
+=head2 Notes
+
+When C<$input_filename_or_reference> maps to multiple compressed
+files/buffers and C<$output_filename_or_reference> is
+a single file/buffer, after uncompression C<$output_filename_or_reference> will contain a
+concatenation of all the uncompressed data from each of the input
+files/buffers.
+
+=head2 Optional Parameters
+
+Unless specified below, the optional parameters for C<anyuncompress>,
+C<OPTS>, are the same as those used with the OO interface defined in the
+L</"Constructor Options"> section below.
+
+=over 5
+
+=item C<< AutoClose => 0|1 >>
+
+This option applies to any input or output data streams to 
+C<anyuncompress> that are filehandles.
+
+If C<AutoClose> is specified, and the value is true, it will result in all
+input and/or output filehandles being closed once C<anyuncompress> has
+completed.
+
+This parameter defaults to 0.
+
+=item C<< BinModeOut => 0|1 >>
+
+When writing to a file or filehandle, set C<binmode> before writing to the
+file.
+
+Defaults to 0.
+
+=item C<< Append => 0|1 >>
+
+The behaviour of this option is dependent on the type of output data
+stream.
+
+=over 5
+
+=item * A Buffer
+
+If C<Append> is enabled, all uncompressed data will be append to the end of
+the output buffer. Otherwise the output buffer will be cleared before any
+uncompressed data is written to it.
+
+=item * A Filename
+
+If C<Append> is enabled, the file will be opened in append mode. Otherwise
+the contents of the file, if any, will be truncated before any uncompressed
+data is written to it.
+
+=item * A Filehandle
+
+If C<Append> is enabled, the filehandle will be positioned to the end of
+the file via a call to C<seek> before any uncompressed data is
+written to it.  Otherwise the file pointer will not be moved.
+
+=back
+
+When C<Append> is specified, and set to true, it will I<append> all uncompressed 
+data to the output data stream.
+
+So when the output is a filehandle it will carry out a seek to the eof
+before writing any uncompressed data. If the output is a filename, it will be opened for
+appending. If the output is a buffer, all uncompressed data will be
+appended to the existing buffer.
+
+Conversely when C<Append> is not specified, or it is present and is set to
+false, it will operate as follows.
+
+When the output is a filename, it will truncate the contents of the file
+before writing any uncompressed data. If the output is a filehandle
+its position will not be changed. If the output is a buffer, it will be
+wiped before any uncompressed data is output.
+
+Defaults to 0.
+
+=item C<< MultiStream => 0|1 >>
+
+If the input file/buffer contains multiple compressed data streams, this
+option will uncompress the whole lot as a single data stream.
+
+Defaults to 0.
+
+=item C<< TrailingData => $scalar >>
+
+Returns the data, if any, that is present immediately after the compressed
+data stream once uncompression is complete. 
+
+This option can be used when there is useful information immediately
+following the compressed data stream, and you don't know the length of the
+compressed data stream.
+
+If the input is a buffer, C<trailingData> will return everything from the
+end of the compressed data stream to the end of the buffer.
+
+If the input is a filehandle, C<trailingData> will return the data that is
+left in the filehandle input buffer once the end of the compressed data
+stream has been reached. You can then use the filehandle to read the rest
+of the input file. 
+
+Don't bother using C<trailingData> if the input is a filename.
+
+If you know the length of the compressed data stream before you start
+uncompressing, you can avoid having to use C<trailingData> by setting the
+C<InputLength> option.
+
+=back
+
+=head2 Examples
+
+To read the contents of the file C<file1.txt.Compressed> and write the
+uncompressed data to the file C<file1.txt>.
+
+    use strict ;
+    use warnings ;
+    use IO::Uncompress::AnyUncompress qw(anyuncompress $AnyUncompressError) ;
+
+    my $input = "file1.txt.Compressed";
+    my $output = "file1.txt";
+    anyuncompress $input => $output
+        or die "anyuncompress failed: $AnyUncompressError\n";
+
+To read from an existing Perl filehandle, C<$input>, and write the
+uncompressed data to a buffer, C<$buffer>.
+
+    use strict ;
+    use warnings ;
+    use IO::Uncompress::AnyUncompress qw(anyuncompress $AnyUncompressError) ;
+    use IO::File ;
+
+    my $input = new IO::File "<file1.txt.Compressed"
+        or die "Cannot open 'file1.txt.Compressed': $!\n" ;
+    my $buffer ;
+    anyuncompress $input => \$buffer 
+        or die "anyuncompress failed: $AnyUncompressError\n";
+
+To uncompress all files in the directory "/my/home" that match "*.txt.Compressed" and store the compressed data in the same directory
+
+    use strict ;
+    use warnings ;
+    use IO::Uncompress::AnyUncompress qw(anyuncompress $AnyUncompressError) ;
+
+    anyuncompress '</my/home/*.txt.Compressed>' => '</my/home/#1.txt>'
+        or die "anyuncompress failed: $AnyUncompressError\n";
+
+and if you want to compress each file one at a time, this will do the trick
+
+    use strict ;
+    use warnings ;
+    use IO::Uncompress::AnyUncompress qw(anyuncompress $AnyUncompressError) ;
+
+    for my $input ( glob "/my/home/*.txt.Compressed" )
+    {
+        my $output = $input;
+        $output =~ s/.Compressed// ;
+        anyuncompress $input => $output 
+            or die "Error compressing '$input': $AnyUncompressError\n";
+    }
+
+=head1 OO Interface
+
+=head2 Constructor
+
+The format of the constructor for IO::Uncompress::AnyUncompress is shown below
+
+    my $z = new IO::Uncompress::AnyUncompress $input [OPTS]
+        or die "IO::Uncompress::AnyUncompress failed: $AnyUncompressError\n";
+
+Returns an C<IO::Uncompress::AnyUncompress> object on success and undef on failure.
+The variable C<$AnyUncompressError> will contain an error message on failure.
+
+If you are running Perl 5.005 or better the object, C<$z>, returned from
+IO::Uncompress::AnyUncompress can be used exactly like an L<IO::File|IO::File> filehandle.
+This means that all normal input file operations can be carried out with
+C<$z>.  For example, to read a line from a compressed file/buffer you can
+use either of these forms
+
+    $line = $z->getline();
+    $line = <$z>;
+
+The mandatory parameter C<$input> is used to determine the source of the
+compressed data. This parameter can take one of three forms.
+
+=over 5
+
+=item A filename
+
+If the C<$input> parameter is a scalar, it is assumed to be a filename. This
+file will be opened for reading and the compressed data will be read from it.
+
+=item A filehandle
+
+If the C<$input> parameter is a filehandle, the compressed data will be
+read from it.
+The string '-' can be used as an alias for standard input.
+
+=item A scalar reference 
+
+If C<$input> is a scalar reference, the compressed data will be read from
+C<$$input>.
+
+=back
+
+=head2 Constructor Options
+
+The option names defined below are case insensitive and can be optionally
+prefixed by a '-'.  So all of the following are valid
+
+    -AutoClose
+    -autoclose
+    AUTOCLOSE
+    autoclose
+
+OPTS is a combination of the following options:
+
+=over 5
+
+=item C<< AutoClose => 0|1 >>
+
+This option is only valid when the C<$input> parameter is a filehandle. If
+specified, and the value is true, it will result in the file being closed once
+either the C<close> method is called or the IO::Uncompress::AnyUncompress object is
+destroyed.
+
+This parameter defaults to 0.
+
+=item C<< MultiStream => 0|1 >>
+
+Allows multiple concatenated compressed streams to be treated as a single
+compressed stream. Decompression will stop once either the end of the
+file/buffer is reached, an error is encountered (premature eof, corrupt
+compressed data) or the end of a stream is not immediately followed by the
+start of another stream.
+
+This parameter defaults to 0.
+
+=item C<< Prime => $string >>
+
+This option will uncompress the contents of C<$string> before processing the
+input file/buffer.
+
+This option can be useful when the compressed data is embedded in another
+file/data structure and it is not possible to work out where the compressed
+data begins without having to read the first few bytes. If this is the
+case, the uncompression can be I<primed> with these bytes using this
+option.
+
+=item C<< Transparent => 0|1 >>
+
+If this option is set and the input file/buffer is not compressed data,
+the module will allow reading of it anyway.
+
+In addition, if the input file/buffer does contain compressed data and
+there is non-compressed data immediately following it, setting this option
+will make this module treat the whole file/buffer as a single data stream.
+
+This option defaults to 1.
+
+=item C<< BlockSize => $num >>
+
+When reading the compressed input data, IO::Uncompress::AnyUncompress will read it in
+blocks of C<$num> bytes.
+
+This option defaults to 4096.
+
+=item C<< InputLength => $size >>
+
+When present this option will limit the number of compressed bytes read
+from the input file/buffer to C<$size>. This option can be used in the
+situation where there is useful data directly after the compressed data
+stream and you know beforehand the exact length of the compressed data
+stream. 
+
+This option is mostly used when reading from a filehandle, in which case
+the file pointer will be left pointing to the first byte directly after the
+compressed data stream.
+
+This option defaults to off.
+
+=item C<< Append => 0|1 >>
+
+This option controls what the C<read> method does with uncompressed data.
+
+If set to 1, all uncompressed data will be appended to the output parameter
+of the C<read> method.
+
+If set to 0, the contents of the output parameter of the C<read> method
+will be overwritten by the uncompressed data.
+
+Defaults to 0.
+
+=item C<< Strict => 0|1 >>
+
+This option controls whether the extra checks defined below are used when
+carrying out the decompression. When Strict is on, the extra tests are
+carried out, when Strict is off they are not.
+
+The default for this option is off.
+
+=item C<< RawInflate => 0|1 >>
+
+When auto-detecting the compressed format, try to test for raw-deflate (RFC
+1951) content using the C<IO::Uncompress::RawInflate> module. 
+
+The reason this is not default behaviour is because RFC 1951 content can
+only be detected by attempting to uncompress it. This process is error
+prone and can result is false positives.
+
+Defaults to 0.
+
+=item C<< UnLzma => 0|1 >>
+
+When auto-detecting the compressed format, try to test for lzma_alone
+content using the C<IO::Uncompress::UnLzma> module. 
+
+The reason this is not default behaviour is because lzma_alone content can
+only be detected by attempting to uncompress it. This process is error
+prone and can result is false positives.
+
+Defaults to 0.
+
+=back
+
+=head2 Examples
+
+TODO
+
+=head1 Methods 
+
+=head2 read
+
+Usage is
+
+    $status = $z->read($buffer)
+
+Reads a block of compressed data (the size of the compressed block is
+determined by the C<Buffer> option in the constructor), uncompresses it and
+writes any uncompressed data into C<$buffer>. If the C<Append> parameter is
+set in the constructor, the uncompressed data will be appended to the
+C<$buffer> parameter. Otherwise C<$buffer> will be overwritten.
+
+Returns the number of uncompressed bytes written to C<$buffer>, zero if eof
+or a negative number on error.
+
+=head2 read
+
+Usage is
+
+    $status = $z->read($buffer, $length)
+    $status = $z->read($buffer, $length, $offset)
+
+    $status = read($z, $buffer, $length)
+    $status = read($z, $buffer, $length, $offset)
+
+Attempt to read C<$length> bytes of uncompressed data into C<$buffer>.
+
+The main difference between this form of the C<read> method and the
+previous one, is that this one will attempt to return I<exactly> C<$length>
+bytes. The only circumstances that this function will not is if end-of-file
+or an IO error is encountered.
+
+Returns the number of uncompressed bytes written to C<$buffer>, zero if eof
+or a negative number on error.
+
+=head2 getline
+
+Usage is
+
+    $line = $z->getline()
+    $line = <$z>
+
+Reads a single line. 
+
+This method fully supports the use of the variable C<$/> (or
+C<$INPUT_RECORD_SEPARATOR> or C<$RS> when C<English> is in use) to
+determine what constitutes an end of line. Paragraph mode, record mode and
+file slurp mode are all supported. 
+
+=head2 getc
+
+Usage is 
+
+    $char = $z->getc()
+
+Read a single character.
+
+=head2 ungetc
+
+Usage is
+
+    $char = $z->ungetc($string)
+
+=head2 getHeaderInfo
+
+Usage is
+
+    $hdr  = $z->getHeaderInfo();
+    @hdrs = $z->getHeaderInfo();
+
+This method returns either a hash reference (in scalar context) or a list
+or hash references (in array context) that contains information about each
+of the header fields in the compressed data stream(s).
+
+=head2 tell
+
+Usage is
+
+    $z->tell()
+    tell $z
+
+Returns the uncompressed file offset.
+
+=head2 eof
+
+Usage is
+
+    $z->eof();
+    eof($z);
+
+Returns true if the end of the compressed input stream has been reached.
+
+=head2 seek
+
+    $z->seek($position, $whence);
+    seek($z, $position, $whence);
+
+Provides a sub-set of the C<seek> functionality, with the restriction
+that it is only legal to seek forward in the input file/buffer.
+It is a fatal error to attempt to seek backward.
+
+Note that the implementation of C<seek> in this module does not provide
+true random access to a compressed file/buffer. It  works by uncompressing
+data from the current offset in the file/buffer until it reaches the
+uncompressed offset specified in the parameters to C<seek>. For very small
+files this may be acceptable behaviour. For large files it may cause an
+unacceptable delay.
+
+The C<$whence> parameter takes one the usual values, namely SEEK_SET,
+SEEK_CUR or SEEK_END.
+
+Returns 1 on success, 0 on failure.
+
+=head2 binmode
+
+Usage is
+
+    $z->binmode
+    binmode $z ;
+
+This is a noop provided for completeness.
+
+=head2 opened
+
+    $z->opened()
+
+Returns true if the object currently refers to a opened file/buffer. 
+
+=head2 autoflush
+
+    my $prev = $z->autoflush()
+    my $prev = $z->autoflush(EXPR)
+
+If the C<$z> object is associated with a file or a filehandle, this method
+returns the current autoflush setting for the underlying filehandle. If
+C<EXPR> is present, and is non-zero, it will enable flushing after every
+write/print operation.
+
+If C<$z> is associated with a buffer, this method has no effect and always
+returns C<undef>.
+
+B<Note> that the special variable C<$|> B<cannot> be used to set or
+retrieve the autoflush setting.
+
+=head2 input_line_number
+
+    $z->input_line_number()
+    $z->input_line_number(EXPR)
+
+Returns the current uncompressed line number. If C<EXPR> is present it has
+the effect of setting the line number. Note that setting the line number
+does not change the current position within the file/buffer being read.
+
+The contents of C<$/> are used to determine what constitutes a line
+terminator.
+
+=head2 fileno
+
+    $z->fileno()
+    fileno($z)
+
+If the C<$z> object is associated with a file or a filehandle, C<fileno>
+will return the underlying file descriptor. Once the C<close> method is
+called C<fileno> will return C<undef>.
+
+If the C<$z> object is associated with a buffer, this method will return
+C<undef>.
+
+=head2 close
+
+    $z->close() ;
+    close $z ;
+
+Closes the output file/buffer. 
+
+For most versions of Perl this method will be automatically invoked if
+the IO::Uncompress::AnyUncompress object is destroyed (either explicitly or by the
+variable with the reference to the object going out of scope). The
+exceptions are Perl versions 5.005 through 5.00504 and 5.8.0. In
+these cases, the C<close> method will be called automatically, but
+not until global destruction of all live objects when the program is
+terminating.
+
+Therefore, if you want your scripts to be able to run on all versions
+of Perl, you should call C<close> explicitly and not rely on automatic
+closing.
+
+Returns true on success, otherwise 0.
+
+If the C<AutoClose> option has been enabled when the IO::Uncompress::AnyUncompress
+object was created, and the object is associated with a file, the
+underlying file will also be closed.
+
+=head2 nextStream
+
+Usage is
+
+    my $status = $z->nextStream();
+
+Skips to the next compressed data stream in the input file/buffer. If a new
+compressed data stream is found, the eof marker will be cleared and C<$.>
+will be reset to 0.
+
+Returns 1 if a new stream was found, 0 if none was found, and -1 if an
+error was encountered.
+
+=head2 trailingData
+
+Usage is
+
+    my $data = $z->trailingData();
+
+Returns the data, if any, that is present immediately after the compressed
+data stream once uncompression is complete. It only makes sense to call
+this method once the end of the compressed data stream has been
+encountered.
+
+This option can be used when there is useful information immediately
+following the compressed data stream, and you don't know the length of the
+compressed data stream.
+
+If the input is a buffer, C<trailingData> will return everything from the
+end of the compressed data stream to the end of the buffer.
+
+If the input is a filehandle, C<trailingData> will return the data that is
+left in the filehandle input buffer once the end of the compressed data
+stream has been reached. You can then use the filehandle to read the rest
+of the input file. 
+
+Don't bother using C<trailingData> if the input is a filename.
+
+If you know the length of the compressed data stream before you start
+uncompressing, you can avoid having to use C<trailingData> by setting the
+C<InputLength> option in the constructor.
+
+=head1 Importing 
+
+No symbolic constants are required by this IO::Uncompress::AnyUncompress at present. 
+
+=over 5
+
+=item :all
+
+Imports C<anyuncompress> and C<$AnyUncompressError>.
+Same as doing this
+
+    use IO::Uncompress::AnyUncompress qw(anyuncompress $AnyUncompressError) ;
+
+=back
+
+=head1 EXAMPLES
+
+=head1 SEE ALSO
+
+L<Compress::Zlib>, L<IO::Compress::Gzip>, L<IO::Uncompress::Gunzip>, L<IO::Compress::Deflate>, L<IO::Uncompress::Inflate>, L<IO::Compress::RawDeflate>, L<IO::Uncompress::RawInflate>, L<IO::Compress::Bzip2>, L<IO::Uncompress::Bunzip2>, L<IO::Compress::Lzma>, L<IO::Uncompress::UnLzma>, L<IO::Compress::Xz>, L<IO::Uncompress::UnXz>, L<IO::Compress::Lzop>, L<IO::Uncompress::UnLzop>, L<IO::Compress::Lzf>, L<IO::Uncompress::UnLzf>, L<IO::Uncompress::AnyInflate>
+
+L<IO::Compress::FAQ|IO::Compress::FAQ>
+
+L<File::GlobMapper|File::GlobMapper>, L<Archive::Zip|Archive::Zip>,
+L<Archive::Tar|Archive::Tar>,
+L<IO::Zlib|IO::Zlib>
+
+=head1 AUTHOR
+
+This module was written by Paul Marquess, F<pmqs@cpan.org>. 
+
+=head1 MODIFICATION HISTORY
+
+See the Changes file.
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright (c) 2005-2015 Paul Marquess. All rights reserved.
+
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
diff --git a/lib/5.24.1/IO/Uncompress/Base.pm b/lib/5.24.1/IO/Uncompress/Base.pm
new file mode 100644
index 00000000..0906f34f
--- /dev/null
+++ b/lib/5.24.1/IO/Uncompress/Base.pm
@@ -0,0 +1,1556 @@
+
+package IO::Uncompress::Base ;
+
+use strict ;
+use warnings;
+#use bytes;
+
+our (@ISA, $VERSION, @EXPORT_OK, %EXPORT_TAGS);
+@ISA    = qw(Exporter IO::File);
+
+
+$VERSION = '2.069_001';
+
+use constant G_EOF => 0 ;
+use constant G_ERR => -1 ;
+
+use IO::Compress::Base::Common 2.069 ;
+
+use IO::File ;
+use Symbol;
+use Scalar::Util ();
+use List::Util ();
+use Carp ;
+
+%EXPORT_TAGS = ( );
+push @{ $EXPORT_TAGS{all} }, @EXPORT_OK ;
+
+sub smartRead
+{
+    my $self = $_[0];
+    my $out = $_[1];
+    my $size = $_[2];
+    $$out = "" ;
+
+    my $offset = 0 ;
+    my $status = 1;
+
+
+    if (defined *$self->{InputLength}) {
+        return 0
+            if *$self->{InputLengthRemaining} <= 0 ;
+        $size = List::Util::min($size, *$self->{InputLengthRemaining});
+    }
+
+    if ( length *$self->{Prime} ) {
+        $$out = substr(*$self->{Prime}, 0, $size) ;
+        substr(*$self->{Prime}, 0, $size) =  '' ;
+        if (length $$out == $size) {
+            *$self->{InputLengthRemaining} -= length $$out
+                if defined *$self->{InputLength};
+
+            return length $$out ;
+        }
+        $offset = length $$out ;
+    }
+
+    my $get_size = $size - $offset ;
+
+    if (defined *$self->{FH}) {
+        if ($offset) {
+            # Not using this 
+            #
+            #  *$self->{FH}->read($$out, $get_size, $offset);
+            #
+            # because the filehandle may not support the offset parameter
+            # An example is Net::FTP
+            my $tmp = '';
+            $status = *$self->{FH}->read($tmp, $get_size) ;
+            substr($$out, $offset) = $tmp
+                if defined $status && $status > 0 ;
+        }
+        else
+          { $status = *$self->{FH}->read($$out, $get_size) }
+    }
+    elsif (defined *$self->{InputEvent}) {
+        my $got = 1 ;
+        while (length $$out < $size) {
+            last 
+                if ($got = *$self->{InputEvent}->($$out, $get_size)) <= 0;
+        }
+
+        if (length $$out > $size ) {
+            *$self->{Prime} = substr($$out, $size, length($$out));
+            substr($$out, $size, length($$out)) =  '';
+        }
+
+       *$self->{EventEof} = 1 if $got <= 0 ;
+    }
+    else {
+       no warnings 'uninitialized';
+       my $buf = *$self->{Buffer} ;
+       $$buf = '' unless defined $$buf ;
+       substr($$out, $offset) = substr($$buf, *$self->{BufferOffset}, $get_size);
+       if (*$self->{ConsumeInput})
+         { substr($$buf, 0, $get_size) = '' }
+       else  
+         { *$self->{BufferOffset} += length($$out) - $offset }
+    }
+
+    *$self->{InputLengthRemaining} -= length($$out) #- $offset 
+        if defined *$self->{InputLength};
+        
+    if (! defined $status) {
+        $self->saveStatus($!) ;
+        return STATUS_ERROR;
+    }
+
+    $self->saveStatus(length $$out < 0 ? STATUS_ERROR : STATUS_OK) ;
+
+    return length $$out;
+}
+
+sub pushBack
+{
+    my $self = shift ;
+
+    return if ! defined $_[0] || length $_[0] == 0 ;
+
+    if (defined *$self->{FH} || defined *$self->{InputEvent} ) {
+        *$self->{Prime} = $_[0] . *$self->{Prime} ;
+        *$self->{InputLengthRemaining} += length($_[0]);
+    }
+    else {
+        my $len = length $_[0];
+
+        if($len > *$self->{BufferOffset}) {
+            *$self->{Prime} = substr($_[0], 0, $len - *$self->{BufferOffset}) . *$self->{Prime} ;
+            *$self->{InputLengthRemaining} = *$self->{InputLength};
+            *$self->{BufferOffset} = 0
+        }
+        else {
+            *$self->{InputLengthRemaining} += length($_[0]);
+            *$self->{BufferOffset} -= length($_[0]) ;
+        }
+    }
+}
+
+sub smartSeek
+{
+    my $self   = shift ;
+    my $offset = shift ;
+    my $truncate = shift;
+    my $position = shift || SEEK_SET;
+
+    # TODO -- need to take prime into account
+    if (defined *$self->{FH})
+      { *$self->{FH}->seek($offset, $position) }
+    else {
+        if ($position == SEEK_END) {
+            *$self->{BufferOffset} = length ${ *$self->{Buffer} } + $offset ;
+        }
+        elsif ($position == SEEK_CUR) {
+            *$self->{BufferOffset} += $offset ;
+        }
+        else {
+            *$self->{BufferOffset} = $offset ;
+        }
+
+        substr(${ *$self->{Buffer} }, *$self->{BufferOffset}) = ''
+            if $truncate;
+        return 1;
+    }
+}
+
+sub smartTell
+{
+    my $self   = shift ;
+
+    if (defined *$self->{FH})
+      { return *$self->{FH}->tell() }
+    else 
+      { return *$self->{BufferOffset} }
+}
+
+sub smartWrite
+{
+    my $self   = shift ;
+    my $out_data = shift ;
+
+    if (defined *$self->{FH}) {
+        # flush needed for 5.8.0 
+        defined *$self->{FH}->write($out_data, length $out_data) &&
+        defined *$self->{FH}->flush() ;
+    }
+    else {
+       my $buf = *$self->{Buffer} ;
+       substr($$buf, *$self->{BufferOffset}, length $out_data) = $out_data ;
+       *$self->{BufferOffset} += length($out_data) ;
+       return 1;
+    }
+}
+
+sub smartReadExact
+{
+    return $_[0]->smartRead($_[1], $_[2]) == $_[2];
+}
+
+sub smartEof
+{
+    my ($self) = $_[0];
+    local $.; 
+
+    return 0 if length *$self->{Prime} || *$self->{PushMode};
+
+    if (defined *$self->{FH})
+    {
+        # Could use
+        #
+        #  *$self->{FH}->eof() 
+        #
+        # here, but this can cause trouble if
+        # the filehandle is itself a tied handle, but it uses sysread.
+        # Then we get into mixing buffered & non-buffered IO, 
+        # which will cause trouble
+
+        my $info = $self->getErrInfo();
+        
+        my $buffer = '';
+        my $status = $self->smartRead(\$buffer, 1);
+        $self->pushBack($buffer) if length $buffer;
+        $self->setErrInfo($info);
+
+        return $status == 0 ;
+    }
+    elsif (defined *$self->{InputEvent})
+     { *$self->{EventEof} }
+    else 
+     { *$self->{BufferOffset} >= length(${ *$self->{Buffer} }) }
+}
+
+sub clearError
+{
+    my $self   = shift ;
+
+    *$self->{ErrorNo}  =  0 ;
+    ${ *$self->{Error} } = '' ;
+}
+
+sub getErrInfo
+{
+    my $self   = shift ;
+
+    return [ *$self->{ErrorNo}, ${ *$self->{Error} } ] ;
+}
+
+sub setErrInfo
+{
+    my $self   = shift ;
+    my $ref    = shift;
+
+    *$self->{ErrorNo}  =  $ref->[0] ;
+    ${ *$self->{Error} } = $ref->[1] ;
+}
+
+sub saveStatus
+{
+    my $self   = shift ;
+    my $errno = shift() + 0 ;
+
+    *$self->{ErrorNo}  = $errno;
+    ${ *$self->{Error} } = '' ;
+
+    return *$self->{ErrorNo} ;
+}
+
+
+sub saveErrorString
+{
+    my $self   = shift ;
+    my $retval = shift ;
+
+    ${ *$self->{Error} } = shift ;
+    *$self->{ErrorNo} = @_ ? shift() + 0 : STATUS_ERROR ;
+
+    return $retval;
+}
+
+sub croakError
+{
+    my $self   = shift ;
+    $self->saveErrorString(0, $_[0]);
+    croak $_[0];
+}
+
+
+sub closeError
+{
+    my $self = shift ;
+    my $retval = shift ;
+
+    my $errno = *$self->{ErrorNo};
+    my $error = ${ *$self->{Error} };
+
+    $self->close();
+
+    *$self->{ErrorNo} = $errno ;
+    ${ *$self->{Error} } = $error ;
+
+    return $retval;
+}
+
+sub error
+{
+    my $self   = shift ;
+    return ${ *$self->{Error} } ;
+}
+
+sub errorNo
+{
+    my $self   = shift ;
+    return *$self->{ErrorNo};
+}
+
+sub HeaderError
+{
+    my ($self) = shift;
+    return $self->saveErrorString(undef, "Header Error: $_[0]", STATUS_ERROR);
+}
+
+sub TrailerError
+{
+    my ($self) = shift;
+    return $self->saveErrorString(G_ERR, "Trailer Error: $_[0]", STATUS_ERROR);
+}
+
+sub TruncatedHeader
+{
+    my ($self) = shift;
+    return $self->HeaderError("Truncated in $_[0] Section");
+}
+
+sub TruncatedTrailer
+{
+    my ($self) = shift;
+    return $self->TrailerError("Truncated in $_[0] Section");
+}
+
+sub postCheckParams
+{
+    return 1;
+}
+
+sub checkParams
+{
+    my $self = shift ;
+    my $class = shift ;
+
+    my $got = shift || IO::Compress::Base::Parameters::new();
+    
+    my $Valid = {
+                    'blocksize'     => [IO::Compress::Base::Common::Parse_unsigned, 16 * 1024],
+                    'autoclose'     => [IO::Compress::Base::Common::Parse_boolean,  0],
+                    'strict'        => [IO::Compress::Base::Common::Parse_boolean,  0],
+                    'append'        => [IO::Compress::Base::Common::Parse_boolean,  0],
+                    'prime'         => [IO::Compress::Base::Common::Parse_any,      undef],
+                    'multistream'   => [IO::Compress::Base::Common::Parse_boolean,  0],
+                    'transparent'   => [IO::Compress::Base::Common::Parse_any,      1],
+                    'scan'          => [IO::Compress::Base::Common::Parse_boolean,  0],
+                    'inputlength'   => [IO::Compress::Base::Common::Parse_unsigned, undef],
+                    'binmodeout'    => [IO::Compress::Base::Common::Parse_boolean,  0],
+                   #'decode'        => [IO::Compress::Base::Common::Parse_any,      undef],
+
+                   #'consumeinput'  => [IO::Compress::Base::Common::Parse_boolean,  0],
+                   
+                    $self->getExtraParams(),
+
+                    #'Todo - Revert to ordinary file on end Z_STREAM_END'=> 0,
+                    # ContinueAfterEof
+                } ;
+
+    $Valid->{trailingdata} = [IO::Compress::Base::Common::Parse_writable_scalar, undef]
+        if  *$self->{OneShot} ;
+        
+    $got->parse($Valid, @_ ) 
+        or $self->croakError("${class}: " . $got->getError()) ;
+
+    $self->postCheckParams($got) 
+        or $self->croakError("${class}: " . $self->error()) ;
+
+    return $got;
+}
+
+sub _create
+{
+    my $obj = shift;
+    my $got = shift;
+    my $append_mode = shift ;
+
+    my $class = ref $obj;
+    $obj->croakError("$class: Missing Input parameter")
+        if ! @_ && ! $got ;
+
+    my $inValue = shift ;
+
+    *$obj->{OneShot} = 0 ;
+
+    if (! $got)
+    {
+        $got = $obj->checkParams($class, undef, @_)
+            or return undef ;
+    }
+
+    my $inType  = whatIsInput($inValue, 1);
+
+    $obj->ckInputParam($class, $inValue, 1) 
+        or return undef ;
+
+    *$obj->{InNew} = 1;
+
+    $obj->ckParams($got)
+        or $obj->croakError("${class}: " . *$obj->{Error});
+
+    if ($inType eq 'buffer' || $inType eq 'code') {
+        *$obj->{Buffer} = $inValue ;        
+        *$obj->{InputEvent} = $inValue 
+           if $inType eq 'code' ;
+    }
+    else {
+        if ($inType eq 'handle') {
+            *$obj->{FH} = $inValue ;
+            *$obj->{Handle} = 1 ;
+
+            # Need to rewind for Scan
+            *$obj->{FH}->seek(0, SEEK_SET) 
+                if $got->getValue('scan');
+        }  
+        else {    
+            no warnings ;
+            my $mode = '<';
+            $mode = '+<' if $got->getValue('scan');
+            *$obj->{StdIO} = ($inValue eq '-');
+            *$obj->{FH} = new IO::File "$mode $inValue"
+                or return $obj->saveErrorString(undef, "cannot open file '$inValue': $!", $!) ;
+        }
+        
+        *$obj->{LineNo} = $. = 0;
+        setBinModeInput(*$obj->{FH}) ;
+
+        my $buff = "" ;
+        *$obj->{Buffer} = \$buff ;
+    }
+
+#    if ($got->getValue('decode')) { 
+#        my $want_encoding = $got->getValue('decode');
+#        *$obj->{Encoding} = IO::Compress::Base::Common::getEncoding($obj, $class, $want_encoding);
+#    }
+#    else {
+#        *$obj->{Encoding} = undef;
+#    }
+
+    *$obj->{InputLength}       = $got->parsed('inputlength') 
+                                    ? $got->getValue('inputlength')
+                                    : undef ;
+    *$obj->{InputLengthRemaining} = $got->getValue('inputlength');
+    *$obj->{BufferOffset}      = 0 ;
+    *$obj->{AutoClose}         = $got->getValue('autoclose');
+    *$obj->{Strict}            = $got->getValue('strict');
+    *$obj->{BlockSize}         = $got->getValue('blocksize');
+    *$obj->{Append}            = $got->getValue('append');
+    *$obj->{AppendOutput}      = $append_mode || $got->getValue('append');
+    *$obj->{ConsumeInput}      = $got->getValue('consumeinput');
+    *$obj->{Transparent}       = $got->getValue('transparent');
+    *$obj->{MultiStream}       = $got->getValue('multistream');
+
+    # TODO - move these two into RawDeflate
+    *$obj->{Scan}              = $got->getValue('scan');
+    *$obj->{ParseExtra}        = $got->getValue('parseextra') 
+                                  || $got->getValue('strict')  ;
+    *$obj->{Type}              = '';
+    *$obj->{Prime}             = $got->getValue('prime') || '' ;
+    *$obj->{Pending}           = '';
+    *$obj->{Plain}             = 0;
+    *$obj->{PlainBytesRead}    = 0;
+    *$obj->{InflatedBytesRead} = 0;
+    *$obj->{UnCompSize}        = new U64;
+    *$obj->{CompSize}          = new U64;
+    *$obj->{TotalInflatedBytesRead} = 0;
+    *$obj->{NewStream}         = 0 ;
+    *$obj->{EventEof}          = 0 ;
+    *$obj->{ClassName}         = $class ;
+    *$obj->{Params}            = $got ;
+
+    if (*$obj->{ConsumeInput}) {
+        *$obj->{InNew} = 0;
+        *$obj->{Closed} = 0;
+        return $obj
+    }
+
+    my $status = $obj->mkUncomp($got);
+
+    return undef
+        unless defined $status;
+
+    *$obj->{InNew} = 0;
+    *$obj->{Closed} = 0;
+
+    if ($status) {
+        # Need to try uncompressing to catch the case
+        # where the compressed file uncompresses to an
+        # empty string - so eof is set immediately.
+        
+        my $out_buffer = '';
+
+        $status = $obj->read(\$out_buffer);
+    
+        if ($status < 0) {
+            *$obj->{ReadStatus} = [ $status, $obj->error(), $obj->errorNo() ];
+        }
+
+        $obj->ungetc($out_buffer)
+            if length $out_buffer;
+    }
+    else {
+        return undef 
+            unless *$obj->{Transparent};
+
+        $obj->clearError();
+        *$obj->{Type} = 'plain';
+        *$obj->{Plain} = 1;
+        $obj->pushBack(*$obj->{HeaderPending})  ;
+    }
+
+    push @{ *$obj->{InfoList} }, *$obj->{Info} ;
+
+    $obj->saveStatus(STATUS_OK) ;
+    *$obj->{InNew} = 0;
+    *$obj->{Closed} = 0;
+
+    return $obj;
+}
+
+sub ckInputParam
+{
+    my $self = shift ;
+    my $from = shift ;
+    my $inType = whatIsInput($_[0], $_[1]);
+
+    $self->croakError("$from: input parameter not a filename, filehandle, array ref or scalar ref")
+        if ! $inType ;
+
+#    if ($inType  eq 'filename' )
+#    {
+#        return $self->saveErrorString(1, "$from: input filename is undef or null string", STATUS_ERROR)
+#            if ! defined $_[0] || $_[0] eq ''  ;
+#
+#        if ($_[0] ne '-' && ! -e $_[0] )
+#        {
+#            return $self->saveErrorString(1, 
+#                            "input file '$_[0]' does not exist", STATUS_ERROR);
+#        }
+#    }
+
+    return 1;
+}
+
+
+sub _inf
+{
+    my $obj = shift ;
+
+    my $class = (caller)[0] ;
+    my $name = (caller(1))[3] ;
+
+    $obj->croakError("$name: expected at least 1 parameters\n")
+        unless @_ >= 1 ;
+
+    my $input = shift ;
+    my $haveOut = @_ ;
+    my $output = shift ;
+
+
+    my $x = new IO::Compress::Base::Validator($class, *$obj->{Error}, $name, $input, $output)
+        or return undef ;
+    
+    push @_, $output if $haveOut && $x->{Hash};
+
+    *$obj->{OneShot} = 1 ;
+    
+    my $got = $obj->checkParams($name, undef, @_)
+        or return undef ;
+
+    if ($got->parsed('trailingdata'))
+    {
+#        my $value = $got->valueRef('TrailingData');
+#        warn "TD $value ";
+#        #$value = $$value;
+##                warn "TD $value $$value ";
+#       
+#        return retErr($obj, "Parameter 'TrailingData' not writable")
+#            if readonly $$value ;          
+#
+#        if (ref $$value) 
+#        {
+#            return retErr($obj,"Parameter 'TrailingData' not a scalar reference")
+#                if ref $$value ne 'SCALAR' ;
+#              
+#            *$obj->{TrailingData} = $$value ;
+#        }
+#        else  
+#        {
+#            return retErr($obj,"Parameter 'TrailingData' not a scalar")
+#                if ref $value ne 'SCALAR' ;               
+#
+#            *$obj->{TrailingData} = $value ;
+#        }
+        
+        *$obj->{TrailingData} = $got->getValue('trailingdata');
+    }
+
+    *$obj->{MultiStream} = $got->getValue('multistream');
+    $got->setValue('multistream', 0);
+
+    $x->{Got} = $got ;
+
+#    if ($x->{Hash})
+#    {
+#        while (my($k, $v) = each %$input)
+#        {
+#            $v = \$input->{$k} 
+#                unless defined $v ;
+#
+#            $obj->_singleTarget($x, $k, $v, @_)
+#                or return undef ;
+#        }
+#
+#        return keys %$input ;
+#    }
+    
+    if ($x->{GlobMap})
+    {
+        $x->{oneInput} = 1 ;
+        foreach my $pair (@{ $x->{Pairs} })
+        {
+            my ($from, $to) = @$pair ;
+            $obj->_singleTarget($x, $from, $to, @_)
+                or return undef ;
+        }
+
+        return scalar @{ $x->{Pairs} } ;
+    }
+
+    if (! $x->{oneOutput} )
+    {
+        my $inFile = ($x->{inType} eq 'filenames' 
+                        || $x->{inType} eq 'filename');
+
+        $x->{inType} = $inFile ? 'filename' : 'buffer';
+        
+        foreach my $in ($x->{oneInput} ? $input : @$input)
+        {
+            my $out ;
+            $x->{oneInput} = 1 ;
+
+            $obj->_singleTarget($x, $in, $output, @_)
+                or return undef ;
+        }
+
+        return 1 ;
+    }
+
+    # finally the 1 to 1 and n to 1
+    return $obj->_singleTarget($x, $input, $output, @_);
+
+    croak "should not be here" ;
+}
+
+sub retErr
+{
+    my $x = shift ;
+    my $string = shift ;
+
+    ${ $x->{Error} } = $string ;
+
+    return undef ;
+}
+
+sub _singleTarget
+{
+    my $self      = shift ;
+    my $x         = shift ;
+    my $input     = shift;
+    my $output    = shift;
+    
+    my $buff = '';
+    $x->{buff} = \$buff ;
+
+    my $fh ;
+    if ($x->{outType} eq 'filename') {
+        my $mode = '>' ;
+        $mode = '>>'
+            if $x->{Got}->getValue('append') ;
+        $x->{fh} = new IO::File "$mode $output" 
+            or return retErr($x, "cannot open file '$output': $!") ;
+        binmode $x->{fh} if $x->{Got}->valueOrDefault('binmodeout');
+
+    }
+
+    elsif ($x->{outType} eq 'handle') {
+        $x->{fh} = $output;
+        binmode $x->{fh} if $x->{Got}->valueOrDefault('binmodeout');
+        if ($x->{Got}->getValue('append')) {
+                seek($x->{fh}, 0, SEEK_END)
+                    or return retErr($x, "Cannot seek to end of output filehandle: $!") ;
+            }
+    }
+
+    
+    elsif ($x->{outType} eq 'buffer' )
+    {
+        $$output = '' 
+            unless $x->{Got}->getValue('append');
+        $x->{buff} = $output ;
+    }
+
+    if ($x->{oneInput})
+    {
+        defined $self->_rd2($x, $input, $output)
+            or return undef; 
+    }
+    else
+    {
+        for my $element ( ($x->{inType} eq 'hash') ? keys %$input : @$input)
+        {
+            defined $self->_rd2($x, $element, $output) 
+                or return undef ;
+        }
+    }
+
+
+    if ( ($x->{outType} eq 'filename' && $output ne '-') || 
+         ($x->{outType} eq 'handle' && $x->{Got}->getValue('autoclose'))) {
+        $x->{fh}->close() 
+            or return retErr($x, $!); 
+        delete $x->{fh};
+    }
+
+    return 1 ;
+}
+
+sub _rd2
+{
+    my $self      = shift ;
+    my $x         = shift ;
+    my $input     = shift;
+    my $output    = shift;
+        
+    my $z = IO::Compress::Base::Common::createSelfTiedObject($x->{Class}, *$self->{Error});
+    
+    $z->_create($x->{Got}, 1, $input, @_)
+        or return undef ;
+
+    my $status ;
+    my $fh = $x->{fh};
+    
+    while (1) {
+
+        while (($status = $z->read($x->{buff})) > 0) {
+            if ($fh) {
+                local $\;
+                print $fh ${ $x->{buff} }
+                    or return $z->saveErrorString(undef, "Error writing to output file: $!", $!);
+                ${ $x->{buff} } = '' ;
+            }
+        }
+
+        if (! $x->{oneOutput} ) {
+            my $ot = $x->{outType} ;
+
+            if ($ot eq 'array') 
+              { push @$output, $x->{buff} }
+            elsif ($ot eq 'hash') 
+              { $output->{$input} = $x->{buff} }
+
+            my $buff = '';
+            $x->{buff} = \$buff;
+        }
+
+        last if $status < 0 || $z->smartEof();
+
+        last 
+            unless *$self->{MultiStream};
+
+        $status = $z->nextStream();
+
+        last 
+            unless $status == 1 ;
+    }
+
+    return $z->closeError(undef)
+        if $status < 0 ;
+
+    ${ *$self->{TrailingData} } = $z->trailingData()
+        if defined *$self->{TrailingData} ;
+
+    $z->close() 
+        or return undef ;
+
+    return 1 ;
+}
+
+sub TIEHANDLE
+{
+    return $_[0] if ref($_[0]);
+    die "OOPS\n" ;
+
+}
+  
+sub UNTIE
+{
+    my $self = shift ;
+}
+
+
+sub getHeaderInfo
+{
+    my $self = shift ;
+    wantarray ? @{ *$self->{InfoList} } : *$self->{Info};
+}
+
+sub readBlock
+{
+    my $self = shift ;
+    my $buff = shift ;
+    my $size = shift ;
+
+    if (defined *$self->{CompressedInputLength}) {
+        if (*$self->{CompressedInputLengthRemaining} == 0) {
+            delete *$self->{CompressedInputLength};
+            *$self->{CompressedInputLengthDone} = 1;
+            return STATUS_OK ;
+        }
+        $size = List::Util::min($size, *$self->{CompressedInputLengthRemaining} );
+        *$self->{CompressedInputLengthRemaining} -= $size ;
+    }
+    
+    my $status = $self->smartRead($buff, $size) ;
+    return $self->saveErrorString(STATUS_ERROR, "Error Reading Data: $!", $!)
+        if $status == STATUS_ERROR  ;
+
+    if ($status == 0 ) {
+        *$self->{Closed} = 1 ;
+        *$self->{EndStream} = 1 ;
+        return $self->saveErrorString(STATUS_ERROR, "unexpected end of file", STATUS_ERROR);
+    }
+
+    return STATUS_OK;
+}
+
+sub postBlockChk
+{
+    return STATUS_OK;
+}
+
+sub _raw_read
+{
+    # return codes
+    # >0 - ok, number of bytes read
+    # =0 - ok, eof
+    # <0 - not ok
+    
+    my $self = shift ;
+
+    return G_EOF if *$self->{Closed} ;
+    return G_EOF if *$self->{EndStream} ;
+
+    my $buffer = shift ;
+    my $scan_mode = shift ;
+
+    if (*$self->{Plain}) {
+        my $tmp_buff ;
+        my $len = $self->smartRead(\$tmp_buff, *$self->{BlockSize}) ;
+        
+        return $self->saveErrorString(G_ERR, "Error reading data: $!", $!) 
+                if $len == STATUS_ERROR ;
+
+        if ($len == 0 ) {
+            *$self->{EndStream} = 1 ;
+        }
+        else {
+            *$self->{PlainBytesRead} += $len ;
+            $$buffer .= $tmp_buff;
+        }
+
+        return $len ;
+    }
+
+    if (*$self->{NewStream}) {
+
+        $self->gotoNextStream() > 0
+            or return G_ERR;
+
+        # For the headers that actually uncompressed data, put the
+        # uncompressed data into the output buffer.
+        $$buffer .=  *$self->{Pending} ;
+        my $len = length  *$self->{Pending} ;
+        *$self->{Pending} = '';
+        return $len; 
+    }
+
+    my $temp_buf = '';
+    my $outSize = 0;
+    my $status = $self->readBlock(\$temp_buf, *$self->{BlockSize}, $outSize) ;
+    
+    return G_ERR
+        if $status == STATUS_ERROR  ;
+
+    my $buf_len = 0;
+    if ($status == STATUS_OK) {
+        my $beforeC_len = length $temp_buf;
+        my $before_len = defined $$buffer ? length $$buffer : 0 ;
+        $status = *$self->{Uncomp}->uncompr(\$temp_buf, $buffer,
+                                    defined *$self->{CompressedInputLengthDone} ||
+                                                $self->smartEof(), $outSize);
+                                                
+        # Remember the input buffer if it wasn't consumed completely
+        $self->pushBack($temp_buf) if *$self->{Uncomp}{ConsumesInput};
+
+        return $self->saveErrorString(G_ERR, *$self->{Uncomp}{Error}, *$self->{Uncomp}{ErrorNo})
+            if $self->saveStatus($status) == STATUS_ERROR;    
+
+        $self->postBlockChk($buffer, $before_len) == STATUS_OK
+            or return G_ERR;
+
+        $buf_len = defined $$buffer ? length($$buffer) - $before_len : 0;
+    
+        *$self->{CompSize}->add($beforeC_len - length $temp_buf) ;
+
+        *$self->{InflatedBytesRead} += $buf_len ;
+        *$self->{TotalInflatedBytesRead} += $buf_len ;
+        *$self->{UnCompSize}->add($buf_len) ;
+
+        $self->filterUncompressed($buffer, $before_len);
+
+#        if (*$self->{Encoding}) {
+#            use Encode ;
+#            *$self->{PendingDecode} .= substr($$buffer, $before_len) ;
+#            my $got = *$self->{Encoding}->decode(*$self->{PendingDecode}, Encode::FB_QUIET) ;
+#            substr($$buffer, $before_len) = $got;
+#        }
+    }
+
+    if ($status == STATUS_ENDSTREAM) {
+
+        *$self->{EndStream} = 1 ;
+
+        my $trailer;
+        my $trailer_size = *$self->{Info}{TrailerLength} ;
+        my $got = 0;
+        if (*$self->{Info}{TrailerLength})
+        {
+            $got = $self->smartRead(\$trailer, $trailer_size) ;
+        }
+
+        if ($got == $trailer_size) {
+            $self->chkTrailer($trailer) == STATUS_OK
+                or return G_ERR;
+        }
+        else {
+            return $self->TrailerError("trailer truncated. Expected " . 
+                                      "$trailer_size bytes, got $got")
+                if *$self->{Strict};
+            $self->pushBack($trailer)  ;
+        }
+
+        # TODO - if want file pointer, do it here
+
+        if (! $self->smartEof()) {
+            *$self->{NewStream} = 1 ;
+
+            if (*$self->{MultiStream}) {
+                *$self->{EndStream} = 0 ;
+                return $buf_len ;
+            }
+        }
+
+    }
+    
+
+    # return the number of uncompressed bytes read
+    return $buf_len ;
+}
+
+sub reset
+{
+    my $self = shift ;
+
+    return *$self->{Uncomp}->reset();
+}
+
+sub filterUncompressed
+{
+}
+
+#sub isEndStream
+#{
+#    my $self = shift ;
+#    return *$self->{NewStream} ||
+#           *$self->{EndStream} ;
+#}
+
+sub nextStream
+{
+    my $self = shift ;
+
+    my $status = $self->gotoNextStream();
+    $status == 1
+        or return $status ;
+
+    *$self->{TotalInflatedBytesRead} = 0 ;
+    *$self->{LineNo} = $. = 0;
+
+    return 1;
+}
+
+sub gotoNextStream
+{
+    my $self = shift ;
+
+    if (! *$self->{NewStream}) {
+        my $status = 1;
+        my $buffer ;
+
+        # TODO - make this more efficient if know the offset for the end of
+        # the stream and seekable
+        $status = $self->read($buffer) 
+            while $status > 0 ;
+
+        return $status
+            if $status < 0;
+    }
+
+    *$self->{NewStream} = 0 ;
+    *$self->{EndStream} = 0 ;
+    *$self->{CompressedInputLengthDone} = undef ;
+    *$self->{CompressedInputLength} = undef ;
+    $self->reset();
+    *$self->{UnCompSize}->reset();
+    *$self->{CompSize}->reset();
+
+    my $magic = $self->ckMagic();
+
+    if ( ! defined $magic) {
+        if (! *$self->{Transparent} || $self->eof())
+        {
+            *$self->{EndStream} = 1 ;
+            return 0;
+        }
+
+        $self->clearError();
+        *$self->{Type} = 'plain';
+        *$self->{Plain} = 1;
+        $self->pushBack(*$self->{HeaderPending})  ;
+    }
+    else
+    {
+        *$self->{Info} = $self->readHeader($magic);
+
+        if ( ! defined *$self->{Info} ) {
+            *$self->{EndStream} = 1 ;
+            return -1;
+        }
+    }
+
+    push @{ *$self->{InfoList} }, *$self->{Info} ;
+
+    return 1; 
+}
+
+sub streamCount
+{
+    my $self = shift ;
+    return 1 if ! defined *$self->{InfoList};
+    return scalar @{ *$self->{InfoList} }  ;
+}
+
+#sub read
+#{
+#    my $status = myRead(@_);
+#    return undef if $status < 0;
+#    return $status;
+#}
+
+sub read
+{
+    # return codes
+    # >0 - ok, number of bytes read
+    # =0 - ok, eof
+    # <0 - not ok
+    
+    my $self = shift ;
+
+    if (defined *$self->{ReadStatus} ) {
+        my $status = *$self->{ReadStatus}[0];
+        $self->saveErrorString( @{ *$self->{ReadStatus} } );
+        delete  *$self->{ReadStatus} ;
+        return $status ;
+    }
+
+    return G_EOF if *$self->{Closed} ;
+
+    my $buffer ;
+
+    if (ref $_[0] ) {
+        $self->croakError(*$self->{ClassName} . "::read: buffer parameter is read-only")
+            if Scalar::Util::readonly(${ $_[0] });
+
+        $self->croakError(*$self->{ClassName} . "::read: not a scalar reference $_[0]" )
+            unless ref $_[0] eq 'SCALAR' ;
+        $buffer = $_[0] ;
+    }
+    else {
+        $self->croakError(*$self->{ClassName} . "::read: buffer parameter is read-only")
+            if Scalar::Util::readonly($_[0]);
+
+        $buffer = \$_[0] ;
+    }
+
+    my $length = $_[1] ;
+    my $offset = $_[2] || 0;
+
+    if (! *$self->{AppendOutput}) {
+        if (! $offset) {    
+            $$buffer = '' ;
+        }
+        else {
+            if ($offset > length($$buffer)) {
+                $$buffer .= "\x00" x ($offset - length($$buffer));
+            }
+            else {
+                substr($$buffer, $offset) = '';
+            }
+        }
+    }
+    elsif (! defined $$buffer) {
+        $$buffer = '' ;
+    }
+
+    return G_EOF if !length *$self->{Pending} && *$self->{EndStream} ;
+
+    # the core read will return 0 if asked for 0 bytes
+    return 0 if defined $length && $length == 0 ;
+
+    $length = $length || 0;
+
+    $self->croakError(*$self->{ClassName} . "::read: length parameter is negative")
+        if $length < 0 ;
+
+    # Short-circuit if this is a simple read, with no length
+    # or offset specified.
+    unless ( $length || $offset) {
+        if (length *$self->{Pending}) {
+            $$buffer .= *$self->{Pending} ;
+            my $len = length *$self->{Pending};
+            *$self->{Pending} = '' ;
+            return $len ;
+        }
+        else {
+            my $len = 0;
+            $len = $self->_raw_read($buffer) 
+                while ! *$self->{EndStream} && $len == 0 ;
+            return $len ;
+        }
+    }
+
+    # Need to jump through more hoops - either length or offset 
+    # or both are specified.
+    my $out_buffer = *$self->{Pending} ;
+    *$self->{Pending} = '';
+
+
+    while (! *$self->{EndStream} && length($out_buffer) < $length)
+    {
+        my $buf_len = $self->_raw_read(\$out_buffer);
+        return $buf_len 
+            if $buf_len < 0 ;
+    }
+
+    $length = length $out_buffer 
+        if length($out_buffer) < $length ;
+
+    return 0 
+        if $length == 0 ;
+
+    $$buffer = '' 
+        if ! defined $$buffer;
+
+    $offset = length $$buffer
+        if *$self->{AppendOutput} ;
+
+    *$self->{Pending} = $out_buffer;
+    $out_buffer = \*$self->{Pending} ;
+
+    substr($$buffer, $offset) = substr($$out_buffer, 0, $length) ;
+    substr($$out_buffer, 0, $length) =  '' ;
+
+    return $length ;
+}
+
+sub _getline
+{
+    my $self = shift ;
+    my $status = 0 ;
+
+    # Slurp Mode
+    if ( ! defined $/ ) {
+        my $data ;
+        1 while ($status = $self->read($data)) > 0 ;
+        return ($status, \$data);
+    }
+
+    # Record Mode
+    if ( ref $/ eq 'SCALAR' && ${$/} =~ /^\d+$/ && ${$/} > 0) {
+        my $reclen = ${$/} ;
+        my $data ;
+        $status = $self->read($data, $reclen) ;
+        return ($status, \$data);
+    }
+
+    # Paragraph Mode
+    if ( ! length $/ ) {
+        my $paragraph ;    
+        while (($status = $self->read($paragraph)) > 0 ) {
+            if ($paragraph =~ s/^(.*?\n\n+)//s) {
+                *$self->{Pending}  = $paragraph ;
+                my $par = $1 ;
+                return (1, \$par);
+            }
+        }
+        return ($status, \$paragraph);
+    }
+
+    # $/ isn't empty, or a reference, so it's Line Mode.
+    {
+        my $line ;    
+        my $p = \*$self->{Pending}  ;
+        while (($status = $self->read($line)) > 0 ) {
+            my $offset = index($line, $/);
+            if ($offset >= 0) {
+                my $l = substr($line, 0, $offset + length $/ );
+                substr($line, 0, $offset + length $/) = '';    
+                $$p = $line;
+                return (1, \$l);
+            }
+        }
+
+        return ($status, \$line);
+    }
+}
+
+sub getline
+{
+    my $self = shift;
+
+    if (defined *$self->{ReadStatus} ) {
+        $self->saveErrorString( @{ *$self->{ReadStatus} } );
+        delete  *$self->{ReadStatus} ;
+        return undef;
+    }
+
+    return undef 
+        if *$self->{Closed} || (!length *$self->{Pending} && *$self->{EndStream}) ;
+
+    my $current_append = *$self->{AppendOutput} ;
+    *$self->{AppendOutput} = 1;
+
+    my ($status, $lineref) = $self->_getline();
+    *$self->{AppendOutput} = $current_append;
+
+    return undef 
+        if $status < 0 || length $$lineref == 0 ;
+
+    $. = ++ *$self->{LineNo} ;
+
+    return $$lineref ;
+}
+
+sub getlines
+{
+    my $self = shift;
+    $self->croakError(*$self->{ClassName} . 
+            "::getlines: called in scalar context\n") unless wantarray;
+    my($line, @lines);
+    push(@lines, $line) 
+        while defined($line = $self->getline);
+    return @lines;
+}
+
+sub READLINE
+{
+    goto &getlines if wantarray;
+    goto &getline;
+}
+
+sub getc
+{
+    my $self = shift;
+    my $buf;
+    return $buf if $self->read($buf, 1);
+    return undef;
+}
+
+sub ungetc
+{
+    my $self = shift;
+    *$self->{Pending} = ""  unless defined *$self->{Pending} ;    
+    *$self->{Pending} = $_[0] . *$self->{Pending} ;    
+}
+
+
+sub trailingData
+{
+    my $self = shift ;
+
+    if (defined *$self->{FH} || defined *$self->{InputEvent} ) {
+        return *$self->{Prime} ;
+    }
+    else {
+        my $buf = *$self->{Buffer} ;
+        my $offset = *$self->{BufferOffset} ;
+        return substr($$buf, $offset) ;
+    }
+}
+
+
+sub eof
+{
+    my $self = shift ;
+
+    return (*$self->{Closed} ||
+              (!length *$self->{Pending} 
+                && ( $self->smartEof() || *$self->{EndStream}))) ;
+}
+
+sub tell
+{
+    my $self = shift ;
+
+    my $in ;
+    if (*$self->{Plain}) {
+        $in = *$self->{PlainBytesRead} ;
+    }
+    else {
+        $in = *$self->{TotalInflatedBytesRead} ;
+    }
+
+    my $pending = length *$self->{Pending} ;
+
+    return 0 if $pending > $in ;
+    return $in - $pending ;
+}
+
+sub close
+{
+    # todo - what to do if close is called before the end of the gzip file
+    #        do we remember any trailing data?
+    my $self = shift ;
+
+    return 1 if *$self->{Closed} ;
+
+    untie *$self 
+        if $] >= 5.008 ;
+
+    my $status = 1 ;
+
+    if (defined *$self->{FH}) {
+        if ((! *$self->{Handle} || *$self->{AutoClose}) && ! *$self->{StdIO}) {
+            local $.; 
+            $! = 0 ;
+            $status = *$self->{FH}->close();
+            return $self->saveErrorString(0, $!, $!)
+                if !*$self->{InNew} && $self->saveStatus($!) != 0 ;
+        }
+        delete *$self->{FH} ;
+        $! = 0 ;
+    }
+    *$self->{Closed} = 1 ;
+
+    return 1;
+}
+
+sub DESTROY
+{
+    my $self = shift ;
+    local ($., $@, $!, $^E, $?);
+
+    $self->close() ;
+}
+
+sub seek
+{
+    my $self     = shift ;
+    my $position = shift;
+    my $whence   = shift ;
+
+    my $here = $self->tell() ;
+    my $target = 0 ;
+
+
+    if ($whence == SEEK_SET) {
+        $target = $position ;
+    }
+    elsif ($whence == SEEK_CUR) {
+        $target = $here + $position ;
+    }
+    elsif ($whence == SEEK_END) {
+        $target = $position ;
+        $self->croakError(*$self->{ClassName} . "::seek: SEEK_END not allowed") ;
+    }
+    else {
+        $self->croakError(*$self->{ClassName} ."::seek: unknown value, $whence, for whence parameter");
+    }
+
+    # short circuit if seeking to current offset
+    if ($target == $here) {
+        # On ordinary filehandles, seeking to the current
+        # position also clears the EOF condition, so we
+        # emulate this behavior locally while simultaneously
+        # cascading it to the underlying filehandle
+        if (*$self->{Plain}) {
+            *$self->{EndStream} = 0;
+            seek(*$self->{FH},0,1) if *$self->{FH};
+        }
+        return 1;
+    }
+
+    # Outlaw any attempt to seek backwards
+    $self->croakError( *$self->{ClassName} ."::seek: cannot seek backwards")
+        if $target < $here ;
+
+    # Walk the file to the new offset
+    my $offset = $target - $here ;
+
+    my $got;
+    while (($got = $self->read(my $buffer, List::Util::min($offset, *$self->{BlockSize})) ) > 0)
+    {
+        $offset -= $got;
+        last if $offset == 0 ;
+    }
+
+    $here = $self->tell() ;
+    return $offset == 0 ? 1 : 0 ;
+}
+
+sub fileno
+{
+    my $self = shift ;
+    return defined *$self->{FH} 
+           ? fileno *$self->{FH} 
+           : undef ;
+}
+
+sub binmode
+{
+    1;
+#    my $self     = shift ;
+#    return defined *$self->{FH} 
+#            ? binmode *$self->{FH} 
+#            : 1 ;
+}
+
+sub opened
+{
+    my $self     = shift ;
+    return ! *$self->{Closed} ;
+}
+
+sub autoflush
+{
+    my $self     = shift ;
+    return defined *$self->{FH} 
+            ? *$self->{FH}->autoflush(@_) 
+            : undef ;
+}
+
+sub input_line_number
+{
+    my $self = shift ;
+    my $last = *$self->{LineNo};
+    $. = *$self->{LineNo} = $_[1] if @_ ;
+    return $last;
+}
+
+
+*BINMODE  = \&binmode;
+*SEEK     = \&seek; 
+*READ     = \&read;
+*sysread  = \&read;
+*TELL     = \&tell;
+*EOF      = \&eof;
+
+*FILENO   = \&fileno;
+*CLOSE    = \&close;
+
+sub _notAvailable
+{
+    my $name = shift ;
+    return sub { croak "$name Not Available: File opened only for intput" ; } ;
+}
+
+
+*print    = _notAvailable('print');
+*PRINT    = _notAvailable('print');
+*printf   = _notAvailable('printf');
+*PRINTF   = _notAvailable('printf');
+*write    = _notAvailable('write');
+*WRITE    = _notAvailable('write');
+
+#*sysread  = \&read;
+#*syswrite = \&_notAvailable;
+
+
+
+package IO::Uncompress::Base ;
+
+
+1 ;
+__END__
+
+=head1 NAME
+
+IO::Uncompress::Base - Base Class for IO::Uncompress modules 
+
+=head1 SYNOPSIS
+
+    use IO::Uncompress::Base ;
+
+=head1 DESCRIPTION
+
+This module is not intended for direct use in application code. Its sole
+purpose is to be sub-classed by IO::Uncompress modules.
+
+=head1 SEE ALSO
+
+L<Compress::Zlib>, L<IO::Compress::Gzip>, L<IO::Uncompress::Gunzip>, L<IO::Compress::Deflate>, L<IO::Uncompress::Inflate>, L<IO::Compress::RawDeflate>, L<IO::Uncompress::RawInflate>, L<IO::Compress::Bzip2>, L<IO::Uncompress::Bunzip2>, L<IO::Compress::Lzma>, L<IO::Uncompress::UnLzma>, L<IO::Compress::Xz>, L<IO::Uncompress::UnXz>, L<IO::Compress::Lzop>, L<IO::Uncompress::UnLzop>, L<IO::Compress::Lzf>, L<IO::Uncompress::UnLzf>, L<IO::Uncompress::AnyInflate>, L<IO::Uncompress::AnyUncompress>
+
+L<IO::Compress::FAQ|IO::Compress::FAQ>
+
+L<File::GlobMapper|File::GlobMapper>, L<Archive::Zip|Archive::Zip>,
+L<Archive::Tar|Archive::Tar>,
+L<IO::Zlib|IO::Zlib>
+
+=head1 AUTHOR
+
+This module was written by Paul Marquess, F<pmqs@cpan.org>. 
+
+=head1 MODIFICATION HISTORY
+
+See the Changes file.
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright (c) 2005-2015 Paul Marquess. All rights reserved.
+
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
diff --git a/lib/5.24.1/IO/Uncompress/Bunzip2.pm b/lib/5.24.1/IO/Uncompress/Bunzip2.pm
new file mode 100644
index 00000000..97bc4158
--- /dev/null
+++ b/lib/5.24.1/IO/Uncompress/Bunzip2.pm
@@ -0,0 +1,910 @@
+package IO::Uncompress::Bunzip2 ;
+
+use strict ;
+use warnings;
+use bytes;
+
+use IO::Compress::Base::Common 2.069 qw(:Status );
+
+use IO::Uncompress::Base 2.069 ;
+use IO::Uncompress::Adapter::Bunzip2 2.069 ;
+
+require Exporter ;
+our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $Bunzip2Error);
+
+$VERSION = '2.069_001';
+$Bunzip2Error = '';
+
+@ISA    = qw( Exporter IO::Uncompress::Base );
+@EXPORT_OK = qw( $Bunzip2Error bunzip2 ) ;
+#%EXPORT_TAGS = %IO::Uncompress::Base::EXPORT_TAGS ;
+push @{ $EXPORT_TAGS{all} }, @EXPORT_OK ;
+#Exporter::export_ok_tags('all');
+
+
+sub new
+{
+    my $class = shift ;
+    my $obj = IO::Compress::Base::Common::createSelfTiedObject($class, \$Bunzip2Error);
+
+    $obj->_create(undef, 0, @_);
+}
+
+sub bunzip2
+{
+    my $obj = IO::Compress::Base::Common::createSelfTiedObject(undef, \$Bunzip2Error);
+    return $obj->_inf(@_);
+}
+
+sub getExtraParams
+{
+    return (
+            'verbosity'     => [IO::Compress::Base::Common::Parse_boolean,   0],
+            'small'         => [IO::Compress::Base::Common::Parse_boolean,   0],
+        );
+}
+
+
+sub ckParams
+{
+    my $self = shift ;
+    my $got = shift ;
+
+    return 1;
+}
+
+sub mkUncomp
+{
+    my $self = shift ;
+    my $got = shift ;
+
+     my $magic = $self->ckMagic()
+        or return 0;
+
+    *$self->{Info} = $self->readHeader($magic)
+        or return undef ;
+
+    my $Small     = $got->getValue('small');
+    my $Verbosity = $got->getValue('verbosity');
+
+    my ($obj, $errstr, $errno) =  IO::Uncompress::Adapter::Bunzip2::mkUncompObject(
+                                                    $Small, $Verbosity);
+
+    return $self->saveErrorString(undef, $errstr, $errno)
+        if ! defined $obj;
+    
+    *$self->{Uncomp} = $obj;
+
+    return 1;
+
+}
+
+
+sub ckMagic
+{
+    my $self = shift;
+
+    my $magic ;
+    $self->smartReadExact(\$magic, 4);
+
+    *$self->{HeaderPending} = $magic ;
+    
+    return $self->HeaderError("Header size is " . 
+                                        4 . " bytes") 
+        if length $magic != 4;
+
+    return $self->HeaderError("Bad Magic.")
+        if ! isBzip2Magic($magic) ;
+                      
+        
+    *$self->{Type} = 'bzip2';
+    return $magic;
+}
+
+sub readHeader
+{
+    my $self = shift;
+    my $magic = shift ;
+
+    $self->pushBack($magic);
+    *$self->{HeaderPending} = '';
+
+
+    return {
+        'Type'              => 'bzip2',
+        'FingerprintLength' => 4,
+        'HeaderLength'      => 4,
+        'TrailerLength'     => 0,
+        'Header'            => '$magic'
+        };
+    
+}
+
+sub chkTrailer
+{
+    return STATUS_OK;
+}
+
+
+
+sub isBzip2Magic
+{
+    my $buffer = shift ;
+    return $buffer =~ /^BZh\d$/;
+}
+
+1 ;
+
+__END__
+
+
+=head1 NAME
+
+IO::Uncompress::Bunzip2 - Read bzip2 files/buffers
+
+=head1 SYNOPSIS
+
+    use IO::Uncompress::Bunzip2 qw(bunzip2 $Bunzip2Error) ;
+
+    my $status = bunzip2 $input => $output [,OPTS]
+        or die "bunzip2 failed: $Bunzip2Error\n";
+
+    my $z = new IO::Uncompress::Bunzip2 $input [OPTS] 
+        or die "bunzip2 failed: $Bunzip2Error\n";
+
+    $status = $z->read($buffer)
+    $status = $z->read($buffer, $length)
+    $status = $z->read($buffer, $length, $offset)
+    $line = $z->getline()
+    $char = $z->getc()
+    $char = $z->ungetc()
+    $char = $z->opened()
+
+    $data = $z->trailingData()
+    $status = $z->nextStream()
+    $data = $z->getHeaderInfo()
+    $z->tell()
+    $z->seek($position, $whence)
+    $z->binmode()
+    $z->fileno()
+    $z->eof()
+    $z->close()
+
+    $Bunzip2Error ;
+
+    # IO::File mode
+
+    <$z>
+    read($z, $buffer);
+    read($z, $buffer, $length);
+    read($z, $buffer, $length, $offset);
+    tell($z)
+    seek($z, $position, $whence)
+    binmode($z)
+    fileno($z)
+    eof($z)
+    close($z)
+
+=head1 DESCRIPTION
+
+This module provides a Perl interface that allows the reading of
+bzip2 files/buffers.
+
+For writing bzip2 files/buffers, see the companion module IO::Compress::Bzip2.
+
+=head1 Functional Interface
+
+A top-level function, C<bunzip2>, is provided to carry out
+"one-shot" uncompression between buffers and/or files. For finer
+control over the uncompression process, see the L</"OO Interface">
+section.
+
+    use IO::Uncompress::Bunzip2 qw(bunzip2 $Bunzip2Error) ;
+
+    bunzip2 $input_filename_or_reference => $output_filename_or_reference [,OPTS] 
+        or die "bunzip2 failed: $Bunzip2Error\n";
+
+The functional interface needs Perl5.005 or better.
+
+=head2 bunzip2 $input_filename_or_reference => $output_filename_or_reference [, OPTS]
+
+C<bunzip2> expects at least two parameters,
+C<$input_filename_or_reference> and C<$output_filename_or_reference>.
+
+=head3 The C<$input_filename_or_reference> parameter
+
+The parameter, C<$input_filename_or_reference>, is used to define the
+source of the compressed data. 
+
+It can take one of the following forms:
+
+=over 5
+
+=item A filename
+
+If the <$input_filename_or_reference> parameter is a simple scalar, it is
+assumed to be a filename. This file will be opened for reading and the
+input data will be read from it.
+
+=item A filehandle
+
+If the C<$input_filename_or_reference> parameter is a filehandle, the input
+data will be read from it.  The string '-' can be used as an alias for
+standard input.
+
+=item A scalar reference 
+
+If C<$input_filename_or_reference> is a scalar reference, the input data
+will be read from C<$$input_filename_or_reference>.
+
+=item An array reference 
+
+If C<$input_filename_or_reference> is an array reference, each element in
+the array must be a filename.
+
+The input data will be read from each file in turn. 
+
+The complete array will be walked to ensure that it only
+contains valid filenames before any data is uncompressed.
+
+=item An Input FileGlob string
+
+If C<$input_filename_or_reference> is a string that is delimited by the
+characters "<" and ">" C<bunzip2> will assume that it is an 
+I<input fileglob string>. The input is the list of files that match the 
+fileglob.
+
+See L<File::GlobMapper|File::GlobMapper> for more details.
+
+=back
+
+If the C<$input_filename_or_reference> parameter is any other type,
+C<undef> will be returned.
+
+=head3 The C<$output_filename_or_reference> parameter
+
+The parameter C<$output_filename_or_reference> is used to control the
+destination of the uncompressed data. This parameter can take one of
+these forms.
+
+=over 5
+
+=item A filename
+
+If the C<$output_filename_or_reference> parameter is a simple scalar, it is
+assumed to be a filename.  This file will be opened for writing and the 
+uncompressed data will be written to it.
+
+=item A filehandle
+
+If the C<$output_filename_or_reference> parameter is a filehandle, the
+uncompressed data will be written to it.  The string '-' can be used as
+an alias for standard output.
+
+=item A scalar reference 
+
+If C<$output_filename_or_reference> is a scalar reference, the
+uncompressed data will be stored in C<$$output_filename_or_reference>.
+
+=item An Array Reference
+
+If C<$output_filename_or_reference> is an array reference, 
+the uncompressed data will be pushed onto the array.
+
+=item An Output FileGlob
+
+If C<$output_filename_or_reference> is a string that is delimited by the
+characters "<" and ">" C<bunzip2> will assume that it is an
+I<output fileglob string>. The output is the list of files that match the
+fileglob.
+
+When C<$output_filename_or_reference> is an fileglob string,
+C<$input_filename_or_reference> must also be a fileglob string. Anything
+else is an error.
+
+See L<File::GlobMapper|File::GlobMapper> for more details.
+
+=back
+
+If the C<$output_filename_or_reference> parameter is any other type,
+C<undef> will be returned.
+
+=head2 Notes
+
+When C<$input_filename_or_reference> maps to multiple compressed
+files/buffers and C<$output_filename_or_reference> is
+a single file/buffer, after uncompression C<$output_filename_or_reference> will contain a
+concatenation of all the uncompressed data from each of the input
+files/buffers.
+
+=head2 Optional Parameters
+
+Unless specified below, the optional parameters for C<bunzip2>,
+C<OPTS>, are the same as those used with the OO interface defined in the
+L</"Constructor Options"> section below.
+
+=over 5
+
+=item C<< AutoClose => 0|1 >>
+
+This option applies to any input or output data streams to 
+C<bunzip2> that are filehandles.
+
+If C<AutoClose> is specified, and the value is true, it will result in all
+input and/or output filehandles being closed once C<bunzip2> has
+completed.
+
+This parameter defaults to 0.
+
+=item C<< BinModeOut => 0|1 >>
+
+When writing to a file or filehandle, set C<binmode> before writing to the
+file.
+
+Defaults to 0.
+
+=item C<< Append => 0|1 >>
+
+The behaviour of this option is dependent on the type of output data
+stream.
+
+=over 5
+
+=item * A Buffer
+
+If C<Append> is enabled, all uncompressed data will be append to the end of
+the output buffer. Otherwise the output buffer will be cleared before any
+uncompressed data is written to it.
+
+=item * A Filename
+
+If C<Append> is enabled, the file will be opened in append mode. Otherwise
+the contents of the file, if any, will be truncated before any uncompressed
+data is written to it.
+
+=item * A Filehandle
+
+If C<Append> is enabled, the filehandle will be positioned to the end of
+the file via a call to C<seek> before any uncompressed data is
+written to it.  Otherwise the file pointer will not be moved.
+
+=back
+
+When C<Append> is specified, and set to true, it will I<append> all uncompressed 
+data to the output data stream.
+
+So when the output is a filehandle it will carry out a seek to the eof
+before writing any uncompressed data. If the output is a filename, it will be opened for
+appending. If the output is a buffer, all uncompressed data will be
+appended to the existing buffer.
+
+Conversely when C<Append> is not specified, or it is present and is set to
+false, it will operate as follows.
+
+When the output is a filename, it will truncate the contents of the file
+before writing any uncompressed data. If the output is a filehandle
+its position will not be changed. If the output is a buffer, it will be
+wiped before any uncompressed data is output.
+
+Defaults to 0.
+
+=item C<< MultiStream => 0|1 >>
+
+If the input file/buffer contains multiple compressed data streams, this
+option will uncompress the whole lot as a single data stream.
+
+Defaults to 0.
+
+=item C<< TrailingData => $scalar >>
+
+Returns the data, if any, that is present immediately after the compressed
+data stream once uncompression is complete. 
+
+This option can be used when there is useful information immediately
+following the compressed data stream, and you don't know the length of the
+compressed data stream.
+
+If the input is a buffer, C<trailingData> will return everything from the
+end of the compressed data stream to the end of the buffer.
+
+If the input is a filehandle, C<trailingData> will return the data that is
+left in the filehandle input buffer once the end of the compressed data
+stream has been reached. You can then use the filehandle to read the rest
+of the input file. 
+
+Don't bother using C<trailingData> if the input is a filename.
+
+If you know the length of the compressed data stream before you start
+uncompressing, you can avoid having to use C<trailingData> by setting the
+C<InputLength> option.
+
+=back
+
+=head2 Examples
+
+To read the contents of the file C<file1.txt.bz2> and write the
+uncompressed data to the file C<file1.txt>.
+
+    use strict ;
+    use warnings ;
+    use IO::Uncompress::Bunzip2 qw(bunzip2 $Bunzip2Error) ;
+
+    my $input = "file1.txt.bz2";
+    my $output = "file1.txt";
+    bunzip2 $input => $output
+        or die "bunzip2 failed: $Bunzip2Error\n";
+
+To read from an existing Perl filehandle, C<$input>, and write the
+uncompressed data to a buffer, C<$buffer>.
+
+    use strict ;
+    use warnings ;
+    use IO::Uncompress::Bunzip2 qw(bunzip2 $Bunzip2Error) ;
+    use IO::File ;
+
+    my $input = new IO::File "<file1.txt.bz2"
+        or die "Cannot open 'file1.txt.bz2': $!\n" ;
+    my $buffer ;
+    bunzip2 $input => \$buffer 
+        or die "bunzip2 failed: $Bunzip2Error\n";
+
+To uncompress all files in the directory "/my/home" that match "*.txt.bz2" and store the compressed data in the same directory
+
+    use strict ;
+    use warnings ;
+    use IO::Uncompress::Bunzip2 qw(bunzip2 $Bunzip2Error) ;
+
+    bunzip2 '</my/home/*.txt.bz2>' => '</my/home/#1.txt>'
+        or die "bunzip2 failed: $Bunzip2Error\n";
+
+and if you want to compress each file one at a time, this will do the trick
+
+    use strict ;
+    use warnings ;
+    use IO::Uncompress::Bunzip2 qw(bunzip2 $Bunzip2Error) ;
+
+    for my $input ( glob "/my/home/*.txt.bz2" )
+    {
+        my $output = $input;
+        $output =~ s/.bz2// ;
+        bunzip2 $input => $output 
+            or die "Error compressing '$input': $Bunzip2Error\n";
+    }
+
+=head1 OO Interface
+
+=head2 Constructor
+
+The format of the constructor for IO::Uncompress::Bunzip2 is shown below
+
+    my $z = new IO::Uncompress::Bunzip2 $input [OPTS]
+        or die "IO::Uncompress::Bunzip2 failed: $Bunzip2Error\n";
+
+Returns an C<IO::Uncompress::Bunzip2> object on success and undef on failure.
+The variable C<$Bunzip2Error> will contain an error message on failure.
+
+If you are running Perl 5.005 or better the object, C<$z>, returned from
+IO::Uncompress::Bunzip2 can be used exactly like an L<IO::File|IO::File> filehandle.
+This means that all normal input file operations can be carried out with
+C<$z>.  For example, to read a line from a compressed file/buffer you can
+use either of these forms
+
+    $line = $z->getline();
+    $line = <$z>;
+
+The mandatory parameter C<$input> is used to determine the source of the
+compressed data. This parameter can take one of three forms.
+
+=over 5
+
+=item A filename
+
+If the C<$input> parameter is a scalar, it is assumed to be a filename. This
+file will be opened for reading and the compressed data will be read from it.
+
+=item A filehandle
+
+If the C<$input> parameter is a filehandle, the compressed data will be
+read from it.
+The string '-' can be used as an alias for standard input.
+
+=item A scalar reference 
+
+If C<$input> is a scalar reference, the compressed data will be read from
+C<$$input>.
+
+=back
+
+=head2 Constructor Options
+
+The option names defined below are case insensitive and can be optionally
+prefixed by a '-'.  So all of the following are valid
+
+    -AutoClose
+    -autoclose
+    AUTOCLOSE
+    autoclose
+
+OPTS is a combination of the following options:
+
+=over 5
+
+=item C<< AutoClose => 0|1 >>
+
+This option is only valid when the C<$input> parameter is a filehandle. If
+specified, and the value is true, it will result in the file being closed once
+either the C<close> method is called or the IO::Uncompress::Bunzip2 object is
+destroyed.
+
+This parameter defaults to 0.
+
+=item C<< MultiStream => 0|1 >>
+
+Allows multiple concatenated compressed streams to be treated as a single
+compressed stream. Decompression will stop once either the end of the
+file/buffer is reached, an error is encountered (premature eof, corrupt
+compressed data) or the end of a stream is not immediately followed by the
+start of another stream.
+
+This parameter defaults to 0.
+
+=item C<< Prime => $string >>
+
+This option will uncompress the contents of C<$string> before processing the
+input file/buffer.
+
+This option can be useful when the compressed data is embedded in another
+file/data structure and it is not possible to work out where the compressed
+data begins without having to read the first few bytes. If this is the
+case, the uncompression can be I<primed> with these bytes using this
+option.
+
+=item C<< Transparent => 0|1 >>
+
+If this option is set and the input file/buffer is not compressed data,
+the module will allow reading of it anyway.
+
+In addition, if the input file/buffer does contain compressed data and
+there is non-compressed data immediately following it, setting this option
+will make this module treat the whole file/buffer as a single data stream.
+
+This option defaults to 1.
+
+=item C<< BlockSize => $num >>
+
+When reading the compressed input data, IO::Uncompress::Bunzip2 will read it in
+blocks of C<$num> bytes.
+
+This option defaults to 4096.
+
+=item C<< InputLength => $size >>
+
+When present this option will limit the number of compressed bytes read
+from the input file/buffer to C<$size>. This option can be used in the
+situation where there is useful data directly after the compressed data
+stream and you know beforehand the exact length of the compressed data
+stream. 
+
+This option is mostly used when reading from a filehandle, in which case
+the file pointer will be left pointing to the first byte directly after the
+compressed data stream.
+
+This option defaults to off.
+
+=item C<< Append => 0|1 >>
+
+This option controls what the C<read> method does with uncompressed data.
+
+If set to 1, all uncompressed data will be appended to the output parameter
+of the C<read> method.
+
+If set to 0, the contents of the output parameter of the C<read> method
+will be overwritten by the uncompressed data.
+
+Defaults to 0.
+
+=item C<< Strict => 0|1 >>
+
+This option is a no-op.
+
+=item C<< Small => 0|1 >>
+
+When non-zero this options will make bzip2 use a decompression algorithm
+that uses less memory at the expense of increasing the amount of time
+taken for decompression. 
+
+Default is 0.
+
+=back
+
+=head2 Examples
+
+TODO
+
+=head1 Methods 
+
+=head2 read
+
+Usage is
+
+    $status = $z->read($buffer)
+
+Reads a block of compressed data (the size of the compressed block is
+determined by the C<Buffer> option in the constructor), uncompresses it and
+writes any uncompressed data into C<$buffer>. If the C<Append> parameter is
+set in the constructor, the uncompressed data will be appended to the
+C<$buffer> parameter. Otherwise C<$buffer> will be overwritten.
+
+Returns the number of uncompressed bytes written to C<$buffer>, zero if eof
+or a negative number on error.
+
+=head2 read
+
+Usage is
+
+    $status = $z->read($buffer, $length)
+    $status = $z->read($buffer, $length, $offset)
+
+    $status = read($z, $buffer, $length)
+    $status = read($z, $buffer, $length, $offset)
+
+Attempt to read C<$length> bytes of uncompressed data into C<$buffer>.
+
+The main difference between this form of the C<read> method and the
+previous one, is that this one will attempt to return I<exactly> C<$length>
+bytes. The only circumstances that this function will not is if end-of-file
+or an IO error is encountered.
+
+Returns the number of uncompressed bytes written to C<$buffer>, zero if eof
+or a negative number on error.
+
+=head2 getline
+
+Usage is
+
+    $line = $z->getline()
+    $line = <$z>
+
+Reads a single line. 
+
+This method fully supports the use of the variable C<$/> (or
+C<$INPUT_RECORD_SEPARATOR> or C<$RS> when C<English> is in use) to
+determine what constitutes an end of line. Paragraph mode, record mode and
+file slurp mode are all supported. 
+
+=head2 getc
+
+Usage is 
+
+    $char = $z->getc()
+
+Read a single character.
+
+=head2 ungetc
+
+Usage is
+
+    $char = $z->ungetc($string)
+
+=head2 getHeaderInfo
+
+Usage is
+
+    $hdr  = $z->getHeaderInfo();
+    @hdrs = $z->getHeaderInfo();
+
+This method returns either a hash reference (in scalar context) or a list
+or hash references (in array context) that contains information about each
+of the header fields in the compressed data stream(s).
+
+=head2 tell
+
+Usage is
+
+    $z->tell()
+    tell $z
+
+Returns the uncompressed file offset.
+
+=head2 eof
+
+Usage is
+
+    $z->eof();
+    eof($z);
+
+Returns true if the end of the compressed input stream has been reached.
+
+=head2 seek
+
+    $z->seek($position, $whence);
+    seek($z, $position, $whence);
+
+Provides a sub-set of the C<seek> functionality, with the restriction
+that it is only legal to seek forward in the input file/buffer.
+It is a fatal error to attempt to seek backward.
+
+Note that the implementation of C<seek> in this module does not provide
+true random access to a compressed file/buffer. It  works by uncompressing
+data from the current offset in the file/buffer until it reaches the
+uncompressed offset specified in the parameters to C<seek>. For very small
+files this may be acceptable behaviour. For large files it may cause an
+unacceptable delay.
+
+The C<$whence> parameter takes one the usual values, namely SEEK_SET,
+SEEK_CUR or SEEK_END.
+
+Returns 1 on success, 0 on failure.
+
+=head2 binmode
+
+Usage is
+
+    $z->binmode
+    binmode $z ;
+
+This is a noop provided for completeness.
+
+=head2 opened
+
+    $z->opened()
+
+Returns true if the object currently refers to a opened file/buffer. 
+
+=head2 autoflush
+
+    my $prev = $z->autoflush()
+    my $prev = $z->autoflush(EXPR)
+
+If the C<$z> object is associated with a file or a filehandle, this method
+returns the current autoflush setting for the underlying filehandle. If
+C<EXPR> is present, and is non-zero, it will enable flushing after every
+write/print operation.
+
+If C<$z> is associated with a buffer, this method has no effect and always
+returns C<undef>.
+
+B<Note> that the special variable C<$|> B<cannot> be used to set or
+retrieve the autoflush setting.
+
+=head2 input_line_number
+
+    $z->input_line_number()
+    $z->input_line_number(EXPR)
+
+Returns the current uncompressed line number. If C<EXPR> is present it has
+the effect of setting the line number. Note that setting the line number
+does not change the current position within the file/buffer being read.
+
+The contents of C<$/> are used to determine what constitutes a line
+terminator.
+
+=head2 fileno
+
+    $z->fileno()
+    fileno($z)
+
+If the C<$z> object is associated with a file or a filehandle, C<fileno>
+will return the underlying file descriptor. Once the C<close> method is
+called C<fileno> will return C<undef>.
+
+If the C<$z> object is associated with a buffer, this method will return
+C<undef>.
+
+=head2 close
+
+    $z->close() ;
+    close $z ;
+
+Closes the output file/buffer. 
+
+For most versions of Perl this method will be automatically invoked if
+the IO::Uncompress::Bunzip2 object is destroyed (either explicitly or by the
+variable with the reference to the object going out of scope). The
+exceptions are Perl versions 5.005 through 5.00504 and 5.8.0. In
+these cases, the C<close> method will be called automatically, but
+not until global destruction of all live objects when the program is
+terminating.
+
+Therefore, if you want your scripts to be able to run on all versions
+of Perl, you should call C<close> explicitly and not rely on automatic
+closing.
+
+Returns true on success, otherwise 0.
+
+If the C<AutoClose> option has been enabled when the IO::Uncompress::Bunzip2
+object was created, and the object is associated with a file, the
+underlying file will also be closed.
+
+=head2 nextStream
+
+Usage is
+
+    my $status = $z->nextStream();
+
+Skips to the next compressed data stream in the input file/buffer. If a new
+compressed data stream is found, the eof marker will be cleared and C<$.>
+will be reset to 0.
+
+Returns 1 if a new stream was found, 0 if none was found, and -1 if an
+error was encountered.
+
+=head2 trailingData
+
+Usage is
+
+    my $data = $z->trailingData();
+
+Returns the data, if any, that is present immediately after the compressed
+data stream once uncompression is complete. It only makes sense to call
+this method once the end of the compressed data stream has been
+encountered.
+
+This option can be used when there is useful information immediately
+following the compressed data stream, and you don't know the length of the
+compressed data stream.
+
+If the input is a buffer, C<trailingData> will return everything from the
+end of the compressed data stream to the end of the buffer.
+
+If the input is a filehandle, C<trailingData> will return the data that is
+left in the filehandle input buffer once the end of the compressed data
+stream has been reached. You can then use the filehandle to read the rest
+of the input file. 
+
+Don't bother using C<trailingData> if the input is a filename.
+
+If you know the length of the compressed data stream before you start
+uncompressing, you can avoid having to use C<trailingData> by setting the
+C<InputLength> option in the constructor.
+
+=head1 Importing 
+
+No symbolic constants are required by this IO::Uncompress::Bunzip2 at present. 
+
+=over 5
+
+=item :all
+
+Imports C<bunzip2> and C<$Bunzip2Error>.
+Same as doing this
+
+    use IO::Uncompress::Bunzip2 qw(bunzip2 $Bunzip2Error) ;
+
+=back
+
+=head1 EXAMPLES
+
+=head2 Working with Net::FTP
+
+See L<IO::Compress::FAQ|IO::Compress::FAQ/"Compressed files and Net::FTP">
+
+=head1 SEE ALSO
+
+L<Compress::Zlib>, L<IO::Compress::Gzip>, L<IO::Uncompress::Gunzip>, L<IO::Compress::Deflate>, L<IO::Uncompress::Inflate>, L<IO::Compress::RawDeflate>, L<IO::Uncompress::RawInflate>, L<IO::Compress::Bzip2>, L<IO::Compress::Lzma>, L<IO::Uncompress::UnLzma>, L<IO::Compress::Xz>, L<IO::Uncompress::UnXz>, L<IO::Compress::Lzop>, L<IO::Uncompress::UnLzop>, L<IO::Compress::Lzf>, L<IO::Uncompress::UnLzf>, L<IO::Uncompress::AnyInflate>, L<IO::Uncompress::AnyUncompress>
+
+L<IO::Compress::FAQ|IO::Compress::FAQ>
+
+L<File::GlobMapper|File::GlobMapper>, L<Archive::Zip|Archive::Zip>,
+L<Archive::Tar|Archive::Tar>,
+L<IO::Zlib|IO::Zlib>
+
+The primary site for the bzip2 program is F<http://www.bzip.org>.
+
+See the module L<Compress::Bzip2|Compress::Bzip2>
+
+=head1 AUTHOR
+
+This module was written by Paul Marquess, F<pmqs@cpan.org>. 
+
+=head1 MODIFICATION HISTORY
+
+See the Changes file.
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright (c) 2005-2015 Paul Marquess. All rights reserved.
+
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
diff --git a/lib/5.24.1/IO/Uncompress/Gunzip.pm b/lib/5.24.1/IO/Uncompress/Gunzip.pm
new file mode 100644
index 00000000..a27f39d5
--- /dev/null
+++ b/lib/5.24.1/IO/Uncompress/Gunzip.pm
@@ -0,0 +1,1125 @@
+
+package IO::Uncompress::Gunzip ;
+
+require 5.006 ;
+
+# for RFC1952
+
+use strict ;
+use warnings;
+use bytes;
+
+use IO::Uncompress::RawInflate 2.069 ;
+
+use Compress::Raw::Zlib 2.069 () ;
+use IO::Compress::Base::Common 2.069 qw(:Status );
+use IO::Compress::Gzip::Constants 2.069 ;
+use IO::Compress::Zlib::Extra 2.069 ;
+
+require Exporter ;
+
+our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $GunzipError);
+
+@ISA = qw( Exporter IO::Uncompress::RawInflate );
+@EXPORT_OK = qw( $GunzipError gunzip );
+%EXPORT_TAGS = %IO::Uncompress::RawInflate::DEFLATE_CONSTANTS ;
+push @{ $EXPORT_TAGS{all} }, @EXPORT_OK ;
+Exporter::export_ok_tags('all');
+
+$GunzipError = '';
+
+$VERSION = '2.069_001';
+
+sub new
+{
+    my $class = shift ;
+    $GunzipError = '';
+    my $obj = IO::Compress::Base::Common::createSelfTiedObject($class, \$GunzipError);
+
+    $obj->_create(undef, 0, @_);
+}
+
+sub gunzip
+{
+    my $obj = IO::Compress::Base::Common::createSelfTiedObject(undef, \$GunzipError);
+    return $obj->_inf(@_) ;
+}
+
+sub getExtraParams
+{
+    return ( 'parseextra' => [IO::Compress::Base::Common::Parse_boolean,  0] ) ;
+}
+
+sub ckParams
+{
+    my $self = shift ;
+    my $got = shift ;
+
+    # gunzip always needs crc32
+    $got->setValue('crc32' => 1);
+
+    return 1;
+}
+
+sub ckMagic
+{
+    my $self = shift;
+
+    my $magic ;
+    $self->smartReadExact(\$magic, GZIP_ID_SIZE);
+
+    *$self->{HeaderPending} = $magic ;
+
+    return $self->HeaderError("Minimum header size is " . 
+                              GZIP_MIN_HEADER_SIZE . " bytes") 
+        if length $magic != GZIP_ID_SIZE ;                                    
+
+    return $self->HeaderError("Bad Magic")
+        if ! isGzipMagic($magic) ;
+
+    *$self->{Type} = 'rfc1952';
+
+    return $magic ;
+}
+
+sub readHeader
+{
+    my $self = shift;
+    my $magic = shift;
+
+    return $self->_readGzipHeader($magic);
+}
+
+sub chkTrailer
+{
+    my $self = shift;
+    my $trailer = shift;
+
+    # Check CRC & ISIZE 
+    my ($CRC32, $ISIZE) = unpack("V V", $trailer) ;
+    *$self->{Info}{CRC32} = $CRC32;    
+    *$self->{Info}{ISIZE} = $ISIZE;    
+
+    if (*$self->{Strict}) {
+        return $self->TrailerError("CRC mismatch")
+            if $CRC32 != *$self->{Uncomp}->crc32() ;
+
+        my $exp_isize = *$self->{UnCompSize}->get32bit();
+        return $self->TrailerError("ISIZE mismatch. Got $ISIZE"
+                                  . ", expected $exp_isize")
+            if $ISIZE != $exp_isize ;
+    }
+
+    return STATUS_OK;
+}
+
+sub isGzipMagic
+{
+    my $buffer = shift ;
+    return 0 if length $buffer < GZIP_ID_SIZE ;
+    my ($id1, $id2) = unpack("C C", $buffer) ;
+    return $id1 == GZIP_ID1 && $id2 == GZIP_ID2 ;
+}
+
+sub _readFullGzipHeader($)
+{
+    my ($self) = @_ ;
+    my $magic = '' ;
+
+    $self->smartReadExact(\$magic, GZIP_ID_SIZE);
+
+    *$self->{HeaderPending} = $magic ;
+
+    return $self->HeaderError("Minimum header size is " . 
+                              GZIP_MIN_HEADER_SIZE . " bytes") 
+        if length $magic != GZIP_ID_SIZE ;                                    
+
+
+    return $self->HeaderError("Bad Magic")
+        if ! isGzipMagic($magic) ;
+
+    my $status = $self->_readGzipHeader($magic);
+    delete *$self->{Transparent} if ! defined $status ;
+    return $status ;
+}
+
+sub _readGzipHeader($)
+{
+    my ($self, $magic) = @_ ;
+    my ($HeaderCRC) ;
+    my ($buffer) = '' ;
+
+    $self->smartReadExact(\$buffer, GZIP_MIN_HEADER_SIZE - GZIP_ID_SIZE)
+        or return $self->HeaderError("Minimum header size is " . 
+                                     GZIP_MIN_HEADER_SIZE . " bytes") ;
+
+    my $keep = $magic . $buffer ;
+    *$self->{HeaderPending} = $keep ;
+
+    # now split out the various parts
+    my ($cm, $flag, $mtime, $xfl, $os) = unpack("C C V C C", $buffer) ;
+
+    $cm == GZIP_CM_DEFLATED 
+        or return $self->HeaderError("Not Deflate (CM is $cm)") ;
+
+    # check for use of reserved bits
+    return $self->HeaderError("Use of Reserved Bits in FLG field.")
+        if $flag & GZIP_FLG_RESERVED ; 
+
+    my $EXTRA ;
+    my @EXTRA = () ;
+    if ($flag & GZIP_FLG_FEXTRA) {
+        $EXTRA = "" ;
+        $self->smartReadExact(\$buffer, GZIP_FEXTRA_HEADER_SIZE) 
+            or return $self->TruncatedHeader("FEXTRA Length") ;
+
+        my ($XLEN) = unpack("v", $buffer) ;
+        $self->smartReadExact(\$EXTRA, $XLEN) 
+            or return $self->TruncatedHeader("FEXTRA Body");
+        $keep .= $buffer . $EXTRA ;
+
+        if ($XLEN && *$self->{'ParseExtra'}) {
+            my $bad = IO::Compress::Zlib::Extra::parseRawExtra($EXTRA,
+                                                \@EXTRA, 1, 1);
+            return $self->HeaderError($bad)
+                if defined $bad;
+        }
+    }
+
+    my $origname ;
+    if ($flag & GZIP_FLG_FNAME) {
+        $origname = "" ;
+        while (1) {
+            $self->smartReadExact(\$buffer, 1) 
+                or return $self->TruncatedHeader("FNAME");
+            last if $buffer eq GZIP_NULL_BYTE ;
+            $origname .= $buffer 
+        }
+        $keep .= $origname . GZIP_NULL_BYTE ;
+
+        return $self->HeaderError("Non ISO 8859-1 Character found in Name")
+            if *$self->{Strict} && $origname =~ /$GZIP_FNAME_INVALID_CHAR_RE/o ;
+    }
+
+    my $comment ;
+    if ($flag & GZIP_FLG_FCOMMENT) {
+        $comment = "";
+        while (1) {
+            $self->smartReadExact(\$buffer, 1) 
+                or return $self->TruncatedHeader("FCOMMENT");
+            last if $buffer eq GZIP_NULL_BYTE ;
+            $comment .= $buffer 
+        }
+        $keep .= $comment . GZIP_NULL_BYTE ;
+
+        return $self->HeaderError("Non ISO 8859-1 Character found in Comment")
+            if *$self->{Strict} && $comment =~ /$GZIP_FCOMMENT_INVALID_CHAR_RE/o ;
+    }
+
+    if ($flag & GZIP_FLG_FHCRC) {
+        $self->smartReadExact(\$buffer, GZIP_FHCRC_SIZE) 
+            or return $self->TruncatedHeader("FHCRC");
+
+        $HeaderCRC = unpack("v", $buffer) ;
+        my $crc16 = Compress::Raw::Zlib::crc32($keep) & 0xFF ;
+
+        return $self->HeaderError("CRC16 mismatch.")
+            if *$self->{Strict} && $crc16 != $HeaderCRC;
+
+        $keep .= $buffer ;
+    }
+
+    # Assume compression method is deflated for xfl tests
+    #if ($xfl) {
+    #}
+
+    *$self->{Type} = 'rfc1952';
+
+    return {
+        'Type'          => 'rfc1952',
+        'FingerprintLength'  => 2,
+        'HeaderLength'  => length $keep,
+        'TrailerLength' => GZIP_TRAILER_SIZE,
+        'Header'        => $keep,
+        'isMinimalHeader' => $keep eq GZIP_MINIMUM_HEADER ? 1 : 0,
+
+        'MethodID'      => $cm,
+        'MethodName'    => $cm == GZIP_CM_DEFLATED ? "Deflated" : "Unknown" ,
+        'TextFlag'      => $flag & GZIP_FLG_FTEXT ? 1 : 0,
+        'HeaderCRCFlag' => $flag & GZIP_FLG_FHCRC ? 1 : 0,
+        'NameFlag'      => $flag & GZIP_FLG_FNAME ? 1 : 0,
+        'CommentFlag'   => $flag & GZIP_FLG_FCOMMENT ? 1 : 0,
+        'ExtraFlag'     => $flag & GZIP_FLG_FEXTRA ? 1 : 0,
+        'Name'          => $origname,
+        'Comment'       => $comment,
+        'Time'          => $mtime,
+        'OsID'          => $os,
+        'OsName'        => defined $GZIP_OS_Names{$os} 
+                                 ? $GZIP_OS_Names{$os} : "Unknown",
+        'HeaderCRC'     => $HeaderCRC,
+        'Flags'         => $flag,
+        'ExtraFlags'    => $xfl,
+        'ExtraFieldRaw' => $EXTRA,
+        'ExtraField'    => [ @EXTRA ],
+
+
+        #'CompSize'=> $compsize,
+        #'CRC32'=> $CRC32,
+        #'OrigSize'=> $ISIZE,
+      }
+}
+
+
+1;
+
+__END__
+
+
+=head1 NAME
+
+IO::Uncompress::Gunzip - Read RFC 1952 files/buffers
+
+=head1 SYNOPSIS
+
+    use IO::Uncompress::Gunzip qw(gunzip $GunzipError) ;
+
+    my $status = gunzip $input => $output [,OPTS]
+        or die "gunzip failed: $GunzipError\n";
+
+    my $z = new IO::Uncompress::Gunzip $input [OPTS] 
+        or die "gunzip failed: $GunzipError\n";
+
+    $status = $z->read($buffer)
+    $status = $z->read($buffer, $length)
+    $status = $z->read($buffer, $length, $offset)
+    $line = $z->getline()
+    $char = $z->getc()
+    $char = $z->ungetc()
+    $char = $z->opened()
+
+    $status = $z->inflateSync()
+
+    $data = $z->trailingData()
+    $status = $z->nextStream()
+    $data = $z->getHeaderInfo()
+    $z->tell()
+    $z->seek($position, $whence)
+    $z->binmode()
+    $z->fileno()
+    $z->eof()
+    $z->close()
+
+    $GunzipError ;
+
+    # IO::File mode
+
+    <$z>
+    read($z, $buffer);
+    read($z, $buffer, $length);
+    read($z, $buffer, $length, $offset);
+    tell($z)
+    seek($z, $position, $whence)
+    binmode($z)
+    fileno($z)
+    eof($z)
+    close($z)
+
+=head1 DESCRIPTION
+
+This module provides a Perl interface that allows the reading of
+files/buffers that conform to RFC 1952.
+
+For writing RFC 1952 files/buffers, see the companion module IO::Compress::Gzip.
+
+=head1 Functional Interface
+
+A top-level function, C<gunzip>, is provided to carry out
+"one-shot" uncompression between buffers and/or files. For finer
+control over the uncompression process, see the L</"OO Interface">
+section.
+
+    use IO::Uncompress::Gunzip qw(gunzip $GunzipError) ;
+
+    gunzip $input_filename_or_reference => $output_filename_or_reference [,OPTS] 
+        or die "gunzip failed: $GunzipError\n";
+
+The functional interface needs Perl5.005 or better.
+
+=head2 gunzip $input_filename_or_reference => $output_filename_or_reference [, OPTS]
+
+C<gunzip> expects at least two parameters,
+C<$input_filename_or_reference> and C<$output_filename_or_reference>.
+
+=head3 The C<$input_filename_or_reference> parameter
+
+The parameter, C<$input_filename_or_reference>, is used to define the
+source of the compressed data. 
+
+It can take one of the following forms:
+
+=over 5
+
+=item A filename
+
+If the <$input_filename_or_reference> parameter is a simple scalar, it is
+assumed to be a filename. This file will be opened for reading and the
+input data will be read from it.
+
+=item A filehandle
+
+If the C<$input_filename_or_reference> parameter is a filehandle, the input
+data will be read from it.  The string '-' can be used as an alias for
+standard input.
+
+=item A scalar reference 
+
+If C<$input_filename_or_reference> is a scalar reference, the input data
+will be read from C<$$input_filename_or_reference>.
+
+=item An array reference 
+
+If C<$input_filename_or_reference> is an array reference, each element in
+the array must be a filename.
+
+The input data will be read from each file in turn. 
+
+The complete array will be walked to ensure that it only
+contains valid filenames before any data is uncompressed.
+
+=item An Input FileGlob string
+
+If C<$input_filename_or_reference> is a string that is delimited by the
+characters "<" and ">" C<gunzip> will assume that it is an 
+I<input fileglob string>. The input is the list of files that match the 
+fileglob.
+
+See L<File::GlobMapper|File::GlobMapper> for more details.
+
+=back
+
+If the C<$input_filename_or_reference> parameter is any other type,
+C<undef> will be returned.
+
+=head3 The C<$output_filename_or_reference> parameter
+
+The parameter C<$output_filename_or_reference> is used to control the
+destination of the uncompressed data. This parameter can take one of
+these forms.
+
+=over 5
+
+=item A filename
+
+If the C<$output_filename_or_reference> parameter is a simple scalar, it is
+assumed to be a filename.  This file will be opened for writing and the 
+uncompressed data will be written to it.
+
+=item A filehandle
+
+If the C<$output_filename_or_reference> parameter is a filehandle, the
+uncompressed data will be written to it.  The string '-' can be used as
+an alias for standard output.
+
+=item A scalar reference 
+
+If C<$output_filename_or_reference> is a scalar reference, the
+uncompressed data will be stored in C<$$output_filename_or_reference>.
+
+=item An Array Reference
+
+If C<$output_filename_or_reference> is an array reference, 
+the uncompressed data will be pushed onto the array.
+
+=item An Output FileGlob
+
+If C<$output_filename_or_reference> is a string that is delimited by the
+characters "<" and ">" C<gunzip> will assume that it is an
+I<output fileglob string>. The output is the list of files that match the
+fileglob.
+
+When C<$output_filename_or_reference> is an fileglob string,
+C<$input_filename_or_reference> must also be a fileglob string. Anything
+else is an error.
+
+See L<File::GlobMapper|File::GlobMapper> for more details.
+
+=back
+
+If the C<$output_filename_or_reference> parameter is any other type,
+C<undef> will be returned.
+
+=head2 Notes
+
+When C<$input_filename_or_reference> maps to multiple compressed
+files/buffers and C<$output_filename_or_reference> is
+a single file/buffer, after uncompression C<$output_filename_or_reference> will contain a
+concatenation of all the uncompressed data from each of the input
+files/buffers.
+
+=head2 Optional Parameters
+
+Unless specified below, the optional parameters for C<gunzip>,
+C<OPTS>, are the same as those used with the OO interface defined in the
+L</"Constructor Options"> section below.
+
+=over 5
+
+=item C<< AutoClose => 0|1 >>
+
+This option applies to any input or output data streams to 
+C<gunzip> that are filehandles.
+
+If C<AutoClose> is specified, and the value is true, it will result in all
+input and/or output filehandles being closed once C<gunzip> has
+completed.
+
+This parameter defaults to 0.
+
+=item C<< BinModeOut => 0|1 >>
+
+When writing to a file or filehandle, set C<binmode> before writing to the
+file.
+
+Defaults to 0.
+
+=item C<< Append => 0|1 >>
+
+The behaviour of this option is dependent on the type of output data
+stream.
+
+=over 5
+
+=item * A Buffer
+
+If C<Append> is enabled, all uncompressed data will be append to the end of
+the output buffer. Otherwise the output buffer will be cleared before any
+uncompressed data is written to it.
+
+=item * A Filename
+
+If C<Append> is enabled, the file will be opened in append mode. Otherwise
+the contents of the file, if any, will be truncated before any uncompressed
+data is written to it.
+
+=item * A Filehandle
+
+If C<Append> is enabled, the filehandle will be positioned to the end of
+the file via a call to C<seek> before any uncompressed data is
+written to it.  Otherwise the file pointer will not be moved.
+
+=back
+
+When C<Append> is specified, and set to true, it will I<append> all uncompressed 
+data to the output data stream.
+
+So when the output is a filehandle it will carry out a seek to the eof
+before writing any uncompressed data. If the output is a filename, it will be opened for
+appending. If the output is a buffer, all uncompressed data will be
+appended to the existing buffer.
+
+Conversely when C<Append> is not specified, or it is present and is set to
+false, it will operate as follows.
+
+When the output is a filename, it will truncate the contents of the file
+before writing any uncompressed data. If the output is a filehandle
+its position will not be changed. If the output is a buffer, it will be
+wiped before any uncompressed data is output.
+
+Defaults to 0.
+
+=item C<< MultiStream => 0|1 >>
+
+If the input file/buffer contains multiple compressed data streams, this
+option will uncompress the whole lot as a single data stream.
+
+Defaults to 0.
+
+=item C<< TrailingData => $scalar >>
+
+Returns the data, if any, that is present immediately after the compressed
+data stream once uncompression is complete. 
+
+This option can be used when there is useful information immediately
+following the compressed data stream, and you don't know the length of the
+compressed data stream.
+
+If the input is a buffer, C<trailingData> will return everything from the
+end of the compressed data stream to the end of the buffer.
+
+If the input is a filehandle, C<trailingData> will return the data that is
+left in the filehandle input buffer once the end of the compressed data
+stream has been reached. You can then use the filehandle to read the rest
+of the input file. 
+
+Don't bother using C<trailingData> if the input is a filename.
+
+If you know the length of the compressed data stream before you start
+uncompressing, you can avoid having to use C<trailingData> by setting the
+C<InputLength> option.
+
+=back
+
+=head2 Examples
+
+To read the contents of the file C<file1.txt.gz> and write the
+uncompressed data to the file C<file1.txt>.
+
+    use strict ;
+    use warnings ;
+    use IO::Uncompress::Gunzip qw(gunzip $GunzipError) ;
+
+    my $input = "file1.txt.gz";
+    my $output = "file1.txt";
+    gunzip $input => $output
+        or die "gunzip failed: $GunzipError\n";
+
+To read from an existing Perl filehandle, C<$input>, and write the
+uncompressed data to a buffer, C<$buffer>.
+
+    use strict ;
+    use warnings ;
+    use IO::Uncompress::Gunzip qw(gunzip $GunzipError) ;
+    use IO::File ;
+
+    my $input = new IO::File "<file1.txt.gz"
+        or die "Cannot open 'file1.txt.gz': $!\n" ;
+    my $buffer ;
+    gunzip $input => \$buffer 
+        or die "gunzip failed: $GunzipError\n";
+
+To uncompress all files in the directory "/my/home" that match "*.txt.gz" and store the compressed data in the same directory
+
+    use strict ;
+    use warnings ;
+    use IO::Uncompress::Gunzip qw(gunzip $GunzipError) ;
+
+    gunzip '</my/home/*.txt.gz>' => '</my/home/#1.txt>'
+        or die "gunzip failed: $GunzipError\n";
+
+and if you want to compress each file one at a time, this will do the trick
+
+    use strict ;
+    use warnings ;
+    use IO::Uncompress::Gunzip qw(gunzip $GunzipError) ;
+
+    for my $input ( glob "/my/home/*.txt.gz" )
+    {
+        my $output = $input;
+        $output =~ s/.gz// ;
+        gunzip $input => $output 
+            or die "Error compressing '$input': $GunzipError\n";
+    }
+
+=head1 OO Interface
+
+=head2 Constructor
+
+The format of the constructor for IO::Uncompress::Gunzip is shown below
+
+    my $z = new IO::Uncompress::Gunzip $input [OPTS]
+        or die "IO::Uncompress::Gunzip failed: $GunzipError\n";
+
+Returns an C<IO::Uncompress::Gunzip> object on success and undef on failure.
+The variable C<$GunzipError> will contain an error message on failure.
+
+If you are running Perl 5.005 or better the object, C<$z>, returned from
+IO::Uncompress::Gunzip can be used exactly like an L<IO::File|IO::File> filehandle.
+This means that all normal input file operations can be carried out with
+C<$z>.  For example, to read a line from a compressed file/buffer you can
+use either of these forms
+
+    $line = $z->getline();
+    $line = <$z>;
+
+The mandatory parameter C<$input> is used to determine the source of the
+compressed data. This parameter can take one of three forms.
+
+=over 5
+
+=item A filename
+
+If the C<$input> parameter is a scalar, it is assumed to be a filename. This
+file will be opened for reading and the compressed data will be read from it.
+
+=item A filehandle
+
+If the C<$input> parameter is a filehandle, the compressed data will be
+read from it.
+The string '-' can be used as an alias for standard input.
+
+=item A scalar reference 
+
+If C<$input> is a scalar reference, the compressed data will be read from
+C<$$input>.
+
+=back
+
+=head2 Constructor Options
+
+The option names defined below are case insensitive and can be optionally
+prefixed by a '-'.  So all of the following are valid
+
+    -AutoClose
+    -autoclose
+    AUTOCLOSE
+    autoclose
+
+OPTS is a combination of the following options:
+
+=over 5
+
+=item C<< AutoClose => 0|1 >>
+
+This option is only valid when the C<$input> parameter is a filehandle. If
+specified, and the value is true, it will result in the file being closed once
+either the C<close> method is called or the IO::Uncompress::Gunzip object is
+destroyed.
+
+This parameter defaults to 0.
+
+=item C<< MultiStream => 0|1 >>
+
+Allows multiple concatenated compressed streams to be treated as a single
+compressed stream. Decompression will stop once either the end of the
+file/buffer is reached, an error is encountered (premature eof, corrupt
+compressed data) or the end of a stream is not immediately followed by the
+start of another stream.
+
+This parameter defaults to 0.
+
+=item C<< Prime => $string >>
+
+This option will uncompress the contents of C<$string> before processing the
+input file/buffer.
+
+This option can be useful when the compressed data is embedded in another
+file/data structure and it is not possible to work out where the compressed
+data begins without having to read the first few bytes. If this is the
+case, the uncompression can be I<primed> with these bytes using this
+option.
+
+=item C<< Transparent => 0|1 >>
+
+If this option is set and the input file/buffer is not compressed data,
+the module will allow reading of it anyway.
+
+In addition, if the input file/buffer does contain compressed data and
+there is non-compressed data immediately following it, setting this option
+will make this module treat the whole file/buffer as a single data stream.
+
+This option defaults to 1.
+
+=item C<< BlockSize => $num >>
+
+When reading the compressed input data, IO::Uncompress::Gunzip will read it in
+blocks of C<$num> bytes.
+
+This option defaults to 4096.
+
+=item C<< InputLength => $size >>
+
+When present this option will limit the number of compressed bytes read
+from the input file/buffer to C<$size>. This option can be used in the
+situation where there is useful data directly after the compressed data
+stream and you know beforehand the exact length of the compressed data
+stream. 
+
+This option is mostly used when reading from a filehandle, in which case
+the file pointer will be left pointing to the first byte directly after the
+compressed data stream.
+
+This option defaults to off.
+
+=item C<< Append => 0|1 >>
+
+This option controls what the C<read> method does with uncompressed data.
+
+If set to 1, all uncompressed data will be appended to the output parameter
+of the C<read> method.
+
+If set to 0, the contents of the output parameter of the C<read> method
+will be overwritten by the uncompressed data.
+
+Defaults to 0.
+
+=item C<< Strict => 0|1 >>
+
+This option controls whether the extra checks defined below are used when
+carrying out the decompression. When Strict is on, the extra tests are
+carried out, when Strict is off they are not.
+
+The default for this option is off.
+
+=over 5
+
+=item 1 
+
+If the FHCRC bit is set in the gzip FLG header byte, the CRC16 bytes in the
+header must match the crc16 value of the gzip header actually read.
+
+=item 2
+
+If the gzip header contains a name field (FNAME) it consists solely of ISO
+8859-1 characters.
+
+=item 3
+
+If the gzip header contains a comment field (FCOMMENT) it consists solely
+of ISO 8859-1 characters plus line-feed.
+
+=item 4
+
+If the gzip FEXTRA header field is present it must conform to the sub-field
+structure as defined in RFC 1952.
+
+=item 5
+
+The CRC32 and ISIZE trailer fields must be present.
+
+=item 6
+
+The value of the CRC32 field read must match the crc32 value of the
+uncompressed data actually contained in the gzip file.
+
+=item 7
+
+The value of the ISIZE fields read must match the length of the
+uncompressed data actually read from the file.
+
+=back
+
+=item C<< ParseExtra => 0|1 >>
+If the gzip FEXTRA header field is present and this option is set, it will
+force the module to check that it conforms to the sub-field structure as
+defined in RFC 1952.
+
+If the C<Strict> is on it will automatically enable this option.
+
+Defaults to 0.
+
+=back
+
+=head2 Examples
+
+TODO
+
+=head1 Methods 
+
+=head2 read
+
+Usage is
+
+    $status = $z->read($buffer)
+
+Reads a block of compressed data (the size of the compressed block is
+determined by the C<Buffer> option in the constructor), uncompresses it and
+writes any uncompressed data into C<$buffer>. If the C<Append> parameter is
+set in the constructor, the uncompressed data will be appended to the
+C<$buffer> parameter. Otherwise C<$buffer> will be overwritten.
+
+Returns the number of uncompressed bytes written to C<$buffer>, zero if eof
+or a negative number on error.
+
+=head2 read
+
+Usage is
+
+    $status = $z->read($buffer, $length)
+    $status = $z->read($buffer, $length, $offset)
+
+    $status = read($z, $buffer, $length)
+    $status = read($z, $buffer, $length, $offset)
+
+Attempt to read C<$length> bytes of uncompressed data into C<$buffer>.
+
+The main difference between this form of the C<read> method and the
+previous one, is that this one will attempt to return I<exactly> C<$length>
+bytes. The only circumstances that this function will not is if end-of-file
+or an IO error is encountered.
+
+Returns the number of uncompressed bytes written to C<$buffer>, zero if eof
+or a negative number on error.
+
+=head2 getline
+
+Usage is
+
+    $line = $z->getline()
+    $line = <$z>
+
+Reads a single line. 
+
+This method fully supports the use of the variable C<$/> (or
+C<$INPUT_RECORD_SEPARATOR> or C<$RS> when C<English> is in use) to
+determine what constitutes an end of line. Paragraph mode, record mode and
+file slurp mode are all supported. 
+
+=head2 getc
+
+Usage is 
+
+    $char = $z->getc()
+
+Read a single character.
+
+=head2 ungetc
+
+Usage is
+
+    $char = $z->ungetc($string)
+
+=head2 inflateSync
+
+Usage is
+
+    $status = $z->inflateSync()
+
+TODO
+
+=head2 getHeaderInfo
+
+Usage is
+
+    $hdr  = $z->getHeaderInfo();
+    @hdrs = $z->getHeaderInfo();
+
+This method returns either a hash reference (in scalar context) or a list
+or hash references (in array context) that contains information about each
+of the header fields in the compressed data stream(s).
+
+=over 5
+
+=item Name
+
+The contents of the Name header field, if present. If no name is
+present, the value will be undef. Note this is different from a zero length
+name, which will return an empty string.
+
+=item Comment
+
+The contents of the Comment header field, if present. If no comment is
+present, the value will be undef. Note this is different from a zero length
+comment, which will return an empty string.
+
+=back
+
+=head2 tell
+
+Usage is
+
+    $z->tell()
+    tell $z
+
+Returns the uncompressed file offset.
+
+=head2 eof
+
+Usage is
+
+    $z->eof();
+    eof($z);
+
+Returns true if the end of the compressed input stream has been reached.
+
+=head2 seek
+
+    $z->seek($position, $whence);
+    seek($z, $position, $whence);
+
+Provides a sub-set of the C<seek> functionality, with the restriction
+that it is only legal to seek forward in the input file/buffer.
+It is a fatal error to attempt to seek backward.
+
+Note that the implementation of C<seek> in this module does not provide
+true random access to a compressed file/buffer. It  works by uncompressing
+data from the current offset in the file/buffer until it reaches the
+uncompressed offset specified in the parameters to C<seek>. For very small
+files this may be acceptable behaviour. For large files it may cause an
+unacceptable delay.
+
+The C<$whence> parameter takes one the usual values, namely SEEK_SET,
+SEEK_CUR or SEEK_END.
+
+Returns 1 on success, 0 on failure.
+
+=head2 binmode
+
+Usage is
+
+    $z->binmode
+    binmode $z ;
+
+This is a noop provided for completeness.
+
+=head2 opened
+
+    $z->opened()
+
+Returns true if the object currently refers to a opened file/buffer. 
+
+=head2 autoflush
+
+    my $prev = $z->autoflush()
+    my $prev = $z->autoflush(EXPR)
+
+If the C<$z> object is associated with a file or a filehandle, this method
+returns the current autoflush setting for the underlying filehandle. If
+C<EXPR> is present, and is non-zero, it will enable flushing after every
+write/print operation.
+
+If C<$z> is associated with a buffer, this method has no effect and always
+returns C<undef>.
+
+B<Note> that the special variable C<$|> B<cannot> be used to set or
+retrieve the autoflush setting.
+
+=head2 input_line_number
+
+    $z->input_line_number()
+    $z->input_line_number(EXPR)
+
+Returns the current uncompressed line number. If C<EXPR> is present it has
+the effect of setting the line number. Note that setting the line number
+does not change the current position within the file/buffer being read.
+
+The contents of C<$/> are used to determine what constitutes a line
+terminator.
+
+=head2 fileno
+
+    $z->fileno()
+    fileno($z)
+
+If the C<$z> object is associated with a file or a filehandle, C<fileno>
+will return the underlying file descriptor. Once the C<close> method is
+called C<fileno> will return C<undef>.
+
+If the C<$z> object is associated with a buffer, this method will return
+C<undef>.
+
+=head2 close
+
+    $z->close() ;
+    close $z ;
+
+Closes the output file/buffer. 
+
+For most versions of Perl this method will be automatically invoked if
+the IO::Uncompress::Gunzip object is destroyed (either explicitly or by the
+variable with the reference to the object going out of scope). The
+exceptions are Perl versions 5.005 through 5.00504 and 5.8.0. In
+these cases, the C<close> method will be called automatically, but
+not until global destruction of all live objects when the program is
+terminating.
+
+Therefore, if you want your scripts to be able to run on all versions
+of Perl, you should call C<close> explicitly and not rely on automatic
+closing.
+
+Returns true on success, otherwise 0.
+
+If the C<AutoClose> option has been enabled when the IO::Uncompress::Gunzip
+object was created, and the object is associated with a file, the
+underlying file will also be closed.
+
+=head2 nextStream
+
+Usage is
+
+    my $status = $z->nextStream();
+
+Skips to the next compressed data stream in the input file/buffer. If a new
+compressed data stream is found, the eof marker will be cleared and C<$.>
+will be reset to 0.
+
+Returns 1 if a new stream was found, 0 if none was found, and -1 if an
+error was encountered.
+
+=head2 trailingData
+
+Usage is
+
+    my $data = $z->trailingData();
+
+Returns the data, if any, that is present immediately after the compressed
+data stream once uncompression is complete. It only makes sense to call
+this method once the end of the compressed data stream has been
+encountered.
+
+This option can be used when there is useful information immediately
+following the compressed data stream, and you don't know the length of the
+compressed data stream.
+
+If the input is a buffer, C<trailingData> will return everything from the
+end of the compressed data stream to the end of the buffer.
+
+If the input is a filehandle, C<trailingData> will return the data that is
+left in the filehandle input buffer once the end of the compressed data
+stream has been reached. You can then use the filehandle to read the rest
+of the input file. 
+
+Don't bother using C<trailingData> if the input is a filename.
+
+If you know the length of the compressed data stream before you start
+uncompressing, you can avoid having to use C<trailingData> by setting the
+C<InputLength> option in the constructor.
+
+=head1 Importing 
+
+No symbolic constants are required by this IO::Uncompress::Gunzip at present. 
+
+=over 5
+
+=item :all
+
+Imports C<gunzip> and C<$GunzipError>.
+Same as doing this
+
+    use IO::Uncompress::Gunzip qw(gunzip $GunzipError) ;
+
+=back
+
+=head1 EXAMPLES
+
+=head2 Working with Net::FTP
+
+See L<IO::Compress::FAQ|IO::Compress::FAQ/"Compressed files and Net::FTP">
+
+=head1 SEE ALSO
+
+L<Compress::Zlib>, L<IO::Compress::Gzip>, L<IO::Compress::Deflate>, L<IO::Uncompress::Inflate>, L<IO::Compress::RawDeflate>, L<IO::Uncompress::RawInflate>, L<IO::Compress::Bzip2>, L<IO::Uncompress::Bunzip2>, L<IO::Compress::Lzma>, L<IO::Uncompress::UnLzma>, L<IO::Compress::Xz>, L<IO::Uncompress::UnXz>, L<IO::Compress::Lzop>, L<IO::Uncompress::UnLzop>, L<IO::Compress::Lzf>, L<IO::Uncompress::UnLzf>, L<IO::Uncompress::AnyInflate>, L<IO::Uncompress::AnyUncompress>
+
+L<IO::Compress::FAQ|IO::Compress::FAQ>
+
+L<File::GlobMapper|File::GlobMapper>, L<Archive::Zip|Archive::Zip>,
+L<Archive::Tar|Archive::Tar>,
+L<IO::Zlib|IO::Zlib>
+
+For RFC 1950, 1951 and 1952 see 
+F<http://www.faqs.org/rfcs/rfc1950.html>,
+F<http://www.faqs.org/rfcs/rfc1951.html> and
+F<http://www.faqs.org/rfcs/rfc1952.html>
+
+The I<zlib> compression library was written by Jean-loup Gailly
+F<gzip@prep.ai.mit.edu> and Mark Adler F<madler@alumni.caltech.edu>.
+
+The primary site for the I<zlib> compression library is
+F<http://www.zlib.org>.
+
+The primary site for gzip is F<http://www.gzip.org>.
+
+=head1 AUTHOR
+
+This module was written by Paul Marquess, F<pmqs@cpan.org>. 
+
+=head1 MODIFICATION HISTORY
+
+See the Changes file.
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright (c) 2005-2015 Paul Marquess. All rights reserved.
+
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
diff --git a/lib/5.24.1/IO/Uncompress/Inflate.pm b/lib/5.24.1/IO/Uncompress/Inflate.pm
new file mode 100644
index 00000000..db0f70cb
--- /dev/null
+++ b/lib/5.24.1/IO/Uncompress/Inflate.pm
@@ -0,0 +1,997 @@
+package IO::Uncompress::Inflate ;
+# for RFC1950
+
+use strict ;
+use warnings;
+use bytes;
+
+use IO::Compress::Base::Common  2.069 qw(:Status );
+use IO::Compress::Zlib::Constants 2.069 ;
+
+use IO::Uncompress::RawInflate  2.069 ;
+
+require Exporter ;
+our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $InflateError);
+
+$VERSION = '2.069_001';
+$InflateError = '';
+
+@ISA    = qw( Exporter IO::Uncompress::RawInflate );
+@EXPORT_OK = qw( $InflateError inflate ) ;
+%EXPORT_TAGS = %IO::Uncompress::RawInflate::DEFLATE_CONSTANTS ;
+push @{ $EXPORT_TAGS{all} }, @EXPORT_OK ;
+Exporter::export_ok_tags('all');
+
+
+sub new
+{
+    my $class = shift ;
+    my $obj = IO::Compress::Base::Common::createSelfTiedObject($class, \$InflateError);
+
+    $obj->_create(undef, 0, @_);
+}
+
+sub inflate
+{
+    my $obj = IO::Compress::Base::Common::createSelfTiedObject(undef, \$InflateError);
+    return $obj->_inf(@_);
+}
+
+sub getExtraParams
+{
+    return ();
+}
+
+sub ckParams
+{
+    my $self = shift ;
+    my $got = shift ;
+
+    # gunzip always needs adler32
+    $got->setValue('adler32' => 1);
+
+    return 1;
+}
+
+sub ckMagic
+{
+    my $self = shift;
+
+    my $magic ;
+    $self->smartReadExact(\$magic, ZLIB_HEADER_SIZE);
+
+    *$self->{HeaderPending} = $magic ;
+
+    return $self->HeaderError("Header size is " . 
+                                        ZLIB_HEADER_SIZE . " bytes") 
+        if length $magic != ZLIB_HEADER_SIZE;
+
+    #return $self->HeaderError("CRC mismatch.")
+    return undef
+        if ! $self->isZlibMagic($magic) ;
+                      
+    *$self->{Type} = 'rfc1950';
+    return $magic;
+}
+
+sub readHeader
+{
+    my $self = shift;
+    my $magic = shift ;
+
+    return $self->_readDeflateHeader($magic) ;
+}
+
+sub chkTrailer
+{
+    my $self = shift;
+    my $trailer = shift;
+
+    my $ADLER32 = unpack("N", $trailer) ;
+    *$self->{Info}{ADLER32} = $ADLER32;    
+    return $self->TrailerError("CRC mismatch")
+        if *$self->{Strict} && $ADLER32 != *$self->{Uncomp}->adler32() ;
+
+    return STATUS_OK;
+}
+
+
+
+sub isZlibMagic
+{
+    my $self = shift;
+    my $buffer = shift ;
+
+    return 0 
+        if length $buffer < ZLIB_HEADER_SIZE ;
+
+    my $hdr = unpack("n", $buffer) ;
+    #return 0 if $hdr % 31 != 0 ;
+    return $self->HeaderError("CRC mismatch.")
+        if $hdr % 31 != 0 ;
+
+    my ($CMF, $FLG) = unpack "C C", $buffer;
+    my $cm =    bits($CMF, ZLIB_CMF_CM_OFFSET,    ZLIB_CMF_CM_BITS) ;
+
+    # Only Deflate supported
+    return $self->HeaderError("Not Deflate (CM is $cm)") 
+        if $cm != ZLIB_CMF_CM_DEFLATED ;
+
+    # Max window value is 7 for Deflate.
+    my $cinfo = bits($CMF, ZLIB_CMF_CINFO_OFFSET, ZLIB_CMF_CINFO_BITS) ;
+    return $self->HeaderError("CINFO > " . ZLIB_CMF_CINFO_MAX . 
+                              " (CINFO is $cinfo)") 
+        if $cinfo > ZLIB_CMF_CINFO_MAX ;
+
+    return 1;    
+}
+
+sub bits
+{
+    my $data   = shift ;
+    my $offset = shift ;
+    my $mask  = shift ;
+
+    ($data >> $offset ) & $mask & 0xFF ;
+}
+
+
+sub _readDeflateHeader
+{
+    my ($self, $buffer) = @_ ;
+
+#    if (! $buffer) {
+#        $self->smartReadExact(\$buffer, ZLIB_HEADER_SIZE);
+#
+#        *$self->{HeaderPending} = $buffer ;
+#
+#        return $self->HeaderError("Header size is " . 
+#                                            ZLIB_HEADER_SIZE . " bytes") 
+#            if length $buffer != ZLIB_HEADER_SIZE;
+#
+#        return $self->HeaderError("CRC mismatch.")
+#            if ! isZlibMagic($buffer) ;
+#    }
+                                        
+    my ($CMF, $FLG) = unpack "C C", $buffer;
+    my $FDICT = bits($FLG, ZLIB_FLG_FDICT_OFFSET,  ZLIB_FLG_FDICT_BITS ),
+
+    my $cm = bits($CMF, ZLIB_CMF_CM_OFFSET, ZLIB_CMF_CM_BITS) ;
+    $cm == ZLIB_CMF_CM_DEFLATED 
+        or return $self->HeaderError("Not Deflate (CM is $cm)") ;
+
+    my $DICTID;
+    if ($FDICT) {
+        $self->smartReadExact(\$buffer, ZLIB_FDICT_SIZE)
+            or return $self->TruncatedHeader("FDICT");
+
+        $DICTID = unpack("N", $buffer) ;
+    }
+
+    *$self->{Type} = 'rfc1950';
+
+    return {
+        'Type'          => 'rfc1950',
+        'FingerprintLength'  => ZLIB_HEADER_SIZE,
+        'HeaderLength'  => ZLIB_HEADER_SIZE,
+        'TrailerLength' => ZLIB_TRAILER_SIZE,
+        'Header'        => $buffer,
+
+        CMF     =>      $CMF                                               ,
+        CM      => bits($CMF, ZLIB_CMF_CM_OFFSET,     ZLIB_CMF_CM_BITS    ),
+        CINFO   => bits($CMF, ZLIB_CMF_CINFO_OFFSET,  ZLIB_CMF_CINFO_BITS ),
+        FLG     =>      $FLG                                               ,
+        FCHECK  => bits($FLG, ZLIB_FLG_FCHECK_OFFSET, ZLIB_FLG_FCHECK_BITS),
+        FDICT   => bits($FLG, ZLIB_FLG_FDICT_OFFSET,  ZLIB_FLG_FDICT_BITS ),
+        FLEVEL  => bits($FLG, ZLIB_FLG_LEVEL_OFFSET,  ZLIB_FLG_LEVEL_BITS ),
+        DICTID  =>      $DICTID                                            ,
+
+    };
+}
+
+
+
+
+1 ;
+
+__END__
+
+
+=head1 NAME
+
+IO::Uncompress::Inflate - Read RFC 1950 files/buffers
+
+=head1 SYNOPSIS
+
+    use IO::Uncompress::Inflate qw(inflate $InflateError) ;
+
+    my $status = inflate $input => $output [,OPTS]
+        or die "inflate failed: $InflateError\n";
+
+    my $z = new IO::Uncompress::Inflate $input [OPTS] 
+        or die "inflate failed: $InflateError\n";
+
+    $status = $z->read($buffer)
+    $status = $z->read($buffer, $length)
+    $status = $z->read($buffer, $length, $offset)
+    $line = $z->getline()
+    $char = $z->getc()
+    $char = $z->ungetc()
+    $char = $z->opened()
+
+    $status = $z->inflateSync()
+
+    $data = $z->trailingData()
+    $status = $z->nextStream()
+    $data = $z->getHeaderInfo()
+    $z->tell()
+    $z->seek($position, $whence)
+    $z->binmode()
+    $z->fileno()
+    $z->eof()
+    $z->close()
+
+    $InflateError ;
+
+    # IO::File mode
+
+    <$z>
+    read($z, $buffer);
+    read($z, $buffer, $length);
+    read($z, $buffer, $length, $offset);
+    tell($z)
+    seek($z, $position, $whence)
+    binmode($z)
+    fileno($z)
+    eof($z)
+    close($z)
+
+=head1 DESCRIPTION
+
+This module provides a Perl interface that allows the reading of
+files/buffers that conform to RFC 1950.
+
+For writing RFC 1950 files/buffers, see the companion module IO::Compress::Deflate.
+
+=head1 Functional Interface
+
+A top-level function, C<inflate>, is provided to carry out
+"one-shot" uncompression between buffers and/or files. For finer
+control over the uncompression process, see the L</"OO Interface">
+section.
+
+    use IO::Uncompress::Inflate qw(inflate $InflateError) ;
+
+    inflate $input_filename_or_reference => $output_filename_or_reference [,OPTS] 
+        or die "inflate failed: $InflateError\n";
+
+The functional interface needs Perl5.005 or better.
+
+=head2 inflate $input_filename_or_reference => $output_filename_or_reference [, OPTS]
+
+C<inflate> expects at least two parameters,
+C<$input_filename_or_reference> and C<$output_filename_or_reference>.
+
+=head3 The C<$input_filename_or_reference> parameter
+
+The parameter, C<$input_filename_or_reference>, is used to define the
+source of the compressed data. 
+
+It can take one of the following forms:
+
+=over 5
+
+=item A filename
+
+If the <$input_filename_or_reference> parameter is a simple scalar, it is
+assumed to be a filename. This file will be opened for reading and the
+input data will be read from it.
+
+=item A filehandle
+
+If the C<$input_filename_or_reference> parameter is a filehandle, the input
+data will be read from it.  The string '-' can be used as an alias for
+standard input.
+
+=item A scalar reference 
+
+If C<$input_filename_or_reference> is a scalar reference, the input data
+will be read from C<$$input_filename_or_reference>.
+
+=item An array reference 
+
+If C<$input_filename_or_reference> is an array reference, each element in
+the array must be a filename.
+
+The input data will be read from each file in turn. 
+
+The complete array will be walked to ensure that it only
+contains valid filenames before any data is uncompressed.
+
+=item An Input FileGlob string
+
+If C<$input_filename_or_reference> is a string that is delimited by the
+characters "<" and ">" C<inflate> will assume that it is an 
+I<input fileglob string>. The input is the list of files that match the 
+fileglob.
+
+See L<File::GlobMapper|File::GlobMapper> for more details.
+
+=back
+
+If the C<$input_filename_or_reference> parameter is any other type,
+C<undef> will be returned.
+
+=head3 The C<$output_filename_or_reference> parameter
+
+The parameter C<$output_filename_or_reference> is used to control the
+destination of the uncompressed data. This parameter can take one of
+these forms.
+
+=over 5
+
+=item A filename
+
+If the C<$output_filename_or_reference> parameter is a simple scalar, it is
+assumed to be a filename.  This file will be opened for writing and the 
+uncompressed data will be written to it.
+
+=item A filehandle
+
+If the C<$output_filename_or_reference> parameter is a filehandle, the
+uncompressed data will be written to it.  The string '-' can be used as
+an alias for standard output.
+
+=item A scalar reference 
+
+If C<$output_filename_or_reference> is a scalar reference, the
+uncompressed data will be stored in C<$$output_filename_or_reference>.
+
+=item An Array Reference
+
+If C<$output_filename_or_reference> is an array reference, 
+the uncompressed data will be pushed onto the array.
+
+=item An Output FileGlob
+
+If C<$output_filename_or_reference> is a string that is delimited by the
+characters "<" and ">" C<inflate> will assume that it is an
+I<output fileglob string>. The output is the list of files that match the
+fileglob.
+
+When C<$output_filename_or_reference> is an fileglob string,
+C<$input_filename_or_reference> must also be a fileglob string. Anything
+else is an error.
+
+See L<File::GlobMapper|File::GlobMapper> for more details.
+
+=back
+
+If the C<$output_filename_or_reference> parameter is any other type,
+C<undef> will be returned.
+
+=head2 Notes
+
+When C<$input_filename_or_reference> maps to multiple compressed
+files/buffers and C<$output_filename_or_reference> is
+a single file/buffer, after uncompression C<$output_filename_or_reference> will contain a
+concatenation of all the uncompressed data from each of the input
+files/buffers.
+
+=head2 Optional Parameters
+
+Unless specified below, the optional parameters for C<inflate>,
+C<OPTS>, are the same as those used with the OO interface defined in the
+L</"Constructor Options"> section below.
+
+=over 5
+
+=item C<< AutoClose => 0|1 >>
+
+This option applies to any input or output data streams to 
+C<inflate> that are filehandles.
+
+If C<AutoClose> is specified, and the value is true, it will result in all
+input and/or output filehandles being closed once C<inflate> has
+completed.
+
+This parameter defaults to 0.
+
+=item C<< BinModeOut => 0|1 >>
+
+When writing to a file or filehandle, set C<binmode> before writing to the
+file.
+
+Defaults to 0.
+
+=item C<< Append => 0|1 >>
+
+The behaviour of this option is dependent on the type of output data
+stream.
+
+=over 5
+
+=item * A Buffer
+
+If C<Append> is enabled, all uncompressed data will be append to the end of
+the output buffer. Otherwise the output buffer will be cleared before any
+uncompressed data is written to it.
+
+=item * A Filename
+
+If C<Append> is enabled, the file will be opened in append mode. Otherwise
+the contents of the file, if any, will be truncated before any uncompressed
+data is written to it.
+
+=item * A Filehandle
+
+If C<Append> is enabled, the filehandle will be positioned to the end of
+the file via a call to C<seek> before any uncompressed data is
+written to it.  Otherwise the file pointer will not be moved.
+
+=back
+
+When C<Append> is specified, and set to true, it will I<append> all uncompressed 
+data to the output data stream.
+
+So when the output is a filehandle it will carry out a seek to the eof
+before writing any uncompressed data. If the output is a filename, it will be opened for
+appending. If the output is a buffer, all uncompressed data will be
+appended to the existing buffer.
+
+Conversely when C<Append> is not specified, or it is present and is set to
+false, it will operate as follows.
+
+When the output is a filename, it will truncate the contents of the file
+before writing any uncompressed data. If the output is a filehandle
+its position will not be changed. If the output is a buffer, it will be
+wiped before any uncompressed data is output.
+
+Defaults to 0.
+
+=item C<< MultiStream => 0|1 >>
+
+If the input file/buffer contains multiple compressed data streams, this
+option will uncompress the whole lot as a single data stream.
+
+Defaults to 0.
+
+=item C<< TrailingData => $scalar >>
+
+Returns the data, if any, that is present immediately after the compressed
+data stream once uncompression is complete. 
+
+This option can be used when there is useful information immediately
+following the compressed data stream, and you don't know the length of the
+compressed data stream.
+
+If the input is a buffer, C<trailingData> will return everything from the
+end of the compressed data stream to the end of the buffer.
+
+If the input is a filehandle, C<trailingData> will return the data that is
+left in the filehandle input buffer once the end of the compressed data
+stream has been reached. You can then use the filehandle to read the rest
+of the input file. 
+
+Don't bother using C<trailingData> if the input is a filename.
+
+If you know the length of the compressed data stream before you start
+uncompressing, you can avoid having to use C<trailingData> by setting the
+C<InputLength> option.
+
+=back
+
+=head2 Examples
+
+To read the contents of the file C<file1.txt.1950> and write the
+uncompressed data to the file C<file1.txt>.
+
+    use strict ;
+    use warnings ;
+    use IO::Uncompress::Inflate qw(inflate $InflateError) ;
+
+    my $input = "file1.txt.1950";
+    my $output = "file1.txt";
+    inflate $input => $output
+        or die "inflate failed: $InflateError\n";
+
+To read from an existing Perl filehandle, C<$input>, and write the
+uncompressed data to a buffer, C<$buffer>.
+
+    use strict ;
+    use warnings ;
+    use IO::Uncompress::Inflate qw(inflate $InflateError) ;
+    use IO::File ;
+
+    my $input = new IO::File "<file1.txt.1950"
+        or die "Cannot open 'file1.txt.1950': $!\n" ;
+    my $buffer ;
+    inflate $input => \$buffer 
+        or die "inflate failed: $InflateError\n";
+
+To uncompress all files in the directory "/my/home" that match "*.txt.1950" and store the compressed data in the same directory
+
+    use strict ;
+    use warnings ;
+    use IO::Uncompress::Inflate qw(inflate $InflateError) ;
+
+    inflate '</my/home/*.txt.1950>' => '</my/home/#1.txt>'
+        or die "inflate failed: $InflateError\n";
+
+and if you want to compress each file one at a time, this will do the trick
+
+    use strict ;
+    use warnings ;
+    use IO::Uncompress::Inflate qw(inflate $InflateError) ;
+
+    for my $input ( glob "/my/home/*.txt.1950" )
+    {
+        my $output = $input;
+        $output =~ s/.1950// ;
+        inflate $input => $output 
+            or die "Error compressing '$input': $InflateError\n";
+    }
+
+=head1 OO Interface
+
+=head2 Constructor
+
+The format of the constructor for IO::Uncompress::Inflate is shown below
+
+    my $z = new IO::Uncompress::Inflate $input [OPTS]
+        or die "IO::Uncompress::Inflate failed: $InflateError\n";
+
+Returns an C<IO::Uncompress::Inflate> object on success and undef on failure.
+The variable C<$InflateError> will contain an error message on failure.
+
+If you are running Perl 5.005 or better the object, C<$z>, returned from
+IO::Uncompress::Inflate can be used exactly like an L<IO::File|IO::File> filehandle.
+This means that all normal input file operations can be carried out with
+C<$z>.  For example, to read a line from a compressed file/buffer you can
+use either of these forms
+
+    $line = $z->getline();
+    $line = <$z>;
+
+The mandatory parameter C<$input> is used to determine the source of the
+compressed data. This parameter can take one of three forms.
+
+=over 5
+
+=item A filename
+
+If the C<$input> parameter is a scalar, it is assumed to be a filename. This
+file will be opened for reading and the compressed data will be read from it.
+
+=item A filehandle
+
+If the C<$input> parameter is a filehandle, the compressed data will be
+read from it.
+The string '-' can be used as an alias for standard input.
+
+=item A scalar reference 
+
+If C<$input> is a scalar reference, the compressed data will be read from
+C<$$input>.
+
+=back
+
+=head2 Constructor Options
+
+The option names defined below are case insensitive and can be optionally
+prefixed by a '-'.  So all of the following are valid
+
+    -AutoClose
+    -autoclose
+    AUTOCLOSE
+    autoclose
+
+OPTS is a combination of the following options:
+
+=over 5
+
+=item C<< AutoClose => 0|1 >>
+
+This option is only valid when the C<$input> parameter is a filehandle. If
+specified, and the value is true, it will result in the file being closed once
+either the C<close> method is called or the IO::Uncompress::Inflate object is
+destroyed.
+
+This parameter defaults to 0.
+
+=item C<< MultiStream => 0|1 >>
+
+Allows multiple concatenated compressed streams to be treated as a single
+compressed stream. Decompression will stop once either the end of the
+file/buffer is reached, an error is encountered (premature eof, corrupt
+compressed data) or the end of a stream is not immediately followed by the
+start of another stream.
+
+This parameter defaults to 0.
+
+=item C<< Prime => $string >>
+
+This option will uncompress the contents of C<$string> before processing the
+input file/buffer.
+
+This option can be useful when the compressed data is embedded in another
+file/data structure and it is not possible to work out where the compressed
+data begins without having to read the first few bytes. If this is the
+case, the uncompression can be I<primed> with these bytes using this
+option.
+
+=item C<< Transparent => 0|1 >>
+
+If this option is set and the input file/buffer is not compressed data,
+the module will allow reading of it anyway.
+
+In addition, if the input file/buffer does contain compressed data and
+there is non-compressed data immediately following it, setting this option
+will make this module treat the whole file/buffer as a single data stream.
+
+This option defaults to 1.
+
+=item C<< BlockSize => $num >>
+
+When reading the compressed input data, IO::Uncompress::Inflate will read it in
+blocks of C<$num> bytes.
+
+This option defaults to 4096.
+
+=item C<< InputLength => $size >>
+
+When present this option will limit the number of compressed bytes read
+from the input file/buffer to C<$size>. This option can be used in the
+situation where there is useful data directly after the compressed data
+stream and you know beforehand the exact length of the compressed data
+stream. 
+
+This option is mostly used when reading from a filehandle, in which case
+the file pointer will be left pointing to the first byte directly after the
+compressed data stream.
+
+This option defaults to off.
+
+=item C<< Append => 0|1 >>
+
+This option controls what the C<read> method does with uncompressed data.
+
+If set to 1, all uncompressed data will be appended to the output parameter
+of the C<read> method.
+
+If set to 0, the contents of the output parameter of the C<read> method
+will be overwritten by the uncompressed data.
+
+Defaults to 0.
+
+=item C<< Strict => 0|1 >>
+
+This option controls whether the extra checks defined below are used when
+carrying out the decompression. When Strict is on, the extra tests are
+carried out, when Strict is off they are not.
+
+The default for this option is off.
+
+=over 5
+
+=item 1
+
+The ADLER32 checksum field must be present.
+
+=item 2
+
+The value of the ADLER32 field read must match the adler32 value of the
+uncompressed data actually contained in the file.
+
+=back
+
+=back
+
+=head2 Examples
+
+TODO
+
+=head1 Methods 
+
+=head2 read
+
+Usage is
+
+    $status = $z->read($buffer)
+
+Reads a block of compressed data (the size of the compressed block is
+determined by the C<Buffer> option in the constructor), uncompresses it and
+writes any uncompressed data into C<$buffer>. If the C<Append> parameter is
+set in the constructor, the uncompressed data will be appended to the
+C<$buffer> parameter. Otherwise C<$buffer> will be overwritten.
+
+Returns the number of uncompressed bytes written to C<$buffer>, zero if eof
+or a negative number on error.
+
+=head2 read
+
+Usage is
+
+    $status = $z->read($buffer, $length)
+    $status = $z->read($buffer, $length, $offset)
+
+    $status = read($z, $buffer, $length)
+    $status = read($z, $buffer, $length, $offset)
+
+Attempt to read C<$length> bytes of uncompressed data into C<$buffer>.
+
+The main difference between this form of the C<read> method and the
+previous one, is that this one will attempt to return I<exactly> C<$length>
+bytes. The only circumstances that this function will not is if end-of-file
+or an IO error is encountered.
+
+Returns the number of uncompressed bytes written to C<$buffer>, zero if eof
+or a negative number on error.
+
+=head2 getline
+
+Usage is
+
+    $line = $z->getline()
+    $line = <$z>
+
+Reads a single line. 
+
+This method fully supports the use of the variable C<$/> (or
+C<$INPUT_RECORD_SEPARATOR> or C<$RS> when C<English> is in use) to
+determine what constitutes an end of line. Paragraph mode, record mode and
+file slurp mode are all supported. 
+
+=head2 getc
+
+Usage is 
+
+    $char = $z->getc()
+
+Read a single character.
+
+=head2 ungetc
+
+Usage is
+
+    $char = $z->ungetc($string)
+
+=head2 inflateSync
+
+Usage is
+
+    $status = $z->inflateSync()
+
+TODO
+
+=head2 getHeaderInfo
+
+Usage is
+
+    $hdr  = $z->getHeaderInfo();
+    @hdrs = $z->getHeaderInfo();
+
+This method returns either a hash reference (in scalar context) or a list
+or hash references (in array context) that contains information about each
+of the header fields in the compressed data stream(s).
+
+=head2 tell
+
+Usage is
+
+    $z->tell()
+    tell $z
+
+Returns the uncompressed file offset.
+
+=head2 eof
+
+Usage is
+
+    $z->eof();
+    eof($z);
+
+Returns true if the end of the compressed input stream has been reached.
+
+=head2 seek
+
+    $z->seek($position, $whence);
+    seek($z, $position, $whence);
+
+Provides a sub-set of the C<seek> functionality, with the restriction
+that it is only legal to seek forward in the input file/buffer.
+It is a fatal error to attempt to seek backward.
+
+Note that the implementation of C<seek> in this module does not provide
+true random access to a compressed file/buffer. It  works by uncompressing
+data from the current offset in the file/buffer until it reaches the
+uncompressed offset specified in the parameters to C<seek>. For very small
+files this may be acceptable behaviour. For large files it may cause an
+unacceptable delay.
+
+The C<$whence> parameter takes one the usual values, namely SEEK_SET,
+SEEK_CUR or SEEK_END.
+
+Returns 1 on success, 0 on failure.
+
+=head2 binmode
+
+Usage is
+
+    $z->binmode
+    binmode $z ;
+
+This is a noop provided for completeness.
+
+=head2 opened
+
+    $z->opened()
+
+Returns true if the object currently refers to a opened file/buffer. 
+
+=head2 autoflush
+
+    my $prev = $z->autoflush()
+    my $prev = $z->autoflush(EXPR)
+
+If the C<$z> object is associated with a file or a filehandle, this method
+returns the current autoflush setting for the underlying filehandle. If
+C<EXPR> is present, and is non-zero, it will enable flushing after every
+write/print operation.
+
+If C<$z> is associated with a buffer, this method has no effect and always
+returns C<undef>.
+
+B<Note> that the special variable C<$|> B<cannot> be used to set or
+retrieve the autoflush setting.
+
+=head2 input_line_number
+
+    $z->input_line_number()
+    $z->input_line_number(EXPR)
+
+Returns the current uncompressed line number. If C<EXPR> is present it has
+the effect of setting the line number. Note that setting the line number
+does not change the current position within the file/buffer being read.
+
+The contents of C<$/> are used to determine what constitutes a line
+terminator.
+
+=head2 fileno
+
+    $z->fileno()
+    fileno($z)
+
+If the C<$z> object is associated with a file or a filehandle, C<fileno>
+will return the underlying file descriptor. Once the C<close> method is
+called C<fileno> will return C<undef>.
+
+If the C<$z> object is associated with a buffer, this method will return
+C<undef>.
+
+=head2 close
+
+    $z->close() ;
+    close $z ;
+
+Closes the output file/buffer. 
+
+For most versions of Perl this method will be automatically invoked if
+the IO::Uncompress::Inflate object is destroyed (either explicitly or by the
+variable with the reference to the object going out of scope). The
+exceptions are Perl versions 5.005 through 5.00504 and 5.8.0. In
+these cases, the C<close> method will be called automatically, but
+not until global destruction of all live objects when the program is
+terminating.
+
+Therefore, if you want your scripts to be able to run on all versions
+of Perl, you should call C<close> explicitly and not rely on automatic
+closing.
+
+Returns true on success, otherwise 0.
+
+If the C<AutoClose> option has been enabled when the IO::Uncompress::Inflate
+object was created, and the object is associated with a file, the
+underlying file will also be closed.
+
+=head2 nextStream
+
+Usage is
+
+    my $status = $z->nextStream();
+
+Skips to the next compressed data stream in the input file/buffer. If a new
+compressed data stream is found, the eof marker will be cleared and C<$.>
+will be reset to 0.
+
+Returns 1 if a new stream was found, 0 if none was found, and -1 if an
+error was encountered.
+
+=head2 trailingData
+
+Usage is
+
+    my $data = $z->trailingData();
+
+Returns the data, if any, that is present immediately after the compressed
+data stream once uncompression is complete. It only makes sense to call
+this method once the end of the compressed data stream has been
+encountered.
+
+This option can be used when there is useful information immediately
+following the compressed data stream, and you don't know the length of the
+compressed data stream.
+
+If the input is a buffer, C<trailingData> will return everything from the
+end of the compressed data stream to the end of the buffer.
+
+If the input is a filehandle, C<trailingData> will return the data that is
+left in the filehandle input buffer once the end of the compressed data
+stream has been reached. You can then use the filehandle to read the rest
+of the input file. 
+
+Don't bother using C<trailingData> if the input is a filename.
+
+If you know the length of the compressed data stream before you start
+uncompressing, you can avoid having to use C<trailingData> by setting the
+C<InputLength> option in the constructor.
+
+=head1 Importing 
+
+No symbolic constants are required by this IO::Uncompress::Inflate at present. 
+
+=over 5
+
+=item :all
+
+Imports C<inflate> and C<$InflateError>.
+Same as doing this
+
+    use IO::Uncompress::Inflate qw(inflate $InflateError) ;
+
+=back
+
+=head1 EXAMPLES
+
+=head2 Working with Net::FTP
+
+See L<IO::Compress::FAQ|IO::Compress::FAQ/"Compressed files and Net::FTP">
+
+=head1 SEE ALSO
+
+L<Compress::Zlib>, L<IO::Compress::Gzip>, L<IO::Uncompress::Gunzip>, L<IO::Compress::Deflate>, L<IO::Compress::RawDeflate>, L<IO::Uncompress::RawInflate>, L<IO::Compress::Bzip2>, L<IO::Uncompress::Bunzip2>, L<IO::Compress::Lzma>, L<IO::Uncompress::UnLzma>, L<IO::Compress::Xz>, L<IO::Uncompress::UnXz>, L<IO::Compress::Lzop>, L<IO::Uncompress::UnLzop>, L<IO::Compress::Lzf>, L<IO::Uncompress::UnLzf>, L<IO::Uncompress::AnyInflate>, L<IO::Uncompress::AnyUncompress>
+
+L<IO::Compress::FAQ|IO::Compress::FAQ>
+
+L<File::GlobMapper|File::GlobMapper>, L<Archive::Zip|Archive::Zip>,
+L<Archive::Tar|Archive::Tar>,
+L<IO::Zlib|IO::Zlib>
+
+For RFC 1950, 1951 and 1952 see 
+F<http://www.faqs.org/rfcs/rfc1950.html>,
+F<http://www.faqs.org/rfcs/rfc1951.html> and
+F<http://www.faqs.org/rfcs/rfc1952.html>
+
+The I<zlib> compression library was written by Jean-loup Gailly
+F<gzip@prep.ai.mit.edu> and Mark Adler F<madler@alumni.caltech.edu>.
+
+The primary site for the I<zlib> compression library is
+F<http://www.zlib.org>.
+
+The primary site for gzip is F<http://www.gzip.org>.
+
+=head1 AUTHOR
+
+This module was written by Paul Marquess, F<pmqs@cpan.org>. 
+
+=head1 MODIFICATION HISTORY
+
+See the Changes file.
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright (c) 2005-2015 Paul Marquess. All rights reserved.
+
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
diff --git a/lib/5.24.1/IO/Uncompress/RawInflate.pm b/lib/5.24.1/IO/Uncompress/RawInflate.pm
new file mode 100644
index 00000000..20a91626
--- /dev/null
+++ b/lib/5.24.1/IO/Uncompress/RawInflate.pm
@@ -0,0 +1,1125 @@
+package IO::Uncompress::RawInflate ;
+# for RFC1951
+
+use strict ;
+use warnings;
+#use bytes;
+
+use Compress::Raw::Zlib  2.069 ;
+use IO::Compress::Base::Common  2.069 qw(:Status );
+
+use IO::Uncompress::Base  2.069 ;
+use IO::Uncompress::Adapter::Inflate  2.069 ;
+
+require Exporter ;
+our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, %DEFLATE_CONSTANTS, $RawInflateError);
+
+$VERSION = '2.069_001';
+$RawInflateError = '';
+
+@ISA    = qw( Exporter IO::Uncompress::Base );
+@EXPORT_OK = qw( $RawInflateError rawinflate ) ;
+%DEFLATE_CONSTANTS = ();
+%EXPORT_TAGS = %IO::Uncompress::Base::EXPORT_TAGS ;
+push @{ $EXPORT_TAGS{all} }, @EXPORT_OK ;
+Exporter::export_ok_tags('all');
+
+#{
+#    # Execute at runtime  
+#    my %bad;
+#    for my $module (qw(Compress::Raw::Zlib IO::Compress::Base::Common IO::Uncompress::Base IO::Uncompress::Adapter::Inflate))
+#    {
+#        my $ver = ${ $module . "::VERSION"} ;
+#        
+#        $bad{$module} = $ver
+#            if $ver ne $VERSION;
+#    }
+#    
+#    if (keys %bad)
+#    {
+#        my $string = join "\n", map { "$_ $bad{$_}" } keys %bad;
+#        die caller(0)[0] . "needs version $VERSION mismatch\n$string\n";
+#    }
+#}
+
+sub new
+{
+    my $class = shift ;
+    my $obj = IO::Compress::Base::Common::createSelfTiedObject($class, \$RawInflateError);
+    $obj->_create(undef, 0, @_);
+}
+
+sub rawinflate
+{
+    my $obj = IO::Compress::Base::Common::createSelfTiedObject(undef, \$RawInflateError);
+    return $obj->_inf(@_);
+}
+
+sub getExtraParams
+{
+    return ();
+}
+
+sub ckParams
+{
+    my $self = shift ;
+    my $got = shift ;
+
+    return 1;
+}
+
+sub mkUncomp
+{
+    my $self = shift ;
+    my $got = shift ;
+
+    my ($obj, $errstr, $errno) = IO::Uncompress::Adapter::Inflate::mkUncompObject(
+                                                                $got->getValue('crc32'),
+                                                                $got->getValue('adler32'),
+                                                                $got->getValue('scan'),
+                                                            );
+
+    return $self->saveErrorString(undef, $errstr, $errno)
+        if ! defined $obj;
+
+    *$self->{Uncomp} = $obj;
+
+     my $magic = $self->ckMagic()
+        or return 0;
+
+    *$self->{Info} = $self->readHeader($magic)
+        or return undef ;
+
+    return 1;
+
+}
+
+
+sub ckMagic
+{
+    my $self = shift;
+
+    return $self->_isRaw() ;
+}
+
+sub readHeader
+{
+    my $self = shift;
+    my $magic = shift ;
+
+    return {
+        'Type'          => 'rfc1951',
+        'FingerprintLength'  => 0,
+        'HeaderLength'  => 0,
+        'TrailerLength' => 0,
+        'Header'        => ''
+        };
+}
+
+sub chkTrailer
+{
+    return STATUS_OK ;
+}
+
+sub _isRaw
+{
+    my $self   = shift ;
+
+    my $got = $self->_isRawx(@_);
+
+    if ($got) {
+        *$self->{Pending} = *$self->{HeaderPending} ;
+    }
+    else {
+        $self->pushBack(*$self->{HeaderPending});
+        *$self->{Uncomp}->reset();
+    }
+    *$self->{HeaderPending} = '';
+
+    return $got ;
+}
+
+sub _isRawx
+{
+    my $self   = shift ;
+    my $magic = shift ;
+
+    $magic = '' unless defined $magic ;
+
+    my $buffer = '';
+
+    $self->smartRead(\$buffer, *$self->{BlockSize}) >= 0  
+        or return $self->saveErrorString(undef, "No data to read");
+
+    my $temp_buf = $magic . $buffer ;
+    *$self->{HeaderPending} = $temp_buf ;    
+    $buffer = '';
+    my $status = *$self->{Uncomp}->uncompr(\$temp_buf, \$buffer, $self->smartEof()) ;
+    
+    return $self->saveErrorString(undef, *$self->{Uncomp}{Error}, STATUS_ERROR)
+        if $status == STATUS_ERROR;
+
+    $self->pushBack($temp_buf)  ;
+
+    return $self->saveErrorString(undef, "unexpected end of file", STATUS_ERROR)
+        if $self->smartEof() && $status != STATUS_ENDSTREAM;
+            
+    #my $buf_len = *$self->{Uncomp}->uncompressedBytes();
+    my $buf_len = length $buffer;
+
+    if ($status == STATUS_ENDSTREAM) {
+        if (*$self->{MultiStream} 
+                    && (length $temp_buf || ! $self->smartEof())){
+            *$self->{NewStream} = 1 ;
+            *$self->{EndStream} = 0 ;
+        }
+        else {
+            *$self->{EndStream} = 1 ;
+        }
+    }
+    *$self->{HeaderPending} = $buffer ;    
+    *$self->{InflatedBytesRead} = $buf_len ;    
+    *$self->{TotalInflatedBytesRead} += $buf_len ;    
+    *$self->{Type} = 'rfc1951';
+
+    $self->saveStatus(STATUS_OK);
+
+    return {
+        'Type'          => 'rfc1951',
+        'HeaderLength'  => 0,
+        'TrailerLength' => 0,
+        'Header'        => ''
+        };
+}
+
+
+sub inflateSync
+{
+    my $self = shift ;
+
+    # inflateSync is a no-op in Plain mode
+    return 1
+        if *$self->{Plain} ;
+
+    return 0 if *$self->{Closed} ;
+    #return G_EOF if !length *$self->{Pending} && *$self->{EndStream} ;
+    return 0 if ! length *$self->{Pending} && *$self->{EndStream} ;
+
+    # Disable CRC check
+    *$self->{Strict} = 0 ;
+
+    my $status ;
+    while (1)
+    {
+        my $temp_buf ;
+
+        if (length *$self->{Pending} )
+        {
+            $temp_buf = *$self->{Pending} ;
+            *$self->{Pending} = '';
+        }
+        else
+        {
+            $status = $self->smartRead(\$temp_buf, *$self->{BlockSize}) ;
+            return $self->saveErrorString(0, "Error Reading Data")
+                if $status < 0  ;
+
+            if ($status == 0 ) {
+                *$self->{EndStream} = 1 ;
+                return $self->saveErrorString(0, "unexpected end of file", STATUS_ERROR);
+            }
+        }
+        
+        $status = *$self->{Uncomp}->sync($temp_buf) ;
+
+        if ($status == STATUS_OK)
+        {
+            *$self->{Pending} .= $temp_buf ;
+            return 1 ;
+        }
+
+        last unless $status == STATUS_ERROR ;
+    }
+
+    return 0;
+}
+
+#sub performScan
+#{
+#    my $self = shift ;
+#
+#    my $status ;
+#    my $end_offset = 0;
+#
+#    $status = $self->scan() 
+#    #or return $self->saveErrorString(undef, "Error Scanning: $$error_ref", $self->errorNo) ;
+#        or return $self->saveErrorString(G_ERR, "Error Scanning: $status")
+#
+#    $status = $self->zap($end_offset) 
+#        or return $self->saveErrorString(G_ERR, "Error Zapping: $status");
+#    #or return $self->saveErrorString(undef, "Error Zapping: $$error_ref", $self->errorNo) ;
+#
+#    #(*$obj->{Deflate}, $status) = $inf->createDeflate();
+#
+##    *$obj->{Header} = *$inf->{Info}{Header};
+##    *$obj->{UnCompSize_32bit} = 
+##        *$obj->{BytesWritten} = *$inf->{UnCompSize_32bit} ;
+##    *$obj->{CompSize_32bit} = *$inf->{CompSize_32bit} ;
+#
+#
+##    if ( $outType eq 'buffer') 
+##      { substr( ${ *$self->{Buffer} }, $end_offset) = '' }
+##    elsif ($outType eq 'handle' || $outType eq 'filename') {
+##        *$self->{FH} = *$inf->{FH} ;
+##        delete *$inf->{FH};
+##        *$obj->{FH}->flush() ;
+##        *$obj->{Handle} = 1 if $outType eq 'handle';
+##
+##        #seek(*$obj->{FH}, $end_offset, SEEK_SET) 
+##        *$obj->{FH}->seek($end_offset, SEEK_SET) 
+##            or return $obj->saveErrorString(undef, $!, $!) ;
+##    }
+#    
+#}
+
+sub scan
+{
+    my $self = shift ;
+
+    return 1 if *$self->{Closed} ;
+    return 1 if !length *$self->{Pending} && *$self->{EndStream} ;
+
+    my $buffer = '' ;
+    my $len = 0;
+
+    $len = $self->_raw_read(\$buffer, 1) 
+        while ! *$self->{EndStream} && $len >= 0 ;
+
+    #return $len if $len < 0 ? $len : 0 ;
+    return $len < 0 ? 0 : 1 ;
+}
+
+sub zap
+{
+    my $self  = shift ;
+
+    my $headerLength = *$self->{Info}{HeaderLength};
+    my $block_offset =  $headerLength + *$self->{Uncomp}->getLastBlockOffset();
+    $_[0] = $headerLength + *$self->{Uncomp}->getEndOffset();
+    #printf "# End $_[0], headerlen $headerLength \n";;
+    #printf "# block_offset $block_offset %x\n", $block_offset;
+    my $byte ;
+    ( $self->smartSeek($block_offset) &&
+      $self->smartRead(\$byte, 1) ) 
+        or return $self->saveErrorString(0, $!, $!); 
+
+    #printf "#byte is %x\n", unpack('C*',$byte);
+    *$self->{Uncomp}->resetLastBlockByte($byte);
+    #printf "#to byte is %x\n", unpack('C*',$byte);
+
+    ( $self->smartSeek($block_offset) && 
+      $self->smartWrite($byte) )
+        or return $self->saveErrorString(0, $!, $!); 
+
+    #$self->smartSeek($end_offset, 1);
+
+    return 1 ;
+}
+
+sub createDeflate
+{
+    my $self  = shift ;
+    my ($def, $status) = *$self->{Uncomp}->createDeflateStream(
+                                    -AppendOutput   => 1,
+                                    -WindowBits => - MAX_WBITS,
+                                    -CRC32      => *$self->{Params}->getValue('crc32'),
+                                    -ADLER32    => *$self->{Params}->getValue('adler32'),
+                                );
+    
+    return wantarray ? ($status, $def) : $def ;                                
+}
+
+
+1; 
+
+__END__
+
+
+=head1 NAME
+
+IO::Uncompress::RawInflate - Read RFC 1951 files/buffers
+
+=head1 SYNOPSIS
+
+    use IO::Uncompress::RawInflate qw(rawinflate $RawInflateError) ;
+
+    my $status = rawinflate $input => $output [,OPTS]
+        or die "rawinflate failed: $RawInflateError\n";
+
+    my $z = new IO::Uncompress::RawInflate $input [OPTS] 
+        or die "rawinflate failed: $RawInflateError\n";
+
+    $status = $z->read($buffer)
+    $status = $z->read($buffer, $length)
+    $status = $z->read($buffer, $length, $offset)
+    $line = $z->getline()
+    $char = $z->getc()
+    $char = $z->ungetc()
+    $char = $z->opened()
+
+    $status = $z->inflateSync()
+
+    $data = $z->trailingData()
+    $status = $z->nextStream()
+    $data = $z->getHeaderInfo()
+    $z->tell()
+    $z->seek($position, $whence)
+    $z->binmode()
+    $z->fileno()
+    $z->eof()
+    $z->close()
+
+    $RawInflateError ;
+
+    # IO::File mode
+
+    <$z>
+    read($z, $buffer);
+    read($z, $buffer, $length);
+    read($z, $buffer, $length, $offset);
+    tell($z)
+    seek($z, $position, $whence)
+    binmode($z)
+    fileno($z)
+    eof($z)
+    close($z)
+
+=head1 DESCRIPTION
+
+This module provides a Perl interface that allows the reading of
+files/buffers that conform to RFC 1951.
+
+For writing RFC 1951 files/buffers, see the companion module IO::Compress::RawDeflate.
+
+=head1 Functional Interface
+
+A top-level function, C<rawinflate>, is provided to carry out
+"one-shot" uncompression between buffers and/or files. For finer
+control over the uncompression process, see the L</"OO Interface">
+section.
+
+    use IO::Uncompress::RawInflate qw(rawinflate $RawInflateError) ;
+
+    rawinflate $input_filename_or_reference => $output_filename_or_reference [,OPTS] 
+        or die "rawinflate failed: $RawInflateError\n";
+
+The functional interface needs Perl5.005 or better.
+
+=head2 rawinflate $input_filename_or_reference => $output_filename_or_reference [, OPTS]
+
+C<rawinflate> expects at least two parameters,
+C<$input_filename_or_reference> and C<$output_filename_or_reference>.
+
+=head3 The C<$input_filename_or_reference> parameter
+
+The parameter, C<$input_filename_or_reference>, is used to define the
+source of the compressed data. 
+
+It can take one of the following forms:
+
+=over 5
+
+=item A filename
+
+If the <$input_filename_or_reference> parameter is a simple scalar, it is
+assumed to be a filename. This file will be opened for reading and the
+input data will be read from it.
+
+=item A filehandle
+
+If the C<$input_filename_or_reference> parameter is a filehandle, the input
+data will be read from it.  The string '-' can be used as an alias for
+standard input.
+
+=item A scalar reference 
+
+If C<$input_filename_or_reference> is a scalar reference, the input data
+will be read from C<$$input_filename_or_reference>.
+
+=item An array reference 
+
+If C<$input_filename_or_reference> is an array reference, each element in
+the array must be a filename.
+
+The input data will be read from each file in turn. 
+
+The complete array will be walked to ensure that it only
+contains valid filenames before any data is uncompressed.
+
+=item An Input FileGlob string
+
+If C<$input_filename_or_reference> is a string that is delimited by the
+characters "<" and ">" C<rawinflate> will assume that it is an 
+I<input fileglob string>. The input is the list of files that match the 
+fileglob.
+
+See L<File::GlobMapper|File::GlobMapper> for more details.
+
+=back
+
+If the C<$input_filename_or_reference> parameter is any other type,
+C<undef> will be returned.
+
+=head3 The C<$output_filename_or_reference> parameter
+
+The parameter C<$output_filename_or_reference> is used to control the
+destination of the uncompressed data. This parameter can take one of
+these forms.
+
+=over 5
+
+=item A filename
+
+If the C<$output_filename_or_reference> parameter is a simple scalar, it is
+assumed to be a filename.  This file will be opened for writing and the 
+uncompressed data will be written to it.
+
+=item A filehandle
+
+If the C<$output_filename_or_reference> parameter is a filehandle, the
+uncompressed data will be written to it.  The string '-' can be used as
+an alias for standard output.
+
+=item A scalar reference 
+
+If C<$output_filename_or_reference> is a scalar reference, the
+uncompressed data will be stored in C<$$output_filename_or_reference>.
+
+=item An Array Reference
+
+If C<$output_filename_or_reference> is an array reference, 
+the uncompressed data will be pushed onto the array.
+
+=item An Output FileGlob
+
+If C<$output_filename_or_reference> is a string that is delimited by the
+characters "<" and ">" C<rawinflate> will assume that it is an
+I<output fileglob string>. The output is the list of files that match the
+fileglob.
+
+When C<$output_filename_or_reference> is an fileglob string,
+C<$input_filename_or_reference> must also be a fileglob string. Anything
+else is an error.
+
+See L<File::GlobMapper|File::GlobMapper> for more details.
+
+=back
+
+If the C<$output_filename_or_reference> parameter is any other type,
+C<undef> will be returned.
+
+=head2 Notes
+
+When C<$input_filename_or_reference> maps to multiple compressed
+files/buffers and C<$output_filename_or_reference> is
+a single file/buffer, after uncompression C<$output_filename_or_reference> will contain a
+concatenation of all the uncompressed data from each of the input
+files/buffers.
+
+=head2 Optional Parameters
+
+Unless specified below, the optional parameters for C<rawinflate>,
+C<OPTS>, are the same as those used with the OO interface defined in the
+L</"Constructor Options"> section below.
+
+=over 5
+
+=item C<< AutoClose => 0|1 >>
+
+This option applies to any input or output data streams to 
+C<rawinflate> that are filehandles.
+
+If C<AutoClose> is specified, and the value is true, it will result in all
+input and/or output filehandles being closed once C<rawinflate> has
+completed.
+
+This parameter defaults to 0.
+
+=item C<< BinModeOut => 0|1 >>
+
+When writing to a file or filehandle, set C<binmode> before writing to the
+file.
+
+Defaults to 0.
+
+=item C<< Append => 0|1 >>
+
+The behaviour of this option is dependent on the type of output data
+stream.
+
+=over 5
+
+=item * A Buffer
+
+If C<Append> is enabled, all uncompressed data will be append to the end of
+the output buffer. Otherwise the output buffer will be cleared before any
+uncompressed data is written to it.
+
+=item * A Filename
+
+If C<Append> is enabled, the file will be opened in append mode. Otherwise
+the contents of the file, if any, will be truncated before any uncompressed
+data is written to it.
+
+=item * A Filehandle
+
+If C<Append> is enabled, the filehandle will be positioned to the end of
+the file via a call to C<seek> before any uncompressed data is
+written to it.  Otherwise the file pointer will not be moved.
+
+=back
+
+When C<Append> is specified, and set to true, it will I<append> all uncompressed 
+data to the output data stream.
+
+So when the output is a filehandle it will carry out a seek to the eof
+before writing any uncompressed data. If the output is a filename, it will be opened for
+appending. If the output is a buffer, all uncompressed data will be
+appended to the existing buffer.
+
+Conversely when C<Append> is not specified, or it is present and is set to
+false, it will operate as follows.
+
+When the output is a filename, it will truncate the contents of the file
+before writing any uncompressed data. If the output is a filehandle
+its position will not be changed. If the output is a buffer, it will be
+wiped before any uncompressed data is output.
+
+Defaults to 0.
+
+=item C<< MultiStream => 0|1 >>
+
+This option is a no-op.
+
+=item C<< TrailingData => $scalar >>
+
+Returns the data, if any, that is present immediately after the compressed
+data stream once uncompression is complete. 
+
+This option can be used when there is useful information immediately
+following the compressed data stream, and you don't know the length of the
+compressed data stream.
+
+If the input is a buffer, C<trailingData> will return everything from the
+end of the compressed data stream to the end of the buffer.
+
+If the input is a filehandle, C<trailingData> will return the data that is
+left in the filehandle input buffer once the end of the compressed data
+stream has been reached. You can then use the filehandle to read the rest
+of the input file. 
+
+Don't bother using C<trailingData> if the input is a filename.
+
+If you know the length of the compressed data stream before you start
+uncompressing, you can avoid having to use C<trailingData> by setting the
+C<InputLength> option.
+
+=back
+
+=head2 Examples
+
+To read the contents of the file C<file1.txt.1951> and write the
+uncompressed data to the file C<file1.txt>.
+
+    use strict ;
+    use warnings ;
+    use IO::Uncompress::RawInflate qw(rawinflate $RawInflateError) ;
+
+    my $input = "file1.txt.1951";
+    my $output = "file1.txt";
+    rawinflate $input => $output
+        or die "rawinflate failed: $RawInflateError\n";
+
+To read from an existing Perl filehandle, C<$input>, and write the
+uncompressed data to a buffer, C<$buffer>.
+
+    use strict ;
+    use warnings ;
+    use IO::Uncompress::RawInflate qw(rawinflate $RawInflateError) ;
+    use IO::File ;
+
+    my $input = new IO::File "<file1.txt.1951"
+        or die "Cannot open 'file1.txt.1951': $!\n" ;
+    my $buffer ;
+    rawinflate $input => \$buffer 
+        or die "rawinflate failed: $RawInflateError\n";
+
+To uncompress all files in the directory "/my/home" that match "*.txt.1951" and store the compressed data in the same directory
+
+    use strict ;
+    use warnings ;
+    use IO::Uncompress::RawInflate qw(rawinflate $RawInflateError) ;
+
+    rawinflate '</my/home/*.txt.1951>' => '</my/home/#1.txt>'
+        or die "rawinflate failed: $RawInflateError\n";
+
+and if you want to compress each file one at a time, this will do the trick
+
+    use strict ;
+    use warnings ;
+    use IO::Uncompress::RawInflate qw(rawinflate $RawInflateError) ;
+
+    for my $input ( glob "/my/home/*.txt.1951" )
+    {
+        my $output = $input;
+        $output =~ s/.1951// ;
+        rawinflate $input => $output 
+            or die "Error compressing '$input': $RawInflateError\n";
+    }
+
+=head1 OO Interface
+
+=head2 Constructor
+
+The format of the constructor for IO::Uncompress::RawInflate is shown below
+
+    my $z = new IO::Uncompress::RawInflate $input [OPTS]
+        or die "IO::Uncompress::RawInflate failed: $RawInflateError\n";
+
+Returns an C<IO::Uncompress::RawInflate> object on success and undef on failure.
+The variable C<$RawInflateError> will contain an error message on failure.
+
+If you are running Perl 5.005 or better the object, C<$z>, returned from
+IO::Uncompress::RawInflate can be used exactly like an L<IO::File|IO::File> filehandle.
+This means that all normal input file operations can be carried out with
+C<$z>.  For example, to read a line from a compressed file/buffer you can
+use either of these forms
+
+    $line = $z->getline();
+    $line = <$z>;
+
+The mandatory parameter C<$input> is used to determine the source of the
+compressed data. This parameter can take one of three forms.
+
+=over 5
+
+=item A filename
+
+If the C<$input> parameter is a scalar, it is assumed to be a filename. This
+file will be opened for reading and the compressed data will be read from it.
+
+=item A filehandle
+
+If the C<$input> parameter is a filehandle, the compressed data will be
+read from it.
+The string '-' can be used as an alias for standard input.
+
+=item A scalar reference 
+
+If C<$input> is a scalar reference, the compressed data will be read from
+C<$$input>.
+
+=back
+
+=head2 Constructor Options
+
+The option names defined below are case insensitive and can be optionally
+prefixed by a '-'.  So all of the following are valid
+
+    -AutoClose
+    -autoclose
+    AUTOCLOSE
+    autoclose
+
+OPTS is a combination of the following options:
+
+=over 5
+
+=item C<< AutoClose => 0|1 >>
+
+This option is only valid when the C<$input> parameter is a filehandle. If
+specified, and the value is true, it will result in the file being closed once
+either the C<close> method is called or the IO::Uncompress::RawInflate object is
+destroyed.
+
+This parameter defaults to 0.
+
+=item C<< MultiStream => 0|1 >>
+
+Allows multiple concatenated compressed streams to be treated as a single
+compressed stream. Decompression will stop once either the end of the
+file/buffer is reached, an error is encountered (premature eof, corrupt
+compressed data) or the end of a stream is not immediately followed by the
+start of another stream.
+
+This parameter defaults to 0.
+
+=item C<< Prime => $string >>
+
+This option will uncompress the contents of C<$string> before processing the
+input file/buffer.
+
+This option can be useful when the compressed data is embedded in another
+file/data structure and it is not possible to work out where the compressed
+data begins without having to read the first few bytes. If this is the
+case, the uncompression can be I<primed> with these bytes using this
+option.
+
+=item C<< Transparent => 0|1 >>
+
+If this option is set and the input file/buffer is not compressed data,
+the module will allow reading of it anyway.
+
+In addition, if the input file/buffer does contain compressed data and
+there is non-compressed data immediately following it, setting this option
+will make this module treat the whole file/buffer as a single data stream.
+
+This option defaults to 1.
+
+=item C<< BlockSize => $num >>
+
+When reading the compressed input data, IO::Uncompress::RawInflate will read it in
+blocks of C<$num> bytes.
+
+This option defaults to 4096.
+
+=item C<< InputLength => $size >>
+
+When present this option will limit the number of compressed bytes read
+from the input file/buffer to C<$size>. This option can be used in the
+situation where there is useful data directly after the compressed data
+stream and you know beforehand the exact length of the compressed data
+stream. 
+
+This option is mostly used when reading from a filehandle, in which case
+the file pointer will be left pointing to the first byte directly after the
+compressed data stream.
+
+This option defaults to off.
+
+=item C<< Append => 0|1 >>
+
+This option controls what the C<read> method does with uncompressed data.
+
+If set to 1, all uncompressed data will be appended to the output parameter
+of the C<read> method.
+
+If set to 0, the contents of the output parameter of the C<read> method
+will be overwritten by the uncompressed data.
+
+Defaults to 0.
+
+=item C<< Strict => 0|1 >>
+
+This option is a no-op.
+
+=back
+
+=head2 Examples
+
+TODO
+
+=head1 Methods 
+
+=head2 read
+
+Usage is
+
+    $status = $z->read($buffer)
+
+Reads a block of compressed data (the size of the compressed block is
+determined by the C<Buffer> option in the constructor), uncompresses it and
+writes any uncompressed data into C<$buffer>. If the C<Append> parameter is
+set in the constructor, the uncompressed data will be appended to the
+C<$buffer> parameter. Otherwise C<$buffer> will be overwritten.
+
+Returns the number of uncompressed bytes written to C<$buffer>, zero if eof
+or a negative number on error.
+
+=head2 read
+
+Usage is
+
+    $status = $z->read($buffer, $length)
+    $status = $z->read($buffer, $length, $offset)
+
+    $status = read($z, $buffer, $length)
+    $status = read($z, $buffer, $length, $offset)
+
+Attempt to read C<$length> bytes of uncompressed data into C<$buffer>.
+
+The main difference between this form of the C<read> method and the
+previous one, is that this one will attempt to return I<exactly> C<$length>
+bytes. The only circumstances that this function will not is if end-of-file
+or an IO error is encountered.
+
+Returns the number of uncompressed bytes written to C<$buffer>, zero if eof
+or a negative number on error.
+
+=head2 getline
+
+Usage is
+
+    $line = $z->getline()
+    $line = <$z>
+
+Reads a single line. 
+
+This method fully supports the use of the variable C<$/> (or
+C<$INPUT_RECORD_SEPARATOR> or C<$RS> when C<English> is in use) to
+determine what constitutes an end of line. Paragraph mode, record mode and
+file slurp mode are all supported. 
+
+=head2 getc
+
+Usage is 
+
+    $char = $z->getc()
+
+Read a single character.
+
+=head2 ungetc
+
+Usage is
+
+    $char = $z->ungetc($string)
+
+=head2 inflateSync
+
+Usage is
+
+    $status = $z->inflateSync()
+
+TODO
+
+=head2 getHeaderInfo
+
+Usage is
+
+    $hdr  = $z->getHeaderInfo();
+    @hdrs = $z->getHeaderInfo();
+
+This method returns either a hash reference (in scalar context) or a list
+or hash references (in array context) that contains information about each
+of the header fields in the compressed data stream(s).
+
+=head2 tell
+
+Usage is
+
+    $z->tell()
+    tell $z
+
+Returns the uncompressed file offset.
+
+=head2 eof
+
+Usage is
+
+    $z->eof();
+    eof($z);
+
+Returns true if the end of the compressed input stream has been reached.
+
+=head2 seek
+
+    $z->seek($position, $whence);
+    seek($z, $position, $whence);
+
+Provides a sub-set of the C<seek> functionality, with the restriction
+that it is only legal to seek forward in the input file/buffer.
+It is a fatal error to attempt to seek backward.
+
+Note that the implementation of C<seek> in this module does not provide
+true random access to a compressed file/buffer. It  works by uncompressing
+data from the current offset in the file/buffer until it reaches the
+uncompressed offset specified in the parameters to C<seek>. For very small
+files this may be acceptable behaviour. For large files it may cause an
+unacceptable delay.
+
+The C<$whence> parameter takes one the usual values, namely SEEK_SET,
+SEEK_CUR or SEEK_END.
+
+Returns 1 on success, 0 on failure.
+
+=head2 binmode
+
+Usage is
+
+    $z->binmode
+    binmode $z ;
+
+This is a noop provided for completeness.
+
+=head2 opened
+
+    $z->opened()
+
+Returns true if the object currently refers to a opened file/buffer. 
+
+=head2 autoflush
+
+    my $prev = $z->autoflush()
+    my $prev = $z->autoflush(EXPR)
+
+If the C<$z> object is associated with a file or a filehandle, this method
+returns the current autoflush setting for the underlying filehandle. If
+C<EXPR> is present, and is non-zero, it will enable flushing after every
+write/print operation.
+
+If C<$z> is associated with a buffer, this method has no effect and always
+returns C<undef>.
+
+B<Note> that the special variable C<$|> B<cannot> be used to set or
+retrieve the autoflush setting.
+
+=head2 input_line_number
+
+    $z->input_line_number()
+    $z->input_line_number(EXPR)
+
+Returns the current uncompressed line number. If C<EXPR> is present it has
+the effect of setting the line number. Note that setting the line number
+does not change the current position within the file/buffer being read.
+
+The contents of C<$/> are used to determine what constitutes a line
+terminator.
+
+=head2 fileno
+
+    $z->fileno()
+    fileno($z)
+
+If the C<$z> object is associated with a file or a filehandle, C<fileno>
+will return the underlying file descriptor. Once the C<close> method is
+called C<fileno> will return C<undef>.
+
+If the C<$z> object is associated with a buffer, this method will return
+C<undef>.
+
+=head2 close
+
+    $z->close() ;
+    close $z ;
+
+Closes the output file/buffer. 
+
+For most versions of Perl this method will be automatically invoked if
+the IO::Uncompress::RawInflate object is destroyed (either explicitly or by the
+variable with the reference to the object going out of scope). The
+exceptions are Perl versions 5.005 through 5.00504 and 5.8.0. In
+these cases, the C<close> method will be called automatically, but
+not until global destruction of all live objects when the program is
+terminating.
+
+Therefore, if you want your scripts to be able to run on all versions
+of Perl, you should call C<close> explicitly and not rely on automatic
+closing.
+
+Returns true on success, otherwise 0.
+
+If the C<AutoClose> option has been enabled when the IO::Uncompress::RawInflate
+object was created, and the object is associated with a file, the
+underlying file will also be closed.
+
+=head2 nextStream
+
+Usage is
+
+    my $status = $z->nextStream();
+
+Skips to the next compressed data stream in the input file/buffer. If a new
+compressed data stream is found, the eof marker will be cleared and C<$.>
+will be reset to 0.
+
+Returns 1 if a new stream was found, 0 if none was found, and -1 if an
+error was encountered.
+
+=head2 trailingData
+
+Usage is
+
+    my $data = $z->trailingData();
+
+Returns the data, if any, that is present immediately after the compressed
+data stream once uncompression is complete. It only makes sense to call
+this method once the end of the compressed data stream has been
+encountered.
+
+This option can be used when there is useful information immediately
+following the compressed data stream, and you don't know the length of the
+compressed data stream.
+
+If the input is a buffer, C<trailingData> will return everything from the
+end of the compressed data stream to the end of the buffer.
+
+If the input is a filehandle, C<trailingData> will return the data that is
+left in the filehandle input buffer once the end of the compressed data
+stream has been reached. You can then use the filehandle to read the rest
+of the input file. 
+
+Don't bother using C<trailingData> if the input is a filename.
+
+If you know the length of the compressed data stream before you start
+uncompressing, you can avoid having to use C<trailingData> by setting the
+C<InputLength> option in the constructor.
+
+=head1 Importing 
+
+No symbolic constants are required by this IO::Uncompress::RawInflate at present. 
+
+=over 5
+
+=item :all
+
+Imports C<rawinflate> and C<$RawInflateError>.
+Same as doing this
+
+    use IO::Uncompress::RawInflate qw(rawinflate $RawInflateError) ;
+
+=back
+
+=head1 EXAMPLES
+
+=head2 Working with Net::FTP
+
+See L<IO::Compress::FAQ|IO::Compress::FAQ/"Compressed files and Net::FTP">
+
+=head1 SEE ALSO
+
+L<Compress::Zlib>, L<IO::Compress::Gzip>, L<IO::Uncompress::Gunzip>, L<IO::Compress::Deflate>, L<IO::Uncompress::Inflate>, L<IO::Compress::RawDeflate>, L<IO::Compress::Bzip2>, L<IO::Uncompress::Bunzip2>, L<IO::Compress::Lzma>, L<IO::Uncompress::UnLzma>, L<IO::Compress::Xz>, L<IO::Uncompress::UnXz>, L<IO::Compress::Lzop>, L<IO::Uncompress::UnLzop>, L<IO::Compress::Lzf>, L<IO::Uncompress::UnLzf>, L<IO::Uncompress::AnyInflate>, L<IO::Uncompress::AnyUncompress>
+
+L<IO::Compress::FAQ|IO::Compress::FAQ>
+
+L<File::GlobMapper|File::GlobMapper>, L<Archive::Zip|Archive::Zip>,
+L<Archive::Tar|Archive::Tar>,
+L<IO::Zlib|IO::Zlib>
+
+For RFC 1950, 1951 and 1952 see 
+F<http://www.faqs.org/rfcs/rfc1950.html>,
+F<http://www.faqs.org/rfcs/rfc1951.html> and
+F<http://www.faqs.org/rfcs/rfc1952.html>
+
+The I<zlib> compression library was written by Jean-loup Gailly
+F<gzip@prep.ai.mit.edu> and Mark Adler F<madler@alumni.caltech.edu>.
+
+The primary site for the I<zlib> compression library is
+F<http://www.zlib.org>.
+
+The primary site for gzip is F<http://www.gzip.org>.
+
+=head1 AUTHOR
+
+This module was written by Paul Marquess, F<pmqs@cpan.org>. 
+
+=head1 MODIFICATION HISTORY
+
+See the Changes file.
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright (c) 2005-2015 Paul Marquess. All rights reserved.
+
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
diff --git a/lib/5.24.1/IO/Uncompress/Unzip.pm b/lib/5.24.1/IO/Uncompress/Unzip.pm
new file mode 100644
index 00000000..5394ec89
--- /dev/null
+++ b/lib/5.24.1/IO/Uncompress/Unzip.pm
@@ -0,0 +1,1868 @@
+package IO::Uncompress::Unzip;
+
+require 5.006 ;
+
+# for RFC1952
+
+use strict ;
+use warnings;
+#use bytes;
+
+use IO::File;
+use IO::Uncompress::RawInflate  2.069 ;
+use IO::Compress::Base::Common  2.069 qw(:Status );
+use IO::Uncompress::Adapter::Inflate  2.069 ;
+use IO::Uncompress::Adapter::Identity 2.069 ;
+use IO::Compress::Zlib::Extra 2.069 ;
+use IO::Compress::Zip::Constants 2.069 ;
+
+use Compress::Raw::Zlib  2.069 () ;
+
+BEGIN
+{
+    eval{ require IO::Uncompress::Adapter::Bunzip2 ;
+           import  IO::Uncompress::Adapter::Bunzip2 } ;
+    eval{ require IO::Uncompress::Adapter::UnLzma ;
+          import  IO::Uncompress::Adapter::UnLzma } ;
+}
+
+
+require Exporter ;
+
+our ($VERSION, @ISA, @EXPORT_OK, %EXPORT_TAGS, $UnzipError, %headerLookup);
+
+$VERSION = '2.069_001';
+$UnzipError = '';
+
+@ISA    = qw(Exporter IO::Uncompress::RawInflate);
+@EXPORT_OK = qw( $UnzipError unzip );
+%EXPORT_TAGS = %IO::Uncompress::RawInflate::EXPORT_TAGS ;
+push @{ $EXPORT_TAGS{all} }, @EXPORT_OK ;
+Exporter::export_ok_tags('all');
+
+%headerLookup = (
+        ZIP_CENTRAL_HDR_SIG,            \&skipCentralDirectory,
+        ZIP_END_CENTRAL_HDR_SIG,        \&skipEndCentralDirectory,
+        ZIP64_END_CENTRAL_REC_HDR_SIG,  \&skipCentralDirectory64Rec,
+        ZIP64_END_CENTRAL_LOC_HDR_SIG,  \&skipCentralDirectory64Loc,
+        ZIP64_ARCHIVE_EXTRA_SIG,        \&skipArchiveExtra,
+        ZIP64_DIGITAL_SIGNATURE_SIG,    \&skipDigitalSignature,
+        );
+
+sub new
+{
+    my $class = shift ;
+    my $obj = IO::Compress::Base::Common::createSelfTiedObject($class, \$UnzipError);
+    $obj->_create(undef, 0, @_);
+}
+
+sub unzip
+{
+    my $obj = IO::Compress::Base::Common::createSelfTiedObject(undef, \$UnzipError);
+    return $obj->_inf(@_) ;
+}
+
+sub getExtraParams
+{
+   
+    return (
+#            # Zip header fields
+            'name'    => [IO::Compress::Base::Common::Parse_any,       undef],
+
+            'stream'  => [IO::Compress::Base::Common::Parse_boolean,   0],
+            
+            # TODO - This means reading the central directory to get
+            # 1. the local header offsets
+            # 2. The compressed data length
+        );    
+}
+
+sub ckParams
+{
+    my $self = shift ;
+    my $got = shift ;
+
+    # unzip always needs crc32
+    $got->setValue('crc32' => 1);
+
+    *$self->{UnzipData}{Name} = $got->getValue('name');
+
+    return 1;
+}
+
+sub mkUncomp
+{
+    my $self = shift ;
+    my $got = shift ;
+
+     my $magic = $self->ckMagic()
+        or return 0;
+
+    *$self->{Info} = $self->readHeader($magic)
+        or return undef ;
+
+    return 1;
+
+}
+
+sub ckMagic
+{
+    my $self = shift;
+
+    my $magic ;
+    $self->smartReadExact(\$magic, 4);
+
+    *$self->{HeaderPending} = $magic ;
+
+    return $self->HeaderError("Minimum header size is " . 
+                              4 . " bytes") 
+        if length $magic != 4 ;                                    
+
+    return $self->HeaderError("Bad Magic")
+        if ! _isZipMagic($magic) ;
+
+    *$self->{Type} = 'zip';
+
+    return $magic ;
+}
+
+
+sub fastForward
+{
+    my $self = shift;
+    my $offset = shift;
+
+    # TODO - if Stream isn't enabled & reading from file, use seek
+
+    my $buffer = '';
+    my $c = 1024 * 16;
+
+    while ($offset > 0)
+    {
+        $c = length $offset
+            if length $offset < $c ;
+
+        $offset -= $c;
+
+        $self->smartReadExact(\$buffer, $c)
+            or return 0;
+    }
+
+    return 1;
+}
+
+
+sub readHeader
+{
+    my $self = shift;
+    my $magic = shift ;
+
+    my $name =  *$self->{UnzipData}{Name} ;
+    my $hdr = $self->_readZipHeader($magic) ;
+
+    while (defined $hdr)
+    {
+        if (! defined $name || $hdr->{Name} eq $name)
+        {
+            return $hdr ;
+        }
+
+        # skip the data
+        # TODO - when Stream is off, use seek
+        my $buffer;
+        if (*$self->{ZipData}{Streaming}) {
+
+            while (1) {
+
+                my $b;
+                my $status = $self->smartRead(\$b, 1024 * 16);
+                return undef
+                    if $status <= 0 ;
+
+                my $temp_buf;
+                my $out;
+                $status = *$self->{Uncomp}->uncompr(\$b, \$temp_buf, 0, $out);
+
+                return $self->saveErrorString(undef, *$self->{Uncomp}{Error}, 
+                                                     *$self->{Uncomp}{ErrorNo})
+                    if $self->saveStatus($status) == STATUS_ERROR;                
+
+                if ($status == STATUS_ENDSTREAM) {
+                    *$self->{Uncomp}->reset();
+                    $self->pushBack($b)  ;
+                    last;
+                }
+            }
+
+            # skip the trailer
+            $self->smartReadExact(\$buffer, $hdr->{TrailerLength})
+                or return $self->saveErrorString(undef, "Truncated file");
+        }
+        else {
+            my $c = $hdr->{CompressedLength}->get64bit();
+            $self->fastForward($c)
+                or return $self->saveErrorString(undef, "Truncated file");
+            $buffer = '';
+        }
+
+        $self->chkTrailer($buffer) == STATUS_OK
+            or return $self->saveErrorString(undef, "Truncated file");
+
+        $hdr = $self->_readFullZipHeader();
+
+        return $self->saveErrorString(undef, "Cannot find '$name'")
+            if $self->smartEof();
+    }
+
+    return undef;
+}
+
+sub chkTrailer
+{
+    my $self = shift;
+    my $trailer = shift;
+
+    my ($sig, $CRC32, $cSize, $uSize) ;
+    my ($cSizeHi, $uSizeHi) = (0, 0);
+    if (*$self->{ZipData}{Streaming}) {
+        $sig   = unpack ("V", substr($trailer, 0, 4));
+        $CRC32 = unpack ("V", substr($trailer, 4, 4));
+
+        if (*$self->{ZipData}{Zip64} ) {
+            $cSize = U64::newUnpack_V64 substr($trailer,  8, 8);
+            $uSize = U64::newUnpack_V64 substr($trailer, 16, 8);
+        }
+        else {
+            $cSize = U64::newUnpack_V32 substr($trailer,  8, 4);
+            $uSize = U64::newUnpack_V32 substr($trailer, 12, 4);
+        }
+
+        return $self->TrailerError("Data Descriptor signature, got $sig")
+            if $sig != ZIP_DATA_HDR_SIG;
+    }
+    else {
+        ($CRC32, $cSize, $uSize) = 
+            (*$self->{ZipData}{Crc32},
+             *$self->{ZipData}{CompressedLen},
+             *$self->{ZipData}{UnCompressedLen});
+    }
+
+    *$self->{Info}{CRC32} = *$self->{ZipData}{CRC32} ;
+    *$self->{Info}{CompressedLength} = $cSize->get64bit();
+    *$self->{Info}{UncompressedLength} = $uSize->get64bit();
+
+    if (*$self->{Strict}) {
+        return $self->TrailerError("CRC mismatch")
+            if $CRC32  != *$self->{ZipData}{CRC32} ;
+
+        return $self->TrailerError("CSIZE mismatch.")
+            if ! $cSize->equal(*$self->{CompSize});
+
+        return $self->TrailerError("USIZE mismatch.")
+            if ! $uSize->equal(*$self->{UnCompSize});
+    }
+
+    my $reachedEnd = STATUS_ERROR ;
+    # check for central directory or end of central directory
+    while (1)
+    {
+        my $magic ;
+        my $got = $self->smartRead(\$magic, 4);
+
+        return $self->saveErrorString(STATUS_ERROR, "Truncated file")
+            if $got != 4 && *$self->{Strict};
+
+        if ($got == 0) {
+            return STATUS_EOF ;
+        }
+        elsif ($got < 0) {
+            return STATUS_ERROR ;
+        }
+        elsif ($got < 4) {
+            $self->pushBack($magic)  ;
+            return STATUS_OK ;
+        }
+
+        my $sig = unpack("V", $magic) ;
+
+        my $hdr;
+        if ($hdr = $headerLookup{$sig})
+        {
+            if (&$hdr($self, $magic) != STATUS_OK ) {
+                if (*$self->{Strict}) {
+                    return STATUS_ERROR ;
+                }
+                else {
+                    $self->clearError();
+                    return STATUS_OK ;
+                }
+            }
+
+            if ($sig == ZIP_END_CENTRAL_HDR_SIG)
+            {
+                return STATUS_OK ;
+                last;
+            }
+        }
+        elsif ($sig == ZIP_LOCAL_HDR_SIG)
+        {
+            $self->pushBack($magic)  ;
+            return STATUS_OK ;
+        }
+        else
+        {
+            # put the data back
+            $self->pushBack($magic)  ;
+            last;
+        }
+    }
+
+    return $reachedEnd ;
+}
+
+sub skipCentralDirectory
+{
+    my $self = shift;
+    my $magic = shift ;
+
+    my $buffer;
+    $self->smartReadExact(\$buffer, 46 - 4)
+        or return $self->TrailerError("Minimum header size is " . 
+                                     46 . " bytes") ;
+
+    my $keep = $magic . $buffer ;
+    *$self->{HeaderPending} = $keep ;
+
+   #my $versionMadeBy      = unpack ("v", substr($buffer, 4-4,  2));
+   #my $extractVersion     = unpack ("v", substr($buffer, 6-4,  2));
+   #my $gpFlag             = unpack ("v", substr($buffer, 8-4,  2));
+   #my $compressedMethod   = unpack ("v", substr($buffer, 10-4, 2));
+   #my $lastModTime        = unpack ("V", substr($buffer, 12-4, 4));
+   #my $crc32              = unpack ("V", substr($buffer, 16-4, 4));
+    my $compressedLength   = unpack ("V", substr($buffer, 20-4, 4));
+    my $uncompressedLength = unpack ("V", substr($buffer, 24-4, 4));
+    my $filename_length    = unpack ("v", substr($buffer, 28-4, 2)); 
+    my $extra_length       = unpack ("v", substr($buffer, 30-4, 2));
+    my $comment_length     = unpack ("v", substr($buffer, 32-4, 2));
+   #my $disk_start         = unpack ("v", substr($buffer, 34-4, 2));
+   #my $int_file_attrib    = unpack ("v", substr($buffer, 36-4, 2));
+   #my $ext_file_attrib    = unpack ("V", substr($buffer, 38-4, 2));
+   #my $lcl_hdr_offset     = unpack ("V", substr($buffer, 42-4, 2));
+
+    
+    my $filename;
+    my $extraField;
+    my $comment ;
+    if ($filename_length)
+    {
+        $self->smartReadExact(\$filename, $filename_length)
+            or return $self->TruncatedTrailer("filename");
+        $keep .= $filename ;
+    }
+
+    if ($extra_length)
+    {
+        $self->smartReadExact(\$extraField, $extra_length)
+            or return $self->TruncatedTrailer("extra");
+        $keep .= $extraField ;
+    }
+
+    if ($comment_length)
+    {
+        $self->smartReadExact(\$comment, $comment_length)
+            or return $self->TruncatedTrailer("comment");
+        $keep .= $comment ;
+    }
+
+    return STATUS_OK ;
+}
+
+sub skipArchiveExtra
+{
+    my $self = shift;
+    my $magic = shift ;
+
+    my $buffer;
+    $self->smartReadExact(\$buffer, 4)
+        or return $self->TrailerError("Minimum header size is " . 
+                                     4 . " bytes") ;
+
+    my $keep = $magic . $buffer ;
+
+    my $size = unpack ("V", $buffer);
+
+    $self->smartReadExact(\$buffer, $size)
+        or return $self->TrailerError("Minimum header size is " . 
+                                     $size . " bytes") ;
+
+    $keep .= $buffer ;
+    *$self->{HeaderPending} = $keep ;
+
+    return STATUS_OK ;
+}
+
+
+sub skipCentralDirectory64Rec
+{
+    my $self = shift;
+    my $magic = shift ;
+
+    my $buffer;
+    $self->smartReadExact(\$buffer, 8)
+        or return $self->TrailerError("Minimum header size is " . 
+                                     8 . " bytes") ;
+
+    my $keep = $magic . $buffer ;
+
+    my ($sizeLo, $sizeHi)  = unpack ("V V", $buffer);
+    my $size = $sizeHi * U64::MAX32 + $sizeLo;
+
+    $self->fastForward($size)
+        or return $self->TrailerError("Minimum header size is " . 
+                                     $size . " bytes") ;
+
+   #$keep .= $buffer ;
+   #*$self->{HeaderPending} = $keep ;
+
+   #my $versionMadeBy      = unpack ("v",   substr($buffer,  0, 2));
+   #my $extractVersion     = unpack ("v",   substr($buffer,  2, 2));
+   #my $diskNumber         = unpack ("V",   substr($buffer,  4, 4));
+   #my $cntrlDirDiskNo     = unpack ("V",   substr($buffer,  8, 4));
+   #my $entriesInThisCD    = unpack ("V V", substr($buffer, 12, 8));
+   #my $entriesInCD        = unpack ("V V", substr($buffer, 20, 8));
+   #my $sizeOfCD           = unpack ("V V", substr($buffer, 28, 8));
+   #my $offsetToCD         = unpack ("V V", substr($buffer, 36, 8));
+
+    return STATUS_OK ;
+}
+
+sub skipCentralDirectory64Loc
+{
+    my $self = shift;
+    my $magic = shift ;
+
+    my $buffer;
+    $self->smartReadExact(\$buffer, 20 - 4)
+        or return $self->TrailerError("Minimum header size is " . 
+                                     20 . " bytes") ;
+
+    my $keep = $magic . $buffer ;
+    *$self->{HeaderPending} = $keep ;
+
+   #my $startCdDisk        = unpack ("V",   substr($buffer,  4-4, 4));
+   #my $offsetToCD         = unpack ("V V", substr($buffer,  8-4, 8));
+   #my $diskCount          = unpack ("V",   substr($buffer, 16-4, 4));
+
+    return STATUS_OK ;
+}
+
+sub skipEndCentralDirectory
+{
+    my $self = shift;
+    my $magic = shift ;
+
+    my $buffer;
+    $self->smartReadExact(\$buffer, 22 - 4)
+        or return $self->TrailerError("Minimum header size is " . 
+                                     22 . " bytes") ;
+
+    my $keep = $magic . $buffer ;
+    *$self->{HeaderPending} = $keep ;
+
+   #my $diskNumber         = unpack ("v", substr($buffer, 4-4,  2));
+   #my $cntrlDirDiskNo     = unpack ("v", substr($buffer, 6-4,  2));
+   #my $entriesInThisCD    = unpack ("v", substr($buffer, 8-4,  2));
+   #my $entriesInCD        = unpack ("v", substr($buffer, 10-4, 2));
+   #my $sizeOfCD           = unpack ("V", substr($buffer, 12-4, 4));
+   #my $offsetToCD         = unpack ("V", substr($buffer, 16-4, 4));
+    my $comment_length     = unpack ("v", substr($buffer, 20-4, 2));
+
+    
+    my $comment ;
+    if ($comment_length)
+    {
+        $self->smartReadExact(\$comment, $comment_length)
+            or return $self->TruncatedTrailer("comment");
+        $keep .= $comment ;
+    }
+
+    return STATUS_OK ;
+}
+
+
+sub _isZipMagic
+{
+    my $buffer = shift ;
+    return 0 if length $buffer < 4 ;
+    my $sig = unpack("V", $buffer) ;
+    return $sig == ZIP_LOCAL_HDR_SIG ;
+}
+
+
+sub _readFullZipHeader($)
+{
+    my ($self) = @_ ;
+    my $magic = '' ;
+
+    $self->smartReadExact(\$magic, 4);
+
+    *$self->{HeaderPending} = $magic ;
+
+    return $self->HeaderError("Minimum header size is " . 
+                              30 . " bytes") 
+        if length $magic != 4 ;                                    
+
+
+    return $self->HeaderError("Bad Magic")
+        if ! _isZipMagic($magic) ;
+
+    my $status = $self->_readZipHeader($magic);
+    delete *$self->{Transparent} if ! defined $status ;
+    return $status ;
+}
+
+sub _readZipHeader($)
+{
+    my ($self, $magic) = @_ ;
+    my ($HeaderCRC) ;
+    my ($buffer) = '' ;
+
+    $self->smartReadExact(\$buffer, 30 - 4)
+        or return $self->HeaderError("Minimum header size is " . 
+                                     30 . " bytes") ;
+
+    my $keep = $magic . $buffer ;
+    *$self->{HeaderPending} = $keep ;
+
+    my $extractVersion     = unpack ("v", substr($buffer, 4-4,  2));
+    my $gpFlag             = unpack ("v", substr($buffer, 6-4,  2));
+    my $compressedMethod   = unpack ("v", substr($buffer, 8-4,  2));
+    my $lastModTime        = unpack ("V", substr($buffer, 10-4, 4));
+    my $crc32              = unpack ("V", substr($buffer, 14-4, 4));
+    my $compressedLength   = U64::newUnpack_V32 substr($buffer, 18-4, 4);
+    my $uncompressedLength = U64::newUnpack_V32 substr($buffer, 22-4, 4);
+    my $filename_length    = unpack ("v", substr($buffer, 26-4, 2)); 
+    my $extra_length       = unpack ("v", substr($buffer, 28-4, 2));
+
+    my $filename;
+    my $extraField;
+    my @EXTRA = ();
+    my $streamingMode = ($gpFlag & ZIP_GP_FLAG_STREAMING_MASK) ? 1 : 0 ;
+
+    return $self->HeaderError("Encrypted content not supported")
+        if $gpFlag & (ZIP_GP_FLAG_ENCRYPTED_MASK|ZIP_GP_FLAG_STRONG_ENCRYPTED_MASK);
+
+    return $self->HeaderError("Patch content not supported")
+        if $gpFlag & ZIP_GP_FLAG_PATCHED_MASK;
+
+    *$self->{ZipData}{Streaming} = $streamingMode;
+
+
+    if ($filename_length)
+    {
+        $self->smartReadExact(\$filename, $filename_length)
+            or return $self->TruncatedHeader("Filename");
+        $keep .= $filename ;
+    }
+
+    my $zip64 = 0 ;
+
+    if ($extra_length)
+    {
+        $self->smartReadExact(\$extraField, $extra_length)
+            or return $self->TruncatedHeader("Extra Field");
+
+        my $bad = IO::Compress::Zlib::Extra::parseRawExtra($extraField,
+                                                \@EXTRA, 1, 0);
+        return $self->HeaderError($bad)
+            if defined $bad;
+
+        $keep .= $extraField ;
+
+        my %Extra ;
+        for (@EXTRA)
+        {
+            $Extra{$_->[0]} = \$_->[1];
+        }
+        
+        if (defined $Extra{ZIP_EXTRA_ID_ZIP64()})
+        {
+            $zip64 = 1 ;
+
+            my $buff = ${ $Extra{ZIP_EXTRA_ID_ZIP64()} };
+
+            # This code assumes that all the fields in the Zip64
+            # extra field aren't necessarily present. The spec says that
+            # they only exist if the equivalent local headers are -1.
+
+            if (! $streamingMode) {
+                my $offset = 0 ;
+
+                if (U64::full32 $uncompressedLength->get32bit() ) {
+                    $uncompressedLength 
+                            = U64::newUnpack_V64 substr($buff, 0, 8);
+
+                    $offset += 8 ;
+                }
+
+                if (U64::full32 $compressedLength->get32bit() ) {
+
+                    $compressedLength 
+                        = U64::newUnpack_V64 substr($buff, $offset, 8);
+
+                    $offset += 8 ;
+                }
+           }
+        }
+    }
+
+    *$self->{ZipData}{Zip64} = $zip64;
+
+    if (! $streamingMode) {
+        *$self->{ZipData}{Streaming} = 0;
+        *$self->{ZipData}{Crc32} = $crc32;
+        *$self->{ZipData}{CompressedLen} = $compressedLength;
+        *$self->{ZipData}{UnCompressedLen} = $uncompressedLength;
+        *$self->{CompressedInputLengthRemaining} =
+            *$self->{CompressedInputLength} = $compressedLength->get64bit();
+    }
+
+    *$self->{ZipData}{CRC32} = Compress::Raw::Zlib::crc32(undef);
+    *$self->{ZipData}{Method} = $compressedMethod;
+    if ($compressedMethod == ZIP_CM_DEFLATE)
+    {
+        *$self->{Type} = 'zip-deflate';
+        my $obj = IO::Uncompress::Adapter::Inflate::mkUncompObject(1,0,0);
+
+        *$self->{Uncomp} = $obj;
+    }
+    elsif ($compressedMethod == ZIP_CM_BZIP2)
+    {
+        return $self->HeaderError("Unsupported Compression format $compressedMethod")
+            if ! defined $IO::Uncompress::Adapter::Bunzip2::VERSION ;
+        
+        *$self->{Type} = 'zip-bzip2';
+        
+        my $obj = IO::Uncompress::Adapter::Bunzip2::mkUncompObject();
+
+        *$self->{Uncomp} = $obj;
+    }
+    elsif ($compressedMethod == ZIP_CM_LZMA)
+    {
+        return $self->HeaderError("Unsupported Compression format $compressedMethod")
+            if ! defined $IO::Uncompress::Adapter::UnLzma::VERSION ;
+        
+        *$self->{Type} = 'zip-lzma';
+        my $LzmaHeader;
+        $self->smartReadExact(\$LzmaHeader, 4)
+                or return $self->saveErrorString(undef, "Truncated file");
+        my ($verHi, $verLo)   = unpack ("CC", substr($LzmaHeader, 0, 2));
+        my $LzmaPropertiesSize   = unpack ("v", substr($LzmaHeader, 2, 2));
+
+
+        my $LzmaPropertyData;
+        $self->smartReadExact(\$LzmaPropertyData, $LzmaPropertiesSize)
+                or return $self->saveErrorString(undef, "Truncated file");
+
+        if (! $streamingMode) {
+            *$self->{ZipData}{CompressedLen}->subtract(4 + $LzmaPropertiesSize) ;
+            *$self->{CompressedInputLengthRemaining} =
+                *$self->{CompressedInputLength} = *$self->{ZipData}{CompressedLen}->get64bit();
+        }
+
+        my $obj =
+            IO::Uncompress::Adapter::UnLzma::mkUncompZipObject($LzmaPropertyData);
+
+        *$self->{Uncomp} = $obj;
+    }
+    elsif ($compressedMethod == ZIP_CM_STORE)
+    {
+        *$self->{Type} = 'zip-stored';
+        
+        my $obj =
+        IO::Uncompress::Adapter::Identity::mkUncompObject($streamingMode,
+                                                          $zip64);
+
+        *$self->{Uncomp} = $obj;
+    }
+    else
+    {
+        return $self->HeaderError("Unsupported Compression format $compressedMethod");
+    }
+
+    return {
+        'Type'               => 'zip',
+        'FingerprintLength'  => 4,
+        #'HeaderLength'       => $compressedMethod == 8 ? length $keep : 0,
+        'HeaderLength'       => length $keep,
+        'Zip64'              => $zip64,
+        'TrailerLength'      => ! $streamingMode ? 0 : $zip64 ? 24 : 16,
+        'Header'             => $keep,
+        'CompressedLength'   => $compressedLength ,
+        'UncompressedLength' => $uncompressedLength ,
+        'CRC32'              => $crc32 ,
+        'Name'               => $filename,
+        'Time'               => _dosToUnixTime($lastModTime),
+        'Stream'             => $streamingMode,
+
+        'MethodID'           => $compressedMethod,
+        'MethodName'         => $compressedMethod == ZIP_CM_DEFLATE 
+                                 ? "Deflated" 
+                                 : $compressedMethod == ZIP_CM_BZIP2
+                                     ? "Bzip2"
+                                     : $compressedMethod == ZIP_CM_LZMA
+                                         ? "Lzma"
+                                         : $compressedMethod == ZIP_CM_STORE
+                                             ? "Stored"
+                                             : "Unknown" ,
+
+#        'TextFlag'      => $flag & GZIP_FLG_FTEXT ? 1 : 0,
+#        'HeaderCRCFlag' => $flag & GZIP_FLG_FHCRC ? 1 : 0,
+#        'NameFlag'      => $flag & GZIP_FLG_FNAME ? 1 : 0,
+#        'CommentFlag'   => $flag & GZIP_FLG_FCOMMENT ? 1 : 0,
+#        'ExtraFlag'     => $flag & GZIP_FLG_FEXTRA ? 1 : 0,
+#        'Comment'       => $comment,
+#        'OsID'          => $os,
+#        'OsName'        => defined $GZIP_OS_Names{$os} 
+#                                 ? $GZIP_OS_Names{$os} : "Unknown",
+#        'HeaderCRC'     => $HeaderCRC,
+#        'Flags'         => $flag,
+#        'ExtraFlags'    => $xfl,
+        'ExtraFieldRaw' => $extraField,
+        'ExtraField'    => [ @EXTRA ],
+
+
+      }
+}
+
+sub filterUncompressed
+{
+    my $self = shift ;
+
+    if (*$self->{ZipData}{Method} == ZIP_CM_DEFLATE) {
+        *$self->{ZipData}{CRC32} = *$self->{Uncomp}->crc32() ;
+    }
+    else {
+        *$self->{ZipData}{CRC32} = Compress::Raw::Zlib::crc32(${$_[0]}, *$self->{ZipData}{CRC32}, $_[1]);
+    }
+}    
+
+
+# from Archive::Zip & info-zip
+sub _dosToUnixTime
+{
+	my $dt = shift;
+
+	my $year = ( ( $dt >> 25 ) & 0x7f ) + 80;
+	my $mon  = ( ( $dt >> 21 ) & 0x0f ) - 1;
+	my $mday = ( ( $dt >> 16 ) & 0x1f );
+
+	my $hour = ( ( $dt >> 11 ) & 0x1f );
+	my $min  = ( ( $dt >> 5 ) & 0x3f );
+	my $sec  = ( ( $dt << 1 ) & 0x3e );
+
+
+    use POSIX 'mktime';
+
+    my $time_t = mktime( $sec, $min, $hour, $mday, $mon, $year, 0, 0, -1 );
+    return 0 if ! defined $time_t;
+	return $time_t;
+}
+
+#sub scanCentralDirectory
+#{
+#    # Use cases
+#    # 1 32-bit CD
+#    # 2 64-bit CD
+#
+#    my $self = shift ;
+#
+#    my @CD = ();
+#    my $offset = $self->findCentralDirectoryOffset();
+#
+#    return 0
+#        if ! defined $offset;
+#
+#    $self->smarkSeek($offset, 0, SEEK_SET) ;
+#
+#    # Now walk the Central Directory Records
+#    my $buffer ;
+#    while ($self->smartReadExact(\$buffer, 46) && 
+#           unpack("V", $buffer) == ZIP_CENTRAL_HDR_SIG) {
+#
+#        my $compressedLength   = unpack ("V", substr($buffer, 20, 4));
+#        my $filename_length    = unpack ("v", substr($buffer, 28, 2));
+#        my $extra_length       = unpack ("v", substr($buffer, 30, 2));
+#        my $comment_length     = unpack ("v", substr($buffer, 32, 2));
+#
+#        $self->smarkSeek($filename_length + $extra_length + $comment_length, 0, SEEK_CUR) 
+#            if $extra_length || $comment_length || $filename_length;
+#        push @CD, $compressedLength ;
+#    }
+#
+#}
+#
+#sub findCentralDirectoryOffset
+#{
+#    my $self = shift ;
+#
+#    # Most common use-case is where there is no comment, so
+#    # know exactly where the end of central directory record
+#    # should be.
+#
+#    $self->smarkSeek(-22, 0, SEEK_END) ;
+#
+#    my $buffer;
+#    $self->smartReadExact(\$buffer, 22) ;
+#
+#    my $zip64 = 0;                             
+#    my $centralDirOffset ;
+#    if ( unpack("V", $buffer) == ZIP_END_CENTRAL_HDR_SIG ) {
+#        $centralDirOffset = unpack ("V", substr($buffer, 16, 2));
+#    }
+#    else {
+#        die "xxxx";
+#    }
+#
+#    return $centralDirOffset ;
+#}
+#
+#sub is84BitCD
+#{
+#    # TODO
+#    my $self = shift ;
+#}
+
+
+sub skip
+{
+    my $self = shift;
+    my $size = shift;
+
+    use Fcntl qw(SEEK_CUR);
+    if (ref $size eq 'U64') {
+        $self->smartSeek($size->get64bit(), SEEK_CUR);
+    }
+    else {
+        $self->smartSeek($size, SEEK_CUR);
+    }
+    
+}
+
+
+sub scanCentralDirectory
+{
+    my $self = shift;
+
+    my $here = $self->tell();
+
+    # Use cases
+    # 1 32-bit CD
+    # 2 64-bit CD
+
+    my @CD = ();
+    my $offset = $self->findCentralDirectoryOffset();
+
+    return ()
+        if ! defined $offset;
+
+    $self->smarkSeek($offset, 0, SEEK_SET) ;
+
+    # Now walk the Central Directory Records
+    my $buffer ;
+    while ($self->smartReadExact(\$buffer, 46) && 
+           unpack("V", $buffer) == ZIP_CENTRAL_HDR_SIG) {
+
+        my $compressedLength   = unpack("V", substr($buffer, 20, 4));
+        my $uncompressedLength = unpack("V", substr($buffer, 24, 4));
+        my $filename_length    = unpack("v", substr($buffer, 28, 2));
+        my $extra_length       = unpack("v", substr($buffer, 30, 2));
+        my $comment_length     = unpack("v", substr($buffer, 32, 2));
+
+        $self->skip($filename_length ) ;
+
+        my $v64 = new U64 $compressedLength ;
+
+        if (U64::full32 $compressedLength ) {
+            $self->smartReadExact(\$buffer, $extra_length) ;
+            die "xxx $offset $comment_length $filename_length $extra_length" . length($buffer) 
+                if length($buffer) != $extra_length;
+            my $got = $self->get64Extra($buffer, U64::full32 $uncompressedLength);
+
+            # If not Zip64 extra field, assume size is 0xFFFFFFFF
+            $v64 = $got if defined $got;
+        }
+        else {
+            $self->skip($extra_length) ;
+        }
+
+        $self->skip($comment_length ) ;
+            
+        push @CD, $v64 ;
+    }
+
+    $self->smartSeek($here, 0, SEEK_SET) ;
+
+    return @CD;
+}
+
+sub get64Extra
+{
+    my $self = shift ;
+
+    my $buffer = shift;
+    my $is_uncomp = shift ;
+
+    my $extra = IO::Compress::Zlib::Extra::findID(0x0001, $buffer);
+                                            
+    if (! defined $extra)
+    {
+        return undef;
+    }
+    else
+    {
+        my $u64 = U64::newUnpack_V64(substr($extra,  $is_uncomp ? 8 : 0)) ;
+        return $u64;
+    }    
+}
+
+sub offsetFromZip64
+{
+    my $self = shift ;
+    my $here = shift;
+
+    $self->smartSeek($here - 20, 0, SEEK_SET) 
+        or die "xx $!" ;
+
+    my $buffer;
+    my $got = 0;
+    $self->smartReadExact(\$buffer, 20)  
+        or die "xxx $here $got $!" ;
+
+    if ( unpack("V", $buffer) == ZIP64_END_CENTRAL_LOC_HDR_SIG ) {
+        my $cd64 = U64::Value_VV64 substr($buffer,  8, 8);
+       
+        $self->smartSeek($cd64, 0, SEEK_SET) ;
+
+        $self->smartReadExact(\$buffer, 4) 
+            or die "xxx" ;
+
+        if ( unpack("V", $buffer) == ZIP64_END_CENTRAL_REC_HDR_SIG ) {
+
+            $self->smartReadExact(\$buffer, 8)
+                or die "xxx" ;
+            my $size  = U64::Value_VV64($buffer);
+            $self->smartReadExact(\$buffer, $size)
+                or die "xxx" ;
+
+            my $cd64 =  U64::Value_VV64 substr($buffer,  36, 8);
+
+            return $cd64 ;
+        }
+        
+        die "zzz";
+    }
+
+    die "zzz";
+}
+
+use constant Pack_ZIP_END_CENTRAL_HDR_SIG => pack("V", ZIP_END_CENTRAL_HDR_SIG);
+
+sub findCentralDirectoryOffset
+{
+    my $self = shift ;
+
+    # Most common use-case is where there is no comment, so
+    # know exactly where the end of central directory record
+    # should be.
+
+    $self->smartSeek(-22, 0, SEEK_END) ;
+    my $here = $self->tell();
+
+    my $buffer;
+    $self->smartReadExact(\$buffer, 22) 
+        or die "xxx" ;
+
+    my $zip64 = 0;                             
+    my $centralDirOffset ;
+    if ( unpack("V", $buffer) == ZIP_END_CENTRAL_HDR_SIG ) {
+        $centralDirOffset = unpack("V", substr($buffer, 16,  4));
+    }
+    else {
+        $self->smartSeek(0, 0, SEEK_END) ;
+
+        my $fileLen = $self->tell();
+        my $want = 0 ;
+
+        while(1) {
+            $want += 1024;
+            my $seekTo = $fileLen - $want;
+            if ($seekTo < 0 ) {
+                $seekTo = 0;
+                $want = $fileLen ;
+            }
+            $self->smartSeek( $seekTo, 0, SEEK_SET) 
+                or die "xxx $!" ;
+            my $got;
+            $self->smartReadExact($buffer, $want)
+                or die "xxx " ;
+            my $pos = rindex( $buffer, Pack_ZIP_END_CENTRAL_HDR_SIG);
+
+            if ($pos >= 0) {
+                #$here = $self->tell();
+                $here = $seekTo + $pos ;
+                $centralDirOffset = unpack("V", substr($buffer, $pos + 16,  4));
+                last ;
+            }
+
+            return undef
+                if $want == $fileLen;
+        }
+    }
+
+    $centralDirOffset = $self->offsetFromZip64($here)
+        if U64::full32 $centralDirOffset ;
+
+    return $centralDirOffset ;
+}
+
+1;
+
+__END__
+
+
+=head1 NAME
+
+IO::Uncompress::Unzip - Read zip files/buffers
+
+=head1 SYNOPSIS
+
+    use IO::Uncompress::Unzip qw(unzip $UnzipError) ;
+
+    my $status = unzip $input => $output [,OPTS]
+        or die "unzip failed: $UnzipError\n";
+
+    my $z = new IO::Uncompress::Unzip $input [OPTS] 
+        or die "unzip failed: $UnzipError\n";
+
+    $status = $z->read($buffer)
+    $status = $z->read($buffer, $length)
+    $status = $z->read($buffer, $length, $offset)
+    $line = $z->getline()
+    $char = $z->getc()
+    $char = $z->ungetc()
+    $char = $z->opened()
+
+    $status = $z->inflateSync()
+
+    $data = $z->trailingData()
+    $status = $z->nextStream()
+    $data = $z->getHeaderInfo()
+    $z->tell()
+    $z->seek($position, $whence)
+    $z->binmode()
+    $z->fileno()
+    $z->eof()
+    $z->close()
+
+    $UnzipError ;
+
+    # IO::File mode
+
+    <$z>
+    read($z, $buffer);
+    read($z, $buffer, $length);
+    read($z, $buffer, $length, $offset);
+    tell($z)
+    seek($z, $position, $whence)
+    binmode($z)
+    fileno($z)
+    eof($z)
+    close($z)
+
+=head1 DESCRIPTION
+
+This module provides a Perl interface that allows the reading of
+zlib files/buffers.
+
+For writing zip files/buffers, see the companion module IO::Compress::Zip.
+
+=head1 Functional Interface
+
+A top-level function, C<unzip>, is provided to carry out
+"one-shot" uncompression between buffers and/or files. For finer
+control over the uncompression process, see the L</"OO Interface">
+section.
+
+    use IO::Uncompress::Unzip qw(unzip $UnzipError) ;
+
+    unzip $input_filename_or_reference => $output_filename_or_reference [,OPTS] 
+        or die "unzip failed: $UnzipError\n";
+
+The functional interface needs Perl5.005 or better.
+
+=head2 unzip $input_filename_or_reference => $output_filename_or_reference [, OPTS]
+
+C<unzip> expects at least two parameters,
+C<$input_filename_or_reference> and C<$output_filename_or_reference>.
+
+=head3 The C<$input_filename_or_reference> parameter
+
+The parameter, C<$input_filename_or_reference>, is used to define the
+source of the compressed data. 
+
+It can take one of the following forms:
+
+=over 5
+
+=item A filename
+
+If the <$input_filename_or_reference> parameter is a simple scalar, it is
+assumed to be a filename. This file will be opened for reading and the
+input data will be read from it.
+
+=item A filehandle
+
+If the C<$input_filename_or_reference> parameter is a filehandle, the input
+data will be read from it.  The string '-' can be used as an alias for
+standard input.
+
+=item A scalar reference 
+
+If C<$input_filename_or_reference> is a scalar reference, the input data
+will be read from C<$$input_filename_or_reference>.
+
+=item An array reference 
+
+If C<$input_filename_or_reference> is an array reference, each element in
+the array must be a filename.
+
+The input data will be read from each file in turn. 
+
+The complete array will be walked to ensure that it only
+contains valid filenames before any data is uncompressed.
+
+=item An Input FileGlob string
+
+If C<$input_filename_or_reference> is a string that is delimited by the
+characters "<" and ">" C<unzip> will assume that it is an 
+I<input fileglob string>. The input is the list of files that match the 
+fileglob.
+
+See L<File::GlobMapper|File::GlobMapper> for more details.
+
+=back
+
+If the C<$input_filename_or_reference> parameter is any other type,
+C<undef> will be returned.
+
+=head3 The C<$output_filename_or_reference> parameter
+
+The parameter C<$output_filename_or_reference> is used to control the
+destination of the uncompressed data. This parameter can take one of
+these forms.
+
+=over 5
+
+=item A filename
+
+If the C<$output_filename_or_reference> parameter is a simple scalar, it is
+assumed to be a filename.  This file will be opened for writing and the 
+uncompressed data will be written to it.
+
+=item A filehandle
+
+If the C<$output_filename_or_reference> parameter is a filehandle, the
+uncompressed data will be written to it.  The string '-' can be used as
+an alias for standard output.
+
+=item A scalar reference 
+
+If C<$output_filename_or_reference> is a scalar reference, the
+uncompressed data will be stored in C<$$output_filename_or_reference>.
+
+=item An Array Reference
+
+If C<$output_filename_or_reference> is an array reference, 
+the uncompressed data will be pushed onto the array.
+
+=item An Output FileGlob
+
+If C<$output_filename_or_reference> is a string that is delimited by the
+characters "<" and ">" C<unzip> will assume that it is an
+I<output fileglob string>. The output is the list of files that match the
+fileglob.
+
+When C<$output_filename_or_reference> is an fileglob string,
+C<$input_filename_or_reference> must also be a fileglob string. Anything
+else is an error.
+
+See L<File::GlobMapper|File::GlobMapper> for more details.
+
+=back
+
+If the C<$output_filename_or_reference> parameter is any other type,
+C<undef> will be returned.
+
+=head2 Notes
+
+When C<$input_filename_or_reference> maps to multiple compressed
+files/buffers and C<$output_filename_or_reference> is
+a single file/buffer, after uncompression C<$output_filename_or_reference> will contain a
+concatenation of all the uncompressed data from each of the input
+files/buffers.
+
+=head2 Optional Parameters
+
+Unless specified below, the optional parameters for C<unzip>,
+C<OPTS>, are the same as those used with the OO interface defined in the
+L</"Constructor Options"> section below.
+
+=over 5
+
+=item C<< AutoClose => 0|1 >>
+
+This option applies to any input or output data streams to 
+C<unzip> that are filehandles.
+
+If C<AutoClose> is specified, and the value is true, it will result in all
+input and/or output filehandles being closed once C<unzip> has
+completed.
+
+This parameter defaults to 0.
+
+=item C<< BinModeOut => 0|1 >>
+
+When writing to a file or filehandle, set C<binmode> before writing to the
+file.
+
+Defaults to 0.
+
+=item C<< Append => 0|1 >>
+
+The behaviour of this option is dependent on the type of output data
+stream.
+
+=over 5
+
+=item * A Buffer
+
+If C<Append> is enabled, all uncompressed data will be append to the end of
+the output buffer. Otherwise the output buffer will be cleared before any
+uncompressed data is written to it.
+
+=item * A Filename
+
+If C<Append> is enabled, the file will be opened in append mode. Otherwise
+the contents of the file, if any, will be truncated before any uncompressed
+data is written to it.
+
+=item * A Filehandle
+
+If C<Append> is enabled, the filehandle will be positioned to the end of
+the file via a call to C<seek> before any uncompressed data is
+written to it.  Otherwise the file pointer will not be moved.
+
+=back
+
+When C<Append> is specified, and set to true, it will I<append> all uncompressed 
+data to the output data stream.
+
+So when the output is a filehandle it will carry out a seek to the eof
+before writing any uncompressed data. If the output is a filename, it will be opened for
+appending. If the output is a buffer, all uncompressed data will be
+appended to the existing buffer.
+
+Conversely when C<Append> is not specified, or it is present and is set to
+false, it will operate as follows.
+
+When the output is a filename, it will truncate the contents of the file
+before writing any uncompressed data. If the output is a filehandle
+its position will not be changed. If the output is a buffer, it will be
+wiped before any uncompressed data is output.
+
+Defaults to 0.
+
+=item C<< MultiStream => 0|1 >>
+
+If the input file/buffer contains multiple compressed data streams, this
+option will uncompress the whole lot as a single data stream.
+
+Defaults to 0.
+
+=item C<< TrailingData => $scalar >>
+
+Returns the data, if any, that is present immediately after the compressed
+data stream once uncompression is complete. 
+
+This option can be used when there is useful information immediately
+following the compressed data stream, and you don't know the length of the
+compressed data stream.
+
+If the input is a buffer, C<trailingData> will return everything from the
+end of the compressed data stream to the end of the buffer.
+
+If the input is a filehandle, C<trailingData> will return the data that is
+left in the filehandle input buffer once the end of the compressed data
+stream has been reached. You can then use the filehandle to read the rest
+of the input file. 
+
+Don't bother using C<trailingData> if the input is a filename.
+
+If you know the length of the compressed data stream before you start
+uncompressing, you can avoid having to use C<trailingData> by setting the
+C<InputLength> option.
+
+=back
+
+=head2 Examples
+
+Say you have a zip file, C<file1.zip>, that only contains a
+single member, you can read it and write the uncompressed data to the
+file C<file1.txt> like this.
+
+    use strict ;
+    use warnings ;
+    use IO::Uncompress::Unzip qw(unzip $UnzipError) ;
+
+    my $input = "file1.zip";
+    my $output = "file1.txt";
+    unzip $input => $output
+        or die "unzip failed: $UnzipError\n";
+
+If you have a zip file that contains multiple members and want to read a
+specific member from the file, say C<"data1">, use the C<Name> option 
+
+    use strict ;
+    use warnings ;
+    use IO::Uncompress::Unzip qw(unzip $UnzipError) ;
+
+    my $input = "file1.zip";
+    my $output = "file1.txt";
+    unzip $input => $output, Name => "data1"
+        or die "unzip failed: $UnzipError\n";
+
+Alternatively, if you want to read the  C<"data1"> member into memory, use
+a scalar reference for the C<output> parameter.
+
+    use strict ;
+    use warnings ;
+    use IO::Uncompress::Unzip qw(unzip $UnzipError) ;
+
+    my $input = "file1.zip";
+    my $output ;
+    unzip $input => \$output, Name => "data1"
+        or die "unzip failed: $UnzipError\n";
+    # $output now contains the uncompressed data
+
+To read from an existing Perl filehandle, C<$input>, and write the
+uncompressed data to a buffer, C<$buffer>.
+
+    use strict ;
+    use warnings ;
+    use IO::Uncompress::Unzip qw(unzip $UnzipError) ;
+    use IO::File ;
+
+    my $input = new IO::File "<file1.zip"
+        or die "Cannot open 'file1.zip': $!\n" ;
+    my $buffer ;
+    unzip $input => \$buffer 
+        or die "unzip failed: $UnzipError\n";
+
+=head1 OO Interface
+
+=head2 Constructor
+
+The format of the constructor for IO::Uncompress::Unzip is shown below
+
+    my $z = new IO::Uncompress::Unzip $input [OPTS]
+        or die "IO::Uncompress::Unzip failed: $UnzipError\n";
+
+Returns an C<IO::Uncompress::Unzip> object on success and undef on failure.
+The variable C<$UnzipError> will contain an error message on failure.
+
+If you are running Perl 5.005 or better the object, C<$z>, returned from
+IO::Uncompress::Unzip can be used exactly like an L<IO::File|IO::File> filehandle.
+This means that all normal input file operations can be carried out with
+C<$z>.  For example, to read a line from a compressed file/buffer you can
+use either of these forms
+
+    $line = $z->getline();
+    $line = <$z>;
+
+The mandatory parameter C<$input> is used to determine the source of the
+compressed data. This parameter can take one of three forms.
+
+=over 5
+
+=item A filename
+
+If the C<$input> parameter is a scalar, it is assumed to be a filename. This
+file will be opened for reading and the compressed data will be read from it.
+
+=item A filehandle
+
+If the C<$input> parameter is a filehandle, the compressed data will be
+read from it.
+The string '-' can be used as an alias for standard input.
+
+=item A scalar reference 
+
+If C<$input> is a scalar reference, the compressed data will be read from
+C<$$input>.
+
+=back
+
+=head2 Constructor Options
+
+The option names defined below are case insensitive and can be optionally
+prefixed by a '-'.  So all of the following are valid
+
+    -AutoClose
+    -autoclose
+    AUTOCLOSE
+    autoclose
+
+OPTS is a combination of the following options:
+
+=over 5
+
+=item C<< Name => "membername" >>
+
+Open "membername" from the zip file for reading. 
+
+=item C<< AutoClose => 0|1 >>
+
+This option is only valid when the C<$input> parameter is a filehandle. If
+specified, and the value is true, it will result in the file being closed once
+either the C<close> method is called or the IO::Uncompress::Unzip object is
+destroyed.
+
+This parameter defaults to 0.
+
+=item C<< MultiStream => 0|1 >>
+
+Treats the complete zip file/buffer as a single compressed data
+stream. When reading in multi-stream mode each member of the zip
+file/buffer will be uncompressed in turn until the end of the file/buffer
+is encountered.
+
+This parameter defaults to 0.
+
+=item C<< Prime => $string >>
+
+This option will uncompress the contents of C<$string> before processing the
+input file/buffer.
+
+This option can be useful when the compressed data is embedded in another
+file/data structure and it is not possible to work out where the compressed
+data begins without having to read the first few bytes. If this is the
+case, the uncompression can be I<primed> with these bytes using this
+option.
+
+=item C<< Transparent => 0|1 >>
+
+If this option is set and the input file/buffer is not compressed data,
+the module will allow reading of it anyway.
+
+In addition, if the input file/buffer does contain compressed data and
+there is non-compressed data immediately following it, setting this option
+will make this module treat the whole file/buffer as a single data stream.
+
+This option defaults to 1.
+
+=item C<< BlockSize => $num >>
+
+When reading the compressed input data, IO::Uncompress::Unzip will read it in
+blocks of C<$num> bytes.
+
+This option defaults to 4096.
+
+=item C<< InputLength => $size >>
+
+When present this option will limit the number of compressed bytes read
+from the input file/buffer to C<$size>. This option can be used in the
+situation where there is useful data directly after the compressed data
+stream and you know beforehand the exact length of the compressed data
+stream. 
+
+This option is mostly used when reading from a filehandle, in which case
+the file pointer will be left pointing to the first byte directly after the
+compressed data stream.
+
+This option defaults to off.
+
+=item C<< Append => 0|1 >>
+
+This option controls what the C<read> method does with uncompressed data.
+
+If set to 1, all uncompressed data will be appended to the output parameter
+of the C<read> method.
+
+If set to 0, the contents of the output parameter of the C<read> method
+will be overwritten by the uncompressed data.
+
+Defaults to 0.
+
+=item C<< Strict => 0|1 >>
+
+This option controls whether the extra checks defined below are used when
+carrying out the decompression. When Strict is on, the extra tests are
+carried out, when Strict is off they are not.
+
+The default for this option is off.
+
+=back
+
+=head2 Examples
+
+TODO
+
+=head1 Methods 
+
+=head2 read
+
+Usage is
+
+    $status = $z->read($buffer)
+
+Reads a block of compressed data (the size of the compressed block is
+determined by the C<Buffer> option in the constructor), uncompresses it and
+writes any uncompressed data into C<$buffer>. If the C<Append> parameter is
+set in the constructor, the uncompressed data will be appended to the
+C<$buffer> parameter. Otherwise C<$buffer> will be overwritten.
+
+Returns the number of uncompressed bytes written to C<$buffer>, zero if eof
+or a negative number on error.
+
+=head2 read
+
+Usage is
+
+    $status = $z->read($buffer, $length)
+    $status = $z->read($buffer, $length, $offset)
+
+    $status = read($z, $buffer, $length)
+    $status = read($z, $buffer, $length, $offset)
+
+Attempt to read C<$length> bytes of uncompressed data into C<$buffer>.
+
+The main difference between this form of the C<read> method and the
+previous one, is that this one will attempt to return I<exactly> C<$length>
+bytes. The only circumstances that this function will not is if end-of-file
+or an IO error is encountered.
+
+Returns the number of uncompressed bytes written to C<$buffer>, zero if eof
+or a negative number on error.
+
+=head2 getline
+
+Usage is
+
+    $line = $z->getline()
+    $line = <$z>
+
+Reads a single line. 
+
+This method fully supports the use of the variable C<$/> (or
+C<$INPUT_RECORD_SEPARATOR> or C<$RS> when C<English> is in use) to
+determine what constitutes an end of line. Paragraph mode, record mode and
+file slurp mode are all supported. 
+
+=head2 getc
+
+Usage is 
+
+    $char = $z->getc()
+
+Read a single character.
+
+=head2 ungetc
+
+Usage is
+
+    $char = $z->ungetc($string)
+
+=head2 inflateSync
+
+Usage is
+
+    $status = $z->inflateSync()
+
+TODO
+
+=head2 getHeaderInfo
+
+Usage is
+
+    $hdr  = $z->getHeaderInfo();
+    @hdrs = $z->getHeaderInfo();
+
+This method returns either a hash reference (in scalar context) or a list
+or hash references (in array context) that contains information about each
+of the header fields in the compressed data stream(s).
+
+=head2 tell
+
+Usage is
+
+    $z->tell()
+    tell $z
+
+Returns the uncompressed file offset.
+
+=head2 eof
+
+Usage is
+
+    $z->eof();
+    eof($z);
+
+Returns true if the end of the compressed input stream has been reached.
+
+=head2 seek
+
+    $z->seek($position, $whence);
+    seek($z, $position, $whence);
+
+Provides a sub-set of the C<seek> functionality, with the restriction
+that it is only legal to seek forward in the input file/buffer.
+It is a fatal error to attempt to seek backward.
+
+Note that the implementation of C<seek> in this module does not provide
+true random access to a compressed file/buffer. It  works by uncompressing
+data from the current offset in the file/buffer until it reaches the
+uncompressed offset specified in the parameters to C<seek>. For very small
+files this may be acceptable behaviour. For large files it may cause an
+unacceptable delay.
+
+The C<$whence> parameter takes one the usual values, namely SEEK_SET,
+SEEK_CUR or SEEK_END.
+
+Returns 1 on success, 0 on failure.
+
+=head2 binmode
+
+Usage is
+
+    $z->binmode
+    binmode $z ;
+
+This is a noop provided for completeness.
+
+=head2 opened
+
+    $z->opened()
+
+Returns true if the object currently refers to a opened file/buffer. 
+
+=head2 autoflush
+
+    my $prev = $z->autoflush()
+    my $prev = $z->autoflush(EXPR)
+
+If the C<$z> object is associated with a file or a filehandle, this method
+returns the current autoflush setting for the underlying filehandle. If
+C<EXPR> is present, and is non-zero, it will enable flushing after every
+write/print operation.
+
+If C<$z> is associated with a buffer, this method has no effect and always
+returns C<undef>.
+
+B<Note> that the special variable C<$|> B<cannot> be used to set or
+retrieve the autoflush setting.
+
+=head2 input_line_number
+
+    $z->input_line_number()
+    $z->input_line_number(EXPR)
+
+Returns the current uncompressed line number. If C<EXPR> is present it has
+the effect of setting the line number. Note that setting the line number
+does not change the current position within the file/buffer being read.
+
+The contents of C<$/> are used to determine what constitutes a line
+terminator.
+
+=head2 fileno
+
+    $z->fileno()
+    fileno($z)
+
+If the C<$z> object is associated with a file or a filehandle, C<fileno>
+will return the underlying file descriptor. Once the C<close> method is
+called C<fileno> will return C<undef>.
+
+If the C<$z> object is associated with a buffer, this method will return
+C<undef>.
+
+=head2 close
+
+    $z->close() ;
+    close $z ;
+
+Closes the output file/buffer. 
+
+For most versions of Perl this method will be automatically invoked if
+the IO::Uncompress::Unzip object is destroyed (either explicitly or by the
+variable with the reference to the object going out of scope). The
+exceptions are Perl versions 5.005 through 5.00504 and 5.8.0. In
+these cases, the C<close> method will be called automatically, but
+not until global destruction of all live objects when the program is
+terminating.
+
+Therefore, if you want your scripts to be able to run on all versions
+of Perl, you should call C<close> explicitly and not rely on automatic
+closing.
+
+Returns true on success, otherwise 0.
+
+If the C<AutoClose> option has been enabled when the IO::Uncompress::Unzip
+object was created, and the object is associated with a file, the
+underlying file will also be closed.
+
+=head2 nextStream
+
+Usage is
+
+    my $status = $z->nextStream();
+
+Skips to the next compressed data stream in the input file/buffer. If a new
+compressed data stream is found, the eof marker will be cleared and C<$.>
+will be reset to 0.
+
+Returns 1 if a new stream was found, 0 if none was found, and -1 if an
+error was encountered.
+
+=head2 trailingData
+
+Usage is
+
+    my $data = $z->trailingData();
+
+Returns the data, if any, that is present immediately after the compressed
+data stream once uncompression is complete. It only makes sense to call
+this method once the end of the compressed data stream has been
+encountered.
+
+This option can be used when there is useful information immediately
+following the compressed data stream, and you don't know the length of the
+compressed data stream.
+
+If the input is a buffer, C<trailingData> will return everything from the
+end of the compressed data stream to the end of the buffer.
+
+If the input is a filehandle, C<trailingData> will return the data that is
+left in the filehandle input buffer once the end of the compressed data
+stream has been reached. You can then use the filehandle to read the rest
+of the input file. 
+
+Don't bother using C<trailingData> if the input is a filename.
+
+If you know the length of the compressed data stream before you start
+uncompressing, you can avoid having to use C<trailingData> by setting the
+C<InputLength> option in the constructor.
+
+=head1 Importing 
+
+No symbolic constants are required by this IO::Uncompress::Unzip at present. 
+
+=over 5
+
+=item :all
+
+Imports C<unzip> and C<$UnzipError>.
+Same as doing this
+
+    use IO::Uncompress::Unzip qw(unzip $UnzipError) ;
+
+=back
+
+=head1 EXAMPLES
+
+=head2 Working with Net::FTP
+
+See L<IO::Compress::FAQ|IO::Compress::FAQ/"Compressed files and Net::FTP">
+
+=head2 Walking through a zip file
+
+The code below can be used to traverse a zip file, one compressed data
+stream at a time.
+
+    use IO::Uncompress::Unzip qw($UnzipError);
+
+    my $zipfile = "somefile.zip";
+    my $u = new IO::Uncompress::Unzip $zipfile
+        or die "Cannot open $zipfile: $UnzipError";
+
+    my $status;
+    for ($status = 1; $status > 0; $status = $u->nextStream())
+    {
+ 
+        my $name = $u->getHeaderInfo()->{Name};
+        warn "Processing member $name\n" ;
+
+        my $buff;
+        while (($status = $u->read($buff)) > 0) {
+            # Do something here
+        }
+
+        last if $status < 0;
+    }
+
+    die "Error processing $zipfile: $!\n"
+        if $status < 0 ;
+
+Each individual compressed data stream is read until the logical
+end-of-file is reached. Then C<nextStream> is called. This will skip to the
+start of the next compressed data stream and clear the end-of-file flag.
+
+It is also worth noting that C<nextStream> can be called at any time -- you
+don't have to wait until you have exhausted a compressed data stream before
+skipping to the next one.
+
+=head2 Unzipping a complete zip file to disk
+
+Daniel S. Sterling has written a script that uses C<IO::Uncompress::UnZip>
+to read a zip file and unzip its contents to disk.
+
+The script is available from L<https://gist.github.com/eqhmcow/5389877>
+
+=head1 SEE ALSO
+
+L<Compress::Zlib>, L<IO::Compress::Gzip>, L<IO::Uncompress::Gunzip>, L<IO::Compress::Deflate>, L<IO::Uncompress::Inflate>, L<IO::Compress::RawDeflate>, L<IO::Uncompress::RawInflate>, L<IO::Compress::Bzip2>, L<IO::Uncompress::Bunzip2>, L<IO::Compress::Lzma>, L<IO::Uncompress::UnLzma>, L<IO::Compress::Xz>, L<IO::Uncompress::UnXz>, L<IO::Compress::Lzop>, L<IO::Uncompress::UnLzop>, L<IO::Compress::Lzf>, L<IO::Uncompress::UnLzf>, L<IO::Uncompress::AnyInflate>, L<IO::Uncompress::AnyUncompress>
+
+L<IO::Compress::FAQ|IO::Compress::FAQ>
+
+L<File::GlobMapper|File::GlobMapper>, L<Archive::Zip|Archive::Zip>,
+L<Archive::Tar|Archive::Tar>,
+L<IO::Zlib|IO::Zlib>
+
+For RFC 1950, 1951 and 1952 see 
+F<http://www.faqs.org/rfcs/rfc1950.html>,
+F<http://www.faqs.org/rfcs/rfc1951.html> and
+F<http://www.faqs.org/rfcs/rfc1952.html>
+
+The I<zlib> compression library was written by Jean-loup Gailly
+F<gzip@prep.ai.mit.edu> and Mark Adler F<madler@alumni.caltech.edu>.
+
+The primary site for the I<zlib> compression library is
+F<http://www.zlib.org>.
+
+The primary site for gzip is F<http://www.gzip.org>.
+
+=head1 AUTHOR
+
+This module was written by Paul Marquess, F<pmqs@cpan.org>. 
+
+=head1 MODIFICATION HISTORY
+
+See the Changes file.
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright (c) 2005-2015 Paul Marquess. All rights reserved.
+
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
diff --git a/lib/5.24.1/IO/Zlib.pm b/lib/5.24.1/IO/Zlib.pm
new file mode 100644
index 00000000..55534b4f
--- /dev/null
+++ b/lib/5.24.1/IO/Zlib.pm
@@ -0,0 +1,652 @@
+# IO::Zlib.pm
+#
+# Copyright (c) 1998-2004 Tom Hughes <tom@compton.nu>.
+# All rights reserved. This program is free software; you can redistribute
+# it and/or modify it under the same terms as Perl itself.
+
+package IO::Zlib;
+
+$VERSION = "1.10";
+
+=head1 NAME
+
+IO::Zlib - IO:: style interface to L<Compress::Zlib>
+
+=head1 SYNOPSIS
+
+With any version of Perl 5 you can use the basic OO interface:
+
+    use IO::Zlib;
+
+    $fh = new IO::Zlib;
+    if ($fh->open("file.gz", "rb")) {
+        print <$fh>;
+        $fh->close;
+    }
+
+    $fh = IO::Zlib->new("file.gz", "wb9");
+    if (defined $fh) {
+        print $fh "bar\n";
+        $fh->close;
+    }
+
+    $fh = IO::Zlib->new("file.gz", "rb");
+    if (defined $fh) {
+        print <$fh>;
+        undef $fh;       # automatically closes the file
+    }
+
+With Perl 5.004 you can also use the TIEHANDLE interface to access
+compressed files just like ordinary files:
+
+    use IO::Zlib;
+
+    tie *FILE, 'IO::Zlib', "file.gz", "wb";
+    print FILE "line 1\nline2\n";
+
+    tie *FILE, 'IO::Zlib', "file.gz", "rb";
+    while (<FILE>) { print "LINE: ", $_ };
+
+=head1 DESCRIPTION
+
+C<IO::Zlib> provides an IO:: style interface to L<Compress::Zlib> and
+hence to gzip/zlib compressed files. It provides many of the same methods
+as the L<IO::Handle> interface.
+
+Starting from IO::Zlib version 1.02, IO::Zlib can also use an
+external F<gzip> command.  The default behaviour is to try to use
+an external F<gzip> if no C<Compress::Zlib> can be loaded, unless
+explicitly disabled by
+
+    use IO::Zlib qw(:gzip_external 0);
+
+If explicitly enabled by
+
+    use IO::Zlib qw(:gzip_external 1);
+
+then the external F<gzip> is used B<instead> of C<Compress::Zlib>.
+
+=head1 CONSTRUCTOR
+
+=over 4
+
+=item new ( [ARGS] )
+
+Creates an C<IO::Zlib> object. If it receives any parameters, they are
+passed to the method C<open>; if the open fails, the object is destroyed.
+Otherwise, it is returned to the caller.
+
+=back
+
+=head1 OBJECT METHODS
+
+=over 4
+
+=item open ( FILENAME, MODE )
+
+C<open> takes two arguments. The first is the name of the file to open
+and the second is the open mode. The mode can be anything acceptable to
+L<Compress::Zlib> and by extension anything acceptable to I<zlib> (that
+basically means POSIX fopen() style mode strings plus an optional number
+to indicate the compression level).
+
+=item opened
+
+Returns true if the object currently refers to a opened file.
+
+=item close
+
+Close the file associated with the object and disassociate
+the file from the handle.
+Done automatically on destroy.
+
+=item getc
+
+Return the next character from the file, or undef if none remain.
+
+=item getline
+
+Return the next line from the file, or undef on end of string.
+Can safely be called in an array context.
+Currently ignores $/ ($INPUT_RECORD_SEPARATOR or $RS when L<English>
+is in use) and treats lines as delimited by "\n".
+
+=item getlines
+
+Get all remaining lines from the file.
+It will croak() if accidentally called in a scalar context.
+
+=item print ( ARGS... )
+
+Print ARGS to the  file.
+
+=item read ( BUF, NBYTES, [OFFSET] )
+
+Read some bytes from the file.
+Returns the number of bytes actually read, 0 on end-of-file, undef on error.
+
+=item eof
+
+Returns true if the handle is currently positioned at end of file?
+
+=item seek ( OFFSET, WHENCE )
+
+Seek to a given position in the stream.
+Not yet supported.
+
+=item tell
+
+Return the current position in the stream, as a numeric offset.
+Not yet supported.
+
+=item setpos ( POS )
+
+Set the current position, using the opaque value returned by C<getpos()>.
+Not yet supported.
+
+=item getpos ( POS )
+
+Return the current position in the string, as an opaque object.
+Not yet supported.
+
+=back
+
+=head1 USING THE EXTERNAL GZIP
+
+If the external F<gzip> is used, the following C<open>s are used:
+
+    open(FH, "gzip -dc $filename |")  # for read opens
+    open(FH, " | gzip > $filename")   # for write opens
+
+You can modify the 'commands' for example to hardwire
+an absolute path by e.g.
+
+    use IO::Zlib ':gzip_read_open'  => '/some/where/gunzip -c %s |';
+    use IO::Zlib ':gzip_write_open' => '| /some/where/gzip.exe > %s';
+
+The C<%s> is expanded to be the filename (C<sprintf> is used, so be
+careful to escape any other C<%> signs).  The 'commands' are checked
+for sanity - they must contain the C<%s>, and the read open must end
+with the pipe sign, and the write open must begin with the pipe sign.
+
+=head1 CLASS METHODS
+
+=over 4
+
+=item has_Compress_Zlib
+
+Returns true if C<Compress::Zlib> is available.  Note that this does
+not mean that C<Compress::Zlib> is being used: see L</gzip_external>
+and L<gzip_used>.
+
+=item gzip_external
+
+Undef if an external F<gzip> B<can> be used if C<Compress::Zlib> is
+not available (see L</has_Compress_Zlib>), true if an external F<gzip>
+is explicitly used, false if an external F<gzip> must not be used.
+See L</gzip_used>.
+
+=item gzip_used
+
+True if an external F<gzip> is being used, false if not.
+
+=item gzip_read_open
+
+Return the 'command' being used for opening a file for reading using an
+external F<gzip>.
+
+=item gzip_write_open
+
+Return the 'command' being used for opening a file for writing using an
+external F<gzip>.
+
+=back
+
+=head1 DIAGNOSTICS
+
+=over 4
+
+=item IO::Zlib::getlines: must be called in list context
+
+If you want read lines, you must read in list context.
+
+=item IO::Zlib::gzopen_external: mode '...' is illegal
+
+Use only modes 'rb' or 'wb' or /wb[1-9]/.
+
+=item IO::Zlib::import: '...' is illegal
+
+The known import symbols are the C<:gzip_external>, C<:gzip_read_open>,
+and C<:gzip_write_open>.  Anything else is not recognized.
+
+=item IO::Zlib::import: ':gzip_external' requires an argument
+
+The C<:gzip_external> requires one boolean argument.
+
+=item IO::Zlib::import: 'gzip_read_open' requires an argument
+
+The C<:gzip_external> requires one string argument.
+
+=item IO::Zlib::import: 'gzip_read' '...' is illegal
+
+The C<:gzip_read_open> argument must end with the pipe sign (|)
+and have the C<%s> for the filename.  See L</"USING THE EXTERNAL GZIP">.
+
+=item IO::Zlib::import: 'gzip_write_open' requires an argument
+
+The C<:gzip_external> requires one string argument.
+
+=item IO::Zlib::import: 'gzip_write_open' '...' is illegal
+
+The C<:gzip_write_open> argument must begin with the pipe sign (|)
+and have the C<%s> for the filename.  An output redirect (>) is also
+often a good idea, depending on your operating system shell syntax.
+See L</"USING THE EXTERNAL GZIP">.
+
+=item IO::Zlib::import: no Compress::Zlib and no external gzip
+
+Given that we failed to load C<Compress::Zlib> and that the use of
+ an external F<gzip> was disabled, IO::Zlib has not much chance of working.
+
+=item IO::Zlib::open: needs a filename
+
+No filename, no open.
+
+=item IO::Zlib::READ: NBYTES must be specified
+
+We must know how much to read.
+
+=item IO::Zlib::WRITE: too long LENGTH
+
+The LENGTH must be less than or equal to the buffer size.
+
+=back
+
+=head1 SEE ALSO
+
+L<perlfunc>,
+L<perlop/"I/O Operators">,
+L<IO::Handle>,
+L<Compress::Zlib>
+
+=head1 HISTORY
+
+Created by Tom Hughes E<lt>F<tom@compton.nu>E<gt>.
+
+Support for external gzip added by Jarkko Hietaniemi E<lt>F<jhi@iki.fi>E<gt>.
+
+=head1 COPYRIGHT
+
+Copyright (c) 1998-2004 Tom Hughes E<lt>F<tom@compton.nu>E<gt>.
+All rights reserved. This program is free software; you can redistribute
+it and/or modify it under the same terms as Perl itself.
+
+=cut
+
+require 5.006;
+
+use strict;
+use vars qw($VERSION $AUTOLOAD @ISA);
+
+use Carp;
+use Fcntl qw(SEEK_SET);
+
+my $has_Compress_Zlib;
+my $aliased;
+
+sub has_Compress_Zlib {
+    $has_Compress_Zlib;
+}
+
+BEGIN {
+    eval { require Compress::Zlib };
+    $has_Compress_Zlib = $@ || $Compress::Zlib::VERSION < 2.000 ? 0 : 1;
+}
+
+use Symbol;
+use Tie::Handle;
+
+# These might use some $^O logic.
+my $gzip_read_open   = "gzip -dc %s |";
+my $gzip_write_open  = "| gzip > %s";
+
+my $gzip_external;
+my $gzip_used;
+
+sub gzip_read_open {
+    $gzip_read_open;
+}
+
+sub gzip_write_open {
+    $gzip_write_open;
+}
+
+sub gzip_external {
+    $gzip_external;
+}
+
+sub gzip_used {
+    $gzip_used;
+}
+
+sub can_gunzip {
+    $has_Compress_Zlib || $gzip_external;
+}
+
+sub _import {
+    my $import = shift;
+    while (@_) {
+	if ($_[0] eq ':gzip_external') {
+	    shift;
+	    if (@_) {
+		$gzip_external = shift;
+	    } else {
+		croak "$import: ':gzip_external' requires an argument";
+	    }
+	}
+	elsif ($_[0] eq ':gzip_read_open') {
+	    shift;
+	    if (@_) {
+		$gzip_read_open = shift;
+		croak "$import: ':gzip_read_open' '$gzip_read_open' is illegal"
+		    unless $gzip_read_open =~ /^.+%s.+\|\s*$/;
+	    } else {
+		croak "$import: ':gzip_read_open' requires an argument";
+	    }
+	}
+	elsif ($_[0] eq ':gzip_write_open') {
+	    shift;
+	    if (@_) {
+		$gzip_write_open = shift;
+		croak "$import: ':gzip_write_open' '$gzip_read_open' is illegal"
+		    unless $gzip_write_open =~ /^\s*\|.+%s.*$/;
+	    } else {
+		croak "$import: ':gzip_write_open' requires an argument";
+	    }
+	}
+	else {
+	    last;
+	}
+    }
+    return @_;
+}
+
+sub _alias {
+    my $import = shift;
+    if ((!$has_Compress_Zlib && !defined $gzip_external) || $gzip_external) {
+	# The undef *gzopen is really needed only during
+	# testing where we eval several 'use IO::Zlib's.
+	undef *gzopen;
+        *gzopen                 = \&gzopen_external;
+        *IO::Handle::gzread     = \&gzread_external;
+        *IO::Handle::gzwrite    = \&gzwrite_external;
+        *IO::Handle::gzreadline = \&gzreadline_external;
+        *IO::Handle::gzeof      = \&gzeof_external;
+        *IO::Handle::gzclose    = \&gzclose_external;
+	$gzip_used = 1;
+    } else {
+	croak "$import: no Compress::Zlib and no external gzip"
+	    unless $has_Compress_Zlib;
+        *gzopen     = \&Compress::Zlib::gzopen;
+        *gzread     = \&Compress::Zlib::gzread;
+        *gzwrite    = \&Compress::Zlib::gzwrite;
+        *gzreadline = \&Compress::Zlib::gzreadline;
+        *gzeof      = \&Compress::Zlib::gzeof;
+    }
+    $aliased = 1;
+}
+
+sub import {
+    shift;
+    my $import = "IO::Zlib::import";
+    if (@_) {
+	if (_import($import, @_)) {
+	    croak "$import: '@_' is illegal";
+	}
+    }
+    _alias($import);
+}
+
+@ISA = qw(Tie::Handle);
+
+sub TIEHANDLE
+{
+    my $class = shift;
+    my @args = @_;
+
+    my $self = bless {}, $class;
+
+    return @args ? $self->OPEN(@args) : $self;
+}
+
+sub DESTROY
+{
+}
+
+sub OPEN
+{
+    my $self = shift;
+    my $filename = shift;
+    my $mode = shift;
+
+    croak "IO::Zlib::open: needs a filename" unless defined($filename);
+
+    $self->{'file'} = gzopen($filename,$mode);
+
+    return defined($self->{'file'}) ? $self : undef;
+}
+
+sub CLOSE
+{
+    my $self = shift;
+
+    return undef unless defined($self->{'file'});
+
+    my $status = $self->{'file'}->gzclose();
+
+    delete $self->{'file'};
+
+    return ($status == 0) ? 1 : undef;
+}
+
+sub READ
+{
+    my $self = shift;
+    my $bufref = \$_[0];
+    my $nbytes = $_[1];
+    my $offset = $_[2] || 0;
+
+    croak "IO::Zlib::READ: NBYTES must be specified" unless defined($nbytes);
+
+    $$bufref = "" unless defined($$bufref);
+
+    my $bytesread = $self->{'file'}->gzread(substr($$bufref,$offset),$nbytes);
+
+    return undef if $bytesread < 0;
+
+    return $bytesread;
+}
+
+sub READLINE
+{
+    my $self = shift;
+
+    my $line;
+
+    return () if $self->{'file'}->gzreadline($line) <= 0;
+
+    return $line unless wantarray;
+
+    my @lines = $line;
+
+    while ($self->{'file'}->gzreadline($line) > 0)
+    {
+        push @lines, $line;
+    }
+
+    return @lines;
+}
+
+sub WRITE
+{
+    my $self = shift;
+    my $buf = shift;
+    my $length = shift;
+    my $offset = shift;
+
+    croak "IO::Zlib::WRITE: too long LENGTH" unless $offset + $length <= length($buf);
+
+    return $self->{'file'}->gzwrite(substr($buf,$offset,$length));
+}
+
+sub EOF
+{
+    my $self = shift;
+
+    return $self->{'file'}->gzeof();
+}
+
+sub FILENO
+{
+    return undef;
+}
+
+sub new
+{
+    my $class = shift;
+    my @args = @_;
+
+    _alias("new", @_) unless $aliased; # Some call new IO::Zlib directly...
+
+    my $self = gensym();
+
+    tie *{$self}, $class, @args;
+
+    return tied(${$self}) ? bless $self, $class : undef;
+}
+
+sub getline
+{
+    my $self = shift;
+
+    return scalar tied(*{$self})->READLINE();
+}
+
+sub getlines
+{
+    my $self = shift;
+
+    croak "IO::Zlib::getlines: must be called in list context"
+	unless wantarray;
+
+    return tied(*{$self})->READLINE();
+}
+
+sub opened
+{
+    my $self = shift;
+
+    return defined tied(*{$self})->{'file'};
+}
+
+sub AUTOLOAD
+{
+    my $self = shift;
+
+    $AUTOLOAD =~ s/.*:://;
+    $AUTOLOAD =~ tr/a-z/A-Z/;
+
+    return tied(*{$self})->$AUTOLOAD(@_);
+}
+
+sub gzopen_external {
+    my ($filename, $mode) = @_;
+    require IO::Handle;
+    my $fh = IO::Handle->new();
+    if ($mode =~ /r/) {
+	# Because someone will try to read ungzipped files
+	# with this we peek and verify the signature.  Yes,
+	# this means that we open the file twice (if it is
+	# gzipped).
+	# Plenty of race conditions exist in this code, but
+	# the alternative would be to capture the stderr of
+	# gzip and parse it, which would be a portability nightmare.
+	if (-e $filename && open($fh, $filename)) {
+	    binmode $fh;
+	    my $sig;
+	    my $rdb = read($fh, $sig, 2);
+	    if ($rdb == 2 && $sig eq "\x1F\x8B") {
+		my $ropen = sprintf $gzip_read_open, $filename;
+		if (open($fh, $ropen)) {
+		    binmode $fh;
+		    return $fh;
+		} else {
+		    return undef;
+		}
+	    }
+	    seek($fh, 0, SEEK_SET) or
+		die "IO::Zlib: open('$filename', 'r'): seek: $!";
+	    return $fh;
+	} else {
+	    return undef;
+	}
+    } elsif ($mode =~ /w/) {
+	my $level = '';
+	$level = "-$1" if $mode =~ /([1-9])/;
+	# To maximize portability we would need to open
+	# two filehandles here, one for "| gzip $level"
+	# and another for "> $filename", and then when
+	# writing copy bytes from the first to the second.
+	# We are using IO::Handle objects for now, however,
+	# and they can only contain one stream at a time.
+	my $wopen = sprintf $gzip_write_open, $filename;
+	if (open($fh, $wopen)) {
+	    $fh->autoflush(1);
+	    binmode $fh;
+	    return $fh;
+	} else {
+	    return undef;
+	}
+    } else {
+	croak "IO::Zlib::gzopen_external: mode '$mode' is illegal";
+    }
+    return undef;
+}
+
+sub gzread_external {
+    # Use read() instead of syswrite() because people may
+    # mix reads and readlines, and we don't want to mess
+    # the stdio buffering.  See also gzreadline_external()
+    # and gzwrite_external().
+    my $nread = read($_[0], $_[1], @_ == 3 ? $_[2] : 4096);
+    defined $nread ? $nread : -1;
+}
+
+sub gzwrite_external {
+    # Using syswrite() is okay (cf. gzread_external())
+    # since the bytes leave this process and buffering
+    # is therefore not an issue.
+    my $nwrote = syswrite($_[0], $_[1]);
+    defined $nwrote ? $nwrote : -1;
+}
+
+sub gzreadline_external {
+    # See the comment in gzread_external().
+    $_[1] = readline($_[0]);
+    return defined $_[1] ? length($_[1]) : -1;
+}
+
+sub gzeof_external {
+    return eof($_[0]);
+}
+
+sub gzclose_external {
+    close($_[0]);
+    # I am not entirely certain why this is needed but it seems
+    # the above close() always fails (as if the stream would have
+    # been already closed - something to do with using external
+    # processes via pipes?)
+    return 0;
+}
+
+1;
diff --git a/lib/5.24.1/IPC/Cmd.pm b/lib/5.24.1/IPC/Cmd.pm
new file mode 100644
index 00000000..4705f044
--- /dev/null
+++ b/lib/5.24.1/IPC/Cmd.pm
@@ -0,0 +1,2142 @@
+package IPC::Cmd;
+
+use strict;
+
+BEGIN {
+
+    use constant IS_VMS         => $^O eq 'VMS'                       ? 1 : 0;
+    use constant IS_WIN32       => $^O eq 'MSWin32'                   ? 1 : 0;
+    use constant IS_WIN98       => (IS_WIN32 and !Win32::IsWinNT())   ? 1 : 0;
+    use constant ALARM_CLASS    => __PACKAGE__ . '::TimeOut';
+    use constant SPECIAL_CHARS  => qw[< > | &];
+    use constant QUOTE          => do { IS_WIN32 ? q["] : q['] };
+
+    use Exporter    ();
+    use vars        qw[ @ISA $VERSION @EXPORT_OK $VERBOSE $DEBUG
+                        $USE_IPC_RUN $USE_IPC_OPEN3 $CAN_USE_RUN_FORKED $WARN
+                        $INSTANCES $ALLOW_NULL_ARGS
+                        $HAVE_MONOTONIC
+                    ];
+
+    $VERSION        = '0.92_01';
+    $VERBOSE        = 0;
+    $DEBUG          = 0;
+    $WARN           = 1;
+    $USE_IPC_RUN    = IS_WIN32 && !IS_WIN98;
+    $USE_IPC_OPEN3  = not IS_VMS;
+    $ALLOW_NULL_ARGS = 0;
+
+    $CAN_USE_RUN_FORKED = 0;
+    eval {
+        require POSIX; POSIX->import();
+        require IPC::Open3; IPC::Open3->import();
+        require IO::Select; IO::Select->import();
+        require IO::Handle; IO::Handle->import();
+        require FileHandle; FileHandle->import();
+        require Socket;
+        require Time::HiRes; Time::HiRes->import();
+        require Win32 if IS_WIN32;
+    };
+    $CAN_USE_RUN_FORKED = $@ || !IS_VMS && !IS_WIN32;
+
+    eval {
+        my $wait_start_time = Time::HiRes::clock_gettime(&Time::HiRes::CLOCK_MONOTONIC);
+    };
+    if ($@) {
+        $HAVE_MONOTONIC = 0;
+    }
+    else {
+        $HAVE_MONOTONIC = 1;
+    }
+
+    @ISA            = qw[Exporter];
+    @EXPORT_OK      = qw[can_run run run_forked QUOTE];
+}
+
+require Carp;
+use File::Spec;
+use Params::Check               qw[check];
+use Text::ParseWords            ();             # import ONLY if needed!
+use Module::Load::Conditional   qw[can_load];
+use Locale::Maketext::Simple    Style => 'gettext';
+
+=pod
+
+=head1 NAME
+
+IPC::Cmd - finding and running system commands made easy
+
+=head1 SYNOPSIS
+
+    use IPC::Cmd qw[can_run run run_forked];
+
+    my $full_path = can_run('wget') or warn 'wget is not installed!';
+
+    ### commands can be arrayrefs or strings ###
+    my $cmd = "$full_path -b theregister.co.uk";
+    my $cmd = [$full_path, '-b', 'theregister.co.uk'];
+
+    ### in scalar context ###
+    my $buffer;
+    if( scalar run( command => $cmd,
+                    verbose => 0,
+                    buffer  => \$buffer,
+                    timeout => 20 )
+    ) {
+        print "fetched webpage successfully: $buffer\n";
+    }
+
+
+    ### in list context ###
+    my( $success, $error_message, $full_buf, $stdout_buf, $stderr_buf ) =
+            run( command => $cmd, verbose => 0 );
+
+    if( $success ) {
+        print "this is what the command printed:\n";
+        print join "", @$full_buf;
+    }
+
+    ### run_forked example ###
+    my $result = run_forked("$full_path -q -O - theregister.co.uk", {'timeout' => 20});
+    if ($result->{'exit_code'} eq 0 && !$result->{'timeout'}) {
+        print "this is what wget returned:\n";
+        print $result->{'stdout'};
+    }
+
+    ### check for features
+    print "IPC::Open3 available: "  . IPC::Cmd->can_use_ipc_open3;
+    print "IPC::Run available: "    . IPC::Cmd->can_use_ipc_run;
+    print "Can capture buffer: "    . IPC::Cmd->can_capture_buffer;
+
+    ### don't have IPC::Cmd be verbose, ie don't print to stdout or
+    ### stderr when running commands -- default is '0'
+    $IPC::Cmd::VERBOSE = 0;
+
+
+=head1 DESCRIPTION
+
+IPC::Cmd allows you to run commands platform independently,
+interactively if desired, but have them still work.
+
+The C<can_run> function can tell you if a certain binary is installed
+and if so where, whereas the C<run> function can actually execute any
+of the commands you give it and give you a clear return value, as well
+as adhere to your verbosity settings.
+
+=head1 CLASS METHODS
+
+=head2 $ipc_run_version = IPC::Cmd->can_use_ipc_run( [VERBOSE] )
+
+Utility function that tells you if C<IPC::Run> is available.
+If the C<verbose> flag is passed, it will print diagnostic messages
+if L<IPC::Run> can not be found or loaded.
+
+=cut
+
+
+sub can_use_ipc_run     {
+    my $self    = shift;
+    my $verbose = shift || 0;
+
+    ### IPC::Run doesn't run on win98
+    return if IS_WIN98;
+
+    ### if we don't have ipc::run, we obviously can't use it.
+    local @INC = @INC;
+    pop @INC if $INC[-1] eq '.';
+    return unless can_load(
+                        modules => { 'IPC::Run' => '0.55' },
+                        verbose => ($WARN && $verbose),
+                    );
+
+    ### otherwise, we're good to go
+    return $IPC::Run::VERSION;
+}
+
+=head2 $ipc_open3_version = IPC::Cmd->can_use_ipc_open3( [VERBOSE] )
+
+Utility function that tells you if C<IPC::Open3> is available.
+If the verbose flag is passed, it will print diagnostic messages
+if C<IPC::Open3> can not be found or loaded.
+
+=cut
+
+
+sub can_use_ipc_open3   {
+    my $self    = shift;
+    my $verbose = shift || 0;
+
+    ### IPC::Open3 is not working on VMS because of a lack of fork.
+    return if IS_VMS;
+
+    ### IPC::Open3 works on every non-VMS platform, but it can't
+    ### capture buffers on win32 :(
+    local @INC = @INC;
+    pop @INC if $INC[-1] eq '.';
+    return unless can_load(
+        modules => { map {$_ => '0.0'} qw|IPC::Open3 IO::Select Symbol| },
+        verbose => ($WARN && $verbose),
+    );
+
+    return $IPC::Open3::VERSION;
+}
+
+=head2 $bool = IPC::Cmd->can_capture_buffer
+
+Utility function that tells you if C<IPC::Cmd> is capable of
+capturing buffers in it's current configuration.
+
+=cut
+
+sub can_capture_buffer {
+    my $self    = shift;
+
+    return 1 if $USE_IPC_RUN    && $self->can_use_ipc_run;
+    return 1 if $USE_IPC_OPEN3  && $self->can_use_ipc_open3;
+    return;
+}
+
+=head2 $bool = IPC::Cmd->can_use_run_forked
+
+Utility function that tells you if C<IPC::Cmd> is capable of
+providing C<run_forked> on the current platform.
+
+=head1 FUNCTIONS
+
+=head2 $path = can_run( PROGRAM );
+
+C<can_run> takes only one argument: the name of a binary you wish
+to locate. C<can_run> works much like the unix binary C<which> or the bash
+command C<type>, which scans through your path, looking for the requested
+binary.
+
+Unlike C<which> and C<type>, this function is platform independent and
+will also work on, for example, Win32.
+
+If called in a scalar context it will return the full path to the binary
+you asked for if it was found, or C<undef> if it was not.
+
+If called in a list context and the global variable C<$INSTANCES> is a true
+value, it will return a list of the full paths to instances
+of the binary where found in C<PATH>, or an empty list if it was not found.
+
+=cut
+
+sub can_run {
+    my $command = shift;
+
+    # a lot of VMS executables have a symbol defined
+    # check those first
+    if ( $^O eq 'VMS' ) {
+        require VMS::DCLsym;
+        my $syms = VMS::DCLsym->new;
+        return $command if scalar $syms->getsym( uc $command );
+    }
+
+    require File::Spec;
+    require ExtUtils::MakeMaker;
+
+    my @possibles;
+
+    if( File::Spec->file_name_is_absolute($command) ) {
+        return MM->maybe_command($command);
+
+    } else {
+        for my $dir (
+            File::Spec->path,
+            File::Spec->curdir
+        ) {
+            next if ! $dir || ! -d $dir;
+            my $abs = File::Spec->catfile( IS_WIN32 ? Win32::GetShortPathName( $dir ) : $dir, $command);
+            push @possibles, $abs if $abs = MM->maybe_command($abs);
+        }
+    }
+    return @possibles if wantarray and $INSTANCES;
+    return shift @possibles;
+}
+
+=head2 $ok | ($ok, $err, $full_buf, $stdout_buff, $stderr_buff) = run( command => COMMAND, [verbose => BOOL, buffer => \$SCALAR, timeout => DIGIT] );
+
+C<run> takes 4 arguments:
+
+=over 4
+
+=item command
+
+This is the command to execute. It may be either a string or an array
+reference.
+This is a required argument.
+
+See L<"Caveats"> for remarks on how commands are parsed and their
+limitations.
+
+=item verbose
+
+This controls whether all output of a command should also be printed
+to STDOUT/STDERR or should only be trapped in buffers (NOTE: buffers
+require L<IPC::Run> to be installed, or your system able to work with
+L<IPC::Open3>).
+
+It will default to the global setting of C<$IPC::Cmd::VERBOSE>,
+which by default is 0.
+
+=item buffer
+
+This will hold all the output of a command. It needs to be a reference
+to a scalar.
+Note that this will hold both the STDOUT and STDERR messages, and you
+have no way of telling which is which.
+If you require this distinction, run the C<run> command in list context
+and inspect the individual buffers.
+
+Of course, this requires that the underlying call supports buffers. See
+the note on buffers above.
+
+=item timeout
+
+Sets the maximum time the command is allowed to run before aborting,
+using the built-in C<alarm()> call. If the timeout is triggered, the
+C<errorcode> in the return value will be set to an object of the
+C<IPC::Cmd::TimeOut> class. See the L<"error message"> section below for
+details.
+
+Defaults to C<0>, meaning no timeout is set.
+
+=back
+
+C<run> will return a simple C<true> or C<false> when called in scalar
+context.
+In list context, you will be returned a list of the following items:
+
+=over 4
+
+=item success
+
+A simple boolean indicating if the command executed without errors or
+not.
+
+=item error message
+
+If the first element of the return value (C<success>) was 0, then some
+error occurred. This second element is the error message the command
+you requested exited with, if available. This is generally a pretty
+printed value of C<$?> or C<$@>. See C<perldoc perlvar> for details on
+what they can contain.
+If the error was a timeout, the C<error message> will be prefixed with
+the string C<IPC::Cmd::TimeOut>, the timeout class.
+
+=item full_buffer
+
+This is an array reference containing all the output the command
+generated.
+Note that buffers are only available if you have L<IPC::Run> installed,
+or if your system is able to work with L<IPC::Open3> -- see below).
+Otherwise, this element will be C<undef>.
+
+=item out_buffer
+
+This is an array reference containing all the output sent to STDOUT the
+command generated. The notes from L<"full_buffer"> apply.
+
+=item error_buffer
+
+This is an arrayreference containing all the output sent to STDERR the
+command generated. The notes from L<"full_buffer"> apply.
+
+
+=back
+
+See the L<"HOW IT WORKS"> section below to see how C<IPC::Cmd> decides
+what modules or function calls to use when issuing a command.
+
+=cut
+
+{   my @acc = qw[ok error _fds];
+
+    ### autogenerate accessors ###
+    for my $key ( @acc ) {
+        no strict 'refs';
+        *{__PACKAGE__."::$key"} = sub {
+            $_[0]->{$key} = $_[1] if @_ > 1;
+            return $_[0]->{$key};
+        }
+    }
+}
+
+sub can_use_run_forked {
+    return $CAN_USE_RUN_FORKED eq "1";
+}
+
+sub get_monotonic_time {
+    if ($HAVE_MONOTONIC) {
+        return Time::HiRes::clock_gettime(&Time::HiRes::CLOCK_MONOTONIC);
+    }
+    else {
+        return time();
+    }
+}
+
+sub adjust_monotonic_start_time {
+    my ($ref_vars, $now, $previous) = @_;
+
+    # workaround only for those systems which don't have
+    # Time::HiRes::CLOCK_MONOTONIC (Mac OSX in particular)
+    return if $HAVE_MONOTONIC;
+
+    # don't have previous monotonic value (only happens once
+    # in the beginning of the program execution)
+    return unless $previous;
+
+    my $time_diff = $now - $previous;
+
+    # adjust previously saved time with the skew value which is
+    # either negative when clock moved back or more than 5 seconds --
+    # assuming that event loop does happen more often than once
+    # per five seconds, which might not be always true (!) but
+    # hopefully that's ok, because it's just a workaround
+    if ($time_diff > 5 || $time_diff < 0) {
+        foreach my $ref_var (@{$ref_vars}) {
+            if (defined($$ref_var)) {
+                $$ref_var = $$ref_var + $time_diff;
+            }
+        }
+    }
+}
+
+# incompatible with POSIX::SigAction
+#
+sub install_layered_signal {
+  my ($s, $handler_code) = @_;
+
+  my %available_signals = map {$_ => 1} keys %SIG;
+
+  Carp::confess("install_layered_signal got nonexistent signal name [$s]")
+    unless defined($available_signals{$s});
+  Carp::confess("install_layered_signal expects coderef")
+    if !ref($handler_code) || ref($handler_code) ne 'CODE';
+
+  my $previous_handler = $SIG{$s};
+
+  my $sig_handler = sub {
+    my ($called_sig_name, @sig_param) = @_;
+
+    # $s is a closure referring to real signal name
+    # for which this handler is being installed.
+    # it is used to distinguish between
+    # real signal handlers and aliased signal handlers
+    my $signal_name = $s;
+
+    # $called_sig_name is a signal name which
+    # was passed to this signal handler;
+    # it doesn't equal $signal_name in case
+    # some signal handlers in %SIG point
+    # to other signal handler (CHLD and CLD,
+    # ABRT and IOT)
+    #
+    # initial signal handler for aliased signal
+    # calls some other signal handler which
+    # should not execute the same handler_code again
+    if ($called_sig_name eq $signal_name) {
+      $handler_code->($signal_name);
+    }
+
+    # run original signal handler if any (including aliased)
+    #
+    if (ref($previous_handler)) {
+      $previous_handler->($called_sig_name, @sig_param);
+    }
+  };
+
+  $SIG{$s} = $sig_handler;
+}
+
+# give process a chance sending TERM,
+# waiting for a while (2 seconds)
+# and killing it with KILL
+sub kill_gently {
+  my ($pid, $opts) = @_;
+
+  require POSIX;
+
+  $opts = {} unless $opts;
+  $opts->{'wait_time'} = 2 unless defined($opts->{'wait_time'});
+  $opts->{'first_kill_type'} = 'just_process' unless $opts->{'first_kill_type'};
+  $opts->{'final_kill_type'} = 'just_process' unless $opts->{'final_kill_type'};
+
+  if ($opts->{'first_kill_type'} eq 'just_process') {
+    kill(15, $pid);
+  }
+  elsif ($opts->{'first_kill_type'} eq 'process_group') {
+    kill(-15, $pid);
+  }
+
+  my $do_wait = 1;
+  my $child_finished = 0;
+
+  my $wait_start_time = get_monotonic_time();
+  my $now;
+  my $previous_monotonic_value;
+
+  while ($do_wait) {
+    $previous_monotonic_value = $now;
+    $now = get_monotonic_time();
+    
+    adjust_monotonic_start_time([\$wait_start_time], $now, $previous_monotonic_value);
+
+    if ($now > $wait_start_time + $opts->{'wait_time'}) {
+        $do_wait = 0;
+        next;
+    }
+
+    my $waitpid = waitpid($pid, POSIX::WNOHANG);
+
+    if ($waitpid eq -1) {
+        $child_finished = 1;
+        $do_wait = 0;
+        next;
+    }
+    
+    Time::HiRes::usleep(250000); # quarter of a second
+  }
+
+  if (!$child_finished) {
+    if ($opts->{'final_kill_type'} eq 'just_process') {
+      kill(9, $pid);
+    }
+    elsif ($opts->{'final_kill_type'} eq 'process_group') {
+      kill(-9, $pid);
+    }
+  }
+}
+
+sub open3_run {
+    my ($cmd, $opts) = @_;
+
+    $opts = {} unless $opts;
+
+    my $child_in = FileHandle->new;
+    my $child_out = FileHandle->new;
+    my $child_err = FileHandle->new;
+    $child_out->autoflush(1);
+    $child_err->autoflush(1);
+
+    my $pid = open3($child_in, $child_out, $child_err, $cmd);
+
+    # push my child's pid to our parent
+    # so in case i am killed parent
+    # could stop my child (search for
+    # child_child_pid in parent code)
+    if ($opts->{'parent_info'}) {
+      my $ps = $opts->{'parent_info'};
+      print $ps "spawned $pid\n";
+    }
+
+    if ($child_in && $child_out->opened && $opts->{'child_stdin'}) {
+        # If the child process dies for any reason,
+        # the next write to CHLD_IN is likely to generate
+        # a SIGPIPE in the parent, which is fatal by default.
+        # So you may wish to handle this signal.
+        #
+        # from http://perldoc.perl.org/IPC/Open3.html,
+        # absolutely needed to catch piped commands errors.
+        #
+        local $SIG{'PIPE'} = sub { 1; };
+
+        print $child_in $opts->{'child_stdin'};
+    }
+    close($child_in);
+
+    my $child_output = {
+        'out' => $child_out->fileno,
+        'err' => $child_err->fileno,
+        $child_out->fileno => {
+            'parent_socket' => $opts->{'parent_stdout'},
+            'scalar_buffer' => "",
+            'child_handle' => $child_out,
+            'block_size' => ($child_out->stat)[11] || 1024,
+          },
+        $child_err->fileno => {
+            'parent_socket' => $opts->{'parent_stderr'},
+            'scalar_buffer' => "",
+            'child_handle' => $child_err,
+            'block_size' => ($child_err->stat)[11] || 1024,
+          },
+        };
+
+    my $select = IO::Select->new();
+    $select->add($child_out, $child_err);
+
+    # pass any signal to the child
+    # effectively creating process
+    # strongly attached to the child:
+    # it will terminate only after child
+    # has terminated (except for SIGKILL,
+    # which is specially handled)
+    foreach my $s (keys %SIG) {
+        my $sig_handler;
+        $sig_handler = sub {
+            kill("$s", $pid);
+            $SIG{$s} = $sig_handler;
+        };
+        $SIG{$s} = $sig_handler;
+    }
+
+    my $child_finished = 0;
+
+    my $real_exit;
+    my $exit_value;
+
+    while(!$child_finished) {
+
+        # parent was killed otherwise we would have got
+        # the same signal as parent and process it same way
+        if (getppid() eq "1") {
+
+          # end my process group with all the children
+          # (i am the process group leader, so my pid
+          # equals to the process group id)
+          #
+          # same thing which is done
+          # with $opts->{'clean_up_children'}
+          # in run_forked
+          #
+          kill(-9, $$);
+
+          POSIX::_exit 1;
+        }
+
+        my $waitpid = waitpid($pid, POSIX::WNOHANG);
+
+        # child finished, catch it's exit status
+        if ($waitpid ne 0 && $waitpid ne -1) {
+          $real_exit = $?;
+          $exit_value = $? >> 8;
+        }
+
+        if ($waitpid eq -1) {
+          $child_finished = 1;
+        }
+
+
+        my $ready_fds = [];
+        push @{$ready_fds}, $select->can_read(1/100);
+
+        READY_FDS: while (scalar(@{$ready_fds})) {
+            my $fd = shift @{$ready_fds};
+            $ready_fds = [grep {$_ ne $fd} @{$ready_fds}];
+
+            my $str = $child_output->{$fd->fileno};
+            Carp::confess("child stream not found: $fd") unless $str;
+
+            my $data;
+            my $count = $fd->sysread($data, $str->{'block_size'});
+
+            if ($count) {
+                if ($str->{'parent_socket'}) {
+                    my $ph = $str->{'parent_socket'};
+                    print $ph $data;
+                }
+                else {
+                    $str->{'scalar_buffer'} .= $data;
+                }
+            }
+            elsif ($count eq 0) {
+                $select->remove($fd);
+                $fd->close();
+            }
+            else {
+                Carp::confess("error during sysread: " . $!);
+            }
+
+            push @{$ready_fds}, $select->can_read(1/100) if $child_finished;
+        }
+
+        Time::HiRes::usleep(1);
+    }
+
+    # since we've successfully reaped the child,
+    # let our parent know about this.
+    #
+    if ($opts->{'parent_info'}) {
+        my $ps = $opts->{'parent_info'};
+
+        # child was killed, inform parent
+        if ($real_exit & 127) {
+          print $ps "$pid killed with " . ($real_exit & 127) . "\n";
+        }
+
+        print $ps "reaped $pid\n";
+    }
+
+    if ($opts->{'parent_stdout'} || $opts->{'parent_stderr'}) {
+        return $exit_value;
+    }
+    else {
+        return {
+            'stdout' => $child_output->{$child_output->{'out'}}->{'scalar_buffer'},
+            'stderr' => $child_output->{$child_output->{'err'}}->{'scalar_buffer'},
+            'exit_code' => $exit_value,
+            };
+    }
+}
+
+=head2 $hashref = run_forked( COMMAND, { child_stdin => SCALAR, timeout => DIGIT, stdout_handler => CODEREF, stderr_handler => CODEREF} );
+
+C<run_forked> is used to execute some program or a coderef,
+optionally feed it with some input, get its return code
+and output (both stdout and stderr into separate buffers).
+In addition, it allows to terminate the program
+if it takes too long to finish.
+
+The important and distinguishing feature of run_forked
+is execution timeout which at first seems to be
+quite a simple task but if you think
+that the program which you're spawning
+might spawn some children itself (which
+in their turn could do the same and so on)
+it turns out to be not a simple issue.
+
+C<run_forked> is designed to survive and
+successfully terminate almost any long running task,
+even a fork bomb in case your system has the resources
+to survive during given timeout.
+
+This is achieved by creating separate watchdog process
+which spawns the specified program in a separate
+process session and supervises it: optionally
+feeds it with input, stores its exit code,
+stdout and stderr, terminates it in case
+it runs longer than specified.
+
+Invocation requires the command to be executed or a coderef and optionally a hashref of options:
+
+=over
+
+=item C<timeout>
+
+Specify in seconds how long to run the command before it is killed with SIG_KILL (9),
+which effectively terminates it and all of its children (direct or indirect).
+
+=item C<child_stdin>
+
+Specify some text that will be passed into the C<STDIN> of the executed program.
+
+=item C<stdout_handler>
+
+Coderef of a subroutine to call when a portion of data is received on
+STDOUT from the executing program.
+
+=item C<stderr_handler>
+
+Coderef of a subroutine to call when a portion of data is received on
+STDERR from the executing program.
+
+
+=item C<discard_output>
+
+Discards the buffering of the standard output and standard errors for return by run_forked().
+With this option you have to use the std*_handlers to read what the command outputs.
+Useful for commands that send a lot of output.
+
+=item C<terminate_on_parent_sudden_death>
+
+Enable this option if you wish all spawned processes to be killed if the initially spawned
+process (the parent) is killed or dies without waiting for child processes.
+
+=back
+
+C<run_forked> will return a HASHREF with the following keys:
+
+=over
+
+=item C<exit_code>
+
+The exit code of the executed program.
+
+=item C<timeout>
+
+The number of seconds the program ran for before being terminated, or 0 if no timeout occurred.
+
+=item C<stdout>
+
+Holds the standard output of the executed command (or empty string if
+there was no STDOUT output or if C<discard_output> was used; it's always defined!)
+
+=item C<stderr>
+
+Holds the standard error of the executed command (or empty string if
+there was no STDERR output or if C<discard_output> was used; it's always defined!)
+
+=item C<merged>
+
+Holds the standard output and error of the executed command merged into one stream
+(or empty string if there was no output at all or if C<discard_output> was used; it's always defined!)
+
+=item C<err_msg>
+
+Holds some explanation in the case of an error.
+
+=back
+
+=cut
+
+sub run_forked {
+    ### container to store things in
+    my $self = bless {}, __PACKAGE__;
+
+    if (!can_use_run_forked()) {
+        Carp::carp("run_forked is not available: $CAN_USE_RUN_FORKED");
+        return;
+    }
+
+    require POSIX;
+
+    my ($cmd, $opts) = @_;
+    if (ref($cmd) eq 'ARRAY') {
+        $cmd = join(" ", @{$cmd});
+    }
+
+    if (!$cmd) {
+        Carp::carp("run_forked expects command to run");
+        return;
+    }
+
+    $opts = {} unless $opts;
+    $opts->{'timeout'} = 0 unless $opts->{'timeout'};
+    $opts->{'terminate_wait_time'} = 2 unless defined($opts->{'terminate_wait_time'});
+
+    # turned on by default
+    $opts->{'clean_up_children'} = 1 unless defined($opts->{'clean_up_children'});
+
+    # sockets to pass child stdout to parent
+    my $child_stdout_socket;
+    my $parent_stdout_socket;
+
+    # sockets to pass child stderr to parent
+    my $child_stderr_socket;
+    my $parent_stderr_socket;
+
+    # sockets for child -> parent internal communication
+    my $child_info_socket;
+    my $parent_info_socket;
+
+    socketpair($child_stdout_socket, $parent_stdout_socket, &Socket::AF_UNIX, &Socket::SOCK_STREAM, &Socket::PF_UNSPEC) ||
+      Carp::confess ("socketpair: $!");
+    socketpair($child_stderr_socket, $parent_stderr_socket, &Socket::AF_UNIX, &Socket::SOCK_STREAM, &Socket::PF_UNSPEC) ||
+      Carp::confess ("socketpair: $!");
+    socketpair($child_info_socket, $parent_info_socket, &Socket::AF_UNIX, &Socket::SOCK_STREAM, &Socket::PF_UNSPEC) ||
+      Carp::confess ("socketpair: $!");
+
+    $child_stdout_socket->autoflush(1);
+    $parent_stdout_socket->autoflush(1);
+    $child_stderr_socket->autoflush(1);
+    $parent_stderr_socket->autoflush(1);
+    $child_info_socket->autoflush(1);
+    $parent_info_socket->autoflush(1);
+
+    my $start_time = get_monotonic_time();
+
+    my $pid;
+    if ($pid = fork) {
+
+      # we are a parent
+      close($parent_stdout_socket);
+      close($parent_stderr_socket);
+      close($parent_info_socket);
+
+      my $flags;
+
+      # prepare sockets to read from child
+
+      $flags = 0;
+      fcntl($child_stdout_socket, POSIX::F_GETFL, $flags) || Carp::confess "can't fnctl F_GETFL: $!";
+      $flags |= POSIX::O_NONBLOCK;
+      fcntl($child_stdout_socket, POSIX::F_SETFL, $flags) || Carp::confess "can't fnctl F_SETFL: $!";
+
+      $flags = 0;
+      fcntl($child_stderr_socket, POSIX::F_GETFL, $flags) || Carp::confess "can't fnctl F_GETFL: $!";
+      $flags |= POSIX::O_NONBLOCK;
+      fcntl($child_stderr_socket, POSIX::F_SETFL, $flags) || Carp::confess "can't fnctl F_SETFL: $!";
+
+      $flags = 0;
+      fcntl($child_info_socket, POSIX::F_GETFL, $flags) || Carp::confess "can't fnctl F_GETFL: $!";
+      $flags |= POSIX::O_NONBLOCK;
+      fcntl($child_info_socket, POSIX::F_SETFL, $flags) || Carp::confess "can't fnctl F_SETFL: $!";
+
+  #    print "child $pid started\n";
+
+      my $child_output = {
+        $child_stdout_socket->fileno => {
+          'scalar_buffer' => "",
+          'child_handle' => $child_stdout_socket,
+          'block_size' => ($child_stdout_socket->stat)[11] || 1024,
+          'protocol' => 'stdout',
+          },
+        $child_stderr_socket->fileno => {
+          'scalar_buffer' => "",
+          'child_handle' => $child_stderr_socket,
+          'block_size' => ($child_stderr_socket->stat)[11] || 1024,
+          'protocol' => 'stderr',
+          },
+        $child_info_socket->fileno => {
+          'scalar_buffer' => "",
+          'child_handle' => $child_info_socket,
+          'block_size' => ($child_info_socket->stat)[11] || 1024,
+          'protocol' => 'info',
+          },
+        };
+
+      my $select = IO::Select->new();
+      $select->add($child_stdout_socket, $child_stderr_socket, $child_info_socket);
+
+      my $child_timedout = 0;
+      my $child_finished = 0;
+      my $child_stdout = '';
+      my $child_stderr = '';
+      my $child_merged = '';
+      my $child_exit_code = 0;
+      my $child_killed_by_signal = 0;
+      my $parent_died = 0;
+
+      my $last_parent_check = 0;
+      my $got_sig_child = 0;
+      my $got_sig_quit = 0;
+      my $orig_sig_child = $SIG{'CHLD'};
+
+      $SIG{'CHLD'} = sub { $got_sig_child = get_monotonic_time(); };
+
+      if ($opts->{'terminate_on_signal'}) {
+        install_layered_signal($opts->{'terminate_on_signal'}, sub { $got_sig_quit = time(); });
+      }
+
+      my $child_child_pid;
+      my $now;
+      my $previous_monotonic_value;
+
+      while (!$child_finished) {
+        $previous_monotonic_value = $now;
+        $now = get_monotonic_time();
+
+        adjust_monotonic_start_time([\$start_time, \$last_parent_check, \$got_sig_child], $now, $previous_monotonic_value);
+
+        if ($opts->{'terminate_on_parent_sudden_death'}) {
+          # check for parent once each five seconds
+          if ($now > $last_parent_check + 5) {
+            if (getppid() eq "1") {
+              kill_gently ($pid, {
+                'first_kill_type' => 'process_group',
+                'final_kill_type' => 'process_group',
+                'wait_time' => $opts->{'terminate_wait_time'}
+                });
+              $parent_died = 1;
+            }
+
+            $last_parent_check = $now;
+          }
+        }
+
+        # user specified timeout
+        if ($opts->{'timeout'}) {
+          if ($now > $start_time + $opts->{'timeout'}) {
+            kill_gently ($pid, {
+              'first_kill_type' => 'process_group',
+              'final_kill_type' => 'process_group',
+              'wait_time' => $opts->{'terminate_wait_time'}
+              });
+            $child_timedout = 1;
+          }
+        }
+
+        # give OS 10 seconds for correct return of waitpid,
+        # kill process after that and finish wait loop;
+        # shouldn't ever happen -- remove this code?
+        if ($got_sig_child) {
+          if ($now > $got_sig_child + 10) {
+            print STDERR "waitpid did not return -1 for 10 seconds after SIG_CHLD, killing [$pid]\n";
+            kill (-9, $pid);
+            $child_finished = 1;
+          }
+        }
+
+        if ($got_sig_quit) {
+          kill_gently ($pid, {
+            'first_kill_type' => 'process_group',
+            'final_kill_type' => 'process_group',
+            'wait_time' => $opts->{'terminate_wait_time'}
+            });
+          $child_finished = 1;
+        }
+
+        my $waitpid = waitpid($pid, POSIX::WNOHANG);
+
+        # child finished, catch it's exit status
+        if ($waitpid ne 0 && $waitpid ne -1) {
+          $child_exit_code = $? >> 8;
+        }
+
+        if ($waitpid eq -1) {
+          $child_finished = 1;
+        }
+
+        my $ready_fds = [];
+        push @{$ready_fds}, $select->can_read(1/100);
+
+        READY_FDS: while (scalar(@{$ready_fds})) {
+          my $fd = shift @{$ready_fds};
+          $ready_fds = [grep {$_ ne $fd} @{$ready_fds}];
+
+          my $str = $child_output->{$fd->fileno};
+          Carp::confess("child stream not found: $fd") unless $str;
+
+          my $data = "";
+          my $count = $fd->sysread($data, $str->{'block_size'});
+
+          if ($count) {
+              # extract all the available lines and store the rest in temporary buffer
+              if ($data =~ /(.+\n)([^\n]*)/so) {
+                  $data = $str->{'scalar_buffer'} . $1;
+                  $str->{'scalar_buffer'} = $2 || "";
+              }
+              else {
+                  $str->{'scalar_buffer'} .= $data;
+                  $data = "";
+              }
+          }
+          elsif ($count eq 0) {
+            $select->remove($fd);
+            $fd->close();
+            if ($str->{'scalar_buffer'}) {
+                $data = $str->{'scalar_buffer'} . "\n";
+            }
+          }
+          else {
+            Carp::confess("error during sysread on [$fd]: " . $!);
+          }
+
+          # $data contains only full lines (or last line if it was unfinished read
+          # or now new-line in the output of the child); dat is processed
+          # according to the "protocol" of socket
+          if ($str->{'protocol'} eq 'info') {
+            if ($data =~ /^spawned ([0-9]+?)\n(.*?)/so) {
+              $child_child_pid = $1;
+              $data = $2;
+            }
+            if ($data =~ /^reaped ([0-9]+?)\n(.*?)/so) {
+              $child_child_pid = undef;
+              $data = $2;
+            }
+            if ($data =~ /^[\d]+ killed with ([0-9]+?)\n(.*?)/so) {
+              $child_killed_by_signal = $1;
+              $data = $2;
+            }
+
+            # we don't expect any other data in info socket, so it's
+            # some strange violation of protocol, better know about this
+            if ($data) {
+              Carp::confess("info protocol violation: [$data]");
+            }
+          }
+          if ($str->{'protocol'} eq 'stdout') {
+            if (!$opts->{'discard_output'}) {
+              $child_stdout .= $data;
+              $child_merged .= $data;
+            }
+
+            if ($opts->{'stdout_handler'} && ref($opts->{'stdout_handler'}) eq 'CODE') {
+              $opts->{'stdout_handler'}->($data);
+            }
+          }
+          if ($str->{'protocol'} eq 'stderr') {
+            if (!$opts->{'discard_output'}) {
+              $child_stderr .= $data;
+              $child_merged .= $data;
+            }
+
+            if ($opts->{'stderr_handler'} && ref($opts->{'stderr_handler'}) eq 'CODE') {
+              $opts->{'stderr_handler'}->($data);
+            }
+          }
+ 
+          # process may finish (waitpid returns -1) before
+          # we've read all of its output because of buffering;
+          # so try to read all the way it is possible to read
+          # in such case - this shouldn't be too much (unless
+          # the buffer size is HUGE -- should introduce
+          # another counter in such case, maybe later)
+          #
+          push @{$ready_fds}, $select->can_read(1/100) if $child_finished;
+        }
+
+        Time::HiRes::usleep(1);
+      }
+
+      # $child_pid_pid is not defined in two cases:
+      #  * when our child was killed before
+      #    it had chance to tell us the pid
+      #    of the child it spawned. we can do
+      #    nothing in this case :(
+      #  * our child successfully reaped its child,
+      #    we have nothing left to do in this case
+      #
+      # defined $child_pid_pid means child's child
+      # has not died but nobody is waiting for it,
+      # killing it brutally.
+      #
+      if ($child_child_pid) {
+        kill_gently($child_child_pid);
+      }
+
+      # in case there are forks in child which
+      # do not forward or process signals (TERM) correctly
+      # kill whole child process group, effectively trying
+      # not to return with some children or their parts still running
+      #
+      # to be more accurate -- we need to be sure
+      # that this is process group created by our child
+      # (and not some other process group with the same pgid,
+      # created just after death of our child) -- fortunately
+      # this might happen only when process group ids
+      # are reused quickly (there are lots of processes
+      # spawning new process groups for example)
+      #
+      if ($opts->{'clean_up_children'}) {
+        kill(-9, $pid);
+      }
+
+  #    print "child $pid finished\n";
+
+      close($child_stdout_socket);
+      close($child_stderr_socket);
+      close($child_info_socket);
+
+      my $o = {
+        'stdout' => $child_stdout,
+        'stderr' => $child_stderr,
+        'merged' => $child_merged,
+        'timeout' => $child_timedout ? $opts->{'timeout'} : 0,
+        'exit_code' => $child_exit_code,
+        'parent_died' => $parent_died,
+        'killed_by_signal' => $child_killed_by_signal,
+        'child_pgid' => $pid,
+        'cmd' => $cmd,
+        };
+
+      my $err_msg = '';
+      if ($o->{'exit_code'}) {
+        $err_msg .= "exited with code [$o->{'exit_code'}]\n";
+      }
+      if ($o->{'timeout'}) {
+        $err_msg .= "ran more than [$o->{'timeout'}] seconds\n";
+      }
+      if ($o->{'parent_died'}) {
+        $err_msg .= "parent died\n";
+      }
+      if ($o->{'stdout'} && !$opts->{'non_empty_stdout_ok'}) {
+        $err_msg .= "stdout:\n" . $o->{'stdout'} . "\n";
+      }
+      if ($o->{'stderr'}) {
+        $err_msg .= "stderr:\n" . $o->{'stderr'} . "\n";
+      }
+      if ($o->{'killed_by_signal'}) {
+        $err_msg .= "killed by signal [" . $o->{'killed_by_signal'} . "]\n";
+      }
+      $o->{'err_msg'} = $err_msg;
+
+      if ($orig_sig_child) {
+        $SIG{'CHLD'} = $orig_sig_child;
+      }
+      else {
+        delete($SIG{'CHLD'});
+      }
+
+      return $o;
+    }
+    else {
+      Carp::confess("cannot fork: $!") unless defined($pid);
+
+      # create new process session for open3 call,
+      # so we hopefully can kill all the subprocesses
+      # which might be spawned in it (except for those
+      # which do setsid theirselves -- can't do anything
+      # with those)
+
+      POSIX::setsid() || Carp::confess("Error running setsid: " . $!);
+
+      if ($opts->{'child_BEGIN'} && ref($opts->{'child_BEGIN'}) eq 'CODE') {
+        $opts->{'child_BEGIN'}->();
+      }
+
+      close($child_stdout_socket);
+      close($child_stderr_socket);
+      close($child_info_socket);
+
+      my $child_exit_code;
+
+      # allow both external programs
+      # and internal perl calls
+      if (!ref($cmd)) {
+        $child_exit_code = open3_run($cmd, {
+          'parent_info' => $parent_info_socket,
+          'parent_stdout' => $parent_stdout_socket,
+          'parent_stderr' => $parent_stderr_socket,
+          'child_stdin' => $opts->{'child_stdin'},
+          });
+      }
+      elsif (ref($cmd) eq 'CODE') {
+        # reopen STDOUT and STDERR for child code:
+        # https://rt.cpan.org/Ticket/Display.html?id=85912
+        open STDOUT, '>&', $parent_stdout_socket || Carp::confess("Unable to reopen STDOUT: $!\n");
+        open STDERR, '>&', $parent_stderr_socket || Carp::confess("Unable to reopen STDERR: $!\n");
+
+        $child_exit_code = $cmd->({
+          'opts' => $opts,
+          'parent_info' => $parent_info_socket,
+          'parent_stdout' => $parent_stdout_socket,
+          'parent_stderr' => $parent_stderr_socket,
+          'child_stdin' => $opts->{'child_stdin'},
+          });
+      }
+      else {
+        print $parent_stderr_socket "Invalid command reference: " . ref($cmd) . "\n";
+        $child_exit_code = 1;
+      }
+
+      close($parent_stdout_socket);
+      close($parent_stderr_socket);
+      close($parent_info_socket);
+
+      if ($opts->{'child_END'} && ref($opts->{'child_END'}) eq 'CODE') {
+        $opts->{'child_END'}->();
+      }
+
+      $| = 1;
+      POSIX::_exit $child_exit_code;
+    }
+}
+
+sub run {
+    ### container to store things in
+    my $self = bless {}, __PACKAGE__;
+
+    my %hash = @_;
+
+    ### if the user didn't provide a buffer, we'll store it here.
+    my $def_buf = '';
+
+    my($verbose,$cmd,$buffer,$timeout);
+    my $tmpl = {
+        verbose => { default  => $VERBOSE,  store => \$verbose },
+        buffer  => { default  => \$def_buf, store => \$buffer },
+        command => { required => 1,         store => \$cmd,
+                     allow    => sub { !ref($_[0]) or ref($_[0]) eq 'ARRAY' },
+        },
+        timeout => { default  => 0,         store => \$timeout },
+    };
+
+    unless( check( $tmpl, \%hash, $VERBOSE ) ) {
+        Carp::carp( loc( "Could not validate input: %1",
+                         Params::Check->last_error ) );
+        return;
+    };
+
+    $cmd = _quote_args_vms( $cmd ) if IS_VMS;
+
+    ### strip any empty elements from $cmd if present
+    if ( $ALLOW_NULL_ARGS ) {
+      $cmd = [ grep { defined } @$cmd ] if ref $cmd;
+    }
+    else {
+      $cmd = [ grep { defined && length } @$cmd ] if ref $cmd;
+    }
+
+    my $pp_cmd = (ref $cmd ? "@$cmd" : $cmd);
+    print loc("Running [%1]...\n", $pp_cmd ) if $verbose;
+
+    ### did the user pass us a buffer to fill or not? if so, set this
+    ### flag so we know what is expected of us
+    ### XXX this is now being ignored. in the future, we could add diagnostic
+    ### messages based on this logic
+    #my $user_provided_buffer = $buffer == \$def_buf ? 0 : 1;
+
+    ### buffers that are to be captured
+    my( @buffer, @buff_err, @buff_out );
+
+    ### capture STDOUT
+    my $_out_handler = sub {
+        my $buf = shift;
+        return unless defined $buf;
+
+        print STDOUT $buf if $verbose;
+        push @buffer,   $buf;
+        push @buff_out, $buf;
+    };
+
+    ### capture STDERR
+    my $_err_handler = sub {
+        my $buf = shift;
+        return unless defined $buf;
+
+        print STDERR $buf if $verbose;
+        push @buffer,   $buf;
+        push @buff_err, $buf;
+    };
+
+
+    ### flag to indicate we have a buffer captured
+    my $have_buffer = $self->can_capture_buffer ? 1 : 0;
+
+    ### flag indicating if the subcall went ok
+    my $ok;
+
+    ### don't look at previous errors:
+    local $?;
+    local $@;
+    local $!;
+
+    ### we might be having a timeout set
+    eval {
+        local $SIG{ALRM} = sub { die bless sub {
+            ALARM_CLASS .
+            qq[: Command '$pp_cmd' aborted by alarm after $timeout seconds]
+        }, ALARM_CLASS } if $timeout;
+        alarm $timeout || 0;
+
+        ### IPC::Run is first choice if $USE_IPC_RUN is set.
+        if( !IS_WIN32 and $USE_IPC_RUN and $self->can_use_ipc_run( 1 ) ) {
+            ### ipc::run handlers needs the command as a string or an array ref
+
+            $self->_debug( "# Using IPC::Run. Have buffer: $have_buffer" )
+                if $DEBUG;
+
+            $ok = $self->_ipc_run( $cmd, $_out_handler, $_err_handler );
+
+        ### since IPC::Open3 works on all platforms, and just fails on
+        ### win32 for capturing buffers, do that ideally
+        } elsif ( $USE_IPC_OPEN3 and $self->can_use_ipc_open3( 1 ) ) {
+
+            $self->_debug("# Using IPC::Open3. Have buffer: $have_buffer")
+                if $DEBUG;
+
+            ### in case there are pipes in there;
+            ### IPC::Open3 will call exec and exec will do the right thing
+
+            my $method = IS_WIN32 ? '_open3_run_win32' : '_open3_run';
+
+            $ok = $self->$method(
+                                    $cmd, $_out_handler, $_err_handler, $verbose
+                                );
+
+        ### if we are allowed to run verbose, just dispatch the system command
+        } else {
+            $self->_debug( "# Using system(). Have buffer: $have_buffer" )
+                if $DEBUG;
+            $ok = $self->_system_run( $cmd, $verbose );
+        }
+
+        alarm 0;
+    };
+
+    ### restore STDIN after duping, or STDIN will be closed for
+    ### this current perl process!
+    $self->__reopen_fds( @{ $self->_fds} ) if $self->_fds;
+
+    my $err;
+    unless( $ok ) {
+        ### alarm happened
+        if ( $@ and ref $@ and $@->isa( ALARM_CLASS ) ) {
+            $err = $@->();  # the error code is an expired alarm
+
+        ### another error happened, set by the dispatchub
+        } else {
+            $err = $self->error;
+        }
+    }
+
+    ### fill the buffer;
+    $$buffer = join '', @buffer if @buffer;
+
+    ### return a list of flags and buffers (if available) in list
+    ### context, or just a simple 'ok' in scalar
+    return wantarray
+                ? $have_buffer
+                    ? ($ok, $err, \@buffer, \@buff_out, \@buff_err)
+                    : ($ok, $err )
+                : $ok
+
+
+}
+
+sub _open3_run_win32 {
+  my $self    = shift;
+  my $cmd     = shift;
+  my $outhand = shift;
+  my $errhand = shift;
+
+  require Socket;
+
+  my $pipe = sub {
+    socketpair($_[0], $_[1], &Socket::AF_UNIX, &Socket::SOCK_STREAM, &Socket::PF_UNSPEC)
+        or return undef;
+    shutdown($_[0], 1);  # No more writing for reader
+    shutdown($_[1], 0);  # No more reading for writer
+    return 1;
+  };
+
+  my $open3 = sub {
+    local (*TO_CHLD_R,     *TO_CHLD_W);
+    local (*FR_CHLD_R,     *FR_CHLD_W);
+    local (*FR_CHLD_ERR_R, *FR_CHLD_ERR_W);
+
+    $pipe->(*TO_CHLD_R,     *TO_CHLD_W    ) or die $^E;
+    $pipe->(*FR_CHLD_R,     *FR_CHLD_W    ) or die $^E;
+    $pipe->(*FR_CHLD_ERR_R, *FR_CHLD_ERR_W) or die $^E;
+
+    my $pid = IPC::Open3::open3('>&TO_CHLD_R', '<&FR_CHLD_W', '<&FR_CHLD_ERR_W', @_);
+
+    return ( $pid, *TO_CHLD_W, *FR_CHLD_R, *FR_CHLD_ERR_R );
+  };
+
+  $cmd = [ grep { defined && length } @$cmd ] if ref $cmd;
+  $cmd = $self->__fix_cmd_whitespace_and_special_chars( $cmd );
+
+  my ($pid, $to_chld, $fr_chld, $fr_chld_err) =
+    $open3->( ( ref $cmd ? @$cmd : $cmd ) );
+
+  my $in_sel  = IO::Select->new();
+  my $out_sel = IO::Select->new();
+
+  my %objs;
+
+  $objs{ fileno( $fr_chld ) } = $outhand;
+  $objs{ fileno( $fr_chld_err ) } = $errhand;
+  $in_sel->add( $fr_chld );
+  $in_sel->add( $fr_chld_err );
+
+  close($to_chld);
+
+  while ($in_sel->count() + $out_sel->count()) {
+    my ($ins, $outs) = IO::Select::select($in_sel, $out_sel, undef);
+
+    for my $fh (@$ins) {
+        my $obj = $objs{ fileno($fh) };
+        my $buf;
+        my $bytes_read = sysread($fh, $buf, 64*1024 ); #, length($buf));
+        if (!$bytes_read) {
+            $in_sel->remove($fh);
+        }
+        else {
+            $obj->( "$buf" );
+        }
+      }
+
+      for my $fh (@$outs) {
+      }
+  }
+
+  waitpid($pid, 0);
+
+  ### some error occurred
+  if( $? ) {
+        $self->error( $self->_pp_child_error( $cmd, $? ) );
+        $self->ok( 0 );
+        return;
+  } else {
+        return $self->ok( 1 );
+  }
+}
+
+sub _open3_run {
+    my $self            = shift;
+    my $cmd             = shift;
+    my $_out_handler    = shift;
+    my $_err_handler    = shift;
+    my $verbose         = shift || 0;
+
+    ### Following code are adapted from Friar 'abstracts' in the
+    ### Perl Monastery (http://www.perlmonks.org/index.pl?node_id=151886).
+    ### XXX that code didn't work.
+    ### we now use the following code, thanks to theorbtwo
+
+    ### define them beforehand, so we always have defined FH's
+    ### to read from.
+    use Symbol;
+    my $kidout      = Symbol::gensym();
+    my $kiderror    = Symbol::gensym();
+
+    ### Dup the filehandle so we can pass 'our' STDIN to the
+    ### child process. This stops us from having to pump input
+    ### from ourselves to the childprocess. However, we will need
+    ### to revive the FH afterwards, as IPC::Open3 closes it.
+    ### We'll do the same for STDOUT and STDERR. It works without
+    ### duping them on non-unix derivatives, but not on win32.
+    my @fds_to_dup = ( IS_WIN32 && !$verbose
+                            ? qw[STDIN STDOUT STDERR]
+                            : qw[STDIN]
+                        );
+    $self->_fds( \@fds_to_dup );
+    $self->__dup_fds( @fds_to_dup );
+
+    ### pipes have to come in a quoted string, and that clashes with
+    ### whitespace. This sub fixes up such commands so they run properly
+    $cmd = $self->__fix_cmd_whitespace_and_special_chars( $cmd );
+
+    ### don't stringify @$cmd, so spaces in filenames/paths are
+    ### treated properly
+    my $pid = eval {
+        IPC::Open3::open3(
+                    '<&STDIN',
+                    (IS_WIN32 ? '>&STDOUT' : $kidout),
+                    (IS_WIN32 ? '>&STDERR' : $kiderror),
+                    ( ref $cmd ? @$cmd : $cmd ),
+                );
+    };
+
+    ### open3 error occurred
+    if( $@ and $@ =~ /^open3:/ ) {
+        $self->ok( 0 );
+        $self->error( $@ );
+        return;
+    };
+
+    ### use OUR stdin, not $kidin. Somehow,
+    ### we never get the input.. so jump through
+    ### some hoops to do it :(
+    my $selector = IO::Select->new(
+                        (IS_WIN32 ? \*STDERR : $kiderror),
+                        \*STDIN,
+                        (IS_WIN32 ? \*STDOUT : $kidout)
+                    );
+
+    STDOUT->autoflush(1);   STDERR->autoflush(1);   STDIN->autoflush(1);
+    $kidout->autoflush(1)   if UNIVERSAL::can($kidout,   'autoflush');
+    $kiderror->autoflush(1) if UNIVERSAL::can($kiderror, 'autoflush');
+
+    ### add an explicit break statement
+    ### code courtesy of theorbtwo from #london.pm
+    my $stdout_done = 0;
+    my $stderr_done = 0;
+    OUTER: while ( my @ready = $selector->can_read ) {
+
+        for my $h ( @ready ) {
+            my $buf;
+
+            ### $len is the amount of bytes read
+            my $len = sysread( $h, $buf, 4096 );    # try to read 4096 bytes
+
+            ### see perldoc -f sysread: it returns undef on error,
+            ### so bail out.
+            if( not defined $len ) {
+                warn(loc("Error reading from process: %1", $!));
+                last OUTER;
+            }
+
+            ### check for $len. it may be 0, at which point we're
+            ### done reading, so don't try to process it.
+            ### if we would print anyway, we'd provide bogus information
+            $_out_handler->( "$buf" ) if $len && $h == $kidout;
+            $_err_handler->( "$buf" ) if $len && $h == $kiderror;
+
+            ### Wait till child process is done printing to both
+            ### stdout and stderr.
+            $stdout_done = 1 if $h == $kidout   and $len == 0;
+            $stderr_done = 1 if $h == $kiderror and $len == 0;
+            last OUTER if ($stdout_done && $stderr_done);
+        }
+    }
+
+    waitpid $pid, 0; # wait for it to die
+
+    ### restore STDIN after duping, or STDIN will be closed for
+    ### this current perl process!
+    ### done in the parent call now
+    # $self->__reopen_fds( @fds_to_dup );
+
+    ### some error occurred
+    if( $? ) {
+        $self->error( $self->_pp_child_error( $cmd, $? ) );
+        $self->ok( 0 );
+        return;
+    } else {
+        return $self->ok( 1 );
+    }
+}
+
+### Text::ParseWords::shellwords() uses unix semantics. that will break
+### on win32
+{   my $parse_sub = IS_WIN32
+                        ? __PACKAGE__->can('_split_like_shell_win32')
+                        : Text::ParseWords->can('shellwords');
+
+    sub _ipc_run {
+        my $self            = shift;
+        my $cmd             = shift;
+        my $_out_handler    = shift;
+        my $_err_handler    = shift;
+
+        STDOUT->autoflush(1); STDERR->autoflush(1);
+
+        ### a command like:
+        # [
+        #     '/usr/bin/gzip',
+        #     '-cdf',
+        #     '/Users/kane/sources/p4/other/archive-extract/t/src/x.tgz',
+        #     '|',
+        #     '/usr/bin/tar',
+        #     '-tf -'
+        # ]
+        ### needs to become:
+        # [
+        #     ['/usr/bin/gzip', '-cdf',
+        #       '/Users/kane/sources/p4/other/archive-extract/t/src/x.tgz']
+        #     '|',
+        #     ['/usr/bin/tar', '-tf -']
+        # ]
+
+
+        my @command;
+        my $special_chars;
+
+        my $re = do { my $x = join '', SPECIAL_CHARS; qr/([$x])/ };
+        if( ref $cmd ) {
+            my $aref = [];
+            for my $item (@$cmd) {
+                if( $item =~ $re ) {
+                    push @command, $aref, $item;
+                    $aref = [];
+                    $special_chars .= $1;
+                } else {
+                    push @$aref, $item;
+                }
+            }
+            push @command, $aref;
+        } else {
+            @command = map { if( $_ =~ $re ) {
+                                $special_chars .= $1; $_;
+                             } else {
+#                                [ split /\s+/ ]
+                                 [ map { m/[ ]/ ? qq{'$_'} : $_ } $parse_sub->($_) ]
+                             }
+                        } split( /\s*$re\s*/, $cmd );
+        }
+
+        ### if there's a pipe in the command, *STDIN needs to
+        ### be inserted *BEFORE* the pipe, to work on win32
+        ### this also works on *nix, so we should do it when possible
+        ### this should *also* work on multiple pipes in the command
+        ### if there's no pipe in the command, append STDIN to the back
+        ### of the command instead.
+        ### XXX seems IPC::Run works it out for itself if you just
+        ### don't pass STDIN at all.
+        #     if( $special_chars and $special_chars =~ /\|/ ) {
+        #         ### only add STDIN the first time..
+        #         my $i;
+        #         @command = map { ($_ eq '|' && not $i++)
+        #                             ? ( \*STDIN, $_ )
+        #                             : $_
+        #                         } @command;
+        #     } else {
+        #         push @command, \*STDIN;
+        #     }
+
+        # \*STDIN is already included in the @command, see a few lines up
+        my $ok = eval { IPC::Run::run(   @command,
+                                fileno(STDOUT).'>',
+                                $_out_handler,
+                                fileno(STDERR).'>',
+                                $_err_handler
+                            )
+                        };
+
+        ### all is well
+        if( $ok ) {
+            return $self->ok( $ok );
+
+        ### some error occurred
+        } else {
+            $self->ok( 0 );
+
+            ### if the eval fails due to an exception, deal with it
+            ### unless it's an alarm
+            if( $@ and not UNIVERSAL::isa( $@, ALARM_CLASS ) ) {
+                $self->error( $@ );
+
+            ### if it *is* an alarm, propagate
+            } elsif( $@ ) {
+                die $@;
+
+            ### some error in the sub command
+            } else {
+                $self->error( $self->_pp_child_error( $cmd, $? ) );
+            }
+
+            return;
+        }
+    }
+}
+
+sub _system_run {
+    my $self    = shift;
+    my $cmd     = shift;
+    my $verbose = shift || 0;
+
+    ### pipes have to come in a quoted string, and that clashes with
+    ### whitespace. This sub fixes up such commands so they run properly
+    $cmd = $self->__fix_cmd_whitespace_and_special_chars( $cmd );
+
+    my @fds_to_dup = $verbose ? () : qw[STDOUT STDERR];
+    $self->_fds( \@fds_to_dup );
+    $self->__dup_fds( @fds_to_dup );
+
+    ### system returns 'true' on failure -- the exit code of the cmd
+    $self->ok( 1 );
+    system( ref $cmd ? @$cmd : $cmd ) == 0 or do {
+        $self->error( $self->_pp_child_error( $cmd, $? ) );
+        $self->ok( 0 );
+    };
+
+    ### done in the parent call now
+    #$self->__reopen_fds( @fds_to_dup );
+
+    return unless $self->ok;
+    return $self->ok;
+}
+
+{   my %sc_lookup = map { $_ => $_ } SPECIAL_CHARS;
+
+
+    sub __fix_cmd_whitespace_and_special_chars {
+        my $self = shift;
+        my $cmd  = shift;
+
+        ### command has a special char in it
+        if( ref $cmd and grep { $sc_lookup{$_} } @$cmd ) {
+
+            ### since we have special chars, we have to quote white space
+            ### this *may* conflict with the parsing :(
+            my $fixed;
+            my @cmd = map { / / ? do { $fixed++; QUOTE.$_.QUOTE } : $_ } @$cmd;
+
+            $self->_debug( "# Quoted $fixed arguments containing whitespace" )
+                    if $DEBUG && $fixed;
+
+            ### stringify it, so the special char isn't escaped as argument
+            ### to the program
+            $cmd = join ' ', @cmd;
+        }
+
+        return $cmd;
+    }
+}
+
+### Command-line arguments (but not the command itself) must be quoted
+### to ensure case preservation. Borrowed from Module::Build with adaptations.
+### Patch for this supplied by Craig Berry, see RT #46288: [PATCH] Add argument
+### quoting for run() on VMS
+sub _quote_args_vms {
+  ### Returns a command string with proper quoting so that the subprocess
+  ### sees this same list of args, or if we get a single arg that is an
+  ### array reference, quote the elements of it (except for the first)
+  ### and return the reference.
+  my @args = @_;
+  my $got_arrayref = (scalar(@args) == 1
+                      && UNIVERSAL::isa($args[0], 'ARRAY'))
+                   ? 1
+                   : 0;
+
+  @args = split(/\s+/, $args[0]) unless $got_arrayref || scalar(@args) > 1;
+
+  my $cmd = $got_arrayref ? shift @{$args[0]} : shift @args;
+
+  ### Do not quote qualifiers that begin with '/' or previously quoted args.
+  map { if (/^[^\/\"]/) {
+          $_ =~ s/\"/""/g;     # escape C<"> by doubling
+          $_ = q(").$_.q(");
+        }
+  }
+    ($got_arrayref ? @{$args[0]}
+                   : @args
+    );
+
+  $got_arrayref ? unshift(@{$args[0]}, $cmd) : unshift(@args, $cmd);
+
+  return $got_arrayref ? $args[0]
+                       : join(' ', @args);
+}
+
+
+### XXX this is cribbed STRAIGHT from M::B 0.30 here:
+### http://search.cpan.org/src/KWILLIAMS/Module-Build-0.30/lib/Module/Build/Platform/Windows.pm:split_like_shell
+### XXX this *should* be integrated into text::parsewords
+sub _split_like_shell_win32 {
+  # As it turns out, Windows command-parsing is very different from
+  # Unix command-parsing.  Double-quotes mean different things,
+  # backslashes don't necessarily mean escapes, and so on.  So we
+  # can't use Text::ParseWords::shellwords() to break a command string
+  # into words.  The algorithm below was bashed out by Randy and Ken
+  # (mostly Randy), and there are a lot of regression tests, so we
+  # should feel free to adjust if desired.
+
+  local $_ = shift;
+
+  my @argv;
+  return @argv unless defined() && length();
+
+  my $arg = '';
+  my( $i, $quote_mode ) = ( 0, 0 );
+
+  while ( $i < length() ) {
+
+    my $ch      = substr( $_, $i  , 1 );
+    my $next_ch = substr( $_, $i+1, 1 );
+
+    if ( $ch eq '\\' && $next_ch eq '"' ) {
+      $arg .= '"';
+      $i++;
+    } elsif ( $ch eq '\\' && $next_ch eq '\\' ) {
+      $arg .= '\\';
+      $i++;
+    } elsif ( $ch eq '"' && $next_ch eq '"' && $quote_mode ) {
+      $quote_mode = !$quote_mode;
+      $arg .= '"';
+      $i++;
+    } elsif ( $ch eq '"' && $next_ch eq '"' && !$quote_mode &&
+          ( $i + 2 == length()  ||
+        substr( $_, $i + 2, 1 ) eq ' ' )
+        ) { # for cases like: a"" => [ 'a' ]
+      push( @argv, $arg );
+      $arg = '';
+      $i += 2;
+    } elsif ( $ch eq '"' ) {
+      $quote_mode = !$quote_mode;
+    } elsif ( $ch eq ' ' && !$quote_mode ) {
+      push( @argv, $arg ) if defined( $arg ) && length( $arg );
+      $arg = '';
+      ++$i while substr( $_, $i + 1, 1 ) eq ' ';
+    } else {
+      $arg .= $ch;
+    }
+
+    $i++;
+  }
+
+  push( @argv, $arg ) if defined( $arg ) && length( $arg );
+  return @argv;
+}
+
+
+
+{   use File::Spec;
+    use Symbol;
+
+    my %Map = (
+        STDOUT => [qw|>&|, \*STDOUT, Symbol::gensym() ],
+        STDERR => [qw|>&|, \*STDERR, Symbol::gensym() ],
+        STDIN  => [qw|<&|, \*STDIN,  Symbol::gensym() ],
+    );
+
+    ### dups FDs and stores them in a cache
+    sub __dup_fds {
+        my $self    = shift;
+        my @fds     = @_;
+
+        __PACKAGE__->_debug( "# Closing the following fds: @fds" ) if $DEBUG;
+
+        for my $name ( @fds ) {
+            my($redir, $fh, $glob) = @{$Map{$name}} or (
+                Carp::carp(loc("No such FD: '%1'", $name)), next );
+
+            ### MUST use the 2-arg version of open for dup'ing for
+            ### 5.6.x compatibility. 5.8.x can use 3-arg open
+            ### see perldoc5.6.2 -f open for details
+            open $glob, $redir . fileno($fh) or (
+                        Carp::carp(loc("Could not dup '$name': %1", $!)),
+                        return
+                    );
+
+            ### we should re-open this filehandle right now, not
+            ### just dup it
+            ### Use 2-arg version of open, as 5.5.x doesn't support
+            ### 3-arg version =/
+            if( $redir eq '>&' ) {
+                open( $fh, '>' . File::Spec->devnull ) or (
+                    Carp::carp(loc("Could not reopen '$name': %1", $!)),
+                    return
+                );
+            }
+        }
+
+        return 1;
+    }
+
+    ### reopens FDs from the cache
+    sub __reopen_fds {
+        my $self    = shift;
+        my @fds     = @_;
+
+        __PACKAGE__->_debug( "# Reopening the following fds: @fds" ) if $DEBUG;
+
+        for my $name ( @fds ) {
+            my($redir, $fh, $glob) = @{$Map{$name}} or (
+                Carp::carp(loc("No such FD: '%1'", $name)), next );
+
+            ### MUST use the 2-arg version of open for dup'ing for
+            ### 5.6.x compatibility. 5.8.x can use 3-arg open
+            ### see perldoc5.6.2 -f open for details
+            open( $fh, $redir . fileno($glob) ) or (
+                    Carp::carp(loc("Could not restore '$name': %1", $!)),
+                    return
+                );
+
+            ### close this FD, we're not using it anymore
+            close $glob;
+        }
+        return 1;
+
+    }
+}
+
+sub _debug {
+    my $self    = shift;
+    my $msg     = shift or return;
+    my $level   = shift || 0;
+
+    local $Carp::CarpLevel += $level;
+    Carp::carp($msg);
+
+    return 1;
+}
+
+sub _pp_child_error {
+    my $self    = shift;
+    my $cmd     = shift or return;
+    my $ce      = shift or return;
+    my $pp_cmd  = ref $cmd ? "@$cmd" : $cmd;
+
+
+    my $str;
+    if( $ce == -1 ) {
+        ### Include $! in the error message, so that the user can
+        ### see 'No such file or directory' versus 'Permission denied'
+        ### versus 'Cannot fork' or whatever the cause was.
+        $str = "Failed to execute '$pp_cmd': $!";
+
+    } elsif ( $ce & 127 ) {
+        ### some signal
+        $str = loc( "'%1' died with signal %2, %3 coredump",
+               $pp_cmd, ($ce & 127), ($ce & 128) ? 'with' : 'without');
+
+    } else {
+        ### Otherwise, the command run but gave error status.
+        $str = "'$pp_cmd' exited with value " . ($ce >> 8);
+    }
+
+    $self->_debug( "# Child error '$ce' translated to: $str" ) if $DEBUG;
+
+    return $str;
+}
+
+1;
+
+=head2 $q = QUOTE
+
+Returns the character used for quoting strings on this platform. This is
+usually a C<'> (single quote) on most systems, but some systems use different
+quotes. For example, C<Win32> uses C<"> (double quote).
+
+You can use it as follows:
+
+  use IPC::Cmd qw[run QUOTE];
+  my $cmd = q[echo ] . QUOTE . q[foo bar] . QUOTE;
+
+This makes sure that C<foo bar> is treated as a string, rather than two
+separate arguments to the C<echo> function.
+
+__END__
+
+=head1 HOW IT WORKS
+
+C<run> will try to execute your command using the following logic:
+
+=over 4
+
+=item *
+
+If you have C<IPC::Run> installed, and the variable C<$IPC::Cmd::USE_IPC_RUN>
+is set to true (See the L<"Global Variables"> section) use that to execute
+the command. You will have the full output available in buffers, interactive commands
+are sure to work  and you are guaranteed to have your verbosity
+settings honored cleanly.
+
+=item *
+
+Otherwise, if the variable C<$IPC::Cmd::USE_IPC_OPEN3> is set to true
+(See the L<"Global Variables"> section), try to execute the command using
+L<IPC::Open3>. Buffers will be available on all platforms,
+interactive commands will still execute cleanly, and also your verbosity
+settings will be adhered to nicely;
+
+=item *
+
+Otherwise, if you have the C<verbose> argument set to true, we fall back
+to a simple C<system()> call. We cannot capture any buffers, but
+interactive commands will still work.
+
+=item *
+
+Otherwise we will try and temporarily redirect STDERR and STDOUT, do a
+C<system()> call with your command and then re-open STDERR and STDOUT.
+This is the method of last resort and will still allow you to execute
+your commands cleanly. However, no buffers will be available.
+
+=back
+
+=head1 Global Variables
+
+The behaviour of IPC::Cmd can be altered by changing the following
+global variables:
+
+=head2 $IPC::Cmd::VERBOSE
+
+This controls whether IPC::Cmd will print any output from the
+commands to the screen or not. The default is 0.
+
+=head2 $IPC::Cmd::USE_IPC_RUN
+
+This variable controls whether IPC::Cmd will try to use L<IPC::Run>
+when available and suitable.
+
+=head2 $IPC::Cmd::USE_IPC_OPEN3
+
+This variable controls whether IPC::Cmd will try to use L<IPC::Open3>
+when available and suitable. Defaults to true.
+
+=head2 $IPC::Cmd::WARN
+
+This variable controls whether run-time warnings should be issued, like
+the failure to load an C<IPC::*> module you explicitly requested.
+
+Defaults to true. Turn this off at your own risk.
+
+=head2 $IPC::Cmd::INSTANCES
+
+This variable controls whether C<can_run> will return all instances of
+the binary it finds in the C<PATH> when called in a list context.
+
+Defaults to false, set to true to enable the described behaviour.
+
+=head2 $IPC::Cmd::ALLOW_NULL_ARGS
+
+This variable controls whether C<run> will remove any empty/null arguments
+it finds in command arguments.
+
+Defaults to false, so it will remove null arguments. Set to true to allow
+them.
+
+=head1 Caveats
+
+=over 4
+
+=item Whitespace and IPC::Open3 / system()
+
+When using C<IPC::Open3> or C<system>, if you provide a string as the
+C<command> argument, it is assumed to be appropriately escaped. You can
+use the C<QUOTE> constant to use as a portable quote character (see above).
+However, if you provide an array reference, special rules apply:
+
+If your command contains B<special characters> (< > | &), it will
+be internally stringified before executing the command, to avoid that these
+special characters are escaped and passed as arguments instead of retaining
+their special meaning.
+
+However, if the command contained arguments that contained whitespace,
+stringifying the command would lose the significance of the whitespace.
+Therefore, C<IPC::Cmd> will quote any arguments containing whitespace in your
+command if the command is passed as an arrayref and contains special characters.
+
+=item Whitespace and IPC::Run
+
+When using C<IPC::Run>, if you provide a string as the C<command> argument,
+the string will be split on whitespace to determine the individual elements
+of your command. Although this will usually just Do What You Mean, it may
+break if you have files or commands with whitespace in them.
+
+If you do not wish this to happen, you should provide an array
+reference, where all parts of your command are already separated out.
+Note however, if there are extra or spurious whitespaces in these parts,
+the parser or underlying code may not interpret it correctly, and
+cause an error.
+
+Example:
+The following code
+
+    gzip -cdf foo.tar.gz | tar -xf -
+
+should either be passed as
+
+    "gzip -cdf foo.tar.gz | tar -xf -"
+
+or as
+
+    ['gzip', '-cdf', 'foo.tar.gz', '|', 'tar', '-xf', '-']
+
+But take care not to pass it as, for example
+
+    ['gzip -cdf foo.tar.gz', '|', 'tar -xf -']
+
+Since this will lead to issues as described above.
+
+
+=item IO Redirect
+
+Currently it is too complicated to parse your command for IO
+redirections. For capturing STDOUT or STDERR there is a work around
+however, since you can just inspect your buffers for the contents.
+
+=item Interleaving STDOUT/STDERR
+
+Neither IPC::Run nor IPC::Open3 can interleave STDOUT and STDERR. For short
+bursts of output from a program, e.g. this sample,
+
+    for ( 1..4 ) {
+        $_ % 2 ? print STDOUT $_ : print STDERR $_;
+    }
+
+IPC::[Run|Open3] will first read all of STDOUT, then all of STDERR, meaning
+the output looks like '13' on STDOUT and '24' on STDERR, instead of
+
+    1
+    2
+    3
+    4
+
+This has been recorded in L<rt.cpan.org> as bug #37532: Unable to interleave
+STDOUT and STDERR.
+
+=back
+
+=head1 See Also
+
+L<IPC::Run>, L<IPC::Open3>
+
+=head1 ACKNOWLEDGEMENTS
+
+Thanks to James Mastros and Martijn van der Streek for their
+help in getting L<IPC::Open3> to behave nicely.
+
+Thanks to Petya Kohts for the C<run_forked> code.
+
+=head1 BUG REPORTS
+
+Please report bugs or other issues to E<lt>bug-ipc-cmd@rt.cpan.orgE<gt>.
+
+=head1 AUTHOR
+
+Original author: Jos Boumans E<lt>kane@cpan.orgE<gt>.
+Current maintainer: Chris Williams E<lt>bingos@cpan.orgE<gt>.
+
+=head1 COPYRIGHT
+
+This library is free software; you may redistribute and/or modify it
+under the same terms as Perl itself.
+
+=cut
diff --git a/lib/5.24.1/IPC/Open2.pm b/lib/5.24.1/IPC/Open2.pm
new file mode 100644
index 00000000..9e271445
--- /dev/null
+++ b/lib/5.24.1/IPC/Open2.pm
@@ -0,0 +1,120 @@
+package IPC::Open2;
+
+use strict;
+our ($VERSION, @ISA, @EXPORT);
+
+require 5.000;
+require Exporter;
+
+$VERSION	= 1.04;
+@ISA		= qw(Exporter);
+@EXPORT		= qw(open2);
+
+=head1 NAME
+
+IPC::Open2 - open a process for both reading and writing using open2()
+
+=head1 SYNOPSIS
+
+    use IPC::Open2;
+
+    $pid = open2(\*CHLD_OUT, \*CHLD_IN, 'some cmd and args');
+      # or without using the shell
+    $pid = open2(\*CHLD_OUT, \*CHLD_IN, 'some', 'cmd', 'and', 'args');
+
+    # or with handle autovivification
+    my($chld_out, $chld_in);
+    $pid = open2($chld_out, $chld_in, 'some cmd and args');
+      # or without using the shell
+    $pid = open2($chld_out, $chld_in, 'some', 'cmd', 'and', 'args');
+
+    waitpid( $pid, 0 );
+    my $child_exit_status = $? >> 8;
+
+=head1 DESCRIPTION
+
+The open2() function runs the given $cmd and connects $chld_out for
+reading and $chld_in for writing.  It's what you think should work 
+when you try
+
+    $pid = open(HANDLE, "|cmd args|");
+
+The write filehandle will have autoflush turned on.
+
+If $chld_out is a string (that is, a bareword filehandle rather than a glob
+or a reference) and it begins with C<< >& >>, then the child will send output
+directly to that file handle.  If $chld_in is a string that begins with
+C<< <& >>, then $chld_in will be closed in the parent, and the child will
+read from it directly.  In both cases, there will be a dup(2) instead of a
+pipe(2) made.
+
+If either reader or writer is the null string, this will be replaced
+by an autogenerated filehandle.  If so, you must pass a valid lvalue
+in the parameter slot so it can be overwritten in the caller, or
+an exception will be raised.
+
+open2() returns the process ID of the child process.  It doesn't return on
+failure: it just raises an exception matching C</^open2:/>.  However,
+C<exec> failures in the child are not detected.  You'll have to
+trap SIGPIPE yourself.
+
+open2() does not wait for and reap the child process after it exits.
+Except for short programs where it's acceptable to let the operating system
+take care of this, you need to do this yourself.  This is normally as
+simple as calling C<waitpid $pid, 0> when you're done with the process.
+Failing to do this can result in an accumulation of defunct or "zombie"
+processes.  See L<perlfunc/waitpid> for more information.
+
+This whole affair is quite dangerous, as you may block forever.  It
+assumes it's going to talk to something like B<bc>, both writing
+to it and reading from it.  This is presumably safe because you
+"know" that commands like B<bc> will read a line at a time and
+output a line at a time.  Programs like B<sort> that read their
+entire input stream first, however, are quite apt to cause deadlock.
+
+The big problem with this approach is that if you don't have control 
+over source code being run in the child process, you can't control
+what it does with pipe buffering.  Thus you can't just open a pipe to
+C<cat -v> and continually read and write a line from it.
+
+The IO::Pty and Expect modules from CPAN can help with this, as they
+provide a real tty (well, a pseudo-tty, actually), which gets you
+back to line buffering in the invoked command again.
+
+=head1 WARNING 
+
+The order of arguments differs from that of open3().
+
+=head1 SEE ALSO
+
+See L<IPC::Open3> for an alternative that handles STDERR as well.  This
+function is really just a wrapper around open3().
+
+=cut
+
+# &open2: tom christiansen, <tchrist@convex.com>
+#
+# usage: $pid = open2('rdr', 'wtr', 'some cmd and args');
+#    or  $pid = open2('rdr', 'wtr', 'some', 'cmd', 'and', 'args');
+#
+# spawn the given $cmd and connect $rdr for
+# reading and $wtr for writing.  return pid
+# of child, or 0 on failure.  
+# 
+# WARNING: this is dangerous, as you may block forever
+# unless you are very careful.  
+# 
+# $wtr is left unbuffered.
+# 
+# abort program if
+#	rdr or wtr are null
+# 	a system call fails
+
+require IPC::Open3;
+
+sub open2 {
+    local $Carp::CarpLevel = $Carp::CarpLevel + 1;
+    return IPC::Open3::_open3('open2', $_[1], $_[0], '>&STDERR', @_[2 .. $#_]);
+}
+
+1
diff --git a/lib/5.24.1/IPC/Open3.pm b/lib/5.24.1/IPC/Open3.pm
new file mode 100644
index 00000000..e5924a30
--- /dev/null
+++ b/lib/5.24.1/IPC/Open3.pm
@@ -0,0 +1,433 @@
+package IPC::Open3;
+
+use strict;
+no strict 'refs'; # because users pass me bareword filehandles
+our ($VERSION, @ISA, @EXPORT);
+
+require Exporter;
+
+use Carp;
+use Symbol qw(gensym qualify);
+
+$VERSION	= '1.20';
+@ISA		= qw(Exporter);
+@EXPORT		= qw(open3);
+
+=head1 NAME
+
+IPC::Open3 - open a process for reading, writing, and error handling using open3()
+
+=head1 SYNOPSIS
+
+    $pid = open3(\*CHLD_IN, \*CHLD_OUT, \*CHLD_ERR,
+		    'some cmd and args', 'optarg', ...);
+
+    my($wtr, $rdr, $err);
+    use Symbol 'gensym'; $err = gensym;
+    $pid = open3($wtr, $rdr, $err,
+		    'some cmd and args', 'optarg', ...);
+
+    waitpid( $pid, 0 );
+    my $child_exit_status = $? >> 8;
+
+=head1 DESCRIPTION
+
+Extremely similar to open2(), open3() spawns the given $cmd and
+connects CHLD_OUT for reading from the child, CHLD_IN for writing to
+the child, and CHLD_ERR for errors.  If CHLD_ERR is false, or the
+same file descriptor as CHLD_OUT, then STDOUT and STDERR of the child
+are on the same filehandle (this means that an autovivified lexical
+cannot be used for the STDERR filehandle, see SYNOPSIS).  The CHLD_IN
+will have autoflush turned on.
+
+If CHLD_IN begins with C<< <& >>, then CHLD_IN will be closed in the
+parent, and the child will read from it directly.  If CHLD_OUT or
+CHLD_ERR begins with C<< >& >>, then the child will send output
+directly to that filehandle.  In both cases, there will be a dup(2)
+instead of a pipe(2) made.
+
+If either reader or writer is the null string, this will be replaced
+by an autogenerated filehandle.  If so, you must pass a valid lvalue
+in the parameter slot so it can be overwritten in the caller, or
+an exception will be raised.
+
+The filehandles may also be integers, in which case they are understood
+as file descriptors.
+
+open3() returns the process ID of the child process.  It doesn't return on
+failure: it just raises an exception matching C</^open3:/>.  However,
+C<exec> failures in the child (such as no such file or permission denied),
+are just reported to CHLD_ERR under Windows and OS/2, as it is not possible
+to trap them.
+
+If the child process dies for any reason, the next write to CHLD_IN is
+likely to generate a SIGPIPE in the parent, which is fatal by default.
+So you may wish to handle this signal.
+
+Note if you specify C<-> as the command, in an analogous fashion to
+C<open(FOO, "-|")> the child process will just be the forked Perl
+process rather than an external command.  This feature isn't yet
+supported on Win32 platforms.
+
+open3() does not wait for and reap the child process after it exits.
+Except for short programs where it's acceptable to let the operating system
+take care of this, you need to do this yourself.  This is normally as
+simple as calling C<waitpid $pid, 0> when you're done with the process.
+Failing to do this can result in an accumulation of defunct or "zombie"
+processes.  See L<perlfunc/waitpid> for more information.
+
+If you try to read from the child's stdout writer and their stderr
+writer, you'll have problems with blocking, which means you'll want
+to use select() or the IO::Select, which means you'd best use
+sysread() instead of readline() for normal stuff.
+
+This is very dangerous, as you may block forever.  It assumes it's
+going to talk to something like B<bc>, both writing to it and reading
+from it.  This is presumably safe because you "know" that commands
+like B<bc> will read a line at a time and output a line at a time.
+Programs like B<sort> that read their entire input stream first,
+however, are quite apt to cause deadlock.
+
+The big problem with this approach is that if you don't have control
+over source code being run in the child process, you can't control
+what it does with pipe buffering.  Thus you can't just open a pipe to
+C<cat -v> and continually read and write a line from it.
+
+=head1 See Also
+
+=over 4
+
+=item L<IPC::Open2>
+
+Like Open3 but without STDERR capture.
+
+=item L<IPC::Run>
+
+This is a CPAN module that has better error handling and more facilities
+than Open3.
+
+=back
+
+=head1 WARNING
+
+The order of arguments differs from that of open2().
+
+=cut
+
+# &open3: Marc Horowitz <marc@mit.edu>
+# derived mostly from &open2 by tom christiansen, <tchrist@convex.com>
+# fixed for 5.001 by Ulrich Kunitz <kunitz@mai-koeln.com>
+# ported to Win32 by Ron Schmidt, Merrill Lynch almost ended my career
+# fixed for autovivving FHs, tchrist again
+# allow fd numbers to be used, by Frank Tobin
+# allow '-' as command (c.f. open "-|"), by Adam Spiers <perl@adamspiers.org>
+#
+# usage: $pid = open3('wtr', 'rdr', 'err' 'some cmd and args', 'optarg', ...);
+#
+# spawn the given $cmd and connect rdr for
+# reading, wtr for writing, and err for errors.
+# if err is '', or the same as rdr, then stdout and
+# stderr of the child are on the same fh.  returns pid
+# of child (or dies on failure).
+
+
+# if wtr begins with '<&', then wtr will be closed in the parent, and
+# the child will read from it directly.  if rdr or err begins with
+# '>&', then the child will send output directly to that fd.  In both
+# cases, there will be a dup() instead of a pipe() made.
+
+
+# WARNING: this is dangerous, as you may block forever
+# unless you are very careful.
+#
+# $wtr is left unbuffered.
+#
+# abort program if
+#   rdr or wtr are null
+#   a system call fails
+
+our $Me = 'open3 (bug)';	# you should never see this, it's always localized
+
+# Fatal.pm needs to be fixed WRT prototypes.
+
+sub xpipe {
+    pipe $_[0], $_[1] or croak "$Me: pipe($_[0], $_[1]) failed: $!";
+}
+
+# I tried using a * prototype character for the filehandle but it still
+# disallows a bareword while compiling under strict subs.
+
+sub xopen {
+    open $_[0], $_[1], @_[2..$#_] and return;
+    local $" = ', ';
+    carp "$Me: open(@_) failed: $!";
+}
+
+sub xclose {
+    $_[0] =~ /\A=?(\d+)\z/
+	? do { my $fh; open($fh, $_[1] . '&=' . $1) and close($fh); }
+	: close $_[0]
+	or croak "$Me: close($_[0]) failed: $!";
+}
+
+sub xfileno {
+    return $1 if $_[0] =~ /\A=?(\d+)\z/;  # deal with fh just being an fd
+    return fileno $_[0];
+}
+
+use constant FORCE_DEBUG_SPAWN => 0;
+use constant DO_SPAWN => $^O eq 'os2' || $^O eq 'MSWin32' || FORCE_DEBUG_SPAWN;
+
+sub _open3 {
+    local $Me = shift;
+
+    # simulate autovivification of filehandles because
+    # it's too ugly to use @_ throughout to make perl do it for us
+    # tchrist 5-Mar-00
+
+    # Historically, open3(undef...) has silently worked, so keep
+    # it working.
+    splice @_, 0, 1, undef if \$_[0] == \undef;
+    splice @_, 1, 1, undef if \$_[1] == \undef;
+    unless (eval  {
+	$_[0] = gensym unless defined $_[0] && length $_[0];
+	$_[1] = gensym unless defined $_[1] && length $_[1];
+	1; })
+    {
+	# must strip crud for croak to add back, or looks ugly
+	$@ =~ s/(?<=value attempted) at .*//s;
+	croak "$Me: $@";
+    }
+
+    my @handles = ({ mode => '<', handle => \*STDIN },
+		   { mode => '>', handle => \*STDOUT },
+		   { mode => '>', handle => \*STDERR },
+		  );
+
+    foreach (@handles) {
+	$_->{parent} = shift;
+	$_->{open_as} = gensym;
+    }
+
+    if (@_ > 1 and $_[0] eq '-') {
+	croak "Arguments don't make sense when the command is '-'"
+    }
+
+    $handles[2]{parent} ||= $handles[1]{parent};
+    $handles[2]{dup_of_out} = $handles[1]{parent} eq $handles[2]{parent};
+
+    my $package;
+    foreach (@handles) {
+	$_->{dup} = ($_->{parent} =~ s/^[<>]&//);
+
+	if ($_->{parent} !~ /\A=?(\d+)\z/) {
+	    # force unqualified filehandles into caller's package
+	    $package //= caller 1;
+	    $_->{parent} = qualify $_->{parent}, $package;
+	}
+
+	next if $_->{dup} or $_->{dup_of_out};
+	if ($_->{mode} eq '<') {
+	    xpipe $_->{open_as}, $_->{parent};
+	} else {
+	    xpipe $_->{parent}, $_->{open_as};
+	}
+    }
+
+    my $kidpid;
+    if (!DO_SPAWN) {
+	# Used to communicate exec failures.
+	xpipe my $stat_r, my $stat_w;
+
+	$kidpid = fork;
+	croak "$Me: fork failed: $!" unless defined $kidpid;
+	if ($kidpid == 0) {  # Kid
+	    eval {
+		# A tie in the parent should not be allowed to cause problems.
+		untie *STDIN;
+		untie *STDOUT;
+		untie *STDERR;
+
+		close $stat_r;
+		require Fcntl;
+		my $flags = fcntl $stat_w, &Fcntl::F_GETFD, 0;
+		croak "$Me: fcntl failed: $!" unless $flags;
+		fcntl $stat_w, &Fcntl::F_SETFD, $flags|&Fcntl::FD_CLOEXEC
+		    or croak "$Me: fcntl failed: $!";
+
+		# If she wants to dup the kid's stderr onto her stdout I need to
+		# save a copy of her stdout before I put something else there.
+		if (!$handles[2]{dup_of_out} && $handles[2]{dup}
+			&& xfileno($handles[2]{parent}) == fileno \*STDOUT) {
+		    my $tmp = gensym;
+		    xopen($tmp, '>&', $handles[2]{parent});
+		    $handles[2]{parent} = $tmp;
+		}
+
+		foreach (@handles) {
+		    if ($_->{dup_of_out}) {
+			xopen \*STDERR, ">&STDOUT"
+			    if defined fileno STDERR && fileno STDERR != fileno STDOUT;
+		    } elsif ($_->{dup}) {
+			xopen $_->{handle}, $_->{mode} . '&', $_->{parent}
+			    if fileno $_->{handle} != xfileno($_->{parent});
+		    } else {
+			xclose $_->{parent}, $_->{mode};
+			xopen $_->{handle}, $_->{mode} . '&=',
+			    fileno $_->{open_as};
+		    }
+		}
+		return 1 if ($_[0] eq '-');
+		exec @_ or do {
+		    local($")=(" ");
+		    croak "$Me: exec of @_ failed: $!";
+		};
+	    } and do {
+                close $stat_w;
+                return 0;
+            };
+
+	    my $bang = 0+$!;
+	    my $err = $@;
+	    utf8::encode $err if $] >= 5.008;
+	    print $stat_w pack('IIa*', $bang, length($err), $err);
+	    close $stat_w;
+
+	    eval { require POSIX; POSIX::_exit(255); };
+	    exit 255;
+	}
+	else {  # Parent
+	    close $stat_w;
+	    my $to_read = length(pack('I', 0)) * 2;
+	    my $bytes_read = read($stat_r, my $buf = '', $to_read);
+	    if ($bytes_read) {
+		(my $bang, $to_read) = unpack('II', $buf);
+		read($stat_r, my $err = '', $to_read);
+		waitpid $kidpid, 0; # Reap child which should have exited
+		if ($err) {
+		    utf8::decode $err if $] >= 5.008;
+		} else {
+		    $err = "$Me: " . ($! = $bang);
+		}
+		$! = $bang;
+		die($err);
+	    }
+	}
+    }
+    else {  # DO_SPAWN
+	# All the bookkeeping of coincidence between handles is
+	# handled in spawn_with_handles.
+
+	my @close;
+
+	foreach (@handles) {
+	    if ($_->{dup_of_out}) {
+		$_->{open_as} = $handles[1]{open_as};
+	    } elsif ($_->{dup}) {
+		$_->{open_as} = $_->{parent} =~ /\A[0-9]+\z/
+		    ? $_->{parent} : \*{$_->{parent}};
+		push @close, $_->{open_as};
+	    } else {
+		push @close, \*{$_->{parent}}, $_->{open_as};
+	    }
+	}
+	require IO::Pipe;
+	$kidpid = eval {
+	    spawn_with_handles(\@handles, \@close, @_);
+	};
+	die "$Me: $@" if $@;
+    }
+
+    foreach (@handles) {
+	next if $_->{dup} or $_->{dup_of_out};
+	xclose $_->{open_as}, $_->{mode};
+    }
+
+    # If the write handle is a dup give it away entirely, close my copy
+    # of it.
+    xclose $handles[0]{parent}, $handles[0]{mode} if $handles[0]{dup};
+
+    select((select($handles[0]{parent}), $| = 1)[0]); # unbuffer pipe
+    $kidpid;
+}
+
+sub open3 {
+    if (@_ < 4) {
+	local $" = ', ';
+	croak "open3(@_): not enough arguments";
+    }
+    return _open3 'open3', @_
+}
+
+sub spawn_with_handles {
+    my $fds = shift;		# Fields: handle, mode, open_as
+    my $close_in_child = shift;
+    my ($fd, %saved, @errs);
+
+    foreach $fd (@$fds) {
+	$fd->{tmp_copy} = IO::Handle->new_from_fd($fd->{handle}, $fd->{mode});
+	$saved{fileno $fd->{handle}} = $fd->{tmp_copy} if $fd->{tmp_copy};
+    }
+    foreach $fd (@$fds) {
+	bless $fd->{handle}, 'IO::Handle'
+	    unless eval { $fd->{handle}->isa('IO::Handle') } ;
+	# If some of handles to redirect-to coincide with handles to
+	# redirect, we need to use saved variants:
+    my $open_as = $fd->{open_as};
+    my $fileno = fileno($open_as);
+    $fd->{handle}->fdopen(defined($fileno)
+                  ? $saved{$fileno} || $open_as
+                  : $open_as,
+                  $fd->{mode});
+    }
+    unless ($^O eq 'MSWin32') {
+	require Fcntl;
+	# Stderr may be redirected below, so we save the err text:
+	foreach $fd (@$close_in_child) {
+	    next unless fileno $fd;
+	    fcntl($fd, Fcntl::F_SETFD(), 1) or push @errs, "fcntl $fd: $!"
+		unless $saved{fileno $fd}; # Do not close what we redirect!
+	}
+    }
+
+    my $pid;
+    unless (@errs) {
+	if (FORCE_DEBUG_SPAWN) {
+	    pipe my $r, my $w or die "Pipe failed: $!";
+	    $pid = fork;
+	    die "Fork failed: $!" unless defined $pid;
+	    if (!$pid) {
+		{ no warnings; exec @_ }
+		print $w 0 + $!;
+		close $w;
+		require POSIX;
+		POSIX::_exit(255);
+	    }
+	    close $w;
+	    my $bad = <$r>;
+	    if (defined $bad) {
+		$! = $bad;
+		undef $pid;
+	    }
+	} else {
+	    $pid = eval { system 1, @_ }; # 1 == P_NOWAIT
+	}
+	if($@) {
+	    push @errs, "IO::Pipe: Can't spawn-NOWAIT: $@";
+	} elsif(!$pid || $pid < 0) {
+	    push @errs, "IO::Pipe: Can't spawn-NOWAIT: $!";
+	}
+    }
+
+    # Do this in reverse, so that STDERR is restored first:
+    foreach $fd (reverse @$fds) {
+	$fd->{handle}->fdopen($fd->{tmp_copy}, $fd->{mode});
+    }
+    foreach (values %saved) {
+	$_->close or croak "Can't close: $!";
+    }
+    croak join "\n", @errs if @errs;
+    return $pid;
+}
+
+1; # so require is happy
diff --git a/lib/5.24.1/JSON/PP.pm b/lib/5.24.1/JSON/PP.pm
new file mode 100644
index 00000000..1e29eee0
--- /dev/null
+++ b/lib/5.24.1/JSON/PP.pm
@@ -0,0 +1,2795 @@
+package JSON::PP;
+
+# JSON-2.0
+
+use 5.005;
+use strict;
+use base qw(Exporter);
+use overload ();
+
+use Carp ();
+use B ();
+#use Devel::Peek;
+
+$JSON::PP::VERSION = '2.27300_01';
+
+@JSON::PP::EXPORT = qw(encode_json decode_json from_json to_json);
+
+# instead of hash-access, i tried index-access for speed.
+# but this method is not faster than what i expected. so it will be changed.
+
+use constant P_ASCII                => 0;
+use constant P_LATIN1               => 1;
+use constant P_UTF8                 => 2;
+use constant P_INDENT               => 3;
+use constant P_CANONICAL            => 4;
+use constant P_SPACE_BEFORE         => 5;
+use constant P_SPACE_AFTER          => 6;
+use constant P_ALLOW_NONREF         => 7;
+use constant P_SHRINK               => 8;
+use constant P_ALLOW_BLESSED        => 9;
+use constant P_CONVERT_BLESSED      => 10;
+use constant P_RELAXED              => 11;
+
+use constant P_LOOSE                => 12;
+use constant P_ALLOW_BIGNUM         => 13;
+use constant P_ALLOW_BAREKEY        => 14;
+use constant P_ALLOW_SINGLEQUOTE    => 15;
+use constant P_ESCAPE_SLASH         => 16;
+use constant P_AS_NONBLESSED        => 17;
+
+use constant P_ALLOW_UNKNOWN        => 18;
+
+use constant OLD_PERL => $] < 5.008 ? 1 : 0;
+
+BEGIN {
+    my @xs_compati_bit_properties = qw(
+            latin1 ascii utf8 indent canonical space_before space_after allow_nonref shrink
+            allow_blessed convert_blessed relaxed allow_unknown
+    );
+    my @pp_bit_properties = qw(
+            allow_singlequote allow_bignum loose
+            allow_barekey escape_slash as_nonblessed
+    );
+
+    # Perl version check, Unicode handling is enable?
+    # Helper module sets @JSON::PP::_properties.
+    if ($] < 5.008 ) {
+        my $helper = $] >= 5.006 ? 'JSON::PP::Compat5006' : 'JSON::PP::Compat5005';
+        eval qq| require $helper |;
+        if ($@) { Carp::croak $@; }
+    }
+
+    for my $name (@xs_compati_bit_properties, @pp_bit_properties) {
+        my $flag_name = 'P_' . uc($name);
+
+        eval qq/
+            sub $name {
+                my \$enable = defined \$_[1] ? \$_[1] : 1;
+
+                if (\$enable) {
+                    \$_[0]->{PROPS}->[$flag_name] = 1;
+                }
+                else {
+                    \$_[0]->{PROPS}->[$flag_name] = 0;
+                }
+
+                \$_[0];
+            }
+
+            sub get_$name {
+                \$_[0]->{PROPS}->[$flag_name] ? 1 : '';
+            }
+        /;
+    }
+
+}
+
+
+
+# Functions
+
+my %encode_allow_method
+     = map {($_ => 1)} qw/utf8 pretty allow_nonref latin1 self_encode escape_slash
+                          allow_blessed convert_blessed indent indent_length allow_bignum
+                          as_nonblessed
+                        /;
+my %decode_allow_method
+     = map {($_ => 1)} qw/utf8 allow_nonref loose allow_singlequote allow_bignum
+                          allow_barekey max_size relaxed/;
+
+
+my $JSON; # cache
+
+sub encode_json ($) { # encode
+    ($JSON ||= __PACKAGE__->new->utf8)->encode(@_);
+}
+
+
+sub decode_json { # decode
+    ($JSON ||= __PACKAGE__->new->utf8)->decode(@_);
+}
+
+# Obsoleted
+
+sub to_json($) {
+   Carp::croak ("JSON::PP::to_json has been renamed to encode_json.");
+}
+
+
+sub from_json($) {
+   Carp::croak ("JSON::PP::from_json has been renamed to decode_json.");
+}
+
+
+# Methods
+
+sub new {
+    my $class = shift;
+    my $self  = {
+        max_depth   => 512,
+        max_size    => 0,
+        indent      => 0,
+        FLAGS       => 0,
+        fallback      => sub { encode_error('Invalid value. JSON can only reference.') },
+        indent_length => 3,
+    };
+
+    bless $self, $class;
+}
+
+
+sub encode {
+    return $_[0]->PP_encode_json($_[1]);
+}
+
+
+sub decode {
+    return $_[0]->PP_decode_json($_[1], 0x00000000);
+}
+
+
+sub decode_prefix {
+    return $_[0]->PP_decode_json($_[1], 0x00000001);
+}
+
+
+# accessor
+
+
+# pretty printing
+
+sub pretty {
+    my ($self, $v) = @_;
+    my $enable = defined $v ? $v : 1;
+
+    if ($enable) { # indent_length(3) for JSON::XS compatibility
+        $self->indent(1)->indent_length(3)->space_before(1)->space_after(1);
+    }
+    else {
+        $self->indent(0)->space_before(0)->space_after(0);
+    }
+
+    $self;
+}
+
+# etc
+
+sub max_depth {
+    my $max  = defined $_[1] ? $_[1] : 0x80000000;
+    $_[0]->{max_depth} = $max;
+    $_[0];
+}
+
+
+sub get_max_depth { $_[0]->{max_depth}; }
+
+
+sub max_size {
+    my $max  = defined $_[1] ? $_[1] : 0;
+    $_[0]->{max_size} = $max;
+    $_[0];
+}
+
+
+sub get_max_size { $_[0]->{max_size}; }
+
+
+sub filter_json_object {
+    $_[0]->{cb_object} = defined $_[1] ? $_[1] : 0;
+    $_[0]->{F_HOOK} = ($_[0]->{cb_object} or $_[0]->{cb_sk_object}) ? 1 : 0;
+    $_[0];
+}
+
+sub filter_json_single_key_object {
+    if (@_ > 1) {
+        $_[0]->{cb_sk_object}->{$_[1]} = $_[2];
+    }
+    $_[0]->{F_HOOK} = ($_[0]->{cb_object} or $_[0]->{cb_sk_object}) ? 1 : 0;
+    $_[0];
+}
+
+sub indent_length {
+    if (!defined $_[1] or $_[1] > 15 or $_[1] < 0) {
+        Carp::carp "The acceptable range of indent_length() is 0 to 15.";
+    }
+    else {
+        $_[0]->{indent_length} = $_[1];
+    }
+    $_[0];
+}
+
+sub get_indent_length {
+    $_[0]->{indent_length};
+}
+
+sub sort_by {
+    $_[0]->{sort_by} = defined $_[1] ? $_[1] : 1;
+    $_[0];
+}
+
+sub allow_bigint {
+    Carp::carp("allow_bigint() is obsoleted. use allow_bignum() insted.");
+}
+
+###############################
+
+###
+### Perl => JSON
+###
+
+
+{ # Convert
+
+    my $max_depth;
+    my $indent;
+    my $ascii;
+    my $latin1;
+    my $utf8;
+    my $space_before;
+    my $space_after;
+    my $canonical;
+    my $allow_blessed;
+    my $convert_blessed;
+
+    my $indent_length;
+    my $escape_slash;
+    my $bignum;
+    my $as_nonblessed;
+
+    my $depth;
+    my $indent_count;
+    my $keysort;
+
+
+    sub PP_encode_json {
+        my $self = shift;
+        my $obj  = shift;
+
+        $indent_count = 0;
+        $depth        = 0;
+
+        my $idx = $self->{PROPS};
+
+        ($ascii, $latin1, $utf8, $indent, $canonical, $space_before, $space_after, $allow_blessed,
+            $convert_blessed, $escape_slash, $bignum, $as_nonblessed)
+         = @{$idx}[P_ASCII .. P_SPACE_AFTER, P_ALLOW_BLESSED, P_CONVERT_BLESSED,
+                    P_ESCAPE_SLASH, P_ALLOW_BIGNUM, P_AS_NONBLESSED];
+
+        ($max_depth, $indent_length) = @{$self}{qw/max_depth indent_length/};
+
+        $keysort = $canonical ? sub { $a cmp $b } : undef;
+
+        if ($self->{sort_by}) {
+            $keysort = ref($self->{sort_by}) eq 'CODE' ? $self->{sort_by}
+                     : $self->{sort_by} =~ /\D+/       ? $self->{sort_by}
+                     : sub { $a cmp $b };
+        }
+
+        encode_error("hash- or arrayref expected (not a simple scalar, use allow_nonref to allow this)")
+             if(!ref $obj and !$idx->[ P_ALLOW_NONREF ]);
+
+        my $str  = $self->object_to_json($obj);
+
+        $str .= "\n" if ( $indent ); # JSON::XS 2.26 compatible
+
+        unless ($ascii or $latin1 or $utf8) {
+            utf8::upgrade($str);
+        }
+
+        if ($idx->[ P_SHRINK ]) {
+            utf8::downgrade($str, 1);
+        }
+
+        return $str;
+    }
+
+
+    sub object_to_json {
+        my ($self, $obj) = @_;
+        my $type = ref($obj);
+
+        if($type eq 'HASH'){
+            return $self->hash_to_json($obj);
+        }
+        elsif($type eq 'ARRAY'){
+            return $self->array_to_json($obj);
+        }
+        elsif ($type) { # blessed object?
+            if (blessed($obj)) {
+
+                return $self->value_to_json($obj) if ( $obj->isa('JSON::PP::Boolean') );
+
+                if ( $convert_blessed and $obj->can('TO_JSON') ) {
+                    my $result = $obj->TO_JSON();
+                    if ( defined $result and ref( $result ) ) {
+                        if ( refaddr( $obj ) eq refaddr( $result ) ) {
+                            encode_error( sprintf(
+                                "%s::TO_JSON method returned same object as was passed instead of a new one",
+                                ref $obj
+                            ) );
+                        }
+                    }
+
+                    return $self->object_to_json( $result );
+                }
+
+                return "$obj" if ( $bignum and _is_bignum($obj) );
+                return $self->blessed_to_json($obj) if ($allow_blessed and $as_nonblessed); # will be removed.
+
+                encode_error( sprintf("encountered object '%s', but neither allow_blessed "
+                    . "nor convert_blessed settings are enabled", $obj)
+                ) unless ($allow_blessed);
+
+                return 'null';
+            }
+            else {
+                return $self->value_to_json($obj);
+            }
+        }
+        else{
+            return $self->value_to_json($obj);
+        }
+    }
+
+
+    sub hash_to_json {
+        my ($self, $obj) = @_;
+        my @res;
+
+        encode_error("json text or perl structure exceeds maximum nesting level (max_depth set too low?)")
+                                         if (++$depth > $max_depth);
+
+        my ($pre, $post) = $indent ? $self->_up_indent() : ('', '');
+        my $del = ($space_before ? ' ' : '') . ':' . ($space_after ? ' ' : '');
+
+        for my $k ( _sort( $obj ) ) {
+            if ( OLD_PERL ) { utf8::decode($k) } # key for Perl 5.6 / be optimized
+            push @res, string_to_json( $self, $k )
+                          .  $del
+                          . ( $self->object_to_json( $obj->{$k} ) || $self->value_to_json( $obj->{$k} ) );
+        }
+
+        --$depth;
+        $self->_down_indent() if ($indent);
+
+        return   '{' . ( @res ? $pre : '' ) . ( @res ? join( ",$pre", @res ) . $post : '' )  . '}';
+    }
+
+
+    sub array_to_json {
+        my ($self, $obj) = @_;
+        my @res;
+
+        encode_error("json text or perl structure exceeds maximum nesting level (max_depth set too low?)")
+                                         if (++$depth > $max_depth);
+
+        my ($pre, $post) = $indent ? $self->_up_indent() : ('', '');
+
+        for my $v (@$obj){
+            push @res, $self->object_to_json($v) || $self->value_to_json($v);
+        }
+
+        --$depth;
+        $self->_down_indent() if ($indent);
+
+        return '[' . ( @res ? $pre : '' ) . ( @res ? join( ",$pre", @res ) . $post : '' ) . ']';
+    }
+
+
+    sub value_to_json {
+        my ($self, $value) = @_;
+
+        return 'null' if(!defined $value);
+
+        my $b_obj = B::svref_2object(\$value);  # for round trip problem
+        my $flags = $b_obj->FLAGS;
+
+        return $value # as is 
+            if $flags & ( B::SVp_IOK | B::SVp_NOK ) and !( $flags & B::SVp_POK ); # SvTYPE is IV or NV?
+
+        my $type = ref($value);
+
+        if(!$type){
+            return string_to_json($self, $value);
+        }
+        elsif( blessed($value) and  $value->isa('JSON::PP::Boolean') ){
+            return $$value == 1 ? 'true' : 'false';
+        }
+        elsif ($type) {
+            if ((overload::StrVal($value) =~ /=(\w+)/)[0]) {
+                return $self->value_to_json("$value");
+            }
+
+            if ($type eq 'SCALAR' and defined $$value) {
+                return   $$value eq '1' ? 'true'
+                       : $$value eq '0' ? 'false'
+                       : $self->{PROPS}->[ P_ALLOW_UNKNOWN ] ? 'null'
+                       : encode_error("cannot encode reference to scalar");
+            }
+
+             if ( $self->{PROPS}->[ P_ALLOW_UNKNOWN ] ) {
+                 return 'null';
+             }
+             else {
+                 if ( $type eq 'SCALAR' or $type eq 'REF' ) {
+                    encode_error("cannot encode reference to scalar");
+                 }
+                 else {
+                    encode_error("encountered $value, but JSON can only represent references to arrays or hashes");
+                 }
+             }
+
+        }
+        else {
+            return $self->{fallback}->($value)
+                 if ($self->{fallback} and ref($self->{fallback}) eq 'CODE');
+            return 'null';
+        }
+
+    }
+
+
+    my %esc = (
+        "\n" => '\n',
+        "\r" => '\r',
+        "\t" => '\t',
+        "\f" => '\f',
+        "\b" => '\b',
+        "\"" => '\"',
+        "\\" => '\\\\',
+        "\'" => '\\\'',
+    );
+
+
+    sub string_to_json {
+        my ($self, $arg) = @_;
+
+        $arg =~ s/([\x22\x5c\n\r\t\f\b])/$esc{$1}/g;
+        $arg =~ s/\//\\\//g if ($escape_slash);
+        $arg =~ s/([\x00-\x08\x0b\x0e-\x1f])/'\\u00' . unpack('H2', $1)/eg;
+
+        if ($ascii) {
+            $arg = JSON_PP_encode_ascii($arg);
+        }
+
+        if ($latin1) {
+            $arg = JSON_PP_encode_latin1($arg);
+        }
+
+        if ($utf8) {
+            utf8::encode($arg);
+        }
+
+        return '"' . $arg . '"';
+    }
+
+
+    sub blessed_to_json {
+        my $reftype = reftype($_[1]) || '';
+        if ($reftype eq 'HASH') {
+            return $_[0]->hash_to_json($_[1]);
+        }
+        elsif ($reftype eq 'ARRAY') {
+            return $_[0]->array_to_json($_[1]);
+        }
+        else {
+            return 'null';
+        }
+    }
+
+
+    sub encode_error {
+        my $error  = shift;
+        Carp::croak "$error";
+    }
+
+
+    sub _sort {
+        defined $keysort ? (sort $keysort (keys %{$_[0]})) : keys %{$_[0]};
+    }
+
+
+    sub _up_indent {
+        my $self  = shift;
+        my $space = ' ' x $indent_length;
+
+        my ($pre,$post) = ('','');
+
+        $post = "\n" . $space x $indent_count;
+
+        $indent_count++;
+
+        $pre = "\n" . $space x $indent_count;
+
+        return ($pre,$post);
+    }
+
+
+    sub _down_indent { $indent_count--; }
+
+
+    sub PP_encode_box {
+        {
+            depth        => $depth,
+            indent_count => $indent_count,
+        };
+    }
+
+} # Convert
+
+
+sub _encode_ascii {
+    join('',
+        map {
+            $_ <= 127 ?
+                chr($_) :
+            $_ <= 65535 ?
+                sprintf('\u%04x', $_) : sprintf('\u%x\u%x', _encode_surrogates($_));
+        } unpack('U*', $_[0])
+    );
+}
+
+
+sub _encode_latin1 {
+    join('',
+        map {
+            $_ <= 255 ?
+                chr($_) :
+            $_ <= 65535 ?
+                sprintf('\u%04x', $_) : sprintf('\u%x\u%x', _encode_surrogates($_));
+        } unpack('U*', $_[0])
+    );
+}
+
+
+sub _encode_surrogates { # from perlunicode
+    my $uni = $_[0] - 0x10000;
+    return ($uni / 0x400 + 0xD800, $uni % 0x400 + 0xDC00);
+}
+
+
+sub _is_bignum {
+    $_[0]->isa('Math::BigInt') or $_[0]->isa('Math::BigFloat');
+}
+
+
+
+#
+# JSON => Perl
+#
+
+my $max_intsize;
+
+BEGIN {
+    my $checkint = 1111;
+    for my $d (5..64) {
+        $checkint .= 1;
+        my $int   = eval qq| $checkint |;
+        if ($int =~ /[eE]/) {
+            $max_intsize = $d - 1;
+            last;
+        }
+    }
+}
+
+{ # PARSE 
+
+    my %escapes = ( #  by Jeremy Muhlich <jmuhlich [at] bitflood.org>
+        b    => "\x8",
+        t    => "\x9",
+        n    => "\xA",
+        f    => "\xC",
+        r    => "\xD",
+        '\\' => '\\',
+        '"'  => '"',
+        '/'  => '/',
+    );
+
+    my $text; # json data
+    my $at;   # offset
+    my $ch;   # 1chracter
+    my $len;  # text length (changed according to UTF8 or NON UTF8)
+    # INTERNAL
+    my $depth;          # nest counter
+    my $encoding;       # json text encoding
+    my $is_valid_utf8;  # temp variable
+    my $utf8_len;       # utf8 byte length
+    # FLAGS
+    my $utf8;           # must be utf8
+    my $max_depth;      # max nest nubmer of objects and arrays
+    my $max_size;
+    my $relaxed;
+    my $cb_object;
+    my $cb_sk_object;
+
+    my $F_HOOK;
+
+    my $allow_bigint;   # using Math::BigInt
+    my $singlequote;    # loosely quoting
+    my $loose;          # 
+    my $allow_barekey;  # bareKey
+
+    # $opt flag
+    # 0x00000001 .... decode_prefix
+    # 0x10000000 .... incr_parse
+
+    sub PP_decode_json {
+        my ($self, $opt); # $opt is an effective flag during this decode_json.
+
+        ($self, $text, $opt) = @_;
+
+        ($at, $ch, $depth) = (0, '', 0);
+
+        if ( !defined $text or ref $text ) {
+            decode_error("malformed JSON string, neither array, object, number, string or atom");
+        }
+
+        my $idx = $self->{PROPS};
+
+        ($utf8, $relaxed, $loose, $allow_bigint, $allow_barekey, $singlequote)
+            = @{$idx}[P_UTF8, P_RELAXED, P_LOOSE .. P_ALLOW_SINGLEQUOTE];
+
+        if ( $utf8 ) {
+            utf8::downgrade( $text, 1 ) or Carp::croak("Wide character in subroutine entry");
+        }
+        else {
+            utf8::upgrade( $text );
+            utf8::encode( $text );
+        }
+
+        $len = length $text;
+
+        ($max_depth, $max_size, $cb_object, $cb_sk_object, $F_HOOK)
+             = @{$self}{qw/max_depth  max_size cb_object cb_sk_object F_HOOK/};
+
+        if ($max_size > 1) {
+            use bytes;
+            my $bytes = length $text;
+            decode_error(
+                sprintf("attempted decode of JSON text of %s bytes size, but max_size is set to %s"
+                    , $bytes, $max_size), 1
+            ) if ($bytes > $max_size);
+        }
+
+        # Currently no effect
+        # should use regexp
+        my @octets = unpack('C4', $text);
+        $encoding =   ( $octets[0] and  $octets[1]) ? 'UTF-8'
+                    : (!$octets[0] and  $octets[1]) ? 'UTF-16BE'
+                    : (!$octets[0] and !$octets[1]) ? 'UTF-32BE'
+                    : ( $octets[2]                ) ? 'UTF-16LE'
+                    : (!$octets[2]                ) ? 'UTF-32LE'
+                    : 'unknown';
+
+        white(); # remove head white space
+
+        my $valid_start = defined $ch; # Is there a first character for JSON structure?
+
+        my $result = value();
+
+        return undef if ( !$result && ( $opt & 0x10000000 ) ); # for incr_parse
+
+        decode_error("malformed JSON string, neither array, object, number, string or atom") unless $valid_start;
+
+        if ( !$idx->[ P_ALLOW_NONREF ] and !ref $result ) {
+                decode_error(
+                'JSON text must be an object or array (but found number, string, true, false or null,'
+                       . ' use allow_nonref to allow this)', 1);
+        }
+
+        Carp::croak('something wrong.') if $len < $at; # we won't arrive here.
+
+        my $consumed = defined $ch ? $at - 1 : $at; # consumed JSON text length
+
+        white(); # remove tail white space
+
+        if ( $ch ) {
+            return ( $result, $consumed ) if ($opt & 0x00000001); # all right if decode_prefix
+            decode_error("garbage after JSON object");
+        }
+
+        ( $opt & 0x00000001 ) ? ( $result, $consumed ) : $result;
+    }
+
+
+    sub next_chr {
+        return $ch = undef if($at >= $len);
+        $ch = substr($text, $at++, 1);
+    }
+
+
+    sub value {
+        white();
+        return          if(!defined $ch);
+        return object() if($ch eq '{');
+        return array()  if($ch eq '[');
+        return string() if($ch eq '"' or ($singlequote and $ch eq "'"));
+        return number() if($ch =~ /[0-9]/ or $ch eq '-');
+        return word();
+    }
+
+    sub string {
+        my ($i, $s, $t, $u);
+        my $utf16;
+        my $is_utf8;
+
+        ($is_valid_utf8, $utf8_len) = ('', 0);
+
+        $s = ''; # basically UTF8 flag on
+
+        if($ch eq '"' or ($singlequote and $ch eq "'")){
+            my $boundChar = $ch;
+
+            OUTER: while( defined(next_chr()) ){
+
+                if($ch eq $boundChar){
+                    next_chr();
+
+                    if ($utf16) {
+                        decode_error("missing low surrogate character in surrogate pair");
+                    }
+
+                    utf8::decode($s) if($is_utf8);
+
+                    return $s;
+                }
+                elsif($ch eq '\\'){
+                    next_chr();
+                    if(exists $escapes{$ch}){
+                        $s .= $escapes{$ch};
+                    }
+                    elsif($ch eq 'u'){ # UNICODE handling
+                        my $u = '';
+
+                        for(1..4){
+                            $ch = next_chr();
+                            last OUTER if($ch !~ /[0-9a-fA-F]/);
+                            $u .= $ch;
+                        }
+
+                        # U+D800 - U+DBFF
+                        if ($u =~ /^[dD][89abAB][0-9a-fA-F]{2}/) { # UTF-16 high surrogate?
+                            $utf16 = $u;
+                        }
+                        # U+DC00 - U+DFFF
+                        elsif ($u =~ /^[dD][c-fC-F][0-9a-fA-F]{2}/) { # UTF-16 low surrogate?
+                            unless (defined $utf16) {
+                                decode_error("missing high surrogate character in surrogate pair");
+                            }
+                            $is_utf8 = 1;
+                            $s .= JSON_PP_decode_surrogates($utf16, $u) || next;
+                            $utf16 = undef;
+                        }
+                        else {
+                            if (defined $utf16) {
+                                decode_error("surrogate pair expected");
+                            }
+
+                            if ( ( my $hex = hex( $u ) ) > 127 ) {
+                                $is_utf8 = 1;
+                                $s .= JSON_PP_decode_unicode($u) || next;
+                            }
+                            else {
+                                $s .= chr $hex;
+                            }
+                        }
+
+                    }
+                    else{
+                        unless ($loose) {
+                            $at -= 2;
+                            decode_error('illegal backslash escape sequence in string');
+                        }
+                        $s .= $ch;
+                    }
+                }
+                else{
+
+                    if ( ord $ch  > 127 ) {
+                        unless( $ch = is_valid_utf8($ch) ) {
+                            $at -= 1;
+                            decode_error("malformed UTF-8 character in JSON string");
+                        }
+                        else {
+                            $at += $utf8_len - 1;
+                        }
+
+                        $is_utf8 = 1;
+                    }
+
+                    if (!$loose) {
+                        if ($ch =~ /[\x00-\x1f\x22\x5c]/)  { # '/' ok
+                            $at--;
+                            decode_error('invalid character encountered while parsing JSON string');
+                        }
+                    }
+
+                    $s .= $ch;
+                }
+            }
+        }
+
+        decode_error("unexpected end of string while parsing JSON string");
+    }
+
+
+    sub white {
+        while( defined $ch  ){
+            if($ch le ' '){
+                next_chr();
+            }
+            elsif($ch eq '/'){
+                next_chr();
+                if(defined $ch and $ch eq '/'){
+                    1 while(defined(next_chr()) and $ch ne "\n" and $ch ne "\r");
+                }
+                elsif(defined $ch and $ch eq '*'){
+                    next_chr();
+                    while(1){
+                        if(defined $ch){
+                            if($ch eq '*'){
+                                if(defined(next_chr()) and $ch eq '/'){
+                                    next_chr();
+                                    last;
+                                }
+                            }
+                            else{
+                                next_chr();
+                            }
+                        }
+                        else{
+                            decode_error("Unterminated comment");
+                        }
+                    }
+                    next;
+                }
+                else{
+                    $at--;
+                    decode_error("malformed JSON string, neither array, object, number, string or atom");
+                }
+            }
+            else{
+                if ($relaxed and $ch eq '#') { # correctly?
+                    pos($text) = $at;
+                    $text =~ /\G([^\n]*(?:\r\n|\r|\n|$))/g;
+                    $at = pos($text);
+                    next_chr;
+                    next;
+                }
+
+                last;
+            }
+        }
+    }
+
+
+    sub array {
+        my $a  = $_[0] || []; # you can use this code to use another array ref object.
+
+        decode_error('json text or perl structure exceeds maximum nesting level (max_depth set too low?)')
+                                                    if (++$depth > $max_depth);
+
+        next_chr();
+        white();
+
+        if(defined $ch and $ch eq ']'){
+            --$depth;
+            next_chr();
+            return $a;
+        }
+        else {
+            while(defined($ch)){
+                push @$a, value();
+
+                white();
+
+                if (!defined $ch) {
+                    last;
+                }
+
+                if($ch eq ']'){
+                    --$depth;
+                    next_chr();
+                    return $a;
+                }
+
+                if($ch ne ','){
+                    last;
+                }
+
+                next_chr();
+                white();
+
+                if ($relaxed and $ch eq ']') {
+                    --$depth;
+                    next_chr();
+                    return $a;
+                }
+
+            }
+        }
+
+        decode_error(", or ] expected while parsing array");
+    }
+
+
+    sub object {
+        my $o = $_[0] || {}; # you can use this code to use another hash ref object.
+        my $k;
+
+        decode_error('json text or perl structure exceeds maximum nesting level (max_depth set too low?)')
+                                                if (++$depth > $max_depth);
+        next_chr();
+        white();
+
+        if(defined $ch and $ch eq '}'){
+            --$depth;
+            next_chr();
+            if ($F_HOOK) {
+                return _json_object_hook($o);
+            }
+            return $o;
+        }
+        else {
+            while (defined $ch) {
+                $k = ($allow_barekey and $ch ne '"' and $ch ne "'") ? bareKey() : string();
+                white();
+
+                if(!defined $ch or $ch ne ':'){
+                    $at--;
+                    decode_error("':' expected");
+                }
+
+                next_chr();
+                $o->{$k} = value();
+                white();
+
+                last if (!defined $ch);
+
+                if($ch eq '}'){
+                    --$depth;
+                    next_chr();
+                    if ($F_HOOK) {
+                        return _json_object_hook($o);
+                    }
+                    return $o;
+                }
+
+                if($ch ne ','){
+                    last;
+                }
+
+                next_chr();
+                white();
+
+                if ($relaxed and $ch eq '}') {
+                    --$depth;
+                    next_chr();
+                    if ($F_HOOK) {
+                        return _json_object_hook($o);
+                    }
+                    return $o;
+                }
+
+            }
+
+        }
+
+        $at--;
+        decode_error(", or } expected while parsing object/hash");
+    }
+
+
+    sub bareKey { # doesn't strictly follow Standard ECMA-262 3rd Edition
+        my $key;
+        while($ch =~ /[^\x00-\x23\x25-\x2F\x3A-\x40\x5B-\x5E\x60\x7B-\x7F]/){
+            $key .= $ch;
+            next_chr();
+        }
+        return $key;
+    }
+
+
+    sub word {
+        my $word =  substr($text,$at-1,4);
+
+        if($word eq 'true'){
+            $at += 3;
+            next_chr;
+            return $JSON::PP::true;
+        }
+        elsif($word eq 'null'){
+            $at += 3;
+            next_chr;
+            return undef;
+        }
+        elsif($word eq 'fals'){
+            $at += 3;
+            if(substr($text,$at,1) eq 'e'){
+                $at++;
+                next_chr;
+                return $JSON::PP::false;
+            }
+        }
+
+        $at--; # for decode_error report
+
+        decode_error("'null' expected")  if ($word =~ /^n/);
+        decode_error("'true' expected")  if ($word =~ /^t/);
+        decode_error("'false' expected") if ($word =~ /^f/);
+        decode_error("malformed JSON string, neither array, object, number, string or atom");
+    }
+
+
+    sub number {
+        my $n    = '';
+        my $v;
+
+        # According to RFC4627, hex or oct digts are invalid.
+        if($ch eq '0'){
+            my $peek = substr($text,$at,1);
+            my $hex  = $peek =~ /[xX]/; # 0 or 1
+
+            if($hex){
+                decode_error("malformed number (leading zero must not be followed by another digit)");
+                ($n) = ( substr($text, $at+1) =~ /^([0-9a-fA-F]+)/);
+            }
+            else{ # oct
+                ($n) = ( substr($text, $at) =~ /^([0-7]+)/);
+                if (defined $n and length $n > 1) {
+                    decode_error("malformed number (leading zero must not be followed by another digit)");
+                }
+            }
+
+            if(defined $n and length($n)){
+                if (!$hex and length($n) == 1) {
+                   decode_error("malformed number (leading zero must not be followed by another digit)");
+                }
+                $at += length($n) + $hex;
+                next_chr;
+                return $hex ? hex($n) : oct($n);
+            }
+        }
+
+        if($ch eq '-'){
+            $n = '-';
+            next_chr;
+            if (!defined $ch or $ch !~ /\d/) {
+                decode_error("malformed number (no digits after initial minus)");
+            }
+        }
+
+        while(defined $ch and $ch =~ /\d/){
+            $n .= $ch;
+            next_chr;
+        }
+
+        if(defined $ch and $ch eq '.'){
+            $n .= '.';
+
+            next_chr;
+            if (!defined $ch or $ch !~ /\d/) {
+                decode_error("malformed number (no digits after decimal point)");
+            }
+            else {
+                $n .= $ch;
+            }
+
+            while(defined(next_chr) and $ch =~ /\d/){
+                $n .= $ch;
+            }
+        }
+
+        if(defined $ch and ($ch eq 'e' or $ch eq 'E')){
+            $n .= $ch;
+            next_chr;
+
+            if(defined($ch) and ($ch eq '+' or $ch eq '-')){
+                $n .= $ch;
+                next_chr;
+                if (!defined $ch or $ch =~ /\D/) {
+                    decode_error("malformed number (no digits after exp sign)");
+                }
+                $n .= $ch;
+            }
+            elsif(defined($ch) and $ch =~ /\d/){
+                $n .= $ch;
+            }
+            else {
+                decode_error("malformed number (no digits after exp sign)");
+            }
+
+            while(defined(next_chr) and $ch =~ /\d/){
+                $n .= $ch;
+            }
+
+        }
+
+        $v .= $n;
+
+        if ($v !~ /[.eE]/ and length $v > $max_intsize) {
+            if ($allow_bigint) { # from Adam Sussman
+                require Math::BigInt;
+                return Math::BigInt->new($v);
+            }
+            else {
+                return "$v";
+            }
+        }
+        elsif ($allow_bigint) {
+            require Math::BigFloat;
+            return Math::BigFloat->new($v);
+        }
+
+        return 0+$v;
+    }
+
+
+    sub is_valid_utf8 {
+
+        $utf8_len = $_[0] =~ /[\x00-\x7F]/  ? 1
+                  : $_[0] =~ /[\xC2-\xDF]/  ? 2
+                  : $_[0] =~ /[\xE0-\xEF]/  ? 3
+                  : $_[0] =~ /[\xF0-\xF4]/  ? 4
+                  : 0
+                  ;
+
+        return unless $utf8_len;
+
+        my $is_valid_utf8 = substr($text, $at - 1, $utf8_len);
+
+        return ( $is_valid_utf8 =~ /^(?:
+             [\x00-\x7F]
+            |[\xC2-\xDF][\x80-\xBF]
+            |[\xE0][\xA0-\xBF][\x80-\xBF]
+            |[\xE1-\xEC][\x80-\xBF][\x80-\xBF]
+            |[\xED][\x80-\x9F][\x80-\xBF]
+            |[\xEE-\xEF][\x80-\xBF][\x80-\xBF]
+            |[\xF0][\x90-\xBF][\x80-\xBF][\x80-\xBF]
+            |[\xF1-\xF3][\x80-\xBF][\x80-\xBF][\x80-\xBF]
+            |[\xF4][\x80-\x8F][\x80-\xBF][\x80-\xBF]
+        )$/x )  ? $is_valid_utf8 : '';
+    }
+
+
+    sub decode_error {
+        my $error  = shift;
+        my $no_rep = shift;
+        my $str    = defined $text ? substr($text, $at) : '';
+        my $mess   = '';
+        my $type   = $] >= 5.008           ? 'U*'
+                   : $] <  5.006           ? 'C*'
+                   : utf8::is_utf8( $str ) ? 'U*' # 5.6
+                   : 'C*'
+                   ;
+
+        for my $c ( unpack( $type, $str ) ) { # emulate pv_uni_display() ?
+            $mess .=  $c == 0x07 ? '\a'
+                    : $c == 0x09 ? '\t'
+                    : $c == 0x0a ? '\n'
+                    : $c == 0x0d ? '\r'
+                    : $c == 0x0c ? '\f'
+                    : $c <  0x20 ? sprintf('\x{%x}', $c)
+                    : $c == 0x5c ? '\\\\'
+                    : $c <  0x80 ? chr($c)
+                    : sprintf('\x{%x}', $c)
+                    ;
+            if ( length $mess >= 20 ) {
+                $mess .= '...';
+                last;
+            }
+        }
+
+        unless ( length $mess ) {
+            $mess = '(end of string)';
+        }
+
+        Carp::croak (
+            $no_rep ? "$error" : "$error, at character offset $at (before \"$mess\")"
+        );
+
+    }
+
+
+    sub _json_object_hook {
+        my $o    = $_[0];
+        my @ks = keys %{$o};
+
+        if ( $cb_sk_object and @ks == 1 and exists $cb_sk_object->{ $ks[0] } and ref $cb_sk_object->{ $ks[0] } ) {
+            my @val = $cb_sk_object->{ $ks[0] }->( $o->{$ks[0]} );
+            if (@val == 1) {
+                return $val[0];
+            }
+        }
+
+        my @val = $cb_object->($o) if ($cb_object);
+        if (@val == 0 or @val > 1) {
+            return $o;
+        }
+        else {
+            return $val[0];
+        }
+    }
+
+
+    sub PP_decode_box {
+        {
+            text    => $text,
+            at      => $at,
+            ch      => $ch,
+            len     => $len,
+            depth   => $depth,
+            encoding      => $encoding,
+            is_valid_utf8 => $is_valid_utf8,
+        };
+    }
+
+} # PARSE
+
+
+sub _decode_surrogates { # from perlunicode
+    my $uni = 0x10000 + (hex($_[0]) - 0xD800) * 0x400 + (hex($_[1]) - 0xDC00);
+    my $un  = pack('U*', $uni);
+    utf8::encode( $un );
+    return $un;
+}
+
+
+sub _decode_unicode {
+    my $un = pack('U', hex shift);
+    utf8::encode( $un );
+    return $un;
+}
+
+#
+# Setup for various Perl versions (the code from JSON::PP58)
+#
+
+BEGIN {
+
+    unless ( defined &utf8::is_utf8 ) {
+       require Encode;
+       *utf8::is_utf8 = *Encode::is_utf8;
+    }
+
+    if ( $] >= 5.008 ) {
+        *JSON::PP::JSON_PP_encode_ascii      = \&_encode_ascii;
+        *JSON::PP::JSON_PP_encode_latin1     = \&_encode_latin1;
+        *JSON::PP::JSON_PP_decode_surrogates = \&_decode_surrogates;
+        *JSON::PP::JSON_PP_decode_unicode    = \&_decode_unicode;
+    }
+
+    if ($] >= 5.008 and $] < 5.008003) { # join() in 5.8.0 - 5.8.2 is broken.
+        package JSON::PP;
+        require subs;
+        subs->import('join');
+        eval q|
+            sub join {
+                return '' if (@_ < 2);
+                my $j   = shift;
+                my $str = shift;
+                for (@_) { $str .= $j . $_; }
+                return $str;
+            }
+        |;
+    }
+
+
+    sub JSON::PP::incr_parse {
+        local $Carp::CarpLevel = 1;
+        ( $_[0]->{_incr_parser} ||= JSON::PP::IncrParser->new )->incr_parse( @_ );
+    }
+
+
+    sub JSON::PP::incr_skip {
+        ( $_[0]->{_incr_parser} ||= JSON::PP::IncrParser->new )->incr_skip;
+    }
+
+
+    sub JSON::PP::incr_reset {
+        ( $_[0]->{_incr_parser} ||= JSON::PP::IncrParser->new )->incr_reset;
+    }
+
+    eval q{
+        sub JSON::PP::incr_text : lvalue {
+            $_[0]->{_incr_parser} ||= JSON::PP::IncrParser->new;
+
+            if ( $_[0]->{_incr_parser}->{incr_parsing} ) {
+                Carp::croak("incr_text can not be called when the incremental parser already started parsing");
+            }
+            $_[0]->{_incr_parser}->{incr_text};
+        }
+    } if ( $] >= 5.006 );
+
+} # Setup for various Perl versions (the code from JSON::PP58)
+
+
+###############################
+# Utilities
+#
+
+BEGIN {
+    eval 'require Scalar::Util';
+    unless($@){
+        *JSON::PP::blessed = \&Scalar::Util::blessed;
+        *JSON::PP::reftype = \&Scalar::Util::reftype;
+        *JSON::PP::refaddr = \&Scalar::Util::refaddr;
+    }
+    else{ # This code is from Sclar::Util.
+        # warn $@;
+        eval 'sub UNIVERSAL::a_sub_not_likely_to_be_here { ref($_[0]) }';
+        *JSON::PP::blessed = sub {
+            local($@, $SIG{__DIE__}, $SIG{__WARN__});
+            ref($_[0]) ? eval { $_[0]->a_sub_not_likely_to_be_here } : undef;
+        };
+        my %tmap = qw(
+            B::NULL   SCALAR
+            B::HV     HASH
+            B::AV     ARRAY
+            B::CV     CODE
+            B::IO     IO
+            B::GV     GLOB
+            B::REGEXP REGEXP
+        );
+        *JSON::PP::reftype = sub {
+            my $r = shift;
+
+            return undef unless length(ref($r));
+
+            my $t = ref(B::svref_2object($r));
+
+            return
+                exists $tmap{$t} ? $tmap{$t}
+              : length(ref($$r)) ? 'REF'
+              :                    'SCALAR';
+        };
+        *JSON::PP::refaddr = sub {
+          return undef unless length(ref($_[0]));
+
+          my $addr;
+          if(defined(my $pkg = blessed($_[0]))) {
+            $addr .= bless $_[0], 'Scalar::Util::Fake';
+            bless $_[0], $pkg;
+          }
+          else {
+            $addr .= $_[0]
+          }
+
+          $addr =~ /0x(\w+)/;
+          local $^W;
+          #no warnings 'portable';
+          hex($1);
+        }
+    }
+}
+
+
+# shamely copied and modified from JSON::XS code.
+
+$JSON::PP::true  = do { bless \(my $dummy = 1), "JSON::PP::Boolean" };
+$JSON::PP::false = do { bless \(my $dummy = 0), "JSON::PP::Boolean" };
+
+sub is_bool { defined $_[0] and UNIVERSAL::isa($_[0], "JSON::PP::Boolean"); }
+
+sub true  { $JSON::PP::true  }
+sub false { $JSON::PP::false }
+sub null  { undef; }
+
+###############################
+
+package JSON::PP::Boolean;
+
+use overload (
+   "0+"     => sub { ${$_[0]} },
+   "++"     => sub { $_[0] = ${$_[0]} + 1 },
+   "--"     => sub { $_[0] = ${$_[0]} - 1 },
+   fallback => 1,
+);
+
+
+###############################
+
+package JSON::PP::IncrParser;
+
+use strict;
+
+use constant INCR_M_WS   => 0; # initial whitespace skipping
+use constant INCR_M_STR  => 1; # inside string
+use constant INCR_M_BS   => 2; # inside backslash
+use constant INCR_M_JSON => 3; # outside anything, count nesting
+use constant INCR_M_C0   => 4;
+use constant INCR_M_C1   => 5;
+
+$JSON::PP::IncrParser::VERSION = '1.01';
+
+my $unpack_format = $] < 5.006 ? 'C*' : 'U*';
+
+sub new {
+    my ( $class ) = @_;
+
+    bless {
+        incr_nest    => 0,
+        incr_text    => undef,
+        incr_parsing => 0,
+        incr_p       => 0,
+    }, $class;
+}
+
+
+sub incr_parse {
+    my ( $self, $coder, $text ) = @_;
+
+    $self->{incr_text} = '' unless ( defined $self->{incr_text} );
+
+    if ( defined $text ) {
+        if ( utf8::is_utf8( $text ) and !utf8::is_utf8( $self->{incr_text} ) ) {
+            utf8::upgrade( $self->{incr_text} ) ;
+            utf8::decode( $self->{incr_text} ) ;
+        }
+        $self->{incr_text} .= $text;
+    }
+
+
+    my $max_size = $coder->get_max_size;
+
+    if ( defined wantarray ) {
+
+        $self->{incr_mode} = INCR_M_WS unless defined $self->{incr_mode};
+
+        if ( wantarray ) {
+            my @ret;
+
+            $self->{incr_parsing} = 1;
+
+            do {
+                push @ret, $self->_incr_parse( $coder, $self->{incr_text} );
+
+                unless ( !$self->{incr_nest} and $self->{incr_mode} == INCR_M_JSON ) {
+                    $self->{incr_mode} = INCR_M_WS if $self->{incr_mode} != INCR_M_STR;
+                }
+
+            } until ( length $self->{incr_text} >= $self->{incr_p} );
+
+            $self->{incr_parsing} = 0;
+
+            return @ret;
+        }
+        else { # in scalar context
+            $self->{incr_parsing} = 1;
+            my $obj = $self->_incr_parse( $coder, $self->{incr_text} );
+            $self->{incr_parsing} = 0 if defined $obj; # pointed by Martin J. Evans
+            return $obj ? $obj : undef; # $obj is an empty string, parsing was completed.
+        }
+
+    }
+
+}
+
+
+sub _incr_parse {
+    my ( $self, $coder, $text, $skip ) = @_;
+    my $p = $self->{incr_p};
+    my $restore = $p;
+
+    my @obj;
+    my $len = length $text;
+
+    if ( $self->{incr_mode} == INCR_M_WS ) {
+        while ( $len > $p ) {
+            my $s = substr( $text, $p, 1 );
+            $p++ and next if ( 0x20 >= unpack($unpack_format, $s) );
+            $self->{incr_mode} = INCR_M_JSON;
+            last;
+       }
+    }
+
+    while ( $len > $p ) {
+        my $s = substr( $text, $p++, 1 );
+
+        if ( $s eq '"' ) {
+            if (substr( $text, $p - 2, 1 ) eq '\\' ) {
+                next;
+            }
+
+            if ( $self->{incr_mode} != INCR_M_STR  ) {
+                $self->{incr_mode} = INCR_M_STR;
+            }
+            else {
+                $self->{incr_mode} = INCR_M_JSON;
+                unless ( $self->{incr_nest} ) {
+                    last;
+                }
+            }
+        }
+
+        if ( $self->{incr_mode} == INCR_M_JSON ) {
+
+            if ( $s eq '[' or $s eq '{' ) {
+                if ( ++$self->{incr_nest} > $coder->get_max_depth ) {
+                    Carp::croak('json text or perl structure exceeds maximum nesting level (max_depth set too low?)');
+                }
+            }
+            elsif ( $s eq ']' or $s eq '}' ) {
+                last if ( --$self->{incr_nest} <= 0 );
+            }
+            elsif ( $s eq '#' ) {
+                while ( $len > $p ) {
+                    last if substr( $text, $p++, 1 ) eq "\n";
+                }
+            }
+
+        }
+
+    }
+
+    $self->{incr_p} = $p;
+
+    return if ( $self->{incr_mode} == INCR_M_STR and not $self->{incr_nest} );
+    return if ( $self->{incr_mode} == INCR_M_JSON and $self->{incr_nest} > 0 );
+
+    return '' unless ( length substr( $self->{incr_text}, 0, $p ) );
+
+    local $Carp::CarpLevel = 2;
+
+    $self->{incr_p} = $restore;
+    $self->{incr_c} = $p;
+
+    my ( $obj, $tail ) = $coder->PP_decode_json( substr( $self->{incr_text}, 0, $p ), 0x10000001 );
+
+    $self->{incr_text} = substr( $self->{incr_text}, $p );
+    $self->{incr_p} = 0;
+
+    return $obj || '';
+}
+
+
+sub incr_text {
+    if ( $_[0]->{incr_parsing} ) {
+        Carp::croak("incr_text can not be called when the incremental parser already started parsing");
+    }
+    $_[0]->{incr_text};
+}
+
+
+sub incr_skip {
+    my $self  = shift;
+    $self->{incr_text} = substr( $self->{incr_text}, $self->{incr_c} );
+    $self->{incr_p} = 0;
+}
+
+
+sub incr_reset {
+    my $self = shift;
+    $self->{incr_text}    = undef;
+    $self->{incr_p}       = 0;
+    $self->{incr_mode}    = 0;
+    $self->{incr_nest}    = 0;
+    $self->{incr_parsing} = 0;
+}
+
+###############################
+
+
+1;
+__END__
+=pod
+
+=head1 NAME
+
+JSON::PP - JSON::XS compatible pure-Perl module.
+
+=head1 SYNOPSIS
+
+ use JSON::PP;
+
+ # exported functions, they croak on error
+ # and expect/generate UTF-8
+
+ $utf8_encoded_json_text = encode_json $perl_hash_or_arrayref;
+ $perl_hash_or_arrayref  = decode_json $utf8_encoded_json_text;
+
+ # OO-interface
+
+ $coder = JSON::PP->new->ascii->pretty->allow_nonref;
+ 
+ $json_text   = $json->encode( $perl_scalar );
+ $perl_scalar = $json->decode( $json_text );
+ 
+ $pretty_printed = $json->pretty->encode( $perl_scalar ); # pretty-printing
+ 
+ # Note that JSON version 2.0 and above will automatically use
+ # JSON::XS or JSON::PP, so you should be able to just:
+ 
+ use JSON;
+
+
+=head1 VERSION
+
+    2.27300
+
+L<JSON::XS> 2.27 (~2.30) compatible.
+
+=head1 NOTE
+
+JSON::PP had been inculded in JSON distribution (CPAN module).
+It was a perl core module in Perl 5.14.
+
+=head1 DESCRIPTION
+
+This module is L<JSON::XS> compatible pure Perl module.
+(Perl 5.8 or later is recommended)
+
+JSON::XS is the fastest and most proper JSON module on CPAN.
+It is written by Marc Lehmann in C, so must be compiled and
+installed in the used environment.
+
+JSON::PP is a pure-Perl module and has compatibility to JSON::XS.
+
+
+=head2 FEATURES
+
+=over
+
+=item * correct unicode handling
+
+This module knows how to handle Unicode (depending on Perl version).
+
+See to L<JSON::XS/A FEW NOTES ON UNICODE AND PERL> and L<UNICODE HANDLING ON PERLS>.
+
+
+=item * round-trip integrity
+
+When you serialise a perl data structure using only data types supported
+by JSON and Perl, the deserialised data structure is identical on the Perl
+level. (e.g. the string "2.0" doesn't suddenly become "2" just because
+it looks like a number). There I<are> minor exceptions to this, read the
+MAPPING section below to learn about those.
+
+
+=item * strict checking of JSON correctness
+
+There is no guessing, no generating of illegal JSON texts by default,
+and only JSON is accepted as input by default (the latter is a security feature).
+But when some options are set, loose chcking features are available.
+
+=back
+
+=head1 FUNCTIONAL INTERFACE
+
+Some documents are copied and modified from L<JSON::XS/FUNCTIONAL INTERFACE>.
+
+=head2 encode_json
+
+    $json_text = encode_json $perl_scalar
+
+Converts the given Perl data structure to a UTF-8 encoded, binary string.
+
+This function call is functionally identical to:
+
+    $json_text = JSON::PP->new->utf8->encode($perl_scalar)
+
+=head2 decode_json
+
+    $perl_scalar = decode_json $json_text
+
+The opposite of C<encode_json>: expects an UTF-8 (binary) string and tries
+to parse that as an UTF-8 encoded JSON text, returning the resulting
+reference.
+
+This function call is functionally identical to:
+
+    $perl_scalar = JSON::PP->new->utf8->decode($json_text)
+
+=head2 JSON::PP::is_bool
+
+    $is_boolean = JSON::PP::is_bool($scalar)
+
+Returns true if the passed scalar represents either JSON::PP::true or
+JSON::PP::false, two constants that act like C<1> and C<0> respectively
+and are also used to represent JSON C<true> and C<false> in Perl strings.
+
+=head2 JSON::PP::true
+
+Returns JSON true value which is blessed object.
+It C<isa> JSON::PP::Boolean object.
+
+=head2 JSON::PP::false
+
+Returns JSON false value which is blessed object.
+It C<isa> JSON::PP::Boolean object.
+
+=head2 JSON::PP::null
+
+Returns C<undef>.
+
+See L<MAPPING>, below, for more information on how JSON values are mapped to
+Perl.
+
+
+=head1 HOW DO I DECODE A DATA FROM OUTER AND ENCODE TO OUTER
+
+This section supposes that your perl vresion is 5.8 or later.
+
+If you know a JSON text from an outer world - a network, a file content, and so on,
+is encoded in UTF-8, you should use C<decode_json> or C<JSON> module object
+with C<utf8> enable. And the decoded result will contain UNICODE characters.
+
+  # from network
+  my $json        = JSON::PP->new->utf8;
+  my $json_text   = CGI->new->param( 'json_data' );
+  my $perl_scalar = $json->decode( $json_text );
+  
+  # from file content
+  local $/;
+  open( my $fh, '<', 'json.data' );
+  $json_text   = <$fh>;
+  $perl_scalar = decode_json( $json_text );
+
+If an outer data is not encoded in UTF-8, firstly you should C<decode> it.
+
+  use Encode;
+  local $/;
+  open( my $fh, '<', 'json.data' );
+  my $encoding = 'cp932';
+  my $unicode_json_text = decode( $encoding, <$fh> ); # UNICODE
+  
+  # or you can write the below code.
+  #
+  # open( my $fh, "<:encoding($encoding)", 'json.data' );
+  # $unicode_json_text = <$fh>;
+
+In this case, C<$unicode_json_text> is of course UNICODE string.
+So you B<cannot> use C<decode_json> nor C<JSON> module object with C<utf8> enable.
+Instead of them, you use C<JSON> module object with C<utf8> disable.
+
+  $perl_scalar = $json->utf8(0)->decode( $unicode_json_text );
+
+Or C<encode 'utf8'> and C<decode_json>:
+
+  $perl_scalar = decode_json( encode( 'utf8', $unicode_json_text ) );
+  # this way is not efficient.
+
+And now, you want to convert your C<$perl_scalar> into JSON data and
+send it to an outer world - a network or a file content, and so on.
+
+Your data usually contains UNICODE strings and you want the converted data to be encoded
+in UTF-8, you should use C<encode_json> or C<JSON> module object with C<utf8> enable.
+
+  print encode_json( $perl_scalar ); # to a network? file? or display?
+  # or
+  print $json->utf8->encode( $perl_scalar );
+
+If C<$perl_scalar> does not contain UNICODE but C<$encoding>-encoded strings
+for some reason, then its characters are regarded as B<latin1> for perl
+(because it does not concern with your $encoding).
+You B<cannot> use C<encode_json> nor C<JSON> module object with C<utf8> enable.
+Instead of them, you use C<JSON> module object with C<utf8> disable.
+Note that the resulted text is a UNICODE string but no problem to print it.
+
+  # $perl_scalar contains $encoding encoded string values
+  $unicode_json_text = $json->utf8(0)->encode( $perl_scalar );
+  # $unicode_json_text consists of characters less than 0x100
+  print $unicode_json_text;
+
+Or C<decode $encoding> all string values and C<encode_json>:
+
+  $perl_scalar->{ foo } = decode( $encoding, $perl_scalar->{ foo } );
+  # ... do it to each string values, then encode_json
+  $json_text = encode_json( $perl_scalar );
+
+This method is a proper way but probably not efficient.
+
+See to L<Encode>, L<perluniintro>.
+
+
+=head1 METHODS
+
+Basically, check to L<JSON> or L<JSON::XS>.
+
+=head2 new
+
+    $json = JSON::PP->new
+
+Rturns a new JSON::PP object that can be used to de/encode JSON
+strings.
+
+All boolean flags described below are by default I<disabled>.
+
+The mutators for flags all return the JSON object again and thus calls can
+be chained:
+
+   my $json = JSON::PP->new->utf8->space_after->encode({a => [1,2]})
+   => {"a": [1, 2]}
+
+=head2 ascii
+
+    $json = $json->ascii([$enable])
+    
+    $enabled = $json->get_ascii
+
+If $enable is true (or missing), then the encode method will not generate characters outside
+the code range 0..127. Any Unicode characters outside that range will be escaped using either
+a single \uXXXX or a double \uHHHH\uLLLLL escape sequence, as per RFC4627.
+(See to L<JSON::XS/OBJECT-ORIENTED INTERFACE>).
+
+In Perl 5.005, there is no character having high value (more than 255).
+See to L<UNICODE HANDLING ON PERLS>.
+
+If $enable is false, then the encode method will not escape Unicode characters unless
+required by the JSON syntax or other flags. This results in a faster and more compact format.
+
+  JSON::PP->new->ascii(1)->encode([chr 0x10401])
+  => ["\ud801\udc01"]
+
+=head2 latin1
+
+    $json = $json->latin1([$enable])
+    
+    $enabled = $json->get_latin1
+
+If $enable is true (or missing), then the encode method will encode the resulting JSON
+text as latin1 (or iso-8859-1), escaping any characters outside the code range 0..255.
+
+If $enable is false, then the encode method will not escape Unicode characters
+unless required by the JSON syntax or other flags.
+
+  JSON::XS->new->latin1->encode (["\x{89}\x{abc}"]
+  => ["\x{89}\\u0abc"]    # (perl syntax, U+abc escaped, U+89 not)
+
+See to L<UNICODE HANDLING ON PERLS>.
+
+=head2 utf8
+
+    $json = $json->utf8([$enable])
+    
+    $enabled = $json->get_utf8
+
+If $enable is true (or missing), then the encode method will encode the JSON result
+into UTF-8, as required by many protocols, while the decode method expects to be handled
+an UTF-8-encoded string. Please note that UTF-8-encoded strings do not contain any
+characters outside the range 0..255, they are thus useful for bytewise/binary I/O.
+
+(In Perl 5.005, any character outside the range 0..255 does not exist.
+See to L<UNICODE HANDLING ON PERLS>.)
+
+In future versions, enabling this option might enable autodetection of the UTF-16 and UTF-32
+encoding families, as described in RFC4627.
+
+If $enable is false, then the encode method will return the JSON string as a (non-encoded)
+Unicode string, while decode expects thus a Unicode string. Any decoding or encoding
+(e.g. to UTF-8 or UTF-16) needs to be done yourself, e.g. using the Encode module.
+
+Example, output UTF-16BE-encoded JSON:
+
+  use Encode;
+  $jsontext = encode "UTF-16BE", JSON::PP->new->encode ($object);
+
+Example, decode UTF-32LE-encoded JSON:
+
+  use Encode;
+  $object = JSON::PP->new->decode (decode "UTF-32LE", $jsontext);
+
+
+=head2 pretty
+
+    $json = $json->pretty([$enable])
+
+This enables (or disables) all of the C<indent>, C<space_before> and
+C<space_after> flags in one call to generate the most readable
+(or most compact) form possible.
+
+Equivalent to:
+
+   $json->indent->space_before->space_after
+
+=head2 indent
+
+    $json = $json->indent([$enable])
+    
+    $enabled = $json->get_indent
+
+The default indent space length is three.
+You can use C<indent_length> to change the length.
+
+=head2 space_before
+
+    $json = $json->space_before([$enable])
+    
+    $enabled = $json->get_space_before
+
+If C<$enable> is true (or missing), then the C<encode> method will add an extra
+optional space before the C<:> separating keys from values in JSON objects.
+
+If C<$enable> is false, then the C<encode> method will not add any extra
+space at those places.
+
+This setting has no effect when decoding JSON texts.
+
+Example, space_before enabled, space_after and indent disabled:
+
+   {"key" :"value"}
+
+=head2 space_after
+
+    $json = $json->space_after([$enable])
+    
+    $enabled = $json->get_space_after
+
+If C<$enable> is true (or missing), then the C<encode> method will add an extra
+optional space after the C<:> separating keys from values in JSON objects
+and extra whitespace after the C<,> separating key-value pairs and array
+members.
+
+If C<$enable> is false, then the C<encode> method will not add any extra
+space at those places.
+
+This setting has no effect when decoding JSON texts.
+
+Example, space_before and indent disabled, space_after enabled:
+
+   {"key": "value"}
+
+=head2 relaxed
+
+    $json = $json->relaxed([$enable])
+    
+    $enabled = $json->get_relaxed
+
+If C<$enable> is true (or missing), then C<decode> will accept some
+extensions to normal JSON syntax (see below). C<encode> will not be
+affected in anyway. I<Be aware that this option makes you accept invalid
+JSON texts as if they were valid!>. I suggest only to use this option to
+parse application-specific files written by humans (configuration files,
+resource files etc.)
+
+If C<$enable> is false (the default), then C<decode> will only accept
+valid JSON texts.
+
+Currently accepted extensions are:
+
+=over 4
+
+=item * list items can have an end-comma
+
+JSON I<separates> array elements and key-value pairs with commas. This
+can be annoying if you write JSON texts manually and want to be able to
+quickly append elements, so this extension accepts comma at the end of
+such items not just between them:
+
+   [
+      1,
+      2, <- this comma not normally allowed
+   ]
+   {
+      "k1": "v1",
+      "k2": "v2", <- this comma not normally allowed
+   }
+
+=item * shell-style '#'-comments
+
+Whenever JSON allows whitespace, shell-style comments are additionally
+allowed. They are terminated by the first carriage-return or line-feed
+character, after which more white-space and comments are allowed.
+
+  [
+     1, # this comment not allowed in JSON
+        # neither this one...
+  ]
+
+=back
+
+=head2 canonical
+
+    $json = $json->canonical([$enable])
+    
+    $enabled = $json->get_canonical
+
+If C<$enable> is true (or missing), then the C<encode> method will output JSON objects
+by sorting their keys. This is adding a comparatively high overhead.
+
+If C<$enable> is false, then the C<encode> method will output key-value
+pairs in the order Perl stores them (which will likely change between runs
+of the same script).
+
+This option is useful if you want the same data structure to be encoded as
+the same JSON text (given the same overall settings). If it is disabled,
+the same hash might be encoded differently even if contains the same data,
+as key-value pairs have no inherent ordering in Perl.
+
+This setting has no effect when decoding JSON texts.
+
+If you want your own sorting routine, you can give a code referece
+or a subroutine name to C<sort_by>. See to C<JSON::PP OWN METHODS>.
+
+=head2 allow_nonref
+
+    $json = $json->allow_nonref([$enable])
+    
+    $enabled = $json->get_allow_nonref
+
+If C<$enable> is true (or missing), then the C<encode> method can convert a
+non-reference into its corresponding string, number or null JSON value,
+which is an extension to RFC4627. Likewise, C<decode> will accept those JSON
+values instead of croaking.
+
+If C<$enable> is false, then the C<encode> method will croak if it isn't
+passed an arrayref or hashref, as JSON texts must either be an object
+or array. Likewise, C<decode> will croak if given something that is not a
+JSON object or array.
+
+   JSON::PP->new->allow_nonref->encode ("Hello, World!")
+   => "Hello, World!"
+
+=head2 allow_unknown
+
+    $json = $json->allow_unknown ([$enable])
+    
+    $enabled = $json->get_allow_unknown
+
+If $enable is true (or missing), then "encode" will *not* throw an
+exception when it encounters values it cannot represent in JSON (for
+example, filehandles) but instead will encode a JSON "null" value.
+Note that blessed objects are not included here and are handled
+separately by c<allow_nonref>.
+
+If $enable is false (the default), then "encode" will throw an
+exception when it encounters anything it cannot encode as JSON.
+
+This option does not affect "decode" in any way, and it is
+recommended to leave it off unless you know your communications
+partner.
+
+=head2 allow_blessed
+
+    $json = $json->allow_blessed([$enable])
+    
+    $enabled = $json->get_allow_blessed
+
+If C<$enable> is true (or missing), then the C<encode> method will not
+barf when it encounters a blessed reference. Instead, the value of the
+B<convert_blessed> option will decide whether C<null> (C<convert_blessed>
+disabled or no C<TO_JSON> method found) or a representation of the
+object (C<convert_blessed> enabled and C<TO_JSON> method found) is being
+encoded. Has no effect on C<decode>.
+
+If C<$enable> is false (the default), then C<encode> will throw an
+exception when it encounters a blessed object.
+
+=head2 convert_blessed
+
+    $json = $json->convert_blessed([$enable])
+    
+    $enabled = $json->get_convert_blessed
+
+If C<$enable> is true (or missing), then C<encode>, upon encountering a
+blessed object, will check for the availability of the C<TO_JSON> method
+on the object's class. If found, it will be called in scalar context
+and the resulting scalar will be encoded instead of the object. If no
+C<TO_JSON> method is found, the value of C<allow_blessed> will decide what
+to do.
+
+The C<TO_JSON> method may safely call die if it wants. If C<TO_JSON>
+returns other blessed objects, those will be handled in the same
+way. C<TO_JSON> must take care of not causing an endless recursion cycle
+(== crash) in this case. The name of C<TO_JSON> was chosen because other
+methods called by the Perl core (== not by the user of the object) are
+usually in upper case letters and to avoid collisions with the C<to_json>
+function or method.
+
+This setting does not yet influence C<decode> in any way.
+
+If C<$enable> is false, then the C<allow_blessed> setting will decide what
+to do when a blessed object is found.
+
+=head2 filter_json_object
+
+    $json = $json->filter_json_object([$coderef])
+
+When C<$coderef> is specified, it will be called from C<decode> each
+time it decodes a JSON object. The only argument passed to the coderef
+is a reference to the newly-created hash. If the code references returns
+a single scalar (which need not be a reference), this value
+(i.e. a copy of that scalar to avoid aliasing) is inserted into the
+deserialised data structure. If it returns an empty list
+(NOTE: I<not> C<undef>, which is a valid scalar), the original deserialised
+hash will be inserted. This setting can slow down decoding considerably.
+
+When C<$coderef> is omitted or undefined, any existing callback will
+be removed and C<decode> will not change the deserialised hash in any
+way.
+
+Example, convert all JSON objects into the integer 5:
+
+   my $js = JSON::PP->new->filter_json_object (sub { 5 });
+   # returns [5]
+   $js->decode ('[{}]'); # the given subroutine takes a hash reference.
+   # throw an exception because allow_nonref is not enabled
+   # so a lone 5 is not allowed.
+   $js->decode ('{"a":1, "b":2}');
+
+=head2 filter_json_single_key_object
+
+    $json = $json->filter_json_single_key_object($key [=> $coderef])
+
+Works remotely similar to C<filter_json_object>, but is only called for
+JSON objects having a single key named C<$key>.
+
+This C<$coderef> is called before the one specified via
+C<filter_json_object>, if any. It gets passed the single value in the JSON
+object. If it returns a single value, it will be inserted into the data
+structure. If it returns nothing (not even C<undef> but the empty list),
+the callback from C<filter_json_object> will be called next, as if no
+single-key callback were specified.
+
+If C<$coderef> is omitted or undefined, the corresponding callback will be
+disabled. There can only ever be one callback for a given key.
+
+As this callback gets called less often then the C<filter_json_object>
+one, decoding speed will not usually suffer as much. Therefore, single-key
+objects make excellent targets to serialise Perl objects into, especially
+as single-key JSON objects are as close to the type-tagged value concept
+as JSON gets (it's basically an ID/VALUE tuple). Of course, JSON does not
+support this in any way, so you need to make sure your data never looks
+like a serialised Perl hash.
+
+Typical names for the single object key are C<__class_whatever__>, or
+C<$__dollars_are_rarely_used__$> or C<}ugly_brace_placement>, or even
+things like C<__class_md5sum(classname)__>, to reduce the risk of clashing
+with real hashes.
+
+Example, decode JSON objects of the form C<< { "__widget__" => <id> } >>
+into the corresponding C<< $WIDGET{<id>} >> object:
+
+   # return whatever is in $WIDGET{5}:
+   JSON::PP
+      ->new
+      ->filter_json_single_key_object (__widget__ => sub {
+            $WIDGET{ $_[0] }
+         })
+      ->decode ('{"__widget__": 5')
+
+   # this can be used with a TO_JSON method in some "widget" class
+   # for serialisation to json:
+   sub WidgetBase::TO_JSON {
+      my ($self) = @_;
+
+      unless ($self->{id}) {
+         $self->{id} = ..get..some..id..;
+         $WIDGET{$self->{id}} = $self;
+      }
+
+      { __widget__ => $self->{id} }
+   }
+
+=head2 shrink
+
+    $json = $json->shrink([$enable])
+    
+    $enabled = $json->get_shrink
+
+In JSON::XS, this flag resizes strings generated by either
+C<encode> or C<decode> to their minimum size possible.
+It will also try to downgrade any strings to octet-form if possible.
+
+In JSON::PP, it is noop about resizing strings but tries
+C<utf8::downgrade> to the returned string by C<encode>.
+See to L<utf8>.
+
+See to L<JSON::XS/OBJECT-ORIENTED INTERFACE>
+
+=head2 max_depth
+
+    $json = $json->max_depth([$maximum_nesting_depth])
+    
+    $max_depth = $json->get_max_depth
+
+Sets the maximum nesting level (default C<512>) accepted while encoding
+or decoding. If a higher nesting level is detected in JSON text or a Perl
+data structure, then the encoder and decoder will stop and croak at that
+point.
+
+Nesting level is defined by number of hash- or arrayrefs that the encoder
+needs to traverse to reach a given point or the number of C<{> or C<[>
+characters without their matching closing parenthesis crossed to reach a
+given character in a string.
+
+If no argument is given, the highest possible setting will be used, which
+is rarely useful.
+
+See L<JSON::XS/SSECURITY CONSIDERATIONS> for more info on why this is useful.
+
+When a large value (100 or more) was set and it de/encodes a deep nested object/text,
+it may raise a warning 'Deep recursion on subroutin' at the perl runtime phase.
+
+=head2 max_size
+
+    $json = $json->max_size([$maximum_string_size])
+    
+    $max_size = $json->get_max_size
+
+Set the maximum length a JSON text may have (in bytes) where decoding is
+being attempted. The default is C<0>, meaning no limit. When C<decode>
+is called on a string that is longer then this many bytes, it will not
+attempt to decode the string but throw an exception. This setting has no
+effect on C<encode> (yet).
+
+If no argument is given, the limit check will be deactivated (same as when
+C<0> is specified).
+
+See L<JSON::XS/SSECURITY CONSIDERATIONS> for more info on why this is useful.
+
+=head2 encode
+
+    $json_text = $json->encode($perl_scalar)
+
+Converts the given Perl data structure (a simple scalar or a reference
+to a hash or array) to its JSON representation. Simple scalars will be
+converted into JSON string or number sequences, while references to arrays
+become JSON arrays and references to hashes become JSON objects. Undefined
+Perl values (e.g. C<undef>) become JSON C<null> values.
+References to the integers C<0> and C<1> are converted into C<true> and C<false>.
+
+=head2 decode
+
+    $perl_scalar = $json->decode($json_text)
+
+The opposite of C<encode>: expects a JSON text and tries to parse it,
+returning the resulting simple scalar or reference. Croaks on error.
+
+JSON numbers and strings become simple Perl scalars. JSON arrays become
+Perl arrayrefs and JSON objects become Perl hashrefs. C<true> becomes
+C<1> (C<JSON::true>), C<false> becomes C<0> (C<JSON::false>) and
+C<null> becomes C<undef>.
+
+=head2 decode_prefix
+
+    ($perl_scalar, $characters) = $json->decode_prefix($json_text)
+
+This works like the C<decode> method, but instead of raising an exception
+when there is trailing garbage after the first JSON object, it will
+silently stop parsing there and return the number of characters consumed
+so far.
+
+   JSON->new->decode_prefix ("[1] the tail")
+   => ([], 3)
+
+=head1 INCREMENTAL PARSING
+
+Most of this section are copied and modified from L<JSON::XS/INCREMENTAL PARSING>.
+
+In some cases, there is the need for incremental parsing of JSON texts.
+This module does allow you to parse a JSON stream incrementally.
+It does so by accumulating text until it has a full JSON object, which
+it then can decode. This process is similar to using C<decode_prefix>
+to see if a full JSON object is available, but is much more efficient
+(and can be implemented with a minimum of method calls).
+
+This module will only attempt to parse the JSON text once it is sure it
+has enough text to get a decisive result, using a very simple but
+truly incremental parser. This means that it sometimes won't stop as
+early as the full parser, for example, it doesn't detect parenthese
+mismatches. The only thing it guarantees is that it starts decoding as
+soon as a syntactically valid JSON text has been seen. This means you need
+to set resource limits (e.g. C<max_size>) to ensure the parser will stop
+parsing in the presence if syntax errors.
+
+The following methods implement this incremental parser.
+
+=head2 incr_parse
+
+    $json->incr_parse( [$string] ) # void context
+    
+    $obj_or_undef = $json->incr_parse( [$string] ) # scalar context
+    
+    @obj_or_empty = $json->incr_parse( [$string] ) # list context
+
+This is the central parsing function. It can both append new text and
+extract objects from the stream accumulated so far (both of these
+functions are optional).
+
+If C<$string> is given, then this string is appended to the already
+existing JSON fragment stored in the C<$json> object.
+
+After that, if the function is called in void context, it will simply
+return without doing anything further. This can be used to add more text
+in as many chunks as you want.
+
+If the method is called in scalar context, then it will try to extract
+exactly I<one> JSON object. If that is successful, it will return this
+object, otherwise it will return C<undef>. If there is a parse error,
+this method will croak just as C<decode> would do (one can then use
+C<incr_skip> to skip the errornous part). This is the most common way of
+using the method.
+
+And finally, in list context, it will try to extract as many objects
+from the stream as it can find and return them, or the empty list
+otherwise. For this to work, there must be no separators between the JSON
+objects or arrays, instead they must be concatenated back-to-back. If
+an error occurs, an exception will be raised as in the scalar context
+case. Note that in this case, any previously-parsed JSON texts will be
+lost.
+
+Example: Parse some JSON arrays/objects in a given string and return them.
+
+    my @objs = JSON->new->incr_parse ("[5][7][1,2]");
+
+=head2 incr_text
+
+    $lvalue_string = $json->incr_text
+
+This method returns the currently stored JSON fragment as an lvalue, that
+is, you can manipulate it. This I<only> works when a preceding call to
+C<incr_parse> in I<scalar context> successfully returned an object. Under
+all other circumstances you must not call this function (I mean it.
+although in simple tests it might actually work, it I<will> fail under
+real world conditions). As a special exception, you can also call this
+method before having parsed anything.
+
+This function is useful in two cases: a) finding the trailing text after a
+JSON object or b) parsing multiple JSON objects separated by non-JSON text
+(such as commas).
+
+    $json->incr_text =~ s/\s*,\s*//;
+
+In Perl 5.005, C<lvalue> attribute is not available.
+You must write codes like the below:
+
+    $string = $json->incr_text;
+    $string =~ s/\s*,\s*//;
+    $json->incr_text( $string );
+
+=head2 incr_skip
+
+    $json->incr_skip
+
+This will reset the state of the incremental parser and will remove the
+parsed text from the input buffer. This is useful after C<incr_parse>
+died, in which case the input buffer and incremental parser state is left
+unchanged, to skip the text parsed so far and to reset the parse state.
+
+=head2 incr_reset
+
+    $json->incr_reset
+
+This completely resets the incremental parser, that is, after this call,
+it will be as if the parser had never parsed anything.
+
+This is useful if you want ot repeatedly parse JSON objects and want to
+ignore any trailing data, which means you have to reset the parser after
+each successful decode.
+
+See to L<JSON::XS/INCREMENTAL PARSING> for examples.
+
+
+=head1 JSON::PP OWN METHODS
+
+=head2 allow_singlequote
+
+    $json = $json->allow_singlequote([$enable])
+
+If C<$enable> is true (or missing), then C<decode> will accept
+JSON strings quoted by single quotations that are invalid JSON
+format.
+
+    $json->allow_singlequote->decode({"foo":'bar'});
+    $json->allow_singlequote->decode({'foo':"bar"});
+    $json->allow_singlequote->decode({'foo':'bar'});
+
+As same as the C<relaxed> option, this option may be used to parse
+application-specific files written by humans.
+
+
+=head2 allow_barekey
+
+    $json = $json->allow_barekey([$enable])
+
+If C<$enable> is true (or missing), then C<decode> will accept
+bare keys of JSON object that are invalid JSON format.
+
+As same as the C<relaxed> option, this option may be used to parse
+application-specific files written by humans.
+
+    $json->allow_barekey->decode('{foo:"bar"}');
+
+=head2 allow_bignum
+
+    $json = $json->allow_bignum([$enable])
+
+If C<$enable> is true (or missing), then C<decode> will convert
+the big integer Perl cannot handle as integer into a L<Math::BigInt>
+object and convert a floating number (any) into a L<Math::BigFloat>.
+
+On the contary, C<encode> converts C<Math::BigInt> objects and C<Math::BigFloat>
+objects into JSON numbers with C<allow_blessed> enable.
+
+   $json->allow_nonref->allow_blessed->allow_bignum;
+   $bigfloat = $json->decode('2.000000000000000000000000001');
+   print $json->encode($bigfloat);
+   # => 2.000000000000000000000000001
+
+See to L<JSON::XS/MAPPING> aboout the normal conversion of JSON number.
+
+=head2 loose
+
+    $json = $json->loose([$enable])
+
+The unescaped [\x00-\x1f\x22\x2f\x5c] strings are invalid in JSON strings
+and the module doesn't allow to C<decode> to these (except for \x2f).
+If C<$enable> is true (or missing), then C<decode>  will accept these
+unescaped strings.
+
+    $json->loose->decode(qq|["abc
+                                   def"]|);
+
+See L<JSON::XS/SSECURITY CONSIDERATIONS>.
+
+=head2 escape_slash
+
+    $json = $json->escape_slash([$enable])
+
+According to JSON Grammar, I<slash> (U+002F) is escaped. But default
+JSON::PP (as same as JSON::XS) encodes strings without escaping slash.
+
+If C<$enable> is true (or missing), then C<encode> will escape slashes.
+
+=head2 indent_length
+
+    $json = $json->indent_length($length)
+
+JSON::XS indent space length is 3 and cannot be changed.
+JSON::PP set the indent space length with the given $length.
+The default is 3. The acceptable range is 0 to 15.
+
+=head2 sort_by
+
+    $json = $json->sort_by($function_name)
+    $json = $json->sort_by($subroutine_ref)
+
+If $function_name or $subroutine_ref are set, its sort routine are used
+in encoding JSON objects.
+
+   $js = $pc->sort_by(sub { $JSON::PP::a cmp $JSON::PP::b })->encode($obj);
+   # is($js, q|{"a":1,"b":2,"c":3,"d":4,"e":5,"f":6,"g":7,"h":8,"i":9}|);
+
+   $js = $pc->sort_by('own_sort')->encode($obj);
+   # is($js, q|{"a":1,"b":2,"c":3,"d":4,"e":5,"f":6,"g":7,"h":8,"i":9}|);
+
+   sub JSON::PP::own_sort { $JSON::PP::a cmp $JSON::PP::b }
+
+As the sorting routine runs in the JSON::PP scope, the given
+subroutine name and the special variables C<$a>, C<$b> will begin
+'JSON::PP::'.
+
+If $integer is set, then the effect is same as C<canonical> on.
+
+=head1 INTERNAL
+
+For developers.
+
+=over
+
+=item PP_encode_box
+
+Returns
+
+        {
+            depth        => $depth,
+            indent_count => $indent_count,
+        }
+
+
+=item PP_decode_box
+
+Returns
+
+        {
+            text    => $text,
+            at      => $at,
+            ch      => $ch,
+            len     => $len,
+            depth   => $depth,
+            encoding      => $encoding,
+            is_valid_utf8 => $is_valid_utf8,
+        };
+
+=back
+
+=head1 MAPPING
+
+This section is copied from JSON::XS and modified to C<JSON::PP>.
+JSON::XS and JSON::PP mapping mechanisms are almost equivalent.
+
+See to L<JSON::XS/MAPPING>.
+
+=head2 JSON -> PERL
+
+=over 4
+
+=item object
+
+A JSON object becomes a reference to a hash in Perl. No ordering of object
+keys is preserved (JSON does not preserver object key ordering itself).
+
+=item array
+
+A JSON array becomes a reference to an array in Perl.
+
+=item string
+
+A JSON string becomes a string scalar in Perl - Unicode codepoints in JSON
+are represented by the same codepoints in the Perl string, so no manual
+decoding is necessary.
+
+=item number
+
+A JSON number becomes either an integer, numeric (floating point) or
+string scalar in perl, depending on its range and any fractional parts. On
+the Perl level, there is no difference between those as Perl handles all
+the conversion details, but an integer may take slightly less memory and
+might represent more values exactly than floating point numbers.
+
+If the number consists of digits only, C<JSON> will try to represent
+it as an integer value. If that fails, it will try to represent it as
+a numeric (floating point) value if that is possible without loss of
+precision. Otherwise it will preserve the number as a string value (in
+which case you lose roundtripping ability, as the JSON number will be
+re-encoded toa JSON string).
+
+Numbers containing a fractional or exponential part will always be
+represented as numeric (floating point) values, possibly at a loss of
+precision (in which case you might lose perfect roundtripping ability, but
+the JSON number will still be re-encoded as a JSON number).
+
+Note that precision is not accuracy - binary floating point values cannot
+represent most decimal fractions exactly, and when converting from and to
+floating point, C<JSON> only guarantees precision up to but not including
+the leats significant bit.
+
+When C<allow_bignum> is enable, the big integers 
+and the numeric can be optionally converted into L<Math::BigInt> and
+L<Math::BigFloat> objects.
+
+=item true, false
+
+These JSON atoms become C<JSON::PP::true> and C<JSON::PP::false>,
+respectively. They are overloaded to act almost exactly like the numbers
+C<1> and C<0>. You can check wether a scalar is a JSON boolean by using
+the C<JSON::is_bool> function.
+
+   print JSON::PP::true . "\n";
+    => true
+   print JSON::PP::true + 1;
+    => 1
+
+   ok(JSON::true eq  '1');
+   ok(JSON::true == 1);
+
+C<JSON> will install these missing overloading features to the backend modules.
+
+
+=item null
+
+A JSON null atom becomes C<undef> in Perl.
+
+C<JSON::PP::null> returns C<unddef>.
+
+=back
+
+
+=head2 PERL -> JSON
+
+The mapping from Perl to JSON is slightly more difficult, as Perl is a
+truly typeless language, so we can only guess which JSON type is meant by
+a Perl value.
+
+=over 4
+
+=item hash references
+
+Perl hash references become JSON objects. As there is no inherent ordering
+in hash keys (or JSON objects), they will usually be encoded in a
+pseudo-random order that can change between runs of the same program but
+stays generally the same within a single run of a program. C<JSON>
+optionally sort the hash keys (determined by the I<canonical> flag), so
+the same datastructure will serialise to the same JSON text (given same
+settings and version of JSON::XS), but this incurs a runtime overhead
+and is only rarely useful, e.g. when you want to compare some JSON text
+against another for equality.
+
+
+=item array references
+
+Perl array references become JSON arrays.
+
+=item other references
+
+Other unblessed references are generally not allowed and will cause an
+exception to be thrown, except for references to the integers C<0> and
+C<1>, which get turned into C<false> and C<true> atoms in JSON. You can
+also use C<JSON::false> and C<JSON::true> to improve readability.
+
+   to_json [\0,JSON::PP::true]      # yields [false,true]
+
+=item JSON::PP::true, JSON::PP::false, JSON::PP::null
+
+These special values become JSON true and JSON false values,
+respectively. You can also use C<\1> and C<\0> directly if you want.
+
+JSON::PP::null returns C<undef>.
+
+=item blessed objects
+
+Blessed objects are not directly representable in JSON. See the
+C<allow_blessed> and C<convert_blessed> methods on various options on
+how to deal with this: basically, you can choose between throwing an
+exception, encoding the reference as if it weren't blessed, or provide
+your own serialiser method.
+
+See to L<convert_blessed>.
+
+=item simple scalars
+
+Simple Perl scalars (any scalar that is not a reference) are the most
+difficult objects to encode: JSON::XS and JSON::PP will encode undefined scalars as
+JSON C<null> values, scalars that have last been used in a string context
+before encoding as JSON strings, and anything else as number value:
+
+   # dump as number
+   encode_json [2]                      # yields [2]
+   encode_json [-3.0e17]                # yields [-3e+17]
+   my $value = 5; encode_json [$value]  # yields [5]
+
+   # used as string, so dump as string
+   print $value;
+   encode_json [$value]                 # yields ["5"]
+
+   # undef becomes null
+   encode_json [undef]                  # yields [null]
+
+You can force the type to be a string by stringifying it:
+
+   my $x = 3.1; # some variable containing a number
+   "$x";        # stringified
+   $x .= "";    # another, more awkward way to stringify
+   print $x;    # perl does it for you, too, quite often
+
+You can force the type to be a number by numifying it:
+
+   my $x = "3"; # some variable containing a string
+   $x += 0;     # numify it, ensuring it will be dumped as a number
+   $x *= 1;     # same thing, the choise is yours.
+
+You can not currently force the type in other, less obscure, ways.
+
+Note that numerical precision has the same meaning as under Perl (so
+binary to decimal conversion follows the same rules as in Perl, which
+can differ to other languages). Also, your perl interpreter might expose
+extensions to the floating point numbers of your platform, such as
+infinities or NaN's - these cannot be represented in JSON, and it is an
+error to pass those in.
+
+=item Big Number
+
+When C<allow_bignum> is enable, 
+C<encode> converts C<Math::BigInt> objects and C<Math::BigFloat>
+objects into JSON numbers.
+
+
+=back
+
+=head1 UNICODE HANDLING ON PERLS
+
+If you do not know about Unicode on Perl well,
+please check L<JSON::XS/A FEW NOTES ON UNICODE AND PERL>.
+
+=head2 Perl 5.8 and later
+
+Perl can handle Unicode and the JSON::PP de/encode methods also work properly.
+
+    $json->allow_nonref->encode(chr hex 3042);
+    $json->allow_nonref->encode(chr hex 12345);
+
+Reuturns C<"\u3042"> and C<"\ud808\udf45"> respectively.
+
+    $json->allow_nonref->decode('"\u3042"');
+    $json->allow_nonref->decode('"\ud808\udf45"');
+
+Returns UTF-8 encoded strings with UTF8 flag, regarded as C<U+3042> and C<U+12345>.
+
+Note that the versions from Perl 5.8.0 to 5.8.2, Perl built-in C<join> was broken,
+so JSON::PP wraps the C<join> with a subroutine. Thus JSON::PP works slow in the versions.
+
+
+=head2 Perl 5.6
+
+Perl can handle Unicode and the JSON::PP de/encode methods also work.
+
+=head2 Perl 5.005
+
+Perl 5.005 is a byte sementics world -- all strings are sequences of bytes.
+That means the unicode handling is not available.
+
+In encoding,
+
+    $json->allow_nonref->encode(chr hex 3042);  # hex 3042 is 12354.
+    $json->allow_nonref->encode(chr hex 12345); # hex 12345 is 74565.
+
+Returns C<B> and C<E>, as C<chr> takes a value more than 255, it treats
+as C<$value % 256>, so the above codes are equivalent to :
+
+    $json->allow_nonref->encode(chr 66);
+    $json->allow_nonref->encode(chr 69);
+
+In decoding,
+
+    $json->decode('"\u00e3\u0081\u0082"');
+
+The returned is a byte sequence C<0xE3 0x81 0x82> for UTF-8 encoded
+japanese character (C<HIRAGANA LETTER A>).
+And if it is represented in Unicode code point, C<U+3042>.
+
+Next, 
+
+    $json->decode('"\u3042"');
+
+We ordinary expect the returned value is a Unicode character C<U+3042>.
+But here is 5.005 world. This is C<0xE3 0x81 0x82>.
+
+    $json->decode('"\ud808\udf45"');
+
+This is not a character C<U+12345> but bytes - C<0xf0 0x92 0x8d 0x85>.
+
+
+=head1 TODO
+
+=over
+
+=item speed
+
+=item memory saving
+
+=back
+
+
+=head1 SEE ALSO
+
+Most of the document are copied and modified from JSON::XS doc.
+
+L<JSON::XS>
+
+RFC4627 (L<http://www.ietf.org/rfc/rfc4627.txt>)
+
+=head1 AUTHOR
+
+Makamaka Hannyaharamitu, E<lt>makamaka[at]cpan.orgE<gt>
+
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright 2007-2014 by Makamaka Hannyaharamitu
+
+This library is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself. 
+
+=cut
diff --git a/lib/5.24.1/JSON/PP/Boolean.pm b/lib/5.24.1/JSON/PP/Boolean.pm
new file mode 100644
index 00000000..0b1fb19b
--- /dev/null
+++ b/lib/5.24.1/JSON/PP/Boolean.pm
@@ -0,0 +1,26 @@
+=head1 NAME
+
+JSON::PP::Boolean - dummy module providing JSON::PP::Boolean
+
+=head1 SYNOPSIS
+
+ # do not "use" yourself
+
+=head1 DESCRIPTION
+
+This module exists only to provide overload resolution for Storable and similar modules. See
+L<JSON::PP> for more info about this class.
+
+=cut
+
+use JSON::PP ();
+use strict;
+
+1;
+
+=head1 AUTHOR
+
+This idea is from L<JSON::XS::Boolean> written by Marc Lehmann <schmorp[at]schmorp.de>
+
+=cut
+
diff --git a/lib/5.24.1/Locale/Codes.pm b/lib/5.24.1/Locale/Codes.pm
new file mode 100644
index 00000000..118c277c
--- /dev/null
+++ b/lib/5.24.1/Locale/Codes.pm
@@ -0,0 +1,708 @@
+package Locale::Codes;
+# Copyright (C) 2001      Canon Research Centre Europe (CRE).
+# Copyright (C) 2002-2009 Neil Bowers
+# Copyright (c) 2010-2015 Sullivan Beck
+# This program is free software; you can redistribute it and/or modify it
+# under the same terms as Perl itself.
+
+use strict;
+require 5.006;
+use warnings;
+
+use Carp;
+use Locale::Codes::Constants;
+
+#=======================================================================
+#       Public Global Variables
+#=======================================================================
+
+# This module is not called directly... %Data is filled in by the
+# calling modules.
+
+our($VERSION,%Data,%Retired);
+
+# $Data{ TYPE }{ code2id   }{ CODESET } { CODE }  = [ ID, I ]
+#              { id2code   }{ CODESET } { ID }    = CODE
+#              { id2names  }{ ID }                = [ NAME, NAME, ... ]
+#              { alias2id  }{ NAME }              = [ ID, I ]
+#              { id        }                      = FIRST_UNUSED_ID
+#              { codealias }{ CODESET } { ALIAS } = CODE
+#
+# $Retired{ TYPE }{ CODESET }{ code }{ CODE } = NAME
+#                            { name }{ NAME } = [CODE,NAME]  (the key is lowercase)
+
+$VERSION='3.37';
+
+#=======================================================================
+#
+# _code ( TYPE,CODE,CODESET )
+#
+#=======================================================================
+
+sub _code {
+   return 1  if (@_ > 3);
+
+   my($type,$code,$codeset) = @_;
+   $code = ''  if (! defined $code);
+
+   # Determine the codeset
+
+   $codeset = $ALL_CODESETS{$type}{'default'}
+     if (! defined($codeset)  ||  $codeset eq '');
+   $codeset = lc($codeset);
+   return (1)  if (! exists $ALL_CODESETS{$type}{'codesets'}{$codeset});
+   return (0,$code,$codeset)  if (! $code);
+
+   # Determine the properties of the codeset
+
+   my($op,@args) = @{ $ALL_CODESETS{$type}{'codesets'}{$codeset} };
+
+   if      ($op eq 'lc') {
+      $code = lc($code);
+      return (0,$code,$codeset);
+   }
+
+   if ($op eq 'uc') {
+      $code = uc($code);
+      return (0,$code,$codeset);
+   }
+
+   if ($op eq 'ucfirst') {
+      $code = ucfirst(lc($code));
+      return (0,$code,$codeset);
+   }
+
+   # uncoverable branch false
+   if ($op eq 'numeric') {
+      return (1)  unless ($code =~ /^\d+$/);
+      my $l = $args[0];
+      $code    = sprintf("%.${l}d", $code);
+      return (0,$code,$codeset);
+   }
+
+   # uncoverable statement
+   die "ERROR: codeset not defined correctly: $codeset [$op]\n";
+}
+
+#=======================================================================
+#
+# _code2name ( TYPE,CODE [,CODESET] [,'retired'] )
+#
+#=======================================================================
+
+sub _code2name {
+   my($type,@args)         = @_;
+   my $retired             = 0;
+   if (@args > 0  &&  $args[$#args]  &&  $args[$#args] eq 'retired') {
+      pop(@args);
+      $retired             = 1;
+   }
+
+   my($err,$code,$codeset) = _code($type,@args);
+   return undef  if ($err);
+
+   $code = $Data{$type}{'codealias'}{$codeset}{$code}
+     if (exists $Data{$type}{'codealias'}{$codeset}{$code});
+
+   if (exists $Data{$type}{'code2id'}{$codeset}  &&
+       exists $Data{$type}{'code2id'}{$codeset}{$code}) {
+      my ($id,$i) = @{ $Data{$type}{'code2id'}{$codeset}{$code} };
+      my $name    = $Data{$type}{'id2names'}{$id}[$i];
+      return $name;
+
+   } elsif ($retired  &&  exists $Retired{$type}{$codeset}{'code'}{$code}) {
+      return $Retired{$type}{$codeset}{'code'}{$code};
+
+   } else {
+      return undef;
+   }
+}
+
+#=======================================================================
+#
+# _name2code ( TYPE,NAME [,CODESET] [,'retired'] )
+#
+#=======================================================================
+
+sub _name2code {
+   my($type,$name,@args)   = @_;
+   return undef  if (! $name);
+   $name                   = lc($name);
+
+   my $retired             = 0;
+   if (@args > 0  &&  $args[$#args]  &&  $args[$#args] eq 'retired') {
+      pop(@args);
+      $retired             = 1;
+   }
+
+   my($err,$tmp,$codeset) = _code($type,'',@args);
+   return undef  if ($err);
+
+   if (exists $Data{$type}{'alias2id'}{$name}) {
+      my $id = $Data{$type}{'alias2id'}{$name}[0];
+      if (exists $Data{$type}{'id2code'}{$codeset}{$id}) {
+         return $Data{$type}{'id2code'}{$codeset}{$id};
+      }
+
+   } elsif ($retired  &&  exists $Retired{$type}{$codeset}{'name'}{$name}) {
+      return $Retired{$type}{$codeset}{'name'}{$name}[0];
+   }
+
+   return undef;
+}
+
+#=======================================================================
+#
+# _code2code ( TYPE,CODE,CODESET )
+#
+#=======================================================================
+
+sub _code2code {
+   my($type,@args) = @_;
+   (@args == 3) or croak "${type}_code2code() takes 3 arguments!";
+
+   my($code,$inset,$outset) = @args;
+   my($err,$tmp);
+   ($err,$code,$inset) = _code($type,$code,$inset);
+   return undef  if ($err);
+   ($err,$tmp,$outset) = _code($type,'',$outset);
+   return undef  if ($err);
+
+   my $name    = _code2name($type,$code,$inset);
+   my $outcode = _name2code($type,$name,$outset);
+   return $outcode;
+}
+
+#=======================================================================
+#
+# _all_codes ( TYPE [,CODESET] [,'retired'] )
+#
+#=======================================================================
+
+sub _all_codes {
+   my($type,@args)         = @_;
+   my $retired             = 0;
+   if (@args > 0  &&  $args[$#args]  &&  $args[$#args] eq 'retired') {
+      pop(@args);
+      $retired             = 1;
+   }
+
+   my ($err,$tmp,$codeset) = _code($type,'',@args);
+   return ()  if ($err);
+
+   if (! exists $Data{$type}{'code2id'}{$codeset}) {
+      return ();
+   }
+   my @codes = keys %{ $Data{$type}{'code2id'}{$codeset} };
+   push(@codes,keys %{ $Retired{$type}{$codeset}{'code'} })  if ($retired);
+   return (sort @codes);
+}
+
+#=======================================================================
+#
+# _all_names ( TYPE [,CODESET] [,'retired'] )
+#
+#=======================================================================
+
+sub _all_names {
+   my($type,@args)         = @_;
+   my $retired             = 0;
+   if (@args > 0  &&  $args[$#args]  &&  $args[$#args] eq 'retired') {
+      pop(@args);
+      $retired             = 1;
+   }
+
+   my ($err,$tmp,$codeset) = _code($type,'',@args);
+   return ()  if ($err);
+
+   my @codes = _all_codes($type,$codeset);
+   my @names;
+
+   foreach my $code (@codes) {
+      my($id,$i) = @{ $Data{$type}{'code2id'}{$codeset}{$code} };
+      my $name   = $Data{$type}{'id2names'}{$id}[$i];
+      push(@names,$name);
+   }
+   if ($retired) {
+      foreach my $lc (keys %{ $Retired{$type}{$codeset}{'name'} }) {
+         my $name = $Retired{$type}{$codeset}{'name'}{$lc}[1];
+         push @names,$name;
+      }
+   }
+   return (sort @names);
+}
+
+#=======================================================================
+#
+# _rename ( TYPE,CODE,NAME,CODESET )
+#
+# Change the official name for a code. The original is retained
+# as an alias, but the new name will be returned if you lookup the
+# name from code.
+#
+#=======================================================================
+
+sub _rename {
+   my($type,$code,$new_name,@args) = @_;
+
+   my $nowarn   = 0;
+   $nowarn      = 1, pop(@args)  if (@args  &&  $args[$#args] eq "nowarn");
+
+   my $codeset  = shift(@args);
+   my $err;
+   ($err,$code,$codeset) = _code($type,$code,$codeset);
+
+   if (! $codeset) {
+      carp "rename_$type(): unknown codeset\n"  unless ($nowarn);
+      return 0;
+   }
+
+   $code = $Data{$type}{'codealias'}{$codeset}{$code}
+     if (exists $Data{$type}{'codealias'}{$codeset}{$code});
+
+   # Check that $code exists in the codeset.
+
+   my $id;
+   if (exists $Data{$type}{'code2id'}{$codeset}{$code}) {
+      $id = $Data{$type}{'code2id'}{$codeset}{$code}[0];
+   } else {
+      carp "rename_$type(): unknown code: $code\n"  unless ($nowarn);
+      return 0;
+   }
+
+   # Cases:
+   #   1. Renaming to a name which exists with a different ID
+   #      Error
+   #
+   #   2. Renaming to a name which exists with the same ID
+   #      Just change code2id (I value)
+   #
+   #   3. Renaming to a new name
+   #      Create a new alias
+   #      Change code2id (I value)
+
+   if (exists $Data{$type}{'alias2id'}{lc($new_name)}) {
+      # Existing name (case 1 and 2)
+
+      my ($new_id,$i) = @{ $Data{$type}{'alias2id'}{lc($new_name)} };
+      if ($new_id != $id) {
+         # Case 1
+         carp "rename_$type(): rename to an existing $type not allowed\n"
+           unless ($nowarn);
+         return 0;
+      }
+
+      # Case 2
+
+      $Data{$type}{'code2id'}{$codeset}{$code}[1] = $i;
+
+   } else {
+
+      # Case 3
+
+      push @{ $Data{$type}{'id2names'}{$id} },$new_name;
+      my $i = $#{ $Data{$type}{'id2names'}{$id} };
+      $Data{$type}{'alias2id'}{lc($new_name)} = [ $id,$i ];
+      $Data{$type}{'code2id'}{$codeset}{$code}[1] = $i;
+   }
+
+   return 1;
+}
+
+#=======================================================================
+#
+# _add_code ( TYPE,CODE,NAME,CODESET )
+#
+# Add a new code to the codeset. Both CODE and NAME must be
+# unused in the code set.
+#
+#=======================================================================
+
+sub _add_code {
+   my($type,$code,$name,@args) = @_;
+
+   my $nowarn   = 0;
+   $nowarn      = 1, pop(@args)  if (@args  &&  $args[$#args] eq "nowarn");
+
+   my $codeset  = shift(@args);
+   my $err;
+   ($err,$code,$codeset) = _code($type,$code,$codeset);
+
+   if (! $codeset) {
+      carp "add_$type(): unknown codeset\n"  unless ($nowarn);
+      return 0;
+   }
+
+   # Check that $code is unused.
+
+   if (exists $Data{$type}{'code2id'}{$codeset}{$code}  ||
+       exists $Data{$type}{'codealias'}{$codeset}{$code}) {
+      carp "add_$type(): code already in use: $code\n"  unless ($nowarn);
+      return 0;
+   }
+
+   # Check to see that $name is unused in this code set.  If it is
+   # used (but not in this code set), we'll use that ID.  Otherwise,
+   # we'll need to get the next available ID.
+
+   my ($id,$i);
+   if (exists $Data{$type}{'alias2id'}{lc($name)}) {
+      ($id,$i) = @{ $Data{$type}{'alias2id'}{lc($name)} };
+      if (exists $Data{$type}{'id2code'}{$codeset}{$id}) {
+         carp "add_$type(): name already in use: $name\n"  unless ($nowarn);
+         return 0;
+      }
+
+   } else {
+      $id = $Data{$type}{'id'}++;
+      $i  = 0;
+      $Data{$type}{'alias2id'}{lc($name)} = [ $id,$i ];
+      $Data{$type}{'id2names'}{$id}       = [ $name ];
+   }
+
+   # Add the new code
+
+   $Data{$type}{'code2id'}{$codeset}{$code} = [ $id,$i ];
+   $Data{$type}{'id2code'}{$codeset}{$id}   = $code;
+
+   return 1;
+}
+
+#=======================================================================
+#
+# _delete_code ( TYPE,CODE,CODESET )
+#
+# Delete a code from the codeset.
+#
+#=======================================================================
+
+sub _delete_code {
+   my($type,$code,@args) = @_;
+
+   my $nowarn   = 0;
+   $nowarn      = 1, pop(@args)  if (@args  &&  $args[$#args] eq "nowarn");
+
+   my $codeset  = shift(@args);
+   my $err;
+   ($err,$code,$codeset) = _code($type,$code,$codeset);
+
+   if (! $codeset) {
+      carp "delete_$type(): unknown codeset\n"  unless ($nowarn);
+      return 0;
+   }
+
+   $code = $Data{$type}{'codealias'}{$codeset}{$code}
+     if (exists $Data{$type}{'codealias'}{$codeset}{$code});
+
+   # Check that $code is valid.
+
+   if (! exists $Data{$type}{'code2id'}{$codeset}{$code}) {
+      carp "delete_$type(): code does not exist: $code\n"  unless ($nowarn);
+      return 0;
+   }
+
+   # Delete the code
+
+   my $id = $Data{$type}{'code2id'}{$codeset}{$code}[0];
+   delete $Data{$type}{'code2id'}{$codeset}{$code};
+   delete $Data{$type}{'id2code'}{$codeset}{$id};
+
+   # Delete any aliases that are linked to this code
+
+   foreach my $alias (keys %{ $Data{$type}{'codealias'}{$codeset} }) {
+      next  if ($Data{$type}{'codealias'}{$codeset}{$alias} ne $code);
+      delete $Data{$type}{'codealias'}{$codeset}{$alias};
+   }
+
+   # If this ID is not used in any other codeset, delete it completely.
+
+   foreach my $c (keys %{ $Data{$type}{'id2code'} }) {
+      return 1  if (exists $Data{$type}{'id2code'}{$c}{$id});
+   }
+
+   my @names = @{ $Data{$type}{'id2names'}{$id} };
+   delete $Data{$type}{'id2names'}{$id};
+
+   foreach my $name (@names) {
+      delete $Data{$type}{'alias2id'}{lc($name)};
+   }
+
+   return 1;
+}
+
+#=======================================================================
+#
+# _add_alias ( TYPE,NAME,NEW_NAME )
+#
+# Add a new alias. NAME must exist, and NEW_NAME must be unused.
+#
+#=======================================================================
+
+sub _add_alias {
+   my($type,$name,$new_name,$nowarn) = @_;
+
+   $nowarn   = (defined($nowarn)  &&  $nowarn eq "nowarn" ? 1 : 0);
+
+   # Check that $name is used and $new_name is new.
+
+   my($id);
+   if (exists $Data{$type}{'alias2id'}{lc($name)}) {
+      $id = $Data{$type}{'alias2id'}{lc($name)}[0];
+   } else {
+      carp "add_${type}_alias(): name does not exist: $name\n"  unless ($nowarn);
+      return 0;
+   }
+
+   if (exists $Data{$type}{'alias2id'}{lc($new_name)}) {
+      carp "add_${type}_alias(): alias already in use: $new_name\n"  unless ($nowarn);
+      return 0;
+   }
+
+   # Add the new alias
+
+   push @{ $Data{$type}{'id2names'}{$id} },$new_name;
+   my $i = $#{ $Data{$type}{'id2names'}{$id} };
+   $Data{$type}{'alias2id'}{lc($new_name)} = [ $id,$i ];
+
+   return 1;
+}
+
+#=======================================================================
+#
+# _delete_alias ( TYPE,NAME )
+#
+# This deletes a name from the list of names used by an element.
+# NAME must be used, but must NOT be the only name in the list.
+#
+# Any id2name that references this name will be changed to
+# refer to the first name in the list.
+#
+#=======================================================================
+
+sub _delete_alias {
+   my($type,$name,$nowarn) = @_;
+
+   $nowarn   = (defined($nowarn)  &&  $nowarn eq "nowarn" ? 1 : 0);
+
+   # Check that $name is used.
+
+   my($id,$i);
+   if (exists $Data{$type}{'alias2id'}{lc($name)}) {
+      ($id,$i) = @{ $Data{$type}{'alias2id'}{lc($name)} };
+   } else {
+      carp "delete_${type}_alias(): name does not exist: $name\n"  unless ($nowarn);
+      return 0;
+   }
+
+   my $n = $#{ $Data{$type}{'id2names'}{$id} } + 1;
+   if ($n == 1) {
+      carp "delete_${type}_alias(): only one name defined (use _delete_${type} instead)\n"
+        unless ($nowarn);
+      return 0;
+   }
+
+   # Delete the alias.
+
+   splice (@{ $Data{$type}{'id2names'}{$id} },$i,1);
+   delete $Data{$type}{'alias2id'}{lc($name)};
+
+   # Every element that refers to this ID:
+   #   Ignore     if I < $i
+   #   Set to 0   if I = $i
+   #   Decrement  if I > $i
+
+   foreach my $codeset (keys %{ $Data{'code2id'} }) {
+      foreach my $code (keys %{ $Data{'code2id'}{$codeset} }) {
+         my($jd,$j) = @{ $Data{'code2id'}{$codeset}{$code} };
+         next  if ($jd ne $id  ||
+                   $j < $i);
+         if ($i == $j) {
+            $Data{'code2id'}{$codeset}{$code}[1] = 0;
+         } else {
+            $Data{'code2id'}{$codeset}{$code}[1]--;
+         }
+      }
+   }
+
+   return 1;
+}
+
+#=======================================================================
+#
+# _rename_code ( TYPE,CODE,NEW_CODE,CODESET )
+#
+# Change the official code. The original is retained as an alias, but
+# the new name will be returned if you lookup the code from name.
+#
+#=======================================================================
+
+sub _rename_code {
+   my($type,$code,$new_code,@args) = @_;
+
+   my $nowarn   = 0;
+   $nowarn      = 1, pop(@args)  if (@args  &&  $args[$#args] eq "nowarn");
+
+   my $codeset  = shift(@args);
+   my $err;
+   ($err,$code,$codeset)     = _code($type,$code,$codeset);
+   ($err,$new_code,$codeset) = _code($type,$new_code,$codeset)
+     if (! $err);
+
+   if (! $codeset) {
+      carp "rename_$type(): unknown codeset\n"  unless ($nowarn);
+      return 0;
+   }
+
+   $code = $Data{$type}{'codealias'}{$codeset}{$code}
+     if (exists $Data{$type}{'codealias'}{$codeset}{$code});
+
+   # Check that $code exists in the codeset.
+
+   if (! exists $Data{$type}{'code2id'}{$codeset}{$code}) {
+      carp "rename_$type(): unknown code: $code\n"  unless ($nowarn);
+      return 0;
+   }
+
+   # Cases:
+   #   1. Renaming code to an existing alias of this code:
+   #      Make the alias real and the code an alias
+   #
+   #   2. Renaming code to some other existing alias:
+   #      Error
+   #
+   #   3. Renaming code to some other code:
+   #      Error (
+   #
+   #   4. Renaming code to a new code:
+   #      Make code into an alias
+   #      Replace code with new_code.
+
+   if (exists $Data{$type}{'codealias'}{$codeset}{$new_code}) {
+      # Cases 1 and 2
+      if ($Data{$type}{'codealias'}{$codeset}{$new_code} eq $code) {
+         # Case 1
+
+         delete $Data{$type}{'codealias'}{$codeset}{$new_code};
+
+      } else {
+         # Case 2
+         carp "rename_$type(): new code already in use: $new_code\n"  unless ($nowarn);
+         return 0;
+      }
+
+   } elsif (exists $Data{$type}{'code2id'}{$codeset}{$new_code}) {
+      # Case 3
+      carp "rename_$type(): new code already in use: $new_code\n"  unless ($nowarn);
+      return 0;
+   }
+
+   # Cases 1 and 4
+
+   $Data{$type}{'codealias'}{$codeset}{$code} = $new_code;
+
+   my $id = $Data{$type}{'code2id'}{$codeset}{$code}[0];
+   $Data{$type}{'code2id'}{$codeset}{$new_code} = $Data{$type}{'code2id'}{$codeset}{$code};
+   delete $Data{$type}{'code2id'}{$codeset}{$code};
+
+   $Data{$type}{'id2code'}{$codeset}{$id} = $new_code;
+
+   return 1;
+}
+
+#=======================================================================
+#
+# _add_code_alias ( TYPE,CODE,NEW_CODE,CODESET )
+#
+# Adds an alias for the code.
+#
+#=======================================================================
+
+sub _add_code_alias {
+   my($type,$code,$new_code,@args) = @_;
+
+   my $nowarn   = 0;
+   $nowarn      = 1, pop(@args)  if (@args  &&  $args[$#args] eq "nowarn");
+
+   my $codeset  = shift(@args);
+   my $err;
+   ($err,$code,$codeset)     = _code($type,$code,$codeset);
+   ($err,$new_code,$codeset) = _code($type,$new_code,$codeset)
+     if (! $err);
+
+   if (! $codeset) {
+      carp "add_${type}_code_alias(): unknown codeset\n"  unless ($nowarn);
+      return 0;
+   }
+
+   $code = $Data{$type}{'codealias'}{$codeset}{$code}
+     if (exists $Data{$type}{'codealias'}{$codeset}{$code});
+
+   # Check that $code exists in the codeset and that $new_code
+   # does not exist.
+
+   if (! exists $Data{$type}{'code2id'}{$codeset}{$code}) {
+      carp "add_${type}_code_alias(): unknown code: $code\n"  unless ($nowarn);
+      return 0;
+   }
+
+   if (exists $Data{$type}{'code2id'}{$codeset}{$new_code}  ||
+       exists $Data{$type}{'codealias'}{$codeset}{$new_code}) {
+      carp "add_${type}_code_alias(): code already in use: $new_code\n"  unless ($nowarn);
+      return 0;
+   }
+
+   # Add the alias
+
+   $Data{$type}{'codealias'}{$codeset}{$new_code} = $code;
+
+   return 1;
+}
+
+#=======================================================================
+#
+# _delete_code_alias ( TYPE,CODE,CODESET )
+#
+# Deletes an alias for the code.
+#
+#=======================================================================
+
+sub _delete_code_alias {
+   my($type,$code,@args) = @_;
+
+   my $nowarn   = 0;
+   $nowarn      = 1, pop(@args)  if (@args  &&  $args[$#args] eq "nowarn");
+
+   my $codeset  = shift(@args);
+   my $err;
+   ($err,$code,$codeset)     = Locale::Codes::_code($type,$code,$codeset);
+
+   if (! $codeset) {
+      carp "delete_${type}_code_alias(): unknown codeset\n"  unless ($nowarn);
+      return 0;
+   }
+
+   # Check that $code exists in the codeset as an alias.
+
+   if (! exists $Data{$type}{'codealias'}{$codeset}{$code}) {
+      carp "delete_${type}_code_alias(): no alias defined: $code\n"  unless ($nowarn);
+      return 0;
+   }
+
+   # Delete the alias
+
+   delete $Data{$type}{'codealias'}{$codeset}{$code};
+
+   return 1;
+}
+
+1;
+# Local Variables:
+# mode: cperl
+# indent-tabs-mode: nil
+# cperl-indent-level: 3
+# cperl-continued-statement-offset: 2
+# cperl-continued-brace-offset: 0
+# cperl-brace-offset: 0
+# cperl-brace-imaginary-offset: 0
+# cperl-label-offset: -2
+# End:
diff --git a/lib/5.24.1/Locale/Codes.pod b/lib/5.24.1/Locale/Codes.pod
new file mode 100644
index 00000000..106f0bab
--- /dev/null
+++ b/lib/5.24.1/Locale/Codes.pod
@@ -0,0 +1,299 @@
+=pod
+
+=head1 NAME
+
+Locale::Codes - a distribution of modules to handle locale codes
+
+=head1 DESCRIPTION
+
+B<Locale-Codes> is a distribution containing a set of modules.  The
+modules each deal with different types of codes which identify parts
+of the locale including languages, countries, currency, etc.
+
+Currently, the following modules are included:
+
+=over 4
+
+=item L<Locale::Codes::Country>, L<Locale::Country>
+
+This includes support for country codes (such as those listed in ISO-3166)
+to specify the country.
+
+Because this module was originally distributed as L<Locale::Country>, it is
+also available under that name.
+
+=item L<Locale::Codes::Language>, L<Locale::Language>
+
+This includes support for language codes (such as those listed in ISO-639)
+to specify the language.
+
+Because this module was originally distributed as L<Locale::Language>, it is
+also available under that name.
+
+=item L<Locale::Codes::Currency>, L<Locale::Currency>
+
+This includes support for currency codes (such as those listed in ISO-4217)
+to specify the currency.
+
+Because this module was originally distributed as L<Locale::Currency>, it is
+also available under that name.
+
+=item L<Locale::Codes::Script>, L<Locale::Script>
+
+This includes support for script codes (such as those listed in ISO-15924)
+to specify the script.
+
+Because this module was originally distributed as L<Locale::Script>, it is
+also available under that name.
+
+=item L<Locale::Codes::LangExt>
+
+This includes support for language extension codes (such as those listed
+in the IANA language registry) to specify the language extension.
+
+=item L<Locale::Codes::LangVar>
+
+This includes support for language variation codes (such as those listed
+in the IANA language registry) to specify the language variation.
+
+=item L<Locale::Codes::LangFam>
+
+This includes support for language family codes (such as those listed
+in ISO 639-5) to specify families of languages.
+
+=back
+
+Each module can support an arbitrary number of code sets, and it is
+not required that the relationship between these code sets be
+one-to-one.  For example, the L<Locale::Codes::Country> module
+supports code sets from ISO-3166 and the IANA standard, and those two
+standards do not break the world down into exactly the same sets of
+countries. This does not cause any problem (though converting codes
+from ISO-3166 to IANA or back will not work except for countries that
+are one-to-one).
+
+All data in all of these modules comes directly from the original
+standards (or as close to direct as possible), so it should be
+up-to-date at the time of release.
+
+I plan on releasing a new version several times a year to incorporate
+any changes made in the standards. However, I don't always know about
+changes that occur, so if any of the standards change, and you want a
+new release sooner, just email me and I'll get one out.
+
+In addition to the modules above, there are a number of support modules included
+in the distribution including:
+
+=over 4
+
+=item B<Locale::Codes>
+
+=item B<Locale::Codes::Constants>
+
+=item B<Locale::Codes::Country_codes>
+
+=item B<Locale::Codes::Language_codes>
+
+=item B<Locale::Codes::Currency_codes>
+
+=item B<Locale::Codes::Script_codes>
+
+=item B<Locale::Codes::LangExt_codes>
+
+=item B<Locale::Codes::LangVar_codes>
+
+=item B<Locale::Codes::LangFam_codes>
+
+=back
+
+These modules are not intended to be used by programmers. They contain functions
+or data that are used by the modules listed above.  No support of any kind is
+offered for using these modules directly.  They may be modified at any time.
+
+=head1 NEW CODE SETS
+
+I'm always open to suggestions for new code sets.
+
+In order for me to add a code set, I want the following criteria
+to be met:
+
+=over 4
+
+=item B<General-use code set>
+
+If a code set is not general use, I'm not likely to spend the time
+to add and support it.
+
+=item B<An official source of data>
+
+I require an official (or at least, a NEARLY official) source where I
+can get the data on a regular basis.
+
+Ideally, I'd only get data from an official source, but sometimes that
+is not possible. For example the ISO standards are not typically
+available for free, so I may have to get some of that data from
+alternate sources that I'm confident are getting their data from the
+official source.  However, I will always be hesitant to accept a
+non-official source.
+
+As an example, I used to get some country data from the CIA World
+Factbook. Given the nature of the source, I'm sure they're updating
+data from the official sources and I consider it "nearly" official.
+However, even in this case, I found that they were adding codes that
+were not part of the standard, so I have stopped using them as a
+source.
+
+There are many 3rd party sites which maintain lists (many of which are
+actually in a more convenient form than the official sites).
+Unfortunately, I will reject most of them since I have no feel for how
+"official" they are.
+
+=item B<A free source of the data>
+
+Obviously, the data must be free-of-charge. I'm not interested in
+paying for the data (and I'm not interested in the overhead of having
+someone else pay for the data for me).
+
+=item B<A reliable source of data>
+
+The source of data must come from a source that I can reasonably expect
+to exist for the foreseeable future since I will be extremely reluctant
+to drop support for a data set once it's included.
+
+I am also reluctant to accept data sent to me by an individual.
+Although I appreciate the offer, it is simply not practical to consider
+an individual contribution as a reliable source of data. The source
+should be an official agency of some sort.
+
+=back
+
+These requirements are open to discussion. If you have a code set
+you'd like to see added, but which may not meet all of the above
+requirements, feel free to email me and we'll discuss it.  Depending
+on circumstances, I may be willing to waive some of these criteria.
+
+=head1 COMMON ALIASES
+
+As of version 2.00, the modules supported common variants of names.
+
+For example, Locale::Country supports variant names for countries, and
+a few of the most common ones are included in the data. The country
+code for "United States" is "us", so:
+
+   country2code('United States');
+     => "us"
+
+Now the following will also return 'us':
+
+   country2code('United States of America');
+   country2code('USA');
+
+Any number of common aliases may be included in the data, in addition
+to the names that come directly from the standards.  If you have a
+common alias for a country, language, or any other of the types of
+codes, let me know and I'll add it, with some restrictions.
+
+For example, the country name "North Korea" never appeared in any of
+the official sources (instead, it was "Korea, North" or "Korea,
+Democratic People's Republic of". I would honor a request to add an
+alias "North Korea" since that's a very common way to specify the
+country (please don't request this... I've already added it).
+
+On the other hand, a request to add Zaire as an alias for "Congo, The
+Democratic Republic of" will not be honored. The country's official
+name is no longer Zaire, so adding it as an alias violates the
+standard.  Zaire was kept as an alias in versions of this module prior
+to 3.00, but it has been removed. Other aliases (if any) which no
+longer appear in any standard (and which are not common variations of
+the name in the standards) have also been removed.
+
+=head1 DEPRECATED CODES
+
+Occasionally, a code is deprecated, but it may still be desirable to
+have access to it.
+
+Although there is no way to see every code that has ever existed and
+been deprecated (since most codesets do not have that information
+available), as of version 3.20, every code which has ever been included
+in these modules can be referenced.
+
+For more information, refer to the documentation on the code2XXX, XXX2code,
+all_XXX_codes, and all_XXX_names function in the L<Locale::Codes::API>
+documentation.
+
+=head1 SEE ALSO
+
+=over 4
+
+=item L<Locale::Codes::API>
+
+The list of functions available in each of the modules listed below.
+The APIs for each module are exactly identical.
+
+=item L<Locale::Codes::Country>
+
+Codes for identification of countries.
+
+=item L<Locale::Codes::Language>
+
+Codes for identification of languages.
+
+=item L<Locale::Codes::Script>
+
+Codes for identification of scripts.
+
+=item L<Locale::Codes::Currency>
+
+Codes for identification of currencies and funds.
+
+=item L<Locale::Codes::LangExt>
+
+Codes for identification of language extensions.
+
+=item L<Locale::Codes::LangVar>
+
+Codes for identification of language variations.
+
+=item L<Locale::Codes::LangFam>
+
+Codes for identification of language families.
+
+=item L<Locale::Codes::Changes>
+
+A history of changes made to this distribution.
+
+=back
+
+=head1 AUTHOR
+
+Locale::Country and Locale::Language were originally written by Neil
+Bowers at the Canon Research Centre Europe (CRE). They maintained the
+distribution from 1997 to 2001.
+
+Locale::Currency was originally written by Michael Hennecke and was
+modified by Neil Bowers for inclusion in the distribution.
+
+From 2001 to 2004, maintenance was continued by Neil Bowers.  He
+modified Locale::Currency for inclusion in the distribution. He also
+added Locale::Constants and Locale::Script.
+
+From 2004-2009, the module was unmaintained.
+
+In 2010, maintenance was taken over by Sullivan Beck (sbeck@cpan.org)
+with Neil Bower's permission.  All problems or comments should be
+sent there.  Alternately, problems can be reported using the
+perl problem tracker at:
+
+   L<https://rt.cpan.org/Dist/Display.html?Queue=Locale-Codes>
+
+=head1 COPYRIGHT
+
+   Copyright (c) 1997-2001 Canon Research Centre Europe (CRE).
+   Copyright (c) 2001      Michael Hennecke (Locale::Currency)
+   Copyright (c) 2001-2010 Neil Bowers
+   Copyright (c) 2010-2015 Sullivan Beck
+
+This module is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+=cut
diff --git a/lib/5.24.1/Locale/Codes/API.pod b/lib/5.24.1/Locale/Codes/API.pod
new file mode 100644
index 00000000..f196461e
--- /dev/null
+++ b/lib/5.24.1/Locale/Codes/API.pod
@@ -0,0 +1,335 @@
+=pod
+
+=head1 NAME
+
+Locale::Codes::API - a description of the callable function in each module
+
+=head1 DESCRIPTION
+
+Although there are several modules in the B<Locale-Codes> distribution, all of them
+(as of version 3.10) use exactly the same API.  As a matter of fact, each of the
+main callable modules are just wrappers around a central module which does all
+the real work.
+
+=head1 ROUTINES
+
+In order to maintain the documentation for the modules consistently,
+the functions are all documented here, rather than in the documentation
+for the separate modules.
+
+The name of the function depends on the module. For example, every module
+contains a function C<code2XXX> where XXX refers to the type of data.
+The values of XXX are described in the following table:
+
+   XXX       MODULE
+
+   country   Locale::Codes::Country
+   language  Locale::Codes::Language
+   currency  Locale::Codes::Currency
+   script    Locale::Codes::Script
+   langext   Locale::Codes::LangExt
+   langvar   Locale::Codes::LangVar
+   langfam   Locale::Codes::LangFam
+
+So, the L<Locale::Country> module contains the function C<code2country>, the
+L<Locale::Language> module contains the function C<code2language>, etc.
+
+In all of the functions below, B<CODE> refers to a code for one
+element in the code set. For example, in the two-letter country codes
+from ISO 3166-1, the code 'fi' is used to refer to the country
+Finland. B<CODE> is always case insensitive when passed in as an
+argument, so 'fi', 'FI', and 'Fi' would all be equivalent arguments.
+When B<CODE> is returned from an argument, it will always be in the
+case as used in the standard.
+
+B<CODESET> refers to a constant specified in the documentation for each
+module to label the various code sets. For example, in the
+L<Locale::Language> module, B<CODESET> could be LOCALE_CODE_ALPHA_2 or
+LOCALE_CODE_ALPHA_3 (among others). Most functions have a default one,
+so they do not need to be specified. So the following calls are valid:
+
+   code2country("fi");
+   code2country("fi",LOCALE_CODE_ALPHA_2);
+   code2country("fin",LOCALE_CODE_ALPHA_3);
+
+Since LOCALE_CODE_ALPHA_2 is the default code set, the first two are
+identical.
+
+=over 4
+
+=item B<code2XXX ( CODE [,CODESET] [,'retired'] )>
+
+These functions take a code and returns a string which contains
+the name of the element identified.  If the code is not a valid
+code in the B<CODESET> specified then C<undef> will be returned.
+
+The name of the element is the name as specified in the standard,
+and as a result, different variations of an element name may
+be returned for different values of B<CODESET>.
+
+For example, the alpha-2 country code set defines the two-letter
+code "bo" to be "Bolivia, Plurinational State of", whereas the
+alpha-3 code set defines the code 'bol' to be the country "Bolivia
+(Plurinational State of)". So:
+
+   code2country('bo',LOCALE_CODE_ALPHA_2);
+      => 'Bolivia, Plurinational State of'
+
+   code2country('bol',LOCALE_CODE_ALPHA_3);
+      => 'Bolivia (Plurinational State of)'
+
+By default, only active codes will be used, but if the string
+'retired' is passed in as an argument, both active and retired
+codes will be examined.
+
+=item B<XXX2code ( NAME [,CODESET] [,'retired'] )>
+
+These functions takes the name of an element (or any of it's aliases)
+and returns the code that corresponds to it, if it exists. If B<NAME>
+could not be identified as the name of one of the elements, then
+C<undef> will be returned.
+
+The name is not case sensitive. Also, any known variation of a name
+may be passed in.
+
+For example, even though the country name returned using
+LOCALE_CODE_ALPHA_2 and LOCALE_CODE_ALPHA_3 country codes for Bolivia
+is different, either country name may be passed in since for each code
+set (in addition to the alias 'Bolivia'). So:
+
+   country2code('Bolivia, Plurinational State of',
+                LOCALE_CODE_ALPHA_2);
+      => bo
+
+   country2code('Bolivia (Plurinational State of)',
+                LOCALE_CODE_ALPHA_2);
+      => bo
+
+   country2code('Bolivia',LOCALE_CODE_ALPHA_2);
+      => bo
+
+By default, only active names will be used, but if the string
+'retired' is passed in as an argument, both active and retired
+names will be examined.
+
+=item B<XXX_code2code ( CODE ,CODESET ,CODESET2 )>
+
+These functions takes a code from one code set, and returns the
+corresponding code from another code set. B<CODE> must exists in the code
+set specified by B<CODESET> and must have a corresponding code in the
+code set specified by B<CODESET2> or C<undef> will be returned.
+
+Both B<CODESET> and B<CODESET2> must be explicitly entered.
+
+   country_code2code('fin', LOCALE_CODE_ALPHA_3,
+                     LOCALE_CODE_ALPHA_2);
+      => 'fi'
+
+Note that this function does NOT support retired codes.
+
+=item B<all_XXX_codes ( [CODESET] [,'retired'] )>
+
+These returns a list of all code in the code set. The codes will be
+sorted.
+
+By default, only active codes will be returned, but if the string
+'retired' is passed in as an argument, both active and retired
+codes will be returned.
+
+=item B<all_XXX_names ( [CODESET] [,'retired'] )>
+
+These return a list of all elements names for which there is a
+corresponding code in the specified code set.
+
+The names returned are exactly as they are specified in the standard,
+and are sorted.
+
+Since not all elements are listed in all code sets, the list of
+elements may differ depending on the code set specified.
+
+By default, only active names will be returned, but if the string
+'retired' is passed in as an argument, both active and retired
+names will be returned.
+
+=back
+
+=head1 SEMI-PRIVATE ROUTINES
+
+Additional semi-private routines which may be used to modify the
+internal data are also available.  Given their status, they aren't
+exported, and so need to be called by prefixing the function name with
+the package name.
+
+These routines do not currently work with retired codes.
+
+=over 4
+
+=item B<MODULE::rename_XXX  ( CODE ,NEW_NAME [,CODESET] )>
+
+These routines are used to change the official name of an element. At
+that point, the name returned by the C<code2XXX> routine would be
+B<NEW_NAME> instead of the name specified in the standard.
+
+The original name will remain as an alias.
+
+For example, the official country name for code 'gb' is 'United
+Kingdom'.  If you want to change that, you might call:
+
+   Locale::Codes::Country::rename_country('gb', 'Great Britain');
+
+This means that calling code2country('gb') will now return 'Great
+Britain' instead of 'United Kingdom'.
+
+If any error occurs, a warning is issued and 0 is returned. An error
+occurs if B<CODE> doesn't exist in the specified code set, or if
+B<NEW_NAME> is already in use but for a different element.
+
+If the routine succeeds, 1 is returned.
+
+=item B<MODULE::add_XXX  ( CODE ,NAME [,CODESET] )>
+
+These routines are used to add a new code and name to the data.
+
+Both B<CODE> and B<NAME> must be unused in the data set or an error
+occurs (though B<NAME> may be used in a different data set).
+
+For example, to create the fictitious country named "Duchy of
+Grand Fenwick" with codes "gf" and "fen", use the following:
+
+   Locale::Codes::Country::add_country("fe","Duchy of Grand Fenwick",
+                                LOCALE_CODE_ALPHA_2);
+
+   Locale::Codes::Country::add_country("fen","Duchy of Grand Fenwick",
+                                LOCALE_CODE_ALPHA_3);
+
+The return value is 1 on success, 0 on an error.
+
+=item B<MODULE::delete_XXX  ( CODE [,CODESET] )>
+
+These routines are used to delete a code from the data.
+
+B<CODE> must refer to an existing code in the code set.
+
+The return value is 1 on success, 0 on an error.
+
+=item B<MODULE::add_XXX_alias  ( NAME ,NEW_NAME )>
+
+These routines are used to add a new alias to the data. They do
+not alter the return value of the C<code2XXX> function.
+
+B<NAME> must be an existing element name, and B<NEW_NAME> must
+be unused or an error occurs.
+
+The return value is 1 on success, 0 on an error.
+
+=item B<MODULE::delete_XXX_alias  ( NAME )>
+
+These routines are used to delete an alias from the data. Once
+removed, the element may not be referred to by B<NAME>.
+
+B<NAME> must be one of a list of at least two names that may be used to
+specify an element. If the element may only be referred to by a single
+name, you'll need to use the C<add_XXX_alias> function to add a new alias
+first, or the C<remove_XXX> function to remove the element entirely.
+
+If the alias is used as the name in any code set, one of the other
+names will be used instead. Predicting exactly which one will
+be used requires you to know the order in which the standards
+were read, which is not reliable, so you may want to use the
+C<rename_XXX> function to force one of the alternate names to be
+used.
+
+The return value is 1 on success, 0 on an error.
+
+=item B<MODULE::rename_XXX_code  ( CODE ,NEW_CODE [,CODESET] )>
+
+These routines are used to change the official code for an element. At
+that point, the code returned by the C<XXX2code> routine would be
+B<NEW_CODE> instead of the code specified in the standard.
+
+B<NEW_CODE> may either be a code that is not in use, or it may be an
+alias for B<CODE> (in which case, B<CODE> becomes and alias and B<NEW_CODE>
+becomes the "real" code).
+
+The original code is kept as an alias, so that the C<code2XXX> routines
+will work with either the code from the standard or the new code.
+
+However, the C<all_XXX_codes> routine will only return the codes which
+are considered "real" (which means that the list of codes will now
+contain B<NEW_CODE>, but will not contain B<CODE>).
+
+=item B<MODULE::add_XXX_code_alias  ( CODE ,NEW_CODE [,CODESET] )>
+
+These routines add an alias for the code. At that point, B<NEW_CODE> and B<CODE>
+will both work in the C<code2XXX> routines. However, the C<XXX2code> routines will
+still return the original code.
+
+=item B<MODULE::delete_XXX_code_alias  ( CODE [,CODESET] )>
+
+These routines delete an alias for the code.
+
+These will only work if B<CODE> is actually an alias. If it is the "real"
+code, it will not be deleted. You will need to use the C<rename_XXX_code>
+function to switch the real code with one of the aliases, and then
+delete the alias.
+
+=back
+
+=head1 KNOWN BUGS AND LIMITATIONS
+
+=over 4
+
+=item B<Relationship between code sets>
+
+Because each code set uses a slightly different list of elements, and
+they are not necessarily one-to-one, there may be some confusion
+about the relationship between codes from different code sets.
+
+For example, ISO 3166 assigns one code to the country "United States
+Minor Outlying Islands", but the IANA codes give different codes
+to different islands (Baker Island, Howland Island, etc.).
+
+This may cause some confusion... I've done the best that I could do
+to minimize it.
+
+=item B<Non-ASCII characters not supported>
+
+Currently all names must be all ASCII. I plan on relaxing that
+limitation in the future.
+
+=back
+
+=head1 SEE ALSO
+
+L<Locale::Codes>
+
+L<Locale::Codes::Country>
+
+L<Locale::Codes::Language>
+
+L<Locale::Codes::Currency>
+
+L<Locale::Codes::Script>
+
+L<Locale::Codes::LangExt>
+
+L<Locale::Codes::LangVar>
+
+L<Locale::Codes::LangFam>
+
+=head1 AUTHOR
+
+See Locale::Codes for full author history.
+
+Currently maintained by Sullivan Beck (sbeck@cpan.org).
+
+=head1 COPYRIGHT
+
+   Copyright (c) 1997-2001 Canon Research Centre Europe (CRE).
+   Copyright (c) 2001-2010 Neil Bowers
+   Copyright (c) 2010-2015 Sullivan Beck
+
+This module is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+=cut
diff --git a/lib/5.24.1/Locale/Codes/Changes.pod b/lib/5.24.1/Locale/Codes/Changes.pod
new file mode 100644
index 00000000..199aa96d
--- /dev/null
+++ b/lib/5.24.1/Locale/Codes/Changes.pod
@@ -0,0 +1,780 @@
+=pod
+
+=head1 NAME
+
+Locale::Codes::Changes - details changes to Locale::Codes
+
+=head1 SYNOPSIS
+
+This describes the changes made to modules in the Locale-Codes
+distribution.  Major changes are marked with asterisks (*).  For the
+most part, all modules have remained backward compatible at every
+release, but occasionally a change is made which is backward
+incompatible. These are marked with an exclamation mark (!).
+
+As of 3.00, the codes are autogenerated from the standards. With each
+release, codes will be re-generated and tested to see if any code
+changed. Any time there are any changes to the codes, it will be
+flagged below with a change: NEW CODE(s).
+
+I intend to check for new codes four times a year (March, June,
+September, December). I will also check on request, so if a code
+changes that you use, feel free to contact me.  Any time there are new
+codes, I will add them to the module and release a new version.
+
+=head1 VERSION 3.41  (planned 2016-12-01; sbeck)
+
+=head1 VERSION 3.40  (planned 2016-09-01; sbeck)
+
+=head1 VERSION 3.39  (planned 2016-06-01; sbeck)
+
+=head1 VERSION 3.38  (planned 2016-03-01; sbeck)
+
+=head1 VERSION 3.37  (2015-12-01; sbeck)
+
+NEW CODE(s)
+
+=head1 VERSION 3.36  (2015-09-01; sbeck)
+
+NEW CODE(s)
+
+=over 4
+
+=item B<(!) Removed alias_code function>
+
+The alias_code function was preserved for backward compatibility, but
+has been deprecated since 3.20.  It has been removed.
+
+=back
+
+=head1 VERSION 3.35  (2015-06-01; sbeck)
+
+NEW CODE(s)
+
+=over 4
+
+=item B<Documentation improvements>
+
+Many changes to the formatting in the documentation to improve it.  Suggested
+by Pete Houston.
+
+=back
+
+=head1 VERSION 3.34  (2015-03-01; sbeck)
+
+NEW CODE(s)
+
+=head1 VERSION 3.33  (2014-12-01; sbeck)
+
+NEW CODE(s)
+
+=over 4
+
+=item B<Filled out LOCALE_LANG_TERM codeset>
+
+The terminologic language codes only included codes from languages where
+the ISO specified both a bibliographic code and a terminologic code.  If
+both are not specified, the better solution was to use the code for both
+code sets.  Prompted by a suggestion by Jarkko Hietaniemi.
+
+=item B<Moved repository to GitHub>
+
+Suggested by Gabor Szabo.
+
+=back
+
+=head1 VERSION 3.32  (2014-09-01; sbeck)
+
+NEW CODE(s)
+
+=head1 VERSION 3.31  (2014-06-01; sbeck)
+
+NEW CODE(s)
+
+=over 4
+
+=item B<Bug fixes>
+
+Fixed a bug in the scripts used to extract data from spreadsheets
+that prevented the SHP currency code from being found.  RT 94229
+
+=back
+
+=head1 VERSION 3.30  (2014-03-04; sbeck)
+
+NEW CODE(s)
+
+=over 4
+
+=item B<alias_code remove date set>
+
+The alias_code function exists for backward compatibility.  It has been
+deprecated since version 3.20 when it was replaced by rename_country_code.
+The alias_code function will be removed in the December 2014 release.
+
+=item B<Bug fixes>
+
+Fixed a problem that was preventing rename_* functions to not work.
+RT 92680.
+
+=back
+
+=head1 VERSION 3.29  (2014-01-27; sbeck)
+
+NEW CODE(s)
+
+=over 4
+
+=item B<ISO 3166 country codes improved>
+
+ISO 3166 is now browsable online (previously, only the alpha-2 codes were)
+and it contains more accurate information than the previous sources, so
+I've switched to using the full standard.  In response to RT 92303 which
+reported some codes being 'retired' that should not have been.
+
+=item B<Bug fixes>
+
+Fixed the pod test files so that pod tests won't get run at install
+time.  In response to RT 91167.
+
+=back
+
+=head1 VERSION 3.28  (2013-12-02; sbeck)
+
+NEW CODE(s)
+
+=head1 VERSION 3.27  (2013-09-03; sbeck)
+
+NEW CODE(s)
+
+=over 4
+
+=item B<* FIPS-10 country codes removed>
+
+As of June, the FIPS codes are not being published in their
+entirety.  Only changes to the codes are published.  This adds
+a huge layer of complexity to maintaining the set, which is not
+worth doing considering that the set is deprecated.  As such, the
+code set is no longer supported.
+
+=back
+
+=head1 VERSION 3.26  (2013-06-03; sbeck)
+
+=over 4
+
+=item B<Documentation fixes>
+
+Some of the examples were not correct.  RT 84589
+
+Some typos corrected.  RT 85692
+
+=back
+
+=head1 VERSION 3.25  (2013-03-01; sbeck)
+
+NEW CODE(s)
+
+=head1 VERSION 3.24  (2012-12-03; sbeck)
+
+NEW CODE(s)
+
+=over 4
+
+=item B<Syria alias>
+
+Syria added as an alias.  RT 82747
+
+=item B<FIPS-10 country codes deprecated>
+
+The FIPS-10 document is being withdrawn.  It was deprecated in 2008,
+and is being updated now only until all the agencies that use it have
+switched to something else.  The current version no longer lists the
+long names for countries.  These long names (such as 'Republic of
+Albania' for Albania) only appeared in the old FIPS-10 document which
+is no longer available, so they are no longer available in this module.
+
+I will continue to support the FIPS-10 codeset as long as it is available,
+but at that point, it will be withdrawn immediately.  If an official
+end-of-life date is announced, I will include a notice here.  Otherwise, support
+for the codeset will be discontinued when the document is withdrawn.
+
+You are encouraged to no longer use the FIPS-10 codeset.
+
+=item B<Domain country codes now come from ISO 3166>
+
+The IANA domain codes have changed slightly.  The IANA no longer
+publishes a list of countries associated with their codes.  Instead,
+they use the ISO 3166 codes and country names.  However, they support
+a few non-standard codes, so I will continue to maintain this codeset.
+The domain codes are now lowercase to correspond to the ISO 3166 codes.
+
+=back
+
+=head1 VERSION 3.23  (2012-09-01; sbeck)
+
+NEW CODE(s)
+
+=head1 VERSION 3.22  (2012-06-01; sbeck)
+
+NEW CODE(s)
+
+=over 4
+
+=item B<Updated perl version required>
+
+Changed 'require 5.002' (which dated back to the version 2.xx Locale-Codes)
+to 'require 5.006'.  Some features used in Locale-Codes are not supported that
+far back.  Nicholas Clark
+
+=item B<Sorted deprecated codes>
+
+The codes in the generated deprecated codes modules were not sorted making version
+diffs bigger than they should be.  Nicholas Clark
+
+=back
+
+=head1 VERSION 3.21  (2012-03-01; sbeck)
+
+NEW CODE(s)
+
+=head1 VERSION 3.20  (2011-12-01; sbeck)
+
+NEW CODE(s)
+
+=over 4
+
+=item B<Added limited support for deprecated codes>
+
+The code2XXX, XXX2code, all_XXX_codes, and all_XXX_names functions
+now support retired codes.  RT 71124
+
+=item B<Fixed capitalization>
+
+The 'South Sudan' country was all caps.  RT 71024
+
+=item B<Pod tests off by default>
+
+The pod tests will not run at install time.  RT 71122
+
+=item B<Codesets may be specified by name>
+
+All codesets may be specified by a constant or by their name now.  Previously,
+they were specified only by a constant.
+
+=item B<alias_code deprecated>
+
+The alias_code function exists for backward compatibility.  It has been replaced
+by rename_country_code .  The alias_code function will be removed sometime
+after September, 2013 .
+
+=item B<Code cleanup>
+
+All work is now done in the central module (Locale::Codes).  Previously, some
+was still done in the wrapper modules (Locale::Codes::*) but that is gone now.
+
+=item B<Added LangFam module>
+
+Added Language Family codes (langfam) as defined in ISO 639-5.
+
+=back
+
+=head1 VERSION 3.18  (2011-08-31; sbeck)
+
+NEW CODE(s)
+
+=over 4
+
+=item B<No longer use CIA data>
+
+The CIA world added non-standard values, so I no longer use it as
+a source of data.  Based on a report by Michiel Beijen.
+
+=back
+
+=head1 VERSION 3.17  (2011-06-28; sbeck)
+
+NEW CODE(s)
+
+=over 4
+
+=item B<Added new types of codes>
+
+Added Language Extension codes (langext) and Language Variation codes
+(langvar) as defined in the IANA language registry.
+
+=item B<Added new codeset(s)>
+
+Added language codes from ISO 639-5
+
+Added language/script codes from the IANA language subtag
+registry
+
+=item B<Bug fixes>
+
+Fixed an uninitialized value warning.  RT 67438
+
+Fixed the return value for the all_XXX_codes and all_XXX_names functions.  RT 69100
+
+=item B<Reorganized code>
+
+Reorganized modules to move Locale::MODULE to Locale::Codes::MODULE to
+allow for cleaner future additions.  The original four modules (Locale::Language,
+Locale::Currency, Locale::Country, Locale::Script) will continue to work, but
+all new sets of codes will be added in the Locale::Codes namespace.
+
+=back
+
+=head1 VERSION 3.16  (2011-03-01; sbeck)
+
+NEW CODE(s)
+
+=head1 VERSION 3.15  (2010-12-02; sbeck)
+
+NEW CODE(s)
+
+=over 4
+
+=item B<Minor fixes>
+
+Added version number to Makefile.PL/Build.PL requirement
+for POD testing modules.  RT 62247
+
+Changed 'use vars' to 'our'
+
+=back
+
+=head1 VERSION 3.14  (2010-09-28; sbeck)
+
+NEW CODE(s)
+
+=over 4
+
+=item B<Bug fixes>
+
+Stripped out some HTML that got included with some codes.
+
+=back
+
+=head1 VERSION 3.13  (2010-06-04; sbeck)
+
+NEW CODE(s)
+
+=head1 VERSION 3.12  (2010-04-06; sbeck)
+
+NEW CODE(s)
+
+=over 4
+
+=item B<Reorganized code>
+
+Renamed test.pl to testfunc.pl to avoid causing an error
+when built as part of perl.
+
+=back
+
+=head1 VERSION 3.11  (2010-03-01; sbeck)
+
+NEW CODE(s)
+
+=over 4
+
+=item B<Added new codeset(s)>
+
+Added the IANA domain names to Country
+
+=item B<Bug fixes>
+
+Fixed a problem that produced warnings with perl 5.11.5.
+Jerry D. Hedden
+
+=back
+
+=head1 VERSION 3.10  (2010-02-18; sbeck)
+
+NEW CODE(s)
+
+=over 4
+
+=item B<Reorganized code>
+
+Moved support files into the Locale::Codes namespace.
+
+The work done in each of the Locale::XXX modules was virtually
+identical to each other. It has all been moved to a central module and
+the Locale::XXX modules are now just wrappers.
+
+=item B<(!) Changed XXX_code2code behavior slightly>
+
+In previous versions, passing in the same code set for both code set
+arguments would automatically return undef. For example:
+
+   country_code2code('bo',LOCALE_CODE_ALPHA_2,LOCALE_CODE_ALPHA_2);
+      => undef
+
+This doesn't seem like reasonable behavior, so it has been changed
+to allow the same code set:
+
+   country_code2code('bo',LOCALE_CODE_ALPHA_2,LOCALE_CODE_ALPHA_2);
+      => 'bo'
+
+Note that if an invalid code is passed in, undef will still be
+returned:
+
+   country_code2code('bol',LOCALE_CODE_ALPHA_2,LOCALE_CODE_ALPHA_2);
+      => undef
+
+=item B<Added many semi-private routines>
+
+Previous versions had only two semi-private routines: rename_country
+and alias_code which had the ability to modify the internal data in
+a couple very limited ways. It was requested (in an anonymous posting
+by someone named Steve and also by Steve Hay) that better support
+for modifying internal data, so a full set of routines were added.
+
+The full set of routines includes:
+
+   rename_country
+   rename_language
+   rename_currency
+   rename_script
+
+   add_country
+   add_language
+   add_currency
+   add_script
+
+   delete_country
+   delete_language
+   delete_currency
+   delete_script
+
+   add_country_alias
+   add_language_alias
+   add_currency_alias
+   add_script_alias
+
+   delete_country_alias
+   delete_language_alias
+   delete_currency_alias
+   delete_script_alias
+
+   rename_country_code
+   rename_language_code
+   rename_currency_code
+   rename_script_code
+
+   add_country_code_alias
+   add_language_code_alias
+   add_currency_code_alias
+   add_script_code_alias
+
+   delete_country_code_alias
+   delete_language_code_alias
+   delete_currency_code_alias
+   delete_script_code_alias
+
+=item B<New aliases>
+
+Added "UK" alias. Steve Hay
+
+=back
+
+=head1 VERSION 3.01  (2010-02-15; sbeck)
+
+=over 4
+
+=item B<Fixed Makefile.PL and Build.PL>
+
+They now install as core modules as they are supposed to.  Reported in
+RT 54526
+
+=back
+
+=head1 VERSION 3.00  (2010-02-10; sbeck)
+
+NEW CODE(s)
+
+=over 4
+
+=item B<(*) New maintainer>
+
+From 1997 to 2004, Locale::Codes was maintained by Neil
+Bowers. Unfortunately, no updates were made from June 2004 to January
+2010. During that time, a number of changes have been made to the
+standards since then, so the data included was out-of-date.
+
+I contacted Neil to get his permission to assume maintenance of
+the module, and he kindly agreed.
+
+=item B<(*) (!) All codes are generated from standards>
+
+All of the values returned by the various functions are now values
+directly from the standards. This means that the values returned in
+the 2.xx series are not necessarily the same as the values returned
+here.
+
+As an example, the ISO 3166 standard which lists country codes refers
+to the country associated with the code "bo" as "Bolivia,
+Plurinational State of", so that is what is returned. In the 2.xx
+series, "Bolivia" was returned.  Also, the country names vary from one
+standard to another. So the code "bol" which is maintained by the
+United Nations returns the name of the country as "Bolivia
+(Plurinational State of)". Some common aliases have been added, so you
+can still request a code associated with a county name "Bolivia".
+
+Since the data comes from the standards, some "incorrect" values are
+no longer supported. For example, 2.07 treated "Zaire" as an alias for
+"Congo", but the country changed it's name, and "Zaire" is not in the
+standard, so it has been dropped in 3.00.
+
+=item B<Added new codeset(s)>
+
+FIPS 10 country codes (requested in RT 1755)
+
+Alpha-3 and Term language codes (requested in RT 11730)
+
+Numeric currency codes (requested in RT 18797)
+
+=item B<(*) (!) Locale::Script changed>
+
+In 2.xx, Locale::Script assigned scripts to country codes, which is NOT
+how it is done currently in the standards. It appears that an older version
+of ISO 15924 did this, but I haven't found an old version to confirm
+that, and in any case, that is not the case in the current standards.
+
+As a result, the Locale::Script module is completely incompatible with
+the 2.xx version with respect to the types of codes it supports. None of
+the old codes will work.
+
+=item B<Added missing functions>
+
+I've added in some functions which were "missing" previously (since there was
+only one set of codes supported, the code2code functions didn't apply):
+
+   language_code2code
+   currency_code2code
+
+so the interfaces for each type of codes are consistent.
+
+=item B<(!) Dropped support for _alias_code>
+
+In Locale::Country, _alias_code was an allowed, but deprecated function
+which was documented to be supported in the 2.xx series. I've removed it.
+
+=item B<(!) All functions return the standard value>
+
+code2country (and other equivalent functions) now returns the name of
+the country specified in the standard (if the different standards
+refer to the country by different variations in the name, the results
+will differ based on the CODESET)
+
+=item B<(!) rename_country function altered>
+
+The rename_country function from 2.07 would guess the CODESET (unlike
+all other functions which used a default of LOCALE_CODE_ALPHA_2). The
+guess can cause problems since (with the addition of FIPS) codes may
+appear in different codesets for different countries. The behavior has
+been changed to be the same as other functions (default to
+LOCALE_CODE_ALPHA_2).
+
+=back
+
+=head1 VERSION 2.07  (2004-06-10; neilb)
+
+Made $_ local in the initialization code for each module
+change back-propagated from Perl distribution
+
+Removed two non ISO-8859-1 characters from language names
+change back-propagated from Perl distribution
+
+Added the following aliases, with a test case for each
+   - Burma added to Myanmar
+   - French Southern and Antarctic Lands to
+     French Southern Territories
+patch from TJ Mather
+
+"Canadian Dollar" was misspelled as "Candian Dollar"
+   - noted by Nick Cabatoff, patch from Michael Hennecke
+
+Changes to Locale::Country reflecting changes in ISO 3166
+   - added Aland Islands (ax, ala, 248)
+   - YUGOSLAVIA is now SERBIA AND MONTENEGRO
+      YU => CS
+      YUG => SCG
+      891 => 891 (unchanged)
+      (YUGOSLAVIA retained as an alias)
+   - EAST TIMOR changed to TIMOR-LESTE
+      (old name retained as an alias)
+   - three letter code for Romania changed from ROM to ROU
+
+ZAIRE is now CONGO, THE DEMOCRATIC REPUBLIC OF THE
+    ZR  => CD
+    ZAR => COD
+    180 => 180 (unchanged)
+    (ZAIRE retained as alias)
+
+=head1 VERSION 2.06  (2002-07-15; neilb)
+
+The four modules which have data after __DATA__ weren't closing the
+DATA filehandle after reading from it, which they should. Bug and
+patch from Steve Hay.
+
+=head1 VERSION 2.05  (2002-07-08; neilb)
+
+Added three letter codes for the countries that were missing
+them. Patch from TJ Mather.
+
+Documentation bug: one of the examples used => where the
+lvalue was a constant, which isn't allowed, unless you
+put the () with the constant to force the right interpretation.
+Pointed out by TJ Mather and MYT.
+
+Updated the URL for the appendix in the CIA world factbook.
+Patch from TJ Mather.
+
+=head1 VERSION 2.04  (2002-05-23; neilb)
+
+Updated according to changes in ISO 3166-1 described
+in ISO 3166-1 newsletters V-4 and V-5, dated 2002-05-20:
+   - Kazakstan is now "Kazakhstan"
+   - Macau is now "Macao"
+The old names are retained as aliases.
+
+The alpha-2 and alpha-3 codes for East Timor have changed:
+   tp -> tl
+   tmp -> tls
+the numeric code stays 626. If you want to support the old
+codes, you can use the semi-private function alias_code().
+
+=head1 VERSION 2.03  (2002-03-24; neilb)
+
+Fixed a typo in the alias for the Vatican, reported (with patch)
+by Philip Newton.
+
+Added "Moldova" as an alias for "Moldova, Republic of"
+
+Updated Makefile.PL to include AUTHOR and ABSTRACT
+
+=head1 VERSION 2.02  (2002-03-09; neilb)
+
+Added semi-private routine rename_country() to Locale::Country,
+based on a patch from Iain Chalmers.
+
+Added test rename.t for the above function.
+
+Renamed _alias_code to be alias_code. Have retained the old
+name for backwards compatibility. Will remove it when the
+major version number next changes.
+
+=head1 VERSION 2.01  (2002-02-18; neilb)
+
+Split the documentation for all modules into separate pod files.
+
+Made sure all =over were =over 4; some were other values.
+
+The code2code() methods had one more shift than was needed.
+
+=head1 VERSION 2.00  (2002-02-17; neilb)
+
+Created Locale::Script which provides an interface to the ISO codes
+for identification of scripts (writing scripts, rather than perl style
+scripts). The codes are defined by ISO 15924, which is currently in
+final draft.  Thanks to Jarkko for pointing out this new standard.
+All three code sets are supported, and a test-suite added.
+
+Added support for country name variants to Locale::Country,
+so that
+   country2code('USA')
+   country2code('United States')
+   country2code('United States of America')
+will all return 'us'.  This had been in the LIMITATIONS section since
+the first version.  Patch from TJ Mather with additional variants from
+me. Added test-cases for these.
+
+Added VERSION to Locale::Constants. Thanks to Jarkko for
+pointing that it was missing.
+
+Should really have bumped major version with previous release,
+since there was a change to the API.
+
+=head1 VERSION 1.06  (2001-03-04; neilb)
+
+Added Locale::Constants, which defines three symbols for identifying
+which codeset is being used:
+
+   LOCALE_CODE_ALPHA_2
+   LOCALE_CODE_ALPHA_3
+   LOCALE_CODE_NUMERIC
+
+Updated Locale::Country to support all three code sets defined by ISO
+3166. This was requested by Keith Wall.  I haven't added multiple
+codeset support to the other modules yet - I'll wait until someone
+asks for them.
+
+=head1 VERSION 1.05  (2001-02-13; neilb)
+
+Added Locale::Currency, contribution from Michael Hennecke.
+
+Added test suite for it (t/currency.t) and added test cases
+to t/all.t for the all_* functions.
+
+=head1 VERSION 1.04  (2000-12-21; neilb)
+
+Fixed very minor typos from 1.03!
+
+=head1 VERSION 1.03  (2000-12-??; neilb)
+
+Updated Locale::Country:
+   - fixed spelling of a few countries
+   - added link to a relevant page from CIA world factbook
+
+Updated Locale::Language:
+   - fixed typo in the documentation (ISO 939 should be 639)
+
+=head1 VERSION 1.02  (2000-05-04; neilb)
+
+Updated Locale::Country and Locale::Language to reflect changes in the
+relevant ISO standards. These mainly reflect languages which are new
+to the relevant standard, and changes in the spelling of some country
+names.
+
+Added official URLs for the standards to the SEE ALSO sections of the
+doc for each module.
+
+Thanks to Jarkko Hietaniemi for pointing me at the pages with latest
+versions of ISO 3166 and 639.
+
+=head1 VERSION 1.00  (1998-03-09; neilb)
+
+Added Locale::Country::_alias_code() so that 'uk' can be added as the
+code for "United Kingdom", if you want it.  This was prompted by Ed
+Jordan.
+
+Added a new test suite for handling this case, and extended the
+existing test-suite to include testing of the case where 'uk' hasn't
+been defined as a valid code.
+
+=head1 VERSION 0.003  (1997-05-09; neilb)
+
+First public release to CPAN
+
+=head1 SEE ALSO
+
+Locale::Codes
+
+=head1 AUTHOR
+
+See Locale::Codes for full author history.
+
+Currently maintained by Sullivan Beck (sbeck@cpan.org).
+
+=head1 COPYRIGHT
+
+   Copyright (c) 2001-2010 Neil Bowers
+   Copyright (c) 2010-2015 Sullivan Beck
+
+This module is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+=cut
diff --git a/lib/5.24.1/Locale/Codes/Constants.pm b/lib/5.24.1/Locale/Codes/Constants.pm
new file mode 100644
index 00000000..44e8f6da
--- /dev/null
+++ b/lib/5.24.1/Locale/Codes/Constants.pm
@@ -0,0 +1,130 @@
+package Locale::Codes::Constants;
+# Copyright (C) 2001      Canon Research Centre Europe (CRE).
+# Copyright (C) 2002-2009 Neil Bowers
+# Copyright (c) 2010-2015 Sullivan Beck
+# This program is free software; you can redistribute it and/or modify it
+# under the same terms as Perl itself.
+
+use strict;
+use warnings;
+
+require Exporter;
+
+#-----------------------------------------------------------------------
+#	Public Global Variables
+#-----------------------------------------------------------------------
+
+our($VERSION,@ISA,@EXPORT);
+our(%ALL_CODESETS);
+
+$VERSION='3.37';
+@ISA     = qw(Exporter);
+@EXPORT  = qw(LOCALE_CODE_ALPHA_2
+              LOCALE_CODE_ALPHA_3
+              LOCALE_CODE_NUMERIC
+              LOCALE_CODE_DOM
+
+              LOCALE_LANG_ALPHA_2
+              LOCALE_LANG_ALPHA_3
+              LOCALE_LANG_TERM
+
+              LOCALE_CURR_ALPHA
+              LOCALE_CURR_NUMERIC
+
+              LOCALE_SCRIPT_ALPHA
+              LOCALE_SCRIPT_NUMERIC
+
+              LOCALE_LANGEXT_ALPHA
+
+              LOCALE_LANGVAR_ALPHA
+
+              LOCALE_LANGFAM_ALPHA
+
+              %ALL_CODESETS
+            );
+
+#-----------------------------------------------------------------------
+#	Constants
+#-----------------------------------------------------------------------
+
+use constant LOCALE_CODE_ALPHA_2    => 'alpha-2';
+use constant LOCALE_CODE_ALPHA_3    => 'alpha-3';
+use constant LOCALE_CODE_NUMERIC    => 'numeric';
+use constant LOCALE_CODE_DOM        => 'dom';
+
+$ALL_CODESETS{'country'} = {
+                            'default'  => 'alpha-2',
+                            'codesets' => { 'alpha-2'  => ['lc'],
+                                            'alpha-3'  => ['lc'],
+                                            'numeric'  => ['numeric',3],
+                                            'dom'      => ['lc'],
+                                          }
+                           };
+
+use constant LOCALE_LANG_ALPHA_2    => 'alpha-2';
+use constant LOCALE_LANG_ALPHA_3    => 'alpha-3';
+use constant LOCALE_LANG_TERM       => 'term';
+
+$ALL_CODESETS{'language'} = {
+                             'default'  => 'alpha-2',
+                             'codesets' => { 'alpha-2'  => ['lc'],
+                                             'alpha-3'  => ['lc'],
+                                             'term'     => ['lc'],
+                                           }
+                            };
+
+use constant LOCALE_CURR_ALPHA      => 'alpha';
+use constant LOCALE_CURR_NUMERIC    => 'num';
+
+$ALL_CODESETS{'currency'} = {
+                             'default'  => 'alpha',
+                             'codesets' => { 'alpha'  => ['uc'],
+                                             'num'    => ['numeric',3],
+                                           }
+                            };
+
+use constant LOCALE_SCRIPT_ALPHA    => 'alpha';
+use constant LOCALE_SCRIPT_NUMERIC  => 'num';
+
+$ALL_CODESETS{'script'} = {
+                           'default'  => 'alpha',
+                           'codesets' => { 'alpha'  => ['ucfirst'],
+                                           'num'    => ['numeric',3],
+                                         }
+                          };
+
+use constant LOCALE_LANGEXT_ALPHA   => 'alpha';
+
+$ALL_CODESETS{'langext'} = {
+                           'default'  => 'alpha',
+                           'codesets' => { 'alpha'  => ['lc'],
+                                         }
+                          };
+
+use constant LOCALE_LANGVAR_ALPHA   => 'alpha';
+
+$ALL_CODESETS{'langvar'} = {
+                           'default'  => 'alpha',
+                           'codesets' => { 'alpha'  => ['lc'],
+                                         }
+                          };
+
+use constant LOCALE_LANGFAM_ALPHA   => 'alpha';
+
+$ALL_CODESETS{'langfam'} = {
+                           'default'  => 'alpha',
+                           'codesets' => { 'alpha'  => ['lc'],
+                                         }
+                          };
+
+1;
+# Local Variables:
+# mode: cperl
+# indent-tabs-mode: nil
+# cperl-indent-level: 3
+# cperl-continued-statement-offset: 2
+# cperl-continued-brace-offset: 0
+# cperl-brace-offset: 0
+# cperl-brace-imaginary-offset: 0
+# cperl-label-offset: -2
+# End:
diff --git a/lib/5.24.1/Locale/Codes/Country.pm b/lib/5.24.1/Locale/Codes/Country.pm
new file mode 100644
index 00000000..a182431d
--- /dev/null
+++ b/lib/5.24.1/Locale/Codes/Country.pm
@@ -0,0 +1,100 @@
+package Locale::Codes::Country;
+# Copyright (C) 2001      Canon Research Centre Europe (CRE).
+# Copyright (C) 2002-2009 Neil Bowers
+# Copyright (c) 2010-2015 Sullivan Beck
+# This program is free software; you can redistribute it and/or modify it
+# under the same terms as Perl itself.
+
+use strict;
+require 5.006;
+use warnings;
+
+require Exporter;
+use Carp;
+use Locale::Codes;
+use Locale::Codes::Constants;
+use Locale::Codes::Country_Codes;
+use Locale::Codes::Country_Retired;
+
+#=======================================================================
+#       Public Global Variables
+#=======================================================================
+
+our($VERSION,@ISA,@EXPORT,@EXPORT_OK);
+
+$VERSION='3.37';
+@ISA       = qw(Exporter);
+@EXPORT    = qw(code2country
+                country2code
+                all_country_codes
+                all_country_names
+                country_code2code
+                LOCALE_CODE_ALPHA_2
+                LOCALE_CODE_ALPHA_3
+                LOCALE_CODE_NUMERIC
+                LOCALE_CODE_DOM
+               );
+
+sub code2country {
+   return Locale::Codes::_code2name('country',@_);
+}
+
+sub country2code {
+   return Locale::Codes::_name2code('country',@_);
+}
+
+sub country_code2code {
+   return Locale::Codes::_code2code('country',@_);
+}
+
+sub all_country_codes {
+   return Locale::Codes::_all_codes('country',@_);
+}
+
+sub all_country_names {
+   return Locale::Codes::_all_names('country',@_);
+}
+
+sub rename_country {
+   return Locale::Codes::_rename('country',@_);
+}
+
+sub add_country {
+   return Locale::Codes::_add_code('country',@_);
+}
+
+sub delete_country {
+   return Locale::Codes::_delete_code('country',@_);
+}
+
+sub add_country_alias {
+   return Locale::Codes::_add_alias('country',@_);
+}
+
+sub delete_country_alias {
+   return Locale::Codes::_delete_alias('country',@_);
+}
+
+sub rename_country_code {
+   return Locale::Codes::_rename_code('country',@_);
+}
+
+sub add_country_code_alias {
+   return Locale::Codes::_add_code_alias('country',@_);
+}
+
+sub delete_country_code_alias {
+   return Locale::Codes::_delete_code_alias('country',@_);
+}
+
+1;
+# Local Variables:
+# mode: cperl
+# indent-tabs-mode: nil
+# cperl-indent-level: 3
+# cperl-continued-statement-offset: 2
+# cperl-continued-brace-offset: 0
+# cperl-brace-offset: 0
+# cperl-brace-imaginary-offset: 0
+# cperl-label-offset: -2
+# End:
diff --git a/lib/5.24.1/Locale/Codes/Country.pod b/lib/5.24.1/Locale/Codes/Country.pod
new file mode 100644
index 00000000..f827732c
--- /dev/null
+++ b/lib/5.24.1/Locale/Codes/Country.pod
@@ -0,0 +1,182 @@
+=pod
+
+=head1 NAME
+
+Locale::Codes::Country - standard codes for country identification
+
+=head1 SYNOPSIS
+
+   use Locale::Codes::Country;
+
+   $country = code2country('jp' [,CODESET]);        # $country gets 'Japan'
+   $code    = country2code('Norway' [,CODESET]);    # $code gets 'no'
+
+   @codes   = all_country_codes( [CODESET]);
+   @names   = all_country_names();
+
+   # semi-private routines
+   Locale::Codes::Country::rename_country('gb' => 'Great Britain');
+
+=head1 DESCRIPTION
+
+This module provides access to several code sets
+that can be used for identifying countries, such as those defined in
+ISO 3166-1.
+
+Most of the routines take an optional additional argument which
+specifies the code set to use. If not specified, the default ISO
+3166-1 two-letter codes will be used.
+
+=head1 SUPPORTED CODE SETS
+
+There are several different code sets you can use for identifying
+countries. A code set may be specified using either a name, or a
+constant that is automatically exported by this module.
+
+For example, the two are equivalent:
+
+   $country = code2country('jp','alpha-2');
+   $country = code2country('jp',LOCALE_CODE_ALPHA_2);
+
+The codesets currently supported are:
+
+=over 4
+
+=item B<alpha-2, LOCALE_CODE_ALPHA_2>
+
+This is the set of two-letter (lowercase) codes from ISO 3166-1, such
+as 'tv' for Tuvalu.
+
+This is the default code set.
+
+=item B<alpha-3, LOCALE_CODE_ALPHA_3>
+
+This is the set of three-letter (lowercase) codes from ISO 3166-1,
+such as 'brb' for Barbados. These codes are actually defined and
+maintained by the U.N. Statistics division.
+
+=item B<numeric, LOCALE_CODE_NUMERIC>
+
+This is the set of three-digit numeric codes from ISO 3166-1, such as
+064 for Bhutan. These codes are actually defined and maintained by the
+U.N. Statistics division.
+
+If a 2-digit code is entered, it is converted to 3 digits by prepending
+a 0.
+
+=item B<dom, LOCALE_CODE_DOM>
+
+The IANA is responsible for delegating management of the top level country
+domains.  The country domains are the two-letter (lowercase) codes from ISO 3166
+with a few other additions.
+
+=back
+
+NOTE: As of version 3.27, the FIPS code set is no longer supported.  See the
+Locale::Codes::Changes document for details.
+
+=head1 ROUTINES
+
+=over 4
+
+=item B<code2country(CODE [,CODESET] [,'retired'])>
+
+=item B<country2code(NAME [,CODESET] [,'retired'])>
+
+=item B<country_code2code(CODE ,CODESET ,CODESET2)>
+
+=item B<all_country_codes([CODESET] [,'retired'])>
+
+=item B<all_country_names([CODESET] [,'retired'])>
+
+=item B<Locale::Codes::Country::rename_country(CODE ,NEW_NAME [,CODESET])>
+
+=item B<Locale::Codes::Country::add_country(CODE ,NAME [,CODESET])>
+
+=item B<Locale::Codes::Country::delete_country(CODE [,CODESET])>
+
+=item B<Locale::Codes::Country::add_country_alias(NAME ,NEW_NAME)>
+
+=item B<Locale::Codes::Country::delete_country_alias(NAME)>
+
+=item B<Locale::Codes::Country::rename_country_code(CODE ,NEW_CODE [,CODESET])>
+
+=item B<Locale::Codes::Country::add_country_code_alias(CODE ,NEW_CODE [,CODESET])>
+
+=item B<Locale::Codes::Country::delete_country_code_alias(CODE [,CODESET])>
+
+These routines are all documented in the L<Locale::Codes::API> man page.
+
+=back
+
+=head1 SEE ALSO
+
+=over 4
+
+=item L<Locale::Codes>
+
+The Locale-Codes distribution.
+
+=item L<Locale::Codes::API>
+
+The list of functions supported by this module.
+
+=item L<Locale::SubCountry>
+
+ISO codes for country sub-divisions (states, counties, provinces,
+etc), as defined in ISO 3166-2.  This module is not part of the
+Locale-Codes distribution, but is available from CPAN in
+CPAN/modules/by-module/Locale/
+
+=item L<http://www.iso.org/iso/home/standards/country_codes.htm>
+
+Official home page for the ISO 3166 maintenance agency.
+
+=item L<http://www.iso.org/iso/home/standards/country_codes/iso-3166-1_decoding_table.htm>
+
+The source of ISO 3166-1 two-letter codes used by this
+module.
+
+=item L<http://www.iana.org/domains/root/db/>
+
+Official source of the top-level domain names.
+
+=item L<http://unstats.un.org/unsd/methods/m49/m49alpha.htm>
+
+The source of the official ISO 3166-1 three-letter codes and
+three-digit codes.
+
+For some reason, this table is incomplete! Several countries are
+missing from it, and I cannot find them anywhere on the UN site.  I
+no longer use this as a source of data.
+
+=item L<https://www.cia.gov/library/publications/the-world-factbook/appendix/print_appendix-d.html>
+
+The World Factbook maintained by the CIA is a potential source of
+the data.  Unfortunately, it adds/preserves non-standard codes, so it is no
+longer used as a source of data.
+
+=item L<http://www.statoids.com/wab.html>
+
+Another unofficial source of data. Currently, it is not used to get
+data, but the notes and explanatory material were very useful for
+understanding discrepancies between the sources.
+
+=back
+
+=head1 AUTHOR
+
+See Locale::Codes for full author history.
+
+Currently maintained by Sullivan Beck (sbeck@cpan.org).
+
+=head1 COPYRIGHT
+
+   Copyright (c) 1997-2001 Canon Research Centre Europe (CRE).
+   Copyright (c) 2001-2010 Neil Bowers
+   Copyright (c) 2010-2015 Sullivan Beck
+
+This module is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+=cut
diff --git a/lib/5.24.1/Locale/Codes/Country_Codes.pm b/lib/5.24.1/Locale/Codes/Country_Codes.pm
new file mode 100644
index 00000000..11262e85
--- /dev/null
+++ b/lib/5.24.1/Locale/Codes/Country_Codes.pm
@@ -0,0 +1,7884 @@
+package #
+Locale::Codes::Country_Codes;
+
+# This file was automatically generated.  Any changes to this file will
+# be lost the next time 'harvest_data' is run.
+#    Generated on: Tue Dec  1 14:41:05 EST 2015
+
+use strict;
+require 5.006;
+use warnings;
+use utf8;
+
+our($VERSION);
+$VERSION='3.37';
+
+$Locale::Codes::Data{'country'}{'id'} = '0250';
+
+$Locale::Codes::Data{'country'}{'id2names'} = {
+   q(0001) => [
+      q(Afghanistan),
+      ],
+   q(0002) => [
+      q(Aland Islands),
+      ],
+   q(0003) => [
+      q(Albania),
+      ],
+   q(0004) => [
+      q(Algeria),
+      ],
+   q(0005) => [
+      q(American Samoa),
+      ],
+   q(0006) => [
+      q(Andorra),
+      ],
+   q(0007) => [
+      q(Angola),
+      ],
+   q(0008) => [
+      q(Anguilla),
+      ],
+   q(0009) => [
+      q(Antarctica),
+      ],
+   q(0010) => [
+      q(Antigua and Barbuda),
+      ],
+   q(0011) => [
+      q(Argentina),
+      ],
+   q(0012) => [
+      q(Armenia),
+      ],
+   q(0013) => [
+      q(Aruba),
+      ],
+   q(0014) => [
+      q(Australia),
+      ],
+   q(0015) => [
+      q(Austria),
+      ],
+   q(0016) => [
+      q(Azerbaijan),
+      ],
+   q(0017) => [
+      q(Bahamas),
+      q(The Bahamas),
+      q(Bahamas, The),
+      q(Bahamas (The)),
+      ],
+   q(0018) => [
+      q(Bahrain),
+      ],
+   q(0019) => [
+      q(Bangladesh),
+      ],
+   q(0020) => [
+      q(Barbados),
+      ],
+   q(0021) => [
+      q(Belarus),
+      ],
+   q(0022) => [
+      q(Belgium),
+      ],
+   q(0023) => [
+      q(Belize),
+      ],
+   q(0024) => [
+      q(Benin),
+      ],
+   q(0025) => [
+      q(Bermuda),
+      ],
+   q(0026) => [
+      q(Bhutan),
+      ],
+   q(0027) => [
+      q(Bolivia (Plurinational State of)),
+      q(Bolivia, Plurinational State of),
+      q(Plurinational State of Bolivia),
+      q(Bolivia),
+      ],
+   q(0028) => [
+      q(Bonaire, Sint Eustatius and Saba),
+      ],
+   q(0029) => [
+      q(Bosnia and Herzegovina),
+      ],
+   q(0030) => [
+      q(Botswana),
+      ],
+   q(0031) => [
+      q(Bouvet Island),
+      ],
+   q(0032) => [
+      q(Brazil),
+      ],
+   q(0033) => [
+      q(British Indian Ocean Territory),
+      q(The British Indian Ocean Territory),
+      q(British Indian Ocean Territory, The),
+      q(British Indian Ocean Territory (The)),
+      ],
+   q(0034) => [
+      q(Brunei Darussalam),
+      q(Brunei),
+      ],
+   q(0035) => [
+      q(Bulgaria),
+      ],
+   q(0036) => [
+      q(Burkina Faso),
+      ],
+   q(0037) => [
+      q(Burundi),
+      ],
+   q(0038) => [
+      q(Cabo Verde),
+      ],
+   q(0039) => [
+      q(Cambodia),
+      ],
+   q(0040) => [
+      q(Cameroon),
+      ],
+   q(0041) => [
+      q(Canada),
+      ],
+   q(0042) => [
+      q(Cayman Islands),
+      q(The Cayman Islands),
+      q(Cayman Islands, The),
+      q(Cayman Islands (The)),
+      ],
+   q(0043) => [
+      q(Central African Republic),
+      q(The Central African Republic),
+      q(Central African Republic, The),
+      q(Central African Republic (The)),
+      ],
+   q(0044) => [
+      q(Chad),
+      ],
+   q(0045) => [
+      q(Chile),
+      ],
+   q(0046) => [
+      q(China),
+      ],
+   q(0047) => [
+      q(Christmas Island),
+      ],
+   q(0048) => [
+      q(Cocos (Keeling) Islands),
+      q(The Cocos (Keeling) Islands),
+      q(Cocos (Keeling) Islands, The),
+      q(Cocos (Keeling) Islands (The)),
+      q(Cocos Islands),
+      q(The Cocos Islands),
+      q(Keeling Islands),
+      q(The Keeling Islands),
+      ],
+   q(0049) => [
+      q(Colombia),
+      ],
+   q(0050) => [
+      q(Comoros),
+      q(The Comoros),
+      q(Comoros, The),
+      q(Comoros (The)),
+      ],
+   q(0051) => [
+      q(Congo (The Democratic Republic of the)),
+      q(Congo, The Democratic Republic of the),
+      q(Congo, Democratic Republic of the),
+      q(The Democratic Republic of the Congo),
+      q(Democratic Republic of the Congo),
+      q(Congo-Kinshasa),
+      q(Congo (Kinshasa)),
+      ],
+   q(0052) => [
+      q(Congo),
+      q(The Congo),
+      q(Congo, The),
+      q(Congo (The)),
+      q(The Republic of the Congo),
+      q(Republic of the Congo),
+      q(Congo, The Republic of the),
+      q(Congo, Republic of the),
+      q(Congo-Brazzaville),
+      q(Congo (Brazzaville)),
+      ],
+   q(0053) => [
+      q(Cook Islands),
+      q(The Cook Islands),
+      q(Cook Islands, The),
+      q(Cook Islands (The)),
+      ],
+   q(0054) => [
+      q(Costa Rica),
+      ],
+   q(0055) => [
+      q(Cote d'Ivoire),
+      ],
+   q(0056) => [
+      q(Croatia),
+      ],
+   q(0057) => [
+      q(Cuba),
+      ],
+   q(0058) => [
+      q(Curacao),
+      ],
+   q(0059) => [
+      q(Cyprus),
+      ],
+   q(0060) => [
+      q(Czech Republic),
+      q(The Czech Republic),
+      q(Czech Republic, The),
+      q(Czech Republic (The)),
+      ],
+   q(0061) => [
+      q(Denmark),
+      ],
+   q(0062) => [
+      q(Djibouti),
+      ],
+   q(0063) => [
+      q(Dominica),
+      ],
+   q(0064) => [
+      q(Dominican Republic),
+      q(The Dominican Republic),
+      q(Dominican Republic, The),
+      q(Dominican Republic (The)),
+      ],
+   q(0065) => [
+      q(Ecuador),
+      ],
+   q(0066) => [
+      q(Egypt),
+      ],
+   q(0067) => [
+      q(El Salvador),
+      ],
+   q(0068) => [
+      q(Equatorial Guinea),
+      ],
+   q(0069) => [
+      q(Eritrea),
+      ],
+   q(0070) => [
+      q(Estonia),
+      ],
+   q(0071) => [
+      q(Ethiopia),
+      ],
+   q(0072) => [
+      q(Falkland Islands (The) [Malvinas]),
+      q(Falkland Islands (Malvinas)),
+      q(Falkland Islands (Islas Malvinas)),
+      ],
+   q(0073) => [
+      q(Faroe Islands),
+      q(The Faroe Islands),
+      q(Faroe Islands, The),
+      q(Faroe Islands (The)),
+      q(Faeroe Islands),
+      q(The Faeroe Islands),
+      ],
+   q(0074) => [
+      q(Fiji),
+      ],
+   q(0075) => [
+      q(Finland),
+      ],
+   q(0076) => [
+      q(France),
+      ],
+   q(0077) => [
+      q(French Guiana),
+      ],
+   q(0078) => [
+      q(French Polynesia),
+      ],
+   q(0079) => [
+      q(French Southern Territories),
+      q(The French Southern Territories),
+      q(French Southern Territories, The),
+      q(French Southern Territories (The)),
+      q(French Southern and Antarctic Lands),
+      ],
+   q(0080) => [
+      q(Gabon),
+      ],
+   q(0081) => [
+      q(Gambia),
+      q(The Gambia),
+      q(Gambia, The),
+      q(Gambia (The)),
+      ],
+   q(0082) => [
+      q(Georgia),
+      ],
+   q(0083) => [
+      q(Germany),
+      ],
+   q(0084) => [
+      q(Ghana),
+      ],
+   q(0085) => [
+      q(Gibraltar),
+      ],
+   q(0086) => [
+      q(Greece),
+      ],
+   q(0087) => [
+      q(Greenland),
+      ],
+   q(0088) => [
+      q(Grenada),
+      ],
+   q(0089) => [
+      q(Guadeloupe),
+      ],
+   q(0090) => [
+      q(Guam),
+      ],
+   q(0091) => [
+      q(Guatemala),
+      ],
+   q(0092) => [
+      q(Guernsey),
+      ],
+   q(0093) => [
+      q(Guinea),
+      ],
+   q(0094) => [
+      q(Guinea-Bissau),
+      ],
+   q(0095) => [
+      q(Guyana),
+      ],
+   q(0096) => [
+      q(Haiti),
+      ],
+   q(0097) => [
+      q(Heard Island and McDonald Islands),
+      ],
+   q(0098) => [
+      q(Holy See),
+      q(The Holy See),
+      q(Holy See, The),
+      q(Holy See (The)),
+      q(Holy See (The) [Vatican City State]),
+      q(Holy See (Vatican City State)),
+      q(Holy See (Vatican City)),
+      q(Vatican City),
+      ],
+   q(0099) => [
+      q(Honduras),
+      ],
+   q(0100) => [
+      q(Hong Kong),
+      q(China, Hong Kong Special Administrative Region),
+      q(Hong Kong S.A.R.),
+      q(Hong Kong Special Administrative Region of China),
+      ],
+   q(0101) => [
+      q(Hungary),
+      ],
+   q(0102) => [
+      q(Iceland),
+      ],
+   q(0103) => [
+      q(India),
+      ],
+   q(0104) => [
+      q(Indonesia),
+      ],
+   q(0105) => [
+      q(Iran (Islamic Republic of)),
+      q(Iran (The Islamic Republic of)),
+      q(Iran, Islamic Republic of),
+      q(Iran, The Islamic Republic of),
+      q(Islamic Republic of Iran),
+      q(The Islamic Republic of Iran),
+      q(Iran),
+      ],
+   q(0106) => [
+      q(Iraq),
+      ],
+   q(0107) => [
+      q(Ireland),
+      ],
+   q(0108) => [
+      q(Isle of Man),
+      ],
+   q(0109) => [
+      q(Israel),
+      ],
+   q(0110) => [
+      q(Italy),
+      ],
+   q(0111) => [
+      q(Jamaica),
+      ],
+   q(0112) => [
+      q(Japan),
+      ],
+   q(0113) => [
+      q(Jersey),
+      ],
+   q(0114) => [
+      q(Jordan),
+      ],
+   q(0115) => [
+      q(Kazakhstan),
+      q(Kazakstan),
+      ],
+   q(0116) => [
+      q(Kenya),
+      ],
+   q(0117) => [
+      q(Kiribati),
+      ],
+   q(0118) => [
+      q(Korea, The Democratic People's Republic of),
+      q(Korea (The Democratic People's Republic of)),
+      q(Korea, Democratic People's Republic of),
+      q(Korea (Democratic People's Republic of)),
+      q(The Democratic People's Republic of Korea),
+      q(Democratic People's Republic of Korea),
+      q(North Korea),
+      ],
+   q(0119) => [
+      q(Korea, The Republic of),
+      q(Korea (The Republic of)),
+      q(Korea, Republic of),
+      q(Korea (Republic of)),
+      q(The Republic of Korea),
+      q(Republic of Korea),
+      q(South Korea),
+      ],
+   q(0120) => [
+      q(Kuwait),
+      ],
+   q(0121) => [
+      q(Kyrgyzstan),
+      ],
+   q(0122) => [
+      q(Lao People's Democratic Republic),
+      q(The Lao People's Democratic Republic),
+      q(Lao People's Democratic Republic, The),
+      q(Lao People's Democratic Republic (The)),
+      ],
+   q(0123) => [
+      q(Latvia),
+      ],
+   q(0124) => [
+      q(Lebanon),
+      ],
+   q(0125) => [
+      q(Lesotho),
+      ],
+   q(0126) => [
+      q(Liberia),
+      ],
+   q(0127) => [
+      q(Libya),
+      ],
+   q(0128) => [
+      q(Liechtenstein),
+      ],
+   q(0129) => [
+      q(Lithuania),
+      ],
+   q(0130) => [
+      q(Luxembourg),
+      ],
+   q(0131) => [
+      q(Macao),
+      q(China, Macao Special Administrative Region),
+      q(Macao Special Administrative Region of China),
+      q(Macau S.A.R),
+      q(Macau S.A.R.),
+      q(Macau),
+      ],
+   q(0132) => [
+      q(Macedonia, The former Yugoslav Republic of),
+      q(Macedonia (The former Yugoslav Republic of)),
+      q(Macedonia, former Yugoslav Republic of),
+      q(Macedonia (former Yugoslav Republic of)),
+      q(The former Yugoslav Republic of Macedonia),
+      q(former Yugoslav Republic of Macedonia),
+      q(Macedonia),
+      ],
+   q(0133) => [
+      q(Madagascar),
+      ],
+   q(0134) => [
+      q(Malawi),
+      ],
+   q(0135) => [
+      q(Malaysia),
+      ],
+   q(0136) => [
+      q(Maldives),
+      ],
+   q(0137) => [
+      q(Mali),
+      ],
+   q(0138) => [
+      q(Malta),
+      ],
+   q(0139) => [
+      q(Marshall Islands),
+      q(The Marshall Islands),
+      q(Marshall Islands, The),
+      q(Marshall Islands (The)),
+      ],
+   q(0140) => [
+      q(Martinique),
+      ],
+   q(0141) => [
+      q(Mauritania),
+      ],
+   q(0142) => [
+      q(Mauritius),
+      ],
+   q(0143) => [
+      q(Mayotte),
+      ],
+   q(0144) => [
+      q(Mexico),
+      ],
+   q(0145) => [
+      q(Micronesia (Federated States of)),
+      q(Federated States of Micronesia),
+      q(Micronesia (The Federated States of)),
+      q(Micronesia, Federated States of),
+      q(Micronesia, The Federated States of),
+      q(The Federated States of Micronesia),
+      ],
+   q(0146) => [
+      q(Moldova, The Republic of),
+      q(Moldova (The Republic of)),
+      q(Moldova, Republic of),
+      q(Moldova (Republic of)),
+      q(The Republic of Moldova),
+      q(Republic of Moldova),
+      ],
+   q(0147) => [
+      q(Monaco),
+      ],
+   q(0148) => [
+      q(Mongolia),
+      ],
+   q(0149) => [
+      q(Montenegro),
+      ],
+   q(0150) => [
+      q(Montserrat),
+      ],
+   q(0151) => [
+      q(Morocco),
+      ],
+   q(0152) => [
+      q(Mozambique),
+      ],
+   q(0153) => [
+      q(Myanmar),
+      q(The Republic of the Union of Myanmar),
+      q(Republic of the Union of Myanmar),
+      q(Burma),
+      ],
+   q(0154) => [
+      q(Namibia),
+      ],
+   q(0155) => [
+      q(Nauru),
+      ],
+   q(0156) => [
+      q(Nepal),
+      ],
+   q(0157) => [
+      q(Netherlands),
+      q(The Netherlands),
+      q(Netherlands, The),
+      q(Netherlands (The)),
+      ],
+   q(0158) => [
+      q(New Caledonia),
+      ],
+   q(0159) => [
+      q(New Zealand),
+      ],
+   q(0160) => [
+      q(Nicaragua),
+      ],
+   q(0161) => [
+      q(Niger),
+      q(The Niger),
+      q(Niger, The),
+      q(Niger (The)),
+      ],
+   q(0162) => [
+      q(Nigeria),
+      ],
+   q(0163) => [
+      q(Niue),
+      ],
+   q(0164) => [
+      q(Norfolk Island),
+      ],
+   q(0165) => [
+      q(Northern Mariana Islands),
+      q(The Northern Mariana Islands),
+      q(Northern Mariana Islands, The),
+      q(Northern Mariana Islands (The)),
+      ],
+   q(0166) => [
+      q(Norway),
+      ],
+   q(0167) => [
+      q(Oman),
+      ],
+   q(0168) => [
+      q(Pakistan),
+      ],
+   q(0169) => [
+      q(Palau),
+      ],
+   q(0170) => [
+      q(Palestine, State of),
+      q(Palestine (State of)),
+      q(State of Palestine),
+      ],
+   q(0171) => [
+      q(Panama),
+      ],
+   q(0172) => [
+      q(Papua New Guinea),
+      ],
+   q(0173) => [
+      q(Paraguay),
+      ],
+   q(0174) => [
+      q(Peru),
+      ],
+   q(0175) => [
+      q(Philippines),
+      q(The Philippines),
+      q(Philippines, The),
+      q(Philippines (The)),
+      ],
+   q(0176) => [
+      q(Pitcairn),
+      q(Pitcairn Island),
+      q(Pitcairn Islands),
+      ],
+   q(0177) => [
+      q(Poland),
+      ],
+   q(0178) => [
+      q(Portugal),
+      ],
+   q(0179) => [
+      q(Puerto Rico),
+      ],
+   q(0180) => [
+      q(Qatar),
+      ],
+   q(0181) => [
+      q(Reunion),
+      ],
+   q(0182) => [
+      q(Romania),
+      ],
+   q(0183) => [
+      q(Russian Federation),
+      q(The Russian Federation),
+      q(Russian Federation, The),
+      q(Russian Federation (The)),
+      ],
+   q(0184) => [
+      q(Rwanda),
+      ],
+   q(0185) => [
+      q(Saint Barthelemy),
+      q(Saint-Barthelemy),
+      ],
+   q(0186) => [
+      q(Saint Helena, Ascension and Tristan da Cunha),
+      q(Saint Helena),
+      ],
+   q(0187) => [
+      q(Saint Kitts and Nevis),
+      ],
+   q(0188) => [
+      q(Saint Lucia),
+      ],
+   q(0189) => [
+      q(Saint Martin (French part)),
+      q(Saint Martin),
+      q(Saint-Martin (French part)),
+      q(Saint-Martin),
+      ],
+   q(0190) => [
+      q(Saint Pierre and Miquelon),
+      ],
+   q(0191) => [
+      q(Saint Vincent and the Grenadines),
+      ],
+   q(0192) => [
+      q(Samoa),
+      ],
+   q(0193) => [
+      q(San Marino),
+      ],
+   q(0194) => [
+      q(Sao Tome and Principe),
+      ],
+   q(0195) => [
+      q(Saudi Arabia),
+      ],
+   q(0196) => [
+      q(Senegal),
+      ],
+   q(0197) => [
+      q(Serbia),
+      ],
+   q(0198) => [
+      q(Seychelles),
+      ],
+   q(0199) => [
+      q(Sierra Leone),
+      ],
+   q(0200) => [
+      q(Singapore),
+      ],
+   q(0201) => [
+      q(Sint Maarten (Dutch part)),
+      ],
+   q(0202) => [
+      q(Slovakia),
+      ],
+   q(0203) => [
+      q(Slovenia),
+      ],
+   q(0204) => [
+      q(Solomon Islands),
+      q(Solomon Islands (The)),
+      q(Solomon Islands, The),
+      q(The Solomon Islands),
+      ],
+   q(0205) => [
+      q(Somalia),
+      ],
+   q(0206) => [
+      q(South Africa),
+      ],
+   q(0207) => [
+      q(South Georgia and the South Sandwich Islands),
+      q(South Georgia and the Islands),
+      ],
+   q(0208) => [
+      q(South Sudan),
+      ],
+   q(0209) => [
+      q(Spain),
+      ],
+   q(0210) => [
+      q(Sri Lanka),
+      ],
+   q(0211) => [
+      q(Sudan),
+      q(The Sudan),
+      q(Sudan, The),
+      q(Sudan (The)),
+      ],
+   q(0212) => [
+      q(Suriname),
+      ],
+   q(0213) => [
+      q(Svalbard and Jan Mayen),
+      q(Svalbard and Jan Mayen Islands),
+      ],
+   q(0214) => [
+      q(Swaziland),
+      ],
+   q(0215) => [
+      q(Sweden),
+      ],
+   q(0216) => [
+      q(Switzerland),
+      ],
+   q(0217) => [
+      q(Syrian Arab Republic),
+      q(Syrian Arab Republic (The)),
+      q(Syrian Arab Republic, The),
+      q(The Syrian Arab Republic),
+      q(Syria),
+      ],
+   q(0218) => [
+      q(Taiwan (Province of China)),
+      q(Taiwan),
+      q(Taiwan, Province of China),
+      ],
+   q(0219) => [
+      q(Tajikistan),
+      ],
+   q(0220) => [
+      q(Tanzania, United Republic of),
+      q(Tanzania (United Republic of)),
+      q(United Republic of Tanzania),
+      ],
+   q(0221) => [
+      q(Thailand),
+      ],
+   q(0222) => [
+      q(Timor-Leste),
+      q(East Timor),
+      q(The Democratic Republic of Timor-Leste),
+      q(Democratic Republic of Timor-Leste),
+      q(Timor-Leste, The Democratic Republic of),
+      q(Timor-Leste, Democratic Republic of),
+      q(Timor-Leste (The Democratic Republic of)),
+      q(Timor-Leste (Democratic Republic of)),
+      ],
+   q(0223) => [
+      q(Togo),
+      ],
+   q(0224) => [
+      q(Tokelau),
+      ],
+   q(0225) => [
+      q(Tonga),
+      ],
+   q(0226) => [
+      q(Trinidad and Tobago),
+      ],
+   q(0227) => [
+      q(Tunisia),
+      ],
+   q(0228) => [
+      q(Turkey),
+      ],
+   q(0229) => [
+      q(Turkmenistan),
+      ],
+   q(0230) => [
+      q(Turks and Caicos Islands),
+      q(The Turks and Caicos Islands),
+      q(Turks and Caicos Islands, The),
+      q(Turks and Caicos Islands (The)),
+      ],
+   q(0231) => [
+      q(Tuvalu),
+      ],
+   q(0232) => [
+      q(Uganda),
+      ],
+   q(0233) => [
+      q(Ukraine),
+      ],
+   q(0234) => [
+      q(United Arab Emirates),
+      q(The United Arab Emirates),
+      q(United Arab Emirates, The),
+      q(United Arab Emirates (The)),
+      ],
+   q(0235) => [
+      q(United Kingdom of Great Britain and Northern Ireland),
+      q(The United Kingdom of Great Britain and Northern Ireland),
+      q(United Kingdom of Great Britain and Northern Ireland, The),
+      q(United Kingdom of Great Britain and Northern Ireland (The)),
+      q(Great Britain),
+      q(United Kingdom (The)),
+      q(The United Kingdom),
+      q(United Kingdom),
+      q(United Kingdom, The),
+      q(UK),
+      ],
+   q(0236) => [
+      q(United States Minor Outlying Islands),
+      q(The United States Minor Outlying Islands),
+      q(United States Minor Outlying Islands, The),
+      q(United States Minor Outlying Islands (The)),
+      ],
+   q(0237) => [
+      q(United States of America),
+      q(The United States of America),
+      q(United States of America, The),
+      q(United States of America (The)),
+      q(The United States),
+      q(United States),
+      q(United States, The),
+      q(United States (The)),
+      q(US),
+      q(USA),
+      ],
+   q(0238) => [
+      q(Uruguay),
+      ],
+   q(0239) => [
+      q(Uzbekistan),
+      ],
+   q(0240) => [
+      q(Vanuatu),
+      ],
+   q(0241) => [
+      q(Venezuela (Bolivarian Republic of)),
+      q(Venezuela, Bolivarian Republic of),
+      q(Venezuela, Bolivarian Republic),
+      q(Venezuela),
+      ],
+   q(0242) => [
+      q(Viet Nam),
+      q(Vietnam),
+      ],
+   q(0243) => [
+      q(Virgin Islands (British)),
+      q(British Virgin Islands),
+      q(Virgin Islands, British),
+      q(Virgin Islands (UK)),
+      ],
+   q(0244) => [
+      q(Virgin Islands (U.S.)),
+      q(United States Virgin Islands),
+      q(Virgin Islands (US)),
+      q(Virgin Islands, U.S.),
+      q(Virgin Islands),
+      ],
+   q(0245) => [
+      q(Wallis and Futuna),
+      q(Wallis and Futuna Islands),
+      q(The Territory of the Wallis and Futuna Islands),
+      q(Territory of the Wallis and Futuna Islands),
+      ],
+   q(0246) => [
+      q(Western Sahara),
+      ],
+   q(0247) => [
+      q(Yemen),
+      q(The Yemeni Republic),
+      q(Yemeni Republic),
+      q(Yemeni Republic, The),
+      q(Yemeni Republic (The)),
+      ],
+   q(0248) => [
+      q(Zambia),
+      q(The Republic of Zambia),
+      q(Republic of Zambia),
+      q(Republic of Zambia, The),
+      q(Republic of Zambia (The)),
+      ],
+   q(0249) => [
+      q(Zimbabwe),
+      q(The Republic of Zimbabwe),
+      q(Republic of Zimbabwe),
+      q(Republic of Zimbabwe, The),
+      q(Republic of Zimbabwe (The)),
+      ],
+};
+
+$Locale::Codes::Data{'country'}{'alias2id'} = {
+   q(afghanistan) => [
+      q(0001),
+      q(0),
+      ],
+   q(aland islands) => [
+      q(0002),
+      q(0),
+      ],
+   q(albania) => [
+      q(0003),
+      q(0),
+      ],
+   q(algeria) => [
+      q(0004),
+      q(0),
+      ],
+   q(american samoa) => [
+      q(0005),
+      q(0),
+      ],
+   q(andorra) => [
+      q(0006),
+      q(0),
+      ],
+   q(angola) => [
+      q(0007),
+      q(0),
+      ],
+   q(anguilla) => [
+      q(0008),
+      q(0),
+      ],
+   q(antarctica) => [
+      q(0009),
+      q(0),
+      ],
+   q(antigua and barbuda) => [
+      q(0010),
+      q(0),
+      ],
+   q(argentina) => [
+      q(0011),
+      q(0),
+      ],
+   q(armenia) => [
+      q(0012),
+      q(0),
+      ],
+   q(aruba) => [
+      q(0013),
+      q(0),
+      ],
+   q(australia) => [
+      q(0014),
+      q(0),
+      ],
+   q(austria) => [
+      q(0015),
+      q(0),
+      ],
+   q(azerbaijan) => [
+      q(0016),
+      q(0),
+      ],
+   q(bahamas) => [
+      q(0017),
+      q(0),
+      ],
+   q(bahamas (the)) => [
+      q(0017),
+      q(3),
+      ],
+   q(bahamas, the) => [
+      q(0017),
+      q(2),
+      ],
+   q(bahrain) => [
+      q(0018),
+      q(0),
+      ],
+   q(bangladesh) => [
+      q(0019),
+      q(0),
+      ],
+   q(barbados) => [
+      q(0020),
+      q(0),
+      ],
+   q(belarus) => [
+      q(0021),
+      q(0),
+      ],
+   q(belgium) => [
+      q(0022),
+      q(0),
+      ],
+   q(belize) => [
+      q(0023),
+      q(0),
+      ],
+   q(benin) => [
+      q(0024),
+      q(0),
+      ],
+   q(bermuda) => [
+      q(0025),
+      q(0),
+      ],
+   q(bhutan) => [
+      q(0026),
+      q(0),
+      ],
+   q(bolivia) => [
+      q(0027),
+      q(3),
+      ],
+   q(bolivia (plurinational state of)) => [
+      q(0027),
+      q(0),
+      ],
+   q(bolivia, plurinational state of) => [
+      q(0027),
+      q(1),
+      ],
+   q(bonaire, sint eustatius and saba) => [
+      q(0028),
+      q(0),
+      ],
+   q(bosnia and herzegovina) => [
+      q(0029),
+      q(0),
+      ],
+   q(botswana) => [
+      q(0030),
+      q(0),
+      ],
+   q(bouvet island) => [
+      q(0031),
+      q(0),
+      ],
+   q(brazil) => [
+      q(0032),
+      q(0),
+      ],
+   q(british indian ocean territory) => [
+      q(0033),
+      q(0),
+      ],
+   q(british indian ocean territory (the)) => [
+      q(0033),
+      q(3),
+      ],
+   q(british indian ocean territory, the) => [
+      q(0033),
+      q(2),
+      ],
+   q(british virgin islands) => [
+      q(0243),
+      q(1),
+      ],
+   q(brunei) => [
+      q(0034),
+      q(1),
+      ],
+   q(brunei darussalam) => [
+      q(0034),
+      q(0),
+      ],
+   q(bulgaria) => [
+      q(0035),
+      q(0),
+      ],
+   q(burkina faso) => [
+      q(0036),
+      q(0),
+      ],
+   q(burma) => [
+      q(0153),
+      q(3),
+      ],
+   q(burundi) => [
+      q(0037),
+      q(0),
+      ],
+   q(cabo verde) => [
+      q(0038),
+      q(0),
+      ],
+   q(cambodia) => [
+      q(0039),
+      q(0),
+      ],
+   q(cameroon) => [
+      q(0040),
+      q(0),
+      ],
+   q(canada) => [
+      q(0041),
+      q(0),
+      ],
+   q(cayman islands) => [
+      q(0042),
+      q(0),
+      ],
+   q(cayman islands (the)) => [
+      q(0042),
+      q(3),
+      ],
+   q(cayman islands, the) => [
+      q(0042),
+      q(2),
+      ],
+   q(central african republic) => [
+      q(0043),
+      q(0),
+      ],
+   q(central african republic (the)) => [
+      q(0043),
+      q(3),
+      ],
+   q(central african republic, the) => [
+      q(0043),
+      q(2),
+      ],
+   q(chad) => [
+      q(0044),
+      q(0),
+      ],
+   q(chile) => [
+      q(0045),
+      q(0),
+      ],
+   q(china) => [
+      q(0046),
+      q(0),
+      ],
+   q(china, hong kong special administrative region) => [
+      q(0100),
+      q(1),
+      ],
+   q(china, macao special administrative region) => [
+      q(0131),
+      q(1),
+      ],
+   q(christmas island) => [
+      q(0047),
+      q(0),
+      ],
+   q(cocos (keeling) islands) => [
+      q(0048),
+      q(0),
+      ],
+   q(cocos (keeling) islands (the)) => [
+      q(0048),
+      q(3),
+      ],
+   q(cocos (keeling) islands, the) => [
+      q(0048),
+      q(2),
+      ],
+   q(cocos islands) => [
+      q(0048),
+      q(4),
+      ],
+   q(colombia) => [
+      q(0049),
+      q(0),
+      ],
+   q(comoros) => [
+      q(0050),
+      q(0),
+      ],
+   q(comoros (the)) => [
+      q(0050),
+      q(3),
+      ],
+   q(comoros, the) => [
+      q(0050),
+      q(2),
+      ],
+   q(congo) => [
+      q(0052),
+      q(0),
+      ],
+   q(congo (brazzaville)) => [
+      q(0052),
+      q(9),
+      ],
+   q(congo (kinshasa)) => [
+      q(0051),
+      q(6),
+      ],
+   q(congo (the democratic republic of the)) => [
+      q(0051),
+      q(0),
+      ],
+   q(congo (the)) => [
+      q(0052),
+      q(3),
+      ],
+   q(congo, democratic republic of the) => [
+      q(0051),
+      q(2),
+      ],
+   q(congo, republic of the) => [
+      q(0052),
+      q(7),
+      ],
+   q(congo, the) => [
+      q(0052),
+      q(2),
+      ],
+   q(congo, the democratic republic of the) => [
+      q(0051),
+      q(1),
+      ],
+   q(congo, the republic of the) => [
+      q(0052),
+      q(6),
+      ],
+   q(congo-brazzaville) => [
+      q(0052),
+      q(8),
+      ],
+   q(congo-kinshasa) => [
+      q(0051),
+      q(5),
+      ],
+   q(cook islands) => [
+      q(0053),
+      q(0),
+      ],
+   q(cook islands (the)) => [
+      q(0053),
+      q(3),
+      ],
+   q(cook islands, the) => [
+      q(0053),
+      q(2),
+      ],
+   q(costa rica) => [
+      q(0054),
+      q(0),
+      ],
+   q(cote d'ivoire) => [
+      q(0055),
+      q(0),
+      ],
+   q(croatia) => [
+      q(0056),
+      q(0),
+      ],
+   q(cuba) => [
+      q(0057),
+      q(0),
+      ],
+   q(curacao) => [
+      q(0058),
+      q(0),
+      ],
+   q(cyprus) => [
+      q(0059),
+      q(0),
+      ],
+   q(czech republic) => [
+      q(0060),
+      q(0),
+      ],
+   q(czech republic (the)) => [
+      q(0060),
+      q(3),
+      ],
+   q(czech republic, the) => [
+      q(0060),
+      q(2),
+      ],
+   q(democratic people's republic of korea) => [
+      q(0118),
+      q(5),
+      ],
+   q(democratic republic of the congo) => [
+      q(0051),
+      q(4),
+      ],
+   q(democratic republic of timor-leste) => [
+      q(0222),
+      q(3),
+      ],
+   q(denmark) => [
+      q(0061),
+      q(0),
+      ],
+   q(djibouti) => [
+      q(0062),
+      q(0),
+      ],
+   q(dominica) => [
+      q(0063),
+      q(0),
+      ],
+   q(dominican republic) => [
+      q(0064),
+      q(0),
+      ],
+   q(dominican republic (the)) => [
+      q(0064),
+      q(3),
+      ],
+   q(dominican republic, the) => [
+      q(0064),
+      q(2),
+      ],
+   q(east timor) => [
+      q(0222),
+      q(1),
+      ],
+   q(ecuador) => [
+      q(0065),
+      q(0),
+      ],
+   q(egypt) => [
+      q(0066),
+      q(0),
+      ],
+   q(el salvador) => [
+      q(0067),
+      q(0),
+      ],
+   q(equatorial guinea) => [
+      q(0068),
+      q(0),
+      ],
+   q(eritrea) => [
+      q(0069),
+      q(0),
+      ],
+   q(estonia) => [
+      q(0070),
+      q(0),
+      ],
+   q(ethiopia) => [
+      q(0071),
+      q(0),
+      ],
+   q(faeroe islands) => [
+      q(0073),
+      q(4),
+      ],
+   q(falkland islands (islas malvinas)) => [
+      q(0072),
+      q(2),
+      ],
+   q(falkland islands (malvinas)) => [
+      q(0072),
+      q(1),
+      ],
+   q(falkland islands (the) [malvinas]) => [
+      q(0072),
+      q(0),
+      ],
+   q(faroe islands) => [
+      q(0073),
+      q(0),
+      ],
+   q(faroe islands (the)) => [
+      q(0073),
+      q(3),
+      ],
+   q(faroe islands, the) => [
+      q(0073),
+      q(2),
+      ],
+   q(federated states of micronesia) => [
+      q(0145),
+      q(1),
+      ],
+   q(fiji) => [
+      q(0074),
+      q(0),
+      ],
+   q(finland) => [
+      q(0075),
+      q(0),
+      ],
+   q(former yugoslav republic of macedonia) => [
+      q(0132),
+      q(5),
+      ],
+   q(france) => [
+      q(0076),
+      q(0),
+      ],
+   q(french guiana) => [
+      q(0077),
+      q(0),
+      ],
+   q(french polynesia) => [
+      q(0078),
+      q(0),
+      ],
+   q(french southern and antarctic lands) => [
+      q(0079),
+      q(4),
+      ],
+   q(french southern territories) => [
+      q(0079),
+      q(0),
+      ],
+   q(french southern territories (the)) => [
+      q(0079),
+      q(3),
+      ],
+   q(french southern territories, the) => [
+      q(0079),
+      q(2),
+      ],
+   q(gabon) => [
+      q(0080),
+      q(0),
+      ],
+   q(gambia) => [
+      q(0081),
+      q(0),
+      ],
+   q(gambia (the)) => [
+      q(0081),
+      q(3),
+      ],
+   q(gambia, the) => [
+      q(0081),
+      q(2),
+      ],
+   q(georgia) => [
+      q(0082),
+      q(0),
+      ],
+   q(germany) => [
+      q(0083),
+      q(0),
+      ],
+   q(ghana) => [
+      q(0084),
+      q(0),
+      ],
+   q(gibraltar) => [
+      q(0085),
+      q(0),
+      ],
+   q(great britain) => [
+      q(0235),
+      q(4),
+      ],
+   q(greece) => [
+      q(0086),
+      q(0),
+      ],
+   q(greenland) => [
+      q(0087),
+      q(0),
+      ],
+   q(grenada) => [
+      q(0088),
+      q(0),
+      ],
+   q(guadeloupe) => [
+      q(0089),
+      q(0),
+      ],
+   q(guam) => [
+      q(0090),
+      q(0),
+      ],
+   q(guatemala) => [
+      q(0091),
+      q(0),
+      ],
+   q(guernsey) => [
+      q(0092),
+      q(0),
+      ],
+   q(guinea) => [
+      q(0093),
+      q(0),
+      ],
+   q(guinea-bissau) => [
+      q(0094),
+      q(0),
+      ],
+   q(guyana) => [
+      q(0095),
+      q(0),
+      ],
+   q(haiti) => [
+      q(0096),
+      q(0),
+      ],
+   q(heard island and mcdonald islands) => [
+      q(0097),
+      q(0),
+      ],
+   q(holy see) => [
+      q(0098),
+      q(0),
+      ],
+   q(holy see (the)) => [
+      q(0098),
+      q(3),
+      ],
+   q(holy see (the) [vatican city state]) => [
+      q(0098),
+      q(4),
+      ],
+   q(holy see (vatican city state)) => [
+      q(0098),
+      q(5),
+      ],
+   q(holy see (vatican city)) => [
+      q(0098),
+      q(6),
+      ],
+   q(holy see, the) => [
+      q(0098),
+      q(2),
+      ],
+   q(honduras) => [
+      q(0099),
+      q(0),
+      ],
+   q(hong kong) => [
+      q(0100),
+      q(0),
+      ],
+   q(hong kong s.a.r.) => [
+      q(0100),
+      q(2),
+      ],
+   q(hong kong special administrative region of china) => [
+      q(0100),
+      q(3),
+      ],
+   q(hungary) => [
+      q(0101),
+      q(0),
+      ],
+   q(iceland) => [
+      q(0102),
+      q(0),
+      ],
+   q(india) => [
+      q(0103),
+      q(0),
+      ],
+   q(indonesia) => [
+      q(0104),
+      q(0),
+      ],
+   q(iran) => [
+      q(0105),
+      q(6),
+      ],
+   q(iran (islamic republic of)) => [
+      q(0105),
+      q(0),
+      ],
+   q(iran (the islamic republic of)) => [
+      q(0105),
+      q(1),
+      ],
+   q(iran, islamic republic of) => [
+      q(0105),
+      q(2),
+      ],
+   q(iran, the islamic republic of) => [
+      q(0105),
+      q(3),
+      ],
+   q(iraq) => [
+      q(0106),
+      q(0),
+      ],
+   q(ireland) => [
+      q(0107),
+      q(0),
+      ],
+   q(islamic republic of iran) => [
+      q(0105),
+      q(4),
+      ],
+   q(isle of man) => [
+      q(0108),
+      q(0),
+      ],
+   q(israel) => [
+      q(0109),
+      q(0),
+      ],
+   q(italy) => [
+      q(0110),
+      q(0),
+      ],
+   q(jamaica) => [
+      q(0111),
+      q(0),
+      ],
+   q(japan) => [
+      q(0112),
+      q(0),
+      ],
+   q(jersey) => [
+      q(0113),
+      q(0),
+      ],
+   q(jordan) => [
+      q(0114),
+      q(0),
+      ],
+   q(kazakhstan) => [
+      q(0115),
+      q(0),
+      ],
+   q(kazakstan) => [
+      q(0115),
+      q(1),
+      ],
+   q(keeling islands) => [
+      q(0048),
+      q(6),
+      ],
+   q(kenya) => [
+      q(0116),
+      q(0),
+      ],
+   q(kiribati) => [
+      q(0117),
+      q(0),
+      ],
+   q(korea (democratic people's republic of)) => [
+      q(0118),
+      q(3),
+      ],
+   q(korea (republic of)) => [
+      q(0119),
+      q(3),
+      ],
+   q(korea (the democratic people's republic of)) => [
+      q(0118),
+      q(1),
+      ],
+   q(korea (the republic of)) => [
+      q(0119),
+      q(1),
+      ],
+   q(korea, democratic people's republic of) => [
+      q(0118),
+      q(2),
+      ],
+   q(korea, republic of) => [
+      q(0119),
+      q(2),
+      ],
+   q(korea, the democratic people's republic of) => [
+      q(0118),
+      q(0),
+      ],
+   q(korea, the republic of) => [
+      q(0119),
+      q(0),
+      ],
+   q(kuwait) => [
+      q(0120),
+      q(0),
+      ],
+   q(kyrgyzstan) => [
+      q(0121),
+      q(0),
+      ],
+   q(lao people's democratic republic) => [
+      q(0122),
+      q(0),
+      ],
+   q(lao people's democratic republic (the)) => [
+      q(0122),
+      q(3),
+      ],
+   q(lao people's democratic republic, the) => [
+      q(0122),
+      q(2),
+      ],
+   q(latvia) => [
+      q(0123),
+      q(0),
+      ],
+   q(lebanon) => [
+      q(0124),
+      q(0),
+      ],
+   q(lesotho) => [
+      q(0125),
+      q(0),
+      ],
+   q(liberia) => [
+      q(0126),
+      q(0),
+      ],
+   q(libya) => [
+      q(0127),
+      q(0),
+      ],
+   q(liechtenstein) => [
+      q(0128),
+      q(0),
+      ],
+   q(lithuania) => [
+      q(0129),
+      q(0),
+      ],
+   q(luxembourg) => [
+      q(0130),
+      q(0),
+      ],
+   q(macao) => [
+      q(0131),
+      q(0),
+      ],
+   q(macao special administrative region of china) => [
+      q(0131),
+      q(2),
+      ],
+   q(macau) => [
+      q(0131),
+      q(5),
+      ],
+   q(macau s.a.r) => [
+      q(0131),
+      q(3),
+      ],
+   q(macau s.a.r.) => [
+      q(0131),
+      q(4),
+      ],
+   q(macedonia) => [
+      q(0132),
+      q(6),
+      ],
+   q(macedonia (former yugoslav republic of)) => [
+      q(0132),
+      q(3),
+      ],
+   q(macedonia (the former yugoslav republic of)) => [
+      q(0132),
+      q(1),
+      ],
+   q(macedonia, former yugoslav republic of) => [
+      q(0132),
+      q(2),
+      ],
+   q(macedonia, the former yugoslav republic of) => [
+      q(0132),
+      q(0),
+      ],
+   q(madagascar) => [
+      q(0133),
+      q(0),
+      ],
+   q(malawi) => [
+      q(0134),
+      q(0),
+      ],
+   q(malaysia) => [
+      q(0135),
+      q(0),
+      ],
+   q(maldives) => [
+      q(0136),
+      q(0),
+      ],
+   q(mali) => [
+      q(0137),
+      q(0),
+      ],
+   q(malta) => [
+      q(0138),
+      q(0),
+      ],
+   q(marshall islands) => [
+      q(0139),
+      q(0),
+      ],
+   q(marshall islands (the)) => [
+      q(0139),
+      q(3),
+      ],
+   q(marshall islands, the) => [
+      q(0139),
+      q(2),
+      ],
+   q(martinique) => [
+      q(0140),
+      q(0),
+      ],
+   q(mauritania) => [
+      q(0141),
+      q(0),
+      ],
+   q(mauritius) => [
+      q(0142),
+      q(0),
+      ],
+   q(mayotte) => [
+      q(0143),
+      q(0),
+      ],
+   q(mexico) => [
+      q(0144),
+      q(0),
+      ],
+   q(micronesia (federated states of)) => [
+      q(0145),
+      q(0),
+      ],
+   q(micronesia (the federated states of)) => [
+      q(0145),
+      q(2),
+      ],
+   q(micronesia, federated states of) => [
+      q(0145),
+      q(3),
+      ],
+   q(micronesia, the federated states of) => [
+      q(0145),
+      q(4),
+      ],
+   q(moldova (republic of)) => [
+      q(0146),
+      q(3),
+      ],
+   q(moldova (the republic of)) => [
+      q(0146),
+      q(1),
+      ],
+   q(moldova, republic of) => [
+      q(0146),
+      q(2),
+      ],
+   q(moldova, the republic of) => [
+      q(0146),
+      q(0),
+      ],
+   q(monaco) => [
+      q(0147),
+      q(0),
+      ],
+   q(mongolia) => [
+      q(0148),
+      q(0),
+      ],
+   q(montenegro) => [
+      q(0149),
+      q(0),
+      ],
+   q(montserrat) => [
+      q(0150),
+      q(0),
+      ],
+   q(morocco) => [
+      q(0151),
+      q(0),
+      ],
+   q(mozambique) => [
+      q(0152),
+      q(0),
+      ],
+   q(myanmar) => [
+      q(0153),
+      q(0),
+      ],
+   q(namibia) => [
+      q(0154),
+      q(0),
+      ],
+   q(nauru) => [
+      q(0155),
+      q(0),
+      ],
+   q(nepal) => [
+      q(0156),
+      q(0),
+      ],
+   q(netherlands) => [
+      q(0157),
+      q(0),
+      ],
+   q(netherlands (the)) => [
+      q(0157),
+      q(3),
+      ],
+   q(netherlands, the) => [
+      q(0157),
+      q(2),
+      ],
+   q(new caledonia) => [
+      q(0158),
+      q(0),
+      ],
+   q(new zealand) => [
+      q(0159),
+      q(0),
+      ],
+   q(nicaragua) => [
+      q(0160),
+      q(0),
+      ],
+   q(niger) => [
+      q(0161),
+      q(0),
+      ],
+   q(niger (the)) => [
+      q(0161),
+      q(3),
+      ],
+   q(niger, the) => [
+      q(0161),
+      q(2),
+      ],
+   q(nigeria) => [
+      q(0162),
+      q(0),
+      ],
+   q(niue) => [
+      q(0163),
+      q(0),
+      ],
+   q(norfolk island) => [
+      q(0164),
+      q(0),
+      ],
+   q(north korea) => [
+      q(0118),
+      q(6),
+      ],
+   q(northern mariana islands) => [
+      q(0165),
+      q(0),
+      ],
+   q(northern mariana islands (the)) => [
+      q(0165),
+      q(3),
+      ],
+   q(northern mariana islands, the) => [
+      q(0165),
+      q(2),
+      ],
+   q(norway) => [
+      q(0166),
+      q(0),
+      ],
+   q(oman) => [
+      q(0167),
+      q(0),
+      ],
+   q(pakistan) => [
+      q(0168),
+      q(0),
+      ],
+   q(palau) => [
+      q(0169),
+      q(0),
+      ],
+   q(palestine (state of)) => [
+      q(0170),
+      q(1),
+      ],
+   q(palestine, state of) => [
+      q(0170),
+      q(0),
+      ],
+   q(panama) => [
+      q(0171),
+      q(0),
+      ],
+   q(papua new guinea) => [
+      q(0172),
+      q(0),
+      ],
+   q(paraguay) => [
+      q(0173),
+      q(0),
+      ],
+   q(peru) => [
+      q(0174),
+      q(0),
+      ],
+   q(philippines) => [
+      q(0175),
+      q(0),
+      ],
+   q(philippines (the)) => [
+      q(0175),
+      q(3),
+      ],
+   q(philippines, the) => [
+      q(0175),
+      q(2),
+      ],
+   q(pitcairn) => [
+      q(0176),
+      q(0),
+      ],
+   q(pitcairn island) => [
+      q(0176),
+      q(1),
+      ],
+   q(pitcairn islands) => [
+      q(0176),
+      q(2),
+      ],
+   q(plurinational state of bolivia) => [
+      q(0027),
+      q(2),
+      ],
+   q(poland) => [
+      q(0177),
+      q(0),
+      ],
+   q(portugal) => [
+      q(0178),
+      q(0),
+      ],
+   q(puerto rico) => [
+      q(0179),
+      q(0),
+      ],
+   q(qatar) => [
+      q(0180),
+      q(0),
+      ],
+   q(republic of korea) => [
+      q(0119),
+      q(5),
+      ],
+   q(republic of moldova) => [
+      q(0146),
+      q(5),
+      ],
+   q(republic of the congo) => [
+      q(0052),
+      q(5),
+      ],
+   q(republic of the union of myanmar) => [
+      q(0153),
+      q(2),
+      ],
+   q(republic of zambia) => [
+      q(0248),
+      q(2),
+      ],
+   q(republic of zambia (the)) => [
+      q(0248),
+      q(4),
+      ],
+   q(republic of zambia, the) => [
+      q(0248),
+      q(3),
+      ],
+   q(republic of zimbabwe) => [
+      q(0249),
+      q(2),
+      ],
+   q(republic of zimbabwe (the)) => [
+      q(0249),
+      q(4),
+      ],
+   q(republic of zimbabwe, the) => [
+      q(0249),
+      q(3),
+      ],
+   q(reunion) => [
+      q(0181),
+      q(0),
+      ],
+   q(romania) => [
+      q(0182),
+      q(0),
+      ],
+   q(russian federation) => [
+      q(0183),
+      q(0),
+      ],
+   q(russian federation (the)) => [
+      q(0183),
+      q(3),
+      ],
+   q(russian federation, the) => [
+      q(0183),
+      q(2),
+      ],
+   q(rwanda) => [
+      q(0184),
+      q(0),
+      ],
+   q(saint barthelemy) => [
+      q(0185),
+      q(0),
+      ],
+   q(saint helena) => [
+      q(0186),
+      q(1),
+      ],
+   q(saint helena, ascension and tristan da cunha) => [
+      q(0186),
+      q(0),
+      ],
+   q(saint kitts and nevis) => [
+      q(0187),
+      q(0),
+      ],
+   q(saint lucia) => [
+      q(0188),
+      q(0),
+      ],
+   q(saint martin) => [
+      q(0189),
+      q(1),
+      ],
+   q(saint martin (french part)) => [
+      q(0189),
+      q(0),
+      ],
+   q(saint pierre and miquelon) => [
+      q(0190),
+      q(0),
+      ],
+   q(saint vincent and the grenadines) => [
+      q(0191),
+      q(0),
+      ],
+   q(saint-barthelemy) => [
+      q(0185),
+      q(1),
+      ],
+   q(saint-martin) => [
+      q(0189),
+      q(3),
+      ],
+   q(saint-martin (french part)) => [
+      q(0189),
+      q(2),
+      ],
+   q(samoa) => [
+      q(0192),
+      q(0),
+      ],
+   q(san marino) => [
+      q(0193),
+      q(0),
+      ],
+   q(sao tome and principe) => [
+      q(0194),
+      q(0),
+      ],
+   q(saudi arabia) => [
+      q(0195),
+      q(0),
+      ],
+   q(senegal) => [
+      q(0196),
+      q(0),
+      ],
+   q(serbia) => [
+      q(0197),
+      q(0),
+      ],
+   q(seychelles) => [
+      q(0198),
+      q(0),
+      ],
+   q(sierra leone) => [
+      q(0199),
+      q(0),
+      ],
+   q(singapore) => [
+      q(0200),
+      q(0),
+      ],
+   q(sint maarten (dutch part)) => [
+      q(0201),
+      q(0),
+      ],
+   q(slovakia) => [
+      q(0202),
+      q(0),
+      ],
+   q(slovenia) => [
+      q(0203),
+      q(0),
+      ],
+   q(solomon islands) => [
+      q(0204),
+      q(0),
+      ],
+   q(solomon islands (the)) => [
+      q(0204),
+      q(1),
+      ],
+   q(solomon islands, the) => [
+      q(0204),
+      q(2),
+      ],
+   q(somalia) => [
+      q(0205),
+      q(0),
+      ],
+   q(south africa) => [
+      q(0206),
+      q(0),
+      ],
+   q(south georgia and the islands) => [
+      q(0207),
+      q(1),
+      ],
+   q(south georgia and the south sandwich islands) => [
+      q(0207),
+      q(0),
+      ],
+   q(south korea) => [
+      q(0119),
+      q(6),
+      ],
+   q(south sudan) => [
+      q(0208),
+      q(0),
+      ],
+   q(spain) => [
+      q(0209),
+      q(0),
+      ],
+   q(sri lanka) => [
+      q(0210),
+      q(0),
+      ],
+   q(state of palestine) => [
+      q(0170),
+      q(2),
+      ],
+   q(sudan) => [
+      q(0211),
+      q(0),
+      ],
+   q(sudan (the)) => [
+      q(0211),
+      q(3),
+      ],
+   q(sudan, the) => [
+      q(0211),
+      q(2),
+      ],
+   q(suriname) => [
+      q(0212),
+      q(0),
+      ],
+   q(svalbard and jan mayen) => [
+      q(0213),
+      q(0),
+      ],
+   q(svalbard and jan mayen islands) => [
+      q(0213),
+      q(1),
+      ],
+   q(swaziland) => [
+      q(0214),
+      q(0),
+      ],
+   q(sweden) => [
+      q(0215),
+      q(0),
+      ],
+   q(switzerland) => [
+      q(0216),
+      q(0),
+      ],
+   q(syria) => [
+      q(0217),
+      q(4),
+      ],
+   q(syrian arab republic) => [
+      q(0217),
+      q(0),
+      ],
+   q(syrian arab republic (the)) => [
+      q(0217),
+      q(1),
+      ],
+   q(syrian arab republic, the) => [
+      q(0217),
+      q(2),
+      ],
+   q(taiwan) => [
+      q(0218),
+      q(1),
+      ],
+   q(taiwan (province of china)) => [
+      q(0218),
+      q(0),
+      ],
+   q(taiwan, province of china) => [
+      q(0218),
+      q(2),
+      ],
+   q(tajikistan) => [
+      q(0219),
+      q(0),
+      ],
+   q(tanzania (united republic of)) => [
+      q(0220),
+      q(1),
+      ],
+   q(tanzania, united republic of) => [
+      q(0220),
+      q(0),
+      ],
+   q(territory of the wallis and futuna islands) => [
+      q(0245),
+      q(3),
+      ],
+   q(thailand) => [
+      q(0221),
+      q(0),
+      ],
+   q(the bahamas) => [
+      q(0017),
+      q(1),
+      ],
+   q(the british indian ocean territory) => [
+      q(0033),
+      q(1),
+      ],
+   q(the cayman islands) => [
+      q(0042),
+      q(1),
+      ],
+   q(the central african republic) => [
+      q(0043),
+      q(1),
+      ],
+   q(the cocos (keeling) islands) => [
+      q(0048),
+      q(1),
+      ],
+   q(the cocos islands) => [
+      q(0048),
+      q(5),
+      ],
+   q(the comoros) => [
+      q(0050),
+      q(1),
+      ],
+   q(the congo) => [
+      q(0052),
+      q(1),
+      ],
+   q(the cook islands) => [
+      q(0053),
+      q(1),
+      ],
+   q(the czech republic) => [
+      q(0060),
+      q(1),
+      ],
+   q(the democratic people's republic of korea) => [
+      q(0118),
+      q(4),
+      ],
+   q(the democratic republic of the congo) => [
+      q(0051),
+      q(3),
+      ],
+   q(the democratic republic of timor-leste) => [
+      q(0222),
+      q(2),
+      ],
+   q(the dominican republic) => [
+      q(0064),
+      q(1),
+      ],
+   q(the faeroe islands) => [
+      q(0073),
+      q(5),
+      ],
+   q(the faroe islands) => [
+      q(0073),
+      q(1),
+      ],
+   q(the federated states of micronesia) => [
+      q(0145),
+      q(5),
+      ],
+   q(the former yugoslav republic of macedonia) => [
+      q(0132),
+      q(4),
+      ],
+   q(the french southern territories) => [
+      q(0079),
+      q(1),
+      ],
+   q(the gambia) => [
+      q(0081),
+      q(1),
+      ],
+   q(the holy see) => [
+      q(0098),
+      q(1),
+      ],
+   q(the islamic republic of iran) => [
+      q(0105),
+      q(5),
+      ],
+   q(the keeling islands) => [
+      q(0048),
+      q(7),
+      ],
+   q(the lao people's democratic republic) => [
+      q(0122),
+      q(1),
+      ],
+   q(the marshall islands) => [
+      q(0139),
+      q(1),
+      ],
+   q(the netherlands) => [
+      q(0157),
+      q(1),
+      ],
+   q(the niger) => [
+      q(0161),
+      q(1),
+      ],
+   q(the northern mariana islands) => [
+      q(0165),
+      q(1),
+      ],
+   q(the philippines) => [
+      q(0175),
+      q(1),
+      ],
+   q(the republic of korea) => [
+      q(0119),
+      q(4),
+      ],
+   q(the republic of moldova) => [
+      q(0146),
+      q(4),
+      ],
+   q(the republic of the congo) => [
+      q(0052),
+      q(4),
+      ],
+   q(the republic of the union of myanmar) => [
+      q(0153),
+      q(1),
+      ],
+   q(the republic of zambia) => [
+      q(0248),
+      q(1),
+      ],
+   q(the republic of zimbabwe) => [
+      q(0249),
+      q(1),
+      ],
+   q(the russian federation) => [
+      q(0183),
+      q(1),
+      ],
+   q(the solomon islands) => [
+      q(0204),
+      q(3),
+      ],
+   q(the sudan) => [
+      q(0211),
+      q(1),
+      ],
+   q(the syrian arab republic) => [
+      q(0217),
+      q(3),
+      ],
+   q(the territory of the wallis and futuna islands) => [
+      q(0245),
+      q(2),
+      ],
+   q(the turks and caicos islands) => [
+      q(0230),
+      q(1),
+      ],
+   q(the united arab emirates) => [
+      q(0234),
+      q(1),
+      ],
+   q(the united kingdom) => [
+      q(0235),
+      q(6),
+      ],
+   q(the united kingdom of great britain and northern ireland) => [
+      q(0235),
+      q(1),
+      ],
+   q(the united states) => [
+      q(0237),
+      q(4),
+      ],
+   q(the united states minor outlying islands) => [
+      q(0236),
+      q(1),
+      ],
+   q(the united states of america) => [
+      q(0237),
+      q(1),
+      ],
+   q(the yemeni republic) => [
+      q(0247),
+      q(1),
+      ],
+   q(timor-leste) => [
+      q(0222),
+      q(0),
+      ],
+   q(timor-leste (democratic republic of)) => [
+      q(0222),
+      q(7),
+      ],
+   q(timor-leste (the democratic republic of)) => [
+      q(0222),
+      q(6),
+      ],
+   q(timor-leste, democratic republic of) => [
+      q(0222),
+      q(5),
+      ],
+   q(timor-leste, the democratic republic of) => [
+      q(0222),
+      q(4),
+      ],
+   q(togo) => [
+      q(0223),
+      q(0),
+      ],
+   q(tokelau) => [
+      q(0224),
+      q(0),
+      ],
+   q(tonga) => [
+      q(0225),
+      q(0),
+      ],
+   q(trinidad and tobago) => [
+      q(0226),
+      q(0),
+      ],
+   q(tunisia) => [
+      q(0227),
+      q(0),
+      ],
+   q(turkey) => [
+      q(0228),
+      q(0),
+      ],
+   q(turkmenistan) => [
+      q(0229),
+      q(0),
+      ],
+   q(turks and caicos islands) => [
+      q(0230),
+      q(0),
+      ],
+   q(turks and caicos islands (the)) => [
+      q(0230),
+      q(3),
+      ],
+   q(turks and caicos islands, the) => [
+      q(0230),
+      q(2),
+      ],
+   q(tuvalu) => [
+      q(0231),
+      q(0),
+      ],
+   q(uganda) => [
+      q(0232),
+      q(0),
+      ],
+   q(uk) => [
+      q(0235),
+      q(9),
+      ],
+   q(ukraine) => [
+      q(0233),
+      q(0),
+      ],
+   q(united arab emirates) => [
+      q(0234),
+      q(0),
+      ],
+   q(united arab emirates (the)) => [
+      q(0234),
+      q(3),
+      ],
+   q(united arab emirates, the) => [
+      q(0234),
+      q(2),
+      ],
+   q(united kingdom) => [
+      q(0235),
+      q(7),
+      ],
+   q(united kingdom (the)) => [
+      q(0235),
+      q(5),
+      ],
+   q(united kingdom of great britain and northern ireland) => [
+      q(0235),
+      q(0),
+      ],
+   q(united kingdom of great britain and northern ireland (the)) => [
+      q(0235),
+      q(3),
+      ],
+   q(united kingdom of great britain and northern ireland, the) => [
+      q(0235),
+      q(2),
+      ],
+   q(united kingdom, the) => [
+      q(0235),
+      q(8),
+      ],
+   q(united republic of tanzania) => [
+      q(0220),
+      q(2),
+      ],
+   q(united states) => [
+      q(0237),
+      q(5),
+      ],
+   q(united states (the)) => [
+      q(0237),
+      q(7),
+      ],
+   q(united states minor outlying islands) => [
+      q(0236),
+      q(0),
+      ],
+   q(united states minor outlying islands (the)) => [
+      q(0236),
+      q(3),
+      ],
+   q(united states minor outlying islands, the) => [
+      q(0236),
+      q(2),
+      ],
+   q(united states of america) => [
+      q(0237),
+      q(0),
+      ],
+   q(united states of america (the)) => [
+      q(0237),
+      q(3),
+      ],
+   q(united states of america, the) => [
+      q(0237),
+      q(2),
+      ],
+   q(united states virgin islands) => [
+      q(0244),
+      q(1),
+      ],
+   q(united states, the) => [
+      q(0237),
+      q(6),
+      ],
+   q(uruguay) => [
+      q(0238),
+      q(0),
+      ],
+   q(us) => [
+      q(0237),
+      q(8),
+      ],
+   q(usa) => [
+      q(0237),
+      q(9),
+      ],
+   q(uzbekistan) => [
+      q(0239),
+      q(0),
+      ],
+   q(vanuatu) => [
+      q(0240),
+      q(0),
+      ],
+   q(vatican city) => [
+      q(0098),
+      q(7),
+      ],
+   q(venezuela) => [
+      q(0241),
+      q(3),
+      ],
+   q(venezuela (bolivarian republic of)) => [
+      q(0241),
+      q(0),
+      ],
+   q(venezuela, bolivarian republic) => [
+      q(0241),
+      q(2),
+      ],
+   q(venezuela, bolivarian republic of) => [
+      q(0241),
+      q(1),
+      ],
+   q(viet nam) => [
+      q(0242),
+      q(0),
+      ],
+   q(vietnam) => [
+      q(0242),
+      q(1),
+      ],
+   q(virgin islands) => [
+      q(0244),
+      q(4),
+      ],
+   q(virgin islands (british)) => [
+      q(0243),
+      q(0),
+      ],
+   q(virgin islands (u.s.)) => [
+      q(0244),
+      q(0),
+      ],
+   q(virgin islands (uk)) => [
+      q(0243),
+      q(3),
+      ],
+   q(virgin islands (us)) => [
+      q(0244),
+      q(2),
+      ],
+   q(virgin islands, british) => [
+      q(0243),
+      q(2),
+      ],
+   q(virgin islands, u.s.) => [
+      q(0244),
+      q(3),
+      ],
+   q(wallis and futuna) => [
+      q(0245),
+      q(0),
+      ],
+   q(wallis and futuna islands) => [
+      q(0245),
+      q(1),
+      ],
+   q(western sahara) => [
+      q(0246),
+      q(0),
+      ],
+   q(yemen) => [
+      q(0247),
+      q(0),
+      ],
+   q(yemeni republic) => [
+      q(0247),
+      q(2),
+      ],
+   q(yemeni republic (the)) => [
+      q(0247),
+      q(4),
+      ],
+   q(yemeni republic, the) => [
+      q(0247),
+      q(3),
+      ],
+   q(zambia) => [
+      q(0248),
+      q(0),
+      ],
+   q(zimbabwe) => [
+      q(0249),
+      q(0),
+      ],
+};
+
+$Locale::Codes::Data{'country'}{'code2id'} = {
+   q(alpha-2) => {
+      q(ad) => [
+         q(0006),
+         q(0),
+         ],
+      q(ae) => [
+         q(0234),
+         q(0),
+         ],
+      q(af) => [
+         q(0001),
+         q(0),
+         ],
+      q(ag) => [
+         q(0010),
+         q(0),
+         ],
+      q(ai) => [
+         q(0008),
+         q(0),
+         ],
+      q(al) => [
+         q(0003),
+         q(0),
+         ],
+      q(am) => [
+         q(0012),
+         q(0),
+         ],
+      q(ao) => [
+         q(0007),
+         q(0),
+         ],
+      q(aq) => [
+         q(0009),
+         q(0),
+         ],
+      q(ar) => [
+         q(0011),
+         q(0),
+         ],
+      q(as) => [
+         q(0005),
+         q(0),
+         ],
+      q(at) => [
+         q(0015),
+         q(0),
+         ],
+      q(au) => [
+         q(0014),
+         q(0),
+         ],
+      q(aw) => [
+         q(0013),
+         q(0),
+         ],
+      q(ax) => [
+         q(0002),
+         q(0),
+         ],
+      q(az) => [
+         q(0016),
+         q(0),
+         ],
+      q(ba) => [
+         q(0029),
+         q(0),
+         ],
+      q(bb) => [
+         q(0020),
+         q(0),
+         ],
+      q(bd) => [
+         q(0019),
+         q(0),
+         ],
+      q(be) => [
+         q(0022),
+         q(0),
+         ],
+      q(bf) => [
+         q(0036),
+         q(0),
+         ],
+      q(bg) => [
+         q(0035),
+         q(0),
+         ],
+      q(bh) => [
+         q(0018),
+         q(0),
+         ],
+      q(bi) => [
+         q(0037),
+         q(0),
+         ],
+      q(bj) => [
+         q(0024),
+         q(0),
+         ],
+      q(bl) => [
+         q(0185),
+         q(0),
+         ],
+      q(bm) => [
+         q(0025),
+         q(0),
+         ],
+      q(bn) => [
+         q(0034),
+         q(0),
+         ],
+      q(bo) => [
+         q(0027),
+         q(0),
+         ],
+      q(bq) => [
+         q(0028),
+         q(0),
+         ],
+      q(br) => [
+         q(0032),
+         q(0),
+         ],
+      q(bs) => [
+         q(0017),
+         q(0),
+         ],
+      q(bt) => [
+         q(0026),
+         q(0),
+         ],
+      q(bv) => [
+         q(0031),
+         q(0),
+         ],
+      q(bw) => [
+         q(0030),
+         q(0),
+         ],
+      q(by) => [
+         q(0021),
+         q(0),
+         ],
+      q(bz) => [
+         q(0023),
+         q(0),
+         ],
+      q(ca) => [
+         q(0041),
+         q(0),
+         ],
+      q(cc) => [
+         q(0048),
+         q(0),
+         ],
+      q(cd) => [
+         q(0051),
+         q(0),
+         ],
+      q(cf) => [
+         q(0043),
+         q(0),
+         ],
+      q(cg) => [
+         q(0052),
+         q(0),
+         ],
+      q(ch) => [
+         q(0216),
+         q(0),
+         ],
+      q(ci) => [
+         q(0055),
+         q(0),
+         ],
+      q(ck) => [
+         q(0053),
+         q(0),
+         ],
+      q(cl) => [
+         q(0045),
+         q(0),
+         ],
+      q(cm) => [
+         q(0040),
+         q(0),
+         ],
+      q(cn) => [
+         q(0046),
+         q(0),
+         ],
+      q(co) => [
+         q(0049),
+         q(0),
+         ],
+      q(cr) => [
+         q(0054),
+         q(0),
+         ],
+      q(cu) => [
+         q(0057),
+         q(0),
+         ],
+      q(cv) => [
+         q(0038),
+         q(0),
+         ],
+      q(cw) => [
+         q(0058),
+         q(0),
+         ],
+      q(cx) => [
+         q(0047),
+         q(0),
+         ],
+      q(cy) => [
+         q(0059),
+         q(0),
+         ],
+      q(cz) => [
+         q(0060),
+         q(0),
+         ],
+      q(de) => [
+         q(0083),
+         q(0),
+         ],
+      q(dj) => [
+         q(0062),
+         q(0),
+         ],
+      q(dk) => [
+         q(0061),
+         q(0),
+         ],
+      q(dm) => [
+         q(0063),
+         q(0),
+         ],
+      q(do) => [
+         q(0064),
+         q(0),
+         ],
+      q(dz) => [
+         q(0004),
+         q(0),
+         ],
+      q(ec) => [
+         q(0065),
+         q(0),
+         ],
+      q(ee) => [
+         q(0070),
+         q(0),
+         ],
+      q(eg) => [
+         q(0066),
+         q(0),
+         ],
+      q(eh) => [
+         q(0246),
+         q(0),
+         ],
+      q(er) => [
+         q(0069),
+         q(0),
+         ],
+      q(es) => [
+         q(0209),
+         q(0),
+         ],
+      q(et) => [
+         q(0071),
+         q(0),
+         ],
+      q(fi) => [
+         q(0075),
+         q(0),
+         ],
+      q(fj) => [
+         q(0074),
+         q(0),
+         ],
+      q(fk) => [
+         q(0072),
+         q(0),
+         ],
+      q(fm) => [
+         q(0145),
+         q(0),
+         ],
+      q(fo) => [
+         q(0073),
+         q(0),
+         ],
+      q(fr) => [
+         q(0076),
+         q(0),
+         ],
+      q(ga) => [
+         q(0080),
+         q(0),
+         ],
+      q(gb) => [
+         q(0235),
+         q(0),
+         ],
+      q(gd) => [
+         q(0088),
+         q(0),
+         ],
+      q(ge) => [
+         q(0082),
+         q(0),
+         ],
+      q(gf) => [
+         q(0077),
+         q(0),
+         ],
+      q(gg) => [
+         q(0092),
+         q(0),
+         ],
+      q(gh) => [
+         q(0084),
+         q(0),
+         ],
+      q(gi) => [
+         q(0085),
+         q(0),
+         ],
+      q(gl) => [
+         q(0087),
+         q(0),
+         ],
+      q(gm) => [
+         q(0081),
+         q(0),
+         ],
+      q(gn) => [
+         q(0093),
+         q(0),
+         ],
+      q(gp) => [
+         q(0089),
+         q(0),
+         ],
+      q(gq) => [
+         q(0068),
+         q(0),
+         ],
+      q(gr) => [
+         q(0086),
+         q(0),
+         ],
+      q(gs) => [
+         q(0207),
+         q(0),
+         ],
+      q(gt) => [
+         q(0091),
+         q(0),
+         ],
+      q(gu) => [
+         q(0090),
+         q(0),
+         ],
+      q(gw) => [
+         q(0094),
+         q(0),
+         ],
+      q(gy) => [
+         q(0095),
+         q(0),
+         ],
+      q(hk) => [
+         q(0100),
+         q(0),
+         ],
+      q(hm) => [
+         q(0097),
+         q(0),
+         ],
+      q(hn) => [
+         q(0099),
+         q(0),
+         ],
+      q(hr) => [
+         q(0056),
+         q(0),
+         ],
+      q(ht) => [
+         q(0096),
+         q(0),
+         ],
+      q(hu) => [
+         q(0101),
+         q(0),
+         ],
+      q(id) => [
+         q(0104),
+         q(0),
+         ],
+      q(ie) => [
+         q(0107),
+         q(0),
+         ],
+      q(il) => [
+         q(0109),
+         q(0),
+         ],
+      q(im) => [
+         q(0108),
+         q(0),
+         ],
+      q(in) => [
+         q(0103),
+         q(0),
+         ],
+      q(io) => [
+         q(0033),
+         q(0),
+         ],
+      q(iq) => [
+         q(0106),
+         q(0),
+         ],
+      q(ir) => [
+         q(0105),
+         q(0),
+         ],
+      q(is) => [
+         q(0102),
+         q(0),
+         ],
+      q(it) => [
+         q(0110),
+         q(0),
+         ],
+      q(je) => [
+         q(0113),
+         q(0),
+         ],
+      q(jm) => [
+         q(0111),
+         q(0),
+         ],
+      q(jo) => [
+         q(0114),
+         q(0),
+         ],
+      q(jp) => [
+         q(0112),
+         q(0),
+         ],
+      q(ke) => [
+         q(0116),
+         q(0),
+         ],
+      q(kg) => [
+         q(0121),
+         q(0),
+         ],
+      q(kh) => [
+         q(0039),
+         q(0),
+         ],
+      q(ki) => [
+         q(0117),
+         q(0),
+         ],
+      q(km) => [
+         q(0050),
+         q(0),
+         ],
+      q(kn) => [
+         q(0187),
+         q(0),
+         ],
+      q(kp) => [
+         q(0118),
+         q(0),
+         ],
+      q(kr) => [
+         q(0119),
+         q(0),
+         ],
+      q(kw) => [
+         q(0120),
+         q(0),
+         ],
+      q(ky) => [
+         q(0042),
+         q(0),
+         ],
+      q(kz) => [
+         q(0115),
+         q(0),
+         ],
+      q(la) => [
+         q(0122),
+         q(0),
+         ],
+      q(lb) => [
+         q(0124),
+         q(0),
+         ],
+      q(lc) => [
+         q(0188),
+         q(0),
+         ],
+      q(li) => [
+         q(0128),
+         q(0),
+         ],
+      q(lk) => [
+         q(0210),
+         q(0),
+         ],
+      q(lr) => [
+         q(0126),
+         q(0),
+         ],
+      q(ls) => [
+         q(0125),
+         q(0),
+         ],
+      q(lt) => [
+         q(0129),
+         q(0),
+         ],
+      q(lu) => [
+         q(0130),
+         q(0),
+         ],
+      q(lv) => [
+         q(0123),
+         q(0),
+         ],
+      q(ly) => [
+         q(0127),
+         q(0),
+         ],
+      q(ma) => [
+         q(0151),
+         q(0),
+         ],
+      q(mc) => [
+         q(0147),
+         q(0),
+         ],
+      q(md) => [
+         q(0146),
+         q(0),
+         ],
+      q(me) => [
+         q(0149),
+         q(0),
+         ],
+      q(mf) => [
+         q(0189),
+         q(0),
+         ],
+      q(mg) => [
+         q(0133),
+         q(0),
+         ],
+      q(mh) => [
+         q(0139),
+         q(0),
+         ],
+      q(mk) => [
+         q(0132),
+         q(0),
+         ],
+      q(ml) => [
+         q(0137),
+         q(0),
+         ],
+      q(mm) => [
+         q(0153),
+         q(0),
+         ],
+      q(mn) => [
+         q(0148),
+         q(0),
+         ],
+      q(mo) => [
+         q(0131),
+         q(0),
+         ],
+      q(mp) => [
+         q(0165),
+         q(0),
+         ],
+      q(mq) => [
+         q(0140),
+         q(0),
+         ],
+      q(mr) => [
+         q(0141),
+         q(0),
+         ],
+      q(ms) => [
+         q(0150),
+         q(0),
+         ],
+      q(mt) => [
+         q(0138),
+         q(0),
+         ],
+      q(mu) => [
+         q(0142),
+         q(0),
+         ],
+      q(mv) => [
+         q(0136),
+         q(0),
+         ],
+      q(mw) => [
+         q(0134),
+         q(0),
+         ],
+      q(mx) => [
+         q(0144),
+         q(0),
+         ],
+      q(my) => [
+         q(0135),
+         q(0),
+         ],
+      q(mz) => [
+         q(0152),
+         q(0),
+         ],
+      q(na) => [
+         q(0154),
+         q(0),
+         ],
+      q(nc) => [
+         q(0158),
+         q(0),
+         ],
+      q(ne) => [
+         q(0161),
+         q(0),
+         ],
+      q(nf) => [
+         q(0164),
+         q(0),
+         ],
+      q(ng) => [
+         q(0162),
+         q(0),
+         ],
+      q(ni) => [
+         q(0160),
+         q(0),
+         ],
+      q(nl) => [
+         q(0157),
+         q(0),
+         ],
+      q(no) => [
+         q(0166),
+         q(0),
+         ],
+      q(np) => [
+         q(0156),
+         q(0),
+         ],
+      q(nr) => [
+         q(0155),
+         q(0),
+         ],
+      q(nu) => [
+         q(0163),
+         q(0),
+         ],
+      q(nz) => [
+         q(0159),
+         q(0),
+         ],
+      q(om) => [
+         q(0167),
+         q(0),
+         ],
+      q(pa) => [
+         q(0171),
+         q(0),
+         ],
+      q(pe) => [
+         q(0174),
+         q(0),
+         ],
+      q(pf) => [
+         q(0078),
+         q(0),
+         ],
+      q(pg) => [
+         q(0172),
+         q(0),
+         ],
+      q(ph) => [
+         q(0175),
+         q(0),
+         ],
+      q(pk) => [
+         q(0168),
+         q(0),
+         ],
+      q(pl) => [
+         q(0177),
+         q(0),
+         ],
+      q(pm) => [
+         q(0190),
+         q(0),
+         ],
+      q(pn) => [
+         q(0176),
+         q(0),
+         ],
+      q(pr) => [
+         q(0179),
+         q(0),
+         ],
+      q(ps) => [
+         q(0170),
+         q(0),
+         ],
+      q(pt) => [
+         q(0178),
+         q(0),
+         ],
+      q(pw) => [
+         q(0169),
+         q(0),
+         ],
+      q(py) => [
+         q(0173),
+         q(0),
+         ],
+      q(qa) => [
+         q(0180),
+         q(0),
+         ],
+      q(re) => [
+         q(0181),
+         q(0),
+         ],
+      q(ro) => [
+         q(0182),
+         q(0),
+         ],
+      q(rs) => [
+         q(0197),
+         q(0),
+         ],
+      q(ru) => [
+         q(0183),
+         q(0),
+         ],
+      q(rw) => [
+         q(0184),
+         q(0),
+         ],
+      q(sa) => [
+         q(0195),
+         q(0),
+         ],
+      q(sb) => [
+         q(0204),
+         q(0),
+         ],
+      q(sc) => [
+         q(0198),
+         q(0),
+         ],
+      q(sd) => [
+         q(0211),
+         q(0),
+         ],
+      q(se) => [
+         q(0215),
+         q(0),
+         ],
+      q(sg) => [
+         q(0200),
+         q(0),
+         ],
+      q(sh) => [
+         q(0186),
+         q(0),
+         ],
+      q(si) => [
+         q(0203),
+         q(0),
+         ],
+      q(sj) => [
+         q(0213),
+         q(0),
+         ],
+      q(sk) => [
+         q(0202),
+         q(0),
+         ],
+      q(sl) => [
+         q(0199),
+         q(0),
+         ],
+      q(sm) => [
+         q(0193),
+         q(0),
+         ],
+      q(sn) => [
+         q(0196),
+         q(0),
+         ],
+      q(so) => [
+         q(0205),
+         q(0),
+         ],
+      q(sr) => [
+         q(0212),
+         q(0),
+         ],
+      q(ss) => [
+         q(0208),
+         q(0),
+         ],
+      q(st) => [
+         q(0194),
+         q(0),
+         ],
+      q(sv) => [
+         q(0067),
+         q(0),
+         ],
+      q(sx) => [
+         q(0201),
+         q(0),
+         ],
+      q(sy) => [
+         q(0217),
+         q(0),
+         ],
+      q(sz) => [
+         q(0214),
+         q(0),
+         ],
+      q(tc) => [
+         q(0230),
+         q(0),
+         ],
+      q(td) => [
+         q(0044),
+         q(0),
+         ],
+      q(tf) => [
+         q(0079),
+         q(0),
+         ],
+      q(tg) => [
+         q(0223),
+         q(0),
+         ],
+      q(th) => [
+         q(0221),
+         q(0),
+         ],
+      q(tj) => [
+         q(0219),
+         q(0),
+         ],
+      q(tk) => [
+         q(0224),
+         q(0),
+         ],
+      q(tl) => [
+         q(0222),
+         q(0),
+         ],
+      q(tm) => [
+         q(0229),
+         q(0),
+         ],
+      q(tn) => [
+         q(0227),
+         q(0),
+         ],
+      q(to) => [
+         q(0225),
+         q(0),
+         ],
+      q(tr) => [
+         q(0228),
+         q(0),
+         ],
+      q(tt) => [
+         q(0226),
+         q(0),
+         ],
+      q(tv) => [
+         q(0231),
+         q(0),
+         ],
+      q(tw) => [
+         q(0218),
+         q(0),
+         ],
+      q(tz) => [
+         q(0220),
+         q(0),
+         ],
+      q(ua) => [
+         q(0233),
+         q(0),
+         ],
+      q(ug) => [
+         q(0232),
+         q(0),
+         ],
+      q(um) => [
+         q(0236),
+         q(0),
+         ],
+      q(us) => [
+         q(0237),
+         q(0),
+         ],
+      q(uy) => [
+         q(0238),
+         q(0),
+         ],
+      q(uz) => [
+         q(0239),
+         q(0),
+         ],
+      q(va) => [
+         q(0098),
+         q(0),
+         ],
+      q(vc) => [
+         q(0191),
+         q(0),
+         ],
+      q(ve) => [
+         q(0241),
+         q(0),
+         ],
+      q(vg) => [
+         q(0243),
+         q(0),
+         ],
+      q(vi) => [
+         q(0244),
+         q(0),
+         ],
+      q(vn) => [
+         q(0242),
+         q(0),
+         ],
+      q(vu) => [
+         q(0240),
+         q(0),
+         ],
+      q(wf) => [
+         q(0245),
+         q(0),
+         ],
+      q(ws) => [
+         q(0192),
+         q(0),
+         ],
+      q(ye) => [
+         q(0247),
+         q(0),
+         ],
+      q(yt) => [
+         q(0143),
+         q(0),
+         ],
+      q(za) => [
+         q(0206),
+         q(0),
+         ],
+      q(zm) => [
+         q(0248),
+         q(0),
+         ],
+      q(zw) => [
+         q(0249),
+         q(0),
+         ],
+      },
+   q(alpha-3) => {
+      q(abw) => [
+         q(0013),
+         q(0),
+         ],
+      q(afg) => [
+         q(0001),
+         q(0),
+         ],
+      q(ago) => [
+         q(0007),
+         q(0),
+         ],
+      q(aia) => [
+         q(0008),
+         q(0),
+         ],
+      q(ala) => [
+         q(0002),
+         q(0),
+         ],
+      q(alb) => [
+         q(0003),
+         q(0),
+         ],
+      q(and) => [
+         q(0006),
+         q(0),
+         ],
+      q(are) => [
+         q(0234),
+         q(0),
+         ],
+      q(arg) => [
+         q(0011),
+         q(0),
+         ],
+      q(arm) => [
+         q(0012),
+         q(0),
+         ],
+      q(asm) => [
+         q(0005),
+         q(0),
+         ],
+      q(ata) => [
+         q(0009),
+         q(0),
+         ],
+      q(atf) => [
+         q(0079),
+         q(0),
+         ],
+      q(atg) => [
+         q(0010),
+         q(0),
+         ],
+      q(aus) => [
+         q(0014),
+         q(0),
+         ],
+      q(aut) => [
+         q(0015),
+         q(0),
+         ],
+      q(aze) => [
+         q(0016),
+         q(0),
+         ],
+      q(bdi) => [
+         q(0037),
+         q(0),
+         ],
+      q(bel) => [
+         q(0022),
+         q(0),
+         ],
+      q(ben) => [
+         q(0024),
+         q(0),
+         ],
+      q(bes) => [
+         q(0028),
+         q(0),
+         ],
+      q(bfa) => [
+         q(0036),
+         q(0),
+         ],
+      q(bgd) => [
+         q(0019),
+         q(0),
+         ],
+      q(bgr) => [
+         q(0035),
+         q(0),
+         ],
+      q(bhr) => [
+         q(0018),
+         q(0),
+         ],
+      q(bhs) => [
+         q(0017),
+         q(0),
+         ],
+      q(bih) => [
+         q(0029),
+         q(0),
+         ],
+      q(blm) => [
+         q(0185),
+         q(0),
+         ],
+      q(blr) => [
+         q(0021),
+         q(0),
+         ],
+      q(blz) => [
+         q(0023),
+         q(0),
+         ],
+      q(bmu) => [
+         q(0025),
+         q(0),
+         ],
+      q(bol) => [
+         q(0027),
+         q(0),
+         ],
+      q(bra) => [
+         q(0032),
+         q(0),
+         ],
+      q(brb) => [
+         q(0020),
+         q(0),
+         ],
+      q(brn) => [
+         q(0034),
+         q(0),
+         ],
+      q(btn) => [
+         q(0026),
+         q(0),
+         ],
+      q(bvt) => [
+         q(0031),
+         q(0),
+         ],
+      q(bwa) => [
+         q(0030),
+         q(0),
+         ],
+      q(caf) => [
+         q(0043),
+         q(0),
+         ],
+      q(can) => [
+         q(0041),
+         q(0),
+         ],
+      q(cck) => [
+         q(0048),
+         q(0),
+         ],
+      q(che) => [
+         q(0216),
+         q(0),
+         ],
+      q(chl) => [
+         q(0045),
+         q(0),
+         ],
+      q(chn) => [
+         q(0046),
+         q(0),
+         ],
+      q(civ) => [
+         q(0055),
+         q(0),
+         ],
+      q(cmr) => [
+         q(0040),
+         q(0),
+         ],
+      q(cod) => [
+         q(0051),
+         q(0),
+         ],
+      q(cog) => [
+         q(0052),
+         q(0),
+         ],
+      q(cok) => [
+         q(0053),
+         q(0),
+         ],
+      q(col) => [
+         q(0049),
+         q(0),
+         ],
+      q(com) => [
+         q(0050),
+         q(0),
+         ],
+      q(cpv) => [
+         q(0038),
+         q(0),
+         ],
+      q(cri) => [
+         q(0054),
+         q(0),
+         ],
+      q(cub) => [
+         q(0057),
+         q(0),
+         ],
+      q(cuw) => [
+         q(0058),
+         q(0),
+         ],
+      q(cxr) => [
+         q(0047),
+         q(0),
+         ],
+      q(cym) => [
+         q(0042),
+         q(0),
+         ],
+      q(cyp) => [
+         q(0059),
+         q(0),
+         ],
+      q(cze) => [
+         q(0060),
+         q(0),
+         ],
+      q(deu) => [
+         q(0083),
+         q(0),
+         ],
+      q(dji) => [
+         q(0062),
+         q(0),
+         ],
+      q(dma) => [
+         q(0063),
+         q(0),
+         ],
+      q(dnk) => [
+         q(0061),
+         q(0),
+         ],
+      q(dom) => [
+         q(0064),
+         q(0),
+         ],
+      q(dza) => [
+         q(0004),
+         q(0),
+         ],
+      q(ecu) => [
+         q(0065),
+         q(0),
+         ],
+      q(egy) => [
+         q(0066),
+         q(0),
+         ],
+      q(eri) => [
+         q(0069),
+         q(0),
+         ],
+      q(esh) => [
+         q(0246),
+         q(0),
+         ],
+      q(esp) => [
+         q(0209),
+         q(0),
+         ],
+      q(est) => [
+         q(0070),
+         q(0),
+         ],
+      q(eth) => [
+         q(0071),
+         q(0),
+         ],
+      q(fin) => [
+         q(0075),
+         q(0),
+         ],
+      q(fji) => [
+         q(0074),
+         q(0),
+         ],
+      q(flk) => [
+         q(0072),
+         q(0),
+         ],
+      q(fra) => [
+         q(0076),
+         q(0),
+         ],
+      q(fro) => [
+         q(0073),
+         q(0),
+         ],
+      q(fsm) => [
+         q(0145),
+         q(0),
+         ],
+      q(gab) => [
+         q(0080),
+         q(0),
+         ],
+      q(gbr) => [
+         q(0235),
+         q(0),
+         ],
+      q(geo) => [
+         q(0082),
+         q(0),
+         ],
+      q(ggy) => [
+         q(0092),
+         q(0),
+         ],
+      q(gha) => [
+         q(0084),
+         q(0),
+         ],
+      q(gib) => [
+         q(0085),
+         q(0),
+         ],
+      q(gin) => [
+         q(0093),
+         q(0),
+         ],
+      q(glp) => [
+         q(0089),
+         q(0),
+         ],
+      q(gmb) => [
+         q(0081),
+         q(0),
+         ],
+      q(gnb) => [
+         q(0094),
+         q(0),
+         ],
+      q(gnq) => [
+         q(0068),
+         q(0),
+         ],
+      q(grc) => [
+         q(0086),
+         q(0),
+         ],
+      q(grd) => [
+         q(0088),
+         q(0),
+         ],
+      q(grl) => [
+         q(0087),
+         q(0),
+         ],
+      q(gtm) => [
+         q(0091),
+         q(0),
+         ],
+      q(guf) => [
+         q(0077),
+         q(0),
+         ],
+      q(gum) => [
+         q(0090),
+         q(0),
+         ],
+      q(guy) => [
+         q(0095),
+         q(0),
+         ],
+      q(hkg) => [
+         q(0100),
+         q(0),
+         ],
+      q(hmd) => [
+         q(0097),
+         q(0),
+         ],
+      q(hnd) => [
+         q(0099),
+         q(0),
+         ],
+      q(hrv) => [
+         q(0056),
+         q(0),
+         ],
+      q(hti) => [
+         q(0096),
+         q(0),
+         ],
+      q(hun) => [
+         q(0101),
+         q(0),
+         ],
+      q(idn) => [
+         q(0104),
+         q(0),
+         ],
+      q(imn) => [
+         q(0108),
+         q(0),
+         ],
+      q(ind) => [
+         q(0103),
+         q(0),
+         ],
+      q(iot) => [
+         q(0033),
+         q(0),
+         ],
+      q(irl) => [
+         q(0107),
+         q(0),
+         ],
+      q(irn) => [
+         q(0105),
+         q(0),
+         ],
+      q(irq) => [
+         q(0106),
+         q(0),
+         ],
+      q(isl) => [
+         q(0102),
+         q(0),
+         ],
+      q(isr) => [
+         q(0109),
+         q(0),
+         ],
+      q(ita) => [
+         q(0110),
+         q(0),
+         ],
+      q(jam) => [
+         q(0111),
+         q(0),
+         ],
+      q(jey) => [
+         q(0113),
+         q(0),
+         ],
+      q(jor) => [
+         q(0114),
+         q(0),
+         ],
+      q(jpn) => [
+         q(0112),
+         q(0),
+         ],
+      q(kaz) => [
+         q(0115),
+         q(0),
+         ],
+      q(ken) => [
+         q(0116),
+         q(0),
+         ],
+      q(kgz) => [
+         q(0121),
+         q(0),
+         ],
+      q(khm) => [
+         q(0039),
+         q(0),
+         ],
+      q(kir) => [
+         q(0117),
+         q(0),
+         ],
+      q(kna) => [
+         q(0187),
+         q(0),
+         ],
+      q(kor) => [
+         q(0119),
+         q(0),
+         ],
+      q(kwt) => [
+         q(0120),
+         q(0),
+         ],
+      q(lao) => [
+         q(0122),
+         q(0),
+         ],
+      q(lbn) => [
+         q(0124),
+         q(0),
+         ],
+      q(lbr) => [
+         q(0126),
+         q(0),
+         ],
+      q(lby) => [
+         q(0127),
+         q(0),
+         ],
+      q(lca) => [
+         q(0188),
+         q(0),
+         ],
+      q(lie) => [
+         q(0128),
+         q(0),
+         ],
+      q(lka) => [
+         q(0210),
+         q(0),
+         ],
+      q(lso) => [
+         q(0125),
+         q(0),
+         ],
+      q(ltu) => [
+         q(0129),
+         q(0),
+         ],
+      q(lux) => [
+         q(0130),
+         q(0),
+         ],
+      q(lva) => [
+         q(0123),
+         q(0),
+         ],
+      q(mac) => [
+         q(0131),
+         q(0),
+         ],
+      q(maf) => [
+         q(0189),
+         q(0),
+         ],
+      q(mar) => [
+         q(0151),
+         q(0),
+         ],
+      q(mco) => [
+         q(0147),
+         q(0),
+         ],
+      q(mda) => [
+         q(0146),
+         q(0),
+         ],
+      q(mdg) => [
+         q(0133),
+         q(0),
+         ],
+      q(mdv) => [
+         q(0136),
+         q(0),
+         ],
+      q(mex) => [
+         q(0144),
+         q(0),
+         ],
+      q(mhl) => [
+         q(0139),
+         q(0),
+         ],
+      q(mkd) => [
+         q(0132),
+         q(0),
+         ],
+      q(mli) => [
+         q(0137),
+         q(0),
+         ],
+      q(mlt) => [
+         q(0138),
+         q(0),
+         ],
+      q(mmr) => [
+         q(0153),
+         q(0),
+         ],
+      q(mne) => [
+         q(0149),
+         q(0),
+         ],
+      q(mng) => [
+         q(0148),
+         q(0),
+         ],
+      q(mnp) => [
+         q(0165),
+         q(0),
+         ],
+      q(moz) => [
+         q(0152),
+         q(0),
+         ],
+      q(mrt) => [
+         q(0141),
+         q(0),
+         ],
+      q(msr) => [
+         q(0150),
+         q(0),
+         ],
+      q(mtq) => [
+         q(0140),
+         q(0),
+         ],
+      q(mus) => [
+         q(0142),
+         q(0),
+         ],
+      q(mwi) => [
+         q(0134),
+         q(0),
+         ],
+      q(mys) => [
+         q(0135),
+         q(0),
+         ],
+      q(myt) => [
+         q(0143),
+         q(0),
+         ],
+      q(nam) => [
+         q(0154),
+         q(0),
+         ],
+      q(ncl) => [
+         q(0158),
+         q(0),
+         ],
+      q(ner) => [
+         q(0161),
+         q(0),
+         ],
+      q(nfk) => [
+         q(0164),
+         q(0),
+         ],
+      q(nga) => [
+         q(0162),
+         q(0),
+         ],
+      q(nic) => [
+         q(0160),
+         q(0),
+         ],
+      q(niu) => [
+         q(0163),
+         q(0),
+         ],
+      q(nld) => [
+         q(0157),
+         q(0),
+         ],
+      q(nor) => [
+         q(0166),
+         q(0),
+         ],
+      q(npl) => [
+         q(0156),
+         q(0),
+         ],
+      q(nru) => [
+         q(0155),
+         q(0),
+         ],
+      q(nzl) => [
+         q(0159),
+         q(0),
+         ],
+      q(omn) => [
+         q(0167),
+         q(0),
+         ],
+      q(pak) => [
+         q(0168),
+         q(0),
+         ],
+      q(pan) => [
+         q(0171),
+         q(0),
+         ],
+      q(pcn) => [
+         q(0176),
+         q(0),
+         ],
+      q(per) => [
+         q(0174),
+         q(0),
+         ],
+      q(phl) => [
+         q(0175),
+         q(0),
+         ],
+      q(plw) => [
+         q(0169),
+         q(0),
+         ],
+      q(png) => [
+         q(0172),
+         q(0),
+         ],
+      q(pol) => [
+         q(0177),
+         q(0),
+         ],
+      q(pri) => [
+         q(0179),
+         q(0),
+         ],
+      q(prk) => [
+         q(0118),
+         q(0),
+         ],
+      q(prt) => [
+         q(0178),
+         q(0),
+         ],
+      q(pry) => [
+         q(0173),
+         q(0),
+         ],
+      q(pse) => [
+         q(0170),
+         q(0),
+         ],
+      q(pyf) => [
+         q(0078),
+         q(0),
+         ],
+      q(qat) => [
+         q(0180),
+         q(0),
+         ],
+      q(reu) => [
+         q(0181),
+         q(0),
+         ],
+      q(rou) => [
+         q(0182),
+         q(0),
+         ],
+      q(rus) => [
+         q(0183),
+         q(0),
+         ],
+      q(rwa) => [
+         q(0184),
+         q(0),
+         ],
+      q(sau) => [
+         q(0195),
+         q(0),
+         ],
+      q(sdn) => [
+         q(0211),
+         q(0),
+         ],
+      q(sen) => [
+         q(0196),
+         q(0),
+         ],
+      q(sgp) => [
+         q(0200),
+         q(0),
+         ],
+      q(sgs) => [
+         q(0207),
+         q(0),
+         ],
+      q(shn) => [
+         q(0186),
+         q(0),
+         ],
+      q(sjm) => [
+         q(0213),
+         q(0),
+         ],
+      q(slb) => [
+         q(0204),
+         q(0),
+         ],
+      q(sle) => [
+         q(0199),
+         q(0),
+         ],
+      q(slv) => [
+         q(0067),
+         q(0),
+         ],
+      q(smr) => [
+         q(0193),
+         q(0),
+         ],
+      q(som) => [
+         q(0205),
+         q(0),
+         ],
+      q(spm) => [
+         q(0190),
+         q(0),
+         ],
+      q(srb) => [
+         q(0197),
+         q(0),
+         ],
+      q(ssd) => [
+         q(0208),
+         q(0),
+         ],
+      q(stp) => [
+         q(0194),
+         q(0),
+         ],
+      q(sur) => [
+         q(0212),
+         q(0),
+         ],
+      q(svk) => [
+         q(0202),
+         q(0),
+         ],
+      q(svn) => [
+         q(0203),
+         q(0),
+         ],
+      q(swe) => [
+         q(0215),
+         q(0),
+         ],
+      q(swz) => [
+         q(0214),
+         q(0),
+         ],
+      q(sxm) => [
+         q(0201),
+         q(0),
+         ],
+      q(syc) => [
+         q(0198),
+         q(0),
+         ],
+      q(syr) => [
+         q(0217),
+         q(0),
+         ],
+      q(tca) => [
+         q(0230),
+         q(0),
+         ],
+      q(tcd) => [
+         q(0044),
+         q(0),
+         ],
+      q(tgo) => [
+         q(0223),
+         q(0),
+         ],
+      q(tha) => [
+         q(0221),
+         q(0),
+         ],
+      q(tjk) => [
+         q(0219),
+         q(0),
+         ],
+      q(tkl) => [
+         q(0224),
+         q(0),
+         ],
+      q(tkm) => [
+         q(0229),
+         q(0),
+         ],
+      q(tls) => [
+         q(0222),
+         q(0),
+         ],
+      q(ton) => [
+         q(0225),
+         q(0),
+         ],
+      q(tto) => [
+         q(0226),
+         q(0),
+         ],
+      q(tun) => [
+         q(0227),
+         q(0),
+         ],
+      q(tur) => [
+         q(0228),
+         q(0),
+         ],
+      q(tuv) => [
+         q(0231),
+         q(0),
+         ],
+      q(twn) => [
+         q(0218),
+         q(0),
+         ],
+      q(tza) => [
+         q(0220),
+         q(0),
+         ],
+      q(uga) => [
+         q(0232),
+         q(0),
+         ],
+      q(ukr) => [
+         q(0233),
+         q(0),
+         ],
+      q(umi) => [
+         q(0236),
+         q(0),
+         ],
+      q(ury) => [
+         q(0238),
+         q(0),
+         ],
+      q(usa) => [
+         q(0237),
+         q(0),
+         ],
+      q(uzb) => [
+         q(0239),
+         q(0),
+         ],
+      q(vat) => [
+         q(0098),
+         q(0),
+         ],
+      q(vct) => [
+         q(0191),
+         q(0),
+         ],
+      q(ven) => [
+         q(0241),
+         q(0),
+         ],
+      q(vgb) => [
+         q(0243),
+         q(0),
+         ],
+      q(vir) => [
+         q(0244),
+         q(0),
+         ],
+      q(vnm) => [
+         q(0242),
+         q(0),
+         ],
+      q(vut) => [
+         q(0240),
+         q(0),
+         ],
+      q(wlf) => [
+         q(0245),
+         q(0),
+         ],
+      q(wsm) => [
+         q(0192),
+         q(0),
+         ],
+      q(yem) => [
+         q(0247),
+         q(0),
+         ],
+      q(zaf) => [
+         q(0206),
+         q(0),
+         ],
+      q(zmb) => [
+         q(0248),
+         q(0),
+         ],
+      q(zwe) => [
+         q(0249),
+         q(0),
+         ],
+      },
+   q(dom) => {
+      q(ad) => [
+         q(0006),
+         q(0),
+         ],
+      q(ae) => [
+         q(0234),
+         q(0),
+         ],
+      q(af) => [
+         q(0001),
+         q(0),
+         ],
+      q(ag) => [
+         q(0010),
+         q(0),
+         ],
+      q(ai) => [
+         q(0008),
+         q(0),
+         ],
+      q(al) => [
+         q(0003),
+         q(0),
+         ],
+      q(am) => [
+         q(0012),
+         q(0),
+         ],
+      q(ao) => [
+         q(0007),
+         q(0),
+         ],
+      q(aq) => [
+         q(0009),
+         q(0),
+         ],
+      q(ar) => [
+         q(0011),
+         q(0),
+         ],
+      q(as) => [
+         q(0005),
+         q(0),
+         ],
+      q(at) => [
+         q(0015),
+         q(0),
+         ],
+      q(au) => [
+         q(0014),
+         q(0),
+         ],
+      q(aw) => [
+         q(0013),
+         q(0),
+         ],
+      q(ax) => [
+         q(0002),
+         q(0),
+         ],
+      q(az) => [
+         q(0016),
+         q(0),
+         ],
+      q(ba) => [
+         q(0029),
+         q(0),
+         ],
+      q(bb) => [
+         q(0020),
+         q(0),
+         ],
+      q(bd) => [
+         q(0019),
+         q(0),
+         ],
+      q(be) => [
+         q(0022),
+         q(0),
+         ],
+      q(bf) => [
+         q(0036),
+         q(0),
+         ],
+      q(bg) => [
+         q(0035),
+         q(0),
+         ],
+      q(bh) => [
+         q(0018),
+         q(0),
+         ],
+      q(bi) => [
+         q(0037),
+         q(0),
+         ],
+      q(bj) => [
+         q(0024),
+         q(0),
+         ],
+      q(bl) => [
+         q(0185),
+         q(0),
+         ],
+      q(bm) => [
+         q(0025),
+         q(0),
+         ],
+      q(bn) => [
+         q(0034),
+         q(0),
+         ],
+      q(bo) => [
+         q(0027),
+         q(0),
+         ],
+      q(bq) => [
+         q(0028),
+         q(0),
+         ],
+      q(br) => [
+         q(0032),
+         q(0),
+         ],
+      q(bs) => [
+         q(0017),
+         q(0),
+         ],
+      q(bt) => [
+         q(0026),
+         q(0),
+         ],
+      q(bv) => [
+         q(0031),
+         q(0),
+         ],
+      q(bw) => [
+         q(0030),
+         q(0),
+         ],
+      q(by) => [
+         q(0021),
+         q(0),
+         ],
+      q(bz) => [
+         q(0023),
+         q(0),
+         ],
+      q(ca) => [
+         q(0041),
+         q(0),
+         ],
+      q(cc) => [
+         q(0048),
+         q(0),
+         ],
+      q(cd) => [
+         q(0051),
+         q(0),
+         ],
+      q(cf) => [
+         q(0043),
+         q(0),
+         ],
+      q(cg) => [
+         q(0052),
+         q(0),
+         ],
+      q(ch) => [
+         q(0216),
+         q(0),
+         ],
+      q(ci) => [
+         q(0055),
+         q(0),
+         ],
+      q(ck) => [
+         q(0053),
+         q(0),
+         ],
+      q(cl) => [
+         q(0045),
+         q(0),
+         ],
+      q(cm) => [
+         q(0040),
+         q(0),
+         ],
+      q(cn) => [
+         q(0046),
+         q(0),
+         ],
+      q(co) => [
+         q(0049),
+         q(0),
+         ],
+      q(cr) => [
+         q(0054),
+         q(0),
+         ],
+      q(cu) => [
+         q(0057),
+         q(0),
+         ],
+      q(cv) => [
+         q(0038),
+         q(0),
+         ],
+      q(cw) => [
+         q(0058),
+         q(0),
+         ],
+      q(cx) => [
+         q(0047),
+         q(0),
+         ],
+      q(cy) => [
+         q(0059),
+         q(0),
+         ],
+      q(cz) => [
+         q(0060),
+         q(0),
+         ],
+      q(de) => [
+         q(0083),
+         q(0),
+         ],
+      q(dj) => [
+         q(0062),
+         q(0),
+         ],
+      q(dk) => [
+         q(0061),
+         q(0),
+         ],
+      q(dm) => [
+         q(0063),
+         q(0),
+         ],
+      q(do) => [
+         q(0064),
+         q(0),
+         ],
+      q(dz) => [
+         q(0004),
+         q(0),
+         ],
+      q(ec) => [
+         q(0065),
+         q(0),
+         ],
+      q(ee) => [
+         q(0070),
+         q(0),
+         ],
+      q(eg) => [
+         q(0066),
+         q(0),
+         ],
+      q(eh) => [
+         q(0246),
+         q(0),
+         ],
+      q(er) => [
+         q(0069),
+         q(0),
+         ],
+      q(es) => [
+         q(0209),
+         q(0),
+         ],
+      q(et) => [
+         q(0071),
+         q(0),
+         ],
+      q(fi) => [
+         q(0075),
+         q(0),
+         ],
+      q(fj) => [
+         q(0074),
+         q(0),
+         ],
+      q(fk) => [
+         q(0072),
+         q(0),
+         ],
+      q(fm) => [
+         q(0145),
+         q(0),
+         ],
+      q(fo) => [
+         q(0073),
+         q(0),
+         ],
+      q(fr) => [
+         q(0076),
+         q(0),
+         ],
+      q(ga) => [
+         q(0080),
+         q(0),
+         ],
+      q(gb) => [
+         q(0235),
+         q(0),
+         ],
+      q(gd) => [
+         q(0088),
+         q(0),
+         ],
+      q(ge) => [
+         q(0082),
+         q(0),
+         ],
+      q(gf) => [
+         q(0077),
+         q(0),
+         ],
+      q(gg) => [
+         q(0092),
+         q(0),
+         ],
+      q(gh) => [
+         q(0084),
+         q(0),
+         ],
+      q(gi) => [
+         q(0085),
+         q(0),
+         ],
+      q(gl) => [
+         q(0087),
+         q(0),
+         ],
+      q(gm) => [
+         q(0081),
+         q(0),
+         ],
+      q(gn) => [
+         q(0093),
+         q(0),
+         ],
+      q(gp) => [
+         q(0089),
+         q(0),
+         ],
+      q(gq) => [
+         q(0068),
+         q(0),
+         ],
+      q(gr) => [
+         q(0086),
+         q(0),
+         ],
+      q(gs) => [
+         q(0207),
+         q(0),
+         ],
+      q(gt) => [
+         q(0091),
+         q(0),
+         ],
+      q(gu) => [
+         q(0090),
+         q(0),
+         ],
+      q(gw) => [
+         q(0094),
+         q(0),
+         ],
+      q(gy) => [
+         q(0095),
+         q(0),
+         ],
+      q(hk) => [
+         q(0100),
+         q(0),
+         ],
+      q(hm) => [
+         q(0097),
+         q(0),
+         ],
+      q(hn) => [
+         q(0099),
+         q(0),
+         ],
+      q(hr) => [
+         q(0056),
+         q(0),
+         ],
+      q(ht) => [
+         q(0096),
+         q(0),
+         ],
+      q(hu) => [
+         q(0101),
+         q(0),
+         ],
+      q(id) => [
+         q(0104),
+         q(0),
+         ],
+      q(ie) => [
+         q(0107),
+         q(0),
+         ],
+      q(il) => [
+         q(0109),
+         q(0),
+         ],
+      q(im) => [
+         q(0108),
+         q(0),
+         ],
+      q(in) => [
+         q(0103),
+         q(0),
+         ],
+      q(io) => [
+         q(0033),
+         q(0),
+         ],
+      q(iq) => [
+         q(0106),
+         q(0),
+         ],
+      q(ir) => [
+         q(0105),
+         q(0),
+         ],
+      q(is) => [
+         q(0102),
+         q(0),
+         ],
+      q(it) => [
+         q(0110),
+         q(0),
+         ],
+      q(je) => [
+         q(0113),
+         q(0),
+         ],
+      q(jm) => [
+         q(0111),
+         q(0),
+         ],
+      q(jo) => [
+         q(0114),
+         q(0),
+         ],
+      q(jp) => [
+         q(0112),
+         q(0),
+         ],
+      q(ke) => [
+         q(0116),
+         q(0),
+         ],
+      q(kg) => [
+         q(0121),
+         q(0),
+         ],
+      q(kh) => [
+         q(0039),
+         q(0),
+         ],
+      q(ki) => [
+         q(0117),
+         q(0),
+         ],
+      q(km) => [
+         q(0050),
+         q(0),
+         ],
+      q(kn) => [
+         q(0187),
+         q(0),
+         ],
+      q(kp) => [
+         q(0118),
+         q(0),
+         ],
+      q(kr) => [
+         q(0119),
+         q(0),
+         ],
+      q(kw) => [
+         q(0120),
+         q(0),
+         ],
+      q(ky) => [
+         q(0042),
+         q(0),
+         ],
+      q(kz) => [
+         q(0115),
+         q(0),
+         ],
+      q(la) => [
+         q(0122),
+         q(0),
+         ],
+      q(lb) => [
+         q(0124),
+         q(0),
+         ],
+      q(lc) => [
+         q(0188),
+         q(0),
+         ],
+      q(li) => [
+         q(0128),
+         q(0),
+         ],
+      q(lk) => [
+         q(0210),
+         q(0),
+         ],
+      q(lr) => [
+         q(0126),
+         q(0),
+         ],
+      q(ls) => [
+         q(0125),
+         q(0),
+         ],
+      q(lt) => [
+         q(0129),
+         q(0),
+         ],
+      q(lu) => [
+         q(0130),
+         q(0),
+         ],
+      q(lv) => [
+         q(0123),
+         q(0),
+         ],
+      q(ly) => [
+         q(0127),
+         q(0),
+         ],
+      q(ma) => [
+         q(0151),
+         q(0),
+         ],
+      q(mc) => [
+         q(0147),
+         q(0),
+         ],
+      q(md) => [
+         q(0146),
+         q(0),
+         ],
+      q(me) => [
+         q(0149),
+         q(0),
+         ],
+      q(mf) => [
+         q(0189),
+         q(0),
+         ],
+      q(mg) => [
+         q(0133),
+         q(0),
+         ],
+      q(mh) => [
+         q(0139),
+         q(0),
+         ],
+      q(mk) => [
+         q(0132),
+         q(0),
+         ],
+      q(ml) => [
+         q(0137),
+         q(0),
+         ],
+      q(mm) => [
+         q(0153),
+         q(0),
+         ],
+      q(mn) => [
+         q(0148),
+         q(0),
+         ],
+      q(mo) => [
+         q(0131),
+         q(0),
+         ],
+      q(mp) => [
+         q(0165),
+         q(0),
+         ],
+      q(mq) => [
+         q(0140),
+         q(0),
+         ],
+      q(mr) => [
+         q(0141),
+         q(0),
+         ],
+      q(ms) => [
+         q(0150),
+         q(0),
+         ],
+      q(mt) => [
+         q(0138),
+         q(0),
+         ],
+      q(mu) => [
+         q(0142),
+         q(0),
+         ],
+      q(mv) => [
+         q(0136),
+         q(0),
+         ],
+      q(mw) => [
+         q(0134),
+         q(0),
+         ],
+      q(mx) => [
+         q(0144),
+         q(0),
+         ],
+      q(my) => [
+         q(0135),
+         q(0),
+         ],
+      q(mz) => [
+         q(0152),
+         q(0),
+         ],
+      q(na) => [
+         q(0154),
+         q(0),
+         ],
+      q(nc) => [
+         q(0158),
+         q(0),
+         ],
+      q(ne) => [
+         q(0161),
+         q(0),
+         ],
+      q(nf) => [
+         q(0164),
+         q(0),
+         ],
+      q(ng) => [
+         q(0162),
+         q(0),
+         ],
+      q(ni) => [
+         q(0160),
+         q(0),
+         ],
+      q(nl) => [
+         q(0157),
+         q(0),
+         ],
+      q(no) => [
+         q(0166),
+         q(0),
+         ],
+      q(np) => [
+         q(0156),
+         q(0),
+         ],
+      q(nr) => [
+         q(0155),
+         q(0),
+         ],
+      q(nu) => [
+         q(0163),
+         q(0),
+         ],
+      q(nz) => [
+         q(0159),
+         q(0),
+         ],
+      q(om) => [
+         q(0167),
+         q(0),
+         ],
+      q(pa) => [
+         q(0171),
+         q(0),
+         ],
+      q(pe) => [
+         q(0174),
+         q(0),
+         ],
+      q(pf) => [
+         q(0078),
+         q(0),
+         ],
+      q(pg) => [
+         q(0172),
+         q(0),
+         ],
+      q(ph) => [
+         q(0175),
+         q(0),
+         ],
+      q(pk) => [
+         q(0168),
+         q(0),
+         ],
+      q(pl) => [
+         q(0177),
+         q(0),
+         ],
+      q(pm) => [
+         q(0190),
+         q(0),
+         ],
+      q(pn) => [
+         q(0176),
+         q(0),
+         ],
+      q(pr) => [
+         q(0179),
+         q(0),
+         ],
+      q(ps) => [
+         q(0170),
+         q(0),
+         ],
+      q(pt) => [
+         q(0178),
+         q(0),
+         ],
+      q(pw) => [
+         q(0169),
+         q(0),
+         ],
+      q(py) => [
+         q(0173),
+         q(0),
+         ],
+      q(qa) => [
+         q(0180),
+         q(0),
+         ],
+      q(re) => [
+         q(0181),
+         q(0),
+         ],
+      q(ro) => [
+         q(0182),
+         q(0),
+         ],
+      q(rs) => [
+         q(0197),
+         q(0),
+         ],
+      q(ru) => [
+         q(0183),
+         q(0),
+         ],
+      q(rw) => [
+         q(0184),
+         q(0),
+         ],
+      q(sa) => [
+         q(0195),
+         q(0),
+         ],
+      q(sb) => [
+         q(0204),
+         q(0),
+         ],
+      q(sc) => [
+         q(0198),
+         q(0),
+         ],
+      q(sd) => [
+         q(0211),
+         q(0),
+         ],
+      q(se) => [
+         q(0215),
+         q(0),
+         ],
+      q(sg) => [
+         q(0200),
+         q(0),
+         ],
+      q(sh) => [
+         q(0186),
+         q(0),
+         ],
+      q(si) => [
+         q(0203),
+         q(0),
+         ],
+      q(sj) => [
+         q(0213),
+         q(0),
+         ],
+      q(sk) => [
+         q(0202),
+         q(0),
+         ],
+      q(sl) => [
+         q(0199),
+         q(0),
+         ],
+      q(sm) => [
+         q(0193),
+         q(0),
+         ],
+      q(sn) => [
+         q(0196),
+         q(0),
+         ],
+      q(so) => [
+         q(0205),
+         q(0),
+         ],
+      q(sr) => [
+         q(0212),
+         q(0),
+         ],
+      q(ss) => [
+         q(0208),
+         q(0),
+         ],
+      q(st) => [
+         q(0194),
+         q(0),
+         ],
+      q(sv) => [
+         q(0067),
+         q(0),
+         ],
+      q(sx) => [
+         q(0201),
+         q(0),
+         ],
+      q(sy) => [
+         q(0217),
+         q(0),
+         ],
+      q(sz) => [
+         q(0214),
+         q(0),
+         ],
+      q(tc) => [
+         q(0230),
+         q(0),
+         ],
+      q(td) => [
+         q(0044),
+         q(0),
+         ],
+      q(tf) => [
+         q(0079),
+         q(0),
+         ],
+      q(tg) => [
+         q(0223),
+         q(0),
+         ],
+      q(th) => [
+         q(0221),
+         q(0),
+         ],
+      q(tj) => [
+         q(0219),
+         q(0),
+         ],
+      q(tk) => [
+         q(0224),
+         q(0),
+         ],
+      q(tl) => [
+         q(0222),
+         q(0),
+         ],
+      q(tm) => [
+         q(0229),
+         q(0),
+         ],
+      q(tn) => [
+         q(0227),
+         q(0),
+         ],
+      q(to) => [
+         q(0225),
+         q(0),
+         ],
+      q(tr) => [
+         q(0228),
+         q(0),
+         ],
+      q(tt) => [
+         q(0226),
+         q(0),
+         ],
+      q(tv) => [
+         q(0231),
+         q(0),
+         ],
+      q(tw) => [
+         q(0218),
+         q(0),
+         ],
+      q(tz) => [
+         q(0220),
+         q(0),
+         ],
+      q(ua) => [
+         q(0233),
+         q(0),
+         ],
+      q(ug) => [
+         q(0232),
+         q(0),
+         ],
+      q(um) => [
+         q(0236),
+         q(0),
+         ],
+      q(us) => [
+         q(0237),
+         q(0),
+         ],
+      q(uy) => [
+         q(0238),
+         q(0),
+         ],
+      q(uz) => [
+         q(0239),
+         q(0),
+         ],
+      q(va) => [
+         q(0098),
+         q(0),
+         ],
+      q(vc) => [
+         q(0191),
+         q(0),
+         ],
+      q(ve) => [
+         q(0241),
+         q(0),
+         ],
+      q(vg) => [
+         q(0243),
+         q(0),
+         ],
+      q(vi) => [
+         q(0244),
+         q(0),
+         ],
+      q(vn) => [
+         q(0242),
+         q(0),
+         ],
+      q(vu) => [
+         q(0240),
+         q(0),
+         ],
+      q(wf) => [
+         q(0245),
+         q(0),
+         ],
+      q(ws) => [
+         q(0192),
+         q(0),
+         ],
+      q(ye) => [
+         q(0247),
+         q(0),
+         ],
+      q(yt) => [
+         q(0143),
+         q(0),
+         ],
+      q(za) => [
+         q(0206),
+         q(0),
+         ],
+      q(zm) => [
+         q(0248),
+         q(0),
+         ],
+      q(zw) => [
+         q(0249),
+         q(0),
+         ],
+      },
+   q(numeric) => {
+      q(004) => [
+         q(0001),
+         q(0),
+         ],
+      q(008) => [
+         q(0003),
+         q(0),
+         ],
+      q(010) => [
+         q(0009),
+         q(0),
+         ],
+      q(012) => [
+         q(0004),
+         q(0),
+         ],
+      q(016) => [
+         q(0005),
+         q(0),
+         ],
+      q(020) => [
+         q(0006),
+         q(0),
+         ],
+      q(024) => [
+         q(0007),
+         q(0),
+         ],
+      q(028) => [
+         q(0010),
+         q(0),
+         ],
+      q(031) => [
+         q(0016),
+         q(0),
+         ],
+      q(032) => [
+         q(0011),
+         q(0),
+         ],
+      q(036) => [
+         q(0014),
+         q(0),
+         ],
+      q(040) => [
+         q(0015),
+         q(0),
+         ],
+      q(044) => [
+         q(0017),
+         q(0),
+         ],
+      q(048) => [
+         q(0018),
+         q(0),
+         ],
+      q(050) => [
+         q(0019),
+         q(0),
+         ],
+      q(051) => [
+         q(0012),
+         q(0),
+         ],
+      q(052) => [
+         q(0020),
+         q(0),
+         ],
+      q(056) => [
+         q(0022),
+         q(0),
+         ],
+      q(060) => [
+         q(0025),
+         q(0),
+         ],
+      q(064) => [
+         q(0026),
+         q(0),
+         ],
+      q(068) => [
+         q(0027),
+         q(0),
+         ],
+      q(070) => [
+         q(0029),
+         q(0),
+         ],
+      q(072) => [
+         q(0030),
+         q(0),
+         ],
+      q(074) => [
+         q(0031),
+         q(0),
+         ],
+      q(076) => [
+         q(0032),
+         q(0),
+         ],
+      q(084) => [
+         q(0023),
+         q(0),
+         ],
+      q(086) => [
+         q(0033),
+         q(0),
+         ],
+      q(090) => [
+         q(0204),
+         q(0),
+         ],
+      q(092) => [
+         q(0243),
+         q(0),
+         ],
+      q(096) => [
+         q(0034),
+         q(0),
+         ],
+      q(100) => [
+         q(0035),
+         q(0),
+         ],
+      q(104) => [
+         q(0153),
+         q(0),
+         ],
+      q(108) => [
+         q(0037),
+         q(0),
+         ],
+      q(112) => [
+         q(0021),
+         q(0),
+         ],
+      q(116) => [
+         q(0039),
+         q(0),
+         ],
+      q(120) => [
+         q(0040),
+         q(0),
+         ],
+      q(124) => [
+         q(0041),
+         q(0),
+         ],
+      q(132) => [
+         q(0038),
+         q(0),
+         ],
+      q(136) => [
+         q(0042),
+         q(0),
+         ],
+      q(140) => [
+         q(0043),
+         q(0),
+         ],
+      q(144) => [
+         q(0210),
+         q(0),
+         ],
+      q(148) => [
+         q(0044),
+         q(0),
+         ],
+      q(152) => [
+         q(0045),
+         q(0),
+         ],
+      q(156) => [
+         q(0046),
+         q(0),
+         ],
+      q(158) => [
+         q(0218),
+         q(0),
+         ],
+      q(162) => [
+         q(0047),
+         q(0),
+         ],
+      q(166) => [
+         q(0048),
+         q(0),
+         ],
+      q(170) => [
+         q(0049),
+         q(0),
+         ],
+      q(174) => [
+         q(0050),
+         q(0),
+         ],
+      q(175) => [
+         q(0143),
+         q(0),
+         ],
+      q(178) => [
+         q(0052),
+         q(0),
+         ],
+      q(180) => [
+         q(0051),
+         q(0),
+         ],
+      q(184) => [
+         q(0053),
+         q(0),
+         ],
+      q(188) => [
+         q(0054),
+         q(0),
+         ],
+      q(191) => [
+         q(0056),
+         q(0),
+         ],
+      q(192) => [
+         q(0057),
+         q(0),
+         ],
+      q(196) => [
+         q(0059),
+         q(0),
+         ],
+      q(203) => [
+         q(0060),
+         q(0),
+         ],
+      q(204) => [
+         q(0024),
+         q(0),
+         ],
+      q(208) => [
+         q(0061),
+         q(0),
+         ],
+      q(212) => [
+         q(0063),
+         q(0),
+         ],
+      q(214) => [
+         q(0064),
+         q(0),
+         ],
+      q(218) => [
+         q(0065),
+         q(0),
+         ],
+      q(222) => [
+         q(0067),
+         q(0),
+         ],
+      q(226) => [
+         q(0068),
+         q(0),
+         ],
+      q(231) => [
+         q(0071),
+         q(0),
+         ],
+      q(232) => [
+         q(0069),
+         q(0),
+         ],
+      q(233) => [
+         q(0070),
+         q(0),
+         ],
+      q(234) => [
+         q(0073),
+         q(0),
+         ],
+      q(238) => [
+         q(0072),
+         q(0),
+         ],
+      q(239) => [
+         q(0207),
+         q(0),
+         ],
+      q(242) => [
+         q(0074),
+         q(0),
+         ],
+      q(246) => [
+         q(0075),
+         q(0),
+         ],
+      q(248) => [
+         q(0002),
+         q(0),
+         ],
+      q(250) => [
+         q(0076),
+         q(0),
+         ],
+      q(254) => [
+         q(0077),
+         q(0),
+         ],
+      q(258) => [
+         q(0078),
+         q(0),
+         ],
+      q(260) => [
+         q(0079),
+         q(0),
+         ],
+      q(262) => [
+         q(0062),
+         q(0),
+         ],
+      q(266) => [
+         q(0080),
+         q(0),
+         ],
+      q(268) => [
+         q(0082),
+         q(0),
+         ],
+      q(270) => [
+         q(0081),
+         q(0),
+         ],
+      q(275) => [
+         q(0170),
+         q(0),
+         ],
+      q(276) => [
+         q(0083),
+         q(0),
+         ],
+      q(288) => [
+         q(0084),
+         q(0),
+         ],
+      q(292) => [
+         q(0085),
+         q(0),
+         ],
+      q(296) => [
+         q(0117),
+         q(0),
+         ],
+      q(300) => [
+         q(0086),
+         q(0),
+         ],
+      q(304) => [
+         q(0087),
+         q(0),
+         ],
+      q(308) => [
+         q(0088),
+         q(0),
+         ],
+      q(312) => [
+         q(0089),
+         q(0),
+         ],
+      q(316) => [
+         q(0090),
+         q(0),
+         ],
+      q(320) => [
+         q(0091),
+         q(0),
+         ],
+      q(324) => [
+         q(0093),
+         q(0),
+         ],
+      q(328) => [
+         q(0095),
+         q(0),
+         ],
+      q(332) => [
+         q(0096),
+         q(0),
+         ],
+      q(334) => [
+         q(0097),
+         q(0),
+         ],
+      q(336) => [
+         q(0098),
+         q(0),
+         ],
+      q(340) => [
+         q(0099),
+         q(0),
+         ],
+      q(344) => [
+         q(0100),
+         q(0),
+         ],
+      q(348) => [
+         q(0101),
+         q(0),
+         ],
+      q(352) => [
+         q(0102),
+         q(0),
+         ],
+      q(356) => [
+         q(0103),
+         q(0),
+         ],
+      q(360) => [
+         q(0104),
+         q(0),
+         ],
+      q(364) => [
+         q(0105),
+         q(0),
+         ],
+      q(368) => [
+         q(0106),
+         q(0),
+         ],
+      q(372) => [
+         q(0107),
+         q(0),
+         ],
+      q(376) => [
+         q(0109),
+         q(0),
+         ],
+      q(380) => [
+         q(0110),
+         q(0),
+         ],
+      q(384) => [
+         q(0055),
+         q(0),
+         ],
+      q(388) => [
+         q(0111),
+         q(0),
+         ],
+      q(392) => [
+         q(0112),
+         q(0),
+         ],
+      q(398) => [
+         q(0115),
+         q(0),
+         ],
+      q(400) => [
+         q(0114),
+         q(0),
+         ],
+      q(404) => [
+         q(0116),
+         q(0),
+         ],
+      q(408) => [
+         q(0118),
+         q(0),
+         ],
+      q(410) => [
+         q(0119),
+         q(0),
+         ],
+      q(414) => [
+         q(0120),
+         q(0),
+         ],
+      q(417) => [
+         q(0121),
+         q(0),
+         ],
+      q(418) => [
+         q(0122),
+         q(0),
+         ],
+      q(422) => [
+         q(0124),
+         q(0),
+         ],
+      q(426) => [
+         q(0125),
+         q(0),
+         ],
+      q(428) => [
+         q(0123),
+         q(0),
+         ],
+      q(430) => [
+         q(0126),
+         q(0),
+         ],
+      q(434) => [
+         q(0127),
+         q(0),
+         ],
+      q(438) => [
+         q(0128),
+         q(0),
+         ],
+      q(440) => [
+         q(0129),
+         q(0),
+         ],
+      q(442) => [
+         q(0130),
+         q(0),
+         ],
+      q(446) => [
+         q(0131),
+         q(0),
+         ],
+      q(450) => [
+         q(0133),
+         q(0),
+         ],
+      q(454) => [
+         q(0134),
+         q(0),
+         ],
+      q(458) => [
+         q(0135),
+         q(0),
+         ],
+      q(462) => [
+         q(0136),
+         q(0),
+         ],
+      q(466) => [
+         q(0137),
+         q(0),
+         ],
+      q(470) => [
+         q(0138),
+         q(0),
+         ],
+      q(474) => [
+         q(0140),
+         q(0),
+         ],
+      q(478) => [
+         q(0141),
+         q(0),
+         ],
+      q(480) => [
+         q(0142),
+         q(0),
+         ],
+      q(484) => [
+         q(0144),
+         q(0),
+         ],
+      q(492) => [
+         q(0147),
+         q(0),
+         ],
+      q(496) => [
+         q(0148),
+         q(0),
+         ],
+      q(498) => [
+         q(0146),
+         q(0),
+         ],
+      q(499) => [
+         q(0149),
+         q(0),
+         ],
+      q(500) => [
+         q(0150),
+         q(0),
+         ],
+      q(504) => [
+         q(0151),
+         q(0),
+         ],
+      q(508) => [
+         q(0152),
+         q(0),
+         ],
+      q(512) => [
+         q(0167),
+         q(0),
+         ],
+      q(516) => [
+         q(0154),
+         q(0),
+         ],
+      q(520) => [
+         q(0155),
+         q(0),
+         ],
+      q(524) => [
+         q(0156),
+         q(0),
+         ],
+      q(528) => [
+         q(0157),
+         q(0),
+         ],
+      q(531) => [
+         q(0058),
+         q(0),
+         ],
+      q(533) => [
+         q(0013),
+         q(0),
+         ],
+      q(534) => [
+         q(0201),
+         q(0),
+         ],
+      q(535) => [
+         q(0028),
+         q(0),
+         ],
+      q(540) => [
+         q(0158),
+         q(0),
+         ],
+      q(548) => [
+         q(0240),
+         q(0),
+         ],
+      q(554) => [
+         q(0159),
+         q(0),
+         ],
+      q(558) => [
+         q(0160),
+         q(0),
+         ],
+      q(562) => [
+         q(0161),
+         q(0),
+         ],
+      q(566) => [
+         q(0162),
+         q(0),
+         ],
+      q(570) => [
+         q(0163),
+         q(0),
+         ],
+      q(574) => [
+         q(0164),
+         q(0),
+         ],
+      q(578) => [
+         q(0166),
+         q(0),
+         ],
+      q(580) => [
+         q(0165),
+         q(0),
+         ],
+      q(581) => [
+         q(0236),
+         q(0),
+         ],
+      q(583) => [
+         q(0145),
+         q(0),
+         ],
+      q(584) => [
+         q(0139),
+         q(0),
+         ],
+      q(585) => [
+         q(0169),
+         q(0),
+         ],
+      q(586) => [
+         q(0168),
+         q(0),
+         ],
+      q(591) => [
+         q(0171),
+         q(0),
+         ],
+      q(598) => [
+         q(0172),
+         q(0),
+         ],
+      q(600) => [
+         q(0173),
+         q(0),
+         ],
+      q(604) => [
+         q(0174),
+         q(0),
+         ],
+      q(608) => [
+         q(0175),
+         q(0),
+         ],
+      q(612) => [
+         q(0176),
+         q(0),
+         ],
+      q(616) => [
+         q(0177),
+         q(0),
+         ],
+      q(620) => [
+         q(0178),
+         q(0),
+         ],
+      q(624) => [
+         q(0094),
+         q(0),
+         ],
+      q(626) => [
+         q(0222),
+         q(0),
+         ],
+      q(630) => [
+         q(0179),
+         q(0),
+         ],
+      q(634) => [
+         q(0180),
+         q(0),
+         ],
+      q(638) => [
+         q(0181),
+         q(0),
+         ],
+      q(642) => [
+         q(0182),
+         q(0),
+         ],
+      q(643) => [
+         q(0183),
+         q(0),
+         ],
+      q(646) => [
+         q(0184),
+         q(0),
+         ],
+      q(652) => [
+         q(0185),
+         q(0),
+         ],
+      q(654) => [
+         q(0186),
+         q(0),
+         ],
+      q(659) => [
+         q(0187),
+         q(0),
+         ],
+      q(660) => [
+         q(0008),
+         q(0),
+         ],
+      q(662) => [
+         q(0188),
+         q(0),
+         ],
+      q(663) => [
+         q(0189),
+         q(0),
+         ],
+      q(666) => [
+         q(0190),
+         q(0),
+         ],
+      q(670) => [
+         q(0191),
+         q(0),
+         ],
+      q(674) => [
+         q(0193),
+         q(0),
+         ],
+      q(678) => [
+         q(0194),
+         q(0),
+         ],
+      q(682) => [
+         q(0195),
+         q(0),
+         ],
+      q(686) => [
+         q(0196),
+         q(0),
+         ],
+      q(688) => [
+         q(0197),
+         q(0),
+         ],
+      q(690) => [
+         q(0198),
+         q(0),
+         ],
+      q(694) => [
+         q(0199),
+         q(0),
+         ],
+      q(702) => [
+         q(0200),
+         q(0),
+         ],
+      q(703) => [
+         q(0202),
+         q(0),
+         ],
+      q(704) => [
+         q(0242),
+         q(0),
+         ],
+      q(705) => [
+         q(0203),
+         q(0),
+         ],
+      q(706) => [
+         q(0205),
+         q(0),
+         ],
+      q(710) => [
+         q(0206),
+         q(0),
+         ],
+      q(716) => [
+         q(0249),
+         q(0),
+         ],
+      q(724) => [
+         q(0209),
+         q(0),
+         ],
+      q(728) => [
+         q(0208),
+         q(0),
+         ],
+      q(729) => [
+         q(0211),
+         q(0),
+         ],
+      q(732) => [
+         q(0246),
+         q(0),
+         ],
+      q(740) => [
+         q(0212),
+         q(0),
+         ],
+      q(744) => [
+         q(0213),
+         q(0),
+         ],
+      q(748) => [
+         q(0214),
+         q(0),
+         ],
+      q(752) => [
+         q(0215),
+         q(0),
+         ],
+      q(756) => [
+         q(0216),
+         q(0),
+         ],
+      q(760) => [
+         q(0217),
+         q(0),
+         ],
+      q(762) => [
+         q(0219),
+         q(0),
+         ],
+      q(764) => [
+         q(0221),
+         q(0),
+         ],
+      q(768) => [
+         q(0223),
+         q(0),
+         ],
+      q(772) => [
+         q(0224),
+         q(0),
+         ],
+      q(776) => [
+         q(0225),
+         q(0),
+         ],
+      q(780) => [
+         q(0226),
+         q(0),
+         ],
+      q(784) => [
+         q(0234),
+         q(0),
+         ],
+      q(788) => [
+         q(0227),
+         q(0),
+         ],
+      q(792) => [
+         q(0228),
+         q(0),
+         ],
+      q(795) => [
+         q(0229),
+         q(0),
+         ],
+      q(796) => [
+         q(0230),
+         q(0),
+         ],
+      q(798) => [
+         q(0231),
+         q(0),
+         ],
+      q(800) => [
+         q(0232),
+         q(0),
+         ],
+      q(804) => [
+         q(0233),
+         q(0),
+         ],
+      q(807) => [
+         q(0132),
+         q(0),
+         ],
+      q(818) => [
+         q(0066),
+         q(0),
+         ],
+      q(826) => [
+         q(0235),
+         q(0),
+         ],
+      q(831) => [
+         q(0092),
+         q(0),
+         ],
+      q(832) => [
+         q(0113),
+         q(0),
+         ],
+      q(833) => [
+         q(0108),
+         q(0),
+         ],
+      q(834) => [
+         q(0220),
+         q(0),
+         ],
+      q(840) => [
+         q(0237),
+         q(0),
+         ],
+      q(850) => [
+         q(0244),
+         q(0),
+         ],
+      q(854) => [
+         q(0036),
+         q(0),
+         ],
+      q(858) => [
+         q(0238),
+         q(0),
+         ],
+      q(860) => [
+         q(0239),
+         q(0),
+         ],
+      q(862) => [
+         q(0241),
+         q(0),
+         ],
+      q(876) => [
+         q(0245),
+         q(0),
+         ],
+      q(882) => [
+         q(0192),
+         q(0),
+         ],
+      q(887) => [
+         q(0247),
+         q(0),
+         ],
+      q(894) => [
+         q(0248),
+         q(0),
+         ],
+      },
+};
+
+$Locale::Codes::Data{'country'}{'id2code'} = {
+   q(alpha-2) => {
+      q(0001) => q(af),
+      q(0002) => q(ax),
+      q(0003) => q(al),
+      q(0004) => q(dz),
+      q(0005) => q(as),
+      q(0006) => q(ad),
+      q(0007) => q(ao),
+      q(0008) => q(ai),
+      q(0009) => q(aq),
+      q(0010) => q(ag),
+      q(0011) => q(ar),
+      q(0012) => q(am),
+      q(0013) => q(aw),
+      q(0014) => q(au),
+      q(0015) => q(at),
+      q(0016) => q(az),
+      q(0017) => q(bs),
+      q(0018) => q(bh),
+      q(0019) => q(bd),
+      q(0020) => q(bb),
+      q(0021) => q(by),
+      q(0022) => q(be),
+      q(0023) => q(bz),
+      q(0024) => q(bj),
+      q(0025) => q(bm),
+      q(0026) => q(bt),
+      q(0027) => q(bo),
+      q(0028) => q(bq),
+      q(0029) => q(ba),
+      q(0030) => q(bw),
+      q(0031) => q(bv),
+      q(0032) => q(br),
+      q(0033) => q(io),
+      q(0034) => q(bn),
+      q(0035) => q(bg),
+      q(0036) => q(bf),
+      q(0037) => q(bi),
+      q(0038) => q(cv),
+      q(0039) => q(kh),
+      q(0040) => q(cm),
+      q(0041) => q(ca),
+      q(0042) => q(ky),
+      q(0043) => q(cf),
+      q(0044) => q(td),
+      q(0045) => q(cl),
+      q(0046) => q(cn),
+      q(0047) => q(cx),
+      q(0048) => q(cc),
+      q(0049) => q(co),
+      q(0050) => q(km),
+      q(0051) => q(cd),
+      q(0052) => q(cg),
+      q(0053) => q(ck),
+      q(0054) => q(cr),
+      q(0055) => q(ci),
+      q(0056) => q(hr),
+      q(0057) => q(cu),
+      q(0058) => q(cw),
+      q(0059) => q(cy),
+      q(0060) => q(cz),
+      q(0061) => q(dk),
+      q(0062) => q(dj),
+      q(0063) => q(dm),
+      q(0064) => q(do),
+      q(0065) => q(ec),
+      q(0066) => q(eg),
+      q(0067) => q(sv),
+      q(0068) => q(gq),
+      q(0069) => q(er),
+      q(0070) => q(ee),
+      q(0071) => q(et),
+      q(0072) => q(fk),
+      q(0073) => q(fo),
+      q(0074) => q(fj),
+      q(0075) => q(fi),
+      q(0076) => q(fr),
+      q(0077) => q(gf),
+      q(0078) => q(pf),
+      q(0079) => q(tf),
+      q(0080) => q(ga),
+      q(0081) => q(gm),
+      q(0082) => q(ge),
+      q(0083) => q(de),
+      q(0084) => q(gh),
+      q(0085) => q(gi),
+      q(0086) => q(gr),
+      q(0087) => q(gl),
+      q(0088) => q(gd),
+      q(0089) => q(gp),
+      q(0090) => q(gu),
+      q(0091) => q(gt),
+      q(0092) => q(gg),
+      q(0093) => q(gn),
+      q(0094) => q(gw),
+      q(0095) => q(gy),
+      q(0096) => q(ht),
+      q(0097) => q(hm),
+      q(0098) => q(va),
+      q(0099) => q(hn),
+      q(0100) => q(hk),
+      q(0101) => q(hu),
+      q(0102) => q(is),
+      q(0103) => q(in),
+      q(0104) => q(id),
+      q(0105) => q(ir),
+      q(0106) => q(iq),
+      q(0107) => q(ie),
+      q(0108) => q(im),
+      q(0109) => q(il),
+      q(0110) => q(it),
+      q(0111) => q(jm),
+      q(0112) => q(jp),
+      q(0113) => q(je),
+      q(0114) => q(jo),
+      q(0115) => q(kz),
+      q(0116) => q(ke),
+      q(0117) => q(ki),
+      q(0118) => q(kp),
+      q(0119) => q(kr),
+      q(0120) => q(kw),
+      q(0121) => q(kg),
+      q(0122) => q(la),
+      q(0123) => q(lv),
+      q(0124) => q(lb),
+      q(0125) => q(ls),
+      q(0126) => q(lr),
+      q(0127) => q(ly),
+      q(0128) => q(li),
+      q(0129) => q(lt),
+      q(0130) => q(lu),
+      q(0131) => q(mo),
+      q(0132) => q(mk),
+      q(0133) => q(mg),
+      q(0134) => q(mw),
+      q(0135) => q(my),
+      q(0136) => q(mv),
+      q(0137) => q(ml),
+      q(0138) => q(mt),
+      q(0139) => q(mh),
+      q(0140) => q(mq),
+      q(0141) => q(mr),
+      q(0142) => q(mu),
+      q(0143) => q(yt),
+      q(0144) => q(mx),
+      q(0145) => q(fm),
+      q(0146) => q(md),
+      q(0147) => q(mc),
+      q(0148) => q(mn),
+      q(0149) => q(me),
+      q(0150) => q(ms),
+      q(0151) => q(ma),
+      q(0152) => q(mz),
+      q(0153) => q(mm),
+      q(0154) => q(na),
+      q(0155) => q(nr),
+      q(0156) => q(np),
+      q(0157) => q(nl),
+      q(0158) => q(nc),
+      q(0159) => q(nz),
+      q(0160) => q(ni),
+      q(0161) => q(ne),
+      q(0162) => q(ng),
+      q(0163) => q(nu),
+      q(0164) => q(nf),
+      q(0165) => q(mp),
+      q(0166) => q(no),
+      q(0167) => q(om),
+      q(0168) => q(pk),
+      q(0169) => q(pw),
+      q(0170) => q(ps),
+      q(0171) => q(pa),
+      q(0172) => q(pg),
+      q(0173) => q(py),
+      q(0174) => q(pe),
+      q(0175) => q(ph),
+      q(0176) => q(pn),
+      q(0177) => q(pl),
+      q(0178) => q(pt),
+      q(0179) => q(pr),
+      q(0180) => q(qa),
+      q(0181) => q(re),
+      q(0182) => q(ro),
+      q(0183) => q(ru),
+      q(0184) => q(rw),
+      q(0185) => q(bl),
+      q(0186) => q(sh),
+      q(0187) => q(kn),
+      q(0188) => q(lc),
+      q(0189) => q(mf),
+      q(0190) => q(pm),
+      q(0191) => q(vc),
+      q(0192) => q(ws),
+      q(0193) => q(sm),
+      q(0194) => q(st),
+      q(0195) => q(sa),
+      q(0196) => q(sn),
+      q(0197) => q(rs),
+      q(0198) => q(sc),
+      q(0199) => q(sl),
+      q(0200) => q(sg),
+      q(0201) => q(sx),
+      q(0202) => q(sk),
+      q(0203) => q(si),
+      q(0204) => q(sb),
+      q(0205) => q(so),
+      q(0206) => q(za),
+      q(0207) => q(gs),
+      q(0208) => q(ss),
+      q(0209) => q(es),
+      q(0210) => q(lk),
+      q(0211) => q(sd),
+      q(0212) => q(sr),
+      q(0213) => q(sj),
+      q(0214) => q(sz),
+      q(0215) => q(se),
+      q(0216) => q(ch),
+      q(0217) => q(sy),
+      q(0218) => q(tw),
+      q(0219) => q(tj),
+      q(0220) => q(tz),
+      q(0221) => q(th),
+      q(0222) => q(tl),
+      q(0223) => q(tg),
+      q(0224) => q(tk),
+      q(0225) => q(to),
+      q(0226) => q(tt),
+      q(0227) => q(tn),
+      q(0228) => q(tr),
+      q(0229) => q(tm),
+      q(0230) => q(tc),
+      q(0231) => q(tv),
+      q(0232) => q(ug),
+      q(0233) => q(ua),
+      q(0234) => q(ae),
+      q(0235) => q(gb),
+      q(0236) => q(um),
+      q(0237) => q(us),
+      q(0238) => q(uy),
+      q(0239) => q(uz),
+      q(0240) => q(vu),
+      q(0241) => q(ve),
+      q(0242) => q(vn),
+      q(0243) => q(vg),
+      q(0244) => q(vi),
+      q(0245) => q(wf),
+      q(0246) => q(eh),
+      q(0247) => q(ye),
+      q(0248) => q(zm),
+      q(0249) => q(zw),
+      },
+   q(alpha-3) => {
+      q(0001) => q(afg),
+      q(0002) => q(ala),
+      q(0003) => q(alb),
+      q(0004) => q(dza),
+      q(0005) => q(asm),
+      q(0006) => q(and),
+      q(0007) => q(ago),
+      q(0008) => q(aia),
+      q(0009) => q(ata),
+      q(0010) => q(atg),
+      q(0011) => q(arg),
+      q(0012) => q(arm),
+      q(0013) => q(abw),
+      q(0014) => q(aus),
+      q(0015) => q(aut),
+      q(0016) => q(aze),
+      q(0017) => q(bhs),
+      q(0018) => q(bhr),
+      q(0019) => q(bgd),
+      q(0020) => q(brb),
+      q(0021) => q(blr),
+      q(0022) => q(bel),
+      q(0023) => q(blz),
+      q(0024) => q(ben),
+      q(0025) => q(bmu),
+      q(0026) => q(btn),
+      q(0027) => q(bol),
+      q(0028) => q(bes),
+      q(0029) => q(bih),
+      q(0030) => q(bwa),
+      q(0031) => q(bvt),
+      q(0032) => q(bra),
+      q(0033) => q(iot),
+      q(0034) => q(brn),
+      q(0035) => q(bgr),
+      q(0036) => q(bfa),
+      q(0037) => q(bdi),
+      q(0038) => q(cpv),
+      q(0039) => q(khm),
+      q(0040) => q(cmr),
+      q(0041) => q(can),
+      q(0042) => q(cym),
+      q(0043) => q(caf),
+      q(0044) => q(tcd),
+      q(0045) => q(chl),
+      q(0046) => q(chn),
+      q(0047) => q(cxr),
+      q(0048) => q(cck),
+      q(0049) => q(col),
+      q(0050) => q(com),
+      q(0051) => q(cod),
+      q(0052) => q(cog),
+      q(0053) => q(cok),
+      q(0054) => q(cri),
+      q(0055) => q(civ),
+      q(0056) => q(hrv),
+      q(0057) => q(cub),
+      q(0058) => q(cuw),
+      q(0059) => q(cyp),
+      q(0060) => q(cze),
+      q(0061) => q(dnk),
+      q(0062) => q(dji),
+      q(0063) => q(dma),
+      q(0064) => q(dom),
+      q(0065) => q(ecu),
+      q(0066) => q(egy),
+      q(0067) => q(slv),
+      q(0068) => q(gnq),
+      q(0069) => q(eri),
+      q(0070) => q(est),
+      q(0071) => q(eth),
+      q(0072) => q(flk),
+      q(0073) => q(fro),
+      q(0074) => q(fji),
+      q(0075) => q(fin),
+      q(0076) => q(fra),
+      q(0077) => q(guf),
+      q(0078) => q(pyf),
+      q(0079) => q(atf),
+      q(0080) => q(gab),
+      q(0081) => q(gmb),
+      q(0082) => q(geo),
+      q(0083) => q(deu),
+      q(0084) => q(gha),
+      q(0085) => q(gib),
+      q(0086) => q(grc),
+      q(0087) => q(grl),
+      q(0088) => q(grd),
+      q(0089) => q(glp),
+      q(0090) => q(gum),
+      q(0091) => q(gtm),
+      q(0092) => q(ggy),
+      q(0093) => q(gin),
+      q(0094) => q(gnb),
+      q(0095) => q(guy),
+      q(0096) => q(hti),
+      q(0097) => q(hmd),
+      q(0098) => q(vat),
+      q(0099) => q(hnd),
+      q(0100) => q(hkg),
+      q(0101) => q(hun),
+      q(0102) => q(isl),
+      q(0103) => q(ind),
+      q(0104) => q(idn),
+      q(0105) => q(irn),
+      q(0106) => q(irq),
+      q(0107) => q(irl),
+      q(0108) => q(imn),
+      q(0109) => q(isr),
+      q(0110) => q(ita),
+      q(0111) => q(jam),
+      q(0112) => q(jpn),
+      q(0113) => q(jey),
+      q(0114) => q(jor),
+      q(0115) => q(kaz),
+      q(0116) => q(ken),
+      q(0117) => q(kir),
+      q(0118) => q(prk),
+      q(0119) => q(kor),
+      q(0120) => q(kwt),
+      q(0121) => q(kgz),
+      q(0122) => q(lao),
+      q(0123) => q(lva),
+      q(0124) => q(lbn),
+      q(0125) => q(lso),
+      q(0126) => q(lbr),
+      q(0127) => q(lby),
+      q(0128) => q(lie),
+      q(0129) => q(ltu),
+      q(0130) => q(lux),
+      q(0131) => q(mac),
+      q(0132) => q(mkd),
+      q(0133) => q(mdg),
+      q(0134) => q(mwi),
+      q(0135) => q(mys),
+      q(0136) => q(mdv),
+      q(0137) => q(mli),
+      q(0138) => q(mlt),
+      q(0139) => q(mhl),
+      q(0140) => q(mtq),
+      q(0141) => q(mrt),
+      q(0142) => q(mus),
+      q(0143) => q(myt),
+      q(0144) => q(mex),
+      q(0145) => q(fsm),
+      q(0146) => q(mda),
+      q(0147) => q(mco),
+      q(0148) => q(mng),
+      q(0149) => q(mne),
+      q(0150) => q(msr),
+      q(0151) => q(mar),
+      q(0152) => q(moz),
+      q(0153) => q(mmr),
+      q(0154) => q(nam),
+      q(0155) => q(nru),
+      q(0156) => q(npl),
+      q(0157) => q(nld),
+      q(0158) => q(ncl),
+      q(0159) => q(nzl),
+      q(0160) => q(nic),
+      q(0161) => q(ner),
+      q(0162) => q(nga),
+      q(0163) => q(niu),
+      q(0164) => q(nfk),
+      q(0165) => q(mnp),
+      q(0166) => q(nor),
+      q(0167) => q(omn),
+      q(0168) => q(pak),
+      q(0169) => q(plw),
+      q(0170) => q(pse),
+      q(0171) => q(pan),
+      q(0172) => q(png),
+      q(0173) => q(pry),
+      q(0174) => q(per),
+      q(0175) => q(phl),
+      q(0176) => q(pcn),
+      q(0177) => q(pol),
+      q(0178) => q(prt),
+      q(0179) => q(pri),
+      q(0180) => q(qat),
+      q(0181) => q(reu),
+      q(0182) => q(rou),
+      q(0183) => q(rus),
+      q(0184) => q(rwa),
+      q(0185) => q(blm),
+      q(0186) => q(shn),
+      q(0187) => q(kna),
+      q(0188) => q(lca),
+      q(0189) => q(maf),
+      q(0190) => q(spm),
+      q(0191) => q(vct),
+      q(0192) => q(wsm),
+      q(0193) => q(smr),
+      q(0194) => q(stp),
+      q(0195) => q(sau),
+      q(0196) => q(sen),
+      q(0197) => q(srb),
+      q(0198) => q(syc),
+      q(0199) => q(sle),
+      q(0200) => q(sgp),
+      q(0201) => q(sxm),
+      q(0202) => q(svk),
+      q(0203) => q(svn),
+      q(0204) => q(slb),
+      q(0205) => q(som),
+      q(0206) => q(zaf),
+      q(0207) => q(sgs),
+      q(0208) => q(ssd),
+      q(0209) => q(esp),
+      q(0210) => q(lka),
+      q(0211) => q(sdn),
+      q(0212) => q(sur),
+      q(0213) => q(sjm),
+      q(0214) => q(swz),
+      q(0215) => q(swe),
+      q(0216) => q(che),
+      q(0217) => q(syr),
+      q(0218) => q(twn),
+      q(0219) => q(tjk),
+      q(0220) => q(tza),
+      q(0221) => q(tha),
+      q(0222) => q(tls),
+      q(0223) => q(tgo),
+      q(0224) => q(tkl),
+      q(0225) => q(ton),
+      q(0226) => q(tto),
+      q(0227) => q(tun),
+      q(0228) => q(tur),
+      q(0229) => q(tkm),
+      q(0230) => q(tca),
+      q(0231) => q(tuv),
+      q(0232) => q(uga),
+      q(0233) => q(ukr),
+      q(0234) => q(are),
+      q(0235) => q(gbr),
+      q(0236) => q(umi),
+      q(0237) => q(usa),
+      q(0238) => q(ury),
+      q(0239) => q(uzb),
+      q(0240) => q(vut),
+      q(0241) => q(ven),
+      q(0242) => q(vnm),
+      q(0243) => q(vgb),
+      q(0244) => q(vir),
+      q(0245) => q(wlf),
+      q(0246) => q(esh),
+      q(0247) => q(yem),
+      q(0248) => q(zmb),
+      q(0249) => q(zwe),
+      },
+   q(dom) => {
+      q(0001) => q(af),
+      q(0002) => q(ax),
+      q(0003) => q(al),
+      q(0004) => q(dz),
+      q(0005) => q(as),
+      q(0006) => q(ad),
+      q(0007) => q(ao),
+      q(0008) => q(ai),
+      q(0009) => q(aq),
+      q(0010) => q(ag),
+      q(0011) => q(ar),
+      q(0012) => q(am),
+      q(0013) => q(aw),
+      q(0014) => q(au),
+      q(0015) => q(at),
+      q(0016) => q(az),
+      q(0017) => q(bs),
+      q(0018) => q(bh),
+      q(0019) => q(bd),
+      q(0020) => q(bb),
+      q(0021) => q(by),
+      q(0022) => q(be),
+      q(0023) => q(bz),
+      q(0024) => q(bj),
+      q(0025) => q(bm),
+      q(0026) => q(bt),
+      q(0027) => q(bo),
+      q(0028) => q(bq),
+      q(0029) => q(ba),
+      q(0030) => q(bw),
+      q(0031) => q(bv),
+      q(0032) => q(br),
+      q(0033) => q(io),
+      q(0034) => q(bn),
+      q(0035) => q(bg),
+      q(0036) => q(bf),
+      q(0037) => q(bi),
+      q(0038) => q(cv),
+      q(0039) => q(kh),
+      q(0040) => q(cm),
+      q(0041) => q(ca),
+      q(0042) => q(ky),
+      q(0043) => q(cf),
+      q(0044) => q(td),
+      q(0045) => q(cl),
+      q(0046) => q(cn),
+      q(0047) => q(cx),
+      q(0048) => q(cc),
+      q(0049) => q(co),
+      q(0050) => q(km),
+      q(0051) => q(cd),
+      q(0052) => q(cg),
+      q(0053) => q(ck),
+      q(0054) => q(cr),
+      q(0055) => q(ci),
+      q(0056) => q(hr),
+      q(0057) => q(cu),
+      q(0058) => q(cw),
+      q(0059) => q(cy),
+      q(0060) => q(cz),
+      q(0061) => q(dk),
+      q(0062) => q(dj),
+      q(0063) => q(dm),
+      q(0064) => q(do),
+      q(0065) => q(ec),
+      q(0066) => q(eg),
+      q(0067) => q(sv),
+      q(0068) => q(gq),
+      q(0069) => q(er),
+      q(0070) => q(ee),
+      q(0071) => q(et),
+      q(0072) => q(fk),
+      q(0073) => q(fo),
+      q(0074) => q(fj),
+      q(0075) => q(fi),
+      q(0076) => q(fr),
+      q(0077) => q(gf),
+      q(0078) => q(pf),
+      q(0079) => q(tf),
+      q(0080) => q(ga),
+      q(0081) => q(gm),
+      q(0082) => q(ge),
+      q(0083) => q(de),
+      q(0084) => q(gh),
+      q(0085) => q(gi),
+      q(0086) => q(gr),
+      q(0087) => q(gl),
+      q(0088) => q(gd),
+      q(0089) => q(gp),
+      q(0090) => q(gu),
+      q(0091) => q(gt),
+      q(0092) => q(gg),
+      q(0093) => q(gn),
+      q(0094) => q(gw),
+      q(0095) => q(gy),
+      q(0096) => q(ht),
+      q(0097) => q(hm),
+      q(0098) => q(va),
+      q(0099) => q(hn),
+      q(0100) => q(hk),
+      q(0101) => q(hu),
+      q(0102) => q(is),
+      q(0103) => q(in),
+      q(0104) => q(id),
+      q(0105) => q(ir),
+      q(0106) => q(iq),
+      q(0107) => q(ie),
+      q(0108) => q(im),
+      q(0109) => q(il),
+      q(0110) => q(it),
+      q(0111) => q(jm),
+      q(0112) => q(jp),
+      q(0113) => q(je),
+      q(0114) => q(jo),
+      q(0115) => q(kz),
+      q(0116) => q(ke),
+      q(0117) => q(ki),
+      q(0118) => q(kp),
+      q(0119) => q(kr),
+      q(0120) => q(kw),
+      q(0121) => q(kg),
+      q(0122) => q(la),
+      q(0123) => q(lv),
+      q(0124) => q(lb),
+      q(0125) => q(ls),
+      q(0126) => q(lr),
+      q(0127) => q(ly),
+      q(0128) => q(li),
+      q(0129) => q(lt),
+      q(0130) => q(lu),
+      q(0131) => q(mo),
+      q(0132) => q(mk),
+      q(0133) => q(mg),
+      q(0134) => q(mw),
+      q(0135) => q(my),
+      q(0136) => q(mv),
+      q(0137) => q(ml),
+      q(0138) => q(mt),
+      q(0139) => q(mh),
+      q(0140) => q(mq),
+      q(0141) => q(mr),
+      q(0142) => q(mu),
+      q(0143) => q(yt),
+      q(0144) => q(mx),
+      q(0145) => q(fm),
+      q(0146) => q(md),
+      q(0147) => q(mc),
+      q(0148) => q(mn),
+      q(0149) => q(me),
+      q(0150) => q(ms),
+      q(0151) => q(ma),
+      q(0152) => q(mz),
+      q(0153) => q(mm),
+      q(0154) => q(na),
+      q(0155) => q(nr),
+      q(0156) => q(np),
+      q(0157) => q(nl),
+      q(0158) => q(nc),
+      q(0159) => q(nz),
+      q(0160) => q(ni),
+      q(0161) => q(ne),
+      q(0162) => q(ng),
+      q(0163) => q(nu),
+      q(0164) => q(nf),
+      q(0165) => q(mp),
+      q(0166) => q(no),
+      q(0167) => q(om),
+      q(0168) => q(pk),
+      q(0169) => q(pw),
+      q(0170) => q(ps),
+      q(0171) => q(pa),
+      q(0172) => q(pg),
+      q(0173) => q(py),
+      q(0174) => q(pe),
+      q(0175) => q(ph),
+      q(0176) => q(pn),
+      q(0177) => q(pl),
+      q(0178) => q(pt),
+      q(0179) => q(pr),
+      q(0180) => q(qa),
+      q(0181) => q(re),
+      q(0182) => q(ro),
+      q(0183) => q(ru),
+      q(0184) => q(rw),
+      q(0185) => q(bl),
+      q(0186) => q(sh),
+      q(0187) => q(kn),
+      q(0188) => q(lc),
+      q(0189) => q(mf),
+      q(0190) => q(pm),
+      q(0191) => q(vc),
+      q(0192) => q(ws),
+      q(0193) => q(sm),
+      q(0194) => q(st),
+      q(0195) => q(sa),
+      q(0196) => q(sn),
+      q(0197) => q(rs),
+      q(0198) => q(sc),
+      q(0199) => q(sl),
+      q(0200) => q(sg),
+      q(0201) => q(sx),
+      q(0202) => q(sk),
+      q(0203) => q(si),
+      q(0204) => q(sb),
+      q(0205) => q(so),
+      q(0206) => q(za),
+      q(0207) => q(gs),
+      q(0208) => q(ss),
+      q(0209) => q(es),
+      q(0210) => q(lk),
+      q(0211) => q(sd),
+      q(0212) => q(sr),
+      q(0213) => q(sj),
+      q(0214) => q(sz),
+      q(0215) => q(se),
+      q(0216) => q(ch),
+      q(0217) => q(sy),
+      q(0218) => q(tw),
+      q(0219) => q(tj),
+      q(0220) => q(tz),
+      q(0221) => q(th),
+      q(0222) => q(tl),
+      q(0223) => q(tg),
+      q(0224) => q(tk),
+      q(0225) => q(to),
+      q(0226) => q(tt),
+      q(0227) => q(tn),
+      q(0228) => q(tr),
+      q(0229) => q(tm),
+      q(0230) => q(tc),
+      q(0231) => q(tv),
+      q(0232) => q(ug),
+      q(0233) => q(ua),
+      q(0234) => q(ae),
+      q(0235) => q(gb),
+      q(0236) => q(um),
+      q(0237) => q(us),
+      q(0238) => q(uy),
+      q(0239) => q(uz),
+      q(0240) => q(vu),
+      q(0241) => q(ve),
+      q(0242) => q(vn),
+      q(0243) => q(vg),
+      q(0244) => q(vi),
+      q(0245) => q(wf),
+      q(0246) => q(eh),
+      q(0247) => q(ye),
+      q(0248) => q(zm),
+      q(0249) => q(zw),
+      },
+   q(numeric) => {
+      q(0001) => q(004),
+      q(0002) => q(248),
+      q(0003) => q(008),
+      q(0004) => q(012),
+      q(0005) => q(016),
+      q(0006) => q(020),
+      q(0007) => q(024),
+      q(0008) => q(660),
+      q(0009) => q(010),
+      q(0010) => q(028),
+      q(0011) => q(032),
+      q(0012) => q(051),
+      q(0013) => q(533),
+      q(0014) => q(036),
+      q(0015) => q(040),
+      q(0016) => q(031),
+      q(0017) => q(044),
+      q(0018) => q(048),
+      q(0019) => q(050),
+      q(0020) => q(052),
+      q(0021) => q(112),
+      q(0022) => q(056),
+      q(0023) => q(084),
+      q(0024) => q(204),
+      q(0025) => q(060),
+      q(0026) => q(064),
+      q(0027) => q(068),
+      q(0028) => q(535),
+      q(0029) => q(070),
+      q(0030) => q(072),
+      q(0031) => q(074),
+      q(0032) => q(076),
+      q(0033) => q(086),
+      q(0034) => q(096),
+      q(0035) => q(100),
+      q(0036) => q(854),
+      q(0037) => q(108),
+      q(0038) => q(132),
+      q(0039) => q(116),
+      q(0040) => q(120),
+      q(0041) => q(124),
+      q(0042) => q(136),
+      q(0043) => q(140),
+      q(0044) => q(148),
+      q(0045) => q(152),
+      q(0046) => q(156),
+      q(0047) => q(162),
+      q(0048) => q(166),
+      q(0049) => q(170),
+      q(0050) => q(174),
+      q(0051) => q(180),
+      q(0052) => q(178),
+      q(0053) => q(184),
+      q(0054) => q(188),
+      q(0055) => q(384),
+      q(0056) => q(191),
+      q(0057) => q(192),
+      q(0058) => q(531),
+      q(0059) => q(196),
+      q(0060) => q(203),
+      q(0061) => q(208),
+      q(0062) => q(262),
+      q(0063) => q(212),
+      q(0064) => q(214),
+      q(0065) => q(218),
+      q(0066) => q(818),
+      q(0067) => q(222),
+      q(0068) => q(226),
+      q(0069) => q(232),
+      q(0070) => q(233),
+      q(0071) => q(231),
+      q(0072) => q(238),
+      q(0073) => q(234),
+      q(0074) => q(242),
+      q(0075) => q(246),
+      q(0076) => q(250),
+      q(0077) => q(254),
+      q(0078) => q(258),
+      q(0079) => q(260),
+      q(0080) => q(266),
+      q(0081) => q(270),
+      q(0082) => q(268),
+      q(0083) => q(276),
+      q(0084) => q(288),
+      q(0085) => q(292),
+      q(0086) => q(300),
+      q(0087) => q(304),
+      q(0088) => q(308),
+      q(0089) => q(312),
+      q(0090) => q(316),
+      q(0091) => q(320),
+      q(0092) => q(831),
+      q(0093) => q(324),
+      q(0094) => q(624),
+      q(0095) => q(328),
+      q(0096) => q(332),
+      q(0097) => q(334),
+      q(0098) => q(336),
+      q(0099) => q(340),
+      q(0100) => q(344),
+      q(0101) => q(348),
+      q(0102) => q(352),
+      q(0103) => q(356),
+      q(0104) => q(360),
+      q(0105) => q(364),
+      q(0106) => q(368),
+      q(0107) => q(372),
+      q(0108) => q(833),
+      q(0109) => q(376),
+      q(0110) => q(380),
+      q(0111) => q(388),
+      q(0112) => q(392),
+      q(0113) => q(832),
+      q(0114) => q(400),
+      q(0115) => q(398),
+      q(0116) => q(404),
+      q(0117) => q(296),
+      q(0118) => q(408),
+      q(0119) => q(410),
+      q(0120) => q(414),
+      q(0121) => q(417),
+      q(0122) => q(418),
+      q(0123) => q(428),
+      q(0124) => q(422),
+      q(0125) => q(426),
+      q(0126) => q(430),
+      q(0127) => q(434),
+      q(0128) => q(438),
+      q(0129) => q(440),
+      q(0130) => q(442),
+      q(0131) => q(446),
+      q(0132) => q(807),
+      q(0133) => q(450),
+      q(0134) => q(454),
+      q(0135) => q(458),
+      q(0136) => q(462),
+      q(0137) => q(466),
+      q(0138) => q(470),
+      q(0139) => q(584),
+      q(0140) => q(474),
+      q(0141) => q(478),
+      q(0142) => q(480),
+      q(0143) => q(175),
+      q(0144) => q(484),
+      q(0145) => q(583),
+      q(0146) => q(498),
+      q(0147) => q(492),
+      q(0148) => q(496),
+      q(0149) => q(499),
+      q(0150) => q(500),
+      q(0151) => q(504),
+      q(0152) => q(508),
+      q(0153) => q(104),
+      q(0154) => q(516),
+      q(0155) => q(520),
+      q(0156) => q(524),
+      q(0157) => q(528),
+      q(0158) => q(540),
+      q(0159) => q(554),
+      q(0160) => q(558),
+      q(0161) => q(562),
+      q(0162) => q(566),
+      q(0163) => q(570),
+      q(0164) => q(574),
+      q(0165) => q(580),
+      q(0166) => q(578),
+      q(0167) => q(512),
+      q(0168) => q(586),
+      q(0169) => q(585),
+      q(0170) => q(275),
+      q(0171) => q(591),
+      q(0172) => q(598),
+      q(0173) => q(600),
+      q(0174) => q(604),
+      q(0175) => q(608),
+      q(0176) => q(612),
+      q(0177) => q(616),
+      q(0178) => q(620),
+      q(0179) => q(630),
+      q(0180) => q(634),
+      q(0181) => q(638),
+      q(0182) => q(642),
+      q(0183) => q(643),
+      q(0184) => q(646),
+      q(0185) => q(652),
+      q(0186) => q(654),
+      q(0187) => q(659),
+      q(0188) => q(662),
+      q(0189) => q(663),
+      q(0190) => q(666),
+      q(0191) => q(670),
+      q(0192) => q(882),
+      q(0193) => q(674),
+      q(0194) => q(678),
+      q(0195) => q(682),
+      q(0196) => q(686),
+      q(0197) => q(688),
+      q(0198) => q(690),
+      q(0199) => q(694),
+      q(0200) => q(702),
+      q(0201) => q(534),
+      q(0202) => q(703),
+      q(0203) => q(705),
+      q(0204) => q(090),
+      q(0205) => q(706),
+      q(0206) => q(710),
+      q(0207) => q(239),
+      q(0208) => q(728),
+      q(0209) => q(724),
+      q(0210) => q(144),
+      q(0211) => q(729),
+      q(0212) => q(740),
+      q(0213) => q(744),
+      q(0214) => q(748),
+      q(0215) => q(752),
+      q(0216) => q(756),
+      q(0217) => q(760),
+      q(0218) => q(158),
+      q(0219) => q(762),
+      q(0220) => q(834),
+      q(0221) => q(764),
+      q(0222) => q(626),
+      q(0223) => q(768),
+      q(0224) => q(772),
+      q(0225) => q(776),
+      q(0226) => q(780),
+      q(0227) => q(788),
+      q(0228) => q(792),
+      q(0229) => q(795),
+      q(0230) => q(796),
+      q(0231) => q(798),
+      q(0232) => q(800),
+      q(0233) => q(804),
+      q(0234) => q(784),
+      q(0235) => q(826),
+      q(0236) => q(581),
+      q(0237) => q(840),
+      q(0238) => q(858),
+      q(0239) => q(860),
+      q(0240) => q(548),
+      q(0241) => q(862),
+      q(0242) => q(704),
+      q(0243) => q(092),
+      q(0244) => q(850),
+      q(0245) => q(876),
+      q(0246) => q(732),
+      q(0247) => q(887),
+      q(0248) => q(894),
+      q(0249) => q(716),
+      },
+};
+
+1;
diff --git a/lib/5.24.1/Locale/Codes/Country_Retired.pm b/lib/5.24.1/Locale/Codes/Country_Retired.pm
new file mode 100644
index 00000000..c07e44a4
--- /dev/null
+++ b/lib/5.24.1/Locale/Codes/Country_Retired.pm
@@ -0,0 +1,586 @@
+package #
+Locale::Codes::Country_Retired;
+
+# This file was automatically generated.  Any changes to this file will
+# be lost the next time 'deprecate_codes' is run.
+#    Generated on: Tue Dec  1 14:45:28 EST 2015
+
+use strict;
+require 5.006;
+use warnings;
+use utf8;
+
+our($VERSION);
+$VERSION='3.37';
+
+$Locale::Codes::Retired{'country'}{'alpha-2'}{'code'} = {
+   q(an) => q(Netherlands Antilles),
+   q(cs) => q(Serbia and Montenegro),
+   q(fx) => q(France, Metropolitan),
+   q(tp) => q(East Timor),
+   q(yu) => q(Yugoslavia),
+   q(zr) => q(Zaire),
+};
+
+$Locale::Codes::Retired{'country'}{'alpha-3'}{'code'} = {
+   q(ant) => q(Netherlands Antilles),
+   q(ata) => q(Antarctica),
+   q(atf) => q(French Southern and Antarctic Lands),
+   q(bvt) => q(Bouvet Island),
+   q(cck) => q(Cocos (Keeling) Islands),
+   q(cxr) => q(Christmas Island),
+   q(fxx) => q(France, Metropolitan),
+   q(hmd) => q(Heard Island and Mcdonald Islands),
+   q(iot) => q(British Indian Ocean Territory),
+   q(rom) => q(Romania),
+   q(scg) => q(Serbia and Montenegro),
+   q(sgs) => q(South Georgia and the Islands),
+   q(tmp) => q(East Timor),
+   q(twn) => q(Taiwan),
+   q(umi) => q(United States Minor Outlying Islands),
+   q(yug) => q(Yugoslavia),
+   q(zar) => q(Zaire),
+};
+
+$Locale::Codes::Retired{'country'}{'dom'}{'code'} = {
+   q(AC) => q(Ascension Island),
+   q(AD) => q(Andorra),
+   q(AE) => q(United Arab Emirates),
+   q(AF) => q(Afghanistan),
+   q(AG) => q(Antigua and Barbuda),
+   q(AI) => q(Anguilla),
+   q(AL) => q(Albania),
+   q(AM) => q(Armenia),
+   q(AN) => q(Netherlands Antilles),
+   q(AO) => q(Angola),
+   q(AQ) => q(Antarctica),
+   q(AR) => q(Argentina),
+   q(AS) => q(American Samoa),
+   q(AT) => q(Austria),
+   q(AU) => q(Australia),
+   q(AW) => q(Aruba),
+   q(AX) => q(Aland Islands),
+   q(AZ) => q(Azerbaijan),
+   q(BA) => q(Bosnia and Herzegovina),
+   q(BB) => q(Barbados),
+   q(BD) => q(Bangladesh),
+   q(BE) => q(Belgium),
+   q(BF) => q(Burkina Faso),
+   q(BG) => q(Bulgaria),
+   q(BH) => q(Bahrain),
+   q(BI) => q(Burundi),
+   q(BJ) => q(Benin),
+   q(BL) => q(Saint Barthelemy),
+   q(BM) => q(Bermuda),
+   q(BN) => q(Brunei Darussalam),
+   q(BO) => q(Bolivia, Plurinational State of),
+   q(BQ) => q(Bonaire, Sint Eustatius and Saba),
+   q(BR) => q(Brazil),
+   q(BS) => q(Bahamas),
+   q(BT) => q(Bhutan),
+   q(BV) => q(Bouvet Island),
+   q(BW) => q(Botswana),
+   q(BY) => q(Belarus),
+   q(BZ) => q(Belize),
+   q(CA) => q(Canada),
+   q(CC) => q(Cocos (Keeling) Islands),
+   q(CD) => q(Congo, The Democratic Republic of the),
+   q(CF) => q(Central African Republic),
+   q(CG) => q(Congo),
+   q(CH) => q(Switzerland),
+   q(CI) => q(Cote d'Ivoire),
+   q(CK) => q(Cook Islands),
+   q(CL) => q(Chile),
+   q(CM) => q(Cameroon),
+   q(CN) => q(China),
+   q(CO) => q(Colombia),
+   q(CR) => q(Costa Rica),
+   q(CU) => q(Cuba),
+   q(CV) => q(Cape Verde),
+   q(CW) => q(Curacao),
+   q(CX) => q(Christmas Island),
+   q(CY) => q(Cyprus),
+   q(CZ) => q(Czech Republic),
+   q(DE) => q(Germany),
+   q(DJ) => q(Djibouti),
+   q(DK) => q(Denmark),
+   q(DM) => q(Dominica),
+   q(DO) => q(Dominican Republic),
+   q(DZ) => q(Algeria),
+   q(EC) => q(Ecuador),
+   q(EE) => q(Estonia),
+   q(EG) => q(Egypt),
+   q(EH) => q(Western Sahara),
+   q(ER) => q(Eritrea),
+   q(ES) => q(Spain),
+   q(ET) => q(Ethiopia),
+   q(EU) => q(European Union),
+   q(FI) => q(Finland),
+   q(FJ) => q(Fiji),
+   q(FK) => q(Falkland Islands (Malvinas)),
+   q(FM) => q(Micronesia, Federated States of),
+   q(FO) => q(Faroe Islands),
+   q(FR) => q(France),
+   q(FX) => q(France, Metropolitan),
+   q(GA) => q(Gabon),
+   q(GB) => q(United Kingdom),
+   q(GD) => q(Grenada),
+   q(GE) => q(Georgia),
+   q(GF) => q(French Guiana),
+   q(GG) => q(Guernsey),
+   q(GH) => q(Ghana),
+   q(GI) => q(Gibraltar),
+   q(GL) => q(Greenland),
+   q(GM) => q(Gambia),
+   q(GN) => q(Guinea),
+   q(GP) => q(Guadeloupe),
+   q(GQ) => q(Equatorial Guinea),
+   q(GR) => q(Greece),
+   q(GS) => q(South Georgia and the South Sandwich Islands),
+   q(GT) => q(Guatemala),
+   q(GU) => q(Guam),
+   q(GW) => q(Guinea-Bissau),
+   q(GY) => q(Guyana),
+   q(HK) => q(Hong Kong),
+   q(HM) => q(Heard Island and Mcdonald Islands),
+   q(HN) => q(Honduras),
+   q(HR) => q(Croatia),
+   q(HT) => q(Haiti),
+   q(HU) => q(Hungary),
+   q(ID) => q(Indonesia),
+   q(IE) => q(Ireland),
+   q(IL) => q(Israel),
+   q(IM) => q(Isle of Man),
+   q(IN) => q(India),
+   q(IO) => q(British Indian Ocean Territory),
+   q(IQ) => q(Iraq),
+   q(IR) => q(Iran, Islamic Republic of),
+   q(IS) => q(Iceland),
+   q(IT) => q(Italy),
+   q(JE) => q(Jersey),
+   q(JM) => q(Jamaica),
+   q(JO) => q(Jordan),
+   q(JP) => q(Japan),
+   q(KE) => q(Kenya),
+   q(KG) => q(Kyrgyzstan),
+   q(KH) => q(Cambodia),
+   q(KI) => q(Kiribati),
+   q(KM) => q(Comoros),
+   q(KN) => q(Saint Kitts and Nevis),
+   q(KP) => q(Korea, Democratic People's Republic of),
+   q(KR) => q(Korea, Republic of),
+   q(KW) => q(Kuwait),
+   q(KY) => q(Cayman Islands),
+   q(KZ) => q(Kazakhstan),
+   q(LA) => q(Lao People's Democratic Republic),
+   q(LB) => q(Lebanon),
+   q(LC) => q(Saint Lucia),
+   q(LI) => q(Liechtenstein),
+   q(LK) => q(Sri Lanka),
+   q(LR) => q(Liberia),
+   q(LS) => q(Lesotho),
+   q(LT) => q(Lithuania),
+   q(LU) => q(Luxembourg),
+   q(LV) => q(Latvia),
+   q(LY) => q(Libya),
+   q(MA) => q(Morocco),
+   q(MC) => q(Monaco),
+   q(MD) => q(Moldova, Republic of),
+   q(ME) => q(Montenegro),
+   q(MF) => q(Saint Martin (French part)),
+   q(MG) => q(Madagascar),
+   q(MH) => q(Marshall Islands),
+   q(MK) => q(Macedonia, The Former Yugoslav Republic of),
+   q(ML) => q(Mali),
+   q(MM) => q(Myanmar),
+   q(MN) => q(Mongolia),
+   q(MO) => q(Macao),
+   q(MP) => q(Northern Mariana Islands),
+   q(MQ) => q(Martinique),
+   q(MR) => q(Mauritania),
+   q(MS) => q(Montserrat),
+   q(MT) => q(Malta),
+   q(MU) => q(Mauritius),
+   q(MV) => q(Maldives),
+   q(MW) => q(Malawi),
+   q(MX) => q(Mexico),
+   q(MY) => q(Malaysia),
+   q(MZ) => q(Mozambique),
+   q(NA) => q(Namibia),
+   q(NC) => q(New Caledonia),
+   q(NE) => q(Niger),
+   q(NF) => q(Norfolk Island),
+   q(NG) => q(Nigeria),
+   q(NI) => q(Nicaragua),
+   q(NL) => q(Netherlands),
+   q(NO) => q(Norway),
+   q(NP) => q(Nepal),
+   q(NR) => q(Nauru),
+   q(NU) => q(Niue),
+   q(NZ) => q(New Zealand),
+   q(OM) => q(Oman),
+   q(PA) => q(Panama),
+   q(PE) => q(Peru),
+   q(PF) => q(French Polynesia),
+   q(PG) => q(Papua New Guinea),
+   q(PH) => q(Philippines),
+   q(PK) => q(Pakistan),
+   q(PL) => q(Poland),
+   q(PM) => q(Saint Pierre and Miquelon),
+   q(PN) => q(Pitcairn),
+   q(PR) => q(Puerto Rico),
+   q(PS) => q(Palestinian Territory, Occupied),
+   q(PT) => q(Portugal),
+   q(PW) => q(Palau),
+   q(PY) => q(Paraguay),
+   q(QA) => q(Qatar),
+   q(RE) => q(Reunion),
+   q(RO) => q(Romania),
+   q(RS) => q(Serbia),
+   q(RU) => q(Russian Federation),
+   q(RW) => q(Rwanda),
+   q(SA) => q(Saudi Arabia),
+   q(SB) => q(Solomon Islands),
+   q(SC) => q(Seychelles),
+   q(SD) => q(Sudan),
+   q(SE) => q(Sweden),
+   q(SG) => q(Singapore),
+   q(SH) => q(Saint Helena, Ascension and Tristan da Cunha),
+   q(SI) => q(Slovenia),
+   q(SJ) => q(Svalbard and Jan Mayen),
+   q(SK) => q(Slovakia),
+   q(SL) => q(Sierra Leone),
+   q(SM) => q(San Marino),
+   q(SN) => q(Senegal),
+   q(SO) => q(Somalia),
+   q(SR) => q(Suriname),
+   q(SS) => q(South Sudan),
+   q(ST) => q(Sao Tome and Principe),
+   q(SU) => q(Soviet Union),
+   q(SV) => q(El Salvador),
+   q(SX) => q(Sint Maarten (Dutch part)),
+   q(SY) => q(Syrian Arab Republic),
+   q(SZ) => q(Swaziland),
+   q(TC) => q(Turks and Caicos Islands),
+   q(TD) => q(Chad),
+   q(TF) => q(French Southern Territories),
+   q(TG) => q(Togo),
+   q(TH) => q(Thailand),
+   q(TJ) => q(Tajikistan),
+   q(TK) => q(Tokelau),
+   q(TL) => q(Timor-Leste),
+   q(TM) => q(Turkmenistan),
+   q(TN) => q(Tunisia),
+   q(TO) => q(Tonga),
+   q(TP) => q(Portuguese Timor),
+   q(TR) => q(Turkey),
+   q(TT) => q(Trinidad and Tobago),
+   q(TV) => q(Tuvalu),
+   q(TW) => q(Taiwan, Province of China),
+   q(TZ) => q(Tanzania, United Republic of),
+   q(UA) => q(Ukraine),
+   q(UG) => q(Uganda),
+   q(UK) => q(United Kingdom),
+   q(UM) => q(United States Minor Outlying Islands),
+   q(US) => q(United States),
+   q(UY) => q(Uruguay),
+   q(UZ) => q(Uzbekistan),
+   q(VA) => q(Holy See (Vatican City State)),
+   q(VC) => q(Saint Vincent and the Grenadines),
+   q(VE) => q(Venezuela, Bolivarian Republic of),
+   q(VG) => q(Virgin Islands, British),
+   q(VI) => q(Virgin Islands, U.S.),
+   q(VN) => q(Viet Nam),
+   q(VU) => q(Vanuatu),
+   q(WF) => q(Wallis and Futuna),
+   q(WS) => q(Samoa),
+   q(YE) => q(Yemen),
+   q(YT) => q(Mayotte),
+   q(YU) => q(Yugoslavia ),
+   q(ZA) => q(South Africa),
+   q(ZM) => q(Zambia),
+   q(ZW) => q(Zimbabwe),
+   q(ac) => q(Ascension Island),
+   q(an) => q(Netherlands Antilles),
+   q(eu) => q(European Union),
+   q(su) => q(USSR),
+   q(tp) => q(East Timor),
+   q(uk) => q(United Kingdom),
+};
+
+$Locale::Codes::Retired{'country'}{'numeric'}{'code'} = {
+   q(010) => q(Antarctica),
+   q(074) => q(Bouvet Island),
+   q(086) => q(British Indian Ocean Territory),
+   q(158) => q(Taiwan),
+   q(162) => q(Christmas Island),
+   q(166) => q(Cocos (Keeling) Islands),
+   q(239) => q(South Georgia and the Islands),
+   q(249) => q(France, Metropolitan),
+   q(260) => q(French Southern and Antarctic Lands),
+   q(334) => q(Heard Island and Mcdonald Islands),
+   q(530) => q(Netherlands Antilles),
+   q(581) => q(United States Minor Outlying Islands),
+   q(680) => q(Sark),
+   q(736) => q(Sudan),
+   q(830) => q(Channel Islands),
+   q(891) => q(Serbia and Montenegro),
+};
+
+$Locale::Codes::Retired{'country'}{'alpha-2'}{'name'} = {
+   q(bolivia) => [ q(bo), q(Bolivia) ],
+   q(bolivia, plurinational state of) => [ q(bo), q(Bolivia, Plurinational State of) ],
+   q(bonaire, saint eustatius and saba) => [ q(bq), q(Bonaire, Saint Eustatius and Saba) ],
+   q(bosnia and herzegowina) => [ q(ba), q(Bosnia and Herzegowina) ],
+   q(cape verde) => [ q(cv), q(Cape Verde) ],
+   q(congo, the democratic republic of the) => [ q(cd), q(Congo, The Democratic Republic of the) ],
+   q(east timor) => [ q(tl), q(East Timor) ],
+   q(falkland islands (malvinas)) => [ q(fk), q(Falkland Islands (Malvinas)) ],
+   q(france, metropolitan) => [ q(fx), q(France, Metropolitan) ],
+   q(heard and mc donald islands) => [ q(hm), q(Heard and Mc Donald Islands) ],
+   q(holy see (the) [vatican city state]) => [ q(va), q(Holy See (The) [Vatican City State]) ],
+   q(holy see (vatican city state)) => [ q(va), q(Holy See (Vatican City State)) ],
+   q(iran (islamic republic of)) => [ q(ir), q(Iran (Islamic Republic of)) ],
+   q(iran, islamic republic of) => [ q(ir), q(Iran, Islamic Republic of) ],
+   q(iran, the islamic republic of) => [ q(ir), q(Iran, The Islamic Republic of) ],
+   q(kazakstan) => [ q(kz), q(Kazakstan) ],
+   q(korea, democratic people's republic of) => [ q(kp), q(Korea, Democratic People's Republic of) ],
+   q(korea, republic of) => [ q(kr), q(Korea, Republic of) ],
+   q(libyan arab jamahiriya) => [ q(ly), q(Libyan Arab Jamahiriya) ],
+   q(macau) => [ q(mo), q(Macau) ],
+   q(micronesia (federated states of)) => [ q(fm), q(Micronesia (Federated States of)) ],
+   q(micronesia, federated states of) => [ q(fm), q(Micronesia, Federated States of) ],
+   q(micronesia, the federated states of) => [ q(fm), q(Micronesia, The Federated States of) ],
+   q(moldova, republic of) => [ q(md), q(Moldova, Republic of) ],
+   q(netherlands antilles) => [ q(an), q(Netherlands Antilles) ],
+   q(saint helena) => [ q(sh), q(Saint Helena) ],
+   q(saint martin) => [ q(mf), q(Saint Martin) ],
+   q(serbia and montenegro) => [ q(cs), q(Serbia and Montenegro) ],
+   q(st. helena) => [ q(sh), q(St. Helena) ],
+   q(st. pierre and miquelon) => [ q(pm), q(St. Pierre and Miquelon) ],
+   q(svalbard and jan mayen islands) => [ q(sj), q(Svalbard and Jan Mayen Islands) ],
+   q(taiwan, province of china) => [ q(tw), q(Taiwan, Province of China) ],
+   q(united kingdom) => [ q(gb), q(United Kingdom) ],
+   q(united states) => [ q(us), q(United States) ],
+   q(vatican city state (holy see)) => [ q(va), q(Vatican City State (Holy See)) ],
+   q(venezuela) => [ q(ve), q(Venezuela) ],
+   q(venezuela, bolivarian republic of) => [ q(ve), q(Venezuela, Bolivarian Republic of) ],
+   q(venezuela, bolivarian republic of ) => [ q(ve), q(Venezuela, Bolivarian Republic of ) ],
+   q(vietnam) => [ q(vn), q(Vietnam) ],
+   q(virgin islands (british)) => [ q(vg), q(Virgin Islands (British)) ],
+   q(virgin islands (u.s.)) => [ q(vi), q(Virgin Islands (U.S.)) ],
+   q(virgin islands, british) => [ q(vg), q(Virgin Islands, British) ],
+   q(virgin islands, u.s.) => [ q(vi), q(Virgin Islands, U.S.) ],
+   q(wallis and futuna islands) => [ q(wf), q(Wallis and Futuna Islands) ],
+   q(yugoslavia) => [ q(yu), q(Yugoslavia) ],
+   q(zaire) => [ q(zr), q(Zaire) ],
+};
+
+$Locale::Codes::Retired{'country'}{'alpha-3'}{'name'} = {
+   q(antarctica) => [ q(ata), q(Antarctica) ],
+   q(bolivia) => [ q(bol), q(Bolivia) ],
+   q(bolivia (plurinational state of)) => [ q(bol), q(Bolivia (Plurinational State of)) ],
+   q(bolivia, plurinational state of) => [ q(bol), q(Bolivia, Plurinational State of) ],
+   q(bonaire, saint eustatius and saba) => [ q(bes), q(Bonaire, Saint Eustatius and Saba) ],
+   q(bouvet island) => [ q(bvt), q(Bouvet Island) ],
+   q(british indian ocean territory) => [ q(iot), q(British Indian Ocean Territory) ],
+   q(british virgin islands) => [ q(vgb), q(British Virgin Islands) ],
+   q(cabo verde) => [ q(cpv), q(Cabo Verde) ],
+   q(cape verde) => [ q(cpv), q(Cape Verde) ],
+   q(china, hong kong special administrative region) => [ q(hkg), q(China, Hong Kong Special Administrative Region) ],
+   q(china, macao special administrative region) => [ q(mac), q(China, Macao Special Administrative Region) ],
+   q(christmas island) => [ q(cxr), q(Christmas Island) ],
+   q(cocos (keeling) islands) => [ q(cck), q(Cocos (Keeling) Islands) ],
+   q(congo, the democratic republic of the) => [ q(cod), q(Congo, The Democratic Republic of the) ],
+   q(democratic people's republic of korea) => [ q(prk), q(Democratic People's Republic of Korea) ],
+   q(democratic republic of the congo) => [ q(cod), q(Democratic Republic of the Congo) ],
+   q(east timor) => [ q(tls), q(East Timor) ],
+   q(faeroe islands) => [ q(fro), q(Faeroe Islands) ],
+   q(falkland islands (malvinas)) => [ q(flk), q(Falkland Islands (Malvinas)) ],
+   q(faroe islands) => [ q(fro), q(Faroe Islands) ],
+   q(france, metropolitan) => [ q(fxx), q(France, Metropolitan) ],
+   q(french southern and antarctic lands) => [ q(atf), q(French Southern and Antarctic Lands) ],
+   q(french southern territories) => [ q(atf), q(French Southern Territories) ],
+   q(heard island and mcdonald islands) => [ q(hmd), q(Heard Island and Mcdonald Islands) ],
+   q(holy see) => [ q(vat), q(Holy See) ],
+   q(holy see (the) [vatican city state]) => [ q(vat), q(Holy See (The) [Vatican City State]) ],
+   q(holy see (vatican city state)) => [ q(vat), q(Holy See (Vatican City State)) ],
+   q(hong kong) => [ q(hkg), q(Hong Kong) ],
+   q(hong kong special administrative region of china) => [ q(hkg), q(Hong Kong Special Administrative Region of China) ],
+   q(iran (islamic republic of)) => [ q(irn), q(Iran (Islamic Republic of)) ],
+   q(iran, islamic republic of) => [ q(irn), q(Iran, Islamic Republic of) ],
+   q(iran, the islamic republic of) => [ q(irn), q(Iran, The Islamic Republic of) ],
+   q(kazakstan) => [ q(kaz), q(Kazakstan) ],
+   q(korea, democratic people's republic of) => [ q(prk), q(Korea, Democratic People's Republic of) ],
+   q(korea, republic of) => [ q(kor), q(Korea, Republic of) ],
+   q(libyan arab jamahiriya) => [ q(lby), q(Libyan Arab Jamahiriya) ],
+   q(macao) => [ q(mac), q(Macao) ],
+   q(macao special administrative region of china) => [ q(mac), q(Macao Special Administrative Region of China) ],
+   q(macau) => [ q(mac), q(Macau) ],
+   q(macedonia, the former yugoslav republic of) => [ q(mkd), q(Macedonia, the Former Yugoslav Republic of) ],
+   q(micronesia (federated states of)) => [ q(fsm), q(Micronesia (Federated States of)) ],
+   q(micronesia, federated states of) => [ q(fsm), q(Micronesia, Federated States of) ],
+   q(micronesia, the federated states of) => [ q(fsm), q(Micronesia, The Federated States of) ],
+   q(moldova, republic of) => [ q(mda), q(Moldova, Republic of) ],
+   q(netherlands antilles) => [ q(ant), q(Netherlands Antilles) ],
+   q(palestinian territory, occupied) => [ q(pse), q(Palestinian Territory, Occupied) ],
+   q(republic of korea) => [ q(kor), q(Republic of Korea) ],
+   q(republic of moldova) => [ q(mda), q(Republic of Moldova) ],
+   q(saint helena) => [ q(shn), q(Saint Helena) ],
+   q(saint-barthelemy) => [ q(blm), q(Saint-Barthelemy) ],
+   q(saint-martin (french part)) => [ q(maf), q(Saint-Martin (French part)) ],
+   q(serbia and montenegro) => [ q(scg), q(Serbia and Montenegro) ],
+   q(south georgia and the islands) => [ q(sgs), q(South Georgia and the Islands) ],
+   q(south georgia and the south sandwich islands) => [ q(sgs), q(South Georgia and the South Sandwich Islands) ],
+   q(state of palestine) => [ q(pse), q(State of Palestine) ],
+   q(svalbard and jan mayen) => [ q(sjm), q(Svalbard and Jan Mayen) ],
+   q(svalbard and jan mayen islands) => [ q(sjm), q(Svalbard and Jan Mayen Islands) ],
+   q(taiwan) => [ q(twn), q(Taiwan) ],
+   q(taiwan, province of china) => [ q(twn), q(Taiwan, Province of China) ],
+   q(tanzania, united republic of) => [ q(tza), q(Tanzania, United Republic of) ],
+   q(the former yugoslav republic of macedonia) => [ q(mkd), q(The former Yugoslav Republic of Macedonia) ],
+   q(united kingdom) => [ q(gbr), q(United Kingdom) ],
+   q(united kingdom of great britain and northern ireland) => [ q(gbr), q(United Kingdom of Great Britain and Northern Ireland) ],
+   q(united republic of tanzania) => [ q(tza), q(United Republic of Tanzania) ],
+   q(united states) => [ q(usa), q(United States) ],
+   q(united states minor outlying islands) => [ q(umi), q(United States Minor Outlying Islands) ],
+   q(united states of america) => [ q(usa), q(United States of America) ],
+   q(united states virgin islands) => [ q(vir), q(United States Virgin Islands) ],
+   q(venezuela) => [ q(ven), q(Venezuela) ],
+   q(venezuela (bolivarian republic of)) => [ q(ven), q(Venezuela (Bolivarian Republic of)) ],
+   q(venezuela, bolivarian republic of ) => [ q(ven), q(Venezuela, Bolivarian Republic of ) ],
+   q(vietnam) => [ q(vnm), q(Vietnam) ],
+   q(virgin islands, british) => [ q(vgb), q(Virgin Islands, British) ],
+   q(virgin islands, u.s.) => [ q(vir), q(Virgin Islands, U.S.) ],
+   q(wallis and futuna) => [ q(wlf), q(Wallis and Futuna) ],
+   q(wallis and futuna islands) => [ q(wlf), q(Wallis and Futuna Islands) ],
+   q(yugoslavia) => [ q(yug), q(Yugoslavia) ],
+   q(zaire) => [ q(zar), q(Zaire) ],
+};
+
+$Locale::Codes::Retired{'country'}{'dom'}{'name'} = {
+   q(ascension island) => [ q(ac), q(Ascension Island) ],
+   q(bolivia, plurinational state of) => [ q(bo), q(Bolivia, Plurinational State of) ],
+   q(bonaire, saint eustatius and saba) => [ q(bq), q(Bonaire, Saint Eustatius and Saba) ],
+   q(bonaire, sint eustatius and saba) => [ q(BQ), q(Bonaire, Sint Eustatius and Saba) ],
+   q(cape verde) => [ q(cv), q(Cape Verde) ],
+   q(congo, the democratic republic of the) => [ q(cd), q(Congo, The Democratic Republic of the) ],
+   q(east timor) => [ q(tp), q(East Timor) ],
+   q(european union) => [ q(eu), q(European Union) ],
+   q(falkland islands (malvinas)) => [ q(fk), q(Falkland Islands (Malvinas)) ],
+   q(france, metropolitan) => [ q(FX), q(France, Metropolitan) ],
+   q(holy see (the) [vatican city state]) => [ q(va), q(Holy See (The) [Vatican City State]) ],
+   q(holy see (vatican city state)) => [ q(va), q(Holy See (Vatican City State)) ],
+   q(iran, islamic republic of) => [ q(ir), q(Iran, Islamic Republic of) ],
+   q(iran, the islamic republic of) => [ q(ir), q(Iran, The Islamic Republic of) ],
+   q(korea, democratic people's republic of) => [ q(kp), q(Korea, Democratic People's Republic of) ],
+   q(korea, republic of) => [ q(kr), q(Korea, Republic of) ],
+   q(libyan arab jamahiriya) => [ q(LY), q(Libyan Arab Jamahiriya) ],
+   q(micronesia, federated states of) => [ q(fm), q(Micronesia, Federated States of) ],
+   q(micronesia, the federated states of) => [ q(fm), q(Micronesia, The Federated States of) ],
+   q(moldova, republic of) => [ q(md), q(Moldova, Republic of) ],
+   q(netherlands antilles) => [ q(an), q(Netherlands Antilles) ],
+   q(portuguese timor) => [ q(TP), q(Portuguese Timor) ],
+   q(portuguese timor ) => [ q(TP), q(Portuguese Timor ) ],
+   q(saint helena, ascension and tristan da cunha) => [ q(SH), q(Saint Helena, Ascension and Tristan da Cunha) ],
+   q(saint martin) => [ q(MF), q(Saint Martin) ],
+   q(soviet union) => [ q(SU), q(Soviet Union) ],
+   q(soviet union ) => [ q(SU), q(Soviet Union ) ],
+   q(taiwan) => [ q(TW), q(Taiwan) ],
+   q(taiwan, province of china) => [ q(tw), q(Taiwan, Province of China) ],
+   q(united kingdom) => [ q(gb), q(United Kingdom) ],
+   q(united states) => [ q(us), q(United States) ],
+   q(ussr) => [ q(su), q(USSR) ],
+   q(venezuela, bolivarian republic of) => [ q(ve), q(Venezuela, Bolivarian Republic of) ],
+   q(venezuela, bolivarian republic of ) => [ q(ve), q(Venezuela, Bolivarian Republic of ) ],
+   q(virgin islands, british) => [ q(vg), q(Virgin Islands, British) ],
+   q(virgin islands, u.s.) => [ q(vi), q(Virgin Islands, U.S.) ],
+   q(yugoslavia ) => [ q(YU), q(Yugoslavia ) ],
+};
+
+$Locale::Codes::Retired{'country'}{'numeric'}{'name'} = {
+   q(antarctica) => [ q(010), q(Antarctica) ],
+   q(bolivia) => [ q(068), q(Bolivia) ],
+   q(bolivia (plurinational state of)) => [ q(068), q(Bolivia (Plurinational State of)) ],
+   q(bolivia, plurinational state of) => [ q(068), q(Bolivia, Plurinational State of) ],
+   q(bonaire, saint eustatius and saba) => [ q(535), q(Bonaire, Saint Eustatius and Saba) ],
+   q(bouvet island) => [ q(074), q(Bouvet Island) ],
+   q(british indian ocean territory) => [ q(086), q(British Indian Ocean Territory) ],
+   q(british virgin islands) => [ q(092), q(British Virgin Islands) ],
+   q(cabo verde) => [ q(132), q(Cabo Verde) ],
+   q(cape verde) => [ q(132), q(Cape Verde) ],
+   q(channel islands) => [ q(830), q(Channel Islands) ],
+   q(china, hong kong special administrative region) => [ q(344), q(China, Hong Kong Special Administrative Region) ],
+   q(china, macao special administrative region) => [ q(446), q(China, Macao Special Administrative Region) ],
+   q(christmas island) => [ q(162), q(Christmas Island) ],
+   q(cocos (keeling) islands) => [ q(166), q(Cocos (Keeling) Islands) ],
+   q(congo, the democratic republic of the) => [ q(180), q(Congo, The Democratic Republic of the) ],
+   q(democratic people's republic of korea) => [ q(408), q(Democratic People's Republic of Korea) ],
+   q(democratic republic of the congo) => [ q(180), q(Democratic Republic of the Congo) ],
+   q(east timor) => [ q(626), q(East Timor) ],
+   q(faeroe islands) => [ q(234), q(Faeroe Islands) ],
+   q(falkland islands (malvinas)) => [ q(238), q(Falkland Islands (Malvinas)) ],
+   q(faroe islands) => [ q(234), q(Faroe Islands) ],
+   q(france, metropolitan) => [ q(249), q(France, Metropolitan) ],
+   q(french southern and antarctic lands) => [ q(260), q(French Southern and Antarctic Lands) ],
+   q(french southern territories) => [ q(260), q(French Southern Territories) ],
+   q(heard island and mcdonald islands) => [ q(334), q(Heard Island and Mcdonald Islands) ],
+   q(holy see) => [ q(336), q(Holy See) ],
+   q(holy see (the) [vatican city state]) => [ q(336), q(Holy See (The) [Vatican City State]) ],
+   q(holy see (vatican city state)) => [ q(336), q(Holy See (Vatican City State)) ],
+   q(hong kong) => [ q(344), q(Hong Kong) ],
+   q(hong kong special administrative region of china) => [ q(344), q(Hong Kong Special Administrative Region of China) ],
+   q(iran (islamic republic of)) => [ q(364), q(Iran (Islamic Republic of)) ],
+   q(iran, islamic republic of) => [ q(364), q(Iran, Islamic Republic of) ],
+   q(iran, the islamic republic of) => [ q(364), q(Iran, The Islamic Republic of) ],
+   q(kazakstan) => [ q(398), q(Kazakstan) ],
+   q(korea, democratic people's republic of) => [ q(408), q(Korea, Democratic People's Republic of) ],
+   q(korea, republic of) => [ q(410), q(Korea, Republic of) ],
+   q(libyan arab jamahiriya) => [ q(434), q(Libyan Arab Jamahiriya) ],
+   q(macao) => [ q(446), q(Macao) ],
+   q(macao special administrative region of china) => [ q(446), q(Macao Special Administrative Region of China) ],
+   q(macau) => [ q(446), q(Macau) ],
+   q(macedonia, the former yugoslav republic of) => [ q(807), q(Macedonia, the Former Yugoslav Republic of) ],
+   q(micronesia (federated states of)) => [ q(583), q(Micronesia (Federated States of)) ],
+   q(micronesia, federated states of) => [ q(583), q(Micronesia, Federated States of) ],
+   q(micronesia, the federated states of) => [ q(583), q(Micronesia, The Federated States of) ],
+   q(moldova, republic of) => [ q(498), q(Moldova, Republic of) ],
+   q(netherlands antilles) => [ q(530), q(Netherlands Antilles) ],
+   q(palestinian territory, occupied) => [ q(275), q(Palestinian Territory, Occupied) ],
+   q(republic of korea) => [ q(410), q(Republic of Korea) ],
+   q(republic of moldova) => [ q(498), q(Republic of Moldova) ],
+   q(saint helena) => [ q(654), q(Saint Helena) ],
+   q(saint-barthelemy) => [ q(652), q(Saint-Barthelemy) ],
+   q(saint-martin (french part)) => [ q(663), q(Saint-Martin (French part)) ],
+   q(sark) => [ q(680), q(Sark) ],
+   q(serbia and montenegro) => [ q(891), q(Serbia and Montenegro) ],
+   q(south georgia and the islands) => [ q(239), q(South Georgia and the Islands) ],
+   q(south georgia and the south sandwich islands) => [ q(239), q(South Georgia and the South Sandwich Islands) ],
+   q(state of palestine) => [ q(275), q(State of Palestine) ],
+   q(svalbard and jan mayen) => [ q(744), q(Svalbard and Jan Mayen) ],
+   q(svalbard and jan mayen islands) => [ q(744), q(Svalbard and Jan Mayen Islands) ],
+   q(taiwan) => [ q(158), q(Taiwan) ],
+   q(taiwan, province of china) => [ q(158), q(Taiwan, Province of China) ],
+   q(tanzania, united republic of) => [ q(834), q(Tanzania, United Republic of) ],
+   q(the former yugoslav republic of macedonia) => [ q(807), q(The former Yugoslav Republic of Macedonia) ],
+   q(united kingdom) => [ q(826), q(United Kingdom) ],
+   q(united kingdom of great britain and northern ireland) => [ q(826), q(United Kingdom of Great Britain and Northern Ireland) ],
+   q(united republic of tanzania) => [ q(834), q(United Republic of Tanzania) ],
+   q(united states) => [ q(840), q(United States) ],
+   q(united states minor outlying islands) => [ q(581), q(United States Minor Outlying Islands) ],
+   q(united states of america) => [ q(840), q(United States of America) ],
+   q(united states virgin islands) => [ q(850), q(United States Virgin Islands) ],
+   q(venezuela) => [ q(862), q(Venezuela) ],
+   q(venezuela (bolivarian republic of)) => [ q(862), q(Venezuela (Bolivarian Republic of)) ],
+   q(venezuela, bolivarian republic of ) => [ q(862), q(Venezuela, Bolivarian Republic of ) ],
+   q(vietnam) => [ q(704), q(Vietnam) ],
+   q(virgin islands, british) => [ q(092), q(Virgin Islands, British) ],
+   q(virgin islands, u.s.) => [ q(850), q(Virgin Islands, U.S.) ],
+   q(wallis and futuna) => [ q(876), q(Wallis and Futuna) ],
+   q(wallis and futuna islands) => [ q(876), q(Wallis and Futuna Islands) ],
+   q(yugoslavia) => [ q(891), q(Yugoslavia) ],
+   q(zaire) => [ q(180), q(Zaire) ],
+};
+
+
+1;
diff --git a/lib/5.24.1/Locale/Codes/Currency.pm b/lib/5.24.1/Locale/Codes/Currency.pm
new file mode 100644
index 00000000..3d1f4063
--- /dev/null
+++ b/lib/5.24.1/Locale/Codes/Currency.pm
@@ -0,0 +1,98 @@
+package Locale::Codes::Currency;
+# Copyright (C) 2001      Canon Research Centre Europe (CRE).
+# Copyright (C) 2002-2009 Neil Bowers
+# Copyright (c) 2010-2015 Sullivan Beck
+# This program is free software; you can redistribute it and/or modify it
+# under the same terms as Perl itself.
+
+use strict;
+require 5.006;
+use warnings;
+
+require Exporter;
+use Carp;
+use Locale::Codes;
+use Locale::Codes::Constants;
+use Locale::Codes::Currency_Codes;
+use Locale::Codes::Currency_Retired;
+
+#=======================================================================
+#       Public Global Variables
+#=======================================================================
+
+our($VERSION,@ISA,@EXPORT,@EXPORT_OK);
+
+$VERSION='3.37';
+@ISA       = qw(Exporter);
+@EXPORT    = qw(code2currency
+                currency2code
+                all_currency_codes
+                all_currency_names
+                currency_code2code
+                LOCALE_CURR_ALPHA
+                LOCALE_CURR_NUMERIC
+               );
+
+sub code2currency {
+   return Locale::Codes::_code2name('currency',@_);
+}
+
+sub currency2code {
+   return Locale::Codes::_name2code('currency',@_);
+}
+
+sub currency_code2code {
+   return Locale::Codes::_code2code('currency',@_);
+}
+
+sub all_currency_codes {
+   return Locale::Codes::_all_codes('currency',@_);
+}
+
+sub all_currency_names {
+   return Locale::Codes::_all_names('currency',@_);
+}
+
+sub rename_currency {
+   return Locale::Codes::_rename('currency',@_);
+}
+
+sub add_currency {
+   return Locale::Codes::_add_code('currency',@_);
+}
+
+sub delete_currency {
+   return Locale::Codes::_delete_code('currency',@_);
+}
+
+sub add_currency_alias {
+   return Locale::Codes::_add_alias('currency',@_);
+}
+
+sub delete_currency_alias {
+   return Locale::Codes::_delete_alias('currency',@_);
+}
+
+sub rename_currency_code {
+   return Locale::Codes::_rename_code('currency',@_);
+}
+
+sub add_currency_code_alias {
+   return Locale::Codes::_add_code_alias('currency',@_);
+}
+
+sub delete_currency_code_alias {
+   return Locale::Codes::_delete_code_alias('currency',@_);
+}
+
+1;
+# Local Variables:
+# mode: cperl
+# indent-tabs-mode: nil
+# cperl-indent-level: 3
+# cperl-continued-statement-offset: 2
+# cperl-continued-brace-offset: 0
+# cperl-brace-offset: 0
+# cperl-brace-imaginary-offset: 0
+# cperl-label-offset: -2
+# End:
diff --git a/lib/5.24.1/Locale/Codes/Currency.pod b/lib/5.24.1/Locale/Codes/Currency.pod
new file mode 100644
index 00000000..bc5ea0d6
--- /dev/null
+++ b/lib/5.24.1/Locale/Codes/Currency.pod
@@ -0,0 +1,126 @@
+=pod
+
+=head1 NAME
+
+Locale::Codes::Currency - standard codes for currency identification
+
+=head1 SYNOPSIS
+
+    use Locale::Codes::Currency;
+
+    $curr = code2currency('usd');     # $curr gets 'US Dollar'
+    $code = currency2code('Euro');    # $code gets 'eur'
+
+    @codes   = all_currency_codes();
+    @names   = all_currency_names();
+
+=head1 DESCRIPTION
+
+This module provides access to standard codes used for identifying
+currencies and funds, such as those defined in ISO 4217.
+
+Most of the routines take an optional additional argument which
+specifies the code set to use. If not specified, the default ISO
+4217 three-letter codes will be used.
+
+=head1 SUPPORTED CODE SETS
+
+There are several different code sets you can use for identifying
+currencies. A code set may be specified using either a name, or a
+constant that is automatically exported by this module.
+
+For example, the two are equivalent:
+
+   $curr = code2currency('usd','alpha');
+   $curr = code2currency('usd',LOCALE_CURR_ALPHA);
+
+The codesets currently supported are:
+
+=over 4
+
+=item B<alpha, LOCALE_CURR_ALPHA>
+
+This is a set of three-letter (uppercase) codes from ISO 4217 such
+as EUR for Euro.
+
+Two of the codes specified by the standard (XTS which is reserved
+for testing purposes and XXX which is for transactions where no
+currency is involved) are omitted.
+
+This is the default code set.
+
+=item B<num, LOCALE_CURR_NUMERIC>
+
+This is the set of three-digit numeric codes from ISO 4217.
+
+=back
+
+=head1 ROUTINES
+
+=over 4
+
+=item B<code2currency(CODE [,CODESET] [,'retired'])>
+
+=item B<currency2code(NAME [,CODESET] [,'retired'])>
+
+=item B<currency_code2code(CODE ,CODESET ,CODESET2)>
+
+=item B<all_currency_codes([CODESET] [,'retired'])>
+
+=item B<all_currency_names([CODESET] [,'retired'])>
+
+=item B<Locale::Codes::Currency::rename_currency(CODE ,NEW_NAME [,CODESET])>
+
+=item B<Locale::Codes::Currency::add_currency(CODE ,NAME [,CODESET])>
+
+=item B<Locale::Codes::Currency::delete_currency(CODE [,CODESET])>
+
+=item B<Locale::Codes::Currency::add_currency_alias(NAME ,NEW_NAME)>
+
+=item B<Locale::Codes::Currency::delete_currency_alias(NAME)>
+
+=item B<Locale::Codes::Currency::rename_currency_code(CODE ,NEW_CODE [,CODESET])>
+
+=item B<Locale::Codes::Currency::add_currency_code_alias(CODE ,NEW_CODE [,CODESET])>
+
+=item B<Locale::Codes::Currency::delete_currency_code_alias( ODE [,CODESET])>
+
+These routines are all documented in the L<Locale::Codes::API> man page.
+
+=back
+
+=head1 SEE ALSO
+
+=over 4
+
+=item L<Locale::Codes>
+
+The Locale-Codes distribution.
+
+=item L<Locale::Codes::API>
+
+The list of functions supported by this module.
+
+=item L<http://www.iso.org/iso/support/currency_codes_list-1.htm>
+
+The ISO 4217 data.
+
+=back
+
+=head1 AUTHOR
+
+See Locale::Codes for full author history.
+
+Currently maintained by Sullivan Beck (sbeck@cpan.org).
+
+=head1 COPYRIGHT
+
+   Copyright (c) 1997-2001 Canon Research Centre Europe (CRE).
+   Copyright (c) 2001      Michael Hennecke
+   Copyright (c) 2001-2010 Neil Bowers
+   Copyright (c) 2010-2015 Sullivan Beck
+
+This module is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+=cut
diff --git a/lib/5.24.1/Locale/Codes/Currency_Codes.pm b/lib/5.24.1/Locale/Codes/Currency_Codes.pm
new file mode 100644
index 00000000..d1d39b70
--- /dev/null
+++ b/lib/5.24.1/Locale/Codes/Currency_Codes.pm
@@ -0,0 +1,3030 @@
+package #
+Locale::Codes::Currency_Codes;
+
+# This file was automatically generated.  Any changes to this file will
+# be lost the next time 'harvest_data' is run.
+#    Generated on: Tue Dec  1 14:44:02 EST 2015
+
+use strict;
+require 5.006;
+use warnings;
+use utf8;
+
+our($VERSION);
+$VERSION='3.37';
+
+$Locale::Codes::Data{'currency'}{'id'} = '0177';
+
+$Locale::Codes::Data{'currency'}{'id2names'} = {
+   q(0001) => [
+      q(Afghani),
+      ],
+   q(0002) => [
+      q(Euro),
+      ],
+   q(0003) => [
+      q(Lek),
+      ],
+   q(0004) => [
+      q(Algerian Dinar),
+      ],
+   q(0005) => [
+      q(US Dollar),
+      ],
+   q(0006) => [
+      q(Kwanza),
+      ],
+   q(0007) => [
+      q(East Caribbean Dollar),
+      ],
+   q(0008) => [
+      q(Argentine Peso),
+      ],
+   q(0009) => [
+      q(Armenian Dram),
+      ],
+   q(0010) => [
+      q(Aruban Florin),
+      ],
+   q(0011) => [
+      q(Australian Dollar),
+      ],
+   q(0012) => [
+      q(Azerbaijanian Manat),
+      ],
+   q(0013) => [
+      q(Bahamian Dollar),
+      ],
+   q(0014) => [
+      q(Bahraini Dinar),
+      ],
+   q(0015) => [
+      q(Taka),
+      ],
+   q(0016) => [
+      q(Barbados Dollar),
+      ],
+   q(0017) => [
+      q(Belarussian Ruble),
+      ],
+   q(0018) => [
+      q(Belize Dollar),
+      ],
+   q(0019) => [
+      q(CFA Franc BCEAO),
+      ],
+   q(0020) => [
+      q(Bermudian Dollar),
+      ],
+   q(0021) => [
+      q(Ngultrum),
+      ],
+   q(0022) => [
+      q(Indian Rupee),
+      ],
+   q(0023) => [
+      q(Boliviano),
+      ],
+   q(0024) => [
+      q(Mvdol),
+      ],
+   q(0025) => [
+      q(Convertible Mark),
+      ],
+   q(0026) => [
+      q(Pula),
+      ],
+   q(0027) => [
+      q(Norwegian Krone),
+      ],
+   q(0028) => [
+      q(Brazilian Real),
+      ],
+   q(0029) => [
+      q(Brunei Dollar),
+      ],
+   q(0030) => [
+      q(Bulgarian Lev),
+      ],
+   q(0031) => [
+      q(Burundi Franc),
+      ],
+   q(0032) => [
+      q(Cabo Verde Escudo),
+      ],
+   q(0033) => [
+      q(Riel),
+      ],
+   q(0034) => [
+      q(CFA Franc BEAC),
+      ],
+   q(0035) => [
+      q(Canadian Dollar),
+      ],
+   q(0036) => [
+      q(Cayman Islands Dollar),
+      ],
+   q(0037) => [
+      q(Unidad de Fomento),
+      ],
+   q(0038) => [
+      q(Chilean Peso),
+      ],
+   q(0039) => [
+      q(Yuan Renminbi),
+      ],
+   q(0040) => [
+      q(Colombian Peso),
+      ],
+   q(0041) => [
+      q(Unidad de Valor Real),
+      ],
+   q(0042) => [
+      q(Comoro Franc),
+      ],
+   q(0043) => [
+      q(Congolese Franc),
+      ],
+   q(0044) => [
+      q(New Zealand Dollar),
+      ],
+   q(0045) => [
+      q(Costa Rican Colon),
+      ],
+   q(0046) => [
+      q(Kuna),
+      ],
+   q(0047) => [
+      q(Peso Convertible),
+      ],
+   q(0048) => [
+      q(Cuban Peso),
+      ],
+   q(0049) => [
+      q(Netherlands Antillean Guilder),
+      ],
+   q(0050) => [
+      q(Czech Koruna),
+      ],
+   q(0051) => [
+      q(Danish Krone),
+      ],
+   q(0052) => [
+      q(Djibouti Franc),
+      ],
+   q(0053) => [
+      q(Dominican Peso),
+      ],
+   q(0054) => [
+      q(Egyptian Pound),
+      ],
+   q(0055) => [
+      q(El Salvador Colon),
+      ],
+   q(0056) => [
+      q(Nakfa),
+      ],
+   q(0057) => [
+      q(Ethiopian Birr),
+      ],
+   q(0058) => [
+      q(Falkland Islands Pound),
+      ],
+   q(0059) => [
+      q(Fiji Dollar),
+      ],
+   q(0060) => [
+      q(CFP Franc),
+      ],
+   q(0061) => [
+      q(Dalasi),
+      ],
+   q(0062) => [
+      q(Lari),
+      ],
+   q(0063) => [
+      q(Ghana Cedi),
+      ],
+   q(0064) => [
+      q(Gibraltar Pound),
+      ],
+   q(0065) => [
+      q(Quetzal),
+      ],
+   q(0066) => [
+      q(Pound Sterling),
+      ],
+   q(0067) => [
+      q(Guinea Franc),
+      ],
+   q(0068) => [
+      q(Guyana Dollar),
+      ],
+   q(0069) => [
+      q(Gourde),
+      ],
+   q(0070) => [
+      q(Lempira),
+      ],
+   q(0071) => [
+      q(Hong Kong Dollar),
+      ],
+   q(0072) => [
+      q(Forint),
+      ],
+   q(0073) => [
+      q(Iceland Krona),
+      ],
+   q(0074) => [
+      q(Rupiah),
+      ],
+   q(0075) => [
+      q(SDR (Special Drawing Right)),
+      ],
+   q(0076) => [
+      q(Iranian Rial),
+      ],
+   q(0077) => [
+      q(Iraqi Dinar),
+      ],
+   q(0078) => [
+      q(New Israeli Sheqel),
+      ],
+   q(0079) => [
+      q(Jamaican Dollar),
+      ],
+   q(0080) => [
+      q(Yen),
+      ],
+   q(0081) => [
+      q(Jordanian Dinar),
+      ],
+   q(0082) => [
+      q(Tenge),
+      ],
+   q(0083) => [
+      q(Kenyan Shilling),
+      ],
+   q(0084) => [
+      q(North Korean Won),
+      ],
+   q(0085) => [
+      q(Won),
+      ],
+   q(0086) => [
+      q(Kuwaiti Dinar),
+      ],
+   q(0087) => [
+      q(Som),
+      ],
+   q(0088) => [
+      q(Kip),
+      ],
+   q(0089) => [
+      q(Lebanese Pound),
+      ],
+   q(0090) => [
+      q(Loti),
+      ],
+   q(0091) => [
+      q(Rand),
+      ],
+   q(0092) => [
+      q(Liberian Dollar),
+      ],
+   q(0093) => [
+      q(Libyan Dinar),
+      ],
+   q(0094) => [
+      q(Swiss Franc),
+      ],
+   q(0095) => [
+      q(Pataca),
+      ],
+   q(0096) => [
+      q(Denar),
+      ],
+   q(0097) => [
+      q(Malagasy Ariary),
+      ],
+   q(0098) => [
+      q(Kwacha),
+      ],
+   q(0099) => [
+      q(Malaysian Ringgit),
+      ],
+   q(0100) => [
+      q(Rufiyaa),
+      ],
+   q(0101) => [
+      q(Ouguiya),
+      ],
+   q(0102) => [
+      q(Mauritius Rupee),
+      ],
+   q(0103) => [
+      q(ADB Unit of Account),
+      ],
+   q(0104) => [
+      q(Mexican Peso),
+      ],
+   q(0105) => [
+      q(Mexican Unidad de Inversion (UDI)),
+      ],
+   q(0106) => [
+      q(Moldovan Leu),
+      ],
+   q(0107) => [
+      q(Tugrik),
+      ],
+   q(0108) => [
+      q(Moroccan Dirham),
+      ],
+   q(0109) => [
+      q(Mozambique Metical),
+      ],
+   q(0110) => [
+      q(Kyat),
+      ],
+   q(0111) => [
+      q(Namibia Dollar),
+      ],
+   q(0112) => [
+      q(Nepalese Rupee),
+      ],
+   q(0113) => [
+      q(Cordoba Oro),
+      ],
+   q(0114) => [
+      q(Naira),
+      ],
+   q(0115) => [
+      q(Rial Omani),
+      ],
+   q(0116) => [
+      q(Pakistan Rupee),
+      ],
+   q(0117) => [
+      q(Balboa),
+      ],
+   q(0118) => [
+      q(Kina),
+      ],
+   q(0119) => [
+      q(Guarani),
+      ],
+   q(0120) => [
+      q(Nuevo Sol),
+      ],
+   q(0121) => [
+      q(Philippine Peso),
+      ],
+   q(0122) => [
+      q(Zloty),
+      ],
+   q(0123) => [
+      q(Qatari Rial),
+      ],
+   q(0124) => [
+      q(Romanian Leu),
+      ],
+   q(0125) => [
+      q(Russian Ruble),
+      ],
+   q(0126) => [
+      q(Rwanda Franc),
+      ],
+   q(0127) => [
+      q(Saint Helena Pound),
+      ],
+   q(0128) => [
+      q(Tala),
+      ],
+   q(0129) => [
+      q(Dobra),
+      ],
+   q(0130) => [
+      q(Saudi Riyal),
+      ],
+   q(0131) => [
+      q(Serbian Dinar),
+      ],
+   q(0132) => [
+      q(Seychelles Rupee),
+      ],
+   q(0133) => [
+      q(Leone),
+      ],
+   q(0134) => [
+      q(Singapore Dollar),
+      ],
+   q(0135) => [
+      q(Sucre),
+      ],
+   q(0136) => [
+      q(Solomon Islands Dollar),
+      ],
+   q(0137) => [
+      q(Somali Shilling),
+      ],
+   q(0138) => [
+      q(South Sudanese Pound),
+      ],
+   q(0139) => [
+      q(Sri Lanka Rupee),
+      ],
+   q(0140) => [
+      q(Sudanese Pound),
+      ],
+   q(0141) => [
+      q(Surinam Dollar),
+      ],
+   q(0142) => [
+      q(Lilangeni),
+      ],
+   q(0143) => [
+      q(Swedish Krona),
+      ],
+   q(0144) => [
+      q(WIR Euro),
+      ],
+   q(0145) => [
+      q(WIR Franc),
+      ],
+   q(0146) => [
+      q(Syrian Pound),
+      ],
+   q(0147) => [
+      q(New Taiwan Dollar),
+      ],
+   q(0148) => [
+      q(Somoni),
+      ],
+   q(0149) => [
+      q(Tanzanian Shilling),
+      ],
+   q(0150) => [
+      q(Baht),
+      ],
+   q(0151) => [
+      q(Pa'anga),
+      ],
+   q(0152) => [
+      q(Trinidad and Tobago Dollar),
+      ],
+   q(0153) => [
+      q(Tunisian Dinar),
+      ],
+   q(0154) => [
+      q(Turkish Lira),
+      ],
+   q(0155) => [
+      q(Turkmenistan New Manat),
+      ],
+   q(0156) => [
+      q(Uganda Shilling),
+      ],
+   q(0157) => [
+      q(Hryvnia),
+      ],
+   q(0158) => [
+      q(UAE Dirham),
+      ],
+   q(0159) => [
+      q(US Dollar (Next day)),
+      ],
+   q(0160) => [
+      q(Uruguay Peso en Unidades Indexadas (URUIURUI)),
+      ],
+   q(0161) => [
+      q(Peso Uruguayo),
+      ],
+   q(0162) => [
+      q(Uzbekistan Sum),
+      ],
+   q(0163) => [
+      q(Vatu),
+      ],
+   q(0164) => [
+      q(Bolivar),
+      ],
+   q(0165) => [
+      q(Dong),
+      ],
+   q(0166) => [
+      q(Yemeni Rial),
+      ],
+   q(0167) => [
+      q(Zambian Kwacha),
+      ],
+   q(0168) => [
+      q(Zimbabwe Dollar),
+      ],
+   q(0169) => [
+      q(Bond Markets Unit European Composite Unit (EURCO)),
+      ],
+   q(0170) => [
+      q(Bond Markets Unit European Monetary Unit (E.M.U.-6)),
+      ],
+   q(0171) => [
+      q(Bond Markets Unit European Unit of Account 9 (E.U.A.-9)),
+      ],
+   q(0172) => [
+      q(Bond Markets Unit European Unit of Account 17 (E.U.A.-17)),
+      ],
+   q(0173) => [
+      q(Gold),
+      ],
+   q(0174) => [
+      q(Palladium),
+      ],
+   q(0175) => [
+      q(Platinum),
+      ],
+   q(0176) => [
+      q(Silver),
+      ],
+};
+
+$Locale::Codes::Data{'currency'}{'alias2id'} = {
+   q(adb unit of account) => [
+      q(0103),
+      q(0),
+      ],
+   q(afghani) => [
+      q(0001),
+      q(0),
+      ],
+   q(algerian dinar) => [
+      q(0004),
+      q(0),
+      ],
+   q(argentine peso) => [
+      q(0008),
+      q(0),
+      ],
+   q(armenian dram) => [
+      q(0009),
+      q(0),
+      ],
+   q(aruban florin) => [
+      q(0010),
+      q(0),
+      ],
+   q(australian dollar) => [
+      q(0011),
+      q(0),
+      ],
+   q(azerbaijanian manat) => [
+      q(0012),
+      q(0),
+      ],
+   q(bahamian dollar) => [
+      q(0013),
+      q(0),
+      ],
+   q(bahraini dinar) => [
+      q(0014),
+      q(0),
+      ],
+   q(baht) => [
+      q(0150),
+      q(0),
+      ],
+   q(balboa) => [
+      q(0117),
+      q(0),
+      ],
+   q(barbados dollar) => [
+      q(0016),
+      q(0),
+      ],
+   q(belarussian ruble) => [
+      q(0017),
+      q(0),
+      ],
+   q(belize dollar) => [
+      q(0018),
+      q(0),
+      ],
+   q(bermudian dollar) => [
+      q(0020),
+      q(0),
+      ],
+   q(bolivar) => [
+      q(0164),
+      q(0),
+      ],
+   q(boliviano) => [
+      q(0023),
+      q(0),
+      ],
+   q(bond markets unit european composite unit (eurco)) => [
+      q(0169),
+      q(0),
+      ],
+   q(bond markets unit european monetary unit (e.m.u.-6)) => [
+      q(0170),
+      q(0),
+      ],
+   q(bond markets unit european unit of account 17 (e.u.a.-17)) => [
+      q(0172),
+      q(0),
+      ],
+   q(bond markets unit european unit of account 9 (e.u.a.-9)) => [
+      q(0171),
+      q(0),
+      ],
+   q(brazilian real) => [
+      q(0028),
+      q(0),
+      ],
+   q(brunei dollar) => [
+      q(0029),
+      q(0),
+      ],
+   q(bulgarian lev) => [
+      q(0030),
+      q(0),
+      ],
+   q(burundi franc) => [
+      q(0031),
+      q(0),
+      ],
+   q(cabo verde escudo) => [
+      q(0032),
+      q(0),
+      ],
+   q(canadian dollar) => [
+      q(0035),
+      q(0),
+      ],
+   q(cayman islands dollar) => [
+      q(0036),
+      q(0),
+      ],
+   q(cfa franc bceao) => [
+      q(0019),
+      q(0),
+      ],
+   q(cfa franc beac) => [
+      q(0034),
+      q(0),
+      ],
+   q(cfp franc) => [
+      q(0060),
+      q(0),
+      ],
+   q(chilean peso) => [
+      q(0038),
+      q(0),
+      ],
+   q(colombian peso) => [
+      q(0040),
+      q(0),
+      ],
+   q(comoro franc) => [
+      q(0042),
+      q(0),
+      ],
+   q(congolese franc) => [
+      q(0043),
+      q(0),
+      ],
+   q(convertible mark) => [
+      q(0025),
+      q(0),
+      ],
+   q(cordoba oro) => [
+      q(0113),
+      q(0),
+      ],
+   q(costa rican colon) => [
+      q(0045),
+      q(0),
+      ],
+   q(cuban peso) => [
+      q(0048),
+      q(0),
+      ],
+   q(czech koruna) => [
+      q(0050),
+      q(0),
+      ],
+   q(dalasi) => [
+      q(0061),
+      q(0),
+      ],
+   q(danish krone) => [
+      q(0051),
+      q(0),
+      ],
+   q(denar) => [
+      q(0096),
+      q(0),
+      ],
+   q(djibouti franc) => [
+      q(0052),
+      q(0),
+      ],
+   q(dobra) => [
+      q(0129),
+      q(0),
+      ],
+   q(dominican peso) => [
+      q(0053),
+      q(0),
+      ],
+   q(dong) => [
+      q(0165),
+      q(0),
+      ],
+   q(east caribbean dollar) => [
+      q(0007),
+      q(0),
+      ],
+   q(egyptian pound) => [
+      q(0054),
+      q(0),
+      ],
+   q(el salvador colon) => [
+      q(0055),
+      q(0),
+      ],
+   q(ethiopian birr) => [
+      q(0057),
+      q(0),
+      ],
+   q(euro) => [
+      q(0002),
+      q(0),
+      ],
+   q(falkland islands pound) => [
+      q(0058),
+      q(0),
+      ],
+   q(fiji dollar) => [
+      q(0059),
+      q(0),
+      ],
+   q(forint) => [
+      q(0072),
+      q(0),
+      ],
+   q(ghana cedi) => [
+      q(0063),
+      q(0),
+      ],
+   q(gibraltar pound) => [
+      q(0064),
+      q(0),
+      ],
+   q(gold) => [
+      q(0173),
+      q(0),
+      ],
+   q(gourde) => [
+      q(0069),
+      q(0),
+      ],
+   q(guarani) => [
+      q(0119),
+      q(0),
+      ],
+   q(guinea franc) => [
+      q(0067),
+      q(0),
+      ],
+   q(guyana dollar) => [
+      q(0068),
+      q(0),
+      ],
+   q(hong kong dollar) => [
+      q(0071),
+      q(0),
+      ],
+   q(hryvnia) => [
+      q(0157),
+      q(0),
+      ],
+   q(iceland krona) => [
+      q(0073),
+      q(0),
+      ],
+   q(indian rupee) => [
+      q(0022),
+      q(0),
+      ],
+   q(iranian rial) => [
+      q(0076),
+      q(0),
+      ],
+   q(iraqi dinar) => [
+      q(0077),
+      q(0),
+      ],
+   q(jamaican dollar) => [
+      q(0079),
+      q(0),
+      ],
+   q(jordanian dinar) => [
+      q(0081),
+      q(0),
+      ],
+   q(kenyan shilling) => [
+      q(0083),
+      q(0),
+      ],
+   q(kina) => [
+      q(0118),
+      q(0),
+      ],
+   q(kip) => [
+      q(0088),
+      q(0),
+      ],
+   q(kuna) => [
+      q(0046),
+      q(0),
+      ],
+   q(kuwaiti dinar) => [
+      q(0086),
+      q(0),
+      ],
+   q(kwacha) => [
+      q(0098),
+      q(0),
+      ],
+   q(kwanza) => [
+      q(0006),
+      q(0),
+      ],
+   q(kyat) => [
+      q(0110),
+      q(0),
+      ],
+   q(lari) => [
+      q(0062),
+      q(0),
+      ],
+   q(lebanese pound) => [
+      q(0089),
+      q(0),
+      ],
+   q(lek) => [
+      q(0003),
+      q(0),
+      ],
+   q(lempira) => [
+      q(0070),
+      q(0),
+      ],
+   q(leone) => [
+      q(0133),
+      q(0),
+      ],
+   q(liberian dollar) => [
+      q(0092),
+      q(0),
+      ],
+   q(libyan dinar) => [
+      q(0093),
+      q(0),
+      ],
+   q(lilangeni) => [
+      q(0142),
+      q(0),
+      ],
+   q(loti) => [
+      q(0090),
+      q(0),
+      ],
+   q(malagasy ariary) => [
+      q(0097),
+      q(0),
+      ],
+   q(malaysian ringgit) => [
+      q(0099),
+      q(0),
+      ],
+   q(mauritius rupee) => [
+      q(0102),
+      q(0),
+      ],
+   q(mexican peso) => [
+      q(0104),
+      q(0),
+      ],
+   q(mexican unidad de inversion (udi)) => [
+      q(0105),
+      q(0),
+      ],
+   q(moldovan leu) => [
+      q(0106),
+      q(0),
+      ],
+   q(moroccan dirham) => [
+      q(0108),
+      q(0),
+      ],
+   q(mozambique metical) => [
+      q(0109),
+      q(0),
+      ],
+   q(mvdol) => [
+      q(0024),
+      q(0),
+      ],
+   q(naira) => [
+      q(0114),
+      q(0),
+      ],
+   q(nakfa) => [
+      q(0056),
+      q(0),
+      ],
+   q(namibia dollar) => [
+      q(0111),
+      q(0),
+      ],
+   q(nepalese rupee) => [
+      q(0112),
+      q(0),
+      ],
+   q(netherlands antillean guilder) => [
+      q(0049),
+      q(0),
+      ],
+   q(new israeli sheqel) => [
+      q(0078),
+      q(0),
+      ],
+   q(new taiwan dollar) => [
+      q(0147),
+      q(0),
+      ],
+   q(new zealand dollar) => [
+      q(0044),
+      q(0),
+      ],
+   q(ngultrum) => [
+      q(0021),
+      q(0),
+      ],
+   q(north korean won) => [
+      q(0084),
+      q(0),
+      ],
+   q(norwegian krone) => [
+      q(0027),
+      q(0),
+      ],
+   q(nuevo sol) => [
+      q(0120),
+      q(0),
+      ],
+   q(ouguiya) => [
+      q(0101),
+      q(0),
+      ],
+   q(pa'anga) => [
+      q(0151),
+      q(0),
+      ],
+   q(pakistan rupee) => [
+      q(0116),
+      q(0),
+      ],
+   q(palladium) => [
+      q(0174),
+      q(0),
+      ],
+   q(pataca) => [
+      q(0095),
+      q(0),
+      ],
+   q(peso convertible) => [
+      q(0047),
+      q(0),
+      ],
+   q(peso uruguayo) => [
+      q(0161),
+      q(0),
+      ],
+   q(philippine peso) => [
+      q(0121),
+      q(0),
+      ],
+   q(platinum) => [
+      q(0175),
+      q(0),
+      ],
+   q(pound sterling) => [
+      q(0066),
+      q(0),
+      ],
+   q(pula) => [
+      q(0026),
+      q(0),
+      ],
+   q(qatari rial) => [
+      q(0123),
+      q(0),
+      ],
+   q(quetzal) => [
+      q(0065),
+      q(0),
+      ],
+   q(rand) => [
+      q(0091),
+      q(0),
+      ],
+   q(rial omani) => [
+      q(0115),
+      q(0),
+      ],
+   q(riel) => [
+      q(0033),
+      q(0),
+      ],
+   q(romanian leu) => [
+      q(0124),
+      q(0),
+      ],
+   q(rufiyaa) => [
+      q(0100),
+      q(0),
+      ],
+   q(rupiah) => [
+      q(0074),
+      q(0),
+      ],
+   q(russian ruble) => [
+      q(0125),
+      q(0),
+      ],
+   q(rwanda franc) => [
+      q(0126),
+      q(0),
+      ],
+   q(saint helena pound) => [
+      q(0127),
+      q(0),
+      ],
+   q(saudi riyal) => [
+      q(0130),
+      q(0),
+      ],
+   q(sdr (special drawing right)) => [
+      q(0075),
+      q(0),
+      ],
+   q(serbian dinar) => [
+      q(0131),
+      q(0),
+      ],
+   q(seychelles rupee) => [
+      q(0132),
+      q(0),
+      ],
+   q(silver) => [
+      q(0176),
+      q(0),
+      ],
+   q(singapore dollar) => [
+      q(0134),
+      q(0),
+      ],
+   q(solomon islands dollar) => [
+      q(0136),
+      q(0),
+      ],
+   q(som) => [
+      q(0087),
+      q(0),
+      ],
+   q(somali shilling) => [
+      q(0137),
+      q(0),
+      ],
+   q(somoni) => [
+      q(0148),
+      q(0),
+      ],
+   q(south sudanese pound) => [
+      q(0138),
+      q(0),
+      ],
+   q(sri lanka rupee) => [
+      q(0139),
+      q(0),
+      ],
+   q(sucre) => [
+      q(0135),
+      q(0),
+      ],
+   q(sudanese pound) => [
+      q(0140),
+      q(0),
+      ],
+   q(surinam dollar) => [
+      q(0141),
+      q(0),
+      ],
+   q(swedish krona) => [
+      q(0143),
+      q(0),
+      ],
+   q(swiss franc) => [
+      q(0094),
+      q(0),
+      ],
+   q(syrian pound) => [
+      q(0146),
+      q(0),
+      ],
+   q(taka) => [
+      q(0015),
+      q(0),
+      ],
+   q(tala) => [
+      q(0128),
+      q(0),
+      ],
+   q(tanzanian shilling) => [
+      q(0149),
+      q(0),
+      ],
+   q(tenge) => [
+      q(0082),
+      q(0),
+      ],
+   q(trinidad and tobago dollar) => [
+      q(0152),
+      q(0),
+      ],
+   q(tugrik) => [
+      q(0107),
+      q(0),
+      ],
+   q(tunisian dinar) => [
+      q(0153),
+      q(0),
+      ],
+   q(turkish lira) => [
+      q(0154),
+      q(0),
+      ],
+   q(turkmenistan new manat) => [
+      q(0155),
+      q(0),
+      ],
+   q(uae dirham) => [
+      q(0158),
+      q(0),
+      ],
+   q(uganda shilling) => [
+      q(0156),
+      q(0),
+      ],
+   q(unidad de fomento) => [
+      q(0037),
+      q(0),
+      ],
+   q(unidad de valor real) => [
+      q(0041),
+      q(0),
+      ],
+   q(uruguay peso en unidades indexadas (uruiurui)) => [
+      q(0160),
+      q(0),
+      ],
+   q(us dollar) => [
+      q(0005),
+      q(0),
+      ],
+   q(us dollar (next day)) => [
+      q(0159),
+      q(0),
+      ],
+   q(uzbekistan sum) => [
+      q(0162),
+      q(0),
+      ],
+   q(vatu) => [
+      q(0163),
+      q(0),
+      ],
+   q(wir euro) => [
+      q(0144),
+      q(0),
+      ],
+   q(wir franc) => [
+      q(0145),
+      q(0),
+      ],
+   q(won) => [
+      q(0085),
+      q(0),
+      ],
+   q(yemeni rial) => [
+      q(0166),
+      q(0),
+      ],
+   q(yen) => [
+      q(0080),
+      q(0),
+      ],
+   q(yuan renminbi) => [
+      q(0039),
+      q(0),
+      ],
+   q(zambian kwacha) => [
+      q(0167),
+      q(0),
+      ],
+   q(zimbabwe dollar) => [
+      q(0168),
+      q(0),
+      ],
+   q(zloty) => [
+      q(0122),
+      q(0),
+      ],
+};
+
+$Locale::Codes::Data{'currency'}{'code2id'} = {
+   q(alpha) => {
+      q(AED) => [
+         q(0158),
+         q(0),
+         ],
+      q(AFN) => [
+         q(0001),
+         q(0),
+         ],
+      q(ALL) => [
+         q(0003),
+         q(0),
+         ],
+      q(AMD) => [
+         q(0009),
+         q(0),
+         ],
+      q(ANG) => [
+         q(0049),
+         q(0),
+         ],
+      q(AOA) => [
+         q(0006),
+         q(0),
+         ],
+      q(ARS) => [
+         q(0008),
+         q(0),
+         ],
+      q(AUD) => [
+         q(0011),
+         q(0),
+         ],
+      q(AWG) => [
+         q(0010),
+         q(0),
+         ],
+      q(AZN) => [
+         q(0012),
+         q(0),
+         ],
+      q(BAM) => [
+         q(0025),
+         q(0),
+         ],
+      q(BBD) => [
+         q(0016),
+         q(0),
+         ],
+      q(BDT) => [
+         q(0015),
+         q(0),
+         ],
+      q(BGN) => [
+         q(0030),
+         q(0),
+         ],
+      q(BHD) => [
+         q(0014),
+         q(0),
+         ],
+      q(BIF) => [
+         q(0031),
+         q(0),
+         ],
+      q(BMD) => [
+         q(0020),
+         q(0),
+         ],
+      q(BND) => [
+         q(0029),
+         q(0),
+         ],
+      q(BOB) => [
+         q(0023),
+         q(0),
+         ],
+      q(BOV) => [
+         q(0024),
+         q(0),
+         ],
+      q(BRL) => [
+         q(0028),
+         q(0),
+         ],
+      q(BSD) => [
+         q(0013),
+         q(0),
+         ],
+      q(BTN) => [
+         q(0021),
+         q(0),
+         ],
+      q(BWP) => [
+         q(0026),
+         q(0),
+         ],
+      q(BYR) => [
+         q(0017),
+         q(0),
+         ],
+      q(BZD) => [
+         q(0018),
+         q(0),
+         ],
+      q(CAD) => [
+         q(0035),
+         q(0),
+         ],
+      q(CDF) => [
+         q(0043),
+         q(0),
+         ],
+      q(CHE) => [
+         q(0144),
+         q(0),
+         ],
+      q(CHF) => [
+         q(0094),
+         q(0),
+         ],
+      q(CHW) => [
+         q(0145),
+         q(0),
+         ],
+      q(CLF) => [
+         q(0037),
+         q(0),
+         ],
+      q(CLP) => [
+         q(0038),
+         q(0),
+         ],
+      q(CNY) => [
+         q(0039),
+         q(0),
+         ],
+      q(COP) => [
+         q(0040),
+         q(0),
+         ],
+      q(COU) => [
+         q(0041),
+         q(0),
+         ],
+      q(CRC) => [
+         q(0045),
+         q(0),
+         ],
+      q(CUC) => [
+         q(0047),
+         q(0),
+         ],
+      q(CUP) => [
+         q(0048),
+         q(0),
+         ],
+      q(CVE) => [
+         q(0032),
+         q(0),
+         ],
+      q(CZK) => [
+         q(0050),
+         q(0),
+         ],
+      q(DJF) => [
+         q(0052),
+         q(0),
+         ],
+      q(DKK) => [
+         q(0051),
+         q(0),
+         ],
+      q(DOP) => [
+         q(0053),
+         q(0),
+         ],
+      q(DZD) => [
+         q(0004),
+         q(0),
+         ],
+      q(EGP) => [
+         q(0054),
+         q(0),
+         ],
+      q(ERN) => [
+         q(0056),
+         q(0),
+         ],
+      q(ETB) => [
+         q(0057),
+         q(0),
+         ],
+      q(EUR) => [
+         q(0002),
+         q(0),
+         ],
+      q(FJD) => [
+         q(0059),
+         q(0),
+         ],
+      q(FKP) => [
+         q(0058),
+         q(0),
+         ],
+      q(GBP) => [
+         q(0066),
+         q(0),
+         ],
+      q(GEL) => [
+         q(0062),
+         q(0),
+         ],
+      q(GHS) => [
+         q(0063),
+         q(0),
+         ],
+      q(GIP) => [
+         q(0064),
+         q(0),
+         ],
+      q(GMD) => [
+         q(0061),
+         q(0),
+         ],
+      q(GNF) => [
+         q(0067),
+         q(0),
+         ],
+      q(GTQ) => [
+         q(0065),
+         q(0),
+         ],
+      q(GYD) => [
+         q(0068),
+         q(0),
+         ],
+      q(HKD) => [
+         q(0071),
+         q(0),
+         ],
+      q(HNL) => [
+         q(0070),
+         q(0),
+         ],
+      q(HRK) => [
+         q(0046),
+         q(0),
+         ],
+      q(HTG) => [
+         q(0069),
+         q(0),
+         ],
+      q(HUF) => [
+         q(0072),
+         q(0),
+         ],
+      q(IDR) => [
+         q(0074),
+         q(0),
+         ],
+      q(ILS) => [
+         q(0078),
+         q(0),
+         ],
+      q(INR) => [
+         q(0022),
+         q(0),
+         ],
+      q(IQD) => [
+         q(0077),
+         q(0),
+         ],
+      q(IRR) => [
+         q(0076),
+         q(0),
+         ],
+      q(ISK) => [
+         q(0073),
+         q(0),
+         ],
+      q(JMD) => [
+         q(0079),
+         q(0),
+         ],
+      q(JOD) => [
+         q(0081),
+         q(0),
+         ],
+      q(JPY) => [
+         q(0080),
+         q(0),
+         ],
+      q(KES) => [
+         q(0083),
+         q(0),
+         ],
+      q(KGS) => [
+         q(0087),
+         q(0),
+         ],
+      q(KHR) => [
+         q(0033),
+         q(0),
+         ],
+      q(KMF) => [
+         q(0042),
+         q(0),
+         ],
+      q(KPW) => [
+         q(0084),
+         q(0),
+         ],
+      q(KRW) => [
+         q(0085),
+         q(0),
+         ],
+      q(KWD) => [
+         q(0086),
+         q(0),
+         ],
+      q(KYD) => [
+         q(0036),
+         q(0),
+         ],
+      q(KZT) => [
+         q(0082),
+         q(0),
+         ],
+      q(LAK) => [
+         q(0088),
+         q(0),
+         ],
+      q(LBP) => [
+         q(0089),
+         q(0),
+         ],
+      q(LKR) => [
+         q(0139),
+         q(0),
+         ],
+      q(LRD) => [
+         q(0092),
+         q(0),
+         ],
+      q(LSL) => [
+         q(0090),
+         q(0),
+         ],
+      q(LYD) => [
+         q(0093),
+         q(0),
+         ],
+      q(MAD) => [
+         q(0108),
+         q(0),
+         ],
+      q(MDL) => [
+         q(0106),
+         q(0),
+         ],
+      q(MGA) => [
+         q(0097),
+         q(0),
+         ],
+      q(MKD) => [
+         q(0096),
+         q(0),
+         ],
+      q(MMK) => [
+         q(0110),
+         q(0),
+         ],
+      q(MNT) => [
+         q(0107),
+         q(0),
+         ],
+      q(MOP) => [
+         q(0095),
+         q(0),
+         ],
+      q(MRO) => [
+         q(0101),
+         q(0),
+         ],
+      q(MUR) => [
+         q(0102),
+         q(0),
+         ],
+      q(MVR) => [
+         q(0100),
+         q(0),
+         ],
+      q(MWK) => [
+         q(0098),
+         q(0),
+         ],
+      q(MXN) => [
+         q(0104),
+         q(0),
+         ],
+      q(MXV) => [
+         q(0105),
+         q(0),
+         ],
+      q(MYR) => [
+         q(0099),
+         q(0),
+         ],
+      q(MZN) => [
+         q(0109),
+         q(0),
+         ],
+      q(NAD) => [
+         q(0111),
+         q(0),
+         ],
+      q(NGN) => [
+         q(0114),
+         q(0),
+         ],
+      q(NIO) => [
+         q(0113),
+         q(0),
+         ],
+      q(NOK) => [
+         q(0027),
+         q(0),
+         ],
+      q(NPR) => [
+         q(0112),
+         q(0),
+         ],
+      q(NZD) => [
+         q(0044),
+         q(0),
+         ],
+      q(OMR) => [
+         q(0115),
+         q(0),
+         ],
+      q(PAB) => [
+         q(0117),
+         q(0),
+         ],
+      q(PEN) => [
+         q(0120),
+         q(0),
+         ],
+      q(PGK) => [
+         q(0118),
+         q(0),
+         ],
+      q(PHP) => [
+         q(0121),
+         q(0),
+         ],
+      q(PKR) => [
+         q(0116),
+         q(0),
+         ],
+      q(PLN) => [
+         q(0122),
+         q(0),
+         ],
+      q(PYG) => [
+         q(0119),
+         q(0),
+         ],
+      q(QAR) => [
+         q(0123),
+         q(0),
+         ],
+      q(RON) => [
+         q(0124),
+         q(0),
+         ],
+      q(RSD) => [
+         q(0131),
+         q(0),
+         ],
+      q(RUB) => [
+         q(0125),
+         q(0),
+         ],
+      q(RWF) => [
+         q(0126),
+         q(0),
+         ],
+      q(SAR) => [
+         q(0130),
+         q(0),
+         ],
+      q(SBD) => [
+         q(0136),
+         q(0),
+         ],
+      q(SCR) => [
+         q(0132),
+         q(0),
+         ],
+      q(SDG) => [
+         q(0140),
+         q(0),
+         ],
+      q(SEK) => [
+         q(0143),
+         q(0),
+         ],
+      q(SGD) => [
+         q(0134),
+         q(0),
+         ],
+      q(SHP) => [
+         q(0127),
+         q(0),
+         ],
+      q(SLL) => [
+         q(0133),
+         q(0),
+         ],
+      q(SOS) => [
+         q(0137),
+         q(0),
+         ],
+      q(SRD) => [
+         q(0141),
+         q(0),
+         ],
+      q(SSP) => [
+         q(0138),
+         q(0),
+         ],
+      q(STD) => [
+         q(0129),
+         q(0),
+         ],
+      q(SVC) => [
+         q(0055),
+         q(0),
+         ],
+      q(SYP) => [
+         q(0146),
+         q(0),
+         ],
+      q(SZL) => [
+         q(0142),
+         q(0),
+         ],
+      q(THB) => [
+         q(0150),
+         q(0),
+         ],
+      q(TJS) => [
+         q(0148),
+         q(0),
+         ],
+      q(TMT) => [
+         q(0155),
+         q(0),
+         ],
+      q(TND) => [
+         q(0153),
+         q(0),
+         ],
+      q(TOP) => [
+         q(0151),
+         q(0),
+         ],
+      q(TRY) => [
+         q(0154),
+         q(0),
+         ],
+      q(TTD) => [
+         q(0152),
+         q(0),
+         ],
+      q(TWD) => [
+         q(0147),
+         q(0),
+         ],
+      q(TZS) => [
+         q(0149),
+         q(0),
+         ],
+      q(UAH) => [
+         q(0157),
+         q(0),
+         ],
+      q(UGX) => [
+         q(0156),
+         q(0),
+         ],
+      q(USD) => [
+         q(0005),
+         q(0),
+         ],
+      q(USN) => [
+         q(0159),
+         q(0),
+         ],
+      q(UYI) => [
+         q(0160),
+         q(0),
+         ],
+      q(UYU) => [
+         q(0161),
+         q(0),
+         ],
+      q(UZS) => [
+         q(0162),
+         q(0),
+         ],
+      q(VEF) => [
+         q(0164),
+         q(0),
+         ],
+      q(VND) => [
+         q(0165),
+         q(0),
+         ],
+      q(VUV) => [
+         q(0163),
+         q(0),
+         ],
+      q(WST) => [
+         q(0128),
+         q(0),
+         ],
+      q(XAF) => [
+         q(0034),
+         q(0),
+         ],
+      q(XAG) => [
+         q(0176),
+         q(0),
+         ],
+      q(XAU) => [
+         q(0173),
+         q(0),
+         ],
+      q(XBA) => [
+         q(0169),
+         q(0),
+         ],
+      q(XBB) => [
+         q(0170),
+         q(0),
+         ],
+      q(XBC) => [
+         q(0171),
+         q(0),
+         ],
+      q(XBD) => [
+         q(0172),
+         q(0),
+         ],
+      q(XCD) => [
+         q(0007),
+         q(0),
+         ],
+      q(XDR) => [
+         q(0075),
+         q(0),
+         ],
+      q(XOF) => [
+         q(0019),
+         q(0),
+         ],
+      q(XPD) => [
+         q(0174),
+         q(0),
+         ],
+      q(XPF) => [
+         q(0060),
+         q(0),
+         ],
+      q(XPT) => [
+         q(0175),
+         q(0),
+         ],
+      q(XSU) => [
+         q(0135),
+         q(0),
+         ],
+      q(XUA) => [
+         q(0103),
+         q(0),
+         ],
+      q(YER) => [
+         q(0166),
+         q(0),
+         ],
+      q(ZAR) => [
+         q(0091),
+         q(0),
+         ],
+      q(ZMW) => [
+         q(0167),
+         q(0),
+         ],
+      q(ZWL) => [
+         q(0168),
+         q(0),
+         ],
+      },
+   q(num) => {
+      q(008) => [
+         q(0003),
+         q(0),
+         ],
+      q(012) => [
+         q(0004),
+         q(0),
+         ],
+      q(032) => [
+         q(0008),
+         q(0),
+         ],
+      q(036) => [
+         q(0011),
+         q(0),
+         ],
+      q(044) => [
+         q(0013),
+         q(0),
+         ],
+      q(048) => [
+         q(0014),
+         q(0),
+         ],
+      q(050) => [
+         q(0015),
+         q(0),
+         ],
+      q(051) => [
+         q(0009),
+         q(0),
+         ],
+      q(052) => [
+         q(0016),
+         q(0),
+         ],
+      q(060) => [
+         q(0020),
+         q(0),
+         ],
+      q(064) => [
+         q(0021),
+         q(0),
+         ],
+      q(068) => [
+         q(0023),
+         q(0),
+         ],
+      q(072) => [
+         q(0026),
+         q(0),
+         ],
+      q(084) => [
+         q(0018),
+         q(0),
+         ],
+      q(090) => [
+         q(0136),
+         q(0),
+         ],
+      q(096) => [
+         q(0029),
+         q(0),
+         ],
+      q(104) => [
+         q(0110),
+         q(0),
+         ],
+      q(108) => [
+         q(0031),
+         q(0),
+         ],
+      q(116) => [
+         q(0033),
+         q(0),
+         ],
+      q(124) => [
+         q(0035),
+         q(0),
+         ],
+      q(132) => [
+         q(0032),
+         q(0),
+         ],
+      q(136) => [
+         q(0036),
+         q(0),
+         ],
+      q(144) => [
+         q(0139),
+         q(0),
+         ],
+      q(152) => [
+         q(0038),
+         q(0),
+         ],
+      q(156) => [
+         q(0039),
+         q(0),
+         ],
+      q(170) => [
+         q(0040),
+         q(0),
+         ],
+      q(174) => [
+         q(0042),
+         q(0),
+         ],
+      q(188) => [
+         q(0045),
+         q(0),
+         ],
+      q(191) => [
+         q(0046),
+         q(0),
+         ],
+      q(192) => [
+         q(0048),
+         q(0),
+         ],
+      q(203) => [
+         q(0050),
+         q(0),
+         ],
+      q(208) => [
+         q(0051),
+         q(0),
+         ],
+      q(214) => [
+         q(0053),
+         q(0),
+         ],
+      q(222) => [
+         q(0055),
+         q(0),
+         ],
+      q(230) => [
+         q(0057),
+         q(0),
+         ],
+      q(232) => [
+         q(0056),
+         q(0),
+         ],
+      q(238) => [
+         q(0058),
+         q(0),
+         ],
+      q(242) => [
+         q(0059),
+         q(0),
+         ],
+      q(262) => [
+         q(0052),
+         q(0),
+         ],
+      q(270) => [
+         q(0061),
+         q(0),
+         ],
+      q(292) => [
+         q(0064),
+         q(0),
+         ],
+      q(320) => [
+         q(0065),
+         q(0),
+         ],
+      q(324) => [
+         q(0067),
+         q(0),
+         ],
+      q(328) => [
+         q(0068),
+         q(0),
+         ],
+      q(332) => [
+         q(0069),
+         q(0),
+         ],
+      q(340) => [
+         q(0070),
+         q(0),
+         ],
+      q(344) => [
+         q(0071),
+         q(0),
+         ],
+      q(348) => [
+         q(0072),
+         q(0),
+         ],
+      q(352) => [
+         q(0073),
+         q(0),
+         ],
+      q(356) => [
+         q(0022),
+         q(0),
+         ],
+      q(360) => [
+         q(0074),
+         q(0),
+         ],
+      q(364) => [
+         q(0076),
+         q(0),
+         ],
+      q(368) => [
+         q(0077),
+         q(0),
+         ],
+      q(376) => [
+         q(0078),
+         q(0),
+         ],
+      q(388) => [
+         q(0079),
+         q(0),
+         ],
+      q(392) => [
+         q(0080),
+         q(0),
+         ],
+      q(398) => [
+         q(0082),
+         q(0),
+         ],
+      q(400) => [
+         q(0081),
+         q(0),
+         ],
+      q(404) => [
+         q(0083),
+         q(0),
+         ],
+      q(408) => [
+         q(0084),
+         q(0),
+         ],
+      q(410) => [
+         q(0085),
+         q(0),
+         ],
+      q(414) => [
+         q(0086),
+         q(0),
+         ],
+      q(417) => [
+         q(0087),
+         q(0),
+         ],
+      q(418) => [
+         q(0088),
+         q(0),
+         ],
+      q(422) => [
+         q(0089),
+         q(0),
+         ],
+      q(426) => [
+         q(0090),
+         q(0),
+         ],
+      q(430) => [
+         q(0092),
+         q(0),
+         ],
+      q(434) => [
+         q(0093),
+         q(0),
+         ],
+      q(446) => [
+         q(0095),
+         q(0),
+         ],
+      q(454) => [
+         q(0098),
+         q(0),
+         ],
+      q(458) => [
+         q(0099),
+         q(0),
+         ],
+      q(462) => [
+         q(0100),
+         q(0),
+         ],
+      q(478) => [
+         q(0101),
+         q(0),
+         ],
+      q(480) => [
+         q(0102),
+         q(0),
+         ],
+      q(484) => [
+         q(0104),
+         q(0),
+         ],
+      q(496) => [
+         q(0107),
+         q(0),
+         ],
+      q(498) => [
+         q(0106),
+         q(0),
+         ],
+      q(504) => [
+         q(0108),
+         q(0),
+         ],
+      q(512) => [
+         q(0115),
+         q(0),
+         ],
+      q(516) => [
+         q(0111),
+         q(0),
+         ],
+      q(524) => [
+         q(0112),
+         q(0),
+         ],
+      q(532) => [
+         q(0049),
+         q(0),
+         ],
+      q(533) => [
+         q(0010),
+         q(0),
+         ],
+      q(548) => [
+         q(0163),
+         q(0),
+         ],
+      q(554) => [
+         q(0044),
+         q(0),
+         ],
+      q(558) => [
+         q(0113),
+         q(0),
+         ],
+      q(566) => [
+         q(0114),
+         q(0),
+         ],
+      q(578) => [
+         q(0027),
+         q(0),
+         ],
+      q(586) => [
+         q(0116),
+         q(0),
+         ],
+      q(590) => [
+         q(0117),
+         q(0),
+         ],
+      q(598) => [
+         q(0118),
+         q(0),
+         ],
+      q(600) => [
+         q(0119),
+         q(0),
+         ],
+      q(604) => [
+         q(0120),
+         q(0),
+         ],
+      q(608) => [
+         q(0121),
+         q(0),
+         ],
+      q(634) => [
+         q(0123),
+         q(0),
+         ],
+      q(643) => [
+         q(0125),
+         q(0),
+         ],
+      q(646) => [
+         q(0126),
+         q(0),
+         ],
+      q(654) => [
+         q(0127),
+         q(0),
+         ],
+      q(678) => [
+         q(0129),
+         q(0),
+         ],
+      q(682) => [
+         q(0130),
+         q(0),
+         ],
+      q(690) => [
+         q(0132),
+         q(0),
+         ],
+      q(694) => [
+         q(0133),
+         q(0),
+         ],
+      q(702) => [
+         q(0134),
+         q(0),
+         ],
+      q(704) => [
+         q(0165),
+         q(0),
+         ],
+      q(706) => [
+         q(0137),
+         q(0),
+         ],
+      q(710) => [
+         q(0091),
+         q(0),
+         ],
+      q(728) => [
+         q(0138),
+         q(0),
+         ],
+      q(748) => [
+         q(0142),
+         q(0),
+         ],
+      q(752) => [
+         q(0143),
+         q(0),
+         ],
+      q(756) => [
+         q(0094),
+         q(0),
+         ],
+      q(760) => [
+         q(0146),
+         q(0),
+         ],
+      q(764) => [
+         q(0150),
+         q(0),
+         ],
+      q(776) => [
+         q(0151),
+         q(0),
+         ],
+      q(780) => [
+         q(0152),
+         q(0),
+         ],
+      q(784) => [
+         q(0158),
+         q(0),
+         ],
+      q(788) => [
+         q(0153),
+         q(0),
+         ],
+      q(800) => [
+         q(0156),
+         q(0),
+         ],
+      q(807) => [
+         q(0096),
+         q(0),
+         ],
+      q(818) => [
+         q(0054),
+         q(0),
+         ],
+      q(826) => [
+         q(0066),
+         q(0),
+         ],
+      q(834) => [
+         q(0149),
+         q(0),
+         ],
+      q(840) => [
+         q(0005),
+         q(0),
+         ],
+      q(858) => [
+         q(0161),
+         q(0),
+         ],
+      q(860) => [
+         q(0162),
+         q(0),
+         ],
+      q(882) => [
+         q(0128),
+         q(0),
+         ],
+      q(886) => [
+         q(0166),
+         q(0),
+         ],
+      q(901) => [
+         q(0147),
+         q(0),
+         ],
+      q(931) => [
+         q(0047),
+         q(0),
+         ],
+      q(932) => [
+         q(0168),
+         q(0),
+         ],
+      q(934) => [
+         q(0155),
+         q(0),
+         ],
+      q(936) => [
+         q(0063),
+         q(0),
+         ],
+      q(937) => [
+         q(0164),
+         q(0),
+         ],
+      q(938) => [
+         q(0140),
+         q(0),
+         ],
+      q(940) => [
+         q(0160),
+         q(0),
+         ],
+      q(941) => [
+         q(0131),
+         q(0),
+         ],
+      q(943) => [
+         q(0109),
+         q(0),
+         ],
+      q(944) => [
+         q(0012),
+         q(0),
+         ],
+      q(946) => [
+         q(0124),
+         q(0),
+         ],
+      q(947) => [
+         q(0144),
+         q(0),
+         ],
+      q(948) => [
+         q(0145),
+         q(0),
+         ],
+      q(949) => [
+         q(0154),
+         q(0),
+         ],
+      q(950) => [
+         q(0034),
+         q(0),
+         ],
+      q(951) => [
+         q(0007),
+         q(0),
+         ],
+      q(952) => [
+         q(0019),
+         q(0),
+         ],
+      q(953) => [
+         q(0060),
+         q(0),
+         ],
+      q(955) => [
+         q(0169),
+         q(0),
+         ],
+      q(956) => [
+         q(0170),
+         q(0),
+         ],
+      q(957) => [
+         q(0171),
+         q(0),
+         ],
+      q(958) => [
+         q(0172),
+         q(0),
+         ],
+      q(959) => [
+         q(0173),
+         q(0),
+         ],
+      q(960) => [
+         q(0075),
+         q(0),
+         ],
+      q(961) => [
+         q(0176),
+         q(0),
+         ],
+      q(962) => [
+         q(0175),
+         q(0),
+         ],
+      q(964) => [
+         q(0174),
+         q(0),
+         ],
+      q(965) => [
+         q(0103),
+         q(0),
+         ],
+      q(967) => [
+         q(0167),
+         q(0),
+         ],
+      q(968) => [
+         q(0141),
+         q(0),
+         ],
+      q(969) => [
+         q(0097),
+         q(0),
+         ],
+      q(970) => [
+         q(0041),
+         q(0),
+         ],
+      q(971) => [
+         q(0001),
+         q(0),
+         ],
+      q(972) => [
+         q(0148),
+         q(0),
+         ],
+      q(973) => [
+         q(0006),
+         q(0),
+         ],
+      q(974) => [
+         q(0017),
+         q(0),
+         ],
+      q(975) => [
+         q(0030),
+         q(0),
+         ],
+      q(976) => [
+         q(0043),
+         q(0),
+         ],
+      q(977) => [
+         q(0025),
+         q(0),
+         ],
+      q(978) => [
+         q(0002),
+         q(0),
+         ],
+      q(979) => [
+         q(0105),
+         q(0),
+         ],
+      q(980) => [
+         q(0157),
+         q(0),
+         ],
+      q(981) => [
+         q(0062),
+         q(0),
+         ],
+      q(984) => [
+         q(0024),
+         q(0),
+         ],
+      q(985) => [
+         q(0122),
+         q(0),
+         ],
+      q(986) => [
+         q(0028),
+         q(0),
+         ],
+      q(990) => [
+         q(0037),
+         q(0),
+         ],
+      q(994) => [
+         q(0135),
+         q(0),
+         ],
+      q(997) => [
+         q(0159),
+         q(0),
+         ],
+      },
+};
+
+$Locale::Codes::Data{'currency'}{'id2code'} = {
+   q(alpha) => {
+      q(0001) => q(AFN),
+      q(0002) => q(EUR),
+      q(0003) => q(ALL),
+      q(0004) => q(DZD),
+      q(0005) => q(USD),
+      q(0006) => q(AOA),
+      q(0007) => q(XCD),
+      q(0008) => q(ARS),
+      q(0009) => q(AMD),
+      q(0010) => q(AWG),
+      q(0011) => q(AUD),
+      q(0012) => q(AZN),
+      q(0013) => q(BSD),
+      q(0014) => q(BHD),
+      q(0015) => q(BDT),
+      q(0016) => q(BBD),
+      q(0017) => q(BYR),
+      q(0018) => q(BZD),
+      q(0019) => q(XOF),
+      q(0020) => q(BMD),
+      q(0021) => q(BTN),
+      q(0022) => q(INR),
+      q(0023) => q(BOB),
+      q(0024) => q(BOV),
+      q(0025) => q(BAM),
+      q(0026) => q(BWP),
+      q(0027) => q(NOK),
+      q(0028) => q(BRL),
+      q(0029) => q(BND),
+      q(0030) => q(BGN),
+      q(0031) => q(BIF),
+      q(0032) => q(CVE),
+      q(0033) => q(KHR),
+      q(0034) => q(XAF),
+      q(0035) => q(CAD),
+      q(0036) => q(KYD),
+      q(0037) => q(CLF),
+      q(0038) => q(CLP),
+      q(0039) => q(CNY),
+      q(0040) => q(COP),
+      q(0041) => q(COU),
+      q(0042) => q(KMF),
+      q(0043) => q(CDF),
+      q(0044) => q(NZD),
+      q(0045) => q(CRC),
+      q(0046) => q(HRK),
+      q(0047) => q(CUC),
+      q(0048) => q(CUP),
+      q(0049) => q(ANG),
+      q(0050) => q(CZK),
+      q(0051) => q(DKK),
+      q(0052) => q(DJF),
+      q(0053) => q(DOP),
+      q(0054) => q(EGP),
+      q(0055) => q(SVC),
+      q(0056) => q(ERN),
+      q(0057) => q(ETB),
+      q(0058) => q(FKP),
+      q(0059) => q(FJD),
+      q(0060) => q(XPF),
+      q(0061) => q(GMD),
+      q(0062) => q(GEL),
+      q(0063) => q(GHS),
+      q(0064) => q(GIP),
+      q(0065) => q(GTQ),
+      q(0066) => q(GBP),
+      q(0067) => q(GNF),
+      q(0068) => q(GYD),
+      q(0069) => q(HTG),
+      q(0070) => q(HNL),
+      q(0071) => q(HKD),
+      q(0072) => q(HUF),
+      q(0073) => q(ISK),
+      q(0074) => q(IDR),
+      q(0075) => q(XDR),
+      q(0076) => q(IRR),
+      q(0077) => q(IQD),
+      q(0078) => q(ILS),
+      q(0079) => q(JMD),
+      q(0080) => q(JPY),
+      q(0081) => q(JOD),
+      q(0082) => q(KZT),
+      q(0083) => q(KES),
+      q(0084) => q(KPW),
+      q(0085) => q(KRW),
+      q(0086) => q(KWD),
+      q(0087) => q(KGS),
+      q(0088) => q(LAK),
+      q(0089) => q(LBP),
+      q(0090) => q(LSL),
+      q(0091) => q(ZAR),
+      q(0092) => q(LRD),
+      q(0093) => q(LYD),
+      q(0094) => q(CHF),
+      q(0095) => q(MOP),
+      q(0096) => q(MKD),
+      q(0097) => q(MGA),
+      q(0098) => q(MWK),
+      q(0099) => q(MYR),
+      q(0100) => q(MVR),
+      q(0101) => q(MRO),
+      q(0102) => q(MUR),
+      q(0103) => q(XUA),
+      q(0104) => q(MXN),
+      q(0105) => q(MXV),
+      q(0106) => q(MDL),
+      q(0107) => q(MNT),
+      q(0108) => q(MAD),
+      q(0109) => q(MZN),
+      q(0110) => q(MMK),
+      q(0111) => q(NAD),
+      q(0112) => q(NPR),
+      q(0113) => q(NIO),
+      q(0114) => q(NGN),
+      q(0115) => q(OMR),
+      q(0116) => q(PKR),
+      q(0117) => q(PAB),
+      q(0118) => q(PGK),
+      q(0119) => q(PYG),
+      q(0120) => q(PEN),
+      q(0121) => q(PHP),
+      q(0122) => q(PLN),
+      q(0123) => q(QAR),
+      q(0124) => q(RON),
+      q(0125) => q(RUB),
+      q(0126) => q(RWF),
+      q(0127) => q(SHP),
+      q(0128) => q(WST),
+      q(0129) => q(STD),
+      q(0130) => q(SAR),
+      q(0131) => q(RSD),
+      q(0132) => q(SCR),
+      q(0133) => q(SLL),
+      q(0134) => q(SGD),
+      q(0135) => q(XSU),
+      q(0136) => q(SBD),
+      q(0137) => q(SOS),
+      q(0138) => q(SSP),
+      q(0139) => q(LKR),
+      q(0140) => q(SDG),
+      q(0141) => q(SRD),
+      q(0142) => q(SZL),
+      q(0143) => q(SEK),
+      q(0144) => q(CHE),
+      q(0145) => q(CHW),
+      q(0146) => q(SYP),
+      q(0147) => q(TWD),
+      q(0148) => q(TJS),
+      q(0149) => q(TZS),
+      q(0150) => q(THB),
+      q(0151) => q(TOP),
+      q(0152) => q(TTD),
+      q(0153) => q(TND),
+      q(0154) => q(TRY),
+      q(0155) => q(TMT),
+      q(0156) => q(UGX),
+      q(0157) => q(UAH),
+      q(0158) => q(AED),
+      q(0159) => q(USN),
+      q(0160) => q(UYI),
+      q(0161) => q(UYU),
+      q(0162) => q(UZS),
+      q(0163) => q(VUV),
+      q(0164) => q(VEF),
+      q(0165) => q(VND),
+      q(0166) => q(YER),
+      q(0167) => q(ZMW),
+      q(0168) => q(ZWL),
+      q(0169) => q(XBA),
+      q(0170) => q(XBB),
+      q(0171) => q(XBC),
+      q(0172) => q(XBD),
+      q(0173) => q(XAU),
+      q(0174) => q(XPD),
+      q(0175) => q(XPT),
+      q(0176) => q(XAG),
+      },
+   q(num) => {
+      q(0001) => q(971),
+      q(0002) => q(978),
+      q(0003) => q(008),
+      q(0004) => q(012),
+      q(0005) => q(840),
+      q(0006) => q(973),
+      q(0007) => q(951),
+      q(0008) => q(032),
+      q(0009) => q(051),
+      q(0010) => q(533),
+      q(0011) => q(036),
+      q(0012) => q(944),
+      q(0013) => q(044),
+      q(0014) => q(048),
+      q(0015) => q(050),
+      q(0016) => q(052),
+      q(0017) => q(974),
+      q(0018) => q(084),
+      q(0019) => q(952),
+      q(0020) => q(060),
+      q(0021) => q(064),
+      q(0022) => q(356),
+      q(0023) => q(068),
+      q(0024) => q(984),
+      q(0025) => q(977),
+      q(0026) => q(072),
+      q(0027) => q(578),
+      q(0028) => q(986),
+      q(0029) => q(096),
+      q(0030) => q(975),
+      q(0031) => q(108),
+      q(0032) => q(132),
+      q(0033) => q(116),
+      q(0034) => q(950),
+      q(0035) => q(124),
+      q(0036) => q(136),
+      q(0037) => q(990),
+      q(0038) => q(152),
+      q(0039) => q(156),
+      q(0040) => q(170),
+      q(0041) => q(970),
+      q(0042) => q(174),
+      q(0043) => q(976),
+      q(0044) => q(554),
+      q(0045) => q(188),
+      q(0046) => q(191),
+      q(0047) => q(931),
+      q(0048) => q(192),
+      q(0049) => q(532),
+      q(0050) => q(203),
+      q(0051) => q(208),
+      q(0052) => q(262),
+      q(0053) => q(214),
+      q(0054) => q(818),
+      q(0055) => q(222),
+      q(0056) => q(232),
+      q(0057) => q(230),
+      q(0058) => q(238),
+      q(0059) => q(242),
+      q(0060) => q(953),
+      q(0061) => q(270),
+      q(0062) => q(981),
+      q(0063) => q(936),
+      q(0064) => q(292),
+      q(0065) => q(320),
+      q(0066) => q(826),
+      q(0067) => q(324),
+      q(0068) => q(328),
+      q(0069) => q(332),
+      q(0070) => q(340),
+      q(0071) => q(344),
+      q(0072) => q(348),
+      q(0073) => q(352),
+      q(0074) => q(360),
+      q(0075) => q(960),
+      q(0076) => q(364),
+      q(0077) => q(368),
+      q(0078) => q(376),
+      q(0079) => q(388),
+      q(0080) => q(392),
+      q(0081) => q(400),
+      q(0082) => q(398),
+      q(0083) => q(404),
+      q(0084) => q(408),
+      q(0085) => q(410),
+      q(0086) => q(414),
+      q(0087) => q(417),
+      q(0088) => q(418),
+      q(0089) => q(422),
+      q(0090) => q(426),
+      q(0091) => q(710),
+      q(0092) => q(430),
+      q(0093) => q(434),
+      q(0094) => q(756),
+      q(0095) => q(446),
+      q(0096) => q(807),
+      q(0097) => q(969),
+      q(0098) => q(454),
+      q(0099) => q(458),
+      q(0100) => q(462),
+      q(0101) => q(478),
+      q(0102) => q(480),
+      q(0103) => q(965),
+      q(0104) => q(484),
+      q(0105) => q(979),
+      q(0106) => q(498),
+      q(0107) => q(496),
+      q(0108) => q(504),
+      q(0109) => q(943),
+      q(0110) => q(104),
+      q(0111) => q(516),
+      q(0112) => q(524),
+      q(0113) => q(558),
+      q(0114) => q(566),
+      q(0115) => q(512),
+      q(0116) => q(586),
+      q(0117) => q(590),
+      q(0118) => q(598),
+      q(0119) => q(600),
+      q(0120) => q(604),
+      q(0121) => q(608),
+      q(0122) => q(985),
+      q(0123) => q(634),
+      q(0124) => q(946),
+      q(0125) => q(643),
+      q(0126) => q(646),
+      q(0127) => q(654),
+      q(0128) => q(882),
+      q(0129) => q(678),
+      q(0130) => q(682),
+      q(0131) => q(941),
+      q(0132) => q(690),
+      q(0133) => q(694),
+      q(0134) => q(702),
+      q(0135) => q(994),
+      q(0136) => q(090),
+      q(0137) => q(706),
+      q(0138) => q(728),
+      q(0139) => q(144),
+      q(0140) => q(938),
+      q(0141) => q(968),
+      q(0142) => q(748),
+      q(0143) => q(752),
+      q(0144) => q(947),
+      q(0145) => q(948),
+      q(0146) => q(760),
+      q(0147) => q(901),
+      q(0148) => q(972),
+      q(0149) => q(834),
+      q(0150) => q(764),
+      q(0151) => q(776),
+      q(0152) => q(780),
+      q(0153) => q(788),
+      q(0154) => q(949),
+      q(0155) => q(934),
+      q(0156) => q(800),
+      q(0157) => q(980),
+      q(0158) => q(784),
+      q(0159) => q(997),
+      q(0160) => q(940),
+      q(0161) => q(858),
+      q(0162) => q(860),
+      q(0163) => q(548),
+      q(0164) => q(937),
+      q(0165) => q(704),
+      q(0166) => q(886),
+      q(0167) => q(967),
+      q(0168) => q(932),
+      q(0169) => q(955),
+      q(0170) => q(956),
+      q(0171) => q(957),
+      q(0172) => q(958),
+      q(0173) => q(959),
+      q(0174) => q(964),
+      q(0175) => q(962),
+      q(0176) => q(961),
+      },
+};
+
+1;
diff --git a/lib/5.24.1/Locale/Codes/Currency_Retired.pm b/lib/5.24.1/Locale/Codes/Currency_Retired.pm
new file mode 100644
index 00000000..483238fe
--- /dev/null
+++ b/lib/5.24.1/Locale/Codes/Currency_Retired.pm
@@ -0,0 +1,172 @@
+package #
+Locale::Codes::Currency_Retired;
+
+# This file was automatically generated.  Any changes to this file will
+# be lost the next time 'deprecate_codes' is run.
+#    Generated on: Tue Dec  1 14:45:28 EST 2015
+
+use strict;
+require 5.006;
+use warnings;
+use utf8;
+
+our($VERSION);
+$VERSION='3.37';
+
+$Locale::Codes::Retired{'currency'}{'alpha'}{'code'} = {
+   q(ADP) => q(Andorran Peseta),
+   q(AFA) => q(Afghani),
+   q(AON) => q(New Kwanza),
+   q(AOR) => q(Kwanza Reajustado),
+   q(ATS) => q(Schilling),
+   q(AZM) => q(Azerbaijanian Manat),
+   q(BEF) => q(Belgian Franc),
+   q(BGL) => q(Lev),
+   q(BYB) => q(Belarussian Ruble),
+   q(CYP) => q(Cyprus Pound),
+   q(DEM) => q(German Mark),
+   q(ECS) => q(Sucre),
+   q(ECV) => q(Unidad de Valor Constante (UVC)),
+   q(EEK) => q(Kroon),
+   q(ESP) => q(Spanish Peseta),
+   q(FIM) => q(Markka),
+   q(FRF) => q(French Franc),
+   q(GHC) => q(Cedi),
+   q(GRD) => q(Drachma),
+   q(GWP) => q(Guinea-Bissau Peso),
+   q(IEP) => q(Irish Pound),
+   q(ITL) => q(Italian Lira),
+   q(LTL) => q(Lithuanian Litas),
+   q(LUF) => q(Luxembourg Franc),
+   q(LVL) => q(Latvian Lats),
+   q(MGF) => q(Malagasy Franc),
+   q(MTL) => q(Maltese Lira),
+   q(MZM) => q(Metical),
+   q(NLG) => q(Netherlands Guilder),
+   q(PTE) => q(Portuguese Escudo),
+   q(ROL) => q(Leu),
+   q(RUR) => q(Russian Ruble),
+   q(SDD) => q(Sudanese Dinar),
+   q(SHP) => q(Saint Helena Pound),
+   q(SIT) => q(Tolar),
+   q(SKK) => q(Slovak Koruna),
+   q(SRG) => q(Surinam Guilder),
+   q(TJR) => q(Tajik Ruble),
+   q(TMM) => q(Manat),
+   q(TPE) => q(Timor Escudo),
+   q(TRL) => q(Turkish Lira),
+   q(UAK) => q(Karbovanets),
+   q(USS) => q(US Dollar (Same day)),
+   q(VEB) => q(Bolivar),
+   q(XB5) => q(European Unit of Account 17),
+   q(XEU) => q(ECU (until 1998-12-31)),
+   q(XFO) => q(Gold-Franc),
+   q(XFU) => q(UIC-Franc),
+   q(YUM) => q(New Dinar),
+   q(ZAL) => q(Financial Rand),
+   q(ZRN) => q(New Zaire),
+   q(ZWD) => q(Zimbabwe Dollar),
+};
+
+$Locale::Codes::Retired{'currency'}{'num'}{'code'} = {
+   q(428) => q(Latvian Lats),
+   q(440) => q(Lithuanian Litas),
+   q(654) => q(Saint Helena Pound),
+   q(998) => q(US Dollar (Same day)),
+};
+
+$Locale::Codes::Retired{'currency'}{'alpha'}{'name'} = {
+   q(andorran peseta) => [ q(ADP), q(Andorran Peseta) ],
+   q(aruban guilder) => [ q(AWG), q(Aruban Guilder) ],
+   q(belgian franc) => [ q(BEF), q(Belgian Franc) ],
+   q(bermudian dollar (customarily known as bermuda dollar)) => [ q(BMD), q(Bermudian Dollar (customarily known as Bermuda Dollar)) ],
+   q(bolivar) => [ q(VEB), q(Bolivar) ],
+   q(bolivar fuerte) => [ q(VEF), q(Bolivar Fuerte) ],
+   q(bond markets units european composite unit (eurco)) => [ q(XBA), q(Bond Markets Units European Composite Unit (EURCO)) ],
+   q(candian dollar) => [ q(CAD), q(Candian Dollar) ],
+   q(cape verde escudo) => [ q(CVE), q(Cape Verde Escudo) ],
+   q(cedi) => [ q(GHS), q(Cedi) ],
+   q(convertible marks) => [ q(BAM), q(Convertible Marks) ],
+   q(croatian kuna) => [ q(HRK), q(Croatian Kuna) ],
+   q(cyprus pound) => [ q(CYP), q(Cyprus Pound) ],
+   q(dinar) => [ q(BHD), q(Dinar) ],
+   q(drachma) => [ q(GRD), q(Drachma) ],
+   q(ecu (until 1998-12-31)) => [ q(XEU), q(ECU (until 1998-12-31)) ],
+   q(european composite unit) => [ q(XBA), q(European Composite Unit) ],
+   q(european monetary unit) => [ q(XBB), q(European Monetary Unit) ],
+   q(european monetary unit (e.m.u.-6)) => [ q(XBB), q(European Monetary Unit (E.M.U.-6)) ],
+   q(european unit of account 17) => [ q(XB5), q(European Unit of Account 17) ],
+   q(european unit of account 17(e.u.a.-17)) => [ q(XBD), q(European Unit of Account 17(E.U.A.-17)) ],
+   q(european unit of account 9) => [ q(XBC), q(European Unit of Account 9) ],
+   q(european unit of account 9(e.u.a.-9)) => [ q(XBC), q(European Unit of Account 9(E.U.A.-9)) ],
+   q(financial rand) => [ q(ZAL), q(Financial Rand) ],
+   q(franc congolais) => [ q(CDF), q(Franc Congolais) ],
+   q(french franc) => [ q(FRF), q(French Franc) ],
+   q(german mark) => [ q(DEM), q(German Mark) ],
+   q(gold-franc) => [ q(XFO), q(Gold-Franc) ],
+   q(guinea-bissau peso) => [ q(GWP), q(Guinea-Bissau Peso) ],
+   q(irish pound) => [ q(IEP), q(Irish Pound) ],
+   q(italian lira) => [ q(ITL), q(Italian Lira) ],
+   q(karbovanets) => [ q(UAK), q(Karbovanets) ],
+   q(kroon) => [ q(EEK), q(Kroon) ],
+   q(kuna) => [ q(HRK), q(Kuna) ],
+   q(kwanza reajustado) => [ q(AOR), q(Kwanza Reajustado) ],
+   q(latvian lats) => [ q(LVL), q(Latvian Lats) ],
+   q(leu) => [ q(RON), q(Leu) ],
+   q(lev) => [ q(BGL), q(Lev) ],
+   q(lithuanian litas) => [ q(LTL), q(Lithuanian Litas) ],
+   q(luxembourg franc) => [ q(LUF), q(Luxembourg Franc) ],
+   q(malagasy franc) => [ q(MGF), q(Malagasy Franc) ],
+   q(maltese lira) => [ q(MTL), q(Maltese Lira) ],
+   q(manat) => [ q(TMT), q(Manat) ],
+   q(markka) => [ q(FIM), q(Markka) ],
+   q(metical) => [ q(MZN), q(Metical) ],
+   q(mexican nuevo peso) => [ q(MXN), q(Mexican Nuevo Peso) ],
+   q(netherlands antillian guilder) => [ q(ANG), q(Netherlands Antillian Guilder) ],
+   q(netherlands guilder) => [ q(NLG), q(Netherlands Guilder) ],
+   q(new dinar) => [ q(YUM), q(New Dinar) ],
+   q(new kwanza) => [ q(AON), q(New Kwanza) ],
+   q(new leu) => [ q(RON), q(New Leu) ],
+   q(new manat) => [ q(TMT), q(New Manat) ],
+   q(new romanian leu) => [ q(RON), q(New Romanian Leu) ],
+   q(new zaire) => [ q(ZRN), q(New Zaire) ],
+   q(portuguese escudo) => [ q(PTE), q(Portuguese Escudo) ],
+   q(saint helena pound) => [ q(SHP), q(Saint Helena Pound) ],
+   q(schilling) => [ q(ATS), q(Schilling) ],
+   q(sdr) => [ q(XDR), q(SDR) ],
+   q(shekel) => [ q(ILS), q(Shekel) ],
+   q(slovak koruna) => [ q(SKK), q(Slovak Koruna) ],
+   q(spanish peseta) => [ q(ESP), q(Spanish Peseta) ],
+   q(st. helena pound) => [ q(SHP), q(St. Helena Pound) ],
+   q(sudanese dinar) => [ q(SDD), q(Sudanese Dinar) ],
+   q(surinam guilder) => [ q(SRG), q(Surinam Guilder) ],
+   q(tajik ruble) => [ q(TJR), q(Tajik Ruble) ],
+   q(timor escudo) => [ q(TPE), q(Timor Escudo) ],
+   q(tolar) => [ q(SIT), q(Tolar) ],
+   q(tunisian dollar) => [ q(TND), q(Tunisian Dollar) ],
+   q(uic-franc) => [ q(XFU), q(UIC-Franc) ],
+   q(unidad de valor constante (uvc)) => [ q(ECV), q(Unidad de Valor Constante (UVC)) ],
+   q(unidades de fomento) => [ q(CLF), q(Unidades de fomento) ],
+   q(unidades de formento) => [ q(CLF), q(Unidades de Formento) ],
+   q(uruguay peso en unidades indexadas) => [ q(UYI), q(Uruguay Peso en Unidades Indexadas) ],
+   q(us dollar (same day)) => [ q(USS), q(US Dollar (Same day)) ],
+};
+
+$Locale::Codes::Retired{'currency'}{'num'}{'name'} = {
+   q(bolivar fuerte) => [ q(937), q(Bolivar Fuerte) ],
+   q(cape verde escudo) => [ q(132), q(Cape Verde Escudo) ],
+   q(cedi) => [ q(936), q(Cedi) ],
+   q(croatian kuna) => [ q(191), q(Croatian Kuna) ],
+   q(latvian lats) => [ q(428), q(Latvian Lats) ],
+   q(leu) => [ q(946), q(Leu) ],
+   q(lithuanian litas) => [ q(440), q(Lithuanian Litas) ],
+   q(metical) => [ q(943), q(Metical) ],
+   q(new manat) => [ q(934), q(New Manat) ],
+   q(new romanian leu) => [ q(946), q(New Romanian Leu) ],
+   q(saint helena pound) => [ q(654), q(Saint Helena Pound) ],
+   q(unidades de fomento) => [ q(990), q(Unidades de fomento) ],
+   q(us dollar (same day)) => [ q(998), q(US Dollar (Same day)) ],
+};
+
+
+1;
diff --git a/lib/5.24.1/Locale/Codes/LangExt.pm b/lib/5.24.1/Locale/Codes/LangExt.pm
new file mode 100644
index 00000000..6376da26
--- /dev/null
+++ b/lib/5.24.1/Locale/Codes/LangExt.pm
@@ -0,0 +1,95 @@
+package Locale::Codes::LangExt;
+# Copyright (c) 2011-2015 Sullivan Beck
+# This program is free software; you can redistribute it and/or modify it
+# under the same terms as Perl itself.
+
+use strict;
+require 5.006;
+use warnings;
+
+require Exporter;
+use Carp;
+use Locale::Codes;
+use Locale::Codes::Constants;
+use Locale::Codes::LangExt_Codes;
+use Locale::Codes::LangExt_Retired;
+
+#=======================================================================
+#       Public Global Variables
+#=======================================================================
+
+our($VERSION,@ISA,@EXPORT,@EXPORT_OK);
+
+$VERSION='3.37';
+@ISA       = qw(Exporter);
+@EXPORT    = qw(code2langext
+                langext2code
+                all_langext_codes
+                all_langext_names
+                langext_code2code
+                LOCALE_LANGEXT_ALPHA
+               );
+
+sub code2langext {
+   return Locale::Codes::_code2name('langext',@_);
+}
+
+sub langext2code {
+   return Locale::Codes::_name2code('langext',@_);
+}
+
+sub langext_code2code {
+   return Locale::Codes::_code2code('langext',@_);
+}
+
+sub all_langext_codes {
+   return Locale::Codes::_all_codes('langext',@_);
+}
+
+sub all_langext_names {
+   return Locale::Codes::_all_names('langext',@_);
+}
+
+sub rename_langext {
+   return Locale::Codes::_rename('langext',@_);
+}
+
+sub add_langext {
+   return Locale::Codes::_add_code('langext',@_);
+}
+
+sub delete_langext {
+   return Locale::Codes::_delete_code('langext',@_);
+}
+
+sub add_langext_alias {
+   return Locale::Codes::_add_alias('langext',@_);
+}
+
+sub delete_langext_alias {
+   return Locale::Codes::_delete_alias('langext',@_);
+}
+
+sub rename_langext_code {
+   return Locale::Codes::_rename_code('langext',@_);
+}
+
+sub add_langext_code_alias {
+   return Locale::Codes::_add_code_alias('langext',@_);
+}
+
+sub delete_langext_code_alias {
+   return Locale::Codes::_delete_code_alias('langext',@_);
+}
+
+1;
+# Local Variables:
+# mode: cperl
+# indent-tabs-mode: nil
+# cperl-indent-level: 3
+# cperl-continued-statement-offset: 2
+# cperl-continued-brace-offset: 0
+# cperl-brace-offset: 0
+# cperl-brace-imaginary-offset: 0
+# cperl-label-offset: -2
+# End:
diff --git a/lib/5.24.1/Locale/Codes/LangExt.pod b/lib/5.24.1/Locale/Codes/LangExt.pod
new file mode 100644
index 00000000..271a5ac7
--- /dev/null
+++ b/lib/5.24.1/Locale/Codes/LangExt.pod
@@ -0,0 +1,116 @@
+=pod
+
+=head1 NAME
+
+Locale::Codes::LangExt - standard codes for language extension identification
+
+=head1 SYNOPSIS
+
+   use Locale::Codes::LangExt;
+
+   $lext = code2langext('acm');                 # $lext gets 'Mesopotamian Arabic'
+   $code = langext2code('Mesopotamian Arabic'); # $code gets 'acm'
+
+   @codes   = all_langext_codes();
+   @names   = all_langext_names();
+
+=head1 DESCRIPTION
+
+This module provides access to standard codes
+used for identifying language extensions, such as those as defined in
+the IANA language registry.
+
+Most of the routines take an optional additional argument which
+specifies the code set to use. If not specified, the default IANA
+language registry codes will be used.
+
+=head1 SUPPORTED CODE SETS
+
+There are several different code sets you can use for identifying
+language extensions. A code set may be specified using either a name, or a
+constant that is automatically exported by this module.
+
+For example, the two are equivalent:
+
+   $lext = code2langext('acm','alpha');
+   $lext = code2langext('acm',LOCALE_LANGEXT_ALPHA);
+
+The codesets currently supported are:
+
+=over 4
+
+=item B<alpha>
+
+This is the set of three-letter (lowercase) codes from the IANA
+language registry, such as 'acm' for Mesopotamian Arabic. 
+
+This is the default code set.
+
+=back
+
+=head1 ROUTINES
+
+=over 4
+
+=item B<code2langext(CODE [,CODESET] [,'retired'])>
+
+=item B<langext2code(NAME [,CODESET] [,'retired'])>
+
+=item B<langext_code2code(CODE ,CODESET ,CODESET2)>
+
+=item B<all_langext_codes([CODESET] [,'retired'])>
+
+=item B<all_langext_names([CODESET] [,'retired'])>
+
+=item B<Locale::Codes::LangExt::rename_langext(CODE ,NEW_NAME [,CODESET])>
+
+=item B<Locale::Codes::LangExt::add_langext(CODE ,NAME [,CODESET])>
+
+=item B<Locale::Codes::LangExt::delete_langext(CODE [,CODESET])>
+
+=item B<Locale::Codes::LangExt::add_langext_alias(NAME ,NEW_NAME)>
+
+=item B<Locale::Codes::LangExt::delete_langext_alias(NAME)>
+
+=item B<Locale::Codes::LangExt::rename_langext_code(CODE ,NEW_CODE [,CODESET])>
+
+=item B<Locale::Codes::LangExt::add_langext_code_alias(CODE ,NEW_CODE [,CODESET])>
+
+=item B<Locale::Codes::LangExt::delete_langext_code_alias(CODE [,CODESET])>
+
+These routines are all documented in the L<Locale::Codes::API> man page.
+
+=back
+
+=head1 SEE ALSO
+
+=over 4
+
+=item L<Locale::Codes>
+
+The Locale-Codes distribution.
+
+=item L<Locale::Codes::API>
+
+The list of functions supported by this module.
+
+=item L<http://www.iana.org/assignments/language-subtag-registry>
+
+The IANA language subtag registry.
+
+=back
+
+=head1 AUTHOR
+
+See Locale::Codes for full author history.
+
+Currently maintained by Sullivan Beck (sbeck@cpan.org).
+
+=head1 COPYRIGHT
+
+   Copyright (c) 2011-2015 Sullivan Beck
+
+This module is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+=cut
diff --git a/lib/5.24.1/Locale/Codes/LangExt_Codes.pm b/lib/5.24.1/Locale/Codes/LangExt_Codes.pm
new file mode 100644
index 00000000..e2e18346
--- /dev/null
+++ b/lib/5.24.1/Locale/Codes/LangExt_Codes.pm
@@ -0,0 +1,2857 @@
+package #
+Locale::Codes::LangExt_Codes;
+
+# This file was automatically generated.  Any changes to this file will
+# be lost the next time 'harvest_data' is run.
+#    Generated on: Tue Dec  1 14:44:16 EST 2015
+
+use strict;
+require 5.006;
+use warnings;
+use utf8;
+
+our($VERSION);
+$VERSION='3.37';
+
+$Locale::Codes::Data{'langext'}{'id'} = '0230';
+
+$Locale::Codes::Data{'langext'}{'id2names'} = {
+   q(0001) => [
+      q(Algerian Saharan Arabic),
+      ],
+   q(0002) => [
+      q(Tajiki Arabic),
+      ],
+   q(0003) => [
+      q(Baharna Arabic),
+      ],
+   q(0004) => [
+      q(Mesopotamian Arabic),
+      ],
+   q(0005) => [
+      q(Ta'izzi-Adeni Arabic),
+      ],
+   q(0006) => [
+      q(Hijazi Arabic),
+      ],
+   q(0007) => [
+      q(Omani Arabic),
+      ],
+   q(0008) => [
+      q(Cypriot Arabic),
+      ],
+   q(0009) => [
+      q(Dhofari Arabic),
+      ],
+   q(0010) => [
+      q(Adamorobe Sign Language),
+      ],
+   q(0011) => [
+      q(Tunisian Arabic),
+      ],
+   q(0012) => [
+      q(Saidi Arabic),
+      ],
+   q(0013) => [
+      q(Argentine Sign Language),
+      ],
+   q(0014) => [
+      q(Armenian Sign Language),
+      ],
+   q(0015) => [
+      q(Gulf Arabic),
+      ],
+   q(0016) => [
+      q(Afghan Sign Language),
+      ],
+   q(0017) => [
+      q(South Levantine Arabic),
+      ],
+   q(0018) => [
+      q(North Levantine Arabic),
+      ],
+   q(0019) => [
+      q(Sudanese Arabic),
+      ],
+   q(0020) => [
+      q(Standard Arabic),
+      ],
+   q(0021) => [
+      q(Algerian Arabic),
+      ],
+   q(0022) => [
+      q(Najdi Arabic),
+      ],
+   q(0023) => [
+      q(Moroccan Arabic),
+      ],
+   q(0024) => [
+      q(Egyptian Arabic),
+      ],
+   q(0025) => [
+      q(American Sign Language),
+      ],
+   q(0026) => [
+      q(Australian Sign Language),
+      ],
+   q(0027) => [
+      q(Algerian Sign Language),
+      ],
+   q(0028) => [
+      q(Austrian Sign Language),
+      ],
+   q(0029) => [
+      q(Australian Aborigines Sign Language),
+      ],
+   q(0030) => [
+      q(Uzbeki Arabic),
+      ],
+   q(0031) => [
+      q(Eastern Egyptian Bedawi Arabic),
+      ],
+   q(0032) => [
+      q(Hadrami Arabic),
+      ],
+   q(0033) => [
+      q(Libyan Arabic),
+      ],
+   q(0034) => [
+      q(Sanaani Arabic),
+      ],
+   q(0035) => [
+      q(North Mesopotamian Arabic),
+      ],
+   q(0036) => [
+      q(Babalia Creole Arabic),
+      ],
+   q(0037) => [
+      q(British Sign Language),
+      ],
+   q(0038) => [
+      q(Ban Khor Sign Language),
+      ],
+   q(0039) => [
+      q(Banjar),
+      ],
+   q(0040) => [
+      q(Bamako Sign Language),
+      ],
+   q(0041) => [
+      q(Bulgarian Sign Language),
+      ],
+   q(0042) => [
+      q(Bengkala Sign Language),
+      ],
+   q(0043) => [
+      q(Bacanese Malay),
+      ],
+   q(0044) => [
+      q(Berau Malay),
+      ],
+   q(0045) => [
+      q(Bolivian Sign Language),
+      ],
+   q(0046) => [
+      q(Bukit Malay),
+      ],
+   q(0047) => [
+      q(Brazilian Sign Language),
+      ],
+   q(0048) => [
+      q(Min Dong Chinese),
+      ],
+   q(0049) => [
+      q(Chadian Sign Language),
+      ],
+   q(0050) => [
+      q(Jinyu Chinese),
+      ],
+   q(0051) => [
+      q(Mandarin Chinese),
+      ],
+   q(0052) => [
+      q(Cocos Islands Malay),
+      ],
+   q(0053) => [
+      q(Pu-Xian Chinese),
+      ],
+   q(0054) => [
+      q(Catalan Sign Language),
+      q(Lengua de senas catalana),
+      q(Llengua de Signes Catalana),
+      ],
+   q(0055) => [
+      q(Chiangmai Sign Language),
+      ],
+   q(0056) => [
+      q(Czech Sign Language),
+      ],
+   q(0057) => [
+      q(Cuba Sign Language),
+      ],
+   q(0058) => [
+      q(Chilean Sign Language),
+      ],
+   q(0059) => [
+      q(Chinese Sign Language),
+      ],
+   q(0060) => [
+      q(Colombian Sign Language),
+      ],
+   q(0061) => [
+      q(Croatia Sign Language),
+      ],
+   q(0062) => [
+      q(Costa Rican Sign Language),
+      ],
+   q(0063) => [
+      q(Huizhou Chinese),
+      ],
+   q(0064) => [
+      q(Min Zhong Chinese),
+      ],
+   q(0065) => [
+      q(Dominican Sign Language),
+      ],
+   q(0066) => [
+      q(Dutch Sign Language),
+      ],
+   q(0067) => [
+      q(Danish Sign Language),
+      ],
+   q(0068) => [
+      q(Duano),
+      ],
+   q(0069) => [
+      q(Ecuadorian Sign Language),
+      ],
+   q(0070) => [
+      q(Egypt Sign Language),
+      ],
+   q(0071) => [
+      q(Salvadoran Sign Language),
+      ],
+   q(0072) => [
+      q(Estonian Sign Language),
+      ],
+   q(0073) => [
+      q(Ethiopian Sign Language),
+      ],
+   q(0074) => [
+      q(Quebec Sign Language),
+      ],
+   q(0075) => [
+      q(Finnish Sign Language),
+      ],
+   q(0076) => [
+      q(French Sign Language),
+      ],
+   q(0077) => [
+      q(Finland-Swedish Sign Language),
+      q(finlandssvenskt teckensprak),
+      q(suomenruotsalainen viittomakieli),
+      ],
+   q(0078) => [
+      q(Gan Chinese),
+      ],
+   q(0079) => [
+      q(Ghandruk Sign Language),
+      ],
+   q(0080) => [
+      q(Goan Konkani),
+      ],
+   q(0081) => [
+      q(Ghanaian Sign Language),
+      ],
+   q(0082) => [
+      q(German Sign Language),
+      ],
+   q(0083) => [
+      q(Guatemalan Sign Language),
+      ],
+   q(0084) => [
+      q(Greek Sign Language),
+      ],
+   q(0085) => [
+      q(Guinean Sign Language),
+      ],
+   q(0086) => [
+      q(Hanoi Sign Language),
+      ],
+   q(0087) => [
+      q(Haiphong Sign Language),
+      ],
+   q(0088) => [
+      q(Hakka Chinese),
+      ],
+   q(0089) => [
+      q(Honduras Sign Language),
+      ],
+   q(0090) => [
+      q(Haji),
+      ],
+   q(0091) => [
+      q(Hong Kong Sign Language),
+      q(Heung Kong Sau Yue),
+      ],
+   q(0092) => [
+      q(Ho Chi Minh City Sign Language),
+      ],
+   q(0093) => [
+      q(Hawai'i Sign Language (HSL)),
+      q(Hawai'i Pidgin Sign Language),
+      ],
+   q(0094) => [
+      q(Hungarian Sign Language),
+      ],
+   q(0095) => [
+      q(Hausa Sign Language),
+      ],
+   q(0096) => [
+      q(Xiang Chinese),
+      ],
+   q(0097) => [
+      q(Icelandic Sign Language),
+      ],
+   q(0098) => [
+      q(Inuit Sign Language),
+      ],
+   q(0099) => [
+      q(International Sign),
+      ],
+   q(0100) => [
+      q(Indonesian Sign Language),
+      ],
+   q(0101) => [
+      q(Indian Sign Language),
+      ],
+   q(0102) => [
+      q(Italian Sign Language),
+      ],
+   q(0103) => [
+      q(Irish Sign Language),
+      ],
+   q(0104) => [
+      q(Israeli Sign Language),
+      ],
+   q(0105) => [
+      q(Jakun),
+      ],
+   q(0106) => [
+      q(Jambi Malay),
+      ],
+   q(0107) => [
+      q(Jamaican Country Sign Language),
+      ],
+   q(0108) => [
+      q(Jhankot Sign Language),
+      ],
+   q(0109) => [
+      q(Jamaican Sign Language),
+      ],
+   q(0110) => [
+      q(Jordanian Sign Language),
+      ],
+   q(0111) => [
+      q(Japanese Sign Language),
+      ],
+   q(0112) => [
+      q(Jumla Sign Language),
+      ],
+   q(0113) => [
+      q(Selangor Sign Language),
+      ],
+   q(0114) => [
+      q(Konkani (individual language)),
+      ],
+   q(0115) => [
+      q(Kubu),
+      ],
+   q(0116) => [
+      q(Korean Sign Language),
+      ],
+   q(0117) => [
+      q(Kerinci),
+      ],
+   q(0118) => [
+      q(Brunei),
+      ],
+   q(0119) => [
+      q(Libyan Sign Language),
+      ],
+   q(0120) => [
+      q(Loncong),
+      ],
+   q(0121) => [
+      q(Lubu),
+      ],
+   q(0122) => [
+      q(Col),
+      ],
+   q(0123) => [
+      q(Lithuanian Sign Language),
+      ],
+   q(0124) => [
+      q(Lyons Sign Language),
+      ],
+   q(0125) => [
+      q(Latvian Sign Language),
+      ],
+   q(0126) => [
+      q(Laos Sign Language),
+      ],
+   q(0127) => [
+      q(Panamanian Sign Language),
+      q(Lengua de Senas Panamenas),
+      ],
+   q(0128) => [
+      q(Trinidad and Tobago Sign Language),
+      ],
+   q(0129) => [
+      q(Mauritian Sign Language),
+      ],
+   q(0130) => [
+      q(Latgalian),
+      ],
+   q(0131) => [
+      q(Standard Latvian),
+      ],
+   q(0132) => [
+      q(Literary Chinese),
+      ],
+   q(0133) => [
+      q(North Moluccan Malay),
+      ],
+   q(0134) => [
+      q(Maltese Sign Language),
+      ],
+   q(0135) => [
+      q(Kedah Malay),
+      ],
+   q(0136) => [
+      q(Pattani Malay),
+      ],
+   q(0137) => [
+      q(Bangka),
+      ],
+   q(0138) => [
+      q(Mexican Sign Language),
+      ],
+   q(0139) => [
+      q(Minangkabau),
+      ],
+   q(0140) => [
+      q(Min Bei Chinese),
+      ],
+   q(0141) => [
+      q(Kota Bangun Kutai Malay),
+      ],
+   q(0142) => [
+      q(Martha's Vineyard Sign Language),
+      ],
+   q(0143) => [
+      q(Yucatec Maya Sign Language),
+      ],
+   q(0144) => [
+      q(Sabah Malay),
+      ],
+   q(0145) => [
+      q(Mongolian Sign Language),
+      ],
+   q(0146) => [
+      q(Musi),
+      ],
+   q(0147) => [
+      q(Madagascar Sign Language),
+      ],
+   q(0148) => [
+      q(Monastic Sign Language),
+      ],
+   q(0149) => [
+      q(Mozambican Sign Language),
+      ],
+   q(0150) => [
+      q(Min Nan Chinese),
+      ],
+   q(0151) => [
+      q(Namibian Sign Language),
+      ],
+   q(0152) => [
+      q(Nicaraguan Sign Language),
+      ],
+   q(0153) => [
+      q(Nigerian Sign Language),
+      ],
+   q(0154) => [
+      q(Norwegian Sign Language),
+      ],
+   q(0155) => [
+      q(Nepalese Sign Language),
+      ],
+   q(0156) => [
+      q(Maritime Sign Language),
+      ],
+   q(0157) => [
+      q(New Zealand Sign Language),
+      ],
+   q(0158) => [
+      q(Old Kentish Sign Language),
+      ],
+   q(0159) => [
+      q(Orang Kanaq),
+      ],
+   q(0160) => [
+      q(Orang Seletar),
+      ],
+   q(0161) => [
+      q(Pekal),
+      ],
+   q(0162) => [
+      q(Sudanese Creole Arabic),
+      ],
+   q(0163) => [
+      q(Pakistan Sign Language),
+      ],
+   q(0164) => [
+      q(Peruvian Sign Language),
+      ],
+   q(0165) => [
+      q(Providencia Sign Language),
+      ],
+   q(0166) => [
+      q(Persian Sign Language),
+      ],
+   q(0167) => [
+      q(Plains Indian Sign Language),
+      ],
+   q(0168) => [
+      q(Central Malay),
+      ],
+   q(0169) => [
+      q(Penang Sign Language),
+      ],
+   q(0170) => [
+      q(Puerto Rican Sign Language),
+      ],
+   q(0171) => [
+      q(Polish Sign Language),
+      ],
+   q(0172) => [
+      q(Philippine Sign Language),
+      ],
+   q(0173) => [
+      q(Portuguese Sign Language),
+      ],
+   q(0174) => [
+      q(Paraguayan Sign Language),
+      q(Lengua de Senas del Paraguay),
+      ],
+   q(0175) => [
+      q(Romanian Sign Language),
+      ],
+   q(0176) => [
+      q(Rennellese Sign Language),
+      ],
+   q(0177) => [
+      q(Russian Sign Language),
+      ],
+   q(0178) => [
+      q(Saudi Arabian Sign Language),
+      ],
+   q(0179) => [
+      q(Langue des signes de Belgique Francophone),
+      q(French Belgian Sign Language),
+      ],
+   q(0180) => [
+      q(South African Sign Language),
+      ],
+   q(0181) => [
+      q(Swiss-German Sign Language),
+      ],
+   q(0182) => [
+      q(Sierra Leone Sign Language),
+      ],
+   q(0183) => [
+      q(Chadian Arabic),
+      ],
+   q(0184) => [
+      q(Swiss-Italian Sign Language),
+      ],
+   q(0185) => [
+      q(Singapore Sign Language),
+      ],
+   q(0186) => [
+      q(Albanian Sign Language),
+      ],
+   q(0187) => [
+      q(Sri Lankan Sign Language),
+      ],
+   q(0188) => [
+      q(Shihhi Arabic),
+      ],
+   q(0189) => [
+      q(Spanish Sign Language),
+      ],
+   q(0190) => [
+      q(Swiss-French Sign Language),
+      ],
+   q(0191) => [
+      q(Slovakian Sign Language),
+      ],
+   q(0192) => [
+      q(Congo Swahili),
+      ],
+   q(0193) => [
+      q(Swahili (individual language)),
+      q(Kiswahili),
+      ],
+   q(0194) => [
+      q(Swedish Sign Language),
+      ],
+   q(0195) => [
+      q(Al-Sayyid Bedouin Sign Language),
+      ],
+   q(0196) => [
+      q(Temuan),
+      ],
+   q(0197) => [
+      q(Tunisian Sign Language),
+      ],
+   q(0198) => [
+      q(Turkish Sign Language),
+      q(Turk Isaret Dili),
+      ],
+   q(0199) => [
+      q(Thai Sign Language),
+      ],
+   q(0200) => [
+      q(Taiwan Sign Language),
+      ],
+   q(0201) => [
+      q(Tebul Sign Language),
+      ],
+   q(0202) => [
+      q(Tanzanian Sign Language),
+      ],
+   q(0203) => [
+      q(Ugandan Sign Language),
+      ],
+   q(0204) => [
+      q(Uruguayan Sign Language),
+      ],
+   q(0205) => [
+      q(Ukrainian Sign Language),
+      ],
+   q(0206) => [
+      q(Urubu-Kaapor Sign Language),
+      q(Kaapor Sign Language),
+      ],
+   q(0207) => [
+      q(Urak Lawoi'),
+      ],
+   q(0208) => [
+      q(Northern Uzbek),
+      ],
+   q(0209) => [
+      q(Southern Uzbek),
+      ],
+   q(0210) => [
+      q(Vlaamse Gebarentaal),
+      q(Flemish Sign Language),
+      ],
+   q(0211) => [
+      q(Kaur),
+      ],
+   q(0212) => [
+      q(Tenggarong Kutai Malay),
+      ],
+   q(0213) => [
+      q(Moldova Sign Language),
+      ],
+   q(0214) => [
+      q(Venezuelan Sign Language),
+      ],
+   q(0215) => [
+      q(Valencian Sign Language),
+      q(Llengua de signes valenciana),
+      ],
+   q(0216) => [
+      q(Wu Chinese),
+      ],
+   q(0217) => [
+      q(Kenyan Sign Language),
+      ],
+   q(0218) => [
+      q(Malaysian Sign Language),
+      ],
+   q(0219) => [
+      q(Manado Malay),
+      ],
+   q(0220) => [
+      q(Moroccan Sign Language),
+      ],
+   q(0221) => [
+      q(Yolnu Sign Language),
+      ],
+   q(0222) => [
+      q(Yan-nhanu Sign Language),
+      ],
+   q(0223) => [
+      q(Yugoslavian Sign Language),
+      ],
+   q(0224) => [
+      q(Yue Chinese),
+      q(Cantonese),
+      ],
+   q(0225) => [
+      q(Zimbabwe Sign Language),
+      ],
+   q(0226) => [
+      q(Malay (individual language)),
+      ],
+   q(0227) => [
+      q(Negeri Sembilan Malay),
+      ],
+   q(0228) => [
+      q(Zambian Sign Language),
+      ],
+   q(0229) => [
+      q(Standard Malay),
+      ],
+};
+
+$Locale::Codes::Data{'langext'}{'alias2id'} = {
+   q(adamorobe sign language) => [
+      q(0010),
+      q(0),
+      ],
+   q(afghan sign language) => [
+      q(0016),
+      q(0),
+      ],
+   q(al-sayyid bedouin sign language) => [
+      q(0195),
+      q(0),
+      ],
+   q(albanian sign language) => [
+      q(0186),
+      q(0),
+      ],
+   q(algerian arabic) => [
+      q(0021),
+      q(0),
+      ],
+   q(algerian saharan arabic) => [
+      q(0001),
+      q(0),
+      ],
+   q(algerian sign language) => [
+      q(0027),
+      q(0),
+      ],
+   q(american sign language) => [
+      q(0025),
+      q(0),
+      ],
+   q(argentine sign language) => [
+      q(0013),
+      q(0),
+      ],
+   q(armenian sign language) => [
+      q(0014),
+      q(0),
+      ],
+   q(australian aborigines sign language) => [
+      q(0029),
+      q(0),
+      ],
+   q(australian sign language) => [
+      q(0026),
+      q(0),
+      ],
+   q(austrian sign language) => [
+      q(0028),
+      q(0),
+      ],
+   q(babalia creole arabic) => [
+      q(0036),
+      q(0),
+      ],
+   q(bacanese malay) => [
+      q(0043),
+      q(0),
+      ],
+   q(baharna arabic) => [
+      q(0003),
+      q(0),
+      ],
+   q(bamako sign language) => [
+      q(0040),
+      q(0),
+      ],
+   q(ban khor sign language) => [
+      q(0038),
+      q(0),
+      ],
+   q(bangka) => [
+      q(0137),
+      q(0),
+      ],
+   q(banjar) => [
+      q(0039),
+      q(0),
+      ],
+   q(bengkala sign language) => [
+      q(0042),
+      q(0),
+      ],
+   q(berau malay) => [
+      q(0044),
+      q(0),
+      ],
+   q(bolivian sign language) => [
+      q(0045),
+      q(0),
+      ],
+   q(brazilian sign language) => [
+      q(0047),
+      q(0),
+      ],
+   q(british sign language) => [
+      q(0037),
+      q(0),
+      ],
+   q(brunei) => [
+      q(0118),
+      q(0),
+      ],
+   q(bukit malay) => [
+      q(0046),
+      q(0),
+      ],
+   q(bulgarian sign language) => [
+      q(0041),
+      q(0),
+      ],
+   q(cantonese) => [
+      q(0224),
+      q(1),
+      ],
+   q(catalan sign language) => [
+      q(0054),
+      q(0),
+      ],
+   q(central malay) => [
+      q(0168),
+      q(0),
+      ],
+   q(chadian arabic) => [
+      q(0183),
+      q(0),
+      ],
+   q(chadian sign language) => [
+      q(0049),
+      q(0),
+      ],
+   q(chiangmai sign language) => [
+      q(0055),
+      q(0),
+      ],
+   q(chilean sign language) => [
+      q(0058),
+      q(0),
+      ],
+   q(chinese sign language) => [
+      q(0059),
+      q(0),
+      ],
+   q(cocos islands malay) => [
+      q(0052),
+      q(0),
+      ],
+   q(col) => [
+      q(0122),
+      q(0),
+      ],
+   q(colombian sign language) => [
+      q(0060),
+      q(0),
+      ],
+   q(congo swahili) => [
+      q(0192),
+      q(0),
+      ],
+   q(costa rican sign language) => [
+      q(0062),
+      q(0),
+      ],
+   q(croatia sign language) => [
+      q(0061),
+      q(0),
+      ],
+   q(cuba sign language) => [
+      q(0057),
+      q(0),
+      ],
+   q(cypriot arabic) => [
+      q(0008),
+      q(0),
+      ],
+   q(czech sign language) => [
+      q(0056),
+      q(0),
+      ],
+   q(danish sign language) => [
+      q(0067),
+      q(0),
+      ],
+   q(dhofari arabic) => [
+      q(0009),
+      q(0),
+      ],
+   q(dominican sign language) => [
+      q(0065),
+      q(0),
+      ],
+   q(duano) => [
+      q(0068),
+      q(0),
+      ],
+   q(dutch sign language) => [
+      q(0066),
+      q(0),
+      ],
+   q(eastern egyptian bedawi arabic) => [
+      q(0031),
+      q(0),
+      ],
+   q(ecuadorian sign language) => [
+      q(0069),
+      q(0),
+      ],
+   q(egypt sign language) => [
+      q(0070),
+      q(0),
+      ],
+   q(egyptian arabic) => [
+      q(0024),
+      q(0),
+      ],
+   q(estonian sign language) => [
+      q(0072),
+      q(0),
+      ],
+   q(ethiopian sign language) => [
+      q(0073),
+      q(0),
+      ],
+   q(finland-swedish sign language) => [
+      q(0077),
+      q(0),
+      ],
+   q(finlandssvenskt teckensprak) => [
+      q(0077),
+      q(1),
+      ],
+   q(finnish sign language) => [
+      q(0075),
+      q(0),
+      ],
+   q(flemish sign language) => [
+      q(0210),
+      q(1),
+      ],
+   q(french belgian sign language) => [
+      q(0179),
+      q(1),
+      ],
+   q(french sign language) => [
+      q(0076),
+      q(0),
+      ],
+   q(gan chinese) => [
+      q(0078),
+      q(0),
+      ],
+   q(german sign language) => [
+      q(0082),
+      q(0),
+      ],
+   q(ghanaian sign language) => [
+      q(0081),
+      q(0),
+      ],
+   q(ghandruk sign language) => [
+      q(0079),
+      q(0),
+      ],
+   q(goan konkani) => [
+      q(0080),
+      q(0),
+      ],
+   q(greek sign language) => [
+      q(0084),
+      q(0),
+      ],
+   q(guatemalan sign language) => [
+      q(0083),
+      q(0),
+      ],
+   q(guinean sign language) => [
+      q(0085),
+      q(0),
+      ],
+   q(gulf arabic) => [
+      q(0015),
+      q(0),
+      ],
+   q(hadrami arabic) => [
+      q(0032),
+      q(0),
+      ],
+   q(haiphong sign language) => [
+      q(0087),
+      q(0),
+      ],
+   q(haji) => [
+      q(0090),
+      q(0),
+      ],
+   q(hakka chinese) => [
+      q(0088),
+      q(0),
+      ],
+   q(hanoi sign language) => [
+      q(0086),
+      q(0),
+      ],
+   q(hausa sign language) => [
+      q(0095),
+      q(0),
+      ],
+   q(hawai'i pidgin sign language) => [
+      q(0093),
+      q(1),
+      ],
+   q(hawai'i sign language (hsl)) => [
+      q(0093),
+      q(0),
+      ],
+   q(heung kong sau yue) => [
+      q(0091),
+      q(1),
+      ],
+   q(hijazi arabic) => [
+      q(0006),
+      q(0),
+      ],
+   q(ho chi minh city sign language) => [
+      q(0092),
+      q(0),
+      ],
+   q(honduras sign language) => [
+      q(0089),
+      q(0),
+      ],
+   q(hong kong sign language) => [
+      q(0091),
+      q(0),
+      ],
+   q(huizhou chinese) => [
+      q(0063),
+      q(0),
+      ],
+   q(hungarian sign language) => [
+      q(0094),
+      q(0),
+      ],
+   q(icelandic sign language) => [
+      q(0097),
+      q(0),
+      ],
+   q(indian sign language) => [
+      q(0101),
+      q(0),
+      ],
+   q(indonesian sign language) => [
+      q(0100),
+      q(0),
+      ],
+   q(international sign) => [
+      q(0099),
+      q(0),
+      ],
+   q(inuit sign language) => [
+      q(0098),
+      q(0),
+      ],
+   q(irish sign language) => [
+      q(0103),
+      q(0),
+      ],
+   q(israeli sign language) => [
+      q(0104),
+      q(0),
+      ],
+   q(italian sign language) => [
+      q(0102),
+      q(0),
+      ],
+   q(jakun) => [
+      q(0105),
+      q(0),
+      ],
+   q(jamaican country sign language) => [
+      q(0107),
+      q(0),
+      ],
+   q(jamaican sign language) => [
+      q(0109),
+      q(0),
+      ],
+   q(jambi malay) => [
+      q(0106),
+      q(0),
+      ],
+   q(japanese sign language) => [
+      q(0111),
+      q(0),
+      ],
+   q(jhankot sign language) => [
+      q(0108),
+      q(0),
+      ],
+   q(jinyu chinese) => [
+      q(0050),
+      q(0),
+      ],
+   q(jordanian sign language) => [
+      q(0110),
+      q(0),
+      ],
+   q(jumla sign language) => [
+      q(0112),
+      q(0),
+      ],
+   q(kaapor sign language) => [
+      q(0206),
+      q(1),
+      ],
+   q(kaur) => [
+      q(0211),
+      q(0),
+      ],
+   q(kedah malay) => [
+      q(0135),
+      q(0),
+      ],
+   q(kenyan sign language) => [
+      q(0217),
+      q(0),
+      ],
+   q(kerinci) => [
+      q(0117),
+      q(0),
+      ],
+   q(kiswahili) => [
+      q(0193),
+      q(1),
+      ],
+   q(konkani (individual language)) => [
+      q(0114),
+      q(0),
+      ],
+   q(korean sign language) => [
+      q(0116),
+      q(0),
+      ],
+   q(kota bangun kutai malay) => [
+      q(0141),
+      q(0),
+      ],
+   q(kubu) => [
+      q(0115),
+      q(0),
+      ],
+   q(langue des signes de belgique francophone) => [
+      q(0179),
+      q(0),
+      ],
+   q(laos sign language) => [
+      q(0126),
+      q(0),
+      ],
+   q(latgalian) => [
+      q(0130),
+      q(0),
+      ],
+   q(latvian sign language) => [
+      q(0125),
+      q(0),
+      ],
+   q(lengua de senas catalana) => [
+      q(0054),
+      q(1),
+      ],
+   q(lengua de senas del paraguay) => [
+      q(0174),
+      q(1),
+      ],
+   q(lengua de senas panamenas) => [
+      q(0127),
+      q(1),
+      ],
+   q(libyan arabic) => [
+      q(0033),
+      q(0),
+      ],
+   q(libyan sign language) => [
+      q(0119),
+      q(0),
+      ],
+   q(literary chinese) => [
+      q(0132),
+      q(0),
+      ],
+   q(lithuanian sign language) => [
+      q(0123),
+      q(0),
+      ],
+   q(llengua de signes catalana) => [
+      q(0054),
+      q(2),
+      ],
+   q(llengua de signes valenciana) => [
+      q(0215),
+      q(1),
+      ],
+   q(loncong) => [
+      q(0120),
+      q(0),
+      ],
+   q(lubu) => [
+      q(0121),
+      q(0),
+      ],
+   q(lyons sign language) => [
+      q(0124),
+      q(0),
+      ],
+   q(madagascar sign language) => [
+      q(0147),
+      q(0),
+      ],
+   q(malay (individual language)) => [
+      q(0226),
+      q(0),
+      ],
+   q(malaysian sign language) => [
+      q(0218),
+      q(0),
+      ],
+   q(maltese sign language) => [
+      q(0134),
+      q(0),
+      ],
+   q(manado malay) => [
+      q(0219),
+      q(0),
+      ],
+   q(mandarin chinese) => [
+      q(0051),
+      q(0),
+      ],
+   q(maritime sign language) => [
+      q(0156),
+      q(0),
+      ],
+   q(martha's vineyard sign language) => [
+      q(0142),
+      q(0),
+      ],
+   q(mauritian sign language) => [
+      q(0129),
+      q(0),
+      ],
+   q(mesopotamian arabic) => [
+      q(0004),
+      q(0),
+      ],
+   q(mexican sign language) => [
+      q(0138),
+      q(0),
+      ],
+   q(min bei chinese) => [
+      q(0140),
+      q(0),
+      ],
+   q(min dong chinese) => [
+      q(0048),
+      q(0),
+      ],
+   q(min nan chinese) => [
+      q(0150),
+      q(0),
+      ],
+   q(min zhong chinese) => [
+      q(0064),
+      q(0),
+      ],
+   q(minangkabau) => [
+      q(0139),
+      q(0),
+      ],
+   q(moldova sign language) => [
+      q(0213),
+      q(0),
+      ],
+   q(monastic sign language) => [
+      q(0148),
+      q(0),
+      ],
+   q(mongolian sign language) => [
+      q(0145),
+      q(0),
+      ],
+   q(moroccan arabic) => [
+      q(0023),
+      q(0),
+      ],
+   q(moroccan sign language) => [
+      q(0220),
+      q(0),
+      ],
+   q(mozambican sign language) => [
+      q(0149),
+      q(0),
+      ],
+   q(musi) => [
+      q(0146),
+      q(0),
+      ],
+   q(najdi arabic) => [
+      q(0022),
+      q(0),
+      ],
+   q(namibian sign language) => [
+      q(0151),
+      q(0),
+      ],
+   q(negeri sembilan malay) => [
+      q(0227),
+      q(0),
+      ],
+   q(nepalese sign language) => [
+      q(0155),
+      q(0),
+      ],
+   q(new zealand sign language) => [
+      q(0157),
+      q(0),
+      ],
+   q(nicaraguan sign language) => [
+      q(0152),
+      q(0),
+      ],
+   q(nigerian sign language) => [
+      q(0153),
+      q(0),
+      ],
+   q(north levantine arabic) => [
+      q(0018),
+      q(0),
+      ],
+   q(north mesopotamian arabic) => [
+      q(0035),
+      q(0),
+      ],
+   q(north moluccan malay) => [
+      q(0133),
+      q(0),
+      ],
+   q(northern uzbek) => [
+      q(0208),
+      q(0),
+      ],
+   q(norwegian sign language) => [
+      q(0154),
+      q(0),
+      ],
+   q(old kentish sign language) => [
+      q(0158),
+      q(0),
+      ],
+   q(omani arabic) => [
+      q(0007),
+      q(0),
+      ],
+   q(orang kanaq) => [
+      q(0159),
+      q(0),
+      ],
+   q(orang seletar) => [
+      q(0160),
+      q(0),
+      ],
+   q(pakistan sign language) => [
+      q(0163),
+      q(0),
+      ],
+   q(panamanian sign language) => [
+      q(0127),
+      q(0),
+      ],
+   q(paraguayan sign language) => [
+      q(0174),
+      q(0),
+      ],
+   q(pattani malay) => [
+      q(0136),
+      q(0),
+      ],
+   q(pekal) => [
+      q(0161),
+      q(0),
+      ],
+   q(penang sign language) => [
+      q(0169),
+      q(0),
+      ],
+   q(persian sign language) => [
+      q(0166),
+      q(0),
+      ],
+   q(peruvian sign language) => [
+      q(0164),
+      q(0),
+      ],
+   q(philippine sign language) => [
+      q(0172),
+      q(0),
+      ],
+   q(plains indian sign language) => [
+      q(0167),
+      q(0),
+      ],
+   q(polish sign language) => [
+      q(0171),
+      q(0),
+      ],
+   q(portuguese sign language) => [
+      q(0173),
+      q(0),
+      ],
+   q(providencia sign language) => [
+      q(0165),
+      q(0),
+      ],
+   q(pu-xian chinese) => [
+      q(0053),
+      q(0),
+      ],
+   q(puerto rican sign language) => [
+      q(0170),
+      q(0),
+      ],
+   q(quebec sign language) => [
+      q(0074),
+      q(0),
+      ],
+   q(rennellese sign language) => [
+      q(0176),
+      q(0),
+      ],
+   q(romanian sign language) => [
+      q(0175),
+      q(0),
+      ],
+   q(russian sign language) => [
+      q(0177),
+      q(0),
+      ],
+   q(sabah malay) => [
+      q(0144),
+      q(0),
+      ],
+   q(saidi arabic) => [
+      q(0012),
+      q(0),
+      ],
+   q(salvadoran sign language) => [
+      q(0071),
+      q(0),
+      ],
+   q(sanaani arabic) => [
+      q(0034),
+      q(0),
+      ],
+   q(saudi arabian sign language) => [
+      q(0178),
+      q(0),
+      ],
+   q(selangor sign language) => [
+      q(0113),
+      q(0),
+      ],
+   q(shihhi arabic) => [
+      q(0188),
+      q(0),
+      ],
+   q(sierra leone sign language) => [
+      q(0182),
+      q(0),
+      ],
+   q(singapore sign language) => [
+      q(0185),
+      q(0),
+      ],
+   q(slovakian sign language) => [
+      q(0191),
+      q(0),
+      ],
+   q(south african sign language) => [
+      q(0180),
+      q(0),
+      ],
+   q(south levantine arabic) => [
+      q(0017),
+      q(0),
+      ],
+   q(southern uzbek) => [
+      q(0209),
+      q(0),
+      ],
+   q(spanish sign language) => [
+      q(0189),
+      q(0),
+      ],
+   q(sri lankan sign language) => [
+      q(0187),
+      q(0),
+      ],
+   q(standard arabic) => [
+      q(0020),
+      q(0),
+      ],
+   q(standard latvian) => [
+      q(0131),
+      q(0),
+      ],
+   q(standard malay) => [
+      q(0229),
+      q(0),
+      ],
+   q(sudanese arabic) => [
+      q(0019),
+      q(0),
+      ],
+   q(sudanese creole arabic) => [
+      q(0162),
+      q(0),
+      ],
+   q(suomenruotsalainen viittomakieli) => [
+      q(0077),
+      q(2),
+      ],
+   q(swahili (individual language)) => [
+      q(0193),
+      q(0),
+      ],
+   q(swedish sign language) => [
+      q(0194),
+      q(0),
+      ],
+   q(swiss-french sign language) => [
+      q(0190),
+      q(0),
+      ],
+   q(swiss-german sign language) => [
+      q(0181),
+      q(0),
+      ],
+   q(swiss-italian sign language) => [
+      q(0184),
+      q(0),
+      ],
+   q(ta'izzi-adeni arabic) => [
+      q(0005),
+      q(0),
+      ],
+   q(taiwan sign language) => [
+      q(0200),
+      q(0),
+      ],
+   q(tajiki arabic) => [
+      q(0002),
+      q(0),
+      ],
+   q(tanzanian sign language) => [
+      q(0202),
+      q(0),
+      ],
+   q(tebul sign language) => [
+      q(0201),
+      q(0),
+      ],
+   q(temuan) => [
+      q(0196),
+      q(0),
+      ],
+   q(tenggarong kutai malay) => [
+      q(0212),
+      q(0),
+      ],
+   q(thai sign language) => [
+      q(0199),
+      q(0),
+      ],
+   q(trinidad and tobago sign language) => [
+      q(0128),
+      q(0),
+      ],
+   q(tunisian arabic) => [
+      q(0011),
+      q(0),
+      ],
+   q(tunisian sign language) => [
+      q(0197),
+      q(0),
+      ],
+   q(turk isaret dili) => [
+      q(0198),
+      q(1),
+      ],
+   q(turkish sign language) => [
+      q(0198),
+      q(0),
+      ],
+   q(ugandan sign language) => [
+      q(0203),
+      q(0),
+      ],
+   q(ukrainian sign language) => [
+      q(0205),
+      q(0),
+      ],
+   q(urak lawoi') => [
+      q(0207),
+      q(0),
+      ],
+   q(urubu-kaapor sign language) => [
+      q(0206),
+      q(0),
+      ],
+   q(uruguayan sign language) => [
+      q(0204),
+      q(0),
+      ],
+   q(uzbeki arabic) => [
+      q(0030),
+      q(0),
+      ],
+   q(valencian sign language) => [
+      q(0215),
+      q(0),
+      ],
+   q(venezuelan sign language) => [
+      q(0214),
+      q(0),
+      ],
+   q(vlaamse gebarentaal) => [
+      q(0210),
+      q(0),
+      ],
+   q(wu chinese) => [
+      q(0216),
+      q(0),
+      ],
+   q(xiang chinese) => [
+      q(0096),
+      q(0),
+      ],
+   q(yan-nhanu sign language) => [
+      q(0222),
+      q(0),
+      ],
+   q(yolnu sign language) => [
+      q(0221),
+      q(0),
+      ],
+   q(yucatec maya sign language) => [
+      q(0143),
+      q(0),
+      ],
+   q(yue chinese) => [
+      q(0224),
+      q(0),
+      ],
+   q(yugoslavian sign language) => [
+      q(0223),
+      q(0),
+      ],
+   q(zambian sign language) => [
+      q(0228),
+      q(0),
+      ],
+   q(zimbabwe sign language) => [
+      q(0225),
+      q(0),
+      ],
+};
+
+$Locale::Codes::Data{'langext'}{'code2id'} = {
+   q(alpha) => {
+      q(aao) => [
+         q(0001),
+         q(0),
+         ],
+      q(abh) => [
+         q(0002),
+         q(0),
+         ],
+      q(abv) => [
+         q(0003),
+         q(0),
+         ],
+      q(acm) => [
+         q(0004),
+         q(0),
+         ],
+      q(acq) => [
+         q(0005),
+         q(0),
+         ],
+      q(acw) => [
+         q(0006),
+         q(0),
+         ],
+      q(acx) => [
+         q(0007),
+         q(0),
+         ],
+      q(acy) => [
+         q(0008),
+         q(0),
+         ],
+      q(adf) => [
+         q(0009),
+         q(0),
+         ],
+      q(ads) => [
+         q(0010),
+         q(0),
+         ],
+      q(aeb) => [
+         q(0011),
+         q(0),
+         ],
+      q(aec) => [
+         q(0012),
+         q(0),
+         ],
+      q(aed) => [
+         q(0013),
+         q(0),
+         ],
+      q(aen) => [
+         q(0014),
+         q(0),
+         ],
+      q(afb) => [
+         q(0015),
+         q(0),
+         ],
+      q(afg) => [
+         q(0016),
+         q(0),
+         ],
+      q(ajp) => [
+         q(0017),
+         q(0),
+         ],
+      q(apc) => [
+         q(0018),
+         q(0),
+         ],
+      q(apd) => [
+         q(0019),
+         q(0),
+         ],
+      q(arb) => [
+         q(0020),
+         q(0),
+         ],
+      q(arq) => [
+         q(0021),
+         q(0),
+         ],
+      q(ars) => [
+         q(0022),
+         q(0),
+         ],
+      q(ary) => [
+         q(0023),
+         q(0),
+         ],
+      q(arz) => [
+         q(0024),
+         q(0),
+         ],
+      q(ase) => [
+         q(0025),
+         q(0),
+         ],
+      q(asf) => [
+         q(0026),
+         q(0),
+         ],
+      q(asp) => [
+         q(0027),
+         q(0),
+         ],
+      q(asq) => [
+         q(0028),
+         q(0),
+         ],
+      q(asw) => [
+         q(0029),
+         q(0),
+         ],
+      q(auz) => [
+         q(0030),
+         q(0),
+         ],
+      q(avl) => [
+         q(0031),
+         q(0),
+         ],
+      q(ayh) => [
+         q(0032),
+         q(0),
+         ],
+      q(ayl) => [
+         q(0033),
+         q(0),
+         ],
+      q(ayn) => [
+         q(0034),
+         q(0),
+         ],
+      q(ayp) => [
+         q(0035),
+         q(0),
+         ],
+      q(bbz) => [
+         q(0036),
+         q(0),
+         ],
+      q(bfi) => [
+         q(0037),
+         q(0),
+         ],
+      q(bfk) => [
+         q(0038),
+         q(0),
+         ],
+      q(bjn) => [
+         q(0039),
+         q(0),
+         ],
+      q(bog) => [
+         q(0040),
+         q(0),
+         ],
+      q(bqn) => [
+         q(0041),
+         q(0),
+         ],
+      q(bqy) => [
+         q(0042),
+         q(0),
+         ],
+      q(btj) => [
+         q(0043),
+         q(0),
+         ],
+      q(bve) => [
+         q(0044),
+         q(0),
+         ],
+      q(bvl) => [
+         q(0045),
+         q(0),
+         ],
+      q(bvu) => [
+         q(0046),
+         q(0),
+         ],
+      q(bzs) => [
+         q(0047),
+         q(0),
+         ],
+      q(cdo) => [
+         q(0048),
+         q(0),
+         ],
+      q(cds) => [
+         q(0049),
+         q(0),
+         ],
+      q(cjy) => [
+         q(0050),
+         q(0),
+         ],
+      q(cmn) => [
+         q(0051),
+         q(0),
+         ],
+      q(coa) => [
+         q(0052),
+         q(0),
+         ],
+      q(cpx) => [
+         q(0053),
+         q(0),
+         ],
+      q(csc) => [
+         q(0054),
+         q(0),
+         ],
+      q(csd) => [
+         q(0055),
+         q(0),
+         ],
+      q(cse) => [
+         q(0056),
+         q(0),
+         ],
+      q(csf) => [
+         q(0057),
+         q(0),
+         ],
+      q(csg) => [
+         q(0058),
+         q(0),
+         ],
+      q(csl) => [
+         q(0059),
+         q(0),
+         ],
+      q(csn) => [
+         q(0060),
+         q(0),
+         ],
+      q(csq) => [
+         q(0061),
+         q(0),
+         ],
+      q(csr) => [
+         q(0062),
+         q(0),
+         ],
+      q(czh) => [
+         q(0063),
+         q(0),
+         ],
+      q(czo) => [
+         q(0064),
+         q(0),
+         ],
+      q(doq) => [
+         q(0065),
+         q(0),
+         ],
+      q(dse) => [
+         q(0066),
+         q(0),
+         ],
+      q(dsl) => [
+         q(0067),
+         q(0),
+         ],
+      q(dup) => [
+         q(0068),
+         q(0),
+         ],
+      q(ecs) => [
+         q(0069),
+         q(0),
+         ],
+      q(esl) => [
+         q(0070),
+         q(0),
+         ],
+      q(esn) => [
+         q(0071),
+         q(0),
+         ],
+      q(eso) => [
+         q(0072),
+         q(0),
+         ],
+      q(eth) => [
+         q(0073),
+         q(0),
+         ],
+      q(fcs) => [
+         q(0074),
+         q(0),
+         ],
+      q(fse) => [
+         q(0075),
+         q(0),
+         ],
+      q(fsl) => [
+         q(0076),
+         q(0),
+         ],
+      q(fss) => [
+         q(0077),
+         q(0),
+         ],
+      q(gan) => [
+         q(0078),
+         q(0),
+         ],
+      q(gds) => [
+         q(0079),
+         q(0),
+         ],
+      q(gom) => [
+         q(0080),
+         q(0),
+         ],
+      q(gse) => [
+         q(0081),
+         q(0),
+         ],
+      q(gsg) => [
+         q(0082),
+         q(0),
+         ],
+      q(gsm) => [
+         q(0083),
+         q(0),
+         ],
+      q(gss) => [
+         q(0084),
+         q(0),
+         ],
+      q(gus) => [
+         q(0085),
+         q(0),
+         ],
+      q(hab) => [
+         q(0086),
+         q(0),
+         ],
+      q(haf) => [
+         q(0087),
+         q(0),
+         ],
+      q(hak) => [
+         q(0088),
+         q(0),
+         ],
+      q(hds) => [
+         q(0089),
+         q(0),
+         ],
+      q(hji) => [
+         q(0090),
+         q(0),
+         ],
+      q(hks) => [
+         q(0091),
+         q(0),
+         ],
+      q(hos) => [
+         q(0092),
+         q(0),
+         ],
+      q(hps) => [
+         q(0093),
+         q(0),
+         ],
+      q(hsh) => [
+         q(0094),
+         q(0),
+         ],
+      q(hsl) => [
+         q(0095),
+         q(0),
+         ],
+      q(hsn) => [
+         q(0096),
+         q(0),
+         ],
+      q(icl) => [
+         q(0097),
+         q(0),
+         ],
+      q(iks) => [
+         q(0098),
+         q(0),
+         ],
+      q(ils) => [
+         q(0099),
+         q(0),
+         ],
+      q(inl) => [
+         q(0100),
+         q(0),
+         ],
+      q(ins) => [
+         q(0101),
+         q(0),
+         ],
+      q(ise) => [
+         q(0102),
+         q(0),
+         ],
+      q(isg) => [
+         q(0103),
+         q(0),
+         ],
+      q(isr) => [
+         q(0104),
+         q(0),
+         ],
+      q(jak) => [
+         q(0105),
+         q(0),
+         ],
+      q(jax) => [
+         q(0106),
+         q(0),
+         ],
+      q(jcs) => [
+         q(0107),
+         q(0),
+         ],
+      q(jhs) => [
+         q(0108),
+         q(0),
+         ],
+      q(jls) => [
+         q(0109),
+         q(0),
+         ],
+      q(jos) => [
+         q(0110),
+         q(0),
+         ],
+      q(jsl) => [
+         q(0111),
+         q(0),
+         ],
+      q(jus) => [
+         q(0112),
+         q(0),
+         ],
+      q(kgi) => [
+         q(0113),
+         q(0),
+         ],
+      q(knn) => [
+         q(0114),
+         q(0),
+         ],
+      q(kvb) => [
+         q(0115),
+         q(0),
+         ],
+      q(kvk) => [
+         q(0116),
+         q(0),
+         ],
+      q(kvr) => [
+         q(0117),
+         q(0),
+         ],
+      q(kxd) => [
+         q(0118),
+         q(0),
+         ],
+      q(lbs) => [
+         q(0119),
+         q(0),
+         ],
+      q(lce) => [
+         q(0120),
+         q(0),
+         ],
+      q(lcf) => [
+         q(0121),
+         q(0),
+         ],
+      q(liw) => [
+         q(0122),
+         q(0),
+         ],
+      q(lls) => [
+         q(0123),
+         q(0),
+         ],
+      q(lsg) => [
+         q(0124),
+         q(0),
+         ],
+      q(lsl) => [
+         q(0125),
+         q(0),
+         ],
+      q(lso) => [
+         q(0126),
+         q(0),
+         ],
+      q(lsp) => [
+         q(0127),
+         q(0),
+         ],
+      q(lst) => [
+         q(0128),
+         q(0),
+         ],
+      q(lsy) => [
+         q(0129),
+         q(0),
+         ],
+      q(ltg) => [
+         q(0130),
+         q(0),
+         ],
+      q(lvs) => [
+         q(0131),
+         q(0),
+         ],
+      q(lzh) => [
+         q(0132),
+         q(0),
+         ],
+      q(max) => [
+         q(0133),
+         q(0),
+         ],
+      q(mdl) => [
+         q(0134),
+         q(0),
+         ],
+      q(meo) => [
+         q(0135),
+         q(0),
+         ],
+      q(mfa) => [
+         q(0136),
+         q(0),
+         ],
+      q(mfb) => [
+         q(0137),
+         q(0),
+         ],
+      q(mfs) => [
+         q(0138),
+         q(0),
+         ],
+      q(min) => [
+         q(0139),
+         q(0),
+         ],
+      q(mnp) => [
+         q(0140),
+         q(0),
+         ],
+      q(mqg) => [
+         q(0141),
+         q(0),
+         ],
+      q(mre) => [
+         q(0142),
+         q(0),
+         ],
+      q(msd) => [
+         q(0143),
+         q(0),
+         ],
+      q(msi) => [
+         q(0144),
+         q(0),
+         ],
+      q(msr) => [
+         q(0145),
+         q(0),
+         ],
+      q(mui) => [
+         q(0146),
+         q(0),
+         ],
+      q(mzc) => [
+         q(0147),
+         q(0),
+         ],
+      q(mzg) => [
+         q(0148),
+         q(0),
+         ],
+      q(mzy) => [
+         q(0149),
+         q(0),
+         ],
+      q(nan) => [
+         q(0150),
+         q(0),
+         ],
+      q(nbs) => [
+         q(0151),
+         q(0),
+         ],
+      q(ncs) => [
+         q(0152),
+         q(0),
+         ],
+      q(nsi) => [
+         q(0153),
+         q(0),
+         ],
+      q(nsl) => [
+         q(0154),
+         q(0),
+         ],
+      q(nsp) => [
+         q(0155),
+         q(0),
+         ],
+      q(nsr) => [
+         q(0156),
+         q(0),
+         ],
+      q(nzs) => [
+         q(0157),
+         q(0),
+         ],
+      q(okl) => [
+         q(0158),
+         q(0),
+         ],
+      q(orn) => [
+         q(0159),
+         q(0),
+         ],
+      q(ors) => [
+         q(0160),
+         q(0),
+         ],
+      q(pel) => [
+         q(0161),
+         q(0),
+         ],
+      q(pga) => [
+         q(0162),
+         q(0),
+         ],
+      q(pks) => [
+         q(0163),
+         q(0),
+         ],
+      q(prl) => [
+         q(0164),
+         q(0),
+         ],
+      q(prz) => [
+         q(0165),
+         q(0),
+         ],
+      q(psc) => [
+         q(0166),
+         q(0),
+         ],
+      q(psd) => [
+         q(0167),
+         q(0),
+         ],
+      q(pse) => [
+         q(0168),
+         q(0),
+         ],
+      q(psg) => [
+         q(0169),
+         q(0),
+         ],
+      q(psl) => [
+         q(0170),
+         q(0),
+         ],
+      q(pso) => [
+         q(0171),
+         q(0),
+         ],
+      q(psp) => [
+         q(0172),
+         q(0),
+         ],
+      q(psr) => [
+         q(0173),
+         q(0),
+         ],
+      q(pys) => [
+         q(0174),
+         q(0),
+         ],
+      q(rms) => [
+         q(0175),
+         q(0),
+         ],
+      q(rsi) => [
+         q(0176),
+         q(0),
+         ],
+      q(rsl) => [
+         q(0177),
+         q(0),
+         ],
+      q(sdl) => [
+         q(0178),
+         q(0),
+         ],
+      q(sfb) => [
+         q(0179),
+         q(0),
+         ],
+      q(sfs) => [
+         q(0180),
+         q(0),
+         ],
+      q(sgg) => [
+         q(0181),
+         q(0),
+         ],
+      q(sgx) => [
+         q(0182),
+         q(0),
+         ],
+      q(shu) => [
+         q(0183),
+         q(0),
+         ],
+      q(slf) => [
+         q(0184),
+         q(0),
+         ],
+      q(sls) => [
+         q(0185),
+         q(0),
+         ],
+      q(sqk) => [
+         q(0186),
+         q(0),
+         ],
+      q(sqs) => [
+         q(0187),
+         q(0),
+         ],
+      q(ssh) => [
+         q(0188),
+         q(0),
+         ],
+      q(ssp) => [
+         q(0189),
+         q(0),
+         ],
+      q(ssr) => [
+         q(0190),
+         q(0),
+         ],
+      q(svk) => [
+         q(0191),
+         q(0),
+         ],
+      q(swc) => [
+         q(0192),
+         q(0),
+         ],
+      q(swh) => [
+         q(0193),
+         q(0),
+         ],
+      q(swl) => [
+         q(0194),
+         q(0),
+         ],
+      q(syy) => [
+         q(0195),
+         q(0),
+         ],
+      q(tmw) => [
+         q(0196),
+         q(0),
+         ],
+      q(tse) => [
+         q(0197),
+         q(0),
+         ],
+      q(tsm) => [
+         q(0198),
+         q(0),
+         ],
+      q(tsq) => [
+         q(0199),
+         q(0),
+         ],
+      q(tss) => [
+         q(0200),
+         q(0),
+         ],
+      q(tsy) => [
+         q(0201),
+         q(0),
+         ],
+      q(tza) => [
+         q(0202),
+         q(0),
+         ],
+      q(ugn) => [
+         q(0203),
+         q(0),
+         ],
+      q(ugy) => [
+         q(0204),
+         q(0),
+         ],
+      q(ukl) => [
+         q(0205),
+         q(0),
+         ],
+      q(uks) => [
+         q(0206),
+         q(0),
+         ],
+      q(urk) => [
+         q(0207),
+         q(0),
+         ],
+      q(uzn) => [
+         q(0208),
+         q(0),
+         ],
+      q(uzs) => [
+         q(0209),
+         q(0),
+         ],
+      q(vgt) => [
+         q(0210),
+         q(0),
+         ],
+      q(vkk) => [
+         q(0211),
+         q(0),
+         ],
+      q(vkt) => [
+         q(0212),
+         q(0),
+         ],
+      q(vsi) => [
+         q(0213),
+         q(0),
+         ],
+      q(vsl) => [
+         q(0214),
+         q(0),
+         ],
+      q(vsv) => [
+         q(0215),
+         q(0),
+         ],
+      q(wuu) => [
+         q(0216),
+         q(0),
+         ],
+      q(xki) => [
+         q(0217),
+         q(0),
+         ],
+      q(xml) => [
+         q(0218),
+         q(0),
+         ],
+      q(xmm) => [
+         q(0219),
+         q(0),
+         ],
+      q(xms) => [
+         q(0220),
+         q(0),
+         ],
+      q(ygs) => [
+         q(0221),
+         q(0),
+         ],
+      q(yhs) => [
+         q(0222),
+         q(0),
+         ],
+      q(ysl) => [
+         q(0223),
+         q(0),
+         ],
+      q(yue) => [
+         q(0224),
+         q(0),
+         ],
+      q(zib) => [
+         q(0225),
+         q(0),
+         ],
+      q(zlm) => [
+         q(0226),
+         q(0),
+         ],
+      q(zmi) => [
+         q(0227),
+         q(0),
+         ],
+      q(zsl) => [
+         q(0228),
+         q(0),
+         ],
+      q(zsm) => [
+         q(0229),
+         q(0),
+         ],
+      },
+};
+
+$Locale::Codes::Data{'langext'}{'id2code'} = {
+   q(alpha) => {
+      q(0001) => q(aao),
+      q(0002) => q(abh),
+      q(0003) => q(abv),
+      q(0004) => q(acm),
+      q(0005) => q(acq),
+      q(0006) => q(acw),
+      q(0007) => q(acx),
+      q(0008) => q(acy),
+      q(0009) => q(adf),
+      q(0010) => q(ads),
+      q(0011) => q(aeb),
+      q(0012) => q(aec),
+      q(0013) => q(aed),
+      q(0014) => q(aen),
+      q(0015) => q(afb),
+      q(0016) => q(afg),
+      q(0017) => q(ajp),
+      q(0018) => q(apc),
+      q(0019) => q(apd),
+      q(0020) => q(arb),
+      q(0021) => q(arq),
+      q(0022) => q(ars),
+      q(0023) => q(ary),
+      q(0024) => q(arz),
+      q(0025) => q(ase),
+      q(0026) => q(asf),
+      q(0027) => q(asp),
+      q(0028) => q(asq),
+      q(0029) => q(asw),
+      q(0030) => q(auz),
+      q(0031) => q(avl),
+      q(0032) => q(ayh),
+      q(0033) => q(ayl),
+      q(0034) => q(ayn),
+      q(0035) => q(ayp),
+      q(0036) => q(bbz),
+      q(0037) => q(bfi),
+      q(0038) => q(bfk),
+      q(0039) => q(bjn),
+      q(0040) => q(bog),
+      q(0041) => q(bqn),
+      q(0042) => q(bqy),
+      q(0043) => q(btj),
+      q(0044) => q(bve),
+      q(0045) => q(bvl),
+      q(0046) => q(bvu),
+      q(0047) => q(bzs),
+      q(0048) => q(cdo),
+      q(0049) => q(cds),
+      q(0050) => q(cjy),
+      q(0051) => q(cmn),
+      q(0052) => q(coa),
+      q(0053) => q(cpx),
+      q(0054) => q(csc),
+      q(0055) => q(csd),
+      q(0056) => q(cse),
+      q(0057) => q(csf),
+      q(0058) => q(csg),
+      q(0059) => q(csl),
+      q(0060) => q(csn),
+      q(0061) => q(csq),
+      q(0062) => q(csr),
+      q(0063) => q(czh),
+      q(0064) => q(czo),
+      q(0065) => q(doq),
+      q(0066) => q(dse),
+      q(0067) => q(dsl),
+      q(0068) => q(dup),
+      q(0069) => q(ecs),
+      q(0070) => q(esl),
+      q(0071) => q(esn),
+      q(0072) => q(eso),
+      q(0073) => q(eth),
+      q(0074) => q(fcs),
+      q(0075) => q(fse),
+      q(0076) => q(fsl),
+      q(0077) => q(fss),
+      q(0078) => q(gan),
+      q(0079) => q(gds),
+      q(0080) => q(gom),
+      q(0081) => q(gse),
+      q(0082) => q(gsg),
+      q(0083) => q(gsm),
+      q(0084) => q(gss),
+      q(0085) => q(gus),
+      q(0086) => q(hab),
+      q(0087) => q(haf),
+      q(0088) => q(hak),
+      q(0089) => q(hds),
+      q(0090) => q(hji),
+      q(0091) => q(hks),
+      q(0092) => q(hos),
+      q(0093) => q(hps),
+      q(0094) => q(hsh),
+      q(0095) => q(hsl),
+      q(0096) => q(hsn),
+      q(0097) => q(icl),
+      q(0098) => q(iks),
+      q(0099) => q(ils),
+      q(0100) => q(inl),
+      q(0101) => q(ins),
+      q(0102) => q(ise),
+      q(0103) => q(isg),
+      q(0104) => q(isr),
+      q(0105) => q(jak),
+      q(0106) => q(jax),
+      q(0107) => q(jcs),
+      q(0108) => q(jhs),
+      q(0109) => q(jls),
+      q(0110) => q(jos),
+      q(0111) => q(jsl),
+      q(0112) => q(jus),
+      q(0113) => q(kgi),
+      q(0114) => q(knn),
+      q(0115) => q(kvb),
+      q(0116) => q(kvk),
+      q(0117) => q(kvr),
+      q(0118) => q(kxd),
+      q(0119) => q(lbs),
+      q(0120) => q(lce),
+      q(0121) => q(lcf),
+      q(0122) => q(liw),
+      q(0123) => q(lls),
+      q(0124) => q(lsg),
+      q(0125) => q(lsl),
+      q(0126) => q(lso),
+      q(0127) => q(lsp),
+      q(0128) => q(lst),
+      q(0129) => q(lsy),
+      q(0130) => q(ltg),
+      q(0131) => q(lvs),
+      q(0132) => q(lzh),
+      q(0133) => q(max),
+      q(0134) => q(mdl),
+      q(0135) => q(meo),
+      q(0136) => q(mfa),
+      q(0137) => q(mfb),
+      q(0138) => q(mfs),
+      q(0139) => q(min),
+      q(0140) => q(mnp),
+      q(0141) => q(mqg),
+      q(0142) => q(mre),
+      q(0143) => q(msd),
+      q(0144) => q(msi),
+      q(0145) => q(msr),
+      q(0146) => q(mui),
+      q(0147) => q(mzc),
+      q(0148) => q(mzg),
+      q(0149) => q(mzy),
+      q(0150) => q(nan),
+      q(0151) => q(nbs),
+      q(0152) => q(ncs),
+      q(0153) => q(nsi),
+      q(0154) => q(nsl),
+      q(0155) => q(nsp),
+      q(0156) => q(nsr),
+      q(0157) => q(nzs),
+      q(0158) => q(okl),
+      q(0159) => q(orn),
+      q(0160) => q(ors),
+      q(0161) => q(pel),
+      q(0162) => q(pga),
+      q(0163) => q(pks),
+      q(0164) => q(prl),
+      q(0165) => q(prz),
+      q(0166) => q(psc),
+      q(0167) => q(psd),
+      q(0168) => q(pse),
+      q(0169) => q(psg),
+      q(0170) => q(psl),
+      q(0171) => q(pso),
+      q(0172) => q(psp),
+      q(0173) => q(psr),
+      q(0174) => q(pys),
+      q(0175) => q(rms),
+      q(0176) => q(rsi),
+      q(0177) => q(rsl),
+      q(0178) => q(sdl),
+      q(0179) => q(sfb),
+      q(0180) => q(sfs),
+      q(0181) => q(sgg),
+      q(0182) => q(sgx),
+      q(0183) => q(shu),
+      q(0184) => q(slf),
+      q(0185) => q(sls),
+      q(0186) => q(sqk),
+      q(0187) => q(sqs),
+      q(0188) => q(ssh),
+      q(0189) => q(ssp),
+      q(0190) => q(ssr),
+      q(0191) => q(svk),
+      q(0192) => q(swc),
+      q(0193) => q(swh),
+      q(0194) => q(swl),
+      q(0195) => q(syy),
+      q(0196) => q(tmw),
+      q(0197) => q(tse),
+      q(0198) => q(tsm),
+      q(0199) => q(tsq),
+      q(0200) => q(tss),
+      q(0201) => q(tsy),
+      q(0202) => q(tza),
+      q(0203) => q(ugn),
+      q(0204) => q(ugy),
+      q(0205) => q(ukl),
+      q(0206) => q(uks),
+      q(0207) => q(urk),
+      q(0208) => q(uzn),
+      q(0209) => q(uzs),
+      q(0210) => q(vgt),
+      q(0211) => q(vkk),
+      q(0212) => q(vkt),
+      q(0213) => q(vsi),
+      q(0214) => q(vsl),
+      q(0215) => q(vsv),
+      q(0216) => q(wuu),
+      q(0217) => q(xki),
+      q(0218) => q(xml),
+      q(0219) => q(xmm),
+      q(0220) => q(xms),
+      q(0221) => q(ygs),
+      q(0222) => q(yhs),
+      q(0223) => q(ysl),
+      q(0224) => q(yue),
+      q(0225) => q(zib),
+      q(0226) => q(zlm),
+      q(0227) => q(zmi),
+      q(0228) => q(zsl),
+      q(0229) => q(zsm),
+      },
+};
+
+1;
diff --git a/lib/5.24.1/Locale/Codes/LangExt_Retired.pm b/lib/5.24.1/Locale/Codes/LangExt_Retired.pm
new file mode 100644
index 00000000..a0ec2d28
--- /dev/null
+++ b/lib/5.24.1/Locale/Codes/LangExt_Retired.pm
@@ -0,0 +1,26 @@
+package #
+Locale::Codes::LangExt_Retired;
+
+# This file was automatically generated.  Any changes to this file will
+# be lost the next time 'deprecate_codes' is run.
+#    Generated on: Tue Dec  1 14:45:28 EST 2015
+
+use strict;
+require 5.006;
+use warnings;
+use utf8;
+
+our($VERSION);
+$VERSION='3.37';
+
+$Locale::Codes::Retired{'langext'}{'alpha'}{'code'} = {
+   q(yds) => q(Yiddish Sign Language),
+};
+
+$Locale::Codes::Retired{'langext'}{'alpha'}{'name'} = {
+   q(hawai'i pidgin sign language) => [ q(hps), q(Hawai'i Pidgin Sign Language) ],
+   q(yiddish sign language) => [ q(yds), q(Yiddish Sign Language) ],
+};
+
+
+1;
diff --git a/lib/5.24.1/Locale/Codes/LangFam.pm b/lib/5.24.1/Locale/Codes/LangFam.pm
new file mode 100644
index 00000000..fccec917
--- /dev/null
+++ b/lib/5.24.1/Locale/Codes/LangFam.pm
@@ -0,0 +1,95 @@
+package Locale::Codes::LangFam;
+# Copyright (c) 2011-2015 Sullivan Beck
+# This program is free software; you can redistribute it and/or modify it
+# under the same terms as Perl itself.
+
+use strict;
+require 5.006;
+use warnings;
+
+require Exporter;
+use Carp;
+use Locale::Codes;
+use Locale::Codes::Constants;
+use Locale::Codes::LangFam_Codes;
+use Locale::Codes::LangFam_Retired;
+
+#=======================================================================
+#       Public Global Variables
+#=======================================================================
+
+our($VERSION,@ISA,@EXPORT,@EXPORT_OK);
+
+$VERSION='3.37';
+@ISA       = qw(Exporter);
+@EXPORT    = qw(code2langfam
+                langfam2code
+                all_langfam_codes
+                all_langfam_names
+                langfam_code2code
+                LOCALE_LANGFAM_ALPHA
+               );
+
+sub code2langfam {
+   return Locale::Codes::_code2name('langfam',@_);
+}
+
+sub langfam2code {
+   return Locale::Codes::_name2code('langfam',@_);
+}
+
+sub langfam_code2code {
+   return Locale::Codes::_code2code('langfam',@_);
+}
+
+sub all_langfam_codes {
+   return Locale::Codes::_all_codes('langfam',@_);
+}
+
+sub all_langfam_names {
+   return Locale::Codes::_all_names('langfam',@_);
+}
+
+sub rename_langfam {
+   return Locale::Codes::_rename('langfam',@_);
+}
+
+sub add_langfam {
+   return Locale::Codes::_add_code('langfam',@_);
+}
+
+sub delete_langfam {
+   return Locale::Codes::_delete_code('langfam',@_);
+}
+
+sub add_langfam_alias {
+   return Locale::Codes::_add_alias('langfam',@_);
+}
+
+sub delete_langfam_alias {
+   return Locale::Codes::_delete_alias('langfam',@_);
+}
+
+sub rename_langfam_code {
+   return Locale::Codes::_rename_code('langfam',@_);
+}
+
+sub add_langfam_code_alias {
+   return Locale::Codes::_add_code_alias('langfam',@_);
+}
+
+sub delete_langfam_code_alias {
+   return Locale::Codes::_delete_code_alias('langfam',@_);
+}
+
+1;
+# Local Variables:
+# mode: cperl
+# indent-tabs-mode: nil
+# cperl-indent-level: 3
+# cperl-continued-statement-offset: 2
+# cperl-continued-brace-offset: 0
+# cperl-brace-offset: 0
+# cperl-brace-imaginary-offset: 0
+# cperl-label-offset: -2
+# End:
diff --git a/lib/5.24.1/Locale/Codes/LangFam.pod b/lib/5.24.1/Locale/Codes/LangFam.pod
new file mode 100644
index 00000000..acf71f5c
--- /dev/null
+++ b/lib/5.24.1/Locale/Codes/LangFam.pod
@@ -0,0 +1,116 @@
+=pod
+
+=head1 NAME
+
+Locale::Codes::LangFam - standard codes for language extension identification
+
+=head1 SYNOPSIS
+
+   use Locale::Codes::LangFam;
+
+   $lext = code2langfam('apa');                 # $lext gets 'Apache languages'
+   $code = langfam2code('Apache languages');    # $code gets 'apa'
+
+   @codes   = all_langfam_codes();
+   @names   = all_langfam_names();
+
+=head1 DESCRIPTION
+
+This module provides access to standard codes
+used for identifying language families, such as those as defined in
+ISO 639-5.
+
+Most of the routines take an optional additional argument which
+specifies the code set to use. If not specified, the default ISO 639-5
+language family codes will be used.
+
+=head1 SUPPORTED CODE SETS
+
+There are several different code sets you can use for identifying
+language families. A code set may be specified using either a name, or a
+constant that is automatically exported by this module.
+
+For example, the two are equivalent:
+
+   $lext = code2langfam('apa','alpha');
+   $lext = code2langfam('apa',LOCALE_LANGFAM_ALPHA);
+
+The codesets currently supported are:
+
+=over 4
+
+=item B<alpha>
+
+This is the set of three-letter (lowercase) codes from ISO 639-5
+such as 'apa' for Apache languages.
+
+This is the default code set.
+
+=back
+
+=head1 ROUTINES
+
+=over 4
+
+=item B<code2langfam(CODE [,CODESET] [,'retired'])>
+
+=item B<langfam2code(NAME [,CODESET] [,'retired'])>
+
+=item B<langfam_code2code(CODE ,CODESET ,CODESET2)>
+
+=item B<all_langfam_codes([CODESET] [,'retired'])>
+
+=item B<all_langfam_names([CODESET] [,'retired'])>
+
+=item B<Locale::Codes::LangFam::rename_langfam(CODE ,NEW_NAME [,CODESET])>
+
+=item B<Locale::Codes::LangFam::add_langfam(CODE ,NAME [,CODESET])>
+
+=item B<Locale::Codes::LangFam::delete_langfam(CODE [,CODESET])>
+
+=item B<Locale::Codes::LangFam::add_langfam_alias(NAME ,NEW_NAME)>
+
+=item B<Locale::Codes::LangFam::delete_langfam_alias(NAME)>
+
+=item B<Locale::Codes::LangFam::rename_langfam_code(CODE ,NEW_CODE [,CODESET])>
+
+=item B<Locale::Codes::LangFam::add_langfam_code_alias(CODE ,NEW_CODE [,CODESET])>
+
+=item B<Locale::Codes::LangFam::delete_langfam_code_alias(CODE [,CODESET])>
+
+These routines are all documented in the L<Locale::Codes::API> man page.
+
+=back
+
+=head1 SEE ALSO
+
+=over 4
+
+=item L<Locale::Codes>
+
+The Locale-Codes distribution.
+
+=item L<Locale::Codes::API>
+
+The list of functions supported by this module.
+
+=item L<http://www.loc.gov/standards/iso639-5/id.php>
+
+ISO 639-5 .
+
+=back
+
+=head1 AUTHOR
+
+See Locale::Codes for full author history.
+
+Currently maintained by Sullivan Beck (sbeck@cpan.org).
+
+=head1 COPYRIGHT
+
+   Copyright (c) 2011-2015 Sullivan Beck
+
+This module is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+=cut
diff --git a/lib/5.24.1/Locale/Codes/LangFam_Codes.pm b/lib/5.24.1/Locale/Codes/LangFam_Codes.pm
new file mode 100644
index 00000000..09080619
--- /dev/null
+++ b/lib/5.24.1/Locale/Codes/LangFam_Codes.pm
@@ -0,0 +1,1414 @@
+package #
+Locale::Codes::LangFam_Codes;
+
+# This file was automatically generated.  Any changes to this file will
+# be lost the next time 'harvest_data' is run.
+#    Generated on: Tue Dec  1 14:44:25 EST 2015
+
+use strict;
+require 5.006;
+use warnings;
+use utf8;
+
+our($VERSION);
+$VERSION='3.37';
+
+$Locale::Codes::Data{'langfam'}{'id'} = '0116';
+
+$Locale::Codes::Data{'langfam'}{'id2names'} = {
+   q(0001) => [
+      q(Austro-Asiatic languages),
+      ],
+   q(0002) => [
+      q(Afro-Asiatic languages),
+      ],
+   q(0003) => [
+      q(Algonquian languages),
+      ],
+   q(0004) => [
+      q(Atlantic-Congo languages),
+      ],
+   q(0005) => [
+      q(Apache languages),
+      ],
+   q(0006) => [
+      q(Alacalufan languages),
+      ],
+   q(0007) => [
+      q(Algic languages),
+      ],
+   q(0008) => [
+      q(Artificial languages),
+      ],
+   q(0009) => [
+      q(Athapascan languages),
+      ],
+   q(0010) => [
+      q(Arauan languages),
+      ],
+   q(0011) => [
+      q(Australian languages),
+      ],
+   q(0012) => [
+      q(Arawakan languages),
+      ],
+   q(0013) => [
+      q(Uto-Aztecan languages),
+      ],
+   q(0014) => [
+      q(Banda languages),
+      ],
+   q(0015) => [
+      q(Bamileke languages),
+      ],
+   q(0016) => [
+      q(Baltic languages),
+      ],
+   q(0017) => [
+      q(Berber languages),
+      ],
+   q(0018) => [
+      q(Bihari languages),
+      ],
+   q(0019) => [
+      q(Bantu languages),
+      ],
+   q(0020) => [
+      q(Batak languages),
+      ],
+   q(0021) => [
+      q(Central American Indian languages),
+      ],
+   q(0022) => [
+      q(Caucasian languages),
+      ],
+   q(0023) => [
+      q(Chibchan languages),
+      ],
+   q(0024) => [
+      q(North Caucasian languages),
+      ],
+   q(0025) => [
+      q(South Caucasian languages),
+      ],
+   q(0026) => [
+      q(Chadic languages),
+      ],
+   q(0027) => [
+      q(Caddoan languages),
+      ],
+   q(0028) => [
+      q(Celtic languages),
+      ],
+   q(0029) => [
+      q(Chamic languages),
+      ],
+   q(0030) => [
+      q(Creoles and pidgins, English-based),
+      ],
+   q(0031) => [
+      q(Creoles and pidgins, French-based),
+      ],
+   q(0032) => [
+      q(Creoles and pidgins, Portuguese-based),
+      ],
+   q(0033) => [
+      q(Creoles and pidgins),
+      ],
+   q(0034) => [
+      q(Central Sudanic languages),
+      ],
+   q(0035) => [
+      q(Cushitic languages),
+      ],
+   q(0036) => [
+      q(Land Dayak languages),
+      ],
+   q(0037) => [
+      q(Mande languages),
+      ],
+   q(0038) => [
+      q(Dravidian languages),
+      ],
+   q(0039) => [
+      q(Egyptian languages),
+      ],
+   q(0040) => [
+      q(Eskimo-Aleut languages),
+      ],
+   q(0041) => [
+      q(Basque (family)),
+      ],
+   q(0042) => [
+      q(Finno-Ugrian languages),
+      ],
+   q(0043) => [
+      q(Formosan languages),
+      ],
+   q(0044) => [
+      q(Germanic languages),
+      ],
+   q(0045) => [
+      q(East Germanic languages),
+      ],
+   q(0046) => [
+      q(North Germanic languages),
+      ],
+   q(0047) => [
+      q(West Germanic languages),
+      ],
+   q(0048) => [
+      q(Greek languages),
+      ],
+   q(0049) => [
+      q(Hmong-Mien languages),
+      ],
+   q(0050) => [
+      q(Hokan languages),
+      ],
+   q(0051) => [
+      q(Armenian (family)),
+      ],
+   q(0052) => [
+      q(Indo-Iranian languages),
+      ],
+   q(0053) => [
+      q(Ijo languages),
+      ],
+   q(0054) => [
+      q(Indic languages),
+      ],
+   q(0055) => [
+      q(Indo-European languages),
+      ],
+   q(0056) => [
+      q(Iranian languages),
+      ],
+   q(0057) => [
+      q(Iroquoian languages),
+      ],
+   q(0058) => [
+      q(Italic languages),
+      ],
+   q(0059) => [
+      q(Japanese (family)),
+      ],
+   q(0060) => [
+      q(Karen languages),
+      ],
+   q(0061) => [
+      q(Kordofanian languages),
+      ],
+   q(0062) => [
+      q(Khoisan languages),
+      ],
+   q(0063) => [
+      q(Kru languages),
+      ],
+   q(0064) => [
+      q(Austronesian languages),
+      ],
+   q(0065) => [
+      q(Mon-Khmer languages),
+      ],
+   q(0066) => [
+      q(Manobo languages),
+      ],
+   q(0067) => [
+      q(Munda languages),
+      ],
+   q(0068) => [
+      q(Mayan languages),
+      ],
+   q(0069) => [
+      q(Nahuatl languages),
+      ],
+   q(0070) => [
+      q(North American Indian languages),
+      ],
+   q(0071) => [
+      q(Trans-New Guinea languages),
+      ],
+   q(0072) => [
+      q(Niger-Kordofanian languages),
+      ],
+   q(0073) => [
+      q(Nubian languages),
+      ],
+   q(0074) => [
+      q(Oto-Manguean languages),
+      ],
+   q(0075) => [
+      q(Omotic languages),
+      ],
+   q(0076) => [
+      q(Otomian languages),
+      ],
+   q(0077) => [
+      q(Papuan languages),
+      ],
+   q(0078) => [
+      q(Philippine languages),
+      ],
+   q(0079) => [
+      q(Central Malayo-Polynesian languages),
+      ],
+   q(0080) => [
+      q(Malayo-Polynesian languages),
+      ],
+   q(0081) => [
+      q(Eastern Malayo-Polynesian languages),
+      ],
+   q(0082) => [
+      q(Western Malayo-Polynesian languages),
+      ],
+   q(0083) => [
+      q(Prakrit languages),
+      ],
+   q(0084) => [
+      q(Quechuan (family)),
+      ],
+   q(0085) => [
+      q(Romance languages),
+      ],
+   q(0086) => [
+      q(South American Indian languages),
+      ],
+   q(0087) => [
+      q(Salishan languages),
+      ],
+   q(0088) => [
+      q(Eastern Sudanic languages),
+      ],
+   q(0089) => [
+      q(Semitic languages),
+      ],
+   q(0090) => [
+      q(sign languages),
+      ],
+   q(0091) => [
+      q(Siouan languages),
+      ],
+   q(0092) => [
+      q(Sino-Tibetan languages),
+      ],
+   q(0093) => [
+      q(Slavic languages),
+      ],
+   q(0094) => [
+      q(Sami languages),
+      ],
+   q(0095) => [
+      q(Songhai languages),
+      ],
+   q(0096) => [
+      q(Albanian languages),
+      ],
+   q(0097) => [
+      q(Nilo-Saharan languages),
+      ],
+   q(0098) => [
+      q(Samoyedic languages),
+      ],
+   q(0099) => [
+      q(Tai languages),
+      ],
+   q(0100) => [
+      q(Tibeto-Burman languages),
+      ],
+   q(0101) => [
+      q(Turkic languages),
+      ],
+   q(0102) => [
+      q(Tupi languages),
+      ],
+   q(0103) => [
+      q(Altaic languages),
+      ],
+   q(0104) => [
+      q(Tungus languages),
+      ],
+   q(0105) => [
+      q(Uralic languages),
+      ],
+   q(0106) => [
+      q(Wakashan languages),
+      ],
+   q(0107) => [
+      q(Sorbian languages),
+      ],
+   q(0108) => [
+      q(Mongolian languages),
+      ],
+   q(0109) => [
+      q(Na-Dene languages),
+      ],
+   q(0110) => [
+      q(Yupik languages),
+      ],
+   q(0111) => [
+      q(Chinese (family)),
+      ],
+   q(0112) => [
+      q(East Slavic languages),
+      ],
+   q(0113) => [
+      q(South Slavic languages),
+      ],
+   q(0114) => [
+      q(West Slavic languages),
+      ],
+   q(0115) => [
+      q(Zande languages),
+      ],
+};
+
+$Locale::Codes::Data{'langfam'}{'alias2id'} = {
+   q(afro-asiatic languages) => [
+      q(0002),
+      q(0),
+      ],
+   q(alacalufan languages) => [
+      q(0006),
+      q(0),
+      ],
+   q(albanian languages) => [
+      q(0096),
+      q(0),
+      ],
+   q(algic languages) => [
+      q(0007),
+      q(0),
+      ],
+   q(algonquian languages) => [
+      q(0003),
+      q(0),
+      ],
+   q(altaic languages) => [
+      q(0103),
+      q(0),
+      ],
+   q(apache languages) => [
+      q(0005),
+      q(0),
+      ],
+   q(arauan languages) => [
+      q(0010),
+      q(0),
+      ],
+   q(arawakan languages) => [
+      q(0012),
+      q(0),
+      ],
+   q(armenian (family)) => [
+      q(0051),
+      q(0),
+      ],
+   q(artificial languages) => [
+      q(0008),
+      q(0),
+      ],
+   q(athapascan languages) => [
+      q(0009),
+      q(0),
+      ],
+   q(atlantic-congo languages) => [
+      q(0004),
+      q(0),
+      ],
+   q(australian languages) => [
+      q(0011),
+      q(0),
+      ],
+   q(austro-asiatic languages) => [
+      q(0001),
+      q(0),
+      ],
+   q(austronesian languages) => [
+      q(0064),
+      q(0),
+      ],
+   q(baltic languages) => [
+      q(0016),
+      q(0),
+      ],
+   q(bamileke languages) => [
+      q(0015),
+      q(0),
+      ],
+   q(banda languages) => [
+      q(0014),
+      q(0),
+      ],
+   q(bantu languages) => [
+      q(0019),
+      q(0),
+      ],
+   q(basque (family)) => [
+      q(0041),
+      q(0),
+      ],
+   q(batak languages) => [
+      q(0020),
+      q(0),
+      ],
+   q(berber languages) => [
+      q(0017),
+      q(0),
+      ],
+   q(bihari languages) => [
+      q(0018),
+      q(0),
+      ],
+   q(caddoan languages) => [
+      q(0027),
+      q(0),
+      ],
+   q(caucasian languages) => [
+      q(0022),
+      q(0),
+      ],
+   q(celtic languages) => [
+      q(0028),
+      q(0),
+      ],
+   q(central american indian languages) => [
+      q(0021),
+      q(0),
+      ],
+   q(central malayo-polynesian languages) => [
+      q(0079),
+      q(0),
+      ],
+   q(central sudanic languages) => [
+      q(0034),
+      q(0),
+      ],
+   q(chadic languages) => [
+      q(0026),
+      q(0),
+      ],
+   q(chamic languages) => [
+      q(0029),
+      q(0),
+      ],
+   q(chibchan languages) => [
+      q(0023),
+      q(0),
+      ],
+   q(chinese (family)) => [
+      q(0111),
+      q(0),
+      ],
+   q(creoles and pidgins) => [
+      q(0033),
+      q(0),
+      ],
+   q(creoles and pidgins, english-based) => [
+      q(0030),
+      q(0),
+      ],
+   q(creoles and pidgins, french-based) => [
+      q(0031),
+      q(0),
+      ],
+   q(creoles and pidgins, portuguese-based) => [
+      q(0032),
+      q(0),
+      ],
+   q(cushitic languages) => [
+      q(0035),
+      q(0),
+      ],
+   q(dravidian languages) => [
+      q(0038),
+      q(0),
+      ],
+   q(east germanic languages) => [
+      q(0045),
+      q(0),
+      ],
+   q(east slavic languages) => [
+      q(0112),
+      q(0),
+      ],
+   q(eastern malayo-polynesian languages) => [
+      q(0081),
+      q(0),
+      ],
+   q(eastern sudanic languages) => [
+      q(0088),
+      q(0),
+      ],
+   q(egyptian languages) => [
+      q(0039),
+      q(0),
+      ],
+   q(eskimo-aleut languages) => [
+      q(0040),
+      q(0),
+      ],
+   q(finno-ugrian languages) => [
+      q(0042),
+      q(0),
+      ],
+   q(formosan languages) => [
+      q(0043),
+      q(0),
+      ],
+   q(germanic languages) => [
+      q(0044),
+      q(0),
+      ],
+   q(greek languages) => [
+      q(0048),
+      q(0),
+      ],
+   q(hmong-mien languages) => [
+      q(0049),
+      q(0),
+      ],
+   q(hokan languages) => [
+      q(0050),
+      q(0),
+      ],
+   q(ijo languages) => [
+      q(0053),
+      q(0),
+      ],
+   q(indic languages) => [
+      q(0054),
+      q(0),
+      ],
+   q(indo-european languages) => [
+      q(0055),
+      q(0),
+      ],
+   q(indo-iranian languages) => [
+      q(0052),
+      q(0),
+      ],
+   q(iranian languages) => [
+      q(0056),
+      q(0),
+      ],
+   q(iroquoian languages) => [
+      q(0057),
+      q(0),
+      ],
+   q(italic languages) => [
+      q(0058),
+      q(0),
+      ],
+   q(japanese (family)) => [
+      q(0059),
+      q(0),
+      ],
+   q(karen languages) => [
+      q(0060),
+      q(0),
+      ],
+   q(khoisan languages) => [
+      q(0062),
+      q(0),
+      ],
+   q(kordofanian languages) => [
+      q(0061),
+      q(0),
+      ],
+   q(kru languages) => [
+      q(0063),
+      q(0),
+      ],
+   q(land dayak languages) => [
+      q(0036),
+      q(0),
+      ],
+   q(malayo-polynesian languages) => [
+      q(0080),
+      q(0),
+      ],
+   q(mande languages) => [
+      q(0037),
+      q(0),
+      ],
+   q(manobo languages) => [
+      q(0066),
+      q(0),
+      ],
+   q(mayan languages) => [
+      q(0068),
+      q(0),
+      ],
+   q(mon-khmer languages) => [
+      q(0065),
+      q(0),
+      ],
+   q(mongolian languages) => [
+      q(0108),
+      q(0),
+      ],
+   q(munda languages) => [
+      q(0067),
+      q(0),
+      ],
+   q(na-dene languages) => [
+      q(0109),
+      q(0),
+      ],
+   q(nahuatl languages) => [
+      q(0069),
+      q(0),
+      ],
+   q(niger-kordofanian languages) => [
+      q(0072),
+      q(0),
+      ],
+   q(nilo-saharan languages) => [
+      q(0097),
+      q(0),
+      ],
+   q(north american indian languages) => [
+      q(0070),
+      q(0),
+      ],
+   q(north caucasian languages) => [
+      q(0024),
+      q(0),
+      ],
+   q(north germanic languages) => [
+      q(0046),
+      q(0),
+      ],
+   q(nubian languages) => [
+      q(0073),
+      q(0),
+      ],
+   q(omotic languages) => [
+      q(0075),
+      q(0),
+      ],
+   q(oto-manguean languages) => [
+      q(0074),
+      q(0),
+      ],
+   q(otomian languages) => [
+      q(0076),
+      q(0),
+      ],
+   q(papuan languages) => [
+      q(0077),
+      q(0),
+      ],
+   q(philippine languages) => [
+      q(0078),
+      q(0),
+      ],
+   q(prakrit languages) => [
+      q(0083),
+      q(0),
+      ],
+   q(quechuan (family)) => [
+      q(0084),
+      q(0),
+      ],
+   q(romance languages) => [
+      q(0085),
+      q(0),
+      ],
+   q(salishan languages) => [
+      q(0087),
+      q(0),
+      ],
+   q(sami languages) => [
+      q(0094),
+      q(0),
+      ],
+   q(samoyedic languages) => [
+      q(0098),
+      q(0),
+      ],
+   q(semitic languages) => [
+      q(0089),
+      q(0),
+      ],
+   q(sign languages) => [
+      q(0090),
+      q(0),
+      ],
+   q(sino-tibetan languages) => [
+      q(0092),
+      q(0),
+      ],
+   q(siouan languages) => [
+      q(0091),
+      q(0),
+      ],
+   q(slavic languages) => [
+      q(0093),
+      q(0),
+      ],
+   q(songhai languages) => [
+      q(0095),
+      q(0),
+      ],
+   q(sorbian languages) => [
+      q(0107),
+      q(0),
+      ],
+   q(south american indian languages) => [
+      q(0086),
+      q(0),
+      ],
+   q(south caucasian languages) => [
+      q(0025),
+      q(0),
+      ],
+   q(south slavic languages) => [
+      q(0113),
+      q(0),
+      ],
+   q(tai languages) => [
+      q(0099),
+      q(0),
+      ],
+   q(tibeto-burman languages) => [
+      q(0100),
+      q(0),
+      ],
+   q(trans-new guinea languages) => [
+      q(0071),
+      q(0),
+      ],
+   q(tungus languages) => [
+      q(0104),
+      q(0),
+      ],
+   q(tupi languages) => [
+      q(0102),
+      q(0),
+      ],
+   q(turkic languages) => [
+      q(0101),
+      q(0),
+      ],
+   q(uralic languages) => [
+      q(0105),
+      q(0),
+      ],
+   q(uto-aztecan languages) => [
+      q(0013),
+      q(0),
+      ],
+   q(wakashan languages) => [
+      q(0106),
+      q(0),
+      ],
+   q(west germanic languages) => [
+      q(0047),
+      q(0),
+      ],
+   q(west slavic languages) => [
+      q(0114),
+      q(0),
+      ],
+   q(western malayo-polynesian languages) => [
+      q(0082),
+      q(0),
+      ],
+   q(yupik languages) => [
+      q(0110),
+      q(0),
+      ],
+   q(zande languages) => [
+      q(0115),
+      q(0),
+      ],
+};
+
+$Locale::Codes::Data{'langfam'}{'code2id'} = {
+   q(alpha) => {
+      q(aav) => [
+         q(0001),
+         q(0),
+         ],
+      q(afa) => [
+         q(0002),
+         q(0),
+         ],
+      q(alg) => [
+         q(0003),
+         q(0),
+         ],
+      q(alv) => [
+         q(0004),
+         q(0),
+         ],
+      q(apa) => [
+         q(0005),
+         q(0),
+         ],
+      q(aqa) => [
+         q(0006),
+         q(0),
+         ],
+      q(aql) => [
+         q(0007),
+         q(0),
+         ],
+      q(art) => [
+         q(0008),
+         q(0),
+         ],
+      q(ath) => [
+         q(0009),
+         q(0),
+         ],
+      q(auf) => [
+         q(0010),
+         q(0),
+         ],
+      q(aus) => [
+         q(0011),
+         q(0),
+         ],
+      q(awd) => [
+         q(0012),
+         q(0),
+         ],
+      q(azc) => [
+         q(0013),
+         q(0),
+         ],
+      q(bad) => [
+         q(0014),
+         q(0),
+         ],
+      q(bai) => [
+         q(0015),
+         q(0),
+         ],
+      q(bat) => [
+         q(0016),
+         q(0),
+         ],
+      q(ber) => [
+         q(0017),
+         q(0),
+         ],
+      q(bih) => [
+         q(0018),
+         q(0),
+         ],
+      q(bnt) => [
+         q(0019),
+         q(0),
+         ],
+      q(btk) => [
+         q(0020),
+         q(0),
+         ],
+      q(cai) => [
+         q(0021),
+         q(0),
+         ],
+      q(cau) => [
+         q(0022),
+         q(0),
+         ],
+      q(cba) => [
+         q(0023),
+         q(0),
+         ],
+      q(ccn) => [
+         q(0024),
+         q(0),
+         ],
+      q(ccs) => [
+         q(0025),
+         q(0),
+         ],
+      q(cdc) => [
+         q(0026),
+         q(0),
+         ],
+      q(cdd) => [
+         q(0027),
+         q(0),
+         ],
+      q(cel) => [
+         q(0028),
+         q(0),
+         ],
+      q(cmc) => [
+         q(0029),
+         q(0),
+         ],
+      q(cpe) => [
+         q(0030),
+         q(0),
+         ],
+      q(cpf) => [
+         q(0031),
+         q(0),
+         ],
+      q(cpp) => [
+         q(0032),
+         q(0),
+         ],
+      q(crp) => [
+         q(0033),
+         q(0),
+         ],
+      q(csu) => [
+         q(0034),
+         q(0),
+         ],
+      q(cus) => [
+         q(0035),
+         q(0),
+         ],
+      q(day) => [
+         q(0036),
+         q(0),
+         ],
+      q(dmn) => [
+         q(0037),
+         q(0),
+         ],
+      q(dra) => [
+         q(0038),
+         q(0),
+         ],
+      q(egx) => [
+         q(0039),
+         q(0),
+         ],
+      q(esx) => [
+         q(0040),
+         q(0),
+         ],
+      q(euq) => [
+         q(0041),
+         q(0),
+         ],
+      q(fiu) => [
+         q(0042),
+         q(0),
+         ],
+      q(fox) => [
+         q(0043),
+         q(0),
+         ],
+      q(gem) => [
+         q(0044),
+         q(0),
+         ],
+      q(gme) => [
+         q(0045),
+         q(0),
+         ],
+      q(gmq) => [
+         q(0046),
+         q(0),
+         ],
+      q(gmw) => [
+         q(0047),
+         q(0),
+         ],
+      q(grk) => [
+         q(0048),
+         q(0),
+         ],
+      q(hmx) => [
+         q(0049),
+         q(0),
+         ],
+      q(hok) => [
+         q(0050),
+         q(0),
+         ],
+      q(hyx) => [
+         q(0051),
+         q(0),
+         ],
+      q(iir) => [
+         q(0052),
+         q(0),
+         ],
+      q(ijo) => [
+         q(0053),
+         q(0),
+         ],
+      q(inc) => [
+         q(0054),
+         q(0),
+         ],
+      q(ine) => [
+         q(0055),
+         q(0),
+         ],
+      q(ira) => [
+         q(0056),
+         q(0),
+         ],
+      q(iro) => [
+         q(0057),
+         q(0),
+         ],
+      q(itc) => [
+         q(0058),
+         q(0),
+         ],
+      q(jpx) => [
+         q(0059),
+         q(0),
+         ],
+      q(kar) => [
+         q(0060),
+         q(0),
+         ],
+      q(kdo) => [
+         q(0061),
+         q(0),
+         ],
+      q(khi) => [
+         q(0062),
+         q(0),
+         ],
+      q(kro) => [
+         q(0063),
+         q(0),
+         ],
+      q(map) => [
+         q(0064),
+         q(0),
+         ],
+      q(mkh) => [
+         q(0065),
+         q(0),
+         ],
+      q(mno) => [
+         q(0066),
+         q(0),
+         ],
+      q(mun) => [
+         q(0067),
+         q(0),
+         ],
+      q(myn) => [
+         q(0068),
+         q(0),
+         ],
+      q(nah) => [
+         q(0069),
+         q(0),
+         ],
+      q(nai) => [
+         q(0070),
+         q(0),
+         ],
+      q(ngf) => [
+         q(0071),
+         q(0),
+         ],
+      q(nic) => [
+         q(0072),
+         q(0),
+         ],
+      q(nub) => [
+         q(0073),
+         q(0),
+         ],
+      q(omq) => [
+         q(0074),
+         q(0),
+         ],
+      q(omv) => [
+         q(0075),
+         q(0),
+         ],
+      q(oto) => [
+         q(0076),
+         q(0),
+         ],
+      q(paa) => [
+         q(0077),
+         q(0),
+         ],
+      q(phi) => [
+         q(0078),
+         q(0),
+         ],
+      q(plf) => [
+         q(0079),
+         q(0),
+         ],
+      q(poz) => [
+         q(0080),
+         q(0),
+         ],
+      q(pqe) => [
+         q(0081),
+         q(0),
+         ],
+      q(pqw) => [
+         q(0082),
+         q(0),
+         ],
+      q(pra) => [
+         q(0083),
+         q(0),
+         ],
+      q(qwe) => [
+         q(0084),
+         q(0),
+         ],
+      q(roa) => [
+         q(0085),
+         q(0),
+         ],
+      q(sai) => [
+         q(0086),
+         q(0),
+         ],
+      q(sal) => [
+         q(0087),
+         q(0),
+         ],
+      q(sdv) => [
+         q(0088),
+         q(0),
+         ],
+      q(sem) => [
+         q(0089),
+         q(0),
+         ],
+      q(sgn) => [
+         q(0090),
+         q(0),
+         ],
+      q(sio) => [
+         q(0091),
+         q(0),
+         ],
+      q(sit) => [
+         q(0092),
+         q(0),
+         ],
+      q(sla) => [
+         q(0093),
+         q(0),
+         ],
+      q(smi) => [
+         q(0094),
+         q(0),
+         ],
+      q(son) => [
+         q(0095),
+         q(0),
+         ],
+      q(sqj) => [
+         q(0096),
+         q(0),
+         ],
+      q(ssa) => [
+         q(0097),
+         q(0),
+         ],
+      q(syd) => [
+         q(0098),
+         q(0),
+         ],
+      q(tai) => [
+         q(0099),
+         q(0),
+         ],
+      q(tbq) => [
+         q(0100),
+         q(0),
+         ],
+      q(trk) => [
+         q(0101),
+         q(0),
+         ],
+      q(tup) => [
+         q(0102),
+         q(0),
+         ],
+      q(tut) => [
+         q(0103),
+         q(0),
+         ],
+      q(tuw) => [
+         q(0104),
+         q(0),
+         ],
+      q(urj) => [
+         q(0105),
+         q(0),
+         ],
+      q(wak) => [
+         q(0106),
+         q(0),
+         ],
+      q(wen) => [
+         q(0107),
+         q(0),
+         ],
+      q(xgn) => [
+         q(0108),
+         q(0),
+         ],
+      q(xnd) => [
+         q(0109),
+         q(0),
+         ],
+      q(ypk) => [
+         q(0110),
+         q(0),
+         ],
+      q(zhx) => [
+         q(0111),
+         q(0),
+         ],
+      q(zle) => [
+         q(0112),
+         q(0),
+         ],
+      q(zls) => [
+         q(0113),
+         q(0),
+         ],
+      q(zlw) => [
+         q(0114),
+         q(0),
+         ],
+      q(znd) => [
+         q(0115),
+         q(0),
+         ],
+      },
+};
+
+$Locale::Codes::Data{'langfam'}{'id2code'} = {
+   q(alpha) => {
+      q(0001) => q(aav),
+      q(0002) => q(afa),
+      q(0003) => q(alg),
+      q(0004) => q(alv),
+      q(0005) => q(apa),
+      q(0006) => q(aqa),
+      q(0007) => q(aql),
+      q(0008) => q(art),
+      q(0009) => q(ath),
+      q(0010) => q(auf),
+      q(0011) => q(aus),
+      q(0012) => q(awd),
+      q(0013) => q(azc),
+      q(0014) => q(bad),
+      q(0015) => q(bai),
+      q(0016) => q(bat),
+      q(0017) => q(ber),
+      q(0018) => q(bih),
+      q(0019) => q(bnt),
+      q(0020) => q(btk),
+      q(0021) => q(cai),
+      q(0022) => q(cau),
+      q(0023) => q(cba),
+      q(0024) => q(ccn),
+      q(0025) => q(ccs),
+      q(0026) => q(cdc),
+      q(0027) => q(cdd),
+      q(0028) => q(cel),
+      q(0029) => q(cmc),
+      q(0030) => q(cpe),
+      q(0031) => q(cpf),
+      q(0032) => q(cpp),
+      q(0033) => q(crp),
+      q(0034) => q(csu),
+      q(0035) => q(cus),
+      q(0036) => q(day),
+      q(0037) => q(dmn),
+      q(0038) => q(dra),
+      q(0039) => q(egx),
+      q(0040) => q(esx),
+      q(0041) => q(euq),
+      q(0042) => q(fiu),
+      q(0043) => q(fox),
+      q(0044) => q(gem),
+      q(0045) => q(gme),
+      q(0046) => q(gmq),
+      q(0047) => q(gmw),
+      q(0048) => q(grk),
+      q(0049) => q(hmx),
+      q(0050) => q(hok),
+      q(0051) => q(hyx),
+      q(0052) => q(iir),
+      q(0053) => q(ijo),
+      q(0054) => q(inc),
+      q(0055) => q(ine),
+      q(0056) => q(ira),
+      q(0057) => q(iro),
+      q(0058) => q(itc),
+      q(0059) => q(jpx),
+      q(0060) => q(kar),
+      q(0061) => q(kdo),
+      q(0062) => q(khi),
+      q(0063) => q(kro),
+      q(0064) => q(map),
+      q(0065) => q(mkh),
+      q(0066) => q(mno),
+      q(0067) => q(mun),
+      q(0068) => q(myn),
+      q(0069) => q(nah),
+      q(0070) => q(nai),
+      q(0071) => q(ngf),
+      q(0072) => q(nic),
+      q(0073) => q(nub),
+      q(0074) => q(omq),
+      q(0075) => q(omv),
+      q(0076) => q(oto),
+      q(0077) => q(paa),
+      q(0078) => q(phi),
+      q(0079) => q(plf),
+      q(0080) => q(poz),
+      q(0081) => q(pqe),
+      q(0082) => q(pqw),
+      q(0083) => q(pra),
+      q(0084) => q(qwe),
+      q(0085) => q(roa),
+      q(0086) => q(sai),
+      q(0087) => q(sal),
+      q(0088) => q(sdv),
+      q(0089) => q(sem),
+      q(0090) => q(sgn),
+      q(0091) => q(sio),
+      q(0092) => q(sit),
+      q(0093) => q(sla),
+      q(0094) => q(smi),
+      q(0095) => q(son),
+      q(0096) => q(sqj),
+      q(0097) => q(ssa),
+      q(0098) => q(syd),
+      q(0099) => q(tai),
+      q(0100) => q(tbq),
+      q(0101) => q(trk),
+      q(0102) => q(tup),
+      q(0103) => q(tut),
+      q(0104) => q(tuw),
+      q(0105) => q(urj),
+      q(0106) => q(wak),
+      q(0107) => q(wen),
+      q(0108) => q(xgn),
+      q(0109) => q(xnd),
+      q(0110) => q(ypk),
+      q(0111) => q(zhx),
+      q(0112) => q(zle),
+      q(0113) => q(zls),
+      q(0114) => q(zlw),
+      q(0115) => q(znd),
+      },
+};
+
+1;
diff --git a/lib/5.24.1/Locale/Codes/LangFam_Retired.pm b/lib/5.24.1/Locale/Codes/LangFam_Retired.pm
new file mode 100644
index 00000000..2fce4216
--- /dev/null
+++ b/lib/5.24.1/Locale/Codes/LangFam_Retired.pm
@@ -0,0 +1,22 @@
+package #
+Locale::Codes::LangFam_Retired;
+
+# This file was automatically generated.  Any changes to this file will
+# be lost the next time 'deprecate_codes' is run.
+#    Generated on: Tue Sep 27 15:40:31 EDT 2011
+
+use strict;
+use warnings;
+require 5.002;
+
+our($VERSION);
+$VERSION='3.37';
+
+$Locale::Codes::Retired{'langfam'}{'alpha'}{'code'} = {
+};
+
+$Locale::Codes::Retired{'langfam'}{'alpha'}{'name'} = {
+};
+
+
+1;
diff --git a/lib/5.24.1/Locale/Codes/LangVar.pm b/lib/5.24.1/Locale/Codes/LangVar.pm
new file mode 100644
index 00000000..23b20cff
--- /dev/null
+++ b/lib/5.24.1/Locale/Codes/LangVar.pm
@@ -0,0 +1,96 @@
+package Locale::Codes::LangVar;
+# Copyright (c) 2011-2015 Sullivan Beck
+# This program is free software; you can redistribute it and/or modify it
+# under the same terms as Perl itself.
+
+use strict;
+require 5.006;
+use warnings;
+
+require Exporter;
+use Carp;
+use Locale::Codes;
+use Locale::Codes::Constants;
+use Locale::Codes::LangVar_Codes;
+use Locale::Codes::LangVar_Retired;
+
+#=======================================================================
+#       Public Global Variables
+#=======================================================================
+
+our($VERSION,@ISA,@EXPORT,@EXPORT_OK);
+
+$VERSION='3.37';
+@ISA       = qw(Exporter);
+@EXPORT    = qw(code2langvar
+                langvar2code
+                all_langvar_codes
+                all_langvar_names
+                langvar_code2code
+                LOCALE_LANGVAR_ALPHA
+               );
+
+sub code2langvar {
+   return Locale::Codes::_code2name('langvar',@_);
+}
+
+sub langvar2code {
+   return Locale::Codes::_name2code('langvar',@_);
+}
+
+sub langvar_code2code {
+
+   return Locale::Codes::_code2code('langvar',@_);
+}
+
+sub all_langvar_codes {
+   return Locale::Codes::_all_codes('langvar',@_);
+}
+
+sub all_langvar_names {
+   return Locale::Codes::_all_names('langvar',@_);
+}
+
+sub rename_langvar {
+   return Locale::Codes::_rename('langvar',@_);
+}
+
+sub add_langvar {
+   return Locale::Codes::_add_code('langvar',@_);
+}
+
+sub delete_langvar {
+   return Locale::Codes::_delete_code('langvar',@_);
+}
+
+sub add_langvar_alias {
+   return Locale::Codes::_add_alias('langvar',@_);
+}
+
+sub delete_langvar_alias {
+   return Locale::Codes::_delete_alias('langvar',@_);
+}
+
+sub rename_langvar_code {
+   return Locale::Codes::_rename_code('langvar',@_);
+}
+
+sub add_langvar_code_alias {
+   return Locale::Codes::_add_code_alias('langvar',@_);
+}
+
+sub delete_langvar_code_alias {
+   return Locale::Codes::_delete_code_alias('langvar',@_);
+}
+
+1;
+# Local Variables:
+# mode: cperl
+# indent-tabs-mode: nil
+# cperl-indent-level: 3
+# cperl-continued-statement-offset: 2
+# cperl-continued-brace-offset: 0
+# cperl-brace-offset: 0
+# cperl-brace-imaginary-offset: 0
+# cperl-label-offset: -2
+# End:
diff --git a/lib/5.24.1/Locale/Codes/LangVar.pod b/lib/5.24.1/Locale/Codes/LangVar.pod
new file mode 100644
index 00000000..b815e13c
--- /dev/null
+++ b/lib/5.24.1/Locale/Codes/LangVar.pod
@@ -0,0 +1,118 @@
+=pod
+
+=head1 NAME
+
+Locale::Codes::LangVar - standard codes for language variation identification
+
+=head1 SYNOPSIS
+
+   use Locale::Codes::LangVar;
+
+   $lvar = code2langvar('acm');                 # $lvar gets 'Mesopotamian Arabic'
+   $code = langvar2code('Mesopotamian Arabic'); # $code gets 'acm'
+
+   @codes   = all_langvar_codes();
+   @names   = all_langvar_names();
+
+=head1 DESCRIPTION
+
+This module provides access to standard codes
+used for identifying language variations, such as those as defined in
+the IANA language registry.
+
+Most of the routines take an optional additional argument which
+specifies the code set to use. If not specified, the default IANA
+language registry codes will be used.
+
+=head1 SUPPORTED CODE SETS
+
+There are several different code sets you can use for identifying
+language variations. A code set may be specified using either a name, or a
+constant that is automatically exported by this module.
+
+For example, the two are equivalent:
+
+   $lvar = code2langvar('arevela','alpha');
+   $lvar = code2langvar('arevela',LOCALE_LANGVAR_ALPHA);
+
+The codesets currently supported are:
+
+=over 4
+
+=item B<alpha>
+
+This is the set of alphanumeric codes from the IANA
+language registry, such as 'arevela' for Eastern Armenian.
+
+This code set is identified with the symbol C<LOCALE_LANGVAR_ALPHA>.
+
+This is the default code set.
+
+=back
+
+=head1 ROUTINES
+
+=over 4
+
+=item B<code2langvar(CODE [,CODESET] [,'retired'])>
+
+=item B<langvar2code(NAME [,CODESET] [,'retired'])>
+
+=item B<langvar_code2code(CODE ,CODESET ,CODESET2)>
+
+=item B<all_langvar_codes([CODESET] [,'retired'])>
+
+=item B<all_langvar_names([CODESET] [,'retired'])>
+
+=item B<Locale::Codes::LangVar::rename_langvar(CODE ,NEW_NAME [,CODESET])>
+
+=item B<Locale::Codes::LangVar::add_langvar(CODE ,NAME [,CODESET])>
+
+=item B<Locale::Codes::LangVar::delete_langvar(CODE [,CODESET])>
+
+=item B<Locale::Codes::LangVar::add_langvar_alias(NAME ,NEW_NAME)>
+
+=item B<Locale::Codes::LangVar::delete_langvar_alias(NAME)>
+
+=item B<Locale::Codes::LangVar::rename_langvar_code(CODE ,NEW_CODE [,CODESET])>
+
+=item B<Locale::Codes::LangVar::add_langvar_code_alias(CODE ,NEW_CODE [,CODESET])>
+
+=item B<Locale::Codes::LangVar::delete_langvar_code_alias(CODE [,CODESET])>
+
+These routines are all documented in the L<Locale::Codes::API> man page.
+
+=back
+
+=head1 SEE ALSO
+
+=over 4
+
+=item L<Locale::Codes>
+
+The Locale-Codes distribution.
+
+=item L<Locale::Codes::API>
+
+The list of functions supported by this module.
+
+=item L<http://www.iana.org/assignments/language-subtag-registry>
+
+The IANA language subtag registry.
+
+=back
+
+=head1 AUTHOR
+
+See Locale::Codes for full author history.
+
+Currently maintained by Sullivan Beck (sbeck@cpan.org).
+
+=head1 COPYRIGHT
+
+   Copyright (c) 2011-2015 Sullivan Beck
+
+This module is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+=cut
diff --git a/lib/5.24.1/Locale/Codes/LangVar_Codes.pm b/lib/5.24.1/Locale/Codes/LangVar_Codes.pm
new file mode 100644
index 00000000..7613dd05
--- /dev/null
+++ b/lib/5.24.1/Locale/Codes/LangVar_Codes.pm
@@ -0,0 +1,998 @@
+package #
+Locale::Codes::LangVar_Codes;
+
+# This file was automatically generated.  Any changes to this file will
+# be lost the next time 'harvest_data' is run.
+#    Generated on: Tue Dec  1 14:44:22 EST 2015
+
+use strict;
+require 5.006;
+use warnings;
+use utf8;
+
+our($VERSION);
+$VERSION='3.37';
+
+$Locale::Codes::Data{'langvar'}{'id'} = '0073';
+
+$Locale::Codes::Data{'langvar'}{'id2names'} = {
+   q(0001) => [
+      q(Late Middle French (to 1606)),
+      ],
+   q(0002) => [
+      q(Early Modern French),
+      ],
+   q(0003) => [
+      q(Traditional German orthography),
+      ],
+   q(0004) => [
+      q("Academic" ("governmental") variant of Belarusian as codified in 1959),
+      ],
+   q(0005) => [
+      q(Standardized Resian orthography),
+      ],
+   q(0006) => [
+      q(German orthography of 1996),
+      ],
+   q(0007) => [
+      q(Orthographic formulation of 1943 - Official in Brazil (Formulario Ortografico de 1943 - Oficial no Brasil)),
+      ],
+   q(0008) => [
+      q(ALA-LC Romanization, 1997 edition),
+      ],
+   q(0009) => [
+      q(Aluku dialect),
+      q(Boni dialect),
+      ],
+   q(0010) => [
+      q(Portuguese Language Orthographic Agreement of 1990 (Acordo Ortografico da Lingua Portuguesa de 1990)),
+      ],
+   q(0011) => [
+      q(Eastern Armenian),
+      ],
+   q(0012) => [
+      q(Western Armenian),
+      ],
+   q(0013) => [
+      q(Unified Turkic Latin Alphabet (Historical)),
+      ],
+   q(0014) => [
+      q(The Balanka dialect of Anii),
+      ],
+   q(0015) => [
+      q(The Barlavento dialect group of Kabuverdianu),
+      ],
+   q(0016) => [
+      q(Buddhist Hybrid Sanskrit),
+      ],
+   q(0017) => [
+      q(Biscayan dialect of Basque),
+      ],
+   q(0018) => [
+      q(The San Giorgio dialect of Resian),
+      q(The Bila dialect of Resian),
+      ],
+   q(0019) => [
+      q(Slovene in Bohoric alphabet),
+      ],
+   q(0020) => [
+      q(Boontling),
+      ],
+   q(0021) => [
+      q(Portuguese-Brazilian Orthographic Convention of 1945 (Convencao Ortografica Luso-Brasileira de 1945)),
+      ],
+   q(0022) => [
+      q(Slovene in Dajnko alphabet),
+      ],
+   q(0023) => [
+      q(Serbian with Ekavian pronunciation),
+      ],
+   q(0024) => [
+      q(Early Modern English (1500-1700)),
+      ],
+   q(0025) => [
+      q(International Phonetic Alphabet),
+      ],
+   q(0026) => [
+      q(Uralic Phonetic Alphabet),
+      ],
+   q(0027) => [
+      q(X-SAMPA transcription),
+      ],
+   q(0028) => [
+      q(Hepburn romanization),
+      ],
+   q(0029) => [
+      q(Norwegian in Hognorsk (High Norwegian) orthography),
+      ],
+   q(0030) => [
+      q(Serbian with Ijekavian pronunciation),
+      ],
+   q(0031) => [
+      q(Epic Sanskrit),
+      ],
+   q(0032) => [
+      q(Jauer dialect of Romansh),
+      ],
+   q(0033) => [
+      q(Jyutping Cantonese Romanization),
+      ],
+   q(0034) => [
+      q(Common Cornish orthography of Revived Cornish),
+      ],
+   q(0035) => [
+      q(The Kociewie dialect of Polish),
+      ],
+   q(0036) => [
+      q(Standard Cornish orthography of Revived Cornish),
+      q(Kernowek Standard),
+      ],
+   q(0037) => [
+      q(Classical Sanskrit),
+      ],
+   q(0038) => [
+      q(The Lipovaz dialect of Resian),
+      q(The Lipovec dialect of Resian),
+      ],
+   q(0039) => [
+      q(Post-1917 Russian orthography),
+      ],
+   q(0040) => [
+      q(Slovene in Metelko alphabet),
+      ],
+   q(0041) => [
+      q(Monotonic Greek),
+      ],
+   q(0042) => [
+      q(Ndyuka dialect),
+      q(Aukan dialect),
+      ],
+   q(0043) => [
+      q(Natisone dialect),
+      q(Nadiza dialect),
+      ],
+   q(0044) => [
+      q(Newfoundland English),
+      ],
+   q(0045) => [
+      q(The Gniva dialect of Resian),
+      q(The Njiva dialect of Resian),
+      ],
+   q(0046) => [
+      q(Volapuk nulik),
+      q(Volapuk perevidol),
+      q(Volapuk nuladik),
+      q(de Jong's Volapuk),
+      q(New Volapuk),
+      q(Revised Volapuk),
+      q(Modern Volapuk),
+      ],
+   q(0047) => [
+      q(The Oseacco dialect of Resian),
+      q(The Osojane dialect of Resian),
+      ],
+   q(0048) => [
+      q(Oxford English Dictionary spelling),
+      ],
+   q(0049) => [
+      q(Pamaka dialect),
+      ],
+   q(0050) => [
+      q(Petrine orthography),
+      ],
+   q(0051) => [
+      q(Pinyin romanization),
+      ],
+   q(0052) => [
+      q(Polytonic Greek),
+      ],
+   q(0053) => [
+      q(Puter idiom of Romansh),
+      ],
+   q(0054) => [
+      q(Volapuk rigik),
+      q(Schleyer's Volapuk),
+      q(Original Volapuk),
+      q(Classic Volapuk),
+      ],
+   q(0055) => [
+      q(Resian),
+      q(Resianic),
+      q(Rezijan),
+      ],
+   q(0056) => [
+      q(Rumantsch Grischun),
+      ],
+   q(0057) => [
+      q(Scottish Standard English),
+      ],
+   q(0058) => [
+      q(Scouse),
+      ],
+   q(0059) => [
+      q(The Stolvizza dialect of Resian),
+      q(The Solbica dialect of Resian),
+      ],
+   q(0060) => [
+      q(The Sotavento dialect group of Kabuverdianu),
+      ],
+   q(0061) => [
+      q(Surmiran idiom of Romansh),
+      ],
+   q(0062) => [
+      q(Sursilvan idiom of Romansh),
+      ],
+   q(0063) => [
+      q(Sutsilvan idiom of Romansh),
+      ],
+   q(0064) => [
+      q(Belarusian in Taraskievica orthography),
+      ],
+   q(0065) => [
+      q(Unified Cornish orthography of Revived Cornish),
+      ],
+   q(0066) => [
+      q(Unified Cornish Revised orthography of Revived Cornish),
+      ],
+   q(0067) => [
+      q(Ulster dialect of Scots),
+      ],
+   q(0068) => [
+      q(Unifon phonetic alphabet),
+      ],
+   q(0069) => [
+      q(Vedic Sanskrit),
+      ],
+   q(0070) => [
+      q(Valencian),
+      ],
+   q(0071) => [
+      q(Vallader idiom of Romansh),
+      ],
+   q(0072) => [
+      q(Wade-Giles romanization),
+      ],
+};
+
+$Locale::Codes::Data{'langvar'}{'alias2id'} = {
+   q("academic" ("governmental") variant of belarusian as codified in 1959) => [
+      q(0004),
+      q(0),
+      ],
+   q(ala-lc romanization, 1997 edition) => [
+      q(0008),
+      q(0),
+      ],
+   q(aluku dialect) => [
+      q(0009),
+      q(0),
+      ],
+   q(aukan dialect) => [
+      q(0042),
+      q(1),
+      ],
+   q(belarusian in taraskievica orthography) => [
+      q(0064),
+      q(0),
+      ],
+   q(biscayan dialect of basque) => [
+      q(0017),
+      q(0),
+      ],
+   q(boni dialect) => [
+      q(0009),
+      q(1),
+      ],
+   q(boontling) => [
+      q(0020),
+      q(0),
+      ],
+   q(buddhist hybrid sanskrit) => [
+      q(0016),
+      q(0),
+      ],
+   q(classic volapuk) => [
+      q(0054),
+      q(3),
+      ],
+   q(classical sanskrit) => [
+      q(0037),
+      q(0),
+      ],
+   q(common cornish orthography of revived cornish) => [
+      q(0034),
+      q(0),
+      ],
+   q(de jong's volapuk) => [
+      q(0046),
+      q(3),
+      ],
+   q(early modern english (1500-1700)) => [
+      q(0024),
+      q(0),
+      ],
+   q(early modern french) => [
+      q(0002),
+      q(0),
+      ],
+   q(eastern armenian) => [
+      q(0011),
+      q(0),
+      ],
+   q(epic sanskrit) => [
+      q(0031),
+      q(0),
+      ],
+   q(german orthography of 1996) => [
+      q(0006),
+      q(0),
+      ],
+   q(hepburn romanization) => [
+      q(0028),
+      q(0),
+      ],
+   q(international phonetic alphabet) => [
+      q(0025),
+      q(0),
+      ],
+   q(jauer dialect of romansh) => [
+      q(0032),
+      q(0),
+      ],
+   q(jyutping cantonese romanization) => [
+      q(0033),
+      q(0),
+      ],
+   q(kernowek standard) => [
+      q(0036),
+      q(1),
+      ],
+   q(late middle french (to 1606)) => [
+      q(0001),
+      q(0),
+      ],
+   q(modern volapuk) => [
+      q(0046),
+      q(6),
+      ],
+   q(monotonic greek) => [
+      q(0041),
+      q(0),
+      ],
+   q(nadiza dialect) => [
+      q(0043),
+      q(1),
+      ],
+   q(natisone dialect) => [
+      q(0043),
+      q(0),
+      ],
+   q(ndyuka dialect) => [
+      q(0042),
+      q(0),
+      ],
+   q(new volapuk) => [
+      q(0046),
+      q(4),
+      ],
+   q(newfoundland english) => [
+      q(0044),
+      q(0),
+      ],
+   q(norwegian in hognorsk (high norwegian) orthography) => [
+      q(0029),
+      q(0),
+      ],
+   q(original volapuk) => [
+      q(0054),
+      q(2),
+      ],
+   q(orthographic formulation of 1943 - official in brazil (formulario ortografico de 1943 - oficial no brasil)) => [
+      q(0007),
+      q(0),
+      ],
+   q(oxford english dictionary spelling) => [
+      q(0048),
+      q(0),
+      ],
+   q(pamaka dialect) => [
+      q(0049),
+      q(0),
+      ],
+   q(petrine orthography) => [
+      q(0050),
+      q(0),
+      ],
+   q(pinyin romanization) => [
+      q(0051),
+      q(0),
+      ],
+   q(polytonic greek) => [
+      q(0052),
+      q(0),
+      ],
+   q(portuguese language orthographic agreement of 1990 (acordo ortografico da lingua portuguesa de 1990)) => [
+      q(0010),
+      q(0),
+      ],
+   q(portuguese-brazilian orthographic convention of 1945 (convencao ortografica luso-brasileira de 1945)) => [
+      q(0021),
+      q(0),
+      ],
+   q(post-1917 russian orthography) => [
+      q(0039),
+      q(0),
+      ],
+   q(puter idiom of romansh) => [
+      q(0053),
+      q(0),
+      ],
+   q(resian) => [
+      q(0055),
+      q(0),
+      ],
+   q(resianic) => [
+      q(0055),
+      q(1),
+      ],
+   q(revised volapuk) => [
+      q(0046),
+      q(5),
+      ],
+   q(rezijan) => [
+      q(0055),
+      q(2),
+      ],
+   q(rumantsch grischun) => [
+      q(0056),
+      q(0),
+      ],
+   q(schleyer's volapuk) => [
+      q(0054),
+      q(1),
+      ],
+   q(scottish standard english) => [
+      q(0057),
+      q(0),
+      ],
+   q(scouse) => [
+      q(0058),
+      q(0),
+      ],
+   q(serbian with ekavian pronunciation) => [
+      q(0023),
+      q(0),
+      ],
+   q(serbian with ijekavian pronunciation) => [
+      q(0030),
+      q(0),
+      ],
+   q(slovene in bohoric alphabet) => [
+      q(0019),
+      q(0),
+      ],
+   q(slovene in dajnko alphabet) => [
+      q(0022),
+      q(0),
+      ],
+   q(slovene in metelko alphabet) => [
+      q(0040),
+      q(0),
+      ],
+   q(standard cornish orthography of revived cornish) => [
+      q(0036),
+      q(0),
+      ],
+   q(standardized resian orthography) => [
+      q(0005),
+      q(0),
+      ],
+   q(surmiran idiom of romansh) => [
+      q(0061),
+      q(0),
+      ],
+   q(sursilvan idiom of romansh) => [
+      q(0062),
+      q(0),
+      ],
+   q(sutsilvan idiom of romansh) => [
+      q(0063),
+      q(0),
+      ],
+   q(the balanka dialect of anii) => [
+      q(0014),
+      q(0),
+      ],
+   q(the barlavento dialect group of kabuverdianu) => [
+      q(0015),
+      q(0),
+      ],
+   q(the bila dialect of resian) => [
+      q(0018),
+      q(1),
+      ],
+   q(the gniva dialect of resian) => [
+      q(0045),
+      q(0),
+      ],
+   q(the kociewie dialect of polish) => [
+      q(0035),
+      q(0),
+      ],
+   q(the lipovaz dialect of resian) => [
+      q(0038),
+      q(0),
+      ],
+   q(the lipovec dialect of resian) => [
+      q(0038),
+      q(1),
+      ],
+   q(the njiva dialect of resian) => [
+      q(0045),
+      q(1),
+      ],
+   q(the oseacco dialect of resian) => [
+      q(0047),
+      q(0),
+      ],
+   q(the osojane dialect of resian) => [
+      q(0047),
+      q(1),
+      ],
+   q(the san giorgio dialect of resian) => [
+      q(0018),
+      q(0),
+      ],
+   q(the solbica dialect of resian) => [
+      q(0059),
+      q(1),
+      ],
+   q(the sotavento dialect group of kabuverdianu) => [
+      q(0060),
+      q(0),
+      ],
+   q(the stolvizza dialect of resian) => [
+      q(0059),
+      q(0),
+      ],
+   q(traditional german orthography) => [
+      q(0003),
+      q(0),
+      ],
+   q(ulster dialect of scots) => [
+      q(0067),
+      q(0),
+      ],
+   q(unified cornish orthography of revived cornish) => [
+      q(0065),
+      q(0),
+      ],
+   q(unified cornish revised orthography of revived cornish) => [
+      q(0066),
+      q(0),
+      ],
+   q(unified turkic latin alphabet (historical)) => [
+      q(0013),
+      q(0),
+      ],
+   q(unifon phonetic alphabet) => [
+      q(0068),
+      q(0),
+      ],
+   q(uralic phonetic alphabet) => [
+      q(0026),
+      q(0),
+      ],
+   q(valencian) => [
+      q(0070),
+      q(0),
+      ],
+   q(vallader idiom of romansh) => [
+      q(0071),
+      q(0),
+      ],
+   q(vedic sanskrit) => [
+      q(0069),
+      q(0),
+      ],
+   q(volapuk nuladik) => [
+      q(0046),
+      q(2),
+      ],
+   q(volapuk nulik) => [
+      q(0046),
+      q(0),
+      ],
+   q(volapuk perevidol) => [
+      q(0046),
+      q(1),
+      ],
+   q(volapuk rigik) => [
+      q(0054),
+      q(0),
+      ],
+   q(wade-giles romanization) => [
+      q(0072),
+      q(0),
+      ],
+   q(western armenian) => [
+      q(0012),
+      q(0),
+      ],
+   q(x-sampa transcription) => [
+      q(0027),
+      q(0),
+      ],
+};
+
+$Locale::Codes::Data{'langvar'}{'code2id'} = {
+   q(alpha) => {
+      q(1606nict) => [
+         q(0001),
+         q(0),
+         ],
+      q(1694acad) => [
+         q(0002),
+         q(0),
+         ],
+      q(1901) => [
+         q(0003),
+         q(0),
+         ],
+      q(1959acad) => [
+         q(0004),
+         q(0),
+         ],
+      q(1994) => [
+         q(0005),
+         q(0),
+         ],
+      q(1996) => [
+         q(0006),
+         q(0),
+         ],
+      q(abl1943) => [
+         q(0007),
+         q(0),
+         ],
+      q(alalc97) => [
+         q(0008),
+         q(0),
+         ],
+      q(aluku) => [
+         q(0009),
+         q(0),
+         ],
+      q(ao1990) => [
+         q(0010),
+         q(0),
+         ],
+      q(arevela) => [
+         q(0011),
+         q(0),
+         ],
+      q(arevmda) => [
+         q(0012),
+         q(0),
+         ],
+      q(baku1926) => [
+         q(0013),
+         q(0),
+         ],
+      q(balanka) => [
+         q(0014),
+         q(0),
+         ],
+      q(barla) => [
+         q(0015),
+         q(0),
+         ],
+      q(bauddha) => [
+         q(0016),
+         q(0),
+         ],
+      q(biscayan) => [
+         q(0017),
+         q(0),
+         ],
+      q(biske) => [
+         q(0018),
+         q(0),
+         ],
+      q(bohoric) => [
+         q(0019),
+         q(0),
+         ],
+      q(boont) => [
+         q(0020),
+         q(0),
+         ],
+      q(colb1945) => [
+         q(0021),
+         q(0),
+         ],
+      q(dajnko) => [
+         q(0022),
+         q(0),
+         ],
+      q(ekavsk) => [
+         q(0023),
+         q(0),
+         ],
+      q(emodeng) => [
+         q(0024),
+         q(0),
+         ],
+      q(fonipa) => [
+         q(0025),
+         q(0),
+         ],
+      q(fonupa) => [
+         q(0026),
+         q(0),
+         ],
+      q(fonxsamp) => [
+         q(0027),
+         q(0),
+         ],
+      q(hepburn) => [
+         q(0028),
+         q(0),
+         ],
+      q(hognorsk) => [
+         q(0029),
+         q(0),
+         ],
+      q(ijekavsk) => [
+         q(0030),
+         q(0),
+         ],
+      q(itihasa) => [
+         q(0031),
+         q(0),
+         ],
+      q(jauer) => [
+         q(0032),
+         q(0),
+         ],
+      q(jyutping) => [
+         q(0033),
+         q(0),
+         ],
+      q(kkcor) => [
+         q(0034),
+         q(0),
+         ],
+      q(kociewie) => [
+         q(0035),
+         q(0),
+         ],
+      q(kscor) => [
+         q(0036),
+         q(0),
+         ],
+      q(laukika) => [
+         q(0037),
+         q(0),
+         ],
+      q(lipaw) => [
+         q(0038),
+         q(0),
+         ],
+      q(luna1918) => [
+         q(0039),
+         q(0),
+         ],
+      q(metelko) => [
+         q(0040),
+         q(0),
+         ],
+      q(monoton) => [
+         q(0041),
+         q(0),
+         ],
+      q(ndyuka) => [
+         q(0042),
+         q(0),
+         ],
+      q(nedis) => [
+         q(0043),
+         q(0),
+         ],
+      q(newfound) => [
+         q(0044),
+         q(0),
+         ],
+      q(njiva) => [
+         q(0045),
+         q(0),
+         ],
+      q(nulik) => [
+         q(0046),
+         q(0),
+         ],
+      q(osojs) => [
+         q(0047),
+         q(0),
+         ],
+      q(oxendict) => [
+         q(0048),
+         q(0),
+         ],
+      q(pamaka) => [
+         q(0049),
+         q(0),
+         ],
+      q(petr1708) => [
+         q(0050),
+         q(0),
+         ],
+      q(pinyin) => [
+         q(0051),
+         q(0),
+         ],
+      q(polyton) => [
+         q(0052),
+         q(0),
+         ],
+      q(puter) => [
+         q(0053),
+         q(0),
+         ],
+      q(rigik) => [
+         q(0054),
+         q(0),
+         ],
+      q(rozaj) => [
+         q(0055),
+         q(0),
+         ],
+      q(rumgr) => [
+         q(0056),
+         q(0),
+         ],
+      q(scotland) => [
+         q(0057),
+         q(0),
+         ],
+      q(scouse) => [
+         q(0058),
+         q(0),
+         ],
+      q(solba) => [
+         q(0059),
+         q(0),
+         ],
+      q(sotav) => [
+         q(0060),
+         q(0),
+         ],
+      q(surmiran) => [
+         q(0061),
+         q(0),
+         ],
+      q(sursilv) => [
+         q(0062),
+         q(0),
+         ],
+      q(sutsilv) => [
+         q(0063),
+         q(0),
+         ],
+      q(tarask) => [
+         q(0064),
+         q(0),
+         ],
+      q(uccor) => [
+         q(0065),
+         q(0),
+         ],
+      q(ucrcor) => [
+         q(0066),
+         q(0),
+         ],
+      q(ulster) => [
+         q(0067),
+         q(0),
+         ],
+      q(unifon) => [
+         q(0068),
+         q(0),
+         ],
+      q(vaidika) => [
+         q(0069),
+         q(0),
+         ],
+      q(valencia) => [
+         q(0070),
+         q(0),
+         ],
+      q(vallader) => [
+         q(0071),
+         q(0),
+         ],
+      q(wadegile) => [
+         q(0072),
+         q(0),
+         ],
+      },
+};
+
+$Locale::Codes::Data{'langvar'}{'id2code'} = {
+   q(alpha) => {
+      q(0001) => q(1606nict),
+      q(0002) => q(1694acad),
+      q(0003) => q(1901),
+      q(0004) => q(1959acad),
+      q(0005) => q(1994),
+      q(0006) => q(1996),
+      q(0007) => q(abl1943),
+      q(0008) => q(alalc97),
+      q(0009) => q(aluku),
+      q(0010) => q(ao1990),
+      q(0011) => q(arevela),
+      q(0012) => q(arevmda),
+      q(0013) => q(baku1926),
+      q(0014) => q(balanka),
+      q(0015) => q(barla),
+      q(0016) => q(bauddha),
+      q(0017) => q(biscayan),
+      q(0018) => q(biske),
+      q(0019) => q(bohoric),
+      q(0020) => q(boont),
+      q(0021) => q(colb1945),
+      q(0022) => q(dajnko),
+      q(0023) => q(ekavsk),
+      q(0024) => q(emodeng),
+      q(0025) => q(fonipa),
+      q(0026) => q(fonupa),
+      q(0027) => q(fonxsamp),
+      q(0028) => q(hepburn),
+      q(0029) => q(hognorsk),
+      q(0030) => q(ijekavsk),
+      q(0031) => q(itihasa),
+      q(0032) => q(jauer),
+      q(0033) => q(jyutping),
+      q(0034) => q(kkcor),
+      q(0035) => q(kociewie),
+      q(0036) => q(kscor),
+      q(0037) => q(laukika),
+      q(0038) => q(lipaw),
+      q(0039) => q(luna1918),
+      q(0040) => q(metelko),
+      q(0041) => q(monoton),
+      q(0042) => q(ndyuka),
+      q(0043) => q(nedis),
+      q(0044) => q(newfound),
+      q(0045) => q(njiva),
+      q(0046) => q(nulik),
+      q(0047) => q(osojs),
+      q(0048) => q(oxendict),
+      q(0049) => q(pamaka),
+      q(0050) => q(petr1708),
+      q(0051) => q(pinyin),
+      q(0052) => q(polyton),
+      q(0053) => q(puter),
+      q(0054) => q(rigik),
+      q(0055) => q(rozaj),
+      q(0056) => q(rumgr),
+      q(0057) => q(scotland),
+      q(0058) => q(scouse),
+      q(0059) => q(solba),
+      q(0060) => q(sotav),
+      q(0061) => q(surmiran),
+      q(0062) => q(sursilv),
+      q(0063) => q(sutsilv),
+      q(0064) => q(tarask),
+      q(0065) => q(uccor),
+      q(0066) => q(ucrcor),
+      q(0067) => q(ulster),
+      q(0068) => q(unifon),
+      q(0069) => q(vaidika),
+      q(0070) => q(valencia),
+      q(0071) => q(vallader),
+      q(0072) => q(wadegile),
+      },
+};
+
+1;
diff --git a/lib/5.24.1/Locale/Codes/LangVar_Retired.pm b/lib/5.24.1/Locale/Codes/LangVar_Retired.pm
new file mode 100644
index 00000000..3ebef842
--- /dev/null
+++ b/lib/5.24.1/Locale/Codes/LangVar_Retired.pm
@@ -0,0 +1,26 @@
+package #
+Locale::Codes::LangVar_Retired;
+
+# This file was automatically generated.  Any changes to this file will
+# be lost the next time 'deprecate_codes' is run.
+#    Generated on: Tue Dec  1 14:45:28 EST 2015
+
+use strict;
+require 5.006;
+use warnings;
+use utf8;
+
+our($VERSION);
+$VERSION='3.37';
+
+$Locale::Codes::Retired{'langvar'}{'alpha'}{'code'} = {
+};
+
+$Locale::Codes::Retired{'langvar'}{'alpha'}{'name'} = {
+   q("academic" ("governmental") variant of belarusian as) => [ q(1959acad), q("Academic" ("governmental") variant of Belarusian as) ],
+   q(portugese language orthographic agreement of 1990 (acordo ortografico da lingua portuguesa de 1990)) => [ q(ao1990), q(Portugese Language Orthographic Agreement of 1990 (Acordo Ortografico da Lingua Portuguesa de 1990)) ],
+   q(slovene in bohoric alphabet) => [ q(bohoric), q(Slovene in Bohoric alphabet) ],
+};
+
+
+1;
diff --git a/lib/5.24.1/Locale/Codes/Language.pm b/lib/5.24.1/Locale/Codes/Language.pm
new file mode 100644
index 00000000..4109d6c2
--- /dev/null
+++ b/lib/5.24.1/Locale/Codes/Language.pm
@@ -0,0 +1,99 @@
+package Locale::Codes::Language;
+# Copyright (C) 2001      Canon Research Centre Europe (CRE).
+# Copyright (C) 2002-2009 Neil Bowers
+# Copyright (c) 2010-2015 Sullivan Beck
+# This program is free software; you can redistribute it and/or modify it
+# under the same terms as Perl itself.
+
+use strict;
+require 5.006;
+use warnings;
+
+require Exporter;
+use Carp;
+use Locale::Codes;
+use Locale::Codes::Constants;
+use Locale::Codes::Language_Codes;
+use Locale::Codes::Language_Retired;
+
+#=======================================================================
+#       Public Global Variables
+#=======================================================================
+
+our($VERSION,@ISA,@EXPORT,@EXPORT_OK);
+
+$VERSION='3.37';
+@ISA       = qw(Exporter);
+@EXPORT    = qw(code2language
+                language2code
+                all_language_codes
+                all_language_names
+                language_code2code
+                LOCALE_LANG_ALPHA_2
+                LOCALE_LANG_ALPHA_3
+                LOCALE_LANG_TERM
+               );
+
+sub code2language {
+   return Locale::Codes::_code2name('language',@_);
+}
+
+sub language2code {
+   return Locale::Codes::_name2code('language',@_);
+}
+
+sub language_code2code {
+   return Locale::Codes::_code2code('language',@_);
+}
+
+sub all_language_codes {
+   return Locale::Codes::_all_codes('language',@_);
+}
+
+sub all_language_names {
+   return Locale::Codes::_all_names('language',@_);
+}
+
+sub rename_language {
+   return Locale::Codes::_rename('language',@_);
+}
+
+sub add_language {
+   return Locale::Codes::_add_code('language',@_);
+}
+
+sub delete_language {
+   return Locale::Codes::_delete_code('language',@_);
+}
+
+sub add_language_alias {
+   return Locale::Codes::_add_alias('language',@_);
+}
+
+sub delete_language_alias {
+   return Locale::Codes::_delete_alias('language',@_);
+}
+
+sub rename_language_code {
+   return Locale::Codes::_rename_code('language',@_);
+}
+
+sub add_language_code_alias {
+   return Locale::Codes::_add_code_alias('language',@_);
+}
+
+sub delete_language_code_alias {
+   return Locale::Codes::_delete_code_alias('language',@_);
+}
+
+1;
+# Local Variables:
+# mode: cperl
+# indent-tabs-mode: nil
+# cperl-indent-level: 3
+# cperl-continued-statement-offset: 2
+# cperl-continued-brace-offset: 0
+# cperl-brace-offset: 0
+# cperl-brace-imaginary-offset: 0
+# cperl-label-offset: -2
+# End:
diff --git a/lib/5.24.1/Locale/Codes/Language.pod b/lib/5.24.1/Locale/Codes/Language.pod
new file mode 100644
index 00000000..123d2a8e
--- /dev/null
+++ b/lib/5.24.1/Locale/Codes/Language.pod
@@ -0,0 +1,137 @@
+=pod
+
+=head1 NAME
+
+Locale::Codes::Language - standard codes for language identification
+
+=head1 SYNOPSIS
+
+   use Locale::Codes::Language;
+
+   $lang = code2language('en');        # $lang gets 'English'
+   $code = language2code('French');    # $code gets 'fr'
+
+   @codes   = all_language_codes();
+   @names   = all_language_names();
+
+=head1 DESCRIPTION
+
+This module provides access to standard codes used
+for identifying languages, such as those as defined in ISO 639.
+
+Most of the routines take an optional additional argument which
+specifies the code set to use. If not specified, the default ISO
+639 two-letter codes will be used.
+
+=head1 SUPPORTED CODE SETS
+
+There are several different code sets you can use for identifying
+languages. A code set may be specified using either a name, or a
+constant that is automatically exported by this module.
+
+For example, the two are equivalent:
+
+   $lang = code2language('en','alpha-2');
+   $lang = code2language('en',LOCALE_LANG_ALPHA_2);
+
+The codesets currently supported are:
+
+=over 4
+
+=item B<alpha-2, LOCALE_LANG_ALPHA_2>
+
+This is the set of two-letter (lowercase) codes from ISO 639-1, such
+as 'he' for Hebrew.  It also includes additions to this set included
+in the IANA language registry.
+
+This is the default code set.
+
+=item B<alpha-3, LOCALE_LANG_ALPHA_3>
+
+This is the set of three-letter (lowercase) bibliographic codes from
+ISO 639-2 and 639-5, such as 'heb' for Hebrew.  It also includes
+additions to this set included in the IANA language registry.
+
+=item B<term, LOCALE_LANG_TERM>
+
+This is the set of three-letter (lowercase) terminologic codes from
+ISO 639.
+
+=back
+
+=head1 ROUTINES
+
+=over 4
+
+=item B<code2language(CODE [,CODESET] [,'retired'])>
+
+=item B<language2code(NAME [,CODESET] [,'retired'])>
+
+=item B<language_code2code(CODE ,CODESET ,CODESET2)>
+
+=item B<all_language_codes([CODESET] [,'retired'])>
+
+=item B<all_language_names([CODESET] [,'retired'])>
+
+=item B<Locale::Codes::Language::rename_language(CODE ,NEW_NAME [,CODESET])>
+
+=item B<Locale::Codes::Language::add_language(CODE ,NAME [,CODESET])>
+
+=item B<Locale::Codes::Language::delete_language(CODE [,CODESET])>
+
+=item B<Locale::Codes::Language::add_language_alias(NAME ,NEW_NAME)>
+
+=item B<Locale::Codes::Language::delete_language_alias(NAME)>
+
+=item B<Locale::Codes::Language::rename_language_code(CODE ,NEW_CODE [,CODESET])>
+
+=item B<Locale::Codes::Language::add_language_code_alias(CODE ,NEW_CODE [,CODESET])>
+
+=item B<Locale::Codes::Language::delete_language_code_alias(CODE [,CODESET])>
+
+These routines are all documented in the L<Locale::Codes::API> man page.
+
+=back
+
+=head1 SEE ALSO
+
+=over 4
+
+=item L<Locale::Codes>
+
+The Locale-Codes distribution.
+
+=item L<Locale::Codes::API>
+
+The list of functions supported by this module.
+
+=item L<http://www.loc.gov/standards/iso639-2/>
+
+Source of the ISO 639-2 codes.
+
+=item L<http://www.loc.gov/standards/iso639-5/>
+
+Source of the ISO 639-5 codes.
+
+=item L<http://www.iana.org/assignments/language-subtag-registry>
+
+The IANA language subtag registry.
+
+=back
+
+=head1 AUTHOR
+
+See Locale::Codes for full author history.
+
+Currently maintained by Sullivan Beck (sbeck@cpan.org).
+
+=head1 COPYRIGHT
+
+   Copyright (c) 1997-2001 Canon Research Centre Europe (CRE).
+   Copyright (c) 2001-2010 Neil Bowers
+   Copyright (c) 2010-2015 Sullivan Beck
+
+This module is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+=cut
diff --git a/lib/5.24.1/Locale/Codes/Language_Codes.pm b/lib/5.24.1/Locale/Codes/Language_Codes.pm
new file mode 100644
index 00000000..51abf1bc
--- /dev/null
+++ b/lib/5.24.1/Locale/Codes/Language_Codes.pm
@@ -0,0 +1,100821 @@
+package #
+Locale::Codes::Language_Codes;
+
+# This file was automatically generated.  Any changes to this file will
+# be lost the next time 'harvest_data' is run.
+#    Generated on: Tue Dec  1 14:41:14 EST 2015
+
+use strict;
+require 5.006;
+use warnings;
+use utf8;
+
+our($VERSION);
+$VERSION='3.37';
+
+$Locale::Codes::Data{'language'}{'id'} = '7976';
+
+$Locale::Codes::Data{'language'}{'id2names'} = {
+   q(0001) => [
+      q(Afar),
+      ],
+   q(0002) => [
+      q(Abkhazian),
+      ],
+   q(0003) => [
+      q(Achinese),
+      ],
+   q(0004) => [
+      q(Acoli),
+      ],
+   q(0005) => [
+      q(Adangme),
+      ],
+   q(0006) => [
+      q(Adyghe),
+      q(Adygei),
+      ],
+   q(0007) => [
+      q(Afro-Asiatic languages),
+      ],
+   q(0008) => [
+      q(Afrihili),
+      ],
+   q(0009) => [
+      q(Afrikaans),
+      ],
+   q(0010) => [
+      q(Ainu),
+      q(Ainu (Japan)),
+      ],
+   q(0011) => [
+      q(Akan),
+      ],
+   q(0012) => [
+      q(Akkadian),
+      ],
+   q(0013) => [
+      q(Albanian),
+      ],
+   q(0014) => [
+      q(Aleut),
+      ],
+   q(0015) => [
+      q(Algonquian languages),
+      ],
+   q(0016) => [
+      q(Southern Altai),
+      ],
+   q(0017) => [
+      q(Amharic),
+      ],
+   q(0018) => [
+      q(English, Old (ca.450-1100)),
+      q(Old English (ca. 450-1100)),
+      ],
+   q(0019) => [
+      q(Angika),
+      ],
+   q(0020) => [
+      q(Apache languages),
+      ],
+   q(0021) => [
+      q(Arabic),
+      ],
+   q(0022) => [
+      q(Official Aramaic (700-300 BCE)),
+      q(Imperial Aramaic (700-300 BCE)),
+      ],
+   q(0023) => [
+      q(Aragonese),
+      ],
+   q(0024) => [
+      q(Armenian),
+      ],
+   q(0025) => [
+      q(Mapudungun),
+      q(Mapuche),
+      ],
+   q(0026) => [
+      q(Arapaho),
+      ],
+   q(0027) => [
+      q(Artificial languages),
+      ],
+   q(0028) => [
+      q(Arawak),
+      ],
+   q(0029) => [
+      q(Assamese),
+      ],
+   q(0030) => [
+      q(Asturian),
+      q(Bable),
+      q(Leonese),
+      q(Asturleonese),
+      ],
+   q(0031) => [
+      q(Athapascan languages),
+      ],
+   q(0032) => [
+      q(Australian languages),
+      ],
+   q(0033) => [
+      q(Avaric),
+      ],
+   q(0034) => [
+      q(Avestan),
+      ],
+   q(0035) => [
+      q(Awadhi),
+      ],
+   q(0036) => [
+      q(Aymara),
+      ],
+   q(0037) => [
+      q(Azerbaijani),
+      ],
+   q(0038) => [
+      q(Banda languages),
+      ],
+   q(0039) => [
+      q(Bamileke languages),
+      ],
+   q(0040) => [
+      q(Bashkir),
+      ],
+   q(0041) => [
+      q(Baluchi),
+      ],
+   q(0042) => [
+      q(Bambara),
+      ],
+   q(0043) => [
+      q(Balinese),
+      ],
+   q(0044) => [
+      q(Basque),
+      ],
+   q(0045) => [
+      q(Basa),
+      q(Basa (Cameroon)),
+      ],
+   q(0046) => [
+      q(Baltic languages),
+      ],
+   q(0047) => [
+      q(Beja),
+      q(Bedawiyet),
+      ],
+   q(0048) => [
+      q(Belarusian),
+      ],
+   q(0049) => [
+      q(Bemba),
+      q(Bemba (Zambia)),
+      ],
+   q(0050) => [
+      q(Bengali),
+      ],
+   q(0051) => [
+      q(Berber languages),
+      ],
+   q(0052) => [
+      q(Bhojpuri),
+      ],
+   q(0053) => [
+      q(Bihari languages),
+      ],
+   q(0054) => [
+      q(Bikol),
+      ],
+   q(0055) => [
+      q(Bini),
+      q(Edo),
+      ],
+   q(0056) => [
+      q(Bislama),
+      ],
+   q(0057) => [
+      q(Siksika),
+      ],
+   q(0058) => [
+      q(Bantu (Other)),
+      q(Bantu languages),
+      ],
+   q(0059) => [
+      q(Bosnian),
+      ],
+   q(0060) => [
+      q(Braj),
+      ],
+   q(0061) => [
+      q(Breton),
+      ],
+   q(0062) => [
+      q(Batak languages),
+      ],
+   q(0063) => [
+      q(Buriat),
+      ],
+   q(0064) => [
+      q(Buginese),
+      ],
+   q(0065) => [
+      q(Bulgarian),
+      ],
+   q(0066) => [
+      q(Burmese),
+      ],
+   q(0067) => [
+      q(Blin),
+      q(Bilin),
+      ],
+   q(0068) => [
+      q(Caddo),
+      ],
+   q(0069) => [
+      q(Central American Indian languages),
+      ],
+   q(0070) => [
+      q(Galibi Carib),
+      ],
+   q(0071) => [
+      q(Catalan),
+      q(Valencian),
+      ],
+   q(0072) => [
+      q(Caucasian languages),
+      ],
+   q(0073) => [
+      q(Cebuano),
+      ],
+   q(0074) => [
+      q(Celtic languages),
+      ],
+   q(0075) => [
+      q(Chamorro),
+      ],
+   q(0076) => [
+      q(Chibcha),
+      ],
+   q(0077) => [
+      q(Chechen),
+      ],
+   q(0078) => [
+      q(Chagatai),
+      ],
+   q(0079) => [
+      q(Chinese),
+      ],
+   q(0080) => [
+      q(Chuukese),
+      ],
+   q(0081) => [
+      q(Mari),
+      q(Mari (Russia)),
+      ],
+   q(0082) => [
+      q(Chinook jargon),
+      ],
+   q(0083) => [
+      q(Choctaw),
+      ],
+   q(0084) => [
+      q(Chipewyan),
+      q(Dene Suline),
+      ],
+   q(0085) => [
+      q(Cherokee),
+      ],
+   q(0086) => [
+      q(Church Slavic),
+      q(Old Slavonic),
+      q(Church Slavonic),
+      q(Old Bulgarian),
+      q(Old Church Slavonic),
+      ],
+   q(0087) => [
+      q(Chuvash),
+      ],
+   q(0088) => [
+      q(Cheyenne),
+      ],
+   q(0089) => [
+      q(Chamic languages),
+      ],
+   q(0090) => [
+      q(Coptic),
+      ],
+   q(0091) => [
+      q(Cornish),
+      ],
+   q(0092) => [
+      q(Corsican),
+      ],
+   q(0093) => [
+      q(Creoles and pidgins, English based),
+      q(Creoles and pidgins, English-based),
+      q(English-based creoles and pidgins),
+      ],
+   q(0094) => [
+      q(Creoles and pidgins, French-based ),
+      q(Creoles and pidgins, French-based),
+      q(French-based creoles and pidgins),
+      ],
+   q(0095) => [
+      q(Creoles and pidgins, Portuguese-based ),
+      q(Creoles and pidgins, Portuguese-based),
+      q(Portuguese-based creoles and pidgins),
+      ],
+   q(0096) => [
+      q(Cree),
+      ],
+   q(0097) => [
+      q(Crimean Tatar),
+      q(Crimean Turkish),
+      ],
+   q(0098) => [
+      q(Creoles and pidgins ),
+      q(Creoles and pidgins),
+      ],
+   q(0099) => [
+      q(Kashubian),
+      ],
+   q(0100) => [
+      q(Cushitic languages),
+      ],
+   q(0101) => [
+      q(Czech),
+      ],
+   q(0102) => [
+      q(Dakota),
+      ],
+   q(0103) => [
+      q(Danish),
+      ],
+   q(0104) => [
+      q(Dargwa),
+      ],
+   q(0105) => [
+      q(Land Dayak languages),
+      ],
+   q(0106) => [
+      q(Delaware),
+      ],
+   q(0107) => [
+      q(Slave (Athapascan)),
+      ],
+   q(0108) => [
+      q(Dogrib),
+      ],
+   q(0109) => [
+      q(Dinka),
+      ],
+   q(0110) => [
+      q(Divehi),
+      q(Dhivehi),
+      q(Maldivian),
+      ],
+   q(0111) => [
+      q(Dogri),
+      q(Dogri (macrolanguage)),
+      ],
+   q(0112) => [
+      q(Dravidian languages),
+      ],
+   q(0113) => [
+      q(Lower Sorbian),
+      ],
+   q(0114) => [
+      q(Duala),
+      ],
+   q(0115) => [
+      q(Dutch, Middle (ca.1050-1350)),
+      q(Middle Dutch (ca. 1050-1350)),
+      ],
+   q(0116) => [
+      q(Dutch),
+      q(Flemish),
+      ],
+   q(0117) => [
+      q(Dyula),
+      ],
+   q(0118) => [
+      q(Dzongkha),
+      ],
+   q(0119) => [
+      q(Efik),
+      ],
+   q(0120) => [
+      q(Egyptian (Ancient)),
+      ],
+   q(0121) => [
+      q(Ekajuk),
+      ],
+   q(0122) => [
+      q(Elamite),
+      ],
+   q(0123) => [
+      q(English),
+      ],
+   q(0124) => [
+      q(English, Middle (1100-1500)),
+      q(Middle English (1100-1500)),
+      ],
+   q(0125) => [
+      q(Esperanto),
+      ],
+   q(0126) => [
+      q(Estonian),
+      ],
+   q(0127) => [
+      q(Ewe),
+      ],
+   q(0128) => [
+      q(Ewondo),
+      ],
+   q(0129) => [
+      q(Fang),
+      q(Fang (Equatorial Guinea)),
+      ],
+   q(0130) => [
+      q(Faroese),
+      ],
+   q(0131) => [
+      q(Fanti),
+      ],
+   q(0132) => [
+      q(Fijian),
+      ],
+   q(0133) => [
+      q(Filipino),
+      q(Pilipino),
+      ],
+   q(0134) => [
+      q(Finnish),
+      ],
+   q(0135) => [
+      q(Finno-Ugrian languages),
+      ],
+   q(0136) => [
+      q(Fon),
+      ],
+   q(0137) => [
+      q(French),
+      ],
+   q(0138) => [
+      q(French, Middle (ca.1400-1600)),
+      q(Middle French (ca. 1400-1600)),
+      ],
+   q(0139) => [
+      q(French, Old (842-ca.1400)),
+      q(Old French (842-ca. 1400)),
+      ],
+   q(0140) => [
+      q(Northern Frisian),
+      ],
+   q(0141) => [
+      q(Eastern Frisian),
+      ],
+   q(0142) => [
+      q(Western Frisian),
+      ],
+   q(0143) => [
+      q(Fulah),
+      ],
+   q(0144) => [
+      q(Friulian),
+      ],
+   q(0145) => [
+      q(Ga),
+      ],
+   q(0146) => [
+      q(Gayo),
+      ],
+   q(0147) => [
+      q(Gbaya),
+      q(Gbaya (Central African Republic)),
+      ],
+   q(0148) => [
+      q(Germanic languages),
+      ],
+   q(0149) => [
+      q(Georgian),
+      ],
+   q(0150) => [
+      q(German),
+      ],
+   q(0151) => [
+      q(Geez),
+      ],
+   q(0152) => [
+      q(Gilbertese),
+      ],
+   q(0153) => [
+      q(Gaelic),
+      q(Scottish Gaelic),
+      ],
+   q(0154) => [
+      q(Irish),
+      ],
+   q(0155) => [
+      q(Galician),
+      ],
+   q(0156) => [
+      q(Manx),
+      ],
+   q(0157) => [
+      q(German, Middle High (ca.1050-1500)),
+      q(Middle High German (ca. 1050-1500)),
+      ],
+   q(0158) => [
+      q(German, Old High (ca.750-1050)),
+      q(Old High German (ca. 750-1050)),
+      ],
+   q(0159) => [
+      q(Gondi),
+      ],
+   q(0160) => [
+      q(Gorontalo),
+      ],
+   q(0161) => [
+      q(Gothic),
+      ],
+   q(0162) => [
+      q(Grebo),
+      ],
+   q(0163) => [
+      q(Greek, Ancient (to 1453)),
+      q(Ancient Greek (to 1453)),
+      ],
+   q(0164) => [
+      q(Greek, Modern (1453-)),
+      q(Greek),
+      q(Modern Greek (1453-)),
+      ],
+   q(0165) => [
+      q(Guarani),
+      ],
+   q(0166) => [
+      q(Swiss German),
+      q(Alemannic),
+      q(Alsatian),
+      ],
+   q(0167) => [
+      q(Gujarati),
+      ],
+   q(0168) => [
+      q(Gwich'in),
+      ],
+   q(0169) => [
+      q(Haida),
+      ],
+   q(0170) => [
+      q(Haitian),
+      q(Haitian Creole),
+      ],
+   q(0171) => [
+      q(Hausa),
+      ],
+   q(0172) => [
+      q(Hawaiian),
+      ],
+   q(0173) => [
+      q(Hebrew),
+      ],
+   q(0174) => [
+      q(Herero),
+      ],
+   q(0175) => [
+      q(Hiligaynon),
+      ],
+   q(0176) => [
+      q(Himachali languages),
+      q(Western Pahari languages),
+      ],
+   q(0177) => [
+      q(Hindi),
+      ],
+   q(0178) => [
+      q(Hittite),
+      ],
+   q(0179) => [
+      q(Hmong),
+      q(Mong),
+      ],
+   q(0180) => [
+      q(Hiri Motu),
+      ],
+   q(0181) => [
+      q(Croatian),
+      ],
+   q(0182) => [
+      q(Upper Sorbian),
+      ],
+   q(0183) => [
+      q(Hungarian),
+      ],
+   q(0184) => [
+      q(Hupa),
+      ],
+   q(0185) => [
+      q(Iban),
+      ],
+   q(0186) => [
+      q(Igbo),
+      ],
+   q(0187) => [
+      q(Icelandic),
+      ],
+   q(0188) => [
+      q(Ido),
+      ],
+   q(0189) => [
+      q(Sichuan Yi),
+      q(Nuosu),
+      ],
+   q(0190) => [
+      q(Ijo languages),
+      ],
+   q(0191) => [
+      q(Inuktitut),
+      ],
+   q(0192) => [
+      q(Interlingue),
+      q(Occidental),
+      ],
+   q(0193) => [
+      q(Iloko),
+      ],
+   q(0194) => [
+      q(Interlingua (International Auxiliary Language Association)),
+      ],
+   q(0195) => [
+      q(Indic languages),
+      ],
+   q(0196) => [
+      q(Indonesian),
+      ],
+   q(0197) => [
+      q(Indo-European languages),
+      ],
+   q(0198) => [
+      q(Ingush),
+      ],
+   q(0199) => [
+      q(Inupiaq),
+      ],
+   q(0200) => [
+      q(Iranian languages),
+      ],
+   q(0201) => [
+      q(Iroquoian languages),
+      ],
+   q(0202) => [
+      q(Italian),
+      ],
+   q(0203) => [
+      q(Javanese),
+      ],
+   q(0204) => [
+      q(Lojban),
+      ],
+   q(0205) => [
+      q(Japanese),
+      ],
+   q(0206) => [
+      q(Judeo-Persian),
+      ],
+   q(0207) => [
+      q(Judeo-Arabic),
+      ],
+   q(0208) => [
+      q(Kara-Kalpak),
+      ],
+   q(0209) => [
+      q(Kabyle),
+      ],
+   q(0210) => [
+      q(Kachin),
+      q(Jingpho),
+      ],
+   q(0211) => [
+      q(Kalaallisut),
+      q(Greenlandic),
+      ],
+   q(0212) => [
+      q(Kamba),
+      q(Kamba (Kenya)),
+      ],
+   q(0213) => [
+      q(Kannada),
+      ],
+   q(0214) => [
+      q(Karen languages),
+      ],
+   q(0215) => [
+      q(Kashmiri),
+      ],
+   q(0216) => [
+      q(Kanuri),
+      ],
+   q(0217) => [
+      q(Kawi),
+      ],
+   q(0218) => [
+      q(Kazakh),
+      ],
+   q(0219) => [
+      q(Kabardian),
+      ],
+   q(0220) => [
+      q(Khasi),
+      ],
+   q(0221) => [
+      q(Khoisan languages),
+      ],
+   q(0222) => [
+      q(Central Khmer),
+      ],
+   q(0223) => [
+      q(Khotanese),
+      q(Sakan),
+      ],
+   q(0224) => [
+      q(Kikuyu),
+      q(Gikuyu),
+      ],
+   q(0225) => [
+      q(Kinyarwanda),
+      ],
+   q(0226) => [
+      q(Kirghiz),
+      q(Kyrgyz),
+      ],
+   q(0227) => [
+      q(Kimbundu),
+      ],
+   q(0228) => [
+      q(Konkani),
+      q(Konkani (macrolanguage)),
+      ],
+   q(0229) => [
+      q(Komi),
+      ],
+   q(0230) => [
+      q(Kongo),
+      ],
+   q(0231) => [
+      q(Korean),
+      ],
+   q(0232) => [
+      q(Kosraean),
+      ],
+   q(0233) => [
+      q(Kpelle),
+      ],
+   q(0234) => [
+      q(Karachay-Balkar),
+      ],
+   q(0235) => [
+      q(Karelian),
+      ],
+   q(0236) => [
+      q(Kru languages),
+      ],
+   q(0237) => [
+      q(Kurukh),
+      ],
+   q(0238) => [
+      q(Kuanyama),
+      q(Kwanyama),
+      ],
+   q(0239) => [
+      q(Kumyk),
+      ],
+   q(0240) => [
+      q(Kurdish),
+      ],
+   q(0241) => [
+      q(Kutenai),
+      ],
+   q(0242) => [
+      q(Ladino),
+      ],
+   q(0243) => [
+      q(Lahnda),
+      ],
+   q(0244) => [
+      q(Lamba),
+      ],
+   q(0245) => [
+      q(Lao),
+      ],
+   q(0246) => [
+      q(Latin),
+      ],
+   q(0247) => [
+      q(Latvian),
+      ],
+   q(0248) => [
+      q(Lezghian),
+      ],
+   q(0249) => [
+      q(Limburgan),
+      q(Limburger),
+      q(Limburgish),
+      ],
+   q(0250) => [
+      q(Lingala),
+      ],
+   q(0251) => [
+      q(Lithuanian),
+      ],
+   q(0252) => [
+      q(Mongo),
+      ],
+   q(0253) => [
+      q(Lozi),
+      ],
+   q(0254) => [
+      q(Luxembourgish),
+      q(Letzeburgesch),
+      ],
+   q(0255) => [
+      q(Luba-Lulua),
+      ],
+   q(0256) => [
+      q(Luba-Katanga),
+      ],
+   q(0257) => [
+      q(Ganda),
+      ],
+   q(0258) => [
+      q(Luiseno),
+      ],
+   q(0259) => [
+      q(Lunda),
+      ],
+   q(0260) => [
+      q(Luo (Kenya and Tanzania)),
+      q(Dholuo),
+      ],
+   q(0261) => [
+      q(Lushai),
+      ],
+   q(0262) => [
+      q(Macedonian),
+      ],
+   q(0263) => [
+      q(Madurese),
+      ],
+   q(0264) => [
+      q(Magahi),
+      ],
+   q(0265) => [
+      q(Marshallese),
+      ],
+   q(0266) => [
+      q(Maithili),
+      ],
+   q(0267) => [
+      q(Makasar),
+      ],
+   q(0268) => [
+      q(Malayalam),
+      ],
+   q(0269) => [
+      q(Mandingo),
+      q(Manding),
+      ],
+   q(0270) => [
+      q(Maori),
+      ],
+   q(0271) => [
+      q(Austronesian languages),
+      ],
+   q(0272) => [
+      q(Marathi),
+      ],
+   q(0273) => [
+      q(Masai),
+      ],
+   q(0274) => [
+      q(Malay),
+      q(Malay (macrolanguage)),
+      ],
+   q(0275) => [
+      q(Moksha),
+      ],
+   q(0276) => [
+      q(Mandar),
+      ],
+   q(0277) => [
+      q(Mende),
+      q(Mende (Sierra Leone)),
+      ],
+   q(0278) => [
+      q(Irish, Middle (900-1200)),
+      q(Middle Irish (900-1200)),
+      ],
+   q(0279) => [
+      q(Mi'kmaq),
+      q(Micmac),
+      ],
+   q(0280) => [
+      q(Minangkabau),
+      ],
+   q(0281) => [
+      q(Uncoded languages),
+      ],
+   q(0282) => [
+      q(Mon-Khmer languages),
+      ],
+   q(0283) => [
+      q(Malagasy),
+      ],
+   q(0284) => [
+      q(Maltese),
+      ],
+   q(0285) => [
+      q(Manchu),
+      ],
+   q(0286) => [
+      q(Manipuri),
+      ],
+   q(0287) => [
+      q(Manobo languages),
+      ],
+   q(0288) => [
+      q(Mohawk),
+      ],
+   q(0289) => [
+      q(Mongolian),
+      ],
+   q(0290) => [
+      q(Mossi),
+      ],
+   q(0291) => [
+      q(Multiple languages),
+      ],
+   q(0292) => [
+      q(Munda languages),
+      ],
+   q(0293) => [
+      q(Creek),
+      ],
+   q(0294) => [
+      q(Mirandese),
+      ],
+   q(0295) => [
+      q(Marwari),
+      ],
+   q(0296) => [
+      q(Mayan languages),
+      ],
+   q(0297) => [
+      q(Erzya),
+      ],
+   q(0298) => [
+      q(Nahuatl languages),
+      ],
+   q(0299) => [
+      q(North American Indian languages),
+      ],
+   q(0300) => [
+      q(Neapolitan),
+      ],
+   q(0301) => [
+      q(Nauru),
+      ],
+   q(0302) => [
+      q(Navajo),
+      q(Navaho),
+      ],
+   q(0303) => [
+      q(Ndebele, South),
+      q(South Ndebele),
+      ],
+   q(0304) => [
+      q(Ndebele, North),
+      q(North Ndebele),
+      ],
+   q(0305) => [
+      q(Ndonga),
+      ],
+   q(0306) => [
+      q(Low German),
+      q(Low Saxon),
+      q(German, Low),
+      q(Saxon, Low),
+      ],
+   q(0307) => [
+      q(Nepali),
+      q(Nepali (macrolanguage)),
+      ],
+   q(0308) => [
+      q(Nepal Bhasa),
+      q(Newari),
+      ],
+   q(0309) => [
+      q(Nias),
+      ],
+   q(0310) => [
+      q(Niger-Kordofanian languages),
+      ],
+   q(0311) => [
+      q(Niuean),
+      ],
+   q(0312) => [
+      q(Norwegian Nynorsk),
+      q(Nynorsk, Norwegian),
+      ],
+   q(0313) => [
+      q(Bokmal, Norwegian),
+      q(Norwegian Bokmal),
+      ],
+   q(0314) => [
+      q(Nogai),
+      ],
+   q(0315) => [
+      q(Norse, Old),
+      q(Old Norse),
+      ],
+   q(0316) => [
+      q(Norwegian),
+      ],
+   q(0317) => [
+      q(N'Ko),
+      ],
+   q(0318) => [
+      q(Pedi),
+      q(Sepedi),
+      q(Northern Sotho),
+      ],
+   q(0319) => [
+      q(Nubian languages),
+      ],
+   q(0320) => [
+      q(Classical Newari),
+      q(Old Newari),
+      q(Classical Nepal Bhasa),
+      ],
+   q(0321) => [
+      q(Chichewa),
+      q(Chewa),
+      q(Nyanja),
+      ],
+   q(0322) => [
+      q(Nyamwezi),
+      ],
+   q(0323) => [
+      q(Nyankole),
+      ],
+   q(0324) => [
+      q(Nyoro),
+      ],
+   q(0325) => [
+      q(Nzima),
+      ],
+   q(0326) => [
+      q(Occitan (post 1500)),
+      q(Provencal),
+      ],
+   q(0327) => [
+      q(Ojibwa),
+      ],
+   q(0328) => [
+      q(Oriya),
+      q(Oriya (macrolanguage)),
+      ],
+   q(0329) => [
+      q(Oromo),
+      ],
+   q(0330) => [
+      q(Osage),
+      ],
+   q(0331) => [
+      q(Ossetian),
+      q(Ossetic),
+      ],
+   q(0332) => [
+      q(Turkish, Ottoman (1500-1928)),
+      q(Ottoman Turkish (1500-1928)),
+      ],
+   q(0333) => [
+      q(Otomian languages),
+      ],
+   q(0334) => [
+      q(Papuan languages),
+      ],
+   q(0335) => [
+      q(Pangasinan),
+      ],
+   q(0336) => [
+      q(Pahlavi),
+      ],
+   q(0337) => [
+      q(Pampanga),
+      q(Kapampangan),
+      ],
+   q(0338) => [
+      q(Panjabi),
+      q(Punjabi),
+      ],
+   q(0339) => [
+      q(Papiamento),
+      ],
+   q(0340) => [
+      q(Palauan),
+      ],
+   q(0341) => [
+      q(Persian, Old (ca.600-400 B.C.)),
+      q(Old Persian (ca. 600-400 B.C.)),
+      ],
+   q(0342) => [
+      q(Persian),
+      ],
+   q(0343) => [
+      q(Philippine languages),
+      ],
+   q(0344) => [
+      q(Phoenician),
+      ],
+   q(0345) => [
+      q(Pali),
+      ],
+   q(0346) => [
+      q(Polish),
+      ],
+   q(0347) => [
+      q(Pohnpeian),
+      ],
+   q(0348) => [
+      q(Portuguese),
+      ],
+   q(0349) => [
+      q(Prakrit languages),
+      ],
+   q(0350) => [
+      q(Provencal, Old (to 1500)),
+      q(Old Provencal (to 1500)),
+      q(Old Occitan (to 1500)),
+      ],
+   q(0351) => [
+      q(Pushto),
+      q(Pashto),
+      ],
+   q(0352) => [
+      q(Reserved for local use),
+      ],
+   q(0353) => [
+      q(Quechua),
+      ],
+   q(0354) => [
+      q(Rajasthani),
+      ],
+   q(0355) => [
+      q(Rapanui),
+      ],
+   q(0356) => [
+      q(Rarotongan),
+      q(Cook Islands Maori),
+      ],
+   q(0357) => [
+      q(Romance languages),
+      ],
+   q(0358) => [
+      q(Romansh),
+      ],
+   q(0359) => [
+      q(Romany),
+      ],
+   q(0360) => [
+      q(Romanian),
+      q(Moldavian),
+      q(Moldovan),
+      ],
+   q(0361) => [
+      q(Rundi),
+      ],
+   q(0362) => [
+      q(Aromanian),
+      q(Arumanian),
+      q(Macedo-Romanian),
+      ],
+   q(0363) => [
+      q(Russian),
+      ],
+   q(0364) => [
+      q(Sandawe),
+      ],
+   q(0365) => [
+      q(Sango),
+      ],
+   q(0366) => [
+      q(Yakut),
+      ],
+   q(0367) => [
+      q(South American Indian (Other)),
+      q(South American Indian languages),
+      ],
+   q(0368) => [
+      q(Salishan languages),
+      ],
+   q(0369) => [
+      q(Samaritan Aramaic),
+      ],
+   q(0370) => [
+      q(Sanskrit),
+      ],
+   q(0371) => [
+      q(Sasak),
+      ],
+   q(0372) => [
+      q(Santali),
+      ],
+   q(0373) => [
+      q(Sicilian),
+      ],
+   q(0374) => [
+      q(Scots),
+      ],
+   q(0375) => [
+      q(Selkup),
+      ],
+   q(0376) => [
+      q(Semitic languages),
+      ],
+   q(0377) => [
+      q(Irish, Old (to 900)),
+      q(Old Irish (to 900)),
+      ],
+   q(0378) => [
+      q(Sign Languages),
+      ],
+   q(0379) => [
+      q(Shan),
+      ],
+   q(0380) => [
+      q(Sidamo),
+      ],
+   q(0381) => [
+      q(Sinhala),
+      q(Sinhalese),
+      ],
+   q(0382) => [
+      q(Siouan languages),
+      ],
+   q(0383) => [
+      q(Sino-Tibetan languages),
+      ],
+   q(0384) => [
+      q(Slavic languages),
+      ],
+   q(0385) => [
+      q(Slovak),
+      ],
+   q(0386) => [
+      q(Slovenian),
+      ],
+   q(0387) => [
+      q(Southern Sami),
+      ],
+   q(0388) => [
+      q(Northern Sami),
+      ],
+   q(0389) => [
+      q(Sami languages),
+      ],
+   q(0390) => [
+      q(Lule Sami),
+      ],
+   q(0391) => [
+      q(Inari Sami),
+      ],
+   q(0392) => [
+      q(Samoan),
+      ],
+   q(0393) => [
+      q(Skolt Sami),
+      ],
+   q(0394) => [
+      q(Shona),
+      ],
+   q(0395) => [
+      q(Sindhi),
+      ],
+   q(0396) => [
+      q(Soninke),
+      ],
+   q(0397) => [
+      q(Sogdian),
+      ],
+   q(0398) => [
+      q(Somali),
+      ],
+   q(0399) => [
+      q(Songhai languages),
+      ],
+   q(0400) => [
+      q(Sotho, Southern),
+      q(Southern Sotho),
+      ],
+   q(0401) => [
+      q(Spanish),
+      q(Castilian),
+      ],
+   q(0402) => [
+      q(Sardinian),
+      ],
+   q(0403) => [
+      q(Sranan Tongo),
+      ],
+   q(0404) => [
+      q(Serbian),
+      ],
+   q(0405) => [
+      q(Serer),
+      ],
+   q(0406) => [
+      q(Nilo-Saharan languages),
+      ],
+   q(0407) => [
+      q(Swati),
+      ],
+   q(0408) => [
+      q(Sukuma),
+      ],
+   q(0409) => [
+      q(Sundanese),
+      ],
+   q(0410) => [
+      q(Susu),
+      ],
+   q(0411) => [
+      q(Sumerian),
+      ],
+   q(0412) => [
+      q(Swahili),
+      q(Swahili (macrolanguage)),
+      ],
+   q(0413) => [
+      q(Swedish),
+      ],
+   q(0414) => [
+      q(Classical Syriac),
+      ],
+   q(0415) => [
+      q(Syriac),
+      ],
+   q(0416) => [
+      q(Tahitian),
+      ],
+   q(0417) => [
+      q(Tai languages),
+      ],
+   q(0418) => [
+      q(Tamil),
+      ],
+   q(0419) => [
+      q(Tatar),
+      ],
+   q(0420) => [
+      q(Telugu),
+      ],
+   q(0421) => [
+      q(Timne),
+      ],
+   q(0422) => [
+      q(Tereno),
+      ],
+   q(0423) => [
+      q(Tetum),
+      ],
+   q(0424) => [
+      q(Tajik),
+      ],
+   q(0425) => [
+      q(Tagalog),
+      ],
+   q(0426) => [
+      q(Thai),
+      ],
+   q(0427) => [
+      q(Tibetan),
+      ],
+   q(0428) => [
+      q(Tigre),
+      ],
+   q(0429) => [
+      q(Tigrinya),
+      ],
+   q(0430) => [
+      q(Tiv),
+      ],
+   q(0431) => [
+      q(Tokelau),
+      ],
+   q(0432) => [
+      q(Klingon),
+      q(tlhIngan-Hol),
+      ],
+   q(0433) => [
+      q(Tlingit),
+      ],
+   q(0434) => [
+      q(Tamashek),
+      ],
+   q(0435) => [
+      q(Tonga (Nyasa)),
+      ],
+   q(0436) => [
+      q(Tonga (Tonga Islands)),
+      q(Tonga),
+      ],
+   q(0437) => [
+      q(Tok Pisin),
+      ],
+   q(0438) => [
+      q(Tsimshian),
+      ],
+   q(0439) => [
+      q(Tswana),
+      ],
+   q(0440) => [
+      q(Tsonga),
+      ],
+   q(0441) => [
+      q(Turkmen),
+      ],
+   q(0442) => [
+      q(Tumbuka),
+      ],
+   q(0443) => [
+      q(Tupi languages),
+      ],
+   q(0444) => [
+      q(Turkish),
+      ],
+   q(0445) => [
+      q(Altaic languages),
+      ],
+   q(0446) => [
+      q(Tuvalu),
+      ],
+   q(0447) => [
+      q(Twi),
+      ],
+   q(0448) => [
+      q(Tuvinian),
+      ],
+   q(0449) => [
+      q(Udmurt),
+      ],
+   q(0450) => [
+      q(Ugaritic),
+      ],
+   q(0451) => [
+      q(Uighur),
+      q(Uyghur),
+      ],
+   q(0452) => [
+      q(Ukrainian),
+      ],
+   q(0453) => [
+      q(Umbundu),
+      ],
+   q(0454) => [
+      q(Undetermined),
+      ],
+   q(0455) => [
+      q(Urdu),
+      ],
+   q(0456) => [
+      q(Uzbek),
+      ],
+   q(0457) => [
+      q(Vai),
+      ],
+   q(0458) => [
+      q(Venda),
+      ],
+   q(0459) => [
+      q(Vietnamese),
+      ],
+   q(0460) => [
+      q(Volapuk),
+      ],
+   q(0461) => [
+      q(Votic),
+      ],
+   q(0462) => [
+      q(Wakashan languages),
+      ],
+   q(0463) => [
+      q(Walamo),
+      q(Wolaytta),
+      q(Wolaitta),
+      ],
+   q(0464) => [
+      q(Waray),
+      q(Waray (Philippines)),
+      ],
+   q(0465) => [
+      q(Washo),
+      ],
+   q(0466) => [
+      q(Welsh),
+      ],
+   q(0467) => [
+      q(Sorbian languages),
+      ],
+   q(0468) => [
+      q(Walloon),
+      ],
+   q(0469) => [
+      q(Wolof),
+      ],
+   q(0470) => [
+      q(Kalmyk),
+      q(Oirat),
+      ],
+   q(0471) => [
+      q(Xhosa),
+      ],
+   q(0472) => [
+      q(Yao),
+      ],
+   q(0473) => [
+      q(Yapese),
+      ],
+   q(0474) => [
+      q(Yiddish),
+      ],
+   q(0475) => [
+      q(Yoruba),
+      ],
+   q(0476) => [
+      q(Yupik languages),
+      ],
+   q(0477) => [
+      q(Zapotec),
+      ],
+   q(0478) => [
+      q(Blissymbols),
+      q(Blissymbolics),
+      q(Bliss),
+      ],
+   q(0479) => [
+      q(Zenaga),
+      ],
+   q(0480) => [
+      q(Standard Moroccan Tamazight),
+      ],
+   q(0481) => [
+      q(Zhuang),
+      q(Chuang),
+      ],
+   q(0482) => [
+      q(Zande languages),
+      ],
+   q(0483) => [
+      q(Zulu),
+      ],
+   q(0484) => [
+      q(Zuni),
+      ],
+   q(0485) => [
+      q(No linguistic content),
+      q(Not applicable),
+      ],
+   q(0486) => [
+      q(Zaza),
+      q(Dimili),
+      q(Dimli),
+      q(Kirdki),
+      q(Kirmanjki),
+      q(Zazaki),
+      q(Dimli (macrolanguage)),
+      q(Kirmanjki (macrolanguage)),
+      ],
+   q(0487) => [
+      q(Austro-Asiatic languages),
+      ],
+   q(0488) => [
+      q(Atlantic-Congo languages),
+      ],
+   q(0489) => [
+      q(Alacalufan languages),
+      ],
+   q(0490) => [
+      q(Algic languages),
+      ],
+   q(0491) => [
+      q(Arauan languages),
+      ],
+   q(0492) => [
+      q(Arawakan languages),
+      ],
+   q(0493) => [
+      q(Uto-Aztecan languages),
+      ],
+   q(0494) => [
+      q(Chibchan languages),
+      ],
+   q(0495) => [
+      q(North Caucasian languages),
+      ],
+   q(0496) => [
+      q(South Caucasian languages),
+      ],
+   q(0497) => [
+      q(Chadic languages),
+      ],
+   q(0498) => [
+      q(Caddoan languages),
+      ],
+   q(0499) => [
+      q(Central Sudanic languages),
+      ],
+   q(0500) => [
+      q(Mande languages),
+      ],
+   q(0501) => [
+      q(Egyptian languages),
+      ],
+   q(0502) => [
+      q(Eskimo-Aleut languages),
+      ],
+   q(0503) => [
+      q(Basque (family)),
+      ],
+   q(0504) => [
+      q(Formosan languages),
+      ],
+   q(0505) => [
+      q(East Germanic languages),
+      ],
+   q(0506) => [
+      q(North Germanic languages),
+      ],
+   q(0507) => [
+      q(West Germanic languages),
+      ],
+   q(0508) => [
+      q(Greek languages),
+      ],
+   q(0509) => [
+      q(Hmong-Mien languages),
+      ],
+   q(0510) => [
+      q(Hokan languages),
+      ],
+   q(0511) => [
+      q(Armenian (family)),
+      ],
+   q(0512) => [
+      q(Indo-Iranian languages),
+      ],
+   q(0513) => [
+      q(Italic languages),
+      ],
+   q(0514) => [
+      q(Japanese (family)),
+      ],
+   q(0515) => [
+      q(Kordofanian languages),
+      ],
+   q(0516) => [
+      q(Trans-New Guinea languages),
+      ],
+   q(0517) => [
+      q(Oto-Manguean languages),
+      ],
+   q(0518) => [
+      q(Omotic languages),
+      ],
+   q(0519) => [
+      q(Central Malayo-Polynesian languages),
+      ],
+   q(0520) => [
+      q(Malayo-Polynesian languages),
+      ],
+   q(0521) => [
+      q(Eastern Malayo-Polynesian languages),
+      ],
+   q(0522) => [
+      q(Western Malayo-Polynesian languages),
+      ],
+   q(0523) => [
+      q(Quechuan (family)),
+      ],
+   q(0524) => [
+      q(Eastern Sudanic languages),
+      ],
+   q(0525) => [
+      q(Albanian languages),
+      ],
+   q(0526) => [
+      q(Samoyedic languages),
+      ],
+   q(0527) => [
+      q(Tibeto-Burman languages),
+      ],
+   q(0528) => [
+      q(Turkic languages),
+      ],
+   q(0529) => [
+      q(Tungus languages),
+      ],
+   q(0530) => [
+      q(Uralic languages),
+      ],
+   q(0531) => [
+      q(Mongolian languages),
+      ],
+   q(0532) => [
+      q(Na-Dene languages),
+      ],
+   q(0533) => [
+      q(Chinese (family)),
+      ],
+   q(0534) => [
+      q(East Slavic languages),
+      ],
+   q(0535) => [
+      q(South Slavic languages),
+      ],
+   q(0536) => [
+      q(West Slavic languages),
+      ],
+   q(0537) => [
+      q(Serbo-Croatian),
+      ],
+   q(0538) => [
+      q(Ghotuo),
+      ],
+   q(0539) => [
+      q(Alumu-Tesu),
+      ],
+   q(0540) => [
+      q(Ari),
+      ],
+   q(0541) => [
+      q(Amal),
+      ],
+   q(0542) => [
+      q(Arbereshe Albanian),
+      ],
+   q(0543) => [
+      q(Aranadan),
+      ],
+   q(0544) => [
+      q(Ambrak),
+      ],
+   q(0545) => [
+      q(Abu' Arapesh),
+      ],
+   q(0546) => [
+      q(Arifama-Miniafia),
+      ],
+   q(0547) => [
+      q(Ankave),
+      ],
+   q(0548) => [
+      q(Afade),
+      ],
+   q(0549) => [
+      q(Anambe),
+      ],
+   q(0550) => [
+      q(Algerian Saharan Arabic),
+      ],
+   q(0551) => [
+      q(Para Arara),
+      ],
+   q(0552) => [
+      q(Eastern Abnaki),
+      ],
+   q(0553) => [
+      q(Aasax),
+      ],
+   q(0554) => [
+      q(Arvanitika Albanian),
+      ],
+   q(0555) => [
+      q(Abau),
+      ],
+   q(0556) => [
+      q(Solong),
+      ],
+   q(0557) => [
+      q(Mandobo Atas),
+      ],
+   q(0558) => [
+      q(Amarasi),
+      ],
+   q(0559) => [
+      q(Abe),
+      ],
+   q(0560) => [
+      q(Bankon),
+      ],
+   q(0561) => [
+      q(Ambala Ayta),
+      ],
+   q(0562) => [
+      q(Manide),
+      ],
+   q(0563) => [
+      q(Western Abnaki),
+      ],
+   q(0564) => [
+      q(Abai Sungai),
+      ],
+   q(0565) => [
+      q(Abaga),
+      ],
+   q(0566) => [
+      q(Tajiki Arabic),
+      ],
+   q(0567) => [
+      q(Abidji),
+      ],
+   q(0568) => [
+      q(Aka-Bea),
+      ],
+   q(0569) => [
+      q(Lampung Nyo),
+      ],
+   q(0570) => [
+      q(Abanyom),
+      ],
+   q(0571) => [
+      q(Abua),
+      ],
+   q(0572) => [
+      q(Abon),
+      ],
+   q(0573) => [
+      q(Abellen Ayta),
+      ],
+   q(0574) => [
+      q(Abaza),
+      ],
+   q(0575) => [
+      q(Abron),
+      ],
+   q(0576) => [
+      q(Ambonese Malay),
+      ],
+   q(0577) => [
+      q(Ambulas),
+      ],
+   q(0578) => [
+      q(Abure),
+      ],
+   q(0579) => [
+      q(Baharna Arabic),
+      ],
+   q(0580) => [
+      q(Pal),
+      ],
+   q(0581) => [
+      q(Inabaknon),
+      ],
+   q(0582) => [
+      q(Aneme Wake),
+      ],
+   q(0583) => [
+      q(Abui),
+      ],
+   q(0584) => [
+      q(Achagua),
+      ],
+   q(0585) => [
+      q(Anca),
+      ],
+   q(0586) => [
+      q(Gikyode),
+      ],
+   q(0587) => [
+      q(Saint Lucian Creole French),
+      ],
+   q(0588) => [
+      q(Aka-Cari),
+      ],
+   q(0589) => [
+      q(Aka-Kora),
+      ],
+   q(0590) => [
+      q(Akar-Bale),
+      ],
+   q(0591) => [
+      q(Mesopotamian Arabic),
+      ],
+   q(0592) => [
+      q(Achang),
+      ],
+   q(0593) => [
+      q(Eastern Acipa),
+      ],
+   q(0594) => [
+      q(Ta'izzi-Adeni Arabic),
+      ],
+   q(0595) => [
+      q(Achi),
+      ],
+   q(0596) => [
+      q(Acroa),
+      ],
+   q(0597) => [
+      q(Achterhoeks),
+      ],
+   q(0598) => [
+      q(Achuar-Shiwiar),
+      ],
+   q(0599) => [
+      q(Achumawi),
+      ],
+   q(0600) => [
+      q(Hijazi Arabic),
+      ],
+   q(0601) => [
+      q(Omani Arabic),
+      ],
+   q(0602) => [
+      q(Cypriot Arabic),
+      ],
+   q(0603) => [
+      q(Acheron),
+      ],
+   q(0604) => [
+      q(Adabe),
+      ],
+   q(0605) => [
+      q(Dzodinka),
+      ],
+   q(0606) => [
+      q(Adele),
+      ],
+   q(0607) => [
+      q(Dhofari Arabic),
+      ],
+   q(0608) => [
+      q(Andegerebinha),
+      ],
+   q(0609) => [
+      q(Adhola),
+      ],
+   q(0610) => [
+      q(Adi),
+      ],
+   q(0611) => [
+      q(Adioukrou),
+      ],
+   q(0612) => [
+      q(Galo),
+      ],
+   q(0613) => [
+      q(Adang),
+      ],
+   q(0614) => [
+      q(Abu),
+      ],
+   q(0615) => [
+      q(Adangbe),
+      ],
+   q(0616) => [
+      q(Adonara),
+      ],
+   q(0617) => [
+      q(Adamorobe Sign Language),
+      ],
+   q(0618) => [
+      q(Adnyamathanha),
+      ],
+   q(0619) => [
+      q(Aduge),
+      ],
+   q(0620) => [
+      q(Amundava),
+      ],
+   q(0621) => [
+      q(Amdo Tibetan),
+      ],
+   q(0622) => [
+      q(Adzera),
+      ],
+   q(0623) => [
+      q(Areba),
+      ],
+   q(0624) => [
+      q(Tunisian Arabic),
+      ],
+   q(0625) => [
+      q(Saidi Arabic),
+      ],
+   q(0626) => [
+      q(Argentine Sign Language),
+      ],
+   q(0627) => [
+      q(Northeast Pashai),
+      q(Northeast Pashayi),
+      ],
+   q(0628) => [
+      q(Haeke),
+      ],
+   q(0629) => [
+      q(Ambele),
+      ],
+   q(0630) => [
+      q(Arem),
+      ],
+   q(0631) => [
+      q(Armenian Sign Language),
+      ],
+   q(0632) => [
+      q(Aer),
+      ],
+   q(0633) => [
+      q(Eastern Arrernte),
+      ],
+   q(0634) => [
+      q(Alsea),
+      ],
+   q(0635) => [
+      q(Akeu),
+      ],
+   q(0636) => [
+      q(Ambakich),
+      ],
+   q(0637) => [
+      q(Amele),
+      ],
+   q(0638) => [
+      q(Aeka),
+      ],
+   q(0639) => [
+      q(Gulf Arabic),
+      ],
+   q(0640) => [
+      q(Andai),
+      ],
+   q(0641) => [
+      q(Putukwam),
+      ],
+   q(0642) => [
+      q(Afghan Sign Language),
+      ],
+   q(0643) => [
+      q(Akrukay),
+      q(Chini),
+      ],
+   q(0644) => [
+      q(Nanubae),
+      ],
+   q(0645) => [
+      q(Defaka),
+      ],
+   q(0646) => [
+      q(Eloyi),
+      ],
+   q(0647) => [
+      q(Tapei),
+      ],
+   q(0648) => [
+      q(Afro-Seminole Creole),
+      ],
+   q(0649) => [
+      q(Afitti),
+      ],
+   q(0650) => [
+      q(Awutu),
+      ],
+   q(0651) => [
+      q(Obokuitai),
+      ],
+   q(0652) => [
+      q(Aguano),
+      ],
+   q(0653) => [
+      q(Legbo),
+      ],
+   q(0654) => [
+      q(Agatu),
+      ],
+   q(0655) => [
+      q(Agarabi),
+      ],
+   q(0656) => [
+      q(Angal),
+      ],
+   q(0657) => [
+      q(Arguni),
+      ],
+   q(0658) => [
+      q(Angor),
+      ],
+   q(0659) => [
+      q(Ngelima),
+      ],
+   q(0660) => [
+      q(Agariya),
+      ],
+   q(0661) => [
+      q(Argobba),
+      ],
+   q(0662) => [
+      q(Isarog Agta),
+      ],
+   q(0663) => [
+      q(Fembe),
+      ],
+   q(0664) => [
+      q(Angaataha),
+      ],
+   q(0665) => [
+      q(Agutaynen),
+      ],
+   q(0666) => [
+      q(Tainae),
+      ],
+   q(0667) => [
+      q(Aghem),
+      ],
+   q(0668) => [
+      q(Aguaruna),
+      ],
+   q(0669) => [
+      q(Esimbi),
+      ],
+   q(0670) => [
+      q(Central Cagayan Agta),
+      ],
+   q(0671) => [
+      q(Aguacateco),
+      ],
+   q(0672) => [
+      q(Remontado Dumagat),
+      ],
+   q(0673) => [
+      q(Kahua),
+      ],
+   q(0674) => [
+      q(Aghul),
+      ],
+   q(0675) => [
+      q(Southern Alta),
+      ],
+   q(0676) => [
+      q(Mt. Iriga Agta),
+      ],
+   q(0677) => [
+      q(Ahanta),
+      ],
+   q(0678) => [
+      q(Axamb),
+      ],
+   q(0679) => [
+      q(Qimant),
+      ],
+   q(0680) => [
+      q(Aghu),
+      ],
+   q(0681) => [
+      q(Tiagbamrin Aizi),
+      ],
+   q(0682) => [
+      q(Akha),
+      ],
+   q(0683) => [
+      q(Igo),
+      ],
+   q(0684) => [
+      q(Mobumrin Aizi),
+      ],
+   q(0685) => [
+      q(Ahan),
+      ],
+   q(0686) => [
+      q(Ahom),
+      ],
+   q(0687) => [
+      q(Aproumu Aizi),
+      ],
+   q(0688) => [
+      q(Ahirani),
+      ],
+   q(0689) => [
+      q(Ashe),
+      ],
+   q(0690) => [
+      q(Ahtena),
+      ],
+   q(0691) => [
+      q(Arosi),
+      ],
+   q(0692) => [
+      q(Ainu (China)),
+      ],
+   q(0693) => [
+      q(Ainbai),
+      ],
+   q(0694) => [
+      q(Alngith),
+      ],
+   q(0695) => [
+      q(Amara),
+      ],
+   q(0696) => [
+      q(Agi),
+      ],
+   q(0697) => [
+      q(Antigua and Barbuda Creole English),
+      ],
+   q(0698) => [
+      q(Ai-Cham),
+      ],
+   q(0699) => [
+      q(Assyrian Neo-Aramaic),
+      ],
+   q(0700) => [
+      q(Lishanid Noshan),
+      ],
+   q(0701) => [
+      q(Ake),
+      ],
+   q(0702) => [
+      q(Aimele),
+      ],
+   q(0703) => [
+      q(Aimol),
+      ],
+   q(0704) => [
+      q(Aiton),
+      ],
+   q(0705) => [
+      q(Burumakok),
+      ],
+   q(0706) => [
+      q(Aimaq),
+      ],
+   q(0707) => [
+      q(Airoran),
+      ],
+   q(0708) => [
+      q(Nataoran Amis),
+      ],
+   q(0709) => [
+      q(Arikem),
+      ],
+   q(0710) => [
+      q(Aari),
+      ],
+   q(0711) => [
+      q(Aighon),
+      ],
+   q(0712) => [
+      q(Ali),
+      ],
+   q(0713) => [
+      q(Aja (Sudan)),
+      ],
+   q(0714) => [
+      q(Aja (Benin)),
+      ],
+   q(0715) => [
+      q(Ajie),
+      ],
+   q(0716) => [
+      q(Andajin),
+      ],
+   q(0717) => [
+      q(South Levantine Arabic),
+      ],
+   q(0718) => [
+      q(Judeo-Tunisian Arabic),
+      ],
+   q(0719) => [
+      q(Judeo-Moroccan Arabic),
+      ],
+   q(0720) => [
+      q(Ajawa),
+      ],
+   q(0721) => [
+      q(Amri Karbi),
+      ],
+   q(0722) => [
+      q(Batak Angkola),
+      ],
+   q(0723) => [
+      q(Mpur),
+      ],
+   q(0724) => [
+      q(Ukpet-Ehom),
+      ],
+   q(0725) => [
+      q(Akawaio),
+      ],
+   q(0726) => [
+      q(Akpa),
+      ],
+   q(0727) => [
+      q(Anakalangu),
+      ],
+   q(0728) => [
+      q(Angal Heneng),
+      ],
+   q(0729) => [
+      q(Aiome),
+      ],
+   q(0730) => [
+      q(Aka-Jeru),
+      ],
+   q(0731) => [
+      q(Aklanon),
+      ],
+   q(0732) => [
+      q(Aka-Bo),
+      ],
+   q(0733) => [
+      q(Akurio),
+      ],
+   q(0734) => [
+      q(Siwu),
+      ],
+   q(0735) => [
+      q(Ak),
+      ],
+   q(0736) => [
+      q(Araki),
+      ],
+   q(0737) => [
+      q(Akaselem),
+      ],
+   q(0738) => [
+      q(Akolet),
+      ],
+   q(0739) => [
+      q(Akum),
+      ],
+   q(0740) => [
+      q(Akhvakh),
+      ],
+   q(0741) => [
+      q(Akwa),
+      ],
+   q(0742) => [
+      q(Aka-Kede),
+      ],
+   q(0743) => [
+      q(Aka-Kol),
+      ],
+   q(0744) => [
+      q(Alabama),
+      ],
+   q(0745) => [
+      q(Alago),
+      ],
+   q(0746) => [
+      q(Qawasqar),
+      ],
+   q(0747) => [
+      q(Alladian),
+      ],
+   q(0748) => [
+      q(Alege),
+      ],
+   q(0749) => [
+      q(Alawa),
+      ],
+   q(0750) => [
+      q(Amaimon),
+      ],
+   q(0751) => [
+      q(Alangan),
+      ],
+   q(0752) => [
+      q(Alak),
+      ],
+   q(0753) => [
+      q(Allar),
+      ],
+   q(0754) => [
+      q(Amblong),
+      ],
+   q(0755) => [
+      q(Gheg Albanian),
+      ],
+   q(0756) => [
+      q(Larike-Wakasihu),
+      ],
+   q(0757) => [
+      q(Alune),
+      ],
+   q(0758) => [
+      q(Algonquin),
+      ],
+   q(0759) => [
+      q(Alutor),
+      ],
+   q(0760) => [
+      q(Tosk Albanian),
+      ],
+   q(0761) => [
+      q('Are'are),
+      ],
+   q(0762) => [
+      q(Alaba-K'abeena),
+      q(Wanbasana),
+      ],
+   q(0763) => [
+      q(Amol),
+      ],
+   q(0764) => [
+      q(Alyawarr),
+      ],
+   q(0765) => [
+      q(Alur),
+      ],
+   q(0766) => [
+      q(Amanaye),
+      ],
+   q(0767) => [
+      q(Ambo),
+      ],
+   q(0768) => [
+      q(Amahuaca),
+      ],
+   q(0769) => [
+      q(Yanesha'),
+      ],
+   q(0770) => [
+      q(Hamer-Banna),
+      ],
+   q(0771) => [
+      q(Amurdak),
+      ],
+   q(0772) => [
+      q(Amis),
+      ],
+   q(0773) => [
+      q(Amdang),
+      ],
+   q(0774) => [
+      q(Ambai),
+      ],
+   q(0775) => [
+      q(War-Jaintia),
+      ],
+   q(0776) => [
+      q(Ama (Papua New Guinea)),
+      ],
+   q(0777) => [
+      q(Amanab),
+      ],
+   q(0778) => [
+      q(Amo),
+      ],
+   q(0779) => [
+      q(Alamblak),
+      ],
+   q(0780) => [
+      q(Amahai),
+      ],
+   q(0781) => [
+      q(Amarakaeri),
+      ],
+   q(0782) => [
+      q(Southern Amami-Oshima),
+      ],
+   q(0783) => [
+      q(Amto),
+      ],
+   q(0784) => [
+      q(Guerrero Amuzgo),
+      ],
+   q(0785) => [
+      q(Ambelau),
+      ],
+   q(0786) => [
+      q(Western Neo-Aramaic),
+      ],
+   q(0787) => [
+      q(Anmatyerre),
+      ],
+   q(0788) => [
+      q(Ami),
+      ],
+   q(0789) => [
+      q(Atampaya),
+      ],
+   q(0790) => [
+      q(Andaqui),
+      ],
+   q(0791) => [
+      q(Andoa),
+      ],
+   q(0792) => [
+      q(Ngas),
+      ],
+   q(0793) => [
+      q(Ansus),
+      ],
+   q(0794) => [
+      q(Xaracuu),
+      ],
+   q(0795) => [
+      q(Animere),
+      ],
+   q(0796) => [
+      q(Nend),
+      ],
+   q(0797) => [
+      q(Andi),
+      ],
+   q(0798) => [
+      q(Anor),
+      ],
+   q(0799) => [
+      q(Goemai),
+      ],
+   q(0800) => [
+      q(Anu-Hkongso Chin),
+      ],
+   q(0801) => [
+      q(Anal),
+      ],
+   q(0802) => [
+      q(Obolo),
+      ],
+   q(0803) => [
+      q(Andoque),
+      ],
+   q(0804) => [
+      q(Jarawa (India)),
+      ],
+   q(0805) => [
+      q(Andh),
+      ],
+   q(0806) => [
+      q(Anserma),
+      ],
+   q(0807) => [
+      q(Antakarinya),
+      ],
+   q(0808) => [
+      q(Anuak),
+      ],
+   q(0809) => [
+      q(Denya),
+      ],
+   q(0810) => [
+      q(Anaang),
+      ],
+   q(0811) => [
+      q(Andra-Hus),
+      ],
+   q(0812) => [
+      q(Anyin),
+      ],
+   q(0813) => [
+      q(Anem),
+      ],
+   q(0814) => [
+      q(Angolar),
+      ],
+   q(0815) => [
+      q(Abom),
+      ],
+   q(0816) => [
+      q(Pemon),
+      ],
+   q(0817) => [
+      q(Andarum),
+      ],
+   q(0818) => [
+      q(Angal Enen),
+      ],
+   q(0819) => [
+      q(Bragat),
+      ],
+   q(0820) => [
+      q(Angoram),
+      ],
+   q(0821) => [
+      q(Arma),
+      ],
+   q(0822) => [
+      q(Anindilyakwa),
+      ],
+   q(0823) => [
+      q(Mufian),
+      ],
+   q(0824) => [
+      q(Arho),
+      ],
+   q(0825) => [
+      q(Alor),
+      ],
+   q(0826) => [
+      q(Omie),
+      ],
+   q(0827) => [
+      q(Bumbita Arapesh),
+      ],
+   q(0828) => [
+      q(Aore),
+      ],
+   q(0829) => [
+      q(Taikat),
+      ],
+   q(0830) => [
+      q(Atong (India)),
+      q(A'tong),
+      ],
+   q(0831) => [
+      q(A'ou),
+      ],
+   q(0832) => [
+      q(Atorada),
+      ],
+   q(0833) => [
+      q(Uab Meto),
+      ],
+   q(0834) => [
+      q(Sa'a),
+      ],
+   q(0835) => [
+      q(North Levantine Arabic),
+      ],
+   q(0836) => [
+      q(Sudanese Arabic),
+      ],
+   q(0837) => [
+      q(Bukiyip),
+      ],
+   q(0838) => [
+      q(Pahanan Agta),
+      ],
+   q(0839) => [
+      q(Ampanang),
+      ],
+   q(0840) => [
+      q(Athpariya),
+      ],
+   q(0841) => [
+      q(Apiaka),
+      ],
+   q(0842) => [
+      q(Jicarilla Apache),
+      ],
+   q(0843) => [
+      q(Kiowa Apache),
+      ],
+   q(0844) => [
+      q(Lipan Apache),
+      ],
+   q(0845) => [
+      q(Mescalero-Chiricahua Apache),
+      ],
+   q(0846) => [
+      q(Apinaye),
+      ],
+   q(0847) => [
+      q(Ambul),
+      ],
+   q(0848) => [
+      q(Apma),
+      ],
+   q(0849) => [
+      q(A-Pucikwar),
+      ],
+   q(0850) => [
+      q(Arop-Lokep),
+      ],
+   q(0851) => [
+      q(Arop-Sissano),
+      ],
+   q(0852) => [
+      q(Apatani),
+      ],
+   q(0853) => [
+      q(Apurina),
+      ],
+   q(0854) => [
+      q(Alapmunte),
+      ],
+   q(0855) => [
+      q(Western Apache),
+      ],
+   q(0856) => [
+      q(Aputai),
+      ],
+   q(0857) => [
+      q(Apalai),
+      ],
+   q(0858) => [
+      q(Safeyoka),
+      ],
+   q(0859) => [
+      q(Archi),
+      ],
+   q(0860) => [
+      q(Ampari Dogon),
+      ],
+   q(0861) => [
+      q(Arigidi),
+      ],
+   q(0862) => [
+      q(Atohwaim),
+      ],
+   q(0863) => [
+      q(Northern Alta),
+      ],
+   q(0864) => [
+      q(Atakapa),
+      ],
+   q(0865) => [
+      q(Arha),
+      ],
+   q(0866) => [
+      q(Angaite),
+      ],
+   q(0867) => [
+      q(Akuntsu),
+      ],
+   q(0868) => [
+      q(Standard Arabic),
+      ],
+   q(0869) => [
+      q(Arabana),
+      ],
+   q(0870) => [
+      q(Western Arrarnta),
+      ],
+   q(0871) => [
+      q(Arhuaco),
+      ],
+   q(0872) => [
+      q(Arikara),
+      ],
+   q(0873) => [
+      q(Arapaso),
+      ],
+   q(0874) => [
+      q(Arikapu),
+      ],
+   q(0875) => [
+      q(Arabela),
+      ],
+   q(0876) => [
+      q(Araona),
+      ],
+   q(0877) => [
+      q(Algerian Arabic),
+      ],
+   q(0878) => [
+      q(Karo (Brazil)),
+      ],
+   q(0879) => [
+      q(Najdi Arabic),
+      ],
+   q(0880) => [
+      q(Arua (Amazonas State)),
+      q(Arawa),
+      ],
+   q(0881) => [
+      q(Arbore),
+      ],
+   q(0882) => [
+      q(Arua (Rodonia State)),
+      ],
+   q(0883) => [
+      q(Moroccan Arabic),
+      ],
+   q(0884) => [
+      q(Egyptian Arabic),
+      ],
+   q(0885) => [
+      q(Asu (Tanzania)),
+      ],
+   q(0886) => [
+      q(Assiniboine),
+      ],
+   q(0887) => [
+      q(Casuarina Coast Asmat),
+      ],
+   q(0888) => [
+      q(Asas),
+      ],
+   q(0889) => [
+      q(American Sign Language),
+      ],
+   q(0890) => [
+      q(Australian Sign Language),
+      ],
+   q(0891) => [
+      q(Cishingini),
+      ],
+   q(0892) => [
+      q(Abishira),
+      ],
+   q(0893) => [
+      q(Buruwai),
+      ],
+   q(0894) => [
+      q(Sari),
+      ],
+   q(0895) => [
+      q(Ashkun),
+      ],
+   q(0896) => [
+      q(Asilulu),
+      ],
+   q(0897) => [
+      q(Xingu Asurini),
+      ],
+   q(0898) => [
+      q(Dano),
+      ],
+   q(0899) => [
+      q(Algerian Sign Language),
+      ],
+   q(0900) => [
+      q(Austrian Sign Language),
+      ],
+   q(0901) => [
+      q(Asuri),
+      ],
+   q(0902) => [
+      q(Ipulo),
+      ],
+   q(0903) => [
+      q(Tocantins Asurini),
+      ],
+   q(0904) => [
+      q(Asoa),
+      ],
+   q(0905) => [
+      q(Australian Aborigines Sign Language),
+      ],
+   q(0906) => [
+      q(Muratayak),
+      ],
+   q(0907) => [
+      q(Yaosakor Asmat),
+      ],
+   q(0908) => [
+      q(As),
+      ],
+   q(0909) => [
+      q(Pele-Ata),
+      ],
+   q(0910) => [
+      q(Zaiwa),
+      ],
+   q(0911) => [
+      q(Atsahuaca),
+      ],
+   q(0912) => [
+      q(Ata Manobo),
+      ],
+   q(0913) => [
+      q(Atemble),
+      ],
+   q(0914) => [
+      q(Ivbie North-Okpela-Arhe),
+      ],
+   q(0915) => [
+      q(Attie),
+      ],
+   q(0916) => [
+      q(Atikamekw),
+      ],
+   q(0917) => [
+      q(Ati),
+      ],
+   q(0918) => [
+      q(Mt. Iraya Agta),
+      ],
+   q(0919) => [
+      q(Ata),
+      ],
+   q(0920) => [
+      q(Ashtiani),
+      ],
+   q(0921) => [
+      q(Atong (Cameroon)),
+      ],
+   q(0922) => [
+      q(Pudtol Atta),
+      ],
+   q(0923) => [
+      q(Aralle-Tabulahan),
+      ],
+   q(0924) => [
+      q(Waimiri-Atroari),
+      ],
+   q(0925) => [
+      q(Gros Ventre),
+      ],
+   q(0926) => [
+      q(Pamplona Atta),
+      ],
+   q(0927) => [
+      q(Reel),
+      ],
+   q(0928) => [
+      q(Northern Altai),
+      ],
+   q(0929) => [
+      q(Atsugewi),
+      ],
+   q(0930) => [
+      q(Arutani),
+      ],
+   q(0931) => [
+      q(Aneityum),
+      ],
+   q(0932) => [
+      q(Arta),
+      ],
+   q(0933) => [
+      q(Asumboa),
+      ],
+   q(0934) => [
+      q(Alugu),
+      ],
+   q(0935) => [
+      q(Waorani),
+      ],
+   q(0936) => [
+      q(Anuta),
+      ],
+   q(0937) => [
+      q(Aguna),
+      ],
+   q(0938) => [
+      q(Aushi),
+      ],
+   q(0939) => [
+      q(Anuki),
+      ],
+   q(0940) => [
+      q(Awjilah),
+      ],
+   q(0941) => [
+      q(Heyo),
+      ],
+   q(0942) => [
+      q(Aulua),
+      ],
+   q(0943) => [
+      q(Asu (Nigeria)),
+      ],
+   q(0944) => [
+      q(Molmo One),
+      ],
+   q(0945) => [
+      q(Auyokawa),
+      ],
+   q(0946) => [
+      q(Makayam),
+      ],
+   q(0947) => [
+      q(Anus),
+      q(Korur),
+      ],
+   q(0948) => [
+      q(Aruek),
+      ],
+   q(0949) => [
+      q(Austral),
+      ],
+   q(0950) => [
+      q(Auye),
+      ],
+   q(0951) => [
+      q(Awyi),
+      ],
+   q(0952) => [
+      q(Aura),
+      ],
+   q(0953) => [
+      q(Awiyaana),
+      ],
+   q(0954) => [
+      q(Uzbeki Arabic),
+      ],
+   q(0955) => [
+      q(Avau),
+      ],
+   q(0956) => [
+      q(Alviri-Vidari),
+      ],
+   q(0957) => [
+      q(Avikam),
+      ],
+   q(0958) => [
+      q(Kotava),
+      ],
+   q(0959) => [
+      q(Eastern Egyptian Bedawi Arabic),
+      ],
+   q(0960) => [
+      q(Angkamuthi),
+      ],
+   q(0961) => [
+      q(Avatime),
+      ],
+   q(0962) => [
+      q(Agavotaguerra),
+      ],
+   q(0963) => [
+      q(Aushiri),
+      ],
+   q(0964) => [
+      q(Au),
+      ],
+   q(0965) => [
+      q(Avokaya),
+      ],
+   q(0966) => [
+      q(Ava-Canoeiro),
+      ],
+   q(0967) => [
+      q(Awa (Papua New Guinea)),
+      ],
+   q(0968) => [
+      q(Cicipu),
+      ],
+   q(0969) => [
+      q(Aweti),
+      ],
+   q(0970) => [
+      q(Anguthimri),
+      ],
+   q(0971) => [
+      q(Awbono),
+      ],
+   q(0972) => [
+      q(Aekyom),
+      ],
+   q(0973) => [
+      q(Awabakal),
+      ],
+   q(0974) => [
+      q(Arawum),
+      ],
+   q(0975) => [
+      q(Awngi),
+      ],
+   q(0976) => [
+      q(Awak),
+      ],
+   q(0977) => [
+      q(Awera),
+      ],
+   q(0978) => [
+      q(South Awyu),
+      ],
+   q(0979) => [
+      q(Arawete),
+      ],
+   q(0980) => [
+      q(Central Awyu),
+      ],
+   q(0981) => [
+      q(Jair Awyu),
+      ],
+   q(0982) => [
+      q(Awun),
+      ],
+   q(0983) => [
+      q(Awara),
+      ],
+   q(0984) => [
+      q(Edera Awyu),
+      ],
+   q(0985) => [
+      q(Abipon),
+      ],
+   q(0986) => [
+      q(Ayerrerenge),
+      ],
+   q(0987) => [
+      q(Mato Grosso Arara),
+      ],
+   q(0988) => [
+      q(Yaka (Central African Republic)),
+      ],
+   q(0989) => [
+      q(Lower Southern Aranda),
+      ],
+   q(0990) => [
+      q(Middle Armenian),
+      ],
+   q(0991) => [
+      q(Xaragure),
+      ],
+   q(0992) => [
+      q(Awar),
+      ],
+   q(0993) => [
+      q(Ayizo Gbe),
+      ],
+   q(0994) => [
+      q(Southern Aymara),
+      ],
+   q(0995) => [
+      q(Ayabadhu),
+      ],
+   q(0996) => [
+      q(Ayere),
+      ],
+   q(0997) => [
+      q(Ginyanga),
+      ],
+   q(0998) => [
+      q(Hadrami Arabic),
+      ],
+   q(0999) => [
+      q(Leyigha),
+      ],
+   q(1000) => [
+      q(Akuku),
+      ],
+   q(1001) => [
+      q(Libyan Arabic),
+      ],
+   q(1002) => [
+      q(Sanaani Arabic),
+      ],
+   q(1003) => [
+      q(Ayoreo),
+      ],
+   q(1004) => [
+      q(North Mesopotamian Arabic),
+      ],
+   q(1005) => [
+      q(Ayi (Papua New Guinea)),
+      ],
+   q(1006) => [
+      q(Central Aymara),
+      ],
+   q(1007) => [
+      q(Sorsogon Ayta),
+      ],
+   q(1008) => [
+      q(Magbukun Ayta),
+      ],
+   q(1009) => [
+      q(Ayu),
+      ],
+   q(1010) => [
+      q(Tayabas Ayta),
+      ],
+   q(1011) => [
+      q(Mai Brat),
+      ],
+   q(1012) => [
+      q(Azha),
+      ],
+   q(1013) => [
+      q(South Azerbaijani),
+      ],
+   q(1014) => [
+      q(Eastern Durango Nahuatl),
+      ],
+   q(1015) => [
+      q(San Pedro Amuzgos Amuzgo),
+      ],
+   q(1016) => [
+      q(North Azerbaijani),
+      ],
+   q(1017) => [
+      q(Ipalapa Amuzgo),
+      ],
+   q(1018) => [
+      q(Western Durango Nahuatl),
+      ],
+   q(1019) => [
+      q(Awing),
+      ],
+   q(1020) => [
+      q(Faire Atta),
+      ],
+   q(1021) => [
+      q(Highland Puebla Nahuatl),
+      ],
+   q(1022) => [
+      q(Babatana),
+      ],
+   q(1023) => [
+      q(Bainouk-Gunyuno),
+      ],
+   q(1024) => [
+      q(Badui),
+      ],
+   q(1025) => [
+      q(Bare),
+      ],
+   q(1026) => [
+      q(Nubaca),
+      ],
+   q(1027) => [
+      q(Tuki),
+      ],
+   q(1028) => [
+      q(Bahamas Creole English),
+      ],
+   q(1029) => [
+      q(Barakai),
+      ],
+   q(1030) => [
+      q(Waimaha),
+      ],
+   q(1031) => [
+      q(Bantawa),
+      ],
+   q(1032) => [
+      q(Bavarian),
+      ],
+   q(1033) => [
+      q(Bada (Nigeria)),
+      ],
+   q(1034) => [
+      q(Vengo),
+      ],
+   q(1035) => [
+      q(Bambili-Bambui),
+      ],
+   q(1036) => [
+      q(Bamun),
+      ],
+   q(1037) => [
+      q(Batuley),
+      ],
+   q(1038) => [
+      q(Baatonum),
+      ],
+   q(1039) => [
+      q(Barai),
+      ],
+   q(1040) => [
+      q(Batak Toba),
+      ],
+   q(1041) => [
+      q(Bau),
+      ],
+   q(1042) => [
+      q(Bangba),
+      ],
+   q(1043) => [
+      q(Baibai),
+      ],
+   q(1044) => [
+      q(Barama),
+      ],
+   q(1045) => [
+      q(Bugan),
+      ],
+   q(1046) => [
+      q(Barombi),
+      ],
+   q(1047) => [
+      q(Ghomala'),
+      ],
+   q(1048) => [
+      q(Babanki),
+      ],
+   q(1049) => [
+      q(Bats),
+      ],
+   q(1050) => [
+      q(Babango),
+      ],
+   q(1051) => [
+      q(Uneapa),
+      ],
+   q(1052) => [
+      q(Northern Bobo Madare),
+      q(Konabere),
+      ],
+   q(1053) => [
+      q(West Central Banda),
+      ],
+   q(1054) => [
+      q(Bamali),
+      ],
+   q(1055) => [
+      q(Girawa),
+      ],
+   q(1056) => [
+      q(Bakpinka),
+      ],
+   q(1057) => [
+      q(Mburku),
+      ],
+   q(1058) => [
+      q(Kulung (Nigeria)),
+      ],
+   q(1059) => [
+      q(Karnai),
+      ],
+   q(1060) => [
+      q(Baba),
+      ],
+   q(1061) => [
+      q(Bubia),
+      ],
+   q(1062) => [
+      q(Befang),
+      ],
+   q(1063) => [
+      q(Babalia Creole Arabic),
+      ],
+   q(1064) => [
+      q(Central Bai),
+      ],
+   q(1065) => [
+      q(Bainouk-Samik),
+      ],
+   q(1066) => [
+      q(Southern Balochi),
+      ],
+   q(1067) => [
+      q(North Babar),
+      ],
+   q(1068) => [
+      q(Bamenyam),
+      ],
+   q(1069) => [
+      q(Bamu),
+      ],
+   q(1070) => [
+      q(Baga Binari),
+      ],
+   q(1071) => [
+      q(Bariai),
+      ],
+   q(1072) => [
+      q(Baoule),
+      ],
+   q(1073) => [
+      q(Bardi),
+      ],
+   q(1074) => [
+      q(Bunaba),
+      ],
+   q(1075) => [
+      q(Central Bikol),
+      ],
+   q(1076) => [
+      q(Bannoni),
+      ],
+   q(1077) => [
+      q(Bali (Nigeria)),
+      ],
+   q(1078) => [
+      q(Kaluli),
+      ],
+   q(1079) => [
+      q(Bali (Democratic Republic of Congo)),
+      ],
+   q(1080) => [
+      q(Bench),
+      ],
+   q(1081) => [
+      q(Babine),
+      ],
+   q(1082) => [
+      q(Kohumono),
+      ],
+   q(1083) => [
+      q(Bendi),
+      ],
+   q(1084) => [
+      q(Awad Bing),
+      ],
+   q(1085) => [
+      q(Shoo-Minda-Nye),
+      ],
+   q(1086) => [
+      q(Bana),
+      ],
+   q(1087) => [
+      q(Bacama),
+      ],
+   q(1088) => [
+      q(Bainouk-Gunyaamolo),
+      ],
+   q(1089) => [
+      q(Bayot),
+      ],
+   q(1090) => [
+      q(Basap),
+      ],
+   q(1091) => [
+      q(Embera-Baudo),
+      ],
+   q(1092) => [
+      q(Bunama),
+      ],
+   q(1093) => [
+      q(Bade),
+      ],
+   q(1094) => [
+      q(Biage),
+      ],
+   q(1095) => [
+      q(Bonggi),
+      ],
+   q(1096) => [
+      q(Baka (Sudan)),
+      ],
+   q(1097) => [
+      q(Burun),
+      ],
+   q(1098) => [
+      q(Bai),
+      ],
+   q(1099) => [
+      q(Budukh),
+      ],
+   q(1100) => [
+      q(Indonesian Bajau),
+      ],
+   q(1101) => [
+      q(Buduma),
+      ],
+   q(1102) => [
+      q(Baldemu),
+      ],
+   q(1103) => [
+      q(Morom),
+      ],
+   q(1104) => [
+      q(Bende),
+      ],
+   q(1105) => [
+      q(Bahnar),
+      ],
+   q(1106) => [
+      q(West Coast Bajau),
+      ],
+   q(1107) => [
+      q(Burunge),
+      ],
+   q(1108) => [
+      q(Bokoto),
+      ],
+   q(1109) => [
+      q(Oroko),
+      ],
+   q(1110) => [
+      q(Bodo Parja),
+      ],
+   q(1111) => [
+      q(Baham),
+      ],
+   q(1112) => [
+      q(Budong-Budong),
+      ],
+   q(1113) => [
+      q(Bandjalang),
+      ],
+   q(1114) => [
+      q(Badeshi),
+      ],
+   q(1115) => [
+      q(Beaver),
+      ],
+   q(1116) => [
+      q(Bebele),
+      ],
+   q(1117) => [
+      q(Iceve-Maci),
+      ],
+   q(1118) => [
+      q(Bedoanas),
+      ],
+   q(1119) => [
+      q(Byangsi),
+      ],
+   q(1120) => [
+      q(Benabena),
+      ],
+   q(1121) => [
+      q(Belait),
+      ],
+   q(1122) => [
+      q(Biali),
+      ],
+   q(1123) => [
+      q(Bekati'),
+      ],
+   q(1124) => [
+      q(Bebeli),
+      ],
+   q(1125) => [
+      q(Beami),
+      ],
+   q(1126) => [
+      q(Besoa),
+      ],
+   q(1127) => [
+      q(Beembe),
+      ],
+   q(1128) => [
+      q(Besme),
+      ],
+   q(1129) => [
+      q(Guiberoua Bete),
+      ],
+   q(1130) => [
+      q(Blagar),
+      ],
+   q(1131) => [
+      q(Daloa Bete),
+      ],
+   q(1132) => [
+      q(Betawi),
+      ],
+   q(1133) => [
+      q(Jur Modo),
+      ],
+   q(1134) => [
+      q(Beli (Papua New Guinea)),
+      ],
+   q(1135) => [
+      q(Bena (Tanzania)),
+      ],
+   q(1136) => [
+      q(Bari),
+      ],
+   q(1137) => [
+      q(Pauri Bareli),
+      ],
+   q(1138) => [
+      q(Panyi Bai),
+      q(Northern Bai),
+      ],
+   q(1139) => [
+      q(Bafut),
+      ],
+   q(1140) => [
+      q(Betaf),
+      q(Tena),
+      ],
+   q(1141) => [
+      q(Bofi),
+      ],
+   q(1142) => [
+      q(Busang Kayan),
+      ],
+   q(1143) => [
+      q(Blafe),
+      ],
+   q(1144) => [
+      q(British Sign Language),
+      ],
+   q(1145) => [
+      q(Bafanji),
+      ],
+   q(1146) => [
+      q(Ban Khor Sign Language),
+      ],
+   q(1147) => [
+      q(Banda-Ndele),
+      ],
+   q(1148) => [
+      q(Mmen),
+      ],
+   q(1149) => [
+      q(Bunak),
+      ],
+   q(1150) => [
+      q(Malba Birifor),
+      ],
+   q(1151) => [
+      q(Beba),
+      ],
+   q(1152) => [
+      q(Badaga),
+      ],
+   q(1153) => [
+      q(Bazigar),
+      ],
+   q(1154) => [
+      q(Southern Bai),
+      ],
+   q(1155) => [
+      q(Balti),
+      ],
+   q(1156) => [
+      q(Gahri),
+      ],
+   q(1157) => [
+      q(Bondo),
+      ],
+   q(1158) => [
+      q(Bantayanon),
+      ],
+   q(1159) => [
+      q(Bagheli),
+      ],
+   q(1160) => [
+      q(Mahasu Pahari),
+      ],
+   q(1161) => [
+      q(Gwamhi-Wuri),
+      ],
+   q(1162) => [
+      q(Bobongko),
+      ],
+   q(1163) => [
+      q(Haryanvi),
+      ],
+   q(1164) => [
+      q(Rathwi Bareli),
+      ],
+   q(1165) => [
+      q(Bauria),
+      ],
+   q(1166) => [
+      q(Bangandu),
+      ],
+   q(1167) => [
+      q(Bugun),
+      ],
+   q(1168) => [
+      q(Giangan),
+      ],
+   q(1169) => [
+      q(Bangolan),
+      ],
+   q(1170) => [
+      q(Bit),
+      q(Buxinhua),
+      ],
+   q(1171) => [
+      q(Bo (Laos)),
+      ],
+   q(1172) => [
+      q(Baga Mboteni),
+      ],
+   q(1173) => [
+      q(Western Balochi),
+      ],
+   q(1174) => [
+      q(Baga Koga),
+      ],
+   q(1175) => [
+      q(Eastern Balochi),
+      ],
+   q(1176) => [
+      q(Bagri),
+      ],
+   q(1177) => [
+      q(Bawm Chin),
+      ],
+   q(1178) => [
+      q(Tagabawa),
+      ],
+   q(1179) => [
+      q(Bughotu),
+      ],
+   q(1180) => [
+      q(Mbongno),
+      ],
+   q(1181) => [
+      q(Warkay-Bipim),
+      ],
+   q(1182) => [
+      q(Bhatri),
+      ],
+   q(1183) => [
+      q(Balkan Gagauz Turkish),
+      ],
+   q(1184) => [
+      q(Benggoi),
+      ],
+   q(1185) => [
+      q(Banggai),
+      ],
+   q(1186) => [
+      q(Bharia),
+      ],
+   q(1187) => [
+      q(Bhili),
+      ],
+   q(1188) => [
+      q(Biga),
+      ],
+   q(1189) => [
+      q(Bhadrawahi),
+      ],
+   q(1190) => [
+      q(Bhaya),
+      ],
+   q(1191) => [
+      q(Odiai),
+      ],
+   q(1192) => [
+      q(Binandere),
+      ],
+   q(1193) => [
+      q(Bukharic),
+      ],
+   q(1194) => [
+      q(Bhilali),
+      ],
+   q(1195) => [
+      q(Bahing),
+      ],
+   q(1196) => [
+      q(Bimin),
+      ],
+   q(1197) => [
+      q(Bathari),
+      ],
+   q(1198) => [
+      q(Bohtan Neo-Aramaic),
+      ],
+   q(1199) => [
+      q(Bima),
+      ],
+   q(1200) => [
+      q(Tukang Besi South),
+      ],
+   q(1201) => [
+      q(Bara Malagasy),
+      ],
+   q(1202) => [
+      q(Buwal),
+      ],
+   q(1203) => [
+      q(Bhattiyali),
+      ],
+   q(1204) => [
+      q(Bhunjia),
+      ],
+   q(1205) => [
+      q(Bahau),
+      ],
+   q(1206) => [
+      q(Biak),
+      ],
+   q(1207) => [
+      q(Bhalay),
+      ],
+   q(1208) => [
+      q(Bhele),
+      ],
+   q(1209) => [
+      q(Bada (Indonesia)),
+      ],
+   q(1210) => [
+      q(Badimaya),
+      ],
+   q(1211) => [
+      q(Bissa),
+      q(Bisa),
+      ],
+   q(1212) => [
+      q(Bikaru),
+      ],
+   q(1213) => [
+      q(Bidiyo),
+      ],
+   q(1214) => [
+      q(Bepour),
+      ],
+   q(1215) => [
+      q(Biafada),
+      ],
+   q(1216) => [
+      q(Biangai),
+      ],
+   q(1217) => [
+      q(Vaghat-Ya-Bijim-Legeri),
+      ],
+   q(1218) => [
+      q(Bile),
+      ],
+   q(1219) => [
+      q(Bimoba),
+      ],
+   q(1220) => [
+      q(Nai),
+      ],
+   q(1221) => [
+      q(Bila),
+      ],
+   q(1222) => [
+      q(Bipi),
+      ],
+   q(1223) => [
+      q(Bisorio),
+      ],
+   q(1224) => [
+      q(Berinomo),
+      ],
+   q(1225) => [
+      q(Biete),
+      ],
+   q(1226) => [
+      q(Southern Birifor),
+      ],
+   q(1227) => [
+      q(Kol (Cameroon)),
+      ],
+   q(1228) => [
+      q(Bijori),
+      ],
+   q(1229) => [
+      q(Birhor),
+      ],
+   q(1230) => [
+      q(Baloi),
+      ],
+   q(1231) => [
+      q(Budza),
+      ],
+   q(1232) => [
+      q(Banggarla),
+      ],
+   q(1233) => [
+      q(Bariji),
+      ],
+   q(1234) => [
+      q(Biao-Jiao Mien),
+      ],
+   q(1235) => [
+      q(Barzani Jewish Neo-Aramaic),
+      ],
+   q(1236) => [
+      q(Bidyogo),
+      ],
+   q(1237) => [
+      q(Bahinemo),
+      ],
+   q(1238) => [
+      q(Burji),
+      ],
+   q(1239) => [
+      q(Kanauji),
+      ],
+   q(1240) => [
+      q(Barok),
+      ],
+   q(1241) => [
+      q(Bulu (Papua New Guinea)),
+      ],
+   q(1242) => [
+      q(Bajelani),
+      ],
+   q(1243) => [
+      q(Banjar),
+      ],
+   q(1244) => [
+      q(Mid-Southern Banda),
+      ],
+   q(1245) => [
+      q(Fanamaket),
+      ],
+   q(1246) => [
+      q(Binumarien),
+      ],
+   q(1247) => [
+      q(Bajan),
+      ],
+   q(1248) => [
+      q(Balanta-Ganja),
+      ],
+   q(1249) => [
+      q(Busuu),
+      ],
+   q(1250) => [
+      q(Bedjond),
+      ],
+   q(1251) => [
+      q(Bakwe),
+      ],
+   q(1252) => [
+      q(Banao Itneg),
+      ],
+   q(1253) => [
+      q(Bayali),
+      ],
+   q(1254) => [
+      q(Baruga),
+      ],
+   q(1255) => [
+      q(Kyak),
+      ],
+   q(1256) => [
+      q(Baka (Cameroon)),
+      ],
+   q(1257) => [
+      q(Binukid),
+      q(Talaandig),
+      ],
+   q(1258) => [
+      q(Beeke),
+      ],
+   q(1259) => [
+      q(Buraka),
+      ],
+   q(1260) => [
+      q(Bakoko),
+      ],
+   q(1261) => [
+      q(Baki),
+      ],
+   q(1262) => [
+      q(Pande),
+      ],
+   q(1263) => [
+      q(Brokskat),
+      ],
+   q(1264) => [
+      q(Berik),
+      ],
+   q(1265) => [
+      q(Kom (Cameroon)),
+      ],
+   q(1266) => [
+      q(Bukitan),
+      ],
+   q(1267) => [
+      q(Kwa'),
+      ],
+   q(1268) => [
+      q(Boko (Democratic Republic of Congo)),
+      ],
+   q(1269) => [
+      q(Bakairi),
+      ],
+   q(1270) => [
+      q(Bakumpai),
+      ],
+   q(1271) => [
+      q(Northern Sorsoganon),
+      ],
+   q(1272) => [
+      q(Boloki),
+      ],
+   q(1273) => [
+      q(Buhid),
+      ],
+   q(1274) => [
+      q(Bekwarra),
+      ],
+   q(1275) => [
+      q(Bekwel),
+      ],
+   q(1276) => [
+      q(Baikeno),
+      ],
+   q(1277) => [
+      q(Bokyi),
+      ],
+   q(1278) => [
+      q(Bungku),
+      ],
+   q(1279) => [
+      q(Bilua),
+      ],
+   q(1280) => [
+      q(Bella Coola),
+      ],
+   q(1281) => [
+      q(Bolango),
+      ],
+   q(1282) => [
+      q(Balanta-Kentohe),
+      ],
+   q(1283) => [
+      q(Buol),
+      ],
+   q(1284) => [
+      q(Balau),
+      ],
+   q(1285) => [
+      q(Kuwaa),
+      ],
+   q(1286) => [
+      q(Bolia),
+      ],
+   q(1287) => [
+      q(Bolongan),
+      ],
+   q(1288) => [
+      q(Pa'o Karen),
+      q(Pa'O),
+      ],
+   q(1289) => [
+      q(Biloxi),
+      ],
+   q(1290) => [
+      q(Beli (Sudan)),
+      ],
+   q(1291) => [
+      q(Southern Catanduanes Bikol),
+      ],
+   q(1292) => [
+      q(Anii),
+      ],
+   q(1293) => [
+      q(Blablanga),
+      ],
+   q(1294) => [
+      q(Baluan-Pam),
+      ],
+   q(1295) => [
+      q(Blang),
+      ],
+   q(1296) => [
+      q(Balaesang),
+      ],
+   q(1297) => [
+      q(Tai Dam),
+      ],
+   q(1298) => [
+      q(Bolo),
+      ],
+   q(1299) => [
+      q(Balangao),
+      ],
+   q(1300) => [
+      q(Mag-Indi Ayta),
+      ],
+   q(1301) => [
+      q(Notre),
+      ],
+   q(1302) => [
+      q(Balantak),
+      ],
+   q(1303) => [
+      q(Lame),
+      ],
+   q(1304) => [
+      q(Bembe),
+      ],
+   q(1305) => [
+      q(Biem),
+      ],
+   q(1306) => [
+      q(Baga Manduri),
+      ],
+   q(1307) => [
+      q(Limassa),
+      ],
+   q(1308) => [
+      q(Bom),
+      ],
+   q(1309) => [
+      q(Bamwe),
+      ],
+   q(1310) => [
+      q(Kein),
+      ],
+   q(1311) => [
+      q(Bagirmi),
+      ],
+   q(1312) => [
+      q(Bote-Majhi),
+      ],
+   q(1313) => [
+      q(Ghayavi),
+      ],
+   q(1314) => [
+      q(Bomboli),
+      ],
+   q(1315) => [
+      q(Northern Betsimisaraka Malagasy),
+      ],
+   q(1316) => [
+      q(Bina (Papua New Guinea)),
+      ],
+   q(1317) => [
+      q(Bambalang),
+      ],
+   q(1318) => [
+      q(Bulgebi),
+      ],
+   q(1319) => [
+      q(Bomu),
+      ],
+   q(1320) => [
+      q(Muinane),
+      ],
+   q(1321) => [
+      q(Bilma Kanuri),
+      ],
+   q(1322) => [
+      q(Biao Mon),
+      ],
+   q(1323) => [
+      q(Somba-Siawari),
+      ],
+   q(1324) => [
+      q(Bum),
+      ],
+   q(1325) => [
+      q(Bomwali),
+      ],
+   q(1326) => [
+      q(Baimak),
+      ],
+   q(1327) => [
+      q(Baramu),
+      ],
+   q(1328) => [
+      q(Bonerate),
+      ],
+   q(1329) => [
+      q(Bookan),
+      ],
+   q(1330) => [
+      q(Bontok),
+      ],
+   q(1331) => [
+      q(Banda (Indonesia)),
+      ],
+   q(1332) => [
+      q(Bintauna),
+      ],
+   q(1333) => [
+      q(Masiwang),
+      ],
+   q(1334) => [
+      q(Benga),
+      ],
+   q(1335) => [
+      q(Bangi),
+      ],
+   q(1336) => [
+      q(Eastern Tawbuid),
+      ],
+   q(1337) => [
+      q(Bierebo),
+      ],
+   q(1338) => [
+      q(Boon),
+      ],
+   q(1339) => [
+      q(Batanga),
+      ],
+   q(1340) => [
+      q(Bunun),
+      ],
+   q(1341) => [
+      q(Bantoanon),
+      ],
+   q(1342) => [
+      q(Bola),
+      ],
+   q(1343) => [
+      q(Bantik),
+      ],
+   q(1344) => [
+      q(Butmas-Tur),
+      ],
+   q(1345) => [
+      q(Bundeli),
+      ],
+   q(1346) => [
+      q(Bentong),
+      ],
+   q(1347) => [
+      q(Bonerif),
+      q(Beneraf),
+      q(Edwas),
+      ],
+   q(1348) => [
+      q(Bisis),
+      ],
+   q(1349) => [
+      q(Bangubangu),
+      ],
+   q(1350) => [
+      q(Bintulu),
+      ],
+   q(1351) => [
+      q(Beezen),
+      ],
+   q(1352) => [
+      q(Bora),
+      ],
+   q(1353) => [
+      q(Aweer),
+      ],
+   q(1354) => [
+      q(Mundabli),
+      ],
+   q(1355) => [
+      q(Bolon),
+      ],
+   q(1356) => [
+      q(Bamako Sign Language),
+      ],
+   q(1357) => [
+      q(Boma),
+      ],
+   q(1358) => [
+      q(Barbareno),
+      ],
+   q(1359) => [
+      q(Anjam),
+      ],
+   q(1360) => [
+      q(Bonjo),
+      ],
+   q(1361) => [
+      q(Bole),
+      ],
+   q(1362) => [
+      q(Berom),
+      ],
+   q(1363) => [
+      q(Bine),
+      ],
+   q(1364) => [
+      q(Tiemacewe Bozo),
+      ],
+   q(1365) => [
+      q(Bonkiman),
+      ],
+   q(1366) => [
+      q(Bogaya),
+      ],
+   q(1367) => [
+      q(Bororo),
+      ],
+   q(1368) => [
+      q(Bongo),
+      ],
+   q(1369) => [
+      q(Bondei),
+      ],
+   q(1370) => [
+      q(Tuwuli),
+      ],
+   q(1371) => [
+      q(Rema),
+      ],
+   q(1372) => [
+      q(Buamu),
+      ],
+   q(1373) => [
+      q(Bodo (Central African Republic)),
+      ],
+   q(1374) => [
+      q(Tieyaxo Bozo),
+      ],
+   q(1375) => [
+      q(Daakaka),
+      ],
+   q(1376) => [
+      q(Barbacoas),
+      ],
+   q(1377) => [
+      q(Banda-Banda),
+      ],
+   q(1378) => [
+      q(Bonggo),
+      ],
+   q(1379) => [
+      q(Botlikh),
+      ],
+   q(1380) => [
+      q(Bagupi),
+      ],
+   q(1381) => [
+      q(Binji),
+      ],
+   q(1382) => [
+      q(Orowe),
+      q('Oroe),
+      ],
+   q(1383) => [
+      q(Broome Pearling Lugger Pidgin),
+      ],
+   q(1384) => [
+      q(Biyom),
+      ],
+   q(1385) => [
+      q(Dzao Min),
+      ],
+   q(1386) => [
+      q(Anasi),
+      ],
+   q(1387) => [
+      q(Kaure),
+      ],
+   q(1388) => [
+      q(Banda Malay),
+      ],
+   q(1389) => [
+      q(Koronadal Blaan),
+      ],
+   q(1390) => [
+      q(Sarangani Blaan),
+      ],
+   q(1391) => [
+      q(Barrow Point),
+      ],
+   q(1392) => [
+      q(Bongu),
+      ],
+   q(1393) => [
+      q(Bian Marind),
+      ],
+   q(1394) => [
+      q(Bo (Papua New Guinea)),
+      ],
+   q(1395) => [
+      q(Palya Bareli),
+      ],
+   q(1396) => [
+      q(Bishnupriya),
+      ],
+   q(1397) => [
+      q(Bilba),
+      ],
+   q(1398) => [
+      q(Tchumbuli),
+      ],
+   q(1399) => [
+      q(Bagusa),
+      ],
+   q(1400) => [
+      q(Boko (Benin)),
+      q(Boo),
+      ],
+   q(1401) => [
+      q(Bung),
+      ],
+   q(1402) => [
+      q(Baga Kaloum),
+      ],
+   q(1403) => [
+      q(Bago-Kusuntu),
+      ],
+   q(1404) => [
+      q(Baima),
+      ],
+   q(1405) => [
+      q(Bakhtiari),
+      ],
+   q(1406) => [
+      q(Bandial),
+      ],
+   q(1407) => [
+      q(Banda-Mbres),
+      ],
+   q(1408) => [
+      q(Bilakura),
+      ],
+   q(1409) => [
+      q(Wumboko),
+      ],
+   q(1410) => [
+      q(Bulgarian Sign Language),
+      ],
+   q(1411) => [
+      q(Balo),
+      ],
+   q(1412) => [
+      q(Busa),
+      ],
+   q(1413) => [
+      q(Biritai),
+      ],
+   q(1414) => [
+      q(Burusu),
+      ],
+   q(1415) => [
+      q(Bosngun),
+      ],
+   q(1416) => [
+      q(Bamukumbit),
+      ],
+   q(1417) => [
+      q(Boguru),
+      ],
+   q(1418) => [
+      q(Koro Wachi),
+      q(Begbere-Ejar),
+      ],
+   q(1419) => [
+      q(Buru (Nigeria)),
+      ],
+   q(1420) => [
+      q(Baangi),
+      ],
+   q(1421) => [
+      q(Bengkala Sign Language),
+      ],
+   q(1422) => [
+      q(Bakaka),
+      ],
+   q(1423) => [
+      q(Lave),
+      ],
+   q(1424) => [
+      q(Berbice Creole Dutch),
+      ],
+   q(1425) => [
+      q(Baraamu),
+      ],
+   q(1426) => [
+      q(Bera),
+      ],
+   q(1427) => [
+      q(Baure),
+      ],
+   q(1428) => [
+      q(Brahui),
+      ],
+   q(1429) => [
+      q(Mokpwe),
+      ],
+   q(1430) => [
+      q(Bieria),
+      ],
+   q(1431) => [
+      q(Birked),
+      ],
+   q(1432) => [
+      q(Birwa),
+      ],
+   q(1433) => [
+      q(Barambu),
+      ],
+   q(1434) => [
+      q(Boruca),
+      ],
+   q(1435) => [
+      q(Brokkat),
+      ],
+   q(1436) => [
+      q(Barapasi),
+      ],
+   q(1437) => [
+      q(Breri),
+      ],
+   q(1438) => [
+      q(Birao),
+      ],
+   q(1439) => [
+      q(Baras),
+      ],
+   q(1440) => [
+      q(Bitare),
+      ],
+   q(1441) => [
+      q(Eastern Bru),
+      ],
+   q(1442) => [
+      q(Western Bru),
+      ],
+   q(1443) => [
+      q(Bellari),
+      ],
+   q(1444) => [
+      q(Bodo (India)),
+      ],
+   q(1445) => [
+      q(Burui),
+      ],
+   q(1446) => [
+      q(Bilbil),
+      ],
+   q(1447) => [
+      q(Abinomn),
+      ],
+   q(1448) => [
+      q(Brunei Bisaya),
+      ],
+   q(1449) => [
+      q(Bassari),
+      q(Oniyan),
+      ],
+   q(1450) => [
+      q(Wushi),
+      ],
+   q(1451) => [
+      q(Bauchi),
+      ],
+   q(1452) => [
+      q(Bashkardi),
+      ],
+   q(1453) => [
+      q(Kati),
+      ],
+   q(1454) => [
+      q(Bassossi),
+      ],
+   q(1455) => [
+      q(Bangwinji),
+      ],
+   q(1456) => [
+      q(Burushaski),
+      ],
+   q(1457) => [
+      q(Basa-Gumna),
+      ],
+   q(1458) => [
+      q(Busami),
+      ],
+   q(1459) => [
+      q(Barasana-Eduria),
+      ],
+   q(1460) => [
+      q(Buso),
+      ],
+   q(1461) => [
+      q(Baga Sitemu),
+      ],
+   q(1462) => [
+      q(Bassa),
+      ],
+   q(1463) => [
+      q(Bassa-Kontagora),
+      ],
+   q(1464) => [
+      q(Akoose),
+      ],
+   q(1465) => [
+      q(Basketo),
+      ],
+   q(1466) => [
+      q(Bahonsuai),
+      ],
+   q(1467) => [
+      q(Baga Sobane),
+      ],
+   q(1468) => [
+      q(Baiso),
+      ],
+   q(1469) => [
+      q(Yangkam),
+      ],
+   q(1470) => [
+      q(Sabah Bisaya),
+      ],
+   q(1471) => [
+      q(Bata),
+      ],
+   q(1472) => [
+      q(Bati (Cameroon)),
+      ],
+   q(1473) => [
+      q(Batak Dairi),
+      ],
+   q(1474) => [
+      q(Gamo-Ningi),
+      ],
+   q(1475) => [
+      q(Birgit),
+      ],
+   q(1476) => [
+      q(Gagnoa Bete),
+      ],
+   q(1477) => [
+      q(Biatah Bidayuh),
+      ],
+   q(1478) => [
+      q(Burate),
+      ],
+   q(1479) => [
+      q(Bacanese Malay),
+      ],
+   q(1480) => [
+      q(Bhatola),
+      ],
+   q(1481) => [
+      q(Batak Mandailing),
+      ],
+   q(1482) => [
+      q(Ratagnon),
+      ],
+   q(1483) => [
+      q(Rinconada Bikol),
+      ],
+   q(1484) => [
+      q(Budibud),
+      ],
+   q(1485) => [
+      q(Batek),
+      ],
+   q(1486) => [
+      q(Baetora),
+      ],
+   q(1487) => [
+      q(Batak Simalungun),
+      ],
+   q(1488) => [
+      q(Bete-Bendi),
+      ],
+   q(1489) => [
+      q(Batu),
+      ],
+   q(1490) => [
+      q(Bateri),
+      ],
+   q(1491) => [
+      q(Butuanon),
+      ],
+   q(1492) => [
+      q(Batak Karo),
+      ],
+   q(1493) => [
+      q(Bobot),
+      ],
+   q(1494) => [
+      q(Batak Alas-Kluet),
+      ],
+   q(1495) => [
+      q(Bua),
+      ],
+   q(1496) => [
+      q(Bushi),
+      ],
+   q(1497) => [
+      q(Ntcham),
+      ],
+   q(1498) => [
+      q(Beothuk),
+      ],
+   q(1499) => [
+      q(Bushoong),
+      ],
+   q(1500) => [
+      q(Younuo Bunu),
+      ],
+   q(1501) => [
+      q(Bongili),
+      ],
+   q(1502) => [
+      q(Basa-Gurmana),
+      ],
+   q(1503) => [
+      q(Bugawac),
+      ],
+   q(1504) => [
+      q(Bulu (Cameroon)),
+      ],
+   q(1505) => [
+      q(Sherbro),
+      ],
+   q(1506) => [
+      q(Terei),
+      ],
+   q(1507) => [
+      q(Busoa),
+      ],
+   q(1508) => [
+      q(Brem),
+      ],
+   q(1509) => [
+      q(Bokobaru),
+      ],
+   q(1510) => [
+      q(Bungain),
+      ],
+   q(1511) => [
+      q(Budu),
+      ],
+   q(1512) => [
+      q(Bun),
+      ],
+   q(1513) => [
+      q(Bubi),
+      ],
+   q(1514) => [
+      q(Boghom),
+      ],
+   q(1515) => [
+      q(Bullom So),
+      ],
+   q(1516) => [
+      q(Bukwen),
+      ],
+   q(1517) => [
+      q(Barein),
+      ],
+   q(1518) => [
+      q(Bube),
+      ],
+   q(1519) => [
+      q(Baelelea),
+      ],
+   q(1520) => [
+      q(Baeggu),
+      ],
+   q(1521) => [
+      q(Berau Malay),
+      ],
+   q(1522) => [
+      q(Boor),
+      ],
+   q(1523) => [
+      q(Bonkeng),
+      ],
+   q(1524) => [
+      q(Bure),
+      ],
+   q(1525) => [
+      q(Belanda Viri),
+      ],
+   q(1526) => [
+      q(Baan),
+      ],
+   q(1527) => [
+      q(Bukat),
+      ],
+   q(1528) => [
+      q(Bolivian Sign Language),
+      ],
+   q(1529) => [
+      q(Bamunka),
+      ],
+   q(1530) => [
+      q(Buna),
+      ],
+   q(1531) => [
+      q(Bolgo),
+      ],
+   q(1532) => [
+      q(Bumang),
+      ],
+   q(1533) => [
+      q(Birri),
+      ],
+   q(1534) => [
+      q(Burarra),
+      ],
+   q(1535) => [
+      q(Bati (Indonesia)),
+      ],
+   q(1536) => [
+      q(Bukit Malay),
+      ],
+   q(1537) => [
+      q(Baniva),
+      ],
+   q(1538) => [
+      q(Boga),
+      ],
+   q(1539) => [
+      q(Dibole),
+      ],
+   q(1540) => [
+      q(Baybayanon),
+      ],
+   q(1541) => [
+      q(Bauzi),
+      ],
+   q(1542) => [
+      q(Bwatoo),
+      ],
+   q(1543) => [
+      q(Namosi-Naitasiri-Serua),
+      ],
+   q(1544) => [
+      q(Bwile),
+      ],
+   q(1545) => [
+      q(Bwaidoka),
+      ],
+   q(1546) => [
+      q(Bwe Karen),
+      ],
+   q(1547) => [
+      q(Boselewa),
+      ],
+   q(1548) => [
+      q(Barwe),
+      ],
+   q(1549) => [
+      q(Bishuo),
+      ],
+   q(1550) => [
+      q(Baniwa),
+      ],
+   q(1551) => [
+      q(Laa Laa Bwamu),
+      ],
+   q(1552) => [
+      q(Bauwaki),
+      ],
+   q(1553) => [
+      q(Bwela),
+      ],
+   q(1554) => [
+      q(Biwat),
+      ],
+   q(1555) => [
+      q(Wunai Bunu),
+      ],
+   q(1556) => [
+      q(Boro (Ethiopia)),
+      q(Borna (Ethiopia)),
+      ],
+   q(1557) => [
+      q(Mandobo Bawah),
+      ],
+   q(1558) => [
+      q(Southern Bobo Madare),
+      ],
+   q(1559) => [
+      q(Bura-Pabir),
+      ],
+   q(1560) => [
+      q(Bomboma),
+      ],
+   q(1561) => [
+      q(Bafaw-Balong),
+      ],
+   q(1562) => [
+      q(Buli (Ghana)),
+      ],
+   q(1563) => [
+      q(Bwa),
+      ],
+   q(1564) => [
+      q(Bu-Nao Bunu),
+      ],
+   q(1565) => [
+      q(Cwi Bwamu),
+      ],
+   q(1566) => [
+      q(Bwisi),
+      ],
+   q(1567) => [
+      q(Tairaha),
+      ],
+   q(1568) => [
+      q(Belanda Bor),
+      ],
+   q(1569) => [
+      q(Molengue),
+      ],
+   q(1570) => [
+      q(Pela),
+      ],
+   q(1571) => [
+      q(Birale),
+      ],
+   q(1572) => [
+      q(Bilur),
+      q(Minigir),
+      ],
+   q(1573) => [
+      q(Bangala),
+      ],
+   q(1574) => [
+      q(Buhutu),
+      ],
+   q(1575) => [
+      q(Pirlatapa),
+      ],
+   q(1576) => [
+      q(Bayungu),
+      ],
+   q(1577) => [
+      q(Bukusu),
+      q(Lubukusu),
+      ],
+   q(1578) => [
+      q(Jalkunan),
+      ],
+   q(1579) => [
+      q(Mongolia Buriat),
+      ],
+   q(1580) => [
+      q(Burduna),
+      ],
+   q(1581) => [
+      q(Barikanchi),
+      ],
+   q(1582) => [
+      q(Bebil),
+      ],
+   q(1583) => [
+      q(Beele),
+      ],
+   q(1584) => [
+      q(Russia Buriat),
+      ],
+   q(1585) => [
+      q(Busam),
+      ],
+   q(1586) => [
+      q(China Buriat),
+      ],
+   q(1587) => [
+      q(Berakou),
+      ],
+   q(1588) => [
+      q(Bankagooma),
+      ],
+   q(1589) => [
+      q(Binahari),
+      ],
+   q(1590) => [
+      q(Batak),
+      ],
+   q(1591) => [
+      q(Bikya),
+      ],
+   q(1592) => [
+      q(Ubaghara),
+      ],
+   q(1593) => [
+      q(Benyadu'),
+      ],
+   q(1594) => [
+      q(Pouye),
+      ],
+   q(1595) => [
+      q(Bete),
+      ],
+   q(1596) => [
+      q(Baygo),
+      ],
+   q(1597) => [
+      q(Bhujel),
+      ],
+   q(1598) => [
+      q(Buyu),
+      ],
+   q(1599) => [
+      q(Bina (Nigeria)),
+      ],
+   q(1600) => [
+      q(Biao),
+      ],
+   q(1601) => [
+      q(Bayono),
+      ],
+   q(1602) => [
+      q(Bidyara),
+      ],
+   q(1603) => [
+      q(Biyo),
+      ],
+   q(1604) => [
+      q(Bumaji),
+      ],
+   q(1605) => [
+      q(Basay),
+      ],
+   q(1606) => [
+      q(Baruya),
+      q(Yipma),
+      ],
+   q(1607) => [
+      q(Burak),
+      ],
+   q(1608) => [
+      q(Berti),
+      ],
+   q(1609) => [
+      q(Medumba),
+      ],
+   q(1610) => [
+      q(Belhariya),
+      ],
+   q(1611) => [
+      q(Qaqet),
+      ],
+   q(1612) => [
+      q(Banaro),
+      ],
+   q(1613) => [
+      q(Bandi),
+      ],
+   q(1614) => [
+      q(Andio),
+      ],
+   q(1615) => [
+      q(Southern Betsimisaraka Malagasy),
+      ],
+   q(1616) => [
+      q(Bribri),
+      ],
+   q(1617) => [
+      q(Jenaama Bozo),
+      ],
+   q(1618) => [
+      q(Boikin),
+      ],
+   q(1619) => [
+      q(Babuza),
+      ],
+   q(1620) => [
+      q(Mapos Buang),
+      ],
+   q(1621) => [
+      q(Bisu),
+      ],
+   q(1622) => [
+      q(Belize Kriol English),
+      ],
+   q(1623) => [
+      q(Nicaragua Creole English),
+      ],
+   q(1624) => [
+      q(Boano (Sulawesi)),
+      ],
+   q(1625) => [
+      q(Bolondo),
+      ],
+   q(1626) => [
+      q(Boano (Maluku)),
+      ],
+   q(1627) => [
+      q(Bozaba),
+      ],
+   q(1628) => [
+      q(Kemberano),
+      ],
+   q(1629) => [
+      q(Buli (Indonesia)),
+      ],
+   q(1630) => [
+      q(Biri),
+      ],
+   q(1631) => [
+      q(Brazilian Sign Language),
+      ],
+   q(1632) => [
+      q(Brithenig),
+      ],
+   q(1633) => [
+      q(Burmeso),
+      ],
+   q(1634) => [
+      q(Naami),
+      ],
+   q(1635) => [
+      q(Basa (Nigeria)),
+      ],
+   q(1636) => [
+      q(Kelengazxo Bozo),
+      ],
+   q(1637) => [
+      q(Obanliku),
+      ],
+   q(1638) => [
+      q(Evant),
+      ],
+   q(1639) => [
+      q(Chorti),
+      ],
+   q(1640) => [
+      q(Garifuna),
+      ],
+   q(1641) => [
+      q(Chuj),
+      ],
+   q(1642) => [
+      q(Lehar),
+      q(Laalaa),
+      ],
+   q(1643) => [
+      q(Southern Carrier),
+      ],
+   q(1644) => [
+      q(Nivacle),
+      ],
+   q(1645) => [
+      q(Cahuarano),
+      ],
+   q(1646) => [
+      q(Chane),
+      ],
+   q(1647) => [
+      q(Kaqchikel),
+      q(Cakchiquel),
+      ],
+   q(1648) => [
+      q(Carolinian),
+      ],
+   q(1649) => [
+      q(Cemuhi),
+      ],
+   q(1650) => [
+      q(Chambri),
+      ],
+   q(1651) => [
+      q(Chacobo),
+      ],
+   q(1652) => [
+      q(Chipaya),
+      ],
+   q(1653) => [
+      q(Car Nicobarese),
+      ],
+   q(1654) => [
+      q(Tsimane),
+      ],
+   q(1655) => [
+      q(Cavinena),
+      ],
+   q(1656) => [
+      q(Callawalla),
+      ],
+   q(1657) => [
+      q(Chiquitano),
+      ],
+   q(1658) => [
+      q(Cayuga),
+      ],
+   q(1659) => [
+      q(Canichana),
+      ],
+   q(1660) => [
+      q(Cabiyari),
+      ],
+   q(1661) => [
+      q(Carapana),
+      ],
+   q(1662) => [
+      q(Carijona),
+      ],
+   q(1663) => [
+      q(Chipiajes),
+      ],
+   q(1664) => [
+      q(Chimila),
+      ],
+   q(1665) => [
+      q(Cagua),
+      ],
+   q(1666) => [
+      q(Chachi),
+      ],
+   q(1667) => [
+      q(Ede Cabe),
+      ],
+   q(1668) => [
+      q(Chavacano),
+      ],
+   q(1669) => [
+      q(Bualkhaw Chin),
+      ],
+   q(1670) => [
+      q(Nyahkur),
+      ],
+   q(1671) => [
+      q(Izora),
+      ],
+   q(1672) => [
+      q(Tsucuba),
+      q(Cuba),
+      ],
+   q(1673) => [
+      q(Cashibo-Cacataibo),
+      ],
+   q(1674) => [
+      q(Cashinahua),
+      ],
+   q(1675) => [
+      q(Chayahuita),
+      ],
+   q(1676) => [
+      q(Candoshi-Shapra),
+      ],
+   q(1677) => [
+      q(Cacua),
+      ],
+   q(1678) => [
+      q(Kinabalian),
+      ],
+   q(1679) => [
+      q(Carabayo),
+      ],
+   q(1680) => [
+      q(Cauca),
+      ],
+   q(1681) => [
+      q(Chamicuro),
+      ],
+   q(1682) => [
+      q(Cafundo Creole),
+      ],
+   q(1683) => [
+      q(Chopi),
+      ],
+   q(1684) => [
+      q(Samba Daka),
+      ],
+   q(1685) => [
+      q(Atsam),
+      ],
+   q(1686) => [
+      q(Kasanga),
+      ],
+   q(1687) => [
+      q(Cutchi-Swahili),
+      ],
+   q(1688) => [
+      q(Malaccan Creole Malay),
+      ],
+   q(1689) => [
+      q(Comaltepec Chinantec),
+      ],
+   q(1690) => [
+      q(Chakma),
+      ],
+   q(1691) => [
+      q(Cacaopera),
+      ],
+   q(1692) => [
+      q(Choni),
+      ],
+   q(1693) => [
+      q(Chenchu),
+      ],
+   q(1694) => [
+      q(Chiru),
+      ],
+   q(1695) => [
+      q(Chamari),
+      ],
+   q(1696) => [
+      q(Chambeali),
+      ],
+   q(1697) => [
+      q(Chodri),
+      ],
+   q(1698) => [
+      q(Churahi),
+      ],
+   q(1699) => [
+      q(Chepang),
+      ],
+   q(1700) => [
+      q(Chaudangsi),
+      ],
+   q(1701) => [
+      q(Min Dong Chinese),
+      ],
+   q(1702) => [
+      q(Cinda-Regi-Tiyal),
+      ],
+   q(1703) => [
+      q(Chadian Sign Language),
+      ],
+   q(1704) => [
+      q(Chadong),
+      ],
+   q(1705) => [
+      q(Koda),
+      ],
+   q(1706) => [
+      q(Lower Chehalis),
+      ],
+   q(1707) => [
+      q(Chamacoco),
+      ],
+   q(1708) => [
+      q(Eastern Khumi Chin),
+      ],
+   q(1709) => [
+      q(Cen),
+      ],
+   q(1710) => [
+      q(Centuum),
+      ],
+   q(1711) => [
+      q(Dijim-Bwilim),
+      ],
+   q(1712) => [
+      q(Cara),
+      ],
+   q(1713) => [
+      q(Como Karim),
+      ],
+   q(1714) => [
+      q(Falam Chin),
+      ],
+   q(1715) => [
+      q(Changriwa),
+      ],
+   q(1716) => [
+      q(Kagayanen),
+      ],
+   q(1717) => [
+      q(Chiga),
+      ],
+   q(1718) => [
+      q(Chocangacakha),
+      ],
+   q(1719) => [
+      q(Catawba),
+      ],
+   q(1720) => [
+      q(Highland Oaxaca Chontal),
+      ],
+   q(1721) => [
+      q(Tabasco Chontal),
+      ],
+   q(1722) => [
+      q(Chinook),
+      ],
+   q(1723) => [
+      q(Ojitlan Chinantec),
+      ],
+   q(1724) => [
+      q(Cahuilla),
+      ],
+   q(1725) => [
+      q(Quiotepec Chinantec),
+      ],
+   q(1726) => [
+      q(Cholon),
+      ],
+   q(1727) => [
+      q(Chuwabu),
+      ],
+   q(1728) => [
+      q(Chantyal),
+      ],
+   q(1729) => [
+      q(Ozumacin Chinantec),
+      ],
+   q(1730) => [
+      q(Cia-Cia),
+      ],
+   q(1731) => [
+      q(Ci Gbe),
+      ],
+   q(1732) => [
+      q(Chickasaw),
+      ],
+   q(1733) => [
+      q(Chimariko),
+      ],
+   q(1734) => [
+      q(Cineni),
+      ],
+   q(1735) => [
+      q(Chinali),
+      ],
+   q(1736) => [
+      q(Chitkuli Kinnauri),
+      ],
+   q(1737) => [
+      q(Cimbrian),
+      ],
+   q(1738) => [
+      q(Cinta Larga),
+      ],
+   q(1739) => [
+      q(Chiapanec),
+      ],
+   q(1740) => [
+      q(Tiri),
+      q(Hamea),
+      q(Mea),
+      ],
+   q(1741) => [
+      q(Chippewa),
+      ],
+   q(1742) => [
+      q(Chaima),
+      ],
+   q(1743) => [
+      q(Western Cham),
+      ],
+   q(1744) => [
+      q(Chru),
+      ],
+   q(1745) => [
+      q(Upper Chehalis),
+      ],
+   q(1746) => [
+      q(Chamalal),
+      ],
+   q(1747) => [
+      q(Chokwe),
+      ],
+   q(1748) => [
+      q(Eastern Cham),
+      ],
+   q(1749) => [
+      q(Chenapian),
+      ],
+   q(1750) => [
+      q(Asheninka Pajonal),
+      ],
+   q(1751) => [
+      q(Cabecar),
+      ],
+   q(1752) => [
+      q(Shor),
+      ],
+   q(1753) => [
+      q(Chuave),
+      ],
+   q(1754) => [
+      q(Jinyu Chinese),
+      ],
+   q(1755) => [
+      q(Central Kurdish),
+      ],
+   q(1756) => [
+      q(Chak),
+      ],
+   q(1757) => [
+      q(Cibak),
+      ],
+   q(1758) => [
+      q(Kaang Chin),
+      ],
+   q(1759) => [
+      q(Anufo),
+      ],
+   q(1760) => [
+      q(Kajakse),
+      ],
+   q(1761) => [
+      q(Kairak),
+      ],
+   q(1762) => [
+      q(Tayo),
+      ],
+   q(1763) => [
+      q(Chukot),
+      ],
+   q(1764) => [
+      q(Koasati),
+      ],
+   q(1765) => [
+      q(Kavalan),
+      ],
+   q(1766) => [
+      q(Caka),
+      ],
+   q(1767) => [
+      q(Cakfem-Mushere),
+      ],
+   q(1768) => [
+      q(Cakchiquel-Quiche Mixed Language),
+      ],
+   q(1769) => [
+      q(Ron),
+      ],
+   q(1770) => [
+      q(Chilcotin),
+      ],
+   q(1771) => [
+      q(Chaldean Neo-Aramaic),
+      ],
+   q(1772) => [
+      q(Lealao Chinantec),
+      ],
+   q(1773) => [
+      q(Chilisso),
+      ],
+   q(1774) => [
+      q(Chakali),
+      ],
+   q(1775) => [
+      q(Laitu Chin),
+      ],
+   q(1776) => [
+      q(Idu-Mishmi),
+      ],
+   q(1777) => [
+      q(Chala),
+      ],
+   q(1778) => [
+      q(Clallam),
+      ],
+   q(1779) => [
+      q(Lowland Oaxaca Chontal),
+      ],
+   q(1780) => [
+      q(Lautu Chin),
+      ],
+   q(1781) => [
+      q(Caluyanun),
+      ],
+   q(1782) => [
+      q(Chulym),
+      ],
+   q(1783) => [
+      q(Eastern Highland Chatino),
+      ],
+   q(1784) => [
+      q(Maa),
+      ],
+   q(1785) => [
+      q(Cerma),
+      ],
+   q(1786) => [
+      q(Classical Mongolian),
+      ],
+   q(1787) => [
+      q(Embera-Chami),
+      ],
+   q(1788) => [
+      q(Campalagian),
+      ],
+   q(1789) => [
+      q(Michigamea),
+      ],
+   q(1790) => [
+      q(Mandarin Chinese),
+      ],
+   q(1791) => [
+      q(Central Mnong),
+      ],
+   q(1792) => [
+      q(Mro-Khimi Chin),
+      ],
+   q(1793) => [
+      q(Messapic),
+      ],
+   q(1794) => [
+      q(Camtho),
+      ],
+   q(1795) => [
+      q(Changthang),
+      ],
+   q(1796) => [
+      q(Chinbon Chin),
+      ],
+   q(1797) => [
+      q(Coong),
+      ],
+   q(1798) => [
+      q(Northern Qiang),
+      ],
+   q(1799) => [
+      q(Haka Chin),
+      ],
+   q(1800) => [
+      q(Ashaninka),
+      ],
+   q(1801) => [
+      q(Khumi Chin),
+      ],
+   q(1802) => [
+      q(Lalana Chinantec),
+      ],
+   q(1803) => [
+      q(Con),
+      ],
+   q(1804) => [
+      q(Central Asmat),
+      ],
+   q(1805) => [
+      q(Tepetotutla Chinantec),
+      ],
+   q(1806) => [
+      q(Chenoua),
+      ],
+   q(1807) => [
+      q(Ngawn Chin),
+      ],
+   q(1808) => [
+      q(Middle Cornish),
+      ],
+   q(1809) => [
+      q(Cocos Islands Malay),
+      ],
+   q(1810) => [
+      q(Chicomuceltec),
+      ],
+   q(1811) => [
+      q(Cocopa),
+      ],
+   q(1812) => [
+      q(Cocama-Cocamilla),
+      ],
+   q(1813) => [
+      q(Koreguaje),
+      ],
+   q(1814) => [
+      q(Colorado),
+      ],
+   q(1815) => [
+      q(Chong),
+      ],
+   q(1816) => [
+      q(Chonyi-Dzihana-Kauma),
+      q(Chichonyi-Chidzihana-Chikauma),
+      ],
+   q(1817) => [
+      q(Cochimi),
+      ],
+   q(1818) => [
+      q(Santa Teresa Cora),
+      ],
+   q(1819) => [
+      q(Columbia-Wenatchi),
+      ],
+   q(1820) => [
+      q(Comanche),
+      ],
+   q(1821) => [
+      q(Cofan),
+      ],
+   q(1822) => [
+      q(Comox),
+      ],
+   q(1823) => [
+      q(Coquille),
+      ],
+   q(1824) => [
+      q(Caquinte),
+      ],
+   q(1825) => [
+      q(Wamey),
+      ],
+   q(1826) => [
+      q(Cao Miao),
+      ],
+   q(1827) => [
+      q(Cowlitz),
+      ],
+   q(1828) => [
+      q(Nanti),
+      ],
+   q(1829) => [
+      q(Coyaima),
+      ],
+   q(1830) => [
+      q(Chochotec),
+      ],
+   q(1831) => [
+      q(Palantla Chinantec),
+      ],
+   q(1832) => [
+      q(Ucayali-Yurua Asheninka),
+      ],
+   q(1833) => [
+      q(Ajyininka Apurucayali),
+      ],
+   q(1834) => [
+      q(Cappadocian Greek),
+      ],
+   q(1835) => [
+      q(Chinese Pidgin English),
+      ],
+   q(1836) => [
+      q(Cherepon),
+      ],
+   q(1837) => [
+      q(Kpeego),
+      ],
+   q(1838) => [
+      q(Capiznon),
+      ],
+   q(1839) => [
+      q(Pichis Asheninka),
+      ],
+   q(1840) => [
+      q(Pu-Xian Chinese),
+      ],
+   q(1841) => [
+      q(South Ucayali Asheninka),
+      ],
+   q(1842) => [
+      q(Chuanqiandian Cluster Miao),
+      ],
+   q(1843) => [
+      q(Chilean Quechua),
+      ],
+   q(1844) => [
+      q(Chara),
+      ],
+   q(1845) => [
+      q(Island Carib),
+      ],
+   q(1846) => [
+      q(Lonwolwol),
+      ],
+   q(1847) => [
+      q(Coeur d'Alene),
+      ],
+   q(1848) => [
+      q(Caramanta),
+      ],
+   q(1849) => [
+      q(Michif),
+      ],
+   q(1850) => [
+      q(Saotomense),
+      ],
+   q(1851) => [
+      q(Southern East Cree),
+      ],
+   q(1852) => [
+      q(Plains Cree),
+      ],
+   q(1853) => [
+      q(Northern East Cree),
+      ],
+   q(1854) => [
+      q(Moose Cree),
+      ],
+   q(1855) => [
+      q(El Nayar Cora),
+      ],
+   q(1856) => [
+      q(Crow),
+      ],
+   q(1857) => [
+      q(Iyo'wujwa Chorote),
+      ],
+   q(1858) => [
+      q(Carolina Algonquian),
+      ],
+   q(1859) => [
+      q(Seselwa Creole French),
+      ],
+   q(1860) => [
+      q(Iyojwa'ja Chorote),
+      ],
+   q(1861) => [
+      q(Chaura),
+      ],
+   q(1862) => [
+      q(Chrau),
+      ],
+   q(1863) => [
+      q(Carrier),
+      ],
+   q(1864) => [
+      q(Cori),
+      ],
+   q(1865) => [
+      q(Cruzeno),
+      ],
+   q(1866) => [
+      q(Chiltepec Chinantec),
+      ],
+   q(1867) => [
+      q(Catalan Sign Language),
+      q(Lengua de senas catalana),
+      q(Llengua de Signes Catalana),
+      ],
+   q(1868) => [
+      q(Chiangmai Sign Language),
+      ],
+   q(1869) => [
+      q(Czech Sign Language),
+      ],
+   q(1870) => [
+      q(Cuba Sign Language),
+      ],
+   q(1871) => [
+      q(Chilean Sign Language),
+      ],
+   q(1872) => [
+      q(Asho Chin),
+      ],
+   q(1873) => [
+      q(Coast Miwok),
+      ],
+   q(1874) => [
+      q(Songlai Chin),
+      ],
+   q(1875) => [
+      q(Jola-Kasa),
+      ],
+   q(1876) => [
+      q(Chinese Sign Language),
+      ],
+   q(1877) => [
+      q(Central Sierra Miwok),
+      ],
+   q(1878) => [
+      q(Colombian Sign Language),
+      ],
+   q(1879) => [
+      q(Sochiapam Chinantec),
+      q(Sochiapan Chinantec),
+      ],
+   q(1880) => [
+      q(Croatia Sign Language),
+      ],
+   q(1881) => [
+      q(Costa Rican Sign Language),
+      ],
+   q(1882) => [
+      q(Southern Ohlone),
+      ],
+   q(1883) => [
+      q(Northern Ohlone),
+      ],
+   q(1884) => [
+      q(Sumtu Chin),
+      ],
+   q(1885) => [
+      q(Swampy Cree),
+      ],
+   q(1886) => [
+      q(Siyin Chin),
+      ],
+   q(1887) => [
+      q(Coos),
+      ],
+   q(1888) => [
+      q(Tataltepec Chatino),
+      ],
+   q(1889) => [
+      q(Chetco),
+      ],
+   q(1890) => [
+      q(Tedim Chin),
+      ],
+   q(1891) => [
+      q(Tepinapa Chinantec),
+      ],
+   q(1892) => [
+      q(Chittagonian),
+      ],
+   q(1893) => [
+      q(Thaiphum Chin),
+      ],
+   q(1894) => [
+      q(Tlacoatzintepec Chinantec),
+      ],
+   q(1895) => [
+      q(Chitimacha),
+      ],
+   q(1896) => [
+      q(Chhintange),
+      ],
+   q(1897) => [
+      q(Embera-Catio),
+      ],
+   q(1898) => [
+      q(Western Highland Chatino),
+      ],
+   q(1899) => [
+      q(Northern Catanduanes Bikol),
+      ],
+   q(1900) => [
+      q(Wayanad Chetti),
+      ],
+   q(1901) => [
+      q(Chol),
+      ],
+   q(1902) => [
+      q(Zacatepec Chatino),
+      ],
+   q(1903) => [
+      q(Cua),
+      ],
+   q(1904) => [
+      q(Cubeo),
+      ],
+   q(1905) => [
+      q(Usila Chinantec),
+      ],
+   q(1906) => [
+      q(Cung),
+      ],
+   q(1907) => [
+      q(Chuka),
+      q(Gichuka),
+      ],
+   q(1908) => [
+      q(Cuiba),
+      ],
+   q(1909) => [
+      q(Mashco Piro),
+      ],
+   q(1910) => [
+      q(San Blas Kuna),
+      ],
+   q(1911) => [
+      q(Culina),
+      q(Kulina),
+      ],
+   q(1912) => [
+      q(Cumeral),
+      ],
+   q(1913) => [
+      q(Cumanagoto),
+      ],
+   q(1914) => [
+      q(Cupeno),
+      ],
+   q(1915) => [
+      q(Cun),
+      ],
+   q(1916) => [
+      q(Chhulung),
+      ],
+   q(1917) => [
+      q(Teutila Cuicatec),
+      ],
+   q(1918) => [
+      q(Tai Ya),
+      ],
+   q(1919) => [
+      q(Cuvok),
+      ],
+   q(1920) => [
+      q(Chukwa),
+      ],
+   q(1921) => [
+      q(Tepeuxila Cuicatec),
+      ],
+   q(1922) => [
+      q(Chug),
+      ],
+   q(1923) => [
+      q(Valle Nacional Chinantec),
+      ],
+   q(1924) => [
+      q(Kabwa),
+      ],
+   q(1925) => [
+      q(Maindo),
+      ],
+   q(1926) => [
+      q(Woods Cree),
+      ],
+   q(1927) => [
+      q(Kwere),
+      ],
+   q(1928) => [
+      q(Chewong),
+      q(Cheq Wong),
+      ],
+   q(1929) => [
+      q(Kuwaataay),
+      ],
+   q(1930) => [
+      q(Nopala Chatino),
+      ],
+   q(1931) => [
+      q(Cayubaba),
+      ],
+   q(1932) => [
+      q(Cuyonon),
+      ],
+   q(1933) => [
+      q(Huizhou Chinese),
+      ],
+   q(1934) => [
+      q(Knaanic),
+      ],
+   q(1935) => [
+      q(Zenzontepec Chatino),
+      ],
+   q(1936) => [
+      q(Min Zhong Chinese),
+      ],
+   q(1937) => [
+      q(Zotung Chin),
+      ],
+   q(1938) => [
+      q(Dangaleat),
+      ],
+   q(1939) => [
+      q(Dambi),
+      ],
+   q(1940) => [
+      q(Marik),
+      ],
+   q(1941) => [
+      q(Duupa),
+      ],
+   q(1942) => [
+      q(Dagbani),
+      ],
+   q(1943) => [
+      q(Gwahatike),
+      ],
+   q(1944) => [
+      q(Day),
+      ],
+   q(1945) => [
+      q(Dar Fur Daju),
+      ],
+   q(1946) => [
+      q(Dahalo),
+      ],
+   q(1947) => [
+      q(Damakawa),
+      ],
+   q(1948) => [
+      q(Daai Chin),
+      ],
+   q(1949) => [
+      q(Dandami Maria),
+      ],
+   q(1950) => [
+      q(Daho-Doo),
+      ],
+   q(1951) => [
+      q(Dar Sila Daju),
+      ],
+   q(1952) => [
+      q(Taita),
+      q(Dawida),
+      ],
+   q(1953) => [
+      q(Davawenyo),
+      ],
+   q(1954) => [
+      q(Dayi),
+      ],
+   q(1955) => [
+      q(Dao),
+      ],
+   q(1956) => [
+      q(Bangime),
+      ],
+   q(1957) => [
+      q(Deno),
+      ],
+   q(1958) => [
+      q(Dadiya),
+      ],
+   q(1959) => [
+      q(Dabe),
+      ],
+   q(1960) => [
+      q(Edopi),
+      ],
+   q(1961) => [
+      q(Dogul Dom Dogon),
+      ],
+   q(1962) => [
+      q(Doka),
+      ],
+   q(1963) => [
+      q(Ida'an),
+      ],
+   q(1964) => [
+      q(Dyirbal),
+      ],
+   q(1965) => [
+      q(Duguri),
+      ],
+   q(1966) => [
+      q(Duriankere),
+      ],
+   q(1967) => [
+      q(Dulbu),
+      ],
+   q(1968) => [
+      q(Duwai),
+      ],
+   q(1969) => [
+      q(Daba),
+      ],
+   q(1970) => [
+      q(Dabarre),
+      ],
+   q(1971) => [
+      q(Ben Tey Dogon),
+      ],
+   q(1972) => [
+      q(Bondum Dom Dogon),
+      ],
+   q(1973) => [
+      q(Dungu),
+      ],
+   q(1974) => [
+      q(Bankan Tey Dogon),
+      ],
+   q(1975) => [
+      q(Dibiyaso),
+      ],
+   q(1976) => [
+      q(Deccan),
+      ],
+   q(1977) => [
+      q(Negerhollands),
+      ],
+   q(1978) => [
+      q(Dadi Dadi),
+      ],
+   q(1979) => [
+      q(Dongotono),
+      ],
+   q(1980) => [
+      q(Doondo),
+      ],
+   q(1981) => [
+      q(Fataluku),
+      ],
+   q(1982) => [
+      q(West Goodenough),
+      ],
+   q(1983) => [
+      q(Jaru),
+      ],
+   q(1984) => [
+      q(Dendi (Benin)),
+      ],
+   q(1985) => [
+      q(Dido),
+      ],
+   q(1986) => [
+      q(Dhudhuroa),
+      ],
+   q(1987) => [
+      q(Donno So Dogon),
+      ],
+   q(1988) => [
+      q(Dawera-Daweloor),
+      ],
+   q(1989) => [
+      q(Dagik),
+      ],
+   q(1990) => [
+      q(Dedua),
+      ],
+   q(1991) => [
+      q(Dewoin),
+      ],
+   q(1992) => [
+      q(Dezfuli),
+      ],
+   q(1993) => [
+      q(Degema),
+      ],
+   q(1994) => [
+      q(Dehwari),
+      ],
+   q(1995) => [
+      q(Demisa),
+      ],
+   q(1996) => [
+      q(Dek),
+      ],
+   q(1997) => [
+      q(Dem),
+      ],
+   q(1998) => [
+      q(Pidgin Delaware),
+      ],
+   q(1999) => [
+      q(Dendi (Central African Republic)),
+      ],
+   q(2000) => [
+      q(Deori),
+      ],
+   q(2001) => [
+      q(Desano),
+      ],
+   q(2002) => [
+      q(Domung),
+      ],
+   q(2003) => [
+      q(Dengese),
+      ],
+   q(2004) => [
+      q(Southern Dagaare),
+      ],
+   q(2005) => [
+      q(Bunoge Dogon),
+      ],
+   q(2006) => [
+      q(Casiguran Dumagat Agta),
+      ],
+   q(2007) => [
+      q(Dagaari Dioula),
+      ],
+   q(2008) => [
+      q(Degenan),
+      ],
+   q(2009) => [
+      q(Doga),
+      ],
+   q(2010) => [
+      q(Dghwede),
+      ],
+   q(2011) => [
+      q(Northern Dagara),
+      ],
+   q(2012) => [
+      q(Dagba),
+      ],
+   q(2013) => [
+      q(Andaandi),
+      q(Dongolawi),
+      ],
+   q(2014) => [
+      q(Dagoman),
+      ],
+   q(2015) => [
+      q(Dogri (individual language)),
+      ],
+   q(2016) => [
+      q(Dogoso),
+      ],
+   q(2017) => [
+      q(Ndra'ngith),
+      ],
+   q(2018) => [
+      q(Degaru),
+      ],
+   q(2019) => [
+      q(Daungwurrung),
+      ],
+   q(2020) => [
+      q(Doghoro),
+      ],
+   q(2021) => [
+      q(Daga),
+      ],
+   q(2022) => [
+      q(Dhundari),
+      ],
+   q(2023) => [
+      q(Dhangu),
+      q(Djangu),
+      ],
+   q(2024) => [
+      q(Dhimal),
+      ],
+   q(2025) => [
+      q(Dhalandji),
+      ],
+   q(2026) => [
+      q(Zemba),
+      ],
+   q(2027) => [
+      q(Dhanki),
+      ],
+   q(2028) => [
+      q(Dhodia),
+      ],
+   q(2029) => [
+      q(Dhargari),
+      ],
+   q(2030) => [
+      q(Dhaiso),
+      ],
+   q(2031) => [
+      q(Dhurga),
+      ],
+   q(2032) => [
+      q(Dehu),
+      q(Drehu),
+      ],
+   q(2033) => [
+      q(Dhanwar (Nepal)),
+      ],
+   q(2034) => [
+      q(Dhungaloo),
+      ],
+   q(2035) => [
+      q(Dia),
+      ],
+   q(2036) => [
+      q(South Central Dinka),
+      ],
+   q(2037) => [
+      q(Lakota Dida),
+      ],
+   q(2038) => [
+      q(Didinga),
+      ],
+   q(2039) => [
+      q(Dieri),
+      ],
+   q(2040) => [
+      q(Digo),
+      q(Chidigo),
+      ],
+   q(2041) => [
+      q(Kumiai),
+      ],
+   q(2042) => [
+      q(Dimbong),
+      ],
+   q(2043) => [
+      q(Dai),
+      ],
+   q(2044) => [
+      q(Southwestern Dinka),
+      ],
+   q(2045) => [
+      q(Dilling),
+      ],
+   q(2046) => [
+      q(Dime),
+      ],
+   q(2047) => [
+      q(Dibo),
+      ],
+   q(2048) => [
+      q(Northeastern Dinka),
+      ],
+   q(2049) => [
+      q(Dimli (individual language)),
+      ],
+   q(2050) => [
+      q(Dirim),
+      ],
+   q(2051) => [
+      q(Dimasa),
+      ],
+   q(2052) => [
+      q(Dirari),
+      ],
+   q(2053) => [
+      q(Diriku),
+      ],
+   q(2054) => [
+      q(Northwestern Dinka),
+      ],
+   q(2055) => [
+      q(Dixon Reef),
+      ],
+   q(2056) => [
+      q(Diuwe),
+      ],
+   q(2057) => [
+      q(Ding),
+      ],
+   q(2058) => [
+      q(Djadjawurrung),
+      ],
+   q(2059) => [
+      q(Djinba),
+      ],
+   q(2060) => [
+      q(Dar Daju Daju),
+      ],
+   q(2061) => [
+      q(Djamindjung),
+      ],
+   q(2062) => [
+      q(Zarma),
+      ],
+   q(2063) => [
+      q(Djangun),
+      ],
+   q(2064) => [
+      q(Djinang),
+      ],
+   q(2065) => [
+      q(Djeebbana),
+      ],
+   q(2066) => [
+      q(Eastern Maroon Creole),
+      q(Businenge Tongo),
+      q(Nenge),
+      ],
+   q(2067) => [
+      q(Jamsay Dogon),
+      ],
+   q(2068) => [
+      q(Djauan),
+      ],
+   q(2069) => [
+      q(Jangkang),
+      ],
+   q(2070) => [
+      q(Djambarrpuyngu),
+      ],
+   q(2071) => [
+      q(Kapriman),
+      ],
+   q(2072) => [
+      q(Djawi),
+      ],
+   q(2073) => [
+      q(Dakpakha),
+      ],
+   q(2074) => [
+      q(Dakka),
+      ],
+   q(2075) => [
+      q(Kuijau),
+      ],
+   q(2076) => [
+      q(Southeastern Dinka),
+      ],
+   q(2077) => [
+      q(Mazagway),
+      ],
+   q(2078) => [
+      q(Dolgan),
+      ],
+   q(2079) => [
+      q(Dahalik),
+      ],
+   q(2080) => [
+      q(Dalmatian),
+      ],
+   q(2081) => [
+      q(Darlong),
+      ],
+   q(2082) => [
+      q(Duma),
+      ],
+   q(2083) => [
+      q(Mombo Dogon),
+      ],
+   q(2084) => [
+      q(Gavak),
+      ],
+   q(2085) => [
+      q(Madhi Madhi),
+      ],
+   q(2086) => [
+      q(Dugwor),
+      ],
+   q(2087) => [
+      q(Upper Kinabatangan),
+      ],
+   q(2088) => [
+      q(Domaaki),
+      ],
+   q(2089) => [
+      q(Dameli),
+      ],
+   q(2090) => [
+      q(Dama),
+      ],
+   q(2091) => [
+      q(Kemedzung),
+      ],
+   q(2092) => [
+      q(East Damar),
+      ],
+   q(2093) => [
+      q(Dampelas),
+      ],
+   q(2094) => [
+      q(Dubu),
+      q(Tebi),
+      ],
+   q(2095) => [
+      q(Dumpas),
+      ],
+   q(2096) => [
+      q(Mudburra),
+      ],
+   q(2097) => [
+      q(Dema),
+      ],
+   q(2098) => [
+      q(Demta),
+      q(Sowari),
+      ],
+   q(2099) => [
+      q(Upper Grand Valley Dani),
+      ],
+   q(2100) => [
+      q(Daonda),
+      ],
+   q(2101) => [
+      q(Ndendeule),
+      ],
+   q(2102) => [
+      q(Dungan),
+      ],
+   q(2103) => [
+      q(Lower Grand Valley Dani),
+      ],
+   q(2104) => [
+      q(Dan),
+      ],
+   q(2105) => [
+      q(Dengka),
+      ],
+   q(2106) => [
+      q(Dzuungoo),
+      ],
+   q(2107) => [
+      q(Danaru),
+      ],
+   q(2108) => [
+      q(Mid Grand Valley Dani),
+      ],
+   q(2109) => [
+      q(Danau),
+      ],
+   q(2110) => [
+      q(Danu),
+      ],
+   q(2111) => [
+      q(Western Dani),
+      ],
+   q(2112) => [
+      q(Deni),
+      ],
+   q(2113) => [
+      q(Dom),
+      ],
+   q(2114) => [
+      q(Dobu),
+      ],
+   q(2115) => [
+      q(Northern Dong),
+      ],
+   q(2116) => [
+      q(Doe),
+      ],
+   q(2117) => [
+      q(Domu),
+      ],
+   q(2118) => [
+      q(Dong),
+      ],
+   q(2119) => [
+      q(Dondo),
+      ],
+   q(2120) => [
+      q(Doso),
+      ],
+   q(2121) => [
+      q(Toura (Papua New Guinea)),
+      ],
+   q(2122) => [
+      q(Dongo),
+      ],
+   q(2123) => [
+      q(Lukpa),
+      ],
+   q(2124) => [
+      q(Dominican Sign Language),
+      ],
+   q(2125) => [
+      q(Dori'o),
+      ],
+   q(2126) => [
+      q(Dogose),
+      ],
+   q(2127) => [
+      q(Dass),
+      ],
+   q(2128) => [
+      q(Dombe),
+      ],
+   q(2129) => [
+      q(Doyayo),
+      ],
+   q(2130) => [
+      q(Bussa),
+      ],
+   q(2131) => [
+      q(Dompo),
+      ],
+   q(2132) => [
+      q(Dorze),
+      ],
+   q(2133) => [
+      q(Papar),
+      ],
+   q(2134) => [
+      q(Dair),
+      ],
+   q(2135) => [
+      q(Minderico),
+      ],
+   q(2136) => [
+      q(Darmiya),
+      ],
+   q(2137) => [
+      q(Dolpo),
+      ],
+   q(2138) => [
+      q(Rungus),
+      ],
+   q(2139) => [
+      q(C'lela),
+      ],
+   q(2140) => [
+      q(Paakantyi),
+      ],
+   q(2141) => [
+      q(West Damar),
+      ],
+   q(2142) => [
+      q(Daro-Matu Melanau),
+      ],
+   q(2143) => [
+      q(Dura),
+      ],
+   q(2144) => [
+      q(Dororo),
+      ],
+   q(2145) => [
+      q(Gedeo),
+      ],
+   q(2146) => [
+      q(Drents),
+      ],
+   q(2147) => [
+      q(Rukai),
+      ],
+   q(2148) => [
+      q(Darai),
+      ],
+   q(2149) => [
+      q(Dutch Sign Language),
+      ],
+   q(2150) => [
+      q(Daasanach),
+      ],
+   q(2151) => [
+      q(Disa),
+      ],
+   q(2152) => [
+      q(Danish Sign Language),
+      ],
+   q(2153) => [
+      q(Dusner),
+      ],
+   q(2154) => [
+      q(Desiya),
+      ],
+   q(2155) => [
+      q(Tadaksahak),
+      ],
+   q(2156) => [
+      q(Daur),
+      ],
+   q(2157) => [
+      q(Labuk-Kinabatangan Kadazan),
+      ],
+   q(2158) => [
+      q(Ditidaht),
+      ],
+   q(2159) => [
+      q(Adithinngithigh),
+      ],
+   q(2160) => [
+      q(Ana Tinga Dogon),
+      ],
+   q(2161) => [
+      q(Tene Kan Dogon),
+      ],
+   q(2162) => [
+      q(Tomo Kan Dogon),
+      ],
+   q(2163) => [
+      q(Tommo So Dogon),
+      ],
+   q(2164) => [
+      q(Central Dusun),
+      ],
+   q(2165) => [
+      q(Lotud),
+      ],
+   q(2166) => [
+      q(Toro So Dogon),
+      ],
+   q(2167) => [
+      q(Toro Tegu Dogon),
+      ],
+   q(2168) => [
+      q(Tebul Ure Dogon),
+      ],
+   q(2169) => [
+      q(Dotyali),
+      ],
+   q(2170) => [
+      q(Dubli),
+      ],
+   q(2171) => [
+      q(Duna),
+      ],
+   q(2172) => [
+      q(Hun-Saare),
+      ],
+   q(2173) => [
+      q(Umiray Dumaget Agta),
+      ],
+   q(2174) => [
+      q(Dumbea),
+      q(Drubea),
+      ],
+   q(2175) => [
+      q(Duruma),
+      q(Chiduruma),
+      ],
+   q(2176) => [
+      q(Dungra Bhil),
+      ],
+   q(2177) => [
+      q(Dumun),
+      ],
+   q(2178) => [
+      q(Dhuwal),
+      ],
+   q(2179) => [
+      q(Uyajitaya),
+      ],
+   q(2180) => [
+      q(Alabat Island Agta),
+      ],
+   q(2181) => [
+      q(Dusun Deyah),
+      ],
+   q(2182) => [
+      q(Dupaninan Agta),
+      ],
+   q(2183) => [
+      q(Duano),
+      ],
+   q(2184) => [
+      q(Dusun Malang),
+      ],
+   q(2185) => [
+      q(Dii),
+      ],
+   q(2186) => [
+      q(Dumi),
+      ],
+   q(2187) => [
+      q(Drung),
+      ],
+   q(2188) => [
+      q(Duvle),
+      ],
+   q(2189) => [
+      q(Dusun Witu),
+      ],
+   q(2190) => [
+      q(Duungooma),
+      ],
+   q(2191) => [
+      q(Dicamay Agta),
+      ],
+   q(2192) => [
+      q(Duli),
+      ],
+   q(2193) => [
+      q(Duau),
+      ],
+   q(2194) => [
+      q(Diri),
+      ],
+   q(2195) => [
+      q(Dawro),
+      ],
+   q(2196) => [
+      q(Dutton World Speedwords),
+      ],
+   q(2197) => [
+      q(Dawawa),
+      ],
+   q(2198) => [
+      q(Dyan),
+      ],
+   q(2199) => [
+      q(Dyaberdyaber),
+      ],
+   q(2200) => [
+      q(Dyugun),
+      ],
+   q(2201) => [
+      q(Villa Viciosa Agta),
+      ],
+   q(2202) => [
+      q(Djimini Senoufo),
+      ],
+   q(2203) => [
+      q(Yanda Dom Dogon),
+      ],
+   q(2204) => [
+      q(Dyangadi),
+      ],
+   q(2205) => [
+      q(Jola-Fonyi),
+      ],
+   q(2206) => [
+      q(Dyaabugay),
+      ],
+   q(2207) => [
+      q(Tunzu),
+      ],
+   q(2208) => [
+      q(Djiwarli),
+      ],
+   q(2209) => [
+      q(Dazaga),
+      ],
+   q(2210) => [
+      q(Dzalakha),
+      ],
+   q(2211) => [
+      q(Dzando),
+      ],
+   q(2212) => [
+      q(Karenggapa),
+      ],
+   q(2213) => [
+      q(Ebughu),
+      ],
+   q(2214) => [
+      q(Eastern Bontok),
+      ],
+   q(2215) => [
+      q(Teke-Ebo),
+      ],
+   q(2216) => [
+      q(Ebrie),
+      ],
+   q(2217) => [
+      q(Embu),
+      q(Kiembu),
+      ],
+   q(2218) => [
+      q(Eteocretan),
+      ],
+   q(2219) => [
+      q(Ecuadorian Sign Language),
+      ],
+   q(2220) => [
+      q(Eteocypriot),
+      ],
+   q(2221) => [
+      q(E),
+      ],
+   q(2222) => [
+      q(Efai),
+      ],
+   q(2223) => [
+      q(Efe),
+      ],
+   q(2224) => [
+      q(Ega),
+      ],
+   q(2225) => [
+      q(Emilian),
+      ],
+   q(2226) => [
+      q(Eggon),
+      ],
+   q(2227) => [
+      q(Ehueun),
+      ],
+   q(2228) => [
+      q(Eipomek),
+      ],
+   q(2229) => [
+      q(Eitiep),
+      ],
+   q(2230) => [
+      q(Askopan),
+      ],
+   q(2231) => [
+      q(Ejamat),
+      ],
+   q(2232) => [
+      q(Eastern Karnic),
+      ],
+   q(2233) => [
+      q(Ekit),
+      ],
+   q(2234) => [
+      q(Ekari),
+      ],
+   q(2235) => [
+      q(Eki),
+      ],
+   q(2236) => [
+      q(Standard Estonian),
+      ],
+   q(2237) => [
+      q(Kol (Bangladesh)),
+      q(Kol),
+      ],
+   q(2238) => [
+      q(Elip),
+      ],
+   q(2239) => [
+      q(Koti),
+      ],
+   q(2240) => [
+      q(Ekpeye),
+      ],
+   q(2241) => [
+      q(Yace),
+      ],
+   q(2242) => [
+      q(Eastern Kayah),
+      ],
+   q(2243) => [
+      q(Elepi),
+      ],
+   q(2244) => [
+      q(El Hugeirat),
+      ],
+   q(2245) => [
+      q(Nding),
+      ],
+   q(2246) => [
+      q(Elkei),
+      ],
+   q(2247) => [
+      q(Eleme),
+      ],
+   q(2248) => [
+      q(El Molo),
+      ],
+   q(2249) => [
+      q(Elu),
+      ],
+   q(2250) => [
+      q(Emai-Iuleha-Ora),
+      ],
+   q(2251) => [
+      q(Embaloh),
+      ],
+   q(2252) => [
+      q(Emerillon),
+      ],
+   q(2253) => [
+      q(Eastern Meohang),
+      ],
+   q(2254) => [
+      q(Mussau-Emira),
+      ],
+   q(2255) => [
+      q(Eastern Maninkakan),
+      ],
+   q(2256) => [
+      q(Mamulique),
+      ],
+   q(2257) => [
+      q(Eman),
+      ],
+   q(2258) => [
+      q(Northern Embera),
+      ],
+   q(2259) => [
+      q(Pacific Gulf Yupik),
+      ],
+   q(2260) => [
+      q(Eastern Muria),
+      ],
+   q(2261) => [
+      q(Emplawas),
+      ],
+   q(2262) => [
+      q(Erromintxela),
+      ],
+   q(2263) => [
+      q(Epigraphic Mayan),
+      ],
+   q(2264) => [
+      q(Apali),
+      ],
+   q(2265) => [
+      q(Markweeta),
+      ],
+   q(2266) => [
+      q(En),
+      ],
+   q(2267) => [
+      q(Ende),
+      ],
+   q(2268) => [
+      q(Forest Enets),
+      ],
+   q(2269) => [
+      q(Tundra Enets),
+      ],
+   q(2270) => [
+      q(Enlhet),
+      ],
+   q(2271) => [
+      q(Engenni),
+      ],
+   q(2272) => [
+      q(Enggano),
+      ],
+   q(2273) => [
+      q(Enga),
+      ],
+   q(2274) => [
+      q(Emumu),
+      q(Emem),
+      ],
+   q(2275) => [
+      q(Enu),
+      ],
+   q(2276) => [
+      q(Enwan (Edu State)),
+      ],
+   q(2277) => [
+      q(Enwan (Akwa Ibom State)),
+      ],
+   q(2278) => [
+      q(Enxet),
+      ],
+   q(2279) => [
+      q(Beti (Cote d'Ivoire)),
+      ],
+   q(2280) => [
+      q(Epie),
+      ],
+   q(2281) => [
+      q(Eravallan),
+      ],
+   q(2282) => [
+      q(Sie),
+      ],
+   q(2283) => [
+      q(Eruwa),
+      ],
+   q(2284) => [
+      q(Ogea),
+      ],
+   q(2285) => [
+      q(South Efate),
+      ],
+   q(2286) => [
+      q(Horpa),
+      ],
+   q(2287) => [
+      q(Erre),
+      ],
+   q(2288) => [
+      q(Ersu),
+      ],
+   q(2289) => [
+      q(Eritai),
+      ],
+   q(2290) => [
+      q(Erokwanas),
+      ],
+   q(2291) => [
+      q(Ese Ejja),
+      ],
+   q(2292) => [
+      q(Eshtehardi),
+      ],
+   q(2293) => [
+      q(North Alaskan Inupiatun),
+      ],
+   q(2294) => [
+      q(Northwest Alaska Inupiatun),
+      ],
+   q(2295) => [
+      q(Egypt Sign Language),
+      ],
+   q(2296) => [
+      q(Esuma),
+      ],
+   q(2297) => [
+      q(Salvadoran Sign Language),
+      ],
+   q(2298) => [
+      q(Estonian Sign Language),
+      ],
+   q(2299) => [
+      q(Esselen),
+      ],
+   q(2300) => [
+      q(Central Siberian Yupik),
+      ],
+   q(2301) => [
+      q(Central Yupik),
+      ],
+   q(2302) => [
+      q(Eskayan),
+      ],
+   q(2303) => [
+      q(Etebi),
+      ],
+   q(2304) => [
+      q(Etchemin),
+      ],
+   q(2305) => [
+      q(Ethiopian Sign Language),
+      ],
+   q(2306) => [
+      q(Eton (Vanuatu)),
+      ],
+   q(2307) => [
+      q(Eton (Cameroon)),
+      ],
+   q(2308) => [
+      q(Edolo),
+      ],
+   q(2309) => [
+      q(Yekhee),
+      ],
+   q(2310) => [
+      q(Etruscan),
+      ],
+   q(2311) => [
+      q(Ejagham),
+      ],
+   q(2312) => [
+      q(Eten),
+      ],
+   q(2313) => [
+      q(Semimi),
+      ],
+   q(2314) => [
+      q(Even),
+      ],
+   q(2315) => [
+      q(Uvbie),
+      ],
+   q(2316) => [
+      q(Evenki),
+      ],
+   q(2317) => [
+      q(Extremaduran),
+      ],
+   q(2318) => [
+      q(Eyak),
+      ],
+   q(2319) => [
+      q(Keiyo),
+      ],
+   q(2320) => [
+      q(Ezaa),
+      ],
+   q(2321) => [
+      q(Uzekwe),
+      ],
+   q(2322) => [
+      q(Fasu),
+      ],
+   q(2323) => [
+      q(Fa d'Ambu),
+      ],
+   q(2324) => [
+      q(Wagi),
+      ],
+   q(2325) => [
+      q(Fagani),
+      ],
+   q(2326) => [
+      q(Finongan),
+      ],
+   q(2327) => [
+      q(Baissa Fali),
+      ],
+   q(2328) => [
+      q(Faiwol),
+      ],
+   q(2329) => [
+      q(Faita),
+      ],
+   q(2330) => [
+      q(Fang (Cameroon)),
+      ],
+   q(2331) => [
+      q(South Fali),
+      ],
+   q(2332) => [
+      q(Fam),
+      ],
+   q(2333) => [
+      q(Palor),
+      ],
+   q(2334) => [
+      q(Fataleka),
+      ],
+   q(2335) => [
+      q(Fayu),
+      ],
+   q(2336) => [
+      q(Fala),
+      ],
+   q(2337) => [
+      q(Southwestern Fars),
+      ],
+   q(2338) => [
+      q(Northwestern Fars),
+      ],
+   q(2339) => [
+      q(West Albay Bikol),
+      ],
+   q(2340) => [
+      q(Quebec Sign Language),
+      ],
+   q(2341) => [
+      q(Feroge),
+      ],
+   q(2342) => [
+      q(Foia Foia),
+      ],
+   q(2343) => [
+      q(Maasina Fulfulde),
+      ],
+   q(2344) => [
+      q(Fongoro),
+      ],
+   q(2345) => [
+      q(Nobiin),
+      ],
+   q(2346) => [
+      q(Fyer),
+      ],
+   q(2347) => [
+      q(Fipa),
+      ],
+   q(2348) => [
+      q(Firan),
+      ],
+   q(2349) => [
+      q(Tornedalen Finnish),
+      ],
+   q(2350) => [
+      q(Fiwaga),
+      ],
+   q(2351) => [
+      q(Kirya-Konzel),
+      ],
+   q(2352) => [
+      q(Kven Finnish),
+      ],
+   q(2353) => [
+      q(Kalispel-Pend d'Oreille),
+      ],
+   q(2354) => [
+      q(Foau),
+      ],
+   q(2355) => [
+      q(Fali),
+      ],
+   q(2356) => [
+      q(North Fali),
+      ],
+   q(2357) => [
+      q(Flinders Island),
+      ],
+   q(2358) => [
+      q(Fuliiru),
+      ],
+   q(2359) => [
+      q(Flaaitaal),
+      q(Tsotsitaal),
+      ],
+   q(2360) => [
+      q(Fe'fe'),
+      ],
+   q(2361) => [
+      q(Far Western Muria),
+      ],
+   q(2362) => [
+      q(Fanagalo),
+      ],
+   q(2363) => [
+      q(Fania),
+      ],
+   q(2364) => [
+      q(Foodo),
+      ],
+   q(2365) => [
+      q(Foi),
+      ],
+   q(2366) => [
+      q(Foma),
+      ],
+   q(2367) => [
+      q(Fore),
+      ],
+   q(2368) => [
+      q(Siraya),
+      ],
+   q(2369) => [
+      q(Fernando Po Creole English),
+      ],
+   q(2370) => [
+      q(Fas),
+      ],
+   q(2371) => [
+      q(Cajun French),
+      ],
+   q(2372) => [
+      q(Fordata),
+      ],
+   q(2373) => [
+      q(Frankish),
+      ],
+   q(2374) => [
+      q(Arpitan),
+      q(Francoprovencal),
+      ],
+   q(2375) => [
+      q(Forak),
+      ],
+   q(2376) => [
+      q(Fortsenal),
+      ],
+   q(2377) => [
+      q(Finnish Sign Language),
+      ],
+   q(2378) => [
+      q(French Sign Language),
+      ],
+   q(2379) => [
+      q(Finland-Swedish Sign Language),
+      q(finlandssvenskt teckensprak),
+      q(suomenruotsalainen viittomakieli),
+      ],
+   q(2380) => [
+      q(Adamawa Fulfulde),
+      ],
+   q(2381) => [
+      q(Pulaar),
+      ],
+   q(2382) => [
+      q(East Futuna),
+      ],
+   q(2383) => [
+      q(Borgu Fulfulde),
+      ],
+   q(2384) => [
+      q(Pular),
+      ],
+   q(2385) => [
+      q(Western Niger Fulfulde),
+      ],
+   q(2386) => [
+      q(Bagirmi Fulfulde),
+      ],
+   q(2387) => [
+      q(Ko),
+      ],
+   q(2388) => [
+      q(Fum),
+      ],
+   q(2389) => [
+      q(Fulnio),
+      ],
+   q(2390) => [
+      q(Central-Eastern Niger Fulfulde),
+      ],
+   q(2391) => [
+      q(Futuna-Aniwa),
+      ],
+   q(2392) => [
+      q(Furu),
+      ],
+   q(2393) => [
+      q(Nigerian Fulfulde),
+      ],
+   q(2394) => [
+      q(Fuyug),
+      ],
+   q(2395) => [
+      q(Fur),
+      ],
+   q(2396) => [
+      q(Fwai),
+      ],
+   q(2397) => [
+      q(Fwe),
+      ],
+   q(2398) => [
+      q(Gabri),
+      ],
+   q(2399) => [
+      q(Mixed Great Andamanese),
+      ],
+   q(2400) => [
+      q(Gaddang),
+      ],
+   q(2401) => [
+      q(Guarequena),
+      ],
+   q(2402) => [
+      q(Gende),
+      ],
+   q(2403) => [
+      q(Gagauz),
+      ],
+   q(2404) => [
+      q(Alekano),
+      ],
+   q(2405) => [
+      q(Borei),
+      ],
+   q(2406) => [
+      q(Gadsup),
+      ],
+   q(2407) => [
+      q(Gamkonora),
+      ],
+   q(2408) => [
+      q(Galolen),
+      ],
+   q(2409) => [
+      q(Kandawo),
+      ],
+   q(2410) => [
+      q(Gan Chinese),
+      ],
+   q(2411) => [
+      q(Gants),
+      ],
+   q(2412) => [
+      q(Gal),
+      ],
+   q(2413) => [
+      q(Gata'),
+      ],
+   q(2414) => [
+      q(Galeya),
+      ],
+   q(2415) => [
+      q(Adiwasi Garasia),
+      ],
+   q(2416) => [
+      q(Kenati),
+      ],
+   q(2417) => [
+      q(Mudhili Gadaba),
+      ],
+   q(2418) => [
+      q(Nobonob),
+      ],
+   q(2419) => [
+      q(Borana-Arsi-Guji Oromo),
+      ],
+   q(2420) => [
+      q(West Central Oromo),
+      ],
+   q(2421) => [
+      q(Kaytetye),
+      ],
+   q(2422) => [
+      q(Karadjeri),
+      ],
+   q(2423) => [
+      q(Niksek),
+      ],
+   q(2424) => [
+      q(Gaikundi),
+      ],
+   q(2425) => [
+      q(Gbanziri),
+      ],
+   q(2426) => [
+      q(Defi Gbe),
+      ],
+   q(2427) => [
+      q(Galela),
+      ],
+   q(2428) => [
+      q(Bodo Gadaba),
+      ],
+   q(2429) => [
+      q(Gaddi),
+      ],
+   q(2430) => [
+      q(Gamit),
+      ],
+   q(2431) => [
+      q(Garhwali),
+      ],
+   q(2432) => [
+      q(Mo'da),
+      ],
+   q(2433) => [
+      q(Northern Grebo),
+      ],
+   q(2434) => [
+      q(Gbaya-Bossangoa),
+      ],
+   q(2435) => [
+      q(Gbaya-Bozoum),
+      ],
+   q(2436) => [
+      q(Gbagyi),
+      ],
+   q(2437) => [
+      q(Gbesi Gbe),
+      ],
+   q(2438) => [
+      q(Gagadu),
+      ],
+   q(2439) => [
+      q(Gbanu),
+      ],
+   q(2440) => [
+      q(Gabi-Gabi),
+      ],
+   q(2441) => [
+      q(Eastern Xwla Gbe),
+      ],
+   q(2442) => [
+      q(Gbari),
+      ],
+   q(2443) => [
+      q(Zoroastrian Dari),
+      ],
+   q(2444) => [
+      q(Mali),
+      ],
+   q(2445) => [
+      q(Ganggalida),
+      ],
+   q(2446) => [
+      q(Galice),
+      ],
+   q(2447) => [
+      q(Guadeloupean Creole French),
+      ],
+   q(2448) => [
+      q(Grenadian Creole English),
+      ],
+   q(2449) => [
+      q(Gaina),
+      ],
+   q(2450) => [
+      q(Guianese Creole French),
+      ],
+   q(2451) => [
+      q(Colonia Tovar German),
+      ],
+   q(2452) => [
+      q(Gade Lohar),
+      ],
+   q(2453) => [
+      q(Pottangi Ollar Gadaba),
+      ],
+   q(2454) => [
+      q(Gugu Badhun),
+      ],
+   q(2455) => [
+      q(Gedaged),
+      ],
+   q(2456) => [
+      q(Gude),
+      ],
+   q(2457) => [
+      q(Guduf-Gava),
+      ],
+   q(2458) => [
+      q(Ga'dang),
+      ],
+   q(2459) => [
+      q(Gadjerawang),
+      ],
+   q(2460) => [
+      q(Gundi),
+      ],
+   q(2461) => [
+      q(Gurdjar),
+      ],
+   q(2462) => [
+      q(Gadang),
+      ],
+   q(2463) => [
+      q(Dirasha),
+      ],
+   q(2464) => [
+      q(Laal),
+      ],
+   q(2465) => [
+      q(Umanakaina),
+      ],
+   q(2466) => [
+      q(Ghodoberi),
+      ],
+   q(2467) => [
+      q(Mehri),
+      ],
+   q(2468) => [
+      q(Wipi),
+      ],
+   q(2469) => [
+      q(Ghandruk Sign Language),
+      ],
+   q(2470) => [
+      q(Kungardutyi),
+      ],
+   q(2471) => [
+      q(Gudu),
+      ],
+   q(2472) => [
+      q(Godwari),
+      ],
+   q(2473) => [
+      q(Geruma),
+      ],
+   q(2474) => [
+      q(Kire),
+      ],
+   q(2475) => [
+      q(Gboloo Grebo),
+      ],
+   q(2476) => [
+      q(Gade),
+      ],
+   q(2477) => [
+      q(Gengle),
+      ],
+   q(2478) => [
+      q(Hutterite German),
+      q(Hutterisch),
+      ],
+   q(2479) => [
+      q(Gebe),
+      ],
+   q(2480) => [
+      q(Gen),
+      ],
+   q(2481) => [
+      q(Yiwom),
+      ],
+   q(2482) => [
+      q(ut-Ma'in),
+      ],
+   q(2483) => [
+      q(Geme),
+      ],
+   q(2484) => [
+      q(Geser-Gorom),
+      ],
+   q(2485) => [
+      q(Eviya),
+      ],
+   q(2486) => [
+      q(Gera),
+      ],
+   q(2487) => [
+      q(Garre),
+      ],
+   q(2488) => [
+      q(Enya),
+      ],
+   q(2489) => [
+      q(Patpatar),
+      ],
+   q(2490) => [
+      q(Gafat),
+      ],
+   q(2491) => [
+      q(Gao),
+      ],
+   q(2492) => [
+      q(Gbii),
+      ],
+   q(2493) => [
+      q(Gugadj),
+      ],
+   q(2494) => [
+      q(Guragone),
+      ],
+   q(2495) => [
+      q(Gurgula),
+      ],
+   q(2496) => [
+      q(Kungarakany),
+      ],
+   q(2497) => [
+      q(Ganglau),
+      ],
+   q(2498) => [
+      q(Eastern Gurung),
+      ],
+   q(2499) => [
+      q(Southern Gondi),
+      ],
+   q(2500) => [
+      q(Gitua),
+      ],
+   q(2501) => [
+      q(Gagu),
+      q(Gban),
+      ],
+   q(2502) => [
+      q(Gogodala),
+      ],
+   q(2503) => [
+      q(Ghadames),
+      ],
+   q(2504) => [
+      q(Hiberno-Scottish Gaelic),
+      ],
+   q(2505) => [
+      q(Southern Ghale),
+      ],
+   q(2506) => [
+      q(Northern Ghale),
+      ],
+   q(2507) => [
+      q(Geko Karen),
+      ],
+   q(2508) => [
+      q(Ghulfan),
+      ],
+   q(2509) => [
+      q(Ghanongga),
+      ],
+   q(2510) => [
+      q(Ghomara),
+      ],
+   q(2511) => [
+      q(Ghera),
+      ],
+   q(2512) => [
+      q(Guhu-Samane),
+      ],
+   q(2513) => [
+      q(Kuke),
+      q(Kutang Ghale),
+      ],
+   q(2514) => [
+      q(Kitja),
+      ],
+   q(2515) => [
+      q(Gibanawa),
+      ],
+   q(2516) => [
+      q(Gail),
+      ],
+   q(2517) => [
+      q(Gidar),
+      ],
+   q(2518) => [
+      q(Goaria),
+      ],
+   q(2519) => [
+      q(Githabul),
+      ],
+   q(2520) => [
+      q(Gimi (Eastern Highlands)),
+      ],
+   q(2521) => [
+      q(Hinukh),
+      ],
+   q(2522) => [
+      q(Gimi (West New Britain)),
+      ],
+   q(2523) => [
+      q(Green Gelao),
+      ],
+   q(2524) => [
+      q(Red Gelao),
+      ],
+   q(2525) => [
+      q(North Giziga),
+      ],
+   q(2526) => [
+      q(Gitxsan),
+      ],
+   q(2527) => [
+      q(Mulao),
+      ],
+   q(2528) => [
+      q(White Gelao),
+      ],
+   q(2529) => [
+      q(Gilima),
+      ],
+   q(2530) => [
+      q(Giyug),
+      ],
+   q(2531) => [
+      q(South Giziga),
+      ],
+   q(2532) => [
+      q(Geji),
+      ],
+   q(2533) => [
+      q(Kachi Koli),
+      ],
+   q(2534) => [
+      q(Gunditjmara),
+      ],
+   q(2535) => [
+      q(Gonja),
+      ],
+   q(2536) => [
+      q(Gujari),
+      ],
+   q(2537) => [
+      q(Guya),
+      ],
+   q(2538) => [
+      q(Ndai),
+      ],
+   q(2539) => [
+      q(Gokana),
+      ],
+   q(2540) => [
+      q(Kok-Nar),
+      ],
+   q(2541) => [
+      q(Guinea Kpelle),
+      ],
+   q(2542) => [
+      q(Ungkue),
+      q(=/Ungkue),
+      ],
+   q(2543) => [
+      q(Bon Gula),
+      ],
+   q(2544) => [
+      q(Nanai),
+      ],
+   q(2545) => [
+      q(Northwest Pashai),
+      q(Northwest Pashayi),
+      ],
+   q(2546) => [
+      q(Guliguli),
+      ],
+   q(2547) => [
+      q(Gula Iro),
+      ],
+   q(2548) => [
+      q(Gilaki),
+      ],
+   q(2549) => [
+      q(Garlali),
+      ],
+   q(2550) => [
+      q(Galambu),
+      ],
+   q(2551) => [
+      q(Glaro-Twabo),
+      ],
+   q(2552) => [
+      q(Gula (Chad)),
+      ],
+   q(2553) => [
+      q(Glavda),
+      ],
+   q(2554) => [
+      q(Gule),
+      ],
+   q(2555) => [
+      q(Gambera),
+      ],
+   q(2556) => [
+      q(Gula'alaa),
+      ],
+   q(2557) => [
+      q(Maghdi),
+      ],
+   q(2558) => [
+      q(Magyi),
+      ],
+   q(2559) => [
+      q(Middle Low German),
+      ],
+   q(2560) => [
+      q(Gbaya-Mbodomo),
+      ],
+   q(2561) => [
+      q(Gimnime),
+      ],
+   q(2562) => [
+      q(Gumalu),
+      ],
+   q(2563) => [
+      q(Gamo),
+      ],
+   q(2564) => [
+      q(Magoma),
+      ],
+   q(2565) => [
+      q(Mycenaean Greek),
+      ],
+   q(2566) => [
+      q(Mgbolizhia),
+      ],
+   q(2567) => [
+      q(Kaansa),
+      ],
+   q(2568) => [
+      q(Gangte),
+      ],
+   q(2569) => [
+      q(Guanche),
+      ],
+   q(2570) => [
+      q(Zulgo-Gemzek),
+      ],
+   q(2571) => [
+      q(Ganang),
+      ],
+   q(2572) => [
+      q(Ngangam),
+      ],
+   q(2573) => [
+      q(Lere),
+      ],
+   q(2574) => [
+      q(Gooniyandi),
+      ],
+   q(2575) => [
+      q(//Gana),
+      q(Gana),
+      ],
+   q(2576) => [
+      q(Gangulu),
+      ],
+   q(2577) => [
+      q(Ginuman),
+      ],
+   q(2578) => [
+      q(Gumatj),
+      ],
+   q(2579) => [
+      q(Northern Gondi),
+      ],
+   q(2580) => [
+      q(Gureng Gureng),
+      ],
+   q(2581) => [
+      q(Guntai),
+      ],
+   q(2582) => [
+      q(Gnau),
+      ],
+   q(2583) => [
+      q(Western Bolivian Guarani),
+      ],
+   q(2584) => [
+      q(Ganzi),
+      ],
+   q(2585) => [
+      q(Guro),
+      ],
+   q(2586) => [
+      q(Playero),
+      ],
+   q(2587) => [
+      q(Gorakor),
+      ],
+   q(2588) => [
+      q(Godie),
+      ],
+   q(2589) => [
+      q(Gongduk),
+      ],
+   q(2590) => [
+      q(Gofa),
+      ],
+   q(2591) => [
+      q(Gogo),
+      ],
+   q(2592) => [
+      q(Gobasi),
+      ],
+   q(2593) => [
+      q(Gowlan),
+      ],
+   q(2594) => [
+      q(Gowli),
+      ],
+   q(2595) => [
+      q(Gola),
+      ],
+   q(2596) => [
+      q(Goan Konkani),
+      ],
+   q(2597) => [
+      q(Gone Dau),
+      ],
+   q(2598) => [
+      q(Yeretuar),
+      ],
+   q(2599) => [
+      q(Gorap),
+      ],
+   q(2600) => [
+      q(Gronings),
+      ],
+   q(2601) => [
+      q(Gavar),
+      ],
+   q(2602) => [
+      q(Gorowa),
+      ],
+   q(2603) => [
+      q(Gobu),
+      ],
+   q(2604) => [
+      q(Goundo),
+      ],
+   q(2605) => [
+      q(Gozarkhani),
+      ],
+   q(2606) => [
+      q(Gupa-Abawa),
+      ],
+   q(2607) => [
+      q(Ghanaian Pidgin English),
+      ],
+   q(2608) => [
+      q(Taiap),
+      ],
+   q(2609) => [
+      q(Ga'anda),
+      ],
+   q(2610) => [
+      q(Guiqiong),
+      ],
+   q(2611) => [
+      q(Guana (Brazil)),
+      ],
+   q(2612) => [
+      q(Gor),
+      ],
+   q(2613) => [
+      q(Qau),
+      ],
+   q(2614) => [
+      q(Rajput Garasia),
+      ],
+   q(2615) => [
+      q(Guruntum-Mbaaru),
+      ],
+   q(2616) => [
+      q(Madi),
+      ],
+   q(2617) => [
+      q(Gbiri-Niragu),
+      ],
+   q(2618) => [
+      q(Ghari),
+      ],
+   q(2619) => [
+      q(Southern Grebo),
+      ],
+   q(2620) => [
+      q(Kota Marudu Talantang),
+      ],
+   q(2621) => [
+      q(Groma),
+      ],
+   q(2622) => [
+      q(Gorovu),
+      ],
+   q(2623) => [
+      q(Taznatit),
+      ],
+   q(2624) => [
+      q(Gresi),
+      ],
+   q(2625) => [
+      q(Garo),
+      ],
+   q(2626) => [
+      q(Kistane),
+      ],
+   q(2627) => [
+      q(Central Grebo),
+      ],
+   q(2628) => [
+      q(Gweda),
+      ],
+   q(2629) => [
+      q(Guriaso),
+      ],
+   q(2630) => [
+      q(Barclayville Grebo),
+      ],
+   q(2631) => [
+      q(Guramalum),
+      ],
+   q(2632) => [
+      q(Ghanaian Sign Language),
+      ],
+   q(2633) => [
+      q(German Sign Language),
+      ],
+   q(2634) => [
+      q(Gusilay),
+      ],
+   q(2635) => [
+      q(Guatemalan Sign Language),
+      ],
+   q(2636) => [
+      q(Gusan),
+      ],
+   q(2637) => [
+      q(Southwest Gbaya),
+      ],
+   q(2638) => [
+      q(Wasembo),
+      ],
+   q(2639) => [
+      q(Greek Sign Language),
+      ],
+   q(2640) => [
+      q(Guato),
+      ],
+   q(2641) => [
+      q(Aghu-Tharnggala),
+      ],
+   q(2642) => [
+      q(Shiki),
+      ],
+   q(2643) => [
+      q(Guajajara),
+      ],
+   q(2644) => [
+      q(Wayuu),
+      ],
+   q(2645) => [
+      q(Yocoboue Dida),
+      ],
+   q(2646) => [
+      q(Gurinji),
+      ],
+   q(2647) => [
+      q(Gupapuyngu),
+      ],
+   q(2648) => [
+      q(Paraguayan Guarani),
+      ],
+   q(2649) => [
+      q(Guahibo),
+      ],
+   q(2650) => [
+      q(Eastern Bolivian Guarani),
+      ],
+   q(2651) => [
+      q(Gumuz),
+      ],
+   q(2652) => [
+      q(Sea Island Creole English),
+      ],
+   q(2653) => [
+      q(Guambiano),
+      ],
+   q(2654) => [
+      q(Mbya Guarani),
+      ],
+   q(2655) => [
+      q(Guayabero),
+      ],
+   q(2656) => [
+      q(Gunwinggu),
+      ],
+   q(2657) => [
+      q(Ache),
+      ],
+   q(2658) => [
+      q(Farefare),
+      ],
+   q(2659) => [
+      q(Guinean Sign Language),
+      ],
+   q(2660) => [
+      q(Maleku Jaika),
+      ],
+   q(2661) => [
+      q(Yanomamo),
+      ],
+   q(2662) => [
+      q(Gey),
+      ],
+   q(2663) => [
+      q(Gun),
+      ],
+   q(2664) => [
+      q(Gourmanchema),
+      ],
+   q(2665) => [
+      q(Gusii),
+      q(Ekegusii),
+      ],
+   q(2666) => [
+      q(Guana (Paraguay)),
+      ],
+   q(2667) => [
+      q(Guanano),
+      ],
+   q(2668) => [
+      q(Duwet),
+      ],
+   q(2669) => [
+      q(Golin),
+      ],
+   q(2670) => [
+      q(Guaja),
+      ],
+   q(2671) => [
+      q(Gulay),
+      ],
+   q(2672) => [
+      q(Gurmana),
+      ],
+   q(2673) => [
+      q(Kuku-Yalanji),
+      ],
+   q(2674) => [
+      q(Gaviao Do Jiparana),
+      ],
+   q(2675) => [
+      q(Para Gaviao),
+      ],
+   q(2676) => [
+      q(Western Gurung),
+      ],
+   q(2677) => [
+      q(Gumawana),
+      ],
+   q(2678) => [
+      q(Guyani),
+      ],
+   q(2679) => [
+      q(Mbato),
+      ],
+   q(2680) => [
+      q(Gwa),
+      ],
+   q(2681) => [
+      q(Kalami),
+      ],
+   q(2682) => [
+      q(Gawwada),
+      ],
+   q(2683) => [
+      q(Gweno),
+      ],
+   q(2684) => [
+      q(Gowro),
+      ],
+   q(2685) => [
+      q(Moo),
+      ],
+   q(2686) => [
+      q(/Gwi),
+      q(Gwi),
+      ],
+   q(2687) => [
+      q(Awngthim),
+      ],
+   q(2688) => [
+      q(Gwandara),
+      ],
+   q(2689) => [
+      q(Gwere),
+      ],
+   q(2690) => [
+      q(Gawar-Bati),
+      ],
+   q(2691) => [
+      q(Guwamu),
+      ],
+   q(2692) => [
+      q(Kwini),
+      ],
+   q(2693) => [
+      q(Gua),
+      ],
+   q(2694) => [
+      q(We Southern),
+      ],
+   q(2695) => [
+      q(Northwest Gbaya),
+      ],
+   q(2696) => [
+      q(Garus),
+      ],
+   q(2697) => [
+      q(Kayardild),
+      ],
+   q(2698) => [
+      q(Gyem),
+      ],
+   q(2699) => [
+      q(Gungabula),
+      ],
+   q(2700) => [
+      q(Gbayi),
+      ],
+   q(2701) => [
+      q(Gyele),
+      ],
+   q(2702) => [
+      q(Gayil),
+      ],
+   q(2703) => [
+      q(Ngabere),
+      ],
+   q(2704) => [
+      q(Guyanese Creole English),
+      ],
+   q(2705) => [
+      q(Guarayu),
+      ],
+   q(2706) => [
+      q(Gunya),
+      ],
+   q(2707) => [
+      q(Ganza),
+      ],
+   q(2708) => [
+      q(Gazi),
+      ],
+   q(2709) => [
+      q(Gane),
+      ],
+   q(2710) => [
+      q(Han),
+      ],
+   q(2711) => [
+      q(Hanoi Sign Language),
+      ],
+   q(2712) => [
+      q(Gurani),
+      ],
+   q(2713) => [
+      q(Hatam),
+      ],
+   q(2714) => [
+      q(Eastern Oromo),
+      ],
+   q(2715) => [
+      q(Haiphong Sign Language),
+      ],
+   q(2716) => [
+      q(Hanga),
+      ],
+   q(2717) => [
+      q(Hahon),
+      ],
+   q(2718) => [
+      q(Hajong),
+      ],
+   q(2719) => [
+      q(Hakka Chinese),
+      ],
+   q(2720) => [
+      q(Halang),
+      ],
+   q(2721) => [
+      q(Hewa),
+      ],
+   q(2722) => [
+      q(Hangaza),
+      ],
+   q(2723) => [
+      q(Hako),
+      ],
+   q(2724) => [
+      q(Hupla),
+      ],
+   q(2725) => [
+      q(Ha),
+      ],
+   q(2726) => [
+      q(Harari),
+      ],
+   q(2727) => [
+      q(Haisla),
+      ],
+   q(2728) => [
+      q(Havu),
+      ],
+   q(2729) => [
+      q(Southern Haida),
+      ],
+   q(2730) => [
+      q(Haya),
+      ],
+   q(2731) => [
+      q(Hazaragi),
+      ],
+   q(2732) => [
+      q(Hamba),
+      ],
+   q(2733) => [
+      q(Huba),
+      ],
+   q(2734) => [
+      q(Heiban),
+      ],
+   q(2735) => [
+      q(Ancient Hebrew),
+      ],
+   q(2736) => [
+      q(Habu),
+      ],
+   q(2737) => [
+      q(Andaman Creole Hindi),
+      ],
+   q(2738) => [
+      q(Huichol),
+      ],
+   q(2739) => [
+      q(Northern Haida),
+      ],
+   q(2740) => [
+      q(Honduras Sign Language),
+      ],
+   q(2741) => [
+      q(Hadiyya),
+      ],
+   q(2742) => [
+      q(Northern Qiandong Miao),
+      ],
+   q(2743) => [
+      q(Herde),
+      ],
+   q(2744) => [
+      q(Helong),
+      ],
+   q(2745) => [
+      q(Hehe),
+      ],
+   q(2746) => [
+      q(Heiltsuk),
+      ],
+   q(2747) => [
+      q(Hemba),
+      ],
+   q(2748) => [
+      q(Hai//om),
+      q(Haiom),
+      ],
+   q(2749) => [
+      q(Haigwai),
+      ],
+   q(2750) => [
+      q(Hoia Hoia),
+      ],
+   q(2751) => [
+      q(Kerak),
+      ],
+   q(2752) => [
+      q(Hoyahoya),
+      ],
+   q(2753) => [
+      q(Lamang),
+      ],
+   q(2754) => [
+      q(Hibito),
+      ],
+   q(2755) => [
+      q(Hidatsa),
+      ],
+   q(2756) => [
+      q(Fiji Hindi),
+      ],
+   q(2757) => [
+      q(Kamwe),
+      ],
+   q(2758) => [
+      q(Pamosu),
+      ],
+   q(2759) => [
+      q(Hinduri),
+      ],
+   q(2760) => [
+      q(Hijuk),
+      ],
+   q(2761) => [
+      q(Seit-Kaitetu),
+      ],
+   q(2762) => [
+      q(Tsoa),
+      ],
+   q(2763) => [
+      q(Himarima),
+      ],
+   q(2764) => [
+      q(Hiw),
+      ],
+   q(2765) => [
+      q(Hixkaryana),
+      ],
+   q(2766) => [
+      q(Haji),
+      ],
+   q(2767) => [
+      q(Kahe),
+      ],
+   q(2768) => [
+      q(Hunde),
+      ],
+   q(2769) => [
+      q(Hunjara-Kaina Ke),
+      ],
+   q(2770) => [
+      q(Hong Kong Sign Language),
+      q(Heung Kong Sau Yue),
+      ],
+   q(2771) => [
+      q(Halia),
+      ],
+   q(2772) => [
+      q(Halbi),
+      ],
+   q(2773) => [
+      q(Halang Doan),
+      ],
+   q(2774) => [
+      q(Hlersu),
+      ],
+   q(2775) => [
+      q(Matu Chin),
+      ],
+   q(2776) => [
+      q(Hieroglyphic Luwian),
+      ],
+   q(2777) => [
+      q(Southern Mashan Hmong),
+      q(Southern Mashan Miao),
+      ],
+   q(2778) => [
+      q(Humburi Senni Songhay),
+      ],
+   q(2779) => [
+      q(Central Huishui Hmong),
+      q(Central Huishui Miao),
+      ],
+   q(2780) => [
+      q(Large Flowery Miao),
+      q(A-hmaos),
+      q(Da-Hua Miao),
+      ],
+   q(2781) => [
+      q(Eastern Huishui Hmong),
+      q(Eastern Huishui Miao),
+      ],
+   q(2782) => [
+      q(Hmong Don),
+      ],
+   q(2783) => [
+      q(Southwestern Guiyang Hmong),
+      ],
+   q(2784) => [
+      q(Southwestern Huishui Hmong),
+      q(Southwestern Huishui Miao),
+      ],
+   q(2785) => [
+      q(Northern Huishui Hmong),
+      q(Northern Huishui Miao),
+      ],
+   q(2786) => [
+      q(Ge),
+      q(Gejia),
+      ],
+   q(2787) => [
+      q(Maek),
+      ],
+   q(2788) => [
+      q(Luopohe Hmong),
+      q(Luopohe Miao),
+      ],
+   q(2789) => [
+      q(Central Mashan Hmong),
+      q(Central Mashan Miao),
+      ],
+   q(2790) => [
+      q(Northern Mashan Hmong),
+      q(Northern Mashan Miao),
+      ],
+   q(2791) => [
+      q(Eastern Qiandong Miao),
+      ],
+   q(2792) => [
+      q(Hmar),
+      ],
+   q(2793) => [
+      q(Southern Qiandong Miao),
+      ],
+   q(2794) => [
+      q(Hamtai),
+      ],
+   q(2795) => [
+      q(Hamap),
+      ],
+   q(2796) => [
+      q(Hmong Do),
+      ],
+   q(2797) => [
+      q(Western Mashan Hmong),
+      q(Western Mashan Miao),
+      ],
+   q(2798) => [
+      q(Southern Guiyang Hmong),
+      q(Southern Guiyang Miao),
+      ],
+   q(2799) => [
+      q(Hmong Shua),
+      q(Sinicized Miao),
+      ],
+   q(2800) => [
+      q(Mina (Cameroon)),
+      ],
+   q(2801) => [
+      q(Southern Hindko),
+      ],
+   q(2802) => [
+      q(Chhattisgarhi),
+      ],
+   q(2803) => [
+      q(//Ani),
+      q(Ani),
+      ],
+   q(2804) => [
+      q(Hani),
+      ],
+   q(2805) => [
+      q(Hmong Njua),
+      q(Mong Leng),
+      q(Mong Njua),
+      ],
+   q(2806) => [
+      q(Hanunoo),
+      ],
+   q(2807) => [
+      q(Northern Hindko),
+      ],
+   q(2808) => [
+      q(Caribbean Hindustani),
+      ],
+   q(2809) => [
+      q(Hung),
+      ],
+   q(2810) => [
+      q(Hoava),
+      ],
+   q(2811) => [
+      q(Mari (Madang Province)),
+      ],
+   q(2812) => [
+      q(Ho),
+      ],
+   q(2813) => [
+      q(Holma),
+      ],
+   q(2814) => [
+      q(Horom),
+      ],
+   q(2815) => [
+      q(Hobyot),
+      ],
+   q(2816) => [
+      q(Holikachuk),
+      ],
+   q(2817) => [
+      q(Hadothi),
+      q(Haroti),
+      ],
+   q(2818) => [
+      q(Holu),
+      ],
+   q(2819) => [
+      q(Homa),
+      ],
+   q(2820) => [
+      q(Holoholo),
+      ],
+   q(2821) => [
+      q(Hopi),
+      ],
+   q(2822) => [
+      q(Horo),
+      ],
+   q(2823) => [
+      q(Ho Chi Minh City Sign Language),
+      ],
+   q(2824) => [
+      q(Hote),
+      q(Male),
+      ],
+   q(2825) => [
+      q(Hovongan),
+      ],
+   q(2826) => [
+      q(Honi),
+      ],
+   q(2827) => [
+      q(Holiya),
+      ],
+   q(2828) => [
+      q(Hozo),
+      ],
+   q(2829) => [
+      q(Hpon),
+      ],
+   q(2830) => [
+      q(Hawai'i Sign Language (HSL)),
+      q(Hawai'i Pidgin Sign Language),
+      ],
+   q(2831) => [
+      q(Hrangkhol),
+      ],
+   q(2832) => [
+      q(Niwer Mil),
+      ],
+   q(2833) => [
+      q(Hre),
+      ],
+   q(2834) => [
+      q(Haruku),
+      ],
+   q(2835) => [
+      q(Horned Miao),
+      ],
+   q(2836) => [
+      q(Haroi),
+      ],
+   q(2837) => [
+      q(Nhirrpi),
+      ],
+   q(2838) => [
+      q(Hertevin),
+      ],
+   q(2839) => [
+      q(Hruso),
+      ],
+   q(2840) => [
+      q(Warwar Feni),
+      ],
+   q(2841) => [
+      q(Hunsrik),
+      ],
+   q(2842) => [
+      q(Harzani),
+      ],
+   q(2843) => [
+      q(Hungarian Sign Language),
+      ],
+   q(2844) => [
+      q(Hausa Sign Language),
+      ],
+   q(2845) => [
+      q(Xiang Chinese),
+      ],
+   q(2846) => [
+      q(Harsusi),
+      ],
+   q(2847) => [
+      q(Hoti),
+      ],
+   q(2848) => [
+      q(Minica Huitoto),
+      ],
+   q(2849) => [
+      q(Hadza),
+      ],
+   q(2850) => [
+      q(Hitu),
+      ],
+   q(2851) => [
+      q(Middle Hittite),
+      ],
+   q(2852) => [
+      q(Huambisa),
+      ],
+   q(2853) => [
+      q(=/Hua),
+      q(Hua),
+      ],
+   q(2854) => [
+      q(Huaulu),
+      ],
+   q(2855) => [
+      q(San Francisco Del Mar Huave),
+      ],
+   q(2856) => [
+      q(Humene),
+      ],
+   q(2857) => [
+      q(Huachipaeri),
+      ],
+   q(2858) => [
+      q(Huilliche),
+      ],
+   q(2859) => [
+      q(Huli),
+      ],
+   q(2860) => [
+      q(Northern Guiyang Hmong),
+      q(Northern Guiyang Miao),
+      ],
+   q(2861) => [
+      q(Hulung),
+      ],
+   q(2862) => [
+      q(Hula),
+      ],
+   q(2863) => [
+      q(Hungana),
+      ],
+   q(2864) => [
+      q(Hu),
+      ],
+   q(2865) => [
+      q(Tsat),
+      ],
+   q(2866) => [
+      q(Halkomelem),
+      ],
+   q(2867) => [
+      q(Huastec),
+      ],
+   q(2868) => [
+      q(Humla),
+      ],
+   q(2869) => [
+      q(Murui Huitoto),
+      ],
+   q(2870) => [
+      q(San Mateo Del Mar Huave),
+      ],
+   q(2871) => [
+      q(Hukumina),
+      ],
+   q(2872) => [
+      q(Nupode Huitoto),
+      ],
+   q(2873) => [
+      q(Hulaula),
+      ],
+   q(2874) => [
+      q(Hunzib),
+      ],
+   q(2875) => [
+      q(Haitian Vodoun Culture Language),
+      ],
+   q(2876) => [
+      q(San Dionisio Del Mar Huave),
+      ],
+   q(2877) => [
+      q(Haveke),
+      ],
+   q(2878) => [
+      q(Sabu),
+      ],
+   q(2879) => [
+      q(Santa Maria Del Mar Huave),
+      ],
+   q(2880) => [
+      q(Wane),
+      ],
+   q(2881) => [
+      q(Hawai'i Creole English),
+      q(Hawai'i Pidgin),
+      ],
+   q(2882) => [
+      q(Hwana),
+      ],
+   q(2883) => [
+      q(Hya),
+      ],
+   q(2884) => [
+      q(Iaai),
+      ],
+   q(2885) => [
+      q(Iatmul),
+      ],
+   q(2886) => [
+      q(Iapama),
+      ],
+   q(2887) => [
+      q(Purari),
+      ],
+   q(2888) => [
+      q(Ibibio),
+      ],
+   q(2889) => [
+      q(Iwaidja),
+      ],
+   q(2890) => [
+      q(Akpes),
+      ],
+   q(2891) => [
+      q(Ibanag),
+      ],
+   q(2892) => [
+      q(Ibaloi),
+      ],
+   q(2893) => [
+      q(Agoi),
+      ],
+   q(2894) => [
+      q(Ibino),
+      ],
+   q(2895) => [
+      q(Ibuoro),
+      ],
+   q(2896) => [
+      q(Ibu),
+      ],
+   q(2897) => [
+      q(Ibani),
+      ],
+   q(2898) => [
+      q(Ede Ica),
+      ],
+   q(2899) => [
+      q(Etkywan),
+      ],
+   q(2900) => [
+      q(Icelandic Sign Language),
+      ],
+   q(2901) => [
+      q(Islander Creole English),
+      ],
+   q(2902) => [
+      q(Idakho-Isukha-Tiriki),
+      q(Luidakho-Luisukha-Lutirichi),
+      ],
+   q(2903) => [
+      q(Indo-Portuguese),
+      ],
+   q(2904) => [
+      q(Idon),
+      q(Ajiya),
+      ],
+   q(2905) => [
+      q(Ede Idaca),
+      ],
+   q(2906) => [
+      q(Idere),
+      ],
+   q(2907) => [
+      q(Idi),
+      ],
+   q(2908) => [
+      q(Indri),
+      ],
+   q(2909) => [
+      q(Idesa),
+      ],
+   q(2910) => [
+      q(Idate),
+      ],
+   q(2911) => [
+      q(Idoma),
+      ],
+   q(2912) => [
+      q(Amganad Ifugao),
+      ],
+   q(2913) => [
+      q(Batad Ifugao),
+      q(Ayangan Ifugao),
+      ],
+   q(2914) => [
+      q(Ife),
+      ],
+   q(2915) => [
+      q(Ifo),
+      ],
+   q(2916) => [
+      q(Tuwali Ifugao),
+      ],
+   q(2917) => [
+      q(Teke-Fuumu),
+      ],
+   q(2918) => [
+      q(Mayoyao Ifugao),
+      ],
+   q(2919) => [
+      q(Keley-I Kallahan),
+      ],
+   q(2920) => [
+      q(Ebira),
+      ],
+   q(2921) => [
+      q(Igede),
+      ],
+   q(2922) => [
+      q(Igana),
+      ],
+   q(2923) => [
+      q(Igala),
+      ],
+   q(2924) => [
+      q(Kanggape),
+      ],
+   q(2925) => [
+      q(Ignaciano),
+      ],
+   q(2926) => [
+      q(Isebe),
+      ],
+   q(2927) => [
+      q(Interglossa),
+      ],
+   q(2928) => [
+      q(Igwe),
+      ],
+   q(2929) => [
+      q(Iha Based Pidgin),
+      ],
+   q(2930) => [
+      q(Ihievbe),
+      ],
+   q(2931) => [
+      q(Iha),
+      ],
+   q(2932) => [
+      q(Bidhawal),
+      ],
+   q(2933) => [
+      q(Thiin),
+      ],
+   q(2934) => [
+      q(Izon),
+      ],
+   q(2935) => [
+      q(Biseni),
+      ],
+   q(2936) => [
+      q(Ede Ije),
+      ],
+   q(2937) => [
+      q(Kalabari),
+      ],
+   q(2938) => [
+      q(Southeast Ijo),
+      ],
+   q(2939) => [
+      q(Eastern Canadian Inuktitut),
+      ],
+   q(2940) => [
+      q(Iko),
+      ],
+   q(2941) => [
+      q(Ika),
+      ],
+   q(2942) => [
+      q(Ikulu),
+      ],
+   q(2943) => [
+      q(Olulumo-Ikom),
+      ],
+   q(2944) => [
+      q(Ikpeshi),
+      ],
+   q(2945) => [
+      q(Ikaranggal),
+      ],
+   q(2946) => [
+      q(Inuit Sign Language),
+      ],
+   q(2947) => [
+      q(Inuinnaqtun),
+      q(Western Canadian Inuktitut),
+      ],
+   q(2948) => [
+      q(Iku-Gora-Ankwa),
+      ],
+   q(2949) => [
+      q(Ikwere),
+      ],
+   q(2950) => [
+      q(Ik),
+      ],
+   q(2951) => [
+      q(Ikizu),
+      ],
+   q(2952) => [
+      q(Ile Ape),
+      ],
+   q(2953) => [
+      q(Ila),
+      ],
+   q(2954) => [
+      q(Garig-Ilgar),
+      ],
+   q(2955) => [
+      q(Ili Turki),
+      ],
+   q(2956) => [
+      q(Ilongot),
+      ],
+   q(2957) => [
+      q(Iranun),
+      ],
+   q(2958) => [
+      q(International Sign),
+      ],
+   q(2959) => [
+      q(Ili'uun),
+      ],
+   q(2960) => [
+      q(Ilue),
+      ],
+   q(2961) => [
+      q(Mala Malasar),
+      ],
+   q(2962) => [
+      q(Anamgura),
+      ],
+   q(2963) => [
+      q(Miluk),
+      ],
+   q(2964) => [
+      q(Imonda),
+      ],
+   q(2965) => [
+      q(Imbongu),
+      ],
+   q(2966) => [
+      q(Imroing),
+      ],
+   q(2967) => [
+      q(Marsian),
+      ],
+   q(2968) => [
+      q(Milyan),
+      ],
+   q(2969) => [
+      q(Inga),
+      ],
+   q(2970) => [
+      q(Degexit'an),
+      ],
+   q(2971) => [
+      q(Jungle Inga),
+      ],
+   q(2972) => [
+      q(Indonesian Sign Language),
+      ],
+   q(2973) => [
+      q(Minaean),
+      ],
+   q(2974) => [
+      q(Isinai),
+      ],
+   q(2975) => [
+      q(Inoke-Yate),
+      ],
+   q(2976) => [
+      q(Inapari),
+      ],
+   q(2977) => [
+      q(Indian Sign Language),
+      ],
+   q(2978) => [
+      q(Intha),
+      ],
+   q(2979) => [
+      q(Ineseno),
+      ],
+   q(2980) => [
+      q(Inor),
+      ],
+   q(2981) => [
+      q(Tuma-Irumu),
+      ],
+   q(2982) => [
+      q(Iowa-Oto),
+      ],
+   q(2983) => [
+      q(Ipili),
+      ],
+   q(2984) => [
+      q(Ipiko),
+      ],
+   q(2985) => [
+      q(Iquito),
+      ],
+   q(2986) => [
+      q(Ikwo),
+      ],
+   q(2987) => [
+      q(Iresim),
+      ],
+   q(2988) => [
+      q(Irarutu),
+      ],
+   q(2989) => [
+      q(Irigwe),
+      ],
+   q(2990) => [
+      q(Iraqw),
+      ],
+   q(2991) => [
+      q(Irantxe),
+      ],
+   q(2992) => [
+      q(Ir),
+      ],
+   q(2993) => [
+      q(Irula),
+      ],
+   q(2994) => [
+      q(Kamberau),
+      ],
+   q(2995) => [
+      q(Iraya),
+      ],
+   q(2996) => [
+      q(Isabi),
+      ],
+   q(2997) => [
+      q(Isconahua),
+      ],
+   q(2998) => [
+      q(Isnag),
+      ],
+   q(2999) => [
+      q(Italian Sign Language),
+      ],
+   q(3000) => [
+      q(Irish Sign Language),
+      ],
+   q(3001) => [
+      q(Esan),
+      ],
+   q(3002) => [
+      q(Nkem-Nkum),
+      ],
+   q(3003) => [
+      q(Ishkashimi),
+      ],
+   q(3004) => [
+      q(Masimasi),
+      ],
+   q(3005) => [
+      q(Isanzu),
+      ],
+   q(3006) => [
+      q(Isoko),
+      ],
+   q(3007) => [
+      q(Israeli Sign Language),
+      ],
+   q(3008) => [
+      q(Istriot),
+      ],
+   q(3009) => [
+      q(Isu (Menchum Division)),
+      ],
+   q(3010) => [
+      q(Binongan Itneg),
+      ],
+   q(3011) => [
+      q(Itene),
+      ],
+   q(3012) => [
+      q(Inlaod Itneg),
+      ],
+   q(3013) => [
+      q(Judeo-Italian),
+      ],
+   q(3014) => [
+      q(Itelmen),
+      ],
+   q(3015) => [
+      q(Itu Mbon Uzo),
+      ],
+   q(3016) => [
+      q(Itonama),
+      ],
+   q(3017) => [
+      q(Iteri),
+      ],
+   q(3018) => [
+      q(Isekiri),
+      ],
+   q(3019) => [
+      q(Maeng Itneg),
+      ],
+   q(3020) => [
+      q(Itawit),
+      ],
+   q(3021) => [
+      q(Ito),
+      ],
+   q(3022) => [
+      q(Itik),
+      ],
+   q(3023) => [
+      q(Moyadan Itneg),
+      ],
+   q(3024) => [
+      q(Itza),
+      ],
+   q(3025) => [
+      q(Iu Mien),
+      ],
+   q(3026) => [
+      q(Ibatan),
+      ],
+   q(3027) => [
+      q(Ivatan),
+      ],
+   q(3028) => [
+      q(I-Wak),
+      ],
+   q(3029) => [
+      q(Iwam),
+      ],
+   q(3030) => [
+      q(Iwur),
+      ],
+   q(3031) => [
+      q(Sepik Iwam),
+      ],
+   q(3032) => [
+      q(Ixcatec),
+      ],
+   q(3033) => [
+      q(Ixil),
+      ],
+   q(3034) => [
+      q(Iyayu),
+      ],
+   q(3035) => [
+      q(Mesaka),
+      ],
+   q(3036) => [
+      q(Yaka (Congo)),
+      ],
+   q(3037) => [
+      q(Ingrian),
+      ],
+   q(3038) => [
+      q(Izere),
+      ],
+   q(3039) => [
+      q(Izii),
+      ],
+   q(3040) => [
+      q(Jamamadi),
+      ],
+   q(3041) => [
+      q(Hyam),
+      ],
+   q(3042) => [
+      q(Popti'),
+      q(Jakalteko),
+      ],
+   q(3043) => [
+      q(Jahanka),
+      ],
+   q(3044) => [
+      q(Yabem),
+      ],
+   q(3045) => [
+      q(Jara),
+      ],
+   q(3046) => [
+      q(Jah Hut),
+      ],
+   q(3047) => [
+      q(Zazao),
+      ],
+   q(3048) => [
+      q(Jakun),
+      ],
+   q(3049) => [
+      q(Yalahatan),
+      ],
+   q(3050) => [
+      q(Jamaican Creole English),
+      ],
+   q(3051) => [
+      q(Jandai),
+      ],
+   q(3052) => [
+      q(Yanyuwa),
+      ],
+   q(3053) => [
+      q(Yaqay),
+      ],
+   q(3054) => [
+      q(New Caledonian Javanese),
+      ],
+   q(3055) => [
+      q(Jakati),
+      ],
+   q(3056) => [
+      q(Yaur),
+      ],
+   q(3057) => [
+      q(Jambi Malay),
+      ],
+   q(3058) => [
+      q(Yan-nhangu),
+      ],
+   q(3059) => [
+      q(Jawe),
+      ],
+   q(3060) => [
+      q(Judeo-Berber),
+      ],
+   q(3061) => [
+      q(Badjiri),
+      ],
+   q(3062) => [
+      q(Arandai),
+      ],
+   q(3063) => [
+      q(Barikewa),
+      ],
+   q(3064) => [
+      q(Nafusi),
+      ],
+   q(3065) => [
+      q(Jofotek-Bromnya),
+      ],
+   q(3066) => [
+      q(Jabuti),
+      ],
+   q(3067) => [
+      q(Jukun Takum),
+      ],
+   q(3068) => [
+      q(Yawijibaya),
+      ],
+   q(3069) => [
+      q(Jamaican Country Sign Language),
+      ],
+   q(3070) => [
+      q(Krymchak),
+      ],
+   q(3071) => [
+      q(Jad),
+      ],
+   q(3072) => [
+      q(Jadgali),
+      ],
+   q(3073) => [
+      q(Judeo-Tat),
+      ],
+   q(3074) => [
+      q(Jebero),
+      ],
+   q(3075) => [
+      q(Jerung),
+      ],
+   q(3076) => [
+      q(Jeng),
+      ],
+   q(3077) => [
+      q(Jeh),
+      ],
+   q(3078) => [
+      q(Yei),
+      ],
+   q(3079) => [
+      q(Jeri Kuo),
+      ],
+   q(3080) => [
+      q(Yelmek),
+      ],
+   q(3081) => [
+      q(Dza),
+      ],
+   q(3082) => [
+      q(Jere),
+      ],
+   q(3083) => [
+      q(Manem),
+      ],
+   q(3084) => [
+      q(Jonkor Bourmataguil),
+      ],
+   q(3085) => [
+      q(Ngbee),
+      ],
+   q(3086) => [
+      q(Judeo-Georgian),
+      ],
+   q(3087) => [
+      q(Gwak),
+      ],
+   q(3088) => [
+      q(Ngomba),
+      ],
+   q(3089) => [
+      q(Jehai),
+      ],
+   q(3090) => [
+      q(Jhankot Sign Language),
+      ],
+   q(3091) => [
+      q(Jina),
+      ],
+   q(3092) => [
+      q(Jibu),
+      ],
+   q(3093) => [
+      q(Tol),
+      ],
+   q(3094) => [
+      q(Bu),
+      ],
+   q(3095) => [
+      q(Jilbe),
+      ],
+   q(3096) => [
+      q(Djingili),
+      ],
+   q(3097) => [
+      q(sTodsde),
+      q(Shangzhai),
+      ],
+   q(3098) => [
+      q(Jiiddu),
+      ],
+   q(3099) => [
+      q(Jilim),
+      ],
+   q(3100) => [
+      q(Jimi (Cameroon)),
+      ],
+   q(3101) => [
+      q(Jiamao),
+      ],
+   q(3102) => [
+      q(Guanyinqiao),
+      q(Lavrung),
+      ],
+   q(3103) => [
+      q(Jita),
+      ],
+   q(3104) => [
+      q(Youle Jinuo),
+      ],
+   q(3105) => [
+      q(Shuar),
+      ],
+   q(3106) => [
+      q(Buyuan Jinuo),
+      ],
+   q(3107) => [
+      q(Jejueo),
+      ],
+   q(3108) => [
+      q(Bankal),
+      ],
+   q(3109) => [
+      q(Mobwa Karen),
+      ],
+   q(3110) => [
+      q(Kubo),
+      ],
+   q(3111) => [
+      q(Paku Karen),
+      ],
+   q(3112) => [
+      q(Koro (India)),
+      ],
+   q(3113) => [
+      q(Labir),
+      ],
+   q(3114) => [
+      q(Ngile),
+      ],
+   q(3115) => [
+      q(Jamaican Sign Language),
+      ],
+   q(3116) => [
+      q(Dima),
+      ],
+   q(3117) => [
+      q(Zumbun),
+      ],
+   q(3118) => [
+      q(Machame),
+      ],
+   q(3119) => [
+      q(Yamdena),
+      ],
+   q(3120) => [
+      q(Jimi (Nigeria)),
+      ],
+   q(3121) => [
+      q(Jumli),
+      ],
+   q(3122) => [
+      q(Makuri Naga),
+      ],
+   q(3123) => [
+      q(Kamara),
+      ],
+   q(3124) => [
+      q(Mashi (Nigeria)),
+      ],
+   q(3125) => [
+      q(Mouwase),
+      ],
+   q(3126) => [
+      q(Western Juxtlahuaca Mixtec),
+      ],
+   q(3127) => [
+      q(Jangshung),
+      ],
+   q(3128) => [
+      q(Jandavra),
+      ],
+   q(3129) => [
+      q(Yangman),
+      ],
+   q(3130) => [
+      q(Janji),
+      ],
+   q(3131) => [
+      q(Yemsa),
+      ],
+   q(3132) => [
+      q(Rawat),
+      ],
+   q(3133) => [
+      q(Jaunsari),
+      ],
+   q(3134) => [
+      q(Joba),
+      ],
+   q(3135) => [
+      q(Wojenaka),
+      ],
+   q(3136) => [
+      q(Jogi),
+      ],
+   q(3137) => [
+      q(Jora),
+      ],
+   q(3138) => [
+      q(Jordanian Sign Language),
+      ],
+   q(3139) => [
+      q(Jowulu),
+      ],
+   q(3140) => [
+      q(Jewish Palestinian Aramaic),
+      ],
+   q(3141) => [
+      q(Jaqaru),
+      ],
+   q(3142) => [
+      q(Jarai),
+      ],
+   q(3143) => [
+      q(Jiru),
+      ],
+   q(3144) => [
+      q(Jorto),
+      ],
+   q(3145) => [
+      q(Japreria),
+      ],
+   q(3146) => [
+      q(Japanese Sign Language),
+      ],
+   q(3147) => [
+      q(Juma),
+      ],
+   q(3148) => [
+      q(Wannu),
+      ],
+   q(3149) => [
+      q(Jurchen),
+      ],
+   q(3150) => [
+      q(Worodougou),
+      ],
+   q(3151) => [
+      q(Hone),
+      ],
+   q(3152) => [
+      q(Ngadjuri),
+      ],
+   q(3153) => [
+      q(Wapan),
+      ],
+   q(3154) => [
+      q(Jirel),
+      ],
+   q(3155) => [
+      q(Jumjum),
+      ],
+   q(3156) => [
+      q(Juang),
+      ],
+   q(3157) => [
+      q(Jiba),
+      ],
+   q(3158) => [
+      q(Hupde),
+      ],
+   q(3159) => [
+      q(Juruna),
+      ],
+   q(3160) => [
+      q(Jumla Sign Language),
+      ],
+   q(3161) => [
+      q(Jutish),
+      ],
+   q(3162) => [
+      q(Ju),
+      ],
+   q(3163) => [
+      q(Wapha),
+      ],
+   q(3164) => [
+      q(Juray),
+      ],
+   q(3165) => [
+      q(Javindo),
+      ],
+   q(3166) => [
+      q(Caribbean Javanese),
+      ],
+   q(3167) => [
+      q(Jwira-Pepesa),
+      ],
+   q(3168) => [
+      q(Jiarong),
+      ],
+   q(3169) => [
+      q(Judeo-Yemeni Arabic),
+      ],
+   q(3170) => [
+      q(Jaya),
+      ],
+   q(3171) => [
+      q(Adara),
+      ],
+   q(3172) => [
+      q(Ketangalan),
+      ],
+   q(3173) => [
+      q(Katso),
+      ],
+   q(3174) => [
+      q(Kajaman),
+      ],
+   q(3175) => [
+      q(Kara (Central African Republic)),
+      ],
+   q(3176) => [
+      q(Karekare),
+      ],
+   q(3177) => [
+      q(Jju),
+      ],
+   q(3178) => [
+      q(Kayapa Kallahan),
+      ],
+   q(3179) => [
+      q(Xaasongaxango),
+      ],
+   q(3180) => [
+      q(Bezhta),
+      ],
+   q(3181) => [
+      q(Capanahua),
+      ],
+   q(3182) => [
+      q(Katukina),
+      ],
+   q(3183) => [
+      q(Kao),
+      ],
+   q(3184) => [
+      q(Kamayura),
+      ],
+   q(3185) => [
+      q(Kalarko),
+      ],
+   q(3186) => [
+      q(Kaxuiana),
+      ],
+   q(3187) => [
+      q(Kadiweu),
+      ],
+   q(3188) => [
+      q(Kanju),
+      ],
+   q(3189) => [
+      q(Khamba),
+      ],
+   q(3190) => [
+      q(Camsa),
+      ],
+   q(3191) => [
+      q(Kaptiau),
+      ],
+   q(3192) => [
+      q(Kari),
+      ],
+   q(3193) => [
+      q(Grass Koiari),
+      ],
+   q(3194) => [
+      q(Kanembu),
+      ],
+   q(3195) => [
+      q(Iwal),
+      ],
+   q(3196) => [
+      q(Kare (Central African Republic)),
+      ],
+   q(3197) => [
+      q(Keliko),
+      ],
+   q(3198) => [
+      q(Kabiye),
+      ],
+   q(3199) => [
+      q(Kamano),
+      ],
+   q(3200) => [
+      q(Kafa),
+      ],
+   q(3201) => [
+      q(Kande),
+      ],
+   q(3202) => [
+      q(Abadi),
+      ],
+   q(3203) => [
+      q(Kabutra),
+      ],
+   q(3204) => [
+      q(Dera (Indonesia)),
+      ],
+   q(3205) => [
+      q(Kaiep),
+      ],
+   q(3206) => [
+      q(Ap Ma),
+      ],
+   q(3207) => [
+      q(Manga Kanuri),
+      ],
+   q(3208) => [
+      q(Duhwa),
+      ],
+   q(3209) => [
+      q(Khanty),
+      ],
+   q(3210) => [
+      q(Kawacha),
+      ],
+   q(3211) => [
+      q(Lubila),
+      ],
+   q(3212) => [
+      q(Ngkalmpw Kanum),
+      ],
+   q(3213) => [
+      q(Kaivi),
+      ],
+   q(3214) => [
+      q(Ukaan),
+      ],
+   q(3215) => [
+      q(Tyap),
+      ],
+   q(3216) => [
+      q(Vono),
+      ],
+   q(3217) => [
+      q(Kamantan),
+      ],
+   q(3218) => [
+      q(Kobiana),
+      ],
+   q(3219) => [
+      q(Kalanga),
+      ],
+   q(3220) => [
+      q(Kela (Papua New Guinea)),
+      q(Kala),
+      ],
+   q(3221) => [
+      q(Gula (Central African Republic)),
+      ],
+   q(3222) => [
+      q(Nubi),
+      ],
+   q(3223) => [
+      q(Kinalakna),
+      ],
+   q(3224) => [
+      q(Kanga),
+      ],
+   q(3225) => [
+      q(Kamo),
+      ],
+   q(3226) => [
+      q(Katla),
+      ],
+   q(3227) => [
+      q(Koenoem),
+      ],
+   q(3228) => [
+      q(Kaian),
+      ],
+   q(3229) => [
+      q(Kami (Tanzania)),
+      ],
+   q(3230) => [
+      q(Kete),
+      ],
+   q(3231) => [
+      q(Kabwari),
+      ],
+   q(3232) => [
+      q(Kachama-Ganjule),
+      ],
+   q(3233) => [
+      q(Korandje),
+      ],
+   q(3234) => [
+      q(Konongo),
+      ],
+   q(3235) => [
+      q(Worimi),
+      ],
+   q(3236) => [
+      q(Kutu),
+      ],
+   q(3237) => [
+      q(Yankunytjatjara),
+      ],
+   q(3238) => [
+      q(Makonde),
+      ],
+   q(3239) => [
+      q(Mamusi),
+      ],
+   q(3240) => [
+      q(Seba),
+      ],
+   q(3241) => [
+      q(Tem),
+      ],
+   q(3242) => [
+      q(Kumam),
+      ],
+   q(3243) => [
+      q(Karamojong),
+      ],
+   q(3244) => [
+      q(Numee),
+      q(Kwenyi),
+      ],
+   q(3245) => [
+      q(Tsikimba),
+      ],
+   q(3246) => [
+      q(Kagoma),
+      ],
+   q(3247) => [
+      q(Kunda),
+      ],
+   q(3248) => [
+      q(Kaningdon-Nindem),
+      ],
+   q(3249) => [
+      q(Koch),
+      ],
+   q(3250) => [
+      q(Karaim),
+      ],
+   q(3251) => [
+      q(Kuy),
+      ],
+   q(3252) => [
+      q(Kadaru),
+      ],
+   q(3253) => [
+      q(Koneraw),
+      ],
+   q(3254) => [
+      q(Kam),
+      ],
+   q(3255) => [
+      q(Keder),
+      q(Keijar),
+      ],
+   q(3256) => [
+      q(Kwaja),
+      ],
+   q(3257) => [
+      q(Kabuverdianu),
+      ],
+   q(3258) => [
+      q(Kele),
+      ],
+   q(3259) => [
+      q(Keiga),
+      ],
+   q(3260) => [
+      q(Kerewe),
+      ],
+   q(3261) => [
+      q(Eastern Keres),
+      ],
+   q(3262) => [
+      q(Kpessi),
+      ],
+   q(3263) => [
+      q(Tese),
+      ],
+   q(3264) => [
+      q(Keak),
+      ],
+   q(3265) => [
+      q(Kei),
+      ],
+   q(3266) => [
+      q(Kadar),
+      ],
+   q(3267) => [
+      q(Kekchi),
+      ],
+   q(3268) => [
+      q(Kela (Democratic Republic of Congo)),
+      ],
+   q(3269) => [
+      q(Kemak),
+      ],
+   q(3270) => [
+      q(Kenyang),
+      ],
+   q(3271) => [
+      q(Kakwa),
+      ],
+   q(3272) => [
+      q(Kaikadi),
+      ],
+   q(3273) => [
+      q(Kamar),
+      ],
+   q(3274) => [
+      q(Kera),
+      ],
+   q(3275) => [
+      q(Kugbo),
+      ],
+   q(3276) => [
+      q(Ket),
+      ],
+   q(3277) => [
+      q(Akebu),
+      ],
+   q(3278) => [
+      q(Kanikkaran),
+      ],
+   q(3279) => [
+      q(West Kewa),
+      ],
+   q(3280) => [
+      q(Kukna),
+      ],
+   q(3281) => [
+      q(Kupia),
+      ],
+   q(3282) => [
+      q(Kukele),
+      ],
+   q(3283) => [
+      q(Kodava),
+      ],
+   q(3284) => [
+      q(Northwestern Kolami),
+      ],
+   q(3285) => [
+      q(Konda-Dora),
+      ],
+   q(3286) => [
+      q(Korra Koraga),
+      ],
+   q(3287) => [
+      q(Kota (India)),
+      ],
+   q(3288) => [
+      q(Koya),
+      ],
+   q(3289) => [
+      q(Kudiya),
+      ],
+   q(3290) => [
+      q(Kurichiya),
+      ],
+   q(3291) => [
+      q(Kannada Kurumba),
+      ],
+   q(3292) => [
+      q(Kemiehua),
+      ],
+   q(3293) => [
+      q(Kinnauri),
+      ],
+   q(3294) => [
+      q(Kung),
+      ],
+   q(3295) => [
+      q(Khunsari),
+      ],
+   q(3296) => [
+      q(Kuk),
+      ],
+   q(3297) => [
+      q(Koro (Cote d'Ivoire)),
+      ],
+   q(3298) => [
+      q(Korwa),
+      ],
+   q(3299) => [
+      q(Korku),
+      ],
+   q(3300) => [
+      q(Kachchi),
+      ],
+   q(3301) => [
+      q(Bilaspuri),
+      ],
+   q(3302) => [
+      q(Kanjari),
+      ],
+   q(3303) => [
+      q(Katkari),
+      ],
+   q(3304) => [
+      q(Kurmukar),
+      ],
+   q(3305) => [
+      q(Kharam Naga),
+      ],
+   q(3306) => [
+      q(Kullu Pahari),
+      ],
+   q(3307) => [
+      q(Kumaoni),
+      ],
+   q(3308) => [
+      q(Koromfe),
+      ],
+   q(3309) => [
+      q(Koyaga),
+      ],
+   q(3310) => [
+      q(Kawe),
+      ],
+   q(3311) => [
+      q(Kasseng),
+      ],
+   q(3312) => [
+      q(Kataang),
+      ],
+   q(3313) => [
+      q(Komering),
+      ],
+   q(3314) => [
+      q(Kube),
+      ],
+   q(3315) => [
+      q(Kusunda),
+      ],
+   q(3316) => [
+      q(Selangor Sign Language),
+      ],
+   q(3317) => [
+      q(Gamale Kham),
+      ],
+   q(3318) => [
+      q(Kaiwa),
+      ],
+   q(3319) => [
+      q(Kunggari),
+      ],
+   q(3320) => [
+      q(Karipuna),
+      ],
+   q(3321) => [
+      q(Karingani),
+      ],
+   q(3322) => [
+      q(Krongo),
+      ],
+   q(3323) => [
+      q(Kaingang),
+      ],
+   q(3324) => [
+      q(Kamoro),
+      ],
+   q(3325) => [
+      q(Abun),
+      ],
+   q(3326) => [
+      q(Kumbainggar),
+      ],
+   q(3327) => [
+      q(Somyev),
+      ],
+   q(3328) => [
+      q(Kobol),
+      ],
+   q(3329) => [
+      q(Karas),
+      ],
+   q(3330) => [
+      q(Karon Dori),
+      ],
+   q(3331) => [
+      q(Kamaru),
+      ],
+   q(3332) => [
+      q(Kyerung),
+      ],
+   q(3333) => [
+      q(Lu),
+      ],
+   q(3334) => [
+      q(Tukang Besi North),
+      ],
+   q(3335) => [
+      q(Badi Kanum),
+      ],
+   q(3336) => [
+      q(Korowai),
+      ],
+   q(3337) => [
+      q(Khuen),
+      ],
+   q(3338) => [
+      q(Khams Tibetan),
+      ],
+   q(3339) => [
+      q(Kehu),
+      ],
+   q(3340) => [
+      q(Kuturmi),
+      ],
+   q(3341) => [
+      q(Halh Mongolian),
+      ],
+   q(3342) => [
+      q(Lusi),
+      ],
+   q(3343) => [
+      q(Khandesi),
+      ],
+   q(3344) => [
+      q(Kapori),
+      q(Kapauri),
+      ],
+   q(3345) => [
+      q(Koyra Chiini Songhay),
+      ],
+   q(3346) => [
+      q(Kharia),
+      ],
+   q(3347) => [
+      q(Kasua),
+      ],
+   q(3348) => [
+      q(Khamti),
+      ],
+   q(3349) => [
+      q(Nkhumbi),
+      ],
+   q(3350) => [
+      q(Khvarshi),
+      ],
+   q(3351) => [
+      q(Khowar),
+      ],
+   q(3352) => [
+      q(Kanu),
+      ],
+   q(3353) => [
+      q(Kele (Democratic Republic of Congo)),
+      ],
+   q(3354) => [
+      q(Keapara),
+      ],
+   q(3355) => [
+      q(Kim),
+      ],
+   q(3356) => [
+      q(Koalib),
+      ],
+   q(3357) => [
+      q(Kickapoo),
+      ],
+   q(3358) => [
+      q(Koshin),
+      ],
+   q(3359) => [
+      q(Kibet),
+      ],
+   q(3360) => [
+      q(Eastern Parbate Kham),
+      ],
+   q(3361) => [
+      q(Kimaama),
+      q(Kimaghima),
+      ],
+   q(3362) => [
+      q(Kilmeri),
+      ],
+   q(3363) => [
+      q(Kitsai),
+      ],
+   q(3364) => [
+      q(Kilivila),
+      ],
+   q(3365) => [
+      q(Kariya),
+      ],
+   q(3366) => [
+      q(Karagas),
+      ],
+   q(3367) => [
+      q(Kiowa),
+      ],
+   q(3368) => [
+      q(Sheshi Kham),
+      ],
+   q(3369) => [
+      q(Kosadle),
+      q(Kosare),
+      ],
+   q(3370) => [
+      q(Kis),
+      ],
+   q(3371) => [
+      q(Agob),
+      ],
+   q(3372) => [
+      q(Kirmanjki (individual language)),
+      ],
+   q(3373) => [
+      q(Kimbu),
+      ],
+   q(3374) => [
+      q(Northeast Kiwai),
+      ],
+   q(3375) => [
+      q(Khiamniungan Naga),
+      ],
+   q(3376) => [
+      q(Kirikiri),
+      ],
+   q(3377) => [
+      q(Kisi),
+      ],
+   q(3378) => [
+      q(Mlap),
+      ],
+   q(3379) => [
+      q(Q'anjob'al),
+      q(Kanjobal),
+      ],
+   q(3380) => [
+      q(Coastal Konjo),
+      ],
+   q(3381) => [
+      q(Southern Kiwai),
+      ],
+   q(3382) => [
+      q(Kisar),
+      ],
+   q(3383) => [
+      q(Khalaj),
+      ],
+   q(3384) => [
+      q(Khmu),
+      ],
+   q(3385) => [
+      q(Khakas),
+      ],
+   q(3386) => [
+      q(Zabana),
+      ],
+   q(3387) => [
+      q(Khinalugh),
+      ],
+   q(3388) => [
+      q(Highland Konjo),
+      ],
+   q(3389) => [
+      q(Western Parbate Kham),
+      ],
+   q(3390) => [
+      q(Khang),
+      ],
+   q(3391) => [
+      q(Kunjen),
+      ],
+   q(3392) => [
+      q(Harijan Kinnauri),
+      ],
+   q(3393) => [
+      q(Pwo Eastern Karen),
+      ],
+   q(3394) => [
+      q(Western Keres),
+      ],
+   q(3395) => [
+      q(Kurudu),
+      ],
+   q(3396) => [
+      q(East Kewa),
+      ],
+   q(3397) => [
+      q(Phrae Pwo Karen),
+      ],
+   q(3398) => [
+      q(Kashaya),
+      ],
+   q(3399) => [
+      q(Kaikavian Literary Language),
+      ],
+   q(3400) => [
+      q(Ramopa),
+      ],
+   q(3401) => [
+      q(Erave),
+      ],
+   q(3402) => [
+      q(Bumthangkha),
+      ],
+   q(3403) => [
+      q(Kakanda),
+      ],
+   q(3404) => [
+      q(Kwerisa),
+      ],
+   q(3405) => [
+      q(Odoodee),
+      ],
+   q(3406) => [
+      q(Kinuku),
+      ],
+   q(3407) => [
+      q(Kakabe),
+      ],
+   q(3408) => [
+      q(Kalaktang Monpa),
+      ],
+   q(3409) => [
+      q(Mabaka Valley Kalinga),
+      ],
+   q(3410) => [
+      q(Khun),
+      ],
+   q(3411) => [
+      q(Kagulu),
+      ],
+   q(3412) => [
+      q(Kako),
+      ],
+   q(3413) => [
+      q(Kokota),
+      ],
+   q(3414) => [
+      q(Kosarek Yale),
+      ],
+   q(3415) => [
+      q(Kiong),
+      ],
+   q(3416) => [
+      q(Kon Keu),
+      ],
+   q(3417) => [
+      q(Karko),
+      ],
+   q(3418) => [
+      q(Gugubera),
+      ],
+   q(3419) => [
+      q(Kaiku),
+      ],
+   q(3420) => [
+      q(Kir-Balar),
+      ],
+   q(3421) => [
+      q(Giiwo),
+      ],
+   q(3422) => [
+      q(Koi),
+      ],
+   q(3423) => [
+      q(Tumi),
+      ],
+   q(3424) => [
+      q(Kangean),
+      ],
+   q(3425) => [
+      q(Teke-Kukuya),
+      ],
+   q(3426) => [
+      q(Kohin),
+      ],
+   q(3427) => [
+      q(Guguyimidjir),
+      ],
+   q(3428) => [
+      q(Kaska),
+      ],
+   q(3429) => [
+      q(Klamath-Modoc),
+      ],
+   q(3430) => [
+      q(Kiliwa),
+      ],
+   q(3431) => [
+      q(Kolbila),
+      ],
+   q(3432) => [
+      q(Gamilaraay),
+      ],
+   q(3433) => [
+      q(Kulung (Nepal)),
+      ],
+   q(3434) => [
+      q(Kendeje),
+      ],
+   q(3435) => [
+      q(Tagakaulo),
+      ],
+   q(3436) => [
+      q(Weliki),
+      ],
+   q(3437) => [
+      q(Kalumpang),
+      ],
+   q(3438) => [
+      q(Turkic Khalaj),
+      ],
+   q(3439) => [
+      q(Kono (Nigeria)),
+      ],
+   q(3440) => [
+      q(Kagan Kalagan),
+      ],
+   q(3441) => [
+      q(Migum),
+      ],
+   q(3442) => [
+      q(Kalenjin),
+      ],
+   q(3443) => [
+      q(Kapya),
+      ],
+   q(3444) => [
+      q(Kamasa),
+      ],
+   q(3445) => [
+      q(Rumu),
+      ],
+   q(3446) => [
+      q(Khaling),
+      ],
+   q(3447) => [
+      q(Kalasha),
+      ],
+   q(3448) => [
+      q(Nukna),
+      ],
+   q(3449) => [
+      q(Klao),
+      ],
+   q(3450) => [
+      q(Maskelynes),
+      ],
+   q(3451) => [
+      q(Lindu),
+      ],
+   q(3452) => [
+      q(Koluwawa),
+      ],
+   q(3453) => [
+      q(Kalao),
+      ],
+   q(3454) => [
+      q(Kabola),
+      ],
+   q(3455) => [
+      q(Konni),
+      ],
+   q(3456) => [
+      q(Southern Dong),
+      ],
+   q(3457) => [
+      q(Majukayang Kalinga),
+      ],
+   q(3458) => [
+      q(Bakole),
+      ],
+   q(3459) => [
+      q(Kare (Papua New Guinea)),
+      ],
+   q(3460) => [
+      q(Kate),
+      ],
+   q(3461) => [
+      q(Kalam),
+      ],
+   q(3462) => [
+      q(Kami (Nigeria)),
+      ],
+   q(3463) => [
+      q(Kumarbhag Paharia),
+      ],
+   q(3464) => [
+      q(Limos Kalinga),
+      ],
+   q(3465) => [
+      q(Tanudan Kalinga),
+      ],
+   q(3466) => [
+      q(Kom (India)),
+      ],
+   q(3467) => [
+      q(Awtuw),
+      ],
+   q(3468) => [
+      q(Kwoma),
+      ],
+   q(3469) => [
+      q(Gimme),
+      ],
+   q(3470) => [
+      q(Kwama),
+      ],
+   q(3471) => [
+      q(Northern Kurdish),
+      ],
+   q(3472) => [
+      q(Kamasau),
+      ],
+   q(3473) => [
+      q(Kemtuik),
+      ],
+   q(3474) => [
+      q(Kanite),
+      ],
+   q(3475) => [
+      q(Karipuna Creole French),
+      ],
+   q(3476) => [
+      q(Komo (Democratic Republic of Congo)),
+      ],
+   q(3477) => [
+      q(Waboda),
+      ],
+   q(3478) => [
+      q(Koma),
+      ],
+   q(3479) => [
+      q(Khorasani Turkish),
+      ],
+   q(3480) => [
+      q(Dera (Nigeria)),
+      ],
+   q(3481) => [
+      q(Lubuagan Kalinga),
+      ],
+   q(3482) => [
+      q(Central Kanuri),
+      ],
+   q(3483) => [
+      q(Konda),
+      ],
+   q(3484) => [
+      q(Kankanaey),
+      ],
+   q(3485) => [
+      q(Mankanya),
+      ],
+   q(3486) => [
+      q(Koongo),
+      ],
+   q(3487) => [
+      q(Kanufi),
+      ],
+   q(3488) => [
+      q(Western Kanjobal),
+      ],
+   q(3489) => [
+      q(Kuranko),
+      ],
+   q(3490) => [
+      q(Keninjal),
+      ],
+   q(3491) => [
+      q(Kanamari),
+      ],
+   q(3492) => [
+      q(Konkani (individual language)),
+      ],
+   q(3493) => [
+      q(Kono (Sierra Leone)),
+      ],
+   q(3494) => [
+      q(Kwanja),
+      ],
+   q(3495) => [
+      q(Kintaq),
+      ],
+   q(3496) => [
+      q(Kaningra),
+      ],
+   q(3497) => [
+      q(Kensiu),
+      ],
+   q(3498) => [
+      q(Panoan Katukina),
+      ],
+   q(3499) => [
+      q(Kono (Guinea)),
+      ],
+   q(3500) => [
+      q(Tabo),
+      ],
+   q(3501) => [
+      q(Kung-Ekoka),
+      ],
+   q(3502) => [
+      q(Kendayan),
+      q(Salako),
+      ],
+   q(3503) => [
+      q(Kanyok),
+      ],
+   q(3504) => [
+      q(Kalamse),
+      ],
+   q(3505) => [
+      q(Konomala),
+      ],
+   q(3506) => [
+      q(Kpati),
+      ],
+   q(3507) => [
+      q(Kodi),
+      ],
+   q(3508) => [
+      q(Kacipo-Balesi),
+      ],
+   q(3509) => [
+      q(Kubi),
+      ],
+   q(3510) => [
+      q(Cogui),
+      q(Kogi),
+      ],
+   q(3511) => [
+      q(Koyo),
+      ],
+   q(3512) => [
+      q(Komi-Permyak),
+      ],
+   q(3513) => [
+      q(Kol (Papua New Guinea)),
+      ],
+   q(3514) => [
+      q(Konzo),
+      ],
+   q(3515) => [
+      q(Waube),
+      ],
+   q(3516) => [
+      q(Kota (Gabon)),
+      ],
+   q(3517) => [
+      q(Lagwan),
+      ],
+   q(3518) => [
+      q(Koke),
+      ],
+   q(3519) => [
+      q(Kudu-Camo),
+      ],
+   q(3520) => [
+      q(Kugama),
+      ],
+   q(3521) => [
+      q(Coxima),
+      ],
+   q(3522) => [
+      q(Koyukon),
+      ],
+   q(3523) => [
+      q(Korak),
+      ],
+   q(3524) => [
+      q(Kutto),
+      ],
+   q(3525) => [
+      q(Mullu Kurumba),
+      ],
+   q(3526) => [
+      q(Curripaco),
+      ],
+   q(3527) => [
+      q(Koba),
+      ],
+   q(3528) => [
+      q(Komba),
+      ],
+   q(3529) => [
+      q(Kapingamarangi),
+      ],
+   q(3530) => [
+      q(Kplang),
+      ],
+   q(3531) => [
+      q(Kofei),
+      ],
+   q(3532) => [
+      q(Karaja),
+      ],
+   q(3533) => [
+      q(Kpan),
+      ],
+   q(3534) => [
+      q(Kpala),
+      ],
+   q(3535) => [
+      q(Koho),
+      ],
+   q(3536) => [
+      q(Kepkiriwat),
+      ],
+   q(3537) => [
+      q(Ikposo),
+      ],
+   q(3538) => [
+      q(Korupun-Sela),
+      ],
+   q(3539) => [
+      q(Korafe-Yegha),
+      ],
+   q(3540) => [
+      q(Tehit),
+      ],
+   q(3541) => [
+      q(Karata),
+      ],
+   q(3542) => [
+      q(Kafoa),
+      ],
+   q(3543) => [
+      q(Komi-Zyrian),
+      ],
+   q(3544) => [
+      q(Kobon),
+      ],
+   q(3545) => [
+      q(Mountain Koiali),
+      ],
+   q(3546) => [
+      q(Koryak),
+      ],
+   q(3547) => [
+      q(Kupsabiny),
+      ],
+   q(3548) => [
+      q(Mum),
+      ],
+   q(3549) => [
+      q(Kovai),
+      ],
+   q(3550) => [
+      q(Doromu-Koki),
+      ],
+   q(3551) => [
+      q(Koy Sanjaq Surat),
+      ],
+   q(3552) => [
+      q(Kalagan),
+      ],
+   q(3553) => [
+      q(Kakabai),
+      ],
+   q(3554) => [
+      q(Khe),
+      ],
+   q(3555) => [
+      q(Kisankasa),
+      ],
+   q(3556) => [
+      q(Koitabu),
+      ],
+   q(3557) => [
+      q(Koromira),
+      ],
+   q(3558) => [
+      q(Kotafon Gbe),
+      ],
+   q(3559) => [
+      q(Kyenele),
+      ],
+   q(3560) => [
+      q(Khisa),
+      ],
+   q(3561) => [
+      q(Kaonde),
+      ],
+   q(3562) => [
+      q(Eastern Krahn),
+      ],
+   q(3563) => [
+      q(Kimre),
+      ],
+   q(3564) => [
+      q(Krenak),
+      ],
+   q(3565) => [
+      q(Kimaragang),
+      ],
+   q(3566) => [
+      q(Northern Kissi),
+      ],
+   q(3567) => [
+      q(Klias River Kadazan),
+      ],
+   q(3568) => [
+      q(Seroa),
+      ],
+   q(3569) => [
+      q(Okolod),
+      ],
+   q(3570) => [
+      q(Kandas),
+      ],
+   q(3571) => [
+      q(Mser),
+      ],
+   q(3572) => [
+      q(Koorete),
+      ],
+   q(3573) => [
+      q(Korana),
+      ],
+   q(3574) => [
+      q(Kumhali),
+      ],
+   q(3575) => [
+      q(Karkin),
+      ],
+   q(3576) => [
+      q(Kairui-Midiki),
+      ],
+   q(3577) => [
+      q(Panara),
+      ],
+   q(3578) => [
+      q(Koro (Vanuatu)),
+      ],
+   q(3579) => [
+      q(Kurama),
+      ],
+   q(3580) => [
+      q(Krio),
+      ],
+   q(3581) => [
+      q(Kinaray-A),
+      ],
+   q(3582) => [
+      q(Kerek),
+      ],
+   q(3583) => [
+      q(Krim),
+      ],
+   q(3584) => [
+      q(Sapo),
+      ],
+   q(3585) => [
+      q(Korop),
+      ],
+   q(3586) => [
+      q(Kru'ng 2),
+      ],
+   q(3587) => [
+      q(Gbaya (Sudan)),
+      ],
+   q(3588) => [
+      q(Tumari Kanuri),
+      ],
+   q(3589) => [
+      q(Kavet),
+      ],
+   q(3590) => [
+      q(Western Krahn),
+      ],
+   q(3591) => [
+      q(Karon),
+      ],
+   q(3592) => [
+      q(Kryts),
+      ],
+   q(3593) => [
+      q(Sota Kanum),
+      ],
+   q(3594) => [
+      q(Shuwa-Zamani),
+      ],
+   q(3595) => [
+      q(Shambala),
+      ],
+   q(3596) => [
+      q(Southern Kalinga),
+      ],
+   q(3597) => [
+      q(Kuanua),
+      ],
+   q(3598) => [
+      q(Kuni),
+      ],
+   q(3599) => [
+      q(Bafia),
+      ],
+   q(3600) => [
+      q(Kusaghe),
+      ],
+   q(3601) => [
+      q(Kolsch),
+      ],
+   q(3602) => [
+      q(Krisa),
+      q(I'saka),
+      ],
+   q(3603) => [
+      q(Uare),
+      ],
+   q(3604) => [
+      q(Kansa),
+      ],
+   q(3605) => [
+      q(Kumalu),
+      ],
+   q(3606) => [
+      q(Kumba),
+      ],
+   q(3607) => [
+      q(Kasiguranin),
+      ],
+   q(3608) => [
+      q(Kofa),
+      ],
+   q(3609) => [
+      q(Kaba),
+      ],
+   q(3610) => [
+      q(Kwaami),
+      ],
+   q(3611) => [
+      q(Borong),
+      ],
+   q(3612) => [
+      q(Southern Kisi),
+      ],
+   q(3613) => [
+      q(Winye),
+      ],
+   q(3614) => [
+      q(Khamyang),
+      ],
+   q(3615) => [
+      q(Kusu),
+      ],
+   q(3616) => [
+      q(S'gaw Karen),
+      ],
+   q(3617) => [
+      q(Kedang),
+      ],
+   q(3618) => [
+      q(Kharia Thar),
+      ],
+   q(3619) => [
+      q(Kodaku),
+      ],
+   q(3620) => [
+      q(Katua),
+      ],
+   q(3621) => [
+      q(Kambaata),
+      ],
+   q(3622) => [
+      q(Kholok),
+      ],
+   q(3623) => [
+      q(Kokata),
+      ],
+   q(3624) => [
+      q(Nubri),
+      ],
+   q(3625) => [
+      q(Kwami),
+      ],
+   q(3626) => [
+      q(Kalkutung),
+      ],
+   q(3627) => [
+      q(Karanga),
+      ],
+   q(3628) => [
+      q(North Muyu),
+      ],
+   q(3629) => [
+      q(Plapo Krumen),
+      ],
+   q(3630) => [
+      q(Kaniet),
+      ],
+   q(3631) => [
+      q(Koroshi),
+      ],
+   q(3632) => [
+      q(Kurti),
+      ],
+   q(3633) => [
+      q(Karitiana),
+      ],
+   q(3634) => [
+      q(Kuot),
+      ],
+   q(3635) => [
+      q(Kaduo),
+      ],
+   q(3636) => [
+      q(Katabaga),
+      ],
+   q(3637) => [
+      q(Kota Marudu Tinagas),
+      ],
+   q(3638) => [
+      q(South Muyu),
+      ],
+   q(3639) => [
+      q(Ketum),
+      ],
+   q(3640) => [
+      q(Kituba (Democratic Republic of Congo)),
+      ],
+   q(3641) => [
+      q(Eastern Katu),
+      ],
+   q(3642) => [
+      q(Kato),
+      ],
+   q(3643) => [
+      q(Kaxarari),
+      ],
+   q(3644) => [
+      q(Kango (Bas-Uele District)),
+      ],
+   q(3645) => [
+      q(Ju/'hoan),
+      q(Juhoan),
+      ],
+   q(3646) => [
+      q(Kutep),
+      ],
+   q(3647) => [
+      q(Kwinsu),
+      ],
+   q(3648) => [
+      q('Auhelawa),
+      ],
+   q(3649) => [
+      q(Kuman (Papua New Guinea)),
+      ],
+   q(3650) => [
+      q(Western Katu),
+      ],
+   q(3651) => [
+      q(Kupa),
+      ],
+   q(3652) => [
+      q(Kushi),
+      ],
+   q(3653) => [
+      q(Kuikuro-Kalapalo),
+      ],
+   q(3654) => [
+      q(Kuria),
+      ],
+   q(3655) => [
+      q(Kepo'),
+      ],
+   q(3656) => [
+      q(Kulere),
+      ],
+   q(3657) => [
+      q(Kunama),
+      ],
+   q(3658) => [
+      q(Kumukio),
+      ],
+   q(3659) => [
+      q(Kunimaipa),
+      ],
+   q(3660) => [
+      q(Kusaal),
+      ],
+   q(3661) => [
+      q(Upper Kuskokwim),
+      ],
+   q(3662) => [
+      q(Kur),
+      ],
+   q(3663) => [
+      q(Kpagua),
+      ],
+   q(3664) => [
+      q(Kukatja),
+      ],
+   q(3665) => [
+      q(Kuuku-Ya'u),
+      ],
+   q(3666) => [
+      q(Kunza),
+      ],
+   q(3667) => [
+      q(Bagvalal),
+      ],
+   q(3668) => [
+      q(Kubu),
+      ],
+   q(3669) => [
+      q(Kove),
+      ],
+   q(3670) => [
+      q(Kui (Indonesia)),
+      ],
+   q(3671) => [
+      q(Kalabakan),
+      ],
+   q(3672) => [
+      q(Kabalai),
+      ],
+   q(3673) => [
+      q(Kuni-Boazi),
+      ],
+   q(3674) => [
+      q(Komodo),
+      ],
+   q(3675) => [
+      q(Kwang),
+      ],
+   q(3676) => [
+      q(Psikye),
+      ],
+   q(3677) => [
+      q(Korean Sign Language),
+      ],
+   q(3678) => [
+      q(Kayaw),
+      ],
+   q(3679) => [
+      q(Kendem),
+      ],
+   q(3680) => [
+      q(Border Kuna),
+      ],
+   q(3681) => [
+      q(Dobel),
+      ],
+   q(3682) => [
+      q(Kompane),
+      ],
+   q(3683) => [
+      q(Geba Karen),
+      ],
+   q(3684) => [
+      q(Kerinci),
+      ],
+   q(3685) => [
+      q(Kunggara),
+      ],
+   q(3686) => [
+      q(Lahta Karen),
+      q(Lahta),
+      ],
+   q(3687) => [
+      q(Yinbaw Karen),
+      ],
+   q(3688) => [
+      q(Kola),
+      ],
+   q(3689) => [
+      q(Wersing),
+      ],
+   q(3690) => [
+      q(Parkari Koli),
+      ],
+   q(3691) => [
+      q(Yintale Karen),
+      q(Yintale),
+      ],
+   q(3692) => [
+      q(Tsakwambo),
+      q(Tsaukambo),
+      ],
+   q(3693) => [
+      q(Daw),
+      ],
+   q(3694) => [
+      q(Kwa),
+      ],
+   q(3695) => [
+      q(Likwala),
+      ],
+   q(3696) => [
+      q(Kwaio),
+      ],
+   q(3697) => [
+      q(Kwerba),
+      ],
+   q(3698) => [
+      q(Kwara'ae),
+      ],
+   q(3699) => [
+      q(Sara Kaba Deme),
+      ],
+   q(3700) => [
+      q(Kowiai),
+      ],
+   q(3701) => [
+      q(Awa-Cuaiquer),
+      ],
+   q(3702) => [
+      q(Kwanga),
+      ],
+   q(3703) => [
+      q(Kwakiutl),
+      ],
+   q(3704) => [
+      q(Kofyar),
+      ],
+   q(3705) => [
+      q(Kwambi),
+      ],
+   q(3706) => [
+      q(Kwangali),
+      ],
+   q(3707) => [
+      q(Kwomtari),
+      ],
+   q(3708) => [
+      q(Kodia),
+      ],
+   q(3709) => [
+      q(Kwer),
+      ],
+   q(3710) => [
+      q(Kwese),
+      ],
+   q(3711) => [
+      q(Kwesten),
+      ],
+   q(3712) => [
+      q(Kwakum),
+      ],
+   q(3713) => [
+      q(Sara Kaba Naa),
+      ],
+   q(3714) => [
+      q(Kwinti),
+      ],
+   q(3715) => [
+      q(Khirwar),
+      ],
+   q(3716) => [
+      q(San Salvador Kongo),
+      ],
+   q(3717) => [
+      q(Kwadi),
+      ],
+   q(3718) => [
+      q(Kairiru),
+      ],
+   q(3719) => [
+      q(Krobu),
+      ],
+   q(3720) => [
+      q(Konso),
+      q(Khonso),
+      ],
+   q(3721) => [
+      q(Brunei),
+      ],
+   q(3722) => [
+      q(Manumanaw Karen),
+      q(Manumanaw),
+      ],
+   q(3723) => [
+      q(Karo (Ethiopia)),
+      ],
+   q(3724) => [
+      q(Keningau Murut),
+      ],
+   q(3725) => [
+      q(Kulfa),
+      ],
+   q(3726) => [
+      q(Zayein Karen),
+      ],
+   q(3727) => [
+      q(Nepali Kurux),
+      ],
+   q(3728) => [
+      q(Northern Khmer),
+      ],
+   q(3729) => [
+      q(Kanowit-Tanjong Melanau),
+      ],
+   q(3730) => [
+      q(Kanoe),
+      ],
+   q(3731) => [
+      q(Wadiyara Koli),
+      ],
+   q(3732) => [
+      q(Smarky Kanum),
+      ],
+   q(3733) => [
+      q(Koro (Papua New Guinea)),
+      ],
+   q(3734) => [
+      q(Kangjia),
+      ],
+   q(3735) => [
+      q(Koiwat),
+      ],
+   q(3736) => [
+      q(Kui (India)),
+      ],
+   q(3737) => [
+      q(Kuvi),
+      ],
+   q(3738) => [
+      q(Konai),
+      ],
+   q(3739) => [
+      q(Likuba),
+      ],
+   q(3740) => [
+      q(Kayong),
+      ],
+   q(3741) => [
+      q(Kerewo),
+      ],
+   q(3742) => [
+      q(Kwaya),
+      ],
+   q(3743) => [
+      q(Butbut Kalinga),
+      ],
+   q(3744) => [
+      q(Kyaka),
+      ],
+   q(3745) => [
+      q(Karey),
+      ],
+   q(3746) => [
+      q(Krache),
+      ],
+   q(3747) => [
+      q(Kouya),
+      ],
+   q(3748) => [
+      q(Keyagana),
+      ],
+   q(3749) => [
+      q(Karok),
+      ],
+   q(3750) => [
+      q(Kiput),
+      ],
+   q(3751) => [
+      q(Karao),
+      ],
+   q(3752) => [
+      q(Kamayo),
+      ],
+   q(3753) => [
+      q(Kalapuya),
+      ],
+   q(3754) => [
+      q(Kpatili),
+      ],
+   q(3755) => [
+      q(Northern Binukidnon),
+      ],
+   q(3756) => [
+      q(Kelon),
+      ],
+   q(3757) => [
+      q(Kang),
+      ],
+   q(3758) => [
+      q(Kenga),
+      ],
+   q(3759) => [
+      q(Kuruaya),
+      ],
+   q(3760) => [
+      q(Baram Kayan),
+      ],
+   q(3761) => [
+      q(Kayagar),
+      ],
+   q(3762) => [
+      q(Western Kayah),
+      ],
+   q(3763) => [
+      q(Kayort),
+      ],
+   q(3764) => [
+      q(Kudmali),
+      ],
+   q(3765) => [
+      q(Rapoisi),
+      ],
+   q(3766) => [
+      q(Kambaira),
+      ],
+   q(3767) => [
+      q(Kayabi),
+      ],
+   q(3768) => [
+      q(Western Karaboro),
+      ],
+   q(3769) => [
+      q(Kaibobo),
+      ],
+   q(3770) => [
+      q(Bondoukou Kulango),
+      ],
+   q(3771) => [
+      q(Kadai),
+      ],
+   q(3772) => [
+      q(Kosena),
+      ],
+   q(3773) => [
+      q(Da'a Kaili),
+      ],
+   q(3774) => [
+      q(Kikai),
+      ],
+   q(3775) => [
+      q(Kelabit),
+      ],
+   q(3776) => [
+      q(Coastal Kadazan),
+      ],
+   q(3777) => [
+      q(Kazukuru),
+      ],
+   q(3778) => [
+      q(Kayeli),
+      ],
+   q(3779) => [
+      q(Kais),
+      ],
+   q(3780) => [
+      q(Kokola),
+      ],
+   q(3781) => [
+      q(Kaningi),
+      ],
+   q(3782) => [
+      q(Kaidipang),
+      ],
+   q(3783) => [
+      q(Kaike),
+      ],
+   q(3784) => [
+      q(Karang),
+      ],
+   q(3785) => [
+      q(Sugut Dusun),
+      ],
+   q(3786) => [
+      q(Tambunan Dusun),
+      ],
+   q(3787) => [
+      q(Kayupulau),
+      ],
+   q(3788) => [
+      q(Komyandaret),
+      ],
+   q(3789) => [
+      q(Kariri-Xoco),
+      ],
+   q(3790) => [
+      q(Kamarian),
+      ],
+   q(3791) => [
+      q(Kango (Tshopo District)),
+      ],
+   q(3792) => [
+      q(Kalabra),
+      ],
+   q(3793) => [
+      q(Southern Subanen),
+      ],
+   q(3794) => [
+      q(Linear A),
+      ],
+   q(3795) => [
+      q(Lacandon),
+      ],
+   q(3796) => [
+      q(Pattani),
+      ],
+   q(3797) => [
+      q(Lafofa),
+      ],
+   q(3798) => [
+      q(Langi),
+      ],
+   q(3799) => [
+      q(Lambya),
+      ],
+   q(3800) => [
+      q(Lango (Uganda)),
+      ],
+   q(3801) => [
+      q(Laka (Nigeria)),
+      ],
+   q(3802) => [
+      q(Lalia),
+      ],
+   q(3803) => [
+      q(Laru),
+      ],
+   q(3804) => [
+      q(Laka (Chad)),
+      ],
+   q(3805) => [
+      q(Qabiao),
+      ],
+   q(3806) => [
+      q(Larteh),
+      ],
+   q(3807) => [
+      q(Lama (Togo)),
+      ],
+   q(3808) => [
+      q(Laba),
+      ],
+   q(3809) => [
+      q(Lauje),
+      ],
+   q(3810) => [
+      q(Tiwa),
+      ],
+   q(3811) => [
+      q(Lama Bai),
+      ],
+   q(3812) => [
+      q(Aribwatsa),
+      ],
+   q(3813) => [
+      q(Lui),
+      ],
+   q(3814) => [
+      q(Label),
+      ],
+   q(3815) => [
+      q(Lakkia),
+      ],
+   q(3816) => [
+      q(Lak),
+      ],
+   q(3817) => [
+      q(Tinani),
+      ],
+   q(3818) => [
+      q(Laopang),
+      ],
+   q(3819) => [
+      q(La'bi),
+      ],
+   q(3820) => [
+      q(Ladakhi),
+      ],
+   q(3821) => [
+      q(Central Bontok),
+      ],
+   q(3822) => [
+      q(Libon Bikol),
+      ],
+   q(3823) => [
+      q(Lodhi),
+      ],
+   q(3824) => [
+      q(Lamet),
+      ],
+   q(3825) => [
+      q(Laven),
+      ],
+   q(3826) => [
+      q(Wampar),
+      ],
+   q(3827) => [
+      q(Lohorung),
+      ],
+   q(3828) => [
+      q(Libyan Sign Language),
+      ],
+   q(3829) => [
+      q(Lachi),
+      ],
+   q(3830) => [
+      q(Labu),
+      ],
+   q(3831) => [
+      q(Lavatbura-Lamusong),
+      ],
+   q(3832) => [
+      q(Tolaki),
+      ],
+   q(3833) => [
+      q(Lawangan),
+      ],
+   q(3834) => [
+      q(Lamu-Lamu),
+      ],
+   q(3835) => [
+      q(Lardil),
+      ],
+   q(3836) => [
+      q(Legenyem),
+      ],
+   q(3837) => [
+      q(Lola),
+      ],
+   q(3838) => [
+      q(Loncong),
+      ],
+   q(3839) => [
+      q(Lubu),
+      ],
+   q(3840) => [
+      q(Luchazi),
+      ],
+   q(3841) => [
+      q(Lisela),
+      ],
+   q(3842) => [
+      q(Tungag),
+      ],
+   q(3843) => [
+      q(Western Lawa),
+      ],
+   q(3844) => [
+      q(Luhu),
+      ],
+   q(3845) => [
+      q(Lisabata-Nuniali),
+      ],
+   q(3846) => [
+      q(Kla-Dan),
+      ],
+   q(3847) => [
+      q(Duya),
+      ],
+   q(3848) => [
+      q(Luri),
+      ],
+   q(3849) => [
+      q(Lenyima),
+      ],
+   q(3850) => [
+      q(Lamja-Dengsa-Tola),
+      ],
+   q(3851) => [
+      q(Laari),
+      ],
+   q(3852) => [
+      q(Lemoro),
+      ],
+   q(3853) => [
+      q(Leelau),
+      ],
+   q(3854) => [
+      q(Kaan),
+      ],
+   q(3855) => [
+      q(Landoma),
+      ],
+   q(3856) => [
+      q(Laadan),
+      ],
+   q(3857) => [
+      q(Loo),
+      ],
+   q(3858) => [
+      q(Tso),
+      ],
+   q(3859) => [
+      q(Lufu),
+      ],
+   q(3860) => [
+      q(Lega-Shabunda),
+      ],
+   q(3861) => [
+      q(Lala-Bisa),
+      ],
+   q(3862) => [
+      q(Leco),
+      ],
+   q(3863) => [
+      q(Lendu),
+      ],
+   q(3864) => [
+      q(Lyele),
+      ],
+   q(3865) => [
+      q(Lelemi),
+      ],
+   q(3866) => [
+      q(Lenje),
+      ],
+   q(3867) => [
+      q(Lemio),
+      ],
+   q(3868) => [
+      q(Lengola),
+      ],
+   q(3869) => [
+      q(Leipon),
+      ],
+   q(3870) => [
+      q(Lele (Democratic Republic of Congo)),
+      ],
+   q(3871) => [
+      q(Nomaande),
+      ],
+   q(3872) => [
+      q(Lenca),
+      ],
+   q(3873) => [
+      q(Leti (Cameroon)),
+      ],
+   q(3874) => [
+      q(Lepcha),
+      ],
+   q(3875) => [
+      q(Lembena),
+      ],
+   q(3876) => [
+      q(Lenkau),
+      ],
+   q(3877) => [
+      q(Lese),
+      ],
+   q(3878) => [
+      q(Lesing-Gelimi),
+      q(Amio-Gelimi),
+      ],
+   q(3879) => [
+      q(Kara (Papua New Guinea)),
+      ],
+   q(3880) => [
+      q(Lamma),
+      ],
+   q(3881) => [
+      q(Ledo Kaili),
+      ],
+   q(3882) => [
+      q(Luang),
+      ],
+   q(3883) => [
+      q(Lemolang),
+      ],
+   q(3884) => [
+      q(Lefa),
+      ],
+   q(3885) => [
+      q(Lingua Franca Nova),
+      ],
+   q(3886) => [
+      q(Lungga),
+      ],
+   q(3887) => [
+      q(Laghu),
+      ],
+   q(3888) => [
+      q(Lugbara),
+      ],
+   q(3889) => [
+      q(Laghuu),
+      ],
+   q(3890) => [
+      q(Lengilu),
+      ],
+   q(3891) => [
+      q(Lingarak),
+      q(Neverver),
+      ],
+   q(3892) => [
+      q(Wala),
+      ],
+   q(3893) => [
+      q(Lega-Mwenga),
+      ],
+   q(3894) => [
+      q(Opuuo),
+      ],
+   q(3895) => [
+      q(Logba),
+      ],
+   q(3896) => [
+      q(Lengo),
+      ],
+   q(3897) => [
+      q(Pahi),
+      ],
+   q(3898) => [
+      q(Longgu),
+      ],
+   q(3899) => [
+      q(Ligenza),
+      ],
+   q(3900) => [
+      q(Laha (Viet Nam)),
+      ],
+   q(3901) => [
+      q(Laha (Indonesia)),
+      ],
+   q(3902) => [
+      q(Lahu Shi),
+      ],
+   q(3903) => [
+      q(Lahul Lohar),
+      ],
+   q(3904) => [
+      q(Lhomi),
+      ],
+   q(3905) => [
+      q(Lahanan),
+      ],
+   q(3906) => [
+      q(Lhokpu),
+      ],
+   q(3907) => [
+      q(Mlahso),
+      ],
+   q(3908) => [
+      q(Lo-Toga),
+      ],
+   q(3909) => [
+      q(Lahu),
+      ],
+   q(3910) => [
+      q(West-Central Limba),
+      ],
+   q(3911) => [
+      q(Likum),
+      ],
+   q(3912) => [
+      q(Hlai),
+      ],
+   q(3913) => [
+      q(Nyindrou),
+      ],
+   q(3914) => [
+      q(Likila),
+      ],
+   q(3915) => [
+      q(Limbu),
+      ],
+   q(3916) => [
+      q(Ligbi),
+      ],
+   q(3917) => [
+      q(Lihir),
+      ],
+   q(3918) => [
+      q(Ligurian),
+      ],
+   q(3919) => [
+      q(Lika),
+      ],
+   q(3920) => [
+      q(Lillooet),
+      ],
+   q(3921) => [
+      q(Liki),
+      ],
+   q(3922) => [
+      q(Sekpele),
+      ],
+   q(3923) => [
+      q(Libido),
+      ],
+   q(3924) => [
+      q(Liberian English),
+      ],
+   q(3925) => [
+      q(Lisu),
+      ],
+   q(3926) => [
+      q(Logorik),
+      ],
+   q(3927) => [
+      q(Liv),
+      ],
+   q(3928) => [
+      q(Col),
+      ],
+   q(3929) => [
+      q(Liabuku),
+      ],
+   q(3930) => [
+      q(Banda-Bambari),
+      ],
+   q(3931) => [
+      q(Libinza),
+      ],
+   q(3932) => [
+      q(Golpa),
+      ],
+   q(3933) => [
+      q(Rampi),
+      ],
+   q(3934) => [
+      q(Laiyolo),
+      ],
+   q(3935) => [
+      q(Li'o),
+      ],
+   q(3936) => [
+      q(Lampung Api),
+      ],
+   q(3937) => [
+      q(Yirandali),
+      ],
+   q(3938) => [
+      q(Yuru),
+      ],
+   q(3939) => [
+      q(Lakalei),
+      ],
+   q(3940) => [
+      q(Kabras),
+      q(Lukabaras),
+      ],
+   q(3941) => [
+      q(Kucong),
+      ],
+   q(3942) => [
+      q(Lakonde),
+      ],
+   q(3943) => [
+      q(Kenyi),
+      ],
+   q(3944) => [
+      q(Lakha),
+      ],
+   q(3945) => [
+      q(Laki),
+      ],
+   q(3946) => [
+      q(Remun),
+      ],
+   q(3947) => [
+      q(Laeko-Libuat),
+      ],
+   q(3948) => [
+      q(Kalaamaya),
+      ],
+   q(3949) => [
+      q(Lakon),
+      q(Vure),
+      ],
+   q(3950) => [
+      q(Khayo),
+      q(Olukhayo),
+      ],
+   q(3951) => [
+      q(Pari),
+      ],
+   q(3952) => [
+      q(Kisa),
+      q(Olushisa),
+      ],
+   q(3953) => [
+      q(Lakota),
+      ],
+   q(3954) => [
+      q(Kungkari),
+      ],
+   q(3955) => [
+      q(Lokoya),
+      ],
+   q(3956) => [
+      q(Lala-Roba),
+      ],
+   q(3957) => [
+      q(Lolo),
+      ],
+   q(3958) => [
+      q(Lele (Guinea)),
+      ],
+   q(3959) => [
+      q(Ladin),
+      ],
+   q(3960) => [
+      q(Lele (Papua New Guinea)),
+      ],
+   q(3961) => [
+      q(Hermit),
+      ],
+   q(3962) => [
+      q(Lole),
+      ],
+   q(3963) => [
+      q(Lamu),
+      ],
+   q(3964) => [
+      q(Teke-Laali),
+      ],
+   q(3965) => [
+      q(Ladji Ladji),
+      ],
+   q(3966) => [
+      q(Lelak),
+      ],
+   q(3967) => [
+      q(Lilau),
+      ],
+   q(3968) => [
+      q(Lasalimu),
+      ],
+   q(3969) => [
+      q(Lele (Chad)),
+      ],
+   q(3970) => [
+      q(Khlor),
+      ],
+   q(3971) => [
+      q(North Efate),
+      ],
+   q(3972) => [
+      q(Lolak),
+      ],
+   q(3973) => [
+      q(Lithuanian Sign Language),
+      ],
+   q(3974) => [
+      q(Lau),
+      ],
+   q(3975) => [
+      q(Lauan),
+      ],
+   q(3976) => [
+      q(East Limba),
+      ],
+   q(3977) => [
+      q(Merei),
+      ],
+   q(3978) => [
+      q(Limilngan),
+      ],
+   q(3979) => [
+      q(Lumun),
+      ],
+   q(3980) => [
+      q(Peve),
+      ],
+   q(3981) => [
+      q(South Lembata),
+      ],
+   q(3982) => [
+      q(Lamogai),
+      ],
+   q(3983) => [
+      q(Lambichhong),
+      ],
+   q(3984) => [
+      q(Lombi),
+      ],
+   q(3985) => [
+      q(West Lembata),
+      ],
+   q(3986) => [
+      q(Lamkang),
+      ],
+   q(3987) => [
+      q(Hano),
+      ],
+   q(3988) => [
+      q(Lambadi),
+      ],
+   q(3989) => [
+      q(Lombard),
+      ],
+   q(3990) => [
+      q(Limbum),
+      ],
+   q(3991) => [
+      q(Lamatuka),
+      ],
+   q(3992) => [
+      q(Lamalera),
+      ],
+   q(3993) => [
+      q(Lamenu),
+      ],
+   q(3994) => [
+      q(Lomaiviti),
+      ],
+   q(3995) => [
+      q(Lake Miwok),
+      ],
+   q(3996) => [
+      q(Laimbue),
+      ],
+   q(3997) => [
+      q(Lamboya),
+      ],
+   q(3998) => [
+      q(Lumbee),
+      ],
+   q(3999) => [
+      q(Langbashe),
+      ],
+   q(4000) => [
+      q(Mbalanhu),
+      ],
+   q(4001) => [
+      q(Lundayeh),
+      q(Lun Bawang),
+      ],
+   q(4002) => [
+      q(Langobardic),
+      ],
+   q(4003) => [
+      q(Lanoh),
+      ],
+   q(4004) => [
+      q(Daantanai'),
+      ],
+   q(4005) => [
+      q(Leningitij),
+      ],
+   q(4006) => [
+      q(South Central Banda),
+      ],
+   q(4007) => [
+      q(Langam),
+      ],
+   q(4008) => [
+      q(Lorediakarkar),
+      ],
+   q(4009) => [
+      q(Lango (Sudan)),
+      ],
+   q(4010) => [
+      q(Lamnso'),
+      ],
+   q(4011) => [
+      q(Longuda),
+      ],
+   q(4012) => [
+      q(Lanima),
+      ],
+   q(4013) => [
+      q(Lonzo),
+      ],
+   q(4014) => [
+      q(Loloda),
+      ],
+   q(4015) => [
+      q(Lobi),
+      ],
+   q(4016) => [
+      q(Inonhan),
+      ],
+   q(4017) => [
+      q(Saluan),
+      ],
+   q(4018) => [
+      q(Logol),
+      ],
+   q(4019) => [
+      q(Logo),
+      ],
+   q(4020) => [
+      q(Narim),
+      ],
+   q(4021) => [
+      q(Loma (Cote d'Ivoire)),
+      ],
+   q(4022) => [
+      q(Lou),
+      ],
+   q(4023) => [
+      q(Loko),
+      ],
+   q(4024) => [
+      q(Loma (Liberia)),
+      ],
+   q(4025) => [
+      q(Malawi Lomwe),
+      ],
+   q(4026) => [
+      q(Lombo),
+      ],
+   q(4027) => [
+      q(Lopa),
+      ],
+   q(4028) => [
+      q(Lobala),
+      ],
+   q(4029) => [
+      q(Teen),
+      ],
+   q(4030) => [
+      q(Loniu),
+      ],
+   q(4031) => [
+      q(Otuho),
+      ],
+   q(4032) => [
+      q(Louisiana Creole French),
+      ],
+   q(4033) => [
+      q(Lopi),
+      ],
+   q(4034) => [
+      q(Tampias Lobu),
+      ],
+   q(4035) => [
+      q(Loun),
+      ],
+   q(4036) => [
+      q(Loke),
+      ],
+   q(4037) => [
+      q(Lelepa),
+      ],
+   q(4038) => [
+      q(Lepki),
+      ],
+   q(4039) => [
+      q(Long Phuri Naga),
+      ],
+   q(4040) => [
+      q(Lipo),
+      ],
+   q(4041) => [
+      q(Lopit),
+      ],
+   q(4042) => [
+      q(Rara Bakati'),
+      ],
+   q(4043) => [
+      q(Northern Luri),
+      ],
+   q(4044) => [
+      q(Laurentian),
+      ],
+   q(4045) => [
+      q(Laragia),
+      ],
+   q(4046) => [
+      q(Marachi),
+      q(Olumarachi),
+      ],
+   q(4047) => [
+      q(Loarki),
+      ],
+   q(4048) => [
+      q(Lari),
+      ],
+   q(4049) => [
+      q(Marama),
+      q(Olumarama),
+      ],
+   q(4050) => [
+      q(Lorang),
+      ],
+   q(4051) => [
+      q(Laro),
+      ],
+   q(4052) => [
+      q(Southern Yamphu),
+      ],
+   q(4053) => [
+      q(Larantuka Malay),
+      ],
+   q(4054) => [
+      q(Larevat),
+      ],
+   q(4055) => [
+      q(Lemerig),
+      ],
+   q(4056) => [
+      q(Lasgerdi),
+      ],
+   q(4057) => [
+      q(Lishana Deni),
+      ],
+   q(4058) => [
+      q(Lusengo),
+      ],
+   q(4059) => [
+      q(Lyons Sign Language),
+      ],
+   q(4060) => [
+      q(Lish),
+      ],
+   q(4061) => [
+      q(Lashi),
+      ],
+   q(4062) => [
+      q(Latvian Sign Language),
+      ],
+   q(4063) => [
+      q(Saamia),
+      q(Olusamia),
+      ],
+   q(4064) => [
+      q(Laos Sign Language),
+      ],
+   q(4065) => [
+      q(Panamanian Sign Language),
+      q(Lengua de Senas Panamenas),
+      ],
+   q(4066) => [
+      q(Aruop),
+      ],
+   q(4067) => [
+      q(Lasi),
+      ],
+   q(4068) => [
+      q(Trinidad and Tobago Sign Language),
+      ],
+   q(4069) => [
+      q(Mauritian Sign Language),
+      ],
+   q(4070) => [
+      q(Late Middle Chinese),
+      ],
+   q(4071) => [
+      q(Latgalian),
+      ],
+   q(4072) => [
+      q(Leti (Indonesia)),
+      ],
+   q(4073) => [
+      q(Latunde),
+      ],
+   q(4074) => [
+      q(Tsotso),
+      q(Olutsotso),
+      ],
+   q(4075) => [
+      q(Tachoni),
+      q(Lutachoni),
+      ],
+   q(4076) => [
+      q(Latu),
+      ],
+   q(4077) => [
+      q(Aringa),
+      ],
+   q(4078) => [
+      q(Ludian),
+      ],
+   q(4079) => [
+      q(Luvale),
+      ],
+   q(4080) => [
+      q(Laua),
+      ],
+   q(4081) => [
+      q(Luna),
+      ],
+   q(4082) => [
+      q(Lunanakha),
+      ],
+   q(4083) => [
+      q(Olu'bo),
+      ],
+   q(4084) => [
+      q(Luimbi),
+      ],
+   q(4085) => [
+      q(Lumbu),
+      ],
+   q(4086) => [
+      q(Lucumi),
+      ],
+   q(4087) => [
+      q(Laura),
+      ],
+   q(4088) => [
+      q(Lushootseed),
+      ],
+   q(4089) => [
+      q(Lumba-Yakkha),
+      ],
+   q(4090) => [
+      q(Luwati),
+      ],
+   q(4091) => [
+      q(Luo (Cameroon)),
+      ],
+   q(4092) => [
+      q(Luyia),
+      q(Oluluyia),
+      ],
+   q(4093) => [
+      q(Southern Luri),
+      ],
+   q(4094) => [
+      q(Maku'a),
+      ],
+   q(4095) => [
+      q(Lavukaleve),
+      ],
+   q(4096) => [
+      q(Standard Latvian),
+      ],
+   q(4097) => [
+      q(Levuka),
+      ],
+   q(4098) => [
+      q(Lwalu),
+      ],
+   q(4099) => [
+      q(Lewo Eleng),
+      ],
+   q(4100) => [
+      q(Wanga),
+      q(Oluwanga),
+      ],
+   q(4101) => [
+      q(White Lachi),
+      ],
+   q(4102) => [
+      q(Eastern Lawa),
+      ],
+   q(4103) => [
+      q(Laomian),
+      ],
+   q(4104) => [
+      q(Luwo),
+      ],
+   q(4105) => [
+      q(Lewotobi),
+      ],
+   q(4106) => [
+      q(Lawu),
+      ],
+   q(4107) => [
+      q(Lewo),
+      ],
+   q(4108) => [
+      q(Layakha),
+      ],
+   q(4109) => [
+      q(Lyngngam),
+      ],
+   q(4110) => [
+      q(Luyana),
+      ],
+   q(4111) => [
+      q(Literary Chinese),
+      ],
+   q(4112) => [
+      q(Litzlitz),
+      ],
+   q(4113) => [
+      q(Leinong Naga),
+      ],
+   q(4114) => [
+      q(Laz),
+      ],
+   q(4115) => [
+      q(San Jeronimo Tecoatl Mazatec),
+      ],
+   q(4116) => [
+      q(Yutanduchi Mixtec),
+      ],
+   q(4117) => [
+      q(Bo-Rukul),
+      ],
+   q(4118) => [
+      q(Mafa),
+      ],
+   q(4119) => [
+      q(Jalapa De Diaz Mazatec),
+      ],
+   q(4120) => [
+      q(Mam),
+      ],
+   q(4121) => [
+      q(Chiquihuitlan Mazatec),
+      ],
+   q(4122) => [
+      q(San Francisco Matlatzinca),
+      ],
+   q(4123) => [
+      q(Huautla Mazatec),
+      ],
+   q(4124) => [
+      q(Satere-Mawe),
+      ],
+   q(4125) => [
+      q(Mampruli),
+      ],
+   q(4126) => [
+      q(North Moluccan Malay),
+      ],
+   q(4127) => [
+      q(Central Mazahua),
+      ],
+   q(4128) => [
+      q(Higaonon),
+      ],
+   q(4129) => [
+      q(Western Bukidnon Manobo),
+      ],
+   q(4130) => [
+      q(Macushi),
+      ],
+   q(4131) => [
+      q(Dibabawon Manobo),
+      ],
+   q(4132) => [
+      q(Molale),
+      ],
+   q(4133) => [
+      q(Baba Malay),
+      ],
+   q(4134) => [
+      q(Mangseng),
+      ],
+   q(4135) => [
+      q(Ilianen Manobo),
+      ],
+   q(4136) => [
+      q(Nadeb),
+      ],
+   q(4137) => [
+      q(Malol),
+      ],
+   q(4138) => [
+      q(Maxakali),
+      ],
+   q(4139) => [
+      q(Ombamba),
+      ],
+   q(4140) => [
+      q(Macaguan),
+      ],
+   q(4141) => [
+      q(Mbo (Cameroon)),
+      ],
+   q(4142) => [
+      q(Malayo),
+      ],
+   q(4143) => [
+      q(Maisin),
+      ],
+   q(4144) => [
+      q(Nukak Maku),
+      ],
+   q(4145) => [
+      q(Sarangani Manobo),
+      ],
+   q(4146) => [
+      q(Matigsalug Manobo),
+      ],
+   q(4147) => [
+      q(Mbula-Bwazza),
+      ],
+   q(4148) => [
+      q(Mbulungish),
+      ],
+   q(4149) => [
+      q(Maring),
+      ],
+   q(4150) => [
+      q(Mari (East Sepik Province)),
+      ],
+   q(4151) => [
+      q(Memoni),
+      ],
+   q(4152) => [
+      q(Amoltepec Mixtec),
+      ],
+   q(4153) => [
+      q(Maca),
+      ],
+   q(4154) => [
+      q(Machiguenga),
+      ],
+   q(4155) => [
+      q(Bitur),
+      ],
+   q(4156) => [
+      q(Sharanahua),
+      ],
+   q(4157) => [
+      q(Itundujia Mixtec),
+      ],
+   q(4158) => [
+      q(Matses),
+      ],
+   q(4159) => [
+      q(Mapoyo),
+      ],
+   q(4160) => [
+      q(Maquiritari),
+      ],
+   q(4161) => [
+      q(Mese),
+      ],
+   q(4162) => [
+      q(Mvanip),
+      ],
+   q(4163) => [
+      q(Mbunda),
+      ],
+   q(4164) => [
+      q(Macaguaje),
+      ],
+   q(4165) => [
+      q(Malaccan Creole Portuguese),
+      ],
+   q(4166) => [
+      q(Masana),
+      ],
+   q(4167) => [
+      q(Coatlan Mixe),
+      ],
+   q(4168) => [
+      q(Makaa),
+      ],
+   q(4169) => [
+      q(Ese),
+      ],
+   q(4170) => [
+      q(Menya),
+      ],
+   q(4171) => [
+      q(Mambai),
+      ],
+   q(4172) => [
+      q(Mengisa),
+      ],
+   q(4173) => [
+      q(Cameroon Mambila),
+      ],
+   q(4174) => [
+      q(Minanibai),
+      ],
+   q(4175) => [
+      q(Mawa (Chad)),
+      ],
+   q(4176) => [
+      q(Mpiemo),
+      ],
+   q(4177) => [
+      q(South Watut),
+      ],
+   q(4178) => [
+      q(Mawan),
+      ],
+   q(4179) => [
+      q(Mada (Nigeria)),
+      ],
+   q(4180) => [
+      q(Morigi),
+      ],
+   q(4181) => [
+      q(Male (Papua New Guinea)),
+      ],
+   q(4182) => [
+      q(Mbum),
+      ],
+   q(4183) => [
+      q(Maba (Chad)),
+      ],
+   q(4184) => [
+      q(Massalat),
+      ],
+   q(4185) => [
+      q(Maguindanaon),
+      ],
+   q(4186) => [
+      q(Mamvu),
+      ],
+   q(4187) => [
+      q(Mangbetu),
+      ],
+   q(4188) => [
+      q(Mangbutu),
+      ],
+   q(4189) => [
+      q(Maltese Sign Language),
+      ],
+   q(4190) => [
+      q(Mayogo),
+      ],
+   q(4191) => [
+      q(Mbati),
+      ],
+   q(4192) => [
+      q(Mbala),
+      ],
+   q(4193) => [
+      q(Mbole),
+      ],
+   q(4194) => [
+      q(Maria (Papua New Guinea)),
+      ],
+   q(4195) => [
+      q(Mbere),
+      ],
+   q(4196) => [
+      q(Mboko),
+      ],
+   q(4197) => [
+      q(Santa Lucia Monteverde Mixtec),
+      ],
+   q(4198) => [
+      q(Mbosi),
+      ],
+   q(4199) => [
+      q(Dizin),
+      ],
+   q(4200) => [
+      q(Male (Ethiopia)),
+      ],
+   q(4201) => [
+      q(Surui Do Para),
+      ],
+   q(4202) => [
+      q(Menka),
+      ],
+   q(4203) => [
+      q(Ikobi),
+      ],
+   q(4204) => [
+      q(Mara),
+      ],
+   q(4205) => [
+      q(Melpa),
+      ],
+   q(4206) => [
+      q(Mengen),
+      ],
+   q(4207) => [
+      q(Megam),
+      ],
+   q(4208) => [
+      q(Southwestern Tlaxiaco Mixtec),
+      ],
+   q(4209) => [
+      q(Midob),
+      ],
+   q(4210) => [
+      q(Meyah),
+      ],
+   q(4211) => [
+      q(Mekeo),
+      ],
+   q(4212) => [
+      q(Central Melanau),
+      ],
+   q(4213) => [
+      q(Mangala),
+      ],
+   q(4214) => [
+      q(Kedah Malay),
+      ],
+   q(4215) => [
+      q(Miriwung),
+      ],
+   q(4216) => [
+      q(Merey),
+      ],
+   q(4217) => [
+      q(Meru),
+      ],
+   q(4218) => [
+      q(Masmaje),
+      ],
+   q(4219) => [
+      q(Mato),
+      ],
+   q(4220) => [
+      q(Motu),
+      ],
+   q(4221) => [
+      q(Mano),
+      ],
+   q(4222) => [
+      q(Maaka),
+      ],
+   q(4223) => [
+      q(Hassaniyya),
+      ],
+   q(4224) => [
+      q(Menominee),
+      ],
+   q(4225) => [
+      q(Pattani Malay),
+      ],
+   q(4226) => [
+      q(Bangka),
+      ],
+   q(4227) => [
+      q(Mba),
+      ],
+   q(4228) => [
+      q(Mendankwe-Nkwen),
+      ],
+   q(4229) => [
+      q(Morisyen),
+      ],
+   q(4230) => [
+      q(Naki),
+      ],
+   q(4231) => [
+      q(Mogofin),
+      ],
+   q(4232) => [
+      q(Matal),
+      ],
+   q(4233) => [
+      q(Wandala),
+      ],
+   q(4234) => [
+      q(Mefele),
+      ],
+   q(4235) => [
+      q(North Mofu),
+      ],
+   q(4236) => [
+      q(Putai),
+      ],
+   q(4237) => [
+      q(Marghi South),
+      ],
+   q(4238) => [
+      q(Cross River Mbembe),
+      ],
+   q(4239) => [
+      q(Mbe),
+      ],
+   q(4240) => [
+      q(Makassar Malay),
+      ],
+   q(4241) => [
+      q(Moba),
+      ],
+   q(4242) => [
+      q(Marithiel),
+      ],
+   q(4243) => [
+      q(Mexican Sign Language),
+      ],
+   q(4244) => [
+      q(Mokerang),
+      ],
+   q(4245) => [
+      q(Mbwela),
+      ],
+   q(4246) => [
+      q(Mandjak),
+      ],
+   q(4247) => [
+      q(Mulaha),
+      ],
+   q(4248) => [
+      q(Melo),
+      ],
+   q(4249) => [
+      q(Mayo),
+      ],
+   q(4250) => [
+      q(Mabaan),
+      ],
+   q(4251) => [
+      q(Mararit),
+      ],
+   q(4252) => [
+      q(Morokodo),
+      ],
+   q(4253) => [
+      q(Moru),
+      ],
+   q(4254) => [
+      q(Mango),
+      ],
+   q(4255) => [
+      q(Maklew),
+      ],
+   q(4256) => [
+      q(Mpumpong),
+      ],
+   q(4257) => [
+      q(Makhuwa-Meetto),
+      ],
+   q(4258) => [
+      q(Lijili),
+      ],
+   q(4259) => [
+      q(Abureni),
+      ],
+   q(4260) => [
+      q(Mawes),
+      ],
+   q(4261) => [
+      q(Maleu-Kilenge),
+      ],
+   q(4262) => [
+      q(Mambae),
+      ],
+   q(4263) => [
+      q(Mbangi),
+      ],
+   q(4264) => [
+      q(Meta'),
+      ],
+   q(4265) => [
+      q(Eastern Magar),
+      ],
+   q(4266) => [
+      q(Malila),
+      ],
+   q(4267) => [
+      q(Mambwe-Lungu),
+      ],
+   q(4268) => [
+      q(Manda (Tanzania)),
+      ],
+   q(4269) => [
+      q(Mongol),
+      ],
+   q(4270) => [
+      q(Mailu),
+      ],
+   q(4271) => [
+      q(Matengo),
+      ],
+   q(4272) => [
+      q(Matumbi),
+      ],
+   q(4273) => [
+      q(Mbunga),
+      ],
+   q(4274) => [
+      q(Mbugwe),
+      ],
+   q(4275) => [
+      q(Manda (India)),
+      ],
+   q(4276) => [
+      q(Mahongwe),
+      ],
+   q(4277) => [
+      q(Mocho),
+      ],
+   q(4278) => [
+      q(Mbugu),
+      ],
+   q(4279) => [
+      q(Besisi),
+      q(Mah Meri),
+      ],
+   q(4280) => [
+      q(Mamaa),
+      ],
+   q(4281) => [
+      q(Margu),
+      ],
+   q(4282) => [
+      q(Ma'di),
+      ],
+   q(4283) => [
+      q(Mogholi),
+      ],
+   q(4284) => [
+      q(Mungaka),
+      ],
+   q(4285) => [
+      q(Mauwake),
+      ],
+   q(4286) => [
+      q(Makhuwa-Moniga),
+      ],
+   q(4287) => [
+      q(Mocheno),
+      ],
+   q(4288) => [
+      q(Mashi (Zambia)),
+      ],
+   q(4289) => [
+      q(Balinese Malay),
+      ],
+   q(4290) => [
+      q(Mandan),
+      ],
+   q(4291) => [
+      q(Eastern Mari),
+      ],
+   q(4292) => [
+      q(Buru (Indonesia)),
+      ],
+   q(4293) => [
+      q(Mandahuaca),
+      ],
+   q(4294) => [
+      q(Digaro-Mishmi),
+      q(Darang Deng),
+      ],
+   q(4295) => [
+      q(Mbukushu),
+      ],
+   q(4296) => [
+      q(Maru),
+      q(Lhaovo),
+      ],
+   q(4297) => [
+      q(Ma'anyan),
+      ],
+   q(4298) => [
+      q(Mor (Mor Islands)),
+      ],
+   q(4299) => [
+      q(Miami),
+      ],
+   q(4300) => [
+      q(Atatlahuca Mixtec),
+      ],
+   q(4301) => [
+      q(Mandaic),
+      ],
+   q(4302) => [
+      q(Ocotepec Mixtec),
+      ],
+   q(4303) => [
+      q(Mofu-Gudur),
+      ],
+   q(4304) => [
+      q(San Miguel El Grande Mixtec),
+      ],
+   q(4305) => [
+      q(Chayuco Mixtec),
+      ],
+   q(4306) => [
+      q(Chigmecatitlan Mixtec),
+      ],
+   q(4307) => [
+      q(Abar),
+      q(Mungbam),
+      ],
+   q(4308) => [
+      q(Mikasuki),
+      ],
+   q(4309) => [
+      q(Penoles Mixtec),
+      ],
+   q(4310) => [
+      q(Alacatlatzala Mixtec),
+      ],
+   q(4311) => [
+      q(Pinotepa Nacional Mixtec),
+      ],
+   q(4312) => [
+      q(Apasco-Apoala Mixtec),
+      ],
+   q(4313) => [
+      q(Miskito),
+      ],
+   q(4314) => [
+      q(Isthmus Mixe),
+      ],
+   q(4315) => [
+      q(Southern Puebla Mixtec),
+      ],
+   q(4316) => [
+      q(Cacaloxtepec Mixtec),
+      ],
+   q(4317) => [
+      q(Akoye),
+      ],
+   q(4318) => [
+      q(Mixtepec Mixtec),
+      ],
+   q(4319) => [
+      q(Ayutla Mixtec),
+      ],
+   q(4320) => [
+      q(Coatzospan Mixtec),
+      ],
+   q(4321) => [
+      q(San Juan Colorado Mixtec),
+      ],
+   q(4322) => [
+      q(Northwest Maidu),
+      ],
+   q(4323) => [
+      q(Muskum),
+      ],
+   q(4324) => [
+      q(Tu),
+      ],
+   q(4325) => [
+      q(Mwera (Nyasa)),
+      ],
+   q(4326) => [
+      q(Kim Mun),
+      ],
+   q(4327) => [
+      q(Mawak),
+      ],
+   q(4328) => [
+      q(Matukar),
+      ],
+   q(4329) => [
+      q(Mandeali),
+      ],
+   q(4330) => [
+      q(Medebur),
+      ],
+   q(4331) => [
+      q(Ma (Papua New Guinea)),
+      ],
+   q(4332) => [
+      q(Malankuravan),
+      ],
+   q(4333) => [
+      q(Malapandaram),
+      ],
+   q(4334) => [
+      q(Malaryan),
+      ],
+   q(4335) => [
+      q(Malavedan),
+      ],
+   q(4336) => [
+      q(Miship),
+      ],
+   q(4337) => [
+      q(Sauria Paharia),
+      ],
+   q(4338) => [
+      q(Manna-Dora),
+      ],
+   q(4339) => [
+      q(Mannan),
+      ],
+   q(4340) => [
+      q(Karbi),
+      ],
+   q(4341) => [
+      q(Mahali),
+      ],
+   q(4342) => [
+      q(Mahican),
+      ],
+   q(4343) => [
+      q(Majhi),
+      ],
+   q(4344) => [
+      q(Mbre),
+      ],
+   q(4345) => [
+      q(Mal Paharia),
+      ],
+   q(4346) => [
+      q(Siliput),
+      ],
+   q(4347) => [
+      q(Mawchi),
+      ],
+   q(4348) => [
+      q(Miya),
+      ],
+   q(4349) => [
+      q(Mak (China)),
+      ],
+   q(4350) => [
+      q(Dhatki),
+      ],
+   q(4351) => [
+      q(Mokilese),
+      ],
+   q(4352) => [
+      q(Byep),
+      ],
+   q(4353) => [
+      q(Mokole),
+      ],
+   q(4354) => [
+      q(Moklen),
+      ],
+   q(4355) => [
+      q(Kupang Malay),
+      ],
+   q(4356) => [
+      q(Mingang Doso),
+      ],
+   q(4357) => [
+      q(Moikodi),
+      ],
+   q(4358) => [
+      q(Bay Miwok),
+      ],
+   q(4359) => [
+      q(Malas),
+      ],
+   q(4360) => [
+      q(Silacayoapan Mixtec),
+      ],
+   q(4361) => [
+      q(Vamale),
+      ],
+   q(4362) => [
+      q(Konyanka Maninka),
+      ],
+   q(4363) => [
+      q(Mafea),
+      ],
+   q(4364) => [
+      q(Kituba (Congo)),
+      ],
+   q(4365) => [
+      q(Kinamiging Manobo),
+      ],
+   q(4366) => [
+      q(East Makian),
+      ],
+   q(4367) => [
+      q(Makasae),
+      ],
+   q(4368) => [
+      q(Malo),
+      ],
+   q(4369) => [
+      q(Mbule),
+      ],
+   q(4370) => [
+      q(Cao Lan),
+      ],
+   q(4371) => [
+      q(Manambu),
+      ],
+   q(4372) => [
+      q(Mal),
+      ],
+   q(4373) => [
+      q(Mape),
+      ],
+   q(4374) => [
+      q(Malimpung),
+      ],
+   q(4375) => [
+      q(Miltu),
+      ],
+   q(4376) => [
+      q(Ilwana),
+      q(Kiwilwana),
+      ],
+   q(4377) => [
+      q(Malua Bay),
+      ],
+   q(4378) => [
+      q(Mulam),
+      ],
+   q(4379) => [
+      q(Malango),
+      ],
+   q(4380) => [
+      q(Mlomp),
+      ],
+   q(4381) => [
+      q(Bargam),
+      ],
+   q(4382) => [
+      q(Western Maninkakan),
+      ],
+   q(4383) => [
+      q(Vame),
+      ],
+   q(4384) => [
+      q(Masalit),
+      ],
+   q(4385) => [
+      q(To'abaita),
+      ],
+   q(4386) => [
+      q(Motlav),
+      q(Mwotlap),
+      ],
+   q(4387) => [
+      q(Moloko),
+      ],
+   q(4388) => [
+      q(Malfaxal),
+      q(Naha'ai),
+      ],
+   q(4389) => [
+      q(Malaynon),
+      ],
+   q(4390) => [
+      q(Mama),
+      ],
+   q(4391) => [
+      q(Momina),
+      ],
+   q(4392) => [
+      q(Michoacan Mazahua),
+      ],
+   q(4393) => [
+      q(Maonan),
+      ],
+   q(4394) => [
+      q(Mae),
+      ],
+   q(4395) => [
+      q(Mundat),
+      ],
+   q(4396) => [
+      q(North Ambrym),
+      ],
+   q(4397) => [
+      q(Mehinaku),
+      ],
+   q(4398) => [
+      q(Musar),
+      ],
+   q(4399) => [
+      q(Majhwar),
+      ],
+   q(4400) => [
+      q(Mukha-Dora),
+      ],
+   q(4401) => [
+      q(Man Met),
+      ],
+   q(4402) => [
+      q(Maii),
+      ],
+   q(4403) => [
+      q(Mamanwa),
+      ],
+   q(4404) => [
+      q(Mangga Buang),
+      ],
+   q(4405) => [
+      q(Siawi),
+      ],
+   q(4406) => [
+      q(Musak),
+      ],
+   q(4407) => [
+      q(Western Xiangxi Miao),
+      ],
+   q(4408) => [
+      q(Malalamai),
+      ],
+   q(4409) => [
+      q(Mmaala),
+      ],
+   q(4410) => [
+      q(Miriti),
+      ],
+   q(4411) => [
+      q(Emae),
+      ],
+   q(4412) => [
+      q(Madak),
+      ],
+   q(4413) => [
+      q(Migaama),
+      ],
+   q(4414) => [
+      q(Mabaale),
+      ],
+   q(4415) => [
+      q(Mbula),
+      ],
+   q(4416) => [
+      q(Muna),
+      ],
+   q(4417) => [
+      q(Monde),
+      ],
+   q(4418) => [
+      q(Naba),
+      ],
+   q(4419) => [
+      q(Mundani),
+      ],
+   q(4420) => [
+      q(Eastern Mnong),
+      ],
+   q(4421) => [
+      q(Mono (Democratic Republic of Congo)),
+      ],
+   q(4422) => [
+      q(Munji),
+      ],
+   q(4423) => [
+      q(Mandinka),
+      ],
+   q(4424) => [
+      q(Tiale),
+      ],
+   q(4425) => [
+      q(Mapena),
+      ],
+   q(4426) => [
+      q(Southern Mnong),
+      ],
+   q(4427) => [
+      q(Min Bei Chinese),
+      ],
+   q(4428) => [
+      q(Minriq),
+      ],
+   q(4429) => [
+      q(Mono (USA)),
+      ],
+   q(4430) => [
+      q(Mansi),
+      ],
+   q(4431) => [
+      q(Mer),
+      ],
+   q(4432) => [
+      q(Rennell-Bellona),
+      ],
+   q(4433) => [
+      q(Mon),
+      ],
+   q(4434) => [
+      q(Manikion),
+      ],
+   q(4435) => [
+      q(Manyawa),
+      ],
+   q(4436) => [
+      q(Moni),
+      ],
+   q(4437) => [
+      q(Mwan),
+      ],
+   q(4438) => [
+      q(Mocovi),
+      ],
+   q(4439) => [
+      q(Mobilian),
+      ],
+   q(4440) => [
+      q(Montagnais),
+      ],
+   q(4441) => [
+      q(Mongondow),
+      ],
+   q(4442) => [
+      q(Mboi),
+      ],
+   q(4443) => [
+      q(Monzombo),
+      ],
+   q(4444) => [
+      q(Morori),
+      ],
+   q(4445) => [
+      q(Mangue),
+      ],
+   q(4446) => [
+      q(Monom),
+      ],
+   q(4447) => [
+      q(Mopan Maya),
+      ],
+   q(4448) => [
+      q(Mor (Bomberai Peninsula)),
+      ],
+   q(4449) => [
+      q(Moro),
+      ],
+   q(4450) => [
+      q(Mogum),
+      ],
+   q(4451) => [
+      q(Mohave),
+      ],
+   q(4452) => [
+      q(Moi (Congo)),
+      ],
+   q(4453) => [
+      q(Molima),
+      ],
+   q(4454) => [
+      q(Shekkacho),
+      ],
+   q(4455) => [
+      q(Mukulu),
+      q(Gergiko),
+      ],
+   q(4456) => [
+      q(Mpoto),
+      ],
+   q(4457) => [
+      q(Mullukmulluk),
+      ],
+   q(4458) => [
+      q(Mangarayi),
+      ],
+   q(4459) => [
+      q(Machinere),
+      ],
+   q(4460) => [
+      q(Majang),
+      ],
+   q(4461) => [
+      q(Marba),
+      ],
+   q(4462) => [
+      q(Maung),
+      ],
+   q(4463) => [
+      q(Mpade),
+      ],
+   q(4464) => [
+      q(Martu Wangka),
+      ],
+   q(4465) => [
+      q(Mbara (Chad)),
+      ],
+   q(4466) => [
+      q(Middle Watut),
+      ],
+   q(4467) => [
+      q(Yosondua Mixtec),
+      ],
+   q(4468) => [
+      q(Mindiri),
+      ],
+   q(4469) => [
+      q(Miu),
+      ],
+   q(4470) => [
+      q(Migabac),
+      ],
+   q(4471) => [
+      q(Matis),
+      ],
+   q(4472) => [
+      q(Vangunu),
+      ],
+   q(4473) => [
+      q(Dadibi),
+      ],
+   q(4474) => [
+      q(Mian),
+      ],
+   q(4475) => [
+      q(Makurap),
+      ],
+   q(4476) => [
+      q(Mungkip),
+      ],
+   q(4477) => [
+      q(Mapidian),
+      ],
+   q(4478) => [
+      q(Misima-Panaeati),
+      ],
+   q(4479) => [
+      q(Mapia),
+      ],
+   q(4480) => [
+      q(Mpi),
+      ],
+   q(4481) => [
+      q(Maba (Indonesia)),
+      ],
+   q(4482) => [
+      q(Mbuko),
+      ],
+   q(4483) => [
+      q(Mangole),
+      ],
+   q(4484) => [
+      q(Matepi),
+      ],
+   q(4485) => [
+      q(Momuna),
+      ],
+   q(4486) => [
+      q(Kota Bangun Kutai Malay),
+      ],
+   q(4487) => [
+      q(Tlazoyaltepec Mixtec),
+      ],
+   q(4488) => [
+      q(Mariri),
+      ],
+   q(4489) => [
+      q(Mamasa),
+      ],
+   q(4490) => [
+      q(Rajah Kabunsuwan Manobo),
+      ],
+   q(4491) => [
+      q(Mbelime),
+      ],
+   q(4492) => [
+      q(South Marquesan),
+      ],
+   q(4493) => [
+      q(Moronene),
+      ],
+   q(4494) => [
+      q(Modole),
+      ],
+   q(4495) => [
+      q(Manipa),
+      ],
+   q(4496) => [
+      q(Minokok),
+      ],
+   q(4497) => [
+      q(Mander),
+      ],
+   q(4498) => [
+      q(West Makian),
+      ],
+   q(4499) => [
+      q(Mok),
+      ],
+   q(4500) => [
+      q(Mandari),
+      ],
+   q(4501) => [
+      q(Mosimo),
+      ],
+   q(4502) => [
+      q(Murupi),
+      ],
+   q(4503) => [
+      q(Mamuju),
+      ],
+   q(4504) => [
+      q(Manggarai),
+      ],
+   q(4505) => [
+      q(Pano),
+      ],
+   q(4506) => [
+      q(Mlabri),
+      ],
+   q(4507) => [
+      q(Marino),
+      ],
+   q(4508) => [
+      q(Maricopa),
+      ],
+   q(4509) => [
+      q(Western Magar),
+      ],
+   q(4510) => [
+      q(Martha's Vineyard Sign Language),
+      ],
+   q(4511) => [
+      q(Elseng),
+      ],
+   q(4512) => [
+      q(Mising),
+      ],
+   q(4513) => [
+      q(Mara Chin),
+      ],
+   q(4514) => [
+      q(Western Mari),
+      ],
+   q(4515) => [
+      q(Hmwaveke),
+      ],
+   q(4516) => [
+      q(Mortlockese),
+      ],
+   q(4517) => [
+      q(Merlav),
+      q(Mwerlap),
+      ],
+   q(4518) => [
+      q(Cheke Holo),
+      ],
+   q(4519) => [
+      q(Mru),
+      ],
+   q(4520) => [
+      q(Morouas),
+      ],
+   q(4521) => [
+      q(North Marquesan),
+      ],
+   q(4522) => [
+      q(Maria (India)),
+      ],
+   q(4523) => [
+      q(Maragus),
+      ],
+   q(4524) => [
+      q(Marghi Central),
+      ],
+   q(4525) => [
+      q(Mono (Cameroon)),
+      ],
+   q(4526) => [
+      q(Mangareva),
+      ],
+   q(4527) => [
+      q(Maranao),
+      ],
+   q(4528) => [
+      q(Maremgi),
+      q(Dineor),
+      ],
+   q(4529) => [
+      q(Mandaya),
+      ],
+   q(4530) => [
+      q(Marind),
+      ],
+   q(4531) => [
+      q(Masbatenyo),
+      ],
+   q(4532) => [
+      q(Sankaran Maninka),
+      ],
+   q(4533) => [
+      q(Yucatec Maya Sign Language),
+      ],
+   q(4534) => [
+      q(Musey),
+      ],
+   q(4535) => [
+      q(Mekwei),
+      ],
+   q(4536) => [
+      q(Moraid),
+      ],
+   q(4537) => [
+      q(Masikoro Malagasy),
+      ],
+   q(4538) => [
+      q(Sabah Malay),
+      ],
+   q(4539) => [
+      q(Ma (Democratic Republic of Congo)),
+      ],
+   q(4540) => [
+      q(Mansaka),
+      ],
+   q(4541) => [
+      q(Molof),
+      q(Poule),
+      ],
+   q(4542) => [
+      q(Agusan Manobo),
+      ],
+   q(4543) => [
+      q(Vures),
+      ],
+   q(4544) => [
+      q(Mombum),
+      ],
+   q(4545) => [
+      q(Maritsaua),
+      ],
+   q(4546) => [
+      q(Caac),
+      ],
+   q(4547) => [
+      q(Mongolian Sign Language),
+      ],
+   q(4548) => [
+      q(West Masela),
+      ],
+   q(4549) => [
+      q(Musom),
+      ],
+   q(4550) => [
+      q(Maslam),
+      ],
+   q(4551) => [
+      q(Mansoanka),
+      ],
+   q(4552) => [
+      q(Moresada),
+      ],
+   q(4553) => [
+      q(Aruamu),
+      ],
+   q(4554) => [
+      q(Momare),
+      ],
+   q(4555) => [
+      q(Cotabato Manobo),
+      ],
+   q(4556) => [
+      q(Anyin Morofo),
+      ],
+   q(4557) => [
+      q(Munit),
+      ],
+   q(4558) => [
+      q(Mualang),
+      ],
+   q(4559) => [
+      q(Mono (Solomon Islands)),
+      ],
+   q(4560) => [
+      q(Murik (Papua New Guinea)),
+      ],
+   q(4561) => [
+      q(Una),
+      ],
+   q(4562) => [
+      q(Munggui),
+      ],
+   q(4563) => [
+      q(Maiwa (Papua New Guinea)),
+      ],
+   q(4564) => [
+      q(Moskona),
+      ],
+   q(4565) => [
+      q(Mbe'),
+      ],
+   q(4566) => [
+      q(Montol),
+      ],
+   q(4567) => [
+      q(Mator),
+      ],
+   q(4568) => [
+      q(Matagalpa),
+      ],
+   q(4569) => [
+      q(Totontepec Mixe),
+      ],
+   q(4570) => [
+      q(Wichi Lhamtes Nocten),
+      ],
+   q(4571) => [
+      q(Muong),
+      ],
+   q(4572) => [
+      q(Mewari),
+      ],
+   q(4573) => [
+      q(Yora),
+      ],
+   q(4574) => [
+      q(Mota),
+      ],
+   q(4575) => [
+      q(Tututepec Mixtec),
+      ],
+   q(4576) => [
+      q(Asaro'o),
+      ],
+   q(4577) => [
+      q(Southern Binukidnon),
+      ],
+   q(4578) => [
+      q(Tidaa Mixtec),
+      ],
+   q(4579) => [
+      q(Nabi),
+      ],
+   q(4580) => [
+      q(Mundang),
+      ],
+   q(4581) => [
+      q(Mubi),
+      ],
+   q(4582) => [
+      q(Ajumbu),
+      ],
+   q(4583) => [
+      q(Mednyj Aleut),
+      ],
+   q(4584) => [
+      q(Media Lengua),
+      ],
+   q(4585) => [
+      q(Musgu),
+      ],
+   q(4586) => [
+      q(Mundu),
+      ],
+   q(4587) => [
+      q(Musi),
+      ],
+   q(4588) => [
+      q(Mabire),
+      ],
+   q(4589) => [
+      q(Mugom),
+      ],
+   q(4590) => [
+      q(Maiwala),
+      ],
+   q(4591) => [
+      q(Nyong),
+      ],
+   q(4592) => [
+      q(Malvi),
+      ],
+   q(4593) => [
+      q(Eastern Xiangxi Miao),
+      ],
+   q(4594) => [
+      q(Murle),
+      ],
+   q(4595) => [
+      q(Western Muria),
+      ],
+   q(4596) => [
+      q(Yaaku),
+      ],
+   q(4597) => [
+      q(Muthuvan),
+      ],
+   q(4598) => [
+      q(Bo-Ung),
+      ],
+   q(4599) => [
+      q(Muyang),
+      ],
+   q(4600) => [
+      q(Mursi),
+      ],
+   q(4601) => [
+      q(Manam),
+      ],
+   q(4602) => [
+      q(Mattole),
+      ],
+   q(4603) => [
+      q(Mamboru),
+      ],
+   q(4604) => [
+      q(Marwari (Pakistan)),
+      ],
+   q(4605) => [
+      q(Peripheral Mongolian),
+      ],
+   q(4606) => [
+      q(Yucuane Mixtec),
+      ],
+   q(4607) => [
+      q(Mulgi),
+      ],
+   q(4608) => [
+      q(Miyako),
+      ],
+   q(4609) => [
+      q(Mekmek),
+      ],
+   q(4610) => [
+      q(Mbara (Australia)),
+      ],
+   q(4611) => [
+      q(Muya),
+      ],
+   q(4612) => [
+      q(Minaveha),
+      ],
+   q(4613) => [
+      q(Marovo),
+      ],
+   q(4614) => [
+      q(Duri),
+      ],
+   q(4615) => [
+      q(Moere),
+      ],
+   q(4616) => [
+      q(Marau),
+      ],
+   q(4617) => [
+      q(Massep),
+      ],
+   q(4618) => [
+      q(Mpotovoro),
+      ],
+   q(4619) => [
+      q(Marfa),
+      ],
+   q(4620) => [
+      q(Tagal Murut),
+      ],
+   q(4621) => [
+      q(Machinga),
+      ],
+   q(4622) => [
+      q(Meoswar),
+      ],
+   q(4623) => [
+      q(Indus Kohistani),
+      ],
+   q(4624) => [
+      q(Mesqan),
+      ],
+   q(4625) => [
+      q(Mwatebu),
+      ],
+   q(4626) => [
+      q(Juwal),
+      ],
+   q(4627) => [
+      q(Are),
+      ],
+   q(4628) => [
+      q(Mwera (Chimwera)),
+      ],
+   q(4629) => [
+      q(Murrinh-Patha),
+      ],
+   q(4630) => [
+      q(Aiklep),
+      ],
+   q(4631) => [
+      q(Mouk-Aria),
+      ],
+   q(4632) => [
+      q(Labo),
+      q(Ninde),
+      ],
+   q(4633) => [
+      q(Kita Maninkakan),
+      ],
+   q(4634) => [
+      q(Sar),
+      ],
+   q(4635) => [
+      q(Nyamwanga),
+      ],
+   q(4636) => [
+      q(Central Maewo),
+      ],
+   q(4637) => [
+      q(Kala Lagaw Ya),
+      ],
+   q(4638) => [
+      q(Mun Chin),
+      ],
+   q(4639) => [
+      q(Mwimbi-Muthambi),
+      ],
+   q(4640) => [
+      q(Moken),
+      ],
+   q(4641) => [
+      q(Mittu),
+      ],
+   q(4642) => [
+      q(Mentawai),
+      ],
+   q(4643) => [
+      q(Hmong Daw),
+      ],
+   q(4644) => [
+      q(Mediak),
+      ],
+   q(4645) => [
+      q(Mosiro),
+      ],
+   q(4646) => [
+      q(Moingi),
+      ],
+   q(4647) => [
+      q(Northwest Oaxaca Mixtec),
+      ],
+   q(4648) => [
+      q(Tezoatlan Mixtec),
+      ],
+   q(4649) => [
+      q(Manyika),
+      ],
+   q(4650) => [
+      q(Modang),
+      ],
+   q(4651) => [
+      q(Mele-Fila),
+      ],
+   q(4652) => [
+      q(Malgbe),
+      ],
+   q(4653) => [
+      q(Mbangala),
+      ],
+   q(4654) => [
+      q(Mvuba),
+      ],
+   q(4655) => [
+      q(Mozarabic),
+      ],
+   q(4656) => [
+      q(Miju-Mishmi),
+      q(Geman Deng),
+      ],
+   q(4657) => [
+      q(Monumbo),
+      ],
+   q(4658) => [
+      q(Maxi Gbe),
+      ],
+   q(4659) => [
+      q(Meramera),
+      ],
+   q(4660) => [
+      q(Moi (Indonesia)),
+      ],
+   q(4661) => [
+      q(Mbowe),
+      ],
+   q(4662) => [
+      q(Tlahuitoltepec Mixe),
+      ],
+   q(4663) => [
+      q(Juquila Mixe),
+      ],
+   q(4664) => [
+      q(Murik (Malaysia)),
+      ],
+   q(4665) => [
+      q(Huitepec Mixtec),
+      ],
+   q(4666) => [
+      q(Jamiltepec Mixtec),
+      ],
+   q(4667) => [
+      q(Mada (Cameroon)),
+      ],
+   q(4668) => [
+      q(Metlatonoc Mixtec),
+      ],
+   q(4669) => [
+      q(Namo),
+      ],
+   q(4670) => [
+      q(Mahou),
+      q(Mawukakan),
+      ],
+   q(4671) => [
+      q(Southeastern Nochixtlan Mixtec),
+      ],
+   q(4672) => [
+      q(Central Masela),
+      ],
+   q(4673) => [
+      q(Mbay),
+      ],
+   q(4674) => [
+      q(Mayeka),
+      ],
+   q(4675) => [
+      q(Maramba),
+      ],
+   q(4676) => [
+      q(Myene),
+      ],
+   q(4677) => [
+      q(Bambassi),
+      ],
+   q(4678) => [
+      q(Manta),
+      ],
+   q(4679) => [
+      q(Makah),
+      ],
+   q(4680) => [
+      q(Mina (India)),
+      ],
+   q(4681) => [
+      q(Mangayat),
+      ],
+   q(4682) => [
+      q(Mamara Senoufo),
+      ],
+   q(4683) => [
+      q(Moma),
+      ],
+   q(4684) => [
+      q(Me'en),
+      ],
+   q(4685) => [
+      q(Anfillo),
+      ],
+   q(4686) => [
+      q(Piraha),
+      ],
+   q(4687) => [
+      q(Muniche),
+      ],
+   q(4688) => [
+      q(Mesmes),
+      ],
+   q(4689) => [
+      q(Munduruku),
+      ],
+   q(4690) => [
+      q(Muyuw),
+      ],
+   q(4691) => [
+      q(Masaaba),
+      ],
+   q(4692) => [
+      q(Macuna),
+      ],
+   q(4693) => [
+      q(Classical Mandaic),
+      ],
+   q(4694) => [
+      q(Santa Maria Zacatepec Mixtec),
+      ],
+   q(4695) => [
+      q(Tumzabt),
+      ],
+   q(4696) => [
+      q(Madagascar Sign Language),
+      ],
+   q(4697) => [
+      q(Malimba),
+      ],
+   q(4698) => [
+      q(Morawa),
+      ],
+   q(4699) => [
+      q(Monastic Sign Language),
+      ],
+   q(4700) => [
+      q(Wichi Lhamtes Guisnay),
+      ],
+   q(4701) => [
+      q(Ixcatlan Mazatec),
+      ],
+   q(4702) => [
+      q(Manya),
+      ],
+   q(4703) => [
+      q(Nigeria Mambila),
+      ],
+   q(4704) => [
+      q(Mazatlan Mixe),
+      ],
+   q(4705) => [
+      q(Mumuye),
+      ],
+   q(4706) => [
+      q(Mazanderani),
+      ],
+   q(4707) => [
+      q(Matipuhy),
+      ],
+   q(4708) => [
+      q(Movima),
+      ],
+   q(4709) => [
+      q(Mori Atas),
+      ],
+   q(4710) => [
+      q(Marubo),
+      ],
+   q(4711) => [
+      q(Macanese),
+      ],
+   q(4712) => [
+      q(Mintil),
+      ],
+   q(4713) => [
+      q(Inapang),
+      ],
+   q(4714) => [
+      q(Manza),
+      ],
+   q(4715) => [
+      q(Deg),
+      ],
+   q(4716) => [
+      q(Mawayana),
+      ],
+   q(4717) => [
+      q(Mozambican Sign Language),
+      ],
+   q(4718) => [
+      q(Maiadomu),
+      ],
+   q(4719) => [
+      q(Namla),
+      ],
+   q(4720) => [
+      q(Southern Nambikuara),
+      ],
+   q(4721) => [
+      q(Narak),
+      ],
+   q(4722) => [
+      q(Nijadali),
+      ],
+   q(4723) => [
+      q(Naka'ela),
+      ],
+   q(4724) => [
+      q(Nabak),
+      ],
+   q(4725) => [
+      q(Naga Pidgin),
+      ],
+   q(4726) => [
+      q(Nalu),
+      ],
+   q(4727) => [
+      q(Nakanai),
+      ],
+   q(4728) => [
+      q(Nalik),
+      ],
+   q(4729) => [
+      q(Ngan'gityemerri),
+      ],
+   q(4730) => [
+      q(Min Nan Chinese),
+      ],
+   q(4731) => [
+      q(Naaba),
+      ],
+   q(4732) => [
+      q(Khoekhoe),
+      q(Nama (Namibia)),
+      ],
+   q(4733) => [
+      q(Iguta),
+      ],
+   q(4734) => [
+      q(Naasioi),
+      ],
+   q(4735) => [
+      q(Cahungwarya),
+      q(Hungworo),
+      ],
+   q(4736) => [
+      q(Nawuri),
+      ],
+   q(4737) => [
+      q(Nakwi),
+      ],
+   q(4738) => [
+      q(Narrinyeri),
+      ],
+   q(4739) => [
+      q(Coatepec Nahuatl),
+      ],
+   q(4740) => [
+      q(Nyemba),
+      ],
+   q(4741) => [
+      q(Ndoe),
+      ],
+   q(4742) => [
+      q(Chang Naga),
+      ],
+   q(4743) => [
+      q(Ngbinda),
+      ],
+   q(4744) => [
+      q(Konyak Naga),
+      ],
+   q(4745) => [
+      q(Nagarchal),
+      ],
+   q(4746) => [
+      q(Ngamo),
+      ],
+   q(4747) => [
+      q(Mao Naga),
+      ],
+   q(4748) => [
+      q(Ngarinman),
+      ],
+   q(4749) => [
+      q(Nake),
+      ],
+   q(4750) => [
+      q(Ngbaka Ma'bo),
+      ],
+   q(4751) => [
+      q(Kuri),
+      ],
+   q(4752) => [
+      q(Nkukoli),
+      ],
+   q(4753) => [
+      q(Nnam),
+      ],
+   q(4754) => [
+      q(Nggem),
+      ],
+   q(4755) => [
+      q(Numana-Nunku-Gbantu-Numbu),
+      ],
+   q(4756) => [
+      q(Namibian Sign Language),
+      ],
+   q(4757) => [
+      q(Na),
+      ],
+   q(4758) => [
+      q(Rongmei Naga),
+      ],
+   q(4759) => [
+      q(Ngamambo),
+      ],
+   q(4760) => [
+      q(Southern Ngbandi),
+      ],
+   q(4761) => [
+      q(Ningera),
+      ],
+   q(4762) => [
+      q(Iyo),
+      ],
+   q(4763) => [
+      q(Central Nicobarese),
+      ],
+   q(4764) => [
+      q(Ponam),
+      ],
+   q(4765) => [
+      q(Nachering),
+      ],
+   q(4766) => [
+      q(Yale),
+      ],
+   q(4767) => [
+      q(Notsi),
+      ],
+   q(4768) => [
+      q(Nisga'a),
+      ],
+   q(4769) => [
+      q(Central Huasteca Nahuatl),
+      ],
+   q(4770) => [
+      q(Classical Nahuatl),
+      ],
+   q(4771) => [
+      q(Northern Puebla Nahuatl),
+      ],
+   q(4772) => [
+      q(Nakara),
+      ],
+   q(4773) => [
+      q(Michoacan Nahuatl),
+      ],
+   q(4774) => [
+      q(Nambo),
+      ],
+   q(4775) => [
+      q(Nauna),
+      ],
+   q(4776) => [
+      q(Sibe),
+      ],
+   q(4777) => [
+      q(Ndaktup),
+      ],
+   q(4778) => [
+      q(Ncane),
+      ],
+   q(4779) => [
+      q(Nicaraguan Sign Language),
+      ],
+   q(4780) => [
+      q(Chothe Naga),
+      ],
+   q(4781) => [
+      q(Chumburung),
+      ],
+   q(4782) => [
+      q(Central Puebla Nahuatl),
+      ],
+   q(4783) => [
+      q(Natchez),
+      ],
+   q(4784) => [
+      q(Ndasa),
+      ],
+   q(4785) => [
+      q(Kenswei Nsei),
+      ],
+   q(4786) => [
+      q(Ndau),
+      ],
+   q(4787) => [
+      q(Nde-Nsele-Nta),
+      ],
+   q(4788) => [
+      q(Nadruvian),
+      ],
+   q(4789) => [
+      q(Ndengereko),
+      ],
+   q(4790) => [
+      q(Ndali),
+      ],
+   q(4791) => [
+      q(Samba Leko),
+      ],
+   q(4792) => [
+      q(Ndamba),
+      ],
+   q(4793) => [
+      q(Ndaka),
+      ],
+   q(4794) => [
+      q(Ndolo),
+      ],
+   q(4795) => [
+      q(Ndam),
+      ],
+   q(4796) => [
+      q(Ngundi),
+      ],
+   q(4797) => [
+      q(Ndo),
+      ],
+   q(4798) => [
+      q(Ndombe),
+      ],
+   q(4799) => [
+      q(Ndoola),
+      ],
+   q(4800) => [
+      q(Ndunga),
+      ],
+   q(4801) => [
+      q(Dugun),
+      ],
+   q(4802) => [
+      q(Ndut),
+      ],
+   q(4803) => [
+      q(Ndobo),
+      ],
+   q(4804) => [
+      q(Nduga),
+      ],
+   q(4805) => [
+      q(Lutos),
+      ],
+   q(4806) => [
+      q(Ndogo),
+      ],
+   q(4807) => [
+      q(Eastern Ngad'a),
+      ],
+   q(4808) => [
+      q(Toura (Cote d'Ivoire)),
+      ],
+   q(4809) => [
+      q(Nedebang),
+      ],
+   q(4810) => [
+      q(Nde-Gbite),
+      ],
+   q(4811) => [
+      q(Nelemwa-Nixumwak),
+      ],
+   q(4812) => [
+      q(Nefamese),
+      ],
+   q(4813) => [
+      q(Negidal),
+      ],
+   q(4814) => [
+      q(Nyenkha),
+      ],
+   q(4815) => [
+      q(Neo-Hittite),
+      ],
+   q(4816) => [
+      q(Neko),
+      ],
+   q(4817) => [
+      q(Neku),
+      ],
+   q(4818) => [
+      q(Nemi),
+      ],
+   q(4819) => [
+      q(Nengone),
+      ],
+   q(4820) => [
+      q(Na-Meo),
+      ],
+   q(4821) => [
+      q(North Central Mixe),
+      ],
+   q(4822) => [
+      q(Yahadian),
+      ],
+   q(4823) => [
+      q(Bhoti Kinnauri),
+      ],
+   q(4824) => [
+      q(Nete),
+      ],
+   q(4825) => [
+      q(Neo),
+      ],
+   q(4826) => [
+      q(Nyaheun),
+      ],
+   q(4827) => [
+      q(Neme),
+      ],
+   q(4828) => [
+      q(Neyo),
+      ],
+   q(4829) => [
+      q(Nez Perce),
+      ],
+   q(4830) => [
+      q(Dhao),
+      ],
+   q(4831) => [
+      q(Ahwai),
+      ],
+   q(4832) => [
+      q(Ayiwo),
+      q(Aiwoo),
+      ],
+   q(4833) => [
+      q(Nafaanra),
+      ],
+   q(4834) => [
+      q(Mfumte),
+      ],
+   q(4835) => [
+      q(Ngbaka),
+      ],
+   q(4836) => [
+      q(Northern Ngbandi),
+      ],
+   q(4837) => [
+      q(Ngombe (Democratic Republic of Congo)),
+      ],
+   q(4838) => [
+      q(Ngando (Central African Republic)),
+      ],
+   q(4839) => [
+      q(Ngemba),
+      ],
+   q(4840) => [
+      q(Ngbaka Manza),
+      ],
+   q(4841) => [
+      q(N/u),
+      q(Nu),
+      ],
+   q(4842) => [
+      q(Ngizim),
+      ],
+   q(4843) => [
+      q(Ngie),
+      ],
+   q(4844) => [
+      q(Dalabon),
+      ],
+   q(4845) => [
+      q(Lomwe),
+      ],
+   q(4846) => [
+      q(Ngatik Men's Creole),
+      ],
+   q(4847) => [
+      q(Ngwo),
+      ],
+   q(4848) => [
+      q(Ngoni),
+      ],
+   q(4849) => [
+      q(Ngulu),
+      ],
+   q(4850) => [
+      q(Ngurimi),
+      q(Ngoreme),
+      ],
+   q(4851) => [
+      q(Engdewu),
+      ],
+   q(4852) => [
+      q(Gvoko),
+      ],
+   q(4853) => [
+      q(Ngeq),
+      ],
+   q(4854) => [
+      q(Guerrero Nahuatl),
+      ],
+   q(4855) => [
+      q(Nagumi),
+      ],
+   q(4856) => [
+      q(Ngwaba),
+      ],
+   q(4857) => [
+      q(Nggwahyi),
+      ],
+   q(4858) => [
+      q(Tibea),
+      ],
+   q(4859) => [
+      q(Ngungwel),
+      ],
+   q(4860) => [
+      q(Nhanda),
+      ],
+   q(4861) => [
+      q(Beng),
+      ],
+   q(4862) => [
+      q(Tabasco Nahuatl),
+      ],
+   q(4863) => [
+      q(Chiripa),
+      q(Ava Guarani),
+      ],
+   q(4864) => [
+      q(Eastern Huasteca Nahuatl),
+      ],
+   q(4865) => [
+      q(Nhuwala),
+      ],
+   q(4866) => [
+      q(Tetelcingo Nahuatl),
+      ],
+   q(4867) => [
+      q(Nahari),
+      ],
+   q(4868) => [
+      q(Zacatlan-Ahuacatlan-Tepetzintla Nahuatl),
+      ],
+   q(4869) => [
+      q(Isthmus-Cosoleacaque Nahuatl),
+      ],
+   q(4870) => [
+      q(Morelos Nahuatl),
+      ],
+   q(4871) => [
+      q(Central Nahuatl),
+      ],
+   q(4872) => [
+      q(Takuu),
+      ],
+   q(4873) => [
+      q(Isthmus-Pajapan Nahuatl),
+      ],
+   q(4874) => [
+      q(Huaxcaleca Nahuatl),
+      ],
+   q(4875) => [
+      q(Naro),
+      ],
+   q(4876) => [
+      q(Ometepec Nahuatl),
+      ],
+   q(4877) => [
+      q(Noone),
+      ],
+   q(4878) => [
+      q(Temascaltepec Nahuatl),
+      ],
+   q(4879) => [
+      q(Western Huasteca Nahuatl),
+      ],
+   q(4880) => [
+      q(Isthmus-Mecayapan Nahuatl),
+      ],
+   q(4881) => [
+      q(Northern Oaxaca Nahuatl),
+      ],
+   q(4882) => [
+      q(Santa Maria La Alta Nahuatl),
+      ],
+   q(4883) => [
+      q(Nakame),
+      ],
+   q(4884) => [
+      q(Ngandi),
+      ],
+   q(4885) => [
+      q(Niellim),
+      ],
+   q(4886) => [
+      q(Nek),
+      ],
+   q(4887) => [
+      q(Ngalakan),
+      ],
+   q(4888) => [
+      q(Nyiha (Tanzania)),
+      ],
+   q(4889) => [
+      q(Nii),
+      ],
+   q(4890) => [
+      q(Ngaju),
+      ],
+   q(4891) => [
+      q(Southern Nicobarese),
+      ],
+   q(4892) => [
+      q(Nila),
+      ],
+   q(4893) => [
+      q(Nilamba),
+      ],
+   q(4894) => [
+      q(Ninzo),
+      ],
+   q(4895) => [
+      q(Nganasan),
+      ],
+   q(4896) => [
+      q(Nandi),
+      ],
+   q(4897) => [
+      q(Nimboran),
+      ],
+   q(4898) => [
+      q(Nimi),
+      ],
+   q(4899) => [
+      q(Southeastern Kolami),
+      ],
+   q(4900) => [
+      q(Gilyak),
+      ],
+   q(4901) => [
+      q(Nimo),
+      ],
+   q(4902) => [
+      q(Hema),
+      ],
+   q(4903) => [
+      q(Ngiti),
+      ],
+   q(4904) => [
+      q(Ningil),
+      ],
+   q(4905) => [
+      q(Nzanyi),
+      ],
+   q(4906) => [
+      q(Nocte Naga),
+      ],
+   q(4907) => [
+      q(Ndonde Hamba),
+      ],
+   q(4908) => [
+      q(Lotha Naga),
+      ],
+   q(4909) => [
+      q(Gudanji),
+      ],
+   q(4910) => [
+      q(Njen),
+      ],
+   q(4911) => [
+      q(Njalgulgule),
+      ],
+   q(4912) => [
+      q(Angami Naga),
+      ],
+   q(4913) => [
+      q(Liangmai Naga),
+      ],
+   q(4914) => [
+      q(Ao Naga),
+      ],
+   q(4915) => [
+      q(Njerep),
+      ],
+   q(4916) => [
+      q(Nisa),
+      ],
+   q(4917) => [
+      q(Ndyuka-Trio Pidgin),
+      ],
+   q(4918) => [
+      q(Ngadjunmaya),
+      ],
+   q(4919) => [
+      q(Kunyi),
+      ],
+   q(4920) => [
+      q(Njyem),
+      ],
+   q(4921) => [
+      q(Nyishi),
+      ],
+   q(4922) => [
+      q(Nkoya),
+      ],
+   q(4923) => [
+      q(Khoibu Naga),
+      ],
+   q(4924) => [
+      q(Nkongho),
+      ],
+   q(4925) => [
+      q(Koireng),
+      ],
+   q(4926) => [
+      q(Duke),
+      ],
+   q(4927) => [
+      q(Inpui Naga),
+      ],
+   q(4928) => [
+      q(Nekgini),
+      ],
+   q(4929) => [
+      q(Khezha Naga),
+      ],
+   q(4930) => [
+      q(Thangal Naga),
+      ],
+   q(4931) => [
+      q(Nakai),
+      ],
+   q(4932) => [
+      q(Nokuku),
+      ],
+   q(4933) => [
+      q(Namat),
+      ],
+   q(4934) => [
+      q(Nkangala),
+      ],
+   q(4935) => [
+      q(Nkonya),
+      ],
+   q(4936) => [
+      q(Niuatoputapu),
+      ],
+   q(4937) => [
+      q(Nkami),
+      ],
+   q(4938) => [
+      q(Nukuoro),
+      ],
+   q(4939) => [
+      q(North Asmat),
+      ],
+   q(4940) => [
+      q(Nyika (Tanzania)),
+      ],
+   q(4941) => [
+      q(Bouna Kulango),
+      ],
+   q(4942) => [
+      q(Nyika (Malawi and Zambia)),
+      ],
+   q(4943) => [
+      q(Nkutu),
+      ],
+   q(4944) => [
+      q(Nkoroo),
+      ],
+   q(4945) => [
+      q(Nkari),
+      ],
+   q(4946) => [
+      q(Ngombale),
+      ],
+   q(4947) => [
+      q(Nalca),
+      ],
+   q(4948) => [
+      q(East Nyala),
+      ],
+   q(4949) => [
+      q(Gela),
+      ],
+   q(4950) => [
+      q(Grangali),
+      ],
+   q(4951) => [
+      q(Nyali),
+      ],
+   q(4952) => [
+      q(Ninia Yali),
+      ],
+   q(4953) => [
+      q(Nihali),
+      ],
+   q(4954) => [
+      q(Ngul),
+      ],
+   q(4955) => [
+      q(Lao Naga),
+      ],
+   q(4956) => [
+      q(Nchumbulu),
+      ],
+   q(4957) => [
+      q(Orizaba Nahuatl),
+      ],
+   q(4958) => [
+      q(Walangama),
+      ],
+   q(4959) => [
+      q(Nahali),
+      ],
+   q(4960) => [
+      q(Nyamal),
+      ],
+   q(4961) => [
+      q(Nalogo),
+      ],
+   q(4962) => [
+      q(Maram Naga),
+      ],
+   q(4963) => [
+      q(Big Nambas),
+      q(V'enen Taut),
+      ],
+   q(4964) => [
+      q(Ngam),
+      ],
+   q(4965) => [
+      q(Ndumu),
+      ],
+   q(4966) => [
+      q(Mzieme Naga),
+      ],
+   q(4967) => [
+      q(Tangkhul Naga (India)),
+      ],
+   q(4968) => [
+      q(Kwasio),
+      ],
+   q(4969) => [
+      q(Monsang Naga),
+      ],
+   q(4970) => [
+      q(Nyam),
+      ],
+   q(4971) => [
+      q(Ngombe (Central African Republic)),
+      ],
+   q(4972) => [
+      q(Namakura),
+      ],
+   q(4973) => [
+      q(Ndemli),
+      ],
+   q(4974) => [
+      q(Manangba),
+      ],
+   q(4975) => [
+      q(!Xoo),
+      q(Xoo),
+      ],
+   q(4976) => [
+      q(Moyon Naga),
+      ],
+   q(4977) => [
+      q(Nimanbur),
+      ],
+   q(4978) => [
+      q(Nambya),
+      ],
+   q(4979) => [
+      q(Nimbari),
+      ],
+   q(4980) => [
+      q(Letemboi),
+      ],
+   q(4981) => [
+      q(Namonuito),
+      ],
+   q(4982) => [
+      q(Northeast Maidu),
+      ],
+   q(4983) => [
+      q(Ngamini),
+      ],
+   q(4984) => [
+      q(Nimoa),
+      q(Rifao),
+      ],
+   q(4985) => [
+      q(Nama (Papua New Guinea)),
+      ],
+   q(4986) => [
+      q(Namuyi),
+      ],
+   q(4987) => [
+      q(Nawdm),
+      ],
+   q(4988) => [
+      q(Nyangumarta),
+      ],
+   q(4989) => [
+      q(Nande),
+      ],
+   q(4990) => [
+      q(Nancere),
+      ],
+   q(4991) => [
+      q(West Ambae),
+      ],
+   q(4992) => [
+      q(Ngandyera),
+      ],
+   q(4993) => [
+      q(Ngaing),
+      ],
+   q(4994) => [
+      q(Maring Naga),
+      ],
+   q(4995) => [
+      q(Ngiemboon),
+      ],
+   q(4996) => [
+      q(North Nuaulu),
+      ],
+   q(4997) => [
+      q(Nyangatom),
+      ],
+   q(4998) => [
+      q(Nankina),
+      ],
+   q(4999) => [
+      q(Northern Rengma Naga),
+      ],
+   q(5000) => [
+      q(Namia),
+      ],
+   q(5001) => [
+      q(Ngete),
+      ],
+   q(5002) => [
+      q(Wancho Naga),
+      ],
+   q(5003) => [
+      q(Ngindo),
+      ],
+   q(5004) => [
+      q(Narungga),
+      ],
+   q(5005) => [
+      q(Ningye),
+      ],
+   q(5006) => [
+      q(Nanticoke),
+      ],
+   q(5007) => [
+      q(Dwang),
+      ],
+   q(5008) => [
+      q(Nugunu (Australia)),
+      ],
+   q(5009) => [
+      q(Southern Nuni),
+      ],
+   q(5010) => [
+      q(Nyangga),
+      ],
+   q(5011) => [
+      q(Nda'nda'),
+      ],
+   q(5012) => [
+      q(Woun Meu),
+      ],
+   q(5013) => [
+      q(Nuk),
+      ],
+   q(5014) => [
+      q(Northern Thai),
+      ],
+   q(5015) => [
+      q(Nimadi),
+      ],
+   q(5016) => [
+      q(Nomane),
+      ],
+   q(5017) => [
+      q(Nomu),
+      ],
+   q(5018) => [
+      q(Noiri),
+      ],
+   q(5019) => [
+      q(Nonuya),
+      ],
+   q(5020) => [
+      q(Nooksack),
+      ],
+   q(5021) => [
+      q(Nomlaki),
+      ],
+   q(5022) => [
+      q(Nocaman),
+      ],
+   q(5023) => [
+      q(Numanggang),
+      ],
+   q(5024) => [
+      q(Ngongo),
+      ],
+   q(5025) => [
+      q(Eastern Nisu),
+      ],
+   q(5026) => [
+      q(Nomatsiguenga),
+      ],
+   q(5027) => [
+      q(Ewage-Notu),
+      ],
+   q(5028) => [
+      q(Novial),
+      ],
+   q(5029) => [
+      q(Nyambo),
+      ],
+   q(5030) => [
+      q(Noy),
+      ],
+   q(5031) => [
+      q(Nayi),
+      ],
+   q(5032) => [
+      q(Nar Phu),
+      ],
+   q(5033) => [
+      q(Nupbikha),
+      ],
+   q(5034) => [
+      q(Ponyo-Gongwang Naga),
+      ],
+   q(5035) => [
+      q(Phom Naga),
+      ],
+   q(5036) => [
+      q(Nepali (individual language)),
+      ],
+   q(5037) => [
+      q(Southeastern Puebla Nahuatl),
+      ],
+   q(5038) => [
+      q(Mondropolon),
+      ],
+   q(5039) => [
+      q(Pochuri Naga),
+      ],
+   q(5040) => [
+      q(Nipsan),
+      ],
+   q(5041) => [
+      q(Puimei Naga),
+      ],
+   q(5042) => [
+      q(Napu),
+      ],
+   q(5043) => [
+      q(Southern Nago),
+      ],
+   q(5044) => [
+      q(Kura Ede Nago),
+      ],
+   q(5045) => [
+      q(Ndom),
+      ],
+   q(5046) => [
+      q(Nen),
+      ],
+   q(5047) => [
+      q(Kyan-Karyaw Naga),
+      ],
+   q(5048) => [
+      q(Akyaung Ari Naga),
+      ],
+   q(5049) => [
+      q(Ngom),
+      ],
+   q(5050) => [
+      q(Nara),
+      ],
+   q(5051) => [
+      q(Noric),
+      ],
+   q(5052) => [
+      q(Southern Rengma Naga),
+      ],
+   q(5053) => [
+      q(Jerriais),
+      q(Guernesiais),
+      ],
+   q(5054) => [
+      q(Narango),
+      ],
+   q(5055) => [
+      q(Chokri Naga),
+      ],
+   q(5056) => [
+      q(Ngarla),
+      ],
+   q(5057) => [
+      q(Ngarluma),
+      ],
+   q(5058) => [
+      q(Narom),
+      ],
+   q(5059) => [
+      q(Norn),
+      ],
+   q(5060) => [
+      q(North Picene),
+      ],
+   q(5061) => [
+      q(Norra),
+      q(Nora),
+      ],
+   q(5062) => [
+      q(Northern Kalapuya),
+      ],
+   q(5063) => [
+      q(Narua),
+      ],
+   q(5064) => [
+      q(Ngurmbur),
+      ],
+   q(5065) => [
+      q(Lala),
+      ],
+   q(5066) => [
+      q(Sangtam Naga),
+      ],
+   q(5067) => [
+      q(Nshi),
+      ],
+   q(5068) => [
+      q(Southern Nisu),
+      ],
+   q(5069) => [
+      q(Nsenga),
+      ],
+   q(5070) => [
+      q(Northwestern Nisu),
+      ],
+   q(5071) => [
+      q(Ngasa),
+      ],
+   q(5072) => [
+      q(Ngoshie),
+      ],
+   q(5073) => [
+      q(Nigerian Sign Language),
+      ],
+   q(5074) => [
+      q(Naskapi),
+      ],
+   q(5075) => [
+      q(Norwegian Sign Language),
+      ],
+   q(5076) => [
+      q(Sumi Naga),
+      ],
+   q(5077) => [
+      q(Nehan),
+      ],
+   q(5078) => [
+      q(Nepalese Sign Language),
+      ],
+   q(5079) => [
+      q(Northern Sierra Miwok),
+      ],
+   q(5080) => [
+      q(Maritime Sign Language),
+      ],
+   q(5081) => [
+      q(Nali),
+      ],
+   q(5082) => [
+      q(Tase Naga),
+      ],
+   q(5083) => [
+      q(Sierra Negra Nahuatl),
+      ],
+   q(5084) => [
+      q(Southwestern Nisu),
+      ],
+   q(5085) => [
+      q(Navut),
+      ],
+   q(5086) => [
+      q(Nsongo),
+      ],
+   q(5087) => [
+      q(Nasal),
+      ],
+   q(5088) => [
+      q(Nisenan),
+      ],
+   q(5089) => [
+      q(Nathembo),
+      ],
+   q(5090) => [
+      q(Ngantangarra),
+      ],
+   q(5091) => [
+      q(Natioro),
+      ],
+   q(5092) => [
+      q(Ngaanyatjarra),
+      ],
+   q(5093) => [
+      q(Ikoma-Nata-Isenye),
+      ],
+   q(5094) => [
+      q(Nateni),
+      ],
+   q(5095) => [
+      q(Ntomba),
+      ],
+   q(5096) => [
+      q(Northern Tepehuan),
+      ],
+   q(5097) => [
+      q(Delo),
+      ],
+   q(5098) => [
+      q(Natagaimas),
+      ],
+   q(5099) => [
+      q(Natugu),
+      ],
+   q(5100) => [
+      q(Nottoway),
+      ],
+   q(5101) => [
+      q(Tangkhul Naga (Myanmar)),
+      ],
+   q(5102) => [
+      q(Mantsi),
+      ],
+   q(5103) => [
+      q(Natanzi),
+      ],
+   q(5104) => [
+      q(Yuanga),
+      ],
+   q(5105) => [
+      q(Nukuini),
+      ],
+   q(5106) => [
+      q(Ngala),
+      ],
+   q(5107) => [
+      q(Ngundu),
+      ],
+   q(5108) => [
+      q(Nusu),
+      ],
+   q(5109) => [
+      q(Nungali),
+      ],
+   q(5110) => [
+      q(Ndunda),
+      ],
+   q(5111) => [
+      q(Ngumbi),
+      ],
+   q(5112) => [
+      q(Nyole),
+      ],
+   q(5113) => [
+      q(Nuu-chah-nulth),
+      q(Nuuchahnulth),
+      ],
+   q(5114) => [
+      q(Nusa Laut),
+      ],
+   q(5115) => [
+      q(Niuafo'ou),
+      ],
+   q(5116) => [
+      q(Anong),
+      ],
+   q(5117) => [
+      q(Nguon),
+      ],
+   q(5118) => [
+      q(Nupe-Nupe-Tako),
+      ],
+   q(5119) => [
+      q(Nukumanu),
+      ],
+   q(5120) => [
+      q(Nukuria),
+      ],
+   q(5121) => [
+      q(Nuer),
+      ],
+   q(5122) => [
+      q(Nung (Viet Nam)),
+      ],
+   q(5123) => [
+      q(Ngbundu),
+      ],
+   q(5124) => [
+      q(Northern Nuni),
+      ],
+   q(5125) => [
+      q(Nguluwan),
+      ],
+   q(5126) => [
+      q(Mehek),
+      ],
+   q(5127) => [
+      q(Nunggubuyu),
+      ],
+   q(5128) => [
+      q(Tlamacazapa Nahuatl),
+      ],
+   q(5129) => [
+      q(Nasarian),
+      ],
+   q(5130) => [
+      q(Namiae),
+      ],
+   q(5131) => [
+      q(Nyokon),
+      ],
+   q(5132) => [
+      q(Nawathinehena),
+      ],
+   q(5133) => [
+      q(Nyabwa),
+      ],
+   q(5134) => [
+      q(Ngwe),
+      ],
+   q(5135) => [
+      q(Ngayawung),
+      ],
+   q(5136) => [
+      q(Southwest Tanna),
+      ],
+   q(5137) => [
+      q(Nyamusa-Molo),
+      ],
+   q(5138) => [
+      q(Nauo),
+      ],
+   q(5139) => [
+      q(Nawaru),
+      ],
+   q(5140) => [
+      q(Middle Newar),
+      ],
+   q(5141) => [
+      q(Nottoway-Meherrin),
+      ],
+   q(5142) => [
+      q(Nauete),
+      ],
+   q(5143) => [
+      q(Ngando (Democratic Republic of Congo)),
+      ],
+   q(5144) => [
+      q(Nage),
+      ],
+   q(5145) => [
+      q(Ngad'a),
+      ],
+   q(5146) => [
+      q(Nindi),
+      ],
+   q(5147) => [
+      q(Koki Naga),
+      ],
+   q(5148) => [
+      q(South Nuaulu),
+      ],
+   q(5149) => [
+      q(Numidian),
+      ],
+   q(5150) => [
+      q(Ngawun),
+      ],
+   q(5151) => [
+      q(Ndambomo),
+      ],
+   q(5152) => [
+      q(Naxi),
+      ],
+   q(5153) => [
+      q(Ninggerum),
+      ],
+   q(5154) => [
+      q(Narau),
+      ],
+   q(5155) => [
+      q(Nafri),
+      ],
+   q(5156) => [
+      q(Nyangbo),
+      ],
+   q(5157) => [
+      q(Nyanga-li),
+      ],
+   q(5158) => [
+      q(Nyore),
+      q(Olunyole),
+      ],
+   q(5159) => [
+      q(Nyengo),
+      ],
+   q(5160) => [
+      q(Giryama),
+      q(Kigiryama),
+      ],
+   q(5161) => [
+      q(Nyindu),
+      ],
+   q(5162) => [
+      q(Nyigina),
+      ],
+   q(5163) => [
+      q(Ama (Sudan)),
+      ],
+   q(5164) => [
+      q(Nyanga),
+      ],
+   q(5165) => [
+      q(Nyaneka),
+      ],
+   q(5166) => [
+      q(Nyeu),
+      ],
+   q(5167) => [
+      q(Nyang'i),
+      ],
+   q(5168) => [
+      q(Nayini),
+      ],
+   q(5169) => [
+      q(Nyiha (Malawi)),
+      ],
+   q(5170) => [
+      q(Nyunga),
+      ],
+   q(5171) => [
+      q(Nyawaygi),
+      ],
+   q(5172) => [
+      q(Nyungwe),
+      ],
+   q(5173) => [
+      q(Nyulnyul),
+      ],
+   q(5174) => [
+      q(Nyaw),
+      ],
+   q(5175) => [
+      q(Nganyaywana),
+      ],
+   q(5176) => [
+      q(Nyakyusa-Ngonde),
+      ],
+   q(5177) => [
+      q(Tigon Mbembe),
+      ],
+   q(5178) => [
+      q(Njebi),
+      ],
+   q(5179) => [
+      q(Nzakara),
+      ],
+   q(5180) => [
+      q(Zeme Naga),
+      ],
+   q(5181) => [
+      q(New Zealand Sign Language),
+      ],
+   q(5182) => [
+      q(Teke-Nzikou),
+      ],
+   q(5183) => [
+      q(Nzakambay),
+      ],
+   q(5184) => [
+      q(Nanga Dama Dogon),
+      ],
+   q(5185) => [
+      q(Orok),
+      ],
+   q(5186) => [
+      q(Oroch),
+      ],
+   q(5187) => [
+      q(Old Aramaic (up to 700 BCE)),
+      q(Ancient Aramaic (up to 700 BCE)),
+      ],
+   q(5188) => [
+      q(Old Avar),
+      ],
+   q(5189) => [
+      q(Obispeno),
+      ],
+   q(5190) => [
+      q(Southern Bontok),
+      ],
+   q(5191) => [
+      q(Oblo),
+      ],
+   q(5192) => [
+      q(Moabite),
+      ],
+   q(5193) => [
+      q(Obo Manobo),
+      ],
+   q(5194) => [
+      q(Old Burmese),
+      ],
+   q(5195) => [
+      q(Old Breton),
+      ],
+   q(5196) => [
+      q(Obulom),
+      ],
+   q(5197) => [
+      q(Ocaina),
+      ],
+   q(5198) => [
+      q(Old Chinese),
+      ],
+   q(5199) => [
+      q(Old Cornish),
+      ],
+   q(5200) => [
+      q(Atzingo Matlatzinca),
+      ],
+   q(5201) => [
+      q(Odut),
+      ],
+   q(5202) => [
+      q(Od),
+      ],
+   q(5203) => [
+      q(Old Dutch),
+      ],
+   q(5204) => [
+      q(Odual),
+      ],
+   q(5205) => [
+      q(Ofo),
+      ],
+   q(5206) => [
+      q(Old Frisian),
+      ],
+   q(5207) => [
+      q(Efutop),
+      ],
+   q(5208) => [
+      q(Ogbia),
+      ],
+   q(5209) => [
+      q(Ogbah),
+      ],
+   q(5210) => [
+      q(Old Georgian),
+      ],
+   q(5211) => [
+      q(Ogbogolo),
+      ],
+   q(5212) => [
+      q(Khana),
+      ],
+   q(5213) => [
+      q(Ogbronuagum),
+      ],
+   q(5214) => [
+      q(Old Hittite),
+      ],
+   q(5215) => [
+      q(Old Hungarian),
+      ],
+   q(5216) => [
+      q(Oirata),
+      ],
+   q(5217) => [
+      q(Inebu One),
+      ],
+   q(5218) => [
+      q(Northwestern Ojibwa),
+      ],
+   q(5219) => [
+      q(Central Ojibwa),
+      ],
+   q(5220) => [
+      q(Eastern Ojibwa),
+      ],
+   q(5221) => [
+      q(Old Japanese),
+      ],
+   q(5222) => [
+      q(Severn Ojibwa),
+      ],
+   q(5223) => [
+      q(Ontong Java),
+      ],
+   q(5224) => [
+      q(Western Ojibwa),
+      ],
+   q(5225) => [
+      q(Okanagan),
+      ],
+   q(5226) => [
+      q(Okobo),
+      ],
+   q(5227) => [
+      q(Okodia),
+      ],
+   q(5228) => [
+      q(Okpe (Southwestern Edo)),
+      ],
+   q(5229) => [
+      q(Koko Babangk),
+      ],
+   q(5230) => [
+      q(Koresh-e Rostam),
+      ],
+   q(5231) => [
+      q(Okiek),
+      ],
+   q(5232) => [
+      q(Oko-Juwoi),
+      ],
+   q(5233) => [
+      q(Kwamtim One),
+      ],
+   q(5234) => [
+      q(Old Kentish Sign Language),
+      ],
+   q(5235) => [
+      q(Middle Korean (10th-16th cent.)),
+      ],
+   q(5236) => [
+      q(Oki-No-Erabu),
+      ],
+   q(5237) => [
+      q(Old Korean (3rd-9th cent.)),
+      ],
+   q(5238) => [
+      q(Kirike),
+      ],
+   q(5239) => [
+      q(Oko-Eni-Osayen),
+      ],
+   q(5240) => [
+      q(Oku),
+      ],
+   q(5241) => [
+      q(Orokaiva),
+      ],
+   q(5242) => [
+      q(Okpe (Northwestern Edo)),
+      ],
+   q(5243) => [
+      q(Walungge),
+      ],
+   q(5244) => [
+      q(Mochi),
+      ],
+   q(5245) => [
+      q(Olekha),
+      ],
+   q(5246) => [
+      q(Olkol),
+      ],
+   q(5247) => [
+      q(Oloma),
+      ],
+   q(5248) => [
+      q(Livvi),
+      ],
+   q(5249) => [
+      q(Olrat),
+      ],
+   q(5250) => [
+      q(Old Lithuanian),
+      ],
+   q(5251) => [
+      q(Omaha-Ponca),
+      ],
+   q(5252) => [
+      q(East Ambae),
+      ],
+   q(5253) => [
+      q(Mochica),
+      ],
+   q(5254) => [
+      q(Omejes),
+      ],
+   q(5255) => [
+      q(Omagua),
+      ],
+   q(5256) => [
+      q(Omi),
+      ],
+   q(5257) => [
+      q(Omok),
+      ],
+   q(5258) => [
+      q(Ombo),
+      ],
+   q(5259) => [
+      q(Minoan),
+      ],
+   q(5260) => [
+      q(Utarmbung),
+      ],
+   q(5261) => [
+      q(Old Manipuri),
+      ],
+   q(5262) => [
+      q(Old Marathi),
+      ],
+   q(5263) => [
+      q(Omotik),
+      ],
+   q(5264) => [
+      q(Omurano),
+      ],
+   q(5265) => [
+      q(South Tairora),
+      ],
+   q(5266) => [
+      q(Old Mon),
+      ],
+   q(5267) => [
+      q(Ona),
+      ],
+   q(5268) => [
+      q(Lingao),
+      ],
+   q(5269) => [
+      q(Oneida),
+      ],
+   q(5270) => [
+      q(Olo),
+      ],
+   q(5271) => [
+      q(Onin),
+      ],
+   q(5272) => [
+      q(Onjob),
+      ],
+   q(5273) => [
+      q(Kabore One),
+      ],
+   q(5274) => [
+      q(Onobasulu),
+      ],
+   q(5275) => [
+      q(Onondaga),
+      ],
+   q(5276) => [
+      q(Sartang),
+      ],
+   q(5277) => [
+      q(Northern One),
+      ],
+   q(5278) => [
+      q(Ono),
+      ],
+   q(5279) => [
+      q(Ontenu),
+      ],
+   q(5280) => [
+      q(Unua),
+      ],
+   q(5281) => [
+      q(Old Nubian),
+      ],
+   q(5282) => [
+      q(Onin Based Pidgin),
+      ],
+   q(5283) => [
+      q(Tohono O'odham),
+      ],
+   q(5284) => [
+      q(Ong),
+      ],
+   q(5285) => [
+      q(Onge),
+      ],
+   q(5286) => [
+      q(Oorlams),
+      ],
+   q(5287) => [
+      q(Old Ossetic),
+      ],
+   q(5288) => [
+      q(Okpamheri),
+      ],
+   q(5289) => [
+      q(Kopkaka),
+      ],
+   q(5290) => [
+      q(Oksapmin),
+      ],
+   q(5291) => [
+      q(Opao),
+      ],
+   q(5292) => [
+      q(Opata),
+      ],
+   q(5293) => [
+      q(Ofaye),
+      ],
+   q(5294) => [
+      q(Oroha),
+      ],
+   q(5295) => [
+      q(Orma),
+      ],
+   q(5296) => [
+      q(Orejon),
+      ],
+   q(5297) => [
+      q(Oring),
+      ],
+   q(5298) => [
+      q(Oroqen),
+      ],
+   q(5299) => [
+      q(Orang Kanaq),
+      ],
+   q(5300) => [
+      q(Orokolo),
+      ],
+   q(5301) => [
+      q(Oruma),
+      ],
+   q(5302) => [
+      q(Orang Seletar),
+      ],
+   q(5303) => [
+      q(Adivasi Oriya),
+      ],
+   q(5304) => [
+      q(Ormuri),
+      ],
+   q(5305) => [
+      q(Old Russian),
+      ],
+   q(5306) => [
+      q(Oro Win),
+      ],
+   q(5307) => [
+      q(Oro),
+      ],
+   q(5308) => [
+      q(Oriya (individual language)),
+      ],
+   q(5309) => [
+      q(Ormu),
+      ],
+   q(5310) => [
+      q(Oscan),
+      ],
+   q(5311) => [
+      q(Osing),
+      ],
+   q(5312) => [
+      q(Ososo),
+      ],
+   q(5313) => [
+      q(Old Spanish),
+      ],
+   q(5314) => [
+      q(Osatu),
+      ],
+   q(5315) => [
+      q(Southern One),
+      ],
+   q(5316) => [
+      q(Old Saxon),
+      ],
+   q(5317) => [
+      q(Old Tibetan),
+      ],
+   q(5318) => [
+      q(Ot Danum),
+      ],
+   q(5319) => [
+      q(Mezquital Otomi),
+      ],
+   q(5320) => [
+      q(Oti),
+      ],
+   q(5321) => [
+      q(Old Turkish),
+      ],
+   q(5322) => [
+      q(Tilapa Otomi),
+      ],
+   q(5323) => [
+      q(Eastern Highland Otomi),
+      ],
+   q(5324) => [
+      q(Tenango Otomi),
+      ],
+   q(5325) => [
+      q(Queretaro Otomi),
+      ],
+   q(5326) => [
+      q(Otoro),
+      ],
+   q(5327) => [
+      q(Estado de Mexico Otomi),
+      ],
+   q(5328) => [
+      q(Temoaya Otomi),
+      ],
+   q(5329) => [
+      q(Otuke),
+      ],
+   q(5330) => [
+      q(Ottawa),
+      ],
+   q(5331) => [
+      q(Texcatepec Otomi),
+      ],
+   q(5332) => [
+      q(Old Tamil),
+      ],
+   q(5333) => [
+      q(Ixtenco Otomi),
+      ],
+   q(5334) => [
+      q(Tagargrent),
+      ],
+   q(5335) => [
+      q(Glio-Oubi),
+      ],
+   q(5336) => [
+      q(Oune),
+      ],
+   q(5337) => [
+      q(Old Uighur),
+      ],
+   q(5338) => [
+      q(Ouma),
+      ],
+   q(5339) => [
+      q(Owiniga),
+      ],
+   q(5340) => [
+      q(Old Welsh),
+      ],
+   q(5341) => [
+      q(Oy),
+      ],
+   q(5342) => [
+      q(Oyda),
+      ],
+   q(5343) => [
+      q(Wayampi),
+      ],
+   q(5344) => [
+      q(Oya'oya),
+      ],
+   q(5345) => [
+      q(Koonzime),
+      ],
+   q(5346) => [
+      q(Parecis),
+      ],
+   q(5347) => [
+      q(Pacoh),
+      ],
+   q(5348) => [
+      q(Paumari),
+      ],
+   q(5349) => [
+      q(Pagibete),
+      ],
+   q(5350) => [
+      q(Paranawat),
+      ],
+   q(5351) => [
+      q(Tenharim),
+      ],
+   q(5352) => [
+      q(Pe),
+      ],
+   q(5353) => [
+      q(Parakana),
+      ],
+   q(5354) => [
+      q(Northern Paiute),
+      ],
+   q(5355) => [
+      q(Parya),
+      ],
+   q(5356) => [
+      q(Panamint),
+      q(Timbisha),
+      ],
+   q(5357) => [
+      q(Papasena),
+      ],
+   q(5358) => [
+      q(Papitalai),
+      ],
+   q(5359) => [
+      q(Pakaasnovos),
+      ],
+   q(5360) => [
+      q(Pawnee),
+      ],
+   q(5361) => [
+      q(Pankarare),
+      ],
+   q(5362) => [
+      q(Pech),
+      ],
+   q(5363) => [
+      q(Pankararu),
+      ],
+   q(5364) => [
+      q(Paez),
+      ],
+   q(5365) => [
+      q(Patamona),
+      ],
+   q(5366) => [
+      q(Mezontla Popoloca),
+      ],
+   q(5367) => [
+      q(Coyotepec Popoloca),
+      ],
+   q(5368) => [
+      q(Paraujano),
+      ],
+   q(5369) => [
+      q(E'napa Woromaipu),
+      ],
+   q(5370) => [
+      q(Parkwa),
+      ],
+   q(5371) => [
+      q(Mak (Nigeria)),
+      ],
+   q(5372) => [
+      q(Kpasam),
+      ],
+   q(5373) => [
+      q(Papel),
+      ],
+   q(5374) => [
+      q(Badyara),
+      ],
+   q(5375) => [
+      q(Pangwa),
+      ],
+   q(5376) => [
+      q(Central Pame),
+      ],
+   q(5377) => [
+      q(Southern Pashto),
+      ],
+   q(5378) => [
+      q(Northern Pashto),
+      ],
+   q(5379) => [
+      q(Pnar),
+      ],
+   q(5380) => [
+      q(Pyu (Papua New Guinea)),
+      ],
+   q(5381) => [
+      q(Santa Ines Ahuatempan Popoloca),
+      ],
+   q(5382) => [
+      q(Pear),
+      ],
+   q(5383) => [
+      q(Bouyei),
+      ],
+   q(5384) => [
+      q(Picard),
+      ],
+   q(5385) => [
+      q(Ruching Palaung),
+      ],
+   q(5386) => [
+      q(Paliyan),
+      ],
+   q(5387) => [
+      q(Paniya),
+      ],
+   q(5388) => [
+      q(Pardhan),
+      ],
+   q(5389) => [
+      q(Duruwa),
+      ],
+   q(5390) => [
+      q(Parenga),
+      ],
+   q(5391) => [
+      q(Paite Chin),
+      ],
+   q(5392) => [
+      q(Pardhi),
+      ],
+   q(5393) => [
+      q(Nigerian Pidgin),
+      ],
+   q(5394) => [
+      q(Piti),
+      ],
+   q(5395) => [
+      q(Pacahuara),
+      ],
+   q(5396) => [
+      q(Pyapun),
+      ],
+   q(5397) => [
+      q(Anam),
+      ],
+   q(5398) => [
+      q(Pennsylvania German),
+      ],
+   q(5399) => [
+      q(Pa Di),
+      ],
+   q(5400) => [
+      q(Podena),
+      q(Fedan),
+      ],
+   q(5401) => [
+      q(Padoe),
+      ],
+   q(5402) => [
+      q(Plautdietsch),
+      ],
+   q(5403) => [
+      q(Kayan),
+      ],
+   q(5404) => [
+      q(Peranakan Indonesian),
+      ],
+   q(5405) => [
+      q(Eastern Pomo),
+      ],
+   q(5406) => [
+      q(Mala (Papua New Guinea)),
+      ],
+   q(5407) => [
+      q(Taje),
+      ],
+   q(5408) => [
+      q(Northeastern Pomo),
+      ],
+   q(5409) => [
+      q(Pengo),
+      ],
+   q(5410) => [
+      q(Bonan),
+      ],
+   q(5411) => [
+      q(Chichimeca-Jonaz),
+      ],
+   q(5412) => [
+      q(Northern Pomo),
+      ],
+   q(5413) => [
+      q(Penchal),
+      ],
+   q(5414) => [
+      q(Pekal),
+      ],
+   q(5415) => [
+      q(Phende),
+      ],
+   q(5416) => [
+      q(Kunja),
+      ],
+   q(5417) => [
+      q(Southern Pomo),
+      ],
+   q(5418) => [
+      q(Iranian Persian),
+      ],
+   q(5419) => [
+      q(Pemono),
+      ],
+   q(5420) => [
+      q(Petats),
+      ],
+   q(5421) => [
+      q(Petjo),
+      ],
+   q(5422) => [
+      q(Eastern Penan),
+      ],
+   q(5423) => [
+      q(Paafang),
+      ],
+   q(5424) => [
+      q(Peere),
+      ],
+   q(5425) => [
+      q(Pfaelzisch),
+      ],
+   q(5426) => [
+      q(Sudanese Creole Arabic),
+      ],
+   q(5427) => [
+      q(Gandhari),
+      ],
+   q(5428) => [
+      q(Pangwali),
+      ],
+   q(5429) => [
+      q(Pagi),
+      ],
+   q(5430) => [
+      q(Rerep),
+      ],
+   q(5431) => [
+      q(Primitive Irish),
+      ],
+   q(5432) => [
+      q(Paelignian),
+      ],
+   q(5433) => [
+      q(Pangseng),
+      ],
+   q(5434) => [
+      q(Pagu),
+      ],
+   q(5435) => [
+      q(Pa-Hng),
+      ],
+   q(5436) => [
+      q(Phudagi),
+      ],
+   q(5437) => [
+      q(Phuong),
+      ],
+   q(5438) => [
+      q(Phukha),
+      ],
+   q(5439) => [
+      q(Phake),
+      ],
+   q(5440) => [
+      q(Phalura),
+      q(Palula),
+      ],
+   q(5441) => [
+      q(Phimbi),
+      ],
+   q(5442) => [
+      q(Phunoi),
+      ],
+   q(5443) => [
+      q(Phana'),
+      ],
+   q(5444) => [
+      q(Pahari-Potwari),
+      ],
+   q(5445) => [
+      q(Phu Thai),
+      ],
+   q(5446) => [
+      q(Phuan),
+      ],
+   q(5447) => [
+      q(Pahlavani),
+      ],
+   q(5448) => [
+      q(Phangduwali),
+      ],
+   q(5449) => [
+      q(Pima Bajo),
+      ],
+   q(5450) => [
+      q(Yine),
+      ],
+   q(5451) => [
+      q(Pinji),
+      ],
+   q(5452) => [
+      q(Piaroa),
+      ],
+   q(5453) => [
+      q(Piro),
+      ],
+   q(5454) => [
+      q(Pingelapese),
+      ],
+   q(5455) => [
+      q(Pisabo),
+      ],
+   q(5456) => [
+      q(Pitcairn-Norfolk),
+      ],
+   q(5457) => [
+      q(Pini),
+      ],
+   q(5458) => [
+      q(Pijao),
+      ],
+   q(5459) => [
+      q(Yom),
+      ],
+   q(5460) => [
+      q(Powhatan),
+      ],
+   q(5461) => [
+      q(Piame),
+      ],
+   q(5462) => [
+      q(Piapoco),
+      ],
+   q(5463) => [
+      q(Pero),
+      ],
+   q(5464) => [
+      q(Piratapuyo),
+      ],
+   q(5465) => [
+      q(Pijin),
+      ],
+   q(5466) => [
+      q(Pitta Pitta),
+      ],
+   q(5467) => [
+      q(Pintupi-Luritja),
+      ],
+   q(5468) => [
+      q(Pileni),
+      q(Vaeakau-Taumako),
+      ],
+   q(5469) => [
+      q(Pimbwe),
+      ],
+   q(5470) => [
+      q(Piu),
+      ],
+   q(5471) => [
+      q(Piya-Kwonci),
+      ],
+   q(5472) => [
+      q(Pije),
+      ],
+   q(5473) => [
+      q(Pitjantjatjara),
+      ],
+   q(5474) => [
+      q(Ardhamagadhi Prakrit),
+      ],
+   q(5475) => [
+      q(Pokomo),
+      q(Kipfokomo),
+      ],
+   q(5476) => [
+      q(Paekche),
+      ],
+   q(5477) => [
+      q(Pak-Tong),
+      ],
+   q(5478) => [
+      q(Pankhu),
+      ],
+   q(5479) => [
+      q(Pakanha),
+      ],
+   q(5480) => [
+      q(Pokoot),
+      ],
+   q(5481) => [
+      q(Pukapuka),
+      ],
+   q(5482) => [
+      q(Attapady Kurumba),
+      ],
+   q(5483) => [
+      q(Pakistan Sign Language),
+      ],
+   q(5484) => [
+      q(Maleng),
+      ],
+   q(5485) => [
+      q(Paku),
+      ],
+   q(5486) => [
+      q(Miani),
+      ],
+   q(5487) => [
+      q(Polonombauk),
+      ],
+   q(5488) => [
+      q(Central Palawano),
+      ],
+   q(5489) => [
+      q(Polari),
+      ],
+   q(5490) => [
+      q(Palu'e),
+      ],
+   q(5491) => [
+      q(Pilaga),
+      ],
+   q(5492) => [
+      q(Paulohi),
+      ],
+   q(5493) => [
+      q(Polci),
+      ],
+   q(5494) => [
+      q(Kohistani Shina),
+      ],
+   q(5495) => [
+      q(Shwe Palaung),
+      ],
+   q(5496) => [
+      q(Palenquero),
+      ],
+   q(5497) => [
+      q(Oluta Popoluca),
+      ],
+   q(5498) => [
+      q(Palpa),
+      ],
+   q(5499) => [
+      q(Palaic),
+      ],
+   q(5500) => [
+      q(Palaka Senoufo),
+      ],
+   q(5501) => [
+      q(San Marcos Tlacoyalco Popoloca),
+      q(San Marcos Tlalcoyalco Popoloca),
+      ],
+   q(5502) => [
+      q(Plateau Malagasy),
+      ],
+   q(5503) => [
+      q(Palikur),
+      ],
+   q(5504) => [
+      q(Southwest Palawano),
+      ],
+   q(5505) => [
+      q(Brooke's Point Palawano),
+      ],
+   q(5506) => [
+      q(Bolyu),
+      ],
+   q(5507) => [
+      q(Paluan),
+      ],
+   q(5508) => [
+      q(Paama),
+      ],
+   q(5509) => [
+      q(Pambia),
+      ],
+   q(5510) => [
+      q(Palumata),
+      ],
+   q(5511) => [
+      q(Pallanganmiddang),
+      ],
+   q(5512) => [
+      q(Pwaamei),
+      ],
+   q(5513) => [
+      q(Pamona),
+      ],
+   q(5514) => [
+      q(Maharastri Prakrit),
+      ],
+   q(5515) => [
+      q(Northern Pumi),
+      ],
+   q(5516) => [
+      q(Southern Pumi),
+      ],
+   q(5517) => [
+      q(Pamlico),
+      ],
+   q(5518) => [
+      q(Lingua Franca),
+      ],
+   q(5519) => [
+      q(Pomo),
+      ],
+   q(5520) => [
+      q(Pam),
+      ],
+   q(5521) => [
+      q(Pom),
+      ],
+   q(5522) => [
+      q(Northern Pame),
+      ],
+   q(5523) => [
+      q(Paynamar),
+      ],
+   q(5524) => [
+      q(Piemontese),
+      ],
+   q(5525) => [
+      q(Tuamotuan),
+      ],
+   q(5526) => [
+      q(Plains Miwok),
+      ],
+   q(5527) => [
+      q(Poumei Naga),
+      ],
+   q(5528) => [
+      q(Papuan Malay),
+      ],
+   q(5529) => [
+      q(Southern Pame),
+      ],
+   q(5530) => [
+      q(Punan Bah-Biau),
+      ],
+   q(5531) => [
+      q(Western Panjabi),
+      ],
+   q(5532) => [
+      q(Pannei),
+      ],
+   q(5533) => [
+      q(Western Penan),
+      ],
+   q(5534) => [
+      q(Pongu),
+      ],
+   q(5535) => [
+      q(Penrhyn),
+      ],
+   q(5536) => [
+      q(Aoheng),
+      ],
+   q(5537) => [
+      q(Pinjarup),
+      ],
+   q(5538) => [
+      q(Paunaka),
+      ],
+   q(5539) => [
+      q(Paleni),
+      ],
+   q(5540) => [
+      q(Punan Batu 1),
+      ],
+   q(5541) => [
+      q(Pinai-Hagahai),
+      ],
+   q(5542) => [
+      q(Panobo),
+      ],
+   q(5543) => [
+      q(Pancana),
+      ],
+   q(5544) => [
+      q(Pana (Burkina Faso)),
+      ],
+   q(5545) => [
+      q(Panim),
+      ],
+   q(5546) => [
+      q(Ponosakan),
+      ],
+   q(5547) => [
+      q(Pontic),
+      ],
+   q(5548) => [
+      q(Jiongnai Bunu),
+      ],
+   q(5549) => [
+      q(Pinigura),
+      ],
+   q(5550) => [
+      q(Panytyima),
+      ],
+   q(5551) => [
+      q(Phong-Kniang),
+      ],
+   q(5552) => [
+      q(Pinyin),
+      ],
+   q(5553) => [
+      q(Pana (Central African Republic)),
+      ],
+   q(5554) => [
+      q(Poqomam),
+      ],
+   q(5555) => [
+      q(Ponares),
+      ],
+   q(5556) => [
+      q(San Juan Atzingo Popoloca),
+      ],
+   q(5557) => [
+      q(Poke),
+      ],
+   q(5558) => [
+      q(Potiguara),
+      ],
+   q(5559) => [
+      q(Poqomchi'),
+      ],
+   q(5560) => [
+      q(Highland Popoluca),
+      ],
+   q(5561) => [
+      q(Pokanga),
+      ],
+   q(5562) => [
+      q(Southeastern Pomo),
+      ],
+   q(5563) => [
+      q(Central Pomo),
+      ],
+   q(5564) => [
+      q(Pwapwa),
+      ],
+   q(5565) => [
+      q(Texistepec Popoluca),
+      ],
+   q(5566) => [
+      q(Sayula Popoluca),
+      ],
+   q(5567) => [
+      q(Potawatomi),
+      ],
+   q(5568) => [
+      q(Upper Guinea Crioulo),
+      ],
+   q(5569) => [
+      q(San Felipe Otlaltepec Popoloca),
+      ],
+   q(5570) => [
+      q(Polabian),
+      ],
+   q(5571) => [
+      q(Pogolo),
+      ],
+   q(5572) => [
+      q(Pao),
+      ],
+   q(5573) => [
+      q(Papi),
+      ],
+   q(5574) => [
+      q(Paipai),
+      ],
+   q(5575) => [
+      q(Uma),
+      ],
+   q(5576) => [
+      q(Pipil),
+      q(Nicarao),
+      ],
+   q(5577) => [
+      q(Papuma),
+      ],
+   q(5578) => [
+      q(Papapana),
+      ],
+   q(5579) => [
+      q(Folopa),
+      ],
+   q(5580) => [
+      q(Pelende),
+      ],
+   q(5581) => [
+      q(Pei),
+      ],
+   q(5582) => [
+      q(San Luis Temalacayuca Popoloca),
+      ],
+   q(5583) => [
+      q(Pare),
+      ],
+   q(5584) => [
+      q(Papora),
+      ],
+   q(5585) => [
+      q(Pa'a),
+      ],
+   q(5586) => [
+      q(Malecite-Passamaquoddy),
+      ],
+   q(5587) => [
+      q(Lua'),
+      ],
+   q(5588) => [
+      q(Parachi),
+      ],
+   q(5589) => [
+      q(Parsi-Dari),
+      ],
+   q(5590) => [
+      q(Principense),
+      ],
+   q(5591) => [
+      q(Paranan),
+      ],
+   q(5592) => [
+      q(Prussian),
+      ],
+   q(5593) => [
+      q(Porohanon),
+      ],
+   q(5594) => [
+      q(Paici),
+      ],
+   q(5595) => [
+      q(Parauk),
+      ],
+   q(5596) => [
+      q(Peruvian Sign Language),
+      ],
+   q(5597) => [
+      q(Kibiri),
+      ],
+   q(5598) => [
+      q(Prasuni),
+      ],
+   q(5599) => [
+      q(Parsi),
+      ],
+   q(5600) => [
+      q(Asheninka Perene),
+      ],
+   q(5601) => [
+      q(Puri),
+      ],
+   q(5602) => [
+      q(Dari),
+      q(Afghan Persian),
+      ],
+   q(5603) => [
+      q(Phai),
+      ],
+   q(5604) => [
+      q(Puragi),
+      ],
+   q(5605) => [
+      q(Parawen),
+      ],
+   q(5606) => [
+      q(Purik),
+      ],
+   q(5607) => [
+      q(Pray 3),
+      ],
+   q(5608) => [
+      q(Providencia Sign Language),
+      ],
+   q(5609) => [
+      q(Asue Awyu),
+      ],
+   q(5610) => [
+      q(Persian Sign Language),
+      ],
+   q(5611) => [
+      q(Plains Indian Sign Language),
+      ],
+   q(5612) => [
+      q(Central Malay),
+      ],
+   q(5613) => [
+      q(Penang Sign Language),
+      ],
+   q(5614) => [
+      q(Southwest Pashai),
+      q(Southwest Pashayi),
+      ],
+   q(5615) => [
+      q(Southeast Pashai),
+      q(Southeast Pashayi),
+      ],
+   q(5616) => [
+      q(Puerto Rican Sign Language),
+      ],
+   q(5617) => [
+      q(Pauserna),
+      ],
+   q(5618) => [
+      q(Panasuan),
+      ],
+   q(5619) => [
+      q(Polish Sign Language),
+      ],
+   q(5620) => [
+      q(Philippine Sign Language),
+      ],
+   q(5621) => [
+      q(Pasi),
+      ],
+   q(5622) => [
+      q(Portuguese Sign Language),
+      ],
+   q(5623) => [
+      q(Kaulong),
+      ],
+   q(5624) => [
+      q(Central Pashto),
+      ],
+   q(5625) => [
+      q(Sauraseni Prakrit),
+      ],
+   q(5626) => [
+      q(Port Sandwich),
+      ],
+   q(5627) => [
+      q(Piscataway),
+      ],
+   q(5628) => [
+      q(Pai Tavytera),
+      ],
+   q(5629) => [
+      q(Pataxo Ha-Ha-Hae),
+      ],
+   q(5630) => [
+      q(Pintiini),
+      ],
+   q(5631) => [
+      q(Patani),
+      ],
+   q(5632) => [
+      q(Zo'e),
+      ],
+   q(5633) => [
+      q(Patep),
+      ],
+   q(5634) => [
+      q(Pattapu),
+      ],
+   q(5635) => [
+      q(Piamatsina),
+      ],
+   q(5636) => [
+      q(Enrekang),
+      ],
+   q(5637) => [
+      q(Bambam),
+      ],
+   q(5638) => [
+      q(Port Vato),
+      ],
+   q(5639) => [
+      q(Pentlatch),
+      ],
+   q(5640) => [
+      q(Pathiya),
+      ],
+   q(5641) => [
+      q(Western Highland Purepecha),
+      ],
+   q(5642) => [
+      q(Purum),
+      ],
+   q(5643) => [
+      q(Punan Merap),
+      ],
+   q(5644) => [
+      q(Punan Aput),
+      ],
+   q(5645) => [
+      q(Puelche),
+      ],
+   q(5646) => [
+      q(Punan Merah),
+      ],
+   q(5647) => [
+      q(Phuie),
+      ],
+   q(5648) => [
+      q(Puinave),
+      ],
+   q(5649) => [
+      q(Punan Tubu),
+      ],
+   q(5650) => [
+      q(Pu Ko),
+      ],
+   q(5651) => [
+      q(Puma),
+      ],
+   q(5652) => [
+      q(Puoc),
+      ],
+   q(5653) => [
+      q(Pulabu),
+      ],
+   q(5654) => [
+      q(Puquina),
+      ],
+   q(5655) => [
+      q(Purubora),
+      ],
+   q(5656) => [
+      q(Putoh),
+      ],
+   q(5657) => [
+      q(Punu),
+      ],
+   q(5658) => [
+      q(Puluwatese),
+      ],
+   q(5659) => [
+      q(Puare),
+      ],
+   q(5660) => [
+      q(Purisimeno),
+      ],
+   q(5661) => [
+      q(Pawaia),
+      ],
+   q(5662) => [
+      q(Panawa),
+      ],
+   q(5663) => [
+      q(Gapapaiwa),
+      ],
+   q(5664) => [
+      q(Patwin),
+      ],
+   q(5665) => [
+      q(Molbog),
+      ],
+   q(5666) => [
+      q(Paiwan),
+      ],
+   q(5667) => [
+      q(Pwo Western Karen),
+      ],
+   q(5668) => [
+      q(Powari),
+      ],
+   q(5669) => [
+      q(Pwo Northern Karen),
+      ],
+   q(5670) => [
+      q(Quetzaltepec Mixe),
+      ],
+   q(5671) => [
+      q(Pye Krumen),
+      ],
+   q(5672) => [
+      q(Fyam),
+      ],
+   q(5673) => [
+      q(Poyanawa),
+      ],
+   q(5674) => [
+      q(Paraguayan Sign Language),
+      q(Lengua de Senas del Paraguay),
+      ],
+   q(5675) => [
+      q(Puyuma),
+      ],
+   q(5676) => [
+      q(Pyu (Myanmar)),
+      ],
+   q(5677) => [
+      q(Pyen),
+      ],
+   q(5678) => [
+      q(Para Naga),
+      ],
+   q(5679) => [
+      q(Quapaw),
+      ],
+   q(5680) => [
+      q(Huallaga Huanuco Quechua),
+      ],
+   q(5681) => [
+      q(K'iche'),
+      q(Quiche),
+      ],
+   q(5682) => [
+      q(Calderon Highland Quichua),
+      ],
+   q(5683) => [
+      q(Lambayeque Quechua),
+      ],
+   q(5684) => [
+      q(Chimborazo Highland Quichua),
+      ],
+   q(5685) => [
+      q(South Bolivian Quechua),
+      ],
+   q(5686) => [
+      q(Quileute),
+      ],
+   q(5687) => [
+      q(Chachapoyas Quechua),
+      ],
+   q(5688) => [
+      q(North Bolivian Quechua),
+      ],
+   q(5689) => [
+      q(Sipacapense),
+      ],
+   q(5690) => [
+      q(Quinault),
+      ],
+   q(5691) => [
+      q(Southern Pastaza Quechua),
+      ],
+   q(5692) => [
+      q(Quinqui),
+      ],
+   q(5693) => [
+      q(Yanahuanca Pasco Quechua),
+      ],
+   q(5694) => [
+      q(Santiago del Estero Quichua),
+      ],
+   q(5695) => [
+      q(Sacapulteco),
+      ],
+   q(5696) => [
+      q(Tena Lowland Quichua),
+      ],
+   q(5697) => [
+      q(Yauyos Quechua),
+      ],
+   q(5698) => [
+      q(Ayacucho Quechua),
+      ],
+   q(5699) => [
+      q(Cusco Quechua),
+      ],
+   q(5700) => [
+      q(Ambo-Pasco Quechua),
+      ],
+   q(5701) => [
+      q(Cajamarca Quechua),
+      ],
+   q(5702) => [
+      q(Eastern Apurimac Quechua),
+      ],
+   q(5703) => [
+      q(Huamalies-Dos de Mayo Huanuco Quechua),
+      ],
+   q(5704) => [
+      q(Imbabura Highland Quichua),
+      ],
+   q(5705) => [
+      q(Loja Highland Quichua),
+      ],
+   q(5706) => [
+      q(Cajatambo North Lima Quechua),
+      ],
+   q(5707) => [
+      q(Margos-Yarowilca-Lauricocha Quechua),
+      ],
+   q(5708) => [
+      q(North Junin Quechua),
+      ],
+   q(5709) => [
+      q(Napo Lowland Quechua),
+      ],
+   q(5710) => [
+      q(Pacaraos Quechua),
+      ],
+   q(5711) => [
+      q(San Martin Quechua),
+      ],
+   q(5712) => [
+      q(Huaylla Wanca Quechua),
+      ],
+   q(5713) => [
+      q(Queyu),
+      ],
+   q(5714) => [
+      q(Northern Pastaza Quichua),
+      ],
+   q(5715) => [
+      q(Corongo Ancash Quechua),
+      ],
+   q(5716) => [
+      q(Classical Quechua),
+      ],
+   q(5717) => [
+      q(Huaylas Ancash Quechua),
+      ],
+   q(5718) => [
+      q(Kuman (Russia)),
+      ],
+   q(5719) => [
+      q(Sihuas Ancash Quechua),
+      ],
+   q(5720) => [
+      q(Kwalhioqua-Tlatskanai),
+      ],
+   q(5721) => [
+      q(Chiquian Ancash Quechua),
+      ],
+   q(5722) => [
+      q(Chincha Quechua),
+      ],
+   q(5723) => [
+      q(Panao Huanuco Quechua),
+      ],
+   q(5724) => [
+      q(Salasaca Highland Quichua),
+      ],
+   q(5725) => [
+      q(Northern Conchucos Ancash Quechua),
+      ],
+   q(5726) => [
+      q(Southern Conchucos Ancash Quechua),
+      ],
+   q(5727) => [
+      q(Puno Quechua),
+      ],
+   q(5728) => [
+      q(Qashqa'i),
+      ],
+   q(5729) => [
+      q(Canar Highland Quichua),
+      ],
+   q(5730) => [
+      q(Southern Qiang),
+      ],
+   q(5731) => [
+      q(Santa Ana de Tusi Pasco Quechua),
+      ],
+   q(5732) => [
+      q(Arequipa-La Union Quechua),
+      ],
+   q(5733) => [
+      q(Jauja Wanca Quechua),
+      ],
+   q(5734) => [
+      q(Quenya),
+      ],
+   q(5735) => [
+      q(Quiripi),
+      ],
+   q(5736) => [
+      q(Dungmali),
+      ],
+   q(5737) => [
+      q(Camling),
+      ],
+   q(5738) => [
+      q(Rasawa),
+      ],
+   q(5739) => [
+      q(Rade),
+      ],
+   q(5740) => [
+      q(Western Meohang),
+      ],
+   q(5741) => [
+      q(Logooli),
+      q(Lulogooli),
+      ],
+   q(5742) => [
+      q(Rabha),
+      ],
+   q(5743) => [
+      q(Ramoaaina),
+      ],
+   q(5744) => [
+      q(Tulu-Bohuai),
+      ],
+   q(5745) => [
+      q(Ralte),
+      ],
+   q(5746) => [
+      q(Canela),
+      ],
+   q(5747) => [
+      q(Riantana),
+      ],
+   q(5748) => [
+      q(Rao),
+      ],
+   q(5749) => [
+      q(Saam),
+      ],
+   q(5750) => [
+      q(Tegali),
+      ],
+   q(5751) => [
+      q(Razajerdi),
+      ],
+   q(5752) => [
+      q(Raute),
+      ],
+   q(5753) => [
+      q(Sampang),
+      ],
+   q(5754) => [
+      q(Rawang),
+      ],
+   q(5755) => [
+      q(Rang),
+      ],
+   q(5756) => [
+      q(Rapa),
+      ],
+   q(5757) => [
+      q(Rahambuu),
+      ],
+   q(5758) => [
+      q(Rumai Palaung),
+      ],
+   q(5759) => [
+      q(Northern Bontok),
+      ],
+   q(5760) => [
+      q(Miraya Bikol),
+      ],
+   q(5761) => [
+      q(Barababaraba),
+      ],
+   q(5762) => [
+      q(Reunion Creole French),
+      ],
+   q(5763) => [
+      q(Rudbari),
+      ],
+   q(5764) => [
+      q(Rerau),
+      ],
+   q(5765) => [
+      q(Rembong),
+      ],
+   q(5766) => [
+      q(Rejang Kayan),
+      ],
+   q(5767) => [
+      q(Kara (Tanzania)),
+      ],
+   q(5768) => [
+      q(Reli),
+      ],
+   q(5769) => [
+      q(Rejang),
+      ],
+   q(5770) => [
+      q(Rendille),
+      ],
+   q(5771) => [
+      q(Remo),
+      ],
+   q(5772) => [
+      q(Rengao),
+      ],
+   q(5773) => [
+      q(Rer Bare),
+      ],
+   q(5774) => [
+      q(Reshe),
+      ],
+   q(5775) => [
+      q(Retta),
+      ],
+   q(5776) => [
+      q(Reyesano),
+      ],
+   q(5777) => [
+      q(Roria),
+      ],
+   q(5778) => [
+      q(Romano-Greek),
+      ],
+   q(5779) => [
+      q(Rangkas),
+      ],
+   q(5780) => [
+      q(Romagnol),
+      ],
+   q(5781) => [
+      q(Resigaro),
+      ],
+   q(5782) => [
+      q(Southern Roglai),
+      ],
+   q(5783) => [
+      q(Ringgou),
+      ],
+   q(5784) => [
+      q(Rohingya),
+      ],
+   q(5785) => [
+      q(Yahang),
+      ],
+   q(5786) => [
+      q(Riang (India)),
+      ],
+   q(5787) => [
+      q(Rien),
+      ],
+   q(5788) => [
+      q(Tarifit),
+      ],
+   q(5789) => [
+      q(Riang (Myanmar)),
+      ],
+   q(5790) => [
+      q(Nyaturu),
+      ],
+   q(5791) => [
+      q(Nungu),
+      ],
+   q(5792) => [
+      q(Ribun),
+      ],
+   q(5793) => [
+      q(Ritarungo),
+      ],
+   q(5794) => [
+      q(Riung),
+      ],
+   q(5795) => [
+      q(Rajong),
+      ],
+   q(5796) => [
+      q(Raji),
+      ],
+   q(5797) => [
+      q(Rajbanshi),
+      ],
+   q(5798) => [
+      q(Kraol),
+      ],
+   q(5799) => [
+      q(Rikbaktsa),
+      ],
+   q(5800) => [
+      q(Rakahanga-Manihiki),
+      ],
+   q(5801) => [
+      q(Rakhine),
+      ],
+   q(5802) => [
+      q(Marka),
+      ],
+   q(5803) => [
+      q(Rangpuri),
+      q(Kamta),
+      ],
+   q(5804) => [
+      q(Arakwal),
+      ],
+   q(5805) => [
+      q(Rama),
+      ],
+   q(5806) => [
+      q(Rembarunga),
+      ],
+   q(5807) => [
+      q(Carpathian Romani),
+      ],
+   q(5808) => [
+      q(Traveller Danish),
+      ],
+   q(5809) => [
+      q(Angloromani),
+      ],
+   q(5810) => [
+      q(Kalo Finnish Romani),
+      ],
+   q(5811) => [
+      q(Traveller Norwegian),
+      ],
+   q(5812) => [
+      q(Murkim),
+      ],
+   q(5813) => [
+      q(Lomavren),
+      ],
+   q(5814) => [
+      q(Romkun),
+      ],
+   q(5815) => [
+      q(Baltic Romani),
+      ],
+   q(5816) => [
+      q(Roma),
+      ],
+   q(5817) => [
+      q(Balkan Romani),
+      ],
+   q(5818) => [
+      q(Sinte Romani),
+      ],
+   q(5819) => [
+      q(Rempi),
+      ],
+   q(5820) => [
+      q(Calo),
+      ],
+   q(5821) => [
+      q(Romanian Sign Language),
+      ],
+   q(5822) => [
+      q(Domari),
+      ],
+   q(5823) => [
+      q(Tavringer Romani),
+      ],
+   q(5824) => [
+      q(Romanova),
+      ],
+   q(5825) => [
+      q(Welsh Romani),
+      ],
+   q(5826) => [
+      q(Romam),
+      ],
+   q(5827) => [
+      q(Vlax Romani),
+      ],
+   q(5828) => [
+      q(Marma),
+      ],
+   q(5829) => [
+      q(Runa),
+      ],
+   q(5830) => [
+      q(Ruund),
+      ],
+   q(5831) => [
+      q(Ronga),
+      ],
+   q(5832) => [
+      q(Ranglong),
+      ],
+   q(5833) => [
+      q(Roon),
+      ],
+   q(5834) => [
+      q(Rongpo),
+      ],
+   q(5835) => [
+      q(Nari Nari),
+      ],
+   q(5836) => [
+      q(Rungwa),
+      ],
+   q(5837) => [
+      q(Tae'),
+      ],
+   q(5838) => [
+      q(Cacgia Roglai),
+      ],
+   q(5839) => [
+      q(Rogo),
+      ],
+   q(5840) => [
+      q(Ronji),
+      ],
+   q(5841) => [
+      q(Rombo),
+      ],
+   q(5842) => [
+      q(Northern Roglai),
+      ],
+   q(5843) => [
+      q(Romblomanon),
+      ],
+   q(5844) => [
+      q(Rotokas),
+      ],
+   q(5845) => [
+      q(Kriol),
+      ],
+   q(5846) => [
+      q(Rongga),
+      ],
+   q(5847) => [
+      q(Runga),
+      ],
+   q(5848) => [
+      q(Dela-Oenale),
+      ],
+   q(5849) => [
+      q(Repanbitip),
+      ],
+   q(5850) => [
+      q(Rapting),
+      ],
+   q(5851) => [
+      q(Ririo),
+      ],
+   q(5852) => [
+      q(Waima),
+      ],
+   q(5853) => [
+      q(Arritinngithigh),
+      ],
+   q(5854) => [
+      q(Romano-Serbian),
+      ],
+   q(5855) => [
+      q(Rennellese Sign Language),
+      ],
+   q(5856) => [
+      q(Russian Sign Language),
+      ],
+   q(5857) => [
+      q(Rungtu Chin),
+      ],
+   q(5858) => [
+      q(Ratahan),
+      ],
+   q(5859) => [
+      q(Rotuman),
+      ],
+   q(5860) => [
+      q(Yurats),
+      ],
+   q(5861) => [
+      q(Rathawi),
+      ],
+   q(5862) => [
+      q(Gungu),
+      ],
+   q(5863) => [
+      q(Ruuli),
+      ],
+   q(5864) => [
+      q(Rusyn),
+      ],
+   q(5865) => [
+      q(Luguru),
+      ],
+   q(5866) => [
+      q(Roviana),
+      ],
+   q(5867) => [
+      q(Ruga),
+      ],
+   q(5868) => [
+      q(Rufiji),
+      ],
+   q(5869) => [
+      q(Che),
+      ],
+   q(5870) => [
+      q(Istro Romanian),
+      ],
+   q(5871) => [
+      q(Megleno Romanian),
+      ],
+   q(5872) => [
+      q(Rutul),
+      ],
+   q(5873) => [
+      q(Lanas Lobu),
+      ],
+   q(5874) => [
+      q(Mala (Nigeria)),
+      ],
+   q(5875) => [
+      q(Ruma),
+      ],
+   q(5876) => [
+      q(Rawo),
+      ],
+   q(5877) => [
+      q(Rwa),
+      ],
+   q(5878) => [
+      q(Amba (Uganda)),
+      ],
+   q(5879) => [
+      q(Rawa),
+      ],
+   q(5880) => [
+      q(Marwari (India)),
+      ],
+   q(5881) => [
+      q(Ngardi),
+      ],
+   q(5882) => [
+      q(Karuwali),
+      ],
+   q(5883) => [
+      q(Northern Amami-Oshima),
+      ],
+   q(5884) => [
+      q(Yaeyama),
+      ],
+   q(5885) => [
+      q(Central Okinawan),
+      ],
+   q(5886) => [
+      q(Saba),
+      ],
+   q(5887) => [
+      q(Buglere),
+      ],
+   q(5888) => [
+      q(Meskwaki),
+      ],
+   q(5889) => [
+      q(Sabane),
+      ],
+   q(5890) => [
+      q(Safaliba),
+      ],
+   q(5891) => [
+      q(Sahu),
+      ],
+   q(5892) => [
+      q(Sake),
+      ],
+   q(5893) => [
+      q(Sause),
+      ],
+   q(5894) => [
+      q(Samburu),
+      ],
+   q(5895) => [
+      q(Saraveca),
+      ],
+   q(5896) => [
+      q(Saleman),
+      ],
+   q(5897) => [
+      q(Saafi-Saafi),
+      ],
+   q(5898) => [
+      q(Sawi),
+      ],
+   q(5899) => [
+      q(Sa),
+      ],
+   q(5900) => [
+      q(Saya),
+      ],
+   q(5901) => [
+      q(Saurashtra),
+      ],
+   q(5902) => [
+      q(Ngambay),
+      ],
+   q(5903) => [
+      q(Simbo),
+      ],
+   q(5904) => [
+      q(Kele (Papua New Guinea)),
+      ],
+   q(5905) => [
+      q(Southern Samo),
+      ],
+   q(5906) => [
+      q(Saliba),
+      ],
+   q(5907) => [
+      q(Chabu),
+      q(Shabo),
+      ],
+   q(5908) => [
+      q(Seget),
+      ],
+   q(5909) => [
+      q(Sori-Harengan),
+      ],
+   q(5910) => [
+      q(Seti),
+      ],
+   q(5911) => [
+      q(Surbakhal),
+      ],
+   q(5912) => [
+      q(Safwa),
+      ],
+   q(5913) => [
+      q(Botolan Sambal),
+      ],
+   q(5914) => [
+      q(Sagala),
+      ],
+   q(5915) => [
+      q(Sindhi Bhil),
+      ],
+   q(5916) => [
+      q(Sabum),
+      ],
+   q(5917) => [
+      q(Sangu (Tanzania)),
+      ],
+   q(5918) => [
+      q(Sileibi),
+      ],
+   q(5919) => [
+      q(Sembakung Murut),
+      ],
+   q(5920) => [
+      q(Subiya),
+      ],
+   q(5921) => [
+      q(Kimki),
+      ],
+   q(5922) => [
+      q(Stod Bhoti),
+      ],
+   q(5923) => [
+      q(Sabine),
+      ],
+   q(5924) => [
+      q(Simba),
+      ],
+   q(5925) => [
+      q(Seberuang),
+      ],
+   q(5926) => [
+      q(Soli),
+      ],
+   q(5927) => [
+      q(Sara Kaba),
+      ],
+   q(5928) => [
+      q(Chut),
+      ],
+   q(5929) => [
+      q(Dongxiang),
+      ],
+   q(5930) => [
+      q(San Miguel Creole French),
+      ],
+   q(5931) => [
+      q(Sanggau),
+      ],
+   q(5932) => [
+      q(Sakachep),
+      ],
+   q(5933) => [
+      q(Sri Lankan Creole Malay),
+      ],
+   q(5934) => [
+      q(Sadri),
+      ],
+   q(5935) => [
+      q(Shina),
+      ],
+   q(5936) => [
+      q(Helambu Sherpa),
+      ],
+   q(5937) => [
+      q(Sa'och),
+      ],
+   q(5938) => [
+      q(North Slavey),
+      ],
+   q(5939) => [
+      q(Shumcho),
+      ],
+   q(5940) => [
+      q(Sheni),
+      ],
+   q(5941) => [
+      q(Sha),
+      ],
+   q(5942) => [
+      q(Sicel),
+      ],
+   q(5943) => [
+      q(Toraja-Sa'dan),
+      ],
+   q(5944) => [
+      q(Shabak),
+      ],
+   q(5945) => [
+      q(Sassarese Sardinian),
+      ],
+   q(5946) => [
+      q(Surubu),
+      ],
+   q(5947) => [
+      q(Sarli),
+      ],
+   q(5948) => [
+      q(Savi),
+      ],
+   q(5949) => [
+      q(Southern Kurdish),
+      ],
+   q(5950) => [
+      q(Suundi),
+      ],
+   q(5951) => [
+      q(Sos Kundi),
+      ],
+   q(5952) => [
+      q(Saudi Arabian Sign Language),
+      ],
+   q(5953) => [
+      q(Semandang),
+      ],
+   q(5954) => [
+      q(Gallurese Sardinian),
+      ],
+   q(5955) => [
+      q(Bukar-Sadung Bidayuh),
+      ],
+   q(5956) => [
+      q(Sherdukpen),
+      ],
+   q(5957) => [
+      q(Oraon Sadri),
+      ],
+   q(5958) => [
+      q(Sened),
+      ],
+   q(5959) => [
+      q(Shuadit),
+      ],
+   q(5960) => [
+      q(Sarudu),
+      ],
+   q(5961) => [
+      q(Sibu Melanau),
+      ],
+   q(5962) => [
+      q(Sallands),
+      ],
+   q(5963) => [
+      q(Semai),
+      ],
+   q(5964) => [
+      q(Shempire Senoufo),
+      ],
+   q(5965) => [
+      q(Sechelt),
+      ],
+   q(5966) => [
+      q(Sedang),
+      ],
+   q(5967) => [
+      q(Seneca),
+      ],
+   q(5968) => [
+      q(Cebaara Senoufo),
+      ],
+   q(5969) => [
+      q(Segeju),
+      ],
+   q(5970) => [
+      q(Sena),
+      ],
+   q(5971) => [
+      q(Seri),
+      ],
+   q(5972) => [
+      q(Sene),
+      ],
+   q(5973) => [
+      q(Sekani),
+      ],
+   q(5974) => [
+      q(Nanerige Senoufo),
+      ],
+   q(5975) => [
+      q(Suarmin),
+      ],
+   q(5976) => [
+      q(Sicite Senoufo),
+      ],
+   q(5977) => [
+      q(Senara Senoufo),
+      ],
+   q(5978) => [
+      q(Serrano),
+      ],
+   q(5979) => [
+      q(Koyraboro Senni Songhai),
+      ],
+   q(5980) => [
+      q(Sentani),
+      ],
+   q(5981) => [
+      q(Serui-Laut),
+      ],
+   q(5982) => [
+      q(Nyarafolo Senoufo),
+      ],
+   q(5983) => [
+      q(Sewa Bay),
+      ],
+   q(5984) => [
+      q(Secoya),
+      ],
+   q(5985) => [
+      q(Senthang Chin),
+      ],
+   q(5986) => [
+      q(Langue des signes de Belgique Francophone),
+      q(French Belgian Sign Language),
+      ],
+   q(5987) => [
+      q(Eastern Subanen),
+      ],
+   q(5988) => [
+      q(Small Flowery Miao),
+      ],
+   q(5989) => [
+      q(South African Sign Language),
+      ],
+   q(5990) => [
+      q(Sehwi),
+      ],
+   q(5991) => [
+      q(Mag-antsi Ayta),
+      ],
+   q(5992) => [
+      q(Kipsigis),
+      ],
+   q(5993) => [
+      q(Surigaonon),
+      ],
+   q(5994) => [
+      q(Segai),
+      ],
+   q(5995) => [
+      q(Swiss-German Sign Language),
+      ],
+   q(5996) => [
+      q(Shughni),
+      ],
+   q(5997) => [
+      q(Suga),
+      ],
+   q(5998) => [
+      q(Surgujia),
+      ],
+   q(5999) => [
+      q(Sangkong),
+      ],
+   q(6000) => [
+      q(Singa),
+      ],
+   q(6001) => [
+      q(Singpho),
+      ],
+   q(6002) => [
+      q(Sangisari),
+      ],
+   q(6003) => [
+      q(Samogitian),
+      ],
+   q(6004) => [
+      q(Brokpake),
+      ],
+   q(6005) => [
+      q(Salas),
+      ],
+   q(6006) => [
+      q(Sebat Bet Gurage),
+      ],
+   q(6007) => [
+      q(Sierra Leone Sign Language),
+      ],
+   q(6008) => [
+      q(Sanglechi),
+      ],
+   q(6009) => [
+      q(Sursurunga),
+      ],
+   q(6010) => [
+      q(Shall-Zwall),
+      ],
+   q(6011) => [
+      q(Ninam),
+      ],
+   q(6012) => [
+      q(Sonde),
+      ],
+   q(6013) => [
+      q(Kundal Shahi),
+      ],
+   q(6014) => [
+      q(Sheko),
+      ],
+   q(6015) => [
+      q(Shua),
+      ],
+   q(6016) => [
+      q(Shoshoni),
+      ],
+   q(6017) => [
+      q(Tachelhit),
+      ],
+   q(6018) => [
+      q(Shatt),
+      ],
+   q(6019) => [
+      q(Shilluk),
+      ],
+   q(6020) => [
+      q(Shendu),
+      ],
+   q(6021) => [
+      q(Shahrudi),
+      ],
+   q(6022) => [
+      q(Shanga),
+      ],
+   q(6023) => [
+      q(Shipibo-Conibo),
+      ],
+   q(6024) => [
+      q(Sala),
+      ],
+   q(6025) => [
+      q(Shi),
+      ],
+   q(6026) => [
+      q(Shuswap),
+      ],
+   q(6027) => [
+      q(Shasta),
+      ],
+   q(6028) => [
+      q(Chadian Arabic),
+      ],
+   q(6029) => [
+      q(Shehri),
+      ],
+   q(6030) => [
+      q(Shwai),
+      ],
+   q(6031) => [
+      q(She),
+      ],
+   q(6032) => [
+      q(Tachawit),
+      ],
+   q(6033) => [
+      q(Syenara Senoufo),
+      ],
+   q(6034) => [
+      q(Akkala Sami),
+      ],
+   q(6035) => [
+      q(Sebop),
+      ],
+   q(6036) => [
+      q(Simaa),
+      ],
+   q(6037) => [
+      q(Siamou),
+      ],
+   q(6038) => [
+      q(Paasaal),
+      ],
+   q(6039) => [
+      q(Zire),
+      q(Sishee),
+      ],
+   q(6040) => [
+      q(Shom Peng),
+      ],
+   q(6041) => [
+      q(Numbami),
+      ],
+   q(6042) => [
+      q(Sikiana),
+      ],
+   q(6043) => [
+      q(Tumulung Sisaala),
+      ],
+   q(6044) => [
+      q(Mende (Papua New Guinea)),
+      ],
+   q(6045) => [
+      q(Sikkimese),
+      ],
+   q(6046) => [
+      q(Sonia),
+      ],
+   q(6047) => [
+      q(Siri),
+      ],
+   q(6048) => [
+      q(Siuslaw),
+      ],
+   q(6049) => [
+      q(Sinagen),
+      ],
+   q(6050) => [
+      q(Sumariup),
+      ],
+   q(6051) => [
+      q(Siwai),
+      ],
+   q(6052) => [
+      q(Sumau),
+      ],
+   q(6053) => [
+      q(Sivandi),
+      ],
+   q(6054) => [
+      q(Siwi),
+      ],
+   q(6055) => [
+      q(Epena),
+      ],
+   q(6056) => [
+      q(Sajau Basap),
+      ],
+   q(6057) => [
+      q(Kildin Sami),
+      ],
+   q(6058) => [
+      q(Pite Sami),
+      ],
+   q(6059) => [
+      q(Assangori),
+      ],
+   q(6060) => [
+      q(Kemi Sami),
+      ],
+   q(6061) => [
+      q(Sajalong),
+      q(Miji),
+      ],
+   q(6062) => [
+      q(Mapun),
+      ],
+   q(6063) => [
+      q(Sindarin),
+      ],
+   q(6064) => [
+      q(Xibe),
+      ],
+   q(6065) => [
+      q(Surjapuri),
+      ],
+   q(6066) => [
+      q(Siar-Lak),
+      ],
+   q(6067) => [
+      q(Senhaja De Srair),
+      ],
+   q(6068) => [
+      q(Ter Sami),
+      ],
+   q(6069) => [
+      q(Ume Sami),
+      ],
+   q(6070) => [
+      q(Shawnee),
+      ],
+   q(6071) => [
+      q(Skagit),
+      ],
+   q(6072) => [
+      q(Saek),
+      ],
+   q(6073) => [
+      q(Ma Manda),
+      ],
+   q(6074) => [
+      q(Southern Sierra Miwok),
+      ],
+   q(6075) => [
+      q(Seke (Vanuatu)),
+      ],
+   q(6076) => [
+      q(Sakirabia),
+      ],
+   q(6077) => [
+      q(Sakalava Malagasy),
+      ],
+   q(6078) => [
+      q(Sikule),
+      ],
+   q(6079) => [
+      q(Sika),
+      ],
+   q(6080) => [
+      q(Seke (Nepal)),
+      ],
+   q(6081) => [
+      q(Sok),
+      ],
+   q(6082) => [
+      q(Kutong),
+      ],
+   q(6083) => [
+      q(Kolibugan Subanon),
+      ],
+   q(6084) => [
+      q(Seko Tengah),
+      ],
+   q(6085) => [
+      q(Sekapan),
+      ],
+   q(6086) => [
+      q(Sininkere),
+      ],
+   q(6087) => [
+      q(Saraiki),
+      q(Seraiki),
+      ],
+   q(6088) => [
+      q(Maia),
+      ],
+   q(6089) => [
+      q(Sakata),
+      ],
+   q(6090) => [
+      q(Sakao),
+      ],
+   q(6091) => [
+      q(Skou),
+      ],
+   q(6092) => [
+      q(Skepi Creole Dutch),
+      ],
+   q(6093) => [
+      q(Seko Padang),
+      ],
+   q(6094) => [
+      q(Sikaiana),
+      ],
+   q(6095) => [
+      q(Sekar),
+      ],
+   q(6096) => [
+      q(Sissala),
+      ],
+   q(6097) => [
+      q(Sholaga),
+      ],
+   q(6098) => [
+      q(Swiss-Italian Sign Language),
+      ],
+   q(6099) => [
+      q(Selungai Murut),
+      ],
+   q(6100) => [
+      q(Southern Puget Sound Salish),
+      ],
+   q(6101) => [
+      q(Lower Silesian),
+      ],
+   q(6102) => [
+      q(Saluma),
+      ],
+   q(6103) => [
+      q(Salt-Yui),
+      ],
+   q(6104) => [
+      q(Pangutaran Sama),
+      ],
+   q(6105) => [
+      q(Salinan),
+      ],
+   q(6106) => [
+      q(Lamaholot),
+      ],
+   q(6107) => [
+      q(Salchuq),
+      ],
+   q(6108) => [
+      q(Salar),
+      ],
+   q(6109) => [
+      q(Singapore Sign Language),
+      ],
+   q(6110) => [
+      q(Sila),
+      ],
+   q(6111) => [
+      q(Selaru),
+      ],
+   q(6112) => [
+      q(Sialum),
+      ],
+   q(6113) => [
+      q(Salampasu),
+      ],
+   q(6114) => [
+      q(Selayar),
+      ],
+   q(6115) => [
+      q(Ma'ya),
+      ],
+   q(6116) => [
+      q(Simbari),
+      ],
+   q(6117) => [
+      q(Som),
+      ],
+   q(6118) => [
+      q(Sama),
+      ],
+   q(6119) => [
+      q(Auwe),
+      ],
+   q(6120) => [
+      q(Simbali),
+      ],
+   q(6121) => [
+      q(Samei),
+      ],
+   q(6122) => [
+      q(Bolinao),
+      ],
+   q(6123) => [
+      q(Central Sama),
+      ],
+   q(6124) => [
+      q(Musasa),
+      ],
+   q(6125) => [
+      q(Samaritan),
+      ],
+   q(6126) => [
+      q(Samo),
+      ],
+   q(6127) => [
+      q(Simeulue),
+      ],
+   q(6128) => [
+      q(Simte),
+      ],
+   q(6129) => [
+      q(Somray),
+      ],
+   q(6130) => [
+      q(Samvedi),
+      ],
+   q(6131) => [
+      q(Sumbawa),
+      ],
+   q(6132) => [
+      q(Samba),
+      ],
+   q(6133) => [
+      q(Semnani),
+      ],
+   q(6134) => [
+      q(Simeku),
+      ],
+   q(6135) => [
+      q(Sebuyau),
+      ],
+   q(6136) => [
+      q(Sinaugoro),
+      ],
+   q(6137) => [
+      q(Bau Bidayuh),
+      ],
+   q(6138) => [
+      q(Noon),
+      ],
+   q(6139) => [
+      q(Sanga (Democratic Republic of Congo)),
+      ],
+   q(6140) => [
+      q(Shinabo),
+      ],
+   q(6141) => [
+      q(Sensi),
+      ],
+   q(6142) => [
+      q(Riverain Sango),
+      ],
+   q(6143) => [
+      q(Sangil),
+      ],
+   q(6144) => [
+      q(Southern Ma'di),
+      ],
+   q(6145) => [
+      q(Siona),
+      ],
+   q(6146) => [
+      q(Snohomish),
+      ],
+   q(6147) => [
+      q(Siane),
+      ],
+   q(6148) => [
+      q(Sangu (Gabon)),
+      ],
+   q(6149) => [
+      q(Sihan),
+      ],
+   q(6150) => [
+      q(South West Bay),
+      q(Nahavaq),
+      ],
+   q(6151) => [
+      q(Senggi),
+      q(Viid),
+      ],
+   q(6152) => [
+      q(Sa'ban),
+      ],
+   q(6153) => [
+      q(Selee),
+      ],
+   q(6154) => [
+      q(Sam),
+      ],
+   q(6155) => [
+      q(Saniyo-Hiyewe),
+      ],
+   q(6156) => [
+      q(Sinsauru),
+      ],
+   q(6157) => [
+      q(Thai Song),
+      ],
+   q(6158) => [
+      q(Sobei),
+      ],
+   q(6159) => [
+      q(So (Democratic Republic of Congo)),
+      ],
+   q(6160) => [
+      q(Songoora),
+      ],
+   q(6161) => [
+      q(Songomeno),
+      ],
+   q(6162) => [
+      q(Aka),
+      ],
+   q(6163) => [
+      q(Sonha),
+      ],
+   q(6164) => [
+      q(Soi),
+      ],
+   q(6165) => [
+      q(Sokoro),
+      ],
+   q(6166) => [
+      q(Solos),
+      ],
+   q(6167) => [
+      q(Songo),
+      ],
+   q(6168) => [
+      q(Songe),
+      ],
+   q(6169) => [
+      q(Kanasi),
+      ],
+   q(6170) => [
+      q(Somrai),
+      ],
+   q(6171) => [
+      q(Seeku),
+      ],
+   q(6172) => [
+      q(Southern Thai),
+      ],
+   q(6173) => [
+      q(Sonsorol),
+      ],
+   q(6174) => [
+      q(Sowanda),
+      ],
+   q(6175) => [
+      q(Swo),
+      ],
+   q(6176) => [
+      q(Miyobe),
+      ],
+   q(6177) => [
+      q(Temi),
+      ],
+   q(6178) => [
+      q(Sepa (Indonesia)),
+      ],
+   q(6179) => [
+      q(Sape),
+      ],
+   q(6180) => [
+      q(Saep),
+      ],
+   q(6181) => [
+      q(Sepa (Papua New Guinea)),
+      ],
+   q(6182) => [
+      q(Sian),
+      ],
+   q(6183) => [
+      q(Saponi),
+      ],
+   q(6184) => [
+      q(Sengo),
+      ],
+   q(6185) => [
+      q(Selepet),
+      ],
+   q(6186) => [
+      q(Akukem),
+      ],
+   q(6187) => [
+      q(Sanapana),
+      ],
+   q(6188) => [
+      q(Spokane),
+      ],
+   q(6189) => [
+      q(Supyire Senoufo),
+      ],
+   q(6190) => [
+      q(Loreto-Ucayali Spanish),
+      ],
+   q(6191) => [
+      q(Saparua),
+      ],
+   q(6192) => [
+      q(Saposa),
+      ],
+   q(6193) => [
+      q(Spiti Bhoti),
+      ],
+   q(6194) => [
+      q(Sapuan),
+      ],
+   q(6195) => [
+      q(Sambalpuri),
+      q(Kosli),
+      ],
+   q(6196) => [
+      q(South Picene),
+      ],
+   q(6197) => [
+      q(Sabaot),
+      ],
+   q(6198) => [
+      q(Shama-Sambuga),
+      ],
+   q(6199) => [
+      q(Shau),
+      ],
+   q(6200) => [
+      q(Albanian Sign Language),
+      ],
+   q(6201) => [
+      q(Suma),
+      ],
+   q(6202) => [
+      q(Susquehannock),
+      ],
+   q(6203) => [
+      q(Sorkhei),
+      ],
+   q(6204) => [
+      q(Sou),
+      ],
+   q(6205) => [
+      q(Siculo Arabic),
+      ],
+   q(6206) => [
+      q(Sri Lankan Sign Language),
+      ],
+   q(6207) => [
+      q(Soqotri),
+      ],
+   q(6208) => [
+      q(Squamish),
+      ],
+   q(6209) => [
+      q(Saruga),
+      ],
+   q(6210) => [
+      q(Sora),
+      ],
+   q(6211) => [
+      q(Logudorese Sardinian),
+      ],
+   q(6212) => [
+      q(Sara),
+      ],
+   q(6213) => [
+      q(Nafi),
+      ],
+   q(6214) => [
+      q(Sulod),
+      ],
+   q(6215) => [
+      q(Sarikoli),
+      ],
+   q(6216) => [
+      q(Siriano),
+      ],
+   q(6217) => [
+      q(Serudung Murut),
+      ],
+   q(6218) => [
+      q(Isirawa),
+      ],
+   q(6219) => [
+      q(Saramaccan),
+      ],
+   q(6220) => [
+      q(Campidanese Sardinian),
+      ],
+   q(6221) => [
+      q(Siriono),
+      ],
+   q(6222) => [
+      q(Sarsi),
+      ],
+   q(6223) => [
+      q(Sauri),
+      ],
+   q(6224) => [
+      q(Surui),
+      ],
+   q(6225) => [
+      q(Southern Sorsoganon),
+      ],
+   q(6226) => [
+      q(Serua),
+      ],
+   q(6227) => [
+      q(Sirmauri),
+      ],
+   q(6228) => [
+      q(Sera),
+      ],
+   q(6229) => [
+      q(Shahmirzadi),
+      ],
+   q(6230) => [
+      q(Southern Sama),
+      ],
+   q(6231) => [
+      q(Suba-Simbiti),
+      ],
+   q(6232) => [
+      q(Siroi),
+      ],
+   q(6233) => [
+      q(Balangingi),
+      q(Bangingih Sama),
+      ],
+   q(6234) => [
+      q(Thao),
+      ],
+   q(6235) => [
+      q(Seimat),
+      ],
+   q(6236) => [
+      q(Shihhi Arabic),
+      ],
+   q(6237) => [
+      q(Sansi),
+      ],
+   q(6238) => [
+      q(Sausi),
+      ],
+   q(6239) => [
+      q(Sunam),
+      ],
+   q(6240) => [
+      q(Western Sisaala),
+      ],
+   q(6241) => [
+      q(Semnam),
+      ],
+   q(6242) => [
+      q(Waata),
+      ],
+   q(6243) => [
+      q(Sissano),
+      ],
+   q(6244) => [
+      q(Spanish Sign Language),
+      ],
+   q(6245) => [
+      q(So'a),
+      ],
+   q(6246) => [
+      q(Swiss-French Sign Language),
+      ],
+   q(6247) => [
+      q(So),
+      ],
+   q(6248) => [
+      q(Sinasina),
+      ],
+   q(6249) => [
+      q(Susuami),
+      ],
+   q(6250) => [
+      q(Shark Bay),
+      ],
+   q(6251) => [
+      q(Samberigi),
+      ],
+   q(6252) => [
+      q(Saho),
+      ],
+   q(6253) => [
+      q(Sengseng),
+      ],
+   q(6254) => [
+      q(Settla),
+      ],
+   q(6255) => [
+      q(Northern Subanen),
+      ],
+   q(6256) => [
+      q(Sentinel),
+      ],
+   q(6257) => [
+      q(Liana-Seti),
+      ],
+   q(6258) => [
+      q(Seta),
+      ],
+   q(6259) => [
+      q(Trieng),
+      ],
+   q(6260) => [
+      q(Shelta),
+      ],
+   q(6261) => [
+      q(Bulo Stieng),
+      ],
+   q(6262) => [
+      q(Matya Samo),
+      ],
+   q(6263) => [
+      q(Arammba),
+      ],
+   q(6264) => [
+      q(Stellingwerfs),
+      ],
+   q(6265) => [
+      q(Setaman),
+      ],
+   q(6266) => [
+      q(Owa),
+      ],
+   q(6267) => [
+      q(Stoney),
+      ],
+   q(6268) => [
+      q(Southeastern Tepehuan),
+      ],
+   q(6269) => [
+      q(Saterfriesisch),
+      ],
+   q(6270) => [
+      q(Straits Salish),
+      ],
+   q(6271) => [
+      q(Shumashti),
+      ],
+   q(6272) => [
+      q(Budeh Stieng),
+      ],
+   q(6273) => [
+      q(Samtao),
+      ],
+   q(6274) => [
+      q(Silt'e),
+      ],
+   q(6275) => [
+      q(Satawalese),
+      ],
+   q(6276) => [
+      q(Siberian Tatar),
+      ],
+   q(6277) => [
+      q(Sulka),
+      ],
+   q(6278) => [
+      q(Suku),
+      ],
+   q(6279) => [
+      q(Western Subanon),
+      ],
+   q(6280) => [
+      q(Suena),
+      ],
+   q(6281) => [
+      q(Suganga),
+      ],
+   q(6282) => [
+      q(Suki),
+      ],
+   q(6283) => [
+      q(Shubi),
+      ],
+   q(6284) => [
+      q(Suri),
+      ],
+   q(6285) => [
+      q(Mwaghavul),
+      ],
+   q(6286) => [
+      q(Subtiaba),
+      ],
+   q(6287) => [
+      q(Puroik),
+      ],
+   q(6288) => [
+      q(Sumbwa),
+      ],
+   q(6289) => [
+      q(Suya),
+      ],
+   q(6290) => [
+      q(Sunwar),
+      ],
+   q(6291) => [
+      q(Svan),
+      ],
+   q(6292) => [
+      q(Ulau-Suain),
+      ],
+   q(6293) => [
+      q(Vincentian Creole English),
+      ],
+   q(6294) => [
+      q(Serili),
+      ],
+   q(6295) => [
+      q(Slovakian Sign Language),
+      ],
+   q(6296) => [
+      q(Slavomolisano),
+      ],
+   q(6297) => [
+      q(Savara),
+      ],
+   q(6298) => [
+      q(Savosavo),
+      ],
+   q(6299) => [
+      q(Skalvian),
+      ],
+   q(6300) => [
+      q(Maore Comorian),
+      ],
+   q(6301) => [
+      q(Congo Swahili),
+      ],
+   q(6302) => [
+      q(Sere),
+      ],
+   q(6303) => [
+      q(Swabian),
+      ],
+   q(6304) => [
+      q(Swahili (individual language)),
+      q(Kiswahili),
+      ],
+   q(6305) => [
+      q(Sui),
+      ],
+   q(6306) => [
+      q(Sira),
+      ],
+   q(6307) => [
+      q(Malawi Sena),
+      ],
+   q(6308) => [
+      q(Swedish Sign Language),
+      ],
+   q(6309) => [
+      q(Samosa),
+      ],
+   q(6310) => [
+      q(Sawknah),
+      ],
+   q(6311) => [
+      q(Shanenawa),
+      ],
+   q(6312) => [
+      q(Suau),
+      ],
+   q(6313) => [
+      q(Sharwa),
+      ],
+   q(6314) => [
+      q(Saweru),
+      ],
+   q(6315) => [
+      q(Seluwasan),
+      ],
+   q(6316) => [
+      q(Sawila),
+      ],
+   q(6317) => [
+      q(Suwawa),
+      ],
+   q(6318) => [
+      q(Shekhawati),
+      ],
+   q(6319) => [
+      q(Sowa),
+      ],
+   q(6320) => [
+      q(Suruaha),
+      ],
+   q(6321) => [
+      q(Sarua),
+      ],
+   q(6322) => [
+      q(Suba),
+      ],
+   q(6323) => [
+      q(Sicanian),
+      ],
+   q(6324) => [
+      q(Sighu),
+      ],
+   q(6325) => [
+      q(Shixing),
+      ],
+   q(6326) => [
+      q(Southern Kalapuya),
+      ],
+   q(6327) => [
+      q(Selian),
+      ],
+   q(6328) => [
+      q(Samre),
+      ],
+   q(6329) => [
+      q(Sangir),
+      ],
+   q(6330) => [
+      q(Sorothaptic),
+      ],
+   q(6331) => [
+      q(Saaroa),
+      ],
+   q(6332) => [
+      q(Sasaru),
+      ],
+   q(6333) => [
+      q(Upper Saxon),
+      ],
+   q(6334) => [
+      q(Saxwe Gbe),
+      ],
+   q(6335) => [
+      q(Siang),
+      ],
+   q(6336) => [
+      q(Central Subanen),
+      ],
+   q(6337) => [
+      q(Seki),
+      ],
+   q(6338) => [
+      q(Sukur),
+      ],
+   q(6339) => [
+      q(Sylheti),
+      ],
+   q(6340) => [
+      q(Maya Samo),
+      ],
+   q(6341) => [
+      q(Senaya),
+      ],
+   q(6342) => [
+      q(Suoy),
+      ],
+   q(6343) => [
+      q(Sinyar),
+      ],
+   q(6344) => [
+      q(Kagate),
+      ],
+   q(6345) => [
+      q(Samay),
+      ],
+   q(6346) => [
+      q(Al-Sayyid Bedouin Sign Language),
+      ],
+   q(6347) => [
+      q(Semelai),
+      ],
+   q(6348) => [
+      q(Ngalum),
+      ],
+   q(6349) => [
+      q(Semaq Beri),
+      ],
+   q(6350) => [
+      q(Seru),
+      ],
+   q(6351) => [
+      q(Seze),
+      ],
+   q(6352) => [
+      q(Sengele),
+      ],
+   q(6353) => [
+      q(Silesian),
+      ],
+   q(6354) => [
+      q(Sula),
+      ],
+   q(6355) => [
+      q(Suabo),
+      ],
+   q(6356) => [
+      q(Isu (Fako Division)),
+      ],
+   q(6357) => [
+      q(Sawai),
+      ],
+   q(6358) => [
+      q(Lower Tanana),
+      ],
+   q(6359) => [
+      q(Tabassaran),
+      ],
+   q(6360) => [
+      q(Lowland Tarahumara),
+      ],
+   q(6361) => [
+      q(Tause),
+      ],
+   q(6362) => [
+      q(Tariana),
+      ],
+   q(6363) => [
+      q(Tapirape),
+      ],
+   q(6364) => [
+      q(Tagoi),
+      ],
+   q(6365) => [
+      q(Eastern Tamang),
+      ],
+   q(6366) => [
+      q(Tala),
+      ],
+   q(6367) => [
+      q(Tal),
+      ],
+   q(6368) => [
+      q(Tangale),
+      ],
+   q(6369) => [
+      q(Yami),
+      ],
+   q(6370) => [
+      q(Taabwa),
+      ],
+   q(6371) => [
+      q(Tamasheq),
+      ],
+   q(6372) => [
+      q(Central Tarahumara),
+      ],
+   q(6373) => [
+      q(Tay Boi),
+      ],
+   q(6374) => [
+      q(Upper Tanana),
+      ],
+   q(6375) => [
+      q(Tatuyo),
+      ],
+   q(6376) => [
+      q(Tai),
+      ],
+   q(6377) => [
+      q(Tamki),
+      ],
+   q(6378) => [
+      q(Atayal),
+      ],
+   q(6379) => [
+      q(Tocho),
+      ],
+   q(6380) => [
+      q(Aikana),
+      ],
+   q(6381) => [
+      q(Tapeba),
+      ],
+   q(6382) => [
+      q(Takia),
+      ],
+   q(6383) => [
+      q(Kaki Ae),
+      ],
+   q(6384) => [
+      q(Tanimbili),
+      ],
+   q(6385) => [
+      q(Mandara),
+      ],
+   q(6386) => [
+      q(North Tairora),
+      ],
+   q(6387) => [
+      q(Thurawal),
+      ],
+   q(6388) => [
+      q(Gaam),
+      ],
+   q(6389) => [
+      q(Tiang),
+      ],
+   q(6390) => [
+      q(Calamian Tagbanwa),
+      ],
+   q(6391) => [
+      q(Tboli),
+      ],
+   q(6392) => [
+      q(Tagbu),
+      ],
+   q(6393) => [
+      q(Barro Negro Tunebo),
+      ],
+   q(6394) => [
+      q(Tawala),
+      ],
+   q(6395) => [
+      q(Taworta),
+      q(Diebroud),
+      ],
+   q(6396) => [
+      q(Tumtum),
+      ],
+   q(6397) => [
+      q(Tanguat),
+      ],
+   q(6398) => [
+      q(Tembo (Kitembo)),
+      ],
+   q(6399) => [
+      q(Tubar),
+      ],
+   q(6400) => [
+      q(Tobo),
+      ],
+   q(6401) => [
+      q(Tagbanwa),
+      ],
+   q(6402) => [
+      q(Kapin),
+      ],
+   q(6403) => [
+      q(Tabaru),
+      ],
+   q(6404) => [
+      q(Ditammari),
+      ],
+   q(6405) => [
+      q(Ticuna),
+      ],
+   q(6406) => [
+      q(Tanacross),
+      ],
+   q(6407) => [
+      q(Datooga),
+      ],
+   q(6408) => [
+      q(Tafi),
+      ],
+   q(6409) => [
+      q(Southern Tutchone),
+      ],
+   q(6410) => [
+      q(Malinaltepec Me'phaa),
+      q(Malinaltepec Tlapanec),
+      ],
+   q(6411) => [
+      q(Tamagario),
+      ],
+   q(6412) => [
+      q(Turks And Caicos Creole English),
+      ],
+   q(6413) => [
+      q(Wara),
+      ],
+   q(6414) => [
+      q(Tchitchege),
+      ],
+   q(6415) => [
+      q(Taman (Myanmar)),
+      ],
+   q(6416) => [
+      q(Tanahmerah),
+      ],
+   q(6417) => [
+      q(Tichurong),
+      ],
+   q(6418) => [
+      q(Taungyo),
+      ],
+   q(6419) => [
+      q(Tawr Chin),
+      ],
+   q(6420) => [
+      q(Kaiy),
+      ],
+   q(6421) => [
+      q(Torres Strait Creole),
+      ],
+   q(6422) => [
+      q(T'en),
+      ],
+   q(6423) => [
+      q(Southeastern Tarahumara),
+      ],
+   q(6424) => [
+      q(Tecpatlan Totonac),
+      ],
+   q(6425) => [
+      q(Toda),
+      ],
+   q(6426) => [
+      q(Tulu),
+      ],
+   q(6427) => [
+      q(Thado Chin),
+      ],
+   q(6428) => [
+      q(Tagdal),
+      ],
+   q(6429) => [
+      q(Panchpargania),
+      ],
+   q(6430) => [
+      q(Embera-Tado),
+      ],
+   q(6431) => [
+      q(Tai Nua),
+      ],
+   q(6432) => [
+      q(Tiranige Diga Dogon),
+      ],
+   q(6433) => [
+      q(Talieng),
+      ],
+   q(6434) => [
+      q(Western Tamang),
+      ],
+   q(6435) => [
+      q(Thulung),
+      ],
+   q(6436) => [
+      q(Tomadino),
+      ],
+   q(6437) => [
+      q(Tajio),
+      ],
+   q(6438) => [
+      q(Tambas),
+      ],
+   q(6439) => [
+      q(Sur),
+      ],
+   q(6440) => [
+      q(Tondano),
+      ],
+   q(6441) => [
+      q(Teme),
+      ],
+   q(6442) => [
+      q(Tita),
+      ],
+   q(6443) => [
+      q(Todrah),
+      ],
+   q(6444) => [
+      q(Doutai),
+      ],
+   q(6445) => [
+      q(Tetun Dili),
+      ],
+   q(6446) => [
+      q(Tempasuk Dusun),
+      ],
+   q(6447) => [
+      q(Toro),
+      ],
+   q(6448) => [
+      q(Tandroy-Mahafaly Malagasy),
+      ],
+   q(6449) => [
+      q(Tadyawan),
+      ],
+   q(6450) => [
+      q(Temiar),
+      ],
+   q(6451) => [
+      q(Tetete),
+      ],
+   q(6452) => [
+      q(Terik),
+      ],
+   q(6453) => [
+      q(Tepo Krumen),
+      ],
+   q(6454) => [
+      q(Huehuetla Tepehua),
+      ],
+   q(6455) => [
+      q(Teressa),
+      ],
+   q(6456) => [
+      q(Teke-Tege),
+      ],
+   q(6457) => [
+      q(Tehuelche),
+      ],
+   q(6458) => [
+      q(Torricelli),
+      ],
+   q(6459) => [
+      q(Ibali Teke),
+      ],
+   q(6460) => [
+      q(Tama (Colombia)),
+      ],
+   q(6461) => [
+      q(Teso),
+      ],
+   q(6462) => [
+      q(Tepecano),
+      ],
+   q(6463) => [
+      q(Temein),
+      ],
+   q(6464) => [
+      q(Tengger),
+      ],
+   q(6465) => [
+      q(Soo),
+      ],
+   q(6466) => [
+      q(Teor),
+      ],
+   q(6467) => [
+      q(Tewa (USA)),
+      ],
+   q(6468) => [
+      q(Tennet),
+      ],
+   q(6469) => [
+      q(Tulishi),
+      ],
+   q(6470) => [
+      q(Tofin Gbe),
+      ],
+   q(6471) => [
+      q(Tanaina),
+      ],
+   q(6472) => [
+      q(Tefaro),
+      ],
+   q(6473) => [
+      q(Teribe),
+      ],
+   q(6474) => [
+      q(Ternate),
+      ],
+   q(6475) => [
+      q(Sagalla),
+      ],
+   q(6476) => [
+      q(Tobilung),
+      ],
+   q(6477) => [
+      q(Tigak),
+      ],
+   q(6478) => [
+      q(Ciwogai),
+      ],
+   q(6479) => [
+      q(Eastern Gorkha Tamang),
+      ],
+   q(6480) => [
+      q(Chalikha),
+      ],
+   q(6481) => [
+      q(Tobagonian Creole English),
+      ],
+   q(6482) => [
+      q(Lawunuia),
+      ],
+   q(6483) => [
+      q(Tagin),
+      ],
+   q(6484) => [
+      q(Tandaganon),
+      ],
+   q(6485) => [
+      q(Sudest),
+      ],
+   q(6486) => [
+      q(Tangoa),
+      ],
+   q(6487) => [
+      q(Tring),
+      ],
+   q(6488) => [
+      q(Tareng),
+      ],
+   q(6489) => [
+      q(Nume),
+      ],
+   q(6490) => [
+      q(Central Tagbanwa),
+      ],
+   q(6491) => [
+      q(Tanggu),
+      ],
+   q(6492) => [
+      q(Tingui-Boto),
+      ],
+   q(6493) => [
+      q(Tagwana Senoufo),
+      ],
+   q(6494) => [
+      q(Tagish),
+      ],
+   q(6495) => [
+      q(Togoyo),
+      ],
+   q(6496) => [
+      q(Tagalaka),
+      ],
+   q(6497) => [
+      q(Tai Hang Tong),
+      ],
+   q(6498) => [
+      q(Thayore),
+      ],
+   q(6499) => [
+      q(Chitwania Tharu),
+      ],
+   q(6500) => [
+      q(Thangmi),
+      ],
+   q(6501) => [
+      q(Northern Tarahumara),
+      ],
+   q(6502) => [
+      q(Tai Long),
+      ],
+   q(6503) => [
+      q(Tharaka),
+      q(Kitharaka),
+      ],
+   q(6504) => [
+      q(Dangaura Tharu),
+      ],
+   q(6505) => [
+      q(Aheu),
+      ],
+   q(6506) => [
+      q(Thachanadan),
+      ],
+   q(6507) => [
+      q(Thompson),
+      ],
+   q(6508) => [
+      q(Kochila Tharu),
+      ],
+   q(6509) => [
+      q(Rana Tharu),
+      ],
+   q(6510) => [
+      q(Thakali),
+      ],
+   q(6511) => [
+      q(Tahltan),
+      ],
+   q(6512) => [
+      q(Thuri),
+      ],
+   q(6513) => [
+      q(Tahaggart Tamahaq),
+      ],
+   q(6514) => [
+      q(Thudam),
+      ],
+   q(6515) => [
+      q(Tha),
+      ],
+   q(6516) => [
+      q(Tayart Tamajeq),
+      ],
+   q(6517) => [
+      q(Tidikelt Tamazight),
+      ],
+   q(6518) => [
+      q(Tira),
+      ],
+   q(6519) => [
+      q(Tidong),
+      ],
+   q(6520) => [
+      q(Tifal),
+      ],
+   q(6521) => [
+      q(Timugon Murut),
+      ],
+   q(6522) => [
+      q(Tiene),
+      ],
+   q(6523) => [
+      q(Tilung),
+      ],
+   q(6524) => [
+      q(Tikar),
+      ],
+   q(6525) => [
+      q(Tillamook),
+      ],
+   q(6526) => [
+      q(Timbe),
+      ],
+   q(6527) => [
+      q(Tindi),
+      ],
+   q(6528) => [
+      q(Teop),
+      ],
+   q(6529) => [
+      q(Trimuris),
+      ],
+   q(6530) => [
+      q(Tiefo),
+      ],
+   q(6531) => [
+      q(Masadiit Itneg),
+      ],
+   q(6532) => [
+      q(Tinigua),
+      ],
+   q(6533) => [
+      q(Adasen),
+      ],
+   q(6534) => [
+      q(Tiwi),
+      ],
+   q(6535) => [
+      q(Southern Tiwa),
+      ],
+   q(6536) => [
+      q(Tiruray),
+      ],
+   q(6537) => [
+      q(Tai Hongjin),
+      ],
+   q(6538) => [
+      q(Tajuasohn),
+      ],
+   q(6539) => [
+      q(Tunjung),
+      ],
+   q(6540) => [
+      q(Northern Tujia),
+      ],
+   q(6541) => [
+      q(Tai Laing),
+      ],
+   q(6542) => [
+      q(Timucua),
+      ],
+   q(6543) => [
+      q(Tonjon),
+      ],
+   q(6544) => [
+      q(Temacine Tamazight),
+      ],
+   q(6545) => [
+      q(Southern Tujia),
+      ],
+   q(6546) => [
+      q(Tjurruru),
+      ],
+   q(6547) => [
+      q(Djabwurrung),
+      ],
+   q(6548) => [
+      q(Truka),
+      ],
+   q(6549) => [
+      q(Buksa),
+      ],
+   q(6550) => [
+      q(Tukudede),
+      ],
+   q(6551) => [
+      q(Takwane),
+      ],
+   q(6552) => [
+      q(Tukumanfed),
+      ],
+   q(6553) => [
+      q(Tesaka Malagasy),
+      ],
+   q(6554) => [
+      q(Takelma),
+      ],
+   q(6555) => [
+      q(Toku-No-Shima),
+      ],
+   q(6556) => [
+      q(Tikopia),
+      ],
+   q(6557) => [
+      q(Tee),
+      ],
+   q(6558) => [
+      q(Tsakhur),
+      ],
+   q(6559) => [
+      q(Takestani),
+      ],
+   q(6560) => [
+      q(Kathoriya Tharu),
+      ],
+   q(6561) => [
+      q(Upper Necaxa Totonac),
+      ],
+   q(6562) => [
+      q(Mur Pano),
+      ],
+   q(6563) => [
+      q(Teanu),
+      ],
+   q(6564) => [
+      q(Tangko),
+      ],
+   q(6565) => [
+      q(Takua),
+      ],
+   q(6566) => [
+      q(Southwestern Tepehuan),
+      ],
+   q(6567) => [
+      q(Tobelo),
+      ],
+   q(6568) => [
+      q(Yecuatla Totonac),
+      ],
+   q(6569) => [
+      q(Talaud),
+      ],
+   q(6570) => [
+      q(Telefol),
+      ],
+   q(6571) => [
+      q(Tofanma),
+      ],
+   q(6572) => [
+      q(Talinga-Bwisi),
+      ],
+   q(6573) => [
+      q(Taloki),
+      ],
+   q(6574) => [
+      q(Tetela),
+      ],
+   q(6575) => [
+      q(Tolomako),
+      ],
+   q(6576) => [
+      q(Talondo'),
+      ],
+   q(6577) => [
+      q(Talodi),
+      ],
+   q(6578) => [
+      q(Filomena Mata-Coahuitlan Totonac),
+      ],
+   q(6579) => [
+      q(Tai Loi),
+      ],
+   q(6580) => [
+      q(Talise),
+      ],
+   q(6581) => [
+      q(Tambotalo),
+      ],
+   q(6582) => [
+      q(Teluti),
+      ],
+   q(6583) => [
+      q(Tulehu),
+      ],
+   q(6584) => [
+      q(Taliabu),
+      ],
+   q(6585) => [
+      q(Khehek),
+      ],
+   q(6586) => [
+      q(Talysh),
+      ],
+   q(6587) => [
+      q(Tama (Chad)),
+      ],
+   q(6588) => [
+      q(Katbol),
+      q(Avava),
+      ],
+   q(6589) => [
+      q(Tumak),
+      ],
+   q(6590) => [
+      q(Haruai),
+      ],
+   q(6591) => [
+      q(Tremembe),
+      ],
+   q(6592) => [
+      q(Toba-Maskoy),
+      ],
+   q(6593) => [
+      q(Ternateno),
+      ],
+   q(6594) => [
+      q(Tutuba),
+      ],
+   q(6595) => [
+      q(Samarokena),
+      ],
+   q(6596) => [
+      q(Northwestern Tamang),
+      ],
+   q(6597) => [
+      q(Tamnim Citak),
+      ],
+   q(6598) => [
+      q(Tai Thanh),
+      ],
+   q(6599) => [
+      q(Taman (Indonesia)),
+      ],
+   q(6600) => [
+      q(Temoq),
+      ],
+   q(6601) => [
+      q(Tai Mene),
+      ],
+   q(6602) => [
+      q(Tumleo),
+      ],
+   q(6603) => [
+      q(Jewish Babylonian Aramaic (ca. 200-1200 CE)),
+      ],
+   q(6604) => [
+      q(Tima),
+      ],
+   q(6605) => [
+      q(Tasmate),
+      ],
+   q(6606) => [
+      q(Iau),
+      ],
+   q(6607) => [
+      q(Tembo (Motembo)),
+      ],
+   q(6608) => [
+      q(Temuan),
+      ],
+   q(6609) => [
+      q(Tami),
+      ],
+   q(6610) => [
+      q(Tamanaku),
+      ],
+   q(6611) => [
+      q(Tacana),
+      ],
+   q(6612) => [
+      q(Western Tunebo),
+      ],
+   q(6613) => [
+      q(Tanimuca-Retuara),
+      ],
+   q(6614) => [
+      q(Angosturas Tunebo),
+      ],
+   q(6615) => [
+      q(Tinoc Kallahan),
+      ],
+   q(6616) => [
+      q(Tobanga),
+      ],
+   q(6617) => [
+      q(Maiani),
+      ],
+   q(6618) => [
+      q(Tandia),
+      ],
+   q(6619) => [
+      q(Kwamera),
+      ],
+   q(6620) => [
+      q(Lenakel),
+      ],
+   q(6621) => [
+      q(Tabla),
+      ],
+   q(6622) => [
+      q(North Tanna),
+      ],
+   q(6623) => [
+      q(Toromono),
+      ],
+   q(6624) => [
+      q(Whitesands),
+      ],
+   q(6625) => [
+      q(Taino),
+      ],
+   q(6626) => [
+      q(Menik),
+      ],
+   q(6627) => [
+      q(Tenis),
+      ],
+   q(6628) => [
+      q(Tontemboan),
+      ],
+   q(6629) => [
+      q(Tay Khang),
+      ],
+   q(6630) => [
+      q(Tangchangya),
+      ],
+   q(6631) => [
+      q(Tonsawang),
+      ],
+   q(6632) => [
+      q(Tanema),
+      ],
+   q(6633) => [
+      q(Tongwe),
+      ],
+   q(6634) => [
+      q(Tonga (Thailand)),
+      ],
+   q(6635) => [
+      q(Toba),
+      ],
+   q(6636) => [
+      q(Coyutla Totonac),
+      ],
+   q(6637) => [
+      q(Toma),
+      ],
+   q(6638) => [
+      q(Tomedes),
+      ],
+   q(6639) => [
+      q(Gizrra),
+      ],
+   q(6640) => [
+      q(Gitonga),
+      ],
+   q(6641) => [
+      q(Tonga (Zambia)),
+      ],
+   q(6642) => [
+      q(Tojolabal),
+      ],
+   q(6643) => [
+      q(Tolowa),
+      ],
+   q(6644) => [
+      q(Tombulu),
+      ],
+   q(6645) => [
+      q(Xicotepec De Juarez Totonac),
+      ],
+   q(6646) => [
+      q(Papantla Totonac),
+      ],
+   q(6647) => [
+      q(Toposa),
+      ],
+   q(6648) => [
+      q(Togbo-Vara Banda),
+      ],
+   q(6649) => [
+      q(Highland Totonac),
+      ],
+   q(6650) => [
+      q(Tho),
+      ],
+   q(6651) => [
+      q(Upper Taromi),
+      ],
+   q(6652) => [
+      q(Jemez),
+      ],
+   q(6653) => [
+      q(Tobian),
+      ],
+   q(6654) => [
+      q(Topoiyo),
+      ],
+   q(6655) => [
+      q(To),
+      ],
+   q(6656) => [
+      q(Taupota),
+      ],
+   q(6657) => [
+      q(Azoyu Me'phaa),
+      q(Azoyu Tlapanec),
+      ],
+   q(6658) => [
+      q(Tippera),
+      ],
+   q(6659) => [
+      q(Tarpia),
+      ],
+   q(6660) => [
+      q(Kula),
+      ],
+   q(6661) => [
+      q(Tapiete),
+      ],
+   q(6662) => [
+      q(Tupinikin),
+      ],
+   q(6663) => [
+      q(Tlacoapa Me'phaa),
+      q(Tlacoapa Tlapanec),
+      ],
+   q(6664) => [
+      q(Tampulma),
+      ],
+   q(6665) => [
+      q(Tupinamba),
+      ],
+   q(6666) => [
+      q(Tai Pao),
+      ],
+   q(6667) => [
+      q(Pisaflores Tepehua),
+      ],
+   q(6668) => [
+      q(Tukpa),
+      ],
+   q(6669) => [
+      q(Tupari),
+      ],
+   q(6670) => [
+      q(Tlachichilco Tepehua),
+      ],
+   q(6671) => [
+      q(Tampuan),
+      ],
+   q(6672) => [
+      q(Tanapag),
+      ],
+   q(6673) => [
+      q(Tupi),
+      ],
+   q(6674) => [
+      q(Acatepec Me'phaa),
+      q(Acatepec Tlapanec),
+      ],
+   q(6675) => [
+      q(Trumai),
+      ],
+   q(6676) => [
+      q(Tinputz),
+      ],
+   q(6677) => [
+      q(Tembe),
+      ],
+   q(6678) => [
+      q(Lehali),
+      ],
+   q(6679) => [
+      q(Turumsa),
+      ],
+   q(6680) => [
+      q(Tenino),
+      ],
+   q(6681) => [
+      q(Toaripi),
+      ],
+   q(6682) => [
+      q(Tomoip),
+      ],
+   q(6683) => [
+      q(Tunni),
+      ],
+   q(6684) => [
+      q(Torona),
+      ],
+   q(6685) => [
+      q(Western Totonac),
+      ],
+   q(6686) => [
+      q(Touo),
+      ],
+   q(6687) => [
+      q(Tonkawa),
+      ],
+   q(6688) => [
+      q(Tirahi),
+      ],
+   q(6689) => [
+      q(Terebu),
+      ],
+   q(6690) => [
+      q(Copala Triqui),
+      ],
+   q(6691) => [
+      q(Turi),
+      ],
+   q(6692) => [
+      q(East Tarangan),
+      ],
+   q(6693) => [
+      q(Trinidadian Creole English),
+      ],
+   q(6694) => [
+      q(Lishan Didan),
+      ],
+   q(6695) => [
+      q(Turaka),
+      ],
+   q(6696) => [
+      q(Trio),
+      ],
+   q(6697) => [
+      q(Toram),
+      ],
+   q(6698) => [
+      q(Traveller Scottish),
+      ],
+   q(6699) => [
+      q(Tregami),
+      ],
+   q(6700) => [
+      q(Trinitario),
+      ],
+   q(6701) => [
+      q(Tarao Naga),
+      ],
+   q(6702) => [
+      q(Kok Borok),
+      ],
+   q(6703) => [
+      q(San Martin Itunyoso Triqui),
+      ],
+   q(6704) => [
+      q(Taushiro),
+      ],
+   q(6705) => [
+      q(Chicahuaxtla Triqui),
+      ],
+   q(6706) => [
+      q(Tunggare),
+      ],
+   q(6707) => [
+      q(Turoyo),
+      q(Surayt),
+      ],
+   q(6708) => [
+      q(Taroko),
+      ],
+   q(6709) => [
+      q(Torwali),
+      ],
+   q(6710) => [
+      q(Tringgus-Sembaan Bidayuh),
+      ],
+   q(6711) => [
+      q(Turung),
+      ],
+   q(6712) => [
+      q(Tora),
+      ],
+   q(6713) => [
+      q(Tsaangi),
+      ],
+   q(6714) => [
+      q(Tsamai),
+      ],
+   q(6715) => [
+      q(Tswa),
+      ],
+   q(6716) => [
+      q(Tsakonian),
+      ],
+   q(6717) => [
+      q(Tunisian Sign Language),
+      ],
+   q(6718) => [
+      q(Tausug),
+      ],
+   q(6719) => [
+      q(Tsuvan),
+      ],
+   q(6720) => [
+      q(Tshangla),
+      ],
+   q(6721) => [
+      q(Tseku),
+      ],
+   q(6722) => [
+      q(Ts'un-Lao),
+      ],
+   q(6723) => [
+      q(Turkish Sign Language),
+      q(Turk Isaret Dili),
+      ],
+   q(6724) => [
+      q(Northern Toussian),
+      ],
+   q(6725) => [
+      q(Thai Sign Language),
+      ],
+   q(6726) => [
+      q(Akei),
+      ],
+   q(6727) => [
+      q(Taiwan Sign Language),
+      ],
+   q(6728) => [
+      q(Tondi Songway Kiini),
+      ],
+   q(6729) => [
+      q(Tsou),
+      ],
+   q(6730) => [
+      q(Tsogo),
+      ],
+   q(6731) => [
+      q(Tsishingini),
+      ],
+   q(6732) => [
+      q(Mubami),
+      ],
+   q(6733) => [
+      q(Tebul Sign Language),
+      ],
+   q(6734) => [
+      q(Purepecha),
+      ],
+   q(6735) => [
+      q(Tutelo),
+      ],
+   q(6736) => [
+      q(Gaa),
+      ],
+   q(6737) => [
+      q(Tektiteko),
+      ],
+   q(6738) => [
+      q(Tauade),
+      ],
+   q(6739) => [
+      q(Bwanabwana),
+      ],
+   q(6740) => [
+      q(Tuotomb),
+      ],
+   q(6741) => [
+      q(Tutong),
+      ],
+   q(6742) => [
+      q(Upper Ta'oih),
+      ],
+   q(6743) => [
+      q(Tobati),
+      ],
+   q(6744) => [
+      q(Tooro),
+      ],
+   q(6745) => [
+      q(Totoro),
+      ],
+   q(6746) => [
+      q(Totela),
+      ],
+   q(6747) => [
+      q(Northern Tutchone),
+      ],
+   q(6748) => [
+      q(Towei),
+      ],
+   q(6749) => [
+      q(Lower Ta'oih),
+      ],
+   q(6750) => [
+      q(Tombelala),
+      ],
+   q(6751) => [
+      q(Tawallammat Tamajaq),
+      ],
+   q(6752) => [
+      q(Tera),
+      ],
+   q(6753) => [
+      q(Northeastern Thai),
+      ],
+   q(6754) => [
+      q(Muslim Tat),
+      ],
+   q(6755) => [
+      q(Torau),
+      ],
+   q(6756) => [
+      q(Titan),
+      ],
+   q(6757) => [
+      q(Long Wat),
+      ],
+   q(6758) => [
+      q(Sikaritai),
+      ],
+   q(6759) => [
+      q(Tsum),
+      ],
+   q(6760) => [
+      q(Wiarumus),
+      ],
+   q(6761) => [
+      q(Tubatulabal),
+      ],
+   q(6762) => [
+      q(Mutu),
+      ],
+   q(6763) => [
+      q(Tuxa),
+      ],
+   q(6764) => [
+      q(Tuyuca),
+      ],
+   q(6765) => [
+      q(Central Tunebo),
+      ],
+   q(6766) => [
+      q(Tunia),
+      ],
+   q(6767) => [
+      q(Taulil),
+      ],
+   q(6768) => [
+      q(Tupuri),
+      ],
+   q(6769) => [
+      q(Tugutil),
+      ],
+   q(6770) => [
+      q(Tula),
+      ],
+   q(6771) => [
+      q(Tunica),
+      ],
+   q(6772) => [
+      q(Tucano),
+      ],
+   q(6773) => [
+      q(Tedaga),
+      ],
+   q(6774) => [
+      q(Tuscarora),
+      ],
+   q(6775) => [
+      q(Tututni),
+      ],
+   q(6776) => [
+      q(Turkana),
+      ],
+   q(6777) => [
+      q(Tuxinawa),
+      ],
+   q(6778) => [
+      q(Tugen),
+      ],
+   q(6779) => [
+      q(Turka),
+      ],
+   q(6780) => [
+      q(Vaghua),
+      ],
+   q(6781) => [
+      q(Tsuvadi),
+      ],
+   q(6782) => [
+      q(Te'un),
+      ],
+   q(6783) => [
+      q(Southeast Ambrym),
+      ],
+   q(6784) => [
+      q(Tela-Masbuar),
+      ],
+   q(6785) => [
+      q(Tavoyan),
+      ],
+   q(6786) => [
+      q(Tidore),
+      ],
+   q(6787) => [
+      q(Taveta),
+      ],
+   q(6788) => [
+      q(Tutsa Naga),
+      ],
+   q(6789) => [
+      q(Tunen),
+      ],
+   q(6790) => [
+      q(Sedoa),
+      ],
+   q(6791) => [
+      q(Timor Pidgin),
+      ],
+   q(6792) => [
+      q(Twana),
+      ],
+   q(6793) => [
+      q(Western Tawbuid),
+      ],
+   q(6794) => [
+      q(Teshenawa),
+      ],
+   q(6795) => [
+      q(Twents),
+      ],
+   q(6796) => [
+      q(Tewa (Indonesia)),
+      ],
+   q(6797) => [
+      q(Northern Tiwa),
+      ],
+   q(6798) => [
+      q(Tereweng),
+      ],
+   q(6799) => [
+      q(Tai Don),
+      ],
+   q(6800) => [
+      q(Tawara),
+      ],
+   q(6801) => [
+      q(Tawang Monpa),
+      ],
+   q(6802) => [
+      q(Twendi),
+      ],
+   q(6803) => [
+      q(Tswapong),
+      ],
+   q(6804) => [
+      q(Ere),
+      ],
+   q(6805) => [
+      q(Tasawaq),
+      ],
+   q(6806) => [
+      q(Southwestern Tarahumara),
+      ],
+   q(6807) => [
+      q(Turiwara),
+      ],
+   q(6808) => [
+      q(Termanu),
+      ],
+   q(6809) => [
+      q(Tuwari),
+      ],
+   q(6810) => [
+      q(Tewe),
+      ],
+   q(6811) => [
+      q(Tawoyan),
+      ],
+   q(6812) => [
+      q(Tombonuo),
+      ],
+   q(6813) => [
+      q(Tokharian B),
+      ],
+   q(6814) => [
+      q(Tsetsaut),
+      ],
+   q(6815) => [
+      q(Totoli),
+      ],
+   q(6816) => [
+      q(Tangut),
+      ],
+   q(6817) => [
+      q(Thracian),
+      ],
+   q(6818) => [
+      q(Ikpeng),
+      ],
+   q(6819) => [
+      q(Tarjumo),
+      ],
+   q(6820) => [
+      q(Tomini),
+      ],
+   q(6821) => [
+      q(West Tarangan),
+      ],
+   q(6822) => [
+      q(Toto),
+      ],
+   q(6823) => [
+      q(Tii),
+      ],
+   q(6824) => [
+      q(Tartessian),
+      ],
+   q(6825) => [
+      q(Tonsea),
+      ],
+   q(6826) => [
+      q(Citak),
+      ],
+   q(6827) => [
+      q(Kayapo),
+      ],
+   q(6828) => [
+      q(Tatana),
+      ],
+   q(6829) => [
+      q(Tanosy Malagasy),
+      ],
+   q(6830) => [
+      q(Tauya),
+      ],
+   q(6831) => [
+      q(Kyanga),
+      ],
+   q(6832) => [
+      q(O'du),
+      ],
+   q(6833) => [
+      q(Teke-Tsaayi),
+      ],
+   q(6834) => [
+      q(Tai Do),
+      ],
+   q(6835) => [
+      q(Thu Lao),
+      ],
+   q(6836) => [
+      q(Kombai),
+      ],
+   q(6837) => [
+      q(Thaypan),
+      ],
+   q(6838) => [
+      q(Tai Daeng),
+      ],
+   q(6839) => [
+      q(Tay Sa Pa),
+      ],
+   q(6840) => [
+      q(Tay Tac),
+      ],
+   q(6841) => [
+      q(Kua),
+      ],
+   q(6842) => [
+      q(Teke-Tyee),
+      ],
+   q(6843) => [
+      q(Tay),
+      ],
+   q(6844) => [
+      q(Tanzanian Sign Language),
+      ],
+   q(6845) => [
+      q(Tzeltal),
+      ],
+   q(6846) => [
+      q(Tz'utujil),
+      ],
+   q(6847) => [
+      q(Talossan),
+      ],
+   q(6848) => [
+      q(Central Atlas Tamazight),
+      ],
+   q(6849) => [
+      q(Tugun),
+      ],
+   q(6850) => [
+      q(Tzotzil),
+      ],
+   q(6851) => [
+      q(Tabriak),
+      ],
+   q(6852) => [
+      q(Uamue),
+      ],
+   q(6853) => [
+      q(Kuan),
+      ],
+   q(6854) => [
+      q(Tairuma),
+      ],
+   q(6855) => [
+      q(Ubang),
+      ],
+   q(6856) => [
+      q(Ubi),
+      ],
+   q(6857) => [
+      q(Buhi'non Bikol),
+      ],
+   q(6858) => [
+      q(Ubir),
+      ],
+   q(6859) => [
+      q(Umbu-Ungu),
+      ],
+   q(6860) => [
+      q(Ubykh),
+      ],
+   q(6861) => [
+      q(Uda),
+      ],
+   q(6862) => [
+      q(Udihe),
+      ],
+   q(6863) => [
+      q(Muduga),
+      ],
+   q(6864) => [
+      q(Udi),
+      ],
+   q(6865) => [
+      q(Ujir),
+      ],
+   q(6866) => [
+      q(Wuzlam),
+      ],
+   q(6867) => [
+      q(Uduk),
+      ],
+   q(6868) => [
+      q(Kioko),
+      ],
+   q(6869) => [
+      q(Ufim),
+      ],
+   q(6870) => [
+      q(Kuku-Ugbanh),
+      ],
+   q(6871) => [
+      q(Ughele),
+      ],
+   q(6872) => [
+      q(Ugandan Sign Language),
+      ],
+   q(6873) => [
+      q(Ugong),
+      ],
+   q(6874) => [
+      q(Uruguayan Sign Language),
+      ],
+   q(6875) => [
+      q(Uhami),
+      ],
+   q(6876) => [
+      q(Damal),
+      ],
+   q(6877) => [
+      q(Uisai),
+      ],
+   q(6878) => [
+      q(Iyive),
+      ],
+   q(6879) => [
+      q(Tanjijili),
+      ],
+   q(6880) => [
+      q(Kaburi),
+      ],
+   q(6881) => [
+      q(Ukuriguma),
+      ],
+   q(6882) => [
+      q(Ukhwejo),
+      ],
+   q(6883) => [
+      q(Ukrainian Sign Language),
+      ],
+   q(6884) => [
+      q(Ukpe-Bayobiri),
+      ],
+   q(6885) => [
+      q(Ukwa),
+      ],
+   q(6886) => [
+      q(Urubu-Kaapor Sign Language),
+      q(Kaapor Sign Language),
+      ],
+   q(6887) => [
+      q(Ukue),
+      ],
+   q(6888) => [
+      q(Ukwuani-Aboh-Ndoni),
+      ],
+   q(6889) => [
+      q(Kuuk-Yak),
+      ],
+   q(6890) => [
+      q(Fungwa),
+      ],
+   q(6891) => [
+      q(Ulukwumi),
+      ],
+   q(6892) => [
+      q(Ulch),
+      ],
+   q(6893) => [
+      q(Lule),
+      ],
+   q(6894) => [
+      q(Usku),
+      q(Afra),
+      ],
+   q(6895) => [
+      q(Ulithian),
+      ],
+   q(6896) => [
+      q(Meriam),
+      ],
+   q(6897) => [
+      q(Ullatan),
+      ],
+   q(6898) => [
+      q(Ulumanda'),
+      ],
+   q(6899) => [
+      q(Unserdeutsch),
+      ],
+   q(6900) => [
+      q(Uma' Lung),
+      ],
+   q(6901) => [
+      q(Ulwa),
+      ],
+   q(6902) => [
+      q(Umatilla),
+      ],
+   q(6903) => [
+      q(Marrucinian),
+      ],
+   q(6904) => [
+      q(Umbindhamu),
+      ],
+   q(6905) => [
+      q(Umbuygamu),
+      ],
+   q(6906) => [
+      q(Ukit),
+      ],
+   q(6907) => [
+      q(Umon),
+      ],
+   q(6908) => [
+      q(Makyan Naga),
+      ],
+   q(6909) => [
+      q(Umotina),
+      ],
+   q(6910) => [
+      q(Umpila),
+      ],
+   q(6911) => [
+      q(Umbugarla),
+      ],
+   q(6912) => [
+      q(Pendau),
+      ],
+   q(6913) => [
+      q(Munsee),
+      ],
+   q(6914) => [
+      q(North Watut),
+      ],
+   q(6915) => [
+      q(Uneme),
+      ],
+   q(6916) => [
+      q(Ngarinyin),
+      ],
+   q(6917) => [
+      q(Enawene-Nawe),
+      ],
+   q(6918) => [
+      q(Unami),
+      ],
+   q(6919) => [
+      q(Kurnai),
+      ],
+   q(6920) => [
+      q(Mundari),
+      ],
+   q(6921) => [
+      q(Unubahe),
+      ],
+   q(6922) => [
+      q(Munda),
+      ],
+   q(6923) => [
+      q(Unde Kaili),
+      ],
+   q(6924) => [
+      q(Umeda),
+      ],
+   q(6925) => [
+      q(Uripiv-Wala-Rano-Atchin),
+      ],
+   q(6926) => [
+      q(Urarina),
+      ],
+   q(6927) => [
+      q(Urubu-Kaapor),
+      q(Kaapor),
+      ],
+   q(6928) => [
+      q(Urningangg),
+      ],
+   q(6929) => [
+      q(Uru),
+      ],
+   q(6930) => [
+      q(Uradhi),
+      ],
+   q(6931) => [
+      q(Urigina),
+      ],
+   q(6932) => [
+      q(Urhobo),
+      ],
+   q(6933) => [
+      q(Urim),
+      ],
+   q(6934) => [
+      q(Urak Lawoi'),
+      ],
+   q(6935) => [
+      q(Urali),
+      ],
+   q(6936) => [
+      q(Urapmin),
+      ],
+   q(6937) => [
+      q(Uruangnirin),
+      ],
+   q(6938) => [
+      q(Ura (Papua New Guinea)),
+      ],
+   q(6939) => [
+      q(Uru-Pa-In),
+      ],
+   q(6940) => [
+      q(Lehalurup),
+      q(Loyop),
+      ],
+   q(6941) => [
+      q(Urat),
+      ],
+   q(6942) => [
+      q(Urumi),
+      ],
+   q(6943) => [
+      q(Uruava),
+      ],
+   q(6944) => [
+      q(Sop),
+      ],
+   q(6945) => [
+      q(Urimo),
+      ],
+   q(6946) => [
+      q(Orya),
+      ],
+   q(6947) => [
+      q(Uru-Eu-Wau-Wau),
+      ],
+   q(6948) => [
+      q(Usarufa),
+      ],
+   q(6949) => [
+      q(Ushojo),
+      ],
+   q(6950) => [
+      q(Usui),
+      ],
+   q(6951) => [
+      q(Usaghade),
+      ],
+   q(6952) => [
+      q(Uspanteco),
+      ],
+   q(6953) => [
+      q(Uya),
+      ],
+   q(6954) => [
+      q(Otank),
+      ],
+   q(6955) => [
+      q(Ute-Southern Paiute),
+      ],
+   q(6956) => [
+      q(Amba (Solomon Islands)),
+      ],
+   q(6957) => [
+      q(Etulo),
+      ],
+   q(6958) => [
+      q(Utu),
+      ],
+   q(6959) => [
+      q(Urum),
+      ],
+   q(6960) => [
+      q(Kulon-Pazeh),
+      ],
+   q(6961) => [
+      q(Ura (Vanuatu)),
+      ],
+   q(6962) => [
+      q(U),
+      ],
+   q(6963) => [
+      q(West Uvean),
+      q(Fagauvea),
+      ],
+   q(6964) => [
+      q(Uri),
+      ],
+   q(6965) => [
+      q(Lote),
+      ],
+   q(6966) => [
+      q(Kuku-Uwanh),
+      ],
+   q(6967) => [
+      q(Doko-Uyanga),
+      ],
+   q(6968) => [
+      q(Northern Uzbek),
+      ],
+   q(6969) => [
+      q(Southern Uzbek),
+      ],
+   q(6970) => [
+      q(Vaagri Booli),
+      ],
+   q(6971) => [
+      q(Vale),
+      ],
+   q(6972) => [
+      q(Vafsi),
+      ],
+   q(6973) => [
+      q(Vagla),
+      ],
+   q(6974) => [
+      q(Varhadi-Nagpuri),
+      ],
+   q(6975) => [
+      q(Sekele),
+      q(Northwestern Kung),
+      q(Northwestern Kung),
+      q(Vasekele),
+      ],
+   q(6976) => [
+      q(Vehes),
+      ],
+   q(6977) => [
+      q(Vanimo),
+      ],
+   q(6978) => [
+      q(Valman),
+      ],
+   q(6979) => [
+      q(Vao),
+      ],
+   q(6980) => [
+      q(Vaiphei),
+      ],
+   q(6981) => [
+      q(Huarijio),
+      ],
+   q(6982) => [
+      q(Vasavi),
+      ],
+   q(6983) => [
+      q(Vanuma),
+      ],
+   q(6984) => [
+      q(Varli),
+      ],
+   q(6985) => [
+      q(Wayu),
+      ],
+   q(6986) => [
+      q(Southeast Babar),
+      ],
+   q(6987) => [
+      q(Southwestern Bontok),
+      ],
+   q(6988) => [
+      q(Venetian),
+      ],
+   q(6989) => [
+      q(Veddah),
+      ],
+   q(6990) => [
+      q(Veluws),
+      ],
+   q(6991) => [
+      q(Vemgo-Mabas),
+      ],
+   q(6992) => [
+      q(Ventureno),
+      ],
+   q(6993) => [
+      q(Veps),
+      ],
+   q(6994) => [
+      q(Mom Jango),
+      ],
+   q(6995) => [
+      q(Vaghri),
+      ],
+   q(6996) => [
+      q(Vlaamse Gebarentaal),
+      q(Flemish Sign Language),
+      ],
+   q(6997) => [
+      q(Virgin Islands Creole English),
+      ],
+   q(6998) => [
+      q(Vidunda),
+      ],
+   q(6999) => [
+      q(Vili),
+      ],
+   q(7000) => [
+      q(Viemo),
+      ],
+   q(7001) => [
+      q(Vilela),
+      ],
+   q(7002) => [
+      q(Vinza),
+      ],
+   q(7003) => [
+      q(Vishavan),
+      ],
+   q(7004) => [
+      q(Viti),
+      ],
+   q(7005) => [
+      q(Iduna),
+      ],
+   q(7006) => [
+      q(Kariyarra),
+      ],
+   q(7007) => [
+      q(Ija-Zuba),
+      ],
+   q(7008) => [
+      q(Kujarge),
+      ],
+   q(7009) => [
+      q(Kaur),
+      ],
+   q(7010) => [
+      q(Kulisusu),
+      ],
+   q(7011) => [
+      q(Kamakan),
+      ],
+   q(7012) => [
+      q(Kodeoha),
+      ],
+   q(7013) => [
+      q(Korlai Creole Portuguese),
+      ],
+   q(7014) => [
+      q(Tenggarong Kutai Malay),
+      ],
+   q(7015) => [
+      q(Kurrama),
+      ],
+   q(7016) => [
+      q(Valpei),
+      ],
+   q(7017) => [
+      q(Vlaams),
+      ],
+   q(7018) => [
+      q(Martuyhunira),
+      ],
+   q(7019) => [
+      q(Barbaram),
+      ],
+   q(7020) => [
+      q(Juxtlahuaca Mixtec),
+      ],
+   q(7021) => [
+      q(Mudu Koraga),
+      ],
+   q(7022) => [
+      q(East Masela),
+      ],
+   q(7023) => [
+      q(Mainfrankisch),
+      ],
+   q(7024) => [
+      q(Lungalunga),
+      ],
+   q(7025) => [
+      q(Maraghei),
+      ],
+   q(7026) => [
+      q(Miwa),
+      ],
+   q(7027) => [
+      q(Ixtayutla Mixtec),
+      ],
+   q(7028) => [
+      q(Makhuwa-Shirima),
+      ],
+   q(7029) => [
+      q(Malgana),
+      ],
+   q(7030) => [
+      q(Mitlatongo Mixtec),
+      ],
+   q(7031) => [
+      q(Soyaltepec Mazatec),
+      ],
+   q(7032) => [
+      q(Soyaltepec Mixtec),
+      ],
+   q(7033) => [
+      q(Marenje),
+      ],
+   q(7034) => [
+      q(Moksela),
+      ],
+   q(7035) => [
+      q(Muluridyi),
+      ],
+   q(7036) => [
+      q(Valley Maidu),
+      ],
+   q(7037) => [
+      q(Makhuwa),
+      ],
+   q(7038) => [
+      q(Tamazola Mixtec),
+      ],
+   q(7039) => [
+      q(Ayautla Mazatec),
+      ],
+   q(7040) => [
+      q(Mazatlan Mazatec),
+      ],
+   q(7041) => [
+      q(Vano),
+      q(Lovono),
+      ],
+   q(7042) => [
+      q(Vinmavis),
+      q(Neve'ei),
+      ],
+   q(7043) => [
+      q(Vunapu),
+      ],
+   q(7044) => [
+      q(Voro),
+      ],
+   q(7045) => [
+      q(Vera'a),
+      ],
+   q(7046) => [
+      q(Varisi),
+      ],
+   q(7047) => [
+      q(Burmbar),
+      q(Banam Bay),
+      ],
+   q(7048) => [
+      q(Moldova Sign Language),
+      ],
+   q(7049) => [
+      q(Venezuelan Sign Language),
+      ],
+   q(7050) => [
+      q(Valencian Sign Language),
+      q(Llengua de signes valenciana),
+      ],
+   q(7051) => [
+      q(Vitou),
+      ],
+   q(7052) => [
+      q(Vumbu),
+      ],
+   q(7053) => [
+      q(Vunjo),
+      ],
+   q(7054) => [
+      q(Vute),
+      ],
+   q(7055) => [
+      q(Awa (China)),
+      ],
+   q(7056) => [
+      q(Walla Walla),
+      ],
+   q(7057) => [
+      q(Wab),
+      ],
+   q(7058) => [
+      q(Wasco-Wishram),
+      ],
+   q(7059) => [
+      q(Wandamen),
+      ],
+   q(7060) => [
+      q(Walser),
+      ],
+   q(7061) => [
+      q(Wakona),
+      ],
+   q(7062) => [
+      q(Wa'ema),
+      ],
+   q(7063) => [
+      q(Watubela),
+      ],
+   q(7064) => [
+      q(Wares),
+      ],
+   q(7065) => [
+      q(Waffa),
+      ],
+   q(7066) => [
+      q(Wampanoag),
+      ],
+   q(7067) => [
+      q(Wan),
+      ],
+   q(7068) => [
+      q(Wappo),
+      ],
+   q(7069) => [
+      q(Wapishana),
+      ],
+   q(7070) => [
+      q(Wageman),
+      ],
+   q(7071) => [
+      q(Kaninuwa),
+      ],
+   q(7072) => [
+      q(Waura),
+      ],
+   q(7073) => [
+      q(Waka),
+      ],
+   q(7074) => [
+      q(Waiwai),
+      ],
+   q(7075) => [
+      q(Watam),
+      q(Marangis),
+      ],
+   q(7076) => [
+      q(Wayana),
+      ],
+   q(7077) => [
+      q(Wampur),
+      ],
+   q(7078) => [
+      q(Warao),
+      ],
+   q(7079) => [
+      q(Wabo),
+      ],
+   q(7080) => [
+      q(Waritai),
+      ],
+   q(7081) => [
+      q(Wanda),
+      ],
+   q(7082) => [
+      q(Vwanji),
+      ],
+   q(7083) => [
+      q(Alagwa),
+      ],
+   q(7084) => [
+      q(Waigali),
+      ],
+   q(7085) => [
+      q(Wakhi),
+      ],
+   q(7086) => [
+      q(Wa),
+      ],
+   q(7087) => [
+      q(Warlpiri),
+      ],
+   q(7088) => [
+      q(Waddar),
+      ],
+   q(7089) => [
+      q(Wagdi),
+      ],
+   q(7090) => [
+      q(Wanman),
+      ],
+   q(7091) => [
+      q(Wajarri),
+      ],
+   q(7092) => [
+      q(Woi),
+      ],
+   q(7093) => [
+      q(Yanomami),
+      ],
+   q(7094) => [
+      q(Waci Gbe),
+      ],
+   q(7095) => [
+      q(Wandji),
+      ],
+   q(7096) => [
+      q(Wadaginam),
+      ],
+   q(7097) => [
+      q(Wadjiginy),
+      ],
+   q(7098) => [
+      q(Wadikali),
+      ],
+   q(7099) => [
+      q(Wadjigu),
+      ],
+   q(7100) => [
+      q(Wadjabangayi),
+      ],
+   q(7101) => [
+      q(Wewaw),
+      ],
+   q(7102) => [
+      q(We Western),
+      ],
+   q(7103) => [
+      q(Wedau),
+      ],
+   q(7104) => [
+      q(Wergaia),
+      ],
+   q(7105) => [
+      q(Weh),
+      ],
+   q(7106) => [
+      q(Kiunum),
+      ],
+   q(7107) => [
+      q(Weme Gbe),
+      ],
+   q(7108) => [
+      q(Wemale),
+      ],
+   q(7109) => [
+      q(Westphalien),
+      ],
+   q(7110) => [
+      q(Weri),
+      ],
+   q(7111) => [
+      q(Cameroon Pidgin),
+      ],
+   q(7112) => [
+      q(Perai),
+      ],
+   q(7113) => [
+      q(Rawngtu Chin),
+      ],
+   q(7114) => [
+      q(Wejewa),
+      ],
+   q(7115) => [
+      q(Yafi),
+      q(Zorop),
+      ],
+   q(7116) => [
+      q(Wagaya),
+      ],
+   q(7117) => [
+      q(Wagawaga),
+      ],
+   q(7118) => [
+      q(Wangganguru),
+      ],
+   q(7119) => [
+      q(Wahgi),
+      ],
+   q(7120) => [
+      q(Waigeo),
+      ],
+   q(7121) => [
+      q(Wirangu),
+      ],
+   q(7122) => [
+      q(Warrgamay),
+      ],
+   q(7123) => [
+      q(Manusela),
+      ],
+   q(7124) => [
+      q(North Wahgi),
+      ],
+   q(7125) => [
+      q(Wahau Kenyah),
+      ],
+   q(7126) => [
+      q(Wahau Kayan),
+      ],
+   q(7127) => [
+      q(Southern Toussian),
+      ],
+   q(7128) => [
+      q(Wichita),
+      ],
+   q(7129) => [
+      q(Wik-Epa),
+      ],
+   q(7130) => [
+      q(Wik-Keyangan),
+      ],
+   q(7131) => [
+      q(Wik-Ngathana),
+      ],
+   q(7132) => [
+      q(Wik-Me'anha),
+      ],
+   q(7133) => [
+      q(Minidien),
+      ],
+   q(7134) => [
+      q(Wik-Iiyanh),
+      ],
+   q(7135) => [
+      q(Wikalkan),
+      ],
+   q(7136) => [
+      q(Wilawila),
+      ],
+   q(7137) => [
+      q(Wik-Mungkan),
+      ],
+   q(7138) => [
+      q(Ho-Chunk),
+      ],
+   q(7139) => [
+      q(Wirafed),
+      ],
+   q(7140) => [
+      q(Wiru),
+      ],
+   q(7141) => [
+      q(Vitu),
+      ],
+   q(7142) => [
+      q(Wiyot),
+      ],
+   q(7143) => [
+      q(Waja),
+      ],
+   q(7144) => [
+      q(Warji),
+      ],
+   q(7145) => [
+      q(Kw'adza),
+      ],
+   q(7146) => [
+      q(Kumbaran),
+      ],
+   q(7147) => [
+      q(Wakde),
+      q(Mo),
+      ],
+   q(7148) => [
+      q(Kalanadi),
+      ],
+   q(7149) => [
+      q(Kunduvadi),
+      ],
+   q(7150) => [
+      q(Wakawaka),
+      ],
+   q(7151) => [
+      q(Wangkayutyuru),
+      ],
+   q(7152) => [
+      q(Walio),
+      ],
+   q(7153) => [
+      q(Mwali Comorian),
+      ],
+   q(7154) => [
+      q(Wolane),
+      ],
+   q(7155) => [
+      q(Kunbarlang),
+      ],
+   q(7156) => [
+      q(Waioli),
+      ],
+   q(7157) => [
+      q(Wailaki),
+      ],
+   q(7158) => [
+      q(Wali (Sudan)),
+      ],
+   q(7159) => [
+      q(Middle Welsh),
+      ],
+   q(7160) => [
+      q(Wolio),
+      ],
+   q(7161) => [
+      q(Wailapa),
+      ],
+   q(7162) => [
+      q(Wallisian),
+      ],
+   q(7163) => [
+      q(Wuliwuli),
+      ],
+   q(7164) => [
+      q(Wichi Lhamtes Vejoz),
+      ],
+   q(7165) => [
+      q(Walak),
+      ],
+   q(7166) => [
+      q(Wali (Ghana)),
+      ],
+   q(7167) => [
+      q(Waling),
+      ],
+   q(7168) => [
+      q(Mawa (Nigeria)),
+      ],
+   q(7169) => [
+      q(Wambaya),
+      ],
+   q(7170) => [
+      q(Wamas),
+      ],
+   q(7171) => [
+      q(Mamainde),
+      ],
+   q(7172) => [
+      q(Wambule),
+      ],
+   q(7173) => [
+      q(Waima'a),
+      ],
+   q(7174) => [
+      q(Wamin),
+      ],
+   q(7175) => [
+      q(Maiwa (Indonesia)),
+      ],
+   q(7176) => [
+      q(Waamwang),
+      ],
+   q(7177) => [
+      q(Wom (Papua New Guinea)),
+      ],
+   q(7178) => [
+      q(Wambon),
+      ],
+   q(7179) => [
+      q(Walmajarri),
+      ],
+   q(7180) => [
+      q(Mwani),
+      ],
+   q(7181) => [
+      q(Womo),
+      ],
+   q(7182) => [
+      q(Wanambre),
+      ],
+   q(7183) => [
+      q(Wantoat),
+      ],
+   q(7184) => [
+      q(Wandarang),
+      ],
+   q(7185) => [
+      q(Waneci),
+      ],
+   q(7186) => [
+      q(Wanggom),
+      ],
+   q(7187) => [
+      q(Ndzwani Comorian),
+      ],
+   q(7188) => [
+      q(Wanukaka),
+      ],
+   q(7189) => [
+      q(Wanggamala),
+      ],
+   q(7190) => [
+      q(Wunumara),
+      ],
+   q(7191) => [
+      q(Wano),
+      ],
+   q(7192) => [
+      q(Wanap),
+      ],
+   q(7193) => [
+      q(Usan),
+      ],
+   q(7194) => [
+      q(Wintu),
+      ],
+   q(7195) => [
+      q(Wanyi),
+      ],
+   q(7196) => [
+      q(Tyaraity),
+      ],
+   q(7197) => [
+      q(We Northern),
+      ],
+   q(7198) => [
+      q(Wogeo),
+      ],
+   q(7199) => [
+      q(Wolani),
+      ],
+   q(7200) => [
+      q(Woleaian),
+      ],
+   q(7201) => [
+      q(Gambian Wolof),
+      ],
+   q(7202) => [
+      q(Wogamusin),
+      ],
+   q(7203) => [
+      q(Kamang),
+      ],
+   q(7204) => [
+      q(Longto),
+      ],
+   q(7205) => [
+      q(Wom (Nigeria)),
+      ],
+   q(7206) => [
+      q(Wongo),
+      ],
+   q(7207) => [
+      q(Manombai),
+      ],
+   q(7208) => [
+      q(Woria),
+      ],
+   q(7209) => [
+      q(Hanga Hundi),
+      ],
+   q(7210) => [
+      q(Wawonii),
+      ],
+   q(7211) => [
+      q(Weyto),
+      ],
+   q(7212) => [
+      q(Maco),
+      ],
+   q(7213) => [
+      q(Warapu),
+      ],
+   q(7214) => [
+      q(Warluwara),
+      ],
+   q(7215) => [
+      q(Warduji),
+      ],
+   q(7216) => [
+      q(Warungu),
+      ],
+   q(7217) => [
+      q(Wiradhuri),
+      ],
+   q(7218) => [
+      q(Wariyangga),
+      ],
+   q(7219) => [
+      q(Garrwa),
+      ],
+   q(7220) => [
+      q(Warlmanpa),
+      ],
+   q(7221) => [
+      q(Warumungu),
+      ],
+   q(7222) => [
+      q(Warnang),
+      ],
+   q(7223) => [
+      q(Worrorra),
+      ],
+   q(7224) => [
+      q(Waropen),
+      ],
+   q(7225) => [
+      q(Wardaman),
+      ],
+   q(7226) => [
+      q(Waris),
+      ],
+   q(7227) => [
+      q(Waru),
+      ],
+   q(7228) => [
+      q(Waruna),
+      ],
+   q(7229) => [
+      q(Gugu Warra),
+      ],
+   q(7230) => [
+      q(Wae Rana),
+      ],
+   q(7231) => [
+      q(Merwari),
+      ],
+   q(7232) => [
+      q(Waray (Australia)),
+      ],
+   q(7233) => [
+      q(Warembori),
+      ],
+   q(7234) => [
+      q(Wusi),
+      ],
+   q(7235) => [
+      q(Waskia),
+      ],
+   q(7236) => [
+      q(Owenia),
+      ],
+   q(7237) => [
+      q(Wasa),
+      ],
+   q(7238) => [
+      q(Wasu),
+      ],
+   q(7239) => [
+      q(Wotapuri-Katarqalai),
+      ],
+   q(7240) => [
+      q(Watiwa),
+      ],
+   q(7241) => [
+      q(Wathawurrung),
+      ],
+   q(7242) => [
+      q(Berta),
+      ],
+   q(7243) => [
+      q(Watakataui),
+      ],
+   q(7244) => [
+      q(Mewati),
+      ],
+   q(7245) => [
+      q(Wotu),
+      ],
+   q(7246) => [
+      q(Wikngenchera),
+      ],
+   q(7247) => [
+      q(Wunambal),
+      ],
+   q(7248) => [
+      q(Wudu),
+      ],
+   q(7249) => [
+      q(Wutunhua),
+      ],
+   q(7250) => [
+      q(Silimo),
+      ],
+   q(7251) => [
+      q(Wumbvu),
+      ],
+   q(7252) => [
+      q(Bungu),
+      ],
+   q(7253) => [
+      q(Wurrugu),
+      ],
+   q(7254) => [
+      q(Wutung),
+      ],
+   q(7255) => [
+      q(Wu Chinese),
+      ],
+   q(7256) => [
+      q(Wuvulu-Aua),
+      ],
+   q(7257) => [
+      q(Wulna),
+      ],
+   q(7258) => [
+      q(Wauyai),
+      ],
+   q(7259) => [
+      q(Waama),
+      ],
+   q(7260) => [
+      q(Wakabunga),
+      ],
+   q(7261) => [
+      q(Wetamut),
+      q(Dorig),
+      ],
+   q(7262) => [
+      q(Warrwa),
+      ],
+   q(7263) => [
+      q(Wawa),
+      ],
+   q(7264) => [
+      q(Waxianghua),
+      ],
+   q(7265) => [
+      q(Wardandi),
+      ],
+   q(7266) => [
+      q(Wyandot),
+      ],
+   q(7267) => [
+      q(Wangaaybuwan-Ngiyambaa),
+      ],
+   q(7268) => [
+      q(Woiwurrung),
+      ],
+   q(7269) => [
+      q(Wymysorys),
+      ],
+   q(7270) => [
+      q(Wayoro),
+      ],
+   q(7271) => [
+      q(Western Fijian),
+      ],
+   q(7272) => [
+      q(Andalusian Arabic),
+      ],
+   q(7273) => [
+      q(Sambe),
+      ],
+   q(7274) => [
+      q(Kachari),
+      ],
+   q(7275) => [
+      q(Adai),
+      ],
+   q(7276) => [
+      q(Aequian),
+      ],
+   q(7277) => [
+      q(Aghwan),
+      ],
+   q(7278) => [
+      q(Kaimbe),
+      ],
+   q(7279) => [
+      q(Ararandewara),
+      ],
+   q(7280) => [
+      q(/Xam),
+      q(Xam),
+      ],
+   q(7281) => [
+      q(Xamtanga),
+      ],
+   q(7282) => [
+      q(Khao),
+      ],
+   q(7283) => [
+      q(Apalachee),
+      ],
+   q(7284) => [
+      q(Aquitanian),
+      ],
+   q(7285) => [
+      q(Karami),
+      ],
+   q(7286) => [
+      q(Kamas),
+      ],
+   q(7287) => [
+      q(Katawixi),
+      ],
+   q(7288) => [
+      q(Kauwera),
+      ],
+   q(7289) => [
+      q(Xavante),
+      ],
+   q(7290) => [
+      q(Kawaiisu),
+      ],
+   q(7291) => [
+      q(Kayan Mahakam),
+      ],
+   q(7292) => [
+      q(Kamba (Brazil)),
+      ],
+   q(7293) => [
+      q(Lower Burdekin),
+      ],
+   q(7294) => [
+      q(Bactrian),
+      ],
+   q(7295) => [
+      q(Bindal),
+      ],
+   q(7296) => [
+      q(Bigambal),
+      ],
+   q(7297) => [
+      q(Bunganditj),
+      ],
+   q(7298) => [
+      q(Kombio),
+      ],
+   q(7299) => [
+      q(Birrpayi),
+      ],
+   q(7300) => [
+      q(Middle Breton),
+      ],
+   q(7301) => [
+      q(Kenaboi),
+      ],
+   q(7302) => [
+      q(Bolgarian),
+      ],
+   q(7303) => [
+      q(Bibbulman),
+      ],
+   q(7304) => [
+      q(Kambera),
+      ],
+   q(7305) => [
+      q(Kambiwa),
+      ],
+   q(7306) => [
+      q(Kabixi),
+      ],
+   q(7307) => [
+      q(Batyala),
+      ],
+   q(7308) => [
+      q(Cumbric),
+      ],
+   q(7309) => [
+      q(Camunic),
+      ],
+   q(7310) => [
+      q(Celtiberian),
+      ],
+   q(7311) => [
+      q(Cisalpine Gaulish),
+      ],
+   q(7312) => [
+      q(Chemakum),
+      q(Chimakum),
+      ],
+   q(7313) => [
+      q(Classical Armenian),
+      ],
+   q(7314) => [
+      q(Comecrudo),
+      ],
+   q(7315) => [
+      q(Cotoname),
+      ],
+   q(7316) => [
+      q(Chorasmian),
+      ],
+   q(7317) => [
+      q(Carian),
+      ],
+   q(7318) => [
+      q(Classical Tibetan),
+      ],
+   q(7319) => [
+      q(Curonian),
+      ],
+   q(7320) => [
+      q(Chuvantsy),
+      ],
+   q(7321) => [
+      q(Coahuilteco),
+      ],
+   q(7322) => [
+      q(Cayuse),
+      ],
+   q(7323) => [
+      q(Darkinyung),
+      ],
+   q(7324) => [
+      q(Dacian),
+      ],
+   q(7325) => [
+      q(Dharuk),
+      ],
+   q(7326) => [
+      q(Edomite),
+      ],
+   q(7327) => [
+      q(Malayic Dayak),
+      ],
+   q(7328) => [
+      q(Eblan),
+      ],
+   q(7329) => [
+      q(Hdi),
+      ],
+   q(7330) => [
+      q(//Xegwi),
+      q(Xegwi),
+      ],
+   q(7331) => [
+      q(Kelo),
+      ],
+   q(7332) => [
+      q(Kembayan),
+      ],
+   q(7333) => [
+      q(Epi-Olmec),
+      ],
+   q(7334) => [
+      q(Xerente),
+      ],
+   q(7335) => [
+      q(Kesawai),
+      ],
+   q(7336) => [
+      q(Xeta),
+      ],
+   q(7337) => [
+      q(Keoru-Ahia),
+      ],
+   q(7338) => [
+      q(Faliscan),
+      ],
+   q(7339) => [
+      q(Galatian),
+      ],
+   q(7340) => [
+      q(Gbin),
+      ],
+   q(7341) => [
+      q(Gudang),
+      ],
+   q(7342) => [
+      q(Gabrielino-Fernandeno),
+      ],
+   q(7343) => [
+      q(Goreng),
+      ],
+   q(7344) => [
+      q(Garingbal),
+      ],
+   q(7345) => [
+      q(Galindan),
+      ],
+   q(7346) => [
+      q(Dharumbal),
+      q(Guwinmal),
+      ],
+   q(7347) => [
+      q(Garza),
+      ],
+   q(7348) => [
+      q(Unggumi),
+      ],
+   q(7349) => [
+      q(Guwa),
+      ],
+   q(7350) => [
+      q(Harami),
+      ],
+   q(7351) => [
+      q(Hunnic),
+      ],
+   q(7352) => [
+      q(Hadrami),
+      ],
+   q(7353) => [
+      q(Khetrani),
+      ],
+   q(7354) => [
+      q(Hernican),
+      ],
+   q(7355) => [
+      q(Hattic),
+      ],
+   q(7356) => [
+      q(Hurrian),
+      ],
+   q(7357) => [
+      q(Khua),
+      ],
+   q(7358) => [
+      q(Iberian),
+      ],
+   q(7359) => [
+      q(Xiri),
+      ],
+   q(7360) => [
+      q(Illyrian),
+      ],
+   q(7361) => [
+      q(Xinca),
+      ],
+   q(7362) => [
+      q(Xipinawa),
+      ],
+   q(7363) => [
+      q(Xiriana),
+      ],
+   q(7364) => [
+      q(Kisan),
+      ],
+   q(7365) => [
+      q(Indus Valley Language),
+      ],
+   q(7366) => [
+      q(Xipaya),
+      ],
+   q(7367) => [
+      q(Minjungbal),
+      ],
+   q(7368) => [
+      q(Jaitmatang),
+      ],
+   q(7369) => [
+      q(Kalkoti),
+      ],
+   q(7370) => [
+      q(Northern Nago),
+      ],
+   q(7371) => [
+      q(Kho'ini),
+      ],
+   q(7372) => [
+      q(Mendalam Kayan),
+      ],
+   q(7373) => [
+      q(Kereho),
+      ],
+   q(7374) => [
+      q(Khengkha),
+      ],
+   q(7375) => [
+      q(Kagoro),
+      ],
+   q(7376) => [
+      q(Karahawyana),
+      ],
+   q(7377) => [
+      q(Kenyan Sign Language),
+      ],
+   q(7378) => [
+      q(Kajali),
+      ],
+   q(7379) => [
+      q(Kaco'),
+      ],
+   q(7380) => [
+      q(Mainstream Kenyah),
+      ],
+   q(7381) => [
+      q(Kayan River Kayan),
+      ],
+   q(7382) => [
+      q(Kiorr),
+      ],
+   q(7383) => [
+      q(Kabatei),
+      ],
+   q(7384) => [
+      q(Koroni),
+      ],
+   q(7385) => [
+      q(Xakriaba),
+      ],
+   q(7386) => [
+      q(Kumbewaha),
+      ],
+   q(7387) => [
+      q(Kantosi),
+      ],
+   q(7388) => [
+      q(Kaamba),
+      ],
+   q(7389) => [
+      q(Kgalagadi),
+      ],
+   q(7390) => [
+      q(Kembra),
+      ],
+   q(7391) => [
+      q(Karore),
+      ],
+   q(7392) => [
+      q(Uma' Lasan),
+      ],
+   q(7393) => [
+      q(Kurtokha),
+      ],
+   q(7394) => [
+      q(Kamula),
+      ],
+   q(7395) => [
+      q(Loup B),
+      ],
+   q(7396) => [
+      q(Lycian),
+      ],
+   q(7397) => [
+      q(Lydian),
+      ],
+   q(7398) => [
+      q(Lemnian),
+      ],
+   q(7399) => [
+      q(Ligurian (Ancient)),
+      ],
+   q(7400) => [
+      q(Liburnian),
+      ],
+   q(7401) => [
+      q(Alanic),
+      ],
+   q(7402) => [
+      q(Loup A),
+      ],
+   q(7403) => [
+      q(Lepontic),
+      ],
+   q(7404) => [
+      q(Lusitanian),
+      ],
+   q(7405) => [
+      q(Cuneiform Luwian),
+      ],
+   q(7406) => [
+      q(Elymian),
+      ],
+   q(7407) => [
+      q(Mushungulu),
+      ],
+   q(7408) => [
+      q(Mbonga),
+      ],
+   q(7409) => [
+      q(Makhuwa-Marrevone),
+      ],
+   q(7410) => [
+      q(Mbudum),
+      ],
+   q(7411) => [
+      q(Median),
+      ],
+   q(7412) => [
+      q(Mingrelian),
+      ],
+   q(7413) => [
+      q(Mengaka),
+      ],
+   q(7414) => [
+      q(Kuku-Muminh),
+      ],
+   q(7415) => [
+      q(Majera),
+      ],
+   q(7416) => [
+      q(Ancient Macedonian),
+      ],
+   q(7417) => [
+      q(Malaysian Sign Language),
+      ],
+   q(7418) => [
+      q(Manado Malay),
+      ],
+   q(7419) => [
+      q(Manichaean Middle Persian),
+      ],
+   q(7420) => [
+      q(Morerebi),
+      ],
+   q(7421) => [
+      q(Kuku-Mu'inh),
+      ],
+   q(7422) => [
+      q(Kuku-Mangk),
+      ],
+   q(7423) => [
+      q(Meroitic),
+      ],
+   q(7424) => [
+      q(Moroccan Sign Language),
+      ],
+   q(7425) => [
+      q(Matbat),
+      ],
+   q(7426) => [
+      q(Kamu),
+      ],
+   q(7427) => [
+      q(Antankarana Malagasy),
+      q(Tankarana Malagasy),
+      ],
+   q(7428) => [
+      q(Tsimihety Malagasy),
+      ],
+   q(7429) => [
+      q(Maden),
+      ],
+   q(7430) => [
+      q(Mayaguduna),
+      ],
+   q(7431) => [
+      q(Mori Bawah),
+      ],
+   q(7432) => [
+      q(Ancient North Arabian),
+      ],
+   q(7433) => [
+      q(Kanakanabu),
+      ],
+   q(7434) => [
+      q(Middle Mongolian),
+      ],
+   q(7435) => [
+      q(Kuanhua),
+      ],
+   q(7436) => [
+      q(Ngarigu),
+      ],
+   q(7437) => [
+      q(Nganakarti),
+      ],
+   q(7438) => [
+      q(Northern Kankanay),
+      ],
+   q(7439) => [
+      q(Anglo-Norman),
+      ],
+   q(7440) => [
+      q(Kangri),
+      ],
+   q(7441) => [
+      q(Kanashi),
+      ],
+   q(7442) => [
+      q(Narragansett),
+      ],
+   q(7443) => [
+      q(Nukunul),
+      ],
+   q(7444) => [
+      q(Nyiyaparli),
+      ],
+   q(7445) => [
+      q(Kenzi),
+      q(Mattoki),
+      ],
+   q(7446) => [
+      q(O'chi'chi'),
+      ],
+   q(7447) => [
+      q(Kokoda),
+      ],
+   q(7448) => [
+      q(Soga),
+      ],
+   q(7449) => [
+      q(Kominimung),
+      ],
+   q(7450) => [
+      q(Xokleng),
+      ],
+   q(7451) => [
+      q(Komo (Sudan)),
+      ],
+   q(7452) => [
+      q(Konkomba),
+      ],
+   q(7453) => [
+      q(Xukuru),
+      ],
+   q(7454) => [
+      q(Kopar),
+      ],
+   q(7455) => [
+      q(Korubo),
+      ],
+   q(7456) => [
+      q(Kowaki),
+      ],
+   q(7457) => [
+      q(Pirriya),
+      ],
+   q(7458) => [
+      q(Pecheneg),
+      ],
+   q(7459) => [
+      q(Liberia Kpelle),
+      ],
+   q(7460) => [
+      q(Phrygian),
+      ],
+   q(7461) => [
+      q(Pictish),
+      ],
+   q(7462) => [
+      q(Mpalitjanh),
+      ],
+   q(7463) => [
+      q(Kulina Pano),
+      ],
+   q(7464) => [
+      q(Pumpokol),
+      ],
+   q(7465) => [
+      q(Kapinawa),
+      ],
+   q(7466) => [
+      q(Pochutec),
+      ],
+   q(7467) => [
+      q(Puyo-Paekche),
+      ],
+   q(7468) => [
+      q(Mohegan-Pequot),
+      ],
+   q(7469) => [
+      q(Parthian),
+      ],
+   q(7470) => [
+      q(Pisidian),
+      ],
+   q(7471) => [
+      q(Punthamara),
+      ],
+   q(7472) => [
+      q(Punic),
+      ],
+   q(7473) => [
+      q(Puyo),
+      ],
+   q(7474) => [
+      q(Karakhanid),
+      ],
+   q(7475) => [
+      q(Qatabanian),
+      ],
+   q(7476) => [
+      q(Kraho),
+      ],
+   q(7477) => [
+      q(Eastern Karaboro),
+      ],
+   q(7478) => [
+      q(Gundungurra),
+      ],
+   q(7479) => [
+      q(Kreye),
+      ],
+   q(7480) => [
+      q(Minang),
+      ],
+   q(7481) => [
+      q(Krikati-Timbira),
+      ],
+   q(7482) => [
+      q(Armazic),
+      ],
+   q(7483) => [
+      q(Arin),
+      ],
+   q(7484) => [
+      q(Karranga),
+      ],
+   q(7485) => [
+      q(Raetic),
+      ],
+   q(7486) => [
+      q(Aranama-Tamique),
+      ],
+   q(7487) => [
+      q(Marriammu),
+      ],
+   q(7488) => [
+      q(Karawa),
+      ],
+   q(7489) => [
+      q(Sabaean),
+      ],
+   q(7490) => [
+      q(Sambal),
+      ],
+   q(7491) => [
+      q(Scythian),
+      ],
+   q(7492) => [
+      q(Sidetic),
+      ],
+   q(7493) => [
+      q(Sempan),
+      ],
+   q(7494) => [
+      q(Shamang),
+      ],
+   q(7495) => [
+      q(Sio),
+      ],
+   q(7496) => [
+      q(South Slavey),
+      ],
+   q(7497) => [
+      q(Kasem),
+      ],
+   q(7498) => [
+      q(Sanga (Nigeria)),
+      ],
+   q(7499) => [
+      q(Solano),
+      ],
+   q(7500) => [
+      q(Silopi),
+      ],
+   q(7501) => [
+      q(Makhuwa-Saka),
+      ],
+   q(7502) => [
+      q(Sherpa),
+      ],
+   q(7503) => [
+      q(Assan),
+      ],
+   q(7504) => [
+      q(Sanuma),
+      ],
+   q(7505) => [
+      q(Sudovian),
+      ],
+   q(7506) => [
+      q(Saisiyat),
+      ],
+   q(7507) => [
+      q(Alcozauca Mixtec),
+      ],
+   q(7508) => [
+      q(Chazumba Mixtec),
+      ],
+   q(7509) => [
+      q(Katcha-Kadugli-Miri),
+      ],
+   q(7510) => [
+      q(Diuxi-Tilantongo Mixtec),
+      ],
+   q(7511) => [
+      q(Ketengban),
+      ],
+   q(7512) => [
+      q(Transalpine Gaulish),
+      ],
+   q(7513) => [
+      q(Yitha Yitha),
+      ],
+   q(7514) => [
+      q(Sinicahua Mixtec),
+      ],
+   q(7515) => [
+      q(San Juan Teita Mixtec),
+      ],
+   q(7516) => [
+      q(Tijaltepec Mixtec),
+      ],
+   q(7517) => [
+      q(Magdalena Penasco Mixtec),
+      ],
+   q(7518) => [
+      q(Northern Tlaxiaco Mixtec),
+      ],
+   q(7519) => [
+      q(Tokharian A),
+      ],
+   q(7520) => [
+      q(San Miguel Piedras Mixtec),
+      ],
+   q(7521) => [
+      q(Tumshuqese),
+      ],
+   q(7522) => [
+      q(Early Tripuri),
+      ],
+   q(7523) => [
+      q(Sindihui Mixtec),
+      ],
+   q(7524) => [
+      q(Tacahua Mixtec),
+      ],
+   q(7525) => [
+      q(Cuyamecalco Mixtec),
+      ],
+   q(7526) => [
+      q(Thawa),
+      ],
+   q(7527) => [
+      q(Tawande),
+      ],
+   q(7528) => [
+      q(Yoloxochitl Mixtec),
+      ],
+   q(7529) => [
+      q(Tasmanian),
+      ],
+   q(7530) => [
+      q(Alu Kurumba),
+      ],
+   q(7531) => [
+      q(Betta Kurumba),
+      ],
+   q(7532) => [
+      q(Umiida),
+      ],
+   q(7533) => [
+      q(Kunigami),
+      ],
+   q(7534) => [
+      q(Jennu Kurumba),
+      ],
+   q(7535) => [
+      q(Ngunawal),
+      ],
+   q(7536) => [
+      q(Umbrian),
+      ],
+   q(7537) => [
+      q(Unggaranggu),
+      ],
+   q(7538) => [
+      q(Kuo),
+      ],
+   q(7539) => [
+      q(Upper Umpqua),
+      ],
+   q(7540) => [
+      q(Urartian),
+      ],
+   q(7541) => [
+      q(Kuthant),
+      ],
+   q(7542) => [
+      q(Kxoe),
+      ],
+   q(7543) => [
+      q(Venetic),
+      ],
+   q(7544) => [
+      q(Kamviri),
+      ],
+   q(7545) => [
+      q(Vandalic),
+      ],
+   q(7546) => [
+      q(Volscian),
+      ],
+   q(7547) => [
+      q(Vestinian),
+      ],
+   q(7548) => [
+      q(Kwaza),
+      ],
+   q(7549) => [
+      q(Woccon),
+      ],
+   q(7550) => [
+      q(Wadi Wadi),
+      ],
+   q(7551) => [
+      q(Xwela Gbe),
+      ],
+   q(7552) => [
+      q(Kwegu),
+      ],
+   q(7553) => [
+      q(Wajuk),
+      ],
+   q(7554) => [
+      q(Wangkumara),
+      ],
+   q(7555) => [
+      q(Western Xwla Gbe),
+      ],
+   q(7556) => [
+      q(Written Oirat),
+      ],
+   q(7557) => [
+      q(Kwerba Mamberamo),
+      ],
+   q(7558) => [
+      q(Wotjobaluk),
+      ],
+   q(7559) => [
+      q(Wemba Wemba),
+      ],
+   q(7560) => [
+      q(Boro (Ghana)),
+      ],
+   q(7561) => [
+      q(Ke'o),
+      ],
+   q(7562) => [
+      q(Minkin),
+      ],
+   q(7563) => [
+      q(Koropo),
+      ],
+   q(7564) => [
+      q(Tambora),
+      ],
+   q(7565) => [
+      q(Yaygir),
+      ],
+   q(7566) => [
+      q(Yandjibara),
+      ],
+   q(7567) => [
+      q(Mayi-Yapi),
+      ],
+   q(7568) => [
+      q(Mayi-Kulan),
+      ],
+   q(7569) => [
+      q(Yalakalore),
+      ],
+   q(7570) => [
+      q(Mayi-Thakurti),
+      ],
+   q(7571) => [
+      q(Yorta Yorta),
+      ],
+   q(7572) => [
+      q(Zhang-Zhung),
+      ],
+   q(7573) => [
+      q(Zemgalian),
+      ],
+   q(7574) => [
+      q(Ancient Zapotec),
+      ],
+   q(7575) => [
+      q(Yaminahua),
+      ],
+   q(7576) => [
+      q(Yuhup),
+      ],
+   q(7577) => [
+      q(Pass Valley Yali),
+      ],
+   q(7578) => [
+      q(Yagua),
+      ],
+   q(7579) => [
+      q(Pume),
+      ],
+   q(7580) => [
+      q(Yaka (Democratic Republic of Congo)),
+      ],
+   q(7581) => [
+      q(Yamana),
+      ],
+   q(7582) => [
+      q(Yazgulyam),
+      ],
+   q(7583) => [
+      q(Yagnobi),
+      ],
+   q(7584) => [
+      q(Banda-Yangere),
+      ],
+   q(7585) => [
+      q(Yakama),
+      ],
+   q(7586) => [
+      q(Yalunka),
+      ],
+   q(7587) => [
+      q(Yamba),
+      ],
+   q(7588) => [
+      q(Mayangna),
+      ],
+   q(7589) => [
+      q(Yaqui),
+      ],
+   q(7590) => [
+      q(Yabarana),
+      ],
+   q(7591) => [
+      q(Nugunu (Cameroon)),
+      ],
+   q(7592) => [
+      q(Yambeta),
+      ],
+   q(7593) => [
+      q(Yuwana),
+      ],
+   q(7594) => [
+      q(Yangben),
+      ],
+   q(7595) => [
+      q(Yawalapiti),
+      ],
+   q(7596) => [
+      q(Yauma),
+      ],
+   q(7597) => [
+      q(Agwagwune),
+      ],
+   q(7598) => [
+      q(Lokaa),
+      ],
+   q(7599) => [
+      q(Yala),
+      ],
+   q(7600) => [
+      q(Yemba),
+      ],
+   q(7601) => [
+      q(West Yugur),
+      ],
+   q(7602) => [
+      q(Yakha),
+      ],
+   q(7603) => [
+      q(Yamphu),
+      ],
+   q(7604) => [
+      q(Hasha),
+      ],
+   q(7605) => [
+      q(Bokha),
+      ],
+   q(7606) => [
+      q(Yukuben),
+      ],
+   q(7607) => [
+      q(Yaben),
+      ],
+   q(7608) => [
+      q(Yabaana),
+      ],
+   q(7609) => [
+      q(Yabong),
+      ],
+   q(7610) => [
+      q(Yawiyo),
+      ],
+   q(7611) => [
+      q(Yaweyuha),
+      ],
+   q(7612) => [
+      q(Chesu),
+      ],
+   q(7613) => [
+      q(Lolopo),
+      ],
+   q(7614) => [
+      q(Yucuna),
+      ],
+   q(7615) => [
+      q(Chepya),
+      ],
+   q(7616) => [
+      q(Yanda),
+      ],
+   q(7617) => [
+      q(Eastern Yiddish),
+      ],
+   q(7618) => [
+      q(Yangum Dey),
+      ],
+   q(7619) => [
+      q(Yidgha),
+      ],
+   q(7620) => [
+      q(Yoidik),
+      ],
+   q(7621) => [
+      q(Ravula),
+      ],
+   q(7622) => [
+      q(Yeniche),
+      ],
+   q(7623) => [
+      q(Yimas),
+      ],
+   q(7624) => [
+      q(Yeni),
+      ],
+   q(7625) => [
+      q(Yevanic),
+      ],
+   q(7626) => [
+      q(Yela),
+      ],
+   q(7627) => [
+      q(Tarok),
+      ],
+   q(7628) => [
+      q(Nyankpa),
+      ],
+   q(7629) => [
+      q(Yetfa),
+      ],
+   q(7630) => [
+      q(Yerukula),
+      ],
+   q(7631) => [
+      q(Yapunda),
+      ],
+   q(7632) => [
+      q(Yeyi),
+      ],
+   q(7633) => [
+      q(Malyangapa),
+      ],
+   q(7634) => [
+      q(Yiningayi),
+      ],
+   q(7635) => [
+      q(Yangum Gel),
+      ],
+   q(7636) => [
+      q(Yagomi),
+      ],
+   q(7637) => [
+      q(Gepo),
+      ],
+   q(7638) => [
+      q(Yagaria),
+      ],
+   q(7639) => [
+      q(Yolnu Sign Language),
+      ],
+   q(7640) => [
+      q(Yugul),
+      ],
+   q(7641) => [
+      q(Yagwoia),
+      ],
+   q(7642) => [
+      q(Baha Buyang),
+      ],
+   q(7643) => [
+      q(Judeo-Iraqi Arabic),
+      ],
+   q(7644) => [
+      q(Hlepho Phowa),
+      ],
+   q(7645) => [
+      q(Yan-nhanu Sign Language),
+      ],
+   q(7646) => [
+      q(Yinggarda),
+      ],
+   q(7647) => [
+      q(Wusa Nasu),
+      ],
+   q(7648) => [
+      q(Western Yiddish),
+      ],
+   q(7649) => [
+      q(Yidiny),
+      ],
+   q(7650) => [
+      q(Yindjibarndi),
+      ],
+   q(7651) => [
+      q(Dongshanba Lalo),
+      ],
+   q(7652) => [
+      q(Yindjilandji),
+      ],
+   q(7653) => [
+      q(Yimchungru Naga),
+      ],
+   q(7654) => [
+      q(Yinchia),
+      ],
+   q(7655) => [
+      q(Pholo),
+      ],
+   q(7656) => [
+      q(Miqie),
+      ],
+   q(7657) => [
+      q(North Awyu),
+      ],
+   q(7658) => [
+      q(Yis),
+      ],
+   q(7659) => [
+      q(Eastern Lalu),
+      ],
+   q(7660) => [
+      q(Awu),
+      ],
+   q(7661) => [
+      q(Northern Nisu),
+      ],
+   q(7662) => [
+      q(Axi Yi),
+      ],
+   q(7663) => [
+      q(Azhe),
+      ],
+   q(7664) => [
+      q(Yakan),
+      ],
+   q(7665) => [
+      q(Northern Yukaghir),
+      ],
+   q(7666) => [
+      q(Yoke),
+      ],
+   q(7667) => [
+      q(Yakaikeke),
+      ],
+   q(7668) => [
+      q(Khlula),
+      ],
+   q(7669) => [
+      q(Kap),
+      ],
+   q(7670) => [
+      q(Kua-nsi),
+      ],
+   q(7671) => [
+      q(Yasa),
+      ],
+   q(7672) => [
+      q(Yekora),
+      ],
+   q(7673) => [
+      q(Kathu),
+      ],
+   q(7674) => [
+      q(Kuamasi),
+      ],
+   q(7675) => [
+      q(Yakoma),
+      ],
+   q(7676) => [
+      q(Yaul),
+      ],
+   q(7677) => [
+      q(Yaleba),
+      ],
+   q(7678) => [
+      q(Yele),
+      ],
+   q(7679) => [
+      q(Yelogu),
+      ],
+   q(7680) => [
+      q(Angguruk Yali),
+      ],
+   q(7681) => [
+      q(Yil),
+      ],
+   q(7682) => [
+      q(Limi),
+      ],
+   q(7683) => [
+      q(Langnian Buyang),
+      ],
+   q(7684) => [
+      q(Naluo Yi),
+      ],
+   q(7685) => [
+      q(Yalarnnga),
+      ],
+   q(7686) => [
+      q(Aribwaung),
+      ],
+   q(7687) => [
+      q(Nyalayu),
+      q(Nyelayu),
+      ],
+   q(7688) => [
+      q(Yambes),
+      ],
+   q(7689) => [
+      q(Southern Muji),
+      ],
+   q(7690) => [
+      q(Muda),
+      ],
+   q(7691) => [
+      q(Yameo),
+      ],
+   q(7692) => [
+      q(Yamongeri),
+      ],
+   q(7693) => [
+      q(Mili),
+      ],
+   q(7694) => [
+      q(Moji),
+      ],
+   q(7695) => [
+      q(Makwe),
+      ],
+   q(7696) => [
+      q(Iamalele),
+      ],
+   q(7697) => [
+      q(Maay),
+      ],
+   q(7698) => [
+      q(Yamna),
+      q(Sunum),
+      ],
+   q(7699) => [
+      q(Yangum Mon),
+      ],
+   q(7700) => [
+      q(Yamap),
+      ],
+   q(7701) => [
+      q(Qila Muji),
+      ],
+   q(7702) => [
+      q(Malasar),
+      ],
+   q(7703) => [
+      q(Mysian),
+      ],
+   q(7704) => [
+      q(Northern Muji),
+      ],
+   q(7705) => [
+      q(Muzi),
+      ],
+   q(7706) => [
+      q(Aluo),
+      ],
+   q(7707) => [
+      q(Yandruwandha),
+      ],
+   q(7708) => [
+      q(Lang'e),
+      ],
+   q(7709) => [
+      q(Yango),
+      ],
+   q(7710) => [
+      q(Naukan Yupik),
+      ],
+   q(7711) => [
+      q(Yangulam),
+      ],
+   q(7712) => [
+      q(Yana),
+      ],
+   q(7713) => [
+      q(Yong),
+      ],
+   q(7714) => [
+      q(Yendang),
+      ],
+   q(7715) => [
+      q(Yansi),
+      ],
+   q(7716) => [
+      q(Yahuna),
+      ],
+   q(7717) => [
+      q(Yoba),
+      ],
+   q(7718) => [
+      q(Yogad),
+      ],
+   q(7719) => [
+      q(Yonaguni),
+      ],
+   q(7720) => [
+      q(Yokuts),
+      ],
+   q(7721) => [
+      q(Yola),
+      ],
+   q(7722) => [
+      q(Yombe),
+      ],
+   q(7723) => [
+      q(Yongkom),
+      ],
+   q(7724) => [
+      q(Yotti),
+      ],
+   q(7725) => [
+      q(Yoron),
+      ],
+   q(7726) => [
+      q(Yoy),
+      ],
+   q(7727) => [
+      q(Phala),
+      ],
+   q(7728) => [
+      q(Labo Phowa),
+      ],
+   q(7729) => [
+      q(Phola),
+      ],
+   q(7730) => [
+      q(Phupha),
+      ],
+   q(7731) => [
+      q(Phuma),
+      ],
+   q(7732) => [
+      q(Ani Phowa),
+      ],
+   q(7733) => [
+      q(Alo Phola),
+      ],
+   q(7734) => [
+      q(Phupa),
+      ],
+   q(7735) => [
+      q(Phuza),
+      ],
+   q(7736) => [
+      q(Yerakai),
+      ],
+   q(7737) => [
+      q(Yareba),
+      ],
+   q(7738) => [
+      q(Yaoure),
+      ],
+   q(7739) => [
+      q(Yari),
+      ],
+   q(7740) => [
+      q(Nenets),
+      ],
+   q(7741) => [
+      q(Nhengatu),
+      ],
+   q(7742) => [
+      q(Yirrk-Mel),
+      ],
+   q(7743) => [
+      q(Yerong),
+      ],
+   q(7744) => [
+      q(Yarsun),
+      ],
+   q(7745) => [
+      q(Yarawata),
+      ],
+   q(7746) => [
+      q(Yarluyandi),
+      ],
+   q(7747) => [
+      q(Yassic),
+      ],
+   q(7748) => [
+      q(Samatao),
+      ],
+   q(7749) => [
+      q(Sonaga),
+      ],
+   q(7750) => [
+      q(Yugoslavian Sign Language),
+      ],
+   q(7751) => [
+      q(Sani),
+      ],
+   q(7752) => [
+      q(Nisi (China)),
+      ],
+   q(7753) => [
+      q(Southern Lolopo),
+      ],
+   q(7754) => [
+      q(Sirenik Yupik),
+      ],
+   q(7755) => [
+      q(Yessan-Mayo),
+      ],
+   q(7756) => [
+      q(Sanie),
+      ],
+   q(7757) => [
+      q(Talu),
+      ],
+   q(7758) => [
+      q(Tanglang),
+      ],
+   q(7759) => [
+      q(Thopho),
+      ],
+   q(7760) => [
+      q(Yout Wam),
+      ],
+   q(7761) => [
+      q(Yatay),
+      ],
+   q(7762) => [
+      q(Yucateco),
+      q(Yucatec Maya),
+      ],
+   q(7763) => [
+      q(Yugambal),
+      ],
+   q(7764) => [
+      q(Yuchi),
+      ],
+   q(7765) => [
+      q(Judeo-Tripolitanian Arabic),
+      ],
+   q(7766) => [
+      q(Yue Chinese),
+      q(Cantonese),
+      ],
+   q(7767) => [
+      q(Havasupai-Walapai-Yavapai),
+      ],
+   q(7768) => [
+      q(Yug),
+      ],
+   q(7769) => [
+      q(Yuruti),
+      ],
+   q(7770) => [
+      q(Karkar-Yuri),
+      ],
+   q(7771) => [
+      q(Yuki),
+      ],
+   q(7772) => [
+      q(Yulu),
+      ],
+   q(7773) => [
+      q(Quechan),
+      ],
+   q(7774) => [
+      q(Bena (Nigeria)),
+      ],
+   q(7775) => [
+      q(Yukpa),
+      ],
+   q(7776) => [
+      q(Yuqui),
+      ],
+   q(7777) => [
+      q(Yurok),
+      ],
+   q(7778) => [
+      q(Yopno),
+      ],
+   q(7779) => [
+      q(Yau (Morobe Province)),
+      ],
+   q(7780) => [
+      q(Southern Yukaghir),
+      ],
+   q(7781) => [
+      q(East Yugur),
+      ],
+   q(7782) => [
+      q(Yuracare),
+      ],
+   q(7783) => [
+      q(Yawa),
+      ],
+   q(7784) => [
+      q(Yavitero),
+      ],
+   q(7785) => [
+      q(Kalou),
+      ],
+   q(7786) => [
+      q(Yinhawangka),
+      ],
+   q(7787) => [
+      q(Western Lalu),
+      ],
+   q(7788) => [
+      q(Yawanawa),
+      ],
+   q(7789) => [
+      q(Wuding-Luquan Yi),
+      ],
+   q(7790) => [
+      q(Yawuru),
+      ],
+   q(7791) => [
+      q(Xishanba Lalo),
+      q(Central Lalo),
+      ],
+   q(7792) => [
+      q(Wumeng Nasu),
+      ],
+   q(7793) => [
+      q(Yawarawarga),
+      ],
+   q(7794) => [
+      q(Mayawali),
+      ],
+   q(7795) => [
+      q(Yagara),
+      ],
+   q(7796) => [
+      q(Yardliyawarra),
+      ],
+   q(7797) => [
+      q(Yinwum),
+      ],
+   q(7798) => [
+      q(Yuyu),
+      ],
+   q(7799) => [
+      q(Yabula Yabula),
+      ],
+   q(7800) => [
+      q(Yir Yoront),
+      ],
+   q(7801) => [
+      q(Yau (Sandaun Province)),
+      ],
+   q(7802) => [
+      q(Ayizi),
+      ],
+   q(7803) => [
+      q(E'ma Buyang),
+      ],
+   q(7804) => [
+      q(Zokhuo),
+      ],
+   q(7805) => [
+      q(Sierra de Juarez Zapotec),
+      ],
+   q(7806) => [
+      q(San Juan Guelavia Zapotec),
+      ],
+   q(7807) => [
+      q(Ocotlan Zapotec),
+      ],
+   q(7808) => [
+      q(Cajonos Zapotec),
+      ],
+   q(7809) => [
+      q(Yareni Zapotec),
+      ],
+   q(7810) => [
+      q(Ayoquesco Zapotec),
+      ],
+   q(7811) => [
+      q(Zaghawa),
+      ],
+   q(7812) => [
+      q(Zangwal),
+      ],
+   q(7813) => [
+      q(Isthmus Zapotec),
+      ],
+   q(7814) => [
+      q(Zaramo),
+      ],
+   q(7815) => [
+      q(Zanaki),
+      ],
+   q(7816) => [
+      q(Zauzou),
+      ],
+   q(7817) => [
+      q(Miahuatlan Zapotec),
+      ],
+   q(7818) => [
+      q(Ozolotepec Zapotec),
+      ],
+   q(7819) => [
+      q(Aloapam Zapotec),
+      ],
+   q(7820) => [
+      q(Rincon Zapotec),
+      ],
+   q(7821) => [
+      q(Santo Domingo Albarradas Zapotec),
+      ],
+   q(7822) => [
+      q(Tabaa Zapotec),
+      ],
+   q(7823) => [
+      q(Zangskari),
+      ],
+   q(7824) => [
+      q(Yatzachi Zapotec),
+      ],
+   q(7825) => [
+      q(Mitla Zapotec),
+      ],
+   q(7826) => [
+      q(Xadani Zapotec),
+      ],
+   q(7827) => [
+      q(Zayse-Zergulla),
+      q(Zaysete),
+      ],
+   q(7828) => [
+      q(Zari),
+      ],
+   q(7829) => [
+      q(Central Berawan),
+      ],
+   q(7830) => [
+      q(East Berawan),
+      ],
+   q(7831) => [
+      q(Batui),
+      ],
+   q(7832) => [
+      q(West Berawan),
+      ],
+   q(7833) => [
+      q(Coatecas Altas Zapotec),
+      ],
+   q(7834) => [
+      q(Central Hongshuihe Zhuang),
+      ],
+   q(7835) => [
+      q(Ngazidja Comorian),
+      ],
+   q(7836) => [
+      q(Zeeuws),
+      ],
+   q(7837) => [
+      q(Zenag),
+      ],
+   q(7838) => [
+      q(Eastern Hongshuihe Zhuang),
+      ],
+   q(7839) => [
+      q(Kinga),
+      ],
+   q(7840) => [
+      q(Guibei Zhuang),
+      ],
+   q(7841) => [
+      q(Minz Zhuang),
+      ],
+   q(7842) => [
+      q(Guibian Zhuang),
+      ],
+   q(7843) => [
+      q(Magori),
+      ],
+   q(7844) => [
+      q(Zhaba),
+      ],
+   q(7845) => [
+      q(Dai Zhuang),
+      ],
+   q(7846) => [
+      q(Zhire),
+      ],
+   q(7847) => [
+      q(Nong Zhuang),
+      ],
+   q(7848) => [
+      q(Zhoa),
+      ],
+   q(7849) => [
+      q(Zia),
+      ],
+   q(7850) => [
+      q(Zimbabwe Sign Language),
+      ],
+   q(7851) => [
+      q(Zimakani),
+      ],
+   q(7852) => [
+      q(Zialo),
+      ],
+   q(7853) => [
+      q(Mesme),
+      ],
+   q(7854) => [
+      q(Zinza),
+      ],
+   q(7855) => [
+      q(Ziriya),
+      ],
+   q(7856) => [
+      q(Zigula),
+      ],
+   q(7857) => [
+      q(Zizilivakan),
+      ],
+   q(7858) => [
+      q(Kaimbulawa),
+      ],
+   q(7859) => [
+      q(Koibal),
+      ],
+   q(7860) => [
+      q(Kadu),
+      ],
+   q(7861) => [
+      q(Koguryo),
+      ],
+   q(7862) => [
+      q(Khorezmian),
+      ],
+   q(7863) => [
+      q(Karankawa),
+      ],
+   q(7864) => [
+      q(Kanan),
+      ],
+   q(7865) => [
+      q(Kott),
+      ],
+   q(7866) => [
+      q(Sao Paulo Kaingang),
+      ],
+   q(7867) => [
+      q(Zakhring),
+      ],
+   q(7868) => [
+      q(Kitan),
+      ],
+   q(7869) => [
+      q(Kaurna),
+      ],
+   q(7870) => [
+      q(Krevinian),
+      ],
+   q(7871) => [
+      q(Khazar),
+      ],
+   q(7872) => [
+      q(Liujiang Zhuang),
+      ],
+   q(7873) => [
+      q(Malay (individual language)),
+      ],
+   q(7874) => [
+      q(Lianshan Zhuang),
+      ],
+   q(7875) => [
+      q(Liuqian Zhuang),
+      ],
+   q(7876) => [
+      q(Manda (Australia)),
+      ],
+   q(7877) => [
+      q(Zimba),
+      ],
+   q(7878) => [
+      q(Margany),
+      ],
+   q(7879) => [
+      q(Maridan),
+      ],
+   q(7880) => [
+      q(Mangerr),
+      ],
+   q(7881) => [
+      q(Mfinu),
+      ],
+   q(7882) => [
+      q(Marti Ke),
+      ],
+   q(7883) => [
+      q(Makolkol),
+      ],
+   q(7884) => [
+      q(Negeri Sembilan Malay),
+      ],
+   q(7885) => [
+      q(Maridjabin),
+      ],
+   q(7886) => [
+      q(Mandandanyi),
+      ],
+   q(7887) => [
+      q(Madngele),
+      ],
+   q(7888) => [
+      q(Marimanindji),
+      ],
+   q(7889) => [
+      q(Mbangwe),
+      ],
+   q(7890) => [
+      q(Molo),
+      ],
+   q(7891) => [
+      q(Mpuono),
+      ],
+   q(7892) => [
+      q(Mituku),
+      ],
+   q(7893) => [
+      q(Maranunggu),
+      ],
+   q(7894) => [
+      q(Mbesa),
+      ],
+   q(7895) => [
+      q(Maringarr),
+      ],
+   q(7896) => [
+      q(Muruwari),
+      ],
+   q(7897) => [
+      q(Mbariman-Gudhinma),
+      ],
+   q(7898) => [
+      q(Mbo (Democratic Republic of Congo)),
+      ],
+   q(7899) => [
+      q(Bomitaba),
+      ],
+   q(7900) => [
+      q(Mariyedi),
+      ],
+   q(7901) => [
+      q(Mbandja),
+      ],
+   q(7902) => [
+      q(Zan Gula),
+      ],
+   q(7903) => [
+      q(Zande (individual language)),
+      ],
+   q(7904) => [
+      q(Mang),
+      ],
+   q(7905) => [
+      q(Manangkari),
+      ],
+   q(7906) => [
+      q(Mangas),
+      ],
+   q(7907) => [
+      q(Copainala Zoque),
+      ],
+   q(7908) => [
+      q(Chimalapa Zoque),
+      ],
+   q(7909) => [
+      q(Zou),
+      ],
+   q(7910) => [
+      q(Asuncion Mixtepec Zapotec),
+      ],
+   q(7911) => [
+      q(Tabasco Zoque),
+      ],
+   q(7912) => [
+      q(Rayon Zoque),
+      ],
+   q(7913) => [
+      q(Francisco Leon Zoque),
+      ],
+   q(7914) => [
+      q(Lachiguiri Zapotec),
+      ],
+   q(7915) => [
+      q(Yautepec Zapotec),
+      ],
+   q(7916) => [
+      q(Choapan Zapotec),
+      ],
+   q(7917) => [
+      q(Southeastern Ixtlan Zapotec),
+      ],
+   q(7918) => [
+      q(Petapa Zapotec),
+      ],
+   q(7919) => [
+      q(San Pedro Quiatoni Zapotec),
+      ],
+   q(7920) => [
+      q(Guevea De Humboldt Zapotec),
+      ],
+   q(7921) => [
+      q(Totomachapan Zapotec),
+      ],
+   q(7922) => [
+      q(Santa Maria Quiegolani Zapotec),
+      ],
+   q(7923) => [
+      q(Quiavicuzas Zapotec),
+      ],
+   q(7924) => [
+      q(Tlacolulita Zapotec),
+      ],
+   q(7925) => [
+      q(Lachixio Zapotec),
+      ],
+   q(7926) => [
+      q(Mixtepec Zapotec),
+      ],
+   q(7927) => [
+      q(Santa Ines Yatzechi Zapotec),
+      ],
+   q(7928) => [
+      q(Amatlan Zapotec),
+      ],
+   q(7929) => [
+      q(El Alto Zapotec),
+      ],
+   q(7930) => [
+      q(Zoogocho Zapotec),
+      ],
+   q(7931) => [
+      q(Santiago Xanica Zapotec),
+      ],
+   q(7932) => [
+      q(Coatlan Zapotec),
+      ],
+   q(7933) => [
+      q(San Vicente Coatlan Zapotec),
+      ],
+   q(7934) => [
+      q(Yalalag Zapotec),
+      ],
+   q(7935) => [
+      q(Chichicapan Zapotec),
+      ],
+   q(7936) => [
+      q(Zaniza Zapotec),
+      ],
+   q(7937) => [
+      q(San Baltazar Loxicha Zapotec),
+      ],
+   q(7938) => [
+      q(Mazaltepec Zapotec),
+      ],
+   q(7939) => [
+      q(Texmelucan Zapotec),
+      ],
+   q(7940) => [
+      q(Qiubei Zhuang),
+      ],
+   q(7941) => [
+      q(Kara (Korea)),
+      ],
+   q(7942) => [
+      q(Mirgan),
+      ],
+   q(7943) => [
+      q(Zerenkel),
+      ],
+   q(7944) => [
+      q(Zaparo),
+      ],
+   q(7945) => [
+      q(Zarphatic),
+      ],
+   q(7946) => [
+      q(Mairasi),
+      ],
+   q(7947) => [
+      q(Sarasira),
+      ],
+   q(7948) => [
+      q(Kaskean),
+      ],
+   q(7949) => [
+      q(Zambian Sign Language),
+      ],
+   q(7950) => [
+      q(Standard Malay),
+      ],
+   q(7951) => [
+      q(Southern Rincon Zapotec),
+      ],
+   q(7952) => [
+      q(Sukurum),
+      ],
+   q(7953) => [
+      q(Elotepec Zapotec),
+      ],
+   q(7954) => [
+      q(Xanaguia Zapotec),
+      ],
+   q(7955) => [
+      q(Lapaguia-Guivini Zapotec),
+      ],
+   q(7956) => [
+      q(San Agustin Mixtepec Zapotec),
+      ],
+   q(7957) => [
+      q(Santa Catarina Albarradas Zapotec),
+      ],
+   q(7958) => [
+      q(Loxicha Zapotec),
+      ],
+   q(7959) => [
+      q(Quioquitani-Quieri Zapotec),
+      ],
+   q(7960) => [
+      q(Tilquiapan Zapotec),
+      ],
+   q(7961) => [
+      q(Tejalapan Zapotec),
+      ],
+   q(7962) => [
+      q(Guila Zapotec),
+      ],
+   q(7963) => [
+      q(Zaachila Zapotec),
+      ],
+   q(7964) => [
+      q(Yatee Zapotec),
+      ],
+   q(7965) => [
+      q(Zeem),
+      ],
+   q(7966) => [
+      q(Tokano),
+      ],
+   q(7967) => [
+      q(Kumzari),
+      ],
+   q(7968) => [
+      q(Zumaya),
+      ],
+   q(7969) => [
+      q(Zay),
+      ],
+   q(7970) => [
+      q(Yongbei Zhuang),
+      ],
+   q(7971) => [
+      q(Yang Zhuang),
+      ],
+   q(7972) => [
+      q(Youjiang Zhuang),
+      ],
+   q(7973) => [
+      q(Yongnan Zhuang),
+      ],
+   q(7974) => [
+      q(Zyphe Chin),
+      ],
+   q(7975) => [
+      q(Zuojiang Zhuang),
+      ],
+};
+
+$Locale::Codes::Data{'language'}{'alias2id'} = {
+   q(!xoo) => [
+      q(4975),
+      q(0),
+      ],
+   q('are'are) => [
+      q(0761),
+      q(0),
+      ],
+   q('auhelawa) => [
+      q(3648),
+      q(0),
+      ],
+   q('oroe) => [
+      q(1382),
+      q(1),
+      ],
+   q(//ani) => [
+      q(2803),
+      q(0),
+      ],
+   q(//gana) => [
+      q(2575),
+      q(0),
+      ],
+   q(//xegwi) => [
+      q(7330),
+      q(0),
+      ],
+   q(/gwi) => [
+      q(2686),
+      q(0),
+      ],
+   q(/xam) => [
+      q(7280),
+      q(0),
+      ],
+   q(=/hua) => [
+      q(2853),
+      q(0),
+      ],
+   q(=/ungkue) => [
+      q(2542),
+      q(1),
+      ],
+   q(a'ou) => [
+      q(0831),
+      q(0),
+      ],
+   q(a'tong) => [
+      q(0830),
+      q(1),
+      ],
+   q(a-hmaos) => [
+      q(2780),
+      q(1),
+      ],
+   q(a-pucikwar) => [
+      q(0849),
+      q(0),
+      ],
+   q(aari) => [
+      q(0710),
+      q(0),
+      ],
+   q(aasax) => [
+      q(0553),
+      q(0),
+      ],
+   q(abadi) => [
+      q(3202),
+      q(0),
+      ],
+   q(abaga) => [
+      q(0565),
+      q(0),
+      ],
+   q(abai sungai) => [
+      q(0564),
+      q(0),
+      ],
+   q(abanyom) => [
+      q(0570),
+      q(0),
+      ],
+   q(abar) => [
+      q(4307),
+      q(0),
+      ],
+   q(abau) => [
+      q(0555),
+      q(0),
+      ],
+   q(abaza) => [
+      q(0574),
+      q(0),
+      ],
+   q(abe) => [
+      q(0559),
+      q(0),
+      ],
+   q(abellen ayta) => [
+      q(0573),
+      q(0),
+      ],
+   q(abidji) => [
+      q(0567),
+      q(0),
+      ],
+   q(abinomn) => [
+      q(1447),
+      q(0),
+      ],
+   q(abipon) => [
+      q(0985),
+      q(0),
+      ],
+   q(abishira) => [
+      q(0892),
+      q(0),
+      ],
+   q(abkhazian) => [
+      q(0002),
+      q(0),
+      ],
+   q(abom) => [
+      q(0815),
+      q(0),
+      ],
+   q(abon) => [
+      q(0572),
+      q(0),
+      ],
+   q(abron) => [
+      q(0575),
+      q(0),
+      ],
+   q(abu) => [
+      q(0614),
+      q(0),
+      ],
+   q(abu' arapesh) => [
+      q(0545),
+      q(0),
+      ],
+   q(abua) => [
+      q(0571),
+      q(0),
+      ],
+   q(abui) => [
+      q(0583),
+      q(0),
+      ],
+   q(abun) => [
+      q(3325),
+      q(0),
+      ],
+   q(abure) => [
+      q(0578),
+      q(0),
+      ],
+   q(abureni) => [
+      q(4259),
+      q(0),
+      ],
+   q(acatepec me'phaa) => [
+      q(6674),
+      q(0),
+      ],
+   q(acatepec tlapanec) => [
+      q(6674),
+      q(1),
+      ],
+   q(achagua) => [
+      q(0584),
+      q(0),
+      ],
+   q(achang) => [
+      q(0592),
+      q(0),
+      ],
+   q(ache) => [
+      q(2657),
+      q(0),
+      ],
+   q(acheron) => [
+      q(0603),
+      q(0),
+      ],
+   q(achi) => [
+      q(0595),
+      q(0),
+      ],
+   q(achinese) => [
+      q(0003),
+      q(0),
+      ],
+   q(achterhoeks) => [
+      q(0597),
+      q(0),
+      ],
+   q(achuar-shiwiar) => [
+      q(0598),
+      q(0),
+      ],
+   q(achumawi) => [
+      q(0599),
+      q(0),
+      ],
+   q(acoli) => [
+      q(0004),
+      q(0),
+      ],
+   q(acroa) => [
+      q(0596),
+      q(0),
+      ],
+   q(adabe) => [
+      q(0604),
+      q(0),
+      ],
+   q(adai) => [
+      q(7275),
+      q(0),
+      ],
+   q(adamawa fulfulde) => [
+      q(2380),
+      q(0),
+      ],
+   q(adamorobe sign language) => [
+      q(0617),
+      q(0),
+      ],
+   q(adang) => [
+      q(0613),
+      q(0),
+      ],
+   q(adangbe) => [
+      q(0615),
+      q(0),
+      ],
+   q(adangme) => [
+      q(0005),
+      q(0),
+      ],
+   q(adara) => [
+      q(3171),
+      q(0),
+      ],
+   q(adasen) => [
+      q(6533),
+      q(0),
+      ],
+   q(adele) => [
+      q(0606),
+      q(0),
+      ],
+   q(adhola) => [
+      q(0609),
+      q(0),
+      ],
+   q(adi) => [
+      q(0610),
+      q(0),
+      ],
+   q(adioukrou) => [
+      q(0611),
+      q(0),
+      ],
+   q(adithinngithigh) => [
+      q(2159),
+      q(0),
+      ],
+   q(adivasi oriya) => [
+      q(5303),
+      q(0),
+      ],
+   q(adiwasi garasia) => [
+      q(2415),
+      q(0),
+      ],
+   q(adnyamathanha) => [
+      q(0618),
+      q(0),
+      ],
+   q(adonara) => [
+      q(0616),
+      q(0),
+      ],
+   q(aduge) => [
+      q(0619),
+      q(0),
+      ],
+   q(adygei) => [
+      q(0006),
+      q(1),
+      ],
+   q(adyghe) => [
+      q(0006),
+      q(0),
+      ],
+   q(adzera) => [
+      q(0622),
+      q(0),
+      ],
+   q(aeka) => [
+      q(0638),
+      q(0),
+      ],
+   q(aekyom) => [
+      q(0972),
+      q(0),
+      ],
+   q(aequian) => [
+      q(7276),
+      q(0),
+      ],
+   q(aer) => [
+      q(0632),
+      q(0),
+      ],
+   q(afade) => [
+      q(0548),
+      q(0),
+      ],
+   q(afar) => [
+      q(0001),
+      q(0),
+      ],
+   q(afghan persian) => [
+      q(5602),
+      q(1),
+      ],
+   q(afghan sign language) => [
+      q(0642),
+      q(0),
+      ],
+   q(afitti) => [
+      q(0649),
+      q(0),
+      ],
+   q(afra) => [
+      q(6894),
+      q(1),
+      ],
+   q(afrihili) => [
+      q(0008),
+      q(0),
+      ],
+   q(afrikaans) => [
+      q(0009),
+      q(0),
+      ],
+   q(afro-asiatic languages) => [
+      q(0007),
+      q(0),
+      ],
+   q(afro-seminole creole) => [
+      q(0648),
+      q(0),
+      ],
+   q(agarabi) => [
+      q(0655),
+      q(0),
+      ],
+   q(agariya) => [
+      q(0660),
+      q(0),
+      ],
+   q(agatu) => [
+      q(0654),
+      q(0),
+      ],
+   q(agavotaguerra) => [
+      q(0962),
+      q(0),
+      ],
+   q(aghem) => [
+      q(0667),
+      q(0),
+      ],
+   q(aghu) => [
+      q(0680),
+      q(0),
+      ],
+   q(aghu-tharnggala) => [
+      q(2641),
+      q(0),
+      ],
+   q(aghul) => [
+      q(0674),
+      q(0),
+      ],
+   q(aghwan) => [
+      q(7277),
+      q(0),
+      ],
+   q(agi) => [
+      q(0696),
+      q(0),
+      ],
+   q(agob) => [
+      q(3371),
+      q(0),
+      ],
+   q(agoi) => [
+      q(2893),
+      q(0),
+      ],
+   q(aguacateco) => [
+      q(0671),
+      q(0),
+      ],
+   q(aguano) => [
+      q(0652),
+      q(0),
+      ],
+   q(aguaruna) => [
+      q(0668),
+      q(0),
+      ],
+   q(aguna) => [
+      q(0937),
+      q(0),
+      ],
+   q(agusan manobo) => [
+      q(4542),
+      q(0),
+      ],
+   q(agutaynen) => [
+      q(0665),
+      q(0),
+      ],
+   q(agwagwune) => [
+      q(7597),
+      q(0),
+      ],
+   q(ahan) => [
+      q(0685),
+      q(0),
+      ],
+   q(ahanta) => [
+      q(0677),
+      q(0),
+      ],
+   q(aheu) => [
+      q(6505),
+      q(0),
+      ],
+   q(ahirani) => [
+      q(0688),
+      q(0),
+      ],
+   q(ahom) => [
+      q(0686),
+      q(0),
+      ],
+   q(ahtena) => [
+      q(0690),
+      q(0),
+      ],
+   q(ahwai) => [
+      q(4831),
+      q(0),
+      ],
+   q(ai-cham) => [
+      q(0698),
+      q(0),
+      ],
+   q(aighon) => [
+      q(0711),
+      q(0),
+      ],
+   q(aikana) => [
+      q(6380),
+      q(0),
+      ],
+   q(aiklep) => [
+      q(4630),
+      q(0),
+      ],
+   q(aimaq) => [
+      q(0706),
+      q(0),
+      ],
+   q(aimele) => [
+      q(0702),
+      q(0),
+      ],
+   q(aimol) => [
+      q(0703),
+      q(0),
+      ],
+   q(ainbai) => [
+      q(0693),
+      q(0),
+      ],
+   q(ainu) => [
+      q(0010),
+      q(0),
+      ],
+   q(ainu (china)) => [
+      q(0692),
+      q(0),
+      ],
+   q(ainu (japan)) => [
+      q(0010),
+      q(1),
+      ],
+   q(aiome) => [
+      q(0729),
+      q(0),
+      ],
+   q(airoran) => [
+      q(0707),
+      q(0),
+      ],
+   q(aiton) => [
+      q(0704),
+      q(0),
+      ],
+   q(aiwoo) => [
+      q(4832),
+      q(1),
+      ],
+   q(aja (benin)) => [
+      q(0714),
+      q(0),
+      ],
+   q(aja (sudan)) => [
+      q(0713),
+      q(0),
+      ],
+   q(ajawa) => [
+      q(0720),
+      q(0),
+      ],
+   q(ajie) => [
+      q(0715),
+      q(0),
+      ],
+   q(ajiya) => [
+      q(2904),
+      q(1),
+      ],
+   q(ajumbu) => [
+      q(4582),
+      q(0),
+      ],
+   q(ajyininka apurucayali) => [
+      q(1833),
+      q(0),
+      ],
+   q(ak) => [
+      q(0735),
+      q(0),
+      ],
+   q(aka) => [
+      q(6162),
+      q(0),
+      ],
+   q(aka-bea) => [
+      q(0568),
+      q(0),
+      ],
+   q(aka-bo) => [
+      q(0732),
+      q(0),
+      ],
+   q(aka-cari) => [
+      q(0588),
+      q(0),
+      ],
+   q(aka-jeru) => [
+      q(0730),
+      q(0),
+      ],
+   q(aka-kede) => [
+      q(0742),
+      q(0),
+      ],
+   q(aka-kol) => [
+      q(0743),
+      q(0),
+      ],
+   q(aka-kora) => [
+      q(0589),
+      q(0),
+      ],
+   q(akan) => [
+      q(0011),
+      q(0),
+      ],
+   q(akar-bale) => [
+      q(0590),
+      q(0),
+      ],
+   q(akaselem) => [
+      q(0737),
+      q(0),
+      ],
+   q(akawaio) => [
+      q(0725),
+      q(0),
+      ],
+   q(ake) => [
+      q(0701),
+      q(0),
+      ],
+   q(akebu) => [
+      q(3277),
+      q(0),
+      ],
+   q(akei) => [
+      q(6726),
+      q(0),
+      ],
+   q(akeu) => [
+      q(0635),
+      q(0),
+      ],
+   q(akha) => [
+      q(0682),
+      q(0),
+      ],
+   q(akhvakh) => [
+      q(0740),
+      q(0),
+      ],
+   q(akkadian) => [
+      q(0012),
+      q(0),
+      ],
+   q(akkala sami) => [
+      q(6034),
+      q(0),
+      ],
+   q(aklanon) => [
+      q(0731),
+      q(0),
+      ],
+   q(akolet) => [
+      q(0738),
+      q(0),
+      ],
+   q(akoose) => [
+      q(1464),
+      q(0),
+      ],
+   q(akoye) => [
+      q(4317),
+      q(0),
+      ],
+   q(akpa) => [
+      q(0726),
+      q(0),
+      ],
+   q(akpes) => [
+      q(2890),
+      q(0),
+      ],
+   q(akrukay) => [
+      q(0643),
+      q(0),
+      ],
+   q(akukem) => [
+      q(6186),
+      q(0),
+      ],
+   q(akuku) => [
+      q(1000),
+      q(0),
+      ],
+   q(akum) => [
+      q(0739),
+      q(0),
+      ],
+   q(akuntsu) => [
+      q(0867),
+      q(0),
+      ],
+   q(akurio) => [
+      q(0733),
+      q(0),
+      ],
+   q(akwa) => [
+      q(0741),
+      q(0),
+      ],
+   q(akyaung ari naga) => [
+      q(5048),
+      q(0),
+      ],
+   q(al-sayyid bedouin sign language) => [
+      q(6346),
+      q(0),
+      ],
+   q(alaba-k'abeena) => [
+      q(0762),
+      q(0),
+      ],
+   q(alabama) => [
+      q(0744),
+      q(0),
+      ],
+   q(alabat island agta) => [
+      q(2180),
+      q(0),
+      ],
+   q(alacalufan languages) => [
+      q(0489),
+      q(0),
+      ],
+   q(alacatlatzala mixtec) => [
+      q(4310),
+      q(0),
+      ],
+   q(alago) => [
+      q(0745),
+      q(0),
+      ],
+   q(alagwa) => [
+      q(7083),
+      q(0),
+      ],
+   q(alak) => [
+      q(0752),
+      q(0),
+      ],
+   q(alamblak) => [
+      q(0779),
+      q(0),
+      ],
+   q(alangan) => [
+      q(0751),
+      q(0),
+      ],
+   q(alanic) => [
+      q(7401),
+      q(0),
+      ],
+   q(alapmunte) => [
+      q(0854),
+      q(0),
+      ],
+   q(alawa) => [
+      q(0749),
+      q(0),
+      ],
+   q(albanian) => [
+      q(0013),
+      q(0),
+      ],
+   q(albanian languages) => [
+      q(0525),
+      q(0),
+      ],
+   q(albanian sign language) => [
+      q(6200),
+      q(0),
+      ],
+   q(alcozauca mixtec) => [
+      q(7507),
+      q(0),
+      ],
+   q(alege) => [
+      q(0748),
+      q(0),
+      ],
+   q(alekano) => [
+      q(2404),
+      q(0),
+      ],
+   q(alemannic) => [
+      q(0166),
+      q(1),
+      ],
+   q(aleut) => [
+      q(0014),
+      q(0),
+      ],
+   q(algerian arabic) => [
+      q(0877),
+      q(0),
+      ],
+   q(algerian saharan arabic) => [
+      q(0550),
+      q(0),
+      ],
+   q(algerian sign language) => [
+      q(0899),
+      q(0),
+      ],
+   q(algic languages) => [
+      q(0490),
+      q(0),
+      ],
+   q(algonquian languages) => [
+      q(0015),
+      q(0),
+      ],
+   q(algonquin) => [
+      q(0758),
+      q(0),
+      ],
+   q(ali) => [
+      q(0712),
+      q(0),
+      ],
+   q(alladian) => [
+      q(0747),
+      q(0),
+      ],
+   q(allar) => [
+      q(0753),
+      q(0),
+      ],
+   q(alngith) => [
+      q(0694),
+      q(0),
+      ],
+   q(alo phola) => [
+      q(7733),
+      q(0),
+      ],
+   q(aloapam zapotec) => [
+      q(7819),
+      q(0),
+      ],
+   q(alor) => [
+      q(0825),
+      q(0),
+      ],
+   q(alsatian) => [
+      q(0166),
+      q(2),
+      ],
+   q(alsea) => [
+      q(0634),
+      q(0),
+      ],
+   q(altaic languages) => [
+      q(0445),
+      q(0),
+      ],
+   q(alu kurumba) => [
+      q(7530),
+      q(0),
+      ],
+   q(alugu) => [
+      q(0934),
+      q(0),
+      ],
+   q(alumu-tesu) => [
+      q(0539),
+      q(0),
+      ],
+   q(alune) => [
+      q(0757),
+      q(0),
+      ],
+   q(aluo) => [
+      q(7706),
+      q(0),
+      ],
+   q(alur) => [
+      q(0765),
+      q(0),
+      ],
+   q(alutor) => [
+      q(0759),
+      q(0),
+      ],
+   q(alviri-vidari) => [
+      q(0956),
+      q(0),
+      ],
+   q(alyawarr) => [
+      q(0764),
+      q(0),
+      ],
+   q(ama (papua new guinea)) => [
+      q(0776),
+      q(0),
+      ],
+   q(ama (sudan)) => [
+      q(5163),
+      q(0),
+      ],
+   q(amahai) => [
+      q(0780),
+      q(0),
+      ],
+   q(amahuaca) => [
+      q(0768),
+      q(0),
+      ],
+   q(amaimon) => [
+      q(0750),
+      q(0),
+      ],
+   q(amal) => [
+      q(0541),
+      q(0),
+      ],
+   q(amanab) => [
+      q(0777),
+      q(0),
+      ],
+   q(amanaye) => [
+      q(0766),
+      q(0),
+      ],
+   q(amara) => [
+      q(0695),
+      q(0),
+      ],
+   q(amarakaeri) => [
+      q(0781),
+      q(0),
+      ],
+   q(amarasi) => [
+      q(0558),
+      q(0),
+      ],
+   q(amatlan zapotec) => [
+      q(7928),
+      q(0),
+      ],
+   q(amba (solomon islands)) => [
+      q(6956),
+      q(0),
+      ],
+   q(amba (uganda)) => [
+      q(5878),
+      q(0),
+      ],
+   q(ambai) => [
+      q(0774),
+      q(0),
+      ],
+   q(ambakich) => [
+      q(0636),
+      q(0),
+      ],
+   q(ambala ayta) => [
+      q(0561),
+      q(0),
+      ],
+   q(ambelau) => [
+      q(0785),
+      q(0),
+      ],
+   q(ambele) => [
+      q(0629),
+      q(0),
+      ],
+   q(amblong) => [
+      q(0754),
+      q(0),
+      ],
+   q(ambo) => [
+      q(0767),
+      q(0),
+      ],
+   q(ambo-pasco quechua) => [
+      q(5700),
+      q(0),
+      ],
+   q(ambonese malay) => [
+      q(0576),
+      q(0),
+      ],
+   q(ambrak) => [
+      q(0544),
+      q(0),
+      ],
+   q(ambul) => [
+      q(0847),
+      q(0),
+      ],
+   q(ambulas) => [
+      q(0577),
+      q(0),
+      ],
+   q(amdang) => [
+      q(0773),
+      q(0),
+      ],
+   q(amdo tibetan) => [
+      q(0621),
+      q(0),
+      ],
+   q(amele) => [
+      q(0637),
+      q(0),
+      ],
+   q(american sign language) => [
+      q(0889),
+      q(0),
+      ],
+   q(amganad ifugao) => [
+      q(2912),
+      q(0),
+      ],
+   q(amharic) => [
+      q(0017),
+      q(0),
+      ],
+   q(ami) => [
+      q(0788),
+      q(0),
+      ],
+   q(amio-gelimi) => [
+      q(3878),
+      q(1),
+      ],
+   q(amis) => [
+      q(0772),
+      q(0),
+      ],
+   q(amo) => [
+      q(0778),
+      q(0),
+      ],
+   q(amol) => [
+      q(0763),
+      q(0),
+      ],
+   q(amoltepec mixtec) => [
+      q(4152),
+      q(0),
+      ],
+   q(ampanang) => [
+      q(0839),
+      q(0),
+      ],
+   q(ampari dogon) => [
+      q(0860),
+      q(0),
+      ],
+   q(amri karbi) => [
+      q(0721),
+      q(0),
+      ],
+   q(amto) => [
+      q(0783),
+      q(0),
+      ],
+   q(amundava) => [
+      q(0620),
+      q(0),
+      ],
+   q(amurdak) => [
+      q(0771),
+      q(0),
+      ],
+   q(ana tinga dogon) => [
+      q(2160),
+      q(0),
+      ],
+   q(anaang) => [
+      q(0810),
+      q(0),
+      ],
+   q(anakalangu) => [
+      q(0727),
+      q(0),
+      ],
+   q(anal) => [
+      q(0801),
+      q(0),
+      ],
+   q(anam) => [
+      q(5397),
+      q(0),
+      ],
+   q(anambe) => [
+      q(0549),
+      q(0),
+      ],
+   q(anamgura) => [
+      q(2962),
+      q(0),
+      ],
+   q(anasi) => [
+      q(1386),
+      q(0),
+      ],
+   q(anca) => [
+      q(0585),
+      q(0),
+      ],
+   q(ancient aramaic (up to 700 bce)) => [
+      q(5187),
+      q(1),
+      ],
+   q(ancient greek (to 1453)) => [
+      q(0163),
+      q(1),
+      ],
+   q(ancient hebrew) => [
+      q(2735),
+      q(0),
+      ],
+   q(ancient macedonian) => [
+      q(7416),
+      q(0),
+      ],
+   q(ancient north arabian) => [
+      q(7432),
+      q(0),
+      ],
+   q(ancient zapotec) => [
+      q(7574),
+      q(0),
+      ],
+   q(andaandi) => [
+      q(2013),
+      q(0),
+      ],
+   q(andai) => [
+      q(0640),
+      q(0),
+      ],
+   q(andajin) => [
+      q(0716),
+      q(0),
+      ],
+   q(andalusian arabic) => [
+      q(7272),
+      q(0),
+      ],
+   q(andaman creole hindi) => [
+      q(2737),
+      q(0),
+      ],
+   q(andaqui) => [
+      q(0790),
+      q(0),
+      ],
+   q(andarum) => [
+      q(0817),
+      q(0),
+      ],
+   q(andegerebinha) => [
+      q(0608),
+      q(0),
+      ],
+   q(andh) => [
+      q(0805),
+      q(0),
+      ],
+   q(andi) => [
+      q(0797),
+      q(0),
+      ],
+   q(andio) => [
+      q(1614),
+      q(0),
+      ],
+   q(andoa) => [
+      q(0791),
+      q(0),
+      ],
+   q(andoque) => [
+      q(0803),
+      q(0),
+      ],
+   q(andra-hus) => [
+      q(0811),
+      q(0),
+      ],
+   q(aneityum) => [
+      q(0931),
+      q(0),
+      ],
+   q(anem) => [
+      q(0813),
+      q(0),
+      ],
+   q(aneme wake) => [
+      q(0582),
+      q(0),
+      ],
+   q(anfillo) => [
+      q(4685),
+      q(0),
+      ],
+   q(angaataha) => [
+      q(0664),
+      q(0),
+      ],
+   q(angaite) => [
+      q(0866),
+      q(0),
+      ],
+   q(angal) => [
+      q(0656),
+      q(0),
+      ],
+   q(angal enen) => [
+      q(0818),
+      q(0),
+      ],
+   q(angal heneng) => [
+      q(0728),
+      q(0),
+      ],
+   q(angami naga) => [
+      q(4912),
+      q(0),
+      ],
+   q(angguruk yali) => [
+      q(7680),
+      q(0),
+      ],
+   q(angika) => [
+      q(0019),
+      q(0),
+      ],
+   q(angkamuthi) => [
+      q(0960),
+      q(0),
+      ],
+   q(anglo-norman) => [
+      q(7439),
+      q(0),
+      ],
+   q(angloromani) => [
+      q(5809),
+      q(0),
+      ],
+   q(angolar) => [
+      q(0814),
+      q(0),
+      ],
+   q(angor) => [
+      q(0658),
+      q(0),
+      ],
+   q(angoram) => [
+      q(0820),
+      q(0),
+      ],
+   q(angosturas tunebo) => [
+      q(6614),
+      q(0),
+      ],
+   q(anguthimri) => [
+      q(0970),
+      q(0),
+      ],
+   q(ani) => [
+      q(2803),
+      q(1),
+      ],
+   q(ani phowa) => [
+      q(7732),
+      q(0),
+      ],
+   q(anii) => [
+      q(1292),
+      q(0),
+      ],
+   q(animere) => [
+      q(0795),
+      q(0),
+      ],
+   q(anindilyakwa) => [
+      q(0822),
+      q(0),
+      ],
+   q(anjam) => [
+      q(1359),
+      q(0),
+      ],
+   q(ankave) => [
+      q(0547),
+      q(0),
+      ],
+   q(anmatyerre) => [
+      q(0787),
+      q(0),
+      ],
+   q(anong) => [
+      q(5116),
+      q(0),
+      ],
+   q(anor) => [
+      q(0798),
+      q(0),
+      ],
+   q(anserma) => [
+      q(0806),
+      q(0),
+      ],
+   q(ansus) => [
+      q(0793),
+      q(0),
+      ],
+   q(antakarinya) => [
+      q(0807),
+      q(0),
+      ],
+   q(antankarana malagasy) => [
+      q(7427),
+      q(0),
+      ],
+   q(antigua and barbuda creole english) => [
+      q(0697),
+      q(0),
+      ],
+   q(anu-hkongso chin) => [
+      q(0800),
+      q(0),
+      ],
+   q(anuak) => [
+      q(0808),
+      q(0),
+      ],
+   q(anufo) => [
+      q(1759),
+      q(0),
+      ],
+   q(anuki) => [
+      q(0939),
+      q(0),
+      ],
+   q(anus) => [
+      q(0947),
+      q(0),
+      ],
+   q(anuta) => [
+      q(0936),
+      q(0),
+      ],
+   q(anyin) => [
+      q(0812),
+      q(0),
+      ],
+   q(anyin morofo) => [
+      q(4556),
+      q(0),
+      ],
+   q(ao naga) => [
+      q(4914),
+      q(0),
+      ],
+   q(aoheng) => [
+      q(5536),
+      q(0),
+      ],
+   q(aore) => [
+      q(0828),
+      q(0),
+      ],
+   q(ap ma) => [
+      q(3206),
+      q(0),
+      ],
+   q(apache languages) => [
+      q(0020),
+      q(0),
+      ],
+   q(apalachee) => [
+      q(7283),
+      q(0),
+      ],
+   q(apalai) => [
+      q(0857),
+      q(0),
+      ],
+   q(apali) => [
+      q(2264),
+      q(0),
+      ],
+   q(apasco-apoala mixtec) => [
+      q(4312),
+      q(0),
+      ],
+   q(apatani) => [
+      q(0852),
+      q(0),
+      ],
+   q(apiaka) => [
+      q(0841),
+      q(0),
+      ],
+   q(apinaye) => [
+      q(0846),
+      q(0),
+      ],
+   q(apma) => [
+      q(0848),
+      q(0),
+      ],
+   q(aproumu aizi) => [
+      q(0687),
+      q(0),
+      ],
+   q(apurina) => [
+      q(0853),
+      q(0),
+      ],
+   q(aputai) => [
+      q(0856),
+      q(0),
+      ],
+   q(aquitanian) => [
+      q(7284),
+      q(0),
+      ],
+   q(arabana) => [
+      q(0869),
+      q(0),
+      ],
+   q(arabela) => [
+      q(0875),
+      q(0),
+      ],
+   q(arabic) => [
+      q(0021),
+      q(0),
+      ],
+   q(aragonese) => [
+      q(0023),
+      q(0),
+      ],
+   q(araki) => [
+      q(0736),
+      q(0),
+      ],
+   q(arakwal) => [
+      q(5804),
+      q(0),
+      ],
+   q(aralle-tabulahan) => [
+      q(0923),
+      q(0),
+      ],
+   q(arammba) => [
+      q(6263),
+      q(0),
+      ],
+   q(aranadan) => [
+      q(0543),
+      q(0),
+      ],
+   q(aranama-tamique) => [
+      q(7486),
+      q(0),
+      ],
+   q(arandai) => [
+      q(3062),
+      q(0),
+      ],
+   q(araona) => [
+      q(0876),
+      q(0),
+      ],
+   q(arapaho) => [
+      q(0026),
+      q(0),
+      ],
+   q(arapaso) => [
+      q(0873),
+      q(0),
+      ],
+   q(ararandewara) => [
+      q(7279),
+      q(0),
+      ],
+   q(arauan languages) => [
+      q(0491),
+      q(0),
+      ],
+   q(arawa) => [
+      q(0880),
+      q(1),
+      ],
+   q(arawak) => [
+      q(0028),
+      q(0),
+      ],
+   q(arawakan languages) => [
+      q(0492),
+      q(0),
+      ],
+   q(arawete) => [
+      q(0979),
+      q(0),
+      ],
+   q(arawum) => [
+      q(0974),
+      q(0),
+      ],
+   q(arbereshe albanian) => [
+      q(0542),
+      q(0),
+      ],
+   q(arbore) => [
+      q(0881),
+      q(0),
+      ],
+   q(archi) => [
+      q(0859),
+      q(0),
+      ],
+   q(ardhamagadhi prakrit) => [
+      q(5474),
+      q(0),
+      ],
+   q(are) => [
+      q(4627),
+      q(0),
+      ],
+   q(areba) => [
+      q(0623),
+      q(0),
+      ],
+   q(arem) => [
+      q(0630),
+      q(0),
+      ],
+   q(arequipa-la union quechua) => [
+      q(5732),
+      q(0),
+      ],
+   q(argentine sign language) => [
+      q(0626),
+      q(0),
+      ],
+   q(argobba) => [
+      q(0661),
+      q(0),
+      ],
+   q(arguni) => [
+      q(0657),
+      q(0),
+      ],
+   q(arha) => [
+      q(0865),
+      q(0),
+      ],
+   q(arho) => [
+      q(0824),
+      q(0),
+      ],
+   q(arhuaco) => [
+      q(0871),
+      q(0),
+      ],
+   q(ari) => [
+      q(0540),
+      q(0),
+      ],
+   q(aribwatsa) => [
+      q(3812),
+      q(0),
+      ],
+   q(aribwaung) => [
+      q(7686),
+      q(0),
+      ],
+   q(arifama-miniafia) => [
+      q(0546),
+      q(0),
+      ],
+   q(arigidi) => [
+      q(0861),
+      q(0),
+      ],
+   q(arikapu) => [
+      q(0874),
+      q(0),
+      ],
+   q(arikara) => [
+      q(0872),
+      q(0),
+      ],
+   q(arikem) => [
+      q(0709),
+      q(0),
+      ],
+   q(arin) => [
+      q(7483),
+      q(0),
+      ],
+   q(aringa) => [
+      q(4077),
+      q(0),
+      ],
+   q(arma) => [
+      q(0821),
+      q(0),
+      ],
+   q(armazic) => [
+      q(7482),
+      q(0),
+      ],
+   q(armenian) => [
+      q(0024),
+      q(0),
+      ],
+   q(armenian (family)) => [
+      q(0511),
+      q(0),
+      ],
+   q(armenian sign language) => [
+      q(0631),
+      q(0),
+      ],
+   q(aromanian) => [
+      q(0362),
+      q(0),
+      ],
+   q(arop-lokep) => [
+      q(0850),
+      q(0),
+      ],
+   q(arop-sissano) => [
+      q(0851),
+      q(0),
+      ],
+   q(arosi) => [
+      q(0691),
+      q(0),
+      ],
+   q(arpitan) => [
+      q(2374),
+      q(0),
+      ],
+   q(arritinngithigh) => [
+      q(5853),
+      q(0),
+      ],
+   q(arta) => [
+      q(0932),
+      q(0),
+      ],
+   q(artificial languages) => [
+      q(0027),
+      q(0),
+      ],
+   q(arua (amazonas state)) => [
+      q(0880),
+      q(0),
+      ],
+   q(arua (rodonia state)) => [
+      q(0882),
+      q(0),
+      ],
+   q(aruamu) => [
+      q(4553),
+      q(0),
+      ],
+   q(aruek) => [
+      q(0948),
+      q(0),
+      ],
+   q(arumanian) => [
+      q(0362),
+      q(1),
+      ],
+   q(aruop) => [
+      q(4066),
+      q(0),
+      ],
+   q(arutani) => [
+      q(0930),
+      q(0),
+      ],
+   q(arvanitika albanian) => [
+      q(0554),
+      q(0),
+      ],
+   q(as) => [
+      q(0908),
+      q(0),
+      ],
+   q(asaro'o) => [
+      q(4576),
+      q(0),
+      ],
+   q(asas) => [
+      q(0888),
+      q(0),
+      ],
+   q(ashaninka) => [
+      q(1800),
+      q(0),
+      ],
+   q(ashe) => [
+      q(0689),
+      q(0),
+      ],
+   q(asheninka pajonal) => [
+      q(1750),
+      q(0),
+      ],
+   q(asheninka perene) => [
+      q(5600),
+      q(0),
+      ],
+   q(ashkun) => [
+      q(0895),
+      q(0),
+      ],
+   q(asho chin) => [
+      q(1872),
+      q(0),
+      ],
+   q(ashtiani) => [
+      q(0920),
+      q(0),
+      ],
+   q(asilulu) => [
+      q(0896),
+      q(0),
+      ],
+   q(askopan) => [
+      q(2230),
+      q(0),
+      ],
+   q(asoa) => [
+      q(0904),
+      q(0),
+      ],
+   q(assamese) => [
+      q(0029),
+      q(0),
+      ],
+   q(assan) => [
+      q(7503),
+      q(0),
+      ],
+   q(assangori) => [
+      q(6059),
+      q(0),
+      ],
+   q(assiniboine) => [
+      q(0886),
+      q(0),
+      ],
+   q(assyrian neo-aramaic) => [
+      q(0699),
+      q(0),
+      ],
+   q(asturian) => [
+      q(0030),
+      q(0),
+      ],
+   q(asturleonese) => [
+      q(0030),
+      q(3),
+      ],
+   q(asu (nigeria)) => [
+      q(0943),
+      q(0),
+      ],
+   q(asu (tanzania)) => [
+      q(0885),
+      q(0),
+      ],
+   q(asue awyu) => [
+      q(5609),
+      q(0),
+      ],
+   q(asumboa) => [
+      q(0933),
+      q(0),
+      ],
+   q(asuncion mixtepec zapotec) => [
+      q(7910),
+      q(0),
+      ],
+   q(asuri) => [
+      q(0901),
+      q(0),
+      ],
+   q(ata) => [
+      q(0919),
+      q(0),
+      ],
+   q(ata manobo) => [
+      q(0912),
+      q(0),
+      ],
+   q(atakapa) => [
+      q(0864),
+      q(0),
+      ],
+   q(atampaya) => [
+      q(0789),
+      q(0),
+      ],
+   q(atatlahuca mixtec) => [
+      q(4300),
+      q(0),
+      ],
+   q(atayal) => [
+      q(6378),
+      q(0),
+      ],
+   q(atemble) => [
+      q(0913),
+      q(0),
+      ],
+   q(athapascan languages) => [
+      q(0031),
+      q(0),
+      ],
+   q(athpariya) => [
+      q(0840),
+      q(0),
+      ],
+   q(ati) => [
+      q(0917),
+      q(0),
+      ],
+   q(atikamekw) => [
+      q(0916),
+      q(0),
+      ],
+   q(atlantic-congo languages) => [
+      q(0488),
+      q(0),
+      ],
+   q(atohwaim) => [
+      q(0862),
+      q(0),
+      ],
+   q(atong (cameroon)) => [
+      q(0921),
+      q(0),
+      ],
+   q(atong (india)) => [
+      q(0830),
+      q(0),
+      ],
+   q(atorada) => [
+      q(0832),
+      q(0),
+      ],
+   q(atsahuaca) => [
+      q(0911),
+      q(0),
+      ],
+   q(atsam) => [
+      q(1685),
+      q(0),
+      ],
+   q(atsugewi) => [
+      q(0929),
+      q(0),
+      ],
+   q(attapady kurumba) => [
+      q(5482),
+      q(0),
+      ],
+   q(attie) => [
+      q(0915),
+      q(0),
+      ],
+   q(atzingo matlatzinca) => [
+      q(5200),
+      q(0),
+      ],
+   q(au) => [
+      q(0964),
+      q(0),
+      ],
+   q(aulua) => [
+      q(0942),
+      q(0),
+      ],
+   q(aura) => [
+      q(0952),
+      q(0),
+      ],
+   q(aushi) => [
+      q(0938),
+      q(0),
+      ],
+   q(aushiri) => [
+      q(0963),
+      q(0),
+      ],
+   q(austral) => [
+      q(0949),
+      q(0),
+      ],
+   q(australian aborigines sign language) => [
+      q(0905),
+      q(0),
+      ],
+   q(australian languages) => [
+      q(0032),
+      q(0),
+      ],
+   q(australian sign language) => [
+      q(0890),
+      q(0),
+      ],
+   q(austrian sign language) => [
+      q(0900),
+      q(0),
+      ],
+   q(austro-asiatic languages) => [
+      q(0487),
+      q(0),
+      ],
+   q(austronesian languages) => [
+      q(0271),
+      q(0),
+      ],
+   q(auwe) => [
+      q(6119),
+      q(0),
+      ],
+   q(auye) => [
+      q(0950),
+      q(0),
+      ],
+   q(auyokawa) => [
+      q(0945),
+      q(0),
+      ],
+   q(ava guarani) => [
+      q(4863),
+      q(1),
+      ],
+   q(ava-canoeiro) => [
+      q(0966),
+      q(0),
+      ],
+   q(avaric) => [
+      q(0033),
+      q(0),
+      ],
+   q(avatime) => [
+      q(0961),
+      q(0),
+      ],
+   q(avau) => [
+      q(0955),
+      q(0),
+      ],
+   q(avava) => [
+      q(6588),
+      q(1),
+      ],
+   q(avestan) => [
+      q(0034),
+      q(0),
+      ],
+   q(avikam) => [
+      q(0957),
+      q(0),
+      ],
+   q(avokaya) => [
+      q(0965),
+      q(0),
+      ],
+   q(awa (china)) => [
+      q(7055),
+      q(0),
+      ],
+   q(awa (papua new guinea)) => [
+      q(0967),
+      q(0),
+      ],
+   q(awa-cuaiquer) => [
+      q(3701),
+      q(0),
+      ],
+   q(awabakal) => [
+      q(0973),
+      q(0),
+      ],
+   q(awad bing) => [
+      q(1084),
+      q(0),
+      ],
+   q(awadhi) => [
+      q(0035),
+      q(0),
+      ],
+   q(awak) => [
+      q(0976),
+      q(0),
+      ],
+   q(awar) => [
+      q(0992),
+      q(0),
+      ],
+   q(awara) => [
+      q(0983),
+      q(0),
+      ],
+   q(awbono) => [
+      q(0971),
+      q(0),
+      ],
+   q(aweer) => [
+      q(1353),
+      q(0),
+      ],
+   q(awera) => [
+      q(0977),
+      q(0),
+      ],
+   q(aweti) => [
+      q(0969),
+      q(0),
+      ],
+   q(awing) => [
+      q(1019),
+      q(0),
+      ],
+   q(awiyaana) => [
+      q(0953),
+      q(0),
+      ],
+   q(awjilah) => [
+      q(0940),
+      q(0),
+      ],
+   q(awngi) => [
+      q(0975),
+      q(0),
+      ],
+   q(awngthim) => [
+      q(2687),
+      q(0),
+      ],
+   q(awtuw) => [
+      q(3467),
+      q(0),
+      ],
+   q(awu) => [
+      q(7660),
+      q(0),
+      ],
+   q(awun) => [
+      q(0982),
+      q(0),
+      ],
+   q(awutu) => [
+      q(0650),
+      q(0),
+      ],
+   q(awyi) => [
+      q(0951),
+      q(0),
+      ],
+   q(axamb) => [
+      q(0678),
+      q(0),
+      ],
+   q(axi yi) => [
+      q(7662),
+      q(0),
+      ],
+   q(ayabadhu) => [
+      q(0995),
+      q(0),
+      ],
+   q(ayacucho quechua) => [
+      q(5698),
+      q(0),
+      ],
+   q(ayangan ifugao) => [
+      q(2913),
+      q(1),
+      ],
+   q(ayautla mazatec) => [
+      q(7039),
+      q(0),
+      ],
+   q(ayere) => [
+      q(0996),
+      q(0),
+      ],
+   q(ayerrerenge) => [
+      q(0986),
+      q(0),
+      ],
+   q(ayi (papua new guinea)) => [
+      q(1005),
+      q(0),
+      ],
+   q(ayiwo) => [
+      q(4832),
+      q(0),
+      ],
+   q(ayizi) => [
+      q(7802),
+      q(0),
+      ],
+   q(ayizo gbe) => [
+      q(0993),
+      q(0),
+      ],
+   q(aymara) => [
+      q(0036),
+      q(0),
+      ],
+   q(ayoquesco zapotec) => [
+      q(7810),
+      q(0),
+      ],
+   q(ayoreo) => [
+      q(1003),
+      q(0),
+      ],
+   q(ayu) => [
+      q(1009),
+      q(0),
+      ],
+   q(ayutla mixtec) => [
+      q(4319),
+      q(0),
+      ],
+   q(azerbaijani) => [
+      q(0037),
+      q(0),
+      ],
+   q(azha) => [
+      q(1012),
+      q(0),
+      ],
+   q(azhe) => [
+      q(7663),
+      q(0),
+      ],
+   q(azoyu me'phaa) => [
+      q(6657),
+      q(0),
+      ],
+   q(azoyu tlapanec) => [
+      q(6657),
+      q(1),
+      ],
+   q(baan) => [
+      q(1526),
+      q(0),
+      ],
+   q(baangi) => [
+      q(1420),
+      q(0),
+      ],
+   q(baatonum) => [
+      q(1038),
+      q(0),
+      ],
+   q(baba) => [
+      q(1060),
+      q(0),
+      ],
+   q(baba malay) => [
+      q(4133),
+      q(0),
+      ],
+   q(babalia creole arabic) => [
+      q(1063),
+      q(0),
+      ],
+   q(babango) => [
+      q(1050),
+      q(0),
+      ],
+   q(babanki) => [
+      q(1048),
+      q(0),
+      ],
+   q(babatana) => [
+      q(1022),
+      q(0),
+      ],
+   q(babine) => [
+      q(1081),
+      q(0),
+      ],
+   q(bable) => [
+      q(0030),
+      q(1),
+      ],
+   q(babuza) => [
+      q(1619),
+      q(0),
+      ],
+   q(bacama) => [
+      q(1087),
+      q(0),
+      ],
+   q(bacanese malay) => [
+      q(1479),
+      q(0),
+      ],
+   q(bactrian) => [
+      q(7294),
+      q(0),
+      ],
+   q(bada (indonesia)) => [
+      q(1209),
+      q(0),
+      ],
+   q(bada (nigeria)) => [
+      q(1033),
+      q(0),
+      ],
+   q(badaga) => [
+      q(1152),
+      q(0),
+      ],
+   q(bade) => [
+      q(1093),
+      q(0),
+      ],
+   q(badeshi) => [
+      q(1114),
+      q(0),
+      ],
+   q(badi kanum) => [
+      q(3335),
+      q(0),
+      ],
+   q(badimaya) => [
+      q(1210),
+      q(0),
+      ],
+   q(badjiri) => [
+      q(3061),
+      q(0),
+      ],
+   q(badui) => [
+      q(1024),
+      q(0),
+      ],
+   q(badyara) => [
+      q(5374),
+      q(0),
+      ],
+   q(baeggu) => [
+      q(1520),
+      q(0),
+      ],
+   q(baelelea) => [
+      q(1519),
+      q(0),
+      ],
+   q(baetora) => [
+      q(1486),
+      q(0),
+      ],
+   q(bafanji) => [
+      q(1145),
+      q(0),
+      ],
+   q(bafaw-balong) => [
+      q(1561),
+      q(0),
+      ],
+   q(bafia) => [
+      q(3599),
+      q(0),
+      ],
+   q(bafut) => [
+      q(1139),
+      q(0),
+      ],
+   q(baga binari) => [
+      q(1070),
+      q(0),
+      ],
+   q(baga kaloum) => [
+      q(1402),
+      q(0),
+      ],
+   q(baga koga) => [
+      q(1174),
+      q(0),
+      ],
+   q(baga manduri) => [
+      q(1306),
+      q(0),
+      ],
+   q(baga mboteni) => [
+      q(1172),
+      q(0),
+      ],
+   q(baga sitemu) => [
+      q(1461),
+      q(0),
+      ],
+   q(baga sobane) => [
+      q(1467),
+      q(0),
+      ],
+   q(bagheli) => [
+      q(1159),
+      q(0),
+      ],
+   q(bagirmi) => [
+      q(1311),
+      q(0),
+      ],
+   q(bagirmi fulfulde) => [
+      q(2386),
+      q(0),
+      ],
+   q(bago-kusuntu) => [
+      q(1403),
+      q(0),
+      ],
+   q(bagri) => [
+      q(1176),
+      q(0),
+      ],
+   q(bagupi) => [
+      q(1380),
+      q(0),
+      ],
+   q(bagusa) => [
+      q(1399),
+      q(0),
+      ],
+   q(bagvalal) => [
+      q(3667),
+      q(0),
+      ],
+   q(baha buyang) => [
+      q(7642),
+      q(0),
+      ],
+   q(baham) => [
+      q(1111),
+      q(0),
+      ],
+   q(bahamas creole english) => [
+      q(1028),
+      q(0),
+      ],
+   q(baharna arabic) => [
+      q(0579),
+      q(0),
+      ],
+   q(bahau) => [
+      q(1205),
+      q(0),
+      ],
+   q(bahinemo) => [
+      q(1237),
+      q(0),
+      ],
+   q(bahing) => [
+      q(1195),
+      q(0),
+      ],
+   q(bahnar) => [
+      q(1105),
+      q(0),
+      ],
+   q(bahonsuai) => [
+      q(1466),
+      q(0),
+      ],
+   q(bai) => [
+      q(1098),
+      q(0),
+      ],
+   q(baibai) => [
+      q(1043),
+      q(0),
+      ],
+   q(baikeno) => [
+      q(1276),
+      q(0),
+      ],
+   q(baima) => [
+      q(1404),
+      q(0),
+      ],
+   q(baimak) => [
+      q(1326),
+      q(0),
+      ],
+   q(bainouk-gunyaamolo) => [
+      q(1088),
+      q(0),
+      ],
+   q(bainouk-gunyuno) => [
+      q(1023),
+      q(0),
+      ],
+   q(bainouk-samik) => [
+      q(1065),
+      q(0),
+      ],
+   q(baiso) => [
+      q(1468),
+      q(0),
+      ],
+   q(baissa fali) => [
+      q(2327),
+      q(0),
+      ],
+   q(bajan) => [
+      q(1247),
+      q(0),
+      ],
+   q(bajelani) => [
+      q(1242),
+      q(0),
+      ],
+   q(baka (cameroon)) => [
+      q(1256),
+      q(0),
+      ],
+   q(baka (sudan)) => [
+      q(1096),
+      q(0),
+      ],
+   q(bakairi) => [
+      q(1269),
+      q(0),
+      ],
+   q(bakaka) => [
+      q(1422),
+      q(0),
+      ],
+   q(bakhtiari) => [
+      q(1405),
+      q(0),
+      ],
+   q(baki) => [
+      q(1261),
+      q(0),
+      ],
+   q(bakoko) => [
+      q(1260),
+      q(0),
+      ],
+   q(bakole) => [
+      q(3458),
+      q(0),
+      ],
+   q(bakpinka) => [
+      q(1056),
+      q(0),
+      ],
+   q(bakumpai) => [
+      q(1270),
+      q(0),
+      ],
+   q(bakwe) => [
+      q(1251),
+      q(0),
+      ],
+   q(balaesang) => [
+      q(1296),
+      q(0),
+      ],
+   q(balangao) => [
+      q(1299),
+      q(0),
+      ],
+   q(balangingi) => [
+      q(6233),
+      q(0),
+      ],
+   q(balanta-ganja) => [
+      q(1248),
+      q(0),
+      ],
+   q(balanta-kentohe) => [
+      q(1282),
+      q(0),
+      ],
+   q(balantak) => [
+      q(1302),
+      q(0),
+      ],
+   q(balau) => [
+      q(1284),
+      q(0),
+      ],
+   q(baldemu) => [
+      q(1102),
+      q(0),
+      ],
+   q(bali (democratic republic of congo)) => [
+      q(1079),
+      q(0),
+      ],
+   q(bali (nigeria)) => [
+      q(1077),
+      q(0),
+      ],
+   q(balinese) => [
+      q(0043),
+      q(0),
+      ],
+   q(balinese malay) => [
+      q(4289),
+      q(0),
+      ],
+   q(balkan gagauz turkish) => [
+      q(1183),
+      q(0),
+      ],
+   q(balkan romani) => [
+      q(5817),
+      q(0),
+      ],
+   q(balo) => [
+      q(1411),
+      q(0),
+      ],
+   q(baloi) => [
+      q(1230),
+      q(0),
+      ],
+   q(balti) => [
+      q(1155),
+      q(0),
+      ],
+   q(baltic languages) => [
+      q(0046),
+      q(0),
+      ],
+   q(baltic romani) => [
+      q(5815),
+      q(0),
+      ],
+   q(baluan-pam) => [
+      q(1294),
+      q(0),
+      ],
+   q(baluchi) => [
+      q(0041),
+      q(0),
+      ],
+   q(bamako sign language) => [
+      q(1356),
+      q(0),
+      ],
+   q(bamali) => [
+      q(1054),
+      q(0),
+      ],
+   q(bambalang) => [
+      q(1317),
+      q(0),
+      ],
+   q(bambam) => [
+      q(5637),
+      q(0),
+      ],
+   q(bambara) => [
+      q(0042),
+      q(0),
+      ],
+   q(bambassi) => [
+      q(4677),
+      q(0),
+      ],
+   q(bambili-bambui) => [
+      q(1035),
+      q(0),
+      ],
+   q(bamenyam) => [
+      q(1068),
+      q(0),
+      ],
+   q(bamileke languages) => [
+      q(0039),
+      q(0),
+      ],
+   q(bamu) => [
+      q(1069),
+      q(0),
+      ],
+   q(bamukumbit) => [
+      q(1416),
+      q(0),
+      ],
+   q(bamun) => [
+      q(1036),
+      q(0),
+      ],
+   q(bamunka) => [
+      q(1529),
+      q(0),
+      ],
+   q(bamwe) => [
+      q(1309),
+      q(0),
+      ],
+   q(ban khor sign language) => [
+      q(1146),
+      q(0),
+      ],
+   q(bana) => [
+      q(1086),
+      q(0),
+      ],
+   q(banam bay) => [
+      q(7047),
+      q(1),
+      ],
+   q(banao itneg) => [
+      q(1252),
+      q(0),
+      ],
+   q(banaro) => [
+      q(1612),
+      q(0),
+      ],
+   q(banda (indonesia)) => [
+      q(1331),
+      q(0),
+      ],
+   q(banda languages) => [
+      q(0038),
+      q(0),
+      ],
+   q(banda malay) => [
+      q(1388),
+      q(0),
+      ],
+   q(banda-bambari) => [
+      q(3930),
+      q(0),
+      ],
+   q(banda-banda) => [
+      q(1377),
+      q(0),
+      ],
+   q(banda-mbres) => [
+      q(1407),
+      q(0),
+      ],
+   q(banda-ndele) => [
+      q(1147),
+      q(0),
+      ],
+   q(banda-yangere) => [
+      q(7584),
+      q(0),
+      ],
+   q(bandi) => [
+      q(1613),
+      q(0),
+      ],
+   q(bandial) => [
+      q(1406),
+      q(0),
+      ],
+   q(bandjalang) => [
+      q(1113),
+      q(0),
+      ],
+   q(bangala) => [
+      q(1573),
+      q(0),
+      ],
+   q(bangandu) => [
+      q(1166),
+      q(0),
+      ],
+   q(bangba) => [
+      q(1042),
+      q(0),
+      ],
+   q(banggai) => [
+      q(1185),
+      q(0),
+      ],
+   q(banggarla) => [
+      q(1232),
+      q(0),
+      ],
+   q(bangi) => [
+      q(1335),
+      q(0),
+      ],
+   q(bangime) => [
+      q(1956),
+      q(0),
+      ],
+   q(bangingih sama) => [
+      q(6233),
+      q(1),
+      ],
+   q(bangka) => [
+      q(4226),
+      q(0),
+      ],
+   q(bangolan) => [
+      q(1169),
+      q(0),
+      ],
+   q(bangubangu) => [
+      q(1349),
+      q(0),
+      ],
+   q(bangwinji) => [
+      q(1455),
+      q(0),
+      ],
+   q(baniva) => [
+      q(1537),
+      q(0),
+      ],
+   q(baniwa) => [
+      q(1550),
+      q(0),
+      ],
+   q(banjar) => [
+      q(1243),
+      q(0),
+      ],
+   q(bankagooma) => [
+      q(1588),
+      q(0),
+      ],
+   q(bankal) => [
+      q(3108),
+      q(0),
+      ],
+   q(bankan tey dogon) => [
+      q(1974),
+      q(0),
+      ],
+   q(bankon) => [
+      q(0560),
+      q(0),
+      ],
+   q(bannoni) => [
+      q(1076),
+      q(0),
+      ],
+   q(bantawa) => [
+      q(1031),
+      q(0),
+      ],
+   q(bantayanon) => [
+      q(1158),
+      q(0),
+      ],
+   q(bantik) => [
+      q(1343),
+      q(0),
+      ],
+   q(bantoanon) => [
+      q(1341),
+      q(0),
+      ],
+   q(bantu (other)) => [
+      q(0058),
+      q(0),
+      ],
+   q(bantu languages) => [
+      q(0058),
+      q(1),
+      ],
+   q(baoule) => [
+      q(1072),
+      q(0),
+      ],
+   q(bara malagasy) => [
+      q(1201),
+      q(0),
+      ],
+   q(baraamu) => [
+      q(1425),
+      q(0),
+      ],
+   q(barababaraba) => [
+      q(5761),
+      q(0),
+      ],
+   q(barai) => [
+      q(1039),
+      q(0),
+      ],
+   q(barakai) => [
+      q(1029),
+      q(0),
+      ],
+   q(baram kayan) => [
+      q(3760),
+      q(0),
+      ],
+   q(barama) => [
+      q(1044),
+      q(0),
+      ],
+   q(barambu) => [
+      q(1433),
+      q(0),
+      ],
+   q(baramu) => [
+      q(1327),
+      q(0),
+      ],
+   q(barapasi) => [
+      q(1436),
+      q(0),
+      ],
+   q(baras) => [
+      q(1439),
+      q(0),
+      ],
+   q(barasana-eduria) => [
+      q(1459),
+      q(0),
+      ],
+   q(barbacoas) => [
+      q(1376),
+      q(0),
+      ],
+   q(barbaram) => [
+      q(7019),
+      q(0),
+      ],
+   q(barbareno) => [
+      q(1358),
+      q(0),
+      ],
+   q(barclayville grebo) => [
+      q(2630),
+      q(0),
+      ],
+   q(bardi) => [
+      q(1073),
+      q(0),
+      ],
+   q(bare) => [
+      q(1025),
+      q(0),
+      ],
+   q(barein) => [
+      q(1517),
+      q(0),
+      ],
+   q(bargam) => [
+      q(4381),
+      q(0),
+      ],
+   q(bari) => [
+      q(1136),
+      q(0),
+      ],
+   q(bariai) => [
+      q(1071),
+      q(0),
+      ],
+   q(bariji) => [
+      q(1233),
+      q(0),
+      ],
+   q(barikanchi) => [
+      q(1581),
+      q(0),
+      ],
+   q(barikewa) => [
+      q(3063),
+      q(0),
+      ],
+   q(barok) => [
+      q(1240),
+      q(0),
+      ],
+   q(barombi) => [
+      q(1046),
+      q(0),
+      ],
+   q(barro negro tunebo) => [
+      q(6393),
+      q(0),
+      ],
+   q(barrow point) => [
+      q(1391),
+      q(0),
+      ],
+   q(baruga) => [
+      q(1254),
+      q(0),
+      ],
+   q(baruya) => [
+      q(1606),
+      q(0),
+      ],
+   q(barwe) => [
+      q(1548),
+      q(0),
+      ],
+   q(barzani jewish neo-aramaic) => [
+      q(1235),
+      q(0),
+      ],
+   q(basa) => [
+      q(0045),
+      q(0),
+      ],
+   q(basa (cameroon)) => [
+      q(0045),
+      q(1),
+      ],
+   q(basa (nigeria)) => [
+      q(1635),
+      q(0),
+      ],
+   q(basa-gumna) => [
+      q(1457),
+      q(0),
+      ],
+   q(basa-gurmana) => [
+      q(1502),
+      q(0),
+      ],
+   q(basap) => [
+      q(1090),
+      q(0),
+      ],
+   q(basay) => [
+      q(1605),
+      q(0),
+      ],
+   q(bashkardi) => [
+      q(1452),
+      q(0),
+      ],
+   q(bashkir) => [
+      q(0040),
+      q(0),
+      ],
+   q(basketo) => [
+      q(1465),
+      q(0),
+      ],
+   q(basque) => [
+      q(0044),
+      q(0),
+      ],
+   q(basque (family)) => [
+      q(0503),
+      q(0),
+      ],
+   q(bassa) => [
+      q(1462),
+      q(0),
+      ],
+   q(bassa-kontagora) => [
+      q(1463),
+      q(0),
+      ],
+   q(bassari) => [
+      q(1449),
+      q(0),
+      ],
+   q(bassossi) => [
+      q(1454),
+      q(0),
+      ],
+   q(bata) => [
+      q(1471),
+      q(0),
+      ],
+   q(batad ifugao) => [
+      q(2913),
+      q(0),
+      ],
+   q(batak) => [
+      q(1590),
+      q(0),
+      ],
+   q(batak alas-kluet) => [
+      q(1494),
+      q(0),
+      ],
+   q(batak angkola) => [
+      q(0722),
+      q(0),
+      ],
+   q(batak dairi) => [
+      q(1473),
+      q(0),
+      ],
+   q(batak karo) => [
+      q(1492),
+      q(0),
+      ],
+   q(batak languages) => [
+      q(0062),
+      q(0),
+      ],
+   q(batak mandailing) => [
+      q(1481),
+      q(0),
+      ],
+   q(batak simalungun) => [
+      q(1487),
+      q(0),
+      ],
+   q(batak toba) => [
+      q(1040),
+      q(0),
+      ],
+   q(batanga) => [
+      q(1339),
+      q(0),
+      ],
+   q(batek) => [
+      q(1485),
+      q(0),
+      ],
+   q(bateri) => [
+      q(1490),
+      q(0),
+      ],
+   q(bathari) => [
+      q(1197),
+      q(0),
+      ],
+   q(bati (cameroon)) => [
+      q(1472),
+      q(0),
+      ],
+   q(bati (indonesia)) => [
+      q(1535),
+      q(0),
+      ],
+   q(bats) => [
+      q(1049),
+      q(0),
+      ],
+   q(batu) => [
+      q(1489),
+      q(0),
+      ],
+   q(batui) => [
+      q(7831),
+      q(0),
+      ],
+   q(batuley) => [
+      q(1037),
+      q(0),
+      ],
+   q(batyala) => [
+      q(7307),
+      q(0),
+      ],
+   q(bau) => [
+      q(1041),
+      q(0),
+      ],
+   q(bau bidayuh) => [
+      q(6137),
+      q(0),
+      ],
+   q(bauchi) => [
+      q(1451),
+      q(0),
+      ],
+   q(baure) => [
+      q(1427),
+      q(0),
+      ],
+   q(bauria) => [
+      q(1165),
+      q(0),
+      ],
+   q(bauwaki) => [
+      q(1552),
+      q(0),
+      ],
+   q(bauzi) => [
+      q(1541),
+      q(0),
+      ],
+   q(bavarian) => [
+      q(1032),
+      q(0),
+      ],
+   q(bawm chin) => [
+      q(1177),
+      q(0),
+      ],
+   q(bay miwok) => [
+      q(4358),
+      q(0),
+      ],
+   q(bayali) => [
+      q(1253),
+      q(0),
+      ],
+   q(baybayanon) => [
+      q(1540),
+      q(0),
+      ],
+   q(baygo) => [
+      q(1596),
+      q(0),
+      ],
+   q(bayono) => [
+      q(1601),
+      q(0),
+      ],
+   q(bayot) => [
+      q(1089),
+      q(0),
+      ],
+   q(bayungu) => [
+      q(1576),
+      q(0),
+      ],
+   q(bazigar) => [
+      q(1153),
+      q(0),
+      ],
+   q(beami) => [
+      q(1125),
+      q(0),
+      ],
+   q(beaver) => [
+      q(1115),
+      q(0),
+      ],
+   q(beba) => [
+      q(1151),
+      q(0),
+      ],
+   q(bebele) => [
+      q(1116),
+      q(0),
+      ],
+   q(bebeli) => [
+      q(1124),
+      q(0),
+      ],
+   q(bebil) => [
+      q(1582),
+      q(0),
+      ],
+   q(bedawiyet) => [
+      q(0047),
+      q(1),
+      ],
+   q(bedjond) => [
+      q(1250),
+      q(0),
+      ],
+   q(bedoanas) => [
+      q(1118),
+      q(0),
+      ],
+   q(beeke) => [
+      q(1258),
+      q(0),
+      ],
+   q(beele) => [
+      q(1583),
+      q(0),
+      ],
+   q(beembe) => [
+      q(1127),
+      q(0),
+      ],
+   q(beezen) => [
+      q(1351),
+      q(0),
+      ],
+   q(befang) => [
+      q(1062),
+      q(0),
+      ],
+   q(begbere-ejar) => [
+      q(1418),
+      q(1),
+      ],
+   q(beja) => [
+      q(0047),
+      q(0),
+      ],
+   q(bekati') => [
+      q(1123),
+      q(0),
+      ],
+   q(bekwarra) => [
+      q(1274),
+      q(0),
+      ],
+   q(bekwel) => [
+      q(1275),
+      q(0),
+      ],
+   q(belait) => [
+      q(1121),
+      q(0),
+      ],
+   q(belanda bor) => [
+      q(1568),
+      q(0),
+      ],
+   q(belanda viri) => [
+      q(1525),
+      q(0),
+      ],
+   q(belarusian) => [
+      q(0048),
+      q(0),
+      ],
+   q(belhariya) => [
+      q(1610),
+      q(0),
+      ],
+   q(beli (papua new guinea)) => [
+      q(1134),
+      q(0),
+      ],
+   q(beli (sudan)) => [
+      q(1290),
+      q(0),
+      ],
+   q(belize kriol english) => [
+      q(1622),
+      q(0),
+      ],
+   q(bella coola) => [
+      q(1280),
+      q(0),
+      ],
+   q(bellari) => [
+      q(1443),
+      q(0),
+      ],
+   q(bemba) => [
+      q(0049),
+      q(0),
+      ],
+   q(bemba (zambia)) => [
+      q(0049),
+      q(1),
+      ],
+   q(bembe) => [
+      q(1304),
+      q(0),
+      ],
+   q(ben tey dogon) => [
+      q(1971),
+      q(0),
+      ],
+   q(bena (nigeria)) => [
+      q(7774),
+      q(0),
+      ],
+   q(bena (tanzania)) => [
+      q(1135),
+      q(0),
+      ],
+   q(benabena) => [
+      q(1120),
+      q(0),
+      ],
+   q(bench) => [
+      q(1080),
+      q(0),
+      ],
+   q(bende) => [
+      q(1104),
+      q(0),
+      ],
+   q(bendi) => [
+      q(1083),
+      q(0),
+      ],
+   q(beneraf) => [
+      q(1347),
+      q(1),
+      ],
+   q(beng) => [
+      q(4861),
+      q(0),
+      ],
+   q(benga) => [
+      q(1334),
+      q(0),
+      ],
+   q(bengali) => [
+      q(0050),
+      q(0),
+      ],
+   q(benggoi) => [
+      q(1184),
+      q(0),
+      ],
+   q(bengkala sign language) => [
+      q(1421),
+      q(0),
+      ],
+   q(bentong) => [
+      q(1346),
+      q(0),
+      ],
+   q(benyadu') => [
+      q(1593),
+      q(0),
+      ],
+   q(beothuk) => [
+      q(1498),
+      q(0),
+      ],
+   q(bepour) => [
+      q(1214),
+      q(0),
+      ],
+   q(bera) => [
+      q(1426),
+      q(0),
+      ],
+   q(berakou) => [
+      q(1587),
+      q(0),
+      ],
+   q(berau malay) => [
+      q(1521),
+      q(0),
+      ],
+   q(berber languages) => [
+      q(0051),
+      q(0),
+      ],
+   q(berbice creole dutch) => [
+      q(1424),
+      q(0),
+      ],
+   q(berik) => [
+      q(1264),
+      q(0),
+      ],
+   q(berinomo) => [
+      q(1224),
+      q(0),
+      ],
+   q(berom) => [
+      q(1362),
+      q(0),
+      ],
+   q(berta) => [
+      q(7242),
+      q(0),
+      ],
+   q(berti) => [
+      q(1608),
+      q(0),
+      ],
+   q(besisi) => [
+      q(4279),
+      q(0),
+      ],
+   q(besme) => [
+      q(1128),
+      q(0),
+      ],
+   q(besoa) => [
+      q(1126),
+      q(0),
+      ],
+   q(betaf) => [
+      q(1140),
+      q(0),
+      ],
+   q(betawi) => [
+      q(1132),
+      q(0),
+      ],
+   q(bete) => [
+      q(1595),
+      q(0),
+      ],
+   q(bete-bendi) => [
+      q(1488),
+      q(0),
+      ],
+   q(beti (cote d'ivoire)) => [
+      q(2279),
+      q(0),
+      ],
+   q(betta kurumba) => [
+      q(7531),
+      q(0),
+      ],
+   q(bezhta) => [
+      q(3180),
+      q(0),
+      ],
+   q(bhadrawahi) => [
+      q(1189),
+      q(0),
+      ],
+   q(bhalay) => [
+      q(1207),
+      q(0),
+      ],
+   q(bharia) => [
+      q(1186),
+      q(0),
+      ],
+   q(bhatola) => [
+      q(1480),
+      q(0),
+      ],
+   q(bhatri) => [
+      q(1182),
+      q(0),
+      ],
+   q(bhattiyali) => [
+      q(1203),
+      q(0),
+      ],
+   q(bhaya) => [
+      q(1190),
+      q(0),
+      ],
+   q(bhele) => [
+      q(1208),
+      q(0),
+      ],
+   q(bhilali) => [
+      q(1194),
+      q(0),
+      ],
+   q(bhili) => [
+      q(1187),
+      q(0),
+      ],
+   q(bhojpuri) => [
+      q(0052),
+      q(0),
+      ],
+   q(bhoti kinnauri) => [
+      q(4823),
+      q(0),
+      ],
+   q(bhujel) => [
+      q(1597),
+      q(0),
+      ],
+   q(bhunjia) => [
+      q(1204),
+      q(0),
+      ],
+   q(biafada) => [
+      q(1215),
+      q(0),
+      ],
+   q(biage) => [
+      q(1094),
+      q(0),
+      ],
+   q(biak) => [
+      q(1206),
+      q(0),
+      ],
+   q(biali) => [
+      q(1122),
+      q(0),
+      ],
+   q(bian marind) => [
+      q(1393),
+      q(0),
+      ],
+   q(biangai) => [
+      q(1216),
+      q(0),
+      ],
+   q(biao) => [
+      q(1600),
+      q(0),
+      ],
+   q(biao mon) => [
+      q(1322),
+      q(0),
+      ],
+   q(biao-jiao mien) => [
+      q(1234),
+      q(0),
+      ],
+   q(biatah bidayuh) => [
+      q(1477),
+      q(0),
+      ],
+   q(bibbulman) => [
+      q(7303),
+      q(0),
+      ],
+   q(bidhawal) => [
+      q(2932),
+      q(0),
+      ],
+   q(bidiyo) => [
+      q(1213),
+      q(0),
+      ],
+   q(bidyara) => [
+      q(1602),
+      q(0),
+      ],
+   q(bidyogo) => [
+      q(1236),
+      q(0),
+      ],
+   q(biem) => [
+      q(1305),
+      q(0),
+      ],
+   q(bierebo) => [
+      q(1337),
+      q(0),
+      ],
+   q(bieria) => [
+      q(1430),
+      q(0),
+      ],
+   q(biete) => [
+      q(1225),
+      q(0),
+      ],
+   q(big nambas) => [
+      q(4963),
+      q(0),
+      ],
+   q(biga) => [
+      q(1188),
+      q(0),
+      ],
+   q(bigambal) => [
+      q(7296),
+      q(0),
+      ],
+   q(bihari languages) => [
+      q(0053),
+      q(0),
+      ],
+   q(bijori) => [
+      q(1228),
+      q(0),
+      ],
+   q(bikaru) => [
+      q(1212),
+      q(0),
+      ],
+   q(bikol) => [
+      q(0054),
+      q(0),
+      ],
+   q(bikya) => [
+      q(1591),
+      q(0),
+      ],
+   q(bila) => [
+      q(1221),
+      q(0),
+      ],
+   q(bilakura) => [
+      q(1408),
+      q(0),
+      ],
+   q(bilaspuri) => [
+      q(3301),
+      q(0),
+      ],
+   q(bilba) => [
+      q(1397),
+      q(0),
+      ],
+   q(bilbil) => [
+      q(1446),
+      q(0),
+      ],
+   q(bile) => [
+      q(1218),
+      q(0),
+      ],
+   q(bilin) => [
+      q(0067),
+      q(1),
+      ],
+   q(bilma kanuri) => [
+      q(1321),
+      q(0),
+      ],
+   q(biloxi) => [
+      q(1289),
+      q(0),
+      ],
+   q(bilua) => [
+      q(1279),
+      q(0),
+      ],
+   q(bilur) => [
+      q(1572),
+      q(0),
+      ],
+   q(bima) => [
+      q(1199),
+      q(0),
+      ],
+   q(bimin) => [
+      q(1196),
+      q(0),
+      ],
+   q(bimoba) => [
+      q(1219),
+      q(0),
+      ],
+   q(bina (nigeria)) => [
+      q(1599),
+      q(0),
+      ],
+   q(bina (papua new guinea)) => [
+      q(1316),
+      q(0),
+      ],
+   q(binahari) => [
+      q(1589),
+      q(0),
+      ],
+   q(binandere) => [
+      q(1192),
+      q(0),
+      ],
+   q(bindal) => [
+      q(7295),
+      q(0),
+      ],
+   q(bine) => [
+      q(1363),
+      q(0),
+      ],
+   q(bini) => [
+      q(0055),
+      q(0),
+      ],
+   q(binji) => [
+      q(1381),
+      q(0),
+      ],
+   q(binongan itneg) => [
+      q(3010),
+      q(0),
+      ],
+   q(bintauna) => [
+      q(1332),
+      q(0),
+      ],
+   q(bintulu) => [
+      q(1350),
+      q(0),
+      ],
+   q(binukid) => [
+      q(1257),
+      q(0),
+      ],
+   q(binumarien) => [
+      q(1246),
+      q(0),
+      ],
+   q(bipi) => [
+      q(1222),
+      q(0),
+      ],
+   q(birale) => [
+      q(1571),
+      q(0),
+      ],
+   q(birao) => [
+      q(1438),
+      q(0),
+      ],
+   q(birgit) => [
+      q(1475),
+      q(0),
+      ],
+   q(birhor) => [
+      q(1229),
+      q(0),
+      ],
+   q(biri) => [
+      q(1630),
+      q(0),
+      ],
+   q(biritai) => [
+      q(1413),
+      q(0),
+      ],
+   q(birked) => [
+      q(1431),
+      q(0),
+      ],
+   q(birri) => [
+      q(1533),
+      q(0),
+      ],
+   q(birrpayi) => [
+      q(7299),
+      q(0),
+      ],
+   q(birwa) => [
+      q(1432),
+      q(0),
+      ],
+   q(bisa) => [
+      q(1211),
+      q(1),
+      ],
+   q(biseni) => [
+      q(2935),
+      q(0),
+      ],
+   q(bishnupriya) => [
+      q(1396),
+      q(0),
+      ],
+   q(bishuo) => [
+      q(1549),
+      q(0),
+      ],
+   q(bisis) => [
+      q(1348),
+      q(0),
+      ],
+   q(bislama) => [
+      q(0056),
+      q(0),
+      ],
+   q(bisorio) => [
+      q(1223),
+      q(0),
+      ],
+   q(bissa) => [
+      q(1211),
+      q(0),
+      ],
+   q(bisu) => [
+      q(1621),
+      q(0),
+      ],
+   q(bit) => [
+      q(1170),
+      q(0),
+      ],
+   q(bitare) => [
+      q(1440),
+      q(0),
+      ],
+   q(bitur) => [
+      q(4155),
+      q(0),
+      ],
+   q(biwat) => [
+      q(1554),
+      q(0),
+      ],
+   q(biyo) => [
+      q(1603),
+      q(0),
+      ],
+   q(biyom) => [
+      q(1384),
+      q(0),
+      ],
+   q(blablanga) => [
+      q(1293),
+      q(0),
+      ],
+   q(blafe) => [
+      q(1143),
+      q(0),
+      ],
+   q(blagar) => [
+      q(1130),
+      q(0),
+      ],
+   q(blang) => [
+      q(1295),
+      q(0),
+      ],
+   q(blin) => [
+      q(0067),
+      q(0),
+      ],
+   q(bliss) => [
+      q(0478),
+      q(2),
+      ],
+   q(blissymbolics) => [
+      q(0478),
+      q(1),
+      ],
+   q(blissymbols) => [
+      q(0478),
+      q(0),
+      ],
+   q(bo (laos)) => [
+      q(1171),
+      q(0),
+      ],
+   q(bo (papua new guinea)) => [
+      q(1394),
+      q(0),
+      ],
+   q(bo-rukul) => [
+      q(4117),
+      q(0),
+      ],
+   q(bo-ung) => [
+      q(4598),
+      q(0),
+      ],
+   q(boano (maluku)) => [
+      q(1626),
+      q(0),
+      ],
+   q(boano (sulawesi)) => [
+      q(1624),
+      q(0),
+      ],
+   q(bobongko) => [
+      q(1162),
+      q(0),
+      ],
+   q(bobot) => [
+      q(1493),
+      q(0),
+      ],
+   q(bodo (central african republic)) => [
+      q(1373),
+      q(0),
+      ],
+   q(bodo (india)) => [
+      q(1444),
+      q(0),
+      ],
+   q(bodo gadaba) => [
+      q(2428),
+      q(0),
+      ],
+   q(bodo parja) => [
+      q(1110),
+      q(0),
+      ],
+   q(bofi) => [
+      q(1141),
+      q(0),
+      ],
+   q(boga) => [
+      q(1538),
+      q(0),
+      ],
+   q(bogaya) => [
+      q(1366),
+      q(0),
+      ],
+   q(boghom) => [
+      q(1514),
+      q(0),
+      ],
+   q(boguru) => [
+      q(1417),
+      q(0),
+      ],
+   q(bohtan neo-aramaic) => [
+      q(1198),
+      q(0),
+      ],
+   q(boikin) => [
+      q(1618),
+      q(0),
+      ],
+   q(bokha) => [
+      q(7605),
+      q(0),
+      ],
+   q(bokmal, norwegian) => [
+      q(0313),
+      q(0),
+      ],
+   q(boko (benin)) => [
+      q(1400),
+      q(0),
+      ],
+   q(boko (democratic republic of congo)) => [
+      q(1268),
+      q(0),
+      ],
+   q(bokobaru) => [
+      q(1509),
+      q(0),
+      ],
+   q(bokoto) => [
+      q(1108),
+      q(0),
+      ],
+   q(bokyi) => [
+      q(1277),
+      q(0),
+      ],
+   q(bola) => [
+      q(1342),
+      q(0),
+      ],
+   q(bolango) => [
+      q(1281),
+      q(0),
+      ],
+   q(bole) => [
+      q(1361),
+      q(0),
+      ],
+   q(bolgarian) => [
+      q(7302),
+      q(0),
+      ],
+   q(bolgo) => [
+      q(1531),
+      q(0),
+      ],
+   q(bolia) => [
+      q(1286),
+      q(0),
+      ],
+   q(bolinao) => [
+      q(6122),
+      q(0),
+      ],
+   q(bolivian sign language) => [
+      q(1528),
+      q(0),
+      ],
+   q(bolo) => [
+      q(1298),
+      q(0),
+      ],
+   q(boloki) => [
+      q(1272),
+      q(0),
+      ],
+   q(bolon) => [
+      q(1355),
+      q(0),
+      ],
+   q(bolondo) => [
+      q(1625),
+      q(0),
+      ],
+   q(bolongan) => [
+      q(1287),
+      q(0),
+      ],
+   q(bolyu) => [
+      q(5506),
+      q(0),
+      ],
+   q(bom) => [
+      q(1308),
+      q(0),
+      ],
+   q(boma) => [
+      q(1357),
+      q(0),
+      ],
+   q(bomboli) => [
+      q(1314),
+      q(0),
+      ],
+   q(bomboma) => [
+      q(1560),
+      q(0),
+      ],
+   q(bomitaba) => [
+      q(7899),
+      q(0),
+      ],
+   q(bomu) => [
+      q(1319),
+      q(0),
+      ],
+   q(bomwali) => [
+      q(1325),
+      q(0),
+      ],
+   q(bon gula) => [
+      q(2543),
+      q(0),
+      ],
+   q(bonan) => [
+      q(5410),
+      q(0),
+      ],
+   q(bondei) => [
+      q(1369),
+      q(0),
+      ],
+   q(bondo) => [
+      q(1157),
+      q(0),
+      ],
+   q(bondoukou kulango) => [
+      q(3770),
+      q(0),
+      ],
+   q(bondum dom dogon) => [
+      q(1972),
+      q(0),
+      ],
+   q(bonerate) => [
+      q(1328),
+      q(0),
+      ],
+   q(bonerif) => [
+      q(1347),
+      q(0),
+      ],
+   q(bonggi) => [
+      q(1095),
+      q(0),
+      ],
+   q(bonggo) => [
+      q(1378),
+      q(0),
+      ],
+   q(bongili) => [
+      q(1501),
+      q(0),
+      ],
+   q(bongo) => [
+      q(1368),
+      q(0),
+      ],
+   q(bongu) => [
+      q(1392),
+      q(0),
+      ],
+   q(bonjo) => [
+      q(1360),
+      q(0),
+      ],
+   q(bonkeng) => [
+      q(1523),
+      q(0),
+      ],
+   q(bonkiman) => [
+      q(1365),
+      q(0),
+      ],
+   q(bontok) => [
+      q(1330),
+      q(0),
+      ],
+   q(boo) => [
+      q(1400),
+      q(1),
+      ],
+   q(bookan) => [
+      q(1329),
+      q(0),
+      ],
+   q(boon) => [
+      q(1338),
+      q(0),
+      ],
+   q(boor) => [
+      q(1522),
+      q(0),
+      ],
+   q(bora) => [
+      q(1352),
+      q(0),
+      ],
+   q(borana-arsi-guji oromo) => [
+      q(2419),
+      q(0),
+      ],
+   q(border kuna) => [
+      q(3680),
+      q(0),
+      ],
+   q(borei) => [
+      q(2405),
+      q(0),
+      ],
+   q(borgu fulfulde) => [
+      q(2383),
+      q(0),
+      ],
+   q(borna (ethiopia)) => [
+      q(1556),
+      q(1),
+      ],
+   q(boro (ethiopia)) => [
+      q(1556),
+      q(0),
+      ],
+   q(boro (ghana)) => [
+      q(7560),
+      q(0),
+      ],
+   q(borong) => [
+      q(3611),
+      q(0),
+      ],
+   q(bororo) => [
+      q(1367),
+      q(0),
+      ],
+   q(boruca) => [
+      q(1434),
+      q(0),
+      ],
+   q(boselewa) => [
+      q(1547),
+      q(0),
+      ],
+   q(bosngun) => [
+      q(1415),
+      q(0),
+      ],
+   q(bosnian) => [
+      q(0059),
+      q(0),
+      ],
+   q(bote-majhi) => [
+      q(1312),
+      q(0),
+      ],
+   q(botlikh) => [
+      q(1379),
+      q(0),
+      ],
+   q(botolan sambal) => [
+      q(5913),
+      q(0),
+      ],
+   q(bouna kulango) => [
+      q(4941),
+      q(0),
+      ],
+   q(bouyei) => [
+      q(5383),
+      q(0),
+      ],
+   q(bozaba) => [
+      q(1627),
+      q(0),
+      ],
+   q(bragat) => [
+      q(0819),
+      q(0),
+      ],
+   q(brahui) => [
+      q(1428),
+      q(0),
+      ],
+   q(braj) => [
+      q(0060),
+      q(0),
+      ],
+   q(brazilian sign language) => [
+      q(1631),
+      q(0),
+      ],
+   q(brem) => [
+      q(1508),
+      q(0),
+      ],
+   q(breri) => [
+      q(1437),
+      q(0),
+      ],
+   q(breton) => [
+      q(0061),
+      q(0),
+      ],
+   q(bribri) => [
+      q(1616),
+      q(0),
+      ],
+   q(brithenig) => [
+      q(1632),
+      q(0),
+      ],
+   q(british sign language) => [
+      q(1144),
+      q(0),
+      ],
+   q(brokkat) => [
+      q(1435),
+      q(0),
+      ],
+   q(brokpake) => [
+      q(6004),
+      q(0),
+      ],
+   q(brokskat) => [
+      q(1263),
+      q(0),
+      ],
+   q(brooke's point palawano) => [
+      q(5505),
+      q(0),
+      ],
+   q(broome pearling lugger pidgin) => [
+      q(1383),
+      q(0),
+      ],
+   q(brunei) => [
+      q(3721),
+      q(0),
+      ],
+   q(brunei bisaya) => [
+      q(1448),
+      q(0),
+      ],
+   q(bu) => [
+      q(3094),
+      q(0),
+      ],
+   q(bu-nao bunu) => [
+      q(1564),
+      q(0),
+      ],
+   q(bua) => [
+      q(1495),
+      q(0),
+      ],
+   q(bualkhaw chin) => [
+      q(1669),
+      q(0),
+      ],
+   q(buamu) => [
+      q(1372),
+      q(0),
+      ],
+   q(bube) => [
+      q(1518),
+      q(0),
+      ],
+   q(bubi) => [
+      q(1513),
+      q(0),
+      ],
+   q(bubia) => [
+      q(1061),
+      q(0),
+      ],
+   q(budeh stieng) => [
+      q(6272),
+      q(0),
+      ],
+   q(budibud) => [
+      q(1484),
+      q(0),
+      ],
+   q(budong-budong) => [
+      q(1112),
+      q(0),
+      ],
+   q(budu) => [
+      q(1511),
+      q(0),
+      ],
+   q(budukh) => [
+      q(1099),
+      q(0),
+      ],
+   q(buduma) => [
+      q(1101),
+      q(0),
+      ],
+   q(budza) => [
+      q(1231),
+      q(0),
+      ],
+   q(bugan) => [
+      q(1045),
+      q(0),
+      ],
+   q(bugawac) => [
+      q(1503),
+      q(0),
+      ],
+   q(bughotu) => [
+      q(1179),
+      q(0),
+      ],
+   q(buginese) => [
+      q(0064),
+      q(0),
+      ],
+   q(buglere) => [
+      q(5887),
+      q(0),
+      ],
+   q(bugun) => [
+      q(1167),
+      q(0),
+      ],
+   q(buhi'non bikol) => [
+      q(6857),
+      q(0),
+      ],
+   q(buhid) => [
+      q(1273),
+      q(0),
+      ],
+   q(buhutu) => [
+      q(1574),
+      q(0),
+      ],
+   q(bukar-sadung bidayuh) => [
+      q(5955),
+      q(0),
+      ],
+   q(bukat) => [
+      q(1527),
+      q(0),
+      ],
+   q(bukharic) => [
+      q(1193),
+      q(0),
+      ],
+   q(bukit malay) => [
+      q(1536),
+      q(0),
+      ],
+   q(bukitan) => [
+      q(1266),
+      q(0),
+      ],
+   q(bukiyip) => [
+      q(0837),
+      q(0),
+      ],
+   q(buksa) => [
+      q(6549),
+      q(0),
+      ],
+   q(bukusu) => [
+      q(1577),
+      q(0),
+      ],
+   q(bukwen) => [
+      q(1516),
+      q(0),
+      ],
+   q(bulgarian) => [
+      q(0065),
+      q(0),
+      ],
+   q(bulgarian sign language) => [
+      q(1410),
+      q(0),
+      ],
+   q(bulgebi) => [
+      q(1318),
+      q(0),
+      ],
+   q(buli (ghana)) => [
+      q(1562),
+      q(0),
+      ],
+   q(buli (indonesia)) => [
+      q(1629),
+      q(0),
+      ],
+   q(bullom so) => [
+      q(1515),
+      q(0),
+      ],
+   q(bulo stieng) => [
+      q(6261),
+      q(0),
+      ],
+   q(bulu (cameroon)) => [
+      q(1504),
+      q(0),
+      ],
+   q(bulu (papua new guinea)) => [
+      q(1241),
+      q(0),
+      ],
+   q(bum) => [
+      q(1324),
+      q(0),
+      ],
+   q(bumaji) => [
+      q(1604),
+      q(0),
+      ],
+   q(bumang) => [
+      q(1532),
+      q(0),
+      ],
+   q(bumbita arapesh) => [
+      q(0827),
+      q(0),
+      ],
+   q(bumthangkha) => [
+      q(3402),
+      q(0),
+      ],
+   q(bun) => [
+      q(1512),
+      q(0),
+      ],
+   q(buna) => [
+      q(1530),
+      q(0),
+      ],
+   q(bunaba) => [
+      q(1074),
+      q(0),
+      ],
+   q(bunak) => [
+      q(1149),
+      q(0),
+      ],
+   q(bunama) => [
+      q(1092),
+      q(0),
+      ],
+   q(bundeli) => [
+      q(1345),
+      q(0),
+      ],
+   q(bung) => [
+      q(1401),
+      q(0),
+      ],
+   q(bungain) => [
+      q(1510),
+      q(0),
+      ],
+   q(bunganditj) => [
+      q(7297),
+      q(0),
+      ],
+   q(bungku) => [
+      q(1278),
+      q(0),
+      ],
+   q(bungu) => [
+      q(7252),
+      q(0),
+      ],
+   q(bunoge dogon) => [
+      q(2005),
+      q(0),
+      ],
+   q(bunun) => [
+      q(1340),
+      q(0),
+      ],
+   q(buol) => [
+      q(1283),
+      q(0),
+      ],
+   q(bura-pabir) => [
+      q(1559),
+      q(0),
+      ],
+   q(burak) => [
+      q(1607),
+      q(0),
+      ],
+   q(buraka) => [
+      q(1259),
+      q(0),
+      ],
+   q(burarra) => [
+      q(1534),
+      q(0),
+      ],
+   q(burate) => [
+      q(1478),
+      q(0),
+      ],
+   q(burduna) => [
+      q(1580),
+      q(0),
+      ],
+   q(bure) => [
+      q(1524),
+      q(0),
+      ],
+   q(buriat) => [
+      q(0063),
+      q(0),
+      ],
+   q(burji) => [
+      q(1238),
+      q(0),
+      ],
+   q(burmbar) => [
+      q(7047),
+      q(0),
+      ],
+   q(burmese) => [
+      q(0066),
+      q(0),
+      ],
+   q(burmeso) => [
+      q(1633),
+      q(0),
+      ],
+   q(buru (indonesia)) => [
+      q(4292),
+      q(0),
+      ],
+   q(buru (nigeria)) => [
+      q(1419),
+      q(0),
+      ],
+   q(burui) => [
+      q(1445),
+      q(0),
+      ],
+   q(burumakok) => [
+      q(0705),
+      q(0),
+      ],
+   q(burun) => [
+      q(1097),
+      q(0),
+      ],
+   q(burunge) => [
+      q(1107),
+      q(0),
+      ],
+   q(burushaski) => [
+      q(1456),
+      q(0),
+      ],
+   q(burusu) => [
+      q(1414),
+      q(0),
+      ],
+   q(buruwai) => [
+      q(0893),
+      q(0),
+      ],
+   q(busa) => [
+      q(1412),
+      q(0),
+      ],
+   q(busam) => [
+      q(1585),
+      q(0),
+      ],
+   q(busami) => [
+      q(1458),
+      q(0),
+      ],
+   q(busang kayan) => [
+      q(1142),
+      q(0),
+      ],
+   q(bushi) => [
+      q(1496),
+      q(0),
+      ],
+   q(bushoong) => [
+      q(1499),
+      q(0),
+      ],
+   q(businenge tongo) => [
+      q(2066),
+      q(1),
+      ],
+   q(buso) => [
+      q(1460),
+      q(0),
+      ],
+   q(busoa) => [
+      q(1507),
+      q(0),
+      ],
+   q(bussa) => [
+      q(2130),
+      q(0),
+      ],
+   q(busuu) => [
+      q(1249),
+      q(0),
+      ],
+   q(butbut kalinga) => [
+      q(3743),
+      q(0),
+      ],
+   q(butmas-tur) => [
+      q(1344),
+      q(0),
+      ],
+   q(butuanon) => [
+      q(1491),
+      q(0),
+      ],
+   q(buwal) => [
+      q(1202),
+      q(0),
+      ],
+   q(buxinhua) => [
+      q(1170),
+      q(1),
+      ],
+   q(buyu) => [
+      q(1598),
+      q(0),
+      ],
+   q(buyuan jinuo) => [
+      q(3106),
+      q(0),
+      ],
+   q(bwa) => [
+      q(1563),
+      q(0),
+      ],
+   q(bwaidoka) => [
+      q(1545),
+      q(0),
+      ],
+   q(bwanabwana) => [
+      q(6739),
+      q(0),
+      ],
+   q(bwatoo) => [
+      q(1542),
+      q(0),
+      ],
+   q(bwe karen) => [
+      q(1546),
+      q(0),
+      ],
+   q(bwela) => [
+      q(1553),
+      q(0),
+      ],
+   q(bwile) => [
+      q(1544),
+      q(0),
+      ],
+   q(bwisi) => [
+      q(1566),
+      q(0),
+      ],
+   q(byangsi) => [
+      q(1119),
+      q(0),
+      ],
+   q(byep) => [
+      q(4352),
+      q(0),
+      ],
+   q(c'lela) => [
+      q(2139),
+      q(0),
+      ],
+   q(caac) => [
+      q(4546),
+      q(0),
+      ],
+   q(cabecar) => [
+      q(1751),
+      q(0),
+      ],
+   q(cabiyari) => [
+      q(1660),
+      q(0),
+      ],
+   q(cacaloxtepec mixtec) => [
+      q(4316),
+      q(0),
+      ],
+   q(cacaopera) => [
+      q(1691),
+      q(0),
+      ],
+   q(cacgia roglai) => [
+      q(5838),
+      q(0),
+      ],
+   q(cacua) => [
+      q(1677),
+      q(0),
+      ],
+   q(caddo) => [
+      q(0068),
+      q(0),
+      ],
+   q(caddoan languages) => [
+      q(0498),
+      q(0),
+      ],
+   q(cafundo creole) => [
+      q(1682),
+      q(0),
+      ],
+   q(cagua) => [
+      q(1665),
+      q(0),
+      ],
+   q(cahuarano) => [
+      q(1645),
+      q(0),
+      ],
+   q(cahuilla) => [
+      q(1724),
+      q(0),
+      ],
+   q(cahungwarya) => [
+      q(4735),
+      q(0),
+      ],
+   q(cajamarca quechua) => [
+      q(5701),
+      q(0),
+      ],
+   q(cajatambo north lima quechua) => [
+      q(5706),
+      q(0),
+      ],
+   q(cajonos zapotec) => [
+      q(7808),
+      q(0),
+      ],
+   q(cajun french) => [
+      q(2371),
+      q(0),
+      ],
+   q(caka) => [
+      q(1766),
+      q(0),
+      ],
+   q(cakchiquel) => [
+      q(1647),
+      q(1),
+      ],
+   q(cakchiquel-quiche mixed language) => [
+      q(1768),
+      q(0),
+      ],
+   q(cakfem-mushere) => [
+      q(1767),
+      q(0),
+      ],
+   q(calamian tagbanwa) => [
+      q(6390),
+      q(0),
+      ],
+   q(calderon highland quichua) => [
+      q(5682),
+      q(0),
+      ],
+   q(callawalla) => [
+      q(1656),
+      q(0),
+      ],
+   q(calo) => [
+      q(5820),
+      q(0),
+      ],
+   q(caluyanun) => [
+      q(1781),
+      q(0),
+      ],
+   q(cameroon mambila) => [
+      q(4173),
+      q(0),
+      ],
+   q(cameroon pidgin) => [
+      q(7111),
+      q(0),
+      ],
+   q(camling) => [
+      q(5737),
+      q(0),
+      ],
+   q(campalagian) => [
+      q(1788),
+      q(0),
+      ],
+   q(campidanese sardinian) => [
+      q(6220),
+      q(0),
+      ],
+   q(camsa) => [
+      q(3190),
+      q(0),
+      ],
+   q(camtho) => [
+      q(1794),
+      q(0),
+      ],
+   q(camunic) => [
+      q(7309),
+      q(0),
+      ],
+   q(canar highland quichua) => [
+      q(5729),
+      q(0),
+      ],
+   q(candoshi-shapra) => [
+      q(1676),
+      q(0),
+      ],
+   q(canela) => [
+      q(5746),
+      q(0),
+      ],
+   q(canichana) => [
+      q(1659),
+      q(0),
+      ],
+   q(cantonese) => [
+      q(7766),
+      q(1),
+      ],
+   q(cao lan) => [
+      q(4370),
+      q(0),
+      ],
+   q(cao miao) => [
+      q(1826),
+      q(0),
+      ],
+   q(capanahua) => [
+      q(3181),
+      q(0),
+      ],
+   q(capiznon) => [
+      q(1838),
+      q(0),
+      ],
+   q(cappadocian greek) => [
+      q(1834),
+      q(0),
+      ],
+   q(caquinte) => [
+      q(1824),
+      q(0),
+      ],
+   q(car nicobarese) => [
+      q(1653),
+      q(0),
+      ],
+   q(cara) => [
+      q(1712),
+      q(0),
+      ],
+   q(carabayo) => [
+      q(1679),
+      q(0),
+      ],
+   q(caramanta) => [
+      q(1848),
+      q(0),
+      ],
+   q(carapana) => [
+      q(1661),
+      q(0),
+      ],
+   q(carian) => [
+      q(7317),
+      q(0),
+      ],
+   q(caribbean hindustani) => [
+      q(2808),
+      q(0),
+      ],
+   q(caribbean javanese) => [
+      q(3166),
+      q(0),
+      ],
+   q(carijona) => [
+      q(1662),
+      q(0),
+      ],
+   q(carolina algonquian) => [
+      q(1858),
+      q(0),
+      ],
+   q(carolinian) => [
+      q(1648),
+      q(0),
+      ],
+   q(carpathian romani) => [
+      q(5807),
+      q(0),
+      ],
+   q(carrier) => [
+      q(1863),
+      q(0),
+      ],
+   q(cashibo-cacataibo) => [
+      q(1673),
+      q(0),
+      ],
+   q(cashinahua) => [
+      q(1674),
+      q(0),
+      ],
+   q(casiguran dumagat agta) => [
+      q(2006),
+      q(0),
+      ],
+   q(castilian) => [
+      q(0401),
+      q(1),
+      ],
+   q(casuarina coast asmat) => [
+      q(0887),
+      q(0),
+      ],
+   q(catalan) => [
+      q(0071),
+      q(0),
+      ],
+   q(catalan sign language) => [
+      q(1867),
+      q(0),
+      ],
+   q(catawba) => [
+      q(1719),
+      q(0),
+      ],
+   q(cauca) => [
+      q(1680),
+      q(0),
+      ],
+   q(caucasian languages) => [
+      q(0072),
+      q(0),
+      ],
+   q(cavinena) => [
+      q(1655),
+      q(0),
+      ],
+   q(cayubaba) => [
+      q(1931),
+      q(0),
+      ],
+   q(cayuga) => [
+      q(1658),
+      q(0),
+      ],
+   q(cayuse) => [
+      q(7322),
+      q(0),
+      ],
+   q(cebaara senoufo) => [
+      q(5968),
+      q(0),
+      ],
+   q(cebuano) => [
+      q(0073),
+      q(0),
+      ],
+   q(celtiberian) => [
+      q(7310),
+      q(0),
+      ],
+   q(celtic languages) => [
+      q(0074),
+      q(0),
+      ],
+   q(cemuhi) => [
+      q(1649),
+      q(0),
+      ],
+   q(cen) => [
+      q(1709),
+      q(0),
+      ],
+   q(central american indian languages) => [
+      q(0069),
+      q(0),
+      ],
+   q(central asmat) => [
+      q(1804),
+      q(0),
+      ],
+   q(central atlas tamazight) => [
+      q(6848),
+      q(0),
+      ],
+   q(central awyu) => [
+      q(0980),
+      q(0),
+      ],
+   q(central aymara) => [
+      q(1006),
+      q(0),
+      ],
+   q(central bai) => [
+      q(1064),
+      q(0),
+      ],
+   q(central berawan) => [
+      q(7829),
+      q(0),
+      ],
+   q(central bikol) => [
+      q(1075),
+      q(0),
+      ],
+   q(central bontok) => [
+      q(3821),
+      q(0),
+      ],
+   q(central cagayan agta) => [
+      q(0670),
+      q(0),
+      ],
+   q(central dusun) => [
+      q(2164),
+      q(0),
+      ],
+   q(central grebo) => [
+      q(2627),
+      q(0),
+      ],
+   q(central hongshuihe zhuang) => [
+      q(7834),
+      q(0),
+      ],
+   q(central huasteca nahuatl) => [
+      q(4769),
+      q(0),
+      ],
+   q(central huishui hmong) => [
+      q(2779),
+      q(0),
+      ],
+   q(central huishui miao) => [
+      q(2779),
+      q(1),
+      ],
+   q(central kanuri) => [
+      q(3482),
+      q(0),
+      ],
+   q(central khmer) => [
+      q(0222),
+      q(0),
+      ],
+   q(central kurdish) => [
+      q(1755),
+      q(0),
+      ],
+   q(central lalo) => [
+      q(7791),
+      q(1),
+      ],
+   q(central maewo) => [
+      q(4636),
+      q(0),
+      ],
+   q(central malay) => [
+      q(5612),
+      q(0),
+      ],
+   q(central malayo-polynesian languages) => [
+      q(0519),
+      q(0),
+      ],
+   q(central masela) => [
+      q(4672),
+      q(0),
+      ],
+   q(central mashan hmong) => [
+      q(2789),
+      q(0),
+      ],
+   q(central mashan miao) => [
+      q(2789),
+      q(1),
+      ],
+   q(central mazahua) => [
+      q(4127),
+      q(0),
+      ],
+   q(central melanau) => [
+      q(4212),
+      q(0),
+      ],
+   q(central mnong) => [
+      q(1791),
+      q(0),
+      ],
+   q(central nahuatl) => [
+      q(4871),
+      q(0),
+      ],
+   q(central nicobarese) => [
+      q(4763),
+      q(0),
+      ],
+   q(central ojibwa) => [
+      q(5219),
+      q(0),
+      ],
+   q(central okinawan) => [
+      q(5885),
+      q(0),
+      ],
+   q(central palawano) => [
+      q(5488),
+      q(0),
+      ],
+   q(central pame) => [
+      q(5376),
+      q(0),
+      ],
+   q(central pashto) => [
+      q(5624),
+      q(0),
+      ],
+   q(central pomo) => [
+      q(5563),
+      q(0),
+      ],
+   q(central puebla nahuatl) => [
+      q(4782),
+      q(0),
+      ],
+   q(central sama) => [
+      q(6123),
+      q(0),
+      ],
+   q(central siberian yupik) => [
+      q(2300),
+      q(0),
+      ],
+   q(central sierra miwok) => [
+      q(1877),
+      q(0),
+      ],
+   q(central subanen) => [
+      q(6336),
+      q(0),
+      ],
+   q(central sudanic languages) => [
+      q(0499),
+      q(0),
+      ],
+   q(central tagbanwa) => [
+      q(6490),
+      q(0),
+      ],
+   q(central tarahumara) => [
+      q(6372),
+      q(0),
+      ],
+   q(central tunebo) => [
+      q(6765),
+      q(0),
+      ],
+   q(central yupik) => [
+      q(2301),
+      q(0),
+      ],
+   q(central-eastern niger fulfulde) => [
+      q(2390),
+      q(0),
+      ],
+   q(centuum) => [
+      q(1710),
+      q(0),
+      ],
+   q(cerma) => [
+      q(1785),
+      q(0),
+      ],
+   q(chabu) => [
+      q(5907),
+      q(0),
+      ],
+   q(chachapoyas quechua) => [
+      q(5687),
+      q(0),
+      ],
+   q(chachi) => [
+      q(1666),
+      q(0),
+      ],
+   q(chacobo) => [
+      q(1651),
+      q(0),
+      ],
+   q(chadian arabic) => [
+      q(6028),
+      q(0),
+      ],
+   q(chadian sign language) => [
+      q(1703),
+      q(0),
+      ],
+   q(chadic languages) => [
+      q(0497),
+      q(0),
+      ],
+   q(chadong) => [
+      q(1704),
+      q(0),
+      ],
+   q(chagatai) => [
+      q(0078),
+      q(0),
+      ],
+   q(chaima) => [
+      q(1742),
+      q(0),
+      ],
+   q(chak) => [
+      q(1756),
+      q(0),
+      ],
+   q(chakali) => [
+      q(1774),
+      q(0),
+      ],
+   q(chakma) => [
+      q(1690),
+      q(0),
+      ],
+   q(chala) => [
+      q(1777),
+      q(0),
+      ],
+   q(chaldean neo-aramaic) => [
+      q(1771),
+      q(0),
+      ],
+   q(chalikha) => [
+      q(6480),
+      q(0),
+      ],
+   q(chamacoco) => [
+      q(1707),
+      q(0),
+      ],
+   q(chamalal) => [
+      q(1746),
+      q(0),
+      ],
+   q(chamari) => [
+      q(1695),
+      q(0),
+      ],
+   q(chambeali) => [
+      q(1696),
+      q(0),
+      ],
+   q(chambri) => [
+      q(1650),
+      q(0),
+      ],
+   q(chamic languages) => [
+      q(0089),
+      q(0),
+      ],
+   q(chamicuro) => [
+      q(1681),
+      q(0),
+      ],
+   q(chamorro) => [
+      q(0075),
+      q(0),
+      ],
+   q(chane) => [
+      q(1646),
+      q(0),
+      ],
+   q(chang naga) => [
+      q(4742),
+      q(0),
+      ],
+   q(changriwa) => [
+      q(1715),
+      q(0),
+      ],
+   q(changthang) => [
+      q(1795),
+      q(0),
+      ],
+   q(chantyal) => [
+      q(1728),
+      q(0),
+      ],
+   q(chara) => [
+      q(1844),
+      q(0),
+      ],
+   q(chaudangsi) => [
+      q(1700),
+      q(0),
+      ],
+   q(chaura) => [
+      q(1861),
+      q(0),
+      ],
+   q(chavacano) => [
+      q(1668),
+      q(0),
+      ],
+   q(chayahuita) => [
+      q(1675),
+      q(0),
+      ],
+   q(chayuco mixtec) => [
+      q(4305),
+      q(0),
+      ],
+   q(chazumba mixtec) => [
+      q(7508),
+      q(0),
+      ],
+   q(che) => [
+      q(5869),
+      q(0),
+      ],
+   q(chechen) => [
+      q(0077),
+      q(0),
+      ],
+   q(cheke holo) => [
+      q(4518),
+      q(0),
+      ],
+   q(chemakum) => [
+      q(7312),
+      q(0),
+      ],
+   q(chenapian) => [
+      q(1749),
+      q(0),
+      ],
+   q(chenchu) => [
+      q(1693),
+      q(0),
+      ],
+   q(chenoua) => [
+      q(1806),
+      q(0),
+      ],
+   q(chepang) => [
+      q(1699),
+      q(0),
+      ],
+   q(chepya) => [
+      q(7615),
+      q(0),
+      ],
+   q(cheq wong) => [
+      q(1928),
+      q(1),
+      ],
+   q(cherepon) => [
+      q(1836),
+      q(0),
+      ],
+   q(cherokee) => [
+      q(0085),
+      q(0),
+      ],
+   q(chesu) => [
+      q(7612),
+      q(0),
+      ],
+   q(chetco) => [
+      q(1889),
+      q(0),
+      ],
+   q(chewa) => [
+      q(0321),
+      q(1),
+      ],
+   q(chewong) => [
+      q(1928),
+      q(0),
+      ],
+   q(cheyenne) => [
+      q(0088),
+      q(0),
+      ],
+   q(chhattisgarhi) => [
+      q(2802),
+      q(0),
+      ],
+   q(chhintange) => [
+      q(1896),
+      q(0),
+      ],
+   q(chhulung) => [
+      q(1916),
+      q(0),
+      ],
+   q(chiangmai sign language) => [
+      q(1868),
+      q(0),
+      ],
+   q(chiapanec) => [
+      q(1739),
+      q(0),
+      ],
+   q(chibcha) => [
+      q(0076),
+      q(0),
+      ],
+   q(chibchan languages) => [
+      q(0494),
+      q(0),
+      ],
+   q(chicahuaxtla triqui) => [
+      q(6705),
+      q(0),
+      ],
+   q(chichewa) => [
+      q(0321),
+      q(0),
+      ],
+   q(chichicapan zapotec) => [
+      q(7935),
+      q(0),
+      ],
+   q(chichimeca-jonaz) => [
+      q(5411),
+      q(0),
+      ],
+   q(chichonyi-chidzihana-chikauma) => [
+      q(1816),
+      q(1),
+      ],
+   q(chickasaw) => [
+      q(1732),
+      q(0),
+      ],
+   q(chicomuceltec) => [
+      q(1810),
+      q(0),
+      ],
+   q(chidigo) => [
+      q(2040),
+      q(1),
+      ],
+   q(chiduruma) => [
+      q(2175),
+      q(1),
+      ],
+   q(chiga) => [
+      q(1717),
+      q(0),
+      ],
+   q(chigmecatitlan mixtec) => [
+      q(4306),
+      q(0),
+      ],
+   q(chilcotin) => [
+      q(1770),
+      q(0),
+      ],
+   q(chilean quechua) => [
+      q(1843),
+      q(0),
+      ],
+   q(chilean sign language) => [
+      q(1871),
+      q(0),
+      ],
+   q(chilisso) => [
+      q(1773),
+      q(0),
+      ],
+   q(chiltepec chinantec) => [
+      q(1866),
+      q(0),
+      ],
+   q(chimakum) => [
+      q(7312),
+      q(1),
+      ],
+   q(chimalapa zoque) => [
+      q(7908),
+      q(0),
+      ],
+   q(chimariko) => [
+      q(1733),
+      q(0),
+      ],
+   q(chimborazo highland quichua) => [
+      q(5684),
+      q(0),
+      ],
+   q(chimila) => [
+      q(1664),
+      q(0),
+      ],
+   q(china buriat) => [
+      q(1586),
+      q(0),
+      ],
+   q(chinali) => [
+      q(1735),
+      q(0),
+      ],
+   q(chinbon chin) => [
+      q(1796),
+      q(0),
+      ],
+   q(chincha quechua) => [
+      q(5722),
+      q(0),
+      ],
+   q(chinese) => [
+      q(0079),
+      q(0),
+      ],
+   q(chinese (family)) => [
+      q(0533),
+      q(0),
+      ],
+   q(chinese pidgin english) => [
+      q(1835),
+      q(0),
+      ],
+   q(chinese sign language) => [
+      q(1876),
+      q(0),
+      ],
+   q(chini) => [
+      q(0643),
+      q(1),
+      ],
+   q(chinook) => [
+      q(1722),
+      q(0),
+      ],
+   q(chinook jargon) => [
+      q(0082),
+      q(0),
+      ],
+   q(chipaya) => [
+      q(1652),
+      q(0),
+      ],
+   q(chipewyan) => [
+      q(0084),
+      q(0),
+      ],
+   q(chipiajes) => [
+      q(1663),
+      q(0),
+      ],
+   q(chippewa) => [
+      q(1741),
+      q(0),
+      ],
+   q(chiquian ancash quechua) => [
+      q(5721),
+      q(0),
+      ],
+   q(chiquihuitlan mazatec) => [
+      q(4121),
+      q(0),
+      ],
+   q(chiquitano) => [
+      q(1657),
+      q(0),
+      ],
+   q(chiripa) => [
+      q(4863),
+      q(0),
+      ],
+   q(chiru) => [
+      q(1694),
+      q(0),
+      ],
+   q(chitimacha) => [
+      q(1895),
+      q(0),
+      ],
+   q(chitkuli kinnauri) => [
+      q(1736),
+      q(0),
+      ],
+   q(chittagonian) => [
+      q(1892),
+      q(0),
+      ],
+   q(chitwania tharu) => [
+      q(6499),
+      q(0),
+      ],
+   q(choapan zapotec) => [
+      q(7916),
+      q(0),
+      ],
+   q(chocangacakha) => [
+      q(1718),
+      q(0),
+      ],
+   q(chochotec) => [
+      q(1830),
+      q(0),
+      ],
+   q(choctaw) => [
+      q(0083),
+      q(0),
+      ],
+   q(chodri) => [
+      q(1697),
+      q(0),
+      ],
+   q(chokri naga) => [
+      q(5055),
+      q(0),
+      ],
+   q(chokwe) => [
+      q(1747),
+      q(0),
+      ],
+   q(chol) => [
+      q(1901),
+      q(0),
+      ],
+   q(cholon) => [
+      q(1726),
+      q(0),
+      ],
+   q(chong) => [
+      q(1815),
+      q(0),
+      ],
+   q(choni) => [
+      q(1692),
+      q(0),
+      ],
+   q(chonyi-dzihana-kauma) => [
+      q(1816),
+      q(0),
+      ],
+   q(chopi) => [
+      q(1683),
+      q(0),
+      ],
+   q(chorasmian) => [
+      q(7316),
+      q(0),
+      ],
+   q(chorti) => [
+      q(1639),
+      q(0),
+      ],
+   q(chothe naga) => [
+      q(4780),
+      q(0),
+      ],
+   q(chrau) => [
+      q(1862),
+      q(0),
+      ],
+   q(chru) => [
+      q(1744),
+      q(0),
+      ],
+   q(chuang) => [
+      q(0481),
+      q(1),
+      ],
+   q(chuanqiandian cluster miao) => [
+      q(1842),
+      q(0),
+      ],
+   q(chuave) => [
+      q(1753),
+      q(0),
+      ],
+   q(chug) => [
+      q(1922),
+      q(0),
+      ],
+   q(chuj) => [
+      q(1641),
+      q(0),
+      ],
+   q(chuka) => [
+      q(1907),
+      q(0),
+      ],
+   q(chukot) => [
+      q(1763),
+      q(0),
+      ],
+   q(chukwa) => [
+      q(1920),
+      q(0),
+      ],
+   q(chulym) => [
+      q(1782),
+      q(0),
+      ],
+   q(chumburung) => [
+      q(4781),
+      q(0),
+      ],
+   q(churahi) => [
+      q(1698),
+      q(0),
+      ],
+   q(church slavic) => [
+      q(0086),
+      q(0),
+      ],
+   q(church slavonic) => [
+      q(0086),
+      q(2),
+      ],
+   q(chut) => [
+      q(5928),
+      q(0),
+      ],
+   q(chuukese) => [
+      q(0080),
+      q(0),
+      ],
+   q(chuvantsy) => [
+      q(7320),
+      q(0),
+      ],
+   q(chuvash) => [
+      q(0087),
+      q(0),
+      ],
+   q(chuwabu) => [
+      q(1727),
+      q(0),
+      ],
+   q(ci gbe) => [
+      q(1731),
+      q(0),
+      ],
+   q(cia-cia) => [
+      q(1730),
+      q(0),
+      ],
+   q(cibak) => [
+      q(1757),
+      q(0),
+      ],
+   q(cicipu) => [
+      q(0968),
+      q(0),
+      ],
+   q(cimbrian) => [
+      q(1737),
+      q(0),
+      ],
+   q(cinda-regi-tiyal) => [
+      q(1702),
+      q(0),
+      ],
+   q(cineni) => [
+      q(1734),
+      q(0),
+      ],
+   q(cinta larga) => [
+      q(1738),
+      q(0),
+      ],
+   q(cisalpine gaulish) => [
+      q(7311),
+      q(0),
+      ],
+   q(cishingini) => [
+      q(0891),
+      q(0),
+      ],
+   q(citak) => [
+      q(6826),
+      q(0),
+      ],
+   q(ciwogai) => [
+      q(6478),
+      q(0),
+      ],
+   q(clallam) => [
+      q(1778),
+      q(0),
+      ],
+   q(classical armenian) => [
+      q(7313),
+      q(0),
+      ],
+   q(classical mandaic) => [
+      q(4693),
+      q(0),
+      ],
+   q(classical mongolian) => [
+      q(1786),
+      q(0),
+      ],
+   q(classical nahuatl) => [
+      q(4770),
+      q(0),
+      ],
+   q(classical nepal bhasa) => [
+      q(0320),
+      q(2),
+      ],
+   q(classical newari) => [
+      q(0320),
+      q(0),
+      ],
+   q(classical quechua) => [
+      q(5716),
+      q(0),
+      ],
+   q(classical syriac) => [
+      q(0414),
+      q(0),
+      ],
+   q(classical tibetan) => [
+      q(7318),
+      q(0),
+      ],
+   q(coahuilteco) => [
+      q(7321),
+      q(0),
+      ],
+   q(coast miwok) => [
+      q(1873),
+      q(0),
+      ],
+   q(coastal kadazan) => [
+      q(3776),
+      q(0),
+      ],
+   q(coastal konjo) => [
+      q(3380),
+      q(0),
+      ],
+   q(coatecas altas zapotec) => [
+      q(7833),
+      q(0),
+      ],
+   q(coatepec nahuatl) => [
+      q(4739),
+      q(0),
+      ],
+   q(coatlan mixe) => [
+      q(4167),
+      q(0),
+      ],
+   q(coatlan zapotec) => [
+      q(7932),
+      q(0),
+      ],
+   q(coatzospan mixtec) => [
+      q(4320),
+      q(0),
+      ],
+   q(cocama-cocamilla) => [
+      q(1812),
+      q(0),
+      ],
+   q(cochimi) => [
+      q(1817),
+      q(0),
+      ],
+   q(cocopa) => [
+      q(1811),
+      q(0),
+      ],
+   q(cocos islands malay) => [
+      q(1809),
+      q(0),
+      ],
+   q(coeur d'alene) => [
+      q(1847),
+      q(0),
+      ],
+   q(cofan) => [
+      q(1821),
+      q(0),
+      ],
+   q(cogui) => [
+      q(3510),
+      q(0),
+      ],
+   q(col) => [
+      q(3928),
+      q(0),
+      ],
+   q(colombian sign language) => [
+      q(1878),
+      q(0),
+      ],
+   q(colonia tovar german) => [
+      q(2451),
+      q(0),
+      ],
+   q(colorado) => [
+      q(1814),
+      q(0),
+      ],
+   q(columbia-wenatchi) => [
+      q(1819),
+      q(0),
+      ],
+   q(comaltepec chinantec) => [
+      q(1689),
+      q(0),
+      ],
+   q(comanche) => [
+      q(1820),
+      q(0),
+      ],
+   q(comecrudo) => [
+      q(7314),
+      q(0),
+      ],
+   q(como karim) => [
+      q(1713),
+      q(0),
+      ],
+   q(comox) => [
+      q(1822),
+      q(0),
+      ],
+   q(con) => [
+      q(1803),
+      q(0),
+      ],
+   q(congo swahili) => [
+      q(6301),
+      q(0),
+      ],
+   q(cook islands maori) => [
+      q(0356),
+      q(1),
+      ],
+   q(coong) => [
+      q(1797),
+      q(0),
+      ],
+   q(coos) => [
+      q(1887),
+      q(0),
+      ],
+   q(copainala zoque) => [
+      q(7907),
+      q(0),
+      ],
+   q(copala triqui) => [
+      q(6690),
+      q(0),
+      ],
+   q(coptic) => [
+      q(0090),
+      q(0),
+      ],
+   q(coquille) => [
+      q(1823),
+      q(0),
+      ],
+   q(cori) => [
+      q(1864),
+      q(0),
+      ],
+   q(cornish) => [
+      q(0091),
+      q(0),
+      ],
+   q(corongo ancash quechua) => [
+      q(5715),
+      q(0),
+      ],
+   q(corsican) => [
+      q(0092),
+      q(0),
+      ],
+   q(costa rican sign language) => [
+      q(1881),
+      q(0),
+      ],
+   q(cotabato manobo) => [
+      q(4555),
+      q(0),
+      ],
+   q(cotoname) => [
+      q(7315),
+      q(0),
+      ],
+   q(cowlitz) => [
+      q(1827),
+      q(0),
+      ],
+   q(coxima) => [
+      q(3521),
+      q(0),
+      ],
+   q(coyaima) => [
+      q(1829),
+      q(0),
+      ],
+   q(coyotepec popoloca) => [
+      q(5367),
+      q(0),
+      ],
+   q(coyutla totonac) => [
+      q(6636),
+      q(0),
+      ],
+   q(cree) => [
+      q(0096),
+      q(0),
+      ],
+   q(creek) => [
+      q(0293),
+      q(0),
+      ],
+   q(creoles and pidgins) => [
+      q(0098),
+      q(1),
+      ],
+   q(creoles and pidgins ) => [
+      q(0098),
+      q(0),
+      ],
+   q(creoles and pidgins, english based) => [
+      q(0093),
+      q(0),
+      ],
+   q(creoles and pidgins, english-based) => [
+      q(0093),
+      q(1),
+      ],
+   q(creoles and pidgins, french-based) => [
+      q(0094),
+      q(1),
+      ],
+   q(creoles and pidgins, french-based ) => [
+      q(0094),
+      q(0),
+      ],
+   q(creoles and pidgins, portuguese-based) => [
+      q(0095),
+      q(1),
+      ],
+   q(creoles and pidgins, portuguese-based ) => [
+      q(0095),
+      q(0),
+      ],
+   q(crimean tatar) => [
+      q(0097),
+      q(0),
+      ],
+   q(crimean turkish) => [
+      q(0097),
+      q(1),
+      ],
+   q(croatia sign language) => [
+      q(1880),
+      q(0),
+      ],
+   q(croatian) => [
+      q(0181),
+      q(0),
+      ],
+   q(cross river mbembe) => [
+      q(4238),
+      q(0),
+      ],
+   q(crow) => [
+      q(1856),
+      q(0),
+      ],
+   q(cruzeno) => [
+      q(1865),
+      q(0),
+      ],
+   q(cua) => [
+      q(1903),
+      q(0),
+      ],
+   q(cuba) => [
+      q(1672),
+      q(1),
+      ],
+   q(cuba sign language) => [
+      q(1870),
+      q(0),
+      ],
+   q(cubeo) => [
+      q(1904),
+      q(0),
+      ],
+   q(cuiba) => [
+      q(1908),
+      q(0),
+      ],
+   q(culina) => [
+      q(1911),
+      q(0),
+      ],
+   q(cumanagoto) => [
+      q(1913),
+      q(0),
+      ],
+   q(cumbric) => [
+      q(7308),
+      q(0),
+      ],
+   q(cumeral) => [
+      q(1912),
+      q(0),
+      ],
+   q(cun) => [
+      q(1915),
+      q(0),
+      ],
+   q(cuneiform luwian) => [
+      q(7405),
+      q(0),
+      ],
+   q(cung) => [
+      q(1906),
+      q(0),
+      ],
+   q(cupeno) => [
+      q(1914),
+      q(0),
+      ],
+   q(curonian) => [
+      q(7319),
+      q(0),
+      ],
+   q(curripaco) => [
+      q(3526),
+      q(0),
+      ],
+   q(cusco quechua) => [
+      q(5699),
+      q(0),
+      ],
+   q(cushitic languages) => [
+      q(0100),
+      q(0),
+      ],
+   q(cutchi-swahili) => [
+      q(1687),
+      q(0),
+      ],
+   q(cuvok) => [
+      q(1919),
+      q(0),
+      ],
+   q(cuyamecalco mixtec) => [
+      q(7525),
+      q(0),
+      ],
+   q(cuyonon) => [
+      q(1932),
+      q(0),
+      ],
+   q(cwi bwamu) => [
+      q(1565),
+      q(0),
+      ],
+   q(cypriot arabic) => [
+      q(0602),
+      q(0),
+      ],
+   q(czech) => [
+      q(0101),
+      q(0),
+      ],
+   q(czech sign language) => [
+      q(1869),
+      q(0),
+      ],
+   q(da'a kaili) => [
+      q(3773),
+      q(0),
+      ],
+   q(da-hua miao) => [
+      q(2780),
+      q(2),
+      ],
+   q(daai chin) => [
+      q(1948),
+      q(0),
+      ],
+   q(daakaka) => [
+      q(1375),
+      q(0),
+      ],
+   q(daantanai') => [
+      q(4004),
+      q(0),
+      ],
+   q(daasanach) => [
+      q(2150),
+      q(0),
+      ],
+   q(daba) => [
+      q(1969),
+      q(0),
+      ],
+   q(dabarre) => [
+      q(1970),
+      q(0),
+      ],
+   q(dabe) => [
+      q(1959),
+      q(0),
+      ],
+   q(dacian) => [
+      q(7324),
+      q(0),
+      ],
+   q(dadi dadi) => [
+      q(1978),
+      q(0),
+      ],
+   q(dadibi) => [
+      q(4473),
+      q(0),
+      ],
+   q(dadiya) => [
+      q(1958),
+      q(0),
+      ],
+   q(daga) => [
+      q(2021),
+      q(0),
+      ],
+   q(dagaari dioula) => [
+      q(2007),
+      q(0),
+      ],
+   q(dagba) => [
+      q(2012),
+      q(0),
+      ],
+   q(dagbani) => [
+      q(1942),
+      q(0),
+      ],
+   q(dagik) => [
+      q(1989),
+      q(0),
+      ],
+   q(dagoman) => [
+      q(2014),
+      q(0),
+      ],
+   q(dahalik) => [
+      q(2079),
+      q(0),
+      ],
+   q(dahalo) => [
+      q(1946),
+      q(0),
+      ],
+   q(daho-doo) => [
+      q(1950),
+      q(0),
+      ],
+   q(dai) => [
+      q(2043),
+      q(0),
+      ],
+   q(dai zhuang) => [
+      q(7845),
+      q(0),
+      ],
+   q(dair) => [
+      q(2134),
+      q(0),
+      ],
+   q(dakka) => [
+      q(2074),
+      q(0),
+      ],
+   q(dakota) => [
+      q(0102),
+      q(0),
+      ],
+   q(dakpakha) => [
+      q(2073),
+      q(0),
+      ],
+   q(dalabon) => [
+      q(4844),
+      q(0),
+      ],
+   q(dalmatian) => [
+      q(2080),
+      q(0),
+      ],
+   q(daloa bete) => [
+      q(1131),
+      q(0),
+      ],
+   q(dama) => [
+      q(2090),
+      q(0),
+      ],
+   q(damakawa) => [
+      q(1947),
+      q(0),
+      ],
+   q(damal) => [
+      q(6876),
+      q(0),
+      ],
+   q(dambi) => [
+      q(1939),
+      q(0),
+      ],
+   q(dameli) => [
+      q(2089),
+      q(0),
+      ],
+   q(dampelas) => [
+      q(2093),
+      q(0),
+      ],
+   q(dan) => [
+      q(2104),
+      q(0),
+      ],
+   q(danaru) => [
+      q(2107),
+      q(0),
+      ],
+   q(danau) => [
+      q(2109),
+      q(0),
+      ],
+   q(dandami maria) => [
+      q(1949),
+      q(0),
+      ],
+   q(dangaleat) => [
+      q(1938),
+      q(0),
+      ],
+   q(dangaura tharu) => [
+      q(6504),
+      q(0),
+      ],
+   q(danish) => [
+      q(0103),
+      q(0),
+      ],
+   q(danish sign language) => [
+      q(2152),
+      q(0),
+      ],
+   q(dano) => [
+      q(0898),
+      q(0),
+      ],
+   q(danu) => [
+      q(2110),
+      q(0),
+      ],
+   q(dao) => [
+      q(1955),
+      q(0),
+      ],
+   q(daonda) => [
+      q(2100),
+      q(0),
+      ],
+   q(dar daju daju) => [
+      q(2060),
+      q(0),
+      ],
+   q(dar fur daju) => [
+      q(1945),
+      q(0),
+      ],
+   q(dar sila daju) => [
+      q(1951),
+      q(0),
+      ],
+   q(darai) => [
+      q(2148),
+      q(0),
+      ],
+   q(darang deng) => [
+      q(4294),
+      q(1),
+      ],
+   q(dargwa) => [
+      q(0104),
+      q(0),
+      ],
+   q(dari) => [
+      q(5602),
+      q(0),
+      ],
+   q(darkinyung) => [
+      q(7323),
+      q(0),
+      ],
+   q(darlong) => [
+      q(2081),
+      q(0),
+      ],
+   q(darmiya) => [
+      q(2136),
+      q(0),
+      ],
+   q(daro-matu melanau) => [
+      q(2142),
+      q(0),
+      ],
+   q(dass) => [
+      q(2127),
+      q(0),
+      ],
+   q(datooga) => [
+      q(6407),
+      q(0),
+      ],
+   q(daungwurrung) => [
+      q(2019),
+      q(0),
+      ],
+   q(daur) => [
+      q(2156),
+      q(0),
+      ],
+   q(davawenyo) => [
+      q(1953),
+      q(0),
+      ],
+   q(daw) => [
+      q(3693),
+      q(0),
+      ],
+   q(dawawa) => [
+      q(2197),
+      q(0),
+      ],
+   q(dawera-daweloor) => [
+      q(1988),
+      q(0),
+      ],
+   q(dawida) => [
+      q(1952),
+      q(1),
+      ],
+   q(dawro) => [
+      q(2195),
+      q(0),
+      ],
+   q(day) => [
+      q(1944),
+      q(0),
+      ],
+   q(dayi) => [
+      q(1954),
+      q(0),
+      ],
+   q(dazaga) => [
+      q(2209),
+      q(0),
+      ],
+   q(deccan) => [
+      q(1976),
+      q(0),
+      ],
+   q(dedua) => [
+      q(1990),
+      q(0),
+      ],
+   q(defaka) => [
+      q(0645),
+      q(0),
+      ],
+   q(defi gbe) => [
+      q(2426),
+      q(0),
+      ],
+   q(deg) => [
+      q(4715),
+      q(0),
+      ],
+   q(degaru) => [
+      q(2018),
+      q(0),
+      ],
+   q(degema) => [
+      q(1993),
+      q(0),
+      ],
+   q(degenan) => [
+      q(2008),
+      q(0),
+      ],
+   q(degexit'an) => [
+      q(2970),
+      q(0),
+      ],
+   q(dehu) => [
+      q(2032),
+      q(0),
+      ],
+   q(dehwari) => [
+      q(1994),
+      q(0),
+      ],
+   q(dek) => [
+      q(1996),
+      q(0),
+      ],
+   q(dela-oenale) => [
+      q(5848),
+      q(0),
+      ],
+   q(delaware) => [
+      q(0106),
+      q(0),
+      ],
+   q(delo) => [
+      q(5097),
+      q(0),
+      ],
+   q(dem) => [
+      q(1997),
+      q(0),
+      ],
+   q(dema) => [
+      q(2097),
+      q(0),
+      ],
+   q(demisa) => [
+      q(1995),
+      q(0),
+      ],
+   q(demta) => [
+      q(2098),
+      q(0),
+      ],
+   q(dendi (benin)) => [
+      q(1984),
+      q(0),
+      ],
+   q(dendi (central african republic)) => [
+      q(1999),
+      q(0),
+      ],
+   q(dene suline) => [
+      q(0084),
+      q(1),
+      ],
+   q(dengese) => [
+      q(2003),
+      q(0),
+      ],
+   q(dengka) => [
+      q(2105),
+      q(0),
+      ],
+   q(deni) => [
+      q(2112),
+      q(0),
+      ],
+   q(deno) => [
+      q(1957),
+      q(0),
+      ],
+   q(denya) => [
+      q(0809),
+      q(0),
+      ],
+   q(deori) => [
+      q(2000),
+      q(0),
+      ],
+   q(dera (indonesia)) => [
+      q(3204),
+      q(0),
+      ],
+   q(dera (nigeria)) => [
+      q(3480),
+      q(0),
+      ],
+   q(desano) => [
+      q(2001),
+      q(0),
+      ],
+   q(desiya) => [
+      q(2154),
+      q(0),
+      ],
+   q(dewoin) => [
+      q(1991),
+      q(0),
+      ],
+   q(dezfuli) => [
+      q(1992),
+      q(0),
+      ],
+   q(dghwede) => [
+      q(2010),
+      q(0),
+      ],
+   q(dhaiso) => [
+      q(2030),
+      q(0),
+      ],
+   q(dhalandji) => [
+      q(2025),
+      q(0),
+      ],
+   q(dhangu) => [
+      q(2023),
+      q(0),
+      ],
+   q(dhanki) => [
+      q(2027),
+      q(0),
+      ],
+   q(dhanwar (nepal)) => [
+      q(2033),
+      q(0),
+      ],
+   q(dhao) => [
+      q(4830),
+      q(0),
+      ],
+   q(dhargari) => [
+      q(2029),
+      q(0),
+      ],
+   q(dharuk) => [
+      q(7325),
+      q(0),
+      ],
+   q(dharumbal) => [
+      q(7346),
+      q(0),
+      ],
+   q(dhatki) => [
+      q(4350),
+      q(0),
+      ],
+   q(dhimal) => [
+      q(2024),
+      q(0),
+      ],
+   q(dhivehi) => [
+      q(0110),
+      q(1),
+      ],
+   q(dhodia) => [
+      q(2028),
+      q(0),
+      ],
+   q(dhofari arabic) => [
+      q(0607),
+      q(0),
+      ],
+   q(dholuo) => [
+      q(0260),
+      q(1),
+      ],
+   q(dhudhuroa) => [
+      q(1986),
+      q(0),
+      ],
+   q(dhundari) => [
+      q(2022),
+      q(0),
+      ],
+   q(dhungaloo) => [
+      q(2034),
+      q(0),
+      ],
+   q(dhurga) => [
+      q(2031),
+      q(0),
+      ],
+   q(dhuwal) => [
+      q(2178),
+      q(0),
+      ],
+   q(dia) => [
+      q(2035),
+      q(0),
+      ],
+   q(dibabawon manobo) => [
+      q(4131),
+      q(0),
+      ],
+   q(dibiyaso) => [
+      q(1975),
+      q(0),
+      ],
+   q(dibo) => [
+      q(2047),
+      q(0),
+      ],
+   q(dibole) => [
+      q(1539),
+      q(0),
+      ],
+   q(dicamay agta) => [
+      q(2191),
+      q(0),
+      ],
+   q(didinga) => [
+      q(2038),
+      q(0),
+      ],
+   q(dido) => [
+      q(1985),
+      q(0),
+      ],
+   q(diebroud) => [
+      q(6395),
+      q(1),
+      ],
+   q(dieri) => [
+      q(2039),
+      q(0),
+      ],
+   q(digaro-mishmi) => [
+      q(4294),
+      q(0),
+      ],
+   q(digo) => [
+      q(2040),
+      q(0),
+      ],
+   q(dii) => [
+      q(2185),
+      q(0),
+      ],
+   q(dijim-bwilim) => [
+      q(1711),
+      q(0),
+      ],
+   q(dilling) => [
+      q(2045),
+      q(0),
+      ],
+   q(dima) => [
+      q(3116),
+      q(0),
+      ],
+   q(dimasa) => [
+      q(2051),
+      q(0),
+      ],
+   q(dimbong) => [
+      q(2042),
+      q(0),
+      ],
+   q(dime) => [
+      q(2046),
+      q(0),
+      ],
+   q(dimili) => [
+      q(0486),
+      q(1),
+      ],
+   q(dimli) => [
+      q(0486),
+      q(2),
+      ],
+   q(dimli (individual language)) => [
+      q(2049),
+      q(0),
+      ],
+   q(dimli (macrolanguage)) => [
+      q(0486),
+      q(6),
+      ],
+   q(dineor) => [
+      q(4528),
+      q(1),
+      ],
+   q(ding) => [
+      q(2057),
+      q(0),
+      ],
+   q(dinka) => [
+      q(0109),
+      q(0),
+      ],
+   q(dirari) => [
+      q(2052),
+      q(0),
+      ],
+   q(dirasha) => [
+      q(2463),
+      q(0),
+      ],
+   q(diri) => [
+      q(2194),
+      q(0),
+      ],
+   q(diriku) => [
+      q(2053),
+      q(0),
+      ],
+   q(dirim) => [
+      q(2050),
+      q(0),
+      ],
+   q(disa) => [
+      q(2151),
+      q(0),
+      ],
+   q(ditammari) => [
+      q(6404),
+      q(0),
+      ],
+   q(ditidaht) => [
+      q(2158),
+      q(0),
+      ],
+   q(diuwe) => [
+      q(2056),
+      q(0),
+      ],
+   q(diuxi-tilantongo mixtec) => [
+      q(7510),
+      q(0),
+      ],
+   q(divehi) => [
+      q(0110),
+      q(0),
+      ],
+   q(dixon reef) => [
+      q(2055),
+      q(0),
+      ],
+   q(dizin) => [
+      q(4199),
+      q(0),
+      ],
+   q(djabwurrung) => [
+      q(6547),
+      q(0),
+      ],
+   q(djadjawurrung) => [
+      q(2058),
+      q(0),
+      ],
+   q(djambarrpuyngu) => [
+      q(2070),
+      q(0),
+      ],
+   q(djamindjung) => [
+      q(2061),
+      q(0),
+      ],
+   q(djangu) => [
+      q(2023),
+      q(1),
+      ],
+   q(djangun) => [
+      q(2063),
+      q(0),
+      ],
+   q(djauan) => [
+      q(2068),
+      q(0),
+      ],
+   q(djawi) => [
+      q(2072),
+      q(0),
+      ],
+   q(djeebbana) => [
+      q(2065),
+      q(0),
+      ],
+   q(djimini senoufo) => [
+      q(2202),
+      q(0),
+      ],
+   q(djinang) => [
+      q(2064),
+      q(0),
+      ],
+   q(djinba) => [
+      q(2059),
+      q(0),
+      ],
+   q(djingili) => [
+      q(3096),
+      q(0),
+      ],
+   q(djiwarli) => [
+      q(2208),
+      q(0),
+      ],
+   q(dobel) => [
+      q(3681),
+      q(0),
+      ],
+   q(dobu) => [
+      q(2114),
+      q(0),
+      ],
+   q(doe) => [
+      q(2116),
+      q(0),
+      ],
+   q(doga) => [
+      q(2009),
+      q(0),
+      ],
+   q(doghoro) => [
+      q(2020),
+      q(0),
+      ],
+   q(dogose) => [
+      q(2126),
+      q(0),
+      ],
+   q(dogoso) => [
+      q(2016),
+      q(0),
+      ],
+   q(dogri) => [
+      q(0111),
+      q(0),
+      ],
+   q(dogri (individual language)) => [
+      q(2015),
+      q(0),
+      ],
+   q(dogri (macrolanguage)) => [
+      q(0111),
+      q(1),
+      ],
+   q(dogrib) => [
+      q(0108),
+      q(0),
+      ],
+   q(dogul dom dogon) => [
+      q(1961),
+      q(0),
+      ],
+   q(doka) => [
+      q(1962),
+      q(0),
+      ],
+   q(doko-uyanga) => [
+      q(6967),
+      q(0),
+      ],
+   q(dolgan) => [
+      q(2078),
+      q(0),
+      ],
+   q(dolpo) => [
+      q(2137),
+      q(0),
+      ],
+   q(dom) => [
+      q(2113),
+      q(0),
+      ],
+   q(domaaki) => [
+      q(2088),
+      q(0),
+      ],
+   q(domari) => [
+      q(5822),
+      q(0),
+      ],
+   q(dombe) => [
+      q(2128),
+      q(0),
+      ],
+   q(dominican sign language) => [
+      q(2124),
+      q(0),
+      ],
+   q(dompo) => [
+      q(2131),
+      q(0),
+      ],
+   q(domu) => [
+      q(2117),
+      q(0),
+      ],
+   q(domung) => [
+      q(2002),
+      q(0),
+      ],
+   q(dondo) => [
+      q(2119),
+      q(0),
+      ],
+   q(dong) => [
+      q(2118),
+      q(0),
+      ],
+   q(dongo) => [
+      q(2122),
+      q(0),
+      ],
+   q(dongolawi) => [
+      q(2013),
+      q(1),
+      ],
+   q(dongotono) => [
+      q(1979),
+      q(0),
+      ],
+   q(dongshanba lalo) => [
+      q(7651),
+      q(0),
+      ],
+   q(dongxiang) => [
+      q(5929),
+      q(0),
+      ],
+   q(donno so dogon) => [
+      q(1987),
+      q(0),
+      ],
+   q(doondo) => [
+      q(1980),
+      q(0),
+      ],
+   q(dori'o) => [
+      q(2125),
+      q(0),
+      ],
+   q(dorig) => [
+      q(7261),
+      q(1),
+      ],
+   q(doromu-koki) => [
+      q(3550),
+      q(0),
+      ],
+   q(dororo) => [
+      q(2144),
+      q(0),
+      ],
+   q(dorze) => [
+      q(2132),
+      q(0),
+      ],
+   q(doso) => [
+      q(2120),
+      q(0),
+      ],
+   q(dotyali) => [
+      q(2169),
+      q(0),
+      ],
+   q(doutai) => [
+      q(6444),
+      q(0),
+      ],
+   q(doyayo) => [
+      q(2129),
+      q(0),
+      ],
+   q(dravidian languages) => [
+      q(0112),
+      q(0),
+      ],
+   q(drehu) => [
+      q(2032),
+      q(1),
+      ],
+   q(drents) => [
+      q(2146),
+      q(0),
+      ],
+   q(drubea) => [
+      q(2174),
+      q(1),
+      ],
+   q(drung) => [
+      q(2187),
+      q(0),
+      ],
+   q(duala) => [
+      q(0114),
+      q(0),
+      ],
+   q(duano) => [
+      q(2183),
+      q(0),
+      ],
+   q(duau) => [
+      q(2193),
+      q(0),
+      ],
+   q(dubli) => [
+      q(2170),
+      q(0),
+      ],
+   q(dubu) => [
+      q(2094),
+      q(0),
+      ],
+   q(dugun) => [
+      q(4801),
+      q(0),
+      ],
+   q(duguri) => [
+      q(1965),
+      q(0),
+      ],
+   q(dugwor) => [
+      q(2086),
+      q(0),
+      ],
+   q(duhwa) => [
+      q(3208),
+      q(0),
+      ],
+   q(duke) => [
+      q(4926),
+      q(0),
+      ],
+   q(dulbu) => [
+      q(1967),
+      q(0),
+      ],
+   q(duli) => [
+      q(2192),
+      q(0),
+      ],
+   q(duma) => [
+      q(2082),
+      q(0),
+      ],
+   q(dumbea) => [
+      q(2174),
+      q(0),
+      ],
+   q(dumi) => [
+      q(2186),
+      q(0),
+      ],
+   q(dumpas) => [
+      q(2095),
+      q(0),
+      ],
+   q(dumun) => [
+      q(2177),
+      q(0),
+      ],
+   q(duna) => [
+      q(2171),
+      q(0),
+      ],
+   q(dungan) => [
+      q(2102),
+      q(0),
+      ],
+   q(dungmali) => [
+      q(5736),
+      q(0),
+      ],
+   q(dungra bhil) => [
+      q(2176),
+      q(0),
+      ],
+   q(dungu) => [
+      q(1973),
+      q(0),
+      ],
+   q(dupaninan agta) => [
+      q(2182),
+      q(0),
+      ],
+   q(dura) => [
+      q(2143),
+      q(0),
+      ],
+   q(duri) => [
+      q(4614),
+      q(0),
+      ],
+   q(duriankere) => [
+      q(1966),
+      q(0),
+      ],
+   q(duruma) => [
+      q(2175),
+      q(0),
+      ],
+   q(duruwa) => [
+      q(5389),
+      q(0),
+      ],
+   q(dusner) => [
+      q(2153),
+      q(0),
+      ],
+   q(dusun deyah) => [
+      q(2181),
+      q(0),
+      ],
+   q(dusun malang) => [
+      q(2184),
+      q(0),
+      ],
+   q(dusun witu) => [
+      q(2189),
+      q(0),
+      ],
+   q(dutch) => [
+      q(0116),
+      q(0),
+      ],
+   q(dutch sign language) => [
+      q(2149),
+      q(0),
+      ],
+   q(dutch, middle (ca.1050-1350)) => [
+      q(0115),
+      q(0),
+      ],
+   q(dutton world speedwords) => [
+      q(2196),
+      q(0),
+      ],
+   q(duungooma) => [
+      q(2190),
+      q(0),
+      ],
+   q(duupa) => [
+      q(1941),
+      q(0),
+      ],
+   q(duvle) => [
+      q(2188),
+      q(0),
+      ],
+   q(duwai) => [
+      q(1968),
+      q(0),
+      ],
+   q(duwet) => [
+      q(2668),
+      q(0),
+      ],
+   q(duya) => [
+      q(3847),
+      q(0),
+      ],
+   q(dwang) => [
+      q(5007),
+      q(0),
+      ],
+   q(dyaabugay) => [
+      q(2206),
+      q(0),
+      ],
+   q(dyaberdyaber) => [
+      q(2199),
+      q(0),
+      ],
+   q(dyan) => [
+      q(2198),
+      q(0),
+      ],
+   q(dyangadi) => [
+      q(2204),
+      q(0),
+      ],
+   q(dyirbal) => [
+      q(1964),
+      q(0),
+      ],
+   q(dyugun) => [
+      q(2200),
+      q(0),
+      ],
+   q(dyula) => [
+      q(0117),
+      q(0),
+      ],
+   q(dza) => [
+      q(3081),
+      q(0),
+      ],
+   q(dzalakha) => [
+      q(2210),
+      q(0),
+      ],
+   q(dzando) => [
+      q(2211),
+      q(0),
+      ],
+   q(dzao min) => [
+      q(1385),
+      q(0),
+      ],
+   q(dzodinka) => [
+      q(0605),
+      q(0),
+      ],
+   q(dzongkha) => [
+      q(0118),
+      q(0),
+      ],
+   q(dzuungoo) => [
+      q(2106),
+      q(0),
+      ],
+   q(e) => [
+      q(2221),
+      q(0),
+      ],
+   q(e'ma buyang) => [
+      q(7803),
+      q(0),
+      ],
+   q(e'napa woromaipu) => [
+      q(5369),
+      q(0),
+      ],
+   q(early tripuri) => [
+      q(7522),
+      q(0),
+      ],
+   q(east ambae) => [
+      q(5252),
+      q(0),
+      ],
+   q(east berawan) => [
+      q(7830),
+      q(0),
+      ],
+   q(east damar) => [
+      q(2092),
+      q(0),
+      ],
+   q(east futuna) => [
+      q(2382),
+      q(0),
+      ],
+   q(east germanic languages) => [
+      q(0505),
+      q(0),
+      ],
+   q(east kewa) => [
+      q(3396),
+      q(0),
+      ],
+   q(east limba) => [
+      q(3976),
+      q(0),
+      ],
+   q(east makian) => [
+      q(4366),
+      q(0),
+      ],
+   q(east masela) => [
+      q(7022),
+      q(0),
+      ],
+   q(east nyala) => [
+      q(4948),
+      q(0),
+      ],
+   q(east slavic languages) => [
+      q(0534),
+      q(0),
+      ],
+   q(east tarangan) => [
+      q(6692),
+      q(0),
+      ],
+   q(east yugur) => [
+      q(7781),
+      q(0),
+      ],
+   q(eastern abnaki) => [
+      q(0552),
+      q(0),
+      ],
+   q(eastern acipa) => [
+      q(0593),
+      q(0),
+      ],
+   q(eastern apurimac quechua) => [
+      q(5702),
+      q(0),
+      ],
+   q(eastern arrernte) => [
+      q(0633),
+      q(0),
+      ],
+   q(eastern balochi) => [
+      q(1175),
+      q(0),
+      ],
+   q(eastern bolivian guarani) => [
+      q(2650),
+      q(0),
+      ],
+   q(eastern bontok) => [
+      q(2214),
+      q(0),
+      ],
+   q(eastern bru) => [
+      q(1441),
+      q(0),
+      ],
+   q(eastern canadian inuktitut) => [
+      q(2939),
+      q(0),
+      ],
+   q(eastern cham) => [
+      q(1748),
+      q(0),
+      ],
+   q(eastern durango nahuatl) => [
+      q(1014),
+      q(0),
+      ],
+   q(eastern egyptian bedawi arabic) => [
+      q(0959),
+      q(0),
+      ],
+   q(eastern frisian) => [
+      q(0141),
+      q(0),
+      ],
+   q(eastern gorkha tamang) => [
+      q(6479),
+      q(0),
+      ],
+   q(eastern gurung) => [
+      q(2498),
+      q(0),
+      ],
+   q(eastern highland chatino) => [
+      q(1783),
+      q(0),
+      ],
+   q(eastern highland otomi) => [
+      q(5323),
+      q(0),
+      ],
+   q(eastern hongshuihe zhuang) => [
+      q(7838),
+      q(0),
+      ],
+   q(eastern huasteca nahuatl) => [
+      q(4864),
+      q(0),
+      ],
+   q(eastern huishui hmong) => [
+      q(2781),
+      q(0),
+      ],
+   q(eastern huishui miao) => [
+      q(2781),
+      q(1),
+      ],
+   q(eastern karaboro) => [
+      q(7477),
+      q(0),
+      ],
+   q(eastern karnic) => [
+      q(2232),
+      q(0),
+      ],
+   q(eastern katu) => [
+      q(3641),
+      q(0),
+      ],
+   q(eastern kayah) => [
+      q(2242),
+      q(0),
+      ],
+   q(eastern keres) => [
+      q(3261),
+      q(0),
+      ],
+   q(eastern khumi chin) => [
+      q(1708),
+      q(0),
+      ],
+   q(eastern krahn) => [
+      q(3562),
+      q(0),
+      ],
+   q(eastern lalu) => [
+      q(7659),
+      q(0),
+      ],
+   q(eastern lawa) => [
+      q(4102),
+      q(0),
+      ],
+   q(eastern magar) => [
+      q(4265),
+      q(0),
+      ],
+   q(eastern malayo-polynesian languages) => [
+      q(0521),
+      q(0),
+      ],
+   q(eastern maninkakan) => [
+      q(2255),
+      q(0),
+      ],
+   q(eastern mari) => [
+      q(4291),
+      q(0),
+      ],
+   q(eastern maroon creole) => [
+      q(2066),
+      q(0),
+      ],
+   q(eastern meohang) => [
+      q(2253),
+      q(0),
+      ],
+   q(eastern mnong) => [
+      q(4420),
+      q(0),
+      ],
+   q(eastern muria) => [
+      q(2260),
+      q(0),
+      ],
+   q(eastern ngad'a) => [
+      q(4807),
+      q(0),
+      ],
+   q(eastern nisu) => [
+      q(5025),
+      q(0),
+      ],
+   q(eastern ojibwa) => [
+      q(5220),
+      q(0),
+      ],
+   q(eastern oromo) => [
+      q(2714),
+      q(0),
+      ],
+   q(eastern parbate kham) => [
+      q(3360),
+      q(0),
+      ],
+   q(eastern penan) => [
+      q(5422),
+      q(0),
+      ],
+   q(eastern pomo) => [
+      q(5405),
+      q(0),
+      ],
+   q(eastern qiandong miao) => [
+      q(2791),
+      q(0),
+      ],
+   q(eastern subanen) => [
+      q(5987),
+      q(0),
+      ],
+   q(eastern sudanic languages) => [
+      q(0524),
+      q(0),
+      ],
+   q(eastern tamang) => [
+      q(6365),
+      q(0),
+      ],
+   q(eastern tawbuid) => [
+      q(1336),
+      q(0),
+      ],
+   q(eastern xiangxi miao) => [
+      q(4593),
+      q(0),
+      ],
+   q(eastern xwla gbe) => [
+      q(2441),
+      q(0),
+      ],
+   q(eastern yiddish) => [
+      q(7617),
+      q(0),
+      ],
+   q(ebira) => [
+      q(2920),
+      q(0),
+      ],
+   q(eblan) => [
+      q(7328),
+      q(0),
+      ],
+   q(ebrie) => [
+      q(2216),
+      q(0),
+      ],
+   q(ebughu) => [
+      q(2213),
+      q(0),
+      ],
+   q(ecuadorian sign language) => [
+      q(2219),
+      q(0),
+      ],
+   q(ede cabe) => [
+      q(1667),
+      q(0),
+      ],
+   q(ede ica) => [
+      q(2898),
+      q(0),
+      ],
+   q(ede idaca) => [
+      q(2905),
+      q(0),
+      ],
+   q(ede ije) => [
+      q(2936),
+      q(0),
+      ],
+   q(edera awyu) => [
+      q(0984),
+      q(0),
+      ],
+   q(edo) => [
+      q(0055),
+      q(1),
+      ],
+   q(edolo) => [
+      q(2308),
+      q(0),
+      ],
+   q(edomite) => [
+      q(7326),
+      q(0),
+      ],
+   q(edopi) => [
+      q(1960),
+      q(0),
+      ],
+   q(edwas) => [
+      q(1347),
+      q(2),
+      ],
+   q(efai) => [
+      q(2222),
+      q(0),
+      ],
+   q(efe) => [
+      q(2223),
+      q(0),
+      ],
+   q(efik) => [
+      q(0119),
+      q(0),
+      ],
+   q(efutop) => [
+      q(5207),
+      q(0),
+      ],
+   q(ega) => [
+      q(2224),
+      q(0),
+      ],
+   q(eggon) => [
+      q(2226),
+      q(0),
+      ],
+   q(egypt sign language) => [
+      q(2295),
+      q(0),
+      ],
+   q(egyptian (ancient)) => [
+      q(0120),
+      q(0),
+      ],
+   q(egyptian arabic) => [
+      q(0884),
+      q(0),
+      ],
+   q(egyptian languages) => [
+      q(0501),
+      q(0),
+      ],
+   q(ehueun) => [
+      q(2227),
+      q(0),
+      ],
+   q(eipomek) => [
+      q(2228),
+      q(0),
+      ],
+   q(eitiep) => [
+      q(2229),
+      q(0),
+      ],
+   q(ejagham) => [
+      q(2311),
+      q(0),
+      ],
+   q(ejamat) => [
+      q(2231),
+      q(0),
+      ],
+   q(ekajuk) => [
+      q(0121),
+      q(0),
+      ],
+   q(ekari) => [
+      q(2234),
+      q(0),
+      ],
+   q(ekegusii) => [
+      q(2665),
+      q(1),
+      ],
+   q(eki) => [
+      q(2235),
+      q(0),
+      ],
+   q(ekit) => [
+      q(2233),
+      q(0),
+      ],
+   q(ekpeye) => [
+      q(2240),
+      q(0),
+      ],
+   q(el alto zapotec) => [
+      q(7929),
+      q(0),
+      ],
+   q(el hugeirat) => [
+      q(2244),
+      q(0),
+      ],
+   q(el molo) => [
+      q(2248),
+      q(0),
+      ],
+   q(el nayar cora) => [
+      q(1855),
+      q(0),
+      ],
+   q(elamite) => [
+      q(0122),
+      q(0),
+      ],
+   q(eleme) => [
+      q(2247),
+      q(0),
+      ],
+   q(elepi) => [
+      q(2243),
+      q(0),
+      ],
+   q(elip) => [
+      q(2238),
+      q(0),
+      ],
+   q(elkei) => [
+      q(2246),
+      q(0),
+      ],
+   q(elotepec zapotec) => [
+      q(7953),
+      q(0),
+      ],
+   q(eloyi) => [
+      q(0646),
+      q(0),
+      ],
+   q(elseng) => [
+      q(4511),
+      q(0),
+      ],
+   q(elu) => [
+      q(2249),
+      q(0),
+      ],
+   q(elymian) => [
+      q(7406),
+      q(0),
+      ],
+   q(emae) => [
+      q(4411),
+      q(0),
+      ],
+   q(emai-iuleha-ora) => [
+      q(2250),
+      q(0),
+      ],
+   q(eman) => [
+      q(2257),
+      q(0),
+      ],
+   q(embaloh) => [
+      q(2251),
+      q(0),
+      ],
+   q(embera-baudo) => [
+      q(1091),
+      q(0),
+      ],
+   q(embera-catio) => [
+      q(1897),
+      q(0),
+      ],
+   q(embera-chami) => [
+      q(1787),
+      q(0),
+      ],
+   q(embera-tado) => [
+      q(6430),
+      q(0),
+      ],
+   q(embu) => [
+      q(2217),
+      q(0),
+      ],
+   q(emem) => [
+      q(2274),
+      q(1),
+      ],
+   q(emerillon) => [
+      q(2252),
+      q(0),
+      ],
+   q(emilian) => [
+      q(2225),
+      q(0),
+      ],
+   q(emplawas) => [
+      q(2261),
+      q(0),
+      ],
+   q(emumu) => [
+      q(2274),
+      q(0),
+      ],
+   q(en) => [
+      q(2266),
+      q(0),
+      ],
+   q(enawene-nawe) => [
+      q(6917),
+      q(0),
+      ],
+   q(ende) => [
+      q(2267),
+      q(0),
+      ],
+   q(enga) => [
+      q(2273),
+      q(0),
+      ],
+   q(engdewu) => [
+      q(4851),
+      q(0),
+      ],
+   q(engenni) => [
+      q(2271),
+      q(0),
+      ],
+   q(enggano) => [
+      q(2272),
+      q(0),
+      ],
+   q(english) => [
+      q(0123),
+      q(0),
+      ],
+   q(english, middle (1100-1500)) => [
+      q(0124),
+      q(0),
+      ],
+   q(english, old (ca.450-1100)) => [
+      q(0018),
+      q(0),
+      ],
+   q(english-based creoles and pidgins) => [
+      q(0093),
+      q(2),
+      ],
+   q(enlhet) => [
+      q(2270),
+      q(0),
+      ],
+   q(enrekang) => [
+      q(5636),
+      q(0),
+      ],
+   q(enu) => [
+      q(2275),
+      q(0),
+      ],
+   q(enwan (akwa ibom state)) => [
+      q(2277),
+      q(0),
+      ],
+   q(enwan (edu state)) => [
+      q(2276),
+      q(0),
+      ],
+   q(enxet) => [
+      q(2278),
+      q(0),
+      ],
+   q(enya) => [
+      q(2488),
+      q(0),
+      ],
+   q(epena) => [
+      q(6055),
+      q(0),
+      ],
+   q(epi-olmec) => [
+      q(7333),
+      q(0),
+      ],
+   q(epie) => [
+      q(2280),
+      q(0),
+      ],
+   q(epigraphic mayan) => [
+      q(2263),
+      q(0),
+      ],
+   q(eravallan) => [
+      q(2281),
+      q(0),
+      ],
+   q(erave) => [
+      q(3401),
+      q(0),
+      ],
+   q(ere) => [
+      q(6804),
+      q(0),
+      ],
+   q(eritai) => [
+      q(2289),
+      q(0),
+      ],
+   q(erokwanas) => [
+      q(2290),
+      q(0),
+      ],
+   q(erre) => [
+      q(2287),
+      q(0),
+      ],
+   q(erromintxela) => [
+      q(2262),
+      q(0),
+      ],
+   q(ersu) => [
+      q(2288),
+      q(0),
+      ],
+   q(eruwa) => [
+      q(2283),
+      q(0),
+      ],
+   q(erzya) => [
+      q(0297),
+      q(0),
+      ],
+   q(esan) => [
+      q(3001),
+      q(0),
+      ],
+   q(ese) => [
+      q(4169),
+      q(0),
+      ],
+   q(ese ejja) => [
+      q(2291),
+      q(0),
+      ],
+   q(eshtehardi) => [
+      q(2292),
+      q(0),
+      ],
+   q(esimbi) => [
+      q(0669),
+      q(0),
+      ],
+   q(eskayan) => [
+      q(2302),
+      q(0),
+      ],
+   q(eskimo-aleut languages) => [
+      q(0502),
+      q(0),
+      ],
+   q(esperanto) => [
+      q(0125),
+      q(0),
+      ],
+   q(esselen) => [
+      q(2299),
+      q(0),
+      ],
+   q(estado de mexico otomi) => [
+      q(5327),
+      q(0),
+      ],
+   q(estonian) => [
+      q(0126),
+      q(0),
+      ],
+   q(estonian sign language) => [
+      q(2298),
+      q(0),
+      ],
+   q(esuma) => [
+      q(2296),
+      q(0),
+      ],
+   q(etchemin) => [
+      q(2304),
+      q(0),
+      ],
+   q(etebi) => [
+      q(2303),
+      q(0),
+      ],
+   q(eten) => [
+      q(2312),
+      q(0),
+      ],
+   q(eteocretan) => [
+      q(2218),
+      q(0),
+      ],
+   q(eteocypriot) => [
+      q(2220),
+      q(0),
+      ],
+   q(ethiopian sign language) => [
+      q(2305),
+      q(0),
+      ],
+   q(etkywan) => [
+      q(2899),
+      q(0),
+      ],
+   q(eton (cameroon)) => [
+      q(2307),
+      q(0),
+      ],
+   q(eton (vanuatu)) => [
+      q(2306),
+      q(0),
+      ],
+   q(etruscan) => [
+      q(2310),
+      q(0),
+      ],
+   q(etulo) => [
+      q(6957),
+      q(0),
+      ],
+   q(evant) => [
+      q(1638),
+      q(0),
+      ],
+   q(even) => [
+      q(2314),
+      q(0),
+      ],
+   q(evenki) => [
+      q(2316),
+      q(0),
+      ],
+   q(eviya) => [
+      q(2485),
+      q(0),
+      ],
+   q(ewage-notu) => [
+      q(5027),
+      q(0),
+      ],
+   q(ewe) => [
+      q(0127),
+      q(0),
+      ],
+   q(ewondo) => [
+      q(0128),
+      q(0),
+      ],
+   q(extremaduran) => [
+      q(2317),
+      q(0),
+      ],
+   q(eyak) => [
+      q(2318),
+      q(0),
+      ],
+   q(ezaa) => [
+      q(2320),
+      q(0),
+      ],
+   q(fa d'ambu) => [
+      q(2323),
+      q(0),
+      ],
+   q(fagani) => [
+      q(2325),
+      q(0),
+      ],
+   q(fagauvea) => [
+      q(6963),
+      q(1),
+      ],
+   q(faire atta) => [
+      q(1020),
+      q(0),
+      ],
+   q(faita) => [
+      q(2329),
+      q(0),
+      ],
+   q(faiwol) => [
+      q(2328),
+      q(0),
+      ],
+   q(fala) => [
+      q(2336),
+      q(0),
+      ],
+   q(falam chin) => [
+      q(1714),
+      q(0),
+      ],
+   q(fali) => [
+      q(2355),
+      q(0),
+      ],
+   q(faliscan) => [
+      q(7338),
+      q(0),
+      ],
+   q(fam) => [
+      q(2332),
+      q(0),
+      ],
+   q(fanagalo) => [
+      q(2362),
+      q(0),
+      ],
+   q(fanamaket) => [
+      q(1245),
+      q(0),
+      ],
+   q(fang) => [
+      q(0129),
+      q(0),
+      ],
+   q(fang (cameroon)) => [
+      q(2330),
+      q(0),
+      ],
+   q(fang (equatorial guinea)) => [
+      q(0129),
+      q(1),
+      ],
+   q(fania) => [
+      q(2363),
+      q(0),
+      ],
+   q(fanti) => [
+      q(0131),
+      q(0),
+      ],
+   q(far western muria) => [
+      q(2361),
+      q(0),
+      ],
+   q(farefare) => [
+      q(2658),
+      q(0),
+      ],
+   q(faroese) => [
+      q(0130),
+      q(0),
+      ],
+   q(fas) => [
+      q(2370),
+      q(0),
+      ],
+   q(fasu) => [
+      q(2322),
+      q(0),
+      ],
+   q(fataleka) => [
+      q(2334),
+      q(0),
+      ],
+   q(fataluku) => [
+      q(1981),
+      q(0),
+      ],
+   q(fayu) => [
+      q(2335),
+      q(0),
+      ],
+   q(fe'fe') => [
+      q(2360),
+      q(0),
+      ],
+   q(fedan) => [
+      q(5400),
+      q(1),
+      ],
+   q(fembe) => [
+      q(0663),
+      q(0),
+      ],
+   q(fernando po creole english) => [
+      q(2369),
+      q(0),
+      ],
+   q(feroge) => [
+      q(2341),
+      q(0),
+      ],
+   q(fiji hindi) => [
+      q(2756),
+      q(0),
+      ],
+   q(fijian) => [
+      q(0132),
+      q(0),
+      ],
+   q(filipino) => [
+      q(0133),
+      q(0),
+      ],
+   q(filomena mata-coahuitlan totonac) => [
+      q(6578),
+      q(0),
+      ],
+   q(finland-swedish sign language) => [
+      q(2379),
+      q(0),
+      ],
+   q(finlandssvenskt teckensprak) => [
+      q(2379),
+      q(1),
+      ],
+   q(finnish) => [
+      q(0134),
+      q(0),
+      ],
+   q(finnish sign language) => [
+      q(2377),
+      q(0),
+      ],
+   q(finno-ugrian languages) => [
+      q(0135),
+      q(0),
+      ],
+   q(finongan) => [
+      q(2326),
+      q(0),
+      ],
+   q(fipa) => [
+      q(2347),
+      q(0),
+      ],
+   q(firan) => [
+      q(2348),
+      q(0),
+      ],
+   q(fiwaga) => [
+      q(2350),
+      q(0),
+      ],
+   q(flaaitaal) => [
+      q(2359),
+      q(0),
+      ],
+   q(flemish) => [
+      q(0116),
+      q(1),
+      ],
+   q(flemish sign language) => [
+      q(6996),
+      q(1),
+      ],
+   q(flinders island) => [
+      q(2357),
+      q(0),
+      ],
+   q(foau) => [
+      q(2354),
+      q(0),
+      ],
+   q(foi) => [
+      q(2365),
+      q(0),
+      ],
+   q(foia foia) => [
+      q(2342),
+      q(0),
+      ],
+   q(folopa) => [
+      q(5579),
+      q(0),
+      ],
+   q(foma) => [
+      q(2366),
+      q(0),
+      ],
+   q(fon) => [
+      q(0136),
+      q(0),
+      ],
+   q(fongoro) => [
+      q(2344),
+      q(0),
+      ],
+   q(foodo) => [
+      q(2364),
+      q(0),
+      ],
+   q(forak) => [
+      q(2375),
+      q(0),
+      ],
+   q(fordata) => [
+      q(2372),
+      q(0),
+      ],
+   q(fore) => [
+      q(2367),
+      q(0),
+      ],
+   q(forest enets) => [
+      q(2268),
+      q(0),
+      ],
+   q(formosan languages) => [
+      q(0504),
+      q(0),
+      ],
+   q(fortsenal) => [
+      q(2376),
+      q(0),
+      ],
+   q(francisco leon zoque) => [
+      q(7913),
+      q(0),
+      ],
+   q(francoprovencal) => [
+      q(2374),
+      q(1),
+      ],
+   q(frankish) => [
+      q(2373),
+      q(0),
+      ],
+   q(french) => [
+      q(0137),
+      q(0),
+      ],
+   q(french belgian sign language) => [
+      q(5986),
+      q(1),
+      ],
+   q(french sign language) => [
+      q(2378),
+      q(0),
+      ],
+   q(french, middle (ca.1400-1600)) => [
+      q(0138),
+      q(0),
+      ],
+   q(french, old (842-ca.1400)) => [
+      q(0139),
+      q(0),
+      ],
+   q(french-based creoles and pidgins) => [
+      q(0094),
+      q(2),
+      ],
+   q(friulian) => [
+      q(0144),
+      q(0),
+      ],
+   q(fulah) => [
+      q(0143),
+      q(0),
+      ],
+   q(fuliiru) => [
+      q(2358),
+      q(0),
+      ],
+   q(fulnio) => [
+      q(2389),
+      q(0),
+      ],
+   q(fum) => [
+      q(2388),
+      q(0),
+      ],
+   q(fungwa) => [
+      q(6890),
+      q(0),
+      ],
+   q(fur) => [
+      q(2395),
+      q(0),
+      ],
+   q(furu) => [
+      q(2392),
+      q(0),
+      ],
+   q(futuna-aniwa) => [
+      q(2391),
+      q(0),
+      ],
+   q(fuyug) => [
+      q(2394),
+      q(0),
+      ],
+   q(fwai) => [
+      q(2396),
+      q(0),
+      ],
+   q(fwe) => [
+      q(2397),
+      q(0),
+      ],
+   q(fyam) => [
+      q(5672),
+      q(0),
+      ],
+   q(fyer) => [
+      q(2346),
+      q(0),
+      ],
+   q(ga) => [
+      q(0145),
+      q(0),
+      ],
+   q(ga'anda) => [
+      q(2609),
+      q(0),
+      ],
+   q(ga'dang) => [
+      q(2458),
+      q(0),
+      ],
+   q(gaa) => [
+      q(6736),
+      q(0),
+      ],
+   q(gaam) => [
+      q(6388),
+      q(0),
+      ],
+   q(gabi-gabi) => [
+      q(2440),
+      q(0),
+      ],
+   q(gabri) => [
+      q(2398),
+      q(0),
+      ],
+   q(gabrielino-fernandeno) => [
+      q(7342),
+      q(0),
+      ],
+   q(gadang) => [
+      q(2462),
+      q(0),
+      ],
+   q(gaddang) => [
+      q(2400),
+      q(0),
+      ],
+   q(gaddi) => [
+      q(2429),
+      q(0),
+      ],
+   q(gade) => [
+      q(2476),
+      q(0),
+      ],
+   q(gade lohar) => [
+      q(2452),
+      q(0),
+      ],
+   q(gadjerawang) => [
+      q(2459),
+      q(0),
+      ],
+   q(gadsup) => [
+      q(2406),
+      q(0),
+      ],
+   q(gaelic) => [
+      q(0153),
+      q(0),
+      ],
+   q(gafat) => [
+      q(2490),
+      q(0),
+      ],
+   q(gagadu) => [
+      q(2438),
+      q(0),
+      ],
+   q(gagauz) => [
+      q(2403),
+      q(0),
+      ],
+   q(gagnoa bete) => [
+      q(1476),
+      q(0),
+      ],
+   q(gagu) => [
+      q(2501),
+      q(0),
+      ],
+   q(gahri) => [
+      q(1156),
+      q(0),
+      ],
+   q(gaikundi) => [
+      q(2424),
+      q(0),
+      ],
+   q(gail) => [
+      q(2516),
+      q(0),
+      ],
+   q(gaina) => [
+      q(2449),
+      q(0),
+      ],
+   q(gal) => [
+      q(2412),
+      q(0),
+      ],
+   q(galambu) => [
+      q(2550),
+      q(0),
+      ],
+   q(galatian) => [
+      q(7339),
+      q(0),
+      ],
+   q(galela) => [
+      q(2427),
+      q(0),
+      ],
+   q(galeya) => [
+      q(2414),
+      q(0),
+      ],
+   q(galibi carib) => [
+      q(0070),
+      q(0),
+      ],
+   q(galice) => [
+      q(2446),
+      q(0),
+      ],
+   q(galician) => [
+      q(0155),
+      q(0),
+      ],
+   q(galindan) => [
+      q(7345),
+      q(0),
+      ],
+   q(gallurese sardinian) => [
+      q(5954),
+      q(0),
+      ],
+   q(galo) => [
+      q(0612),
+      q(0),
+      ],
+   q(galolen) => [
+      q(2408),
+      q(0),
+      ],
+   q(gamale kham) => [
+      q(3317),
+      q(0),
+      ],
+   q(gambera) => [
+      q(2555),
+      q(0),
+      ],
+   q(gambian wolof) => [
+      q(7201),
+      q(0),
+      ],
+   q(gamilaraay) => [
+      q(3432),
+      q(0),
+      ],
+   q(gamit) => [
+      q(2430),
+      q(0),
+      ],
+   q(gamkonora) => [
+      q(2407),
+      q(0),
+      ],
+   q(gamo) => [
+      q(2563),
+      q(0),
+      ],
+   q(gamo-ningi) => [
+      q(1474),
+      q(0),
+      ],
+   q(gan chinese) => [
+      q(2410),
+      q(0),
+      ],
+   q(gana) => [
+      q(2575),
+      q(1),
+      ],
+   q(ganang) => [
+      q(2571),
+      q(0),
+      ],
+   q(ganda) => [
+      q(0257),
+      q(0),
+      ],
+   q(gandhari) => [
+      q(5427),
+      q(0),
+      ],
+   q(gane) => [
+      q(2709),
+      q(0),
+      ],
+   q(ganggalida) => [
+      q(2445),
+      q(0),
+      ],
+   q(ganglau) => [
+      q(2497),
+      q(0),
+      ],
+   q(gangte) => [
+      q(2568),
+      q(0),
+      ],
+   q(gangulu) => [
+      q(2576),
+      q(0),
+      ],
+   q(gants) => [
+      q(2411),
+      q(0),
+      ],
+   q(ganza) => [
+      q(2707),
+      q(0),
+      ],
+   q(ganzi) => [
+      q(2584),
+      q(0),
+      ],
+   q(gao) => [
+      q(2491),
+      q(0),
+      ],
+   q(gapapaiwa) => [
+      q(5663),
+      q(0),
+      ],
+   q(garhwali) => [
+      q(2431),
+      q(0),
+      ],
+   q(garifuna) => [
+      q(1640),
+      q(0),
+      ],
+   q(garig-ilgar) => [
+      q(2954),
+      q(0),
+      ],
+   q(garingbal) => [
+      q(7344),
+      q(0),
+      ],
+   q(garlali) => [
+      q(2549),
+      q(0),
+      ],
+   q(garo) => [
+      q(2625),
+      q(0),
+      ],
+   q(garre) => [
+      q(2487),
+      q(0),
+      ],
+   q(garrwa) => [
+      q(7219),
+      q(0),
+      ],
+   q(garus) => [
+      q(2696),
+      q(0),
+      ],
+   q(garza) => [
+      q(7347),
+      q(0),
+      ],
+   q(gata') => [
+      q(2413),
+      q(0),
+      ],
+   q(gavak) => [
+      q(2084),
+      q(0),
+      ],
+   q(gavar) => [
+      q(2601),
+      q(0),
+      ],
+   q(gaviao do jiparana) => [
+      q(2674),
+      q(0),
+      ],
+   q(gawar-bati) => [
+      q(2690),
+      q(0),
+      ],
+   q(gawwada) => [
+      q(2682),
+      q(0),
+      ],
+   q(gayil) => [
+      q(2702),
+      q(0),
+      ],
+   q(gayo) => [
+      q(0146),
+      q(0),
+      ],
+   q(gazi) => [
+      q(2708),
+      q(0),
+      ],
+   q(gbagyi) => [
+      q(2436),
+      q(0),
+      ],
+   q(gban) => [
+      q(2501),
+      q(1),
+      ],
+   q(gbanu) => [
+      q(2439),
+      q(0),
+      ],
+   q(gbanziri) => [
+      q(2425),
+      q(0),
+      ],
+   q(gbari) => [
+      q(2442),
+      q(0),
+      ],
+   q(gbaya) => [
+      q(0147),
+      q(0),
+      ],
+   q(gbaya (central african republic)) => [
+      q(0147),
+      q(1),
+      ],
+   q(gbaya (sudan)) => [
+      q(3587),
+      q(0),
+      ],
+   q(gbaya-bossangoa) => [
+      q(2434),
+      q(0),
+      ],
+   q(gbaya-bozoum) => [
+      q(2435),
+      q(0),
+      ],
+   q(gbaya-mbodomo) => [
+      q(2560),
+      q(0),
+      ],
+   q(gbayi) => [
+      q(2700),
+      q(0),
+      ],
+   q(gbesi gbe) => [
+      q(2437),
+      q(0),
+      ],
+   q(gbii) => [
+      q(2492),
+      q(0),
+      ],
+   q(gbin) => [
+      q(7340),
+      q(0),
+      ],
+   q(gbiri-niragu) => [
+      q(2617),
+      q(0),
+      ],
+   q(gboloo grebo) => [
+      q(2475),
+      q(0),
+      ],
+   q(ge) => [
+      q(2786),
+      q(0),
+      ],
+   q(geba karen) => [
+      q(3683),
+      q(0),
+      ],
+   q(gebe) => [
+      q(2479),
+      q(0),
+      ],
+   q(gedaged) => [
+      q(2455),
+      q(0),
+      ],
+   q(gedeo) => [
+      q(2145),
+      q(0),
+      ],
+   q(geez) => [
+      q(0151),
+      q(0),
+      ],
+   q(geji) => [
+      q(2532),
+      q(0),
+      ],
+   q(gejia) => [
+      q(2786),
+      q(1),
+      ],
+   q(geko karen) => [
+      q(2507),
+      q(0),
+      ],
+   q(gela) => [
+      q(4949),
+      q(0),
+      ],
+   q(geman deng) => [
+      q(4656),
+      q(1),
+      ],
+   q(geme) => [
+      q(2483),
+      q(0),
+      ],
+   q(gen) => [
+      q(2480),
+      q(0),
+      ],
+   q(gende) => [
+      q(2402),
+      q(0),
+      ],
+   q(gengle) => [
+      q(2477),
+      q(0),
+      ],
+   q(georgian) => [
+      q(0149),
+      q(0),
+      ],
+   q(gepo) => [
+      q(7637),
+      q(0),
+      ],
+   q(gera) => [
+      q(2486),
+      q(0),
+      ],
+   q(gergiko) => [
+      q(4455),
+      q(1),
+      ],
+   q(german) => [
+      q(0150),
+      q(0),
+      ],
+   q(german sign language) => [
+      q(2633),
+      q(0),
+      ],
+   q(german, low) => [
+      q(0306),
+      q(2),
+      ],
+   q(german, middle high (ca.1050-1500)) => [
+      q(0157),
+      q(0),
+      ],
+   q(german, old high (ca.750-1050)) => [
+      q(0158),
+      q(0),
+      ],
+   q(germanic languages) => [
+      q(0148),
+      q(0),
+      ],
+   q(geruma) => [
+      q(2473),
+      q(0),
+      ],
+   q(geser-gorom) => [
+      q(2484),
+      q(0),
+      ],
+   q(gey) => [
+      q(2662),
+      q(0),
+      ],
+   q(ghadames) => [
+      q(2503),
+      q(0),
+      ],
+   q(ghanaian pidgin english) => [
+      q(2607),
+      q(0),
+      ],
+   q(ghanaian sign language) => [
+      q(2632),
+      q(0),
+      ],
+   q(ghandruk sign language) => [
+      q(2469),
+      q(0),
+      ],
+   q(ghanongga) => [
+      q(2509),
+      q(0),
+      ],
+   q(ghari) => [
+      q(2618),
+      q(0),
+      ],
+   q(ghayavi) => [
+      q(1313),
+      q(0),
+      ],
+   q(gheg albanian) => [
+      q(0755),
+      q(0),
+      ],
+   q(ghera) => [
+      q(2511),
+      q(0),
+      ],
+   q(ghodoberi) => [
+      q(2466),
+      q(0),
+      ],
+   q(ghomala') => [
+      q(1047),
+      q(0),
+      ],
+   q(ghomara) => [
+      q(2510),
+      q(0),
+      ],
+   q(ghotuo) => [
+      q(0538),
+      q(0),
+      ],
+   q(ghulfan) => [
+      q(2508),
+      q(0),
+      ],
+   q(giangan) => [
+      q(1168),
+      q(0),
+      ],
+   q(gibanawa) => [
+      q(2515),
+      q(0),
+      ],
+   q(gichuka) => [
+      q(1907),
+      q(1),
+      ],
+   q(gidar) => [
+      q(2517),
+      q(0),
+      ],
+   q(giiwo) => [
+      q(3421),
+      q(0),
+      ],
+   q(gikuyu) => [
+      q(0224),
+      q(1),
+      ],
+   q(gikyode) => [
+      q(0586),
+      q(0),
+      ],
+   q(gilaki) => [
+      q(2548),
+      q(0),
+      ],
+   q(gilbertese) => [
+      q(0152),
+      q(0),
+      ],
+   q(gilima) => [
+      q(2529),
+      q(0),
+      ],
+   q(gilyak) => [
+      q(4900),
+      q(0),
+      ],
+   q(gimi (eastern highlands)) => [
+      q(2520),
+      q(0),
+      ],
+   q(gimi (west new britain)) => [
+      q(2522),
+      q(0),
+      ],
+   q(gimme) => [
+      q(3469),
+      q(0),
+      ],
+   q(gimnime) => [
+      q(2561),
+      q(0),
+      ],
+   q(ginuman) => [
+      q(2577),
+      q(0),
+      ],
+   q(ginyanga) => [
+      q(0997),
+      q(0),
+      ],
+   q(girawa) => [
+      q(1055),
+      q(0),
+      ],
+   q(giryama) => [
+      q(5160),
+      q(0),
+      ],
+   q(githabul) => [
+      q(2519),
+      q(0),
+      ],
+   q(gitonga) => [
+      q(6640),
+      q(0),
+      ],
+   q(gitua) => [
+      q(2500),
+      q(0),
+      ],
+   q(gitxsan) => [
+      q(2526),
+      q(0),
+      ],
+   q(giyug) => [
+      q(2530),
+      q(0),
+      ],
+   q(gizrra) => [
+      q(6639),
+      q(0),
+      ],
+   q(glaro-twabo) => [
+      q(2551),
+      q(0),
+      ],
+   q(glavda) => [
+      q(2553),
+      q(0),
+      ],
+   q(glio-oubi) => [
+      q(5335),
+      q(0),
+      ],
+   q(gnau) => [
+      q(2582),
+      q(0),
+      ],
+   q(goan konkani) => [
+      q(2596),
+      q(0),
+      ],
+   q(goaria) => [
+      q(2518),
+      q(0),
+      ],
+   q(gobasi) => [
+      q(2592),
+      q(0),
+      ],
+   q(gobu) => [
+      q(2603),
+      q(0),
+      ],
+   q(godie) => [
+      q(2588),
+      q(0),
+      ],
+   q(godwari) => [
+      q(2472),
+      q(0),
+      ],
+   q(goemai) => [
+      q(0799),
+      q(0),
+      ],
+   q(gofa) => [
+      q(2590),
+      q(0),
+      ],
+   q(gogo) => [
+      q(2591),
+      q(0),
+      ],
+   q(gogodala) => [
+      q(2502),
+      q(0),
+      ],
+   q(gokana) => [
+      q(2539),
+      q(0),
+      ],
+   q(gola) => [
+      q(2595),
+      q(0),
+      ],
+   q(golin) => [
+      q(2669),
+      q(0),
+      ],
+   q(golpa) => [
+      q(3932),
+      q(0),
+      ],
+   q(gondi) => [
+      q(0159),
+      q(0),
+      ],
+   q(gone dau) => [
+      q(2597),
+      q(0),
+      ],
+   q(gongduk) => [
+      q(2589),
+      q(0),
+      ],
+   q(gonja) => [
+      q(2535),
+      q(0),
+      ],
+   q(gooniyandi) => [
+      q(2574),
+      q(0),
+      ],
+   q(gor) => [
+      q(2612),
+      q(0),
+      ],
+   q(gorakor) => [
+      q(2587),
+      q(0),
+      ],
+   q(gorap) => [
+      q(2599),
+      q(0),
+      ],
+   q(goreng) => [
+      q(7343),
+      q(0),
+      ],
+   q(gorontalo) => [
+      q(0160),
+      q(0),
+      ],
+   q(gorovu) => [
+      q(2622),
+      q(0),
+      ],
+   q(gorowa) => [
+      q(2602),
+      q(0),
+      ],
+   q(gothic) => [
+      q(0161),
+      q(0),
+      ],
+   q(goundo) => [
+      q(2604),
+      q(0),
+      ],
+   q(gourmanchema) => [
+      q(2664),
+      q(0),
+      ],
+   q(gowlan) => [
+      q(2593),
+      q(0),
+      ],
+   q(gowli) => [
+      q(2594),
+      q(0),
+      ],
+   q(gowro) => [
+      q(2684),
+      q(0),
+      ],
+   q(gozarkhani) => [
+      q(2605),
+      q(0),
+      ],
+   q(grangali) => [
+      q(4950),
+      q(0),
+      ],
+   q(grass koiari) => [
+      q(3193),
+      q(0),
+      ],
+   q(grebo) => [
+      q(0162),
+      q(0),
+      ],
+   q(greek) => [
+      q(0164),
+      q(1),
+      ],
+   q(greek languages) => [
+      q(0508),
+      q(0),
+      ],
+   q(greek sign language) => [
+      q(2639),
+      q(0),
+      ],
+   q(greek, ancient (to 1453)) => [
+      q(0163),
+      q(0),
+      ],
+   q(greek, modern (1453-)) => [
+      q(0164),
+      q(0),
+      ],
+   q(green gelao) => [
+      q(2523),
+      q(0),
+      ],
+   q(greenlandic) => [
+      q(0211),
+      q(1),
+      ],
+   q(grenadian creole english) => [
+      q(2448),
+      q(0),
+      ],
+   q(gresi) => [
+      q(2624),
+      q(0),
+      ],
+   q(groma) => [
+      q(2621),
+      q(0),
+      ],
+   q(gronings) => [
+      q(2600),
+      q(0),
+      ],
+   q(gros ventre) => [
+      q(0925),
+      q(0),
+      ],
+   q(gua) => [
+      q(2693),
+      q(0),
+      ],
+   q(guadeloupean creole french) => [
+      q(2447),
+      q(0),
+      ],
+   q(guahibo) => [
+      q(2649),
+      q(0),
+      ],
+   q(guaja) => [
+      q(2670),
+      q(0),
+      ],
+   q(guajajara) => [
+      q(2643),
+      q(0),
+      ],
+   q(guambiano) => [
+      q(2653),
+      q(0),
+      ],
+   q(guana (brazil)) => [
+      q(2611),
+      q(0),
+      ],
+   q(guana (paraguay)) => [
+      q(2666),
+      q(0),
+      ],
+   q(guanano) => [
+      q(2667),
+      q(0),
+      ],
+   q(guanche) => [
+      q(2569),
+      q(0),
+      ],
+   q(guanyinqiao) => [
+      q(3102),
+      q(0),
+      ],
+   q(guarani) => [
+      q(0165),
+      q(0),
+      ],
+   q(guarayu) => [
+      q(2705),
+      q(0),
+      ],
+   q(guarequena) => [
+      q(2401),
+      q(0),
+      ],
+   q(guatemalan sign language) => [
+      q(2635),
+      q(0),
+      ],
+   q(guato) => [
+      q(2640),
+      q(0),
+      ],
+   q(guayabero) => [
+      q(2655),
+      q(0),
+      ],
+   q(gudang) => [
+      q(7341),
+      q(0),
+      ],
+   q(gudanji) => [
+      q(4909),
+      q(0),
+      ],
+   q(gude) => [
+      q(2456),
+      q(0),
+      ],
+   q(gudu) => [
+      q(2471),
+      q(0),
+      ],
+   q(guduf-gava) => [
+      q(2457),
+      q(0),
+      ],
+   q(guernesiais) => [
+      q(5053),
+      q(1),
+      ],
+   q(guerrero amuzgo) => [
+      q(0784),
+      q(0),
+      ],
+   q(guerrero nahuatl) => [
+      q(4854),
+      q(0),
+      ],
+   q(guevea de humboldt zapotec) => [
+      q(7920),
+      q(0),
+      ],
+   q(gugadj) => [
+      q(2493),
+      q(0),
+      ],
+   q(gugu badhun) => [
+      q(2454),
+      q(0),
+      ],
+   q(gugu warra) => [
+      q(7229),
+      q(0),
+      ],
+   q(gugubera) => [
+      q(3418),
+      q(0),
+      ],
+   q(guguyimidjir) => [
+      q(3427),
+      q(0),
+      ],
+   q(guhu-samane) => [
+      q(2512),
+      q(0),
+      ],
+   q(guianese creole french) => [
+      q(2450),
+      q(0),
+      ],
+   q(guibei zhuang) => [
+      q(7840),
+      q(0),
+      ],
+   q(guiberoua bete) => [
+      q(1129),
+      q(0),
+      ],
+   q(guibian zhuang) => [
+      q(7842),
+      q(0),
+      ],
+   q(guila zapotec) => [
+      q(7962),
+      q(0),
+      ],
+   q(guinea kpelle) => [
+      q(2541),
+      q(0),
+      ],
+   q(guinean sign language) => [
+      q(2659),
+      q(0),
+      ],
+   q(guiqiong) => [
+      q(2610),
+      q(0),
+      ],
+   q(gujarati) => [
+      q(0167),
+      q(0),
+      ],
+   q(gujari) => [
+      q(2536),
+      q(0),
+      ],
+   q(gula (central african republic)) => [
+      q(3221),
+      q(0),
+      ],
+   q(gula (chad)) => [
+      q(2552),
+      q(0),
+      ],
+   q(gula iro) => [
+      q(2547),
+      q(0),
+      ],
+   q(gula'alaa) => [
+      q(2556),
+      q(0),
+      ],
+   q(gulay) => [
+      q(2671),
+      q(0),
+      ],
+   q(gule) => [
+      q(2554),
+      q(0),
+      ],
+   q(gulf arabic) => [
+      q(0639),
+      q(0),
+      ],
+   q(guliguli) => [
+      q(2546),
+      q(0),
+      ],
+   q(gumalu) => [
+      q(2562),
+      q(0),
+      ],
+   q(gumatj) => [
+      q(2578),
+      q(0),
+      ],
+   q(gumawana) => [
+      q(2677),
+      q(0),
+      ],
+   q(gumuz) => [
+      q(2651),
+      q(0),
+      ],
+   q(gun) => [
+      q(2663),
+      q(0),
+      ],
+   q(gundi) => [
+      q(2460),
+      q(0),
+      ],
+   q(gunditjmara) => [
+      q(2534),
+      q(0),
+      ],
+   q(gundungurra) => [
+      q(7478),
+      q(0),
+      ],
+   q(gungabula) => [
+      q(2699),
+      q(0),
+      ],
+   q(gungu) => [
+      q(5862),
+      q(0),
+      ],
+   q(guntai) => [
+      q(2581),
+      q(0),
+      ],
+   q(gunwinggu) => [
+      q(2656),
+      q(0),
+      ],
+   q(gunya) => [
+      q(2706),
+      q(0),
+      ],
+   q(gupa-abawa) => [
+      q(2606),
+      q(0),
+      ],
+   q(gupapuyngu) => [
+      q(2647),
+      q(0),
+      ],
+   q(guragone) => [
+      q(2494),
+      q(0),
+      ],
+   q(guramalum) => [
+      q(2631),
+      q(0),
+      ],
+   q(gurani) => [
+      q(2712),
+      q(0),
+      ],
+   q(gurdjar) => [
+      q(2461),
+      q(0),
+      ],
+   q(gureng gureng) => [
+      q(2580),
+      q(0),
+      ],
+   q(gurgula) => [
+      q(2495),
+      q(0),
+      ],
+   q(guriaso) => [
+      q(2629),
+      q(0),
+      ],
+   q(gurinji) => [
+      q(2646),
+      q(0),
+      ],
+   q(gurmana) => [
+      q(2672),
+      q(0),
+      ],
+   q(guro) => [
+      q(2585),
+      q(0),
+      ],
+   q(guruntum-mbaaru) => [
+      q(2615),
+      q(0),
+      ],
+   q(gusan) => [
+      q(2636),
+      q(0),
+      ],
+   q(gusii) => [
+      q(2665),
+      q(0),
+      ],
+   q(gusilay) => [
+      q(2634),
+      q(0),
+      ],
+   q(guwa) => [
+      q(7349),
+      q(0),
+      ],
+   q(guwamu) => [
+      q(2691),
+      q(0),
+      ],
+   q(guwinmal) => [
+      q(7346),
+      q(1),
+      ],
+   q(guya) => [
+      q(2537),
+      q(0),
+      ],
+   q(guyanese creole english) => [
+      q(2704),
+      q(0),
+      ],
+   q(guyani) => [
+      q(2678),
+      q(0),
+      ],
+   q(gvoko) => [
+      q(4852),
+      q(0),
+      ],
+   q(gwa) => [
+      q(2680),
+      q(0),
+      ],
+   q(gwahatike) => [
+      q(1943),
+      q(0),
+      ],
+   q(gwak) => [
+      q(3087),
+      q(0),
+      ],
+   q(gwamhi-wuri) => [
+      q(1161),
+      q(0),
+      ],
+   q(gwandara) => [
+      q(2688),
+      q(0),
+      ],
+   q(gweda) => [
+      q(2628),
+      q(0),
+      ],
+   q(gweno) => [
+      q(2683),
+      q(0),
+      ],
+   q(gwere) => [
+      q(2689),
+      q(0),
+      ],
+   q(gwi) => [
+      q(2686),
+      q(1),
+      ],
+   q(gwich'in) => [
+      q(0168),
+      q(0),
+      ],
+   q(gyele) => [
+      q(2701),
+      q(0),
+      ],
+   q(gyem) => [
+      q(2698),
+      q(0),
+      ],
+   q(ha) => [
+      q(2725),
+      q(0),
+      ],
+   q(habu) => [
+      q(2736),
+      q(0),
+      ],
+   q(hadiyya) => [
+      q(2741),
+      q(0),
+      ],
+   q(hadothi) => [
+      q(2817),
+      q(0),
+      ],
+   q(hadrami) => [
+      q(7352),
+      q(0),
+      ],
+   q(hadrami arabic) => [
+      q(0998),
+      q(0),
+      ],
+   q(hadza) => [
+      q(2849),
+      q(0),
+      ],
+   q(haeke) => [
+      q(0628),
+      q(0),
+      ],
+   q(hahon) => [
+      q(2717),
+      q(0),
+      ],
+   q(hai//om) => [
+      q(2748),
+      q(0),
+      ],
+   q(haida) => [
+      q(0169),
+      q(0),
+      ],
+   q(haigwai) => [
+      q(2749),
+      q(0),
+      ],
+   q(haiom) => [
+      q(2748),
+      q(1),
+      ],
+   q(haiphong sign language) => [
+      q(2715),
+      q(0),
+      ],
+   q(haisla) => [
+      q(2727),
+      q(0),
+      ],
+   q(haitian) => [
+      q(0170),
+      q(0),
+      ],
+   q(haitian creole) => [
+      q(0170),
+      q(1),
+      ],
+   q(haitian vodoun culture language) => [
+      q(2875),
+      q(0),
+      ],
+   q(haji) => [
+      q(2766),
+      q(0),
+      ],
+   q(hajong) => [
+      q(2718),
+      q(0),
+      ],
+   q(haka chin) => [
+      q(1799),
+      q(0),
+      ],
+   q(hakka chinese) => [
+      q(2719),
+      q(0),
+      ],
+   q(hako) => [
+      q(2723),
+      q(0),
+      ],
+   q(halang) => [
+      q(2720),
+      q(0),
+      ],
+   q(halang doan) => [
+      q(2773),
+      q(0),
+      ],
+   q(halbi) => [
+      q(2772),
+      q(0),
+      ],
+   q(halh mongolian) => [
+      q(3341),
+      q(0),
+      ],
+   q(halia) => [
+      q(2771),
+      q(0),
+      ],
+   q(halkomelem) => [
+      q(2866),
+      q(0),
+      ],
+   q(hamap) => [
+      q(2795),
+      q(0),
+      ],
+   q(hamba) => [
+      q(2732),
+      q(0),
+      ],
+   q(hamea) => [
+      q(1740),
+      q(1),
+      ],
+   q(hamer-banna) => [
+      q(0770),
+      q(0),
+      ],
+   q(hamtai) => [
+      q(2794),
+      q(0),
+      ],
+   q(han) => [
+      q(2710),
+      q(0),
+      ],
+   q(hanga) => [
+      q(2716),
+      q(0),
+      ],
+   q(hanga hundi) => [
+      q(7209),
+      q(0),
+      ],
+   q(hangaza) => [
+      q(2722),
+      q(0),
+      ],
+   q(hani) => [
+      q(2804),
+      q(0),
+      ],
+   q(hano) => [
+      q(3987),
+      q(0),
+      ],
+   q(hanoi sign language) => [
+      q(2711),
+      q(0),
+      ],
+   q(hanunoo) => [
+      q(2806),
+      q(0),
+      ],
+   q(harami) => [
+      q(7350),
+      q(0),
+      ],
+   q(harari) => [
+      q(2726),
+      q(0),
+      ],
+   q(harijan kinnauri) => [
+      q(3392),
+      q(0),
+      ],
+   q(haroi) => [
+      q(2836),
+      q(0),
+      ],
+   q(haroti) => [
+      q(2817),
+      q(1),
+      ],
+   q(harsusi) => [
+      q(2846),
+      q(0),
+      ],
+   q(haruai) => [
+      q(6590),
+      q(0),
+      ],
+   q(haruku) => [
+      q(2834),
+      q(0),
+      ],
+   q(haryanvi) => [
+      q(1163),
+      q(0),
+      ],
+   q(harzani) => [
+      q(2842),
+      q(0),
+      ],
+   q(hasha) => [
+      q(7604),
+      q(0),
+      ],
+   q(hassaniyya) => [
+      q(4223),
+      q(0),
+      ],
+   q(hatam) => [
+      q(2713),
+      q(0),
+      ],
+   q(hattic) => [
+      q(7355),
+      q(0),
+      ],
+   q(hausa) => [
+      q(0171),
+      q(0),
+      ],
+   q(hausa sign language) => [
+      q(2844),
+      q(0),
+      ],
+   q(havasupai-walapai-yavapai) => [
+      q(7767),
+      q(0),
+      ],
+   q(haveke) => [
+      q(2877),
+      q(0),
+      ],
+   q(havu) => [
+      q(2728),
+      q(0),
+      ],
+   q(hawai'i creole english) => [
+      q(2881),
+      q(0),
+      ],
+   q(hawai'i pidgin) => [
+      q(2881),
+      q(1),
+      ],
+   q(hawai'i pidgin sign language) => [
+      q(2830),
+      q(1),
+      ],
+   q(hawai'i sign language (hsl)) => [
+      q(2830),
+      q(0),
+      ],
+   q(hawaiian) => [
+      q(0172),
+      q(0),
+      ],
+   q(haya) => [
+      q(2730),
+      q(0),
+      ],
+   q(hazaragi) => [
+      q(2731),
+      q(0),
+      ],
+   q(hdi) => [
+      q(7329),
+      q(0),
+      ],
+   q(hebrew) => [
+      q(0173),
+      q(0),
+      ],
+   q(hehe) => [
+      q(2745),
+      q(0),
+      ],
+   q(heiban) => [
+      q(2734),
+      q(0),
+      ],
+   q(heiltsuk) => [
+      q(2746),
+      q(0),
+      ],
+   q(helambu sherpa) => [
+      q(5936),
+      q(0),
+      ],
+   q(helong) => [
+      q(2744),
+      q(0),
+      ],
+   q(hema) => [
+      q(4902),
+      q(0),
+      ],
+   q(hemba) => [
+      q(2747),
+      q(0),
+      ],
+   q(herde) => [
+      q(2743),
+      q(0),
+      ],
+   q(herero) => [
+      q(0174),
+      q(0),
+      ],
+   q(hermit) => [
+      q(3961),
+      q(0),
+      ],
+   q(hernican) => [
+      q(7354),
+      q(0),
+      ],
+   q(hertevin) => [
+      q(2838),
+      q(0),
+      ],
+   q(heung kong sau yue) => [
+      q(2770),
+      q(1),
+      ],
+   q(hewa) => [
+      q(2721),
+      q(0),
+      ],
+   q(heyo) => [
+      q(0941),
+      q(0),
+      ],
+   q(hiberno-scottish gaelic) => [
+      q(2504),
+      q(0),
+      ],
+   q(hibito) => [
+      q(2754),
+      q(0),
+      ],
+   q(hidatsa) => [
+      q(2755),
+      q(0),
+      ],
+   q(hieroglyphic luwian) => [
+      q(2776),
+      q(0),
+      ],
+   q(higaonon) => [
+      q(4128),
+      q(0),
+      ],
+   q(highland konjo) => [
+      q(3388),
+      q(0),
+      ],
+   q(highland oaxaca chontal) => [
+      q(1720),
+      q(0),
+      ],
+   q(highland popoluca) => [
+      q(5560),
+      q(0),
+      ],
+   q(highland puebla nahuatl) => [
+      q(1021),
+      q(0),
+      ],
+   q(highland totonac) => [
+      q(6649),
+      q(0),
+      ],
+   q(hijazi arabic) => [
+      q(0600),
+      q(0),
+      ],
+   q(hijuk) => [
+      q(2760),
+      q(0),
+      ],
+   q(hiligaynon) => [
+      q(0175),
+      q(0),
+      ],
+   q(himachali languages) => [
+      q(0176),
+      q(0),
+      ],
+   q(himarima) => [
+      q(2763),
+      q(0),
+      ],
+   q(hindi) => [
+      q(0177),
+      q(0),
+      ],
+   q(hinduri) => [
+      q(2759),
+      q(0),
+      ],
+   q(hinukh) => [
+      q(2521),
+      q(0),
+      ],
+   q(hiri motu) => [
+      q(0180),
+      q(0),
+      ],
+   q(hittite) => [
+      q(0178),
+      q(0),
+      ],
+   q(hitu) => [
+      q(2850),
+      q(0),
+      ],
+   q(hiw) => [
+      q(2764),
+      q(0),
+      ],
+   q(hixkaryana) => [
+      q(2765),
+      q(0),
+      ],
+   q(hlai) => [
+      q(3912),
+      q(0),
+      ],
+   q(hlepho phowa) => [
+      q(7644),
+      q(0),
+      ],
+   q(hlersu) => [
+      q(2774),
+      q(0),
+      ],
+   q(hmar) => [
+      q(2792),
+      q(0),
+      ],
+   q(hmong) => [
+      q(0179),
+      q(0),
+      ],
+   q(hmong daw) => [
+      q(4643),
+      q(0),
+      ],
+   q(hmong do) => [
+      q(2796),
+      q(0),
+      ],
+   q(hmong don) => [
+      q(2782),
+      q(0),
+      ],
+   q(hmong njua) => [
+      q(2805),
+      q(0),
+      ],
+   q(hmong shua) => [
+      q(2799),
+      q(0),
+      ],
+   q(hmong-mien languages) => [
+      q(0509),
+      q(0),
+      ],
+   q(hmwaveke) => [
+      q(4515),
+      q(0),
+      ],
+   q(ho) => [
+      q(2812),
+      q(0),
+      ],
+   q(ho chi minh city sign language) => [
+      q(2823),
+      q(0),
+      ],
+   q(ho-chunk) => [
+      q(7138),
+      q(0),
+      ],
+   q(hoava) => [
+      q(2810),
+      q(0),
+      ],
+   q(hobyot) => [
+      q(2815),
+      q(0),
+      ],
+   q(hoia hoia) => [
+      q(2750),
+      q(0),
+      ],
+   q(hokan languages) => [
+      q(0510),
+      q(0),
+      ],
+   q(holikachuk) => [
+      q(2816),
+      q(0),
+      ],
+   q(holiya) => [
+      q(2827),
+      q(0),
+      ],
+   q(holma) => [
+      q(2813),
+      q(0),
+      ],
+   q(holoholo) => [
+      q(2820),
+      q(0),
+      ],
+   q(holu) => [
+      q(2818),
+      q(0),
+      ],
+   q(homa) => [
+      q(2819),
+      q(0),
+      ],
+   q(honduras sign language) => [
+      q(2740),
+      q(0),
+      ],
+   q(hone) => [
+      q(3151),
+      q(0),
+      ],
+   q(hong kong sign language) => [
+      q(2770),
+      q(0),
+      ],
+   q(honi) => [
+      q(2826),
+      q(0),
+      ],
+   q(hopi) => [
+      q(2821),
+      q(0),
+      ],
+   q(horned miao) => [
+      q(2835),
+      q(0),
+      ],
+   q(horo) => [
+      q(2822),
+      q(0),
+      ],
+   q(horom) => [
+      q(2814),
+      q(0),
+      ],
+   q(horpa) => [
+      q(2286),
+      q(0),
+      ],
+   q(hote) => [
+      q(2824),
+      q(0),
+      ],
+   q(hoti) => [
+      q(2847),
+      q(0),
+      ],
+   q(hovongan) => [
+      q(2825),
+      q(0),
+      ],
+   q(hoyahoya) => [
+      q(2752),
+      q(0),
+      ],
+   q(hozo) => [
+      q(2828),
+      q(0),
+      ],
+   q(hpon) => [
+      q(2829),
+      q(0),
+      ],
+   q(hrangkhol) => [
+      q(2831),
+      q(0),
+      ],
+   q(hre) => [
+      q(2833),
+      q(0),
+      ],
+   q(hruso) => [
+      q(2839),
+      q(0),
+      ],
+   q(hu) => [
+      q(2864),
+      q(0),
+      ],
+   q(hua) => [
+      q(2853),
+      q(1),
+      ],
+   q(huachipaeri) => [
+      q(2857),
+      q(0),
+      ],
+   q(huallaga huanuco quechua) => [
+      q(5680),
+      q(0),
+      ],
+   q(huamalies-dos de mayo huanuco quechua) => [
+      q(5703),
+      q(0),
+      ],
+   q(huambisa) => [
+      q(2852),
+      q(0),
+      ],
+   q(huarijio) => [
+      q(6981),
+      q(0),
+      ],
+   q(huastec) => [
+      q(2867),
+      q(0),
+      ],
+   q(huaulu) => [
+      q(2854),
+      q(0),
+      ],
+   q(huautla mazatec) => [
+      q(4123),
+      q(0),
+      ],
+   q(huaxcaleca nahuatl) => [
+      q(4874),
+      q(0),
+      ],
+   q(huaylas ancash quechua) => [
+      q(5717),
+      q(0),
+      ],
+   q(huaylla wanca quechua) => [
+      q(5712),
+      q(0),
+      ],
+   q(huba) => [
+      q(2733),
+      q(0),
+      ],
+   q(huehuetla tepehua) => [
+      q(6454),
+      q(0),
+      ],
+   q(huichol) => [
+      q(2738),
+      q(0),
+      ],
+   q(huilliche) => [
+      q(2858),
+      q(0),
+      ],
+   q(huitepec mixtec) => [
+      q(4665),
+      q(0),
+      ],
+   q(huizhou chinese) => [
+      q(1933),
+      q(0),
+      ],
+   q(hukumina) => [
+      q(2871),
+      q(0),
+      ],
+   q(hula) => [
+      q(2862),
+      q(0),
+      ],
+   q(hulaula) => [
+      q(2873),
+      q(0),
+      ],
+   q(huli) => [
+      q(2859),
+      q(0),
+      ],
+   q(hulung) => [
+      q(2861),
+      q(0),
+      ],
+   q(humburi senni songhay) => [
+      q(2778),
+      q(0),
+      ],
+   q(humene) => [
+      q(2856),
+      q(0),
+      ],
+   q(humla) => [
+      q(2868),
+      q(0),
+      ],
+   q(hun-saare) => [
+      q(2172),
+      q(0),
+      ],
+   q(hunde) => [
+      q(2768),
+      q(0),
+      ],
+   q(hung) => [
+      q(2809),
+      q(0),
+      ],
+   q(hungana) => [
+      q(2863),
+      q(0),
+      ],
+   q(hungarian) => [
+      q(0183),
+      q(0),
+      ],
+   q(hungarian sign language) => [
+      q(2843),
+      q(0),
+      ],
+   q(hungworo) => [
+      q(4735),
+      q(1),
+      ],
+   q(hunjara-kaina ke) => [
+      q(2769),
+      q(0),
+      ],
+   q(hunnic) => [
+      q(7351),
+      q(0),
+      ],
+   q(hunsrik) => [
+      q(2841),
+      q(0),
+      ],
+   q(hunzib) => [
+      q(2874),
+      q(0),
+      ],
+   q(hupa) => [
+      q(0184),
+      q(0),
+      ],
+   q(hupde) => [
+      q(3158),
+      q(0),
+      ],
+   q(hupla) => [
+      q(2724),
+      q(0),
+      ],
+   q(hurrian) => [
+      q(7356),
+      q(0),
+      ],
+   q(hutterisch) => [
+      q(2478),
+      q(1),
+      ],
+   q(hutterite german) => [
+      q(2478),
+      q(0),
+      ],
+   q(hwana) => [
+      q(2882),
+      q(0),
+      ],
+   q(hya) => [
+      q(2883),
+      q(0),
+      ],
+   q(hyam) => [
+      q(3041),
+      q(0),
+      ],
+   q(i'saka) => [
+      q(3602),
+      q(1),
+      ],
+   q(i-wak) => [
+      q(3028),
+      q(0),
+      ],
+   q(iaai) => [
+      q(2884),
+      q(0),
+      ],
+   q(iamalele) => [
+      q(7696),
+      q(0),
+      ],
+   q(iapama) => [
+      q(2886),
+      q(0),
+      ],
+   q(iatmul) => [
+      q(2885),
+      q(0),
+      ],
+   q(iau) => [
+      q(6606),
+      q(0),
+      ],
+   q(ibali teke) => [
+      q(6459),
+      q(0),
+      ],
+   q(ibaloi) => [
+      q(2892),
+      q(0),
+      ],
+   q(iban) => [
+      q(0185),
+      q(0),
+      ],
+   q(ibanag) => [
+      q(2891),
+      q(0),
+      ],
+   q(ibani) => [
+      q(2897),
+      q(0),
+      ],
+   q(ibatan) => [
+      q(3026),
+      q(0),
+      ],
+   q(iberian) => [
+      q(7358),
+      q(0),
+      ],
+   q(ibibio) => [
+      q(2888),
+      q(0),
+      ],
+   q(ibino) => [
+      q(2894),
+      q(0),
+      ],
+   q(ibu) => [
+      q(2896),
+      q(0),
+      ],
+   q(ibuoro) => [
+      q(2895),
+      q(0),
+      ],
+   q(icelandic) => [
+      q(0187),
+      q(0),
+      ],
+   q(icelandic sign language) => [
+      q(2900),
+      q(0),
+      ],
+   q(iceve-maci) => [
+      q(1117),
+      q(0),
+      ],
+   q(ida'an) => [
+      q(1963),
+      q(0),
+      ],
+   q(idakho-isukha-tiriki) => [
+      q(2902),
+      q(0),
+      ],
+   q(idate) => [
+      q(2910),
+      q(0),
+      ],
+   q(idere) => [
+      q(2906),
+      q(0),
+      ],
+   q(idesa) => [
+      q(2909),
+      q(0),
+      ],
+   q(idi) => [
+      q(2907),
+      q(0),
+      ],
+   q(ido) => [
+      q(0188),
+      q(0),
+      ],
+   q(idoma) => [
+      q(2911),
+      q(0),
+      ],
+   q(idon) => [
+      q(2904),
+      q(0),
+      ],
+   q(idu-mishmi) => [
+      q(1776),
+      q(0),
+      ],
+   q(iduna) => [
+      q(7005),
+      q(0),
+      ],
+   q(ife) => [
+      q(2914),
+      q(0),
+      ],
+   q(ifo) => [
+      q(2915),
+      q(0),
+      ],
+   q(igala) => [
+      q(2923),
+      q(0),
+      ],
+   q(igana) => [
+      q(2922),
+      q(0),
+      ],
+   q(igbo) => [
+      q(0186),
+      q(0),
+      ],
+   q(igede) => [
+      q(2921),
+      q(0),
+      ],
+   q(ignaciano) => [
+      q(2925),
+      q(0),
+      ],
+   q(igo) => [
+      q(0683),
+      q(0),
+      ],
+   q(iguta) => [
+      q(4733),
+      q(0),
+      ],
+   q(igwe) => [
+      q(2928),
+      q(0),
+      ],
+   q(iha) => [
+      q(2931),
+      q(0),
+      ],
+   q(iha based pidgin) => [
+      q(2929),
+      q(0),
+      ],
+   q(ihievbe) => [
+      q(2930),
+      q(0),
+      ],
+   q(ija-zuba) => [
+      q(7007),
+      q(0),
+      ],
+   q(ijo languages) => [
+      q(0190),
+      q(0),
+      ],
+   q(ik) => [
+      q(2950),
+      q(0),
+      ],
+   q(ika) => [
+      q(2941),
+      q(0),
+      ],
+   q(ikaranggal) => [
+      q(2945),
+      q(0),
+      ],
+   q(ikizu) => [
+      q(2951),
+      q(0),
+      ],
+   q(iko) => [
+      q(2940),
+      q(0),
+      ],
+   q(ikobi) => [
+      q(4203),
+      q(0),
+      ],
+   q(ikoma-nata-isenye) => [
+      q(5093),
+      q(0),
+      ],
+   q(ikpeng) => [
+      q(6818),
+      q(0),
+      ],
+   q(ikpeshi) => [
+      q(2944),
+      q(0),
+      ],
+   q(ikposo) => [
+      q(3537),
+      q(0),
+      ],
+   q(iku-gora-ankwa) => [
+      q(2948),
+      q(0),
+      ],
+   q(ikulu) => [
+      q(2942),
+      q(0),
+      ],
+   q(ikwere) => [
+      q(2949),
+      q(0),
+      ],
+   q(ikwo) => [
+      q(2986),
+      q(0),
+      ],
+   q(ila) => [
+      q(2953),
+      q(0),
+      ],
+   q(ile ape) => [
+      q(2952),
+      q(0),
+      ],
+   q(ili turki) => [
+      q(2955),
+      q(0),
+      ],
+   q(ili'uun) => [
+      q(2959),
+      q(0),
+      ],
+   q(ilianen manobo) => [
+      q(4135),
+      q(0),
+      ],
+   q(illyrian) => [
+      q(7360),
+      q(0),
+      ],
+   q(iloko) => [
+      q(0193),
+      q(0),
+      ],
+   q(ilongot) => [
+      q(2956),
+      q(0),
+      ],
+   q(ilue) => [
+      q(2960),
+      q(0),
+      ],
+   q(ilwana) => [
+      q(4376),
+      q(0),
+      ],
+   q(imbabura highland quichua) => [
+      q(5704),
+      q(0),
+      ],
+   q(imbongu) => [
+      q(2965),
+      q(0),
+      ],
+   q(imonda) => [
+      q(2964),
+      q(0),
+      ],
+   q(imperial aramaic (700-300 bce)) => [
+      q(0022),
+      q(1),
+      ],
+   q(imroing) => [
+      q(2966),
+      q(0),
+      ],
+   q(inabaknon) => [
+      q(0581),
+      q(0),
+      ],
+   q(inapang) => [
+      q(4713),
+      q(0),
+      ],
+   q(inapari) => [
+      q(2976),
+      q(0),
+      ],
+   q(inari sami) => [
+      q(0391),
+      q(0),
+      ],
+   q(indian sign language) => [
+      q(2977),
+      q(0),
+      ],
+   q(indic languages) => [
+      q(0195),
+      q(0),
+      ],
+   q(indo-european languages) => [
+      q(0197),
+      q(0),
+      ],
+   q(indo-iranian languages) => [
+      q(0512),
+      q(0),
+      ],
+   q(indo-portuguese) => [
+      q(2903),
+      q(0),
+      ],
+   q(indonesian) => [
+      q(0196),
+      q(0),
+      ],
+   q(indonesian bajau) => [
+      q(1100),
+      q(0),
+      ],
+   q(indonesian sign language) => [
+      q(2972),
+      q(0),
+      ],
+   q(indri) => [
+      q(2908),
+      q(0),
+      ],
+   q(indus kohistani) => [
+      q(4623),
+      q(0),
+      ],
+   q(indus valley language) => [
+      q(7365),
+      q(0),
+      ],
+   q(inebu one) => [
+      q(5217),
+      q(0),
+      ],
+   q(ineseno) => [
+      q(2979),
+      q(0),
+      ],
+   q(inga) => [
+      q(2969),
+      q(0),
+      ],
+   q(ingrian) => [
+      q(3037),
+      q(0),
+      ],
+   q(ingush) => [
+      q(0198),
+      q(0),
+      ],
+   q(inlaod itneg) => [
+      q(3012),
+      q(0),
+      ],
+   q(inoke-yate) => [
+      q(2975),
+      q(0),
+      ],
+   q(inonhan) => [
+      q(4016),
+      q(0),
+      ],
+   q(inor) => [
+      q(2980),
+      q(0),
+      ],
+   q(inpui naga) => [
+      q(4927),
+      q(0),
+      ],
+   q(interglossa) => [
+      q(2927),
+      q(0),
+      ],
+   q(interlingua (international auxiliary language association)) => [
+      q(0194),
+      q(0),
+      ],
+   q(interlingue) => [
+      q(0192),
+      q(0),
+      ],
+   q(international sign) => [
+      q(2958),
+      q(0),
+      ],
+   q(intha) => [
+      q(2978),
+      q(0),
+      ],
+   q(inuinnaqtun) => [
+      q(2947),
+      q(0),
+      ],
+   q(inuit sign language) => [
+      q(2946),
+      q(0),
+      ],
+   q(inuktitut) => [
+      q(0191),
+      q(0),
+      ],
+   q(inupiaq) => [
+      q(0199),
+      q(0),
+      ],
+   q(iowa-oto) => [
+      q(2982),
+      q(0),
+      ],
+   q(ipalapa amuzgo) => [
+      q(1017),
+      q(0),
+      ],
+   q(ipiko) => [
+      q(2984),
+      q(0),
+      ],
+   q(ipili) => [
+      q(2983),
+      q(0),
+      ],
+   q(ipulo) => [
+      q(0902),
+      q(0),
+      ],
+   q(iquito) => [
+      q(2985),
+      q(0),
+      ],
+   q(ir) => [
+      q(2992),
+      q(0),
+      ],
+   q(iranian languages) => [
+      q(0200),
+      q(0),
+      ],
+   q(iranian persian) => [
+      q(5418),
+      q(0),
+      ],
+   q(irantxe) => [
+      q(2991),
+      q(0),
+      ],
+   q(iranun) => [
+      q(2957),
+      q(0),
+      ],
+   q(iraqw) => [
+      q(2990),
+      q(0),
+      ],
+   q(irarutu) => [
+      q(2988),
+      q(0),
+      ],
+   q(iraya) => [
+      q(2995),
+      q(0),
+      ],
+   q(iresim) => [
+      q(2987),
+      q(0),
+      ],
+   q(irigwe) => [
+      q(2989),
+      q(0),
+      ],
+   q(irish) => [
+      q(0154),
+      q(0),
+      ],
+   q(irish sign language) => [
+      q(3000),
+      q(0),
+      ],
+   q(irish, middle (900-1200)) => [
+      q(0278),
+      q(0),
+      ],
+   q(irish, old (to 900)) => [
+      q(0377),
+      q(0),
+      ],
+   q(iroquoian languages) => [
+      q(0201),
+      q(0),
+      ],
+   q(irula) => [
+      q(2993),
+      q(0),
+      ],
+   q(isabi) => [
+      q(2996),
+      q(0),
+      ],
+   q(isanzu) => [
+      q(3005),
+      q(0),
+      ],
+   q(isarog agta) => [
+      q(0662),
+      q(0),
+      ],
+   q(isconahua) => [
+      q(2997),
+      q(0),
+      ],
+   q(isebe) => [
+      q(2926),
+      q(0),
+      ],
+   q(isekiri) => [
+      q(3018),
+      q(0),
+      ],
+   q(ishkashimi) => [
+      q(3003),
+      q(0),
+      ],
+   q(isinai) => [
+      q(2974),
+      q(0),
+      ],
+   q(isirawa) => [
+      q(6218),
+      q(0),
+      ],
+   q(island carib) => [
+      q(1845),
+      q(0),
+      ],
+   q(islander creole english) => [
+      q(2901),
+      q(0),
+      ],
+   q(isnag) => [
+      q(2998),
+      q(0),
+      ],
+   q(isoko) => [
+      q(3006),
+      q(0),
+      ],
+   q(israeli sign language) => [
+      q(3007),
+      q(0),
+      ],
+   q(isthmus mixe) => [
+      q(4314),
+      q(0),
+      ],
+   q(isthmus zapotec) => [
+      q(7813),
+      q(0),
+      ],
+   q(isthmus-cosoleacaque nahuatl) => [
+      q(4869),
+      q(0),
+      ],
+   q(isthmus-mecayapan nahuatl) => [
+      q(4880),
+      q(0),
+      ],
+   q(isthmus-pajapan nahuatl) => [
+      q(4873),
+      q(0),
+      ],
+   q(istriot) => [
+      q(3008),
+      q(0),
+      ],
+   q(istro romanian) => [
+      q(5870),
+      q(0),
+      ],
+   q(isu (fako division)) => [
+      q(6356),
+      q(0),
+      ],
+   q(isu (menchum division)) => [
+      q(3009),
+      q(0),
+      ],
+   q(italian) => [
+      q(0202),
+      q(0),
+      ],
+   q(italian sign language) => [
+      q(2999),
+      q(0),
+      ],
+   q(italic languages) => [
+      q(0513),
+      q(0),
+      ],
+   q(itawit) => [
+      q(3020),
+      q(0),
+      ],
+   q(itelmen) => [
+      q(3014),
+      q(0),
+      ],
+   q(itene) => [
+      q(3011),
+      q(0),
+      ],
+   q(iteri) => [
+      q(3017),
+      q(0),
+      ],
+   q(itik) => [
+      q(3022),
+      q(0),
+      ],
+   q(ito) => [
+      q(3021),
+      q(0),
+      ],
+   q(itonama) => [
+      q(3016),
+      q(0),
+      ],
+   q(itu mbon uzo) => [
+      q(3015),
+      q(0),
+      ],
+   q(itundujia mixtec) => [
+      q(4157),
+      q(0),
+      ],
+   q(itza) => [
+      q(3024),
+      q(0),
+      ],
+   q(iu mien) => [
+      q(3025),
+      q(0),
+      ],
+   q(ivatan) => [
+      q(3027),
+      q(0),
+      ],
+   q(ivbie north-okpela-arhe) => [
+      q(0914),
+      q(0),
+      ],
+   q(iwaidja) => [
+      q(2889),
+      q(0),
+      ],
+   q(iwal) => [
+      q(3195),
+      q(0),
+      ],
+   q(iwam) => [
+      q(3029),
+      q(0),
+      ],
+   q(iwur) => [
+      q(3030),
+      q(0),
+      ],
+   q(ixcatec) => [
+      q(3032),
+      q(0),
+      ],
+   q(ixcatlan mazatec) => [
+      q(4701),
+      q(0),
+      ],
+   q(ixil) => [
+      q(3033),
+      q(0),
+      ],
+   q(ixtayutla mixtec) => [
+      q(7027),
+      q(0),
+      ],
+   q(ixtenco otomi) => [
+      q(5333),
+      q(0),
+      ],
+   q(iyayu) => [
+      q(3034),
+      q(0),
+      ],
+   q(iyive) => [
+      q(6878),
+      q(0),
+      ],
+   q(iyo) => [
+      q(4762),
+      q(0),
+      ],
+   q(iyo'wujwa chorote) => [
+      q(1857),
+      q(0),
+      ],
+   q(iyojwa'ja chorote) => [
+      q(1860),
+      q(0),
+      ],
+   q(izere) => [
+      q(3038),
+      q(0),
+      ],
+   q(izii) => [
+      q(3039),
+      q(0),
+      ],
+   q(izon) => [
+      q(2934),
+      q(0),
+      ],
+   q(izora) => [
+      q(1671),
+      q(0),
+      ],
+   q(jabuti) => [
+      q(3066),
+      q(0),
+      ],
+   q(jad) => [
+      q(3071),
+      q(0),
+      ],
+   q(jadgali) => [
+      q(3072),
+      q(0),
+      ],
+   q(jah hut) => [
+      q(3046),
+      q(0),
+      ],
+   q(jahanka) => [
+      q(3043),
+      q(0),
+      ],
+   q(jair awyu) => [
+      q(0981),
+      q(0),
+      ],
+   q(jaitmatang) => [
+      q(7368),
+      q(0),
+      ],
+   q(jakalteko) => [
+      q(3042),
+      q(1),
+      ],
+   q(jakati) => [
+      q(3055),
+      q(0),
+      ],
+   q(jakun) => [
+      q(3048),
+      q(0),
+      ],
+   q(jalapa de diaz mazatec) => [
+      q(4119),
+      q(0),
+      ],
+   q(jalkunan) => [
+      q(1578),
+      q(0),
+      ],
+   q(jamaican country sign language) => [
+      q(3069),
+      q(0),
+      ],
+   q(jamaican creole english) => [
+      q(3050),
+      q(0),
+      ],
+   q(jamaican sign language) => [
+      q(3115),
+      q(0),
+      ],
+   q(jamamadi) => [
+      q(3040),
+      q(0),
+      ],
+   q(jambi malay) => [
+      q(3057),
+      q(0),
+      ],
+   q(jamiltepec mixtec) => [
+      q(4666),
+      q(0),
+      ],
+   q(jamsay dogon) => [
+      q(2067),
+      q(0),
+      ],
+   q(jandai) => [
+      q(3051),
+      q(0),
+      ],
+   q(jandavra) => [
+      q(3128),
+      q(0),
+      ],
+   q(jangkang) => [
+      q(2069),
+      q(0),
+      ],
+   q(jangshung) => [
+      q(3127),
+      q(0),
+      ],
+   q(janji) => [
+      q(3130),
+      q(0),
+      ],
+   q(japanese) => [
+      q(0205),
+      q(0),
+      ],
+   q(japanese (family)) => [
+      q(0514),
+      q(0),
+      ],
+   q(japanese sign language) => [
+      q(3146),
+      q(0),
+      ],
+   q(japreria) => [
+      q(3145),
+      q(0),
+      ],
+   q(jaqaru) => [
+      q(3141),
+      q(0),
+      ],
+   q(jara) => [
+      q(3045),
+      q(0),
+      ],
+   q(jarai) => [
+      q(3142),
+      q(0),
+      ],
+   q(jarawa (india)) => [
+      q(0804),
+      q(0),
+      ],
+   q(jaru) => [
+      q(1983),
+      q(0),
+      ],
+   q(jauja wanca quechua) => [
+      q(5733),
+      q(0),
+      ],
+   q(jaunsari) => [
+      q(3133),
+      q(0),
+      ],
+   q(javanese) => [
+      q(0203),
+      q(0),
+      ],
+   q(javindo) => [
+      q(3165),
+      q(0),
+      ],
+   q(jawe) => [
+      q(3059),
+      q(0),
+      ],
+   q(jaya) => [
+      q(3170),
+      q(0),
+      ],
+   q(jebero) => [
+      q(3074),
+      q(0),
+      ],
+   q(jeh) => [
+      q(3077),
+      q(0),
+      ],
+   q(jehai) => [
+      q(3089),
+      q(0),
+      ],
+   q(jejueo) => [
+      q(3107),
+      q(0),
+      ],
+   q(jemez) => [
+      q(6652),
+      q(0),
+      ],
+   q(jenaama bozo) => [
+      q(1617),
+      q(0),
+      ],
+   q(jeng) => [
+      q(3076),
+      q(0),
+      ],
+   q(jennu kurumba) => [
+      q(7534),
+      q(0),
+      ],
+   q(jere) => [
+      q(3082),
+      q(0),
+      ],
+   q(jeri kuo) => [
+      q(3079),
+      q(0),
+      ],
+   q(jerriais) => [
+      q(5053),
+      q(0),
+      ],
+   q(jerung) => [
+      q(3075),
+      q(0),
+      ],
+   q(jewish babylonian aramaic (ca. 200-1200 ce)) => [
+      q(6603),
+      q(0),
+      ],
+   q(jewish palestinian aramaic) => [
+      q(3140),
+      q(0),
+      ],
+   q(jhankot sign language) => [
+      q(3090),
+      q(0),
+      ],
+   q(jiamao) => [
+      q(3101),
+      q(0),
+      ],
+   q(jiarong) => [
+      q(3168),
+      q(0),
+      ],
+   q(jiba) => [
+      q(3157),
+      q(0),
+      ],
+   q(jibu) => [
+      q(3092),
+      q(0),
+      ],
+   q(jicarilla apache) => [
+      q(0842),
+      q(0),
+      ],
+   q(jiiddu) => [
+      q(3098),
+      q(0),
+      ],
+   q(jilbe) => [
+      q(3095),
+      q(0),
+      ],
+   q(jilim) => [
+      q(3099),
+      q(0),
+      ],
+   q(jimi (cameroon)) => [
+      q(3100),
+      q(0),
+      ],
+   q(jimi (nigeria)) => [
+      q(3120),
+      q(0),
+      ],
+   q(jina) => [
+      q(3091),
+      q(0),
+      ],
+   q(jingpho) => [
+      q(0210),
+      q(1),
+      ],
+   q(jinyu chinese) => [
+      q(1754),
+      q(0),
+      ],
+   q(jiongnai bunu) => [
+      q(5548),
+      q(0),
+      ],
+   q(jirel) => [
+      q(3154),
+      q(0),
+      ],
+   q(jiru) => [
+      q(3143),
+      q(0),
+      ],
+   q(jita) => [
+      q(3103),
+      q(0),
+      ],
+   q(jju) => [
+      q(3177),
+      q(0),
+      ],
+   q(joba) => [
+      q(3134),
+      q(0),
+      ],
+   q(jofotek-bromnya) => [
+      q(3065),
+      q(0),
+      ],
+   q(jogi) => [
+      q(3136),
+      q(0),
+      ],
+   q(jola-fonyi) => [
+      q(2205),
+      q(0),
+      ],
+   q(jola-kasa) => [
+      q(1875),
+      q(0),
+      ],
+   q(jonkor bourmataguil) => [
+      q(3084),
+      q(0),
+      ],
+   q(jora) => [
+      q(3137),
+      q(0),
+      ],
+   q(jordanian sign language) => [
+      q(3138),
+      q(0),
+      ],
+   q(jorto) => [
+      q(3144),
+      q(0),
+      ],
+   q(jowulu) => [
+      q(3139),
+      q(0),
+      ],
+   q(ju) => [
+      q(3162),
+      q(0),
+      ],
+   q(ju/'hoan) => [
+      q(3645),
+      q(0),
+      ],
+   q(juang) => [
+      q(3156),
+      q(0),
+      ],
+   q(judeo-arabic) => [
+      q(0207),
+      q(0),
+      ],
+   q(judeo-berber) => [
+      q(3060),
+      q(0),
+      ],
+   q(judeo-georgian) => [
+      q(3086),
+      q(0),
+      ],
+   q(judeo-iraqi arabic) => [
+      q(7643),
+      q(0),
+      ],
+   q(judeo-italian) => [
+      q(3013),
+      q(0),
+      ],
+   q(judeo-moroccan arabic) => [
+      q(0719),
+      q(0),
+      ],
+   q(judeo-persian) => [
+      q(0206),
+      q(0),
+      ],
+   q(judeo-tat) => [
+      q(3073),
+      q(0),
+      ],
+   q(judeo-tripolitanian arabic) => [
+      q(7765),
+      q(0),
+      ],
+   q(judeo-tunisian arabic) => [
+      q(0718),
+      q(0),
+      ],
+   q(judeo-yemeni arabic) => [
+      q(3169),
+      q(0),
+      ],
+   q(juhoan) => [
+      q(3645),
+      q(1),
+      ],
+   q(jukun takum) => [
+      q(3067),
+      q(0),
+      ],
+   q(juma) => [
+      q(3147),
+      q(0),
+      ],
+   q(jumjum) => [
+      q(3155),
+      q(0),
+      ],
+   q(jumla sign language) => [
+      q(3160),
+      q(0),
+      ],
+   q(jumli) => [
+      q(3121),
+      q(0),
+      ],
+   q(jungle inga) => [
+      q(2971),
+      q(0),
+      ],
+   q(juquila mixe) => [
+      q(4663),
+      q(0),
+      ],
+   q(jur modo) => [
+      q(1133),
+      q(0),
+      ],
+   q(juray) => [
+      q(3164),
+      q(0),
+      ],
+   q(jurchen) => [
+      q(3149),
+      q(0),
+      ],
+   q(juruna) => [
+      q(3159),
+      q(0),
+      ],
+   q(jutish) => [
+      q(3161),
+      q(0),
+      ],
+   q(juwal) => [
+      q(4626),
+      q(0),
+      ],
+   q(juxtlahuaca mixtec) => [
+      q(7020),
+      q(0),
+      ],
+   q(jwira-pepesa) => [
+      q(3167),
+      q(0),
+      ],
+   q(k'iche') => [
+      q(5681),
+      q(0),
+      ],
+   q(kaamba) => [
+      q(7388),
+      q(0),
+      ],
+   q(kaan) => [
+      q(3854),
+      q(0),
+      ],
+   q(kaang chin) => [
+      q(1758),
+      q(0),
+      ],
+   q(kaansa) => [
+      q(2567),
+      q(0),
+      ],
+   q(kaapor) => [
+      q(6927),
+      q(1),
+      ],
+   q(kaapor sign language) => [
+      q(6886),
+      q(1),
+      ],
+   q(kaba) => [
+      q(3609),
+      q(0),
+      ],
+   q(kabalai) => [
+      q(3672),
+      q(0),
+      ],
+   q(kabardian) => [
+      q(0219),
+      q(0),
+      ],
+   q(kabatei) => [
+      q(7383),
+      q(0),
+      ],
+   q(kabixi) => [
+      q(7306),
+      q(0),
+      ],
+   q(kabiye) => [
+      q(3198),
+      q(0),
+      ],
+   q(kabola) => [
+      q(3454),
+      q(0),
+      ],
+   q(kabore one) => [
+      q(5273),
+      q(0),
+      ],
+   q(kabras) => [
+      q(3940),
+      q(0),
+      ],
+   q(kaburi) => [
+      q(6880),
+      q(0),
+      ],
+   q(kabutra) => [
+      q(3203),
+      q(0),
+      ],
+   q(kabuverdianu) => [
+      q(3257),
+      q(0),
+      ],
+   q(kabwa) => [
+      q(1924),
+      q(0),
+      ],
+   q(kabwari) => [
+      q(3231),
+      q(0),
+      ],
+   q(kabyle) => [
+      q(0209),
+      q(0),
+      ],
+   q(kachama-ganjule) => [
+      q(3232),
+      q(0),
+      ],
+   q(kachari) => [
+      q(7274),
+      q(0),
+      ],
+   q(kachchi) => [
+      q(3300),
+      q(0),
+      ],
+   q(kachi koli) => [
+      q(2533),
+      q(0),
+      ],
+   q(kachin) => [
+      q(0210),
+      q(0),
+      ],
+   q(kacipo-balesi) => [
+      q(3508),
+      q(0),
+      ],
+   q(kaco') => [
+      q(7379),
+      q(0),
+      ],
+   q(kadai) => [
+      q(3771),
+      q(0),
+      ],
+   q(kadar) => [
+      q(3266),
+      q(0),
+      ],
+   q(kadaru) => [
+      q(3252),
+      q(0),
+      ],
+   q(kadiweu) => [
+      q(3187),
+      q(0),
+      ],
+   q(kadu) => [
+      q(7860),
+      q(0),
+      ],
+   q(kaduo) => [
+      q(3635),
+      q(0),
+      ],
+   q(kafa) => [
+      q(3200),
+      q(0),
+      ],
+   q(kafoa) => [
+      q(3542),
+      q(0),
+      ],
+   q(kagan kalagan) => [
+      q(3440),
+      q(0),
+      ],
+   q(kagate) => [
+      q(6344),
+      q(0),
+      ],
+   q(kagayanen) => [
+      q(1716),
+      q(0),
+      ],
+   q(kagoma) => [
+      q(3246),
+      q(0),
+      ],
+   q(kagoro) => [
+      q(7375),
+      q(0),
+      ],
+   q(kagulu) => [
+      q(3411),
+      q(0),
+      ],
+   q(kahe) => [
+      q(2767),
+      q(0),
+      ],
+   q(kahua) => [
+      q(0673),
+      q(0),
+      ],
+   q(kaian) => [
+      q(3228),
+      q(0),
+      ],
+   q(kaibobo) => [
+      q(3769),
+      q(0),
+      ],
+   q(kaidipang) => [
+      q(3782),
+      q(0),
+      ],
+   q(kaiep) => [
+      q(3205),
+      q(0),
+      ],
+   q(kaikadi) => [
+      q(3272),
+      q(0),
+      ],
+   q(kaikavian literary language) => [
+      q(3399),
+      q(0),
+      ],
+   q(kaike) => [
+      q(3783),
+      q(0),
+      ],
+   q(kaiku) => [
+      q(3419),
+      q(0),
+      ],
+   q(kaimbe) => [
+      q(7278),
+      q(0),
+      ],
+   q(kaimbulawa) => [
+      q(7858),
+      q(0),
+      ],
+   q(kaingang) => [
+      q(3323),
+      q(0),
+      ],
+   q(kairak) => [
+      q(1761),
+      q(0),
+      ],
+   q(kairiru) => [
+      q(3718),
+      q(0),
+      ],
+   q(kairui-midiki) => [
+      q(3576),
+      q(0),
+      ],
+   q(kais) => [
+      q(3779),
+      q(0),
+      ],
+   q(kaivi) => [
+      q(3213),
+      q(0),
+      ],
+   q(kaiwa) => [
+      q(3318),
+      q(0),
+      ],
+   q(kaiy) => [
+      q(6420),
+      q(0),
+      ],
+   q(kajakse) => [
+      q(1760),
+      q(0),
+      ],
+   q(kajali) => [
+      q(7378),
+      q(0),
+      ],
+   q(kajaman) => [
+      q(3174),
+      q(0),
+      ],
+   q(kakabai) => [
+      q(3553),
+      q(0),
+      ],
+   q(kakabe) => [
+      q(3407),
+      q(0),
+      ],
+   q(kakanda) => [
+      q(3403),
+      q(0),
+      ],
+   q(kaki ae) => [
+      q(6383),
+      q(0),
+      ],
+   q(kako) => [
+      q(3412),
+      q(0),
+      ],
+   q(kakwa) => [
+      q(3271),
+      q(0),
+      ],
+   q(kala) => [
+      q(3220),
+      q(1),
+      ],
+   q(kala lagaw ya) => [
+      q(4637),
+      q(0),
+      ],
+   q(kalaallisut) => [
+      q(0211),
+      q(0),
+      ],
+   q(kalaamaya) => [
+      q(3948),
+      q(0),
+      ],
+   q(kalabakan) => [
+      q(3671),
+      q(0),
+      ],
+   q(kalabari) => [
+      q(2937),
+      q(0),
+      ],
+   q(kalabra) => [
+      q(3792),
+      q(0),
+      ],
+   q(kalagan) => [
+      q(3552),
+      q(0),
+      ],
+   q(kalaktang monpa) => [
+      q(3408),
+      q(0),
+      ],
+   q(kalam) => [
+      q(3461),
+      q(0),
+      ],
+   q(kalami) => [
+      q(2681),
+      q(0),
+      ],
+   q(kalamse) => [
+      q(3504),
+      q(0),
+      ],
+   q(kalanadi) => [
+      q(7148),
+      q(0),
+      ],
+   q(kalanga) => [
+      q(3219),
+      q(0),
+      ],
+   q(kalao) => [
+      q(3453),
+      q(0),
+      ],
+   q(kalapuya) => [
+      q(3753),
+      q(0),
+      ],
+   q(kalarko) => [
+      q(3185),
+      q(0),
+      ],
+   q(kalasha) => [
+      q(3447),
+      q(0),
+      ],
+   q(kalenjin) => [
+      q(3442),
+      q(0),
+      ],
+   q(kalispel-pend d'oreille) => [
+      q(2353),
+      q(0),
+      ],
+   q(kalkoti) => [
+      q(7369),
+      q(0),
+      ],
+   q(kalkutung) => [
+      q(3626),
+      q(0),
+      ],
+   q(kalmyk) => [
+      q(0470),
+      q(0),
+      ],
+   q(kalo finnish romani) => [
+      q(5810),
+      q(0),
+      ],
+   q(kalou) => [
+      q(7785),
+      q(0),
+      ],
+   q(kaluli) => [
+      q(1078),
+      q(0),
+      ],
+   q(kalumpang) => [
+      q(3437),
+      q(0),
+      ],
+   q(kam) => [
+      q(3254),
+      q(0),
+      ],
+   q(kamakan) => [
+      q(7011),
+      q(0),
+      ],
+   q(kamang) => [
+      q(7203),
+      q(0),
+      ],
+   q(kamano) => [
+      q(3199),
+      q(0),
+      ],
+   q(kamantan) => [
+      q(3217),
+      q(0),
+      ],
+   q(kamar) => [
+      q(3273),
+      q(0),
+      ],
+   q(kamara) => [
+      q(3123),
+      q(0),
+      ],
+   q(kamarian) => [
+      q(3790),
+      q(0),
+      ],
+   q(kamaru) => [
+      q(3331),
+      q(0),
+      ],
+   q(kamas) => [
+      q(7286),
+      q(0),
+      ],
+   q(kamasa) => [
+      q(3444),
+      q(0),
+      ],
+   q(kamasau) => [
+      q(3472),
+      q(0),
+      ],
+   q(kamayo) => [
+      q(3752),
+      q(0),
+      ],
+   q(kamayura) => [
+      q(3184),
+      q(0),
+      ],
+   q(kamba) => [
+      q(0212),
+      q(0),
+      ],
+   q(kamba (brazil)) => [
+      q(7292),
+      q(0),
+      ],
+   q(kamba (kenya)) => [
+      q(0212),
+      q(1),
+      ],
+   q(kambaata) => [
+      q(3621),
+      q(0),
+      ],
+   q(kambaira) => [
+      q(3766),
+      q(0),
+      ],
+   q(kambera) => [
+      q(7304),
+      q(0),
+      ],
+   q(kamberau) => [
+      q(2994),
+      q(0),
+      ],
+   q(kambiwa) => [
+      q(7305),
+      q(0),
+      ],
+   q(kami (nigeria)) => [
+      q(3462),
+      q(0),
+      ],
+   q(kami (tanzania)) => [
+      q(3229),
+      q(0),
+      ],
+   q(kamo) => [
+      q(3225),
+      q(0),
+      ],
+   q(kamoro) => [
+      q(3324),
+      q(0),
+      ],
+   q(kamta) => [
+      q(5803),
+      q(1),
+      ],
+   q(kamu) => [
+      q(7426),
+      q(0),
+      ],
+   q(kamula) => [
+      q(7394),
+      q(0),
+      ],
+   q(kamviri) => [
+      q(7544),
+      q(0),
+      ],
+   q(kamwe) => [
+      q(2757),
+      q(0),
+      ],
+   q(kanakanabu) => [
+      q(7433),
+      q(0),
+      ],
+   q(kanamari) => [
+      q(3491),
+      q(0),
+      ],
+   q(kanan) => [
+      q(7864),
+      q(0),
+      ],
+   q(kanashi) => [
+      q(7441),
+      q(0),
+      ],
+   q(kanasi) => [
+      q(6169),
+      q(0),
+      ],
+   q(kanauji) => [
+      q(1239),
+      q(0),
+      ],
+   q(kandas) => [
+      q(3570),
+      q(0),
+      ],
+   q(kandawo) => [
+      q(2409),
+      q(0),
+      ],
+   q(kande) => [
+      q(3201),
+      q(0),
+      ],
+   q(kanembu) => [
+      q(3194),
+      q(0),
+      ],
+   q(kang) => [
+      q(3757),
+      q(0),
+      ],
+   q(kanga) => [
+      q(3224),
+      q(0),
+      ],
+   q(kangean) => [
+      q(3424),
+      q(0),
+      ],
+   q(kanggape) => [
+      q(2924),
+      q(0),
+      ],
+   q(kangjia) => [
+      q(3734),
+      q(0),
+      ],
+   q(kango (bas-uele district)) => [
+      q(3644),
+      q(0),
+      ],
+   q(kango (tshopo district)) => [
+      q(3791),
+      q(0),
+      ],
+   q(kangri) => [
+      q(7440),
+      q(0),
+      ],
+   q(kaniet) => [
+      q(3630),
+      q(0),
+      ],
+   q(kanikkaran) => [
+      q(3278),
+      q(0),
+      ],
+   q(kaningdon-nindem) => [
+      q(3248),
+      q(0),
+      ],
+   q(kaningi) => [
+      q(3781),
+      q(0),
+      ],
+   q(kaningra) => [
+      q(3496),
+      q(0),
+      ],
+   q(kaninuwa) => [
+      q(7071),
+      q(0),
+      ],
+   q(kanite) => [
+      q(3474),
+      q(0),
+      ],
+   q(kanjari) => [
+      q(3302),
+      q(0),
+      ],
+   q(kanjobal) => [
+      q(3379),
+      q(1),
+      ],
+   q(kanju) => [
+      q(3188),
+      q(0),
+      ],
+   q(kankanaey) => [
+      q(3484),
+      q(0),
+      ],
+   q(kannada) => [
+      q(0213),
+      q(0),
+      ],
+   q(kannada kurumba) => [
+      q(3291),
+      q(0),
+      ],
+   q(kanoe) => [
+      q(3730),
+      q(0),
+      ],
+   q(kanowit-tanjong melanau) => [
+      q(3729),
+      q(0),
+      ],
+   q(kansa) => [
+      q(3604),
+      q(0),
+      ],
+   q(kantosi) => [
+      q(7387),
+      q(0),
+      ],
+   q(kanu) => [
+      q(3352),
+      q(0),
+      ],
+   q(kanufi) => [
+      q(3487),
+      q(0),
+      ],
+   q(kanuri) => [
+      q(0216),
+      q(0),
+      ],
+   q(kanyok) => [
+      q(3503),
+      q(0),
+      ],
+   q(kao) => [
+      q(3183),
+      q(0),
+      ],
+   q(kaonde) => [
+      q(3561),
+      q(0),
+      ],
+   q(kap) => [
+      q(7669),
+      q(0),
+      ],
+   q(kapampangan) => [
+      q(0337),
+      q(1),
+      ],
+   q(kapauri) => [
+      q(3344),
+      q(1),
+      ],
+   q(kapin) => [
+      q(6402),
+      q(0),
+      ],
+   q(kapinawa) => [
+      q(7465),
+      q(0),
+      ],
+   q(kapingamarangi) => [
+      q(3529),
+      q(0),
+      ],
+   q(kapori) => [
+      q(3344),
+      q(0),
+      ],
+   q(kapriman) => [
+      q(2071),
+      q(0),
+      ],
+   q(kaptiau) => [
+      q(3191),
+      q(0),
+      ],
+   q(kapya) => [
+      q(3443),
+      q(0),
+      ],
+   q(kaqchikel) => [
+      q(1647),
+      q(0),
+      ],
+   q(kara (central african republic)) => [
+      q(3175),
+      q(0),
+      ],
+   q(kara (korea)) => [
+      q(7941),
+      q(0),
+      ],
+   q(kara (papua new guinea)) => [
+      q(3879),
+      q(0),
+      ],
+   q(kara (tanzania)) => [
+      q(5767),
+      q(0),
+      ],
+   q(kara-kalpak) => [
+      q(0208),
+      q(0),
+      ],
+   q(karachay-balkar) => [
+      q(0234),
+      q(0),
+      ],
+   q(karadjeri) => [
+      q(2422),
+      q(0),
+      ],
+   q(karagas) => [
+      q(3366),
+      q(0),
+      ],
+   q(karahawyana) => [
+      q(7376),
+      q(0),
+      ],
+   q(karaim) => [
+      q(3250),
+      q(0),
+      ],
+   q(karaja) => [
+      q(3532),
+      q(0),
+      ],
+   q(karakhanid) => [
+      q(7474),
+      q(0),
+      ],
+   q(karami) => [
+      q(7285),
+      q(0),
+      ],
+   q(karamojong) => [
+      q(3243),
+      q(0),
+      ],
+   q(karang) => [
+      q(3784),
+      q(0),
+      ],
+   q(karanga) => [
+      q(3627),
+      q(0),
+      ],
+   q(karankawa) => [
+      q(7863),
+      q(0),
+      ],
+   q(karao) => [
+      q(3751),
+      q(0),
+      ],
+   q(karas) => [
+      q(3329),
+      q(0),
+      ],
+   q(karata) => [
+      q(3541),
+      q(0),
+      ],
+   q(karawa) => [
+      q(7488),
+      q(0),
+      ],
+   q(karbi) => [
+      q(4340),
+      q(0),
+      ],
+   q(kare (central african republic)) => [
+      q(3196),
+      q(0),
+      ],
+   q(kare (papua new guinea)) => [
+      q(3459),
+      q(0),
+      ],
+   q(karekare) => [
+      q(3176),
+      q(0),
+      ],
+   q(karelian) => [
+      q(0235),
+      q(0),
+      ],
+   q(karen languages) => [
+      q(0214),
+      q(0),
+      ],
+   q(karenggapa) => [
+      q(2212),
+      q(0),
+      ],
+   q(karey) => [
+      q(3745),
+      q(0),
+      ],
+   q(kari) => [
+      q(3192),
+      q(0),
+      ],
+   q(karingani) => [
+      q(3321),
+      q(0),
+      ],
+   q(karipuna) => [
+      q(3320),
+      q(0),
+      ],
+   q(karipuna creole french) => [
+      q(3475),
+      q(0),
+      ],
+   q(kariri-xoco) => [
+      q(3789),
+      q(0),
+      ],
+   q(karitiana) => [
+      q(3633),
+      q(0),
+      ],
+   q(kariya) => [
+      q(3365),
+      q(0),
+      ],
+   q(kariyarra) => [
+      q(7006),
+      q(0),
+      ],
+   q(karkar-yuri) => [
+      q(7770),
+      q(0),
+      ],
+   q(karkin) => [
+      q(3575),
+      q(0),
+      ],
+   q(karko) => [
+      q(3417),
+      q(0),
+      ],
+   q(karnai) => [
+      q(1059),
+      q(0),
+      ],
+   q(karo (brazil)) => [
+      q(0878),
+      q(0),
+      ],
+   q(karo (ethiopia)) => [
+      q(3723),
+      q(0),
+      ],
+   q(karok) => [
+      q(3749),
+      q(0),
+      ],
+   q(karon) => [
+      q(3591),
+      q(0),
+      ],
+   q(karon dori) => [
+      q(3330),
+      q(0),
+      ],
+   q(karore) => [
+      q(7391),
+      q(0),
+      ],
+   q(karranga) => [
+      q(7484),
+      q(0),
+      ],
+   q(karuwali) => [
+      q(5882),
+      q(0),
+      ],
+   q(kasanga) => [
+      q(1686),
+      q(0),
+      ],
+   q(kasem) => [
+      q(7497),
+      q(0),
+      ],
+   q(kashaya) => [
+      q(3398),
+      q(0),
+      ],
+   q(kashmiri) => [
+      q(0215),
+      q(0),
+      ],
+   q(kashubian) => [
+      q(0099),
+      q(0),
+      ],
+   q(kasiguranin) => [
+      q(3607),
+      q(0),
+      ],
+   q(kaska) => [
+      q(3428),
+      q(0),
+      ],
+   q(kaskean) => [
+      q(7948),
+      q(0),
+      ],
+   q(kasseng) => [
+      q(3311),
+      q(0),
+      ],
+   q(kasua) => [
+      q(3347),
+      q(0),
+      ],
+   q(kataang) => [
+      q(3312),
+      q(0),
+      ],
+   q(katabaga) => [
+      q(3636),
+      q(0),
+      ],
+   q(katawixi) => [
+      q(7287),
+      q(0),
+      ],
+   q(katbol) => [
+      q(6588),
+      q(0),
+      ],
+   q(katcha-kadugli-miri) => [
+      q(7509),
+      q(0),
+      ],
+   q(kate) => [
+      q(3460),
+      q(0),
+      ],
+   q(kathoriya tharu) => [
+      q(6560),
+      q(0),
+      ],
+   q(kathu) => [
+      q(7673),
+      q(0),
+      ],
+   q(kati) => [
+      q(1453),
+      q(0),
+      ],
+   q(katkari) => [
+      q(3303),
+      q(0),
+      ],
+   q(katla) => [
+      q(3226),
+      q(0),
+      ],
+   q(kato) => [
+      q(3642),
+      q(0),
+      ],
+   q(katso) => [
+      q(3173),
+      q(0),
+      ],
+   q(katua) => [
+      q(3620),
+      q(0),
+      ],
+   q(katukina) => [
+      q(3182),
+      q(0),
+      ],
+   q(kaulong) => [
+      q(5623),
+      q(0),
+      ],
+   q(kaur) => [
+      q(7009),
+      q(0),
+      ],
+   q(kaure) => [
+      q(1387),
+      q(0),
+      ],
+   q(kaurna) => [
+      q(7869),
+      q(0),
+      ],
+   q(kauwera) => [
+      q(7288),
+      q(0),
+      ],
+   q(kavalan) => [
+      q(1765),
+      q(0),
+      ],
+   q(kavet) => [
+      q(3589),
+      q(0),
+      ],
+   q(kawacha) => [
+      q(3210),
+      q(0),
+      ],
+   q(kawaiisu) => [
+      q(7290),
+      q(0),
+      ],
+   q(kawe) => [
+      q(3310),
+      q(0),
+      ],
+   q(kawi) => [
+      q(0217),
+      q(0),
+      ],
+   q(kaxarari) => [
+      q(3643),
+      q(0),
+      ],
+   q(kaxuiana) => [
+      q(3186),
+      q(0),
+      ],
+   q(kayabi) => [
+      q(3767),
+      q(0),
+      ],
+   q(kayagar) => [
+      q(3761),
+      q(0),
+      ],
+   q(kayan) => [
+      q(5403),
+      q(0),
+      ],
+   q(kayan mahakam) => [
+      q(7291),
+      q(0),
+      ],
+   q(kayan river kayan) => [
+      q(7381),
+      q(0),
+      ],
+   q(kayapa kallahan) => [
+      q(3178),
+      q(0),
+      ],
+   q(kayapo) => [
+      q(6827),
+      q(0),
+      ],
+   q(kayardild) => [
+      q(2697),
+      q(0),
+      ],
+   q(kayaw) => [
+      q(3678),
+      q(0),
+      ],
+   q(kayeli) => [
+      q(3778),
+      q(0),
+      ],
+   q(kayong) => [
+      q(3740),
+      q(0),
+      ],
+   q(kayort) => [
+      q(3763),
+      q(0),
+      ],
+   q(kaytetye) => [
+      q(2421),
+      q(0),
+      ],
+   q(kayupulau) => [
+      q(3787),
+      q(0),
+      ],
+   q(kazakh) => [
+      q(0218),
+      q(0),
+      ],
+   q(kazukuru) => [
+      q(3777),
+      q(0),
+      ],
+   q(ke'o) => [
+      q(7561),
+      q(0),
+      ],
+   q(keak) => [
+      q(3264),
+      q(0),
+      ],
+   q(keapara) => [
+      q(3354),
+      q(0),
+      ],
+   q(kedah malay) => [
+      q(4214),
+      q(0),
+      ],
+   q(kedang) => [
+      q(3617),
+      q(0),
+      ],
+   q(keder) => [
+      q(3255),
+      q(0),
+      ],
+   q(kehu) => [
+      q(3339),
+      q(0),
+      ],
+   q(kei) => [
+      q(3265),
+      q(0),
+      ],
+   q(keiga) => [
+      q(3259),
+      q(0),
+      ],
+   q(keijar) => [
+      q(3255),
+      q(1),
+      ],
+   q(kein) => [
+      q(1310),
+      q(0),
+      ],
+   q(keiyo) => [
+      q(2319),
+      q(0),
+      ],
+   q(kekchi) => [
+      q(3267),
+      q(0),
+      ],
+   q(kela (democratic republic of congo)) => [
+      q(3268),
+      q(0),
+      ],
+   q(kela (papua new guinea)) => [
+      q(3220),
+      q(0),
+      ],
+   q(kelabit) => [
+      q(3775),
+      q(0),
+      ],
+   q(kele) => [
+      q(3258),
+      q(0),
+      ],
+   q(kele (democratic republic of congo)) => [
+      q(3353),
+      q(0),
+      ],
+   q(kele (papua new guinea)) => [
+      q(5904),
+      q(0),
+      ],
+   q(kelengazxo bozo) => [
+      q(1636),
+      q(0),
+      ],
+   q(keley-i kallahan) => [
+      q(2919),
+      q(0),
+      ],
+   q(keliko) => [
+      q(3197),
+      q(0),
+      ],
+   q(kelo) => [
+      q(7331),
+      q(0),
+      ],
+   q(kelon) => [
+      q(3756),
+      q(0),
+      ],
+   q(kemak) => [
+      q(3269),
+      q(0),
+      ],
+   q(kembayan) => [
+      q(7332),
+      q(0),
+      ],
+   q(kemberano) => [
+      q(1628),
+      q(0),
+      ],
+   q(kembra) => [
+      q(7390),
+      q(0),
+      ],
+   q(kemedzung) => [
+      q(2091),
+      q(0),
+      ],
+   q(kemi sami) => [
+      q(6060),
+      q(0),
+      ],
+   q(kemiehua) => [
+      q(3292),
+      q(0),
+      ],
+   q(kemtuik) => [
+      q(3473),
+      q(0),
+      ],
+   q(kenaboi) => [
+      q(7301),
+      q(0),
+      ],
+   q(kenati) => [
+      q(2416),
+      q(0),
+      ],
+   q(kendayan) => [
+      q(3502),
+      q(0),
+      ],
+   q(kendeje) => [
+      q(3434),
+      q(0),
+      ],
+   q(kendem) => [
+      q(3679),
+      q(0),
+      ],
+   q(kenga) => [
+      q(3758),
+      q(0),
+      ],
+   q(keningau murut) => [
+      q(3724),
+      q(0),
+      ],
+   q(keninjal) => [
+      q(3490),
+      q(0),
+      ],
+   q(kensiu) => [
+      q(3497),
+      q(0),
+      ],
+   q(kenswei nsei) => [
+      q(4785),
+      q(0),
+      ],
+   q(kenyan sign language) => [
+      q(7377),
+      q(0),
+      ],
+   q(kenyang) => [
+      q(3270),
+      q(0),
+      ],
+   q(kenyi) => [
+      q(3943),
+      q(0),
+      ],
+   q(kenzi) => [
+      q(7445),
+      q(0),
+      ],
+   q(keoru-ahia) => [
+      q(7337),
+      q(0),
+      ],
+   q(kepkiriwat) => [
+      q(3536),
+      q(0),
+      ],
+   q(kepo') => [
+      q(3655),
+      q(0),
+      ],
+   q(kera) => [
+      q(3274),
+      q(0),
+      ],
+   q(kerak) => [
+      q(2751),
+      q(0),
+      ],
+   q(kereho) => [
+      q(7373),
+      q(0),
+      ],
+   q(kerek) => [
+      q(3582),
+      q(0),
+      ],
+   q(kerewe) => [
+      q(3260),
+      q(0),
+      ],
+   q(kerewo) => [
+      q(3741),
+      q(0),
+      ],
+   q(kerinci) => [
+      q(3684),
+      q(0),
+      ],
+   q(kesawai) => [
+      q(7335),
+      q(0),
+      ],
+   q(ket) => [
+      q(3276),
+      q(0),
+      ],
+   q(ketangalan) => [
+      q(3172),
+      q(0),
+      ],
+   q(kete) => [
+      q(3230),
+      q(0),
+      ],
+   q(ketengban) => [
+      q(7511),
+      q(0),
+      ],
+   q(ketum) => [
+      q(3639),
+      q(0),
+      ],
+   q(keyagana) => [
+      q(3748),
+      q(0),
+      ],
+   q(kgalagadi) => [
+      q(7389),
+      q(0),
+      ],
+   q(khakas) => [
+      q(3385),
+      q(0),
+      ],
+   q(khalaj) => [
+      q(3383),
+      q(0),
+      ],
+   q(khaling) => [
+      q(3446),
+      q(0),
+      ],
+   q(khamba) => [
+      q(3189),
+      q(0),
+      ],
+   q(khams tibetan) => [
+      q(3338),
+      q(0),
+      ],
+   q(khamti) => [
+      q(3348),
+      q(0),
+      ],
+   q(khamyang) => [
+      q(3614),
+      q(0),
+      ],
+   q(khana) => [
+      q(5212),
+      q(0),
+      ],
+   q(khandesi) => [
+      q(3343),
+      q(0),
+      ],
+   q(khang) => [
+      q(3390),
+      q(0),
+      ],
+   q(khanty) => [
+      q(3209),
+      q(0),
+      ],
+   q(khao) => [
+      q(7282),
+      q(0),
+      ],
+   q(kharam naga) => [
+      q(3305),
+      q(0),
+      ],
+   q(kharia) => [
+      q(3346),
+      q(0),
+      ],
+   q(kharia thar) => [
+      q(3618),
+      q(0),
+      ],
+   q(khasi) => [
+      q(0220),
+      q(0),
+      ],
+   q(khayo) => [
+      q(3950),
+      q(0),
+      ],
+   q(khazar) => [
+      q(7871),
+      q(0),
+      ],
+   q(khe) => [
+      q(3554),
+      q(0),
+      ],
+   q(khehek) => [
+      q(6585),
+      q(0),
+      ],
+   q(khengkha) => [
+      q(7374),
+      q(0),
+      ],
+   q(khetrani) => [
+      q(7353),
+      q(0),
+      ],
+   q(khezha naga) => [
+      q(4929),
+      q(0),
+      ],
+   q(khiamniungan naga) => [
+      q(3375),
+      q(0),
+      ],
+   q(khinalugh) => [
+      q(3387),
+      q(0),
+      ],
+   q(khirwar) => [
+      q(3715),
+      q(0),
+      ],
+   q(khisa) => [
+      q(3560),
+      q(0),
+      ],
+   q(khlor) => [
+      q(3970),
+      q(0),
+      ],
+   q(khlula) => [
+      q(7668),
+      q(0),
+      ],
+   q(khmu) => [
+      q(3384),
+      q(0),
+      ],
+   q(kho'ini) => [
+      q(7371),
+      q(0),
+      ],
+   q(khoekhoe) => [
+      q(4732),
+      q(0),
+      ],
+   q(khoibu naga) => [
+      q(4923),
+      q(0),
+      ],
+   q(khoisan languages) => [
+      q(0221),
+      q(0),
+      ],
+   q(kholok) => [
+      q(3622),
+      q(0),
+      ],
+   q(khonso) => [
+      q(3720),
+      q(1),
+      ],
+   q(khorasani turkish) => [
+      q(3479),
+      q(0),
+      ],
+   q(khorezmian) => [
+      q(7862),
+      q(0),
+      ],
+   q(khotanese) => [
+      q(0223),
+      q(0),
+      ],
+   q(khowar) => [
+      q(3351),
+      q(0),
+      ],
+   q(khua) => [
+      q(7357),
+      q(0),
+      ],
+   q(khuen) => [
+      q(3337),
+      q(0),
+      ],
+   q(khumi chin) => [
+      q(1801),
+      q(0),
+      ],
+   q(khun) => [
+      q(3410),
+      q(0),
+      ],
+   q(khunsari) => [
+      q(3295),
+      q(0),
+      ],
+   q(khvarshi) => [
+      q(3350),
+      q(0),
+      ],
+   q(kibet) => [
+      q(3359),
+      q(0),
+      ],
+   q(kibiri) => [
+      q(5597),
+      q(0),
+      ],
+   q(kickapoo) => [
+      q(3357),
+      q(0),
+      ],
+   q(kiembu) => [
+      q(2217),
+      q(1),
+      ],
+   q(kigiryama) => [
+      q(5160),
+      q(1),
+      ],
+   q(kikai) => [
+      q(3774),
+      q(0),
+      ],
+   q(kikuyu) => [
+      q(0224),
+      q(0),
+      ],
+   q(kildin sami) => [
+      q(6057),
+      q(0),
+      ],
+   q(kilivila) => [
+      q(3364),
+      q(0),
+      ],
+   q(kiliwa) => [
+      q(3430),
+      q(0),
+      ],
+   q(kilmeri) => [
+      q(3362),
+      q(0),
+      ],
+   q(kim) => [
+      q(3355),
+      q(0),
+      ],
+   q(kim mun) => [
+      q(4326),
+      q(0),
+      ],
+   q(kimaama) => [
+      q(3361),
+      q(0),
+      ],
+   q(kimaghima) => [
+      q(3361),
+      q(1),
+      ],
+   q(kimaragang) => [
+      q(3565),
+      q(0),
+      ],
+   q(kimbu) => [
+      q(3373),
+      q(0),
+      ],
+   q(kimbundu) => [
+      q(0227),
+      q(0),
+      ],
+   q(kimki) => [
+      q(5921),
+      q(0),
+      ],
+   q(kimre) => [
+      q(3563),
+      q(0),
+      ],
+   q(kinabalian) => [
+      q(1678),
+      q(0),
+      ],
+   q(kinalakna) => [
+      q(3223),
+      q(0),
+      ],
+   q(kinamiging manobo) => [
+      q(4365),
+      q(0),
+      ],
+   q(kinaray-a) => [
+      q(3581),
+      q(0),
+      ],
+   q(kinga) => [
+      q(7839),
+      q(0),
+      ],
+   q(kinnauri) => [
+      q(3293),
+      q(0),
+      ],
+   q(kintaq) => [
+      q(3495),
+      q(0),
+      ],
+   q(kinuku) => [
+      q(3406),
+      q(0),
+      ],
+   q(kinyarwanda) => [
+      q(0225),
+      q(0),
+      ],
+   q(kioko) => [
+      q(6868),
+      q(0),
+      ],
+   q(kiong) => [
+      q(3415),
+      q(0),
+      ],
+   q(kiorr) => [
+      q(7382),
+      q(0),
+      ],
+   q(kiowa) => [
+      q(3367),
+      q(0),
+      ],
+   q(kiowa apache) => [
+      q(0843),
+      q(0),
+      ],
+   q(kipfokomo) => [
+      q(5475),
+      q(1),
+      ],
+   q(kipsigis) => [
+      q(5992),
+      q(0),
+      ],
+   q(kiput) => [
+      q(3750),
+      q(0),
+      ],
+   q(kir-balar) => [
+      q(3420),
+      q(0),
+      ],
+   q(kirdki) => [
+      q(0486),
+      q(3),
+      ],
+   q(kire) => [
+      q(2474),
+      q(0),
+      ],
+   q(kirghiz) => [
+      q(0226),
+      q(0),
+      ],
+   q(kirike) => [
+      q(5238),
+      q(0),
+      ],
+   q(kirikiri) => [
+      q(3376),
+      q(0),
+      ],
+   q(kirmanjki) => [
+      q(0486),
+      q(4),
+      ],
+   q(kirmanjki (individual language)) => [
+      q(3372),
+      q(0),
+      ],
+   q(kirmanjki (macrolanguage)) => [
+      q(0486),
+      q(7),
+      ],
+   q(kirya-konzel) => [
+      q(2351),
+      q(0),
+      ],
+   q(kis) => [
+      q(3370),
+      q(0),
+      ],
+   q(kisa) => [
+      q(3952),
+      q(0),
+      ],
+   q(kisan) => [
+      q(7364),
+      q(0),
+      ],
+   q(kisankasa) => [
+      q(3555),
+      q(0),
+      ],
+   q(kisar) => [
+      q(3382),
+      q(0),
+      ],
+   q(kisi) => [
+      q(3377),
+      q(0),
+      ],
+   q(kistane) => [
+      q(2626),
+      q(0),
+      ],
+   q(kiswahili) => [
+      q(6304),
+      q(1),
+      ],
+   q(kita maninkakan) => [
+      q(4633),
+      q(0),
+      ],
+   q(kitan) => [
+      q(7868),
+      q(0),
+      ],
+   q(kitharaka) => [
+      q(6503),
+      q(1),
+      ],
+   q(kitja) => [
+      q(2514),
+      q(0),
+      ],
+   q(kitsai) => [
+      q(3363),
+      q(0),
+      ],
+   q(kituba (congo)) => [
+      q(4364),
+      q(0),
+      ],
+   q(kituba (democratic republic of congo)) => [
+      q(3640),
+      q(0),
+      ],
+   q(kiunum) => [
+      q(7106),
+      q(0),
+      ],
+   q(kiwilwana) => [
+      q(4376),
+      q(1),
+      ],
+   q(kla-dan) => [
+      q(3846),
+      q(0),
+      ],
+   q(klamath-modoc) => [
+      q(3429),
+      q(0),
+      ],
+   q(klao) => [
+      q(3449),
+      q(0),
+      ],
+   q(klias river kadazan) => [
+      q(3567),
+      q(0),
+      ],
+   q(klingon) => [
+      q(0432),
+      q(0),
+      ],
+   q(knaanic) => [
+      q(1934),
+      q(0),
+      ],
+   q(ko) => [
+      q(2387),
+      q(0),
+      ],
+   q(koalib) => [
+      q(3356),
+      q(0),
+      ],
+   q(koasati) => [
+      q(1764),
+      q(0),
+      ],
+   q(koba) => [
+      q(3527),
+      q(0),
+      ],
+   q(kobiana) => [
+      q(3218),
+      q(0),
+      ],
+   q(kobol) => [
+      q(3328),
+      q(0),
+      ],
+   q(kobon) => [
+      q(3544),
+      q(0),
+      ],
+   q(koch) => [
+      q(3249),
+      q(0),
+      ],
+   q(kochila tharu) => [
+      q(6508),
+      q(0),
+      ],
+   q(koda) => [
+      q(1705),
+      q(0),
+      ],
+   q(kodaku) => [
+      q(3619),
+      q(0),
+      ],
+   q(kodava) => [
+      q(3283),
+      q(0),
+      ],
+   q(kodeoha) => [
+      q(7012),
+      q(0),
+      ],
+   q(kodi) => [
+      q(3507),
+      q(0),
+      ],
+   q(kodia) => [
+      q(3708),
+      q(0),
+      ],
+   q(koenoem) => [
+      q(3227),
+      q(0),
+      ],
+   q(kofa) => [
+      q(3608),
+      q(0),
+      ],
+   q(kofei) => [
+      q(3531),
+      q(0),
+      ],
+   q(kofyar) => [
+      q(3704),
+      q(0),
+      ],
+   q(kogi) => [
+      q(3510),
+      q(1),
+      ],
+   q(koguryo) => [
+      q(7861),
+      q(0),
+      ],
+   q(kohin) => [
+      q(3426),
+      q(0),
+      ],
+   q(kohistani shina) => [
+      q(5494),
+      q(0),
+      ],
+   q(koho) => [
+      q(3535),
+      q(0),
+      ],
+   q(kohumono) => [
+      q(1082),
+      q(0),
+      ],
+   q(koi) => [
+      q(3422),
+      q(0),
+      ],
+   q(koibal) => [
+      q(7859),
+      q(0),
+      ],
+   q(koireng) => [
+      q(4925),
+      q(0),
+      ],
+   q(koitabu) => [
+      q(3556),
+      q(0),
+      ],
+   q(koiwat) => [
+      q(3735),
+      q(0),
+      ],
+   q(kok borok) => [
+      q(6702),
+      q(0),
+      ],
+   q(kok-nar) => [
+      q(2540),
+      q(0),
+      ],
+   q(kokata) => [
+      q(3623),
+      q(0),
+      ],
+   q(koke) => [
+      q(3518),
+      q(0),
+      ],
+   q(koki naga) => [
+      q(5147),
+      q(0),
+      ],
+   q(koko babangk) => [
+      q(5229),
+      q(0),
+      ],
+   q(kokoda) => [
+      q(7447),
+      q(0),
+      ],
+   q(kokola) => [
+      q(3780),
+      q(0),
+      ],
+   q(kokota) => [
+      q(3413),
+      q(0),
+      ],
+   q(kol) => [
+      q(2237),
+      q(1),
+      ],
+   q(kol (bangladesh)) => [
+      q(2237),
+      q(0),
+      ],
+   q(kol (cameroon)) => [
+      q(1227),
+      q(0),
+      ],
+   q(kol (papua new guinea)) => [
+      q(3513),
+      q(0),
+      ],
+   q(kola) => [
+      q(3688),
+      q(0),
+      ],
+   q(kolbila) => [
+      q(3431),
+      q(0),
+      ],
+   q(kolibugan subanon) => [
+      q(6083),
+      q(0),
+      ],
+   q(kolsch) => [
+      q(3601),
+      q(0),
+      ],
+   q(koluwawa) => [
+      q(3452),
+      q(0),
+      ],
+   q(kom (cameroon)) => [
+      q(1265),
+      q(0),
+      ],
+   q(kom (india)) => [
+      q(3466),
+      q(0),
+      ],
+   q(koma) => [
+      q(3478),
+      q(0),
+      ],
+   q(komba) => [
+      q(3528),
+      q(0),
+      ],
+   q(kombai) => [
+      q(6836),
+      q(0),
+      ],
+   q(kombio) => [
+      q(7298),
+      q(0),
+      ],
+   q(komering) => [
+      q(3313),
+      q(0),
+      ],
+   q(komi) => [
+      q(0229),
+      q(0),
+      ],
+   q(komi-permyak) => [
+      q(3512),
+      q(0),
+      ],
+   q(komi-zyrian) => [
+      q(3543),
+      q(0),
+      ],
+   q(kominimung) => [
+      q(7449),
+      q(0),
+      ],
+   q(komo (democratic republic of congo)) => [
+      q(3476),
+      q(0),
+      ],
+   q(komo (sudan)) => [
+      q(7451),
+      q(0),
+      ],
+   q(komodo) => [
+      q(3674),
+      q(0),
+      ],
+   q(kompane) => [
+      q(3682),
+      q(0),
+      ],
+   q(komyandaret) => [
+      q(3788),
+      q(0),
+      ],
+   q(kon keu) => [
+      q(3416),
+      q(0),
+      ],
+   q(konabere) => [
+      q(1052),
+      q(1),
+      ],
+   q(konai) => [
+      q(3738),
+      q(0),
+      ],
+   q(konda) => [
+      q(3483),
+      q(0),
+      ],
+   q(konda-dora) => [
+      q(3285),
+      q(0),
+      ],
+   q(koneraw) => [
+      q(3253),
+      q(0),
+      ],
+   q(kongo) => [
+      q(0230),
+      q(0),
+      ],
+   q(konkani) => [
+      q(0228),
+      q(0),
+      ],
+   q(konkani (individual language)) => [
+      q(3492),
+      q(0),
+      ],
+   q(konkani (macrolanguage)) => [
+      q(0228),
+      q(1),
+      ],
+   q(konkomba) => [
+      q(7452),
+      q(0),
+      ],
+   q(konni) => [
+      q(3455),
+      q(0),
+      ],
+   q(kono (guinea)) => [
+      q(3499),
+      q(0),
+      ],
+   q(kono (nigeria)) => [
+      q(3439),
+      q(0),
+      ],
+   q(kono (sierra leone)) => [
+      q(3493),
+      q(0),
+      ],
+   q(konomala) => [
+      q(3505),
+      q(0),
+      ],
+   q(konongo) => [
+      q(3234),
+      q(0),
+      ],
+   q(konso) => [
+      q(3720),
+      q(0),
+      ],
+   q(konyak naga) => [
+      q(4744),
+      q(0),
+      ],
+   q(konyanka maninka) => [
+      q(4362),
+      q(0),
+      ],
+   q(konzo) => [
+      q(3514),
+      q(0),
+      ],
+   q(koongo) => [
+      q(3486),
+      q(0),
+      ],
+   q(koonzime) => [
+      q(5345),
+      q(0),
+      ],
+   q(koorete) => [
+      q(3572),
+      q(0),
+      ],
+   q(kopar) => [
+      q(7454),
+      q(0),
+      ],
+   q(kopkaka) => [
+      q(5289),
+      q(0),
+      ],
+   q(korafe-yegha) => [
+      q(3539),
+      q(0),
+      ],
+   q(korak) => [
+      q(3523),
+      q(0),
+      ],
+   q(korana) => [
+      q(3573),
+      q(0),
+      ],
+   q(korandje) => [
+      q(3233),
+      q(0),
+      ],
+   q(kordofanian languages) => [
+      q(0515),
+      q(0),
+      ],
+   q(korean) => [
+      q(0231),
+      q(0),
+      ],
+   q(korean sign language) => [
+      q(3677),
+      q(0),
+      ],
+   q(koreguaje) => [
+      q(1813),
+      q(0),
+      ],
+   q(koresh-e rostam) => [
+      q(5230),
+      q(0),
+      ],
+   q(korku) => [
+      q(3299),
+      q(0),
+      ],
+   q(korlai creole portuguese) => [
+      q(7013),
+      q(0),
+      ],
+   q(koro (cote d'ivoire)) => [
+      q(3297),
+      q(0),
+      ],
+   q(koro (india)) => [
+      q(3112),
+      q(0),
+      ],
+   q(koro (papua new guinea)) => [
+      q(3733),
+      q(0),
+      ],
+   q(koro (vanuatu)) => [
+      q(3578),
+      q(0),
+      ],
+   q(koro wachi) => [
+      q(1418),
+      q(0),
+      ],
+   q(koromfe) => [
+      q(3308),
+      q(0),
+      ],
+   q(koromira) => [
+      q(3557),
+      q(0),
+      ],
+   q(koronadal blaan) => [
+      q(1389),
+      q(0),
+      ],
+   q(koroni) => [
+      q(7384),
+      q(0),
+      ],
+   q(korop) => [
+      q(3585),
+      q(0),
+      ],
+   q(koropo) => [
+      q(7563),
+      q(0),
+      ],
+   q(koroshi) => [
+      q(3631),
+      q(0),
+      ],
+   q(korowai) => [
+      q(3336),
+      q(0),
+      ],
+   q(korra koraga) => [
+      q(3286),
+      q(0),
+      ],
+   q(korubo) => [
+      q(7455),
+      q(0),
+      ],
+   q(korupun-sela) => [
+      q(3538),
+      q(0),
+      ],
+   q(korur) => [
+      q(0947),
+      q(1),
+      ],
+   q(korwa) => [
+      q(3298),
+      q(0),
+      ],
+   q(koryak) => [
+      q(3546),
+      q(0),
+      ],
+   q(kosadle) => [
+      q(3369),
+      q(0),
+      ],
+   q(kosare) => [
+      q(3369),
+      q(1),
+      ],
+   q(kosarek yale) => [
+      q(3414),
+      q(0),
+      ],
+   q(kosena) => [
+      q(3772),
+      q(0),
+      ],
+   q(koshin) => [
+      q(3358),
+      q(0),
+      ],
+   q(kosli) => [
+      q(6195),
+      q(1),
+      ],
+   q(kosraean) => [
+      q(0232),
+      q(0),
+      ],
+   q(kota (gabon)) => [
+      q(3516),
+      q(0),
+      ],
+   q(kota (india)) => [
+      q(3287),
+      q(0),
+      ],
+   q(kota bangun kutai malay) => [
+      q(4486),
+      q(0),
+      ],
+   q(kota marudu talantang) => [
+      q(2620),
+      q(0),
+      ],
+   q(kota marudu tinagas) => [
+      q(3637),
+      q(0),
+      ],
+   q(kotafon gbe) => [
+      q(3558),
+      q(0),
+      ],
+   q(kotava) => [
+      q(0958),
+      q(0),
+      ],
+   q(koti) => [
+      q(2239),
+      q(0),
+      ],
+   q(kott) => [
+      q(7865),
+      q(0),
+      ],
+   q(kouya) => [
+      q(3747),
+      q(0),
+      ],
+   q(kovai) => [
+      q(3549),
+      q(0),
+      ],
+   q(kove) => [
+      q(3669),
+      q(0),
+      ],
+   q(kowaki) => [
+      q(7456),
+      q(0),
+      ],
+   q(kowiai) => [
+      q(3700),
+      q(0),
+      ],
+   q(koy sanjaq surat) => [
+      q(3551),
+      q(0),
+      ],
+   q(koya) => [
+      q(3288),
+      q(0),
+      ],
+   q(koyaga) => [
+      q(3309),
+      q(0),
+      ],
+   q(koyo) => [
+      q(3511),
+      q(0),
+      ],
+   q(koyra chiini songhay) => [
+      q(3345),
+      q(0),
+      ],
+   q(koyraboro senni songhai) => [
+      q(5979),
+      q(0),
+      ],
+   q(koyukon) => [
+      q(3522),
+      q(0),
+      ],
+   q(kpagua) => [
+      q(3663),
+      q(0),
+      ],
+   q(kpala) => [
+      q(3534),
+      q(0),
+      ],
+   q(kpan) => [
+      q(3533),
+      q(0),
+      ],
+   q(kpasam) => [
+      q(5372),
+      q(0),
+      ],
+   q(kpati) => [
+      q(3506),
+      q(0),
+      ],
+   q(kpatili) => [
+      q(3754),
+      q(0),
+      ],
+   q(kpeego) => [
+      q(1837),
+      q(0),
+      ],
+   q(kpelle) => [
+      q(0233),
+      q(0),
+      ],
+   q(kpessi) => [
+      q(3262),
+      q(0),
+      ],
+   q(kplang) => [
+      q(3530),
+      q(0),
+      ],
+   q(krache) => [
+      q(3746),
+      q(0),
+      ],
+   q(kraho) => [
+      q(7476),
+      q(0),
+      ],
+   q(kraol) => [
+      q(5798),
+      q(0),
+      ],
+   q(krenak) => [
+      q(3564),
+      q(0),
+      ],
+   q(krevinian) => [
+      q(7870),
+      q(0),
+      ],
+   q(kreye) => [
+      q(7479),
+      q(0),
+      ],
+   q(krikati-timbira) => [
+      q(7481),
+      q(0),
+      ],
+   q(krim) => [
+      q(3583),
+      q(0),
+      ],
+   q(krio) => [
+      q(3580),
+      q(0),
+      ],
+   q(kriol) => [
+      q(5845),
+      q(0),
+      ],
+   q(krisa) => [
+      q(3602),
+      q(0),
+      ],
+   q(krobu) => [
+      q(3719),
+      q(0),
+      ],
+   q(krongo) => [
+      q(3322),
+      q(0),
+      ],
+   q(kru languages) => [
+      q(0236),
+      q(0),
+      ],
+   q(kru'ng 2) => [
+      q(3586),
+      q(0),
+      ],
+   q(krymchak) => [
+      q(3070),
+      q(0),
+      ],
+   q(kryts) => [
+      q(3592),
+      q(0),
+      ],
+   q(kua) => [
+      q(6841),
+      q(0),
+      ],
+   q(kua-nsi) => [
+      q(7670),
+      q(0),
+      ],
+   q(kuamasi) => [
+      q(7674),
+      q(0),
+      ],
+   q(kuan) => [
+      q(6853),
+      q(0),
+      ],
+   q(kuanhua) => [
+      q(7435),
+      q(0),
+      ],
+   q(kuanua) => [
+      q(3597),
+      q(0),
+      ],
+   q(kuanyama) => [
+      q(0238),
+      q(0),
+      ],
+   q(kube) => [
+      q(3314),
+      q(0),
+      ],
+   q(kubi) => [
+      q(3509),
+      q(0),
+      ],
+   q(kubo) => [
+      q(3110),
+      q(0),
+      ],
+   q(kubu) => [
+      q(3668),
+      q(0),
+      ],
+   q(kucong) => [
+      q(3941),
+      q(0),
+      ],
+   q(kudiya) => [
+      q(3289),
+      q(0),
+      ],
+   q(kudmali) => [
+      q(3764),
+      q(0),
+      ],
+   q(kudu-camo) => [
+      q(3519),
+      q(0),
+      ],
+   q(kugama) => [
+      q(3520),
+      q(0),
+      ],
+   q(kugbo) => [
+      q(3275),
+      q(0),
+      ],
+   q(kui (india)) => [
+      q(3736),
+      q(0),
+      ],
+   q(kui (indonesia)) => [
+      q(3670),
+      q(0),
+      ],
+   q(kuijau) => [
+      q(2075),
+      q(0),
+      ],
+   q(kuikuro-kalapalo) => [
+      q(3653),
+      q(0),
+      ],
+   q(kujarge) => [
+      q(7008),
+      q(0),
+      ],
+   q(kuk) => [
+      q(3296),
+      q(0),
+      ],
+   q(kukatja) => [
+      q(3664),
+      q(0),
+      ],
+   q(kuke) => [
+      q(2513),
+      q(0),
+      ],
+   q(kukele) => [
+      q(3282),
+      q(0),
+      ],
+   q(kukna) => [
+      q(3280),
+      q(0),
+      ],
+   q(kuku-mangk) => [
+      q(7422),
+      q(0),
+      ],
+   q(kuku-mu'inh) => [
+      q(7421),
+      q(0),
+      ],
+   q(kuku-muminh) => [
+      q(7414),
+      q(0),
+      ],
+   q(kuku-ugbanh) => [
+      q(6870),
+      q(0),
+      ],
+   q(kuku-uwanh) => [
+      q(6966),
+      q(0),
+      ],
+   q(kuku-yalanji) => [
+      q(2673),
+      q(0),
+      ],
+   q(kula) => [
+      q(6660),
+      q(0),
+      ],
+   q(kulere) => [
+      q(3656),
+      q(0),
+      ],
+   q(kulfa) => [
+      q(3725),
+      q(0),
+      ],
+   q(kulina) => [
+      q(1911),
+      q(1),
+      ],
+   q(kulina pano) => [
+      q(7463),
+      q(0),
+      ],
+   q(kulisusu) => [
+      q(7010),
+      q(0),
+      ],
+   q(kullu pahari) => [
+      q(3306),
+      q(0),
+      ],
+   q(kulon-pazeh) => [
+      q(6960),
+      q(0),
+      ],
+   q(kulung (nepal)) => [
+      q(3433),
+      q(0),
+      ],
+   q(kulung (nigeria)) => [
+      q(1058),
+      q(0),
+      ],
+   q(kumalu) => [
+      q(3605),
+      q(0),
+      ],
+   q(kumam) => [
+      q(3242),
+      q(0),
+      ],
+   q(kuman (papua new guinea)) => [
+      q(3649),
+      q(0),
+      ],
+   q(kuman (russia)) => [
+      q(5718),
+      q(0),
+      ],
+   q(kumaoni) => [
+      q(3307),
+      q(0),
+      ],
+   q(kumarbhag paharia) => [
+      q(3463),
+      q(0),
+      ],
+   q(kumba) => [
+      q(3606),
+      q(0),
+      ],
+   q(kumbainggar) => [
+      q(3326),
+      q(0),
+      ],
+   q(kumbaran) => [
+      q(7146),
+      q(0),
+      ],
+   q(kumbewaha) => [
+      q(7386),
+      q(0),
+      ],
+   q(kumhali) => [
+      q(3574),
+      q(0),
+      ],
+   q(kumiai) => [
+      q(2041),
+      q(0),
+      ],
+   q(kumukio) => [
+      q(3658),
+      q(0),
+      ],
+   q(kumyk) => [
+      q(0239),
+      q(0),
+      ],
+   q(kumzari) => [
+      q(7967),
+      q(0),
+      ],
+   q(kunama) => [
+      q(3657),
+      q(0),
+      ],
+   q(kunbarlang) => [
+      q(7155),
+      q(0),
+      ],
+   q(kunda) => [
+      q(3247),
+      q(0),
+      ],
+   q(kundal shahi) => [
+      q(6013),
+      q(0),
+      ],
+   q(kunduvadi) => [
+      q(7149),
+      q(0),
+      ],
+   q(kung) => [
+      q(3294),
+      q(0),
+      ],
+   q(kung-ekoka) => [
+      q(3501),
+      q(0),
+      ],
+   q(kungarakany) => [
+      q(2496),
+      q(0),
+      ],
+   q(kungardutyi) => [
+      q(2470),
+      q(0),
+      ],
+   q(kunggara) => [
+      q(3685),
+      q(0),
+      ],
+   q(kunggari) => [
+      q(3319),
+      q(0),
+      ],
+   q(kungkari) => [
+      q(3954),
+      q(0),
+      ],
+   q(kuni) => [
+      q(3598),
+      q(0),
+      ],
+   q(kuni-boazi) => [
+      q(3673),
+      q(0),
+      ],
+   q(kunigami) => [
+      q(7533),
+      q(0),
+      ],
+   q(kunimaipa) => [
+      q(3659),
+      q(0),
+      ],
+   q(kunja) => [
+      q(5416),
+      q(0),
+      ],
+   q(kunjen) => [
+      q(3391),
+      q(0),
+      ],
+   q(kunyi) => [
+      q(4919),
+      q(0),
+      ],
+   q(kunza) => [
+      q(3666),
+      q(0),
+      ],
+   q(kuo) => [
+      q(7538),
+      q(0),
+      ],
+   q(kuot) => [
+      q(3634),
+      q(0),
+      ],
+   q(kupa) => [
+      q(3651),
+      q(0),
+      ],
+   q(kupang malay) => [
+      q(4355),
+      q(0),
+      ],
+   q(kupia) => [
+      q(3281),
+      q(0),
+      ],
+   q(kupsabiny) => [
+      q(3547),
+      q(0),
+      ],
+   q(kur) => [
+      q(3662),
+      q(0),
+      ],
+   q(kura ede nago) => [
+      q(5044),
+      q(0),
+      ],
+   q(kurama) => [
+      q(3579),
+      q(0),
+      ],
+   q(kuranko) => [
+      q(3489),
+      q(0),
+      ],
+   q(kurdish) => [
+      q(0240),
+      q(0),
+      ],
+   q(kuri) => [
+      q(4751),
+      q(0),
+      ],
+   q(kuria) => [
+      q(3654),
+      q(0),
+      ],
+   q(kurichiya) => [
+      q(3290),
+      q(0),
+      ],
+   q(kurmukar) => [
+      q(3304),
+      q(0),
+      ],
+   q(kurnai) => [
+      q(6919),
+      q(0),
+      ],
+   q(kurrama) => [
+      q(7015),
+      q(0),
+      ],
+   q(kurti) => [
+      q(3632),
+      q(0),
+      ],
+   q(kurtokha) => [
+      q(7393),
+      q(0),
+      ],
+   q(kuruaya) => [
+      q(3759),
+      q(0),
+      ],
+   q(kurudu) => [
+      q(3395),
+      q(0),
+      ],
+   q(kurukh) => [
+      q(0237),
+      q(0),
+      ],
+   q(kusaal) => [
+      q(3660),
+      q(0),
+      ],
+   q(kusaghe) => [
+      q(3600),
+      q(0),
+      ],
+   q(kushi) => [
+      q(3652),
+      q(0),
+      ],
+   q(kusu) => [
+      q(3615),
+      q(0),
+      ],
+   q(kusunda) => [
+      q(3315),
+      q(0),
+      ],
+   q(kutang ghale) => [
+      q(2513),
+      q(1),
+      ],
+   q(kutenai) => [
+      q(0241),
+      q(0),
+      ],
+   q(kutep) => [
+      q(3646),
+      q(0),
+      ],
+   q(kuthant) => [
+      q(7541),
+      q(0),
+      ],
+   q(kutong) => [
+      q(6082),
+      q(0),
+      ],
+   q(kutto) => [
+      q(3524),
+      q(0),
+      ],
+   q(kutu) => [
+      q(3236),
+      q(0),
+      ],
+   q(kuturmi) => [
+      q(3340),
+      q(0),
+      ],
+   q(kuuk-yak) => [
+      q(6889),
+      q(0),
+      ],
+   q(kuuku-ya'u) => [
+      q(3665),
+      q(0),
+      ],
+   q(kuvi) => [
+      q(3737),
+      q(0),
+      ],
+   q(kuwaa) => [
+      q(1285),
+      q(0),
+      ],
+   q(kuwaataay) => [
+      q(1929),
+      q(0),
+      ],
+   q(kuy) => [
+      q(3251),
+      q(0),
+      ],
+   q(kven finnish) => [
+      q(2352),
+      q(0),
+      ],
+   q(kw'adza) => [
+      q(7145),
+      q(0),
+      ],
+   q(kwa) => [
+      q(3694),
+      q(0),
+      ],
+   q(kwa') => [
+      q(1267),
+      q(0),
+      ],
+   q(kwaami) => [
+      q(3610),
+      q(0),
+      ],
+   q(kwadi) => [
+      q(3717),
+      q(0),
+      ],
+   q(kwaio) => [
+      q(3696),
+      q(0),
+      ],
+   q(kwaja) => [
+      q(3256),
+      q(0),
+      ],
+   q(kwakiutl) => [
+      q(3703),
+      q(0),
+      ],
+   q(kwakum) => [
+      q(3712),
+      q(0),
+      ],
+   q(kwalhioqua-tlatskanai) => [
+      q(5720),
+      q(0),
+      ],
+   q(kwama) => [
+      q(3470),
+      q(0),
+      ],
+   q(kwambi) => [
+      q(3705),
+      q(0),
+      ],
+   q(kwamera) => [
+      q(6619),
+      q(0),
+      ],
+   q(kwami) => [
+      q(3625),
+      q(0),
+      ],
+   q(kwamtim one) => [
+      q(5233),
+      q(0),
+      ],
+   q(kwang) => [
+      q(3675),
+      q(0),
+      ],
+   q(kwanga) => [
+      q(3702),
+      q(0),
+      ],
+   q(kwangali) => [
+      q(3706),
+      q(0),
+      ],
+   q(kwanja) => [
+      q(3494),
+      q(0),
+      ],
+   q(kwanyama) => [
+      q(0238),
+      q(1),
+      ],
+   q(kwara'ae) => [
+      q(3698),
+      q(0),
+      ],
+   q(kwasio) => [
+      q(4968),
+      q(0),
+      ],
+   q(kwaya) => [
+      q(3742),
+      q(0),
+      ],
+   q(kwaza) => [
+      q(7548),
+      q(0),
+      ],
+   q(kwegu) => [
+      q(7552),
+      q(0),
+      ],
+   q(kwenyi) => [
+      q(3244),
+      q(1),
+      ],
+   q(kwer) => [
+      q(3709),
+      q(0),
+      ],
+   q(kwerba) => [
+      q(3697),
+      q(0),
+      ],
+   q(kwerba mamberamo) => [
+      q(7557),
+      q(0),
+      ],
+   q(kwere) => [
+      q(1927),
+      q(0),
+      ],
+   q(kwerisa) => [
+      q(3404),
+      q(0),
+      ],
+   q(kwese) => [
+      q(3710),
+      q(0),
+      ],
+   q(kwesten) => [
+      q(3711),
+      q(0),
+      ],
+   q(kwini) => [
+      q(2692),
+      q(0),
+      ],
+   q(kwinsu) => [
+      q(3647),
+      q(0),
+      ],
+   q(kwinti) => [
+      q(3714),
+      q(0),
+      ],
+   q(kwoma) => [
+      q(3468),
+      q(0),
+      ],
+   q(kwomtari) => [
+      q(3707),
+      q(0),
+      ],
+   q(kxoe) => [
+      q(7542),
+      q(0),
+      ],
+   q(kyak) => [
+      q(1255),
+      q(0),
+      ],
+   q(kyaka) => [
+      q(3744),
+      q(0),
+      ],
+   q(kyan-karyaw naga) => [
+      q(5047),
+      q(0),
+      ],
+   q(kyanga) => [
+      q(6831),
+      q(0),
+      ],
+   q(kyenele) => [
+      q(3559),
+      q(0),
+      ],
+   q(kyerung) => [
+      q(3332),
+      q(0),
+      ],
+   q(kyrgyz) => [
+      q(0226),
+      q(1),
+      ],
+   q(la'bi) => [
+      q(3819),
+      q(0),
+      ],
+   q(laa laa bwamu) => [
+      q(1551),
+      q(0),
+      ],
+   q(laadan) => [
+      q(3856),
+      q(0),
+      ],
+   q(laal) => [
+      q(2464),
+      q(0),
+      ],
+   q(laalaa) => [
+      q(1642),
+      q(1),
+      ],
+   q(laari) => [
+      q(3851),
+      q(0),
+      ],
+   q(laba) => [
+      q(3808),
+      q(0),
+      ],
+   q(label) => [
+      q(3814),
+      q(0),
+      ],
+   q(labir) => [
+      q(3113),
+      q(0),
+      ],
+   q(labo) => [
+      q(4632),
+      q(0),
+      ],
+   q(labo phowa) => [
+      q(7728),
+      q(0),
+      ],
+   q(labu) => [
+      q(3830),
+      q(0),
+      ],
+   q(labuk-kinabatangan kadazan) => [
+      q(2157),
+      q(0),
+      ],
+   q(lacandon) => [
+      q(3795),
+      q(0),
+      ],
+   q(lachi) => [
+      q(3829),
+      q(0),
+      ],
+   q(lachiguiri zapotec) => [
+      q(7914),
+      q(0),
+      ],
+   q(lachixio zapotec) => [
+      q(7925),
+      q(0),
+      ],
+   q(ladakhi) => [
+      q(3820),
+      q(0),
+      ],
+   q(ladin) => [
+      q(3959),
+      q(0),
+      ],
+   q(ladino) => [
+      q(0242),
+      q(0),
+      ],
+   q(ladji ladji) => [
+      q(3965),
+      q(0),
+      ],
+   q(laeko-libuat) => [
+      q(3947),
+      q(0),
+      ],
+   q(lafofa) => [
+      q(3797),
+      q(0),
+      ],
+   q(laghu) => [
+      q(3887),
+      q(0),
+      ],
+   q(laghuu) => [
+      q(3889),
+      q(0),
+      ],
+   q(lagwan) => [
+      q(3517),
+      q(0),
+      ],
+   q(laha (indonesia)) => [
+      q(3901),
+      q(0),
+      ],
+   q(laha (viet nam)) => [
+      q(3900),
+      q(0),
+      ],
+   q(lahanan) => [
+      q(3905),
+      q(0),
+      ],
+   q(lahnda) => [
+      q(0243),
+      q(0),
+      ],
+   q(lahta) => [
+      q(3686),
+      q(1),
+      ],
+   q(lahta karen) => [
+      q(3686),
+      q(0),
+      ],
+   q(lahu) => [
+      q(3909),
+      q(0),
+      ],
+   q(lahu shi) => [
+      q(3902),
+      q(0),
+      ],
+   q(lahul lohar) => [
+      q(3903),
+      q(0),
+      ],
+   q(laimbue) => [
+      q(3996),
+      q(0),
+      ],
+   q(laitu chin) => [
+      q(1775),
+      q(0),
+      ],
+   q(laiyolo) => [
+      q(3934),
+      q(0),
+      ],
+   q(lak) => [
+      q(3816),
+      q(0),
+      ],
+   q(laka (chad)) => [
+      q(3804),
+      q(0),
+      ],
+   q(laka (nigeria)) => [
+      q(3801),
+      q(0),
+      ],
+   q(lakalei) => [
+      q(3939),
+      q(0),
+      ],
+   q(lake miwok) => [
+      q(3995),
+      q(0),
+      ],
+   q(lakha) => [
+      q(3944),
+      q(0),
+      ],
+   q(laki) => [
+      q(3945),
+      q(0),
+      ],
+   q(lakkia) => [
+      q(3815),
+      q(0),
+      ],
+   q(lakon) => [
+      q(3949),
+      q(0),
+      ],
+   q(lakonde) => [
+      q(3942),
+      q(0),
+      ],
+   q(lakota) => [
+      q(3953),
+      q(0),
+      ],
+   q(lakota dida) => [
+      q(2037),
+      q(0),
+      ],
+   q(lala) => [
+      q(5065),
+      q(0),
+      ],
+   q(lala-bisa) => [
+      q(3861),
+      q(0),
+      ],
+   q(lala-roba) => [
+      q(3956),
+      q(0),
+      ],
+   q(lalana chinantec) => [
+      q(1802),
+      q(0),
+      ],
+   q(lalia) => [
+      q(3802),
+      q(0),
+      ],
+   q(lama (togo)) => [
+      q(3807),
+      q(0),
+      ],
+   q(lama bai) => [
+      q(3811),
+      q(0),
+      ],
+   q(lamaholot) => [
+      q(6106),
+      q(0),
+      ],
+   q(lamalera) => [
+      q(3992),
+      q(0),
+      ],
+   q(lamang) => [
+      q(2753),
+      q(0),
+      ],
+   q(lamatuka) => [
+      q(3991),
+      q(0),
+      ],
+   q(lamba) => [
+      q(0244),
+      q(0),
+      ],
+   q(lambadi) => [
+      q(3988),
+      q(0),
+      ],
+   q(lambayeque quechua) => [
+      q(5683),
+      q(0),
+      ],
+   q(lambichhong) => [
+      q(3983),
+      q(0),
+      ],
+   q(lamboya) => [
+      q(3997),
+      q(0),
+      ],
+   q(lambya) => [
+      q(3799),
+      q(0),
+      ],
+   q(lame) => [
+      q(1303),
+      q(0),
+      ],
+   q(lamenu) => [
+      q(3993),
+      q(0),
+      ],
+   q(lamet) => [
+      q(3824),
+      q(0),
+      ],
+   q(lamja-dengsa-tola) => [
+      q(3850),
+      q(0),
+      ],
+   q(lamkang) => [
+      q(3986),
+      q(0),
+      ],
+   q(lamma) => [
+      q(3880),
+      q(0),
+      ],
+   q(lamnso') => [
+      q(4010),
+      q(0),
+      ],
+   q(lamogai) => [
+      q(3982),
+      q(0),
+      ],
+   q(lampung api) => [
+      q(3936),
+      q(0),
+      ],
+   q(lampung nyo) => [
+      q(0569),
+      q(0),
+      ],
+   q(lamu) => [
+      q(3963),
+      q(0),
+      ],
+   q(lamu-lamu) => [
+      q(3834),
+      q(0),
+      ],
+   q(lanas lobu) => [
+      q(5873),
+      q(0),
+      ],
+   q(land dayak languages) => [
+      q(0105),
+      q(0),
+      ],
+   q(landoma) => [
+      q(3855),
+      q(0),
+      ],
+   q(lang'e) => [
+      q(7708),
+      q(0),
+      ],
+   q(langam) => [
+      q(4007),
+      q(0),
+      ],
+   q(langbashe) => [
+      q(3999),
+      q(0),
+      ],
+   q(langi) => [
+      q(3798),
+      q(0),
+      ],
+   q(langnian buyang) => [
+      q(7683),
+      q(0),
+      ],
+   q(lango (sudan)) => [
+      q(4009),
+      q(0),
+      ],
+   q(lango (uganda)) => [
+      q(3800),
+      q(0),
+      ],
+   q(langobardic) => [
+      q(4002),
+      q(0),
+      ],
+   q(langue des signes de belgique francophone) => [
+      q(5986),
+      q(0),
+      ],
+   q(lanima) => [
+      q(4012),
+      q(0),
+      ],
+   q(lanoh) => [
+      q(4003),
+      q(0),
+      ],
+   q(lao) => [
+      q(0245),
+      q(0),
+      ],
+   q(lao naga) => [
+      q(4955),
+      q(0),
+      ],
+   q(laomian) => [
+      q(4103),
+      q(0),
+      ],
+   q(laopang) => [
+      q(3818),
+      q(0),
+      ],
+   q(laos sign language) => [
+      q(4064),
+      q(0),
+      ],
+   q(lapaguia-guivini zapotec) => [
+      q(7955),
+      q(0),
+      ],
+   q(laragia) => [
+      q(4045),
+      q(0),
+      ],
+   q(larantuka malay) => [
+      q(4053),
+      q(0),
+      ],
+   q(lardil) => [
+      q(3835),
+      q(0),
+      ],
+   q(larevat) => [
+      q(4054),
+      q(0),
+      ],
+   q(large flowery miao) => [
+      q(2780),
+      q(0),
+      ],
+   q(lari) => [
+      q(4048),
+      q(0),
+      ],
+   q(larike-wakasihu) => [
+      q(0756),
+      q(0),
+      ],
+   q(laro) => [
+      q(4051),
+      q(0),
+      ],
+   q(larteh) => [
+      q(3806),
+      q(0),
+      ],
+   q(laru) => [
+      q(3803),
+      q(0),
+      ],
+   q(lasalimu) => [
+      q(3968),
+      q(0),
+      ],
+   q(lasgerdi) => [
+      q(4056),
+      q(0),
+      ],
+   q(lashi) => [
+      q(4061),
+      q(0),
+      ],
+   q(lasi) => [
+      q(4067),
+      q(0),
+      ],
+   q(late middle chinese) => [
+      q(4070),
+      q(0),
+      ],
+   q(latgalian) => [
+      q(4071),
+      q(0),
+      ],
+   q(latin) => [
+      q(0246),
+      q(0),
+      ],
+   q(latu) => [
+      q(4076),
+      q(0),
+      ],
+   q(latunde) => [
+      q(4073),
+      q(0),
+      ],
+   q(latvian) => [
+      q(0247),
+      q(0),
+      ],
+   q(latvian sign language) => [
+      q(4062),
+      q(0),
+      ],
+   q(lau) => [
+      q(3974),
+      q(0),
+      ],
+   q(laua) => [
+      q(4080),
+      q(0),
+      ],
+   q(lauan) => [
+      q(3975),
+      q(0),
+      ],
+   q(lauje) => [
+      q(3809),
+      q(0),
+      ],
+   q(laura) => [
+      q(4087),
+      q(0),
+      ],
+   q(laurentian) => [
+      q(4044),
+      q(0),
+      ],
+   q(lautu chin) => [
+      q(1780),
+      q(0),
+      ],
+   q(lavatbura-lamusong) => [
+      q(3831),
+      q(0),
+      ],
+   q(lave) => [
+      q(1423),
+      q(0),
+      ],
+   q(laven) => [
+      q(3825),
+      q(0),
+      ],
+   q(lavrung) => [
+      q(3102),
+      q(1),
+      ],
+   q(lavukaleve) => [
+      q(4095),
+      q(0),
+      ],
+   q(lawangan) => [
+      q(3833),
+      q(0),
+      ],
+   q(lawu) => [
+      q(4106),
+      q(0),
+      ],
+   q(lawunuia) => [
+      q(6482),
+      q(0),
+      ],
+   q(layakha) => [
+      q(4108),
+      q(0),
+      ],
+   q(laz) => [
+      q(4114),
+      q(0),
+      ],
+   q(lealao chinantec) => [
+      q(1772),
+      q(0),
+      ],
+   q(leco) => [
+      q(3862),
+      q(0),
+      ],
+   q(ledo kaili) => [
+      q(3881),
+      q(0),
+      ],
+   q(leelau) => [
+      q(3853),
+      q(0),
+      ],
+   q(lefa) => [
+      q(3884),
+      q(0),
+      ],
+   q(lega-mwenga) => [
+      q(3893),
+      q(0),
+      ],
+   q(lega-shabunda) => [
+      q(3860),
+      q(0),
+      ],
+   q(legbo) => [
+      q(0653),
+      q(0),
+      ],
+   q(legenyem) => [
+      q(3836),
+      q(0),
+      ],
+   q(lehali) => [
+      q(6678),
+      q(0),
+      ],
+   q(lehalurup) => [
+      q(6940),
+      q(0),
+      ],
+   q(lehar) => [
+      q(1642),
+      q(0),
+      ],
+   q(leinong naga) => [
+      q(4113),
+      q(0),
+      ],
+   q(leipon) => [
+      q(3869),
+      q(0),
+      ],
+   q(lelak) => [
+      q(3966),
+      q(0),
+      ],
+   q(lele (chad)) => [
+      q(3969),
+      q(0),
+      ],
+   q(lele (democratic republic of congo)) => [
+      q(3870),
+      q(0),
+      ],
+   q(lele (guinea)) => [
+      q(3958),
+      q(0),
+      ],
+   q(lele (papua new guinea)) => [
+      q(3960),
+      q(0),
+      ],
+   q(lelemi) => [
+      q(3865),
+      q(0),
+      ],
+   q(lelepa) => [
+      q(4037),
+      q(0),
+      ],
+   q(lembena) => [
+      q(3875),
+      q(0),
+      ],
+   q(lemerig) => [
+      q(4055),
+      q(0),
+      ],
+   q(lemio) => [
+      q(3867),
+      q(0),
+      ],
+   q(lemnian) => [
+      q(7398),
+      q(0),
+      ],
+   q(lemolang) => [
+      q(3883),
+      q(0),
+      ],
+   q(lemoro) => [
+      q(3852),
+      q(0),
+      ],
+   q(lenakel) => [
+      q(6620),
+      q(0),
+      ],
+   q(lenca) => [
+      q(3872),
+      q(0),
+      ],
+   q(lendu) => [
+      q(3863),
+      q(0),
+      ],
+   q(lengilu) => [
+      q(3890),
+      q(0),
+      ],
+   q(lengo) => [
+      q(3896),
+      q(0),
+      ],
+   q(lengola) => [
+      q(3868),
+      q(0),
+      ],
+   q(lengua de senas catalana) => [
+      q(1867),
+      q(1),
+      ],
+   q(lengua de senas del paraguay) => [
+      q(5674),
+      q(1),
+      ],
+   q(lengua de senas panamenas) => [
+      q(4065),
+      q(1),
+      ],
+   q(leningitij) => [
+      q(4005),
+      q(0),
+      ],
+   q(lenje) => [
+      q(3866),
+      q(0),
+      ],
+   q(lenkau) => [
+      q(3876),
+      q(0),
+      ],
+   q(lenyima) => [
+      q(3849),
+      q(0),
+      ],
+   q(leonese) => [
+      q(0030),
+      q(2),
+      ],
+   q(lepcha) => [
+      q(3874),
+      q(0),
+      ],
+   q(lepki) => [
+      q(4038),
+      q(0),
+      ],
+   q(lepontic) => [
+      q(7403),
+      q(0),
+      ],
+   q(lere) => [
+      q(2573),
+      q(0),
+      ],
+   q(lese) => [
+      q(3877),
+      q(0),
+      ],
+   q(lesing-gelimi) => [
+      q(3878),
+      q(0),
+      ],
+   q(letemboi) => [
+      q(4980),
+      q(0),
+      ],
+   q(leti (cameroon)) => [
+      q(3873),
+      q(0),
+      ],
+   q(leti (indonesia)) => [
+      q(4072),
+      q(0),
+      ],
+   q(letzeburgesch) => [
+      q(0254),
+      q(1),
+      ],
+   q(levuka) => [
+      q(4097),
+      q(0),
+      ],
+   q(lewo) => [
+      q(4107),
+      q(0),
+      ],
+   q(lewo eleng) => [
+      q(4099),
+      q(0),
+      ],
+   q(lewotobi) => [
+      q(4105),
+      q(0),
+      ],
+   q(leyigha) => [
+      q(0999),
+      q(0),
+      ],
+   q(lezghian) => [
+      q(0248),
+      q(0),
+      ],
+   q(lhaovo) => [
+      q(4296),
+      q(1),
+      ],
+   q(lhokpu) => [
+      q(3906),
+      q(0),
+      ],
+   q(lhomi) => [
+      q(3904),
+      q(0),
+      ],
+   q(li'o) => [
+      q(3935),
+      q(0),
+      ],
+   q(liabuku) => [
+      q(3929),
+      q(0),
+      ],
+   q(liana-seti) => [
+      q(6257),
+      q(0),
+      ],
+   q(liangmai naga) => [
+      q(4913),
+      q(0),
+      ],
+   q(lianshan zhuang) => [
+      q(7874),
+      q(0),
+      ],
+   q(liberia kpelle) => [
+      q(7459),
+      q(0),
+      ],
+   q(liberian english) => [
+      q(3924),
+      q(0),
+      ],
+   q(libido) => [
+      q(3923),
+      q(0),
+      ],
+   q(libinza) => [
+      q(3931),
+      q(0),
+      ],
+   q(libon bikol) => [
+      q(3822),
+      q(0),
+      ],
+   q(liburnian) => [
+      q(7400),
+      q(0),
+      ],
+   q(libyan arabic) => [
+      q(1001),
+      q(0),
+      ],
+   q(libyan sign language) => [
+      q(3828),
+      q(0),
+      ],
+   q(ligbi) => [
+      q(3916),
+      q(0),
+      ],
+   q(ligenza) => [
+      q(3899),
+      q(0),
+      ],
+   q(ligurian) => [
+      q(3918),
+      q(0),
+      ],
+   q(ligurian (ancient)) => [
+      q(7399),
+      q(0),
+      ],
+   q(lihir) => [
+      q(3917),
+      q(0),
+      ],
+   q(lijili) => [
+      q(4258),
+      q(0),
+      ],
+   q(lika) => [
+      q(3919),
+      q(0),
+      ],
+   q(liki) => [
+      q(3921),
+      q(0),
+      ],
+   q(likila) => [
+      q(3914),
+      q(0),
+      ],
+   q(likuba) => [
+      q(3739),
+      q(0),
+      ],
+   q(likum) => [
+      q(3911),
+      q(0),
+      ],
+   q(likwala) => [
+      q(3695),
+      q(0),
+      ],
+   q(lilau) => [
+      q(3967),
+      q(0),
+      ],
+   q(lillooet) => [
+      q(3920),
+      q(0),
+      ],
+   q(limassa) => [
+      q(1307),
+      q(0),
+      ],
+   q(limbu) => [
+      q(3915),
+      q(0),
+      ],
+   q(limbum) => [
+      q(3990),
+      q(0),
+      ],
+   q(limburgan) => [
+      q(0249),
+      q(0),
+      ],
+   q(limburger) => [
+      q(0249),
+      q(1),
+      ],
+   q(limburgish) => [
+      q(0249),
+      q(2),
+      ],
+   q(limi) => [
+      q(7682),
+      q(0),
+      ],
+   q(limilngan) => [
+      q(3978),
+      q(0),
+      ],
+   q(limos kalinga) => [
+      q(3464),
+      q(0),
+      ],
+   q(lindu) => [
+      q(3451),
+      q(0),
+      ],
+   q(linear a) => [
+      q(3794),
+      q(0),
+      ],
+   q(lingala) => [
+      q(0250),
+      q(0),
+      ],
+   q(lingao) => [
+      q(5268),
+      q(0),
+      ],
+   q(lingarak) => [
+      q(3891),
+      q(0),
+      ],
+   q(lingua franca) => [
+      q(5518),
+      q(0),
+      ],
+   q(lingua franca nova) => [
+      q(3885),
+      q(0),
+      ],
+   q(lipan apache) => [
+      q(0844),
+      q(0),
+      ],
+   q(lipo) => [
+      q(4040),
+      q(0),
+      ],
+   q(lisabata-nuniali) => [
+      q(3845),
+      q(0),
+      ],
+   q(lisela) => [
+      q(3841),
+      q(0),
+      ],
+   q(lish) => [
+      q(4060),
+      q(0),
+      ],
+   q(lishan didan) => [
+      q(6694),
+      q(0),
+      ],
+   q(lishana deni) => [
+      q(4057),
+      q(0),
+      ],
+   q(lishanid noshan) => [
+      q(0700),
+      q(0),
+      ],
+   q(lisu) => [
+      q(3925),
+      q(0),
+      ],
+   q(literary chinese) => [
+      q(4111),
+      q(0),
+      ],
+   q(lithuanian) => [
+      q(0251),
+      q(0),
+      ],
+   q(lithuanian sign language) => [
+      q(3973),
+      q(0),
+      ],
+   q(litzlitz) => [
+      q(4112),
+      q(0),
+      ],
+   q(liujiang zhuang) => [
+      q(7872),
+      q(0),
+      ],
+   q(liuqian zhuang) => [
+      q(7875),
+      q(0),
+      ],
+   q(liv) => [
+      q(3927),
+      q(0),
+      ],
+   q(livvi) => [
+      q(5248),
+      q(0),
+      ],
+   q(llengua de signes catalana) => [
+      q(1867),
+      q(2),
+      ],
+   q(llengua de signes valenciana) => [
+      q(7050),
+      q(1),
+      ],
+   q(lo-toga) => [
+      q(3908),
+      q(0),
+      ],
+   q(loarki) => [
+      q(4047),
+      q(0),
+      ],
+   q(lobala) => [
+      q(4028),
+      q(0),
+      ],
+   q(lobi) => [
+      q(4015),
+      q(0),
+      ],
+   q(lodhi) => [
+      q(3823),
+      q(0),
+      ],
+   q(logba) => [
+      q(3895),
+      q(0),
+      ],
+   q(logo) => [
+      q(4019),
+      q(0),
+      ],
+   q(logol) => [
+      q(4018),
+      q(0),
+      ],
+   q(logooli) => [
+      q(5741),
+      q(0),
+      ],
+   q(logorik) => [
+      q(3926),
+      q(0),
+      ],
+   q(logudorese sardinian) => [
+      q(6211),
+      q(0),
+      ],
+   q(lohorung) => [
+      q(3827),
+      q(0),
+      ],
+   q(loja highland quichua) => [
+      q(5705),
+      q(0),
+      ],
+   q(lojban) => [
+      q(0204),
+      q(0),
+      ],
+   q(lokaa) => [
+      q(7598),
+      q(0),
+      ],
+   q(loke) => [
+      q(4036),
+      q(0),
+      ],
+   q(loko) => [
+      q(4023),
+      q(0),
+      ],
+   q(lokoya) => [
+      q(3955),
+      q(0),
+      ],
+   q(lola) => [
+      q(3837),
+      q(0),
+      ],
+   q(lolak) => [
+      q(3972),
+      q(0),
+      ],
+   q(lole) => [
+      q(3962),
+      q(0),
+      ],
+   q(lolo) => [
+      q(3957),
+      q(0),
+      ],
+   q(loloda) => [
+      q(4014),
+      q(0),
+      ],
+   q(lolopo) => [
+      q(7613),
+      q(0),
+      ],
+   q(loma (cote d'ivoire)) => [
+      q(4021),
+      q(0),
+      ],
+   q(loma (liberia)) => [
+      q(4024),
+      q(0),
+      ],
+   q(lomaiviti) => [
+      q(3994),
+      q(0),
+      ],
+   q(lomavren) => [
+      q(5813),
+      q(0),
+      ],
+   q(lombard) => [
+      q(3989),
+      q(0),
+      ],
+   q(lombi) => [
+      q(3984),
+      q(0),
+      ],
+   q(lombo) => [
+      q(4026),
+      q(0),
+      ],
+   q(lomwe) => [
+      q(4845),
+      q(0),
+      ],
+   q(loncong) => [
+      q(3838),
+      q(0),
+      ],
+   q(long phuri naga) => [
+      q(4039),
+      q(0),
+      ],
+   q(long wat) => [
+      q(6757),
+      q(0),
+      ],
+   q(longgu) => [
+      q(3898),
+      q(0),
+      ],
+   q(longto) => [
+      q(7204),
+      q(0),
+      ],
+   q(longuda) => [
+      q(4011),
+      q(0),
+      ],
+   q(loniu) => [
+      q(4030),
+      q(0),
+      ],
+   q(lonwolwol) => [
+      q(1846),
+      q(0),
+      ],
+   q(lonzo) => [
+      q(4013),
+      q(0),
+      ],
+   q(loo) => [
+      q(3857),
+      q(0),
+      ],
+   q(lopa) => [
+      q(4027),
+      q(0),
+      ],
+   q(lopi) => [
+      q(4033),
+      q(0),
+      ],
+   q(lopit) => [
+      q(4041),
+      q(0),
+      ],
+   q(lorang) => [
+      q(4050),
+      q(0),
+      ],
+   q(lorediakarkar) => [
+      q(4008),
+      q(0),
+      ],
+   q(loreto-ucayali spanish) => [
+      q(6190),
+      q(0),
+      ],
+   q(lote) => [
+      q(6965),
+      q(0),
+      ],
+   q(lotha naga) => [
+      q(4908),
+      q(0),
+      ],
+   q(lotud) => [
+      q(2165),
+      q(0),
+      ],
+   q(lou) => [
+      q(4022),
+      q(0),
+      ],
+   q(louisiana creole french) => [
+      q(4032),
+      q(0),
+      ],
+   q(loun) => [
+      q(4035),
+      q(0),
+      ],
+   q(loup a) => [
+      q(7402),
+      q(0),
+      ],
+   q(loup b) => [
+      q(7395),
+      q(0),
+      ],
+   q(lovono) => [
+      q(7041),
+      q(1),
+      ],
+   q(low german) => [
+      q(0306),
+      q(0),
+      ],
+   q(low saxon) => [
+      q(0306),
+      q(1),
+      ],
+   q(lower burdekin) => [
+      q(7293),
+      q(0),
+      ],
+   q(lower chehalis) => [
+      q(1706),
+      q(0),
+      ],
+   q(lower grand valley dani) => [
+      q(2103),
+      q(0),
+      ],
+   q(lower silesian) => [
+      q(6101),
+      q(0),
+      ],
+   q(lower sorbian) => [
+      q(0113),
+      q(0),
+      ],
+   q(lower southern aranda) => [
+      q(0989),
+      q(0),
+      ],
+   q(lower ta'oih) => [
+      q(6749),
+      q(0),
+      ],
+   q(lower tanana) => [
+      q(6358),
+      q(0),
+      ],
+   q(lowland oaxaca chontal) => [
+      q(1779),
+      q(0),
+      ],
+   q(lowland tarahumara) => [
+      q(6360),
+      q(0),
+      ],
+   q(loxicha zapotec) => [
+      q(7958),
+      q(0),
+      ],
+   q(loyop) => [
+      q(6940),
+      q(1),
+      ],
+   q(lozi) => [
+      q(0253),
+      q(0),
+      ],
+   q(lu) => [
+      q(3333),
+      q(0),
+      ],
+   q(lua') => [
+      q(5587),
+      q(0),
+      ],
+   q(luang) => [
+      q(3882),
+      q(0),
+      ],
+   q(luba-katanga) => [
+      q(0256),
+      q(0),
+      ],
+   q(luba-lulua) => [
+      q(0255),
+      q(0),
+      ],
+   q(lubila) => [
+      q(3211),
+      q(0),
+      ],
+   q(lubu) => [
+      q(3839),
+      q(0),
+      ],
+   q(lubuagan kalinga) => [
+      q(3481),
+      q(0),
+      ],
+   q(lubukusu) => [
+      q(1577),
+      q(1),
+      ],
+   q(luchazi) => [
+      q(3840),
+      q(0),
+      ],
+   q(lucumi) => [
+      q(4086),
+      q(0),
+      ],
+   q(ludian) => [
+      q(4078),
+      q(0),
+      ],
+   q(lufu) => [
+      q(3859),
+      q(0),
+      ],
+   q(lugbara) => [
+      q(3888),
+      q(0),
+      ],
+   q(luguru) => [
+      q(5865),
+      q(0),
+      ],
+   q(luhu) => [
+      q(3844),
+      q(0),
+      ],
+   q(lui) => [
+      q(3813),
+      q(0),
+      ],
+   q(luidakho-luisukha-lutirichi) => [
+      q(2902),
+      q(1),
+      ],
+   q(luimbi) => [
+      q(4084),
+      q(0),
+      ],
+   q(luiseno) => [
+      q(0258),
+      q(0),
+      ],
+   q(lukabaras) => [
+      q(3940),
+      q(1),
+      ],
+   q(lukpa) => [
+      q(2123),
+      q(0),
+      ],
+   q(lule) => [
+      q(6893),
+      q(0),
+      ],
+   q(lule sami) => [
+      q(0390),
+      q(0),
+      ],
+   q(lulogooli) => [
+      q(5741),
+      q(1),
+      ],
+   q(lumba-yakkha) => [
+      q(4089),
+      q(0),
+      ],
+   q(lumbee) => [
+      q(3998),
+      q(0),
+      ],
+   q(lumbu) => [
+      q(4085),
+      q(0),
+      ],
+   q(lumun) => [
+      q(3979),
+      q(0),
+      ],
+   q(lun bawang) => [
+      q(4001),
+      q(1),
+      ],
+   q(luna) => [
+      q(4081),
+      q(0),
+      ],
+   q(lunanakha) => [
+      q(4082),
+      q(0),
+      ],
+   q(lunda) => [
+      q(0259),
+      q(0),
+      ],
+   q(lundayeh) => [
+      q(4001),
+      q(0),
+      ],
+   q(lungalunga) => [
+      q(7024),
+      q(0),
+      ],
+   q(lungga) => [
+      q(3886),
+      q(0),
+      ],
+   q(luo (cameroon)) => [
+      q(4091),
+      q(0),
+      ],
+   q(luo (kenya and tanzania)) => [
+      q(0260),
+      q(0),
+      ],
+   q(luopohe hmong) => [
+      q(2788),
+      q(0),
+      ],
+   q(luopohe miao) => [
+      q(2788),
+      q(1),
+      ],
+   q(luri) => [
+      q(3848),
+      q(0),
+      ],
+   q(lusengo) => [
+      q(4058),
+      q(0),
+      ],
+   q(lushai) => [
+      q(0261),
+      q(0),
+      ],
+   q(lushootseed) => [
+      q(4088),
+      q(0),
+      ],
+   q(lusi) => [
+      q(3342),
+      q(0),
+      ],
+   q(lusitanian) => [
+      q(7404),
+      q(0),
+      ],
+   q(lutachoni) => [
+      q(4075),
+      q(1),
+      ],
+   q(lutos) => [
+      q(4805),
+      q(0),
+      ],
+   q(luvale) => [
+      q(4079),
+      q(0),
+      ],
+   q(luwati) => [
+      q(4090),
+      q(0),
+      ],
+   q(luwo) => [
+      q(4104),
+      q(0),
+      ],
+   q(luxembourgish) => [
+      q(0254),
+      q(0),
+      ],
+   q(luyana) => [
+      q(4110),
+      q(0),
+      ],
+   q(luyia) => [
+      q(4092),
+      q(0),
+      ],
+   q(lwalu) => [
+      q(4098),
+      q(0),
+      ],
+   q(lycian) => [
+      q(7396),
+      q(0),
+      ],
+   q(lydian) => [
+      q(7397),
+      q(0),
+      ],
+   q(lyele) => [
+      q(3864),
+      q(0),
+      ],
+   q(lyngngam) => [
+      q(4109),
+      q(0),
+      ],
+   q(lyons sign language) => [
+      q(4059),
+      q(0),
+      ],
+   q(ma (democratic republic of congo)) => [
+      q(4539),
+      q(0),
+      ],
+   q(ma (papua new guinea)) => [
+      q(4331),
+      q(0),
+      ],
+   q(ma manda) => [
+      q(6073),
+      q(0),
+      ],
+   q(ma'anyan) => [
+      q(4297),
+      q(0),
+      ],
+   q(ma'di) => [
+      q(4282),
+      q(0),
+      ],
+   q(ma'ya) => [
+      q(6115),
+      q(0),
+      ],
+   q(maa) => [
+      q(1784),
+      q(0),
+      ],
+   q(maaka) => [
+      q(4222),
+      q(0),
+      ],
+   q(maasina fulfulde) => [
+      q(2343),
+      q(0),
+      ],
+   q(maay) => [
+      q(7697),
+      q(0),
+      ],
+   q(maba (chad)) => [
+      q(4183),
+      q(0),
+      ],
+   q(maba (indonesia)) => [
+      q(4481),
+      q(0),
+      ],
+   q(mabaale) => [
+      q(4414),
+      q(0),
+      ],
+   q(mabaan) => [
+      q(4250),
+      q(0),
+      ],
+   q(mabaka valley kalinga) => [
+      q(3409),
+      q(0),
+      ],
+   q(mabire) => [
+      q(4588),
+      q(0),
+      ],
+   q(maca) => [
+      q(4153),
+      q(0),
+      ],
+   q(macaguaje) => [
+      q(4164),
+      q(0),
+      ],
+   q(macaguan) => [
+      q(4140),
+      q(0),
+      ],
+   q(macanese) => [
+      q(4711),
+      q(0),
+      ],
+   q(macedo-romanian) => [
+      q(0362),
+      q(2),
+      ],
+   q(macedonian) => [
+      q(0262),
+      q(0),
+      ],
+   q(machame) => [
+      q(3118),
+      q(0),
+      ],
+   q(machiguenga) => [
+      q(4154),
+      q(0),
+      ],
+   q(machinere) => [
+      q(4459),
+      q(0),
+      ],
+   q(machinga) => [
+      q(4621),
+      q(0),
+      ],
+   q(maco) => [
+      q(7212),
+      q(0),
+      ],
+   q(macuna) => [
+      q(4692),
+      q(0),
+      ],
+   q(macushi) => [
+      q(4130),
+      q(0),
+      ],
+   q(mada (cameroon)) => [
+      q(4667),
+      q(0),
+      ],
+   q(mada (nigeria)) => [
+      q(4179),
+      q(0),
+      ],
+   q(madagascar sign language) => [
+      q(4696),
+      q(0),
+      ],
+   q(madak) => [
+      q(4412),
+      q(0),
+      ],
+   q(maden) => [
+      q(7429),
+      q(0),
+      ],
+   q(madhi madhi) => [
+      q(2085),
+      q(0),
+      ],
+   q(madi) => [
+      q(2616),
+      q(0),
+      ],
+   q(madngele) => [
+      q(7887),
+      q(0),
+      ],
+   q(madurese) => [
+      q(0263),
+      q(0),
+      ],
+   q(mae) => [
+      q(4394),
+      q(0),
+      ],
+   q(maek) => [
+      q(2787),
+      q(0),
+      ],
+   q(maeng itneg) => [
+      q(3019),
+      q(0),
+      ],
+   q(mafa) => [
+      q(4118),
+      q(0),
+      ],
+   q(mafea) => [
+      q(4363),
+      q(0),
+      ],
+   q(mag-antsi ayta) => [
+      q(5991),
+      q(0),
+      ],
+   q(mag-indi ayta) => [
+      q(1300),
+      q(0),
+      ],
+   q(magahi) => [
+      q(0264),
+      q(0),
+      ],
+   q(magbukun ayta) => [
+      q(1008),
+      q(0),
+      ],
+   q(magdalena penasco mixtec) => [
+      q(7517),
+      q(0),
+      ],
+   q(maghdi) => [
+      q(2557),
+      q(0),
+      ],
+   q(magoma) => [
+      q(2564),
+      q(0),
+      ],
+   q(magori) => [
+      q(7843),
+      q(0),
+      ],
+   q(maguindanaon) => [
+      q(4185),
+      q(0),
+      ],
+   q(magyi) => [
+      q(2558),
+      q(0),
+      ],
+   q(mah meri) => [
+      q(4279),
+      q(1),
+      ],
+   q(mahali) => [
+      q(4341),
+      q(0),
+      ],
+   q(maharastri prakrit) => [
+      q(5514),
+      q(0),
+      ],
+   q(mahasu pahari) => [
+      q(1160),
+      q(0),
+      ],
+   q(mahican) => [
+      q(4342),
+      q(0),
+      ],
+   q(mahongwe) => [
+      q(4276),
+      q(0),
+      ],
+   q(mahou) => [
+      q(4670),
+      q(0),
+      ],
+   q(mai brat) => [
+      q(1011),
+      q(0),
+      ],
+   q(maia) => [
+      q(6088),
+      q(0),
+      ],
+   q(maiadomu) => [
+      q(4718),
+      q(0),
+      ],
+   q(maiani) => [
+      q(6617),
+      q(0),
+      ],
+   q(maii) => [
+      q(4402),
+      q(0),
+      ],
+   q(mailu) => [
+      q(4270),
+      q(0),
+      ],
+   q(maindo) => [
+      q(1925),
+      q(0),
+      ],
+   q(mainfrankisch) => [
+      q(7023),
+      q(0),
+      ],
+   q(mainstream kenyah) => [
+      q(7380),
+      q(0),
+      ],
+   q(mairasi) => [
+      q(7946),
+      q(0),
+      ],
+   q(maisin) => [
+      q(4143),
+      q(0),
+      ],
+   q(maithili) => [
+      q(0266),
+      q(0),
+      ],
+   q(maiwa (indonesia)) => [
+      q(7175),
+      q(0),
+      ],
+   q(maiwa (papua new guinea)) => [
+      q(4563),
+      q(0),
+      ],
+   q(maiwala) => [
+      q(4590),
+      q(0),
+      ],
+   q(majang) => [
+      q(4460),
+      q(0),
+      ],
+   q(majera) => [
+      q(7415),
+      q(0),
+      ],
+   q(majhi) => [
+      q(4343),
+      q(0),
+      ],
+   q(majhwar) => [
+      q(4399),
+      q(0),
+      ],
+   q(majukayang kalinga) => [
+      q(3457),
+      q(0),
+      ],
+   q(mak (china)) => [
+      q(4349),
+      q(0),
+      ],
+   q(mak (nigeria)) => [
+      q(5371),
+      q(0),
+      ],
+   q(makaa) => [
+      q(4168),
+      q(0),
+      ],
+   q(makah) => [
+      q(4679),
+      q(0),
+      ],
+   q(makasae) => [
+      q(4367),
+      q(0),
+      ],
+   q(makasar) => [
+      q(0267),
+      q(0),
+      ],
+   q(makassar malay) => [
+      q(4240),
+      q(0),
+      ],
+   q(makayam) => [
+      q(0946),
+      q(0),
+      ],
+   q(makhuwa) => [
+      q(7037),
+      q(0),
+      ],
+   q(makhuwa-marrevone) => [
+      q(7409),
+      q(0),
+      ],
+   q(makhuwa-meetto) => [
+      q(4257),
+      q(0),
+      ],
+   q(makhuwa-moniga) => [
+      q(4286),
+      q(0),
+      ],
+   q(makhuwa-saka) => [
+      q(7501),
+      q(0),
+      ],
+   q(makhuwa-shirima) => [
+      q(7028),
+      q(0),
+      ],
+   q(maklew) => [
+      q(4255),
+      q(0),
+      ],
+   q(makolkol) => [
+      q(7883),
+      q(0),
+      ],
+   q(makonde) => [
+      q(3238),
+      q(0),
+      ],
+   q(maku'a) => [
+      q(4094),
+      q(0),
+      ],
+   q(makurap) => [
+      q(4475),
+      q(0),
+      ],
+   q(makuri naga) => [
+      q(3122),
+      q(0),
+      ],
+   q(makwe) => [
+      q(7695),
+      q(0),
+      ],
+   q(makyan naga) => [
+      q(6908),
+      q(0),
+      ],
+   q(mal) => [
+      q(4372),
+      q(0),
+      ],
+   q(mal paharia) => [
+      q(4345),
+      q(0),
+      ],
+   q(mala (nigeria)) => [
+      q(5874),
+      q(0),
+      ],
+   q(mala (papua new guinea)) => [
+      q(5406),
+      q(0),
+      ],
+   q(mala malasar) => [
+      q(2961),
+      q(0),
+      ],
+   q(malaccan creole malay) => [
+      q(1688),
+      q(0),
+      ],
+   q(malaccan creole portuguese) => [
+      q(4165),
+      q(0),
+      ],
+   q(malagasy) => [
+      q(0283),
+      q(0),
+      ],
+   q(malalamai) => [
+      q(4408),
+      q(0),
+      ],
+   q(malango) => [
+      q(4379),
+      q(0),
+      ],
+   q(malankuravan) => [
+      q(4332),
+      q(0),
+      ],
+   q(malapandaram) => [
+      q(4333),
+      q(0),
+      ],
+   q(malaryan) => [
+      q(4334),
+      q(0),
+      ],
+   q(malas) => [
+      q(4359),
+      q(0),
+      ],
+   q(malasar) => [
+      q(7702),
+      q(0),
+      ],
+   q(malavedan) => [
+      q(4335),
+      q(0),
+      ],
+   q(malawi lomwe) => [
+      q(4025),
+      q(0),
+      ],
+   q(malawi sena) => [
+      q(6307),
+      q(0),
+      ],
+   q(malay) => [
+      q(0274),
+      q(0),
+      ],
+   q(malay (individual language)) => [
+      q(7873),
+      q(0),
+      ],
+   q(malay (macrolanguage)) => [
+      q(0274),
+      q(1),
+      ],
+   q(malayalam) => [
+      q(0268),
+      q(0),
+      ],
+   q(malayic dayak) => [
+      q(7327),
+      q(0),
+      ],
+   q(malaynon) => [
+      q(4389),
+      q(0),
+      ],
+   q(malayo) => [
+      q(4142),
+      q(0),
+      ],
+   q(malayo-polynesian languages) => [
+      q(0520),
+      q(0),
+      ],
+   q(malaysian sign language) => [
+      q(7417),
+      q(0),
+      ],
+   q(malba birifor) => [
+      q(1150),
+      q(0),
+      ],
+   q(maldivian) => [
+      q(0110),
+      q(2),
+      ],
+   q(male) => [
+      q(2824),
+      q(1),
+      ],
+   q(male (ethiopia)) => [
+      q(4200),
+      q(0),
+      ],
+   q(male (papua new guinea)) => [
+      q(4181),
+      q(0),
+      ],
+   q(malecite-passamaquoddy) => [
+      q(5586),
+      q(0),
+      ],
+   q(maleku jaika) => [
+      q(2660),
+      q(0),
+      ],
+   q(maleng) => [
+      q(5484),
+      q(0),
+      ],
+   q(maleu-kilenge) => [
+      q(4261),
+      q(0),
+      ],
+   q(malfaxal) => [
+      q(4388),
+      q(0),
+      ],
+   q(malgana) => [
+      q(7029),
+      q(0),
+      ],
+   q(malgbe) => [
+      q(4652),
+      q(0),
+      ],
+   q(mali) => [
+      q(2444),
+      q(0),
+      ],
+   q(malila) => [
+      q(4266),
+      q(0),
+      ],
+   q(malimba) => [
+      q(4697),
+      q(0),
+      ],
+   q(malimpung) => [
+      q(4374),
+      q(0),
+      ],
+   q(malinaltepec me'phaa) => [
+      q(6410),
+      q(0),
+      ],
+   q(malinaltepec tlapanec) => [
+      q(6410),
+      q(1),
+      ],
+   q(malo) => [
+      q(4368),
+      q(0),
+      ],
+   q(malol) => [
+      q(4137),
+      q(0),
+      ],
+   q(maltese) => [
+      q(0284),
+      q(0),
+      ],
+   q(maltese sign language) => [
+      q(4189),
+      q(0),
+      ],
+   q(malua bay) => [
+      q(4377),
+      q(0),
+      ],
+   q(malvi) => [
+      q(4592),
+      q(0),
+      ],
+   q(malyangapa) => [
+      q(7633),
+      q(0),
+      ],
+   q(mam) => [
+      q(4120),
+      q(0),
+      ],
+   q(mama) => [
+      q(4390),
+      q(0),
+      ],
+   q(mamaa) => [
+      q(4280),
+      q(0),
+      ],
+   q(mamainde) => [
+      q(7171),
+      q(0),
+      ],
+   q(mamanwa) => [
+      q(4403),
+      q(0),
+      ],
+   q(mamara senoufo) => [
+      q(4682),
+      q(0),
+      ],
+   q(mamasa) => [
+      q(4489),
+      q(0),
+      ],
+   q(mambae) => [
+      q(4262),
+      q(0),
+      ],
+   q(mambai) => [
+      q(4171),
+      q(0),
+      ],
+   q(mamboru) => [
+      q(4603),
+      q(0),
+      ],
+   q(mambwe-lungu) => [
+      q(4267),
+      q(0),
+      ],
+   q(mampruli) => [
+      q(4125),
+      q(0),
+      ],
+   q(mamuju) => [
+      q(4503),
+      q(0),
+      ],
+   q(mamulique) => [
+      q(2256),
+      q(0),
+      ],
+   q(mamusi) => [
+      q(3239),
+      q(0),
+      ],
+   q(mamvu) => [
+      q(4186),
+      q(0),
+      ],
+   q(man met) => [
+      q(4401),
+      q(0),
+      ],
+   q(manado malay) => [
+      q(7418),
+      q(0),
+      ],
+   q(manam) => [
+      q(4601),
+      q(0),
+      ],
+   q(manambu) => [
+      q(4371),
+      q(0),
+      ],
+   q(manangba) => [
+      q(4974),
+      q(0),
+      ],
+   q(manangkari) => [
+      q(7905),
+      q(0),
+      ],
+   q(manchu) => [
+      q(0285),
+      q(0),
+      ],
+   q(manda (australia)) => [
+      q(7876),
+      q(0),
+      ],
+   q(manda (india)) => [
+      q(4275),
+      q(0),
+      ],
+   q(manda (tanzania)) => [
+      q(4268),
+      q(0),
+      ],
+   q(mandahuaca) => [
+      q(4293),
+      q(0),
+      ],
+   q(mandaic) => [
+      q(4301),
+      q(0),
+      ],
+   q(mandan) => [
+      q(4290),
+      q(0),
+      ],
+   q(mandandanyi) => [
+      q(7886),
+      q(0),
+      ],
+   q(mandar) => [
+      q(0276),
+      q(0),
+      ],
+   q(mandara) => [
+      q(6385),
+      q(0),
+      ],
+   q(mandari) => [
+      q(4500),
+      q(0),
+      ],
+   q(mandarin chinese) => [
+      q(1790),
+      q(0),
+      ],
+   q(mandaya) => [
+      q(4529),
+      q(0),
+      ],
+   q(mande languages) => [
+      q(0500),
+      q(0),
+      ],
+   q(mandeali) => [
+      q(4329),
+      q(0),
+      ],
+   q(mander) => [
+      q(4497),
+      q(0),
+      ],
+   q(manding) => [
+      q(0269),
+      q(1),
+      ],
+   q(mandingo) => [
+      q(0269),
+      q(0),
+      ],
+   q(mandinka) => [
+      q(4423),
+      q(0),
+      ],
+   q(mandjak) => [
+      q(4246),
+      q(0),
+      ],
+   q(mandobo atas) => [
+      q(0557),
+      q(0),
+      ],
+   q(mandobo bawah) => [
+      q(1557),
+      q(0),
+      ],
+   q(manem) => [
+      q(3083),
+      q(0),
+      ],
+   q(mang) => [
+      q(7904),
+      q(0),
+      ],
+   q(manga kanuri) => [
+      q(3207),
+      q(0),
+      ],
+   q(mangala) => [
+      q(4213),
+      q(0),
+      ],
+   q(mangarayi) => [
+      q(4458),
+      q(0),
+      ],
+   q(mangareva) => [
+      q(4526),
+      q(0),
+      ],
+   q(mangas) => [
+      q(7906),
+      q(0),
+      ],
+   q(mangayat) => [
+      q(4681),
+      q(0),
+      ],
+   q(mangbetu) => [
+      q(4187),
+      q(0),
+      ],
+   q(mangbutu) => [
+      q(4188),
+      q(0),
+      ],
+   q(mangerr) => [
+      q(7880),
+      q(0),
+      ],
+   q(mangga buang) => [
+      q(4404),
+      q(0),
+      ],
+   q(manggarai) => [
+      q(4504),
+      q(0),
+      ],
+   q(mango) => [
+      q(4254),
+      q(0),
+      ],
+   q(mangole) => [
+      q(4483),
+      q(0),
+      ],
+   q(mangseng) => [
+      q(4134),
+      q(0),
+      ],
+   q(mangue) => [
+      q(4445),
+      q(0),
+      ],
+   q(manichaean middle persian) => [
+      q(7419),
+      q(0),
+      ],
+   q(manide) => [
+      q(0562),
+      q(0),
+      ],
+   q(manikion) => [
+      q(4434),
+      q(0),
+      ],
+   q(manipa) => [
+      q(4495),
+      q(0),
+      ],
+   q(manipuri) => [
+      q(0286),
+      q(0),
+      ],
+   q(mankanya) => [
+      q(3485),
+      q(0),
+      ],
+   q(manna-dora) => [
+      q(4338),
+      q(0),
+      ],
+   q(mannan) => [
+      q(4339),
+      q(0),
+      ],
+   q(mano) => [
+      q(4221),
+      q(0),
+      ],
+   q(manobo languages) => [
+      q(0287),
+      q(0),
+      ],
+   q(manombai) => [
+      q(7207),
+      q(0),
+      ],
+   q(mansaka) => [
+      q(4540),
+      q(0),
+      ],
+   q(mansi) => [
+      q(4430),
+      q(0),
+      ],
+   q(mansoanka) => [
+      q(4551),
+      q(0),
+      ],
+   q(manta) => [
+      q(4678),
+      q(0),
+      ],
+   q(mantsi) => [
+      q(5102),
+      q(0),
+      ],
+   q(manumanaw) => [
+      q(3722),
+      q(1),
+      ],
+   q(manumanaw karen) => [
+      q(3722),
+      q(0),
+      ],
+   q(manusela) => [
+      q(7123),
+      q(0),
+      ],
+   q(manx) => [
+      q(0156),
+      q(0),
+      ],
+   q(manya) => [
+      q(4702),
+      q(0),
+      ],
+   q(manyawa) => [
+      q(4435),
+      q(0),
+      ],
+   q(manyika) => [
+      q(4649),
+      q(0),
+      ],
+   q(manza) => [
+      q(4714),
+      q(0),
+      ],
+   q(mao naga) => [
+      q(4747),
+      q(0),
+      ],
+   q(maonan) => [
+      q(4393),
+      q(0),
+      ],
+   q(maore comorian) => [
+      q(6300),
+      q(0),
+      ],
+   q(maori) => [
+      q(0270),
+      q(0),
+      ],
+   q(mape) => [
+      q(4373),
+      q(0),
+      ],
+   q(mapena) => [
+      q(4425),
+      q(0),
+      ],
+   q(mapia) => [
+      q(4479),
+      q(0),
+      ],
+   q(mapidian) => [
+      q(4477),
+      q(0),
+      ],
+   q(mapos buang) => [
+      q(1620),
+      q(0),
+      ],
+   q(mapoyo) => [
+      q(4159),
+      q(0),
+      ],
+   q(mapuche) => [
+      q(0025),
+      q(1),
+      ],
+   q(mapudungun) => [
+      q(0025),
+      q(0),
+      ],
+   q(mapun) => [
+      q(6062),
+      q(0),
+      ],
+   q(maquiritari) => [
+      q(4160),
+      q(0),
+      ],
+   q(mara) => [
+      q(4204),
+      q(0),
+      ],
+   q(mara chin) => [
+      q(4513),
+      q(0),
+      ],
+   q(marachi) => [
+      q(4046),
+      q(0),
+      ],
+   q(maraghei) => [
+      q(7025),
+      q(0),
+      ],
+   q(maragus) => [
+      q(4523),
+      q(0),
+      ],
+   q(maram naga) => [
+      q(4962),
+      q(0),
+      ],
+   q(marama) => [
+      q(4049),
+      q(0),
+      ],
+   q(maramba) => [
+      q(4675),
+      q(0),
+      ],
+   q(maranao) => [
+      q(4527),
+      q(0),
+      ],
+   q(marangis) => [
+      q(7075),
+      q(1),
+      ],
+   q(maranunggu) => [
+      q(7893),
+      q(0),
+      ],
+   q(mararit) => [
+      q(4251),
+      q(0),
+      ],
+   q(marathi) => [
+      q(0272),
+      q(0),
+      ],
+   q(marau) => [
+      q(4616),
+      q(0),
+      ],
+   q(marba) => [
+      q(4461),
+      q(0),
+      ],
+   q(maremgi) => [
+      q(4528),
+      q(0),
+      ],
+   q(marenje) => [
+      q(7033),
+      q(0),
+      ],
+   q(marfa) => [
+      q(4619),
+      q(0),
+      ],
+   q(margany) => [
+      q(7878),
+      q(0),
+      ],
+   q(marghi central) => [
+      q(4524),
+      q(0),
+      ],
+   q(marghi south) => [
+      q(4237),
+      q(0),
+      ],
+   q(margos-yarowilca-lauricocha quechua) => [
+      q(5707),
+      q(0),
+      ],
+   q(margu) => [
+      q(4281),
+      q(0),
+      ],
+   q(mari) => [
+      q(0081),
+      q(0),
+      ],
+   q(mari (east sepik province)) => [
+      q(4150),
+      q(0),
+      ],
+   q(mari (madang province)) => [
+      q(2811),
+      q(0),
+      ],
+   q(mari (russia)) => [
+      q(0081),
+      q(1),
+      ],
+   q(maria (india)) => [
+      q(4522),
+      q(0),
+      ],
+   q(maria (papua new guinea)) => [
+      q(4194),
+      q(0),
+      ],
+   q(maricopa) => [
+      q(4508),
+      q(0),
+      ],
+   q(maridan) => [
+      q(7879),
+      q(0),
+      ],
+   q(maridjabin) => [
+      q(7885),
+      q(0),
+      ],
+   q(marik) => [
+      q(1940),
+      q(0),
+      ],
+   q(marimanindji) => [
+      q(7888),
+      q(0),
+      ],
+   q(marind) => [
+      q(4530),
+      q(0),
+      ],
+   q(maring) => [
+      q(4149),
+      q(0),
+      ],
+   q(maring naga) => [
+      q(4994),
+      q(0),
+      ],
+   q(maringarr) => [
+      q(7895),
+      q(0),
+      ],
+   q(marino) => [
+      q(4507),
+      q(0),
+      ],
+   q(mariri) => [
+      q(4488),
+      q(0),
+      ],
+   q(marithiel) => [
+      q(4242),
+      q(0),
+      ],
+   q(maritime sign language) => [
+      q(5080),
+      q(0),
+      ],
+   q(maritsaua) => [
+      q(4545),
+      q(0),
+      ],
+   q(mariyedi) => [
+      q(7900),
+      q(0),
+      ],
+   q(marka) => [
+      q(5802),
+      q(0),
+      ],
+   q(markweeta) => [
+      q(2265),
+      q(0),
+      ],
+   q(marma) => [
+      q(5828),
+      q(0),
+      ],
+   q(marovo) => [
+      q(4613),
+      q(0),
+      ],
+   q(marriammu) => [
+      q(7487),
+      q(0),
+      ],
+   q(marrucinian) => [
+      q(6903),
+      q(0),
+      ],
+   q(marshallese) => [
+      q(0265),
+      q(0),
+      ],
+   q(marsian) => [
+      q(2967),
+      q(0),
+      ],
+   q(martha's vineyard sign language) => [
+      q(4510),
+      q(0),
+      ],
+   q(marti ke) => [
+      q(7882),
+      q(0),
+      ],
+   q(martu wangka) => [
+      q(4464),
+      q(0),
+      ],
+   q(martuyhunira) => [
+      q(7018),
+      q(0),
+      ],
+   q(maru) => [
+      q(4296),
+      q(0),
+      ],
+   q(marubo) => [
+      q(4710),
+      q(0),
+      ],
+   q(marwari) => [
+      q(0295),
+      q(0),
+      ],
+   q(marwari (india)) => [
+      q(5880),
+      q(0),
+      ],
+   q(marwari (pakistan)) => [
+      q(4604),
+      q(0),
+      ],
+   q(masaaba) => [
+      q(4691),
+      q(0),
+      ],
+   q(masadiit itneg) => [
+      q(6531),
+      q(0),
+      ],
+   q(masai) => [
+      q(0273),
+      q(0),
+      ],
+   q(masalit) => [
+      q(4384),
+      q(0),
+      ],
+   q(masana) => [
+      q(4166),
+      q(0),
+      ],
+   q(masbatenyo) => [
+      q(4531),
+      q(0),
+      ],
+   q(mashco piro) => [
+      q(1909),
+      q(0),
+      ],
+   q(mashi (nigeria)) => [
+      q(3124),
+      q(0),
+      ],
+   q(mashi (zambia)) => [
+      q(4288),
+      q(0),
+      ],
+   q(masikoro malagasy) => [
+      q(4537),
+      q(0),
+      ],
+   q(masimasi) => [
+      q(3004),
+      q(0),
+      ],
+   q(masiwang) => [
+      q(1333),
+      q(0),
+      ],
+   q(maskelynes) => [
+      q(3450),
+      q(0),
+      ],
+   q(maslam) => [
+      q(4550),
+      q(0),
+      ],
+   q(masmaje) => [
+      q(4218),
+      q(0),
+      ],
+   q(massalat) => [
+      q(4184),
+      q(0),
+      ],
+   q(massep) => [
+      q(4617),
+      q(0),
+      ],
+   q(matagalpa) => [
+      q(4568),
+      q(0),
+      ],
+   q(matal) => [
+      q(4232),
+      q(0),
+      ],
+   q(matbat) => [
+      q(7425),
+      q(0),
+      ],
+   q(matengo) => [
+      q(4271),
+      q(0),
+      ],
+   q(matepi) => [
+      q(4484),
+      q(0),
+      ],
+   q(matigsalug manobo) => [
+      q(4146),
+      q(0),
+      ],
+   q(matipuhy) => [
+      q(4707),
+      q(0),
+      ],
+   q(matis) => [
+      q(4471),
+      q(0),
+      ],
+   q(mato) => [
+      q(4219),
+      q(0),
+      ],
+   q(mato grosso arara) => [
+      q(0987),
+      q(0),
+      ],
+   q(mator) => [
+      q(4567),
+      q(0),
+      ],
+   q(matses) => [
+      q(4158),
+      q(0),
+      ],
+   q(mattoki) => [
+      q(7445),
+      q(1),
+      ],
+   q(mattole) => [
+      q(4602),
+      q(0),
+      ],
+   q(matu chin) => [
+      q(2775),
+      q(0),
+      ],
+   q(matukar) => [
+      q(4328),
+      q(0),
+      ],
+   q(matumbi) => [
+      q(4272),
+      q(0),
+      ],
+   q(matya samo) => [
+      q(6262),
+      q(0),
+      ],
+   q(maung) => [
+      q(4462),
+      q(0),
+      ],
+   q(mauritian sign language) => [
+      q(4069),
+      q(0),
+      ],
+   q(mauwake) => [
+      q(4285),
+      q(0),
+      ],
+   q(mawa (chad)) => [
+      q(4175),
+      q(0),
+      ],
+   q(mawa (nigeria)) => [
+      q(7168),
+      q(0),
+      ],
+   q(mawak) => [
+      q(4327),
+      q(0),
+      ],
+   q(mawan) => [
+      q(4178),
+      q(0),
+      ],
+   q(mawayana) => [
+      q(4716),
+      q(0),
+      ],
+   q(mawchi) => [
+      q(4347),
+      q(0),
+      ],
+   q(mawes) => [
+      q(4260),
+      q(0),
+      ],
+   q(mawukakan) => [
+      q(4670),
+      q(1),
+      ],
+   q(maxakali) => [
+      q(4138),
+      q(0),
+      ],
+   q(maxi gbe) => [
+      q(4658),
+      q(0),
+      ],
+   q(maya samo) => [
+      q(6340),
+      q(0),
+      ],
+   q(mayaguduna) => [
+      q(7430),
+      q(0),
+      ],
+   q(mayan languages) => [
+      q(0296),
+      q(0),
+      ],
+   q(mayangna) => [
+      q(7588),
+      q(0),
+      ],
+   q(mayawali) => [
+      q(7794),
+      q(0),
+      ],
+   q(mayeka) => [
+      q(4674),
+      q(0),
+      ],
+   q(mayi-kulan) => [
+      q(7568),
+      q(0),
+      ],
+   q(mayi-thakurti) => [
+      q(7570),
+      q(0),
+      ],
+   q(mayi-yapi) => [
+      q(7567),
+      q(0),
+      ],
+   q(mayo) => [
+      q(4249),
+      q(0),
+      ],
+   q(mayogo) => [
+      q(4190),
+      q(0),
+      ],
+   q(mayoyao ifugao) => [
+      q(2918),
+      q(0),
+      ],
+   q(mazagway) => [
+      q(2077),
+      q(0),
+      ],
+   q(mazaltepec zapotec) => [
+      q(7938),
+      q(0),
+      ],
+   q(mazanderani) => [
+      q(4706),
+      q(0),
+      ],
+   q(mazatlan mazatec) => [
+      q(7040),
+      q(0),
+      ],
+   q(mazatlan mixe) => [
+      q(4704),
+      q(0),
+      ],
+   q(mba) => [
+      q(4227),
+      q(0),
+      ],
+   q(mbala) => [
+      q(4192),
+      q(0),
+      ],
+   q(mbalanhu) => [
+      q(4000),
+      q(0),
+      ],
+   q(mbandja) => [
+      q(7901),
+      q(0),
+      ],
+   q(mbangala) => [
+      q(4653),
+      q(0),
+      ],
+   q(mbangi) => [
+      q(4263),
+      q(0),
+      ],
+   q(mbangwe) => [
+      q(7889),
+      q(0),
+      ],
+   q(mbara (australia)) => [
+      q(4610),
+      q(0),
+      ],
+   q(mbara (chad)) => [
+      q(4465),
+      q(0),
+      ],
+   q(mbariman-gudhinma) => [
+      q(7897),
+      q(0),
+      ],
+   q(mbati) => [
+      q(4191),
+      q(0),
+      ],
+   q(mbato) => [
+      q(2679),
+      q(0),
+      ],
+   q(mbay) => [
+      q(4673),
+      q(0),
+      ],
+   q(mbe) => [
+      q(4239),
+      q(0),
+      ],
+   q(mbe') => [
+      q(4565),
+      q(0),
+      ],
+   q(mbelime) => [
+      q(4491),
+      q(0),
+      ],
+   q(mbere) => [
+      q(4195),
+      q(0),
+      ],
+   q(mbesa) => [
+      q(7894),
+      q(0),
+      ],
+   q(mbo (cameroon)) => [
+      q(4141),
+      q(0),
+      ],
+   q(mbo (democratic republic of congo)) => [
+      q(7898),
+      q(0),
+      ],
+   q(mboi) => [
+      q(4442),
+      q(0),
+      ],
+   q(mboko) => [
+      q(4196),
+      q(0),
+      ],
+   q(mbole) => [
+      q(4193),
+      q(0),
+      ],
+   q(mbonga) => [
+      q(7408),
+      q(0),
+      ],
+   q(mbongno) => [
+      q(1180),
+      q(0),
+      ],
+   q(mbosi) => [
+      q(4198),
+      q(0),
+      ],
+   q(mbowe) => [
+      q(4661),
+      q(0),
+      ],
+   q(mbre) => [
+      q(4344),
+      q(0),
+      ],
+   q(mbudum) => [
+      q(7410),
+      q(0),
+      ],
+   q(mbugu) => [
+      q(4278),
+      q(0),
+      ],
+   q(mbugwe) => [
+      q(4274),
+      q(0),
+      ],
+   q(mbuko) => [
+      q(4482),
+      q(0),
+      ],
+   q(mbukushu) => [
+      q(4295),
+      q(0),
+      ],
+   q(mbula) => [
+      q(4415),
+      q(0),
+      ],
+   q(mbula-bwazza) => [
+      q(4147),
+      q(0),
+      ],
+   q(mbule) => [
+      q(4369),
+      q(0),
+      ],
+   q(mbulungish) => [
+      q(4148),
+      q(0),
+      ],
+   q(mbum) => [
+      q(4182),
+      q(0),
+      ],
+   q(mbunda) => [
+      q(4163),
+      q(0),
+      ],
+   q(mbunga) => [
+      q(4273),
+      q(0),
+      ],
+   q(mburku) => [
+      q(1057),
+      q(0),
+      ],
+   q(mbwela) => [
+      q(4245),
+      q(0),
+      ],
+   q(mbya guarani) => [
+      q(2654),
+      q(0),
+      ],
+   q(me'en) => [
+      q(4684),
+      q(0),
+      ],
+   q(mea) => [
+      q(1740),
+      q(2),
+      ],
+   q(medebur) => [
+      q(4330),
+      q(0),
+      ],
+   q(media lengua) => [
+      q(4584),
+      q(0),
+      ],
+   q(mediak) => [
+      q(4644),
+      q(0),
+      ],
+   q(median) => [
+      q(7411),
+      q(0),
+      ],
+   q(mednyj aleut) => [
+      q(4583),
+      q(0),
+      ],
+   q(medumba) => [
+      q(1609),
+      q(0),
+      ],
+   q(mefele) => [
+      q(4234),
+      q(0),
+      ],
+   q(megam) => [
+      q(4207),
+      q(0),
+      ],
+   q(megleno romanian) => [
+      q(5871),
+      q(0),
+      ],
+   q(mehek) => [
+      q(5126),
+      q(0),
+      ],
+   q(mehinaku) => [
+      q(4397),
+      q(0),
+      ],
+   q(mehri) => [
+      q(2467),
+      q(0),
+      ],
+   q(mekeo) => [
+      q(4211),
+      q(0),
+      ],
+   q(mekmek) => [
+      q(4609),
+      q(0),
+      ],
+   q(mekwei) => [
+      q(4535),
+      q(0),
+      ],
+   q(mele-fila) => [
+      q(4651),
+      q(0),
+      ],
+   q(melo) => [
+      q(4248),
+      q(0),
+      ],
+   q(melpa) => [
+      q(4205),
+      q(0),
+      ],
+   q(memoni) => [
+      q(4151),
+      q(0),
+      ],
+   q(mendalam kayan) => [
+      q(7372),
+      q(0),
+      ],
+   q(mendankwe-nkwen) => [
+      q(4228),
+      q(0),
+      ],
+   q(mende) => [
+      q(0277),
+      q(0),
+      ],
+   q(mende (papua new guinea)) => [
+      q(6044),
+      q(0),
+      ],
+   q(mende (sierra leone)) => [
+      q(0277),
+      q(1),
+      ],
+   q(mengaka) => [
+      q(7413),
+      q(0),
+      ],
+   q(mengen) => [
+      q(4206),
+      q(0),
+      ],
+   q(mengisa) => [
+      q(4172),
+      q(0),
+      ],
+   q(menik) => [
+      q(6626),
+      q(0),
+      ],
+   q(menka) => [
+      q(4202),
+      q(0),
+      ],
+   q(menominee) => [
+      q(4224),
+      q(0),
+      ],
+   q(mentawai) => [
+      q(4642),
+      q(0),
+      ],
+   q(menya) => [
+      q(4170),
+      q(0),
+      ],
+   q(meoswar) => [
+      q(4622),
+      q(0),
+      ],
+   q(mer) => [
+      q(4431),
+      q(0),
+      ],
+   q(meramera) => [
+      q(4659),
+      q(0),
+      ],
+   q(merei) => [
+      q(3977),
+      q(0),
+      ],
+   q(merey) => [
+      q(4216),
+      q(0),
+      ],
+   q(meriam) => [
+      q(6896),
+      q(0),
+      ],
+   q(merlav) => [
+      q(4517),
+      q(0),
+      ],
+   q(meroitic) => [
+      q(7423),
+      q(0),
+      ],
+   q(meru) => [
+      q(4217),
+      q(0),
+      ],
+   q(merwari) => [
+      q(7231),
+      q(0),
+      ],
+   q(mesaka) => [
+      q(3035),
+      q(0),
+      ],
+   q(mescalero-chiricahua apache) => [
+      q(0845),
+      q(0),
+      ],
+   q(mese) => [
+      q(4161),
+      q(0),
+      ],
+   q(meskwaki) => [
+      q(5888),
+      q(0),
+      ],
+   q(mesme) => [
+      q(7853),
+      q(0),
+      ],
+   q(mesmes) => [
+      q(4688),
+      q(0),
+      ],
+   q(mesopotamian arabic) => [
+      q(0591),
+      q(0),
+      ],
+   q(mesqan) => [
+      q(4624),
+      q(0),
+      ],
+   q(messapic) => [
+      q(1793),
+      q(0),
+      ],
+   q(meta') => [
+      q(4264),
+      q(0),
+      ],
+   q(metlatonoc mixtec) => [
+      q(4668),
+      q(0),
+      ],
+   q(mewari) => [
+      q(4572),
+      q(0),
+      ],
+   q(mewati) => [
+      q(7244),
+      q(0),
+      ],
+   q(mexican sign language) => [
+      q(4243),
+      q(0),
+      ],
+   q(meyah) => [
+      q(4210),
+      q(0),
+      ],
+   q(mezontla popoloca) => [
+      q(5366),
+      q(0),
+      ],
+   q(mezquital otomi) => [
+      q(5319),
+      q(0),
+      ],
+   q(mfinu) => [
+      q(7881),
+      q(0),
+      ],
+   q(mfumte) => [
+      q(4834),
+      q(0),
+      ],
+   q(mgbolizhia) => [
+      q(2566),
+      q(0),
+      ],
+   q(mi'kmaq) => [
+      q(0279),
+      q(0),
+      ],
+   q(miahuatlan zapotec) => [
+      q(7817),
+      q(0),
+      ],
+   q(miami) => [
+      q(4299),
+      q(0),
+      ],
+   q(mian) => [
+      q(4474),
+      q(0),
+      ],
+   q(miani) => [
+      q(5486),
+      q(0),
+      ],
+   q(michif) => [
+      q(1849),
+      q(0),
+      ],
+   q(michigamea) => [
+      q(1789),
+      q(0),
+      ],
+   q(michoacan mazahua) => [
+      q(4392),
+      q(0),
+      ],
+   q(michoacan nahuatl) => [
+      q(4773),
+      q(0),
+      ],
+   q(micmac) => [
+      q(0279),
+      q(1),
+      ],
+   q(mid grand valley dani) => [
+      q(2108),
+      q(0),
+      ],
+   q(mid-southern banda) => [
+      q(1244),
+      q(0),
+      ],
+   q(middle armenian) => [
+      q(0990),
+      q(0),
+      ],
+   q(middle breton) => [
+      q(7300),
+      q(0),
+      ],
+   q(middle cornish) => [
+      q(1808),
+      q(0),
+      ],
+   q(middle dutch (ca. 1050-1350)) => [
+      q(0115),
+      q(1),
+      ],
+   q(middle english (1100-1500)) => [
+      q(0124),
+      q(1),
+      ],
+   q(middle french (ca. 1400-1600)) => [
+      q(0138),
+      q(1),
+      ],
+   q(middle high german (ca. 1050-1500)) => [
+      q(0157),
+      q(1),
+      ],
+   q(middle hittite) => [
+      q(2851),
+      q(0),
+      ],
+   q(middle irish (900-1200)) => [
+      q(0278),
+      q(1),
+      ],
+   q(middle korean (10th-16th cent.)) => [
+      q(5235),
+      q(0),
+      ],
+   q(middle low german) => [
+      q(2559),
+      q(0),
+      ],
+   q(middle mongolian) => [
+      q(7434),
+      q(0),
+      ],
+   q(middle newar) => [
+      q(5140),
+      q(0),
+      ],
+   q(middle watut) => [
+      q(4466),
+      q(0),
+      ],
+   q(middle welsh) => [
+      q(7159),
+      q(0),
+      ],
+   q(midob) => [
+      q(4209),
+      q(0),
+      ],
+   q(migaama) => [
+      q(4413),
+      q(0),
+      ],
+   q(migabac) => [
+      q(4470),
+      q(0),
+      ],
+   q(migum) => [
+      q(3441),
+      q(0),
+      ],
+   q(miji) => [
+      q(6061),
+      q(1),
+      ],
+   q(miju-mishmi) => [
+      q(4656),
+      q(0),
+      ],
+   q(mikasuki) => [
+      q(4308),
+      q(0),
+      ],
+   q(mili) => [
+      q(7693),
+      q(0),
+      ],
+   q(miltu) => [
+      q(4375),
+      q(0),
+      ],
+   q(miluk) => [
+      q(2963),
+      q(0),
+      ],
+   q(milyan) => [
+      q(2968),
+      q(0),
+      ],
+   q(min bei chinese) => [
+      q(4427),
+      q(0),
+      ],
+   q(min dong chinese) => [
+      q(1701),
+      q(0),
+      ],
+   q(min nan chinese) => [
+      q(4730),
+      q(0),
+      ],
+   q(min zhong chinese) => [
+      q(1936),
+      q(0),
+      ],
+   q(mina (cameroon)) => [
+      q(2800),
+      q(0),
+      ],
+   q(mina (india)) => [
+      q(4680),
+      q(0),
+      ],
+   q(minaean) => [
+      q(2973),
+      q(0),
+      ],
+   q(minang) => [
+      q(7480),
+      q(0),
+      ],
+   q(minangkabau) => [
+      q(0280),
+      q(0),
+      ],
+   q(minanibai) => [
+      q(4174),
+      q(0),
+      ],
+   q(minaveha) => [
+      q(4612),
+      q(0),
+      ],
+   q(minderico) => [
+      q(2135),
+      q(0),
+      ],
+   q(mindiri) => [
+      q(4468),
+      q(0),
+      ],
+   q(mingang doso) => [
+      q(4356),
+      q(0),
+      ],
+   q(mingrelian) => [
+      q(7412),
+      q(0),
+      ],
+   q(minica huitoto) => [
+      q(2848),
+      q(0),
+      ],
+   q(minidien) => [
+      q(7133),
+      q(0),
+      ],
+   q(minigir) => [
+      q(1572),
+      q(1),
+      ],
+   q(minjungbal) => [
+      q(7367),
+      q(0),
+      ],
+   q(minkin) => [
+      q(7562),
+      q(0),
+      ],
+   q(minoan) => [
+      q(5259),
+      q(0),
+      ],
+   q(minokok) => [
+      q(4496),
+      q(0),
+      ],
+   q(minriq) => [
+      q(4428),
+      q(0),
+      ],
+   q(mintil) => [
+      q(4712),
+      q(0),
+      ],
+   q(minz zhuang) => [
+      q(7841),
+      q(0),
+      ],
+   q(miqie) => [
+      q(7656),
+      q(0),
+      ],
+   q(mirandese) => [
+      q(0294),
+      q(0),
+      ],
+   q(miraya bikol) => [
+      q(5760),
+      q(0),
+      ],
+   q(mirgan) => [
+      q(7942),
+      q(0),
+      ],
+   q(miriti) => [
+      q(4410),
+      q(0),
+      ],
+   q(miriwung) => [
+      q(4215),
+      q(0),
+      ],
+   q(miship) => [
+      q(4336),
+      q(0),
+      ],
+   q(misima-panaeati) => [
+      q(4478),
+      q(0),
+      ],
+   q(mising) => [
+      q(4512),
+      q(0),
+      ],
+   q(miskito) => [
+      q(4313),
+      q(0),
+      ],
+   q(mitla zapotec) => [
+      q(7825),
+      q(0),
+      ],
+   q(mitlatongo mixtec) => [
+      q(7030),
+      q(0),
+      ],
+   q(mittu) => [
+      q(4641),
+      q(0),
+      ],
+   q(mituku) => [
+      q(7892),
+      q(0),
+      ],
+   q(miu) => [
+      q(4469),
+      q(0),
+      ],
+   q(miwa) => [
+      q(7026),
+      q(0),
+      ],
+   q(mixed great andamanese) => [
+      q(2399),
+      q(0),
+      ],
+   q(mixtepec mixtec) => [
+      q(4318),
+      q(0),
+      ],
+   q(mixtepec zapotec) => [
+      q(7926),
+      q(0),
+      ],
+   q(miya) => [
+      q(4348),
+      q(0),
+      ],
+   q(miyako) => [
+      q(4608),
+      q(0),
+      ],
+   q(miyobe) => [
+      q(6176),
+      q(0),
+      ],
+   q(mlabri) => [
+      q(4506),
+      q(0),
+      ],
+   q(mlahso) => [
+      q(3907),
+      q(0),
+      ],
+   q(mlap) => [
+      q(3378),
+      q(0),
+      ],
+   q(mlomp) => [
+      q(4380),
+      q(0),
+      ],
+   q(mmaala) => [
+      q(4409),
+      q(0),
+      ],
+   q(mmen) => [
+      q(1148),
+      q(0),
+      ],
+   q(mo) => [
+      q(7147),
+      q(1),
+      ],
+   q(mo'da) => [
+      q(2432),
+      q(0),
+      ],
+   q(moabite) => [
+      q(5192),
+      q(0),
+      ],
+   q(moba) => [
+      q(4241),
+      q(0),
+      ],
+   q(mobilian) => [
+      q(4439),
+      q(0),
+      ],
+   q(mobumrin aizi) => [
+      q(0684),
+      q(0),
+      ],
+   q(mobwa karen) => [
+      q(3109),
+      q(0),
+      ],
+   q(mocheno) => [
+      q(4287),
+      q(0),
+      ],
+   q(mochi) => [
+      q(5244),
+      q(0),
+      ],
+   q(mochica) => [
+      q(5253),
+      q(0),
+      ],
+   q(mocho) => [
+      q(4277),
+      q(0),
+      ],
+   q(mocovi) => [
+      q(4438),
+      q(0),
+      ],
+   q(modang) => [
+      q(4650),
+      q(0),
+      ],
+   q(modern greek (1453-)) => [
+      q(0164),
+      q(2),
+      ],
+   q(modole) => [
+      q(4494),
+      q(0),
+      ],
+   q(moere) => [
+      q(4615),
+      q(0),
+      ],
+   q(mofu-gudur) => [
+      q(4303),
+      q(0),
+      ],
+   q(mogholi) => [
+      q(4283),
+      q(0),
+      ],
+   q(mogofin) => [
+      q(4231),
+      q(0),
+      ],
+   q(mogum) => [
+      q(4450),
+      q(0),
+      ],
+   q(mohave) => [
+      q(4451),
+      q(0),
+      ],
+   q(mohawk) => [
+      q(0288),
+      q(0),
+      ],
+   q(mohegan-pequot) => [
+      q(7468),
+      q(0),
+      ],
+   q(moi (congo)) => [
+      q(4452),
+      q(0),
+      ],
+   q(moi (indonesia)) => [
+      q(4660),
+      q(0),
+      ],
+   q(moikodi) => [
+      q(4357),
+      q(0),
+      ],
+   q(moingi) => [
+      q(4646),
+      q(0),
+      ],
+   q(moji) => [
+      q(7694),
+      q(0),
+      ],
+   q(mok) => [
+      q(4499),
+      q(0),
+      ],
+   q(moken) => [
+      q(4640),
+      q(0),
+      ],
+   q(mokerang) => [
+      q(4244),
+      q(0),
+      ],
+   q(mokilese) => [
+      q(4351),
+      q(0),
+      ],
+   q(moklen) => [
+      q(4354),
+      q(0),
+      ],
+   q(mokole) => [
+      q(4353),
+      q(0),
+      ],
+   q(mokpwe) => [
+      q(1429),
+      q(0),
+      ],
+   q(moksela) => [
+      q(7034),
+      q(0),
+      ],
+   q(moksha) => [
+      q(0275),
+      q(0),
+      ],
+   q(molale) => [
+      q(4132),
+      q(0),
+      ],
+   q(molbog) => [
+      q(5665),
+      q(0),
+      ],
+   q(moldavian) => [
+      q(0360),
+      q(1),
+      ],
+   q(moldova sign language) => [
+      q(7048),
+      q(0),
+      ],
+   q(moldovan) => [
+      q(0360),
+      q(2),
+      ],
+   q(molengue) => [
+      q(1569),
+      q(0),
+      ],
+   q(molima) => [
+      q(4453),
+      q(0),
+      ],
+   q(molmo one) => [
+      q(0944),
+      q(0),
+      ],
+   q(molo) => [
+      q(7890),
+      q(0),
+      ],
+   q(molof) => [
+      q(4541),
+      q(0),
+      ],
+   q(moloko) => [
+      q(4387),
+      q(0),
+      ],
+   q(mom jango) => [
+      q(6994),
+      q(0),
+      ],
+   q(moma) => [
+      q(4683),
+      q(0),
+      ],
+   q(momare) => [
+      q(4554),
+      q(0),
+      ],
+   q(mombo dogon) => [
+      q(2083),
+      q(0),
+      ],
+   q(mombum) => [
+      q(4544),
+      q(0),
+      ],
+   q(momina) => [
+      q(4391),
+      q(0),
+      ],
+   q(momuna) => [
+      q(4485),
+      q(0),
+      ],
+   q(mon) => [
+      q(4433),
+      q(0),
+      ],
+   q(mon-khmer languages) => [
+      q(0282),
+      q(0),
+      ],
+   q(monastic sign language) => [
+      q(4699),
+      q(0),
+      ],
+   q(monde) => [
+      q(4417),
+      q(0),
+      ],
+   q(mondropolon) => [
+      q(5038),
+      q(0),
+      ],
+   q(mong) => [
+      q(0179),
+      q(1),
+      ],
+   q(mong leng) => [
+      q(2805),
+      q(1),
+      ],
+   q(mong njua) => [
+      q(2805),
+      q(2),
+      ],
+   q(mongo) => [
+      q(0252),
+      q(0),
+      ],
+   q(mongol) => [
+      q(4269),
+      q(0),
+      ],
+   q(mongolia buriat) => [
+      q(1579),
+      q(0),
+      ],
+   q(mongolian) => [
+      q(0289),
+      q(0),
+      ],
+   q(mongolian languages) => [
+      q(0531),
+      q(0),
+      ],
+   q(mongolian sign language) => [
+      q(4547),
+      q(0),
+      ],
+   q(mongondow) => [
+      q(4441),
+      q(0),
+      ],
+   q(moni) => [
+      q(4436),
+      q(0),
+      ],
+   q(mono (cameroon)) => [
+      q(4525),
+      q(0),
+      ],
+   q(mono (democratic republic of congo)) => [
+      q(4421),
+      q(0),
+      ],
+   q(mono (solomon islands)) => [
+      q(4559),
+      q(0),
+      ],
+   q(mono (usa)) => [
+      q(4429),
+      q(0),
+      ],
+   q(monom) => [
+      q(4446),
+      q(0),
+      ],
+   q(monsang naga) => [
+      q(4969),
+      q(0),
+      ],
+   q(montagnais) => [
+      q(4440),
+      q(0),
+      ],
+   q(montol) => [
+      q(4566),
+      q(0),
+      ],
+   q(monumbo) => [
+      q(4657),
+      q(0),
+      ],
+   q(monzombo) => [
+      q(4443),
+      q(0),
+      ],
+   q(moo) => [
+      q(2685),
+      q(0),
+      ],
+   q(moose cree) => [
+      q(1854),
+      q(0),
+      ],
+   q(mopan maya) => [
+      q(4447),
+      q(0),
+      ],
+   q(mor (bomberai peninsula)) => [
+      q(4448),
+      q(0),
+      ],
+   q(mor (mor islands)) => [
+      q(4298),
+      q(0),
+      ],
+   q(moraid) => [
+      q(4536),
+      q(0),
+      ],
+   q(morawa) => [
+      q(4698),
+      q(0),
+      ],
+   q(morelos nahuatl) => [
+      q(4870),
+      q(0),
+      ],
+   q(morerebi) => [
+      q(7420),
+      q(0),
+      ],
+   q(moresada) => [
+      q(4552),
+      q(0),
+      ],
+   q(mori atas) => [
+      q(4709),
+      q(0),
+      ],
+   q(mori bawah) => [
+      q(7431),
+      q(0),
+      ],
+   q(morigi) => [
+      q(4180),
+      q(0),
+      ],
+   q(morisyen) => [
+      q(4229),
+      q(0),
+      ],
+   q(moro) => [
+      q(4449),
+      q(0),
+      ],
+   q(moroccan arabic) => [
+      q(0883),
+      q(0),
+      ],
+   q(moroccan sign language) => [
+      q(7424),
+      q(0),
+      ],
+   q(morokodo) => [
+      q(4252),
+      q(0),
+      ],
+   q(morom) => [
+      q(1103),
+      q(0),
+      ],
+   q(moronene) => [
+      q(4493),
+      q(0),
+      ],
+   q(morori) => [
+      q(4444),
+      q(0),
+      ],
+   q(morouas) => [
+      q(4520),
+      q(0),
+      ],
+   q(mortlockese) => [
+      q(4516),
+      q(0),
+      ],
+   q(moru) => [
+      q(4253),
+      q(0),
+      ],
+   q(mosimo) => [
+      q(4501),
+      q(0),
+      ],
+   q(mosiro) => [
+      q(4645),
+      q(0),
+      ],
+   q(moskona) => [
+      q(4564),
+      q(0),
+      ],
+   q(mossi) => [
+      q(0290),
+      q(0),
+      ],
+   q(mota) => [
+      q(4574),
+      q(0),
+      ],
+   q(motlav) => [
+      q(4386),
+      q(0),
+      ],
+   q(motu) => [
+      q(4220),
+      q(0),
+      ],
+   q(mouk-aria) => [
+      q(4631),
+      q(0),
+      ],
+   q(mountain koiali) => [
+      q(3545),
+      q(0),
+      ],
+   q(mouwase) => [
+      q(3125),
+      q(0),
+      ],
+   q(movima) => [
+      q(4708),
+      q(0),
+      ],
+   q(moyadan itneg) => [
+      q(3023),
+      q(0),
+      ],
+   q(moyon naga) => [
+      q(4976),
+      q(0),
+      ],
+   q(mozambican sign language) => [
+      q(4717),
+      q(0),
+      ],
+   q(mozarabic) => [
+      q(4655),
+      q(0),
+      ],
+   q(mpade) => [
+      q(4463),
+      q(0),
+      ],
+   q(mpalitjanh) => [
+      q(7462),
+      q(0),
+      ],
+   q(mpi) => [
+      q(4480),
+      q(0),
+      ],
+   q(mpiemo) => [
+      q(4176),
+      q(0),
+      ],
+   q(mpoto) => [
+      q(4456),
+      q(0),
+      ],
+   q(mpotovoro) => [
+      q(4618),
+      q(0),
+      ],
+   q(mpumpong) => [
+      q(4256),
+      q(0),
+      ],
+   q(mpuono) => [
+      q(7891),
+      q(0),
+      ],
+   q(mpur) => [
+      q(0723),
+      q(0),
+      ],
+   q(mro-khimi chin) => [
+      q(1792),
+      q(0),
+      ],
+   q(mru) => [
+      q(4519),
+      q(0),
+      ],
+   q(mser) => [
+      q(3571),
+      q(0),
+      ],
+   q(mt. iraya agta) => [
+      q(0918),
+      q(0),
+      ],
+   q(mt. iriga agta) => [
+      q(0676),
+      q(0),
+      ],
+   q(mualang) => [
+      q(4558),
+      q(0),
+      ],
+   q(mubami) => [
+      q(6732),
+      q(0),
+      ],
+   q(mubi) => [
+      q(4581),
+      q(0),
+      ],
+   q(muda) => [
+      q(7690),
+      q(0),
+      ],
+   q(mudburra) => [
+      q(2096),
+      q(0),
+      ],
+   q(mudhili gadaba) => [
+      q(2417),
+      q(0),
+      ],
+   q(mudu koraga) => [
+      q(7021),
+      q(0),
+      ],
+   q(muduga) => [
+      q(6863),
+      q(0),
+      ],
+   q(mufian) => [
+      q(0823),
+      q(0),
+      ],
+   q(mugom) => [
+      q(4589),
+      q(0),
+      ],
+   q(muinane) => [
+      q(1320),
+      q(0),
+      ],
+   q(mukha-dora) => [
+      q(4400),
+      q(0),
+      ],
+   q(mukulu) => [
+      q(4455),
+      q(0),
+      ],
+   q(mulaha) => [
+      q(4247),
+      q(0),
+      ],
+   q(mulam) => [
+      q(4378),
+      q(0),
+      ],
+   q(mulao) => [
+      q(2527),
+      q(0),
+      ],
+   q(mulgi) => [
+      q(4607),
+      q(0),
+      ],
+   q(mullu kurumba) => [
+      q(3525),
+      q(0),
+      ],
+   q(mullukmulluk) => [
+      q(4457),
+      q(0),
+      ],
+   q(multiple languages) => [
+      q(0291),
+      q(0),
+      ],
+   q(muluridyi) => [
+      q(7035),
+      q(0),
+      ],
+   q(mum) => [
+      q(3548),
+      q(0),
+      ],
+   q(mumuye) => [
+      q(4705),
+      q(0),
+      ],
+   q(mun chin) => [
+      q(4638),
+      q(0),
+      ],
+   q(muna) => [
+      q(4416),
+      q(0),
+      ],
+   q(munda) => [
+      q(6922),
+      q(0),
+      ],
+   q(munda languages) => [
+      q(0292),
+      q(0),
+      ],
+   q(mundabli) => [
+      q(1354),
+      q(0),
+      ],
+   q(mundang) => [
+      q(4580),
+      q(0),
+      ],
+   q(mundani) => [
+      q(4419),
+      q(0),
+      ],
+   q(mundari) => [
+      q(6920),
+      q(0),
+      ],
+   q(mundat) => [
+      q(4395),
+      q(0),
+      ],
+   q(mundu) => [
+      q(4586),
+      q(0),
+      ],
+   q(munduruku) => [
+      q(4689),
+      q(0),
+      ],
+   q(mungaka) => [
+      q(4284),
+      q(0),
+      ],
+   q(mungbam) => [
+      q(4307),
+      q(1),
+      ],
+   q(munggui) => [
+      q(4562),
+      q(0),
+      ],
+   q(mungkip) => [
+      q(4476),
+      q(0),
+      ],
+   q(muniche) => [
+      q(4687),
+      q(0),
+      ],
+   q(munit) => [
+      q(4557),
+      q(0),
+      ],
+   q(munji) => [
+      q(4422),
+      q(0),
+      ],
+   q(munsee) => [
+      q(6913),
+      q(0),
+      ],
+   q(muong) => [
+      q(4571),
+      q(0),
+      ],
+   q(mur pano) => [
+      q(6562),
+      q(0),
+      ],
+   q(muratayak) => [
+      q(0906),
+      q(0),
+      ],
+   q(murik (malaysia)) => [
+      q(4664),
+      q(0),
+      ],
+   q(murik (papua new guinea)) => [
+      q(4560),
+      q(0),
+      ],
+   q(murkim) => [
+      q(5812),
+      q(0),
+      ],
+   q(murle) => [
+      q(4594),
+      q(0),
+      ],
+   q(murrinh-patha) => [
+      q(4629),
+      q(0),
+      ],
+   q(mursi) => [
+      q(4600),
+      q(0),
+      ],
+   q(murui huitoto) => [
+      q(2869),
+      q(0),
+      ],
+   q(murupi) => [
+      q(4502),
+      q(0),
+      ],
+   q(muruwari) => [
+      q(7896),
+      q(0),
+      ],
+   q(musak) => [
+      q(4406),
+      q(0),
+      ],
+   q(musar) => [
+      q(4398),
+      q(0),
+      ],
+   q(musasa) => [
+      q(6124),
+      q(0),
+      ],
+   q(musey) => [
+      q(4534),
+      q(0),
+      ],
+   q(musgu) => [
+      q(4585),
+      q(0),
+      ],
+   q(mushungulu) => [
+      q(7407),
+      q(0),
+      ],
+   q(musi) => [
+      q(4587),
+      q(0),
+      ],
+   q(muskum) => [
+      q(4323),
+      q(0),
+      ],
+   q(muslim tat) => [
+      q(6754),
+      q(0),
+      ],
+   q(musom) => [
+      q(4549),
+      q(0),
+      ],
+   q(mussau-emira) => [
+      q(2254),
+      q(0),
+      ],
+   q(muthuvan) => [
+      q(4597),
+      q(0),
+      ],
+   q(mutu) => [
+      q(6762),
+      q(0),
+      ],
+   q(muya) => [
+      q(4611),
+      q(0),
+      ],
+   q(muyang) => [
+      q(4599),
+      q(0),
+      ],
+   q(muyuw) => [
+      q(4690),
+      q(0),
+      ],
+   q(muzi) => [
+      q(7705),
+      q(0),
+      ],
+   q(mvanip) => [
+      q(4162),
+      q(0),
+      ],
+   q(mvuba) => [
+      q(4654),
+      q(0),
+      ],
+   q(mwaghavul) => [
+      q(6285),
+      q(0),
+      ],
+   q(mwali comorian) => [
+      q(7153),
+      q(0),
+      ],
+   q(mwan) => [
+      q(4437),
+      q(0),
+      ],
+   q(mwani) => [
+      q(7180),
+      q(0),
+      ],
+   q(mwatebu) => [
+      q(4625),
+      q(0),
+      ],
+   q(mwera (chimwera)) => [
+      q(4628),
+      q(0),
+      ],
+   q(mwera (nyasa)) => [
+      q(4325),
+      q(0),
+      ],
+   q(mwerlap) => [
+      q(4517),
+      q(1),
+      ],
+   q(mwimbi-muthambi) => [
+      q(4639),
+      q(0),
+      ],
+   q(mwotlap) => [
+      q(4386),
+      q(1),
+      ],
+   q(mycenaean greek) => [
+      q(2565),
+      q(0),
+      ],
+   q(myene) => [
+      q(4676),
+      q(0),
+      ],
+   q(mysian) => [
+      q(7703),
+      q(0),
+      ],
+   q(mzieme naga) => [
+      q(4966),
+      q(0),
+      ],
+   q(n'ko) => [
+      q(0317),
+      q(0),
+      ],
+   q(n/u) => [
+      q(4841),
+      q(0),
+      ],
+   q(na) => [
+      q(4757),
+      q(0),
+      ],
+   q(na-dene languages) => [
+      q(0532),
+      q(0),
+      ],
+   q(na-meo) => [
+      q(4820),
+      q(0),
+      ],
+   q(naaba) => [
+      q(4731),
+      q(0),
+      ],
+   q(naami) => [
+      q(1634),
+      q(0),
+      ],
+   q(naasioi) => [
+      q(4734),
+      q(0),
+      ],
+   q(naba) => [
+      q(4418),
+      q(0),
+      ],
+   q(nabak) => [
+      q(4724),
+      q(0),
+      ],
+   q(nabi) => [
+      q(4579),
+      q(0),
+      ],
+   q(nachering) => [
+      q(4765),
+      q(0),
+      ],
+   q(nadeb) => [
+      q(4136),
+      q(0),
+      ],
+   q(nadruvian) => [
+      q(4788),
+      q(0),
+      ],
+   q(nafaanra) => [
+      q(4833),
+      q(0),
+      ],
+   q(nafi) => [
+      q(6213),
+      q(0),
+      ],
+   q(nafri) => [
+      q(5155),
+      q(0),
+      ],
+   q(nafusi) => [
+      q(3064),
+      q(0),
+      ],
+   q(naga pidgin) => [
+      q(4725),
+      q(0),
+      ],
+   q(nagarchal) => [
+      q(4745),
+      q(0),
+      ],
+   q(nage) => [
+      q(5144),
+      q(0),
+      ],
+   q(nagumi) => [
+      q(4855),
+      q(0),
+      ],
+   q(naha'ai) => [
+      q(4388),
+      q(1),
+      ],
+   q(nahali) => [
+      q(4959),
+      q(0),
+      ],
+   q(nahari) => [
+      q(4867),
+      q(0),
+      ],
+   q(nahavaq) => [
+      q(6150),
+      q(1),
+      ],
+   q(nahuatl languages) => [
+      q(0298),
+      q(0),
+      ],
+   q(nai) => [
+      q(1220),
+      q(0),
+      ],
+   q(najdi arabic) => [
+      q(0879),
+      q(0),
+      ],
+   q(naka'ela) => [
+      q(4723),
+      q(0),
+      ],
+   q(nakai) => [
+      q(4931),
+      q(0),
+      ],
+   q(nakame) => [
+      q(4883),
+      q(0),
+      ],
+   q(nakanai) => [
+      q(4727),
+      q(0),
+      ],
+   q(nakara) => [
+      q(4772),
+      q(0),
+      ],
+   q(nake) => [
+      q(4749),
+      q(0),
+      ],
+   q(naki) => [
+      q(4230),
+      q(0),
+      ],
+   q(nakwi) => [
+      q(4737),
+      q(0),
+      ],
+   q(nalca) => [
+      q(4947),
+      q(0),
+      ],
+   q(nali) => [
+      q(5081),
+      q(0),
+      ],
+   q(nalik) => [
+      q(4728),
+      q(0),
+      ],
+   q(nalogo) => [
+      q(4961),
+      q(0),
+      ],
+   q(nalu) => [
+      q(4726),
+      q(0),
+      ],
+   q(naluo yi) => [
+      q(7684),
+      q(0),
+      ],
+   q(nama (namibia)) => [
+      q(4732),
+      q(1),
+      ],
+   q(nama (papua new guinea)) => [
+      q(4985),
+      q(0),
+      ],
+   q(namakura) => [
+      q(4972),
+      q(0),
+      ],
+   q(namat) => [
+      q(4933),
+      q(0),
+      ],
+   q(nambo) => [
+      q(4774),
+      q(0),
+      ],
+   q(nambya) => [
+      q(4978),
+      q(0),
+      ],
+   q(namia) => [
+      q(5000),
+      q(0),
+      ],
+   q(namiae) => [
+      q(5130),
+      q(0),
+      ],
+   q(namibian sign language) => [
+      q(4756),
+      q(0),
+      ],
+   q(namla) => [
+      q(4719),
+      q(0),
+      ],
+   q(namo) => [
+      q(4669),
+      q(0),
+      ],
+   q(namonuito) => [
+      q(4981),
+      q(0),
+      ],
+   q(namosi-naitasiri-serua) => [
+      q(1543),
+      q(0),
+      ],
+   q(namuyi) => [
+      q(4986),
+      q(0),
+      ],
+   q(nanai) => [
+      q(2544),
+      q(0),
+      ],
+   q(nancere) => [
+      q(4990),
+      q(0),
+      ],
+   q(nande) => [
+      q(4989),
+      q(0),
+      ],
+   q(nandi) => [
+      q(4896),
+      q(0),
+      ],
+   q(nanerige senoufo) => [
+      q(5974),
+      q(0),
+      ],
+   q(nanga dama dogon) => [
+      q(5184),
+      q(0),
+      ],
+   q(nankina) => [
+      q(4998),
+      q(0),
+      ],
+   q(nanti) => [
+      q(1828),
+      q(0),
+      ],
+   q(nanticoke) => [
+      q(5006),
+      q(0),
+      ],
+   q(nanubae) => [
+      q(0644),
+      q(0),
+      ],
+   q(napo lowland quechua) => [
+      q(5709),
+      q(0),
+      ],
+   q(napu) => [
+      q(5042),
+      q(0),
+      ],
+   q(nar phu) => [
+      q(5032),
+      q(0),
+      ],
+   q(nara) => [
+      q(5050),
+      q(0),
+      ],
+   q(narak) => [
+      q(4721),
+      q(0),
+      ],
+   q(narango) => [
+      q(5054),
+      q(0),
+      ],
+   q(narau) => [
+      q(5154),
+      q(0),
+      ],
+   q(nari nari) => [
+      q(5835),
+      q(0),
+      ],
+   q(narim) => [
+      q(4020),
+      q(0),
+      ],
+   q(naro) => [
+      q(4875),
+      q(0),
+      ],
+   q(narom) => [
+      q(5058),
+      q(0),
+      ],
+   q(narragansett) => [
+      q(7442),
+      q(0),
+      ],
+   q(narrinyeri) => [
+      q(4738),
+      q(0),
+      ],
+   q(narua) => [
+      q(5063),
+      q(0),
+      ],
+   q(narungga) => [
+      q(5004),
+      q(0),
+      ],
+   q(nasal) => [
+      q(5087),
+      q(0),
+      ],
+   q(nasarian) => [
+      q(5129),
+      q(0),
+      ],
+   q(naskapi) => [
+      q(5074),
+      q(0),
+      ],
+   q(natagaimas) => [
+      q(5098),
+      q(0),
+      ],
+   q(natanzi) => [
+      q(5103),
+      q(0),
+      ],
+   q(nataoran amis) => [
+      q(0708),
+      q(0),
+      ],
+   q(natchez) => [
+      q(4783),
+      q(0),
+      ],
+   q(nateni) => [
+      q(5094),
+      q(0),
+      ],
+   q(nathembo) => [
+      q(5089),
+      q(0),
+      ],
+   q(natioro) => [
+      q(5091),
+      q(0),
+      ],
+   q(natugu) => [
+      q(5099),
+      q(0),
+      ],
+   q(nauete) => [
+      q(5142),
+      q(0),
+      ],
+   q(naukan yupik) => [
+      q(7710),
+      q(0),
+      ],
+   q(nauna) => [
+      q(4775),
+      q(0),
+      ],
+   q(nauo) => [
+      q(5138),
+      q(0),
+      ],
+   q(nauru) => [
+      q(0301),
+      q(0),
+      ],
+   q(navaho) => [
+      q(0302),
+      q(1),
+      ],
+   q(navajo) => [
+      q(0302),
+      q(0),
+      ],
+   q(navut) => [
+      q(5085),
+      q(0),
+      ],
+   q(nawaru) => [
+      q(5139),
+      q(0),
+      ],
+   q(nawathinehena) => [
+      q(5132),
+      q(0),
+      ],
+   q(nawdm) => [
+      q(4987),
+      q(0),
+      ],
+   q(nawuri) => [
+      q(4736),
+      q(0),
+      ],
+   q(naxi) => [
+      q(5152),
+      q(0),
+      ],
+   q(nayi) => [
+      q(5031),
+      q(0),
+      ],
+   q(nayini) => [
+      q(5168),
+      q(0),
+      ],
+   q(ncane) => [
+      q(4778),
+      q(0),
+      ],
+   q(nchumbulu) => [
+      q(4956),
+      q(0),
+      ],
+   q(nda'nda') => [
+      q(5011),
+      q(0),
+      ],
+   q(ndai) => [
+      q(2538),
+      q(0),
+      ],
+   q(ndaka) => [
+      q(4793),
+      q(0),
+      ],
+   q(ndaktup) => [
+      q(4777),
+      q(0),
+      ],
+   q(ndali) => [
+      q(4790),
+      q(0),
+      ],
+   q(ndam) => [
+      q(4795),
+      q(0),
+      ],
+   q(ndamba) => [
+      q(4792),
+      q(0),
+      ],
+   q(ndambomo) => [
+      q(5151),
+      q(0),
+      ],
+   q(ndasa) => [
+      q(4784),
+      q(0),
+      ],
+   q(ndau) => [
+      q(4786),
+      q(0),
+      ],
+   q(nde-gbite) => [
+      q(4810),
+      q(0),
+      ],
+   q(nde-nsele-nta) => [
+      q(4787),
+      q(0),
+      ],
+   q(ndebele, north) => [
+      q(0304),
+      q(0),
+      ],
+   q(ndebele, south) => [
+      q(0303),
+      q(0),
+      ],
+   q(ndemli) => [
+      q(4973),
+      q(0),
+      ],
+   q(ndendeule) => [
+      q(2101),
+      q(0),
+      ],
+   q(ndengereko) => [
+      q(4789),
+      q(0),
+      ],
+   q(nding) => [
+      q(2245),
+      q(0),
+      ],
+   q(ndo) => [
+      q(4797),
+      q(0),
+      ],
+   q(ndobo) => [
+      q(4803),
+      q(0),
+      ],
+   q(ndoe) => [
+      q(4741),
+      q(0),
+      ],
+   q(ndogo) => [
+      q(4806),
+      q(0),
+      ],
+   q(ndolo) => [
+      q(4794),
+      q(0),
+      ],
+   q(ndom) => [
+      q(5045),
+      q(0),
+      ],
+   q(ndombe) => [
+      q(4798),
+      q(0),
+      ],
+   q(ndonde hamba) => [
+      q(4907),
+      q(0),
+      ],
+   q(ndonga) => [
+      q(0305),
+      q(0),
+      ],
+   q(ndoola) => [
+      q(4799),
+      q(0),
+      ],
+   q(ndra'ngith) => [
+      q(2017),
+      q(0),
+      ],
+   q(nduga) => [
+      q(4804),
+      q(0),
+      ],
+   q(ndumu) => [
+      q(4965),
+      q(0),
+      ],
+   q(ndunda) => [
+      q(5110),
+      q(0),
+      ],
+   q(ndunga) => [
+      q(4800),
+      q(0),
+      ],
+   q(ndut) => [
+      q(4802),
+      q(0),
+      ],
+   q(ndyuka-trio pidgin) => [
+      q(4917),
+      q(0),
+      ],
+   q(ndzwani comorian) => [
+      q(7187),
+      q(0),
+      ],
+   q(neapolitan) => [
+      q(0300),
+      q(0),
+      ],
+   q(nedebang) => [
+      q(4809),
+      q(0),
+      ],
+   q(nefamese) => [
+      q(4812),
+      q(0),
+      ],
+   q(negerhollands) => [
+      q(1977),
+      q(0),
+      ],
+   q(negeri sembilan malay) => [
+      q(7884),
+      q(0),
+      ],
+   q(negidal) => [
+      q(4813),
+      q(0),
+      ],
+   q(nehan) => [
+      q(5077),
+      q(0),
+      ],
+   q(nek) => [
+      q(4886),
+      q(0),
+      ],
+   q(nekgini) => [
+      q(4928),
+      q(0),
+      ],
+   q(neko) => [
+      q(4816),
+      q(0),
+      ],
+   q(neku) => [
+      q(4817),
+      q(0),
+      ],
+   q(nelemwa-nixumwak) => [
+      q(4811),
+      q(0),
+      ],
+   q(neme) => [
+      q(4827),
+      q(0),
+      ],
+   q(nemi) => [
+      q(4818),
+      q(0),
+      ],
+   q(nen) => [
+      q(5046),
+      q(0),
+      ],
+   q(nend) => [
+      q(0796),
+      q(0),
+      ],
+   q(nenets) => [
+      q(7740),
+      q(0),
+      ],
+   q(nenge) => [
+      q(2066),
+      q(2),
+      ],
+   q(nengone) => [
+      q(4819),
+      q(0),
+      ],
+   q(neo) => [
+      q(4825),
+      q(0),
+      ],
+   q(neo-hittite) => [
+      q(4815),
+      q(0),
+      ],
+   q(nepal bhasa) => [
+      q(0308),
+      q(0),
+      ],
+   q(nepalese sign language) => [
+      q(5078),
+      q(0),
+      ],
+   q(nepali) => [
+      q(0307),
+      q(0),
+      ],
+   q(nepali (individual language)) => [
+      q(5036),
+      q(0),
+      ],
+   q(nepali (macrolanguage)) => [
+      q(0307),
+      q(1),
+      ],
+   q(nepali kurux) => [
+      q(3727),
+      q(0),
+      ],
+   q(nete) => [
+      q(4824),
+      q(0),
+      ],
+   q(neve'ei) => [
+      q(7042),
+      q(1),
+      ],
+   q(neverver) => [
+      q(3891),
+      q(1),
+      ],
+   q(new caledonian javanese) => [
+      q(3054),
+      q(0),
+      ],
+   q(new zealand sign language) => [
+      q(5181),
+      q(0),
+      ],
+   q(newari) => [
+      q(0308),
+      q(1),
+      ],
+   q(neyo) => [
+      q(4828),
+      q(0),
+      ],
+   q(nez perce) => [
+      q(4829),
+      q(0),
+      ],
+   q(ngaanyatjarra) => [
+      q(5092),
+      q(0),
+      ],
+   q(ngabere) => [
+      q(2703),
+      q(0),
+      ],
+   q(ngad'a) => [
+      q(5145),
+      q(0),
+      ],
+   q(ngadjunmaya) => [
+      q(4918),
+      q(0),
+      ],
+   q(ngadjuri) => [
+      q(3152),
+      q(0),
+      ],
+   q(ngaing) => [
+      q(4993),
+      q(0),
+      ],
+   q(ngaju) => [
+      q(4890),
+      q(0),
+      ],
+   q(ngala) => [
+      q(5106),
+      q(0),
+      ],
+   q(ngalakan) => [
+      q(4887),
+      q(0),
+      ],
+   q(ngalum) => [
+      q(6348),
+      q(0),
+      ],
+   q(ngam) => [
+      q(4964),
+      q(0),
+      ],
+   q(ngamambo) => [
+      q(4759),
+      q(0),
+      ],
+   q(ngambay) => [
+      q(5902),
+      q(0),
+      ],
+   q(ngamini) => [
+      q(4983),
+      q(0),
+      ],
+   q(ngamo) => [
+      q(4746),
+      q(0),
+      ],
+   q(ngan'gityemerri) => [
+      q(4729),
+      q(0),
+      ],
+   q(nganakarti) => [
+      q(7437),
+      q(0),
+      ],
+   q(nganasan) => [
+      q(4895),
+      q(0),
+      ],
+   q(ngandi) => [
+      q(4884),
+      q(0),
+      ],
+   q(ngando (central african republic)) => [
+      q(4838),
+      q(0),
+      ],
+   q(ngando (democratic republic of congo)) => [
+      q(5143),
+      q(0),
+      ],
+   q(ngandyera) => [
+      q(4992),
+      q(0),
+      ],
+   q(ngangam) => [
+      q(2572),
+      q(0),
+      ],
+   q(ngantangarra) => [
+      q(5090),
+      q(0),
+      ],
+   q(nganyaywana) => [
+      q(5175),
+      q(0),
+      ],
+   q(ngardi) => [
+      q(5881),
+      q(0),
+      ],
+   q(ngarigu) => [
+      q(7436),
+      q(0),
+      ],
+   q(ngarinman) => [
+      q(4748),
+      q(0),
+      ],
+   q(ngarinyin) => [
+      q(6916),
+      q(0),
+      ],
+   q(ngarla) => [
+      q(5056),
+      q(0),
+      ],
+   q(ngarluma) => [
+      q(5057),
+      q(0),
+      ],
+   q(ngas) => [
+      q(0792),
+      q(0),
+      ],
+   q(ngasa) => [
+      q(5071),
+      q(0),
+      ],
+   q(ngatik men's creole) => [
+      q(4846),
+      q(0),
+      ],
+   q(ngawn chin) => [
+      q(1807),
+      q(0),
+      ],
+   q(ngawun) => [
+      q(5150),
+      q(0),
+      ],
+   q(ngayawung) => [
+      q(5135),
+      q(0),
+      ],
+   q(ngazidja comorian) => [
+      q(7835),
+      q(0),
+      ],
+   q(ngbaka) => [
+      q(4835),
+      q(0),
+      ],
+   q(ngbaka ma'bo) => [
+      q(4750),
+      q(0),
+      ],
+   q(ngbaka manza) => [
+      q(4840),
+      q(0),
+      ],
+   q(ngbee) => [
+      q(3085),
+      q(0),
+      ],
+   q(ngbinda) => [
+      q(4743),
+      q(0),
+      ],
+   q(ngbundu) => [
+      q(5123),
+      q(0),
+      ],
+   q(ngelima) => [
+      q(0659),
+      q(0),
+      ],
+   q(ngemba) => [
+      q(4839),
+      q(0),
+      ],
+   q(ngeq) => [
+      q(4853),
+      q(0),
+      ],
+   q(ngete) => [
+      q(5001),
+      q(0),
+      ],
+   q(nggem) => [
+      q(4754),
+      q(0),
+      ],
+   q(nggwahyi) => [
+      q(4857),
+      q(0),
+      ],
+   q(ngie) => [
+      q(4843),
+      q(0),
+      ],
+   q(ngiemboon) => [
+      q(4995),
+      q(0),
+      ],
+   q(ngile) => [
+      q(3114),
+      q(0),
+      ],
+   q(ngindo) => [
+      q(5003),
+      q(0),
+      ],
+   q(ngiti) => [
+      q(4903),
+      q(0),
+      ],
+   q(ngizim) => [
+      q(4842),
+      q(0),
+      ],
+   q(ngkalmpw kanum) => [
+      q(3212),
+      q(0),
+      ],
+   q(ngom) => [
+      q(5049),
+      q(0),
+      ],
+   q(ngomba) => [
+      q(3088),
+      q(0),
+      ],
+   q(ngombale) => [
+      q(4946),
+      q(0),
+      ],
+   q(ngombe (central african republic)) => [
+      q(4971),
+      q(0),
+      ],
+   q(ngombe (democratic republic of congo)) => [
+      q(4837),
+      q(0),
+      ],
+   q(ngongo) => [
+      q(5024),
+      q(0),
+      ],
+   q(ngoni) => [
+      q(4848),
+      q(0),
+      ],
+   q(ngoreme) => [
+      q(4850),
+      q(1),
+      ],
+   q(ngoshie) => [
+      q(5072),
+      q(0),
+      ],
+   q(ngul) => [
+      q(4954),
+      q(0),
+      ],
+   q(ngulu) => [
+      q(4849),
+      q(0),
+      ],
+   q(nguluwan) => [
+      q(5125),
+      q(0),
+      ],
+   q(ngumbi) => [
+      q(5111),
+      q(0),
+      ],
+   q(ngunawal) => [
+      q(7535),
+      q(0),
+      ],
+   q(ngundi) => [
+      q(4796),
+      q(0),
+      ],
+   q(ngundu) => [
+      q(5107),
+      q(0),
+      ],
+   q(ngungwel) => [
+      q(4859),
+      q(0),
+      ],
+   q(nguon) => [
+      q(5117),
+      q(0),
+      ],
+   q(ngurimi) => [
+      q(4850),
+      q(0),
+      ],
+   q(ngurmbur) => [
+      q(5064),
+      q(0),
+      ],
+   q(ngwaba) => [
+      q(4856),
+      q(0),
+      ],
+   q(ngwe) => [
+      q(5134),
+      q(0),
+      ],
+   q(ngwo) => [
+      q(4847),
+      q(0),
+      ],
+   q(nhanda) => [
+      q(4860),
+      q(0),
+      ],
+   q(nhengatu) => [
+      q(7741),
+      q(0),
+      ],
+   q(nhirrpi) => [
+      q(2837),
+      q(0),
+      ],
+   q(nhuwala) => [
+      q(4865),
+      q(0),
+      ],
+   q(nias) => [
+      q(0309),
+      q(0),
+      ],
+   q(nicaragua creole english) => [
+      q(1623),
+      q(0),
+      ],
+   q(nicaraguan sign language) => [
+      q(4779),
+      q(0),
+      ],
+   q(nicarao) => [
+      q(5576),
+      q(1),
+      ],
+   q(niellim) => [
+      q(4885),
+      q(0),
+      ],
+   q(niger-kordofanian languages) => [
+      q(0310),
+      q(0),
+      ],
+   q(nigeria mambila) => [
+      q(4703),
+      q(0),
+      ],
+   q(nigerian fulfulde) => [
+      q(2393),
+      q(0),
+      ],
+   q(nigerian pidgin) => [
+      q(5393),
+      q(0),
+      ],
+   q(nigerian sign language) => [
+      q(5073),
+      q(0),
+      ],
+   q(nihali) => [
+      q(4953),
+      q(0),
+      ],
+   q(nii) => [
+      q(4889),
+      q(0),
+      ],
+   q(nijadali) => [
+      q(4722),
+      q(0),
+      ],
+   q(niksek) => [
+      q(2423),
+      q(0),
+      ],
+   q(nila) => [
+      q(4892),
+      q(0),
+      ],
+   q(nilamba) => [
+      q(4893),
+      q(0),
+      ],
+   q(nilo-saharan languages) => [
+      q(0406),
+      q(0),
+      ],
+   q(nimadi) => [
+      q(5015),
+      q(0),
+      ],
+   q(nimanbur) => [
+      q(4977),
+      q(0),
+      ],
+   q(nimbari) => [
+      q(4979),
+      q(0),
+      ],
+   q(nimboran) => [
+      q(4897),
+      q(0),
+      ],
+   q(nimi) => [
+      q(4898),
+      q(0),
+      ],
+   q(nimo) => [
+      q(4901),
+      q(0),
+      ],
+   q(nimoa) => [
+      q(4984),
+      q(0),
+      ],
+   q(ninam) => [
+      q(6011),
+      q(0),
+      ],
+   q(ninde) => [
+      q(4632),
+      q(1),
+      ],
+   q(nindi) => [
+      q(5146),
+      q(0),
+      ],
+   q(ningera) => [
+      q(4761),
+      q(0),
+      ],
+   q(ninggerum) => [
+      q(5153),
+      q(0),
+      ],
+   q(ningil) => [
+      q(4904),
+      q(0),
+      ],
+   q(ningye) => [
+      q(5005),
+      q(0),
+      ],
+   q(ninia yali) => [
+      q(4952),
+      q(0),
+      ],
+   q(ninzo) => [
+      q(4894),
+      q(0),
+      ],
+   q(nipsan) => [
+      q(5040),
+      q(0),
+      ],
+   q(nisa) => [
+      q(4916),
+      q(0),
+      ],
+   q(nisenan) => [
+      q(5088),
+      q(0),
+      ],
+   q(nisga'a) => [
+      q(4768),
+      q(0),
+      ],
+   q(nisi (china)) => [
+      q(7752),
+      q(0),
+      ],
+   q(niuafo'ou) => [
+      q(5115),
+      q(0),
+      ],
+   q(niuatoputapu) => [
+      q(4936),
+      q(0),
+      ],
+   q(niuean) => [
+      q(0311),
+      q(0),
+      ],
+   q(nivacle) => [
+      q(1644),
+      q(0),
+      ],
+   q(niwer mil) => [
+      q(2832),
+      q(0),
+      ],
+   q(njalgulgule) => [
+      q(4911),
+      q(0),
+      ],
+   q(njebi) => [
+      q(5178),
+      q(0),
+      ],
+   q(njen) => [
+      q(4910),
+      q(0),
+      ],
+   q(njerep) => [
+      q(4915),
+      q(0),
+      ],
+   q(njyem) => [
+      q(4920),
+      q(0),
+      ],
+   q(nkami) => [
+      q(4937),
+      q(0),
+      ],
+   q(nkangala) => [
+      q(4934),
+      q(0),
+      ],
+   q(nkari) => [
+      q(4945),
+      q(0),
+      ],
+   q(nkem-nkum) => [
+      q(3002),
+      q(0),
+      ],
+   q(nkhumbi) => [
+      q(3349),
+      q(0),
+      ],
+   q(nkongho) => [
+      q(4924),
+      q(0),
+      ],
+   q(nkonya) => [
+      q(4935),
+      q(0),
+      ],
+   q(nkoroo) => [
+      q(4944),
+      q(0),
+      ],
+   q(nkoya) => [
+      q(4922),
+      q(0),
+      ],
+   q(nkukoli) => [
+      q(4752),
+      q(0),
+      ],
+   q(nkutu) => [
+      q(4943),
+      q(0),
+      ],
+   q(nnam) => [
+      q(4753),
+      q(0),
+      ],
+   q(no linguistic content) => [
+      q(0485),
+      q(0),
+      ],
+   q(nobiin) => [
+      q(2345),
+      q(0),
+      ],
+   q(nobonob) => [
+      q(2418),
+      q(0),
+      ],
+   q(nocaman) => [
+      q(5022),
+      q(0),
+      ],
+   q(nocte naga) => [
+      q(4906),
+      q(0),
+      ],
+   q(nogai) => [
+      q(0314),
+      q(0),
+      ],
+   q(noiri) => [
+      q(5018),
+      q(0),
+      ],
+   q(nokuku) => [
+      q(4932),
+      q(0),
+      ],
+   q(nomaande) => [
+      q(3871),
+      q(0),
+      ],
+   q(nomane) => [
+      q(5016),
+      q(0),
+      ],
+   q(nomatsiguenga) => [
+      q(5026),
+      q(0),
+      ],
+   q(nomlaki) => [
+      q(5021),
+      q(0),
+      ],
+   q(nomu) => [
+      q(5017),
+      q(0),
+      ],
+   q(nong zhuang) => [
+      q(7847),
+      q(0),
+      ],
+   q(nonuya) => [
+      q(5019),
+      q(0),
+      ],
+   q(nooksack) => [
+      q(5020),
+      q(0),
+      ],
+   q(noon) => [
+      q(6138),
+      q(0),
+      ],
+   q(noone) => [
+      q(4877),
+      q(0),
+      ],
+   q(nopala chatino) => [
+      q(1930),
+      q(0),
+      ],
+   q(nora) => [
+      q(5061),
+      q(1),
+      ],
+   q(noric) => [
+      q(5051),
+      q(0),
+      ],
+   q(norn) => [
+      q(5059),
+      q(0),
+      ],
+   q(norra) => [
+      q(5061),
+      q(0),
+      ],
+   q(norse, old) => [
+      q(0315),
+      q(0),
+      ],
+   q(north alaskan inupiatun) => [
+      q(2293),
+      q(0),
+      ],
+   q(north ambrym) => [
+      q(4396),
+      q(0),
+      ],
+   q(north american indian languages) => [
+      q(0299),
+      q(0),
+      ],
+   q(north asmat) => [
+      q(4939),
+      q(0),
+      ],
+   q(north awyu) => [
+      q(7657),
+      q(0),
+      ],
+   q(north azerbaijani) => [
+      q(1016),
+      q(0),
+      ],
+   q(north babar) => [
+      q(1067),
+      q(0),
+      ],
+   q(north bolivian quechua) => [
+      q(5688),
+      q(0),
+      ],
+   q(north caucasian languages) => [
+      q(0495),
+      q(0),
+      ],
+   q(north central mixe) => [
+      q(4821),
+      q(0),
+      ],
+   q(north efate) => [
+      q(3971),
+      q(0),
+      ],
+   q(north fali) => [
+      q(2356),
+      q(0),
+      ],
+   q(north germanic languages) => [
+      q(0506),
+      q(0),
+      ],
+   q(north giziga) => [
+      q(2525),
+      q(0),
+      ],
+   q(north junin quechua) => [
+      q(5708),
+      q(0),
+      ],
+   q(north levantine arabic) => [
+      q(0835),
+      q(0),
+      ],
+   q(north marquesan) => [
+      q(4521),
+      q(0),
+      ],
+   q(north mesopotamian arabic) => [
+      q(1004),
+      q(0),
+      ],
+   q(north mofu) => [
+      q(4235),
+      q(0),
+      ],
+   q(north moluccan malay) => [
+      q(4126),
+      q(0),
+      ],
+   q(north muyu) => [
+      q(3628),
+      q(0),
+      ],
+   q(north ndebele) => [
+      q(0304),
+      q(1),
+      ],
+   q(north nuaulu) => [
+      q(4996),
+      q(0),
+      ],
+   q(north picene) => [
+      q(5060),
+      q(0),
+      ],
+   q(north slavey) => [
+      q(5938),
+      q(0),
+      ],
+   q(north tairora) => [
+      q(6386),
+      q(0),
+      ],
+   q(north tanna) => [
+      q(6622),
+      q(0),
+      ],
+   q(north wahgi) => [
+      q(7124),
+      q(0),
+      ],
+   q(north watut) => [
+      q(6914),
+      q(0),
+      ],
+   q(northeast kiwai) => [
+      q(3374),
+      q(0),
+      ],
+   q(northeast maidu) => [
+      q(4982),
+      q(0),
+      ],
+   q(northeast pashai) => [
+      q(0627),
+      q(0),
+      ],
+   q(northeast pashayi) => [
+      q(0627),
+      q(1),
+      ],
+   q(northeastern dinka) => [
+      q(2048),
+      q(0),
+      ],
+   q(northeastern pomo) => [
+      q(5408),
+      q(0),
+      ],
+   q(northeastern thai) => [
+      q(6753),
+      q(0),
+      ],
+   q(northern alta) => [
+      q(0863),
+      q(0),
+      ],
+   q(northern altai) => [
+      q(0928),
+      q(0),
+      ],
+   q(northern amami-oshima) => [
+      q(5883),
+      q(0),
+      ],
+   q(northern bai) => [
+      q(1138),
+      q(1),
+      ],
+   q(northern betsimisaraka malagasy) => [
+      q(1315),
+      q(0),
+      ],
+   q(northern binukidnon) => [
+      q(3755),
+      q(0),
+      ],
+   q(northern bobo madare) => [
+      q(1052),
+      q(0),
+      ],
+   q(northern bontok) => [
+      q(5759),
+      q(0),
+      ],
+   q(northern catanduanes bikol) => [
+      q(1899),
+      q(0),
+      ],
+   q(northern conchucos ancash quechua) => [
+      q(5725),
+      q(0),
+      ],
+   q(northern dagara) => [
+      q(2011),
+      q(0),
+      ],
+   q(northern dong) => [
+      q(2115),
+      q(0),
+      ],
+   q(northern east cree) => [
+      q(1853),
+      q(0),
+      ],
+   q(northern embera) => [
+      q(2258),
+      q(0),
+      ],
+   q(northern frisian) => [
+      q(0140),
+      q(0),
+      ],
+   q(northern ghale) => [
+      q(2506),
+      q(0),
+      ],
+   q(northern gondi) => [
+      q(2579),
+      q(0),
+      ],
+   q(northern grebo) => [
+      q(2433),
+      q(0),
+      ],
+   q(northern guiyang hmong) => [
+      q(2860),
+      q(0),
+      ],
+   q(northern guiyang miao) => [
+      q(2860),
+      q(1),
+      ],
+   q(northern haida) => [
+      q(2739),
+      q(0),
+      ],
+   q(northern hindko) => [
+      q(2807),
+      q(0),
+      ],
+   q(northern huishui hmong) => [
+      q(2785),
+      q(0),
+      ],
+   q(northern huishui miao) => [
+      q(2785),
+      q(1),
+      ],
+   q(northern kalapuya) => [
+      q(5062),
+      q(0),
+      ],
+   q(northern kankanay) => [
+      q(7438),
+      q(0),
+      ],
+   q(northern khmer) => [
+      q(3728),
+      q(0),
+      ],
+   q(northern kissi) => [
+      q(3566),
+      q(0),
+      ],
+   q(northern kurdish) => [
+      q(3471),
+      q(0),
+      ],
+   q(northern luri) => [
+      q(4043),
+      q(0),
+      ],
+   q(northern mashan hmong) => [
+      q(2790),
+      q(0),
+      ],
+   q(northern mashan miao) => [
+      q(2790),
+      q(1),
+      ],
+   q(northern muji) => [
+      q(7704),
+      q(0),
+      ],
+   q(northern nago) => [
+      q(7370),
+      q(0),
+      ],
+   q(northern ngbandi) => [
+      q(4836),
+      q(0),
+      ],
+   q(northern nisu) => [
+      q(7661),
+      q(0),
+      ],
+   q(northern nuni) => [
+      q(5124),
+      q(0),
+      ],
+   q(northern oaxaca nahuatl) => [
+      q(4881),
+      q(0),
+      ],
+   q(northern ohlone) => [
+      q(1883),
+      q(0),
+      ],
+   q(northern one) => [
+      q(5277),
+      q(0),
+      ],
+   q(northern paiute) => [
+      q(5354),
+      q(0),
+      ],
+   q(northern pame) => [
+      q(5522),
+      q(0),
+      ],
+   q(northern pashto) => [
+      q(5378),
+      q(0),
+      ],
+   q(northern pastaza quichua) => [
+      q(5714),
+      q(0),
+      ],
+   q(northern pomo) => [
+      q(5412),
+      q(0),
+      ],
+   q(northern puebla nahuatl) => [
+      q(4771),
+      q(0),
+      ],
+   q(northern pumi) => [
+      q(5515),
+      q(0),
+      ],
+   q(northern qiandong miao) => [
+      q(2742),
+      q(0),
+      ],
+   q(northern qiang) => [
+      q(1798),
+      q(0),
+      ],
+   q(northern rengma naga) => [
+      q(4999),
+      q(0),
+      ],
+   q(northern roglai) => [
+      q(5842),
+      q(0),
+      ],
+   q(northern sami) => [
+      q(0388),
+      q(0),
+      ],
+   q(northern sierra miwok) => [
+      q(5079),
+      q(0),
+      ],
+   q(northern sorsoganon) => [
+      q(1271),
+      q(0),
+      ],
+   q(northern sotho) => [
+      q(0318),
+      q(2),
+      ],
+   q(northern subanen) => [
+      q(6255),
+      q(0),
+      ],
+   q(northern tarahumara) => [
+      q(6501),
+      q(0),
+      ],
+   q(northern tepehuan) => [
+      q(5096),
+      q(0),
+      ],
+   q(northern thai) => [
+      q(5014),
+      q(0),
+      ],
+   q(northern tiwa) => [
+      q(6797),
+      q(0),
+      ],
+   q(northern tlaxiaco mixtec) => [
+      q(7518),
+      q(0),
+      ],
+   q(northern toussian) => [
+      q(6724),
+      q(0),
+      ],
+   q(northern tujia) => [
+      q(6540),
+      q(0),
+      ],
+   q(northern tutchone) => [
+      q(6747),
+      q(0),
+      ],
+   q(northern uzbek) => [
+      q(6968),
+      q(0),
+      ],
+   q(northern yukaghir) => [
+      q(7665),
+      q(0),
+      ],
+   q(northwest alaska inupiatun) => [
+      q(2294),
+      q(0),
+      ],
+   q(northwest gbaya) => [
+      q(2695),
+      q(0),
+      ],
+   q(northwest maidu) => [
+      q(4322),
+      q(0),
+      ],
+   q(northwest oaxaca mixtec) => [
+      q(4647),
+      q(0),
+      ],
+   q(northwest pashai) => [
+      q(2545),
+      q(0),
+      ],
+   q(northwest pashayi) => [
+      q(2545),
+      q(1),
+      ],
+   q(northwestern dinka) => [
+      q(2054),
+      q(0),
+      ],
+   q(northwestern fars) => [
+      q(2338),
+      q(0),
+      ],
+   q(northwestern kolami) => [
+      q(3284),
+      q(0),
+      ],
+   q(northwestern kung) => [
+      q(6975),
+      q(2),
+      ],
+   q(northwestern nisu) => [
+      q(5070),
+      q(0),
+      ],
+   q(northwestern ojibwa) => [
+      q(5218),
+      q(0),
+      ],
+   q(northwestern tamang) => [
+      q(6596),
+      q(0),
+      ],
+   q(norwegian) => [
+      q(0316),
+      q(0),
+      ],
+   q(norwegian bokmal) => [
+      q(0313),
+      q(1),
+      ],
+   q(norwegian nynorsk) => [
+      q(0312),
+      q(0),
+      ],
+   q(norwegian sign language) => [
+      q(5075),
+      q(0),
+      ],
+   q(not applicable) => [
+      q(0485),
+      q(1),
+      ],
+   q(notre) => [
+      q(1301),
+      q(0),
+      ],
+   q(notsi) => [
+      q(4767),
+      q(0),
+      ],
+   q(nottoway) => [
+      q(5100),
+      q(0),
+      ],
+   q(nottoway-meherrin) => [
+      q(5141),
+      q(0),
+      ],
+   q(novial) => [
+      q(5028),
+      q(0),
+      ],
+   q(noy) => [
+      q(5030),
+      q(0),
+      ],
+   q(nsenga) => [
+      q(5069),
+      q(0),
+      ],
+   q(nshi) => [
+      q(5067),
+      q(0),
+      ],
+   q(nsongo) => [
+      q(5086),
+      q(0),
+      ],
+   q(ntcham) => [
+      q(1497),
+      q(0),
+      ],
+   q(ntomba) => [
+      q(5095),
+      q(0),
+      ],
+   q(nu) => [
+      q(4841),
+      q(1),
+      ],
+   q(nubaca) => [
+      q(1026),
+      q(0),
+      ],
+   q(nubi) => [
+      q(3222),
+      q(0),
+      ],
+   q(nubian languages) => [
+      q(0319),
+      q(0),
+      ],
+   q(nubri) => [
+      q(3624),
+      q(0),
+      ],
+   q(nuer) => [
+      q(5121),
+      q(0),
+      ],
+   q(nugunu (australia)) => [
+      q(5008),
+      q(0),
+      ],
+   q(nugunu (cameroon)) => [
+      q(7591),
+      q(0),
+      ],
+   q(nuk) => [
+      q(5013),
+      q(0),
+      ],
+   q(nukak maku) => [
+      q(4144),
+      q(0),
+      ],
+   q(nukna) => [
+      q(3448),
+      q(0),
+      ],
+   q(nukuini) => [
+      q(5105),
+      q(0),
+      ],
+   q(nukumanu) => [
+      q(5119),
+      q(0),
+      ],
+   q(nukunul) => [
+      q(7443),
+      q(0),
+      ],
+   q(nukuoro) => [
+      q(4938),
+      q(0),
+      ],
+   q(nukuria) => [
+      q(5120),
+      q(0),
+      ],
+   q(numana-nunku-gbantu-numbu) => [
+      q(4755),
+      q(0),
+      ],
+   q(numanggang) => [
+      q(5023),
+      q(0),
+      ],
+   q(numbami) => [
+      q(6041),
+      q(0),
+      ],
+   q(nume) => [
+      q(6489),
+      q(0),
+      ],
+   q(numee) => [
+      q(3244),
+      q(0),
+      ],
+   q(numidian) => [
+      q(5149),
+      q(0),
+      ],
+   q(nung (viet nam)) => [
+      q(5122),
+      q(0),
+      ],
+   q(nungali) => [
+      q(5109),
+      q(0),
+      ],
+   q(nunggubuyu) => [
+      q(5127),
+      q(0),
+      ],
+   q(nungu) => [
+      q(5791),
+      q(0),
+      ],
+   q(nuosu) => [
+      q(0189),
+      q(1),
+      ],
+   q(nupbikha) => [
+      q(5033),
+      q(0),
+      ],
+   q(nupe-nupe-tako) => [
+      q(5118),
+      q(0),
+      ],
+   q(nupode huitoto) => [
+      q(2872),
+      q(0),
+      ],
+   q(nusa laut) => [
+      q(5114),
+      q(0),
+      ],
+   q(nusu) => [
+      q(5108),
+      q(0),
+      ],
+   q(nuu-chah-nulth) => [
+      q(5113),
+      q(0),
+      ],
+   q(nuuchahnulth) => [
+      q(5113),
+      q(1),
+      ],
+   q(nyabwa) => [
+      q(5133),
+      q(0),
+      ],
+   q(nyaheun) => [
+      q(4826),
+      q(0),
+      ],
+   q(nyahkur) => [
+      q(1670),
+      q(0),
+      ],
+   q(nyakyusa-ngonde) => [
+      q(5176),
+      q(0),
+      ],
+   q(nyalayu) => [
+      q(7687),
+      q(0),
+      ],
+   q(nyali) => [
+      q(4951),
+      q(0),
+      ],
+   q(nyam) => [
+      q(4970),
+      q(0),
+      ],
+   q(nyamal) => [
+      q(4960),
+      q(0),
+      ],
+   q(nyambo) => [
+      q(5029),
+      q(0),
+      ],
+   q(nyamusa-molo) => [
+      q(5137),
+      q(0),
+      ],
+   q(nyamwanga) => [
+      q(4635),
+      q(0),
+      ],
+   q(nyamwezi) => [
+      q(0322),
+      q(0),
+      ],
+   q(nyaneka) => [
+      q(5165),
+      q(0),
+      ],
+   q(nyang'i) => [
+      q(5167),
+      q(0),
+      ],
+   q(nyanga) => [
+      q(5164),
+      q(0),
+      ],
+   q(nyanga-li) => [
+      q(5157),
+      q(0),
+      ],
+   q(nyangatom) => [
+      q(4997),
+      q(0),
+      ],
+   q(nyangbo) => [
+      q(5156),
+      q(0),
+      ],
+   q(nyangga) => [
+      q(5010),
+      q(0),
+      ],
+   q(nyangumarta) => [
+      q(4988),
+      q(0),
+      ],
+   q(nyanja) => [
+      q(0321),
+      q(2),
+      ],
+   q(nyankole) => [
+      q(0323),
+      q(0),
+      ],
+   q(nyankpa) => [
+      q(7628),
+      q(0),
+      ],
+   q(nyarafolo senoufo) => [
+      q(5982),
+      q(0),
+      ],
+   q(nyaturu) => [
+      q(5790),
+      q(0),
+      ],
+   q(nyaw) => [
+      q(5174),
+      q(0),
+      ],
+   q(nyawaygi) => [
+      q(5171),
+      q(0),
+      ],
+   q(nyelayu) => [
+      q(7687),
+      q(1),
+      ],
+   q(nyemba) => [
+      q(4740),
+      q(0),
+      ],
+   q(nyengo) => [
+      q(5159),
+      q(0),
+      ],
+   q(nyenkha) => [
+      q(4814),
+      q(0),
+      ],
+   q(nyeu) => [
+      q(5166),
+      q(0),
+      ],
+   q(nyigina) => [
+      q(5162),
+      q(0),
+      ],
+   q(nyiha (malawi)) => [
+      q(5169),
+      q(0),
+      ],
+   q(nyiha (tanzania)) => [
+      q(4888),
+      q(0),
+      ],
+   q(nyika (malawi and zambia)) => [
+      q(4942),
+      q(0),
+      ],
+   q(nyika (tanzania)) => [
+      q(4940),
+      q(0),
+      ],
+   q(nyindrou) => [
+      q(3913),
+      q(0),
+      ],
+   q(nyindu) => [
+      q(5161),
+      q(0),
+      ],
+   q(nyishi) => [
+      q(4921),
+      q(0),
+      ],
+   q(nyiyaparli) => [
+      q(7444),
+      q(0),
+      ],
+   q(nynorsk, norwegian) => [
+      q(0312),
+      q(1),
+      ],
+   q(nyokon) => [
+      q(5131),
+      q(0),
+      ],
+   q(nyole) => [
+      q(5112),
+      q(0),
+      ],
+   q(nyong) => [
+      q(4591),
+      q(0),
+      ],
+   q(nyore) => [
+      q(5158),
+      q(0),
+      ],
+   q(nyoro) => [
+      q(0324),
+      q(0),
+      ],
+   q(nyulnyul) => [
+      q(5173),
+      q(0),
+      ],
+   q(nyunga) => [
+      q(5170),
+      q(0),
+      ],
+   q(nyungwe) => [
+      q(5172),
+      q(0),
+      ],
+   q(nzakambay) => [
+      q(5183),
+      q(0),
+      ],
+   q(nzakara) => [
+      q(5179),
+      q(0),
+      ],
+   q(nzanyi) => [
+      q(4905),
+      q(0),
+      ],
+   q(nzima) => [
+      q(0325),
+      q(0),
+      ],
+   q(o'chi'chi') => [
+      q(7446),
+      q(0),
+      ],
+   q(o'du) => [
+      q(6832),
+      q(0),
+      ],
+   q(obanliku) => [
+      q(1637),
+      q(0),
+      ],
+   q(obispeno) => [
+      q(5189),
+      q(0),
+      ],
+   q(oblo) => [
+      q(5191),
+      q(0),
+      ],
+   q(obo manobo) => [
+      q(5193),
+      q(0),
+      ],
+   q(obokuitai) => [
+      q(0651),
+      q(0),
+      ],
+   q(obolo) => [
+      q(0802),
+      q(0),
+      ],
+   q(obulom) => [
+      q(5196),
+      q(0),
+      ],
+   q(ocaina) => [
+      q(5197),
+      q(0),
+      ],
+   q(occidental) => [
+      q(0192),
+      q(1),
+      ],
+   q(occitan (post 1500)) => [
+      q(0326),
+      q(0),
+      ],
+   q(ocotepec mixtec) => [
+      q(4302),
+      q(0),
+      ],
+   q(ocotlan zapotec) => [
+      q(7807),
+      q(0),
+      ],
+   q(od) => [
+      q(5202),
+      q(0),
+      ],
+   q(odiai) => [
+      q(1191),
+      q(0),
+      ],
+   q(odoodee) => [
+      q(3405),
+      q(0),
+      ],
+   q(odual) => [
+      q(5204),
+      q(0),
+      ],
+   q(odut) => [
+      q(5201),
+      q(0),
+      ],
+   q(ofaye) => [
+      q(5293),
+      q(0),
+      ],
+   q(official aramaic (700-300 bce)) => [
+      q(0022),
+      q(0),
+      ],
+   q(ofo) => [
+      q(5205),
+      q(0),
+      ],
+   q(ogbah) => [
+      q(5209),
+      q(0),
+      ],
+   q(ogbia) => [
+      q(5208),
+      q(0),
+      ],
+   q(ogbogolo) => [
+      q(5211),
+      q(0),
+      ],
+   q(ogbronuagum) => [
+      q(5213),
+      q(0),
+      ],
+   q(ogea) => [
+      q(2284),
+      q(0),
+      ],
+   q(oirat) => [
+      q(0470),
+      q(1),
+      ],
+   q(oirata) => [
+      q(5216),
+      q(0),
+      ],
+   q(ojibwa) => [
+      q(0327),
+      q(0),
+      ],
+   q(ojitlan chinantec) => [
+      q(1723),
+      q(0),
+      ],
+   q(okanagan) => [
+      q(5225),
+      q(0),
+      ],
+   q(oki-no-erabu) => [
+      q(5236),
+      q(0),
+      ],
+   q(okiek) => [
+      q(5231),
+      q(0),
+      ],
+   q(oko-eni-osayen) => [
+      q(5239),
+      q(0),
+      ],
+   q(oko-juwoi) => [
+      q(5232),
+      q(0),
+      ],
+   q(okobo) => [
+      q(5226),
+      q(0),
+      ],
+   q(okodia) => [
+      q(5227),
+      q(0),
+      ],
+   q(okolod) => [
+      q(3569),
+      q(0),
+      ],
+   q(okpamheri) => [
+      q(5288),
+      q(0),
+      ],
+   q(okpe (northwestern edo)) => [
+      q(5242),
+      q(0),
+      ],
+   q(okpe (southwestern edo)) => [
+      q(5228),
+      q(0),
+      ],
+   q(oksapmin) => [
+      q(5290),
+      q(0),
+      ],
+   q(oku) => [
+      q(5240),
+      q(0),
+      ],
+   q(old aramaic (up to 700 bce)) => [
+      q(5187),
+      q(0),
+      ],
+   q(old avar) => [
+      q(5188),
+      q(0),
+      ],
+   q(old breton) => [
+      q(5195),
+      q(0),
+      ],
+   q(old bulgarian) => [
+      q(0086),
+      q(3),
+      ],
+   q(old burmese) => [
+      q(5194),
+      q(0),
+      ],
+   q(old chinese) => [
+      q(5198),
+      q(0),
+      ],
+   q(old church slavonic) => [
+      q(0086),
+      q(4),
+      ],
+   q(old cornish) => [
+      q(5199),
+      q(0),
+      ],
+   q(old dutch) => [
+      q(5203),
+      q(0),
+      ],
+   q(old english (ca. 450-1100)) => [
+      q(0018),
+      q(1),
+      ],
+   q(old french (842-ca. 1400)) => [
+      q(0139),
+      q(1),
+      ],
+   q(old frisian) => [
+      q(5206),
+      q(0),
+      ],
+   q(old georgian) => [
+      q(5210),
+      q(0),
+      ],
+   q(old high german (ca. 750-1050)) => [
+      q(0158),
+      q(1),
+      ],
+   q(old hittite) => [
+      q(5214),
+      q(0),
+      ],
+   q(old hungarian) => [
+      q(5215),
+      q(0),
+      ],
+   q(old irish (to 900)) => [
+      q(0377),
+      q(1),
+      ],
+   q(old japanese) => [
+      q(5221),
+      q(0),
+      ],
+   q(old kentish sign language) => [
+      q(5234),
+      q(0),
+      ],
+   q(old korean (3rd-9th cent.)) => [
+      q(5237),
+      q(0),
+      ],
+   q(old lithuanian) => [
+      q(5250),
+      q(0),
+      ],
+   q(old manipuri) => [
+      q(5261),
+      q(0),
+      ],
+   q(old marathi) => [
+      q(5262),
+      q(0),
+      ],
+   q(old mon) => [
+      q(5266),
+      q(0),
+      ],
+   q(old newari) => [
+      q(0320),
+      q(1),
+      ],
+   q(old norse) => [
+      q(0315),
+      q(1),
+      ],
+   q(old nubian) => [
+      q(5281),
+      q(0),
+      ],
+   q(old occitan (to 1500)) => [
+      q(0350),
+      q(2),
+      ],
+   q(old ossetic) => [
+      q(5287),
+      q(0),
+      ],
+   q(old persian (ca. 600-400 b.c.)) => [
+      q(0341),
+      q(1),
+      ],
+   q(old provencal (to 1500)) => [
+      q(0350),
+      q(1),
+      ],
+   q(old russian) => [
+      q(5305),
+      q(0),
+      ],
+   q(old saxon) => [
+      q(5316),
+      q(0),
+      ],
+   q(old slavonic) => [
+      q(0086),
+      q(1),
+      ],
+   q(old spanish) => [
+      q(5313),
+      q(0),
+      ],
+   q(old tamil) => [
+      q(5332),
+      q(0),
+      ],
+   q(old tibetan) => [
+      q(5317),
+      q(0),
+      ],
+   q(old turkish) => [
+      q(5321),
+      q(0),
+      ],
+   q(old uighur) => [
+      q(5337),
+      q(0),
+      ],
+   q(old welsh) => [
+      q(5340),
+      q(0),
+      ],
+   q(olekha) => [
+      q(5245),
+      q(0),
+      ],
+   q(olkol) => [
+      q(5246),
+      q(0),
+      ],
+   q(olo) => [
+      q(5270),
+      q(0),
+      ],
+   q(oloma) => [
+      q(5247),
+      q(0),
+      ],
+   q(olrat) => [
+      q(5249),
+      q(0),
+      ],
+   q(olu'bo) => [
+      q(4083),
+      q(0),
+      ],
+   q(olukhayo) => [
+      q(3950),
+      q(1),
+      ],
+   q(olulumo-ikom) => [
+      q(2943),
+      q(0),
+      ],
+   q(oluluyia) => [
+      q(4092),
+      q(1),
+      ],
+   q(olumarachi) => [
+      q(4046),
+      q(1),
+      ],
+   q(olumarama) => [
+      q(4049),
+      q(1),
+      ],
+   q(olunyole) => [
+      q(5158),
+      q(1),
+      ],
+   q(olusamia) => [
+      q(4063),
+      q(1),
+      ],
+   q(olushisa) => [
+      q(3952),
+      q(1),
+      ],
+   q(oluta popoluca) => [
+      q(5497),
+      q(0),
+      ],
+   q(olutsotso) => [
+      q(4074),
+      q(1),
+      ],
+   q(oluwanga) => [
+      q(4100),
+      q(1),
+      ],
+   q(omagua) => [
+      q(5255),
+      q(0),
+      ],
+   q(omaha-ponca) => [
+      q(5251),
+      q(0),
+      ],
+   q(omani arabic) => [
+      q(0601),
+      q(0),
+      ],
+   q(ombamba) => [
+      q(4139),
+      q(0),
+      ],
+   q(ombo) => [
+      q(5258),
+      q(0),
+      ],
+   q(omejes) => [
+      q(5254),
+      q(0),
+      ],
+   q(ometepec nahuatl) => [
+      q(4876),
+      q(0),
+      ],
+   q(omi) => [
+      q(5256),
+      q(0),
+      ],
+   q(omie) => [
+      q(0826),
+      q(0),
+      ],
+   q(omok) => [
+      q(5257),
+      q(0),
+      ],
+   q(omotic languages) => [
+      q(0518),
+      q(0),
+      ],
+   q(omotik) => [
+      q(5263),
+      q(0),
+      ],
+   q(omurano) => [
+      q(5264),
+      q(0),
+      ],
+   q(ona) => [
+      q(5267),
+      q(0),
+      ],
+   q(oneida) => [
+      q(5269),
+      q(0),
+      ],
+   q(ong) => [
+      q(5284),
+      q(0),
+      ],
+   q(onge) => [
+      q(5285),
+      q(0),
+      ],
+   q(onin) => [
+      q(5271),
+      q(0),
+      ],
+   q(onin based pidgin) => [
+      q(5282),
+      q(0),
+      ],
+   q(oniyan) => [
+      q(1449),
+      q(1),
+      ],
+   q(onjob) => [
+      q(5272),
+      q(0),
+      ],
+   q(ono) => [
+      q(5278),
+      q(0),
+      ],
+   q(onobasulu) => [
+      q(5274),
+      q(0),
+      ],
+   q(onondaga) => [
+      q(5275),
+      q(0),
+      ],
+   q(ontenu) => [
+      q(5279),
+      q(0),
+      ],
+   q(ontong java) => [
+      q(5223),
+      q(0),
+      ],
+   q(oorlams) => [
+      q(5286),
+      q(0),
+      ],
+   q(opao) => [
+      q(5291),
+      q(0),
+      ],
+   q(opata) => [
+      q(5292),
+      q(0),
+      ],
+   q(opuuo) => [
+      q(3894),
+      q(0),
+      ],
+   q(orang kanaq) => [
+      q(5299),
+      q(0),
+      ],
+   q(orang seletar) => [
+      q(5302),
+      q(0),
+      ],
+   q(oraon sadri) => [
+      q(5957),
+      q(0),
+      ],
+   q(orejon) => [
+      q(5296),
+      q(0),
+      ],
+   q(oring) => [
+      q(5297),
+      q(0),
+      ],
+   q(oriya) => [
+      q(0328),
+      q(0),
+      ],
+   q(oriya (individual language)) => [
+      q(5308),
+      q(0),
+      ],
+   q(oriya (macrolanguage)) => [
+      q(0328),
+      q(1),
+      ],
+   q(orizaba nahuatl) => [
+      q(4957),
+      q(0),
+      ],
+   q(orma) => [
+      q(5295),
+      q(0),
+      ],
+   q(ormu) => [
+      q(5309),
+      q(0),
+      ],
+   q(ormuri) => [
+      q(5304),
+      q(0),
+      ],
+   q(oro) => [
+      q(5307),
+      q(0),
+      ],
+   q(oro win) => [
+      q(5306),
+      q(0),
+      ],
+   q(oroch) => [
+      q(5186),
+      q(0),
+      ],
+   q(oroha) => [
+      q(5294),
+      q(0),
+      ],
+   q(orok) => [
+      q(5185),
+      q(0),
+      ],
+   q(orokaiva) => [
+      q(5241),
+      q(0),
+      ],
+   q(oroko) => [
+      q(1109),
+      q(0),
+      ],
+   q(orokolo) => [
+      q(5300),
+      q(0),
+      ],
+   q(oromo) => [
+      q(0329),
+      q(0),
+      ],
+   q(oroqen) => [
+      q(5298),
+      q(0),
+      ],
+   q(orowe) => [
+      q(1382),
+      q(0),
+      ],
+   q(oruma) => [
+      q(5301),
+      q(0),
+      ],
+   q(orya) => [
+      q(6946),
+      q(0),
+      ],
+   q(osage) => [
+      q(0330),
+      q(0),
+      ],
+   q(osatu) => [
+      q(5314),
+      q(0),
+      ],
+   q(oscan) => [
+      q(5310),
+      q(0),
+      ],
+   q(osing) => [
+      q(5311),
+      q(0),
+      ],
+   q(ososo) => [
+      q(5312),
+      q(0),
+      ],
+   q(ossetian) => [
+      q(0331),
+      q(0),
+      ],
+   q(ossetic) => [
+      q(0331),
+      q(1),
+      ],
+   q(ot danum) => [
+      q(5318),
+      q(0),
+      ],
+   q(otank) => [
+      q(6954),
+      q(0),
+      ],
+   q(oti) => [
+      q(5320),
+      q(0),
+      ],
+   q(oto-manguean languages) => [
+      q(0517),
+      q(0),
+      ],
+   q(otomian languages) => [
+      q(0333),
+      q(0),
+      ],
+   q(otoro) => [
+      q(5326),
+      q(0),
+      ],
+   q(ottawa) => [
+      q(5330),
+      q(0),
+      ],
+   q(ottoman turkish (1500-1928)) => [
+      q(0332),
+      q(1),
+      ],
+   q(otuho) => [
+      q(4031),
+      q(0),
+      ],
+   q(otuke) => [
+      q(5329),
+      q(0),
+      ],
+   q(ouma) => [
+      q(5338),
+      q(0),
+      ],
+   q(oune) => [
+      q(5336),
+      q(0),
+      ],
+   q(owa) => [
+      q(6266),
+      q(0),
+      ],
+   q(owenia) => [
+      q(7236),
+      q(0),
+      ],
+   q(owiniga) => [
+      q(5339),
+      q(0),
+      ],
+   q(oy) => [
+      q(5341),
+      q(0),
+      ],
+   q(oya'oya) => [
+      q(5344),
+      q(0),
+      ],
+   q(oyda) => [
+      q(5342),
+      q(0),
+      ],
+   q(ozolotepec zapotec) => [
+      q(7818),
+      q(0),
+      ],
+   q(ozumacin chinantec) => [
+      q(1729),
+      q(0),
+      ],
+   q(pa di) => [
+      q(5399),
+      q(0),
+      ],
+   q(pa'a) => [
+      q(5585),
+      q(0),
+      ],
+   q(pa'o) => [
+      q(1288),
+      q(1),
+      ],
+   q(pa'o karen) => [
+      q(1288),
+      q(0),
+      ],
+   q(pa-hng) => [
+      q(5435),
+      q(0),
+      ],
+   q(paafang) => [
+      q(5423),
+      q(0),
+      ],
+   q(paakantyi) => [
+      q(2140),
+      q(0),
+      ],
+   q(paama) => [
+      q(5508),
+      q(0),
+      ],
+   q(paasaal) => [
+      q(6038),
+      q(0),
+      ],
+   q(pacahuara) => [
+      q(5395),
+      q(0),
+      ],
+   q(pacaraos quechua) => [
+      q(5710),
+      q(0),
+      ],
+   q(pacific gulf yupik) => [
+      q(2259),
+      q(0),
+      ],
+   q(pacoh) => [
+      q(5347),
+      q(0),
+      ],
+   q(padoe) => [
+      q(5401),
+      q(0),
+      ],
+   q(paekche) => [
+      q(5476),
+      q(0),
+      ],
+   q(paelignian) => [
+      q(5432),
+      q(0),
+      ],
+   q(paez) => [
+      q(5364),
+      q(0),
+      ],
+   q(pagi) => [
+      q(5429),
+      q(0),
+      ],
+   q(pagibete) => [
+      q(5349),
+      q(0),
+      ],
+   q(pagu) => [
+      q(5434),
+      q(0),
+      ],
+   q(pahanan agta) => [
+      q(0838),
+      q(0),
+      ],
+   q(pahari-potwari) => [
+      q(5444),
+      q(0),
+      ],
+   q(pahi) => [
+      q(3897),
+      q(0),
+      ],
+   q(pahlavani) => [
+      q(5447),
+      q(0),
+      ],
+   q(pahlavi) => [
+      q(0336),
+      q(0),
+      ],
+   q(pai tavytera) => [
+      q(5628),
+      q(0),
+      ],
+   q(paici) => [
+      q(5594),
+      q(0),
+      ],
+   q(paipai) => [
+      q(5574),
+      q(0),
+      ],
+   q(paite chin) => [
+      q(5391),
+      q(0),
+      ],
+   q(paiwan) => [
+      q(5666),
+      q(0),
+      ],
+   q(pak-tong) => [
+      q(5477),
+      q(0),
+      ],
+   q(pakaasnovos) => [
+      q(5359),
+      q(0),
+      ],
+   q(pakanha) => [
+      q(5479),
+      q(0),
+      ],
+   q(pakistan sign language) => [
+      q(5483),
+      q(0),
+      ],
+   q(paku) => [
+      q(5485),
+      q(0),
+      ],
+   q(paku karen) => [
+      q(3111),
+      q(0),
+      ],
+   q(pal) => [
+      q(0580),
+      q(0),
+      ],
+   q(palaic) => [
+      q(5499),
+      q(0),
+      ],
+   q(palaka senoufo) => [
+      q(5500),
+      q(0),
+      ],
+   q(palantla chinantec) => [
+      q(1831),
+      q(0),
+      ],
+   q(palauan) => [
+      q(0340),
+      q(0),
+      ],
+   q(paleni) => [
+      q(5539),
+      q(0),
+      ],
+   q(palenquero) => [
+      q(5496),
+      q(0),
+      ],
+   q(pali) => [
+      q(0345),
+      q(0),
+      ],
+   q(palikur) => [
+      q(5503),
+      q(0),
+      ],
+   q(paliyan) => [
+      q(5386),
+      q(0),
+      ],
+   q(pallanganmiddang) => [
+      q(5511),
+      q(0),
+      ],
+   q(palor) => [
+      q(2333),
+      q(0),
+      ],
+   q(palpa) => [
+      q(5498),
+      q(0),
+      ],
+   q(palu'e) => [
+      q(5490),
+      q(0),
+      ],
+   q(paluan) => [
+      q(5507),
+      q(0),
+      ],
+   q(palula) => [
+      q(5440),
+      q(1),
+      ],
+   q(palumata) => [
+      q(5510),
+      q(0),
+      ],
+   q(palya bareli) => [
+      q(1395),
+      q(0),
+      ],
+   q(pam) => [
+      q(5520),
+      q(0),
+      ],
+   q(pambia) => [
+      q(5509),
+      q(0),
+      ],
+   q(pamlico) => [
+      q(5517),
+      q(0),
+      ],
+   q(pamona) => [
+      q(5513),
+      q(0),
+      ],
+   q(pamosu) => [
+      q(2758),
+      q(0),
+      ],
+   q(pampanga) => [
+      q(0337),
+      q(0),
+      ],
+   q(pamplona atta) => [
+      q(0926),
+      q(0),
+      ],
+   q(pana (burkina faso)) => [
+      q(5544),
+      q(0),
+      ],
+   q(pana (central african republic)) => [
+      q(5553),
+      q(0),
+      ],
+   q(panamanian sign language) => [
+      q(4065),
+      q(0),
+      ],
+   q(panamint) => [
+      q(5356),
+      q(0),
+      ],
+   q(panao huanuco quechua) => [
+      q(5723),
+      q(0),
+      ],
+   q(panara) => [
+      q(3577),
+      q(0),
+      ],
+   q(panasuan) => [
+      q(5618),
+      q(0),
+      ],
+   q(panawa) => [
+      q(5662),
+      q(0),
+      ],
+   q(pancana) => [
+      q(5543),
+      q(0),
+      ],
+   q(panchpargania) => [
+      q(6429),
+      q(0),
+      ],
+   q(pande) => [
+      q(1262),
+      q(0),
+      ],
+   q(pangasinan) => [
+      q(0335),
+      q(0),
+      ],
+   q(pangseng) => [
+      q(5433),
+      q(0),
+      ],
+   q(pangutaran sama) => [
+      q(6104),
+      q(0),
+      ],
+   q(pangwa) => [
+      q(5375),
+      q(0),
+      ],
+   q(pangwali) => [
+      q(5428),
+      q(0),
+      ],
+   q(panim) => [
+      q(5545),
+      q(0),
+      ],
+   q(paniya) => [
+      q(5387),
+      q(0),
+      ],
+   q(panjabi) => [
+      q(0338),
+      q(0),
+      ],
+   q(pankarare) => [
+      q(5361),
+      q(0),
+      ],
+   q(pankararu) => [
+      q(5363),
+      q(0),
+      ],
+   q(pankhu) => [
+      q(5478),
+      q(0),
+      ],
+   q(pannei) => [
+      q(5532),
+      q(0),
+      ],
+   q(pano) => [
+      q(4505),
+      q(0),
+      ],
+   q(panoan katukina) => [
+      q(3498),
+      q(0),
+      ],
+   q(panobo) => [
+      q(5542),
+      q(0),
+      ],
+   q(panyi bai) => [
+      q(1138),
+      q(0),
+      ],
+   q(panytyima) => [
+      q(5550),
+      q(0),
+      ],
+   q(pao) => [
+      q(5572),
+      q(0),
+      ],
+   q(papantla totonac) => [
+      q(6646),
+      q(0),
+      ],
+   q(papapana) => [
+      q(5578),
+      q(0),
+      ],
+   q(papar) => [
+      q(2133),
+      q(0),
+      ],
+   q(papasena) => [
+      q(5357),
+      q(0),
+      ],
+   q(papel) => [
+      q(5373),
+      q(0),
+      ],
+   q(papi) => [
+      q(5573),
+      q(0),
+      ],
+   q(papiamento) => [
+      q(0339),
+      q(0),
+      ],
+   q(papitalai) => [
+      q(5358),
+      q(0),
+      ],
+   q(papora) => [
+      q(5584),
+      q(0),
+      ],
+   q(papuan languages) => [
+      q(0334),
+      q(0),
+      ],
+   q(papuan malay) => [
+      q(5528),
+      q(0),
+      ],
+   q(papuma) => [
+      q(5577),
+      q(0),
+      ],
+   q(para arara) => [
+      q(0551),
+      q(0),
+      ],
+   q(para gaviao) => [
+      q(2675),
+      q(0),
+      ],
+   q(para naga) => [
+      q(5678),
+      q(0),
+      ],
+   q(parachi) => [
+      q(5588),
+      q(0),
+      ],
+   q(paraguayan guarani) => [
+      q(2648),
+      q(0),
+      ],
+   q(paraguayan sign language) => [
+      q(5674),
+      q(0),
+      ],
+   q(parakana) => [
+      q(5353),
+      q(0),
+      ],
+   q(paranan) => [
+      q(5591),
+      q(0),
+      ],
+   q(paranawat) => [
+      q(5350),
+      q(0),
+      ],
+   q(paraujano) => [
+      q(5368),
+      q(0),
+      ],
+   q(parauk) => [
+      q(5595),
+      q(0),
+      ],
+   q(parawen) => [
+      q(5605),
+      q(0),
+      ],
+   q(pardhan) => [
+      q(5388),
+      q(0),
+      ],
+   q(pardhi) => [
+      q(5392),
+      q(0),
+      ],
+   q(pare) => [
+      q(5583),
+      q(0),
+      ],
+   q(parecis) => [
+      q(5346),
+      q(0),
+      ],
+   q(parenga) => [
+      q(5390),
+      q(0),
+      ],
+   q(pari) => [
+      q(3951),
+      q(0),
+      ],
+   q(parkari koli) => [
+      q(3690),
+      q(0),
+      ],
+   q(parkwa) => [
+      q(5370),
+      q(0),
+      ],
+   q(parsi) => [
+      q(5599),
+      q(0),
+      ],
+   q(parsi-dari) => [
+      q(5589),
+      q(0),
+      ],
+   q(parthian) => [
+      q(7469),
+      q(0),
+      ],
+   q(parya) => [
+      q(5355),
+      q(0),
+      ],
+   q(pashto) => [
+      q(0351),
+      q(1),
+      ],
+   q(pasi) => [
+      q(5621),
+      q(0),
+      ],
+   q(pass valley yali) => [
+      q(7577),
+      q(0),
+      ],
+   q(patamona) => [
+      q(5365),
+      q(0),
+      ],
+   q(patani) => [
+      q(5631),
+      q(0),
+      ],
+   q(pataxo ha-ha-hae) => [
+      q(5629),
+      q(0),
+      ],
+   q(patep) => [
+      q(5633),
+      q(0),
+      ],
+   q(pathiya) => [
+      q(5640),
+      q(0),
+      ],
+   q(patpatar) => [
+      q(2489),
+      q(0),
+      ],
+   q(pattani) => [
+      q(3796),
+      q(0),
+      ],
+   q(pattani malay) => [
+      q(4225),
+      q(0),
+      ],
+   q(pattapu) => [
+      q(5634),
+      q(0),
+      ],
+   q(patwin) => [
+      q(5664),
+      q(0),
+      ],
+   q(paulohi) => [
+      q(5492),
+      q(0),
+      ],
+   q(paumari) => [
+      q(5348),
+      q(0),
+      ],
+   q(paunaka) => [
+      q(5538),
+      q(0),
+      ],
+   q(pauri bareli) => [
+      q(1137),
+      q(0),
+      ],
+   q(pauserna) => [
+      q(5617),
+      q(0),
+      ],
+   q(pawaia) => [
+      q(5661),
+      q(0),
+      ],
+   q(pawnee) => [
+      q(5360),
+      q(0),
+      ],
+   q(paynamar) => [
+      q(5523),
+      q(0),
+      ],
+   q(pe) => [
+      q(5352),
+      q(0),
+      ],
+   q(pear) => [
+      q(5382),
+      q(0),
+      ],
+   q(pech) => [
+      q(5362),
+      q(0),
+      ],
+   q(pecheneg) => [
+      q(7458),
+      q(0),
+      ],
+   q(pedi) => [
+      q(0318),
+      q(0),
+      ],
+   q(peere) => [
+      q(5424),
+      q(0),
+      ],
+   q(pei) => [
+      q(5581),
+      q(0),
+      ],
+   q(pekal) => [
+      q(5414),
+      q(0),
+      ],
+   q(pela) => [
+      q(1570),
+      q(0),
+      ],
+   q(pele-ata) => [
+      q(0909),
+      q(0),
+      ],
+   q(pelende) => [
+      q(5580),
+      q(0),
+      ],
+   q(pemon) => [
+      q(0816),
+      q(0),
+      ],
+   q(pemono) => [
+      q(5419),
+      q(0),
+      ],
+   q(penang sign language) => [
+      q(5613),
+      q(0),
+      ],
+   q(penchal) => [
+      q(5413),
+      q(0),
+      ],
+   q(pendau) => [
+      q(6912),
+      q(0),
+      ],
+   q(pengo) => [
+      q(5409),
+      q(0),
+      ],
+   q(pennsylvania german) => [
+      q(5398),
+      q(0),
+      ],
+   q(penoles mixtec) => [
+      q(4309),
+      q(0),
+      ],
+   q(penrhyn) => [
+      q(5535),
+      q(0),
+      ],
+   q(pentlatch) => [
+      q(5639),
+      q(0),
+      ],
+   q(perai) => [
+      q(7112),
+      q(0),
+      ],
+   q(peranakan indonesian) => [
+      q(5404),
+      q(0),
+      ],
+   q(peripheral mongolian) => [
+      q(4605),
+      q(0),
+      ],
+   q(pero) => [
+      q(5463),
+      q(0),
+      ],
+   q(persian) => [
+      q(0342),
+      q(0),
+      ],
+   q(persian sign language) => [
+      q(5610),
+      q(0),
+      ],
+   q(persian, old (ca.600-400 b.c.)) => [
+      q(0341),
+      q(0),
+      ],
+   q(peruvian sign language) => [
+      q(5596),
+      q(0),
+      ],
+   q(petapa zapotec) => [
+      q(7918),
+      q(0),
+      ],
+   q(petats) => [
+      q(5420),
+      q(0),
+      ],
+   q(petjo) => [
+      q(5421),
+      q(0),
+      ],
+   q(peve) => [
+      q(3980),
+      q(0),
+      ],
+   q(pfaelzisch) => [
+      q(5425),
+      q(0),
+      ],
+   q(phai) => [
+      q(5603),
+      q(0),
+      ],
+   q(phake) => [
+      q(5439),
+      q(0),
+      ],
+   q(phala) => [
+      q(7727),
+      q(0),
+      ],
+   q(phalura) => [
+      q(5440),
+      q(0),
+      ],
+   q(phana') => [
+      q(5443),
+      q(0),
+      ],
+   q(phangduwali) => [
+      q(5448),
+      q(0),
+      ],
+   q(phende) => [
+      q(5415),
+      q(0),
+      ],
+   q(philippine languages) => [
+      q(0343),
+      q(0),
+      ],
+   q(philippine sign language) => [
+      q(5620),
+      q(0),
+      ],
+   q(phimbi) => [
+      q(5441),
+      q(0),
+      ],
+   q(phoenician) => [
+      q(0344),
+      q(0),
+      ],
+   q(phola) => [
+      q(7729),
+      q(0),
+      ],
+   q(pholo) => [
+      q(7655),
+      q(0),
+      ],
+   q(phom naga) => [
+      q(5035),
+      q(0),
+      ],
+   q(phong-kniang) => [
+      q(5551),
+      q(0),
+      ],
+   q(phrae pwo karen) => [
+      q(3397),
+      q(0),
+      ],
+   q(phrygian) => [
+      q(7460),
+      q(0),
+      ],
+   q(phu thai) => [
+      q(5445),
+      q(0),
+      ],
+   q(phuan) => [
+      q(5446),
+      q(0),
+      ],
+   q(phudagi) => [
+      q(5436),
+      q(0),
+      ],
+   q(phuie) => [
+      q(5647),
+      q(0),
+      ],
+   q(phukha) => [
+      q(5438),
+      q(0),
+      ],
+   q(phuma) => [
+      q(7731),
+      q(0),
+      ],
+   q(phunoi) => [
+      q(5442),
+      q(0),
+      ],
+   q(phuong) => [
+      q(5437),
+      q(0),
+      ],
+   q(phupa) => [
+      q(7734),
+      q(0),
+      ],
+   q(phupha) => [
+      q(7730),
+      q(0),
+      ],
+   q(phuza) => [
+      q(7735),
+      q(0),
+      ],
+   q(piamatsina) => [
+      q(5635),
+      q(0),
+      ],
+   q(piame) => [
+      q(5461),
+      q(0),
+      ],
+   q(piapoco) => [
+      q(5462),
+      q(0),
+      ],
+   q(piaroa) => [
+      q(5452),
+      q(0),
+      ],
+   q(picard) => [
+      q(5384),
+      q(0),
+      ],
+   q(pichis asheninka) => [
+      q(1839),
+      q(0),
+      ],
+   q(pictish) => [
+      q(7461),
+      q(0),
+      ],
+   q(pidgin delaware) => [
+      q(1998),
+      q(0),
+      ],
+   q(piemontese) => [
+      q(5524),
+      q(0),
+      ],
+   q(pijao) => [
+      q(5458),
+      q(0),
+      ],
+   q(pije) => [
+      q(5472),
+      q(0),
+      ],
+   q(pijin) => [
+      q(5465),
+      q(0),
+      ],
+   q(pilaga) => [
+      q(5491),
+      q(0),
+      ],
+   q(pileni) => [
+      q(5468),
+      q(0),
+      ],
+   q(pilipino) => [
+      q(0133),
+      q(1),
+      ],
+   q(pima bajo) => [
+      q(5449),
+      q(0),
+      ],
+   q(pimbwe) => [
+      q(5469),
+      q(0),
+      ],
+   q(pinai-hagahai) => [
+      q(5541),
+      q(0),
+      ],
+   q(pingelapese) => [
+      q(5454),
+      q(0),
+      ],
+   q(pini) => [
+      q(5457),
+      q(0),
+      ],
+   q(pinigura) => [
+      q(5549),
+      q(0),
+      ],
+   q(pinjarup) => [
+      q(5537),
+      q(0),
+      ],
+   q(pinji) => [
+      q(5451),
+      q(0),
+      ],
+   q(pinotepa nacional mixtec) => [
+      q(4311),
+      q(0),
+      ],
+   q(pintiini) => [
+      q(5630),
+      q(0),
+      ],
+   q(pintupi-luritja) => [
+      q(5467),
+      q(0),
+      ],
+   q(pinyin) => [
+      q(5552),
+      q(0),
+      ],
+   q(pipil) => [
+      q(5576),
+      q(0),
+      ],
+   q(piraha) => [
+      q(4686),
+      q(0),
+      ],
+   q(piratapuyo) => [
+      q(5464),
+      q(0),
+      ],
+   q(pirlatapa) => [
+      q(1575),
+      q(0),
+      ],
+   q(piro) => [
+      q(5453),
+      q(0),
+      ],
+   q(pirriya) => [
+      q(7457),
+      q(0),
+      ],
+   q(pisabo) => [
+      q(5455),
+      q(0),
+      ],
+   q(pisaflores tepehua) => [
+      q(6667),
+      q(0),
+      ],
+   q(piscataway) => [
+      q(5627),
+      q(0),
+      ],
+   q(pisidian) => [
+      q(7470),
+      q(0),
+      ],
+   q(pitcairn-norfolk) => [
+      q(5456),
+      q(0),
+      ],
+   q(pite sami) => [
+      q(6058),
+      q(0),
+      ],
+   q(piti) => [
+      q(5394),
+      q(0),
+      ],
+   q(pitjantjatjara) => [
+      q(5473),
+      q(0),
+      ],
+   q(pitta pitta) => [
+      q(5466),
+      q(0),
+      ],
+   q(piu) => [
+      q(5470),
+      q(0),
+      ],
+   q(piya-kwonci) => [
+      q(5471),
+      q(0),
+      ],
+   q(plains cree) => [
+      q(1852),
+      q(0),
+      ],
+   q(plains indian sign language) => [
+      q(5611),
+      q(0),
+      ],
+   q(plains miwok) => [
+      q(5526),
+      q(0),
+      ],
+   q(plapo krumen) => [
+      q(3629),
+      q(0),
+      ],
+   q(plateau malagasy) => [
+      q(5502),
+      q(0),
+      ],
+   q(plautdietsch) => [
+      q(5402),
+      q(0),
+      ],
+   q(playero) => [
+      q(2586),
+      q(0),
+      ],
+   q(pnar) => [
+      q(5379),
+      q(0),
+      ],
+   q(pochuri naga) => [
+      q(5039),
+      q(0),
+      ],
+   q(pochutec) => [
+      q(7466),
+      q(0),
+      ],
+   q(podena) => [
+      q(5400),
+      q(0),
+      ],
+   q(pogolo) => [
+      q(5571),
+      q(0),
+      ],
+   q(pohnpeian) => [
+      q(0347),
+      q(0),
+      ],
+   q(pokanga) => [
+      q(5561),
+      q(0),
+      ],
+   q(poke) => [
+      q(5557),
+      q(0),
+      ],
+   q(pokomo) => [
+      q(5475),
+      q(0),
+      ],
+   q(pokoot) => [
+      q(5480),
+      q(0),
+      ],
+   q(polabian) => [
+      q(5570),
+      q(0),
+      ],
+   q(polari) => [
+      q(5489),
+      q(0),
+      ],
+   q(polci) => [
+      q(5493),
+      q(0),
+      ],
+   q(polish) => [
+      q(0346),
+      q(0),
+      ],
+   q(polish sign language) => [
+      q(5619),
+      q(0),
+      ],
+   q(polonombauk) => [
+      q(5487),
+      q(0),
+      ],
+   q(pom) => [
+      q(5521),
+      q(0),
+      ],
+   q(pomo) => [
+      q(5519),
+      q(0),
+      ],
+   q(ponam) => [
+      q(4764),
+      q(0),
+      ],
+   q(ponares) => [
+      q(5555),
+      q(0),
+      ],
+   q(pongu) => [
+      q(5534),
+      q(0),
+      ],
+   q(ponosakan) => [
+      q(5546),
+      q(0),
+      ],
+   q(pontic) => [
+      q(5547),
+      q(0),
+      ],
+   q(ponyo-gongwang naga) => [
+      q(5034),
+      q(0),
+      ],
+   q(popti') => [
+      q(3042),
+      q(0),
+      ],
+   q(poqomam) => [
+      q(5554),
+      q(0),
+      ],
+   q(poqomchi') => [
+      q(5559),
+      q(0),
+      ],
+   q(porohanon) => [
+      q(5593),
+      q(0),
+      ],
+   q(port sandwich) => [
+      q(5626),
+      q(0),
+      ],
+   q(port vato) => [
+      q(5638),
+      q(0),
+      ],
+   q(portuguese) => [
+      q(0348),
+      q(0),
+      ],
+   q(portuguese sign language) => [
+      q(5622),
+      q(0),
+      ],
+   q(portuguese-based creoles and pidgins) => [
+      q(0095),
+      q(2),
+      ],
+   q(potawatomi) => [
+      q(5567),
+      q(0),
+      ],
+   q(potiguara) => [
+      q(5558),
+      q(0),
+      ],
+   q(pottangi ollar gadaba) => [
+      q(2453),
+      q(0),
+      ],
+   q(poule) => [
+      q(4541),
+      q(1),
+      ],
+   q(poumei naga) => [
+      q(5527),
+      q(0),
+      ],
+   q(pouye) => [
+      q(1594),
+      q(0),
+      ],
+   q(powari) => [
+      q(5668),
+      q(0),
+      ],
+   q(powhatan) => [
+      q(5460),
+      q(0),
+      ],
+   q(poyanawa) => [
+      q(5673),
+      q(0),
+      ],
+   q(prakrit languages) => [
+      q(0349),
+      q(0),
+      ],
+   q(prasuni) => [
+      q(5598),
+      q(0),
+      ],
+   q(pray 3) => [
+      q(5607),
+      q(0),
+      ],
+   q(primitive irish) => [
+      q(5431),
+      q(0),
+      ],
+   q(principense) => [
+      q(5590),
+      q(0),
+      ],
+   q(provencal) => [
+      q(0326),
+      q(1),
+      ],
+   q(provencal, old (to 1500)) => [
+      q(0350),
+      q(0),
+      ],
+   q(providencia sign language) => [
+      q(5608),
+      q(0),
+      ],
+   q(prussian) => [
+      q(5592),
+      q(0),
+      ],
+   q(psikye) => [
+      q(3676),
+      q(0),
+      ],
+   q(pu ko) => [
+      q(5650),
+      q(0),
+      ],
+   q(pu-xian chinese) => [
+      q(1840),
+      q(0),
+      ],
+   q(puare) => [
+      q(5659),
+      q(0),
+      ],
+   q(pudtol atta) => [
+      q(0922),
+      q(0),
+      ],
+   q(puelche) => [
+      q(5645),
+      q(0),
+      ],
+   q(puerto rican sign language) => [
+      q(5616),
+      q(0),
+      ],
+   q(puimei naga) => [
+      q(5041),
+      q(0),
+      ],
+   q(puinave) => [
+      q(5648),
+      q(0),
+      ],
+   q(pukapuka) => [
+      q(5481),
+      q(0),
+      ],
+   q(pulaar) => [
+      q(2381),
+      q(0),
+      ],
+   q(pulabu) => [
+      q(5653),
+      q(0),
+      ],
+   q(pular) => [
+      q(2384),
+      q(0),
+      ],
+   q(puluwatese) => [
+      q(5658),
+      q(0),
+      ],
+   q(puma) => [
+      q(5651),
+      q(0),
+      ],
+   q(pume) => [
+      q(7579),
+      q(0),
+      ],
+   q(pumpokol) => [
+      q(7464),
+      q(0),
+      ],
+   q(punan aput) => [
+      q(5644),
+      q(0),
+      ],
+   q(punan bah-biau) => [
+      q(5530),
+      q(0),
+      ],
+   q(punan batu 1) => [
+      q(5540),
+      q(0),
+      ],
+   q(punan merah) => [
+      q(5646),
+      q(0),
+      ],
+   q(punan merap) => [
+      q(5643),
+      q(0),
+      ],
+   q(punan tubu) => [
+      q(5649),
+      q(0),
+      ],
+   q(punic) => [
+      q(7472),
+      q(0),
+      ],
+   q(punjabi) => [
+      q(0338),
+      q(1),
+      ],
+   q(puno quechua) => [
+      q(5727),
+      q(0),
+      ],
+   q(punthamara) => [
+      q(7471),
+      q(0),
+      ],
+   q(punu) => [
+      q(5657),
+      q(0),
+      ],
+   q(puoc) => [
+      q(5652),
+      q(0),
+      ],
+   q(puquina) => [
+      q(5654),
+      q(0),
+      ],
+   q(puragi) => [
+      q(5604),
+      q(0),
+      ],
+   q(purari) => [
+      q(2887),
+      q(0),
+      ],
+   q(purepecha) => [
+      q(6734),
+      q(0),
+      ],
+   q(puri) => [
+      q(5601),
+      q(0),
+      ],
+   q(purik) => [
+      q(5606),
+      q(0),
+      ],
+   q(purisimeno) => [
+      q(5660),
+      q(0),
+      ],
+   q(puroik) => [
+      q(6287),
+      q(0),
+      ],
+   q(purubora) => [
+      q(5655),
+      q(0),
+      ],
+   q(purum) => [
+      q(5642),
+      q(0),
+      ],
+   q(pushto) => [
+      q(0351),
+      q(0),
+      ],
+   q(putai) => [
+      q(4236),
+      q(0),
+      ],
+   q(putoh) => [
+      q(5656),
+      q(0),
+      ],
+   q(putukwam) => [
+      q(0641),
+      q(0),
+      ],
+   q(puyo) => [
+      q(7473),
+      q(0),
+      ],
+   q(puyo-paekche) => [
+      q(7467),
+      q(0),
+      ],
+   q(puyuma) => [
+      q(5675),
+      q(0),
+      ],
+   q(pwaamei) => [
+      q(5512),
+      q(0),
+      ],
+   q(pwapwa) => [
+      q(5564),
+      q(0),
+      ],
+   q(pwo eastern karen) => [
+      q(3393),
+      q(0),
+      ],
+   q(pwo northern karen) => [
+      q(5669),
+      q(0),
+      ],
+   q(pwo western karen) => [
+      q(5667),
+      q(0),
+      ],
+   q(pyapun) => [
+      q(5396),
+      q(0),
+      ],
+   q(pye krumen) => [
+      q(5671),
+      q(0),
+      ],
+   q(pyen) => [
+      q(5677),
+      q(0),
+      ],
+   q(pyu (myanmar)) => [
+      q(5676),
+      q(0),
+      ],
+   q(pyu (papua new guinea)) => [
+      q(5380),
+      q(0),
+      ],
+   q(q'anjob'al) => [
+      q(3379),
+      q(0),
+      ],
+   q(qabiao) => [
+      q(3805),
+      q(0),
+      ],
+   q(qaqet) => [
+      q(1611),
+      q(0),
+      ],
+   q(qashqa'i) => [
+      q(5728),
+      q(0),
+      ],
+   q(qatabanian) => [
+      q(7475),
+      q(0),
+      ],
+   q(qau) => [
+      q(2613),
+      q(0),
+      ],
+   q(qawasqar) => [
+      q(0746),
+      q(0),
+      ],
+   q(qila muji) => [
+      q(7701),
+      q(0),
+      ],
+   q(qimant) => [
+      q(0679),
+      q(0),
+      ],
+   q(qiubei zhuang) => [
+      q(7940),
+      q(0),
+      ],
+   q(quapaw) => [
+      q(5679),
+      q(0),
+      ],
+   q(quebec sign language) => [
+      q(2340),
+      q(0),
+      ],
+   q(quechan) => [
+      q(7773),
+      q(0),
+      ],
+   q(quechua) => [
+      q(0353),
+      q(0),
+      ],
+   q(quechuan (family)) => [
+      q(0523),
+      q(0),
+      ],
+   q(quenya) => [
+      q(5734),
+      q(0),
+      ],
+   q(queretaro otomi) => [
+      q(5325),
+      q(0),
+      ],
+   q(quetzaltepec mixe) => [
+      q(5670),
+      q(0),
+      ],
+   q(queyu) => [
+      q(5713),
+      q(0),
+      ],
+   q(quiavicuzas zapotec) => [
+      q(7923),
+      q(0),
+      ],
+   q(quiche) => [
+      q(5681),
+      q(1),
+      ],
+   q(quileute) => [
+      q(5686),
+      q(0),
+      ],
+   q(quinault) => [
+      q(5690),
+      q(0),
+      ],
+   q(quinqui) => [
+      q(5692),
+      q(0),
+      ],
+   q(quioquitani-quieri zapotec) => [
+      q(7959),
+      q(0),
+      ],
+   q(quiotepec chinantec) => [
+      q(1725),
+      q(0),
+      ],
+   q(quiripi) => [
+      q(5735),
+      q(0),
+      ],
+   q(rabha) => [
+      q(5742),
+      q(0),
+      ],
+   q(rade) => [
+      q(5739),
+      q(0),
+      ],
+   q(raetic) => [
+      q(7485),
+      q(0),
+      ],
+   q(rahambuu) => [
+      q(5757),
+      q(0),
+      ],
+   q(rajah kabunsuwan manobo) => [
+      q(4490),
+      q(0),
+      ],
+   q(rajasthani) => [
+      q(0354),
+      q(0),
+      ],
+   q(rajbanshi) => [
+      q(5797),
+      q(0),
+      ],
+   q(raji) => [
+      q(5796),
+      q(0),
+      ],
+   q(rajong) => [
+      q(5795),
+      q(0),
+      ],
+   q(rajput garasia) => [
+      q(2614),
+      q(0),
+      ],
+   q(rakahanga-manihiki) => [
+      q(5800),
+      q(0),
+      ],
+   q(rakhine) => [
+      q(5801),
+      q(0),
+      ],
+   q(ralte) => [
+      q(5745),
+      q(0),
+      ],
+   q(rama) => [
+      q(5805),
+      q(0),
+      ],
+   q(ramoaaina) => [
+      q(5743),
+      q(0),
+      ],
+   q(ramopa) => [
+      q(3400),
+      q(0),
+      ],
+   q(rampi) => [
+      q(3933),
+      q(0),
+      ],
+   q(rana tharu) => [
+      q(6509),
+      q(0),
+      ],
+   q(rang) => [
+      q(5755),
+      q(0),
+      ],
+   q(rangkas) => [
+      q(5779),
+      q(0),
+      ],
+   q(ranglong) => [
+      q(5832),
+      q(0),
+      ],
+   q(rangpuri) => [
+      q(5803),
+      q(0),
+      ],
+   q(rao) => [
+      q(5748),
+      q(0),
+      ],
+   q(rapa) => [
+      q(5756),
+      q(0),
+      ],
+   q(rapanui) => [
+      q(0355),
+      q(0),
+      ],
+   q(rapoisi) => [
+      q(3765),
+      q(0),
+      ],
+   q(rapting) => [
+      q(5850),
+      q(0),
+      ],
+   q(rara bakati') => [
+      q(4042),
+      q(0),
+      ],
+   q(rarotongan) => [
+      q(0356),
+      q(0),
+      ],
+   q(rasawa) => [
+      q(5738),
+      q(0),
+      ],
+   q(ratagnon) => [
+      q(1482),
+      q(0),
+      ],
+   q(ratahan) => [
+      q(5858),
+      q(0),
+      ],
+   q(rathawi) => [
+      q(5861),
+      q(0),
+      ],
+   q(rathwi bareli) => [
+      q(1164),
+      q(0),
+      ],
+   q(raute) => [
+      q(5752),
+      q(0),
+      ],
+   q(ravula) => [
+      q(7621),
+      q(0),
+      ],
+   q(rawa) => [
+      q(5879),
+      q(0),
+      ],
+   q(rawang) => [
+      q(5754),
+      q(0),
+      ],
+   q(rawat) => [
+      q(3132),
+      q(0),
+      ],
+   q(rawngtu chin) => [
+      q(7113),
+      q(0),
+      ],
+   q(rawo) => [
+      q(5876),
+      q(0),
+      ],
+   q(rayon zoque) => [
+      q(7912),
+      q(0),
+      ],
+   q(razajerdi) => [
+      q(5751),
+      q(0),
+      ],
+   q(red gelao) => [
+      q(2524),
+      q(0),
+      ],
+   q(reel) => [
+      q(0927),
+      q(0),
+      ],
+   q(rejang) => [
+      q(5769),
+      q(0),
+      ],
+   q(rejang kayan) => [
+      q(5766),
+      q(0),
+      ],
+   q(reli) => [
+      q(5768),
+      q(0),
+      ],
+   q(rema) => [
+      q(1371),
+      q(0),
+      ],
+   q(rembarunga) => [
+      q(5806),
+      q(0),
+      ],
+   q(rembong) => [
+      q(5765),
+      q(0),
+      ],
+   q(remo) => [
+      q(5771),
+      q(0),
+      ],
+   q(remontado dumagat) => [
+      q(0672),
+      q(0),
+      ],
+   q(rempi) => [
+      q(5819),
+      q(0),
+      ],
+   q(remun) => [
+      q(3946),
+      q(0),
+      ],
+   q(rendille) => [
+      q(5770),
+      q(0),
+      ],
+   q(rengao) => [
+      q(5772),
+      q(0),
+      ],
+   q(rennell-bellona) => [
+      q(4432),
+      q(0),
+      ],
+   q(rennellese sign language) => [
+      q(5855),
+      q(0),
+      ],
+   q(repanbitip) => [
+      q(5849),
+      q(0),
+      ],
+   q(rer bare) => [
+      q(5773),
+      q(0),
+      ],
+   q(rerau) => [
+      q(5764),
+      q(0),
+      ],
+   q(rerep) => [
+      q(5430),
+      q(0),
+      ],
+   q(reserved for local use) => [
+      q(0352),
+      q(0),
+      ],
+   q(reshe) => [
+      q(5774),
+      q(0),
+      ],
+   q(resigaro) => [
+      q(5781),
+      q(0),
+      ],
+   q(retta) => [
+      q(5775),
+      q(0),
+      ],
+   q(reunion creole french) => [
+      q(5762),
+      q(0),
+      ],
+   q(reyesano) => [
+      q(5776),
+      q(0),
+      ],
+   q(riang (india)) => [
+      q(5786),
+      q(0),
+      ],
+   q(riang (myanmar)) => [
+      q(5789),
+      q(0),
+      ],
+   q(riantana) => [
+      q(5747),
+      q(0),
+      ],
+   q(ribun) => [
+      q(5792),
+      q(0),
+      ],
+   q(rien) => [
+      q(5787),
+      q(0),
+      ],
+   q(rifao) => [
+      q(4984),
+      q(1),
+      ],
+   q(rikbaktsa) => [
+      q(5799),
+      q(0),
+      ],
+   q(rincon zapotec) => [
+      q(7820),
+      q(0),
+      ],
+   q(rinconada bikol) => [
+      q(1483),
+      q(0),
+      ],
+   q(ringgou) => [
+      q(5783),
+      q(0),
+      ],
+   q(ririo) => [
+      q(5851),
+      q(0),
+      ],
+   q(ritarungo) => [
+      q(5793),
+      q(0),
+      ],
+   q(riung) => [
+      q(5794),
+      q(0),
+      ],
+   q(riverain sango) => [
+      q(6142),
+      q(0),
+      ],
+   q(rogo) => [
+      q(5839),
+      q(0),
+      ],
+   q(rohingya) => [
+      q(5784),
+      q(0),
+      ],
+   q(roma) => [
+      q(5816),
+      q(0),
+      ],
+   q(romagnol) => [
+      q(5780),
+      q(0),
+      ],
+   q(romam) => [
+      q(5826),
+      q(0),
+      ],
+   q(romance languages) => [
+      q(0357),
+      q(0),
+      ],
+   q(romanian) => [
+      q(0360),
+      q(0),
+      ],
+   q(romanian sign language) => [
+      q(5821),
+      q(0),
+      ],
+   q(romano-greek) => [
+      q(5778),
+      q(0),
+      ],
+   q(romano-serbian) => [
+      q(5854),
+      q(0),
+      ],
+   q(romanova) => [
+      q(5824),
+      q(0),
+      ],
+   q(romansh) => [
+      q(0358),
+      q(0),
+      ],
+   q(romany) => [
+      q(0359),
+      q(0),
+      ],
+   q(romblomanon) => [
+      q(5843),
+      q(0),
+      ],
+   q(rombo) => [
+      q(5841),
+      q(0),
+      ],
+   q(romkun) => [
+      q(5814),
+      q(0),
+      ],
+   q(ron) => [
+      q(1769),
+      q(0),
+      ],
+   q(ronga) => [
+      q(5831),
+      q(0),
+      ],
+   q(rongga) => [
+      q(5846),
+      q(0),
+      ],
+   q(rongmei naga) => [
+      q(4758),
+      q(0),
+      ],
+   q(rongpo) => [
+      q(5834),
+      q(0),
+      ],
+   q(ronji) => [
+      q(5840),
+      q(0),
+      ],
+   q(roon) => [
+      q(5833),
+      q(0),
+      ],
+   q(roria) => [
+      q(5777),
+      q(0),
+      ],
+   q(rotokas) => [
+      q(5844),
+      q(0),
+      ],
+   q(rotuman) => [
+      q(5859),
+      q(0),
+      ],
+   q(roviana) => [
+      q(5866),
+      q(0),
+      ],
+   q(ruching palaung) => [
+      q(5385),
+      q(0),
+      ],
+   q(rudbari) => [
+      q(5763),
+      q(0),
+      ],
+   q(rufiji) => [
+      q(5868),
+      q(0),
+      ],
+   q(ruga) => [
+      q(5867),
+      q(0),
+      ],
+   q(rukai) => [
+      q(2147),
+      q(0),
+      ],
+   q(ruma) => [
+      q(5875),
+      q(0),
+      ],
+   q(rumai palaung) => [
+      q(5758),
+      q(0),
+      ],
+   q(rumu) => [
+      q(3445),
+      q(0),
+      ],
+   q(runa) => [
+      q(5829),
+      q(0),
+      ],
+   q(rundi) => [
+      q(0361),
+      q(0),
+      ],
+   q(runga) => [
+      q(5847),
+      q(0),
+      ],
+   q(rungtu chin) => [
+      q(5857),
+      q(0),
+      ],
+   q(rungus) => [
+      q(2138),
+      q(0),
+      ],
+   q(rungwa) => [
+      q(5836),
+      q(0),
+      ],
+   q(russia buriat) => [
+      q(1584),
+      q(0),
+      ],
+   q(russian) => [
+      q(0363),
+      q(0),
+      ],
+   q(russian sign language) => [
+      q(5856),
+      q(0),
+      ],
+   q(rusyn) => [
+      q(5864),
+      q(0),
+      ],
+   q(rutul) => [
+      q(5872),
+      q(0),
+      ],
+   q(ruuli) => [
+      q(5863),
+      q(0),
+      ],
+   q(ruund) => [
+      q(5830),
+      q(0),
+      ],
+   q(rwa) => [
+      q(5877),
+      q(0),
+      ],
+   q(s'gaw karen) => [
+      q(3616),
+      q(0),
+      ],
+   q(sa) => [
+      q(5899),
+      q(0),
+      ],
+   q(sa'a) => [
+      q(0834),
+      q(0),
+      ],
+   q(sa'ban) => [
+      q(6152),
+      q(0),
+      ],
+   q(sa'och) => [
+      q(5937),
+      q(0),
+      ],
+   q(saafi-saafi) => [
+      q(5897),
+      q(0),
+      ],
+   q(saam) => [
+      q(5749),
+      q(0),
+      ],
+   q(saamia) => [
+      q(4063),
+      q(0),
+      ],
+   q(saaroa) => [
+      q(6331),
+      q(0),
+      ],
+   q(saba) => [
+      q(5886),
+      q(0),
+      ],
+   q(sabaean) => [
+      q(7489),
+      q(0),
+      ],
+   q(sabah bisaya) => [
+      q(1470),
+      q(0),
+      ],
+   q(sabah malay) => [
+      q(4538),
+      q(0),
+      ],
+   q(sabane) => [
+      q(5889),
+      q(0),
+      ],
+   q(sabaot) => [
+      q(6197),
+      q(0),
+      ],
+   q(sabine) => [
+      q(5923),
+      q(0),
+      ],
+   q(sabu) => [
+      q(2878),
+      q(0),
+      ],
+   q(sabum) => [
+      q(5916),
+      q(0),
+      ],
+   q(sacapulteco) => [
+      q(5695),
+      q(0),
+      ],
+   q(sadri) => [
+      q(5934),
+      q(0),
+      ],
+   q(saek) => [
+      q(6072),
+      q(0),
+      ],
+   q(saep) => [
+      q(6180),
+      q(0),
+      ],
+   q(safaliba) => [
+      q(5890),
+      q(0),
+      ],
+   q(safeyoka) => [
+      q(0858),
+      q(0),
+      ],
+   q(safwa) => [
+      q(5912),
+      q(0),
+      ],
+   q(sagala) => [
+      q(5914),
+      q(0),
+      ],
+   q(sagalla) => [
+      q(6475),
+      q(0),
+      ],
+   q(saho) => [
+      q(6252),
+      q(0),
+      ],
+   q(sahu) => [
+      q(5891),
+      q(0),
+      ],
+   q(saidi arabic) => [
+      q(0625),
+      q(0),
+      ],
+   q(saint lucian creole french) => [
+      q(0587),
+      q(0),
+      ],
+   q(saisiyat) => [
+      q(7506),
+      q(0),
+      ],
+   q(sajalong) => [
+      q(6061),
+      q(0),
+      ],
+   q(sajau basap) => [
+      q(6056),
+      q(0),
+      ],
+   q(sakachep) => [
+      q(5932),
+      q(0),
+      ],
+   q(sakalava malagasy) => [
+      q(6077),
+      q(0),
+      ],
+   q(sakan) => [
+      q(0223),
+      q(1),
+      ],
+   q(sakao) => [
+      q(6090),
+      q(0),
+      ],
+   q(sakata) => [
+      q(6089),
+      q(0),
+      ],
+   q(sake) => [
+      q(5892),
+      q(0),
+      ],
+   q(sakirabia) => [
+      q(6076),
+      q(0),
+      ],
+   q(sala) => [
+      q(6024),
+      q(0),
+      ],
+   q(salako) => [
+      q(3502),
+      q(1),
+      ],
+   q(salampasu) => [
+      q(6113),
+      q(0),
+      ],
+   q(salar) => [
+      q(6108),
+      q(0),
+      ],
+   q(salas) => [
+      q(6005),
+      q(0),
+      ],
+   q(salasaca highland quichua) => [
+      q(5724),
+      q(0),
+      ],
+   q(salchuq) => [
+      q(6107),
+      q(0),
+      ],
+   q(saleman) => [
+      q(5896),
+      q(0),
+      ],
+   q(saliba) => [
+      q(5906),
+      q(0),
+      ],
+   q(salinan) => [
+      q(6105),
+      q(0),
+      ],
+   q(salishan languages) => [
+      q(0368),
+      q(0),
+      ],
+   q(sallands) => [
+      q(5962),
+      q(0),
+      ],
+   q(salt-yui) => [
+      q(6103),
+      q(0),
+      ],
+   q(saluan) => [
+      q(4017),
+      q(0),
+      ],
+   q(saluma) => [
+      q(6102),
+      q(0),
+      ],
+   q(salvadoran sign language) => [
+      q(2297),
+      q(0),
+      ],
+   q(sam) => [
+      q(6154),
+      q(0),
+      ],
+   q(sama) => [
+      q(6118),
+      q(0),
+      ],
+   q(samaritan) => [
+      q(6125),
+      q(0),
+      ],
+   q(samaritan aramaic) => [
+      q(0369),
+      q(0),
+      ],
+   q(samarokena) => [
+      q(6595),
+      q(0),
+      ],
+   q(samatao) => [
+      q(7748),
+      q(0),
+      ],
+   q(samay) => [
+      q(6345),
+      q(0),
+      ],
+   q(samba) => [
+      q(6132),
+      q(0),
+      ],
+   q(samba daka) => [
+      q(1684),
+      q(0),
+      ],
+   q(samba leko) => [
+      q(4791),
+      q(0),
+      ],
+   q(sambal) => [
+      q(7490),
+      q(0),
+      ],
+   q(sambalpuri) => [
+      q(6195),
+      q(0),
+      ],
+   q(sambe) => [
+      q(7273),
+      q(0),
+      ],
+   q(samberigi) => [
+      q(6251),
+      q(0),
+      ],
+   q(samburu) => [
+      q(5894),
+      q(0),
+      ],
+   q(samei) => [
+      q(6121),
+      q(0),
+      ],
+   q(sami languages) => [
+      q(0389),
+      q(0),
+      ],
+   q(samo) => [
+      q(6126),
+      q(0),
+      ],
+   q(samoan) => [
+      q(0392),
+      q(0),
+      ],
+   q(samogitian) => [
+      q(6003),
+      q(0),
+      ],
+   q(samosa) => [
+      q(6309),
+      q(0),
+      ],
+   q(samoyedic languages) => [
+      q(0526),
+      q(0),
+      ],
+   q(sampang) => [
+      q(5753),
+      q(0),
+      ],
+   q(samre) => [
+      q(6328),
+      q(0),
+      ],
+   q(samtao) => [
+      q(6273),
+      q(0),
+      ],
+   q(samvedi) => [
+      q(6130),
+      q(0),
+      ],
+   q(san agustin mixtepec zapotec) => [
+      q(7956),
+      q(0),
+      ],
+   q(san baltazar loxicha zapotec) => [
+      q(7937),
+      q(0),
+      ],
+   q(san blas kuna) => [
+      q(1910),
+      q(0),
+      ],
+   q(san dionisio del mar huave) => [
+      q(2876),
+      q(0),
+      ],
+   q(san felipe otlaltepec popoloca) => [
+      q(5569),
+      q(0),
+      ],
+   q(san francisco del mar huave) => [
+      q(2855),
+      q(0),
+      ],
+   q(san francisco matlatzinca) => [
+      q(4122),
+      q(0),
+      ],
+   q(san jeronimo tecoatl mazatec) => [
+      q(4115),
+      q(0),
+      ],
+   q(san juan atzingo popoloca) => [
+      q(5556),
+      q(0),
+      ],
+   q(san juan colorado mixtec) => [
+      q(4321),
+      q(0),
+      ],
+   q(san juan guelavia zapotec) => [
+      q(7806),
+      q(0),
+      ],
+   q(san juan teita mixtec) => [
+      q(7515),
+      q(0),
+      ],
+   q(san luis temalacayuca popoloca) => [
+      q(5582),
+      q(0),
+      ],
+   q(san marcos tlacoyalco popoloca) => [
+      q(5501),
+      q(0),
+      ],
+   q(san marcos tlalcoyalco popoloca) => [
+      q(5501),
+      q(1),
+      ],
+   q(san martin itunyoso triqui) => [
+      q(6703),
+      q(0),
+      ],
+   q(san martin quechua) => [
+      q(5711),
+      q(0),
+      ],
+   q(san mateo del mar huave) => [
+      q(2870),
+      q(0),
+      ],
+   q(san miguel creole french) => [
+      q(5930),
+      q(0),
+      ],
+   q(san miguel el grande mixtec) => [
+      q(4304),
+      q(0),
+      ],
+   q(san miguel piedras mixtec) => [
+      q(7520),
+      q(0),
+      ],
+   q(san pedro amuzgos amuzgo) => [
+      q(1015),
+      q(0),
+      ],
+   q(san pedro quiatoni zapotec) => [
+      q(7919),
+      q(0),
+      ],
+   q(san salvador kongo) => [
+      q(3716),
+      q(0),
+      ],
+   q(san vicente coatlan zapotec) => [
+      q(7933),
+      q(0),
+      ],
+   q(sanaani arabic) => [
+      q(1002),
+      q(0),
+      ],
+   q(sanapana) => [
+      q(6187),
+      q(0),
+      ],
+   q(sandawe) => [
+      q(0364),
+      q(0),
+      ],
+   q(sanga (democratic republic of congo)) => [
+      q(6139),
+      q(0),
+      ],
+   q(sanga (nigeria)) => [
+      q(7498),
+      q(0),
+      ],
+   q(sanggau) => [
+      q(5931),
+      q(0),
+      ],
+   q(sangil) => [
+      q(6143),
+      q(0),
+      ],
+   q(sangir) => [
+      q(6329),
+      q(0),
+      ],
+   q(sangisari) => [
+      q(6002),
+      q(0),
+      ],
+   q(sangkong) => [
+      q(5999),
+      q(0),
+      ],
+   q(sanglechi) => [
+      q(6008),
+      q(0),
+      ],
+   q(sango) => [
+      q(0365),
+      q(0),
+      ],
+   q(sangtam naga) => [
+      q(5066),
+      q(0),
+      ],
+   q(sangu (gabon)) => [
+      q(6148),
+      q(0),
+      ],
+   q(sangu (tanzania)) => [
+      q(5917),
+      q(0),
+      ],
+   q(sani) => [
+      q(7751),
+      q(0),
+      ],
+   q(sanie) => [
+      q(7756),
+      q(0),
+      ],
+   q(saniyo-hiyewe) => [
+      q(6155),
+      q(0),
+      ],
+   q(sankaran maninka) => [
+      q(4532),
+      q(0),
+      ],
+   q(sansi) => [
+      q(6237),
+      q(0),
+      ],
+   q(sanskrit) => [
+      q(0370),
+      q(0),
+      ],
+   q(santa ana de tusi pasco quechua) => [
+      q(5731),
+      q(0),
+      ],
+   q(santa catarina albarradas zapotec) => [
+      q(7957),
+      q(0),
+      ],
+   q(santa ines ahuatempan popoloca) => [
+      q(5381),
+      q(0),
+      ],
+   q(santa ines yatzechi zapotec) => [
+      q(7927),
+      q(0),
+      ],
+   q(santa lucia monteverde mixtec) => [
+      q(4197),
+      q(0),
+      ],
+   q(santa maria del mar huave) => [
+      q(2879),
+      q(0),
+      ],
+   q(santa maria la alta nahuatl) => [
+      q(4882),
+      q(0),
+      ],
+   q(santa maria quiegolani zapotec) => [
+      q(7922),
+      q(0),
+      ],
+   q(santa maria zacatepec mixtec) => [
+      q(4694),
+      q(0),
+      ],
+   q(santa teresa cora) => [
+      q(1818),
+      q(0),
+      ],
+   q(santali) => [
+      q(0372),
+      q(0),
+      ],
+   q(santiago del estero quichua) => [
+      q(5694),
+      q(0),
+      ],
+   q(santiago xanica zapotec) => [
+      q(7931),
+      q(0),
+      ],
+   q(santo domingo albarradas zapotec) => [
+      q(7821),
+      q(0),
+      ],
+   q(sanuma) => [
+      q(7504),
+      q(0),
+      ],
+   q(sao paulo kaingang) => [
+      q(7866),
+      q(0),
+      ],
+   q(saotomense) => [
+      q(1850),
+      q(0),
+      ],
+   q(saparua) => [
+      q(6191),
+      q(0),
+      ],
+   q(sape) => [
+      q(6179),
+      q(0),
+      ],
+   q(sapo) => [
+      q(3584),
+      q(0),
+      ],
+   q(saponi) => [
+      q(6183),
+      q(0),
+      ],
+   q(saposa) => [
+      q(6192),
+      q(0),
+      ],
+   q(sapuan) => [
+      q(6194),
+      q(0),
+      ],
+   q(sar) => [
+      q(4634),
+      q(0),
+      ],
+   q(sara) => [
+      q(6212),
+      q(0),
+      ],
+   q(sara kaba) => [
+      q(5927),
+      q(0),
+      ],
+   q(sara kaba deme) => [
+      q(3699),
+      q(0),
+      ],
+   q(sara kaba naa) => [
+      q(3713),
+      q(0),
+      ],
+   q(saraiki) => [
+      q(6087),
+      q(0),
+      ],
+   q(saramaccan) => [
+      q(6219),
+      q(0),
+      ],
+   q(sarangani blaan) => [
+      q(1390),
+      q(0),
+      ],
+   q(sarangani manobo) => [
+      q(4145),
+      q(0),
+      ],
+   q(sarasira) => [
+      q(7947),
+      q(0),
+      ],
+   q(saraveca) => [
+      q(5895),
+      q(0),
+      ],
+   q(sardinian) => [
+      q(0402),
+      q(0),
+      ],
+   q(sari) => [
+      q(0894),
+      q(0),
+      ],
+   q(sarikoli) => [
+      q(6215),
+      q(0),
+      ],
+   q(sarli) => [
+      q(5947),
+      q(0),
+      ],
+   q(sarsi) => [
+      q(6222),
+      q(0),
+      ],
+   q(sartang) => [
+      q(5276),
+      q(0),
+      ],
+   q(sarua) => [
+      q(6321),
+      q(0),
+      ],
+   q(sarudu) => [
+      q(5960),
+      q(0),
+      ],
+   q(saruga) => [
+      q(6209),
+      q(0),
+      ],
+   q(sasak) => [
+      q(0371),
+      q(0),
+      ],
+   q(sasaru) => [
+      q(6332),
+      q(0),
+      ],
+   q(sassarese sardinian) => [
+      q(5945),
+      q(0),
+      ],
+   q(satawalese) => [
+      q(6275),
+      q(0),
+      ],
+   q(satere-mawe) => [
+      q(4124),
+      q(0),
+      ],
+   q(saterfriesisch) => [
+      q(6269),
+      q(0),
+      ],
+   q(saudi arabian sign language) => [
+      q(5952),
+      q(0),
+      ],
+   q(sauraseni prakrit) => [
+      q(5625),
+      q(0),
+      ],
+   q(saurashtra) => [
+      q(5901),
+      q(0),
+      ],
+   q(sauri) => [
+      q(6223),
+      q(0),
+      ],
+   q(sauria paharia) => [
+      q(4337),
+      q(0),
+      ],
+   q(sause) => [
+      q(5893),
+      q(0),
+      ],
+   q(sausi) => [
+      q(6238),
+      q(0),
+      ],
+   q(savara) => [
+      q(6297),
+      q(0),
+      ],
+   q(savi) => [
+      q(5948),
+      q(0),
+      ],
+   q(savosavo) => [
+      q(6298),
+      q(0),
+      ],
+   q(sawai) => [
+      q(6357),
+      q(0),
+      ],
+   q(saweru) => [
+      q(6314),
+      q(0),
+      ],
+   q(sawi) => [
+      q(5898),
+      q(0),
+      ],
+   q(sawila) => [
+      q(6316),
+      q(0),
+      ],
+   q(sawknah) => [
+      q(6310),
+      q(0),
+      ],
+   q(saxon, low) => [
+      q(0306),
+      q(3),
+      ],
+   q(saxwe gbe) => [
+      q(6334),
+      q(0),
+      ],
+   q(saya) => [
+      q(5900),
+      q(0),
+      ],
+   q(sayula popoluca) => [
+      q(5566),
+      q(0),
+      ],
+   q(scots) => [
+      q(0374),
+      q(0),
+      ],
+   q(scottish gaelic) => [
+      q(0153),
+      q(1),
+      ],
+   q(scythian) => [
+      q(7491),
+      q(0),
+      ],
+   q(sea island creole english) => [
+      q(2652),
+      q(0),
+      ],
+   q(seba) => [
+      q(3240),
+      q(0),
+      ],
+   q(sebat bet gurage) => [
+      q(6006),
+      q(0),
+      ],
+   q(seberuang) => [
+      q(5925),
+      q(0),
+      ],
+   q(sebop) => [
+      q(6035),
+      q(0),
+      ],
+   q(sebuyau) => [
+      q(6135),
+      q(0),
+      ],
+   q(sechelt) => [
+      q(5965),
+      q(0),
+      ],
+   q(secoya) => [
+      q(5984),
+      q(0),
+      ],
+   q(sedang) => [
+      q(5966),
+      q(0),
+      ],
+   q(sedoa) => [
+      q(6790),
+      q(0),
+      ],
+   q(seeku) => [
+      q(6171),
+      q(0),
+      ],
+   q(segai) => [
+      q(5994),
+      q(0),
+      ],
+   q(segeju) => [
+      q(5969),
+      q(0),
+      ],
+   q(seget) => [
+      q(5908),
+      q(0),
+      ],
+   q(sehwi) => [
+      q(5990),
+      q(0),
+      ],
+   q(seimat) => [
+      q(6235),
+      q(0),
+      ],
+   q(seit-kaitetu) => [
+      q(2761),
+      q(0),
+      ],
+   q(sekani) => [
+      q(5973),
+      q(0),
+      ],
+   q(sekapan) => [
+      q(6085),
+      q(0),
+      ],
+   q(sekar) => [
+      q(6095),
+      q(0),
+      ],
+   q(seke (nepal)) => [
+      q(6080),
+      q(0),
+      ],
+   q(seke (vanuatu)) => [
+      q(6075),
+      q(0),
+      ],
+   q(sekele) => [
+      q(6975),
+      q(0),
+      ],
+   q(seki) => [
+      q(6337),
+      q(0),
+      ],
+   q(seko padang) => [
+      q(6093),
+      q(0),
+      ],
+   q(seko tengah) => [
+      q(6084),
+      q(0),
+      ],
+   q(sekpele) => [
+      q(3922),
+      q(0),
+      ],
+   q(selangor sign language) => [
+      q(3316),
+      q(0),
+      ],
+   q(selaru) => [
+      q(6111),
+      q(0),
+      ],
+   q(selayar) => [
+      q(6114),
+      q(0),
+      ],
+   q(selee) => [
+      q(6153),
+      q(0),
+      ],
+   q(selepet) => [
+      q(6185),
+      q(0),
+      ],
+   q(selian) => [
+      q(6327),
+      q(0),
+      ],
+   q(selkup) => [
+      q(0375),
+      q(0),
+      ],
+   q(selungai murut) => [
+      q(6099),
+      q(0),
+      ],
+   q(seluwasan) => [
+      q(6315),
+      q(0),
+      ],
+   q(semai) => [
+      q(5963),
+      q(0),
+      ],
+   q(semandang) => [
+      q(5953),
+      q(0),
+      ],
+   q(semaq beri) => [
+      q(6349),
+      q(0),
+      ],
+   q(sembakung murut) => [
+      q(5919),
+      q(0),
+      ],
+   q(semelai) => [
+      q(6347),
+      q(0),
+      ],
+   q(semimi) => [
+      q(2313),
+      q(0),
+      ],
+   q(semitic languages) => [
+      q(0376),
+      q(0),
+      ],
+   q(semnam) => [
+      q(6241),
+      q(0),
+      ],
+   q(semnani) => [
+      q(6133),
+      q(0),
+      ],
+   q(sempan) => [
+      q(7493),
+      q(0),
+      ],
+   q(sena) => [
+      q(5970),
+      q(0),
+      ],
+   q(senara senoufo) => [
+      q(5977),
+      q(0),
+      ],
+   q(senaya) => [
+      q(6341),
+      q(0),
+      ],
+   q(sene) => [
+      q(5972),
+      q(0),
+      ],
+   q(seneca) => [
+      q(5967),
+      q(0),
+      ],
+   q(sened) => [
+      q(5958),
+      q(0),
+      ],
+   q(sengele) => [
+      q(6352),
+      q(0),
+      ],
+   q(senggi) => [
+      q(6151),
+      q(0),
+      ],
+   q(sengo) => [
+      q(6184),
+      q(0),
+      ],
+   q(sengseng) => [
+      q(6253),
+      q(0),
+      ],
+   q(senhaja de srair) => [
+      q(6067),
+      q(0),
+      ],
+   q(sensi) => [
+      q(6141),
+      q(0),
+      ],
+   q(sentani) => [
+      q(5980),
+      q(0),
+      ],
+   q(senthang chin) => [
+      q(5985),
+      q(0),
+      ],
+   q(sentinel) => [
+      q(6256),
+      q(0),
+      ],
+   q(sepa (indonesia)) => [
+      q(6178),
+      q(0),
+      ],
+   q(sepa (papua new guinea)) => [
+      q(6181),
+      q(0),
+      ],
+   q(sepedi) => [
+      q(0318),
+      q(1),
+      ],
+   q(sepik iwam) => [
+      q(3031),
+      q(0),
+      ],
+   q(sera) => [
+      q(6228),
+      q(0),
+      ],
+   q(seraiki) => [
+      q(6087),
+      q(1),
+      ],
+   q(serbian) => [
+      q(0404),
+      q(0),
+      ],
+   q(serbo-croatian) => [
+      q(0537),
+      q(0),
+      ],
+   q(sere) => [
+      q(6302),
+      q(0),
+      ],
+   q(serer) => [
+      q(0405),
+      q(0),
+      ],
+   q(seri) => [
+      q(5971),
+      q(0),
+      ],
+   q(serili) => [
+      q(6294),
+      q(0),
+      ],
+   q(seroa) => [
+      q(3568),
+      q(0),
+      ],
+   q(serrano) => [
+      q(5978),
+      q(0),
+      ],
+   q(seru) => [
+      q(6350),
+      q(0),
+      ],
+   q(serua) => [
+      q(6226),
+      q(0),
+      ],
+   q(serudung murut) => [
+      q(6217),
+      q(0),
+      ],
+   q(serui-laut) => [
+      q(5981),
+      q(0),
+      ],
+   q(seselwa creole french) => [
+      q(1859),
+      q(0),
+      ],
+   q(seta) => [
+      q(6258),
+      q(0),
+      ],
+   q(setaman) => [
+      q(6265),
+      q(0),
+      ],
+   q(seti) => [
+      q(5910),
+      q(0),
+      ],
+   q(settla) => [
+      q(6254),
+      q(0),
+      ],
+   q(severn ojibwa) => [
+      q(5222),
+      q(0),
+      ],
+   q(sewa bay) => [
+      q(5983),
+      q(0),
+      ],
+   q(seze) => [
+      q(6351),
+      q(0),
+      ],
+   q(sha) => [
+      q(5941),
+      q(0),
+      ],
+   q(shabak) => [
+      q(5944),
+      q(0),
+      ],
+   q(shabo) => [
+      q(5907),
+      q(1),
+      ],
+   q(shahmirzadi) => [
+      q(6229),
+      q(0),
+      ],
+   q(shahrudi) => [
+      q(6021),
+      q(0),
+      ],
+   q(shall-zwall) => [
+      q(6010),
+      q(0),
+      ],
+   q(shama-sambuga) => [
+      q(6198),
+      q(0),
+      ],
+   q(shamang) => [
+      q(7494),
+      q(0),
+      ],
+   q(shambala) => [
+      q(3595),
+      q(0),
+      ],
+   q(shan) => [
+      q(0379),
+      q(0),
+      ],
+   q(shanenawa) => [
+      q(6311),
+      q(0),
+      ],
+   q(shanga) => [
+      q(6022),
+      q(0),
+      ],
+   q(shangzhai) => [
+      q(3097),
+      q(1),
+      ],
+   q(sharanahua) => [
+      q(4156),
+      q(0),
+      ],
+   q(shark bay) => [
+      q(6250),
+      q(0),
+      ],
+   q(sharwa) => [
+      q(6313),
+      q(0),
+      ],
+   q(shasta) => [
+      q(6027),
+      q(0),
+      ],
+   q(shatt) => [
+      q(6018),
+      q(0),
+      ],
+   q(shau) => [
+      q(6199),
+      q(0),
+      ],
+   q(shawnee) => [
+      q(6070),
+      q(0),
+      ],
+   q(she) => [
+      q(6031),
+      q(0),
+      ],
+   q(shehri) => [
+      q(6029),
+      q(0),
+      ],
+   q(shekhawati) => [
+      q(6318),
+      q(0),
+      ],
+   q(shekkacho) => [
+      q(4454),
+      q(0),
+      ],
+   q(sheko) => [
+      q(6014),
+      q(0),
+      ],
+   q(shelta) => [
+      q(6260),
+      q(0),
+      ],
+   q(shempire senoufo) => [
+      q(5964),
+      q(0),
+      ],
+   q(shendu) => [
+      q(6020),
+      q(0),
+      ],
+   q(sheni) => [
+      q(5940),
+      q(0),
+      ],
+   q(sherbro) => [
+      q(1505),
+      q(0),
+      ],
+   q(sherdukpen) => [
+      q(5956),
+      q(0),
+      ],
+   q(sherpa) => [
+      q(7502),
+      q(0),
+      ],
+   q(sheshi kham) => [
+      q(3368),
+      q(0),
+      ],
+   q(shi) => [
+      q(6025),
+      q(0),
+      ],
+   q(shihhi arabic) => [
+      q(6236),
+      q(0),
+      ],
+   q(shiki) => [
+      q(2642),
+      q(0),
+      ],
+   q(shilluk) => [
+      q(6019),
+      q(0),
+      ],
+   q(shina) => [
+      q(5935),
+      q(0),
+      ],
+   q(shinabo) => [
+      q(6140),
+      q(0),
+      ],
+   q(shipibo-conibo) => [
+      q(6023),
+      q(0),
+      ],
+   q(shixing) => [
+      q(6325),
+      q(0),
+      ],
+   q(sholaga) => [
+      q(6097),
+      q(0),
+      ],
+   q(shom peng) => [
+      q(6040),
+      q(0),
+      ],
+   q(shona) => [
+      q(0394),
+      q(0),
+      ],
+   q(shoo-minda-nye) => [
+      q(1085),
+      q(0),
+      ],
+   q(shor) => [
+      q(1752),
+      q(0),
+      ],
+   q(shoshoni) => [
+      q(6016),
+      q(0),
+      ],
+   q(shua) => [
+      q(6015),
+      q(0),
+      ],
+   q(shuadit) => [
+      q(5959),
+      q(0),
+      ],
+   q(shuar) => [
+      q(3105),
+      q(0),
+      ],
+   q(shubi) => [
+      q(6283),
+      q(0),
+      ],
+   q(shughni) => [
+      q(5996),
+      q(0),
+      ],
+   q(shumashti) => [
+      q(6271),
+      q(0),
+      ],
+   q(shumcho) => [
+      q(5939),
+      q(0),
+      ],
+   q(shuswap) => [
+      q(6026),
+      q(0),
+      ],
+   q(shuwa-zamani) => [
+      q(3594),
+      q(0),
+      ],
+   q(shwai) => [
+      q(6030),
+      q(0),
+      ],
+   q(shwe palaung) => [
+      q(5495),
+      q(0),
+      ],
+   q(sialum) => [
+      q(6112),
+      q(0),
+      ],
+   q(siamou) => [
+      q(6037),
+      q(0),
+      ],
+   q(sian) => [
+      q(6182),
+      q(0),
+      ],
+   q(siane) => [
+      q(6147),
+      q(0),
+      ],
+   q(siang) => [
+      q(6335),
+      q(0),
+      ],
+   q(siar-lak) => [
+      q(6066),
+      q(0),
+      ],
+   q(siawi) => [
+      q(4405),
+      q(0),
+      ],
+   q(sibe) => [
+      q(4776),
+      q(0),
+      ],
+   q(siberian tatar) => [
+      q(6276),
+      q(0),
+      ],
+   q(sibu melanau) => [
+      q(5961),
+      q(0),
+      ],
+   q(sicanian) => [
+      q(6323),
+      q(0),
+      ],
+   q(sicel) => [
+      q(5942),
+      q(0),
+      ],
+   q(sichuan yi) => [
+      q(0189),
+      q(0),
+      ],
+   q(sicilian) => [
+      q(0373),
+      q(0),
+      ],
+   q(sicite senoufo) => [
+      q(5976),
+      q(0),
+      ],
+   q(siculo arabic) => [
+      q(6205),
+      q(0),
+      ],
+   q(sidamo) => [
+      q(0380),
+      q(0),
+      ],
+   q(sidetic) => [
+      q(7492),
+      q(0),
+      ],
+   q(sie) => [
+      q(2282),
+      q(0),
+      ],
+   q(sierra de juarez zapotec) => [
+      q(7805),
+      q(0),
+      ],
+   q(sierra leone sign language) => [
+      q(6007),
+      q(0),
+      ],
+   q(sierra negra nahuatl) => [
+      q(5083),
+      q(0),
+      ],
+   q(sighu) => [
+      q(6324),
+      q(0),
+      ],
+   q(sign languages) => [
+      q(0378),
+      q(0),
+      ],
+   q(sihan) => [
+      q(6149),
+      q(0),
+      ],
+   q(sihuas ancash quechua) => [
+      q(5719),
+      q(0),
+      ],
+   q(sika) => [
+      q(6079),
+      q(0),
+      ],
+   q(sikaiana) => [
+      q(6094),
+      q(0),
+      ],
+   q(sikaritai) => [
+      q(6758),
+      q(0),
+      ],
+   q(sikiana) => [
+      q(6042),
+      q(0),
+      ],
+   q(sikkimese) => [
+      q(6045),
+      q(0),
+      ],
+   q(siksika) => [
+      q(0057),
+      q(0),
+      ],
+   q(sikule) => [
+      q(6078),
+      q(0),
+      ],
+   q(sila) => [
+      q(6110),
+      q(0),
+      ],
+   q(silacayoapan mixtec) => [
+      q(4360),
+      q(0),
+      ],
+   q(sileibi) => [
+      q(5918),
+      q(0),
+      ],
+   q(silesian) => [
+      q(6353),
+      q(0),
+      ],
+   q(silimo) => [
+      q(7250),
+      q(0),
+      ],
+   q(siliput) => [
+      q(4346),
+      q(0),
+      ],
+   q(silopi) => [
+      q(7500),
+      q(0),
+      ],
+   q(silt'e) => [
+      q(6274),
+      q(0),
+      ],
+   q(simaa) => [
+      q(6036),
+      q(0),
+      ],
+   q(simba) => [
+      q(5924),
+      q(0),
+      ],
+   q(simbali) => [
+      q(6120),
+      q(0),
+      ],
+   q(simbari) => [
+      q(6116),
+      q(0),
+      ],
+   q(simbo) => [
+      q(5903),
+      q(0),
+      ],
+   q(simeku) => [
+      q(6134),
+      q(0),
+      ],
+   q(simeulue) => [
+      q(6127),
+      q(0),
+      ],
+   q(simte) => [
+      q(6128),
+      q(0),
+      ],
+   q(sinagen) => [
+      q(6049),
+      q(0),
+      ],
+   q(sinasina) => [
+      q(6248),
+      q(0),
+      ],
+   q(sinaugoro) => [
+      q(6136),
+      q(0),
+      ],
+   q(sindarin) => [
+      q(6063),
+      q(0),
+      ],
+   q(sindhi) => [
+      q(0395),
+      q(0),
+      ],
+   q(sindhi bhil) => [
+      q(5915),
+      q(0),
+      ],
+   q(sindihui mixtec) => [
+      q(7523),
+      q(0),
+      ],
+   q(singa) => [
+      q(6000),
+      q(0),
+      ],
+   q(singapore sign language) => [
+      q(6109),
+      q(0),
+      ],
+   q(singpho) => [
+      q(6001),
+      q(0),
+      ],
+   q(sinhala) => [
+      q(0381),
+      q(0),
+      ],
+   q(sinhalese) => [
+      q(0381),
+      q(1),
+      ],
+   q(sinicahua mixtec) => [
+      q(7514),
+      q(0),
+      ],
+   q(sinicized miao) => [
+      q(2799),
+      q(1),
+      ],
+   q(sininkere) => [
+      q(6086),
+      q(0),
+      ],
+   q(sino-tibetan languages) => [
+      q(0383),
+      q(0),
+      ],
+   q(sinsauru) => [
+      q(6156),
+      q(0),
+      ],
+   q(sinte romani) => [
+      q(5818),
+      q(0),
+      ],
+   q(sinyar) => [
+      q(6343),
+      q(0),
+      ],
+   q(sio) => [
+      q(7495),
+      q(0),
+      ],
+   q(siona) => [
+      q(6145),
+      q(0),
+      ],
+   q(siouan languages) => [
+      q(0382),
+      q(0),
+      ],
+   q(sipacapense) => [
+      q(5689),
+      q(0),
+      ],
+   q(sira) => [
+      q(6306),
+      q(0),
+      ],
+   q(siraya) => [
+      q(2368),
+      q(0),
+      ],
+   q(sirenik yupik) => [
+      q(7754),
+      q(0),
+      ],
+   q(siri) => [
+      q(6047),
+      q(0),
+      ],
+   q(siriano) => [
+      q(6216),
+      q(0),
+      ],
+   q(siriono) => [
+      q(6221),
+      q(0),
+      ],
+   q(sirmauri) => [
+      q(6227),
+      q(0),
+      ],
+   q(siroi) => [
+      q(6232),
+      q(0),
+      ],
+   q(sishee) => [
+      q(6039),
+      q(1),
+      ],
+   q(sissala) => [
+      q(6096),
+      q(0),
+      ],
+   q(sissano) => [
+      q(6243),
+      q(0),
+      ],
+   q(siuslaw) => [
+      q(6048),
+      q(0),
+      ],
+   q(sivandi) => [
+      q(6053),
+      q(0),
+      ],
+   q(siwai) => [
+      q(6051),
+      q(0),
+      ],
+   q(siwi) => [
+      q(6054),
+      q(0),
+      ],
+   q(siwu) => [
+      q(0734),
+      q(0),
+      ],
+   q(siyin chin) => [
+      q(1886),
+      q(0),
+      ],
+   q(skagit) => [
+      q(6071),
+      q(0),
+      ],
+   q(skalvian) => [
+      q(6299),
+      q(0),
+      ],
+   q(skepi creole dutch) => [
+      q(6092),
+      q(0),
+      ],
+   q(skolt sami) => [
+      q(0393),
+      q(0),
+      ],
+   q(skou) => [
+      q(6091),
+      q(0),
+      ],
+   q(slave (athapascan)) => [
+      q(0107),
+      q(0),
+      ],
+   q(slavic languages) => [
+      q(0384),
+      q(0),
+      ],
+   q(slavomolisano) => [
+      q(6296),
+      q(0),
+      ],
+   q(slovak) => [
+      q(0385),
+      q(0),
+      ],
+   q(slovakian sign language) => [
+      q(6295),
+      q(0),
+      ],
+   q(slovenian) => [
+      q(0386),
+      q(0),
+      ],
+   q(small flowery miao) => [
+      q(5988),
+      q(0),
+      ],
+   q(smarky kanum) => [
+      q(3732),
+      q(0),
+      ],
+   q(snohomish) => [
+      q(6146),
+      q(0),
+      ],
+   q(so) => [
+      q(6247),
+      q(0),
+      ],
+   q(so (democratic republic of congo)) => [
+      q(6159),
+      q(0),
+      ],
+   q(so'a) => [
+      q(6245),
+      q(0),
+      ],
+   q(sobei) => [
+      q(6158),
+      q(0),
+      ],
+   q(sochiapam chinantec) => [
+      q(1879),
+      q(0),
+      ],
+   q(sochiapan chinantec) => [
+      q(1879),
+      q(1),
+      ],
+   q(soga) => [
+      q(7448),
+      q(0),
+      ],
+   q(sogdian) => [
+      q(0397),
+      q(0),
+      ],
+   q(soi) => [
+      q(6164),
+      q(0),
+      ],
+   q(sok) => [
+      q(6081),
+      q(0),
+      ],
+   q(sokoro) => [
+      q(6165),
+      q(0),
+      ],
+   q(solano) => [
+      q(7499),
+      q(0),
+      ],
+   q(soli) => [
+      q(5926),
+      q(0),
+      ],
+   q(solong) => [
+      q(0556),
+      q(0),
+      ],
+   q(solos) => [
+      q(6166),
+      q(0),
+      ],
+   q(som) => [
+      q(6117),
+      q(0),
+      ],
+   q(somali) => [
+      q(0398),
+      q(0),
+      ],
+   q(somba-siawari) => [
+      q(1323),
+      q(0),
+      ],
+   q(somrai) => [
+      q(6170),
+      q(0),
+      ],
+   q(somray) => [
+      q(6129),
+      q(0),
+      ],
+   q(somyev) => [
+      q(3327),
+      q(0),
+      ],
+   q(sonaga) => [
+      q(7749),
+      q(0),
+      ],
+   q(sonde) => [
+      q(6012),
+      q(0),
+      ],
+   q(songe) => [
+      q(6168),
+      q(0),
+      ],
+   q(songhai languages) => [
+      q(0399),
+      q(0),
+      ],
+   q(songlai chin) => [
+      q(1874),
+      q(0),
+      ],
+   q(songo) => [
+      q(6167),
+      q(0),
+      ],
+   q(songomeno) => [
+      q(6161),
+      q(0),
+      ],
+   q(songoora) => [
+      q(6160),
+      q(0),
+      ],
+   q(sonha) => [
+      q(6163),
+      q(0),
+      ],
+   q(sonia) => [
+      q(6046),
+      q(0),
+      ],
+   q(soninke) => [
+      q(0396),
+      q(0),
+      ],
+   q(sonsorol) => [
+      q(6173),
+      q(0),
+      ],
+   q(soo) => [
+      q(6465),
+      q(0),
+      ],
+   q(sop) => [
+      q(6944),
+      q(0),
+      ],
+   q(soqotri) => [
+      q(6207),
+      q(0),
+      ],
+   q(sora) => [
+      q(6210),
+      q(0),
+      ],
+   q(sorbian languages) => [
+      q(0467),
+      q(0),
+      ],
+   q(sori-harengan) => [
+      q(5909),
+      q(0),
+      ],
+   q(sorkhei) => [
+      q(6203),
+      q(0),
+      ],
+   q(sorothaptic) => [
+      q(6330),
+      q(0),
+      ],
+   q(sorsogon ayta) => [
+      q(1007),
+      q(0),
+      ],
+   q(sos kundi) => [
+      q(5951),
+      q(0),
+      ],
+   q(sota kanum) => [
+      q(3593),
+      q(0),
+      ],
+   q(sotho, southern) => [
+      q(0400),
+      q(0),
+      ],
+   q(sou) => [
+      q(6204),
+      q(0),
+      ],
+   q(south african sign language) => [
+      q(5989),
+      q(0),
+      ],
+   q(south american indian (other)) => [
+      q(0367),
+      q(0),
+      ],
+   q(south american indian languages) => [
+      q(0367),
+      q(1),
+      ],
+   q(south awyu) => [
+      q(0978),
+      q(0),
+      ],
+   q(south azerbaijani) => [
+      q(1013),
+      q(0),
+      ],
+   q(south bolivian quechua) => [
+      q(5685),
+      q(0),
+      ],
+   q(south caucasian languages) => [
+      q(0496),
+      q(0),
+      ],
+   q(south central banda) => [
+      q(4006),
+      q(0),
+      ],
+   q(south central dinka) => [
+      q(2036),
+      q(0),
+      ],
+   q(south efate) => [
+      q(2285),
+      q(0),
+      ],
+   q(south fali) => [
+      q(2331),
+      q(0),
+      ],
+   q(south giziga) => [
+      q(2531),
+      q(0),
+      ],
+   q(south lembata) => [
+      q(3981),
+      q(0),
+      ],
+   q(south levantine arabic) => [
+      q(0717),
+      q(0),
+      ],
+   q(south marquesan) => [
+      q(4492),
+      q(0),
+      ],
+   q(south muyu) => [
+      q(3638),
+      q(0),
+      ],
+   q(south ndebele) => [
+      q(0303),
+      q(1),
+      ],
+   q(south nuaulu) => [
+      q(5148),
+      q(0),
+      ],
+   q(south picene) => [
+      q(6196),
+      q(0),
+      ],
+   q(south slavey) => [
+      q(7496),
+      q(0),
+      ],
+   q(south slavic languages) => [
+      q(0535),
+      q(0),
+      ],
+   q(south tairora) => [
+      q(5265),
+      q(0),
+      ],
+   q(south ucayali asheninka) => [
+      q(1841),
+      q(0),
+      ],
+   q(south watut) => [
+      q(4177),
+      q(0),
+      ],
+   q(south west bay) => [
+      q(6150),
+      q(0),
+      ],
+   q(southeast ambrym) => [
+      q(6783),
+      q(0),
+      ],
+   q(southeast babar) => [
+      q(6986),
+      q(0),
+      ],
+   q(southeast ijo) => [
+      q(2938),
+      q(0),
+      ],
+   q(southeast pashai) => [
+      q(5615),
+      q(0),
+      ],
+   q(southeast pashayi) => [
+      q(5615),
+      q(1),
+      ],
+   q(southeastern dinka) => [
+      q(2076),
+      q(0),
+      ],
+   q(southeastern ixtlan zapotec) => [
+      q(7917),
+      q(0),
+      ],
+   q(southeastern kolami) => [
+      q(4899),
+      q(0),
+      ],
+   q(southeastern nochixtlan mixtec) => [
+      q(4671),
+      q(0),
+      ],
+   q(southeastern pomo) => [
+      q(5562),
+      q(0),
+      ],
+   q(southeastern puebla nahuatl) => [
+      q(5037),
+      q(0),
+      ],
+   q(southeastern tarahumara) => [
+      q(6423),
+      q(0),
+      ],
+   q(southeastern tepehuan) => [
+      q(6268),
+      q(0),
+      ],
+   q(southern alta) => [
+      q(0675),
+      q(0),
+      ],
+   q(southern altai) => [
+      q(0016),
+      q(0),
+      ],
+   q(southern amami-oshima) => [
+      q(0782),
+      q(0),
+      ],
+   q(southern aymara) => [
+      q(0994),
+      q(0),
+      ],
+   q(southern bai) => [
+      q(1154),
+      q(0),
+      ],
+   q(southern balochi) => [
+      q(1066),
+      q(0),
+      ],
+   q(southern betsimisaraka malagasy) => [
+      q(1615),
+      q(0),
+      ],
+   q(southern binukidnon) => [
+      q(4577),
+      q(0),
+      ],
+   q(southern birifor) => [
+      q(1226),
+      q(0),
+      ],
+   q(southern bobo madare) => [
+      q(1558),
+      q(0),
+      ],
+   q(southern bontok) => [
+      q(5190),
+      q(0),
+      ],
+   q(southern carrier) => [
+      q(1643),
+      q(0),
+      ],
+   q(southern catanduanes bikol) => [
+      q(1291),
+      q(0),
+      ],
+   q(southern conchucos ancash quechua) => [
+      q(5726),
+      q(0),
+      ],
+   q(southern dagaare) => [
+      q(2004),
+      q(0),
+      ],
+   q(southern dong) => [
+      q(3456),
+      q(0),
+      ],
+   q(southern east cree) => [
+      q(1851),
+      q(0),
+      ],
+   q(southern ghale) => [
+      q(2505),
+      q(0),
+      ],
+   q(southern gondi) => [
+      q(2499),
+      q(0),
+      ],
+   q(southern grebo) => [
+      q(2619),
+      q(0),
+      ],
+   q(southern guiyang hmong) => [
+      q(2798),
+      q(0),
+      ],
+   q(southern guiyang miao) => [
+      q(2798),
+      q(1),
+      ],
+   q(southern haida) => [
+      q(2729),
+      q(0),
+      ],
+   q(southern hindko) => [
+      q(2801),
+      q(0),
+      ],
+   q(southern kalapuya) => [
+      q(6326),
+      q(0),
+      ],
+   q(southern kalinga) => [
+      q(3596),
+      q(0),
+      ],
+   q(southern kisi) => [
+      q(3612),
+      q(0),
+      ],
+   q(southern kiwai) => [
+      q(3381),
+      q(0),
+      ],
+   q(southern kurdish) => [
+      q(5949),
+      q(0),
+      ],
+   q(southern lolopo) => [
+      q(7753),
+      q(0),
+      ],
+   q(southern luri) => [
+      q(4093),
+      q(0),
+      ],
+   q(southern ma'di) => [
+      q(6144),
+      q(0),
+      ],
+   q(southern mashan hmong) => [
+      q(2777),
+      q(0),
+      ],
+   q(southern mashan miao) => [
+      q(2777),
+      q(1),
+      ],
+   q(southern mnong) => [
+      q(4426),
+      q(0),
+      ],
+   q(southern muji) => [
+      q(7689),
+      q(0),
+      ],
+   q(southern nago) => [
+      q(5043),
+      q(0),
+      ],
+   q(southern nambikuara) => [
+      q(4720),
+      q(0),
+      ],
+   q(southern ngbandi) => [
+      q(4760),
+      q(0),
+      ],
+   q(southern nicobarese) => [
+      q(4891),
+      q(0),
+      ],
+   q(southern nisu) => [
+      q(5068),
+      q(0),
+      ],
+   q(southern nuni) => [
+      q(5009),
+      q(0),
+      ],
+   q(southern ohlone) => [
+      q(1882),
+      q(0),
+      ],
+   q(southern one) => [
+      q(5315),
+      q(0),
+      ],
+   q(southern pame) => [
+      q(5529),
+      q(0),
+      ],
+   q(southern pashto) => [
+      q(5377),
+      q(0),
+      ],
+   q(southern pastaza quechua) => [
+      q(5691),
+      q(0),
+      ],
+   q(southern pomo) => [
+      q(5417),
+      q(0),
+      ],
+   q(southern puebla mixtec) => [
+      q(4315),
+      q(0),
+      ],
+   q(southern puget sound salish) => [
+      q(6100),
+      q(0),
+      ],
+   q(southern pumi) => [
+      q(5516),
+      q(0),
+      ],
+   q(southern qiandong miao) => [
+      q(2793),
+      q(0),
+      ],
+   q(southern qiang) => [
+      q(5730),
+      q(0),
+      ],
+   q(southern rengma naga) => [
+      q(5052),
+      q(0),
+      ],
+   q(southern rincon zapotec) => [
+      q(7951),
+      q(0),
+      ],
+   q(southern roglai) => [
+      q(5782),
+      q(0),
+      ],
+   q(southern sama) => [
+      q(6230),
+      q(0),
+      ],
+   q(southern sami) => [
+      q(0387),
+      q(0),
+      ],
+   q(southern samo) => [
+      q(5905),
+      q(0),
+      ],
+   q(southern sierra miwok) => [
+      q(6074),
+      q(0),
+      ],
+   q(southern sorsoganon) => [
+      q(6225),
+      q(0),
+      ],
+   q(southern sotho) => [
+      q(0400),
+      q(1),
+      ],
+   q(southern subanen) => [
+      q(3793),
+      q(0),
+      ],
+   q(southern thai) => [
+      q(6172),
+      q(0),
+      ],
+   q(southern tiwa) => [
+      q(6535),
+      q(0),
+      ],
+   q(southern toussian) => [
+      q(7127),
+      q(0),
+      ],
+   q(southern tujia) => [
+      q(6545),
+      q(0),
+      ],
+   q(southern tutchone) => [
+      q(6409),
+      q(0),
+      ],
+   q(southern uzbek) => [
+      q(6969),
+      q(0),
+      ],
+   q(southern yamphu) => [
+      q(4052),
+      q(0),
+      ],
+   q(southern yukaghir) => [
+      q(7780),
+      q(0),
+      ],
+   q(southwest gbaya) => [
+      q(2637),
+      q(0),
+      ],
+   q(southwest palawano) => [
+      q(5504),
+      q(0),
+      ],
+   q(southwest pashai) => [
+      q(5614),
+      q(0),
+      ],
+   q(southwest pashayi) => [
+      q(5614),
+      q(1),
+      ],
+   q(southwest tanna) => [
+      q(5136),
+      q(0),
+      ],
+   q(southwestern bontok) => [
+      q(6987),
+      q(0),
+      ],
+   q(southwestern dinka) => [
+      q(2044),
+      q(0),
+      ],
+   q(southwestern fars) => [
+      q(2337),
+      q(0),
+      ],
+   q(southwestern guiyang hmong) => [
+      q(2783),
+      q(0),
+      ],
+   q(southwestern huishui hmong) => [
+      q(2784),
+      q(0),
+      ],
+   q(southwestern huishui miao) => [
+      q(2784),
+      q(1),
+      ],
+   q(southwestern nisu) => [
+      q(5084),
+      q(0),
+      ],
+   q(southwestern tarahumara) => [
+      q(6806),
+      q(0),
+      ],
+   q(southwestern tepehuan) => [
+      q(6566),
+      q(0),
+      ],
+   q(southwestern tlaxiaco mixtec) => [
+      q(4208),
+      q(0),
+      ],
+   q(sowa) => [
+      q(6319),
+      q(0),
+      ],
+   q(sowanda) => [
+      q(6174),
+      q(0),
+      ],
+   q(sowari) => [
+      q(2098),
+      q(1),
+      ],
+   q(soyaltepec mazatec) => [
+      q(7031),
+      q(0),
+      ],
+   q(soyaltepec mixtec) => [
+      q(7032),
+      q(0),
+      ],
+   q(spanish) => [
+      q(0401),
+      q(0),
+      ],
+   q(spanish sign language) => [
+      q(6244),
+      q(0),
+      ],
+   q(spiti bhoti) => [
+      q(6193),
+      q(0),
+      ],
+   q(spokane) => [
+      q(6188),
+      q(0),
+      ],
+   q(squamish) => [
+      q(6208),
+      q(0),
+      ],
+   q(sranan tongo) => [
+      q(0403),
+      q(0),
+      ],
+   q(sri lankan creole malay) => [
+      q(5933),
+      q(0),
+      ],
+   q(sri lankan sign language) => [
+      q(6206),
+      q(0),
+      ],
+   q(standard arabic) => [
+      q(0868),
+      q(0),
+      ],
+   q(standard estonian) => [
+      q(2236),
+      q(0),
+      ],
+   q(standard latvian) => [
+      q(4096),
+      q(0),
+      ],
+   q(standard malay) => [
+      q(7950),
+      q(0),
+      ],
+   q(standard moroccan tamazight) => [
+      q(0480),
+      q(0),
+      ],
+   q(stellingwerfs) => [
+      q(6264),
+      q(0),
+      ],
+   q(stod bhoti) => [
+      q(5922),
+      q(0),
+      ],
+   q(stodsde) => [
+      q(3097),
+      q(0),
+      ],
+   q(stoney) => [
+      q(6267),
+      q(0),
+      ],
+   q(straits salish) => [
+      q(6270),
+      q(0),
+      ],
+   q(suabo) => [
+      q(6355),
+      q(0),
+      ],
+   q(suarmin) => [
+      q(5975),
+      q(0),
+      ],
+   q(suau) => [
+      q(6312),
+      q(0),
+      ],
+   q(suba) => [
+      q(6322),
+      q(0),
+      ],
+   q(suba-simbiti) => [
+      q(6231),
+      q(0),
+      ],
+   q(subiya) => [
+      q(5920),
+      q(0),
+      ],
+   q(subtiaba) => [
+      q(6286),
+      q(0),
+      ],
+   q(sudanese arabic) => [
+      q(0836),
+      q(0),
+      ],
+   q(sudanese creole arabic) => [
+      q(5426),
+      q(0),
+      ],
+   q(sudest) => [
+      q(6485),
+      q(0),
+      ],
+   q(sudovian) => [
+      q(7505),
+      q(0),
+      ],
+   q(suena) => [
+      q(6280),
+      q(0),
+      ],
+   q(suga) => [
+      q(5997),
+      q(0),
+      ],
+   q(suganga) => [
+      q(6281),
+      q(0),
+      ],
+   q(sugut dusun) => [
+      q(3785),
+      q(0),
+      ],
+   q(sui) => [
+      q(6305),
+      q(0),
+      ],
+   q(suki) => [
+      q(6282),
+      q(0),
+      ],
+   q(suku) => [
+      q(6278),
+      q(0),
+      ],
+   q(sukuma) => [
+      q(0408),
+      q(0),
+      ],
+   q(sukur) => [
+      q(6338),
+      q(0),
+      ],
+   q(sukurum) => [
+      q(7952),
+      q(0),
+      ],
+   q(sula) => [
+      q(6354),
+      q(0),
+      ],
+   q(sulka) => [
+      q(6277),
+      q(0),
+      ],
+   q(sulod) => [
+      q(6214),
+      q(0),
+      ],
+   q(suma) => [
+      q(6201),
+      q(0),
+      ],
+   q(sumariup) => [
+      q(6050),
+      q(0),
+      ],
+   q(sumau) => [
+      q(6052),
+      q(0),
+      ],
+   q(sumbawa) => [
+      q(6131),
+      q(0),
+      ],
+   q(sumbwa) => [
+      q(6288),
+      q(0),
+      ],
+   q(sumerian) => [
+      q(0411),
+      q(0),
+      ],
+   q(sumi naga) => [
+      q(5076),
+      q(0),
+      ],
+   q(sumtu chin) => [
+      q(1884),
+      q(0),
+      ],
+   q(sunam) => [
+      q(6239),
+      q(0),
+      ],
+   q(sundanese) => [
+      q(0409),
+      q(0),
+      ],
+   q(sunum) => [
+      q(7698),
+      q(1),
+      ],
+   q(sunwar) => [
+      q(6290),
+      q(0),
+      ],
+   q(suomenruotsalainen viittomakieli) => [
+      q(2379),
+      q(2),
+      ],
+   q(suoy) => [
+      q(6342),
+      q(0),
+      ],
+   q(supyire senoufo) => [
+      q(6189),
+      q(0),
+      ],
+   q(sur) => [
+      q(6439),
+      q(0),
+      ],
+   q(surayt) => [
+      q(6707),
+      q(1),
+      ],
+   q(surbakhal) => [
+      q(5911),
+      q(0),
+      ],
+   q(surgujia) => [
+      q(5998),
+      q(0),
+      ],
+   q(suri) => [
+      q(6284),
+      q(0),
+      ],
+   q(surigaonon) => [
+      q(5993),
+      q(0),
+      ],
+   q(surjapuri) => [
+      q(6065),
+      q(0),
+      ],
+   q(sursurunga) => [
+      q(6009),
+      q(0),
+      ],
+   q(suruaha) => [
+      q(6320),
+      q(0),
+      ],
+   q(surubu) => [
+      q(5946),
+      q(0),
+      ],
+   q(surui) => [
+      q(6224),
+      q(0),
+      ],
+   q(surui do para) => [
+      q(4201),
+      q(0),
+      ],
+   q(susquehannock) => [
+      q(6202),
+      q(0),
+      ],
+   q(susu) => [
+      q(0410),
+      q(0),
+      ],
+   q(susuami) => [
+      q(6249),
+      q(0),
+      ],
+   q(suundi) => [
+      q(5950),
+      q(0),
+      ],
+   q(suwawa) => [
+      q(6317),
+      q(0),
+      ],
+   q(suya) => [
+      q(6289),
+      q(0),
+      ],
+   q(svan) => [
+      q(6291),
+      q(0),
+      ],
+   q(swabian) => [
+      q(6303),
+      q(0),
+      ],
+   q(swahili) => [
+      q(0412),
+      q(0),
+      ],
+   q(swahili (individual language)) => [
+      q(6304),
+      q(0),
+      ],
+   q(swahili (macrolanguage)) => [
+      q(0412),
+      q(1),
+      ],
+   q(swampy cree) => [
+      q(1885),
+      q(0),
+      ],
+   q(swati) => [
+      q(0407),
+      q(0),
+      ],
+   q(swedish) => [
+      q(0413),
+      q(0),
+      ],
+   q(swedish sign language) => [
+      q(6308),
+      q(0),
+      ],
+   q(swiss german) => [
+      q(0166),
+      q(0),
+      ],
+   q(swiss-french sign language) => [
+      q(6246),
+      q(0),
+      ],
+   q(swiss-german sign language) => [
+      q(5995),
+      q(0),
+      ],
+   q(swiss-italian sign language) => [
+      q(6098),
+      q(0),
+      ],
+   q(swo) => [
+      q(6175),
+      q(0),
+      ],
+   q(syenara senoufo) => [
+      q(6033),
+      q(0),
+      ],
+   q(sylheti) => [
+      q(6339),
+      q(0),
+      ],
+   q(syriac) => [
+      q(0415),
+      q(0),
+      ],
+   q(t'en) => [
+      q(6422),
+      q(0),
+      ],
+   q(ta'izzi-adeni arabic) => [
+      q(0594),
+      q(0),
+      ],
+   q(taabwa) => [
+      q(6370),
+      q(0),
+      ],
+   q(tabaa zapotec) => [
+      q(7822),
+      q(0),
+      ],
+   q(tabaru) => [
+      q(6403),
+      q(0),
+      ],
+   q(tabasco chontal) => [
+      q(1721),
+      q(0),
+      ],
+   q(tabasco nahuatl) => [
+      q(4862),
+      q(0),
+      ],
+   q(tabasco zoque) => [
+      q(7911),
+      q(0),
+      ],
+   q(tabassaran) => [
+      q(6359),
+      q(0),
+      ],
+   q(tabla) => [
+      q(6621),
+      q(0),
+      ],
+   q(tabo) => [
+      q(3500),
+      q(0),
+      ],
+   q(tabriak) => [
+      q(6851),
+      q(0),
+      ],
+   q(tacahua mixtec) => [
+      q(7524),
+      q(0),
+      ],
+   q(tacana) => [
+      q(6611),
+      q(0),
+      ],
+   q(tachawit) => [
+      q(6032),
+      q(0),
+      ],
+   q(tachelhit) => [
+      q(6017),
+      q(0),
+      ],
+   q(tachoni) => [
+      q(4075),
+      q(0),
+      ],
+   q(tadaksahak) => [
+      q(2155),
+      q(0),
+      ],
+   q(tadyawan) => [
+      q(6449),
+      q(0),
+      ],
+   q(tae') => [
+      q(5837),
+      q(0),
+      ],
+   q(tafi) => [
+      q(6408),
+      q(0),
+      ],
+   q(tagabawa) => [
+      q(1178),
+      q(0),
+      ],
+   q(tagakaulo) => [
+      q(3435),
+      q(0),
+      ],
+   q(tagal murut) => [
+      q(4620),
+      q(0),
+      ],
+   q(tagalaka) => [
+      q(6496),
+      q(0),
+      ],
+   q(tagalog) => [
+      q(0425),
+      q(0),
+      ],
+   q(tagargrent) => [
+      q(5334),
+      q(0),
+      ],
+   q(tagbanwa) => [
+      q(6401),
+      q(0),
+      ],
+   q(tagbu) => [
+      q(6392),
+      q(0),
+      ],
+   q(tagdal) => [
+      q(6428),
+      q(0),
+      ],
+   q(tagin) => [
+      q(6483),
+      q(0),
+      ],
+   q(tagish) => [
+      q(6494),
+      q(0),
+      ],
+   q(tagoi) => [
+      q(6364),
+      q(0),
+      ],
+   q(tagwana senoufo) => [
+      q(6493),
+      q(0),
+      ],
+   q(tahaggart tamahaq) => [
+      q(6513),
+      q(0),
+      ],
+   q(tahitian) => [
+      q(0416),
+      q(0),
+      ],
+   q(tahltan) => [
+      q(6511),
+      q(0),
+      ],
+   q(tai) => [
+      q(6376),
+      q(0),
+      ],
+   q(tai daeng) => [
+      q(6838),
+      q(0),
+      ],
+   q(tai dam) => [
+      q(1297),
+      q(0),
+      ],
+   q(tai do) => [
+      q(6834),
+      q(0),
+      ],
+   q(tai don) => [
+      q(6799),
+      q(0),
+      ],
+   q(tai hang tong) => [
+      q(6497),
+      q(0),
+      ],
+   q(tai hongjin) => [
+      q(6537),
+      q(0),
+      ],
+   q(tai laing) => [
+      q(6541),
+      q(0),
+      ],
+   q(tai languages) => [
+      q(0417),
+      q(0),
+      ],
+   q(tai loi) => [
+      q(6579),
+      q(0),
+      ],
+   q(tai long) => [
+      q(6502),
+      q(0),
+      ],
+   q(tai mene) => [
+      q(6601),
+      q(0),
+      ],
+   q(tai nua) => [
+      q(6431),
+      q(0),
+      ],
+   q(tai pao) => [
+      q(6666),
+      q(0),
+      ],
+   q(tai thanh) => [
+      q(6598),
+      q(0),
+      ],
+   q(tai ya) => [
+      q(1918),
+      q(0),
+      ],
+   q(taiap) => [
+      q(2608),
+      q(0),
+      ],
+   q(taikat) => [
+      q(0829),
+      q(0),
+      ],
+   q(tainae) => [
+      q(0666),
+      q(0),
+      ],
+   q(taino) => [
+      q(6625),
+      q(0),
+      ],
+   q(tairaha) => [
+      q(1567),
+      q(0),
+      ],
+   q(tairuma) => [
+      q(6854),
+      q(0),
+      ],
+   q(taita) => [
+      q(1952),
+      q(0),
+      ],
+   q(taiwan sign language) => [
+      q(6727),
+      q(0),
+      ],
+   q(taje) => [
+      q(5407),
+      q(0),
+      ],
+   q(tajik) => [
+      q(0424),
+      q(0),
+      ],
+   q(tajiki arabic) => [
+      q(0566),
+      q(0),
+      ],
+   q(tajio) => [
+      q(6437),
+      q(0),
+      ],
+   q(tajuasohn) => [
+      q(6538),
+      q(0),
+      ],
+   q(takelma) => [
+      q(6554),
+      q(0),
+      ],
+   q(takestani) => [
+      q(6559),
+      q(0),
+      ],
+   q(takia) => [
+      q(6382),
+      q(0),
+      ],
+   q(takua) => [
+      q(6565),
+      q(0),
+      ],
+   q(takuu) => [
+      q(4872),
+      q(0),
+      ],
+   q(takwane) => [
+      q(6551),
+      q(0),
+      ],
+   q(tal) => [
+      q(6367),
+      q(0),
+      ],
+   q(tala) => [
+      q(6366),
+      q(0),
+      ],
+   q(talaandig) => [
+      q(1257),
+      q(1),
+      ],
+   q(talaud) => [
+      q(6569),
+      q(0),
+      ],
+   q(taliabu) => [
+      q(6584),
+      q(0),
+      ],
+   q(talieng) => [
+      q(6433),
+      q(0),
+      ],
+   q(talinga-bwisi) => [
+      q(6572),
+      q(0),
+      ],
+   q(talise) => [
+      q(6580),
+      q(0),
+      ],
+   q(talodi) => [
+      q(6577),
+      q(0),
+      ],
+   q(taloki) => [
+      q(6573),
+      q(0),
+      ],
+   q(talondo') => [
+      q(6576),
+      q(0),
+      ],
+   q(talossan) => [
+      q(6847),
+      q(0),
+      ],
+   q(talu) => [
+      q(7757),
+      q(0),
+      ],
+   q(talysh) => [
+      q(6586),
+      q(0),
+      ],
+   q(tama (chad)) => [
+      q(6587),
+      q(0),
+      ],
+   q(tama (colombia)) => [
+      q(6460),
+      q(0),
+      ],
+   q(tamagario) => [
+      q(6411),
+      q(0),
+      ],
+   q(taman (indonesia)) => [
+      q(6599),
+      q(0),
+      ],
+   q(taman (myanmar)) => [
+      q(6415),
+      q(0),
+      ],
+   q(tamanaku) => [
+      q(6610),
+      q(0),
+      ],
+   q(tamashek) => [
+      q(0434),
+      q(0),
+      ],
+   q(tamasheq) => [
+      q(6371),
+      q(0),
+      ],
+   q(tamazola mixtec) => [
+      q(7038),
+      q(0),
+      ],
+   q(tambas) => [
+      q(6438),
+      q(0),
+      ],
+   q(tambora) => [
+      q(7564),
+      q(0),
+      ],
+   q(tambotalo) => [
+      q(6581),
+      q(0),
+      ],
+   q(tambunan dusun) => [
+      q(3786),
+      q(0),
+      ],
+   q(tami) => [
+      q(6609),
+      q(0),
+      ],
+   q(tamil) => [
+      q(0418),
+      q(0),
+      ],
+   q(tamki) => [
+      q(6377),
+      q(0),
+      ],
+   q(tamnim citak) => [
+      q(6597),
+      q(0),
+      ],
+   q(tampias lobu) => [
+      q(4034),
+      q(0),
+      ],
+   q(tampuan) => [
+      q(6671),
+      q(0),
+      ],
+   q(tampulma) => [
+      q(6664),
+      q(0),
+      ],
+   q(tanacross) => [
+      q(6406),
+      q(0),
+      ],
+   q(tanahmerah) => [
+      q(6416),
+      q(0),
+      ],
+   q(tanaina) => [
+      q(6471),
+      q(0),
+      ],
+   q(tanapag) => [
+      q(6672),
+      q(0),
+      ],
+   q(tandaganon) => [
+      q(6484),
+      q(0),
+      ],
+   q(tandia) => [
+      q(6618),
+      q(0),
+      ],
+   q(tandroy-mahafaly malagasy) => [
+      q(6448),
+      q(0),
+      ],
+   q(tanema) => [
+      q(6632),
+      q(0),
+      ],
+   q(tangale) => [
+      q(6368),
+      q(0),
+      ],
+   q(tangchangya) => [
+      q(6630),
+      q(0),
+      ],
+   q(tanggu) => [
+      q(6491),
+      q(0),
+      ],
+   q(tangkhul naga (india)) => [
+      q(4967),
+      q(0),
+      ],
+   q(tangkhul naga (myanmar)) => [
+      q(5101),
+      q(0),
+      ],
+   q(tangko) => [
+      q(6564),
+      q(0),
+      ],
+   q(tanglang) => [
+      q(7758),
+      q(0),
+      ],
+   q(tangoa) => [
+      q(6486),
+      q(0),
+      ],
+   q(tanguat) => [
+      q(6397),
+      q(0),
+      ],
+   q(tangut) => [
+      q(6816),
+      q(0),
+      ],
+   q(tanimbili) => [
+      q(6384),
+      q(0),
+      ],
+   q(tanimuca-retuara) => [
+      q(6613),
+      q(0),
+      ],
+   q(tanjijili) => [
+      q(6879),
+      q(0),
+      ],
+   q(tankarana malagasy) => [
+      q(7427),
+      q(1),
+      ],
+   q(tanosy malagasy) => [
+      q(6829),
+      q(0),
+      ],
+   q(tanudan kalinga) => [
+      q(3465),
+      q(0),
+      ],
+   q(tanzanian sign language) => [
+      q(6844),
+      q(0),
+      ],
+   q(tapeba) => [
+      q(6381),
+      q(0),
+      ],
+   q(tapei) => [
+      q(0647),
+      q(0),
+      ],
+   q(tapiete) => [
+      q(6661),
+      q(0),
+      ],
+   q(tapirape) => [
+      q(6363),
+      q(0),
+      ],
+   q(tarao naga) => [
+      q(6701),
+      q(0),
+      ],
+   q(tareng) => [
+      q(6488),
+      q(0),
+      ],
+   q(tariana) => [
+      q(6362),
+      q(0),
+      ],
+   q(tarifit) => [
+      q(5788),
+      q(0),
+      ],
+   q(tarjumo) => [
+      q(6819),
+      q(0),
+      ],
+   q(tarok) => [
+      q(7627),
+      q(0),
+      ],
+   q(taroko) => [
+      q(6708),
+      q(0),
+      ],
+   q(tarpia) => [
+      q(6659),
+      q(0),
+      ],
+   q(tartessian) => [
+      q(6824),
+      q(0),
+      ],
+   q(tasawaq) => [
+      q(6805),
+      q(0),
+      ],
+   q(tase naga) => [
+      q(5082),
+      q(0),
+      ],
+   q(tasmanian) => [
+      q(7529),
+      q(0),
+      ],
+   q(tasmate) => [
+      q(6605),
+      q(0),
+      ],
+   q(tataltepec chatino) => [
+      q(1888),
+      q(0),
+      ],
+   q(tatana) => [
+      q(6828),
+      q(0),
+      ],
+   q(tatar) => [
+      q(0419),
+      q(0),
+      ],
+   q(tatuyo) => [
+      q(6375),
+      q(0),
+      ],
+   q(tauade) => [
+      q(6738),
+      q(0),
+      ],
+   q(taulil) => [
+      q(6767),
+      q(0),
+      ],
+   q(taungyo) => [
+      q(6418),
+      q(0),
+      ],
+   q(taupota) => [
+      q(6656),
+      q(0),
+      ],
+   q(tause) => [
+      q(6361),
+      q(0),
+      ],
+   q(taushiro) => [
+      q(6704),
+      q(0),
+      ],
+   q(tausug) => [
+      q(6718),
+      q(0),
+      ],
+   q(tauya) => [
+      q(6830),
+      q(0),
+      ],
+   q(taveta) => [
+      q(6787),
+      q(0),
+      ],
+   q(tavoyan) => [
+      q(6785),
+      q(0),
+      ],
+   q(tavringer romani) => [
+      q(5823),
+      q(0),
+      ],
+   q(tawala) => [
+      q(6394),
+      q(0),
+      ],
+   q(tawallammat tamajaq) => [
+      q(6751),
+      q(0),
+      ],
+   q(tawande) => [
+      q(7527),
+      q(0),
+      ],
+   q(tawang monpa) => [
+      q(6801),
+      q(0),
+      ],
+   q(tawara) => [
+      q(6800),
+      q(0),
+      ],
+   q(taworta) => [
+      q(6395),
+      q(0),
+      ],
+   q(tawoyan) => [
+      q(6811),
+      q(0),
+      ],
+   q(tawr chin) => [
+      q(6419),
+      q(0),
+      ],
+   q(tay) => [
+      q(6843),
+      q(0),
+      ],
+   q(tay boi) => [
+      q(6373),
+      q(0),
+      ],
+   q(tay khang) => [
+      q(6629),
+      q(0),
+      ],
+   q(tay sa pa) => [
+      q(6839),
+      q(0),
+      ],
+   q(tay tac) => [
+      q(6840),
+      q(0),
+      ],
+   q(tayabas ayta) => [
+      q(1010),
+      q(0),
+      ],
+   q(tayart tamajeq) => [
+      q(6516),
+      q(0),
+      ],
+   q(tayo) => [
+      q(1762),
+      q(0),
+      ],
+   q(taznatit) => [
+      q(2623),
+      q(0),
+      ],
+   q(tboli) => [
+      q(6391),
+      q(0),
+      ],
+   q(tchitchege) => [
+      q(6414),
+      q(0),
+      ],
+   q(tchumbuli) => [
+      q(1398),
+      q(0),
+      ],
+   q(te'un) => [
+      q(6782),
+      q(0),
+      ],
+   q(teanu) => [
+      q(6563),
+      q(0),
+      ],
+   q(tebi) => [
+      q(2094),
+      q(1),
+      ],
+   q(tebul sign language) => [
+      q(6733),
+      q(0),
+      ],
+   q(tebul ure dogon) => [
+      q(2168),
+      q(0),
+      ],
+   q(tecpatlan totonac) => [
+      q(6424),
+      q(0),
+      ],
+   q(tedaga) => [
+      q(6773),
+      q(0),
+      ],
+   q(tedim chin) => [
+      q(1890),
+      q(0),
+      ],
+   q(tee) => [
+      q(6557),
+      q(0),
+      ],
+   q(teen) => [
+      q(4029),
+      q(0),
+      ],
+   q(tefaro) => [
+      q(6472),
+      q(0),
+      ],
+   q(tegali) => [
+      q(5750),
+      q(0),
+      ],
+   q(tehit) => [
+      q(3540),
+      q(0),
+      ],
+   q(tehuelche) => [
+      q(6457),
+      q(0),
+      ],
+   q(tejalapan zapotec) => [
+      q(7961),
+      q(0),
+      ],
+   q(teke-ebo) => [
+      q(2215),
+      q(0),
+      ],
+   q(teke-fuumu) => [
+      q(2917),
+      q(0),
+      ],
+   q(teke-kukuya) => [
+      q(3425),
+      q(0),
+      ],
+   q(teke-laali) => [
+      q(3964),
+      q(0),
+      ],
+   q(teke-nzikou) => [
+      q(5182),
+      q(0),
+      ],
+   q(teke-tege) => [
+      q(6456),
+      q(0),
+      ],
+   q(teke-tsaayi) => [
+      q(6833),
+      q(0),
+      ],
+   q(teke-tyee) => [
+      q(6842),
+      q(0),
+      ],
+   q(tektiteko) => [
+      q(6737),
+      q(0),
+      ],
+   q(tela-masbuar) => [
+      q(6784),
+      q(0),
+      ],
+   q(telefol) => [
+      q(6570),
+      q(0),
+      ],
+   q(telugu) => [
+      q(0420),
+      q(0),
+      ],
+   q(teluti) => [
+      q(6582),
+      q(0),
+      ],
+   q(tem) => [
+      q(3241),
+      q(0),
+      ],
+   q(temacine tamazight) => [
+      q(6544),
+      q(0),
+      ],
+   q(temascaltepec nahuatl) => [
+      q(4878),
+      q(0),
+      ],
+   q(tembe) => [
+      q(6677),
+      q(0),
+      ],
+   q(tembo (kitembo)) => [
+      q(6398),
+      q(0),
+      ],
+   q(tembo (motembo)) => [
+      q(6607),
+      q(0),
+      ],
+   q(teme) => [
+      q(6441),
+      q(0),
+      ],
+   q(temein) => [
+      q(6463),
+      q(0),
+      ],
+   q(temi) => [
+      q(6177),
+      q(0),
+      ],
+   q(temiar) => [
+      q(6450),
+      q(0),
+      ],
+   q(temoaya otomi) => [
+      q(5328),
+      q(0),
+      ],
+   q(temoq) => [
+      q(6600),
+      q(0),
+      ],
+   q(tempasuk dusun) => [
+      q(6446),
+      q(0),
+      ],
+   q(temuan) => [
+      q(6608),
+      q(0),
+      ],
+   q(tena) => [
+      q(1140),
+      q(1),
+      ],
+   q(tena lowland quichua) => [
+      q(5696),
+      q(0),
+      ],
+   q(tenango otomi) => [
+      q(5324),
+      q(0),
+      ],
+   q(tene kan dogon) => [
+      q(2161),
+      q(0),
+      ],
+   q(tenggarong kutai malay) => [
+      q(7014),
+      q(0),
+      ],
+   q(tengger) => [
+      q(6464),
+      q(0),
+      ],
+   q(tenharim) => [
+      q(5351),
+      q(0),
+      ],
+   q(tenino) => [
+      q(6680),
+      q(0),
+      ],
+   q(tenis) => [
+      q(6627),
+      q(0),
+      ],
+   q(tennet) => [
+      q(6468),
+      q(0),
+      ],
+   q(teop) => [
+      q(6528),
+      q(0),
+      ],
+   q(teor) => [
+      q(6466),
+      q(0),
+      ],
+   q(tepecano) => [
+      q(6462),
+      q(0),
+      ],
+   q(tepetotutla chinantec) => [
+      q(1805),
+      q(0),
+      ],
+   q(tepeuxila cuicatec) => [
+      q(1921),
+      q(0),
+      ],
+   q(tepinapa chinantec) => [
+      q(1891),
+      q(0),
+      ],
+   q(tepo krumen) => [
+      q(6453),
+      q(0),
+      ],
+   q(ter sami) => [
+      q(6068),
+      q(0),
+      ],
+   q(tera) => [
+      q(6752),
+      q(0),
+      ],
+   q(terebu) => [
+      q(6689),
+      q(0),
+      ],
+   q(terei) => [
+      q(1506),
+      q(0),
+      ],
+   q(tereno) => [
+      q(0422),
+      q(0),
+      ],
+   q(teressa) => [
+      q(6455),
+      q(0),
+      ],
+   q(tereweng) => [
+      q(6798),
+      q(0),
+      ],
+   q(teribe) => [
+      q(6473),
+      q(0),
+      ],
+   q(terik) => [
+      q(6452),
+      q(0),
+      ],
+   q(termanu) => [
+      q(6808),
+      q(0),
+      ],
+   q(ternate) => [
+      q(6474),
+      q(0),
+      ],
+   q(ternateno) => [
+      q(6593),
+      q(0),
+      ],
+   q(tesaka malagasy) => [
+      q(6553),
+      q(0),
+      ],
+   q(tese) => [
+      q(3263),
+      q(0),
+      ],
+   q(teshenawa) => [
+      q(6794),
+      q(0),
+      ],
+   q(teso) => [
+      q(6461),
+      q(0),
+      ],
+   q(tetela) => [
+      q(6574),
+      q(0),
+      ],
+   q(tetelcingo nahuatl) => [
+      q(4866),
+      q(0),
+      ],
+   q(tetete) => [
+      q(6451),
+      q(0),
+      ],
+   q(tetum) => [
+      q(0423),
+      q(0),
+      ],
+   q(tetun dili) => [
+      q(6445),
+      q(0),
+      ],
+   q(teutila cuicatec) => [
+      q(1917),
+      q(0),
+      ],
+   q(tewa (indonesia)) => [
+      q(6796),
+      q(0),
+      ],
+   q(tewa (usa)) => [
+      q(6467),
+      q(0),
+      ],
+   q(tewe) => [
+      q(6810),
+      q(0),
+      ],
+   q(texcatepec otomi) => [
+      q(5331),
+      q(0),
+      ],
+   q(texistepec popoluca) => [
+      q(5565),
+      q(0),
+      ],
+   q(texmelucan zapotec) => [
+      q(7939),
+      q(0),
+      ],
+   q(tezoatlan mixtec) => [
+      q(4648),
+      q(0),
+      ],
+   q(tha) => [
+      q(6515),
+      q(0),
+      ],
+   q(thachanadan) => [
+      q(6506),
+      q(0),
+      ],
+   q(thado chin) => [
+      q(6427),
+      q(0),
+      ],
+   q(thai) => [
+      q(0426),
+      q(0),
+      ],
+   q(thai sign language) => [
+      q(6725),
+      q(0),
+      ],
+   q(thai song) => [
+      q(6157),
+      q(0),
+      ],
+   q(thaiphum chin) => [
+      q(1893),
+      q(0),
+      ],
+   q(thakali) => [
+      q(6510),
+      q(0),
+      ],
+   q(thangal naga) => [
+      q(4930),
+      q(0),
+      ],
+   q(thangmi) => [
+      q(6500),
+      q(0),
+      ],
+   q(thao) => [
+      q(6234),
+      q(0),
+      ],
+   q(tharaka) => [
+      q(6503),
+      q(0),
+      ],
+   q(thawa) => [
+      q(7526),
+      q(0),
+      ],
+   q(thayore) => [
+      q(6498),
+      q(0),
+      ],
+   q(thaypan) => [
+      q(6837),
+      q(0),
+      ],
+   q(thiin) => [
+      q(2933),
+      q(0),
+      ],
+   q(tho) => [
+      q(6650),
+      q(0),
+      ],
+   q(thompson) => [
+      q(6507),
+      q(0),
+      ],
+   q(thopho) => [
+      q(7759),
+      q(0),
+      ],
+   q(thracian) => [
+      q(6817),
+      q(0),
+      ],
+   q(thu lao) => [
+      q(6835),
+      q(0),
+      ],
+   q(thudam) => [
+      q(6514),
+      q(0),
+      ],
+   q(thulung) => [
+      q(6435),
+      q(0),
+      ],
+   q(thurawal) => [
+      q(6387),
+      q(0),
+      ],
+   q(thuri) => [
+      q(6512),
+      q(0),
+      ],
+   q(tiagbamrin aizi) => [
+      q(0681),
+      q(0),
+      ],
+   q(tiale) => [
+      q(4424),
+      q(0),
+      ],
+   q(tiang) => [
+      q(6389),
+      q(0),
+      ],
+   q(tibea) => [
+      q(4858),
+      q(0),
+      ],
+   q(tibetan) => [
+      q(0427),
+      q(0),
+      ],
+   q(tibeto-burman languages) => [
+      q(0527),
+      q(0),
+      ],
+   q(tichurong) => [
+      q(6417),
+      q(0),
+      ],
+   q(ticuna) => [
+      q(6405),
+      q(0),
+      ],
+   q(tidaa mixtec) => [
+      q(4578),
+      q(0),
+      ],
+   q(tidikelt tamazight) => [
+      q(6517),
+      q(0),
+      ],
+   q(tidong) => [
+      q(6519),
+      q(0),
+      ],
+   q(tidore) => [
+      q(6786),
+      q(0),
+      ],
+   q(tiefo) => [
+      q(6530),
+      q(0),
+      ],
+   q(tiemacewe bozo) => [
+      q(1364),
+      q(0),
+      ],
+   q(tiene) => [
+      q(6522),
+      q(0),
+      ],
+   q(tieyaxo bozo) => [
+      q(1374),
+      q(0),
+      ],
+   q(tifal) => [
+      q(6520),
+      q(0),
+      ],
+   q(tigak) => [
+      q(6477),
+      q(0),
+      ],
+   q(tigon mbembe) => [
+      q(5177),
+      q(0),
+      ],
+   q(tigre) => [
+      q(0428),
+      q(0),
+      ],
+   q(tigrinya) => [
+      q(0429),
+      q(0),
+      ],
+   q(tii) => [
+      q(6823),
+      q(0),
+      ],
+   q(tijaltepec mixtec) => [
+      q(7516),
+      q(0),
+      ],
+   q(tikar) => [
+      q(6524),
+      q(0),
+      ],
+   q(tikopia) => [
+      q(6556),
+      q(0),
+      ],
+   q(tilapa otomi) => [
+      q(5322),
+      q(0),
+      ],
+   q(tillamook) => [
+      q(6525),
+      q(0),
+      ],
+   q(tilquiapan zapotec) => [
+      q(7960),
+      q(0),
+      ],
+   q(tilung) => [
+      q(6523),
+      q(0),
+      ],
+   q(tima) => [
+      q(6604),
+      q(0),
+      ],
+   q(timbe) => [
+      q(6526),
+      q(0),
+      ],
+   q(timbisha) => [
+      q(5356),
+      q(1),
+      ],
+   q(timne) => [
+      q(0421),
+      q(0),
+      ],
+   q(timor pidgin) => [
+      q(6791),
+      q(0),
+      ],
+   q(timucua) => [
+      q(6542),
+      q(0),
+      ],
+   q(timugon murut) => [
+      q(6521),
+      q(0),
+      ],
+   q(tinani) => [
+      q(3817),
+      q(0),
+      ],
+   q(tindi) => [
+      q(6527),
+      q(0),
+      ],
+   q(tingui-boto) => [
+      q(6492),
+      q(0),
+      ],
+   q(tinigua) => [
+      q(6532),
+      q(0),
+      ],
+   q(tinoc kallahan) => [
+      q(6615),
+      q(0),
+      ],
+   q(tinputz) => [
+      q(6676),
+      q(0),
+      ],
+   q(tippera) => [
+      q(6658),
+      q(0),
+      ],
+   q(tira) => [
+      q(6518),
+      q(0),
+      ],
+   q(tirahi) => [
+      q(6688),
+      q(0),
+      ],
+   q(tiranige diga dogon) => [
+      q(6432),
+      q(0),
+      ],
+   q(tiri) => [
+      q(1740),
+      q(0),
+      ],
+   q(tiruray) => [
+      q(6536),
+      q(0),
+      ],
+   q(tita) => [
+      q(6442),
+      q(0),
+      ],
+   q(titan) => [
+      q(6756),
+      q(0),
+      ],
+   q(tiv) => [
+      q(0430),
+      q(0),
+      ],
+   q(tiwa) => [
+      q(3810),
+      q(0),
+      ],
+   q(tiwi) => [
+      q(6534),
+      q(0),
+      ],
+   q(tjurruru) => [
+      q(6546),
+      q(0),
+      ],
+   q(tlachichilco tepehua) => [
+      q(6670),
+      q(0),
+      ],
+   q(tlacoapa me'phaa) => [
+      q(6663),
+      q(0),
+      ],
+   q(tlacoapa tlapanec) => [
+      q(6663),
+      q(1),
+      ],
+   q(tlacoatzintepec chinantec) => [
+      q(1894),
+      q(0),
+      ],
+   q(tlacolulita zapotec) => [
+      q(7924),
+      q(0),
+      ],
+   q(tlahuitoltepec mixe) => [
+      q(4662),
+      q(0),
+      ],
+   q(tlamacazapa nahuatl) => [
+      q(5128),
+      q(0),
+      ],
+   q(tlazoyaltepec mixtec) => [
+      q(4487),
+      q(0),
+      ],
+   q(tlhingan-hol) => [
+      q(0432),
+      q(1),
+      ],
+   q(tlingit) => [
+      q(0433),
+      q(0),
+      ],
+   q(to) => [
+      q(6655),
+      q(0),
+      ],
+   q(to'abaita) => [
+      q(4385),
+      q(0),
+      ],
+   q(toaripi) => [
+      q(6681),
+      q(0),
+      ],
+   q(toba) => [
+      q(6635),
+      q(0),
+      ],
+   q(toba-maskoy) => [
+      q(6592),
+      q(0),
+      ],
+   q(tobagonian creole english) => [
+      q(6481),
+      q(0),
+      ],
+   q(tobanga) => [
+      q(6616),
+      q(0),
+      ],
+   q(tobati) => [
+      q(6743),
+      q(0),
+      ],
+   q(tobelo) => [
+      q(6567),
+      q(0),
+      ],
+   q(tobian) => [
+      q(6653),
+      q(0),
+      ],
+   q(tobilung) => [
+      q(6476),
+      q(0),
+      ],
+   q(tobo) => [
+      q(6400),
+      q(0),
+      ],
+   q(tocantins asurini) => [
+      q(0903),
+      q(0),
+      ],
+   q(tocho) => [
+      q(6379),
+      q(0),
+      ],
+   q(toda) => [
+      q(6425),
+      q(0),
+      ],
+   q(todrah) => [
+      q(6443),
+      q(0),
+      ],
+   q(tofanma) => [
+      q(6571),
+      q(0),
+      ],
+   q(tofin gbe) => [
+      q(6470),
+      q(0),
+      ],
+   q(togbo-vara banda) => [
+      q(6648),
+      q(0),
+      ],
+   q(togoyo) => [
+      q(6495),
+      q(0),
+      ],
+   q(tohono o'odham) => [
+      q(5283),
+      q(0),
+      ],
+   q(tojolabal) => [
+      q(6642),
+      q(0),
+      ],
+   q(tok pisin) => [
+      q(0437),
+      q(0),
+      ],
+   q(tokano) => [
+      q(7966),
+      q(0),
+      ],
+   q(tokelau) => [
+      q(0431),
+      q(0),
+      ],
+   q(tokharian a) => [
+      q(7519),
+      q(0),
+      ],
+   q(tokharian b) => [
+      q(6813),
+      q(0),
+      ],
+   q(toku-no-shima) => [
+      q(6555),
+      q(0),
+      ],
+   q(tol) => [
+      q(3093),
+      q(0),
+      ],
+   q(tolaki) => [
+      q(3832),
+      q(0),
+      ],
+   q(tolomako) => [
+      q(6575),
+      q(0),
+      ],
+   q(tolowa) => [
+      q(6643),
+      q(0),
+      ],
+   q(toma) => [
+      q(6637),
+      q(0),
+      ],
+   q(tomadino) => [
+      q(6436),
+      q(0),
+      ],
+   q(tombelala) => [
+      q(6750),
+      q(0),
+      ],
+   q(tombonuo) => [
+      q(6812),
+      q(0),
+      ],
+   q(tombulu) => [
+      q(6644),
+      q(0),
+      ],
+   q(tomedes) => [
+      q(6638),
+      q(0),
+      ],
+   q(tomini) => [
+      q(6820),
+      q(0),
+      ],
+   q(tommo so dogon) => [
+      q(2163),
+      q(0),
+      ],
+   q(tomo kan dogon) => [
+      q(2162),
+      q(0),
+      ],
+   q(tomoip) => [
+      q(6682),
+      q(0),
+      ],
+   q(tondano) => [
+      q(6440),
+      q(0),
+      ],
+   q(tondi songway kiini) => [
+      q(6728),
+      q(0),
+      ],
+   q(tonga) => [
+      q(0436),
+      q(1),
+      ],
+   q(tonga (nyasa)) => [
+      q(0435),
+      q(0),
+      ],
+   q(tonga (thailand)) => [
+      q(6634),
+      q(0),
+      ],
+   q(tonga (tonga islands)) => [
+      q(0436),
+      q(0),
+      ],
+   q(tonga (zambia)) => [
+      q(6641),
+      q(0),
+      ],
+   q(tongwe) => [
+      q(6633),
+      q(0),
+      ],
+   q(tonjon) => [
+      q(6543),
+      q(0),
+      ],
+   q(tonkawa) => [
+      q(6687),
+      q(0),
+      ],
+   q(tonsawang) => [
+      q(6631),
+      q(0),
+      ],
+   q(tonsea) => [
+      q(6825),
+      q(0),
+      ],
+   q(tontemboan) => [
+      q(6628),
+      q(0),
+      ],
+   q(tooro) => [
+      q(6744),
+      q(0),
+      ],
+   q(topoiyo) => [
+      q(6654),
+      q(0),
+      ],
+   q(toposa) => [
+      q(6647),
+      q(0),
+      ],
+   q(tora) => [
+      q(6712),
+      q(0),
+      ],
+   q(toraja-sa'dan) => [
+      q(5943),
+      q(0),
+      ],
+   q(toram) => [
+      q(6697),
+      q(0),
+      ],
+   q(torau) => [
+      q(6755),
+      q(0),
+      ],
+   q(tornedalen finnish) => [
+      q(2349),
+      q(0),
+      ],
+   q(toro) => [
+      q(6447),
+      q(0),
+      ],
+   q(toro so dogon) => [
+      q(2166),
+      q(0),
+      ],
+   q(toro tegu dogon) => [
+      q(2167),
+      q(0),
+      ],
+   q(toromono) => [
+      q(6623),
+      q(0),
+      ],
+   q(torona) => [
+      q(6684),
+      q(0),
+      ],
+   q(torres strait creole) => [
+      q(6421),
+      q(0),
+      ],
+   q(torricelli) => [
+      q(6458),
+      q(0),
+      ],
+   q(torwali) => [
+      q(6709),
+      q(0),
+      ],
+   q(tosk albanian) => [
+      q(0760),
+      q(0),
+      ],
+   q(totela) => [
+      q(6746),
+      q(0),
+      ],
+   q(toto) => [
+      q(6822),
+      q(0),
+      ],
+   q(totoli) => [
+      q(6815),
+      q(0),
+      ],
+   q(totomachapan zapotec) => [
+      q(7921),
+      q(0),
+      ],
+   q(totontepec mixe) => [
+      q(4569),
+      q(0),
+      ],
+   q(totoro) => [
+      q(6745),
+      q(0),
+      ],
+   q(touo) => [
+      q(6686),
+      q(0),
+      ],
+   q(toura (cote d'ivoire)) => [
+      q(4808),
+      q(0),
+      ],
+   q(toura (papua new guinea)) => [
+      q(2121),
+      q(0),
+      ],
+   q(towei) => [
+      q(6748),
+      q(0),
+      ],
+   q(trans-new guinea languages) => [
+      q(0516),
+      q(0),
+      ],
+   q(transalpine gaulish) => [
+      q(7512),
+      q(0),
+      ],
+   q(traveller danish) => [
+      q(5808),
+      q(0),
+      ],
+   q(traveller norwegian) => [
+      q(5811),
+      q(0),
+      ],
+   q(traveller scottish) => [
+      q(6698),
+      q(0),
+      ],
+   q(tregami) => [
+      q(6699),
+      q(0),
+      ],
+   q(tremembe) => [
+      q(6591),
+      q(0),
+      ],
+   q(trieng) => [
+      q(6259),
+      q(0),
+      ],
+   q(trimuris) => [
+      q(6529),
+      q(0),
+      ],
+   q(tring) => [
+      q(6487),
+      q(0),
+      ],
+   q(tringgus-sembaan bidayuh) => [
+      q(6710),
+      q(0),
+      ],
+   q(trinidad and tobago sign language) => [
+      q(4068),
+      q(0),
+      ],
+   q(trinidadian creole english) => [
+      q(6693),
+      q(0),
+      ],
+   q(trinitario) => [
+      q(6700),
+      q(0),
+      ],
+   q(trio) => [
+      q(6696),
+      q(0),
+      ],
+   q(truka) => [
+      q(6548),
+      q(0),
+      ],
+   q(trumai) => [
+      q(6675),
+      q(0),
+      ],
+   q(ts'un-lao) => [
+      q(6722),
+      q(0),
+      ],
+   q(tsaangi) => [
+      q(6713),
+      q(0),
+      ],
+   q(tsakhur) => [
+      q(6558),
+      q(0),
+      ],
+   q(tsakonian) => [
+      q(6716),
+      q(0),
+      ],
+   q(tsakwambo) => [
+      q(3692),
+      q(0),
+      ],
+   q(tsamai) => [
+      q(6714),
+      q(0),
+      ],
+   q(tsat) => [
+      q(2865),
+      q(0),
+      ],
+   q(tsaukambo) => [
+      q(3692),
+      q(1),
+      ],
+   q(tseku) => [
+      q(6721),
+      q(0),
+      ],
+   q(tsetsaut) => [
+      q(6814),
+      q(0),
+      ],
+   q(tshangla) => [
+      q(6720),
+      q(0),
+      ],
+   q(tsikimba) => [
+      q(3245),
+      q(0),
+      ],
+   q(tsimane) => [
+      q(1654),
+      q(0),
+      ],
+   q(tsimihety malagasy) => [
+      q(7428),
+      q(0),
+      ],
+   q(tsimshian) => [
+      q(0438),
+      q(0),
+      ],
+   q(tsishingini) => [
+      q(6731),
+      q(0),
+      ],
+   q(tso) => [
+      q(3858),
+      q(0),
+      ],
+   q(tsoa) => [
+      q(2762),
+      q(0),
+      ],
+   q(tsogo) => [
+      q(6730),
+      q(0),
+      ],
+   q(tsonga) => [
+      q(0440),
+      q(0),
+      ],
+   q(tsotsitaal) => [
+      q(2359),
+      q(1),
+      ],
+   q(tsotso) => [
+      q(4074),
+      q(0),
+      ],
+   q(tsou) => [
+      q(6729),
+      q(0),
+      ],
+   q(tsucuba) => [
+      q(1672),
+      q(0),
+      ],
+   q(tsum) => [
+      q(6759),
+      q(0),
+      ],
+   q(tsuvadi) => [
+      q(6781),
+      q(0),
+      ],
+   q(tsuvan) => [
+      q(6719),
+      q(0),
+      ],
+   q(tswa) => [
+      q(6715),
+      q(0),
+      ],
+   q(tswana) => [
+      q(0439),
+      q(0),
+      ],
+   q(tswapong) => [
+      q(6803),
+      q(0),
+      ],
+   q(tu) => [
+      q(4324),
+      q(0),
+      ],
+   q(tuamotuan) => [
+      q(5525),
+      q(0),
+      ],
+   q(tubar) => [
+      q(6399),
+      q(0),
+      ],
+   q(tubatulabal) => [
+      q(6761),
+      q(0),
+      ],
+   q(tucano) => [
+      q(6772),
+      q(0),
+      ],
+   q(tugen) => [
+      q(6778),
+      q(0),
+      ],
+   q(tugun) => [
+      q(6849),
+      q(0),
+      ],
+   q(tugutil) => [
+      q(6769),
+      q(0),
+      ],
+   q(tukang besi north) => [
+      q(3334),
+      q(0),
+      ],
+   q(tukang besi south) => [
+      q(1200),
+      q(0),
+      ],
+   q(tuki) => [
+      q(1027),
+      q(0),
+      ],
+   q(tukpa) => [
+      q(6668),
+      q(0),
+      ],
+   q(tukudede) => [
+      q(6550),
+      q(0),
+      ],
+   q(tukumanfed) => [
+      q(6552),
+      q(0),
+      ],
+   q(tula) => [
+      q(6770),
+      q(0),
+      ],
+   q(tulehu) => [
+      q(6583),
+      q(0),
+      ],
+   q(tulishi) => [
+      q(6469),
+      q(0),
+      ],
+   q(tulu) => [
+      q(6426),
+      q(0),
+      ],
+   q(tulu-bohuai) => [
+      q(5744),
+      q(0),
+      ],
+   q(tuma-irumu) => [
+      q(2981),
+      q(0),
+      ],
+   q(tumak) => [
+      q(6589),
+      q(0),
+      ],
+   q(tumari kanuri) => [
+      q(3588),
+      q(0),
+      ],
+   q(tumbuka) => [
+      q(0442),
+      q(0),
+      ],
+   q(tumi) => [
+      q(3423),
+      q(0),
+      ],
+   q(tumleo) => [
+      q(6602),
+      q(0),
+      ],
+   q(tumshuqese) => [
+      q(7521),
+      q(0),
+      ],
+   q(tumtum) => [
+      q(6396),
+      q(0),
+      ],
+   q(tumulung sisaala) => [
+      q(6043),
+      q(0),
+      ],
+   q(tumzabt) => [
+      q(4695),
+      q(0),
+      ],
+   q(tundra enets) => [
+      q(2269),
+      q(0),
+      ],
+   q(tunen) => [
+      q(6789),
+      q(0),
+      ],
+   q(tungag) => [
+      q(3842),
+      q(0),
+      ],
+   q(tunggare) => [
+      q(6706),
+      q(0),
+      ],
+   q(tungus languages) => [
+      q(0529),
+      q(0),
+      ],
+   q(tunia) => [
+      q(6766),
+      q(0),
+      ],
+   q(tunica) => [
+      q(6771),
+      q(0),
+      ],
+   q(tunisian arabic) => [
+      q(0624),
+      q(0),
+      ],
+   q(tunisian sign language) => [
+      q(6717),
+      q(0),
+      ],
+   q(tunjung) => [
+      q(6539),
+      q(0),
+      ],
+   q(tunni) => [
+      q(6683),
+      q(0),
+      ],
+   q(tunzu) => [
+      q(2207),
+      q(0),
+      ],
+   q(tuotomb) => [
+      q(6740),
+      q(0),
+      ],
+   q(tupari) => [
+      q(6669),
+      q(0),
+      ],
+   q(tupi) => [
+      q(6673),
+      q(0),
+      ],
+   q(tupi languages) => [
+      q(0443),
+      q(0),
+      ],
+   q(tupinamba) => [
+      q(6665),
+      q(0),
+      ],
+   q(tupinikin) => [
+      q(6662),
+      q(0),
+      ],
+   q(tupuri) => [
+      q(6768),
+      q(0),
+      ],
+   q(turaka) => [
+      q(6695),
+      q(0),
+      ],
+   q(turi) => [
+      q(6691),
+      q(0),
+      ],
+   q(turiwara) => [
+      q(6807),
+      q(0),
+      ],
+   q(turk isaret dili) => [
+      q(6723),
+      q(1),
+      ],
+   q(turka) => [
+      q(6779),
+      q(0),
+      ],
+   q(turkana) => [
+      q(6776),
+      q(0),
+      ],
+   q(turkic khalaj) => [
+      q(3438),
+      q(0),
+      ],
+   q(turkic languages) => [
+      q(0528),
+      q(0),
+      ],
+   q(turkish) => [
+      q(0444),
+      q(0),
+      ],
+   q(turkish sign language) => [
+      q(6723),
+      q(0),
+      ],
+   q(turkish, ottoman (1500-1928)) => [
+      q(0332),
+      q(0),
+      ],
+   q(turkmen) => [
+      q(0441),
+      q(0),
+      ],
+   q(turks and caicos creole english) => [
+      q(6412),
+      q(0),
+      ],
+   q(turoyo) => [
+      q(6707),
+      q(0),
+      ],
+   q(turumsa) => [
+      q(6679),
+      q(0),
+      ],
+   q(turung) => [
+      q(6711),
+      q(0),
+      ],
+   q(tuscarora) => [
+      q(6774),
+      q(0),
+      ],
+   q(tutelo) => [
+      q(6735),
+      q(0),
+      ],
+   q(tutong) => [
+      q(6741),
+      q(0),
+      ],
+   q(tutsa naga) => [
+      q(6788),
+      q(0),
+      ],
+   q(tutuba) => [
+      q(6594),
+      q(0),
+      ],
+   q(tututepec mixtec) => [
+      q(4575),
+      q(0),
+      ],
+   q(tututni) => [
+      q(6775),
+      q(0),
+      ],
+   q(tuvalu) => [
+      q(0446),
+      q(0),
+      ],
+   q(tuvinian) => [
+      q(0448),
+      q(0),
+      ],
+   q(tuwali ifugao) => [
+      q(2916),
+      q(0),
+      ],
+   q(tuwari) => [
+      q(6809),
+      q(0),
+      ],
+   q(tuwuli) => [
+      q(1370),
+      q(0),
+      ],
+   q(tuxa) => [
+      q(6763),
+      q(0),
+      ],
+   q(tuxinawa) => [
+      q(6777),
+      q(0),
+      ],
+   q(tuyuca) => [
+      q(6764),
+      q(0),
+      ],
+   q(twana) => [
+      q(6792),
+      q(0),
+      ],
+   q(twendi) => [
+      q(6802),
+      q(0),
+      ],
+   q(twents) => [
+      q(6795),
+      q(0),
+      ],
+   q(twi) => [
+      q(0447),
+      q(0),
+      ],
+   q(tyap) => [
+      q(3215),
+      q(0),
+      ],
+   q(tyaraity) => [
+      q(7196),
+      q(0),
+      ],
+   q(tz'utujil) => [
+      q(6846),
+      q(0),
+      ],
+   q(tzeltal) => [
+      q(6845),
+      q(0),
+      ],
+   q(tzotzil) => [
+      q(6850),
+      q(0),
+      ],
+   q(u) => [
+      q(6962),
+      q(0),
+      ],
+   q(uab meto) => [
+      q(0833),
+      q(0),
+      ],
+   q(uamue) => [
+      q(6852),
+      q(0),
+      ],
+   q(uare) => [
+      q(3603),
+      q(0),
+      ],
+   q(ubaghara) => [
+      q(1592),
+      q(0),
+      ],
+   q(ubang) => [
+      q(6855),
+      q(0),
+      ],
+   q(ubi) => [
+      q(6856),
+      q(0),
+      ],
+   q(ubir) => [
+      q(6858),
+      q(0),
+      ],
+   q(ubykh) => [
+      q(6860),
+      q(0),
+      ],
+   q(ucayali-yurua asheninka) => [
+      q(1832),
+      q(0),
+      ],
+   q(uda) => [
+      q(6861),
+      q(0),
+      ],
+   q(udi) => [
+      q(6864),
+      q(0),
+      ],
+   q(udihe) => [
+      q(6862),
+      q(0),
+      ],
+   q(udmurt) => [
+      q(0449),
+      q(0),
+      ],
+   q(uduk) => [
+      q(6867),
+      q(0),
+      ],
+   q(ufim) => [
+      q(6869),
+      q(0),
+      ],
+   q(ugandan sign language) => [
+      q(6872),
+      q(0),
+      ],
+   q(ugaritic) => [
+      q(0450),
+      q(0),
+      ],
+   q(ughele) => [
+      q(6871),
+      q(0),
+      ],
+   q(ugong) => [
+      q(6873),
+      q(0),
+      ],
+   q(uhami) => [
+      q(6875),
+      q(0),
+      ],
+   q(uighur) => [
+      q(0451),
+      q(0),
+      ],
+   q(uisai) => [
+      q(6877),
+      q(0),
+      ],
+   q(ujir) => [
+      q(6865),
+      q(0),
+      ],
+   q(ukaan) => [
+      q(3214),
+      q(0),
+      ],
+   q(ukhwejo) => [
+      q(6882),
+      q(0),
+      ],
+   q(ukit) => [
+      q(6906),
+      q(0),
+      ],
+   q(ukpe-bayobiri) => [
+      q(6884),
+      q(0),
+      ],
+   q(ukpet-ehom) => [
+      q(0724),
+      q(0),
+      ],
+   q(ukrainian) => [
+      q(0452),
+      q(0),
+      ],
+   q(ukrainian sign language) => [
+      q(6883),
+      q(0),
+      ],
+   q(ukue) => [
+      q(6887),
+      q(0),
+      ],
+   q(ukuriguma) => [
+      q(6881),
+      q(0),
+      ],
+   q(ukwa) => [
+      q(6885),
+      q(0),
+      ],
+   q(ukwuani-aboh-ndoni) => [
+      q(6888),
+      q(0),
+      ],
+   q(ulau-suain) => [
+      q(6292),
+      q(0),
+      ],
+   q(ulch) => [
+      q(6892),
+      q(0),
+      ],
+   q(ulithian) => [
+      q(6895),
+      q(0),
+      ],
+   q(ullatan) => [
+      q(6897),
+      q(0),
+      ],
+   q(ulukwumi) => [
+      q(6891),
+      q(0),
+      ],
+   q(ulumanda') => [
+      q(6898),
+      q(0),
+      ],
+   q(ulwa) => [
+      q(6901),
+      q(0),
+      ],
+   q(uma) => [
+      q(5575),
+      q(0),
+      ],
+   q(uma' lasan) => [
+      q(7392),
+      q(0),
+      ],
+   q(uma' lung) => [
+      q(6900),
+      q(0),
+      ],
+   q(umanakaina) => [
+      q(2465),
+      q(0),
+      ],
+   q(umatilla) => [
+      q(6902),
+      q(0),
+      ],
+   q(umbindhamu) => [
+      q(6904),
+      q(0),
+      ],
+   q(umbrian) => [
+      q(7536),
+      q(0),
+      ],
+   q(umbu-ungu) => [
+      q(6859),
+      q(0),
+      ],
+   q(umbugarla) => [
+      q(6911),
+      q(0),
+      ],
+   q(umbundu) => [
+      q(0453),
+      q(0),
+      ],
+   q(umbuygamu) => [
+      q(6905),
+      q(0),
+      ],
+   q(ume sami) => [
+      q(6069),
+      q(0),
+      ],
+   q(umeda) => [
+      q(6924),
+      q(0),
+      ],
+   q(umiida) => [
+      q(7532),
+      q(0),
+      ],
+   q(umiray dumaget agta) => [
+      q(2173),
+      q(0),
+      ],
+   q(umon) => [
+      q(6907),
+      q(0),
+      ],
+   q(umotina) => [
+      q(6909),
+      q(0),
+      ],
+   q(umpila) => [
+      q(6910),
+      q(0),
+      ],
+   q(una) => [
+      q(4561),
+      q(0),
+      ],
+   q(unami) => [
+      q(6918),
+      q(0),
+      ],
+   q(uncoded languages) => [
+      q(0281),
+      q(0),
+      ],
+   q(unde kaili) => [
+      q(6923),
+      q(0),
+      ],
+   q(undetermined) => [
+      q(0454),
+      q(0),
+      ],
+   q(uneapa) => [
+      q(1051),
+      q(0),
+      ],
+   q(uneme) => [
+      q(6915),
+      q(0),
+      ],
+   q(unggaranggu) => [
+      q(7537),
+      q(0),
+      ],
+   q(unggumi) => [
+      q(7348),
+      q(0),
+      ],
+   q(ungkue) => [
+      q(2542),
+      q(0),
+      ],
+   q(unserdeutsch) => [
+      q(6899),
+      q(0),
+      ],
+   q(unua) => [
+      q(5280),
+      q(0),
+      ],
+   q(unubahe) => [
+      q(6921),
+      q(0),
+      ],
+   q(upper chehalis) => [
+      q(1745),
+      q(0),
+      ],
+   q(upper grand valley dani) => [
+      q(2099),
+      q(0),
+      ],
+   q(upper guinea crioulo) => [
+      q(5568),
+      q(0),
+      ],
+   q(upper kinabatangan) => [
+      q(2087),
+      q(0),
+      ],
+   q(upper kuskokwim) => [
+      q(3661),
+      q(0),
+      ],
+   q(upper necaxa totonac) => [
+      q(6561),
+      q(0),
+      ],
+   q(upper saxon) => [
+      q(6333),
+      q(0),
+      ],
+   q(upper sorbian) => [
+      q(0182),
+      q(0),
+      ],
+   q(upper ta'oih) => [
+      q(6742),
+      q(0),
+      ],
+   q(upper tanana) => [
+      q(6374),
+      q(0),
+      ],
+   q(upper taromi) => [
+      q(6651),
+      q(0),
+      ],
+   q(upper umpqua) => [
+      q(7539),
+      q(0),
+      ],
+   q(ura (papua new guinea)) => [
+      q(6938),
+      q(0),
+      ],
+   q(ura (vanuatu)) => [
+      q(6961),
+      q(0),
+      ],
+   q(uradhi) => [
+      q(6930),
+      q(0),
+      ],
+   q(urak lawoi') => [
+      q(6934),
+      q(0),
+      ],
+   q(urali) => [
+      q(6935),
+      q(0),
+      ],
+   q(uralic languages) => [
+      q(0530),
+      q(0),
+      ],
+   q(urapmin) => [
+      q(6936),
+      q(0),
+      ],
+   q(urarina) => [
+      q(6926),
+      q(0),
+      ],
+   q(urartian) => [
+      q(7540),
+      q(0),
+      ],
+   q(urat) => [
+      q(6941),
+      q(0),
+      ],
+   q(urdu) => [
+      q(0455),
+      q(0),
+      ],
+   q(urhobo) => [
+      q(6932),
+      q(0),
+      ],
+   q(uri) => [
+      q(6964),
+      q(0),
+      ],
+   q(urigina) => [
+      q(6931),
+      q(0),
+      ],
+   q(urim) => [
+      q(6933),
+      q(0),
+      ],
+   q(urimo) => [
+      q(6945),
+      q(0),
+      ],
+   q(uripiv-wala-rano-atchin) => [
+      q(6925),
+      q(0),
+      ],
+   q(urningangg) => [
+      q(6928),
+      q(0),
+      ],
+   q(uru) => [
+      q(6929),
+      q(0),
+      ],
+   q(uru-eu-wau-wau) => [
+      q(6947),
+      q(0),
+      ],
+   q(uru-pa-in) => [
+      q(6939),
+      q(0),
+      ],
+   q(uruangnirin) => [
+      q(6937),
+      q(0),
+      ],
+   q(uruava) => [
+      q(6943),
+      q(0),
+      ],
+   q(urubu-kaapor) => [
+      q(6927),
+      q(0),
+      ],
+   q(urubu-kaapor sign language) => [
+      q(6886),
+      q(0),
+      ],
+   q(uruguayan sign language) => [
+      q(6874),
+      q(0),
+      ],
+   q(urum) => [
+      q(6959),
+      q(0),
+      ],
+   q(urumi) => [
+      q(6942),
+      q(0),
+      ],
+   q(usaghade) => [
+      q(6951),
+      q(0),
+      ],
+   q(usan) => [
+      q(7193),
+      q(0),
+      ],
+   q(usarufa) => [
+      q(6948),
+      q(0),
+      ],
+   q(ushojo) => [
+      q(6949),
+      q(0),
+      ],
+   q(usila chinantec) => [
+      q(1905),
+      q(0),
+      ],
+   q(usku) => [
+      q(6894),
+      q(0),
+      ],
+   q(uspanteco) => [
+      q(6952),
+      q(0),
+      ],
+   q(usui) => [
+      q(6950),
+      q(0),
+      ],
+   q(ut-ma'in) => [
+      q(2482),
+      q(0),
+      ],
+   q(utarmbung) => [
+      q(5260),
+      q(0),
+      ],
+   q(ute-southern paiute) => [
+      q(6955),
+      q(0),
+      ],
+   q(uto-aztecan languages) => [
+      q(0493),
+      q(0),
+      ],
+   q(utu) => [
+      q(6958),
+      q(0),
+      ],
+   q(uvbie) => [
+      q(2315),
+      q(0),
+      ],
+   q(uya) => [
+      q(6953),
+      q(0),
+      ],
+   q(uyajitaya) => [
+      q(2179),
+      q(0),
+      ],
+   q(uyghur) => [
+      q(0451),
+      q(1),
+      ],
+   q(uzbek) => [
+      q(0456),
+      q(0),
+      ],
+   q(uzbeki arabic) => [
+      q(0954),
+      q(0),
+      ],
+   q(uzekwe) => [
+      q(2321),
+      q(0),
+      ],
+   q(v'enen taut) => [
+      q(4963),
+      q(1),
+      ],
+   q(vaagri booli) => [
+      q(6970),
+      q(0),
+      ],
+   q(vaeakau-taumako) => [
+      q(5468),
+      q(1),
+      ],
+   q(vafsi) => [
+      q(6972),
+      q(0),
+      ],
+   q(vaghat-ya-bijim-legeri) => [
+      q(1217),
+      q(0),
+      ],
+   q(vaghri) => [
+      q(6995),
+      q(0),
+      ],
+   q(vaghua) => [
+      q(6780),
+      q(0),
+      ],
+   q(vagla) => [
+      q(6973),
+      q(0),
+      ],
+   q(vai) => [
+      q(0457),
+      q(0),
+      ],
+   q(vaiphei) => [
+      q(6980),
+      q(0),
+      ],
+   q(vale) => [
+      q(6971),
+      q(0),
+      ],
+   q(valencian) => [
+      q(0071),
+      q(1),
+      ],
+   q(valencian sign language) => [
+      q(7050),
+      q(0),
+      ],
+   q(valle nacional chinantec) => [
+      q(1923),
+      q(0),
+      ],
+   q(valley maidu) => [
+      q(7036),
+      q(0),
+      ],
+   q(valman) => [
+      q(6978),
+      q(0),
+      ],
+   q(valpei) => [
+      q(7016),
+      q(0),
+      ],
+   q(vamale) => [
+      q(4361),
+      q(0),
+      ],
+   q(vame) => [
+      q(4383),
+      q(0),
+      ],
+   q(vandalic) => [
+      q(7545),
+      q(0),
+      ],
+   q(vangunu) => [
+      q(4472),
+      q(0),
+      ],
+   q(vanimo) => [
+      q(6977),
+      q(0),
+      ],
+   q(vano) => [
+      q(7041),
+      q(0),
+      ],
+   q(vanuma) => [
+      q(6983),
+      q(0),
+      ],
+   q(vao) => [
+      q(6979),
+      q(0),
+      ],
+   q(varhadi-nagpuri) => [
+      q(6974),
+      q(0),
+      ],
+   q(varisi) => [
+      q(7046),
+      q(0),
+      ],
+   q(varli) => [
+      q(6984),
+      q(0),
+      ],
+   q(vasavi) => [
+      q(6982),
+      q(0),
+      ],
+   q(vasekele) => [
+      q(6975),
+      q(3),
+      ],
+   q(veddah) => [
+      q(6989),
+      q(0),
+      ],
+   q(vehes) => [
+      q(6976),
+      q(0),
+      ],
+   q(veluws) => [
+      q(6990),
+      q(0),
+      ],
+   q(vemgo-mabas) => [
+      q(6991),
+      q(0),
+      ],
+   q(venda) => [
+      q(0458),
+      q(0),
+      ],
+   q(venetian) => [
+      q(6988),
+      q(0),
+      ],
+   q(venetic) => [
+      q(7543),
+      q(0),
+      ],
+   q(venezuelan sign language) => [
+      q(7049),
+      q(0),
+      ],
+   q(vengo) => [
+      q(1034),
+      q(0),
+      ],
+   q(ventureno) => [
+      q(6992),
+      q(0),
+      ],
+   q(veps) => [
+      q(6993),
+      q(0),
+      ],
+   q(vera'a) => [
+      q(7045),
+      q(0),
+      ],
+   q(vestinian) => [
+      q(7547),
+      q(0),
+      ],
+   q(vidunda) => [
+      q(6998),
+      q(0),
+      ],
+   q(viemo) => [
+      q(7000),
+      q(0),
+      ],
+   q(vietnamese) => [
+      q(0459),
+      q(0),
+      ],
+   q(viid) => [
+      q(6151),
+      q(1),
+      ],
+   q(vilela) => [
+      q(7001),
+      q(0),
+      ],
+   q(vili) => [
+      q(6999),
+      q(0),
+      ],
+   q(villa viciosa agta) => [
+      q(2201),
+      q(0),
+      ],
+   q(vincentian creole english) => [
+      q(6293),
+      q(0),
+      ],
+   q(vinmavis) => [
+      q(7042),
+      q(0),
+      ],
+   q(vinza) => [
+      q(7002),
+      q(0),
+      ],
+   q(virgin islands creole english) => [
+      q(6997),
+      q(0),
+      ],
+   q(vishavan) => [
+      q(7003),
+      q(0),
+      ],
+   q(viti) => [
+      q(7004),
+      q(0),
+      ],
+   q(vitou) => [
+      q(7051),
+      q(0),
+      ],
+   q(vitu) => [
+      q(7141),
+      q(0),
+      ],
+   q(vlaams) => [
+      q(7017),
+      q(0),
+      ],
+   q(vlaamse gebarentaal) => [
+      q(6996),
+      q(0),
+      ],
+   q(vlax romani) => [
+      q(5827),
+      q(0),
+      ],
+   q(volapuk) => [
+      q(0460),
+      q(0),
+      ],
+   q(volscian) => [
+      q(7546),
+      q(0),
+      ],
+   q(vono) => [
+      q(3216),
+      q(0),
+      ],
+   q(voro) => [
+      q(7044),
+      q(0),
+      ],
+   q(votic) => [
+      q(0461),
+      q(0),
+      ],
+   q(vumbu) => [
+      q(7052),
+      q(0),
+      ],
+   q(vunapu) => [
+      q(7043),
+      q(0),
+      ],
+   q(vunjo) => [
+      q(7053),
+      q(0),
+      ],
+   q(vure) => [
+      q(3949),
+      q(1),
+      ],
+   q(vures) => [
+      q(4543),
+      q(0),
+      ],
+   q(vute) => [
+      q(7054),
+      q(0),
+      ],
+   q(vwanji) => [
+      q(7082),
+      q(0),
+      ],
+   q(wa) => [
+      q(7086),
+      q(0),
+      ],
+   q(wa'ema) => [
+      q(7062),
+      q(0),
+      ],
+   q(waama) => [
+      q(7259),
+      q(0),
+      ],
+   q(waamwang) => [
+      q(7176),
+      q(0),
+      ],
+   q(waata) => [
+      q(6242),
+      q(0),
+      ],
+   q(wab) => [
+      q(7057),
+      q(0),
+      ],
+   q(wabo) => [
+      q(7079),
+      q(0),
+      ],
+   q(waboda) => [
+      q(3477),
+      q(0),
+      ],
+   q(waci gbe) => [
+      q(7094),
+      q(0),
+      ],
+   q(wadaginam) => [
+      q(7096),
+      q(0),
+      ],
+   q(waddar) => [
+      q(7088),
+      q(0),
+      ],
+   q(wadi wadi) => [
+      q(7550),
+      q(0),
+      ],
+   q(wadikali) => [
+      q(7098),
+      q(0),
+      ],
+   q(wadiyara koli) => [
+      q(3731),
+      q(0),
+      ],
+   q(wadjabangayi) => [
+      q(7100),
+      q(0),
+      ],
+   q(wadjiginy) => [
+      q(7097),
+      q(0),
+      ],
+   q(wadjigu) => [
+      q(7099),
+      q(0),
+      ],
+   q(wae rana) => [
+      q(7230),
+      q(0),
+      ],
+   q(waffa) => [
+      q(7065),
+      q(0),
+      ],
+   q(wagawaga) => [
+      q(7117),
+      q(0),
+      ],
+   q(wagaya) => [
+      q(7116),
+      q(0),
+      ],
+   q(wagdi) => [
+      q(7089),
+      q(0),
+      ],
+   q(wageman) => [
+      q(7070),
+      q(0),
+      ],
+   q(wagi) => [
+      q(2324),
+      q(0),
+      ],
+   q(wahau kayan) => [
+      q(7126),
+      q(0),
+      ],
+   q(wahau kenyah) => [
+      q(7125),
+      q(0),
+      ],
+   q(wahgi) => [
+      q(7119),
+      q(0),
+      ],
+   q(waigali) => [
+      q(7084),
+      q(0),
+      ],
+   q(waigeo) => [
+      q(7120),
+      q(0),
+      ],
+   q(wailaki) => [
+      q(7157),
+      q(0),
+      ],
+   q(wailapa) => [
+      q(7161),
+      q(0),
+      ],
+   q(waima) => [
+      q(5852),
+      q(0),
+      ],
+   q(waima'a) => [
+      q(7173),
+      q(0),
+      ],
+   q(waimaha) => [
+      q(1030),
+      q(0),
+      ],
+   q(waimiri-atroari) => [
+      q(0924),
+      q(0),
+      ],
+   q(waioli) => [
+      q(7156),
+      q(0),
+      ],
+   q(waiwai) => [
+      q(7074),
+      q(0),
+      ],
+   q(waja) => [
+      q(7143),
+      q(0),
+      ],
+   q(wajarri) => [
+      q(7091),
+      q(0),
+      ],
+   q(wajuk) => [
+      q(7553),
+      q(0),
+      ],
+   q(waka) => [
+      q(7073),
+      q(0),
+      ],
+   q(wakabunga) => [
+      q(7260),
+      q(0),
+      ],
+   q(wakashan languages) => [
+      q(0462),
+      q(0),
+      ],
+   q(wakawaka) => [
+      q(7150),
+      q(0),
+      ],
+   q(wakde) => [
+      q(7147),
+      q(0),
+      ],
+   q(wakhi) => [
+      q(7085),
+      q(0),
+      ],
+   q(wakona) => [
+      q(7061),
+      q(0),
+      ],
+   q(wala) => [
+      q(3892),
+      q(0),
+      ],
+   q(walak) => [
+      q(7165),
+      q(0),
+      ],
+   q(walamo) => [
+      q(0463),
+      q(0),
+      ],
+   q(walangama) => [
+      q(4958),
+      q(0),
+      ],
+   q(wali (ghana)) => [
+      q(7166),
+      q(0),
+      ],
+   q(wali (sudan)) => [
+      q(7158),
+      q(0),
+      ],
+   q(waling) => [
+      q(7167),
+      q(0),
+      ],
+   q(walio) => [
+      q(7152),
+      q(0),
+      ],
+   q(walla walla) => [
+      q(7056),
+      q(0),
+      ],
+   q(wallisian) => [
+      q(7162),
+      q(0),
+      ],
+   q(walloon) => [
+      q(0468),
+      q(0),
+      ],
+   q(walmajarri) => [
+      q(7179),
+      q(0),
+      ],
+   q(walser) => [
+      q(7060),
+      q(0),
+      ],
+   q(walungge) => [
+      q(5243),
+      q(0),
+      ],
+   q(wamas) => [
+      q(7170),
+      q(0),
+      ],
+   q(wambaya) => [
+      q(7169),
+      q(0),
+      ],
+   q(wambon) => [
+      q(7178),
+      q(0),
+      ],
+   q(wambule) => [
+      q(7172),
+      q(0),
+      ],
+   q(wamey) => [
+      q(1825),
+      q(0),
+      ],
+   q(wamin) => [
+      q(7174),
+      q(0),
+      ],
+   q(wampanoag) => [
+      q(7066),
+      q(0),
+      ],
+   q(wampar) => [
+      q(3826),
+      q(0),
+      ],
+   q(wampur) => [
+      q(7077),
+      q(0),
+      ],
+   q(wan) => [
+      q(7067),
+      q(0),
+      ],
+   q(wanambre) => [
+      q(7182),
+      q(0),
+      ],
+   q(wanap) => [
+      q(7192),
+      q(0),
+      ],
+   q(wanbasana) => [
+      q(0762),
+      q(1),
+      ],
+   q(wancho naga) => [
+      q(5002),
+      q(0),
+      ],
+   q(wanda) => [
+      q(7081),
+      q(0),
+      ],
+   q(wandala) => [
+      q(4233),
+      q(0),
+      ],
+   q(wandamen) => [
+      q(7059),
+      q(0),
+      ],
+   q(wandarang) => [
+      q(7184),
+      q(0),
+      ],
+   q(wandji) => [
+      q(7095),
+      q(0),
+      ],
+   q(wane) => [
+      q(2880),
+      q(0),
+      ],
+   q(waneci) => [
+      q(7185),
+      q(0),
+      ],
+   q(wanga) => [
+      q(4100),
+      q(0),
+      ],
+   q(wangaaybuwan-ngiyambaa) => [
+      q(7267),
+      q(0),
+      ],
+   q(wanggamala) => [
+      q(7189),
+      q(0),
+      ],
+   q(wangganguru) => [
+      q(7118),
+      q(0),
+      ],
+   q(wanggom) => [
+      q(7186),
+      q(0),
+      ],
+   q(wangkayutyuru) => [
+      q(7151),
+      q(0),
+      ],
+   q(wangkumara) => [
+      q(7554),
+      q(0),
+      ],
+   q(wanman) => [
+      q(7090),
+      q(0),
+      ],
+   q(wannu) => [
+      q(3148),
+      q(0),
+      ],
+   q(wano) => [
+      q(7191),
+      q(0),
+      ],
+   q(wantoat) => [
+      q(7183),
+      q(0),
+      ],
+   q(wanukaka) => [
+      q(7188),
+      q(0),
+      ],
+   q(wanyi) => [
+      q(7195),
+      q(0),
+      ],
+   q(waorani) => [
+      q(0935),
+      q(0),
+      ],
+   q(wapan) => [
+      q(3153),
+      q(0),
+      ],
+   q(wapha) => [
+      q(3163),
+      q(0),
+      ],
+   q(wapishana) => [
+      q(7069),
+      q(0),
+      ],
+   q(wappo) => [
+      q(7068),
+      q(0),
+      ],
+   q(war-jaintia) => [
+      q(0775),
+      q(0),
+      ],
+   q(wara) => [
+      q(6413),
+      q(0),
+      ],
+   q(warao) => [
+      q(7078),
+      q(0),
+      ],
+   q(warapu) => [
+      q(7213),
+      q(0),
+      ],
+   q(waray) => [
+      q(0464),
+      q(0),
+      ],
+   q(waray (australia)) => [
+      q(7232),
+      q(0),
+      ],
+   q(waray (philippines)) => [
+      q(0464),
+      q(1),
+      ],
+   q(wardaman) => [
+      q(7225),
+      q(0),
+      ],
+   q(wardandi) => [
+      q(7265),
+      q(0),
+      ],
+   q(warduji) => [
+      q(7215),
+      q(0),
+      ],
+   q(warembori) => [
+      q(7233),
+      q(0),
+      ],
+   q(wares) => [
+      q(7064),
+      q(0),
+      ],
+   q(waris) => [
+      q(7226),
+      q(0),
+      ],
+   q(waritai) => [
+      q(7080),
+      q(0),
+      ],
+   q(wariyangga) => [
+      q(7218),
+      q(0),
+      ],
+   q(warji) => [
+      q(7144),
+      q(0),
+      ],
+   q(warkay-bipim) => [
+      q(1181),
+      q(0),
+      ],
+   q(warlmanpa) => [
+      q(7220),
+      q(0),
+      ],
+   q(warlpiri) => [
+      q(7087),
+      q(0),
+      ],
+   q(warluwara) => [
+      q(7214),
+      q(0),
+      ],
+   q(warnang) => [
+      q(7222),
+      q(0),
+      ],
+   q(waropen) => [
+      q(7224),
+      q(0),
+      ],
+   q(warrgamay) => [
+      q(7122),
+      q(0),
+      ],
+   q(warrwa) => [
+      q(7262),
+      q(0),
+      ],
+   q(waru) => [
+      q(7227),
+      q(0),
+      ],
+   q(warumungu) => [
+      q(7221),
+      q(0),
+      ],
+   q(waruna) => [
+      q(7228),
+      q(0),
+      ],
+   q(warungu) => [
+      q(7216),
+      q(0),
+      ],
+   q(warwar feni) => [
+      q(2840),
+      q(0),
+      ],
+   q(wasa) => [
+      q(7237),
+      q(0),
+      ],
+   q(wasco-wishram) => [
+      q(7058),
+      q(0),
+      ],
+   q(wasembo) => [
+      q(2638),
+      q(0),
+      ],
+   q(washo) => [
+      q(0465),
+      q(0),
+      ],
+   q(waskia) => [
+      q(7235),
+      q(0),
+      ],
+   q(wasu) => [
+      q(7238),
+      q(0),
+      ],
+   q(watakataui) => [
+      q(7243),
+      q(0),
+      ],
+   q(watam) => [
+      q(7075),
+      q(0),
+      ],
+   q(wathawurrung) => [
+      q(7241),
+      q(0),
+      ],
+   q(watiwa) => [
+      q(7240),
+      q(0),
+      ],
+   q(watubela) => [
+      q(7063),
+      q(0),
+      ],
+   q(waube) => [
+      q(3515),
+      q(0),
+      ],
+   q(waura) => [
+      q(7072),
+      q(0),
+      ],
+   q(wauyai) => [
+      q(7258),
+      q(0),
+      ],
+   q(wawa) => [
+      q(7263),
+      q(0),
+      ],
+   q(wawonii) => [
+      q(7210),
+      q(0),
+      ],
+   q(waxianghua) => [
+      q(7264),
+      q(0),
+      ],
+   q(wayampi) => [
+      q(5343),
+      q(0),
+      ],
+   q(wayana) => [
+      q(7076),
+      q(0),
+      ],
+   q(wayanad chetti) => [
+      q(1900),
+      q(0),
+      ],
+   q(wayoro) => [
+      q(7270),
+      q(0),
+      ],
+   q(wayu) => [
+      q(6985),
+      q(0),
+      ],
+   q(wayuu) => [
+      q(2644),
+      q(0),
+      ],
+   q(we northern) => [
+      q(7197),
+      q(0),
+      ],
+   q(we southern) => [
+      q(2694),
+      q(0),
+      ],
+   q(we western) => [
+      q(7102),
+      q(0),
+      ],
+   q(wedau) => [
+      q(7103),
+      q(0),
+      ],
+   q(weh) => [
+      q(7105),
+      q(0),
+      ],
+   q(wejewa) => [
+      q(7114),
+      q(0),
+      ],
+   q(weliki) => [
+      q(3436),
+      q(0),
+      ],
+   q(welsh) => [
+      q(0466),
+      q(0),
+      ],
+   q(welsh romani) => [
+      q(5825),
+      q(0),
+      ],
+   q(wemale) => [
+      q(7108),
+      q(0),
+      ],
+   q(wemba wemba) => [
+      q(7559),
+      q(0),
+      ],
+   q(weme gbe) => [
+      q(7107),
+      q(0),
+      ],
+   q(wergaia) => [
+      q(7104),
+      q(0),
+      ],
+   q(weri) => [
+      q(7110),
+      q(0),
+      ],
+   q(wersing) => [
+      q(3689),
+      q(0),
+      ],
+   q(west albay bikol) => [
+      q(2339),
+      q(0),
+      ],
+   q(west ambae) => [
+      q(4991),
+      q(0),
+      ],
+   q(west berawan) => [
+      q(7832),
+      q(0),
+      ],
+   q(west central banda) => [
+      q(1053),
+      q(0),
+      ],
+   q(west central oromo) => [
+      q(2420),
+      q(0),
+      ],
+   q(west coast bajau) => [
+      q(1106),
+      q(0),
+      ],
+   q(west damar) => [
+      q(2141),
+      q(0),
+      ],
+   q(west germanic languages) => [
+      q(0507),
+      q(0),
+      ],
+   q(west goodenough) => [
+      q(1982),
+      q(0),
+      ],
+   q(west kewa) => [
+      q(3279),
+      q(0),
+      ],
+   q(west lembata) => [
+      q(3985),
+      q(0),
+      ],
+   q(west makian) => [
+      q(4498),
+      q(0),
+      ],
+   q(west masela) => [
+      q(4548),
+      q(0),
+      ],
+   q(west slavic languages) => [
+      q(0536),
+      q(0),
+      ],
+   q(west tarangan) => [
+      q(6821),
+      q(0),
+      ],
+   q(west uvean) => [
+      q(6963),
+      q(0),
+      ],
+   q(west yugur) => [
+      q(7601),
+      q(0),
+      ],
+   q(west-central limba) => [
+      q(3910),
+      q(0),
+      ],
+   q(western abnaki) => [
+      q(0563),
+      q(0),
+      ],
+   q(western apache) => [
+      q(0855),
+      q(0),
+      ],
+   q(western arrarnta) => [
+      q(0870),
+      q(0),
+      ],
+   q(western balochi) => [
+      q(1173),
+      q(0),
+      ],
+   q(western bolivian guarani) => [
+      q(2583),
+      q(0),
+      ],
+   q(western bru) => [
+      q(1442),
+      q(0),
+      ],
+   q(western bukidnon manobo) => [
+      q(4129),
+      q(0),
+      ],
+   q(western canadian inuktitut) => [
+      q(2947),
+      q(1),
+      ],
+   q(western cham) => [
+      q(1743),
+      q(0),
+      ],
+   q(western dani) => [
+      q(2111),
+      q(0),
+      ],
+   q(western durango nahuatl) => [
+      q(1018),
+      q(0),
+      ],
+   q(western fijian) => [
+      q(7271),
+      q(0),
+      ],
+   q(western frisian) => [
+      q(0142),
+      q(0),
+      ],
+   q(western gurung) => [
+      q(2676),
+      q(0),
+      ],
+   q(western highland chatino) => [
+      q(1898),
+      q(0),
+      ],
+   q(western highland purepecha) => [
+      q(5641),
+      q(0),
+      ],
+   q(western huasteca nahuatl) => [
+      q(4879),
+      q(0),
+      ],
+   q(western juxtlahuaca mixtec) => [
+      q(3126),
+      q(0),
+      ],
+   q(western kanjobal) => [
+      q(3488),
+      q(0),
+      ],
+   q(western karaboro) => [
+      q(3768),
+      q(0),
+      ],
+   q(western katu) => [
+      q(3650),
+      q(0),
+      ],
+   q(western kayah) => [
+      q(3762),
+      q(0),
+      ],
+   q(western keres) => [
+      q(3394),
+      q(0),
+      ],
+   q(western krahn) => [
+      q(3590),
+      q(0),
+      ],
+   q(western lalu) => [
+      q(7787),
+      q(0),
+      ],
+   q(western lawa) => [
+      q(3843),
+      q(0),
+      ],
+   q(western magar) => [
+      q(4509),
+      q(0),
+      ],
+   q(western malayo-polynesian languages) => [
+      q(0522),
+      q(0),
+      ],
+   q(western maninkakan) => [
+      q(4382),
+      q(0),
+      ],
+   q(western mari) => [
+      q(4514),
+      q(0),
+      ],
+   q(western mashan hmong) => [
+      q(2797),
+      q(0),
+      ],
+   q(western mashan miao) => [
+      q(2797),
+      q(1),
+      ],
+   q(western meohang) => [
+      q(5740),
+      q(0),
+      ],
+   q(western muria) => [
+      q(4595),
+      q(0),
+      ],
+   q(western neo-aramaic) => [
+      q(0786),
+      q(0),
+      ],
+   q(western niger fulfulde) => [
+      q(2385),
+      q(0),
+      ],
+   q(western ojibwa) => [
+      q(5224),
+      q(0),
+      ],
+   q(western pahari languages) => [
+      q(0176),
+      q(1),
+      ],
+   q(western panjabi) => [
+      q(5531),
+      q(0),
+      ],
+   q(western parbate kham) => [
+      q(3389),
+      q(0),
+      ],
+   q(western penan) => [
+      q(5533),
+      q(0),
+      ],
+   q(western sisaala) => [
+      q(6240),
+      q(0),
+      ],
+   q(western subanon) => [
+      q(6279),
+      q(0),
+      ],
+   q(western tamang) => [
+      q(6434),
+      q(0),
+      ],
+   q(western tawbuid) => [
+      q(6793),
+      q(0),
+      ],
+   q(western totonac) => [
+      q(6685),
+      q(0),
+      ],
+   q(western tunebo) => [
+      q(6612),
+      q(0),
+      ],
+   q(western xiangxi miao) => [
+      q(4407),
+      q(0),
+      ],
+   q(western xwla gbe) => [
+      q(7555),
+      q(0),
+      ],
+   q(western yiddish) => [
+      q(7648),
+      q(0),
+      ],
+   q(westphalien) => [
+      q(7109),
+      q(0),
+      ],
+   q(wetamut) => [
+      q(7261),
+      q(0),
+      ],
+   q(wewaw) => [
+      q(7101),
+      q(0),
+      ],
+   q(weyto) => [
+      q(7211),
+      q(0),
+      ],
+   q(white gelao) => [
+      q(2528),
+      q(0),
+      ],
+   q(white lachi) => [
+      q(4101),
+      q(0),
+      ],
+   q(whitesands) => [
+      q(6624),
+      q(0),
+      ],
+   q(wiarumus) => [
+      q(6760),
+      q(0),
+      ],
+   q(wichi lhamtes guisnay) => [
+      q(4700),
+      q(0),
+      ],
+   q(wichi lhamtes nocten) => [
+      q(4570),
+      q(0),
+      ],
+   q(wichi lhamtes vejoz) => [
+      q(7164),
+      q(0),
+      ],
+   q(wichita) => [
+      q(7128),
+      q(0),
+      ],
+   q(wik-epa) => [
+      q(7129),
+      q(0),
+      ],
+   q(wik-iiyanh) => [
+      q(7134),
+      q(0),
+      ],
+   q(wik-keyangan) => [
+      q(7130),
+      q(0),
+      ],
+   q(wik-me'anha) => [
+      q(7132),
+      q(0),
+      ],
+   q(wik-mungkan) => [
+      q(7137),
+      q(0),
+      ],
+   q(wik-ngathana) => [
+      q(7131),
+      q(0),
+      ],
+   q(wikalkan) => [
+      q(7135),
+      q(0),
+      ],
+   q(wikngenchera) => [
+      q(7246),
+      q(0),
+      ],
+   q(wilawila) => [
+      q(7136),
+      q(0),
+      ],
+   q(wintu) => [
+      q(7194),
+      q(0),
+      ],
+   q(winye) => [
+      q(3613),
+      q(0),
+      ],
+   q(wipi) => [
+      q(2468),
+      q(0),
+      ],
+   q(wiradhuri) => [
+      q(7217),
+      q(0),
+      ],
+   q(wirafed) => [
+      q(7139),
+      q(0),
+      ],
+   q(wirangu) => [
+      q(7121),
+      q(0),
+      ],
+   q(wiru) => [
+      q(7140),
+      q(0),
+      ],
+   q(wiyot) => [
+      q(7142),
+      q(0),
+      ],
+   q(woccon) => [
+      q(7549),
+      q(0),
+      ],
+   q(wogamusin) => [
+      q(7202),
+      q(0),
+      ],
+   q(wogeo) => [
+      q(7198),
+      q(0),
+      ],
+   q(woi) => [
+      q(7092),
+      q(0),
+      ],
+   q(woiwurrung) => [
+      q(7268),
+      q(0),
+      ],
+   q(wojenaka) => [
+      q(3135),
+      q(0),
+      ],
+   q(wolaitta) => [
+      q(0463),
+      q(2),
+      ],
+   q(wolane) => [
+      q(7154),
+      q(0),
+      ],
+   q(wolani) => [
+      q(7199),
+      q(0),
+      ],
+   q(wolaytta) => [
+      q(0463),
+      q(1),
+      ],
+   q(woleaian) => [
+      q(7200),
+      q(0),
+      ],
+   q(wolio) => [
+      q(7160),
+      q(0),
+      ],
+   q(wolof) => [
+      q(0469),
+      q(0),
+      ],
+   q(wom (nigeria)) => [
+      q(7205),
+      q(0),
+      ],
+   q(wom (papua new guinea)) => [
+      q(7177),
+      q(0),
+      ],
+   q(womo) => [
+      q(7181),
+      q(0),
+      ],
+   q(wongo) => [
+      q(7206),
+      q(0),
+      ],
+   q(woods cree) => [
+      q(1926),
+      q(0),
+      ],
+   q(woria) => [
+      q(7208),
+      q(0),
+      ],
+   q(worimi) => [
+      q(3235),
+      q(0),
+      ],
+   q(worodougou) => [
+      q(3150),
+      q(0),
+      ],
+   q(worrorra) => [
+      q(7223),
+      q(0),
+      ],
+   q(wotapuri-katarqalai) => [
+      q(7239),
+      q(0),
+      ],
+   q(wotjobaluk) => [
+      q(7558),
+      q(0),
+      ],
+   q(wotu) => [
+      q(7245),
+      q(0),
+      ],
+   q(woun meu) => [
+      q(5012),
+      q(0),
+      ],
+   q(written oirat) => [
+      q(7556),
+      q(0),
+      ],
+   q(wu chinese) => [
+      q(7255),
+      q(0),
+      ],
+   q(wuding-luquan yi) => [
+      q(7789),
+      q(0),
+      ],
+   q(wudu) => [
+      q(7248),
+      q(0),
+      ],
+   q(wuliwuli) => [
+      q(7163),
+      q(0),
+      ],
+   q(wulna) => [
+      q(7257),
+      q(0),
+      ],
+   q(wumboko) => [
+      q(1409),
+      q(0),
+      ],
+   q(wumbvu) => [
+      q(7251),
+      q(0),
+      ],
+   q(wumeng nasu) => [
+      q(7792),
+      q(0),
+      ],
+   q(wunai bunu) => [
+      q(1555),
+      q(0),
+      ],
+   q(wunambal) => [
+      q(7247),
+      q(0),
+      ],
+   q(wunumara) => [
+      q(7190),
+      q(0),
+      ],
+   q(wurrugu) => [
+      q(7253),
+      q(0),
+      ],
+   q(wusa nasu) => [
+      q(7647),
+      q(0),
+      ],
+   q(wushi) => [
+      q(1450),
+      q(0),
+      ],
+   q(wusi) => [
+      q(7234),
+      q(0),
+      ],
+   q(wutung) => [
+      q(7254),
+      q(0),
+      ],
+   q(wutunhua) => [
+      q(7249),
+      q(0),
+      ],
+   q(wuvulu-aua) => [
+      q(7256),
+      q(0),
+      ],
+   q(wuzlam) => [
+      q(6866),
+      q(0),
+      ],
+   q(wyandot) => [
+      q(7266),
+      q(0),
+      ],
+   q(wymysorys) => [
+      q(7269),
+      q(0),
+      ],
+   q(xaasongaxango) => [
+      q(3179),
+      q(0),
+      ],
+   q(xadani zapotec) => [
+      q(7826),
+      q(0),
+      ],
+   q(xakriaba) => [
+      q(7385),
+      q(0),
+      ],
+   q(xam) => [
+      q(7280),
+      q(1),
+      ],
+   q(xamtanga) => [
+      q(7281),
+      q(0),
+      ],
+   q(xanaguia zapotec) => [
+      q(7954),
+      q(0),
+      ],
+   q(xaracuu) => [
+      q(0794),
+      q(0),
+      ],
+   q(xaragure) => [
+      q(0991),
+      q(0),
+      ],
+   q(xavante) => [
+      q(7289),
+      q(0),
+      ],
+   q(xegwi) => [
+      q(7330),
+      q(1),
+      ],
+   q(xerente) => [
+      q(7334),
+      q(0),
+      ],
+   q(xeta) => [
+      q(7336),
+      q(0),
+      ],
+   q(xhosa) => [
+      q(0471),
+      q(0),
+      ],
+   q(xiang chinese) => [
+      q(2845),
+      q(0),
+      ],
+   q(xibe) => [
+      q(6064),
+      q(0),
+      ],
+   q(xicotepec de juarez totonac) => [
+      q(6645),
+      q(0),
+      ],
+   q(xinca) => [
+      q(7361),
+      q(0),
+      ],
+   q(xingu asurini) => [
+      q(0897),
+      q(0),
+      ],
+   q(xipaya) => [
+      q(7366),
+      q(0),
+      ],
+   q(xipinawa) => [
+      q(7362),
+      q(0),
+      ],
+   q(xiri) => [
+      q(7359),
+      q(0),
+      ],
+   q(xiriana) => [
+      q(7363),
+      q(0),
+      ],
+   q(xishanba lalo) => [
+      q(7791),
+      q(0),
+      ],
+   q(xokleng) => [
+      q(7450),
+      q(0),
+      ],
+   q(xoo) => [
+      q(4975),
+      q(1),
+      ],
+   q(xukuru) => [
+      q(7453),
+      q(0),
+      ],
+   q(xwela gbe) => [
+      q(7551),
+      q(0),
+      ],
+   q(yaaku) => [
+      q(4596),
+      q(0),
+      ],
+   q(yabaana) => [
+      q(7608),
+      q(0),
+      ],
+   q(yabarana) => [
+      q(7590),
+      q(0),
+      ],
+   q(yabem) => [
+      q(3044),
+      q(0),
+      ],
+   q(yaben) => [
+      q(7607),
+      q(0),
+      ],
+   q(yabong) => [
+      q(7609),
+      q(0),
+      ],
+   q(yabula yabula) => [
+      q(7799),
+      q(0),
+      ],
+   q(yace) => [
+      q(2241),
+      q(0),
+      ],
+   q(yaeyama) => [
+      q(5884),
+      q(0),
+      ],
+   q(yafi) => [
+      q(7115),
+      q(0),
+      ],
+   q(yagara) => [
+      q(7795),
+      q(0),
+      ],
+   q(yagaria) => [
+      q(7638),
+      q(0),
+      ],
+   q(yagnobi) => [
+      q(7583),
+      q(0),
+      ],
+   q(yagomi) => [
+      q(7636),
+      q(0),
+      ],
+   q(yagua) => [
+      q(7578),
+      q(0),
+      ],
+   q(yagwoia) => [
+      q(7641),
+      q(0),
+      ],
+   q(yahadian) => [
+      q(4822),
+      q(0),
+      ],
+   q(yahang) => [
+      q(5785),
+      q(0),
+      ],
+   q(yahuna) => [
+      q(7716),
+      q(0),
+      ],
+   q(yaka (central african republic)) => [
+      q(0988),
+      q(0),
+      ],
+   q(yaka (congo)) => [
+      q(3036),
+      q(0),
+      ],
+   q(yaka (democratic republic of congo)) => [
+      q(7580),
+      q(0),
+      ],
+   q(yakaikeke) => [
+      q(7667),
+      q(0),
+      ],
+   q(yakama) => [
+      q(7585),
+      q(0),
+      ],
+   q(yakan) => [
+      q(7664),
+      q(0),
+      ],
+   q(yakha) => [
+      q(7602),
+      q(0),
+      ],
+   q(yakoma) => [
+      q(7675),
+      q(0),
+      ],
+   q(yakut) => [
+      q(0366),
+      q(0),
+      ],
+   q(yala) => [
+      q(7599),
+      q(0),
+      ],
+   q(yalahatan) => [
+      q(3049),
+      q(0),
+      ],
+   q(yalakalore) => [
+      q(7569),
+      q(0),
+      ],
+   q(yalalag zapotec) => [
+      q(7934),
+      q(0),
+      ],
+   q(yalarnnga) => [
+      q(7685),
+      q(0),
+      ],
+   q(yale) => [
+      q(4766),
+      q(0),
+      ],
+   q(yaleba) => [
+      q(7677),
+      q(0),
+      ],
+   q(yalunka) => [
+      q(7586),
+      q(0),
+      ],
+   q(yamana) => [
+      q(7581),
+      q(0),
+      ],
+   q(yamap) => [
+      q(7700),
+      q(0),
+      ],
+   q(yamba) => [
+      q(7587),
+      q(0),
+      ],
+   q(yambes) => [
+      q(7688),
+      q(0),
+      ],
+   q(yambeta) => [
+      q(7592),
+      q(0),
+      ],
+   q(yamdena) => [
+      q(3119),
+      q(0),
+      ],
+   q(yameo) => [
+      q(7691),
+      q(0),
+      ],
+   q(yami) => [
+      q(6369),
+      q(0),
+      ],
+   q(yaminahua) => [
+      q(7575),
+      q(0),
+      ],
+   q(yamna) => [
+      q(7698),
+      q(0),
+      ],
+   q(yamongeri) => [
+      q(7692),
+      q(0),
+      ],
+   q(yamphu) => [
+      q(7603),
+      q(0),
+      ],
+   q(yan-nhangu) => [
+      q(3058),
+      q(0),
+      ],
+   q(yan-nhanu sign language) => [
+      q(7645),
+      q(0),
+      ],
+   q(yana) => [
+      q(7712),
+      q(0),
+      ],
+   q(yanahuanca pasco quechua) => [
+      q(5693),
+      q(0),
+      ],
+   q(yanda) => [
+      q(7616),
+      q(0),
+      ],
+   q(yanda dom dogon) => [
+      q(2203),
+      q(0),
+      ],
+   q(yandjibara) => [
+      q(7566),
+      q(0),
+      ],
+   q(yandruwandha) => [
+      q(7707),
+      q(0),
+      ],
+   q(yanesha') => [
+      q(0769),
+      q(0),
+      ],
+   q(yang zhuang) => [
+      q(7971),
+      q(0),
+      ],
+   q(yangben) => [
+      q(7594),
+      q(0),
+      ],
+   q(yangkam) => [
+      q(1469),
+      q(0),
+      ],
+   q(yangman) => [
+      q(3129),
+      q(0),
+      ],
+   q(yango) => [
+      q(7709),
+      q(0),
+      ],
+   q(yangulam) => [
+      q(7711),
+      q(0),
+      ],
+   q(yangum dey) => [
+      q(7618),
+      q(0),
+      ],
+   q(yangum gel) => [
+      q(7635),
+      q(0),
+      ],
+   q(yangum mon) => [
+      q(7699),
+      q(0),
+      ],
+   q(yankunytjatjara) => [
+      q(3237),
+      q(0),
+      ],
+   q(yanomami) => [
+      q(7093),
+      q(0),
+      ],
+   q(yanomamo) => [
+      q(2661),
+      q(0),
+      ],
+   q(yansi) => [
+      q(7715),
+      q(0),
+      ],
+   q(yanyuwa) => [
+      q(3052),
+      q(0),
+      ],
+   q(yao) => [
+      q(0472),
+      q(0),
+      ],
+   q(yaosakor asmat) => [
+      q(0907),
+      q(0),
+      ],
+   q(yaoure) => [
+      q(7738),
+      q(0),
+      ],
+   q(yapese) => [
+      q(0473),
+      q(0),
+      ],
+   q(yapunda) => [
+      q(7631),
+      q(0),
+      ],
+   q(yaqay) => [
+      q(3053),
+      q(0),
+      ],
+   q(yaqui) => [
+      q(7589),
+      q(0),
+      ],
+   q(yarawata) => [
+      q(7745),
+      q(0),
+      ],
+   q(yardliyawarra) => [
+      q(7796),
+      q(0),
+      ],
+   q(yareba) => [
+      q(7737),
+      q(0),
+      ],
+   q(yareni zapotec) => [
+      q(7809),
+      q(0),
+      ],
+   q(yari) => [
+      q(7739),
+      q(0),
+      ],
+   q(yarluyandi) => [
+      q(7746),
+      q(0),
+      ],
+   q(yarsun) => [
+      q(7744),
+      q(0),
+      ],
+   q(yasa) => [
+      q(7671),
+      q(0),
+      ],
+   q(yassic) => [
+      q(7747),
+      q(0),
+      ],
+   q(yatay) => [
+      q(7761),
+      q(0),
+      ],
+   q(yatee zapotec) => [
+      q(7964),
+      q(0),
+      ],
+   q(yatzachi zapotec) => [
+      q(7824),
+      q(0),
+      ],
+   q(yau (morobe province)) => [
+      q(7779),
+      q(0),
+      ],
+   q(yau (sandaun province)) => [
+      q(7801),
+      q(0),
+      ],
+   q(yaul) => [
+      q(7676),
+      q(0),
+      ],
+   q(yauma) => [
+      q(7596),
+      q(0),
+      ],
+   q(yaur) => [
+      q(3056),
+      q(0),
+      ],
+   q(yautepec zapotec) => [
+      q(7915),
+      q(0),
+      ],
+   q(yauyos quechua) => [
+      q(5697),
+      q(0),
+      ],
+   q(yavitero) => [
+      q(7784),
+      q(0),
+      ],
+   q(yawa) => [
+      q(7783),
+      q(0),
+      ],
+   q(yawalapiti) => [
+      q(7595),
+      q(0),
+      ],
+   q(yawanawa) => [
+      q(7788),
+      q(0),
+      ],
+   q(yawarawarga) => [
+      q(7793),
+      q(0),
+      ],
+   q(yaweyuha) => [
+      q(7611),
+      q(0),
+      ],
+   q(yawijibaya) => [
+      q(3068),
+      q(0),
+      ],
+   q(yawiyo) => [
+      q(7610),
+      q(0),
+      ],
+   q(yawuru) => [
+      q(7790),
+      q(0),
+      ],
+   q(yaygir) => [
+      q(7565),
+      q(0),
+      ],
+   q(yazgulyam) => [
+      q(7582),
+      q(0),
+      ],
+   q(yecuatla totonac) => [
+      q(6568),
+      q(0),
+      ],
+   q(yei) => [
+      q(3078),
+      q(0),
+      ],
+   q(yekhee) => [
+      q(2309),
+      q(0),
+      ],
+   q(yekora) => [
+      q(7672),
+      q(0),
+      ],
+   q(yela) => [
+      q(7626),
+      q(0),
+      ],
+   q(yele) => [
+      q(7678),
+      q(0),
+      ],
+   q(yelmek) => [
+      q(3080),
+      q(0),
+      ],
+   q(yelogu) => [
+      q(7679),
+      q(0),
+      ],
+   q(yemba) => [
+      q(7600),
+      q(0),
+      ],
+   q(yemsa) => [
+      q(3131),
+      q(0),
+      ],
+   q(yendang) => [
+      q(7714),
+      q(0),
+      ],
+   q(yeni) => [
+      q(7624),
+      q(0),
+      ],
+   q(yeniche) => [
+      q(7622),
+      q(0),
+      ],
+   q(yerakai) => [
+      q(7736),
+      q(0),
+      ],
+   q(yeretuar) => [
+      q(2598),
+      q(0),
+      ],
+   q(yerong) => [
+      q(7743),
+      q(0),
+      ],
+   q(yerukula) => [
+      q(7630),
+      q(0),
+      ],
+   q(yessan-mayo) => [
+      q(7755),
+      q(0),
+      ],
+   q(yetfa) => [
+      q(7629),
+      q(0),
+      ],
+   q(yevanic) => [
+      q(7625),
+      q(0),
+      ],
+   q(yeyi) => [
+      q(7632),
+      q(0),
+      ],
+   q(yiddish) => [
+      q(0474),
+      q(0),
+      ],
+   q(yidgha) => [
+      q(7619),
+      q(0),
+      ],
+   q(yidiny) => [
+      q(7649),
+      q(0),
+      ],
+   q(yil) => [
+      q(7681),
+      q(0),
+      ],
+   q(yimas) => [
+      q(7623),
+      q(0),
+      ],
+   q(yimchungru naga) => [
+      q(7653),
+      q(0),
+      ],
+   q(yinbaw karen) => [
+      q(3687),
+      q(0),
+      ],
+   q(yinchia) => [
+      q(7654),
+      q(0),
+      ],
+   q(yindjibarndi) => [
+      q(7650),
+      q(0),
+      ],
+   q(yindjilandji) => [
+      q(7652),
+      q(0),
+      ],
+   q(yine) => [
+      q(5450),
+      q(0),
+      ],
+   q(yinggarda) => [
+      q(7646),
+      q(0),
+      ],
+   q(yinhawangka) => [
+      q(7786),
+      q(0),
+      ],
+   q(yiningayi) => [
+      q(7634),
+      q(0),
+      ],
+   q(yintale) => [
+      q(3691),
+      q(1),
+      ],
+   q(yintale karen) => [
+      q(3691),
+      q(0),
+      ],
+   q(yinwum) => [
+      q(7797),
+      q(0),
+      ],
+   q(yipma) => [
+      q(1606),
+      q(1),
+      ],
+   q(yir yoront) => [
+      q(7800),
+      q(0),
+      ],
+   q(yirandali) => [
+      q(3937),
+      q(0),
+      ],
+   q(yirrk-mel) => [
+      q(7742),
+      q(0),
+      ],
+   q(yis) => [
+      q(7658),
+      q(0),
+      ],
+   q(yitha yitha) => [
+      q(7513),
+      q(0),
+      ],
+   q(yiwom) => [
+      q(2481),
+      q(0),
+      ],
+   q(yoba) => [
+      q(7717),
+      q(0),
+      ],
+   q(yocoboue dida) => [
+      q(2645),
+      q(0),
+      ],
+   q(yogad) => [
+      q(7718),
+      q(0),
+      ],
+   q(yoidik) => [
+      q(7620),
+      q(0),
+      ],
+   q(yoke) => [
+      q(7666),
+      q(0),
+      ],
+   q(yokuts) => [
+      q(7720),
+      q(0),
+      ],
+   q(yola) => [
+      q(7721),
+      q(0),
+      ],
+   q(yolnu sign language) => [
+      q(7639),
+      q(0),
+      ],
+   q(yoloxochitl mixtec) => [
+      q(7528),
+      q(0),
+      ],
+   q(yom) => [
+      q(5459),
+      q(0),
+      ],
+   q(yombe) => [
+      q(7722),
+      q(0),
+      ],
+   q(yonaguni) => [
+      q(7719),
+      q(0),
+      ],
+   q(yong) => [
+      q(7713),
+      q(0),
+      ],
+   q(yongbei zhuang) => [
+      q(7970),
+      q(0),
+      ],
+   q(yongkom) => [
+      q(7723),
+      q(0),
+      ],
+   q(yongnan zhuang) => [
+      q(7973),
+      q(0),
+      ],
+   q(yopno) => [
+      q(7778),
+      q(0),
+      ],
+   q(yora) => [
+      q(4573),
+      q(0),
+      ],
+   q(yoron) => [
+      q(7725),
+      q(0),
+      ],
+   q(yorta yorta) => [
+      q(7571),
+      q(0),
+      ],
+   q(yoruba) => [
+      q(0475),
+      q(0),
+      ],
+   q(yosondua mixtec) => [
+      q(4467),
+      q(0),
+      ],
+   q(yotti) => [
+      q(7724),
+      q(0),
+      ],
+   q(youjiang zhuang) => [
+      q(7972),
+      q(0),
+      ],
+   q(youle jinuo) => [
+      q(3104),
+      q(0),
+      ],
+   q(younuo bunu) => [
+      q(1500),
+      q(0),
+      ],
+   q(yout wam) => [
+      q(7760),
+      q(0),
+      ],
+   q(yoy) => [
+      q(7726),
+      q(0),
+      ],
+   q(yuanga) => [
+      q(5104),
+      q(0),
+      ],
+   q(yucatec maya) => [
+      q(7762),
+      q(1),
+      ],
+   q(yucatec maya sign language) => [
+      q(4533),
+      q(0),
+      ],
+   q(yucateco) => [
+      q(7762),
+      q(0),
+      ],
+   q(yuchi) => [
+      q(7764),
+      q(0),
+      ],
+   q(yucuane mixtec) => [
+      q(4606),
+      q(0),
+      ],
+   q(yucuna) => [
+      q(7614),
+      q(0),
+      ],
+   q(yue chinese) => [
+      q(7766),
+      q(0),
+      ],
+   q(yug) => [
+      q(7768),
+      q(0),
+      ],
+   q(yugambal) => [
+      q(7763),
+      q(0),
+      ],
+   q(yugoslavian sign language) => [
+      q(7750),
+      q(0),
+      ],
+   q(yugul) => [
+      q(7640),
+      q(0),
+      ],
+   q(yuhup) => [
+      q(7576),
+      q(0),
+      ],
+   q(yuki) => [
+      q(7771),
+      q(0),
+      ],
+   q(yukpa) => [
+      q(7775),
+      q(0),
+      ],
+   q(yukuben) => [
+      q(7606),
+      q(0),
+      ],
+   q(yulu) => [
+      q(7772),
+      q(0),
+      ],
+   q(yupik languages) => [
+      q(0476),
+      q(0),
+      ],
+   q(yuqui) => [
+      q(7776),
+      q(0),
+      ],
+   q(yuracare) => [
+      q(7782),
+      q(0),
+      ],
+   q(yurats) => [
+      q(5860),
+      q(0),
+      ],
+   q(yurok) => [
+      q(7777),
+      q(0),
+      ],
+   q(yuru) => [
+      q(3938),
+      q(0),
+      ],
+   q(yuruti) => [
+      q(7769),
+      q(0),
+      ],
+   q(yutanduchi mixtec) => [
+      q(4116),
+      q(0),
+      ],
+   q(yuwana) => [
+      q(7593),
+      q(0),
+      ],
+   q(yuyu) => [
+      q(7798),
+      q(0),
+      ],
+   q(zaachila zapotec) => [
+      q(7963),
+      q(0),
+      ],
+   q(zabana) => [
+      q(3386),
+      q(0),
+      ],
+   q(zacatepec chatino) => [
+      q(1902),
+      q(0),
+      ],
+   q(zacatlan-ahuacatlan-tepetzintla nahuatl) => [
+      q(4868),
+      q(0),
+      ],
+   q(zaghawa) => [
+      q(7811),
+      q(0),
+      ],
+   q(zaiwa) => [
+      q(0910),
+      q(0),
+      ],
+   q(zakhring) => [
+      q(7867),
+      q(0),
+      ],
+   q(zambian sign language) => [
+      q(7949),
+      q(0),
+      ],
+   q(zan gula) => [
+      q(7902),
+      q(0),
+      ],
+   q(zanaki) => [
+      q(7815),
+      q(0),
+      ],
+   q(zande (individual language)) => [
+      q(7903),
+      q(0),
+      ],
+   q(zande languages) => [
+      q(0482),
+      q(0),
+      ],
+   q(zangskari) => [
+      q(7823),
+      q(0),
+      ],
+   q(zangwal) => [
+      q(7812),
+      q(0),
+      ],
+   q(zaniza zapotec) => [
+      q(7936),
+      q(0),
+      ],
+   q(zaparo) => [
+      q(7944),
+      q(0),
+      ],
+   q(zapotec) => [
+      q(0477),
+      q(0),
+      ],
+   q(zaramo) => [
+      q(7814),
+      q(0),
+      ],
+   q(zari) => [
+      q(7828),
+      q(0),
+      ],
+   q(zarma) => [
+      q(2062),
+      q(0),
+      ],
+   q(zarphatic) => [
+      q(7945),
+      q(0),
+      ],
+   q(zauzou) => [
+      q(7816),
+      q(0),
+      ],
+   q(zay) => [
+      q(7969),
+      q(0),
+      ],
+   q(zayein karen) => [
+      q(3726),
+      q(0),
+      ],
+   q(zayse-zergulla) => [
+      q(7827),
+      q(0),
+      ],
+   q(zaysete) => [
+      q(7827),
+      q(1),
+      ],
+   q(zaza) => [
+      q(0486),
+      q(0),
+      ],
+   q(zazaki) => [
+      q(0486),
+      q(5),
+      ],
+   q(zazao) => [
+      q(3047),
+      q(0),
+      ],
+   q(zeem) => [
+      q(7965),
+      q(0),
+      ],
+   q(zeeuws) => [
+      q(7836),
+      q(0),
+      ],
+   q(zemba) => [
+      q(2026),
+      q(0),
+      ],
+   q(zeme naga) => [
+      q(5180),
+      q(0),
+      ],
+   q(zemgalian) => [
+      q(7573),
+      q(0),
+      ],
+   q(zenag) => [
+      q(7837),
+      q(0),
+      ],
+   q(zenaga) => [
+      q(0479),
+      q(0),
+      ],
+   q(zenzontepec chatino) => [
+      q(1935),
+      q(0),
+      ],
+   q(zerenkel) => [
+      q(7943),
+      q(0),
+      ],
+   q(zhaba) => [
+      q(7844),
+      q(0),
+      ],
+   q(zhang-zhung) => [
+      q(7572),
+      q(0),
+      ],
+   q(zhire) => [
+      q(7846),
+      q(0),
+      ],
+   q(zhoa) => [
+      q(7848),
+      q(0),
+      ],
+   q(zhuang) => [
+      q(0481),
+      q(0),
+      ],
+   q(zia) => [
+      q(7849),
+      q(0),
+      ],
+   q(zialo) => [
+      q(7852),
+      q(0),
+      ],
+   q(zigula) => [
+      q(7856),
+      q(0),
+      ],
+   q(zimakani) => [
+      q(7851),
+      q(0),
+      ],
+   q(zimba) => [
+      q(7877),
+      q(0),
+      ],
+   q(zimbabwe sign language) => [
+      q(7850),
+      q(0),
+      ],
+   q(zinza) => [
+      q(7854),
+      q(0),
+      ],
+   q(zire) => [
+      q(6039),
+      q(0),
+      ],
+   q(ziriya) => [
+      q(7855),
+      q(0),
+      ],
+   q(zizilivakan) => [
+      q(7857),
+      q(0),
+      ],
+   q(zo'e) => [
+      q(5632),
+      q(0),
+      ],
+   q(zokhuo) => [
+      q(7804),
+      q(0),
+      ],
+   q(zoogocho zapotec) => [
+      q(7930),
+      q(0),
+      ],
+   q(zoroastrian dari) => [
+      q(2443),
+      q(0),
+      ],
+   q(zorop) => [
+      q(7115),
+      q(1),
+      ],
+   q(zotung chin) => [
+      q(1937),
+      q(0),
+      ],
+   q(zou) => [
+      q(7909),
+      q(0),
+      ],
+   q(zulgo-gemzek) => [
+      q(2570),
+      q(0),
+      ],
+   q(zulu) => [
+      q(0483),
+      q(0),
+      ],
+   q(zumaya) => [
+      q(7968),
+      q(0),
+      ],
+   q(zumbun) => [
+      q(3117),
+      q(0),
+      ],
+   q(zuni) => [
+      q(0484),
+      q(0),
+      ],
+   q(zuojiang zhuang) => [
+      q(7975),
+      q(0),
+      ],
+   q(zyphe chin) => [
+      q(7974),
+      q(0),
+      ],
+};
+
+$Locale::Codes::Data{'language'}{'code2id'} = {
+   q(alpha-2) => {
+      q(aa) => [
+         q(0001),
+         q(0),
+         ],
+      q(ab) => [
+         q(0002),
+         q(0),
+         ],
+      q(ae) => [
+         q(0034),
+         q(0),
+         ],
+      q(af) => [
+         q(0009),
+         q(0),
+         ],
+      q(ak) => [
+         q(0011),
+         q(0),
+         ],
+      q(am) => [
+         q(0017),
+         q(0),
+         ],
+      q(an) => [
+         q(0023),
+         q(0),
+         ],
+      q(ar) => [
+         q(0021),
+         q(0),
+         ],
+      q(as) => [
+         q(0029),
+         q(0),
+         ],
+      q(av) => [
+         q(0033),
+         q(0),
+         ],
+      q(ay) => [
+         q(0036),
+         q(0),
+         ],
+      q(az) => [
+         q(0037),
+         q(0),
+         ],
+      q(ba) => [
+         q(0040),
+         q(0),
+         ],
+      q(be) => [
+         q(0048),
+         q(0),
+         ],
+      q(bg) => [
+         q(0065),
+         q(0),
+         ],
+      q(bh) => [
+         q(0053),
+         q(0),
+         ],
+      q(bi) => [
+         q(0056),
+         q(0),
+         ],
+      q(bm) => [
+         q(0042),
+         q(0),
+         ],
+      q(bn) => [
+         q(0050),
+         q(0),
+         ],
+      q(bo) => [
+         q(0427),
+         q(0),
+         ],
+      q(br) => [
+         q(0061),
+         q(0),
+         ],
+      q(bs) => [
+         q(0059),
+         q(0),
+         ],
+      q(ca) => [
+         q(0071),
+         q(0),
+         ],
+      q(ce) => [
+         q(0077),
+         q(0),
+         ],
+      q(ch) => [
+         q(0075),
+         q(0),
+         ],
+      q(co) => [
+         q(0092),
+         q(0),
+         ],
+      q(cr) => [
+         q(0096),
+         q(0),
+         ],
+      q(cs) => [
+         q(0101),
+         q(0),
+         ],
+      q(cu) => [
+         q(0086),
+         q(0),
+         ],
+      q(cv) => [
+         q(0087),
+         q(0),
+         ],
+      q(cy) => [
+         q(0466),
+         q(0),
+         ],
+      q(da) => [
+         q(0103),
+         q(0),
+         ],
+      q(de) => [
+         q(0150),
+         q(0),
+         ],
+      q(dv) => [
+         q(0110),
+         q(1),
+         ],
+      q(dz) => [
+         q(0118),
+         q(0),
+         ],
+      q(ee) => [
+         q(0127),
+         q(0),
+         ],
+      q(el) => [
+         q(0164),
+         q(2),
+         ],
+      q(en) => [
+         q(0123),
+         q(0),
+         ],
+      q(eo) => [
+         q(0125),
+         q(0),
+         ],
+      q(es) => [
+         q(0401),
+         q(0),
+         ],
+      q(et) => [
+         q(0126),
+         q(0),
+         ],
+      q(eu) => [
+         q(0044),
+         q(0),
+         ],
+      q(fa) => [
+         q(0342),
+         q(0),
+         ],
+      q(ff) => [
+         q(0143),
+         q(0),
+         ],
+      q(fi) => [
+         q(0134),
+         q(0),
+         ],
+      q(fj) => [
+         q(0132),
+         q(0),
+         ],
+      q(fo) => [
+         q(0130),
+         q(0),
+         ],
+      q(fr) => [
+         q(0137),
+         q(0),
+         ],
+      q(fy) => [
+         q(0142),
+         q(0),
+         ],
+      q(ga) => [
+         q(0154),
+         q(0),
+         ],
+      q(gd) => [
+         q(0153),
+         q(1),
+         ],
+      q(gl) => [
+         q(0155),
+         q(0),
+         ],
+      q(gn) => [
+         q(0165),
+         q(0),
+         ],
+      q(gu) => [
+         q(0167),
+         q(0),
+         ],
+      q(gv) => [
+         q(0156),
+         q(0),
+         ],
+      q(ha) => [
+         q(0171),
+         q(0),
+         ],
+      q(he) => [
+         q(0173),
+         q(0),
+         ],
+      q(hi) => [
+         q(0177),
+         q(0),
+         ],
+      q(ho) => [
+         q(0180),
+         q(0),
+         ],
+      q(hr) => [
+         q(0181),
+         q(0),
+         ],
+      q(ht) => [
+         q(0170),
+         q(0),
+         ],
+      q(hu) => [
+         q(0183),
+         q(0),
+         ],
+      q(hy) => [
+         q(0024),
+         q(0),
+         ],
+      q(hz) => [
+         q(0174),
+         q(0),
+         ],
+      q(ia) => [
+         q(0194),
+         q(0),
+         ],
+      q(id) => [
+         q(0196),
+         q(0),
+         ],
+      q(ie) => [
+         q(0192),
+         q(0),
+         ],
+      q(ig) => [
+         q(0186),
+         q(0),
+         ],
+      q(ii) => [
+         q(0189),
+         q(0),
+         ],
+      q(ik) => [
+         q(0199),
+         q(0),
+         ],
+      q(io) => [
+         q(0188),
+         q(0),
+         ],
+      q(is) => [
+         q(0187),
+         q(0),
+         ],
+      q(it) => [
+         q(0202),
+         q(0),
+         ],
+      q(iu) => [
+         q(0191),
+         q(0),
+         ],
+      q(ja) => [
+         q(0205),
+         q(0),
+         ],
+      q(jv) => [
+         q(0203),
+         q(0),
+         ],
+      q(ka) => [
+         q(0149),
+         q(0),
+         ],
+      q(kg) => [
+         q(0230),
+         q(0),
+         ],
+      q(ki) => [
+         q(0224),
+         q(0),
+         ],
+      q(kj) => [
+         q(0238),
+         q(0),
+         ],
+      q(kk) => [
+         q(0218),
+         q(0),
+         ],
+      q(kl) => [
+         q(0211),
+         q(0),
+         ],
+      q(km) => [
+         q(0222),
+         q(0),
+         ],
+      q(kn) => [
+         q(0213),
+         q(0),
+         ],
+      q(ko) => [
+         q(0231),
+         q(0),
+         ],
+      q(kr) => [
+         q(0216),
+         q(0),
+         ],
+      q(ks) => [
+         q(0215),
+         q(0),
+         ],
+      q(ku) => [
+         q(0240),
+         q(0),
+         ],
+      q(kv) => [
+         q(0229),
+         q(0),
+         ],
+      q(kw) => [
+         q(0091),
+         q(0),
+         ],
+      q(ky) => [
+         q(0226),
+         q(0),
+         ],
+      q(la) => [
+         q(0246),
+         q(0),
+         ],
+      q(lb) => [
+         q(0254),
+         q(0),
+         ],
+      q(lg) => [
+         q(0257),
+         q(0),
+         ],
+      q(li) => [
+         q(0249),
+         q(0),
+         ],
+      q(ln) => [
+         q(0250),
+         q(0),
+         ],
+      q(lo) => [
+         q(0245),
+         q(0),
+         ],
+      q(lt) => [
+         q(0251),
+         q(0),
+         ],
+      q(lu) => [
+         q(0256),
+         q(0),
+         ],
+      q(lv) => [
+         q(0247),
+         q(0),
+         ],
+      q(mg) => [
+         q(0283),
+         q(0),
+         ],
+      q(mh) => [
+         q(0265),
+         q(0),
+         ],
+      q(mi) => [
+         q(0270),
+         q(0),
+         ],
+      q(mk) => [
+         q(0262),
+         q(0),
+         ],
+      q(ml) => [
+         q(0268),
+         q(0),
+         ],
+      q(mn) => [
+         q(0289),
+         q(0),
+         ],
+      q(mr) => [
+         q(0272),
+         q(0),
+         ],
+      q(ms) => [
+         q(0274),
+         q(1),
+         ],
+      q(mt) => [
+         q(0284),
+         q(0),
+         ],
+      q(my) => [
+         q(0066),
+         q(0),
+         ],
+      q(na) => [
+         q(0301),
+         q(0),
+         ],
+      q(nb) => [
+         q(0313),
+         q(1),
+         ],
+      q(nd) => [
+         q(0304),
+         q(1),
+         ],
+      q(ne) => [
+         q(0307),
+         q(1),
+         ],
+      q(ng) => [
+         q(0305),
+         q(0),
+         ],
+      q(nl) => [
+         q(0116),
+         q(0),
+         ],
+      q(nn) => [
+         q(0312),
+         q(0),
+         ],
+      q(no) => [
+         q(0316),
+         q(0),
+         ],
+      q(nr) => [
+         q(0303),
+         q(1),
+         ],
+      q(nv) => [
+         q(0302),
+         q(0),
+         ],
+      q(ny) => [
+         q(0321),
+         q(2),
+         ],
+      q(oc) => [
+         q(0326),
+         q(0),
+         ],
+      q(oj) => [
+         q(0327),
+         q(0),
+         ],
+      q(om) => [
+         q(0329),
+         q(0),
+         ],
+      q(or) => [
+         q(0328),
+         q(1),
+         ],
+      q(os) => [
+         q(0331),
+         q(0),
+         ],
+      q(pa) => [
+         q(0338),
+         q(0),
+         ],
+      q(pi) => [
+         q(0345),
+         q(0),
+         ],
+      q(pl) => [
+         q(0346),
+         q(0),
+         ],
+      q(ps) => [
+         q(0351),
+         q(0),
+         ],
+      q(pt) => [
+         q(0348),
+         q(0),
+         ],
+      q(qu) => [
+         q(0353),
+         q(0),
+         ],
+      q(rm) => [
+         q(0358),
+         q(0),
+         ],
+      q(rn) => [
+         q(0361),
+         q(0),
+         ],
+      q(ro) => [
+         q(0360),
+         q(0),
+         ],
+      q(ru) => [
+         q(0363),
+         q(0),
+         ],
+      q(rw) => [
+         q(0225),
+         q(0),
+         ],
+      q(sa) => [
+         q(0370),
+         q(0),
+         ],
+      q(sc) => [
+         q(0402),
+         q(0),
+         ],
+      q(sd) => [
+         q(0395),
+         q(0),
+         ],
+      q(se) => [
+         q(0388),
+         q(0),
+         ],
+      q(sg) => [
+         q(0365),
+         q(0),
+         ],
+      q(sh) => [
+         q(0537),
+         q(0),
+         ],
+      q(si) => [
+         q(0381),
+         q(0),
+         ],
+      q(sk) => [
+         q(0385),
+         q(0),
+         ],
+      q(sl) => [
+         q(0386),
+         q(0),
+         ],
+      q(sm) => [
+         q(0392),
+         q(0),
+         ],
+      q(sn) => [
+         q(0394),
+         q(0),
+         ],
+      q(so) => [
+         q(0398),
+         q(0),
+         ],
+      q(sq) => [
+         q(0013),
+         q(0),
+         ],
+      q(sr) => [
+         q(0404),
+         q(0),
+         ],
+      q(ss) => [
+         q(0407),
+         q(0),
+         ],
+      q(st) => [
+         q(0400),
+         q(1),
+         ],
+      q(su) => [
+         q(0409),
+         q(0),
+         ],
+      q(sv) => [
+         q(0413),
+         q(0),
+         ],
+      q(sw) => [
+         q(0412),
+         q(1),
+         ],
+      q(ta) => [
+         q(0418),
+         q(0),
+         ],
+      q(te) => [
+         q(0420),
+         q(0),
+         ],
+      q(tg) => [
+         q(0424),
+         q(0),
+         ],
+      q(th) => [
+         q(0426),
+         q(0),
+         ],
+      q(ti) => [
+         q(0429),
+         q(0),
+         ],
+      q(tk) => [
+         q(0441),
+         q(0),
+         ],
+      q(tl) => [
+         q(0425),
+         q(0),
+         ],
+      q(tn) => [
+         q(0439),
+         q(0),
+         ],
+      q(to) => [
+         q(0436),
+         q(0),
+         ],
+      q(tr) => [
+         q(0444),
+         q(0),
+         ],
+      q(ts) => [
+         q(0440),
+         q(0),
+         ],
+      q(tt) => [
+         q(0419),
+         q(0),
+         ],
+      q(tw) => [
+         q(0447),
+         q(0),
+         ],
+      q(ty) => [
+         q(0416),
+         q(0),
+         ],
+      q(ug) => [
+         q(0451),
+         q(0),
+         ],
+      q(uk) => [
+         q(0452),
+         q(0),
+         ],
+      q(ur) => [
+         q(0455),
+         q(0),
+         ],
+      q(uz) => [
+         q(0456),
+         q(0),
+         ],
+      q(ve) => [
+         q(0458),
+         q(0),
+         ],
+      q(vi) => [
+         q(0459),
+         q(0),
+         ],
+      q(vo) => [
+         q(0460),
+         q(0),
+         ],
+      q(wa) => [
+         q(0468),
+         q(0),
+         ],
+      q(wo) => [
+         q(0469),
+         q(0),
+         ],
+      q(xh) => [
+         q(0471),
+         q(0),
+         ],
+      q(yi) => [
+         q(0474),
+         q(0),
+         ],
+      q(yo) => [
+         q(0475),
+         q(0),
+         ],
+      q(za) => [
+         q(0481),
+         q(0),
+         ],
+      q(zh) => [
+         q(0079),
+         q(0),
+         ],
+      q(zu) => [
+         q(0483),
+         q(0),
+         ],
+      },
+   q(alpha-3) => {
+      q(aaa) => [
+         q(0538),
+         q(0),
+         ],
+      q(aab) => [
+         q(0539),
+         q(0),
+         ],
+      q(aac) => [
+         q(0540),
+         q(0),
+         ],
+      q(aad) => [
+         q(0541),
+         q(0),
+         ],
+      q(aae) => [
+         q(0542),
+         q(0),
+         ],
+      q(aaf) => [
+         q(0543),
+         q(0),
+         ],
+      q(aag) => [
+         q(0544),
+         q(0),
+         ],
+      q(aah) => [
+         q(0545),
+         q(0),
+         ],
+      q(aai) => [
+         q(0546),
+         q(0),
+         ],
+      q(aak) => [
+         q(0547),
+         q(0),
+         ],
+      q(aal) => [
+         q(0548),
+         q(0),
+         ],
+      q(aan) => [
+         q(0549),
+         q(0),
+         ],
+      q(aao) => [
+         q(0550),
+         q(0),
+         ],
+      q(aap) => [
+         q(0551),
+         q(0),
+         ],
+      q(aaq) => [
+         q(0552),
+         q(0),
+         ],
+      q(aar) => [
+         q(0001),
+         q(0),
+         ],
+      q(aas) => [
+         q(0553),
+         q(0),
+         ],
+      q(aat) => [
+         q(0554),
+         q(0),
+         ],
+      q(aau) => [
+         q(0555),
+         q(0),
+         ],
+      q(aav) => [
+         q(0487),
+         q(0),
+         ],
+      q(aaw) => [
+         q(0556),
+         q(0),
+         ],
+      q(aax) => [
+         q(0557),
+         q(0),
+         ],
+      q(aaz) => [
+         q(0558),
+         q(0),
+         ],
+      q(aba) => [
+         q(0559),
+         q(0),
+         ],
+      q(abb) => [
+         q(0560),
+         q(0),
+         ],
+      q(abc) => [
+         q(0561),
+         q(0),
+         ],
+      q(abd) => [
+         q(0562),
+         q(0),
+         ],
+      q(abe) => [
+         q(0563),
+         q(0),
+         ],
+      q(abf) => [
+         q(0564),
+         q(0),
+         ],
+      q(abg) => [
+         q(0565),
+         q(0),
+         ],
+      q(abh) => [
+         q(0566),
+         q(0),
+         ],
+      q(abi) => [
+         q(0567),
+         q(0),
+         ],
+      q(abj) => [
+         q(0568),
+         q(0),
+         ],
+      q(abk) => [
+         q(0002),
+         q(0),
+         ],
+      q(abl) => [
+         q(0569),
+         q(0),
+         ],
+      q(abm) => [
+         q(0570),
+         q(0),
+         ],
+      q(abn) => [
+         q(0571),
+         q(0),
+         ],
+      q(abo) => [
+         q(0572),
+         q(0),
+         ],
+      q(abp) => [
+         q(0573),
+         q(0),
+         ],
+      q(abq) => [
+         q(0574),
+         q(0),
+         ],
+      q(abr) => [
+         q(0575),
+         q(0),
+         ],
+      q(abs) => [
+         q(0576),
+         q(0),
+         ],
+      q(abt) => [
+         q(0577),
+         q(0),
+         ],
+      q(abu) => [
+         q(0578),
+         q(0),
+         ],
+      q(abv) => [
+         q(0579),
+         q(0),
+         ],
+      q(abw) => [
+         q(0580),
+         q(0),
+         ],
+      q(abx) => [
+         q(0581),
+         q(0),
+         ],
+      q(aby) => [
+         q(0582),
+         q(0),
+         ],
+      q(abz) => [
+         q(0583),
+         q(0),
+         ],
+      q(aca) => [
+         q(0584),
+         q(0),
+         ],
+      q(acb) => [
+         q(0585),
+         q(0),
+         ],
+      q(acd) => [
+         q(0586),
+         q(0),
+         ],
+      q(ace) => [
+         q(0003),
+         q(0),
+         ],
+      q(acf) => [
+         q(0587),
+         q(0),
+         ],
+      q(ach) => [
+         q(0004),
+         q(0),
+         ],
+      q(aci) => [
+         q(0588),
+         q(0),
+         ],
+      q(ack) => [
+         q(0589),
+         q(0),
+         ],
+      q(acl) => [
+         q(0590),
+         q(0),
+         ],
+      q(acm) => [
+         q(0591),
+         q(0),
+         ],
+      q(acn) => [
+         q(0592),
+         q(0),
+         ],
+      q(acp) => [
+         q(0593),
+         q(0),
+         ],
+      q(acq) => [
+         q(0594),
+         q(0),
+         ],
+      q(acr) => [
+         q(0595),
+         q(0),
+         ],
+      q(acs) => [
+         q(0596),
+         q(0),
+         ],
+      q(act) => [
+         q(0597),
+         q(0),
+         ],
+      q(acu) => [
+         q(0598),
+         q(0),
+         ],
+      q(acv) => [
+         q(0599),
+         q(0),
+         ],
+      q(acw) => [
+         q(0600),
+         q(0),
+         ],
+      q(acx) => [
+         q(0601),
+         q(0),
+         ],
+      q(acy) => [
+         q(0602),
+         q(0),
+         ],
+      q(acz) => [
+         q(0603),
+         q(0),
+         ],
+      q(ada) => [
+         q(0005),
+         q(0),
+         ],
+      q(adb) => [
+         q(0604),
+         q(0),
+         ],
+      q(add) => [
+         q(0605),
+         q(0),
+         ],
+      q(ade) => [
+         q(0606),
+         q(0),
+         ],
+      q(adf) => [
+         q(0607),
+         q(0),
+         ],
+      q(adg) => [
+         q(0608),
+         q(0),
+         ],
+      q(adh) => [
+         q(0609),
+         q(0),
+         ],
+      q(adi) => [
+         q(0610),
+         q(0),
+         ],
+      q(adj) => [
+         q(0611),
+         q(0),
+         ],
+      q(adl) => [
+         q(0612),
+         q(0),
+         ],
+      q(adn) => [
+         q(0613),
+         q(0),
+         ],
+      q(ado) => [
+         q(0614),
+         q(0),
+         ],
+      q(adq) => [
+         q(0615),
+         q(0),
+         ],
+      q(adr) => [
+         q(0616),
+         q(0),
+         ],
+      q(ads) => [
+         q(0617),
+         q(0),
+         ],
+      q(adt) => [
+         q(0618),
+         q(0),
+         ],
+      q(adu) => [
+         q(0619),
+         q(0),
+         ],
+      q(adw) => [
+         q(0620),
+         q(0),
+         ],
+      q(adx) => [
+         q(0621),
+         q(0),
+         ],
+      q(ady) => [
+         q(0006),
+         q(0),
+         ],
+      q(adz) => [
+         q(0622),
+         q(0),
+         ],
+      q(aea) => [
+         q(0623),
+         q(0),
+         ],
+      q(aeb) => [
+         q(0624),
+         q(0),
+         ],
+      q(aec) => [
+         q(0625),
+         q(0),
+         ],
+      q(aed) => [
+         q(0626),
+         q(0),
+         ],
+      q(aee) => [
+         q(0627),
+         q(0),
+         ],
+      q(aek) => [
+         q(0628),
+         q(0),
+         ],
+      q(ael) => [
+         q(0629),
+         q(0),
+         ],
+      q(aem) => [
+         q(0630),
+         q(0),
+         ],
+      q(aen) => [
+         q(0631),
+         q(0),
+         ],
+      q(aeq) => [
+         q(0632),
+         q(0),
+         ],
+      q(aer) => [
+         q(0633),
+         q(0),
+         ],
+      q(aes) => [
+         q(0634),
+         q(0),
+         ],
+      q(aeu) => [
+         q(0635),
+         q(0),
+         ],
+      q(aew) => [
+         q(0636),
+         q(0),
+         ],
+      q(aey) => [
+         q(0637),
+         q(0),
+         ],
+      q(aez) => [
+         q(0638),
+         q(0),
+         ],
+      q(afa) => [
+         q(0007),
+         q(0),
+         ],
+      q(afb) => [
+         q(0639),
+         q(0),
+         ],
+      q(afd) => [
+         q(0640),
+         q(0),
+         ],
+      q(afe) => [
+         q(0641),
+         q(0),
+         ],
+      q(afg) => [
+         q(0642),
+         q(0),
+         ],
+      q(afh) => [
+         q(0008),
+         q(0),
+         ],
+      q(afi) => [
+         q(0643),
+         q(0),
+         ],
+      q(afk) => [
+         q(0644),
+         q(0),
+         ],
+      q(afn) => [
+         q(0645),
+         q(0),
+         ],
+      q(afo) => [
+         q(0646),
+         q(0),
+         ],
+      q(afp) => [
+         q(0647),
+         q(0),
+         ],
+      q(afr) => [
+         q(0009),
+         q(0),
+         ],
+      q(afs) => [
+         q(0648),
+         q(0),
+         ],
+      q(aft) => [
+         q(0649),
+         q(0),
+         ],
+      q(afu) => [
+         q(0650),
+         q(0),
+         ],
+      q(afz) => [
+         q(0651),
+         q(0),
+         ],
+      q(aga) => [
+         q(0652),
+         q(0),
+         ],
+      q(agb) => [
+         q(0653),
+         q(0),
+         ],
+      q(agc) => [
+         q(0654),
+         q(0),
+         ],
+      q(agd) => [
+         q(0655),
+         q(0),
+         ],
+      q(age) => [
+         q(0656),
+         q(0),
+         ],
+      q(agf) => [
+         q(0657),
+         q(0),
+         ],
+      q(agg) => [
+         q(0658),
+         q(0),
+         ],
+      q(agh) => [
+         q(0659),
+         q(0),
+         ],
+      q(agi) => [
+         q(0660),
+         q(0),
+         ],
+      q(agj) => [
+         q(0661),
+         q(0),
+         ],
+      q(agk) => [
+         q(0662),
+         q(0),
+         ],
+      q(agl) => [
+         q(0663),
+         q(0),
+         ],
+      q(agm) => [
+         q(0664),
+         q(0),
+         ],
+      q(agn) => [
+         q(0665),
+         q(0),
+         ],
+      q(ago) => [
+         q(0666),
+         q(0),
+         ],
+      q(agq) => [
+         q(0667),
+         q(0),
+         ],
+      q(agr) => [
+         q(0668),
+         q(0),
+         ],
+      q(ags) => [
+         q(0669),
+         q(0),
+         ],
+      q(agt) => [
+         q(0670),
+         q(0),
+         ],
+      q(agu) => [
+         q(0671),
+         q(0),
+         ],
+      q(agv) => [
+         q(0672),
+         q(0),
+         ],
+      q(agw) => [
+         q(0673),
+         q(0),
+         ],
+      q(agx) => [
+         q(0674),
+         q(0),
+         ],
+      q(agy) => [
+         q(0675),
+         q(0),
+         ],
+      q(agz) => [
+         q(0676),
+         q(0),
+         ],
+      q(aha) => [
+         q(0677),
+         q(0),
+         ],
+      q(ahb) => [
+         q(0678),
+         q(0),
+         ],
+      q(ahg) => [
+         q(0679),
+         q(0),
+         ],
+      q(ahh) => [
+         q(0680),
+         q(0),
+         ],
+      q(ahi) => [
+         q(0681),
+         q(0),
+         ],
+      q(ahk) => [
+         q(0682),
+         q(0),
+         ],
+      q(ahl) => [
+         q(0683),
+         q(0),
+         ],
+      q(ahm) => [
+         q(0684),
+         q(0),
+         ],
+      q(ahn) => [
+         q(0685),
+         q(0),
+         ],
+      q(aho) => [
+         q(0686),
+         q(0),
+         ],
+      q(ahp) => [
+         q(0687),
+         q(0),
+         ],
+      q(ahr) => [
+         q(0688),
+         q(0),
+         ],
+      q(ahs) => [
+         q(0689),
+         q(0),
+         ],
+      q(aht) => [
+         q(0690),
+         q(0),
+         ],
+      q(aia) => [
+         q(0691),
+         q(0),
+         ],
+      q(aib) => [
+         q(0692),
+         q(0),
+         ],
+      q(aic) => [
+         q(0693),
+         q(0),
+         ],
+      q(aid) => [
+         q(0694),
+         q(0),
+         ],
+      q(aie) => [
+         q(0695),
+         q(0),
+         ],
+      q(aif) => [
+         q(0696),
+         q(0),
+         ],
+      q(aig) => [
+         q(0697),
+         q(0),
+         ],
+      q(aih) => [
+         q(0698),
+         q(0),
+         ],
+      q(aii) => [
+         q(0699),
+         q(0),
+         ],
+      q(aij) => [
+         q(0700),
+         q(0),
+         ],
+      q(aik) => [
+         q(0701),
+         q(0),
+         ],
+      q(ail) => [
+         q(0702),
+         q(0),
+         ],
+      q(aim) => [
+         q(0703),
+         q(0),
+         ],
+      q(ain) => [
+         q(0010),
+         q(1),
+         ],
+      q(aio) => [
+         q(0704),
+         q(0),
+         ],
+      q(aip) => [
+         q(0705),
+         q(0),
+         ],
+      q(aiq) => [
+         q(0706),
+         q(0),
+         ],
+      q(air) => [
+         q(0707),
+         q(0),
+         ],
+      q(ais) => [
+         q(0708),
+         q(0),
+         ],
+      q(ait) => [
+         q(0709),
+         q(0),
+         ],
+      q(aiw) => [
+         q(0710),
+         q(0),
+         ],
+      q(aix) => [
+         q(0711),
+         q(0),
+         ],
+      q(aiy) => [
+         q(0712),
+         q(0),
+         ],
+      q(aja) => [
+         q(0713),
+         q(0),
+         ],
+      q(ajg) => [
+         q(0714),
+         q(0),
+         ],
+      q(aji) => [
+         q(0715),
+         q(0),
+         ],
+      q(ajn) => [
+         q(0716),
+         q(0),
+         ],
+      q(ajp) => [
+         q(0717),
+         q(0),
+         ],
+      q(ajt) => [
+         q(0718),
+         q(0),
+         ],
+      q(aju) => [
+         q(0719),
+         q(0),
+         ],
+      q(ajw) => [
+         q(0720),
+         q(0),
+         ],
+      q(ajz) => [
+         q(0721),
+         q(0),
+         ],
+      q(aka) => [
+         q(0011),
+         q(0),
+         ],
+      q(akb) => [
+         q(0722),
+         q(0),
+         ],
+      q(akc) => [
+         q(0723),
+         q(0),
+         ],
+      q(akd) => [
+         q(0724),
+         q(0),
+         ],
+      q(ake) => [
+         q(0725),
+         q(0),
+         ],
+      q(akf) => [
+         q(0726),
+         q(0),
+         ],
+      q(akg) => [
+         q(0727),
+         q(0),
+         ],
+      q(akh) => [
+         q(0728),
+         q(0),
+         ],
+      q(aki) => [
+         q(0729),
+         q(0),
+         ],
+      q(akj) => [
+         q(0730),
+         q(0),
+         ],
+      q(akk) => [
+         q(0012),
+         q(0),
+         ],
+      q(akl) => [
+         q(0731),
+         q(0),
+         ],
+      q(akm) => [
+         q(0732),
+         q(0),
+         ],
+      q(ako) => [
+         q(0733),
+         q(0),
+         ],
+      q(akp) => [
+         q(0734),
+         q(0),
+         ],
+      q(akq) => [
+         q(0735),
+         q(0),
+         ],
+      q(akr) => [
+         q(0736),
+         q(0),
+         ],
+      q(aks) => [
+         q(0737),
+         q(0),
+         ],
+      q(akt) => [
+         q(0738),
+         q(0),
+         ],
+      q(aku) => [
+         q(0739),
+         q(0),
+         ],
+      q(akv) => [
+         q(0740),
+         q(0),
+         ],
+      q(akw) => [
+         q(0741),
+         q(0),
+         ],
+      q(akx) => [
+         q(0742),
+         q(0),
+         ],
+      q(aky) => [
+         q(0743),
+         q(0),
+         ],
+      q(akz) => [
+         q(0744),
+         q(0),
+         ],
+      q(ala) => [
+         q(0745),
+         q(0),
+         ],
+      q(alb) => [
+         q(0013),
+         q(0),
+         ],
+      q(alc) => [
+         q(0746),
+         q(0),
+         ],
+      q(ald) => [
+         q(0747),
+         q(0),
+         ],
+      q(ale) => [
+         q(0014),
+         q(0),
+         ],
+      q(alf) => [
+         q(0748),
+         q(0),
+         ],
+      q(alg) => [
+         q(0015),
+         q(0),
+         ],
+      q(alh) => [
+         q(0749),
+         q(0),
+         ],
+      q(ali) => [
+         q(0750),
+         q(0),
+         ],
+      q(alj) => [
+         q(0751),
+         q(0),
+         ],
+      q(alk) => [
+         q(0752),
+         q(0),
+         ],
+      q(all) => [
+         q(0753),
+         q(0),
+         ],
+      q(alm) => [
+         q(0754),
+         q(0),
+         ],
+      q(aln) => [
+         q(0755),
+         q(0),
+         ],
+      q(alo) => [
+         q(0756),
+         q(0),
+         ],
+      q(alp) => [
+         q(0757),
+         q(0),
+         ],
+      q(alq) => [
+         q(0758),
+         q(0),
+         ],
+      q(alr) => [
+         q(0759),
+         q(0),
+         ],
+      q(als) => [
+         q(0760),
+         q(0),
+         ],
+      q(alt) => [
+         q(0016),
+         q(0),
+         ],
+      q(alu) => [
+         q(0761),
+         q(0),
+         ],
+      q(alv) => [
+         q(0488),
+         q(0),
+         ],
+      q(alw) => [
+         q(0762),
+         q(0),
+         ],
+      q(alx) => [
+         q(0763),
+         q(0),
+         ],
+      q(aly) => [
+         q(0764),
+         q(0),
+         ],
+      q(alz) => [
+         q(0765),
+         q(0),
+         ],
+      q(ama) => [
+         q(0766),
+         q(0),
+         ],
+      q(amb) => [
+         q(0767),
+         q(0),
+         ],
+      q(amc) => [
+         q(0768),
+         q(0),
+         ],
+      q(ame) => [
+         q(0769),
+         q(0),
+         ],
+      q(amf) => [
+         q(0770),
+         q(0),
+         ],
+      q(amg) => [
+         q(0771),
+         q(0),
+         ],
+      q(amh) => [
+         q(0017),
+         q(0),
+         ],
+      q(ami) => [
+         q(0772),
+         q(0),
+         ],
+      q(amj) => [
+         q(0773),
+         q(0),
+         ],
+      q(amk) => [
+         q(0774),
+         q(0),
+         ],
+      q(aml) => [
+         q(0775),
+         q(0),
+         ],
+      q(amm) => [
+         q(0776),
+         q(0),
+         ],
+      q(amn) => [
+         q(0777),
+         q(0),
+         ],
+      q(amo) => [
+         q(0778),
+         q(0),
+         ],
+      q(amp) => [
+         q(0779),
+         q(0),
+         ],
+      q(amq) => [
+         q(0780),
+         q(0),
+         ],
+      q(amr) => [
+         q(0781),
+         q(0),
+         ],
+      q(ams) => [
+         q(0782),
+         q(0),
+         ],
+      q(amt) => [
+         q(0783),
+         q(0),
+         ],
+      q(amu) => [
+         q(0784),
+         q(0),
+         ],
+      q(amv) => [
+         q(0785),
+         q(0),
+         ],
+      q(amw) => [
+         q(0786),
+         q(0),
+         ],
+      q(amx) => [
+         q(0787),
+         q(0),
+         ],
+      q(amy) => [
+         q(0788),
+         q(0),
+         ],
+      q(amz) => [
+         q(0789),
+         q(0),
+         ],
+      q(ana) => [
+         q(0790),
+         q(0),
+         ],
+      q(anb) => [
+         q(0791),
+         q(0),
+         ],
+      q(anc) => [
+         q(0792),
+         q(0),
+         ],
+      q(and) => [
+         q(0793),
+         q(0),
+         ],
+      q(ane) => [
+         q(0794),
+         q(0),
+         ],
+      q(anf) => [
+         q(0795),
+         q(0),
+         ],
+      q(ang) => [
+         q(0018),
+         q(1),
+         ],
+      q(anh) => [
+         q(0796),
+         q(0),
+         ],
+      q(ani) => [
+         q(0797),
+         q(0),
+         ],
+      q(anj) => [
+         q(0798),
+         q(0),
+         ],
+      q(ank) => [
+         q(0799),
+         q(0),
+         ],
+      q(anl) => [
+         q(0800),
+         q(0),
+         ],
+      q(anm) => [
+         q(0801),
+         q(0),
+         ],
+      q(ann) => [
+         q(0802),
+         q(0),
+         ],
+      q(ano) => [
+         q(0803),
+         q(0),
+         ],
+      q(anp) => [
+         q(0019),
+         q(0),
+         ],
+      q(anq) => [
+         q(0804),
+         q(0),
+         ],
+      q(anr) => [
+         q(0805),
+         q(0),
+         ],
+      q(ans) => [
+         q(0806),
+         q(0),
+         ],
+      q(ant) => [
+         q(0807),
+         q(0),
+         ],
+      q(anu) => [
+         q(0808),
+         q(0),
+         ],
+      q(anv) => [
+         q(0809),
+         q(0),
+         ],
+      q(anw) => [
+         q(0810),
+         q(0),
+         ],
+      q(anx) => [
+         q(0811),
+         q(0),
+         ],
+      q(any) => [
+         q(0812),
+         q(0),
+         ],
+      q(anz) => [
+         q(0813),
+         q(0),
+         ],
+      q(aoa) => [
+         q(0814),
+         q(0),
+         ],
+      q(aob) => [
+         q(0815),
+         q(0),
+         ],
+      q(aoc) => [
+         q(0816),
+         q(0),
+         ],
+      q(aod) => [
+         q(0817),
+         q(0),
+         ],
+      q(aoe) => [
+         q(0818),
+         q(0),
+         ],
+      q(aof) => [
+         q(0819),
+         q(0),
+         ],
+      q(aog) => [
+         q(0820),
+         q(0),
+         ],
+      q(aoh) => [
+         q(0821),
+         q(0),
+         ],
+      q(aoi) => [
+         q(0822),
+         q(0),
+         ],
+      q(aoj) => [
+         q(0823),
+         q(0),
+         ],
+      q(aok) => [
+         q(0824),
+         q(0),
+         ],
+      q(aol) => [
+         q(0825),
+         q(0),
+         ],
+      q(aom) => [
+         q(0826),
+         q(0),
+         ],
+      q(aon) => [
+         q(0827),
+         q(0),
+         ],
+      q(aor) => [
+         q(0828),
+         q(0),
+         ],
+      q(aos) => [
+         q(0829),
+         q(0),
+         ],
+      q(aot) => [
+         q(0830),
+         q(0),
+         ],
+      q(aou) => [
+         q(0831),
+         q(0),
+         ],
+      q(aox) => [
+         q(0832),
+         q(0),
+         ],
+      q(aoz) => [
+         q(0833),
+         q(0),
+         ],
+      q(apa) => [
+         q(0020),
+         q(0),
+         ],
+      q(apb) => [
+         q(0834),
+         q(0),
+         ],
+      q(apc) => [
+         q(0835),
+         q(0),
+         ],
+      q(apd) => [
+         q(0836),
+         q(0),
+         ],
+      q(ape) => [
+         q(0837),
+         q(0),
+         ],
+      q(apf) => [
+         q(0838),
+         q(0),
+         ],
+      q(apg) => [
+         q(0839),
+         q(0),
+         ],
+      q(aph) => [
+         q(0840),
+         q(0),
+         ],
+      q(api) => [
+         q(0841),
+         q(0),
+         ],
+      q(apj) => [
+         q(0842),
+         q(0),
+         ],
+      q(apk) => [
+         q(0843),
+         q(0),
+         ],
+      q(apl) => [
+         q(0844),
+         q(0),
+         ],
+      q(apm) => [
+         q(0845),
+         q(0),
+         ],
+      q(apn) => [
+         q(0846),
+         q(0),
+         ],
+      q(apo) => [
+         q(0847),
+         q(0),
+         ],
+      q(app) => [
+         q(0848),
+         q(0),
+         ],
+      q(apq) => [
+         q(0849),
+         q(0),
+         ],
+      q(apr) => [
+         q(0850),
+         q(0),
+         ],
+      q(aps) => [
+         q(0851),
+         q(0),
+         ],
+      q(apt) => [
+         q(0852),
+         q(0),
+         ],
+      q(apu) => [
+         q(0853),
+         q(0),
+         ],
+      q(apv) => [
+         q(0854),
+         q(0),
+         ],
+      q(apw) => [
+         q(0855),
+         q(0),
+         ],
+      q(apx) => [
+         q(0856),
+         q(0),
+         ],
+      q(apy) => [
+         q(0857),
+         q(0),
+         ],
+      q(apz) => [
+         q(0858),
+         q(0),
+         ],
+      q(aqa) => [
+         q(0489),
+         q(0),
+         ],
+      q(aqc) => [
+         q(0859),
+         q(0),
+         ],
+      q(aqd) => [
+         q(0860),
+         q(0),
+         ],
+      q(aqg) => [
+         q(0861),
+         q(0),
+         ],
+      q(aql) => [
+         q(0490),
+         q(0),
+         ],
+      q(aqm) => [
+         q(0862),
+         q(0),
+         ],
+      q(aqn) => [
+         q(0863),
+         q(0),
+         ],
+      q(aqp) => [
+         q(0864),
+         q(0),
+         ],
+      q(aqr) => [
+         q(0865),
+         q(0),
+         ],
+      q(aqt) => [
+         q(0866),
+         q(0),
+         ],
+      q(aqz) => [
+         q(0867),
+         q(0),
+         ],
+      q(ara) => [
+         q(0021),
+         q(0),
+         ],
+      q(arb) => [
+         q(0868),
+         q(0),
+         ],
+      q(arc) => [
+         q(0022),
+         q(0),
+         ],
+      q(ard) => [
+         q(0869),
+         q(0),
+         ],
+      q(are) => [
+         q(0870),
+         q(0),
+         ],
+      q(arg) => [
+         q(0023),
+         q(0),
+         ],
+      q(arh) => [
+         q(0871),
+         q(0),
+         ],
+      q(ari) => [
+         q(0872),
+         q(0),
+         ],
+      q(arj) => [
+         q(0873),
+         q(0),
+         ],
+      q(ark) => [
+         q(0874),
+         q(0),
+         ],
+      q(arl) => [
+         q(0875),
+         q(0),
+         ],
+      q(arm) => [
+         q(0024),
+         q(0),
+         ],
+      q(arn) => [
+         q(0025),
+         q(0),
+         ],
+      q(aro) => [
+         q(0876),
+         q(0),
+         ],
+      q(arp) => [
+         q(0026),
+         q(0),
+         ],
+      q(arq) => [
+         q(0877),
+         q(0),
+         ],
+      q(arr) => [
+         q(0878),
+         q(0),
+         ],
+      q(ars) => [
+         q(0879),
+         q(0),
+         ],
+      q(art) => [
+         q(0027),
+         q(0),
+         ],
+      q(aru) => [
+         q(0880),
+         q(0),
+         ],
+      q(arv) => [
+         q(0881),
+         q(0),
+         ],
+      q(arw) => [
+         q(0028),
+         q(0),
+         ],
+      q(arx) => [
+         q(0882),
+         q(0),
+         ],
+      q(ary) => [
+         q(0883),
+         q(0),
+         ],
+      q(arz) => [
+         q(0884),
+         q(0),
+         ],
+      q(asa) => [
+         q(0885),
+         q(0),
+         ],
+      q(asb) => [
+         q(0886),
+         q(0),
+         ],
+      q(asc) => [
+         q(0887),
+         q(0),
+         ],
+      q(asd) => [
+         q(0888),
+         q(0),
+         ],
+      q(ase) => [
+         q(0889),
+         q(0),
+         ],
+      q(asf) => [
+         q(0890),
+         q(0),
+         ],
+      q(asg) => [
+         q(0891),
+         q(0),
+         ],
+      q(ash) => [
+         q(0892),
+         q(0),
+         ],
+      q(asi) => [
+         q(0893),
+         q(0),
+         ],
+      q(asj) => [
+         q(0894),
+         q(0),
+         ],
+      q(ask) => [
+         q(0895),
+         q(0),
+         ],
+      q(asl) => [
+         q(0896),
+         q(0),
+         ],
+      q(asm) => [
+         q(0029),
+         q(0),
+         ],
+      q(asn) => [
+         q(0897),
+         q(0),
+         ],
+      q(aso) => [
+         q(0898),
+         q(0),
+         ],
+      q(asp) => [
+         q(0899),
+         q(0),
+         ],
+      q(asq) => [
+         q(0900),
+         q(0),
+         ],
+      q(asr) => [
+         q(0901),
+         q(0),
+         ],
+      q(ass) => [
+         q(0902),
+         q(0),
+         ],
+      q(ast) => [
+         q(0030),
+         q(0),
+         ],
+      q(asu) => [
+         q(0903),
+         q(0),
+         ],
+      q(asv) => [
+         q(0904),
+         q(0),
+         ],
+      q(asw) => [
+         q(0905),
+         q(0),
+         ],
+      q(asx) => [
+         q(0906),
+         q(0),
+         ],
+      q(asy) => [
+         q(0907),
+         q(0),
+         ],
+      q(asz) => [
+         q(0908),
+         q(0),
+         ],
+      q(ata) => [
+         q(0909),
+         q(0),
+         ],
+      q(atb) => [
+         q(0910),
+         q(0),
+         ],
+      q(atc) => [
+         q(0911),
+         q(0),
+         ],
+      q(atd) => [
+         q(0912),
+         q(0),
+         ],
+      q(ate) => [
+         q(0913),
+         q(0),
+         ],
+      q(atg) => [
+         q(0914),
+         q(0),
+         ],
+      q(ath) => [
+         q(0031),
+         q(0),
+         ],
+      q(ati) => [
+         q(0915),
+         q(0),
+         ],
+      q(atj) => [
+         q(0916),
+         q(0),
+         ],
+      q(atk) => [
+         q(0917),
+         q(0),
+         ],
+      q(atl) => [
+         q(0918),
+         q(0),
+         ],
+      q(atm) => [
+         q(0919),
+         q(0),
+         ],
+      q(atn) => [
+         q(0920),
+         q(0),
+         ],
+      q(ato) => [
+         q(0921),
+         q(0),
+         ],
+      q(atp) => [
+         q(0922),
+         q(0),
+         ],
+      q(atq) => [
+         q(0923),
+         q(0),
+         ],
+      q(atr) => [
+         q(0924),
+         q(0),
+         ],
+      q(ats) => [
+         q(0925),
+         q(0),
+         ],
+      q(att) => [
+         q(0926),
+         q(0),
+         ],
+      q(atu) => [
+         q(0927),
+         q(0),
+         ],
+      q(atv) => [
+         q(0928),
+         q(0),
+         ],
+      q(atw) => [
+         q(0929),
+         q(0),
+         ],
+      q(atx) => [
+         q(0930),
+         q(0),
+         ],
+      q(aty) => [
+         q(0931),
+         q(0),
+         ],
+      q(atz) => [
+         q(0932),
+         q(0),
+         ],
+      q(aua) => [
+         q(0933),
+         q(0),
+         ],
+      q(aub) => [
+         q(0934),
+         q(0),
+         ],
+      q(auc) => [
+         q(0935),
+         q(0),
+         ],
+      q(aud) => [
+         q(0936),
+         q(0),
+         ],
+      q(auf) => [
+         q(0491),
+         q(0),
+         ],
+      q(aug) => [
+         q(0937),
+         q(0),
+         ],
+      q(auh) => [
+         q(0938),
+         q(0),
+         ],
+      q(aui) => [
+         q(0939),
+         q(0),
+         ],
+      q(auj) => [
+         q(0940),
+         q(0),
+         ],
+      q(auk) => [
+         q(0941),
+         q(0),
+         ],
+      q(aul) => [
+         q(0942),
+         q(0),
+         ],
+      q(aum) => [
+         q(0943),
+         q(0),
+         ],
+      q(aun) => [
+         q(0944),
+         q(0),
+         ],
+      q(auo) => [
+         q(0945),
+         q(0),
+         ],
+      q(aup) => [
+         q(0946),
+         q(0),
+         ],
+      q(auq) => [
+         q(0947),
+         q(0),
+         ],
+      q(aur) => [
+         q(0948),
+         q(0),
+         ],
+      q(aus) => [
+         q(0032),
+         q(0),
+         ],
+      q(aut) => [
+         q(0949),
+         q(0),
+         ],
+      q(auu) => [
+         q(0950),
+         q(0),
+         ],
+      q(auw) => [
+         q(0951),
+         q(0),
+         ],
+      q(aux) => [
+         q(0952),
+         q(0),
+         ],
+      q(auy) => [
+         q(0953),
+         q(0),
+         ],
+      q(auz) => [
+         q(0954),
+         q(0),
+         ],
+      q(ava) => [
+         q(0033),
+         q(0),
+         ],
+      q(avb) => [
+         q(0955),
+         q(0),
+         ],
+      q(avd) => [
+         q(0956),
+         q(0),
+         ],
+      q(ave) => [
+         q(0034),
+         q(0),
+         ],
+      q(avi) => [
+         q(0957),
+         q(0),
+         ],
+      q(avk) => [
+         q(0958),
+         q(0),
+         ],
+      q(avl) => [
+         q(0959),
+         q(0),
+         ],
+      q(avm) => [
+         q(0960),
+         q(0),
+         ],
+      q(avn) => [
+         q(0961),
+         q(0),
+         ],
+      q(avo) => [
+         q(0962),
+         q(0),
+         ],
+      q(avs) => [
+         q(0963),
+         q(0),
+         ],
+      q(avt) => [
+         q(0964),
+         q(0),
+         ],
+      q(avu) => [
+         q(0965),
+         q(0),
+         ],
+      q(avv) => [
+         q(0966),
+         q(0),
+         ],
+      q(awa) => [
+         q(0035),
+         q(0),
+         ],
+      q(awb) => [
+         q(0967),
+         q(0),
+         ],
+      q(awc) => [
+         q(0968),
+         q(0),
+         ],
+      q(awd) => [
+         q(0492),
+         q(0),
+         ],
+      q(awe) => [
+         q(0969),
+         q(0),
+         ],
+      q(awg) => [
+         q(0970),
+         q(0),
+         ],
+      q(awh) => [
+         q(0971),
+         q(0),
+         ],
+      q(awi) => [
+         q(0972),
+         q(0),
+         ],
+      q(awk) => [
+         q(0973),
+         q(0),
+         ],
+      q(awm) => [
+         q(0974),
+         q(0),
+         ],
+      q(awn) => [
+         q(0975),
+         q(0),
+         ],
+      q(awo) => [
+         q(0976),
+         q(0),
+         ],
+      q(awr) => [
+         q(0977),
+         q(0),
+         ],
+      q(aws) => [
+         q(0978),
+         q(0),
+         ],
+      q(awt) => [
+         q(0979),
+         q(0),
+         ],
+      q(awu) => [
+         q(0980),
+         q(0),
+         ],
+      q(awv) => [
+         q(0981),
+         q(0),
+         ],
+      q(aww) => [
+         q(0982),
+         q(0),
+         ],
+      q(awx) => [
+         q(0983),
+         q(0),
+         ],
+      q(awy) => [
+         q(0984),
+         q(0),
+         ],
+      q(axb) => [
+         q(0985),
+         q(0),
+         ],
+      q(axe) => [
+         q(0986),
+         q(0),
+         ],
+      q(axg) => [
+         q(0987),
+         q(0),
+         ],
+      q(axk) => [
+         q(0988),
+         q(0),
+         ],
+      q(axl) => [
+         q(0989),
+         q(0),
+         ],
+      q(axm) => [
+         q(0990),
+         q(0),
+         ],
+      q(axx) => [
+         q(0991),
+         q(0),
+         ],
+      q(aya) => [
+         q(0992),
+         q(0),
+         ],
+      q(ayb) => [
+         q(0993),
+         q(0),
+         ],
+      q(ayc) => [
+         q(0994),
+         q(0),
+         ],
+      q(ayd) => [
+         q(0995),
+         q(0),
+         ],
+      q(aye) => [
+         q(0996),
+         q(0),
+         ],
+      q(ayg) => [
+         q(0997),
+         q(0),
+         ],
+      q(ayh) => [
+         q(0998),
+         q(0),
+         ],
+      q(ayi) => [
+         q(0999),
+         q(0),
+         ],
+      q(ayk) => [
+         q(1000),
+         q(0),
+         ],
+      q(ayl) => [
+         q(1001),
+         q(0),
+         ],
+      q(aym) => [
+         q(0036),
+         q(0),
+         ],
+      q(ayn) => [
+         q(1002),
+         q(0),
+         ],
+      q(ayo) => [
+         q(1003),
+         q(0),
+         ],
+      q(ayp) => [
+         q(1004),
+         q(0),
+         ],
+      q(ayq) => [
+         q(1005),
+         q(0),
+         ],
+      q(ayr) => [
+         q(1006),
+         q(0),
+         ],
+      q(ays) => [
+         q(1007),
+         q(0),
+         ],
+      q(ayt) => [
+         q(1008),
+         q(0),
+         ],
+      q(ayu) => [
+         q(1009),
+         q(0),
+         ],
+      q(ayy) => [
+         q(1010),
+         q(0),
+         ],
+      q(ayz) => [
+         q(1011),
+         q(0),
+         ],
+      q(aza) => [
+         q(1012),
+         q(0),
+         ],
+      q(azb) => [
+         q(1013),
+         q(0),
+         ],
+      q(azc) => [
+         q(0493),
+         q(0),
+         ],
+      q(azd) => [
+         q(1014),
+         q(0),
+         ],
+      q(aze) => [
+         q(0037),
+         q(0),
+         ],
+      q(azg) => [
+         q(1015),
+         q(0),
+         ],
+      q(azj) => [
+         q(1016),
+         q(0),
+         ],
+      q(azm) => [
+         q(1017),
+         q(0),
+         ],
+      q(azn) => [
+         q(1018),
+         q(0),
+         ],
+      q(azo) => [
+         q(1019),
+         q(0),
+         ],
+      q(azt) => [
+         q(1020),
+         q(0),
+         ],
+      q(azz) => [
+         q(1021),
+         q(0),
+         ],
+      q(baa) => [
+         q(1022),
+         q(0),
+         ],
+      q(bab) => [
+         q(1023),
+         q(0),
+         ],
+      q(bac) => [
+         q(1024),
+         q(0),
+         ],
+      q(bad) => [
+         q(0038),
+         q(0),
+         ],
+      q(bae) => [
+         q(1025),
+         q(0),
+         ],
+      q(baf) => [
+         q(1026),
+         q(0),
+         ],
+      q(bag) => [
+         q(1027),
+         q(0),
+         ],
+      q(bah) => [
+         q(1028),
+         q(0),
+         ],
+      q(bai) => [
+         q(0039),
+         q(0),
+         ],
+      q(baj) => [
+         q(1029),
+         q(0),
+         ],
+      q(bak) => [
+         q(0040),
+         q(0),
+         ],
+      q(bal) => [
+         q(0041),
+         q(0),
+         ],
+      q(bam) => [
+         q(0042),
+         q(0),
+         ],
+      q(ban) => [
+         q(0043),
+         q(0),
+         ],
+      q(bao) => [
+         q(1030),
+         q(0),
+         ],
+      q(bap) => [
+         q(1031),
+         q(0),
+         ],
+      q(baq) => [
+         q(0044),
+         q(0),
+         ],
+      q(bar) => [
+         q(1032),
+         q(0),
+         ],
+      q(bas) => [
+         q(0045),
+         q(1),
+         ],
+      q(bat) => [
+         q(0046),
+         q(0),
+         ],
+      q(bau) => [
+         q(1033),
+         q(0),
+         ],
+      q(bav) => [
+         q(1034),
+         q(0),
+         ],
+      q(baw) => [
+         q(1035),
+         q(0),
+         ],
+      q(bax) => [
+         q(1036),
+         q(0),
+         ],
+      q(bay) => [
+         q(1037),
+         q(0),
+         ],
+      q(bba) => [
+         q(1038),
+         q(0),
+         ],
+      q(bbb) => [
+         q(1039),
+         q(0),
+         ],
+      q(bbc) => [
+         q(1040),
+         q(0),
+         ],
+      q(bbd) => [
+         q(1041),
+         q(0),
+         ],
+      q(bbe) => [
+         q(1042),
+         q(0),
+         ],
+      q(bbf) => [
+         q(1043),
+         q(0),
+         ],
+      q(bbg) => [
+         q(1044),
+         q(0),
+         ],
+      q(bbh) => [
+         q(1045),
+         q(0),
+         ],
+      q(bbi) => [
+         q(1046),
+         q(0),
+         ],
+      q(bbj) => [
+         q(1047),
+         q(0),
+         ],
+      q(bbk) => [
+         q(1048),
+         q(0),
+         ],
+      q(bbl) => [
+         q(1049),
+         q(0),
+         ],
+      q(bbm) => [
+         q(1050),
+         q(0),
+         ],
+      q(bbn) => [
+         q(1051),
+         q(0),
+         ],
+      q(bbo) => [
+         q(1052),
+         q(0),
+         ],
+      q(bbp) => [
+         q(1053),
+         q(0),
+         ],
+      q(bbq) => [
+         q(1054),
+         q(0),
+         ],
+      q(bbr) => [
+         q(1055),
+         q(0),
+         ],
+      q(bbs) => [
+         q(1056),
+         q(0),
+         ],
+      q(bbt) => [
+         q(1057),
+         q(0),
+         ],
+      q(bbu) => [
+         q(1058),
+         q(0),
+         ],
+      q(bbv) => [
+         q(1059),
+         q(0),
+         ],
+      q(bbw) => [
+         q(1060),
+         q(0),
+         ],
+      q(bbx) => [
+         q(1061),
+         q(0),
+         ],
+      q(bby) => [
+         q(1062),
+         q(0),
+         ],
+      q(bbz) => [
+         q(1063),
+         q(0),
+         ],
+      q(bca) => [
+         q(1064),
+         q(0),
+         ],
+      q(bcb) => [
+         q(1065),
+         q(0),
+         ],
+      q(bcc) => [
+         q(1066),
+         q(0),
+         ],
+      q(bcd) => [
+         q(1067),
+         q(0),
+         ],
+      q(bce) => [
+         q(1068),
+         q(0),
+         ],
+      q(bcf) => [
+         q(1069),
+         q(0),
+         ],
+      q(bcg) => [
+         q(1070),
+         q(0),
+         ],
+      q(bch) => [
+         q(1071),
+         q(0),
+         ],
+      q(bci) => [
+         q(1072),
+         q(0),
+         ],
+      q(bcj) => [
+         q(1073),
+         q(0),
+         ],
+      q(bck) => [
+         q(1074),
+         q(0),
+         ],
+      q(bcl) => [
+         q(1075),
+         q(0),
+         ],
+      q(bcm) => [
+         q(1076),
+         q(0),
+         ],
+      q(bcn) => [
+         q(1077),
+         q(0),
+         ],
+      q(bco) => [
+         q(1078),
+         q(0),
+         ],
+      q(bcp) => [
+         q(1079),
+         q(0),
+         ],
+      q(bcq) => [
+         q(1080),
+         q(0),
+         ],
+      q(bcr) => [
+         q(1081),
+         q(0),
+         ],
+      q(bcs) => [
+         q(1082),
+         q(0),
+         ],
+      q(bct) => [
+         q(1083),
+         q(0),
+         ],
+      q(bcu) => [
+         q(1084),
+         q(0),
+         ],
+      q(bcv) => [
+         q(1085),
+         q(0),
+         ],
+      q(bcw) => [
+         q(1086),
+         q(0),
+         ],
+      q(bcy) => [
+         q(1087),
+         q(0),
+         ],
+      q(bcz) => [
+         q(1088),
+         q(0),
+         ],
+      q(bda) => [
+         q(1089),
+         q(0),
+         ],
+      q(bdb) => [
+         q(1090),
+         q(0),
+         ],
+      q(bdc) => [
+         q(1091),
+         q(0),
+         ],
+      q(bdd) => [
+         q(1092),
+         q(0),
+         ],
+      q(bde) => [
+         q(1093),
+         q(0),
+         ],
+      q(bdf) => [
+         q(1094),
+         q(0),
+         ],
+      q(bdg) => [
+         q(1095),
+         q(0),
+         ],
+      q(bdh) => [
+         q(1096),
+         q(0),
+         ],
+      q(bdi) => [
+         q(1097),
+         q(0),
+         ],
+      q(bdj) => [
+         q(1098),
+         q(0),
+         ],
+      q(bdk) => [
+         q(1099),
+         q(0),
+         ],
+      q(bdl) => [
+         q(1100),
+         q(0),
+         ],
+      q(bdm) => [
+         q(1101),
+         q(0),
+         ],
+      q(bdn) => [
+         q(1102),
+         q(0),
+         ],
+      q(bdo) => [
+         q(1103),
+         q(0),
+         ],
+      q(bdp) => [
+         q(1104),
+         q(0),
+         ],
+      q(bdq) => [
+         q(1105),
+         q(0),
+         ],
+      q(bdr) => [
+         q(1106),
+         q(0),
+         ],
+      q(bds) => [
+         q(1107),
+         q(0),
+         ],
+      q(bdt) => [
+         q(1108),
+         q(0),
+         ],
+      q(bdu) => [
+         q(1109),
+         q(0),
+         ],
+      q(bdv) => [
+         q(1110),
+         q(0),
+         ],
+      q(bdw) => [
+         q(1111),
+         q(0),
+         ],
+      q(bdx) => [
+         q(1112),
+         q(0),
+         ],
+      q(bdy) => [
+         q(1113),
+         q(0),
+         ],
+      q(bdz) => [
+         q(1114),
+         q(0),
+         ],
+      q(bea) => [
+         q(1115),
+         q(0),
+         ],
+      q(beb) => [
+         q(1116),
+         q(0),
+         ],
+      q(bec) => [
+         q(1117),
+         q(0),
+         ],
+      q(bed) => [
+         q(1118),
+         q(0),
+         ],
+      q(bee) => [
+         q(1119),
+         q(0),
+         ],
+      q(bef) => [
+         q(1120),
+         q(0),
+         ],
+      q(beg) => [
+         q(1121),
+         q(0),
+         ],
+      q(beh) => [
+         q(1122),
+         q(0),
+         ],
+      q(bei) => [
+         q(1123),
+         q(0),
+         ],
+      q(bej) => [
+         q(0047),
+         q(0),
+         ],
+      q(bek) => [
+         q(1124),
+         q(0),
+         ],
+      q(bel) => [
+         q(0048),
+         q(0),
+         ],
+      q(bem) => [
+         q(0049),
+         q(1),
+         ],
+      q(ben) => [
+         q(0050),
+         q(0),
+         ],
+      q(beo) => [
+         q(1125),
+         q(0),
+         ],
+      q(bep) => [
+         q(1126),
+         q(0),
+         ],
+      q(beq) => [
+         q(1127),
+         q(0),
+         ],
+      q(ber) => [
+         q(0051),
+         q(0),
+         ],
+      q(bes) => [
+         q(1128),
+         q(0),
+         ],
+      q(bet) => [
+         q(1129),
+         q(0),
+         ],
+      q(beu) => [
+         q(1130),
+         q(0),
+         ],
+      q(bev) => [
+         q(1131),
+         q(0),
+         ],
+      q(bew) => [
+         q(1132),
+         q(0),
+         ],
+      q(bex) => [
+         q(1133),
+         q(0),
+         ],
+      q(bey) => [
+         q(1134),
+         q(0),
+         ],
+      q(bez) => [
+         q(1135),
+         q(0),
+         ],
+      q(bfa) => [
+         q(1136),
+         q(0),
+         ],
+      q(bfb) => [
+         q(1137),
+         q(0),
+         ],
+      q(bfc) => [
+         q(1138),
+         q(0),
+         ],
+      q(bfd) => [
+         q(1139),
+         q(0),
+         ],
+      q(bfe) => [
+         q(1140),
+         q(0),
+         ],
+      q(bff) => [
+         q(1141),
+         q(0),
+         ],
+      q(bfg) => [
+         q(1142),
+         q(0),
+         ],
+      q(bfh) => [
+         q(1143),
+         q(0),
+         ],
+      q(bfi) => [
+         q(1144),
+         q(0),
+         ],
+      q(bfj) => [
+         q(1145),
+         q(0),
+         ],
+      q(bfk) => [
+         q(1146),
+         q(0),
+         ],
+      q(bfl) => [
+         q(1147),
+         q(0),
+         ],
+      q(bfm) => [
+         q(1148),
+         q(0),
+         ],
+      q(bfn) => [
+         q(1149),
+         q(0),
+         ],
+      q(bfo) => [
+         q(1150),
+         q(0),
+         ],
+      q(bfp) => [
+         q(1151),
+         q(0),
+         ],
+      q(bfq) => [
+         q(1152),
+         q(0),
+         ],
+      q(bfr) => [
+         q(1153),
+         q(0),
+         ],
+      q(bfs) => [
+         q(1154),
+         q(0),
+         ],
+      q(bft) => [
+         q(1155),
+         q(0),
+         ],
+      q(bfu) => [
+         q(1156),
+         q(0),
+         ],
+      q(bfw) => [
+         q(1157),
+         q(0),
+         ],
+      q(bfx) => [
+         q(1158),
+         q(0),
+         ],
+      q(bfy) => [
+         q(1159),
+         q(0),
+         ],
+      q(bfz) => [
+         q(1160),
+         q(0),
+         ],
+      q(bga) => [
+         q(1161),
+         q(0),
+         ],
+      q(bgb) => [
+         q(1162),
+         q(0),
+         ],
+      q(bgc) => [
+         q(1163),
+         q(0),
+         ],
+      q(bgd) => [
+         q(1164),
+         q(0),
+         ],
+      q(bge) => [
+         q(1165),
+         q(0),
+         ],
+      q(bgf) => [
+         q(1166),
+         q(0),
+         ],
+      q(bgg) => [
+         q(1167),
+         q(0),
+         ],
+      q(bgi) => [
+         q(1168),
+         q(0),
+         ],
+      q(bgj) => [
+         q(1169),
+         q(0),
+         ],
+      q(bgk) => [
+         q(1170),
+         q(0),
+         ],
+      q(bgl) => [
+         q(1171),
+         q(0),
+         ],
+      q(bgm) => [
+         q(1172),
+         q(0),
+         ],
+      q(bgn) => [
+         q(1173),
+         q(0),
+         ],
+      q(bgo) => [
+         q(1174),
+         q(0),
+         ],
+      q(bgp) => [
+         q(1175),
+         q(0),
+         ],
+      q(bgq) => [
+         q(1176),
+         q(0),
+         ],
+      q(bgr) => [
+         q(1177),
+         q(0),
+         ],
+      q(bgs) => [
+         q(1178),
+         q(0),
+         ],
+      q(bgt) => [
+         q(1179),
+         q(0),
+         ],
+      q(bgu) => [
+         q(1180),
+         q(0),
+         ],
+      q(bgv) => [
+         q(1181),
+         q(0),
+         ],
+      q(bgw) => [
+         q(1182),
+         q(0),
+         ],
+      q(bgx) => [
+         q(1183),
+         q(0),
+         ],
+      q(bgy) => [
+         q(1184),
+         q(0),
+         ],
+      q(bgz) => [
+         q(1185),
+         q(0),
+         ],
+      q(bha) => [
+         q(1186),
+         q(0),
+         ],
+      q(bhb) => [
+         q(1187),
+         q(0),
+         ],
+      q(bhc) => [
+         q(1188),
+         q(0),
+         ],
+      q(bhd) => [
+         q(1189),
+         q(0),
+         ],
+      q(bhe) => [
+         q(1190),
+         q(0),
+         ],
+      q(bhf) => [
+         q(1191),
+         q(0),
+         ],
+      q(bhg) => [
+         q(1192),
+         q(0),
+         ],
+      q(bhh) => [
+         q(1193),
+         q(0),
+         ],
+      q(bhi) => [
+         q(1194),
+         q(0),
+         ],
+      q(bhj) => [
+         q(1195),
+         q(0),
+         ],
+      q(bhl) => [
+         q(1196),
+         q(0),
+         ],
+      q(bhm) => [
+         q(1197),
+         q(0),
+         ],
+      q(bhn) => [
+         q(1198),
+         q(0),
+         ],
+      q(bho) => [
+         q(0052),
+         q(0),
+         ],
+      q(bhp) => [
+         q(1199),
+         q(0),
+         ],
+      q(bhq) => [
+         q(1200),
+         q(0),
+         ],
+      q(bhr) => [
+         q(1201),
+         q(0),
+         ],
+      q(bhs) => [
+         q(1202),
+         q(0),
+         ],
+      q(bht) => [
+         q(1203),
+         q(0),
+         ],
+      q(bhu) => [
+         q(1204),
+         q(0),
+         ],
+      q(bhv) => [
+         q(1205),
+         q(0),
+         ],
+      q(bhw) => [
+         q(1206),
+         q(0),
+         ],
+      q(bhx) => [
+         q(1207),
+         q(0),
+         ],
+      q(bhy) => [
+         q(1208),
+         q(0),
+         ],
+      q(bhz) => [
+         q(1209),
+         q(0),
+         ],
+      q(bia) => [
+         q(1210),
+         q(0),
+         ],
+      q(bib) => [
+         q(1211),
+         q(0),
+         ],
+      q(bic) => [
+         q(1212),
+         q(0),
+         ],
+      q(bid) => [
+         q(1213),
+         q(0),
+         ],
+      q(bie) => [
+         q(1214),
+         q(0),
+         ],
+      q(bif) => [
+         q(1215),
+         q(0),
+         ],
+      q(big) => [
+         q(1216),
+         q(0),
+         ],
+      q(bih) => [
+         q(0053),
+         q(0),
+         ],
+      q(bij) => [
+         q(1217),
+         q(0),
+         ],
+      q(bik) => [
+         q(0054),
+         q(0),
+         ],
+      q(bil) => [
+         q(1218),
+         q(0),
+         ],
+      q(bim) => [
+         q(1219),
+         q(0),
+         ],
+      q(bin) => [
+         q(0055),
+         q(0),
+         ],
+      q(bio) => [
+         q(1220),
+         q(0),
+         ],
+      q(bip) => [
+         q(1221),
+         q(0),
+         ],
+      q(biq) => [
+         q(1222),
+         q(0),
+         ],
+      q(bir) => [
+         q(1223),
+         q(0),
+         ],
+      q(bis) => [
+         q(0056),
+         q(0),
+         ],
+      q(bit) => [
+         q(1224),
+         q(0),
+         ],
+      q(biu) => [
+         q(1225),
+         q(0),
+         ],
+      q(biv) => [
+         q(1226),
+         q(0),
+         ],
+      q(biw) => [
+         q(1227),
+         q(0),
+         ],
+      q(bix) => [
+         q(1228),
+         q(0),
+         ],
+      q(biy) => [
+         q(1229),
+         q(0),
+         ],
+      q(biz) => [
+         q(1230),
+         q(0),
+         ],
+      q(bja) => [
+         q(1231),
+         q(0),
+         ],
+      q(bjb) => [
+         q(1232),
+         q(0),
+         ],
+      q(bjc) => [
+         q(1233),
+         q(0),
+         ],
+      q(bje) => [
+         q(1234),
+         q(0),
+         ],
+      q(bjf) => [
+         q(1235),
+         q(0),
+         ],
+      q(bjg) => [
+         q(1236),
+         q(0),
+         ],
+      q(bjh) => [
+         q(1237),
+         q(0),
+         ],
+      q(bji) => [
+         q(1238),
+         q(0),
+         ],
+      q(bjj) => [
+         q(1239),
+         q(0),
+         ],
+      q(bjk) => [
+         q(1240),
+         q(0),
+         ],
+      q(bjl) => [
+         q(1241),
+         q(0),
+         ],
+      q(bjm) => [
+         q(1242),
+         q(0),
+         ],
+      q(bjn) => [
+         q(1243),
+         q(0),
+         ],
+      q(bjo) => [
+         q(1244),
+         q(0),
+         ],
+      q(bjp) => [
+         q(1245),
+         q(0),
+         ],
+      q(bjr) => [
+         q(1246),
+         q(0),
+         ],
+      q(bjs) => [
+         q(1247),
+         q(0),
+         ],
+      q(bjt) => [
+         q(1248),
+         q(0),
+         ],
+      q(bju) => [
+         q(1249),
+         q(0),
+         ],
+      q(bjv) => [
+         q(1250),
+         q(0),
+         ],
+      q(bjw) => [
+         q(1251),
+         q(0),
+         ],
+      q(bjx) => [
+         q(1252),
+         q(0),
+         ],
+      q(bjy) => [
+         q(1253),
+         q(0),
+         ],
+      q(bjz) => [
+         q(1254),
+         q(0),
+         ],
+      q(bka) => [
+         q(1255),
+         q(0),
+         ],
+      q(bkc) => [
+         q(1256),
+         q(0),
+         ],
+      q(bkd) => [
+         q(1257),
+         q(0),
+         ],
+      q(bkf) => [
+         q(1258),
+         q(0),
+         ],
+      q(bkg) => [
+         q(1259),
+         q(0),
+         ],
+      q(bkh) => [
+         q(1260),
+         q(0),
+         ],
+      q(bki) => [
+         q(1261),
+         q(0),
+         ],
+      q(bkj) => [
+         q(1262),
+         q(0),
+         ],
+      q(bkk) => [
+         q(1263),
+         q(0),
+         ],
+      q(bkl) => [
+         q(1264),
+         q(0),
+         ],
+      q(bkm) => [
+         q(1265),
+         q(0),
+         ],
+      q(bkn) => [
+         q(1266),
+         q(0),
+         ],
+      q(bko) => [
+         q(1267),
+         q(0),
+         ],
+      q(bkp) => [
+         q(1268),
+         q(0),
+         ],
+      q(bkq) => [
+         q(1269),
+         q(0),
+         ],
+      q(bkr) => [
+         q(1270),
+         q(0),
+         ],
+      q(bks) => [
+         q(1271),
+         q(0),
+         ],
+      q(bkt) => [
+         q(1272),
+         q(0),
+         ],
+      q(bku) => [
+         q(1273),
+         q(0),
+         ],
+      q(bkv) => [
+         q(1274),
+         q(0),
+         ],
+      q(bkw) => [
+         q(1275),
+         q(0),
+         ],
+      q(bkx) => [
+         q(1276),
+         q(0),
+         ],
+      q(bky) => [
+         q(1277),
+         q(0),
+         ],
+      q(bkz) => [
+         q(1278),
+         q(0),
+         ],
+      q(bla) => [
+         q(0057),
+         q(0),
+         ],
+      q(blb) => [
+         q(1279),
+         q(0),
+         ],
+      q(blc) => [
+         q(1280),
+         q(0),
+         ],
+      q(bld) => [
+         q(1281),
+         q(0),
+         ],
+      q(ble) => [
+         q(1282),
+         q(0),
+         ],
+      q(blf) => [
+         q(1283),
+         q(0),
+         ],
+      q(blg) => [
+         q(1284),
+         q(0),
+         ],
+      q(blh) => [
+         q(1285),
+         q(0),
+         ],
+      q(bli) => [
+         q(1286),
+         q(0),
+         ],
+      q(blj) => [
+         q(1287),
+         q(0),
+         ],
+      q(blk) => [
+         q(1288),
+         q(0),
+         ],
+      q(bll) => [
+         q(1289),
+         q(0),
+         ],
+      q(blm) => [
+         q(1290),
+         q(0),
+         ],
+      q(bln) => [
+         q(1291),
+         q(0),
+         ],
+      q(blo) => [
+         q(1292),
+         q(0),
+         ],
+      q(blp) => [
+         q(1293),
+         q(0),
+         ],
+      q(blq) => [
+         q(1294),
+         q(0),
+         ],
+      q(blr) => [
+         q(1295),
+         q(0),
+         ],
+      q(bls) => [
+         q(1296),
+         q(0),
+         ],
+      q(blt) => [
+         q(1297),
+         q(0),
+         ],
+      q(blv) => [
+         q(1298),
+         q(0),
+         ],
+      q(blw) => [
+         q(1299),
+         q(0),
+         ],
+      q(blx) => [
+         q(1300),
+         q(0),
+         ],
+      q(bly) => [
+         q(1301),
+         q(0),
+         ],
+      q(blz) => [
+         q(1302),
+         q(0),
+         ],
+      q(bma) => [
+         q(1303),
+         q(0),
+         ],
+      q(bmb) => [
+         q(1304),
+         q(0),
+         ],
+      q(bmc) => [
+         q(1305),
+         q(0),
+         ],
+      q(bmd) => [
+         q(1306),
+         q(0),
+         ],
+      q(bme) => [
+         q(1307),
+         q(0),
+         ],
+      q(bmf) => [
+         q(1308),
+         q(0),
+         ],
+      q(bmg) => [
+         q(1309),
+         q(0),
+         ],
+      q(bmh) => [
+         q(1310),
+         q(0),
+         ],
+      q(bmi) => [
+         q(1311),
+         q(0),
+         ],
+      q(bmj) => [
+         q(1312),
+         q(0),
+         ],
+      q(bmk) => [
+         q(1313),
+         q(0),
+         ],
+      q(bml) => [
+         q(1314),
+         q(0),
+         ],
+      q(bmm) => [
+         q(1315),
+         q(0),
+         ],
+      q(bmn) => [
+         q(1316),
+         q(0),
+         ],
+      q(bmo) => [
+         q(1317),
+         q(0),
+         ],
+      q(bmp) => [
+         q(1318),
+         q(0),
+         ],
+      q(bmq) => [
+         q(1319),
+         q(0),
+         ],
+      q(bmr) => [
+         q(1320),
+         q(0),
+         ],
+      q(bms) => [
+         q(1321),
+         q(0),
+         ],
+      q(bmt) => [
+         q(1322),
+         q(0),
+         ],
+      q(bmu) => [
+         q(1323),
+         q(0),
+         ],
+      q(bmv) => [
+         q(1324),
+         q(0),
+         ],
+      q(bmw) => [
+         q(1325),
+         q(0),
+         ],
+      q(bmx) => [
+         q(1326),
+         q(0),
+         ],
+      q(bmz) => [
+         q(1327),
+         q(0),
+         ],
+      q(bna) => [
+         q(1328),
+         q(0),
+         ],
+      q(bnb) => [
+         q(1329),
+         q(0),
+         ],
+      q(bnc) => [
+         q(1330),
+         q(0),
+         ],
+      q(bnd) => [
+         q(1331),
+         q(0),
+         ],
+      q(bne) => [
+         q(1332),
+         q(0),
+         ],
+      q(bnf) => [
+         q(1333),
+         q(0),
+         ],
+      q(bng) => [
+         q(1334),
+         q(0),
+         ],
+      q(bni) => [
+         q(1335),
+         q(0),
+         ],
+      q(bnj) => [
+         q(1336),
+         q(0),
+         ],
+      q(bnk) => [
+         q(1337),
+         q(0),
+         ],
+      q(bnl) => [
+         q(1338),
+         q(0),
+         ],
+      q(bnm) => [
+         q(1339),
+         q(0),
+         ],
+      q(bnn) => [
+         q(1340),
+         q(0),
+         ],
+      q(bno) => [
+         q(1341),
+         q(0),
+         ],
+      q(bnp) => [
+         q(1342),
+         q(0),
+         ],
+      q(bnq) => [
+         q(1343),
+         q(0),
+         ],
+      q(bnr) => [
+         q(1344),
+         q(0),
+         ],
+      q(bns) => [
+         q(1345),
+         q(0),
+         ],
+      q(bnt) => [
+         q(0058),
+         q(1),
+         ],
+      q(bnu) => [
+         q(1346),
+         q(0),
+         ],
+      q(bnv) => [
+         q(1347),
+         q(0),
+         ],
+      q(bnw) => [
+         q(1348),
+         q(0),
+         ],
+      q(bnx) => [
+         q(1349),
+         q(0),
+         ],
+      q(bny) => [
+         q(1350),
+         q(0),
+         ],
+      q(bnz) => [
+         q(1351),
+         q(0),
+         ],
+      q(boa) => [
+         q(1352),
+         q(0),
+         ],
+      q(bob) => [
+         q(1353),
+         q(0),
+         ],
+      q(boe) => [
+         q(1354),
+         q(0),
+         ],
+      q(bof) => [
+         q(1355),
+         q(0),
+         ],
+      q(bog) => [
+         q(1356),
+         q(0),
+         ],
+      q(boh) => [
+         q(1357),
+         q(0),
+         ],
+      q(boi) => [
+         q(1358),
+         q(0),
+         ],
+      q(boj) => [
+         q(1359),
+         q(0),
+         ],
+      q(bok) => [
+         q(1360),
+         q(0),
+         ],
+      q(bol) => [
+         q(1361),
+         q(0),
+         ],
+      q(bom) => [
+         q(1362),
+         q(0),
+         ],
+      q(bon) => [
+         q(1363),
+         q(0),
+         ],
+      q(boo) => [
+         q(1364),
+         q(0),
+         ],
+      q(bop) => [
+         q(1365),
+         q(0),
+         ],
+      q(boq) => [
+         q(1366),
+         q(0),
+         ],
+      q(bor) => [
+         q(1367),
+         q(0),
+         ],
+      q(bos) => [
+         q(0059),
+         q(0),
+         ],
+      q(bot) => [
+         q(1368),
+         q(0),
+         ],
+      q(bou) => [
+         q(1369),
+         q(0),
+         ],
+      q(bov) => [
+         q(1370),
+         q(0),
+         ],
+      q(bow) => [
+         q(1371),
+         q(0),
+         ],
+      q(box) => [
+         q(1372),
+         q(0),
+         ],
+      q(boy) => [
+         q(1373),
+         q(0),
+         ],
+      q(boz) => [
+         q(1374),
+         q(0),
+         ],
+      q(bpa) => [
+         q(1375),
+         q(0),
+         ],
+      q(bpb) => [
+         q(1376),
+         q(0),
+         ],
+      q(bpd) => [
+         q(1377),
+         q(0),
+         ],
+      q(bpg) => [
+         q(1378),
+         q(0),
+         ],
+      q(bph) => [
+         q(1379),
+         q(0),
+         ],
+      q(bpi) => [
+         q(1380),
+         q(0),
+         ],
+      q(bpj) => [
+         q(1381),
+         q(0),
+         ],
+      q(bpk) => [
+         q(1382),
+         q(0),
+         ],
+      q(bpl) => [
+         q(1383),
+         q(0),
+         ],
+      q(bpm) => [
+         q(1384),
+         q(0),
+         ],
+      q(bpn) => [
+         q(1385),
+         q(0),
+         ],
+      q(bpo) => [
+         q(1386),
+         q(0),
+         ],
+      q(bpp) => [
+         q(1387),
+         q(0),
+         ],
+      q(bpq) => [
+         q(1388),
+         q(0),
+         ],
+      q(bpr) => [
+         q(1389),
+         q(0),
+         ],
+      q(bps) => [
+         q(1390),
+         q(0),
+         ],
+      q(bpt) => [
+         q(1391),
+         q(0),
+         ],
+      q(bpu) => [
+         q(1392),
+         q(0),
+         ],
+      q(bpv) => [
+         q(1393),
+         q(0),
+         ],
+      q(bpw) => [
+         q(1394),
+         q(0),
+         ],
+      q(bpx) => [
+         q(1395),
+         q(0),
+         ],
+      q(bpy) => [
+         q(1396),
+         q(0),
+         ],
+      q(bpz) => [
+         q(1397),
+         q(0),
+         ],
+      q(bqa) => [
+         q(1398),
+         q(0),
+         ],
+      q(bqb) => [
+         q(1399),
+         q(0),
+         ],
+      q(bqc) => [
+         q(1400),
+         q(0),
+         ],
+      q(bqd) => [
+         q(1401),
+         q(0),
+         ],
+      q(bqf) => [
+         q(1402),
+         q(0),
+         ],
+      q(bqg) => [
+         q(1403),
+         q(0),
+         ],
+      q(bqh) => [
+         q(1404),
+         q(0),
+         ],
+      q(bqi) => [
+         q(1405),
+         q(0),
+         ],
+      q(bqj) => [
+         q(1406),
+         q(0),
+         ],
+      q(bqk) => [
+         q(1407),
+         q(0),
+         ],
+      q(bql) => [
+         q(1408),
+         q(0),
+         ],
+      q(bqm) => [
+         q(1409),
+         q(0),
+         ],
+      q(bqn) => [
+         q(1410),
+         q(0),
+         ],
+      q(bqo) => [
+         q(1411),
+         q(0),
+         ],
+      q(bqp) => [
+         q(1412),
+         q(0),
+         ],
+      q(bqq) => [
+         q(1413),
+         q(0),
+         ],
+      q(bqr) => [
+         q(1414),
+         q(0),
+         ],
+      q(bqs) => [
+         q(1415),
+         q(0),
+         ],
+      q(bqt) => [
+         q(1416),
+         q(0),
+         ],
+      q(bqu) => [
+         q(1417),
+         q(0),
+         ],
+      q(bqv) => [
+         q(1418),
+         q(0),
+         ],
+      q(bqw) => [
+         q(1419),
+         q(0),
+         ],
+      q(bqx) => [
+         q(1420),
+         q(0),
+         ],
+      q(bqy) => [
+         q(1421),
+         q(0),
+         ],
+      q(bqz) => [
+         q(1422),
+         q(0),
+         ],
+      q(bra) => [
+         q(0060),
+         q(0),
+         ],
+      q(brb) => [
+         q(1423),
+         q(0),
+         ],
+      q(brc) => [
+         q(1424),
+         q(0),
+         ],
+      q(brd) => [
+         q(1425),
+         q(0),
+         ],
+      q(bre) => [
+         q(0061),
+         q(0),
+         ],
+      q(brf) => [
+         q(1426),
+         q(0),
+         ],
+      q(brg) => [
+         q(1427),
+         q(0),
+         ],
+      q(brh) => [
+         q(1428),
+         q(0),
+         ],
+      q(bri) => [
+         q(1429),
+         q(0),
+         ],
+      q(brj) => [
+         q(1430),
+         q(0),
+         ],
+      q(brk) => [
+         q(1431),
+         q(0),
+         ],
+      q(brl) => [
+         q(1432),
+         q(0),
+         ],
+      q(brm) => [
+         q(1433),
+         q(0),
+         ],
+      q(brn) => [
+         q(1434),
+         q(0),
+         ],
+      q(bro) => [
+         q(1435),
+         q(0),
+         ],
+      q(brp) => [
+         q(1436),
+         q(0),
+         ],
+      q(brq) => [
+         q(1437),
+         q(0),
+         ],
+      q(brr) => [
+         q(1438),
+         q(0),
+         ],
+      q(brs) => [
+         q(1439),
+         q(0),
+         ],
+      q(brt) => [
+         q(1440),
+         q(0),
+         ],
+      q(bru) => [
+         q(1441),
+         q(0),
+         ],
+      q(brv) => [
+         q(1442),
+         q(0),
+         ],
+      q(brw) => [
+         q(1443),
+         q(0),
+         ],
+      q(brx) => [
+         q(1444),
+         q(0),
+         ],
+      q(bry) => [
+         q(1445),
+         q(0),
+         ],
+      q(brz) => [
+         q(1446),
+         q(0),
+         ],
+      q(bsa) => [
+         q(1447),
+         q(0),
+         ],
+      q(bsb) => [
+         q(1448),
+         q(0),
+         ],
+      q(bsc) => [
+         q(1449),
+         q(0),
+         ],
+      q(bse) => [
+         q(1450),
+         q(0),
+         ],
+      q(bsf) => [
+         q(1451),
+         q(0),
+         ],
+      q(bsg) => [
+         q(1452),
+         q(0),
+         ],
+      q(bsh) => [
+         q(1453),
+         q(0),
+         ],
+      q(bsi) => [
+         q(1454),
+         q(0),
+         ],
+      q(bsj) => [
+         q(1455),
+         q(0),
+         ],
+      q(bsk) => [
+         q(1456),
+         q(0),
+         ],
+      q(bsl) => [
+         q(1457),
+         q(0),
+         ],
+      q(bsm) => [
+         q(1458),
+         q(0),
+         ],
+      q(bsn) => [
+         q(1459),
+         q(0),
+         ],
+      q(bso) => [
+         q(1460),
+         q(0),
+         ],
+      q(bsp) => [
+         q(1461),
+         q(0),
+         ],
+      q(bsq) => [
+         q(1462),
+         q(0),
+         ],
+      q(bsr) => [
+         q(1463),
+         q(0),
+         ],
+      q(bss) => [
+         q(1464),
+         q(0),
+         ],
+      q(bst) => [
+         q(1465),
+         q(0),
+         ],
+      q(bsu) => [
+         q(1466),
+         q(0),
+         ],
+      q(bsv) => [
+         q(1467),
+         q(0),
+         ],
+      q(bsw) => [
+         q(1468),
+         q(0),
+         ],
+      q(bsx) => [
+         q(1469),
+         q(0),
+         ],
+      q(bsy) => [
+         q(1470),
+         q(0),
+         ],
+      q(bta) => [
+         q(1471),
+         q(0),
+         ],
+      q(btc) => [
+         q(1472),
+         q(0),
+         ],
+      q(btd) => [
+         q(1473),
+         q(0),
+         ],
+      q(bte) => [
+         q(1474),
+         q(0),
+         ],
+      q(btf) => [
+         q(1475),
+         q(0),
+         ],
+      q(btg) => [
+         q(1476),
+         q(0),
+         ],
+      q(bth) => [
+         q(1477),
+         q(0),
+         ],
+      q(bti) => [
+         q(1478),
+         q(0),
+         ],
+      q(btj) => [
+         q(1479),
+         q(0),
+         ],
+      q(btk) => [
+         q(0062),
+         q(0),
+         ],
+      q(btl) => [
+         q(1480),
+         q(0),
+         ],
+      q(btm) => [
+         q(1481),
+         q(0),
+         ],
+      q(btn) => [
+         q(1482),
+         q(0),
+         ],
+      q(bto) => [
+         q(1483),
+         q(0),
+         ],
+      q(btp) => [
+         q(1484),
+         q(0),
+         ],
+      q(btq) => [
+         q(1485),
+         q(0),
+         ],
+      q(btr) => [
+         q(1486),
+         q(0),
+         ],
+      q(bts) => [
+         q(1487),
+         q(0),
+         ],
+      q(btt) => [
+         q(1488),
+         q(0),
+         ],
+      q(btu) => [
+         q(1489),
+         q(0),
+         ],
+      q(btv) => [
+         q(1490),
+         q(0),
+         ],
+      q(btw) => [
+         q(1491),
+         q(0),
+         ],
+      q(btx) => [
+         q(1492),
+         q(0),
+         ],
+      q(bty) => [
+         q(1493),
+         q(0),
+         ],
+      q(btz) => [
+         q(1494),
+         q(0),
+         ],
+      q(bua) => [
+         q(0063),
+         q(0),
+         ],
+      q(bub) => [
+         q(1495),
+         q(0),
+         ],
+      q(buc) => [
+         q(1496),
+         q(0),
+         ],
+      q(bud) => [
+         q(1497),
+         q(0),
+         ],
+      q(bue) => [
+         q(1498),
+         q(0),
+         ],
+      q(buf) => [
+         q(1499),
+         q(0),
+         ],
+      q(bug) => [
+         q(0064),
+         q(0),
+         ],
+      q(buh) => [
+         q(1500),
+         q(0),
+         ],
+      q(bui) => [
+         q(1501),
+         q(0),
+         ],
+      q(buj) => [
+         q(1502),
+         q(0),
+         ],
+      q(buk) => [
+         q(1503),
+         q(0),
+         ],
+      q(bul) => [
+         q(0065),
+         q(0),
+         ],
+      q(bum) => [
+         q(1504),
+         q(0),
+         ],
+      q(bun) => [
+         q(1505),
+         q(0),
+         ],
+      q(buo) => [
+         q(1506),
+         q(0),
+         ],
+      q(bup) => [
+         q(1507),
+         q(0),
+         ],
+      q(buq) => [
+         q(1508),
+         q(0),
+         ],
+      q(bur) => [
+         q(0066),
+         q(0),
+         ],
+      q(bus) => [
+         q(1509),
+         q(0),
+         ],
+      q(but) => [
+         q(1510),
+         q(0),
+         ],
+      q(buu) => [
+         q(1511),
+         q(0),
+         ],
+      q(buv) => [
+         q(1512),
+         q(0),
+         ],
+      q(buw) => [
+         q(1513),
+         q(0),
+         ],
+      q(bux) => [
+         q(1514),
+         q(0),
+         ],
+      q(buy) => [
+         q(1515),
+         q(0),
+         ],
+      q(buz) => [
+         q(1516),
+         q(0),
+         ],
+      q(bva) => [
+         q(1517),
+         q(0),
+         ],
+      q(bvb) => [
+         q(1518),
+         q(0),
+         ],
+      q(bvc) => [
+         q(1519),
+         q(0),
+         ],
+      q(bvd) => [
+         q(1520),
+         q(0),
+         ],
+      q(bve) => [
+         q(1521),
+         q(0),
+         ],
+      q(bvf) => [
+         q(1522),
+         q(0),
+         ],
+      q(bvg) => [
+         q(1523),
+         q(0),
+         ],
+      q(bvh) => [
+         q(1524),
+         q(0),
+         ],
+      q(bvi) => [
+         q(1525),
+         q(0),
+         ],
+      q(bvj) => [
+         q(1526),
+         q(0),
+         ],
+      q(bvk) => [
+         q(1527),
+         q(0),
+         ],
+      q(bvl) => [
+         q(1528),
+         q(0),
+         ],
+      q(bvm) => [
+         q(1529),
+         q(0),
+         ],
+      q(bvn) => [
+         q(1530),
+         q(0),
+         ],
+      q(bvo) => [
+         q(1531),
+         q(0),
+         ],
+      q(bvp) => [
+         q(1532),
+         q(0),
+         ],
+      q(bvq) => [
+         q(1533),
+         q(0),
+         ],
+      q(bvr) => [
+         q(1534),
+         q(0),
+         ],
+      q(bvt) => [
+         q(1535),
+         q(0),
+         ],
+      q(bvu) => [
+         q(1536),
+         q(0),
+         ],
+      q(bvv) => [
+         q(1537),
+         q(0),
+         ],
+      q(bvw) => [
+         q(1538),
+         q(0),
+         ],
+      q(bvx) => [
+         q(1539),
+         q(0),
+         ],
+      q(bvy) => [
+         q(1540),
+         q(0),
+         ],
+      q(bvz) => [
+         q(1541),
+         q(0),
+         ],
+      q(bwa) => [
+         q(1542),
+         q(0),
+         ],
+      q(bwb) => [
+         q(1543),
+         q(0),
+         ],
+      q(bwc) => [
+         q(1544),
+         q(0),
+         ],
+      q(bwd) => [
+         q(1545),
+         q(0),
+         ],
+      q(bwe) => [
+         q(1546),
+         q(0),
+         ],
+      q(bwf) => [
+         q(1547),
+         q(0),
+         ],
+      q(bwg) => [
+         q(1548),
+         q(0),
+         ],
+      q(bwh) => [
+         q(1549),
+         q(0),
+         ],
+      q(bwi) => [
+         q(1550),
+         q(0),
+         ],
+      q(bwj) => [
+         q(1551),
+         q(0),
+         ],
+      q(bwk) => [
+         q(1552),
+         q(0),
+         ],
+      q(bwl) => [
+         q(1553),
+         q(0),
+         ],
+      q(bwm) => [
+         q(1554),
+         q(0),
+         ],
+      q(bwn) => [
+         q(1555),
+         q(0),
+         ],
+      q(bwo) => [
+         q(1556),
+         q(0),
+         ],
+      q(bwp) => [
+         q(1557),
+         q(0),
+         ],
+      q(bwq) => [
+         q(1558),
+         q(0),
+         ],
+      q(bwr) => [
+         q(1559),
+         q(0),
+         ],
+      q(bws) => [
+         q(1560),
+         q(0),
+         ],
+      q(bwt) => [
+         q(1561),
+         q(0),
+         ],
+      q(bwu) => [
+         q(1562),
+         q(0),
+         ],
+      q(bww) => [
+         q(1563),
+         q(0),
+         ],
+      q(bwx) => [
+         q(1564),
+         q(0),
+         ],
+      q(bwy) => [
+         q(1565),
+         q(0),
+         ],
+      q(bwz) => [
+         q(1566),
+         q(0),
+         ],
+      q(bxa) => [
+         q(1567),
+         q(0),
+         ],
+      q(bxb) => [
+         q(1568),
+         q(0),
+         ],
+      q(bxc) => [
+         q(1569),
+         q(0),
+         ],
+      q(bxd) => [
+         q(1570),
+         q(0),
+         ],
+      q(bxe) => [
+         q(1571),
+         q(0),
+         ],
+      q(bxf) => [
+         q(1572),
+         q(0),
+         ],
+      q(bxg) => [
+         q(1573),
+         q(0),
+         ],
+      q(bxh) => [
+         q(1574),
+         q(0),
+         ],
+      q(bxi) => [
+         q(1575),
+         q(0),
+         ],
+      q(bxj) => [
+         q(1576),
+         q(0),
+         ],
+      q(bxk) => [
+         q(1577),
+         q(0),
+         ],
+      q(bxl) => [
+         q(1578),
+         q(0),
+         ],
+      q(bxm) => [
+         q(1579),
+         q(0),
+         ],
+      q(bxn) => [
+         q(1580),
+         q(0),
+         ],
+      q(bxo) => [
+         q(1581),
+         q(0),
+         ],
+      q(bxp) => [
+         q(1582),
+         q(0),
+         ],
+      q(bxq) => [
+         q(1583),
+         q(0),
+         ],
+      q(bxr) => [
+         q(1584),
+         q(0),
+         ],
+      q(bxs) => [
+         q(1585),
+         q(0),
+         ],
+      q(bxu) => [
+         q(1586),
+         q(0),
+         ],
+      q(bxv) => [
+         q(1587),
+         q(0),
+         ],
+      q(bxw) => [
+         q(1588),
+         q(0),
+         ],
+      q(bxz) => [
+         q(1589),
+         q(0),
+         ],
+      q(bya) => [
+         q(1590),
+         q(0),
+         ],
+      q(byb) => [
+         q(1591),
+         q(0),
+         ],
+      q(byc) => [
+         q(1592),
+         q(0),
+         ],
+      q(byd) => [
+         q(1593),
+         q(0),
+         ],
+      q(bye) => [
+         q(1594),
+         q(0),
+         ],
+      q(byf) => [
+         q(1595),
+         q(0),
+         ],
+      q(byg) => [
+         q(1596),
+         q(0),
+         ],
+      q(byh) => [
+         q(1597),
+         q(0),
+         ],
+      q(byi) => [
+         q(1598),
+         q(0),
+         ],
+      q(byj) => [
+         q(1599),
+         q(0),
+         ],
+      q(byk) => [
+         q(1600),
+         q(0),
+         ],
+      q(byl) => [
+         q(1601),
+         q(0),
+         ],
+      q(bym) => [
+         q(1602),
+         q(0),
+         ],
+      q(byn) => [
+         q(0067),
+         q(1),
+         ],
+      q(byo) => [
+         q(1603),
+         q(0),
+         ],
+      q(byp) => [
+         q(1604),
+         q(0),
+         ],
+      q(byq) => [
+         q(1605),
+         q(0),
+         ],
+      q(byr) => [
+         q(1606),
+         q(0),
+         ],
+      q(bys) => [
+         q(1607),
+         q(0),
+         ],
+      q(byt) => [
+         q(1608),
+         q(0),
+         ],
+      q(byv) => [
+         q(1609),
+         q(0),
+         ],
+      q(byw) => [
+         q(1610),
+         q(0),
+         ],
+      q(byx) => [
+         q(1611),
+         q(0),
+         ],
+      q(byz) => [
+         q(1612),
+         q(0),
+         ],
+      q(bza) => [
+         q(1613),
+         q(0),
+         ],
+      q(bzb) => [
+         q(1614),
+         q(0),
+         ],
+      q(bzc) => [
+         q(1615),
+         q(0),
+         ],
+      q(bzd) => [
+         q(1616),
+         q(0),
+         ],
+      q(bze) => [
+         q(1617),
+         q(0),
+         ],
+      q(bzf) => [
+         q(1618),
+         q(0),
+         ],
+      q(bzg) => [
+         q(1619),
+         q(0),
+         ],
+      q(bzh) => [
+         q(1620),
+         q(0),
+         ],
+      q(bzi) => [
+         q(1621),
+         q(0),
+         ],
+      q(bzj) => [
+         q(1622),
+         q(0),
+         ],
+      q(bzk) => [
+         q(1623),
+         q(0),
+         ],
+      q(bzl) => [
+         q(1624),
+         q(0),
+         ],
+      q(bzm) => [
+         q(1625),
+         q(0),
+         ],
+      q(bzn) => [
+         q(1626),
+         q(0),
+         ],
+      q(bzo) => [
+         q(1627),
+         q(0),
+         ],
+      q(bzp) => [
+         q(1628),
+         q(0),
+         ],
+      q(bzq) => [
+         q(1629),
+         q(0),
+         ],
+      q(bzr) => [
+         q(1630),
+         q(0),
+         ],
+      q(bzs) => [
+         q(1631),
+         q(0),
+         ],
+      q(bzt) => [
+         q(1632),
+         q(0),
+         ],
+      q(bzu) => [
+         q(1633),
+         q(0),
+         ],
+      q(bzv) => [
+         q(1634),
+         q(0),
+         ],
+      q(bzw) => [
+         q(1635),
+         q(0),
+         ],
+      q(bzx) => [
+         q(1636),
+         q(0),
+         ],
+      q(bzy) => [
+         q(1637),
+         q(0),
+         ],
+      q(bzz) => [
+         q(1638),
+         q(0),
+         ],
+      q(caa) => [
+         q(1639),
+         q(0),
+         ],
+      q(cab) => [
+         q(1640),
+         q(0),
+         ],
+      q(cac) => [
+         q(1641),
+         q(0),
+         ],
+      q(cad) => [
+         q(0068),
+         q(0),
+         ],
+      q(cae) => [
+         q(1642),
+         q(0),
+         ],
+      q(caf) => [
+         q(1643),
+         q(0),
+         ],
+      q(cag) => [
+         q(1644),
+         q(0),
+         ],
+      q(cah) => [
+         q(1645),
+         q(0),
+         ],
+      q(cai) => [
+         q(0069),
+         q(0),
+         ],
+      q(caj) => [
+         q(1646),
+         q(0),
+         ],
+      q(cak) => [
+         q(1647),
+         q(0),
+         ],
+      q(cal) => [
+         q(1648),
+         q(0),
+         ],
+      q(cam) => [
+         q(1649),
+         q(0),
+         ],
+      q(can) => [
+         q(1650),
+         q(0),
+         ],
+      q(cao) => [
+         q(1651),
+         q(0),
+         ],
+      q(cap) => [
+         q(1652),
+         q(0),
+         ],
+      q(caq) => [
+         q(1653),
+         q(0),
+         ],
+      q(car) => [
+         q(0070),
+         q(0),
+         ],
+      q(cas) => [
+         q(1654),
+         q(0),
+         ],
+      q(cat) => [
+         q(0071),
+         q(0),
+         ],
+      q(cau) => [
+         q(0072),
+         q(0),
+         ],
+      q(cav) => [
+         q(1655),
+         q(0),
+         ],
+      q(caw) => [
+         q(1656),
+         q(0),
+         ],
+      q(cax) => [
+         q(1657),
+         q(0),
+         ],
+      q(cay) => [
+         q(1658),
+         q(0),
+         ],
+      q(caz) => [
+         q(1659),
+         q(0),
+         ],
+      q(cba) => [
+         q(0494),
+         q(0),
+         ],
+      q(cbb) => [
+         q(1660),
+         q(0),
+         ],
+      q(cbc) => [
+         q(1661),
+         q(0),
+         ],
+      q(cbd) => [
+         q(1662),
+         q(0),
+         ],
+      q(cbe) => [
+         q(1663),
+         q(0),
+         ],
+      q(cbg) => [
+         q(1664),
+         q(0),
+         ],
+      q(cbh) => [
+         q(1665),
+         q(0),
+         ],
+      q(cbi) => [
+         q(1666),
+         q(0),
+         ],
+      q(cbj) => [
+         q(1667),
+         q(0),
+         ],
+      q(cbk) => [
+         q(1668),
+         q(0),
+         ],
+      q(cbl) => [
+         q(1669),
+         q(0),
+         ],
+      q(cbn) => [
+         q(1670),
+         q(0),
+         ],
+      q(cbo) => [
+         q(1671),
+         q(0),
+         ],
+      q(cbq) => [
+         q(1672),
+         q(0),
+         ],
+      q(cbr) => [
+         q(1673),
+         q(0),
+         ],
+      q(cbs) => [
+         q(1674),
+         q(0),
+         ],
+      q(cbt) => [
+         q(1675),
+         q(0),
+         ],
+      q(cbu) => [
+         q(1676),
+         q(0),
+         ],
+      q(cbv) => [
+         q(1677),
+         q(0),
+         ],
+      q(cbw) => [
+         q(1678),
+         q(0),
+         ],
+      q(cby) => [
+         q(1679),
+         q(0),
+         ],
+      q(cca) => [
+         q(1680),
+         q(0),
+         ],
+      q(ccc) => [
+         q(1681),
+         q(0),
+         ],
+      q(ccd) => [
+         q(1682),
+         q(0),
+         ],
+      q(cce) => [
+         q(1683),
+         q(0),
+         ],
+      q(ccg) => [
+         q(1684),
+         q(0),
+         ],
+      q(cch) => [
+         q(1685),
+         q(0),
+         ],
+      q(ccj) => [
+         q(1686),
+         q(0),
+         ],
+      q(ccl) => [
+         q(1687),
+         q(0),
+         ],
+      q(ccm) => [
+         q(1688),
+         q(0),
+         ],
+      q(ccn) => [
+         q(0495),
+         q(0),
+         ],
+      q(cco) => [
+         q(1689),
+         q(0),
+         ],
+      q(ccp) => [
+         q(1690),
+         q(0),
+         ],
+      q(ccr) => [
+         q(1691),
+         q(0),
+         ],
+      q(ccs) => [
+         q(0496),
+         q(0),
+         ],
+      q(cda) => [
+         q(1692),
+         q(0),
+         ],
+      q(cdc) => [
+         q(0497),
+         q(0),
+         ],
+      q(cdd) => [
+         q(0498),
+         q(0),
+         ],
+      q(cde) => [
+         q(1693),
+         q(0),
+         ],
+      q(cdf) => [
+         q(1694),
+         q(0),
+         ],
+      q(cdg) => [
+         q(1695),
+         q(0),
+         ],
+      q(cdh) => [
+         q(1696),
+         q(0),
+         ],
+      q(cdi) => [
+         q(1697),
+         q(0),
+         ],
+      q(cdj) => [
+         q(1698),
+         q(0),
+         ],
+      q(cdm) => [
+         q(1699),
+         q(0),
+         ],
+      q(cdn) => [
+         q(1700),
+         q(0),
+         ],
+      q(cdo) => [
+         q(1701),
+         q(0),
+         ],
+      q(cdr) => [
+         q(1702),
+         q(0),
+         ],
+      q(cds) => [
+         q(1703),
+         q(0),
+         ],
+      q(cdy) => [
+         q(1704),
+         q(0),
+         ],
+      q(cdz) => [
+         q(1705),
+         q(0),
+         ],
+      q(cea) => [
+         q(1706),
+         q(0),
+         ],
+      q(ceb) => [
+         q(0073),
+         q(0),
+         ],
+      q(ceg) => [
+         q(1707),
+         q(0),
+         ],
+      q(cek) => [
+         q(1708),
+         q(0),
+         ],
+      q(cel) => [
+         q(0074),
+         q(0),
+         ],
+      q(cen) => [
+         q(1709),
+         q(0),
+         ],
+      q(cet) => [
+         q(1710),
+         q(0),
+         ],
+      q(cfa) => [
+         q(1711),
+         q(0),
+         ],
+      q(cfd) => [
+         q(1712),
+         q(0),
+         ],
+      q(cfg) => [
+         q(1713),
+         q(0),
+         ],
+      q(cfm) => [
+         q(1714),
+         q(0),
+         ],
+      q(cga) => [
+         q(1715),
+         q(0),
+         ],
+      q(cgc) => [
+         q(1716),
+         q(0),
+         ],
+      q(cgg) => [
+         q(1717),
+         q(0),
+         ],
+      q(cgk) => [
+         q(1718),
+         q(0),
+         ],
+      q(cha) => [
+         q(0075),
+         q(0),
+         ],
+      q(chb) => [
+         q(0076),
+         q(0),
+         ],
+      q(chc) => [
+         q(1719),
+         q(0),
+         ],
+      q(chd) => [
+         q(1720),
+         q(0),
+         ],
+      q(che) => [
+         q(0077),
+         q(0),
+         ],
+      q(chf) => [
+         q(1721),
+         q(0),
+         ],
+      q(chg) => [
+         q(0078),
+         q(0),
+         ],
+      q(chh) => [
+         q(1722),
+         q(0),
+         ],
+      q(chi) => [
+         q(0079),
+         q(0),
+         ],
+      q(chj) => [
+         q(1723),
+         q(0),
+         ],
+      q(chk) => [
+         q(0080),
+         q(0),
+         ],
+      q(chl) => [
+         q(1724),
+         q(0),
+         ],
+      q(chm) => [
+         q(0081),
+         q(1),
+         ],
+      q(chn) => [
+         q(0082),
+         q(0),
+         ],
+      q(cho) => [
+         q(0083),
+         q(0),
+         ],
+      q(chp) => [
+         q(0084),
+         q(0),
+         ],
+      q(chq) => [
+         q(1725),
+         q(0),
+         ],
+      q(chr) => [
+         q(0085),
+         q(0),
+         ],
+      q(cht) => [
+         q(1726),
+         q(0),
+         ],
+      q(chu) => [
+         q(0086),
+         q(0),
+         ],
+      q(chv) => [
+         q(0087),
+         q(0),
+         ],
+      q(chw) => [
+         q(1727),
+         q(0),
+         ],
+      q(chx) => [
+         q(1728),
+         q(0),
+         ],
+      q(chy) => [
+         q(0088),
+         q(0),
+         ],
+      q(chz) => [
+         q(1729),
+         q(0),
+         ],
+      q(cia) => [
+         q(1730),
+         q(0),
+         ],
+      q(cib) => [
+         q(1731),
+         q(0),
+         ],
+      q(cic) => [
+         q(1732),
+         q(0),
+         ],
+      q(cid) => [
+         q(1733),
+         q(0),
+         ],
+      q(cie) => [
+         q(1734),
+         q(0),
+         ],
+      q(cih) => [
+         q(1735),
+         q(0),
+         ],
+      q(cik) => [
+         q(1736),
+         q(0),
+         ],
+      q(cim) => [
+         q(1737),
+         q(0),
+         ],
+      q(cin) => [
+         q(1738),
+         q(0),
+         ],
+      q(cip) => [
+         q(1739),
+         q(0),
+         ],
+      q(cir) => [
+         q(1740),
+         q(0),
+         ],
+      q(ciw) => [
+         q(1741),
+         q(0),
+         ],
+      q(ciy) => [
+         q(1742),
+         q(0),
+         ],
+      q(cja) => [
+         q(1743),
+         q(0),
+         ],
+      q(cje) => [
+         q(1744),
+         q(0),
+         ],
+      q(cjh) => [
+         q(1745),
+         q(0),
+         ],
+      q(cji) => [
+         q(1746),
+         q(0),
+         ],
+      q(cjk) => [
+         q(1747),
+         q(0),
+         ],
+      q(cjm) => [
+         q(1748),
+         q(0),
+         ],
+      q(cjn) => [
+         q(1749),
+         q(0),
+         ],
+      q(cjo) => [
+         q(1750),
+         q(0),
+         ],
+      q(cjp) => [
+         q(1751),
+         q(0),
+         ],
+      q(cjs) => [
+         q(1752),
+         q(0),
+         ],
+      q(cjv) => [
+         q(1753),
+         q(0),
+         ],
+      q(cjy) => [
+         q(1754),
+         q(0),
+         ],
+      q(ckb) => [
+         q(1755),
+         q(0),
+         ],
+      q(ckh) => [
+         q(1756),
+         q(0),
+         ],
+      q(ckl) => [
+         q(1757),
+         q(0),
+         ],
+      q(ckn) => [
+         q(1758),
+         q(0),
+         ],
+      q(cko) => [
+         q(1759),
+         q(0),
+         ],
+      q(ckq) => [
+         q(1760),
+         q(0),
+         ],
+      q(ckr) => [
+         q(1761),
+         q(0),
+         ],
+      q(cks) => [
+         q(1762),
+         q(0),
+         ],
+      q(ckt) => [
+         q(1763),
+         q(0),
+         ],
+      q(cku) => [
+         q(1764),
+         q(0),
+         ],
+      q(ckv) => [
+         q(1765),
+         q(0),
+         ],
+      q(ckx) => [
+         q(1766),
+         q(0),
+         ],
+      q(cky) => [
+         q(1767),
+         q(0),
+         ],
+      q(ckz) => [
+         q(1768),
+         q(0),
+         ],
+      q(cla) => [
+         q(1769),
+         q(0),
+         ],
+      q(clc) => [
+         q(1770),
+         q(0),
+         ],
+      q(cld) => [
+         q(1771),
+         q(0),
+         ],
+      q(cle) => [
+         q(1772),
+         q(0),
+         ],
+      q(clh) => [
+         q(1773),
+         q(0),
+         ],
+      q(cli) => [
+         q(1774),
+         q(0),
+         ],
+      q(clj) => [
+         q(1775),
+         q(0),
+         ],
+      q(clk) => [
+         q(1776),
+         q(0),
+         ],
+      q(cll) => [
+         q(1777),
+         q(0),
+         ],
+      q(clm) => [
+         q(1778),
+         q(0),
+         ],
+      q(clo) => [
+         q(1779),
+         q(0),
+         ],
+      q(clt) => [
+         q(1780),
+         q(0),
+         ],
+      q(clu) => [
+         q(1781),
+         q(0),
+         ],
+      q(clw) => [
+         q(1782),
+         q(0),
+         ],
+      q(cly) => [
+         q(1783),
+         q(0),
+         ],
+      q(cma) => [
+         q(1784),
+         q(0),
+         ],
+      q(cmc) => [
+         q(0089),
+         q(0),
+         ],
+      q(cme) => [
+         q(1785),
+         q(0),
+         ],
+      q(cmg) => [
+         q(1786),
+         q(0),
+         ],
+      q(cmi) => [
+         q(1787),
+         q(0),
+         ],
+      q(cml) => [
+         q(1788),
+         q(0),
+         ],
+      q(cmm) => [
+         q(1789),
+         q(0),
+         ],
+      q(cmn) => [
+         q(1790),
+         q(0),
+         ],
+      q(cmo) => [
+         q(1791),
+         q(0),
+         ],
+      q(cmr) => [
+         q(1792),
+         q(0),
+         ],
+      q(cms) => [
+         q(1793),
+         q(0),
+         ],
+      q(cmt) => [
+         q(1794),
+         q(0),
+         ],
+      q(cna) => [
+         q(1795),
+         q(0),
+         ],
+      q(cnb) => [
+         q(1796),
+         q(0),
+         ],
+      q(cnc) => [
+         q(1797),
+         q(0),
+         ],
+      q(cng) => [
+         q(1798),
+         q(0),
+         ],
+      q(cnh) => [
+         q(1799),
+         q(0),
+         ],
+      q(cni) => [
+         q(1800),
+         q(0),
+         ],
+      q(cnk) => [
+         q(1801),
+         q(0),
+         ],
+      q(cnl) => [
+         q(1802),
+         q(0),
+         ],
+      q(cno) => [
+         q(1803),
+         q(0),
+         ],
+      q(cns) => [
+         q(1804),
+         q(0),
+         ],
+      q(cnt) => [
+         q(1805),
+         q(0),
+         ],
+      q(cnu) => [
+         q(1806),
+         q(0),
+         ],
+      q(cnw) => [
+         q(1807),
+         q(0),
+         ],
+      q(cnx) => [
+         q(1808),
+         q(0),
+         ],
+      q(coa) => [
+         q(1809),
+         q(0),
+         ],
+      q(cob) => [
+         q(1810),
+         q(0),
+         ],
+      q(coc) => [
+         q(1811),
+         q(0),
+         ],
+      q(cod) => [
+         q(1812),
+         q(0),
+         ],
+      q(coe) => [
+         q(1813),
+         q(0),
+         ],
+      q(cof) => [
+         q(1814),
+         q(0),
+         ],
+      q(cog) => [
+         q(1815),
+         q(0),
+         ],
+      q(coh) => [
+         q(1816),
+         q(0),
+         ],
+      q(coj) => [
+         q(1817),
+         q(0),
+         ],
+      q(cok) => [
+         q(1818),
+         q(0),
+         ],
+      q(col) => [
+         q(1819),
+         q(0),
+         ],
+      q(com) => [
+         q(1820),
+         q(0),
+         ],
+      q(con) => [
+         q(1821),
+         q(0),
+         ],
+      q(coo) => [
+         q(1822),
+         q(0),
+         ],
+      q(cop) => [
+         q(0090),
+         q(0),
+         ],
+      q(coq) => [
+         q(1823),
+         q(0),
+         ],
+      q(cor) => [
+         q(0091),
+         q(0),
+         ],
+      q(cos) => [
+         q(0092),
+         q(0),
+         ],
+      q(cot) => [
+         q(1824),
+         q(0),
+         ],
+      q(cou) => [
+         q(1825),
+         q(0),
+         ],
+      q(cov) => [
+         q(1826),
+         q(0),
+         ],
+      q(cow) => [
+         q(1827),
+         q(0),
+         ],
+      q(cox) => [
+         q(1828),
+         q(0),
+         ],
+      q(coy) => [
+         q(1829),
+         q(0),
+         ],
+      q(coz) => [
+         q(1830),
+         q(0),
+         ],
+      q(cpa) => [
+         q(1831),
+         q(0),
+         ],
+      q(cpb) => [
+         q(1832),
+         q(0),
+         ],
+      q(cpc) => [
+         q(1833),
+         q(0),
+         ],
+      q(cpe) => [
+         q(0093),
+         q(2),
+         ],
+      q(cpf) => [
+         q(0094),
+         q(2),
+         ],
+      q(cpg) => [
+         q(1834),
+         q(0),
+         ],
+      q(cpi) => [
+         q(1835),
+         q(0),
+         ],
+      q(cpn) => [
+         q(1836),
+         q(0),
+         ],
+      q(cpo) => [
+         q(1837),
+         q(0),
+         ],
+      q(cpp) => [
+         q(0095),
+         q(2),
+         ],
+      q(cps) => [
+         q(1838),
+         q(0),
+         ],
+      q(cpu) => [
+         q(1839),
+         q(0),
+         ],
+      q(cpx) => [
+         q(1840),
+         q(0),
+         ],
+      q(cpy) => [
+         q(1841),
+         q(0),
+         ],
+      q(cqd) => [
+         q(1842),
+         q(0),
+         ],
+      q(cqu) => [
+         q(1843),
+         q(0),
+         ],
+      q(cra) => [
+         q(1844),
+         q(0),
+         ],
+      q(crb) => [
+         q(1845),
+         q(0),
+         ],
+      q(crc) => [
+         q(1846),
+         q(0),
+         ],
+      q(crd) => [
+         q(1847),
+         q(0),
+         ],
+      q(cre) => [
+         q(0096),
+         q(0),
+         ],
+      q(crf) => [
+         q(1848),
+         q(0),
+         ],
+      q(crg) => [
+         q(1849),
+         q(0),
+         ],
+      q(crh) => [
+         q(0097),
+         q(0),
+         ],
+      q(cri) => [
+         q(1850),
+         q(0),
+         ],
+      q(crj) => [
+         q(1851),
+         q(0),
+         ],
+      q(crk) => [
+         q(1852),
+         q(0),
+         ],
+      q(crl) => [
+         q(1853),
+         q(0),
+         ],
+      q(crm) => [
+         q(1854),
+         q(0),
+         ],
+      q(crn) => [
+         q(1855),
+         q(0),
+         ],
+      q(cro) => [
+         q(1856),
+         q(0),
+         ],
+      q(crp) => [
+         q(0098),
+         q(1),
+         ],
+      q(crq) => [
+         q(1857),
+         q(0),
+         ],
+      q(crr) => [
+         q(1858),
+         q(0),
+         ],
+      q(crs) => [
+         q(1859),
+         q(0),
+         ],
+      q(crt) => [
+         q(1860),
+         q(0),
+         ],
+      q(crv) => [
+         q(1861),
+         q(0),
+         ],
+      q(crw) => [
+         q(1862),
+         q(0),
+         ],
+      q(crx) => [
+         q(1863),
+         q(0),
+         ],
+      q(cry) => [
+         q(1864),
+         q(0),
+         ],
+      q(crz) => [
+         q(1865),
+         q(0),
+         ],
+      q(csa) => [
+         q(1866),
+         q(0),
+         ],
+      q(csb) => [
+         q(0099),
+         q(0),
+         ],
+      q(csc) => [
+         q(1867),
+         q(0),
+         ],
+      q(csd) => [
+         q(1868),
+         q(0),
+         ],
+      q(cse) => [
+         q(1869),
+         q(0),
+         ],
+      q(csf) => [
+         q(1870),
+         q(0),
+         ],
+      q(csg) => [
+         q(1871),
+         q(0),
+         ],
+      q(csh) => [
+         q(1872),
+         q(0),
+         ],
+      q(csi) => [
+         q(1873),
+         q(0),
+         ],
+      q(csj) => [
+         q(1874),
+         q(0),
+         ],
+      q(csk) => [
+         q(1875),
+         q(0),
+         ],
+      q(csl) => [
+         q(1876),
+         q(0),
+         ],
+      q(csm) => [
+         q(1877),
+         q(0),
+         ],
+      q(csn) => [
+         q(1878),
+         q(0),
+         ],
+      q(cso) => [
+         q(1879),
+         q(0),
+         ],
+      q(csq) => [
+         q(1880),
+         q(0),
+         ],
+      q(csr) => [
+         q(1881),
+         q(0),
+         ],
+      q(css) => [
+         q(1882),
+         q(0),
+         ],
+      q(cst) => [
+         q(1883),
+         q(0),
+         ],
+      q(csu) => [
+         q(0499),
+         q(0),
+         ],
+      q(csv) => [
+         q(1884),
+         q(0),
+         ],
+      q(csw) => [
+         q(1885),
+         q(0),
+         ],
+      q(csy) => [
+         q(1886),
+         q(0),
+         ],
+      q(csz) => [
+         q(1887),
+         q(0),
+         ],
+      q(cta) => [
+         q(1888),
+         q(0),
+         ],
+      q(ctc) => [
+         q(1889),
+         q(0),
+         ],
+      q(ctd) => [
+         q(1890),
+         q(0),
+         ],
+      q(cte) => [
+         q(1891),
+         q(0),
+         ],
+      q(ctg) => [
+         q(1892),
+         q(0),
+         ],
+      q(cth) => [
+         q(1893),
+         q(0),
+         ],
+      q(ctl) => [
+         q(1894),
+         q(0),
+         ],
+      q(ctm) => [
+         q(1895),
+         q(0),
+         ],
+      q(ctn) => [
+         q(1896),
+         q(0),
+         ],
+      q(cto) => [
+         q(1897),
+         q(0),
+         ],
+      q(ctp) => [
+         q(1898),
+         q(0),
+         ],
+      q(cts) => [
+         q(1899),
+         q(0),
+         ],
+      q(ctt) => [
+         q(1900),
+         q(0),
+         ],
+      q(ctu) => [
+         q(1901),
+         q(0),
+         ],
+      q(ctz) => [
+         q(1902),
+         q(0),
+         ],
+      q(cua) => [
+         q(1903),
+         q(0),
+         ],
+      q(cub) => [
+         q(1904),
+         q(0),
+         ],
+      q(cuc) => [
+         q(1905),
+         q(0),
+         ],
+      q(cug) => [
+         q(1906),
+         q(0),
+         ],
+      q(cuh) => [
+         q(1907),
+         q(0),
+         ],
+      q(cui) => [
+         q(1908),
+         q(0),
+         ],
+      q(cuj) => [
+         q(1909),
+         q(0),
+         ],
+      q(cuk) => [
+         q(1910),
+         q(0),
+         ],
+      q(cul) => [
+         q(1911),
+         q(0),
+         ],
+      q(cum) => [
+         q(1912),
+         q(0),
+         ],
+      q(cuo) => [
+         q(1913),
+         q(0),
+         ],
+      q(cup) => [
+         q(1914),
+         q(0),
+         ],
+      q(cuq) => [
+         q(1915),
+         q(0),
+         ],
+      q(cur) => [
+         q(1916),
+         q(0),
+         ],
+      q(cus) => [
+         q(0100),
+         q(0),
+         ],
+      q(cut) => [
+         q(1917),
+         q(0),
+         ],
+      q(cuu) => [
+         q(1918),
+         q(0),
+         ],
+      q(cuv) => [
+         q(1919),
+         q(0),
+         ],
+      q(cuw) => [
+         q(1920),
+         q(0),
+         ],
+      q(cux) => [
+         q(1921),
+         q(0),
+         ],
+      q(cvg) => [
+         q(1922),
+         q(0),
+         ],
+      q(cvn) => [
+         q(1923),
+         q(0),
+         ],
+      q(cwa) => [
+         q(1924),
+         q(0),
+         ],
+      q(cwb) => [
+         q(1925),
+         q(0),
+         ],
+      q(cwd) => [
+         q(1926),
+         q(0),
+         ],
+      q(cwe) => [
+         q(1927),
+         q(0),
+         ],
+      q(cwg) => [
+         q(1928),
+         q(0),
+         ],
+      q(cwt) => [
+         q(1929),
+         q(0),
+         ],
+      q(cya) => [
+         q(1930),
+         q(0),
+         ],
+      q(cyb) => [
+         q(1931),
+         q(0),
+         ],
+      q(cyo) => [
+         q(1932),
+         q(0),
+         ],
+      q(cze) => [
+         q(0101),
+         q(0),
+         ],
+      q(czh) => [
+         q(1933),
+         q(0),
+         ],
+      q(czk) => [
+         q(1934),
+         q(0),
+         ],
+      q(czn) => [
+         q(1935),
+         q(0),
+         ],
+      q(czo) => [
+         q(1936),
+         q(0),
+         ],
+      q(czt) => [
+         q(1937),
+         q(0),
+         ],
+      q(daa) => [
+         q(1938),
+         q(0),
+         ],
+      q(dac) => [
+         q(1939),
+         q(0),
+         ],
+      q(dad) => [
+         q(1940),
+         q(0),
+         ],
+      q(dae) => [
+         q(1941),
+         q(0),
+         ],
+      q(dag) => [
+         q(1942),
+         q(0),
+         ],
+      q(dah) => [
+         q(1943),
+         q(0),
+         ],
+      q(dai) => [
+         q(1944),
+         q(0),
+         ],
+      q(daj) => [
+         q(1945),
+         q(0),
+         ],
+      q(dak) => [
+         q(0102),
+         q(0),
+         ],
+      q(dal) => [
+         q(1946),
+         q(0),
+         ],
+      q(dam) => [
+         q(1947),
+         q(0),
+         ],
+      q(dan) => [
+         q(0103),
+         q(0),
+         ],
+      q(dao) => [
+         q(1948),
+         q(0),
+         ],
+      q(daq) => [
+         q(1949),
+         q(0),
+         ],
+      q(dar) => [
+         q(0104),
+         q(0),
+         ],
+      q(das) => [
+         q(1950),
+         q(0),
+         ],
+      q(dau) => [
+         q(1951),
+         q(0),
+         ],
+      q(dav) => [
+         q(1952),
+         q(0),
+         ],
+      q(daw) => [
+         q(1953),
+         q(0),
+         ],
+      q(dax) => [
+         q(1954),
+         q(0),
+         ],
+      q(day) => [
+         q(0105),
+         q(0),
+         ],
+      q(daz) => [
+         q(1955),
+         q(0),
+         ],
+      q(dba) => [
+         q(1956),
+         q(0),
+         ],
+      q(dbb) => [
+         q(1957),
+         q(0),
+         ],
+      q(dbd) => [
+         q(1958),
+         q(0),
+         ],
+      q(dbe) => [
+         q(1959),
+         q(0),
+         ],
+      q(dbf) => [
+         q(1960),
+         q(0),
+         ],
+      q(dbg) => [
+         q(1961),
+         q(0),
+         ],
+      q(dbi) => [
+         q(1962),
+         q(0),
+         ],
+      q(dbj) => [
+         q(1963),
+         q(0),
+         ],
+      q(dbl) => [
+         q(1964),
+         q(0),
+         ],
+      q(dbm) => [
+         q(1965),
+         q(0),
+         ],
+      q(dbn) => [
+         q(1966),
+         q(0),
+         ],
+      q(dbo) => [
+         q(1967),
+         q(0),
+         ],
+      q(dbp) => [
+         q(1968),
+         q(0),
+         ],
+      q(dbq) => [
+         q(1969),
+         q(0),
+         ],
+      q(dbr) => [
+         q(1970),
+         q(0),
+         ],
+      q(dbt) => [
+         q(1971),
+         q(0),
+         ],
+      q(dbu) => [
+         q(1972),
+         q(0),
+         ],
+      q(dbv) => [
+         q(1973),
+         q(0),
+         ],
+      q(dbw) => [
+         q(1974),
+         q(0),
+         ],
+      q(dby) => [
+         q(1975),
+         q(0),
+         ],
+      q(dcc) => [
+         q(1976),
+         q(0),
+         ],
+      q(dcr) => [
+         q(1977),
+         q(0),
+         ],
+      q(dda) => [
+         q(1978),
+         q(0),
+         ],
+      q(ddd) => [
+         q(1979),
+         q(0),
+         ],
+      q(dde) => [
+         q(1980),
+         q(0),
+         ],
+      q(ddg) => [
+         q(1981),
+         q(0),
+         ],
+      q(ddi) => [
+         q(1982),
+         q(0),
+         ],
+      q(ddj) => [
+         q(1983),
+         q(0),
+         ],
+      q(ddn) => [
+         q(1984),
+         q(0),
+         ],
+      q(ddo) => [
+         q(1985),
+         q(0),
+         ],
+      q(ddr) => [
+         q(1986),
+         q(0),
+         ],
+      q(dds) => [
+         q(1987),
+         q(0),
+         ],
+      q(ddw) => [
+         q(1988),
+         q(0),
+         ],
+      q(dec) => [
+         q(1989),
+         q(0),
+         ],
+      q(ded) => [
+         q(1990),
+         q(0),
+         ],
+      q(dee) => [
+         q(1991),
+         q(0),
+         ],
+      q(def) => [
+         q(1992),
+         q(0),
+         ],
+      q(deg) => [
+         q(1993),
+         q(0),
+         ],
+      q(deh) => [
+         q(1994),
+         q(0),
+         ],
+      q(dei) => [
+         q(1995),
+         q(0),
+         ],
+      q(dek) => [
+         q(1996),
+         q(0),
+         ],
+      q(del) => [
+         q(0106),
+         q(0),
+         ],
+      q(dem) => [
+         q(1997),
+         q(0),
+         ],
+      q(den) => [
+         q(0107),
+         q(0),
+         ],
+      q(dep) => [
+         q(1998),
+         q(0),
+         ],
+      q(deq) => [
+         q(1999),
+         q(0),
+         ],
+      q(der) => [
+         q(2000),
+         q(0),
+         ],
+      q(des) => [
+         q(2001),
+         q(0),
+         ],
+      q(dev) => [
+         q(2002),
+         q(0),
+         ],
+      q(dez) => [
+         q(2003),
+         q(0),
+         ],
+      q(dga) => [
+         q(2004),
+         q(0),
+         ],
+      q(dgb) => [
+         q(2005),
+         q(0),
+         ],
+      q(dgc) => [
+         q(2006),
+         q(0),
+         ],
+      q(dgd) => [
+         q(2007),
+         q(0),
+         ],
+      q(dge) => [
+         q(2008),
+         q(0),
+         ],
+      q(dgg) => [
+         q(2009),
+         q(0),
+         ],
+      q(dgh) => [
+         q(2010),
+         q(0),
+         ],
+      q(dgi) => [
+         q(2011),
+         q(0),
+         ],
+      q(dgk) => [
+         q(2012),
+         q(0),
+         ],
+      q(dgl) => [
+         q(2013),
+         q(0),
+         ],
+      q(dgn) => [
+         q(2014),
+         q(0),
+         ],
+      q(dgo) => [
+         q(2015),
+         q(0),
+         ],
+      q(dgr) => [
+         q(0108),
+         q(0),
+         ],
+      q(dgs) => [
+         q(2016),
+         q(0),
+         ],
+      q(dgt) => [
+         q(2017),
+         q(0),
+         ],
+      q(dgu) => [
+         q(2018),
+         q(0),
+         ],
+      q(dgw) => [
+         q(2019),
+         q(0),
+         ],
+      q(dgx) => [
+         q(2020),
+         q(0),
+         ],
+      q(dgz) => [
+         q(2021),
+         q(0),
+         ],
+      q(dhd) => [
+         q(2022),
+         q(0),
+         ],
+      q(dhg) => [
+         q(2023),
+         q(0),
+         ],
+      q(dhi) => [
+         q(2024),
+         q(0),
+         ],
+      q(dhl) => [
+         q(2025),
+         q(0),
+         ],
+      q(dhm) => [
+         q(2026),
+         q(0),
+         ],
+      q(dhn) => [
+         q(2027),
+         q(0),
+         ],
+      q(dho) => [
+         q(2028),
+         q(0),
+         ],
+      q(dhr) => [
+         q(2029),
+         q(0),
+         ],
+      q(dhs) => [
+         q(2030),
+         q(0),
+         ],
+      q(dhu) => [
+         q(2031),
+         q(0),
+         ],
+      q(dhv) => [
+         q(2032),
+         q(0),
+         ],
+      q(dhw) => [
+         q(2033),
+         q(0),
+         ],
+      q(dhx) => [
+         q(2034),
+         q(0),
+         ],
+      q(dia) => [
+         q(2035),
+         q(0),
+         ],
+      q(dib) => [
+         q(2036),
+         q(0),
+         ],
+      q(dic) => [
+         q(2037),
+         q(0),
+         ],
+      q(did) => [
+         q(2038),
+         q(0),
+         ],
+      q(dif) => [
+         q(2039),
+         q(0),
+         ],
+      q(dig) => [
+         q(2040),
+         q(0),
+         ],
+      q(dih) => [
+         q(2041),
+         q(0),
+         ],
+      q(dii) => [
+         q(2042),
+         q(0),
+         ],
+      q(dij) => [
+         q(2043),
+         q(0),
+         ],
+      q(dik) => [
+         q(2044),
+         q(0),
+         ],
+      q(dil) => [
+         q(2045),
+         q(0),
+         ],
+      q(dim) => [
+         q(2046),
+         q(0),
+         ],
+      q(din) => [
+         q(0109),
+         q(0),
+         ],
+      q(dio) => [
+         q(2047),
+         q(0),
+         ],
+      q(dip) => [
+         q(2048),
+         q(0),
+         ],
+      q(diq) => [
+         q(2049),
+         q(0),
+         ],
+      q(dir) => [
+         q(2050),
+         q(0),
+         ],
+      q(dis) => [
+         q(2051),
+         q(0),
+         ],
+      q(dit) => [
+         q(2052),
+         q(0),
+         ],
+      q(diu) => [
+         q(2053),
+         q(0),
+         ],
+      q(div) => [
+         q(0110),
+         q(0),
+         ],
+      q(diw) => [
+         q(2054),
+         q(0),
+         ],
+      q(dix) => [
+         q(2055),
+         q(0),
+         ],
+      q(diy) => [
+         q(2056),
+         q(0),
+         ],
+      q(diz) => [
+         q(2057),
+         q(0),
+         ],
+      q(dja) => [
+         q(2058),
+         q(0),
+         ],
+      q(djb) => [
+         q(2059),
+         q(0),
+         ],
+      q(djc) => [
+         q(2060),
+         q(0),
+         ],
+      q(djd) => [
+         q(2061),
+         q(0),
+         ],
+      q(dje) => [
+         q(2062),
+         q(0),
+         ],
+      q(djf) => [
+         q(2063),
+         q(0),
+         ],
+      q(dji) => [
+         q(2064),
+         q(0),
+         ],
+      q(djj) => [
+         q(2065),
+         q(0),
+         ],
+      q(djk) => [
+         q(2066),
+         q(0),
+         ],
+      q(djm) => [
+         q(2067),
+         q(0),
+         ],
+      q(djn) => [
+         q(2068),
+         q(0),
+         ],
+      q(djo) => [
+         q(2069),
+         q(0),
+         ],
+      q(djr) => [
+         q(2070),
+         q(0),
+         ],
+      q(dju) => [
+         q(2071),
+         q(0),
+         ],
+      q(djw) => [
+         q(2072),
+         q(0),
+         ],
+      q(dka) => [
+         q(2073),
+         q(0),
+         ],
+      q(dkk) => [
+         q(2074),
+         q(0),
+         ],
+      q(dkr) => [
+         q(2075),
+         q(0),
+         ],
+      q(dks) => [
+         q(2076),
+         q(0),
+         ],
+      q(dkx) => [
+         q(2077),
+         q(0),
+         ],
+      q(dlg) => [
+         q(2078),
+         q(0),
+         ],
+      q(dlk) => [
+         q(2079),
+         q(0),
+         ],
+      q(dlm) => [
+         q(2080),
+         q(0),
+         ],
+      q(dln) => [
+         q(2081),
+         q(0),
+         ],
+      q(dma) => [
+         q(2082),
+         q(0),
+         ],
+      q(dmb) => [
+         q(2083),
+         q(0),
+         ],
+      q(dmc) => [
+         q(2084),
+         q(0),
+         ],
+      q(dmd) => [
+         q(2085),
+         q(0),
+         ],
+      q(dme) => [
+         q(2086),
+         q(0),
+         ],
+      q(dmg) => [
+         q(2087),
+         q(0),
+         ],
+      q(dmk) => [
+         q(2088),
+         q(0),
+         ],
+      q(dml) => [
+         q(2089),
+         q(0),
+         ],
+      q(dmm) => [
+         q(2090),
+         q(0),
+         ],
+      q(dmn) => [
+         q(0500),
+         q(0),
+         ],
+      q(dmo) => [
+         q(2091),
+         q(0),
+         ],
+      q(dmr) => [
+         q(2092),
+         q(0),
+         ],
+      q(dms) => [
+         q(2093),
+         q(0),
+         ],
+      q(dmu) => [
+         q(2094),
+         q(0),
+         ],
+      q(dmv) => [
+         q(2095),
+         q(0),
+         ],
+      q(dmw) => [
+         q(2096),
+         q(0),
+         ],
+      q(dmx) => [
+         q(2097),
+         q(0),
+         ],
+      q(dmy) => [
+         q(2098),
+         q(0),
+         ],
+      q(dna) => [
+         q(2099),
+         q(0),
+         ],
+      q(dnd) => [
+         q(2100),
+         q(0),
+         ],
+      q(dne) => [
+         q(2101),
+         q(0),
+         ],
+      q(dng) => [
+         q(2102),
+         q(0),
+         ],
+      q(dni) => [
+         q(2103),
+         q(0),
+         ],
+      q(dnj) => [
+         q(2104),
+         q(0),
+         ],
+      q(dnk) => [
+         q(2105),
+         q(0),
+         ],
+      q(dnn) => [
+         q(2106),
+         q(0),
+         ],
+      q(dnr) => [
+         q(2107),
+         q(0),
+         ],
+      q(dnt) => [
+         q(2108),
+         q(0),
+         ],
+      q(dnu) => [
+         q(2109),
+         q(0),
+         ],
+      q(dnv) => [
+         q(2110),
+         q(0),
+         ],
+      q(dnw) => [
+         q(2111),
+         q(0),
+         ],
+      q(dny) => [
+         q(2112),
+         q(0),
+         ],
+      q(doa) => [
+         q(2113),
+         q(0),
+         ],
+      q(dob) => [
+         q(2114),
+         q(0),
+         ],
+      q(doc) => [
+         q(2115),
+         q(0),
+         ],
+      q(doe) => [
+         q(2116),
+         q(0),
+         ],
+      q(dof) => [
+         q(2117),
+         q(0),
+         ],
+      q(doh) => [
+         q(2118),
+         q(0),
+         ],
+      q(doi) => [
+         q(0111),
+         q(1),
+         ],
+      q(dok) => [
+         q(2119),
+         q(0),
+         ],
+      q(dol) => [
+         q(2120),
+         q(0),
+         ],
+      q(don) => [
+         q(2121),
+         q(0),
+         ],
+      q(doo) => [
+         q(2122),
+         q(0),
+         ],
+      q(dop) => [
+         q(2123),
+         q(0),
+         ],
+      q(doq) => [
+         q(2124),
+         q(0),
+         ],
+      q(dor) => [
+         q(2125),
+         q(0),
+         ],
+      q(dos) => [
+         q(2126),
+         q(0),
+         ],
+      q(dot) => [
+         q(2127),
+         q(0),
+         ],
+      q(dov) => [
+         q(2128),
+         q(0),
+         ],
+      q(dow) => [
+         q(2129),
+         q(0),
+         ],
+      q(dox) => [
+         q(2130),
+         q(0),
+         ],
+      q(doy) => [
+         q(2131),
+         q(0),
+         ],
+      q(doz) => [
+         q(2132),
+         q(0),
+         ],
+      q(dpp) => [
+         q(2133),
+         q(0),
+         ],
+      q(dra) => [
+         q(0112),
+         q(0),
+         ],
+      q(drb) => [
+         q(2134),
+         q(0),
+         ],
+      q(drc) => [
+         q(2135),
+         q(0),
+         ],
+      q(drd) => [
+         q(2136),
+         q(0),
+         ],
+      q(dre) => [
+         q(2137),
+         q(0),
+         ],
+      q(drg) => [
+         q(2138),
+         q(0),
+         ],
+      q(dri) => [
+         q(2139),
+         q(0),
+         ],
+      q(drl) => [
+         q(2140),
+         q(0),
+         ],
+      q(drn) => [
+         q(2141),
+         q(0),
+         ],
+      q(dro) => [
+         q(2142),
+         q(0),
+         ],
+      q(drq) => [
+         q(2143),
+         q(0),
+         ],
+      q(drr) => [
+         q(2144),
+         q(0),
+         ],
+      q(drs) => [
+         q(2145),
+         q(0),
+         ],
+      q(drt) => [
+         q(2146),
+         q(0),
+         ],
+      q(dru) => [
+         q(2147),
+         q(0),
+         ],
+      q(dry) => [
+         q(2148),
+         q(0),
+         ],
+      q(dsb) => [
+         q(0113),
+         q(0),
+         ],
+      q(dse) => [
+         q(2149),
+         q(0),
+         ],
+      q(dsh) => [
+         q(2150),
+         q(0),
+         ],
+      q(dsi) => [
+         q(2151),
+         q(0),
+         ],
+      q(dsl) => [
+         q(2152),
+         q(0),
+         ],
+      q(dsn) => [
+         q(2153),
+         q(0),
+         ],
+      q(dso) => [
+         q(2154),
+         q(0),
+         ],
+      q(dsq) => [
+         q(2155),
+         q(0),
+         ],
+      q(dta) => [
+         q(2156),
+         q(0),
+         ],
+      q(dtb) => [
+         q(2157),
+         q(0),
+         ],
+      q(dtd) => [
+         q(2158),
+         q(0),
+         ],
+      q(dth) => [
+         q(2159),
+         q(0),
+         ],
+      q(dti) => [
+         q(2160),
+         q(0),
+         ],
+      q(dtk) => [
+         q(2161),
+         q(0),
+         ],
+      q(dtm) => [
+         q(2162),
+         q(0),
+         ],
+      q(dto) => [
+         q(2163),
+         q(0),
+         ],
+      q(dtp) => [
+         q(2164),
+         q(0),
+         ],
+      q(dtr) => [
+         q(2165),
+         q(0),
+         ],
+      q(dts) => [
+         q(2166),
+         q(0),
+         ],
+      q(dtt) => [
+         q(2167),
+         q(0),
+         ],
+      q(dtu) => [
+         q(2168),
+         q(0),
+         ],
+      q(dty) => [
+         q(2169),
+         q(0),
+         ],
+      q(dua) => [
+         q(0114),
+         q(0),
+         ],
+      q(dub) => [
+         q(2170),
+         q(0),
+         ],
+      q(duc) => [
+         q(2171),
+         q(0),
+         ],
+      q(dud) => [
+         q(2172),
+         q(0),
+         ],
+      q(due) => [
+         q(2173),
+         q(0),
+         ],
+      q(duf) => [
+         q(2174),
+         q(0),
+         ],
+      q(dug) => [
+         q(2175),
+         q(0),
+         ],
+      q(duh) => [
+         q(2176),
+         q(0),
+         ],
+      q(dui) => [
+         q(2177),
+         q(0),
+         ],
+      q(duj) => [
+         q(2178),
+         q(0),
+         ],
+      q(duk) => [
+         q(2179),
+         q(0),
+         ],
+      q(dul) => [
+         q(2180),
+         q(0),
+         ],
+      q(dum) => [
+         q(0115),
+         q(1),
+         ],
+      q(dun) => [
+         q(2181),
+         q(0),
+         ],
+      q(duo) => [
+         q(2182),
+         q(0),
+         ],
+      q(dup) => [
+         q(2183),
+         q(0),
+         ],
+      q(duq) => [
+         q(2184),
+         q(0),
+         ],
+      q(dur) => [
+         q(2185),
+         q(0),
+         ],
+      q(dus) => [
+         q(2186),
+         q(0),
+         ],
+      q(dut) => [
+         q(0116),
+         q(0),
+         ],
+      q(duu) => [
+         q(2187),
+         q(0),
+         ],
+      q(duv) => [
+         q(2188),
+         q(0),
+         ],
+      q(duw) => [
+         q(2189),
+         q(0),
+         ],
+      q(dux) => [
+         q(2190),
+         q(0),
+         ],
+      q(duy) => [
+         q(2191),
+         q(0),
+         ],
+      q(duz) => [
+         q(2192),
+         q(0),
+         ],
+      q(dva) => [
+         q(2193),
+         q(0),
+         ],
+      q(dwa) => [
+         q(2194),
+         q(0),
+         ],
+      q(dwr) => [
+         q(2195),
+         q(0),
+         ],
+      q(dws) => [
+         q(2196),
+         q(0),
+         ],
+      q(dww) => [
+         q(2197),
+         q(0),
+         ],
+      q(dya) => [
+         q(2198),
+         q(0),
+         ],
+      q(dyb) => [
+         q(2199),
+         q(0),
+         ],
+      q(dyd) => [
+         q(2200),
+         q(0),
+         ],
+      q(dyg) => [
+         q(2201),
+         q(0),
+         ],
+      q(dyi) => [
+         q(2202),
+         q(0),
+         ],
+      q(dym) => [
+         q(2203),
+         q(0),
+         ],
+      q(dyn) => [
+         q(2204),
+         q(0),
+         ],
+      q(dyo) => [
+         q(2205),
+         q(0),
+         ],
+      q(dyu) => [
+         q(0117),
+         q(0),
+         ],
+      q(dyy) => [
+         q(2206),
+         q(0),
+         ],
+      q(dza) => [
+         q(2207),
+         q(0),
+         ],
+      q(dze) => [
+         q(2208),
+         q(0),
+         ],
+      q(dzg) => [
+         q(2209),
+         q(0),
+         ],
+      q(dzl) => [
+         q(2210),
+         q(0),
+         ],
+      q(dzn) => [
+         q(2211),
+         q(0),
+         ],
+      q(dzo) => [
+         q(0118),
+         q(0),
+         ],
+      q(eaa) => [
+         q(2212),
+         q(0),
+         ],
+      q(ebg) => [
+         q(2213),
+         q(0),
+         ],
+      q(ebk) => [
+         q(2214),
+         q(0),
+         ],
+      q(ebo) => [
+         q(2215),
+         q(0),
+         ],
+      q(ebr) => [
+         q(2216),
+         q(0),
+         ],
+      q(ebu) => [
+         q(2217),
+         q(0),
+         ],
+      q(ecr) => [
+         q(2218),
+         q(0),
+         ],
+      q(ecs) => [
+         q(2219),
+         q(0),
+         ],
+      q(ecy) => [
+         q(2220),
+         q(0),
+         ],
+      q(eee) => [
+         q(2221),
+         q(0),
+         ],
+      q(efa) => [
+         q(2222),
+         q(0),
+         ],
+      q(efe) => [
+         q(2223),
+         q(0),
+         ],
+      q(efi) => [
+         q(0119),
+         q(0),
+         ],
+      q(ega) => [
+         q(2224),
+         q(0),
+         ],
+      q(egl) => [
+         q(2225),
+         q(0),
+         ],
+      q(ego) => [
+         q(2226),
+         q(0),
+         ],
+      q(egx) => [
+         q(0501),
+         q(0),
+         ],
+      q(egy) => [
+         q(0120),
+         q(0),
+         ],
+      q(ehu) => [
+         q(2227),
+         q(0),
+         ],
+      q(eip) => [
+         q(2228),
+         q(0),
+         ],
+      q(eit) => [
+         q(2229),
+         q(0),
+         ],
+      q(eiv) => [
+         q(2230),
+         q(0),
+         ],
+      q(eja) => [
+         q(2231),
+         q(0),
+         ],
+      q(eka) => [
+         q(0121),
+         q(0),
+         ],
+      q(ekc) => [
+         q(2232),
+         q(0),
+         ],
+      q(eke) => [
+         q(2233),
+         q(0),
+         ],
+      q(ekg) => [
+         q(2234),
+         q(0),
+         ],
+      q(eki) => [
+         q(2235),
+         q(0),
+         ],
+      q(ekk) => [
+         q(2236),
+         q(0),
+         ],
+      q(ekl) => [
+         q(2237),
+         q(0),
+         ],
+      q(ekm) => [
+         q(2238),
+         q(0),
+         ],
+      q(eko) => [
+         q(2239),
+         q(0),
+         ],
+      q(ekp) => [
+         q(2240),
+         q(0),
+         ],
+      q(ekr) => [
+         q(2241),
+         q(0),
+         ],
+      q(eky) => [
+         q(2242),
+         q(0),
+         ],
+      q(ele) => [
+         q(2243),
+         q(0),
+         ],
+      q(elh) => [
+         q(2244),
+         q(0),
+         ],
+      q(eli) => [
+         q(2245),
+         q(0),
+         ],
+      q(elk) => [
+         q(2246),
+         q(0),
+         ],
+      q(elm) => [
+         q(2247),
+         q(0),
+         ],
+      q(elo) => [
+         q(2248),
+         q(0),
+         ],
+      q(elu) => [
+         q(2249),
+         q(0),
+         ],
+      q(elx) => [
+         q(0122),
+         q(0),
+         ],
+      q(ema) => [
+         q(2250),
+         q(0),
+         ],
+      q(emb) => [
+         q(2251),
+         q(0),
+         ],
+      q(eme) => [
+         q(2252),
+         q(0),
+         ],
+      q(emg) => [
+         q(2253),
+         q(0),
+         ],
+      q(emi) => [
+         q(2254),
+         q(0),
+         ],
+      q(emk) => [
+         q(2255),
+         q(0),
+         ],
+      q(emm) => [
+         q(2256),
+         q(0),
+         ],
+      q(emn) => [
+         q(2257),
+         q(0),
+         ],
+      q(emp) => [
+         q(2258),
+         q(0),
+         ],
+      q(ems) => [
+         q(2259),
+         q(0),
+         ],
+      q(emu) => [
+         q(2260),
+         q(0),
+         ],
+      q(emw) => [
+         q(2261),
+         q(0),
+         ],
+      q(emx) => [
+         q(2262),
+         q(0),
+         ],
+      q(emy) => [
+         q(2263),
+         q(0),
+         ],
+      q(ena) => [
+         q(2264),
+         q(0),
+         ],
+      q(enb) => [
+         q(2265),
+         q(0),
+         ],
+      q(enc) => [
+         q(2266),
+         q(0),
+         ],
+      q(end) => [
+         q(2267),
+         q(0),
+         ],
+      q(enf) => [
+         q(2268),
+         q(0),
+         ],
+      q(eng) => [
+         q(0123),
+         q(0),
+         ],
+      q(enh) => [
+         q(2269),
+         q(0),
+         ],
+      q(enl) => [
+         q(2270),
+         q(0),
+         ],
+      q(enm) => [
+         q(0124),
+         q(1),
+         ],
+      q(enn) => [
+         q(2271),
+         q(0),
+         ],
+      q(eno) => [
+         q(2272),
+         q(0),
+         ],
+      q(enq) => [
+         q(2273),
+         q(0),
+         ],
+      q(enr) => [
+         q(2274),
+         q(0),
+         ],
+      q(enu) => [
+         q(2275),
+         q(0),
+         ],
+      q(env) => [
+         q(2276),
+         q(0),
+         ],
+      q(enw) => [
+         q(2277),
+         q(0),
+         ],
+      q(enx) => [
+         q(2278),
+         q(0),
+         ],
+      q(eot) => [
+         q(2279),
+         q(0),
+         ],
+      q(epi) => [
+         q(2280),
+         q(0),
+         ],
+      q(epo) => [
+         q(0125),
+         q(0),
+         ],
+      q(era) => [
+         q(2281),
+         q(0),
+         ],
+      q(erg) => [
+         q(2282),
+         q(0),
+         ],
+      q(erh) => [
+         q(2283),
+         q(0),
+         ],
+      q(eri) => [
+         q(2284),
+         q(0),
+         ],
+      q(erk) => [
+         q(2285),
+         q(0),
+         ],
+      q(ero) => [
+         q(2286),
+         q(0),
+         ],
+      q(err) => [
+         q(2287),
+         q(0),
+         ],
+      q(ers) => [
+         q(2288),
+         q(0),
+         ],
+      q(ert) => [
+         q(2289),
+         q(0),
+         ],
+      q(erw) => [
+         q(2290),
+         q(0),
+         ],
+      q(ese) => [
+         q(2291),
+         q(0),
+         ],
+      q(esh) => [
+         q(2292),
+         q(0),
+         ],
+      q(esi) => [
+         q(2293),
+         q(0),
+         ],
+      q(esk) => [
+         q(2294),
+         q(0),
+         ],
+      q(esl) => [
+         q(2295),
+         q(0),
+         ],
+      q(esm) => [
+         q(2296),
+         q(0),
+         ],
+      q(esn) => [
+         q(2297),
+         q(0),
+         ],
+      q(eso) => [
+         q(2298),
+         q(0),
+         ],
+      q(esq) => [
+         q(2299),
+         q(0),
+         ],
+      q(ess) => [
+         q(2300),
+         q(0),
+         ],
+      q(est) => [
+         q(0126),
+         q(0),
+         ],
+      q(esu) => [
+         q(2301),
+         q(0),
+         ],
+      q(esx) => [
+         q(0502),
+         q(0),
+         ],
+      q(esy) => [
+         q(2302),
+         q(0),
+         ],
+      q(etb) => [
+         q(2303),
+         q(0),
+         ],
+      q(etc) => [
+         q(2304),
+         q(0),
+         ],
+      q(eth) => [
+         q(2305),
+         q(0),
+         ],
+      q(etn) => [
+         q(2306),
+         q(0),
+         ],
+      q(eto) => [
+         q(2307),
+         q(0),
+         ],
+      q(etr) => [
+         q(2308),
+         q(0),
+         ],
+      q(ets) => [
+         q(2309),
+         q(0),
+         ],
+      q(ett) => [
+         q(2310),
+         q(0),
+         ],
+      q(etu) => [
+         q(2311),
+         q(0),
+         ],
+      q(etx) => [
+         q(2312),
+         q(0),
+         ],
+      q(etz) => [
+         q(2313),
+         q(0),
+         ],
+      q(euq) => [
+         q(0503),
+         q(0),
+         ],
+      q(eve) => [
+         q(2314),
+         q(0),
+         ],
+      q(evh) => [
+         q(2315),
+         q(0),
+         ],
+      q(evn) => [
+         q(2316),
+         q(0),
+         ],
+      q(ewe) => [
+         q(0127),
+         q(0),
+         ],
+      q(ewo) => [
+         q(0128),
+         q(0),
+         ],
+      q(ext) => [
+         q(2317),
+         q(0),
+         ],
+      q(eya) => [
+         q(2318),
+         q(0),
+         ],
+      q(eyo) => [
+         q(2319),
+         q(0),
+         ],
+      q(eza) => [
+         q(2320),
+         q(0),
+         ],
+      q(eze) => [
+         q(2321),
+         q(0),
+         ],
+      q(faa) => [
+         q(2322),
+         q(0),
+         ],
+      q(fab) => [
+         q(2323),
+         q(0),
+         ],
+      q(fad) => [
+         q(2324),
+         q(0),
+         ],
+      q(faf) => [
+         q(2325),
+         q(0),
+         ],
+      q(fag) => [
+         q(2326),
+         q(0),
+         ],
+      q(fah) => [
+         q(2327),
+         q(0),
+         ],
+      q(fai) => [
+         q(2328),
+         q(0),
+         ],
+      q(faj) => [
+         q(2329),
+         q(0),
+         ],
+      q(fak) => [
+         q(2330),
+         q(0),
+         ],
+      q(fal) => [
+         q(2331),
+         q(0),
+         ],
+      q(fam) => [
+         q(2332),
+         q(0),
+         ],
+      q(fan) => [
+         q(0129),
+         q(1),
+         ],
+      q(fao) => [
+         q(0130),
+         q(0),
+         ],
+      q(fap) => [
+         q(2333),
+         q(0),
+         ],
+      q(far) => [
+         q(2334),
+         q(0),
+         ],
+      q(fat) => [
+         q(0131),
+         q(0),
+         ],
+      q(fau) => [
+         q(2335),
+         q(0),
+         ],
+      q(fax) => [
+         q(2336),
+         q(0),
+         ],
+      q(fay) => [
+         q(2337),
+         q(0),
+         ],
+      q(faz) => [
+         q(2338),
+         q(0),
+         ],
+      q(fbl) => [
+         q(2339),
+         q(0),
+         ],
+      q(fcs) => [
+         q(2340),
+         q(0),
+         ],
+      q(fer) => [
+         q(2341),
+         q(0),
+         ],
+      q(ffi) => [
+         q(2342),
+         q(0),
+         ],
+      q(ffm) => [
+         q(2343),
+         q(0),
+         ],
+      q(fgr) => [
+         q(2344),
+         q(0),
+         ],
+      q(fia) => [
+         q(2345),
+         q(0),
+         ],
+      q(fie) => [
+         q(2346),
+         q(0),
+         ],
+      q(fij) => [
+         q(0132),
+         q(0),
+         ],
+      q(fil) => [
+         q(0133),
+         q(0),
+         ],
+      q(fin) => [
+         q(0134),
+         q(0),
+         ],
+      q(fip) => [
+         q(2347),
+         q(0),
+         ],
+      q(fir) => [
+         q(2348),
+         q(0),
+         ],
+      q(fit) => [
+         q(2349),
+         q(0),
+         ],
+      q(fiu) => [
+         q(0135),
+         q(0),
+         ],
+      q(fiw) => [
+         q(2350),
+         q(0),
+         ],
+      q(fkk) => [
+         q(2351),
+         q(0),
+         ],
+      q(fkv) => [
+         q(2352),
+         q(0),
+         ],
+      q(fla) => [
+         q(2353),
+         q(0),
+         ],
+      q(flh) => [
+         q(2354),
+         q(0),
+         ],
+      q(fli) => [
+         q(2355),
+         q(0),
+         ],
+      q(fll) => [
+         q(2356),
+         q(0),
+         ],
+      q(fln) => [
+         q(2357),
+         q(0),
+         ],
+      q(flr) => [
+         q(2358),
+         q(0),
+         ],
+      q(fly) => [
+         q(2359),
+         q(0),
+         ],
+      q(fmp) => [
+         q(2360),
+         q(0),
+         ],
+      q(fmu) => [
+         q(2361),
+         q(0),
+         ],
+      q(fng) => [
+         q(2362),
+         q(0),
+         ],
+      q(fni) => [
+         q(2363),
+         q(0),
+         ],
+      q(fod) => [
+         q(2364),
+         q(0),
+         ],
+      q(foi) => [
+         q(2365),
+         q(0),
+         ],
+      q(fom) => [
+         q(2366),
+         q(0),
+         ],
+      q(fon) => [
+         q(0136),
+         q(0),
+         ],
+      q(for) => [
+         q(2367),
+         q(0),
+         ],
+      q(fos) => [
+         q(2368),
+         q(0),
+         ],
+      q(fox) => [
+         q(0504),
+         q(0),
+         ],
+      q(fpe) => [
+         q(2369),
+         q(0),
+         ],
+      q(fqs) => [
+         q(2370),
+         q(0),
+         ],
+      q(frc) => [
+         q(2371),
+         q(0),
+         ],
+      q(frd) => [
+         q(2372),
+         q(0),
+         ],
+      q(fre) => [
+         q(0137),
+         q(0),
+         ],
+      q(frk) => [
+         q(2373),
+         q(0),
+         ],
+      q(frm) => [
+         q(0138),
+         q(1),
+         ],
+      q(fro) => [
+         q(0139),
+         q(1),
+         ],
+      q(frp) => [
+         q(2374),
+         q(0),
+         ],
+      q(frq) => [
+         q(2375),
+         q(0),
+         ],
+      q(frr) => [
+         q(0140),
+         q(0),
+         ],
+      q(frs) => [
+         q(0141),
+         q(0),
+         ],
+      q(frt) => [
+         q(2376),
+         q(0),
+         ],
+      q(fry) => [
+         q(0142),
+         q(0),
+         ],
+      q(fse) => [
+         q(2377),
+         q(0),
+         ],
+      q(fsl) => [
+         q(2378),
+         q(0),
+         ],
+      q(fss) => [
+         q(2379),
+         q(0),
+         ],
+      q(fub) => [
+         q(2380),
+         q(0),
+         ],
+      q(fuc) => [
+         q(2381),
+         q(0),
+         ],
+      q(fud) => [
+         q(2382),
+         q(0),
+         ],
+      q(fue) => [
+         q(2383),
+         q(0),
+         ],
+      q(fuf) => [
+         q(2384),
+         q(0),
+         ],
+      q(fuh) => [
+         q(2385),
+         q(0),
+         ],
+      q(fui) => [
+         q(2386),
+         q(0),
+         ],
+      q(fuj) => [
+         q(2387),
+         q(0),
+         ],
+      q(ful) => [
+         q(0143),
+         q(0),
+         ],
+      q(fum) => [
+         q(2388),
+         q(0),
+         ],
+      q(fun) => [
+         q(2389),
+         q(0),
+         ],
+      q(fuq) => [
+         q(2390),
+         q(0),
+         ],
+      q(fur) => [
+         q(0144),
+         q(0),
+         ],
+      q(fut) => [
+         q(2391),
+         q(0),
+         ],
+      q(fuu) => [
+         q(2392),
+         q(0),
+         ],
+      q(fuv) => [
+         q(2393),
+         q(0),
+         ],
+      q(fuy) => [
+         q(2394),
+         q(0),
+         ],
+      q(fvr) => [
+         q(2395),
+         q(0),
+         ],
+      q(fwa) => [
+         q(2396),
+         q(0),
+         ],
+      q(fwe) => [
+         q(2397),
+         q(0),
+         ],
+      q(gaa) => [
+         q(0145),
+         q(0),
+         ],
+      q(gab) => [
+         q(2398),
+         q(0),
+         ],
+      q(gac) => [
+         q(2399),
+         q(0),
+         ],
+      q(gad) => [
+         q(2400),
+         q(0),
+         ],
+      q(gae) => [
+         q(2401),
+         q(0),
+         ],
+      q(gaf) => [
+         q(2402),
+         q(0),
+         ],
+      q(gag) => [
+         q(2403),
+         q(0),
+         ],
+      q(gah) => [
+         q(2404),
+         q(0),
+         ],
+      q(gai) => [
+         q(2405),
+         q(0),
+         ],
+      q(gaj) => [
+         q(2406),
+         q(0),
+         ],
+      q(gak) => [
+         q(2407),
+         q(0),
+         ],
+      q(gal) => [
+         q(2408),
+         q(0),
+         ],
+      q(gam) => [
+         q(2409),
+         q(0),
+         ],
+      q(gan) => [
+         q(2410),
+         q(0),
+         ],
+      q(gao) => [
+         q(2411),
+         q(0),
+         ],
+      q(gap) => [
+         q(2412),
+         q(0),
+         ],
+      q(gaq) => [
+         q(2413),
+         q(0),
+         ],
+      q(gar) => [
+         q(2414),
+         q(0),
+         ],
+      q(gas) => [
+         q(2415),
+         q(0),
+         ],
+      q(gat) => [
+         q(2416),
+         q(0),
+         ],
+      q(gau) => [
+         q(2417),
+         q(0),
+         ],
+      q(gaw) => [
+         q(2418),
+         q(0),
+         ],
+      q(gax) => [
+         q(2419),
+         q(0),
+         ],
+      q(gay) => [
+         q(0146),
+         q(0),
+         ],
+      q(gaz) => [
+         q(2420),
+         q(0),
+         ],
+      q(gba) => [
+         q(0147),
+         q(1),
+         ],
+      q(gbb) => [
+         q(2421),
+         q(0),
+         ],
+      q(gbd) => [
+         q(2422),
+         q(0),
+         ],
+      q(gbe) => [
+         q(2423),
+         q(0),
+         ],
+      q(gbf) => [
+         q(2424),
+         q(0),
+         ],
+      q(gbg) => [
+         q(2425),
+         q(0),
+         ],
+      q(gbh) => [
+         q(2426),
+         q(0),
+         ],
+      q(gbi) => [
+         q(2427),
+         q(0),
+         ],
+      q(gbj) => [
+         q(2428),
+         q(0),
+         ],
+      q(gbk) => [
+         q(2429),
+         q(0),
+         ],
+      q(gbl) => [
+         q(2430),
+         q(0),
+         ],
+      q(gbm) => [
+         q(2431),
+         q(0),
+         ],
+      q(gbn) => [
+         q(2432),
+         q(0),
+         ],
+      q(gbo) => [
+         q(2433),
+         q(0),
+         ],
+      q(gbp) => [
+         q(2434),
+         q(0),
+         ],
+      q(gbq) => [
+         q(2435),
+         q(0),
+         ],
+      q(gbr) => [
+         q(2436),
+         q(0),
+         ],
+      q(gbs) => [
+         q(2437),
+         q(0),
+         ],
+      q(gbu) => [
+         q(2438),
+         q(0),
+         ],
+      q(gbv) => [
+         q(2439),
+         q(0),
+         ],
+      q(gbw) => [
+         q(2440),
+         q(0),
+         ],
+      q(gbx) => [
+         q(2441),
+         q(0),
+         ],
+      q(gby) => [
+         q(2442),
+         q(0),
+         ],
+      q(gbz) => [
+         q(2443),
+         q(0),
+         ],
+      q(gcc) => [
+         q(2444),
+         q(0),
+         ],
+      q(gcd) => [
+         q(2445),
+         q(0),
+         ],
+      q(gce) => [
+         q(2446),
+         q(0),
+         ],
+      q(gcf) => [
+         q(2447),
+         q(0),
+         ],
+      q(gcl) => [
+         q(2448),
+         q(0),
+         ],
+      q(gcn) => [
+         q(2449),
+         q(0),
+         ],
+      q(gcr) => [
+         q(2450),
+         q(0),
+         ],
+      q(gct) => [
+         q(2451),
+         q(0),
+         ],
+      q(gda) => [
+         q(2452),
+         q(0),
+         ],
+      q(gdb) => [
+         q(2453),
+         q(0),
+         ],
+      q(gdc) => [
+         q(2454),
+         q(0),
+         ],
+      q(gdd) => [
+         q(2455),
+         q(0),
+         ],
+      q(gde) => [
+         q(2456),
+         q(0),
+         ],
+      q(gdf) => [
+         q(2457),
+         q(0),
+         ],
+      q(gdg) => [
+         q(2458),
+         q(0),
+         ],
+      q(gdh) => [
+         q(2459),
+         q(0),
+         ],
+      q(gdi) => [
+         q(2460),
+         q(0),
+         ],
+      q(gdj) => [
+         q(2461),
+         q(0),
+         ],
+      q(gdk) => [
+         q(2462),
+         q(0),
+         ],
+      q(gdl) => [
+         q(2463),
+         q(0),
+         ],
+      q(gdm) => [
+         q(2464),
+         q(0),
+         ],
+      q(gdn) => [
+         q(2465),
+         q(0),
+         ],
+      q(gdo) => [
+         q(2466),
+         q(0),
+         ],
+      q(gdq) => [
+         q(2467),
+         q(0),
+         ],
+      q(gdr) => [
+         q(2468),
+         q(0),
+         ],
+      q(gds) => [
+         q(2469),
+         q(0),
+         ],
+      q(gdt) => [
+         q(2470),
+         q(0),
+         ],
+      q(gdu) => [
+         q(2471),
+         q(0),
+         ],
+      q(gdx) => [
+         q(2472),
+         q(0),
+         ],
+      q(gea) => [
+         q(2473),
+         q(0),
+         ],
+      q(geb) => [
+         q(2474),
+         q(0),
+         ],
+      q(gec) => [
+         q(2475),
+         q(0),
+         ],
+      q(ged) => [
+         q(2476),
+         q(0),
+         ],
+      q(geg) => [
+         q(2477),
+         q(0),
+         ],
+      q(geh) => [
+         q(2478),
+         q(0),
+         ],
+      q(gei) => [
+         q(2479),
+         q(0),
+         ],
+      q(gej) => [
+         q(2480),
+         q(0),
+         ],
+      q(gek) => [
+         q(2481),
+         q(0),
+         ],
+      q(gel) => [
+         q(2482),
+         q(0),
+         ],
+      q(gem) => [
+         q(0148),
+         q(0),
+         ],
+      q(geo) => [
+         q(0149),
+         q(0),
+         ],
+      q(geq) => [
+         q(2483),
+         q(0),
+         ],
+      q(ger) => [
+         q(0150),
+         q(0),
+         ],
+      q(ges) => [
+         q(2484),
+         q(0),
+         ],
+      q(gev) => [
+         q(2485),
+         q(0),
+         ],
+      q(gew) => [
+         q(2486),
+         q(0),
+         ],
+      q(gex) => [
+         q(2487),
+         q(0),
+         ],
+      q(gey) => [
+         q(2488),
+         q(0),
+         ],
+      q(gez) => [
+         q(0151),
+         q(0),
+         ],
+      q(gfk) => [
+         q(2489),
+         q(0),
+         ],
+      q(gft) => [
+         q(2490),
+         q(0),
+         ],
+      q(gga) => [
+         q(2491),
+         q(0),
+         ],
+      q(ggb) => [
+         q(2492),
+         q(0),
+         ],
+      q(ggd) => [
+         q(2493),
+         q(0),
+         ],
+      q(gge) => [
+         q(2494),
+         q(0),
+         ],
+      q(ggg) => [
+         q(2495),
+         q(0),
+         ],
+      q(ggk) => [
+         q(2496),
+         q(0),
+         ],
+      q(ggl) => [
+         q(2497),
+         q(0),
+         ],
+      q(ggn) => [
+         q(2498),
+         q(0),
+         ],
+      q(ggo) => [
+         q(2499),
+         q(0),
+         ],
+      q(ggt) => [
+         q(2500),
+         q(0),
+         ],
+      q(ggu) => [
+         q(2501),
+         q(0),
+         ],
+      q(ggw) => [
+         q(2502),
+         q(0),
+         ],
+      q(gha) => [
+         q(2503),
+         q(0),
+         ],
+      q(ghc) => [
+         q(2504),
+         q(0),
+         ],
+      q(ghe) => [
+         q(2505),
+         q(0),
+         ],
+      q(ghh) => [
+         q(2506),
+         q(0),
+         ],
+      q(ghk) => [
+         q(2507),
+         q(0),
+         ],
+      q(ghl) => [
+         q(2508),
+         q(0),
+         ],
+      q(ghn) => [
+         q(2509),
+         q(0),
+         ],
+      q(gho) => [
+         q(2510),
+         q(0),
+         ],
+      q(ghr) => [
+         q(2511),
+         q(0),
+         ],
+      q(ghs) => [
+         q(2512),
+         q(0),
+         ],
+      q(ght) => [
+         q(2513),
+         q(0),
+         ],
+      q(gia) => [
+         q(2514),
+         q(0),
+         ],
+      q(gib) => [
+         q(2515),
+         q(0),
+         ],
+      q(gic) => [
+         q(2516),
+         q(0),
+         ],
+      q(gid) => [
+         q(2517),
+         q(0),
+         ],
+      q(gig) => [
+         q(2518),
+         q(0),
+         ],
+      q(gih) => [
+         q(2519),
+         q(0),
+         ],
+      q(gil) => [
+         q(0152),
+         q(0),
+         ],
+      q(gim) => [
+         q(2520),
+         q(0),
+         ],
+      q(gin) => [
+         q(2521),
+         q(0),
+         ],
+      q(gip) => [
+         q(2522),
+         q(0),
+         ],
+      q(giq) => [
+         q(2523),
+         q(0),
+         ],
+      q(gir) => [
+         q(2524),
+         q(0),
+         ],
+      q(gis) => [
+         q(2525),
+         q(0),
+         ],
+      q(git) => [
+         q(2526),
+         q(0),
+         ],
+      q(giu) => [
+         q(2527),
+         q(0),
+         ],
+      q(giw) => [
+         q(2528),
+         q(0),
+         ],
+      q(gix) => [
+         q(2529),
+         q(0),
+         ],
+      q(giy) => [
+         q(2530),
+         q(0),
+         ],
+      q(giz) => [
+         q(2531),
+         q(0),
+         ],
+      q(gji) => [
+         q(2532),
+         q(0),
+         ],
+      q(gjk) => [
+         q(2533),
+         q(0),
+         ],
+      q(gjm) => [
+         q(2534),
+         q(0),
+         ],
+      q(gjn) => [
+         q(2535),
+         q(0),
+         ],
+      q(gju) => [
+         q(2536),
+         q(0),
+         ],
+      q(gka) => [
+         q(2537),
+         q(0),
+         ],
+      q(gke) => [
+         q(2538),
+         q(0),
+         ],
+      q(gkn) => [
+         q(2539),
+         q(0),
+         ],
+      q(gko) => [
+         q(2540),
+         q(0),
+         ],
+      q(gkp) => [
+         q(2541),
+         q(0),
+         ],
+      q(gku) => [
+         q(2542),
+         q(0),
+         ],
+      q(gla) => [
+         q(0153),
+         q(0),
+         ],
+      q(glc) => [
+         q(2543),
+         q(0),
+         ],
+      q(gld) => [
+         q(2544),
+         q(0),
+         ],
+      q(gle) => [
+         q(0154),
+         q(0),
+         ],
+      q(glg) => [
+         q(0155),
+         q(0),
+         ],
+      q(glh) => [
+         q(2545),
+         q(0),
+         ],
+      q(gli) => [
+         q(2546),
+         q(0),
+         ],
+      q(glj) => [
+         q(2547),
+         q(0),
+         ],
+      q(glk) => [
+         q(2548),
+         q(0),
+         ],
+      q(gll) => [
+         q(2549),
+         q(0),
+         ],
+      q(glo) => [
+         q(2550),
+         q(0),
+         ],
+      q(glr) => [
+         q(2551),
+         q(0),
+         ],
+      q(glu) => [
+         q(2552),
+         q(0),
+         ],
+      q(glv) => [
+         q(0156),
+         q(0),
+         ],
+      q(glw) => [
+         q(2553),
+         q(0),
+         ],
+      q(gly) => [
+         q(2554),
+         q(0),
+         ],
+      q(gma) => [
+         q(2555),
+         q(0),
+         ],
+      q(gmb) => [
+         q(2556),
+         q(0),
+         ],
+      q(gmd) => [
+         q(2557),
+         q(0),
+         ],
+      q(gme) => [
+         q(0505),
+         q(0),
+         ],
+      q(gmg) => [
+         q(2558),
+         q(0),
+         ],
+      q(gmh) => [
+         q(0157),
+         q(1),
+         ],
+      q(gml) => [
+         q(2559),
+         q(0),
+         ],
+      q(gmm) => [
+         q(2560),
+         q(0),
+         ],
+      q(gmn) => [
+         q(2561),
+         q(0),
+         ],
+      q(gmq) => [
+         q(0506),
+         q(0),
+         ],
+      q(gmu) => [
+         q(2562),
+         q(0),
+         ],
+      q(gmv) => [
+         q(2563),
+         q(0),
+         ],
+      q(gmw) => [
+         q(0507),
+         q(0),
+         ],
+      q(gmx) => [
+         q(2564),
+         q(0),
+         ],
+      q(gmy) => [
+         q(2565),
+         q(0),
+         ],
+      q(gmz) => [
+         q(2566),
+         q(0),
+         ],
+      q(gna) => [
+         q(2567),
+         q(0),
+         ],
+      q(gnb) => [
+         q(2568),
+         q(0),
+         ],
+      q(gnc) => [
+         q(2569),
+         q(0),
+         ],
+      q(gnd) => [
+         q(2570),
+         q(0),
+         ],
+      q(gne) => [
+         q(2571),
+         q(0),
+         ],
+      q(gng) => [
+         q(2572),
+         q(0),
+         ],
+      q(gnh) => [
+         q(2573),
+         q(0),
+         ],
+      q(gni) => [
+         q(2574),
+         q(0),
+         ],
+      q(gnk) => [
+         q(2575),
+         q(0),
+         ],
+      q(gnl) => [
+         q(2576),
+         q(0),
+         ],
+      q(gnm) => [
+         q(2577),
+         q(0),
+         ],
+      q(gnn) => [
+         q(2578),
+         q(0),
+         ],
+      q(gno) => [
+         q(2579),
+         q(0),
+         ],
+      q(gnq) => [
+         q(2575),
+         q(1),
+         ],
+      q(gnr) => [
+         q(2580),
+         q(0),
+         ],
+      q(gnt) => [
+         q(2581),
+         q(0),
+         ],
+      q(gnu) => [
+         q(2582),
+         q(0),
+         ],
+      q(gnw) => [
+         q(2583),
+         q(0),
+         ],
+      q(gnz) => [
+         q(2584),
+         q(0),
+         ],
+      q(goa) => [
+         q(2585),
+         q(0),
+         ],
+      q(gob) => [
+         q(2586),
+         q(0),
+         ],
+      q(goc) => [
+         q(2587),
+         q(0),
+         ],
+      q(god) => [
+         q(2588),
+         q(0),
+         ],
+      q(goe) => [
+         q(2589),
+         q(0),
+         ],
+      q(gof) => [
+         q(2590),
+         q(0),
+         ],
+      q(gog) => [
+         q(2591),
+         q(0),
+         ],
+      q(goh) => [
+         q(0158),
+         q(1),
+         ],
+      q(goi) => [
+         q(2592),
+         q(0),
+         ],
+      q(goj) => [
+         q(2593),
+         q(0),
+         ],
+      q(gok) => [
+         q(2594),
+         q(0),
+         ],
+      q(gol) => [
+         q(2595),
+         q(0),
+         ],
+      q(gom) => [
+         q(2596),
+         q(0),
+         ],
+      q(gon) => [
+         q(0159),
+         q(0),
+         ],
+      q(goo) => [
+         q(2597),
+         q(0),
+         ],
+      q(gop) => [
+         q(2598),
+         q(0),
+         ],
+      q(goq) => [
+         q(2599),
+         q(0),
+         ],
+      q(gor) => [
+         q(0160),
+         q(0),
+         ],
+      q(gos) => [
+         q(2600),
+         q(0),
+         ],
+      q(got) => [
+         q(0161),
+         q(0),
+         ],
+      q(gou) => [
+         q(2601),
+         q(0),
+         ],
+      q(gow) => [
+         q(2602),
+         q(0),
+         ],
+      q(gox) => [
+         q(2603),
+         q(0),
+         ],
+      q(goy) => [
+         q(2604),
+         q(0),
+         ],
+      q(goz) => [
+         q(2605),
+         q(0),
+         ],
+      q(gpa) => [
+         q(2606),
+         q(0),
+         ],
+      q(gpe) => [
+         q(2607),
+         q(0),
+         ],
+      q(gpn) => [
+         q(2608),
+         q(0),
+         ],
+      q(gqa) => [
+         q(2609),
+         q(0),
+         ],
+      q(gqi) => [
+         q(2610),
+         q(0),
+         ],
+      q(gqn) => [
+         q(2611),
+         q(0),
+         ],
+      q(gqr) => [
+         q(2612),
+         q(0),
+         ],
+      q(gqu) => [
+         q(2613),
+         q(0),
+         ],
+      q(gra) => [
+         q(2614),
+         q(0),
+         ],
+      q(grb) => [
+         q(0162),
+         q(0),
+         ],
+      q(grc) => [
+         q(0163),
+         q(1),
+         ],
+      q(grd) => [
+         q(2615),
+         q(0),
+         ],
+      q(gre) => [
+         q(0164),
+         q(0),
+         ],
+      q(grg) => [
+         q(2616),
+         q(0),
+         ],
+      q(grh) => [
+         q(2617),
+         q(0),
+         ],
+      q(gri) => [
+         q(2618),
+         q(0),
+         ],
+      q(grj) => [
+         q(2619),
+         q(0),
+         ],
+      q(grk) => [
+         q(0508),
+         q(0),
+         ],
+      q(grm) => [
+         q(2620),
+         q(0),
+         ],
+      q(grn) => [
+         q(0165),
+         q(0),
+         ],
+      q(gro) => [
+         q(2621),
+         q(0),
+         ],
+      q(grq) => [
+         q(2622),
+         q(0),
+         ],
+      q(grr) => [
+         q(2623),
+         q(0),
+         ],
+      q(grs) => [
+         q(2624),
+         q(0),
+         ],
+      q(grt) => [
+         q(2625),
+         q(0),
+         ],
+      q(gru) => [
+         q(2626),
+         q(0),
+         ],
+      q(grv) => [
+         q(2627),
+         q(0),
+         ],
+      q(grw) => [
+         q(2628),
+         q(0),
+         ],
+      q(grx) => [
+         q(2629),
+         q(0),
+         ],
+      q(gry) => [
+         q(2630),
+         q(0),
+         ],
+      q(grz) => [
+         q(2631),
+         q(0),
+         ],
+      q(gse) => [
+         q(2632),
+         q(0),
+         ],
+      q(gsg) => [
+         q(2633),
+         q(0),
+         ],
+      q(gsl) => [
+         q(2634),
+         q(0),
+         ],
+      q(gsm) => [
+         q(2635),
+         q(0),
+         ],
+      q(gsn) => [
+         q(2636),
+         q(0),
+         ],
+      q(gso) => [
+         q(2637),
+         q(0),
+         ],
+      q(gsp) => [
+         q(2638),
+         q(0),
+         ],
+      q(gss) => [
+         q(2639),
+         q(0),
+         ],
+      q(gsw) => [
+         q(0166),
+         q(0),
+         ],
+      q(gta) => [
+         q(2640),
+         q(0),
+         ],
+      q(gtu) => [
+         q(2641),
+         q(0),
+         ],
+      q(gua) => [
+         q(2642),
+         q(0),
+         ],
+      q(gub) => [
+         q(2643),
+         q(0),
+         ],
+      q(guc) => [
+         q(2644),
+         q(0),
+         ],
+      q(gud) => [
+         q(2645),
+         q(0),
+         ],
+      q(gue) => [
+         q(2646),
+         q(0),
+         ],
+      q(guf) => [
+         q(2647),
+         q(0),
+         ],
+      q(gug) => [
+         q(2648),
+         q(0),
+         ],
+      q(guh) => [
+         q(2649),
+         q(0),
+         ],
+      q(gui) => [
+         q(2650),
+         q(0),
+         ],
+      q(guj) => [
+         q(0167),
+         q(0),
+         ],
+      q(guk) => [
+         q(2651),
+         q(0),
+         ],
+      q(gul) => [
+         q(2652),
+         q(0),
+         ],
+      q(gum) => [
+         q(2653),
+         q(0),
+         ],
+      q(gun) => [
+         q(2654),
+         q(0),
+         ],
+      q(guo) => [
+         q(2655),
+         q(0),
+         ],
+      q(gup) => [
+         q(2656),
+         q(0),
+         ],
+      q(guq) => [
+         q(2657),
+         q(0),
+         ],
+      q(gur) => [
+         q(2658),
+         q(0),
+         ],
+      q(gus) => [
+         q(2659),
+         q(0),
+         ],
+      q(gut) => [
+         q(2660),
+         q(0),
+         ],
+      q(guu) => [
+         q(2661),
+         q(0),
+         ],
+      q(guv) => [
+         q(2662),
+         q(0),
+         ],
+      q(guw) => [
+         q(2663),
+         q(0),
+         ],
+      q(gux) => [
+         q(2664),
+         q(0),
+         ],
+      q(guz) => [
+         q(2665),
+         q(0),
+         ],
+      q(gva) => [
+         q(2666),
+         q(0),
+         ],
+      q(gvc) => [
+         q(2667),
+         q(0),
+         ],
+      q(gve) => [
+         q(2668),
+         q(0),
+         ],
+      q(gvf) => [
+         q(2669),
+         q(0),
+         ],
+      q(gvj) => [
+         q(2670),
+         q(0),
+         ],
+      q(gvl) => [
+         q(2671),
+         q(0),
+         ],
+      q(gvm) => [
+         q(2672),
+         q(0),
+         ],
+      q(gvn) => [
+         q(2673),
+         q(0),
+         ],
+      q(gvo) => [
+         q(2674),
+         q(0),
+         ],
+      q(gvp) => [
+         q(2675),
+         q(0),
+         ],
+      q(gvr) => [
+         q(2676),
+         q(0),
+         ],
+      q(gvs) => [
+         q(2677),
+         q(0),
+         ],
+      q(gvy) => [
+         q(2678),
+         q(0),
+         ],
+      q(gwa) => [
+         q(2679),
+         q(0),
+         ],
+      q(gwb) => [
+         q(2680),
+         q(0),
+         ],
+      q(gwc) => [
+         q(2681),
+         q(0),
+         ],
+      q(gwd) => [
+         q(2682),
+         q(0),
+         ],
+      q(gwe) => [
+         q(2683),
+         q(0),
+         ],
+      q(gwf) => [
+         q(2684),
+         q(0),
+         ],
+      q(gwg) => [
+         q(2685),
+         q(0),
+         ],
+      q(gwi) => [
+         q(0168),
+         q(0),
+         ],
+      q(gwj) => [
+         q(2686),
+         q(0),
+         ],
+      q(gwm) => [
+         q(2687),
+         q(0),
+         ],
+      q(gwn) => [
+         q(2688),
+         q(0),
+         ],
+      q(gwr) => [
+         q(2689),
+         q(0),
+         ],
+      q(gwt) => [
+         q(2690),
+         q(0),
+         ],
+      q(gwu) => [
+         q(2691),
+         q(0),
+         ],
+      q(gww) => [
+         q(2692),
+         q(0),
+         ],
+      q(gwx) => [
+         q(2693),
+         q(0),
+         ],
+      q(gxx) => [
+         q(2694),
+         q(0),
+         ],
+      q(gya) => [
+         q(2695),
+         q(0),
+         ],
+      q(gyb) => [
+         q(2696),
+         q(0),
+         ],
+      q(gyd) => [
+         q(2697),
+         q(0),
+         ],
+      q(gye) => [
+         q(2698),
+         q(0),
+         ],
+      q(gyf) => [
+         q(2699),
+         q(0),
+         ],
+      q(gyg) => [
+         q(2700),
+         q(0),
+         ],
+      q(gyi) => [
+         q(2701),
+         q(0),
+         ],
+      q(gyl) => [
+         q(2702),
+         q(0),
+         ],
+      q(gym) => [
+         q(2703),
+         q(0),
+         ],
+      q(gyn) => [
+         q(2704),
+         q(0),
+         ],
+      q(gyr) => [
+         q(2705),
+         q(0),
+         ],
+      q(gyy) => [
+         q(2706),
+         q(0),
+         ],
+      q(gza) => [
+         q(2707),
+         q(0),
+         ],
+      q(gzi) => [
+         q(2708),
+         q(0),
+         ],
+      q(gzn) => [
+         q(2709),
+         q(0),
+         ],
+      q(haa) => [
+         q(2710),
+         q(0),
+         ],
+      q(hab) => [
+         q(2711),
+         q(0),
+         ],
+      q(hac) => [
+         q(2712),
+         q(0),
+         ],
+      q(had) => [
+         q(2713),
+         q(0),
+         ],
+      q(hae) => [
+         q(2714),
+         q(0),
+         ],
+      q(haf) => [
+         q(2715),
+         q(0),
+         ],
+      q(hag) => [
+         q(2716),
+         q(0),
+         ],
+      q(hah) => [
+         q(2717),
+         q(0),
+         ],
+      q(hai) => [
+         q(0169),
+         q(0),
+         ],
+      q(haj) => [
+         q(2718),
+         q(0),
+         ],
+      q(hak) => [
+         q(2719),
+         q(0),
+         ],
+      q(hal) => [
+         q(2720),
+         q(0),
+         ],
+      q(ham) => [
+         q(2721),
+         q(0),
+         ],
+      q(han) => [
+         q(2722),
+         q(0),
+         ],
+      q(hao) => [
+         q(2723),
+         q(0),
+         ],
+      q(hap) => [
+         q(2724),
+         q(0),
+         ],
+      q(haq) => [
+         q(2725),
+         q(0),
+         ],
+      q(har) => [
+         q(2726),
+         q(0),
+         ],
+      q(has) => [
+         q(2727),
+         q(0),
+         ],
+      q(hat) => [
+         q(0170),
+         q(0),
+         ],
+      q(hau) => [
+         q(0171),
+         q(0),
+         ],
+      q(hav) => [
+         q(2728),
+         q(0),
+         ],
+      q(haw) => [
+         q(0172),
+         q(0),
+         ],
+      q(hax) => [
+         q(2729),
+         q(0),
+         ],
+      q(hay) => [
+         q(2730),
+         q(0),
+         ],
+      q(haz) => [
+         q(2731),
+         q(0),
+         ],
+      q(hba) => [
+         q(2732),
+         q(0),
+         ],
+      q(hbb) => [
+         q(2733),
+         q(0),
+         ],
+      q(hbn) => [
+         q(2734),
+         q(0),
+         ],
+      q(hbo) => [
+         q(2735),
+         q(0),
+         ],
+      q(hbu) => [
+         q(2736),
+         q(0),
+         ],
+      q(hca) => [
+         q(2737),
+         q(0),
+         ],
+      q(hch) => [
+         q(2738),
+         q(0),
+         ],
+      q(hdn) => [
+         q(2739),
+         q(0),
+         ],
+      q(hds) => [
+         q(2740),
+         q(0),
+         ],
+      q(hdy) => [
+         q(2741),
+         q(0),
+         ],
+      q(hea) => [
+         q(2742),
+         q(0),
+         ],
+      q(heb) => [
+         q(0173),
+         q(0),
+         ],
+      q(hed) => [
+         q(2743),
+         q(0),
+         ],
+      q(heg) => [
+         q(2744),
+         q(0),
+         ],
+      q(heh) => [
+         q(2745),
+         q(0),
+         ],
+      q(hei) => [
+         q(2746),
+         q(0),
+         ],
+      q(hem) => [
+         q(2747),
+         q(0),
+         ],
+      q(her) => [
+         q(0174),
+         q(0),
+         ],
+      q(hgm) => [
+         q(2748),
+         q(0),
+         ],
+      q(hgw) => [
+         q(2749),
+         q(0),
+         ],
+      q(hhi) => [
+         q(2750),
+         q(0),
+         ],
+      q(hhr) => [
+         q(2751),
+         q(0),
+         ],
+      q(hhy) => [
+         q(2752),
+         q(0),
+         ],
+      q(hia) => [
+         q(2753),
+         q(0),
+         ],
+      q(hib) => [
+         q(2754),
+         q(0),
+         ],
+      q(hid) => [
+         q(2755),
+         q(0),
+         ],
+      q(hif) => [
+         q(2756),
+         q(0),
+         ],
+      q(hig) => [
+         q(2757),
+         q(0),
+         ],
+      q(hih) => [
+         q(2758),
+         q(0),
+         ],
+      q(hii) => [
+         q(2759),
+         q(0),
+         ],
+      q(hij) => [
+         q(2760),
+         q(0),
+         ],
+      q(hik) => [
+         q(2761),
+         q(0),
+         ],
+      q(hil) => [
+         q(0175),
+         q(0),
+         ],
+      q(him) => [
+         q(0176),
+         q(0),
+         ],
+      q(hin) => [
+         q(0177),
+         q(0),
+         ],
+      q(hio) => [
+         q(2762),
+         q(0),
+         ],
+      q(hir) => [
+         q(2763),
+         q(0),
+         ],
+      q(hit) => [
+         q(0178),
+         q(0),
+         ],
+      q(hiw) => [
+         q(2764),
+         q(0),
+         ],
+      q(hix) => [
+         q(2765),
+         q(0),
+         ],
+      q(hji) => [
+         q(2766),
+         q(0),
+         ],
+      q(hka) => [
+         q(2767),
+         q(0),
+         ],
+      q(hke) => [
+         q(2768),
+         q(0),
+         ],
+      q(hkk) => [
+         q(2769),
+         q(0),
+         ],
+      q(hks) => [
+         q(2770),
+         q(0),
+         ],
+      q(hla) => [
+         q(2771),
+         q(0),
+         ],
+      q(hlb) => [
+         q(2772),
+         q(0),
+         ],
+      q(hld) => [
+         q(2773),
+         q(0),
+         ],
+      q(hle) => [
+         q(2774),
+         q(0),
+         ],
+      q(hlt) => [
+         q(2775),
+         q(0),
+         ],
+      q(hlu) => [
+         q(2776),
+         q(0),
+         ],
+      q(hma) => [
+         q(2777),
+         q(0),
+         ],
+      q(hmb) => [
+         q(2778),
+         q(0),
+         ],
+      q(hmc) => [
+         q(2779),
+         q(0),
+         ],
+      q(hmd) => [
+         q(2780),
+         q(0),
+         ],
+      q(hme) => [
+         q(2781),
+         q(0),
+         ],
+      q(hmf) => [
+         q(2782),
+         q(0),
+         ],
+      q(hmg) => [
+         q(2783),
+         q(0),
+         ],
+      q(hmh) => [
+         q(2784),
+         q(0),
+         ],
+      q(hmi) => [
+         q(2785),
+         q(0),
+         ],
+      q(hmj) => [
+         q(2786),
+         q(0),
+         ],
+      q(hmk) => [
+         q(2787),
+         q(0),
+         ],
+      q(hml) => [
+         q(2788),
+         q(0),
+         ],
+      q(hmm) => [
+         q(2789),
+         q(0),
+         ],
+      q(hmn) => [
+         q(0179),
+         q(0),
+         ],
+      q(hmo) => [
+         q(0180),
+         q(0),
+         ],
+      q(hmp) => [
+         q(2790),
+         q(0),
+         ],
+      q(hmq) => [
+         q(2791),
+         q(0),
+         ],
+      q(hmr) => [
+         q(2792),
+         q(0),
+         ],
+      q(hms) => [
+         q(2793),
+         q(0),
+         ],
+      q(hmt) => [
+         q(2794),
+         q(0),
+         ],
+      q(hmu) => [
+         q(2795),
+         q(0),
+         ],
+      q(hmv) => [
+         q(2796),
+         q(0),
+         ],
+      q(hmw) => [
+         q(2797),
+         q(0),
+         ],
+      q(hmx) => [
+         q(0509),
+         q(0),
+         ],
+      q(hmy) => [
+         q(2798),
+         q(0),
+         ],
+      q(hmz) => [
+         q(2799),
+         q(0),
+         ],
+      q(hna) => [
+         q(2800),
+         q(0),
+         ],
+      q(hnd) => [
+         q(2801),
+         q(0),
+         ],
+      q(hne) => [
+         q(2802),
+         q(0),
+         ],
+      q(hnh) => [
+         q(2803),
+         q(0),
+         ],
+      q(hni) => [
+         q(2804),
+         q(0),
+         ],
+      q(hnj) => [
+         q(2805),
+         q(0),
+         ],
+      q(hnn) => [
+         q(2806),
+         q(0),
+         ],
+      q(hno) => [
+         q(2807),
+         q(0),
+         ],
+      q(hns) => [
+         q(2808),
+         q(0),
+         ],
+      q(hnu) => [
+         q(2809),
+         q(0),
+         ],
+      q(hoa) => [
+         q(2810),
+         q(0),
+         ],
+      q(hob) => [
+         q(2811),
+         q(0),
+         ],
+      q(hoc) => [
+         q(2812),
+         q(0),
+         ],
+      q(hod) => [
+         q(2813),
+         q(0),
+         ],
+      q(hoe) => [
+         q(2814),
+         q(0),
+         ],
+      q(hoh) => [
+         q(2815),
+         q(0),
+         ],
+      q(hoi) => [
+         q(2816),
+         q(0),
+         ],
+      q(hoj) => [
+         q(2817),
+         q(0),
+         ],
+      q(hok) => [
+         q(0510),
+         q(0),
+         ],
+      q(hol) => [
+         q(2818),
+         q(0),
+         ],
+      q(hom) => [
+         q(2819),
+         q(0),
+         ],
+      q(hoo) => [
+         q(2820),
+         q(0),
+         ],
+      q(hop) => [
+         q(2821),
+         q(0),
+         ],
+      q(hor) => [
+         q(2822),
+         q(0),
+         ],
+      q(hos) => [
+         q(2823),
+         q(0),
+         ],
+      q(hot) => [
+         q(2824),
+         q(0),
+         ],
+      q(hov) => [
+         q(2825),
+         q(0),
+         ],
+      q(how) => [
+         q(2826),
+         q(0),
+         ],
+      q(hoy) => [
+         q(2827),
+         q(0),
+         ],
+      q(hoz) => [
+         q(2828),
+         q(0),
+         ],
+      q(hpo) => [
+         q(2829),
+         q(0),
+         ],
+      q(hps) => [
+         q(2830),
+         q(0),
+         ],
+      q(hra) => [
+         q(2831),
+         q(0),
+         ],
+      q(hrc) => [
+         q(2832),
+         q(0),
+         ],
+      q(hre) => [
+         q(2833),
+         q(0),
+         ],
+      q(hrk) => [
+         q(2834),
+         q(0),
+         ],
+      q(hrm) => [
+         q(2835),
+         q(0),
+         ],
+      q(hro) => [
+         q(2836),
+         q(0),
+         ],
+      q(hrp) => [
+         q(2837),
+         q(0),
+         ],
+      q(hrt) => [
+         q(2838),
+         q(0),
+         ],
+      q(hru) => [
+         q(2839),
+         q(0),
+         ],
+      q(hrv) => [
+         q(0181),
+         q(0),
+         ],
+      q(hrw) => [
+         q(2840),
+         q(0),
+         ],
+      q(hrx) => [
+         q(2841),
+         q(0),
+         ],
+      q(hrz) => [
+         q(2842),
+         q(0),
+         ],
+      q(hsb) => [
+         q(0182),
+         q(0),
+         ],
+      q(hsh) => [
+         q(2843),
+         q(0),
+         ],
+      q(hsl) => [
+         q(2844),
+         q(0),
+         ],
+      q(hsn) => [
+         q(2845),
+         q(0),
+         ],
+      q(hss) => [
+         q(2846),
+         q(0),
+         ],
+      q(hti) => [
+         q(2847),
+         q(0),
+         ],
+      q(hto) => [
+         q(2848),
+         q(0),
+         ],
+      q(hts) => [
+         q(2849),
+         q(0),
+         ],
+      q(htu) => [
+         q(2850),
+         q(0),
+         ],
+      q(htx) => [
+         q(2851),
+         q(0),
+         ],
+      q(hub) => [
+         q(2852),
+         q(0),
+         ],
+      q(huc) => [
+         q(2853),
+         q(0),
+         ],
+      q(hud) => [
+         q(2854),
+         q(0),
+         ],
+      q(hue) => [
+         q(2855),
+         q(0),
+         ],
+      q(huf) => [
+         q(2856),
+         q(0),
+         ],
+      q(hug) => [
+         q(2857),
+         q(0),
+         ],
+      q(huh) => [
+         q(2858),
+         q(0),
+         ],
+      q(hui) => [
+         q(2859),
+         q(0),
+         ],
+      q(huj) => [
+         q(2860),
+         q(0),
+         ],
+      q(huk) => [
+         q(2861),
+         q(0),
+         ],
+      q(hul) => [
+         q(2862),
+         q(0),
+         ],
+      q(hum) => [
+         q(2863),
+         q(0),
+         ],
+      q(hun) => [
+         q(0183),
+         q(0),
+         ],
+      q(huo) => [
+         q(2864),
+         q(0),
+         ],
+      q(hup) => [
+         q(0184),
+         q(0),
+         ],
+      q(huq) => [
+         q(2865),
+         q(0),
+         ],
+      q(hur) => [
+         q(2866),
+         q(0),
+         ],
+      q(hus) => [
+         q(2867),
+         q(0),
+         ],
+      q(hut) => [
+         q(2868),
+         q(0),
+         ],
+      q(huu) => [
+         q(2869),
+         q(0),
+         ],
+      q(huv) => [
+         q(2870),
+         q(0),
+         ],
+      q(huw) => [
+         q(2871),
+         q(0),
+         ],
+      q(hux) => [
+         q(2872),
+         q(0),
+         ],
+      q(huy) => [
+         q(2873),
+         q(0),
+         ],
+      q(huz) => [
+         q(2874),
+         q(0),
+         ],
+      q(hvc) => [
+         q(2875),
+         q(0),
+         ],
+      q(hve) => [
+         q(2876),
+         q(0),
+         ],
+      q(hvk) => [
+         q(2877),
+         q(0),
+         ],
+      q(hvn) => [
+         q(2878),
+         q(0),
+         ],
+      q(hvv) => [
+         q(2879),
+         q(0),
+         ],
+      q(hwa) => [
+         q(2880),
+         q(0),
+         ],
+      q(hwc) => [
+         q(2881),
+         q(0),
+         ],
+      q(hwo) => [
+         q(2882),
+         q(0),
+         ],
+      q(hya) => [
+         q(2883),
+         q(0),
+         ],
+      q(hyx) => [
+         q(0511),
+         q(0),
+         ],
+      q(iai) => [
+         q(2884),
+         q(0),
+         ],
+      q(ian) => [
+         q(2885),
+         q(0),
+         ],
+      q(iap) => [
+         q(2886),
+         q(0),
+         ],
+      q(iar) => [
+         q(2887),
+         q(0),
+         ],
+      q(iba) => [
+         q(0185),
+         q(0),
+         ],
+      q(ibb) => [
+         q(2888),
+         q(0),
+         ],
+      q(ibd) => [
+         q(2889),
+         q(0),
+         ],
+      q(ibe) => [
+         q(2890),
+         q(0),
+         ],
+      q(ibg) => [
+         q(2891),
+         q(0),
+         ],
+      q(ibl) => [
+         q(2892),
+         q(0),
+         ],
+      q(ibm) => [
+         q(2893),
+         q(0),
+         ],
+      q(ibn) => [
+         q(2894),
+         q(0),
+         ],
+      q(ibo) => [
+         q(0186),
+         q(0),
+         ],
+      q(ibr) => [
+         q(2895),
+         q(0),
+         ],
+      q(ibu) => [
+         q(2896),
+         q(0),
+         ],
+      q(iby) => [
+         q(2897),
+         q(0),
+         ],
+      q(ica) => [
+         q(2898),
+         q(0),
+         ],
+      q(ice) => [
+         q(0187),
+         q(0),
+         ],
+      q(ich) => [
+         q(2899),
+         q(0),
+         ],
+      q(icl) => [
+         q(2900),
+         q(0),
+         ],
+      q(icr) => [
+         q(2901),
+         q(0),
+         ],
+      q(ida) => [
+         q(2902),
+         q(0),
+         ],
+      q(idb) => [
+         q(2903),
+         q(0),
+         ],
+      q(idc) => [
+         q(2904),
+         q(0),
+         ],
+      q(idd) => [
+         q(2905),
+         q(0),
+         ],
+      q(ide) => [
+         q(2906),
+         q(0),
+         ],
+      q(idi) => [
+         q(2907),
+         q(0),
+         ],
+      q(ido) => [
+         q(0188),
+         q(0),
+         ],
+      q(idr) => [
+         q(2908),
+         q(0),
+         ],
+      q(ids) => [
+         q(2909),
+         q(0),
+         ],
+      q(idt) => [
+         q(2910),
+         q(0),
+         ],
+      q(idu) => [
+         q(2911),
+         q(0),
+         ],
+      q(ifa) => [
+         q(2912),
+         q(0),
+         ],
+      q(ifb) => [
+         q(2913),
+         q(0),
+         ],
+      q(ife) => [
+         q(2914),
+         q(0),
+         ],
+      q(iff) => [
+         q(2915),
+         q(0),
+         ],
+      q(ifk) => [
+         q(2916),
+         q(0),
+         ],
+      q(ifm) => [
+         q(2917),
+         q(0),
+         ],
+      q(ifu) => [
+         q(2918),
+         q(0),
+         ],
+      q(ify) => [
+         q(2919),
+         q(0),
+         ],
+      q(igb) => [
+         q(2920),
+         q(0),
+         ],
+      q(ige) => [
+         q(2921),
+         q(0),
+         ],
+      q(igg) => [
+         q(2922),
+         q(0),
+         ],
+      q(igl) => [
+         q(2923),
+         q(0),
+         ],
+      q(igm) => [
+         q(2924),
+         q(0),
+         ],
+      q(ign) => [
+         q(2925),
+         q(0),
+         ],
+      q(igo) => [
+         q(2926),
+         q(0),
+         ],
+      q(igs) => [
+         q(2927),
+         q(0),
+         ],
+      q(igw) => [
+         q(2928),
+         q(0),
+         ],
+      q(ihb) => [
+         q(2929),
+         q(0),
+         ],
+      q(ihi) => [
+         q(2930),
+         q(0),
+         ],
+      q(ihp) => [
+         q(2931),
+         q(0),
+         ],
+      q(ihw) => [
+         q(2932),
+         q(0),
+         ],
+      q(iii) => [
+         q(0189),
+         q(0),
+         ],
+      q(iin) => [
+         q(2933),
+         q(0),
+         ],
+      q(iir) => [
+         q(0512),
+         q(0),
+         ],
+      q(ijc) => [
+         q(2934),
+         q(0),
+         ],
+      q(ije) => [
+         q(2935),
+         q(0),
+         ],
+      q(ijj) => [
+         q(2936),
+         q(0),
+         ],
+      q(ijn) => [
+         q(2937),
+         q(0),
+         ],
+      q(ijo) => [
+         q(0190),
+         q(0),
+         ],
+      q(ijs) => [
+         q(2938),
+         q(0),
+         ],
+      q(ike) => [
+         q(2939),
+         q(0),
+         ],
+      q(iki) => [
+         q(2940),
+         q(0),
+         ],
+      q(ikk) => [
+         q(2941),
+         q(0),
+         ],
+      q(ikl) => [
+         q(2942),
+         q(0),
+         ],
+      q(iko) => [
+         q(2943),
+         q(0),
+         ],
+      q(ikp) => [
+         q(2944),
+         q(0),
+         ],
+      q(ikr) => [
+         q(2945),
+         q(0),
+         ],
+      q(iks) => [
+         q(2946),
+         q(0),
+         ],
+      q(ikt) => [
+         q(2947),
+         q(0),
+         ],
+      q(iku) => [
+         q(0191),
+         q(0),
+         ],
+      q(ikv) => [
+         q(2948),
+         q(0),
+         ],
+      q(ikw) => [
+         q(2949),
+         q(0),
+         ],
+      q(ikx) => [
+         q(2950),
+         q(0),
+         ],
+      q(ikz) => [
+         q(2951),
+         q(0),
+         ],
+      q(ila) => [
+         q(2952),
+         q(0),
+         ],
+      q(ilb) => [
+         q(2953),
+         q(0),
+         ],
+      q(ile) => [
+         q(0192),
+         q(0),
+         ],
+      q(ilg) => [
+         q(2954),
+         q(0),
+         ],
+      q(ili) => [
+         q(2955),
+         q(0),
+         ],
+      q(ilk) => [
+         q(2956),
+         q(0),
+         ],
+      q(ill) => [
+         q(2957),
+         q(0),
+         ],
+      q(ilo) => [
+         q(0193),
+         q(0),
+         ],
+      q(ils) => [
+         q(2958),
+         q(0),
+         ],
+      q(ilu) => [
+         q(2959),
+         q(0),
+         ],
+      q(ilv) => [
+         q(2960),
+         q(0),
+         ],
+      q(ima) => [
+         q(2961),
+         q(0),
+         ],
+      q(imi) => [
+         q(2962),
+         q(0),
+         ],
+      q(iml) => [
+         q(2963),
+         q(0),
+         ],
+      q(imn) => [
+         q(2964),
+         q(0),
+         ],
+      q(imo) => [
+         q(2965),
+         q(0),
+         ],
+      q(imr) => [
+         q(2966),
+         q(0),
+         ],
+      q(ims) => [
+         q(2967),
+         q(0),
+         ],
+      q(imy) => [
+         q(2968),
+         q(0),
+         ],
+      q(ina) => [
+         q(0194),
+         q(0),
+         ],
+      q(inb) => [
+         q(2969),
+         q(0),
+         ],
+      q(inc) => [
+         q(0195),
+         q(0),
+         ],
+      q(ind) => [
+         q(0196),
+         q(0),
+         ],
+      q(ine) => [
+         q(0197),
+         q(0),
+         ],
+      q(ing) => [
+         q(2970),
+         q(0),
+         ],
+      q(inh) => [
+         q(0198),
+         q(0),
+         ],
+      q(inj) => [
+         q(2971),
+         q(0),
+         ],
+      q(inl) => [
+         q(2972),
+         q(0),
+         ],
+      q(inm) => [
+         q(2973),
+         q(0),
+         ],
+      q(inn) => [
+         q(2974),
+         q(0),
+         ],
+      q(ino) => [
+         q(2975),
+         q(0),
+         ],
+      q(inp) => [
+         q(2976),
+         q(0),
+         ],
+      q(ins) => [
+         q(2977),
+         q(0),
+         ],
+      q(int) => [
+         q(2978),
+         q(0),
+         ],
+      q(inz) => [
+         q(2979),
+         q(0),
+         ],
+      q(ior) => [
+         q(2980),
+         q(0),
+         ],
+      q(iou) => [
+         q(2981),
+         q(0),
+         ],
+      q(iow) => [
+         q(2982),
+         q(0),
+         ],
+      q(ipi) => [
+         q(2983),
+         q(0),
+         ],
+      q(ipk) => [
+         q(0199),
+         q(0),
+         ],
+      q(ipo) => [
+         q(2984),
+         q(0),
+         ],
+      q(iqu) => [
+         q(2985),
+         q(0),
+         ],
+      q(iqw) => [
+         q(2986),
+         q(0),
+         ],
+      q(ira) => [
+         q(0200),
+         q(0),
+         ],
+      q(ire) => [
+         q(2987),
+         q(0),
+         ],
+      q(irh) => [
+         q(2988),
+         q(0),
+         ],
+      q(iri) => [
+         q(2989),
+         q(0),
+         ],
+      q(irk) => [
+         q(2990),
+         q(0),
+         ],
+      q(irn) => [
+         q(2991),
+         q(0),
+         ],
+      q(iro) => [
+         q(0201),
+         q(0),
+         ],
+      q(irr) => [
+         q(2992),
+         q(0),
+         ],
+      q(iru) => [
+         q(2993),
+         q(0),
+         ],
+      q(irx) => [
+         q(2994),
+         q(0),
+         ],
+      q(iry) => [
+         q(2995),
+         q(0),
+         ],
+      q(isa) => [
+         q(2996),
+         q(0),
+         ],
+      q(isc) => [
+         q(2997),
+         q(0),
+         ],
+      q(isd) => [
+         q(2998),
+         q(0),
+         ],
+      q(ise) => [
+         q(2999),
+         q(0),
+         ],
+      q(isg) => [
+         q(3000),
+         q(0),
+         ],
+      q(ish) => [
+         q(3001),
+         q(0),
+         ],
+      q(isi) => [
+         q(3002),
+         q(0),
+         ],
+      q(isk) => [
+         q(3003),
+         q(0),
+         ],
+      q(ism) => [
+         q(3004),
+         q(0),
+         ],
+      q(isn) => [
+         q(3005),
+         q(0),
+         ],
+      q(iso) => [
+         q(3006),
+         q(0),
+         ],
+      q(isr) => [
+         q(3007),
+         q(0),
+         ],
+      q(ist) => [
+         q(3008),
+         q(0),
+         ],
+      q(isu) => [
+         q(3009),
+         q(0),
+         ],
+      q(ita) => [
+         q(0202),
+         q(0),
+         ],
+      q(itb) => [
+         q(3010),
+         q(0),
+         ],
+      q(itc) => [
+         q(0513),
+         q(0),
+         ],
+      q(ite) => [
+         q(3011),
+         q(0),
+         ],
+      q(iti) => [
+         q(3012),
+         q(0),
+         ],
+      q(itk) => [
+         q(3013),
+         q(0),
+         ],
+      q(itl) => [
+         q(3014),
+         q(0),
+         ],
+      q(itm) => [
+         q(3015),
+         q(0),
+         ],
+      q(ito) => [
+         q(3016),
+         q(0),
+         ],
+      q(itr) => [
+         q(3017),
+         q(0),
+         ],
+      q(its) => [
+         q(3018),
+         q(0),
+         ],
+      q(itt) => [
+         q(3019),
+         q(0),
+         ],
+      q(itv) => [
+         q(3020),
+         q(0),
+         ],
+      q(itw) => [
+         q(3021),
+         q(0),
+         ],
+      q(itx) => [
+         q(3022),
+         q(0),
+         ],
+      q(ity) => [
+         q(3023),
+         q(0),
+         ],
+      q(itz) => [
+         q(3024),
+         q(0),
+         ],
+      q(ium) => [
+         q(3025),
+         q(0),
+         ],
+      q(ivb) => [
+         q(3026),
+         q(0),
+         ],
+      q(ivv) => [
+         q(3027),
+         q(0),
+         ],
+      q(iwk) => [
+         q(3028),
+         q(0),
+         ],
+      q(iwm) => [
+         q(3029),
+         q(0),
+         ],
+      q(iwo) => [
+         q(3030),
+         q(0),
+         ],
+      q(iws) => [
+         q(3031),
+         q(0),
+         ],
+      q(ixc) => [
+         q(3032),
+         q(0),
+         ],
+      q(ixl) => [
+         q(3033),
+         q(0),
+         ],
+      q(iya) => [
+         q(3034),
+         q(0),
+         ],
+      q(iyo) => [
+         q(3035),
+         q(0),
+         ],
+      q(iyx) => [
+         q(3036),
+         q(0),
+         ],
+      q(izh) => [
+         q(3037),
+         q(0),
+         ],
+      q(izr) => [
+         q(3038),
+         q(0),
+         ],
+      q(izz) => [
+         q(3039),
+         q(0),
+         ],
+      q(jaa) => [
+         q(3040),
+         q(0),
+         ],
+      q(jab) => [
+         q(3041),
+         q(0),
+         ],
+      q(jac) => [
+         q(3042),
+         q(0),
+         ],
+      q(jad) => [
+         q(3043),
+         q(0),
+         ],
+      q(jae) => [
+         q(3044),
+         q(0),
+         ],
+      q(jaf) => [
+         q(3045),
+         q(0),
+         ],
+      q(jah) => [
+         q(3046),
+         q(0),
+         ],
+      q(jaj) => [
+         q(3047),
+         q(0),
+         ],
+      q(jak) => [
+         q(3048),
+         q(0),
+         ],
+      q(jal) => [
+         q(3049),
+         q(0),
+         ],
+      q(jam) => [
+         q(3050),
+         q(0),
+         ],
+      q(jan) => [
+         q(3051),
+         q(0),
+         ],
+      q(jao) => [
+         q(3052),
+         q(0),
+         ],
+      q(jaq) => [
+         q(3053),
+         q(0),
+         ],
+      q(jas) => [
+         q(3054),
+         q(0),
+         ],
+      q(jat) => [
+         q(3055),
+         q(0),
+         ],
+      q(jau) => [
+         q(3056),
+         q(0),
+         ],
+      q(jav) => [
+         q(0203),
+         q(0),
+         ],
+      q(jax) => [
+         q(3057),
+         q(0),
+         ],
+      q(jay) => [
+         q(3058),
+         q(0),
+         ],
+      q(jaz) => [
+         q(3059),
+         q(0),
+         ],
+      q(jbe) => [
+         q(3060),
+         q(0),
+         ],
+      q(jbi) => [
+         q(3061),
+         q(0),
+         ],
+      q(jbj) => [
+         q(3062),
+         q(0),
+         ],
+      q(jbk) => [
+         q(3063),
+         q(0),
+         ],
+      q(jbn) => [
+         q(3064),
+         q(0),
+         ],
+      q(jbo) => [
+         q(0204),
+         q(0),
+         ],
+      q(jbr) => [
+         q(3065),
+         q(0),
+         ],
+      q(jbt) => [
+         q(3066),
+         q(0),
+         ],
+      q(jbu) => [
+         q(3067),
+         q(0),
+         ],
+      q(jbw) => [
+         q(3068),
+         q(0),
+         ],
+      q(jcs) => [
+         q(3069),
+         q(0),
+         ],
+      q(jct) => [
+         q(3070),
+         q(0),
+         ],
+      q(jda) => [
+         q(3071),
+         q(0),
+         ],
+      q(jdg) => [
+         q(3072),
+         q(0),
+         ],
+      q(jdt) => [
+         q(3073),
+         q(0),
+         ],
+      q(jeb) => [
+         q(3074),
+         q(0),
+         ],
+      q(jee) => [
+         q(3075),
+         q(0),
+         ],
+      q(jeg) => [
+         q(3076),
+         q(0),
+         ],
+      q(jeh) => [
+         q(3077),
+         q(0),
+         ],
+      q(jei) => [
+         q(3078),
+         q(0),
+         ],
+      q(jek) => [
+         q(3079),
+         q(0),
+         ],
+      q(jel) => [
+         q(3080),
+         q(0),
+         ],
+      q(jen) => [
+         q(3081),
+         q(0),
+         ],
+      q(jer) => [
+         q(3082),
+         q(0),
+         ],
+      q(jet) => [
+         q(3083),
+         q(0),
+         ],
+      q(jeu) => [
+         q(3084),
+         q(0),
+         ],
+      q(jgb) => [
+         q(3085),
+         q(0),
+         ],
+      q(jge) => [
+         q(3086),
+         q(0),
+         ],
+      q(jgk) => [
+         q(3087),
+         q(0),
+         ],
+      q(jgo) => [
+         q(3088),
+         q(0),
+         ],
+      q(jhi) => [
+         q(3089),
+         q(0),
+         ],
+      q(jhs) => [
+         q(3090),
+         q(0),
+         ],
+      q(jia) => [
+         q(3091),
+         q(0),
+         ],
+      q(jib) => [
+         q(3092),
+         q(0),
+         ],
+      q(jic) => [
+         q(3093),
+         q(0),
+         ],
+      q(jid) => [
+         q(3094),
+         q(0),
+         ],
+      q(jie) => [
+         q(3095),
+         q(0),
+         ],
+      q(jig) => [
+         q(3096),
+         q(0),
+         ],
+      q(jih) => [
+         q(3097),
+         q(0),
+         ],
+      q(jii) => [
+         q(3098),
+         q(0),
+         ],
+      q(jil) => [
+         q(3099),
+         q(0),
+         ],
+      q(jim) => [
+         q(3100),
+         q(0),
+         ],
+      q(jio) => [
+         q(3101),
+         q(0),
+         ],
+      q(jiq) => [
+         q(3102),
+         q(0),
+         ],
+      q(jit) => [
+         q(3103),
+         q(0),
+         ],
+      q(jiu) => [
+         q(3104),
+         q(0),
+         ],
+      q(jiv) => [
+         q(3105),
+         q(0),
+         ],
+      q(jiy) => [
+         q(3106),
+         q(0),
+         ],
+      q(jje) => [
+         q(3107),
+         q(0),
+         ],
+      q(jjr) => [
+         q(3108),
+         q(0),
+         ],
+      q(jkm) => [
+         q(3109),
+         q(0),
+         ],
+      q(jko) => [
+         q(3110),
+         q(0),
+         ],
+      q(jkp) => [
+         q(3111),
+         q(0),
+         ],
+      q(jkr) => [
+         q(3112),
+         q(0),
+         ],
+      q(jku) => [
+         q(3113),
+         q(0),
+         ],
+      q(jle) => [
+         q(3114),
+         q(0),
+         ],
+      q(jls) => [
+         q(3115),
+         q(0),
+         ],
+      q(jma) => [
+         q(3116),
+         q(0),
+         ],
+      q(jmb) => [
+         q(3117),
+         q(0),
+         ],
+      q(jmc) => [
+         q(3118),
+         q(0),
+         ],
+      q(jmd) => [
+         q(3119),
+         q(0),
+         ],
+      q(jmi) => [
+         q(3120),
+         q(0),
+         ],
+      q(jml) => [
+         q(3121),
+         q(0),
+         ],
+      q(jmn) => [
+         q(3122),
+         q(0),
+         ],
+      q(jmr) => [
+         q(3123),
+         q(0),
+         ],
+      q(jms) => [
+         q(3124),
+         q(0),
+         ],
+      q(jmw) => [
+         q(3125),
+         q(0),
+         ],
+      q(jmx) => [
+         q(3126),
+         q(0),
+         ],
+      q(jna) => [
+         q(3127),
+         q(0),
+         ],
+      q(jnd) => [
+         q(3128),
+         q(0),
+         ],
+      q(jng) => [
+         q(3129),
+         q(0),
+         ],
+      q(jni) => [
+         q(3130),
+         q(0),
+         ],
+      q(jnj) => [
+         q(3131),
+         q(0),
+         ],
+      q(jnl) => [
+         q(3132),
+         q(0),
+         ],
+      q(jns) => [
+         q(3133),
+         q(0),
+         ],
+      q(job) => [
+         q(3134),
+         q(0),
+         ],
+      q(jod) => [
+         q(3135),
+         q(0),
+         ],
+      q(jog) => [
+         q(3136),
+         q(0),
+         ],
+      q(jor) => [
+         q(3137),
+         q(0),
+         ],
+      q(jos) => [
+         q(3138),
+         q(0),
+         ],
+      q(jow) => [
+         q(3139),
+         q(0),
+         ],
+      q(jpa) => [
+         q(3140),
+         q(0),
+         ],
+      q(jpn) => [
+         q(0205),
+         q(0),
+         ],
+      q(jpr) => [
+         q(0206),
+         q(0),
+         ],
+      q(jpx) => [
+         q(0514),
+         q(0),
+         ],
+      q(jqr) => [
+         q(3141),
+         q(0),
+         ],
+      q(jra) => [
+         q(3142),
+         q(0),
+         ],
+      q(jrb) => [
+         q(0207),
+         q(0),
+         ],
+      q(jrr) => [
+         q(3143),
+         q(0),
+         ],
+      q(jrt) => [
+         q(3144),
+         q(0),
+         ],
+      q(jru) => [
+         q(3145),
+         q(0),
+         ],
+      q(jsl) => [
+         q(3146),
+         q(0),
+         ],
+      q(jua) => [
+         q(3147),
+         q(0),
+         ],
+      q(jub) => [
+         q(3148),
+         q(0),
+         ],
+      q(juc) => [
+         q(3149),
+         q(0),
+         ],
+      q(jud) => [
+         q(3150),
+         q(0),
+         ],
+      q(juh) => [
+         q(3151),
+         q(0),
+         ],
+      q(jui) => [
+         q(3152),
+         q(0),
+         ],
+      q(juk) => [
+         q(3153),
+         q(0),
+         ],
+      q(jul) => [
+         q(3154),
+         q(0),
+         ],
+      q(jum) => [
+         q(3155),
+         q(0),
+         ],
+      q(jun) => [
+         q(3156),
+         q(0),
+         ],
+      q(juo) => [
+         q(3157),
+         q(0),
+         ],
+      q(jup) => [
+         q(3158),
+         q(0),
+         ],
+      q(jur) => [
+         q(3159),
+         q(0),
+         ],
+      q(jus) => [
+         q(3160),
+         q(0),
+         ],
+      q(jut) => [
+         q(3161),
+         q(0),
+         ],
+      q(juu) => [
+         q(3162),
+         q(0),
+         ],
+      q(juw) => [
+         q(3163),
+         q(0),
+         ],
+      q(juy) => [
+         q(3164),
+         q(0),
+         ],
+      q(jvd) => [
+         q(3165),
+         q(0),
+         ],
+      q(jvn) => [
+         q(3166),
+         q(0),
+         ],
+      q(jwi) => [
+         q(3167),
+         q(0),
+         ],
+      q(jya) => [
+         q(3168),
+         q(0),
+         ],
+      q(jye) => [
+         q(3169),
+         q(0),
+         ],
+      q(jyy) => [
+         q(3170),
+         q(0),
+         ],
+      q(kaa) => [
+         q(0208),
+         q(0),
+         ],
+      q(kab) => [
+         q(0209),
+         q(0),
+         ],
+      q(kac) => [
+         q(0210),
+         q(0),
+         ],
+      q(kad) => [
+         q(3171),
+         q(0),
+         ],
+      q(kae) => [
+         q(3172),
+         q(0),
+         ],
+      q(kaf) => [
+         q(3173),
+         q(0),
+         ],
+      q(kag) => [
+         q(3174),
+         q(0),
+         ],
+      q(kah) => [
+         q(3175),
+         q(0),
+         ],
+      q(kai) => [
+         q(3176),
+         q(0),
+         ],
+      q(kaj) => [
+         q(3177),
+         q(0),
+         ],
+      q(kak) => [
+         q(3178),
+         q(0),
+         ],
+      q(kal) => [
+         q(0211),
+         q(0),
+         ],
+      q(kam) => [
+         q(0212),
+         q(1),
+         ],
+      q(kan) => [
+         q(0213),
+         q(0),
+         ],
+      q(kao) => [
+         q(3179),
+         q(0),
+         ],
+      q(kap) => [
+         q(3180),
+         q(0),
+         ],
+      q(kaq) => [
+         q(3181),
+         q(0),
+         ],
+      q(kar) => [
+         q(0214),
+         q(0),
+         ],
+      q(kas) => [
+         q(0215),
+         q(0),
+         ],
+      q(kau) => [
+         q(0216),
+         q(0),
+         ],
+      q(kav) => [
+         q(3182),
+         q(0),
+         ],
+      q(kaw) => [
+         q(0217),
+         q(0),
+         ],
+      q(kax) => [
+         q(3183),
+         q(0),
+         ],
+      q(kay) => [
+         q(3184),
+         q(0),
+         ],
+      q(kaz) => [
+         q(0218),
+         q(0),
+         ],
+      q(kba) => [
+         q(3185),
+         q(0),
+         ],
+      q(kbb) => [
+         q(3186),
+         q(0),
+         ],
+      q(kbc) => [
+         q(3187),
+         q(0),
+         ],
+      q(kbd) => [
+         q(0219),
+         q(0),
+         ],
+      q(kbe) => [
+         q(3188),
+         q(0),
+         ],
+      q(kbg) => [
+         q(3189),
+         q(0),
+         ],
+      q(kbh) => [
+         q(3190),
+         q(0),
+         ],
+      q(kbi) => [
+         q(3191),
+         q(0),
+         ],
+      q(kbj) => [
+         q(3192),
+         q(0),
+         ],
+      q(kbk) => [
+         q(3193),
+         q(0),
+         ],
+      q(kbl) => [
+         q(3194),
+         q(0),
+         ],
+      q(kbm) => [
+         q(3195),
+         q(0),
+         ],
+      q(kbn) => [
+         q(3196),
+         q(0),
+         ],
+      q(kbo) => [
+         q(3197),
+         q(0),
+         ],
+      q(kbp) => [
+         q(3198),
+         q(0),
+         ],
+      q(kbq) => [
+         q(3199),
+         q(0),
+         ],
+      q(kbr) => [
+         q(3200),
+         q(0),
+         ],
+      q(kbs) => [
+         q(3201),
+         q(0),
+         ],
+      q(kbt) => [
+         q(3202),
+         q(0),
+         ],
+      q(kbu) => [
+         q(3203),
+         q(0),
+         ],
+      q(kbv) => [
+         q(3204),
+         q(0),
+         ],
+      q(kbw) => [
+         q(3205),
+         q(0),
+         ],
+      q(kbx) => [
+         q(3206),
+         q(0),
+         ],
+      q(kby) => [
+         q(3207),
+         q(0),
+         ],
+      q(kbz) => [
+         q(3208),
+         q(0),
+         ],
+      q(kca) => [
+         q(3209),
+         q(0),
+         ],
+      q(kcb) => [
+         q(3210),
+         q(0),
+         ],
+      q(kcc) => [
+         q(3211),
+         q(0),
+         ],
+      q(kcd) => [
+         q(3212),
+         q(0),
+         ],
+      q(kce) => [
+         q(3213),
+         q(0),
+         ],
+      q(kcf) => [
+         q(3214),
+         q(0),
+         ],
+      q(kcg) => [
+         q(3215),
+         q(0),
+         ],
+      q(kch) => [
+         q(3216),
+         q(0),
+         ],
+      q(kci) => [
+         q(3217),
+         q(0),
+         ],
+      q(kcj) => [
+         q(3218),
+         q(0),
+         ],
+      q(kck) => [
+         q(3219),
+         q(0),
+         ],
+      q(kcl) => [
+         q(3220),
+         q(0),
+         ],
+      q(kcm) => [
+         q(3221),
+         q(0),
+         ],
+      q(kcn) => [
+         q(3222),
+         q(0),
+         ],
+      q(kco) => [
+         q(3223),
+         q(0),
+         ],
+      q(kcp) => [
+         q(3224),
+         q(0),
+         ],
+      q(kcq) => [
+         q(3225),
+         q(0),
+         ],
+      q(kcr) => [
+         q(3226),
+         q(0),
+         ],
+      q(kcs) => [
+         q(3227),
+         q(0),
+         ],
+      q(kct) => [
+         q(3228),
+         q(0),
+         ],
+      q(kcu) => [
+         q(3229),
+         q(0),
+         ],
+      q(kcv) => [
+         q(3230),
+         q(0),
+         ],
+      q(kcw) => [
+         q(3231),
+         q(0),
+         ],
+      q(kcx) => [
+         q(3232),
+         q(0),
+         ],
+      q(kcy) => [
+         q(3233),
+         q(0),
+         ],
+      q(kcz) => [
+         q(3234),
+         q(0),
+         ],
+      q(kda) => [
+         q(3235),
+         q(0),
+         ],
+      q(kdc) => [
+         q(3236),
+         q(0),
+         ],
+      q(kdd) => [
+         q(3237),
+         q(0),
+         ],
+      q(kde) => [
+         q(3238),
+         q(0),
+         ],
+      q(kdf) => [
+         q(3239),
+         q(0),
+         ],
+      q(kdg) => [
+         q(3240),
+         q(0),
+         ],
+      q(kdh) => [
+         q(3241),
+         q(0),
+         ],
+      q(kdi) => [
+         q(3242),
+         q(0),
+         ],
+      q(kdj) => [
+         q(3243),
+         q(0),
+         ],
+      q(kdk) => [
+         q(3244),
+         q(0),
+         ],
+      q(kdl) => [
+         q(3245),
+         q(0),
+         ],
+      q(kdm) => [
+         q(3246),
+         q(0),
+         ],
+      q(kdn) => [
+         q(3247),
+         q(0),
+         ],
+      q(kdo) => [
+         q(0515),
+         q(0),
+         ],
+      q(kdp) => [
+         q(3248),
+         q(0),
+         ],
+      q(kdq) => [
+         q(3249),
+         q(0),
+         ],
+      q(kdr) => [
+         q(3250),
+         q(0),
+         ],
+      q(kdt) => [
+         q(3251),
+         q(0),
+         ],
+      q(kdu) => [
+         q(3252),
+         q(0),
+         ],
+      q(kdw) => [
+         q(3253),
+         q(0),
+         ],
+      q(kdx) => [
+         q(3254),
+         q(0),
+         ],
+      q(kdy) => [
+         q(3255),
+         q(0),
+         ],
+      q(kdz) => [
+         q(3256),
+         q(0),
+         ],
+      q(kea) => [
+         q(3257),
+         q(0),
+         ],
+      q(keb) => [
+         q(3258),
+         q(0),
+         ],
+      q(kec) => [
+         q(3259),
+         q(0),
+         ],
+      q(ked) => [
+         q(3260),
+         q(0),
+         ],
+      q(kee) => [
+         q(3261),
+         q(0),
+         ],
+      q(kef) => [
+         q(3262),
+         q(0),
+         ],
+      q(keg) => [
+         q(3263),
+         q(0),
+         ],
+      q(keh) => [
+         q(3264),
+         q(0),
+         ],
+      q(kei) => [
+         q(3265),
+         q(0),
+         ],
+      q(kej) => [
+         q(3266),
+         q(0),
+         ],
+      q(kek) => [
+         q(3267),
+         q(0),
+         ],
+      q(kel) => [
+         q(3268),
+         q(0),
+         ],
+      q(kem) => [
+         q(3269),
+         q(0),
+         ],
+      q(ken) => [
+         q(3270),
+         q(0),
+         ],
+      q(keo) => [
+         q(3271),
+         q(0),
+         ],
+      q(kep) => [
+         q(3272),
+         q(0),
+         ],
+      q(keq) => [
+         q(3273),
+         q(0),
+         ],
+      q(ker) => [
+         q(3274),
+         q(0),
+         ],
+      q(kes) => [
+         q(3275),
+         q(0),
+         ],
+      q(ket) => [
+         q(3276),
+         q(0),
+         ],
+      q(keu) => [
+         q(3277),
+         q(0),
+         ],
+      q(kev) => [
+         q(3278),
+         q(0),
+         ],
+      q(kew) => [
+         q(3279),
+         q(0),
+         ],
+      q(kex) => [
+         q(3280),
+         q(0),
+         ],
+      q(key) => [
+         q(3281),
+         q(0),
+         ],
+      q(kez) => [
+         q(3282),
+         q(0),
+         ],
+      q(kfa) => [
+         q(3283),
+         q(0),
+         ],
+      q(kfb) => [
+         q(3284),
+         q(0),
+         ],
+      q(kfc) => [
+         q(3285),
+         q(0),
+         ],
+      q(kfd) => [
+         q(3286),
+         q(0),
+         ],
+      q(kfe) => [
+         q(3287),
+         q(0),
+         ],
+      q(kff) => [
+         q(3288),
+         q(0),
+         ],
+      q(kfg) => [
+         q(3289),
+         q(0),
+         ],
+      q(kfh) => [
+         q(3290),
+         q(0),
+         ],
+      q(kfi) => [
+         q(3291),
+         q(0),
+         ],
+      q(kfj) => [
+         q(3292),
+         q(0),
+         ],
+      q(kfk) => [
+         q(3293),
+         q(0),
+         ],
+      q(kfl) => [
+         q(3294),
+         q(0),
+         ],
+      q(kfm) => [
+         q(3295),
+         q(0),
+         ],
+      q(kfn) => [
+         q(3296),
+         q(0),
+         ],
+      q(kfo) => [
+         q(3297),
+         q(0),
+         ],
+      q(kfp) => [
+         q(3298),
+         q(0),
+         ],
+      q(kfq) => [
+         q(3299),
+         q(0),
+         ],
+      q(kfr) => [
+         q(3300),
+         q(0),
+         ],
+      q(kfs) => [
+         q(3301),
+         q(0),
+         ],
+      q(kft) => [
+         q(3302),
+         q(0),
+         ],
+      q(kfu) => [
+         q(3303),
+         q(0),
+         ],
+      q(kfv) => [
+         q(3304),
+         q(0),
+         ],
+      q(kfw) => [
+         q(3305),
+         q(0),
+         ],
+      q(kfx) => [
+         q(3306),
+         q(0),
+         ],
+      q(kfy) => [
+         q(3307),
+         q(0),
+         ],
+      q(kfz) => [
+         q(3308),
+         q(0),
+         ],
+      q(kga) => [
+         q(3309),
+         q(0),
+         ],
+      q(kgb) => [
+         q(3310),
+         q(0),
+         ],
+      q(kgc) => [
+         q(3311),
+         q(0),
+         ],
+      q(kgd) => [
+         q(3312),
+         q(0),
+         ],
+      q(kge) => [
+         q(3313),
+         q(0),
+         ],
+      q(kgf) => [
+         q(3314),
+         q(0),
+         ],
+      q(kgg) => [
+         q(3315),
+         q(0),
+         ],
+      q(kgi) => [
+         q(3316),
+         q(0),
+         ],
+      q(kgj) => [
+         q(3317),
+         q(0),
+         ],
+      q(kgk) => [
+         q(3318),
+         q(0),
+         ],
+      q(kgl) => [
+         q(3319),
+         q(0),
+         ],
+      q(kgm) => [
+         q(3320),
+         q(0),
+         ],
+      q(kgn) => [
+         q(3321),
+         q(0),
+         ],
+      q(kgo) => [
+         q(3322),
+         q(0),
+         ],
+      q(kgp) => [
+         q(3323),
+         q(0),
+         ],
+      q(kgq) => [
+         q(3324),
+         q(0),
+         ],
+      q(kgr) => [
+         q(3325),
+         q(0),
+         ],
+      q(kgs) => [
+         q(3326),
+         q(0),
+         ],
+      q(kgt) => [
+         q(3327),
+         q(0),
+         ],
+      q(kgu) => [
+         q(3328),
+         q(0),
+         ],
+      q(kgv) => [
+         q(3329),
+         q(0),
+         ],
+      q(kgw) => [
+         q(3330),
+         q(0),
+         ],
+      q(kgx) => [
+         q(3331),
+         q(0),
+         ],
+      q(kgy) => [
+         q(3332),
+         q(0),
+         ],
+      q(kha) => [
+         q(0220),
+         q(0),
+         ],
+      q(khb) => [
+         q(3333),
+         q(0),
+         ],
+      q(khc) => [
+         q(3334),
+         q(0),
+         ],
+      q(khd) => [
+         q(3335),
+         q(0),
+         ],
+      q(khe) => [
+         q(3336),
+         q(0),
+         ],
+      q(khf) => [
+         q(3337),
+         q(0),
+         ],
+      q(khg) => [
+         q(3338),
+         q(0),
+         ],
+      q(khh) => [
+         q(3339),
+         q(0),
+         ],
+      q(khi) => [
+         q(0221),
+         q(0),
+         ],
+      q(khj) => [
+         q(3340),
+         q(0),
+         ],
+      q(khk) => [
+         q(3341),
+         q(0),
+         ],
+      q(khl) => [
+         q(3342),
+         q(0),
+         ],
+      q(khm) => [
+         q(0222),
+         q(0),
+         ],
+      q(khn) => [
+         q(3343),
+         q(0),
+         ],
+      q(kho) => [
+         q(0223),
+         q(0),
+         ],
+      q(khp) => [
+         q(3344),
+         q(0),
+         ],
+      q(khq) => [
+         q(3345),
+         q(0),
+         ],
+      q(khr) => [
+         q(3346),
+         q(0),
+         ],
+      q(khs) => [
+         q(3347),
+         q(0),
+         ],
+      q(kht) => [
+         q(3348),
+         q(0),
+         ],
+      q(khu) => [
+         q(3349),
+         q(0),
+         ],
+      q(khv) => [
+         q(3350),
+         q(0),
+         ],
+      q(khw) => [
+         q(3351),
+         q(0),
+         ],
+      q(khx) => [
+         q(3352),
+         q(0),
+         ],
+      q(khy) => [
+         q(3353),
+         q(0),
+         ],
+      q(khz) => [
+         q(3354),
+         q(0),
+         ],
+      q(kia) => [
+         q(3355),
+         q(0),
+         ],
+      q(kib) => [
+         q(3356),
+         q(0),
+         ],
+      q(kic) => [
+         q(3357),
+         q(0),
+         ],
+      q(kid) => [
+         q(3358),
+         q(0),
+         ],
+      q(kie) => [
+         q(3359),
+         q(0),
+         ],
+      q(kif) => [
+         q(3360),
+         q(0),
+         ],
+      q(kig) => [
+         q(3361),
+         q(0),
+         ],
+      q(kih) => [
+         q(3362),
+         q(0),
+         ],
+      q(kii) => [
+         q(3363),
+         q(0),
+         ],
+      q(kij) => [
+         q(3364),
+         q(0),
+         ],
+      q(kik) => [
+         q(0224),
+         q(0),
+         ],
+      q(kil) => [
+         q(3365),
+         q(0),
+         ],
+      q(kim) => [
+         q(3366),
+         q(0),
+         ],
+      q(kin) => [
+         q(0225),
+         q(0),
+         ],
+      q(kio) => [
+         q(3367),
+         q(0),
+         ],
+      q(kip) => [
+         q(3368),
+         q(0),
+         ],
+      q(kiq) => [
+         q(3369),
+         q(0),
+         ],
+      q(kir) => [
+         q(0226),
+         q(0),
+         ],
+      q(kis) => [
+         q(3370),
+         q(0),
+         ],
+      q(kit) => [
+         q(3371),
+         q(0),
+         ],
+      q(kiu) => [
+         q(3372),
+         q(0),
+         ],
+      q(kiv) => [
+         q(3373),
+         q(0),
+         ],
+      q(kiw) => [
+         q(3374),
+         q(0),
+         ],
+      q(kix) => [
+         q(3375),
+         q(0),
+         ],
+      q(kiy) => [
+         q(3376),
+         q(0),
+         ],
+      q(kiz) => [
+         q(3377),
+         q(0),
+         ],
+      q(kja) => [
+         q(3378),
+         q(0),
+         ],
+      q(kjb) => [
+         q(3379),
+         q(0),
+         ],
+      q(kjc) => [
+         q(3380),
+         q(0),
+         ],
+      q(kjd) => [
+         q(3381),
+         q(0),
+         ],
+      q(kje) => [
+         q(3382),
+         q(0),
+         ],
+      q(kjf) => [
+         q(3383),
+         q(0),
+         ],
+      q(kjg) => [
+         q(3384),
+         q(0),
+         ],
+      q(kjh) => [
+         q(3385),
+         q(0),
+         ],
+      q(kji) => [
+         q(3386),
+         q(0),
+         ],
+      q(kjj) => [
+         q(3387),
+         q(0),
+         ],
+      q(kjk) => [
+         q(3388),
+         q(0),
+         ],
+      q(kjl) => [
+         q(3389),
+         q(0),
+         ],
+      q(kjm) => [
+         q(3390),
+         q(0),
+         ],
+      q(kjn) => [
+         q(3391),
+         q(0),
+         ],
+      q(kjo) => [
+         q(3392),
+         q(0),
+         ],
+      q(kjp) => [
+         q(3393),
+         q(0),
+         ],
+      q(kjq) => [
+         q(3394),
+         q(0),
+         ],
+      q(kjr) => [
+         q(3395),
+         q(0),
+         ],
+      q(kjs) => [
+         q(3396),
+         q(0),
+         ],
+      q(kjt) => [
+         q(3397),
+         q(0),
+         ],
+      q(kju) => [
+         q(3398),
+         q(0),
+         ],
+      q(kjv) => [
+         q(3399),
+         q(0),
+         ],
+      q(kjx) => [
+         q(3400),
+         q(0),
+         ],
+      q(kjy) => [
+         q(3401),
+         q(0),
+         ],
+      q(kjz) => [
+         q(3402),
+         q(0),
+         ],
+      q(kka) => [
+         q(3403),
+         q(0),
+         ],
+      q(kkb) => [
+         q(3404),
+         q(0),
+         ],
+      q(kkc) => [
+         q(3405),
+         q(0),
+         ],
+      q(kkd) => [
+         q(3406),
+         q(0),
+         ],
+      q(kke) => [
+         q(3407),
+         q(0),
+         ],
+      q(kkf) => [
+         q(3408),
+         q(0),
+         ],
+      q(kkg) => [
+         q(3409),
+         q(0),
+         ],
+      q(kkh) => [
+         q(3410),
+         q(0),
+         ],
+      q(kki) => [
+         q(3411),
+         q(0),
+         ],
+      q(kkj) => [
+         q(3412),
+         q(0),
+         ],
+      q(kkk) => [
+         q(3413),
+         q(0),
+         ],
+      q(kkl) => [
+         q(3414),
+         q(0),
+         ],
+      q(kkm) => [
+         q(3415),
+         q(0),
+         ],
+      q(kkn) => [
+         q(3416),
+         q(0),
+         ],
+      q(kko) => [
+         q(3417),
+         q(0),
+         ],
+      q(kkp) => [
+         q(3418),
+         q(0),
+         ],
+      q(kkq) => [
+         q(3419),
+         q(0),
+         ],
+      q(kkr) => [
+         q(3420),
+         q(0),
+         ],
+      q(kks) => [
+         q(3421),
+         q(0),
+         ],
+      q(kkt) => [
+         q(3422),
+         q(0),
+         ],
+      q(kku) => [
+         q(3423),
+         q(0),
+         ],
+      q(kkv) => [
+         q(3424),
+         q(0),
+         ],
+      q(kkw) => [
+         q(3425),
+         q(0),
+         ],
+      q(kkx) => [
+         q(3426),
+         q(0),
+         ],
+      q(kky) => [
+         q(3427),
+         q(0),
+         ],
+      q(kkz) => [
+         q(3428),
+         q(0),
+         ],
+      q(kla) => [
+         q(3429),
+         q(0),
+         ],
+      q(klb) => [
+         q(3430),
+         q(0),
+         ],
+      q(klc) => [
+         q(3431),
+         q(0),
+         ],
+      q(kld) => [
+         q(3432),
+         q(0),
+         ],
+      q(kle) => [
+         q(3433),
+         q(0),
+         ],
+      q(klf) => [
+         q(3434),
+         q(0),
+         ],
+      q(klg) => [
+         q(3435),
+         q(0),
+         ],
+      q(klh) => [
+         q(3436),
+         q(0),
+         ],
+      q(kli) => [
+         q(3437),
+         q(0),
+         ],
+      q(klj) => [
+         q(3438),
+         q(0),
+         ],
+      q(klk) => [
+         q(3439),
+         q(0),
+         ],
+      q(kll) => [
+         q(3440),
+         q(0),
+         ],
+      q(klm) => [
+         q(3441),
+         q(0),
+         ],
+      q(kln) => [
+         q(3442),
+         q(0),
+         ],
+      q(klo) => [
+         q(3443),
+         q(0),
+         ],
+      q(klp) => [
+         q(3444),
+         q(0),
+         ],
+      q(klq) => [
+         q(3445),
+         q(0),
+         ],
+      q(klr) => [
+         q(3446),
+         q(0),
+         ],
+      q(kls) => [
+         q(3447),
+         q(0),
+         ],
+      q(klt) => [
+         q(3448),
+         q(0),
+         ],
+      q(klu) => [
+         q(3449),
+         q(0),
+         ],
+      q(klv) => [
+         q(3450),
+         q(0),
+         ],
+      q(klw) => [
+         q(3451),
+         q(0),
+         ],
+      q(klx) => [
+         q(3452),
+         q(0),
+         ],
+      q(kly) => [
+         q(3453),
+         q(0),
+         ],
+      q(klz) => [
+         q(3454),
+         q(0),
+         ],
+      q(kma) => [
+         q(3455),
+         q(0),
+         ],
+      q(kmb) => [
+         q(0227),
+         q(0),
+         ],
+      q(kmc) => [
+         q(3456),
+         q(0),
+         ],
+      q(kmd) => [
+         q(3457),
+         q(0),
+         ],
+      q(kme) => [
+         q(3458),
+         q(0),
+         ],
+      q(kmf) => [
+         q(3459),
+         q(0),
+         ],
+      q(kmg) => [
+         q(3460),
+         q(0),
+         ],
+      q(kmh) => [
+         q(3461),
+         q(0),
+         ],
+      q(kmi) => [
+         q(3462),
+         q(0),
+         ],
+      q(kmj) => [
+         q(3463),
+         q(0),
+         ],
+      q(kmk) => [
+         q(3464),
+         q(0),
+         ],
+      q(kml) => [
+         q(3465),
+         q(0),
+         ],
+      q(kmm) => [
+         q(3466),
+         q(0),
+         ],
+      q(kmn) => [
+         q(3467),
+         q(0),
+         ],
+      q(kmo) => [
+         q(3468),
+         q(0),
+         ],
+      q(kmp) => [
+         q(3469),
+         q(0),
+         ],
+      q(kmq) => [
+         q(3470),
+         q(0),
+         ],
+      q(kmr) => [
+         q(3471),
+         q(0),
+         ],
+      q(kms) => [
+         q(3472),
+         q(0),
+         ],
+      q(kmt) => [
+         q(3473),
+         q(0),
+         ],
+      q(kmu) => [
+         q(3474),
+         q(0),
+         ],
+      q(kmv) => [
+         q(3475),
+         q(0),
+         ],
+      q(kmw) => [
+         q(3476),
+         q(0),
+         ],
+      q(kmx) => [
+         q(3477),
+         q(0),
+         ],
+      q(kmy) => [
+         q(3478),
+         q(0),
+         ],
+      q(kmz) => [
+         q(3479),
+         q(0),
+         ],
+      q(kna) => [
+         q(3480),
+         q(0),
+         ],
+      q(knb) => [
+         q(3481),
+         q(0),
+         ],
+      q(knc) => [
+         q(3482),
+         q(0),
+         ],
+      q(knd) => [
+         q(3483),
+         q(0),
+         ],
+      q(kne) => [
+         q(3484),
+         q(0),
+         ],
+      q(knf) => [
+         q(3485),
+         q(0),
+         ],
+      q(kng) => [
+         q(3486),
+         q(0),
+         ],
+      q(kni) => [
+         q(3487),
+         q(0),
+         ],
+      q(knj) => [
+         q(3488),
+         q(0),
+         ],
+      q(knk) => [
+         q(3489),
+         q(0),
+         ],
+      q(knl) => [
+         q(3490),
+         q(0),
+         ],
+      q(knm) => [
+         q(3491),
+         q(0),
+         ],
+      q(knn) => [
+         q(3492),
+         q(0),
+         ],
+      q(kno) => [
+         q(3493),
+         q(0),
+         ],
+      q(knp) => [
+         q(3494),
+         q(0),
+         ],
+      q(knq) => [
+         q(3495),
+         q(0),
+         ],
+      q(knr) => [
+         q(3496),
+         q(0),
+         ],
+      q(kns) => [
+         q(3497),
+         q(0),
+         ],
+      q(knt) => [
+         q(3498),
+         q(0),
+         ],
+      q(knu) => [
+         q(3499),
+         q(0),
+         ],
+      q(knv) => [
+         q(3500),
+         q(0),
+         ],
+      q(knw) => [
+         q(3501),
+         q(0),
+         ],
+      q(knx) => [
+         q(3502),
+         q(0),
+         ],
+      q(kny) => [
+         q(3503),
+         q(0),
+         ],
+      q(knz) => [
+         q(3504),
+         q(0),
+         ],
+      q(koa) => [
+         q(3505),
+         q(0),
+         ],
+      q(koc) => [
+         q(3506),
+         q(0),
+         ],
+      q(kod) => [
+         q(3507),
+         q(0),
+         ],
+      q(koe) => [
+         q(3508),
+         q(0),
+         ],
+      q(kof) => [
+         q(3509),
+         q(0),
+         ],
+      q(kog) => [
+         q(3510),
+         q(0),
+         ],
+      q(koh) => [
+         q(3511),
+         q(0),
+         ],
+      q(koi) => [
+         q(3512),
+         q(0),
+         ],
+      q(kok) => [
+         q(0228),
+         q(1),
+         ],
+      q(kol) => [
+         q(3513),
+         q(0),
+         ],
+      q(kom) => [
+         q(0229),
+         q(0),
+         ],
+      q(kon) => [
+         q(0230),
+         q(0),
+         ],
+      q(koo) => [
+         q(3514),
+         q(0),
+         ],
+      q(kop) => [
+         q(3515),
+         q(0),
+         ],
+      q(koq) => [
+         q(3516),
+         q(0),
+         ],
+      q(kor) => [
+         q(0231),
+         q(0),
+         ],
+      q(kos) => [
+         q(0232),
+         q(0),
+         ],
+      q(kot) => [
+         q(3517),
+         q(0),
+         ],
+      q(kou) => [
+         q(3518),
+         q(0),
+         ],
+      q(kov) => [
+         q(3519),
+         q(0),
+         ],
+      q(kow) => [
+         q(3520),
+         q(0),
+         ],
+      q(kox) => [
+         q(3521),
+         q(0),
+         ],
+      q(koy) => [
+         q(3522),
+         q(0),
+         ],
+      q(koz) => [
+         q(3523),
+         q(0),
+         ],
+      q(kpa) => [
+         q(3524),
+         q(0),
+         ],
+      q(kpb) => [
+         q(3525),
+         q(0),
+         ],
+      q(kpc) => [
+         q(3526),
+         q(0),
+         ],
+      q(kpd) => [
+         q(3527),
+         q(0),
+         ],
+      q(kpe) => [
+         q(0233),
+         q(0),
+         ],
+      q(kpf) => [
+         q(3528),
+         q(0),
+         ],
+      q(kpg) => [
+         q(3529),
+         q(0),
+         ],
+      q(kph) => [
+         q(3530),
+         q(0),
+         ],
+      q(kpi) => [
+         q(3531),
+         q(0),
+         ],
+      q(kpj) => [
+         q(3532),
+         q(0),
+         ],
+      q(kpk) => [
+         q(3533),
+         q(0),
+         ],
+      q(kpl) => [
+         q(3534),
+         q(0),
+         ],
+      q(kpm) => [
+         q(3535),
+         q(0),
+         ],
+      q(kpn) => [
+         q(3536),
+         q(0),
+         ],
+      q(kpo) => [
+         q(3537),
+         q(0),
+         ],
+      q(kpq) => [
+         q(3538),
+         q(0),
+         ],
+      q(kpr) => [
+         q(3539),
+         q(0),
+         ],
+      q(kps) => [
+         q(3540),
+         q(0),
+         ],
+      q(kpt) => [
+         q(3541),
+         q(0),
+         ],
+      q(kpu) => [
+         q(3542),
+         q(0),
+         ],
+      q(kpv) => [
+         q(3543),
+         q(0),
+         ],
+      q(kpw) => [
+         q(3544),
+         q(0),
+         ],
+      q(kpx) => [
+         q(3545),
+         q(0),
+         ],
+      q(kpy) => [
+         q(3546),
+         q(0),
+         ],
+      q(kpz) => [
+         q(3547),
+         q(0),
+         ],
+      q(kqa) => [
+         q(3548),
+         q(0),
+         ],
+      q(kqb) => [
+         q(3549),
+         q(0),
+         ],
+      q(kqc) => [
+         q(3550),
+         q(0),
+         ],
+      q(kqd) => [
+         q(3551),
+         q(0),
+         ],
+      q(kqe) => [
+         q(3552),
+         q(0),
+         ],
+      q(kqf) => [
+         q(3553),
+         q(0),
+         ],
+      q(kqg) => [
+         q(3554),
+         q(0),
+         ],
+      q(kqh) => [
+         q(3555),
+         q(0),
+         ],
+      q(kqi) => [
+         q(3556),
+         q(0),
+         ],
+      q(kqj) => [
+         q(3557),
+         q(0),
+         ],
+      q(kqk) => [
+         q(3558),
+         q(0),
+         ],
+      q(kql) => [
+         q(3559),
+         q(0),
+         ],
+      q(kqm) => [
+         q(3560),
+         q(0),
+         ],
+      q(kqn) => [
+         q(3561),
+         q(0),
+         ],
+      q(kqo) => [
+         q(3562),
+         q(0),
+         ],
+      q(kqp) => [
+         q(3563),
+         q(0),
+         ],
+      q(kqq) => [
+         q(3564),
+         q(0),
+         ],
+      q(kqr) => [
+         q(3565),
+         q(0),
+         ],
+      q(kqs) => [
+         q(3566),
+         q(0),
+         ],
+      q(kqt) => [
+         q(3567),
+         q(0),
+         ],
+      q(kqu) => [
+         q(3568),
+         q(0),
+         ],
+      q(kqv) => [
+         q(3569),
+         q(0),
+         ],
+      q(kqw) => [
+         q(3570),
+         q(0),
+         ],
+      q(kqx) => [
+         q(3571),
+         q(0),
+         ],
+      q(kqy) => [
+         q(3572),
+         q(0),
+         ],
+      q(kqz) => [
+         q(3573),
+         q(0),
+         ],
+      q(kra) => [
+         q(3574),
+         q(0),
+         ],
+      q(krb) => [
+         q(3575),
+         q(0),
+         ],
+      q(krc) => [
+         q(0234),
+         q(0),
+         ],
+      q(krd) => [
+         q(3576),
+         q(0),
+         ],
+      q(kre) => [
+         q(3577),
+         q(0),
+         ],
+      q(krf) => [
+         q(3578),
+         q(0),
+         ],
+      q(krh) => [
+         q(3579),
+         q(0),
+         ],
+      q(kri) => [
+         q(3580),
+         q(0),
+         ],
+      q(krj) => [
+         q(3581),
+         q(0),
+         ],
+      q(krk) => [
+         q(3582),
+         q(0),
+         ],
+      q(krl) => [
+         q(0235),
+         q(0),
+         ],
+      q(krm) => [
+         q(3583),
+         q(0),
+         ],
+      q(krn) => [
+         q(3584),
+         q(0),
+         ],
+      q(kro) => [
+         q(0236),
+         q(0),
+         ],
+      q(krp) => [
+         q(3585),
+         q(0),
+         ],
+      q(krr) => [
+         q(3586),
+         q(0),
+         ],
+      q(krs) => [
+         q(3587),
+         q(0),
+         ],
+      q(krt) => [
+         q(3588),
+         q(0),
+         ],
+      q(kru) => [
+         q(0237),
+         q(0),
+         ],
+      q(krv) => [
+         q(3589),
+         q(0),
+         ],
+      q(krw) => [
+         q(3590),
+         q(0),
+         ],
+      q(krx) => [
+         q(3591),
+         q(0),
+         ],
+      q(kry) => [
+         q(3592),
+         q(0),
+         ],
+      q(krz) => [
+         q(3593),
+         q(0),
+         ],
+      q(ksa) => [
+         q(3594),
+         q(0),
+         ],
+      q(ksb) => [
+         q(3595),
+         q(0),
+         ],
+      q(ksc) => [
+         q(3596),
+         q(0),
+         ],
+      q(ksd) => [
+         q(3597),
+         q(0),
+         ],
+      q(kse) => [
+         q(3598),
+         q(0),
+         ],
+      q(ksf) => [
+         q(3599),
+         q(0),
+         ],
+      q(ksg) => [
+         q(3600),
+         q(0),
+         ],
+      q(ksh) => [
+         q(3601),
+         q(0),
+         ],
+      q(ksi) => [
+         q(3602),
+         q(0),
+         ],
+      q(ksj) => [
+         q(3603),
+         q(0),
+         ],
+      q(ksk) => [
+         q(3604),
+         q(0),
+         ],
+      q(ksl) => [
+         q(3605),
+         q(0),
+         ],
+      q(ksm) => [
+         q(3606),
+         q(0),
+         ],
+      q(ksn) => [
+         q(3607),
+         q(0),
+         ],
+      q(kso) => [
+         q(3608),
+         q(0),
+         ],
+      q(ksp) => [
+         q(3609),
+         q(0),
+         ],
+      q(ksq) => [
+         q(3610),
+         q(0),
+         ],
+      q(ksr) => [
+         q(3611),
+         q(0),
+         ],
+      q(kss) => [
+         q(3612),
+         q(0),
+         ],
+      q(kst) => [
+         q(3613),
+         q(0),
+         ],
+      q(ksu) => [
+         q(3614),
+         q(0),
+         ],
+      q(ksv) => [
+         q(3615),
+         q(0),
+         ],
+      q(ksw) => [
+         q(3616),
+         q(0),
+         ],
+      q(ksx) => [
+         q(3617),
+         q(0),
+         ],
+      q(ksy) => [
+         q(3618),
+         q(0),
+         ],
+      q(ksz) => [
+         q(3619),
+         q(0),
+         ],
+      q(kta) => [
+         q(3620),
+         q(0),
+         ],
+      q(ktb) => [
+         q(3621),
+         q(0),
+         ],
+      q(ktc) => [
+         q(3622),
+         q(0),
+         ],
+      q(ktd) => [
+         q(3623),
+         q(0),
+         ],
+      q(kte) => [
+         q(3624),
+         q(0),
+         ],
+      q(ktf) => [
+         q(3625),
+         q(0),
+         ],
+      q(ktg) => [
+         q(3626),
+         q(0),
+         ],
+      q(kth) => [
+         q(3627),
+         q(0),
+         ],
+      q(kti) => [
+         q(3628),
+         q(0),
+         ],
+      q(ktj) => [
+         q(3629),
+         q(0),
+         ],
+      q(ktk) => [
+         q(3630),
+         q(0),
+         ],
+      q(ktl) => [
+         q(3631),
+         q(0),
+         ],
+      q(ktm) => [
+         q(3632),
+         q(0),
+         ],
+      q(ktn) => [
+         q(3633),
+         q(0),
+         ],
+      q(kto) => [
+         q(3634),
+         q(0),
+         ],
+      q(ktp) => [
+         q(3635),
+         q(0),
+         ],
+      q(ktq) => [
+         q(3636),
+         q(0),
+         ],
+      q(ktr) => [
+         q(3637),
+         q(0),
+         ],
+      q(kts) => [
+         q(3638),
+         q(0),
+         ],
+      q(ktt) => [
+         q(3639),
+         q(0),
+         ],
+      q(ktu) => [
+         q(3640),
+         q(0),
+         ],
+      q(ktv) => [
+         q(3641),
+         q(0),
+         ],
+      q(ktw) => [
+         q(3642),
+         q(0),
+         ],
+      q(ktx) => [
+         q(3643),
+         q(0),
+         ],
+      q(kty) => [
+         q(3644),
+         q(0),
+         ],
+      q(ktz) => [
+         q(3645),
+         q(0),
+         ],
+      q(kua) => [
+         q(0238),
+         q(0),
+         ],
+      q(kub) => [
+         q(3646),
+         q(0),
+         ],
+      q(kuc) => [
+         q(3647),
+         q(0),
+         ],
+      q(kud) => [
+         q(3648),
+         q(0),
+         ],
+      q(kue) => [
+         q(3649),
+         q(0),
+         ],
+      q(kuf) => [
+         q(3650),
+         q(0),
+         ],
+      q(kug) => [
+         q(3651),
+         q(0),
+         ],
+      q(kuh) => [
+         q(3652),
+         q(0),
+         ],
+      q(kui) => [
+         q(3653),
+         q(0),
+         ],
+      q(kuj) => [
+         q(3654),
+         q(0),
+         ],
+      q(kuk) => [
+         q(3655),
+         q(0),
+         ],
+      q(kul) => [
+         q(3656),
+         q(0),
+         ],
+      q(kum) => [
+         q(0239),
+         q(0),
+         ],
+      q(kun) => [
+         q(3657),
+         q(0),
+         ],
+      q(kuo) => [
+         q(3658),
+         q(0),
+         ],
+      q(kup) => [
+         q(3659),
+         q(0),
+         ],
+      q(kuq) => [
+         q(3320),
+         q(0),
+         ],
+      q(kur) => [
+         q(0240),
+         q(0),
+         ],
+      q(kus) => [
+         q(3660),
+         q(0),
+         ],
+      q(kut) => [
+         q(0241),
+         q(0),
+         ],
+      q(kuu) => [
+         q(3661),
+         q(0),
+         ],
+      q(kuv) => [
+         q(3662),
+         q(0),
+         ],
+      q(kuw) => [
+         q(3663),
+         q(0),
+         ],
+      q(kux) => [
+         q(3664),
+         q(0),
+         ],
+      q(kuy) => [
+         q(3665),
+         q(0),
+         ],
+      q(kuz) => [
+         q(3666),
+         q(0),
+         ],
+      q(kva) => [
+         q(3667),
+         q(0),
+         ],
+      q(kvb) => [
+         q(3668),
+         q(0),
+         ],
+      q(kvc) => [
+         q(3669),
+         q(0),
+         ],
+      q(kvd) => [
+         q(3670),
+         q(0),
+         ],
+      q(kve) => [
+         q(3671),
+         q(0),
+         ],
+      q(kvf) => [
+         q(3672),
+         q(0),
+         ],
+      q(kvg) => [
+         q(3673),
+         q(0),
+         ],
+      q(kvh) => [
+         q(3674),
+         q(0),
+         ],
+      q(kvi) => [
+         q(3675),
+         q(0),
+         ],
+      q(kvj) => [
+         q(3676),
+         q(0),
+         ],
+      q(kvk) => [
+         q(3677),
+         q(0),
+         ],
+      q(kvl) => [
+         q(3678),
+         q(0),
+         ],
+      q(kvm) => [
+         q(3679),
+         q(0),
+         ],
+      q(kvn) => [
+         q(3680),
+         q(0),
+         ],
+      q(kvo) => [
+         q(3681),
+         q(0),
+         ],
+      q(kvp) => [
+         q(3682),
+         q(0),
+         ],
+      q(kvq) => [
+         q(3683),
+         q(0),
+         ],
+      q(kvr) => [
+         q(3684),
+         q(0),
+         ],
+      q(kvs) => [
+         q(3685),
+         q(0),
+         ],
+      q(kvt) => [
+         q(3686),
+         q(0),
+         ],
+      q(kvu) => [
+         q(3687),
+         q(0),
+         ],
+      q(kvv) => [
+         q(3688),
+         q(0),
+         ],
+      q(kvw) => [
+         q(3689),
+         q(0),
+         ],
+      q(kvx) => [
+         q(3690),
+         q(0),
+         ],
+      q(kvy) => [
+         q(3691),
+         q(0),
+         ],
+      q(kvz) => [
+         q(3692),
+         q(0),
+         ],
+      q(kwa) => [
+         q(3693),
+         q(0),
+         ],
+      q(kwb) => [
+         q(3694),
+         q(0),
+         ],
+      q(kwc) => [
+         q(3695),
+         q(0),
+         ],
+      q(kwd) => [
+         q(3696),
+         q(0),
+         ],
+      q(kwe) => [
+         q(3697),
+         q(0),
+         ],
+      q(kwf) => [
+         q(3698),
+         q(0),
+         ],
+      q(kwg) => [
+         q(3699),
+         q(0),
+         ],
+      q(kwh) => [
+         q(3700),
+         q(0),
+         ],
+      q(kwi) => [
+         q(3701),
+         q(0),
+         ],
+      q(kwj) => [
+         q(3702),
+         q(0),
+         ],
+      q(kwk) => [
+         q(3703),
+         q(0),
+         ],
+      q(kwl) => [
+         q(3704),
+         q(0),
+         ],
+      q(kwm) => [
+         q(3705),
+         q(0),
+         ],
+      q(kwn) => [
+         q(3706),
+         q(0),
+         ],
+      q(kwo) => [
+         q(3707),
+         q(0),
+         ],
+      q(kwp) => [
+         q(3708),
+         q(0),
+         ],
+      q(kwr) => [
+         q(3709),
+         q(0),
+         ],
+      q(kws) => [
+         q(3710),
+         q(0),
+         ],
+      q(kwt) => [
+         q(3711),
+         q(0),
+         ],
+      q(kwu) => [
+         q(3712),
+         q(0),
+         ],
+      q(kwv) => [
+         q(3713),
+         q(0),
+         ],
+      q(kww) => [
+         q(3714),
+         q(0),
+         ],
+      q(kwx) => [
+         q(3715),
+         q(0),
+         ],
+      q(kwy) => [
+         q(3716),
+         q(0),
+         ],
+      q(kwz) => [
+         q(3717),
+         q(0),
+         ],
+      q(kxa) => [
+         q(3718),
+         q(0),
+         ],
+      q(kxb) => [
+         q(3719),
+         q(0),
+         ],
+      q(kxc) => [
+         q(3720),
+         q(0),
+         ],
+      q(kxd) => [
+         q(3721),
+         q(0),
+         ],
+      q(kxf) => [
+         q(3722),
+         q(0),
+         ],
+      q(kxh) => [
+         q(3723),
+         q(0),
+         ],
+      q(kxi) => [
+         q(3724),
+         q(0),
+         ],
+      q(kxj) => [
+         q(3725),
+         q(0),
+         ],
+      q(kxk) => [
+         q(3726),
+         q(0),
+         ],
+      q(kxl) => [
+         q(3727),
+         q(0),
+         ],
+      q(kxm) => [
+         q(3728),
+         q(0),
+         ],
+      q(kxn) => [
+         q(3729),
+         q(0),
+         ],
+      q(kxo) => [
+         q(3730),
+         q(0),
+         ],
+      q(kxp) => [
+         q(3731),
+         q(0),
+         ],
+      q(kxq) => [
+         q(3732),
+         q(0),
+         ],
+      q(kxr) => [
+         q(3733),
+         q(0),
+         ],
+      q(kxs) => [
+         q(3734),
+         q(0),
+         ],
+      q(kxt) => [
+         q(3735),
+         q(0),
+         ],
+      q(kxu) => [
+         q(3736),
+         q(0),
+         ],
+      q(kxv) => [
+         q(3737),
+         q(0),
+         ],
+      q(kxw) => [
+         q(3738),
+         q(0),
+         ],
+      q(kxx) => [
+         q(3739),
+         q(0),
+         ],
+      q(kxy) => [
+         q(3740),
+         q(0),
+         ],
+      q(kxz) => [
+         q(3741),
+         q(0),
+         ],
+      q(kya) => [
+         q(3742),
+         q(0),
+         ],
+      q(kyb) => [
+         q(3743),
+         q(0),
+         ],
+      q(kyc) => [
+         q(3744),
+         q(0),
+         ],
+      q(kyd) => [
+         q(3745),
+         q(0),
+         ],
+      q(kye) => [
+         q(3746),
+         q(0),
+         ],
+      q(kyf) => [
+         q(3747),
+         q(0),
+         ],
+      q(kyg) => [
+         q(3748),
+         q(0),
+         ],
+      q(kyh) => [
+         q(3749),
+         q(0),
+         ],
+      q(kyi) => [
+         q(3750),
+         q(0),
+         ],
+      q(kyj) => [
+         q(3751),
+         q(0),
+         ],
+      q(kyk) => [
+         q(3752),
+         q(0),
+         ],
+      q(kyl) => [
+         q(3753),
+         q(0),
+         ],
+      q(kym) => [
+         q(3754),
+         q(0),
+         ],
+      q(kyn) => [
+         q(3755),
+         q(0),
+         ],
+      q(kyo) => [
+         q(3756),
+         q(0),
+         ],
+      q(kyp) => [
+         q(3757),
+         q(0),
+         ],
+      q(kyq) => [
+         q(3758),
+         q(0),
+         ],
+      q(kyr) => [
+         q(3759),
+         q(0),
+         ],
+      q(kys) => [
+         q(3760),
+         q(0),
+         ],
+      q(kyt) => [
+         q(3761),
+         q(0),
+         ],
+      q(kyu) => [
+         q(3762),
+         q(0),
+         ],
+      q(kyv) => [
+         q(3763),
+         q(0),
+         ],
+      q(kyw) => [
+         q(3764),
+         q(0),
+         ],
+      q(kyx) => [
+         q(3765),
+         q(0),
+         ],
+      q(kyy) => [
+         q(3766),
+         q(0),
+         ],
+      q(kyz) => [
+         q(3767),
+         q(0),
+         ],
+      q(kza) => [
+         q(3768),
+         q(0),
+         ],
+      q(kzb) => [
+         q(3769),
+         q(0),
+         ],
+      q(kzc) => [
+         q(3770),
+         q(0),
+         ],
+      q(kzd) => [
+         q(3771),
+         q(0),
+         ],
+      q(kze) => [
+         q(3772),
+         q(0),
+         ],
+      q(kzf) => [
+         q(3773),
+         q(0),
+         ],
+      q(kzg) => [
+         q(3774),
+         q(0),
+         ],
+      q(kzi) => [
+         q(3775),
+         q(0),
+         ],
+      q(kzj) => [
+         q(3776),
+         q(0),
+         ],
+      q(kzk) => [
+         q(3777),
+         q(0),
+         ],
+      q(kzl) => [
+         q(3778),
+         q(0),
+         ],
+      q(kzm) => [
+         q(3779),
+         q(0),
+         ],
+      q(kzn) => [
+         q(3780),
+         q(0),
+         ],
+      q(kzo) => [
+         q(3781),
+         q(0),
+         ],
+      q(kzp) => [
+         q(3782),
+         q(0),
+         ],
+      q(kzq) => [
+         q(3783),
+         q(0),
+         ],
+      q(kzr) => [
+         q(3784),
+         q(0),
+         ],
+      q(kzs) => [
+         q(3785),
+         q(0),
+         ],
+      q(kzt) => [
+         q(3786),
+         q(0),
+         ],
+      q(kzu) => [
+         q(3787),
+         q(0),
+         ],
+      q(kzv) => [
+         q(3788),
+         q(0),
+         ],
+      q(kzw) => [
+         q(3789),
+         q(0),
+         ],
+      q(kzx) => [
+         q(3790),
+         q(0),
+         ],
+      q(kzy) => [
+         q(3791),
+         q(0),
+         ],
+      q(kzz) => [
+         q(3792),
+         q(0),
+         ],
+      q(laa) => [
+         q(3793),
+         q(0),
+         ],
+      q(lab) => [
+         q(3794),
+         q(0),
+         ],
+      q(lac) => [
+         q(3795),
+         q(0),
+         ],
+      q(lad) => [
+         q(0242),
+         q(0),
+         ],
+      q(lae) => [
+         q(3796),
+         q(0),
+         ],
+      q(laf) => [
+         q(3797),
+         q(0),
+         ],
+      q(lag) => [
+         q(3798),
+         q(0),
+         ],
+      q(lah) => [
+         q(0243),
+         q(0),
+         ],
+      q(lai) => [
+         q(3799),
+         q(0),
+         ],
+      q(laj) => [
+         q(3800),
+         q(0),
+         ],
+      q(lak) => [
+         q(3801),
+         q(0),
+         ],
+      q(lal) => [
+         q(3802),
+         q(0),
+         ],
+      q(lam) => [
+         q(0244),
+         q(0),
+         ],
+      q(lan) => [
+         q(3803),
+         q(0),
+         ],
+      q(lao) => [
+         q(0245),
+         q(0),
+         ],
+      q(lap) => [
+         q(3804),
+         q(0),
+         ],
+      q(laq) => [
+         q(3805),
+         q(0),
+         ],
+      q(lar) => [
+         q(3806),
+         q(0),
+         ],
+      q(las) => [
+         q(3807),
+         q(0),
+         ],
+      q(lat) => [
+         q(0246),
+         q(0),
+         ],
+      q(lau) => [
+         q(3808),
+         q(0),
+         ],
+      q(lav) => [
+         q(0247),
+         q(0),
+         ],
+      q(law) => [
+         q(3809),
+         q(0),
+         ],
+      q(lax) => [
+         q(3810),
+         q(0),
+         ],
+      q(lay) => [
+         q(3811),
+         q(0),
+         ],
+      q(laz) => [
+         q(3812),
+         q(0),
+         ],
+      q(lba) => [
+         q(3813),
+         q(0),
+         ],
+      q(lbb) => [
+         q(3814),
+         q(0),
+         ],
+      q(lbc) => [
+         q(3815),
+         q(0),
+         ],
+      q(lbe) => [
+         q(3816),
+         q(0),
+         ],
+      q(lbf) => [
+         q(3817),
+         q(0),
+         ],
+      q(lbg) => [
+         q(3818),
+         q(0),
+         ],
+      q(lbi) => [
+         q(3819),
+         q(0),
+         ],
+      q(lbj) => [
+         q(3820),
+         q(0),
+         ],
+      q(lbk) => [
+         q(3821),
+         q(0),
+         ],
+      q(lbl) => [
+         q(3822),
+         q(0),
+         ],
+      q(lbm) => [
+         q(3823),
+         q(0),
+         ],
+      q(lbn) => [
+         q(3824),
+         q(0),
+         ],
+      q(lbo) => [
+         q(3825),
+         q(0),
+         ],
+      q(lbq) => [
+         q(3826),
+         q(0),
+         ],
+      q(lbr) => [
+         q(3827),
+         q(0),
+         ],
+      q(lbs) => [
+         q(3828),
+         q(0),
+         ],
+      q(lbt) => [
+         q(3829),
+         q(0),
+         ],
+      q(lbu) => [
+         q(3830),
+         q(0),
+         ],
+      q(lbv) => [
+         q(3831),
+         q(0),
+         ],
+      q(lbw) => [
+         q(3832),
+         q(0),
+         ],
+      q(lbx) => [
+         q(3833),
+         q(0),
+         ],
+      q(lby) => [
+         q(3834),
+         q(0),
+         ],
+      q(lbz) => [
+         q(3835),
+         q(0),
+         ],
+      q(lcc) => [
+         q(3836),
+         q(0),
+         ],
+      q(lcd) => [
+         q(3837),
+         q(0),
+         ],
+      q(lce) => [
+         q(3838),
+         q(0),
+         ],
+      q(lcf) => [
+         q(3839),
+         q(0),
+         ],
+      q(lch) => [
+         q(3840),
+         q(0),
+         ],
+      q(lcl) => [
+         q(3841),
+         q(0),
+         ],
+      q(lcm) => [
+         q(3842),
+         q(0),
+         ],
+      q(lcp) => [
+         q(3843),
+         q(0),
+         ],
+      q(lcq) => [
+         q(3844),
+         q(0),
+         ],
+      q(lcs) => [
+         q(3845),
+         q(0),
+         ],
+      q(lda) => [
+         q(3846),
+         q(0),
+         ],
+      q(ldb) => [
+         q(3847),
+         q(0),
+         ],
+      q(ldd) => [
+         q(3848),
+         q(0),
+         ],
+      q(ldg) => [
+         q(3849),
+         q(0),
+         ],
+      q(ldh) => [
+         q(3850),
+         q(0),
+         ],
+      q(ldi) => [
+         q(3851),
+         q(0),
+         ],
+      q(ldj) => [
+         q(3852),
+         q(0),
+         ],
+      q(ldk) => [
+         q(3853),
+         q(0),
+         ],
+      q(ldl) => [
+         q(3854),
+         q(0),
+         ],
+      q(ldm) => [
+         q(3855),
+         q(0),
+         ],
+      q(ldn) => [
+         q(3856),
+         q(0),
+         ],
+      q(ldo) => [
+         q(3857),
+         q(0),
+         ],
+      q(ldp) => [
+         q(3858),
+         q(0),
+         ],
+      q(ldq) => [
+         q(3859),
+         q(0),
+         ],
+      q(lea) => [
+         q(3860),
+         q(0),
+         ],
+      q(leb) => [
+         q(3861),
+         q(0),
+         ],
+      q(lec) => [
+         q(3862),
+         q(0),
+         ],
+      q(led) => [
+         q(3863),
+         q(0),
+         ],
+      q(lee) => [
+         q(3864),
+         q(0),
+         ],
+      q(lef) => [
+         q(3865),
+         q(0),
+         ],
+      q(leh) => [
+         q(3866),
+         q(0),
+         ],
+      q(lei) => [
+         q(3867),
+         q(0),
+         ],
+      q(lej) => [
+         q(3868),
+         q(0),
+         ],
+      q(lek) => [
+         q(3869),
+         q(0),
+         ],
+      q(lel) => [
+         q(3870),
+         q(0),
+         ],
+      q(lem) => [
+         q(3871),
+         q(0),
+         ],
+      q(len) => [
+         q(3872),
+         q(0),
+         ],
+      q(leo) => [
+         q(3873),
+         q(0),
+         ],
+      q(lep) => [
+         q(3874),
+         q(0),
+         ],
+      q(leq) => [
+         q(3875),
+         q(0),
+         ],
+      q(ler) => [
+         q(3876),
+         q(0),
+         ],
+      q(les) => [
+         q(3877),
+         q(0),
+         ],
+      q(let) => [
+         q(3878),
+         q(0),
+         ],
+      q(leu) => [
+         q(3879),
+         q(0),
+         ],
+      q(lev) => [
+         q(3880),
+         q(0),
+         ],
+      q(lew) => [
+         q(3881),
+         q(0),
+         ],
+      q(lex) => [
+         q(3882),
+         q(0),
+         ],
+      q(ley) => [
+         q(3883),
+         q(0),
+         ],
+      q(lez) => [
+         q(0248),
+         q(0),
+         ],
+      q(lfa) => [
+         q(3884),
+         q(0),
+         ],
+      q(lfn) => [
+         q(3885),
+         q(0),
+         ],
+      q(lga) => [
+         q(3886),
+         q(0),
+         ],
+      q(lgb) => [
+         q(3887),
+         q(0),
+         ],
+      q(lgg) => [
+         q(3888),
+         q(0),
+         ],
+      q(lgh) => [
+         q(3889),
+         q(0),
+         ],
+      q(lgi) => [
+         q(3890),
+         q(0),
+         ],
+      q(lgk) => [
+         q(3891),
+         q(0),
+         ],
+      q(lgl) => [
+         q(3892),
+         q(0),
+         ],
+      q(lgm) => [
+         q(3893),
+         q(0),
+         ],
+      q(lgn) => [
+         q(3894),
+         q(0),
+         ],
+      q(lgq) => [
+         q(3895),
+         q(0),
+         ],
+      q(lgr) => [
+         q(3896),
+         q(0),
+         ],
+      q(lgt) => [
+         q(3897),
+         q(0),
+         ],
+      q(lgu) => [
+         q(3898),
+         q(0),
+         ],
+      q(lgz) => [
+         q(3899),
+         q(0),
+         ],
+      q(lha) => [
+         q(3900),
+         q(0),
+         ],
+      q(lhh) => [
+         q(3901),
+         q(0),
+         ],
+      q(lhi) => [
+         q(3902),
+         q(0),
+         ],
+      q(lhl) => [
+         q(3903),
+         q(0),
+         ],
+      q(lhm) => [
+         q(3904),
+         q(0),
+         ],
+      q(lhn) => [
+         q(3905),
+         q(0),
+         ],
+      q(lhp) => [
+         q(3906),
+         q(0),
+         ],
+      q(lhs) => [
+         q(3907),
+         q(0),
+         ],
+      q(lht) => [
+         q(3908),
+         q(0),
+         ],
+      q(lhu) => [
+         q(3909),
+         q(0),
+         ],
+      q(lia) => [
+         q(3910),
+         q(0),
+         ],
+      q(lib) => [
+         q(3911),
+         q(0),
+         ],
+      q(lic) => [
+         q(3912),
+         q(0),
+         ],
+      q(lid) => [
+         q(3913),
+         q(0),
+         ],
+      q(lie) => [
+         q(3914),
+         q(0),
+         ],
+      q(lif) => [
+         q(3915),
+         q(0),
+         ],
+      q(lig) => [
+         q(3916),
+         q(0),
+         ],
+      q(lih) => [
+         q(3917),
+         q(0),
+         ],
+      q(lij) => [
+         q(3918),
+         q(0),
+         ],
+      q(lik) => [
+         q(3919),
+         q(0),
+         ],
+      q(lil) => [
+         q(3920),
+         q(0),
+         ],
+      q(lim) => [
+         q(0249),
+         q(0),
+         ],
+      q(lin) => [
+         q(0250),
+         q(0),
+         ],
+      q(lio) => [
+         q(3921),
+         q(0),
+         ],
+      q(lip) => [
+         q(3922),
+         q(0),
+         ],
+      q(liq) => [
+         q(3923),
+         q(0),
+         ],
+      q(lir) => [
+         q(3924),
+         q(0),
+         ],
+      q(lis) => [
+         q(3925),
+         q(0),
+         ],
+      q(lit) => [
+         q(0251),
+         q(0),
+         ],
+      q(liu) => [
+         q(3926),
+         q(0),
+         ],
+      q(liv) => [
+         q(3927),
+         q(0),
+         ],
+      q(liw) => [
+         q(3928),
+         q(0),
+         ],
+      q(lix) => [
+         q(3929),
+         q(0),
+         ],
+      q(liy) => [
+         q(3930),
+         q(0),
+         ],
+      q(liz) => [
+         q(3931),
+         q(0),
+         ],
+      q(lja) => [
+         q(3932),
+         q(0),
+         ],
+      q(lje) => [
+         q(3933),
+         q(0),
+         ],
+      q(lji) => [
+         q(3934),
+         q(0),
+         ],
+      q(ljl) => [
+         q(3935),
+         q(0),
+         ],
+      q(ljp) => [
+         q(3936),
+         q(0),
+         ],
+      q(ljw) => [
+         q(3937),
+         q(0),
+         ],
+      q(ljx) => [
+         q(3938),
+         q(0),
+         ],
+      q(lka) => [
+         q(3939),
+         q(0),
+         ],
+      q(lkb) => [
+         q(3940),
+         q(0),
+         ],
+      q(lkc) => [
+         q(3941),
+         q(0),
+         ],
+      q(lkd) => [
+         q(3942),
+         q(0),
+         ],
+      q(lke) => [
+         q(3943),
+         q(0),
+         ],
+      q(lkh) => [
+         q(3944),
+         q(0),
+         ],
+      q(lki) => [
+         q(3945),
+         q(0),
+         ],
+      q(lkj) => [
+         q(3946),
+         q(0),
+         ],
+      q(lkl) => [
+         q(3947),
+         q(0),
+         ],
+      q(lkm) => [
+         q(3948),
+         q(0),
+         ],
+      q(lkn) => [
+         q(3949),
+         q(0),
+         ],
+      q(lko) => [
+         q(3950),
+         q(0),
+         ],
+      q(lkr) => [
+         q(3951),
+         q(0),
+         ],
+      q(lks) => [
+         q(3952),
+         q(0),
+         ],
+      q(lkt) => [
+         q(3953),
+         q(0),
+         ],
+      q(lku) => [
+         q(3954),
+         q(0),
+         ],
+      q(lky) => [
+         q(3955),
+         q(0),
+         ],
+      q(lla) => [
+         q(3956),
+         q(0),
+         ],
+      q(llb) => [
+         q(3957),
+         q(0),
+         ],
+      q(llc) => [
+         q(3958),
+         q(0),
+         ],
+      q(lld) => [
+         q(3959),
+         q(0),
+         ],
+      q(lle) => [
+         q(3960),
+         q(0),
+         ],
+      q(llf) => [
+         q(3961),
+         q(0),
+         ],
+      q(llg) => [
+         q(3962),
+         q(0),
+         ],
+      q(llh) => [
+         q(3963),
+         q(0),
+         ],
+      q(lli) => [
+         q(3964),
+         q(0),
+         ],
+      q(llj) => [
+         q(3965),
+         q(0),
+         ],
+      q(llk) => [
+         q(3966),
+         q(0),
+         ],
+      q(lll) => [
+         q(3967),
+         q(0),
+         ],
+      q(llm) => [
+         q(3968),
+         q(0),
+         ],
+      q(lln) => [
+         q(3969),
+         q(0),
+         ],
+      q(llo) => [
+         q(3970),
+         q(0),
+         ],
+      q(llp) => [
+         q(3971),
+         q(0),
+         ],
+      q(llq) => [
+         q(3972),
+         q(0),
+         ],
+      q(lls) => [
+         q(3973),
+         q(0),
+         ],
+      q(llu) => [
+         q(3974),
+         q(0),
+         ],
+      q(llx) => [
+         q(3975),
+         q(0),
+         ],
+      q(lma) => [
+         q(3976),
+         q(0),
+         ],
+      q(lmb) => [
+         q(3977),
+         q(0),
+         ],
+      q(lmc) => [
+         q(3978),
+         q(0),
+         ],
+      q(lmd) => [
+         q(3979),
+         q(0),
+         ],
+      q(lme) => [
+         q(3980),
+         q(0),
+         ],
+      q(lmf) => [
+         q(3981),
+         q(0),
+         ],
+      q(lmg) => [
+         q(3982),
+         q(0),
+         ],
+      q(lmh) => [
+         q(3983),
+         q(0),
+         ],
+      q(lmi) => [
+         q(3984),
+         q(0),
+         ],
+      q(lmj) => [
+         q(3985),
+         q(0),
+         ],
+      q(lmk) => [
+         q(3986),
+         q(0),
+         ],
+      q(lml) => [
+         q(3987),
+         q(0),
+         ],
+      q(lmn) => [
+         q(3988),
+         q(0),
+         ],
+      q(lmo) => [
+         q(3989),
+         q(0),
+         ],
+      q(lmp) => [
+         q(3990),
+         q(0),
+         ],
+      q(lmq) => [
+         q(3991),
+         q(0),
+         ],
+      q(lmr) => [
+         q(3992),
+         q(0),
+         ],
+      q(lmu) => [
+         q(3993),
+         q(0),
+         ],
+      q(lmv) => [
+         q(3994),
+         q(0),
+         ],
+      q(lmw) => [
+         q(3995),
+         q(0),
+         ],
+      q(lmx) => [
+         q(3996),
+         q(0),
+         ],
+      q(lmy) => [
+         q(3997),
+         q(0),
+         ],
+      q(lmz) => [
+         q(3998),
+         q(0),
+         ],
+      q(lna) => [
+         q(3999),
+         q(0),
+         ],
+      q(lnb) => [
+         q(4000),
+         q(0),
+         ],
+      q(lnd) => [
+         q(4001),
+         q(0),
+         ],
+      q(lng) => [
+         q(4002),
+         q(0),
+         ],
+      q(lnh) => [
+         q(4003),
+         q(0),
+         ],
+      q(lni) => [
+         q(4004),
+         q(0),
+         ],
+      q(lnj) => [
+         q(4005),
+         q(0),
+         ],
+      q(lnl) => [
+         q(4006),
+         q(0),
+         ],
+      q(lnm) => [
+         q(4007),
+         q(0),
+         ],
+      q(lnn) => [
+         q(4008),
+         q(0),
+         ],
+      q(lno) => [
+         q(4009),
+         q(0),
+         ],
+      q(lns) => [
+         q(4010),
+         q(0),
+         ],
+      q(lnu) => [
+         q(4011),
+         q(0),
+         ],
+      q(lnw) => [
+         q(4012),
+         q(0),
+         ],
+      q(lnz) => [
+         q(4013),
+         q(0),
+         ],
+      q(loa) => [
+         q(4014),
+         q(0),
+         ],
+      q(lob) => [
+         q(4015),
+         q(0),
+         ],
+      q(loc) => [
+         q(4016),
+         q(0),
+         ],
+      q(loe) => [
+         q(4017),
+         q(0),
+         ],
+      q(lof) => [
+         q(4018),
+         q(0),
+         ],
+      q(log) => [
+         q(4019),
+         q(0),
+         ],
+      q(loh) => [
+         q(4020),
+         q(0),
+         ],
+      q(loi) => [
+         q(4021),
+         q(0),
+         ],
+      q(loj) => [
+         q(4022),
+         q(0),
+         ],
+      q(lok) => [
+         q(4023),
+         q(0),
+         ],
+      q(lol) => [
+         q(0252),
+         q(0),
+         ],
+      q(lom) => [
+         q(4024),
+         q(0),
+         ],
+      q(lon) => [
+         q(4025),
+         q(0),
+         ],
+      q(loo) => [
+         q(4026),
+         q(0),
+         ],
+      q(lop) => [
+         q(4027),
+         q(0),
+         ],
+      q(loq) => [
+         q(4028),
+         q(0),
+         ],
+      q(lor) => [
+         q(4029),
+         q(0),
+         ],
+      q(los) => [
+         q(4030),
+         q(0),
+         ],
+      q(lot) => [
+         q(4031),
+         q(0),
+         ],
+      q(lou) => [
+         q(4032),
+         q(0),
+         ],
+      q(lov) => [
+         q(4033),
+         q(0),
+         ],
+      q(low) => [
+         q(4034),
+         q(0),
+         ],
+      q(lox) => [
+         q(4035),
+         q(0),
+         ],
+      q(loy) => [
+         q(4036),
+         q(0),
+         ],
+      q(loz) => [
+         q(0253),
+         q(0),
+         ],
+      q(lpa) => [
+         q(4037),
+         q(0),
+         ],
+      q(lpe) => [
+         q(4038),
+         q(0),
+         ],
+      q(lpn) => [
+         q(4039),
+         q(0),
+         ],
+      q(lpo) => [
+         q(4040),
+         q(0),
+         ],
+      q(lpx) => [
+         q(4041),
+         q(0),
+         ],
+      q(lra) => [
+         q(4042),
+         q(0),
+         ],
+      q(lrc) => [
+         q(4043),
+         q(0),
+         ],
+      q(lre) => [
+         q(4044),
+         q(0),
+         ],
+      q(lrg) => [
+         q(4045),
+         q(0),
+         ],
+      q(lri) => [
+         q(4046),
+         q(0),
+         ],
+      q(lrk) => [
+         q(4047),
+         q(0),
+         ],
+      q(lrl) => [
+         q(4048),
+         q(0),
+         ],
+      q(lrm) => [
+         q(4049),
+         q(0),
+         ],
+      q(lrn) => [
+         q(4050),
+         q(0),
+         ],
+      q(lro) => [
+         q(4051),
+         q(0),
+         ],
+      q(lrr) => [
+         q(4052),
+         q(0),
+         ],
+      q(lrt) => [
+         q(4053),
+         q(0),
+         ],
+      q(lrv) => [
+         q(4054),
+         q(0),
+         ],
+      q(lrz) => [
+         q(4055),
+         q(0),
+         ],
+      q(lsa) => [
+         q(4056),
+         q(0),
+         ],
+      q(lsd) => [
+         q(4057),
+         q(0),
+         ],
+      q(lse) => [
+         q(4058),
+         q(0),
+         ],
+      q(lsg) => [
+         q(4059),
+         q(0),
+         ],
+      q(lsh) => [
+         q(4060),
+         q(0),
+         ],
+      q(lsi) => [
+         q(4061),
+         q(0),
+         ],
+      q(lsl) => [
+         q(4062),
+         q(0),
+         ],
+      q(lsm) => [
+         q(4063),
+         q(0),
+         ],
+      q(lso) => [
+         q(4064),
+         q(0),
+         ],
+      q(lsp) => [
+         q(4065),
+         q(0),
+         ],
+      q(lsr) => [
+         q(4066),
+         q(0),
+         ],
+      q(lss) => [
+         q(4067),
+         q(0),
+         ],
+      q(lst) => [
+         q(4068),
+         q(0),
+         ],
+      q(lsy) => [
+         q(4069),
+         q(0),
+         ],
+      q(ltc) => [
+         q(4070),
+         q(0),
+         ],
+      q(ltg) => [
+         q(4071),
+         q(0),
+         ],
+      q(lti) => [
+         q(4072),
+         q(0),
+         ],
+      q(ltn) => [
+         q(4073),
+         q(0),
+         ],
+      q(lto) => [
+         q(4074),
+         q(0),
+         ],
+      q(lts) => [
+         q(4075),
+         q(0),
+         ],
+      q(ltu) => [
+         q(4076),
+         q(0),
+         ],
+      q(ltz) => [
+         q(0254),
+         q(0),
+         ],
+      q(lua) => [
+         q(0255),
+         q(0),
+         ],
+      q(lub) => [
+         q(0256),
+         q(0),
+         ],
+      q(luc) => [
+         q(4077),
+         q(0),
+         ],
+      q(lud) => [
+         q(4078),
+         q(0),
+         ],
+      q(lue) => [
+         q(4079),
+         q(0),
+         ],
+      q(luf) => [
+         q(4080),
+         q(0),
+         ],
+      q(lug) => [
+         q(0257),
+         q(0),
+         ],
+      q(lui) => [
+         q(0258),
+         q(0),
+         ],
+      q(luj) => [
+         q(4081),
+         q(0),
+         ],
+      q(luk) => [
+         q(4082),
+         q(0),
+         ],
+      q(lul) => [
+         q(4083),
+         q(0),
+         ],
+      q(lum) => [
+         q(4084),
+         q(0),
+         ],
+      q(lun) => [
+         q(0259),
+         q(0),
+         ],
+      q(luo) => [
+         q(0260),
+         q(0),
+         ],
+      q(lup) => [
+         q(4085),
+         q(0),
+         ],
+      q(luq) => [
+         q(4086),
+         q(0),
+         ],
+      q(lur) => [
+         q(4087),
+         q(0),
+         ],
+      q(lus) => [
+         q(0261),
+         q(0),
+         ],
+      q(lut) => [
+         q(4088),
+         q(0),
+         ],
+      q(luu) => [
+         q(4089),
+         q(0),
+         ],
+      q(luv) => [
+         q(4090),
+         q(0),
+         ],
+      q(luw) => [
+         q(4091),
+         q(0),
+         ],
+      q(luy) => [
+         q(4092),
+         q(0),
+         ],
+      q(luz) => [
+         q(4093),
+         q(0),
+         ],
+      q(lva) => [
+         q(4094),
+         q(0),
+         ],
+      q(lvk) => [
+         q(4095),
+         q(0),
+         ],
+      q(lvs) => [
+         q(4096),
+         q(0),
+         ],
+      q(lvu) => [
+         q(4097),
+         q(0),
+         ],
+      q(lwa) => [
+         q(4098),
+         q(0),
+         ],
+      q(lwe) => [
+         q(4099),
+         q(0),
+         ],
+      q(lwg) => [
+         q(4100),
+         q(0),
+         ],
+      q(lwh) => [
+         q(4101),
+         q(0),
+         ],
+      q(lwl) => [
+         q(4102),
+         q(0),
+         ],
+      q(lwm) => [
+         q(4103),
+         q(0),
+         ],
+      q(lwo) => [
+         q(4104),
+         q(0),
+         ],
+      q(lwt) => [
+         q(4105),
+         q(0),
+         ],
+      q(lwu) => [
+         q(4106),
+         q(0),
+         ],
+      q(lww) => [
+         q(4107),
+         q(0),
+         ],
+      q(lya) => [
+         q(4108),
+         q(0),
+         ],
+      q(lyg) => [
+         q(4109),
+         q(0),
+         ],
+      q(lyn) => [
+         q(4110),
+         q(0),
+         ],
+      q(lzh) => [
+         q(4111),
+         q(0),
+         ],
+      q(lzl) => [
+         q(4112),
+         q(0),
+         ],
+      q(lzn) => [
+         q(4113),
+         q(0),
+         ],
+      q(lzz) => [
+         q(4114),
+         q(0),
+         ],
+      q(maa) => [
+         q(4115),
+         q(0),
+         ],
+      q(mab) => [
+         q(4116),
+         q(0),
+         ],
+      q(mac) => [
+         q(0262),
+         q(0),
+         ],
+      q(mad) => [
+         q(0263),
+         q(0),
+         ],
+      q(mae) => [
+         q(4117),
+         q(0),
+         ],
+      q(maf) => [
+         q(4118),
+         q(0),
+         ],
+      q(mag) => [
+         q(0264),
+         q(0),
+         ],
+      q(mah) => [
+         q(0265),
+         q(0),
+         ],
+      q(mai) => [
+         q(0266),
+         q(0),
+         ],
+      q(maj) => [
+         q(4119),
+         q(0),
+         ],
+      q(mak) => [
+         q(0267),
+         q(0),
+         ],
+      q(mal) => [
+         q(0268),
+         q(0),
+         ],
+      q(mam) => [
+         q(4120),
+         q(0),
+         ],
+      q(man) => [
+         q(0269),
+         q(0),
+         ],
+      q(mao) => [
+         q(0270),
+         q(0),
+         ],
+      q(map) => [
+         q(0271),
+         q(0),
+         ],
+      q(maq) => [
+         q(4121),
+         q(0),
+         ],
+      q(mar) => [
+         q(0272),
+         q(0),
+         ],
+      q(mas) => [
+         q(0273),
+         q(0),
+         ],
+      q(mat) => [
+         q(4122),
+         q(0),
+         ],
+      q(mau) => [
+         q(4123),
+         q(0),
+         ],
+      q(mav) => [
+         q(4124),
+         q(0),
+         ],
+      q(maw) => [
+         q(4125),
+         q(0),
+         ],
+      q(max) => [
+         q(4126),
+         q(0),
+         ],
+      q(may) => [
+         q(0274),
+         q(0),
+         ],
+      q(maz) => [
+         q(4127),
+         q(0),
+         ],
+      q(mba) => [
+         q(4128),
+         q(0),
+         ],
+      q(mbb) => [
+         q(4129),
+         q(0),
+         ],
+      q(mbc) => [
+         q(4130),
+         q(0),
+         ],
+      q(mbd) => [
+         q(4131),
+         q(0),
+         ],
+      q(mbe) => [
+         q(4132),
+         q(0),
+         ],
+      q(mbf) => [
+         q(4133),
+         q(0),
+         ],
+      q(mbh) => [
+         q(4134),
+         q(0),
+         ],
+      q(mbi) => [
+         q(4135),
+         q(0),
+         ],
+      q(mbj) => [
+         q(4136),
+         q(0),
+         ],
+      q(mbk) => [
+         q(4137),
+         q(0),
+         ],
+      q(mbl) => [
+         q(4138),
+         q(0),
+         ],
+      q(mbm) => [
+         q(4139),
+         q(0),
+         ],
+      q(mbn) => [
+         q(4140),
+         q(0),
+         ],
+      q(mbo) => [
+         q(4141),
+         q(0),
+         ],
+      q(mbp) => [
+         q(4142),
+         q(0),
+         ],
+      q(mbq) => [
+         q(4143),
+         q(0),
+         ],
+      q(mbr) => [
+         q(4144),
+         q(0),
+         ],
+      q(mbs) => [
+         q(4145),
+         q(0),
+         ],
+      q(mbt) => [
+         q(4146),
+         q(0),
+         ],
+      q(mbu) => [
+         q(4147),
+         q(0),
+         ],
+      q(mbv) => [
+         q(4148),
+         q(0),
+         ],
+      q(mbw) => [
+         q(4149),
+         q(0),
+         ],
+      q(mbx) => [
+         q(4150),
+         q(0),
+         ],
+      q(mby) => [
+         q(4151),
+         q(0),
+         ],
+      q(mbz) => [
+         q(4152),
+         q(0),
+         ],
+      q(mca) => [
+         q(4153),
+         q(0),
+         ],
+      q(mcb) => [
+         q(4154),
+         q(0),
+         ],
+      q(mcc) => [
+         q(4155),
+         q(0),
+         ],
+      q(mcd) => [
+         q(4156),
+         q(0),
+         ],
+      q(mce) => [
+         q(4157),
+         q(0),
+         ],
+      q(mcf) => [
+         q(4158),
+         q(0),
+         ],
+      q(mcg) => [
+         q(4159),
+         q(0),
+         ],
+      q(mch) => [
+         q(4160),
+         q(0),
+         ],
+      q(mci) => [
+         q(4161),
+         q(0),
+         ],
+      q(mcj) => [
+         q(4162),
+         q(0),
+         ],
+      q(mck) => [
+         q(4163),
+         q(0),
+         ],
+      q(mcl) => [
+         q(4164),
+         q(0),
+         ],
+      q(mcm) => [
+         q(4165),
+         q(0),
+         ],
+      q(mcn) => [
+         q(4166),
+         q(0),
+         ],
+      q(mco) => [
+         q(4167),
+         q(0),
+         ],
+      q(mcp) => [
+         q(4168),
+         q(0),
+         ],
+      q(mcq) => [
+         q(4169),
+         q(0),
+         ],
+      q(mcr) => [
+         q(4170),
+         q(0),
+         ],
+      q(mcs) => [
+         q(4171),
+         q(0),
+         ],
+      q(mct) => [
+         q(4172),
+         q(0),
+         ],
+      q(mcu) => [
+         q(4173),
+         q(0),
+         ],
+      q(mcv) => [
+         q(4174),
+         q(0),
+         ],
+      q(mcw) => [
+         q(4175),
+         q(0),
+         ],
+      q(mcx) => [
+         q(4176),
+         q(0),
+         ],
+      q(mcy) => [
+         q(4177),
+         q(0),
+         ],
+      q(mcz) => [
+         q(4178),
+         q(0),
+         ],
+      q(mda) => [
+         q(4179),
+         q(0),
+         ],
+      q(mdb) => [
+         q(4180),
+         q(0),
+         ],
+      q(mdc) => [
+         q(4181),
+         q(0),
+         ],
+      q(mdd) => [
+         q(4182),
+         q(0),
+         ],
+      q(mde) => [
+         q(4183),
+         q(0),
+         ],
+      q(mdf) => [
+         q(0275),
+         q(0),
+         ],
+      q(mdg) => [
+         q(4184),
+         q(0),
+         ],
+      q(mdh) => [
+         q(4185),
+         q(0),
+         ],
+      q(mdi) => [
+         q(4186),
+         q(0),
+         ],
+      q(mdj) => [
+         q(4187),
+         q(0),
+         ],
+      q(mdk) => [
+         q(4188),
+         q(0),
+         ],
+      q(mdl) => [
+         q(4189),
+         q(0),
+         ],
+      q(mdm) => [
+         q(4190),
+         q(0),
+         ],
+      q(mdn) => [
+         q(4191),
+         q(0),
+         ],
+      q(mdp) => [
+         q(4192),
+         q(0),
+         ],
+      q(mdq) => [
+         q(4193),
+         q(0),
+         ],
+      q(mdr) => [
+         q(0276),
+         q(0),
+         ],
+      q(mds) => [
+         q(4194),
+         q(0),
+         ],
+      q(mdt) => [
+         q(4195),
+         q(0),
+         ],
+      q(mdu) => [
+         q(4196),
+         q(0),
+         ],
+      q(mdv) => [
+         q(4197),
+         q(0),
+         ],
+      q(mdw) => [
+         q(4198),
+         q(0),
+         ],
+      q(mdx) => [
+         q(4199),
+         q(0),
+         ],
+      q(mdy) => [
+         q(4200),
+         q(0),
+         ],
+      q(mdz) => [
+         q(4201),
+         q(0),
+         ],
+      q(mea) => [
+         q(4202),
+         q(0),
+         ],
+      q(meb) => [
+         q(4203),
+         q(0),
+         ],
+      q(mec) => [
+         q(4204),
+         q(0),
+         ],
+      q(med) => [
+         q(4205),
+         q(0),
+         ],
+      q(mee) => [
+         q(4206),
+         q(0),
+         ],
+      q(mef) => [
+         q(4207),
+         q(0),
+         ],
+      q(meh) => [
+         q(4208),
+         q(0),
+         ],
+      q(mei) => [
+         q(4209),
+         q(0),
+         ],
+      q(mej) => [
+         q(4210),
+         q(0),
+         ],
+      q(mek) => [
+         q(4211),
+         q(0),
+         ],
+      q(mel) => [
+         q(4212),
+         q(0),
+         ],
+      q(mem) => [
+         q(4213),
+         q(0),
+         ],
+      q(men) => [
+         q(0277),
+         q(1),
+         ],
+      q(meo) => [
+         q(4214),
+         q(0),
+         ],
+      q(mep) => [
+         q(4215),
+         q(0),
+         ],
+      q(meq) => [
+         q(4216),
+         q(0),
+         ],
+      q(mer) => [
+         q(4217),
+         q(0),
+         ],
+      q(mes) => [
+         q(4218),
+         q(0),
+         ],
+      q(met) => [
+         q(4219),
+         q(0),
+         ],
+      q(meu) => [
+         q(4220),
+         q(0),
+         ],
+      q(mev) => [
+         q(4221),
+         q(0),
+         ],
+      q(mew) => [
+         q(4222),
+         q(0),
+         ],
+      q(mey) => [
+         q(4223),
+         q(0),
+         ],
+      q(mez) => [
+         q(4224),
+         q(0),
+         ],
+      q(mfa) => [
+         q(4225),
+         q(0),
+         ],
+      q(mfb) => [
+         q(4226),
+         q(0),
+         ],
+      q(mfc) => [
+         q(4227),
+         q(0),
+         ],
+      q(mfd) => [
+         q(4228),
+         q(0),
+         ],
+      q(mfe) => [
+         q(4229),
+         q(0),
+         ],
+      q(mff) => [
+         q(4230),
+         q(0),
+         ],
+      q(mfg) => [
+         q(4231),
+         q(0),
+         ],
+      q(mfh) => [
+         q(4232),
+         q(0),
+         ],
+      q(mfi) => [
+         q(4233),
+         q(0),
+         ],
+      q(mfj) => [
+         q(4234),
+         q(0),
+         ],
+      q(mfk) => [
+         q(4235),
+         q(0),
+         ],
+      q(mfl) => [
+         q(4236),
+         q(0),
+         ],
+      q(mfm) => [
+         q(4237),
+         q(0),
+         ],
+      q(mfn) => [
+         q(4238),
+         q(0),
+         ],
+      q(mfo) => [
+         q(4239),
+         q(0),
+         ],
+      q(mfp) => [
+         q(4240),
+         q(0),
+         ],
+      q(mfq) => [
+         q(4241),
+         q(0),
+         ],
+      q(mfr) => [
+         q(4242),
+         q(0),
+         ],
+      q(mfs) => [
+         q(4243),
+         q(0),
+         ],
+      q(mft) => [
+         q(4244),
+         q(0),
+         ],
+      q(mfu) => [
+         q(4245),
+         q(0),
+         ],
+      q(mfv) => [
+         q(4246),
+         q(0),
+         ],
+      q(mfw) => [
+         q(4247),
+         q(0),
+         ],
+      q(mfx) => [
+         q(4248),
+         q(0),
+         ],
+      q(mfy) => [
+         q(4249),
+         q(0),
+         ],
+      q(mfz) => [
+         q(4250),
+         q(0),
+         ],
+      q(mga) => [
+         q(0278),
+         q(1),
+         ],
+      q(mgb) => [
+         q(4251),
+         q(0),
+         ],
+      q(mgc) => [
+         q(4252),
+         q(0),
+         ],
+      q(mgd) => [
+         q(4253),
+         q(0),
+         ],
+      q(mge) => [
+         q(4254),
+         q(0),
+         ],
+      q(mgf) => [
+         q(4255),
+         q(0),
+         ],
+      q(mgg) => [
+         q(4256),
+         q(0),
+         ],
+      q(mgh) => [
+         q(4257),
+         q(0),
+         ],
+      q(mgi) => [
+         q(4258),
+         q(0),
+         ],
+      q(mgj) => [
+         q(4259),
+         q(0),
+         ],
+      q(mgk) => [
+         q(4260),
+         q(0),
+         ],
+      q(mgl) => [
+         q(4261),
+         q(0),
+         ],
+      q(mgm) => [
+         q(4262),
+         q(0),
+         ],
+      q(mgn) => [
+         q(4263),
+         q(0),
+         ],
+      q(mgo) => [
+         q(4264),
+         q(0),
+         ],
+      q(mgp) => [
+         q(4265),
+         q(0),
+         ],
+      q(mgq) => [
+         q(4266),
+         q(0),
+         ],
+      q(mgr) => [
+         q(4267),
+         q(0),
+         ],
+      q(mgs) => [
+         q(4268),
+         q(0),
+         ],
+      q(mgt) => [
+         q(4269),
+         q(0),
+         ],
+      q(mgu) => [
+         q(4270),
+         q(0),
+         ],
+      q(mgv) => [
+         q(4271),
+         q(0),
+         ],
+      q(mgw) => [
+         q(4272),
+         q(0),
+         ],
+      q(mgy) => [
+         q(4273),
+         q(0),
+         ],
+      q(mgz) => [
+         q(4274),
+         q(0),
+         ],
+      q(mha) => [
+         q(4275),
+         q(0),
+         ],
+      q(mhb) => [
+         q(4276),
+         q(0),
+         ],
+      q(mhc) => [
+         q(4277),
+         q(0),
+         ],
+      q(mhd) => [
+         q(4278),
+         q(0),
+         ],
+      q(mhe) => [
+         q(4279),
+         q(0),
+         ],
+      q(mhf) => [
+         q(4280),
+         q(0),
+         ],
+      q(mhg) => [
+         q(4281),
+         q(0),
+         ],
+      q(mhi) => [
+         q(4282),
+         q(0),
+         ],
+      q(mhj) => [
+         q(4283),
+         q(0),
+         ],
+      q(mhk) => [
+         q(4284),
+         q(0),
+         ],
+      q(mhl) => [
+         q(4285),
+         q(0),
+         ],
+      q(mhm) => [
+         q(4286),
+         q(0),
+         ],
+      q(mhn) => [
+         q(4287),
+         q(0),
+         ],
+      q(mho) => [
+         q(4288),
+         q(0),
+         ],
+      q(mhp) => [
+         q(4289),
+         q(0),
+         ],
+      q(mhq) => [
+         q(4290),
+         q(0),
+         ],
+      q(mhr) => [
+         q(4291),
+         q(0),
+         ],
+      q(mhs) => [
+         q(4292),
+         q(0),
+         ],
+      q(mht) => [
+         q(4293),
+         q(0),
+         ],
+      q(mhu) => [
+         q(4294),
+         q(0),
+         ],
+      q(mhw) => [
+         q(4295),
+         q(0),
+         ],
+      q(mhx) => [
+         q(4296),
+         q(0),
+         ],
+      q(mhy) => [
+         q(4297),
+         q(0),
+         ],
+      q(mhz) => [
+         q(4298),
+         q(0),
+         ],
+      q(mia) => [
+         q(4299),
+         q(0),
+         ],
+      q(mib) => [
+         q(4300),
+         q(0),
+         ],
+      q(mic) => [
+         q(0279),
+         q(0),
+         ],
+      q(mid) => [
+         q(4301),
+         q(0),
+         ],
+      q(mie) => [
+         q(4302),
+         q(0),
+         ],
+      q(mif) => [
+         q(4303),
+         q(0),
+         ],
+      q(mig) => [
+         q(4304),
+         q(0),
+         ],
+      q(mih) => [
+         q(4305),
+         q(0),
+         ],
+      q(mii) => [
+         q(4306),
+         q(0),
+         ],
+      q(mij) => [
+         q(4307),
+         q(0),
+         ],
+      q(mik) => [
+         q(4308),
+         q(0),
+         ],
+      q(mil) => [
+         q(4309),
+         q(0),
+         ],
+      q(mim) => [
+         q(4310),
+         q(0),
+         ],
+      q(min) => [
+         q(0280),
+         q(0),
+         ],
+      q(mio) => [
+         q(4311),
+         q(0),
+         ],
+      q(mip) => [
+         q(4312),
+         q(0),
+         ],
+      q(miq) => [
+         q(4313),
+         q(0),
+         ],
+      q(mir) => [
+         q(4314),
+         q(0),
+         ],
+      q(mis) => [
+         q(0281),
+         q(0),
+         ],
+      q(mit) => [
+         q(4315),
+         q(0),
+         ],
+      q(miu) => [
+         q(4316),
+         q(0),
+         ],
+      q(miw) => [
+         q(4317),
+         q(0),
+         ],
+      q(mix) => [
+         q(4318),
+         q(0),
+         ],
+      q(miy) => [
+         q(4319),
+         q(0),
+         ],
+      q(miz) => [
+         q(4320),
+         q(0),
+         ],
+      q(mjc) => [
+         q(4321),
+         q(0),
+         ],
+      q(mjd) => [
+         q(4322),
+         q(0),
+         ],
+      q(mje) => [
+         q(4323),
+         q(0),
+         ],
+      q(mjg) => [
+         q(4324),
+         q(0),
+         ],
+      q(mjh) => [
+         q(4325),
+         q(0),
+         ],
+      q(mji) => [
+         q(4326),
+         q(0),
+         ],
+      q(mjj) => [
+         q(4327),
+         q(0),
+         ],
+      q(mjk) => [
+         q(4328),
+         q(0),
+         ],
+      q(mjl) => [
+         q(4329),
+         q(0),
+         ],
+      q(mjm) => [
+         q(4330),
+         q(0),
+         ],
+      q(mjn) => [
+         q(4331),
+         q(0),
+         ],
+      q(mjo) => [
+         q(4332),
+         q(0),
+         ],
+      q(mjp) => [
+         q(4333),
+         q(0),
+         ],
+      q(mjq) => [
+         q(4334),
+         q(0),
+         ],
+      q(mjr) => [
+         q(4335),
+         q(0),
+         ],
+      q(mjs) => [
+         q(4336),
+         q(0),
+         ],
+      q(mjt) => [
+         q(4337),
+         q(0),
+         ],
+      q(mju) => [
+         q(4338),
+         q(0),
+         ],
+      q(mjv) => [
+         q(4339),
+         q(0),
+         ],
+      q(mjw) => [
+         q(4340),
+         q(0),
+         ],
+      q(mjx) => [
+         q(4341),
+         q(0),
+         ],
+      q(mjy) => [
+         q(4342),
+         q(0),
+         ],
+      q(mjz) => [
+         q(4343),
+         q(0),
+         ],
+      q(mka) => [
+         q(4344),
+         q(0),
+         ],
+      q(mkb) => [
+         q(4345),
+         q(0),
+         ],
+      q(mkc) => [
+         q(4346),
+         q(0),
+         ],
+      q(mke) => [
+         q(4347),
+         q(0),
+         ],
+      q(mkf) => [
+         q(4348),
+         q(0),
+         ],
+      q(mkg) => [
+         q(4349),
+         q(0),
+         ],
+      q(mkh) => [
+         q(0282),
+         q(0),
+         ],
+      q(mki) => [
+         q(4350),
+         q(0),
+         ],
+      q(mkj) => [
+         q(4351),
+         q(0),
+         ],
+      q(mkk) => [
+         q(4352),
+         q(0),
+         ],
+      q(mkl) => [
+         q(4353),
+         q(0),
+         ],
+      q(mkm) => [
+         q(4354),
+         q(0),
+         ],
+      q(mkn) => [
+         q(4355),
+         q(0),
+         ],
+      q(mko) => [
+         q(4356),
+         q(0),
+         ],
+      q(mkp) => [
+         q(4357),
+         q(0),
+         ],
+      q(mkq) => [
+         q(4358),
+         q(0),
+         ],
+      q(mkr) => [
+         q(4359),
+         q(0),
+         ],
+      q(mks) => [
+         q(4360),
+         q(0),
+         ],
+      q(mkt) => [
+         q(4361),
+         q(0),
+         ],
+      q(mku) => [
+         q(4362),
+         q(0),
+         ],
+      q(mkv) => [
+         q(4363),
+         q(0),
+         ],
+      q(mkw) => [
+         q(4364),
+         q(0),
+         ],
+      q(mkx) => [
+         q(4365),
+         q(0),
+         ],
+      q(mky) => [
+         q(4366),
+         q(0),
+         ],
+      q(mkz) => [
+         q(4367),
+         q(0),
+         ],
+      q(mla) => [
+         q(4368),
+         q(0),
+         ],
+      q(mlb) => [
+         q(4369),
+         q(0),
+         ],
+      q(mlc) => [
+         q(4370),
+         q(0),
+         ],
+      q(mle) => [
+         q(4371),
+         q(0),
+         ],
+      q(mlf) => [
+         q(4372),
+         q(0),
+         ],
+      q(mlg) => [
+         q(0283),
+         q(0),
+         ],
+      q(mlh) => [
+         q(4373),
+         q(0),
+         ],
+      q(mli) => [
+         q(4374),
+         q(0),
+         ],
+      q(mlj) => [
+         q(4375),
+         q(0),
+         ],
+      q(mlk) => [
+         q(4376),
+         q(0),
+         ],
+      q(mll) => [
+         q(4377),
+         q(0),
+         ],
+      q(mlm) => [
+         q(4378),
+         q(0),
+         ],
+      q(mln) => [
+         q(4379),
+         q(0),
+         ],
+      q(mlo) => [
+         q(4380),
+         q(0),
+         ],
+      q(mlp) => [
+         q(4381),
+         q(0),
+         ],
+      q(mlq) => [
+         q(4382),
+         q(0),
+         ],
+      q(mlr) => [
+         q(4383),
+         q(0),
+         ],
+      q(mls) => [
+         q(4384),
+         q(0),
+         ],
+      q(mlt) => [
+         q(0284),
+         q(0),
+         ],
+      q(mlu) => [
+         q(4385),
+         q(0),
+         ],
+      q(mlv) => [
+         q(4386),
+         q(0),
+         ],
+      q(mlw) => [
+         q(4387),
+         q(0),
+         ],
+      q(mlx) => [
+         q(4388),
+         q(0),
+         ],
+      q(mlz) => [
+         q(4389),
+         q(0),
+         ],
+      q(mma) => [
+         q(4390),
+         q(0),
+         ],
+      q(mmb) => [
+         q(4391),
+         q(0),
+         ],
+      q(mmc) => [
+         q(4392),
+         q(0),
+         ],
+      q(mmd) => [
+         q(4393),
+         q(0),
+         ],
+      q(mme) => [
+         q(4394),
+         q(0),
+         ],
+      q(mmf) => [
+         q(4395),
+         q(0),
+         ],
+      q(mmg) => [
+         q(4396),
+         q(0),
+         ],
+      q(mmh) => [
+         q(4397),
+         q(0),
+         ],
+      q(mmi) => [
+         q(4398),
+         q(0),
+         ],
+      q(mmj) => [
+         q(4399),
+         q(0),
+         ],
+      q(mmk) => [
+         q(4400),
+         q(0),
+         ],
+      q(mml) => [
+         q(4401),
+         q(0),
+         ],
+      q(mmm) => [
+         q(4402),
+         q(0),
+         ],
+      q(mmn) => [
+         q(4403),
+         q(0),
+         ],
+      q(mmo) => [
+         q(4404),
+         q(0),
+         ],
+      q(mmp) => [
+         q(4405),
+         q(0),
+         ],
+      q(mmq) => [
+         q(4406),
+         q(0),
+         ],
+      q(mmr) => [
+         q(4407),
+         q(0),
+         ],
+      q(mmt) => [
+         q(4408),
+         q(0),
+         ],
+      q(mmu) => [
+         q(4409),
+         q(0),
+         ],
+      q(mmv) => [
+         q(4410),
+         q(0),
+         ],
+      q(mmw) => [
+         q(4411),
+         q(0),
+         ],
+      q(mmx) => [
+         q(4412),
+         q(0),
+         ],
+      q(mmy) => [
+         q(4413),
+         q(0),
+         ],
+      q(mmz) => [
+         q(4414),
+         q(0),
+         ],
+      q(mna) => [
+         q(4415),
+         q(0),
+         ],
+      q(mnb) => [
+         q(4416),
+         q(0),
+         ],
+      q(mnc) => [
+         q(0285),
+         q(0),
+         ],
+      q(mnd) => [
+         q(4417),
+         q(0),
+         ],
+      q(mne) => [
+         q(4418),
+         q(0),
+         ],
+      q(mnf) => [
+         q(4419),
+         q(0),
+         ],
+      q(mng) => [
+         q(4420),
+         q(0),
+         ],
+      q(mnh) => [
+         q(4421),
+         q(0),
+         ],
+      q(mni) => [
+         q(0286),
+         q(0),
+         ],
+      q(mnj) => [
+         q(4422),
+         q(0),
+         ],
+      q(mnk) => [
+         q(4423),
+         q(0),
+         ],
+      q(mnl) => [
+         q(4424),
+         q(0),
+         ],
+      q(mnm) => [
+         q(4425),
+         q(0),
+         ],
+      q(mnn) => [
+         q(4426),
+         q(0),
+         ],
+      q(mno) => [
+         q(0287),
+         q(0),
+         ],
+      q(mnp) => [
+         q(4427),
+         q(0),
+         ],
+      q(mnq) => [
+         q(4428),
+         q(0),
+         ],
+      q(mnr) => [
+         q(4429),
+         q(0),
+         ],
+      q(mns) => [
+         q(4430),
+         q(0),
+         ],
+      q(mnu) => [
+         q(4431),
+         q(0),
+         ],
+      q(mnv) => [
+         q(4432),
+         q(0),
+         ],
+      q(mnw) => [
+         q(4433),
+         q(0),
+         ],
+      q(mnx) => [
+         q(4434),
+         q(0),
+         ],
+      q(mny) => [
+         q(4435),
+         q(0),
+         ],
+      q(mnz) => [
+         q(4436),
+         q(0),
+         ],
+      q(moa) => [
+         q(4437),
+         q(0),
+         ],
+      q(moc) => [
+         q(4438),
+         q(0),
+         ],
+      q(mod) => [
+         q(4439),
+         q(0),
+         ],
+      q(moe) => [
+         q(4440),
+         q(0),
+         ],
+      q(mog) => [
+         q(4441),
+         q(0),
+         ],
+      q(moh) => [
+         q(0288),
+         q(0),
+         ],
+      q(moi) => [
+         q(4442),
+         q(0),
+         ],
+      q(moj) => [
+         q(4443),
+         q(0),
+         ],
+      q(mok) => [
+         q(4444),
+         q(0),
+         ],
+      q(mom) => [
+         q(4445),
+         q(0),
+         ],
+      q(mon) => [
+         q(0289),
+         q(0),
+         ],
+      q(moo) => [
+         q(4446),
+         q(0),
+         ],
+      q(mop) => [
+         q(4447),
+         q(0),
+         ],
+      q(moq) => [
+         q(4448),
+         q(0),
+         ],
+      q(mor) => [
+         q(4449),
+         q(0),
+         ],
+      q(mos) => [
+         q(0290),
+         q(0),
+         ],
+      q(mot) => [
+         q(1136),
+         q(0),
+         ],
+      q(mou) => [
+         q(4450),
+         q(0),
+         ],
+      q(mov) => [
+         q(4451),
+         q(0),
+         ],
+      q(mow) => [
+         q(4452),
+         q(0),
+         ],
+      q(mox) => [
+         q(4453),
+         q(0),
+         ],
+      q(moy) => [
+         q(4454),
+         q(0),
+         ],
+      q(moz) => [
+         q(4455),
+         q(0),
+         ],
+      q(mpa) => [
+         q(4456),
+         q(0),
+         ],
+      q(mpb) => [
+         q(4457),
+         q(0),
+         ],
+      q(mpc) => [
+         q(4458),
+         q(0),
+         ],
+      q(mpd) => [
+         q(4459),
+         q(0),
+         ],
+      q(mpe) => [
+         q(4460),
+         q(0),
+         ],
+      q(mpg) => [
+         q(4461),
+         q(0),
+         ],
+      q(mph) => [
+         q(4462),
+         q(0),
+         ],
+      q(mpi) => [
+         q(4463),
+         q(0),
+         ],
+      q(mpj) => [
+         q(4464),
+         q(0),
+         ],
+      q(mpk) => [
+         q(4465),
+         q(0),
+         ],
+      q(mpl) => [
+         q(4466),
+         q(0),
+         ],
+      q(mpm) => [
+         q(4467),
+         q(0),
+         ],
+      q(mpn) => [
+         q(4468),
+         q(0),
+         ],
+      q(mpo) => [
+         q(4469),
+         q(0),
+         ],
+      q(mpp) => [
+         q(4470),
+         q(0),
+         ],
+      q(mpq) => [
+         q(4471),
+         q(0),
+         ],
+      q(mpr) => [
+         q(4472),
+         q(0),
+         ],
+      q(mps) => [
+         q(4473),
+         q(0),
+         ],
+      q(mpt) => [
+         q(4474),
+         q(0),
+         ],
+      q(mpu) => [
+         q(4475),
+         q(0),
+         ],
+      q(mpv) => [
+         q(4476),
+         q(0),
+         ],
+      q(mpw) => [
+         q(4477),
+         q(0),
+         ],
+      q(mpx) => [
+         q(4478),
+         q(0),
+         ],
+      q(mpy) => [
+         q(4479),
+         q(0),
+         ],
+      q(mpz) => [
+         q(4480),
+         q(0),
+         ],
+      q(mqa) => [
+         q(4481),
+         q(0),
+         ],
+      q(mqb) => [
+         q(4482),
+         q(0),
+         ],
+      q(mqc) => [
+         q(4483),
+         q(0),
+         ],
+      q(mqe) => [
+         q(4484),
+         q(0),
+         ],
+      q(mqf) => [
+         q(4485),
+         q(0),
+         ],
+      q(mqg) => [
+         q(4486),
+         q(0),
+         ],
+      q(mqh) => [
+         q(4487),
+         q(0),
+         ],
+      q(mqi) => [
+         q(4488),
+         q(0),
+         ],
+      q(mqj) => [
+         q(4489),
+         q(0),
+         ],
+      q(mqk) => [
+         q(4490),
+         q(0),
+         ],
+      q(mql) => [
+         q(4491),
+         q(0),
+         ],
+      q(mqm) => [
+         q(4492),
+         q(0),
+         ],
+      q(mqn) => [
+         q(4493),
+         q(0),
+         ],
+      q(mqo) => [
+         q(4494),
+         q(0),
+         ],
+      q(mqp) => [
+         q(4495),
+         q(0),
+         ],
+      q(mqq) => [
+         q(4496),
+         q(0),
+         ],
+      q(mqr) => [
+         q(4497),
+         q(0),
+         ],
+      q(mqs) => [
+         q(4498),
+         q(0),
+         ],
+      q(mqt) => [
+         q(4499),
+         q(0),
+         ],
+      q(mqu) => [
+         q(4500),
+         q(0),
+         ],
+      q(mqv) => [
+         q(4501),
+         q(0),
+         ],
+      q(mqw) => [
+         q(4502),
+         q(0),
+         ],
+      q(mqx) => [
+         q(4503),
+         q(0),
+         ],
+      q(mqy) => [
+         q(4504),
+         q(0),
+         ],
+      q(mqz) => [
+         q(4505),
+         q(0),
+         ],
+      q(mra) => [
+         q(4506),
+         q(0),
+         ],
+      q(mrb) => [
+         q(4507),
+         q(0),
+         ],
+      q(mrc) => [
+         q(4508),
+         q(0),
+         ],
+      q(mrd) => [
+         q(4509),
+         q(0),
+         ],
+      q(mre) => [
+         q(4510),
+         q(0),
+         ],
+      q(mrf) => [
+         q(4511),
+         q(0),
+         ],
+      q(mrg) => [
+         q(4512),
+         q(0),
+         ],
+      q(mrh) => [
+         q(4513),
+         q(0),
+         ],
+      q(mrj) => [
+         q(4514),
+         q(0),
+         ],
+      q(mrk) => [
+         q(4515),
+         q(0),
+         ],
+      q(mrl) => [
+         q(4516),
+         q(0),
+         ],
+      q(mrm) => [
+         q(4517),
+         q(0),
+         ],
+      q(mrn) => [
+         q(4518),
+         q(0),
+         ],
+      q(mro) => [
+         q(4519),
+         q(0),
+         ],
+      q(mrp) => [
+         q(4520),
+         q(0),
+         ],
+      q(mrq) => [
+         q(4521),
+         q(0),
+         ],
+      q(mrr) => [
+         q(4522),
+         q(0),
+         ],
+      q(mrs) => [
+         q(4523),
+         q(0),
+         ],
+      q(mrt) => [
+         q(4524),
+         q(0),
+         ],
+      q(mru) => [
+         q(4525),
+         q(0),
+         ],
+      q(mrv) => [
+         q(4526),
+         q(0),
+         ],
+      q(mrw) => [
+         q(4527),
+         q(0),
+         ],
+      q(mrx) => [
+         q(4528),
+         q(0),
+         ],
+      q(mry) => [
+         q(4529),
+         q(0),
+         ],
+      q(mrz) => [
+         q(4530),
+         q(0),
+         ],
+      q(msb) => [
+         q(4531),
+         q(0),
+         ],
+      q(msc) => [
+         q(4532),
+         q(0),
+         ],
+      q(msd) => [
+         q(4533),
+         q(0),
+         ],
+      q(mse) => [
+         q(4534),
+         q(0),
+         ],
+      q(msf) => [
+         q(4535),
+         q(0),
+         ],
+      q(msg) => [
+         q(4536),
+         q(0),
+         ],
+      q(msh) => [
+         q(4537),
+         q(0),
+         ],
+      q(msi) => [
+         q(4538),
+         q(0),
+         ],
+      q(msj) => [
+         q(4539),
+         q(0),
+         ],
+      q(msk) => [
+         q(4540),
+         q(0),
+         ],
+      q(msl) => [
+         q(4541),
+         q(0),
+         ],
+      q(msm) => [
+         q(4542),
+         q(0),
+         ],
+      q(msn) => [
+         q(4543),
+         q(0),
+         ],
+      q(mso) => [
+         q(4544),
+         q(0),
+         ],
+      q(msp) => [
+         q(4545),
+         q(0),
+         ],
+      q(msq) => [
+         q(4546),
+         q(0),
+         ],
+      q(msr) => [
+         q(4547),
+         q(0),
+         ],
+      q(mss) => [
+         q(4548),
+         q(0),
+         ],
+      q(msu) => [
+         q(4549),
+         q(0),
+         ],
+      q(msv) => [
+         q(4550),
+         q(0),
+         ],
+      q(msw) => [
+         q(4551),
+         q(0),
+         ],
+      q(msx) => [
+         q(4552),
+         q(0),
+         ],
+      q(msy) => [
+         q(4553),
+         q(0),
+         ],
+      q(msz) => [
+         q(4554),
+         q(0),
+         ],
+      q(mta) => [
+         q(4555),
+         q(0),
+         ],
+      q(mtb) => [
+         q(4556),
+         q(0),
+         ],
+      q(mtc) => [
+         q(4557),
+         q(0),
+         ],
+      q(mtd) => [
+         q(4558),
+         q(0),
+         ],
+      q(mte) => [
+         q(4559),
+         q(0),
+         ],
+      q(mtf) => [
+         q(4560),
+         q(0),
+         ],
+      q(mtg) => [
+         q(4561),
+         q(0),
+         ],
+      q(mth) => [
+         q(4562),
+         q(0),
+         ],
+      q(mti) => [
+         q(4563),
+         q(0),
+         ],
+      q(mtj) => [
+         q(4564),
+         q(0),
+         ],
+      q(mtk) => [
+         q(4565),
+         q(0),
+         ],
+      q(mtl) => [
+         q(4566),
+         q(0),
+         ],
+      q(mtm) => [
+         q(4567),
+         q(0),
+         ],
+      q(mtn) => [
+         q(4568),
+         q(0),
+         ],
+      q(mto) => [
+         q(4569),
+         q(0),
+         ],
+      q(mtp) => [
+         q(4570),
+         q(0),
+         ],
+      q(mtq) => [
+         q(4571),
+         q(0),
+         ],
+      q(mtr) => [
+         q(4572),
+         q(0),
+         ],
+      q(mts) => [
+         q(4573),
+         q(0),
+         ],
+      q(mtt) => [
+         q(4574),
+         q(0),
+         ],
+      q(mtu) => [
+         q(4575),
+         q(0),
+         ],
+      q(mtv) => [
+         q(4576),
+         q(0),
+         ],
+      q(mtw) => [
+         q(4577),
+         q(0),
+         ],
+      q(mtx) => [
+         q(4578),
+         q(0),
+         ],
+      q(mty) => [
+         q(4579),
+         q(0),
+         ],
+      q(mua) => [
+         q(4580),
+         q(0),
+         ],
+      q(mub) => [
+         q(4581),
+         q(0),
+         ],
+      q(muc) => [
+         q(4582),
+         q(0),
+         ],
+      q(mud) => [
+         q(4583),
+         q(0),
+         ],
+      q(mue) => [
+         q(4584),
+         q(0),
+         ],
+      q(mug) => [
+         q(4585),
+         q(0),
+         ],
+      q(muh) => [
+         q(4586),
+         q(0),
+         ],
+      q(mui) => [
+         q(4587),
+         q(0),
+         ],
+      q(muj) => [
+         q(4588),
+         q(0),
+         ],
+      q(muk) => [
+         q(4589),
+         q(0),
+         ],
+      q(mul) => [
+         q(0291),
+         q(0),
+         ],
+      q(mum) => [
+         q(4590),
+         q(0),
+         ],
+      q(mun) => [
+         q(0292),
+         q(0),
+         ],
+      q(muo) => [
+         q(4591),
+         q(0),
+         ],
+      q(mup) => [
+         q(4592),
+         q(0),
+         ],
+      q(muq) => [
+         q(4593),
+         q(0),
+         ],
+      q(mur) => [
+         q(4594),
+         q(0),
+         ],
+      q(mus) => [
+         q(0293),
+         q(0),
+         ],
+      q(mut) => [
+         q(4595),
+         q(0),
+         ],
+      q(muu) => [
+         q(4596),
+         q(0),
+         ],
+      q(muv) => [
+         q(4597),
+         q(0),
+         ],
+      q(mux) => [
+         q(4598),
+         q(0),
+         ],
+      q(muy) => [
+         q(4599),
+         q(0),
+         ],
+      q(muz) => [
+         q(4600),
+         q(0),
+         ],
+      q(mva) => [
+         q(4601),
+         q(0),
+         ],
+      q(mvb) => [
+         q(4602),
+         q(0),
+         ],
+      q(mvd) => [
+         q(4603),
+         q(0),
+         ],
+      q(mve) => [
+         q(4604),
+         q(0),
+         ],
+      q(mvf) => [
+         q(4605),
+         q(0),
+         ],
+      q(mvg) => [
+         q(4606),
+         q(0),
+         ],
+      q(mvh) => [
+         q(4607),
+         q(0),
+         ],
+      q(mvi) => [
+         q(4608),
+         q(0),
+         ],
+      q(mvk) => [
+         q(4609),
+         q(0),
+         ],
+      q(mvl) => [
+         q(4610),
+         q(0),
+         ],
+      q(mvm) => [
+         q(4611),
+         q(0),
+         ],
+      q(mvn) => [
+         q(4612),
+         q(0),
+         ],
+      q(mvo) => [
+         q(4613),
+         q(0),
+         ],
+      q(mvp) => [
+         q(4614),
+         q(0),
+         ],
+      q(mvq) => [
+         q(4615),
+         q(0),
+         ],
+      q(mvr) => [
+         q(4616),
+         q(0),
+         ],
+      q(mvs) => [
+         q(4617),
+         q(0),
+         ],
+      q(mvt) => [
+         q(4618),
+         q(0),
+         ],
+      q(mvu) => [
+         q(4619),
+         q(0),
+         ],
+      q(mvv) => [
+         q(4620),
+         q(0),
+         ],
+      q(mvw) => [
+         q(4621),
+         q(0),
+         ],
+      q(mvx) => [
+         q(4622),
+         q(0),
+         ],
+      q(mvy) => [
+         q(4623),
+         q(0),
+         ],
+      q(mvz) => [
+         q(4624),
+         q(0),
+         ],
+      q(mwa) => [
+         q(4625),
+         q(0),
+         ],
+      q(mwb) => [
+         q(4626),
+         q(0),
+         ],
+      q(mwc) => [
+         q(4627),
+         q(0),
+         ],
+      q(mwe) => [
+         q(4628),
+         q(0),
+         ],
+      q(mwf) => [
+         q(4629),
+         q(0),
+         ],
+      q(mwg) => [
+         q(4630),
+         q(0),
+         ],
+      q(mwh) => [
+         q(4631),
+         q(0),
+         ],
+      q(mwi) => [
+         q(4632),
+         q(0),
+         ],
+      q(mwk) => [
+         q(4633),
+         q(0),
+         ],
+      q(mwl) => [
+         q(0294),
+         q(0),
+         ],
+      q(mwm) => [
+         q(4634),
+         q(0),
+         ],
+      q(mwn) => [
+         q(4635),
+         q(0),
+         ],
+      q(mwo) => [
+         q(4636),
+         q(0),
+         ],
+      q(mwp) => [
+         q(4637),
+         q(0),
+         ],
+      q(mwq) => [
+         q(4638),
+         q(0),
+         ],
+      q(mwr) => [
+         q(0295),
+         q(0),
+         ],
+      q(mws) => [
+         q(4639),
+         q(0),
+         ],
+      q(mwt) => [
+         q(4640),
+         q(0),
+         ],
+      q(mwu) => [
+         q(4641),
+         q(0),
+         ],
+      q(mwv) => [
+         q(4642),
+         q(0),
+         ],
+      q(mww) => [
+         q(4643),
+         q(0),
+         ],
+      q(mwx) => [
+         q(4644),
+         q(0),
+         ],
+      q(mwy) => [
+         q(4645),
+         q(0),
+         ],
+      q(mwz) => [
+         q(4646),
+         q(0),
+         ],
+      q(mxa) => [
+         q(4647),
+         q(0),
+         ],
+      q(mxb) => [
+         q(4648),
+         q(0),
+         ],
+      q(mxc) => [
+         q(4649),
+         q(0),
+         ],
+      q(mxd) => [
+         q(4650),
+         q(0),
+         ],
+      q(mxe) => [
+         q(4651),
+         q(0),
+         ],
+      q(mxf) => [
+         q(4652),
+         q(0),
+         ],
+      q(mxg) => [
+         q(4653),
+         q(0),
+         ],
+      q(mxh) => [
+         q(4654),
+         q(0),
+         ],
+      q(mxi) => [
+         q(4655),
+         q(0),
+         ],
+      q(mxj) => [
+         q(4656),
+         q(0),
+         ],
+      q(mxk) => [
+         q(4657),
+         q(0),
+         ],
+      q(mxl) => [
+         q(4658),
+         q(0),
+         ],
+      q(mxm) => [
+         q(4659),
+         q(0),
+         ],
+      q(mxn) => [
+         q(4660),
+         q(0),
+         ],
+      q(mxo) => [
+         q(4661),
+         q(0),
+         ],
+      q(mxp) => [
+         q(4662),
+         q(0),
+         ],
+      q(mxq) => [
+         q(4663),
+         q(0),
+         ],
+      q(mxr) => [
+         q(4664),
+         q(0),
+         ],
+      q(mxs) => [
+         q(4665),
+         q(0),
+         ],
+      q(mxt) => [
+         q(4666),
+         q(0),
+         ],
+      q(mxu) => [
+         q(4667),
+         q(0),
+         ],
+      q(mxv) => [
+         q(4668),
+         q(0),
+         ],
+      q(mxw) => [
+         q(4669),
+         q(0),
+         ],
+      q(mxx) => [
+         q(4670),
+         q(0),
+         ],
+      q(mxy) => [
+         q(4671),
+         q(0),
+         ],
+      q(mxz) => [
+         q(4672),
+         q(0),
+         ],
+      q(myb) => [
+         q(4673),
+         q(0),
+         ],
+      q(myc) => [
+         q(4674),
+         q(0),
+         ],
+      q(myd) => [
+         q(4675),
+         q(0),
+         ],
+      q(mye) => [
+         q(4676),
+         q(0),
+         ],
+      q(myf) => [
+         q(4677),
+         q(0),
+         ],
+      q(myg) => [
+         q(4678),
+         q(0),
+         ],
+      q(myh) => [
+         q(4679),
+         q(0),
+         ],
+      q(myi) => [
+         q(4680),
+         q(0),
+         ],
+      q(myj) => [
+         q(4681),
+         q(0),
+         ],
+      q(myk) => [
+         q(4682),
+         q(0),
+         ],
+      q(myl) => [
+         q(4683),
+         q(0),
+         ],
+      q(mym) => [
+         q(4684),
+         q(0),
+         ],
+      q(myn) => [
+         q(0296),
+         q(0),
+         ],
+      q(myo) => [
+         q(4685),
+         q(0),
+         ],
+      q(myp) => [
+         q(4686),
+         q(0),
+         ],
+      q(myr) => [
+         q(4687),
+         q(0),
+         ],
+      q(mys) => [
+         q(4688),
+         q(0),
+         ],
+      q(myu) => [
+         q(4689),
+         q(0),
+         ],
+      q(myv) => [
+         q(0297),
+         q(0),
+         ],
+      q(myw) => [
+         q(4690),
+         q(0),
+         ],
+      q(myx) => [
+         q(4691),
+         q(0),
+         ],
+      q(myy) => [
+         q(4692),
+         q(0),
+         ],
+      q(myz) => [
+         q(4693),
+         q(0),
+         ],
+      q(mza) => [
+         q(4694),
+         q(0),
+         ],
+      q(mzb) => [
+         q(4695),
+         q(0),
+         ],
+      q(mzc) => [
+         q(4696),
+         q(0),
+         ],
+      q(mzd) => [
+         q(4697),
+         q(0),
+         ],
+      q(mze) => [
+         q(4698),
+         q(0),
+         ],
+      q(mzg) => [
+         q(4699),
+         q(0),
+         ],
+      q(mzh) => [
+         q(4700),
+         q(0),
+         ],
+      q(mzi) => [
+         q(4701),
+         q(0),
+         ],
+      q(mzj) => [
+         q(4702),
+         q(0),
+         ],
+      q(mzk) => [
+         q(4703),
+         q(0),
+         ],
+      q(mzl) => [
+         q(4704),
+         q(0),
+         ],
+      q(mzm) => [
+         q(4705),
+         q(0),
+         ],
+      q(mzn) => [
+         q(4706),
+         q(0),
+         ],
+      q(mzo) => [
+         q(4707),
+         q(0),
+         ],
+      q(mzp) => [
+         q(4708),
+         q(0),
+         ],
+      q(mzq) => [
+         q(4709),
+         q(0),
+         ],
+      q(mzr) => [
+         q(4710),
+         q(0),
+         ],
+      q(mzs) => [
+         q(4711),
+         q(0),
+         ],
+      q(mzt) => [
+         q(4712),
+         q(0),
+         ],
+      q(mzu) => [
+         q(4713),
+         q(0),
+         ],
+      q(mzv) => [
+         q(4714),
+         q(0),
+         ],
+      q(mzw) => [
+         q(4715),
+         q(0),
+         ],
+      q(mzx) => [
+         q(4716),
+         q(0),
+         ],
+      q(mzy) => [
+         q(4717),
+         q(0),
+         ],
+      q(mzz) => [
+         q(4718),
+         q(0),
+         ],
+      q(naa) => [
+         q(4719),
+         q(0),
+         ],
+      q(nab) => [
+         q(4720),
+         q(0),
+         ],
+      q(nac) => [
+         q(4721),
+         q(0),
+         ],
+      q(nad) => [
+         q(4722),
+         q(0),
+         ],
+      q(nae) => [
+         q(4723),
+         q(0),
+         ],
+      q(naf) => [
+         q(4724),
+         q(0),
+         ],
+      q(nag) => [
+         q(4725),
+         q(0),
+         ],
+      q(nah) => [
+         q(0298),
+         q(0),
+         ],
+      q(nai) => [
+         q(0299),
+         q(0),
+         ],
+      q(naj) => [
+         q(4726),
+         q(0),
+         ],
+      q(nak) => [
+         q(4727),
+         q(0),
+         ],
+      q(nal) => [
+         q(4728),
+         q(0),
+         ],
+      q(nam) => [
+         q(4729),
+         q(0),
+         ],
+      q(nan) => [
+         q(4730),
+         q(0),
+         ],
+      q(nao) => [
+         q(4731),
+         q(0),
+         ],
+      q(nap) => [
+         q(0300),
+         q(0),
+         ],
+      q(naq) => [
+         q(4732),
+         q(0),
+         ],
+      q(nar) => [
+         q(4733),
+         q(0),
+         ],
+      q(nas) => [
+         q(4734),
+         q(0),
+         ],
+      q(nat) => [
+         q(4735),
+         q(0),
+         ],
+      q(nau) => [
+         q(0301),
+         q(0),
+         ],
+      q(nav) => [
+         q(0302),
+         q(0),
+         ],
+      q(naw) => [
+         q(4736),
+         q(0),
+         ],
+      q(nax) => [
+         q(4737),
+         q(0),
+         ],
+      q(nay) => [
+         q(4738),
+         q(0),
+         ],
+      q(naz) => [
+         q(4739),
+         q(0),
+         ],
+      q(nba) => [
+         q(4740),
+         q(0),
+         ],
+      q(nbb) => [
+         q(4741),
+         q(0),
+         ],
+      q(nbc) => [
+         q(4742),
+         q(0),
+         ],
+      q(nbd) => [
+         q(4743),
+         q(0),
+         ],
+      q(nbe) => [
+         q(4744),
+         q(0),
+         ],
+      q(nbg) => [
+         q(4745),
+         q(0),
+         ],
+      q(nbh) => [
+         q(4746),
+         q(0),
+         ],
+      q(nbi) => [
+         q(4747),
+         q(0),
+         ],
+      q(nbj) => [
+         q(4748),
+         q(0),
+         ],
+      q(nbk) => [
+         q(4749),
+         q(0),
+         ],
+      q(nbl) => [
+         q(0303),
+         q(0),
+         ],
+      q(nbm) => [
+         q(4750),
+         q(0),
+         ],
+      q(nbn) => [
+         q(4751),
+         q(0),
+         ],
+      q(nbo) => [
+         q(4752),
+         q(0),
+         ],
+      q(nbp) => [
+         q(4753),
+         q(0),
+         ],
+      q(nbq) => [
+         q(4754),
+         q(0),
+         ],
+      q(nbr) => [
+         q(4755),
+         q(0),
+         ],
+      q(nbs) => [
+         q(4756),
+         q(0),
+         ],
+      q(nbt) => [
+         q(4757),
+         q(0),
+         ],
+      q(nbu) => [
+         q(4758),
+         q(0),
+         ],
+      q(nbv) => [
+         q(4759),
+         q(0),
+         ],
+      q(nbw) => [
+         q(4760),
+         q(0),
+         ],
+      q(nby) => [
+         q(4761),
+         q(0),
+         ],
+      q(nca) => [
+         q(4762),
+         q(0),
+         ],
+      q(ncb) => [
+         q(4763),
+         q(0),
+         ],
+      q(ncc) => [
+         q(4764),
+         q(0),
+         ],
+      q(ncd) => [
+         q(4765),
+         q(0),
+         ],
+      q(nce) => [
+         q(4766),
+         q(0),
+         ],
+      q(ncf) => [
+         q(4767),
+         q(0),
+         ],
+      q(ncg) => [
+         q(4768),
+         q(0),
+         ],
+      q(nch) => [
+         q(4769),
+         q(0),
+         ],
+      q(nci) => [
+         q(4770),
+         q(0),
+         ],
+      q(ncj) => [
+         q(4771),
+         q(0),
+         ],
+      q(nck) => [
+         q(4772),
+         q(0),
+         ],
+      q(ncl) => [
+         q(4773),
+         q(0),
+         ],
+      q(ncm) => [
+         q(4774),
+         q(0),
+         ],
+      q(ncn) => [
+         q(4775),
+         q(0),
+         ],
+      q(nco) => [
+         q(4776),
+         q(0),
+         ],
+      q(ncp) => [
+         q(4777),
+         q(0),
+         ],
+      q(ncr) => [
+         q(4778),
+         q(0),
+         ],
+      q(ncs) => [
+         q(4779),
+         q(0),
+         ],
+      q(nct) => [
+         q(4780),
+         q(0),
+         ],
+      q(ncu) => [
+         q(4781),
+         q(0),
+         ],
+      q(ncx) => [
+         q(4782),
+         q(0),
+         ],
+      q(ncz) => [
+         q(4783),
+         q(0),
+         ],
+      q(nda) => [
+         q(4784),
+         q(0),
+         ],
+      q(ndb) => [
+         q(4785),
+         q(0),
+         ],
+      q(ndc) => [
+         q(4786),
+         q(0),
+         ],
+      q(ndd) => [
+         q(4787),
+         q(0),
+         ],
+      q(nde) => [
+         q(0304),
+         q(0),
+         ],
+      q(ndf) => [
+         q(4788),
+         q(0),
+         ],
+      q(ndg) => [
+         q(4789),
+         q(0),
+         ],
+      q(ndh) => [
+         q(4790),
+         q(0),
+         ],
+      q(ndi) => [
+         q(4791),
+         q(0),
+         ],
+      q(ndj) => [
+         q(4792),
+         q(0),
+         ],
+      q(ndk) => [
+         q(4793),
+         q(0),
+         ],
+      q(ndl) => [
+         q(4794),
+         q(0),
+         ],
+      q(ndm) => [
+         q(4795),
+         q(0),
+         ],
+      q(ndn) => [
+         q(4796),
+         q(0),
+         ],
+      q(ndo) => [
+         q(0305),
+         q(0),
+         ],
+      q(ndp) => [
+         q(4797),
+         q(0),
+         ],
+      q(ndq) => [
+         q(4798),
+         q(0),
+         ],
+      q(ndr) => [
+         q(4799),
+         q(0),
+         ],
+      q(nds) => [
+         q(0306),
+         q(0),
+         ],
+      q(ndt) => [
+         q(4800),
+         q(0),
+         ],
+      q(ndu) => [
+         q(4801),
+         q(0),
+         ],
+      q(ndv) => [
+         q(4802),
+         q(0),
+         ],
+      q(ndw) => [
+         q(4803),
+         q(0),
+         ],
+      q(ndx) => [
+         q(4804),
+         q(0),
+         ],
+      q(ndy) => [
+         q(4805),
+         q(0),
+         ],
+      q(ndz) => [
+         q(4806),
+         q(0),
+         ],
+      q(nea) => [
+         q(4807),
+         q(0),
+         ],
+      q(neb) => [
+         q(4808),
+         q(0),
+         ],
+      q(nec) => [
+         q(4809),
+         q(0),
+         ],
+      q(ned) => [
+         q(4810),
+         q(0),
+         ],
+      q(nee) => [
+         q(4811),
+         q(0),
+         ],
+      q(nef) => [
+         q(4812),
+         q(0),
+         ],
+      q(neg) => [
+         q(4813),
+         q(0),
+         ],
+      q(neh) => [
+         q(4814),
+         q(0),
+         ],
+      q(nei) => [
+         q(4815),
+         q(0),
+         ],
+      q(nej) => [
+         q(4816),
+         q(0),
+         ],
+      q(nek) => [
+         q(4817),
+         q(0),
+         ],
+      q(nem) => [
+         q(4818),
+         q(0),
+         ],
+      q(nen) => [
+         q(4819),
+         q(0),
+         ],
+      q(neo) => [
+         q(4820),
+         q(0),
+         ],
+      q(nep) => [
+         q(0307),
+         q(0),
+         ],
+      q(neq) => [
+         q(4821),
+         q(0),
+         ],
+      q(ner) => [
+         q(4822),
+         q(0),
+         ],
+      q(nes) => [
+         q(4823),
+         q(0),
+         ],
+      q(net) => [
+         q(4824),
+         q(0),
+         ],
+      q(neu) => [
+         q(4825),
+         q(0),
+         ],
+      q(nev) => [
+         q(4826),
+         q(0),
+         ],
+      q(new) => [
+         q(0308),
+         q(1),
+         ],
+      q(nex) => [
+         q(4827),
+         q(0),
+         ],
+      q(ney) => [
+         q(4828),
+         q(0),
+         ],
+      q(nez) => [
+         q(4829),
+         q(0),
+         ],
+      q(nfa) => [
+         q(4830),
+         q(0),
+         ],
+      q(nfd) => [
+         q(4831),
+         q(0),
+         ],
+      q(nfl) => [
+         q(4832),
+         q(0),
+         ],
+      q(nfr) => [
+         q(4833),
+         q(0),
+         ],
+      q(nfu) => [
+         q(4834),
+         q(0),
+         ],
+      q(nga) => [
+         q(4835),
+         q(0),
+         ],
+      q(ngb) => [
+         q(4836),
+         q(0),
+         ],
+      q(ngc) => [
+         q(4837),
+         q(0),
+         ],
+      q(ngd) => [
+         q(4838),
+         q(0),
+         ],
+      q(nge) => [
+         q(4839),
+         q(0),
+         ],
+      q(ngf) => [
+         q(0516),
+         q(0),
+         ],
+      q(ngg) => [
+         q(4840),
+         q(0),
+         ],
+      q(ngh) => [
+         q(4841),
+         q(0),
+         ],
+      q(ngi) => [
+         q(4842),
+         q(0),
+         ],
+      q(ngj) => [
+         q(4843),
+         q(0),
+         ],
+      q(ngk) => [
+         q(4844),
+         q(0),
+         ],
+      q(ngl) => [
+         q(4845),
+         q(0),
+         ],
+      q(ngm) => [
+         q(4846),
+         q(0),
+         ],
+      q(ngn) => [
+         q(4847),
+         q(0),
+         ],
+      q(ngo) => [
+         q(4848),
+         q(0),
+         ],
+      q(ngp) => [
+         q(4849),
+         q(0),
+         ],
+      q(ngq) => [
+         q(4850),
+         q(0),
+         ],
+      q(ngr) => [
+         q(4851),
+         q(0),
+         ],
+      q(ngs) => [
+         q(4852),
+         q(0),
+         ],
+      q(ngt) => [
+         q(4853),
+         q(0),
+         ],
+      q(ngu) => [
+         q(4854),
+         q(0),
+         ],
+      q(ngv) => [
+         q(4855),
+         q(0),
+         ],
+      q(ngw) => [
+         q(4856),
+         q(0),
+         ],
+      q(ngx) => [
+         q(4857),
+         q(0),
+         ],
+      q(ngy) => [
+         q(4858),
+         q(0),
+         ],
+      q(ngz) => [
+         q(4859),
+         q(0),
+         ],
+      q(nha) => [
+         q(4860),
+         q(0),
+         ],
+      q(nhb) => [
+         q(4861),
+         q(0),
+         ],
+      q(nhc) => [
+         q(4862),
+         q(0),
+         ],
+      q(nhd) => [
+         q(4863),
+         q(0),
+         ],
+      q(nhe) => [
+         q(4864),
+         q(0),
+         ],
+      q(nhf) => [
+         q(4865),
+         q(0),
+         ],
+      q(nhg) => [
+         q(4866),
+         q(0),
+         ],
+      q(nhh) => [
+         q(4867),
+         q(0),
+         ],
+      q(nhi) => [
+         q(4868),
+         q(0),
+         ],
+      q(nhk) => [
+         q(4869),
+         q(0),
+         ],
+      q(nhm) => [
+         q(4870),
+         q(0),
+         ],
+      q(nhn) => [
+         q(4871),
+         q(0),
+         ],
+      q(nho) => [
+         q(4872),
+         q(0),
+         ],
+      q(nhp) => [
+         q(4873),
+         q(0),
+         ],
+      q(nhq) => [
+         q(4874),
+         q(0),
+         ],
+      q(nhr) => [
+         q(4875),
+         q(0),
+         ],
+      q(nht) => [
+         q(4876),
+         q(0),
+         ],
+      q(nhu) => [
+         q(4877),
+         q(0),
+         ],
+      q(nhv) => [
+         q(4878),
+         q(0),
+         ],
+      q(nhw) => [
+         q(4879),
+         q(0),
+         ],
+      q(nhx) => [
+         q(4880),
+         q(0),
+         ],
+      q(nhy) => [
+         q(4881),
+         q(0),
+         ],
+      q(nhz) => [
+         q(4882),
+         q(0),
+         ],
+      q(nia) => [
+         q(0309),
+         q(0),
+         ],
+      q(nib) => [
+         q(4883),
+         q(0),
+         ],
+      q(nic) => [
+         q(0310),
+         q(0),
+         ],
+      q(nid) => [
+         q(4884),
+         q(0),
+         ],
+      q(nie) => [
+         q(4885),
+         q(0),
+         ],
+      q(nif) => [
+         q(4886),
+         q(0),
+         ],
+      q(nig) => [
+         q(4887),
+         q(0),
+         ],
+      q(nih) => [
+         q(4888),
+         q(0),
+         ],
+      q(nii) => [
+         q(4889),
+         q(0),
+         ],
+      q(nij) => [
+         q(4890),
+         q(0),
+         ],
+      q(nik) => [
+         q(4891),
+         q(0),
+         ],
+      q(nil) => [
+         q(4892),
+         q(0),
+         ],
+      q(nim) => [
+         q(4893),
+         q(0),
+         ],
+      q(nin) => [
+         q(4894),
+         q(0),
+         ],
+      q(nio) => [
+         q(4895),
+         q(0),
+         ],
+      q(niq) => [
+         q(4896),
+         q(0),
+         ],
+      q(nir) => [
+         q(4897),
+         q(0),
+         ],
+      q(nis) => [
+         q(4898),
+         q(0),
+         ],
+      q(nit) => [
+         q(4899),
+         q(0),
+         ],
+      q(niu) => [
+         q(0311),
+         q(0),
+         ],
+      q(niv) => [
+         q(4900),
+         q(0),
+         ],
+      q(niw) => [
+         q(4901),
+         q(0),
+         ],
+      q(nix) => [
+         q(4902),
+         q(0),
+         ],
+      q(niy) => [
+         q(4903),
+         q(0),
+         ],
+      q(niz) => [
+         q(4904),
+         q(0),
+         ],
+      q(nja) => [
+         q(4905),
+         q(0),
+         ],
+      q(njb) => [
+         q(4906),
+         q(0),
+         ],
+      q(njd) => [
+         q(4907),
+         q(0),
+         ],
+      q(njh) => [
+         q(4908),
+         q(0),
+         ],
+      q(nji) => [
+         q(4909),
+         q(0),
+         ],
+      q(njj) => [
+         q(4910),
+         q(0),
+         ],
+      q(njl) => [
+         q(4911),
+         q(0),
+         ],
+      q(njm) => [
+         q(4912),
+         q(0),
+         ],
+      q(njn) => [
+         q(4913),
+         q(0),
+         ],
+      q(njo) => [
+         q(4914),
+         q(0),
+         ],
+      q(njr) => [
+         q(4915),
+         q(0),
+         ],
+      q(njs) => [
+         q(4916),
+         q(0),
+         ],
+      q(njt) => [
+         q(4917),
+         q(0),
+         ],
+      q(nju) => [
+         q(4918),
+         q(0),
+         ],
+      q(njx) => [
+         q(4919),
+         q(0),
+         ],
+      q(njy) => [
+         q(4920),
+         q(0),
+         ],
+      q(njz) => [
+         q(4921),
+         q(0),
+         ],
+      q(nka) => [
+         q(4922),
+         q(0),
+         ],
+      q(nkb) => [
+         q(4923),
+         q(0),
+         ],
+      q(nkc) => [
+         q(4924),
+         q(0),
+         ],
+      q(nkd) => [
+         q(4925),
+         q(0),
+         ],
+      q(nke) => [
+         q(4926),
+         q(0),
+         ],
+      q(nkf) => [
+         q(4927),
+         q(0),
+         ],
+      q(nkg) => [
+         q(4928),
+         q(0),
+         ],
+      q(nkh) => [
+         q(4929),
+         q(0),
+         ],
+      q(nki) => [
+         q(4930),
+         q(0),
+         ],
+      q(nkj) => [
+         q(4931),
+         q(0),
+         ],
+      q(nkk) => [
+         q(4932),
+         q(0),
+         ],
+      q(nkm) => [
+         q(4933),
+         q(0),
+         ],
+      q(nkn) => [
+         q(4934),
+         q(0),
+         ],
+      q(nko) => [
+         q(4935),
+         q(0),
+         ],
+      q(nkp) => [
+         q(4936),
+         q(0),
+         ],
+      q(nkq) => [
+         q(4937),
+         q(0),
+         ],
+      q(nkr) => [
+         q(4938),
+         q(0),
+         ],
+      q(nks) => [
+         q(4939),
+         q(0),
+         ],
+      q(nkt) => [
+         q(4940),
+         q(0),
+         ],
+      q(nku) => [
+         q(4941),
+         q(0),
+         ],
+      q(nkv) => [
+         q(4942),
+         q(0),
+         ],
+      q(nkw) => [
+         q(4943),
+         q(0),
+         ],
+      q(nkx) => [
+         q(4944),
+         q(0),
+         ],
+      q(nkz) => [
+         q(4945),
+         q(0),
+         ],
+      q(nla) => [
+         q(4946),
+         q(0),
+         ],
+      q(nlc) => [
+         q(4947),
+         q(0),
+         ],
+      q(nle) => [
+         q(4948),
+         q(0),
+         ],
+      q(nlg) => [
+         q(4949),
+         q(0),
+         ],
+      q(nli) => [
+         q(4950),
+         q(0),
+         ],
+      q(nlj) => [
+         q(4951),
+         q(0),
+         ],
+      q(nlk) => [
+         q(4952),
+         q(0),
+         ],
+      q(nll) => [
+         q(4953),
+         q(0),
+         ],
+      q(nlo) => [
+         q(4954),
+         q(0),
+         ],
+      q(nlq) => [
+         q(4955),
+         q(0),
+         ],
+      q(nlu) => [
+         q(4956),
+         q(0),
+         ],
+      q(nlv) => [
+         q(4957),
+         q(0),
+         ],
+      q(nlw) => [
+         q(4958),
+         q(0),
+         ],
+      q(nlx) => [
+         q(4959),
+         q(0),
+         ],
+      q(nly) => [
+         q(4960),
+         q(0),
+         ],
+      q(nlz) => [
+         q(4961),
+         q(0),
+         ],
+      q(nma) => [
+         q(4962),
+         q(0),
+         ],
+      q(nmb) => [
+         q(4963),
+         q(0),
+         ],
+      q(nmc) => [
+         q(4964),
+         q(0),
+         ],
+      q(nmd) => [
+         q(4965),
+         q(0),
+         ],
+      q(nme) => [
+         q(4966),
+         q(0),
+         ],
+      q(nmf) => [
+         q(4967),
+         q(0),
+         ],
+      q(nmg) => [
+         q(4968),
+         q(0),
+         ],
+      q(nmh) => [
+         q(4969),
+         q(0),
+         ],
+      q(nmi) => [
+         q(4970),
+         q(0),
+         ],
+      q(nmj) => [
+         q(4971),
+         q(0),
+         ],
+      q(nmk) => [
+         q(4972),
+         q(0),
+         ],
+      q(nml) => [
+         q(4973),
+         q(0),
+         ],
+      q(nmm) => [
+         q(4974),
+         q(0),
+         ],
+      q(nmn) => [
+         q(4975),
+         q(0),
+         ],
+      q(nmo) => [
+         q(4976),
+         q(0),
+         ],
+      q(nmp) => [
+         q(4977),
+         q(0),
+         ],
+      q(nmq) => [
+         q(4978),
+         q(0),
+         ],
+      q(nmr) => [
+         q(4979),
+         q(0),
+         ],
+      q(nms) => [
+         q(4980),
+         q(0),
+         ],
+      q(nmt) => [
+         q(4981),
+         q(0),
+         ],
+      q(nmu) => [
+         q(4982),
+         q(0),
+         ],
+      q(nmv) => [
+         q(4983),
+         q(0),
+         ],
+      q(nmw) => [
+         q(4984),
+         q(0),
+         ],
+      q(nmx) => [
+         q(4985),
+         q(0),
+         ],
+      q(nmy) => [
+         q(4986),
+         q(0),
+         ],
+      q(nmz) => [
+         q(4987),
+         q(0),
+         ],
+      q(nna) => [
+         q(4988),
+         q(0),
+         ],
+      q(nnb) => [
+         q(4989),
+         q(0),
+         ],
+      q(nnc) => [
+         q(4990),
+         q(0),
+         ],
+      q(nnd) => [
+         q(4991),
+         q(0),
+         ],
+      q(nne) => [
+         q(4992),
+         q(0),
+         ],
+      q(nnf) => [
+         q(4993),
+         q(0),
+         ],
+      q(nng) => [
+         q(4994),
+         q(0),
+         ],
+      q(nnh) => [
+         q(4995),
+         q(0),
+         ],
+      q(nni) => [
+         q(4996),
+         q(0),
+         ],
+      q(nnj) => [
+         q(4997),
+         q(0),
+         ],
+      q(nnk) => [
+         q(4998),
+         q(0),
+         ],
+      q(nnl) => [
+         q(4999),
+         q(0),
+         ],
+      q(nnm) => [
+         q(5000),
+         q(0),
+         ],
+      q(nnn) => [
+         q(5001),
+         q(0),
+         ],
+      q(nno) => [
+         q(0312),
+         q(0),
+         ],
+      q(nnp) => [
+         q(5002),
+         q(0),
+         ],
+      q(nnq) => [
+         q(5003),
+         q(0),
+         ],
+      q(nnr) => [
+         q(5004),
+         q(0),
+         ],
+      q(nns) => [
+         q(5005),
+         q(0),
+         ],
+      q(nnt) => [
+         q(5006),
+         q(0),
+         ],
+      q(nnu) => [
+         q(5007),
+         q(0),
+         ],
+      q(nnv) => [
+         q(5008),
+         q(0),
+         ],
+      q(nnw) => [
+         q(5009),
+         q(0),
+         ],
+      q(nny) => [
+         q(5010),
+         q(0),
+         ],
+      q(nnz) => [
+         q(5011),
+         q(0),
+         ],
+      q(noa) => [
+         q(5012),
+         q(0),
+         ],
+      q(nob) => [
+         q(0313),
+         q(0),
+         ],
+      q(noc) => [
+         q(5013),
+         q(0),
+         ],
+      q(nod) => [
+         q(5014),
+         q(0),
+         ],
+      q(noe) => [
+         q(5015),
+         q(0),
+         ],
+      q(nof) => [
+         q(5016),
+         q(0),
+         ],
+      q(nog) => [
+         q(0314),
+         q(0),
+         ],
+      q(noh) => [
+         q(5017),
+         q(0),
+         ],
+      q(noi) => [
+         q(5018),
+         q(0),
+         ],
+      q(noj) => [
+         q(5019),
+         q(0),
+         ],
+      q(nok) => [
+         q(5020),
+         q(0),
+         ],
+      q(nol) => [
+         q(5021),
+         q(0),
+         ],
+      q(nom) => [
+         q(5022),
+         q(0),
+         ],
+      q(non) => [
+         q(0315),
+         q(1),
+         ],
+      q(nop) => [
+         q(5023),
+         q(0),
+         ],
+      q(noq) => [
+         q(5024),
+         q(0),
+         ],
+      q(nor) => [
+         q(0316),
+         q(0),
+         ],
+      q(nos) => [
+         q(5025),
+         q(0),
+         ],
+      q(not) => [
+         q(5026),
+         q(0),
+         ],
+      q(nou) => [
+         q(5027),
+         q(0),
+         ],
+      q(nov) => [
+         q(5028),
+         q(0),
+         ],
+      q(now) => [
+         q(5029),
+         q(0),
+         ],
+      q(noy) => [
+         q(5030),
+         q(0),
+         ],
+      q(noz) => [
+         q(5031),
+         q(0),
+         ],
+      q(npa) => [
+         q(5032),
+         q(0),
+         ],
+      q(npb) => [
+         q(5033),
+         q(0),
+         ],
+      q(npg) => [
+         q(5034),
+         q(0),
+         ],
+      q(nph) => [
+         q(5035),
+         q(0),
+         ],
+      q(npi) => [
+         q(5036),
+         q(0),
+         ],
+      q(npl) => [
+         q(5037),
+         q(0),
+         ],
+      q(npn) => [
+         q(5038),
+         q(0),
+         ],
+      q(npo) => [
+         q(5039),
+         q(0),
+         ],
+      q(nps) => [
+         q(5040),
+         q(0),
+         ],
+      q(npu) => [
+         q(5041),
+         q(0),
+         ],
+      q(npy) => [
+         q(5042),
+         q(0),
+         ],
+      q(nqg) => [
+         q(5043),
+         q(0),
+         ],
+      q(nqk) => [
+         q(5044),
+         q(0),
+         ],
+      q(nqm) => [
+         q(5045),
+         q(0),
+         ],
+      q(nqn) => [
+         q(5046),
+         q(0),
+         ],
+      q(nqo) => [
+         q(0317),
+         q(0),
+         ],
+      q(nqq) => [
+         q(5047),
+         q(0),
+         ],
+      q(nqy) => [
+         q(5048),
+         q(0),
+         ],
+      q(nra) => [
+         q(5049),
+         q(0),
+         ],
+      q(nrb) => [
+         q(5050),
+         q(0),
+         ],
+      q(nrc) => [
+         q(5051),
+         q(0),
+         ],
+      q(nre) => [
+         q(5052),
+         q(0),
+         ],
+      q(nrf) => [
+         q(5053),
+         q(0),
+         ],
+      q(nrg) => [
+         q(5054),
+         q(0),
+         ],
+      q(nri) => [
+         q(5055),
+         q(0),
+         ],
+      q(nrk) => [
+         q(5056),
+         q(0),
+         ],
+      q(nrl) => [
+         q(5057),
+         q(0),
+         ],
+      q(nrm) => [
+         q(5058),
+         q(0),
+         ],
+      q(nrn) => [
+         q(5059),
+         q(0),
+         ],
+      q(nrp) => [
+         q(5060),
+         q(0),
+         ],
+      q(nrr) => [
+         q(5061),
+         q(0),
+         ],
+      q(nrt) => [
+         q(5062),
+         q(0),
+         ],
+      q(nru) => [
+         q(5063),
+         q(0),
+         ],
+      q(nrx) => [
+         q(5064),
+         q(0),
+         ],
+      q(nrz) => [
+         q(5065),
+         q(0),
+         ],
+      q(nsa) => [
+         q(5066),
+         q(0),
+         ],
+      q(nsc) => [
+         q(5067),
+         q(0),
+         ],
+      q(nsd) => [
+         q(5068),
+         q(0),
+         ],
+      q(nse) => [
+         q(5069),
+         q(0),
+         ],
+      q(nsf) => [
+         q(5070),
+         q(0),
+         ],
+      q(nsg) => [
+         q(5071),
+         q(0),
+         ],
+      q(nsh) => [
+         q(5072),
+         q(0),
+         ],
+      q(nsi) => [
+         q(5073),
+         q(0),
+         ],
+      q(nsk) => [
+         q(5074),
+         q(0),
+         ],
+      q(nsl) => [
+         q(5075),
+         q(0),
+         ],
+      q(nsm) => [
+         q(5076),
+         q(0),
+         ],
+      q(nsn) => [
+         q(5077),
+         q(0),
+         ],
+      q(nso) => [
+         q(0318),
+         q(0),
+         ],
+      q(nsp) => [
+         q(5078),
+         q(0),
+         ],
+      q(nsq) => [
+         q(5079),
+         q(0),
+         ],
+      q(nsr) => [
+         q(5080),
+         q(0),
+         ],
+      q(nss) => [
+         q(5081),
+         q(0),
+         ],
+      q(nst) => [
+         q(5082),
+         q(0),
+         ],
+      q(nsu) => [
+         q(5083),
+         q(0),
+         ],
+      q(nsv) => [
+         q(5084),
+         q(0),
+         ],
+      q(nsw) => [
+         q(5085),
+         q(0),
+         ],
+      q(nsx) => [
+         q(5086),
+         q(0),
+         ],
+      q(nsy) => [
+         q(5087),
+         q(0),
+         ],
+      q(nsz) => [
+         q(5088),
+         q(0),
+         ],
+      q(nte) => [
+         q(5089),
+         q(0),
+         ],
+      q(ntg) => [
+         q(5090),
+         q(0),
+         ],
+      q(nti) => [
+         q(5091),
+         q(0),
+         ],
+      q(ntj) => [
+         q(5092),
+         q(0),
+         ],
+      q(ntk) => [
+         q(5093),
+         q(0),
+         ],
+      q(ntm) => [
+         q(5094),
+         q(0),
+         ],
+      q(nto) => [
+         q(5095),
+         q(0),
+         ],
+      q(ntp) => [
+         q(5096),
+         q(0),
+         ],
+      q(ntr) => [
+         q(5097),
+         q(0),
+         ],
+      q(nts) => [
+         q(5098),
+         q(0),
+         ],
+      q(ntu) => [
+         q(5099),
+         q(0),
+         ],
+      q(ntw) => [
+         q(5100),
+         q(0),
+         ],
+      q(ntx) => [
+         q(5101),
+         q(0),
+         ],
+      q(nty) => [
+         q(5102),
+         q(0),
+         ],
+      q(ntz) => [
+         q(5103),
+         q(0),
+         ],
+      q(nua) => [
+         q(5104),
+         q(0),
+         ],
+      q(nub) => [
+         q(0319),
+         q(0),
+         ],
+      q(nuc) => [
+         q(5105),
+         q(0),
+         ],
+      q(nud) => [
+         q(5106),
+         q(0),
+         ],
+      q(nue) => [
+         q(5107),
+         q(0),
+         ],
+      q(nuf) => [
+         q(5108),
+         q(0),
+         ],
+      q(nug) => [
+         q(5109),
+         q(0),
+         ],
+      q(nuh) => [
+         q(5110),
+         q(0),
+         ],
+      q(nui) => [
+         q(5111),
+         q(0),
+         ],
+      q(nuj) => [
+         q(5112),
+         q(0),
+         ],
+      q(nuk) => [
+         q(5113),
+         q(0),
+         ],
+      q(nul) => [
+         q(5114),
+         q(0),
+         ],
+      q(num) => [
+         q(5115),
+         q(0),
+         ],
+      q(nun) => [
+         q(5116),
+         q(0),
+         ],
+      q(nuo) => [
+         q(5117),
+         q(0),
+         ],
+      q(nup) => [
+         q(5118),
+         q(0),
+         ],
+      q(nuq) => [
+         q(5119),
+         q(0),
+         ],
+      q(nur) => [
+         q(5120),
+         q(0),
+         ],
+      q(nus) => [
+         q(5121),
+         q(0),
+         ],
+      q(nut) => [
+         q(5122),
+         q(0),
+         ],
+      q(nuu) => [
+         q(5123),
+         q(0),
+         ],
+      q(nuv) => [
+         q(5124),
+         q(0),
+         ],
+      q(nuw) => [
+         q(5125),
+         q(0),
+         ],
+      q(nux) => [
+         q(5126),
+         q(0),
+         ],
+      q(nuy) => [
+         q(5127),
+         q(0),
+         ],
+      q(nuz) => [
+         q(5128),
+         q(0),
+         ],
+      q(nvh) => [
+         q(5129),
+         q(0),
+         ],
+      q(nvm) => [
+         q(5130),
+         q(0),
+         ],
+      q(nvo) => [
+         q(5131),
+         q(0),
+         ],
+      q(nwa) => [
+         q(5132),
+         q(0),
+         ],
+      q(nwb) => [
+         q(5133),
+         q(0),
+         ],
+      q(nwc) => [
+         q(0320),
+         q(0),
+         ],
+      q(nwe) => [
+         q(5134),
+         q(0),
+         ],
+      q(nwg) => [
+         q(5135),
+         q(0),
+         ],
+      q(nwi) => [
+         q(5136),
+         q(0),
+         ],
+      q(nwm) => [
+         q(5137),
+         q(0),
+         ],
+      q(nwo) => [
+         q(5138),
+         q(0),
+         ],
+      q(nwr) => [
+         q(5139),
+         q(0),
+         ],
+      q(nwx) => [
+         q(5140),
+         q(0),
+         ],
+      q(nwy) => [
+         q(5141),
+         q(0),
+         ],
+      q(nxa) => [
+         q(5142),
+         q(0),
+         ],
+      q(nxd) => [
+         q(5143),
+         q(0),
+         ],
+      q(nxe) => [
+         q(5144),
+         q(0),
+         ],
+      q(nxg) => [
+         q(5145),
+         q(0),
+         ],
+      q(nxi) => [
+         q(5146),
+         q(0),
+         ],
+      q(nxk) => [
+         q(5147),
+         q(0),
+         ],
+      q(nxl) => [
+         q(5148),
+         q(0),
+         ],
+      q(nxm) => [
+         q(5149),
+         q(0),
+         ],
+      q(nxn) => [
+         q(5150),
+         q(0),
+         ],
+      q(nxo) => [
+         q(5151),
+         q(0),
+         ],
+      q(nxq) => [
+         q(5152),
+         q(0),
+         ],
+      q(nxr) => [
+         q(5153),
+         q(0),
+         ],
+      q(nxu) => [
+         q(5154),
+         q(0),
+         ],
+      q(nxx) => [
+         q(5155),
+         q(0),
+         ],
+      q(nya) => [
+         q(0321),
+         q(0),
+         ],
+      q(nyb) => [
+         q(5156),
+         q(0),
+         ],
+      q(nyc) => [
+         q(5157),
+         q(0),
+         ],
+      q(nyd) => [
+         q(5158),
+         q(0),
+         ],
+      q(nye) => [
+         q(5159),
+         q(0),
+         ],
+      q(nyf) => [
+         q(5160),
+         q(0),
+         ],
+      q(nyg) => [
+         q(5161),
+         q(0),
+         ],
+      q(nyh) => [
+         q(5162),
+         q(0),
+         ],
+      q(nyi) => [
+         q(5163),
+         q(0),
+         ],
+      q(nyj) => [
+         q(5164),
+         q(0),
+         ],
+      q(nyk) => [
+         q(5165),
+         q(0),
+         ],
+      q(nyl) => [
+         q(5166),
+         q(0),
+         ],
+      q(nym) => [
+         q(0322),
+         q(0),
+         ],
+      q(nyn) => [
+         q(0323),
+         q(0),
+         ],
+      q(nyo) => [
+         q(0324),
+         q(0),
+         ],
+      q(nyp) => [
+         q(5167),
+         q(0),
+         ],
+      q(nyq) => [
+         q(5168),
+         q(0),
+         ],
+      q(nyr) => [
+         q(5169),
+         q(0),
+         ],
+      q(nys) => [
+         q(5170),
+         q(0),
+         ],
+      q(nyt) => [
+         q(5171),
+         q(0),
+         ],
+      q(nyu) => [
+         q(5172),
+         q(0),
+         ],
+      q(nyv) => [
+         q(5173),
+         q(0),
+         ],
+      q(nyw) => [
+         q(5174),
+         q(0),
+         ],
+      q(nyx) => [
+         q(5175),
+         q(0),
+         ],
+      q(nyy) => [
+         q(5176),
+         q(0),
+         ],
+      q(nza) => [
+         q(5177),
+         q(0),
+         ],
+      q(nzb) => [
+         q(5178),
+         q(0),
+         ],
+      q(nzi) => [
+         q(0325),
+         q(0),
+         ],
+      q(nzk) => [
+         q(5179),
+         q(0),
+         ],
+      q(nzm) => [
+         q(5180),
+         q(0),
+         ],
+      q(nzs) => [
+         q(5181),
+         q(0),
+         ],
+      q(nzu) => [
+         q(5182),
+         q(0),
+         ],
+      q(nzy) => [
+         q(5183),
+         q(0),
+         ],
+      q(nzz) => [
+         q(5184),
+         q(0),
+         ],
+      q(oaa) => [
+         q(5185),
+         q(0),
+         ],
+      q(oac) => [
+         q(5186),
+         q(0),
+         ],
+      q(oar) => [
+         q(5187),
+         q(0),
+         ],
+      q(oav) => [
+         q(5188),
+         q(0),
+         ],
+      q(obi) => [
+         q(5189),
+         q(0),
+         ],
+      q(obk) => [
+         q(5190),
+         q(0),
+         ],
+      q(obl) => [
+         q(5191),
+         q(0),
+         ],
+      q(obm) => [
+         q(5192),
+         q(0),
+         ],
+      q(obo) => [
+         q(5193),
+         q(0),
+         ],
+      q(obr) => [
+         q(5194),
+         q(0),
+         ],
+      q(obt) => [
+         q(5195),
+         q(0),
+         ],
+      q(obu) => [
+         q(5196),
+         q(0),
+         ],
+      q(oca) => [
+         q(5197),
+         q(0),
+         ],
+      q(och) => [
+         q(5198),
+         q(0),
+         ],
+      q(oci) => [
+         q(0326),
+         q(0),
+         ],
+      q(oco) => [
+         q(5199),
+         q(0),
+         ],
+      q(ocu) => [
+         q(5200),
+         q(0),
+         ],
+      q(oda) => [
+         q(5201),
+         q(0),
+         ],
+      q(odk) => [
+         q(5202),
+         q(0),
+         ],
+      q(odt) => [
+         q(5203),
+         q(0),
+         ],
+      q(odu) => [
+         q(5204),
+         q(0),
+         ],
+      q(ofo) => [
+         q(5205),
+         q(0),
+         ],
+      q(ofs) => [
+         q(5206),
+         q(0),
+         ],
+      q(ofu) => [
+         q(5207),
+         q(0),
+         ],
+      q(ogb) => [
+         q(5208),
+         q(0),
+         ],
+      q(ogc) => [
+         q(5209),
+         q(0),
+         ],
+      q(oge) => [
+         q(5210),
+         q(0),
+         ],
+      q(ogg) => [
+         q(5211),
+         q(0),
+         ],
+      q(ogo) => [
+         q(5212),
+         q(0),
+         ],
+      q(ogu) => [
+         q(5213),
+         q(0),
+         ],
+      q(oht) => [
+         q(5214),
+         q(0),
+         ],
+      q(ohu) => [
+         q(5215),
+         q(0),
+         ],
+      q(oia) => [
+         q(5216),
+         q(0),
+         ],
+      q(oin) => [
+         q(5217),
+         q(0),
+         ],
+      q(ojb) => [
+         q(5218),
+         q(0),
+         ],
+      q(ojc) => [
+         q(5219),
+         q(0),
+         ],
+      q(ojg) => [
+         q(5220),
+         q(0),
+         ],
+      q(oji) => [
+         q(0327),
+         q(0),
+         ],
+      q(ojp) => [
+         q(5221),
+         q(0),
+         ],
+      q(ojs) => [
+         q(5222),
+         q(0),
+         ],
+      q(ojv) => [
+         q(5223),
+         q(0),
+         ],
+      q(ojw) => [
+         q(5224),
+         q(0),
+         ],
+      q(oka) => [
+         q(5225),
+         q(0),
+         ],
+      q(okb) => [
+         q(5226),
+         q(0),
+         ],
+      q(okd) => [
+         q(5227),
+         q(0),
+         ],
+      q(oke) => [
+         q(5228),
+         q(0),
+         ],
+      q(okg) => [
+         q(5229),
+         q(0),
+         ],
+      q(okh) => [
+         q(5230),
+         q(0),
+         ],
+      q(oki) => [
+         q(5231),
+         q(0),
+         ],
+      q(okj) => [
+         q(5232),
+         q(0),
+         ],
+      q(okk) => [
+         q(5233),
+         q(0),
+         ],
+      q(okl) => [
+         q(5234),
+         q(0),
+         ],
+      q(okm) => [
+         q(5235),
+         q(0),
+         ],
+      q(okn) => [
+         q(5236),
+         q(0),
+         ],
+      q(oko) => [
+         q(5237),
+         q(0),
+         ],
+      q(okr) => [
+         q(5238),
+         q(0),
+         ],
+      q(oks) => [
+         q(5239),
+         q(0),
+         ],
+      q(oku) => [
+         q(5240),
+         q(0),
+         ],
+      q(okv) => [
+         q(5241),
+         q(0),
+         ],
+      q(okx) => [
+         q(5242),
+         q(0),
+         ],
+      q(ola) => [
+         q(5243),
+         q(0),
+         ],
+      q(old) => [
+         q(5244),
+         q(0),
+         ],
+      q(ole) => [
+         q(5245),
+         q(0),
+         ],
+      q(olk) => [
+         q(5246),
+         q(0),
+         ],
+      q(olm) => [
+         q(5247),
+         q(0),
+         ],
+      q(olo) => [
+         q(5248),
+         q(0),
+         ],
+      q(olr) => [
+         q(5249),
+         q(0),
+         ],
+      q(olt) => [
+         q(5250),
+         q(0),
+         ],
+      q(oma) => [
+         q(5251),
+         q(0),
+         ],
+      q(omb) => [
+         q(5252),
+         q(0),
+         ],
+      q(omc) => [
+         q(5253),
+         q(0),
+         ],
+      q(ome) => [
+         q(5254),
+         q(0),
+         ],
+      q(omg) => [
+         q(5255),
+         q(0),
+         ],
+      q(omi) => [
+         q(5256),
+         q(0),
+         ],
+      q(omk) => [
+         q(5257),
+         q(0),
+         ],
+      q(oml) => [
+         q(5258),
+         q(0),
+         ],
+      q(omn) => [
+         q(5259),
+         q(0),
+         ],
+      q(omo) => [
+         q(5260),
+         q(0),
+         ],
+      q(omp) => [
+         q(5261),
+         q(0),
+         ],
+      q(omq) => [
+         q(0517),
+         q(0),
+         ],
+      q(omr) => [
+         q(5262),
+         q(0),
+         ],
+      q(omt) => [
+         q(5263),
+         q(0),
+         ],
+      q(omu) => [
+         q(5264),
+         q(0),
+         ],
+      q(omv) => [
+         q(0518),
+         q(0),
+         ],
+      q(omw) => [
+         q(5265),
+         q(0),
+         ],
+      q(omx) => [
+         q(5266),
+         q(0),
+         ],
+      q(ona) => [
+         q(5267),
+         q(0),
+         ],
+      q(onb) => [
+         q(5268),
+         q(0),
+         ],
+      q(one) => [
+         q(5269),
+         q(0),
+         ],
+      q(ong) => [
+         q(5270),
+         q(0),
+         ],
+      q(oni) => [
+         q(5271),
+         q(0),
+         ],
+      q(onj) => [
+         q(5272),
+         q(0),
+         ],
+      q(onk) => [
+         q(5273),
+         q(0),
+         ],
+      q(onn) => [
+         q(5274),
+         q(0),
+         ],
+      q(ono) => [
+         q(5275),
+         q(0),
+         ],
+      q(onp) => [
+         q(5276),
+         q(0),
+         ],
+      q(onr) => [
+         q(5277),
+         q(0),
+         ],
+      q(ons) => [
+         q(5278),
+         q(0),
+         ],
+      q(ont) => [
+         q(5279),
+         q(0),
+         ],
+      q(onu) => [
+         q(5280),
+         q(0),
+         ],
+      q(onw) => [
+         q(5281),
+         q(0),
+         ],
+      q(onx) => [
+         q(5282),
+         q(0),
+         ],
+      q(ood) => [
+         q(5283),
+         q(0),
+         ],
+      q(oog) => [
+         q(5284),
+         q(0),
+         ],
+      q(oon) => [
+         q(5285),
+         q(0),
+         ],
+      q(oor) => [
+         q(5286),
+         q(0),
+         ],
+      q(oos) => [
+         q(5287),
+         q(0),
+         ],
+      q(opa) => [
+         q(5288),
+         q(0),
+         ],
+      q(opk) => [
+         q(5289),
+         q(0),
+         ],
+      q(opm) => [
+         q(5290),
+         q(0),
+         ],
+      q(opo) => [
+         q(5291),
+         q(0),
+         ],
+      q(opt) => [
+         q(5292),
+         q(0),
+         ],
+      q(opy) => [
+         q(5293),
+         q(0),
+         ],
+      q(ora) => [
+         q(5294),
+         q(0),
+         ],
+      q(orc) => [
+         q(5295),
+         q(0),
+         ],
+      q(ore) => [
+         q(5296),
+         q(0),
+         ],
+      q(org) => [
+         q(5297),
+         q(0),
+         ],
+      q(orh) => [
+         q(5298),
+         q(0),
+         ],
+      q(ori) => [
+         q(0328),
+         q(0),
+         ],
+      q(orm) => [
+         q(0329),
+         q(0),
+         ],
+      q(orn) => [
+         q(5299),
+         q(0),
+         ],
+      q(oro) => [
+         q(5300),
+         q(0),
+         ],
+      q(orr) => [
+         q(5301),
+         q(0),
+         ],
+      q(ors) => [
+         q(5302),
+         q(0),
+         ],
+      q(ort) => [
+         q(5303),
+         q(0),
+         ],
+      q(oru) => [
+         q(5304),
+         q(0),
+         ],
+      q(orv) => [
+         q(5305),
+         q(0),
+         ],
+      q(orw) => [
+         q(5306),
+         q(0),
+         ],
+      q(orx) => [
+         q(5307),
+         q(0),
+         ],
+      q(ory) => [
+         q(5308),
+         q(0),
+         ],
+      q(orz) => [
+         q(5309),
+         q(0),
+         ],
+      q(osa) => [
+         q(0330),
+         q(0),
+         ],
+      q(osc) => [
+         q(5310),
+         q(0),
+         ],
+      q(osi) => [
+         q(5311),
+         q(0),
+         ],
+      q(oso) => [
+         q(5312),
+         q(0),
+         ],
+      q(osp) => [
+         q(5313),
+         q(0),
+         ],
+      q(oss) => [
+         q(0331),
+         q(0),
+         ],
+      q(ost) => [
+         q(5314),
+         q(0),
+         ],
+      q(osu) => [
+         q(5315),
+         q(0),
+         ],
+      q(osx) => [
+         q(5316),
+         q(0),
+         ],
+      q(ota) => [
+         q(0332),
+         q(1),
+         ],
+      q(otb) => [
+         q(5317),
+         q(0),
+         ],
+      q(otd) => [
+         q(5318),
+         q(0),
+         ],
+      q(ote) => [
+         q(5319),
+         q(0),
+         ],
+      q(oti) => [
+         q(5320),
+         q(0),
+         ],
+      q(otk) => [
+         q(5321),
+         q(0),
+         ],
+      q(otl) => [
+         q(5322),
+         q(0),
+         ],
+      q(otm) => [
+         q(5323),
+         q(0),
+         ],
+      q(otn) => [
+         q(5324),
+         q(0),
+         ],
+      q(oto) => [
+         q(0333),
+         q(0),
+         ],
+      q(otq) => [
+         q(5325),
+         q(0),
+         ],
+      q(otr) => [
+         q(5326),
+         q(0),
+         ],
+      q(ots) => [
+         q(5327),
+         q(0),
+         ],
+      q(ott) => [
+         q(5328),
+         q(0),
+         ],
+      q(otu) => [
+         q(5329),
+         q(0),
+         ],
+      q(otw) => [
+         q(5330),
+         q(0),
+         ],
+      q(otx) => [
+         q(5331),
+         q(0),
+         ],
+      q(oty) => [
+         q(5332),
+         q(0),
+         ],
+      q(otz) => [
+         q(5333),
+         q(0),
+         ],
+      q(oua) => [
+         q(5334),
+         q(0),
+         ],
+      q(oub) => [
+         q(5335),
+         q(0),
+         ],
+      q(oue) => [
+         q(5336),
+         q(0),
+         ],
+      q(oui) => [
+         q(5337),
+         q(0),
+         ],
+      q(oum) => [
+         q(5338),
+         q(0),
+         ],
+      q(owi) => [
+         q(5339),
+         q(0),
+         ],
+      q(owl) => [
+         q(5340),
+         q(0),
+         ],
+      q(oyb) => [
+         q(5341),
+         q(0),
+         ],
+      q(oyd) => [
+         q(5342),
+         q(0),
+         ],
+      q(oym) => [
+         q(5343),
+         q(0),
+         ],
+      q(oyy) => [
+         q(5344),
+         q(0),
+         ],
+      q(ozm) => [
+         q(5345),
+         q(0),
+         ],
+      q(paa) => [
+         q(0334),
+         q(0),
+         ],
+      q(pab) => [
+         q(5346),
+         q(0),
+         ],
+      q(pac) => [
+         q(5347),
+         q(0),
+         ],
+      q(pad) => [
+         q(5348),
+         q(0),
+         ],
+      q(pae) => [
+         q(5349),
+         q(0),
+         ],
+      q(paf) => [
+         q(5350),
+         q(0),
+         ],
+      q(pag) => [
+         q(0335),
+         q(0),
+         ],
+      q(pah) => [
+         q(5351),
+         q(0),
+         ],
+      q(pai) => [
+         q(5352),
+         q(0),
+         ],
+      q(pak) => [
+         q(5353),
+         q(0),
+         ],
+      q(pal) => [
+         q(0336),
+         q(0),
+         ],
+      q(pam) => [
+         q(0337),
+         q(0),
+         ],
+      q(pan) => [
+         q(0338),
+         q(0),
+         ],
+      q(pao) => [
+         q(5354),
+         q(0),
+         ],
+      q(pap) => [
+         q(0339),
+         q(0),
+         ],
+      q(paq) => [
+         q(5355),
+         q(0),
+         ],
+      q(par) => [
+         q(5356),
+         q(0),
+         ],
+      q(pas) => [
+         q(5357),
+         q(0),
+         ],
+      q(pat) => [
+         q(5358),
+         q(0),
+         ],
+      q(pau) => [
+         q(0340),
+         q(0),
+         ],
+      q(pav) => [
+         q(5359),
+         q(0),
+         ],
+      q(paw) => [
+         q(5360),
+         q(0),
+         ],
+      q(pax) => [
+         q(5361),
+         q(0),
+         ],
+      q(pay) => [
+         q(5362),
+         q(0),
+         ],
+      q(paz) => [
+         q(5363),
+         q(0),
+         ],
+      q(pbb) => [
+         q(5364),
+         q(0),
+         ],
+      q(pbc) => [
+         q(5365),
+         q(0),
+         ],
+      q(pbe) => [
+         q(5366),
+         q(0),
+         ],
+      q(pbf) => [
+         q(5367),
+         q(0),
+         ],
+      q(pbg) => [
+         q(5368),
+         q(0),
+         ],
+      q(pbh) => [
+         q(5369),
+         q(0),
+         ],
+      q(pbi) => [
+         q(5370),
+         q(0),
+         ],
+      q(pbl) => [
+         q(5371),
+         q(0),
+         ],
+      q(pbn) => [
+         q(5372),
+         q(0),
+         ],
+      q(pbo) => [
+         q(5373),
+         q(0),
+         ],
+      q(pbp) => [
+         q(5374),
+         q(0),
+         ],
+      q(pbr) => [
+         q(5375),
+         q(0),
+         ],
+      q(pbs) => [
+         q(5376),
+         q(0),
+         ],
+      q(pbt) => [
+         q(5377),
+         q(0),
+         ],
+      q(pbu) => [
+         q(5378),
+         q(0),
+         ],
+      q(pbv) => [
+         q(5379),
+         q(0),
+         ],
+      q(pby) => [
+         q(5380),
+         q(0),
+         ],
+      q(pca) => [
+         q(5381),
+         q(0),
+         ],
+      q(pcb) => [
+         q(5382),
+         q(0),
+         ],
+      q(pcc) => [
+         q(5383),
+         q(0),
+         ],
+      q(pcd) => [
+         q(5384),
+         q(0),
+         ],
+      q(pce) => [
+         q(5385),
+         q(0),
+         ],
+      q(pcf) => [
+         q(5386),
+         q(0),
+         ],
+      q(pcg) => [
+         q(5387),
+         q(0),
+         ],
+      q(pch) => [
+         q(5388),
+         q(0),
+         ],
+      q(pci) => [
+         q(5389),
+         q(0),
+         ],
+      q(pcj) => [
+         q(5390),
+         q(0),
+         ],
+      q(pck) => [
+         q(5391),
+         q(0),
+         ],
+      q(pcl) => [
+         q(5392),
+         q(0),
+         ],
+      q(pcm) => [
+         q(5393),
+         q(0),
+         ],
+      q(pcn) => [
+         q(5394),
+         q(0),
+         ],
+      q(pcp) => [
+         q(5395),
+         q(0),
+         ],
+      q(pcw) => [
+         q(5396),
+         q(0),
+         ],
+      q(pda) => [
+         q(5397),
+         q(0),
+         ],
+      q(pdc) => [
+         q(5398),
+         q(0),
+         ],
+      q(pdi) => [
+         q(5399),
+         q(0),
+         ],
+      q(pdn) => [
+         q(5400),
+         q(0),
+         ],
+      q(pdo) => [
+         q(5401),
+         q(0),
+         ],
+      q(pdt) => [
+         q(5402),
+         q(0),
+         ],
+      q(pdu) => [
+         q(5403),
+         q(0),
+         ],
+      q(pea) => [
+         q(5404),
+         q(0),
+         ],
+      q(peb) => [
+         q(5405),
+         q(0),
+         ],
+      q(ped) => [
+         q(5406),
+         q(0),
+         ],
+      q(pee) => [
+         q(5407),
+         q(0),
+         ],
+      q(pef) => [
+         q(5408),
+         q(0),
+         ],
+      q(peg) => [
+         q(5409),
+         q(0),
+         ],
+      q(peh) => [
+         q(5410),
+         q(0),
+         ],
+      q(pei) => [
+         q(5411),
+         q(0),
+         ],
+      q(pej) => [
+         q(5412),
+         q(0),
+         ],
+      q(pek) => [
+         q(5413),
+         q(0),
+         ],
+      q(pel) => [
+         q(5414),
+         q(0),
+         ],
+      q(pem) => [
+         q(5415),
+         q(0),
+         ],
+      q(peo) => [
+         q(0341),
+         q(1),
+         ],
+      q(pep) => [
+         q(5416),
+         q(0),
+         ],
+      q(peq) => [
+         q(5417),
+         q(0),
+         ],
+      q(per) => [
+         q(0342),
+         q(0),
+         ],
+      q(pes) => [
+         q(5418),
+         q(0),
+         ],
+      q(pev) => [
+         q(5419),
+         q(0),
+         ],
+      q(pex) => [
+         q(5420),
+         q(0),
+         ],
+      q(pey) => [
+         q(5421),
+         q(0),
+         ],
+      q(pez) => [
+         q(5422),
+         q(0),
+         ],
+      q(pfa) => [
+         q(5423),
+         q(0),
+         ],
+      q(pfe) => [
+         q(5424),
+         q(0),
+         ],
+      q(pfl) => [
+         q(5425),
+         q(0),
+         ],
+      q(pga) => [
+         q(5426),
+         q(0),
+         ],
+      q(pgd) => [
+         q(5427),
+         q(0),
+         ],
+      q(pgg) => [
+         q(5428),
+         q(0),
+         ],
+      q(pgi) => [
+         q(5429),
+         q(0),
+         ],
+      q(pgk) => [
+         q(5430),
+         q(0),
+         ],
+      q(pgl) => [
+         q(5431),
+         q(0),
+         ],
+      q(pgn) => [
+         q(5432),
+         q(0),
+         ],
+      q(pgs) => [
+         q(5433),
+         q(0),
+         ],
+      q(pgu) => [
+         q(5434),
+         q(0),
+         ],
+      q(pha) => [
+         q(5435),
+         q(0),
+         ],
+      q(phd) => [
+         q(5436),
+         q(0),
+         ],
+      q(phg) => [
+         q(5437),
+         q(0),
+         ],
+      q(phh) => [
+         q(5438),
+         q(0),
+         ],
+      q(phi) => [
+         q(0343),
+         q(0),
+         ],
+      q(phk) => [
+         q(5439),
+         q(0),
+         ],
+      q(phl) => [
+         q(5440),
+         q(0),
+         ],
+      q(phm) => [
+         q(5441),
+         q(0),
+         ],
+      q(phn) => [
+         q(0344),
+         q(0),
+         ],
+      q(pho) => [
+         q(5442),
+         q(0),
+         ],
+      q(phq) => [
+         q(5443),
+         q(0),
+         ],
+      q(phr) => [
+         q(5444),
+         q(0),
+         ],
+      q(pht) => [
+         q(5445),
+         q(0),
+         ],
+      q(phu) => [
+         q(5446),
+         q(0),
+         ],
+      q(phv) => [
+         q(5447),
+         q(0),
+         ],
+      q(phw) => [
+         q(5448),
+         q(0),
+         ],
+      q(pia) => [
+         q(5449),
+         q(0),
+         ],
+      q(pib) => [
+         q(5450),
+         q(0),
+         ],
+      q(pic) => [
+         q(5451),
+         q(0),
+         ],
+      q(pid) => [
+         q(5452),
+         q(0),
+         ],
+      q(pie) => [
+         q(5453),
+         q(0),
+         ],
+      q(pif) => [
+         q(5454),
+         q(0),
+         ],
+      q(pig) => [
+         q(5455),
+         q(0),
+         ],
+      q(pih) => [
+         q(5456),
+         q(0),
+         ],
+      q(pii) => [
+         q(5457),
+         q(0),
+         ],
+      q(pij) => [
+         q(5458),
+         q(0),
+         ],
+      q(pil) => [
+         q(5459),
+         q(0),
+         ],
+      q(pim) => [
+         q(5460),
+         q(0),
+         ],
+      q(pin) => [
+         q(5461),
+         q(0),
+         ],
+      q(pio) => [
+         q(5462),
+         q(0),
+         ],
+      q(pip) => [
+         q(5463),
+         q(0),
+         ],
+      q(pir) => [
+         q(5464),
+         q(0),
+         ],
+      q(pis) => [
+         q(5465),
+         q(0),
+         ],
+      q(pit) => [
+         q(5466),
+         q(0),
+         ],
+      q(piu) => [
+         q(5467),
+         q(0),
+         ],
+      q(piv) => [
+         q(5468),
+         q(0),
+         ],
+      q(piw) => [
+         q(5469),
+         q(0),
+         ],
+      q(pix) => [
+         q(5470),
+         q(0),
+         ],
+      q(piy) => [
+         q(5471),
+         q(0),
+         ],
+      q(piz) => [
+         q(5472),
+         q(0),
+         ],
+      q(pjt) => [
+         q(5473),
+         q(0),
+         ],
+      q(pka) => [
+         q(5474),
+         q(0),
+         ],
+      q(pkb) => [
+         q(5475),
+         q(0),
+         ],
+      q(pkc) => [
+         q(5476),
+         q(0),
+         ],
+      q(pkg) => [
+         q(5477),
+         q(0),
+         ],
+      q(pkh) => [
+         q(5478),
+         q(0),
+         ],
+      q(pkn) => [
+         q(5479),
+         q(0),
+         ],
+      q(pko) => [
+         q(5480),
+         q(0),
+         ],
+      q(pkp) => [
+         q(5481),
+         q(0),
+         ],
+      q(pkr) => [
+         q(5482),
+         q(0),
+         ],
+      q(pks) => [
+         q(5483),
+         q(0),
+         ],
+      q(pkt) => [
+         q(5484),
+         q(0),
+         ],
+      q(pku) => [
+         q(5485),
+         q(0),
+         ],
+      q(pla) => [
+         q(5486),
+         q(0),
+         ],
+      q(plb) => [
+         q(5487),
+         q(0),
+         ],
+      q(plc) => [
+         q(5488),
+         q(0),
+         ],
+      q(pld) => [
+         q(5489),
+         q(0),
+         ],
+      q(ple) => [
+         q(5490),
+         q(0),
+         ],
+      q(plf) => [
+         q(0519),
+         q(0),
+         ],
+      q(plg) => [
+         q(5491),
+         q(0),
+         ],
+      q(plh) => [
+         q(5492),
+         q(0),
+         ],
+      q(pli) => [
+         q(0345),
+         q(0),
+         ],
+      q(plj) => [
+         q(5493),
+         q(0),
+         ],
+      q(plk) => [
+         q(5494),
+         q(0),
+         ],
+      q(pll) => [
+         q(5495),
+         q(0),
+         ],
+      q(pln) => [
+         q(5496),
+         q(0),
+         ],
+      q(plo) => [
+         q(5497),
+         q(0),
+         ],
+      q(plp) => [
+         q(5498),
+         q(0),
+         ],
+      q(plq) => [
+         q(5499),
+         q(0),
+         ],
+      q(plr) => [
+         q(5500),
+         q(0),
+         ],
+      q(pls) => [
+         q(5501),
+         q(0),
+         ],
+      q(plt) => [
+         q(5502),
+         q(0),
+         ],
+      q(plu) => [
+         q(5503),
+         q(0),
+         ],
+      q(plv) => [
+         q(5504),
+         q(0),
+         ],
+      q(plw) => [
+         q(5505),
+         q(0),
+         ],
+      q(ply) => [
+         q(5506),
+         q(0),
+         ],
+      q(plz) => [
+         q(5507),
+         q(0),
+         ],
+      q(pma) => [
+         q(5508),
+         q(0),
+         ],
+      q(pmb) => [
+         q(5509),
+         q(0),
+         ],
+      q(pmc) => [
+         q(5510),
+         q(0),
+         ],
+      q(pmd) => [
+         q(5511),
+         q(0),
+         ],
+      q(pme) => [
+         q(5512),
+         q(0),
+         ],
+      q(pmf) => [
+         q(5513),
+         q(0),
+         ],
+      q(pmh) => [
+         q(5514),
+         q(0),
+         ],
+      q(pmi) => [
+         q(5515),
+         q(0),
+         ],
+      q(pmj) => [
+         q(5516),
+         q(0),
+         ],
+      q(pmk) => [
+         q(5517),
+         q(0),
+         ],
+      q(pml) => [
+         q(5518),
+         q(0),
+         ],
+      q(pmm) => [
+         q(5519),
+         q(0),
+         ],
+      q(pmn) => [
+         q(5520),
+         q(0),
+         ],
+      q(pmo) => [
+         q(5521),
+         q(0),
+         ],
+      q(pmq) => [
+         q(5522),
+         q(0),
+         ],
+      q(pmr) => [
+         q(5523),
+         q(0),
+         ],
+      q(pms) => [
+         q(5524),
+         q(0),
+         ],
+      q(pmt) => [
+         q(5525),
+         q(0),
+         ],
+      q(pmw) => [
+         q(5526),
+         q(0),
+         ],
+      q(pmx) => [
+         q(5527),
+         q(0),
+         ],
+      q(pmy) => [
+         q(5528),
+         q(0),
+         ],
+      q(pmz) => [
+         q(5529),
+         q(0),
+         ],
+      q(pna) => [
+         q(5530),
+         q(0),
+         ],
+      q(pnb) => [
+         q(5531),
+         q(0),
+         ],
+      q(pnc) => [
+         q(5532),
+         q(0),
+         ],
+      q(pne) => [
+         q(5533),
+         q(0),
+         ],
+      q(png) => [
+         q(5534),
+         q(0),
+         ],
+      q(pnh) => [
+         q(5535),
+         q(0),
+         ],
+      q(pni) => [
+         q(5536),
+         q(0),
+         ],
+      q(pnj) => [
+         q(5537),
+         q(0),
+         ],
+      q(pnk) => [
+         q(5538),
+         q(0),
+         ],
+      q(pnl) => [
+         q(5539),
+         q(0),
+         ],
+      q(pnm) => [
+         q(5540),
+         q(0),
+         ],
+      q(pnn) => [
+         q(5541),
+         q(0),
+         ],
+      q(pno) => [
+         q(5542),
+         q(0),
+         ],
+      q(pnp) => [
+         q(5543),
+         q(0),
+         ],
+      q(pnq) => [
+         q(5544),
+         q(0),
+         ],
+      q(pnr) => [
+         q(5545),
+         q(0),
+         ],
+      q(pns) => [
+         q(5546),
+         q(0),
+         ],
+      q(pnt) => [
+         q(5547),
+         q(0),
+         ],
+      q(pnu) => [
+         q(5548),
+         q(0),
+         ],
+      q(pnv) => [
+         q(5549),
+         q(0),
+         ],
+      q(pnw) => [
+         q(5550),
+         q(0),
+         ],
+      q(pnx) => [
+         q(5551),
+         q(0),
+         ],
+      q(pny) => [
+         q(5552),
+         q(0),
+         ],
+      q(pnz) => [
+         q(5553),
+         q(0),
+         ],
+      q(poc) => [
+         q(5554),
+         q(0),
+         ],
+      q(pod) => [
+         q(5555),
+         q(0),
+         ],
+      q(poe) => [
+         q(5556),
+         q(0),
+         ],
+      q(pof) => [
+         q(5557),
+         q(0),
+         ],
+      q(pog) => [
+         q(5558),
+         q(0),
+         ],
+      q(poh) => [
+         q(5559),
+         q(0),
+         ],
+      q(poi) => [
+         q(5560),
+         q(0),
+         ],
+      q(pok) => [
+         q(5561),
+         q(0),
+         ],
+      q(pol) => [
+         q(0346),
+         q(0),
+         ],
+      q(pom) => [
+         q(5562),
+         q(0),
+         ],
+      q(pon) => [
+         q(0347),
+         q(0),
+         ],
+      q(poo) => [
+         q(5563),
+         q(0),
+         ],
+      q(pop) => [
+         q(5564),
+         q(0),
+         ],
+      q(poq) => [
+         q(5565),
+         q(0),
+         ],
+      q(por) => [
+         q(0348),
+         q(0),
+         ],
+      q(pos) => [
+         q(5566),
+         q(0),
+         ],
+      q(pot) => [
+         q(5567),
+         q(0),
+         ],
+      q(pov) => [
+         q(5568),
+         q(0),
+         ],
+      q(pow) => [
+         q(5569),
+         q(0),
+         ],
+      q(pox) => [
+         q(5570),
+         q(0),
+         ],
+      q(poy) => [
+         q(5571),
+         q(0),
+         ],
+      q(poz) => [
+         q(0520),
+         q(0),
+         ],
+      q(ppa) => [
+         q(5572),
+         q(0),
+         ],
+      q(ppe) => [
+         q(5573),
+         q(0),
+         ],
+      q(ppi) => [
+         q(5574),
+         q(0),
+         ],
+      q(ppk) => [
+         q(5575),
+         q(0),
+         ],
+      q(ppl) => [
+         q(5576),
+         q(0),
+         ],
+      q(ppm) => [
+         q(5577),
+         q(0),
+         ],
+      q(ppn) => [
+         q(5578),
+         q(0),
+         ],
+      q(ppo) => [
+         q(5579),
+         q(0),
+         ],
+      q(ppp) => [
+         q(5580),
+         q(0),
+         ],
+      q(ppq) => [
+         q(5581),
+         q(0),
+         ],
+      q(pps) => [
+         q(5582),
+         q(0),
+         ],
+      q(ppt) => [
+         q(5583),
+         q(0),
+         ],
+      q(ppu) => [
+         q(5584),
+         q(0),
+         ],
+      q(pqa) => [
+         q(5585),
+         q(0),
+         ],
+      q(pqe) => [
+         q(0521),
+         q(0),
+         ],
+      q(pqm) => [
+         q(5586),
+         q(0),
+         ],
+      q(pqw) => [
+         q(0522),
+         q(0),
+         ],
+      q(pra) => [
+         q(0349),
+         q(0),
+         ],
+      q(prb) => [
+         q(5587),
+         q(0),
+         ],
+      q(prc) => [
+         q(5588),
+         q(0),
+         ],
+      q(prd) => [
+         q(5589),
+         q(0),
+         ],
+      q(pre) => [
+         q(5590),
+         q(0),
+         ],
+      q(prf) => [
+         q(5591),
+         q(0),
+         ],
+      q(prg) => [
+         q(5592),
+         q(0),
+         ],
+      q(prh) => [
+         q(5593),
+         q(0),
+         ],
+      q(pri) => [
+         q(5594),
+         q(0),
+         ],
+      q(prk) => [
+         q(5595),
+         q(0),
+         ],
+      q(prl) => [
+         q(5596),
+         q(0),
+         ],
+      q(prm) => [
+         q(5597),
+         q(0),
+         ],
+      q(prn) => [
+         q(5598),
+         q(0),
+         ],
+      q(pro) => [
+         q(0350),
+         q(1),
+         ],
+      q(prp) => [
+         q(5599),
+         q(0),
+         ],
+      q(prq) => [
+         q(5600),
+         q(0),
+         ],
+      q(prr) => [
+         q(5601),
+         q(0),
+         ],
+      q(prs) => [
+         q(5602),
+         q(0),
+         ],
+      q(prt) => [
+         q(5603),
+         q(0),
+         ],
+      q(pru) => [
+         q(5604),
+         q(0),
+         ],
+      q(prw) => [
+         q(5605),
+         q(0),
+         ],
+      q(prx) => [
+         q(5606),
+         q(0),
+         ],
+      q(pry) => [
+         q(5607),
+         q(0),
+         ],
+      q(prz) => [
+         q(5608),
+         q(0),
+         ],
+      q(psa) => [
+         q(5609),
+         q(0),
+         ],
+      q(psc) => [
+         q(5610),
+         q(0),
+         ],
+      q(psd) => [
+         q(5611),
+         q(0),
+         ],
+      q(pse) => [
+         q(5612),
+         q(0),
+         ],
+      q(psg) => [
+         q(5613),
+         q(0),
+         ],
+      q(psh) => [
+         q(5614),
+         q(0),
+         ],
+      q(psi) => [
+         q(5615),
+         q(0),
+         ],
+      q(psl) => [
+         q(5616),
+         q(0),
+         ],
+      q(psm) => [
+         q(5617),
+         q(0),
+         ],
+      q(psn) => [
+         q(5618),
+         q(0),
+         ],
+      q(pso) => [
+         q(5619),
+         q(0),
+         ],
+      q(psp) => [
+         q(5620),
+         q(0),
+         ],
+      q(psq) => [
+         q(5621),
+         q(0),
+         ],
+      q(psr) => [
+         q(5622),
+         q(0),
+         ],
+      q(pss) => [
+         q(5623),
+         q(0),
+         ],
+      q(pst) => [
+         q(5624),
+         q(0),
+         ],
+      q(psu) => [
+         q(5625),
+         q(0),
+         ],
+      q(psw) => [
+         q(5626),
+         q(0),
+         ],
+      q(psy) => [
+         q(5627),
+         q(0),
+         ],
+      q(pta) => [
+         q(5628),
+         q(0),
+         ],
+      q(pth) => [
+         q(5629),
+         q(0),
+         ],
+      q(pti) => [
+         q(5630),
+         q(0),
+         ],
+      q(ptn) => [
+         q(5631),
+         q(0),
+         ],
+      q(pto) => [
+         q(5632),
+         q(0),
+         ],
+      q(ptp) => [
+         q(5633),
+         q(0),
+         ],
+      q(ptq) => [
+         q(5634),
+         q(0),
+         ],
+      q(ptr) => [
+         q(5635),
+         q(0),
+         ],
+      q(ptt) => [
+         q(5636),
+         q(0),
+         ],
+      q(ptu) => [
+         q(5637),
+         q(0),
+         ],
+      q(ptv) => [
+         q(5638),
+         q(0),
+         ],
+      q(ptw) => [
+         q(5639),
+         q(0),
+         ],
+      q(pty) => [
+         q(5640),
+         q(0),
+         ],
+      q(pua) => [
+         q(5641),
+         q(0),
+         ],
+      q(pub) => [
+         q(5642),
+         q(0),
+         ],
+      q(puc) => [
+         q(5643),
+         q(0),
+         ],
+      q(pud) => [
+         q(5644),
+         q(0),
+         ],
+      q(pue) => [
+         q(5645),
+         q(0),
+         ],
+      q(puf) => [
+         q(5646),
+         q(0),
+         ],
+      q(pug) => [
+         q(5647),
+         q(0),
+         ],
+      q(pui) => [
+         q(5648),
+         q(0),
+         ],
+      q(puj) => [
+         q(5649),
+         q(0),
+         ],
+      q(puk) => [
+         q(5650),
+         q(0),
+         ],
+      q(pum) => [
+         q(5651),
+         q(0),
+         ],
+      q(puo) => [
+         q(5652),
+         q(0),
+         ],
+      q(pup) => [
+         q(5653),
+         q(0),
+         ],
+      q(puq) => [
+         q(5654),
+         q(0),
+         ],
+      q(pur) => [
+         q(5655),
+         q(0),
+         ],
+      q(pus) => [
+         q(0351),
+         q(0),
+         ],
+      q(put) => [
+         q(5656),
+         q(0),
+         ],
+      q(puu) => [
+         q(5657),
+         q(0),
+         ],
+      q(puw) => [
+         q(5658),
+         q(0),
+         ],
+      q(pux) => [
+         q(5659),
+         q(0),
+         ],
+      q(puy) => [
+         q(5660),
+         q(0),
+         ],
+      q(pwa) => [
+         q(5661),
+         q(0),
+         ],
+      q(pwb) => [
+         q(5662),
+         q(0),
+         ],
+      q(pwg) => [
+         q(5663),
+         q(0),
+         ],
+      q(pwi) => [
+         q(5664),
+         q(0),
+         ],
+      q(pwm) => [
+         q(5665),
+         q(0),
+         ],
+      q(pwn) => [
+         q(5666),
+         q(0),
+         ],
+      q(pwo) => [
+         q(5667),
+         q(0),
+         ],
+      q(pwr) => [
+         q(5668),
+         q(0),
+         ],
+      q(pww) => [
+         q(5669),
+         q(0),
+         ],
+      q(pxm) => [
+         q(5670),
+         q(0),
+         ],
+      q(pye) => [
+         q(5671),
+         q(0),
+         ],
+      q(pym) => [
+         q(5672),
+         q(0),
+         ],
+      q(pyn) => [
+         q(5673),
+         q(0),
+         ],
+      q(pys) => [
+         q(5674),
+         q(0),
+         ],
+      q(pyu) => [
+         q(5675),
+         q(0),
+         ],
+      q(pyx) => [
+         q(5676),
+         q(0),
+         ],
+      q(pyy) => [
+         q(5677),
+         q(0),
+         ],
+      q(pzn) => [
+         q(5678),
+         q(0),
+         ],
+      q(qtz) => [
+         q(0352),
+         q(0),
+         ],
+      q(qua) => [
+         q(5679),
+         q(0),
+         ],
+      q(qub) => [
+         q(5680),
+         q(0),
+         ],
+      q(quc) => [
+         q(5681),
+         q(0),
+         ],
+      q(qud) => [
+         q(5682),
+         q(0),
+         ],
+      q(que) => [
+         q(0353),
+         q(0),
+         ],
+      q(quf) => [
+         q(5683),
+         q(0),
+         ],
+      q(qug) => [
+         q(5684),
+         q(0),
+         ],
+      q(quh) => [
+         q(5685),
+         q(0),
+         ],
+      q(qui) => [
+         q(5686),
+         q(0),
+         ],
+      q(quk) => [
+         q(5687),
+         q(0),
+         ],
+      q(qul) => [
+         q(5688),
+         q(0),
+         ],
+      q(qum) => [
+         q(5689),
+         q(0),
+         ],
+      q(qun) => [
+         q(5690),
+         q(0),
+         ],
+      q(qup) => [
+         q(5691),
+         q(0),
+         ],
+      q(quq) => [
+         q(5692),
+         q(0),
+         ],
+      q(qur) => [
+         q(5693),
+         q(0),
+         ],
+      q(qus) => [
+         q(5694),
+         q(0),
+         ],
+      q(quv) => [
+         q(5695),
+         q(0),
+         ],
+      q(quw) => [
+         q(5696),
+         q(0),
+         ],
+      q(qux) => [
+         q(5697),
+         q(0),
+         ],
+      q(quy) => [
+         q(5698),
+         q(0),
+         ],
+      q(quz) => [
+         q(5699),
+         q(0),
+         ],
+      q(qva) => [
+         q(5700),
+         q(0),
+         ],
+      q(qvc) => [
+         q(5701),
+         q(0),
+         ],
+      q(qve) => [
+         q(5702),
+         q(0),
+         ],
+      q(qvh) => [
+         q(5703),
+         q(0),
+         ],
+      q(qvi) => [
+         q(5704),
+         q(0),
+         ],
+      q(qvj) => [
+         q(5705),
+         q(0),
+         ],
+      q(qvl) => [
+         q(5706),
+         q(0),
+         ],
+      q(qvm) => [
+         q(5707),
+         q(0),
+         ],
+      q(qvn) => [
+         q(5708),
+         q(0),
+         ],
+      q(qvo) => [
+         q(5709),
+         q(0),
+         ],
+      q(qvp) => [
+         q(5710),
+         q(0),
+         ],
+      q(qvs) => [
+         q(5711),
+         q(0),
+         ],
+      q(qvw) => [
+         q(5712),
+         q(0),
+         ],
+      q(qvy) => [
+         q(5713),
+         q(0),
+         ],
+      q(qvz) => [
+         q(5714),
+         q(0),
+         ],
+      q(qwa) => [
+         q(5715),
+         q(0),
+         ],
+      q(qwc) => [
+         q(5716),
+         q(0),
+         ],
+      q(qwe) => [
+         q(0523),
+         q(0),
+         ],
+      q(qwh) => [
+         q(5717),
+         q(0),
+         ],
+      q(qwm) => [
+         q(5718),
+         q(0),
+         ],
+      q(qws) => [
+         q(5719),
+         q(0),
+         ],
+      q(qwt) => [
+         q(5720),
+         q(0),
+         ],
+      q(qxa) => [
+         q(5721),
+         q(0),
+         ],
+      q(qxc) => [
+         q(5722),
+         q(0),
+         ],
+      q(qxh) => [
+         q(5723),
+         q(0),
+         ],
+      q(qxl) => [
+         q(5724),
+         q(0),
+         ],
+      q(qxn) => [
+         q(5725),
+         q(0),
+         ],
+      q(qxo) => [
+         q(5726),
+         q(0),
+         ],
+      q(qxp) => [
+         q(5727),
+         q(0),
+         ],
+      q(qxq) => [
+         q(5728),
+         q(0),
+         ],
+      q(qxr) => [
+         q(5729),
+         q(0),
+         ],
+      q(qxs) => [
+         q(5730),
+         q(0),
+         ],
+      q(qxt) => [
+         q(5731),
+         q(0),
+         ],
+      q(qxu) => [
+         q(5732),
+         q(0),
+         ],
+      q(qxw) => [
+         q(5733),
+         q(0),
+         ],
+      q(qya) => [
+         q(5734),
+         q(0),
+         ],
+      q(qyp) => [
+         q(5735),
+         q(0),
+         ],
+      q(raa) => [
+         q(5736),
+         q(0),
+         ],
+      q(rab) => [
+         q(5737),
+         q(0),
+         ],
+      q(rac) => [
+         q(5738),
+         q(0),
+         ],
+      q(rad) => [
+         q(5739),
+         q(0),
+         ],
+      q(raf) => [
+         q(5740),
+         q(0),
+         ],
+      q(rag) => [
+         q(5741),
+         q(0),
+         ],
+      q(rah) => [
+         q(5742),
+         q(0),
+         ],
+      q(rai) => [
+         q(5743),
+         q(0),
+         ],
+      q(raj) => [
+         q(0354),
+         q(0),
+         ],
+      q(rak) => [
+         q(5744),
+         q(0),
+         ],
+      q(ral) => [
+         q(5745),
+         q(0),
+         ],
+      q(ram) => [
+         q(5746),
+         q(0),
+         ],
+      q(ran) => [
+         q(5747),
+         q(0),
+         ],
+      q(rao) => [
+         q(5748),
+         q(0),
+         ],
+      q(rap) => [
+         q(0355),
+         q(0),
+         ],
+      q(raq) => [
+         q(5749),
+         q(0),
+         ],
+      q(rar) => [
+         q(0356),
+         q(0),
+         ],
+      q(ras) => [
+         q(5750),
+         q(0),
+         ],
+      q(rat) => [
+         q(5751),
+         q(0),
+         ],
+      q(rau) => [
+         q(5752),
+         q(0),
+         ],
+      q(rav) => [
+         q(5753),
+         q(0),
+         ],
+      q(raw) => [
+         q(5754),
+         q(0),
+         ],
+      q(rax) => [
+         q(5755),
+         q(0),
+         ],
+      q(ray) => [
+         q(5756),
+         q(0),
+         ],
+      q(raz) => [
+         q(5757),
+         q(0),
+         ],
+      q(rbb) => [
+         q(5758),
+         q(0),
+         ],
+      q(rbk) => [
+         q(5759),
+         q(0),
+         ],
+      q(rbl) => [
+         q(5760),
+         q(0),
+         ],
+      q(rbp) => [
+         q(5761),
+         q(0),
+         ],
+      q(rcf) => [
+         q(5762),
+         q(0),
+         ],
+      q(rdb) => [
+         q(5763),
+         q(0),
+         ],
+      q(rea) => [
+         q(5764),
+         q(0),
+         ],
+      q(reb) => [
+         q(5765),
+         q(0),
+         ],
+      q(ree) => [
+         q(5766),
+         q(0),
+         ],
+      q(reg) => [
+         q(5767),
+         q(0),
+         ],
+      q(rei) => [
+         q(5768),
+         q(0),
+         ],
+      q(rej) => [
+         q(5769),
+         q(0),
+         ],
+      q(rel) => [
+         q(5770),
+         q(0),
+         ],
+      q(rem) => [
+         q(5771),
+         q(0),
+         ],
+      q(ren) => [
+         q(5772),
+         q(0),
+         ],
+      q(rer) => [
+         q(5773),
+         q(0),
+         ],
+      q(res) => [
+         q(5774),
+         q(0),
+         ],
+      q(ret) => [
+         q(5775),
+         q(0),
+         ],
+      q(rey) => [
+         q(5776),
+         q(0),
+         ],
+      q(rga) => [
+         q(5777),
+         q(0),
+         ],
+      q(rge) => [
+         q(5778),
+         q(0),
+         ],
+      q(rgk) => [
+         q(5779),
+         q(0),
+         ],
+      q(rgn) => [
+         q(5780),
+         q(0),
+         ],
+      q(rgr) => [
+         q(5781),
+         q(0),
+         ],
+      q(rgs) => [
+         q(5782),
+         q(0),
+         ],
+      q(rgu) => [
+         q(5783),
+         q(0),
+         ],
+      q(rhg) => [
+         q(5784),
+         q(0),
+         ],
+      q(rhp) => [
+         q(5785),
+         q(0),
+         ],
+      q(ria) => [
+         q(5786),
+         q(0),
+         ],
+      q(rie) => [
+         q(5787),
+         q(0),
+         ],
+      q(rif) => [
+         q(5788),
+         q(0),
+         ],
+      q(ril) => [
+         q(5789),
+         q(0),
+         ],
+      q(rim) => [
+         q(5790),
+         q(0),
+         ],
+      q(rin) => [
+         q(5791),
+         q(0),
+         ],
+      q(rir) => [
+         q(5792),
+         q(0),
+         ],
+      q(rit) => [
+         q(5793),
+         q(0),
+         ],
+      q(riu) => [
+         q(5794),
+         q(0),
+         ],
+      q(rjg) => [
+         q(5795),
+         q(0),
+         ],
+      q(rji) => [
+         q(5796),
+         q(0),
+         ],
+      q(rjs) => [
+         q(5797),
+         q(0),
+         ],
+      q(rka) => [
+         q(5798),
+         q(0),
+         ],
+      q(rkb) => [
+         q(5799),
+         q(0),
+         ],
+      q(rkh) => [
+         q(5800),
+         q(0),
+         ],
+      q(rki) => [
+         q(5801),
+         q(0),
+         ],
+      q(rkm) => [
+         q(5802),
+         q(0),
+         ],
+      q(rkt) => [
+         q(5803),
+         q(0),
+         ],
+      q(rkw) => [
+         q(5804),
+         q(0),
+         ],
+      q(rma) => [
+         q(5805),
+         q(0),
+         ],
+      q(rmb) => [
+         q(5806),
+         q(0),
+         ],
+      q(rmc) => [
+         q(5807),
+         q(0),
+         ],
+      q(rmd) => [
+         q(5808),
+         q(0),
+         ],
+      q(rme) => [
+         q(5809),
+         q(0),
+         ],
+      q(rmf) => [
+         q(5810),
+         q(0),
+         ],
+      q(rmg) => [
+         q(5811),
+         q(0),
+         ],
+      q(rmh) => [
+         q(5812),
+         q(0),
+         ],
+      q(rmi) => [
+         q(5813),
+         q(0),
+         ],
+      q(rmk) => [
+         q(5814),
+         q(0),
+         ],
+      q(rml) => [
+         q(5815),
+         q(0),
+         ],
+      q(rmm) => [
+         q(5816),
+         q(0),
+         ],
+      q(rmn) => [
+         q(5817),
+         q(0),
+         ],
+      q(rmo) => [
+         q(5818),
+         q(0),
+         ],
+      q(rmp) => [
+         q(5819),
+         q(0),
+         ],
+      q(rmq) => [
+         q(5820),
+         q(0),
+         ],
+      q(rms) => [
+         q(5821),
+         q(0),
+         ],
+      q(rmt) => [
+         q(5822),
+         q(0),
+         ],
+      q(rmu) => [
+         q(5823),
+         q(0),
+         ],
+      q(rmv) => [
+         q(5824),
+         q(0),
+         ],
+      q(rmw) => [
+         q(5825),
+         q(0),
+         ],
+      q(rmx) => [
+         q(5826),
+         q(0),
+         ],
+      q(rmy) => [
+         q(5827),
+         q(0),
+         ],
+      q(rmz) => [
+         q(5828),
+         q(0),
+         ],
+      q(rna) => [
+         q(5829),
+         q(0),
+         ],
+      q(rnd) => [
+         q(5830),
+         q(0),
+         ],
+      q(rng) => [
+         q(5831),
+         q(0),
+         ],
+      q(rnl) => [
+         q(5832),
+         q(0),
+         ],
+      q(rnn) => [
+         q(5833),
+         q(0),
+         ],
+      q(rnp) => [
+         q(5834),
+         q(0),
+         ],
+      q(rnr) => [
+         q(5835),
+         q(0),
+         ],
+      q(rnw) => [
+         q(5836),
+         q(0),
+         ],
+      q(roa) => [
+         q(0357),
+         q(0),
+         ],
+      q(rob) => [
+         q(5837),
+         q(0),
+         ],
+      q(roc) => [
+         q(5838),
+         q(0),
+         ],
+      q(rod) => [
+         q(5839),
+         q(0),
+         ],
+      q(roe) => [
+         q(5840),
+         q(0),
+         ],
+      q(rof) => [
+         q(5841),
+         q(0),
+         ],
+      q(rog) => [
+         q(5842),
+         q(0),
+         ],
+      q(roh) => [
+         q(0358),
+         q(0),
+         ],
+      q(rol) => [
+         q(5843),
+         q(0),
+         ],
+      q(rom) => [
+         q(0359),
+         q(0),
+         ],
+      q(roo) => [
+         q(5844),
+         q(0),
+         ],
+      q(rop) => [
+         q(5845),
+         q(0),
+         ],
+      q(ror) => [
+         q(5846),
+         q(0),
+         ],
+      q(rou) => [
+         q(5847),
+         q(0),
+         ],
+      q(row) => [
+         q(5848),
+         q(0),
+         ],
+      q(rpn) => [
+         q(5849),
+         q(0),
+         ],
+      q(rpt) => [
+         q(5850),
+         q(0),
+         ],
+      q(rri) => [
+         q(5851),
+         q(0),
+         ],
+      q(rro) => [
+         q(5852),
+         q(0),
+         ],
+      q(rrt) => [
+         q(5853),
+         q(0),
+         ],
+      q(rsb) => [
+         q(5854),
+         q(0),
+         ],
+      q(rsi) => [
+         q(5855),
+         q(0),
+         ],
+      q(rsl) => [
+         q(5856),
+         q(0),
+         ],
+      q(rtc) => [
+         q(5857),
+         q(0),
+         ],
+      q(rth) => [
+         q(5858),
+         q(0),
+         ],
+      q(rtm) => [
+         q(5859),
+         q(0),
+         ],
+      q(rts) => [
+         q(5860),
+         q(0),
+         ],
+      q(rtw) => [
+         q(5861),
+         q(0),
+         ],
+      q(rub) => [
+         q(5862),
+         q(0),
+         ],
+      q(ruc) => [
+         q(5863),
+         q(0),
+         ],
+      q(rue) => [
+         q(5864),
+         q(0),
+         ],
+      q(ruf) => [
+         q(5865),
+         q(0),
+         ],
+      q(rug) => [
+         q(5866),
+         q(0),
+         ],
+      q(ruh) => [
+         q(5867),
+         q(0),
+         ],
+      q(rui) => [
+         q(5868),
+         q(0),
+         ],
+      q(ruk) => [
+         q(5869),
+         q(0),
+         ],
+      q(rum) => [
+         q(0360),
+         q(0),
+         ],
+      q(run) => [
+         q(0361),
+         q(0),
+         ],
+      q(ruo) => [
+         q(5870),
+         q(0),
+         ],
+      q(rup) => [
+         q(0362),
+         q(2),
+         ],
+      q(ruq) => [
+         q(5871),
+         q(0),
+         ],
+      q(rus) => [
+         q(0363),
+         q(0),
+         ],
+      q(rut) => [
+         q(5872),
+         q(0),
+         ],
+      q(ruu) => [
+         q(5873),
+         q(0),
+         ],
+      q(ruy) => [
+         q(5874),
+         q(0),
+         ],
+      q(ruz) => [
+         q(5875),
+         q(0),
+         ],
+      q(rwa) => [
+         q(5876),
+         q(0),
+         ],
+      q(rwk) => [
+         q(5877),
+         q(0),
+         ],
+      q(rwm) => [
+         q(5878),
+         q(0),
+         ],
+      q(rwo) => [
+         q(5879),
+         q(0),
+         ],
+      q(rwr) => [
+         q(5880),
+         q(0),
+         ],
+      q(rxd) => [
+         q(5881),
+         q(0),
+         ],
+      q(rxw) => [
+         q(5882),
+         q(0),
+         ],
+      q(ryn) => [
+         q(5883),
+         q(0),
+         ],
+      q(rys) => [
+         q(5884),
+         q(0),
+         ],
+      q(ryu) => [
+         q(5885),
+         q(0),
+         ],
+      q(saa) => [
+         q(5886),
+         q(0),
+         ],
+      q(sab) => [
+         q(5887),
+         q(0),
+         ],
+      q(sac) => [
+         q(5888),
+         q(0),
+         ],
+      q(sad) => [
+         q(0364),
+         q(0),
+         ],
+      q(sae) => [
+         q(5889),
+         q(0),
+         ],
+      q(saf) => [
+         q(5890),
+         q(0),
+         ],
+      q(sag) => [
+         q(0365),
+         q(0),
+         ],
+      q(sah) => [
+         q(0366),
+         q(0),
+         ],
+      q(sai) => [
+         q(0367),
+         q(1),
+         ],
+      q(saj) => [
+         q(5891),
+         q(0),
+         ],
+      q(sak) => [
+         q(5892),
+         q(0),
+         ],
+      q(sal) => [
+         q(0368),
+         q(0),
+         ],
+      q(sam) => [
+         q(0369),
+         q(0),
+         ],
+      q(san) => [
+         q(0370),
+         q(0),
+         ],
+      q(sao) => [
+         q(5893),
+         q(0),
+         ],
+      q(saq) => [
+         q(5894),
+         q(0),
+         ],
+      q(sar) => [
+         q(5895),
+         q(0),
+         ],
+      q(sas) => [
+         q(0371),
+         q(0),
+         ],
+      q(sat) => [
+         q(0372),
+         q(0),
+         ],
+      q(sau) => [
+         q(5896),
+         q(0),
+         ],
+      q(sav) => [
+         q(5897),
+         q(0),
+         ],
+      q(saw) => [
+         q(5898),
+         q(0),
+         ],
+      q(sax) => [
+         q(5899),
+         q(0),
+         ],
+      q(say) => [
+         q(5900),
+         q(0),
+         ],
+      q(saz) => [
+         q(5901),
+         q(0),
+         ],
+      q(sba) => [
+         q(5902),
+         q(0),
+         ],
+      q(sbb) => [
+         q(5903),
+         q(0),
+         ],
+      q(sbc) => [
+         q(5904),
+         q(0),
+         ],
+      q(sbd) => [
+         q(5905),
+         q(0),
+         ],
+      q(sbe) => [
+         q(5906),
+         q(0),
+         ],
+      q(sbf) => [
+         q(5907),
+         q(0),
+         ],
+      q(sbg) => [
+         q(5908),
+         q(0),
+         ],
+      q(sbh) => [
+         q(5909),
+         q(0),
+         ],
+      q(sbi) => [
+         q(5910),
+         q(0),
+         ],
+      q(sbj) => [
+         q(5911),
+         q(0),
+         ],
+      q(sbk) => [
+         q(5912),
+         q(0),
+         ],
+      q(sbl) => [
+         q(5913),
+         q(0),
+         ],
+      q(sbm) => [
+         q(5914),
+         q(0),
+         ],
+      q(sbn) => [
+         q(5915),
+         q(0),
+         ],
+      q(sbo) => [
+         q(5916),
+         q(0),
+         ],
+      q(sbp) => [
+         q(5917),
+         q(0),
+         ],
+      q(sbq) => [
+         q(5918),
+         q(0),
+         ],
+      q(sbr) => [
+         q(5919),
+         q(0),
+         ],
+      q(sbs) => [
+         q(5920),
+         q(0),
+         ],
+      q(sbt) => [
+         q(5921),
+         q(0),
+         ],
+      q(sbu) => [
+         q(5922),
+         q(0),
+         ],
+      q(sbv) => [
+         q(5923),
+         q(0),
+         ],
+      q(sbw) => [
+         q(5924),
+         q(0),
+         ],
+      q(sbx) => [
+         q(5925),
+         q(0),
+         ],
+      q(sby) => [
+         q(5926),
+         q(0),
+         ],
+      q(sbz) => [
+         q(5927),
+         q(0),
+         ],
+      q(scb) => [
+         q(5928),
+         q(0),
+         ],
+      q(sce) => [
+         q(5929),
+         q(0),
+         ],
+      q(scf) => [
+         q(5930),
+         q(0),
+         ],
+      q(scg) => [
+         q(5931),
+         q(0),
+         ],
+      q(sch) => [
+         q(5932),
+         q(0),
+         ],
+      q(sci) => [
+         q(5933),
+         q(0),
+         ],
+      q(sck) => [
+         q(5934),
+         q(0),
+         ],
+      q(scl) => [
+         q(5935),
+         q(0),
+         ],
+      q(scn) => [
+         q(0373),
+         q(0),
+         ],
+      q(sco) => [
+         q(0374),
+         q(0),
+         ],
+      q(scp) => [
+         q(5936),
+         q(0),
+         ],
+      q(scq) => [
+         q(5937),
+         q(0),
+         ],
+      q(scs) => [
+         q(5938),
+         q(0),
+         ],
+      q(scu) => [
+         q(5939),
+         q(0),
+         ],
+      q(scv) => [
+         q(5940),
+         q(0),
+         ],
+      q(scw) => [
+         q(5941),
+         q(0),
+         ],
+      q(scx) => [
+         q(5942),
+         q(0),
+         ],
+      q(sda) => [
+         q(5943),
+         q(0),
+         ],
+      q(sdb) => [
+         q(5944),
+         q(0),
+         ],
+      q(sdc) => [
+         q(5945),
+         q(0),
+         ],
+      q(sde) => [
+         q(5946),
+         q(0),
+         ],
+      q(sdf) => [
+         q(5947),
+         q(0),
+         ],
+      q(sdg) => [
+         q(5948),
+         q(0),
+         ],
+      q(sdh) => [
+         q(5949),
+         q(0),
+         ],
+      q(sdj) => [
+         q(5950),
+         q(0),
+         ],
+      q(sdk) => [
+         q(5951),
+         q(0),
+         ],
+      q(sdl) => [
+         q(5952),
+         q(0),
+         ],
+      q(sdm) => [
+         q(5953),
+         q(0),
+         ],
+      q(sdn) => [
+         q(5954),
+         q(0),
+         ],
+      q(sdo) => [
+         q(5955),
+         q(0),
+         ],
+      q(sdp) => [
+         q(5956),
+         q(0),
+         ],
+      q(sdr) => [
+         q(5957),
+         q(0),
+         ],
+      q(sds) => [
+         q(5958),
+         q(0),
+         ],
+      q(sdt) => [
+         q(5959),
+         q(0),
+         ],
+      q(sdu) => [
+         q(5960),
+         q(0),
+         ],
+      q(sdv) => [
+         q(0524),
+         q(0),
+         ],
+      q(sdx) => [
+         q(5961),
+         q(0),
+         ],
+      q(sdz) => [
+         q(5962),
+         q(0),
+         ],
+      q(sea) => [
+         q(5963),
+         q(0),
+         ],
+      q(seb) => [
+         q(5964),
+         q(0),
+         ],
+      q(sec) => [
+         q(5965),
+         q(0),
+         ],
+      q(sed) => [
+         q(5966),
+         q(0),
+         ],
+      q(see) => [
+         q(5967),
+         q(0),
+         ],
+      q(sef) => [
+         q(5968),
+         q(0),
+         ],
+      q(seg) => [
+         q(5969),
+         q(0),
+         ],
+      q(seh) => [
+         q(5970),
+         q(0),
+         ],
+      q(sei) => [
+         q(5971),
+         q(0),
+         ],
+      q(sej) => [
+         q(5972),
+         q(0),
+         ],
+      q(sek) => [
+         q(5973),
+         q(0),
+         ],
+      q(sel) => [
+         q(0375),
+         q(0),
+         ],
+      q(sem) => [
+         q(0376),
+         q(0),
+         ],
+      q(sen) => [
+         q(5974),
+         q(0),
+         ],
+      q(seo) => [
+         q(5975),
+         q(0),
+         ],
+      q(sep) => [
+         q(5976),
+         q(0),
+         ],
+      q(seq) => [
+         q(5977),
+         q(0),
+         ],
+      q(ser) => [
+         q(5978),
+         q(0),
+         ],
+      q(ses) => [
+         q(5979),
+         q(0),
+         ],
+      q(set) => [
+         q(5980),
+         q(0),
+         ],
+      q(seu) => [
+         q(5981),
+         q(0),
+         ],
+      q(sev) => [
+         q(5982),
+         q(0),
+         ],
+      q(sew) => [
+         q(5983),
+         q(0),
+         ],
+      q(sey) => [
+         q(5984),
+         q(0),
+         ],
+      q(sez) => [
+         q(5985),
+         q(0),
+         ],
+      q(sfb) => [
+         q(5986),
+         q(0),
+         ],
+      q(sfe) => [
+         q(5987),
+         q(0),
+         ],
+      q(sfm) => [
+         q(5988),
+         q(0),
+         ],
+      q(sfs) => [
+         q(5989),
+         q(0),
+         ],
+      q(sfw) => [
+         q(5990),
+         q(0),
+         ],
+      q(sga) => [
+         q(0377),
+         q(1),
+         ],
+      q(sgb) => [
+         q(5991),
+         q(0),
+         ],
+      q(sgc) => [
+         q(5992),
+         q(0),
+         ],
+      q(sgd) => [
+         q(5993),
+         q(0),
+         ],
+      q(sge) => [
+         q(5994),
+         q(0),
+         ],
+      q(sgg) => [
+         q(5995),
+         q(0),
+         ],
+      q(sgh) => [
+         q(5996),
+         q(0),
+         ],
+      q(sgi) => [
+         q(5997),
+         q(0),
+         ],
+      q(sgj) => [
+         q(5998),
+         q(0),
+         ],
+      q(sgk) => [
+         q(5999),
+         q(0),
+         ],
+      q(sgm) => [
+         q(6000),
+         q(0),
+         ],
+      q(sgn) => [
+         q(0378),
+         q(0),
+         ],
+      q(sgp) => [
+         q(6001),
+         q(0),
+         ],
+      q(sgr) => [
+         q(6002),
+         q(0),
+         ],
+      q(sgs) => [
+         q(6003),
+         q(0),
+         ],
+      q(sgt) => [
+         q(6004),
+         q(0),
+         ],
+      q(sgu) => [
+         q(6005),
+         q(0),
+         ],
+      q(sgw) => [
+         q(6006),
+         q(0),
+         ],
+      q(sgx) => [
+         q(6007),
+         q(0),
+         ],
+      q(sgy) => [
+         q(6008),
+         q(0),
+         ],
+      q(sgz) => [
+         q(6009),
+         q(0),
+         ],
+      q(sha) => [
+         q(6010),
+         q(0),
+         ],
+      q(shb) => [
+         q(6011),
+         q(0),
+         ],
+      q(shc) => [
+         q(6012),
+         q(0),
+         ],
+      q(shd) => [
+         q(6013),
+         q(0),
+         ],
+      q(she) => [
+         q(6014),
+         q(0),
+         ],
+      q(shg) => [
+         q(6015),
+         q(0),
+         ],
+      q(shh) => [
+         q(6016),
+         q(0),
+         ],
+      q(shi) => [
+         q(6017),
+         q(0),
+         ],
+      q(shj) => [
+         q(6018),
+         q(0),
+         ],
+      q(shk) => [
+         q(6019),
+         q(0),
+         ],
+      q(shl) => [
+         q(6020),
+         q(0),
+         ],
+      q(shm) => [
+         q(6021),
+         q(0),
+         ],
+      q(shn) => [
+         q(0379),
+         q(0),
+         ],
+      q(sho) => [
+         q(6022),
+         q(0),
+         ],
+      q(shp) => [
+         q(6023),
+         q(0),
+         ],
+      q(shq) => [
+         q(6024),
+         q(0),
+         ],
+      q(shr) => [
+         q(6025),
+         q(0),
+         ],
+      q(shs) => [
+         q(6026),
+         q(0),
+         ],
+      q(sht) => [
+         q(6027),
+         q(0),
+         ],
+      q(shu) => [
+         q(6028),
+         q(0),
+         ],
+      q(shv) => [
+         q(6029),
+         q(0),
+         ],
+      q(shw) => [
+         q(6030),
+         q(0),
+         ],
+      q(shx) => [
+         q(6031),
+         q(0),
+         ],
+      q(shy) => [
+         q(6032),
+         q(0),
+         ],
+      q(shz) => [
+         q(6033),
+         q(0),
+         ],
+      q(sia) => [
+         q(6034),
+         q(0),
+         ],
+      q(sib) => [
+         q(6035),
+         q(0),
+         ],
+      q(sid) => [
+         q(0380),
+         q(0),
+         ],
+      q(sie) => [
+         q(6036),
+         q(0),
+         ],
+      q(sif) => [
+         q(6037),
+         q(0),
+         ],
+      q(sig) => [
+         q(6038),
+         q(0),
+         ],
+      q(sih) => [
+         q(6039),
+         q(0),
+         ],
+      q(sii) => [
+         q(6040),
+         q(0),
+         ],
+      q(sij) => [
+         q(6041),
+         q(0),
+         ],
+      q(sik) => [
+         q(6042),
+         q(0),
+         ],
+      q(sil) => [
+         q(6043),
+         q(0),
+         ],
+      q(sim) => [
+         q(6044),
+         q(0),
+         ],
+      q(sin) => [
+         q(0381),
+         q(0),
+         ],
+      q(sio) => [
+         q(0382),
+         q(0),
+         ],
+      q(sip) => [
+         q(6045),
+         q(0),
+         ],
+      q(siq) => [
+         q(6046),
+         q(0),
+         ],
+      q(sir) => [
+         q(6047),
+         q(0),
+         ],
+      q(sis) => [
+         q(6048),
+         q(0),
+         ],
+      q(sit) => [
+         q(0383),
+         q(0),
+         ],
+      q(siu) => [
+         q(6049),
+         q(0),
+         ],
+      q(siv) => [
+         q(6050),
+         q(0),
+         ],
+      q(siw) => [
+         q(6051),
+         q(0),
+         ],
+      q(six) => [
+         q(6052),
+         q(0),
+         ],
+      q(siy) => [
+         q(6053),
+         q(0),
+         ],
+      q(siz) => [
+         q(6054),
+         q(0),
+         ],
+      q(sja) => [
+         q(6055),
+         q(0),
+         ],
+      q(sjb) => [
+         q(6056),
+         q(0),
+         ],
+      q(sjd) => [
+         q(6057),
+         q(0),
+         ],
+      q(sje) => [
+         q(6058),
+         q(0),
+         ],
+      q(sjg) => [
+         q(6059),
+         q(0),
+         ],
+      q(sjk) => [
+         q(6060),
+         q(0),
+         ],
+      q(sjl) => [
+         q(6061),
+         q(0),
+         ],
+      q(sjm) => [
+         q(6062),
+         q(0),
+         ],
+      q(sjn) => [
+         q(6063),
+         q(0),
+         ],
+      q(sjo) => [
+         q(6064),
+         q(0),
+         ],
+      q(sjp) => [
+         q(6065),
+         q(0),
+         ],
+      q(sjr) => [
+         q(6066),
+         q(0),
+         ],
+      q(sjs) => [
+         q(6067),
+         q(0),
+         ],
+      q(sjt) => [
+         q(6068),
+         q(0),
+         ],
+      q(sju) => [
+         q(6069),
+         q(0),
+         ],
+      q(sjw) => [
+         q(6070),
+         q(0),
+         ],
+      q(ska) => [
+         q(6071),
+         q(0),
+         ],
+      q(skb) => [
+         q(6072),
+         q(0),
+         ],
+      q(skc) => [
+         q(6073),
+         q(0),
+         ],
+      q(skd) => [
+         q(6074),
+         q(0),
+         ],
+      q(ske) => [
+         q(6075),
+         q(0),
+         ],
+      q(skf) => [
+         q(6076),
+         q(0),
+         ],
+      q(skg) => [
+         q(6077),
+         q(0),
+         ],
+      q(skh) => [
+         q(6078),
+         q(0),
+         ],
+      q(ski) => [
+         q(6079),
+         q(0),
+         ],
+      q(skj) => [
+         q(6080),
+         q(0),
+         ],
+      q(skk) => [
+         q(6081),
+         q(0),
+         ],
+      q(skm) => [
+         q(6082),
+         q(0),
+         ],
+      q(skn) => [
+         q(6083),
+         q(0),
+         ],
+      q(sko) => [
+         q(6084),
+         q(0),
+         ],
+      q(skp) => [
+         q(6085),
+         q(0),
+         ],
+      q(skq) => [
+         q(6086),
+         q(0),
+         ],
+      q(skr) => [
+         q(6087),
+         q(0),
+         ],
+      q(sks) => [
+         q(6088),
+         q(0),
+         ],
+      q(skt) => [
+         q(6089),
+         q(0),
+         ],
+      q(sku) => [
+         q(6090),
+         q(0),
+         ],
+      q(skv) => [
+         q(6091),
+         q(0),
+         ],
+      q(skw) => [
+         q(6092),
+         q(0),
+         ],
+      q(skx) => [
+         q(6093),
+         q(0),
+         ],
+      q(sky) => [
+         q(6094),
+         q(0),
+         ],
+      q(skz) => [
+         q(6095),
+         q(0),
+         ],
+      q(sla) => [
+         q(0384),
+         q(0),
+         ],
+      q(slc) => [
+         q(5906),
+         q(0),
+         ],
+      q(sld) => [
+         q(6096),
+         q(0),
+         ],
+      q(sle) => [
+         q(6097),
+         q(0),
+         ],
+      q(slf) => [
+         q(6098),
+         q(0),
+         ],
+      q(slg) => [
+         q(6099),
+         q(0),
+         ],
+      q(slh) => [
+         q(6100),
+         q(0),
+         ],
+      q(sli) => [
+         q(6101),
+         q(0),
+         ],
+      q(slj) => [
+         q(6102),
+         q(0),
+         ],
+      q(sll) => [
+         q(6103),
+         q(0),
+         ],
+      q(slm) => [
+         q(6104),
+         q(0),
+         ],
+      q(sln) => [
+         q(6105),
+         q(0),
+         ],
+      q(slo) => [
+         q(0385),
+         q(0),
+         ],
+      q(slp) => [
+         q(6106),
+         q(0),
+         ],
+      q(slq) => [
+         q(6107),
+         q(0),
+         ],
+      q(slr) => [
+         q(6108),
+         q(0),
+         ],
+      q(sls) => [
+         q(6109),
+         q(0),
+         ],
+      q(slt) => [
+         q(6110),
+         q(0),
+         ],
+      q(slu) => [
+         q(6111),
+         q(0),
+         ],
+      q(slv) => [
+         q(0386),
+         q(0),
+         ],
+      q(slw) => [
+         q(6112),
+         q(0),
+         ],
+      q(slx) => [
+         q(6113),
+         q(0),
+         ],
+      q(sly) => [
+         q(6114),
+         q(0),
+         ],
+      q(slz) => [
+         q(6115),
+         q(0),
+         ],
+      q(sma) => [
+         q(0387),
+         q(0),
+         ],
+      q(smb) => [
+         q(6116),
+         q(0),
+         ],
+      q(smc) => [
+         q(6117),
+         q(0),
+         ],
+      q(smd) => [
+         q(6118),
+         q(0),
+         ],
+      q(sme) => [
+         q(0388),
+         q(0),
+         ],
+      q(smf) => [
+         q(6119),
+         q(0),
+         ],
+      q(smg) => [
+         q(6120),
+         q(0),
+         ],
+      q(smh) => [
+         q(6121),
+         q(0),
+         ],
+      q(smi) => [
+         q(0389),
+         q(0),
+         ],
+      q(smj) => [
+         q(0390),
+         q(0),
+         ],
+      q(smk) => [
+         q(6122),
+         q(0),
+         ],
+      q(sml) => [
+         q(6123),
+         q(0),
+         ],
+      q(smm) => [
+         q(6124),
+         q(0),
+         ],
+      q(smn) => [
+         q(0391),
+         q(0),
+         ],
+      q(smo) => [
+         q(0392),
+         q(0),
+         ],
+      q(smp) => [
+         q(6125),
+         q(0),
+         ],
+      q(smq) => [
+         q(6126),
+         q(0),
+         ],
+      q(smr) => [
+         q(6127),
+         q(0),
+         ],
+      q(sms) => [
+         q(0393),
+         q(0),
+         ],
+      q(smt) => [
+         q(6128),
+         q(0),
+         ],
+      q(smu) => [
+         q(6129),
+         q(0),
+         ],
+      q(smv) => [
+         q(6130),
+         q(0),
+         ],
+      q(smw) => [
+         q(6131),
+         q(0),
+         ],
+      q(smx) => [
+         q(6132),
+         q(0),
+         ],
+      q(smy) => [
+         q(6133),
+         q(0),
+         ],
+      q(smz) => [
+         q(6134),
+         q(0),
+         ],
+      q(sna) => [
+         q(0394),
+         q(0),
+         ],
+      q(snb) => [
+         q(6135),
+         q(0),
+         ],
+      q(snc) => [
+         q(6136),
+         q(0),
+         ],
+      q(snd) => [
+         q(0395),
+         q(0),
+         ],
+      q(sne) => [
+         q(6137),
+         q(0),
+         ],
+      q(snf) => [
+         q(6138),
+         q(0),
+         ],
+      q(sng) => [
+         q(6139),
+         q(0),
+         ],
+      q(snh) => [
+         q(6140),
+         q(0),
+         ],
+      q(sni) => [
+         q(6141),
+         q(0),
+         ],
+      q(snj) => [
+         q(6142),
+         q(0),
+         ],
+      q(snk) => [
+         q(0396),
+         q(0),
+         ],
+      q(snl) => [
+         q(6143),
+         q(0),
+         ],
+      q(snm) => [
+         q(6144),
+         q(0),
+         ],
+      q(snn) => [
+         q(6145),
+         q(0),
+         ],
+      q(sno) => [
+         q(6146),
+         q(0),
+         ],
+      q(snp) => [
+         q(6147),
+         q(0),
+         ],
+      q(snq) => [
+         q(6148),
+         q(0),
+         ],
+      q(snr) => [
+         q(6149),
+         q(0),
+         ],
+      q(sns) => [
+         q(6150),
+         q(0),
+         ],
+      q(snu) => [
+         q(6151),
+         q(0),
+         ],
+      q(snv) => [
+         q(6152),
+         q(0),
+         ],
+      q(snw) => [
+         q(6153),
+         q(0),
+         ],
+      q(snx) => [
+         q(6154),
+         q(0),
+         ],
+      q(sny) => [
+         q(6155),
+         q(0),
+         ],
+      q(snz) => [
+         q(6156),
+         q(0),
+         ],
+      q(soa) => [
+         q(6157),
+         q(0),
+         ],
+      q(sob) => [
+         q(6158),
+         q(0),
+         ],
+      q(soc) => [
+         q(6159),
+         q(0),
+         ],
+      q(sod) => [
+         q(6160),
+         q(0),
+         ],
+      q(soe) => [
+         q(6161),
+         q(0),
+         ],
+      q(sog) => [
+         q(0397),
+         q(0),
+         ],
+      q(soh) => [
+         q(6162),
+         q(0),
+         ],
+      q(soi) => [
+         q(6163),
+         q(0),
+         ],
+      q(soj) => [
+         q(6164),
+         q(0),
+         ],
+      q(sok) => [
+         q(6165),
+         q(0),
+         ],
+      q(sol) => [
+         q(6166),
+         q(0),
+         ],
+      q(som) => [
+         q(0398),
+         q(0),
+         ],
+      q(son) => [
+         q(0399),
+         q(0),
+         ],
+      q(soo) => [
+         q(6167),
+         q(0),
+         ],
+      q(sop) => [
+         q(6168),
+         q(0),
+         ],
+      q(soq) => [
+         q(6169),
+         q(0),
+         ],
+      q(sor) => [
+         q(6170),
+         q(0),
+         ],
+      q(sos) => [
+         q(6171),
+         q(0),
+         ],
+      q(sot) => [
+         q(0400),
+         q(0),
+         ],
+      q(sou) => [
+         q(6172),
+         q(0),
+         ],
+      q(sov) => [
+         q(6173),
+         q(0),
+         ],
+      q(sow) => [
+         q(6174),
+         q(0),
+         ],
+      q(sox) => [
+         q(6175),
+         q(0),
+         ],
+      q(soy) => [
+         q(6176),
+         q(0),
+         ],
+      q(soz) => [
+         q(6177),
+         q(0),
+         ],
+      q(spa) => [
+         q(0401),
+         q(0),
+         ],
+      q(spb) => [
+         q(6178),
+         q(0),
+         ],
+      q(spc) => [
+         q(6179),
+         q(0),
+         ],
+      q(spd) => [
+         q(6180),
+         q(0),
+         ],
+      q(spe) => [
+         q(6181),
+         q(0),
+         ],
+      q(spg) => [
+         q(6182),
+         q(0),
+         ],
+      q(spi) => [
+         q(6183),
+         q(0),
+         ],
+      q(spk) => [
+         q(6184),
+         q(0),
+         ],
+      q(spl) => [
+         q(6185),
+         q(0),
+         ],
+      q(spm) => [
+         q(6186),
+         q(0),
+         ],
+      q(spn) => [
+         q(6187),
+         q(0),
+         ],
+      q(spo) => [
+         q(6188),
+         q(0),
+         ],
+      q(spp) => [
+         q(6189),
+         q(0),
+         ],
+      q(spq) => [
+         q(6190),
+         q(0),
+         ],
+      q(spr) => [
+         q(6191),
+         q(0),
+         ],
+      q(sps) => [
+         q(6192),
+         q(0),
+         ],
+      q(spt) => [
+         q(6193),
+         q(0),
+         ],
+      q(spu) => [
+         q(6194),
+         q(0),
+         ],
+      q(spv) => [
+         q(6195),
+         q(0),
+         ],
+      q(spx) => [
+         q(6196),
+         q(0),
+         ],
+      q(spy) => [
+         q(6197),
+         q(0),
+         ],
+      q(sqa) => [
+         q(6198),
+         q(0),
+         ],
+      q(sqh) => [
+         q(6199),
+         q(0),
+         ],
+      q(sqj) => [
+         q(0525),
+         q(0),
+         ],
+      q(sqk) => [
+         q(6200),
+         q(0),
+         ],
+      q(sqm) => [
+         q(6201),
+         q(0),
+         ],
+      q(sqn) => [
+         q(6202),
+         q(0),
+         ],
+      q(sqo) => [
+         q(6203),
+         q(0),
+         ],
+      q(sqq) => [
+         q(6204),
+         q(0),
+         ],
+      q(sqr) => [
+         q(6205),
+         q(0),
+         ],
+      q(sqs) => [
+         q(6206),
+         q(0),
+         ],
+      q(sqt) => [
+         q(6207),
+         q(0),
+         ],
+      q(squ) => [
+         q(6208),
+         q(0),
+         ],
+      q(sra) => [
+         q(6209),
+         q(0),
+         ],
+      q(srb) => [
+         q(6210),
+         q(0),
+         ],
+      q(src) => [
+         q(6211),
+         q(0),
+         ],
+      q(srd) => [
+         q(0402),
+         q(0),
+         ],
+      q(sre) => [
+         q(6212),
+         q(0),
+         ],
+      q(srf) => [
+         q(6213),
+         q(0),
+         ],
+      q(srg) => [
+         q(6214),
+         q(0),
+         ],
+      q(srh) => [
+         q(6215),
+         q(0),
+         ],
+      q(sri) => [
+         q(6216),
+         q(0),
+         ],
+      q(srk) => [
+         q(6217),
+         q(0),
+         ],
+      q(srl) => [
+         q(6218),
+         q(0),
+         ],
+      q(srm) => [
+         q(6219),
+         q(0),
+         ],
+      q(srn) => [
+         q(0403),
+         q(0),
+         ],
+      q(sro) => [
+         q(6220),
+         q(0),
+         ],
+      q(srp) => [
+         q(0404),
+         q(0),
+         ],
+      q(srq) => [
+         q(6221),
+         q(0),
+         ],
+      q(srr) => [
+         q(0405),
+         q(0),
+         ],
+      q(srs) => [
+         q(6222),
+         q(0),
+         ],
+      q(srt) => [
+         q(6223),
+         q(0),
+         ],
+      q(sru) => [
+         q(6224),
+         q(0),
+         ],
+      q(srv) => [
+         q(6225),
+         q(0),
+         ],
+      q(srw) => [
+         q(6226),
+         q(0),
+         ],
+      q(srx) => [
+         q(6227),
+         q(0),
+         ],
+      q(sry) => [
+         q(6228),
+         q(0),
+         ],
+      q(srz) => [
+         q(6229),
+         q(0),
+         ],
+      q(ssa) => [
+         q(0406),
+         q(0),
+         ],
+      q(ssb) => [
+         q(6230),
+         q(0),
+         ],
+      q(ssc) => [
+         q(6231),
+         q(0),
+         ],
+      q(ssd) => [
+         q(6232),
+         q(0),
+         ],
+      q(sse) => [
+         q(6233),
+         q(0),
+         ],
+      q(ssf) => [
+         q(6234),
+         q(0),
+         ],
+      q(ssg) => [
+         q(6235),
+         q(0),
+         ],
+      q(ssh) => [
+         q(6236),
+         q(0),
+         ],
+      q(ssi) => [
+         q(6237),
+         q(0),
+         ],
+      q(ssj) => [
+         q(6238),
+         q(0),
+         ],
+      q(ssk) => [
+         q(6239),
+         q(0),
+         ],
+      q(ssl) => [
+         q(6240),
+         q(0),
+         ],
+      q(ssm) => [
+         q(6241),
+         q(0),
+         ],
+      q(ssn) => [
+         q(6242),
+         q(0),
+         ],
+      q(sso) => [
+         q(6243),
+         q(0),
+         ],
+      q(ssp) => [
+         q(6244),
+         q(0),
+         ],
+      q(ssq) => [
+         q(6245),
+         q(0),
+         ],
+      q(ssr) => [
+         q(6246),
+         q(0),
+         ],
+      q(sss) => [
+         q(6247),
+         q(0),
+         ],
+      q(sst) => [
+         q(6248),
+         q(0),
+         ],
+      q(ssu) => [
+         q(6249),
+         q(0),
+         ],
+      q(ssv) => [
+         q(6250),
+         q(0),
+         ],
+      q(ssw) => [
+         q(0407),
+         q(0),
+         ],
+      q(ssx) => [
+         q(6251),
+         q(0),
+         ],
+      q(ssy) => [
+         q(6252),
+         q(0),
+         ],
+      q(ssz) => [
+         q(6253),
+         q(0),
+         ],
+      q(sta) => [
+         q(6254),
+         q(0),
+         ],
+      q(stb) => [
+         q(6255),
+         q(0),
+         ],
+      q(std) => [
+         q(6256),
+         q(0),
+         ],
+      q(ste) => [
+         q(6257),
+         q(0),
+         ],
+      q(stf) => [
+         q(6258),
+         q(0),
+         ],
+      q(stg) => [
+         q(6259),
+         q(0),
+         ],
+      q(sth) => [
+         q(6260),
+         q(0),
+         ],
+      q(sti) => [
+         q(6261),
+         q(0),
+         ],
+      q(stj) => [
+         q(6262),
+         q(0),
+         ],
+      q(stk) => [
+         q(6263),
+         q(0),
+         ],
+      q(stl) => [
+         q(6264),
+         q(0),
+         ],
+      q(stm) => [
+         q(6265),
+         q(0),
+         ],
+      q(stn) => [
+         q(6266),
+         q(0),
+         ],
+      q(sto) => [
+         q(6267),
+         q(0),
+         ],
+      q(stp) => [
+         q(6268),
+         q(0),
+         ],
+      q(stq) => [
+         q(6269),
+         q(0),
+         ],
+      q(str) => [
+         q(6270),
+         q(0),
+         ],
+      q(sts) => [
+         q(6271),
+         q(0),
+         ],
+      q(stt) => [
+         q(6272),
+         q(0),
+         ],
+      q(stu) => [
+         q(6273),
+         q(0),
+         ],
+      q(stv) => [
+         q(6274),
+         q(0),
+         ],
+      q(stw) => [
+         q(6275),
+         q(0),
+         ],
+      q(sty) => [
+         q(6276),
+         q(0),
+         ],
+      q(sua) => [
+         q(6277),
+         q(0),
+         ],
+      q(sub) => [
+         q(6278),
+         q(0),
+         ],
+      q(suc) => [
+         q(6279),
+         q(0),
+         ],
+      q(sue) => [
+         q(6280),
+         q(0),
+         ],
+      q(sug) => [
+         q(6281),
+         q(0),
+         ],
+      q(sui) => [
+         q(6282),
+         q(0),
+         ],
+      q(suj) => [
+         q(6283),
+         q(0),
+         ],
+      q(suk) => [
+         q(0408),
+         q(0),
+         ],
+      q(sun) => [
+         q(0409),
+         q(0),
+         ],
+      q(suq) => [
+         q(6284),
+         q(0),
+         ],
+      q(sur) => [
+         q(6285),
+         q(0),
+         ],
+      q(sus) => [
+         q(0410),
+         q(0),
+         ],
+      q(sut) => [
+         q(6286),
+         q(0),
+         ],
+      q(suv) => [
+         q(6287),
+         q(0),
+         ],
+      q(suw) => [
+         q(6288),
+         q(0),
+         ],
+      q(sux) => [
+         q(0411),
+         q(0),
+         ],
+      q(suy) => [
+         q(6289),
+         q(0),
+         ],
+      q(suz) => [
+         q(6290),
+         q(0),
+         ],
+      q(sva) => [
+         q(6291),
+         q(0),
+         ],
+      q(svb) => [
+         q(6292),
+         q(0),
+         ],
+      q(svc) => [
+         q(6293),
+         q(0),
+         ],
+      q(sve) => [
+         q(6294),
+         q(0),
+         ],
+      q(svk) => [
+         q(6295),
+         q(0),
+         ],
+      q(svm) => [
+         q(6296),
+         q(0),
+         ],
+      q(svr) => [
+         q(6297),
+         q(0),
+         ],
+      q(svs) => [
+         q(6298),
+         q(0),
+         ],
+      q(svx) => [
+         q(6299),
+         q(0),
+         ],
+      q(swa) => [
+         q(0412),
+         q(0),
+         ],
+      q(swb) => [
+         q(6300),
+         q(0),
+         ],
+      q(swc) => [
+         q(6301),
+         q(0),
+         ],
+      q(swe) => [
+         q(0413),
+         q(0),
+         ],
+      q(swf) => [
+         q(6302),
+         q(0),
+         ],
+      q(swg) => [
+         q(6303),
+         q(0),
+         ],
+      q(swh) => [
+         q(6304),
+         q(0),
+         ],
+      q(swi) => [
+         q(6305),
+         q(0),
+         ],
+      q(swj) => [
+         q(6306),
+         q(0),
+         ],
+      q(swk) => [
+         q(6307),
+         q(0),
+         ],
+      q(swl) => [
+         q(6308),
+         q(0),
+         ],
+      q(swm) => [
+         q(6309),
+         q(0),
+         ],
+      q(swn) => [
+         q(6310),
+         q(0),
+         ],
+      q(swo) => [
+         q(6311),
+         q(0),
+         ],
+      q(swp) => [
+         q(6312),
+         q(0),
+         ],
+      q(swq) => [
+         q(6313),
+         q(0),
+         ],
+      q(swr) => [
+         q(6314),
+         q(0),
+         ],
+      q(sws) => [
+         q(6315),
+         q(0),
+         ],
+      q(swt) => [
+         q(6316),
+         q(0),
+         ],
+      q(swu) => [
+         q(6317),
+         q(0),
+         ],
+      q(swv) => [
+         q(6318),
+         q(0),
+         ],
+      q(sww) => [
+         q(6319),
+         q(0),
+         ],
+      q(swx) => [
+         q(6320),
+         q(0),
+         ],
+      q(swy) => [
+         q(6321),
+         q(0),
+         ],
+      q(sxb) => [
+         q(6322),
+         q(0),
+         ],
+      q(sxc) => [
+         q(6323),
+         q(0),
+         ],
+      q(sxe) => [
+         q(6324),
+         q(0),
+         ],
+      q(sxg) => [
+         q(6325),
+         q(0),
+         ],
+      q(sxk) => [
+         q(6326),
+         q(0),
+         ],
+      q(sxl) => [
+         q(6327),
+         q(0),
+         ],
+      q(sxm) => [
+         q(6328),
+         q(0),
+         ],
+      q(sxn) => [
+         q(6329),
+         q(0),
+         ],
+      q(sxo) => [
+         q(6330),
+         q(0),
+         ],
+      q(sxr) => [
+         q(6331),
+         q(0),
+         ],
+      q(sxs) => [
+         q(6332),
+         q(0),
+         ],
+      q(sxu) => [
+         q(6333),
+         q(0),
+         ],
+      q(sxw) => [
+         q(6334),
+         q(0),
+         ],
+      q(sya) => [
+         q(6335),
+         q(0),
+         ],
+      q(syb) => [
+         q(6336),
+         q(0),
+         ],
+      q(syc) => [
+         q(0414),
+         q(0),
+         ],
+      q(syd) => [
+         q(0526),
+         q(0),
+         ],
+      q(syi) => [
+         q(6337),
+         q(0),
+         ],
+      q(syk) => [
+         q(6338),
+         q(0),
+         ],
+      q(syl) => [
+         q(6339),
+         q(0),
+         ],
+      q(sym) => [
+         q(6340),
+         q(0),
+         ],
+      q(syn) => [
+         q(6341),
+         q(0),
+         ],
+      q(syo) => [
+         q(6342),
+         q(0),
+         ],
+      q(syr) => [
+         q(0415),
+         q(0),
+         ],
+      q(sys) => [
+         q(6343),
+         q(0),
+         ],
+      q(syw) => [
+         q(6344),
+         q(0),
+         ],
+      q(syx) => [
+         q(6345),
+         q(0),
+         ],
+      q(syy) => [
+         q(6346),
+         q(0),
+         ],
+      q(sza) => [
+         q(6347),
+         q(0),
+         ],
+      q(szb) => [
+         q(6348),
+         q(0),
+         ],
+      q(szc) => [
+         q(6349),
+         q(0),
+         ],
+      q(szd) => [
+         q(6350),
+         q(0),
+         ],
+      q(sze) => [
+         q(6351),
+         q(0),
+         ],
+      q(szg) => [
+         q(6352),
+         q(0),
+         ],
+      q(szl) => [
+         q(6353),
+         q(0),
+         ],
+      q(szn) => [
+         q(6354),
+         q(0),
+         ],
+      q(szp) => [
+         q(6355),
+         q(0),
+         ],
+      q(szv) => [
+         q(6356),
+         q(0),
+         ],
+      q(szw) => [
+         q(6357),
+         q(0),
+         ],
+      q(taa) => [
+         q(6358),
+         q(0),
+         ],
+      q(tab) => [
+         q(6359),
+         q(0),
+         ],
+      q(tac) => [
+         q(6360),
+         q(0),
+         ],
+      q(tad) => [
+         q(6361),
+         q(0),
+         ],
+      q(tae) => [
+         q(6362),
+         q(0),
+         ],
+      q(taf) => [
+         q(6363),
+         q(0),
+         ],
+      q(tag) => [
+         q(6364),
+         q(0),
+         ],
+      q(tah) => [
+         q(0416),
+         q(0),
+         ],
+      q(tai) => [
+         q(0417),
+         q(0),
+         ],
+      q(taj) => [
+         q(6365),
+         q(0),
+         ],
+      q(tak) => [
+         q(6366),
+         q(0),
+         ],
+      q(tal) => [
+         q(6367),
+         q(0),
+         ],
+      q(tam) => [
+         q(0418),
+         q(0),
+         ],
+      q(tan) => [
+         q(6368),
+         q(0),
+         ],
+      q(tao) => [
+         q(6369),
+         q(0),
+         ],
+      q(tap) => [
+         q(6370),
+         q(0),
+         ],
+      q(taq) => [
+         q(6371),
+         q(0),
+         ],
+      q(tar) => [
+         q(6372),
+         q(0),
+         ],
+      q(tas) => [
+         q(6373),
+         q(0),
+         ],
+      q(tat) => [
+         q(0419),
+         q(0),
+         ],
+      q(tau) => [
+         q(6374),
+         q(0),
+         ],
+      q(tav) => [
+         q(6375),
+         q(0),
+         ],
+      q(taw) => [
+         q(6376),
+         q(0),
+         ],
+      q(tax) => [
+         q(6377),
+         q(0),
+         ],
+      q(tay) => [
+         q(6378),
+         q(0),
+         ],
+      q(taz) => [
+         q(6379),
+         q(0),
+         ],
+      q(tba) => [
+         q(6380),
+         q(0),
+         ],
+      q(tbb) => [
+         q(6381),
+         q(0),
+         ],
+      q(tbc) => [
+         q(6382),
+         q(0),
+         ],
+      q(tbd) => [
+         q(6383),
+         q(0),
+         ],
+      q(tbe) => [
+         q(6384),
+         q(0),
+         ],
+      q(tbf) => [
+         q(6385),
+         q(0),
+         ],
+      q(tbg) => [
+         q(6386),
+         q(0),
+         ],
+      q(tbh) => [
+         q(6387),
+         q(0),
+         ],
+      q(tbi) => [
+         q(6388),
+         q(0),
+         ],
+      q(tbj) => [
+         q(6389),
+         q(0),
+         ],
+      q(tbk) => [
+         q(6390),
+         q(0),
+         ],
+      q(tbl) => [
+         q(6391),
+         q(0),
+         ],
+      q(tbm) => [
+         q(6392),
+         q(0),
+         ],
+      q(tbn) => [
+         q(6393),
+         q(0),
+         ],
+      q(tbo) => [
+         q(6394),
+         q(0),
+         ],
+      q(tbp) => [
+         q(6395),
+         q(0),
+         ],
+      q(tbq) => [
+         q(0527),
+         q(0),
+         ],
+      q(tbr) => [
+         q(6396),
+         q(0),
+         ],
+      q(tbs) => [
+         q(6397),
+         q(0),
+         ],
+      q(tbt) => [
+         q(6398),
+         q(0),
+         ],
+      q(tbu) => [
+         q(6399),
+         q(0),
+         ],
+      q(tbv) => [
+         q(6400),
+         q(0),
+         ],
+      q(tbw) => [
+         q(6401),
+         q(0),
+         ],
+      q(tbx) => [
+         q(6402),
+         q(0),
+         ],
+      q(tby) => [
+         q(6403),
+         q(0),
+         ],
+      q(tbz) => [
+         q(6404),
+         q(0),
+         ],
+      q(tca) => [
+         q(6405),
+         q(0),
+         ],
+      q(tcb) => [
+         q(6406),
+         q(0),
+         ],
+      q(tcc) => [
+         q(6407),
+         q(0),
+         ],
+      q(tcd) => [
+         q(6408),
+         q(0),
+         ],
+      q(tce) => [
+         q(6409),
+         q(0),
+         ],
+      q(tcf) => [
+         q(6410),
+         q(0),
+         ],
+      q(tcg) => [
+         q(6411),
+         q(0),
+         ],
+      q(tch) => [
+         q(6412),
+         q(0),
+         ],
+      q(tci) => [
+         q(6413),
+         q(0),
+         ],
+      q(tck) => [
+         q(6414),
+         q(0),
+         ],
+      q(tcl) => [
+         q(6415),
+         q(0),
+         ],
+      q(tcm) => [
+         q(6416),
+         q(0),
+         ],
+      q(tcn) => [
+         q(6417),
+         q(0),
+         ],
+      q(tco) => [
+         q(6418),
+         q(0),
+         ],
+      q(tcp) => [
+         q(6419),
+         q(0),
+         ],
+      q(tcq) => [
+         q(6420),
+         q(0),
+         ],
+      q(tcs) => [
+         q(6421),
+         q(0),
+         ],
+      q(tct) => [
+         q(6422),
+         q(0),
+         ],
+      q(tcu) => [
+         q(6423),
+         q(0),
+         ],
+      q(tcw) => [
+         q(6424),
+         q(0),
+         ],
+      q(tcx) => [
+         q(6425),
+         q(0),
+         ],
+      q(tcy) => [
+         q(6426),
+         q(0),
+         ],
+      q(tcz) => [
+         q(6427),
+         q(0),
+         ],
+      q(tda) => [
+         q(6428),
+         q(0),
+         ],
+      q(tdb) => [
+         q(6429),
+         q(0),
+         ],
+      q(tdc) => [
+         q(6430),
+         q(0),
+         ],
+      q(tdd) => [
+         q(6431),
+         q(0),
+         ],
+      q(tde) => [
+         q(6432),
+         q(0),
+         ],
+      q(tdf) => [
+         q(6433),
+         q(0),
+         ],
+      q(tdg) => [
+         q(6434),
+         q(0),
+         ],
+      q(tdh) => [
+         q(6435),
+         q(0),
+         ],
+      q(tdi) => [
+         q(6436),
+         q(0),
+         ],
+      q(tdj) => [
+         q(6437),
+         q(0),
+         ],
+      q(tdk) => [
+         q(6438),
+         q(0),
+         ],
+      q(tdl) => [
+         q(6439),
+         q(0),
+         ],
+      q(tdn) => [
+         q(6440),
+         q(0),
+         ],
+      q(tdo) => [
+         q(6441),
+         q(0),
+         ],
+      q(tdq) => [
+         q(6442),
+         q(0),
+         ],
+      q(tdr) => [
+         q(6443),
+         q(0),
+         ],
+      q(tds) => [
+         q(6444),
+         q(0),
+         ],
+      q(tdt) => [
+         q(6445),
+         q(0),
+         ],
+      q(tdu) => [
+         q(6446),
+         q(0),
+         ],
+      q(tdv) => [
+         q(6447),
+         q(0),
+         ],
+      q(tdx) => [
+         q(6448),
+         q(0),
+         ],
+      q(tdy) => [
+         q(6449),
+         q(0),
+         ],
+      q(tea) => [
+         q(6450),
+         q(0),
+         ],
+      q(teb) => [
+         q(6451),
+         q(0),
+         ],
+      q(tec) => [
+         q(6452),
+         q(0),
+         ],
+      q(ted) => [
+         q(6453),
+         q(0),
+         ],
+      q(tee) => [
+         q(6454),
+         q(0),
+         ],
+      q(tef) => [
+         q(6455),
+         q(0),
+         ],
+      q(teg) => [
+         q(6456),
+         q(0),
+         ],
+      q(teh) => [
+         q(6457),
+         q(0),
+         ],
+      q(tei) => [
+         q(6458),
+         q(0),
+         ],
+      q(tek) => [
+         q(6459),
+         q(0),
+         ],
+      q(tel) => [
+         q(0420),
+         q(0),
+         ],
+      q(tem) => [
+         q(0421),
+         q(0),
+         ],
+      q(ten) => [
+         q(6460),
+         q(0),
+         ],
+      q(teo) => [
+         q(6461),
+         q(0),
+         ],
+      q(tep) => [
+         q(6462),
+         q(0),
+         ],
+      q(teq) => [
+         q(6463),
+         q(0),
+         ],
+      q(ter) => [
+         q(0422),
+         q(0),
+         ],
+      q(tes) => [
+         q(6464),
+         q(0),
+         ],
+      q(tet) => [
+         q(0423),
+         q(0),
+         ],
+      q(teu) => [
+         q(6465),
+         q(0),
+         ],
+      q(tev) => [
+         q(6466),
+         q(0),
+         ],
+      q(tew) => [
+         q(6467),
+         q(0),
+         ],
+      q(tex) => [
+         q(6468),
+         q(0),
+         ],
+      q(tey) => [
+         q(6469),
+         q(0),
+         ],
+      q(tfi) => [
+         q(6470),
+         q(0),
+         ],
+      q(tfn) => [
+         q(6471),
+         q(0),
+         ],
+      q(tfo) => [
+         q(6472),
+         q(0),
+         ],
+      q(tfr) => [
+         q(6473),
+         q(0),
+         ],
+      q(tft) => [
+         q(6474),
+         q(0),
+         ],
+      q(tga) => [
+         q(6475),
+         q(0),
+         ],
+      q(tgb) => [
+         q(6476),
+         q(0),
+         ],
+      q(tgc) => [
+         q(6477),
+         q(0),
+         ],
+      q(tgd) => [
+         q(6478),
+         q(0),
+         ],
+      q(tge) => [
+         q(6479),
+         q(0),
+         ],
+      q(tgf) => [
+         q(6480),
+         q(0),
+         ],
+      q(tgh) => [
+         q(6481),
+         q(0),
+         ],
+      q(tgi) => [
+         q(6482),
+         q(0),
+         ],
+      q(tgj) => [
+         q(6483),
+         q(0),
+         ],
+      q(tgk) => [
+         q(0424),
+         q(0),
+         ],
+      q(tgl) => [
+         q(0425),
+         q(0),
+         ],
+      q(tgn) => [
+         q(6484),
+         q(0),
+         ],
+      q(tgo) => [
+         q(6485),
+         q(0),
+         ],
+      q(tgp) => [
+         q(6486),
+         q(0),
+         ],
+      q(tgq) => [
+         q(6487),
+         q(0),
+         ],
+      q(tgr) => [
+         q(6488),
+         q(0),
+         ],
+      q(tgs) => [
+         q(6489),
+         q(0),
+         ],
+      q(tgt) => [
+         q(6490),
+         q(0),
+         ],
+      q(tgu) => [
+         q(6491),
+         q(0),
+         ],
+      q(tgv) => [
+         q(6492),
+         q(0),
+         ],
+      q(tgw) => [
+         q(6493),
+         q(0),
+         ],
+      q(tgx) => [
+         q(6494),
+         q(0),
+         ],
+      q(tgy) => [
+         q(6495),
+         q(0),
+         ],
+      q(tgz) => [
+         q(6496),
+         q(0),
+         ],
+      q(tha) => [
+         q(0426),
+         q(0),
+         ],
+      q(thc) => [
+         q(6497),
+         q(0),
+         ],
+      q(thd) => [
+         q(6498),
+         q(0),
+         ],
+      q(the) => [
+         q(6499),
+         q(0),
+         ],
+      q(thf) => [
+         q(6500),
+         q(0),
+         ],
+      q(thh) => [
+         q(6501),
+         q(0),
+         ],
+      q(thi) => [
+         q(6502),
+         q(0),
+         ],
+      q(thk) => [
+         q(6503),
+         q(0),
+         ],
+      q(thl) => [
+         q(6504),
+         q(0),
+         ],
+      q(thm) => [
+         q(6505),
+         q(0),
+         ],
+      q(thn) => [
+         q(6506),
+         q(0),
+         ],
+      q(thp) => [
+         q(6507),
+         q(0),
+         ],
+      q(thq) => [
+         q(6508),
+         q(0),
+         ],
+      q(thr) => [
+         q(6509),
+         q(0),
+         ],
+      q(ths) => [
+         q(6510),
+         q(0),
+         ],
+      q(tht) => [
+         q(6511),
+         q(0),
+         ],
+      q(thu) => [
+         q(6512),
+         q(0),
+         ],
+      q(thv) => [
+         q(6513),
+         q(0),
+         ],
+      q(thw) => [
+         q(6514),
+         q(0),
+         ],
+      q(thy) => [
+         q(6515),
+         q(0),
+         ],
+      q(thz) => [
+         q(6516),
+         q(0),
+         ],
+      q(tia) => [
+         q(6517),
+         q(0),
+         ],
+      q(tib) => [
+         q(0427),
+         q(0),
+         ],
+      q(tic) => [
+         q(6518),
+         q(0),
+         ],
+      q(tid) => [
+         q(6519),
+         q(0),
+         ],
+      q(tif) => [
+         q(6520),
+         q(0),
+         ],
+      q(tig) => [
+         q(0428),
+         q(0),
+         ],
+      q(tih) => [
+         q(6521),
+         q(0),
+         ],
+      q(tii) => [
+         q(6522),
+         q(0),
+         ],
+      q(tij) => [
+         q(6523),
+         q(0),
+         ],
+      q(tik) => [
+         q(6524),
+         q(0),
+         ],
+      q(til) => [
+         q(6525),
+         q(0),
+         ],
+      q(tim) => [
+         q(6526),
+         q(0),
+         ],
+      q(tin) => [
+         q(6527),
+         q(0),
+         ],
+      q(tio) => [
+         q(6528),
+         q(0),
+         ],
+      q(tip) => [
+         q(6529),
+         q(0),
+         ],
+      q(tiq) => [
+         q(6530),
+         q(0),
+         ],
+      q(tir) => [
+         q(0429),
+         q(0),
+         ],
+      q(tis) => [
+         q(6531),
+         q(0),
+         ],
+      q(tit) => [
+         q(6532),
+         q(0),
+         ],
+      q(tiu) => [
+         q(6533),
+         q(0),
+         ],
+      q(tiv) => [
+         q(0430),
+         q(0),
+         ],
+      q(tiw) => [
+         q(6534),
+         q(0),
+         ],
+      q(tix) => [
+         q(6535),
+         q(0),
+         ],
+      q(tiy) => [
+         q(6536),
+         q(0),
+         ],
+      q(tiz) => [
+         q(6537),
+         q(0),
+         ],
+      q(tja) => [
+         q(6538),
+         q(0),
+         ],
+      q(tjg) => [
+         q(6539),
+         q(0),
+         ],
+      q(tji) => [
+         q(6540),
+         q(0),
+         ],
+      q(tjl) => [
+         q(6541),
+         q(0),
+         ],
+      q(tjm) => [
+         q(6542),
+         q(0),
+         ],
+      q(tjn) => [
+         q(6543),
+         q(0),
+         ],
+      q(tjo) => [
+         q(6544),
+         q(0),
+         ],
+      q(tjs) => [
+         q(6545),
+         q(0),
+         ],
+      q(tju) => [
+         q(6546),
+         q(0),
+         ],
+      q(tjw) => [
+         q(6547),
+         q(0),
+         ],
+      q(tka) => [
+         q(6548),
+         q(0),
+         ],
+      q(tkb) => [
+         q(6549),
+         q(0),
+         ],
+      q(tkd) => [
+         q(6550),
+         q(0),
+         ],
+      q(tke) => [
+         q(6551),
+         q(0),
+         ],
+      q(tkf) => [
+         q(6552),
+         q(0),
+         ],
+      q(tkg) => [
+         q(6553),
+         q(0),
+         ],
+      q(tkl) => [
+         q(0431),
+         q(0),
+         ],
+      q(tkm) => [
+         q(6554),
+         q(0),
+         ],
+      q(tkn) => [
+         q(6555),
+         q(0),
+         ],
+      q(tkp) => [
+         q(6556),
+         q(0),
+         ],
+      q(tkq) => [
+         q(6557),
+         q(0),
+         ],
+      q(tkr) => [
+         q(6558),
+         q(0),
+         ],
+      q(tks) => [
+         q(6559),
+         q(0),
+         ],
+      q(tkt) => [
+         q(6560),
+         q(0),
+         ],
+      q(tku) => [
+         q(6561),
+         q(0),
+         ],
+      q(tkv) => [
+         q(6562),
+         q(0),
+         ],
+      q(tkw) => [
+         q(6563),
+         q(0),
+         ],
+      q(tkx) => [
+         q(6564),
+         q(0),
+         ],
+      q(tkz) => [
+         q(6565),
+         q(0),
+         ],
+      q(tla) => [
+         q(6566),
+         q(0),
+         ],
+      q(tlb) => [
+         q(6567),
+         q(0),
+         ],
+      q(tlc) => [
+         q(6568),
+         q(0),
+         ],
+      q(tld) => [
+         q(6569),
+         q(0),
+         ],
+      q(tlf) => [
+         q(6570),
+         q(0),
+         ],
+      q(tlg) => [
+         q(6571),
+         q(0),
+         ],
+      q(tlh) => [
+         q(0432),
+         q(0),
+         ],
+      q(tli) => [
+         q(0433),
+         q(0),
+         ],
+      q(tlj) => [
+         q(6572),
+         q(0),
+         ],
+      q(tlk) => [
+         q(6573),
+         q(0),
+         ],
+      q(tll) => [
+         q(6574),
+         q(0),
+         ],
+      q(tlm) => [
+         q(6575),
+         q(0),
+         ],
+      q(tln) => [
+         q(6576),
+         q(0),
+         ],
+      q(tlo) => [
+         q(6577),
+         q(0),
+         ],
+      q(tlp) => [
+         q(6578),
+         q(0),
+         ],
+      q(tlq) => [
+         q(6579),
+         q(0),
+         ],
+      q(tlr) => [
+         q(6580),
+         q(0),
+         ],
+      q(tls) => [
+         q(6581),
+         q(0),
+         ],
+      q(tlt) => [
+         q(6582),
+         q(0),
+         ],
+      q(tlu) => [
+         q(6583),
+         q(0),
+         ],
+      q(tlv) => [
+         q(6584),
+         q(0),
+         ],
+      q(tlx) => [
+         q(6585),
+         q(0),
+         ],
+      q(tly) => [
+         q(6586),
+         q(0),
+         ],
+      q(tma) => [
+         q(6587),
+         q(0),
+         ],
+      q(tmb) => [
+         q(6588),
+         q(0),
+         ],
+      q(tmc) => [
+         q(6589),
+         q(0),
+         ],
+      q(tmd) => [
+         q(6590),
+         q(0),
+         ],
+      q(tme) => [
+         q(6591),
+         q(0),
+         ],
+      q(tmf) => [
+         q(6592),
+         q(0),
+         ],
+      q(tmg) => [
+         q(6593),
+         q(0),
+         ],
+      q(tmh) => [
+         q(0434),
+         q(0),
+         ],
+      q(tmi) => [
+         q(6594),
+         q(0),
+         ],
+      q(tmj) => [
+         q(6595),
+         q(0),
+         ],
+      q(tmk) => [
+         q(6596),
+         q(0),
+         ],
+      q(tml) => [
+         q(6597),
+         q(0),
+         ],
+      q(tmm) => [
+         q(6598),
+         q(0),
+         ],
+      q(tmn) => [
+         q(6599),
+         q(0),
+         ],
+      q(tmo) => [
+         q(6600),
+         q(0),
+         ],
+      q(tmp) => [
+         q(6601),
+         q(0),
+         ],
+      q(tmq) => [
+         q(6602),
+         q(0),
+         ],
+      q(tmr) => [
+         q(6603),
+         q(0),
+         ],
+      q(tms) => [
+         q(6604),
+         q(0),
+         ],
+      q(tmt) => [
+         q(6605),
+         q(0),
+         ],
+      q(tmu) => [
+         q(6606),
+         q(0),
+         ],
+      q(tmv) => [
+         q(6607),
+         q(0),
+         ],
+      q(tmw) => [
+         q(6608),
+         q(0),
+         ],
+      q(tmy) => [
+         q(6609),
+         q(0),
+         ],
+      q(tmz) => [
+         q(6610),
+         q(0),
+         ],
+      q(tna) => [
+         q(6611),
+         q(0),
+         ],
+      q(tnb) => [
+         q(6612),
+         q(0),
+         ],
+      q(tnc) => [
+         q(6613),
+         q(0),
+         ],
+      q(tnd) => [
+         q(6614),
+         q(0),
+         ],
+      q(tne) => [
+         q(6615),
+         q(0),
+         ],
+      q(tng) => [
+         q(6616),
+         q(0),
+         ],
+      q(tnh) => [
+         q(6617),
+         q(0),
+         ],
+      q(tni) => [
+         q(6618),
+         q(0),
+         ],
+      q(tnk) => [
+         q(6619),
+         q(0),
+         ],
+      q(tnl) => [
+         q(6620),
+         q(0),
+         ],
+      q(tnm) => [
+         q(6621),
+         q(0),
+         ],
+      q(tnn) => [
+         q(6622),
+         q(0),
+         ],
+      q(tno) => [
+         q(6623),
+         q(0),
+         ],
+      q(tnp) => [
+         q(6624),
+         q(0),
+         ],
+      q(tnq) => [
+         q(6625),
+         q(0),
+         ],
+      q(tnr) => [
+         q(6626),
+         q(0),
+         ],
+      q(tns) => [
+         q(6627),
+         q(0),
+         ],
+      q(tnt) => [
+         q(6628),
+         q(0),
+         ],
+      q(tnu) => [
+         q(6629),
+         q(0),
+         ],
+      q(tnv) => [
+         q(6630),
+         q(0),
+         ],
+      q(tnw) => [
+         q(6631),
+         q(0),
+         ],
+      q(tnx) => [
+         q(6632),
+         q(0),
+         ],
+      q(tny) => [
+         q(6633),
+         q(0),
+         ],
+      q(tnz) => [
+         q(6634),
+         q(0),
+         ],
+      q(tob) => [
+         q(6635),
+         q(0),
+         ],
+      q(toc) => [
+         q(6636),
+         q(0),
+         ],
+      q(tod) => [
+         q(6637),
+         q(0),
+         ],
+      q(toe) => [
+         q(6638),
+         q(0),
+         ],
+      q(tof) => [
+         q(6639),
+         q(0),
+         ],
+      q(tog) => [
+         q(0435),
+         q(0),
+         ],
+      q(toh) => [
+         q(6640),
+         q(0),
+         ],
+      q(toi) => [
+         q(6641),
+         q(0),
+         ],
+      q(toj) => [
+         q(6642),
+         q(0),
+         ],
+      q(tol) => [
+         q(6643),
+         q(0),
+         ],
+      q(tom) => [
+         q(6644),
+         q(0),
+         ],
+      q(ton) => [
+         q(0436),
+         q(0),
+         ],
+      q(too) => [
+         q(6645),
+         q(0),
+         ],
+      q(top) => [
+         q(6646),
+         q(0),
+         ],
+      q(toq) => [
+         q(6647),
+         q(0),
+         ],
+      q(tor) => [
+         q(6648),
+         q(0),
+         ],
+      q(tos) => [
+         q(6649),
+         q(0),
+         ],
+      q(tou) => [
+         q(6650),
+         q(0),
+         ],
+      q(tov) => [
+         q(6651),
+         q(0),
+         ],
+      q(tow) => [
+         q(6652),
+         q(0),
+         ],
+      q(tox) => [
+         q(6653),
+         q(0),
+         ],
+      q(toy) => [
+         q(6654),
+         q(0),
+         ],
+      q(toz) => [
+         q(6655),
+         q(0),
+         ],
+      q(tpa) => [
+         q(6656),
+         q(0),
+         ],
+      q(tpc) => [
+         q(6657),
+         q(0),
+         ],
+      q(tpe) => [
+         q(6658),
+         q(0),
+         ],
+      q(tpf) => [
+         q(6659),
+         q(0),
+         ],
+      q(tpg) => [
+         q(6660),
+         q(0),
+         ],
+      q(tpi) => [
+         q(0437),
+         q(0),
+         ],
+      q(tpj) => [
+         q(6661),
+         q(0),
+         ],
+      q(tpk) => [
+         q(6662),
+         q(0),
+         ],
+      q(tpl) => [
+         q(6663),
+         q(0),
+         ],
+      q(tpm) => [
+         q(6664),
+         q(0),
+         ],
+      q(tpn) => [
+         q(6665),
+         q(0),
+         ],
+      q(tpo) => [
+         q(6666),
+         q(0),
+         ],
+      q(tpp) => [
+         q(6667),
+         q(0),
+         ],
+      q(tpq) => [
+         q(6668),
+         q(0),
+         ],
+      q(tpr) => [
+         q(6669),
+         q(0),
+         ],
+      q(tpt) => [
+         q(6670),
+         q(0),
+         ],
+      q(tpu) => [
+         q(6671),
+         q(0),
+         ],
+      q(tpv) => [
+         q(6672),
+         q(0),
+         ],
+      q(tpw) => [
+         q(6673),
+         q(0),
+         ],
+      q(tpx) => [
+         q(6674),
+         q(0),
+         ],
+      q(tpy) => [
+         q(6675),
+         q(0),
+         ],
+      q(tpz) => [
+         q(6676),
+         q(0),
+         ],
+      q(tqb) => [
+         q(6677),
+         q(0),
+         ],
+      q(tql) => [
+         q(6678),
+         q(0),
+         ],
+      q(tqm) => [
+         q(6679),
+         q(0),
+         ],
+      q(tqn) => [
+         q(6680),
+         q(0),
+         ],
+      q(tqo) => [
+         q(6681),
+         q(0),
+         ],
+      q(tqp) => [
+         q(6682),
+         q(0),
+         ],
+      q(tqq) => [
+         q(6683),
+         q(0),
+         ],
+      q(tqr) => [
+         q(6684),
+         q(0),
+         ],
+      q(tqt) => [
+         q(6685),
+         q(0),
+         ],
+      q(tqu) => [
+         q(6686),
+         q(0),
+         ],
+      q(tqw) => [
+         q(6687),
+         q(0),
+         ],
+      q(tra) => [
+         q(6688),
+         q(0),
+         ],
+      q(trb) => [
+         q(6689),
+         q(0),
+         ],
+      q(trc) => [
+         q(6690),
+         q(0),
+         ],
+      q(trd) => [
+         q(6691),
+         q(0),
+         ],
+      q(tre) => [
+         q(6692),
+         q(0),
+         ],
+      q(trf) => [
+         q(6693),
+         q(0),
+         ],
+      q(trg) => [
+         q(6694),
+         q(0),
+         ],
+      q(trh) => [
+         q(6695),
+         q(0),
+         ],
+      q(tri) => [
+         q(6696),
+         q(0),
+         ],
+      q(trj) => [
+         q(6697),
+         q(0),
+         ],
+      q(trk) => [
+         q(0528),
+         q(0),
+         ],
+      q(trl) => [
+         q(6698),
+         q(0),
+         ],
+      q(trm) => [
+         q(6699),
+         q(0),
+         ],
+      q(trn) => [
+         q(6700),
+         q(0),
+         ],
+      q(tro) => [
+         q(6701),
+         q(0),
+         ],
+      q(trp) => [
+         q(6702),
+         q(0),
+         ],
+      q(trq) => [
+         q(6703),
+         q(0),
+         ],
+      q(trr) => [
+         q(6704),
+         q(0),
+         ],
+      q(trs) => [
+         q(6705),
+         q(0),
+         ],
+      q(trt) => [
+         q(6706),
+         q(0),
+         ],
+      q(tru) => [
+         q(6707),
+         q(0),
+         ],
+      q(trv) => [
+         q(6708),
+         q(0),
+         ],
+      q(trw) => [
+         q(6709),
+         q(0),
+         ],
+      q(trx) => [
+         q(6710),
+         q(0),
+         ],
+      q(try) => [
+         q(6711),
+         q(0),
+         ],
+      q(trz) => [
+         q(6712),
+         q(0),
+         ],
+      q(tsa) => [
+         q(6713),
+         q(0),
+         ],
+      q(tsb) => [
+         q(6714),
+         q(0),
+         ],
+      q(tsc) => [
+         q(6715),
+         q(0),
+         ],
+      q(tsd) => [
+         q(6716),
+         q(0),
+         ],
+      q(tse) => [
+         q(6717),
+         q(0),
+         ],
+      q(tsg) => [
+         q(6718),
+         q(0),
+         ],
+      q(tsh) => [
+         q(6719),
+         q(0),
+         ],
+      q(tsi) => [
+         q(0438),
+         q(0),
+         ],
+      q(tsj) => [
+         q(6720),
+         q(0),
+         ],
+      q(tsk) => [
+         q(6721),
+         q(0),
+         ],
+      q(tsl) => [
+         q(6722),
+         q(0),
+         ],
+      q(tsm) => [
+         q(6723),
+         q(0),
+         ],
+      q(tsn) => [
+         q(0439),
+         q(0),
+         ],
+      q(tso) => [
+         q(0440),
+         q(0),
+         ],
+      q(tsp) => [
+         q(6724),
+         q(0),
+         ],
+      q(tsq) => [
+         q(6725),
+         q(0),
+         ],
+      q(tsr) => [
+         q(6726),
+         q(0),
+         ],
+      q(tss) => [
+         q(6727),
+         q(0),
+         ],
+      q(tst) => [
+         q(6728),
+         q(0),
+         ],
+      q(tsu) => [
+         q(6729),
+         q(0),
+         ],
+      q(tsv) => [
+         q(6730),
+         q(0),
+         ],
+      q(tsw) => [
+         q(6731),
+         q(0),
+         ],
+      q(tsx) => [
+         q(6732),
+         q(0),
+         ],
+      q(tsy) => [
+         q(6733),
+         q(0),
+         ],
+      q(tsz) => [
+         q(6734),
+         q(0),
+         ],
+      q(tta) => [
+         q(6735),
+         q(0),
+         ],
+      q(ttb) => [
+         q(6736),
+         q(0),
+         ],
+      q(ttc) => [
+         q(6737),
+         q(0),
+         ],
+      q(ttd) => [
+         q(6738),
+         q(0),
+         ],
+      q(tte) => [
+         q(6739),
+         q(0),
+         ],
+      q(ttf) => [
+         q(6740),
+         q(0),
+         ],
+      q(ttg) => [
+         q(6741),
+         q(0),
+         ],
+      q(tth) => [
+         q(6742),
+         q(0),
+         ],
+      q(tti) => [
+         q(6743),
+         q(0),
+         ],
+      q(ttj) => [
+         q(6744),
+         q(0),
+         ],
+      q(ttk) => [
+         q(6745),
+         q(0),
+         ],
+      q(ttl) => [
+         q(6746),
+         q(0),
+         ],
+      q(ttm) => [
+         q(6747),
+         q(0),
+         ],
+      q(ttn) => [
+         q(6748),
+         q(0),
+         ],
+      q(tto) => [
+         q(6749),
+         q(0),
+         ],
+      q(ttp) => [
+         q(6750),
+         q(0),
+         ],
+      q(ttq) => [
+         q(6751),
+         q(0),
+         ],
+      q(ttr) => [
+         q(6752),
+         q(0),
+         ],
+      q(tts) => [
+         q(6753),
+         q(0),
+         ],
+      q(ttt) => [
+         q(6754),
+         q(0),
+         ],
+      q(ttu) => [
+         q(6755),
+         q(0),
+         ],
+      q(ttv) => [
+         q(6756),
+         q(0),
+         ],
+      q(ttw) => [
+         q(6757),
+         q(0),
+         ],
+      q(tty) => [
+         q(6758),
+         q(0),
+         ],
+      q(ttz) => [
+         q(6759),
+         q(0),
+         ],
+      q(tua) => [
+         q(6760),
+         q(0),
+         ],
+      q(tub) => [
+         q(6761),
+         q(0),
+         ],
+      q(tuc) => [
+         q(6762),
+         q(0),
+         ],
+      q(tud) => [
+         q(6763),
+         q(0),
+         ],
+      q(tue) => [
+         q(6764),
+         q(0),
+         ],
+      q(tuf) => [
+         q(6765),
+         q(0),
+         ],
+      q(tug) => [
+         q(6766),
+         q(0),
+         ],
+      q(tuh) => [
+         q(6767),
+         q(0),
+         ],
+      q(tui) => [
+         q(6768),
+         q(0),
+         ],
+      q(tuj) => [
+         q(6769),
+         q(0),
+         ],
+      q(tuk) => [
+         q(0441),
+         q(0),
+         ],
+      q(tul) => [
+         q(6770),
+         q(0),
+         ],
+      q(tum) => [
+         q(0442),
+         q(0),
+         ],
+      q(tun) => [
+         q(6771),
+         q(0),
+         ],
+      q(tuo) => [
+         q(6772),
+         q(0),
+         ],
+      q(tup) => [
+         q(0443),
+         q(0),
+         ],
+      q(tuq) => [
+         q(6773),
+         q(0),
+         ],
+      q(tur) => [
+         q(0444),
+         q(0),
+         ],
+      q(tus) => [
+         q(6774),
+         q(0),
+         ],
+      q(tut) => [
+         q(0445),
+         q(0),
+         ],
+      q(tuu) => [
+         q(6775),
+         q(0),
+         ],
+      q(tuv) => [
+         q(6776),
+         q(0),
+         ],
+      q(tuw) => [
+         q(0529),
+         q(0),
+         ],
+      q(tux) => [
+         q(6777),
+         q(0),
+         ],
+      q(tuy) => [
+         q(6778),
+         q(0),
+         ],
+      q(tuz) => [
+         q(6779),
+         q(0),
+         ],
+      q(tva) => [
+         q(6780),
+         q(0),
+         ],
+      q(tvd) => [
+         q(6781),
+         q(0),
+         ],
+      q(tve) => [
+         q(6782),
+         q(0),
+         ],
+      q(tvk) => [
+         q(6783),
+         q(0),
+         ],
+      q(tvl) => [
+         q(0446),
+         q(0),
+         ],
+      q(tvm) => [
+         q(6784),
+         q(0),
+         ],
+      q(tvn) => [
+         q(6785),
+         q(0),
+         ],
+      q(tvo) => [
+         q(6786),
+         q(0),
+         ],
+      q(tvs) => [
+         q(6787),
+         q(0),
+         ],
+      q(tvt) => [
+         q(6788),
+         q(0),
+         ],
+      q(tvu) => [
+         q(6789),
+         q(0),
+         ],
+      q(tvw) => [
+         q(6790),
+         q(0),
+         ],
+      q(tvy) => [
+         q(6791),
+         q(0),
+         ],
+      q(twa) => [
+         q(6792),
+         q(0),
+         ],
+      q(twb) => [
+         q(6793),
+         q(0),
+         ],
+      q(twc) => [
+         q(6794),
+         q(0),
+         ],
+      q(twd) => [
+         q(6795),
+         q(0),
+         ],
+      q(twe) => [
+         q(6796),
+         q(0),
+         ],
+      q(twf) => [
+         q(6797),
+         q(0),
+         ],
+      q(twg) => [
+         q(6798),
+         q(0),
+         ],
+      q(twh) => [
+         q(6799),
+         q(0),
+         ],
+      q(twi) => [
+         q(0447),
+         q(0),
+         ],
+      q(twl) => [
+         q(6800),
+         q(0),
+         ],
+      q(twm) => [
+         q(6801),
+         q(0),
+         ],
+      q(twn) => [
+         q(6802),
+         q(0),
+         ],
+      q(two) => [
+         q(6803),
+         q(0),
+         ],
+      q(twp) => [
+         q(6804),
+         q(0),
+         ],
+      q(twq) => [
+         q(6805),
+         q(0),
+         ],
+      q(twr) => [
+         q(6806),
+         q(0),
+         ],
+      q(twt) => [
+         q(6807),
+         q(0),
+         ],
+      q(twu) => [
+         q(6808),
+         q(0),
+         ],
+      q(tww) => [
+         q(6809),
+         q(0),
+         ],
+      q(twx) => [
+         q(6810),
+         q(0),
+         ],
+      q(twy) => [
+         q(6811),
+         q(0),
+         ],
+      q(txa) => [
+         q(6812),
+         q(0),
+         ],
+      q(txb) => [
+         q(6813),
+         q(0),
+         ],
+      q(txc) => [
+         q(6814),
+         q(0),
+         ],
+      q(txe) => [
+         q(6815),
+         q(0),
+         ],
+      q(txg) => [
+         q(6816),
+         q(0),
+         ],
+      q(txh) => [
+         q(6817),
+         q(0),
+         ],
+      q(txi) => [
+         q(6818),
+         q(0),
+         ],
+      q(txj) => [
+         q(6819),
+         q(0),
+         ],
+      q(txm) => [
+         q(6820),
+         q(0),
+         ],
+      q(txn) => [
+         q(6821),
+         q(0),
+         ],
+      q(txo) => [
+         q(6822),
+         q(0),
+         ],
+      q(txq) => [
+         q(6823),
+         q(0),
+         ],
+      q(txr) => [
+         q(6824),
+         q(0),
+         ],
+      q(txs) => [
+         q(6825),
+         q(0),
+         ],
+      q(txt) => [
+         q(6826),
+         q(0),
+         ],
+      q(txu) => [
+         q(6827),
+         q(0),
+         ],
+      q(txx) => [
+         q(6828),
+         q(0),
+         ],
+      q(txy) => [
+         q(6829),
+         q(0),
+         ],
+      q(tya) => [
+         q(6830),
+         q(0),
+         ],
+      q(tye) => [
+         q(6831),
+         q(0),
+         ],
+      q(tyh) => [
+         q(6832),
+         q(0),
+         ],
+      q(tyi) => [
+         q(6833),
+         q(0),
+         ],
+      q(tyj) => [
+         q(6834),
+         q(0),
+         ],
+      q(tyl) => [
+         q(6835),
+         q(0),
+         ],
+      q(tyn) => [
+         q(6836),
+         q(0),
+         ],
+      q(typ) => [
+         q(6837),
+         q(0),
+         ],
+      q(tyr) => [
+         q(6838),
+         q(0),
+         ],
+      q(tys) => [
+         q(6839),
+         q(0),
+         ],
+      q(tyt) => [
+         q(6840),
+         q(0),
+         ],
+      q(tyu) => [
+         q(6841),
+         q(0),
+         ],
+      q(tyv) => [
+         q(0448),
+         q(0),
+         ],
+      q(tyx) => [
+         q(6842),
+         q(0),
+         ],
+      q(tyz) => [
+         q(6843),
+         q(0),
+         ],
+      q(tza) => [
+         q(6844),
+         q(0),
+         ],
+      q(tzh) => [
+         q(6845),
+         q(0),
+         ],
+      q(tzj) => [
+         q(6846),
+         q(0),
+         ],
+      q(tzl) => [
+         q(6847),
+         q(0),
+         ],
+      q(tzm) => [
+         q(6848),
+         q(0),
+         ],
+      q(tzn) => [
+         q(6849),
+         q(0),
+         ],
+      q(tzo) => [
+         q(6850),
+         q(0),
+         ],
+      q(tzx) => [
+         q(6851),
+         q(0),
+         ],
+      q(uam) => [
+         q(6852),
+         q(0),
+         ],
+      q(uan) => [
+         q(6853),
+         q(0),
+         ],
+      q(uar) => [
+         q(6854),
+         q(0),
+         ],
+      q(uba) => [
+         q(6855),
+         q(0),
+         ],
+      q(ubi) => [
+         q(6856),
+         q(0),
+         ],
+      q(ubl) => [
+         q(6857),
+         q(0),
+         ],
+      q(ubr) => [
+         q(6858),
+         q(0),
+         ],
+      q(ubu) => [
+         q(6859),
+         q(0),
+         ],
+      q(uby) => [
+         q(6860),
+         q(0),
+         ],
+      q(uda) => [
+         q(6861),
+         q(0),
+         ],
+      q(ude) => [
+         q(6862),
+         q(0),
+         ],
+      q(udg) => [
+         q(6863),
+         q(0),
+         ],
+      q(udi) => [
+         q(6864),
+         q(0),
+         ],
+      q(udj) => [
+         q(6865),
+         q(0),
+         ],
+      q(udl) => [
+         q(6866),
+         q(0),
+         ],
+      q(udm) => [
+         q(0449),
+         q(0),
+         ],
+      q(udu) => [
+         q(6867),
+         q(0),
+         ],
+      q(ues) => [
+         q(6868),
+         q(0),
+         ],
+      q(ufi) => [
+         q(6869),
+         q(0),
+         ],
+      q(uga) => [
+         q(0450),
+         q(0),
+         ],
+      q(ugb) => [
+         q(6870),
+         q(0),
+         ],
+      q(uge) => [
+         q(6871),
+         q(0),
+         ],
+      q(ugn) => [
+         q(6872),
+         q(0),
+         ],
+      q(ugo) => [
+         q(6873),
+         q(0),
+         ],
+      q(ugy) => [
+         q(6874),
+         q(0),
+         ],
+      q(uha) => [
+         q(6875),
+         q(0),
+         ],
+      q(uhn) => [
+         q(6876),
+         q(0),
+         ],
+      q(uig) => [
+         q(0451),
+         q(0),
+         ],
+      q(uis) => [
+         q(6877),
+         q(0),
+         ],
+      q(uiv) => [
+         q(6878),
+         q(0),
+         ],
+      q(uji) => [
+         q(6879),
+         q(0),
+         ],
+      q(uka) => [
+         q(6880),
+         q(0),
+         ],
+      q(ukg) => [
+         q(6881),
+         q(0),
+         ],
+      q(ukh) => [
+         q(6882),
+         q(0),
+         ],
+      q(ukl) => [
+         q(6883),
+         q(0),
+         ],
+      q(ukp) => [
+         q(6884),
+         q(0),
+         ],
+      q(ukq) => [
+         q(6885),
+         q(0),
+         ],
+      q(ukr) => [
+         q(0452),
+         q(0),
+         ],
+      q(uks) => [
+         q(6886),
+         q(0),
+         ],
+      q(uku) => [
+         q(6887),
+         q(0),
+         ],
+      q(ukw) => [
+         q(6888),
+         q(0),
+         ],
+      q(uky) => [
+         q(6889),
+         q(0),
+         ],
+      q(ula) => [
+         q(6890),
+         q(0),
+         ],
+      q(ulb) => [
+         q(6891),
+         q(0),
+         ],
+      q(ulc) => [
+         q(6892),
+         q(0),
+         ],
+      q(ule) => [
+         q(6893),
+         q(0),
+         ],
+      q(ulf) => [
+         q(6894),
+         q(0),
+         ],
+      q(uli) => [
+         q(6895),
+         q(0),
+         ],
+      q(ulk) => [
+         q(6896),
+         q(0),
+         ],
+      q(ull) => [
+         q(6897),
+         q(0),
+         ],
+      q(ulm) => [
+         q(6898),
+         q(0),
+         ],
+      q(uln) => [
+         q(6899),
+         q(0),
+         ],
+      q(ulu) => [
+         q(6900),
+         q(0),
+         ],
+      q(ulw) => [
+         q(6901),
+         q(0),
+         ],
+      q(uma) => [
+         q(6902),
+         q(0),
+         ],
+      q(umb) => [
+         q(0453),
+         q(0),
+         ],
+      q(umc) => [
+         q(6903),
+         q(0),
+         ],
+      q(umd) => [
+         q(6904),
+         q(0),
+         ],
+      q(umg) => [
+         q(6905),
+         q(0),
+         ],
+      q(umi) => [
+         q(6906),
+         q(0),
+         ],
+      q(umm) => [
+         q(6907),
+         q(0),
+         ],
+      q(umn) => [
+         q(6908),
+         q(0),
+         ],
+      q(umo) => [
+         q(6909),
+         q(0),
+         ],
+      q(ump) => [
+         q(6910),
+         q(0),
+         ],
+      q(umr) => [
+         q(6911),
+         q(0),
+         ],
+      q(ums) => [
+         q(6912),
+         q(0),
+         ],
+      q(umu) => [
+         q(6913),
+         q(0),
+         ],
+      q(una) => [
+         q(6914),
+         q(0),
+         ],
+      q(und) => [
+         q(0454),
+         q(0),
+         ],
+      q(une) => [
+         q(6915),
+         q(0),
+         ],
+      q(ung) => [
+         q(6916),
+         q(0),
+         ],
+      q(unk) => [
+         q(6917),
+         q(0),
+         ],
+      q(unm) => [
+         q(6918),
+         q(0),
+         ],
+      q(unn) => [
+         q(6919),
+         q(0),
+         ],
+      q(unr) => [
+         q(6920),
+         q(0),
+         ],
+      q(unu) => [
+         q(6921),
+         q(0),
+         ],
+      q(unx) => [
+         q(6922),
+         q(0),
+         ],
+      q(unz) => [
+         q(6923),
+         q(0),
+         ],
+      q(upi) => [
+         q(6924),
+         q(0),
+         ],
+      q(upv) => [
+         q(6925),
+         q(0),
+         ],
+      q(ura) => [
+         q(6926),
+         q(0),
+         ],
+      q(urb) => [
+         q(6927),
+         q(0),
+         ],
+      q(urc) => [
+         q(6928),
+         q(0),
+         ],
+      q(urd) => [
+         q(0455),
+         q(0),
+         ],
+      q(ure) => [
+         q(6929),
+         q(0),
+         ],
+      q(urf) => [
+         q(6930),
+         q(0),
+         ],
+      q(urg) => [
+         q(6931),
+         q(0),
+         ],
+      q(urh) => [
+         q(6932),
+         q(0),
+         ],
+      q(uri) => [
+         q(6933),
+         q(0),
+         ],
+      q(urj) => [
+         q(0530),
+         q(0),
+         ],
+      q(urk) => [
+         q(6934),
+         q(0),
+         ],
+      q(url) => [
+         q(6935),
+         q(0),
+         ],
+      q(urm) => [
+         q(6936),
+         q(0),
+         ],
+      q(urn) => [
+         q(6937),
+         q(0),
+         ],
+      q(uro) => [
+         q(6938),
+         q(0),
+         ],
+      q(urp) => [
+         q(6939),
+         q(0),
+         ],
+      q(urr) => [
+         q(6940),
+         q(0),
+         ],
+      q(urt) => [
+         q(6941),
+         q(0),
+         ],
+      q(uru) => [
+         q(6942),
+         q(0),
+         ],
+      q(urv) => [
+         q(6943),
+         q(0),
+         ],
+      q(urw) => [
+         q(6944),
+         q(0),
+         ],
+      q(urx) => [
+         q(6945),
+         q(0),
+         ],
+      q(ury) => [
+         q(6946),
+         q(0),
+         ],
+      q(urz) => [
+         q(6947),
+         q(0),
+         ],
+      q(usa) => [
+         q(6948),
+         q(0),
+         ],
+      q(ush) => [
+         q(6949),
+         q(0),
+         ],
+      q(usi) => [
+         q(6950),
+         q(0),
+         ],
+      q(usk) => [
+         q(6951),
+         q(0),
+         ],
+      q(usp) => [
+         q(6952),
+         q(0),
+         ],
+      q(usu) => [
+         q(6953),
+         q(0),
+         ],
+      q(uta) => [
+         q(6954),
+         q(0),
+         ],
+      q(ute) => [
+         q(6955),
+         q(0),
+         ],
+      q(utp) => [
+         q(6956),
+         q(0),
+         ],
+      q(utr) => [
+         q(6957),
+         q(0),
+         ],
+      q(utu) => [
+         q(6958),
+         q(0),
+         ],
+      q(uum) => [
+         q(6959),
+         q(0),
+         ],
+      q(uun) => [
+         q(6960),
+         q(0),
+         ],
+      q(uur) => [
+         q(6961),
+         q(0),
+         ],
+      q(uuu) => [
+         q(6962),
+         q(0),
+         ],
+      q(uve) => [
+         q(6963),
+         q(0),
+         ],
+      q(uvh) => [
+         q(6964),
+         q(0),
+         ],
+      q(uvl) => [
+         q(6965),
+         q(0),
+         ],
+      q(uwa) => [
+         q(6966),
+         q(0),
+         ],
+      q(uya) => [
+         q(6967),
+         q(0),
+         ],
+      q(uzb) => [
+         q(0456),
+         q(0),
+         ],
+      q(uzn) => [
+         q(6968),
+         q(0),
+         ],
+      q(uzs) => [
+         q(6969),
+         q(0),
+         ],
+      q(vaa) => [
+         q(6970),
+         q(0),
+         ],
+      q(vae) => [
+         q(6971),
+         q(0),
+         ],
+      q(vaf) => [
+         q(6972),
+         q(0),
+         ],
+      q(vag) => [
+         q(6973),
+         q(0),
+         ],
+      q(vah) => [
+         q(6974),
+         q(0),
+         ],
+      q(vai) => [
+         q(0457),
+         q(0),
+         ],
+      q(vaj) => [
+         q(6975),
+         q(0),
+         ],
+      q(val) => [
+         q(6976),
+         q(0),
+         ],
+      q(vam) => [
+         q(6977),
+         q(0),
+         ],
+      q(van) => [
+         q(6978),
+         q(0),
+         ],
+      q(vao) => [
+         q(6979),
+         q(0),
+         ],
+      q(vap) => [
+         q(6980),
+         q(0),
+         ],
+      q(var) => [
+         q(6981),
+         q(0),
+         ],
+      q(vas) => [
+         q(6982),
+         q(0),
+         ],
+      q(vau) => [
+         q(6983),
+         q(0),
+         ],
+      q(vav) => [
+         q(6984),
+         q(0),
+         ],
+      q(vay) => [
+         q(6985),
+         q(0),
+         ],
+      q(vbb) => [
+         q(6986),
+         q(0),
+         ],
+      q(vbk) => [
+         q(6987),
+         q(0),
+         ],
+      q(vec) => [
+         q(6988),
+         q(0),
+         ],
+      q(ved) => [
+         q(6989),
+         q(0),
+         ],
+      q(vel) => [
+         q(6990),
+         q(0),
+         ],
+      q(vem) => [
+         q(6991),
+         q(0),
+         ],
+      q(ven) => [
+         q(0458),
+         q(0),
+         ],
+      q(veo) => [
+         q(6992),
+         q(0),
+         ],
+      q(vep) => [
+         q(6993),
+         q(0),
+         ],
+      q(ver) => [
+         q(6994),
+         q(0),
+         ],
+      q(vgr) => [
+         q(6995),
+         q(0),
+         ],
+      q(vgt) => [
+         q(6996),
+         q(0),
+         ],
+      q(vic) => [
+         q(6997),
+         q(0),
+         ],
+      q(vid) => [
+         q(6998),
+         q(0),
+         ],
+      q(vie) => [
+         q(0459),
+         q(0),
+         ],
+      q(vif) => [
+         q(6999),
+         q(0),
+         ],
+      q(vig) => [
+         q(7000),
+         q(0),
+         ],
+      q(vil) => [
+         q(7001),
+         q(0),
+         ],
+      q(vin) => [
+         q(7002),
+         q(0),
+         ],
+      q(vis) => [
+         q(7003),
+         q(0),
+         ],
+      q(vit) => [
+         q(7004),
+         q(0),
+         ],
+      q(viv) => [
+         q(7005),
+         q(0),
+         ],
+      q(vka) => [
+         q(7006),
+         q(0),
+         ],
+      q(vki) => [
+         q(7007),
+         q(0),
+         ],
+      q(vkj) => [
+         q(7008),
+         q(0),
+         ],
+      q(vkk) => [
+         q(7009),
+         q(0),
+         ],
+      q(vkl) => [
+         q(7010),
+         q(0),
+         ],
+      q(vkm) => [
+         q(7011),
+         q(0),
+         ],
+      q(vko) => [
+         q(7012),
+         q(0),
+         ],
+      q(vkp) => [
+         q(7013),
+         q(0),
+         ],
+      q(vkt) => [
+         q(7014),
+         q(0),
+         ],
+      q(vku) => [
+         q(7015),
+         q(0),
+         ],
+      q(vlp) => [
+         q(7016),
+         q(0),
+         ],
+      q(vls) => [
+         q(7017),
+         q(0),
+         ],
+      q(vma) => [
+         q(7018),
+         q(0),
+         ],
+      q(vmb) => [
+         q(7019),
+         q(0),
+         ],
+      q(vmc) => [
+         q(7020),
+         q(0),
+         ],
+      q(vmd) => [
+         q(7021),
+         q(0),
+         ],
+      q(vme) => [
+         q(7022),
+         q(0),
+         ],
+      q(vmf) => [
+         q(7023),
+         q(0),
+         ],
+      q(vmg) => [
+         q(7024),
+         q(0),
+         ],
+      q(vmh) => [
+         q(7025),
+         q(0),
+         ],
+      q(vmi) => [
+         q(7026),
+         q(0),
+         ],
+      q(vmj) => [
+         q(7027),
+         q(0),
+         ],
+      q(vmk) => [
+         q(7028),
+         q(0),
+         ],
+      q(vml) => [
+         q(7029),
+         q(0),
+         ],
+      q(vmm) => [
+         q(7030),
+         q(0),
+         ],
+      q(vmp) => [
+         q(7031),
+         q(0),
+         ],
+      q(vmq) => [
+         q(7032),
+         q(0),
+         ],
+      q(vmr) => [
+         q(7033),
+         q(0),
+         ],
+      q(vms) => [
+         q(7034),
+         q(0),
+         ],
+      q(vmu) => [
+         q(7035),
+         q(0),
+         ],
+      q(vmv) => [
+         q(7036),
+         q(0),
+         ],
+      q(vmw) => [
+         q(7037),
+         q(0),
+         ],
+      q(vmx) => [
+         q(7038),
+         q(0),
+         ],
+      q(vmy) => [
+         q(7039),
+         q(0),
+         ],
+      q(vmz) => [
+         q(7040),
+         q(0),
+         ],
+      q(vnk) => [
+         q(7041),
+         q(0),
+         ],
+      q(vnm) => [
+         q(7042),
+         q(0),
+         ],
+      q(vnp) => [
+         q(7043),
+         q(0),
+         ],
+      q(vol) => [
+         q(0460),
+         q(0),
+         ],
+      q(vor) => [
+         q(7044),
+         q(0),
+         ],
+      q(vot) => [
+         q(0461),
+         q(0),
+         ],
+      q(vra) => [
+         q(7045),
+         q(0),
+         ],
+      q(vro) => [
+         q(7044),
+         q(0),
+         ],
+      q(vrs) => [
+         q(7046),
+         q(0),
+         ],
+      q(vrt) => [
+         q(7047),
+         q(0),
+         ],
+      q(vsi) => [
+         q(7048),
+         q(0),
+         ],
+      q(vsl) => [
+         q(7049),
+         q(0),
+         ],
+      q(vsv) => [
+         q(7050),
+         q(0),
+         ],
+      q(vto) => [
+         q(7051),
+         q(0),
+         ],
+      q(vum) => [
+         q(7052),
+         q(0),
+         ],
+      q(vun) => [
+         q(7053),
+         q(0),
+         ],
+      q(vut) => [
+         q(7054),
+         q(0),
+         ],
+      q(vwa) => [
+         q(7055),
+         q(0),
+         ],
+      q(waa) => [
+         q(7056),
+         q(0),
+         ],
+      q(wab) => [
+         q(7057),
+         q(0),
+         ],
+      q(wac) => [
+         q(7058),
+         q(0),
+         ],
+      q(wad) => [
+         q(7059),
+         q(0),
+         ],
+      q(wae) => [
+         q(7060),
+         q(0),
+         ],
+      q(waf) => [
+         q(7061),
+         q(0),
+         ],
+      q(wag) => [
+         q(7062),
+         q(0),
+         ],
+      q(wah) => [
+         q(7063),
+         q(0),
+         ],
+      q(wai) => [
+         q(7064),
+         q(0),
+         ],
+      q(waj) => [
+         q(7065),
+         q(0),
+         ],
+      q(wak) => [
+         q(0462),
+         q(0),
+         ],
+      q(wal) => [
+         q(0463),
+         q(1),
+         ],
+      q(wam) => [
+         q(7066),
+         q(0),
+         ],
+      q(wan) => [
+         q(7067),
+         q(0),
+         ],
+      q(wao) => [
+         q(7068),
+         q(0),
+         ],
+      q(wap) => [
+         q(7069),
+         q(0),
+         ],
+      q(waq) => [
+         q(7070),
+         q(0),
+         ],
+      q(war) => [
+         q(0464),
+         q(1),
+         ],
+      q(was) => [
+         q(0465),
+         q(0),
+         ],
+      q(wat) => [
+         q(7071),
+         q(0),
+         ],
+      q(wau) => [
+         q(7072),
+         q(0),
+         ],
+      q(wav) => [
+         q(7073),
+         q(0),
+         ],
+      q(waw) => [
+         q(7074),
+         q(0),
+         ],
+      q(wax) => [
+         q(7075),
+         q(0),
+         ],
+      q(way) => [
+         q(7076),
+         q(0),
+         ],
+      q(waz) => [
+         q(7077),
+         q(0),
+         ],
+      q(wba) => [
+         q(7078),
+         q(0),
+         ],
+      q(wbb) => [
+         q(7079),
+         q(0),
+         ],
+      q(wbe) => [
+         q(7080),
+         q(0),
+         ],
+      q(wbf) => [
+         q(6413),
+         q(0),
+         ],
+      q(wbh) => [
+         q(7081),
+         q(0),
+         ],
+      q(wbi) => [
+         q(7082),
+         q(0),
+         ],
+      q(wbj) => [
+         q(7083),
+         q(0),
+         ],
+      q(wbk) => [
+         q(7084),
+         q(0),
+         ],
+      q(wbl) => [
+         q(7085),
+         q(0),
+         ],
+      q(wbm) => [
+         q(7086),
+         q(0),
+         ],
+      q(wbp) => [
+         q(7087),
+         q(0),
+         ],
+      q(wbq) => [
+         q(7088),
+         q(0),
+         ],
+      q(wbr) => [
+         q(7089),
+         q(0),
+         ],
+      q(wbt) => [
+         q(7090),
+         q(0),
+         ],
+      q(wbv) => [
+         q(7091),
+         q(0),
+         ],
+      q(wbw) => [
+         q(7092),
+         q(0),
+         ],
+      q(wca) => [
+         q(7093),
+         q(0),
+         ],
+      q(wci) => [
+         q(7094),
+         q(0),
+         ],
+      q(wdd) => [
+         q(7095),
+         q(0),
+         ],
+      q(wdg) => [
+         q(7096),
+         q(0),
+         ],
+      q(wdj) => [
+         q(7097),
+         q(0),
+         ],
+      q(wdk) => [
+         q(7098),
+         q(0),
+         ],
+      q(wdu) => [
+         q(7099),
+         q(0),
+         ],
+      q(wdy) => [
+         q(7100),
+         q(0),
+         ],
+      q(wea) => [
+         q(7101),
+         q(0),
+         ],
+      q(wec) => [
+         q(7102),
+         q(0),
+         ],
+      q(wed) => [
+         q(7103),
+         q(0),
+         ],
+      q(weg) => [
+         q(7104),
+         q(0),
+         ],
+      q(weh) => [
+         q(7105),
+         q(0),
+         ],
+      q(wei) => [
+         q(7106),
+         q(0),
+         ],
+      q(wel) => [
+         q(0466),
+         q(0),
+         ],
+      q(wem) => [
+         q(7107),
+         q(0),
+         ],
+      q(wen) => [
+         q(0467),
+         q(0),
+         ],
+      q(weo) => [
+         q(7108),
+         q(0),
+         ],
+      q(wep) => [
+         q(7109),
+         q(0),
+         ],
+      q(wer) => [
+         q(7110),
+         q(0),
+         ],
+      q(wes) => [
+         q(7111),
+         q(0),
+         ],
+      q(wet) => [
+         q(7112),
+         q(0),
+         ],
+      q(weu) => [
+         q(7113),
+         q(0),
+         ],
+      q(wew) => [
+         q(7114),
+         q(0),
+         ],
+      q(wfg) => [
+         q(7115),
+         q(0),
+         ],
+      q(wga) => [
+         q(7116),
+         q(0),
+         ],
+      q(wgb) => [
+         q(7117),
+         q(0),
+         ],
+      q(wgg) => [
+         q(7118),
+         q(0),
+         ],
+      q(wgi) => [
+         q(7119),
+         q(0),
+         ],
+      q(wgo) => [
+         q(7120),
+         q(0),
+         ],
+      q(wgu) => [
+         q(7121),
+         q(0),
+         ],
+      q(wgy) => [
+         q(7122),
+         q(0),
+         ],
+      q(wha) => [
+         q(7123),
+         q(0),
+         ],
+      q(whg) => [
+         q(7124),
+         q(0),
+         ],
+      q(whk) => [
+         q(7125),
+         q(0),
+         ],
+      q(whu) => [
+         q(7126),
+         q(0),
+         ],
+      q(wib) => [
+         q(7127),
+         q(0),
+         ],
+      q(wic) => [
+         q(7128),
+         q(0),
+         ],
+      q(wie) => [
+         q(7129),
+         q(0),
+         ],
+      q(wif) => [
+         q(7130),
+         q(0),
+         ],
+      q(wig) => [
+         q(7131),
+         q(0),
+         ],
+      q(wih) => [
+         q(7132),
+         q(0),
+         ],
+      q(wii) => [
+         q(7133),
+         q(0),
+         ],
+      q(wij) => [
+         q(7134),
+         q(0),
+         ],
+      q(wik) => [
+         q(7135),
+         q(0),
+         ],
+      q(wil) => [
+         q(7136),
+         q(0),
+         ],
+      q(wim) => [
+         q(7137),
+         q(0),
+         ],
+      q(win) => [
+         q(7138),
+         q(0),
+         ],
+      q(wir) => [
+         q(7139),
+         q(0),
+         ],
+      q(wiu) => [
+         q(7140),
+         q(0),
+         ],
+      q(wiv) => [
+         q(7141),
+         q(0),
+         ],
+      q(wiy) => [
+         q(7142),
+         q(0),
+         ],
+      q(wja) => [
+         q(7143),
+         q(0),
+         ],
+      q(wji) => [
+         q(7144),
+         q(0),
+         ],
+      q(wka) => [
+         q(7145),
+         q(0),
+         ],
+      q(wkb) => [
+         q(7146),
+         q(0),
+         ],
+      q(wkd) => [
+         q(7147),
+         q(0),
+         ],
+      q(wkl) => [
+         q(7148),
+         q(0),
+         ],
+      q(wku) => [
+         q(7149),
+         q(0),
+         ],
+      q(wkw) => [
+         q(7150),
+         q(0),
+         ],
+      q(wky) => [
+         q(7151),
+         q(0),
+         ],
+      q(wla) => [
+         q(7152),
+         q(0),
+         ],
+      q(wlc) => [
+         q(7153),
+         q(0),
+         ],
+      q(wle) => [
+         q(7154),
+         q(0),
+         ],
+      q(wlg) => [
+         q(7155),
+         q(0),
+         ],
+      q(wli) => [
+         q(7156),
+         q(0),
+         ],
+      q(wlk) => [
+         q(7157),
+         q(0),
+         ],
+      q(wll) => [
+         q(7158),
+         q(0),
+         ],
+      q(wlm) => [
+         q(7159),
+         q(0),
+         ],
+      q(wln) => [
+         q(0468),
+         q(0),
+         ],
+      q(wlo) => [
+         q(7160),
+         q(0),
+         ],
+      q(wlr) => [
+         q(7161),
+         q(0),
+         ],
+      q(wls) => [
+         q(7162),
+         q(0),
+         ],
+      q(wlu) => [
+         q(7163),
+         q(0),
+         ],
+      q(wlv) => [
+         q(7164),
+         q(0),
+         ],
+      q(wlw) => [
+         q(7165),
+         q(0),
+         ],
+      q(wlx) => [
+         q(7166),
+         q(0),
+         ],
+      q(wly) => [
+         q(7167),
+         q(0),
+         ],
+      q(wma) => [
+         q(7168),
+         q(0),
+         ],
+      q(wmb) => [
+         q(7169),
+         q(0),
+         ],
+      q(wmc) => [
+         q(7170),
+         q(0),
+         ],
+      q(wmd) => [
+         q(7171),
+         q(0),
+         ],
+      q(wme) => [
+         q(7172),
+         q(0),
+         ],
+      q(wmh) => [
+         q(7173),
+         q(0),
+         ],
+      q(wmi) => [
+         q(7174),
+         q(0),
+         ],
+      q(wmm) => [
+         q(7175),
+         q(0),
+         ],
+      q(wmn) => [
+         q(7176),
+         q(0),
+         ],
+      q(wmo) => [
+         q(7177),
+         q(0),
+         ],
+      q(wms) => [
+         q(7178),
+         q(0),
+         ],
+      q(wmt) => [
+         q(7179),
+         q(0),
+         ],
+      q(wmw) => [
+         q(7180),
+         q(0),
+         ],
+      q(wmx) => [
+         q(7181),
+         q(0),
+         ],
+      q(wnb) => [
+         q(7182),
+         q(0),
+         ],
+      q(wnc) => [
+         q(7183),
+         q(0),
+         ],
+      q(wnd) => [
+         q(7184),
+         q(0),
+         ],
+      q(wne) => [
+         q(7185),
+         q(0),
+         ],
+      q(wng) => [
+         q(7186),
+         q(0),
+         ],
+      q(wni) => [
+         q(7187),
+         q(0),
+         ],
+      q(wnk) => [
+         q(7188),
+         q(0),
+         ],
+      q(wnm) => [
+         q(7189),
+         q(0),
+         ],
+      q(wnn) => [
+         q(7190),
+         q(0),
+         ],
+      q(wno) => [
+         q(7191),
+         q(0),
+         ],
+      q(wnp) => [
+         q(7192),
+         q(0),
+         ],
+      q(wnu) => [
+         q(7193),
+         q(0),
+         ],
+      q(wnw) => [
+         q(7194),
+         q(0),
+         ],
+      q(wny) => [
+         q(7195),
+         q(0),
+         ],
+      q(woa) => [
+         q(7196),
+         q(0),
+         ],
+      q(wob) => [
+         q(7197),
+         q(0),
+         ],
+      q(woc) => [
+         q(7198),
+         q(0),
+         ],
+      q(wod) => [
+         q(7199),
+         q(0),
+         ],
+      q(woe) => [
+         q(7200),
+         q(0),
+         ],
+      q(wof) => [
+         q(7201),
+         q(0),
+         ],
+      q(wog) => [
+         q(7202),
+         q(0),
+         ],
+      q(woi) => [
+         q(7203),
+         q(0),
+         ],
+      q(wok) => [
+         q(7204),
+         q(0),
+         ],
+      q(wol) => [
+         q(0469),
+         q(0),
+         ],
+      q(wom) => [
+         q(7205),
+         q(0),
+         ],
+      q(won) => [
+         q(7206),
+         q(0),
+         ],
+      q(woo) => [
+         q(7207),
+         q(0),
+         ],
+      q(wor) => [
+         q(7208),
+         q(0),
+         ],
+      q(wos) => [
+         q(7209),
+         q(0),
+         ],
+      q(wow) => [
+         q(7210),
+         q(0),
+         ],
+      q(woy) => [
+         q(7211),
+         q(0),
+         ],
+      q(wpc) => [
+         q(7212),
+         q(0),
+         ],
+      q(wra) => [
+         q(7213),
+         q(0),
+         ],
+      q(wrb) => [
+         q(7214),
+         q(0),
+         ],
+      q(wrd) => [
+         q(7215),
+         q(0),
+         ],
+      q(wrg) => [
+         q(7216),
+         q(0),
+         ],
+      q(wrh) => [
+         q(7217),
+         q(0),
+         ],
+      q(wri) => [
+         q(7218),
+         q(0),
+         ],
+      q(wrk) => [
+         q(7219),
+         q(0),
+         ],
+      q(wrl) => [
+         q(7220),
+         q(0),
+         ],
+      q(wrm) => [
+         q(7221),
+         q(0),
+         ],
+      q(wrn) => [
+         q(7222),
+         q(0),
+         ],
+      q(wro) => [
+         q(7223),
+         q(0),
+         ],
+      q(wrp) => [
+         q(7224),
+         q(0),
+         ],
+      q(wrr) => [
+         q(7225),
+         q(0),
+         ],
+      q(wrs) => [
+         q(7226),
+         q(0),
+         ],
+      q(wru) => [
+         q(7227),
+         q(0),
+         ],
+      q(wrv) => [
+         q(7228),
+         q(0),
+         ],
+      q(wrw) => [
+         q(7229),
+         q(0),
+         ],
+      q(wrx) => [
+         q(7230),
+         q(0),
+         ],
+      q(wry) => [
+         q(7231),
+         q(0),
+         ],
+      q(wrz) => [
+         q(7232),
+         q(0),
+         ],
+      q(wsa) => [
+         q(7233),
+         q(0),
+         ],
+      q(wsi) => [
+         q(7234),
+         q(0),
+         ],
+      q(wsk) => [
+         q(7235),
+         q(0),
+         ],
+      q(wsr) => [
+         q(7236),
+         q(0),
+         ],
+      q(wss) => [
+         q(7237),
+         q(0),
+         ],
+      q(wsu) => [
+         q(7238),
+         q(0),
+         ],
+      q(wsv) => [
+         q(7239),
+         q(0),
+         ],
+      q(wtf) => [
+         q(7240),
+         q(0),
+         ],
+      q(wth) => [
+         q(7241),
+         q(0),
+         ],
+      q(wti) => [
+         q(7242),
+         q(0),
+         ],
+      q(wtk) => [
+         q(7243),
+         q(0),
+         ],
+      q(wtm) => [
+         q(7244),
+         q(0),
+         ],
+      q(wtw) => [
+         q(7245),
+         q(0),
+         ],
+      q(wua) => [
+         q(7246),
+         q(0),
+         ],
+      q(wub) => [
+         q(7247),
+         q(0),
+         ],
+      q(wud) => [
+         q(7248),
+         q(0),
+         ],
+      q(wuh) => [
+         q(7249),
+         q(0),
+         ],
+      q(wul) => [
+         q(7250),
+         q(0),
+         ],
+      q(wum) => [
+         q(7251),
+         q(0),
+         ],
+      q(wun) => [
+         q(7252),
+         q(0),
+         ],
+      q(wur) => [
+         q(7253),
+         q(0),
+         ],
+      q(wut) => [
+         q(7254),
+         q(0),
+         ],
+      q(wuu) => [
+         q(7255),
+         q(0),
+         ],
+      q(wuv) => [
+         q(7256),
+         q(0),
+         ],
+      q(wux) => [
+         q(7257),
+         q(0),
+         ],
+      q(wuy) => [
+         q(7258),
+         q(0),
+         ],
+      q(wwa) => [
+         q(7259),
+         q(0),
+         ],
+      q(wwb) => [
+         q(7260),
+         q(0),
+         ],
+      q(wwo) => [
+         q(7261),
+         q(0),
+         ],
+      q(wwr) => [
+         q(7262),
+         q(0),
+         ],
+      q(www) => [
+         q(7263),
+         q(0),
+         ],
+      q(wxa) => [
+         q(7264),
+         q(0),
+         ],
+      q(wxw) => [
+         q(7265),
+         q(0),
+         ],
+      q(wya) => [
+         q(7266),
+         q(0),
+         ],
+      q(wyb) => [
+         q(7267),
+         q(0),
+         ],
+      q(wyi) => [
+         q(7268),
+         q(0),
+         ],
+      q(wym) => [
+         q(7269),
+         q(0),
+         ],
+      q(wyr) => [
+         q(7270),
+         q(0),
+         ],
+      q(wyy) => [
+         q(7271),
+         q(0),
+         ],
+      q(xaa) => [
+         q(7272),
+         q(0),
+         ],
+      q(xab) => [
+         q(7273),
+         q(0),
+         ],
+      q(xac) => [
+         q(7274),
+         q(0),
+         ],
+      q(xad) => [
+         q(7275),
+         q(0),
+         ],
+      q(xae) => [
+         q(7276),
+         q(0),
+         ],
+      q(xag) => [
+         q(7277),
+         q(0),
+         ],
+      q(xai) => [
+         q(7278),
+         q(0),
+         ],
+      q(xaj) => [
+         q(7279),
+         q(0),
+         ],
+      q(xal) => [
+         q(0470),
+         q(0),
+         ],
+      q(xam) => [
+         q(7280),
+         q(0),
+         ],
+      q(xan) => [
+         q(7281),
+         q(0),
+         ],
+      q(xao) => [
+         q(7282),
+         q(0),
+         ],
+      q(xap) => [
+         q(7283),
+         q(0),
+         ],
+      q(xaq) => [
+         q(7284),
+         q(0),
+         ],
+      q(xar) => [
+         q(7285),
+         q(0),
+         ],
+      q(xas) => [
+         q(7286),
+         q(0),
+         ],
+      q(xat) => [
+         q(7287),
+         q(0),
+         ],
+      q(xau) => [
+         q(7288),
+         q(0),
+         ],
+      q(xav) => [
+         q(7289),
+         q(0),
+         ],
+      q(xaw) => [
+         q(7290),
+         q(0),
+         ],
+      q(xay) => [
+         q(7291),
+         q(0),
+         ],
+      q(xba) => [
+         q(7292),
+         q(0),
+         ],
+      q(xbb) => [
+         q(7293),
+         q(0),
+         ],
+      q(xbc) => [
+         q(7294),
+         q(0),
+         ],
+      q(xbd) => [
+         q(7295),
+         q(0),
+         ],
+      q(xbe) => [
+         q(7296),
+         q(0),
+         ],
+      q(xbg) => [
+         q(7297),
+         q(0),
+         ],
+      q(xbi) => [
+         q(7298),
+         q(0),
+         ],
+      q(xbj) => [
+         q(7299),
+         q(0),
+         ],
+      q(xbm) => [
+         q(7300),
+         q(0),
+         ],
+      q(xbn) => [
+         q(7301),
+         q(0),
+         ],
+      q(xbo) => [
+         q(7302),
+         q(0),
+         ],
+      q(xbp) => [
+         q(7303),
+         q(0),
+         ],
+      q(xbr) => [
+         q(7304),
+         q(0),
+         ],
+      q(xbw) => [
+         q(7305),
+         q(0),
+         ],
+      q(xbx) => [
+         q(7306),
+         q(0),
+         ],
+      q(xby) => [
+         q(7307),
+         q(0),
+         ],
+      q(xcb) => [
+         q(7308),
+         q(0),
+         ],
+      q(xcc) => [
+         q(7309),
+         q(0),
+         ],
+      q(xce) => [
+         q(7310),
+         q(0),
+         ],
+      q(xcg) => [
+         q(7311),
+         q(0),
+         ],
+      q(xch) => [
+         q(7312),
+         q(0),
+         ],
+      q(xcl) => [
+         q(7313),
+         q(0),
+         ],
+      q(xcm) => [
+         q(7314),
+         q(0),
+         ],
+      q(xcn) => [
+         q(7315),
+         q(0),
+         ],
+      q(xco) => [
+         q(7316),
+         q(0),
+         ],
+      q(xcr) => [
+         q(7317),
+         q(0),
+         ],
+      q(xct) => [
+         q(7318),
+         q(0),
+         ],
+      q(xcu) => [
+         q(7319),
+         q(0),
+         ],
+      q(xcv) => [
+         q(7320),
+         q(0),
+         ],
+      q(xcw) => [
+         q(7321),
+         q(0),
+         ],
+      q(xcy) => [
+         q(7322),
+         q(0),
+         ],
+      q(xda) => [
+         q(7323),
+         q(0),
+         ],
+      q(xdc) => [
+         q(7324),
+         q(0),
+         ],
+      q(xdk) => [
+         q(7325),
+         q(0),
+         ],
+      q(xdm) => [
+         q(7326),
+         q(0),
+         ],
+      q(xdy) => [
+         q(7327),
+         q(0),
+         ],
+      q(xeb) => [
+         q(7328),
+         q(0),
+         ],
+      q(xed) => [
+         q(7329),
+         q(0),
+         ],
+      q(xeg) => [
+         q(7330),
+         q(0),
+         ],
+      q(xel) => [
+         q(7331),
+         q(0),
+         ],
+      q(xem) => [
+         q(7332),
+         q(0),
+         ],
+      q(xep) => [
+         q(7333),
+         q(0),
+         ],
+      q(xer) => [
+         q(7334),
+         q(0),
+         ],
+      q(xes) => [
+         q(7335),
+         q(0),
+         ],
+      q(xet) => [
+         q(7336),
+         q(0),
+         ],
+      q(xeu) => [
+         q(7337),
+         q(0),
+         ],
+      q(xfa) => [
+         q(7338),
+         q(0),
+         ],
+      q(xga) => [
+         q(7339),
+         q(0),
+         ],
+      q(xgb) => [
+         q(7340),
+         q(0),
+         ],
+      q(xgd) => [
+         q(7341),
+         q(0),
+         ],
+      q(xgf) => [
+         q(7342),
+         q(0),
+         ],
+      q(xgg) => [
+         q(7343),
+         q(0),
+         ],
+      q(xgi) => [
+         q(7344),
+         q(0),
+         ],
+      q(xgl) => [
+         q(7345),
+         q(0),
+         ],
+      q(xgm) => [
+         q(7346),
+         q(0),
+         ],
+      q(xgn) => [
+         q(0531),
+         q(0),
+         ],
+      q(xgr) => [
+         q(7347),
+         q(0),
+         ],
+      q(xgu) => [
+         q(7348),
+         q(0),
+         ],
+      q(xgw) => [
+         q(7349),
+         q(0),
+         ],
+      q(xha) => [
+         q(7350),
+         q(0),
+         ],
+      q(xhc) => [
+         q(7351),
+         q(0),
+         ],
+      q(xhd) => [
+         q(7352),
+         q(0),
+         ],
+      q(xhe) => [
+         q(7353),
+         q(0),
+         ],
+      q(xho) => [
+         q(0471),
+         q(0),
+         ],
+      q(xhr) => [
+         q(7354),
+         q(0),
+         ],
+      q(xht) => [
+         q(7355),
+         q(0),
+         ],
+      q(xhu) => [
+         q(7356),
+         q(0),
+         ],
+      q(xhv) => [
+         q(7357),
+         q(0),
+         ],
+      q(xib) => [
+         q(7358),
+         q(0),
+         ],
+      q(xii) => [
+         q(7359),
+         q(0),
+         ],
+      q(xil) => [
+         q(7360),
+         q(0),
+         ],
+      q(xin) => [
+         q(7361),
+         q(0),
+         ],
+      q(xip) => [
+         q(7362),
+         q(0),
+         ],
+      q(xir) => [
+         q(7363),
+         q(0),
+         ],
+      q(xis) => [
+         q(7364),
+         q(0),
+         ],
+      q(xiv) => [
+         q(7365),
+         q(0),
+         ],
+      q(xiy) => [
+         q(7366),
+         q(0),
+         ],
+      q(xjb) => [
+         q(7367),
+         q(0),
+         ],
+      q(xjt) => [
+         q(7368),
+         q(0),
+         ],
+      q(xka) => [
+         q(7369),
+         q(0),
+         ],
+      q(xkb) => [
+         q(7370),
+         q(0),
+         ],
+      q(xkc) => [
+         q(7371),
+         q(0),
+         ],
+      q(xkd) => [
+         q(7372),
+         q(0),
+         ],
+      q(xke) => [
+         q(7373),
+         q(0),
+         ],
+      q(xkf) => [
+         q(7374),
+         q(0),
+         ],
+      q(xkg) => [
+         q(7375),
+         q(0),
+         ],
+      q(xkh) => [
+         q(7376),
+         q(0),
+         ],
+      q(xki) => [
+         q(7377),
+         q(0),
+         ],
+      q(xkj) => [
+         q(7378),
+         q(0),
+         ],
+      q(xkk) => [
+         q(7379),
+         q(0),
+         ],
+      q(xkl) => [
+         q(7380),
+         q(0),
+         ],
+      q(xkn) => [
+         q(7381),
+         q(0),
+         ],
+      q(xko) => [
+         q(7382),
+         q(0),
+         ],
+      q(xkp) => [
+         q(7383),
+         q(0),
+         ],
+      q(xkq) => [
+         q(7384),
+         q(0),
+         ],
+      q(xkr) => [
+         q(7385),
+         q(0),
+         ],
+      q(xks) => [
+         q(7386),
+         q(0),
+         ],
+      q(xkt) => [
+         q(7387),
+         q(0),
+         ],
+      q(xku) => [
+         q(7388),
+         q(0),
+         ],
+      q(xkv) => [
+         q(7389),
+         q(0),
+         ],
+      q(xkw) => [
+         q(7390),
+         q(0),
+         ],
+      q(xkx) => [
+         q(7391),
+         q(0),
+         ],
+      q(xky) => [
+         q(7392),
+         q(0),
+         ],
+      q(xkz) => [
+         q(7393),
+         q(0),
+         ],
+      q(xla) => [
+         q(7394),
+         q(0),
+         ],
+      q(xlb) => [
+         q(7395),
+         q(0),
+         ],
+      q(xlc) => [
+         q(7396),
+         q(0),
+         ],
+      q(xld) => [
+         q(7397),
+         q(0),
+         ],
+      q(xle) => [
+         q(7398),
+         q(0),
+         ],
+      q(xlg) => [
+         q(7399),
+         q(0),
+         ],
+      q(xli) => [
+         q(7400),
+         q(0),
+         ],
+      q(xln) => [
+         q(7401),
+         q(0),
+         ],
+      q(xlo) => [
+         q(7402),
+         q(0),
+         ],
+      q(xlp) => [
+         q(7403),
+         q(0),
+         ],
+      q(xls) => [
+         q(7404),
+         q(0),
+         ],
+      q(xlu) => [
+         q(7405),
+         q(0),
+         ],
+      q(xly) => [
+         q(7406),
+         q(0),
+         ],
+      q(xma) => [
+         q(7407),
+         q(0),
+         ],
+      q(xmb) => [
+         q(7408),
+         q(0),
+         ],
+      q(xmc) => [
+         q(7409),
+         q(0),
+         ],
+      q(xmd) => [
+         q(7410),
+         q(0),
+         ],
+      q(xme) => [
+         q(7411),
+         q(0),
+         ],
+      q(xmf) => [
+         q(7412),
+         q(0),
+         ],
+      q(xmg) => [
+         q(7413),
+         q(0),
+         ],
+      q(xmh) => [
+         q(7414),
+         q(0),
+         ],
+      q(xmj) => [
+         q(7415),
+         q(0),
+         ],
+      q(xmk) => [
+         q(7416),
+         q(0),
+         ],
+      q(xml) => [
+         q(7417),
+         q(0),
+         ],
+      q(xmm) => [
+         q(7418),
+         q(0),
+         ],
+      q(xmn) => [
+         q(7419),
+         q(0),
+         ],
+      q(xmo) => [
+         q(7420),
+         q(0),
+         ],
+      q(xmp) => [
+         q(7421),
+         q(0),
+         ],
+      q(xmq) => [
+         q(7422),
+         q(0),
+         ],
+      q(xmr) => [
+         q(7423),
+         q(0),
+         ],
+      q(xms) => [
+         q(7424),
+         q(0),
+         ],
+      q(xmt) => [
+         q(7425),
+         q(0),
+         ],
+      q(xmu) => [
+         q(7426),
+         q(0),
+         ],
+      q(xmv) => [
+         q(7427),
+         q(0),
+         ],
+      q(xmw) => [
+         q(7428),
+         q(0),
+         ],
+      q(xmx) => [
+         q(7429),
+         q(0),
+         ],
+      q(xmy) => [
+         q(7430),
+         q(0),
+         ],
+      q(xmz) => [
+         q(7431),
+         q(0),
+         ],
+      q(xna) => [
+         q(7432),
+         q(0),
+         ],
+      q(xnb) => [
+         q(7433),
+         q(0),
+         ],
+      q(xnd) => [
+         q(0532),
+         q(0),
+         ],
+      q(xng) => [
+         q(7434),
+         q(0),
+         ],
+      q(xnh) => [
+         q(7435),
+         q(0),
+         ],
+      q(xni) => [
+         q(7436),
+         q(0),
+         ],
+      q(xnk) => [
+         q(7437),
+         q(0),
+         ],
+      q(xnn) => [
+         q(7438),
+         q(0),
+         ],
+      q(xno) => [
+         q(7439),
+         q(0),
+         ],
+      q(xnr) => [
+         q(7440),
+         q(0),
+         ],
+      q(xns) => [
+         q(7441),
+         q(0),
+         ],
+      q(xnt) => [
+         q(7442),
+         q(0),
+         ],
+      q(xnu) => [
+         q(7443),
+         q(0),
+         ],
+      q(xny) => [
+         q(7444),
+         q(0),
+         ],
+      q(xnz) => [
+         q(7445),
+         q(0),
+         ],
+      q(xoc) => [
+         q(7446),
+         q(0),
+         ],
+      q(xod) => [
+         q(7447),
+         q(0),
+         ],
+      q(xog) => [
+         q(7448),
+         q(0),
+         ],
+      q(xoi) => [
+         q(7449),
+         q(0),
+         ],
+      q(xok) => [
+         q(7450),
+         q(0),
+         ],
+      q(xom) => [
+         q(7451),
+         q(0),
+         ],
+      q(xon) => [
+         q(7452),
+         q(0),
+         ],
+      q(xoo) => [
+         q(7453),
+         q(0),
+         ],
+      q(xop) => [
+         q(7454),
+         q(0),
+         ],
+      q(xor) => [
+         q(7455),
+         q(0),
+         ],
+      q(xow) => [
+         q(7456),
+         q(0),
+         ],
+      q(xpa) => [
+         q(7457),
+         q(0),
+         ],
+      q(xpc) => [
+         q(7458),
+         q(0),
+         ],
+      q(xpe) => [
+         q(7459),
+         q(0),
+         ],
+      q(xpg) => [
+         q(7460),
+         q(0),
+         ],
+      q(xpi) => [
+         q(7461),
+         q(0),
+         ],
+      q(xpj) => [
+         q(7462),
+         q(0),
+         ],
+      q(xpk) => [
+         q(7463),
+         q(0),
+         ],
+      q(xpm) => [
+         q(7464),
+         q(0),
+         ],
+      q(xpn) => [
+         q(7465),
+         q(0),
+         ],
+      q(xpo) => [
+         q(7466),
+         q(0),
+         ],
+      q(xpp) => [
+         q(7467),
+         q(0),
+         ],
+      q(xpq) => [
+         q(7468),
+         q(0),
+         ],
+      q(xpr) => [
+         q(7469),
+         q(0),
+         ],
+      q(xps) => [
+         q(7470),
+         q(0),
+         ],
+      q(xpt) => [
+         q(7471),
+         q(0),
+         ],
+      q(xpu) => [
+         q(7472),
+         q(0),
+         ],
+      q(xpy) => [
+         q(7473),
+         q(0),
+         ],
+      q(xqa) => [
+         q(7474),
+         q(0),
+         ],
+      q(xqt) => [
+         q(7475),
+         q(0),
+         ],
+      q(xra) => [
+         q(7476),
+         q(0),
+         ],
+      q(xrb) => [
+         q(7477),
+         q(0),
+         ],
+      q(xrd) => [
+         q(7478),
+         q(0),
+         ],
+      q(xre) => [
+         q(7479),
+         q(0),
+         ],
+      q(xrg) => [
+         q(7480),
+         q(0),
+         ],
+      q(xri) => [
+         q(7481),
+         q(0),
+         ],
+      q(xrm) => [
+         q(7482),
+         q(0),
+         ],
+      q(xrn) => [
+         q(7483),
+         q(0),
+         ],
+      q(xrq) => [
+         q(7484),
+         q(0),
+         ],
+      q(xrr) => [
+         q(7485),
+         q(0),
+         ],
+      q(xrt) => [
+         q(7486),
+         q(0),
+         ],
+      q(xru) => [
+         q(7487),
+         q(0),
+         ],
+      q(xrw) => [
+         q(7488),
+         q(0),
+         ],
+      q(xsa) => [
+         q(7489),
+         q(0),
+         ],
+      q(xsb) => [
+         q(7490),
+         q(0),
+         ],
+      q(xsc) => [
+         q(7491),
+         q(0),
+         ],
+      q(xsd) => [
+         q(7492),
+         q(0),
+         ],
+      q(xse) => [
+         q(7493),
+         q(0),
+         ],
+      q(xsh) => [
+         q(7494),
+         q(0),
+         ],
+      q(xsi) => [
+         q(7495),
+         q(0),
+         ],
+      q(xsl) => [
+         q(7496),
+         q(0),
+         ],
+      q(xsm) => [
+         q(7497),
+         q(0),
+         ],
+      q(xsn) => [
+         q(7498),
+         q(0),
+         ],
+      q(xso) => [
+         q(7499),
+         q(0),
+         ],
+      q(xsp) => [
+         q(7500),
+         q(0),
+         ],
+      q(xsq) => [
+         q(7501),
+         q(0),
+         ],
+      q(xsr) => [
+         q(7502),
+         q(0),
+         ],
+      q(xss) => [
+         q(7503),
+         q(0),
+         ],
+      q(xsu) => [
+         q(7504),
+         q(0),
+         ],
+      q(xsv) => [
+         q(7505),
+         q(0),
+         ],
+      q(xsy) => [
+         q(7506),
+         q(0),
+         ],
+      q(xta) => [
+         q(7507),
+         q(0),
+         ],
+      q(xtb) => [
+         q(7508),
+         q(0),
+         ],
+      q(xtc) => [
+         q(7509),
+         q(0),
+         ],
+      q(xtd) => [
+         q(7510),
+         q(0),
+         ],
+      q(xte) => [
+         q(7511),
+         q(0),
+         ],
+      q(xtg) => [
+         q(7512),
+         q(0),
+         ],
+      q(xth) => [
+         q(7513),
+         q(0),
+         ],
+      q(xti) => [
+         q(7514),
+         q(0),
+         ],
+      q(xtj) => [
+         q(7515),
+         q(0),
+         ],
+      q(xtl) => [
+         q(7516),
+         q(0),
+         ],
+      q(xtm) => [
+         q(7517),
+         q(0),
+         ],
+      q(xtn) => [
+         q(7518),
+         q(0),
+         ],
+      q(xto) => [
+         q(7519),
+         q(0),
+         ],
+      q(xtp) => [
+         q(7520),
+         q(0),
+         ],
+      q(xtq) => [
+         q(7521),
+         q(0),
+         ],
+      q(xtr) => [
+         q(7522),
+         q(0),
+         ],
+      q(xts) => [
+         q(7523),
+         q(0),
+         ],
+      q(xtt) => [
+         q(7524),
+         q(0),
+         ],
+      q(xtu) => [
+         q(7525),
+         q(0),
+         ],
+      q(xtv) => [
+         q(7526),
+         q(0),
+         ],
+      q(xtw) => [
+         q(7527),
+         q(0),
+         ],
+      q(xty) => [
+         q(7528),
+         q(0),
+         ],
+      q(xtz) => [
+         q(7529),
+         q(0),
+         ],
+      q(xua) => [
+         q(7530),
+         q(0),
+         ],
+      q(xub) => [
+         q(7531),
+         q(0),
+         ],
+      q(xud) => [
+         q(7532),
+         q(0),
+         ],
+      q(xug) => [
+         q(7533),
+         q(0),
+         ],
+      q(xuj) => [
+         q(7534),
+         q(0),
+         ],
+      q(xul) => [
+         q(7535),
+         q(0),
+         ],
+      q(xum) => [
+         q(7536),
+         q(0),
+         ],
+      q(xun) => [
+         q(7537),
+         q(0),
+         ],
+      q(xuo) => [
+         q(7538),
+         q(0),
+         ],
+      q(xup) => [
+         q(7539),
+         q(0),
+         ],
+      q(xur) => [
+         q(7540),
+         q(0),
+         ],
+      q(xut) => [
+         q(7541),
+         q(0),
+         ],
+      q(xuu) => [
+         q(7542),
+         q(0),
+         ],
+      q(xve) => [
+         q(7543),
+         q(0),
+         ],
+      q(xvi) => [
+         q(7544),
+         q(0),
+         ],
+      q(xvn) => [
+         q(7545),
+         q(0),
+         ],
+      q(xvo) => [
+         q(7546),
+         q(0),
+         ],
+      q(xvs) => [
+         q(7547),
+         q(0),
+         ],
+      q(xwa) => [
+         q(7548),
+         q(0),
+         ],
+      q(xwc) => [
+         q(7549),
+         q(0),
+         ],
+      q(xwd) => [
+         q(7550),
+         q(0),
+         ],
+      q(xwe) => [
+         q(7551),
+         q(0),
+         ],
+      q(xwg) => [
+         q(7552),
+         q(0),
+         ],
+      q(xwj) => [
+         q(7553),
+         q(0),
+         ],
+      q(xwk) => [
+         q(7554),
+         q(0),
+         ],
+      q(xwl) => [
+         q(7555),
+         q(0),
+         ],
+      q(xwo) => [
+         q(7556),
+         q(0),
+         ],
+      q(xwr) => [
+         q(7557),
+         q(0),
+         ],
+      q(xwt) => [
+         q(7558),
+         q(0),
+         ],
+      q(xww) => [
+         q(7559),
+         q(0),
+         ],
+      q(xxb) => [
+         q(7560),
+         q(0),
+         ],
+      q(xxk) => [
+         q(7561),
+         q(0),
+         ],
+      q(xxm) => [
+         q(7562),
+         q(0),
+         ],
+      q(xxr) => [
+         q(7563),
+         q(0),
+         ],
+      q(xxt) => [
+         q(7564),
+         q(0),
+         ],
+      q(xya) => [
+         q(7565),
+         q(0),
+         ],
+      q(xyb) => [
+         q(7566),
+         q(0),
+         ],
+      q(xyj) => [
+         q(7567),
+         q(0),
+         ],
+      q(xyk) => [
+         q(7568),
+         q(0),
+         ],
+      q(xyl) => [
+         q(7569),
+         q(0),
+         ],
+      q(xyt) => [
+         q(7570),
+         q(0),
+         ],
+      q(xyy) => [
+         q(7571),
+         q(0),
+         ],
+      q(xzh) => [
+         q(7572),
+         q(0),
+         ],
+      q(xzm) => [
+         q(7573),
+         q(0),
+         ],
+      q(xzp) => [
+         q(7574),
+         q(0),
+         ],
+      q(yaa) => [
+         q(7575),
+         q(0),
+         ],
+      q(yab) => [
+         q(7576),
+         q(0),
+         ],
+      q(yac) => [
+         q(7577),
+         q(0),
+         ],
+      q(yad) => [
+         q(7578),
+         q(0),
+         ],
+      q(yae) => [
+         q(7579),
+         q(0),
+         ],
+      q(yaf) => [
+         q(7580),
+         q(0),
+         ],
+      q(yag) => [
+         q(7581),
+         q(0),
+         ],
+      q(yah) => [
+         q(7582),
+         q(0),
+         ],
+      q(yai) => [
+         q(7583),
+         q(0),
+         ],
+      q(yaj) => [
+         q(7584),
+         q(0),
+         ],
+      q(yak) => [
+         q(7585),
+         q(0),
+         ],
+      q(yal) => [
+         q(7586),
+         q(0),
+         ],
+      q(yam) => [
+         q(7587),
+         q(0),
+         ],
+      q(yan) => [
+         q(7588),
+         q(0),
+         ],
+      q(yao) => [
+         q(0472),
+         q(0),
+         ],
+      q(yap) => [
+         q(0473),
+         q(0),
+         ],
+      q(yaq) => [
+         q(7589),
+         q(0),
+         ],
+      q(yar) => [
+         q(7590),
+         q(0),
+         ],
+      q(yas) => [
+         q(7591),
+         q(0),
+         ],
+      q(yat) => [
+         q(7592),
+         q(0),
+         ],
+      q(yau) => [
+         q(7593),
+         q(0),
+         ],
+      q(yav) => [
+         q(7594),
+         q(0),
+         ],
+      q(yaw) => [
+         q(7595),
+         q(0),
+         ],
+      q(yax) => [
+         q(7596),
+         q(0),
+         ],
+      q(yay) => [
+         q(7597),
+         q(0),
+         ],
+      q(yaz) => [
+         q(7598),
+         q(0),
+         ],
+      q(yba) => [
+         q(7599),
+         q(0),
+         ],
+      q(ybb) => [
+         q(7600),
+         q(0),
+         ],
+      q(ybe) => [
+         q(7601),
+         q(0),
+         ],
+      q(ybh) => [
+         q(7602),
+         q(0),
+         ],
+      q(ybi) => [
+         q(7603),
+         q(0),
+         ],
+      q(ybj) => [
+         q(7604),
+         q(0),
+         ],
+      q(ybk) => [
+         q(7605),
+         q(0),
+         ],
+      q(ybl) => [
+         q(7606),
+         q(0),
+         ],
+      q(ybm) => [
+         q(7607),
+         q(0),
+         ],
+      q(ybn) => [
+         q(7608),
+         q(0),
+         ],
+      q(ybo) => [
+         q(7609),
+         q(0),
+         ],
+      q(ybx) => [
+         q(7610),
+         q(0),
+         ],
+      q(yby) => [
+         q(7611),
+         q(0),
+         ],
+      q(ych) => [
+         q(7612),
+         q(0),
+         ],
+      q(ycl) => [
+         q(7613),
+         q(0),
+         ],
+      q(ycn) => [
+         q(7614),
+         q(0),
+         ],
+      q(ycp) => [
+         q(7615),
+         q(0),
+         ],
+      q(yda) => [
+         q(7616),
+         q(0),
+         ],
+      q(ydd) => [
+         q(7617),
+         q(0),
+         ],
+      q(yde) => [
+         q(7618),
+         q(0),
+         ],
+      q(ydg) => [
+         q(7619),
+         q(0),
+         ],
+      q(ydk) => [
+         q(7620),
+         q(0),
+         ],
+      q(yea) => [
+         q(7621),
+         q(0),
+         ],
+      q(yec) => [
+         q(7622),
+         q(0),
+         ],
+      q(yee) => [
+         q(7623),
+         q(0),
+         ],
+      q(yei) => [
+         q(7624),
+         q(0),
+         ],
+      q(yej) => [
+         q(7625),
+         q(0),
+         ],
+      q(yel) => [
+         q(7626),
+         q(0),
+         ],
+      q(yer) => [
+         q(7627),
+         q(0),
+         ],
+      q(yes) => [
+         q(7628),
+         q(0),
+         ],
+      q(yet) => [
+         q(7629),
+         q(0),
+         ],
+      q(yeu) => [
+         q(7630),
+         q(0),
+         ],
+      q(yev) => [
+         q(7631),
+         q(0),
+         ],
+      q(yey) => [
+         q(7632),
+         q(0),
+         ],
+      q(yga) => [
+         q(7633),
+         q(0),
+         ],
+      q(ygi) => [
+         q(7634),
+         q(0),
+         ],
+      q(ygl) => [
+         q(7635),
+         q(0),
+         ],
+      q(ygm) => [
+         q(7636),
+         q(0),
+         ],
+      q(ygp) => [
+         q(7637),
+         q(0),
+         ],
+      q(ygr) => [
+         q(7638),
+         q(0),
+         ],
+      q(ygs) => [
+         q(7639),
+         q(0),
+         ],
+      q(ygu) => [
+         q(7640),
+         q(0),
+         ],
+      q(ygw) => [
+         q(7641),
+         q(0),
+         ],
+      q(yha) => [
+         q(7642),
+         q(0),
+         ],
+      q(yhd) => [
+         q(7643),
+         q(0),
+         ],
+      q(yhl) => [
+         q(7644),
+         q(0),
+         ],
+      q(yhs) => [
+         q(7645),
+         q(0),
+         ],
+      q(yia) => [
+         q(7646),
+         q(0),
+         ],
+      q(yid) => [
+         q(0474),
+         q(0),
+         ],
+      q(yif) => [
+         q(2657),
+         q(0),
+         ],
+      q(yig) => [
+         q(7647),
+         q(0),
+         ],
+      q(yih) => [
+         q(7648),
+         q(0),
+         ],
+      q(yii) => [
+         q(7649),
+         q(0),
+         ],
+      q(yij) => [
+         q(7650),
+         q(0),
+         ],
+      q(yik) => [
+         q(7651),
+         q(0),
+         ],
+      q(yil) => [
+         q(7652),
+         q(0),
+         ],
+      q(yim) => [
+         q(7653),
+         q(0),
+         ],
+      q(yin) => [
+         q(7654),
+         q(0),
+         ],
+      q(yip) => [
+         q(7655),
+         q(0),
+         ],
+      q(yiq) => [
+         q(7656),
+         q(0),
+         ],
+      q(yir) => [
+         q(7657),
+         q(0),
+         ],
+      q(yis) => [
+         q(7658),
+         q(0),
+         ],
+      q(yit) => [
+         q(7659),
+         q(0),
+         ],
+      q(yiu) => [
+         q(7660),
+         q(0),
+         ],
+      q(yiv) => [
+         q(7661),
+         q(0),
+         ],
+      q(yix) => [
+         q(7662),
+         q(0),
+         ],
+      q(yiz) => [
+         q(7663),
+         q(0),
+         ],
+      q(yka) => [
+         q(7664),
+         q(0),
+         ],
+      q(ykg) => [
+         q(7665),
+         q(0),
+         ],
+      q(yki) => [
+         q(7666),
+         q(0),
+         ],
+      q(ykk) => [
+         q(7667),
+         q(0),
+         ],
+      q(ykl) => [
+         q(7668),
+         q(0),
+         ],
+      q(ykm) => [
+         q(7669),
+         q(0),
+         ],
+      q(ykn) => [
+         q(7670),
+         q(0),
+         ],
+      q(yko) => [
+         q(7671),
+         q(0),
+         ],
+      q(ykr) => [
+         q(7672),
+         q(0),
+         ],
+      q(ykt) => [
+         q(7673),
+         q(0),
+         ],
+      q(yku) => [
+         q(7674),
+         q(0),
+         ],
+      q(yky) => [
+         q(7675),
+         q(0),
+         ],
+      q(yla) => [
+         q(7676),
+         q(0),
+         ],
+      q(ylb) => [
+         q(7677),
+         q(0),
+         ],
+      q(yle) => [
+         q(7678),
+         q(0),
+         ],
+      q(ylg) => [
+         q(7679),
+         q(0),
+         ],
+      q(yli) => [
+         q(7680),
+         q(0),
+         ],
+      q(yll) => [
+         q(7681),
+         q(0),
+         ],
+      q(ylm) => [
+         q(7682),
+         q(0),
+         ],
+      q(yln) => [
+         q(7683),
+         q(0),
+         ],
+      q(ylo) => [
+         q(7684),
+         q(0),
+         ],
+      q(ylr) => [
+         q(7685),
+         q(0),
+         ],
+      q(ylu) => [
+         q(7686),
+         q(0),
+         ],
+      q(yly) => [
+         q(7687),
+         q(0),
+         ],
+      q(ymb) => [
+         q(7688),
+         q(0),
+         ],
+      q(ymc) => [
+         q(7689),
+         q(0),
+         ],
+      q(ymd) => [
+         q(7690),
+         q(0),
+         ],
+      q(yme) => [
+         q(7691),
+         q(0),
+         ],
+      q(ymg) => [
+         q(7692),
+         q(0),
+         ],
+      q(ymh) => [
+         q(7693),
+         q(0),
+         ],
+      q(ymi) => [
+         q(7694),
+         q(0),
+         ],
+      q(ymk) => [
+         q(7695),
+         q(0),
+         ],
+      q(yml) => [
+         q(7696),
+         q(0),
+         ],
+      q(ymm) => [
+         q(7697),
+         q(0),
+         ],
+      q(ymn) => [
+         q(7698),
+         q(0),
+         ],
+      q(ymo) => [
+         q(7699),
+         q(0),
+         ],
+      q(ymp) => [
+         q(7700),
+         q(0),
+         ],
+      q(ymq) => [
+         q(7701),
+         q(0),
+         ],
+      q(ymr) => [
+         q(7702),
+         q(0),
+         ],
+      q(yms) => [
+         q(7703),
+         q(0),
+         ],
+      q(ymx) => [
+         q(7704),
+         q(0),
+         ],
+      q(ymz) => [
+         q(7705),
+         q(0),
+         ],
+      q(yna) => [
+         q(7706),
+         q(0),
+         ],
+      q(ynd) => [
+         q(7707),
+         q(0),
+         ],
+      q(yne) => [
+         q(7708),
+         q(0),
+         ],
+      q(yng) => [
+         q(7709),
+         q(0),
+         ],
+      q(ynk) => [
+         q(7710),
+         q(0),
+         ],
+      q(ynl) => [
+         q(7711),
+         q(0),
+         ],
+      q(ynn) => [
+         q(7712),
+         q(0),
+         ],
+      q(yno) => [
+         q(7713),
+         q(0),
+         ],
+      q(ynq) => [
+         q(7714),
+         q(0),
+         ],
+      q(yns) => [
+         q(7715),
+         q(0),
+         ],
+      q(ynu) => [
+         q(7716),
+         q(0),
+         ],
+      q(yob) => [
+         q(7717),
+         q(0),
+         ],
+      q(yog) => [
+         q(7718),
+         q(0),
+         ],
+      q(yoi) => [
+         q(7719),
+         q(0),
+         ],
+      q(yok) => [
+         q(7720),
+         q(0),
+         ],
+      q(yol) => [
+         q(7721),
+         q(0),
+         ],
+      q(yom) => [
+         q(7722),
+         q(0),
+         ],
+      q(yon) => [
+         q(7723),
+         q(0),
+         ],
+      q(yor) => [
+         q(0475),
+         q(0),
+         ],
+      q(yot) => [
+         q(7724),
+         q(0),
+         ],
+      q(yox) => [
+         q(7725),
+         q(0),
+         ],
+      q(yoy) => [
+         q(7726),
+         q(0),
+         ],
+      q(ypa) => [
+         q(7727),
+         q(0),
+         ],
+      q(ypb) => [
+         q(7728),
+         q(0),
+         ],
+      q(ypg) => [
+         q(7729),
+         q(0),
+         ],
+      q(yph) => [
+         q(7730),
+         q(0),
+         ],
+      q(ypk) => [
+         q(0476),
+         q(0),
+         ],
+      q(ypm) => [
+         q(7731),
+         q(0),
+         ],
+      q(ypn) => [
+         q(7732),
+         q(0),
+         ],
+      q(ypo) => [
+         q(7733),
+         q(0),
+         ],
+      q(ypp) => [
+         q(7734),
+         q(0),
+         ],
+      q(ypz) => [
+         q(7735),
+         q(0),
+         ],
+      q(yra) => [
+         q(7736),
+         q(0),
+         ],
+      q(yrb) => [
+         q(7737),
+         q(0),
+         ],
+      q(yre) => [
+         q(7738),
+         q(0),
+         ],
+      q(yri) => [
+         q(7739),
+         q(0),
+         ],
+      q(yrk) => [
+         q(7740),
+         q(0),
+         ],
+      q(yrl) => [
+         q(7741),
+         q(0),
+         ],
+      q(yrm) => [
+         q(7742),
+         q(0),
+         ],
+      q(yrn) => [
+         q(7743),
+         q(0),
+         ],
+      q(yrs) => [
+         q(7744),
+         q(0),
+         ],
+      q(yrw) => [
+         q(7745),
+         q(0),
+         ],
+      q(yry) => [
+         q(7746),
+         q(0),
+         ],
+      q(ysc) => [
+         q(7747),
+         q(0),
+         ],
+      q(ysd) => [
+         q(7748),
+         q(0),
+         ],
+      q(ysg) => [
+         q(7749),
+         q(0),
+         ],
+      q(ysl) => [
+         q(7750),
+         q(0),
+         ],
+      q(ysn) => [
+         q(7751),
+         q(0),
+         ],
+      q(yso) => [
+         q(7752),
+         q(0),
+         ],
+      q(ysp) => [
+         q(7753),
+         q(0),
+         ],
+      q(ysr) => [
+         q(7754),
+         q(0),
+         ],
+      q(yss) => [
+         q(7755),
+         q(0),
+         ],
+      q(ysy) => [
+         q(7756),
+         q(0),
+         ],
+      q(yta) => [
+         q(7757),
+         q(0),
+         ],
+      q(ytl) => [
+         q(7758),
+         q(0),
+         ],
+      q(ytp) => [
+         q(7759),
+         q(0),
+         ],
+      q(ytw) => [
+         q(7760),
+         q(0),
+         ],
+      q(yty) => [
+         q(7761),
+         q(0),
+         ],
+      q(yua) => [
+         q(7762),
+         q(0),
+         ],
+      q(yub) => [
+         q(7763),
+         q(0),
+         ],
+      q(yuc) => [
+         q(7764),
+         q(0),
+         ],
+      q(yud) => [
+         q(7765),
+         q(0),
+         ],
+      q(yue) => [
+         q(7766),
+         q(0),
+         ],
+      q(yuf) => [
+         q(7767),
+         q(0),
+         ],
+      q(yug) => [
+         q(7768),
+         q(0),
+         ],
+      q(yui) => [
+         q(7769),
+         q(0),
+         ],
+      q(yuj) => [
+         q(7770),
+         q(0),
+         ],
+      q(yuk) => [
+         q(7771),
+         q(0),
+         ],
+      q(yul) => [
+         q(7772),
+         q(0),
+         ],
+      q(yum) => [
+         q(7773),
+         q(0),
+         ],
+      q(yun) => [
+         q(7774),
+         q(0),
+         ],
+      q(yup) => [
+         q(7775),
+         q(0),
+         ],
+      q(yuq) => [
+         q(7776),
+         q(0),
+         ],
+      q(yur) => [
+         q(7777),
+         q(0),
+         ],
+      q(yut) => [
+         q(7778),
+         q(0),
+         ],
+      q(yuw) => [
+         q(7779),
+         q(0),
+         ],
+      q(yux) => [
+         q(7780),
+         q(0),
+         ],
+      q(yuy) => [
+         q(7781),
+         q(0),
+         ],
+      q(yuz) => [
+         q(7782),
+         q(0),
+         ],
+      q(yva) => [
+         q(7783),
+         q(0),
+         ],
+      q(yvt) => [
+         q(7784),
+         q(0),
+         ],
+      q(ywa) => [
+         q(7785),
+         q(0),
+         ],
+      q(ywg) => [
+         q(7786),
+         q(0),
+         ],
+      q(ywl) => [
+         q(7787),
+         q(0),
+         ],
+      q(ywn) => [
+         q(7788),
+         q(0),
+         ],
+      q(ywq) => [
+         q(7789),
+         q(0),
+         ],
+      q(ywr) => [
+         q(7790),
+         q(0),
+         ],
+      q(ywt) => [
+         q(7791),
+         q(0),
+         ],
+      q(ywu) => [
+         q(7792),
+         q(0),
+         ],
+      q(yww) => [
+         q(7793),
+         q(0),
+         ],
+      q(yxa) => [
+         q(7794),
+         q(0),
+         ],
+      q(yxg) => [
+         q(7795),
+         q(0),
+         ],
+      q(yxl) => [
+         q(7796),
+         q(0),
+         ],
+      q(yxm) => [
+         q(7797),
+         q(0),
+         ],
+      q(yxu) => [
+         q(7798),
+         q(0),
+         ],
+      q(yxy) => [
+         q(7799),
+         q(0),
+         ],
+      q(yyr) => [
+         q(7800),
+         q(0),
+         ],
+      q(yyu) => [
+         q(7801),
+         q(0),
+         ],
+      q(yyz) => [
+         q(7802),
+         q(0),
+         ],
+      q(yzg) => [
+         q(7803),
+         q(0),
+         ],
+      q(yzk) => [
+         q(7804),
+         q(0),
+         ],
+      q(zaa) => [
+         q(7805),
+         q(0),
+         ],
+      q(zab) => [
+         q(7806),
+         q(0),
+         ],
+      q(zac) => [
+         q(7807),
+         q(0),
+         ],
+      q(zad) => [
+         q(7808),
+         q(0),
+         ],
+      q(zae) => [
+         q(7809),
+         q(0),
+         ],
+      q(zaf) => [
+         q(7810),
+         q(0),
+         ],
+      q(zag) => [
+         q(7811),
+         q(0),
+         ],
+      q(zah) => [
+         q(7812),
+         q(0),
+         ],
+      q(zai) => [
+         q(7813),
+         q(0),
+         ],
+      q(zaj) => [
+         q(7814),
+         q(0),
+         ],
+      q(zak) => [
+         q(7815),
+         q(0),
+         ],
+      q(zal) => [
+         q(7816),
+         q(0),
+         ],
+      q(zam) => [
+         q(7817),
+         q(0),
+         ],
+      q(zao) => [
+         q(7818),
+         q(0),
+         ],
+      q(zap) => [
+         q(0477),
+         q(0),
+         ],
+      q(zaq) => [
+         q(7819),
+         q(0),
+         ],
+      q(zar) => [
+         q(7820),
+         q(0),
+         ],
+      q(zas) => [
+         q(7821),
+         q(0),
+         ],
+      q(zat) => [
+         q(7822),
+         q(0),
+         ],
+      q(zau) => [
+         q(7823),
+         q(0),
+         ],
+      q(zav) => [
+         q(7824),
+         q(0),
+         ],
+      q(zaw) => [
+         q(7825),
+         q(0),
+         ],
+      q(zax) => [
+         q(7826),
+         q(0),
+         ],
+      q(zay) => [
+         q(7827),
+         q(0),
+         ],
+      q(zaz) => [
+         q(7828),
+         q(0),
+         ],
+      q(zbc) => [
+         q(7829),
+         q(0),
+         ],
+      q(zbe) => [
+         q(7830),
+         q(0),
+         ],
+      q(zbl) => [
+         q(0478),
+         q(0),
+         ],
+      q(zbt) => [
+         q(7831),
+         q(0),
+         ],
+      q(zbw) => [
+         q(7832),
+         q(0),
+         ],
+      q(zca) => [
+         q(7833),
+         q(0),
+         ],
+      q(zch) => [
+         q(7834),
+         q(0),
+         ],
+      q(zdj) => [
+         q(7835),
+         q(0),
+         ],
+      q(zea) => [
+         q(7836),
+         q(0),
+         ],
+      q(zeg) => [
+         q(7837),
+         q(0),
+         ],
+      q(zeh) => [
+         q(7838),
+         q(0),
+         ],
+      q(zen) => [
+         q(0479),
+         q(0),
+         ],
+      q(zga) => [
+         q(7839),
+         q(0),
+         ],
+      q(zgb) => [
+         q(7840),
+         q(0),
+         ],
+      q(zgh) => [
+         q(0480),
+         q(0),
+         ],
+      q(zgm) => [
+         q(7841),
+         q(0),
+         ],
+      q(zgn) => [
+         q(7842),
+         q(0),
+         ],
+      q(zgr) => [
+         q(7843),
+         q(0),
+         ],
+      q(zha) => [
+         q(0481),
+         q(0),
+         ],
+      q(zhb) => [
+         q(7844),
+         q(0),
+         ],
+      q(zhd) => [
+         q(7845),
+         q(0),
+         ],
+      q(zhi) => [
+         q(7846),
+         q(0),
+         ],
+      q(zhn) => [
+         q(7847),
+         q(0),
+         ],
+      q(zhw) => [
+         q(7848),
+         q(0),
+         ],
+      q(zhx) => [
+         q(0533),
+         q(0),
+         ],
+      q(zia) => [
+         q(7849),
+         q(0),
+         ],
+      q(zib) => [
+         q(7850),
+         q(0),
+         ],
+      q(zik) => [
+         q(7851),
+         q(0),
+         ],
+      q(zil) => [
+         q(7852),
+         q(0),
+         ],
+      q(zim) => [
+         q(7853),
+         q(0),
+         ],
+      q(zin) => [
+         q(7854),
+         q(0),
+         ],
+      q(zir) => [
+         q(7855),
+         q(0),
+         ],
+      q(ziw) => [
+         q(7856),
+         q(0),
+         ],
+      q(ziz) => [
+         q(7857),
+         q(0),
+         ],
+      q(zka) => [
+         q(7858),
+         q(0),
+         ],
+      q(zkb) => [
+         q(7859),
+         q(0),
+         ],
+      q(zkd) => [
+         q(7860),
+         q(0),
+         ],
+      q(zkg) => [
+         q(7861),
+         q(0),
+         ],
+      q(zkh) => [
+         q(7862),
+         q(0),
+         ],
+      q(zkk) => [
+         q(7863),
+         q(0),
+         ],
+      q(zkn) => [
+         q(7864),
+         q(0),
+         ],
+      q(zko) => [
+         q(7865),
+         q(0),
+         ],
+      q(zkp) => [
+         q(7866),
+         q(0),
+         ],
+      q(zkr) => [
+         q(7867),
+         q(0),
+         ],
+      q(zkt) => [
+         q(7868),
+         q(0),
+         ],
+      q(zku) => [
+         q(7869),
+         q(0),
+         ],
+      q(zkv) => [
+         q(7870),
+         q(0),
+         ],
+      q(zkz) => [
+         q(7871),
+         q(0),
+         ],
+      q(zle) => [
+         q(0534),
+         q(0),
+         ],
+      q(zlj) => [
+         q(7872),
+         q(0),
+         ],
+      q(zlm) => [
+         q(7873),
+         q(0),
+         ],
+      q(zln) => [
+         q(7874),
+         q(0),
+         ],
+      q(zlq) => [
+         q(7875),
+         q(0),
+         ],
+      q(zls) => [
+         q(0535),
+         q(0),
+         ],
+      q(zlw) => [
+         q(0536),
+         q(0),
+         ],
+      q(zma) => [
+         q(7876),
+         q(0),
+         ],
+      q(zmb) => [
+         q(7877),
+         q(0),
+         ],
+      q(zmc) => [
+         q(7878),
+         q(0),
+         ],
+      q(zmd) => [
+         q(7879),
+         q(0),
+         ],
+      q(zme) => [
+         q(7880),
+         q(0),
+         ],
+      q(zmf) => [
+         q(7881),
+         q(0),
+         ],
+      q(zmg) => [
+         q(7882),
+         q(0),
+         ],
+      q(zmh) => [
+         q(7883),
+         q(0),
+         ],
+      q(zmi) => [
+         q(7884),
+         q(0),
+         ],
+      q(zmj) => [
+         q(7885),
+         q(0),
+         ],
+      q(zmk) => [
+         q(7886),
+         q(0),
+         ],
+      q(zml) => [
+         q(7887),
+         q(0),
+         ],
+      q(zmm) => [
+         q(7888),
+         q(0),
+         ],
+      q(zmn) => [
+         q(7889),
+         q(0),
+         ],
+      q(zmo) => [
+         q(7890),
+         q(0),
+         ],
+      q(zmp) => [
+         q(7891),
+         q(0),
+         ],
+      q(zmq) => [
+         q(7892),
+         q(0),
+         ],
+      q(zmr) => [
+         q(7893),
+         q(0),
+         ],
+      q(zms) => [
+         q(7894),
+         q(0),
+         ],
+      q(zmt) => [
+         q(7895),
+         q(0),
+         ],
+      q(zmu) => [
+         q(7896),
+         q(0),
+         ],
+      q(zmv) => [
+         q(7897),
+         q(0),
+         ],
+      q(zmw) => [
+         q(7898),
+         q(0),
+         ],
+      q(zmx) => [
+         q(7899),
+         q(0),
+         ],
+      q(zmy) => [
+         q(7900),
+         q(0),
+         ],
+      q(zmz) => [
+         q(7901),
+         q(0),
+         ],
+      q(zna) => [
+         q(7902),
+         q(0),
+         ],
+      q(znd) => [
+         q(0482),
+         q(0),
+         ],
+      q(zne) => [
+         q(7903),
+         q(0),
+         ],
+      q(zng) => [
+         q(7904),
+         q(0),
+         ],
+      q(znk) => [
+         q(7905),
+         q(0),
+         ],
+      q(zns) => [
+         q(7906),
+         q(0),
+         ],
+      q(zoc) => [
+         q(7907),
+         q(0),
+         ],
+      q(zoh) => [
+         q(7908),
+         q(0),
+         ],
+      q(zom) => [
+         q(7909),
+         q(0),
+         ],
+      q(zoo) => [
+         q(7910),
+         q(0),
+         ],
+      q(zoq) => [
+         q(7911),
+         q(0),
+         ],
+      q(zor) => [
+         q(7912),
+         q(0),
+         ],
+      q(zos) => [
+         q(7913),
+         q(0),
+         ],
+      q(zpa) => [
+         q(7914),
+         q(0),
+         ],
+      q(zpb) => [
+         q(7915),
+         q(0),
+         ],
+      q(zpc) => [
+         q(7916),
+         q(0),
+         ],
+      q(zpd) => [
+         q(7917),
+         q(0),
+         ],
+      q(zpe) => [
+         q(7918),
+         q(0),
+         ],
+      q(zpf) => [
+         q(7919),
+         q(0),
+         ],
+      q(zpg) => [
+         q(7920),
+         q(0),
+         ],
+      q(zph) => [
+         q(7921),
+         q(0),
+         ],
+      q(zpi) => [
+         q(7922),
+         q(0),
+         ],
+      q(zpj) => [
+         q(7923),
+         q(0),
+         ],
+      q(zpk) => [
+         q(7924),
+         q(0),
+         ],
+      q(zpl) => [
+         q(7925),
+         q(0),
+         ],
+      q(zpm) => [
+         q(7926),
+         q(0),
+         ],
+      q(zpn) => [
+         q(7927),
+         q(0),
+         ],
+      q(zpo) => [
+         q(7928),
+         q(0),
+         ],
+      q(zpp) => [
+         q(7929),
+         q(0),
+         ],
+      q(zpq) => [
+         q(7930),
+         q(0),
+         ],
+      q(zpr) => [
+         q(7931),
+         q(0),
+         ],
+      q(zps) => [
+         q(7932),
+         q(0),
+         ],
+      q(zpt) => [
+         q(7933),
+         q(0),
+         ],
+      q(zpu) => [
+         q(7934),
+         q(0),
+         ],
+      q(zpv) => [
+         q(7935),
+         q(0),
+         ],
+      q(zpw) => [
+         q(7936),
+         q(0),
+         ],
+      q(zpx) => [
+         q(7937),
+         q(0),
+         ],
+      q(zpy) => [
+         q(7938),
+         q(0),
+         ],
+      q(zpz) => [
+         q(7939),
+         q(0),
+         ],
+      q(zqe) => [
+         q(7940),
+         q(0),
+         ],
+      q(zra) => [
+         q(7941),
+         q(0),
+         ],
+      q(zrg) => [
+         q(7942),
+         q(0),
+         ],
+      q(zrn) => [
+         q(7943),
+         q(0),
+         ],
+      q(zro) => [
+         q(7944),
+         q(0),
+         ],
+      q(zrp) => [
+         q(7945),
+         q(0),
+         ],
+      q(zrs) => [
+         q(7946),
+         q(0),
+         ],
+      q(zsa) => [
+         q(7947),
+         q(0),
+         ],
+      q(zsk) => [
+         q(7948),
+         q(0),
+         ],
+      q(zsl) => [
+         q(7949),
+         q(0),
+         ],
+      q(zsm) => [
+         q(7950),
+         q(0),
+         ],
+      q(zsr) => [
+         q(7951),
+         q(0),
+         ],
+      q(zsu) => [
+         q(7952),
+         q(0),
+         ],
+      q(zte) => [
+         q(7953),
+         q(0),
+         ],
+      q(ztg) => [
+         q(7954),
+         q(0),
+         ],
+      q(ztl) => [
+         q(7955),
+         q(0),
+         ],
+      q(ztm) => [
+         q(7956),
+         q(0),
+         ],
+      q(ztn) => [
+         q(7957),
+         q(0),
+         ],
+      q(ztp) => [
+         q(7958),
+         q(0),
+         ],
+      q(ztq) => [
+         q(7959),
+         q(0),
+         ],
+      q(zts) => [
+         q(7960),
+         q(0),
+         ],
+      q(ztt) => [
+         q(7961),
+         q(0),
+         ],
+      q(ztu) => [
+         q(7962),
+         q(0),
+         ],
+      q(ztx) => [
+         q(7963),
+         q(0),
+         ],
+      q(zty) => [
+         q(7964),
+         q(0),
+         ],
+      q(zua) => [
+         q(7965),
+         q(0),
+         ],
+      q(zuh) => [
+         q(7966),
+         q(0),
+         ],
+      q(zul) => [
+         q(0483),
+         q(0),
+         ],
+      q(zum) => [
+         q(7967),
+         q(0),
+         ],
+      q(zun) => [
+         q(0484),
+         q(0),
+         ],
+      q(zuy) => [
+         q(7968),
+         q(0),
+         ],
+      q(zwa) => [
+         q(7969),
+         q(0),
+         ],
+      q(zxx) => [
+         q(0485),
+         q(0),
+         ],
+      q(zyb) => [
+         q(7970),
+         q(0),
+         ],
+      q(zyg) => [
+         q(7971),
+         q(0),
+         ],
+      q(zyj) => [
+         q(7972),
+         q(0),
+         ],
+      q(zyn) => [
+         q(7973),
+         q(0),
+         ],
+      q(zyp) => [
+         q(7974),
+         q(0),
+         ],
+      q(zza) => [
+         q(0486),
+         q(0),
+         ],
+      q(zzj) => [
+         q(7975),
+         q(0),
+         ],
+      },
+   q(term) => {
+      q(aar) => [
+         q(0001),
+         q(0),
+         ],
+      q(abk) => [
+         q(0002),
+         q(0),
+         ],
+      q(ace) => [
+         q(0003),
+         q(0),
+         ],
+      q(ach) => [
+         q(0004),
+         q(0),
+         ],
+      q(ada) => [
+         q(0005),
+         q(0),
+         ],
+      q(ady) => [
+         q(0006),
+         q(0),
+         ],
+      q(afa) => [
+         q(0007),
+         q(0),
+         ],
+      q(afh) => [
+         q(0008),
+         q(0),
+         ],
+      q(afr) => [
+         q(0009),
+         q(0),
+         ],
+      q(ain) => [
+         q(0010),
+         q(0),
+         ],
+      q(aka) => [
+         q(0011),
+         q(0),
+         ],
+      q(akk) => [
+         q(0012),
+         q(0),
+         ],
+      q(ale) => [
+         q(0014),
+         q(0),
+         ],
+      q(alg) => [
+         q(0015),
+         q(0),
+         ],
+      q(alt) => [
+         q(0016),
+         q(0),
+         ],
+      q(amh) => [
+         q(0017),
+         q(0),
+         ],
+      q(ang) => [
+         q(0018),
+         q(0),
+         ],
+      q(anp) => [
+         q(0019),
+         q(0),
+         ],
+      q(apa) => [
+         q(0020),
+         q(0),
+         ],
+      q(ara) => [
+         q(0021),
+         q(0),
+         ],
+      q(arc) => [
+         q(0022),
+         q(0),
+         ],
+      q(arg) => [
+         q(0023),
+         q(0),
+         ],
+      q(arn) => [
+         q(0025),
+         q(0),
+         ],
+      q(arp) => [
+         q(0026),
+         q(0),
+         ],
+      q(art) => [
+         q(0027),
+         q(0),
+         ],
+      q(arw) => [
+         q(0028),
+         q(0),
+         ],
+      q(asm) => [
+         q(0029),
+         q(0),
+         ],
+      q(ast) => [
+         q(0030),
+         q(0),
+         ],
+      q(ath) => [
+         q(0031),
+         q(0),
+         ],
+      q(aus) => [
+         q(0032),
+         q(0),
+         ],
+      q(ava) => [
+         q(0033),
+         q(0),
+         ],
+      q(ave) => [
+         q(0034),
+         q(0),
+         ],
+      q(awa) => [
+         q(0035),
+         q(0),
+         ],
+      q(aym) => [
+         q(0036),
+         q(0),
+         ],
+      q(aze) => [
+         q(0037),
+         q(0),
+         ],
+      q(bad) => [
+         q(0038),
+         q(0),
+         ],
+      q(bai) => [
+         q(0039),
+         q(0),
+         ],
+      q(bak) => [
+         q(0040),
+         q(0),
+         ],
+      q(bal) => [
+         q(0041),
+         q(0),
+         ],
+      q(bam) => [
+         q(0042),
+         q(0),
+         ],
+      q(ban) => [
+         q(0043),
+         q(0),
+         ],
+      q(bas) => [
+         q(0045),
+         q(0),
+         ],
+      q(bat) => [
+         q(0046),
+         q(0),
+         ],
+      q(bej) => [
+         q(0047),
+         q(0),
+         ],
+      q(bel) => [
+         q(0048),
+         q(0),
+         ],
+      q(bem) => [
+         q(0049),
+         q(0),
+         ],
+      q(ben) => [
+         q(0050),
+         q(0),
+         ],
+      q(ber) => [
+         q(0051),
+         q(0),
+         ],
+      q(bho) => [
+         q(0052),
+         q(0),
+         ],
+      q(bih) => [
+         q(0053),
+         q(0),
+         ],
+      q(bik) => [
+         q(0054),
+         q(0),
+         ],
+      q(bin) => [
+         q(0055),
+         q(0),
+         ],
+      q(bis) => [
+         q(0056),
+         q(0),
+         ],
+      q(bla) => [
+         q(0057),
+         q(0),
+         ],
+      q(bnt) => [
+         q(0058),
+         q(0),
+         ],
+      q(bod) => [
+         q(0427),
+         q(0),
+         ],
+      q(bos) => [
+         q(0059),
+         q(0),
+         ],
+      q(bra) => [
+         q(0060),
+         q(0),
+         ],
+      q(bre) => [
+         q(0061),
+         q(0),
+         ],
+      q(btk) => [
+         q(0062),
+         q(0),
+         ],
+      q(bua) => [
+         q(0063),
+         q(0),
+         ],
+      q(bug) => [
+         q(0064),
+         q(0),
+         ],
+      q(bul) => [
+         q(0065),
+         q(0),
+         ],
+      q(byn) => [
+         q(0067),
+         q(0),
+         ],
+      q(cad) => [
+         q(0068),
+         q(0),
+         ],
+      q(cai) => [
+         q(0069),
+         q(0),
+         ],
+      q(car) => [
+         q(0070),
+         q(0),
+         ],
+      q(cat) => [
+         q(0071),
+         q(0),
+         ],
+      q(cau) => [
+         q(0072),
+         q(0),
+         ],
+      q(ceb) => [
+         q(0073),
+         q(0),
+         ],
+      q(cel) => [
+         q(0074),
+         q(0),
+         ],
+      q(ces) => [
+         q(0101),
+         q(0),
+         ],
+      q(cha) => [
+         q(0075),
+         q(0),
+         ],
+      q(chb) => [
+         q(0076),
+         q(0),
+         ],
+      q(che) => [
+         q(0077),
+         q(0),
+         ],
+      q(chg) => [
+         q(0078),
+         q(0),
+         ],
+      q(chk) => [
+         q(0080),
+         q(0),
+         ],
+      q(chm) => [
+         q(0081),
+         q(0),
+         ],
+      q(chn) => [
+         q(0082),
+         q(0),
+         ],
+      q(cho) => [
+         q(0083),
+         q(0),
+         ],
+      q(chp) => [
+         q(0084),
+         q(0),
+         ],
+      q(chr) => [
+         q(0085),
+         q(0),
+         ],
+      q(chu) => [
+         q(0086),
+         q(0),
+         ],
+      q(chv) => [
+         q(0087),
+         q(0),
+         ],
+      q(chy) => [
+         q(0088),
+         q(0),
+         ],
+      q(cmc) => [
+         q(0089),
+         q(0),
+         ],
+      q(cop) => [
+         q(0090),
+         q(0),
+         ],
+      q(cor) => [
+         q(0091),
+         q(0),
+         ],
+      q(cos) => [
+         q(0092),
+         q(0),
+         ],
+      q(cpe) => [
+         q(0093),
+         q(0),
+         ],
+      q(cpf) => [
+         q(0094),
+         q(0),
+         ],
+      q(cpp) => [
+         q(0095),
+         q(0),
+         ],
+      q(cre) => [
+         q(0096),
+         q(0),
+         ],
+      q(crh) => [
+         q(0097),
+         q(0),
+         ],
+      q(crp) => [
+         q(0098),
+         q(0),
+         ],
+      q(csb) => [
+         q(0099),
+         q(0),
+         ],
+      q(cus) => [
+         q(0100),
+         q(0),
+         ],
+      q(cym) => [
+         q(0466),
+         q(0),
+         ],
+      q(dak) => [
+         q(0102),
+         q(0),
+         ],
+      q(dan) => [
+         q(0103),
+         q(0),
+         ],
+      q(dar) => [
+         q(0104),
+         q(0),
+         ],
+      q(day) => [
+         q(0105),
+         q(0),
+         ],
+      q(del) => [
+         q(0106),
+         q(0),
+         ],
+      q(den) => [
+         q(0107),
+         q(0),
+         ],
+      q(deu) => [
+         q(0150),
+         q(0),
+         ],
+      q(dgr) => [
+         q(0108),
+         q(0),
+         ],
+      q(din) => [
+         q(0109),
+         q(0),
+         ],
+      q(div) => [
+         q(0110),
+         q(0),
+         ],
+      q(doi) => [
+         q(0111),
+         q(0),
+         ],
+      q(dra) => [
+         q(0112),
+         q(0),
+         ],
+      q(dsb) => [
+         q(0113),
+         q(0),
+         ],
+      q(dua) => [
+         q(0114),
+         q(0),
+         ],
+      q(dum) => [
+         q(0115),
+         q(0),
+         ],
+      q(dyu) => [
+         q(0117),
+         q(0),
+         ],
+      q(dzo) => [
+         q(0118),
+         q(0),
+         ],
+      q(efi) => [
+         q(0119),
+         q(0),
+         ],
+      q(egy) => [
+         q(0120),
+         q(0),
+         ],
+      q(eka) => [
+         q(0121),
+         q(0),
+         ],
+      q(ell) => [
+         q(0164),
+         q(0),
+         ],
+      q(elx) => [
+         q(0122),
+         q(0),
+         ],
+      q(eng) => [
+         q(0123),
+         q(0),
+         ],
+      q(enm) => [
+         q(0124),
+         q(0),
+         ],
+      q(epo) => [
+         q(0125),
+         q(0),
+         ],
+      q(est) => [
+         q(0126),
+         q(0),
+         ],
+      q(eus) => [
+         q(0044),
+         q(0),
+         ],
+      q(ewe) => [
+         q(0127),
+         q(0),
+         ],
+      q(ewo) => [
+         q(0128),
+         q(0),
+         ],
+      q(fan) => [
+         q(0129),
+         q(0),
+         ],
+      q(fao) => [
+         q(0130),
+         q(0),
+         ],
+      q(fas) => [
+         q(0342),
+         q(0),
+         ],
+      q(fat) => [
+         q(0131),
+         q(0),
+         ],
+      q(fij) => [
+         q(0132),
+         q(0),
+         ],
+      q(fil) => [
+         q(0133),
+         q(0),
+         ],
+      q(fin) => [
+         q(0134),
+         q(0),
+         ],
+      q(fiu) => [
+         q(0135),
+         q(0),
+         ],
+      q(fon) => [
+         q(0136),
+         q(0),
+         ],
+      q(fra) => [
+         q(0137),
+         q(0),
+         ],
+      q(frm) => [
+         q(0138),
+         q(0),
+         ],
+      q(fro) => [
+         q(0139),
+         q(0),
+         ],
+      q(frr) => [
+         q(0140),
+         q(0),
+         ],
+      q(frs) => [
+         q(0141),
+         q(0),
+         ],
+      q(fry) => [
+         q(0142),
+         q(0),
+         ],
+      q(ful) => [
+         q(0143),
+         q(0),
+         ],
+      q(fur) => [
+         q(0144),
+         q(0),
+         ],
+      q(gaa) => [
+         q(0145),
+         q(0),
+         ],
+      q(gay) => [
+         q(0146),
+         q(0),
+         ],
+      q(gba) => [
+         q(0147),
+         q(0),
+         ],
+      q(gem) => [
+         q(0148),
+         q(0),
+         ],
+      q(gez) => [
+         q(0151),
+         q(0),
+         ],
+      q(gil) => [
+         q(0152),
+         q(0),
+         ],
+      q(gla) => [
+         q(0153),
+         q(0),
+         ],
+      q(gle) => [
+         q(0154),
+         q(0),
+         ],
+      q(glg) => [
+         q(0155),
+         q(0),
+         ],
+      q(glv) => [
+         q(0156),
+         q(0),
+         ],
+      q(gmh) => [
+         q(0157),
+         q(0),
+         ],
+      q(goh) => [
+         q(0158),
+         q(0),
+         ],
+      q(gon) => [
+         q(0159),
+         q(0),
+         ],
+      q(gor) => [
+         q(0160),
+         q(0),
+         ],
+      q(got) => [
+         q(0161),
+         q(0),
+         ],
+      q(grb) => [
+         q(0162),
+         q(0),
+         ],
+      q(grc) => [
+         q(0163),
+         q(0),
+         ],
+      q(grn) => [
+         q(0165),
+         q(0),
+         ],
+      q(gsw) => [
+         q(0166),
+         q(0),
+         ],
+      q(guj) => [
+         q(0167),
+         q(0),
+         ],
+      q(gwi) => [
+         q(0168),
+         q(0),
+         ],
+      q(hai) => [
+         q(0169),
+         q(0),
+         ],
+      q(hat) => [
+         q(0170),
+         q(0),
+         ],
+      q(hau) => [
+         q(0171),
+         q(0),
+         ],
+      q(haw) => [
+         q(0172),
+         q(0),
+         ],
+      q(heb) => [
+         q(0173),
+         q(0),
+         ],
+      q(her) => [
+         q(0174),
+         q(0),
+         ],
+      q(hil) => [
+         q(0175),
+         q(0),
+         ],
+      q(him) => [
+         q(0176),
+         q(0),
+         ],
+      q(hin) => [
+         q(0177),
+         q(0),
+         ],
+      q(hit) => [
+         q(0178),
+         q(0),
+         ],
+      q(hmn) => [
+         q(0179),
+         q(0),
+         ],
+      q(hmo) => [
+         q(0180),
+         q(0),
+         ],
+      q(hrv) => [
+         q(0181),
+         q(0),
+         ],
+      q(hsb) => [
+         q(0182),
+         q(0),
+         ],
+      q(hun) => [
+         q(0183),
+         q(0),
+         ],
+      q(hup) => [
+         q(0184),
+         q(0),
+         ],
+      q(hye) => [
+         q(0024),
+         q(0),
+         ],
+      q(iba) => [
+         q(0185),
+         q(0),
+         ],
+      q(ibo) => [
+         q(0186),
+         q(0),
+         ],
+      q(ido) => [
+         q(0188),
+         q(0),
+         ],
+      q(iii) => [
+         q(0189),
+         q(0),
+         ],
+      q(ijo) => [
+         q(0190),
+         q(0),
+         ],
+      q(iku) => [
+         q(0191),
+         q(0),
+         ],
+      q(ile) => [
+         q(0192),
+         q(0),
+         ],
+      q(ilo) => [
+         q(0193),
+         q(0),
+         ],
+      q(ina) => [
+         q(0194),
+         q(0),
+         ],
+      q(inc) => [
+         q(0195),
+         q(0),
+         ],
+      q(ind) => [
+         q(0196),
+         q(0),
+         ],
+      q(ine) => [
+         q(0197),
+         q(0),
+         ],
+      q(inh) => [
+         q(0198),
+         q(0),
+         ],
+      q(ipk) => [
+         q(0199),
+         q(0),
+         ],
+      q(ira) => [
+         q(0200),
+         q(0),
+         ],
+      q(iro) => [
+         q(0201),
+         q(0),
+         ],
+      q(isl) => [
+         q(0187),
+         q(0),
+         ],
+      q(ita) => [
+         q(0202),
+         q(0),
+         ],
+      q(jav) => [
+         q(0203),
+         q(0),
+         ],
+      q(jbo) => [
+         q(0204),
+         q(0),
+         ],
+      q(jpn) => [
+         q(0205),
+         q(0),
+         ],
+      q(jpr) => [
+         q(0206),
+         q(0),
+         ],
+      q(jrb) => [
+         q(0207),
+         q(0),
+         ],
+      q(kaa) => [
+         q(0208),
+         q(0),
+         ],
+      q(kab) => [
+         q(0209),
+         q(0),
+         ],
+      q(kac) => [
+         q(0210),
+         q(0),
+         ],
+      q(kal) => [
+         q(0211),
+         q(0),
+         ],
+      q(kam) => [
+         q(0212),
+         q(0),
+         ],
+      q(kan) => [
+         q(0213),
+         q(0),
+         ],
+      q(kar) => [
+         q(0214),
+         q(0),
+         ],
+      q(kas) => [
+         q(0215),
+         q(0),
+         ],
+      q(kat) => [
+         q(0149),
+         q(0),
+         ],
+      q(kau) => [
+         q(0216),
+         q(0),
+         ],
+      q(kaw) => [
+         q(0217),
+         q(0),
+         ],
+      q(kaz) => [
+         q(0218),
+         q(0),
+         ],
+      q(kbd) => [
+         q(0219),
+         q(0),
+         ],
+      q(kha) => [
+         q(0220),
+         q(0),
+         ],
+      q(khi) => [
+         q(0221),
+         q(0),
+         ],
+      q(khm) => [
+         q(0222),
+         q(0),
+         ],
+      q(kho) => [
+         q(0223),
+         q(0),
+         ],
+      q(kik) => [
+         q(0224),
+         q(0),
+         ],
+      q(kin) => [
+         q(0225),
+         q(0),
+         ],
+      q(kir) => [
+         q(0226),
+         q(0),
+         ],
+      q(kmb) => [
+         q(0227),
+         q(0),
+         ],
+      q(kok) => [
+         q(0228),
+         q(0),
+         ],
+      q(kom) => [
+         q(0229),
+         q(0),
+         ],
+      q(kon) => [
+         q(0230),
+         q(0),
+         ],
+      q(kor) => [
+         q(0231),
+         q(0),
+         ],
+      q(kos) => [
+         q(0232),
+         q(0),
+         ],
+      q(kpe) => [
+         q(0233),
+         q(0),
+         ],
+      q(krc) => [
+         q(0234),
+         q(0),
+         ],
+      q(krl) => [
+         q(0235),
+         q(0),
+         ],
+      q(kro) => [
+         q(0236),
+         q(0),
+         ],
+      q(kru) => [
+         q(0237),
+         q(0),
+         ],
+      q(kua) => [
+         q(0238),
+         q(0),
+         ],
+      q(kum) => [
+         q(0239),
+         q(0),
+         ],
+      q(kur) => [
+         q(0240),
+         q(0),
+         ],
+      q(kut) => [
+         q(0241),
+         q(0),
+         ],
+      q(lad) => [
+         q(0242),
+         q(0),
+         ],
+      q(lah) => [
+         q(0243),
+         q(0),
+         ],
+      q(lam) => [
+         q(0244),
+         q(0),
+         ],
+      q(lao) => [
+         q(0245),
+         q(0),
+         ],
+      q(lat) => [
+         q(0246),
+         q(0),
+         ],
+      q(lav) => [
+         q(0247),
+         q(0),
+         ],
+      q(lez) => [
+         q(0248),
+         q(0),
+         ],
+      q(lim) => [
+         q(0249),
+         q(0),
+         ],
+      q(lin) => [
+         q(0250),
+         q(0),
+         ],
+      q(lit) => [
+         q(0251),
+         q(0),
+         ],
+      q(lol) => [
+         q(0252),
+         q(0),
+         ],
+      q(loz) => [
+         q(0253),
+         q(0),
+         ],
+      q(ltz) => [
+         q(0254),
+         q(0),
+         ],
+      q(lua) => [
+         q(0255),
+         q(0),
+         ],
+      q(lub) => [
+         q(0256),
+         q(0),
+         ],
+      q(lug) => [
+         q(0257),
+         q(0),
+         ],
+      q(lui) => [
+         q(0258),
+         q(0),
+         ],
+      q(lun) => [
+         q(0259),
+         q(0),
+         ],
+      q(luo) => [
+         q(0260),
+         q(0),
+         ],
+      q(lus) => [
+         q(0261),
+         q(0),
+         ],
+      q(mad) => [
+         q(0263),
+         q(0),
+         ],
+      q(mag) => [
+         q(0264),
+         q(0),
+         ],
+      q(mah) => [
+         q(0265),
+         q(0),
+         ],
+      q(mai) => [
+         q(0266),
+         q(0),
+         ],
+      q(mak) => [
+         q(0267),
+         q(0),
+         ],
+      q(mal) => [
+         q(0268),
+         q(0),
+         ],
+      q(man) => [
+         q(0269),
+         q(0),
+         ],
+      q(map) => [
+         q(0271),
+         q(0),
+         ],
+      q(mar) => [
+         q(0272),
+         q(0),
+         ],
+      q(mas) => [
+         q(0273),
+         q(0),
+         ],
+      q(mdf) => [
+         q(0275),
+         q(0),
+         ],
+      q(mdr) => [
+         q(0276),
+         q(0),
+         ],
+      q(men) => [
+         q(0277),
+         q(0),
+         ],
+      q(mga) => [
+         q(0278),
+         q(0),
+         ],
+      q(mic) => [
+         q(0279),
+         q(0),
+         ],
+      q(min) => [
+         q(0280),
+         q(0),
+         ],
+      q(mis) => [
+         q(0281),
+         q(0),
+         ],
+      q(mkd) => [
+         q(0262),
+         q(0),
+         ],
+      q(mkh) => [
+         q(0282),
+         q(0),
+         ],
+      q(mlg) => [
+         q(0283),
+         q(0),
+         ],
+      q(mlt) => [
+         q(0284),
+         q(0),
+         ],
+      q(mnc) => [
+         q(0285),
+         q(0),
+         ],
+      q(mni) => [
+         q(0286),
+         q(0),
+         ],
+      q(mno) => [
+         q(0287),
+         q(0),
+         ],
+      q(moh) => [
+         q(0288),
+         q(0),
+         ],
+      q(mon) => [
+         q(0289),
+         q(0),
+         ],
+      q(mos) => [
+         q(0290),
+         q(0),
+         ],
+      q(mri) => [
+         q(0270),
+         q(0),
+         ],
+      q(msa) => [
+         q(0274),
+         q(0),
+         ],
+      q(mul) => [
+         q(0291),
+         q(0),
+         ],
+      q(mun) => [
+         q(0292),
+         q(0),
+         ],
+      q(mus) => [
+         q(0293),
+         q(0),
+         ],
+      q(mwl) => [
+         q(0294),
+         q(0),
+         ],
+      q(mwr) => [
+         q(0295),
+         q(0),
+         ],
+      q(mya) => [
+         q(0066),
+         q(0),
+         ],
+      q(myn) => [
+         q(0296),
+         q(0),
+         ],
+      q(myv) => [
+         q(0297),
+         q(0),
+         ],
+      q(nah) => [
+         q(0298),
+         q(0),
+         ],
+      q(nai) => [
+         q(0299),
+         q(0),
+         ],
+      q(nap) => [
+         q(0300),
+         q(0),
+         ],
+      q(nau) => [
+         q(0301),
+         q(0),
+         ],
+      q(nav) => [
+         q(0302),
+         q(0),
+         ],
+      q(nbl) => [
+         q(0303),
+         q(0),
+         ],
+      q(nde) => [
+         q(0304),
+         q(0),
+         ],
+      q(ndo) => [
+         q(0305),
+         q(0),
+         ],
+      q(nds) => [
+         q(0306),
+         q(0),
+         ],
+      q(nep) => [
+         q(0307),
+         q(0),
+         ],
+      q(new) => [
+         q(0308),
+         q(0),
+         ],
+      q(nia) => [
+         q(0309),
+         q(0),
+         ],
+      q(nic) => [
+         q(0310),
+         q(0),
+         ],
+      q(niu) => [
+         q(0311),
+         q(0),
+         ],
+      q(nld) => [
+         q(0116),
+         q(0),
+         ],
+      q(nno) => [
+         q(0312),
+         q(0),
+         ],
+      q(nob) => [
+         q(0313),
+         q(0),
+         ],
+      q(nog) => [
+         q(0314),
+         q(0),
+         ],
+      q(non) => [
+         q(0315),
+         q(0),
+         ],
+      q(nor) => [
+         q(0316),
+         q(0),
+         ],
+      q(nqo) => [
+         q(0317),
+         q(0),
+         ],
+      q(nso) => [
+         q(0318),
+         q(0),
+         ],
+      q(nub) => [
+         q(0319),
+         q(0),
+         ],
+      q(nwc) => [
+         q(0320),
+         q(0),
+         ],
+      q(nya) => [
+         q(0321),
+         q(0),
+         ],
+      q(nym) => [
+         q(0322),
+         q(0),
+         ],
+      q(nyn) => [
+         q(0323),
+         q(0),
+         ],
+      q(nyo) => [
+         q(0324),
+         q(0),
+         ],
+      q(nzi) => [
+         q(0325),
+         q(0),
+         ],
+      q(oci) => [
+         q(0326),
+         q(0),
+         ],
+      q(oji) => [
+         q(0327),
+         q(0),
+         ],
+      q(ori) => [
+         q(0328),
+         q(0),
+         ],
+      q(orm) => [
+         q(0329),
+         q(0),
+         ],
+      q(osa) => [
+         q(0330),
+         q(0),
+         ],
+      q(oss) => [
+         q(0331),
+         q(0),
+         ],
+      q(ota) => [
+         q(0332),
+         q(0),
+         ],
+      q(oto) => [
+         q(0333),
+         q(0),
+         ],
+      q(paa) => [
+         q(0334),
+         q(0),
+         ],
+      q(pag) => [
+         q(0335),
+         q(0),
+         ],
+      q(pal) => [
+         q(0336),
+         q(0),
+         ],
+      q(pam) => [
+         q(0337),
+         q(0),
+         ],
+      q(pan) => [
+         q(0338),
+         q(0),
+         ],
+      q(pap) => [
+         q(0339),
+         q(0),
+         ],
+      q(pau) => [
+         q(0340),
+         q(0),
+         ],
+      q(peo) => [
+         q(0341),
+         q(0),
+         ],
+      q(phi) => [
+         q(0343),
+         q(0),
+         ],
+      q(phn) => [
+         q(0344),
+         q(0),
+         ],
+      q(pli) => [
+         q(0345),
+         q(0),
+         ],
+      q(pol) => [
+         q(0346),
+         q(0),
+         ],
+      q(pon) => [
+         q(0347),
+         q(0),
+         ],
+      q(por) => [
+         q(0348),
+         q(0),
+         ],
+      q(pra) => [
+         q(0349),
+         q(0),
+         ],
+      q(pro) => [
+         q(0350),
+         q(0),
+         ],
+      q(pus) => [
+         q(0351),
+         q(0),
+         ],
+      q(qtz) => [
+         q(0352),
+         q(0),
+         ],
+      q(que) => [
+         q(0353),
+         q(0),
+         ],
+      q(raj) => [
+         q(0354),
+         q(0),
+         ],
+      q(rap) => [
+         q(0355),
+         q(0),
+         ],
+      q(rar) => [
+         q(0356),
+         q(0),
+         ],
+      q(roa) => [
+         q(0357),
+         q(0),
+         ],
+      q(roh) => [
+         q(0358),
+         q(0),
+         ],
+      q(rom) => [
+         q(0359),
+         q(0),
+         ],
+      q(ron) => [
+         q(0360),
+         q(0),
+         ],
+      q(run) => [
+         q(0361),
+         q(0),
+         ],
+      q(rup) => [
+         q(0362),
+         q(0),
+         ],
+      q(rus) => [
+         q(0363),
+         q(0),
+         ],
+      q(sad) => [
+         q(0364),
+         q(0),
+         ],
+      q(sag) => [
+         q(0365),
+         q(0),
+         ],
+      q(sah) => [
+         q(0366),
+         q(0),
+         ],
+      q(sai) => [
+         q(0367),
+         q(0),
+         ],
+      q(sal) => [
+         q(0368),
+         q(0),
+         ],
+      q(sam) => [
+         q(0369),
+         q(0),
+         ],
+      q(san) => [
+         q(0370),
+         q(0),
+         ],
+      q(sas) => [
+         q(0371),
+         q(0),
+         ],
+      q(sat) => [
+         q(0372),
+         q(0),
+         ],
+      q(scn) => [
+         q(0373),
+         q(0),
+         ],
+      q(sco) => [
+         q(0374),
+         q(0),
+         ],
+      q(sel) => [
+         q(0375),
+         q(0),
+         ],
+      q(sem) => [
+         q(0376),
+         q(0),
+         ],
+      q(sga) => [
+         q(0377),
+         q(0),
+         ],
+      q(sgn) => [
+         q(0378),
+         q(0),
+         ],
+      q(shn) => [
+         q(0379),
+         q(0),
+         ],
+      q(sid) => [
+         q(0380),
+         q(0),
+         ],
+      q(sin) => [
+         q(0381),
+         q(0),
+         ],
+      q(sio) => [
+         q(0382),
+         q(0),
+         ],
+      q(sit) => [
+         q(0383),
+         q(0),
+         ],
+      q(sla) => [
+         q(0384),
+         q(0),
+         ],
+      q(slk) => [
+         q(0385),
+         q(0),
+         ],
+      q(slv) => [
+         q(0386),
+         q(0),
+         ],
+      q(sma) => [
+         q(0387),
+         q(0),
+         ],
+      q(sme) => [
+         q(0388),
+         q(0),
+         ],
+      q(smi) => [
+         q(0389),
+         q(0),
+         ],
+      q(smj) => [
+         q(0390),
+         q(0),
+         ],
+      q(smn) => [
+         q(0391),
+         q(0),
+         ],
+      q(smo) => [
+         q(0392),
+         q(0),
+         ],
+      q(sms) => [
+         q(0393),
+         q(0),
+         ],
+      q(sna) => [
+         q(0394),
+         q(0),
+         ],
+      q(snd) => [
+         q(0395),
+         q(0),
+         ],
+      q(snk) => [
+         q(0396),
+         q(0),
+         ],
+      q(sog) => [
+         q(0397),
+         q(0),
+         ],
+      q(som) => [
+         q(0398),
+         q(0),
+         ],
+      q(son) => [
+         q(0399),
+         q(0),
+         ],
+      q(sot) => [
+         q(0400),
+         q(0),
+         ],
+      q(spa) => [
+         q(0401),
+         q(0),
+         ],
+      q(sqi) => [
+         q(0013),
+         q(0),
+         ],
+      q(srd) => [
+         q(0402),
+         q(0),
+         ],
+      q(srn) => [
+         q(0403),
+         q(0),
+         ],
+      q(srp) => [
+         q(0404),
+         q(0),
+         ],
+      q(srr) => [
+         q(0405),
+         q(0),
+         ],
+      q(ssa) => [
+         q(0406),
+         q(0),
+         ],
+      q(ssw) => [
+         q(0407),
+         q(0),
+         ],
+      q(suk) => [
+         q(0408),
+         q(0),
+         ],
+      q(sun) => [
+         q(0409),
+         q(0),
+         ],
+      q(sus) => [
+         q(0410),
+         q(0),
+         ],
+      q(sux) => [
+         q(0411),
+         q(0),
+         ],
+      q(swa) => [
+         q(0412),
+         q(0),
+         ],
+      q(swe) => [
+         q(0413),
+         q(0),
+         ],
+      q(syc) => [
+         q(0414),
+         q(0),
+         ],
+      q(syr) => [
+         q(0415),
+         q(0),
+         ],
+      q(tah) => [
+         q(0416),
+         q(0),
+         ],
+      q(tai) => [
+         q(0417),
+         q(0),
+         ],
+      q(tam) => [
+         q(0418),
+         q(0),
+         ],
+      q(tat) => [
+         q(0419),
+         q(0),
+         ],
+      q(tel) => [
+         q(0420),
+         q(0),
+         ],
+      q(tem) => [
+         q(0421),
+         q(0),
+         ],
+      q(ter) => [
+         q(0422),
+         q(0),
+         ],
+      q(tet) => [
+         q(0423),
+         q(0),
+         ],
+      q(tgk) => [
+         q(0424),
+         q(0),
+         ],
+      q(tgl) => [
+         q(0425),
+         q(0),
+         ],
+      q(tha) => [
+         q(0426),
+         q(0),
+         ],
+      q(tig) => [
+         q(0428),
+         q(0),
+         ],
+      q(tir) => [
+         q(0429),
+         q(0),
+         ],
+      q(tiv) => [
+         q(0430),
+         q(0),
+         ],
+      q(tkl) => [
+         q(0431),
+         q(0),
+         ],
+      q(tlh) => [
+         q(0432),
+         q(0),
+         ],
+      q(tli) => [
+         q(0433),
+         q(0),
+         ],
+      q(tmh) => [
+         q(0434),
+         q(0),
+         ],
+      q(tog) => [
+         q(0435),
+         q(0),
+         ],
+      q(ton) => [
+         q(0436),
+         q(0),
+         ],
+      q(tpi) => [
+         q(0437),
+         q(0),
+         ],
+      q(tsi) => [
+         q(0438),
+         q(0),
+         ],
+      q(tsn) => [
+         q(0439),
+         q(0),
+         ],
+      q(tso) => [
+         q(0440),
+         q(0),
+         ],
+      q(tuk) => [
+         q(0441),
+         q(0),
+         ],
+      q(tum) => [
+         q(0442),
+         q(0),
+         ],
+      q(tup) => [
+         q(0443),
+         q(0),
+         ],
+      q(tur) => [
+         q(0444),
+         q(0),
+         ],
+      q(tut) => [
+         q(0445),
+         q(0),
+         ],
+      q(tvl) => [
+         q(0446),
+         q(0),
+         ],
+      q(twi) => [
+         q(0447),
+         q(0),
+         ],
+      q(tyv) => [
+         q(0448),
+         q(0),
+         ],
+      q(udm) => [
+         q(0449),
+         q(0),
+         ],
+      q(uga) => [
+         q(0450),
+         q(0),
+         ],
+      q(uig) => [
+         q(0451),
+         q(0),
+         ],
+      q(ukr) => [
+         q(0452),
+         q(0),
+         ],
+      q(umb) => [
+         q(0453),
+         q(0),
+         ],
+      q(und) => [
+         q(0454),
+         q(0),
+         ],
+      q(urd) => [
+         q(0455),
+         q(0),
+         ],
+      q(uzb) => [
+         q(0456),
+         q(0),
+         ],
+      q(vai) => [
+         q(0457),
+         q(0),
+         ],
+      q(ven) => [
+         q(0458),
+         q(0),
+         ],
+      q(vie) => [
+         q(0459),
+         q(0),
+         ],
+      q(vol) => [
+         q(0460),
+         q(0),
+         ],
+      q(vot) => [
+         q(0461),
+         q(0),
+         ],
+      q(wak) => [
+         q(0462),
+         q(0),
+         ],
+      q(wal) => [
+         q(0463),
+         q(0),
+         ],
+      q(war) => [
+         q(0464),
+         q(0),
+         ],
+      q(was) => [
+         q(0465),
+         q(0),
+         ],
+      q(wen) => [
+         q(0467),
+         q(0),
+         ],
+      q(wln) => [
+         q(0468),
+         q(0),
+         ],
+      q(wol) => [
+         q(0469),
+         q(0),
+         ],
+      q(xal) => [
+         q(0470),
+         q(0),
+         ],
+      q(xho) => [
+         q(0471),
+         q(0),
+         ],
+      q(yao) => [
+         q(0472),
+         q(0),
+         ],
+      q(yap) => [
+         q(0473),
+         q(0),
+         ],
+      q(yid) => [
+         q(0474),
+         q(0),
+         ],
+      q(yor) => [
+         q(0475),
+         q(0),
+         ],
+      q(ypk) => [
+         q(0476),
+         q(0),
+         ],
+      q(zap) => [
+         q(0477),
+         q(0),
+         ],
+      q(zbl) => [
+         q(0478),
+         q(0),
+         ],
+      q(zen) => [
+         q(0479),
+         q(0),
+         ],
+      q(zgh) => [
+         q(0480),
+         q(0),
+         ],
+      q(zha) => [
+         q(0481),
+         q(0),
+         ],
+      q(zho) => [
+         q(0079),
+         q(0),
+         ],
+      q(znd) => [
+         q(0482),
+         q(0),
+         ],
+      q(zul) => [
+         q(0483),
+         q(0),
+         ],
+      q(zun) => [
+         q(0484),
+         q(0),
+         ],
+      q(zxx) => [
+         q(0485),
+         q(0),
+         ],
+      q(zza) => [
+         q(0486),
+         q(0),
+         ],
+      },
+};
+
+$Locale::Codes::Data{'language'}{'id2code'} = {
+   q(alpha-2) => {
+      q(0001) => q(aa),
+      q(0002) => q(ab),
+      q(0009) => q(af),
+      q(0011) => q(ak),
+      q(0013) => q(sq),
+      q(0017) => q(am),
+      q(0021) => q(ar),
+      q(0023) => q(an),
+      q(0024) => q(hy),
+      q(0029) => q(as),
+      q(0033) => q(av),
+      q(0034) => q(ae),
+      q(0036) => q(ay),
+      q(0037) => q(az),
+      q(0040) => q(ba),
+      q(0042) => q(bm),
+      q(0044) => q(eu),
+      q(0048) => q(be),
+      q(0050) => q(bn),
+      q(0053) => q(bh),
+      q(0056) => q(bi),
+      q(0059) => q(bs),
+      q(0061) => q(br),
+      q(0065) => q(bg),
+      q(0066) => q(my),
+      q(0071) => q(ca),
+      q(0075) => q(ch),
+      q(0077) => q(ce),
+      q(0079) => q(zh),
+      q(0086) => q(cu),
+      q(0087) => q(cv),
+      q(0091) => q(kw),
+      q(0092) => q(co),
+      q(0096) => q(cr),
+      q(0101) => q(cs),
+      q(0103) => q(da),
+      q(0110) => q(dv),
+      q(0116) => q(nl),
+      q(0118) => q(dz),
+      q(0123) => q(en),
+      q(0125) => q(eo),
+      q(0126) => q(et),
+      q(0127) => q(ee),
+      q(0130) => q(fo),
+      q(0132) => q(fj),
+      q(0134) => q(fi),
+      q(0137) => q(fr),
+      q(0142) => q(fy),
+      q(0143) => q(ff),
+      q(0149) => q(ka),
+      q(0150) => q(de),
+      q(0153) => q(gd),
+      q(0154) => q(ga),
+      q(0155) => q(gl),
+      q(0156) => q(gv),
+      q(0164) => q(el),
+      q(0165) => q(gn),
+      q(0167) => q(gu),
+      q(0170) => q(ht),
+      q(0171) => q(ha),
+      q(0173) => q(he),
+      q(0174) => q(hz),
+      q(0177) => q(hi),
+      q(0180) => q(ho),
+      q(0181) => q(hr),
+      q(0183) => q(hu),
+      q(0186) => q(ig),
+      q(0187) => q(is),
+      q(0188) => q(io),
+      q(0189) => q(ii),
+      q(0191) => q(iu),
+      q(0192) => q(ie),
+      q(0194) => q(ia),
+      q(0196) => q(id),
+      q(0199) => q(ik),
+      q(0202) => q(it),
+      q(0203) => q(jv),
+      q(0205) => q(ja),
+      q(0211) => q(kl),
+      q(0213) => q(kn),
+      q(0215) => q(ks),
+      q(0216) => q(kr),
+      q(0218) => q(kk),
+      q(0222) => q(km),
+      q(0224) => q(ki),
+      q(0225) => q(rw),
+      q(0226) => q(ky),
+      q(0229) => q(kv),
+      q(0230) => q(kg),
+      q(0231) => q(ko),
+      q(0238) => q(kj),
+      q(0240) => q(ku),
+      q(0245) => q(lo),
+      q(0246) => q(la),
+      q(0247) => q(lv),
+      q(0249) => q(li),
+      q(0250) => q(ln),
+      q(0251) => q(lt),
+      q(0254) => q(lb),
+      q(0256) => q(lu),
+      q(0257) => q(lg),
+      q(0262) => q(mk),
+      q(0265) => q(mh),
+      q(0268) => q(ml),
+      q(0270) => q(mi),
+      q(0272) => q(mr),
+      q(0274) => q(ms),
+      q(0283) => q(mg),
+      q(0284) => q(mt),
+      q(0289) => q(mn),
+      q(0301) => q(na),
+      q(0302) => q(nv),
+      q(0303) => q(nr),
+      q(0304) => q(nd),
+      q(0305) => q(ng),
+      q(0307) => q(ne),
+      q(0312) => q(nn),
+      q(0313) => q(nb),
+      q(0316) => q(no),
+      q(0321) => q(ny),
+      q(0326) => q(oc),
+      q(0327) => q(oj),
+      q(0328) => q(or),
+      q(0329) => q(om),
+      q(0331) => q(os),
+      q(0338) => q(pa),
+      q(0342) => q(fa),
+      q(0345) => q(pi),
+      q(0346) => q(pl),
+      q(0348) => q(pt),
+      q(0351) => q(ps),
+      q(0353) => q(qu),
+      q(0358) => q(rm),
+      q(0360) => q(ro),
+      q(0361) => q(rn),
+      q(0363) => q(ru),
+      q(0365) => q(sg),
+      q(0370) => q(sa),
+      q(0381) => q(si),
+      q(0385) => q(sk),
+      q(0386) => q(sl),
+      q(0388) => q(se),
+      q(0392) => q(sm),
+      q(0394) => q(sn),
+      q(0395) => q(sd),
+      q(0398) => q(so),
+      q(0400) => q(st),
+      q(0401) => q(es),
+      q(0402) => q(sc),
+      q(0404) => q(sr),
+      q(0407) => q(ss),
+      q(0409) => q(su),
+      q(0412) => q(sw),
+      q(0413) => q(sv),
+      q(0416) => q(ty),
+      q(0418) => q(ta),
+      q(0419) => q(tt),
+      q(0420) => q(te),
+      q(0424) => q(tg),
+      q(0425) => q(tl),
+      q(0426) => q(th),
+      q(0427) => q(bo),
+      q(0429) => q(ti),
+      q(0436) => q(to),
+      q(0439) => q(tn),
+      q(0440) => q(ts),
+      q(0441) => q(tk),
+      q(0444) => q(tr),
+      q(0447) => q(tw),
+      q(0451) => q(ug),
+      q(0452) => q(uk),
+      q(0455) => q(ur),
+      q(0456) => q(uz),
+      q(0458) => q(ve),
+      q(0459) => q(vi),
+      q(0460) => q(vo),
+      q(0466) => q(cy),
+      q(0468) => q(wa),
+      q(0469) => q(wo),
+      q(0471) => q(xh),
+      q(0474) => q(yi),
+      q(0475) => q(yo),
+      q(0481) => q(za),
+      q(0483) => q(zu),
+      q(0537) => q(sh),
+      },
+   q(alpha-3) => {
+      q(0001) => q(aar),
+      q(0002) => q(abk),
+      q(0003) => q(ace),
+      q(0004) => q(ach),
+      q(0005) => q(ada),
+      q(0006) => q(ady),
+      q(0007) => q(afa),
+      q(0008) => q(afh),
+      q(0009) => q(afr),
+      q(0010) => q(ain),
+      q(0011) => q(aka),
+      q(0012) => q(akk),
+      q(0013) => q(alb),
+      q(0014) => q(ale),
+      q(0015) => q(alg),
+      q(0016) => q(alt),
+      q(0017) => q(amh),
+      q(0018) => q(ang),
+      q(0019) => q(anp),
+      q(0020) => q(apa),
+      q(0021) => q(ara),
+      q(0022) => q(arc),
+      q(0023) => q(arg),
+      q(0024) => q(arm),
+      q(0025) => q(arn),
+      q(0026) => q(arp),
+      q(0027) => q(art),
+      q(0028) => q(arw),
+      q(0029) => q(asm),
+      q(0030) => q(ast),
+      q(0031) => q(ath),
+      q(0032) => q(aus),
+      q(0033) => q(ava),
+      q(0034) => q(ave),
+      q(0035) => q(awa),
+      q(0036) => q(aym),
+      q(0037) => q(aze),
+      q(0038) => q(bad),
+      q(0039) => q(bai),
+      q(0040) => q(bak),
+      q(0041) => q(bal),
+      q(0042) => q(bam),
+      q(0043) => q(ban),
+      q(0044) => q(baq),
+      q(0045) => q(bas),
+      q(0046) => q(bat),
+      q(0047) => q(bej),
+      q(0048) => q(bel),
+      q(0049) => q(bem),
+      q(0050) => q(ben),
+      q(0051) => q(ber),
+      q(0052) => q(bho),
+      q(0053) => q(bih),
+      q(0054) => q(bik),
+      q(0055) => q(bin),
+      q(0056) => q(bis),
+      q(0057) => q(bla),
+      q(0058) => q(bnt),
+      q(0059) => q(bos),
+      q(0060) => q(bra),
+      q(0061) => q(bre),
+      q(0062) => q(btk),
+      q(0063) => q(bua),
+      q(0064) => q(bug),
+      q(0065) => q(bul),
+      q(0066) => q(bur),
+      q(0067) => q(byn),
+      q(0068) => q(cad),
+      q(0069) => q(cai),
+      q(0070) => q(car),
+      q(0071) => q(cat),
+      q(0072) => q(cau),
+      q(0073) => q(ceb),
+      q(0074) => q(cel),
+      q(0075) => q(cha),
+      q(0076) => q(chb),
+      q(0077) => q(che),
+      q(0078) => q(chg),
+      q(0079) => q(chi),
+      q(0080) => q(chk),
+      q(0081) => q(chm),
+      q(0082) => q(chn),
+      q(0083) => q(cho),
+      q(0084) => q(chp),
+      q(0085) => q(chr),
+      q(0086) => q(chu),
+      q(0087) => q(chv),
+      q(0088) => q(chy),
+      q(0089) => q(cmc),
+      q(0090) => q(cop),
+      q(0091) => q(cor),
+      q(0092) => q(cos),
+      q(0093) => q(cpe),
+      q(0094) => q(cpf),
+      q(0095) => q(cpp),
+      q(0096) => q(cre),
+      q(0097) => q(crh),
+      q(0098) => q(crp),
+      q(0099) => q(csb),
+      q(0100) => q(cus),
+      q(0101) => q(cze),
+      q(0102) => q(dak),
+      q(0103) => q(dan),
+      q(0104) => q(dar),
+      q(0105) => q(day),
+      q(0106) => q(del),
+      q(0107) => q(den),
+      q(0108) => q(dgr),
+      q(0109) => q(din),
+      q(0110) => q(div),
+      q(0111) => q(doi),
+      q(0112) => q(dra),
+      q(0113) => q(dsb),
+      q(0114) => q(dua),
+      q(0115) => q(dum),
+      q(0116) => q(dut),
+      q(0117) => q(dyu),
+      q(0118) => q(dzo),
+      q(0119) => q(efi),
+      q(0120) => q(egy),
+      q(0121) => q(eka),
+      q(0122) => q(elx),
+      q(0123) => q(eng),
+      q(0124) => q(enm),
+      q(0125) => q(epo),
+      q(0126) => q(est),
+      q(0127) => q(ewe),
+      q(0128) => q(ewo),
+      q(0129) => q(fan),
+      q(0130) => q(fao),
+      q(0131) => q(fat),
+      q(0132) => q(fij),
+      q(0133) => q(fil),
+      q(0134) => q(fin),
+      q(0135) => q(fiu),
+      q(0136) => q(fon),
+      q(0137) => q(fre),
+      q(0138) => q(frm),
+      q(0139) => q(fro),
+      q(0140) => q(frr),
+      q(0141) => q(frs),
+      q(0142) => q(fry),
+      q(0143) => q(ful),
+      q(0144) => q(fur),
+      q(0145) => q(gaa),
+      q(0146) => q(gay),
+      q(0147) => q(gba),
+      q(0148) => q(gem),
+      q(0149) => q(geo),
+      q(0150) => q(ger),
+      q(0151) => q(gez),
+      q(0152) => q(gil),
+      q(0153) => q(gla),
+      q(0154) => q(gle),
+      q(0155) => q(glg),
+      q(0156) => q(glv),
+      q(0157) => q(gmh),
+      q(0158) => q(goh),
+      q(0159) => q(gon),
+      q(0160) => q(gor),
+      q(0161) => q(got),
+      q(0162) => q(grb),
+      q(0163) => q(grc),
+      q(0164) => q(gre),
+      q(0165) => q(grn),
+      q(0166) => q(gsw),
+      q(0167) => q(guj),
+      q(0168) => q(gwi),
+      q(0169) => q(hai),
+      q(0170) => q(hat),
+      q(0171) => q(hau),
+      q(0172) => q(haw),
+      q(0173) => q(heb),
+      q(0174) => q(her),
+      q(0175) => q(hil),
+      q(0176) => q(him),
+      q(0177) => q(hin),
+      q(0178) => q(hit),
+      q(0179) => q(hmn),
+      q(0180) => q(hmo),
+      q(0181) => q(hrv),
+      q(0182) => q(hsb),
+      q(0183) => q(hun),
+      q(0184) => q(hup),
+      q(0185) => q(iba),
+      q(0186) => q(ibo),
+      q(0187) => q(ice),
+      q(0188) => q(ido),
+      q(0189) => q(iii),
+      q(0190) => q(ijo),
+      q(0191) => q(iku),
+      q(0192) => q(ile),
+      q(0193) => q(ilo),
+      q(0194) => q(ina),
+      q(0195) => q(inc),
+      q(0196) => q(ind),
+      q(0197) => q(ine),
+      q(0198) => q(inh),
+      q(0199) => q(ipk),
+      q(0200) => q(ira),
+      q(0201) => q(iro),
+      q(0202) => q(ita),
+      q(0203) => q(jav),
+      q(0204) => q(jbo),
+      q(0205) => q(jpn),
+      q(0206) => q(jpr),
+      q(0207) => q(jrb),
+      q(0208) => q(kaa),
+      q(0209) => q(kab),
+      q(0210) => q(kac),
+      q(0211) => q(kal),
+      q(0212) => q(kam),
+      q(0213) => q(kan),
+      q(0214) => q(kar),
+      q(0215) => q(kas),
+      q(0216) => q(kau),
+      q(0217) => q(kaw),
+      q(0218) => q(kaz),
+      q(0219) => q(kbd),
+      q(0220) => q(kha),
+      q(0221) => q(khi),
+      q(0222) => q(khm),
+      q(0223) => q(kho),
+      q(0224) => q(kik),
+      q(0225) => q(kin),
+      q(0226) => q(kir),
+      q(0227) => q(kmb),
+      q(0228) => q(kok),
+      q(0229) => q(kom),
+      q(0230) => q(kon),
+      q(0231) => q(kor),
+      q(0232) => q(kos),
+      q(0233) => q(kpe),
+      q(0234) => q(krc),
+      q(0235) => q(krl),
+      q(0236) => q(kro),
+      q(0237) => q(kru),
+      q(0238) => q(kua),
+      q(0239) => q(kum),
+      q(0240) => q(kur),
+      q(0241) => q(kut),
+      q(0242) => q(lad),
+      q(0243) => q(lah),
+      q(0244) => q(lam),
+      q(0245) => q(lao),
+      q(0246) => q(lat),
+      q(0247) => q(lav),
+      q(0248) => q(lez),
+      q(0249) => q(lim),
+      q(0250) => q(lin),
+      q(0251) => q(lit),
+      q(0252) => q(lol),
+      q(0253) => q(loz),
+      q(0254) => q(ltz),
+      q(0255) => q(lua),
+      q(0256) => q(lub),
+      q(0257) => q(lug),
+      q(0258) => q(lui),
+      q(0259) => q(lun),
+      q(0260) => q(luo),
+      q(0261) => q(lus),
+      q(0262) => q(mac),
+      q(0263) => q(mad),
+      q(0264) => q(mag),
+      q(0265) => q(mah),
+      q(0266) => q(mai),
+      q(0267) => q(mak),
+      q(0268) => q(mal),
+      q(0269) => q(man),
+      q(0270) => q(mao),
+      q(0271) => q(map),
+      q(0272) => q(mar),
+      q(0273) => q(mas),
+      q(0274) => q(may),
+      q(0275) => q(mdf),
+      q(0276) => q(mdr),
+      q(0277) => q(men),
+      q(0278) => q(mga),
+      q(0279) => q(mic),
+      q(0280) => q(min),
+      q(0281) => q(mis),
+      q(0282) => q(mkh),
+      q(0283) => q(mlg),
+      q(0284) => q(mlt),
+      q(0285) => q(mnc),
+      q(0286) => q(mni),
+      q(0287) => q(mno),
+      q(0288) => q(moh),
+      q(0289) => q(mon),
+      q(0290) => q(mos),
+      q(0291) => q(mul),
+      q(0292) => q(mun),
+      q(0293) => q(mus),
+      q(0294) => q(mwl),
+      q(0295) => q(mwr),
+      q(0296) => q(myn),
+      q(0297) => q(myv),
+      q(0298) => q(nah),
+      q(0299) => q(nai),
+      q(0300) => q(nap),
+      q(0301) => q(nau),
+      q(0302) => q(nav),
+      q(0303) => q(nbl),
+      q(0304) => q(nde),
+      q(0305) => q(ndo),
+      q(0306) => q(nds),
+      q(0307) => q(nep),
+      q(0308) => q(new),
+      q(0309) => q(nia),
+      q(0310) => q(nic),
+      q(0311) => q(niu),
+      q(0312) => q(nno),
+      q(0313) => q(nob),
+      q(0314) => q(nog),
+      q(0315) => q(non),
+      q(0316) => q(nor),
+      q(0317) => q(nqo),
+      q(0318) => q(nso),
+      q(0319) => q(nub),
+      q(0320) => q(nwc),
+      q(0321) => q(nya),
+      q(0322) => q(nym),
+      q(0323) => q(nyn),
+      q(0324) => q(nyo),
+      q(0325) => q(nzi),
+      q(0326) => q(oci),
+      q(0327) => q(oji),
+      q(0328) => q(ori),
+      q(0329) => q(orm),
+      q(0330) => q(osa),
+      q(0331) => q(oss),
+      q(0332) => q(ota),
+      q(0333) => q(oto),
+      q(0334) => q(paa),
+      q(0335) => q(pag),
+      q(0336) => q(pal),
+      q(0337) => q(pam),
+      q(0338) => q(pan),
+      q(0339) => q(pap),
+      q(0340) => q(pau),
+      q(0341) => q(peo),
+      q(0342) => q(per),
+      q(0343) => q(phi),
+      q(0344) => q(phn),
+      q(0345) => q(pli),
+      q(0346) => q(pol),
+      q(0347) => q(pon),
+      q(0348) => q(por),
+      q(0349) => q(pra),
+      q(0350) => q(pro),
+      q(0351) => q(pus),
+      q(0352) => q(qtz),
+      q(0353) => q(que),
+      q(0354) => q(raj),
+      q(0355) => q(rap),
+      q(0356) => q(rar),
+      q(0357) => q(roa),
+      q(0358) => q(roh),
+      q(0359) => q(rom),
+      q(0360) => q(rum),
+      q(0361) => q(run),
+      q(0362) => q(rup),
+      q(0363) => q(rus),
+      q(0364) => q(sad),
+      q(0365) => q(sag),
+      q(0366) => q(sah),
+      q(0367) => q(sai),
+      q(0368) => q(sal),
+      q(0369) => q(sam),
+      q(0370) => q(san),
+      q(0371) => q(sas),
+      q(0372) => q(sat),
+      q(0373) => q(scn),
+      q(0374) => q(sco),
+      q(0375) => q(sel),
+      q(0376) => q(sem),
+      q(0377) => q(sga),
+      q(0378) => q(sgn),
+      q(0379) => q(shn),
+      q(0380) => q(sid),
+      q(0381) => q(sin),
+      q(0382) => q(sio),
+      q(0383) => q(sit),
+      q(0384) => q(sla),
+      q(0385) => q(slo),
+      q(0386) => q(slv),
+      q(0387) => q(sma),
+      q(0388) => q(sme),
+      q(0389) => q(smi),
+      q(0390) => q(smj),
+      q(0391) => q(smn),
+      q(0392) => q(smo),
+      q(0393) => q(sms),
+      q(0394) => q(sna),
+      q(0395) => q(snd),
+      q(0396) => q(snk),
+      q(0397) => q(sog),
+      q(0398) => q(som),
+      q(0399) => q(son),
+      q(0400) => q(sot),
+      q(0401) => q(spa),
+      q(0402) => q(srd),
+      q(0403) => q(srn),
+      q(0404) => q(srp),
+      q(0405) => q(srr),
+      q(0406) => q(ssa),
+      q(0407) => q(ssw),
+      q(0408) => q(suk),
+      q(0409) => q(sun),
+      q(0410) => q(sus),
+      q(0411) => q(sux),
+      q(0412) => q(swa),
+      q(0413) => q(swe),
+      q(0414) => q(syc),
+      q(0415) => q(syr),
+      q(0416) => q(tah),
+      q(0417) => q(tai),
+      q(0418) => q(tam),
+      q(0419) => q(tat),
+      q(0420) => q(tel),
+      q(0421) => q(tem),
+      q(0422) => q(ter),
+      q(0423) => q(tet),
+      q(0424) => q(tgk),
+      q(0425) => q(tgl),
+      q(0426) => q(tha),
+      q(0427) => q(tib),
+      q(0428) => q(tig),
+      q(0429) => q(tir),
+      q(0430) => q(tiv),
+      q(0431) => q(tkl),
+      q(0432) => q(tlh),
+      q(0433) => q(tli),
+      q(0434) => q(tmh),
+      q(0435) => q(tog),
+      q(0436) => q(ton),
+      q(0437) => q(tpi),
+      q(0438) => q(tsi),
+      q(0439) => q(tsn),
+      q(0440) => q(tso),
+      q(0441) => q(tuk),
+      q(0442) => q(tum),
+      q(0443) => q(tup),
+      q(0444) => q(tur),
+      q(0445) => q(tut),
+      q(0446) => q(tvl),
+      q(0447) => q(twi),
+      q(0448) => q(tyv),
+      q(0449) => q(udm),
+      q(0450) => q(uga),
+      q(0451) => q(uig),
+      q(0452) => q(ukr),
+      q(0453) => q(umb),
+      q(0454) => q(und),
+      q(0455) => q(urd),
+      q(0456) => q(uzb),
+      q(0457) => q(vai),
+      q(0458) => q(ven),
+      q(0459) => q(vie),
+      q(0460) => q(vol),
+      q(0461) => q(vot),
+      q(0462) => q(wak),
+      q(0463) => q(wal),
+      q(0464) => q(war),
+      q(0465) => q(was),
+      q(0466) => q(wel),
+      q(0467) => q(wen),
+      q(0468) => q(wln),
+      q(0469) => q(wol),
+      q(0470) => q(xal),
+      q(0471) => q(xho),
+      q(0472) => q(yao),
+      q(0473) => q(yap),
+      q(0474) => q(yid),
+      q(0475) => q(yor),
+      q(0476) => q(ypk),
+      q(0477) => q(zap),
+      q(0478) => q(zbl),
+      q(0479) => q(zen),
+      q(0480) => q(zgh),
+      q(0481) => q(zha),
+      q(0482) => q(znd),
+      q(0483) => q(zul),
+      q(0484) => q(zun),
+      q(0485) => q(zxx),
+      q(0486) => q(zza),
+      q(0487) => q(aav),
+      q(0488) => q(alv),
+      q(0489) => q(aqa),
+      q(0490) => q(aql),
+      q(0491) => q(auf),
+      q(0492) => q(awd),
+      q(0493) => q(azc),
+      q(0494) => q(cba),
+      q(0495) => q(ccn),
+      q(0496) => q(ccs),
+      q(0497) => q(cdc),
+      q(0498) => q(cdd),
+      q(0499) => q(csu),
+      q(0500) => q(dmn),
+      q(0501) => q(egx),
+      q(0502) => q(esx),
+      q(0503) => q(euq),
+      q(0504) => q(fox),
+      q(0505) => q(gme),
+      q(0506) => q(gmq),
+      q(0507) => q(gmw),
+      q(0508) => q(grk),
+      q(0509) => q(hmx),
+      q(0510) => q(hok),
+      q(0511) => q(hyx),
+      q(0512) => q(iir),
+      q(0513) => q(itc),
+      q(0514) => q(jpx),
+      q(0515) => q(kdo),
+      q(0516) => q(ngf),
+      q(0517) => q(omq),
+      q(0518) => q(omv),
+      q(0519) => q(plf),
+      q(0520) => q(poz),
+      q(0521) => q(pqe),
+      q(0522) => q(pqw),
+      q(0523) => q(qwe),
+      q(0524) => q(sdv),
+      q(0525) => q(sqj),
+      q(0526) => q(syd),
+      q(0527) => q(tbq),
+      q(0528) => q(trk),
+      q(0529) => q(tuw),
+      q(0530) => q(urj),
+      q(0531) => q(xgn),
+      q(0532) => q(xnd),
+      q(0533) => q(zhx),
+      q(0534) => q(zle),
+      q(0535) => q(zls),
+      q(0536) => q(zlw),
+      q(0538) => q(aaa),
+      q(0539) => q(aab),
+      q(0540) => q(aac),
+      q(0541) => q(aad),
+      q(0542) => q(aae),
+      q(0543) => q(aaf),
+      q(0544) => q(aag),
+      q(0545) => q(aah),
+      q(0546) => q(aai),
+      q(0547) => q(aak),
+      q(0548) => q(aal),
+      q(0549) => q(aan),
+      q(0550) => q(aao),
+      q(0551) => q(aap),
+      q(0552) => q(aaq),
+      q(0553) => q(aas),
+      q(0554) => q(aat),
+      q(0555) => q(aau),
+      q(0556) => q(aaw),
+      q(0557) => q(aax),
+      q(0558) => q(aaz),
+      q(0559) => q(aba),
+      q(0560) => q(abb),
+      q(0561) => q(abc),
+      q(0562) => q(abd),
+      q(0563) => q(abe),
+      q(0564) => q(abf),
+      q(0565) => q(abg),
+      q(0566) => q(abh),
+      q(0567) => q(abi),
+      q(0568) => q(abj),
+      q(0569) => q(abl),
+      q(0570) => q(abm),
+      q(0571) => q(abn),
+      q(0572) => q(abo),
+      q(0573) => q(abp),
+      q(0574) => q(abq),
+      q(0575) => q(abr),
+      q(0576) => q(abs),
+      q(0577) => q(abt),
+      q(0578) => q(abu),
+      q(0579) => q(abv),
+      q(0580) => q(abw),
+      q(0581) => q(abx),
+      q(0582) => q(aby),
+      q(0583) => q(abz),
+      q(0584) => q(aca),
+      q(0585) => q(acb),
+      q(0586) => q(acd),
+      q(0587) => q(acf),
+      q(0588) => q(aci),
+      q(0589) => q(ack),
+      q(0590) => q(acl),
+      q(0591) => q(acm),
+      q(0592) => q(acn),
+      q(0593) => q(acp),
+      q(0594) => q(acq),
+      q(0595) => q(acr),
+      q(0596) => q(acs),
+      q(0597) => q(act),
+      q(0598) => q(acu),
+      q(0599) => q(acv),
+      q(0600) => q(acw),
+      q(0601) => q(acx),
+      q(0602) => q(acy),
+      q(0603) => q(acz),
+      q(0604) => q(adb),
+      q(0605) => q(add),
+      q(0606) => q(ade),
+      q(0607) => q(adf),
+      q(0608) => q(adg),
+      q(0609) => q(adh),
+      q(0610) => q(adi),
+      q(0611) => q(adj),
+      q(0612) => q(adl),
+      q(0613) => q(adn),
+      q(0614) => q(ado),
+      q(0615) => q(adq),
+      q(0616) => q(adr),
+      q(0617) => q(ads),
+      q(0618) => q(adt),
+      q(0619) => q(adu),
+      q(0620) => q(adw),
+      q(0621) => q(adx),
+      q(0622) => q(adz),
+      q(0623) => q(aea),
+      q(0624) => q(aeb),
+      q(0625) => q(aec),
+      q(0626) => q(aed),
+      q(0627) => q(aee),
+      q(0628) => q(aek),
+      q(0629) => q(ael),
+      q(0630) => q(aem),
+      q(0631) => q(aen),
+      q(0632) => q(aeq),
+      q(0633) => q(aer),
+      q(0634) => q(aes),
+      q(0635) => q(aeu),
+      q(0636) => q(aew),
+      q(0637) => q(aey),
+      q(0638) => q(aez),
+      q(0639) => q(afb),
+      q(0640) => q(afd),
+      q(0641) => q(afe),
+      q(0642) => q(afg),
+      q(0643) => q(afi),
+      q(0644) => q(afk),
+      q(0645) => q(afn),
+      q(0646) => q(afo),
+      q(0647) => q(afp),
+      q(0648) => q(afs),
+      q(0649) => q(aft),
+      q(0650) => q(afu),
+      q(0651) => q(afz),
+      q(0652) => q(aga),
+      q(0653) => q(agb),
+      q(0654) => q(agc),
+      q(0655) => q(agd),
+      q(0656) => q(age),
+      q(0657) => q(agf),
+      q(0658) => q(agg),
+      q(0659) => q(agh),
+      q(0660) => q(agi),
+      q(0661) => q(agj),
+      q(0662) => q(agk),
+      q(0663) => q(agl),
+      q(0664) => q(agm),
+      q(0665) => q(agn),
+      q(0666) => q(ago),
+      q(0667) => q(agq),
+      q(0668) => q(agr),
+      q(0669) => q(ags),
+      q(0670) => q(agt),
+      q(0671) => q(agu),
+      q(0672) => q(agv),
+      q(0673) => q(agw),
+      q(0674) => q(agx),
+      q(0675) => q(agy),
+      q(0676) => q(agz),
+      q(0677) => q(aha),
+      q(0678) => q(ahb),
+      q(0679) => q(ahg),
+      q(0680) => q(ahh),
+      q(0681) => q(ahi),
+      q(0682) => q(ahk),
+      q(0683) => q(ahl),
+      q(0684) => q(ahm),
+      q(0685) => q(ahn),
+      q(0686) => q(aho),
+      q(0687) => q(ahp),
+      q(0688) => q(ahr),
+      q(0689) => q(ahs),
+      q(0690) => q(aht),
+      q(0691) => q(aia),
+      q(0692) => q(aib),
+      q(0693) => q(aic),
+      q(0694) => q(aid),
+      q(0695) => q(aie),
+      q(0696) => q(aif),
+      q(0697) => q(aig),
+      q(0698) => q(aih),
+      q(0699) => q(aii),
+      q(0700) => q(aij),
+      q(0701) => q(aik),
+      q(0702) => q(ail),
+      q(0703) => q(aim),
+      q(0704) => q(aio),
+      q(0705) => q(aip),
+      q(0706) => q(aiq),
+      q(0707) => q(air),
+      q(0708) => q(ais),
+      q(0709) => q(ait),
+      q(0710) => q(aiw),
+      q(0711) => q(aix),
+      q(0712) => q(aiy),
+      q(0713) => q(aja),
+      q(0714) => q(ajg),
+      q(0715) => q(aji),
+      q(0716) => q(ajn),
+      q(0717) => q(ajp),
+      q(0718) => q(ajt),
+      q(0719) => q(aju),
+      q(0720) => q(ajw),
+      q(0721) => q(ajz),
+      q(0722) => q(akb),
+      q(0723) => q(akc),
+      q(0724) => q(akd),
+      q(0725) => q(ake),
+      q(0726) => q(akf),
+      q(0727) => q(akg),
+      q(0728) => q(akh),
+      q(0729) => q(aki),
+      q(0730) => q(akj),
+      q(0731) => q(akl),
+      q(0732) => q(akm),
+      q(0733) => q(ako),
+      q(0734) => q(akp),
+      q(0735) => q(akq),
+      q(0736) => q(akr),
+      q(0737) => q(aks),
+      q(0738) => q(akt),
+      q(0739) => q(aku),
+      q(0740) => q(akv),
+      q(0741) => q(akw),
+      q(0742) => q(akx),
+      q(0743) => q(aky),
+      q(0744) => q(akz),
+      q(0745) => q(ala),
+      q(0746) => q(alc),
+      q(0747) => q(ald),
+      q(0748) => q(alf),
+      q(0749) => q(alh),
+      q(0750) => q(ali),
+      q(0751) => q(alj),
+      q(0752) => q(alk),
+      q(0753) => q(all),
+      q(0754) => q(alm),
+      q(0755) => q(aln),
+      q(0756) => q(alo),
+      q(0757) => q(alp),
+      q(0758) => q(alq),
+      q(0759) => q(alr),
+      q(0760) => q(als),
+      q(0761) => q(alu),
+      q(0762) => q(alw),
+      q(0763) => q(alx),
+      q(0764) => q(aly),
+      q(0765) => q(alz),
+      q(0766) => q(ama),
+      q(0767) => q(amb),
+      q(0768) => q(amc),
+      q(0769) => q(ame),
+      q(0770) => q(amf),
+      q(0771) => q(amg),
+      q(0772) => q(ami),
+      q(0773) => q(amj),
+      q(0774) => q(amk),
+      q(0775) => q(aml),
+      q(0776) => q(amm),
+      q(0777) => q(amn),
+      q(0778) => q(amo),
+      q(0779) => q(amp),
+      q(0780) => q(amq),
+      q(0781) => q(amr),
+      q(0782) => q(ams),
+      q(0783) => q(amt),
+      q(0784) => q(amu),
+      q(0785) => q(amv),
+      q(0786) => q(amw),
+      q(0787) => q(amx),
+      q(0788) => q(amy),
+      q(0789) => q(amz),
+      q(0790) => q(ana),
+      q(0791) => q(anb),
+      q(0792) => q(anc),
+      q(0793) => q(and),
+      q(0794) => q(ane),
+      q(0795) => q(anf),
+      q(0796) => q(anh),
+      q(0797) => q(ani),
+      q(0798) => q(anj),
+      q(0799) => q(ank),
+      q(0800) => q(anl),
+      q(0801) => q(anm),
+      q(0802) => q(ann),
+      q(0803) => q(ano),
+      q(0804) => q(anq),
+      q(0805) => q(anr),
+      q(0806) => q(ans),
+      q(0807) => q(ant),
+      q(0808) => q(anu),
+      q(0809) => q(anv),
+      q(0810) => q(anw),
+      q(0811) => q(anx),
+      q(0812) => q(any),
+      q(0813) => q(anz),
+      q(0814) => q(aoa),
+      q(0815) => q(aob),
+      q(0816) => q(aoc),
+      q(0817) => q(aod),
+      q(0818) => q(aoe),
+      q(0819) => q(aof),
+      q(0820) => q(aog),
+      q(0821) => q(aoh),
+      q(0822) => q(aoi),
+      q(0823) => q(aoj),
+      q(0824) => q(aok),
+      q(0825) => q(aol),
+      q(0826) => q(aom),
+      q(0827) => q(aon),
+      q(0828) => q(aor),
+      q(0829) => q(aos),
+      q(0830) => q(aot),
+      q(0831) => q(aou),
+      q(0832) => q(aox),
+      q(0833) => q(aoz),
+      q(0834) => q(apb),
+      q(0835) => q(apc),
+      q(0836) => q(apd),
+      q(0837) => q(ape),
+      q(0838) => q(apf),
+      q(0839) => q(apg),
+      q(0840) => q(aph),
+      q(0841) => q(api),
+      q(0842) => q(apj),
+      q(0843) => q(apk),
+      q(0844) => q(apl),
+      q(0845) => q(apm),
+      q(0846) => q(apn),
+      q(0847) => q(apo),
+      q(0848) => q(app),
+      q(0849) => q(apq),
+      q(0850) => q(apr),
+      q(0851) => q(aps),
+      q(0852) => q(apt),
+      q(0853) => q(apu),
+      q(0854) => q(apv),
+      q(0855) => q(apw),
+      q(0856) => q(apx),
+      q(0857) => q(apy),
+      q(0858) => q(apz),
+      q(0859) => q(aqc),
+      q(0860) => q(aqd),
+      q(0861) => q(aqg),
+      q(0862) => q(aqm),
+      q(0863) => q(aqn),
+      q(0864) => q(aqp),
+      q(0865) => q(aqr),
+      q(0866) => q(aqt),
+      q(0867) => q(aqz),
+      q(0868) => q(arb),
+      q(0869) => q(ard),
+      q(0870) => q(are),
+      q(0871) => q(arh),
+      q(0872) => q(ari),
+      q(0873) => q(arj),
+      q(0874) => q(ark),
+      q(0875) => q(arl),
+      q(0876) => q(aro),
+      q(0877) => q(arq),
+      q(0878) => q(arr),
+      q(0879) => q(ars),
+      q(0880) => q(aru),
+      q(0881) => q(arv),
+      q(0882) => q(arx),
+      q(0883) => q(ary),
+      q(0884) => q(arz),
+      q(0885) => q(asa),
+      q(0886) => q(asb),
+      q(0887) => q(asc),
+      q(0888) => q(asd),
+      q(0889) => q(ase),
+      q(0890) => q(asf),
+      q(0891) => q(asg),
+      q(0892) => q(ash),
+      q(0893) => q(asi),
+      q(0894) => q(asj),
+      q(0895) => q(ask),
+      q(0896) => q(asl),
+      q(0897) => q(asn),
+      q(0898) => q(aso),
+      q(0899) => q(asp),
+      q(0900) => q(asq),
+      q(0901) => q(asr),
+      q(0902) => q(ass),
+      q(0903) => q(asu),
+      q(0904) => q(asv),
+      q(0905) => q(asw),
+      q(0906) => q(asx),
+      q(0907) => q(asy),
+      q(0908) => q(asz),
+      q(0909) => q(ata),
+      q(0910) => q(atb),
+      q(0911) => q(atc),
+      q(0912) => q(atd),
+      q(0913) => q(ate),
+      q(0914) => q(atg),
+      q(0915) => q(ati),
+      q(0916) => q(atj),
+      q(0917) => q(atk),
+      q(0918) => q(atl),
+      q(0919) => q(atm),
+      q(0920) => q(atn),
+      q(0921) => q(ato),
+      q(0922) => q(atp),
+      q(0923) => q(atq),
+      q(0924) => q(atr),
+      q(0925) => q(ats),
+      q(0926) => q(att),
+      q(0927) => q(atu),
+      q(0928) => q(atv),
+      q(0929) => q(atw),
+      q(0930) => q(atx),
+      q(0931) => q(aty),
+      q(0932) => q(atz),
+      q(0933) => q(aua),
+      q(0934) => q(aub),
+      q(0935) => q(auc),
+      q(0936) => q(aud),
+      q(0937) => q(aug),
+      q(0938) => q(auh),
+      q(0939) => q(aui),
+      q(0940) => q(auj),
+      q(0941) => q(auk),
+      q(0942) => q(aul),
+      q(0943) => q(aum),
+      q(0944) => q(aun),
+      q(0945) => q(auo),
+      q(0946) => q(aup),
+      q(0947) => q(auq),
+      q(0948) => q(aur),
+      q(0949) => q(aut),
+      q(0950) => q(auu),
+      q(0951) => q(auw),
+      q(0952) => q(aux),
+      q(0953) => q(auy),
+      q(0954) => q(auz),
+      q(0955) => q(avb),
+      q(0956) => q(avd),
+      q(0957) => q(avi),
+      q(0958) => q(avk),
+      q(0959) => q(avl),
+      q(0960) => q(avm),
+      q(0961) => q(avn),
+      q(0962) => q(avo),
+      q(0963) => q(avs),
+      q(0964) => q(avt),
+      q(0965) => q(avu),
+      q(0966) => q(avv),
+      q(0967) => q(awb),
+      q(0968) => q(awc),
+      q(0969) => q(awe),
+      q(0970) => q(awg),
+      q(0971) => q(awh),
+      q(0972) => q(awi),
+      q(0973) => q(awk),
+      q(0974) => q(awm),
+      q(0975) => q(awn),
+      q(0976) => q(awo),
+      q(0977) => q(awr),
+      q(0978) => q(aws),
+      q(0979) => q(awt),
+      q(0980) => q(awu),
+      q(0981) => q(awv),
+      q(0982) => q(aww),
+      q(0983) => q(awx),
+      q(0984) => q(awy),
+      q(0985) => q(axb),
+      q(0986) => q(axe),
+      q(0987) => q(axg),
+      q(0988) => q(axk),
+      q(0989) => q(axl),
+      q(0990) => q(axm),
+      q(0991) => q(axx),
+      q(0992) => q(aya),
+      q(0993) => q(ayb),
+      q(0994) => q(ayc),
+      q(0995) => q(ayd),
+      q(0996) => q(aye),
+      q(0997) => q(ayg),
+      q(0998) => q(ayh),
+      q(0999) => q(ayi),
+      q(1000) => q(ayk),
+      q(1001) => q(ayl),
+      q(1002) => q(ayn),
+      q(1003) => q(ayo),
+      q(1004) => q(ayp),
+      q(1005) => q(ayq),
+      q(1006) => q(ayr),
+      q(1007) => q(ays),
+      q(1008) => q(ayt),
+      q(1009) => q(ayu),
+      q(1010) => q(ayy),
+      q(1011) => q(ayz),
+      q(1012) => q(aza),
+      q(1013) => q(azb),
+      q(1014) => q(azd),
+      q(1015) => q(azg),
+      q(1016) => q(azj),
+      q(1017) => q(azm),
+      q(1018) => q(azn),
+      q(1019) => q(azo),
+      q(1020) => q(azt),
+      q(1021) => q(azz),
+      q(1022) => q(baa),
+      q(1023) => q(bab),
+      q(1024) => q(bac),
+      q(1025) => q(bae),
+      q(1026) => q(baf),
+      q(1027) => q(bag),
+      q(1028) => q(bah),
+      q(1029) => q(baj),
+      q(1030) => q(bao),
+      q(1031) => q(bap),
+      q(1032) => q(bar),
+      q(1033) => q(bau),
+      q(1034) => q(bav),
+      q(1035) => q(baw),
+      q(1036) => q(bax),
+      q(1037) => q(bay),
+      q(1038) => q(bba),
+      q(1039) => q(bbb),
+      q(1040) => q(bbc),
+      q(1041) => q(bbd),
+      q(1042) => q(bbe),
+      q(1043) => q(bbf),
+      q(1044) => q(bbg),
+      q(1045) => q(bbh),
+      q(1046) => q(bbi),
+      q(1047) => q(bbj),
+      q(1048) => q(bbk),
+      q(1049) => q(bbl),
+      q(1050) => q(bbm),
+      q(1051) => q(bbn),
+      q(1052) => q(bbo),
+      q(1053) => q(bbp),
+      q(1054) => q(bbq),
+      q(1055) => q(bbr),
+      q(1056) => q(bbs),
+      q(1057) => q(bbt),
+      q(1058) => q(bbu),
+      q(1059) => q(bbv),
+      q(1060) => q(bbw),
+      q(1061) => q(bbx),
+      q(1062) => q(bby),
+      q(1063) => q(bbz),
+      q(1064) => q(bca),
+      q(1065) => q(bcb),
+      q(1066) => q(bcc),
+      q(1067) => q(bcd),
+      q(1068) => q(bce),
+      q(1069) => q(bcf),
+      q(1070) => q(bcg),
+      q(1071) => q(bch),
+      q(1072) => q(bci),
+      q(1073) => q(bcj),
+      q(1074) => q(bck),
+      q(1075) => q(bcl),
+      q(1076) => q(bcm),
+      q(1077) => q(bcn),
+      q(1078) => q(bco),
+      q(1079) => q(bcp),
+      q(1080) => q(bcq),
+      q(1081) => q(bcr),
+      q(1082) => q(bcs),
+      q(1083) => q(bct),
+      q(1084) => q(bcu),
+      q(1085) => q(bcv),
+      q(1086) => q(bcw),
+      q(1087) => q(bcy),
+      q(1088) => q(bcz),
+      q(1089) => q(bda),
+      q(1090) => q(bdb),
+      q(1091) => q(bdc),
+      q(1092) => q(bdd),
+      q(1093) => q(bde),
+      q(1094) => q(bdf),
+      q(1095) => q(bdg),
+      q(1096) => q(bdh),
+      q(1097) => q(bdi),
+      q(1098) => q(bdj),
+      q(1099) => q(bdk),
+      q(1100) => q(bdl),
+      q(1101) => q(bdm),
+      q(1102) => q(bdn),
+      q(1103) => q(bdo),
+      q(1104) => q(bdp),
+      q(1105) => q(bdq),
+      q(1106) => q(bdr),
+      q(1107) => q(bds),
+      q(1108) => q(bdt),
+      q(1109) => q(bdu),
+      q(1110) => q(bdv),
+      q(1111) => q(bdw),
+      q(1112) => q(bdx),
+      q(1113) => q(bdy),
+      q(1114) => q(bdz),
+      q(1115) => q(bea),
+      q(1116) => q(beb),
+      q(1117) => q(bec),
+      q(1118) => q(bed),
+      q(1119) => q(bee),
+      q(1120) => q(bef),
+      q(1121) => q(beg),
+      q(1122) => q(beh),
+      q(1123) => q(bei),
+      q(1124) => q(bek),
+      q(1125) => q(beo),
+      q(1126) => q(bep),
+      q(1127) => q(beq),
+      q(1128) => q(bes),
+      q(1129) => q(bet),
+      q(1130) => q(beu),
+      q(1131) => q(bev),
+      q(1132) => q(bew),
+      q(1133) => q(bex),
+      q(1134) => q(bey),
+      q(1135) => q(bez),
+      q(1136) => q(mot),
+      q(1137) => q(bfb),
+      q(1138) => q(bfc),
+      q(1139) => q(bfd),
+      q(1140) => q(bfe),
+      q(1141) => q(bff),
+      q(1142) => q(bfg),
+      q(1143) => q(bfh),
+      q(1144) => q(bfi),
+      q(1145) => q(bfj),
+      q(1146) => q(bfk),
+      q(1147) => q(bfl),
+      q(1148) => q(bfm),
+      q(1149) => q(bfn),
+      q(1150) => q(bfo),
+      q(1151) => q(bfp),
+      q(1152) => q(bfq),
+      q(1153) => q(bfr),
+      q(1154) => q(bfs),
+      q(1155) => q(bft),
+      q(1156) => q(bfu),
+      q(1157) => q(bfw),
+      q(1158) => q(bfx),
+      q(1159) => q(bfy),
+      q(1160) => q(bfz),
+      q(1161) => q(bga),
+      q(1162) => q(bgb),
+      q(1163) => q(bgc),
+      q(1164) => q(bgd),
+      q(1165) => q(bge),
+      q(1166) => q(bgf),
+      q(1167) => q(bgg),
+      q(1168) => q(bgi),
+      q(1169) => q(bgj),
+      q(1170) => q(bgk),
+      q(1171) => q(bgl),
+      q(1172) => q(bgm),
+      q(1173) => q(bgn),
+      q(1174) => q(bgo),
+      q(1175) => q(bgp),
+      q(1176) => q(bgq),
+      q(1177) => q(bgr),
+      q(1178) => q(bgs),
+      q(1179) => q(bgt),
+      q(1180) => q(bgu),
+      q(1181) => q(bgv),
+      q(1182) => q(bgw),
+      q(1183) => q(bgx),
+      q(1184) => q(bgy),
+      q(1185) => q(bgz),
+      q(1186) => q(bha),
+      q(1187) => q(bhb),
+      q(1188) => q(bhc),
+      q(1189) => q(bhd),
+      q(1190) => q(bhe),
+      q(1191) => q(bhf),
+      q(1192) => q(bhg),
+      q(1193) => q(bhh),
+      q(1194) => q(bhi),
+      q(1195) => q(bhj),
+      q(1196) => q(bhl),
+      q(1197) => q(bhm),
+      q(1198) => q(bhn),
+      q(1199) => q(bhp),
+      q(1200) => q(bhq),
+      q(1201) => q(bhr),
+      q(1202) => q(bhs),
+      q(1203) => q(bht),
+      q(1204) => q(bhu),
+      q(1205) => q(bhv),
+      q(1206) => q(bhw),
+      q(1207) => q(bhx),
+      q(1208) => q(bhy),
+      q(1209) => q(bhz),
+      q(1210) => q(bia),
+      q(1211) => q(bib),
+      q(1212) => q(bic),
+      q(1213) => q(bid),
+      q(1214) => q(bie),
+      q(1215) => q(bif),
+      q(1216) => q(big),
+      q(1217) => q(bij),
+      q(1218) => q(bil),
+      q(1219) => q(bim),
+      q(1220) => q(bio),
+      q(1221) => q(bip),
+      q(1222) => q(biq),
+      q(1223) => q(bir),
+      q(1224) => q(bit),
+      q(1225) => q(biu),
+      q(1226) => q(biv),
+      q(1227) => q(biw),
+      q(1228) => q(bix),
+      q(1229) => q(biy),
+      q(1230) => q(biz),
+      q(1231) => q(bja),
+      q(1232) => q(bjb),
+      q(1233) => q(bjc),
+      q(1234) => q(bje),
+      q(1235) => q(bjf),
+      q(1236) => q(bjg),
+      q(1237) => q(bjh),
+      q(1238) => q(bji),
+      q(1239) => q(bjj),
+      q(1240) => q(bjk),
+      q(1241) => q(bjl),
+      q(1242) => q(bjm),
+      q(1243) => q(bjn),
+      q(1244) => q(bjo),
+      q(1245) => q(bjp),
+      q(1246) => q(bjr),
+      q(1247) => q(bjs),
+      q(1248) => q(bjt),
+      q(1249) => q(bju),
+      q(1250) => q(bjv),
+      q(1251) => q(bjw),
+      q(1252) => q(bjx),
+      q(1253) => q(bjy),
+      q(1254) => q(bjz),
+      q(1255) => q(bka),
+      q(1256) => q(bkc),
+      q(1257) => q(bkd),
+      q(1258) => q(bkf),
+      q(1259) => q(bkg),
+      q(1260) => q(bkh),
+      q(1261) => q(bki),
+      q(1262) => q(bkj),
+      q(1263) => q(bkk),
+      q(1264) => q(bkl),
+      q(1265) => q(bkm),
+      q(1266) => q(bkn),
+      q(1267) => q(bko),
+      q(1268) => q(bkp),
+      q(1269) => q(bkq),
+      q(1270) => q(bkr),
+      q(1271) => q(bks),
+      q(1272) => q(bkt),
+      q(1273) => q(bku),
+      q(1274) => q(bkv),
+      q(1275) => q(bkw),
+      q(1276) => q(bkx),
+      q(1277) => q(bky),
+      q(1278) => q(bkz),
+      q(1279) => q(blb),
+      q(1280) => q(blc),
+      q(1281) => q(bld),
+      q(1282) => q(ble),
+      q(1283) => q(blf),
+      q(1284) => q(blg),
+      q(1285) => q(blh),
+      q(1286) => q(bli),
+      q(1287) => q(blj),
+      q(1288) => q(blk),
+      q(1289) => q(bll),
+      q(1290) => q(blm),
+      q(1291) => q(bln),
+      q(1292) => q(blo),
+      q(1293) => q(blp),
+      q(1294) => q(blq),
+      q(1295) => q(blr),
+      q(1296) => q(bls),
+      q(1297) => q(blt),
+      q(1298) => q(blv),
+      q(1299) => q(blw),
+      q(1300) => q(blx),
+      q(1301) => q(bly),
+      q(1302) => q(blz),
+      q(1303) => q(bma),
+      q(1304) => q(bmb),
+      q(1305) => q(bmc),
+      q(1306) => q(bmd),
+      q(1307) => q(bme),
+      q(1308) => q(bmf),
+      q(1309) => q(bmg),
+      q(1310) => q(bmh),
+      q(1311) => q(bmi),
+      q(1312) => q(bmj),
+      q(1313) => q(bmk),
+      q(1314) => q(bml),
+      q(1315) => q(bmm),
+      q(1316) => q(bmn),
+      q(1317) => q(bmo),
+      q(1318) => q(bmp),
+      q(1319) => q(bmq),
+      q(1320) => q(bmr),
+      q(1321) => q(bms),
+      q(1322) => q(bmt),
+      q(1323) => q(bmu),
+      q(1324) => q(bmv),
+      q(1325) => q(bmw),
+      q(1326) => q(bmx),
+      q(1327) => q(bmz),
+      q(1328) => q(bna),
+      q(1329) => q(bnb),
+      q(1330) => q(bnc),
+      q(1331) => q(bnd),
+      q(1332) => q(bne),
+      q(1333) => q(bnf),
+      q(1334) => q(bng),
+      q(1335) => q(bni),
+      q(1336) => q(bnj),
+      q(1337) => q(bnk),
+      q(1338) => q(bnl),
+      q(1339) => q(bnm),
+      q(1340) => q(bnn),
+      q(1341) => q(bno),
+      q(1342) => q(bnp),
+      q(1343) => q(bnq),
+      q(1344) => q(bnr),
+      q(1345) => q(bns),
+      q(1346) => q(bnu),
+      q(1347) => q(bnv),
+      q(1348) => q(bnw),
+      q(1349) => q(bnx),
+      q(1350) => q(bny),
+      q(1351) => q(bnz),
+      q(1352) => q(boa),
+      q(1353) => q(bob),
+      q(1354) => q(boe),
+      q(1355) => q(bof),
+      q(1356) => q(bog),
+      q(1357) => q(boh),
+      q(1358) => q(boi),
+      q(1359) => q(boj),
+      q(1360) => q(bok),
+      q(1361) => q(bol),
+      q(1362) => q(bom),
+      q(1363) => q(bon),
+      q(1364) => q(boo),
+      q(1365) => q(bop),
+      q(1366) => q(boq),
+      q(1367) => q(bor),
+      q(1368) => q(bot),
+      q(1369) => q(bou),
+      q(1370) => q(bov),
+      q(1371) => q(bow),
+      q(1372) => q(box),
+      q(1373) => q(boy),
+      q(1374) => q(boz),
+      q(1375) => q(bpa),
+      q(1376) => q(bpb),
+      q(1377) => q(bpd),
+      q(1378) => q(bpg),
+      q(1379) => q(bph),
+      q(1380) => q(bpi),
+      q(1381) => q(bpj),
+      q(1382) => q(bpk),
+      q(1383) => q(bpl),
+      q(1384) => q(bpm),
+      q(1385) => q(bpn),
+      q(1386) => q(bpo),
+      q(1387) => q(bpp),
+      q(1388) => q(bpq),
+      q(1389) => q(bpr),
+      q(1390) => q(bps),
+      q(1391) => q(bpt),
+      q(1392) => q(bpu),
+      q(1393) => q(bpv),
+      q(1394) => q(bpw),
+      q(1395) => q(bpx),
+      q(1396) => q(bpy),
+      q(1397) => q(bpz),
+      q(1398) => q(bqa),
+      q(1399) => q(bqb),
+      q(1400) => q(bqc),
+      q(1401) => q(bqd),
+      q(1402) => q(bqf),
+      q(1403) => q(bqg),
+      q(1404) => q(bqh),
+      q(1405) => q(bqi),
+      q(1406) => q(bqj),
+      q(1407) => q(bqk),
+      q(1408) => q(bql),
+      q(1409) => q(bqm),
+      q(1410) => q(bqn),
+      q(1411) => q(bqo),
+      q(1412) => q(bqp),
+      q(1413) => q(bqq),
+      q(1414) => q(bqr),
+      q(1415) => q(bqs),
+      q(1416) => q(bqt),
+      q(1417) => q(bqu),
+      q(1418) => q(bqv),
+      q(1419) => q(bqw),
+      q(1420) => q(bqx),
+      q(1421) => q(bqy),
+      q(1422) => q(bqz),
+      q(1423) => q(brb),
+      q(1424) => q(brc),
+      q(1425) => q(brd),
+      q(1426) => q(brf),
+      q(1427) => q(brg),
+      q(1428) => q(brh),
+      q(1429) => q(bri),
+      q(1430) => q(brj),
+      q(1431) => q(brk),
+      q(1432) => q(brl),
+      q(1433) => q(brm),
+      q(1434) => q(brn),
+      q(1435) => q(bro),
+      q(1436) => q(brp),
+      q(1437) => q(brq),
+      q(1438) => q(brr),
+      q(1439) => q(brs),
+      q(1440) => q(brt),
+      q(1441) => q(bru),
+      q(1442) => q(brv),
+      q(1443) => q(brw),
+      q(1444) => q(brx),
+      q(1445) => q(bry),
+      q(1446) => q(brz),
+      q(1447) => q(bsa),
+      q(1448) => q(bsb),
+      q(1449) => q(bsc),
+      q(1450) => q(bse),
+      q(1451) => q(bsf),
+      q(1452) => q(bsg),
+      q(1453) => q(bsh),
+      q(1454) => q(bsi),
+      q(1455) => q(bsj),
+      q(1456) => q(bsk),
+      q(1457) => q(bsl),
+      q(1458) => q(bsm),
+      q(1459) => q(bsn),
+      q(1460) => q(bso),
+      q(1461) => q(bsp),
+      q(1462) => q(bsq),
+      q(1463) => q(bsr),
+      q(1464) => q(bss),
+      q(1465) => q(bst),
+      q(1466) => q(bsu),
+      q(1467) => q(bsv),
+      q(1468) => q(bsw),
+      q(1469) => q(bsx),
+      q(1470) => q(bsy),
+      q(1471) => q(bta),
+      q(1472) => q(btc),
+      q(1473) => q(btd),
+      q(1474) => q(bte),
+      q(1475) => q(btf),
+      q(1476) => q(btg),
+      q(1477) => q(bth),
+      q(1478) => q(bti),
+      q(1479) => q(btj),
+      q(1480) => q(btl),
+      q(1481) => q(btm),
+      q(1482) => q(btn),
+      q(1483) => q(bto),
+      q(1484) => q(btp),
+      q(1485) => q(btq),
+      q(1486) => q(btr),
+      q(1487) => q(bts),
+      q(1488) => q(btt),
+      q(1489) => q(btu),
+      q(1490) => q(btv),
+      q(1491) => q(btw),
+      q(1492) => q(btx),
+      q(1493) => q(bty),
+      q(1494) => q(btz),
+      q(1495) => q(bub),
+      q(1496) => q(buc),
+      q(1497) => q(bud),
+      q(1498) => q(bue),
+      q(1499) => q(buf),
+      q(1500) => q(buh),
+      q(1501) => q(bui),
+      q(1502) => q(buj),
+      q(1503) => q(buk),
+      q(1504) => q(bum),
+      q(1505) => q(bun),
+      q(1506) => q(buo),
+      q(1507) => q(bup),
+      q(1508) => q(buq),
+      q(1509) => q(bus),
+      q(1510) => q(but),
+      q(1511) => q(buu),
+      q(1512) => q(buv),
+      q(1513) => q(buw),
+      q(1514) => q(bux),
+      q(1515) => q(buy),
+      q(1516) => q(buz),
+      q(1517) => q(bva),
+      q(1518) => q(bvb),
+      q(1519) => q(bvc),
+      q(1520) => q(bvd),
+      q(1521) => q(bve),
+      q(1522) => q(bvf),
+      q(1523) => q(bvg),
+      q(1524) => q(bvh),
+      q(1525) => q(bvi),
+      q(1526) => q(bvj),
+      q(1527) => q(bvk),
+      q(1528) => q(bvl),
+      q(1529) => q(bvm),
+      q(1530) => q(bvn),
+      q(1531) => q(bvo),
+      q(1532) => q(bvp),
+      q(1533) => q(bvq),
+      q(1534) => q(bvr),
+      q(1535) => q(bvt),
+      q(1536) => q(bvu),
+      q(1537) => q(bvv),
+      q(1538) => q(bvw),
+      q(1539) => q(bvx),
+      q(1540) => q(bvy),
+      q(1541) => q(bvz),
+      q(1542) => q(bwa),
+      q(1543) => q(bwb),
+      q(1544) => q(bwc),
+      q(1545) => q(bwd),
+      q(1546) => q(bwe),
+      q(1547) => q(bwf),
+      q(1548) => q(bwg),
+      q(1549) => q(bwh),
+      q(1550) => q(bwi),
+      q(1551) => q(bwj),
+      q(1552) => q(bwk),
+      q(1553) => q(bwl),
+      q(1554) => q(bwm),
+      q(1555) => q(bwn),
+      q(1556) => q(bwo),
+      q(1557) => q(bwp),
+      q(1558) => q(bwq),
+      q(1559) => q(bwr),
+      q(1560) => q(bws),
+      q(1561) => q(bwt),
+      q(1562) => q(bwu),
+      q(1563) => q(bww),
+      q(1564) => q(bwx),
+      q(1565) => q(bwy),
+      q(1566) => q(bwz),
+      q(1567) => q(bxa),
+      q(1568) => q(bxb),
+      q(1569) => q(bxc),
+      q(1570) => q(bxd),
+      q(1571) => q(bxe),
+      q(1572) => q(bxf),
+      q(1573) => q(bxg),
+      q(1574) => q(bxh),
+      q(1575) => q(bxi),
+      q(1576) => q(bxj),
+      q(1577) => q(bxk),
+      q(1578) => q(bxl),
+      q(1579) => q(bxm),
+      q(1580) => q(bxn),
+      q(1581) => q(bxo),
+      q(1582) => q(bxp),
+      q(1583) => q(bxq),
+      q(1584) => q(bxr),
+      q(1585) => q(bxs),
+      q(1586) => q(bxu),
+      q(1587) => q(bxv),
+      q(1588) => q(bxw),
+      q(1589) => q(bxz),
+      q(1590) => q(bya),
+      q(1591) => q(byb),
+      q(1592) => q(byc),
+      q(1593) => q(byd),
+      q(1594) => q(bye),
+      q(1595) => q(byf),
+      q(1596) => q(byg),
+      q(1597) => q(byh),
+      q(1598) => q(byi),
+      q(1599) => q(byj),
+      q(1600) => q(byk),
+      q(1601) => q(byl),
+      q(1602) => q(bym),
+      q(1603) => q(byo),
+      q(1604) => q(byp),
+      q(1605) => q(byq),
+      q(1606) => q(byr),
+      q(1607) => q(bys),
+      q(1608) => q(byt),
+      q(1609) => q(byv),
+      q(1610) => q(byw),
+      q(1611) => q(byx),
+      q(1612) => q(byz),
+      q(1613) => q(bza),
+      q(1614) => q(bzb),
+      q(1615) => q(bzc),
+      q(1616) => q(bzd),
+      q(1617) => q(bze),
+      q(1618) => q(bzf),
+      q(1619) => q(bzg),
+      q(1620) => q(bzh),
+      q(1621) => q(bzi),
+      q(1622) => q(bzj),
+      q(1623) => q(bzk),
+      q(1624) => q(bzl),
+      q(1625) => q(bzm),
+      q(1626) => q(bzn),
+      q(1627) => q(bzo),
+      q(1628) => q(bzp),
+      q(1629) => q(bzq),
+      q(1630) => q(bzr),
+      q(1631) => q(bzs),
+      q(1632) => q(bzt),
+      q(1633) => q(bzu),
+      q(1634) => q(bzv),
+      q(1635) => q(bzw),
+      q(1636) => q(bzx),
+      q(1637) => q(bzy),
+      q(1638) => q(bzz),
+      q(1639) => q(caa),
+      q(1640) => q(cab),
+      q(1641) => q(cac),
+      q(1642) => q(cae),
+      q(1643) => q(caf),
+      q(1644) => q(cag),
+      q(1645) => q(cah),
+      q(1646) => q(caj),
+      q(1647) => q(cak),
+      q(1648) => q(cal),
+      q(1649) => q(cam),
+      q(1650) => q(can),
+      q(1651) => q(cao),
+      q(1652) => q(cap),
+      q(1653) => q(caq),
+      q(1654) => q(cas),
+      q(1655) => q(cav),
+      q(1656) => q(caw),
+      q(1657) => q(cax),
+      q(1658) => q(cay),
+      q(1659) => q(caz),
+      q(1660) => q(cbb),
+      q(1661) => q(cbc),
+      q(1662) => q(cbd),
+      q(1663) => q(cbe),
+      q(1664) => q(cbg),
+      q(1665) => q(cbh),
+      q(1666) => q(cbi),
+      q(1667) => q(cbj),
+      q(1668) => q(cbk),
+      q(1669) => q(cbl),
+      q(1670) => q(cbn),
+      q(1671) => q(cbo),
+      q(1672) => q(cbq),
+      q(1673) => q(cbr),
+      q(1674) => q(cbs),
+      q(1675) => q(cbt),
+      q(1676) => q(cbu),
+      q(1677) => q(cbv),
+      q(1678) => q(cbw),
+      q(1679) => q(cby),
+      q(1680) => q(cca),
+      q(1681) => q(ccc),
+      q(1682) => q(ccd),
+      q(1683) => q(cce),
+      q(1684) => q(ccg),
+      q(1685) => q(cch),
+      q(1686) => q(ccj),
+      q(1687) => q(ccl),
+      q(1688) => q(ccm),
+      q(1689) => q(cco),
+      q(1690) => q(ccp),
+      q(1691) => q(ccr),
+      q(1692) => q(cda),
+      q(1693) => q(cde),
+      q(1694) => q(cdf),
+      q(1695) => q(cdg),
+      q(1696) => q(cdh),
+      q(1697) => q(cdi),
+      q(1698) => q(cdj),
+      q(1699) => q(cdm),
+      q(1700) => q(cdn),
+      q(1701) => q(cdo),
+      q(1702) => q(cdr),
+      q(1703) => q(cds),
+      q(1704) => q(cdy),
+      q(1705) => q(cdz),
+      q(1706) => q(cea),
+      q(1707) => q(ceg),
+      q(1708) => q(cek),
+      q(1709) => q(cen),
+      q(1710) => q(cet),
+      q(1711) => q(cfa),
+      q(1712) => q(cfd),
+      q(1713) => q(cfg),
+      q(1714) => q(cfm),
+      q(1715) => q(cga),
+      q(1716) => q(cgc),
+      q(1717) => q(cgg),
+      q(1718) => q(cgk),
+      q(1719) => q(chc),
+      q(1720) => q(chd),
+      q(1721) => q(chf),
+      q(1722) => q(chh),
+      q(1723) => q(chj),
+      q(1724) => q(chl),
+      q(1725) => q(chq),
+      q(1726) => q(cht),
+      q(1727) => q(chw),
+      q(1728) => q(chx),
+      q(1729) => q(chz),
+      q(1730) => q(cia),
+      q(1731) => q(cib),
+      q(1732) => q(cic),
+      q(1733) => q(cid),
+      q(1734) => q(cie),
+      q(1735) => q(cih),
+      q(1736) => q(cik),
+      q(1737) => q(cim),
+      q(1738) => q(cin),
+      q(1739) => q(cip),
+      q(1740) => q(cir),
+      q(1741) => q(ciw),
+      q(1742) => q(ciy),
+      q(1743) => q(cja),
+      q(1744) => q(cje),
+      q(1745) => q(cjh),
+      q(1746) => q(cji),
+      q(1747) => q(cjk),
+      q(1748) => q(cjm),
+      q(1749) => q(cjn),
+      q(1750) => q(cjo),
+      q(1751) => q(cjp),
+      q(1752) => q(cjs),
+      q(1753) => q(cjv),
+      q(1754) => q(cjy),
+      q(1755) => q(ckb),
+      q(1756) => q(ckh),
+      q(1757) => q(ckl),
+      q(1758) => q(ckn),
+      q(1759) => q(cko),
+      q(1760) => q(ckq),
+      q(1761) => q(ckr),
+      q(1762) => q(cks),
+      q(1763) => q(ckt),
+      q(1764) => q(cku),
+      q(1765) => q(ckv),
+      q(1766) => q(ckx),
+      q(1767) => q(cky),
+      q(1768) => q(ckz),
+      q(1769) => q(cla),
+      q(1770) => q(clc),
+      q(1771) => q(cld),
+      q(1772) => q(cle),
+      q(1773) => q(clh),
+      q(1774) => q(cli),
+      q(1775) => q(clj),
+      q(1776) => q(clk),
+      q(1777) => q(cll),
+      q(1778) => q(clm),
+      q(1779) => q(clo),
+      q(1780) => q(clt),
+      q(1781) => q(clu),
+      q(1782) => q(clw),
+      q(1783) => q(cly),
+      q(1784) => q(cma),
+      q(1785) => q(cme),
+      q(1786) => q(cmg),
+      q(1787) => q(cmi),
+      q(1788) => q(cml),
+      q(1789) => q(cmm),
+      q(1790) => q(cmn),
+      q(1791) => q(cmo),
+      q(1792) => q(cmr),
+      q(1793) => q(cms),
+      q(1794) => q(cmt),
+      q(1795) => q(cna),
+      q(1796) => q(cnb),
+      q(1797) => q(cnc),
+      q(1798) => q(cng),
+      q(1799) => q(cnh),
+      q(1800) => q(cni),
+      q(1801) => q(cnk),
+      q(1802) => q(cnl),
+      q(1803) => q(cno),
+      q(1804) => q(cns),
+      q(1805) => q(cnt),
+      q(1806) => q(cnu),
+      q(1807) => q(cnw),
+      q(1808) => q(cnx),
+      q(1809) => q(coa),
+      q(1810) => q(cob),
+      q(1811) => q(coc),
+      q(1812) => q(cod),
+      q(1813) => q(coe),
+      q(1814) => q(cof),
+      q(1815) => q(cog),
+      q(1816) => q(coh),
+      q(1817) => q(coj),
+      q(1818) => q(cok),
+      q(1819) => q(col),
+      q(1820) => q(com),
+      q(1821) => q(con),
+      q(1822) => q(coo),
+      q(1823) => q(coq),
+      q(1824) => q(cot),
+      q(1825) => q(cou),
+      q(1826) => q(cov),
+      q(1827) => q(cow),
+      q(1828) => q(cox),
+      q(1829) => q(coy),
+      q(1830) => q(coz),
+      q(1831) => q(cpa),
+      q(1832) => q(cpb),
+      q(1833) => q(cpc),
+      q(1834) => q(cpg),
+      q(1835) => q(cpi),
+      q(1836) => q(cpn),
+      q(1837) => q(cpo),
+      q(1838) => q(cps),
+      q(1839) => q(cpu),
+      q(1840) => q(cpx),
+      q(1841) => q(cpy),
+      q(1842) => q(cqd),
+      q(1843) => q(cqu),
+      q(1844) => q(cra),
+      q(1845) => q(crb),
+      q(1846) => q(crc),
+      q(1847) => q(crd),
+      q(1848) => q(crf),
+      q(1849) => q(crg),
+      q(1850) => q(cri),
+      q(1851) => q(crj),
+      q(1852) => q(crk),
+      q(1853) => q(crl),
+      q(1854) => q(crm),
+      q(1855) => q(crn),
+      q(1856) => q(cro),
+      q(1857) => q(crq),
+      q(1858) => q(crr),
+      q(1859) => q(crs),
+      q(1860) => q(crt),
+      q(1861) => q(crv),
+      q(1862) => q(crw),
+      q(1863) => q(crx),
+      q(1864) => q(cry),
+      q(1865) => q(crz),
+      q(1866) => q(csa),
+      q(1867) => q(csc),
+      q(1868) => q(csd),
+      q(1869) => q(cse),
+      q(1870) => q(csf),
+      q(1871) => q(csg),
+      q(1872) => q(csh),
+      q(1873) => q(csi),
+      q(1874) => q(csj),
+      q(1875) => q(csk),
+      q(1876) => q(csl),
+      q(1877) => q(csm),
+      q(1878) => q(csn),
+      q(1879) => q(cso),
+      q(1880) => q(csq),
+      q(1881) => q(csr),
+      q(1882) => q(css),
+      q(1883) => q(cst),
+      q(1884) => q(csv),
+      q(1885) => q(csw),
+      q(1886) => q(csy),
+      q(1887) => q(csz),
+      q(1888) => q(cta),
+      q(1889) => q(ctc),
+      q(1890) => q(ctd),
+      q(1891) => q(cte),
+      q(1892) => q(ctg),
+      q(1893) => q(cth),
+      q(1894) => q(ctl),
+      q(1895) => q(ctm),
+      q(1896) => q(ctn),
+      q(1897) => q(cto),
+      q(1898) => q(ctp),
+      q(1899) => q(cts),
+      q(1900) => q(ctt),
+      q(1901) => q(ctu),
+      q(1902) => q(ctz),
+      q(1903) => q(cua),
+      q(1904) => q(cub),
+      q(1905) => q(cuc),
+      q(1906) => q(cug),
+      q(1907) => q(cuh),
+      q(1908) => q(cui),
+      q(1909) => q(cuj),
+      q(1910) => q(cuk),
+      q(1911) => q(cul),
+      q(1912) => q(cum),
+      q(1913) => q(cuo),
+      q(1914) => q(cup),
+      q(1915) => q(cuq),
+      q(1916) => q(cur),
+      q(1917) => q(cut),
+      q(1918) => q(cuu),
+      q(1919) => q(cuv),
+      q(1920) => q(cuw),
+      q(1921) => q(cux),
+      q(1922) => q(cvg),
+      q(1923) => q(cvn),
+      q(1924) => q(cwa),
+      q(1925) => q(cwb),
+      q(1926) => q(cwd),
+      q(1927) => q(cwe),
+      q(1928) => q(cwg),
+      q(1929) => q(cwt),
+      q(1930) => q(cya),
+      q(1931) => q(cyb),
+      q(1932) => q(cyo),
+      q(1933) => q(czh),
+      q(1934) => q(czk),
+      q(1935) => q(czn),
+      q(1936) => q(czo),
+      q(1937) => q(czt),
+      q(1938) => q(daa),
+      q(1939) => q(dac),
+      q(1940) => q(dad),
+      q(1941) => q(dae),
+      q(1942) => q(dag),
+      q(1943) => q(dah),
+      q(1944) => q(dai),
+      q(1945) => q(daj),
+      q(1946) => q(dal),
+      q(1947) => q(dam),
+      q(1948) => q(dao),
+      q(1949) => q(daq),
+      q(1950) => q(das),
+      q(1951) => q(dau),
+      q(1952) => q(dav),
+      q(1953) => q(daw),
+      q(1954) => q(dax),
+      q(1955) => q(daz),
+      q(1956) => q(dba),
+      q(1957) => q(dbb),
+      q(1958) => q(dbd),
+      q(1959) => q(dbe),
+      q(1960) => q(dbf),
+      q(1961) => q(dbg),
+      q(1962) => q(dbi),
+      q(1963) => q(dbj),
+      q(1964) => q(dbl),
+      q(1965) => q(dbm),
+      q(1966) => q(dbn),
+      q(1967) => q(dbo),
+      q(1968) => q(dbp),
+      q(1969) => q(dbq),
+      q(1970) => q(dbr),
+      q(1971) => q(dbt),
+      q(1972) => q(dbu),
+      q(1973) => q(dbv),
+      q(1974) => q(dbw),
+      q(1975) => q(dby),
+      q(1976) => q(dcc),
+      q(1977) => q(dcr),
+      q(1978) => q(dda),
+      q(1979) => q(ddd),
+      q(1980) => q(dde),
+      q(1981) => q(ddg),
+      q(1982) => q(ddi),
+      q(1983) => q(ddj),
+      q(1984) => q(ddn),
+      q(1985) => q(ddo),
+      q(1986) => q(ddr),
+      q(1987) => q(dds),
+      q(1988) => q(ddw),
+      q(1989) => q(dec),
+      q(1990) => q(ded),
+      q(1991) => q(dee),
+      q(1992) => q(def),
+      q(1993) => q(deg),
+      q(1994) => q(deh),
+      q(1995) => q(dei),
+      q(1996) => q(dek),
+      q(1997) => q(dem),
+      q(1998) => q(dep),
+      q(1999) => q(deq),
+      q(2000) => q(der),
+      q(2001) => q(des),
+      q(2002) => q(dev),
+      q(2003) => q(dez),
+      q(2004) => q(dga),
+      q(2005) => q(dgb),
+      q(2006) => q(dgc),
+      q(2007) => q(dgd),
+      q(2008) => q(dge),
+      q(2009) => q(dgg),
+      q(2010) => q(dgh),
+      q(2011) => q(dgi),
+      q(2012) => q(dgk),
+      q(2013) => q(dgl),
+      q(2014) => q(dgn),
+      q(2015) => q(dgo),
+      q(2016) => q(dgs),
+      q(2017) => q(dgt),
+      q(2018) => q(dgu),
+      q(2019) => q(dgw),
+      q(2020) => q(dgx),
+      q(2021) => q(dgz),
+      q(2022) => q(dhd),
+      q(2023) => q(dhg),
+      q(2024) => q(dhi),
+      q(2025) => q(dhl),
+      q(2026) => q(dhm),
+      q(2027) => q(dhn),
+      q(2028) => q(dho),
+      q(2029) => q(dhr),
+      q(2030) => q(dhs),
+      q(2031) => q(dhu),
+      q(2032) => q(dhv),
+      q(2033) => q(dhw),
+      q(2034) => q(dhx),
+      q(2035) => q(dia),
+      q(2036) => q(dib),
+      q(2037) => q(dic),
+      q(2038) => q(did),
+      q(2039) => q(dif),
+      q(2040) => q(dig),
+      q(2041) => q(dih),
+      q(2042) => q(dii),
+      q(2043) => q(dij),
+      q(2044) => q(dik),
+      q(2045) => q(dil),
+      q(2046) => q(dim),
+      q(2047) => q(dio),
+      q(2048) => q(dip),
+      q(2049) => q(diq),
+      q(2050) => q(dir),
+      q(2051) => q(dis),
+      q(2052) => q(dit),
+      q(2053) => q(diu),
+      q(2054) => q(diw),
+      q(2055) => q(dix),
+      q(2056) => q(diy),
+      q(2057) => q(diz),
+      q(2058) => q(dja),
+      q(2059) => q(djb),
+      q(2060) => q(djc),
+      q(2061) => q(djd),
+      q(2062) => q(dje),
+      q(2063) => q(djf),
+      q(2064) => q(dji),
+      q(2065) => q(djj),
+      q(2066) => q(djk),
+      q(2067) => q(djm),
+      q(2068) => q(djn),
+      q(2069) => q(djo),
+      q(2070) => q(djr),
+      q(2071) => q(dju),
+      q(2072) => q(djw),
+      q(2073) => q(dka),
+      q(2074) => q(dkk),
+      q(2075) => q(dkr),
+      q(2076) => q(dks),
+      q(2077) => q(dkx),
+      q(2078) => q(dlg),
+      q(2079) => q(dlk),
+      q(2080) => q(dlm),
+      q(2081) => q(dln),
+      q(2082) => q(dma),
+      q(2083) => q(dmb),
+      q(2084) => q(dmc),
+      q(2085) => q(dmd),
+      q(2086) => q(dme),
+      q(2087) => q(dmg),
+      q(2088) => q(dmk),
+      q(2089) => q(dml),
+      q(2090) => q(dmm),
+      q(2091) => q(dmo),
+      q(2092) => q(dmr),
+      q(2093) => q(dms),
+      q(2094) => q(dmu),
+      q(2095) => q(dmv),
+      q(2096) => q(dmw),
+      q(2097) => q(dmx),
+      q(2098) => q(dmy),
+      q(2099) => q(dna),
+      q(2100) => q(dnd),
+      q(2101) => q(dne),
+      q(2102) => q(dng),
+      q(2103) => q(dni),
+      q(2104) => q(dnj),
+      q(2105) => q(dnk),
+      q(2106) => q(dnn),
+      q(2107) => q(dnr),
+      q(2108) => q(dnt),
+      q(2109) => q(dnu),
+      q(2110) => q(dnv),
+      q(2111) => q(dnw),
+      q(2112) => q(dny),
+      q(2113) => q(doa),
+      q(2114) => q(dob),
+      q(2115) => q(doc),
+      q(2116) => q(doe),
+      q(2117) => q(dof),
+      q(2118) => q(doh),
+      q(2119) => q(dok),
+      q(2120) => q(dol),
+      q(2121) => q(don),
+      q(2122) => q(doo),
+      q(2123) => q(dop),
+      q(2124) => q(doq),
+      q(2125) => q(dor),
+      q(2126) => q(dos),
+      q(2127) => q(dot),
+      q(2128) => q(dov),
+      q(2129) => q(dow),
+      q(2130) => q(dox),
+      q(2131) => q(doy),
+      q(2132) => q(doz),
+      q(2133) => q(dpp),
+      q(2134) => q(drb),
+      q(2135) => q(drc),
+      q(2136) => q(drd),
+      q(2137) => q(dre),
+      q(2138) => q(drg),
+      q(2139) => q(dri),
+      q(2140) => q(drl),
+      q(2141) => q(drn),
+      q(2142) => q(dro),
+      q(2143) => q(drq),
+      q(2144) => q(drr),
+      q(2145) => q(drs),
+      q(2146) => q(drt),
+      q(2147) => q(dru),
+      q(2148) => q(dry),
+      q(2149) => q(dse),
+      q(2150) => q(dsh),
+      q(2151) => q(dsi),
+      q(2152) => q(dsl),
+      q(2153) => q(dsn),
+      q(2154) => q(dso),
+      q(2155) => q(dsq),
+      q(2156) => q(dta),
+      q(2157) => q(dtb),
+      q(2158) => q(dtd),
+      q(2159) => q(dth),
+      q(2160) => q(dti),
+      q(2161) => q(dtk),
+      q(2162) => q(dtm),
+      q(2163) => q(dto),
+      q(2164) => q(dtp),
+      q(2165) => q(dtr),
+      q(2166) => q(dts),
+      q(2167) => q(dtt),
+      q(2168) => q(dtu),
+      q(2169) => q(dty),
+      q(2170) => q(dub),
+      q(2171) => q(duc),
+      q(2172) => q(dud),
+      q(2173) => q(due),
+      q(2174) => q(duf),
+      q(2175) => q(dug),
+      q(2176) => q(duh),
+      q(2177) => q(dui),
+      q(2178) => q(duj),
+      q(2179) => q(duk),
+      q(2180) => q(dul),
+      q(2181) => q(dun),
+      q(2182) => q(duo),
+      q(2183) => q(dup),
+      q(2184) => q(duq),
+      q(2185) => q(dur),
+      q(2186) => q(dus),
+      q(2187) => q(duu),
+      q(2188) => q(duv),
+      q(2189) => q(duw),
+      q(2190) => q(dux),
+      q(2191) => q(duy),
+      q(2192) => q(duz),
+      q(2193) => q(dva),
+      q(2194) => q(dwa),
+      q(2195) => q(dwr),
+      q(2196) => q(dws),
+      q(2197) => q(dww),
+      q(2198) => q(dya),
+      q(2199) => q(dyb),
+      q(2200) => q(dyd),
+      q(2201) => q(dyg),
+      q(2202) => q(dyi),
+      q(2203) => q(dym),
+      q(2204) => q(dyn),
+      q(2205) => q(dyo),
+      q(2206) => q(dyy),
+      q(2207) => q(dza),
+      q(2208) => q(dze),
+      q(2209) => q(dzg),
+      q(2210) => q(dzl),
+      q(2211) => q(dzn),
+      q(2212) => q(eaa),
+      q(2213) => q(ebg),
+      q(2214) => q(ebk),
+      q(2215) => q(ebo),
+      q(2216) => q(ebr),
+      q(2217) => q(ebu),
+      q(2218) => q(ecr),
+      q(2219) => q(ecs),
+      q(2220) => q(ecy),
+      q(2221) => q(eee),
+      q(2222) => q(efa),
+      q(2223) => q(efe),
+      q(2224) => q(ega),
+      q(2225) => q(egl),
+      q(2226) => q(ego),
+      q(2227) => q(ehu),
+      q(2228) => q(eip),
+      q(2229) => q(eit),
+      q(2230) => q(eiv),
+      q(2231) => q(eja),
+      q(2232) => q(ekc),
+      q(2233) => q(eke),
+      q(2234) => q(ekg),
+      q(2235) => q(eki),
+      q(2236) => q(ekk),
+      q(2237) => q(ekl),
+      q(2238) => q(ekm),
+      q(2239) => q(eko),
+      q(2240) => q(ekp),
+      q(2241) => q(ekr),
+      q(2242) => q(eky),
+      q(2243) => q(ele),
+      q(2244) => q(elh),
+      q(2245) => q(eli),
+      q(2246) => q(elk),
+      q(2247) => q(elm),
+      q(2248) => q(elo),
+      q(2249) => q(elu),
+      q(2250) => q(ema),
+      q(2251) => q(emb),
+      q(2252) => q(eme),
+      q(2253) => q(emg),
+      q(2254) => q(emi),
+      q(2255) => q(emk),
+      q(2256) => q(emm),
+      q(2257) => q(emn),
+      q(2258) => q(emp),
+      q(2259) => q(ems),
+      q(2260) => q(emu),
+      q(2261) => q(emw),
+      q(2262) => q(emx),
+      q(2263) => q(emy),
+      q(2264) => q(ena),
+      q(2265) => q(enb),
+      q(2266) => q(enc),
+      q(2267) => q(end),
+      q(2268) => q(enf),
+      q(2269) => q(enh),
+      q(2270) => q(enl),
+      q(2271) => q(enn),
+      q(2272) => q(eno),
+      q(2273) => q(enq),
+      q(2274) => q(enr),
+      q(2275) => q(enu),
+      q(2276) => q(env),
+      q(2277) => q(enw),
+      q(2278) => q(enx),
+      q(2279) => q(eot),
+      q(2280) => q(epi),
+      q(2281) => q(era),
+      q(2282) => q(erg),
+      q(2283) => q(erh),
+      q(2284) => q(eri),
+      q(2285) => q(erk),
+      q(2286) => q(ero),
+      q(2287) => q(err),
+      q(2288) => q(ers),
+      q(2289) => q(ert),
+      q(2290) => q(erw),
+      q(2291) => q(ese),
+      q(2292) => q(esh),
+      q(2293) => q(esi),
+      q(2294) => q(esk),
+      q(2295) => q(esl),
+      q(2296) => q(esm),
+      q(2297) => q(esn),
+      q(2298) => q(eso),
+      q(2299) => q(esq),
+      q(2300) => q(ess),
+      q(2301) => q(esu),
+      q(2302) => q(esy),
+      q(2303) => q(etb),
+      q(2304) => q(etc),
+      q(2305) => q(eth),
+      q(2306) => q(etn),
+      q(2307) => q(eto),
+      q(2308) => q(etr),
+      q(2309) => q(ets),
+      q(2310) => q(ett),
+      q(2311) => q(etu),
+      q(2312) => q(etx),
+      q(2313) => q(etz),
+      q(2314) => q(eve),
+      q(2315) => q(evh),
+      q(2316) => q(evn),
+      q(2317) => q(ext),
+      q(2318) => q(eya),
+      q(2319) => q(eyo),
+      q(2320) => q(eza),
+      q(2321) => q(eze),
+      q(2322) => q(faa),
+      q(2323) => q(fab),
+      q(2324) => q(fad),
+      q(2325) => q(faf),
+      q(2326) => q(fag),
+      q(2327) => q(fah),
+      q(2328) => q(fai),
+      q(2329) => q(faj),
+      q(2330) => q(fak),
+      q(2331) => q(fal),
+      q(2332) => q(fam),
+      q(2333) => q(fap),
+      q(2334) => q(far),
+      q(2335) => q(fau),
+      q(2336) => q(fax),
+      q(2337) => q(fay),
+      q(2338) => q(faz),
+      q(2339) => q(fbl),
+      q(2340) => q(fcs),
+      q(2341) => q(fer),
+      q(2342) => q(ffi),
+      q(2343) => q(ffm),
+      q(2344) => q(fgr),
+      q(2345) => q(fia),
+      q(2346) => q(fie),
+      q(2347) => q(fip),
+      q(2348) => q(fir),
+      q(2349) => q(fit),
+      q(2350) => q(fiw),
+      q(2351) => q(fkk),
+      q(2352) => q(fkv),
+      q(2353) => q(fla),
+      q(2354) => q(flh),
+      q(2355) => q(fli),
+      q(2356) => q(fll),
+      q(2357) => q(fln),
+      q(2358) => q(flr),
+      q(2359) => q(fly),
+      q(2360) => q(fmp),
+      q(2361) => q(fmu),
+      q(2362) => q(fng),
+      q(2363) => q(fni),
+      q(2364) => q(fod),
+      q(2365) => q(foi),
+      q(2366) => q(fom),
+      q(2367) => q(for),
+      q(2368) => q(fos),
+      q(2369) => q(fpe),
+      q(2370) => q(fqs),
+      q(2371) => q(frc),
+      q(2372) => q(frd),
+      q(2373) => q(frk),
+      q(2374) => q(frp),
+      q(2375) => q(frq),
+      q(2376) => q(frt),
+      q(2377) => q(fse),
+      q(2378) => q(fsl),
+      q(2379) => q(fss),
+      q(2380) => q(fub),
+      q(2381) => q(fuc),
+      q(2382) => q(fud),
+      q(2383) => q(fue),
+      q(2384) => q(fuf),
+      q(2385) => q(fuh),
+      q(2386) => q(fui),
+      q(2387) => q(fuj),
+      q(2388) => q(fum),
+      q(2389) => q(fun),
+      q(2390) => q(fuq),
+      q(2391) => q(fut),
+      q(2392) => q(fuu),
+      q(2393) => q(fuv),
+      q(2394) => q(fuy),
+      q(2395) => q(fvr),
+      q(2396) => q(fwa),
+      q(2397) => q(fwe),
+      q(2398) => q(gab),
+      q(2399) => q(gac),
+      q(2400) => q(gad),
+      q(2401) => q(gae),
+      q(2402) => q(gaf),
+      q(2403) => q(gag),
+      q(2404) => q(gah),
+      q(2405) => q(gai),
+      q(2406) => q(gaj),
+      q(2407) => q(gak),
+      q(2408) => q(gal),
+      q(2409) => q(gam),
+      q(2410) => q(gan),
+      q(2411) => q(gao),
+      q(2412) => q(gap),
+      q(2413) => q(gaq),
+      q(2414) => q(gar),
+      q(2415) => q(gas),
+      q(2416) => q(gat),
+      q(2417) => q(gau),
+      q(2418) => q(gaw),
+      q(2419) => q(gax),
+      q(2420) => q(gaz),
+      q(2421) => q(gbb),
+      q(2422) => q(gbd),
+      q(2423) => q(gbe),
+      q(2424) => q(gbf),
+      q(2425) => q(gbg),
+      q(2426) => q(gbh),
+      q(2427) => q(gbi),
+      q(2428) => q(gbj),
+      q(2429) => q(gbk),
+      q(2430) => q(gbl),
+      q(2431) => q(gbm),
+      q(2432) => q(gbn),
+      q(2433) => q(gbo),
+      q(2434) => q(gbp),
+      q(2435) => q(gbq),
+      q(2436) => q(gbr),
+      q(2437) => q(gbs),
+      q(2438) => q(gbu),
+      q(2439) => q(gbv),
+      q(2440) => q(gbw),
+      q(2441) => q(gbx),
+      q(2442) => q(gby),
+      q(2443) => q(gbz),
+      q(2444) => q(gcc),
+      q(2445) => q(gcd),
+      q(2446) => q(gce),
+      q(2447) => q(gcf),
+      q(2448) => q(gcl),
+      q(2449) => q(gcn),
+      q(2450) => q(gcr),
+      q(2451) => q(gct),
+      q(2452) => q(gda),
+      q(2453) => q(gdb),
+      q(2454) => q(gdc),
+      q(2455) => q(gdd),
+      q(2456) => q(gde),
+      q(2457) => q(gdf),
+      q(2458) => q(gdg),
+      q(2459) => q(gdh),
+      q(2460) => q(gdi),
+      q(2461) => q(gdj),
+      q(2462) => q(gdk),
+      q(2463) => q(gdl),
+      q(2464) => q(gdm),
+      q(2465) => q(gdn),
+      q(2466) => q(gdo),
+      q(2467) => q(gdq),
+      q(2468) => q(gdr),
+      q(2469) => q(gds),
+      q(2470) => q(gdt),
+      q(2471) => q(gdu),
+      q(2472) => q(gdx),
+      q(2473) => q(gea),
+      q(2474) => q(geb),
+      q(2475) => q(gec),
+      q(2476) => q(ged),
+      q(2477) => q(geg),
+      q(2478) => q(geh),
+      q(2479) => q(gei),
+      q(2480) => q(gej),
+      q(2481) => q(gek),
+      q(2482) => q(gel),
+      q(2483) => q(geq),
+      q(2484) => q(ges),
+      q(2485) => q(gev),
+      q(2486) => q(gew),
+      q(2487) => q(gex),
+      q(2488) => q(gey),
+      q(2489) => q(gfk),
+      q(2490) => q(gft),
+      q(2491) => q(gga),
+      q(2492) => q(ggb),
+      q(2493) => q(ggd),
+      q(2494) => q(gge),
+      q(2495) => q(ggg),
+      q(2496) => q(ggk),
+      q(2497) => q(ggl),
+      q(2498) => q(ggn),
+      q(2499) => q(ggo),
+      q(2500) => q(ggt),
+      q(2501) => q(ggu),
+      q(2502) => q(ggw),
+      q(2503) => q(gha),
+      q(2504) => q(ghc),
+      q(2505) => q(ghe),
+      q(2506) => q(ghh),
+      q(2507) => q(ghk),
+      q(2508) => q(ghl),
+      q(2509) => q(ghn),
+      q(2510) => q(gho),
+      q(2511) => q(ghr),
+      q(2512) => q(ghs),
+      q(2513) => q(ght),
+      q(2514) => q(gia),
+      q(2515) => q(gib),
+      q(2516) => q(gic),
+      q(2517) => q(gid),
+      q(2518) => q(gig),
+      q(2519) => q(gih),
+      q(2520) => q(gim),
+      q(2521) => q(gin),
+      q(2522) => q(gip),
+      q(2523) => q(giq),
+      q(2524) => q(gir),
+      q(2525) => q(gis),
+      q(2526) => q(git),
+      q(2527) => q(giu),
+      q(2528) => q(giw),
+      q(2529) => q(gix),
+      q(2530) => q(giy),
+      q(2531) => q(giz),
+      q(2532) => q(gji),
+      q(2533) => q(gjk),
+      q(2534) => q(gjm),
+      q(2535) => q(gjn),
+      q(2536) => q(gju),
+      q(2537) => q(gka),
+      q(2538) => q(gke),
+      q(2539) => q(gkn),
+      q(2540) => q(gko),
+      q(2541) => q(gkp),
+      q(2542) => q(gku),
+      q(2543) => q(glc),
+      q(2544) => q(gld),
+      q(2545) => q(glh),
+      q(2546) => q(gli),
+      q(2547) => q(glj),
+      q(2548) => q(glk),
+      q(2549) => q(gll),
+      q(2550) => q(glo),
+      q(2551) => q(glr),
+      q(2552) => q(glu),
+      q(2553) => q(glw),
+      q(2554) => q(gly),
+      q(2555) => q(gma),
+      q(2556) => q(gmb),
+      q(2557) => q(gmd),
+      q(2558) => q(gmg),
+      q(2559) => q(gml),
+      q(2560) => q(gmm),
+      q(2561) => q(gmn),
+      q(2562) => q(gmu),
+      q(2563) => q(gmv),
+      q(2564) => q(gmx),
+      q(2565) => q(gmy),
+      q(2566) => q(gmz),
+      q(2567) => q(gna),
+      q(2568) => q(gnb),
+      q(2569) => q(gnc),
+      q(2570) => q(gnd),
+      q(2571) => q(gne),
+      q(2572) => q(gng),
+      q(2573) => q(gnh),
+      q(2574) => q(gni),
+      q(2575) => q(gnq),
+      q(2576) => q(gnl),
+      q(2577) => q(gnm),
+      q(2578) => q(gnn),
+      q(2579) => q(gno),
+      q(2580) => q(gnr),
+      q(2581) => q(gnt),
+      q(2582) => q(gnu),
+      q(2583) => q(gnw),
+      q(2584) => q(gnz),
+      q(2585) => q(goa),
+      q(2586) => q(gob),
+      q(2587) => q(goc),
+      q(2588) => q(god),
+      q(2589) => q(goe),
+      q(2590) => q(gof),
+      q(2591) => q(gog),
+      q(2592) => q(goi),
+      q(2593) => q(goj),
+      q(2594) => q(gok),
+      q(2595) => q(gol),
+      q(2596) => q(gom),
+      q(2597) => q(goo),
+      q(2598) => q(gop),
+      q(2599) => q(goq),
+      q(2600) => q(gos),
+      q(2601) => q(gou),
+      q(2602) => q(gow),
+      q(2603) => q(gox),
+      q(2604) => q(goy),
+      q(2605) => q(goz),
+      q(2606) => q(gpa),
+      q(2607) => q(gpe),
+      q(2608) => q(gpn),
+      q(2609) => q(gqa),
+      q(2610) => q(gqi),
+      q(2611) => q(gqn),
+      q(2612) => q(gqr),
+      q(2613) => q(gqu),
+      q(2614) => q(gra),
+      q(2615) => q(grd),
+      q(2616) => q(grg),
+      q(2617) => q(grh),
+      q(2618) => q(gri),
+      q(2619) => q(grj),
+      q(2620) => q(grm),
+      q(2621) => q(gro),
+      q(2622) => q(grq),
+      q(2623) => q(grr),
+      q(2624) => q(grs),
+      q(2625) => q(grt),
+      q(2626) => q(gru),
+      q(2627) => q(grv),
+      q(2628) => q(grw),
+      q(2629) => q(grx),
+      q(2630) => q(gry),
+      q(2631) => q(grz),
+      q(2632) => q(gse),
+      q(2633) => q(gsg),
+      q(2634) => q(gsl),
+      q(2635) => q(gsm),
+      q(2636) => q(gsn),
+      q(2637) => q(gso),
+      q(2638) => q(gsp),
+      q(2639) => q(gss),
+      q(2640) => q(gta),
+      q(2641) => q(gtu),
+      q(2642) => q(gua),
+      q(2643) => q(gub),
+      q(2644) => q(guc),
+      q(2645) => q(gud),
+      q(2646) => q(gue),
+      q(2647) => q(guf),
+      q(2648) => q(gug),
+      q(2649) => q(guh),
+      q(2650) => q(gui),
+      q(2651) => q(guk),
+      q(2652) => q(gul),
+      q(2653) => q(gum),
+      q(2654) => q(gun),
+      q(2655) => q(guo),
+      q(2656) => q(gup),
+      q(2657) => q(yif),
+      q(2658) => q(gur),
+      q(2659) => q(gus),
+      q(2660) => q(gut),
+      q(2661) => q(guu),
+      q(2662) => q(guv),
+      q(2663) => q(guw),
+      q(2664) => q(gux),
+      q(2665) => q(guz),
+      q(2666) => q(gva),
+      q(2667) => q(gvc),
+      q(2668) => q(gve),
+      q(2669) => q(gvf),
+      q(2670) => q(gvj),
+      q(2671) => q(gvl),
+      q(2672) => q(gvm),
+      q(2673) => q(gvn),
+      q(2674) => q(gvo),
+      q(2675) => q(gvp),
+      q(2676) => q(gvr),
+      q(2677) => q(gvs),
+      q(2678) => q(gvy),
+      q(2679) => q(gwa),
+      q(2680) => q(gwb),
+      q(2681) => q(gwc),
+      q(2682) => q(gwd),
+      q(2683) => q(gwe),
+      q(2684) => q(gwf),
+      q(2685) => q(gwg),
+      q(2686) => q(gwj),
+      q(2687) => q(gwm),
+      q(2688) => q(gwn),
+      q(2689) => q(gwr),
+      q(2690) => q(gwt),
+      q(2691) => q(gwu),
+      q(2692) => q(gww),
+      q(2693) => q(gwx),
+      q(2694) => q(gxx),
+      q(2695) => q(gya),
+      q(2696) => q(gyb),
+      q(2697) => q(gyd),
+      q(2698) => q(gye),
+      q(2699) => q(gyf),
+      q(2700) => q(gyg),
+      q(2701) => q(gyi),
+      q(2702) => q(gyl),
+      q(2703) => q(gym),
+      q(2704) => q(gyn),
+      q(2705) => q(gyr),
+      q(2706) => q(gyy),
+      q(2707) => q(gza),
+      q(2708) => q(gzi),
+      q(2709) => q(gzn),
+      q(2710) => q(haa),
+      q(2711) => q(hab),
+      q(2712) => q(hac),
+      q(2713) => q(had),
+      q(2714) => q(hae),
+      q(2715) => q(haf),
+      q(2716) => q(hag),
+      q(2717) => q(hah),
+      q(2718) => q(haj),
+      q(2719) => q(hak),
+      q(2720) => q(hal),
+      q(2721) => q(ham),
+      q(2722) => q(han),
+      q(2723) => q(hao),
+      q(2724) => q(hap),
+      q(2725) => q(haq),
+      q(2726) => q(har),
+      q(2727) => q(has),
+      q(2728) => q(hav),
+      q(2729) => q(hax),
+      q(2730) => q(hay),
+      q(2731) => q(haz),
+      q(2732) => q(hba),
+      q(2733) => q(hbb),
+      q(2734) => q(hbn),
+      q(2735) => q(hbo),
+      q(2736) => q(hbu),
+      q(2737) => q(hca),
+      q(2738) => q(hch),
+      q(2739) => q(hdn),
+      q(2740) => q(hds),
+      q(2741) => q(hdy),
+      q(2742) => q(hea),
+      q(2743) => q(hed),
+      q(2744) => q(heg),
+      q(2745) => q(heh),
+      q(2746) => q(hei),
+      q(2747) => q(hem),
+      q(2748) => q(hgm),
+      q(2749) => q(hgw),
+      q(2750) => q(hhi),
+      q(2751) => q(hhr),
+      q(2752) => q(hhy),
+      q(2753) => q(hia),
+      q(2754) => q(hib),
+      q(2755) => q(hid),
+      q(2756) => q(hif),
+      q(2757) => q(hig),
+      q(2758) => q(hih),
+      q(2759) => q(hii),
+      q(2760) => q(hij),
+      q(2761) => q(hik),
+      q(2762) => q(hio),
+      q(2763) => q(hir),
+      q(2764) => q(hiw),
+      q(2765) => q(hix),
+      q(2766) => q(hji),
+      q(2767) => q(hka),
+      q(2768) => q(hke),
+      q(2769) => q(hkk),
+      q(2770) => q(hks),
+      q(2771) => q(hla),
+      q(2772) => q(hlb),
+      q(2773) => q(hld),
+      q(2774) => q(hle),
+      q(2775) => q(hlt),
+      q(2776) => q(hlu),
+      q(2777) => q(hma),
+      q(2778) => q(hmb),
+      q(2779) => q(hmc),
+      q(2780) => q(hmd),
+      q(2781) => q(hme),
+      q(2782) => q(hmf),
+      q(2783) => q(hmg),
+      q(2784) => q(hmh),
+      q(2785) => q(hmi),
+      q(2786) => q(hmj),
+      q(2787) => q(hmk),
+      q(2788) => q(hml),
+      q(2789) => q(hmm),
+      q(2790) => q(hmp),
+      q(2791) => q(hmq),
+      q(2792) => q(hmr),
+      q(2793) => q(hms),
+      q(2794) => q(hmt),
+      q(2795) => q(hmu),
+      q(2796) => q(hmv),
+      q(2797) => q(hmw),
+      q(2798) => q(hmy),
+      q(2799) => q(hmz),
+      q(2800) => q(hna),
+      q(2801) => q(hnd),
+      q(2802) => q(hne),
+      q(2803) => q(hnh),
+      q(2804) => q(hni),
+      q(2805) => q(hnj),
+      q(2806) => q(hnn),
+      q(2807) => q(hno),
+      q(2808) => q(hns),
+      q(2809) => q(hnu),
+      q(2810) => q(hoa),
+      q(2811) => q(hob),
+      q(2812) => q(hoc),
+      q(2813) => q(hod),
+      q(2814) => q(hoe),
+      q(2815) => q(hoh),
+      q(2816) => q(hoi),
+      q(2817) => q(hoj),
+      q(2818) => q(hol),
+      q(2819) => q(hom),
+      q(2820) => q(hoo),
+      q(2821) => q(hop),
+      q(2822) => q(hor),
+      q(2823) => q(hos),
+      q(2824) => q(hot),
+      q(2825) => q(hov),
+      q(2826) => q(how),
+      q(2827) => q(hoy),
+      q(2828) => q(hoz),
+      q(2829) => q(hpo),
+      q(2830) => q(hps),
+      q(2831) => q(hra),
+      q(2832) => q(hrc),
+      q(2833) => q(hre),
+      q(2834) => q(hrk),
+      q(2835) => q(hrm),
+      q(2836) => q(hro),
+      q(2837) => q(hrp),
+      q(2838) => q(hrt),
+      q(2839) => q(hru),
+      q(2840) => q(hrw),
+      q(2841) => q(hrx),
+      q(2842) => q(hrz),
+      q(2843) => q(hsh),
+      q(2844) => q(hsl),
+      q(2845) => q(hsn),
+      q(2846) => q(hss),
+      q(2847) => q(hti),
+      q(2848) => q(hto),
+      q(2849) => q(hts),
+      q(2850) => q(htu),
+      q(2851) => q(htx),
+      q(2852) => q(hub),
+      q(2853) => q(huc),
+      q(2854) => q(hud),
+      q(2855) => q(hue),
+      q(2856) => q(huf),
+      q(2857) => q(hug),
+      q(2858) => q(huh),
+      q(2859) => q(hui),
+      q(2860) => q(huj),
+      q(2861) => q(huk),
+      q(2862) => q(hul),
+      q(2863) => q(hum),
+      q(2864) => q(huo),
+      q(2865) => q(huq),
+      q(2866) => q(hur),
+      q(2867) => q(hus),
+      q(2868) => q(hut),
+      q(2869) => q(huu),
+      q(2870) => q(huv),
+      q(2871) => q(huw),
+      q(2872) => q(hux),
+      q(2873) => q(huy),
+      q(2874) => q(huz),
+      q(2875) => q(hvc),
+      q(2876) => q(hve),
+      q(2877) => q(hvk),
+      q(2878) => q(hvn),
+      q(2879) => q(hvv),
+      q(2880) => q(hwa),
+      q(2881) => q(hwc),
+      q(2882) => q(hwo),
+      q(2883) => q(hya),
+      q(2884) => q(iai),
+      q(2885) => q(ian),
+      q(2886) => q(iap),
+      q(2887) => q(iar),
+      q(2888) => q(ibb),
+      q(2889) => q(ibd),
+      q(2890) => q(ibe),
+      q(2891) => q(ibg),
+      q(2892) => q(ibl),
+      q(2893) => q(ibm),
+      q(2894) => q(ibn),
+      q(2895) => q(ibr),
+      q(2896) => q(ibu),
+      q(2897) => q(iby),
+      q(2898) => q(ica),
+      q(2899) => q(ich),
+      q(2900) => q(icl),
+      q(2901) => q(icr),
+      q(2902) => q(ida),
+      q(2903) => q(idb),
+      q(2904) => q(idc),
+      q(2905) => q(idd),
+      q(2906) => q(ide),
+      q(2907) => q(idi),
+      q(2908) => q(idr),
+      q(2909) => q(ids),
+      q(2910) => q(idt),
+      q(2911) => q(idu),
+      q(2912) => q(ifa),
+      q(2913) => q(ifb),
+      q(2914) => q(ife),
+      q(2915) => q(iff),
+      q(2916) => q(ifk),
+      q(2917) => q(ifm),
+      q(2918) => q(ifu),
+      q(2919) => q(ify),
+      q(2920) => q(igb),
+      q(2921) => q(ige),
+      q(2922) => q(igg),
+      q(2923) => q(igl),
+      q(2924) => q(igm),
+      q(2925) => q(ign),
+      q(2926) => q(igo),
+      q(2927) => q(igs),
+      q(2928) => q(igw),
+      q(2929) => q(ihb),
+      q(2930) => q(ihi),
+      q(2931) => q(ihp),
+      q(2932) => q(ihw),
+      q(2933) => q(iin),
+      q(2934) => q(ijc),
+      q(2935) => q(ije),
+      q(2936) => q(ijj),
+      q(2937) => q(ijn),
+      q(2938) => q(ijs),
+      q(2939) => q(ike),
+      q(2940) => q(iki),
+      q(2941) => q(ikk),
+      q(2942) => q(ikl),
+      q(2943) => q(iko),
+      q(2944) => q(ikp),
+      q(2945) => q(ikr),
+      q(2946) => q(iks),
+      q(2947) => q(ikt),
+      q(2948) => q(ikv),
+      q(2949) => q(ikw),
+      q(2950) => q(ikx),
+      q(2951) => q(ikz),
+      q(2952) => q(ila),
+      q(2953) => q(ilb),
+      q(2954) => q(ilg),
+      q(2955) => q(ili),
+      q(2956) => q(ilk),
+      q(2957) => q(ill),
+      q(2958) => q(ils),
+      q(2959) => q(ilu),
+      q(2960) => q(ilv),
+      q(2961) => q(ima),
+      q(2962) => q(imi),
+      q(2963) => q(iml),
+      q(2964) => q(imn),
+      q(2965) => q(imo),
+      q(2966) => q(imr),
+      q(2967) => q(ims),
+      q(2968) => q(imy),
+      q(2969) => q(inb),
+      q(2970) => q(ing),
+      q(2971) => q(inj),
+      q(2972) => q(inl),
+      q(2973) => q(inm),
+      q(2974) => q(inn),
+      q(2975) => q(ino),
+      q(2976) => q(inp),
+      q(2977) => q(ins),
+      q(2978) => q(int),
+      q(2979) => q(inz),
+      q(2980) => q(ior),
+      q(2981) => q(iou),
+      q(2982) => q(iow),
+      q(2983) => q(ipi),
+      q(2984) => q(ipo),
+      q(2985) => q(iqu),
+      q(2986) => q(iqw),
+      q(2987) => q(ire),
+      q(2988) => q(irh),
+      q(2989) => q(iri),
+      q(2990) => q(irk),
+      q(2991) => q(irn),
+      q(2992) => q(irr),
+      q(2993) => q(iru),
+      q(2994) => q(irx),
+      q(2995) => q(iry),
+      q(2996) => q(isa),
+      q(2997) => q(isc),
+      q(2998) => q(isd),
+      q(2999) => q(ise),
+      q(3000) => q(isg),
+      q(3001) => q(ish),
+      q(3002) => q(isi),
+      q(3003) => q(isk),
+      q(3004) => q(ism),
+      q(3005) => q(isn),
+      q(3006) => q(iso),
+      q(3007) => q(isr),
+      q(3008) => q(ist),
+      q(3009) => q(isu),
+      q(3010) => q(itb),
+      q(3011) => q(ite),
+      q(3012) => q(iti),
+      q(3013) => q(itk),
+      q(3014) => q(itl),
+      q(3015) => q(itm),
+      q(3016) => q(ito),
+      q(3017) => q(itr),
+      q(3018) => q(its),
+      q(3019) => q(itt),
+      q(3020) => q(itv),
+      q(3021) => q(itw),
+      q(3022) => q(itx),
+      q(3023) => q(ity),
+      q(3024) => q(itz),
+      q(3025) => q(ium),
+      q(3026) => q(ivb),
+      q(3027) => q(ivv),
+      q(3028) => q(iwk),
+      q(3029) => q(iwm),
+      q(3030) => q(iwo),
+      q(3031) => q(iws),
+      q(3032) => q(ixc),
+      q(3033) => q(ixl),
+      q(3034) => q(iya),
+      q(3035) => q(iyo),
+      q(3036) => q(iyx),
+      q(3037) => q(izh),
+      q(3038) => q(izr),
+      q(3039) => q(izz),
+      q(3040) => q(jaa),
+      q(3041) => q(jab),
+      q(3042) => q(jac),
+      q(3043) => q(jad),
+      q(3044) => q(jae),
+      q(3045) => q(jaf),
+      q(3046) => q(jah),
+      q(3047) => q(jaj),
+      q(3048) => q(jak),
+      q(3049) => q(jal),
+      q(3050) => q(jam),
+      q(3051) => q(jan),
+      q(3052) => q(jao),
+      q(3053) => q(jaq),
+      q(3054) => q(jas),
+      q(3055) => q(jat),
+      q(3056) => q(jau),
+      q(3057) => q(jax),
+      q(3058) => q(jay),
+      q(3059) => q(jaz),
+      q(3060) => q(jbe),
+      q(3061) => q(jbi),
+      q(3062) => q(jbj),
+      q(3063) => q(jbk),
+      q(3064) => q(jbn),
+      q(3065) => q(jbr),
+      q(3066) => q(jbt),
+      q(3067) => q(jbu),
+      q(3068) => q(jbw),
+      q(3069) => q(jcs),
+      q(3070) => q(jct),
+      q(3071) => q(jda),
+      q(3072) => q(jdg),
+      q(3073) => q(jdt),
+      q(3074) => q(jeb),
+      q(3075) => q(jee),
+      q(3076) => q(jeg),
+      q(3077) => q(jeh),
+      q(3078) => q(jei),
+      q(3079) => q(jek),
+      q(3080) => q(jel),
+      q(3081) => q(jen),
+      q(3082) => q(jer),
+      q(3083) => q(jet),
+      q(3084) => q(jeu),
+      q(3085) => q(jgb),
+      q(3086) => q(jge),
+      q(3087) => q(jgk),
+      q(3088) => q(jgo),
+      q(3089) => q(jhi),
+      q(3090) => q(jhs),
+      q(3091) => q(jia),
+      q(3092) => q(jib),
+      q(3093) => q(jic),
+      q(3094) => q(jid),
+      q(3095) => q(jie),
+      q(3096) => q(jig),
+      q(3097) => q(jih),
+      q(3098) => q(jii),
+      q(3099) => q(jil),
+      q(3100) => q(jim),
+      q(3101) => q(jio),
+      q(3102) => q(jiq),
+      q(3103) => q(jit),
+      q(3104) => q(jiu),
+      q(3105) => q(jiv),
+      q(3106) => q(jiy),
+      q(3107) => q(jje),
+      q(3108) => q(jjr),
+      q(3109) => q(jkm),
+      q(3110) => q(jko),
+      q(3111) => q(jkp),
+      q(3112) => q(jkr),
+      q(3113) => q(jku),
+      q(3114) => q(jle),
+      q(3115) => q(jls),
+      q(3116) => q(jma),
+      q(3117) => q(jmb),
+      q(3118) => q(jmc),
+      q(3119) => q(jmd),
+      q(3120) => q(jmi),
+      q(3121) => q(jml),
+      q(3122) => q(jmn),
+      q(3123) => q(jmr),
+      q(3124) => q(jms),
+      q(3125) => q(jmw),
+      q(3126) => q(jmx),
+      q(3127) => q(jna),
+      q(3128) => q(jnd),
+      q(3129) => q(jng),
+      q(3130) => q(jni),
+      q(3131) => q(jnj),
+      q(3132) => q(jnl),
+      q(3133) => q(jns),
+      q(3134) => q(job),
+      q(3135) => q(jod),
+      q(3136) => q(jog),
+      q(3137) => q(jor),
+      q(3138) => q(jos),
+      q(3139) => q(jow),
+      q(3140) => q(jpa),
+      q(3141) => q(jqr),
+      q(3142) => q(jra),
+      q(3143) => q(jrr),
+      q(3144) => q(jrt),
+      q(3145) => q(jru),
+      q(3146) => q(jsl),
+      q(3147) => q(jua),
+      q(3148) => q(jub),
+      q(3149) => q(juc),
+      q(3150) => q(jud),
+      q(3151) => q(juh),
+      q(3152) => q(jui),
+      q(3153) => q(juk),
+      q(3154) => q(jul),
+      q(3155) => q(jum),
+      q(3156) => q(jun),
+      q(3157) => q(juo),
+      q(3158) => q(jup),
+      q(3159) => q(jur),
+      q(3160) => q(jus),
+      q(3161) => q(jut),
+      q(3162) => q(juu),
+      q(3163) => q(juw),
+      q(3164) => q(juy),
+      q(3165) => q(jvd),
+      q(3166) => q(jvn),
+      q(3167) => q(jwi),
+      q(3168) => q(jya),
+      q(3169) => q(jye),
+      q(3170) => q(jyy),
+      q(3171) => q(kad),
+      q(3172) => q(kae),
+      q(3173) => q(kaf),
+      q(3174) => q(kag),
+      q(3175) => q(kah),
+      q(3176) => q(kai),
+      q(3177) => q(kaj),
+      q(3178) => q(kak),
+      q(3179) => q(kao),
+      q(3180) => q(kap),
+      q(3181) => q(kaq),
+      q(3182) => q(kav),
+      q(3183) => q(kax),
+      q(3184) => q(kay),
+      q(3185) => q(kba),
+      q(3186) => q(kbb),
+      q(3187) => q(kbc),
+      q(3188) => q(kbe),
+      q(3189) => q(kbg),
+      q(3190) => q(kbh),
+      q(3191) => q(kbi),
+      q(3192) => q(kbj),
+      q(3193) => q(kbk),
+      q(3194) => q(kbl),
+      q(3195) => q(kbm),
+      q(3196) => q(kbn),
+      q(3197) => q(kbo),
+      q(3198) => q(kbp),
+      q(3199) => q(kbq),
+      q(3200) => q(kbr),
+      q(3201) => q(kbs),
+      q(3202) => q(kbt),
+      q(3203) => q(kbu),
+      q(3204) => q(kbv),
+      q(3205) => q(kbw),
+      q(3206) => q(kbx),
+      q(3207) => q(kby),
+      q(3208) => q(kbz),
+      q(3209) => q(kca),
+      q(3210) => q(kcb),
+      q(3211) => q(kcc),
+      q(3212) => q(kcd),
+      q(3213) => q(kce),
+      q(3214) => q(kcf),
+      q(3215) => q(kcg),
+      q(3216) => q(kch),
+      q(3217) => q(kci),
+      q(3218) => q(kcj),
+      q(3219) => q(kck),
+      q(3220) => q(kcl),
+      q(3221) => q(kcm),
+      q(3222) => q(kcn),
+      q(3223) => q(kco),
+      q(3224) => q(kcp),
+      q(3225) => q(kcq),
+      q(3226) => q(kcr),
+      q(3227) => q(kcs),
+      q(3228) => q(kct),
+      q(3229) => q(kcu),
+      q(3230) => q(kcv),
+      q(3231) => q(kcw),
+      q(3232) => q(kcx),
+      q(3233) => q(kcy),
+      q(3234) => q(kcz),
+      q(3235) => q(kda),
+      q(3236) => q(kdc),
+      q(3237) => q(kdd),
+      q(3238) => q(kde),
+      q(3239) => q(kdf),
+      q(3240) => q(kdg),
+      q(3241) => q(kdh),
+      q(3242) => q(kdi),
+      q(3243) => q(kdj),
+      q(3244) => q(kdk),
+      q(3245) => q(kdl),
+      q(3246) => q(kdm),
+      q(3247) => q(kdn),
+      q(3248) => q(kdp),
+      q(3249) => q(kdq),
+      q(3250) => q(kdr),
+      q(3251) => q(kdt),
+      q(3252) => q(kdu),
+      q(3253) => q(kdw),
+      q(3254) => q(kdx),
+      q(3255) => q(kdy),
+      q(3256) => q(kdz),
+      q(3257) => q(kea),
+      q(3258) => q(keb),
+      q(3259) => q(kec),
+      q(3260) => q(ked),
+      q(3261) => q(kee),
+      q(3262) => q(kef),
+      q(3263) => q(keg),
+      q(3264) => q(keh),
+      q(3265) => q(kei),
+      q(3266) => q(kej),
+      q(3267) => q(kek),
+      q(3268) => q(kel),
+      q(3269) => q(kem),
+      q(3270) => q(ken),
+      q(3271) => q(keo),
+      q(3272) => q(kep),
+      q(3273) => q(keq),
+      q(3274) => q(ker),
+      q(3275) => q(kes),
+      q(3276) => q(ket),
+      q(3277) => q(keu),
+      q(3278) => q(kev),
+      q(3279) => q(kew),
+      q(3280) => q(kex),
+      q(3281) => q(key),
+      q(3282) => q(kez),
+      q(3283) => q(kfa),
+      q(3284) => q(kfb),
+      q(3285) => q(kfc),
+      q(3286) => q(kfd),
+      q(3287) => q(kfe),
+      q(3288) => q(kff),
+      q(3289) => q(kfg),
+      q(3290) => q(kfh),
+      q(3291) => q(kfi),
+      q(3292) => q(kfj),
+      q(3293) => q(kfk),
+      q(3294) => q(kfl),
+      q(3295) => q(kfm),
+      q(3296) => q(kfn),
+      q(3297) => q(kfo),
+      q(3298) => q(kfp),
+      q(3299) => q(kfq),
+      q(3300) => q(kfr),
+      q(3301) => q(kfs),
+      q(3302) => q(kft),
+      q(3303) => q(kfu),
+      q(3304) => q(kfv),
+      q(3305) => q(kfw),
+      q(3306) => q(kfx),
+      q(3307) => q(kfy),
+      q(3308) => q(kfz),
+      q(3309) => q(kga),
+      q(3310) => q(kgb),
+      q(3311) => q(kgc),
+      q(3312) => q(kgd),
+      q(3313) => q(kge),
+      q(3314) => q(kgf),
+      q(3315) => q(kgg),
+      q(3316) => q(kgi),
+      q(3317) => q(kgj),
+      q(3318) => q(kgk),
+      q(3319) => q(kgl),
+      q(3320) => q(kuq),
+      q(3321) => q(kgn),
+      q(3322) => q(kgo),
+      q(3323) => q(kgp),
+      q(3324) => q(kgq),
+      q(3325) => q(kgr),
+      q(3326) => q(kgs),
+      q(3327) => q(kgt),
+      q(3328) => q(kgu),
+      q(3329) => q(kgv),
+      q(3330) => q(kgw),
+      q(3331) => q(kgx),
+      q(3332) => q(kgy),
+      q(3333) => q(khb),
+      q(3334) => q(khc),
+      q(3335) => q(khd),
+      q(3336) => q(khe),
+      q(3337) => q(khf),
+      q(3338) => q(khg),
+      q(3339) => q(khh),
+      q(3340) => q(khj),
+      q(3341) => q(khk),
+      q(3342) => q(khl),
+      q(3343) => q(khn),
+      q(3344) => q(khp),
+      q(3345) => q(khq),
+      q(3346) => q(khr),
+      q(3347) => q(khs),
+      q(3348) => q(kht),
+      q(3349) => q(khu),
+      q(3350) => q(khv),
+      q(3351) => q(khw),
+      q(3352) => q(khx),
+      q(3353) => q(khy),
+      q(3354) => q(khz),
+      q(3355) => q(kia),
+      q(3356) => q(kib),
+      q(3357) => q(kic),
+      q(3358) => q(kid),
+      q(3359) => q(kie),
+      q(3360) => q(kif),
+      q(3361) => q(kig),
+      q(3362) => q(kih),
+      q(3363) => q(kii),
+      q(3364) => q(kij),
+      q(3365) => q(kil),
+      q(3366) => q(kim),
+      q(3367) => q(kio),
+      q(3368) => q(kip),
+      q(3369) => q(kiq),
+      q(3370) => q(kis),
+      q(3371) => q(kit),
+      q(3372) => q(kiu),
+      q(3373) => q(kiv),
+      q(3374) => q(kiw),
+      q(3375) => q(kix),
+      q(3376) => q(kiy),
+      q(3377) => q(kiz),
+      q(3378) => q(kja),
+      q(3379) => q(kjb),
+      q(3380) => q(kjc),
+      q(3381) => q(kjd),
+      q(3382) => q(kje),
+      q(3383) => q(kjf),
+      q(3384) => q(kjg),
+      q(3385) => q(kjh),
+      q(3386) => q(kji),
+      q(3387) => q(kjj),
+      q(3388) => q(kjk),
+      q(3389) => q(kjl),
+      q(3390) => q(kjm),
+      q(3391) => q(kjn),
+      q(3392) => q(kjo),
+      q(3393) => q(kjp),
+      q(3394) => q(kjq),
+      q(3395) => q(kjr),
+      q(3396) => q(kjs),
+      q(3397) => q(kjt),
+      q(3398) => q(kju),
+      q(3399) => q(kjv),
+      q(3400) => q(kjx),
+      q(3401) => q(kjy),
+      q(3402) => q(kjz),
+      q(3403) => q(kka),
+      q(3404) => q(kkb),
+      q(3405) => q(kkc),
+      q(3406) => q(kkd),
+      q(3407) => q(kke),
+      q(3408) => q(kkf),
+      q(3409) => q(kkg),
+      q(3410) => q(kkh),
+      q(3411) => q(kki),
+      q(3412) => q(kkj),
+      q(3413) => q(kkk),
+      q(3414) => q(kkl),
+      q(3415) => q(kkm),
+      q(3416) => q(kkn),
+      q(3417) => q(kko),
+      q(3418) => q(kkp),
+      q(3419) => q(kkq),
+      q(3420) => q(kkr),
+      q(3421) => q(kks),
+      q(3422) => q(kkt),
+      q(3423) => q(kku),
+      q(3424) => q(kkv),
+      q(3425) => q(kkw),
+      q(3426) => q(kkx),
+      q(3427) => q(kky),
+      q(3428) => q(kkz),
+      q(3429) => q(kla),
+      q(3430) => q(klb),
+      q(3431) => q(klc),
+      q(3432) => q(kld),
+      q(3433) => q(kle),
+      q(3434) => q(klf),
+      q(3435) => q(klg),
+      q(3436) => q(klh),
+      q(3437) => q(kli),
+      q(3438) => q(klj),
+      q(3439) => q(klk),
+      q(3440) => q(kll),
+      q(3441) => q(klm),
+      q(3442) => q(kln),
+      q(3443) => q(klo),
+      q(3444) => q(klp),
+      q(3445) => q(klq),
+      q(3446) => q(klr),
+      q(3447) => q(kls),
+      q(3448) => q(klt),
+      q(3449) => q(klu),
+      q(3450) => q(klv),
+      q(3451) => q(klw),
+      q(3452) => q(klx),
+      q(3453) => q(kly),
+      q(3454) => q(klz),
+      q(3455) => q(kma),
+      q(3456) => q(kmc),
+      q(3457) => q(kmd),
+      q(3458) => q(kme),
+      q(3459) => q(kmf),
+      q(3460) => q(kmg),
+      q(3461) => q(kmh),
+      q(3462) => q(kmi),
+      q(3463) => q(kmj),
+      q(3464) => q(kmk),
+      q(3465) => q(kml),
+      q(3466) => q(kmm),
+      q(3467) => q(kmn),
+      q(3468) => q(kmo),
+      q(3469) => q(kmp),
+      q(3470) => q(kmq),
+      q(3471) => q(kmr),
+      q(3472) => q(kms),
+      q(3473) => q(kmt),
+      q(3474) => q(kmu),
+      q(3475) => q(kmv),
+      q(3476) => q(kmw),
+      q(3477) => q(kmx),
+      q(3478) => q(kmy),
+      q(3479) => q(kmz),
+      q(3480) => q(kna),
+      q(3481) => q(knb),
+      q(3482) => q(knc),
+      q(3483) => q(knd),
+      q(3484) => q(kne),
+      q(3485) => q(knf),
+      q(3486) => q(kng),
+      q(3487) => q(kni),
+      q(3488) => q(knj),
+      q(3489) => q(knk),
+      q(3490) => q(knl),
+      q(3491) => q(knm),
+      q(3492) => q(knn),
+      q(3493) => q(kno),
+      q(3494) => q(knp),
+      q(3495) => q(knq),
+      q(3496) => q(knr),
+      q(3497) => q(kns),
+      q(3498) => q(knt),
+      q(3499) => q(knu),
+      q(3500) => q(knv),
+      q(3501) => q(knw),
+      q(3502) => q(knx),
+      q(3503) => q(kny),
+      q(3504) => q(knz),
+      q(3505) => q(koa),
+      q(3506) => q(koc),
+      q(3507) => q(kod),
+      q(3508) => q(koe),
+      q(3509) => q(kof),
+      q(3510) => q(kog),
+      q(3511) => q(koh),
+      q(3512) => q(koi),
+      q(3513) => q(kol),
+      q(3514) => q(koo),
+      q(3515) => q(kop),
+      q(3516) => q(koq),
+      q(3517) => q(kot),
+      q(3518) => q(kou),
+      q(3519) => q(kov),
+      q(3520) => q(kow),
+      q(3521) => q(kox),
+      q(3522) => q(koy),
+      q(3523) => q(koz),
+      q(3524) => q(kpa),
+      q(3525) => q(kpb),
+      q(3526) => q(kpc),
+      q(3527) => q(kpd),
+      q(3528) => q(kpf),
+      q(3529) => q(kpg),
+      q(3530) => q(kph),
+      q(3531) => q(kpi),
+      q(3532) => q(kpj),
+      q(3533) => q(kpk),
+      q(3534) => q(kpl),
+      q(3535) => q(kpm),
+      q(3536) => q(kpn),
+      q(3537) => q(kpo),
+      q(3538) => q(kpq),
+      q(3539) => q(kpr),
+      q(3540) => q(kps),
+      q(3541) => q(kpt),
+      q(3542) => q(kpu),
+      q(3543) => q(kpv),
+      q(3544) => q(kpw),
+      q(3545) => q(kpx),
+      q(3546) => q(kpy),
+      q(3547) => q(kpz),
+      q(3548) => q(kqa),
+      q(3549) => q(kqb),
+      q(3550) => q(kqc),
+      q(3551) => q(kqd),
+      q(3552) => q(kqe),
+      q(3553) => q(kqf),
+      q(3554) => q(kqg),
+      q(3555) => q(kqh),
+      q(3556) => q(kqi),
+      q(3557) => q(kqj),
+      q(3558) => q(kqk),
+      q(3559) => q(kql),
+      q(3560) => q(kqm),
+      q(3561) => q(kqn),
+      q(3562) => q(kqo),
+      q(3563) => q(kqp),
+      q(3564) => q(kqq),
+      q(3565) => q(kqr),
+      q(3566) => q(kqs),
+      q(3567) => q(kqt),
+      q(3568) => q(kqu),
+      q(3569) => q(kqv),
+      q(3570) => q(kqw),
+      q(3571) => q(kqx),
+      q(3572) => q(kqy),
+      q(3573) => q(kqz),
+      q(3574) => q(kra),
+      q(3575) => q(krb),
+      q(3576) => q(krd),
+      q(3577) => q(kre),
+      q(3578) => q(krf),
+      q(3579) => q(krh),
+      q(3580) => q(kri),
+      q(3581) => q(krj),
+      q(3582) => q(krk),
+      q(3583) => q(krm),
+      q(3584) => q(krn),
+      q(3585) => q(krp),
+      q(3586) => q(krr),
+      q(3587) => q(krs),
+      q(3588) => q(krt),
+      q(3589) => q(krv),
+      q(3590) => q(krw),
+      q(3591) => q(krx),
+      q(3592) => q(kry),
+      q(3593) => q(krz),
+      q(3594) => q(ksa),
+      q(3595) => q(ksb),
+      q(3596) => q(ksc),
+      q(3597) => q(ksd),
+      q(3598) => q(kse),
+      q(3599) => q(ksf),
+      q(3600) => q(ksg),
+      q(3601) => q(ksh),
+      q(3602) => q(ksi),
+      q(3603) => q(ksj),
+      q(3604) => q(ksk),
+      q(3605) => q(ksl),
+      q(3606) => q(ksm),
+      q(3607) => q(ksn),
+      q(3608) => q(kso),
+      q(3609) => q(ksp),
+      q(3610) => q(ksq),
+      q(3611) => q(ksr),
+      q(3612) => q(kss),
+      q(3613) => q(kst),
+      q(3614) => q(ksu),
+      q(3615) => q(ksv),
+      q(3616) => q(ksw),
+      q(3617) => q(ksx),
+      q(3618) => q(ksy),
+      q(3619) => q(ksz),
+      q(3620) => q(kta),
+      q(3621) => q(ktb),
+      q(3622) => q(ktc),
+      q(3623) => q(ktd),
+      q(3624) => q(kte),
+      q(3625) => q(ktf),
+      q(3626) => q(ktg),
+      q(3627) => q(kth),
+      q(3628) => q(kti),
+      q(3629) => q(ktj),
+      q(3630) => q(ktk),
+      q(3631) => q(ktl),
+      q(3632) => q(ktm),
+      q(3633) => q(ktn),
+      q(3634) => q(kto),
+      q(3635) => q(ktp),
+      q(3636) => q(ktq),
+      q(3637) => q(ktr),
+      q(3638) => q(kts),
+      q(3639) => q(ktt),
+      q(3640) => q(ktu),
+      q(3641) => q(ktv),
+      q(3642) => q(ktw),
+      q(3643) => q(ktx),
+      q(3644) => q(kty),
+      q(3645) => q(ktz),
+      q(3646) => q(kub),
+      q(3647) => q(kuc),
+      q(3648) => q(kud),
+      q(3649) => q(kue),
+      q(3650) => q(kuf),
+      q(3651) => q(kug),
+      q(3652) => q(kuh),
+      q(3653) => q(kui),
+      q(3654) => q(kuj),
+      q(3655) => q(kuk),
+      q(3656) => q(kul),
+      q(3657) => q(kun),
+      q(3658) => q(kuo),
+      q(3659) => q(kup),
+      q(3660) => q(kus),
+      q(3661) => q(kuu),
+      q(3662) => q(kuv),
+      q(3663) => q(kuw),
+      q(3664) => q(kux),
+      q(3665) => q(kuy),
+      q(3666) => q(kuz),
+      q(3667) => q(kva),
+      q(3668) => q(kvb),
+      q(3669) => q(kvc),
+      q(3670) => q(kvd),
+      q(3671) => q(kve),
+      q(3672) => q(kvf),
+      q(3673) => q(kvg),
+      q(3674) => q(kvh),
+      q(3675) => q(kvi),
+      q(3676) => q(kvj),
+      q(3677) => q(kvk),
+      q(3678) => q(kvl),
+      q(3679) => q(kvm),
+      q(3680) => q(kvn),
+      q(3681) => q(kvo),
+      q(3682) => q(kvp),
+      q(3683) => q(kvq),
+      q(3684) => q(kvr),
+      q(3685) => q(kvs),
+      q(3686) => q(kvt),
+      q(3687) => q(kvu),
+      q(3688) => q(kvv),
+      q(3689) => q(kvw),
+      q(3690) => q(kvx),
+      q(3691) => q(kvy),
+      q(3692) => q(kvz),
+      q(3693) => q(kwa),
+      q(3694) => q(kwb),
+      q(3695) => q(kwc),
+      q(3696) => q(kwd),
+      q(3697) => q(kwe),
+      q(3698) => q(kwf),
+      q(3699) => q(kwg),
+      q(3700) => q(kwh),
+      q(3701) => q(kwi),
+      q(3702) => q(kwj),
+      q(3703) => q(kwk),
+      q(3704) => q(kwl),
+      q(3705) => q(kwm),
+      q(3706) => q(kwn),
+      q(3707) => q(kwo),
+      q(3708) => q(kwp),
+      q(3709) => q(kwr),
+      q(3710) => q(kws),
+      q(3711) => q(kwt),
+      q(3712) => q(kwu),
+      q(3713) => q(kwv),
+      q(3714) => q(kww),
+      q(3715) => q(kwx),
+      q(3716) => q(kwy),
+      q(3717) => q(kwz),
+      q(3718) => q(kxa),
+      q(3719) => q(kxb),
+      q(3720) => q(kxc),
+      q(3721) => q(kxd),
+      q(3722) => q(kxf),
+      q(3723) => q(kxh),
+      q(3724) => q(kxi),
+      q(3725) => q(kxj),
+      q(3726) => q(kxk),
+      q(3727) => q(kxl),
+      q(3728) => q(kxm),
+      q(3729) => q(kxn),
+      q(3730) => q(kxo),
+      q(3731) => q(kxp),
+      q(3732) => q(kxq),
+      q(3733) => q(kxr),
+      q(3734) => q(kxs),
+      q(3735) => q(kxt),
+      q(3736) => q(kxu),
+      q(3737) => q(kxv),
+      q(3738) => q(kxw),
+      q(3739) => q(kxx),
+      q(3740) => q(kxy),
+      q(3741) => q(kxz),
+      q(3742) => q(kya),
+      q(3743) => q(kyb),
+      q(3744) => q(kyc),
+      q(3745) => q(kyd),
+      q(3746) => q(kye),
+      q(3747) => q(kyf),
+      q(3748) => q(kyg),
+      q(3749) => q(kyh),
+      q(3750) => q(kyi),
+      q(3751) => q(kyj),
+      q(3752) => q(kyk),
+      q(3753) => q(kyl),
+      q(3754) => q(kym),
+      q(3755) => q(kyn),
+      q(3756) => q(kyo),
+      q(3757) => q(kyp),
+      q(3758) => q(kyq),
+      q(3759) => q(kyr),
+      q(3760) => q(kys),
+      q(3761) => q(kyt),
+      q(3762) => q(kyu),
+      q(3763) => q(kyv),
+      q(3764) => q(kyw),
+      q(3765) => q(kyx),
+      q(3766) => q(kyy),
+      q(3767) => q(kyz),
+      q(3768) => q(kza),
+      q(3769) => q(kzb),
+      q(3770) => q(kzc),
+      q(3771) => q(kzd),
+      q(3772) => q(kze),
+      q(3773) => q(kzf),
+      q(3774) => q(kzg),
+      q(3775) => q(kzi),
+      q(3776) => q(kzj),
+      q(3777) => q(kzk),
+      q(3778) => q(kzl),
+      q(3779) => q(kzm),
+      q(3780) => q(kzn),
+      q(3781) => q(kzo),
+      q(3782) => q(kzp),
+      q(3783) => q(kzq),
+      q(3784) => q(kzr),
+      q(3785) => q(kzs),
+      q(3786) => q(kzt),
+      q(3787) => q(kzu),
+      q(3788) => q(kzv),
+      q(3789) => q(kzw),
+      q(3790) => q(kzx),
+      q(3791) => q(kzy),
+      q(3792) => q(kzz),
+      q(3793) => q(laa),
+      q(3794) => q(lab),
+      q(3795) => q(lac),
+      q(3796) => q(lae),
+      q(3797) => q(laf),
+      q(3798) => q(lag),
+      q(3799) => q(lai),
+      q(3800) => q(laj),
+      q(3801) => q(lak),
+      q(3802) => q(lal),
+      q(3803) => q(lan),
+      q(3804) => q(lap),
+      q(3805) => q(laq),
+      q(3806) => q(lar),
+      q(3807) => q(las),
+      q(3808) => q(lau),
+      q(3809) => q(law),
+      q(3810) => q(lax),
+      q(3811) => q(lay),
+      q(3812) => q(laz),
+      q(3813) => q(lba),
+      q(3814) => q(lbb),
+      q(3815) => q(lbc),
+      q(3816) => q(lbe),
+      q(3817) => q(lbf),
+      q(3818) => q(lbg),
+      q(3819) => q(lbi),
+      q(3820) => q(lbj),
+      q(3821) => q(lbk),
+      q(3822) => q(lbl),
+      q(3823) => q(lbm),
+      q(3824) => q(lbn),
+      q(3825) => q(lbo),
+      q(3826) => q(lbq),
+      q(3827) => q(lbr),
+      q(3828) => q(lbs),
+      q(3829) => q(lbt),
+      q(3830) => q(lbu),
+      q(3831) => q(lbv),
+      q(3832) => q(lbw),
+      q(3833) => q(lbx),
+      q(3834) => q(lby),
+      q(3835) => q(lbz),
+      q(3836) => q(lcc),
+      q(3837) => q(lcd),
+      q(3838) => q(lce),
+      q(3839) => q(lcf),
+      q(3840) => q(lch),
+      q(3841) => q(lcl),
+      q(3842) => q(lcm),
+      q(3843) => q(lcp),
+      q(3844) => q(lcq),
+      q(3845) => q(lcs),
+      q(3846) => q(lda),
+      q(3847) => q(ldb),
+      q(3848) => q(ldd),
+      q(3849) => q(ldg),
+      q(3850) => q(ldh),
+      q(3851) => q(ldi),
+      q(3852) => q(ldj),
+      q(3853) => q(ldk),
+      q(3854) => q(ldl),
+      q(3855) => q(ldm),
+      q(3856) => q(ldn),
+      q(3857) => q(ldo),
+      q(3858) => q(ldp),
+      q(3859) => q(ldq),
+      q(3860) => q(lea),
+      q(3861) => q(leb),
+      q(3862) => q(lec),
+      q(3863) => q(led),
+      q(3864) => q(lee),
+      q(3865) => q(lef),
+      q(3866) => q(leh),
+      q(3867) => q(lei),
+      q(3868) => q(lej),
+      q(3869) => q(lek),
+      q(3870) => q(lel),
+      q(3871) => q(lem),
+      q(3872) => q(len),
+      q(3873) => q(leo),
+      q(3874) => q(lep),
+      q(3875) => q(leq),
+      q(3876) => q(ler),
+      q(3877) => q(les),
+      q(3878) => q(let),
+      q(3879) => q(leu),
+      q(3880) => q(lev),
+      q(3881) => q(lew),
+      q(3882) => q(lex),
+      q(3883) => q(ley),
+      q(3884) => q(lfa),
+      q(3885) => q(lfn),
+      q(3886) => q(lga),
+      q(3887) => q(lgb),
+      q(3888) => q(lgg),
+      q(3889) => q(lgh),
+      q(3890) => q(lgi),
+      q(3891) => q(lgk),
+      q(3892) => q(lgl),
+      q(3893) => q(lgm),
+      q(3894) => q(lgn),
+      q(3895) => q(lgq),
+      q(3896) => q(lgr),
+      q(3897) => q(lgt),
+      q(3898) => q(lgu),
+      q(3899) => q(lgz),
+      q(3900) => q(lha),
+      q(3901) => q(lhh),
+      q(3902) => q(lhi),
+      q(3903) => q(lhl),
+      q(3904) => q(lhm),
+      q(3905) => q(lhn),
+      q(3906) => q(lhp),
+      q(3907) => q(lhs),
+      q(3908) => q(lht),
+      q(3909) => q(lhu),
+      q(3910) => q(lia),
+      q(3911) => q(lib),
+      q(3912) => q(lic),
+      q(3913) => q(lid),
+      q(3914) => q(lie),
+      q(3915) => q(lif),
+      q(3916) => q(lig),
+      q(3917) => q(lih),
+      q(3918) => q(lij),
+      q(3919) => q(lik),
+      q(3920) => q(lil),
+      q(3921) => q(lio),
+      q(3922) => q(lip),
+      q(3923) => q(liq),
+      q(3924) => q(lir),
+      q(3925) => q(lis),
+      q(3926) => q(liu),
+      q(3927) => q(liv),
+      q(3928) => q(liw),
+      q(3929) => q(lix),
+      q(3930) => q(liy),
+      q(3931) => q(liz),
+      q(3932) => q(lja),
+      q(3933) => q(lje),
+      q(3934) => q(lji),
+      q(3935) => q(ljl),
+      q(3936) => q(ljp),
+      q(3937) => q(ljw),
+      q(3938) => q(ljx),
+      q(3939) => q(lka),
+      q(3940) => q(lkb),
+      q(3941) => q(lkc),
+      q(3942) => q(lkd),
+      q(3943) => q(lke),
+      q(3944) => q(lkh),
+      q(3945) => q(lki),
+      q(3946) => q(lkj),
+      q(3947) => q(lkl),
+      q(3948) => q(lkm),
+      q(3949) => q(lkn),
+      q(3950) => q(lko),
+      q(3951) => q(lkr),
+      q(3952) => q(lks),
+      q(3953) => q(lkt),
+      q(3954) => q(lku),
+      q(3955) => q(lky),
+      q(3956) => q(lla),
+      q(3957) => q(llb),
+      q(3958) => q(llc),
+      q(3959) => q(lld),
+      q(3960) => q(lle),
+      q(3961) => q(llf),
+      q(3962) => q(llg),
+      q(3963) => q(llh),
+      q(3964) => q(lli),
+      q(3965) => q(llj),
+      q(3966) => q(llk),
+      q(3967) => q(lll),
+      q(3968) => q(llm),
+      q(3969) => q(lln),
+      q(3970) => q(llo),
+      q(3971) => q(llp),
+      q(3972) => q(llq),
+      q(3973) => q(lls),
+      q(3974) => q(llu),
+      q(3975) => q(llx),
+      q(3976) => q(lma),
+      q(3977) => q(lmb),
+      q(3978) => q(lmc),
+      q(3979) => q(lmd),
+      q(3980) => q(lme),
+      q(3981) => q(lmf),
+      q(3982) => q(lmg),
+      q(3983) => q(lmh),
+      q(3984) => q(lmi),
+      q(3985) => q(lmj),
+      q(3986) => q(lmk),
+      q(3987) => q(lml),
+      q(3988) => q(lmn),
+      q(3989) => q(lmo),
+      q(3990) => q(lmp),
+      q(3991) => q(lmq),
+      q(3992) => q(lmr),
+      q(3993) => q(lmu),
+      q(3994) => q(lmv),
+      q(3995) => q(lmw),
+      q(3996) => q(lmx),
+      q(3997) => q(lmy),
+      q(3998) => q(lmz),
+      q(3999) => q(lna),
+      q(4000) => q(lnb),
+      q(4001) => q(lnd),
+      q(4002) => q(lng),
+      q(4003) => q(lnh),
+      q(4004) => q(lni),
+      q(4005) => q(lnj),
+      q(4006) => q(lnl),
+      q(4007) => q(lnm),
+      q(4008) => q(lnn),
+      q(4009) => q(lno),
+      q(4010) => q(lns),
+      q(4011) => q(lnu),
+      q(4012) => q(lnw),
+      q(4013) => q(lnz),
+      q(4014) => q(loa),
+      q(4015) => q(lob),
+      q(4016) => q(loc),
+      q(4017) => q(loe),
+      q(4018) => q(lof),
+      q(4019) => q(log),
+      q(4020) => q(loh),
+      q(4021) => q(loi),
+      q(4022) => q(loj),
+      q(4023) => q(lok),
+      q(4024) => q(lom),
+      q(4025) => q(lon),
+      q(4026) => q(loo),
+      q(4027) => q(lop),
+      q(4028) => q(loq),
+      q(4029) => q(lor),
+      q(4030) => q(los),
+      q(4031) => q(lot),
+      q(4032) => q(lou),
+      q(4033) => q(lov),
+      q(4034) => q(low),
+      q(4035) => q(lox),
+      q(4036) => q(loy),
+      q(4037) => q(lpa),
+      q(4038) => q(lpe),
+      q(4039) => q(lpn),
+      q(4040) => q(lpo),
+      q(4041) => q(lpx),
+      q(4042) => q(lra),
+      q(4043) => q(lrc),
+      q(4044) => q(lre),
+      q(4045) => q(lrg),
+      q(4046) => q(lri),
+      q(4047) => q(lrk),
+      q(4048) => q(lrl),
+      q(4049) => q(lrm),
+      q(4050) => q(lrn),
+      q(4051) => q(lro),
+      q(4052) => q(lrr),
+      q(4053) => q(lrt),
+      q(4054) => q(lrv),
+      q(4055) => q(lrz),
+      q(4056) => q(lsa),
+      q(4057) => q(lsd),
+      q(4058) => q(lse),
+      q(4059) => q(lsg),
+      q(4060) => q(lsh),
+      q(4061) => q(lsi),
+      q(4062) => q(lsl),
+      q(4063) => q(lsm),
+      q(4064) => q(lso),
+      q(4065) => q(lsp),
+      q(4066) => q(lsr),
+      q(4067) => q(lss),
+      q(4068) => q(lst),
+      q(4069) => q(lsy),
+      q(4070) => q(ltc),
+      q(4071) => q(ltg),
+      q(4072) => q(lti),
+      q(4073) => q(ltn),
+      q(4074) => q(lto),
+      q(4075) => q(lts),
+      q(4076) => q(ltu),
+      q(4077) => q(luc),
+      q(4078) => q(lud),
+      q(4079) => q(lue),
+      q(4080) => q(luf),
+      q(4081) => q(luj),
+      q(4082) => q(luk),
+      q(4083) => q(lul),
+      q(4084) => q(lum),
+      q(4085) => q(lup),
+      q(4086) => q(luq),
+      q(4087) => q(lur),
+      q(4088) => q(lut),
+      q(4089) => q(luu),
+      q(4090) => q(luv),
+      q(4091) => q(luw),
+      q(4092) => q(luy),
+      q(4093) => q(luz),
+      q(4094) => q(lva),
+      q(4095) => q(lvk),
+      q(4096) => q(lvs),
+      q(4097) => q(lvu),
+      q(4098) => q(lwa),
+      q(4099) => q(lwe),
+      q(4100) => q(lwg),
+      q(4101) => q(lwh),
+      q(4102) => q(lwl),
+      q(4103) => q(lwm),
+      q(4104) => q(lwo),
+      q(4105) => q(lwt),
+      q(4106) => q(lwu),
+      q(4107) => q(lww),
+      q(4108) => q(lya),
+      q(4109) => q(lyg),
+      q(4110) => q(lyn),
+      q(4111) => q(lzh),
+      q(4112) => q(lzl),
+      q(4113) => q(lzn),
+      q(4114) => q(lzz),
+      q(4115) => q(maa),
+      q(4116) => q(mab),
+      q(4117) => q(mae),
+      q(4118) => q(maf),
+      q(4119) => q(maj),
+      q(4120) => q(mam),
+      q(4121) => q(maq),
+      q(4122) => q(mat),
+      q(4123) => q(mau),
+      q(4124) => q(mav),
+      q(4125) => q(maw),
+      q(4126) => q(max),
+      q(4127) => q(maz),
+      q(4128) => q(mba),
+      q(4129) => q(mbb),
+      q(4130) => q(mbc),
+      q(4131) => q(mbd),
+      q(4132) => q(mbe),
+      q(4133) => q(mbf),
+      q(4134) => q(mbh),
+      q(4135) => q(mbi),
+      q(4136) => q(mbj),
+      q(4137) => q(mbk),
+      q(4138) => q(mbl),
+      q(4139) => q(mbm),
+      q(4140) => q(mbn),
+      q(4141) => q(mbo),
+      q(4142) => q(mbp),
+      q(4143) => q(mbq),
+      q(4144) => q(mbr),
+      q(4145) => q(mbs),
+      q(4146) => q(mbt),
+      q(4147) => q(mbu),
+      q(4148) => q(mbv),
+      q(4149) => q(mbw),
+      q(4150) => q(mbx),
+      q(4151) => q(mby),
+      q(4152) => q(mbz),
+      q(4153) => q(mca),
+      q(4154) => q(mcb),
+      q(4155) => q(mcc),
+      q(4156) => q(mcd),
+      q(4157) => q(mce),
+      q(4158) => q(mcf),
+      q(4159) => q(mcg),
+      q(4160) => q(mch),
+      q(4161) => q(mci),
+      q(4162) => q(mcj),
+      q(4163) => q(mck),
+      q(4164) => q(mcl),
+      q(4165) => q(mcm),
+      q(4166) => q(mcn),
+      q(4167) => q(mco),
+      q(4168) => q(mcp),
+      q(4169) => q(mcq),
+      q(4170) => q(mcr),
+      q(4171) => q(mcs),
+      q(4172) => q(mct),
+      q(4173) => q(mcu),
+      q(4174) => q(mcv),
+      q(4175) => q(mcw),
+      q(4176) => q(mcx),
+      q(4177) => q(mcy),
+      q(4178) => q(mcz),
+      q(4179) => q(mda),
+      q(4180) => q(mdb),
+      q(4181) => q(mdc),
+      q(4182) => q(mdd),
+      q(4183) => q(mde),
+      q(4184) => q(mdg),
+      q(4185) => q(mdh),
+      q(4186) => q(mdi),
+      q(4187) => q(mdj),
+      q(4188) => q(mdk),
+      q(4189) => q(mdl),
+      q(4190) => q(mdm),
+      q(4191) => q(mdn),
+      q(4192) => q(mdp),
+      q(4193) => q(mdq),
+      q(4194) => q(mds),
+      q(4195) => q(mdt),
+      q(4196) => q(mdu),
+      q(4197) => q(mdv),
+      q(4198) => q(mdw),
+      q(4199) => q(mdx),
+      q(4200) => q(mdy),
+      q(4201) => q(mdz),
+      q(4202) => q(mea),
+      q(4203) => q(meb),
+      q(4204) => q(mec),
+      q(4205) => q(med),
+      q(4206) => q(mee),
+      q(4207) => q(mef),
+      q(4208) => q(meh),
+      q(4209) => q(mei),
+      q(4210) => q(mej),
+      q(4211) => q(mek),
+      q(4212) => q(mel),
+      q(4213) => q(mem),
+      q(4214) => q(meo),
+      q(4215) => q(mep),
+      q(4216) => q(meq),
+      q(4217) => q(mer),
+      q(4218) => q(mes),
+      q(4219) => q(met),
+      q(4220) => q(meu),
+      q(4221) => q(mev),
+      q(4222) => q(mew),
+      q(4223) => q(mey),
+      q(4224) => q(mez),
+      q(4225) => q(mfa),
+      q(4226) => q(mfb),
+      q(4227) => q(mfc),
+      q(4228) => q(mfd),
+      q(4229) => q(mfe),
+      q(4230) => q(mff),
+      q(4231) => q(mfg),
+      q(4232) => q(mfh),
+      q(4233) => q(mfi),
+      q(4234) => q(mfj),
+      q(4235) => q(mfk),
+      q(4236) => q(mfl),
+      q(4237) => q(mfm),
+      q(4238) => q(mfn),
+      q(4239) => q(mfo),
+      q(4240) => q(mfp),
+      q(4241) => q(mfq),
+      q(4242) => q(mfr),
+      q(4243) => q(mfs),
+      q(4244) => q(mft),
+      q(4245) => q(mfu),
+      q(4246) => q(mfv),
+      q(4247) => q(mfw),
+      q(4248) => q(mfx),
+      q(4249) => q(mfy),
+      q(4250) => q(mfz),
+      q(4251) => q(mgb),
+      q(4252) => q(mgc),
+      q(4253) => q(mgd),
+      q(4254) => q(mge),
+      q(4255) => q(mgf),
+      q(4256) => q(mgg),
+      q(4257) => q(mgh),
+      q(4258) => q(mgi),
+      q(4259) => q(mgj),
+      q(4260) => q(mgk),
+      q(4261) => q(mgl),
+      q(4262) => q(mgm),
+      q(4263) => q(mgn),
+      q(4264) => q(mgo),
+      q(4265) => q(mgp),
+      q(4266) => q(mgq),
+      q(4267) => q(mgr),
+      q(4268) => q(mgs),
+      q(4269) => q(mgt),
+      q(4270) => q(mgu),
+      q(4271) => q(mgv),
+      q(4272) => q(mgw),
+      q(4273) => q(mgy),
+      q(4274) => q(mgz),
+      q(4275) => q(mha),
+      q(4276) => q(mhb),
+      q(4277) => q(mhc),
+      q(4278) => q(mhd),
+      q(4279) => q(mhe),
+      q(4280) => q(mhf),
+      q(4281) => q(mhg),
+      q(4282) => q(mhi),
+      q(4283) => q(mhj),
+      q(4284) => q(mhk),
+      q(4285) => q(mhl),
+      q(4286) => q(mhm),
+      q(4287) => q(mhn),
+      q(4288) => q(mho),
+      q(4289) => q(mhp),
+      q(4290) => q(mhq),
+      q(4291) => q(mhr),
+      q(4292) => q(mhs),
+      q(4293) => q(mht),
+      q(4294) => q(mhu),
+      q(4295) => q(mhw),
+      q(4296) => q(mhx),
+      q(4297) => q(mhy),
+      q(4298) => q(mhz),
+      q(4299) => q(mia),
+      q(4300) => q(mib),
+      q(4301) => q(mid),
+      q(4302) => q(mie),
+      q(4303) => q(mif),
+      q(4304) => q(mig),
+      q(4305) => q(mih),
+      q(4306) => q(mii),
+      q(4307) => q(mij),
+      q(4308) => q(mik),
+      q(4309) => q(mil),
+      q(4310) => q(mim),
+      q(4311) => q(mio),
+      q(4312) => q(mip),
+      q(4313) => q(miq),
+      q(4314) => q(mir),
+      q(4315) => q(mit),
+      q(4316) => q(miu),
+      q(4317) => q(miw),
+      q(4318) => q(mix),
+      q(4319) => q(miy),
+      q(4320) => q(miz),
+      q(4321) => q(mjc),
+      q(4322) => q(mjd),
+      q(4323) => q(mje),
+      q(4324) => q(mjg),
+      q(4325) => q(mjh),
+      q(4326) => q(mji),
+      q(4327) => q(mjj),
+      q(4328) => q(mjk),
+      q(4329) => q(mjl),
+      q(4330) => q(mjm),
+      q(4331) => q(mjn),
+      q(4332) => q(mjo),
+      q(4333) => q(mjp),
+      q(4334) => q(mjq),
+      q(4335) => q(mjr),
+      q(4336) => q(mjs),
+      q(4337) => q(mjt),
+      q(4338) => q(mju),
+      q(4339) => q(mjv),
+      q(4340) => q(mjw),
+      q(4341) => q(mjx),
+      q(4342) => q(mjy),
+      q(4343) => q(mjz),
+      q(4344) => q(mka),
+      q(4345) => q(mkb),
+      q(4346) => q(mkc),
+      q(4347) => q(mke),
+      q(4348) => q(mkf),
+      q(4349) => q(mkg),
+      q(4350) => q(mki),
+      q(4351) => q(mkj),
+      q(4352) => q(mkk),
+      q(4353) => q(mkl),
+      q(4354) => q(mkm),
+      q(4355) => q(mkn),
+      q(4356) => q(mko),
+      q(4357) => q(mkp),
+      q(4358) => q(mkq),
+      q(4359) => q(mkr),
+      q(4360) => q(mks),
+      q(4361) => q(mkt),
+      q(4362) => q(mku),
+      q(4363) => q(mkv),
+      q(4364) => q(mkw),
+      q(4365) => q(mkx),
+      q(4366) => q(mky),
+      q(4367) => q(mkz),
+      q(4368) => q(mla),
+      q(4369) => q(mlb),
+      q(4370) => q(mlc),
+      q(4371) => q(mle),
+      q(4372) => q(mlf),
+      q(4373) => q(mlh),
+      q(4374) => q(mli),
+      q(4375) => q(mlj),
+      q(4376) => q(mlk),
+      q(4377) => q(mll),
+      q(4378) => q(mlm),
+      q(4379) => q(mln),
+      q(4380) => q(mlo),
+      q(4381) => q(mlp),
+      q(4382) => q(mlq),
+      q(4383) => q(mlr),
+      q(4384) => q(mls),
+      q(4385) => q(mlu),
+      q(4386) => q(mlv),
+      q(4387) => q(mlw),
+      q(4388) => q(mlx),
+      q(4389) => q(mlz),
+      q(4390) => q(mma),
+      q(4391) => q(mmb),
+      q(4392) => q(mmc),
+      q(4393) => q(mmd),
+      q(4394) => q(mme),
+      q(4395) => q(mmf),
+      q(4396) => q(mmg),
+      q(4397) => q(mmh),
+      q(4398) => q(mmi),
+      q(4399) => q(mmj),
+      q(4400) => q(mmk),
+      q(4401) => q(mml),
+      q(4402) => q(mmm),
+      q(4403) => q(mmn),
+      q(4404) => q(mmo),
+      q(4405) => q(mmp),
+      q(4406) => q(mmq),
+      q(4407) => q(mmr),
+      q(4408) => q(mmt),
+      q(4409) => q(mmu),
+      q(4410) => q(mmv),
+      q(4411) => q(mmw),
+      q(4412) => q(mmx),
+      q(4413) => q(mmy),
+      q(4414) => q(mmz),
+      q(4415) => q(mna),
+      q(4416) => q(mnb),
+      q(4417) => q(mnd),
+      q(4418) => q(mne),
+      q(4419) => q(mnf),
+      q(4420) => q(mng),
+      q(4421) => q(mnh),
+      q(4422) => q(mnj),
+      q(4423) => q(mnk),
+      q(4424) => q(mnl),
+      q(4425) => q(mnm),
+      q(4426) => q(mnn),
+      q(4427) => q(mnp),
+      q(4428) => q(mnq),
+      q(4429) => q(mnr),
+      q(4430) => q(mns),
+      q(4431) => q(mnu),
+      q(4432) => q(mnv),
+      q(4433) => q(mnw),
+      q(4434) => q(mnx),
+      q(4435) => q(mny),
+      q(4436) => q(mnz),
+      q(4437) => q(moa),
+      q(4438) => q(moc),
+      q(4439) => q(mod),
+      q(4440) => q(moe),
+      q(4441) => q(mog),
+      q(4442) => q(moi),
+      q(4443) => q(moj),
+      q(4444) => q(mok),
+      q(4445) => q(mom),
+      q(4446) => q(moo),
+      q(4447) => q(mop),
+      q(4448) => q(moq),
+      q(4449) => q(mor),
+      q(4450) => q(mou),
+      q(4451) => q(mov),
+      q(4452) => q(mow),
+      q(4453) => q(mox),
+      q(4454) => q(moy),
+      q(4455) => q(moz),
+      q(4456) => q(mpa),
+      q(4457) => q(mpb),
+      q(4458) => q(mpc),
+      q(4459) => q(mpd),
+      q(4460) => q(mpe),
+      q(4461) => q(mpg),
+      q(4462) => q(mph),
+      q(4463) => q(mpi),
+      q(4464) => q(mpj),
+      q(4465) => q(mpk),
+      q(4466) => q(mpl),
+      q(4467) => q(mpm),
+      q(4468) => q(mpn),
+      q(4469) => q(mpo),
+      q(4470) => q(mpp),
+      q(4471) => q(mpq),
+      q(4472) => q(mpr),
+      q(4473) => q(mps),
+      q(4474) => q(mpt),
+      q(4475) => q(mpu),
+      q(4476) => q(mpv),
+      q(4477) => q(mpw),
+      q(4478) => q(mpx),
+      q(4479) => q(mpy),
+      q(4480) => q(mpz),
+      q(4481) => q(mqa),
+      q(4482) => q(mqb),
+      q(4483) => q(mqc),
+      q(4484) => q(mqe),
+      q(4485) => q(mqf),
+      q(4486) => q(mqg),
+      q(4487) => q(mqh),
+      q(4488) => q(mqi),
+      q(4489) => q(mqj),
+      q(4490) => q(mqk),
+      q(4491) => q(mql),
+      q(4492) => q(mqm),
+      q(4493) => q(mqn),
+      q(4494) => q(mqo),
+      q(4495) => q(mqp),
+      q(4496) => q(mqq),
+      q(4497) => q(mqr),
+      q(4498) => q(mqs),
+      q(4499) => q(mqt),
+      q(4500) => q(mqu),
+      q(4501) => q(mqv),
+      q(4502) => q(mqw),
+      q(4503) => q(mqx),
+      q(4504) => q(mqy),
+      q(4505) => q(mqz),
+      q(4506) => q(mra),
+      q(4507) => q(mrb),
+      q(4508) => q(mrc),
+      q(4509) => q(mrd),
+      q(4510) => q(mre),
+      q(4511) => q(mrf),
+      q(4512) => q(mrg),
+      q(4513) => q(mrh),
+      q(4514) => q(mrj),
+      q(4515) => q(mrk),
+      q(4516) => q(mrl),
+      q(4517) => q(mrm),
+      q(4518) => q(mrn),
+      q(4519) => q(mro),
+      q(4520) => q(mrp),
+      q(4521) => q(mrq),
+      q(4522) => q(mrr),
+      q(4523) => q(mrs),
+      q(4524) => q(mrt),
+      q(4525) => q(mru),
+      q(4526) => q(mrv),
+      q(4527) => q(mrw),
+      q(4528) => q(mrx),
+      q(4529) => q(mry),
+      q(4530) => q(mrz),
+      q(4531) => q(msb),
+      q(4532) => q(msc),
+      q(4533) => q(msd),
+      q(4534) => q(mse),
+      q(4535) => q(msf),
+      q(4536) => q(msg),
+      q(4537) => q(msh),
+      q(4538) => q(msi),
+      q(4539) => q(msj),
+      q(4540) => q(msk),
+      q(4541) => q(msl),
+      q(4542) => q(msm),
+      q(4543) => q(msn),
+      q(4544) => q(mso),
+      q(4545) => q(msp),
+      q(4546) => q(msq),
+      q(4547) => q(msr),
+      q(4548) => q(mss),
+      q(4549) => q(msu),
+      q(4550) => q(msv),
+      q(4551) => q(msw),
+      q(4552) => q(msx),
+      q(4553) => q(msy),
+      q(4554) => q(msz),
+      q(4555) => q(mta),
+      q(4556) => q(mtb),
+      q(4557) => q(mtc),
+      q(4558) => q(mtd),
+      q(4559) => q(mte),
+      q(4560) => q(mtf),
+      q(4561) => q(mtg),
+      q(4562) => q(mth),
+      q(4563) => q(mti),
+      q(4564) => q(mtj),
+      q(4565) => q(mtk),
+      q(4566) => q(mtl),
+      q(4567) => q(mtm),
+      q(4568) => q(mtn),
+      q(4569) => q(mto),
+      q(4570) => q(mtp),
+      q(4571) => q(mtq),
+      q(4572) => q(mtr),
+      q(4573) => q(mts),
+      q(4574) => q(mtt),
+      q(4575) => q(mtu),
+      q(4576) => q(mtv),
+      q(4577) => q(mtw),
+      q(4578) => q(mtx),
+      q(4579) => q(mty),
+      q(4580) => q(mua),
+      q(4581) => q(mub),
+      q(4582) => q(muc),
+      q(4583) => q(mud),
+      q(4584) => q(mue),
+      q(4585) => q(mug),
+      q(4586) => q(muh),
+      q(4587) => q(mui),
+      q(4588) => q(muj),
+      q(4589) => q(muk),
+      q(4590) => q(mum),
+      q(4591) => q(muo),
+      q(4592) => q(mup),
+      q(4593) => q(muq),
+      q(4594) => q(mur),
+      q(4595) => q(mut),
+      q(4596) => q(muu),
+      q(4597) => q(muv),
+      q(4598) => q(mux),
+      q(4599) => q(muy),
+      q(4600) => q(muz),
+      q(4601) => q(mva),
+      q(4602) => q(mvb),
+      q(4603) => q(mvd),
+      q(4604) => q(mve),
+      q(4605) => q(mvf),
+      q(4606) => q(mvg),
+      q(4607) => q(mvh),
+      q(4608) => q(mvi),
+      q(4609) => q(mvk),
+      q(4610) => q(mvl),
+      q(4611) => q(mvm),
+      q(4612) => q(mvn),
+      q(4613) => q(mvo),
+      q(4614) => q(mvp),
+      q(4615) => q(mvq),
+      q(4616) => q(mvr),
+      q(4617) => q(mvs),
+      q(4618) => q(mvt),
+      q(4619) => q(mvu),
+      q(4620) => q(mvv),
+      q(4621) => q(mvw),
+      q(4622) => q(mvx),
+      q(4623) => q(mvy),
+      q(4624) => q(mvz),
+      q(4625) => q(mwa),
+      q(4626) => q(mwb),
+      q(4627) => q(mwc),
+      q(4628) => q(mwe),
+      q(4629) => q(mwf),
+      q(4630) => q(mwg),
+      q(4631) => q(mwh),
+      q(4632) => q(mwi),
+      q(4633) => q(mwk),
+      q(4634) => q(mwm),
+      q(4635) => q(mwn),
+      q(4636) => q(mwo),
+      q(4637) => q(mwp),
+      q(4638) => q(mwq),
+      q(4639) => q(mws),
+      q(4640) => q(mwt),
+      q(4641) => q(mwu),
+      q(4642) => q(mwv),
+      q(4643) => q(mww),
+      q(4644) => q(mwx),
+      q(4645) => q(mwy),
+      q(4646) => q(mwz),
+      q(4647) => q(mxa),
+      q(4648) => q(mxb),
+      q(4649) => q(mxc),
+      q(4650) => q(mxd),
+      q(4651) => q(mxe),
+      q(4652) => q(mxf),
+      q(4653) => q(mxg),
+      q(4654) => q(mxh),
+      q(4655) => q(mxi),
+      q(4656) => q(mxj),
+      q(4657) => q(mxk),
+      q(4658) => q(mxl),
+      q(4659) => q(mxm),
+      q(4660) => q(mxn),
+      q(4661) => q(mxo),
+      q(4662) => q(mxp),
+      q(4663) => q(mxq),
+      q(4664) => q(mxr),
+      q(4665) => q(mxs),
+      q(4666) => q(mxt),
+      q(4667) => q(mxu),
+      q(4668) => q(mxv),
+      q(4669) => q(mxw),
+      q(4670) => q(mxx),
+      q(4671) => q(mxy),
+      q(4672) => q(mxz),
+      q(4673) => q(myb),
+      q(4674) => q(myc),
+      q(4675) => q(myd),
+      q(4676) => q(mye),
+      q(4677) => q(myf),
+      q(4678) => q(myg),
+      q(4679) => q(myh),
+      q(4680) => q(myi),
+      q(4681) => q(myj),
+      q(4682) => q(myk),
+      q(4683) => q(myl),
+      q(4684) => q(mym),
+      q(4685) => q(myo),
+      q(4686) => q(myp),
+      q(4687) => q(myr),
+      q(4688) => q(mys),
+      q(4689) => q(myu),
+      q(4690) => q(myw),
+      q(4691) => q(myx),
+      q(4692) => q(myy),
+      q(4693) => q(myz),
+      q(4694) => q(mza),
+      q(4695) => q(mzb),
+      q(4696) => q(mzc),
+      q(4697) => q(mzd),
+      q(4698) => q(mze),
+      q(4699) => q(mzg),
+      q(4700) => q(mzh),
+      q(4701) => q(mzi),
+      q(4702) => q(mzj),
+      q(4703) => q(mzk),
+      q(4704) => q(mzl),
+      q(4705) => q(mzm),
+      q(4706) => q(mzn),
+      q(4707) => q(mzo),
+      q(4708) => q(mzp),
+      q(4709) => q(mzq),
+      q(4710) => q(mzr),
+      q(4711) => q(mzs),
+      q(4712) => q(mzt),
+      q(4713) => q(mzu),
+      q(4714) => q(mzv),
+      q(4715) => q(mzw),
+      q(4716) => q(mzx),
+      q(4717) => q(mzy),
+      q(4718) => q(mzz),
+      q(4719) => q(naa),
+      q(4720) => q(nab),
+      q(4721) => q(nac),
+      q(4722) => q(nad),
+      q(4723) => q(nae),
+      q(4724) => q(naf),
+      q(4725) => q(nag),
+      q(4726) => q(naj),
+      q(4727) => q(nak),
+      q(4728) => q(nal),
+      q(4729) => q(nam),
+      q(4730) => q(nan),
+      q(4731) => q(nao),
+      q(4732) => q(naq),
+      q(4733) => q(nar),
+      q(4734) => q(nas),
+      q(4735) => q(nat),
+      q(4736) => q(naw),
+      q(4737) => q(nax),
+      q(4738) => q(nay),
+      q(4739) => q(naz),
+      q(4740) => q(nba),
+      q(4741) => q(nbb),
+      q(4742) => q(nbc),
+      q(4743) => q(nbd),
+      q(4744) => q(nbe),
+      q(4745) => q(nbg),
+      q(4746) => q(nbh),
+      q(4747) => q(nbi),
+      q(4748) => q(nbj),
+      q(4749) => q(nbk),
+      q(4750) => q(nbm),
+      q(4751) => q(nbn),
+      q(4752) => q(nbo),
+      q(4753) => q(nbp),
+      q(4754) => q(nbq),
+      q(4755) => q(nbr),
+      q(4756) => q(nbs),
+      q(4757) => q(nbt),
+      q(4758) => q(nbu),
+      q(4759) => q(nbv),
+      q(4760) => q(nbw),
+      q(4761) => q(nby),
+      q(4762) => q(nca),
+      q(4763) => q(ncb),
+      q(4764) => q(ncc),
+      q(4765) => q(ncd),
+      q(4766) => q(nce),
+      q(4767) => q(ncf),
+      q(4768) => q(ncg),
+      q(4769) => q(nch),
+      q(4770) => q(nci),
+      q(4771) => q(ncj),
+      q(4772) => q(nck),
+      q(4773) => q(ncl),
+      q(4774) => q(ncm),
+      q(4775) => q(ncn),
+      q(4776) => q(nco),
+      q(4777) => q(ncp),
+      q(4778) => q(ncr),
+      q(4779) => q(ncs),
+      q(4780) => q(nct),
+      q(4781) => q(ncu),
+      q(4782) => q(ncx),
+      q(4783) => q(ncz),
+      q(4784) => q(nda),
+      q(4785) => q(ndb),
+      q(4786) => q(ndc),
+      q(4787) => q(ndd),
+      q(4788) => q(ndf),
+      q(4789) => q(ndg),
+      q(4790) => q(ndh),
+      q(4791) => q(ndi),
+      q(4792) => q(ndj),
+      q(4793) => q(ndk),
+      q(4794) => q(ndl),
+      q(4795) => q(ndm),
+      q(4796) => q(ndn),
+      q(4797) => q(ndp),
+      q(4798) => q(ndq),
+      q(4799) => q(ndr),
+      q(4800) => q(ndt),
+      q(4801) => q(ndu),
+      q(4802) => q(ndv),
+      q(4803) => q(ndw),
+      q(4804) => q(ndx),
+      q(4805) => q(ndy),
+      q(4806) => q(ndz),
+      q(4807) => q(nea),
+      q(4808) => q(neb),
+      q(4809) => q(nec),
+      q(4810) => q(ned),
+      q(4811) => q(nee),
+      q(4812) => q(nef),
+      q(4813) => q(neg),
+      q(4814) => q(neh),
+      q(4815) => q(nei),
+      q(4816) => q(nej),
+      q(4817) => q(nek),
+      q(4818) => q(nem),
+      q(4819) => q(nen),
+      q(4820) => q(neo),
+      q(4821) => q(neq),
+      q(4822) => q(ner),
+      q(4823) => q(nes),
+      q(4824) => q(net),
+      q(4825) => q(neu),
+      q(4826) => q(nev),
+      q(4827) => q(nex),
+      q(4828) => q(ney),
+      q(4829) => q(nez),
+      q(4830) => q(nfa),
+      q(4831) => q(nfd),
+      q(4832) => q(nfl),
+      q(4833) => q(nfr),
+      q(4834) => q(nfu),
+      q(4835) => q(nga),
+      q(4836) => q(ngb),
+      q(4837) => q(ngc),
+      q(4838) => q(ngd),
+      q(4839) => q(nge),
+      q(4840) => q(ngg),
+      q(4841) => q(ngh),
+      q(4842) => q(ngi),
+      q(4843) => q(ngj),
+      q(4844) => q(ngk),
+      q(4845) => q(ngl),
+      q(4846) => q(ngm),
+      q(4847) => q(ngn),
+      q(4848) => q(ngo),
+      q(4849) => q(ngp),
+      q(4850) => q(ngq),
+      q(4851) => q(ngr),
+      q(4852) => q(ngs),
+      q(4853) => q(ngt),
+      q(4854) => q(ngu),
+      q(4855) => q(ngv),
+      q(4856) => q(ngw),
+      q(4857) => q(ngx),
+      q(4858) => q(ngy),
+      q(4859) => q(ngz),
+      q(4860) => q(nha),
+      q(4861) => q(nhb),
+      q(4862) => q(nhc),
+      q(4863) => q(nhd),
+      q(4864) => q(nhe),
+      q(4865) => q(nhf),
+      q(4866) => q(nhg),
+      q(4867) => q(nhh),
+      q(4868) => q(nhi),
+      q(4869) => q(nhk),
+      q(4870) => q(nhm),
+      q(4871) => q(nhn),
+      q(4872) => q(nho),
+      q(4873) => q(nhp),
+      q(4874) => q(nhq),
+      q(4875) => q(nhr),
+      q(4876) => q(nht),
+      q(4877) => q(nhu),
+      q(4878) => q(nhv),
+      q(4879) => q(nhw),
+      q(4880) => q(nhx),
+      q(4881) => q(nhy),
+      q(4882) => q(nhz),
+      q(4883) => q(nib),
+      q(4884) => q(nid),
+      q(4885) => q(nie),
+      q(4886) => q(nif),
+      q(4887) => q(nig),
+      q(4888) => q(nih),
+      q(4889) => q(nii),
+      q(4890) => q(nij),
+      q(4891) => q(nik),
+      q(4892) => q(nil),
+      q(4893) => q(nim),
+      q(4894) => q(nin),
+      q(4895) => q(nio),
+      q(4896) => q(niq),
+      q(4897) => q(nir),
+      q(4898) => q(nis),
+      q(4899) => q(nit),
+      q(4900) => q(niv),
+      q(4901) => q(niw),
+      q(4902) => q(nix),
+      q(4903) => q(niy),
+      q(4904) => q(niz),
+      q(4905) => q(nja),
+      q(4906) => q(njb),
+      q(4907) => q(njd),
+      q(4908) => q(njh),
+      q(4909) => q(nji),
+      q(4910) => q(njj),
+      q(4911) => q(njl),
+      q(4912) => q(njm),
+      q(4913) => q(njn),
+      q(4914) => q(njo),
+      q(4915) => q(njr),
+      q(4916) => q(njs),
+      q(4917) => q(njt),
+      q(4918) => q(nju),
+      q(4919) => q(njx),
+      q(4920) => q(njy),
+      q(4921) => q(njz),
+      q(4922) => q(nka),
+      q(4923) => q(nkb),
+      q(4924) => q(nkc),
+      q(4925) => q(nkd),
+      q(4926) => q(nke),
+      q(4927) => q(nkf),
+      q(4928) => q(nkg),
+      q(4929) => q(nkh),
+      q(4930) => q(nki),
+      q(4931) => q(nkj),
+      q(4932) => q(nkk),
+      q(4933) => q(nkm),
+      q(4934) => q(nkn),
+      q(4935) => q(nko),
+      q(4936) => q(nkp),
+      q(4937) => q(nkq),
+      q(4938) => q(nkr),
+      q(4939) => q(nks),
+      q(4940) => q(nkt),
+      q(4941) => q(nku),
+      q(4942) => q(nkv),
+      q(4943) => q(nkw),
+      q(4944) => q(nkx),
+      q(4945) => q(nkz),
+      q(4946) => q(nla),
+      q(4947) => q(nlc),
+      q(4948) => q(nle),
+      q(4949) => q(nlg),
+      q(4950) => q(nli),
+      q(4951) => q(nlj),
+      q(4952) => q(nlk),
+      q(4953) => q(nll),
+      q(4954) => q(nlo),
+      q(4955) => q(nlq),
+      q(4956) => q(nlu),
+      q(4957) => q(nlv),
+      q(4958) => q(nlw),
+      q(4959) => q(nlx),
+      q(4960) => q(nly),
+      q(4961) => q(nlz),
+      q(4962) => q(nma),
+      q(4963) => q(nmb),
+      q(4964) => q(nmc),
+      q(4965) => q(nmd),
+      q(4966) => q(nme),
+      q(4967) => q(nmf),
+      q(4968) => q(nmg),
+      q(4969) => q(nmh),
+      q(4970) => q(nmi),
+      q(4971) => q(nmj),
+      q(4972) => q(nmk),
+      q(4973) => q(nml),
+      q(4974) => q(nmm),
+      q(4975) => q(nmn),
+      q(4976) => q(nmo),
+      q(4977) => q(nmp),
+      q(4978) => q(nmq),
+      q(4979) => q(nmr),
+      q(4980) => q(nms),
+      q(4981) => q(nmt),
+      q(4982) => q(nmu),
+      q(4983) => q(nmv),
+      q(4984) => q(nmw),
+      q(4985) => q(nmx),
+      q(4986) => q(nmy),
+      q(4987) => q(nmz),
+      q(4988) => q(nna),
+      q(4989) => q(nnb),
+      q(4990) => q(nnc),
+      q(4991) => q(nnd),
+      q(4992) => q(nne),
+      q(4993) => q(nnf),
+      q(4994) => q(nng),
+      q(4995) => q(nnh),
+      q(4996) => q(nni),
+      q(4997) => q(nnj),
+      q(4998) => q(nnk),
+      q(4999) => q(nnl),
+      q(5000) => q(nnm),
+      q(5001) => q(nnn),
+      q(5002) => q(nnp),
+      q(5003) => q(nnq),
+      q(5004) => q(nnr),
+      q(5005) => q(nns),
+      q(5006) => q(nnt),
+      q(5007) => q(nnu),
+      q(5008) => q(nnv),
+      q(5009) => q(nnw),
+      q(5010) => q(nny),
+      q(5011) => q(nnz),
+      q(5012) => q(noa),
+      q(5013) => q(noc),
+      q(5014) => q(nod),
+      q(5015) => q(noe),
+      q(5016) => q(nof),
+      q(5017) => q(noh),
+      q(5018) => q(noi),
+      q(5019) => q(noj),
+      q(5020) => q(nok),
+      q(5021) => q(nol),
+      q(5022) => q(nom),
+      q(5023) => q(nop),
+      q(5024) => q(noq),
+      q(5025) => q(nos),
+      q(5026) => q(not),
+      q(5027) => q(nou),
+      q(5028) => q(nov),
+      q(5029) => q(now),
+      q(5030) => q(noy),
+      q(5031) => q(noz),
+      q(5032) => q(npa),
+      q(5033) => q(npb),
+      q(5034) => q(npg),
+      q(5035) => q(nph),
+      q(5036) => q(npi),
+      q(5037) => q(npl),
+      q(5038) => q(npn),
+      q(5039) => q(npo),
+      q(5040) => q(nps),
+      q(5041) => q(npu),
+      q(5042) => q(npy),
+      q(5043) => q(nqg),
+      q(5044) => q(nqk),
+      q(5045) => q(nqm),
+      q(5046) => q(nqn),
+      q(5047) => q(nqq),
+      q(5048) => q(nqy),
+      q(5049) => q(nra),
+      q(5050) => q(nrb),
+      q(5051) => q(nrc),
+      q(5052) => q(nre),
+      q(5053) => q(nrf),
+      q(5054) => q(nrg),
+      q(5055) => q(nri),
+      q(5056) => q(nrk),
+      q(5057) => q(nrl),
+      q(5058) => q(nrm),
+      q(5059) => q(nrn),
+      q(5060) => q(nrp),
+      q(5061) => q(nrr),
+      q(5062) => q(nrt),
+      q(5063) => q(nru),
+      q(5064) => q(nrx),
+      q(5065) => q(nrz),
+      q(5066) => q(nsa),
+      q(5067) => q(nsc),
+      q(5068) => q(nsd),
+      q(5069) => q(nse),
+      q(5070) => q(nsf),
+      q(5071) => q(nsg),
+      q(5072) => q(nsh),
+      q(5073) => q(nsi),
+      q(5074) => q(nsk),
+      q(5075) => q(nsl),
+      q(5076) => q(nsm),
+      q(5077) => q(nsn),
+      q(5078) => q(nsp),
+      q(5079) => q(nsq),
+      q(5080) => q(nsr),
+      q(5081) => q(nss),
+      q(5082) => q(nst),
+      q(5083) => q(nsu),
+      q(5084) => q(nsv),
+      q(5085) => q(nsw),
+      q(5086) => q(nsx),
+      q(5087) => q(nsy),
+      q(5088) => q(nsz),
+      q(5089) => q(nte),
+      q(5090) => q(ntg),
+      q(5091) => q(nti),
+      q(5092) => q(ntj),
+      q(5093) => q(ntk),
+      q(5094) => q(ntm),
+      q(5095) => q(nto),
+      q(5096) => q(ntp),
+      q(5097) => q(ntr),
+      q(5098) => q(nts),
+      q(5099) => q(ntu),
+      q(5100) => q(ntw),
+      q(5101) => q(ntx),
+      q(5102) => q(nty),
+      q(5103) => q(ntz),
+      q(5104) => q(nua),
+      q(5105) => q(nuc),
+      q(5106) => q(nud),
+      q(5107) => q(nue),
+      q(5108) => q(nuf),
+      q(5109) => q(nug),
+      q(5110) => q(nuh),
+      q(5111) => q(nui),
+      q(5112) => q(nuj),
+      q(5113) => q(nuk),
+      q(5114) => q(nul),
+      q(5115) => q(num),
+      q(5116) => q(nun),
+      q(5117) => q(nuo),
+      q(5118) => q(nup),
+      q(5119) => q(nuq),
+      q(5120) => q(nur),
+      q(5121) => q(nus),
+      q(5122) => q(nut),
+      q(5123) => q(nuu),
+      q(5124) => q(nuv),
+      q(5125) => q(nuw),
+      q(5126) => q(nux),
+      q(5127) => q(nuy),
+      q(5128) => q(nuz),
+      q(5129) => q(nvh),
+      q(5130) => q(nvm),
+      q(5131) => q(nvo),
+      q(5132) => q(nwa),
+      q(5133) => q(nwb),
+      q(5134) => q(nwe),
+      q(5135) => q(nwg),
+      q(5136) => q(nwi),
+      q(5137) => q(nwm),
+      q(5138) => q(nwo),
+      q(5139) => q(nwr),
+      q(5140) => q(nwx),
+      q(5141) => q(nwy),
+      q(5142) => q(nxa),
+      q(5143) => q(nxd),
+      q(5144) => q(nxe),
+      q(5145) => q(nxg),
+      q(5146) => q(nxi),
+      q(5147) => q(nxk),
+      q(5148) => q(nxl),
+      q(5149) => q(nxm),
+      q(5150) => q(nxn),
+      q(5151) => q(nxo),
+      q(5152) => q(nxq),
+      q(5153) => q(nxr),
+      q(5154) => q(nxu),
+      q(5155) => q(nxx),
+      q(5156) => q(nyb),
+      q(5157) => q(nyc),
+      q(5158) => q(nyd),
+      q(5159) => q(nye),
+      q(5160) => q(nyf),
+      q(5161) => q(nyg),
+      q(5162) => q(nyh),
+      q(5163) => q(nyi),
+      q(5164) => q(nyj),
+      q(5165) => q(nyk),
+      q(5166) => q(nyl),
+      q(5167) => q(nyp),
+      q(5168) => q(nyq),
+      q(5169) => q(nyr),
+      q(5170) => q(nys),
+      q(5171) => q(nyt),
+      q(5172) => q(nyu),
+      q(5173) => q(nyv),
+      q(5174) => q(nyw),
+      q(5175) => q(nyx),
+      q(5176) => q(nyy),
+      q(5177) => q(nza),
+      q(5178) => q(nzb),
+      q(5179) => q(nzk),
+      q(5180) => q(nzm),
+      q(5181) => q(nzs),
+      q(5182) => q(nzu),
+      q(5183) => q(nzy),
+      q(5184) => q(nzz),
+      q(5185) => q(oaa),
+      q(5186) => q(oac),
+      q(5187) => q(oar),
+      q(5188) => q(oav),
+      q(5189) => q(obi),
+      q(5190) => q(obk),
+      q(5191) => q(obl),
+      q(5192) => q(obm),
+      q(5193) => q(obo),
+      q(5194) => q(obr),
+      q(5195) => q(obt),
+      q(5196) => q(obu),
+      q(5197) => q(oca),
+      q(5198) => q(och),
+      q(5199) => q(oco),
+      q(5200) => q(ocu),
+      q(5201) => q(oda),
+      q(5202) => q(odk),
+      q(5203) => q(odt),
+      q(5204) => q(odu),
+      q(5205) => q(ofo),
+      q(5206) => q(ofs),
+      q(5207) => q(ofu),
+      q(5208) => q(ogb),
+      q(5209) => q(ogc),
+      q(5210) => q(oge),
+      q(5211) => q(ogg),
+      q(5212) => q(ogo),
+      q(5213) => q(ogu),
+      q(5214) => q(oht),
+      q(5215) => q(ohu),
+      q(5216) => q(oia),
+      q(5217) => q(oin),
+      q(5218) => q(ojb),
+      q(5219) => q(ojc),
+      q(5220) => q(ojg),
+      q(5221) => q(ojp),
+      q(5222) => q(ojs),
+      q(5223) => q(ojv),
+      q(5224) => q(ojw),
+      q(5225) => q(oka),
+      q(5226) => q(okb),
+      q(5227) => q(okd),
+      q(5228) => q(oke),
+      q(5229) => q(okg),
+      q(5230) => q(okh),
+      q(5231) => q(oki),
+      q(5232) => q(okj),
+      q(5233) => q(okk),
+      q(5234) => q(okl),
+      q(5235) => q(okm),
+      q(5236) => q(okn),
+      q(5237) => q(oko),
+      q(5238) => q(okr),
+      q(5239) => q(oks),
+      q(5240) => q(oku),
+      q(5241) => q(okv),
+      q(5242) => q(okx),
+      q(5243) => q(ola),
+      q(5244) => q(old),
+      q(5245) => q(ole),
+      q(5246) => q(olk),
+      q(5247) => q(olm),
+      q(5248) => q(olo),
+      q(5249) => q(olr),
+      q(5250) => q(olt),
+      q(5251) => q(oma),
+      q(5252) => q(omb),
+      q(5253) => q(omc),
+      q(5254) => q(ome),
+      q(5255) => q(omg),
+      q(5256) => q(omi),
+      q(5257) => q(omk),
+      q(5258) => q(oml),
+      q(5259) => q(omn),
+      q(5260) => q(omo),
+      q(5261) => q(omp),
+      q(5262) => q(omr),
+      q(5263) => q(omt),
+      q(5264) => q(omu),
+      q(5265) => q(omw),
+      q(5266) => q(omx),
+      q(5267) => q(ona),
+      q(5268) => q(onb),
+      q(5269) => q(one),
+      q(5270) => q(ong),
+      q(5271) => q(oni),
+      q(5272) => q(onj),
+      q(5273) => q(onk),
+      q(5274) => q(onn),
+      q(5275) => q(ono),
+      q(5276) => q(onp),
+      q(5277) => q(onr),
+      q(5278) => q(ons),
+      q(5279) => q(ont),
+      q(5280) => q(onu),
+      q(5281) => q(onw),
+      q(5282) => q(onx),
+      q(5283) => q(ood),
+      q(5284) => q(oog),
+      q(5285) => q(oon),
+      q(5286) => q(oor),
+      q(5287) => q(oos),
+      q(5288) => q(opa),
+      q(5289) => q(opk),
+      q(5290) => q(opm),
+      q(5291) => q(opo),
+      q(5292) => q(opt),
+      q(5293) => q(opy),
+      q(5294) => q(ora),
+      q(5295) => q(orc),
+      q(5296) => q(ore),
+      q(5297) => q(org),
+      q(5298) => q(orh),
+      q(5299) => q(orn),
+      q(5300) => q(oro),
+      q(5301) => q(orr),
+      q(5302) => q(ors),
+      q(5303) => q(ort),
+      q(5304) => q(oru),
+      q(5305) => q(orv),
+      q(5306) => q(orw),
+      q(5307) => q(orx),
+      q(5308) => q(ory),
+      q(5309) => q(orz),
+      q(5310) => q(osc),
+      q(5311) => q(osi),
+      q(5312) => q(oso),
+      q(5313) => q(osp),
+      q(5314) => q(ost),
+      q(5315) => q(osu),
+      q(5316) => q(osx),
+      q(5317) => q(otb),
+      q(5318) => q(otd),
+      q(5319) => q(ote),
+      q(5320) => q(oti),
+      q(5321) => q(otk),
+      q(5322) => q(otl),
+      q(5323) => q(otm),
+      q(5324) => q(otn),
+      q(5325) => q(otq),
+      q(5326) => q(otr),
+      q(5327) => q(ots),
+      q(5328) => q(ott),
+      q(5329) => q(otu),
+      q(5330) => q(otw),
+      q(5331) => q(otx),
+      q(5332) => q(oty),
+      q(5333) => q(otz),
+      q(5334) => q(oua),
+      q(5335) => q(oub),
+      q(5336) => q(oue),
+      q(5337) => q(oui),
+      q(5338) => q(oum),
+      q(5339) => q(owi),
+      q(5340) => q(owl),
+      q(5341) => q(oyb),
+      q(5342) => q(oyd),
+      q(5343) => q(oym),
+      q(5344) => q(oyy),
+      q(5345) => q(ozm),
+      q(5346) => q(pab),
+      q(5347) => q(pac),
+      q(5348) => q(pad),
+      q(5349) => q(pae),
+      q(5350) => q(paf),
+      q(5351) => q(pah),
+      q(5352) => q(pai),
+      q(5353) => q(pak),
+      q(5354) => q(pao),
+      q(5355) => q(paq),
+      q(5356) => q(par),
+      q(5357) => q(pas),
+      q(5358) => q(pat),
+      q(5359) => q(pav),
+      q(5360) => q(paw),
+      q(5361) => q(pax),
+      q(5362) => q(pay),
+      q(5363) => q(paz),
+      q(5364) => q(pbb),
+      q(5365) => q(pbc),
+      q(5366) => q(pbe),
+      q(5367) => q(pbf),
+      q(5368) => q(pbg),
+      q(5369) => q(pbh),
+      q(5370) => q(pbi),
+      q(5371) => q(pbl),
+      q(5372) => q(pbn),
+      q(5373) => q(pbo),
+      q(5374) => q(pbp),
+      q(5375) => q(pbr),
+      q(5376) => q(pbs),
+      q(5377) => q(pbt),
+      q(5378) => q(pbu),
+      q(5379) => q(pbv),
+      q(5380) => q(pby),
+      q(5381) => q(pca),
+      q(5382) => q(pcb),
+      q(5383) => q(pcc),
+      q(5384) => q(pcd),
+      q(5385) => q(pce),
+      q(5386) => q(pcf),
+      q(5387) => q(pcg),
+      q(5388) => q(pch),
+      q(5389) => q(pci),
+      q(5390) => q(pcj),
+      q(5391) => q(pck),
+      q(5392) => q(pcl),
+      q(5393) => q(pcm),
+      q(5394) => q(pcn),
+      q(5395) => q(pcp),
+      q(5396) => q(pcw),
+      q(5397) => q(pda),
+      q(5398) => q(pdc),
+      q(5399) => q(pdi),
+      q(5400) => q(pdn),
+      q(5401) => q(pdo),
+      q(5402) => q(pdt),
+      q(5403) => q(pdu),
+      q(5404) => q(pea),
+      q(5405) => q(peb),
+      q(5406) => q(ped),
+      q(5407) => q(pee),
+      q(5408) => q(pef),
+      q(5409) => q(peg),
+      q(5410) => q(peh),
+      q(5411) => q(pei),
+      q(5412) => q(pej),
+      q(5413) => q(pek),
+      q(5414) => q(pel),
+      q(5415) => q(pem),
+      q(5416) => q(pep),
+      q(5417) => q(peq),
+      q(5418) => q(pes),
+      q(5419) => q(pev),
+      q(5420) => q(pex),
+      q(5421) => q(pey),
+      q(5422) => q(pez),
+      q(5423) => q(pfa),
+      q(5424) => q(pfe),
+      q(5425) => q(pfl),
+      q(5426) => q(pga),
+      q(5427) => q(pgd),
+      q(5428) => q(pgg),
+      q(5429) => q(pgi),
+      q(5430) => q(pgk),
+      q(5431) => q(pgl),
+      q(5432) => q(pgn),
+      q(5433) => q(pgs),
+      q(5434) => q(pgu),
+      q(5435) => q(pha),
+      q(5436) => q(phd),
+      q(5437) => q(phg),
+      q(5438) => q(phh),
+      q(5439) => q(phk),
+      q(5440) => q(phl),
+      q(5441) => q(phm),
+      q(5442) => q(pho),
+      q(5443) => q(phq),
+      q(5444) => q(phr),
+      q(5445) => q(pht),
+      q(5446) => q(phu),
+      q(5447) => q(phv),
+      q(5448) => q(phw),
+      q(5449) => q(pia),
+      q(5450) => q(pib),
+      q(5451) => q(pic),
+      q(5452) => q(pid),
+      q(5453) => q(pie),
+      q(5454) => q(pif),
+      q(5455) => q(pig),
+      q(5456) => q(pih),
+      q(5457) => q(pii),
+      q(5458) => q(pij),
+      q(5459) => q(pil),
+      q(5460) => q(pim),
+      q(5461) => q(pin),
+      q(5462) => q(pio),
+      q(5463) => q(pip),
+      q(5464) => q(pir),
+      q(5465) => q(pis),
+      q(5466) => q(pit),
+      q(5467) => q(piu),
+      q(5468) => q(piv),
+      q(5469) => q(piw),
+      q(5470) => q(pix),
+      q(5471) => q(piy),
+      q(5472) => q(piz),
+      q(5473) => q(pjt),
+      q(5474) => q(pka),
+      q(5475) => q(pkb),
+      q(5476) => q(pkc),
+      q(5477) => q(pkg),
+      q(5478) => q(pkh),
+      q(5479) => q(pkn),
+      q(5480) => q(pko),
+      q(5481) => q(pkp),
+      q(5482) => q(pkr),
+      q(5483) => q(pks),
+      q(5484) => q(pkt),
+      q(5485) => q(pku),
+      q(5486) => q(pla),
+      q(5487) => q(plb),
+      q(5488) => q(plc),
+      q(5489) => q(pld),
+      q(5490) => q(ple),
+      q(5491) => q(plg),
+      q(5492) => q(plh),
+      q(5493) => q(plj),
+      q(5494) => q(plk),
+      q(5495) => q(pll),
+      q(5496) => q(pln),
+      q(5497) => q(plo),
+      q(5498) => q(plp),
+      q(5499) => q(plq),
+      q(5500) => q(plr),
+      q(5501) => q(pls),
+      q(5502) => q(plt),
+      q(5503) => q(plu),
+      q(5504) => q(plv),
+      q(5505) => q(plw),
+      q(5506) => q(ply),
+      q(5507) => q(plz),
+      q(5508) => q(pma),
+      q(5509) => q(pmb),
+      q(5510) => q(pmc),
+      q(5511) => q(pmd),
+      q(5512) => q(pme),
+      q(5513) => q(pmf),
+      q(5514) => q(pmh),
+      q(5515) => q(pmi),
+      q(5516) => q(pmj),
+      q(5517) => q(pmk),
+      q(5518) => q(pml),
+      q(5519) => q(pmm),
+      q(5520) => q(pmn),
+      q(5521) => q(pmo),
+      q(5522) => q(pmq),
+      q(5523) => q(pmr),
+      q(5524) => q(pms),
+      q(5525) => q(pmt),
+      q(5526) => q(pmw),
+      q(5527) => q(pmx),
+      q(5528) => q(pmy),
+      q(5529) => q(pmz),
+      q(5530) => q(pna),
+      q(5531) => q(pnb),
+      q(5532) => q(pnc),
+      q(5533) => q(pne),
+      q(5534) => q(png),
+      q(5535) => q(pnh),
+      q(5536) => q(pni),
+      q(5537) => q(pnj),
+      q(5538) => q(pnk),
+      q(5539) => q(pnl),
+      q(5540) => q(pnm),
+      q(5541) => q(pnn),
+      q(5542) => q(pno),
+      q(5543) => q(pnp),
+      q(5544) => q(pnq),
+      q(5545) => q(pnr),
+      q(5546) => q(pns),
+      q(5547) => q(pnt),
+      q(5548) => q(pnu),
+      q(5549) => q(pnv),
+      q(5550) => q(pnw),
+      q(5551) => q(pnx),
+      q(5552) => q(pny),
+      q(5553) => q(pnz),
+      q(5554) => q(poc),
+      q(5555) => q(pod),
+      q(5556) => q(poe),
+      q(5557) => q(pof),
+      q(5558) => q(pog),
+      q(5559) => q(poh),
+      q(5560) => q(poi),
+      q(5561) => q(pok),
+      q(5562) => q(pom),
+      q(5563) => q(poo),
+      q(5564) => q(pop),
+      q(5565) => q(poq),
+      q(5566) => q(pos),
+      q(5567) => q(pot),
+      q(5568) => q(pov),
+      q(5569) => q(pow),
+      q(5570) => q(pox),
+      q(5571) => q(poy),
+      q(5572) => q(ppa),
+      q(5573) => q(ppe),
+      q(5574) => q(ppi),
+      q(5575) => q(ppk),
+      q(5576) => q(ppl),
+      q(5577) => q(ppm),
+      q(5578) => q(ppn),
+      q(5579) => q(ppo),
+      q(5580) => q(ppp),
+      q(5581) => q(ppq),
+      q(5582) => q(pps),
+      q(5583) => q(ppt),
+      q(5584) => q(ppu),
+      q(5585) => q(pqa),
+      q(5586) => q(pqm),
+      q(5587) => q(prb),
+      q(5588) => q(prc),
+      q(5589) => q(prd),
+      q(5590) => q(pre),
+      q(5591) => q(prf),
+      q(5592) => q(prg),
+      q(5593) => q(prh),
+      q(5594) => q(pri),
+      q(5595) => q(prk),
+      q(5596) => q(prl),
+      q(5597) => q(prm),
+      q(5598) => q(prn),
+      q(5599) => q(prp),
+      q(5600) => q(prq),
+      q(5601) => q(prr),
+      q(5602) => q(prs),
+      q(5603) => q(prt),
+      q(5604) => q(pru),
+      q(5605) => q(prw),
+      q(5606) => q(prx),
+      q(5607) => q(pry),
+      q(5608) => q(prz),
+      q(5609) => q(psa),
+      q(5610) => q(psc),
+      q(5611) => q(psd),
+      q(5612) => q(pse),
+      q(5613) => q(psg),
+      q(5614) => q(psh),
+      q(5615) => q(psi),
+      q(5616) => q(psl),
+      q(5617) => q(psm),
+      q(5618) => q(psn),
+      q(5619) => q(pso),
+      q(5620) => q(psp),
+      q(5621) => q(psq),
+      q(5622) => q(psr),
+      q(5623) => q(pss),
+      q(5624) => q(pst),
+      q(5625) => q(psu),
+      q(5626) => q(psw),
+      q(5627) => q(psy),
+      q(5628) => q(pta),
+      q(5629) => q(pth),
+      q(5630) => q(pti),
+      q(5631) => q(ptn),
+      q(5632) => q(pto),
+      q(5633) => q(ptp),
+      q(5634) => q(ptq),
+      q(5635) => q(ptr),
+      q(5636) => q(ptt),
+      q(5637) => q(ptu),
+      q(5638) => q(ptv),
+      q(5639) => q(ptw),
+      q(5640) => q(pty),
+      q(5641) => q(pua),
+      q(5642) => q(pub),
+      q(5643) => q(puc),
+      q(5644) => q(pud),
+      q(5645) => q(pue),
+      q(5646) => q(puf),
+      q(5647) => q(pug),
+      q(5648) => q(pui),
+      q(5649) => q(puj),
+      q(5650) => q(puk),
+      q(5651) => q(pum),
+      q(5652) => q(puo),
+      q(5653) => q(pup),
+      q(5654) => q(puq),
+      q(5655) => q(pur),
+      q(5656) => q(put),
+      q(5657) => q(puu),
+      q(5658) => q(puw),
+      q(5659) => q(pux),
+      q(5660) => q(puy),
+      q(5661) => q(pwa),
+      q(5662) => q(pwb),
+      q(5663) => q(pwg),
+      q(5664) => q(pwi),
+      q(5665) => q(pwm),
+      q(5666) => q(pwn),
+      q(5667) => q(pwo),
+      q(5668) => q(pwr),
+      q(5669) => q(pww),
+      q(5670) => q(pxm),
+      q(5671) => q(pye),
+      q(5672) => q(pym),
+      q(5673) => q(pyn),
+      q(5674) => q(pys),
+      q(5675) => q(pyu),
+      q(5676) => q(pyx),
+      q(5677) => q(pyy),
+      q(5678) => q(pzn),
+      q(5679) => q(qua),
+      q(5680) => q(qub),
+      q(5681) => q(quc),
+      q(5682) => q(qud),
+      q(5683) => q(quf),
+      q(5684) => q(qug),
+      q(5685) => q(quh),
+      q(5686) => q(qui),
+      q(5687) => q(quk),
+      q(5688) => q(qul),
+      q(5689) => q(qum),
+      q(5690) => q(qun),
+      q(5691) => q(qup),
+      q(5692) => q(quq),
+      q(5693) => q(qur),
+      q(5694) => q(qus),
+      q(5695) => q(quv),
+      q(5696) => q(quw),
+      q(5697) => q(qux),
+      q(5698) => q(quy),
+      q(5699) => q(quz),
+      q(5700) => q(qva),
+      q(5701) => q(qvc),
+      q(5702) => q(qve),
+      q(5703) => q(qvh),
+      q(5704) => q(qvi),
+      q(5705) => q(qvj),
+      q(5706) => q(qvl),
+      q(5707) => q(qvm),
+      q(5708) => q(qvn),
+      q(5709) => q(qvo),
+      q(5710) => q(qvp),
+      q(5711) => q(qvs),
+      q(5712) => q(qvw),
+      q(5713) => q(qvy),
+      q(5714) => q(qvz),
+      q(5715) => q(qwa),
+      q(5716) => q(qwc),
+      q(5717) => q(qwh),
+      q(5718) => q(qwm),
+      q(5719) => q(qws),
+      q(5720) => q(qwt),
+      q(5721) => q(qxa),
+      q(5722) => q(qxc),
+      q(5723) => q(qxh),
+      q(5724) => q(qxl),
+      q(5725) => q(qxn),
+      q(5726) => q(qxo),
+      q(5727) => q(qxp),
+      q(5728) => q(qxq),
+      q(5729) => q(qxr),
+      q(5730) => q(qxs),
+      q(5731) => q(qxt),
+      q(5732) => q(qxu),
+      q(5733) => q(qxw),
+      q(5734) => q(qya),
+      q(5735) => q(qyp),
+      q(5736) => q(raa),
+      q(5737) => q(rab),
+      q(5738) => q(rac),
+      q(5739) => q(rad),
+      q(5740) => q(raf),
+      q(5741) => q(rag),
+      q(5742) => q(rah),
+      q(5743) => q(rai),
+      q(5744) => q(rak),
+      q(5745) => q(ral),
+      q(5746) => q(ram),
+      q(5747) => q(ran),
+      q(5748) => q(rao),
+      q(5749) => q(raq),
+      q(5750) => q(ras),
+      q(5751) => q(rat),
+      q(5752) => q(rau),
+      q(5753) => q(rav),
+      q(5754) => q(raw),
+      q(5755) => q(rax),
+      q(5756) => q(ray),
+      q(5757) => q(raz),
+      q(5758) => q(rbb),
+      q(5759) => q(rbk),
+      q(5760) => q(rbl),
+      q(5761) => q(rbp),
+      q(5762) => q(rcf),
+      q(5763) => q(rdb),
+      q(5764) => q(rea),
+      q(5765) => q(reb),
+      q(5766) => q(ree),
+      q(5767) => q(reg),
+      q(5768) => q(rei),
+      q(5769) => q(rej),
+      q(5770) => q(rel),
+      q(5771) => q(rem),
+      q(5772) => q(ren),
+      q(5773) => q(rer),
+      q(5774) => q(res),
+      q(5775) => q(ret),
+      q(5776) => q(rey),
+      q(5777) => q(rga),
+      q(5778) => q(rge),
+      q(5779) => q(rgk),
+      q(5780) => q(rgn),
+      q(5781) => q(rgr),
+      q(5782) => q(rgs),
+      q(5783) => q(rgu),
+      q(5784) => q(rhg),
+      q(5785) => q(rhp),
+      q(5786) => q(ria),
+      q(5787) => q(rie),
+      q(5788) => q(rif),
+      q(5789) => q(ril),
+      q(5790) => q(rim),
+      q(5791) => q(rin),
+      q(5792) => q(rir),
+      q(5793) => q(rit),
+      q(5794) => q(riu),
+      q(5795) => q(rjg),
+      q(5796) => q(rji),
+      q(5797) => q(rjs),
+      q(5798) => q(rka),
+      q(5799) => q(rkb),
+      q(5800) => q(rkh),
+      q(5801) => q(rki),
+      q(5802) => q(rkm),
+      q(5803) => q(rkt),
+      q(5804) => q(rkw),
+      q(5805) => q(rma),
+      q(5806) => q(rmb),
+      q(5807) => q(rmc),
+      q(5808) => q(rmd),
+      q(5809) => q(rme),
+      q(5810) => q(rmf),
+      q(5811) => q(rmg),
+      q(5812) => q(rmh),
+      q(5813) => q(rmi),
+      q(5814) => q(rmk),
+      q(5815) => q(rml),
+      q(5816) => q(rmm),
+      q(5817) => q(rmn),
+      q(5818) => q(rmo),
+      q(5819) => q(rmp),
+      q(5820) => q(rmq),
+      q(5821) => q(rms),
+      q(5822) => q(rmt),
+      q(5823) => q(rmu),
+      q(5824) => q(rmv),
+      q(5825) => q(rmw),
+      q(5826) => q(rmx),
+      q(5827) => q(rmy),
+      q(5828) => q(rmz),
+      q(5829) => q(rna),
+      q(5830) => q(rnd),
+      q(5831) => q(rng),
+      q(5832) => q(rnl),
+      q(5833) => q(rnn),
+      q(5834) => q(rnp),
+      q(5835) => q(rnr),
+      q(5836) => q(rnw),
+      q(5837) => q(rob),
+      q(5838) => q(roc),
+      q(5839) => q(rod),
+      q(5840) => q(roe),
+      q(5841) => q(rof),
+      q(5842) => q(rog),
+      q(5843) => q(rol),
+      q(5844) => q(roo),
+      q(5845) => q(rop),
+      q(5846) => q(ror),
+      q(5847) => q(rou),
+      q(5848) => q(row),
+      q(5849) => q(rpn),
+      q(5850) => q(rpt),
+      q(5851) => q(rri),
+      q(5852) => q(rro),
+      q(5853) => q(rrt),
+      q(5854) => q(rsb),
+      q(5855) => q(rsi),
+      q(5856) => q(rsl),
+      q(5857) => q(rtc),
+      q(5858) => q(rth),
+      q(5859) => q(rtm),
+      q(5860) => q(rts),
+      q(5861) => q(rtw),
+      q(5862) => q(rub),
+      q(5863) => q(ruc),
+      q(5864) => q(rue),
+      q(5865) => q(ruf),
+      q(5866) => q(rug),
+      q(5867) => q(ruh),
+      q(5868) => q(rui),
+      q(5869) => q(ruk),
+      q(5870) => q(ruo),
+      q(5871) => q(ruq),
+      q(5872) => q(rut),
+      q(5873) => q(ruu),
+      q(5874) => q(ruy),
+      q(5875) => q(ruz),
+      q(5876) => q(rwa),
+      q(5877) => q(rwk),
+      q(5878) => q(rwm),
+      q(5879) => q(rwo),
+      q(5880) => q(rwr),
+      q(5881) => q(rxd),
+      q(5882) => q(rxw),
+      q(5883) => q(ryn),
+      q(5884) => q(rys),
+      q(5885) => q(ryu),
+      q(5886) => q(saa),
+      q(5887) => q(sab),
+      q(5888) => q(sac),
+      q(5889) => q(sae),
+      q(5890) => q(saf),
+      q(5891) => q(saj),
+      q(5892) => q(sak),
+      q(5893) => q(sao),
+      q(5894) => q(saq),
+      q(5895) => q(sar),
+      q(5896) => q(sau),
+      q(5897) => q(sav),
+      q(5898) => q(saw),
+      q(5899) => q(sax),
+      q(5900) => q(say),
+      q(5901) => q(saz),
+      q(5902) => q(sba),
+      q(5903) => q(sbb),
+      q(5904) => q(sbc),
+      q(5905) => q(sbd),
+      q(5906) => q(slc),
+      q(5907) => q(sbf),
+      q(5908) => q(sbg),
+      q(5909) => q(sbh),
+      q(5910) => q(sbi),
+      q(5911) => q(sbj),
+      q(5912) => q(sbk),
+      q(5913) => q(sbl),
+      q(5914) => q(sbm),
+      q(5915) => q(sbn),
+      q(5916) => q(sbo),
+      q(5917) => q(sbp),
+      q(5918) => q(sbq),
+      q(5919) => q(sbr),
+      q(5920) => q(sbs),
+      q(5921) => q(sbt),
+      q(5922) => q(sbu),
+      q(5923) => q(sbv),
+      q(5924) => q(sbw),
+      q(5925) => q(sbx),
+      q(5926) => q(sby),
+      q(5927) => q(sbz),
+      q(5928) => q(scb),
+      q(5929) => q(sce),
+      q(5930) => q(scf),
+      q(5931) => q(scg),
+      q(5932) => q(sch),
+      q(5933) => q(sci),
+      q(5934) => q(sck),
+      q(5935) => q(scl),
+      q(5936) => q(scp),
+      q(5937) => q(scq),
+      q(5938) => q(scs),
+      q(5939) => q(scu),
+      q(5940) => q(scv),
+      q(5941) => q(scw),
+      q(5942) => q(scx),
+      q(5943) => q(sda),
+      q(5944) => q(sdb),
+      q(5945) => q(sdc),
+      q(5946) => q(sde),
+      q(5947) => q(sdf),
+      q(5948) => q(sdg),
+      q(5949) => q(sdh),
+      q(5950) => q(sdj),
+      q(5951) => q(sdk),
+      q(5952) => q(sdl),
+      q(5953) => q(sdm),
+      q(5954) => q(sdn),
+      q(5955) => q(sdo),
+      q(5956) => q(sdp),
+      q(5957) => q(sdr),
+      q(5958) => q(sds),
+      q(5959) => q(sdt),
+      q(5960) => q(sdu),
+      q(5961) => q(sdx),
+      q(5962) => q(sdz),
+      q(5963) => q(sea),
+      q(5964) => q(seb),
+      q(5965) => q(sec),
+      q(5966) => q(sed),
+      q(5967) => q(see),
+      q(5968) => q(sef),
+      q(5969) => q(seg),
+      q(5970) => q(seh),
+      q(5971) => q(sei),
+      q(5972) => q(sej),
+      q(5973) => q(sek),
+      q(5974) => q(sen),
+      q(5975) => q(seo),
+      q(5976) => q(sep),
+      q(5977) => q(seq),
+      q(5978) => q(ser),
+      q(5979) => q(ses),
+      q(5980) => q(set),
+      q(5981) => q(seu),
+      q(5982) => q(sev),
+      q(5983) => q(sew),
+      q(5984) => q(sey),
+      q(5985) => q(sez),
+      q(5986) => q(sfb),
+      q(5987) => q(sfe),
+      q(5988) => q(sfm),
+      q(5989) => q(sfs),
+      q(5990) => q(sfw),
+      q(5991) => q(sgb),
+      q(5992) => q(sgc),
+      q(5993) => q(sgd),
+      q(5994) => q(sge),
+      q(5995) => q(sgg),
+      q(5996) => q(sgh),
+      q(5997) => q(sgi),
+      q(5998) => q(sgj),
+      q(5999) => q(sgk),
+      q(6000) => q(sgm),
+      q(6001) => q(sgp),
+      q(6002) => q(sgr),
+      q(6003) => q(sgs),
+      q(6004) => q(sgt),
+      q(6005) => q(sgu),
+      q(6006) => q(sgw),
+      q(6007) => q(sgx),
+      q(6008) => q(sgy),
+      q(6009) => q(sgz),
+      q(6010) => q(sha),
+      q(6011) => q(shb),
+      q(6012) => q(shc),
+      q(6013) => q(shd),
+      q(6014) => q(she),
+      q(6015) => q(shg),
+      q(6016) => q(shh),
+      q(6017) => q(shi),
+      q(6018) => q(shj),
+      q(6019) => q(shk),
+      q(6020) => q(shl),
+      q(6021) => q(shm),
+      q(6022) => q(sho),
+      q(6023) => q(shp),
+      q(6024) => q(shq),
+      q(6025) => q(shr),
+      q(6026) => q(shs),
+      q(6027) => q(sht),
+      q(6028) => q(shu),
+      q(6029) => q(shv),
+      q(6030) => q(shw),
+      q(6031) => q(shx),
+      q(6032) => q(shy),
+      q(6033) => q(shz),
+      q(6034) => q(sia),
+      q(6035) => q(sib),
+      q(6036) => q(sie),
+      q(6037) => q(sif),
+      q(6038) => q(sig),
+      q(6039) => q(sih),
+      q(6040) => q(sii),
+      q(6041) => q(sij),
+      q(6042) => q(sik),
+      q(6043) => q(sil),
+      q(6044) => q(sim),
+      q(6045) => q(sip),
+      q(6046) => q(siq),
+      q(6047) => q(sir),
+      q(6048) => q(sis),
+      q(6049) => q(siu),
+      q(6050) => q(siv),
+      q(6051) => q(siw),
+      q(6052) => q(six),
+      q(6053) => q(siy),
+      q(6054) => q(siz),
+      q(6055) => q(sja),
+      q(6056) => q(sjb),
+      q(6057) => q(sjd),
+      q(6058) => q(sje),
+      q(6059) => q(sjg),
+      q(6060) => q(sjk),
+      q(6061) => q(sjl),
+      q(6062) => q(sjm),
+      q(6063) => q(sjn),
+      q(6064) => q(sjo),
+      q(6065) => q(sjp),
+      q(6066) => q(sjr),
+      q(6067) => q(sjs),
+      q(6068) => q(sjt),
+      q(6069) => q(sju),
+      q(6070) => q(sjw),
+      q(6071) => q(ska),
+      q(6072) => q(skb),
+      q(6073) => q(skc),
+      q(6074) => q(skd),
+      q(6075) => q(ske),
+      q(6076) => q(skf),
+      q(6077) => q(skg),
+      q(6078) => q(skh),
+      q(6079) => q(ski),
+      q(6080) => q(skj),
+      q(6081) => q(skk),
+      q(6082) => q(skm),
+      q(6083) => q(skn),
+      q(6084) => q(sko),
+      q(6085) => q(skp),
+      q(6086) => q(skq),
+      q(6087) => q(skr),
+      q(6088) => q(sks),
+      q(6089) => q(skt),
+      q(6090) => q(sku),
+      q(6091) => q(skv),
+      q(6092) => q(skw),
+      q(6093) => q(skx),
+      q(6094) => q(sky),
+      q(6095) => q(skz),
+      q(6096) => q(sld),
+      q(6097) => q(sle),
+      q(6098) => q(slf),
+      q(6099) => q(slg),
+      q(6100) => q(slh),
+      q(6101) => q(sli),
+      q(6102) => q(slj),
+      q(6103) => q(sll),
+      q(6104) => q(slm),
+      q(6105) => q(sln),
+      q(6106) => q(slp),
+      q(6107) => q(slq),
+      q(6108) => q(slr),
+      q(6109) => q(sls),
+      q(6110) => q(slt),
+      q(6111) => q(slu),
+      q(6112) => q(slw),
+      q(6113) => q(slx),
+      q(6114) => q(sly),
+      q(6115) => q(slz),
+      q(6116) => q(smb),
+      q(6117) => q(smc),
+      q(6118) => q(smd),
+      q(6119) => q(smf),
+      q(6120) => q(smg),
+      q(6121) => q(smh),
+      q(6122) => q(smk),
+      q(6123) => q(sml),
+      q(6124) => q(smm),
+      q(6125) => q(smp),
+      q(6126) => q(smq),
+      q(6127) => q(smr),
+      q(6128) => q(smt),
+      q(6129) => q(smu),
+      q(6130) => q(smv),
+      q(6131) => q(smw),
+      q(6132) => q(smx),
+      q(6133) => q(smy),
+      q(6134) => q(smz),
+      q(6135) => q(snb),
+      q(6136) => q(snc),
+      q(6137) => q(sne),
+      q(6138) => q(snf),
+      q(6139) => q(sng),
+      q(6140) => q(snh),
+      q(6141) => q(sni),
+      q(6142) => q(snj),
+      q(6143) => q(snl),
+      q(6144) => q(snm),
+      q(6145) => q(snn),
+      q(6146) => q(sno),
+      q(6147) => q(snp),
+      q(6148) => q(snq),
+      q(6149) => q(snr),
+      q(6150) => q(sns),
+      q(6151) => q(snu),
+      q(6152) => q(snv),
+      q(6153) => q(snw),
+      q(6154) => q(snx),
+      q(6155) => q(sny),
+      q(6156) => q(snz),
+      q(6157) => q(soa),
+      q(6158) => q(sob),
+      q(6159) => q(soc),
+      q(6160) => q(sod),
+      q(6161) => q(soe),
+      q(6162) => q(soh),
+      q(6163) => q(soi),
+      q(6164) => q(soj),
+      q(6165) => q(sok),
+      q(6166) => q(sol),
+      q(6167) => q(soo),
+      q(6168) => q(sop),
+      q(6169) => q(soq),
+      q(6170) => q(sor),
+      q(6171) => q(sos),
+      q(6172) => q(sou),
+      q(6173) => q(sov),
+      q(6174) => q(sow),
+      q(6175) => q(sox),
+      q(6176) => q(soy),
+      q(6177) => q(soz),
+      q(6178) => q(spb),
+      q(6179) => q(spc),
+      q(6180) => q(spd),
+      q(6181) => q(spe),
+      q(6182) => q(spg),
+      q(6183) => q(spi),
+      q(6184) => q(spk),
+      q(6185) => q(spl),
+      q(6186) => q(spm),
+      q(6187) => q(spn),
+      q(6188) => q(spo),
+      q(6189) => q(spp),
+      q(6190) => q(spq),
+      q(6191) => q(spr),
+      q(6192) => q(sps),
+      q(6193) => q(spt),
+      q(6194) => q(spu),
+      q(6195) => q(spv),
+      q(6196) => q(spx),
+      q(6197) => q(spy),
+      q(6198) => q(sqa),
+      q(6199) => q(sqh),
+      q(6200) => q(sqk),
+      q(6201) => q(sqm),
+      q(6202) => q(sqn),
+      q(6203) => q(sqo),
+      q(6204) => q(sqq),
+      q(6205) => q(sqr),
+      q(6206) => q(sqs),
+      q(6207) => q(sqt),
+      q(6208) => q(squ),
+      q(6209) => q(sra),
+      q(6210) => q(srb),
+      q(6211) => q(src),
+      q(6212) => q(sre),
+      q(6213) => q(srf),
+      q(6214) => q(srg),
+      q(6215) => q(srh),
+      q(6216) => q(sri),
+      q(6217) => q(srk),
+      q(6218) => q(srl),
+      q(6219) => q(srm),
+      q(6220) => q(sro),
+      q(6221) => q(srq),
+      q(6222) => q(srs),
+      q(6223) => q(srt),
+      q(6224) => q(sru),
+      q(6225) => q(srv),
+      q(6226) => q(srw),
+      q(6227) => q(srx),
+      q(6228) => q(sry),
+      q(6229) => q(srz),
+      q(6230) => q(ssb),
+      q(6231) => q(ssc),
+      q(6232) => q(ssd),
+      q(6233) => q(sse),
+      q(6234) => q(ssf),
+      q(6235) => q(ssg),
+      q(6236) => q(ssh),
+      q(6237) => q(ssi),
+      q(6238) => q(ssj),
+      q(6239) => q(ssk),
+      q(6240) => q(ssl),
+      q(6241) => q(ssm),
+      q(6242) => q(ssn),
+      q(6243) => q(sso),
+      q(6244) => q(ssp),
+      q(6245) => q(ssq),
+      q(6246) => q(ssr),
+      q(6247) => q(sss),
+      q(6248) => q(sst),
+      q(6249) => q(ssu),
+      q(6250) => q(ssv),
+      q(6251) => q(ssx),
+      q(6252) => q(ssy),
+      q(6253) => q(ssz),
+      q(6254) => q(sta),
+      q(6255) => q(stb),
+      q(6256) => q(std),
+      q(6257) => q(ste),
+      q(6258) => q(stf),
+      q(6259) => q(stg),
+      q(6260) => q(sth),
+      q(6261) => q(sti),
+      q(6262) => q(stj),
+      q(6263) => q(stk),
+      q(6264) => q(stl),
+      q(6265) => q(stm),
+      q(6266) => q(stn),
+      q(6267) => q(sto),
+      q(6268) => q(stp),
+      q(6269) => q(stq),
+      q(6270) => q(str),
+      q(6271) => q(sts),
+      q(6272) => q(stt),
+      q(6273) => q(stu),
+      q(6274) => q(stv),
+      q(6275) => q(stw),
+      q(6276) => q(sty),
+      q(6277) => q(sua),
+      q(6278) => q(sub),
+      q(6279) => q(suc),
+      q(6280) => q(sue),
+      q(6281) => q(sug),
+      q(6282) => q(sui),
+      q(6283) => q(suj),
+      q(6284) => q(suq),
+      q(6285) => q(sur),
+      q(6286) => q(sut),
+      q(6287) => q(suv),
+      q(6288) => q(suw),
+      q(6289) => q(suy),
+      q(6290) => q(suz),
+      q(6291) => q(sva),
+      q(6292) => q(svb),
+      q(6293) => q(svc),
+      q(6294) => q(sve),
+      q(6295) => q(svk),
+      q(6296) => q(svm),
+      q(6297) => q(svr),
+      q(6298) => q(svs),
+      q(6299) => q(svx),
+      q(6300) => q(swb),
+      q(6301) => q(swc),
+      q(6302) => q(swf),
+      q(6303) => q(swg),
+      q(6304) => q(swh),
+      q(6305) => q(swi),
+      q(6306) => q(swj),
+      q(6307) => q(swk),
+      q(6308) => q(swl),
+      q(6309) => q(swm),
+      q(6310) => q(swn),
+      q(6311) => q(swo),
+      q(6312) => q(swp),
+      q(6313) => q(swq),
+      q(6314) => q(swr),
+      q(6315) => q(sws),
+      q(6316) => q(swt),
+      q(6317) => q(swu),
+      q(6318) => q(swv),
+      q(6319) => q(sww),
+      q(6320) => q(swx),
+      q(6321) => q(swy),
+      q(6322) => q(sxb),
+      q(6323) => q(sxc),
+      q(6324) => q(sxe),
+      q(6325) => q(sxg),
+      q(6326) => q(sxk),
+      q(6327) => q(sxl),
+      q(6328) => q(sxm),
+      q(6329) => q(sxn),
+      q(6330) => q(sxo),
+      q(6331) => q(sxr),
+      q(6332) => q(sxs),
+      q(6333) => q(sxu),
+      q(6334) => q(sxw),
+      q(6335) => q(sya),
+      q(6336) => q(syb),
+      q(6337) => q(syi),
+      q(6338) => q(syk),
+      q(6339) => q(syl),
+      q(6340) => q(sym),
+      q(6341) => q(syn),
+      q(6342) => q(syo),
+      q(6343) => q(sys),
+      q(6344) => q(syw),
+      q(6345) => q(syx),
+      q(6346) => q(syy),
+      q(6347) => q(sza),
+      q(6348) => q(szb),
+      q(6349) => q(szc),
+      q(6350) => q(szd),
+      q(6351) => q(sze),
+      q(6352) => q(szg),
+      q(6353) => q(szl),
+      q(6354) => q(szn),
+      q(6355) => q(szp),
+      q(6356) => q(szv),
+      q(6357) => q(szw),
+      q(6358) => q(taa),
+      q(6359) => q(tab),
+      q(6360) => q(tac),
+      q(6361) => q(tad),
+      q(6362) => q(tae),
+      q(6363) => q(taf),
+      q(6364) => q(tag),
+      q(6365) => q(taj),
+      q(6366) => q(tak),
+      q(6367) => q(tal),
+      q(6368) => q(tan),
+      q(6369) => q(tao),
+      q(6370) => q(tap),
+      q(6371) => q(taq),
+      q(6372) => q(tar),
+      q(6373) => q(tas),
+      q(6374) => q(tau),
+      q(6375) => q(tav),
+      q(6376) => q(taw),
+      q(6377) => q(tax),
+      q(6378) => q(tay),
+      q(6379) => q(taz),
+      q(6380) => q(tba),
+      q(6381) => q(tbb),
+      q(6382) => q(tbc),
+      q(6383) => q(tbd),
+      q(6384) => q(tbe),
+      q(6385) => q(tbf),
+      q(6386) => q(tbg),
+      q(6387) => q(tbh),
+      q(6388) => q(tbi),
+      q(6389) => q(tbj),
+      q(6390) => q(tbk),
+      q(6391) => q(tbl),
+      q(6392) => q(tbm),
+      q(6393) => q(tbn),
+      q(6394) => q(tbo),
+      q(6395) => q(tbp),
+      q(6396) => q(tbr),
+      q(6397) => q(tbs),
+      q(6398) => q(tbt),
+      q(6399) => q(tbu),
+      q(6400) => q(tbv),
+      q(6401) => q(tbw),
+      q(6402) => q(tbx),
+      q(6403) => q(tby),
+      q(6404) => q(tbz),
+      q(6405) => q(tca),
+      q(6406) => q(tcb),
+      q(6407) => q(tcc),
+      q(6408) => q(tcd),
+      q(6409) => q(tce),
+      q(6410) => q(tcf),
+      q(6411) => q(tcg),
+      q(6412) => q(tch),
+      q(6413) => q(wbf),
+      q(6414) => q(tck),
+      q(6415) => q(tcl),
+      q(6416) => q(tcm),
+      q(6417) => q(tcn),
+      q(6418) => q(tco),
+      q(6419) => q(tcp),
+      q(6420) => q(tcq),
+      q(6421) => q(tcs),
+      q(6422) => q(tct),
+      q(6423) => q(tcu),
+      q(6424) => q(tcw),
+      q(6425) => q(tcx),
+      q(6426) => q(tcy),
+      q(6427) => q(tcz),
+      q(6428) => q(tda),
+      q(6429) => q(tdb),
+      q(6430) => q(tdc),
+      q(6431) => q(tdd),
+      q(6432) => q(tde),
+      q(6433) => q(tdf),
+      q(6434) => q(tdg),
+      q(6435) => q(tdh),
+      q(6436) => q(tdi),
+      q(6437) => q(tdj),
+      q(6438) => q(tdk),
+      q(6439) => q(tdl),
+      q(6440) => q(tdn),
+      q(6441) => q(tdo),
+      q(6442) => q(tdq),
+      q(6443) => q(tdr),
+      q(6444) => q(tds),
+      q(6445) => q(tdt),
+      q(6446) => q(tdu),
+      q(6447) => q(tdv),
+      q(6448) => q(tdx),
+      q(6449) => q(tdy),
+      q(6450) => q(tea),
+      q(6451) => q(teb),
+      q(6452) => q(tec),
+      q(6453) => q(ted),
+      q(6454) => q(tee),
+      q(6455) => q(tef),
+      q(6456) => q(teg),
+      q(6457) => q(teh),
+      q(6458) => q(tei),
+      q(6459) => q(tek),
+      q(6460) => q(ten),
+      q(6461) => q(teo),
+      q(6462) => q(tep),
+      q(6463) => q(teq),
+      q(6464) => q(tes),
+      q(6465) => q(teu),
+      q(6466) => q(tev),
+      q(6467) => q(tew),
+      q(6468) => q(tex),
+      q(6469) => q(tey),
+      q(6470) => q(tfi),
+      q(6471) => q(tfn),
+      q(6472) => q(tfo),
+      q(6473) => q(tfr),
+      q(6474) => q(tft),
+      q(6475) => q(tga),
+      q(6476) => q(tgb),
+      q(6477) => q(tgc),
+      q(6478) => q(tgd),
+      q(6479) => q(tge),
+      q(6480) => q(tgf),
+      q(6481) => q(tgh),
+      q(6482) => q(tgi),
+      q(6483) => q(tgj),
+      q(6484) => q(tgn),
+      q(6485) => q(tgo),
+      q(6486) => q(tgp),
+      q(6487) => q(tgq),
+      q(6488) => q(tgr),
+      q(6489) => q(tgs),
+      q(6490) => q(tgt),
+      q(6491) => q(tgu),
+      q(6492) => q(tgv),
+      q(6493) => q(tgw),
+      q(6494) => q(tgx),
+      q(6495) => q(tgy),
+      q(6496) => q(tgz),
+      q(6497) => q(thc),
+      q(6498) => q(thd),
+      q(6499) => q(the),
+      q(6500) => q(thf),
+      q(6501) => q(thh),
+      q(6502) => q(thi),
+      q(6503) => q(thk),
+      q(6504) => q(thl),
+      q(6505) => q(thm),
+      q(6506) => q(thn),
+      q(6507) => q(thp),
+      q(6508) => q(thq),
+      q(6509) => q(thr),
+      q(6510) => q(ths),
+      q(6511) => q(tht),
+      q(6512) => q(thu),
+      q(6513) => q(thv),
+      q(6514) => q(thw),
+      q(6515) => q(thy),
+      q(6516) => q(thz),
+      q(6517) => q(tia),
+      q(6518) => q(tic),
+      q(6519) => q(tid),
+      q(6520) => q(tif),
+      q(6521) => q(tih),
+      q(6522) => q(tii),
+      q(6523) => q(tij),
+      q(6524) => q(tik),
+      q(6525) => q(til),
+      q(6526) => q(tim),
+      q(6527) => q(tin),
+      q(6528) => q(tio),
+      q(6529) => q(tip),
+      q(6530) => q(tiq),
+      q(6531) => q(tis),
+      q(6532) => q(tit),
+      q(6533) => q(tiu),
+      q(6534) => q(tiw),
+      q(6535) => q(tix),
+      q(6536) => q(tiy),
+      q(6537) => q(tiz),
+      q(6538) => q(tja),
+      q(6539) => q(tjg),
+      q(6540) => q(tji),
+      q(6541) => q(tjl),
+      q(6542) => q(tjm),
+      q(6543) => q(tjn),
+      q(6544) => q(tjo),
+      q(6545) => q(tjs),
+      q(6546) => q(tju),
+      q(6547) => q(tjw),
+      q(6548) => q(tka),
+      q(6549) => q(tkb),
+      q(6550) => q(tkd),
+      q(6551) => q(tke),
+      q(6552) => q(tkf),
+      q(6553) => q(tkg),
+      q(6554) => q(tkm),
+      q(6555) => q(tkn),
+      q(6556) => q(tkp),
+      q(6557) => q(tkq),
+      q(6558) => q(tkr),
+      q(6559) => q(tks),
+      q(6560) => q(tkt),
+      q(6561) => q(tku),
+      q(6562) => q(tkv),
+      q(6563) => q(tkw),
+      q(6564) => q(tkx),
+      q(6565) => q(tkz),
+      q(6566) => q(tla),
+      q(6567) => q(tlb),
+      q(6568) => q(tlc),
+      q(6569) => q(tld),
+      q(6570) => q(tlf),
+      q(6571) => q(tlg),
+      q(6572) => q(tlj),
+      q(6573) => q(tlk),
+      q(6574) => q(tll),
+      q(6575) => q(tlm),
+      q(6576) => q(tln),
+      q(6577) => q(tlo),
+      q(6578) => q(tlp),
+      q(6579) => q(tlq),
+      q(6580) => q(tlr),
+      q(6581) => q(tls),
+      q(6582) => q(tlt),
+      q(6583) => q(tlu),
+      q(6584) => q(tlv),
+      q(6585) => q(tlx),
+      q(6586) => q(tly),
+      q(6587) => q(tma),
+      q(6588) => q(tmb),
+      q(6589) => q(tmc),
+      q(6590) => q(tmd),
+      q(6591) => q(tme),
+      q(6592) => q(tmf),
+      q(6593) => q(tmg),
+      q(6594) => q(tmi),
+      q(6595) => q(tmj),
+      q(6596) => q(tmk),
+      q(6597) => q(tml),
+      q(6598) => q(tmm),
+      q(6599) => q(tmn),
+      q(6600) => q(tmo),
+      q(6601) => q(tmp),
+      q(6602) => q(tmq),
+      q(6603) => q(tmr),
+      q(6604) => q(tms),
+      q(6605) => q(tmt),
+      q(6606) => q(tmu),
+      q(6607) => q(tmv),
+      q(6608) => q(tmw),
+      q(6609) => q(tmy),
+      q(6610) => q(tmz),
+      q(6611) => q(tna),
+      q(6612) => q(tnb),
+      q(6613) => q(tnc),
+      q(6614) => q(tnd),
+      q(6615) => q(tne),
+      q(6616) => q(tng),
+      q(6617) => q(tnh),
+      q(6618) => q(tni),
+      q(6619) => q(tnk),
+      q(6620) => q(tnl),
+      q(6621) => q(tnm),
+      q(6622) => q(tnn),
+      q(6623) => q(tno),
+      q(6624) => q(tnp),
+      q(6625) => q(tnq),
+      q(6626) => q(tnr),
+      q(6627) => q(tns),
+      q(6628) => q(tnt),
+      q(6629) => q(tnu),
+      q(6630) => q(tnv),
+      q(6631) => q(tnw),
+      q(6632) => q(tnx),
+      q(6633) => q(tny),
+      q(6634) => q(tnz),
+      q(6635) => q(tob),
+      q(6636) => q(toc),
+      q(6637) => q(tod),
+      q(6638) => q(toe),
+      q(6639) => q(tof),
+      q(6640) => q(toh),
+      q(6641) => q(toi),
+      q(6642) => q(toj),
+      q(6643) => q(tol),
+      q(6644) => q(tom),
+      q(6645) => q(too),
+      q(6646) => q(top),
+      q(6647) => q(toq),
+      q(6648) => q(tor),
+      q(6649) => q(tos),
+      q(6650) => q(tou),
+      q(6651) => q(tov),
+      q(6652) => q(tow),
+      q(6653) => q(tox),
+      q(6654) => q(toy),
+      q(6655) => q(toz),
+      q(6656) => q(tpa),
+      q(6657) => q(tpc),
+      q(6658) => q(tpe),
+      q(6659) => q(tpf),
+      q(6660) => q(tpg),
+      q(6661) => q(tpj),
+      q(6662) => q(tpk),
+      q(6663) => q(tpl),
+      q(6664) => q(tpm),
+      q(6665) => q(tpn),
+      q(6666) => q(tpo),
+      q(6667) => q(tpp),
+      q(6668) => q(tpq),
+      q(6669) => q(tpr),
+      q(6670) => q(tpt),
+      q(6671) => q(tpu),
+      q(6672) => q(tpv),
+      q(6673) => q(tpw),
+      q(6674) => q(tpx),
+      q(6675) => q(tpy),
+      q(6676) => q(tpz),
+      q(6677) => q(tqb),
+      q(6678) => q(tql),
+      q(6679) => q(tqm),
+      q(6680) => q(tqn),
+      q(6681) => q(tqo),
+      q(6682) => q(tqp),
+      q(6683) => q(tqq),
+      q(6684) => q(tqr),
+      q(6685) => q(tqt),
+      q(6686) => q(tqu),
+      q(6687) => q(tqw),
+      q(6688) => q(tra),
+      q(6689) => q(trb),
+      q(6690) => q(trc),
+      q(6691) => q(trd),
+      q(6692) => q(tre),
+      q(6693) => q(trf),
+      q(6694) => q(trg),
+      q(6695) => q(trh),
+      q(6696) => q(tri),
+      q(6697) => q(trj),
+      q(6698) => q(trl),
+      q(6699) => q(trm),
+      q(6700) => q(trn),
+      q(6701) => q(tro),
+      q(6702) => q(trp),
+      q(6703) => q(trq),
+      q(6704) => q(trr),
+      q(6705) => q(trs),
+      q(6706) => q(trt),
+      q(6707) => q(tru),
+      q(6708) => q(trv),
+      q(6709) => q(trw),
+      q(6710) => q(trx),
+      q(6711) => q(try),
+      q(6712) => q(trz),
+      q(6713) => q(tsa),
+      q(6714) => q(tsb),
+      q(6715) => q(tsc),
+      q(6716) => q(tsd),
+      q(6717) => q(tse),
+      q(6718) => q(tsg),
+      q(6719) => q(tsh),
+      q(6720) => q(tsj),
+      q(6721) => q(tsk),
+      q(6722) => q(tsl),
+      q(6723) => q(tsm),
+      q(6724) => q(tsp),
+      q(6725) => q(tsq),
+      q(6726) => q(tsr),
+      q(6727) => q(tss),
+      q(6728) => q(tst),
+      q(6729) => q(tsu),
+      q(6730) => q(tsv),
+      q(6731) => q(tsw),
+      q(6732) => q(tsx),
+      q(6733) => q(tsy),
+      q(6734) => q(tsz),
+      q(6735) => q(tta),
+      q(6736) => q(ttb),
+      q(6737) => q(ttc),
+      q(6738) => q(ttd),
+      q(6739) => q(tte),
+      q(6740) => q(ttf),
+      q(6741) => q(ttg),
+      q(6742) => q(tth),
+      q(6743) => q(tti),
+      q(6744) => q(ttj),
+      q(6745) => q(ttk),
+      q(6746) => q(ttl),
+      q(6747) => q(ttm),
+      q(6748) => q(ttn),
+      q(6749) => q(tto),
+      q(6750) => q(ttp),
+      q(6751) => q(ttq),
+      q(6752) => q(ttr),
+      q(6753) => q(tts),
+      q(6754) => q(ttt),
+      q(6755) => q(ttu),
+      q(6756) => q(ttv),
+      q(6757) => q(ttw),
+      q(6758) => q(tty),
+      q(6759) => q(ttz),
+      q(6760) => q(tua),
+      q(6761) => q(tub),
+      q(6762) => q(tuc),
+      q(6763) => q(tud),
+      q(6764) => q(tue),
+      q(6765) => q(tuf),
+      q(6766) => q(tug),
+      q(6767) => q(tuh),
+      q(6768) => q(tui),
+      q(6769) => q(tuj),
+      q(6770) => q(tul),
+      q(6771) => q(tun),
+      q(6772) => q(tuo),
+      q(6773) => q(tuq),
+      q(6774) => q(tus),
+      q(6775) => q(tuu),
+      q(6776) => q(tuv),
+      q(6777) => q(tux),
+      q(6778) => q(tuy),
+      q(6779) => q(tuz),
+      q(6780) => q(tva),
+      q(6781) => q(tvd),
+      q(6782) => q(tve),
+      q(6783) => q(tvk),
+      q(6784) => q(tvm),
+      q(6785) => q(tvn),
+      q(6786) => q(tvo),
+      q(6787) => q(tvs),
+      q(6788) => q(tvt),
+      q(6789) => q(tvu),
+      q(6790) => q(tvw),
+      q(6791) => q(tvy),
+      q(6792) => q(twa),
+      q(6793) => q(twb),
+      q(6794) => q(twc),
+      q(6795) => q(twd),
+      q(6796) => q(twe),
+      q(6797) => q(twf),
+      q(6798) => q(twg),
+      q(6799) => q(twh),
+      q(6800) => q(twl),
+      q(6801) => q(twm),
+      q(6802) => q(twn),
+      q(6803) => q(two),
+      q(6804) => q(twp),
+      q(6805) => q(twq),
+      q(6806) => q(twr),
+      q(6807) => q(twt),
+      q(6808) => q(twu),
+      q(6809) => q(tww),
+      q(6810) => q(twx),
+      q(6811) => q(twy),
+      q(6812) => q(txa),
+      q(6813) => q(txb),
+      q(6814) => q(txc),
+      q(6815) => q(txe),
+      q(6816) => q(txg),
+      q(6817) => q(txh),
+      q(6818) => q(txi),
+      q(6819) => q(txj),
+      q(6820) => q(txm),
+      q(6821) => q(txn),
+      q(6822) => q(txo),
+      q(6823) => q(txq),
+      q(6824) => q(txr),
+      q(6825) => q(txs),
+      q(6826) => q(txt),
+      q(6827) => q(txu),
+      q(6828) => q(txx),
+      q(6829) => q(txy),
+      q(6830) => q(tya),
+      q(6831) => q(tye),
+      q(6832) => q(tyh),
+      q(6833) => q(tyi),
+      q(6834) => q(tyj),
+      q(6835) => q(tyl),
+      q(6836) => q(tyn),
+      q(6837) => q(typ),
+      q(6838) => q(tyr),
+      q(6839) => q(tys),
+      q(6840) => q(tyt),
+      q(6841) => q(tyu),
+      q(6842) => q(tyx),
+      q(6843) => q(tyz),
+      q(6844) => q(tza),
+      q(6845) => q(tzh),
+      q(6846) => q(tzj),
+      q(6847) => q(tzl),
+      q(6848) => q(tzm),
+      q(6849) => q(tzn),
+      q(6850) => q(tzo),
+      q(6851) => q(tzx),
+      q(6852) => q(uam),
+      q(6853) => q(uan),
+      q(6854) => q(uar),
+      q(6855) => q(uba),
+      q(6856) => q(ubi),
+      q(6857) => q(ubl),
+      q(6858) => q(ubr),
+      q(6859) => q(ubu),
+      q(6860) => q(uby),
+      q(6861) => q(uda),
+      q(6862) => q(ude),
+      q(6863) => q(udg),
+      q(6864) => q(udi),
+      q(6865) => q(udj),
+      q(6866) => q(udl),
+      q(6867) => q(udu),
+      q(6868) => q(ues),
+      q(6869) => q(ufi),
+      q(6870) => q(ugb),
+      q(6871) => q(uge),
+      q(6872) => q(ugn),
+      q(6873) => q(ugo),
+      q(6874) => q(ugy),
+      q(6875) => q(uha),
+      q(6876) => q(uhn),
+      q(6877) => q(uis),
+      q(6878) => q(uiv),
+      q(6879) => q(uji),
+      q(6880) => q(uka),
+      q(6881) => q(ukg),
+      q(6882) => q(ukh),
+      q(6883) => q(ukl),
+      q(6884) => q(ukp),
+      q(6885) => q(ukq),
+      q(6886) => q(uks),
+      q(6887) => q(uku),
+      q(6888) => q(ukw),
+      q(6889) => q(uky),
+      q(6890) => q(ula),
+      q(6891) => q(ulb),
+      q(6892) => q(ulc),
+      q(6893) => q(ule),
+      q(6894) => q(ulf),
+      q(6895) => q(uli),
+      q(6896) => q(ulk),
+      q(6897) => q(ull),
+      q(6898) => q(ulm),
+      q(6899) => q(uln),
+      q(6900) => q(ulu),
+      q(6901) => q(ulw),
+      q(6902) => q(uma),
+      q(6903) => q(umc),
+      q(6904) => q(umd),
+      q(6905) => q(umg),
+      q(6906) => q(umi),
+      q(6907) => q(umm),
+      q(6908) => q(umn),
+      q(6909) => q(umo),
+      q(6910) => q(ump),
+      q(6911) => q(umr),
+      q(6912) => q(ums),
+      q(6913) => q(umu),
+      q(6914) => q(una),
+      q(6915) => q(une),
+      q(6916) => q(ung),
+      q(6917) => q(unk),
+      q(6918) => q(unm),
+      q(6919) => q(unn),
+      q(6920) => q(unr),
+      q(6921) => q(unu),
+      q(6922) => q(unx),
+      q(6923) => q(unz),
+      q(6924) => q(upi),
+      q(6925) => q(upv),
+      q(6926) => q(ura),
+      q(6927) => q(urb),
+      q(6928) => q(urc),
+      q(6929) => q(ure),
+      q(6930) => q(urf),
+      q(6931) => q(urg),
+      q(6932) => q(urh),
+      q(6933) => q(uri),
+      q(6934) => q(urk),
+      q(6935) => q(url),
+      q(6936) => q(urm),
+      q(6937) => q(urn),
+      q(6938) => q(uro),
+      q(6939) => q(urp),
+      q(6940) => q(urr),
+      q(6941) => q(urt),
+      q(6942) => q(uru),
+      q(6943) => q(urv),
+      q(6944) => q(urw),
+      q(6945) => q(urx),
+      q(6946) => q(ury),
+      q(6947) => q(urz),
+      q(6948) => q(usa),
+      q(6949) => q(ush),
+      q(6950) => q(usi),
+      q(6951) => q(usk),
+      q(6952) => q(usp),
+      q(6953) => q(usu),
+      q(6954) => q(uta),
+      q(6955) => q(ute),
+      q(6956) => q(utp),
+      q(6957) => q(utr),
+      q(6958) => q(utu),
+      q(6959) => q(uum),
+      q(6960) => q(uun),
+      q(6961) => q(uur),
+      q(6962) => q(uuu),
+      q(6963) => q(uve),
+      q(6964) => q(uvh),
+      q(6965) => q(uvl),
+      q(6966) => q(uwa),
+      q(6967) => q(uya),
+      q(6968) => q(uzn),
+      q(6969) => q(uzs),
+      q(6970) => q(vaa),
+      q(6971) => q(vae),
+      q(6972) => q(vaf),
+      q(6973) => q(vag),
+      q(6974) => q(vah),
+      q(6975) => q(vaj),
+      q(6976) => q(val),
+      q(6977) => q(vam),
+      q(6978) => q(van),
+      q(6979) => q(vao),
+      q(6980) => q(vap),
+      q(6981) => q(var),
+      q(6982) => q(vas),
+      q(6983) => q(vau),
+      q(6984) => q(vav),
+      q(6985) => q(vay),
+      q(6986) => q(vbb),
+      q(6987) => q(vbk),
+      q(6988) => q(vec),
+      q(6989) => q(ved),
+      q(6990) => q(vel),
+      q(6991) => q(vem),
+      q(6992) => q(veo),
+      q(6993) => q(vep),
+      q(6994) => q(ver),
+      q(6995) => q(vgr),
+      q(6996) => q(vgt),
+      q(6997) => q(vic),
+      q(6998) => q(vid),
+      q(6999) => q(vif),
+      q(7000) => q(vig),
+      q(7001) => q(vil),
+      q(7002) => q(vin),
+      q(7003) => q(vis),
+      q(7004) => q(vit),
+      q(7005) => q(viv),
+      q(7006) => q(vka),
+      q(7007) => q(vki),
+      q(7008) => q(vkj),
+      q(7009) => q(vkk),
+      q(7010) => q(vkl),
+      q(7011) => q(vkm),
+      q(7012) => q(vko),
+      q(7013) => q(vkp),
+      q(7014) => q(vkt),
+      q(7015) => q(vku),
+      q(7016) => q(vlp),
+      q(7017) => q(vls),
+      q(7018) => q(vma),
+      q(7019) => q(vmb),
+      q(7020) => q(vmc),
+      q(7021) => q(vmd),
+      q(7022) => q(vme),
+      q(7023) => q(vmf),
+      q(7024) => q(vmg),
+      q(7025) => q(vmh),
+      q(7026) => q(vmi),
+      q(7027) => q(vmj),
+      q(7028) => q(vmk),
+      q(7029) => q(vml),
+      q(7030) => q(vmm),
+      q(7031) => q(vmp),
+      q(7032) => q(vmq),
+      q(7033) => q(vmr),
+      q(7034) => q(vms),
+      q(7035) => q(vmu),
+      q(7036) => q(vmv),
+      q(7037) => q(vmw),
+      q(7038) => q(vmx),
+      q(7039) => q(vmy),
+      q(7040) => q(vmz),
+      q(7041) => q(vnk),
+      q(7042) => q(vnm),
+      q(7043) => q(vnp),
+      q(7044) => q(vro),
+      q(7045) => q(vra),
+      q(7046) => q(vrs),
+      q(7047) => q(vrt),
+      q(7048) => q(vsi),
+      q(7049) => q(vsl),
+      q(7050) => q(vsv),
+      q(7051) => q(vto),
+      q(7052) => q(vum),
+      q(7053) => q(vun),
+      q(7054) => q(vut),
+      q(7055) => q(vwa),
+      q(7056) => q(waa),
+      q(7057) => q(wab),
+      q(7058) => q(wac),
+      q(7059) => q(wad),
+      q(7060) => q(wae),
+      q(7061) => q(waf),
+      q(7062) => q(wag),
+      q(7063) => q(wah),
+      q(7064) => q(wai),
+      q(7065) => q(waj),
+      q(7066) => q(wam),
+      q(7067) => q(wan),
+      q(7068) => q(wao),
+      q(7069) => q(wap),
+      q(7070) => q(waq),
+      q(7071) => q(wat),
+      q(7072) => q(wau),
+      q(7073) => q(wav),
+      q(7074) => q(waw),
+      q(7075) => q(wax),
+      q(7076) => q(way),
+      q(7077) => q(waz),
+      q(7078) => q(wba),
+      q(7079) => q(wbb),
+      q(7080) => q(wbe),
+      q(7081) => q(wbh),
+      q(7082) => q(wbi),
+      q(7083) => q(wbj),
+      q(7084) => q(wbk),
+      q(7085) => q(wbl),
+      q(7086) => q(wbm),
+      q(7087) => q(wbp),
+      q(7088) => q(wbq),
+      q(7089) => q(wbr),
+      q(7090) => q(wbt),
+      q(7091) => q(wbv),
+      q(7092) => q(wbw),
+      q(7093) => q(wca),
+      q(7094) => q(wci),
+      q(7095) => q(wdd),
+      q(7096) => q(wdg),
+      q(7097) => q(wdj),
+      q(7098) => q(wdk),
+      q(7099) => q(wdu),
+      q(7100) => q(wdy),
+      q(7101) => q(wea),
+      q(7102) => q(wec),
+      q(7103) => q(wed),
+      q(7104) => q(weg),
+      q(7105) => q(weh),
+      q(7106) => q(wei),
+      q(7107) => q(wem),
+      q(7108) => q(weo),
+      q(7109) => q(wep),
+      q(7110) => q(wer),
+      q(7111) => q(wes),
+      q(7112) => q(wet),
+      q(7113) => q(weu),
+      q(7114) => q(wew),
+      q(7115) => q(wfg),
+      q(7116) => q(wga),
+      q(7117) => q(wgb),
+      q(7118) => q(wgg),
+      q(7119) => q(wgi),
+      q(7120) => q(wgo),
+      q(7121) => q(wgu),
+      q(7122) => q(wgy),
+      q(7123) => q(wha),
+      q(7124) => q(whg),
+      q(7125) => q(whk),
+      q(7126) => q(whu),
+      q(7127) => q(wib),
+      q(7128) => q(wic),
+      q(7129) => q(wie),
+      q(7130) => q(wif),
+      q(7131) => q(wig),
+      q(7132) => q(wih),
+      q(7133) => q(wii),
+      q(7134) => q(wij),
+      q(7135) => q(wik),
+      q(7136) => q(wil),
+      q(7137) => q(wim),
+      q(7138) => q(win),
+      q(7139) => q(wir),
+      q(7140) => q(wiu),
+      q(7141) => q(wiv),
+      q(7142) => q(wiy),
+      q(7143) => q(wja),
+      q(7144) => q(wji),
+      q(7145) => q(wka),
+      q(7146) => q(wkb),
+      q(7147) => q(wkd),
+      q(7148) => q(wkl),
+      q(7149) => q(wku),
+      q(7150) => q(wkw),
+      q(7151) => q(wky),
+      q(7152) => q(wla),
+      q(7153) => q(wlc),
+      q(7154) => q(wle),
+      q(7155) => q(wlg),
+      q(7156) => q(wli),
+      q(7157) => q(wlk),
+      q(7158) => q(wll),
+      q(7159) => q(wlm),
+      q(7160) => q(wlo),
+      q(7161) => q(wlr),
+      q(7162) => q(wls),
+      q(7163) => q(wlu),
+      q(7164) => q(wlv),
+      q(7165) => q(wlw),
+      q(7166) => q(wlx),
+      q(7167) => q(wly),
+      q(7168) => q(wma),
+      q(7169) => q(wmb),
+      q(7170) => q(wmc),
+      q(7171) => q(wmd),
+      q(7172) => q(wme),
+      q(7173) => q(wmh),
+      q(7174) => q(wmi),
+      q(7175) => q(wmm),
+      q(7176) => q(wmn),
+      q(7177) => q(wmo),
+      q(7178) => q(wms),
+      q(7179) => q(wmt),
+      q(7180) => q(wmw),
+      q(7181) => q(wmx),
+      q(7182) => q(wnb),
+      q(7183) => q(wnc),
+      q(7184) => q(wnd),
+      q(7185) => q(wne),
+      q(7186) => q(wng),
+      q(7187) => q(wni),
+      q(7188) => q(wnk),
+      q(7189) => q(wnm),
+      q(7190) => q(wnn),
+      q(7191) => q(wno),
+      q(7192) => q(wnp),
+      q(7193) => q(wnu),
+      q(7194) => q(wnw),
+      q(7195) => q(wny),
+      q(7196) => q(woa),
+      q(7197) => q(wob),
+      q(7198) => q(woc),
+      q(7199) => q(wod),
+      q(7200) => q(woe),
+      q(7201) => q(wof),
+      q(7202) => q(wog),
+      q(7203) => q(woi),
+      q(7204) => q(wok),
+      q(7205) => q(wom),
+      q(7206) => q(won),
+      q(7207) => q(woo),
+      q(7208) => q(wor),
+      q(7209) => q(wos),
+      q(7210) => q(wow),
+      q(7211) => q(woy),
+      q(7212) => q(wpc),
+      q(7213) => q(wra),
+      q(7214) => q(wrb),
+      q(7215) => q(wrd),
+      q(7216) => q(wrg),
+      q(7217) => q(wrh),
+      q(7218) => q(wri),
+      q(7219) => q(wrk),
+      q(7220) => q(wrl),
+      q(7221) => q(wrm),
+      q(7222) => q(wrn),
+      q(7223) => q(wro),
+      q(7224) => q(wrp),
+      q(7225) => q(wrr),
+      q(7226) => q(wrs),
+      q(7227) => q(wru),
+      q(7228) => q(wrv),
+      q(7229) => q(wrw),
+      q(7230) => q(wrx),
+      q(7231) => q(wry),
+      q(7232) => q(wrz),
+      q(7233) => q(wsa),
+      q(7234) => q(wsi),
+      q(7235) => q(wsk),
+      q(7236) => q(wsr),
+      q(7237) => q(wss),
+      q(7238) => q(wsu),
+      q(7239) => q(wsv),
+      q(7240) => q(wtf),
+      q(7241) => q(wth),
+      q(7242) => q(wti),
+      q(7243) => q(wtk),
+      q(7244) => q(wtm),
+      q(7245) => q(wtw),
+      q(7246) => q(wua),
+      q(7247) => q(wub),
+      q(7248) => q(wud),
+      q(7249) => q(wuh),
+      q(7250) => q(wul),
+      q(7251) => q(wum),
+      q(7252) => q(wun),
+      q(7253) => q(wur),
+      q(7254) => q(wut),
+      q(7255) => q(wuu),
+      q(7256) => q(wuv),
+      q(7257) => q(wux),
+      q(7258) => q(wuy),
+      q(7259) => q(wwa),
+      q(7260) => q(wwb),
+      q(7261) => q(wwo),
+      q(7262) => q(wwr),
+      q(7263) => q(www),
+      q(7264) => q(wxa),
+      q(7265) => q(wxw),
+      q(7266) => q(wya),
+      q(7267) => q(wyb),
+      q(7268) => q(wyi),
+      q(7269) => q(wym),
+      q(7270) => q(wyr),
+      q(7271) => q(wyy),
+      q(7272) => q(xaa),
+      q(7273) => q(xab),
+      q(7274) => q(xac),
+      q(7275) => q(xad),
+      q(7276) => q(xae),
+      q(7277) => q(xag),
+      q(7278) => q(xai),
+      q(7279) => q(xaj),
+      q(7280) => q(xam),
+      q(7281) => q(xan),
+      q(7282) => q(xao),
+      q(7283) => q(xap),
+      q(7284) => q(xaq),
+      q(7285) => q(xar),
+      q(7286) => q(xas),
+      q(7287) => q(xat),
+      q(7288) => q(xau),
+      q(7289) => q(xav),
+      q(7290) => q(xaw),
+      q(7291) => q(xay),
+      q(7292) => q(xba),
+      q(7293) => q(xbb),
+      q(7294) => q(xbc),
+      q(7295) => q(xbd),
+      q(7296) => q(xbe),
+      q(7297) => q(xbg),
+      q(7298) => q(xbi),
+      q(7299) => q(xbj),
+      q(7300) => q(xbm),
+      q(7301) => q(xbn),
+      q(7302) => q(xbo),
+      q(7303) => q(xbp),
+      q(7304) => q(xbr),
+      q(7305) => q(xbw),
+      q(7306) => q(xbx),
+      q(7307) => q(xby),
+      q(7308) => q(xcb),
+      q(7309) => q(xcc),
+      q(7310) => q(xce),
+      q(7311) => q(xcg),
+      q(7312) => q(xch),
+      q(7313) => q(xcl),
+      q(7314) => q(xcm),
+      q(7315) => q(xcn),
+      q(7316) => q(xco),
+      q(7317) => q(xcr),
+      q(7318) => q(xct),
+      q(7319) => q(xcu),
+      q(7320) => q(xcv),
+      q(7321) => q(xcw),
+      q(7322) => q(xcy),
+      q(7323) => q(xda),
+      q(7324) => q(xdc),
+      q(7325) => q(xdk),
+      q(7326) => q(xdm),
+      q(7327) => q(xdy),
+      q(7328) => q(xeb),
+      q(7329) => q(xed),
+      q(7330) => q(xeg),
+      q(7331) => q(xel),
+      q(7332) => q(xem),
+      q(7333) => q(xep),
+      q(7334) => q(xer),
+      q(7335) => q(xes),
+      q(7336) => q(xet),
+      q(7337) => q(xeu),
+      q(7338) => q(xfa),
+      q(7339) => q(xga),
+      q(7340) => q(xgb),
+      q(7341) => q(xgd),
+      q(7342) => q(xgf),
+      q(7343) => q(xgg),
+      q(7344) => q(xgi),
+      q(7345) => q(xgl),
+      q(7346) => q(xgm),
+      q(7347) => q(xgr),
+      q(7348) => q(xgu),
+      q(7349) => q(xgw),
+      q(7350) => q(xha),
+      q(7351) => q(xhc),
+      q(7352) => q(xhd),
+      q(7353) => q(xhe),
+      q(7354) => q(xhr),
+      q(7355) => q(xht),
+      q(7356) => q(xhu),
+      q(7357) => q(xhv),
+      q(7358) => q(xib),
+      q(7359) => q(xii),
+      q(7360) => q(xil),
+      q(7361) => q(xin),
+      q(7362) => q(xip),
+      q(7363) => q(xir),
+      q(7364) => q(xis),
+      q(7365) => q(xiv),
+      q(7366) => q(xiy),
+      q(7367) => q(xjb),
+      q(7368) => q(xjt),
+      q(7369) => q(xka),
+      q(7370) => q(xkb),
+      q(7371) => q(xkc),
+      q(7372) => q(xkd),
+      q(7373) => q(xke),
+      q(7374) => q(xkf),
+      q(7375) => q(xkg),
+      q(7376) => q(xkh),
+      q(7377) => q(xki),
+      q(7378) => q(xkj),
+      q(7379) => q(xkk),
+      q(7380) => q(xkl),
+      q(7381) => q(xkn),
+      q(7382) => q(xko),
+      q(7383) => q(xkp),
+      q(7384) => q(xkq),
+      q(7385) => q(xkr),
+      q(7386) => q(xks),
+      q(7387) => q(xkt),
+      q(7388) => q(xku),
+      q(7389) => q(xkv),
+      q(7390) => q(xkw),
+      q(7391) => q(xkx),
+      q(7392) => q(xky),
+      q(7393) => q(xkz),
+      q(7394) => q(xla),
+      q(7395) => q(xlb),
+      q(7396) => q(xlc),
+      q(7397) => q(xld),
+      q(7398) => q(xle),
+      q(7399) => q(xlg),
+      q(7400) => q(xli),
+      q(7401) => q(xln),
+      q(7402) => q(xlo),
+      q(7403) => q(xlp),
+      q(7404) => q(xls),
+      q(7405) => q(xlu),
+      q(7406) => q(xly),
+      q(7407) => q(xma),
+      q(7408) => q(xmb),
+      q(7409) => q(xmc),
+      q(7410) => q(xmd),
+      q(7411) => q(xme),
+      q(7412) => q(xmf),
+      q(7413) => q(xmg),
+      q(7414) => q(xmh),
+      q(7415) => q(xmj),
+      q(7416) => q(xmk),
+      q(7417) => q(xml),
+      q(7418) => q(xmm),
+      q(7419) => q(xmn),
+      q(7420) => q(xmo),
+      q(7421) => q(xmp),
+      q(7422) => q(xmq),
+      q(7423) => q(xmr),
+      q(7424) => q(xms),
+      q(7425) => q(xmt),
+      q(7426) => q(xmu),
+      q(7427) => q(xmv),
+      q(7428) => q(xmw),
+      q(7429) => q(xmx),
+      q(7430) => q(xmy),
+      q(7431) => q(xmz),
+      q(7432) => q(xna),
+      q(7433) => q(xnb),
+      q(7434) => q(xng),
+      q(7435) => q(xnh),
+      q(7436) => q(xni),
+      q(7437) => q(xnk),
+      q(7438) => q(xnn),
+      q(7439) => q(xno),
+      q(7440) => q(xnr),
+      q(7441) => q(xns),
+      q(7442) => q(xnt),
+      q(7443) => q(xnu),
+      q(7444) => q(xny),
+      q(7445) => q(xnz),
+      q(7446) => q(xoc),
+      q(7447) => q(xod),
+      q(7448) => q(xog),
+      q(7449) => q(xoi),
+      q(7450) => q(xok),
+      q(7451) => q(xom),
+      q(7452) => q(xon),
+      q(7453) => q(xoo),
+      q(7454) => q(xop),
+      q(7455) => q(xor),
+      q(7456) => q(xow),
+      q(7457) => q(xpa),
+      q(7458) => q(xpc),
+      q(7459) => q(xpe),
+      q(7460) => q(xpg),
+      q(7461) => q(xpi),
+      q(7462) => q(xpj),
+      q(7463) => q(xpk),
+      q(7464) => q(xpm),
+      q(7465) => q(xpn),
+      q(7466) => q(xpo),
+      q(7467) => q(xpp),
+      q(7468) => q(xpq),
+      q(7469) => q(xpr),
+      q(7470) => q(xps),
+      q(7471) => q(xpt),
+      q(7472) => q(xpu),
+      q(7473) => q(xpy),
+      q(7474) => q(xqa),
+      q(7475) => q(xqt),
+      q(7476) => q(xra),
+      q(7477) => q(xrb),
+      q(7478) => q(xrd),
+      q(7479) => q(xre),
+      q(7480) => q(xrg),
+      q(7481) => q(xri),
+      q(7482) => q(xrm),
+      q(7483) => q(xrn),
+      q(7484) => q(xrq),
+      q(7485) => q(xrr),
+      q(7486) => q(xrt),
+      q(7487) => q(xru),
+      q(7488) => q(xrw),
+      q(7489) => q(xsa),
+      q(7490) => q(xsb),
+      q(7491) => q(xsc),
+      q(7492) => q(xsd),
+      q(7493) => q(xse),
+      q(7494) => q(xsh),
+      q(7495) => q(xsi),
+      q(7496) => q(xsl),
+      q(7497) => q(xsm),
+      q(7498) => q(xsn),
+      q(7499) => q(xso),
+      q(7500) => q(xsp),
+      q(7501) => q(xsq),
+      q(7502) => q(xsr),
+      q(7503) => q(xss),
+      q(7504) => q(xsu),
+      q(7505) => q(xsv),
+      q(7506) => q(xsy),
+      q(7507) => q(xta),
+      q(7508) => q(xtb),
+      q(7509) => q(xtc),
+      q(7510) => q(xtd),
+      q(7511) => q(xte),
+      q(7512) => q(xtg),
+      q(7513) => q(xth),
+      q(7514) => q(xti),
+      q(7515) => q(xtj),
+      q(7516) => q(xtl),
+      q(7517) => q(xtm),
+      q(7518) => q(xtn),
+      q(7519) => q(xto),
+      q(7520) => q(xtp),
+      q(7521) => q(xtq),
+      q(7522) => q(xtr),
+      q(7523) => q(xts),
+      q(7524) => q(xtt),
+      q(7525) => q(xtu),
+      q(7526) => q(xtv),
+      q(7527) => q(xtw),
+      q(7528) => q(xty),
+      q(7529) => q(xtz),
+      q(7530) => q(xua),
+      q(7531) => q(xub),
+      q(7532) => q(xud),
+      q(7533) => q(xug),
+      q(7534) => q(xuj),
+      q(7535) => q(xul),
+      q(7536) => q(xum),
+      q(7537) => q(xun),
+      q(7538) => q(xuo),
+      q(7539) => q(xup),
+      q(7540) => q(xur),
+      q(7541) => q(xut),
+      q(7542) => q(xuu),
+      q(7543) => q(xve),
+      q(7544) => q(xvi),
+      q(7545) => q(xvn),
+      q(7546) => q(xvo),
+      q(7547) => q(xvs),
+      q(7548) => q(xwa),
+      q(7549) => q(xwc),
+      q(7550) => q(xwd),
+      q(7551) => q(xwe),
+      q(7552) => q(xwg),
+      q(7553) => q(xwj),
+      q(7554) => q(xwk),
+      q(7555) => q(xwl),
+      q(7556) => q(xwo),
+      q(7557) => q(xwr),
+      q(7558) => q(xwt),
+      q(7559) => q(xww),
+      q(7560) => q(xxb),
+      q(7561) => q(xxk),
+      q(7562) => q(xxm),
+      q(7563) => q(xxr),
+      q(7564) => q(xxt),
+      q(7565) => q(xya),
+      q(7566) => q(xyb),
+      q(7567) => q(xyj),
+      q(7568) => q(xyk),
+      q(7569) => q(xyl),
+      q(7570) => q(xyt),
+      q(7571) => q(xyy),
+      q(7572) => q(xzh),
+      q(7573) => q(xzm),
+      q(7574) => q(xzp),
+      q(7575) => q(yaa),
+      q(7576) => q(yab),
+      q(7577) => q(yac),
+      q(7578) => q(yad),
+      q(7579) => q(yae),
+      q(7580) => q(yaf),
+      q(7581) => q(yag),
+      q(7582) => q(yah),
+      q(7583) => q(yai),
+      q(7584) => q(yaj),
+      q(7585) => q(yak),
+      q(7586) => q(yal),
+      q(7587) => q(yam),
+      q(7588) => q(yan),
+      q(7589) => q(yaq),
+      q(7590) => q(yar),
+      q(7591) => q(yas),
+      q(7592) => q(yat),
+      q(7593) => q(yau),
+      q(7594) => q(yav),
+      q(7595) => q(yaw),
+      q(7596) => q(yax),
+      q(7597) => q(yay),
+      q(7598) => q(yaz),
+      q(7599) => q(yba),
+      q(7600) => q(ybb),
+      q(7601) => q(ybe),
+      q(7602) => q(ybh),
+      q(7603) => q(ybi),
+      q(7604) => q(ybj),
+      q(7605) => q(ybk),
+      q(7606) => q(ybl),
+      q(7607) => q(ybm),
+      q(7608) => q(ybn),
+      q(7609) => q(ybo),
+      q(7610) => q(ybx),
+      q(7611) => q(yby),
+      q(7612) => q(ych),
+      q(7613) => q(ycl),
+      q(7614) => q(ycn),
+      q(7615) => q(ycp),
+      q(7616) => q(yda),
+      q(7617) => q(ydd),
+      q(7618) => q(yde),
+      q(7619) => q(ydg),
+      q(7620) => q(ydk),
+      q(7621) => q(yea),
+      q(7622) => q(yec),
+      q(7623) => q(yee),
+      q(7624) => q(yei),
+      q(7625) => q(yej),
+      q(7626) => q(yel),
+      q(7627) => q(yer),
+      q(7628) => q(yes),
+      q(7629) => q(yet),
+      q(7630) => q(yeu),
+      q(7631) => q(yev),
+      q(7632) => q(yey),
+      q(7633) => q(yga),
+      q(7634) => q(ygi),
+      q(7635) => q(ygl),
+      q(7636) => q(ygm),
+      q(7637) => q(ygp),
+      q(7638) => q(ygr),
+      q(7639) => q(ygs),
+      q(7640) => q(ygu),
+      q(7641) => q(ygw),
+      q(7642) => q(yha),
+      q(7643) => q(yhd),
+      q(7644) => q(yhl),
+      q(7645) => q(yhs),
+      q(7646) => q(yia),
+      q(7647) => q(yig),
+      q(7648) => q(yih),
+      q(7649) => q(yii),
+      q(7650) => q(yij),
+      q(7651) => q(yik),
+      q(7652) => q(yil),
+      q(7653) => q(yim),
+      q(7654) => q(yin),
+      q(7655) => q(yip),
+      q(7656) => q(yiq),
+      q(7657) => q(yir),
+      q(7658) => q(yis),
+      q(7659) => q(yit),
+      q(7660) => q(yiu),
+      q(7661) => q(yiv),
+      q(7662) => q(yix),
+      q(7663) => q(yiz),
+      q(7664) => q(yka),
+      q(7665) => q(ykg),
+      q(7666) => q(yki),
+      q(7667) => q(ykk),
+      q(7668) => q(ykl),
+      q(7669) => q(ykm),
+      q(7670) => q(ykn),
+      q(7671) => q(yko),
+      q(7672) => q(ykr),
+      q(7673) => q(ykt),
+      q(7674) => q(yku),
+      q(7675) => q(yky),
+      q(7676) => q(yla),
+      q(7677) => q(ylb),
+      q(7678) => q(yle),
+      q(7679) => q(ylg),
+      q(7680) => q(yli),
+      q(7681) => q(yll),
+      q(7682) => q(ylm),
+      q(7683) => q(yln),
+      q(7684) => q(ylo),
+      q(7685) => q(ylr),
+      q(7686) => q(ylu),
+      q(7687) => q(yly),
+      q(7688) => q(ymb),
+      q(7689) => q(ymc),
+      q(7690) => q(ymd),
+      q(7691) => q(yme),
+      q(7692) => q(ymg),
+      q(7693) => q(ymh),
+      q(7694) => q(ymi),
+      q(7695) => q(ymk),
+      q(7696) => q(yml),
+      q(7697) => q(ymm),
+      q(7698) => q(ymn),
+      q(7699) => q(ymo),
+      q(7700) => q(ymp),
+      q(7701) => q(ymq),
+      q(7702) => q(ymr),
+      q(7703) => q(yms),
+      q(7704) => q(ymx),
+      q(7705) => q(ymz),
+      q(7706) => q(yna),
+      q(7707) => q(ynd),
+      q(7708) => q(yne),
+      q(7709) => q(yng),
+      q(7710) => q(ynk),
+      q(7711) => q(ynl),
+      q(7712) => q(ynn),
+      q(7713) => q(yno),
+      q(7714) => q(ynq),
+      q(7715) => q(yns),
+      q(7716) => q(ynu),
+      q(7717) => q(yob),
+      q(7718) => q(yog),
+      q(7719) => q(yoi),
+      q(7720) => q(yok),
+      q(7721) => q(yol),
+      q(7722) => q(yom),
+      q(7723) => q(yon),
+      q(7724) => q(yot),
+      q(7725) => q(yox),
+      q(7726) => q(yoy),
+      q(7727) => q(ypa),
+      q(7728) => q(ypb),
+      q(7729) => q(ypg),
+      q(7730) => q(yph),
+      q(7731) => q(ypm),
+      q(7732) => q(ypn),
+      q(7733) => q(ypo),
+      q(7734) => q(ypp),
+      q(7735) => q(ypz),
+      q(7736) => q(yra),
+      q(7737) => q(yrb),
+      q(7738) => q(yre),
+      q(7739) => q(yri),
+      q(7740) => q(yrk),
+      q(7741) => q(yrl),
+      q(7742) => q(yrm),
+      q(7743) => q(yrn),
+      q(7744) => q(yrs),
+      q(7745) => q(yrw),
+      q(7746) => q(yry),
+      q(7747) => q(ysc),
+      q(7748) => q(ysd),
+      q(7749) => q(ysg),
+      q(7750) => q(ysl),
+      q(7751) => q(ysn),
+      q(7752) => q(yso),
+      q(7753) => q(ysp),
+      q(7754) => q(ysr),
+      q(7755) => q(yss),
+      q(7756) => q(ysy),
+      q(7757) => q(yta),
+      q(7758) => q(ytl),
+      q(7759) => q(ytp),
+      q(7760) => q(ytw),
+      q(7761) => q(yty),
+      q(7762) => q(yua),
+      q(7763) => q(yub),
+      q(7764) => q(yuc),
+      q(7765) => q(yud),
+      q(7766) => q(yue),
+      q(7767) => q(yuf),
+      q(7768) => q(yug),
+      q(7769) => q(yui),
+      q(7770) => q(yuj),
+      q(7771) => q(yuk),
+      q(7772) => q(yul),
+      q(7773) => q(yum),
+      q(7774) => q(yun),
+      q(7775) => q(yup),
+      q(7776) => q(yuq),
+      q(7777) => q(yur),
+      q(7778) => q(yut),
+      q(7779) => q(yuw),
+      q(7780) => q(yux),
+      q(7781) => q(yuy),
+      q(7782) => q(yuz),
+      q(7783) => q(yva),
+      q(7784) => q(yvt),
+      q(7785) => q(ywa),
+      q(7786) => q(ywg),
+      q(7787) => q(ywl),
+      q(7788) => q(ywn),
+      q(7789) => q(ywq),
+      q(7790) => q(ywr),
+      q(7791) => q(ywt),
+      q(7792) => q(ywu),
+      q(7793) => q(yww),
+      q(7794) => q(yxa),
+      q(7795) => q(yxg),
+      q(7796) => q(yxl),
+      q(7797) => q(yxm),
+      q(7798) => q(yxu),
+      q(7799) => q(yxy),
+      q(7800) => q(yyr),
+      q(7801) => q(yyu),
+      q(7802) => q(yyz),
+      q(7803) => q(yzg),
+      q(7804) => q(yzk),
+      q(7805) => q(zaa),
+      q(7806) => q(zab),
+      q(7807) => q(zac),
+      q(7808) => q(zad),
+      q(7809) => q(zae),
+      q(7810) => q(zaf),
+      q(7811) => q(zag),
+      q(7812) => q(zah),
+      q(7813) => q(zai),
+      q(7814) => q(zaj),
+      q(7815) => q(zak),
+      q(7816) => q(zal),
+      q(7817) => q(zam),
+      q(7818) => q(zao),
+      q(7819) => q(zaq),
+      q(7820) => q(zar),
+      q(7821) => q(zas),
+      q(7822) => q(zat),
+      q(7823) => q(zau),
+      q(7824) => q(zav),
+      q(7825) => q(zaw),
+      q(7826) => q(zax),
+      q(7827) => q(zay),
+      q(7828) => q(zaz),
+      q(7829) => q(zbc),
+      q(7830) => q(zbe),
+      q(7831) => q(zbt),
+      q(7832) => q(zbw),
+      q(7833) => q(zca),
+      q(7834) => q(zch),
+      q(7835) => q(zdj),
+      q(7836) => q(zea),
+      q(7837) => q(zeg),
+      q(7838) => q(zeh),
+      q(7839) => q(zga),
+      q(7840) => q(zgb),
+      q(7841) => q(zgm),
+      q(7842) => q(zgn),
+      q(7843) => q(zgr),
+      q(7844) => q(zhb),
+      q(7845) => q(zhd),
+      q(7846) => q(zhi),
+      q(7847) => q(zhn),
+      q(7848) => q(zhw),
+      q(7849) => q(zia),
+      q(7850) => q(zib),
+      q(7851) => q(zik),
+      q(7852) => q(zil),
+      q(7853) => q(zim),
+      q(7854) => q(zin),
+      q(7855) => q(zir),
+      q(7856) => q(ziw),
+      q(7857) => q(ziz),
+      q(7858) => q(zka),
+      q(7859) => q(zkb),
+      q(7860) => q(zkd),
+      q(7861) => q(zkg),
+      q(7862) => q(zkh),
+      q(7863) => q(zkk),
+      q(7864) => q(zkn),
+      q(7865) => q(zko),
+      q(7866) => q(zkp),
+      q(7867) => q(zkr),
+      q(7868) => q(zkt),
+      q(7869) => q(zku),
+      q(7870) => q(zkv),
+      q(7871) => q(zkz),
+      q(7872) => q(zlj),
+      q(7873) => q(zlm),
+      q(7874) => q(zln),
+      q(7875) => q(zlq),
+      q(7876) => q(zma),
+      q(7877) => q(zmb),
+      q(7878) => q(zmc),
+      q(7879) => q(zmd),
+      q(7880) => q(zme),
+      q(7881) => q(zmf),
+      q(7882) => q(zmg),
+      q(7883) => q(zmh),
+      q(7884) => q(zmi),
+      q(7885) => q(zmj),
+      q(7886) => q(zmk),
+      q(7887) => q(zml),
+      q(7888) => q(zmm),
+      q(7889) => q(zmn),
+      q(7890) => q(zmo),
+      q(7891) => q(zmp),
+      q(7892) => q(zmq),
+      q(7893) => q(zmr),
+      q(7894) => q(zms),
+      q(7895) => q(zmt),
+      q(7896) => q(zmu),
+      q(7897) => q(zmv),
+      q(7898) => q(zmw),
+      q(7899) => q(zmx),
+      q(7900) => q(zmy),
+      q(7901) => q(zmz),
+      q(7902) => q(zna),
+      q(7903) => q(zne),
+      q(7904) => q(zng),
+      q(7905) => q(znk),
+      q(7906) => q(zns),
+      q(7907) => q(zoc),
+      q(7908) => q(zoh),
+      q(7909) => q(zom),
+      q(7910) => q(zoo),
+      q(7911) => q(zoq),
+      q(7912) => q(zor),
+      q(7913) => q(zos),
+      q(7914) => q(zpa),
+      q(7915) => q(zpb),
+      q(7916) => q(zpc),
+      q(7917) => q(zpd),
+      q(7918) => q(zpe),
+      q(7919) => q(zpf),
+      q(7920) => q(zpg),
+      q(7921) => q(zph),
+      q(7922) => q(zpi),
+      q(7923) => q(zpj),
+      q(7924) => q(zpk),
+      q(7925) => q(zpl),
+      q(7926) => q(zpm),
+      q(7927) => q(zpn),
+      q(7928) => q(zpo),
+      q(7929) => q(zpp),
+      q(7930) => q(zpq),
+      q(7931) => q(zpr),
+      q(7932) => q(zps),
+      q(7933) => q(zpt),
+      q(7934) => q(zpu),
+      q(7935) => q(zpv),
+      q(7936) => q(zpw),
+      q(7937) => q(zpx),
+      q(7938) => q(zpy),
+      q(7939) => q(zpz),
+      q(7940) => q(zqe),
+      q(7941) => q(zra),
+      q(7942) => q(zrg),
+      q(7943) => q(zrn),
+      q(7944) => q(zro),
+      q(7945) => q(zrp),
+      q(7946) => q(zrs),
+      q(7947) => q(zsa),
+      q(7948) => q(zsk),
+      q(7949) => q(zsl),
+      q(7950) => q(zsm),
+      q(7951) => q(zsr),
+      q(7952) => q(zsu),
+      q(7953) => q(zte),
+      q(7954) => q(ztg),
+      q(7955) => q(ztl),
+      q(7956) => q(ztm),
+      q(7957) => q(ztn),
+      q(7958) => q(ztp),
+      q(7959) => q(ztq),
+      q(7960) => q(zts),
+      q(7961) => q(ztt),
+      q(7962) => q(ztu),
+      q(7963) => q(ztx),
+      q(7964) => q(zty),
+      q(7965) => q(zua),
+      q(7966) => q(zuh),
+      q(7967) => q(zum),
+      q(7968) => q(zuy),
+      q(7969) => q(zwa),
+      q(7970) => q(zyb),
+      q(7971) => q(zyg),
+      q(7972) => q(zyj),
+      q(7973) => q(zyn),
+      q(7974) => q(zyp),
+      q(7975) => q(zzj),
+      },
+   q(term) => {
+      q(0001) => q(aar),
+      q(0002) => q(abk),
+      q(0003) => q(ace),
+      q(0004) => q(ach),
+      q(0005) => q(ada),
+      q(0006) => q(ady),
+      q(0007) => q(afa),
+      q(0008) => q(afh),
+      q(0009) => q(afr),
+      q(0010) => q(ain),
+      q(0011) => q(aka),
+      q(0012) => q(akk),
+      q(0013) => q(sqi),
+      q(0014) => q(ale),
+      q(0015) => q(alg),
+      q(0016) => q(alt),
+      q(0017) => q(amh),
+      q(0018) => q(ang),
+      q(0019) => q(anp),
+      q(0020) => q(apa),
+      q(0021) => q(ara),
+      q(0022) => q(arc),
+      q(0023) => q(arg),
+      q(0024) => q(hye),
+      q(0025) => q(arn),
+      q(0026) => q(arp),
+      q(0027) => q(art),
+      q(0028) => q(arw),
+      q(0029) => q(asm),
+      q(0030) => q(ast),
+      q(0031) => q(ath),
+      q(0032) => q(aus),
+      q(0033) => q(ava),
+      q(0034) => q(ave),
+      q(0035) => q(awa),
+      q(0036) => q(aym),
+      q(0037) => q(aze),
+      q(0038) => q(bad),
+      q(0039) => q(bai),
+      q(0040) => q(bak),
+      q(0041) => q(bal),
+      q(0042) => q(bam),
+      q(0043) => q(ban),
+      q(0044) => q(eus),
+      q(0045) => q(bas),
+      q(0046) => q(bat),
+      q(0047) => q(bej),
+      q(0048) => q(bel),
+      q(0049) => q(bem),
+      q(0050) => q(ben),
+      q(0051) => q(ber),
+      q(0052) => q(bho),
+      q(0053) => q(bih),
+      q(0054) => q(bik),
+      q(0055) => q(bin),
+      q(0056) => q(bis),
+      q(0057) => q(bla),
+      q(0058) => q(bnt),
+      q(0059) => q(bos),
+      q(0060) => q(bra),
+      q(0061) => q(bre),
+      q(0062) => q(btk),
+      q(0063) => q(bua),
+      q(0064) => q(bug),
+      q(0065) => q(bul),
+      q(0066) => q(mya),
+      q(0067) => q(byn),
+      q(0068) => q(cad),
+      q(0069) => q(cai),
+      q(0070) => q(car),
+      q(0071) => q(cat),
+      q(0072) => q(cau),
+      q(0073) => q(ceb),
+      q(0074) => q(cel),
+      q(0075) => q(cha),
+      q(0076) => q(chb),
+      q(0077) => q(che),
+      q(0078) => q(chg),
+      q(0079) => q(zho),
+      q(0080) => q(chk),
+      q(0081) => q(chm),
+      q(0082) => q(chn),
+      q(0083) => q(cho),
+      q(0084) => q(chp),
+      q(0085) => q(chr),
+      q(0086) => q(chu),
+      q(0087) => q(chv),
+      q(0088) => q(chy),
+      q(0089) => q(cmc),
+      q(0090) => q(cop),
+      q(0091) => q(cor),
+      q(0092) => q(cos),
+      q(0093) => q(cpe),
+      q(0094) => q(cpf),
+      q(0095) => q(cpp),
+      q(0096) => q(cre),
+      q(0097) => q(crh),
+      q(0098) => q(crp),
+      q(0099) => q(csb),
+      q(0100) => q(cus),
+      q(0101) => q(ces),
+      q(0102) => q(dak),
+      q(0103) => q(dan),
+      q(0104) => q(dar),
+      q(0105) => q(day),
+      q(0106) => q(del),
+      q(0107) => q(den),
+      q(0108) => q(dgr),
+      q(0109) => q(din),
+      q(0110) => q(div),
+      q(0111) => q(doi),
+      q(0112) => q(dra),
+      q(0113) => q(dsb),
+      q(0114) => q(dua),
+      q(0115) => q(dum),
+      q(0116) => q(nld),
+      q(0117) => q(dyu),
+      q(0118) => q(dzo),
+      q(0119) => q(efi),
+      q(0120) => q(egy),
+      q(0121) => q(eka),
+      q(0122) => q(elx),
+      q(0123) => q(eng),
+      q(0124) => q(enm),
+      q(0125) => q(epo),
+      q(0126) => q(est),
+      q(0127) => q(ewe),
+      q(0128) => q(ewo),
+      q(0129) => q(fan),
+      q(0130) => q(fao),
+      q(0131) => q(fat),
+      q(0132) => q(fij),
+      q(0133) => q(fil),
+      q(0134) => q(fin),
+      q(0135) => q(fiu),
+      q(0136) => q(fon),
+      q(0137) => q(fra),
+      q(0138) => q(frm),
+      q(0139) => q(fro),
+      q(0140) => q(frr),
+      q(0141) => q(frs),
+      q(0142) => q(fry),
+      q(0143) => q(ful),
+      q(0144) => q(fur),
+      q(0145) => q(gaa),
+      q(0146) => q(gay),
+      q(0147) => q(gba),
+      q(0148) => q(gem),
+      q(0149) => q(kat),
+      q(0150) => q(deu),
+      q(0151) => q(gez),
+      q(0152) => q(gil),
+      q(0153) => q(gla),
+      q(0154) => q(gle),
+      q(0155) => q(glg),
+      q(0156) => q(glv),
+      q(0157) => q(gmh),
+      q(0158) => q(goh),
+      q(0159) => q(gon),
+      q(0160) => q(gor),
+      q(0161) => q(got),
+      q(0162) => q(grb),
+      q(0163) => q(grc),
+      q(0164) => q(ell),
+      q(0165) => q(grn),
+      q(0166) => q(gsw),
+      q(0167) => q(guj),
+      q(0168) => q(gwi),
+      q(0169) => q(hai),
+      q(0170) => q(hat),
+      q(0171) => q(hau),
+      q(0172) => q(haw),
+      q(0173) => q(heb),
+      q(0174) => q(her),
+      q(0175) => q(hil),
+      q(0176) => q(him),
+      q(0177) => q(hin),
+      q(0178) => q(hit),
+      q(0179) => q(hmn),
+      q(0180) => q(hmo),
+      q(0181) => q(hrv),
+      q(0182) => q(hsb),
+      q(0183) => q(hun),
+      q(0184) => q(hup),
+      q(0185) => q(iba),
+      q(0186) => q(ibo),
+      q(0187) => q(isl),
+      q(0188) => q(ido),
+      q(0189) => q(iii),
+      q(0190) => q(ijo),
+      q(0191) => q(iku),
+      q(0192) => q(ile),
+      q(0193) => q(ilo),
+      q(0194) => q(ina),
+      q(0195) => q(inc),
+      q(0196) => q(ind),
+      q(0197) => q(ine),
+      q(0198) => q(inh),
+      q(0199) => q(ipk),
+      q(0200) => q(ira),
+      q(0201) => q(iro),
+      q(0202) => q(ita),
+      q(0203) => q(jav),
+      q(0204) => q(jbo),
+      q(0205) => q(jpn),
+      q(0206) => q(jpr),
+      q(0207) => q(jrb),
+      q(0208) => q(kaa),
+      q(0209) => q(kab),
+      q(0210) => q(kac),
+      q(0211) => q(kal),
+      q(0212) => q(kam),
+      q(0213) => q(kan),
+      q(0214) => q(kar),
+      q(0215) => q(kas),
+      q(0216) => q(kau),
+      q(0217) => q(kaw),
+      q(0218) => q(kaz),
+      q(0219) => q(kbd),
+      q(0220) => q(kha),
+      q(0221) => q(khi),
+      q(0222) => q(khm),
+      q(0223) => q(kho),
+      q(0224) => q(kik),
+      q(0225) => q(kin),
+      q(0226) => q(kir),
+      q(0227) => q(kmb),
+      q(0228) => q(kok),
+      q(0229) => q(kom),
+      q(0230) => q(kon),
+      q(0231) => q(kor),
+      q(0232) => q(kos),
+      q(0233) => q(kpe),
+      q(0234) => q(krc),
+      q(0235) => q(krl),
+      q(0236) => q(kro),
+      q(0237) => q(kru),
+      q(0238) => q(kua),
+      q(0239) => q(kum),
+      q(0240) => q(kur),
+      q(0241) => q(kut),
+      q(0242) => q(lad),
+      q(0243) => q(lah),
+      q(0244) => q(lam),
+      q(0245) => q(lao),
+      q(0246) => q(lat),
+      q(0247) => q(lav),
+      q(0248) => q(lez),
+      q(0249) => q(lim),
+      q(0250) => q(lin),
+      q(0251) => q(lit),
+      q(0252) => q(lol),
+      q(0253) => q(loz),
+      q(0254) => q(ltz),
+      q(0255) => q(lua),
+      q(0256) => q(lub),
+      q(0257) => q(lug),
+      q(0258) => q(lui),
+      q(0259) => q(lun),
+      q(0260) => q(luo),
+      q(0261) => q(lus),
+      q(0262) => q(mkd),
+      q(0263) => q(mad),
+      q(0264) => q(mag),
+      q(0265) => q(mah),
+      q(0266) => q(mai),
+      q(0267) => q(mak),
+      q(0268) => q(mal),
+      q(0269) => q(man),
+      q(0270) => q(mri),
+      q(0271) => q(map),
+      q(0272) => q(mar),
+      q(0273) => q(mas),
+      q(0274) => q(msa),
+      q(0275) => q(mdf),
+      q(0276) => q(mdr),
+      q(0277) => q(men),
+      q(0278) => q(mga),
+      q(0279) => q(mic),
+      q(0280) => q(min),
+      q(0281) => q(mis),
+      q(0282) => q(mkh),
+      q(0283) => q(mlg),
+      q(0284) => q(mlt),
+      q(0285) => q(mnc),
+      q(0286) => q(mni),
+      q(0287) => q(mno),
+      q(0288) => q(moh),
+      q(0289) => q(mon),
+      q(0290) => q(mos),
+      q(0291) => q(mul),
+      q(0292) => q(mun),
+      q(0293) => q(mus),
+      q(0294) => q(mwl),
+      q(0295) => q(mwr),
+      q(0296) => q(myn),
+      q(0297) => q(myv),
+      q(0298) => q(nah),
+      q(0299) => q(nai),
+      q(0300) => q(nap),
+      q(0301) => q(nau),
+      q(0302) => q(nav),
+      q(0303) => q(nbl),
+      q(0304) => q(nde),
+      q(0305) => q(ndo),
+      q(0306) => q(nds),
+      q(0307) => q(nep),
+      q(0308) => q(new),
+      q(0309) => q(nia),
+      q(0310) => q(nic),
+      q(0311) => q(niu),
+      q(0312) => q(nno),
+      q(0313) => q(nob),
+      q(0314) => q(nog),
+      q(0315) => q(non),
+      q(0316) => q(nor),
+      q(0317) => q(nqo),
+      q(0318) => q(nso),
+      q(0319) => q(nub),
+      q(0320) => q(nwc),
+      q(0321) => q(nya),
+      q(0322) => q(nym),
+      q(0323) => q(nyn),
+      q(0324) => q(nyo),
+      q(0325) => q(nzi),
+      q(0326) => q(oci),
+      q(0327) => q(oji),
+      q(0328) => q(ori),
+      q(0329) => q(orm),
+      q(0330) => q(osa),
+      q(0331) => q(oss),
+      q(0332) => q(ota),
+      q(0333) => q(oto),
+      q(0334) => q(paa),
+      q(0335) => q(pag),
+      q(0336) => q(pal),
+      q(0337) => q(pam),
+      q(0338) => q(pan),
+      q(0339) => q(pap),
+      q(0340) => q(pau),
+      q(0341) => q(peo),
+      q(0342) => q(fas),
+      q(0343) => q(phi),
+      q(0344) => q(phn),
+      q(0345) => q(pli),
+      q(0346) => q(pol),
+      q(0347) => q(pon),
+      q(0348) => q(por),
+      q(0349) => q(pra),
+      q(0350) => q(pro),
+      q(0351) => q(pus),
+      q(0352) => q(qtz),
+      q(0353) => q(que),
+      q(0354) => q(raj),
+      q(0355) => q(rap),
+      q(0356) => q(rar),
+      q(0357) => q(roa),
+      q(0358) => q(roh),
+      q(0359) => q(rom),
+      q(0360) => q(ron),
+      q(0361) => q(run),
+      q(0362) => q(rup),
+      q(0363) => q(rus),
+      q(0364) => q(sad),
+      q(0365) => q(sag),
+      q(0366) => q(sah),
+      q(0367) => q(sai),
+      q(0368) => q(sal),
+      q(0369) => q(sam),
+      q(0370) => q(san),
+      q(0371) => q(sas),
+      q(0372) => q(sat),
+      q(0373) => q(scn),
+      q(0374) => q(sco),
+      q(0375) => q(sel),
+      q(0376) => q(sem),
+      q(0377) => q(sga),
+      q(0378) => q(sgn),
+      q(0379) => q(shn),
+      q(0380) => q(sid),
+      q(0381) => q(sin),
+      q(0382) => q(sio),
+      q(0383) => q(sit),
+      q(0384) => q(sla),
+      q(0385) => q(slk),
+      q(0386) => q(slv),
+      q(0387) => q(sma),
+      q(0388) => q(sme),
+      q(0389) => q(smi),
+      q(0390) => q(smj),
+      q(0391) => q(smn),
+      q(0392) => q(smo),
+      q(0393) => q(sms),
+      q(0394) => q(sna),
+      q(0395) => q(snd),
+      q(0396) => q(snk),
+      q(0397) => q(sog),
+      q(0398) => q(som),
+      q(0399) => q(son),
+      q(0400) => q(sot),
+      q(0401) => q(spa),
+      q(0402) => q(srd),
+      q(0403) => q(srn),
+      q(0404) => q(srp),
+      q(0405) => q(srr),
+      q(0406) => q(ssa),
+      q(0407) => q(ssw),
+      q(0408) => q(suk),
+      q(0409) => q(sun),
+      q(0410) => q(sus),
+      q(0411) => q(sux),
+      q(0412) => q(swa),
+      q(0413) => q(swe),
+      q(0414) => q(syc),
+      q(0415) => q(syr),
+      q(0416) => q(tah),
+      q(0417) => q(tai),
+      q(0418) => q(tam),
+      q(0419) => q(tat),
+      q(0420) => q(tel),
+      q(0421) => q(tem),
+      q(0422) => q(ter),
+      q(0423) => q(tet),
+      q(0424) => q(tgk),
+      q(0425) => q(tgl),
+      q(0426) => q(tha),
+      q(0427) => q(bod),
+      q(0428) => q(tig),
+      q(0429) => q(tir),
+      q(0430) => q(tiv),
+      q(0431) => q(tkl),
+      q(0432) => q(tlh),
+      q(0433) => q(tli),
+      q(0434) => q(tmh),
+      q(0435) => q(tog),
+      q(0436) => q(ton),
+      q(0437) => q(tpi),
+      q(0438) => q(tsi),
+      q(0439) => q(tsn),
+      q(0440) => q(tso),
+      q(0441) => q(tuk),
+      q(0442) => q(tum),
+      q(0443) => q(tup),
+      q(0444) => q(tur),
+      q(0445) => q(tut),
+      q(0446) => q(tvl),
+      q(0447) => q(twi),
+      q(0448) => q(tyv),
+      q(0449) => q(udm),
+      q(0450) => q(uga),
+      q(0451) => q(uig),
+      q(0452) => q(ukr),
+      q(0453) => q(umb),
+      q(0454) => q(und),
+      q(0455) => q(urd),
+      q(0456) => q(uzb),
+      q(0457) => q(vai),
+      q(0458) => q(ven),
+      q(0459) => q(vie),
+      q(0460) => q(vol),
+      q(0461) => q(vot),
+      q(0462) => q(wak),
+      q(0463) => q(wal),
+      q(0464) => q(war),
+      q(0465) => q(was),
+      q(0466) => q(cym),
+      q(0467) => q(wen),
+      q(0468) => q(wln),
+      q(0469) => q(wol),
+      q(0470) => q(xal),
+      q(0471) => q(xho),
+      q(0472) => q(yao),
+      q(0473) => q(yap),
+      q(0474) => q(yid),
+      q(0475) => q(yor),
+      q(0476) => q(ypk),
+      q(0477) => q(zap),
+      q(0478) => q(zbl),
+      q(0479) => q(zen),
+      q(0480) => q(zgh),
+      q(0481) => q(zha),
+      q(0482) => q(znd),
+      q(0483) => q(zul),
+      q(0484) => q(zun),
+      q(0485) => q(zxx),
+      q(0486) => q(zza),
+      },
+};
+
+1;
diff --git a/lib/5.24.1/Locale/Codes/Language_Retired.pm b/lib/5.24.1/Locale/Codes/Language_Retired.pm
new file mode 100644
index 00000000..98908dd4
--- /dev/null
+++ b/lib/5.24.1/Locale/Codes/Language_Retired.pm
@@ -0,0 +1,391 @@
+package #
+Locale::Codes::Language_Retired;
+
+# This file was automatically generated.  Any changes to this file will
+# be lost the next time 'deprecate_codes' is run.
+#    Generated on: Tue Dec  1 14:45:28 EST 2015
+
+use strict;
+require 5.006;
+use warnings;
+use utf8;
+
+our($VERSION);
+$VERSION='3.37';
+
+$Locale::Codes::Retired{'language'}{'alpha-2'}{'code'} = {
+   q(in) => q(Indonesian),
+   q(iw) => q(Hebrew),
+   q(ji) => q(Yiddish),
+   q(jw) => q(Javanese),
+   q(mo) => q(Moldavian),
+};
+
+$Locale::Codes::Retired{'language'}{'alpha-3'}{'code'} = {
+   q(aam) => q(Aramanik),
+   q(adp) => q(Adap),
+   q(aue) => q(=/Kx'au//'ein),
+   q(ayx) => q(Ayi (China)),
+   q(baz) => q(Tunen),
+   q(bjd) => q(Bandjigali),
+   q(bjq) => q(Southern Betsimisaraka Malagasy),
+   q(bmy) => q(Bemba (Democratic Republic of Congo)),
+   q(bxx) => q(Borna (Democratic Republic of Congo)),
+   q(byy) => q(Buya),
+   q(ccq) => q(Chaungtha),
+   q(cka) => q(Khumi Awa Chin),
+   q(daf) => q(Dan),
+   q(dap) => q(Nisi (India)),
+   q(dha) => q(Dhanwar (India)),
+   q(djl) => q(Djiwarli),
+   q(dkl) => q(Kolum So Dogon),
+   q(dwl) => q(Walo Kumbe Dogon),
+   q(dzd) => q(Daza),
+   q(elp) => q(Elpaputih),
+   q(emo) => q(Emok),
+   q(gbc) => q(Garawa),
+   q(gfx) => q(Mangetti Dune !Xung),
+   q(ggr) => q(Aghu Tharnggalu),
+   q(gio) => q(Gelao),
+   q(gti) => q(Gbati-ri),
+   q(hrr) => q(Horuru),
+   q(ibi) => q(Ibilo),
+   q(ilw) => q(Talur),
+   q(ime) => q(Imeraguen),
+   q(izi) => q(Izi-Ezaa-Ikwo-Mgbo),
+   q(jar) => q(Jarawa (Nigeria)),
+   q(kbf) => q(Kakauhua),
+   q(kdv) => q(Kado),
+   q(kgh) => q(Upper Tanudan Kalinga),
+   q(koj) => q(Sara Dunjo),
+   q(kpp) => q(Paku Karen),
+   q(kwq) => q(Kwak),
+   q(kxe) => q(Kakihum),
+   q(kzh) => q(Kenuzi-Dongola),
+   q(lcq) => q(Luhu),
+   q(leg) => q(Lengua),
+   q(lii) => q(Lingkhim),
+   q(lmm) => q(Lamam),
+   q(meg) => q(Mea),
+   q(mgx) => q(Omati),
+   q(mhh) => q(Maskoy Pidgin),
+   q(mja) => q(Mahei),
+   q(mld) => q(Malakhel),
+   q(mnt) => q(Maykulan),
+   q(mwd) => q(Mudbura),
+   q(mwj) => q(Maligo),
+   q(myq) => q(Forest Maninka),
+   q(nbf) => q(Naxi),
+   q(nbx) => q(Ngura),
+   q(nln) => q(Durango Nahuatl),
+   q(nlr) => q(Ngarla),
+   q(nnx) => q(Ngong),
+   q(noo) => q(Nootka),
+   q(oun) => q(!O!ung),
+   q(pbz) => q(Palu),
+   q(pcr) => q(Panang),
+   q(pgy) => q(Pongyong),
+   q(pmu) => q(Mirpur Panjabi),
+   q(ppr) => q(Piru),
+   q(puz) => q(Purum Naga),
+   q(sap) => q(Sanapana),
+   q(sca) => q(Sansu),
+   q(sgo) => q(Songa),
+   q(tgg) => q(Tangga),
+   q(thx) => q(The),
+   q(tie) => q(Tingal),
+   q(tkk) => q(Takpa),
+   q(tlw) => q(South Wemale),
+   q(tsf) => q(Southwestern Tamang),
+   q(unp) => q(Worora),
+   q(uok) => q(Uokha),
+   q(wit) => q(Wintu),
+   q(wiw) => q(Wirangu),
+   q(xia) => q(Xiandao),
+   q(xsj) => q(Subi),
+   q(ybd) => q(Yangbye),
+   q(yds) => q(Yiddish Sign Language),
+   q(yen) => q(Yendang),
+   q(yiy) => q(Yir Yoront),
+   q(yma) => q(Yamphe),
+   q(ymt) => q(Mator-Taygi-Karagas),
+   q(ynh) => q(Yangho),
+   q(yos) => q(Yos),
+   q(yuu) => q(Yugh),
+};
+
+$Locale::Codes::Retired{'language'}{'term'}{'code'} = {
+};
+
+$Locale::Codes::Retired{'language'}{'alpha-2'}{'name'} = {
+   q((afan) oromo) => [ q(om), q((Afan) Oromo) ],
+   q(bengali; bangla) => [ q(bn), q(Bengali; Bangla) ],
+   q(bhutani) => [ q(dz), q(Bhutani) ],
+   q(bihari) => [ q(bh), q(Bihari) ],
+   q(bokmal, norwegian) => [ q(nb), q(Bokmal, Norwegian) ],
+   q(byelorussian) => [ q(be), q(Byelorussian) ],
+   q(cambodian) => [ q(km), q(Cambodian) ],
+   q(chichewa) => [ q(ny), q(Chichewa) ],
+   q(chichewa; nyanja) => [ q(ny), q(Chichewa; Nyanja) ],
+   q(divehi) => [ q(dv), q(Divehi) ],
+   q(faeroese) => [ q(fo), q(Faeroese) ],
+   q(fiji) => [ q(fj), q(Fiji) ],
+   q(frisian) => [ q(fy), q(Frisian) ],
+   q(gaelic) => [ q(gd), q(Gaelic) ],
+   q(gaelic (scots)) => [ q(gd), q(Gaelic (Scots)) ],
+   q(gallegan) => [ q(gl), q(Gallegan) ],
+   q(greek) => [ q(el), q(Greek) ],
+   q(greek, modern (1453-)) => [ q(el), q(Greek, Modern (1453-)) ],
+   q(greenlandic) => [ q(kl), q(Greenlandic) ],
+   q(interlingua) => [ q(ia), q(Interlingua) ],
+   q(inupiak) => [ q(ik), q(Inupiak) ],
+   q(khmer) => [ q(km), q(Khmer) ],
+   q(kirundi) => [ q(rn), q(Kirundi) ],
+   q(laothian) => [ q(lo), q(Laothian) ],
+   q(latvian, lettish) => [ q(lv), q(Latvian, Lettish) ],
+   q(letzeburgesch) => [ q(lb), q(Letzeburgesch) ],
+   q(malay) => [ q(ms), q(Malay) ],
+   q(marshall) => [ q(mh), q(Marshall) ],
+   q(moldavian) => [ q(mo), q(Moldavian) ],
+   q(ndebele, north) => [ q(nd), q(Ndebele, North) ],
+   q(ndebele, south) => [ q(nr), q(Ndebele, South) ],
+   q(nepali) => [ q(ne), q(Nepali) ],
+   q(norwegian bokmal) => [ q(nb), q(Norwegian Bokmal) ],
+   q(occitan) => [ q(oc), q(Occitan) ],
+   q(oriya) => [ q(or), q(Oriya) ],
+   q(ossetian; ossetic) => [ q(os), q(Ossetian; Ossetic) ],
+   q(pashto, pushto) => [ q(ps), q(Pashto, Pushto) ],
+   q(punjabi) => [ q(pa), q(Punjabi) ],
+   q(rhaeto-romance) => [ q(rm), q(Rhaeto-Romance) ],
+   q(sami) => [ q(se), q(Sami) ],
+   q(sangro) => [ q(sg), q(Sangro) ],
+   q(scots gaelic) => [ q(gd), q(Scots Gaelic) ],
+   q(sesotho) => [ q(st), q(Sesotho) ],
+   q(setswana) => [ q(tn), q(Setswana) ],
+   q(singhalese) => [ q(si), q(Singhalese) ],
+   q(sinhalese) => [ q(si), q(Sinhalese) ],
+   q(siswati) => [ q(ss), q(Siswati) ],
+   q(sotho) => [ q(st), q(Sotho) ],
+   q(sotho, southern) => [ q(st), q(Sotho, Southern) ],
+   q(swahili) => [ q(sw), q(Swahili) ],
+   q(tegulu) => [ q(te), q(Tegulu) ],
+   q(tonga) => [ q(to), q(Tonga) ],
+   q(volapuk) => [ q(vo), q(Volapuk) ],
+};
+
+$Locale::Codes::Retired{'language'}{'alpha-3'}{'name'} = {
+   q(!o!ung) => [ q(oun), q(!O!ung) ],
+   q(=/kx'au//'ein) => [ q(aue), q(=/Kx'au//'ein) ],
+   q(a'tong) => [ q(aot), q(A'tong) ],
+   q(adap) => [ q(adp), q(Adap) ],
+   q(aghu tharnggalu) => [ q(ggr), q(Aghu Tharnggalu) ],
+   q(ainu) => [ q(ain), q(Ainu) ],
+   q(amarag) => [ q(amg), q(Amarag) ],
+   q(anu) => [ q(anl), q(Anu) ],
+   q(apalik) => [ q(apo), q(Apalik) ],
+   q(aramanik) => [ q(aam), q(Aramanik) ],
+   q(aromanian) => [ q(rup), q(Aromanian) ],
+   q(atong) => [ q(ato), q(Atong) ],
+   q(ayi (china)) => [ q(ayx), q(Ayi (China)) ],
+   q(bandjigali) => [ q(bjd), q(Bandjigali) ],
+   q(bangi me) => [ q(dba), q(Bangi Me) ],
+   q(bantu (other)) => [ q(bnt), q(Bantu (Other)) ],
+   q(basa) => [ q(bas), q(Basa) ],
+   q(bauro) => [ q(bxa), q(Bauro) ],
+   q(bebe) => [ q(bzv), q(Bebe) ],
+   q(bedik) => [ q(tnr), q(Bedik) ],
+   q(begbere-ejar) => [ q(bqv), q(Begbere-Ejar) ],
+   q(bekwil) => [ q(bkw), q(Bekwil) ],
+   q(bemba) => [ q(bem), q(Bemba) ],
+   q(bemba (democratic republic of congo)) => [ q(bmy), q(Bemba (Democratic Republic of Congo)) ],
+   q(blin) => [ q(byn), q(Blin) ],
+   q(borna (democratic republic of congo)) => [ q(bxx), q(Borna (Democratic Republic of Congo)) ],
+   q(brek karen) => [ q(kvl), q(Brek Karen) ],
+   q(burum-mindik) => [ q(bmu), q(Burum-Mindik) ],
+   q(buya) => [ q(byy), q(Buya) ],
+   q(central bicolano) => [ q(bcl), q(Central Bicolano) ],
+   q(chaungtha) => [ q(ccq), q(Chaungtha) ],
+   q(creoles and pidgins ) => [ q(crp), q(Creoles and pidgins ) ],
+   q(creoles and pidgins, english based) => [ q(cpe), q(Creoles and pidgins, English based) ],
+   q(creoles and pidgins, french-based ) => [ q(cpf), q(Creoles and pidgins, French-based ) ],
+   q(creoles and pidgins, portuguese-based ) => [ q(cpp), q(Creoles and pidgins, Portuguese-based ) ],
+   q(dakaka) => [ q(bpa), q(Dakaka) ],
+   q(darling) => [ q(drl), q(Darling) ],
+   q(daza) => [ q(dzd), q(Daza) ],
+   q(dhangu) => [ q(dhg), q(Dhangu) ],
+   q(dhanwar (india)) => [ q(dha), q(Dhanwar (India)) ],
+   q(dimir) => [ q(dmc), q(Dimir) ],
+   q(djangu) => [ q(dhg), q(Djangu) ],
+   q(dogri) => [ q(doi), q(Dogri) ],
+   q(duduela) => [ q(duk), q(Duduela) ],
+   q(dumpu) => [ q(wtf), q(Dumpu) ],
+   q(durango nahuatl) => [ q(nln), q(Durango Nahuatl) ],
+   q(dutch, middle (ca.1050-1350)) => [ q(dum), q(Dutch, Middle (ca.1050-1350)) ],
+   q(elpaputih) => [ q(elp), q(Elpaputih) ],
+   q(emok) => [ q(emo), q(Emok) ],
+   q(english, middle (1100-1500)) => [ q(enm), q(English, Middle (1100-1500)) ],
+   q(english, old (ca.450-1100)) => [ q(ang), q(English, Old (ca.450-1100)) ],
+   q(fang) => [ q(fan), q(Fang) ],
+   q(forest maninka) => [ q(myq), q(Forest Maninka) ],
+   q(french, middle (ca.1400-1600)) => [ q(frm), q(French, Middle (ca.1400-1600)) ],
+   q(french, old (842-ca.1400)) => [ q(fro), q(French, Old (842-ca.1400)) ],
+   q(galoli) => [ q(gal), q(Galoli) ],
+   q(garawa) => [ q(gbc), q(Garawa) ],
+   q(gbati-ri) => [ q(gti), q(Gbati-ri) ],
+   q(gbaya) => [ q(gba), q(Gbaya) ],
+   q(gelao) => [ q(gio), q(Gelao) ],
+   q(german, middle high (ca.1050-1500)) => [ q(gmh), q(German, Middle High (ca.1050-1500)) ],
+   q(german, old high (ca.750-1050)) => [ q(goh), q(German, Old High (ca.750-1050)) ],
+   q(greek, ancient (to 1453)) => [ q(grc), q(Greek, Ancient (to 1453)) ],
+   q(guwinmal) => [ q(xgm), q(Guwinmal) ],
+   q(hainyaxo bozo) => [ q(bzx), q(Hainyaxo Bozo) ],
+   q(hawai'i pidgin sign language) => [ q(hps), q(Hawai'i Pidgin Sign Language) ],
+   q(horuru) => [ q(hrr), q(Horuru) ],
+   q(hungworo) => [ q(nat), q(Hungworo) ],
+   q(ibilo) => [ q(ibi), q(Ibilo) ],
+   q(idun) => [ q(ldb), q(Idun) ],
+   q(ikobi-mena) => [ q(meb), q(Ikobi-Mena) ],
+   q(imeraguen) => [ q(ime), q(Imeraguen) ],
+   q(irish, middle (900-1200)) => [ q(mga), q(Irish, Middle (900-1200)) ],
+   q(irish, old (to 900)) => [ q(sga), q(Irish, Old (to 900)) ],
+   q(izi-ezaa-ikwo-mgbo) => [ q(izi), q(Izi-Ezaa-Ikwo-Mgbo) ],
+   q(jarawa (nigeria)) => [ q(jar), q(Jarawa (Nigeria)) ],
+   q(kadara) => [ q(kad), q(Kadara) ],
+   q(kado) => [ q(kdv), q(Kado) ],
+   q(kag-fer-jiir-koor-ror-us-zuksun) => [ q(gel), q(Kag-Fer-Jiir-Koor-Ror-Us-Zuksun) ],
+   q(kakauhua) => [ q(kbf), q(Kakauhua) ],
+   q(kakihum) => [ q(kxe), q(Kakihum) ],
+   q(kamba) => [ q(kam), q(Kamba) ],
+   q(kemezung) => [ q(dmo), q(Kemezung) ],
+   q(kenuzi-dongola) => [ q(kzh), q(Kenuzi-Dongola) ],
+   q(khumi awa chin) => [ q(cka), q(Khumi Awa Chin) ],
+   q(kol) => [ q(ekl), q(Kol) ],
+   q(kolum so dogon) => [ q(dkl), q(Kolum So Dogon) ],
+   q(konkani) => [ q(kok), q(Konkani) ],
+   q(kumak) => [ q(nee), q(Kumak) ],
+   q(kuman) => [ q(kue), q(Kuman) ],
+   q(kutang ghale) => [ q(ght), q(Kutang Ghale) ],
+   q(kwak) => [ q(kwq), q(Kwak) ],
+   q(kwato) => [ q(kop), q(Kwato) ],
+   q(kyenga) => [ q(tye), q(Kyenga) ],
+   q(lama (myanmar)) => [ q(lay), q(Lama (Myanmar)) ],
+   q(lamam) => [ q(lmm), q(Lamam) ],
+   q(lengua) => [ q(leg), q(Lengua) ],
+   q(lingkhim) => [ q(lii), q(Lingkhim) ],
+   q(lowa) => [ q(loy), q(Lowa) ],
+   q(lower tanudan kalinga) => [ q(kml), q(Lower Tanudan Kalinga) ],
+   q(luhu) => [ q(lcq), q(Luhu) ],
+   q(mahei) => [ q(mja), q(Mahei) ],
+   q(malakhel) => [ q(mld), q(Malakhel) ],
+   q(malasanga) => [ q(mqz), q(Malasanga) ],
+   q(maligo) => [ q(mwj), q(Maligo) ],
+   q(mangetti dune !xung) => [ q(gfx), q(Mangetti Dune !Xung) ],
+   q(mann) => [ q(mev), q(Mann) ],
+   q(mari) => [ q(chm), q(Mari) ],
+   q(maskoy pidgin) => [ q(mhh), q(Maskoy Pidgin) ],
+   q(mator-taygi-karagas) => [ q(ymt), q(Mator-Taygi-Karagas) ],
+   q(maykulan) => [ q(mnt), q(Maykulan) ],
+   q(mbabaram) => [ q(vmb), q(Mbabaram) ],
+   q(mbedam) => [ q(xmd), q(Mbedam) ],
+   q(mbu') => [ q(muc), q(Mbu') ],
+   q(mea) => [ q(meg), q(Mea) ],
+   q(mende) => [ q(men), q(Mende) ],
+   q(minigir) => [ q(vmg), q(Minigir) ],
+   q(mire) => [ q(mvh), q(Mire) ],
+   q(miri) => [ q(mrg), q(Miri) ],
+   q(mirpur panjabi) => [ q(pmu), q(Mirpur Panjabi) ],
+   q(misima-paneati) => [ q(mpx), q(Misima-Paneati) ],
+   q(mixifore) => [ q(mfg), q(Mixifore) ],
+   q(mpongmpong) => [ q(mgg), q(Mpongmpong) ],
+   q(mro chin) => [ q(cmr), q(Mro Chin) ],
+   q(mudbura) => [ q(mwd), q(Mudbura) ],
+   q(muduapa) => [ q(wiv), q(Muduapa) ],
+   q(nakama) => [ q(nib), q(Nakama) ],
+   q(nama (namibia)) => [ q(naq), q(Nama (Namibia)) ],
+   q(nanggu) => [ q(ngr), q(Nanggu) ],
+   q(nangikurrunggurr) => [ q(nam), q(Nangikurrunggurr) ],
+   q(ndrag'ngith) => [ q(dgt), q(Ndrag'ngith) ],
+   q(nepal bhasa) => [ q(new), q(Nepal Bhasa) ],
+   q(nga la) => [ q(hlt), q(Nga La) ],
+   q(ngalkbun) => [ q(ngk), q(Ngalkbun) ],
+   q(ngong) => [ q(nnx), q(Ngong) ],
+   q(ngura) => [ q(nbx), q(Ngura) ],
+   q(nisi (india)) => [ q(dap), q(Nisi (India)) ],
+   q(nootka) => [ q(noo), q(Nootka) ],
+   q(norse, old) => [ q(non), q(Norse, Old) ],
+   q(north wemale) => [ q(weo), q(North Wemale) ],
+   q(northeast pashayi) => [ q(aee), q(Northeast Pashayi) ],
+   q(northern bai) => [ q(bfc), q(Northern Bai) ],
+   q(northern catanduanes bicolano) => [ q(cts), q(Northern Catanduanes Bicolano) ],
+   q(northern lorung) => [ q(lbr), q(Northern Lorung) ],
+   q(northwest pashayi) => [ q(glh), q(Northwest Pashayi) ],
+   q(nsari) => [ q(asj), q(Nsari) ],
+   q(nung (myanmar)) => [ q(nun), q(Nung (Myanmar)) ],
+   q(omati) => [ q(mgx), q(Omati) ],
+   q(ounge) => [ q(oue), q(Ounge) ],
+   q(palu) => [ q(pbz), q(Palu) ],
+   q(panang) => [ q(pcr), q(Panang) ],
+   q(persian, old (ca.600-400 b.c.)) => [ q(peo), q(Persian, Old (ca.600-400 B.C.)) ],
+   q(piru) => [ q(ppr), q(Piru) ],
+   q(pongyong) => [ q(pgy), q(Pongyong) ],
+   q(provencal, old (to 1500)) => [ q(pro), q(Provencal, Old (to 1500)) ],
+   q(purum naga) => [ q(puz), q(Purum Naga) ],
+   q(pyu) => [ q(pby), q(Pyu) ],
+   q(sakam) => [ q(skm), q(Sakam) ],
+   q(san marcos tlalcoyalco popoloca) => [ q(pls), q(San Marcos Tlalcoyalco Popoloca) ],
+   q(sansu) => [ q(sca), q(Sansu) ],
+   q(sara dunjo) => [ q(koj), q(Sara Dunjo) ],
+   q(sauk) => [ q(skc), q(Sauk) ],
+   q(sepen) => [ q(spm), q(Sepen) ],
+   q(seraiki) => [ q(skr), q(Seraiki) ],
+   q(shabo) => [ q(sbf), q(Shabo) ],
+   q(shangzhai) => [ q(jih), q(Shangzhai) ],
+   q(so (cameroon)) => [ q(sox), q(So (Cameroon)) ],
+   q(songa) => [ q(sgo), q(Songa) ],
+   q(south american indian (other)) => [ q(sai), q(South American Indian (Other)) ],
+   q(south wemale) => [ q(tlw), q(South Wemale) ],
+   q(southeast pashayi) => [ q(psi), q(Southeast Pashayi) ],
+   q(southern catanduanes bicolano) => [ q(bln), q(Southern Catanduanes Bicolano) ],
+   q(southern lorung) => [ q(lrr), q(Southern Lorung) ],
+   q(southwest pashayi) => [ q(psh), q(Southwest Pashayi) ],
+   q(southwestern tamang) => [ q(tsf), q(Southwestern Tamang) ],
+   q(subi) => [ q(xsj), q(Subi) ],
+   q(sulung) => [ q(suv), q(Sulung) ],
+   q(takpa) => [ q(tkk), q(Takpa) ],
+   q(talur) => [ q(ilw), q(Talur) ],
+   q(tangga) => [ q(tgg), q(Tangga) ],
+   q(tangkhul naga) => [ q(nmf), q(Tangkhul Naga) ],
+   q(the) => [ q(thx), q(The) ],
+   q(tina sambal) => [ q(xsb), q(Tina Sambal) ],
+   q(tingal) => [ q(tie), q(Tingal) ],
+   q(tsotsitaal) => [ q(fly), q(Tsotsitaal) ],
+   q(turkish, ottoman (1500-1928)) => [ q(ota), q(Turkish, Ottoman (1500-1928)) ],
+   q(unggarranggu) => [ q(xun), q(Unggarranggu) ],
+   q(uokha) => [ q(uok), q(Uokha) ],
+   q(upper tanudan kalinga) => [ q(kgh), q(Upper Tanudan Kalinga) ],
+   q(vasekela bushman) => [ q(vaj), q(Vasekela Bushman) ],
+   q(walamo) => [ q(wal), q(Walamo) ],
+   q(walo kumbe dogon) => [ q(dwl), q(Walo Kumbe Dogon) ],
+   q(waray) => [ q(war), q(Waray) ],
+   q(welaung) => [ q(weu), q(Welaung) ],
+   q(were) => [ q(wei), q(Were) ],
+   q(western canadian inuktitut) => [ q(ikt), q(Western Canadian Inuktitut) ],
+   q(worora) => [ q(unp), q(Worora) ],
+   q(xiandao) => [ q(xia), q(Xiandao) ],
+   q(yamphe) => [ q(yma), q(Yamphe) ],
+   q(yangbye) => [ q(ybd), q(Yangbye) ],
+   q(yangho) => [ q(ynh), q(Yangho) ],
+   q(yeskwa) => [ q(yes), q(Yeskwa) ],
+   q(yiddish sign language) => [ q(yds), q(Yiddish Sign Language) ],
+   q(yonggom) => [ q(yon), q(Yonggom) ],
+   q(yos) => [ q(yos), q(Yos) ],
+   q(yuaga) => [ q(nua), q(Yuaga) ],
+   q(yugh) => [ q(yuu), q(Yugh) ],
+   q(zyphe) => [ q(zyp), q(Zyphe) ],
+};
+
+$Locale::Codes::Retired{'language'}{'term'}{'name'} = {
+};
+
+
+1;
diff --git a/lib/5.24.1/Locale/Codes/Script.pm b/lib/5.24.1/Locale/Codes/Script.pm
new file mode 100644
index 00000000..b188cf07
--- /dev/null
+++ b/lib/5.24.1/Locale/Codes/Script.pm
@@ -0,0 +1,98 @@
+package Locale::Codes::Script;
+# Copyright (C) 2001      Canon Research Centre Europe (CRE).
+# Copyright (C) 2002-2009 Neil Bowers
+# Copyright (c) 2010-2015 Sullivan Beck
+# This program is free software; you can redistribute it and/or modify it
+# under the same terms as Perl itself.
+
+use strict;
+require 5.006;
+use warnings;
+
+require Exporter;
+use Carp;
+use Locale::Codes;
+use Locale::Codes::Constants;
+use Locale::Codes::Script_Codes;
+use Locale::Codes::Script_Retired;
+
+#=======================================================================
+#       Public Global Variables
+#=======================================================================
+
+our($VERSION,@ISA,@EXPORT,@EXPORT_OK);
+
+$VERSION='3.37';
+@ISA       = qw(Exporter);
+@EXPORT    = qw(code2script
+                script2code
+                all_script_codes
+                all_script_names
+                script_code2code
+                LOCALE_SCRIPT_ALPHA
+                LOCALE_SCRIPT_NUMERIC
+               );
+
+sub code2script {
+   return Locale::Codes::_code2name('script',@_);
+}
+
+sub script2code {
+   return Locale::Codes::_name2code('script',@_);
+}
+
+sub script_code2code {
+   return Locale::Codes::_code2code('script',@_);
+}
+
+sub all_script_codes {
+   return Locale::Codes::_all_codes('script',@_);
+}
+
+sub all_script_names {
+   return Locale::Codes::_all_names('script',@_);
+}
+
+sub rename_script {
+   return Locale::Codes::_rename('script',@_);
+}
+
+sub add_script {
+   return Locale::Codes::_add_code('script',@_);
+}
+
+sub delete_script {
+   return Locale::Codes::_delete_code('script',@_);
+}
+
+sub add_script_alias {
+   return Locale::Codes::_add_alias('script',@_);
+}
+
+sub delete_script_alias {
+   return Locale::Codes::_delete_alias('script',@_);
+}
+
+sub rename_script_code {
+   return Locale::Codes::_rename_code('script',@_);
+}
+
+sub add_script_code_alias {
+   return Locale::Codes::_add_code_alias('script',@_);
+}
+
+sub delete_script_code_alias {
+   return Locale::Codes::_delete_code_alias('script',@_);
+}
+
+1;
+# Local Variables:
+# mode: cperl
+# indent-tabs-mode: nil
+# cperl-indent-level: 3
+# cperl-continued-statement-offset: 2
+# cperl-continued-brace-offset: 0
+# cperl-brace-offset: 0
+# cperl-brace-imaginary-offset: 0
+# cperl-label-offset: -2
+# End:
diff --git a/lib/5.24.1/Locale/Codes/Script.pod b/lib/5.24.1/Locale/Codes/Script.pod
new file mode 100644
index 00000000..e4e1d405
--- /dev/null
+++ b/lib/5.24.1/Locale/Codes/Script.pod
@@ -0,0 +1,131 @@
+=pod
+
+=head1 NAME
+
+Locale::Codes::Script - standard codes for script identification
+
+=head1 SYNOPSIS
+
+   use Locale::Codes::Script;
+
+   $script  = code2script('phnx');                     # 'Phoenician'
+   $code    = script2code('Phoenician');               # 'Phnx'
+   $code    = script2code('Phoenician',
+                          LOCALE_CODE_NUMERIC);        # 115
+
+   @codes   = all_script_codes();
+   @scripts = all_script_names();
+
+=head1 DESCRIPTION
+
+This module provides access to standards codes used
+for identifying scripts, such as those defined in ISO 15924.
+
+Most of the routines take an optional additional argument which
+specifies the code set to use. If not specified, the default ISO
+15924 four-letter codes will be used.
+
+=head1 SUPPORTED CODE SETS
+
+There are several different code sets you can use for identifying
+scripts. A code set may be specified using either a name, or a
+constant that is automatically exported by this module.
+
+For example, the two are equivalent:
+
+   $script = code2script('phnx','alpha');
+   $script = code2script('phnx',LOCALE_SCRIPT_ALPHA);
+
+The codesets currently supported are:
+
+=over 4
+
+=item B<alpha, LOCALE_SCRIPT_ALPHA>
+
+This is a set of four-letter (capitalized) codes from ISO 15924
+such as 'Phnx' for Phoenician.  It also includes additions to this
+set included in the IANA language registry.
+
+The Zxxx, Zyyy, and Zzzz codes are not used.
+
+This is the default code set.
+
+=item B<num, LOCALE_SCRIPT_NUMERIC>
+
+This is a set of three-digit numeric codes from ISO 15924 such as 115
+for Phoenician.
+
+=back
+
+=head1 ROUTINES
+
+=over 4
+
+=item B<code2script(CODE [,CODESET] [,'retired'])>
+
+=item B<script2code(NAME [,CODESET] [,'retired'])>
+
+=item B<script_code2code(CODE ,CODESET ,CODESET2)>
+
+=item B<all_script_codes([CODESET] [,'retired'])>
+
+=item B<all_script_names([CODESET] [,'retired'])>
+
+=item B<Locale::Codes::Script::rename_script(CODE ,NEW_NAME [,CODESET])>
+
+=item B<Locale::Codes::Script::add_script(CODE ,NAME [,CODESET])>
+
+=item B<Locale::Codes::Script::delete_script(CODE [,CODESET])>
+
+=item B<Locale::Codes::Script::add_script_alias(NAME ,NEW_NAME)>
+
+=item B<Locale::Codes::Script::delete_script_alias(NAME)>
+
+=item B<Locale::Codes::Script::rename_script_code(CODE ,NEW_CODE [,CODESET])>
+
+=item B<Locale::Codes::Script::add_script_code_alias(CODE ,NEW_CODE [,CODESET])>
+
+=item B<Locale::Codes::Script::delete_script_code_alias(CODE [,CODESET])>
+
+These routines are all documented in the L<Locale::Codes::API> man page.
+
+=back
+
+=head1 SEE ALSO
+
+=over 4
+
+=item L<Locale::Codes>
+
+The Locale-Codes distribution.
+
+=item L<Locale::Codes::API>
+
+The list of functions supported by this module.
+
+=item L<http://www.unicode.org/iso15924/>
+
+Home page for ISO 15924.
+
+=item L<http://www.iana.org/assignments/language-subtag-registry>
+
+The IANA language subtag registry.
+
+=back
+
+=head1 AUTHOR
+
+See Locale::Codes for full author history.
+
+Currently maintained by Sullivan Beck (sbeck@cpan.org).
+
+=head1 COPYRIGHT
+
+   Copyright (c) 1997-2001 Canon Research Centre Europe (CRE).
+   Copyright (c) 2001-2010 Neil Bowers
+   Copyright (c) 2010-2015 Sullivan Beck
+
+This module is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+=cut
diff --git a/lib/5.24.1/Locale/Codes/Script_Codes.pm b/lib/5.24.1/Locale/Codes/Script_Codes.pm
new file mode 100644
index 00000000..451a4e4b
--- /dev/null
+++ b/lib/5.24.1/Locale/Codes/Script_Codes.pm
@@ -0,0 +1,3386 @@
+package #
+Locale::Codes::Script_Codes;
+
+# This file was automatically generated.  Any changes to this file will
+# be lost the next time 'harvest_data' is run.
+#    Generated on: Tue Dec  1 14:44:11 EST 2015
+
+use strict;
+require 5.006;
+use warnings;
+use utf8;
+
+our($VERSION);
+$VERSION='3.37';
+
+$Locale::Codes::Data{'script'}{'id'} = '0175';
+
+$Locale::Codes::Data{'script'}{'id2names'} = {
+   q(0001) => [
+      q(Adlam),
+      ],
+   q(0002) => [
+      q(Afaka),
+      ],
+   q(0003) => [
+      q(Caucasian Albanian),
+      ],
+   q(0004) => [
+      q(Ahom, Tai Ahom),
+      q(Ahom),
+      q(Tai Ahom),
+      ],
+   q(0005) => [
+      q(Arabic),
+      ],
+   q(0006) => [
+      q(Arabic (Nastaliq variant)),
+      ],
+   q(0007) => [
+      q(Imperial Aramaic),
+      ],
+   q(0008) => [
+      q(Armenian),
+      ],
+   q(0009) => [
+      q(Avestan),
+      ],
+   q(0010) => [
+      q(Balinese),
+      ],
+   q(0011) => [
+      q(Bamum),
+      ],
+   q(0012) => [
+      q(Bassa Vah),
+      ],
+   q(0013) => [
+      q(Batak),
+      ],
+   q(0014) => [
+      q(Bengali),
+      ],
+   q(0015) => [
+      q(Bhaiksuki),
+      ],
+   q(0016) => [
+      q(Blissymbols),
+      ],
+   q(0017) => [
+      q(Bopomofo),
+      ],
+   q(0018) => [
+      q(Brahmi),
+      ],
+   q(0019) => [
+      q(Braille),
+      ],
+   q(0020) => [
+      q(Buginese),
+      ],
+   q(0021) => [
+      q(Buhid),
+      ],
+   q(0022) => [
+      q(Chakma),
+      ],
+   q(0023) => [
+      q(Unified Canadian Aboriginal Syllabics),
+      ],
+   q(0024) => [
+      q(Carian),
+      ],
+   q(0025) => [
+      q(Cham),
+      ],
+   q(0026) => [
+      q(Cherokee),
+      ],
+   q(0027) => [
+      q(Cirth),
+      ],
+   q(0028) => [
+      q(Coptic),
+      ],
+   q(0029) => [
+      q(Cypriot),
+      ],
+   q(0030) => [
+      q(Cyrillic),
+      ],
+   q(0031) => [
+      q(Cyrillic (Old Church Slavonic variant)),
+      ],
+   q(0032) => [
+      q(Devanagari (Nagari)),
+      q(Devanagari),
+      q(Nagari),
+      ],
+   q(0033) => [
+      q(Deseret (Mormon)),
+      q(Deseret),
+      q(Mormon),
+      ],
+   q(0034) => [
+      q(Duployan shorthand, Duployan stenography),
+      q(Duployan shorthand),
+      q(Duployan stenography),
+      ],
+   q(0035) => [
+      q(Egyptian demotic),
+      ],
+   q(0036) => [
+      q(Egyptian hieratic),
+      ],
+   q(0037) => [
+      q(Egyptian hieroglyphs),
+      ],
+   q(0038) => [
+      q(Elbasan),
+      ],
+   q(0039) => [
+      q(Ethiopic (Geez)),
+      q(Ethiopic),
+      q(Ge'ez),
+      ],
+   q(0040) => [
+      q(Khutsuri (Asomtavruli and Nuskhuri)),
+      ],
+   q(0041) => [
+      q(Georgian (Mkhedruli)),
+      ],
+   q(0042) => [
+      q(Glagolitic),
+      ],
+   q(0043) => [
+      q(Gothic),
+      ],
+   q(0044) => [
+      q(Grantha),
+      ],
+   q(0045) => [
+      q(Greek),
+      ],
+   q(0046) => [
+      q(Gujarati),
+      ],
+   q(0047) => [
+      q(Gurmukhi),
+      ],
+   q(0048) => [
+      q(Hangul (Hangul, Hangeul)),
+      q(Hangul),
+      q(Hangeul),
+      ],
+   q(0049) => [
+      q(Han (Hanzi, Kanji, Hanja)),
+      q(Han),
+      q(Hanzi),
+      q(Kanji),
+      q(Hanja),
+      ],
+   q(0050) => [
+      q(Hanunoo (Hanunoo)),
+      q(Hanunoo),
+      ],
+   q(0051) => [
+      q(Han (Simplified variant)),
+      ],
+   q(0052) => [
+      q(Han (Traditional variant)),
+      ],
+   q(0053) => [
+      q(Hatran),
+      ],
+   q(0054) => [
+      q(Hebrew),
+      ],
+   q(0055) => [
+      q(Hiragana),
+      ],
+   q(0056) => [
+      q(Anatolian Hieroglyphs (Luwian Hieroglyphs, Hittite Hieroglyphs)),
+      q(Anatolian Hieroglyphs),
+      q(Luwian Hieroglyphs),
+      q(Hittite Hieroglyphs),
+      ],
+   q(0057) => [
+      q(Pahawh Hmong),
+      ],
+   q(0058) => [
+      q(Japanese syllabaries (alias for Hiragana + Katakana)),
+      ],
+   q(0059) => [
+      q(Old Hungarian (Hungarian Runic)),
+      q(Old Hungarian),
+      q(Hungarian Runic),
+      ],
+   q(0060) => [
+      q(Indus (Harappan)),
+      q(Indus),
+      q(Harappan),
+      ],
+   q(0061) => [
+      q(Old Italic (Etruscan, Oscan, etc.)),
+      ],
+   q(0062) => [
+      q(Javanese),
+      ],
+   q(0063) => [
+      q(Japanese (alias for Han + Hiragana + Katakana)),
+      ],
+   q(0064) => [
+      q(Jurchen),
+      ],
+   q(0065) => [
+      q(Kayah Li),
+      ],
+   q(0066) => [
+      q(Katakana),
+      ],
+   q(0067) => [
+      q(Kharoshthi),
+      ],
+   q(0068) => [
+      q(Khmer),
+      ],
+   q(0069) => [
+      q(Khojki),
+      ],
+   q(0070) => [
+      q(Khitan large script),
+      ],
+   q(0071) => [
+      q(Khitan small script),
+      ],
+   q(0072) => [
+      q(Kannada),
+      ],
+   q(0073) => [
+      q(Korean (alias for Hangul + Han)),
+      ],
+   q(0074) => [
+      q(Kpelle),
+      ],
+   q(0075) => [
+      q(Kaithi),
+      ],
+   q(0076) => [
+      q(Tai Tham (Lanna)),
+      q(Tai Tham),
+      q(Lanna),
+      ],
+   q(0077) => [
+      q(Lao),
+      ],
+   q(0078) => [
+      q(Latin (Fraktur variant)),
+      ],
+   q(0079) => [
+      q(Latin (Gaelic variant)),
+      ],
+   q(0080) => [
+      q(Latin),
+      ],
+   q(0081) => [
+      q(Leke),
+      ],
+   q(0082) => [
+      q(Lepcha (Rong)),
+      q(Lepcha),
+      q(Rong),
+      ],
+   q(0083) => [
+      q(Limbu),
+      ],
+   q(0084) => [
+      q(Linear A),
+      ],
+   q(0085) => [
+      q(Linear B),
+      ],
+   q(0086) => [
+      q(Lisu (Fraser)),
+      q(Lisu),
+      q(Fraser),
+      ],
+   q(0087) => [
+      q(Loma),
+      ],
+   q(0088) => [
+      q(Lycian),
+      ],
+   q(0089) => [
+      q(Lydian),
+      ],
+   q(0090) => [
+      q(Mahajani),
+      ],
+   q(0091) => [
+      q(Mandaic, Mandaean),
+      q(Mandaic),
+      q(Mandaean),
+      ],
+   q(0092) => [
+      q(Manichaean),
+      ],
+   q(0093) => [
+      q(Marchen),
+      ],
+   q(0094) => [
+      q(Mayan hieroglyphs),
+      ],
+   q(0095) => [
+      q(Mende Kikakui),
+      ],
+   q(0096) => [
+      q(Meroitic Cursive),
+      ],
+   q(0097) => [
+      q(Meroitic Hieroglyphs),
+      ],
+   q(0098) => [
+      q(Malayalam),
+      ],
+   q(0099) => [
+      q(Modi, Modi),
+      q(Modi),
+      ],
+   q(0100) => [
+      q(Mongolian),
+      ],
+   q(0101) => [
+      q(Moon (Moon code, Moon script, Moon type)),
+      q(Moon),
+      q(Moon code),
+      q(Moon script),
+      q(Moon type),
+      ],
+   q(0102) => [
+      q(Mro, Mru),
+      q(Mro),
+      q(Mru),
+      ],
+   q(0103) => [
+      q(Meitei Mayek (Meithei, Meetei)),
+      q(Meitei Mayek),
+      q(Meithei),
+      q(Meetei),
+      ],
+   q(0104) => [
+      q(Multani),
+      ],
+   q(0105) => [
+      q(Myanmar (Burmese)),
+      q(Myanmar),
+      q(Burmese),
+      ],
+   q(0106) => [
+      q(Old North Arabian (Ancient North Arabian)),
+      q(Old North Arabian),
+      q(Ancient North Arabian),
+      ],
+   q(0107) => [
+      q(Nabataean),
+      ],
+   q(0108) => [
+      q(Nakhi Geba ('Na-'Khi Ggo-baw, Naxi Geba)),
+      q(Nakhi Geba),
+      q('Na-'Khi Ggo-baw),
+      q(Naxi Geba),
+      ],
+   q(0109) => [
+      q(N'Ko),
+      ],
+   q(0110) => [
+      q(Nushu),
+      ],
+   q(0111) => [
+      q(Ogham),
+      ],
+   q(0112) => [
+      q(Ol Chiki (Ol Cemet, Ol, Santali)),
+      q(Ol Chiki),
+      q(Ol Cemet'),
+      q(Ol),
+      q(Santali),
+      ],
+   q(0113) => [
+      q(Old Turkic, Orkhon Runic),
+      q(Old Turkic),
+      q(Orkhon Runic),
+      ],
+   q(0114) => [
+      q(Oriya),
+      ],
+   q(0115) => [
+      q(Osage),
+      ],
+   q(0116) => [
+      q(Osmanya),
+      ],
+   q(0117) => [
+      q(Palmyrene),
+      ],
+   q(0118) => [
+      q(Pau Cin Hau),
+      ],
+   q(0119) => [
+      q(Old Permic),
+      ],
+   q(0120) => [
+      q(Phags-pa),
+      ],
+   q(0121) => [
+      q(Inscriptional Pahlavi),
+      ],
+   q(0122) => [
+      q(Psalter Pahlavi),
+      ],
+   q(0123) => [
+      q(Book Pahlavi),
+      ],
+   q(0124) => [
+      q(Phoenician),
+      ],
+   q(0125) => [
+      q(Miao (Pollard)),
+      q(Miao),
+      q(Pollard),
+      ],
+   q(0126) => [
+      q(Inscriptional Parthian),
+      ],
+   q(0127) => [
+      q(Reserved for private use (start)),
+      ],
+   q(0128) => [
+      q(Reserved for private use (end)),
+      ],
+   q(0129) => [
+      q(Rejang (Redjang, Kaganga)),
+      q(Rejang),
+      q(Redjang),
+      q(Kaganga),
+      ],
+   q(0130) => [
+      q(Rongorongo),
+      ],
+   q(0131) => [
+      q(Runic),
+      ],
+   q(0132) => [
+      q(Samaritan),
+      ],
+   q(0133) => [
+      q(Sarati),
+      ],
+   q(0134) => [
+      q(Old South Arabian),
+      ],
+   q(0135) => [
+      q(Saurashtra),
+      ],
+   q(0136) => [
+      q(SignWriting),
+      ],
+   q(0137) => [
+      q(Shavian (Shaw)),
+      q(Shavian),
+      q(Shaw),
+      ],
+   q(0138) => [
+      q(Sharada, Sarada),
+      q(Sharada),
+      q(Sarada),
+      ],
+   q(0139) => [
+      q(Siddham, Siddham, Siddhamatrka),
+      q(Siddham),
+      q(Siddhamatrka),
+      ],
+   q(0140) => [
+      q(Khudawadi, Sindhi),
+      q(Khudawadi),
+      q(Sindhi),
+      ],
+   q(0141) => [
+      q(Sinhala),
+      ],
+   q(0142) => [
+      q(Sora Sompeng),
+      ],
+   q(0143) => [
+      q(Sundanese),
+      ],
+   q(0144) => [
+      q(Syloti Nagri),
+      ],
+   q(0145) => [
+      q(Syriac),
+      ],
+   q(0146) => [
+      q(Syriac (Estrangelo variant)),
+      ],
+   q(0147) => [
+      q(Syriac (Western variant)),
+      ],
+   q(0148) => [
+      q(Syriac (Eastern variant)),
+      ],
+   q(0149) => [
+      q(Tagbanwa),
+      ],
+   q(0150) => [
+      q(Takri, Takri, Tankri),
+      q(Takri),
+      q(Tankri),
+      ],
+   q(0151) => [
+      q(Tai Le),
+      ],
+   q(0152) => [
+      q(New Tai Lue),
+      ],
+   q(0153) => [
+      q(Tamil),
+      ],
+   q(0154) => [
+      q(Tangut),
+      ],
+   q(0155) => [
+      q(Tai Viet),
+      ],
+   q(0156) => [
+      q(Telugu),
+      ],
+   q(0157) => [
+      q(Tengwar),
+      ],
+   q(0158) => [
+      q(Tifinagh (Berber)),
+      q(Tifinagh),
+      q(Berber),
+      ],
+   q(0159) => [
+      q(Tagalog (Baybayin, Alibata)),
+      q(Tagalog),
+      q(Baybayin),
+      q(Alibata),
+      ],
+   q(0160) => [
+      q(Thaana),
+      ],
+   q(0161) => [
+      q(Thai),
+      ],
+   q(0162) => [
+      q(Tibetan),
+      ],
+   q(0163) => [
+      q(Tirhuta),
+      ],
+   q(0164) => [
+      q(Ugaritic),
+      ],
+   q(0165) => [
+      q(Vai),
+      ],
+   q(0166) => [
+      q(Visible Speech),
+      ],
+   q(0167) => [
+      q(Warang Citi (Varang Kshiti)),
+      q(Warang Citi),
+      q(Varang Kshiti),
+      ],
+   q(0168) => [
+      q(Woleai),
+      ],
+   q(0169) => [
+      q(Old Persian),
+      ],
+   q(0170) => [
+      q(Cuneiform, Sumero-Akkadian),
+      q(Sumero-Akkadian cuneiform),
+      ],
+   q(0171) => [
+      q(Yi),
+      ],
+   q(0172) => [
+      q(Code for inherited script),
+      ],
+   q(0173) => [
+      q(Mathematical notation),
+      ],
+   q(0174) => [
+      q(Symbols),
+      ],
+};
+
+$Locale::Codes::Data{'script'}{'alias2id'} = {
+   q('na-'khi ggo-baw) => [
+      q(0108),
+      q(2),
+      ],
+   q(adlam) => [
+      q(0001),
+      q(0),
+      ],
+   q(afaka) => [
+      q(0002),
+      q(0),
+      ],
+   q(ahom) => [
+      q(0004),
+      q(1),
+      ],
+   q(ahom, tai ahom) => [
+      q(0004),
+      q(0),
+      ],
+   q(alibata) => [
+      q(0159),
+      q(3),
+      ],
+   q(anatolian hieroglyphs) => [
+      q(0056),
+      q(1),
+      ],
+   q(anatolian hieroglyphs (luwian hieroglyphs, hittite hieroglyphs)) => [
+      q(0056),
+      q(0),
+      ],
+   q(ancient north arabian) => [
+      q(0106),
+      q(2),
+      ],
+   q(arabic) => [
+      q(0005),
+      q(0),
+      ],
+   q(arabic (nastaliq variant)) => [
+      q(0006),
+      q(0),
+      ],
+   q(armenian) => [
+      q(0008),
+      q(0),
+      ],
+   q(avestan) => [
+      q(0009),
+      q(0),
+      ],
+   q(balinese) => [
+      q(0010),
+      q(0),
+      ],
+   q(bamum) => [
+      q(0011),
+      q(0),
+      ],
+   q(bassa vah) => [
+      q(0012),
+      q(0),
+      ],
+   q(batak) => [
+      q(0013),
+      q(0),
+      ],
+   q(baybayin) => [
+      q(0159),
+      q(2),
+      ],
+   q(bengali) => [
+      q(0014),
+      q(0),
+      ],
+   q(berber) => [
+      q(0158),
+      q(2),
+      ],
+   q(bhaiksuki) => [
+      q(0015),
+      q(0),
+      ],
+   q(blissymbols) => [
+      q(0016),
+      q(0),
+      ],
+   q(book pahlavi) => [
+      q(0123),
+      q(0),
+      ],
+   q(bopomofo) => [
+      q(0017),
+      q(0),
+      ],
+   q(brahmi) => [
+      q(0018),
+      q(0),
+      ],
+   q(braille) => [
+      q(0019),
+      q(0),
+      ],
+   q(buginese) => [
+      q(0020),
+      q(0),
+      ],
+   q(buhid) => [
+      q(0021),
+      q(0),
+      ],
+   q(burmese) => [
+      q(0105),
+      q(2),
+      ],
+   q(carian) => [
+      q(0024),
+      q(0),
+      ],
+   q(caucasian albanian) => [
+      q(0003),
+      q(0),
+      ],
+   q(chakma) => [
+      q(0022),
+      q(0),
+      ],
+   q(cham) => [
+      q(0025),
+      q(0),
+      ],
+   q(cherokee) => [
+      q(0026),
+      q(0),
+      ],
+   q(cirth) => [
+      q(0027),
+      q(0),
+      ],
+   q(code for inherited script) => [
+      q(0172),
+      q(0),
+      ],
+   q(coptic) => [
+      q(0028),
+      q(0),
+      ],
+   q(cuneiform, sumero-akkadian) => [
+      q(0170),
+      q(0),
+      ],
+   q(cypriot) => [
+      q(0029),
+      q(0),
+      ],
+   q(cyrillic) => [
+      q(0030),
+      q(0),
+      ],
+   q(cyrillic (old church slavonic variant)) => [
+      q(0031),
+      q(0),
+      ],
+   q(deseret) => [
+      q(0033),
+      q(1),
+      ],
+   q(deseret (mormon)) => [
+      q(0033),
+      q(0),
+      ],
+   q(devanagari) => [
+      q(0032),
+      q(1),
+      ],
+   q(devanagari (nagari)) => [
+      q(0032),
+      q(0),
+      ],
+   q(duployan shorthand) => [
+      q(0034),
+      q(1),
+      ],
+   q(duployan shorthand, duployan stenography) => [
+      q(0034),
+      q(0),
+      ],
+   q(duployan stenography) => [
+      q(0034),
+      q(2),
+      ],
+   q(egyptian demotic) => [
+      q(0035),
+      q(0),
+      ],
+   q(egyptian hieratic) => [
+      q(0036),
+      q(0),
+      ],
+   q(egyptian hieroglyphs) => [
+      q(0037),
+      q(0),
+      ],
+   q(elbasan) => [
+      q(0038),
+      q(0),
+      ],
+   q(ethiopic) => [
+      q(0039),
+      q(1),
+      ],
+   q(ethiopic (geez)) => [
+      q(0039),
+      q(0),
+      ],
+   q(fraser) => [
+      q(0086),
+      q(2),
+      ],
+   q(ge'ez) => [
+      q(0039),
+      q(2),
+      ],
+   q(georgian (mkhedruli)) => [
+      q(0041),
+      q(0),
+      ],
+   q(glagolitic) => [
+      q(0042),
+      q(0),
+      ],
+   q(gothic) => [
+      q(0043),
+      q(0),
+      ],
+   q(grantha) => [
+      q(0044),
+      q(0),
+      ],
+   q(greek) => [
+      q(0045),
+      q(0),
+      ],
+   q(gujarati) => [
+      q(0046),
+      q(0),
+      ],
+   q(gurmukhi) => [
+      q(0047),
+      q(0),
+      ],
+   q(han) => [
+      q(0049),
+      q(1),
+      ],
+   q(han (hanzi, kanji, hanja)) => [
+      q(0049),
+      q(0),
+      ],
+   q(han (simplified variant)) => [
+      q(0051),
+      q(0),
+      ],
+   q(han (traditional variant)) => [
+      q(0052),
+      q(0),
+      ],
+   q(hangeul) => [
+      q(0048),
+      q(2),
+      ],
+   q(hangul) => [
+      q(0048),
+      q(1),
+      ],
+   q(hangul (hangul, hangeul)) => [
+      q(0048),
+      q(0),
+      ],
+   q(hanja) => [
+      q(0049),
+      q(4),
+      ],
+   q(hanunoo) => [
+      q(0050),
+      q(1),
+      ],
+   q(hanunoo (hanunoo)) => [
+      q(0050),
+      q(0),
+      ],
+   q(hanzi) => [
+      q(0049),
+      q(2),
+      ],
+   q(harappan) => [
+      q(0060),
+      q(2),
+      ],
+   q(hatran) => [
+      q(0053),
+      q(0),
+      ],
+   q(hebrew) => [
+      q(0054),
+      q(0),
+      ],
+   q(hiragana) => [
+      q(0055),
+      q(0),
+      ],
+   q(hittite hieroglyphs) => [
+      q(0056),
+      q(3),
+      ],
+   q(hungarian runic) => [
+      q(0059),
+      q(2),
+      ],
+   q(imperial aramaic) => [
+      q(0007),
+      q(0),
+      ],
+   q(indus) => [
+      q(0060),
+      q(1),
+      ],
+   q(indus (harappan)) => [
+      q(0060),
+      q(0),
+      ],
+   q(inscriptional pahlavi) => [
+      q(0121),
+      q(0),
+      ],
+   q(inscriptional parthian) => [
+      q(0126),
+      q(0),
+      ],
+   q(japanese (alias for han + hiragana + katakana)) => [
+      q(0063),
+      q(0),
+      ],
+   q(japanese syllabaries (alias for hiragana + katakana)) => [
+      q(0058),
+      q(0),
+      ],
+   q(javanese) => [
+      q(0062),
+      q(0),
+      ],
+   q(jurchen) => [
+      q(0064),
+      q(0),
+      ],
+   q(kaganga) => [
+      q(0129),
+      q(3),
+      ],
+   q(kaithi) => [
+      q(0075),
+      q(0),
+      ],
+   q(kanji) => [
+      q(0049),
+      q(3),
+      ],
+   q(kannada) => [
+      q(0072),
+      q(0),
+      ],
+   q(katakana) => [
+      q(0066),
+      q(0),
+      ],
+   q(kayah li) => [
+      q(0065),
+      q(0),
+      ],
+   q(kharoshthi) => [
+      q(0067),
+      q(0),
+      ],
+   q(khitan large script) => [
+      q(0070),
+      q(0),
+      ],
+   q(khitan small script) => [
+      q(0071),
+      q(0),
+      ],
+   q(khmer) => [
+      q(0068),
+      q(0),
+      ],
+   q(khojki) => [
+      q(0069),
+      q(0),
+      ],
+   q(khudawadi) => [
+      q(0140),
+      q(1),
+      ],
+   q(khudawadi, sindhi) => [
+      q(0140),
+      q(0),
+      ],
+   q(khutsuri (asomtavruli and nuskhuri)) => [
+      q(0040),
+      q(0),
+      ],
+   q(korean (alias for hangul + han)) => [
+      q(0073),
+      q(0),
+      ],
+   q(kpelle) => [
+      q(0074),
+      q(0),
+      ],
+   q(lanna) => [
+      q(0076),
+      q(2),
+      ],
+   q(lao) => [
+      q(0077),
+      q(0),
+      ],
+   q(latin) => [
+      q(0080),
+      q(0),
+      ],
+   q(latin (fraktur variant)) => [
+      q(0078),
+      q(0),
+      ],
+   q(latin (gaelic variant)) => [
+      q(0079),
+      q(0),
+      ],
+   q(leke) => [
+      q(0081),
+      q(0),
+      ],
+   q(lepcha) => [
+      q(0082),
+      q(1),
+      ],
+   q(lepcha (rong)) => [
+      q(0082),
+      q(0),
+      ],
+   q(limbu) => [
+      q(0083),
+      q(0),
+      ],
+   q(linear a) => [
+      q(0084),
+      q(0),
+      ],
+   q(linear b) => [
+      q(0085),
+      q(0),
+      ],
+   q(lisu) => [
+      q(0086),
+      q(1),
+      ],
+   q(lisu (fraser)) => [
+      q(0086),
+      q(0),
+      ],
+   q(loma) => [
+      q(0087),
+      q(0),
+      ],
+   q(luwian hieroglyphs) => [
+      q(0056),
+      q(2),
+      ],
+   q(lycian) => [
+      q(0088),
+      q(0),
+      ],
+   q(lydian) => [
+      q(0089),
+      q(0),
+      ],
+   q(mahajani) => [
+      q(0090),
+      q(0),
+      ],
+   q(malayalam) => [
+      q(0098),
+      q(0),
+      ],
+   q(mandaean) => [
+      q(0091),
+      q(2),
+      ],
+   q(mandaic) => [
+      q(0091),
+      q(1),
+      ],
+   q(mandaic, mandaean) => [
+      q(0091),
+      q(0),
+      ],
+   q(manichaean) => [
+      q(0092),
+      q(0),
+      ],
+   q(marchen) => [
+      q(0093),
+      q(0),
+      ],
+   q(mathematical notation) => [
+      q(0173),
+      q(0),
+      ],
+   q(mayan hieroglyphs) => [
+      q(0094),
+      q(0),
+      ],
+   q(meetei) => [
+      q(0103),
+      q(3),
+      ],
+   q(meitei mayek) => [
+      q(0103),
+      q(1),
+      ],
+   q(meitei mayek (meithei, meetei)) => [
+      q(0103),
+      q(0),
+      ],
+   q(meithei) => [
+      q(0103),
+      q(2),
+      ],
+   q(mende kikakui) => [
+      q(0095),
+      q(0),
+      ],
+   q(meroitic cursive) => [
+      q(0096),
+      q(0),
+      ],
+   q(meroitic hieroglyphs) => [
+      q(0097),
+      q(0),
+      ],
+   q(miao) => [
+      q(0125),
+      q(1),
+      ],
+   q(miao (pollard)) => [
+      q(0125),
+      q(0),
+      ],
+   q(modi) => [
+      q(0099),
+      q(1),
+      ],
+   q(modi, modi) => [
+      q(0099),
+      q(0),
+      ],
+   q(mongolian) => [
+      q(0100),
+      q(0),
+      ],
+   q(moon) => [
+      q(0101),
+      q(1),
+      ],
+   q(moon (moon code, moon script, moon type)) => [
+      q(0101),
+      q(0),
+      ],
+   q(moon code) => [
+      q(0101),
+      q(2),
+      ],
+   q(moon script) => [
+      q(0101),
+      q(3),
+      ],
+   q(moon type) => [
+      q(0101),
+      q(4),
+      ],
+   q(mormon) => [
+      q(0033),
+      q(2),
+      ],
+   q(mro) => [
+      q(0102),
+      q(1),
+      ],
+   q(mro, mru) => [
+      q(0102),
+      q(0),
+      ],
+   q(mru) => [
+      q(0102),
+      q(2),
+      ],
+   q(multani) => [
+      q(0104),
+      q(0),
+      ],
+   q(myanmar) => [
+      q(0105),
+      q(1),
+      ],
+   q(myanmar (burmese)) => [
+      q(0105),
+      q(0),
+      ],
+   q(n'ko) => [
+      q(0109),
+      q(0),
+      ],
+   q(nabataean) => [
+      q(0107),
+      q(0),
+      ],
+   q(nagari) => [
+      q(0032),
+      q(2),
+      ],
+   q(nakhi geba) => [
+      q(0108),
+      q(1),
+      ],
+   q(nakhi geba ('na-'khi ggo-baw, naxi geba)) => [
+      q(0108),
+      q(0),
+      ],
+   q(naxi geba) => [
+      q(0108),
+      q(3),
+      ],
+   q(new tai lue) => [
+      q(0152),
+      q(0),
+      ],
+   q(nushu) => [
+      q(0110),
+      q(0),
+      ],
+   q(ogham) => [
+      q(0111),
+      q(0),
+      ],
+   q(ol) => [
+      q(0112),
+      q(3),
+      ],
+   q(ol cemet') => [
+      q(0112),
+      q(2),
+      ],
+   q(ol chiki) => [
+      q(0112),
+      q(1),
+      ],
+   q(ol chiki (ol cemet, ol, santali)) => [
+      q(0112),
+      q(0),
+      ],
+   q(old hungarian) => [
+      q(0059),
+      q(1),
+      ],
+   q(old hungarian (hungarian runic)) => [
+      q(0059),
+      q(0),
+      ],
+   q(old italic (etruscan, oscan, etc.)) => [
+      q(0061),
+      q(0),
+      ],
+   q(old north arabian) => [
+      q(0106),
+      q(1),
+      ],
+   q(old north arabian (ancient north arabian)) => [
+      q(0106),
+      q(0),
+      ],
+   q(old permic) => [
+      q(0119),
+      q(0),
+      ],
+   q(old persian) => [
+      q(0169),
+      q(0),
+      ],
+   q(old south arabian) => [
+      q(0134),
+      q(0),
+      ],
+   q(old turkic) => [
+      q(0113),
+      q(1),
+      ],
+   q(old turkic, orkhon runic) => [
+      q(0113),
+      q(0),
+      ],
+   q(oriya) => [
+      q(0114),
+      q(0),
+      ],
+   q(orkhon runic) => [
+      q(0113),
+      q(2),
+      ],
+   q(osage) => [
+      q(0115),
+      q(0),
+      ],
+   q(osmanya) => [
+      q(0116),
+      q(0),
+      ],
+   q(pahawh hmong) => [
+      q(0057),
+      q(0),
+      ],
+   q(palmyrene) => [
+      q(0117),
+      q(0),
+      ],
+   q(pau cin hau) => [
+      q(0118),
+      q(0),
+      ],
+   q(phags-pa) => [
+      q(0120),
+      q(0),
+      ],
+   q(phoenician) => [
+      q(0124),
+      q(0),
+      ],
+   q(pollard) => [
+      q(0125),
+      q(2),
+      ],
+   q(psalter pahlavi) => [
+      q(0122),
+      q(0),
+      ],
+   q(redjang) => [
+      q(0129),
+      q(2),
+      ],
+   q(rejang) => [
+      q(0129),
+      q(1),
+      ],
+   q(rejang (redjang, kaganga)) => [
+      q(0129),
+      q(0),
+      ],
+   q(reserved for private use (end)) => [
+      q(0128),
+      q(0),
+      ],
+   q(reserved for private use (start)) => [
+      q(0127),
+      q(0),
+      ],
+   q(rong) => [
+      q(0082),
+      q(2),
+      ],
+   q(rongorongo) => [
+      q(0130),
+      q(0),
+      ],
+   q(runic) => [
+      q(0131),
+      q(0),
+      ],
+   q(samaritan) => [
+      q(0132),
+      q(0),
+      ],
+   q(santali) => [
+      q(0112),
+      q(4),
+      ],
+   q(sarada) => [
+      q(0138),
+      q(2),
+      ],
+   q(sarati) => [
+      q(0133),
+      q(0),
+      ],
+   q(saurashtra) => [
+      q(0135),
+      q(0),
+      ],
+   q(sharada) => [
+      q(0138),
+      q(1),
+      ],
+   q(sharada, sarada) => [
+      q(0138),
+      q(0),
+      ],
+   q(shavian) => [
+      q(0137),
+      q(1),
+      ],
+   q(shavian (shaw)) => [
+      q(0137),
+      q(0),
+      ],
+   q(shaw) => [
+      q(0137),
+      q(2),
+      ],
+   q(siddham) => [
+      q(0139),
+      q(1),
+      ],
+   q(siddham, siddham, siddhamatrka) => [
+      q(0139),
+      q(0),
+      ],
+   q(siddhamatrka) => [
+      q(0139),
+      q(2),
+      ],
+   q(signwriting) => [
+      q(0136),
+      q(0),
+      ],
+   q(sindhi) => [
+      q(0140),
+      q(2),
+      ],
+   q(sinhala) => [
+      q(0141),
+      q(0),
+      ],
+   q(sora sompeng) => [
+      q(0142),
+      q(0),
+      ],
+   q(sumero-akkadian cuneiform) => [
+      q(0170),
+      q(1),
+      ],
+   q(sundanese) => [
+      q(0143),
+      q(0),
+      ],
+   q(syloti nagri) => [
+      q(0144),
+      q(0),
+      ],
+   q(symbols) => [
+      q(0174),
+      q(0),
+      ],
+   q(syriac) => [
+      q(0145),
+      q(0),
+      ],
+   q(syriac (eastern variant)) => [
+      q(0148),
+      q(0),
+      ],
+   q(syriac (estrangelo variant)) => [
+      q(0146),
+      q(0),
+      ],
+   q(syriac (western variant)) => [
+      q(0147),
+      q(0),
+      ],
+   q(tagalog) => [
+      q(0159),
+      q(1),
+      ],
+   q(tagalog (baybayin, alibata)) => [
+      q(0159),
+      q(0),
+      ],
+   q(tagbanwa) => [
+      q(0149),
+      q(0),
+      ],
+   q(tai ahom) => [
+      q(0004),
+      q(2),
+      ],
+   q(tai le) => [
+      q(0151),
+      q(0),
+      ],
+   q(tai tham) => [
+      q(0076),
+      q(1),
+      ],
+   q(tai tham (lanna)) => [
+      q(0076),
+      q(0),
+      ],
+   q(tai viet) => [
+      q(0155),
+      q(0),
+      ],
+   q(takri) => [
+      q(0150),
+      q(1),
+      ],
+   q(takri, takri, tankri) => [
+      q(0150),
+      q(0),
+      ],
+   q(tamil) => [
+      q(0153),
+      q(0),
+      ],
+   q(tangut) => [
+      q(0154),
+      q(0),
+      ],
+   q(tankri) => [
+      q(0150),
+      q(2),
+      ],
+   q(telugu) => [
+      q(0156),
+      q(0),
+      ],
+   q(tengwar) => [
+      q(0157),
+      q(0),
+      ],
+   q(thaana) => [
+      q(0160),
+      q(0),
+      ],
+   q(thai) => [
+      q(0161),
+      q(0),
+      ],
+   q(tibetan) => [
+      q(0162),
+      q(0),
+      ],
+   q(tifinagh) => [
+      q(0158),
+      q(1),
+      ],
+   q(tifinagh (berber)) => [
+      q(0158),
+      q(0),
+      ],
+   q(tirhuta) => [
+      q(0163),
+      q(0),
+      ],
+   q(ugaritic) => [
+      q(0164),
+      q(0),
+      ],
+   q(unified canadian aboriginal syllabics) => [
+      q(0023),
+      q(0),
+      ],
+   q(vai) => [
+      q(0165),
+      q(0),
+      ],
+   q(varang kshiti) => [
+      q(0167),
+      q(2),
+      ],
+   q(visible speech) => [
+      q(0166),
+      q(0),
+      ],
+   q(warang citi) => [
+      q(0167),
+      q(1),
+      ],
+   q(warang citi (varang kshiti)) => [
+      q(0167),
+      q(0),
+      ],
+   q(woleai) => [
+      q(0168),
+      q(0),
+      ],
+   q(yi) => [
+      q(0171),
+      q(0),
+      ],
+};
+
+$Locale::Codes::Data{'script'}{'code2id'} = {
+   q(alpha) => {
+      q(Adlm) => [
+         q(0001),
+         q(0),
+         ],
+      q(Afak) => [
+         q(0002),
+         q(0),
+         ],
+      q(Aghb) => [
+         q(0003),
+         q(0),
+         ],
+      q(Ahom) => [
+         q(0004),
+         q(1),
+         ],
+      q(Arab) => [
+         q(0005),
+         q(0),
+         ],
+      q(Aran) => [
+         q(0006),
+         q(0),
+         ],
+      q(Armi) => [
+         q(0007),
+         q(0),
+         ],
+      q(Armn) => [
+         q(0008),
+         q(0),
+         ],
+      q(Avst) => [
+         q(0009),
+         q(0),
+         ],
+      q(Bali) => [
+         q(0010),
+         q(0),
+         ],
+      q(Bamu) => [
+         q(0011),
+         q(0),
+         ],
+      q(Bass) => [
+         q(0012),
+         q(0),
+         ],
+      q(Batk) => [
+         q(0013),
+         q(0),
+         ],
+      q(Beng) => [
+         q(0014),
+         q(0),
+         ],
+      q(Bhks) => [
+         q(0015),
+         q(0),
+         ],
+      q(Blis) => [
+         q(0016),
+         q(0),
+         ],
+      q(Bopo) => [
+         q(0017),
+         q(0),
+         ],
+      q(Brah) => [
+         q(0018),
+         q(0),
+         ],
+      q(Brai) => [
+         q(0019),
+         q(0),
+         ],
+      q(Bugi) => [
+         q(0020),
+         q(0),
+         ],
+      q(Buhd) => [
+         q(0021),
+         q(0),
+         ],
+      q(Cakm) => [
+         q(0022),
+         q(0),
+         ],
+      q(Cans) => [
+         q(0023),
+         q(0),
+         ],
+      q(Cari) => [
+         q(0024),
+         q(0),
+         ],
+      q(Cham) => [
+         q(0025),
+         q(0),
+         ],
+      q(Cher) => [
+         q(0026),
+         q(0),
+         ],
+      q(Cirt) => [
+         q(0027),
+         q(0),
+         ],
+      q(Copt) => [
+         q(0028),
+         q(0),
+         ],
+      q(Cprt) => [
+         q(0029),
+         q(0),
+         ],
+      q(Cyrl) => [
+         q(0030),
+         q(0),
+         ],
+      q(Cyrs) => [
+         q(0031),
+         q(0),
+         ],
+      q(Deva) => [
+         q(0032),
+         q(1),
+         ],
+      q(Dsrt) => [
+         q(0033),
+         q(1),
+         ],
+      q(Dupl) => [
+         q(0034),
+         q(1),
+         ],
+      q(Egyd) => [
+         q(0035),
+         q(0),
+         ],
+      q(Egyh) => [
+         q(0036),
+         q(0),
+         ],
+      q(Egyp) => [
+         q(0037),
+         q(0),
+         ],
+      q(Elba) => [
+         q(0038),
+         q(0),
+         ],
+      q(Ethi) => [
+         q(0039),
+         q(1),
+         ],
+      q(Geok) => [
+         q(0040),
+         q(0),
+         ],
+      q(Geor) => [
+         q(0041),
+         q(0),
+         ],
+      q(Glag) => [
+         q(0042),
+         q(0),
+         ],
+      q(Goth) => [
+         q(0043),
+         q(0),
+         ],
+      q(Gran) => [
+         q(0044),
+         q(0),
+         ],
+      q(Grek) => [
+         q(0045),
+         q(0),
+         ],
+      q(Gujr) => [
+         q(0046),
+         q(0),
+         ],
+      q(Guru) => [
+         q(0047),
+         q(0),
+         ],
+      q(Hang) => [
+         q(0048),
+         q(1),
+         ],
+      q(Hani) => [
+         q(0049),
+         q(1),
+         ],
+      q(Hano) => [
+         q(0050),
+         q(1),
+         ],
+      q(Hans) => [
+         q(0051),
+         q(0),
+         ],
+      q(Hant) => [
+         q(0052),
+         q(0),
+         ],
+      q(Hatr) => [
+         q(0053),
+         q(0),
+         ],
+      q(Hebr) => [
+         q(0054),
+         q(0),
+         ],
+      q(Hira) => [
+         q(0055),
+         q(0),
+         ],
+      q(Hluw) => [
+         q(0056),
+         q(1),
+         ],
+      q(Hmng) => [
+         q(0057),
+         q(0),
+         ],
+      q(Hrkt) => [
+         q(0058),
+         q(0),
+         ],
+      q(Hung) => [
+         q(0059),
+         q(1),
+         ],
+      q(Inds) => [
+         q(0060),
+         q(1),
+         ],
+      q(Ital) => [
+         q(0061),
+         q(0),
+         ],
+      q(Java) => [
+         q(0062),
+         q(0),
+         ],
+      q(Jpan) => [
+         q(0063),
+         q(0),
+         ],
+      q(Jurc) => [
+         q(0064),
+         q(0),
+         ],
+      q(Kali) => [
+         q(0065),
+         q(0),
+         ],
+      q(Kana) => [
+         q(0066),
+         q(0),
+         ],
+      q(Khar) => [
+         q(0067),
+         q(0),
+         ],
+      q(Khmr) => [
+         q(0068),
+         q(0),
+         ],
+      q(Khoj) => [
+         q(0069),
+         q(0),
+         ],
+      q(Kitl) => [
+         q(0070),
+         q(0),
+         ],
+      q(Kits) => [
+         q(0071),
+         q(0),
+         ],
+      q(Knda) => [
+         q(0072),
+         q(0),
+         ],
+      q(Kore) => [
+         q(0073),
+         q(0),
+         ],
+      q(Kpel) => [
+         q(0074),
+         q(0),
+         ],
+      q(Kthi) => [
+         q(0075),
+         q(0),
+         ],
+      q(Lana) => [
+         q(0076),
+         q(1),
+         ],
+      q(Laoo) => [
+         q(0077),
+         q(0),
+         ],
+      q(Latf) => [
+         q(0078),
+         q(0),
+         ],
+      q(Latg) => [
+         q(0079),
+         q(0),
+         ],
+      q(Latn) => [
+         q(0080),
+         q(0),
+         ],
+      q(Leke) => [
+         q(0081),
+         q(0),
+         ],
+      q(Lepc) => [
+         q(0082),
+         q(1),
+         ],
+      q(Limb) => [
+         q(0083),
+         q(0),
+         ],
+      q(Lina) => [
+         q(0084),
+         q(0),
+         ],
+      q(Linb) => [
+         q(0085),
+         q(0),
+         ],
+      q(Lisu) => [
+         q(0086),
+         q(1),
+         ],
+      q(Loma) => [
+         q(0087),
+         q(0),
+         ],
+      q(Lyci) => [
+         q(0088),
+         q(0),
+         ],
+      q(Lydi) => [
+         q(0089),
+         q(0),
+         ],
+      q(Mahj) => [
+         q(0090),
+         q(0),
+         ],
+      q(Mand) => [
+         q(0091),
+         q(1),
+         ],
+      q(Mani) => [
+         q(0092),
+         q(0),
+         ],
+      q(Marc) => [
+         q(0093),
+         q(0),
+         ],
+      q(Maya) => [
+         q(0094),
+         q(0),
+         ],
+      q(Mend) => [
+         q(0095),
+         q(0),
+         ],
+      q(Merc) => [
+         q(0096),
+         q(0),
+         ],
+      q(Mero) => [
+         q(0097),
+         q(0),
+         ],
+      q(Mlym) => [
+         q(0098),
+         q(0),
+         ],
+      q(Modi) => [
+         q(0099),
+         q(1),
+         ],
+      q(Mong) => [
+         q(0100),
+         q(0),
+         ],
+      q(Moon) => [
+         q(0101),
+         q(1),
+         ],
+      q(Mroo) => [
+         q(0102),
+         q(1),
+         ],
+      q(Mtei) => [
+         q(0103),
+         q(1),
+         ],
+      q(Mult) => [
+         q(0104),
+         q(0),
+         ],
+      q(Mymr) => [
+         q(0105),
+         q(1),
+         ],
+      q(Narb) => [
+         q(0106),
+         q(1),
+         ],
+      q(Nbat) => [
+         q(0107),
+         q(0),
+         ],
+      q(Nkgb) => [
+         q(0108),
+         q(1),
+         ],
+      q(Nkoo) => [
+         q(0109),
+         q(0),
+         ],
+      q(Nshu) => [
+         q(0110),
+         q(0),
+         ],
+      q(Ogam) => [
+         q(0111),
+         q(0),
+         ],
+      q(Olck) => [
+         q(0112),
+         q(1),
+         ],
+      q(Orkh) => [
+         q(0113),
+         q(1),
+         ],
+      q(Orya) => [
+         q(0114),
+         q(0),
+         ],
+      q(Osge) => [
+         q(0115),
+         q(0),
+         ],
+      q(Osma) => [
+         q(0116),
+         q(0),
+         ],
+      q(Palm) => [
+         q(0117),
+         q(0),
+         ],
+      q(Pauc) => [
+         q(0118),
+         q(0),
+         ],
+      q(Perm) => [
+         q(0119),
+         q(0),
+         ],
+      q(Phag) => [
+         q(0120),
+         q(0),
+         ],
+      q(Phli) => [
+         q(0121),
+         q(0),
+         ],
+      q(Phlp) => [
+         q(0122),
+         q(0),
+         ],
+      q(Phlv) => [
+         q(0123),
+         q(0),
+         ],
+      q(Phnx) => [
+         q(0124),
+         q(0),
+         ],
+      q(Plrd) => [
+         q(0125),
+         q(1),
+         ],
+      q(Prti) => [
+         q(0126),
+         q(0),
+         ],
+      q(Qaaa) => [
+         q(0127),
+         q(0),
+         ],
+      q(Qabx) => [
+         q(0128),
+         q(0),
+         ],
+      q(Rjng) => [
+         q(0129),
+         q(1),
+         ],
+      q(Roro) => [
+         q(0130),
+         q(0),
+         ],
+      q(Runr) => [
+         q(0131),
+         q(0),
+         ],
+      q(Samr) => [
+         q(0132),
+         q(0),
+         ],
+      q(Sara) => [
+         q(0133),
+         q(0),
+         ],
+      q(Sarb) => [
+         q(0134),
+         q(0),
+         ],
+      q(Saur) => [
+         q(0135),
+         q(0),
+         ],
+      q(Sgnw) => [
+         q(0136),
+         q(0),
+         ],
+      q(Shaw) => [
+         q(0137),
+         q(1),
+         ],
+      q(Shrd) => [
+         q(0138),
+         q(1),
+         ],
+      q(Sidd) => [
+         q(0139),
+         q(1),
+         ],
+      q(Sind) => [
+         q(0140),
+         q(1),
+         ],
+      q(Sinh) => [
+         q(0141),
+         q(0),
+         ],
+      q(Sora) => [
+         q(0142),
+         q(0),
+         ],
+      q(Sund) => [
+         q(0143),
+         q(0),
+         ],
+      q(Sylo) => [
+         q(0144),
+         q(0),
+         ],
+      q(Syrc) => [
+         q(0145),
+         q(0),
+         ],
+      q(Syre) => [
+         q(0146),
+         q(0),
+         ],
+      q(Syrj) => [
+         q(0147),
+         q(0),
+         ],
+      q(Syrn) => [
+         q(0148),
+         q(0),
+         ],
+      q(Tagb) => [
+         q(0149),
+         q(0),
+         ],
+      q(Takr) => [
+         q(0150),
+         q(1),
+         ],
+      q(Tale) => [
+         q(0151),
+         q(0),
+         ],
+      q(Talu) => [
+         q(0152),
+         q(0),
+         ],
+      q(Taml) => [
+         q(0153),
+         q(0),
+         ],
+      q(Tang) => [
+         q(0154),
+         q(0),
+         ],
+      q(Tavt) => [
+         q(0155),
+         q(0),
+         ],
+      q(Telu) => [
+         q(0156),
+         q(0),
+         ],
+      q(Teng) => [
+         q(0157),
+         q(0),
+         ],
+      q(Tfng) => [
+         q(0158),
+         q(1),
+         ],
+      q(Tglg) => [
+         q(0159),
+         q(1),
+         ],
+      q(Thaa) => [
+         q(0160),
+         q(0),
+         ],
+      q(Thai) => [
+         q(0161),
+         q(0),
+         ],
+      q(Tibt) => [
+         q(0162),
+         q(0),
+         ],
+      q(Tirh) => [
+         q(0163),
+         q(0),
+         ],
+      q(Ugar) => [
+         q(0164),
+         q(0),
+         ],
+      q(Vaii) => [
+         q(0165),
+         q(0),
+         ],
+      q(Visp) => [
+         q(0166),
+         q(0),
+         ],
+      q(Wara) => [
+         q(0167),
+         q(1),
+         ],
+      q(Wole) => [
+         q(0168),
+         q(0),
+         ],
+      q(Xpeo) => [
+         q(0169),
+         q(0),
+         ],
+      q(Xsux) => [
+         q(0170),
+         q(1),
+         ],
+      q(Yiii) => [
+         q(0171),
+         q(0),
+         ],
+      q(Zinh) => [
+         q(0172),
+         q(0),
+         ],
+      q(Zmth) => [
+         q(0173),
+         q(0),
+         ],
+      q(Zsym) => [
+         q(0174),
+         q(0),
+         ],
+      },
+   q(num) => {
+      q(020) => [
+         q(0170),
+         q(0),
+         ],
+      q(030) => [
+         q(0169),
+         q(0),
+         ],
+      q(040) => [
+         q(0164),
+         q(0),
+         ],
+      q(050) => [
+         q(0037),
+         q(0),
+         ],
+      q(060) => [
+         q(0036),
+         q(0),
+         ],
+      q(070) => [
+         q(0035),
+         q(0),
+         ],
+      q(080) => [
+         q(0056),
+         q(0),
+         ],
+      q(090) => [
+         q(0094),
+         q(0),
+         ],
+      q(095) => [
+         q(0136),
+         q(0),
+         ],
+      q(100) => [
+         q(0097),
+         q(0),
+         ],
+      q(101) => [
+         q(0096),
+         q(0),
+         ],
+      q(105) => [
+         q(0134),
+         q(0),
+         ],
+      q(106) => [
+         q(0106),
+         q(0),
+         ],
+      q(115) => [
+         q(0124),
+         q(0),
+         ],
+      q(116) => [
+         q(0089),
+         q(0),
+         ],
+      q(120) => [
+         q(0158),
+         q(0),
+         ],
+      q(123) => [
+         q(0132),
+         q(0),
+         ],
+      q(124) => [
+         q(0007),
+         q(0),
+         ],
+      q(125) => [
+         q(0054),
+         q(0),
+         ],
+      q(126) => [
+         q(0117),
+         q(0),
+         ],
+      q(127) => [
+         q(0053),
+         q(0),
+         ],
+      q(130) => [
+         q(0126),
+         q(0),
+         ],
+      q(131) => [
+         q(0121),
+         q(0),
+         ],
+      q(132) => [
+         q(0122),
+         q(0),
+         ],
+      q(133) => [
+         q(0123),
+         q(0),
+         ],
+      q(134) => [
+         q(0009),
+         q(0),
+         ],
+      q(135) => [
+         q(0145),
+         q(0),
+         ],
+      q(136) => [
+         q(0148),
+         q(0),
+         ],
+      q(137) => [
+         q(0147),
+         q(0),
+         ],
+      q(138) => [
+         q(0146),
+         q(0),
+         ],
+      q(139) => [
+         q(0092),
+         q(0),
+         ],
+      q(140) => [
+         q(0091),
+         q(0),
+         ],
+      q(145) => [
+         q(0100),
+         q(0),
+         ],
+      q(159) => [
+         q(0107),
+         q(0),
+         ],
+      q(160) => [
+         q(0005),
+         q(0),
+         ],
+      q(161) => [
+         q(0006),
+         q(0),
+         ],
+      q(165) => [
+         q(0109),
+         q(0),
+         ],
+      q(166) => [
+         q(0001),
+         q(0),
+         ],
+      q(170) => [
+         q(0160),
+         q(0),
+         ],
+      q(175) => [
+         q(0113),
+         q(0),
+         ],
+      q(176) => [
+         q(0059),
+         q(0),
+         ],
+      q(199) => [
+         q(0102),
+         q(0),
+         ],
+      q(200) => [
+         q(0045),
+         q(0),
+         ],
+      q(201) => [
+         q(0024),
+         q(0),
+         ],
+      q(202) => [
+         q(0088),
+         q(0),
+         ],
+      q(204) => [
+         q(0028),
+         q(0),
+         ],
+      q(206) => [
+         q(0043),
+         q(0),
+         ],
+      q(210) => [
+         q(0061),
+         q(0),
+         ],
+      q(211) => [
+         q(0131),
+         q(0),
+         ],
+      q(212) => [
+         q(0111),
+         q(0),
+         ],
+      q(215) => [
+         q(0080),
+         q(0),
+         ],
+      q(216) => [
+         q(0079),
+         q(0),
+         ],
+      q(217) => [
+         q(0078),
+         q(0),
+         ],
+      q(218) => [
+         q(0101),
+         q(0),
+         ],
+      q(219) => [
+         q(0115),
+         q(0),
+         ],
+      q(220) => [
+         q(0030),
+         q(0),
+         ],
+      q(221) => [
+         q(0031),
+         q(0),
+         ],
+      q(225) => [
+         q(0042),
+         q(0),
+         ],
+      q(226) => [
+         q(0038),
+         q(0),
+         ],
+      q(227) => [
+         q(0119),
+         q(0),
+         ],
+      q(230) => [
+         q(0008),
+         q(0),
+         ],
+      q(239) => [
+         q(0003),
+         q(0),
+         ],
+      q(240) => [
+         q(0041),
+         q(0),
+         ],
+      q(241) => [
+         q(0040),
+         q(0),
+         ],
+      q(250) => [
+         q(0033),
+         q(0),
+         ],
+      q(259) => [
+         q(0012),
+         q(0),
+         ],
+      q(260) => [
+         q(0116),
+         q(0),
+         ],
+      q(261) => [
+         q(0112),
+         q(0),
+         ],
+      q(262) => [
+         q(0167),
+         q(0),
+         ],
+      q(263) => [
+         q(0118),
+         q(0),
+         ],
+      q(280) => [
+         q(0166),
+         q(0),
+         ],
+      q(281) => [
+         q(0137),
+         q(0),
+         ],
+      q(282) => [
+         q(0125),
+         q(0),
+         ],
+      q(285) => [
+         q(0017),
+         q(0),
+         ],
+      q(286) => [
+         q(0048),
+         q(0),
+         ],
+      q(287) => [
+         q(0073),
+         q(0),
+         ],
+      q(288) => [
+         q(0071),
+         q(0),
+         ],
+      q(290) => [
+         q(0157),
+         q(0),
+         ],
+      q(291) => [
+         q(0027),
+         q(0),
+         ],
+      q(292) => [
+         q(0133),
+         q(0),
+         ],
+      q(300) => [
+         q(0018),
+         q(0),
+         ],
+      q(302) => [
+         q(0139),
+         q(0),
+         ],
+      q(305) => [
+         q(0067),
+         q(0),
+         ],
+      q(310) => [
+         q(0047),
+         q(0),
+         ],
+      q(314) => [
+         q(0090),
+         q(0),
+         ],
+      q(315) => [
+         q(0032),
+         q(0),
+         ],
+      q(316) => [
+         q(0144),
+         q(0),
+         ],
+      q(317) => [
+         q(0075),
+         q(0),
+         ],
+      q(318) => [
+         q(0140),
+         q(0),
+         ],
+      q(319) => [
+         q(0138),
+         q(0),
+         ],
+      q(320) => [
+         q(0046),
+         q(0),
+         ],
+      q(321) => [
+         q(0150),
+         q(0),
+         ],
+      q(322) => [
+         q(0069),
+         q(0),
+         ],
+      q(323) => [
+         q(0104),
+         q(0),
+         ],
+      q(324) => [
+         q(0099),
+         q(0),
+         ],
+      q(325) => [
+         q(0014),
+         q(0),
+         ],
+      q(326) => [
+         q(0163),
+         q(0),
+         ],
+      q(327) => [
+         q(0114),
+         q(0),
+         ],
+      q(330) => [
+         q(0162),
+         q(0),
+         ],
+      q(331) => [
+         q(0120),
+         q(0),
+         ],
+      q(332) => [
+         q(0093),
+         q(0),
+         ],
+      q(334) => [
+         q(0015),
+         q(0),
+         ],
+      q(335) => [
+         q(0082),
+         q(0),
+         ],
+      q(336) => [
+         q(0083),
+         q(0),
+         ],
+      q(337) => [
+         q(0103),
+         q(0),
+         ],
+      q(338) => [
+         q(0004),
+         q(0),
+         ],
+      q(340) => [
+         q(0156),
+         q(0),
+         ],
+      q(343) => [
+         q(0044),
+         q(0),
+         ],
+      q(344) => [
+         q(0135),
+         q(0),
+         ],
+      q(345) => [
+         q(0072),
+         q(0),
+         ],
+      q(346) => [
+         q(0153),
+         q(0),
+         ],
+      q(347) => [
+         q(0098),
+         q(0),
+         ],
+      q(348) => [
+         q(0141),
+         q(0),
+         ],
+      q(349) => [
+         q(0022),
+         q(0),
+         ],
+      q(350) => [
+         q(0105),
+         q(0),
+         ],
+      q(351) => [
+         q(0076),
+         q(0),
+         ],
+      q(352) => [
+         q(0161),
+         q(0),
+         ],
+      q(353) => [
+         q(0151),
+         q(0),
+         ],
+      q(354) => [
+         q(0152),
+         q(0),
+         ],
+      q(355) => [
+         q(0068),
+         q(0),
+         ],
+      q(356) => [
+         q(0077),
+         q(0),
+         ],
+      q(357) => [
+         q(0065),
+         q(0),
+         ],
+      q(358) => [
+         q(0025),
+         q(0),
+         ],
+      q(359) => [
+         q(0155),
+         q(0),
+         ],
+      q(360) => [
+         q(0010),
+         q(0),
+         ],
+      q(361) => [
+         q(0062),
+         q(0),
+         ],
+      q(362) => [
+         q(0143),
+         q(0),
+         ],
+      q(363) => [
+         q(0129),
+         q(0),
+         ],
+      q(364) => [
+         q(0081),
+         q(0),
+         ],
+      q(365) => [
+         q(0013),
+         q(0),
+         ],
+      q(367) => [
+         q(0020),
+         q(0),
+         ],
+      q(370) => [
+         q(0159),
+         q(0),
+         ],
+      q(371) => [
+         q(0050),
+         q(0),
+         ],
+      q(372) => [
+         q(0021),
+         q(0),
+         ],
+      q(373) => [
+         q(0149),
+         q(0),
+         ],
+      q(398) => [
+         q(0142),
+         q(0),
+         ],
+      q(399) => [
+         q(0086),
+         q(0),
+         ],
+      q(400) => [
+         q(0084),
+         q(0),
+         ],
+      q(401) => [
+         q(0085),
+         q(0),
+         ],
+      q(403) => [
+         q(0029),
+         q(0),
+         ],
+      q(410) => [
+         q(0055),
+         q(0),
+         ],
+      q(411) => [
+         q(0066),
+         q(0),
+         ],
+      q(412) => [
+         q(0058),
+         q(0),
+         ],
+      q(413) => [
+         q(0063),
+         q(0),
+         ],
+      q(420) => [
+         q(0108),
+         q(0),
+         ],
+      q(430) => [
+         q(0039),
+         q(0),
+         ],
+      q(435) => [
+         q(0011),
+         q(0),
+         ],
+      q(436) => [
+         q(0074),
+         q(0),
+         ],
+      q(437) => [
+         q(0087),
+         q(0),
+         ],
+      q(438) => [
+         q(0095),
+         q(0),
+         ],
+      q(439) => [
+         q(0002),
+         q(0),
+         ],
+      q(440) => [
+         q(0023),
+         q(0),
+         ],
+      q(445) => [
+         q(0026),
+         q(0),
+         ],
+      q(450) => [
+         q(0057),
+         q(0),
+         ],
+      q(460) => [
+         q(0171),
+         q(0),
+         ],
+      q(470) => [
+         q(0165),
+         q(0),
+         ],
+      q(480) => [
+         q(0168),
+         q(0),
+         ],
+      q(499) => [
+         q(0110),
+         q(0),
+         ],
+      q(500) => [
+         q(0049),
+         q(0),
+         ],
+      q(501) => [
+         q(0051),
+         q(0),
+         ],
+      q(502) => [
+         q(0052),
+         q(0),
+         ],
+      q(505) => [
+         q(0070),
+         q(0),
+         ],
+      q(510) => [
+         q(0064),
+         q(0),
+         ],
+      q(520) => [
+         q(0154),
+         q(0),
+         ],
+      q(550) => [
+         q(0016),
+         q(0),
+         ],
+      q(570) => [
+         q(0019),
+         q(0),
+         ],
+      q(610) => [
+         q(0060),
+         q(0),
+         ],
+      q(620) => [
+         q(0130),
+         q(0),
+         ],
+      q(755) => [
+         q(0034),
+         q(0),
+         ],
+      q(900) => [
+         q(0127),
+         q(0),
+         ],
+      q(949) => [
+         q(0128),
+         q(0),
+         ],
+      q(994) => [
+         q(0172),
+         q(0),
+         ],
+      q(995) => [
+         q(0173),
+         q(0),
+         ],
+      q(996) => [
+         q(0174),
+         q(0),
+         ],
+      },
+};
+
+$Locale::Codes::Data{'script'}{'id2code'} = {
+   q(alpha) => {
+      q(0001) => q(Adlm),
+      q(0002) => q(Afak),
+      q(0003) => q(Aghb),
+      q(0004) => q(Ahom),
+      q(0005) => q(Arab),
+      q(0006) => q(Aran),
+      q(0007) => q(Armi),
+      q(0008) => q(Armn),
+      q(0009) => q(Avst),
+      q(0010) => q(Bali),
+      q(0011) => q(Bamu),
+      q(0012) => q(Bass),
+      q(0013) => q(Batk),
+      q(0014) => q(Beng),
+      q(0015) => q(Bhks),
+      q(0016) => q(Blis),
+      q(0017) => q(Bopo),
+      q(0018) => q(Brah),
+      q(0019) => q(Brai),
+      q(0020) => q(Bugi),
+      q(0021) => q(Buhd),
+      q(0022) => q(Cakm),
+      q(0023) => q(Cans),
+      q(0024) => q(Cari),
+      q(0025) => q(Cham),
+      q(0026) => q(Cher),
+      q(0027) => q(Cirt),
+      q(0028) => q(Copt),
+      q(0029) => q(Cprt),
+      q(0030) => q(Cyrl),
+      q(0031) => q(Cyrs),
+      q(0032) => q(Deva),
+      q(0033) => q(Dsrt),
+      q(0034) => q(Dupl),
+      q(0035) => q(Egyd),
+      q(0036) => q(Egyh),
+      q(0037) => q(Egyp),
+      q(0038) => q(Elba),
+      q(0039) => q(Ethi),
+      q(0040) => q(Geok),
+      q(0041) => q(Geor),
+      q(0042) => q(Glag),
+      q(0043) => q(Goth),
+      q(0044) => q(Gran),
+      q(0045) => q(Grek),
+      q(0046) => q(Gujr),
+      q(0047) => q(Guru),
+      q(0048) => q(Hang),
+      q(0049) => q(Hani),
+      q(0050) => q(Hano),
+      q(0051) => q(Hans),
+      q(0052) => q(Hant),
+      q(0053) => q(Hatr),
+      q(0054) => q(Hebr),
+      q(0055) => q(Hira),
+      q(0056) => q(Hluw),
+      q(0057) => q(Hmng),
+      q(0058) => q(Hrkt),
+      q(0059) => q(Hung),
+      q(0060) => q(Inds),
+      q(0061) => q(Ital),
+      q(0062) => q(Java),
+      q(0063) => q(Jpan),
+      q(0064) => q(Jurc),
+      q(0065) => q(Kali),
+      q(0066) => q(Kana),
+      q(0067) => q(Khar),
+      q(0068) => q(Khmr),
+      q(0069) => q(Khoj),
+      q(0070) => q(Kitl),
+      q(0071) => q(Kits),
+      q(0072) => q(Knda),
+      q(0073) => q(Kore),
+      q(0074) => q(Kpel),
+      q(0075) => q(Kthi),
+      q(0076) => q(Lana),
+      q(0077) => q(Laoo),
+      q(0078) => q(Latf),
+      q(0079) => q(Latg),
+      q(0080) => q(Latn),
+      q(0081) => q(Leke),
+      q(0082) => q(Lepc),
+      q(0083) => q(Limb),
+      q(0084) => q(Lina),
+      q(0085) => q(Linb),
+      q(0086) => q(Lisu),
+      q(0087) => q(Loma),
+      q(0088) => q(Lyci),
+      q(0089) => q(Lydi),
+      q(0090) => q(Mahj),
+      q(0091) => q(Mand),
+      q(0092) => q(Mani),
+      q(0093) => q(Marc),
+      q(0094) => q(Maya),
+      q(0095) => q(Mend),
+      q(0096) => q(Merc),
+      q(0097) => q(Mero),
+      q(0098) => q(Mlym),
+      q(0099) => q(Modi),
+      q(0100) => q(Mong),
+      q(0101) => q(Moon),
+      q(0102) => q(Mroo),
+      q(0103) => q(Mtei),
+      q(0104) => q(Mult),
+      q(0105) => q(Mymr),
+      q(0106) => q(Narb),
+      q(0107) => q(Nbat),
+      q(0108) => q(Nkgb),
+      q(0109) => q(Nkoo),
+      q(0110) => q(Nshu),
+      q(0111) => q(Ogam),
+      q(0112) => q(Olck),
+      q(0113) => q(Orkh),
+      q(0114) => q(Orya),
+      q(0115) => q(Osge),
+      q(0116) => q(Osma),
+      q(0117) => q(Palm),
+      q(0118) => q(Pauc),
+      q(0119) => q(Perm),
+      q(0120) => q(Phag),
+      q(0121) => q(Phli),
+      q(0122) => q(Phlp),
+      q(0123) => q(Phlv),
+      q(0124) => q(Phnx),
+      q(0125) => q(Plrd),
+      q(0126) => q(Prti),
+      q(0127) => q(Qaaa),
+      q(0128) => q(Qabx),
+      q(0129) => q(Rjng),
+      q(0130) => q(Roro),
+      q(0131) => q(Runr),
+      q(0132) => q(Samr),
+      q(0133) => q(Sara),
+      q(0134) => q(Sarb),
+      q(0135) => q(Saur),
+      q(0136) => q(Sgnw),
+      q(0137) => q(Shaw),
+      q(0138) => q(Shrd),
+      q(0139) => q(Sidd),
+      q(0140) => q(Sind),
+      q(0141) => q(Sinh),
+      q(0142) => q(Sora),
+      q(0143) => q(Sund),
+      q(0144) => q(Sylo),
+      q(0145) => q(Syrc),
+      q(0146) => q(Syre),
+      q(0147) => q(Syrj),
+      q(0148) => q(Syrn),
+      q(0149) => q(Tagb),
+      q(0150) => q(Takr),
+      q(0151) => q(Tale),
+      q(0152) => q(Talu),
+      q(0153) => q(Taml),
+      q(0154) => q(Tang),
+      q(0155) => q(Tavt),
+      q(0156) => q(Telu),
+      q(0157) => q(Teng),
+      q(0158) => q(Tfng),
+      q(0159) => q(Tglg),
+      q(0160) => q(Thaa),
+      q(0161) => q(Thai),
+      q(0162) => q(Tibt),
+      q(0163) => q(Tirh),
+      q(0164) => q(Ugar),
+      q(0165) => q(Vaii),
+      q(0166) => q(Visp),
+      q(0167) => q(Wara),
+      q(0168) => q(Wole),
+      q(0169) => q(Xpeo),
+      q(0170) => q(Xsux),
+      q(0171) => q(Yiii),
+      q(0172) => q(Zinh),
+      q(0173) => q(Zmth),
+      q(0174) => q(Zsym),
+      },
+   q(num) => {
+      q(0001) => q(166),
+      q(0002) => q(439),
+      q(0003) => q(239),
+      q(0004) => q(338),
+      q(0005) => q(160),
+      q(0006) => q(161),
+      q(0007) => q(124),
+      q(0008) => q(230),
+      q(0009) => q(134),
+      q(0010) => q(360),
+      q(0011) => q(435),
+      q(0012) => q(259),
+      q(0013) => q(365),
+      q(0014) => q(325),
+      q(0015) => q(334),
+      q(0016) => q(550),
+      q(0017) => q(285),
+      q(0018) => q(300),
+      q(0019) => q(570),
+      q(0020) => q(367),
+      q(0021) => q(372),
+      q(0022) => q(349),
+      q(0023) => q(440),
+      q(0024) => q(201),
+      q(0025) => q(358),
+      q(0026) => q(445),
+      q(0027) => q(291),
+      q(0028) => q(204),
+      q(0029) => q(403),
+      q(0030) => q(220),
+      q(0031) => q(221),
+      q(0032) => q(315),
+      q(0033) => q(250),
+      q(0034) => q(755),
+      q(0035) => q(070),
+      q(0036) => q(060),
+      q(0037) => q(050),
+      q(0038) => q(226),
+      q(0039) => q(430),
+      q(0040) => q(241),
+      q(0041) => q(240),
+      q(0042) => q(225),
+      q(0043) => q(206),
+      q(0044) => q(343),
+      q(0045) => q(200),
+      q(0046) => q(320),
+      q(0047) => q(310),
+      q(0048) => q(286),
+      q(0049) => q(500),
+      q(0050) => q(371),
+      q(0051) => q(501),
+      q(0052) => q(502),
+      q(0053) => q(127),
+      q(0054) => q(125),
+      q(0055) => q(410),
+      q(0056) => q(080),
+      q(0057) => q(450),
+      q(0058) => q(412),
+      q(0059) => q(176),
+      q(0060) => q(610),
+      q(0061) => q(210),
+      q(0062) => q(361),
+      q(0063) => q(413),
+      q(0064) => q(510),
+      q(0065) => q(357),
+      q(0066) => q(411),
+      q(0067) => q(305),
+      q(0068) => q(355),
+      q(0069) => q(322),
+      q(0070) => q(505),
+      q(0071) => q(288),
+      q(0072) => q(345),
+      q(0073) => q(287),
+      q(0074) => q(436),
+      q(0075) => q(317),
+      q(0076) => q(351),
+      q(0077) => q(356),
+      q(0078) => q(217),
+      q(0079) => q(216),
+      q(0080) => q(215),
+      q(0081) => q(364),
+      q(0082) => q(335),
+      q(0083) => q(336),
+      q(0084) => q(400),
+      q(0085) => q(401),
+      q(0086) => q(399),
+      q(0087) => q(437),
+      q(0088) => q(202),
+      q(0089) => q(116),
+      q(0090) => q(314),
+      q(0091) => q(140),
+      q(0092) => q(139),
+      q(0093) => q(332),
+      q(0094) => q(090),
+      q(0095) => q(438),
+      q(0096) => q(101),
+      q(0097) => q(100),
+      q(0098) => q(347),
+      q(0099) => q(324),
+      q(0100) => q(145),
+      q(0101) => q(218),
+      q(0102) => q(199),
+      q(0103) => q(337),
+      q(0104) => q(323),
+      q(0105) => q(350),
+      q(0106) => q(106),
+      q(0107) => q(159),
+      q(0108) => q(420),
+      q(0109) => q(165),
+      q(0110) => q(499),
+      q(0111) => q(212),
+      q(0112) => q(261),
+      q(0113) => q(175),
+      q(0114) => q(327),
+      q(0115) => q(219),
+      q(0116) => q(260),
+      q(0117) => q(126),
+      q(0118) => q(263),
+      q(0119) => q(227),
+      q(0120) => q(331),
+      q(0121) => q(131),
+      q(0122) => q(132),
+      q(0123) => q(133),
+      q(0124) => q(115),
+      q(0125) => q(282),
+      q(0126) => q(130),
+      q(0127) => q(900),
+      q(0128) => q(949),
+      q(0129) => q(363),
+      q(0130) => q(620),
+      q(0131) => q(211),
+      q(0132) => q(123),
+      q(0133) => q(292),
+      q(0134) => q(105),
+      q(0135) => q(344),
+      q(0136) => q(095),
+      q(0137) => q(281),
+      q(0138) => q(319),
+      q(0139) => q(302),
+      q(0140) => q(318),
+      q(0141) => q(348),
+      q(0142) => q(398),
+      q(0143) => q(362),
+      q(0144) => q(316),
+      q(0145) => q(135),
+      q(0146) => q(138),
+      q(0147) => q(137),
+      q(0148) => q(136),
+      q(0149) => q(373),
+      q(0150) => q(321),
+      q(0151) => q(353),
+      q(0152) => q(354),
+      q(0153) => q(346),
+      q(0154) => q(520),
+      q(0155) => q(359),
+      q(0156) => q(340),
+      q(0157) => q(290),
+      q(0158) => q(120),
+      q(0159) => q(370),
+      q(0160) => q(170),
+      q(0161) => q(352),
+      q(0162) => q(330),
+      q(0163) => q(326),
+      q(0164) => q(040),
+      q(0165) => q(470),
+      q(0166) => q(280),
+      q(0167) => q(262),
+      q(0168) => q(480),
+      q(0169) => q(030),
+      q(0170) => q(020),
+      q(0171) => q(460),
+      q(0172) => q(994),
+      q(0173) => q(995),
+      q(0174) => q(996),
+      },
+};
+
+1;
diff --git a/lib/5.24.1/Locale/Codes/Script_Retired.pm b/lib/5.24.1/Locale/Codes/Script_Retired.pm
new file mode 100644
index 00000000..89a0f471
--- /dev/null
+++ b/lib/5.24.1/Locale/Codes/Script_Retired.pm
@@ -0,0 +1,71 @@
+package #
+Locale::Codes::Script_Retired;
+
+# This file was automatically generated.  Any changes to this file will
+# be lost the next time 'deprecate_codes' is run.
+#    Generated on: Tue Dec  1 14:45:28 EST 2015
+
+use strict;
+require 5.006;
+use warnings;
+use utf8;
+
+our($VERSION);
+$VERSION='3.37';
+
+$Locale::Codes::Retired{'script'}{'alpha'}{'code'} = {
+};
+
+$Locale::Codes::Retired{'script'}{'num'}{'code'} = {
+};
+
+$Locale::Codes::Retired{'script'}{'alpha'}{'name'} = {
+   q( multani) => [ q(Mult), q( Multani) ],
+   q((alias for hiragana + katakana)) => [ q(Hrkt), q((alias for Hiragana + Katakana)) ],
+   q(ahom, tai ahom) => [ q(Ahom), q(Ahom, Tai Ahom) ],
+   q(cuneiform, sumero-akkadian) => [ q(Xsux), q(Cuneiform, Sumero-Akkadian) ],
+   q(deseret (mormon)) => [ q(Dsrt), q(Deseret (Mormon)) ],
+   q(devanagari (nagari)) => [ q(Deva), q(Devanagari (Nagari)) ],
+   q(duployan shorthand, duployan stenography) => [ q(Dupl), q(Duployan shorthand, Duployan stenography) ],
+   q(ethiopic (geez)) => [ q(Ethi), q(Ethiopic (Geez)) ],
+   q(han (hanzi, kanji, hanja)) => [ q(Hani), q(Han (Hanzi, Kanji, Hanja)) ],
+   q(hangul (hangul, hangeul)) => [ q(Hang), q(Hangul (Hangul, Hangeul)) ],
+   q(hanunoo (hanunoo)) => [ q(Hano), q(Hanunoo (Hanunoo)) ],
+   q(indus (harappan)) => [ q(Inds), q(Indus (Harappan)) ],
+   q(khudawadi, sindhi) => [ q(Sind), q(Khudawadi, Sindhi) ],
+   q(lepcha (rong)) => [ q(Lepc), q(Lepcha (Rong)) ],
+   q(lisu (fraser)) => [ q(Lisu), q(Lisu (Fraser)) ],
+   q(mandaic, mandaean) => [ q(Mand), q(Mandaic, Mandaean) ],
+   q(meitei mayek (meithei, meetei)) => [ q(Mtei), q(Meitei Mayek (Meithei, Meetei)) ],
+   q(mende) => [ q(Mend), q(Mende) ],
+   q(miao (pollard)) => [ q(Plrd), q(Miao (Pollard)) ],
+   q(modi, modi) => [ q(Mult), q(Modi, Modi) ],
+   q(moon (moon code, moon script, moon type)) => [ q(Moon), q(Moon (Moon code, Moon script, Moon type)) ],
+   q(mro, mru) => [ q(Mroo), q(Mro, Mru) ],
+   q(myanmar (burmese)) => [ q(Mymr), q(Myanmar (Burmese)) ],
+   q(nakhi geba ('na-'khi ggo-baw, naxi geba)) => [ q(Nkgb), q(Nakhi Geba ('Na-'Khi Ggo-baw, Naxi Geba)) ],
+   q(ol chiki (ol cemet, ol, santali)) => [ q(Olck), q(Ol Chiki (Ol Cemet, Ol, Santali)) ],
+   q(old north arabian (ancient north arabian)) => [ q(Narb), q(Old North Arabian (Ancient North Arabian)) ],
+   q(old turkic, orkhon runic) => [ q(Orkh), q(Old Turkic, Orkhon Runic) ],
+   q(rejang (redjang, kaganga)) => [ q(Rjng), q(Rejang (Redjang, Kaganga)) ],
+   q(sharada, sarada) => [ q(Shrd), q(Sharada, Sarada) ],
+   q(shavian (shaw)) => [ q(Shaw), q(Shavian (Shaw)) ],
+   q(siddham, siddham, siddhamatrka) => [ q(Sidd), q(Siddham, Siddham, Siddhamatrka) ],
+   q(sindhi) => [ q(Sind), q(Sindhi) ],
+   q(tagalog (baybayin, alibata)) => [ q(Tglg), q(Tagalog (Baybayin, Alibata)) ],
+   q(tai tham (lanna)) => [ q(Lana), q(Tai Tham (Lanna)) ],
+   q(takri, takri, tankri) => [ q(Takr), q(Takri, Takri, Tankri) ],
+   q(tifinagh (berber)) => [ q(Tfng), q(Tifinagh (Berber)) ],
+   q(tiruta) => [ q(Tirh), q(Tiruta) ],
+   q(warang citi (varang kshiti)) => [ q(Wara), q(Warang Citi (Varang Kshiti)) ],
+};
+
+$Locale::Codes::Retired{'script'}{'num'}{'name'} = {
+   q( multani) => [ q(323), q( Multani) ],
+   q(mende) => [ q(438), q(Mende) ],
+   q(old hungarian) => [ q(176), q(Old Hungarian) ],
+   q(tiruta) => [ q(326), q(Tiruta) ],
+};
+
+
+1;
diff --git a/lib/5.24.1/Locale/Country.pm b/lib/5.24.1/Locale/Country.pm
new file mode 100644
index 00000000..4c4d7c19
--- /dev/null
+++ b/lib/5.24.1/Locale/Country.pm
@@ -0,0 +1,48 @@
+package Locale::Country;
+# Copyright (C) 2001      Canon Research Centre Europe (CRE).
+# Copyright (C) 2002-2009 Neil Bowers
+# Copyright (c) 2010-2015 Sullivan Beck
+# This program is free software; you can redistribute it and/or modify it
+# under the same terms as Perl itself.
+
+use strict;
+use warnings;
+use Exporter;
+
+our $VERSION;
+$VERSION='3.37';
+
+our (@ISA,@EXPORT);
+
+my $backend     = 'Locale::Codes::Country';
+my $backend_exp = $backend . "::EXPORT";
+
+eval "require $backend; $backend->import(); return 1;";
+
+{
+   no strict 'refs';
+   @EXPORT = @{ $backend_exp };
+}
+
+unshift (@ISA, $backend);
+
+sub rename_country            { Locale::Codes::Country::rename_country(@_) }
+sub add_country               { Locale::Codes::Country::add_country(@_) }
+sub delete_country            { Locale::Codes::Country::delete_country(@_) }
+sub add_country_alias         { Locale::Codes::Country::add_country_alias(@_) }
+sub delete_country_alias      { Locale::Codes::Country::delete_country_alias(@_) }
+sub rename_country_code       { Locale::Codes::Country::rename_country_code(@_) }
+sub add_country_code_alias    { Locale::Codes::Country::add_country_code_alias(@_) }
+sub delete_country_code_alias { Locale::Codes::Country::delete_country_code_alias(@_) }
+
+1;
+# Local Variables:
+# mode: cperl
+# indent-tabs-mode: nil
+# cperl-indent-level: 3
+# cperl-continued-statement-offset: 2
+# cperl-continued-brace-offset: 0
+# cperl-brace-offset: 0
+# cperl-brace-imaginary-offset: 0
+# cperl-label-offset: -2
+# End:
diff --git a/lib/5.24.1/Locale/Country.pod b/lib/5.24.1/Locale/Country.pod
new file mode 100644
index 00000000..ae36beb6
--- /dev/null
+++ b/lib/5.24.1/Locale/Country.pod
@@ -0,0 +1,182 @@
+=pod
+
+=head1 NAME
+
+Locale::Country - standard codes for country identification
+
+=head1 SYNOPSIS
+
+   use Locale::Country;
+
+   $country = code2country('jp' [,CODESET]);        # $country gets 'Japan'
+   $code    = country2code('Norway' [,CODESET]);    # $code gets 'no'
+
+   @codes   = all_country_codes( [CODESET]);
+   @names   = all_country_names();
+
+   # semi-private routines
+   Locale::Country::rename_country('gb' => 'Great Britain');
+
+=head1 DESCRIPTION
+
+This module provides access to several code sets
+that can be used for identifying countries, such as those defined in
+ISO 3166-1.
+
+Most of the routines take an optional additional argument which
+specifies the code set to use. If not specified, the default ISO
+3166-1 two-letter codes will be used.
+
+=head1 SUPPORTED CODE SETS
+
+There are several different code sets you can use for identifying
+countries. A code set may be specified using either a name, or a
+constant that is automatically exported by this module.
+
+For example, the two are equivalent:
+
+   $country = code2country('jp','alpha-2');
+   $country = code2country('jp',LOCALE_CODE_ALPHA_2);
+
+The codesets currently supported are:
+
+=over 4
+
+=item B<alpha-2, LOCALE_CODE_ALPHA_2>
+
+This is the set of two-letter (lowercase) codes from ISO 3166-1, such
+as 'tv' for Tuvalu.
+
+This is the default code set.
+
+=item B<alpha-3, LOCALE_CODE_ALPHA_3>
+
+This is the set of three-letter (lowercase) codes from ISO 3166-1,
+such as 'brb' for Barbados. These codes are actually defined and
+maintained by the U.N. Statistics division.
+
+=item B<numeric, LOCALE_CODE_NUMERIC>
+
+This is the set of three-digit numeric codes from ISO 3166-1, such as
+064 for Bhutan. These codes are actually defined and maintained by the
+U.N. Statistics division.
+
+If a 2-digit code is entered, it is converted to 3 digits by prepending
+a 0.
+
+=item B<dom, LOCALE_CODE_DOM>
+
+The IANA is responsible for delegating management of the top level country
+domains.  The country domains are the two-letter (lowercase) codes from ISO 3166
+with a few other additions.
+
+=back
+
+NOTE: As of version 3.27, the FIPS code set is no longer supported.  See the
+Locale::Codes::Changes document for details.
+
+=head1 ROUTINES
+
+=over 4
+
+=item B<code2country(CODE [,CODESET] [,'retired'])>
+
+=item B<country2code(NAME [,CODESET] [,'retired'])>
+
+=item B<country_code2code(CODE ,CODESET ,CODESET2)>
+
+=item B<all_country_codes([CODESET] [,'retired'])>
+
+=item B<all_country_names([CODESET] [,'retired'])>
+
+=item B<Locale::Country::rename_country(CODE ,NEW_NAME [,CODESET])>
+
+=item B<Locale::Country::add_country(CODE ,NAME [,CODESET])>
+
+=item B<Locale::Country::delete_country(CODE [,CODESET])>
+
+=item B<Locale::Country::add_country_alias(NAME ,NEW_NAME)>
+
+=item B<Locale::Country::delete_country_alias(NAME)>
+
+=item B<Locale::Country::rename_country_code(CODE ,NEW_CODE [,CODESET])>
+
+=item B<Locale::Country::add_country_code_alias(CODE ,NEW_CODE [,CODESET])>
+
+=item B<Locale::Country::delete_country_code_alias(CODE [,CODESET])>
+
+These routines are all documented in the L<Locale::Codes::API> man page.
+
+=back
+
+=head1 SEE ALSO
+
+=over 4
+
+=item L<Locale::Codes>
+
+The Locale-Codes distribution.
+
+=item L<Locale::Codes::API>
+
+The list of functions supported by this module.
+
+=item L<Locale::SubCountry>
+
+ISO codes for country sub-divisions (states, counties, provinces,
+etc), as defined in ISO 3166-2.  This module is not part of the
+Locale-Codes distribution, but is available from CPAN in
+CPAN/modules/by-module/Locale/
+
+=item L<http://www.iso.org/iso/home/standards/country_codes.htm>
+
+Official home page for the ISO 3166 maintenance agency.
+
+=item L<http://www.iso.org/iso/home/standards/country_codes/iso-3166-1_decoding_table.htm>
+
+The source of ISO 3166-1 two-letter codes used by this
+module.
+
+=item L<http://www.iana.org/domains/root/db/>
+
+Official source of the top-level domain names.
+
+=item L<http://unstats.un.org/unsd/methods/m49/m49alpha.htm>
+
+The source of the official ISO 3166-1 three-letter codes and
+three-digit codes.
+
+For some reason, this table is incomplete! Several countries are
+missing from it, and I cannot find them anywhere on the UN site.  I
+no longer use this as a source of data.
+
+=item L<https://www.cia.gov/library/publications/the-world-factbook/appendix/print_appendix-d.html>
+
+The World Factbook maintained by the CIA is a potential source of
+the data.  Unfortunately, it adds/preserves non-standard codes, so it is no
+longer used as a source of data.
+
+=item L<http://www.statoids.com/wab.html>
+
+Another unofficial source of data. Currently, it is not used to get
+data, but the notes and explanatory material were very useful for
+understanding discrepancies between the sources.
+
+=back
+
+=head1 AUTHOR
+
+See Locale::Codes for full author history.
+
+Currently maintained by Sullivan Beck (sbeck@cpan.org).
+
+=head1 COPYRIGHT
+
+   Copyright (c) 1997-2001 Canon Research Centre Europe (CRE).
+   Copyright (c) 2001-2010 Neil Bowers
+   Copyright (c) 2010-2015 Sullivan Beck
+
+This module is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+=cut
diff --git a/lib/5.24.1/Locale/Currency.pm b/lib/5.24.1/Locale/Currency.pm
new file mode 100644
index 00000000..c930ff96
--- /dev/null
+++ b/lib/5.24.1/Locale/Currency.pm
@@ -0,0 +1,48 @@
+package Locale::Currency;
+# Copyright (C) 2001      Canon Research Centre Europe (CRE).
+# Copyright (C) 2002-2009 Neil Bowers
+# Copyright (c) 2010-2015 Sullivan Beck
+# This program is free software; you can redistribute it and/or modify it
+# under the same terms as Perl itself.
+
+use strict;
+use warnings;
+use Exporter;
+
+our $VERSION;
+$VERSION='3.37';
+
+our (@ISA,@EXPORT);
+
+my $backend     = 'Locale::Codes::Currency';
+my $backend_exp = $backend . "::EXPORT";
+
+eval "require $backend; $backend->import(); return 1;";
+
+{
+   no strict 'refs';
+   @EXPORT = @{ $backend_exp };
+}
+
+unshift (@ISA, $backend);
+
+sub rename_currency            { Locale::Codes::Currency::rename_currency(@_) }
+sub add_currency               { Locale::Codes::Currency::add_currency(@_) }
+sub delete_currency            { Locale::Codes::Currency::delete_currency(@_) }
+sub add_currency_alias         { Locale::Codes::Currency::add_currency_alias(@_) }
+sub delete_currency_alias      { Locale::Codes::Currency::delete_currency_alias(@_) }
+sub rename_currency_code       { Locale::Codes::Currency::rename_currency_code(@_) }
+sub add_currency_code_alias    { Locale::Codes::Currency::add_currency_code_alias(@_) }
+sub delete_currency_code_alias { Locale::Codes::Currency::delete_currency_code_alias(@_) }
+
+1;
+# Local Variables:
+# mode: cperl
+# indent-tabs-mode: nil
+# cperl-indent-level: 3
+# cperl-continued-statement-offset: 2
+# cperl-continued-brace-offset: 0
+# cperl-brace-offset: 0
+# cperl-brace-imaginary-offset: 0
+# cperl-label-offset: -2
+# End:
diff --git a/lib/5.24.1/Locale/Currency.pod b/lib/5.24.1/Locale/Currency.pod
new file mode 100644
index 00000000..22cafafa
--- /dev/null
+++ b/lib/5.24.1/Locale/Currency.pod
@@ -0,0 +1,126 @@
+=pod
+
+=head1 NAME
+
+Locale::Currency - standard codes for currency identification
+
+=head1 SYNOPSIS
+
+    use Locale::Currency;
+
+    $curr = code2currency('usd');     # $curr gets 'US Dollar'
+    $code = currency2code('Euro');    # $code gets 'eur'
+
+    @codes   = all_currency_codes();
+    @names   = all_currency_names();
+
+=head1 DESCRIPTION
+
+This module provides access to standard codes used for identifying
+currencies and funds, such as those defined in ISO 4217.
+
+Most of the routines take an optional additional argument which
+specifies the code set to use. If not specified, the default ISO
+4217 three-letter codes will be used.
+
+=head1 SUPPORTED CODE SETS
+
+There are several different code sets you can use for identifying
+currencies. A code set may be specified using either a name, or a
+constant that is automatically exported by this module.
+
+For example, the two are equivalent:
+
+   $curr = code2currency('usd','alpha');
+   $curr = code2currency('usd',LOCALE_CURR_ALPHA);
+
+The codesets currently supported are:
+
+=over 4
+
+=item B<alpha, LOCALE_CURR_ALPHA>
+
+This is a set of three-letter (uppercase) codes from ISO 4217 such
+as EUR for Euro.
+
+Two of the codes specified by the standard (XTS which is reserved
+for testing purposes and XXX which is for transactions where no
+currency is involved) are omitted.
+
+This is the default code set.
+
+=item B<num, LOCALE_CURR_NUMERIC>
+
+This is the set of three-digit numeric codes from ISO 4217.
+
+=back
+
+=head1 ROUTINES
+
+=over 4
+
+=item B<code2currency(CODE [,CODESET] [,'retired'])>
+
+=item B<currency2code(NAME [,CODESET] [,'retired'])>
+
+=item B<currency_code2code(CODE ,CODESET ,CODESET2)>
+
+=item B<all_currency_codes([CODESET] [,'retired'])>
+
+=item B<all_currency_names([CODESET] [,'retired'])>
+
+=item B<Locale::Currency::rename_currency(CODE ,NEW_NAME [,CODESET])>
+
+=item B<Locale::Currency::add_currency(CODE ,NAME [,CODESET])>
+
+=item B<Locale::Currency::delete_currency(CODE [,CODESET])>
+
+=item B<Locale::Currency::add_currency_alias(NAME ,NEW_NAME)>
+
+=item B<Locale::Currency::delete_currency_alias(NAME)>
+
+=item B<Locale::Currency::rename_currency_code(CODE ,NEW_CODE [,CODESET])>
+
+=item B<Locale::Currency::add_currency_code_alias(CODE ,NEW_CODE [,CODESET])>
+
+=item B<Locale::Currency::delete_currency_code_alias( ODE [,CODESET])>
+
+These routines are all documented in the L<Locale::Codes::API> man page.
+
+=back
+
+=head1 SEE ALSO
+
+=over 4
+
+=item L<Locale::Codes>
+
+The Locale-Codes distribution.
+
+=item L<Locale::Codes::API>
+
+The list of functions supported by this module.
+
+=item L<http://www.iso.org/iso/support/currency_codes_list-1.htm>
+
+The ISO 4217 data.
+
+=back
+
+=head1 AUTHOR
+
+See Locale::Codes for full author history.
+
+Currently maintained by Sullivan Beck (sbeck@cpan.org).
+
+=head1 COPYRIGHT
+
+   Copyright (c) 1997-2001 Canon Research Centre Europe (CRE).
+   Copyright (c) 2001      Michael Hennecke
+   Copyright (c) 2001-2010 Neil Bowers
+   Copyright (c) 2010-2015 Sullivan Beck
+
+This module is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+=cut
diff --git a/lib/5.24.1/Locale/Language.pm b/lib/5.24.1/Locale/Language.pm
new file mode 100644
index 00000000..ab4d2145
--- /dev/null
+++ b/lib/5.24.1/Locale/Language.pm
@@ -0,0 +1,48 @@
+package Locale::Language;
+# Copyright (C) 2001      Canon Research Centre Europe (CRE).
+# Copyright (C) 2002-2009 Neil Bowers
+# Copyright (c) 2010-2015 Sullivan Beck
+# This program is free software; you can redistribute it and/or modify it
+# under the same terms as Perl itself.
+
+use strict;
+use warnings;
+use Exporter;
+
+our $VERSION;
+$VERSION='3.37';
+
+our (@ISA,@EXPORT);
+
+my $backend     = 'Locale::Codes::Language';
+my $backend_exp = $backend . "::EXPORT";
+
+eval "require $backend; $backend->import(); return 1;";
+
+{
+   no strict 'refs';
+   @EXPORT = @{ $backend_exp };
+}
+
+unshift (@ISA, $backend);
+
+sub rename_language            { Locale::Codes::Language::rename_language(@_) }
+sub add_language               { Locale::Codes::Language::add_language(@_) }
+sub delete_language            { Locale::Codes::Language::delete_language(@_) }
+sub add_language_alias         { Locale::Codes::Language::add_language_alias(@_) }
+sub delete_language_alias      { Locale::Codes::Language::delete_language_alias(@_) }
+sub rename_language_code       { Locale::Codes::Language::rename_language_code(@_) }
+sub add_language_code_alias    { Locale::Codes::Language::add_language_code_alias(@_) }
+sub delete_language_code_alias { Locale::Codes::Language::delete_language_code_alias(@_) }
+
+1;
+# Local Variables:
+# mode: cperl
+# indent-tabs-mode: nil
+# cperl-indent-level: 3
+# cperl-continued-statement-offset: 2
+# cperl-continued-brace-offset: 0
+# cperl-brace-offset: 0
+# cperl-brace-imaginary-offset: 0
+# cperl-label-offset: -2
+# End:
diff --git a/lib/5.24.1/Locale/Language.pod b/lib/5.24.1/Locale/Language.pod
new file mode 100644
index 00000000..d7e4bd8b
--- /dev/null
+++ b/lib/5.24.1/Locale/Language.pod
@@ -0,0 +1,137 @@
+=pod
+
+=head1 NAME
+
+Locale::Language - standard codes for language identification
+
+=head1 SYNOPSIS
+
+   use Locale::Language;
+
+   $lang = code2language('en');        # $lang gets 'English'
+   $code = language2code('French');    # $code gets 'fr'
+
+   @codes   = all_language_codes();
+   @names   = all_language_names();
+
+=head1 DESCRIPTION
+
+This module provides access to standard codes used
+for identifying languages, such as those as defined in ISO 639.
+
+Most of the routines take an optional additional argument which
+specifies the code set to use. If not specified, the default ISO
+639 two-letter codes will be used.
+
+=head1 SUPPORTED CODE SETS
+
+There are several different code sets you can use for identifying
+languages. A code set may be specified using either a name, or a
+constant that is automatically exported by this module.
+
+For example, the two are equivalent:
+
+   $lang = code2language('en','alpha-2');
+   $lang = code2language('en',LOCALE_LANG_ALPHA_2);
+
+The codesets currently supported are:
+
+=over 4
+
+=item B<alpha-2, LOCALE_LANG_ALPHA_2>
+
+This is the set of two-letter (lowercase) codes from ISO 639-1, such
+as 'he' for Hebrew.  It also includes additions to this set included
+in the IANA language registry.
+
+This is the default code set.
+
+=item B<alpha-3, LOCALE_LANG_ALPHA_3>
+
+This is the set of three-letter (lowercase) bibliographic codes from
+ISO 639-2 and 639-5, such as 'heb' for Hebrew.  It also includes
+additions to this set included in the IANA language registry.
+
+=item B<term, LOCALE_LANG_TERM>
+
+This is the set of three-letter (lowercase) terminologic codes from
+ISO 639.
+
+=back
+
+=head1 ROUTINES
+
+=over 4
+
+=item B<code2language(CODE [,CODESET] [,'retired'])>
+
+=item B<language2code(NAME [,CODESET] [,'retired'])>
+
+=item B<language_code2code(CODE ,CODESET ,CODESET2)>
+
+=item B<all_language_codes([CODESET] [,'retired'])>
+
+=item B<all_language_names([CODESET] [,'retired'])>
+
+=item B<Locale::Language::rename_language(CODE ,NEW_NAME [,CODESET])>
+
+=item B<Locale::Language::add_language(CODE ,NAME [,CODESET])>
+
+=item B<Locale::Language::delete_language(CODE [,CODESET])>
+
+=item B<Locale::Language::add_language_alias(NAME ,NEW_NAME)>
+
+=item B<Locale::Language::delete_language_alias(NAME)>
+
+=item B<Locale::Language::rename_language_code(CODE ,NEW_CODE [,CODESET])>
+
+=item B<Locale::Language::add_language_code_alias(CODE ,NEW_CODE [,CODESET])>
+
+=item B<Locale::Language::delete_language_code_alias(CODE [,CODESET])>
+
+These routines are all documented in the L<Locale::Codes::API> man page.
+
+=back
+
+=head1 SEE ALSO
+
+=over 4
+
+=item L<Locale::Codes>
+
+The Locale-Codes distribution.
+
+=item L<Locale::Codes::API>
+
+The list of functions supported by this module.
+
+=item L<http://www.loc.gov/standards/iso639-2/>
+
+Source of the ISO 639-2 codes.
+
+=item L<http://www.loc.gov/standards/iso639-5/>
+
+Source of the ISO 639-5 codes.
+
+=item L<http://www.iana.org/assignments/language-subtag-registry>
+
+The IANA language subtag registry.
+
+=back
+
+=head1 AUTHOR
+
+See Locale::Codes for full author history.
+
+Currently maintained by Sullivan Beck (sbeck@cpan.org).
+
+=head1 COPYRIGHT
+
+   Copyright (c) 1997-2001 Canon Research Centre Europe (CRE).
+   Copyright (c) 2001-2010 Neil Bowers
+   Copyright (c) 2010-2015 Sullivan Beck
+
+This module is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+=cut
diff --git a/lib/5.24.1/Locale/Maketext.pm b/lib/5.24.1/Locale/Maketext.pm
new file mode 100644
index 00000000..e73c149a
--- /dev/null
+++ b/lib/5.24.1/Locale/Maketext.pm
@@ -0,0 +1,807 @@
+
+package Locale::Maketext;
+use strict;
+use vars qw( @ISA $VERSION $MATCH_SUPERS $USING_LANGUAGE_TAGS
+$USE_LITERALS $MATCH_SUPERS_TIGHTLY);
+use Carp ();
+use I18N::LangTags ();
+use I18N::LangTags::Detect ();
+
+#--------------------------------------------------------------------------
+
+BEGIN { unless(defined &DEBUG) { *DEBUG = sub () {0} } }
+# define the constant 'DEBUG' at compile-time
+
+# turn on utf8 if we have it (this is what GutsLoader.pm used to do essentially )
+#    use if (exists $INC{'utf8.pm'} || eval 'use utf8'), 'utf8';
+BEGIN {
+
+    # if we have it || we can load it
+    if ( exists $INC{'utf8.pm'} || eval { local $SIG{'__DIE__'};require utf8; } ) {
+        utf8->import();
+        DEBUG and warn " utf8 on for _compile()\n";
+    }
+    else {
+        DEBUG and warn " utf8 not available for _compile() ($INC{'utf8.pm'})\n$@\n";
+    }
+}
+
+
+$VERSION = '1.26_01';
+@ISA = ();
+
+$MATCH_SUPERS = 1;
+$MATCH_SUPERS_TIGHTLY = 1;
+$USING_LANGUAGE_TAGS  = 1;
+# Turning this off is somewhat of a security risk in that little or no
+# checking will be done on the legality of tokens passed to the
+# eval("use $module_name") in _try_use.  If you turn this off, you have
+# to do your own taint checking.
+
+$USE_LITERALS = 1 unless defined $USE_LITERALS;
+# a hint for compiling bracket-notation things.
+
+my %isa_scan = ();
+
+###########################################################################
+
+sub quant {
+    my($handle, $num, @forms) = @_;
+
+    return $num if @forms == 0; # what should this mean?
+    return $forms[2] if @forms > 2 and $num == 0; # special zeroth case
+
+    # Normal case:
+    # Note that the formatting of $num is preserved.
+    return( $handle->numf($num) . ' ' . $handle->numerate($num, @forms) );
+    # Most human languages put the number phrase before the qualified phrase.
+}
+
+
+sub numerate {
+    # return this lexical item in a form appropriate to this number
+    my($handle, $num, @forms) = @_;
+    my $s = ($num == 1);
+
+    return '' unless @forms;
+    if(@forms == 1) { # only the headword form specified
+        return $s ? $forms[0] : ($forms[0] . 's'); # very cheap hack.
+    }
+    else { # sing and plural were specified
+        return $s ? $forms[0] : $forms[1];
+    }
+}
+
+#--------------------------------------------------------------------------
+
+sub numf {
+    my($handle, $num) = @_[0,1];
+    if($num < 10_000_000_000 and $num > -10_000_000_000 and $num == int($num)) {
+        $num += 0;  # Just use normal integer stringification.
+        # Specifically, don't let %G turn ten million into 1E+007
+    }
+    else {
+        $num = CORE::sprintf('%G', $num);
+        # "CORE::" is there to avoid confusion with the above sub sprintf.
+    }
+    while( $num =~ s/^([-+]?\d+)(\d{3})/$1,$2/s ) {1}  # right from perlfaq5
+    # The initial \d+ gobbles as many digits as it can, and then we
+    #  backtrack so it un-eats the rightmost three, and then we
+    #  insert the comma there.
+
+    $num =~ tr<.,><,.> if ref($handle) and $handle->{'numf_comma'};
+    # This is just a lame hack instead of using Number::Format
+    return $num;
+}
+
+sub sprintf {
+    no integer;
+    my($handle, $format, @params) = @_;
+    return CORE::sprintf($format, @params);
+    # "CORE::" is there to avoid confusion with myself!
+}
+
+#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#
+
+use integer; # vroom vroom... applies to the whole rest of the module
+
+sub language_tag {
+    my $it = ref($_[0]) || $_[0];
+    return undef unless $it =~ m/([^':]+)(?:::)?$/s;
+    $it = lc($1);
+    $it =~ tr<_><->;
+    return $it;
+}
+
+sub encoding {
+    my $it = $_[0];
+    return(
+        (ref($it) && $it->{'encoding'})
+        || 'iso-8859-1'   # Latin-1
+    );
+}
+
+#--------------------------------------------------------------------------
+
+sub fallback_languages { return('i-default', 'en', 'en-US') }
+
+sub fallback_language_classes { return () }
+
+#--------------------------------------------------------------------------
+
+sub fail_with { # an actual attribute method!
+    my($handle, @params) = @_;
+    return unless ref($handle);
+    $handle->{'fail'} = $params[0] if @params;
+    return $handle->{'fail'};
+}
+
+#--------------------------------------------------------------------------
+
+sub failure_handler_auto {
+    # Meant to be used like:
+    #  $handle->fail_with('failure_handler_auto')
+
+    my $handle = shift;
+    my $phrase = shift;
+
+    $handle->{'failure_lex'} ||= {};
+    my $lex = $handle->{'failure_lex'};
+
+    my $value ||= ($lex->{$phrase} ||= $handle->_compile($phrase));
+
+    # Dumbly copied from sub maketext:
+    return ${$value} if ref($value) eq 'SCALAR';
+    return $value    if ref($value) ne 'CODE';
+    {
+        local $SIG{'__DIE__'};
+        eval { $value = &$value($handle, @_) };
+    }
+    # If we make it here, there was an exception thrown in the
+    #  call to $value, and so scream:
+    if($@) {
+        # pretty up the error message
+        $@ =~ s{\s+at\s+\(eval\s+\d+\)\s+line\s+(\d+)\.?\n?}
+                 {\n in bracket code [compiled line $1],}s;
+        #$err =~ s/\n?$/\n/s;
+        Carp::croak "Error in maketexting \"$phrase\":\n$@ as used";
+        # Rather unexpected, but suppose that the sub tried calling
+        # a method that didn't exist.
+    }
+    else {
+        return $value;
+    }
+}
+
+#==========================================================================
+
+sub new {
+    # Nothing fancy!
+    my $class = ref($_[0]) || $_[0];
+    my $handle = bless {}, $class;
+    $handle->init;
+    return $handle;
+}
+
+sub init { return } # no-op
+
+###########################################################################
+
+sub maketext {
+    # Remember, this can fail.  Failure is controllable many ways.
+    Carp::croak 'maketext requires at least one parameter' unless @_ > 1;
+
+    my($handle, $phrase) = splice(@_,0,2);
+    Carp::confess('No handle/phrase') unless (defined($handle) && defined($phrase));
+
+    # backup $@ in case it's still being used in the calling code.
+    # If no failures, we'll re-set it back to what it was later.
+    my $at = $@;
+
+    # Copy @_ case one of its elements is $@.
+    @_ = @_;
+
+    # Look up the value:
+
+    my $value;
+    if (exists $handle->{'_external_lex_cache'}{$phrase}) {
+        DEBUG and warn "* Using external lex cache version of \"$phrase\"\n";
+        $value = $handle->{'_external_lex_cache'}{$phrase};
+    }
+    else {
+        foreach my $h_r (
+            @{  $isa_scan{ref($handle) || $handle} || $handle->_lex_refs  }
+        ) {
+            DEBUG and warn "* Looking up \"$phrase\" in $h_r\n";
+            if(exists $h_r->{$phrase}) {
+                DEBUG and warn "  Found \"$phrase\" in $h_r\n";
+                unless(ref($value = $h_r->{$phrase})) {
+                    # Nonref means it's not yet compiled.  Compile and replace.
+                    if ($handle->{'use_external_lex_cache'}) {
+                        $value = $handle->{'_external_lex_cache'}{$phrase} = $handle->_compile($value);
+                    }
+                    else {
+                        $value = $h_r->{$phrase} = $handle->_compile($value);
+                    }
+                }
+                last;
+            }
+            # extending packages need to be able to localize _AUTO and if readonly can't "local $h_r->{'_AUTO'} = 1;"
+            # but they can "local $handle->{'_external_lex_cache'}{'_AUTO'} = 1;"
+            elsif($phrase !~ m/^_/s and ($handle->{'use_external_lex_cache'} ? ( exists $handle->{'_external_lex_cache'}{'_AUTO'} ? $handle->{'_external_lex_cache'}{'_AUTO'} : $h_r->{'_AUTO'} ) : $h_r->{'_AUTO'})) {
+                # it's an auto lex, and this is an autoable key!
+                DEBUG and warn "  Automaking \"$phrase\" into $h_r\n";
+                if ($handle->{'use_external_lex_cache'}) {
+                    $value = $handle->{'_external_lex_cache'}{$phrase} = $handle->_compile($phrase);
+                }
+                else {
+                    $value = $h_r->{$phrase} = $handle->_compile($phrase);
+                }
+                last;
+            }
+            DEBUG>1 and print "  Not found in $h_r, nor automakable\n";
+            # else keep looking
+        }
+    }
+
+    unless(defined($value)) {
+        DEBUG and warn "! Lookup of \"$phrase\" in/under ", ref($handle) || $handle, " fails.\n";
+        if(ref($handle) and $handle->{'fail'}) {
+            DEBUG and warn "WARNING0: maketext fails looking for <$phrase>\n";
+            my $fail;
+            if(ref($fail = $handle->{'fail'}) eq 'CODE') { # it's a sub reference
+                $@ = $at; # Put $@ back in case we altered it along the way.
+                return &{$fail}($handle, $phrase, @_);
+                # If it ever returns, it should return a good value.
+            }
+            else { # It's a method name
+                $@ = $at; # Put $@ back in case we altered it along the way.
+                return $handle->$fail($phrase, @_);
+                # If it ever returns, it should return a good value.
+            }
+        }
+        else {
+            # All we know how to do is this;
+            Carp::croak("maketext doesn't know how to say:\n$phrase\nas needed");
+        }
+    }
+
+    if(ref($value) eq 'SCALAR'){
+        $@ = $at; # Put $@ back in case we altered it along the way.
+        return $$value ;
+    }
+    if(ref($value) ne 'CODE'){
+        $@ = $at; # Put $@ back in case we altered it along the way.
+        return $value ;
+    }
+
+    {
+        local $SIG{'__DIE__'};
+        eval { $value = &$value($handle, @_) };
+    }
+    # If we make it here, there was an exception thrown in the
+    #  call to $value, and so scream:
+    if ($@) {
+        # pretty up the error message
+        $@ =~ s{\s+at\s+\(eval\s+\d+\)\s+line\s+(\d+)\.?\n?}
+                 {\n in bracket code [compiled line $1],}s;
+        #$err =~ s/\n?$/\n/s;
+        Carp::croak "Error in maketexting \"$phrase\":\n$@ as used";
+        # Rather unexpected, but suppose that the sub tried calling
+        # a method that didn't exist.
+    }
+    else {
+        $@ = $at; # Put $@ back in case we altered it along the way.
+        return $value;
+    }
+    $@ = $at; # Put $@ back in case we altered it along the way.
+}
+
+###########################################################################
+
+sub get_handle {  # This is a constructor and, yes, it CAN FAIL.
+    # Its class argument has to be the base class for the current
+    # application's l10n files.
+
+    my($base_class, @languages) = @_;
+    $base_class = ref($base_class) || $base_class;
+    # Complain if they use __PACKAGE__ as a project base class?
+
+    if( @languages ) {
+        DEBUG and warn 'Lgs@', __LINE__, ': ', map("<$_>", @languages), "\n";
+        if($USING_LANGUAGE_TAGS) {   # An explicit language-list was given!
+            @languages =
+            map {; $_, I18N::LangTags::alternate_language_tags($_) }
+            # Catch alternation
+            map I18N::LangTags::locale2language_tag($_),
+            # If it's a lg tag, fine, pass thru (untainted)
+            # If it's a locale ID, try converting to a lg tag (untainted),
+            # otherwise nix it.
+            @languages;
+            DEBUG and warn 'Lgs@', __LINE__, ': ', map("<$_>", @languages), "\n";
+        }
+    }
+    else {
+        @languages = $base_class->_ambient_langprefs;
+    }
+
+    @languages = $base_class->_langtag_munging(@languages);
+
+    my %seen;
+    foreach my $module_name ( map { $base_class . '::' . $_ }  @languages ) {
+        next unless length $module_name; # sanity
+        next if $seen{$module_name}++        # Already been here, and it was no-go
+        || !&_try_use($module_name); # Try to use() it, but can't it.
+        return($module_name->new); # Make it!
+    }
+
+    return undef; # Fail!
+}
+
+###########################################################################
+
+sub _langtag_munging {
+    my($base_class, @languages) = @_;
+
+    # We have all these DEBUG statements because otherwise it's hard as hell
+    # to diagnose if/when something goes wrong.
+
+    DEBUG and warn 'Lgs1: ', map("<$_>", @languages), "\n";
+
+    if($USING_LANGUAGE_TAGS) {
+        DEBUG and warn 'Lgs@', __LINE__, ': ', map("<$_>", @languages), "\n";
+        @languages     = $base_class->_add_supers( @languages );
+
+        push @languages, I18N::LangTags::panic_languages(@languages);
+        DEBUG and warn "After adding panic languages:\n",
+        ' Lgs@', __LINE__, ': ', map("<$_>", @languages), "\n";
+
+        push @languages, $base_class->fallback_languages;
+        # You are free to override fallback_languages to return empty-list!
+        DEBUG and warn 'Lgs@', __LINE__, ': ', map("<$_>", @languages), "\n";
+
+        @languages =  # final bit of processing to turn them into classname things
+        map {
+            my $it = $_;  # copy
+            $it =~ tr<-A-Z><_a-z>; # lc, and turn - to _
+            $it =~ tr<_a-z0-9><>cd;  # remove all but a-z0-9_
+            $it;
+        } @languages
+        ;
+        DEBUG and warn "Nearing end of munging:\n",
+        ' Lgs@', __LINE__, ': ', map("<$_>", @languages), "\n";
+    }
+    else {
+        DEBUG and warn "Bypassing language-tags.\n",
+        ' Lgs@', __LINE__, ': ', map("<$_>", @languages), "\n";
+    }
+
+    DEBUG and warn "Before adding fallback classes:\n",
+    ' Lgs@', __LINE__, ': ', map("<$_>", @languages), "\n";
+
+    push @languages, $base_class->fallback_language_classes;
+    # You are free to override that to return whatever.
+
+    DEBUG and warn "Finally:\n",
+    ' Lgs@', __LINE__, ': ', map("<$_>", @languages), "\n";
+
+    return @languages;
+}
+
+###########################################################################
+
+sub _ambient_langprefs {
+    return  I18N::LangTags::Detect::detect();
+}
+
+###########################################################################
+
+sub _add_supers {
+    my($base_class, @languages) = @_;
+
+    if (!$MATCH_SUPERS) {
+        # Nothing
+        DEBUG and warn "Bypassing any super-matching.\n",
+        ' Lgs@', __LINE__, ': ', map("<$_>", @languages), "\n";
+
+    }
+    elsif( $MATCH_SUPERS_TIGHTLY ) {
+        DEBUG and warn "Before adding new supers tightly:\n",
+        ' Lgs@', __LINE__, ': ', map("<$_>", @languages), "\n";
+        @languages = I18N::LangTags::implicate_supers( @languages );
+        DEBUG and warn "After adding new supers tightly:\n",
+        ' Lgs@', __LINE__, ': ', map("<$_>", @languages), "\n";
+
+    }
+    else {
+        DEBUG and warn "Before adding supers to end:\n",
+        ' Lgs@', __LINE__, ': ', map("<$_>", @languages), "\n";
+        @languages = I18N::LangTags::implicate_supers_strictly( @languages );
+        DEBUG and warn "After adding supers to end:\n",
+        ' Lgs@', __LINE__, ': ', map("<$_>", @languages), "\n";
+    }
+
+    return @languages;
+}
+
+###########################################################################
+#
+# This is where most people should stop reading.
+#
+###########################################################################
+
+my %tried = ();
+# memoization of whether we've used this module, or found it unusable.
+
+sub _try_use {   # Basically a wrapper around "require Modulename"
+    # "Many men have tried..."  "They tried and failed?"  "They tried and died."
+    return $tried{$_[0]} if exists $tried{$_[0]};  # memoization
+
+    my $module = $_[0];   # ASSUME sane module name!
+    { no strict 'refs';
+        no warnings 'once';
+        return($tried{$module} = 1)
+        if %{$module . '::Lexicon'} or @{$module . '::ISA'};
+        # weird case: we never use'd it, but there it is!
+    }
+
+    DEBUG and warn " About to use $module ...\n";
+
+    local $SIG{'__DIE__'};
+    local $@;
+    local @INC = @INC;
+    pop @INC if $INC[-1] eq '.';
+    eval "require $module"; # used to be "use $module", but no point in that.
+
+    if($@) {
+        DEBUG and warn "Error using $module \: $@\n";
+        return $tried{$module} = 0;
+    }
+    else {
+        DEBUG and warn " OK, $module is used\n";
+        return $tried{$module} = 1;
+    }
+}
+
+#--------------------------------------------------------------------------
+
+sub _lex_refs {  # report the lexicon references for this handle's class
+    # returns an arrayREF!
+    no strict 'refs';
+    no warnings 'once';
+    my $class = ref($_[0]) || $_[0];
+    DEBUG and warn "Lex refs lookup on $class\n";
+    return $isa_scan{$class} if exists $isa_scan{$class};  # memoization!
+
+    my @lex_refs;
+    my $seen_r = ref($_[1]) ? $_[1] : {};
+
+    if( defined( *{$class . '::Lexicon'}{'HASH'} )) {
+        push @lex_refs, *{$class . '::Lexicon'}{'HASH'};
+        DEBUG and warn '%' . $class . '::Lexicon contains ',
+            scalar(keys %{$class . '::Lexicon'}), " entries\n";
+    }
+
+    # Implements depth(height?)-first recursive searching of superclasses.
+    # In hindsight, I suppose I could have just used Class::ISA!
+    foreach my $superclass (@{$class . '::ISA'}) {
+        DEBUG and warn " Super-class search into $superclass\n";
+        next if $seen_r->{$superclass}++;
+        push @lex_refs, @{&_lex_refs($superclass, $seen_r)};  # call myself
+    }
+
+    $isa_scan{$class} = \@lex_refs; # save for next time
+    return \@lex_refs;
+}
+
+sub clear_isa_scan { %isa_scan = (); return; } # end on a note of simplicity!
+
+#--------------------------------------------------------------------------
+
+sub _compile {
+    # This big scary routine compiles an entry.
+    # It returns either a coderef if there's brackety bits in this, or
+    #  otherwise a ref to a scalar.
+
+    my $string_to_compile = $_[1]; # There are taint issues using regex on @_ - perlbug 60378,27344
+
+    # The while() regex is more expensive than this check on strings that don't need a compile.
+    # this op causes a ~2% speed hit for strings that need compile and a 250% speed improvement
+    # on strings that don't need compiling.
+    return \"$string_to_compile" if($string_to_compile !~ m/[\[~\]]/ms); # return a string ref if chars [~] are not in the string
+
+    my $target = ref($_[0]) || $_[0];
+
+    my(@code);
+    my(@c) = (''); # "chunks" -- scratch.
+    my $call_count = 0;
+    my $big_pile = '';
+    {
+        my $in_group = 0; # start out outside a group
+        my($m, @params); # scratch
+
+        while($string_to_compile =~  # Iterate over chunks.
+            m/(
+                [^\~\[\]]+  # non-~[] stuff (Capture everything else here)
+                |
+                ~.       # ~[, ~], ~~, ~other
+                |
+                \[          # [ presumably opening a group
+                |
+                \]          # ] presumably closing a group
+                |
+                ~           # terminal ~ ?
+                |
+                $
+            )/xgs
+        ) {
+            DEBUG>2 and warn qq{  "$1"\n};
+
+            if($1 eq '[' or $1 eq '') {       # "[" or end
+                # Whether this is "[" or end, force processing of any
+                #  preceding literal.
+                if($in_group) {
+                    if($1 eq '') {
+                        $target->_die_pointing($string_to_compile, 'Unterminated bracket group');
+                    }
+                    else {
+                        $target->_die_pointing($string_to_compile, 'You can\'t nest bracket groups');
+                    }
+                }
+                else {
+                    if ($1 eq '') {
+                        DEBUG>2 and warn "   [end-string]\n";
+                    }
+                    else {
+                        $in_group = 1;
+                    }
+                    die "How come \@c is empty?? in <$string_to_compile>" unless @c; # sanity
+                    if(length $c[-1]) {
+                        # Now actually processing the preceding literal
+                        $big_pile .= $c[-1];
+                        if($USE_LITERALS and (
+                                (ord('A') == 65)
+                                ? $c[-1] !~ m/[^\x20-\x7E]/s
+                                # ASCII very safe chars
+                                : $c[-1] !~ m/[^ !"\#\$%&'()*+,\-.\/0-9:;<=>?\@A-Z[\\\]^_`a-z{|}~\x07]/s
+                                # EBCDIC very safe chars
+                            )) {
+                            # normal case -- all very safe chars
+                            $c[-1] =~ s/'/\\'/g;
+                            push @code, q{ '} . $c[-1] . "',\n";
+                            $c[-1] = ''; # reuse this slot
+                        }
+                        else {
+                            $c[-1] =~ s/\\\\/\\/g;
+                            push @code, ' $c[' . $#c . "],\n";
+                            push @c, ''; # new chunk
+                        }
+                    }
+                    # else just ignore the empty string.
+                }
+
+            }
+            elsif($1 eq ']') {  # "]"
+                # close group -- go back in-band
+                if($in_group) {
+                    $in_group = 0;
+
+                    DEBUG>2 and warn "   --Closing group [$c[-1]]\n";
+
+                    # And now process the group...
+
+                    if(!length($c[-1]) or $c[-1] =~ m/^\s+$/s) {
+                        DEBUG>2 and warn "   -- (Ignoring)\n";
+                        $c[-1] = ''; # reset out chink
+                        next;
+                    }
+
+                    #$c[-1] =~ s/^\s+//s;
+                    #$c[-1] =~ s/\s+$//s;
+                    ($m,@params) = split(/,/, $c[-1], -1);  # was /\s*,\s*/
+
+                    # A bit of a hack -- we've turned "~,"'s into DELs, so turn
+                    #  'em into real commas here.
+                    if (ord('A') == 65) { # ASCII, etc
+                        foreach($m, @params) { tr/\x7F/,/ }
+                    }
+                    else {              # EBCDIC (1047, 0037, POSIX-BC)
+                        # Thanks to Peter Prymmer for the EBCDIC handling
+                        foreach($m, @params) { tr/\x07/,/ }
+                    }
+
+                    # Special-case handling of some method names:
+                    if($m eq '_*' or $m =~ m/^_(-?\d+)$/s) {
+                        # Treat [_1,...] as [,_1,...], etc.
+                        unshift @params, $m;
+                        $m = '';
+                    }
+                    elsif($m eq '*') {
+                        $m = 'quant'; # "*" for "times": "4 cars" is 4 times "cars"
+                    }
+                    elsif($m eq '#') {
+                        $m = 'numf';  # "#" for "number": [#,_1] for "the number _1"
+                    }
+
+                    # Most common case: a simple, legal-looking method name
+                    if($m eq '') {
+                        # 0-length method name means to just interpolate:
+                        push @code, ' (';
+                    }
+                    elsif($m =~ /^\w+$/s
+                        # exclude anything fancy, especially fully-qualified module names
+                    ) {
+                        push @code, ' $_[0]->' . $m . '(';
+                    }
+                    else {
+                        # TODO: implement something?  or just too icky to consider?
+                        $target->_die_pointing(
+                            $string_to_compile,
+                            "Can't use \"$m\" as a method name in bracket group",
+                            2 + length($c[-1])
+                        );
+                    }
+
+                    pop @c; # we don't need that chunk anymore
+                    ++$call_count;
+
+                    foreach my $p (@params) {
+                        if($p eq '_*') {
+                            # Meaning: all parameters except $_[0]
+                            $code[-1] .= ' @_[1 .. $#_], ';
+                            # and yes, that does the right thing for all @_ < 3
+                        }
+                        elsif($p =~ m/^_(-?\d+)$/s) {
+                            # _3 meaning $_[3]
+                            $code[-1] .= '$_[' . (0 + $1) . '], ';
+                        }
+                        elsif($USE_LITERALS and (
+                                (ord('A') == 65)
+                                ? $p !~ m/[^\x20-\x7E]/s
+                                # ASCII very safe chars
+                                : $p !~ m/[^ !"\#\$%&'()*+,\-.\/0-9:;<=>?\@A-Z[\\\]^_`a-z{|}~\x07]/s
+                                # EBCDIC very safe chars
+                            )) {
+                            # Normal case: a literal containing only safe characters
+                            $p =~ s/'/\\'/g;
+                            $code[-1] .= q{'} . $p . q{', };
+                        }
+                        else {
+                            # Stow it on the chunk-stack, and just refer to that.
+                            push @c, $p;
+                            push @code, ' $c[' . $#c . '], ';
+                        }
+                    }
+                    $code[-1] .= "),\n";
+
+                    push @c, '';
+                }
+                else {
+                    $target->_die_pointing($string_to_compile, q{Unbalanced ']'});
+                }
+
+            }
+            elsif(substr($1,0,1) ne '~') {
+                # it's stuff not containing "~" or "[" or "]"
+                # i.e., a literal blob
+                my $text = $1;
+                $text =~ s/\\/\\\\/g;
+                $c[-1] .= $text;
+
+            }
+            elsif($1 eq '~~') { # "~~"
+                $c[-1] .= '~';
+
+            }
+            elsif($1 eq '~[') { # "~["
+                $c[-1] .= '[';
+
+            }
+            elsif($1 eq '~]') { # "~]"
+                $c[-1] .= ']';
+
+            }
+            elsif($1 eq '~,') { # "~,"
+                if($in_group) {
+                    # This is a hack, based on the assumption that no-one will actually
+                    # want a DEL inside a bracket group.  Let's hope that's it's true.
+                    if (ord('A') == 65) { # ASCII etc
+                        $c[-1] .= "\x7F";
+                    }
+                    else {              # EBCDIC (cp 1047, 0037, POSIX-BC)
+                        $c[-1] .= "\x07";
+                    }
+                }
+                else {
+                    $c[-1] .= '~,';
+                }
+
+            }
+            elsif($1 eq '~') { # possible only at string-end, it seems.
+                $c[-1] .= '~';
+
+            }
+            else {
+                # It's a "~X" where X is not a special character.
+                # Consider it a literal ~ and X.
+                my $text = $1;
+                $text =~ s/\\/\\\\/g;
+                $c[-1] .= $text;
+            }
+        }
+    }
+
+    if($call_count) {
+        undef $big_pile; # Well, nevermind that.
+    }
+    else {
+        # It's all literals!  Ahwell, that can happen.
+        # So don't bother with the eval.  Return a SCALAR reference.
+        return \$big_pile;
+    }
+
+    die q{Last chunk isn't null??} if @c and length $c[-1]; # sanity
+    DEBUG and warn scalar(@c), " chunks under closure\n";
+    if(@code == 0) { # not possible?
+        DEBUG and warn "Empty code\n";
+        return \'';
+    }
+    elsif(@code > 1) { # most cases, presumably!
+        unshift @code, "join '',\n";
+    }
+    unshift @code, "use strict; sub {\n";
+    push @code, "}\n";
+
+    DEBUG and warn @code;
+    my $sub = eval(join '', @code);
+    die "$@ while evalling" . join('', @code) if $@; # Should be impossible.
+    return $sub;
+}
+
+#--------------------------------------------------------------------------
+
+sub _die_pointing {
+    # This is used by _compile to throw a fatal error
+    my $target = shift; # class name
+    # ...leaving $_[0] the error-causing text, and $_[1] the error message
+
+    my $i = index($_[0], "\n");
+
+    my $pointy;
+    my $pos = pos($_[0]) - (defined($_[2]) ? $_[2] : 0) - 1;
+    if($pos < 1) {
+        $pointy = "^=== near there\n";
+    }
+    else { # we need to space over
+        my $first_tab = index($_[0], "\t");
+        if($pos > 2 and ( -1 == $first_tab  or  $first_tab > pos($_[0]))) {
+            # No tabs, or the first tab is harmlessly after where we will point to,
+            # AND we're far enough from the margin that we can draw a proper arrow.
+            $pointy = ('=' x $pos) . "^ near there\n";
+        }
+        else {
+            # tabs screw everything up!
+            $pointy = substr($_[0],0,$pos);
+            $pointy =~ tr/\t //cd;
+            # make everything into whitespace, but preserving tabs
+            $pointy .= "^=== near there\n";
+        }
+    }
+
+    my $errmsg = "$_[1], in\:\n$_[0]";
+
+    if($i == -1) {
+        # No newline.
+        $errmsg .= "\n" . $pointy;
+    }
+    elsif($i == (length($_[0]) - 1)  ) {
+        # Already has a newline at end.
+        $errmsg .= $pointy;
+    }
+    else {
+        # don't bother with the pointy bit, I guess.
+    }
+    Carp::croak( "$errmsg via $target, as used" );
+}
+
+1;
diff --git a/lib/5.24.1/Locale/Maketext.pod b/lib/5.24.1/Locale/Maketext.pod
new file mode 100644
index 00000000..a391b291
--- /dev/null
+++ b/lib/5.24.1/Locale/Maketext.pod
@@ -0,0 +1,1350 @@
+
+# Time-stamp: "2004-01-11 18:35:34 AST"
+
+=head1 NAME
+
+Locale::Maketext - framework for localization
+
+=head1 SYNOPSIS
+
+  package MyProgram;
+  use strict;
+  use MyProgram::L10N;
+   # ...which inherits from Locale::Maketext
+  my $lh = MyProgram::L10N->get_handle() || die "What language?";
+  ...
+  # And then any messages your program emits, like:
+  warn $lh->maketext( "Can't open file [_1]: [_2]\n", $f, $! );
+  ...
+
+=head1 DESCRIPTION
+
+It is a common feature of applications (whether run directly,
+or via the Web) for them to be "localized" -- i.e., for them
+to a present an English interface to an English-speaker, a German
+interface to a German-speaker, and so on for all languages it's
+programmed with.  Locale::Maketext
+is a framework for software localization; it provides you with the
+tools for organizing and accessing the bits of text and text-processing
+code that you need for producing localized applications.
+
+In order to make sense of Maketext and how all its
+components fit together, you should probably
+go read L<Locale::Maketext::TPJ13|Locale::Maketext::TPJ13>, and
+I<then> read the following documentation.
+
+You may also want to read over the source for C<File::Findgrep>
+and its constituent modules -- they are a complete (if small)
+example application that uses Maketext.
+
+=head1 QUICK OVERVIEW
+
+The basic design of Locale::Maketext is object-oriented, and
+Locale::Maketext is an abstract base class, from which you
+derive a "project class".
+The project class (with a name like "TkBocciBall::Localize",
+which you then use in your module) is in turn the base class
+for all the "language classes" for your project
+(with names "TkBocciBall::Localize::it", 
+"TkBocciBall::Localize::en",
+"TkBocciBall::Localize::fr", etc.).
+
+A language class is
+a class containing a lexicon of phrases as class data,
+and possibly also some methods that are of use in interpreting
+phrases in the lexicon, or otherwise dealing with text in that
+language.
+
+An object belonging to a language class is called a "language
+handle"; it's typically a flyweight object.
+
+The normal course of action is to call:
+
+  use TkBocciBall::Localize;  # the localization project class
+  $lh = TkBocciBall::Localize->get_handle();
+   # Depending on the user's locale, etc., this will
+   # make a language handle from among the classes available,
+   # and any defaults that you declare.
+  die "Couldn't make a language handle??" unless $lh;
+
+From then on, you use the C<maketext> function to access
+entries in whatever lexicon(s) belong to the language handle
+you got.  So, this:
+
+  print $lh->maketext("You won!"), "\n";
+
+...emits the right text for this language.  If the object
+in C<$lh> belongs to class "TkBocciBall::Localize::fr" and
+%TkBocciBall::Localize::fr::Lexicon contains C<("You won!"
+=E<gt> "Tu as gagnE<eacute>!")>, then the above
+code happily tells the user "Tu as gagnE<eacute>!".
+
+=head1 METHODS
+
+Locale::Maketext offers a variety of methods, which fall
+into three categories:
+
+=over
+
+=item *
+
+Methods to do with constructing language handles.
+
+=item *
+
+C<maketext> and other methods to do with accessing %Lexicon data
+for a given language handle.
+
+=item *
+
+Methods that you may find it handy to use, from routines of
+yours that you put in %Lexicon entries.
+
+=back
+
+These are covered in the following section.
+
+=head2 Construction Methods
+
+These are to do with constructing a language handle:
+
+=over
+
+=item *
+
+$lh = YourProjClass->get_handle( ...langtags... ) || die "lg-handle?";
+
+This tries loading classes based on the language-tags you give (like
+C<("en-US", "sk", "kon", "es-MX", "ja", "i-klingon")>, and for the first class
+that succeeds, returns YourProjClass::I<language>->new().
+
+If it runs thru the entire given list of language-tags, and finds no classes
+for those exact terms, it then tries "superordinate" language classes.
+So if no "en-US" class (i.e., YourProjClass::en_us)
+was found, nor classes for anything else in that list, we then try
+its superordinate, "en" (i.e., YourProjClass::en), and so on thru 
+the other language-tags in the given list: "es".
+(The other language-tags in our example list: 
+happen to have no superordinates.)
+
+If none of those language-tags leads to loadable classes, we then
+try classes derived from YourProjClass->fallback_languages() and
+then if nothing comes of that, we use classes named by
+YourProjClass->fallback_language_classes().  Then in the (probably
+quite unlikely) event that that fails, we just return undef.
+
+=item *
+
+$lh = YourProjClass->get_handleB<()> || die "lg-handle?";
+
+When C<get_handle> is called with an empty parameter list, magic happens:
+
+If C<get_handle> senses that it's running in program that was
+invoked as a CGI, then it tries to get language-tags out of the
+environment variable "HTTP_ACCEPT_LANGUAGE", and it pretends that
+those were the languages passed as parameters to C<get_handle>.
+
+Otherwise (i.e., if not a CGI), this tries various OS-specific ways
+to get the language-tags for the current locale/language, and then
+pretends that those were the value(s) passed to C<get_handle>.
+
+Currently this OS-specific stuff consists of looking in the environment
+variables "LANG" and "LANGUAGE"; and on MSWin machines (where those
+variables are typically unused), this also tries using
+the module Win32::Locale to get a language-tag for whatever language/locale
+is currently selected in the "Regional Settings" (or "International"?)
+Control Panel.  I welcome further
+suggestions for making this do the Right Thing under other operating
+systems that support localization.
+
+If you're using localization in an application that keeps a configuration
+file, you might consider something like this in your project class:
+
+  sub get_handle_via_config {
+    my $class = $_[0];
+    my $chosen_language = $Config_settings{'language'};
+    my $lh;
+    if($chosen_language) {
+      $lh = $class->get_handle($chosen_language)
+       || die "No language handle for \"$chosen_language\""
+            . " or the like";
+    } else {
+      # Config file missing, maybe?
+      $lh = $class->get_handle()
+       || die "Can't get a language handle";
+    }
+    return $lh;
+  }
+
+=item *
+
+$lh = YourProjClass::langname->new();
+
+This constructs a language handle.  You usually B<don't> call this
+directly, but instead let C<get_handle> find a language class to C<use>
+and to then call ->new on.
+
+=item *
+
+$lh->init();
+
+This is called by ->new to initialize newly-constructed language handles.
+If you define an init method in your class, remember that it's usually
+considered a good idea to call $lh->SUPER::init in it (presumably at the
+beginning), so that all classes get a chance to initialize a new object
+however they see fit.
+
+=item *
+
+YourProjClass->fallback_languages()
+
+C<get_handle> appends the return value of this to the end of
+whatever list of languages you pass C<get_handle>.  Unless
+you override this method, your project class
+will inherit Locale::Maketext's C<fallback_languages>, which
+currently returns C<('i-default', 'en', 'en-US')>.
+("i-default" is defined in RFC 2277).
+
+This method (by having it return the name
+of a language-tag that has an existing language class)
+can be used for making sure that
+C<get_handle> will always manage to construct a language
+handle (assuming your language classes are in an appropriate
+@INC directory).  Or you can use the next method:
+
+=item *
+
+YourProjClass->fallback_language_classes()
+
+C<get_handle> appends the return value of this to the end
+of the list of classes it will try using.  Unless
+you override this method, your project class
+will inherit Locale::Maketext's C<fallback_language_classes>,
+which currently returns an empty list, C<()>.
+By setting this to some value (namely, the name of a loadable
+language class), you can be sure that
+C<get_handle> will always manage to construct a language
+handle.
+
+=back
+
+=head2 The "maketext" Method
+
+This is the most important method in Locale::Maketext:
+
+    $text = $lh->maketext(I<key>, ...parameters for this phrase...);
+
+This looks in the %Lexicon of the language handle
+$lh and all its superclasses, looking
+for an entry whose key is the string I<key>.  Assuming such
+an entry is found, various things then happen, depending on the
+value found:
+
+If the value is a scalarref, the scalar is dereferenced and returned
+(and any parameters are ignored).
+
+If the value is a coderef, we return &$value($lh, ...parameters...).
+
+If the value is a string that I<doesn't> look like it's in Bracket Notation,
+we return it (after replacing it with a scalarref, in its %Lexicon).
+
+If the value I<does> look like it's in Bracket Notation, then we compile
+it into a sub, replace the string in the %Lexicon with the new coderef,
+and then we return &$new_sub($lh, ...parameters...).
+
+Bracket Notation is discussed in a later section.  Note
+that trying to compile a string into Bracket Notation can throw
+an exception if the string is not syntactically valid (say, by not
+balancing brackets right.)
+
+Also, calling &$coderef($lh, ...parameters...) can throw any sort of
+exception (if, say, code in that sub tries to divide by zero).  But
+a very common exception occurs when you have Bracket
+Notation text that says to call a method "foo", but there is no such
+method.  (E.g., "You have [quaB<tn>,_1,ball]." will throw an exception
+on trying to call $lh->quaB<tn>($_[1],'ball') -- you presumably meant
+"quant".)  C<maketext> catches these exceptions, but only to make the
+error message more readable, at which point it rethrows the exception.
+
+An exception I<may> be thrown if I<key> is not found in any
+of $lh's %Lexicon hashes.  What happens if a key is not found,
+is discussed in a later section, "Controlling Lookup Failure".
+
+Note that you might find it useful in some cases to override
+the C<maketext> method with an "after method", if you want to
+translate encodings, or even scripts:
+
+    package YrProj::zh_cn; # Chinese with PRC-style glyphs
+    use base ('YrProj::zh_tw');  # Taiwan-style
+    sub maketext {
+      my $self = shift(@_);
+      my $value = $self->maketext(@_);
+      return Chineeze::taiwan2mainland($value);
+    }
+
+Or you may want to override it with something that traps
+any exceptions, if that's critical to your program:
+
+  sub maketext {
+    my($lh, @stuff) = @_;
+    my $out;
+    eval { $out = $lh->SUPER::maketext(@stuff) };
+    return $out unless $@;
+    ...otherwise deal with the exception...
+  }
+
+Other than those two situations, I don't imagine that
+it's useful to override the C<maketext> method.  (If
+you run into a situation where it is useful, I'd be
+interested in hearing about it.)
+
+=over
+
+=item $lh->fail_with I<or> $lh->fail_with(I<PARAM>)
+
+=item $lh->failure_handler_auto
+
+These two methods are discussed in the section "Controlling
+Lookup Failure".
+
+=back
+
+=head2 Utility Methods
+
+These are methods that you may find it handy to use, generally
+from %Lexicon routines of yours (whether expressed as
+Bracket Notation or not).
+
+=over
+
+=item $language->quant($number, $singular)
+
+=item $language->quant($number, $singular, $plural)
+
+=item $language->quant($number, $singular, $plural, $negative)
+
+This is generally meant to be called from inside Bracket Notation
+(which is discussed later), as in 
+
+     "Your search matched [quant,_1,document]!"
+
+It's for I<quantifying> a noun (i.e., saying how much of it there is,
+while giving the correct form of it).  The behavior of this method is
+handy for English and a few other Western European languages, and you
+should override it for languages where it's not suitable.  You can feel
+free to read the source, but the current implementation is basically
+as this pseudocode describes:
+
+     if $number is 0 and there's a $negative,
+        return $negative;
+     elsif $number is 1,
+        return "1 $singular";
+     elsif there's a $plural,
+        return "$number $plural";
+     else
+        return "$number " . $singular . "s";
+     #
+     # ...except that we actually call numf to
+     #  stringify $number before returning it.
+
+So for English (with Bracket Notation)
+C<"...[quant,_1,file]..."> is fine (for 0 it returns "0 files",
+for 1 it returns "1 file", and for more it returns "2 files", etc.)
+
+But for "directory", you'd want C<"[quant,_1,directory,directories]">
+so that our elementary C<quant> method doesn't think that the
+plural of "directory" is "directorys".  And you might find that the
+output may sound better if you specify a negative form, as in:
+
+     "[quant,_1,file,files,No files] matched your query.\n"
+
+Remember to keep in mind verb agreement (or adjectives too, in
+other languages), as in:
+
+     "[quant,_1,document] were matched.\n"
+
+Because if _1 is one, you get "1 document B<were> matched".
+An acceptable hack here is to do something like this:
+
+     "[quant,_1,document was, documents were] matched.\n"
+
+=item $language->numf($number)
+
+This returns the given number formatted nicely according to
+this language's conventions.  Maketext's default method is
+mostly to just take the normal string form of the number
+(applying sprintf "%G" for only very large numbers), and then
+to add commas as necessary.  (Except that
+we apply C<tr/,./.,/> if $language->{'numf_comma'} is true;
+that's a bit of a hack that's useful for languages that express
+two million as "2.000.000" and not as "2,000,000").
+
+If you want anything fancier, consider overriding this with something
+that uses L<Number::Format|Number::Format>, or does something else
+entirely.
+
+Note that numf is called by quant for stringifying all quantifying
+numbers.
+
+=item $language->numerate($number, $singular, $plural, $negative)
+
+This returns the given noun form which is appropriate for the quantity
+C<$number> according to this language's conventions.  C<numerate> is
+used internally by C<quant> to quantify nouns.  Use it directly --
+usually from bracket notation -- to avoid C<quant>'s implicit call to
+C<numf> and output of a numeric quantity.
+
+=item $language->sprintf($format, @items)
+
+This is just a wrapper around Perl's normal C<sprintf> function.
+It's provided so that you can use "sprintf" in Bracket Notation:
+
+     "Couldn't access datanode [sprintf,%10x=~[%s~],_1,_2]!\n"
+
+returning...
+
+     Couldn't access datanode      Stuff=[thangamabob]!
+
+=item $language->language_tag()
+
+Currently this just takes the last bit of C<ref($language)>, turns
+underscores to dashes, and returns it.  So if $language is
+an object of class Hee::HOO::Haw::en_us, $language->language_tag()
+returns "en-us".  (Yes, the usual representation for that language
+tag is "en-US", but case is I<never> considered meaningful in
+language-tag comparison.)
+
+You may override this as you like; Maketext doesn't use it for
+anything.
+
+=item $language->encoding()
+
+Currently this isn't used for anything, but it's provided
+(with default value of
+C<(ref($language) && $language-E<gt>{'encoding'})) or "iso-8859-1">
+) as a sort of suggestion that it may be useful/necessary to
+associate encodings with your language handles (whether on a
+per-class or even per-handle basis.)
+
+=back
+
+=head2 Language Handle Attributes and Internals
+
+A language handle is a flyweight object -- i.e., it doesn't (necessarily)
+carry any data of interest, other than just being a member of
+whatever class it belongs to.
+
+A language handle is implemented as a blessed hash.  Subclasses of yours
+can store whatever data you want in the hash.  Currently the only hash
+entry used by any crucial Maketext method is "fail", so feel free to
+use anything else as you like.
+
+B<Remember: Don't be afraid to read the Maketext source if there's
+any point on which this documentation is unclear.>  This documentation
+is vastly longer than the module source itself.
+
+=head1 LANGUAGE CLASS HIERARCHIES
+
+These are Locale::Maketext's assumptions about the class
+hierarchy formed by all your language classes:
+
+=over
+
+=item *
+
+You must have a project base class, which you load, and
+which you then use as the first argument in
+the call to YourProjClass->get_handle(...).  It should derive
+(whether directly or indirectly) from Locale::Maketext.
+It B<doesn't matter> how you name this class, although assuming this
+is the localization component of your Super Mega Program,
+good names for your project class might be
+SuperMegaProgram::Localization, SuperMegaProgram::L10N,
+SuperMegaProgram::I18N, SuperMegaProgram::International,
+or even SuperMegaProgram::Languages or SuperMegaProgram::Messages.
+
+=item *
+
+Language classes are what YourProjClass->get_handle will try to load.
+It will look for them by taking each language-tag (B<skipping> it
+if it doesn't look like a language-tag or locale-tag!), turning it to
+all lowercase, turning dashes to underscores, and appending it
+to YourProjClass . "::".  So this:
+
+  $lh = YourProjClass->get_handle(
+    'en-US', 'fr', 'kon', 'i-klingon', 'i-klingon-romanized'
+  );
+
+will try loading the classes 
+YourProjClass::en_us (note lowercase!), YourProjClass::fr, 
+YourProjClass::kon,
+YourProjClass::i_klingon
+and YourProjClass::i_klingon_romanized.  (And it'll stop at the
+first one that actually loads.)
+
+=item *
+
+I assume that each language class derives (directly or indirectly)
+from your project class, and also defines its @ISA, its %Lexicon,
+or both.  But I anticipate no dire consequences if these assumptions
+do not hold.
+
+=item *
+
+Language classes may derive from other language classes (although they
+should have "use I<Thatclassname>" or "use base qw(I<...classes...>)").
+They may derive from the project
+class.  They may derive from some other class altogether.  Or via
+multiple inheritance, it may derive from any mixture of these.
+
+=item *
+
+I foresee no problems with having multiple inheritance in
+your hierarchy of language classes.  (As usual, however, Perl will
+complain bitterly if you have a cycle in the hierarchy: i.e., if
+any class is its own ancestor.)
+
+=back
+
+=head1 ENTRIES IN EACH LEXICON
+
+A typical %Lexicon entry is meant to signify a phrase,
+taking some number (0 or more) of parameters.  An entry
+is meant to be accessed by via
+a string I<key> in $lh->maketext(I<key>, ...parameters...),
+which should return a string that is generally meant for
+be used for "output" to the user -- regardless of whether
+this actually means printing to STDOUT, writing to a file,
+or putting into a GUI widget.
+
+While the key must be a string value (since that's a basic
+restriction that Perl places on hash keys), the value in
+the lexicon can currently be of several types:
+a defined scalar, scalarref, or coderef.  The use of these is
+explained above, in the section 'The "maketext" Method', and
+Bracket Notation for strings is discussed in the next section.
+
+While you can use arbitrary unique IDs for lexicon keys
+(like "_min_larger_max_error"), it is often
+useful for if an entry's key is itself a valid value, like
+this example error message:
+
+  "Minimum ([_1]) is larger than maximum ([_2])!\n",
+
+Compare this code that uses an arbitrary ID...
+
+  die $lh->maketext( "_min_larger_max_error", $min, $max )
+   if $min > $max;
+
+...to this code that uses a key-as-value:
+
+  die $lh->maketext(
+   "Minimum ([_1]) is larger than maximum ([_2])!\n",
+   $min, $max
+  ) if $min > $max;
+
+The second is, in short, more readable.  In particular, it's obvious
+that the number of parameters you're feeding to that phrase (two) is
+the number of parameters that it I<wants> to be fed.  (Since you see
+_1 and a _2 being used in the key there.)
+
+Also, once a project is otherwise
+complete and you start to localize it, you can scrape together
+all the various keys you use, and pass it to a translator; and then
+the translator's work will go faster if what he's presented is this:
+
+ "Minimum ([_1]) is larger than maximum ([_2])!\n",
+  => "",   # fill in something here, Jacques!
+
+rather than this more cryptic mess:
+
+ "_min_larger_max_error"
+  => "",   # fill in something here, Jacques
+
+I think that keys as lexicon values makes the completed lexicon
+entries more readable:
+
+ "Minimum ([_1]) is larger than maximum ([_2])!\n",
+  => "Le minimum ([_1]) est plus grand que le maximum ([_2])!\n",
+
+Also, having valid values as keys becomes very useful if you set
+up an _AUTO lexicon.  _AUTO lexicons are discussed in a later
+section.
+
+I almost always use keys that are themselves
+valid lexicon values.  One notable exception is when the value is
+quite long.  For example, to get the screenful of data that
+a command-line program might return when given an unknown switch,
+I often just use a brief, self-explanatory key such as "_USAGE_MESSAGE".  At that point I then go
+and immediately to define that lexicon entry in the
+ProjectClass::L10N::en lexicon (since English is always my "project
+language"):
+
+  '_USAGE_MESSAGE' => <<'EOSTUFF',
+  ...long long message...
+  EOSTUFF
+
+and then I can use it as:
+
+  getopt('oDI', \%opts) or die $lh->maketext('_USAGE_MESSAGE');
+
+Incidentally,
+note that each class's C<%Lexicon> inherits-and-extends
+the lexicons in its superclasses.  This is not because these are
+special hashes I<per se>, but because you access them via the
+C<maketext> method, which looks for entries across all the
+C<%Lexicon> hashes in a language class I<and> all its ancestor classes.
+(This is because the idea of "class data" isn't directly implemented
+in Perl, but is instead left to individual class-systems to implement
+as they see fit..)
+
+Note that you may have things stored in a lexicon
+besides just phrases for output:  for example, if your program
+takes input from the keyboard, asking a "(Y/N)" question,
+you probably need to know what the equivalent of "Y[es]/N[o]" is
+in whatever language.  You probably also need to know what
+the equivalents of the answers "y" and "n" are.  You can
+store that information in the lexicon (say, under the keys
+"~answer_y" and "~answer_n", and the long forms as
+"~answer_yes" and "~answer_no", where "~" is just an ad-hoc
+character meant to indicate to programmers/translators that
+these are not phrases for output).
+
+Or instead of storing this in the language class's lexicon,
+you can (and, in some cases, really should) represent the same bit
+of knowledge as code in a method in the language class.  (That
+leaves a tidy distinction between the lexicon as the things we
+know how to I<say>, and the rest of the things in the lexicon class
+as things that we know how to I<do>.)  Consider
+this example of a processor for responses to French "oui/non"
+questions:
+
+  sub y_or_n {
+    return undef unless defined $_[1] and length $_[1];
+    my $answer = lc $_[1];  # smash case
+    return 1 if $answer eq 'o' or $answer eq 'oui';
+    return 0 if $answer eq 'n' or $answer eq 'non';
+    return undef;
+  }
+
+...which you'd then call in a construct like this:
+
+  my $response;
+  until(defined $response) {
+    print $lh->maketext("Open the pod bay door (y/n)? ");
+    $response = $lh->y_or_n( get_input_from_keyboard_somehow() );
+  }
+  if($response) { $pod_bay_door->open()         }
+  else          { $pod_bay_door->leave_closed() }
+
+Other data worth storing in a lexicon might be things like
+filenames for language-targetted resources:
+
+  ...
+  "_main_splash_png"
+    => "/styles/en_us/main_splash.png",
+  "_main_splash_imagemap"
+    => "/styles/en_us/main_splash.incl",
+  "_general_graphics_path"
+    => "/styles/en_us/",
+  "_alert_sound"
+    => "/styles/en_us/hey_there.wav",
+  "_forward_icon"
+   => "left_arrow.png",
+  "_backward_icon"
+   => "right_arrow.png",
+  # In some other languages, left equals
+  #  BACKwards, and right is FOREwards.
+  ...
+
+You might want to do the same thing for expressing key bindings
+or the like (since hardwiring "q" as the binding for the function
+that quits a screen/menu/program is useful only if your language
+happens to associate "q" with "quit"!)
+
+=head1 BRACKET NOTATION
+
+Bracket Notation is a crucial feature of Locale::Maketext.  I mean
+Bracket Notation to provide a replacement for the use of sprintf formatting.
+Everything you do with Bracket Notation could be done with a sub block,
+but bracket notation is meant to be much more concise.
+
+Bracket Notation is a like a miniature "template" system (in the sense
+of L<Text::Template|Text::Template>, not in the sense of C++ templates),
+where normal text is passed thru basically as is, but text in special
+regions is specially interpreted.  In Bracket Notation, you use square brackets ("[...]"),
+not curly braces ("{...}") to note sections that are specially interpreted.
+
+For example, here all the areas that are taken literally are underlined with
+a "^", and all the in-bracket special regions are underlined with an X:
+
+  "Minimum ([_1]) is larger than maximum ([_2])!\n",
+   ^^^^^^^^^ XX ^^^^^^^^^^^^^^^^^^^^^^^^^^ XX ^^^^
+
+When that string is compiled from bracket notation into a real Perl sub,
+it's basically turned into:
+
+  sub {
+    my $lh = $_[0];
+    my @params = @_;
+    return join '',
+      "Minimum (",
+      ...some code here...
+      ") is larger than maximum (",
+      ...some code here...
+      ")!\n",
+  }
+  # to be called by $lh->maketext(KEY, params...)
+
+In other words, text outside bracket groups is turned into string
+literals.  Text in brackets is rather more complex, and currently follows
+these rules:
+
+=over
+
+=item *
+
+Bracket groups that are empty, or which consist only of whitespace,
+are ignored.  (Examples: "[]", "[    ]", or a [ and a ] with returns
+and/or tabs and/or spaces between them.
+
+Otherwise, each group is taken to be a comma-separated group of items,
+and each item is interpreted as follows:
+
+=item *
+
+An item that is "_I<digits>" or "_-I<digits>" is interpreted as
+$_[I<value>].  I.e., "_1" becomes with $_[1], and "_-3" is interpreted
+as $_[-3] (in which case @_ should have at least three elements in it).
+Note that $_[0] is the language handle, and is typically not named
+directly.
+
+=item *
+
+An item "_*" is interpreted to mean "all of @_ except $_[0]".
+I.e., C<@_[1..$#_]>.  Note that this is an empty list in the case
+of calls like $lh->maketext(I<key>) where there are no
+parameters (except $_[0], the language handle).
+
+=item *
+
+Otherwise, each item is interpreted as a string literal.
+
+=back
+
+The group as a whole is interpreted as follows:
+
+=over
+
+=item *
+
+If the first item in a bracket group looks like a method name,
+then that group is interpreted like this:
+
+  $lh->that_method_name(
+    ...rest of items in this group...
+  ),
+
+=item *
+
+If the first item in a bracket group is "*", it's taken as shorthand
+for the so commonly called "quant" method.  Similarly, if the first
+item in a bracket group is "#", it's taken to be shorthand for
+"numf".
+
+=item *
+
+If the first item in a bracket group is the empty-string, or "_*"
+or "_I<digits>" or "_-I<digits>", then that group is interpreted
+as just the interpolation of all its items:
+
+  join('',
+    ...rest of items in this group...
+  ),
+
+Examples:  "[_1]" and "[,_1]", which are synonymous; and
+"C<[,ID-(,_4,-,_2,)]>", which compiles as
+C<join "", "ID-(", $_[4], "-", $_[2], ")">.
+
+=item *
+
+Otherwise this bracket group is invalid.  For example, in the group
+"[!@#,whatever]", the first item C<"!@#"> is neither the empty-string,
+"_I<number>", "_-I<number>", "_*", nor a valid method name; and so
+Locale::Maketext will throw an exception of you try compiling an
+expression containing this bracket group.
+
+=back
+
+Note, incidentally, that items in each group are comma-separated,
+not C</\s*,\s*/>-separated.  That is, you might expect that this
+bracket group:
+
+  "Hoohah [foo, _1 , bar ,baz]!"
+
+would compile to this:
+
+  sub {
+    my $lh = $_[0];
+    return join '',
+      "Hoohah ",
+      $lh->foo( $_[1], "bar", "baz"),
+      "!",
+  }
+
+But it actually compiles as this:
+
+  sub {
+    my $lh = $_[0];
+    return join '',
+      "Hoohah ",
+      $lh->foo(" _1 ", " bar ", "baz"),  # note the <space> in " bar "
+      "!",
+  }
+
+In the notation discussed so far, the characters "[" and "]" are given
+special meaning, for opening and closing bracket groups, and "," has
+a special meaning inside bracket groups, where it separates items in the
+group.  This begs the question of how you'd express a literal "[" or
+"]" in a Bracket Notation string, and how you'd express a literal
+comma inside a bracket group.  For this purpose I've adopted "~" (tilde)
+as an escape character:  "~[" means a literal '[' character anywhere
+in Bracket Notation (i.e., regardless of whether you're in a bracket
+group or not), and ditto for "~]" meaning a literal ']', and "~," meaning
+a literal comma.  (Altho "," means a literal comma outside of
+bracket groups -- it's only inside bracket groups that commas are special.)
+
+And on the off chance you need a literal tilde in a bracket expression,
+you get it with "~~".
+
+Currently, an unescaped "~" before a character
+other than a bracket or a comma is taken to mean just a "~" and that
+character.  I.e., "~X" means the same as "~~X" -- i.e., one literal tilde,
+and then one literal "X".  However, by using "~X", you are assuming that
+no future version of Maketext will use "~X" as a magic escape sequence.
+In practice this is not a great problem, since first off you can just
+write "~~X" and not worry about it; second off, I doubt I'll add lots
+of new magic characters to bracket notation; and third off, you
+aren't likely to want literal "~" characters in your messages anyway,
+since it's not a character with wide use in natural language text.
+
+Brackets must be balanced -- every openbracket must have
+one matching closebracket, and vice versa.  So these are all B<invalid>:
+
+  "I ate [quant,_1,rhubarb pie."
+  "I ate [quant,_1,rhubarb pie[."
+  "I ate quant,_1,rhubarb pie]."
+  "I ate quant,_1,rhubarb pie[."
+
+Currently, bracket groups do not nest.  That is, you B<cannot> say:
+
+  "Foo [bar,baz,[quux,quuux]]\n";
+
+If you need a notation that's that powerful, use normal Perl:
+
+  %Lexicon = (
+    ...
+    "some_key" => sub {
+      my $lh = $_[0];
+      join '',
+        "Foo ",
+        $lh->bar('baz', $lh->quux('quuux')),
+        "\n",
+    },
+    ...
+  );
+
+Or write the "bar" method so you don't need to pass it the
+output from calling quux.
+
+I do not anticipate that you will need (or particularly want)
+to nest bracket groups, but you are welcome to email me with
+convincing (real-life) arguments to the contrary.
+
+=head1 AUTO LEXICONS
+
+If maketext goes to look in an individual %Lexicon for an entry
+for I<key> (where I<key> does not start with an underscore), and
+sees none, B<but does see> an entry of "_AUTO" => I<some_true_value>,
+then we actually define $Lexicon{I<key>} = I<key> right then and there,
+and then use that value as if it had been there all
+along.  This happens before we even look in any superclass %Lexicons!
+
+(This is meant to be somewhat like the AUTOLOAD mechanism in
+Perl's function call system -- or, looked at another way,
+like the L<AutoLoader|AutoLoader> module.)
+
+I can picture all sorts of circumstances where you just
+do not want lookup to be able to fail (since failing
+normally means that maketext throws a C<die>, although
+see the next section for greater control over that).  But
+here's one circumstance where _AUTO lexicons are meant to
+be I<especially> useful:
+
+As you're writing an application, you decide as you go what messages
+you need to emit.  Normally you'd go to write this:
+
+  if(-e $filename) {
+    go_process_file($filename)
+  } else {
+    print qq{Couldn't find file "$filename"!\n};
+  }
+
+but since you anticipate localizing this, you write:
+
+  use ThisProject::I18N;
+  my $lh = ThisProject::I18N->get_handle();
+   # For the moment, assume that things are set up so
+   # that we load class ThisProject::I18N::en
+   # and that that's the class that $lh belongs to.
+  ...
+  if(-e $filename) {
+    go_process_file($filename)
+  } else {
+    print $lh->maketext(
+      qq{Couldn't find file "[_1]"!\n}, $filename
+    );
+  }
+
+Now, right after you've just written the above lines, you'd
+normally have to go open the file 
+ThisProject/I18N/en.pm, and immediately add an entry:
+
+  "Couldn't find file \"[_1]\"!\n"
+  => "Couldn't find file \"[_1]\"!\n",
+
+But I consider that somewhat of a distraction from the work
+of getting the main code working -- to say nothing of the fact
+that I often have to play with the program a few times before
+I can decide exactly what wording I want in the messages (which
+in this case would require me to go changing three lines of code:
+the call to maketext with that key, and then the two lines in
+ThisProject/I18N/en.pm).
+
+However, if you set "_AUTO => 1" in the %Lexicon in,
+ThisProject/I18N/en.pm (assuming that English (en) is
+the language that all your programmers will be using for this
+project's internal message keys), then you don't ever have to
+go adding lines like this
+
+  "Couldn't find file \"[_1]\"!\n"
+  => "Couldn't find file \"[_1]\"!\n",
+
+to ThisProject/I18N/en.pm, because if _AUTO is true there,
+then just looking for an entry with the key "Couldn't find
+file \"[_1]\"!\n" in that lexicon will cause it to be added,
+with that value!
+
+Note that the reason that keys that start with "_"
+are immune to _AUTO isn't anything generally magical about
+the underscore character -- I just wanted a way to have most
+lexicon keys be autoable, except for possibly a few, and I
+arbitrarily decided to use a leading underscore as a signal
+to distinguish those few.
+
+=head1 READONLY LEXICONS
+
+If your lexicon is a tied hash the simple act of caching the compiled value can be fatal.
+
+For example a L<GDBM_File> GDBM_READER tied hash will die with something like:
+
+   gdbm store returned -1, errno 2, key "..." at ...
+
+All you need to do is turn on caching outside of the lexicon hash itself like so:
+
+   sub init {
+       my ($lh) = @_;
+       ...
+       $lh->{'use_external_lex_cache'} = 1;
+       ...
+   }
+
+And then instead of storing the compiled value in the lexicon hash it will store it in $lh->{'_external_lex_cache'}
+
+=head1 CONTROLLING LOOKUP FAILURE
+
+If you call $lh->maketext(I<key>, ...parameters...),
+and there's no entry I<key> in $lh's class's %Lexicon, nor
+in the superclass %Lexicon hash, I<and> if we can't auto-make
+I<key> (because either it starts with a "_", or because none
+of its lexicons have C<_AUTO =E<gt> 1,>), then we have
+failed to find a normal way to maketext I<key>.  What then
+happens in these failure conditions, depends on the $lh object's
+"fail" attribute.
+
+If the language handle has no "fail" attribute, maketext
+will simply throw an exception (i.e., it calls C<die>, mentioning
+the I<key> whose lookup failed, and naming the line number where
+the calling $lh->maketext(I<key>,...) was.
+
+If the language handle has a "fail" attribute whose value is a
+coderef, then $lh->maketext(I<key>,...params...) gives up and calls:
+
+  return $that_subref->($lh, $key, @params);
+
+Otherwise, the "fail" attribute's value should be a string denoting
+a method name, so that $lh->maketext(I<key>,...params...) can
+give up with:
+
+  return $lh->$that_method_name($phrase, @params);
+
+The "fail" attribute can be accessed with the C<fail_with> method:
+
+  # Set to a coderef:
+  $lh->fail_with( \&failure_handler );
+
+  # Set to a method name:
+  $lh->fail_with( 'failure_method' );
+
+  # Set to nothing (i.e., so failure throws a plain exception)
+  $lh->fail_with( undef );
+
+  # Get the current value
+  $handler = $lh->fail_with();
+
+Now, as to what you may want to do with these handlers:  Maybe you'd
+want to log what key failed for what class, and then die.  Maybe
+you don't like C<die> and instead you want to send the error message
+to STDOUT (or wherever) and then merely C<exit()>.
+
+Or maybe you don't want to C<die> at all!  Maybe you could use a
+handler like this:
+
+  # Make all lookups fall back onto an English value,
+  #  but only after we log it for later fingerpointing.
+  my $lh_backup = ThisProject->get_handle('en');
+  open(LEX_FAIL_LOG, ">>wherever/lex.log") || die "GNAARGH $!";
+  sub lex_fail {
+    my($failing_lh, $key, $params) = @_;
+    print LEX_FAIL_LOG scalar(localtime), "\t",
+       ref($failing_lh), "\t", $key, "\n";
+    return $lh_backup->maketext($key,@params);
+  }
+
+Some users have expressed that they think this whole mechanism of
+having a "fail" attribute at all, seems a rather pointless complication.
+But I want Locale::Maketext to be usable for software projects of I<any>
+scale and type; and different software projects have different ideas
+of what the right thing is to do in failure conditions.  I could simply
+say that failure always throws an exception, and that if you want to be
+careful, you'll just have to wrap every call to $lh->maketext in an
+S<eval { }>.  However, I want programmers to reserve the right (via
+the "fail" attribute) to treat lookup failure as something other than
+an exception of the same level of severity as a config file being
+unreadable, or some essential resource being inaccessible.
+
+One possibly useful value for the "fail" attribute is the method name
+"failure_handler_auto".  This is a method defined in the class
+Locale::Maketext itself.  You set it with:
+
+  $lh->fail_with('failure_handler_auto');
+
+Then when you call $lh->maketext(I<key>, ...parameters...) and
+there's no I<key> in any of those lexicons, maketext gives up with
+
+  return $lh->failure_handler_auto($key, @params);
+
+But failure_handler_auto, instead of dying or anything, compiles
+$key, caching it in
+
+    $lh->{'failure_lex'}{$key} = $compiled
+
+and then calls the compiled value, and returns that.  (I.e., if
+$key looks like bracket notation, $compiled is a sub, and we return
+&{$compiled}(@params); but if $key is just a plain string, we just
+return that.)
+
+The effect of using "failure_auto_handler"
+is like an AUTO lexicon, except that it 1) compiles $key even if
+it starts with "_", and 2) you have a record in the new hashref
+$lh->{'failure_lex'} of all the keys that have failed for
+this object.  This should avoid your program dying -- as long
+as your keys aren't actually invalid as bracket code, and as
+long as they don't try calling methods that don't exist.
+
+"failure_auto_handler" may not be exactly what you want, but I
+hope it at least shows you that maketext failure can be mitigated
+in any number of very flexible ways.  If you can formalize exactly
+what you want, you should be able to express that as a failure
+handler.  You can even make it default for every object of a given
+class, by setting it in that class's init:
+
+  sub init {
+    my $lh = $_[0];  # a newborn handle
+    $lh->SUPER::init();
+    $lh->fail_with('my_clever_failure_handler');
+    return;
+  }
+  sub my_clever_failure_handler {
+    ...you clever things here...
+  }
+
+=head1 HOW TO USE MAKETEXT
+
+Here is a brief checklist on how to use Maketext to localize
+applications:
+
+=over
+
+=item *
+
+Decide what system you'll use for lexicon keys.  If you insist,
+you can use opaque IDs (if you're nostalgic for C<catgets>),
+but I have better suggestions in the
+section "Entries in Each Lexicon", above.  Assuming you opt for
+meaningful keys that double as values (like "Minimum ([_1]) is
+larger than maximum ([_2])!\n"), you'll have to settle on what
+language those should be in.  For the sake of argument, I'll
+call this English, specifically American English, "en-US".
+
+=item *
+
+Create a class for your localization project.  This is
+the name of the class that you'll use in the idiom:
+
+  use Projname::L10N;
+  my $lh = Projname::L10N->get_handle(...) || die "Language?";
+
+Assuming you call your class Projname::L10N, create a class
+consisting minimally of:
+
+  package Projname::L10N;
+  use base qw(Locale::Maketext);
+  ...any methods you might want all your languages to share...
+
+  # And, assuming you want the base class to be an _AUTO lexicon,
+  # as is discussed a few sections up:
+
+  1;
+
+=item *
+
+Create a class for the language your internal keys are in.  Name
+the class after the language-tag for that language, in lowercase,
+with dashes changed to underscores.  Assuming your project's first
+language is US English, you should call this Projname::L10N::en_us.
+It should consist minimally of:
+
+  package Projname::L10N::en_us;
+  use base qw(Projname::L10N);
+  %Lexicon = (
+    '_AUTO' => 1,
+  );
+  1;
+
+(For the rest of this section, I'll assume that this "first
+language class" of Projname::L10N::en_us has
+_AUTO lexicon.)
+
+=item *
+
+Go and write your program.  Everywhere in your program where 
+you would say:
+
+  print "Foobar $thing stuff\n";
+
+instead do it thru maketext, using no variable interpolation in
+the key:
+
+  print $lh->maketext("Foobar [_1] stuff\n", $thing);
+
+If you get tired of constantly saying C<print $lh-E<gt>maketext>,
+consider making a functional wrapper for it, like so:
+
+  use Projname::L10N;
+  use vars qw($lh);
+  $lh = Projname::L10N->get_handle(...) || die "Language?";
+  sub pmt (@) { print( $lh->maketext(@_)) }
+   # "pmt" is short for "Print MakeText"
+  $Carp::Verbose = 1;
+   # so if maketext fails, we see made the call to pmt
+
+Besides whole phrases meant for output, anything language-dependent
+should be put into the class Projname::L10N::en_us,
+whether as methods, or as lexicon entries -- this is discussed
+in the section "Entries in Each Lexicon", above.
+
+=item *
+
+Once the program is otherwise done, and once its localization for
+the first language works right (via the data and methods in
+Projname::L10N::en_us), you can get together the data for translation.
+If your first language lexicon isn't an _AUTO lexicon, then you already
+have all the messages explicitly in the lexicon (or else you'd be
+getting exceptions thrown when you call $lh->maketext to get
+messages that aren't in there).  But if you were (advisedly) lazy and are
+using an _AUTO lexicon, then you've got to make a list of all the phrases
+that you've so far been letting _AUTO generate for you.  There are very
+many ways to assemble such a list.  The most straightforward is to simply
+grep the source for every occurrence of "maketext" (or calls
+to wrappers around it, like the above C<pmt> function), and to log the
+following phrase.
+
+=item *
+
+You may at this point want to consider whether your base class 
+(Projname::L10N), from which all lexicons inherit from (Projname::L10N::en,
+Projname::L10N::es, etc.), should be an _AUTO lexicon.  It may be true
+that in theory, all needed messages will be in each language class;
+but in the presumably unlikely or "impossible" case of lookup failure,
+you should consider whether your program should throw an exception,
+emit text in English (or whatever your project's first language is),
+or some more complex solution as described in the section
+"Controlling Lookup Failure", above.
+
+=item *
+
+Submit all messages/phrases/etc. to translators.
+
+(You may, in fact, want to start with localizing to I<one> other language
+at first, if you're not sure that you've properly abstracted the
+language-dependent parts of your code.)
+
+Translators may request clarification of the situation in which a
+particular phrase is found.  For example, in English we are entirely happy
+saying "I<n> files found", regardless of whether we mean "I looked for files,
+and found I<n> of them" or the rather distinct situation of "I looked for
+something else (like lines in files), and along the way I saw I<n>
+files."  This may involve rethinking things that you thought quite clear:
+should "Edit" on a toolbar be a noun ("editing") or a verb ("to edit")?  Is
+there already a conventionalized way to express that menu option, separate
+from the target language's normal word for "to edit"?
+
+In all cases where the very common phenomenon of quantification
+(saying "I<N> files", for B<any> value of N)
+is involved, each translator should make clear what dependencies the
+number causes in the sentence.  In many cases, dependency is
+limited to words adjacent to the number, in places where you might
+expect them ("I found the-?PLURAL I<N>
+empty-?PLURAL directory-?PLURAL"), but in some cases there are
+unexpected dependencies ("I found-?PLURAL ..."!) as well as long-distance
+dependencies "The I<N> directory-?PLURAL could not be deleted-?PLURAL"!).
+
+Remind the translators to consider the case where N is 0:
+"0 files found" isn't exactly natural-sounding in any language, but it
+may be unacceptable in many -- or it may condition special
+kinds of agreement (similar to English "I didN'T find ANY files").
+
+Remember to ask your translators about numeral formatting in their
+language, so that you can override the C<numf> method as
+appropriate.  Typical variables in number formatting are:  what to
+use as a decimal point (comma? period?); what to use as a thousands
+separator (space? nonbreaking space? comma? period? small
+middot? prime? apostrophe?); and even whether the so-called "thousands
+separator" is actually for every third digit -- I've heard reports of
+two hundred thousand being expressible as "2,00,000" for some Indian
+(Subcontinental) languages, besides the less surprising "S<200 000>",
+"200.000", "200,000", and "200'000".  Also, using a set of numeral
+glyphs other than the usual ASCII "0"-"9" might be appreciated, as via
+C<tr/0-9/\x{0966}-\x{096F}/> for getting digits in Devanagari script
+(for Hindi, Konkani, others).
+
+The basic C<quant> method that Locale::Maketext provides should be
+good for many languages.  For some languages, it might be useful
+to modify it (or its constituent C<numerate> method)
+to take a plural form in the two-argument call to C<quant>
+(as in "[quant,_1,files]") if
+it's all-around easier to infer the singular form from the plural, than
+to infer the plural form from the singular.
+
+But for other languages (as is discussed at length
+in L<Locale::Maketext::TPJ13|Locale::Maketext::TPJ13>), simple
+C<quant>/C<numf> is not enough.  For the particularly problematic
+Slavic languages, what you may need is a method which you provide
+with the number, the citation form of the noun to quantify, and
+the case and gender that the sentence's syntax projects onto that
+noun slot.  The method would then be responsible for determining
+what grammatical number that numeral projects onto its noun phrase,
+and what case and gender it may override the normal case and gender
+with; and then it would look up the noun in a lexicon providing
+all needed inflected forms.
+
+=item *
+
+You may also wish to discuss with the translators the question of
+how to relate different subforms of the same language tag,
+considering how this reacts with C<get_handle>'s treatment of
+these.  For example, if a user accepts interfaces in "en, fr", and
+you have interfaces available in "en-US" and "fr", what should
+they get?  You may wish to resolve this by establishing that "en"
+and "en-US" are effectively synonymous, by having one class
+zero-derive from the other.
+
+For some languages this issue may never come up (Danish is rarely
+expressed as "da-DK", but instead is just "da").  And for other
+languages, the whole concept of a "generic" form may verge on
+being uselessly vague, particularly for interfaces involving voice
+media in forms of Arabic or Chinese.
+
+=item *
+
+Once you've localized your program/site/etc. for all desired
+languages, be sure to show the result (whether live, or via
+screenshots) to the translators.  Once they approve, make every
+effort to have it then checked by at least one other speaker of
+that language.  This holds true even when (or especially when) the
+translation is done by one of your own programmers.  Some
+kinds of systems may be harder to find testers for than others,
+depending on the amount of domain-specific jargon and concepts
+involved -- it's easier to find people who can tell you whether
+they approve of your translation for "delete this message" in an
+email-via-Web interface, than to find people who can give you
+an informed opinion on your translation for "attribute value"
+in an XML query tool's interface.
+
+=back
+
+=head1 SEE ALSO
+
+I recommend reading all of these:
+
+L<Locale::Maketext::TPJ13|Locale::Maketext::TPJ13> -- my I<The Perl
+Journal> article about Maketext.  It explains many important concepts
+underlying Locale::Maketext's design, and some insight into why
+Maketext is better than the plain old approach of having 
+message catalogs that are just databases of sprintf formats.
+
+L<File::Findgrep|File::Findgrep> is a sample application/module
+that uses Locale::Maketext to localize its messages.  For a larger
+internationalized system, see also L<Apache::MP3>.
+
+L<I18N::LangTags|I18N::LangTags>.
+
+L<Win32::Locale|Win32::Locale>.
+
+RFC 3066, I<Tags for the Identification of Languages>,
+as at http://sunsite.dk/RFC/rfc/rfc3066.html
+
+RFC 2277, I<IETF Policy on Character Sets and Languages>
+is at http://sunsite.dk/RFC/rfc/rfc2277.html -- much of it is
+just things of interest to protocol designers, but it explains
+some basic concepts, like the distinction between locales and
+language-tags.
+
+The manual for GNU C<gettext>.  The gettext dist is available in
+C<ftp://prep.ai.mit.edu/pub/gnu/> -- get
+a recent gettext tarball and look in its "doc/" directory, there's
+an easily browsable HTML version in there.  The
+gettext documentation asks lots of questions worth thinking
+about, even if some of their answers are sometimes wonky,
+particularly where they start talking about pluralization.
+
+The Locale/Maketext.pm source.  Observe that the module is much
+shorter than its documentation!
+
+=head1 COPYRIGHT AND DISCLAIMER
+
+Copyright (c) 1999-2004 Sean M. Burke.  All rights reserved.
+
+This library is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
+This program is distributed in the hope that it will be useful, but
+without any warranty; without even the implied warranty of
+merchantability or fitness for a particular purpose.
+
+=head1 AUTHOR
+
+Sean M. Burke C<sburke@cpan.org>
+
+=cut
diff --git a/lib/5.24.1/Locale/Maketext/Cookbook.pod b/lib/5.24.1/Locale/Maketext/Cookbook.pod
new file mode 100644
index 00000000..3457f7ca
--- /dev/null
+++ b/lib/5.24.1/Locale/Maketext/Cookbook.pod
@@ -0,0 +1,150 @@
+# This document contains text in Perl "POD" format.
+# Use a POD viewer like perldoc or perlman to render it.
+
+=encoding utf-8
+
+=head1 NAME
+
+Locale::Maketext::Cookbook - recipes for using Locale::Maketext
+
+=head1 INTRODUCTION
+
+This is a work in progress. Not much progress by now :-)
+
+=head1 ONESIDED LEXICONS
+
+I<Adapted from a suggestion by Dan Muey>
+
+It may be common (for example at your main lexicon) that
+the hash keys and values coincide. Like that
+
+    q{Hello, tell me your name} 
+      => q{Hello, tell me your name}
+
+It would be nice to just write:
+
+    q{Hello, tell me your name} => ''
+
+and have this magically inflated to the first form.
+Among the advantages of such representation, that would
+lead to  
+smaller files, less prone to mistyping or mispasting, 
+and handy to someone translating it which can simply 
+copy the main lexicon and enter the translation 
+instead of having to remove the value first.
+
+That can be achieved by overriding C<init>
+in your class and working on the main lexicon
+with code like that:
+
+    package My::I18N;
+    ...
+
+    sub init {
+        my $lh = shift; # a newborn handle
+        $lh->SUPER::init();
+        inflate_lexicon(\%My::I18N::en::Lexicon);
+        return;
+    }
+
+    sub inflate_lexicon {
+        my $lex = shift;
+        while (my ($k, $v) = each %$lex) {
+            $v = $k if !defined $v || $v eq '';
+        }
+    }
+
+Here we are assuming C<My::I18N::en> to own the
+main lexicon.
+
+There are some downsides here: the size economy
+will not stand at runtime after this C<init()>
+runs. But it should not be that critical, since
+if you don't have space for that, you won't have
+space for any other language besides the main one
+as well. You could do that too with ties,
+expanding the value at lookup time which
+should be more time expensive as an option.
+
+=head1 DECIMAL PLACES IN NUMBER FORMATTING
+
+I<After CPAN RT #36136 (https://rt.cpan.org/Ticket/Display.html?id=36136)>
+
+The documentation of L<Locale::Maketext> advises that 
+the standard bracket method C<numf> is limited and that
+you must override that for better results. It even
+suggests the use of L<Number::Format>.
+
+One such defect of standard C<numf> is to not be
+able to use a certain decimal precision.
+For example, 
+
+    $lh->maketext('pi is [numf,_1]', 355/113);
+
+outputs
+
+    pi is 3.14159292035398 
+
+Since pi ≈ 355/116 is only accurate 
+to 6 decimal places, you would want to say:
+
+    $lh->maketext('pi is [numf,_1,6]', 355/113); 
+
+and get "pi is 3.141592".
+
+One solution for that could use C<Number::Format>
+like that:
+
+    package Wuu;
+
+    use base qw(Locale::Maketext);
+
+    use Number::Format;
+
+    # can be overridden according to language conventions
+    sub _numf_params {
+        return (
+            -thousands_sep  => '.',
+            -decimal_point  => ',',
+            -decimal_digits => 2,
+        );
+    }
+
+    # builds a Number::Format
+    sub _numf_formatter {
+        my ($lh, $scale) = @_;
+        my @params = $lh->_numf_params;
+        if ($scale) { # use explicit scale rather than default
+            push @params, (-decimal_digits => $scale);
+        }
+        return Number::Format->new(@params);
+    }
+
+    sub numf {
+        my ($lh, $n, $scale) = @_;
+        # get the (cached) formatter
+        my $nf = $lh->{__nf}{$scale} ||= $lh->_numf_formatter($scale);
+        # format the number itself
+        return $nf->format_number($n);
+    }
+
+    package Wuu::pt;
+
+    use base qw(Wuu);
+
+and then 
+
+    my $lh = Wuu->get_handle('pt');
+    $lh->maketext('A [numf,_1,3] km de distância', 1550.2222);
+
+would return "A 1.550,222 km de distância".
+
+Notice that the standard utility methods of 
+C<Locale::Maketext> are irremediably limited
+because they could not aim to do everything
+that could be expected from them in different languages,
+cultures and applications. So extending C<numf>,
+C<quant>, and C<sprintf> is natural as soon
+as your needs exceed what the standard ones do.
+
+
diff --git a/lib/5.24.1/Locale/Maketext/Guts.pm b/lib/5.24.1/Locale/Maketext/Guts.pm
new file mode 100644
index 00000000..9e78c7e0
--- /dev/null
+++ b/lib/5.24.1/Locale/Maketext/Guts.pm
@@ -0,0 +1,24 @@
+package Locale::Maketext::Guts;
+
+use Locale::Maketext;
+
+our $VERSION = '1.20';
+
+=head1 NAME
+
+Locale::Maketext::Guts - Deprecated module to load Locale::Maketext utf8 code
+
+=head1 SYNOPSIS
+
+  # Do this instead please
+  use Locale::Maketext
+
+=head1 DESCRIPTION
+
+Previously Local::Maketext::GutsLoader performed some magic to load
+Locale::Maketext when utf8 was unavailable. The subs this module provided
+were merged back into Locale::Maketext
+
+=cut
+
+1;
diff --git a/lib/5.24.1/Locale/Maketext/GutsLoader.pm b/lib/5.24.1/Locale/Maketext/GutsLoader.pm
new file mode 100644
index 00000000..35a71ab5
--- /dev/null
+++ b/lib/5.24.1/Locale/Maketext/GutsLoader.pm
@@ -0,0 +1,26 @@
+package Locale::Maketext::GutsLoader;
+
+use Locale::Maketext;
+
+our $VERSION = '1.20';
+
+sub zorp { return scalar @_ }
+
+=head1 NAME
+
+Locale::Maketext::GutsLoader - Deprecated module to load Locale::Maketext utf8 code
+
+=head1 SYNOPSIS
+
+  # Do this instead please
+  use Locale::Maketext
+
+=head1 DESCRIPTION
+
+Previously Locale::Maketext::Guts performed some magic to load
+Locale::Maketext when utf8 was unavailable. The subs this module provided
+were merged back into Locale::Maketext.
+
+=cut
+
+1;
diff --git a/lib/5.24.1/Locale/Maketext/Simple.pm b/lib/5.24.1/Locale/Maketext/Simple.pm
new file mode 100644
index 00000000..9e616708
--- /dev/null
+++ b/lib/5.24.1/Locale/Maketext/Simple.pm
@@ -0,0 +1,346 @@
+package Locale::Maketext::Simple;
+$Locale::Maketext::Simple::VERSION = '0.21_01';
+
+use strict;
+use 5.005;
+
+=head1 NAME
+
+Locale::Maketext::Simple - Simple interface to Locale::Maketext::Lexicon
+
+=head1 VERSION
+
+This document describes version 0.18 of Locale::Maketext::Simple,
+released Septermber 8, 2006.
+
+=head1 SYNOPSIS
+
+Minimal setup (looks for F<auto/Foo/*.po> and F<auto/Foo/*.mo>):
+
+    package Foo;
+    use Locale::Maketext::Simple;	# exports 'loc'
+    loc_lang('fr');			# set language to French
+    sub hello {
+	print loc("Hello, [_1]!", "World");
+    }
+
+More sophisticated example:
+
+    package Foo::Bar;
+    use Locale::Maketext::Simple (
+	Class	    => 'Foo',	    # search in auto/Foo/
+	Style	    => 'gettext',   # %1 instead of [_1]
+	Export	    => 'maketext',  # maketext() instead of loc()
+	Subclass    => 'L10N',	    # Foo::L10N instead of Foo::I18N
+	Decode	    => 1,	    # decode entries to unicode-strings
+	Encoding    => 'locale',    # but encode lexicons in current locale
+				    # (needs Locale::Maketext::Lexicon 0.36)
+    );
+    sub japh {
+	print maketext("Just another %1 hacker", "Perl");
+    }
+
+=head1 DESCRIPTION
+
+This module is a simple wrapper around B<Locale::Maketext::Lexicon>,
+designed to alleviate the need of creating I<Language Classes> for
+module authors.
+
+The language used is chosen from the loc_lang call. If a lookup is not
+possible, the i-default language will be used. If the lookup is not in the
+i-default language, then the key will be returned.
+
+If B<Locale::Maketext::Lexicon> is not present, it implements a
+minimal localization function by simply interpolating C<[_1]> with
+the first argument, C<[_2]> with the second, etc.  Interpolated
+function like C<[quant,_1]> are treated as C<[_1]>, with the sole
+exception of C<[tense,_1,X]>, which will append C<ing> to C<_1> when
+X is C<present>, or appending C<ed> to <_1> otherwise.
+
+=head1 OPTIONS
+
+All options are passed either via the C<use> statement, or via an
+explicit C<import>.
+
+=head2 Class
+
+By default, B<Locale::Maketext::Simple> draws its source from the
+calling package's F<auto/> directory; you can override this behaviour
+by explicitly specifying another package as C<Class>.
+
+=head2 Path
+
+If your PO and MO files are under a path elsewhere than C<auto/>,
+you may specify it using the C<Path> option.
+
+=head2 Style
+
+By default, this module uses the C<maketext> style of C<[_1]> and
+C<[quant,_1]> for interpolation.  Alternatively, you can specify the
+C<gettext> style, which uses C<%1> and C<%quant(%1)> for interpolation.
+
+This option is case-insensitive.
+
+=head2 Export
+
+By default, this module exports a single function, C<loc>, into its
+caller's namespace.  You can set it to another name, or set it to
+an empty string to disable exporting.
+
+=head2 Subclass
+
+By default, this module creates an C<::I18N> subclass under the
+caller's package (or the package specified by C<Class>), and stores
+lexicon data in its subclasses.  You can assign a name other than
+C<I18N> via this option.
+
+=head2 Decode
+
+If set to a true value, source entries will be converted into
+utf8-strings (available in Perl 5.6.1 or later).  This feature
+needs the B<Encode> or B<Encode::compat> module.
+
+=head2 Encoding
+
+Specifies an encoding to store lexicon entries, instead of
+utf8-strings.  If set to C<locale>, the encoding from the current
+locale setting is used.  Implies a true value for C<Decode>.
+
+=cut
+
+sub import {
+    my ($class, %args) = @_;
+
+    $args{Class}    ||= caller;
+    $args{Style}    ||= 'maketext';
+    $args{Export}   ||= 'loc';
+    $args{Subclass} ||= 'I18N';
+
+    my ($loc, $loc_lang) = $class->load_loc(%args);
+    $loc ||= $class->default_loc(%args);
+
+    no strict 'refs';
+    *{caller(0) . "::$args{Export}"} = $loc if $args{Export};
+    *{caller(0) . "::$args{Export}_lang"} = $loc_lang || sub { 1 };
+}
+
+my %Loc;
+
+sub reload_loc { %Loc = () }
+
+sub load_loc {
+    my ($class, %args) = @_;
+
+    my $pkg = join('::', grep { defined and length } $args{Class}, $args{Subclass});
+    return $Loc{$pkg} if exists $Loc{$pkg};
+
+    eval {
+        local @INC = @INC;
+        pop @INC if $INC[-1] eq '.';
+        require Locale::Maketext::Lexicon;
+        1
+    } or return;
+    $Locale::Maketext::Lexicon::VERSION > 0.20	    or return;
+    eval { require File::Spec; 1 }		    or return;
+
+    my $path = $args{Path} || $class->auto_path($args{Class}) or return;
+    my $pattern = File::Spec->catfile($path, '*.[pm]o');
+    my $decode = $args{Decode} || 0;
+    my $encoding = $args{Encoding} || undef;
+
+    $decode = 1 if $encoding;
+
+    $pattern =~ s{\\}{/}g; # to counter win32 paths
+
+    eval "
+	package $pkg;
+	use base 'Locale::Maketext';
+	Locale::Maketext::Lexicon->import({
+	    'i-default' => [ 'Auto' ],
+	    '*'	=> [ Gettext => \$pattern ],
+	    _decode => \$decode,
+	    _encoding => \$encoding,
+	});
+	*${pkg}::Lexicon = \\%${pkg}::i_default::Lexicon;
+	*tense = sub { \$_[1] . ((\$_[2] eq 'present') ? 'ing' : 'ed') }
+	    unless defined &tense;
+
+	1;
+    " or die $@;
+
+    my $lh = eval { $pkg->get_handle } or return;
+    my $style = lc($args{Style});
+    if ($style eq 'maketext') {
+	$Loc{$pkg} = sub {
+	    $lh->maketext(@_)
+	};
+    }
+    elsif ($style eq 'gettext') {
+	$Loc{$pkg} = sub {
+	    my $str = shift;
+            $str =~ s{([\~\[\]])}{~$1}g;
+            $str =~ s{
+                ([%\\]%)                        # 1 - escaped sequence
+            |
+                %   (?:
+                        ([A-Za-z#*]\w*)         # 2 - function call
+                            \(([^\)]*)\)        # 3 - arguments
+                    |
+                        ([1-9]\d*|\*)           # 4 - variable
+                    )
+            }{
+                $1 ? $1
+                   : $2 ? "\[$2,"._unescape($3)."]"
+                        : "[_$4]"
+            }egx;
+	    return $lh->maketext($str, @_);
+	};
+    }
+    else {
+	die "Unknown Style: $style";
+    }
+
+    return $Loc{$pkg}, sub {
+	$lh = $pkg->get_handle(@_);
+    };
+}
+
+sub default_loc {
+    my ($self, %args) = @_;
+    my $style = lc($args{Style});
+    if ($style eq 'maketext') {
+	return sub {
+	    my $str = shift;
+            $str =~ s{((?<!~)(?:~~)*)\[_([1-9]\d*|\*)\]}
+                     {$1%$2}g;
+            $str =~ s{((?<!~)(?:~~)*)\[([A-Za-z#*]\w*),([^\]]+)\]}
+                     {"$1%$2(" . _escape($3) . ')'}eg;
+	    _default_gettext($str, @_);
+	};
+    }
+    elsif ($style eq 'gettext') {
+	return \&_default_gettext;
+    }
+    else {
+	die "Unknown Style: $style";
+    }
+}
+
+sub _default_gettext {
+    my $str = shift;
+    $str =~ s{
+	%			# leading symbol
+	(?:			# either one of
+	    \d+			#   a digit, like %1
+	    |			#     or
+	    (\w+)\(		#   a function call -- 1
+		(?:		#     either
+		    %\d+	#	an interpolation
+		    |		#     or
+		    ([^,]*)	#	some string -- 2
+		)		#     end either
+		(?:		#     maybe followed
+		    ,		#       by a comma
+		    ([^),]*)	#       and a param -- 3
+		)?		#     end maybe
+		(?:		#     maybe followed
+		    ,		#       by another comma
+		    ([^),]*)	#       and a param -- 4
+		)?		#     end maybe
+		[^)]*		#     and other ignorable params
+	    \)			#   closing function call
+	)			# closing either one of
+    }{
+	my $digit = $2 || shift;
+	$digit . (
+	    $1 ? (
+		($1 eq 'tense') ? (($3 eq 'present') ? 'ing' : 'ed') :
+		($1 eq 'quant') ? ' ' . (($digit > 1) ? ($4 || "$3s") : $3) :
+		''
+	    ) : ''
+	);
+    }egx;
+    return $str;
+};
+
+sub _escape {
+    my $text = shift;
+    $text =~ s/\b_([1-9]\d*)/%$1/g;
+    return $text;
+}
+
+sub _unescape {
+    join(',', map {
+        /\A(\s*)%([1-9]\d*|\*)(\s*)\z/ ? "$1_$2$3" : $_
+    } split(/,/, $_[0]));
+}
+
+sub auto_path {
+    my ($self, $calldir) = @_;
+    $calldir =~ s#::#/#g;
+    my $path = $INC{$calldir . '.pm'} or return;
+
+    # Try absolute path name.
+    if ($^O eq 'MacOS') {
+	(my $malldir = $calldir) =~ tr#/#:#;
+	$path =~ s#^(.*)$malldir\.pm\z#$1auto:$malldir:#s;
+    } else {
+	$path =~ s#^(.*)$calldir\.pm\z#$1auto/$calldir/#;
+    }
+
+    return $path if -d $path;
+
+    # If that failed, try relative path with normal @INC searching.
+    $path = "auto/$calldir/";
+    foreach my $inc (@INC) {
+	return "$inc/$path" if -d "$inc/$path";
+    }
+
+    return;
+}
+
+1;
+
+=head1 ACKNOWLEDGMENTS
+
+Thanks to Jos I. Boumans for suggesting this module to be written.
+
+Thanks to Chia-Liang Kao for suggesting C<Path> and C<loc_lang>.
+
+=head1 SEE ALSO
+
+L<Locale::Maketext>, L<Locale::Maketext::Lexicon>
+
+=head1 AUTHORS
+
+Audrey Tang E<lt>cpan@audreyt.orgE<gt>
+
+=head1 COPYRIGHT
+
+Copyright 2003, 2004, 2005, 2006 by Audrey Tang E<lt>cpan@audreyt.orgE<gt>.
+
+This software is released under the MIT license cited below.  Additionally,
+when this software is distributed with B<Perl Kit, Version 5>, you may also
+redistribute it and/or modify it under the same terms as Perl itself.
+
+=head2 The "MIT" License
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in
+all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
+OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
+THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
+FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
+DEALINGS IN THE SOFTWARE.
+
+=cut
diff --git a/lib/5.24.1/Locale/Maketext/TPJ13.pod b/lib/5.24.1/Locale/Maketext/TPJ13.pod
new file mode 100644
index 00000000..8d3eae66
--- /dev/null
+++ b/lib/5.24.1/Locale/Maketext/TPJ13.pod
@@ -0,0 +1,775 @@
+# This document contains text in Perl "POD" format.
+# Use a POD viewer like perldoc or perlman to render it.
+
+=head1 NAME
+
+Locale::Maketext::TPJ13 -- article about software localization
+
+=head1 SYNOPSIS
+
+  # This an article, not a module.
+
+=head1 DESCRIPTION
+
+The following article by Sean M. Burke and Jordan Lachler
+first appeared in I<The Perl Journal> #13
+and is copyright 1999 The Perl Journal. It appears
+courtesy of Jon Orwant and The Perl Journal.  This document may be
+distributed under the same terms as Perl itself.
+
+=head1 Localization and Perl: gettext breaks, Maketext fixes
+
+by Sean M. Burke and Jordan Lachler
+
+This article points out cases where gettext (a common system for
+localizing software interfaces -- i.e., making them work in the user's
+language of choice) fails because of basic differences between human
+languages.  This article then describes Maketext, a new system capable
+of correctly treating these differences.
+
+=head2 A Localization Horror Story: It Could Happen To You
+
+=over
+
+"There are a number of languages spoken by human beings in this
+world."
+
+-- Harald Tveit Alvestrand, in RFC 1766, "Tags for the
+Identification of Languages"
+
+=back
+
+Imagine that your task for the day is to localize a piece of software
+-- and luckily for you, the only output the program emits is two
+messages, like this:
+
+  I scanned 12 directories.
+
+  Your query matched 10 files in 4 directories.
+
+So how hard could that be?  You look at the code that
+produces the first item, and it reads:
+
+  printf("I scanned %g directories.",
+         $directory_count);
+
+You think about that, and realize that it doesn't even work right for
+English, as it can produce this output:
+
+  I scanned 1 directories.
+
+So you rewrite it to read:
+
+  printf("I scanned %g %s.",
+         $directory_count,
+         $directory_count == 1 ?
+           "directory" : "directories",
+  );
+
+...which does the Right Thing.  (In case you don't recall, "%g" is for
+locale-specific number interpolation, and "%s" is for string
+interpolation.)
+
+But you still have to localize it for all the languages you're
+producing this software for, so you pull Locale::gettext off of CPAN
+so you can access the C<gettext> C functions you've heard are standard
+for localization tasks.
+
+And you write:
+
+  printf(gettext("I scanned %g %s."),
+         $dir_scan_count,
+         $dir_scan_count == 1 ?
+           gettext("directory") : gettext("directories"),
+  );
+
+But you then read in the gettext manual (Drepper, Miller, and Pinard 1995)
+that this is not a good idea, since how a single word like "directory"
+or "directories" is translated may depend on context -- and this is
+true, since in a case language like German or Russian, you'd may need
+these words with a different case ending in the first instance (where the
+word is the object of a verb) than in the second instance, which you haven't even
+gotten to yet (where the word is the object of a preposition, "in %g
+directories") -- assuming these keep the same syntax when translated
+into those languages.
+
+So, on the advice of the gettext manual, you rewrite:
+
+  printf( $dir_scan_count == 1 ?
+           gettext("I scanned %g directory.") :
+           gettext("I scanned %g directories."),
+         $dir_scan_count );
+
+So, you email your various translators (the boss decides that the
+languages du jour are Chinese, Arabic, Russian, and Italian, so you
+have one translator for each), asking for translations for "I scanned
+%g directory." and "I scanned %g directories.".  When they reply,
+you'll put that in the lexicons for gettext to use when it localizes
+your software, so that when the user is running under the "zh"
+(Chinese) locale, gettext("I scanned %g directory.") will return the
+appropriate Chinese text, with a "%g" in there where printf can then
+interpolate $dir_scan.
+
+Your Chinese translator emails right back -- he says both of these
+phrases translate to the same thing in Chinese, because, in linguistic
+jargon, Chinese "doesn't have number as a grammatical category" --
+whereas English does.  That is, English has grammatical rules that
+refer to "number", i.e., whether something is grammatically singular
+or plural; and one of these rules is the one that forces nouns to take
+a plural suffix (generally "s") when in a plural context, as they are when
+they follow a number other than "one" (including, oddly enough, "zero").
+Chinese has no such rules, and so has just the one phrase where English
+has two.  But, no problem, you can have this one Chinese phrase appear
+as the translation for the two English phrases in the "zh" gettext
+lexicon for your program.
+
+Emboldened by this, you dive into the second phrase that your software
+needs to output: "Your query matched 10 files in 4 directories.".  You notice
+that if you want to treat phrases as indivisible, as the gettext
+manual wisely advises, you need four cases now, instead of two, to
+cover the permutations of singular and plural on the two items,
+$dir_count and $file_count.  So you try this:
+
+  printf( $file_count == 1 ?
+    ( $directory_count == 1 ?
+     gettext("Your query matched %g file in %g directory.") :
+     gettext("Your query matched %g file in %g directories.") ) :
+    ( $directory_count == 1 ?
+     gettext("Your query matched %g files in %g directory.") :
+     gettext("Your query matched %g files in %g directories.") ),
+   $file_count, $directory_count,
+  );
+
+(The case of "1 file in 2 [or more] directories" could, I suppose,
+occur in the case of symlinking or something of the sort.)
+
+It occurs to you that this is not the prettiest code you've ever
+written, but this seems the way to go.  You mail off to the
+translators asking for translations for these four cases.  The
+Chinese guy replies with the one phrase that these all translate to in
+Chinese, and that phrase has two "%g"s in it, as it should -- but
+there's a problem.  He translates it word-for-word back: "In %g
+directories contains %g files match your query."  The %g
+slots are in an order reverse to what they are in English.  You wonder
+how you'll get gettext to handle that.
+
+But you put it aside for the moment, and optimistically hope that the
+other translators won't have this problem, and that their languages
+will be better behaved -- i.e., that they will be just like English.
+
+But the Arabic translator is the next to write back.  First off, your
+code for "I scanned %g directory." or "I scanned %g directories."
+assumes there's only singular or plural.  But, to use linguistic
+jargon again, Arabic has grammatical number, like English (but unlike
+Chinese), but it's a three-term category: singular, dual, and plural.
+In other words, the way you say "directory" depends on whether there's
+one directory, or I<two> of them, or I<more than two> of them.  Your
+test of C<($directory == 1)> no longer does the job.  And it means
+that where English's grammatical category of number necessitates
+only the two permutations of the first sentence based on "directory
+[singular]" and "directories [plural]", Arabic has three -- and,
+worse, in the second sentence ("Your query matched %g file in %g
+directory."), where English has four, Arabic has nine.  You sense
+an unwelcome, exponential trend taking shape.
+
+Your Italian translator emails you back and says that "I searched 0
+directories" (a possible English output of your program) is stilted,
+and if you think that's fine English, that's your problem, but that
+I<just will not do> in the language of Dante.  He insists that where
+$directory_count is 0, your program should produce the Italian text
+for "I I<didn't> scan I<any> directories.".  And ditto for "I didn't
+match any files in any directories", although he says the last part
+about "in any directories" should probably just be left off.
+
+You wonder how you'll get gettext to handle this; to accommodate the
+ways Arabic, Chinese, and Italian deal with numbers in just these few
+very simple phrases, you need to write code that will ask gettext for
+different queries depending on whether the numerical values in
+question are 1, 2, more than 2, or in some cases 0, and you still haven't
+figured out the problem with the different word order in Chinese.
+
+Then your Russian translator calls on the phone, to I<personally> tell
+you the bad news about how really unpleasant your life is about to
+become:
+
+Russian, like German or Latin, is an inflectional language; that is, nouns
+and adjectives have to take endings that depend on their case
+(i.e., nominative, accusative, genitive, etc...) -- which is roughly a matter of
+what role they have in syntax of the sentence --
+as well as on the grammatical gender (i.e., masculine, feminine, neuter)
+and number (i.e., singular or plural) of the noun, as well as on the
+declension class of the noun.  But unlike with most other inflected languages,
+putting a number-phrase (like "ten" or "forty-three", or their Arabic
+numeral equivalents) in front of noun in Russian can change the case and
+number that noun is, and therefore the endings you have to put on it.
+
+He elaborates:  In "I scanned %g directories", you'd I<expect>
+"directories" to be in the accusative case (since it is the direct
+object in the sentence) and the plural number,
+except where $directory_count is 1, then you'd expect the singular, of
+course.  Just like Latin or German.  I<But!>  Where $directory_count %
+10 is 1 ("%" for modulo, remember), assuming $directory count is an
+integer, and except where $directory_count % 100 is 11, "directories"
+is forced to become grammatically singular, which means it gets the
+ending for the accusative singular...  You begin to visualize the code
+it'd take to test for the problem so far, I<and still work for Chinese
+and Arabic and Italian>, and how many gettext items that'd take, but
+he keeps going...  But where $directory_count % 10 is 2, 3, or 4
+(except where $directory_count % 100 is 12, 13, or 14), the word for
+"directories" is forced to be genitive singular -- which means another
+ending... The room begins to spin around you, slowly at first...  But
+with I<all other> integer values, since "directory" is an inanimate
+noun, when preceded by a number and in the nominative or accusative
+cases (as it is here, just your luck!), it does stay plural, but it is
+forced into the genitive case -- yet another ending...  And
+you never hear him get to the part about how you're going to run into
+similar (but maybe subtly different) problems with other Slavic
+languages like Polish, because the floor comes up to meet you, and you
+fade into unconsciousness.
+
+
+The above cautionary tale relates how an attempt at localization can
+lead from programmer consternation, to program obfuscation, to a need
+for sedation.  But careful evaluation shows that your choice of tools
+merely needed further consideration.
+
+=head2 The Linguistic View
+
+=over
+
+"It is more complicated than you think." 
+
+-- The Eighth Networking Truth, from RFC 1925
+
+=back
+
+The field of Linguistics has expended a great deal of effort over the
+past century trying to find grammatical patterns which hold across
+languages; it's been a constant process
+of people making generalizations that should apply to all languages,
+only to find out that, all too often, these generalizations fail --
+sometimes failing for just a few languages, sometimes whole classes of
+languages, and sometimes nearly every language in the world except
+English.  Broad statistical trends are evident in what the "average
+language" is like as far as what its rules can look like, must look
+like, and cannot look like.  But the "average language" is just as
+unreal a concept as the "average person" -- it runs up against the
+fact no language (or person) is, in fact, average.  The wisdom of past
+experience leads us to believe that any given language can do whatever
+it wants, in any order, with appeal to any kind of grammatical
+categories wants -- case, number, tense, real or metaphoric
+characteristics of the things that words refer to, arbitrary or
+predictable classifications of words based on what endings or prefixes
+they can take, degree or means of certainty about the truth of
+statements expressed, and so on, ad infinitum.
+
+Mercifully, most localization tasks are a matter of finding ways to
+translate whole phrases, generally sentences, where the context is
+relatively set, and where the only variation in content is I<usually>
+in a number being expressed -- as in the example sentences above.
+Translating specific, fully-formed sentences is, in practice, fairly
+foolproof -- which is good, because that's what's in the phrasebooks
+that so many tourists rely on.  Now, a given phrase (whether in a
+phrasebook or in a gettext lexicon) in one language I<might> have a
+greater or lesser applicability than that phrase's translation into
+another language -- for example, strictly speaking, in Arabic, the
+"your" in "Your query matched..." would take a different form
+depending on whether the user is male or female; so the Arabic
+translation "your[feminine] query" is applicable in fewer cases than
+the corresponding English phrase, which doesn't distinguish the user's
+gender.  (In practice, it's not feasible to have a program know the
+user's gender, so the masculine "you" in Arabic is usually used, by
+default.)
+
+But in general, such surprises are rare when entire sentences are
+being translated, especially when the functional context is restricted
+to that of a computer interacting with a user either to convey a fact
+or to prompt for a piece of information.  So, for purposes of
+localization, translation by phrase (generally by sentence) is both the
+simplest and the least problematic.
+
+=head2 Breaking gettext
+
+=over
+
+"It Has To Work."
+
+-- First Networking Truth, RFC 1925
+
+=back
+
+Consider that sentences in a tourist phrasebook are of two types: ones
+like "How do I get to the marketplace?" that don't have any blanks to
+fill in, and ones like "How much do these ___ cost?", where there's
+one or more blanks to fill in (and these are usually linked to a
+list of words that you can put in that blank: "fish", "potatoes",
+"tomatoes", etc.)  The ones with no blanks are no problem, but the
+fill-in-the-blank ones may not be really straightforward. If it's a
+Swahili phrasebook, for example, the authors probably didn't bother to
+tell you the complicated ways that the verb "cost" changes its
+inflectional prefix depending on the noun you're putting in the blank.
+The trader in the marketplace will still understand what you're saying if
+you say "how much do these potatoes cost?" with the wrong
+inflectional prefix on "cost".  After all, I<you> can't speak proper Swahili,
+I<you're> just a tourist.  But while tourists can be stupid, computers
+are supposed to be smart; the computer should be able to fill in the
+blank, and still have the results be grammatical.
+
+In other words, a phrasebook entry takes some values as parameters
+(the things that you fill in the blank or blanks), and provides a value
+based on these parameters, where the way you get that final value from
+the given values can, properly speaking, involve an arbitrarily
+complex series of operations.  (In the case of Chinese, it'd be not at
+all complex, at least in cases like the examples at the beginning of
+this article; whereas in the case of Russian it'd be a rather complex
+series of operations.  And in some languages, the
+complexity could be spread around differently: while the act of
+putting a number-expression in front of a noun phrase might not be
+complex by itself, it may change how you have to, for example, inflect
+a verb elsewhere in the sentence.  This is what in syntax is called
+"long-distance dependencies".)
+
+This talk of parameters and arbitrary complexity is just another way
+to say that an entry in a phrasebook is what in a programming language
+would be called a "function".  Just so you don't miss it, this is the
+crux of this article: I<A phrase is a function; a phrasebook is a
+bunch of functions.>
+
+The reason that using gettext runs into walls (as in the above
+second-person horror story) is that you're trying to use a string (or
+worse, a choice among a bunch of strings) to do what you really need a
+function for -- which is futile.  Preforming (s)printf interpolation
+on the strings which you get back from gettext does allow you to do I<some>
+common things passably well... sometimes... sort of; but, to paraphrase
+what some people say about C<csh> script programming, "it fools you
+into thinking you can use it for real things, but you can't, and you
+don't discover this until you've already spent too much time trying,
+and by then it's too late."
+
+=head2 Replacing gettext
+
+So, what needs to replace gettext is a system that supports lexicons
+of functions instead of lexicons of strings.  An entry in a lexicon
+from such a system should I<not> look like this:
+
+  "J'ai trouv\xE9 %g fichiers dans %g r\xE9pertoires"
+
+[\xE9 is e-acute in Latin-1.  Some pod renderers would
+scream if I used the actual character here. -- SB]
+
+but instead like this, bearing in mind that this is just a first stab:
+
+  sub I_found_X1_files_in_X2_directories {
+    my( $files, $dirs ) = @_[0,1];
+    $files = sprintf("%g %s", $files,
+      $files == 1 ? 'fichier' : 'fichiers');
+    $dirs = sprintf("%g %s", $dirs,
+      $dirs == 1 ? "r\xE9pertoire" : "r\xE9pertoires");
+    return "J'ai trouv\xE9 $files dans $dirs.";
+  }
+
+Now, there's no particularly obvious way to store anything but strings
+in a gettext lexicon; so it looks like we just have to start over and
+make something better, from scratch.  I call my shot at a
+gettext-replacement system "Maketext", or, in CPAN terms,
+Locale::Maketext.
+
+When designing Maketext, I chose to plan its main features in terms of
+"buzzword compliance".  And here are the buzzwords:
+
+=head2 Buzzwords: Abstraction and Encapsulation
+
+The complexity of the language you're trying to output a phrase in is
+entirely abstracted inside (and encapsulated within) the Maketext module
+for that interface.  When you call:
+
+  print $lang->maketext("You have [quant,_1,piece] of new mail.",
+                       scalar(@messages));
+
+you don't know (and in fact can't easily find out) whether this will
+involve lots of figuring, as in Russian (if $lang is a handle to the
+Russian module), or relatively little, as in Chinese.  That kind of
+abstraction and encapsulation may encourage other pleasant buzzwords
+like modularization and stratification, depending on what design
+decisions you make.
+
+=head2 Buzzword: Isomorphism
+
+"Isomorphism" means "having the same structure or form"; in discussions
+of program design, the word takes on the special, specific meaning that
+your implementation of a solution to a problem I<has the same
+structure> as, say, an informal verbal description of the solution, or
+maybe of the problem itself.  Isomorphism is, all things considered,
+a good thing -- it's what problem-solving (and solution-implementing)
+should look like.
+
+What's wrong the with gettext-using code like this...
+
+  printf( $file_count == 1 ?
+    ( $directory_count == 1 ?
+     "Your query matched %g file in %g directory." :
+     "Your query matched %g file in %g directories." ) :
+    ( $directory_count == 1 ?
+     "Your query matched %g files in %g directory." :
+     "Your query matched %g files in %g directories." ),
+   $file_count, $directory_count,
+  );
+
+is first off that it's not well abstracted -- these ways of testing
+for grammatical number (as in the expressions like C<foo == 1 ?
+singular_form : plural_form>) should be abstracted to each language
+module, since how you get grammatical number is language-specific.
+
+But second off, it's not isomorphic -- the "solution" (i.e., the
+phrasebook entries) for Chinese maps from these four English phrases to
+the one Chinese phrase that fits for all of them.  In other words, the
+informal solution would be "The way to say what you want in Chinese is
+with the one phrase 'For your question, in Y directories you would
+find X files'" -- and so the implemented solution should be,
+isomorphically, just a straightforward way to spit out that one
+phrase, with numerals properly interpolated.  It shouldn't have to map
+from the complexity of other languages to the simplicity of this one.
+
+=head2 Buzzword: Inheritance
+
+There's a great deal of reuse possible for sharing of phrases between
+modules for related dialects, or for sharing of auxiliary functions
+between related languages.  (By "auxiliary functions", I mean
+functions that don't produce phrase-text, but which, say, return an
+answer to "does this number require a plural noun after it?".  Such
+auxiliary functions would be used in the internal logic of functions
+that actually do produce phrase-text.)
+
+In the case of sharing phrases, consider that you have an interface
+already localized for American English (probably by having been
+written with that as the native locale, but that's incidental).
+Localizing it for UK English should, in practical terms, be just a
+matter of running it past a British person with the instructions to
+indicate what few phrases would benefit from a change in spelling or
+possibly minor rewording.  In that case, you should be able to put in
+the UK English localization module I<only> those phrases that are
+UK-specific, and for all the rest, I<inherit> from the American
+English module.  (And I expect this same situation would apply with
+Brazilian and Continental Portugese, possibly with some I<very>
+closely related languages like Czech and Slovak, and possibly with the
+slightly different "versions" of written Mandarin Chinese, as I hear exist in
+Taiwan and mainland China.)
+
+As to sharing of auxiliary functions, consider the problem of Russian
+numbers from the beginning of this article; obviously, you'd want to
+write only once the hairy code that, given a numeric value, would
+return some specification of which case and number a given quantified
+noun should use.  But suppose that you discover, while localizing an
+interface for, say, Ukranian (a Slavic language related to Russian,
+spoken by several million people, many of whom would be relieved to
+find that your Web site's or software's interface is available in
+their language), that the rules in Ukranian are the same as in Russian
+for quantification, and probably for many other grammatical functions.
+While there may well be no phrases in common between Russian and
+Ukranian, you could still choose to have the Ukranian module inherit
+from the Russian module, just for the sake of inheriting all the
+various grammatical methods.  Or, probably better organizationally,
+you could move those functions to a module called C<_E_Slavic> or
+something, which Russian and Ukrainian could inherit useful functions
+from, but which would (presumably) provide no lexicon.
+
+=head2 Buzzword: Concision
+
+Okay, concision isn't a buzzword.  But it should be, so I decree that
+as a new buzzword, "concision" means that simple common things should
+be expressible in very few lines (or maybe even just a few characters)
+of code -- call it a special case of "making simple things easy and
+hard things possible", and see also the role it played in the
+MIDI::Simple language, discussed elsewhere in this issue [TPJ#13].
+
+Consider our first stab at an entry in our "phrasebook of functions":
+
+  sub I_found_X1_files_in_X2_directories {
+    my( $files, $dirs ) = @_[0,1];
+    $files = sprintf("%g %s", $files,
+      $files == 1 ? 'fichier' : 'fichiers');
+    $dirs = sprintf("%g %s", $dirs,
+      $dirs == 1 ? "r\xE9pertoire" : "r\xE9pertoires");
+    return "J'ai trouv\xE9 $files dans $dirs.";
+  }
+
+You may sense that a lexicon (to use a non-committal catch-all term for a
+collection of things you know how to say, regardless of whether they're
+phrases or words) consisting of functions I<expressed> as above would
+make for rather long-winded and repetitive code -- even if you wisely
+rewrote this to have quantification (as we call adding a number
+expression to a noun phrase) be a function called like:
+
+  sub I_found_X1_files_in_X2_directories {
+    my( $files, $dirs ) = @_[0,1];
+    $files = quant($files, "fichier");
+    $dirs =  quant($dirs,  "r\xE9pertoire");
+    return "J'ai trouv\xE9 $files dans $dirs.";
+  }
+
+And you may also sense that you do not want to bother your translators
+with having to write Perl code -- you'd much rather that they spend
+their I<very costly time> on just translation.  And this is to say
+nothing of the near impossibility of finding a commercial translator
+who would know even simple Perl.
+
+In a first-hack implementation of Maketext, each language-module's
+lexicon looked like this:
+
+ %Lexicon = (
+   "I found %g files in %g directories"
+   => sub {
+      my( $files, $dirs ) = @_[0,1];
+      $files = quant($files, "fichier");
+      $dirs =  quant($dirs,  "r\xE9pertoire");
+      return "J'ai trouv\xE9 $files dans $dirs.";
+    },
+  ... and so on with other phrase => sub mappings ...
+ );
+
+but I immediately went looking for some more concise way to basically
+denote the same phrase-function -- a way that would also serve to
+concisely denote I<most> phrase-functions in the lexicon for I<most>
+languages.  After much time and even some actual thought, I decided on
+this system:
+
+* Where a value in a %Lexicon hash is a contentful string instead of
+an anonymous sub (or, conceivably, a coderef), it would be interpreted
+as a sort of shorthand expression of what the sub does.  When accessed
+for the first time in a session, it is parsed, turned into Perl code,
+and then eval'd into an anonymous sub; then that sub replaces the
+original string in that lexicon.  (That way, the work of parsing and
+evaling the shorthand form for a given phrase is done no more than
+once per session.)
+
+* Calls to C<maketext> (as Maketext's main function is called) happen
+thru a "language session handle", notionally very much like an IO
+handle, in that you open one at the start of the session, and use it
+for "sending signals" to an object in order to have it return the text
+you want.
+
+So, this:
+
+  $lang->maketext("You have [quant,_1,piece] of new mail.",
+                 scalar(@messages));
+
+basically means this: look in the lexicon for $lang (which may inherit
+from any number of other lexicons), and find the function that we
+happen to associate with the string "You have [quant,_1,piece] of new
+mail" (which is, and should be, a functioning "shorthand" for this
+function in the native locale -- English in this case).  If you find
+such a function, call it with $lang as its first parameter (as if it
+were a method), and then a copy of scalar(@messages) as its second,
+and then return that value.  If that function was found, but was in
+string shorthand instead of being a fully specified function, parse it
+and make it into a function before calling it the first time.
+
+* The shorthand uses code in brackets to indicate method calls that
+should be performed.  A full explanation is not in order here, but a
+few examples will suffice:
+
+  "You have [quant,_1,piece] of new mail."
+
+The above code is shorthand for, and will be interpreted as,
+this:
+
+  sub {
+    my $handle = $_[0];
+    my(@params) = @_;
+    return join '',
+      "You have ",
+      $handle->quant($params[1], 'piece'),
+      "of new mail.";
+  }
+
+where "quant" is the name of a method you're using to quantify the
+noun "piece" with the number $params[0].
+
+A string with no brackety calls, like this:
+
+  "Your search expression was malformed."
+
+is somewhat of a degenerate case, and just gets turned into:
+
+  sub { return "Your search expression was malformed." }
+
+However, not everything you can write in Perl code can be written in
+the above shorthand system -- not by a long shot.  For example, consider
+the Italian translator from the beginning of this article, who wanted
+the Italian for "I didn't find any files" as a special case, instead
+of "I found 0 files".  That couldn't be specified (at least not easily
+or simply) in our shorthand system, and it would have to be written
+out in full, like this:
+
+  sub {  # pretend the English strings are in Italian
+    my($handle, $files, $dirs) = @_[0,1,2];
+    return "I didn't find any files" unless $files;
+    return join '',
+      "I found ",
+      $handle->quant($files, 'file'),
+      " in ",
+      $handle->quant($dirs,  'directory'),
+      ".";
+  }
+
+Next to a lexicon full of shorthand code, that sort of sticks out like a
+sore thumb -- but this I<is> a special case, after all; and at least
+it's possible, if not as concise as usual.
+
+As to how you'd implement the Russian example from the beginning of
+the article, well, There's More Than One Way To Do It, but it could be
+something like this (using English words for Russian, just so you know
+what's going on):
+
+  "I [quant,_1,directory,accusative] scanned."
+
+This shifts the burden of complexity off to the quant method.  That
+method's parameters are: the numeric value it's going to use to
+quantify something; the Russian word it's going to quantify; and the
+parameter "accusative", which you're using to mean that this
+sentence's syntax wants a noun in the accusative case there, although
+that quantification method may have to overrule, for grammatical
+reasons you may recall from the beginning of this article.
+
+Now, the Russian quant method here is responsible not only for
+implementing the strange logic necessary for figuring out how Russian
+number-phrases impose case and number on their noun-phrases, but also
+for inflecting the Russian word for "directory".  How that inflection
+is to be carried out is no small issue, and among the solutions I've
+seen, some (like variations on a simple lookup in a hash where all
+possible forms are provided for all necessary words) are
+straightforward but I<can> become cumbersome when you need to inflect
+more than a few dozen words; and other solutions (like using
+algorithms to model the inflections, storing only root forms and
+irregularities) I<can> involve more overhead than is justifiable for
+all but the largest lexicons.
+
+Mercifully, this design decision becomes crucial only in the hairiest
+of inflected languages, of which Russian is by no means the I<worst> case
+scenario, but is worse than most.  Most languages have simpler
+inflection systems; for example, in English or Swahili, there are
+generally no more than two possible inflected forms for a given noun
+("error/errors"; "kosa/makosa"), and the
+rules for producing these forms are fairly simple -- or at least,
+simple rules can be formulated that work for most words, and you can
+then treat the exceptions as just "irregular", at least relative to
+your ad hoc rules.  A simpler inflection system (simpler rules, fewer
+forms) means that design decisions are less crucial to maintaining
+sanity, whereas the same decisions could incur
+overhead-versus-scalability problems in languages like Russian.  It
+may I<also> be likely that code (possibly in Perl, as with
+Lingua::EN::Inflect, for English nouns) has already
+been written for the language in question, whether simple or complex.
+
+Moreover, a third possibility may even be simpler than anything
+discussed above: "Just require that all possible (or at least
+applicable) forms be provided in the call to the given language's quant
+method, as in:"
+
+  "I found [quant,_1,file,files]."
+
+That way, quant just has to chose which form it needs, without having
+to look up or generate anything.  While possibly not optimal for
+Russian, this should work well for most other languages, where
+quantification is not as complicated an operation.
+
+=head2 The Devil in the Details
+
+There's plenty more to Maketext than described above -- for example,
+there's the details of how language tags ("en-US", "i-pwn", "fi",
+etc.) or locale IDs ("en_US") interact with actual module naming
+("BogoQuery/Locale/en_us.pm"), and what magic can ensue; there's the
+details of how to record (and possibly negotiate) what character
+encoding Maketext will return text in (UTF8? Latin-1? KOI8?).  There's
+the interesting fact that Maketext is for localization, but nowhere
+actually has a "C<use locale;>" anywhere in it.  For the curious,
+there's the somewhat frightening details of how I actually
+implement something like data inheritance so that searches across
+modules' %Lexicon hashes can parallel how Perl implements method
+inheritance.
+
+And, most importantly, there's all the practical details of how to
+actually go about deriving from Maketext so you can use it for your
+interfaces, and the various tools and conventions for starting out and
+maintaining individual language modules.
+
+That is all covered in the documentation for Locale::Maketext and the
+modules that come with it, available in CPAN.  After having read this
+article, which covers the why's of Maketext, the documentation,
+which covers the how's of it, should be quite straightforward.
+
+=head2 The Proof in the Pudding: Localizing Web Sites
+
+Maketext and gettext have a notable difference: gettext is in C,
+accessible thru C library calls, whereas Maketext is in Perl, and
+really can't work without a Perl interpreter (although I suppose
+something like it could be written for C).  Accidents of history (and
+not necessarily lucky ones) have made C++ the most common language for
+the implementation of applications like word processors, Web browsers,
+and even many in-house applications like custom query systems.  Current
+conditions make it somewhat unlikely that the next one of any of these
+kinds of applications will be written in Perl, albeit clearly more for
+reasons of custom and inertia than out of consideration of what is the
+right tool for the job.
+
+However, other accidents of history have made Perl a well-accepted
+language for design of server-side programs (generally in CGI form)
+for Web site interfaces.  Localization of static pages in Web sites is
+trivial, feasible either with simple language-negotiation features in
+servers like Apache, or with some kind of server-side inclusions of
+language-appropriate text into layout templates.  However, I think
+that the localization of Perl-based search systems (or other kinds of
+dynamic content) in Web sites, be they public or access-restricted,
+is where Maketext will see the greatest use.
+
+I presume that it would be only the exceptional Web site that gets
+localized for English I<and> Chinese I<and> Italian I<and> Arabic
+I<and> Russian, to recall the languages from the beginning of this
+article -- to say nothing of German, Spanish, French, Japanese,
+Finnish, and Hindi, to name a few languages that benefit from large
+numbers of programmers or Web viewers or both.
+
+However, the ever-increasing internationalization of the Web (whether
+measured in terms of amount of content, of numbers of content writers
+or programmers, or of size of content audiences) makes it increasingly
+likely that the interface to the average Web-based dynamic content
+service will be localized for two or maybe three languages.  It is my
+hope that Maketext will make that task as simple as possible, and will
+remove previous barriers to localization for languages dissimilar to
+English.
+
+ __END__
+
+Sean M. Burke (sburkeE<64>cpan.org) has a Master's in linguistics
+from Northwestern University; he specializes in language technology.
+Jordan Lachler (lachlerE<64>unm.edu) is a PhD student in the Department of
+Linguistics at the University of New Mexico; he specializes in
+morphology and pedagogy of North American native languages.
+
+=head2 References
+
+Alvestrand, Harald Tveit.  1995.  I<RFC 1766: Tags for the
+Identification of Languages.>
+C<http://www.ietf.org/rfc/rfc1766.txt>
+[Now see RFC 3066.]
+
+Callon, Ross, editor.  1996.  I<RFC 1925: The Twelve
+Networking Truths.>
+C<http://www.ietf.org/rfc/rfc1925.txt>
+
+Drepper, Ulrich, Peter Miller,
+and FranE<ccedil>ois Pinard.  1995-2001.  GNU
+C<gettext>.  Available in C<ftp://prep.ai.mit.edu/pub/gnu/>, with
+extensive docs in the distribution tarball.  [Since
+I wrote this article in 1998, I now see that the
+gettext docs are now trying more to come to terms with
+plurality.  Whether useful conclusions have come from it
+is another question altogether. -- SMB, May 2001]
+
+Forbes, Nevill.  1964.  I<Russian Grammar.>  Third Edition, revised
+by J. C. Dumbreck.  Oxford University Press.
+
+=cut
+
+#End
+
diff --git a/lib/5.24.1/Locale/Script.pm b/lib/5.24.1/Locale/Script.pm
new file mode 100644
index 00000000..1ea0e188
--- /dev/null
+++ b/lib/5.24.1/Locale/Script.pm
@@ -0,0 +1,48 @@
+package Locale::Script;
+# Copyright (C) 2001      Canon Research Centre Europe (CRE).
+# Copyright (C) 2002-2009 Neil Bowers
+# Copyright (c) 2010-2015 Sullivan Beck
+# This program is free software; you can redistribute it and/or modify it
+# under the same terms as Perl itself.
+
+use strict;
+use warnings;
+use Exporter;
+
+our $VERSION;
+$VERSION='3.37';
+
+our (@ISA,@EXPORT);
+
+my $backend     = 'Locale::Codes::Script';
+my $backend_exp = $backend . "::EXPORT";
+
+eval "require $backend; $backend->import(); return 1;";
+
+{
+   no strict 'refs';
+   @EXPORT = @{ $backend_exp };
+}
+
+unshift (@ISA, $backend);
+
+sub rename_script            { Locale::Codes::Script::rename_script(@_) }
+sub add_script               { Locale::Codes::Script::add_script(@_) }
+sub delete_script            { Locale::Codes::Script::delete_script(@_) }
+sub add_script_alias         { Locale::Codes::Script::add_script_alias(@_) }
+sub delete_script_alias      { Locale::Codes::Script::delete_script_alias(@_) }
+sub rename_script_code       { Locale::Codes::Script::rename_script_code(@_) }
+sub add_script_code_alias    { Locale::Codes::Script::add_script_code_alias(@_) }
+sub delete_script_code_alias { Locale::Codes::Script::delete_script_code_alias(@_) }
+
+1;
+# Local Variables:
+# mode: cperl
+# indent-tabs-mode: nil
+# cperl-indent-level: 3
+# cperl-continued-statement-offset: 2
+# cperl-continued-brace-offset: 0
+# cperl-brace-offset: 0
+# cperl-brace-imaginary-offset: 0
+# cperl-label-offset: -2
+# End:
diff --git a/lib/5.24.1/Locale/Script.pod b/lib/5.24.1/Locale/Script.pod
new file mode 100644
index 00000000..c06f1b16
--- /dev/null
+++ b/lib/5.24.1/Locale/Script.pod
@@ -0,0 +1,131 @@
+=pod
+
+=head1 NAME
+
+Locale::Script - standard codes for script identification
+
+=head1 SYNOPSIS
+
+   use Locale::Script;
+
+   $script  = code2script('phnx');                     # 'Phoenician'
+   $code    = script2code('Phoenician');               # 'Phnx'
+   $code    = script2code('Phoenician',
+                          LOCALE_CODE_NUMERIC);        # 115
+
+   @codes   = all_script_codes();
+   @scripts = all_script_names();
+
+=head1 DESCRIPTION
+
+This module provides access to standards codes used
+for identifying scripts, such as those defined in ISO 15924.
+
+Most of the routines take an optional additional argument which
+specifies the code set to use. If not specified, the default ISO
+15924 four-letter codes will be used.
+
+=head1 SUPPORTED CODE SETS
+
+There are several different code sets you can use for identifying
+scripts. A code set may be specified using either a name, or a
+constant that is automatically exported by this module.
+
+For example, the two are equivalent:
+
+   $script = code2script('phnx','alpha');
+   $script = code2script('phnx',LOCALE_SCRIPT_ALPHA);
+
+The codesets currently supported are:
+
+=over 4
+
+=item B<alpha, LOCALE_SCRIPT_ALPHA>
+
+This is a set of four-letter (capitalized) codes from ISO 15924
+such as 'Phnx' for Phoenician.  It also includes additions to this
+set included in the IANA language registry.
+
+The Zxxx, Zyyy, and Zzzz codes are not used.
+
+This is the default code set.
+
+=item B<num, LOCALE_SCRIPT_NUMERIC>
+
+This is a set of three-digit numeric codes from ISO 15924 such as 115
+for Phoenician.
+
+=back
+
+=head1 ROUTINES
+
+=over 4
+
+=item B<code2script(CODE [,CODESET] [,'retired'])>
+
+=item B<script2code(NAME [,CODESET] [,'retired'])>
+
+=item B<script_code2code(CODE ,CODESET ,CODESET2)>
+
+=item B<all_script_codes([CODESET] [,'retired'])>
+
+=item B<all_script_names([CODESET] [,'retired'])>
+
+=item B<Locale::Script::rename_script(CODE ,NEW_NAME [,CODESET])>
+
+=item B<Locale::Script::add_script(CODE ,NAME [,CODESET])>
+
+=item B<Locale::Script::delete_script(CODE [,CODESET])>
+
+=item B<Locale::Script::add_script_alias(NAME ,NEW_NAME)>
+
+=item B<Locale::Script::delete_script_alias(NAME)>
+
+=item B<Locale::Script::rename_script_code(CODE ,NEW_CODE [,CODESET])>
+
+=item B<Locale::Script::add_script_code_alias(CODE ,NEW_CODE [,CODESET])>
+
+=item B<Locale::Script::delete_script_code_alias(CODE [,CODESET])>
+
+These routines are all documented in the L<Locale::Codes::API> man page.
+
+=back
+
+=head1 SEE ALSO
+
+=over 4
+
+=item L<Locale::Codes>
+
+The Locale-Codes distribution.
+
+=item L<Locale::Codes::API>
+
+The list of functions supported by this module.
+
+=item L<http://www.unicode.org/iso15924/>
+
+Home page for ISO 15924.
+
+=item L<http://www.iana.org/assignments/language-subtag-registry>
+
+The IANA language subtag registry.
+
+=back
+
+=head1 AUTHOR
+
+See Locale::Codes for full author history.
+
+Currently maintained by Sullivan Beck (sbeck@cpan.org).
+
+=head1 COPYRIGHT
+
+   Copyright (c) 1997-2001 Canon Research Centre Europe (CRE).
+   Copyright (c) 2001-2010 Neil Bowers
+   Copyright (c) 2010-2015 Sullivan Beck
+
+This module is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+=cut
diff --git a/lib/5.24.1/Math/BigFloat.pm b/lib/5.24.1/Math/BigFloat.pm
new file mode 100644
index 00000000..4c2c9b80
--- /dev/null
+++ b/lib/5.24.1/Math/BigFloat.pm
@@ -0,0 +1,5135 @@
+package Math::BigFloat;
+
+# 
+# Mike grinned. 'Two down, infinity to go' - Mike Nostrus in 'Before and After'
+#
+
+# The following hash values are internally used:
+#   _e	: exponent (ref to $CALC object)
+#   _m	: mantissa (ref to $CALC object)
+#   _es	: sign of _e
+# sign	: +,-,+inf,-inf, or "NaN" if not a number
+#   _a	: accuracy
+#   _p	: precision
+
+use 5.006001;
+use strict;
+use warnings;
+
+our $VERSION = '1.999715';
+$VERSION = eval $VERSION;
+
+require Exporter;
+our @ISA	= qw/Math::BigInt/;
+our @EXPORT_OK	= qw/bpi/;
+
+# $_trap_inf/$_trap_nan are internal and should never be accessed from outside
+our ($AUTOLOAD, $accuracy, $precision, $div_scale, $round_mode, $rnd_mode,
+     $upgrade, $downgrade, $_trap_nan, $_trap_inf);
+
+my $class = "Math::BigFloat";
+
+use overload
+  '<=>'	=>	sub { my $rc = $_[2] ? ref($_[0])->bcmp($_[1], $_[0])
+                                     : ref($_[0])->bcmp($_[0], $_[1]);
+		      $rc = 1 unless defined $rc;
+		      $rc <=> 0;
+		},
+# we need '>=' to get things like "1 >= NaN" right:
+  '>='	=>	sub { my $rc = $_[2] ? ref($_[0])->bcmp($_[1],$_[0])
+                                     : ref($_[0])->bcmp($_[0],$_[1]);
+		      # if there was a NaN involved, return false
+		      return '' unless defined $rc;
+		      $rc >= 0;
+		},
+  'int'	=>	sub { $_[0]->as_number() },		# 'trunc' to bigint
+;
+
+##############################################################################
+# global constants, flags and assorted stuff
+
+# the following are public, but their usage is not recommended. Use the
+# accessor methods instead.
+
+# class constants, use Class->constant_name() to access
+# one of 'even', 'odd', '+inf', '-inf', 'zero', 'trunc' or 'common'
+$round_mode = 'even';
+$accuracy   = undef;
+$precision  = undef;
+$div_scale  = 40;
+
+$upgrade = undef;
+$downgrade = undef;
+# the package we are using for our private parts, defaults to:
+# Math::BigInt->config()->{lib}
+my $MBI = 'Math::BigInt::Calc';
+
+# are NaNs ok? (otherwise it dies when encountering an NaN) set w/ config()
+$_trap_nan = 0;
+# the same for infinity
+$_trap_inf = 0;
+
+# constant for easier life
+my $nan = 'NaN'; 
+
+my $IMPORT = 0;	# was import() called yet? used to make require work
+
+# some digits of accuracy for blog(undef,10); which we use in blog() for speed
+my $LOG_10 = 
+ '2.3025850929940456840179914546843642076011014886287729760333279009675726097';
+my $LOG_10_A = length($LOG_10)-1;
+# ditto for log(2)
+my $LOG_2 = 
+ '0.6931471805599453094172321214581765680755001343602552541206800094933936220';
+my $LOG_2_A = length($LOG_2)-1;
+my $HALF = '0.5';			# made into an object if nec.
+
+##############################################################################
+# the old code had $rnd_mode, so we need to support it, too
+
+sub TIESCALAR   { my ($class) = @_; bless \$round_mode, $class; }
+sub FETCH       { return $round_mode; }
+sub STORE       { $rnd_mode = $_[0]->round_mode($_[1]); }
+
+BEGIN
+  {
+  # when someone sets $rnd_mode, we catch this and check the value to see
+  # whether it is valid or not. 
+  $rnd_mode   = 'even'; tie $rnd_mode, 'Math::BigFloat';
+
+  # we need both of them in this package:
+  *as_int = \&as_number;
+  }
+ 
+##############################################################################
+
+{
+  # valid method aliases for AUTOLOAD
+  my %methods = map { $_ => 1 }  
+   qw / fadd fsub fmul fdiv fround ffround fsqrt fmod fstr fsstr fpow fnorm
+        fint facmp fcmp fzero fnan finf finc fdec ffac fneg
+	fceil ffloor frsft flsft fone flog froot fexp
+      /;
+  # valid methods that can be handed up (for AUTOLOAD)
+  my %hand_ups = map { $_ => 1 }  
+   qw / is_nan is_inf is_negative is_positive is_pos is_neg
+        accuracy precision div_scale round_mode fabs fnot
+        objectify upgrade downgrade
+	bone binf bnan bzero
+	bsub
+      /;
+
+  sub _method_alias { exists $methods{$_[0]||''}; } 
+  sub _method_hand_up { exists $hand_ups{$_[0]||''}; } 
+}
+
+##############################################################################
+# constructors
+
+sub new {
+    # Create a new BigFloat object from a string or another bigfloat object.
+    # _e: exponent
+    # _m: mantissa
+    # sign  => sign ("+", "-", "+inf", "-inf", or "NaN"
+
+    my $self    = shift;
+    my $selfref = ref $self;
+    my $class   = $selfref || $self;
+
+    my ($wanted, @r) = @_;
+
+    # avoid numify-calls by not using || on $wanted!
+
+    unless (defined $wanted) {
+        require Carp;
+        Carp::carp("Use of uninitialized value in new");
+        return $self->bzero(@r);
+    }
+
+    # Using $wanted->isa("Math::BigFloat") here causes a 'Deep recursion on
+    # subroutine "Math::BigFloat::as_number"' in some tests. Fixme!
+
+    if (UNIVERSAL::isa($wanted, 'Math::BigFloat')) {
+        my $copy = $wanted -> copy();
+        if ($selfref) {                 # if new() called as instance method
+            %$self = %$copy;
+        } else {                        # if new() called as class method
+            $self = $copy;
+        }
+        return $copy;
+    }
+
+    $class->import() if $IMPORT == 0;             # make require work
+
+    # If called as a class method, initialize a new object.
+
+    $self = bless {}, $class unless $selfref;
+
+    # shortcut for bigints and its subclasses
+    if ((ref($wanted)) && $wanted -> can("as_number")) {
+        $self->{_m} = $wanted->as_number()->{value};  # get us a bigint copy
+        $self->{_e} = $MBI->_zero();
+        $self->{_es} = '+';
+        $self->{sign} = $wanted->sign();
+        return $self->bnorm();
+    }
+
+    # else: got a string or something masquerading as number (with overload)
+
+    # Handle Infs.
+
+    if ($wanted =~ /^\s*([+-]?)inf(inity)?\s*\z/i) {
+        return $downgrade->new($wanted) if $downgrade;
+        my $sgn = $1 || '+';
+        $self->{sign} = $sgn . 'inf';   # set a default sign for bstr()
+        return $self->binf($sgn);
+    }
+
+    # Shortcut for simple forms like '12' that have no trailing zeros.
+    if ($wanted =~ /^([+-]?)0*([1-9][0-9]*[1-9])$/) {
+        $self->{_e} = $MBI->_zero();
+        $self->{_es} = '+';
+        $self->{sign} = $1 || '+';
+        $self->{_m} = $MBI->_new($2);
+        return $self->round(@r) if !$downgrade;
+    }
+
+  my ($mis,$miv,$mfv,$es,$ev) = Math::BigInt::_split($wanted);
+  if (!ref $mis)
+    {
+    if ($_trap_nan)
+      {
+      require Carp;
+      Carp::croak ("$wanted is not a number initialized to $class");
+      }
+    
+    return $downgrade->bnan() if $downgrade;
+    
+    $self->{_e} = $MBI->_zero();
+    $self->{_es} = '+';
+    $self->{_m} = $MBI->_zero();
+    $self->{sign} = $nan;
+    }
+  else
+    {
+    # make integer from mantissa by adjusting exp, then convert to int
+    $self->{_e} = $MBI->_new($$ev);		# exponent
+    $self->{_es} = $$es || '+';
+    my $mantissa = "$$miv$$mfv"; 		# create mant.
+    $mantissa =~ s/^0+(\d)/$1/;			# strip leading zeros
+    $self->{_m} = $MBI->_new($mantissa); 	# create mant.
+
+    # 3.123E0 = 3123E-3, and 3.123E-2 => 3123E-5
+    if (CORE::length($$mfv) != 0)
+      {
+      my $len = $MBI->_new( CORE::length($$mfv));
+      ($self->{_e}, $self->{_es}) =
+	_e_sub ($self->{_e}, $len, $self->{_es}, '+');
+      }
+    # we can only have trailing zeros on the mantissa if $$mfv eq ''
+    else
+      {
+      # Use a regexp to count the trailing zeros in $$miv instead of _zeros()
+      # because that is faster, especially when _m is not stored in base 10.
+      my $zeros = 0; $zeros = CORE::length($1) if $$miv =~ /[1-9](0*)$/; 
+      if ($zeros != 0)
+        {
+        my $z = $MBI->_new($zeros);
+        # turn '120e2' into '12e3'
+        $MBI->_rsft ( $self->{_m}, $z, 10);
+        ($self->{_e}, $self->{_es}) =
+	  _e_add ( $self->{_e}, $z, $self->{_es}, '+');
+        }
+      }
+    $self->{sign} = $$mis;
+
+    # for something like 0Ey, set y to 0, and -0 => +0
+    # Check $$miv for being '0' and $$mfv eq '', because otherwise _m could not
+    # have become 0. That's faster than to call $MBI->_is_zero().
+    $self->{sign} = '+', $self->{_e} = $MBI->_zero()
+     if $$miv eq '0' and $$mfv eq '';
+
+    return $self->round(@r) if !$downgrade;
+    }
+  # if downgrade, inf, NaN or integers go down
+
+  if ($downgrade && $self->{_es} eq '+')
+    {
+    if ($MBI->_is_zero( $self->{_e} ))
+      {
+      return $downgrade->new($$mis . $MBI->_str( $self->{_m} ));
+      }
+    return $downgrade->new($self->bsstr()); 
+    }
+  $self->bnorm()->round(@r);			# first normalize, then round
+  }
+
+sub copy {
+    my $self    = shift;
+    my $selfref = ref $self;
+    my $class   = $selfref || $self;
+
+    # If called as a class method, the object to copy is the next argument.
+
+    $self = shift() unless $selfref;
+
+    my $copy = bless {}, $class;
+
+    $copy->{sign} = $self->{sign};
+    $copy->{_es}  = $self->{_es};
+    $copy->{_m}   = $MBI->_copy($self->{_m});
+    $copy->{_e}   = $MBI->_copy($self->{_e});
+    $copy->{_a}   = $self->{_a} if exists $self->{_a};
+    $copy->{_p}   = $self->{_p} if exists $self->{_p};
+
+    return $copy;
+}
+
+sub _bnan
+  {
+  # used by parent class bone() to initialize number to NaN
+  my $self = shift;
+  
+  if ($_trap_nan)
+    {
+    require Carp;
+    my $class = ref($self);
+    Carp::croak ("Tried to set $self to NaN in $class\::_bnan()");
+    }
+
+  $IMPORT=1;					# call our import only once
+  $self->{_m} = $MBI->_zero();
+  $self->{_e} = $MBI->_zero();
+  $self->{_es} = '+';
+  }
+
+sub _binf
+  {
+  # used by parent class bone() to initialize number to +-inf
+  my $self = shift;
+  
+  if ($_trap_inf)
+    {
+    require Carp;
+    my $class = ref($self);
+    Carp::croak ("Tried to set $self to +-inf in $class\::_binf()");
+    }
+
+  $IMPORT=1;					# call our import only once
+  $self->{_m} = $MBI->_zero();
+  $self->{_e} = $MBI->_zero();
+  $self->{_es} = '+';
+  }
+
+sub _bone
+  {
+  # used by parent class bone() to initialize number to 1
+  my $self = shift;
+  $IMPORT=1;					# call our import only once
+  $self->{_m} = $MBI->_one();
+  $self->{_e} = $MBI->_zero();
+  $self->{_es} = '+';
+  }
+
+sub _bzero
+  {
+  # used by parent class bzero() to initialize number to 0
+  my $self = shift;
+  $IMPORT=1;					# call our import only once
+  $self->{_m} = $MBI->_zero();
+  $self->{_e} = $MBI->_zero();
+  $self->{_es} = '+';
+  }
+
+sub isa
+  {
+  my ($self,$class) = @_;
+  return if $class =~ /^Math::BigInt/;		# we aren't one of these
+  UNIVERSAL::isa($self,$class);
+  }
+
+sub config
+  {
+  # return (later set?) configuration data as hash ref
+  my $class = shift || 'Math::BigFloat';
+
+  if (@_ == 1 && ref($_[0]) ne 'HASH')
+    {
+    my $cfg = $class->SUPER::config();
+    return $cfg->{$_[0]};
+    }
+
+  my $cfg = $class->SUPER::config(@_);
+
+  # now we need only to override the ones that are different from our parent
+  $cfg->{class} = $class;
+  $cfg->{with} = $MBI;
+  $cfg;
+  }
+
+##############################################################################
+# string conversion
+
+sub bstr 
+  {
+  # (ref to BFLOAT or num_str ) return num_str
+  # Convert number from internal format to (non-scientific) string format.
+  # internal format is always normalized (no leading zeros, "-0" => "+0")
+  my ($self,$x) = ref($_[0]) ? (undef,$_[0]) : objectify(1,@_);
+
+  if ($x->{sign} !~ /^[+-]$/)
+    {
+    return $x->{sign} unless $x->{sign} eq '+inf';      # -inf, NaN
+    return 'inf';                                       # +inf
+    }
+
+  my $es = '0'; my $len = 1; my $cad = 0; my $dot = '.';
+
+  # $x is zero?
+  my $not_zero = !($x->{sign} eq '+' && $MBI->_is_zero($x->{_m}));
+  if ($not_zero)
+    {
+    $es = $MBI->_str($x->{_m});
+    $len = CORE::length($es);
+    my $e = $MBI->_num($x->{_e});	
+    $e = -$e if $x->{_es} eq '-';
+    if ($e < 0)
+      {
+      $dot = '';
+      # if _e is bigger than a scalar, the following will blow your memory
+      if ($e <= -$len)
+        {
+        my $r = abs($e) - $len;
+        $es = '0.'. ('0' x $r) . $es; $cad = -($len+$r);
+        }
+      else
+        {
+        substr($es,$e,0) = '.'; $cad = $MBI->_num($x->{_e});
+        $cad = -$cad if $x->{_es} eq '-';
+        }
+      }
+    elsif ($e > 0)
+      {
+      # expand with zeros
+      $es .= '0' x $e; $len += $e; $cad = 0;
+      }
+    } # if not zero
+
+  $es = '-'.$es if $x->{sign} eq '-';
+  # if set accuracy or precision, pad with zeros on the right side
+  if ((defined $x->{_a}) && ($not_zero))
+    {
+    # 123400 => 6, 0.1234 => 4, 0.001234 => 4
+    my $zeros = $x->{_a} - $cad;		# cad == 0 => 12340
+    $zeros = $x->{_a} - $len if $cad != $len;
+    $es .= $dot.'0' x $zeros if $zeros > 0;
+    }
+  elsif ((($x->{_p} || 0) < 0))
+    {
+    # 123400 => 6, 0.1234 => 4, 0.001234 => 6
+    my $zeros = -$x->{_p} + $cad;
+    $es .= $dot.'0' x $zeros if $zeros > 0;
+    }
+  $es;
+  }
+
+sub bsstr
+  {
+  # (ref to BFLOAT or num_str ) return num_str
+  # Convert number from internal format to scientific string format.
+  # internal format is always normalized (no leading zeros, "-0E0" => "+0E0")
+  my ($self,$x) = ref($_[0]) ? (undef,$_[0]) : objectify(1,@_);
+
+  if ($x->{sign} !~ /^[+-]$/)
+    {
+    return $x->{sign} unless $x->{sign} eq '+inf';      # -inf, NaN
+    return 'inf';                                       # +inf
+    }
+  my $sep = 'e'.$x->{_es};
+  my $sign = $x->{sign}; $sign = '' if $sign eq '+';
+  $sign . $MBI->_str($x->{_m}) . $sep . $MBI->_str($x->{_e});
+  }
+    
+sub numify 
+  {
+  # Make a Perl scalar number from a Math::BigFloat object.
+  my ($self,$x) = ref($_[0]) ? (undef,$_[0]) : objectify(1,@_);
+
+  if ($x -> is_nan()) {
+      require Math::Complex;
+      my $inf = Math::Complex::Inf();
+      return $inf - $inf;
+  }
+
+  if ($x -> is_inf()) {
+      require Math::Complex;
+      my $inf = Math::Complex::Inf();
+      return $x -> is_negative() ? -$inf : $inf;
+  }
+
+  # Create a string and let Perl's atoi()/atof() handle the rest.
+  return 0 + $x -> bsstr();
+  }
+
+##############################################################################
+# public stuff (usually prefixed with "b")
+
+sub bneg
+  {
+  # (BINT or num_str) return BINT
+  # negate number or make a negated number from string
+  my ($self,$x) = ref($_[0]) ? (undef,$_[0]) : objectify(1,@_);
+
+  return $x if $x->modify('bneg');
+
+  # for +0 do not negate (to have always normalized +0). Does nothing for 'NaN'
+  $x->{sign} =~ tr/+-/-+/ unless ($x->{sign} eq '+' && $MBI->_is_zero($x->{_m}));
+  $x;
+  }
+
+# tels 2001-08-04 
+# XXX TODO this must be overwritten and return NaN for non-integer values
+# band(), bior(), bxor(), too
+#sub bnot
+#  {
+#  $class->SUPER::bnot($class,@_);
+#  }
+
+sub bcmp 
+  {
+  # Compares 2 values.  Returns one of undef, <0, =0, >0. (suitable for sort)
+
+  # set up parameters
+  my ($self,$x,$y) = (ref($_[0]),@_);
+
+  # objectify is costly, so avoid it
+  if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1])))
+    {
+    ($self,$x,$y) = objectify(2,@_);
+    }
+
+  return $upgrade->bcmp($x,$y) if defined $upgrade &&
+    ((!$x->isa($self)) || (!$y->isa($self)));
+
+  # Handle all 'nan' cases.
+
+  return undef if ($x->{sign} eq $nan) || ($y->{sign} eq $nan);
+
+  # Handle all '+inf' and '-inf' cases.
+
+  return  0 if ($x->{sign} eq '+inf' && $y->{sign} eq '+inf' ||
+                $x->{sign} eq '-inf' && $y->{sign} eq '-inf');
+  return +1 if $x->{sign} eq '+inf';    # x = +inf and y < +inf
+  return -1 if $x->{sign} eq '-inf';    # x = -inf and y > -inf
+  return -1 if $y->{sign} eq '+inf';    # x < +inf and y = +inf
+  return +1 if $y->{sign} eq '-inf';    # x > -inf and y = -inf
+
+  # Handle all cases with opposite signs.
+
+  return +1 if $x->{sign} eq '+' && $y->{sign} eq '-';  # also does 0 <=> -y
+  return -1 if $x->{sign} eq '-' && $y->{sign} eq '+';  # also does -x <=> 0
+
+  # Handle all remaining zero cases.
+
+  my $xz = $x->is_zero();
+  my $yz = $y->is_zero();
+  return  0 if $xz && $yz;                              # 0 <=> 0
+  return -1 if $xz && $y->{sign} eq '+';                # 0 <=> +y
+  return +1 if $yz && $x->{sign} eq '+';                # +x <=> 0
+
+  # Both arguments are now finite, non-zero numbers with the same sign.
+
+  my $cmp;
+
+  # The next step is to compare the exponents, but since each mantissa is an
+  # integer of arbitrary value, the exponents must be normalized by the length
+  # of the mantissas before we can compare them.
+
+  my $mxl = $MBI->_len($x->{_m});
+  my $myl = $MBI->_len($y->{_m});
+
+  # If the mantissas have the same length, there is no point in normalizing the
+  # exponents by the length of the mantissas, so treat that as a special case.
+
+  if ($mxl == $myl) {
+
+      # First handle the two cases where the exponents have different signs.
+
+      if ($x->{_es} eq '+' && $y->{_es} eq '-') {
+          $cmp = +1;
+      }
+
+      elsif ($x->{_es} eq '-' && $y->{_es} eq '+') {
+          $cmp = -1;
+      }
+
+      # Then handle the case where the exponents have the same sign.
+
+      else {
+          $cmp = $MBI->_acmp($x->{_e}, $y->{_e});
+          $cmp = -$cmp if $x->{_es} eq '-';
+      }
+
+      # Adjust for the sign, which is the same for x and y, and bail out if
+      # we're done.
+
+      $cmp = -$cmp if $x->{sign} eq '-';        # 124 > 123, but -124 < -123
+      return $cmp if $cmp;
+
+  }
+
+  # We must normalize each exponent by the length of the corresponding
+  # mantissa. Life is a lot easier if we first make both exponents
+  # non-negative. We do this by adding the same positive value to both
+  # exponent. This is safe, because when comparing the exponents, only the
+  # relative difference is important.
+
+  my $ex;
+  my $ey;
+
+  if ($x->{_es} eq '+') {
+
+      # If the exponent of x is >= 0 and the exponent of y is >= 0, there is no
+      # need to do anything special.
+
+      if ($y->{_es} eq '+') {
+          $ex = $MBI->_copy($x->{_e});
+          $ey = $MBI->_copy($y->{_e});
+      }
+
+      # If the exponent of x is >= 0 and the exponent of y is < 0, add the
+      # absolute value of the exponent of y to both.
+
+      else {
+          $ex = $MBI->_copy($x->{_e});
+          $ex = $MBI->_add($ex, $y->{_e});      # ex + |ey|
+          $ey = $MBI->_zero();                  # -ex + |ey| = 0
+      }
+
+  } else {
+
+      # If the exponent of x is < 0 and the exponent of y is >= 0, add the
+      # absolute value of the exponent of x to both.
+
+      if ($y->{_es} eq '+') {
+          $ex = $MBI->_zero();                  # -ex + |ex| = 0
+          $ey = $MBI->_copy($y->{_e});
+          $ey = $MBI->_add($ey, $x->{_e});      # ey + |ex|
+      }
+
+      # If the exponent of x is < 0 and the exponent of y is < 0, add the
+      # absolute values of both exponents to both exponents.
+
+      else {
+          $ex = $MBI->_copy($y->{_e});          # -ex + |ey| + |ex| = |ey|
+          $ey = $MBI->_copy($x->{_e});          # -ey + |ex| + |ey| = |ex|
+      }
+
+  }
+
+  # Now we can normalize the exponents by adding lengths of the mantissas.
+
+  $MBI->_add($ex, $MBI->_new($mxl));
+  $MBI->_add($ey, $MBI->_new($myl));
+
+  # We're done if the exponents are different.
+
+  $cmp = $MBI->_acmp($ex, $ey);
+  $cmp = -$cmp if $x->{sign} eq '-';            # 124 > 123, but -124 < -123
+  return $cmp if $cmp;
+
+  # Compare the mantissas, but first normalize them by padding the shorter
+  # mantissa with zeros (shift left) until it has the same length as the longer
+  # mantissa.
+
+  my $mx = $x->{_m};
+  my $my = $y->{_m};
+
+  if ($mxl > $myl) {
+      $my = $MBI->_lsft($MBI->_copy($my), $MBI->_new($mxl - $myl), 10);
+  } elsif ($mxl < $myl) {
+      $mx = $MBI->_lsft($MBI->_copy($mx), $MBI->_new($myl - $mxl), 10);
+  }
+
+  $cmp = $MBI->_acmp($mx, $my);
+  $cmp = -$cmp if $x->{sign} eq '-';            # 124 > 123, but -124 < -123
+  return $cmp;
+
+  }
+
+sub bacmp 
+  {
+  # Compares 2 values, ignoring their signs. 
+  # Returns one of undef, <0, =0, >0. (suitable for sort)
+  
+  # set up parameters
+  my ($self,$x,$y) = (ref($_[0]),@_);
+  # objectify is costly, so avoid it
+  if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1])))
+    {
+    ($self,$x,$y) = objectify(2,@_);
+    }
+
+  return $upgrade->bacmp($x,$y) if defined $upgrade &&
+    ((!$x->isa($self)) || (!$y->isa($self)));
+
+  # handle +-inf and NaN's
+  if ($x->{sign} !~ /^[+-]$/ || $y->{sign} !~ /^[+-]$/)
+    {
+    return undef if (($x->{sign} eq $nan) || ($y->{sign} eq $nan));
+    return 0 if ($x->is_inf() && $y->is_inf());
+    return 1 if ($x->is_inf() && !$y->is_inf());
+    return -1;
+    }
+
+  # shortcut 
+  my $xz = $x->is_zero();
+  my $yz = $y->is_zero();
+  return 0 if $xz && $yz;				# 0 <=> 0
+  return -1 if $xz && !$yz;				# 0 <=> +y
+  return 1 if $yz && !$xz;				# +x <=> 0
+
+  # adjust so that exponents are equal
+  my $lxm = $MBI->_len($x->{_m});
+  my $lym = $MBI->_len($y->{_m});
+  my ($xes,$yes) = (1,1);
+  $xes = -1 if $x->{_es} ne '+';
+  $yes = -1 if $y->{_es} ne '+';
+  # the numify somewhat limits our length, but makes it much faster
+  my $lx = $lxm + $xes * $MBI->_num($x->{_e});
+  my $ly = $lym + $yes * $MBI->_num($y->{_e});
+  my $l = $lx - $ly;
+  return $l <=> 0 if $l != 0;
+  
+  # lengths (corrected by exponent) are equal
+  # so make mantissa equal-length by padding with zero (shift left)
+  my $diff = $lxm - $lym;
+  my $xm = $x->{_m};		# not yet copy it
+  my $ym = $y->{_m};
+  if ($diff > 0)
+    {
+    $ym = $MBI->_copy($y->{_m});
+    $ym = $MBI->_lsft($ym, $MBI->_new($diff), 10);
+    }
+  elsif ($diff < 0)
+    {
+    $xm = $MBI->_copy($x->{_m});
+    $xm = $MBI->_lsft($xm, $MBI->_new(-$diff), 10);
+    }
+  $MBI->_acmp($xm,$ym);
+  }
+
+sub badd 
+  {
+  # add second arg (BFLOAT or string) to first (BFLOAT) (modifies first)
+  # return result as BFLOAT
+
+  # set up parameters
+  my ($self,$x,$y,@r) = (ref($_[0]),@_);
+  # objectify is costly, so avoid it
+  if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1])))
+    {
+    ($self,$x,$y,@r) = objectify(2,@_);
+    }
+ 
+  return $x if $x->modify('badd');
+
+  # inf and NaN handling
+  if (($x->{sign} !~ /^[+-]$/) || ($y->{sign} !~ /^[+-]$/))
+    {
+    # NaN first
+    return $x->bnan() if (($x->{sign} eq $nan) || ($y->{sign} eq $nan));
+    # inf handling
+    if (($x->{sign} =~ /^[+-]inf$/) && ($y->{sign} =~ /^[+-]inf$/))
+      {
+      # +inf++inf or -inf+-inf => same, rest is NaN
+      return $x if $x->{sign} eq $y->{sign};
+      return $x->bnan();
+      }
+    # +-inf + something => +inf; something +-inf => +-inf
+    $x->{sign} = $y->{sign}, return $x if $y->{sign} =~ /^[+-]inf$/;
+    return $x;
+    }
+
+  return $upgrade->badd($x,$y,@r) if defined $upgrade &&
+   ((!$x->isa($self)) || (!$y->isa($self)));
+
+  $r[3] = $y;						# no push!
+
+  # speed: no add for 0+y or x+0
+  return $x->bround(@r) if $y->is_zero();		# x+0
+  if ($x->is_zero())					# 0+y
+    {
+    # make copy, clobbering up x (modify in place!)
+    $x->{_e} = $MBI->_copy($y->{_e});
+    $x->{_es} = $y->{_es};
+    $x->{_m} = $MBI->_copy($y->{_m});
+    $x->{sign} = $y->{sign} || $nan;
+    return $x->round(@r);
+    }
+ 
+  # take lower of the two e's and adapt m1 to it to match m2
+  my $e = $y->{_e};
+  $e = $MBI->_zero() if !defined $e;		# if no BFLOAT?
+  $e = $MBI->_copy($e);				# make copy (didn't do it yet)
+
+  my $es;
+
+  ($e,$es) = _e_sub($e, $x->{_e}, $y->{_es} || '+', $x->{_es});
+
+  my $add = $MBI->_copy($y->{_m});
+
+  if ($es eq '-')				# < 0
+    {
+    $MBI->_lsft( $x->{_m}, $e, 10);
+    ($x->{_e},$x->{_es}) = _e_add($x->{_e}, $e, $x->{_es}, $es);
+    }
+  elsif (!$MBI->_is_zero($e))			# > 0
+    {
+    $MBI->_lsft($add, $e, 10);
+    }
+  # else: both e are the same, so just leave them
+
+  if ($x->{sign} eq $y->{sign})
+    {
+    # add
+    $x->{_m} = $MBI->_add($x->{_m}, $add);
+    }
+  else
+    {
+    ($x->{_m}, $x->{sign}) = 
+     _e_add($x->{_m}, $add, $x->{sign}, $y->{sign});
+    }
+
+  # delete trailing zeros, then round
+  $x->bnorm()->round(@r);
+  }
+
+# sub bsub is inherited from Math::BigInt!
+
+sub binc
+  {
+  # increment arg by one
+  my ($self,$x,@r) = ref($_[0]) ? (ref($_[0]),@_) : objectify(1,@_);
+
+  return $x if $x->modify('binc');
+
+  if ($x->{_es} eq '-')
+    {
+    return $x->badd($self->bone(),@r);	#  digits after dot
+    }
+
+  if (!$MBI->_is_zero($x->{_e}))		# _e == 0 for NaN, inf, -inf
+    {
+    # 1e2 => 100, so after the shift below _m has a '0' as last digit
+    $x->{_m} = $MBI->_lsft($x->{_m}, $x->{_e},10);	# 1e2 => 100
+    $x->{_e} = $MBI->_zero();				# normalize
+    $x->{_es} = '+';
+    # we know that the last digit of $x will be '1' or '9', depending on the
+    # sign
+    }
+  # now $x->{_e} == 0
+  if ($x->{sign} eq '+')
+    {
+    $MBI->_inc($x->{_m});
+    return $x->bnorm()->bround(@r);
+    }
+  elsif ($x->{sign} eq '-')
+    {
+    $MBI->_dec($x->{_m});
+    $x->{sign} = '+' if $MBI->_is_zero($x->{_m}); # -1 +1 => -0 => +0
+    return $x->bnorm()->bround(@r);
+    }
+  # inf, nan handling etc
+  $x->badd($self->bone(),@r);			# badd() does round 
+  }
+
+sub bdec
+  {
+  # decrement arg by one
+  my ($self,$x,@r) = ref($_[0]) ? (ref($_[0]),@_) : objectify(1,@_);
+
+  return $x if $x->modify('bdec');
+
+  if ($x->{_es} eq '-')
+    {
+    return $x->badd($self->bone('-'),@r);	#  digits after dot
+    }
+
+  if (!$MBI->_is_zero($x->{_e}))
+    {
+    $x->{_m} = $MBI->_lsft($x->{_m}, $x->{_e},10);	# 1e2 => 100
+    $x->{_e} = $MBI->_zero();				# normalize
+    $x->{_es} = '+';
+    }
+  # now $x->{_e} == 0
+  my $zero = $x->is_zero();
+  # <= 0
+  if (($x->{sign} eq '-') || $zero)
+    {
+    $MBI->_inc($x->{_m});
+    $x->{sign} = '-' if $zero;				# 0 => 1 => -1
+    $x->{sign} = '+' if $MBI->_is_zero($x->{_m});	# -1 +1 => -0 => +0
+    return $x->bnorm()->round(@r);
+    }
+  # > 0
+  elsif ($x->{sign} eq '+')
+    {
+    $MBI->_dec($x->{_m});
+    return $x->bnorm()->round(@r);
+    }
+  # inf, nan handling etc
+  $x->badd($self->bone('-'),@r);		# does round
+  } 
+
+sub DEBUG () { 0; }
+
+sub blog
+  {
+  my ($self,$x,$base,$a,$p,$r) = ref($_[0]) ? (ref($_[0]),@_) : objectify(1,@_);
+
+  # If called as $x -> blog() or $x -> blog(undef), don't objectify the
+  # undefined base, since undef signals that the base is Euler's number.
+  #unless (ref($x) && !defined($base)) {
+  #    # objectify is costly, so avoid it
+  #    if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1]))) {
+  #        ($self,$x,$base,$a,$p,$r) = objectify(2,@_);
+  #    }
+  #}
+
+  return $x if $x->modify('blog');
+
+  return $x -> bnan() if $x -> is_nan();
+
+  # we need to limit the accuracy to protect against overflow
+  my $fallback = 0;
+  my ($scale,@params);
+  ($x,@params) = $x->_find_round_parameters($a,$p,$r);
+
+  # no rounding at all, so must use fallback
+  if (scalar @params == 0)
+    {
+    # simulate old behaviour
+    $params[0] = $self->div_scale();	# and round to it as accuracy
+    $params[1] = undef;			# P = undef
+    $scale = $params[0]+4; 		# at least four more for proper round
+    $params[2] = $r;			# round mode by caller or undef
+    $fallback = 1;			# to clear a/p afterwards
+    }
+  else
+    {
+    # the 4 below is empirical, and there might be cases where it is not
+    # enough...
+    $scale = abs($params[0] || $params[1]) + 4;	# take whatever is defined
+    }
+
+  my $done = 0;
+  if (defined $base) {
+      $base = $self -> new($base) unless ref $base;
+      if ($base -> is_nan() || $base -> is_one()) {
+          $x -> bnan();
+          $done = 1;
+      } elsif ($base -> is_inf() || $base -> is_zero()) {
+          if ($x -> is_inf() || $x -> is_zero()) {
+              $x -> bnan();
+          } else {
+              $x -> bzero(@params);
+          }
+          $done = 1;
+      } elsif ($base -> is_negative()) {        # -inf < base < 0
+          if ($x -> is_one()) {                 #     x = 1
+              $x -> bzero(@params);
+          } elsif ($x == $base) {
+              $x -> bone('+', @params);         #     x = base
+          } else {
+              $x -> bnan();                     #     otherwise
+          }
+          $done = 1;
+      } elsif ($x == $base) {
+          $x -> bone('+', @params);             # 0 < base && 0 < x < inf
+          $done = 1;
+      }
+  }
+
+  # We now know that the base is either undefined or positive and finite.
+
+  unless ($done) {
+      if ($x -> is_inf()) {             #   x = +/-inf
+          my $sign = defined $base && $base < 1 ? '-' : '+';
+          $x -> binf($sign);
+          $done = 1;
+      } elsif ($x -> is_neg()) {        #   -inf < x < 0
+          $x -> bnan();
+          $done = 1;
+      } elsif ($x -> is_one()) {        #   x = 1
+          $x -> bzero(@params);
+          $done = 1;
+      } elsif ($x -> is_zero()) {       #   x = 0
+          my $sign = defined $base && $base < 1 ? '+' : '-';
+          $x -> binf($sign);
+          $done = 1;
+      }
+  }
+
+  if ($done) {
+      if ($fallback) {
+        # clear a/p after round, since user did not request it
+          delete $x->{_a};
+          delete $x->{_p};
+        }
+      return $x;
+      }
+
+  # when user set globals, they would interfere with our calculation, so
+  # disable them and later re-enable them
+  no strict 'refs';
+  my $abr = "$self\::accuracy"; my $ab = $$abr; $$abr = undef;
+  my $pbr = "$self\::precision"; my $pb = $$pbr; $$pbr = undef;
+  # we also need to disable any set A or P on $x (_find_round_parameters took
+  # them already into account), since these would interfere, too
+  delete $x->{_a}; delete $x->{_p};
+  # need to disable $upgrade in BigInt, to avoid deep recursion
+  local $Math::BigInt::upgrade = undef;
+  local $Math::BigFloat::downgrade = undef;
+
+  # upgrade $x if $x is not a BigFloat (handle BigInt input)
+  # XXX TODO: rebless!
+  if (!$x->isa('Math::BigFloat'))
+    {
+    $x = Math::BigFloat->new($x);
+    $self = ref($x);
+    }
+  
+  $done = 0;
+
+  # If the base is defined and an integer, try to calculate integer result
+  # first. This is very fast, and in case the real result was found, we can
+  # stop right here.
+  if (defined $base && $base->is_int() && $x->is_int())
+    {
+    my $i = $MBI->_copy( $x->{_m} );
+    $MBI->_lsft( $i, $x->{_e}, 10 ) unless $MBI->_is_zero($x->{_e});
+    my $int = Math::BigInt->bzero();
+    $int->{value} = $i;
+    $int->blog($base->as_number());
+    # if ($exact)
+    if ($base->as_number()->bpow($int) == $x)
+      {
+      # found result, return it
+      $x->{_m} = $int->{value};
+      $x->{_e} = $MBI->_zero();
+      $x->{_es} = '+';
+      $x->bnorm();
+      $done = 1;
+      }
+    }
+
+  if ($done == 0)
+    {
+    # base is undef, so base should be e (Euler's number), so first calculate the
+    # log to base e (using reduction by 10 (and probably 2)):
+    $self->_log_10($x,$scale);
+
+    # and if a different base was requested, convert it
+    if (defined $base)
+      {
+      $base = Math::BigFloat->new($base) unless $base->isa('Math::BigFloat');
+      # not ln, but some other base (don't modify $base)
+      $x->bdiv( $base->copy()->blog(undef,$scale), $scale );
+      }
+    }
+ 
+  # shortcut to not run through _find_round_parameters again
+  if (defined $params[0])
+    {
+    $x->bround($params[0],$params[2]);		# then round accordingly
+    }
+  else
+    {
+    $x->bfround($params[1],$params[2]);		# then round accordingly
+    }
+  if ($fallback)
+    {
+    # clear a/p after round, since user did not request it
+    delete $x->{_a}; delete $x->{_p};
+    }
+  # restore globals
+  $$abr = $ab; $$pbr = $pb;
+
+  $x;
+  }
+
+sub _len_to_steps
+  {
+  # Given D (digits in decimal), compute N so that N! (N factorial) is
+  # at least D digits long. D should be at least 50.
+  my $d = shift;
+
+  # two constants for the Ramanujan estimate of ln(N!)
+  my $lg2 = log(2 * 3.14159265) / 2;
+  my $lg10 = log(10);
+
+  # D = 50 => N => 42, so L = 40 and R = 50
+  my $l = 40; my $r = $d;
+
+  # Otherwise this does not work under -Mbignum and we do not yet have "no bignum;" :(
+  $l = $l->numify if ref($l);
+  $r = $r->numify if ref($r);
+  $lg2 = $lg2->numify if ref($lg2);
+  $lg10 = $lg10->numify if ref($lg10);
+
+  # binary search for the right value (could this be written as the reverse of lg(n!)?)
+  while ($r - $l > 1)
+    {
+    my $n = int(($r - $l) / 2) + $l;
+    my $ramanujan = 
+      int(($n * log($n) - $n + log( $n * (1 + 4*$n*(1+2*$n)) ) / 6 + $lg2) / $lg10);
+    $ramanujan > $d ? $r = $n : $l = $n;
+    }
+  $l;
+  }
+
+sub bnok
+  {
+  # Calculate n over k (binomial coefficient or "choose" function) as integer.
+  # set up parameters
+  my ($self,$x,$y,@r) = (ref($_[0]),@_);
+
+  # objectify is costly, so avoid it
+  if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1])))
+    {
+    ($self,$x,$y,@r) = objectify(2,@_);
+    }
+
+  return $x if $x->modify('bnok');
+
+  return $x->bnan() if $x->is_nan() || $y->is_nan();
+  return $x->binf() if $x->is_inf();
+
+  my $u = $x->as_int();
+  $u->bnok($y->as_int());
+
+  $x->{_m} = $u->{value};
+  $x->{_e} = $MBI->_zero();
+  $x->{_es} = '+';
+  $x->{sign} = '+';
+  $x->bnorm(@r);
+  }
+
+sub bexp
+  {
+  # Calculate e ** X (Euler's number to the power of X)
+  my ($self,$x,$a,$p,$r) = ref($_[0]) ? (ref($_[0]),@_) : objectify(1,@_);
+
+  return $x if $x->modify('bexp');
+
+  return $x->binf() if $x->{sign} eq '+inf';
+  return $x->bzero() if $x->{sign} eq '-inf';
+
+  # we need to limit the accuracy to protect against overflow
+  my $fallback = 0;
+  my ($scale,@params);
+  ($x,@params) = $x->_find_round_parameters($a,$p,$r);
+
+  # also takes care of the "error in _find_round_parameters?" case
+  return $x if $x->{sign} eq 'NaN';
+
+  # no rounding at all, so must use fallback
+  if (scalar @params == 0)
+    {
+    # simulate old behaviour
+    $params[0] = $self->div_scale();	# and round to it as accuracy
+    $params[1] = undef;			# P = undef
+    $scale = $params[0]+4; 		# at least four more for proper round
+    $params[2] = $r;			# round mode by caller or undef
+    $fallback = 1;			# to clear a/p afterwards
+    }
+  else
+    {
+    # the 4 below is empirical, and there might be cases where it's not enough...
+    $scale = abs($params[0] || $params[1]) + 4;	# take whatever is defined
+    }
+
+  return $x->bone(@params) if $x->is_zero();
+
+  if (!$x->isa('Math::BigFloat'))
+    {
+    $x = Math::BigFloat->new($x);
+    $self = ref($x);
+    }
+  
+  # when user set globals, they would interfere with our calculation, so
+  # disable them and later re-enable them
+  no strict 'refs';
+  my $abr = "$self\::accuracy"; my $ab = $$abr; $$abr = undef;
+  my $pbr = "$self\::precision"; my $pb = $$pbr; $$pbr = undef;
+  # we also need to disable any set A or P on $x (_find_round_parameters took
+  # them already into account), since these would interfere, too
+  delete $x->{_a}; delete $x->{_p};
+  # need to disable $upgrade in BigInt, to avoid deep recursion
+  local $Math::BigInt::upgrade = undef;
+  local $Math::BigFloat::downgrade = undef;
+
+  my $x_org = $x->copy();
+
+  # We use the following Taylor series:
+
+  #           x    x^2   x^3   x^4
+  #  e = 1 + --- + --- + --- + --- ...
+  #           1!    2!    3!    4!
+
+  # The difference for each term is X and N, which would result in:
+  # 2 copy, 2 mul, 2 add, 1 inc, 1 div operations per term
+
+  # But it is faster to compute exp(1) and then raising it to the
+  # given power, esp. if $x is really big and an integer because:
+
+  #  * The numerator is always 1, making the computation faster
+  #  * the series converges faster in the case of x == 1
+  #  * We can also easily check when we have reached our limit: when the
+  #    term to be added is smaller than "1E$scale", we can stop - f.i.
+  #    scale == 5, and we have 1/40320, then we stop since 1/40320 < 1E-5.
+  #  * we can compute the *exact* result by simulating bigrat math:
+
+  #  1   1    gcd(3,4) = 1    1*24 + 1*6    5
+  #  - + -                  = ---------- =  --                 
+  #  6   24                      6*24       24
+
+  # We do not compute the gcd() here, but simple do:
+  #  1   1    1*24 + 1*6   30
+  #  - + -  = --------- =  --                 
+  #  6   24       6*24     144
+
+  # In general:
+  #  a   c    a*d + c*b 	and note that c is always 1 and d = (b*f)
+  #  - + -  = ---------
+  #  b   d       b*d
+
+  # This leads to:         which can be reduced by b to:
+  #  a   1     a*b*f + b    a*f + 1
+  #  - + -   = --------- =  -------
+  #  b   b*f     b*b*f        b*f
+
+  # The first terms in the series are:
+
+  # 1     1    1    1    1    1     1     1     13700
+  # -- + -- + -- + -- + -- + --- + --- + ---- = -----
+  # 1     1    2    6   24   120   720   5040   5040
+
+  # Note that we cannot simple reduce 13700/5040 to 685/252, but must keep A and B!
+
+  if ($scale <= 75)
+    {
+    # set $x directly from a cached string form
+    $x->{_m} = $MBI->_new(
+    "27182818284590452353602874713526624977572470936999595749669676277240766303535476");
+    $x->{sign} = '+';
+    $x->{_es} = '-';
+    $x->{_e} = $MBI->_new(79);
+    }
+  else
+    {
+    # compute A and B so that e = A / B.
+ 
+    # After some terms we end up with this, so we use it as a starting point:
+    my $A = $MBI->_new("90933395208605785401971970164779391644753259799242");
+    my $F = $MBI->_new(42); my $step = 42;
+
+    # Compute how many steps we need to take to get $A and $B sufficiently big
+    my $steps = _len_to_steps($scale - 4);
+#    print STDERR "# Doing $steps steps for ", $scale-4, " digits\n";
+    while ($step++ <= $steps)
+      {
+      # calculate $a * $f + 1
+      $A = $MBI->_mul($A, $F);
+      $A = $MBI->_inc($A);
+      # increment f
+      $F = $MBI->_inc($F);
+      }
+    # compute $B as factorial of $steps (this is faster than doing it manually)
+    my $B = $MBI->_fac($MBI->_new($steps));
+    
+#  print "A ", $MBI->_str($A), "\nB ", $MBI->_str($B), "\n";
+
+    # compute A/B with $scale digits in the result (truncate, not round)
+    $A = $MBI->_lsft( $A, $MBI->_new($scale), 10);
+    $A = $MBI->_div( $A, $B );
+
+    $x->{_m} = $A;
+    $x->{sign} = '+';
+    $x->{_es} = '-';
+    $x->{_e} = $MBI->_new($scale);
+    }
+
+  # $x contains now an estimate of e, with some surplus digits, so we can round
+  if (!$x_org->is_one())
+    {
+    # Reduce size of fractional part, followup with integer power of two.
+    my $lshift = 0;
+    while ($lshift < 30 && $x_org->bacmp(2 << $lshift) > 0)
+      {
+        $lshift++;
+      }
+    # Raise $x to the wanted power and round it.
+    if ($lshift == 0)
+      {
+        $x->bpow($x_org, @params);
+      }
+    else
+      {
+        my($mul, $rescale) = (1 << $lshift, $scale+1+$lshift);
+        $x->bpow(scalar $x_org->bdiv($mul,$rescale),$rescale)->bpow($mul, @params);
+      }
+    }
+  else
+    {
+    # else just round the already computed result
+    delete $x->{_a}; delete $x->{_p};
+    # shortcut to not run through _find_round_parameters again
+    if (defined $params[0])
+      {
+      $x->bround($params[0],$params[2]);		# then round accordingly
+      }
+    else
+      {
+      $x->bfround($params[1],$params[2]);		# then round accordingly
+      }
+    }
+  if ($fallback)
+    {
+    # clear a/p after round, since user did not request it
+    delete $x->{_a}; delete $x->{_p};
+    }
+  # restore globals
+  $$abr = $ab; $$pbr = $pb;
+
+  $x;						# return modified $x
+  }
+
+sub _log
+  {
+  # internal log function to calculate ln() based on Taylor series.
+  # Modifies $x in place.
+  my ($self,$x,$scale) = @_;
+
+  # in case of $x == 1, result is 0
+  return $x->bzero() if $x->is_one();
+
+  # XXX TODO: rewrite this in a similar manner to bexp()
+
+  # http://www.efunda.com/math/taylor_series/logarithmic.cfm?search_string=log
+
+  # u = x-1, v = x+1
+  #              _                               _
+  # Taylor:     |    u    1   u^3   1   u^5       |
+  # ln (x)  = 2 |   --- + - * --- + - * --- + ... |  x > 0
+  #             |_   v    3   v^3   5   v^5      _|
+
+  # This takes much more steps to calculate the result and is thus not used
+  # u = x-1
+  #              _                               _
+  # Taylor:     |    u    1   u^2   1   u^3       |
+  # ln (x)  = 2 |   --- + - * --- + - * --- + ... |  x > 1/2
+  #             |_   x    2   x^2   3   x^3      _|
+
+  my ($limit,$v,$u,$below,$factor,$two,$next,$over,$f);
+
+  $v = $x->copy(); $v->binc();		# v = x+1
+  $x->bdec(); $u = $x->copy();		# u = x-1; x = x-1
+  $x->bdiv($v,$scale);			# first term: u/v
+  $below = $v->copy();
+  $over = $u->copy();
+  $u *= $u; $v *= $v;				# u^2, v^2
+  $below->bmul($v);				# u^3, v^3
+  $over->bmul($u);
+  $factor = $self->new(3); $f = $self->new(2);
+
+  my $steps = 0;
+  $limit = $self->new("1E-". ($scale-1));
+  while (3 < 5)
+    {
+    # we calculate the next term, and add it to the last
+    # when the next term is below our limit, it won't affect the outcome
+    # anymore, so we stop
+
+    # calculating the next term simple from over/below will result in quite
+    # a time hog if the input has many digits, since over and below will
+    # accumulate more and more digits, and the result will also have many
+    # digits, but in the end it is rounded to $scale digits anyway. So if we
+    # round $over and $below first, we save a lot of time for the division
+    # (not with log(1.2345), but try log (123**123) to see what I mean. This
+    # can introduce a rounding error if the division result would be f.i.
+    # 0.1234500000001 and we round it to 5 digits it would become 0.12346, but
+    # if we truncated $over and $below we might get 0.12345. Does this matter
+    # for the end result? So we give $over and $below 4 more digits to be
+    # on the safe side (unscientific error handling as usual... :+D
+
+    $next = $over->copy->bround($scale+4)->bdiv(
+      $below->copy->bmul($factor)->bround($scale+4), 
+      $scale);
+
+## old version:    
+##    $next = $over->copy()->bdiv($below->copy()->bmul($factor),$scale);
+
+    last if $next->bacmp($limit) <= 0;
+
+    delete $next->{_a}; delete $next->{_p};
+    $x->badd($next);
+    # calculate things for the next term
+    $over *= $u; $below *= $v; $factor->badd($f);
+    if (DEBUG)
+      {
+      $steps++; print "step $steps = $x\n" if $steps % 10 == 0;
+      }
+    }
+  print "took $steps steps\n" if DEBUG;
+  $x->bmul($f);					# $x *= 2
+  }
+
+sub _log_10
+  {
+  # Internal log function based on reducing input to the range of 0.1 .. 9.99
+  # and then "correcting" the result to the proper one. Modifies $x in place.
+  my ($self,$x,$scale) = @_;
+
+  # Taking blog() from numbers greater than 10 takes a *very long* time, so we
+  # break the computation down into parts based on the observation that:
+  #  blog(X*Y) = blog(X) + blog(Y)
+  # We set Y here to multiples of 10 so that $x becomes below 1 - the smaller
+  # $x is the faster it gets. Since 2*$x takes about 10 times as
+  # long, we make it faster by about a factor of 100 by dividing $x by 10.
+
+  # The same observation is valid for numbers smaller than 0.1, e.g. computing
+  # log(1) is fastest, and the further away we get from 1, the longer it takes.
+  # So we also 'break' this down by multiplying $x with 10 and subtract the
+  # log(10) afterwards to get the correct result.
+
+  # To get $x even closer to 1, we also divide by 2 and then use log(2) to
+  # correct for this. For instance if $x is 2.4, we use the formula:
+  #  blog(2.4 * 2) == blog (1.2) + blog(2)
+  # and thus calculate only blog(1.2) and blog(2), which is faster in total
+  # than calculating blog(2.4).
+
+  # In addition, the values for blog(2) and blog(10) are cached.
+
+  # Calculate nr of digits before dot:
+  my $dbd = $MBI->_num($x->{_e});
+  $dbd = -$dbd if $x->{_es} eq '-';
+  $dbd += $MBI->_len($x->{_m});
+
+  # more than one digit (e.g. at least 10), but *not* exactly 10 to avoid
+  # infinite recursion
+
+  my $calc = 1;					# do some calculation?
+
+  # disable the shortcut for 10, since we need log(10) and this would recurse
+  # infinitely deep
+  if ($x->{_es} eq '+' && $MBI->_is_one($x->{_e}) && $MBI->_is_one($x->{_m}))
+    {
+    $dbd = 0;					# disable shortcut
+    # we can use the cached value in these cases
+    if ($scale <= $LOG_10_A)
+      {
+      $x->bzero(); $x->badd($LOG_10);		# modify $x in place
+      $calc = 0; 				# no need to calc, but round
+      }
+    # if we can't use the shortcut, we continue normally
+    }
+  else
+    {
+    # disable the shortcut for 2, since we maybe have it cached
+    if (($MBI->_is_zero($x->{_e}) && $MBI->_is_two($x->{_m})))
+      {
+      $dbd = 0;					# disable shortcut
+      # we can use the cached value in these cases
+      if ($scale <= $LOG_2_A)
+        {
+        $x->bzero(); $x->badd($LOG_2);		# modify $x in place
+        $calc = 0; 				# no need to calc, but round
+        }
+      # if we can't use the shortcut, we continue normally
+      }
+    }
+
+  # if $x = 0.1, we know the result must be 0-log(10)
+  if ($calc != 0 && $x->{_es} eq '-' && $MBI->_is_one($x->{_e}) &&
+      $MBI->_is_one($x->{_m}))
+    {
+    $dbd = 0;					# disable shortcut
+    # we can use the cached value in these cases
+    if ($scale <= $LOG_10_A)
+      {
+      $x->bzero(); $x->bsub($LOG_10);
+      $calc = 0; 				# no need to calc, but round
+      }
+    }
+
+  return if $calc == 0;				# already have the result
+
+  # default: these correction factors are undef and thus not used
+  my $l_10;				# value of ln(10) to A of $scale
+  my $l_2;				# value of ln(2) to A of $scale
+
+  my $two = $self->new(2);
+
+  # $x == 2 => 1, $x == 13 => 2, $x == 0.1 => 0, $x == 0.01 => -1
+  # so don't do this shortcut for 1 or 0
+  if (($dbd > 1) || ($dbd < 0))
+    {
+    # convert our cached value to an object if not already (avoid doing this
+    # at import() time, since not everybody needs this)
+    $LOG_10 = $self->new($LOG_10,undef,undef) unless ref $LOG_10;
+
+    #print "x = $x, dbd = $dbd, calc = $calc\n";
+    # got more than one digit before the dot, or more than one zero after the
+    # dot, so do:
+    #  log(123)    == log(1.23) + log(10) * 2
+    #  log(0.0123) == log(1.23) - log(10) * 2
+  
+    if ($scale <= $LOG_10_A)
+      {
+      # use cached value
+      $l_10 = $LOG_10->copy();		# copy for mul
+      }
+    else
+      {
+      # else: slower, compute and cache result
+      # also disable downgrade for this code path
+      local $Math::BigFloat::downgrade = undef;
+
+      # shorten the time to calculate log(10) based on the following:
+      # log(1.25 * 8) = log(1.25) + log(8)
+      #               = log(1.25) + log(2) + log(2) + log(2)
+
+      # first get $l_2 (and possible compute and cache log(2))
+      $LOG_2 = $self->new($LOG_2,undef,undef) unless ref $LOG_2;
+      if ($scale <= $LOG_2_A)
+        {
+        # use cached value
+        $l_2 = $LOG_2->copy();			# copy() for the mul below
+        }
+      else
+        {
+        # else: slower, compute and cache result
+        $l_2 = $two->copy(); $self->_log($l_2, $scale); # scale+4, actually
+        $LOG_2 = $l_2->copy();			# cache the result for later
+						# the copy() is for mul below
+        $LOG_2_A = $scale;
+        }
+
+      # now calculate log(1.25):
+      $l_10 = $self->new('1.25'); $self->_log($l_10, $scale); # scale+4, actually
+
+      # log(1.25) + log(2) + log(2) + log(2):
+      $l_10->badd($l_2);
+      $l_10->badd($l_2);
+      $l_10->badd($l_2);
+      $LOG_10 = $l_10->copy();		# cache the result for later
+					# the copy() is for mul below
+      $LOG_10_A = $scale;
+      }
+    $dbd-- if ($dbd > 1); 		# 20 => dbd=2, so make it dbd=1	
+    $l_10->bmul( $self->new($dbd));	# log(10) * (digits_before_dot-1)
+    my $dbd_sign = '+';
+    if ($dbd < 0)
+      {
+      $dbd = -$dbd;
+      $dbd_sign = '-';
+      }
+    ($x->{_e}, $x->{_es}) = 
+	_e_sub( $x->{_e}, $MBI->_new($dbd), $x->{_es}, $dbd_sign); # 123 => 1.23
+ 
+    }
+
+  # Now: 0.1 <= $x < 10 (and possible correction in l_10)
+
+  ### Since $x in the range 0.5 .. 1.5 is MUCH faster, we do a repeated div
+  ### or mul by 2 (maximum times 3, since x < 10 and x > 0.1)
+
+  $HALF = $self->new($HALF) unless ref($HALF);
+
+  my $twos = 0;				# default: none (0 times)	
+  while ($x->bacmp($HALF) <= 0)		# X <= 0.5
+    {
+    $twos--; $x->bmul($two);
+    }
+  while ($x->bacmp($two) >= 0)		# X >= 2
+    {
+    $twos++; $x->bdiv($two,$scale+4);		# keep all digits
+    }
+  $x->bround($scale+4);
+  # $twos > 0 => did mul 2, < 0 => did div 2 (but we never did both)
+  # So calculate correction factor based on ln(2):
+  if ($twos != 0)
+    {
+    $LOG_2 = $self->new($LOG_2,undef,undef) unless ref $LOG_2;
+    if ($scale <= $LOG_2_A)
+      {
+      # use cached value
+      $l_2 = $LOG_2->copy();			# copy() for the mul below
+      }
+    else
+      {
+      # else: slower, compute and cache result
+      # also disable downgrade for this code path
+      local $Math::BigFloat::downgrade = undef;
+      $l_2 = $two->copy(); $self->_log($l_2, $scale); # scale+4, actually
+      $LOG_2 = $l_2->copy();			# cache the result for later
+						# the copy() is for mul below
+      $LOG_2_A = $scale;
+      }
+    $l_2->bmul($twos);		# * -2 => subtract, * 2 => add
+    }
+  else
+    {
+      undef $l_2;
+    }
+  
+  $self->_log($x,$scale);			# need to do the "normal" way
+  $x->badd($l_10) if defined $l_10; 		# correct it by ln(10)
+  $x->badd($l_2) if defined $l_2;		# and maybe by ln(2)
+
+  # all done, $x contains now the result
+  $x;
+  }
+
+sub blcm 
+  { 
+  # (BFLOAT or num_str, BFLOAT or num_str) return BFLOAT
+  # does not modify arguments, but returns new object
+  # Lowest Common Multiplicator
+
+  my ($self,@arg) = objectify(0,@_);
+  my $x = $self->new(shift @arg);
+  while (@arg) { $x = Math::BigInt::__lcm($x,shift @arg); } 
+  $x;
+  }
+
+sub bgcd
+  {
+  # (BINT or num_str, BINT or num_str) return BINT
+  # does not modify arguments, but returns new object
+
+  my $y = shift;
+  $y = __PACKAGE__->new($y) if !ref($y);
+  my $self = ref($y);
+  my $x = $y->copy()->babs();			# keep arguments
+
+  return $x->bnan() if $x->{sign} !~ /^[+-]$/	# x NaN?
+	|| !$x->is_int();			# only for integers now
+
+  while (@_)
+    {
+    my $t = shift; $t = $self->new($t) if !ref($t);
+    $y = $t->copy()->babs();
+    
+    return $x->bnan() if $y->{sign} !~ /^[+-]$/	# y NaN?
+     	|| !$y->is_int();			# only for integers now
+
+    # greatest common divisor
+    while (! $y->is_zero())
+      {
+      ($x,$y) = ($y->copy(), $x->copy()->bmod($y));
+      }
+
+    last if $x->is_one();
+    }
+  $x;
+  }
+
+##############################################################################
+
+sub _e_add {
+    # Internal helper sub to take two positive integers and their signs and
+    # then add them. Input ($CALC, $CALC, ('+'|'-'), ('+'|'-')), output
+    # ($CALC, ('+'|'-')).
+
+    my ($x, $y, $xs, $ys) = @_;
+
+    # if the signs are equal we can add them (-5 + -3 => -(5 + 3) => -8)
+    if ($xs eq $ys) {
+        $x = $MBI->_add($x, $y);                # +a + +b or -a + -b
+    } else {
+        my $a = $MBI->_acmp($x, $y);
+        if ($a == 0) {
+            # This does NOT modify $x in-place. TODO: Fix this?
+            $x = $MBI->_zero();                 # result is 0
+            $xs = '+';
+            return ($x, $xs);
+        }
+        if ($a > 0) {
+            $x = $MBI->_sub($x, $y);            # abs sub
+        } else {                                # a < 0
+            $x = $MBI->_sub ( $y, $x, 1 );      # abs sub
+            $xs = $ys;
+        }
+    }
+
+    $xs = '+' if $xs eq '-' && $MBI->_is_zero($x);      # no "-0"
+
+    return ($x, $xs);
+}
+
+sub _e_sub {
+  # Internal helper sub to take two positive integers and their signs and
+  # then subtract them. Input ($CALC,$CALC,('+'|'-'),('+'|'-')), 
+  # output ($CALC,('+'|'-'))
+  my ($x,$y,$xs,$ys) = @_;
+
+  # flip sign
+    $ys = $ys eq '+' ? '-' : '+';       # swap sign of second operand ...
+    _e_add($x, $y, $xs, $ys);           # ... and let _e_add() do the job
+  }
+
+###############################################################################
+# is_foo methods (is_negative, is_positive are inherited from BigInt)
+
+sub is_int
+  {
+  # return true if arg (BFLOAT or num_str) is an integer
+  my ($self,$x) = ref($_[0]) ? (undef,$_[0]) : objectify(1,@_);
+
+  (($x->{sign} =~ /^[+-]$/) &&			# NaN and +-inf aren't
+   ($x->{_es} eq '+')) ? 1 : 0;			# 1e-1 => no integer
+  }
+
+sub is_zero
+  {
+  # return true if arg (BFLOAT or num_str) is zero
+  my ($self,$x) = ref($_[0]) ? (undef,$_[0]) : objectify(1,@_);
+
+  ($x->{sign} eq '+' && $MBI->_is_zero($x->{_m})) ? 1 : 0;
+  }
+
+sub is_one
+  {
+  # return true if arg (BFLOAT or num_str) is +1 or -1 if signis given
+  my ($self,$x,$sign) = ref($_[0]) ? (undef,@_) : objectify(1,@_);
+
+  $sign = '+' if !defined $sign || $sign ne '-';
+
+  ($x->{sign} eq $sign && 
+   $MBI->_is_zero($x->{_e}) &&
+   $MBI->_is_one($x->{_m}) ) ? 1 : 0; 
+  }
+
+sub is_odd
+  {
+  # return true if arg (BFLOAT or num_str) is odd or false if even
+  my ($self,$x) = ref($_[0]) ? (undef,$_[0]) : objectify(1,@_);
+  
+  (($x->{sign} =~ /^[+-]$/) &&		# NaN & +-inf aren't
+   ($MBI->_is_zero($x->{_e})) &&
+   ($MBI->_is_odd($x->{_m}))) ? 1 : 0; 
+  }
+
+sub is_even
+  {
+  # return true if arg (BINT or num_str) is even or false if odd
+  my ($self,$x) = ref($_[0]) ? (undef,$_[0]) : objectify(1,@_);
+
+  (($x->{sign} =~ /^[+-]$/) &&			# NaN & +-inf aren't
+   ($x->{_es} eq '+') &&	 		# 123.45 isn't
+   ($MBI->_is_even($x->{_m}))) ? 1 : 0;		# but 1200 is
+  }
+
+sub bmul
+  { 
+  # multiply two numbers
+  
+  # set up parameters
+  my ($self,$x,$y,@r) = (ref($_[0]),@_);
+  # objectify is costly, so avoid it
+  if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1])))
+    {
+    ($self,$x,$y,@r) = objectify(2,@_);
+    }
+
+  return $x if $x->modify('bmul');
+
+  return $x->bnan() if (($x->{sign} eq $nan) || ($y->{sign} eq $nan));
+
+  # inf handling
+  if (($x->{sign} =~ /^[+-]inf$/) || ($y->{sign} =~ /^[+-]inf$/))
+    {
+    return $x->bnan() if $x->is_zero() || $y->is_zero(); 
+    # result will always be +-inf:
+    # +inf * +/+inf => +inf, -inf * -/-inf => +inf
+    # +inf * -/-inf => -inf, -inf * +/+inf => -inf
+    return $x->binf() if ($x->{sign} =~ /^\+/ && $y->{sign} =~ /^\+/);
+    return $x->binf() if ($x->{sign} =~ /^-/ && $y->{sign} =~ /^-/);
+    return $x->binf('-');
+    }
+  
+  return $upgrade->bmul($x,$y,@r) if defined $upgrade &&
+   ((!$x->isa($self)) || (!$y->isa($self)));
+
+  # aEb * cEd = (a*c)E(b+d)
+  $MBI->_mul($x->{_m},$y->{_m});
+  ($x->{_e}, $x->{_es}) = _e_add($x->{_e}, $y->{_e}, $x->{_es}, $y->{_es});
+
+  $r[3] = $y;				# no push!
+
+  # adjust sign:
+  $x->{sign} = $x->{sign} ne $y->{sign} ? '-' : '+';
+  $x->bnorm->round(@r);
+  }
+
+sub bmuladd
+  { 
+  # multiply two numbers and add the third to the result
+  
+  # set up parameters
+  my ($self,$x,$y,$z,@r) = objectify(3,@_);
+
+  return $x if $x->modify('bmuladd');
+
+  return $x->bnan() if (($x->{sign} eq $nan) ||
+			($y->{sign} eq $nan) ||
+			($z->{sign} eq $nan));
+
+  # inf handling
+  if (($x->{sign} =~ /^[+-]inf$/) || ($y->{sign} =~ /^[+-]inf$/))
+    {
+    return $x->bnan() if $x->is_zero() || $y->is_zero(); 
+    # result will always be +-inf:
+    # +inf * +/+inf => +inf, -inf * -/-inf => +inf
+    # +inf * -/-inf => -inf, -inf * +/+inf => -inf
+    return $x->binf() if ($x->{sign} =~ /^\+/ && $y->{sign} =~ /^\+/);
+    return $x->binf() if ($x->{sign} =~ /^-/ && $y->{sign} =~ /^-/);
+    return $x->binf('-');
+    }
+
+  return $upgrade->bmul($x,$y,@r) if defined $upgrade &&
+   ((!$x->isa($self)) || (!$y->isa($self)));
+
+  # aEb * cEd = (a*c)E(b+d)
+  $MBI->_mul($x->{_m},$y->{_m});
+  ($x->{_e}, $x->{_es}) = _e_add($x->{_e}, $y->{_e}, $x->{_es}, $y->{_es});
+
+  $r[3] = $y;				# no push!
+
+  # adjust sign:
+  $x->{sign} = $x->{sign} ne $y->{sign} ? '-' : '+';
+
+  # z=inf handling (z=NaN handled above)
+  $x->{sign} = $z->{sign}, return $x if $z->{sign} =~ /^[+-]inf$/;
+
+  # take lower of the two e's and adapt m1 to it to match m2
+  my $e = $z->{_e};
+  $e = $MBI->_zero() if !defined $e;		# if no BFLOAT?
+  $e = $MBI->_copy($e);				# make copy (didn't do it yet)
+
+  my $es;
+
+  ($e,$es) = _e_sub($e, $x->{_e}, $z->{_es} || '+', $x->{_es});
+
+  my $add = $MBI->_copy($z->{_m});
+
+  if ($es eq '-')				# < 0
+    {
+    $MBI->_lsft( $x->{_m}, $e, 10);
+    ($x->{_e},$x->{_es}) = _e_add($x->{_e}, $e, $x->{_es}, $es);
+    }
+  elsif (!$MBI->_is_zero($e))			# > 0
+    {
+    $MBI->_lsft($add, $e, 10);
+    }
+  # else: both e are the same, so just leave them
+
+  if ($x->{sign} eq $z->{sign})
+    {
+    # add
+    $x->{_m} = $MBI->_add($x->{_m}, $add);
+    }
+  else
+    {
+    ($x->{_m}, $x->{sign}) = 
+     _e_add($x->{_m}, $add, $x->{sign}, $z->{sign});
+    }
+
+  # delete trailing zeros, then round
+  $x->bnorm()->round(@r);
+  }
+
+sub bdiv 
+  {
+  # (dividend: BFLOAT or num_str, divisor: BFLOAT or num_str) return 
+    # (BFLOAT, BFLOAT) (quo, rem) or BFLOAT (only quo)
+
+  # set up parameters
+  my ($self,$x,$y,$a,$p,$r) = (ref($_[0]),@_);
+  # objectify is costly, so avoid it
+  if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1])))
+    {
+    ($self,$x,$y,$a,$p,$r) = objectify(2,@_);
+    }
+
+  return $x if $x->modify('bdiv');
+
+    my $wantarray = wantarray;          # call only once
+
+    # At least one argument is NaN. This is handled the same way as in
+    # Math::BigInt -> bdiv().
+
+    if ($x -> is_nan() || $y -> is_nan()) {
+        return $wantarray ? ($x -> bnan(), $self -> bnan()) : $x -> bnan();
+    }
+
+    # Divide by zero and modulo zero. This is handled the same way as in
+    # Math::BigInt -> bdiv(). See the comment in the code for Math::BigInt ->
+    # bdiv() for further details.
+
+    if ($y -> is_zero()) {
+        my ($quo, $rem);
+        if ($wantarray) {
+            $rem = $x -> copy();
+        }
+        if ($x -> is_zero()) {
+            $quo = $x -> bnan();
+        } else {
+            $quo = $x -> binf($x -> {sign});
+        }
+        return $wantarray ? ($quo, $rem) : $quo;
+    }
+
+    # Numerator (dividend) is +/-inf. This is handled the same way as in
+    # Math::BigInt -> bdiv(). See the comment in the code for Math::BigInt ->
+    # bdiv() for further details.
+
+    if ($x -> is_inf()) {
+        my ($quo, $rem);
+        $rem = $self -> bnan() if $wantarray;
+        if ($y -> is_inf()) {
+            $quo = $x -> bnan();
+        } else {
+            my $sign = $x -> bcmp(0) == $y -> bcmp(0) ? '+' : '-';
+            $quo = $x -> binf($sign);
+        }
+        return $wantarray ? ($quo, $rem) : $quo;
+    }
+
+  # Denominator (divisor) is +/-inf. This is handled the same way as in
+  # Math::BigInt -> bdiv(), with one exception: In scalar context,
+  # Math::BigFloat does true division (although rounded), not floored division
+  # (F-division), so a finite number divided by +/-inf is always zero. See the
+  # comment in the code for Math::BigInt -> bdiv() for further details.
+
+  if ($y -> is_inf()) {
+      my ($quo, $rem);
+      if ($wantarray) {
+          if ($x -> is_zero() || $x -> bcmp(0) == $y -> bcmp(0)) {
+              $rem = $x -> copy();
+              $quo = $x -> bzero();
+          } else {
+              $rem = $self -> binf($y -> {sign});
+              $quo = $x -> bone('-');
+          }
+          return ($quo, $rem);
+      } else {
+        if ($y -> is_inf()) {
+            if ($x -> is_nan() || $x -> is_inf()) {
+                return $x -> bnan();
+            } else {
+                return $x -> bzero();
+            }
+        }
+    }
+    }
+
+  # At this point, both the numerator and denominator are finite numbers, and
+  # the denominator (divisor) is non-zero.
+
+  # x == 0?
+  return wantarray ? ($x,$self->bzero()) : $x if $x->is_zero();
+
+  # upgrade ?
+  return $upgrade->bdiv($upgrade->new($x),$y,$a,$p,$r) if defined $upgrade;
+
+  # we need to limit the accuracy to protect against overflow
+  my $fallback = 0;
+  my (@params,$scale);
+  ($x,@params) = $x->_find_round_parameters($a,$p,$r,$y);
+
+  return $x if $x->is_nan();		# error in _find_round_parameters?
+
+  # no rounding at all, so must use fallback
+    if (scalar @params == 0)
+    {
+    # simulate old behaviour
+    $params[0] = $self->div_scale();	# and round to it as accuracy
+    $scale = $params[0]+4; 		# at least four more for proper round
+    $params[2] = $r;			# round mode by caller or undef
+    $fallback = 1;			# to clear a/p afterwards
+    } else {
+    # the 4 below is empirical, and there might be cases where it is not
+    # enough...
+    $scale = abs($params[0] || $params[1]) + 4;	# take whatever is defined
+    }
+
+    my $rem;
+    $rem = $self -> bzero() if wantarray;
+
+  $y = $self->new($y) unless $y->isa('Math::BigFloat');
+
+  my $lx = $MBI -> _len($x->{_m}); my $ly = $MBI -> _len($y->{_m});
+  $scale = $lx if $lx > $scale;
+  $scale = $ly if $ly > $scale;
+  my $diff = $ly - $lx;
+  $scale += $diff if $diff > 0;		# if lx << ly, but not if ly << lx!
+
+  # check that $y is not 1 nor -1 and cache the result:
+  my $y_not_one = !($MBI->_is_zero($y->{_e}) && $MBI->_is_one($y->{_m}));
+
+  # flipping the sign of $y will also flip the sign of $x for the special
+  # case of $x->bsub($x); so we can catch it below:
+  my $xsign = $x->{sign};
+  $y->{sign} =~ tr/+-/-+/;
+
+  if ($xsign ne $x->{sign})
+    {
+    # special case of $x /= $x results in 1
+    $x->bone();			# "fixes" also sign of $y, since $x is $y
+    }
+  else
+    {
+    # correct $y's sign again
+    $y->{sign} =~ tr/+-/-+/;
+    # continue with normal div code:
+
+    # make copy of $x in case of list context for later remainder calculation
+    if (wantarray && $y_not_one)
+      {
+      $rem = $x->copy();
+      }
+
+    $x->{sign} = $x->{sign} ne $y->sign() ? '-' : '+'; 
+
+    # check for / +-1 ( +/- 1E0)
+    if ($y_not_one)
+      {
+      # promote BigInts and it's subclasses (except when already a BigFloat)
+      $y = $self->new($y) unless $y->isa('Math::BigFloat'); 
+
+      # calculate the result to $scale digits and then round it
+      # a * 10 ** b / c * 10 ** d => a/c * 10 ** (b-d)
+      $MBI->_lsft($x->{_m},$MBI->_new($scale),10);
+      $MBI->_div ($x->{_m},$y->{_m});	# a/c
+
+      # correct exponent of $x
+      ($x->{_e},$x->{_es}) = _e_sub($x->{_e}, $y->{_e}, $x->{_es}, $y->{_es});
+      # correct for 10**scale
+      ($x->{_e},$x->{_es}) = _e_sub($x->{_e}, $MBI->_new($scale), $x->{_es}, '+');
+      $x->bnorm();		# remove trailing 0's
+      }
+    } # end else $x != $y
+
+  # shortcut to not run through _find_round_parameters again
+  if (defined $params[0])
+    {
+    delete $x->{_a}; 				# clear before round
+    $x->bround($params[0],$params[2]);		# then round accordingly
+    }
+  else
+    {
+    delete $x->{_p}; 				# clear before round
+    $x->bfround($params[1],$params[2]);		# then round accordingly
+    }
+  if ($fallback)
+    {
+    # clear a/p after round, since user did not request it
+    delete $x->{_a}; delete $x->{_p};
+    }
+
+  if (wantarray)
+    {
+    if ($y_not_one)
+      {
+      $x -> bfloor();
+      $rem->bmod($y,@params);			# copy already done
+      }
+    if ($fallback)
+      {
+      # clear a/p after round, since user did not request it
+      delete $rem->{_a}; delete $rem->{_p};
+      }
+    return ($x,$rem);
+    }
+  $x;
+  }
+
+sub bmod 
+  {
+  # (dividend: BFLOAT or num_str, divisor: BFLOAT or num_str) return remainder
+
+  # set up parameters
+  my ($self,$x,$y,$a,$p,$r) = (ref($_[0]),@_);
+  # objectify is costly, so avoid it
+  if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1])))
+    {
+    ($self,$x,$y,$a,$p,$r) = objectify(2,@_);
+    }
+
+  return $x if $x->modify('bmod');
+
+    # At least one argument is NaN. This is handled the same way as in
+    # Math::BigInt -> bmod().
+
+    if ($x -> is_nan() || $y -> is_nan()) {
+        return $x -> bnan();
+    } 
+
+    # Modulo zero. This is handled the same way as in Math::BigInt -> bmod().
+
+    if ($y -> is_zero()) {
+    return $x;
+    }
+
+    # Numerator (dividend) is +/-inf. This is handled the same way as in
+    # Math::BigInt -> bmod().
+
+    if ($x -> is_inf()) {
+        return $x -> bnan();
+    }
+
+    # Denominator (divisor) is +/-inf. This is handled the same way as in
+    # Math::BigInt -> bmod().
+
+    if ($y -> is_inf()) {
+        if ($x -> is_zero() || $x -> bcmp(0) == $y -> bcmp(0)) {
+            return $x;
+        } else {
+            return $x -> binf($y -> sign());
+        }
+    }
+
+  return $x->bzero() if $x->is_zero()
+ || ($x->is_int() &&
+  # check that $y == +1 or $y == -1:
+    ($MBI->_is_zero($y->{_e}) && $MBI->_is_one($y->{_m})));
+
+  my $cmp = $x->bacmp($y);			# equal or $x < $y?
+    if ($cmp == 0) {                            # $x == $y => result 0
+        return $x -> bzero($a, $p);
+    }
+
+  # only $y of the operands negative? 
+    my $neg = $x->{sign} ne $y->{sign} ? 1 : 0;
+
+  $x->{sign} = $y->{sign};				# calc sign first
+    if ($cmp < 0 && $neg == 0) {                # $x < $y => result $x
+        return $x -> round($a, $p, $r);
+    }
+  
+  my $ym = $MBI->_copy($y->{_m});
+  
+  # 2e1 => 20
+  $MBI->_lsft( $ym, $y->{_e}, 10) 
+   if $y->{_es} eq '+' && !$MBI->_is_zero($y->{_e});
+ 
+  # if $y has digits after dot
+  my $shifty = 0;			# correct _e of $x by this
+  if ($y->{_es} eq '-')			# has digits after dot
+    {
+    # 123 % 2.5 => 1230 % 25 => 5 => 0.5
+    $shifty = $MBI->_num($y->{_e}); 	# no more digits after dot
+    $MBI->_lsft($x->{_m}, $y->{_e}, 10);# 123 => 1230, $y->{_m} is already 25
+    }
+  # $ym is now mantissa of $y based on exponent 0
+
+  my $shiftx = 0;			# correct _e of $x by this
+  if ($x->{_es} eq '-')			# has digits after dot
+    {
+    # 123.4 % 20 => 1234 % 200
+    $shiftx = $MBI->_num($x->{_e});	# no more digits after dot
+    $MBI->_lsft($ym, $x->{_e}, 10);	# 123 => 1230
+    }
+  # 123e1 % 20 => 1230 % 20
+  if ($x->{_es} eq '+' && !$MBI->_is_zero($x->{_e}))
+    {
+    $MBI->_lsft( $x->{_m}, $x->{_e},10);	# es => '+' here
+    }
+
+  $x->{_e} = $MBI->_new($shiftx);
+  $x->{_es} = '+'; 
+  $x->{_es} = '-' if $shiftx != 0 || $shifty != 0;
+  $MBI->_add( $x->{_e}, $MBI->_new($shifty)) if $shifty != 0;
+  
+  # now mantissas are equalized, exponent of $x is adjusted, so calc result
+
+  $x->{_m} = $MBI->_mod( $x->{_m}, $ym);
+
+  $x->{sign} = '+' if $MBI->_is_zero($x->{_m});		# fix sign for -0
+  $x->bnorm();
+
+    if ($neg != 0 && ! $x -> is_zero())   # one of them negative => correct in place
+    {
+    my $r = $y - $x;
+    $x->{_m} = $r->{_m};
+    $x->{_e} = $r->{_e};
+    $x->{_es} = $r->{_es};
+    $x->{sign} = '+' if $MBI->_is_zero($x->{_m});	# fix sign for -0
+    $x->bnorm();
+    }
+
+  $x->round($a,$p,$r,$y);	# round and return
+  }
+
+sub broot
+  {
+  # calculate $y'th root of $x
+  
+  # set up parameters
+  my ($self,$x,$y,$a,$p,$r) = (ref($_[0]),@_);
+  # objectify is costly, so avoid it
+  if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1])))
+    {
+    ($self,$x,$y,$a,$p,$r) = objectify(2,@_);
+    }
+
+  return $x if $x->modify('broot');
+
+  # NaN handling: $x ** 1/0, x or y NaN, or y inf/-inf or y == 0
+  return $x->bnan() if $x->{sign} !~ /^\+/ || $y->is_zero() ||
+         $y->{sign} !~ /^\+$/;
+
+  return $x if $x->is_zero() || $x->is_one() || $x->is_inf() || $y->is_one();
+  
+  # we need to limit the accuracy to protect against overflow
+  my $fallback = 0;
+  my (@params,$scale);
+  ($x,@params) = $x->_find_round_parameters($a,$p,$r);
+
+  return $x if $x->is_nan();		# error in _find_round_parameters?
+
+  # no rounding at all, so must use fallback
+  if (scalar @params == 0) 
+    {
+    # simulate old behaviour
+    $params[0] = $self->div_scale();	# and round to it as accuracy
+    $scale = $params[0]+4; 		# at least four more for proper round
+    $params[2] = $r;			# round mode by caller or undef
+    $fallback = 1;			# to clear a/p afterwards
+    }
+  else
+    {
+    # the 4 below is empirical, and there might be cases where it is not
+    # enough...
+    $scale = abs($params[0] || $params[1]) + 4; # take whatever is defined
+    }
+
+  # when user set globals, they would interfere with our calculation, so
+  # disable them and later re-enable them
+  no strict 'refs';
+  my $abr = "$self\::accuracy"; my $ab = $$abr; $$abr = undef;
+  my $pbr = "$self\::precision"; my $pb = $$pbr; $$pbr = undef;
+  # we also need to disable any set A or P on $x (_find_round_parameters took
+  # them already into account), since these would interfere, too
+  delete $x->{_a}; delete $x->{_p};
+  # need to disable $upgrade in BigInt, to avoid deep recursion
+  local $Math::BigInt::upgrade = undef;	# should be really parent class vs MBI
+
+  # remember sign and make $x positive, since -4 ** (1/2) => -2
+  my $sign = 0; $sign = 1 if $x->{sign} eq '-'; $x->{sign} = '+';
+
+  my $is_two = 0;
+  if ($y->isa('Math::BigFloat'))
+    {
+    $is_two = ($y->{sign} eq '+' && $MBI->_is_two($y->{_m}) && $MBI->_is_zero($y->{_e}));
+    }
+  else
+    {
+    $is_two = ($y == 2);
+    }
+
+  # normal square root if $y == 2:
+  if ($is_two)
+    {
+    $x->bsqrt($scale+4);
+    }
+  elsif ($y->is_one('-'))
+    {
+    # $x ** -1 => 1/$x
+    my $u = $self->bone()->bdiv($x,$scale);
+    # copy private parts over
+    $x->{_m} = $u->{_m};
+    $x->{_e} = $u->{_e};
+    $x->{_es} = $u->{_es};
+    }
+  else
+    {
+    # calculate the broot() as integer result first, and if it fits, return
+    # it rightaway (but only if $x and $y are integer):
+
+    my $done = 0;				# not yet
+    if ($y->is_int() && $x->is_int())
+      {
+      my $i = $MBI->_copy( $x->{_m} );
+      $MBI->_lsft( $i, $x->{_e}, 10 ) unless $MBI->_is_zero($x->{_e});
+      my $int = Math::BigInt->bzero();
+      $int->{value} = $i;
+      $int->broot($y->as_number());
+      # if ($exact)
+      if ($int->copy()->bpow($y) == $x)
+        {
+        # found result, return it
+        $x->{_m} = $int->{value};
+        $x->{_e} = $MBI->_zero();
+        $x->{_es} = '+';
+        $x->bnorm();
+        $done = 1;
+        }
+      }
+    if ($done == 0)
+      {
+      my $u = $self->bone()->bdiv($y,$scale+4);
+      delete $u->{_a}; delete $u->{_p};         # otherwise it conflicts
+      $x->bpow($u,$scale+4);                    # el cheapo
+      }
+    }
+  $x->bneg() if $sign == 1;
+  
+  # shortcut to not run through _find_round_parameters again
+  if (defined $params[0])
+    {
+    $x->bround($params[0],$params[2]);		# then round accordingly
+    }
+  else
+    {
+    $x->bfround($params[1],$params[2]);		# then round accordingly
+    }
+  if ($fallback)
+    {
+    # clear a/p after round, since user did not request it
+    delete $x->{_a}; delete $x->{_p};
+    }
+  # restore globals
+  $$abr = $ab; $$pbr = $pb;
+  $x;
+  }
+
+sub bsqrt
+  { 
+  # calculate square root
+  my ($self,$x,$a,$p,$r) = ref($_[0]) ? (ref($_[0]),@_) : objectify(1,@_);
+
+  return $x if $x->modify('bsqrt');
+
+  return $x->bnan() if $x->{sign} !~ /^[+]/;	# NaN, -inf or < 0
+  return $x if $x->{sign} eq '+inf';		# sqrt(inf) == inf
+  return $x->round($a,$p,$r) if $x->is_zero() || $x->is_one();
+
+  # we need to limit the accuracy to protect against overflow
+  my $fallback = 0;
+  my (@params,$scale);
+  ($x,@params) = $x->_find_round_parameters($a,$p,$r);
+
+  return $x if $x->is_nan();		# error in _find_round_parameters?
+
+  # no rounding at all, so must use fallback
+  if (scalar @params == 0) 
+    {
+    # simulate old behaviour
+    $params[0] = $self->div_scale();	# and round to it as accuracy
+    $scale = $params[0]+4; 		# at least four more for proper round
+    $params[2] = $r;			# round mode by caller or undef
+    $fallback = 1;			# to clear a/p afterwards
+    }
+  else
+    {
+    # the 4 below is empirical, and there might be cases where it is not
+    # enough...
+    $scale = abs($params[0] || $params[1]) + 4; # take whatever is defined
+    }
+
+  # when user set globals, they would interfere with our calculation, so
+  # disable them and later re-enable them
+  no strict 'refs';
+  my $abr = "$self\::accuracy"; my $ab = $$abr; $$abr = undef;
+  my $pbr = "$self\::precision"; my $pb = $$pbr; $$pbr = undef;
+  # we also need to disable any set A or P on $x (_find_round_parameters took
+  # them already into account), since these would interfere, too
+  delete $x->{_a}; delete $x->{_p};
+  # need to disable $upgrade in BigInt, to avoid deep recursion
+  local $Math::BigInt::upgrade = undef;	# should be really parent class vs MBI
+
+  my $i = $MBI->_copy( $x->{_m} );
+  $MBI->_lsft( $i, $x->{_e}, 10 ) unless $MBI->_is_zero($x->{_e});
+  my $xas = Math::BigInt->bzero();
+  $xas->{value} = $i;
+
+  my $gs = $xas->copy()->bsqrt();	# some guess
+
+  if (($x->{_es} ne '-')		# guess can't be accurate if there are
+					# digits after the dot
+   && ($xas->bacmp($gs * $gs) == 0))	# guess hit the nail on the head?
+    {
+    # exact result, copy result over to keep $x
+    $x->{_m} = $gs->{value}; $x->{_e} = $MBI->_zero(); $x->{_es} = '+';
+    $x->bnorm();
+    # shortcut to not run through _find_round_parameters again
+    if (defined $params[0])
+      {
+      $x->bround($params[0],$params[2]);	# then round accordingly
+      }
+    else
+      {
+      $x->bfround($params[1],$params[2]);	# then round accordingly
+      }
+    if ($fallback)
+      {
+      # clear a/p after round, since user did not request it
+      delete $x->{_a}; delete $x->{_p};
+      }
+    # re-enable A and P, upgrade is taken care of by "local"
+    ${"$self\::accuracy"} = $ab; ${"$self\::precision"} = $pb;
+    return $x;
+    }
+ 
+  # sqrt(2) = 1.4 because sqrt(2*100) = 1.4*10; so we can increase the accuracy
+  # of the result by multiplying the input by 100 and then divide the integer
+  # result of sqrt(input) by 10. Rounding afterwards returns the real result.
+
+  # The following steps will transform 123.456 (in $x) into 123456 (in $y1)
+  my $y1 = $MBI->_copy($x->{_m});
+
+  my $length = $MBI->_len($y1);
+  
+  # Now calculate how many digits the result of sqrt(y1) would have
+  my $digits = int($length / 2);
+
+  # But we need at least $scale digits, so calculate how many are missing
+  my $shift = $scale - $digits;
+
+  # This happens if the input had enough digits
+  # (we take care of integer guesses above)
+  $shift = 0 if $shift < 0; 
+
+  # Multiply in steps of 100, by shifting left two times the "missing" digits
+  my $s2 = $shift * 2;
+
+  # We now make sure that $y1 has the same odd or even number of digits than
+  # $x had. So when _e of $x is odd, we must shift $y1 by one digit left,
+  # because we always must multiply by steps of 100 (sqrt(100) is 10) and not
+  # steps of 10. The length of $x does not count, since an even or odd number
+  # of digits before the dot is not changed by adding an even number of digits
+  # after the dot (the result is still odd or even digits long).
+  $s2++ if $MBI->_is_odd($x->{_e});
+
+  $MBI->_lsft( $y1, $MBI->_new($s2), 10);
+
+  # now take the square root and truncate to integer
+  $y1 = $MBI->_sqrt($y1);
+
+  # By "shifting" $y1 right (by creating a negative _e) we calculate the final
+  # result, which is than later rounded to the desired scale.
+
+  # calculate how many zeros $x had after the '.' (or before it, depending
+  # on sign of $dat, the result should have half as many:
+  my $dat = $MBI->_num($x->{_e});
+  $dat = -$dat if $x->{_es} eq '-';
+  $dat += $length;
+
+  if ($dat > 0)
+    {
+    # no zeros after the dot (e.g. 1.23, 0.49 etc)
+    # preserve half as many digits before the dot than the input had 
+    # (but round this "up")
+    $dat = int(($dat+1)/2);
+    }
+  else
+    {
+    $dat = int(($dat)/2);
+    }
+  $dat -= $MBI->_len($y1);
+  if ($dat < 0)
+    {
+    $dat = abs($dat);
+    $x->{_e} = $MBI->_new( $dat );
+    $x->{_es} = '-';
+    }
+  else
+    {    
+    $x->{_e} = $MBI->_new( $dat );
+    $x->{_es} = '+';
+    }
+  $x->{_m} = $y1;
+  $x->bnorm();
+
+  # shortcut to not run through _find_round_parameters again
+  if (defined $params[0])
+    {
+    $x->bround($params[0],$params[2]);		# then round accordingly
+    }
+  else
+    {
+    $x->bfround($params[1],$params[2]);		# then round accordingly
+    }
+  if ($fallback)
+    {
+    # clear a/p after round, since user did not request it
+    delete $x->{_a}; delete $x->{_p};
+    }
+  # restore globals
+  $$abr = $ab; $$pbr = $pb;
+  $x;
+  }
+
+sub bfac
+  {
+  # (BFLOAT or num_str, BFLOAT or num_str) return BFLOAT
+  # compute factorial number, modifies first argument
+
+  # set up parameters
+  my ($self,$x,@r) = (ref($_[0]),@_);
+  # objectify is costly, so avoid it
+  ($self,$x,@r) = objectify(1,@_) if !ref($x);
+
+  # inf => inf
+  return $x if $x->modify('bfac') || $x->{sign} eq '+inf';	
+
+  return $x->bnan() 
+    if (($x->{sign} ne '+') ||		# inf, NaN, <0 etc => NaN
+     ($x->{_es} ne '+'));		# digits after dot?
+
+  # use BigInt's bfac() for faster calc
+  if (! $MBI->_is_zero($x->{_e}))
+    {
+    $MBI->_lsft($x->{_m}, $x->{_e},10);	# change 12e1 to 120e0
+    $x->{_e} = $MBI->_zero();		# normalize
+    $x->{_es} = '+';
+    }
+  $MBI->_fac($x->{_m});			# calculate factorial
+  $x->bnorm()->round(@r); 		# norm again and round result
+  }
+
+sub _pow
+  {
+  # Calculate a power where $y is a non-integer, like 2 ** 0.3
+  my ($x,$y,@r) = @_;
+  my $self = ref($x);
+
+  # if $y == 0.5, it is sqrt($x)
+  $HALF = $self->new($HALF) unless ref($HALF);
+  return $x->bsqrt(@r,$y) if $y->bcmp($HALF) == 0;
+
+  # Using:
+  # a ** x == e ** (x * ln a)
+
+  # u = y * ln x
+  #                _                         _
+  # Taylor:       |   u    u^2    u^3         |
+  # x ** y  = 1 + |  --- + --- + ----- + ...  |
+  #               |_  1    1*2   1*2*3       _|
+
+  # we need to limit the accuracy to protect against overflow
+  my $fallback = 0;
+  my ($scale,@params);
+  ($x,@params) = $x->_find_round_parameters(@r);
+    
+  return $x if $x->is_nan();		# error in _find_round_parameters?
+
+  # no rounding at all, so must use fallback
+  if (scalar @params == 0)
+    {
+    # simulate old behaviour
+    $params[0] = $self->div_scale();	# and round to it as accuracy
+    $params[1] = undef;			# disable P
+    $scale = $params[0]+4; 		# at least four more for proper round
+    $params[2] = $r[2];			# round mode by caller or undef
+    $fallback = 1;			# to clear a/p afterwards
+    }
+  else
+    {
+    # the 4 below is empirical, and there might be cases where it is not
+    # enough...
+    $scale = abs($params[0] || $params[1]) + 4; # take whatever is defined
+    }
+
+  # when user set globals, they would interfere with our calculation, so
+  # disable them and later re-enable them
+  no strict 'refs';
+  my $abr = "$self\::accuracy"; my $ab = $$abr; $$abr = undef;
+  my $pbr = "$self\::precision"; my $pb = $$pbr; $$pbr = undef;
+  # we also need to disable any set A or P on $x (_find_round_parameters took
+  # them already into account), since these would interfere, too
+  delete $x->{_a}; delete $x->{_p};
+  # need to disable $upgrade in BigInt, to avoid deep recursion
+  local $Math::BigInt::upgrade = undef;
+ 
+  my ($limit,$v,$u,$below,$factor,$next,$over);
+
+  $u = $x->copy()->blog(undef,$scale)->bmul($y);
+  my $do_invert = ($u->{sign} eq '-');
+  $u->bneg()  if $do_invert;
+  $v = $self->bone();				# 1
+  $factor = $self->new(2);			# 2
+  $x->bone();					# first term: 1
+
+  $below = $v->copy();
+  $over = $u->copy();
+
+  $limit = $self->new("1E-". ($scale-1));
+  #my $steps = 0;
+  while (3 < 5)
+    {
+    # we calculate the next term, and add it to the last
+    # when the next term is below our limit, it won't affect the outcome
+    # anymore, so we stop:
+    $next = $over->copy()->bdiv($below,$scale);
+    last if $next->bacmp($limit) <= 0;
+    $x->badd($next);
+    # calculate things for the next term
+    $over *= $u; $below *= $factor; $factor->binc();
+
+    last if $x->{sign} !~ /^[-+]$/;
+
+    #$steps++;
+    }
+
+  if ($do_invert)
+    {
+    my $x_copy = $x->copy;
+    $x->bone->bdiv($x_copy, $scale);
+    }
+  
+  # shortcut to not run through _find_round_parameters again
+  if (defined $params[0])
+    {
+    $x->bround($params[0],$params[2]);		# then round accordingly
+    }
+  else
+    {
+    $x->bfround($params[1],$params[2]);		# then round accordingly
+    }
+  if ($fallback)
+    {
+    # clear a/p after round, since user did not request it
+    delete $x->{_a}; delete $x->{_p};
+    }
+  # restore globals
+  $$abr = $ab; $$pbr = $pb;
+  $x;
+  }
+
+sub bpow 
+  {
+  # (BFLOAT or num_str, BFLOAT or num_str) return BFLOAT
+  # compute power of two numbers, second arg is used as integer
+  # modifies first argument
+
+  # set up parameters
+  my ($self,$x,$y,$a,$p,$r) = (ref($_[0]),@_);
+  # objectify is costly, so avoid it
+  if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1])))
+    {
+    ($self,$x,$y,$a,$p,$r) = objectify(2,@_);
+    }
+
+  return $x if $x->modify('bpow');
+
+  return $x->bnan() if $x->{sign} eq $nan || $y->{sign} eq $nan;
+  return $x if $x->{sign} =~ /^[+-]inf$/;
+  
+  # cache the result of is_zero
+  my $y_is_zero = $y->is_zero();
+  return $x->bone() if $y_is_zero;
+  return $x         if $x->is_one() || $y->is_one();
+
+  my $x_is_zero = $x->is_zero();
+  return $x->_pow($y,$a,$p,$r) if !$x_is_zero && !$y->is_int();		# non-integer power
+
+  my $y1 = $y->as_number()->{value};			# make MBI part
+
+  # if ($x == -1)
+  if ($x->{sign} eq '-' && $MBI->_is_one($x->{_m}) && $MBI->_is_zero($x->{_e}))
+    {
+    # if $x == -1 and odd/even y => +1/-1  because +-1 ^ (+-1) => +-1
+    return $MBI->_is_odd($y1) ? $x : $x->babs(1);
+    }
+  if ($x_is_zero)
+    {
+    return $x if $y->{sign} eq '+'; 	# 0**y => 0 (if not y <= 0)
+    # 0 ** -y => 1 / (0 ** y) => 1 / 0! (1 / 0 => +inf)
+    return $x->binf();
+    }
+
+  my $new_sign = '+';
+  $new_sign = $MBI->_is_odd($y1) ? '-' : '+' if $x->{sign} ne '+';
+
+  # calculate $x->{_m} ** $y and $x->{_e} * $y separately (faster)
+  $x->{_m} = $MBI->_pow( $x->{_m}, $y1);
+  $x->{_e} = $MBI->_mul ($x->{_e}, $y1);
+
+  $x->{sign} = $new_sign;
+  $x->bnorm();
+  if ($y->{sign} eq '-')
+    {
+    # modify $x in place!
+    my $z = $x->copy(); $x->bone();
+    return scalar $x->bdiv($z,$a,$p,$r);	# round in one go (might ignore y's A!)
+    }
+  $x->round($a,$p,$r,$y);
+  }
+
+sub bmodpow
+  {
+  # takes a very large number to a very large exponent in a given very
+  # large modulus, quickly, thanks to binary exponentiation. Supports
+  # negative exponents.
+  my ($self,$num,$exp,$mod,@r) = objectify(3,@_);
+
+  return $num if $num->modify('bmodpow');
+
+  # check modulus for valid values
+  return $num->bnan() if ($mod->{sign} ne '+'           # NaN, - , -inf, +inf
+                       || $mod->is_zero());
+
+  # check exponent for valid values
+  if ($exp->{sign} =~ /\w/)
+    {
+    # i.e., if it's NaN, +inf, or -inf...
+    return $num->bnan();
+    }
+
+  $num->bmodinv ($mod) if ($exp->{sign} eq '-');
+
+  # check num for valid values (also NaN if there was no inverse but $exp < 0)
+  return $num->bnan() if $num->{sign} !~ /^[+-]$/;
+
+  # $mod is positive, sign on $exp is ignored, result also positive
+
+  # XXX TODO: speed it up when all three numbers are integers
+  $num->bpow($exp)->bmod($mod);
+  }
+
+###############################################################################
+# trigonometric functions
+
+# helper function for bpi() and batan2(), calculates arcus tanges (1/x)
+
+sub _atan_inv
+  {
+  # return a/b so that a/b approximates atan(1/x) to at least limit digits
+  my ($self, $x, $limit) = @_;
+
+  # Taylor:       x^3   x^5   x^7   x^9
+  #    atan = x - --- + --- - --- + --- - ...
+  #                3     5     7     9 
+
+  #               1      1         1        1
+  #    atan 1/x = - - ------- + ------- - ------- + ...
+  #               x   x^3 * 3   x^5 * 5   x^7 * 7 
+
+  #               1      1         1            1
+  #    atan 1/x = - - --------- + ---------- - ----------- + ... 
+  #               5    3 * 125     5 * 3125     7 * 78125
+
+  # Subtraction/addition of a rational:
+
+  #  5    7    5*3 +- 7*4
+  #  - +- -  = ----------
+  #  4    3       4*3
+
+  # Term:  N        N+1
+  #
+  #        a             1                  a * d * c +- b
+  #        ----- +- ------------------  =  ----------------
+  #        b           d * c                b * d * c
+
+  #  since b1 = b0 * (d-2) * c
+
+  #        a             1                  a * d +- b / c
+  #        ----- +- ------------------  =  ----------------
+  #        b           d * c                b * d 
+
+  # and  d = d + 2
+  # and  c = c * x * x
+
+  #        u = d * c
+  #        stop if length($u) > limit 
+  #        a = a * u +- b
+  #        b = b * u
+  #        d = d + 2
+  #        c = c * x * x
+  #        sign = 1 - sign
+
+  my $a = $MBI->_one();
+  my $b = $MBI->_copy($x);
+ 
+  my $x2  = $MBI->_mul( $MBI->_copy($x), $b);		# x2 = x * x
+  my $d   = $MBI->_new( 3 );				# d = 3
+  my $c   = $MBI->_mul( $MBI->_copy($x), $x2);		# c = x ^ 3
+  my $two = $MBI->_new( 2 );
+
+  # run the first step unconditionally
+  my $u = $MBI->_mul( $MBI->_copy($d), $c);
+  $a = $MBI->_mul($a, $u);
+  $a = $MBI->_sub($a, $b);
+  $b = $MBI->_mul($b, $u);
+  $d = $MBI->_add($d, $two);
+  $c = $MBI->_mul($c, $x2);
+
+  # a is now a * (d-3) * c
+  # b is now b * (d-2) * c
+
+  # run the second step unconditionally
+  $u = $MBI->_mul( $MBI->_copy($d), $c);
+  $a = $MBI->_mul($a, $u);
+  $a = $MBI->_add($a, $b);
+  $b = $MBI->_mul($b, $u);
+  $d = $MBI->_add($d, $two);
+  $c = $MBI->_mul($c, $x2);
+
+  # a is now a * (d-3) * (d-5) * c * c  
+  # b is now b * (d-2) * (d-4) * c * c
+
+  # so we can remove c * c from both a and b to shorten the numbers involved:
+  $a = $MBI->_div($a, $x2);
+  $b = $MBI->_div($b, $x2);
+  $a = $MBI->_div($a, $x2);
+  $b = $MBI->_div($b, $x2);
+
+#  my $step = 0; 
+  my $sign = 0;						# 0 => -, 1 => +
+  while (3 < 5)
+    {
+#    $step++;
+#    if (($i++ % 100) == 0)
+#      {
+#    print "a=",$MBI->_str($a),"\n";
+#    print "b=",$MBI->_str($b),"\n";
+#      }
+#    print "d=",$MBI->_str($d),"\n";
+#    print "x2=",$MBI->_str($x2),"\n";
+#    print "c=",$MBI->_str($c),"\n";
+
+    my $u = $MBI->_mul( $MBI->_copy($d), $c);
+    # use _alen() for libs like GMP where _len() would be O(N^2)
+    last if $MBI->_alen($u) > $limit;
+    my ($bc,$r) = $MBI->_div( $MBI->_copy($b), $c);
+    if ($MBI->_is_zero($r))
+      {
+      # b / c is an integer, so we can remove c from all terms
+      # this happens almost every time:
+      $a = $MBI->_mul($a, $d);
+      $a = $MBI->_sub($a, $bc) if $sign == 0;
+      $a = $MBI->_add($a, $bc) if $sign == 1;
+      $b = $MBI->_mul($b, $d);
+      }
+    else
+      {
+      # b / c is not an integer, so we keep c in the terms
+      # this happens very rarely, for instance for x = 5, this happens only
+      # at the following steps:
+      # 1, 5, 14, 32, 72, 157, 340, ...
+      $a = $MBI->_mul($a, $u);
+      $a = $MBI->_sub($a, $b) if $sign == 0;
+      $a = $MBI->_add($a, $b) if $sign == 1;
+      $b = $MBI->_mul($b, $u);
+      }
+    $d = $MBI->_add($d, $two);
+    $c = $MBI->_mul($c, $x2);
+    $sign = 1 - $sign;
+
+    }
+
+#  print "Took $step steps for ", $MBI->_str($x),"\n";
+#  print "a=",$MBI->_str($a),"\n"; print "b=",$MBI->_str($b),"\n";
+  # return a/b so that a/b approximates atan(1/x)
+  ($a,$b);
+  }
+
+sub bpi {
+
+    # Called as                 Argument list
+    # ---------                 -------------
+    # Math::BigFloat->bpi()     ("Math::BigFloat")
+    # Math::BigFloat->bpi(10)   ("Math::BigFloat", 10)
+    # $x->bpi()                 ($x)
+    # $x->bpi(10)               ($x, 10)
+    # Math::BigFloat::bpi()     ()
+    # Math::BigFloat::bpi(10)   (10)
+    #
+    # In ambiguous cases, we favour the OO-style, so the following case
+    #
+    #   $n = Math::BigFloat->new("10");
+    #   $x = Math::BigFloat->bpi($n);
+    #
+    # which gives an argument list with the single element $n, is resolved as
+    #
+    #   $n->bpi();
+
+    my $self    = shift;
+    my $selfref = ref $self;
+    my $class   = $selfref || $self;
+
+    my $accu;                      # accuracy (number of digits)
+    my $prec;                      # precision
+    my $rndm;                      # round mode
+
+    # If bpi() is called as a function ...
+    #
+    # This cludge is necessary because we still support bpi() as a function. If
+    # bpi() is called with either no argument or one argument, and that one
+    # argument is either undefined or a scalar that looks like a number, then
+    # we assume bpi() is called as a function.
+
+    if (@_ == 0 &&
+        (defined($self) && !ref($self) && $self =~ /^\s*[+-]?\d/i)
+          ||
+        !defined($self))
+    {
+        $accu = $self;
+        $class = __PACKAGE__;
+        $self = $class -> bzero();      # initialize
+    }
+
+    # ... or if bpi() is called as a method ...
+
+    else {
+        if ($selfref) {                 # bpi() called as instance method
+            return $self if $self -> modify('bpi');
+        } else {                        # bpi() called as class method
+            $self = $class -> bzero();  # initialize
+        }
+        $accu = shift;
+        $prec = shift;
+        $rndm = shift;
+    }
+
+    my @r = ($accu, $prec, $rndm);
+
+    # We need to limit the accuracy to protect against overflow.
+    my $fallback = 0;
+    my ($scale, @params);
+    ($self, @params) = $self -> _find_round_parameters(@r);
+
+    # Error in _find_round_parameters?
+    #
+    # We can't return here, because that will fail if $self was a NaN when
+    # bpi() was invoked, and we want to assign pi to $x. It is probably not a
+    # good idea that _find_round_parameters() signals invalid round parameters
+    # by silently returning a NaN. Fixme!
+    #return $self if $self && $self->is_nan();
+
+    # No rounding at all, so must use fallback.
+    if (scalar @params == 0) {
+        # Simulate old behaviour
+        $params[0] = $self -> div_scale();  # and round to it as accuracy
+        $params[1] = undef;                 # disable P
+        $params[2] = $r[2];                 # round mode by caller or undef
+        $fallback = 1;                      # to clear a/p afterwards
+    }
+
+    # The accuracy, i.e., the number of digits. Pi has one digit before the
+    # dot, so a precision of 4 digits is equivalent to an accuracy of 5 digits.
+
+    my $n = $params[0] || 1 - $params[1];
+
+    if ($n < 1000) {
+
+        # after 黃見利 (Hwang Chien-Lih) (1997)
+        # pi/4 = 183 * atan(1/239) + 32 * atan(1/1023) – 68 * atan(1/5832)
+        #        + 12 * atan(1/110443) - 12 * atan(1/4841182) - 100 * atan(1/6826318)
+
+        # Use a few more digits in the intermediate computations.
+
+        my $nextra = $n < 800 ? 4 : 5;
+        $n += $nextra;
+
+        my ($a, $b) = $class->_atan_inv($MBI->_new(239), $n);
+        my ($c, $d) = $class->_atan_inv($MBI->_new(1023), $n);
+        my ($e, $f) = $class->_atan_inv($MBI->_new(5832), $n);
+        my ($g, $h) = $class->_atan_inv($MBI->_new(110443), $n);
+        my ($i, $j) = $class->_atan_inv($MBI->_new(4841182), $n);
+        my ($k, $l) = $class->_atan_inv($MBI->_new(6826318), $n);
+
+        $MBI->_mul($a, $MBI->_new(732));
+        $MBI->_mul($c, $MBI->_new(128));
+        $MBI->_mul($e, $MBI->_new(272));
+        $MBI->_mul($g, $MBI->_new(48));
+        $MBI->_mul($i, $MBI->_new(48));
+        $MBI->_mul($k, $MBI->_new(400));
+
+        my $x = $class->bone(); $x->{_m} = $a; my $x_d = $class->bone(); $x_d->{_m} = $b;
+        my $y = $class->bone(); $y->{_m} = $c; my $y_d = $class->bone(); $y_d->{_m} = $d;
+        my $z = $class->bone(); $z->{_m} = $e; my $z_d = $class->bone(); $z_d->{_m} = $f;
+        my $u = $class->bone(); $u->{_m} = $g; my $u_d = $class->bone(); $u_d->{_m} = $h;
+        my $v = $class->bone(); $v->{_m} = $i; my $v_d = $class->bone(); $v_d->{_m} = $j;
+        my $w = $class->bone(); $w->{_m} = $k; my $w_d = $class->bone(); $w_d->{_m} = $l;
+        $x->bdiv($x_d, $n);
+        $y->bdiv($y_d, $n);
+        $z->bdiv($z_d, $n);
+        $u->bdiv($u_d, $n);
+        $v->bdiv($v_d, $n);
+        $w->bdiv($w_d, $n);
+
+        delete $x->{_a}; delete $y->{_a}; delete $z->{_a};
+        delete $u->{_a}; delete $v->{_a}; delete $w->{_a};
+        $x->badd($y)->bsub($z)->badd($u)->bsub($v)->bsub($w);
+
+        for my $key (qw/ sign _m _es _e _a _p /) {
+            $self -> {$key} = $x -> {$key} if exists $x -> {$key};
+        }
+
+    } else {
+
+        # For large accuracy, the arctan formulas become very inefficient with
+        # Math::BigFloat. Switch to Brent-Salamin (aka AGM or Gauss-Legendre).
+
+        # Use a few more digits in the intermediate computations.
+        my $nextra = 8;
+
+        $HALF = $class -> new($HALF) unless ref($HALF);
+        my ($an, $bn, $tn, $pn) = ($class -> bone, $HALF -> copy -> bsqrt($n),
+                                   $HALF -> copy -> bmul($HALF), $class -> bone);
+        while ($pn < $n) {
+            my $prev_an = $an -> copy;
+            $an -> badd($bn) -> bmul($HALF, $n);
+            $bn -> bmul($prev_an) -> bsqrt($n);
+            $prev_an -> bsub($an);
+            $tn -> bsub($pn * $prev_an * $prev_an);
+            $pn -> badd($pn);
+        }
+        $an -> badd($bn);
+        $an -> bmul($an, $n) -> bdiv(4 * $tn, $n);
+
+        for my $key (qw/ sign _m _es _e _a _p /) {
+            $self -> {$key} = $an -> {$key} if exists $an -> {$key};;
+        }
+    }
+
+    $self -> round(@params);
+
+    if ($fallback) {
+        delete $self->{_a};
+        delete $self->{_p};
+    }
+
+    return $self;
+}
+
+sub bcos
+  {
+  # Calculate a cosinus of x.
+  my ($self,$x,@r) = ref($_[0]) ? (ref($_[0]),@_) : objectify(1,@_);
+
+  # Taylor:      x^2   x^4   x^6   x^8
+  #    cos = 1 - --- + --- - --- + --- ...
+  #               2!    4!    6!    8!
+
+  # we need to limit the accuracy to protect against overflow
+  my $fallback = 0;
+  my ($scale,@params);
+  ($x,@params) = $x->_find_round_parameters(@r);
+    
+  #         constant object       or error in _find_round_parameters?
+  return $x if $x->modify('bcos') || $x->is_nan();
+
+  return $x->bone(@r) if $x->is_zero();
+
+  # no rounding at all, so must use fallback
+  if (scalar @params == 0)
+    {
+    # simulate old behaviour
+    $params[0] = $self->div_scale();	# and round to it as accuracy
+    $params[1] = undef;			# disable P
+    $scale = $params[0]+4; 		# at least four more for proper round
+    $params[2] = $r[2];			# round mode by caller or undef
+    $fallback = 1;			# to clear a/p afterwards
+    }
+  else
+    {
+    # the 4 below is empirical, and there might be cases where it is not
+    # enough...
+    $scale = abs($params[0] || $params[1]) + 4; # take whatever is defined
+    }
+
+  # when user set globals, they would interfere with our calculation, so
+  # disable them and later re-enable them
+  no strict 'refs';
+  my $abr = "$self\::accuracy"; my $ab = $$abr; $$abr = undef;
+  my $pbr = "$self\::precision"; my $pb = $$pbr; $$pbr = undef;
+  # we also need to disable any set A or P on $x (_find_round_parameters took
+  # them already into account), since these would interfere, too
+  delete $x->{_a}; delete $x->{_p};
+  # need to disable $upgrade in BigInt, to avoid deep recursion
+  local $Math::BigInt::upgrade = undef;
+ 
+  my $last = 0;
+  my $over = $x * $x;                   # X ^ 2
+  my $x2 = $over->copy();               # X ^ 2; difference between terms
+  my $sign = 1;                         # start with -=
+  my $below = $self->new(2); my $factorial = $self->new(3);
+  $x->bone(); delete $x->{_a}; delete $x->{_p};
+
+  my $limit = $self->new("1E-". ($scale-1));
+  #my $steps = 0;
+  while (3 < 5)
+    {
+    # we calculate the next term, and add it to the last
+    # when the next term is below our limit, it won't affect the outcome
+    # anymore, so we stop:
+    my $next = $over->copy()->bdiv($below,$scale);
+    last if $next->bacmp($limit) <= 0;
+
+    if ($sign == 0)
+      {
+      $x->badd($next);
+      }
+    else
+      {
+      $x->bsub($next);
+      }
+    $sign = 1-$sign;					# alternate
+    # calculate things for the next term
+    $over->bmul($x2);					# $x*$x
+    $below->bmul($factorial); $factorial->binc();	# n*(n+1)
+    $below->bmul($factorial); $factorial->binc();	# n*(n+1)
+    }
+
+  # shortcut to not run through _find_round_parameters again
+  if (defined $params[0])
+    {
+    $x->bround($params[0],$params[2]);		# then round accordingly
+    }
+  else
+    {
+    $x->bfround($params[1],$params[2]);		# then round accordingly
+    }
+  if ($fallback)
+    {
+    # clear a/p after round, since user did not request it
+    delete $x->{_a}; delete $x->{_p};
+    }
+  # restore globals
+  $$abr = $ab; $$pbr = $pb;
+  $x;
+  }
+
+sub bsin
+  {
+  # Calculate a sinus of x.
+  my ($self,$x,@r) = ref($_[0]) ? (ref($_[0]),@_) : objectify(1,@_);
+
+  # taylor:      x^3   x^5   x^7   x^9
+  #    sin = x - --- + --- - --- + --- ...
+  #               3!    5!    7!    9!
+
+  # we need to limit the accuracy to protect against overflow
+  my $fallback = 0;
+  my ($scale,@params);
+  ($x,@params) = $x->_find_round_parameters(@r);
+    
+  #         constant object       or error in _find_round_parameters?
+  return $x if $x->modify('bsin') || $x->is_nan();
+
+  return $x->bzero(@r) if $x->is_zero();
+
+  # no rounding at all, so must use fallback
+  if (scalar @params == 0)
+    {
+    # simulate old behaviour
+    $params[0] = $self->div_scale();	# and round to it as accuracy
+    $params[1] = undef;			# disable P
+    $scale = $params[0]+4; 		# at least four more for proper round
+    $params[2] = $r[2];			# round mode by caller or undef
+    $fallback = 1;			# to clear a/p afterwards
+    }
+  else
+    {
+    # the 4 below is empirical, and there might be cases where it is not
+    # enough...
+    $scale = abs($params[0] || $params[1]) + 4; # take whatever is defined
+    }
+
+  # when user set globals, they would interfere with our calculation, so
+  # disable them and later re-enable them
+  no strict 'refs';
+  my $abr = "$self\::accuracy"; my $ab = $$abr; $$abr = undef;
+  my $pbr = "$self\::precision"; my $pb = $$pbr; $$pbr = undef;
+  # we also need to disable any set A or P on $x (_find_round_parameters took
+  # them already into account), since these would interfere, too
+  delete $x->{_a}; delete $x->{_p};
+  # need to disable $upgrade in BigInt, to avoid deep recursion
+  local $Math::BigInt::upgrade = undef;
+ 
+  my $last = 0;
+  my $over = $x * $x;			# X ^ 2
+  my $x2 = $over->copy();		# X ^ 2; difference between terms
+  $over->bmul($x);			# X ^ 3 as starting value
+  my $sign = 1;				# start with -=
+  my $below = $self->new(6); my $factorial = $self->new(4);
+  delete $x->{_a}; delete $x->{_p};
+
+  my $limit = $self->new("1E-". ($scale-1));
+  #my $steps = 0;
+  while (3 < 5)
+    {
+    # we calculate the next term, and add it to the last
+    # when the next term is below our limit, it won't affect the outcome
+    # anymore, so we stop:
+    my $next = $over->copy()->bdiv($below,$scale);
+    last if $next->bacmp($limit) <= 0;
+
+    if ($sign == 0)
+      {
+      $x->badd($next);
+      }
+    else
+      {
+      $x->bsub($next);
+      }
+    $sign = 1-$sign;					# alternate
+    # calculate things for the next term
+    $over->bmul($x2);					# $x*$x
+    $below->bmul($factorial); $factorial->binc();	# n*(n+1)
+    $below->bmul($factorial); $factorial->binc();	# n*(n+1)
+    }
+
+  # shortcut to not run through _find_round_parameters again
+  if (defined $params[0])
+    {
+    $x->bround($params[0],$params[2]);		# then round accordingly
+    }
+  else
+    {
+    $x->bfround($params[1],$params[2]);		# then round accordingly
+    }
+  if ($fallback)
+    {
+    # clear a/p after round, since user did not request it
+    delete $x->{_a}; delete $x->{_p};
+    }
+  # restore globals
+  $$abr = $ab; $$pbr = $pb;
+  $x;
+  }
+
+sub batan2 {
+    # $y -> batan2($x) returns the arcus tangens of $y / $x.
+
+    # Set up parameters.
+    my ($self, $y, $x, @r) = (ref($_[0]), @_);
+
+    # Objectify is costly, so avoid it if we can.
+    if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1]))) {
+        ($self, $y, $x, @r) = objectify(2, @_);
+    }
+
+    # Quick exit if $y is read-only.
+    return $y if $y -> modify('batan2');
+
+    # Handle all NaN cases.
+    return $y -> bnan() if $x->{sign} eq $nan || $y->{sign} eq $nan;
+
+    # We need to limit the accuracy to protect against overflow.
+    my $fallback = 0;
+    my ($scale, @params);
+    ($y, @params) = $y -> _find_round_parameters(@r);
+
+    # Error in _find_round_parameters?
+    return $y if $y->is_nan();
+
+    # No rounding at all, so must use fallback.
+    if (scalar @params == 0) {
+        # Simulate old behaviour
+        $params[0] = $self -> div_scale();  # and round to it as accuracy
+        $params[1] = undef;                 # disable P
+        $scale = $params[0] + 4;            # at least four more for proper round
+        $params[2] = $r[2];                 # round mode by caller or undef
+        $fallback = 1;                      # to clear a/p afterwards
+    } else {
+        # The 4 below is empirical, and there might be cases where it is not
+        # enough ...
+        $scale = abs($params[0] || $params[1]) + 4; # take whatever is defined
+    }
+
+    if ($x -> is_inf("+")) {                            # x = inf
+        if ($y -> is_inf("+")) {                        #    y = inf
+            $y -> bpi($scale) -> bmul("0.25");          #       pi/4
+        } elsif ($y -> is_inf("-")) {                   #    y = -inf
+            $y -> bpi($scale) -> bmul("-0.25");         #       -pi/4
+        } else {                                        #    -inf < y < inf
+            return $y -> bzero(@r);                     #       0
+        }
+    }
+
+    elsif ($x -> is_inf("-")) {                         # x = -inf
+        if ($y -> is_inf("+")) {                        #    y = inf
+            $y -> bpi($scale) -> bmul("0.75");          #       3/4 pi
+        } elsif ($y -> is_inf("-")) {                   #    y = -inf
+            $y -> bpi($scale) -> bmul("-0.75");         #       -3/4 pi
+        } elsif ($y >= 0) {                             #    y >= 0
+            $y -> bpi($scale);                          #       pi
+        } else {                                        #    y < 0
+            $y -> bpi($scale) -> bneg();                #       -pi
+        }
+    }
+
+    elsif ($x > 0) {                                    # 0 < x < inf
+        if ($y -> is_inf("+")) {                        #    y = inf
+            $y -> bpi($scale) -> bmul("0.5");           #       pi/2
+        } elsif ($y -> is_inf("-")) {                   #    y = -inf
+            $y -> bpi($scale) -> bmul("-0.5");          #       -pi/2
+        } else {                                        #   -inf < y < inf
+            $y -> bdiv($x, $scale) -> batan($scale);    #       atan(y/x)
+        }
+    }
+
+    elsif ($x < 0) {                                    # -inf < x < 0
+        my $pi = $class -> bpi($scale);
+        if ($y >= 0) {                                  #    y >= 0
+            $y -> bdiv($x, $scale) -> batan()           #       atan(y/x) + pi
+               -> badd($pi);
+        } else {                                        #    y < 0
+            $y -> bdiv($x, $scale) -> batan()           #       atan(y/x) - pi
+               -> bsub($pi);
+        }
+    }
+
+    else {                                              # x = 0
+        if ($y > 0) {                                   #    y > 0
+            $y -> bpi($scale) -> bmul("0.5");           #       pi/2
+        } elsif ($y < 0) {                              #    y < 0
+            $y -> bpi($scale) -> bmul("-0.5");          #       -pi/2
+        } else {                                        #    y = 0
+            return $y -> bzero(@r);                     #       0
+        }
+    }
+
+    $y -> round(@r);
+
+    if ($fallback) {
+        delete $y->{_a};
+        delete $y->{_p};
+    }
+
+    return $y;
+}
+
+sub batan {
+    # Calculate a arcus tangens of x.
+
+    my $self    = shift;
+    my $selfref = ref $self;
+    my $class   = $selfref || $self;
+
+    my (@r) = @_;
+
+    # taylor:       x^3   x^5   x^7   x^9
+    #    atan = x - --- + --- - --- + --- ...
+    #                3     5     7     9
+
+    # We need to limit the accuracy to protect against overflow.
+
+    my $fallback = 0;
+    my ($scale, @params);
+    ($self, @params) = $self->_find_round_parameters(@r);
+
+    # Constant object or error in _find_round_parameters?
+
+    return $self if $self->modify('batan') || $self->is_nan();
+
+    if ($self->{sign} =~ /^[+-]inf\z/) {
+        # +inf result is PI/2
+        # -inf result is -PI/2
+        # calculate PI/2
+        my $pi = $class->bpi(@r);
+        # modify $self in place
+        $self->{_m} = $pi->{_m};
+        $self->{_e} = $pi->{_e};
+        $self->{_es} = $pi->{_es};
+        # -y => -PI/2, +y => PI/2
+        $self->{sign} = substr($self->{sign}, 0, 1);  # "+inf" => "+"
+        $MBI->_div($self->{_m}, $MBI->_new(2));
+        return $self;
+    }
+
+    return $self->bzero(@r) if $self->is_zero();
+
+    # no rounding at all, so must use fallback
+    if (scalar @params == 0) {
+        # simulate old behaviour
+        $params[0] = $class->div_scale();  # and round to it as accuracy
+        $params[1] = undef;               # disable P
+        $scale = $params[0]+4;            # at least four more for proper round
+        $params[2] = $r[2];               # round mode by caller or undef
+        $fallback = 1;                    # to clear a/p afterwards
+    } else {
+        # the 4 below is empirical, and there might be cases where it is not
+        # enough...
+        $scale = abs($params[0] || $params[1]) + 4; # take whatever is defined
+    }
+
+    # 1 or -1 => PI/4
+    # inlined is_one() && is_one('-')
+    if ($MBI->_is_one($self->{_m}) && $MBI->_is_zero($self->{_e})) {
+        my $pi = $class->bpi($scale - 3);
+        # modify $self in place
+        $self->{_m} = $pi->{_m};
+        $self->{_e} = $pi->{_e};
+        $self->{_es} = $pi->{_es};
+        # leave the sign of $self alone (+1 => +PI/4, -1 => -PI/4)
+        $MBI->_div($self->{_m}, $MBI->_new(4));
+        return $self;
+    }
+
+    # This series is only valid if -1 < x < 1, so for other x we need to
+    # calculate PI/2 - atan(1/x):
+    my $one = $MBI->_new(1);
+    my $pi = undef;
+    if ($self->bacmp($self->copy->bone) >= 0) {
+        # calculate PI/2
+        $pi = $class->bpi($scale - 3);
+        $MBI->_div($pi->{_m}, $MBI->_new(2));
+        # calculate 1/$self:
+        my $self_copy = $self->copy();
+        # modify $self in place
+        $self->bone(); $self->bdiv($self_copy, $scale);
+    }
+
+    my $fmul = 1;
+    foreach my $k (0 .. int($scale / 20)) {
+        $fmul *= 2;
+        $self->bdiv($self->copy->bmul($self)->binc->bsqrt($scale + 4)->binc, $scale + 4);
+    }
+
+    # When user set globals, they would interfere with our calculation, so
+    # disable them and later re-enable them.
+    no strict 'refs';
+    my $abr = "$class\::accuracy";  my $ab = $$abr; $$abr = undef;
+    my $pbr = "$class\::precision"; my $pb = $$pbr; $$pbr = undef;
+    # We also need to disable any set A or P on $self (_find_round_parameters
+    # took them already into account), since these would interfere, too
+    delete $self->{_a}; delete $self->{_p};
+    # Need to disable $upgrade in BigInt, to avoid deep recursion.
+    local $Math::BigInt::upgrade = undef;
+
+    my $last = 0;
+    my $over = $self * $self;		# X ^ 2
+    my $self2 = $over->copy();		# X ^ 2; difference between terms
+    $over->bmul($self);			# X ^ 3 as starting value
+    my $sign = 1;			# start with -=
+    my $below = $class->new(3);
+    my $two = $class->new(2);
+    delete $self->{_a}; delete $self->{_p};
+
+    my $limit = $class->new("1E-". ($scale-1));
+    #my $steps = 0;
+    while (1) {
+        # We calculate the next term, and add it to the last. When the next
+        # term is below our limit, it won't affect the outcome anymore, so we
+        # stop:
+        my $next = $over->copy()->bdiv($below, $scale);
+        last if $next->bacmp($limit) <= 0;
+
+        if ($sign == 0) {
+            $self->badd($next);
+        } else {
+            $self->bsub($next);
+        }
+        $sign = 1-$sign;        # alternatex
+        # calculate things for the next term
+        $over->bmul($self2);    # $self*$self
+        $below->badd($two);     # n += 2
+    }
+    $self->bmul($fmul);
+
+    if (defined $pi) {
+        my $self_copy = $self->copy();
+        # modify $self in place
+        $self->{_m} = $pi->{_m};
+        $self->{_e} = $pi->{_e};
+        $self->{_es} = $pi->{_es};
+        # PI/2 - $self
+        $self->bsub($self_copy);
+    }
+
+    # Shortcut to not run through _find_round_parameters again.
+    if (defined $params[0]) {
+        $self->bround($params[0], $params[2]); # then round accordingly
+    } else {
+        $self->bfround($params[1], $params[2]); # then round accordingly
+    }
+    if ($fallback) {
+        # Clear a/p after round, since user did not request it.
+        delete $self->{_a}; delete $self->{_p};
+    }
+
+    # restore globals
+    $$abr = $ab; $$pbr = $pb;
+    $self;
+}
+
+###############################################################################
+# rounding functions
+
+sub bfround
+  {
+  # precision: round to the $Nth digit left (+$n) or right (-$n) from the '.'
+  # $n == 0 means round to integer
+  # expects and returns normalized numbers!
+  my $x = shift; my $self = ref($x) || $x; $x = $self->new(shift) if !ref($x);
+
+  my ($scale,$mode) = $x->_scale_p(@_);
+  return $x if !defined $scale || $x->modify('bfround'); # no-op
+
+  # never round a 0, +-inf, NaN
+  if ($x->is_zero())
+    {
+    $x->{_p} = $scale if !defined $x->{_p} || $x->{_p} < $scale; # -3 < -2
+    return $x; 
+    }
+  return $x if $x->{sign} !~ /^[+-]$/;
+
+  # don't round if x already has lower precision
+  return $x if (defined $x->{_p} && $x->{_p} < 0 && $scale < $x->{_p});
+
+  $x->{_p} = $scale;			# remember round in any case
+  delete $x->{_a};			# and clear A
+  if ($scale < 0)
+    {
+    # round right from the '.'
+
+    return $x if $x->{_es} eq '+';		# e >= 0 => nothing to round
+
+    $scale = -$scale;				# positive for simplicity
+    my $len = $MBI->_len($x->{_m});		# length of mantissa
+
+    # the following poses a restriction on _e, but if _e is bigger than a
+    # scalar, you got other problems (memory etc) anyway
+    my $dad = -(0+ ($x->{_es}.$MBI->_num($x->{_e})));	# digits after dot
+    my $zad = 0;				# zeros after dot
+    $zad = $dad - $len if (-$dad < -$len);	# for 0.00..00xxx style
+   
+    # print "scale $scale dad $dad zad $zad len $len\n";
+    # number  bsstr   len zad dad	
+    # 0.123   123e-3	3   0 3
+    # 0.0123  123e-4	3   1 4
+    # 0.001   1e-3      1   2 3
+    # 1.23    123e-2	3   0 2
+    # 1.2345  12345e-4	5   0 4
+
+    # do not round after/right of the $dad
+    return $x if $scale > $dad;			# 0.123, scale >= 3 => exit
+
+    # round to zero if rounding inside the $zad, but not for last zero like:
+    # 0.0065, scale -2, round last '0' with following '65' (scale == zad case)
+    return $x->bzero() if $scale < $zad;
+    if ($scale == $zad)			# for 0.006, scale -3 and trunc
+      {
+      $scale = -$len;
+      }
+    else
+      {
+      # adjust round-point to be inside mantissa
+      if ($zad != 0)
+        {
+	$scale = $scale-$zad;
+        }
+      else
+        {
+        my $dbd = $len - $dad; $dbd = 0 if $dbd < 0;	# digits before dot
+	$scale = $dbd+$scale;
+        }
+      }
+    }
+  else
+    {
+    # round left from the '.'
+
+    # 123 => 100 means length(123) = 3 - $scale (2) => 1
+
+    my $dbt = $MBI->_len($x->{_m}); 
+    # digits before dot 
+    my $dbd = $dbt + ($x->{_es} . $MBI->_num($x->{_e}));
+    # should be the same, so treat it as this 
+    $scale = 1 if $scale == 0; 
+    # shortcut if already integer 
+    return $x if $scale == 1 && $dbt <= $dbd; 
+    # maximum digits before dot 
+    ++$dbd;
+
+    if ($scale > $dbd) 
+       { 
+       # not enough digits before dot, so round to zero 
+       return $x->bzero; 
+       }
+    elsif ( $scale == $dbd )
+       { 
+       # maximum 
+       $scale = -$dbt; 
+       } 
+    else
+       { 
+       $scale = $dbd - $scale; 
+       }
+    }
+  # pass sign to bround for rounding modes '+inf' and '-inf'
+  my $m = bless { sign => $x->{sign}, value => $x->{_m} }, 'Math::BigInt';
+  $m->bround($scale,$mode);
+  $x->{_m} = $m->{value};			# get our mantissa back
+  $x->bnorm();
+  }
+
+sub bround
+  {
+  # accuracy: preserve $N digits, and overwrite the rest with 0's
+  my $x = shift; my $self = ref($x) || $x; $x = $self->new(shift) if !ref($x);
+
+  if (($_[0] || 0) < 0)
+    {
+    require Carp; Carp::croak ('bround() needs positive accuracy');
+    }
+
+  my ($scale,$mode) = $x->_scale_a(@_);
+  return $x if !defined $scale || $x->modify('bround');	# no-op
+
+  # scale is now either $x->{_a}, $accuracy, or the user parameter
+  # test whether $x already has lower accuracy, do nothing in this case 
+  # but do round if the accuracy is the same, since a math operation might
+  # want to round a number with A=5 to 5 digits afterwards again
+  return $x if defined $x->{_a} && $x->{_a} < $scale;
+
+  # scale < 0 makes no sense
+  # scale == 0 => keep all digits
+  # never round a +-inf, NaN
+  return $x if ($scale <= 0) || $x->{sign} !~ /^[+-]$/;
+
+  # 1: never round a 0
+  # 2: if we should keep more digits than the mantissa has, do nothing
+  if ($x->is_zero() || $MBI->_len($x->{_m}) <= $scale)
+    {
+    $x->{_a} = $scale if !defined $x->{_a} || $x->{_a} > $scale;
+    return $x; 
+    }
+
+  # pass sign to bround for '+inf' and '-inf' rounding modes
+  my $m = bless { sign => $x->{sign}, value => $x->{_m} }, 'Math::BigInt';
+
+  $m->bround($scale,$mode);		# round mantissa
+  $x->{_m} = $m->{value};		# get our mantissa back
+  $x->{_a} = $scale;			# remember rounding
+  delete $x->{_p};			# and clear P
+  $x->bnorm();				# del trailing zeros gen. by bround()
+  }
+
+sub bfloor
+  {
+  # round towards minus infinity
+  my ($self,$x,$a,$p,$r) = ref($_[0]) ? (ref($_[0]),@_) : objectify(1,@_);
+
+  return $x if $x->modify('bfloor');
+   
+  return $x if $x->{sign} !~ /^[+-]$/;	# nan, +inf, -inf
+
+  # if $x has digits after dot
+  if ($x->{_es} eq '-')
+    {
+    $x->{_m} = $MBI->_rsft($x->{_m},$x->{_e},10); # cut off digits after dot
+    $x->{_e} = $MBI->_zero();			# trunc/norm	
+    $x->{_es} = '+';				# abs e
+    $MBI->_inc($x->{_m}) if $x->{sign} eq '-';	# increment if negative
+    }
+  $x->round($a,$p,$r);
+  }
+
+sub bceil
+  {
+  # round towards plus infinity
+  my ($self,$x,$a,$p,$r) = ref($_[0]) ? (ref($_[0]),@_) : objectify(1,@_);
+
+  return $x if $x->modify('bceil');
+  return $x if $x->{sign} !~ /^[+-]$/;	# nan, +inf, -inf
+
+  # if $x has digits after dot
+  if ($x->{_es} eq '-')
+    {
+    $x->{_m} = $MBI->_rsft($x->{_m},$x->{_e},10); # cut off digits after dot
+    $x->{_e} = $MBI->_zero();			# trunc/norm	
+    $x->{_es} = '+';				# abs e
+    if ($x->{sign} eq '+') {
+        $MBI->_inc($x->{_m});                   # increment if positive
+    } else {
+        $x->{sign} = '+' if $MBI->_is_zero($x->{_m});   # avoid -0
+    }
+    }
+  $x->round($a,$p,$r);
+  }
+
+sub bint
+  {
+  # round towards zero
+  my ($self,$x,$a,$p,$r) = ref($_[0]) ? (ref($_[0]),@_) : objectify(1,@_);
+
+  return $x if $x->modify('bint');
+  return $x if $x->{sign} !~ /^[+-]$/;  # nan, +inf, -inf
+
+  # if $x has digits after the decimal point
+  if ($x->{_es} eq '-')
+    {
+    $x->{_m} = $MBI->_rsft($x->{_m},$x->{_e},10); # cut off digits after dot
+    $x->{_e} = $MBI->_zero();                     # truncate/normalize
+    $x->{_es} = '+';                              # abs e
+    $x->{sign} = '+' if $MBI->_is_zero($x->{_m}); # avoid -0
+    }
+  $x->round($a,$p,$r);
+  }
+
+sub brsft
+  {
+  # shift right by $y (divide by power of $n)
+  
+  # set up parameters
+  my ($self,$x,$y,$n,$a,$p,$r) = (ref($_[0]),@_);
+  # objectify is costly, so avoid it
+  if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1])))
+    {
+    ($self,$x,$y,$n,$a,$p,$r) = objectify(2,@_);
+    }
+
+  return $x if $x->modify('brsft');
+  return $x if $x->{sign} !~ /^[+-]$/;	# nan, +inf, -inf
+
+  $n = 2 if !defined $n; $n = $self->new($n);
+
+  # negative amount?
+  return $x->blsft($y->copy()->babs(),$n) if $y->{sign} =~ /^-/;
+
+  # the following call to bdiv() will return either quo or (quo,remainder):
+  $x->bdiv($n->bpow($y),$a,$p,$r,$y);
+  }
+
+sub blsft
+  {
+  # shift left by $y (multiply by power of $n)
+  
+  # set up parameters
+  my ($self,$x,$y,$n,$a,$p,$r) = (ref($_[0]),@_);
+  # objectify is costly, so avoid it
+  if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1])))
+    {
+    ($self,$x,$y,$n,$a,$p,$r) = objectify(2,@_);
+    }
+
+  return $x if $x->modify('blsft');
+  return $x if $x->{sign} !~ /^[+-]$/;	# nan, +inf, -inf
+
+  $n = 2 if !defined $n; $n = $self->new($n);
+
+  # negative amount?
+  return $x->brsft($y->copy()->babs(),$n) if $y->{sign} =~ /^-/;
+
+  $x->bmul($n->bpow($y),$a,$p,$r,$y);
+  }
+
+###############################################################################
+
+sub DESTROY
+  {
+  # going through AUTOLOAD for every DESTROY is costly, avoid it by empty sub
+  }
+
+sub AUTOLOAD
+  {
+  # make fxxx and bxxx both work by selectively mapping fxxx() to MBF::bxxx()
+  # or falling back to MBI::bxxx()
+  my $name = $AUTOLOAD;
+
+  $name =~ s/(.*):://;	# split package
+  my $c = $1 || $class;
+  no strict 'refs';
+  $c->import() if $IMPORT == 0;
+  if (!_method_alias($name))
+    {
+    if (!defined $name)
+      {
+      # delayed load of Carp and avoid recursion	
+      require Carp;
+      Carp::croak ("$c: Can't call a method without name");
+      }
+    if (!_method_hand_up($name))
+      {
+      # delayed load of Carp and avoid recursion	
+      require Carp;
+      Carp::croak ("Can't call $c\-\>$name, not a valid method");
+      }
+    # try one level up, but subst. bxxx() for fxxx() since MBI only got bxxx()
+    $name =~ s/^f/b/;
+    return &{"Math::BigInt"."::$name"}(@_);
+    }
+  my $bname = $name; $bname =~ s/^f/b/;
+  $c .= "::$name";
+  *{$c} = \&{$bname};
+  &{$c};	# uses @_
+  }
+
+sub exponent
+  {
+  # return a copy of the exponent
+  my ($self,$x) = ref($_[0]) ? (ref($_[0]),$_[0]) : objectify(1,@_);
+
+  if ($x->{sign} !~ /^[+-]$/)
+    {
+    my $s = $x->{sign}; $s =~ s/^[+-]//;
+    return Math::BigInt->new($s); 		# -inf, +inf => +inf
+    }
+  Math::BigInt->new( $x->{_es} . $MBI->_str($x->{_e}));
+  }
+
+sub mantissa
+  {
+  # return a copy of the mantissa
+  my ($self,$x) = ref($_[0]) ? (ref($_[0]),$_[0]) : objectify(1,@_);
+ 
+  if ($x->{sign} !~ /^[+-]$/)
+    {
+    my $s = $x->{sign}; $s =~ s/^[+]//;
+    return Math::BigInt->new($s);		# -inf, +inf => +inf
+    }
+  my $m = Math::BigInt->new( $MBI->_str($x->{_m}));
+  $m->bneg() if $x->{sign} eq '-';
+
+  $m;
+  }
+
+sub parts
+  {
+  # return a copy of both the exponent and the mantissa
+  my ($self,$x) = ref($_[0]) ? (ref($_[0]),$_[0]) : objectify(1,@_);
+
+  if ($x->{sign} !~ /^[+-]$/)
+    {
+    my $s = $x->{sign}; $s =~ s/^[+]//; my $se = $s; $se =~ s/^[-]//;
+    return ($self->new($s),$self->new($se)); # +inf => inf and -inf,+inf => inf
+    }
+  my $m = Math::BigInt->bzero();
+  $m->{value} = $MBI->_copy($x->{_m});
+  $m->bneg() if $x->{sign} eq '-';
+  ($m, Math::BigInt->new( $x->{_es} . $MBI->_num($x->{_e}) ));
+  }
+
+##############################################################################
+# private stuff (internal use only)
+
+sub import
+  {
+  my $self = shift;
+  my $l = scalar @_;
+  my $lib = ''; my @a;
+  my $lib_kind = 'try';
+  $IMPORT=1;
+  for ( my $i = 0; $i < $l ; $i++)
+    {
+    if ( $_[$i] eq ':constant' )
+      {
+      # This causes overlord er load to step in. 'binary' and 'integer'
+      # are handled by BigInt.
+      overload::constant float => sub { $self->new(shift); }; 
+      }
+    elsif ($_[$i] eq 'upgrade')
+      {
+      # this causes upgrading
+      $upgrade = $_[$i+1];		# or undef to disable
+      $i++;
+      }
+    elsif ($_[$i] eq 'downgrade')
+      {
+      # this causes downgrading
+      $downgrade = $_[$i+1];		# or undef to disable
+      $i++;
+      }
+    elsif ($_[$i] =~ /^(lib|try|only)\z/)
+      {
+      # alternative library
+      $lib = $_[$i+1] || '';		# default Calc
+      $lib_kind = $1;			# lib, try or only
+      $i++;
+      }
+    elsif ($_[$i] eq 'with')
+      {
+      # alternative class for our private parts()
+      # XXX: no longer supported
+      # $MBI = $_[$i+1] || 'Math::BigInt';
+      $i++;
+      }
+    else
+      {
+      push @a, $_[$i];
+      }
+    }
+
+  $lib =~ tr/a-zA-Z0-9,://cd;		# restrict to sane characters
+  # let use Math::BigInt lib => 'GMP'; use Math::BigFloat; still work
+  my $mbilib = eval { Math::BigInt->config()->{lib} };
+  if ((defined $mbilib) && ($MBI eq 'Math::BigInt::Calc'))
+    {
+    # MBI already loaded
+    Math::BigInt->import( $lib_kind, "$lib,$mbilib", 'objectify');
+    }
+  else
+    {
+    # MBI not loaded, or with ne "Math::BigInt::Calc"
+    $lib .= ",$mbilib" if defined $mbilib;
+    $lib =~ s/^,//;				# don't leave empty 
+    
+    # replacement library can handle lib statement, but also could ignore it
+    
+    # Perl < 5.6.0 dies with "out of memory!" when eval() and ':constant' is
+    # used in the same script, or eval inside import(). So we require MBI:
+    require Math::BigInt;
+    Math::BigInt->import( $lib_kind => $lib, 'objectify' );
+    }
+  if ($@)
+    {
+    require Carp; Carp::croak ("Couldn't load $lib: $! $@");
+    }
+  # find out which one was actually loaded
+  $MBI = Math::BigInt->config()->{lib};
+
+  # register us with MBI to get notified of future lib changes
+  Math::BigInt::_register_callback( $self, sub { $MBI = $_[0]; } );
+
+  $self->export_to_level(1,$self,@a);		# export wanted functions
+  }
+
+sub bnorm
+  {
+  # adjust m and e so that m is smallest possible
+  my ($self,$x) = ref($_[0]) ? (undef,$_[0]) : objectify(1,@_);
+
+  return $x if $x->{sign} !~ /^[+-]$/;		# inf, nan etc
+
+  my $zeros = $MBI->_zeros($x->{_m});		# correct for trailing zeros
+  if ($zeros != 0)
+    {
+    my $z = $MBI->_new($zeros);
+    $x->{_m} = $MBI->_rsft ($x->{_m}, $z, 10);
+    if ($x->{_es} eq '-')
+      {
+      if ($MBI->_acmp($x->{_e},$z) >= 0)
+        {
+        $x->{_e} = $MBI->_sub ($x->{_e}, $z);
+        $x->{_es} = '+' if $MBI->_is_zero($x->{_e});
+        }
+      else
+        {
+        $x->{_e} = $MBI->_sub ( $MBI->_copy($z), $x->{_e});
+        $x->{_es} = '+';
+        }
+      }
+    else
+      {
+      $x->{_e} = $MBI->_add ($x->{_e}, $z);
+      }
+    }
+  else
+    {
+    # $x can only be 0Ey if there are no trailing zeros ('0' has 0 trailing
+    # zeros). So, for something like 0Ey, set y to 1, and -0 => +0
+    $x->{sign} = '+', $x->{_es} = '+', $x->{_e} = $MBI->_one()
+     if $MBI->_is_zero($x->{_m});
+    }
+
+  $x;					# MBI bnorm is no-op, so do not call it
+  } 
+ 
+##############################################################################
+
+sub as_hex
+  {
+  # return number as hexadecimal string (only for integers defined)
+  my ($self,$x) = ref($_[0]) ? (ref($_[0]),$_[0]) : objectify(1,@_);
+
+  return $x->bstr() if $x->{sign} !~ /^[+-]$/;  # inf, nan etc
+  return '0x0' if $x->is_zero();
+
+  return $nan if $x->{_es} ne '+';		# how to do 1e-1 in hex!?
+
+  my $z = $MBI->_copy($x->{_m});
+  if (! $MBI->_is_zero($x->{_e}))		# > 0 
+    {
+    $MBI->_lsft( $z, $x->{_e},10);
+    }
+  $z = Math::BigInt->new( $x->{sign} . $MBI->_num($z));
+  $z->as_hex();
+  }
+
+sub as_bin
+  {
+  # return number as binary digit string (only for integers defined)
+  my ($self,$x) = ref($_[0]) ? (ref($_[0]),$_[0]) : objectify(1,@_);
+
+  return $x->bstr() if $x->{sign} !~ /^[+-]$/;  # inf, nan etc
+  return '0b0' if $x->is_zero();
+
+  return $nan if $x->{_es} ne '+';		# how to do 1e-1 in hex!?
+
+  my $z = $MBI->_copy($x->{_m});
+  if (! $MBI->_is_zero($x->{_e}))		# > 0 
+    {
+    $MBI->_lsft( $z, $x->{_e},10);
+    }
+  $z = Math::BigInt->new( $x->{sign} . $MBI->_num($z));
+  $z->as_bin();
+  }
+
+sub as_oct
+  {
+  # return number as octal digit string (only for integers defined)
+  my ($self,$x) = ref($_[0]) ? (ref($_[0]),$_[0]) : objectify(1,@_);
+
+  return $x->bstr() if $x->{sign} !~ /^[+-]$/;  # inf, nan etc
+  return '0' if $x->is_zero();
+
+  return $nan if $x->{_es} ne '+';		# how to do 1e-1 in hex!?
+
+  my $z = $MBI->_copy($x->{_m});
+  if (! $MBI->_is_zero($x->{_e}))		# > 0 
+    {
+    $MBI->_lsft( $z, $x->{_e},10);
+    }
+  $z = Math::BigInt->new( $x->{sign} . $MBI->_num($z));
+  $z->as_oct();
+  }
+
+sub as_number
+  {
+  # return copy as a bigint representation of this BigFloat number
+  my ($self,$x) = ref($_[0]) ? (ref($_[0]),$_[0]) : objectify(1,@_);
+
+  return $x if $x->modify('as_number');
+
+  if (!$x->isa('Math::BigFloat'))
+    {
+    # if the object can as_number(), use it
+    return $x->as_number() if $x->can('as_number');
+    # otherwise, get us a float and then a number
+    $x = $x->can('as_float') ? $x->as_float() : $self->new(0+"$x");
+    }
+
+  return Math::BigInt->binf($x->sign()) if $x->is_inf();
+  return Math::BigInt->bnan()           if $x->is_nan();
+
+  my $z = $MBI->_copy($x->{_m});
+  if ($x->{_es} eq '-')			# < 0
+    {
+    $MBI->_rsft( $z, $x->{_e},10);
+    } 
+  elsif (! $MBI->_is_zero($x->{_e}))	# > 0 
+    {
+    $MBI->_lsft( $z, $x->{_e},10);
+    }
+  $z = Math::BigInt->new( $x->{sign} . $MBI->_str($z));
+  $z;
+  }
+
+sub length
+  {
+  my $x = shift;
+  my $class = ref($x) || $x;
+  $x = $class->new(shift) unless ref($x);
+
+  return 1 if $MBI->_is_zero($x->{_m});
+
+  my $len = $MBI->_len($x->{_m});
+  $len += $MBI->_num($x->{_e}) if $x->{_es} eq '+';
+  if (wantarray())
+    {
+    my $t = 0;
+    $t = $MBI->_num($x->{_e}) if $x->{_es} eq '-';
+    return ($len, $t);
+    }
+  $len;
+  }
+
+sub from_hex {
+    my $self    = shift;
+    my $selfref = ref $self;
+    my $class   = $selfref || $self;
+
+    my $str = shift;
+
+    # If called as a class method, initialize a new object.
+
+    $self = $class -> bzero() unless $selfref;
+
+    if ($str =~ s/
+                     ^
+
+                     # sign
+                     ( [+-]? )
+
+                     # optional "hex marker"
+                     (?: 0? x )?
+
+                     # significand using the hex digits 0..9 and a..f
+                     (
+                         [0-9a-fA-F]+ (?: _ [0-9a-fA-F]+ )*
+                         (?:
+                             \.
+                             (?: [0-9a-fA-F]+ (?: _ [0-9a-fA-F]+ )* )?
+                         )?
+                     |
+                         \.
+                         [0-9a-fA-F]+ (?: _ [0-9a-fA-F]+ )*
+                     )
+
+                     # exponent (power of 2) using decimal digits
+                     (?:
+                         [Pp]
+                         ( [+-]? )
+                         ( \d+ (?: _ \d+ )* )
+                     )?
+
+                     $
+                 //x)
+    {
+        my $s_sign  = $1 || '+';
+        my $s_value = $2;
+        my $e_sign  = $3 || '+';
+        my $e_value = $4 || '0';
+        $s_value =~ tr/_//d;
+        $e_value =~ tr/_//d;
+
+        # The significand must be multiplied by 2 raised to this exponent.
+
+        my $two_expon = $class -> new($e_value);
+        $two_expon -> bneg() if $e_sign eq '-';
+
+        # If there is a dot in the significand, remove it and adjust the
+        # exponent according to the number of digits in the fraction part of
+        # the significand. Since the digits in the significand are in base 16,
+        # but the exponent is only in base 2, multiply the exponent adjustment
+        # value by log(16) / log(2) = 4.
+
+        my $idx = index($s_value, '.');
+        if ($idx >= 0) {
+            substr($s_value, $idx, 1) = '';
+            $two_expon -= $class -> new(CORE::length($s_value))
+                                 -> bsub($idx)
+                                 -> bmul("4");
+        }
+
+        $self -> {sign} = $s_sign;
+        $self -> {_m}   = $MBI -> _from_hex('0x' . $s_value);
+
+        if ($two_expon > 0) {
+            my $factor = $class -> new("2") -> bpow($two_expon);
+            $self -> bmul($factor);
+        } elsif ($two_expon < 0) {
+            my $factor = $class -> new("0.5") -> bpow(-$two_expon);
+            $self -> bmul($factor);
+        }
+
+        return $self;
+    }
+
+    return $self->bnan();
+}
+
+sub from_oct {
+    my $self    = shift;
+    my $selfref = ref $self;
+    my $class   = $selfref || $self;
+
+    my $str = shift;
+
+    # If called as a class method, initialize a new object.
+
+    $self = $class -> bzero() unless $selfref;
+
+    if ($str =~ s/
+                     ^
+
+                     # sign
+                     ( [+-]? )
+
+                     # significand using the octal digits 0..7
+                     (
+                         [0-7]+ (?: _ [0-7]+ )*
+                         (?:
+                             \.
+                             (?: [0-7]+ (?: _ [0-7]+ )* )?
+                         )?
+                     |
+                         \.
+                         [0-7]+ (?: _ [0-7]+ )*
+                     )
+
+                     # exponent (power of 2) using decimal digits
+                     (?:
+                         [Pp]
+                         ( [+-]? )
+                         ( \d+ (?: _ \d+ )* )
+                     )?
+
+                     $
+                 //x)
+    {
+        my $s_sign  = $1 || '+';
+        my $s_value = $2;
+        my $e_sign  = $3 || '+';
+        my $e_value = $4 || '0';
+        $s_value =~ tr/_//d;
+        $e_value =~ tr/_//d;
+
+        # The significand must be multiplied by 2 raised to this exponent.
+
+        my $two_expon = $class -> new($e_value);
+        $two_expon -> bneg() if $e_sign eq '-';
+
+        # If there is a dot in the significand, remove it and adjust the
+        # exponent according to the number of digits in the fraction part of
+        # the significand. Since the digits in the significand are in base 8,
+        # but the exponent is only in base 2, multiply the exponent adjustment
+        # value by log(8) / log(2) = 3.
+
+        my $idx = index($s_value, '.');
+        if ($idx >= 0) {
+            substr($s_value, $idx, 1) = '';
+            $two_expon -= $class -> new(CORE::length($s_value))
+                                 -> bsub($idx)
+                                 -> bmul("3");
+        }
+
+        $self -> {sign} = $s_sign;
+        $self -> {_m}   = $MBI -> _from_oct($s_value);
+
+        if ($two_expon > 0) {
+            my $factor = $class -> new("2") -> bpow($two_expon);
+            $self -> bmul($factor);
+        } elsif ($two_expon < 0) {
+            my $factor = $class -> new("0.5") -> bpow(-$two_expon);
+            $self -> bmul($factor);
+        }
+
+        return $self;
+    }
+
+    return $self->bnan();
+}
+
+sub from_bin {
+    my $self    = shift;
+    my $selfref = ref $self;
+    my $class   = $selfref || $self;
+
+    my $str = shift;
+
+    # If called as a class method, initialize a new object.
+
+    $self = $class -> bzero() unless $selfref;
+
+    if ($str =~ s/
+                     ^
+
+                     # sign
+                     ( [+-]? )
+
+                     # optional "bin marker"
+                     (?: 0? b )?
+
+                     # significand using the binary digits 0 and 1
+                     (
+                         [01]+ (?: _ [01]+ )*
+                         (?:
+                             \.
+                             (?: [01]+ (?: _ [01]+ )* )?
+                         )?
+                     |
+                         \.
+                         [01]+ (?: _ [01]+ )*
+                     )
+
+                     # exponent (power of 2) using decimal digits
+                     (?:
+                         [Pp]
+                         ( [+-]? )
+                         ( \d+ (?: _ \d+ )* )
+                     )?
+
+                     $
+                 //x)
+    {
+        my $s_sign  = $1 || '+';
+        my $s_value = $2;
+        my $e_sign  = $3 || '+';
+        my $e_value = $4 || '0';
+        $s_value =~ tr/_//d;
+        $e_value =~ tr/_//d;
+
+        # The significand must be multiplied by 2 raised to this exponent.
+
+        my $two_expon = $class -> new($e_value);
+        $two_expon -> bneg() if $e_sign eq '-';
+
+        # If there is a dot in the significand, remove it and adjust the
+        # exponent according to the number of digits in the fraction part of
+        # the significand.
+
+        my $idx = index($s_value, '.');
+        if ($idx >= 0) {
+            substr($s_value, $idx, 1) = '';
+            $two_expon -= $class -> new(CORE::length($s_value))
+                                 -> bsub($idx);
+        }
+
+        $self -> {sign} = $s_sign;
+        $self -> {_m}   = $MBI -> _from_bin('0b' . $s_value);
+
+        if ($two_expon > 0) {
+            my $factor = $class -> new("2") -> bpow($two_expon);
+            $self -> bmul($factor);
+        } elsif ($two_expon < 0) {
+            my $factor = $class -> new("0.5") -> bpow(-$two_expon);
+            $self -> bmul($factor);
+        }
+
+        return $self;
+    }
+
+    return $self->bnan();
+}
+
+1;
+
+__END__
+
+=pod
+
+=head1 NAME
+
+Math::BigFloat - Arbitrary size floating point math package
+
+=head1 SYNOPSIS
+
+ use Math::BigFloat;
+
+ # Number creation
+ my $x = Math::BigFloat->new($str);	# defaults to 0
+ my $y = $x->copy();			# make a true copy
+ my $nan  = Math::BigFloat->bnan();	# create a NotANumber
+ my $zero = Math::BigFloat->bzero();	# create a +0
+ my $inf = Math::BigFloat->binf();	# create a +inf
+ my $inf = Math::BigFloat->binf('-');	# create a -inf
+ my $one = Math::BigFloat->bone();	# create a +1
+ my $mone = Math::BigFloat->bone('-');	# create a -1
+ my $x = Math::BigFloat->bone('-');	#
+
+ my $x = Math::BigFloat->from_hex('0xc.afep+3');    # from hexadecimal
+ my $x = Math::BigFloat->from_bin('0b1.1001p-4');   # from binary
+ my $x = Math::BigFloat->from_oct('1.3267p-4');     # from octal
+
+ my $pi = Math::BigFloat->bpi(100);	# PI to 100 digits
+
+ # the following examples compute their result to 100 digits accuracy:
+ my $cos  = Math::BigFloat->new(1)->bcos(100);	      # cosinus(1)
+ my $sin  = Math::BigFloat->new(1)->bsin(100);	      # sinus(1)
+ my $atan = Math::BigFloat->new(1)->batan(100);	      # arcus tangens(1)
+
+ my $atan2 = Math::BigFloat->new(  1 )->batan2( 1 ,100); # batan(1)
+ my $atan2 = Math::BigFloat->new(  1 )->batan2( 8 ,100); # batan(1/8)
+ my $atan2 = Math::BigFloat->new( -2 )->batan2( 1 ,100); # batan(-2)
+
+ # Testing
+ $x->is_zero();		 # true if arg is +0
+ $x->is_nan();		 # true if arg is NaN
+ $x->is_one();		 # true if arg is +1
+ $x->is_one('-');	 # true if arg is -1
+ $x->is_odd();		 # true if odd, false for even
+ $x->is_even();		 # true if even, false for odd
+ $x->is_pos();		 # true if >= 0
+ $x->is_neg();		 # true if <  0
+ $x->is_inf(sign);	 # true if +inf, or -inf (default is '+')
+
+ $x->bcmp($y);		 # compare numbers (undef,<0,=0,>0)
+ $x->bacmp($y);		 # compare absolutely (undef,<0,=0,>0)
+ $x->sign();		 # return the sign, either +,- or NaN
+ $x->digit($n);		 # return the nth digit, counting from right
+ $x->digit(-$n);	 # return the nth digit, counting from left 
+
+ # The following all modify their first argument. If you want to pre-
+ # serve $x, use $z = $x->copy()->bXXX($y); See under L</CAVEATS> for
+ # necessary when mixing $a = $b assignments with non-overloaded math.
+
+ # set 
+ $x->bzero();		 # set $i to 0
+ $x->bnan();		 # set $i to NaN
+ $x->bone();		 # set $x to +1
+ $x->bone('-');		 # set $x to -1
+ $x->binf();		 # set $x to inf
+ $x->binf('-');		 # set $x to -inf
+
+ $x->bneg();		 # negation
+ $x->babs();		 # absolute value
+ $x->bnorm();		 # normalize (no-op)
+ $x->bnot();		 # two's complement (bit wise not)
+ $x->binc();		 # increment x by 1
+ $x->bdec();		 # decrement x by 1
+
+ $x->badd($y);		 # addition (add $y to $x)
+ $x->bsub($y);		 # subtraction (subtract $y from $x)
+ $x->bmul($y);		 # multiplication (multiply $x by $y)
+ $x->bdiv($y);		 # divide, set $x to quotient
+			 # return (quo,rem) or quo if scalar
+
+ $x->bmod($y);		 # modulus ($x % $y)
+ $x->bpow($y);		 # power of arguments ($x ** $y)
+ $x->bmodpow($exp,$mod); # modular exponentiation (($num**$exp) % $mod))
+ $x->blsft($y, $n);	 # left shift by $y places in base $n
+ $x->brsft($y, $n);	 # right shift by $y places in base $n
+			 # returns (quo,rem) or quo if in scalar context
+
+ $x->blog();		 # logarithm of $x to base e (Euler's number)
+ $x->blog($base);	 # logarithm of $x to base $base (f.i. 2)
+ $x->bexp();		 # calculate e ** $x where e is Euler's number
+
+ $x->band($y);		 # bit-wise and
+ $x->bior($y);		 # bit-wise inclusive or
+ $x->bxor($y);		 # bit-wise exclusive or
+ $x->bnot();		 # bit-wise not (two's complement)
+
+ $x->bsqrt();		 # calculate square-root
+ $x->broot($y);		 # $y'th root of $x (e.g. $y == 3 => cubic root)
+ $x->bfac();		 # factorial of $x (1*2*3*4*..$x)
+
+ $x->bround($N); 	 # accuracy: preserve $N digits
+ $x->bfround($N);	 # precision: round to the $Nth digit
+
+ $x->bfloor();		 # return integer less or equal than $x
+ $x->bceil();		 # return integer greater or equal than $x
+ $x->bint();             # round towards zero
+
+  # The following do not modify their arguments:
+
+ bgcd(@values);		 # greatest common divisor
+ blcm(@values);		 # lowest common multiplicator
+
+ $x->bstr();		 # return string
+ $x->bsstr();		 # return string in scientific notation
+
+ $x->as_int();		 # return $x as BigInt 
+ $x->exponent();	 # return exponent as BigInt
+ $x->mantissa();	 # return mantissa as BigInt
+ $x->parts();		 # return (mantissa,exponent) as BigInt
+
+ $x->length();		 # number of digits (w/o sign and '.')
+ ($l,$f) = $x->length(); # number of digits, and length of fraction
+
+ $x->precision();	 # return P of $x (or global, if P of $x undef)
+ $x->precision($n);	 # set P of $x to $n
+ $x->accuracy();	 # return A of $x (or global, if A of $x undef)
+ $x->accuracy($n);	 # set A $x to $n
+
+ # these get/set the appropriate global value for all BigFloat objects
+ Math::BigFloat->precision();	# Precision
+ Math::BigFloat->accuracy();	# Accuracy
+ Math::BigFloat->round_mode();	# rounding mode
+
+=head1 DESCRIPTION
+
+All operators (including basic math operations) are overloaded if you
+declare your big floating point numbers as
+
+  $i = Math::BigFloat -> new('12_3.456_789_123_456_789E-2');
+
+Operations with overloaded operators preserve the arguments, which is
+exactly what you expect.
+
+=head2 Input
+
+Input to these routines are either BigFloat objects, or strings of the
+following four forms:
+
+=over
+
+=item *
+
+C</^[+-]\d+$/>
+
+=item *
+
+C</^[+-]\d+\.\d*$/>
+
+=item *
+
+C</^[+-]\d+E[+-]?\d+$/>
+
+=item *
+
+C</^[+-]\d*\.\d+E[+-]?\d+$/>
+
+=back
+
+all with optional leading and trailing zeros and/or spaces. Additionally,
+numbers are allowed to have an underscore between any two digits.
+
+Empty strings as well as other illegal numbers results in 'NaN'.
+
+bnorm() on a BigFloat object is now effectively a no-op, since the numbers 
+are always stored in normalized form. On a string, it creates a BigFloat 
+object.
+
+=head2 Output
+
+Output values are BigFloat objects (normalized), except for bstr() and bsstr().
+
+The string output will always have leading and trailing zeros stripped and drop
+a plus sign. C<bstr()> will give you always the form with a decimal point,
+while C<bsstr()> (s for scientific) gives you the scientific notation.
+
+	Input			bstr()		bsstr()
+	'-0'			'0'		'0E1'
+   	'  -123 123 123'	'-123123123'	'-123123123E0'
+	'00.0123'		'0.0123'	'123E-4'
+	'123.45E-2'		'1.2345'	'12345E-4'
+	'10E+3'			'10000'		'1E4'
+
+Some routines (C<is_odd()>, C<is_even()>, C<is_zero()>, C<is_one()>,
+C<is_nan()>) return true or false, while others (C<bcmp()>, C<bacmp()>)
+return either undef, <0, 0 or >0 and are suited for sort.
+
+Actual math is done by using the class defined with C<< with => Class; >>
+(which defaults to BigInts) to represent the mantissa and exponent.
+
+The sign C</^[+-]$/> is stored separately. The string 'NaN' is used to 
+represent the result when input arguments are not numbers, and 'inf' and
+'-inf' are used to represent positive and negative infinity, respectively.
+
+=head2 mantissa(), exponent() and parts()
+
+mantissa() and exponent() return the said parts of the BigFloat
+as BigInts such that:
+
+	$m = $x->mantissa();
+	$e = $x->exponent();
+	$y = $m * ( 10 ** $e );
+	print "ok\n" if $x == $y;
+
+C<< ($m,$e) = $x->parts(); >> is just a shortcut giving you both of them.
+
+Currently the mantissa is reduced as much as possible, favouring higher
+exponents over lower ones (e.g. returning 1e7 instead of 10e6 or 10000000e0).
+This might change in the future, so do not depend on it.
+
+=head2 Accuracy vs. Precision
+
+See also: L<Rounding|/Rounding>.
+
+Math::BigFloat supports both precision (rounding to a certain place before or
+after the dot) and accuracy (rounding to a certain number of digits). For a
+full documentation, examples and tips on these topics please see the large
+section about rounding in L<Math::BigInt>.
+
+Since things like C<sqrt(2)> or C<1 / 3> must presented with a limited
+accuracy lest a operation consumes all resources, each operation produces
+no more than the requested number of digits.
+
+If there is no global precision or accuracy set, B<and> the operation in
+question was not called with a requested precision or accuracy, B<and> the
+input $x has no accuracy or precision set, then a fallback parameter will
+be used. For historical reasons, it is called C<div_scale> and can be accessed
+via:
+
+	$d = Math::BigFloat->div_scale();	# query
+	Math::BigFloat->div_scale($n);		# set to $n digits
+
+The default value for C<div_scale> is 40.
+
+In case the result of one operation has more digits than specified,
+it is rounded. The rounding mode taken is either the default mode, or the one
+supplied to the operation after the I<scale>:
+
+    $x = Math::BigFloat->new(2);
+    Math::BigFloat->accuracy(5);	      # 5 digits max
+    $y = $x->copy()->bdiv(3);		      # will give 0.66667
+    $y = $x->copy()->bdiv(3,6);		      # will give 0.666667
+    $y = $x->copy()->bdiv(3,6,undef,'odd');   # will give 0.666667
+    Math::BigFloat->round_mode('zero');
+    $y = $x->copy()->bdiv(3,6);		      # will also give 0.666667
+
+Note that C<< Math::BigFloat->accuracy() >> and C<< Math::BigFloat->precision() >>
+set the global variables, and thus B<any> newly created number will be subject
+to the global rounding B<immediately>. This means that in the examples above, the
+C<3> as argument to C<bdiv()> will also get an accuracy of B<5>.
+
+It is less confusing to either calculate the result fully, and afterwards
+round it explicitly, or use the additional parameters to the math
+functions like so:
+
+	use Math::BigFloat;
+	$x = Math::BigFloat->new(2);
+	$y = $x->copy()->bdiv(3);
+	print $y->bround(5),"\n";		# will give 0.66667
+
+	or
+
+	use Math::BigFloat;
+	$x = Math::BigFloat->new(2);
+	$y = $x->copy()->bdiv(3,5);		# will give 0.66667
+	print "$y\n";
+
+=head2 Rounding
+
+=over
+
+=item bfround ( +$scale )
+
+Rounds to the $scale'th place left from the '.', counting from the dot.
+The first digit is numbered 1. 
+
+=item bfround ( -$scale )
+
+Rounds to the $scale'th place right from the '.', counting from the dot.
+
+=item bfround ( 0 )
+
+Rounds to an integer.
+
+=item bround  ( +$scale )
+
+Preserves accuracy to $scale digits from the left (aka significant digits)
+and pads the rest with zeros. If the number is between 1 and -1, the
+significant digits count from the first non-zero after the '.'
+
+=item bround  ( -$scale ) and bround ( 0 )
+
+These are effectively no-ops.
+
+=back
+
+All rounding functions take as a second parameter a rounding mode from one of
+the following: 'even', 'odd', '+inf', '-inf', 'zero', 'trunc' or 'common'.
+
+The default rounding mode is 'even'. By using
+C<< Math::BigFloat->round_mode($round_mode); >> you can get and set the default
+mode for subsequent rounding. The usage of C<$Math::BigFloat::$round_mode> is
+no longer supported.
+The second parameter to the round functions then overrides the default
+temporarily. 
+
+The C<as_number()> function returns a BigInt from a Math::BigFloat. It uses
+'trunc' as rounding mode to make it equivalent to:
+
+	$x = 2.5;
+	$y = int($x) + 2;
+
+You can override this by passing the desired rounding mode as parameter to
+C<as_number()>:
+
+	$x = Math::BigFloat->new(2.5);
+	$y = $x->as_number('odd');	# $y = 3
+
+=head1 METHODS
+
+Math::BigFloat supports all methods that Math::BigInt supports, except it
+calculates non-integer results when possible. Please see L<Math::BigInt>
+for a full description of each method. Below are just the most important
+differences:
+
+=over
+
+=item accuracy()
+
+      $x->accuracy(5);           # local for $x
+      CLASS->accuracy(5);        # global for all members of CLASS
+                                 # Note: This also applies to new()!
+
+      $A = $x->accuracy();       # read out accuracy that affects $x
+      $A = CLASS->accuracy();    # read out global accuracy
+
+Set or get the global or local accuracy, aka how many significant digits the
+results have. If you set a global accuracy, then this also applies to new()!
+
+Warning! The accuracy I<sticks>, e.g. once you created a number under the
+influence of C<< CLASS->accuracy($A) >>, all results from math operations with
+that number will also be rounded.
+
+In most cases, you should probably round the results explicitly using one of
+L<Math::BigInt/round()>, L<Math::BigInt/bround()> or L<Math::BigInt/bfround()> or by passing the desired accuracy
+to the math operation as additional parameter:
+
+        my $x = Math::BigInt->new(30000);
+        my $y = Math::BigInt->new(7);
+        print scalar $x->copy()->bdiv($y, 2);           # print 4300
+        print scalar $x->copy()->bdiv($y)->bround(2);   # print 4300
+
+=item precision()
+
+      $x->precision(-2);      # local for $x, round at the second
+                              # digit right of the dot
+      $x->precision(2);       # ditto, round at the second digit
+                              # left of the dot
+
+      CLASS->precision(5);    # Global for all members of CLASS
+                              # This also applies to new()!
+      CLASS->precision(-5);   # ditto
+
+      $P = CLASS->precision();  # read out global precision
+      $P = $x->precision();     # read out precision that affects $x
+
+Note: You probably want to use L</accuracy()> instead. With L</accuracy()> you
+set the number of digits each result should have, with L</precision()> you
+set the place where to round!
+
+=item bdiv()
+
+        $q = $x->bdiv($y);
+        ($q, $r) = $x->bdiv($y);
+
+In scalar context, divides $x by $y and returns the result to the given or
+default accuracy/precision. In list context, does floored division
+(F-division), returning an integer $q and a remainder $r so that $x = $q * $y +
+$r. The remainer (modulo) is equal to what is returned by C<$x->bmod($y)>.
+
+=item bmod()
+
+	$x->bmod($y);
+
+Returns $x modulo $y. When $x is finite, and $y is finite and non-zero, the
+result is identical to the remainder after floored division (F-division). If,
+in addition, both $x and $y are integers, the result is identical to the result
+from Perl's % operator.
+
+=item bexp()
+
+	$x->bexp($accuracy);		# calculate e ** X
+
+Calculates the expression C<e ** $x> where C<e> is Euler's number.
+
+This method was added in v1.82 of Math::BigInt (April 2007).
+
+=item bnok()
+
+	$x->bnok($y);	# x over y (binomial coefficient n over k)
+
+Calculates the binomial coefficient n over k, also called the "choose"
+function. The result is equivalent to:
+
+	( n )      n!
+	| - |  = -------
+	( k )    k!(n-k)!
+
+This method was added in v1.84 of Math::BigInt (April 2007).
+
+=item bpi()
+
+	print Math::BigFloat->bpi(100), "\n";
+
+Calculate PI to N digits (including the 3 before the dot). The result is
+rounded according to the current rounding mode, which defaults to "even".
+
+This method was added in v1.87 of Math::BigInt (June 2007).
+
+=item bcos()
+
+	my $x = Math::BigFloat->new(1);
+	print $x->bcos(100), "\n";
+
+Calculate the cosinus of $x, modifying $x in place.
+
+This method was added in v1.87 of Math::BigInt (June 2007).
+
+=item bsin()
+
+	my $x = Math::BigFloat->new(1);
+	print $x->bsin(100), "\n";
+
+Calculate the sinus of $x, modifying $x in place.
+
+This method was added in v1.87 of Math::BigInt (June 2007).
+
+=item batan2()
+
+	my $y = Math::BigFloat->new(2);
+	my $x = Math::BigFloat->new(3);
+	print $y->batan2($x), "\n";
+
+Calculate the arcus tanges of C<$y> divided by C<$x>, modifying $y in place.
+See also L</batan()>.
+
+This method was added in v1.87 of Math::BigInt (June 2007).
+
+=item batan()
+
+	my $x = Math::BigFloat->new(1);
+	print $x->batan(100), "\n";
+
+Calculate the arcus tanges of $x, modifying $x in place. See also L</batan2()>.
+
+This method was added in v1.87 of Math::BigInt (June 2007).
+
+=item bmuladd()
+
+	$x->bmuladd($y,$z);
+
+Multiply $x by $y, and then add $z to the result.
+
+This method was added in v1.87 of Math::BigInt (June 2007).
+
+=item as_float()
+
+This method is called when Math::BigFloat encounters an object it doesn't know
+how to handle. For instance, assume $x is a Math::BigFloat, or subclass
+thereof, and $y is defined, but not a Math::BigFloat, or subclass thereof. If
+you do
+
+    $x -> badd($y);
+
+$y needs to be converted into an object that $x can deal with. This is done by
+first checking if $y is something that $x might be upgraded to. If that is the
+case, no further attempts are made. The next is to see if $y supports the
+method C<as_float()>. The method C<as_float()> is expected to return either an
+object that has the same class as $x, a subclass thereof, or a string that
+C<ref($x)-E<gt>new()> can parse to create an object.
+
+In Math::BigFloat, C<as_float()> has the same effect as C<copy()>.
+
+=item from_hex()
+
+    $x -> from_hex("0x1.921fb54442d18p+1");
+    $x = Math::BigFloat -> from_hex("0x1.921fb54442d18p+1");
+
+Interpret input as a hexadecimal string.A prefix ("0x", "x", ignoring case) is
+optional. A single underscore character ("_") may be placed between any two
+digits. If the input is invalid, a NaN is returned. The exponent is in base 2
+using decimal digits.
+
+If called as an instance method, the value is assigned to the invocand.
+
+=item from_bin()
+
+    $x -> from_bin("0b1.1001p-4");
+    $x = Math::BigFloat -> from_bin("0b1.1001p-4");
+
+Interpret input as a hexadecimal string. A prefix ("0b" or "b", ignoring case)
+is optional. A single underscore character ("_") may be placed between any two
+digits. If the input is invalid, a NaN is returned. The exponent is in base 2
+using decimal digits.
+
+If called as an instance method, the value is assigned to the invocand.
+
+=item from_oct()
+
+    $x -> from_oct("1.3267p-4");
+    $x = Math::BigFloat -> from_oct("1.3267p-4");
+
+Interpret input as an octal string. A single underscore character ("_") may be
+placed between any two digits. If the input is invalid, a NaN is returned. The
+exponent is in base 2 using decimal digits.
+
+If called as an instance method, the value is assigned to the invocand.
+
+=back
+
+=head1 Autocreating constants
+
+After C<use Math::BigFloat ':constant'> all the floating point constants
+in the given scope are converted to C<Math::BigFloat>. This conversion
+happens at compile time.
+
+In particular
+
+  perl -MMath::BigFloat=:constant -e 'print 2E-100,"\n"'
+
+prints the value of C<2E-100>. Note that without conversion of 
+constants the expression 2E-100 will be calculated as normal floating point 
+number.
+
+Please note that ':constant' does not affect integer constants, nor binary 
+nor hexadecimal constants. Use L<bignum> or L<Math::BigInt> to get this to
+work.
+
+=head2 Math library
+
+Math with the numbers is done (by default) by a module called
+Math::BigInt::Calc. This is equivalent to saying:
+
+	use Math::BigFloat lib => 'Calc';
+
+You can change this by using:
+
+	use Math::BigFloat lib => 'GMP';
+
+B<Note>: General purpose packages should not be explicit about the library
+to use; let the script author decide which is best.
+
+Note: The keyword 'lib' will warn when the requested library could not be
+loaded. To suppress the warning use 'try' instead:
+
+	use Math::BigFloat try => 'GMP';
+
+If your script works with huge numbers and Calc is too slow for them,
+you can also for the loading of one of these libraries and if none
+of them can be used, the code will die:
+
+        use Math::BigFloat only => 'GMP,Pari';
+
+The following would first try to find Math::BigInt::Foo, then
+Math::BigInt::Bar, and when this also fails, revert to Math::BigInt::Calc:
+
+	use Math::BigFloat lib => 'Foo,Math::BigInt::Bar';
+
+See the respective low-level library documentation for further details.
+
+Please note that Math::BigFloat does B<not> use the denoted library itself,
+but it merely passes the lib argument to Math::BigInt. So, instead of the need
+to do:
+
+	use Math::BigInt lib => 'GMP';
+	use Math::BigFloat;
+
+you can roll it all into one line:
+
+	use Math::BigFloat lib => 'GMP';
+
+It is also possible to just require Math::BigFloat:
+
+	require Math::BigFloat;
+
+This will load the necessary things (like BigInt) when they are needed, and
+automatically.
+
+See L<Math::BigInt> for more details than you ever wanted to know about using
+a different low-level library.
+
+=head2 Using Math::BigInt::Lite
+
+For backwards compatibility reasons it is still possible to
+request a different storage class for use with Math::BigFloat:
+
+        use Math::BigFloat with => 'Math::BigInt::Lite';
+
+However, this request is ignored, as the current code now uses the low-level
+math library for directly storing the number parts.
+
+=head1 EXPORTS
+
+C<Math::BigFloat> exports nothing by default, but can export the C<bpi()> method:
+
+	use Math::BigFloat qw/bpi/;
+
+	print bpi(10), "\n";
+
+=head1 CAVEATS
+
+Do not try to be clever to insert some operations in between switching
+libraries:
+
+    require Math::BigFloat;
+    my $matter = Math::BigFloat->bone() + 4;	# load BigInt and Calc
+    Math::BigFloat->import( lib => 'Pari' );	# load Pari, too
+    my $anti_matter = Math::BigFloat->bone()+4;	# now use Pari
+
+This will create objects with numbers stored in two different backend libraries,
+and B<VERY BAD THINGS> will happen when you use these together:
+
+	my $flash_and_bang = $matter + $anti_matter;	# Don't do this!
+
+=over
+
+=item stringify, bstr()
+
+Both stringify and bstr() now drop the leading '+'. The old code would return
+'+1.23', the new returns '1.23'. See the documentation in L<Math::BigInt> for
+reasoning and details.
+
+=item bdiv()
+
+The following will probably not print what you expect:
+
+	print $c->bdiv(123.456),"\n";
+
+It prints both quotient and remainder since print works in list context. Also,
+bdiv() will modify $c, so be careful. You probably want to use
+
+    print $c / 123.456,"\n";
+    # or if you want to modify $c:
+    print scalar $c->bdiv(123.456),"\n";
+
+instead.
+
+=item brsft()
+
+The following will probably not print what you expect:
+
+	my $c = Math::BigFloat->new('3.14159');
+        print $c->brsft(3,10),"\n";	# prints 0.00314153.1415
+
+It prints both quotient and remainder, since print calls C<brsft()> in list
+context. Also, C<< $c->brsft() >> will modify $c, so be careful.
+You probably want to use
+
+	print scalar $c->copy()->brsft(3,10),"\n";
+	# or if you really want to modify $c
+        print scalar $c->brsft(3,10),"\n";
+
+instead.
+
+=item Modifying and =
+
+Beware of:
+
+	$x = Math::BigFloat->new(5);
+	$y = $x;
+
+It will not do what you think, e.g. making a copy of $x. Instead it just makes
+a second reference to the B<same> object and stores it in $y. Thus anything
+that modifies $x will modify $y (except overloaded math operators), and vice
+versa. See L<Math::BigInt> for details and how to avoid that.
+
+=item bpow()
+
+C<bpow()> now modifies the first argument, unlike the old code which left
+it alone and only returned the result. This is to be consistent with
+C<badd()> etc. The first will modify $x, the second one won't:
+
+	print bpow($x,$i),"\n"; 	# modify $x
+	print $x->bpow($i),"\n"; 	# ditto
+	print $x ** $i,"\n";		# leave $x alone 
+
+=item precision() vs. accuracy()
+
+A common pitfall is to use L</precision()> when you want to round a result to
+a certain number of digits:
+
+    use Math::BigFloat;
+
+    Math::BigFloat->precision(4);	    # does not do what you
+					    # think it does
+    my $x = Math::BigFloat->new(12345);	    # rounds $x to "12000"!
+    print "$x\n";			    # print "12000"
+    my $y = Math::BigFloat->new(3);	    # rounds $y to "0"!
+    print "$y\n";			    # print "0"
+    $z = $x / $y;			    # 12000 / 0 => NaN!
+    print "$z\n";
+    print $z->precision(),"\n";		    # 4
+
+Replacing L</precision()> with L</accuracy()> is probably not what you want, either:
+
+    use Math::BigFloat;
+
+    Math::BigFloat->accuracy(4);	  # enables global rounding:
+    my $x = Math::BigFloat->new(123456);  # rounded immediately
+                                          #   to "12350"
+    print "$x\n";			  # print "123500"
+    my $y = Math::BigFloat->new(3);	  # rounded to "3
+    print "$y\n";			  # print "3"
+    print $z = $x->copy()->bdiv($y),"\n"; # 41170
+    print $z->accuracy(),"\n";		  # 4
+
+What you want to use instead is:
+
+    use Math::BigFloat;
+
+    my $x = Math::BigFloat->new(123456);    # no rounding
+    print "$x\n";			    # print "123456"
+    my $y = Math::BigFloat->new(3);	    # no rounding
+    print "$y\n";			    # print "3"
+    print $z = $x->copy()->bdiv($y,4),"\n"; # 41150
+    print $z->accuracy(),"\n";		    # undef
+
+In addition to computing what you expected, the last example also does B<not>
+"taint" the result with an accuracy or precision setting, which would
+influence any further operation.
+
+=back
+
+=head1 BUGS
+
+Please report any bugs or feature requests to
+C<bug-math-bigint at rt.cpan.org>, or through the web interface at
+L<https://rt.cpan.org/Ticket/Create.html?Queue=Math-BigInt>
+(requires login).
+We will be notified, and then you'll automatically be notified of progress on
+your bug as I make changes.
+
+=head1 SUPPORT
+
+You can find documentation for this module with the perldoc command.
+
+    perldoc Math::BigFloat
+
+You can also look for information at:
+
+=over 4
+
+=item * RT: CPAN's request tracker
+
+L<https://rt.cpan.org/Public/Dist/Display.html?Name=Math-BigInt>
+
+=item * AnnoCPAN: Annotated CPAN documentation
+
+L<http://annocpan.org/dist/Math-BigInt>
+
+=item * CPAN Ratings
+
+L<http://cpanratings.perl.org/dist/Math-BigInt>
+
+=item * Search CPAN
+
+L<http://search.cpan.org/dist/Math-BigInt/>
+
+=item * CPAN Testers Matrix
+
+L<http://matrix.cpantesters.org/?dist=Math-BigInt>
+
+=item * The Bignum mailing list
+
+=over 4
+
+=item * Post to mailing list
+
+C<bignum at lists.scsys.co.uk>
+
+=item * View mailing list
+
+L<http://lists.scsys.co.uk/pipermail/bignum/>
+
+=item * Subscribe/Unsubscribe
+
+L<http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/bignum>
+
+=back
+
+=back
+
+=head1 LICENSE
+
+This program is free software; you may redistribute it and/or modify it under
+the same terms as Perl itself.
+
+=head1 SEE ALSO
+
+L<Math::BigFloat> and L<Math::BigInt> as well as the backends
+L<Math::BigInt::FastCalc>, L<Math::BigInt::GMP>, and L<Math::BigInt::Pari>.
+
+The pragmas L<bignum>, L<bigint> and L<bigrat> also might be of interest
+because they solve the autoupgrading/downgrading issue, at least partly.
+
+=head1 AUTHORS
+
+=over 4
+
+=item *
+
+Mark Biggar, overloaded interface by Ilya Zakharevich, 1996-2001.
+
+=item *
+
+Completely rewritten by Tels L<http://bloodgate.com> in 2001-2008.
+
+=item *
+
+Florian Ragwitz L<flora@cpan.org>, 2010.
+
+=item *
+
+Peter John Acklam, L<pjacklam@online.no>, 2011-.
+
+=back
+
+=cut
diff --git a/lib/5.24.1/Math/BigFloat/Trace.pm b/lib/5.24.1/Math/BigFloat/Trace.pm
new file mode 100644
index 00000000..634d9670
--- /dev/null
+++ b/lib/5.24.1/Math/BigFloat/Trace.pm
@@ -0,0 +1,58 @@
+#!perl
+
+package Math::BigFloat::Trace;
+
+require 5.006;
+use strict;
+use warnings;
+
+use Exporter;
+use Math::BigFloat;
+
+our ($PACKAGE, @EXPORT_OK, $accuracy, $precision, $round_mode, $div_scale);
+
+our @ISA = qw(Exporter Math::BigFloat);
+
+our $VERSION = '0.42_01';
+
+use overload;                   # inherit overload from BigFloat
+
+# Globals
+$accuracy = $precision = undef;
+$round_mode = 'even';
+$div_scale = 40;
+
+sub new {
+    my $proto = shift;
+    my $class = ref($proto) || $proto;
+
+    my $value = shift;
+    my $a = $accuracy;
+    $a = $_[0] if defined $_[0];
+    my $p = $precision;
+    $p = $_[1] if defined $_[1];
+    my $self = Math::BigFloat->new($value, $a, $p, $round_mode);
+
+    # remember, downgrading may return a BigInt, so don't meddle with class
+    # bless $self, $class;
+
+    print "MBF new '$value' => '$self' (", ref($self), ")";
+    return $self;
+}
+
+sub import {
+    print "MBF import ", join(' ', @_);
+    my $self = shift;
+
+    # we catch the constants, the rest goes go BigFloat
+    my @a = ();
+    foreach (@_) {
+        push @a, $_ if $_ ne ':constant';
+    }
+    overload::constant float => sub { $self->new(shift); };
+
+    Math::BigFloat->import(@a);                 # need it for subclasses
+#    $self->export_to_level(1,$self,@_);         # need this ?
+}
+
+1;
diff --git a/lib/5.24.1/Math/BigInt.pm b/lib/5.24.1/Math/BigInt.pm
new file mode 100644
index 00000000..a50b37e8
--- /dev/null
+++ b/lib/5.24.1/Math/BigInt.pm
@@ -0,0 +1,5733 @@
+package Math::BigInt;
+
+#
+# "Mike had an infinite amount to do and a negative amount of time in which
+# to do it." - Before and After
+#
+
+# The following hash values are used:
+#   value: unsigned int with actual value (as a Math::BigInt::Calc or similar)
+#   sign : +,-,NaN,+inf,-inf
+#   _a   : accuracy
+#   _p   : precision
+#   _f   : flags, used by MBF to flag parts of a float as untouchable
+
+# Remember not to take shortcuts ala $xs = $x->{value}; $CALC->foo($xs); since
+# underlying lib might change the reference!
+
+use 5.006001;
+use strict;
+use warnings;
+
+our $VERSION = '1.999715';
+$VERSION = eval $VERSION;
+
+our @ISA = qw(Exporter);
+our @EXPORT_OK = qw(objectify bgcd blcm);
+
+# _trap_inf and _trap_nan are internal and should never be accessed from the
+# outside
+our ($round_mode, $accuracy, $precision, $div_scale, $rnd_mode,
+     $upgrade, $downgrade, $_trap_nan, $_trap_inf);
+
+my $class = "Math::BigInt";
+
+# Inside overload, the first arg is always an object. If the original code had
+# it reversed (like $x = 2 * $y), then the third parameter is true.
+# In some cases (like add, $x = $x + 2 is the same as $x = 2 + $x) this makes
+# no difference, but in some cases it does.
+
+# For overloaded ops with only one argument we simple use $_[0]->copy() to
+# preserve the argument.
+
+# Thus inheritance of overload operators becomes possible and transparent for
+# our subclasses without the need to repeat the entire overload section there.
+
+# We register ops that are not registerable yet, so suppress warnings
+{ no warnings;
+use overload
+'='     =>      sub { $_[0]->copy(); },
+
+# some shortcuts for speed (assumes that reversed order of arguments is routed
+# to normal '+' and we thus can always modify first arg. If this is changed,
+# this breaks and must be adjusted.)
+'+='    =>      sub { $_[0]->badd($_[1]); },
+'-='    =>      sub { $_[0]->bsub($_[1]); },
+'*='    =>      sub { $_[0]->bmul($_[1]); },
+'/='    =>      sub { scalar $_[0]->bdiv($_[1]); },
+'%='    =>      sub { $_[0]->bmod($_[1]); },
+'^='    =>      sub { $_[0]->bxor($_[1]); },
+'&='    =>      sub { $_[0]->band($_[1]); },
+'|='    =>      sub { $_[0]->bior($_[1]); },
+
+'**='   =>      sub { $_[0]->bpow($_[1]); },
+'<<='   =>      sub { $_[0]->blsft($_[1]); },
+'>>='   =>      sub { $_[0]->brsft($_[1]); },
+
+# not supported by Perl yet
+'..'    =>      \&_pointpoint,
+
+'<=>'   =>      sub { my $rc = $_[2] ?
+                      ref($_[0])->bcmp($_[1],$_[0]) :
+                      $_[0]->bcmp($_[1]);
+                      $rc = 1 unless defined $rc;
+                      $rc <=> 0;
+                },
+# we need '>=' to get things like "1 >= NaN" right:
+'>='    =>      sub { my $rc = $_[2] ?
+                      ref($_[0])->bcmp($_[1],$_[0]) :
+                      $_[0]->bcmp($_[1]);
+                      # if there was a NaN involved, return false
+                      return '' unless defined $rc;
+                      $rc >= 0;
+                },
+'cmp'   =>      sub {
+         $_[2] ?
+               "$_[1]" cmp $_[0]->bstr() :
+               $_[0]->bstr() cmp "$_[1]" },
+
+'cos'   =>      sub { $_[0]->copy->bcos(); },
+'sin'   =>      sub { $_[0]->copy->bsin(); },
+'atan2' =>      sub { $_[2] ?
+                        ref($_[0])->new($_[1])->batan2($_[0]) :
+                        $_[0]->copy()->batan2($_[1]) },
+
+# are not yet overloadable
+#'hex'  =>      sub { print "hex"; $_[0]; },
+#'oct'  =>      sub { print "oct"; $_[0]; },
+
+# log(N) is log(N, e), where e is Euler's number
+'log'   =>      sub { $_[0]->copy()->blog(); },
+'exp'   =>      sub { $_[0]->copy()->bexp($_[1]); },
+'int'   =>      sub { $_[0]->copy(); },
+'neg'   =>      sub { $_[0]->copy()->bneg(); },
+'abs'   =>      sub { $_[0]->copy()->babs(); },
+'sqrt'  =>      sub { $_[0]->copy()->bsqrt(); },
+'~'     =>      sub { $_[0]->copy()->bnot(); },
+
+# for subtract it's a bit tricky to not modify b: b-a => -a+b
+'-'     =>      sub { my $c = $_[0]->copy; $_[2] ?
+                        $c->bneg()->badd( $_[1]) :
+                        $c->bsub( $_[1]) },
+'+'     =>      sub { $_[0]->copy()->badd($_[1]); },
+'*'     =>      sub { $_[0]->copy()->bmul($_[1]); },
+
+'/'     =>      sub {
+   $_[2] ? ref($_[0])->new($_[1])->bdiv($_[0]) : $_[0]->copy->bdiv($_[1]);
+  },
+'%'     =>      sub {
+   $_[2] ? ref($_[0])->new($_[1])->bmod($_[0]) : $_[0]->copy->bmod($_[1]);
+  },
+'**'    =>      sub {
+   $_[2] ? ref($_[0])->new($_[1])->bpow($_[0]) : $_[0]->copy->bpow($_[1]);
+  },
+'<<'    =>      sub {
+   $_[2] ? ref($_[0])->new($_[1])->blsft($_[0]) : $_[0]->copy->blsft($_[1]);
+  },
+'>>'    =>      sub {
+   $_[2] ? ref($_[0])->new($_[1])->brsft($_[0]) : $_[0]->copy->brsft($_[1]);
+  },
+'&'     =>      sub {
+   $_[2] ? ref($_[0])->new($_[1])->band($_[0]) : $_[0]->copy->band($_[1]);
+  },
+'|'     =>      sub {
+   $_[2] ? ref($_[0])->new($_[1])->bior($_[0]) : $_[0]->copy->bior($_[1]);
+  },
+'^'     =>      sub {
+   $_[2] ? ref($_[0])->new($_[1])->bxor($_[0]) : $_[0]->copy->bxor($_[1]);
+  },
+
+# can modify arg of ++ and --, so avoid a copy() for speed, but don't
+# use $_[0]->bone(), it would modify $_[0] to be 1!
+'++'    =>      sub { $_[0]->binc() },
+'--'    =>      sub { $_[0]->bdec() },
+
+# if overloaded, O(1) instead of O(N) and twice as fast for small numbers
+'bool'  =>      sub {
+  # this kludge is needed for perl prior 5.6.0 since returning 0 here fails :-/
+  # v5.6.1 dumps on this: return !$_[0]->is_zero() || undef;                :-(
+  my $t = undef;
+  $t = 1 if !$_[0]->is_zero();
+  $t;
+  },
+
+# the original qw() does not work with the TIESCALAR below, why?
+# Order of arguments insignificant
+'""' => sub { $_[0]->bstr(); },
+'0+' => sub { $_[0]->numify(); }
+;
+} # no warnings scope
+
+##############################################################################
+# global constants, flags and accessory
+
+# These vars are public, but their direct usage is not recommended, use the
+# accessor methods instead
+
+$round_mode = 'even'; # one of 'even', 'odd', '+inf', '-inf', 'zero', 'trunc' or 'common'
+$accuracy   = undef;
+$precision  = undef;
+$div_scale  = 40;
+
+$upgrade = undef;                       # default is no upgrade
+$downgrade = undef;                     # default is no downgrade
+
+# These are internally, and not to be used from the outside at all
+
+$_trap_nan = 0;                         # are NaNs ok? set w/ config()
+$_trap_inf = 0;                         # are infs ok? set w/ config()
+my $nan = 'NaN';                        # constants for easier life
+
+my $CALC = 'Math::BigInt::Calc';        # module to do the low level math
+                                        # default is Calc.pm
+my $IMPORT = 0;                         # was import() called yet?
+                                        # used to make require work
+my %WARN;                               # warn only once for low-level libs
+my %CAN;                                # cache for $CALC->can(...)
+my %CALLBACKS;                          # callbacks to notify on lib loads
+my $EMU_LIB = 'Math/BigInt/CalcEmu.pm'; # emulate low-level math
+
+##############################################################################
+# the old code had $rnd_mode, so we need to support it, too
+
+$rnd_mode   = 'even';
+sub TIESCALAR  { my ($class) = @_; bless \$round_mode, $class; }
+sub FETCH      { return $round_mode; }
+sub STORE      { $rnd_mode = $_[0]->round_mode($_[1]); }
+
+BEGIN
+  {
+  # tie to enable $rnd_mode to work transparently
+  tie $rnd_mode, 'Math::BigInt';
+
+  # set up some handy alias names
+  *as_int = \&as_number;
+  *is_pos = \&is_positive;
+  *is_neg = \&is_negative;
+  }
+
+##############################################################################
+
+sub round_mode
+  {
+  no strict 'refs';
+  # make Class->round_mode() work
+  my $self = shift;
+  my $class = ref($self) || $self || __PACKAGE__;
+  if (defined $_[0])
+    {
+    my $m = shift;
+    if ($m !~ /^(even|odd|\+inf|\-inf|zero|trunc|common)$/)
+      {
+      require Carp; Carp::croak ("Unknown round mode '$m'");
+      }
+    return ${"${class}::round_mode"} = $m;
+    }
+  ${"${class}::round_mode"};
+  }
+
+sub upgrade
+  {
+  no strict 'refs';
+  # make Class->upgrade() work
+  my $self = shift;
+  my $class = ref($self) || $self || __PACKAGE__;
+  # need to set new value?
+  if (@_ > 0)
+    {
+    return ${"${class}::upgrade"} = $_[0];
+    }
+  ${"${class}::upgrade"};
+  }
+
+sub downgrade
+  {
+  no strict 'refs';
+  # make Class->downgrade() work
+  my $self = shift;
+  my $class = ref($self) || $self || __PACKAGE__;
+  # need to set new value?
+  if (@_ > 0)
+    {
+    return ${"${class}::downgrade"} = $_[0];
+    }
+  ${"${class}::downgrade"};
+  }
+
+sub div_scale
+  {
+  no strict 'refs';
+  # make Class->div_scale() work
+  my $self = shift;
+  my $class = ref($self) || $self || __PACKAGE__;
+  if (defined $_[0])
+    {
+    if ($_[0] < 0)
+      {
+      require Carp; Carp::croak ('div_scale must be greater than zero');
+      }
+    ${"${class}::div_scale"} = $_[0];
+    }
+  ${"${class}::div_scale"};
+  }
+
+sub accuracy
+  {
+  # $x->accuracy($a);           ref($x) $a
+  # $x->accuracy();             ref($x)
+  # Class->accuracy();          class
+  # Class->accuracy($a);        class $a
+
+  my $x = shift;
+  my $class = ref($x) || $x || __PACKAGE__;
+
+  no strict 'refs';
+  # need to set new value?
+  if (@_ > 0)
+    {
+    my $a = shift;
+    # convert objects to scalars to avoid deep recursion. If object doesn't
+    # have numify(), then hopefully it will have overloading for int() and
+    # boolean test without wandering into a deep recursion path...
+    $a = $a->numify() if ref($a) && $a->can('numify');
+
+    if (defined $a)
+      {
+      # also croak on non-numerical
+      if (!$a || $a <= 0)
+        {
+        require Carp;
+        Carp::croak ('Argument to accuracy must be greater than zero');
+        }
+      if (int($a) != $a)
+        {
+        require Carp;
+        Carp::croak ('Argument to accuracy must be an integer');
+        }
+      }
+    if (ref($x))
+      {
+      # $object->accuracy() or fallback to global
+      $x->bround($a) if $a;             # not for undef, 0
+      $x->{_a} = $a;                    # set/overwrite, even if not rounded
+      delete $x->{_p};                  # clear P
+      $a = ${"${class}::accuracy"} unless defined $a;   # proper return value
+      }
+    else
+      {
+      ${"${class}::accuracy"} = $a;     # set global A
+      ${"${class}::precision"} = undef; # clear global P
+      }
+    return $a;                          # shortcut
+    }
+
+  my $a;
+  # $object->accuracy() or fallback to global
+  $a = $x->{_a} if ref($x);
+  # but don't return global undef, when $x's accuracy is 0!
+  $a = ${"${class}::accuracy"} if !defined $a;
+  $a;
+  }
+
+sub precision
+  {
+  # $x->precision($p);          ref($x) $p
+  # $x->precision();            ref($x)
+  # Class->precision();         class
+  # Class->precision($p);       class $p
+
+  my $x = shift;
+  my $class = ref($x) || $x || __PACKAGE__;
+
+  no strict 'refs';
+  if (@_ > 0)
+    {
+    my $p = shift;
+    # convert objects to scalars to avoid deep recursion. If object doesn't
+    # have numify(), then hopefully it will have overloading for int() and
+    # boolean test without wandering into a deep recursion path...
+    $p = $p->numify() if ref($p) && $p->can('numify');
+    if ((defined $p) && (int($p) != $p))
+      {
+      require Carp; Carp::croak ('Argument to precision must be an integer');
+      }
+    if (ref($x))
+      {
+      # $object->precision() or fallback to global
+      $x->bfround($p) if $p;            # not for undef, 0
+      $x->{_p} = $p;                    # set/overwrite, even if not rounded
+      delete $x->{_a};                  # clear A
+      $p = ${"${class}::precision"} unless defined $p;  # proper return value
+      }
+    else
+      {
+      ${"${class}::precision"} = $p;    # set global P
+      ${"${class}::accuracy"} = undef;  # clear global A
+      }
+    return $p;                          # shortcut
+    }
+
+  my $p;
+  # $object->precision() or fallback to global
+  $p = $x->{_p} if ref($x);
+  # but don't return global undef, when $x's precision is 0!
+  $p = ${"${class}::precision"} if !defined $p;
+  $p;
+  }
+
+sub config
+  {
+  # return (or set) configuration data as hash ref
+  my $class = shift || 'Math::BigInt';
+
+  no strict 'refs';
+  if (@_ > 1 || (@_ == 1 && (ref($_[0]) eq 'HASH')))
+    {
+    # try to set given options as arguments from hash
+
+    my $args = $_[0];
+    if (ref($args) ne 'HASH')
+      {
+      $args = { @_ };
+      }
+    # these values can be "set"
+    my $set_args = {};
+    foreach my $key (
+     qw/trap_inf trap_nan
+        upgrade downgrade precision accuracy round_mode div_scale/
+     )
+      {
+      $set_args->{$key} = $args->{$key} if exists $args->{$key};
+      delete $args->{$key};
+      }
+    if (keys %$args > 0)
+      {
+      require Carp;
+      Carp::croak ("Illegal key(s) '",
+       join("','",keys %$args),"' passed to $class\->config()");
+      }
+    foreach my $key (keys %$set_args)
+      {
+      if ($key =~ /^trap_(inf|nan)\z/)
+        {
+        ${"${class}::_trap_$1"} = ($set_args->{"trap_$1"} ? 1 : 0);
+        next;
+        }
+      # use a call instead of just setting the $variable to check argument
+      $class->$key($set_args->{$key});
+      }
+    }
+
+  # now return actual configuration
+
+  my $cfg = {
+    lib => $CALC,
+    lib_version => ${"${CALC}::VERSION"},
+    class => $class,
+    trap_nan => ${"${class}::_trap_nan"},
+    trap_inf => ${"${class}::_trap_inf"},
+    version => ${"${class}::VERSION"},
+    };
+  foreach my $key (qw/
+     upgrade downgrade precision accuracy round_mode div_scale
+     /)
+    {
+    $cfg->{$key} = ${"${class}::$key"};
+    };
+  if (@_ == 1 && (ref($_[0]) ne 'HASH'))
+    {
+    # calls of the style config('lib') return just this value
+    return $cfg->{$_[0]};
+    }
+  $cfg;
+  }
+
+sub _scale_a
+  {
+  # select accuracy parameter based on precedence,
+  # used by bround() and bfround(), may return undef for scale (means no op)
+  my ($x,$scale,$mode) = @_;
+
+  $scale = $x->{_a} unless defined $scale;
+
+  no strict 'refs';
+  my $class = ref($x);
+
+  $scale = ${ $class . '::accuracy' } unless defined $scale;
+  $mode = ${ $class . '::round_mode' } unless defined $mode;
+
+  if (defined $scale)
+    {
+    $scale = $scale->can('numify') ? $scale->numify()
+                                   : "$scale" if ref($scale);
+    $scale = int($scale);
+    }
+
+  ($scale,$mode);
+  }
+
+sub _scale_p
+  {
+  # select precision parameter based on precedence,
+  # used by bround() and bfround(), may return undef for scale (means no op)
+  my ($x,$scale,$mode) = @_;
+
+  $scale = $x->{_p} unless defined $scale;
+
+  no strict 'refs';
+  my $class = ref($x);
+
+  $scale = ${ $class . '::precision' } unless defined $scale;
+  $mode = ${ $class . '::round_mode' } unless defined $mode;
+
+  if (defined $scale)
+    {
+    $scale = $scale->can('numify') ? $scale->numify()
+                                   : "$scale" if ref($scale);
+    $scale = int($scale);
+    }
+
+  ($scale,$mode);
+  }
+
+##############################################################################
+# constructors
+
+sub copy {
+    my $self    = shift;
+    my $selfref = ref $self;
+    my $class   = $selfref || $self;
+
+    # If called as a class method, the object to copy is the next argument.
+
+    $self = shift() unless $selfref;
+
+    my $copy = bless {}, $class;
+
+    $copy->{sign}  = $self->{sign};
+    $copy->{value} = $CALC->_copy($self->{value});
+    $copy->{_a}    = $self->{_a} if exists $self->{_a};
+    $copy->{_p}    = $self->{_p} if exists $self->{_p};
+
+    return $copy;
+}
+
+sub new {
+    # Create a new Math::BigInt object from a string or another Math::BigInt
+    # object. See hash keys documented at top.
+
+    # The argument could be an object, so avoid ||, && etc. on it. This would
+    # cause costly overloaded code to be called. The only allowed ops are ref()
+    # and defined.
+
+    my $self    = shift;
+    my $selfref = ref $self;
+    my $class   = $selfref || $self;
+
+    my ($wanted, $a, $p, $r) = @_;
+
+    # If called as a class method, initialize a new object.
+
+    $self = bless {}, $class unless $selfref;
+
+    unless (defined $wanted) {
+        require Carp;
+        Carp::carp("Use of uninitialized value in new");
+        return $self->bzero($a, $p, $r);
+    }
+
+    if (ref($wanted) && $wanted->isa($class)) {         # MBI or subclass
+        # Using "$copy = $wanted -> copy()" here fails some tests. Fixme!
+        my $copy = $class -> copy($wanted);
+        if ($selfref) {
+            %$self = %$copy;
+        } else {
+            $self = $copy;
+        }
+        return $self;
+    }
+
+    $class->import() if $IMPORT == 0;           # make require work
+
+    # Shortcut for non-zero scalar integers with no non-zero exponent.
+
+    if (!ref($wanted) &&
+        $wanted =~ / ^
+                     ([+-]?)            # optional sign
+                     ([1-9][0-9]*)      # non-zero significand
+                     (\.0*)?            # ... with optional zero fraction
+                     ([Ee][+-]?0+)?     # optional zero exponent
+                     \z
+                   /x)
+    {
+        my $sgn = $1;
+        my $abs = $2;
+        $self->{sign} = $sgn || '+';
+        $self->{value} = $CALC->_new($abs);
+
+        no strict 'refs';
+        if (defined($a) || defined($p)
+            || defined(${"${class}::precision"})
+            || defined(${"${class}::accuracy"}))
+        {
+            $self->round($a, $p, $r)
+              unless @_ == 4 && !defined $a && !defined $p;
+        }
+
+        return $self;
+    }
+
+    # Handle Infs.
+
+    if ($wanted =~ /^\s*([+-]?)inf(inity)?\s*\z/i) {
+        my $sgn = $1 || '+';
+        $self->{sign} = $sgn . 'inf';   # set a default sign for bstr()
+        return $self->binf($sgn);
+    }
+
+    # Handle explicit NaNs (not the ones returned due to invalid input).
+
+    if ($wanted =~ /^\s*([+-]?)nan\s*\z/i) {
+        return $self->bnan();
+    }
+
+    if ($wanted =~ /^\s*[+-]?0[Xx]/) {
+        return $class -> from_hex($wanted);
+    }
+
+    if ($wanted =~ /^\s*[+-]?0[Bb]/) {
+        return $class -> from_bin($wanted);
+    }
+
+    # Split string into mantissa, exponent, integer, fraction, value, and sign.
+    my ($mis, $miv, $mfv, $es, $ev) = _split($wanted);
+    if (!ref $mis) {
+        if ($_trap_nan) {
+            require Carp; Carp::croak("$wanted is not a number in $class");
+        }
+        $self->{value} = $CALC->_zero();
+        $self->{sign} = $nan;
+        return $self;
+    }
+
+    if (!ref $miv) {
+        # _from_hex or _from_bin
+        $self->{value} = $mis->{value};
+        $self->{sign} = $mis->{sign};
+        return $self;   # throw away $mis
+    }
+
+    # Make integer from mantissa by adjusting exponent, then convert to a
+    # Math::BigInt.
+    $self->{sign} = $$mis;           # store sign
+    $self->{value} = $CALC->_zero(); # for all the NaN cases
+    my $e = int("$$es$$ev");         # exponent (avoid recursion)
+    if ($e > 0) {
+        my $diff = $e - CORE::length($$mfv);
+        if ($diff < 0) {         # Not integer
+            if ($_trap_nan) {
+                require Carp; Carp::croak("$wanted not an integer in $class");
+            }
+            #print "NOI 1\n";
+            return $upgrade->new($wanted, $a, $p, $r) if defined $upgrade;
+            $self->{sign} = $nan;
+        } else {                 # diff >= 0
+            # adjust fraction and add it to value
+            #print "diff > 0 $$miv\n";
+            $$miv = $$miv . ($$mfv . '0' x $diff);
+        }
+    }
+
+    else {
+        if ($$mfv ne '') {       # e <= 0
+            # fraction and negative/zero E => NOI
+            if ($_trap_nan) {
+                require Carp; Carp::croak("$wanted not an integer in $class");
+            }
+            #print "NOI 2 \$\$mfv '$$mfv'\n";
+            return $upgrade->new($wanted, $a, $p, $r) if defined $upgrade;
+            $self->{sign} = $nan;
+        } elsif ($e < 0) {
+            # xE-y, and empty mfv
+            # Split the mantissa at the decimal point. E.g., if
+            # $$miv = 12345 and $e = -2, then $frac = 45 and $$miv = 123.
+
+            my $frac = substr($$miv, $e); # $frac is fraction part
+            substr($$miv, $e) = "";       # $$miv is now integer part
+
+            if ($frac =~ /[^0]/) {
+                if ($_trap_nan) {
+                    require Carp; Carp::croak("$wanted not an integer in $class");
+                }
+                #print "NOI 3\n";
+                return $upgrade->new($wanted, $a, $p, $r) if defined $upgrade;
+                $self->{sign} = $nan;
+            }
+        }
+    }
+
+    unless ($self->{sign} eq $nan) {
+        $self->{sign} = '+' if $$miv eq '0';            # normalize -0 => +0
+        $self->{value} = $CALC->_new($$miv) if $self->{sign} =~ /^[+-]$/;
+    }
+
+    # If any of the globals are set, use them to round, and store them inside
+    # $self. Do not round for new($x, undef, undef) since that is used by MBF
+    # to signal no rounding.
+
+    $self->round($a, $p, $r) unless @_ == 4 && !defined $a && !defined $p;
+    $self;
+}
+
+sub bnan
+  {
+  # create a bigint 'NaN', if given a BigInt, set it to 'NaN'
+  my $self = shift;
+  $self = $class if !defined $self;
+  if (!ref($self))
+    {
+    my $c = $self; $self = {}; bless $self, $c;
+    }
+  no strict 'refs';
+  if (${"${class}::_trap_nan"})
+    {
+    require Carp;
+    Carp::croak ("Tried to set $self to NaN in $class\::bnan()");
+    }
+  $self->import() if $IMPORT == 0;              # make require work
+  return if $self->modify('bnan');
+  if ($self->can('_bnan'))
+    {
+    # use subclass to initialize
+    $self->_bnan();
+    }
+  else
+    {
+    # otherwise do our own thing
+    $self->{value} = $CALC->_zero();
+    }
+  $self->{sign} = $nan;
+  delete $self->{_a}; delete $self->{_p};       # rounding NaN is silly
+  $self;
+  }
+
+sub binf
+  {
+  # create a bigint '+-inf', if given a BigInt, set it to '+-inf'
+  # the sign is either '+', or if given, used from there
+  my $self = shift;
+  my $sign = shift; $sign = '+' if !defined $sign || $sign !~ /^-(inf)?$/;
+  $self = $class if !defined $self;
+  if (!ref($self))
+    {
+    my $c = $self; $self = {}; bless $self, $c;
+    }
+  no strict 'refs';
+  if (${"${class}::_trap_inf"})
+    {
+    require Carp;
+    Carp::croak ("Tried to set $self to +-inf in $class\::binf()");
+    }
+  $self->import() if $IMPORT == 0;              # make require work
+  return if $self->modify('binf');
+  if ($self->can('_binf'))
+    {
+    # use subclass to initialize
+    $self->_binf();
+    }
+  else
+    {
+    # otherwise do our own thing
+    $self->{value} = $CALC->_zero();
+    }
+  $sign = $sign . 'inf' if $sign !~ /inf$/;     # - => -inf
+  $self->{sign} = $sign;
+  ($self->{_a},$self->{_p}) = @_;               # take over requested rounding
+  $self;
+  }
+
+sub bzero
+  {
+  # create a bigint '+0', if given a BigInt, set it to 0
+  my $self = shift;
+  $self = __PACKAGE__ if !defined $self;
+
+  if (!ref($self))
+    {
+    my $c = $self; $self = {}; bless $self, $c;
+    }
+  $self->import() if $IMPORT == 0;              # make require work
+  return if $self->modify('bzero');
+
+  if ($self->can('_bzero'))
+    {
+    # use subclass to initialize
+    $self->_bzero();
+    }
+  else
+    {
+    # otherwise do our own thing
+    $self->{value} = $CALC->_zero();
+    }
+  $self->{sign} = '+';
+  if (@_ > 0)
+    {
+    if (@_ > 3)
+      {
+      # call like: $x->bzero($a,$p,$r,$y);
+      ($self,$self->{_a},$self->{_p}) = $self->_find_round_parameters(@_);
+      }
+    else
+      {
+      $self->{_a} = $_[0]
+       if ( (!defined $self->{_a}) || (defined $_[0] && $_[0] > $self->{_a}));
+      $self->{_p} = $_[1]
+       if ( (!defined $self->{_p}) || (defined $_[1] && $_[1] > $self->{_p}));
+      }
+    }
+  $self;
+  }
+
+sub bone
+  {
+  # create a bigint '+1' (or -1 if given sign '-'),
+  # if given a BigInt, set it to +1 or -1, respectively
+  my $self = shift;
+  my $sign = shift; $sign = '+' if !defined $sign || $sign ne '-';
+  $self = $class if !defined $self;
+
+  if (!ref($self))
+    {
+    my $c = $self; $self = {}; bless $self, $c;
+    }
+  $self->import() if $IMPORT == 0;              # make require work
+  return if $self->modify('bone');
+
+  if ($self->can('_bone'))
+    {
+    # use subclass to initialize
+    $self->_bone();
+    }
+  else
+    {
+    # otherwise do our own thing
+    $self->{value} = $CALC->_one();
+    }
+  $self->{sign} = $sign;
+  if (@_ > 0)
+    {
+    if (@_ > 3)
+      {
+      # call like: $x->bone($sign,$a,$p,$r,$y);
+      ($self,$self->{_a},$self->{_p}) = $self->_find_round_parameters(@_);
+      }
+    else
+      {
+      # call like: $x->bone($sign,$a,$p,$r);
+      $self->{_a} = $_[0]
+       if ( (!defined $self->{_a}) || (defined $_[0] && $_[0] > $self->{_a}));
+      $self->{_p} = $_[1]
+       if ( (!defined $self->{_p}) || (defined $_[1] && $_[1] > $self->{_p}));
+      }
+    }
+  $self;
+  }
+
+##############################################################################
+# string conversion
+
+sub bsstr
+  {
+  # (ref to BFLOAT or num_str ) return num_str
+  # Convert number from internal format to scientific string format.
+  # internal format is always normalized (no leading zeros, "-0E0" => "+0E0")
+  my ($self,$x) = ref($_[0]) ? (undef,$_[0]) : objectify(1,@_);
+
+  if ($x->{sign} !~ /^[+-]$/)
+    {
+    return $x->{sign} unless $x->{sign} eq '+inf';      # -inf, NaN
+    return 'inf';                                       # +inf
+    }
+  my ($m,$e) = $x->parts();
+  #$m->bstr() . 'e+' . $e->bstr();      # e can only be positive in BigInt
+  # 'e+' because E can only be positive in BigInt
+  $m->bstr() . 'e+' . $CALC->_str($e->{value});
+  }
+
+sub bstr
+  {
+  # make a string from bigint object
+  my ($self,$x) = ref($_[0]) ? (undef,$_[0]) : objectify(1,@_);
+
+  if ($x->{sign} !~ /^[+-]$/)
+    {
+    return $x->{sign} unless $x->{sign} eq '+inf';      # -inf, NaN
+    return 'inf';                                       # +inf
+    }
+  my $es = ''; $es = $x->{sign} if $x->{sign} eq '-';
+  $es.$CALC->_str($x->{value});
+  }
+
+sub numify
+  {
+  # Make a Perl scalar number from a Math::BigInt object.
+  my $x = shift; $x = $class->new($x) unless ref $x;
+
+  if ($x -> is_nan()) {
+      require Math::Complex;
+      my $inf = Math::Complex::Inf();
+      return $inf - $inf;
+  }
+
+  if ($x -> is_inf()) {
+      require Math::Complex;
+      my $inf = Math::Complex::Inf();
+      return $x -> is_negative() ? -$inf : $inf;
+  }
+
+  my $num = 0 + $CALC->_num($x->{value});
+  return $x->{sign} eq '-' ? -$num : $num;
+  }
+
+##############################################################################
+# public stuff (usually prefixed with "b")
+
+sub sign
+  {
+  # return the sign of the number: +/-/-inf/+inf/NaN
+  my ($self,$x) = ref($_[0]) ? (undef,$_[0]) : objectify(1,@_);
+
+  $x->{sign};
+  }
+
+sub _find_round_parameters {
+    # After any operation or when calling round(), the result is rounded by
+    # regarding the A & P from arguments, local parameters, or globals.
+
+    # !!!!!!! If you change this, remember to change round(), too! !!!!!!!!!!
+
+    # This procedure finds the round parameters, but it is for speed reasons
+    # duplicated in round. Otherwise, it is tested by the testsuite and used
+    # by bdiv().
+
+    # returns ($self) or ($self,$a,$p,$r) - sets $self to NaN of both A and P
+    # were requested/defined (locally or globally or both)
+
+    my ($self, $a, $p, $r, @args) = @_;
+    # $a accuracy, if given by caller
+    # $p precision, if given by caller
+    # $r round_mode, if given by caller
+    # @args all 'other' arguments (0 for unary, 1 for binary ops)
+
+    my $class = ref($self);       # find out class of argument(s)
+    no strict 'refs';
+
+    # convert to normal scalar for speed and correctness in inner parts
+    $a = $a->can('numify') ? $a->numify() : "$a" if defined $a && ref($a);
+    $p = $p->can('numify') ? $p->numify() : "$p" if defined $p && ref($p);
+
+    # now pick $a or $p, but only if we have got "arguments"
+    if (!defined $a) {
+        foreach ($self, @args) {
+            # take the defined one, or if both defined, the one that is smaller
+            $a = $_->{_a} if (defined $_->{_a}) && (!defined $a || $_->{_a} < $a);
+        }
+    }
+    if (!defined $p) {
+        # even if $a is defined, take $p, to signal error for both defined
+        foreach ($self, @args) {
+            # take the defined one, or if both defined, the one that is bigger
+            # -2 > -3, and 3 > 2
+            $p = $_->{_p} if (defined $_->{_p}) && (!defined $p || $_->{_p} > $p);
+        }
+    }
+
+    # if still none defined, use globals (#2)
+    $a = ${"$class\::accuracy"}  unless defined $a;
+    $p = ${"$class\::precision"} unless defined $p;
+
+    # A == 0 is useless, so undef it to signal no rounding
+    $a = undef if defined $a && $a == 0;
+
+    # no rounding today?
+    return ($self) unless defined $a || defined $p; # early out
+
+    # set A and set P is an fatal error
+    return ($self->bnan()) if defined $a && defined $p; # error
+
+    $r = ${"$class\::round_mode"} unless defined $r;
+    if ($r !~ /^(even|odd|[+-]inf|zero|trunc|common)$/) {
+        require Carp; Carp::croak ("Unknown round mode '$r'");
+    }
+
+    $a = int($a) if defined $a;
+    $p = int($p) if defined $p;
+
+    ($self, $a, $p, $r);
+}
+
+sub round {
+    # Round $self according to given parameters, or given second argument's
+    # parameters or global defaults
+
+    # for speed reasons, _find_round_parameters is embedded here:
+
+    my ($self, $a, $p, $r, @args) = @_;
+    # $a accuracy, if given by caller
+    # $p precision, if given by caller
+    # $r round_mode, if given by caller
+    # @args all 'other' arguments (0 for unary, 1 for binary ops)
+
+    my $class = ref($self);       # find out class of argument(s)
+    no strict 'refs';
+
+    # now pick $a or $p, but only if we have got "arguments"
+    if (!defined $a) {
+        foreach ($self, @args) {
+            # take the defined one, or if both defined, the one that is smaller
+            $a = $_->{_a} if (defined $_->{_a}) && (!defined $a || $_->{_a} < $a);
+        }
+    }
+    if (!defined $p) {
+        # even if $a is defined, take $p, to signal error for both defined
+        foreach ($self, @args) {
+            # take the defined one, or if both defined, the one that is bigger
+            # -2 > -3, and 3 > 2
+            $p = $_->{_p} if (defined $_->{_p}) && (!defined $p || $_->{_p} > $p);
+        }
+    }
+
+    # if still none defined, use globals (#2)
+    $a = ${"$class\::accuracy"}  unless defined $a;
+    $p = ${"$class\::precision"} unless defined $p;
+
+    # A == 0 is useless, so undef it to signal no rounding
+    $a = undef if defined $a && $a == 0;
+
+    # no rounding today?
+    return $self unless defined $a || defined $p; # early out
+
+    # set A and set P is an fatal error
+    return $self->bnan() if defined $a && defined $p;
+
+    $r = ${"$class\::round_mode"} unless defined $r;
+    if ($r !~ /^(even|odd|[+-]inf|zero|trunc|common)$/) {
+        require Carp; Carp::croak ("Unknown round mode '$r'");
+    }
+
+    # now round, by calling either bround or bfround:
+    if (defined $a) {
+        $self->bround(int($a), $r) if !defined $self->{_a} || $self->{_a} >= $a;
+    } else {                  # both can't be undefined due to early out
+        $self->bfround(int($p), $r) if !defined $self->{_p} || $self->{_p} <= $p;
+    }
+
+    # bround() or bfround() already called bnorm() if nec.
+    $self;
+}
+
+sub bnorm
+  {
+  # (numstr or BINT) return BINT
+  # Normalize number -- no-op here
+  my ($self,$x) = ref($_[0]) ? (undef,$_[0]) : objectify(1,@_);
+  $x;
+  }
+
+sub babs
+  {
+  # (BINT or num_str) return BINT
+  # make number absolute, or return absolute BINT from string
+  my ($self,$x) = ref($_[0]) ? (undef,$_[0]) : objectify(1,@_);
+
+  return $x if $x->modify('babs');
+  # post-normalized abs for internal use (does nothing for NaN)
+  $x->{sign} =~ s/^-/+/;
+  $x;
+  }
+
+sub bsgn {
+    # Signum function.
+
+    my $self = shift;
+
+    return $self if $self->modify('bsgn');
+
+    return $self -> bone("+") if $self -> is_pos();
+    return $self -> bone("-") if $self -> is_neg();
+    return $self;               # zero or NaN
+}
+
+sub bneg
+  {
+  # (BINT or num_str) return BINT
+  # negate number or make a negated number from string
+  my ($self,$x) = ref($_[0]) ? (undef,$_[0]) : objectify(1,@_);
+
+  return $x if $x->modify('bneg');
+
+  # for +0 do not negate (to have always normalized +0). Does nothing for 'NaN'
+  $x->{sign} =~ tr/+-/-+/ unless ($x->{sign} eq '+' && $CALC->_is_zero($x->{value}));
+  $x;
+  }
+
+sub bcmp
+  {
+  # Compares 2 values.  Returns one of undef, <0, =0, >0. (suitable for sort)
+  # (BINT or num_str, BINT or num_str) return cond_code
+
+  # set up parameters
+  my ($self,$x,$y) = (ref($_[0]),@_);
+
+  # objectify is costly, so avoid it
+  if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1])))
+    {
+    ($self,$x,$y) = objectify(2,@_);
+    }
+
+  return $upgrade->bcmp($x,$y) if defined $upgrade &&
+    ((!$x->isa($self)) || (!$y->isa($self)));
+
+  if (($x->{sign} !~ /^[+-]$/) || ($y->{sign} !~ /^[+-]$/))
+    {
+    # handle +-inf and NaN
+    return undef if (($x->{sign} eq $nan) || ($y->{sign} eq $nan));
+    return 0 if $x->{sign} eq $y->{sign} && $x->{sign} =~ /^[+-]inf$/;
+    return +1 if $x->{sign} eq '+inf';
+    return -1 if $x->{sign} eq '-inf';
+    return -1 if $y->{sign} eq '+inf';
+    return +1;
+    }
+  # check sign for speed first
+  return 1 if $x->{sign} eq '+' && $y->{sign} eq '-';   # does also 0 <=> -y
+  return -1 if $x->{sign} eq '-' && $y->{sign} eq '+';  # does also -x <=> 0
+
+  # have same sign, so compare absolute values.  Don't make tests for zero
+  # here because it's actually slower than testing in Calc (especially w/ Pari
+  # et al)
+
+  # post-normalized compare for internal use (honors signs)
+  if ($x->{sign} eq '+')
+    {
+    # $x and $y both > 0
+    return $CALC->_acmp($x->{value},$y->{value});
+    }
+
+  # $x && $y both < 0
+  $CALC->_acmp($y->{value},$x->{value});        # swapped acmp (lib returns 0,1,-1)
+  }
+
+sub bacmp
+  {
+  # Compares 2 values, ignoring their signs.
+  # Returns one of undef, <0, =0, >0. (suitable for sort)
+  # (BINT, BINT) return cond_code
+
+  # set up parameters
+  my ($self,$x,$y) = (ref($_[0]),@_);
+  # objectify is costly, so avoid it
+  if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1])))
+    {
+    ($self,$x,$y) = objectify(2,@_);
+    }
+
+  return $upgrade->bacmp($x,$y) if defined $upgrade &&
+    ((!$x->isa($self)) || (!$y->isa($self)));
+
+  if (($x->{sign} !~ /^[+-]$/) || ($y->{sign} !~ /^[+-]$/))
+    {
+    # handle +-inf and NaN
+    return undef if (($x->{sign} eq $nan) || ($y->{sign} eq $nan));
+    return 0 if $x->{sign} =~ /^[+-]inf$/ && $y->{sign} =~ /^[+-]inf$/;
+    return 1 if $x->{sign} =~ /^[+-]inf$/ && $y->{sign} !~ /^[+-]inf$/;
+    return -1;
+    }
+  $CALC->_acmp($x->{value},$y->{value});        # lib does only 0,1,-1
+  }
+
+sub badd
+  {
+  # add second arg (BINT or string) to first (BINT) (modifies first)
+  # return result as BINT
+
+  # set up parameters
+  my ($self,$x,$y,@r) = (ref($_[0]),@_);
+  # objectify is costly, so avoid it
+  if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1])))
+    {
+    ($self,$x,$y,@r) = objectify(2,@_);
+    }
+
+  return $x if $x->modify('badd');
+  return $upgrade->badd($upgrade->new($x),$upgrade->new($y),@r) if defined $upgrade &&
+    ((!$x->isa($self)) || (!$y->isa($self)));
+
+  $r[3] = $y;                           # no push!
+  # inf and NaN handling
+  if (($x->{sign} !~ /^[+-]$/) || ($y->{sign} !~ /^[+-]$/))
+    {
+    # NaN first
+    return $x->bnan() if (($x->{sign} eq $nan) || ($y->{sign} eq $nan));
+    # inf handling
+    if (($x->{sign} =~ /^[+-]inf$/) && ($y->{sign} =~ /^[+-]inf$/))
+      {
+      # +inf++inf or -inf+-inf => same, rest is NaN
+      return $x if $x->{sign} eq $y->{sign};
+      return $x->bnan();
+      }
+    # +-inf + something => +inf
+    # something +-inf => +-inf
+    $x->{sign} = $y->{sign}, return $x if $y->{sign} =~ /^[+-]inf$/;
+    return $x;
+    }
+
+  my ($sx, $sy) = ( $x->{sign}, $y->{sign} );           # get signs
+
+  if ($sx eq $sy)
+    {
+    $x->{value} = $CALC->_add($x->{value},$y->{value}); # same sign, abs add
+    }
+  else
+    {
+    my $a = $CALC->_acmp ($y->{value},$x->{value});     # absolute compare
+    if ($a > 0)
+      {
+      $x->{value} = $CALC->_sub($y->{value},$x->{value},1); # abs sub w/ swap
+      $x->{sign} = $sy;
+      }
+    elsif ($a == 0)
+      {
+      # speedup, if equal, set result to 0
+      $x->{value} = $CALC->_zero();
+      $x->{sign} = '+';
+      }
+    else # a < 0
+      {
+      $x->{value} = $CALC->_sub($x->{value}, $y->{value}); # abs sub
+      }
+    }
+  $x->round(@r);
+  }
+
+sub bsub
+  {
+  # (BINT or num_str, BINT or num_str) return BINT
+  # subtract second arg from first, modify first
+
+  # set up parameters
+  my ($self,$x,$y,@r) = (ref($_[0]),@_);
+
+  # objectify is costly, so avoid it
+  if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1])))
+    {
+    ($self,$x,$y,@r) = objectify(2,@_);
+    }
+
+  return $x if $x->modify('bsub');
+
+  return $upgrade->new($x)->bsub($upgrade->new($y),@r) if defined $upgrade &&
+   ((!$x->isa($self)) || (!$y->isa($self)));
+
+  return $x->round(@r) if $y->is_zero();
+
+  # To correctly handle the lone special case $x->bsub($x), we note the sign
+  # of $x, then flip the sign from $y, and if the sign of $x did change, too,
+  # then we caught the special case:
+  my $xsign = $x->{sign};
+  $y->{sign} =~ tr/+\-/-+/;     # does nothing for NaN
+  if ($xsign ne $x->{sign})
+    {
+    # special case of $x->bsub($x) results in 0
+    return $x->bzero(@r) if $xsign =~ /^[+-]$/;
+    return $x->bnan();          # NaN, -inf, +inf
+    }
+  $x->badd($y,@r);              # badd does not leave internal zeros
+  $y->{sign} =~ tr/+\-/-+/;     # refix $y (does nothing for NaN)
+  $x;                           # already rounded by badd() or no round nec.
+  }
+
+sub binc
+  {
+  # increment arg by one
+  my ($self,$x,$a,$p,$r) = ref($_[0]) ? (ref($_[0]),@_) : objectify(1,@_);
+  return $x if $x->modify('binc');
+
+  if ($x->{sign} eq '+')
+    {
+    $x->{value} = $CALC->_inc($x->{value});
+    return $x->round($a,$p,$r);
+    }
+  elsif ($x->{sign} eq '-')
+    {
+    $x->{value} = $CALC->_dec($x->{value});
+    $x->{sign} = '+' if $CALC->_is_zero($x->{value}); # -1 +1 => -0 => +0
+    return $x->round($a,$p,$r);
+    }
+  # inf, nan handling etc
+  $x->badd($self->bone(),$a,$p,$r);             # badd does round
+  }
+
+sub bdec
+  {
+  # decrement arg by one
+  my ($self,$x,@r) = ref($_[0]) ? (ref($_[0]),@_) : objectify(1,@_);
+  return $x if $x->modify('bdec');
+
+  if ($x->{sign} eq '-')
+    {
+    # x already < 0
+    $x->{value} = $CALC->_inc($x->{value});
+    }
+  else
+    {
+    return $x->badd($self->bone('-'),@r)
+        unless $x->{sign} eq '+'; # inf or NaN
+    # >= 0
+    if ($CALC->_is_zero($x->{value}))
+      {
+      # == 0
+      $x->{value} = $CALC->_one(); $x->{sign} = '-';            # 0 => -1
+      }
+    else
+      {
+      # > 0
+      $x->{value} = $CALC->_dec($x->{value});
+      }
+    }
+  $x->round(@r);
+  }
+
+sub blog
+  {
+  # Return the logarithm of the operand. If a second operand is defined, that
+  # value is used as the base, otherwise the base is assumed to be Euler's
+  # constant.
+
+  # Don't objectify the base, since an undefined base, as in $x->blog() or
+  # $x->blog(undef) signals that the base is Euler's number.
+
+  # set up parameters
+  my ($self,$x,$base,@r) = (undef,@_);
+  # objectify is costly, so avoid it
+  if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1]))) {
+      ($self,$x,$base,@r) = objectify(1,@_);
+  }
+
+  return $x if $x->modify('blog');
+
+  # Handle all exception cases and all trivial cases. I have used Wolfram Alpha
+  # (http://www.wolframalpha.com) as the reference for these cases.
+
+  return $x -> bnan() if $x -> is_nan();
+
+  if (defined $base) {
+      $base = $self -> new($base) unless ref $base;
+      if ($base -> is_nan() || $base -> is_one()) {
+          return $x -> bnan();
+      } elsif ($base -> is_inf() || $base -> is_zero()) {
+          return $x -> bnan() if $x -> is_inf() || $x -> is_zero();
+          return $x -> bzero();
+      } elsif ($base -> is_negative()) {            # -inf < base < 0
+          return $x -> bzero() if $x -> is_one();   #     x = 1
+          return $x -> bone()  if $x == $base;      #     x = base
+          return $x -> bnan();                      #     otherwise
+      }
+      return $x -> bone() if $x == $base;           # 0 < base && 0 < x < inf
+  }
+
+  # We now know that the base is either undefined or >= 2 and finite.
+
+  return $x -> binf('+') if $x -> is_inf();         #   x = +/-inf
+  return $x -> bnan()    if $x -> is_neg();         #   -inf < x < 0
+  return $x -> bzero()   if $x -> is_one();         #   x = 1
+  return $x -> binf('-') if $x -> is_zero();        #   x = 0
+
+  # At this point we are done handling all exception cases and trivial cases.
+
+  return $upgrade -> blog($upgrade -> new($x), $base, @r) if defined $upgrade;
+
+  # fix for bug #24969:
+  # the default base is e (Euler's number) which is not an integer
+  if (!defined $base)
+    {
+    require Math::BigFloat;
+    my $u = Math::BigFloat->blog(Math::BigFloat->new($x))->as_int();
+    # modify $x in place
+    $x->{value} = $u->{value};
+    $x->{sign} = $u->{sign};
+    return $x;
+    }
+
+  my ($rc,$exact) = $CALC->_log_int($x->{value},$base->{value});
+  return $x->bnan() unless defined $rc;         # not possible to take log?
+  $x->{value} = $rc;
+  $x->round(@r);
+  }
+
+sub bnok
+  {
+  # Calculate n over k (binomial coefficient or "choose" function) as integer.
+  # set up parameters
+  my ($self,$x,$y,@r) = (ref($_[0]),@_);
+
+  # objectify is costly, so avoid it
+  if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1])))
+    {
+    ($self,$x,$y,@r) = objectify(2,@_);
+    }
+
+  return $x if $x->modify('bnok');
+  return $x->bnan() if $x->{sign} eq 'NaN' || $y->{sign} eq 'NaN';
+  return $x->binf() if $x->{sign} eq '+inf';
+
+  # k > n or k < 0 => 0
+  my $cmp = $x->bacmp($y);
+  return $x->bzero() if $cmp < 0 || $y->{sign} =~ /^-/;
+  # k == n => 1
+  return $x->bone(@r) if $cmp == 0;
+
+  if ($CALC->can('_nok'))
+    {
+    $x->{value} = $CALC->_nok($x->{value},$y->{value});
+    }
+  else
+    {
+    # ( 7 )       7!       1*2*3*4 * 5*6*7   5 * 6 * 7       6   7
+    # ( - ) = --------- =  --------------- = --------- = 5 * - * -
+    # ( 3 )   (7-3)! 3!    1*2*3*4 * 1*2*3   1 * 2 * 3       2   3
+
+    if (!$y->is_zero())
+      {
+      my $z = $x - $y;
+      $z->binc();
+      my $r = $z->copy(); $z->binc();
+      my $d = $self->new(2);
+      while ($z->bacmp($x) <= 0)                # f <= x ?
+        {
+        $r->bmul($z); $r->bdiv($d);
+        $z->binc(); $d->binc();
+        }
+      $x->{value} = $r->{value}; $x->{sign} = '+';
+      }
+    else { $x->bone(); }
+    }
+  $x->round(@r);
+  }
+
+sub bexp
+  {
+  # Calculate e ** $x (Euler's number to the power of X), truncated to
+  # an integer value.
+  my ($self,$x,@r) = ref($_[0]) ? (ref($_[0]),@_) : objectify(1,@_);
+  return $x if $x->modify('bexp');
+
+  # inf, -inf, NaN, <0 => NaN
+  return $x->bnan() if $x->{sign} eq 'NaN';
+  return $x->bone() if $x->is_zero();
+  return $x if $x->{sign} eq '+inf';
+  return $x->bzero() if $x->{sign} eq '-inf';
+
+  my $u;
+  {
+    # run through Math::BigFloat unless told otherwise
+    require Math::BigFloat unless defined $upgrade;
+    local $upgrade = 'Math::BigFloat' unless defined $upgrade;
+    # calculate result, truncate it to integer
+    $u = $upgrade->bexp($upgrade->new($x),@r);
+  }
+
+  if (!defined $upgrade)
+    {
+    $u = $u->as_int();
+    # modify $x in place
+    $x->{value} = $u->{value};
+    $x->round(@r);
+    }
+  else { $x = $u; }
+  }
+
+sub blcm
+  {
+  # (BINT or num_str, BINT or num_str) return BINT
+  # does not modify arguments, but returns new object
+  # Lowest Common Multiple
+
+  my $y = shift; my ($x);
+  if (ref($y))
+    {
+    $x = $y->copy();
+    }
+  else
+    {
+    $x = $class->new($y);
+    }
+  my $self = ref($x);
+  while (@_)
+    {
+    my $y = shift; $y = $self->new($y) if !ref ($y);
+    $x = __lcm($x,$y);
+    }
+  $x;
+  }
+
+sub bgcd
+  {
+  # (BINT or num_str, BINT or num_str) return BINT
+  # does not modify arguments, but returns new object
+  # GCD -- Euclid's algorithm, variant C (Knuth Vol 3, pg 341 ff)
+
+  my $y = shift;
+  $y = $class->new($y) if !ref($y);
+  my $self = ref($y);
+  my $x = $y->copy()->babs();                   # keep arguments
+  return $x->bnan() if $x->{sign} !~ /^[+-]$/;  # x NaN?
+
+  while (@_)
+    {
+    $y = shift; $y = $self->new($y) if !ref($y);
+    return $x->bnan() if $y->{sign} !~ /^[+-]$/;        # y NaN?
+    $x->{value} = $CALC->_gcd($x->{value},$y->{value});
+    last if $CALC->_is_one($x->{value});
+    }
+  $x;
+  }
+
+sub bnot
+  {
+  # (num_str or BINT) return BINT
+  # represent ~x as twos-complement number
+  # we don't need $self, so undef instead of ref($_[0]) make it slightly faster
+  my ($self,$x,$a,$p,$r) = ref($_[0]) ? (undef,@_) : objectify(1,@_);
+
+  return $x if $x->modify('bnot');
+  $x->binc()->bneg();                   # binc already does round
+  }
+
+##############################################################################
+# is_foo test routines
+# we don't need $self, so undef instead of ref($_[0]) make it slightly faster
+
+sub is_zero
+  {
+  # return true if arg (BINT or num_str) is zero (array '+', '0')
+  my ($self,$x) = ref($_[0]) ? (undef,$_[0]) : objectify(1,@_);
+
+  return 0 if $x->{sign} !~ /^\+$/;                     # -, NaN & +-inf aren't
+  $CALC->_is_zero($x->{value});
+  }
+
+sub is_nan
+  {
+  # return true if arg (BINT or num_str) is NaN
+  my ($self,$x) = ref($_[0]) ? (undef,$_[0]) : objectify(1,@_);
+
+  $x->{sign} eq $nan ? 1 : 0;
+  }
+
+sub is_inf
+  {
+  # return true if arg (BINT or num_str) is +-inf
+  my ($self,$x,$sign) = ref($_[0]) ? (undef,@_) : objectify(1,@_);
+
+  if (defined $sign)
+    {
+    $sign = '[+-]inf' if $sign eq '';   # +- doesn't matter, only that's inf
+    $sign = "[$1]inf" if $sign =~ /^([+-])(inf)?$/;     # extract '+' or '-'
+    return $x->{sign} =~ /^$sign$/ ? 1 : 0;
+    }
+  $x->{sign} =~ /^[+-]inf$/ ? 1 : 0;            # only +-inf is infinity
+  }
+
+sub is_one
+  {
+  # return true if arg (BINT or num_str) is +1, or -1 if sign is given
+  my ($self,$x,$sign) = ref($_[0]) ? (undef,@_) : objectify(1,@_);
+
+  $sign = '+' if !defined $sign || $sign ne '-';
+
+  return 0 if $x->{sign} ne $sign;      # -1 != +1, NaN, +-inf aren't either
+  $CALC->_is_one($x->{value});
+  }
+
+sub is_odd
+  {
+  # return true when arg (BINT or num_str) is odd, false for even
+  my ($self,$x) = ref($_[0]) ? (undef,$_[0]) : objectify(1,@_);
+
+  return 0 if $x->{sign} !~ /^[+-]$/;                   # NaN & +-inf aren't
+  $CALC->_is_odd($x->{value});
+  }
+
+sub is_even
+  {
+  # return true when arg (BINT or num_str) is even, false for odd
+  my ($self,$x) = ref($_[0]) ? (undef,$_[0]) : objectify(1,@_);
+
+  return 0 if $x->{sign} !~ /^[+-]$/;                   # NaN & +-inf aren't
+  $CALC->_is_even($x->{value});
+  }
+
+sub is_positive
+  {
+  # return true when arg (BINT or num_str) is positive (> 0)
+  my ($self,$x) = ref($_[0]) ? (undef,$_[0]) : objectify(1,@_);
+
+  return 1 if $x->{sign} eq '+inf';                     # +inf is positive
+
+  # 0+ is neither positive nor negative
+  ($x->{sign} eq '+' && !$x->is_zero()) ? 1 : 0;
+  }
+
+sub is_negative
+  {
+  # return true when arg (BINT or num_str) is negative (< 0)
+  my ($self,$x) = ref($_[0]) ? (undef,$_[0]) : objectify(1,@_);
+
+  $x->{sign} =~ /^-/ ? 1 : 0;           # -inf is negative, but NaN is not
+  }
+
+sub is_int
+  {
+  # return true when arg (BINT or num_str) is an integer
+  # always true for BigInt, but different for BigFloats
+  my ($self,$x) = ref($_[0]) ? (undef,$_[0]) : objectify(1,@_);
+
+  $x->{sign} =~ /^[+-]$/ ? 1 : 0;               # inf/-inf/NaN aren't
+  }
+
+###############################################################################
+
+sub bmul
+  {
+  # multiply the first number by the second number
+  # (BINT or num_str, BINT or num_str) return BINT
+
+  # set up parameters
+  my ($self,$x,$y,@r) = (ref($_[0]),@_);
+  # objectify is costly, so avoid it
+  if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1])))
+    {
+    ($self,$x,$y,@r) = objectify(2,@_);
+    }
+
+  return $x if $x->modify('bmul');
+
+  return $x->bnan() if (($x->{sign} eq $nan) || ($y->{sign} eq $nan));
+
+  # inf handling
+  if (($x->{sign} =~ /^[+-]inf$/) || ($y->{sign} =~ /^[+-]inf$/))
+    {
+    return $x->bnan() if $x->is_zero() || $y->is_zero();
+    # result will always be +-inf:
+    # +inf * +/+inf => +inf, -inf * -/-inf => +inf
+    # +inf * -/-inf => -inf, -inf * +/+inf => -inf
+    return $x->binf() if ($x->{sign} =~ /^\+/ && $y->{sign} =~ /^\+/);
+    return $x->binf() if ($x->{sign} =~ /^-/ && $y->{sign} =~ /^-/);
+    return $x->binf('-');
+    }
+
+  return $upgrade->bmul($x,$upgrade->new($y),@r)
+   if defined $upgrade && !$y->isa($self);
+
+  $r[3] = $y;                           # no push here
+
+  $x->{sign} = $x->{sign} eq $y->{sign} ? '+' : '-'; # +1 * +1 or -1 * -1 => +
+
+  $x->{value} = $CALC->_mul($x->{value},$y->{value});   # do actual math
+  $x->{sign} = '+' if $CALC->_is_zero($x->{value});     # no -0
+
+  $x->round(@r);
+  }
+
+sub bmuladd
+  {
+  # multiply two numbers and then add the third to the result
+  # (BINT or num_str, BINT or num_str, BINT or num_str) return BINT
+
+  # set up parameters
+  my ($self,$x,$y,$z,@r) = objectify(3,@_);
+
+  return $x if $x->modify('bmuladd');
+
+  return $x->bnan() if  ($x->{sign} eq $nan) ||
+                        ($y->{sign} eq $nan) ||
+                        ($z->{sign} eq $nan);
+
+  # inf handling of x and y
+  if (($x->{sign} =~ /^[+-]inf$/) || ($y->{sign} =~ /^[+-]inf$/))
+    {
+    return $x->bnan() if $x->is_zero() || $y->is_zero();
+    # result will always be +-inf:
+    # +inf * +/+inf => +inf, -inf * -/-inf => +inf
+    # +inf * -/-inf => -inf, -inf * +/+inf => -inf
+    return $x->binf() if ($x->{sign} =~ /^\+/ && $y->{sign} =~ /^\+/);
+    return $x->binf() if ($x->{sign} =~ /^-/ && $y->{sign} =~ /^-/);
+    return $x->binf('-');
+    }
+  # inf handling x*y and z
+  if (($z->{sign} =~ /^[+-]inf$/))
+    {
+    # something +-inf => +-inf
+    $x->{sign} = $z->{sign}, return $x if $z->{sign} =~ /^[+-]inf$/;
+    }
+
+  return $upgrade->bmuladd($x,$upgrade->new($y),$upgrade->new($z),@r)
+   if defined $upgrade && (!$y->isa($self) || !$z->isa($self) || !$x->isa($self));
+
+  # TODO: what if $y and $z have A or P set?
+  $r[3] = $z;                           # no push here
+
+  $x->{sign} = $x->{sign} eq $y->{sign} ? '+' : '-'; # +1 * +1 or -1 * -1 => +
+
+  $x->{value} = $CALC->_mul($x->{value},$y->{value});   # do actual math
+  $x->{sign} = '+' if $CALC->_is_zero($x->{value});     # no -0
+
+  my ($sx, $sz) = ( $x->{sign}, $z->{sign} );           # get signs
+
+  if ($sx eq $sz)
+    {
+    $x->{value} = $CALC->_add($x->{value},$z->{value}); # same sign, abs add
+    }
+  else
+    {
+    my $a = $CALC->_acmp ($z->{value},$x->{value});     # absolute compare
+    if ($a > 0)
+      {
+      $x->{value} = $CALC->_sub($z->{value},$x->{value},1); # abs sub w/ swap
+      $x->{sign} = $sz;
+      }
+    elsif ($a == 0)
+      {
+      # speedup, if equal, set result to 0
+      $x->{value} = $CALC->_zero();
+      $x->{sign} = '+';
+      }
+    else # a < 0
+      {
+      $x->{value} = $CALC->_sub($x->{value}, $z->{value}); # abs sub
+      }
+    }
+  $x->round(@r);
+  }
+
+sub bdiv
+  {
+
+    # This does floored division, where the quotient is floored toward negative
+    # infinity and the remainder has the same sign as the divisor.
+
+    # Set up parameters.
+    my ($self,$x,$y,@r) = (ref($_[0]),@_);
+
+    # objectify() is costly, so avoid it if we can.
+    if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1]))) {
+        ($self,$x,$y,@r) = objectify(2,@_);
+    }
+
+    return $x if $x->modify('bdiv');
+
+    my $wantarray = wantarray;          # call only once
+
+    # At least one argument is NaN. Return NaN for both quotient and the
+    # modulo/remainder.
+
+    if ($x -> is_nan() || $y -> is_nan()) {
+        return $wantarray ? ($x -> bnan(), $self -> bnan()) : $x -> bnan();
+    }
+
+    # Divide by zero and modulo zero.
+    #
+    # Division: Use the common convention that x / 0 is inf with the same sign
+    # as x, except when x = 0, where we return NaN. This is also what earlier
+    # versions did.
+    #
+    # Modulo: In modular arithmetic, the congruence relation z = x (mod y)
+    # means that there is some integer k such that z - x = k y. If y = 0, we
+    # get z - x = 0 or z = x. This is also what earlier versions did, except
+    # that 0 % 0 returned NaN.
+    #
+    #     inf / 0 =  inf                     inf % 0 =  inf
+    #       5 / 0 =  inf                       5 % 0 =    5
+    #       0 / 0 =  NaN                       0 % 0 =    0 (before: NaN)
+    #      -5 / 0 = -inf                      -5 % 0 =   -5
+    #    -inf / 0 = -inf                    -inf % 0 = -inf
+
+    if ($y -> is_zero()) {
+        my ($quo, $rem);
+        if ($wantarray) {
+                $rem = $x -> copy();
+            }
+        if ($x -> is_zero()) {
+            $quo = $x -> bnan();
+        } else {
+            $quo = $x -> binf($x -> {sign});
+        }
+        return $wantarray ? ($quo, $rem) : $quo;
+    }
+
+    # Numerator (dividend) is +/-inf, and denominator is finite and non-zero.
+    # The divide by zero cases are covered above. In all of the cases listed
+    # below we return the same as core Perl.
+    #
+    #     inf / -inf =  NaN                  inf % -inf =  NaN
+    #     inf /   -5 = -inf                  inf %   -5 =  NaN (before: 0)
+    #     inf /    5 =  inf                  inf %    5 =  NaN (before: 0)
+    #     inf /  inf =  NaN                  inf %  inf =  NaN
+    #
+    #    -inf / -inf =  NaN                 -inf % -inf =  NaN
+    #    -inf /   -5 =  inf                 -inf %   -5 =  NaN (before: 0)
+    #    -inf /    5 = -inf                 -inf %    5 =  NaN (before: 0)
+    #    -inf /  inf =  NaN                 -inf %  inf =  NaN
+
+    if ($x -> is_inf()) {
+        my ($quo, $rem);
+        $rem = $self -> bnan() if $wantarray;
+        if ($y -> is_inf()) {
+            $quo = $x -> bnan();
+        } else {
+            my $sign = $x -> bcmp(0) == $y -> bcmp(0) ? '+' : '-';
+            $quo = $x -> binf($sign);
+      }
+        return $wantarray ? ($quo, $rem) : $quo;
+    }
+
+    # Denominator (divisor) is +/-inf. The cases when the numerator is +/-inf
+    # are covered above. In the modulo cases (in the right column) we return
+    # the same as core Perl, which does floored division, so for consistency we
+    # also do floored division in the division cases (in the left column).
+    #
+    #      -5 /  inf =   -1 (before: 0)       -5 %  inf =  inf (before: -5)
+    #       0 /  inf =    0                    0 %  inf =    0
+    #       5 /  inf =    0                    5 %  inf =    5
+    #
+    #      -5 / -inf =    0                   -5 % -inf =   -5
+    #       0 / -inf =    0                    0 % -inf =    0
+    #       5 / -inf =   -1 (before: 0)        5 % -inf = -inf (before: 5)
+
+    if ($y -> is_inf()) {
+        my ($quo, $rem);
+        if ($x -> is_zero() || $x -> bcmp(0) == $y -> bcmp(0)) {
+            $rem = $x -> copy() if $wantarray;
+            $quo = $x -> bzero();
+        } else {
+            $rem = $self -> binf($y -> {sign}) if $wantarray;
+            $quo = $x -> bone('-');
+        }
+        return $wantarray ? ($quo, $rem) : $quo;
+  }
+
+  # At this point, both the numerator and denominator are finite numbers, and
+  # the denominator (divisor) is non-zero.
+
+  return $upgrade->bdiv($upgrade->new($x),$upgrade->new($y),@r)
+   if defined $upgrade;
+
+  $r[3] = $y;                                   # no push!
+
+    # Inialize remainder.
+
+    my $rem = $self->bzero();
+
+    # Are both operands the same object, i.e., like $x -> bdiv($x)?
+    # If so, flipping the sign of $y also flips the sign of $x.
+
+    my $xsign = $x->{sign};
+    my $ysign = $y->{sign};
+
+    $y->{sign} =~ tr/+-/-+/;            # Flip the sign of $y, and see ...
+    my $same = $xsign ne $x->{sign};    # ... if that changed the sign of $x.
+    $y->{sign} = $ysign;                # Re-insert the original sign.
+
+    if ($same) {
+        $x -> bone();
+    } else {
+    ($x->{value},$rem->{value}) = $CALC->_div($x->{value},$y->{value});
+
+        if ($CALC -> _is_zero($rem->{value})) {
+            if ($xsign eq $ysign || $CALC -> _is_zero($x->{value})) {
+                $x->{sign} = '+';
+            } else {
+                $x->{sign} = '-';
+            }
+        } else {
+            if ($xsign eq $ysign) {
+                $x->{sign} = '+';
+            } else {
+                if ($xsign eq '+') {
+                    $x -> badd(1);
+                } else {
+                    $x -> bsub(1);
+                }
+                $x->{sign} = '-';
+            }
+        }
+    }
+
+    $x->round(@r);
+
+    if ($wantarray) {
+        unless ($CALC -> _is_zero($rem->{value})) {
+            if ($xsign ne $ysign) {
+                $rem = $y -> copy() -> babs() -> bsub($rem);
+      }
+            $rem->{sign} = $ysign;
+      }
+        $rem->{_a} = $x->{_a};
+        $rem->{_p} = $x->{_p};
+    $rem->round(@r);
+    return ($x,$rem);
+    }
+
+    return $x;
+  }
+
+###############################################################################
+# modulus functions
+
+sub bmod
+  {
+
+    # This is the remainder after floored division, where the quotient is
+    # floored toward negative infinity and the remainder has the same sign as
+    # the divisor.
+
+    # Set up parameters.
+  my ($self,$x,$y,@r) = (ref($_[0]),@_);
+
+  # objectify is costly, so avoid it
+  if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1])))
+    {
+    ($self,$x,$y,@r) = objectify(2,@_);
+    }
+
+  return $x if $x->modify('bmod');
+  $r[3] = $y;                                   # no push!
+
+    # At least one argument is NaN.
+
+    if ($x -> is_nan() || $y -> is_nan()) {
+        return $x -> bnan();
+    }
+
+    # Modulo zero. See documentation for bdiv().
+
+    if ($y -> is_zero()) {
+            return $x;
+        }
+
+    # Numerator (dividend) is +/-inf.
+
+    if ($x -> is_inf()) {
+        return $x -> bnan();
+    }
+
+    # Denominator (divisor) is +/-inf.
+
+    if ($y -> is_inf()) {
+        if ($x -> is_zero() || $x -> bcmp(0) == $y -> bcmp(0)) {
+            return $x;
+        } else {
+            return $x -> binf($y -> sign());
+        }
+    }
+
+    # Calc new sign and in case $y == +/- 1, return $x.
+
+  $x->{value} = $CALC->_mod($x->{value},$y->{value});
+  if ($CALC -> _is_zero($x->{value}))
+    {
+        $x->{sign} = '+';       # do not leave -0
+    }
+  else
+    {
+    $x->{value} = $CALC->_sub($y->{value},$x->{value},1)        # $y-$x
+      if ($x->{sign} ne $y->{sign});
+    $x->{sign} = $y->{sign};
+    }
+
+  $x->round(@r);
+  }
+
+sub bmodinv
+  {
+  # Return modular multiplicative inverse:
+  #
+  #   z is the modular inverse of x (mod y) if and only if
+  #
+  #       x*z ≡ 1  (mod y)
+  #
+  # If the modulus y is larger than one, x and z are relative primes (i.e.,
+  # their greatest common divisor is one).
+  #
+  # If no modular multiplicative inverse exists, NaN is returned.
+
+  # set up parameters
+  my ($self,$x,$y,@r) = (undef,@_);
+  # objectify is costly, so avoid it
+  if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1])))
+    {
+    ($self,$x,$y,@r) = objectify(2,@_);
+    }
+
+  return $x if $x->modify('bmodinv');
+
+  # Return NaN if one or both arguments is +inf, -inf, or nan.
+
+  return $x->bnan() if ($y->{sign} !~ /^[+-]$/ ||
+                        $x->{sign} !~ /^[+-]$/);
+
+  # Return NaN if $y is zero; 1 % 0 makes no sense.
+
+  return $x->bnan() if $y->is_zero();
+
+  # Return 0 in the trivial case. $x % 1 or $x % -1 is zero for all finite
+  # integers $x.
+
+  return $x->bzero() if ($y->is_one() ||
+                         $y->is_one('-'));
+
+  # Return NaN if $x = 0, or $x modulo $y is zero. The only valid case when
+  # $x = 0 is when $y = 1 or $y = -1, but that was covered above.
+  #
+  # Note that computing $x modulo $y here affects the value we'll feed to
+  # $CALC->_modinv() below when $x and $y have opposite signs. E.g., if $x =
+  # 5 and $y = 7, those two values are fed to _modinv(), but if $x = -5 and
+  # $y = 7, the values fed to _modinv() are $x = 2 (= -5 % 7) and $y = 7.
+  # The value if $x is affected only when $x and $y have opposite signs.
+
+  $x->bmod($y);
+  return $x->bnan() if $x->is_zero();
+
+  # Compute the modular multiplicative inverse of the absolute values. We'll
+  # correct for the signs of $x and $y later. Return NaN if no GCD is found.
+
+  ($x->{value}, $x->{sign}) = $CALC->_modinv($x->{value}, $y->{value});
+  return $x->bnan() if !defined $x->{value};
+
+  # Library inconsistency workaround: _modinv() in Math::BigInt::GMP versions
+  # <= 1.32 return undef rather than a "+" for the sign.
+
+  $x->{sign} = '+' unless defined $x->{sign};
+
+  # When one or both arguments are negative, we have the following
+  # relations.  If x and y are positive:
+  #
+  #   modinv(-x, -y) = -modinv(x, y)
+  #   modinv(-x,  y) = y - modinv(x, y)  = -modinv(x, y) (mod y)
+  #   modinv( x, -y) = modinv(x, y) - y  =  modinv(x, y) (mod -y)
+
+  # We must swap the sign of the result if the original $x is negative.
+  # However, we must compensate for ignoring the signs when computing the
+  # inverse modulo. The net effect is that we must swap the sign of the
+  # result if $y is negative.
+
+  $x -> bneg() if $y->{sign} eq '-';
+
+  # Compute $x modulo $y again after correcting the sign.
+
+  $x -> bmod($y) if $x->{sign} ne $y->{sign};
+
+  return $x;
+  }
+
+sub bmodpow
+  {
+  # Modular exponentiation. Raises a very large number to a very large exponent
+  # in a given very large modulus quickly, thanks to binary exponentiation.
+  # Supports negative exponents.
+  my ($self,$num,$exp,$mod,@r) = objectify(3,@_);
+
+  return $num if $num->modify('bmodpow');
+
+  # When the exponent 'e' is negative, use the following relation, which is
+  # based on finding the multiplicative inverse 'd' of 'b' modulo 'm':
+  #
+  #    b^(-e) (mod m) = d^e (mod m) where b*d = 1 (mod m)
+
+  $num->bmodinv($mod) if ($exp->{sign} eq '-');
+
+  # Check for valid input. All operands must be finite, and the modulus must be
+  # non-zero.
+
+  return $num->bnan() if ($num->{sign} =~ /NaN|inf/ ||  # NaN, -inf, +inf
+                          $exp->{sign} =~ /NaN|inf/ ||  # NaN, -inf, +inf
+                          $mod->{sign} =~ /NaN|inf/);   # NaN, -inf, +inf
+
+  # Modulo zero. See documentation for Math::BigInt's bmod() method.
+
+  if ($mod -> is_zero()) {
+      if ($num -> is_zero()) {
+          return $self -> bnan();
+      } else {
+          return $num -> copy();
+      }
+  }
+
+  # Compute 'a (mod m)', ignoring the signs on 'a' and 'm'. If the resulting
+  # value is zero, the output is also zero, regardless of the signs on 'a' and
+  # 'm'.
+
+  my $value = $CALC->_modpow($num->{value}, $exp->{value}, $mod->{value});
+  my $sign  = '+';
+
+  # If the resulting value is non-zero, we have four special cases, depending
+  # on the signs on 'a' and 'm'.
+
+  unless ($CALC->_is_zero($value)) {
+
+      # There is a negative sign on 'a' (= $num**$exp) only if the number we
+      # are exponentiating ($num) is negative and the exponent ($exp) is odd.
+
+      if ($num->{sign} eq '-' && $exp->is_odd()) {
+
+          # When both the number 'a' and the modulus 'm' have a negative sign,
+          # use this relation:
+          #
+          #    -a (mod -m) = -(a (mod m))
+
+          if ($mod->{sign} eq '-') {
+              $sign = '-';
+          }
+
+          # When only the number 'a' has a negative sign, use this relation:
+          #
+          #    -a (mod m) = m - (a (mod m))
+
+          else {
+              # Use copy of $mod since _sub() modifies the first argument.
+              my $mod = $CALC->_copy($mod->{value});
+              $value = $CALC->_sub($mod, $value);
+              $sign  = '+';
+          }
+
+      } else {
+
+          # When only the modulus 'm' has a negative sign, use this relation:
+          #
+          #    a (mod -m) = (a (mod m)) - m
+          #               = -(m - (a (mod m)))
+
+          if ($mod->{sign} eq '-') {
+              # Use copy of $mod since _sub() modifies the first argument.
+              my $mod = $CALC->_copy($mod->{value});
+              $value = $CALC->_sub($mod, $value);
+              $sign  = '-';
+          }
+
+          # When neither the number 'a' nor the modulus 'm' have a negative
+          # sign, directly return the already computed value.
+          #
+          #    (a (mod m))
+
+      }
+
+  }
+
+  $num->{value} = $value;
+  $num->{sign}  = $sign;
+
+  return $num;
+  }
+
+###############################################################################
+
+sub bfac
+  {
+  # (BINT or num_str, BINT or num_str) return BINT
+  # compute factorial number from $x, modify $x in place
+  my ($self,$x,@r) = ref($_[0]) ? (undef,@_) : objectify(1,@_);
+
+  return $x if $x->modify('bfac') || $x->{sign} eq '+inf';      # inf => inf
+  return $x->bnan() if $x->{sign} ne '+';                       # NaN, <0 etc => NaN
+
+  $x->{value} = $CALC->_fac($x->{value});
+  $x->round(@r);
+  }
+
+sub bpow
+  {
+  # (BINT or num_str, BINT or num_str) return BINT
+  # compute power of two numbers -- stolen from Knuth Vol 2 pg 233
+  # modifies first argument
+
+  # set up parameters
+  my ($self,$x,$y,@r) = (ref($_[0]),@_);
+  # objectify is costly, so avoid it
+  if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1])))
+    {
+    ($self,$x,$y,@r) = objectify(2,@_);
+    }
+
+  return $x if $x->modify('bpow');
+
+  return $x->bnan() if $x->{sign} eq $nan || $y->{sign} eq $nan;
+
+  # inf handling
+  if (($x->{sign} =~ /^[+-]inf$/) || ($y->{sign} =~ /^[+-]inf$/))
+    {
+    if (($x->{sign} =~ /^[+-]inf$/) && ($y->{sign} =~ /^[+-]inf$/))
+      {
+      # +-inf ** +-inf
+      return $x->bnan();
+      }
+    # +-inf ** Y
+    if ($x->{sign} =~ /^[+-]inf/)
+      {
+      # +inf ** 0 => NaN
+      return $x->bnan() if $y->is_zero();
+      # -inf ** -1 => 1/inf => 0
+      return $x->bzero() if $y->is_one('-') && $x->is_negative();
+
+      # +inf ** Y => inf
+      return $x if $x->{sign} eq '+inf';
+
+      # -inf ** Y => -inf if Y is odd
+      return $x if $y->is_odd();
+      return $x->babs();
+      }
+    # X ** +-inf
+
+    # 1 ** +inf => 1
+    return $x if $x->is_one();
+
+    # 0 ** inf => 0
+    return $x if $x->is_zero() && $y->{sign} =~ /^[+]/;
+
+    # 0 ** -inf => inf
+    return $x->binf() if $x->is_zero();
+
+    # -1 ** -inf => NaN
+    return $x->bnan() if $x->is_one('-') && $y->{sign} =~ /^[-]/;
+
+    # -X ** -inf => 0
+    return $x->bzero() if $x->{sign} eq '-' && $y->{sign} =~ /^[-]/;
+
+    # -1 ** inf => NaN
+    return $x->bnan() if $x->{sign} eq '-';
+
+    # X ** inf => inf
+    return $x->binf() if $y->{sign} =~ /^[+]/;
+    # X ** -inf => 0
+    return $x->bzero();
+    }
+
+  return $upgrade->bpow($upgrade->new($x),$y,@r)
+   if defined $upgrade && (!$y->isa($self) || $y->{sign} eq '-');
+
+  $r[3] = $y;                                   # no push!
+
+  # cases 0 ** Y, X ** 0, X ** 1, 1 ** Y are handled by Calc or Emu
+
+  my $new_sign = '+';
+  $new_sign = $y->is_odd() ? '-' : '+' if ($x->{sign} ne '+');
+
+  # 0 ** -7 => ( 1 / (0 ** 7)) => 1 / 0 => +inf
+  return $x->binf()
+    if $y->{sign} eq '-' && $x->{sign} eq '+' && $CALC->_is_zero($x->{value});
+  # 1 ** -y => 1 / (1 ** |y|)
+  # so do test for negative $y after above's clause
+  return $x->bnan() if $y->{sign} eq '-' && !$CALC->_is_one($x->{value});
+
+  $x->{value} = $CALC->_pow($x->{value},$y->{value});
+  $x->{sign} = $new_sign;
+  $x->{sign} = '+' if $CALC->_is_zero($y->{value});
+  $x->round(@r);
+  }
+
+sub blsft
+  {
+  # (BINT or num_str, BINT or num_str) return BINT
+  # compute x << y, base n, y >= 0
+
+  # set up parameters
+  my ($self,$x,$y,$n,@r) = (ref($_[0]),@_);
+  # objectify is costly, so avoid it
+  if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1])))
+    {
+    ($self,$x,$y,$n,@r) = objectify(2,@_);
+    }
+
+  return $x if $x->modify('blsft');
+  return $x->bnan() if ($x->{sign} !~ /^[+-]$/ || $y->{sign} !~ /^[+-]$/);
+  return $x->round(@r) if $y->is_zero();
+
+  $n = 2 if !defined $n; return $x->bnan() if $n <= 0 || $y->{sign} eq '-';
+
+  $x->{value} = $CALC->_lsft($x->{value},$y->{value},$n);
+  $x->round(@r);
+  }
+
+sub brsft
+  {
+  # (BINT or num_str, BINT or num_str) return BINT
+  # compute x >> y, base n, y >= 0
+
+  # set up parameters
+  my ($self,$x,$y,$n,@r) = (ref($_[0]),@_);
+  # objectify is costly, so avoid it
+  if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1])))
+    {
+    ($self,$x,$y,$n,@r) = objectify(2,@_);
+    }
+
+  return $x if $x->modify('brsft');
+  return $x->bnan() if ($x->{sign} !~ /^[+-]$/ || $y->{sign} !~ /^[+-]$/);
+  return $x->round(@r) if $y->is_zero();
+  return $x->bzero(@r) if $x->is_zero();                # 0 => 0
+
+  $n = 2 if !defined $n; return $x->bnan() if $n <= 0 || $y->{sign} eq '-';
+
+   # this only works for negative numbers when shifting in base 2
+  if (($x->{sign} eq '-') && ($n == 2))
+    {
+    return $x->round(@r) if $x->is_one('-');    # -1 => -1
+    if (!$y->is_one())
+      {
+      # although this is O(N*N) in calc (as_bin!) it is O(N) in Pari et al
+      # but perhaps there is a better emulation for two's complement shift...
+      # if $y != 1, we must simulate it by doing:
+      # convert to bin, flip all bits, shift, and be done
+      $x->binc();                       # -3 => -2
+      my $bin = $x->as_bin();
+      $bin =~ s/^-0b//;                 # strip '-0b' prefix
+      $bin =~ tr/10/01/;                # flip bits
+      # now shift
+      if ($y >= CORE::length($bin))
+        {
+        $bin = '0';                     # shifting to far right creates -1
+                                        # 0, because later increment makes
+                                        # that 1, attached '-' makes it '-1'
+                                        # because -1 >> x == -1 !
+        }
+      else
+        {
+        $bin =~ s/.{$y}$//;             # cut off at the right side
+        $bin = '1' . $bin;              # extend left side by one dummy '1'
+        $bin =~ tr/10/01/;              # flip bits back
+        }
+      my $res = $self->new('0b'.$bin);  # add prefix and convert back
+      $res->binc();                     # remember to increment
+      $x->{value} = $res->{value};      # take over value
+      return $x->round(@r);             # we are done now, magic, isn't?
+      }
+    # x < 0, n == 2, y == 1
+    $x->bdec();                         # n == 2, but $y == 1: this fixes it
+    }
+
+  $x->{value} = $CALC->_rsft($x->{value},$y->{value},$n);
+  $x->round(@r);
+  }
+
+sub band
+  {
+  #(BINT or num_str, BINT or num_str) return BINT
+  # compute x & y
+
+  # set up parameters
+  my ($self,$x,$y,@r) = (ref($_[0]),@_);
+  # objectify is costly, so avoid it
+  if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1])))
+    {
+    ($self,$x,$y,@r) = objectify(2,@_);
+    }
+
+  return $x if $x->modify('band');
+
+  $r[3] = $y;                           # no push!
+
+  return $x->bnan() if ($x->{sign} !~ /^[+-]$/ || $y->{sign} !~ /^[+-]$/);
+
+  my $sx = $x->{sign} eq '+' ? 1 : -1;
+  my $sy = $y->{sign} eq '+' ? 1 : -1;
+
+  if ($sx == 1 && $sy == 1)
+    {
+    $x->{value} = $CALC->_and($x->{value},$y->{value});
+    return $x->round(@r);
+    }
+
+  if ($CAN{signed_and})
+    {
+    $x->{value} = $CALC->_signed_and($x->{value},$y->{value},$sx,$sy);
+    return $x->round(@r);
+    }
+
+  require $EMU_LIB;
+  __emu_band($self,$x,$y,$sx,$sy,@r);
+  }
+
+sub bior
+  {
+  #(BINT or num_str, BINT or num_str) return BINT
+  # compute x | y
+
+  # set up parameters
+  my ($self,$x,$y,@r) = (ref($_[0]),@_);
+  # objectify is costly, so avoid it
+  if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1])))
+    {
+    ($self,$x,$y,@r) = objectify(2,@_);
+    }
+
+  return $x if $x->modify('bior');
+  $r[3] = $y;                           # no push!
+
+  return $x->bnan() if ($x->{sign} !~ /^[+-]$/ || $y->{sign} !~ /^[+-]$/);
+
+  my $sx = $x->{sign} eq '+' ? 1 : -1;
+  my $sy = $y->{sign} eq '+' ? 1 : -1;
+
+  # the sign of X follows the sign of X, e.g. sign of Y irrelevant for bior()
+
+  # don't use lib for negative values
+  if ($sx == 1 && $sy == 1)
+    {
+    $x->{value} = $CALC->_or($x->{value},$y->{value});
+    return $x->round(@r);
+    }
+
+  # if lib can do negative values, let it handle this
+  if ($CAN{signed_or})
+    {
+    $x->{value} = $CALC->_signed_or($x->{value},$y->{value},$sx,$sy);
+    return $x->round(@r);
+    }
+
+  require $EMU_LIB;
+  __emu_bior($self,$x,$y,$sx,$sy,@r);
+  }
+
+sub bxor
+  {
+  #(BINT or num_str, BINT or num_str) return BINT
+  # compute x ^ y
+
+  # set up parameters
+  my ($self,$x,$y,@r) = (ref($_[0]),@_);
+  # objectify is costly, so avoid it
+  if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1])))
+    {
+    ($self,$x,$y,@r) = objectify(2,@_);
+    }
+
+  return $x if $x->modify('bxor');
+  $r[3] = $y;                           # no push!
+
+  return $x->bnan() if ($x->{sign} !~ /^[+-]$/ || $y->{sign} !~ /^[+-]$/);
+
+  my $sx = $x->{sign} eq '+' ? 1 : -1;
+  my $sy = $y->{sign} eq '+' ? 1 : -1;
+
+  # don't use lib for negative values
+  if ($sx == 1 && $sy == 1)
+    {
+    $x->{value} = $CALC->_xor($x->{value},$y->{value});
+    return $x->round(@r);
+    }
+
+  # if lib can do negative values, let it handle this
+  if ($CAN{signed_xor})
+    {
+    $x->{value} = $CALC->_signed_xor($x->{value},$y->{value},$sx,$sy);
+    return $x->round(@r);
+    }
+
+  require $EMU_LIB;
+  __emu_bxor($self,$x,$y,$sx,$sy,@r);
+  }
+
+sub length
+  {
+  my ($self,$x) = ref($_[0]) ? (undef,$_[0]) : objectify(1,@_);
+
+  my $e = $CALC->_len($x->{value});
+  wantarray ? ($e,0) : $e;
+  }
+
+sub digit
+  {
+  # return the nth decimal digit, negative values count backward, 0 is right
+  my ($self,$x,$n) = ref($_[0]) ? (undef,@_) : objectify(1,@_);
+
+  $n = $n->numify() if ref($n);
+  $CALC->_digit($x->{value},$n||0);
+  }
+
+sub _trailing_zeros
+  {
+  # return the amount of trailing zeros in $x (as scalar)
+  my $x = shift;
+  $x = $class->new($x) unless ref $x;
+
+  return 0 if $x->{sign} !~ /^[+-]$/;   # NaN, inf, -inf etc
+
+  $CALC->_zeros($x->{value});           # must handle odd values, 0 etc
+  }
+
+sub bsqrt
+  {
+  # calculate square root of $x
+  my ($self,$x,@r) = ref($_[0]) ? (undef,@_) : objectify(1,@_);
+
+  return $x if $x->modify('bsqrt');
+
+  return $x->bnan() if $x->{sign} !~ /^\+/;     # -x or -inf or NaN => NaN
+  return $x if $x->{sign} eq '+inf';            # sqrt(+inf) == inf
+
+  return $upgrade->bsqrt($x,@r) if defined $upgrade;
+
+  $x->{value} = $CALC->_sqrt($x->{value});
+  $x->round(@r);
+  }
+
+sub broot
+  {
+  # calculate $y'th root of $x
+
+  # set up parameters
+  my ($self,$x,$y,@r) = (ref($_[0]),@_);
+
+  $y = $self->new(2) unless defined $y;
+
+  # objectify is costly, so avoid it
+  if ((!ref($x)) || (ref($x) ne ref($y)))
+    {
+    ($self,$x,$y,@r) = objectify(2,$self || $class,@_);
+    }
+
+  return $x if $x->modify('broot');
+
+  # NaN handling: $x ** 1/0, x or y NaN, or y inf/-inf or y == 0
+  return $x->bnan() if $x->{sign} !~ /^\+/ || $y->is_zero() ||
+         $y->{sign} !~ /^\+$/;
+
+  return $x->round(@r)
+    if $x->is_zero() || $x->is_one() || $x->is_inf() || $y->is_one();
+
+  return $upgrade->new($x)->broot($upgrade->new($y),@r) if defined $upgrade;
+
+  $x->{value} = $CALC->_root($x->{value},$y->{value});
+  $x->round(@r);
+  }
+
+sub exponent
+  {
+  # return a copy of the exponent (here always 0, NaN or 1 for $m == 0)
+  my ($self,$x) = ref($_[0]) ? (ref($_[0]),$_[0]) : objectify(1,@_);
+
+  if ($x->{sign} !~ /^[+-]$/)
+    {
+    my $s = $x->{sign}; $s =~ s/^[+-]//;  # NaN, -inf,+inf => NaN or inf
+    return $self->new($s);
+    }
+  return $self->bzero() if $x->is_zero();
+
+  # 12300 => 2 trailing zeros => exponent is 2
+  $self->new( $CALC->_zeros($x->{value}) );
+  }
+
+sub mantissa
+  {
+  # return the mantissa (compatible to Math::BigFloat, e.g. reduced)
+  my ($self,$x) = ref($_[0]) ? (ref($_[0]),$_[0]) : objectify(1,@_);
+
+  if ($x->{sign} !~ /^[+-]$/)
+    {
+    # for NaN, +inf, -inf: keep the sign
+    return $self->new($x->{sign});
+    }
+  my $m = $x->copy(); delete $m->{_p}; delete $m->{_a};
+
+  # that's a bit inefficient:
+  my $zeros = $CALC->_zeros($m->{value});
+  $m->brsft($zeros,10) if $zeros != 0;
+  $m;
+  }
+
+sub parts
+  {
+  # return a copy of both the exponent and the mantissa
+  my ($self,$x) = ref($_[0]) ? (undef,$_[0]) : objectify(1,@_);
+
+  ($x->mantissa(),$x->exponent());
+  }
+
+##############################################################################
+# rounding functions
+
+sub bfround
+  {
+  # precision: round to the $Nth digit left (+$n) or right (-$n) from the '.'
+  # $n == 0 || $n == 1 => round to integer
+  my $x = shift; my $self = ref($x) || $x; $x = $self->new($x) unless ref $x;
+
+  my ($scale,$mode) = $x->_scale_p(@_);
+
+  return $x if !defined $scale || $x->modify('bfround');        # no-op
+
+  # no-op for BigInts if $n <= 0
+  $x->bround( $x->length()-$scale, $mode) if $scale > 0;
+
+  delete $x->{_a};      # delete to save memory
+  $x->{_p} = $scale;    # store new _p
+  $x;
+  }
+
+sub _scan_for_nonzero
+  {
+  # internal, used by bround() to scan for non-zeros after a '5'
+  my ($x,$pad,$xs,$len) = @_;
+
+  return 0 if $len == 1;                # "5" is trailed by invisible zeros
+  my $follow = $pad - 1;
+  return 0 if $follow > $len || $follow < 1;
+
+  # use the string form to check whether only '0's follow or not
+  substr ($xs,-$follow) =~ /[^0]/ ? 1 : 0;
+  }
+
+sub fround
+  {
+  # Exists to make life easier for switch between MBF and MBI (should we
+  # autoload fxxx() like MBF does for bxxx()?)
+  my $x = shift; $x = $class->new($x) unless ref $x;
+  $x->bround(@_);
+  }
+
+sub bround
+  {
+  # accuracy: +$n preserve $n digits from left,
+  #           -$n preserve $n digits from right (f.i. for 0.1234 style in MBF)
+  # no-op for $n == 0
+  # and overwrite the rest with 0's, return normalized number
+  # do not return $x->bnorm(), but $x
+
+  my $x = shift; $x = $class->new($x) unless ref $x;
+  my ($scale,$mode) = $x->_scale_a(@_);
+  return $x if !defined $scale || $x->modify('bround'); # no-op
+
+  if ($x->is_zero() || $scale == 0)
+    {
+    $x->{_a} = $scale if !defined $x->{_a} || $x->{_a} > $scale; # 3 > 2
+    return $x;
+    }
+  return $x if $x->{sign} !~ /^[+-]$/;          # inf, NaN
+
+  # we have fewer digits than we want to scale to
+  my $len = $x->length();
+  # convert $scale to a scalar in case it is an object (put's a limit on the
+  # number length, but this would already limited by memory constraints), makes
+  # it faster
+  $scale = $scale->numify() if ref ($scale);
+
+  # scale < 0, but > -len (not >=!)
+  if (($scale < 0 && $scale < -$len-1) || ($scale >= $len))
+    {
+    $x->{_a} = $scale if !defined $x->{_a} || $x->{_a} > $scale; # 3 > 2
+    return $x;
+    }
+
+  # count of 0's to pad, from left (+) or right (-): 9 - +6 => 3, or |-6| => 6
+  my ($pad,$digit_round,$digit_after);
+  $pad = $len - $scale;
+  $pad = abs($scale-1) if $scale < 0;
+
+  # do not use digit(), it is very costly for binary => decimal
+  # getting the entire string is also costly, but we need to do it only once
+  my $xs = $CALC->_str($x->{value});
+  my $pl = -$pad-1;
+
+  # pad:   123: 0 => -1, at 1 => -2, at 2 => -3, at 3 => -4
+  # pad+1: 123: 0 => 0,  at 1 => -1, at 2 => -2, at 3 => -3
+  $digit_round = '0'; $digit_round = substr($xs,$pl,1) if $pad <= $len;
+  $pl++; $pl ++ if $pad >= $len;
+  $digit_after = '0'; $digit_after = substr($xs,$pl,1) if $pad > 0;
+
+  # in case of 01234 we round down, for 6789 up, and only in case 5 we look
+  # closer at the remaining digits of the original $x, remember decision
+  my $round_up = 1;                                     # default round up
+  $round_up -- if
+    ($mode eq 'trunc')                          ||      # trunc by round down
+    ($digit_after =~ /[01234]/)                 ||      # round down anyway,
+                                                        # 6789 => round up
+    ($digit_after eq '5')                       &&      # not 5000...0000
+    ($x->_scan_for_nonzero($pad,$xs,$len) == 0)         &&
+    (
+     ($mode eq 'even') && ($digit_round =~ /[24680]/) ||
+     ($mode eq 'odd')  && ($digit_round =~ /[13579]/) ||
+     ($mode eq '+inf') && ($x->{sign} eq '-')   ||
+     ($mode eq '-inf') && ($x->{sign} eq '+')   ||
+     ($mode eq 'zero')          # round down if zero, sign adjusted below
+    );
+  my $put_back = 0;                                     # not yet modified
+
+  if (($pad > 0) && ($pad <= $len))
+    {
+    substr($xs,-$pad,$pad) = '0' x $pad;                # replace with '00...'
+    $put_back = 1;                                      # need to put back
+    }
+  elsif ($pad > $len)
+    {
+    $x->bzero();                                        # round to '0'
+    }
+
+  if ($round_up)                                        # what gave test above?
+    {
+    $put_back = 1;                                      # need to put back
+    $pad = $len, $xs = '0' x $pad if $scale < 0;        # tlr: whack 0.51=>1.0
+
+    # we modify directly the string variant instead of creating a number and
+    # adding it, since that is faster (we already have the string)
+    my $c = 0; $pad ++;                         # for $pad == $len case
+    while ($pad <= $len)
+      {
+      $c = substr($xs,-$pad,1) + 1; $c = '0' if $c eq '10';
+      substr($xs,-$pad,1) = $c; $pad++;
+      last if $c != 0;                          # no overflow => early out
+      }
+    $xs = '1'.$xs if $c == 0;
+
+    }
+  $x->{value} = $CALC->_new($xs) if $put_back == 1;     # put back, if needed
+
+  $x->{_a} = $scale if $scale >= 0;
+  if ($scale < 0)
+    {
+    $x->{_a} = $len+$scale;
+    $x->{_a} = 0 if $scale < -$len;
+    }
+  $x;
+  }
+
+sub bfloor
+  {
+  # round towards minus infinity; no-op since it's already integer
+  my ($self,$x,@r) = ref($_[0]) ? (undef,@_) : objectify(1,@_);
+
+  $x->round(@r);
+  }
+
+sub bceil
+  {
+  # round towards plus infinity; no-op since it's already int
+  my ($self,$x,@r) = ref($_[0]) ? (undef,@_) : objectify(1,@_);
+
+  $x->round(@r);
+  }
+
+sub bint {
+    # round towards zero; no-op since it's already integer
+    my ($self,$x,@r) = ref($_[0]) ? (undef,@_) : objectify(1,@_);
+
+    $x->round(@r);
+}
+
+sub as_number
+  {
+  # An object might be asked to return itself as bigint on certain overloaded
+  # operations. This does exactly this, so that sub classes can simple inherit
+  # it or override with their own integer conversion routine.
+  $_[0]->copy();
+  }
+
+sub as_hex
+  {
+  # return as hex string, with prefixed 0x
+  my $x = shift; $x = $class->new($x) if !ref($x);
+
+  return $x->bstr() if $x->{sign} !~ /^[+-]$/;  # inf, nan etc
+
+  my $s = '';
+  $s = $x->{sign} if $x->{sign} eq '-';
+  $s . $CALC->_as_hex($x->{value});
+  }
+
+sub as_bin
+  {
+  # return as binary string, with prefixed 0b
+  my $x = shift; $x = $class->new($x) if !ref($x);
+
+  return $x->bstr() if $x->{sign} !~ /^[+-]$/;  # inf, nan etc
+
+  my $s = ''; $s = $x->{sign} if $x->{sign} eq '-';
+  return $s . $CALC->_as_bin($x->{value});
+  }
+
+sub as_oct
+  {
+  # return as octal string, with prefixed 0
+  my $x = shift; $x = $class->new($x) if !ref($x);
+
+  return $x->bstr() if $x->{sign} !~ /^[+-]$/;  # inf, nan etc
+
+  my $oct = $CALC->_as_oct($x->{value});
+  return $x->{sign} eq '-' ? "-$oct" : $oct;
+  }
+
+##############################################################################
+# private stuff (internal use only)
+
+sub objectify {
+    # Convert strings and "foreign objects" to the objects we want.
+
+    # The first argument, $count, is the number of following arguments that
+    # objectify() looks at and converts to objects. The first is a classname.
+    # If the given count is 0, all arguments will be used.
+
+    # After the count is read, objectify obtains the name of the class to which
+    # the following arguments are converted. If the second argument is a
+    # reference, use the reference type as the class name. Otherwise, if it is
+    # a string that looks like a class name, use that. Otherwise, use $class.
+
+    # Caller:                        Gives us:
+    #
+    # $x->badd(1);                => ref x, scalar y
+    # Class->badd(1,2);           => classname x (scalar), scalar x, scalar y
+    # Class->badd(Class->(1),2);  => classname x (scalar), ref x, scalar y
+    # Math::BigInt::badd(1,2);    => scalar x, scalar y
+
+    # A shortcut for the common case $x->unary_op():
+
+    return (ref($_[1]), $_[1]) if (@_ == 2) && ($_[0]||0 == 1) && ref($_[1]);
+
+    # Check the context.
+
+    unless (wantarray) {
+        require Carp;
+        Carp::croak ("${class}::objectify() needs list context");
+    }
+
+    # Get the number of arguments to objectify.
+
+    my $count = shift;
+    $count ||= @_;
+
+    # Initialize the output array.
+
+    my @a = @_;
+
+    # If the first argument is a reference, use that reference type as our
+    # class name. Otherwise, if the first argument looks like a class name,
+    # then use that as our class name. Otherwise, use the default class name.
+
+    {
+        if (ref($a[0])) {               # reference?
+            unshift @a, ref($a[0]);
+            last;
+        }
+        if ($a[0] =~ /^[A-Z].*::/) {    # string with class name?
+            last;
+        }
+        unshift @a, $class;             # default class name
+    }
+
+    no strict 'refs';
+
+    # What we upgrade to, if anything.
+
+    my $up = ${"$a[0]::upgrade"};
+
+    # Disable downgrading, because Math::BigFloat -> foo('1.0','2.0') needs
+    # floats.
+
+    my $down;
+    if (defined ${"$a[0]::downgrade"}) {
+        $down = ${"$a[0]::downgrade"};
+        ${"$a[0]::downgrade"} = undef;
+    }
+
+    for my $i (1 .. $count) {
+        my $ref = ref $a[$i];
+
+        # Perl scalars are fed to the appropriate constructor.
+
+        unless ($ref) {
+            $a[$i] = $a[0] -> new($a[$i]);
+            next;
+        }
+
+        # If it is an object of the right class, all is fine.
+
+        next if $ref -> isa($a[0]);
+
+        # Upgrading is OK, so skip further tests if the argument is upgraded.
+
+        if (defined $up && $ref -> isa($up)) {
+            next;
+        }
+
+        # See if we can call one of the as_xxx() methods. We don't know whether
+        # the as_xxx() method returns an object or a scalar, so re-check
+        # afterwards.
+
+        my $recheck = 0;
+
+        if ($a[0] -> isa('Math::BigInt')) {
+            if ($a[$i] -> can('as_int')) {
+                $a[$i] = $a[$i] -> as_int();
+                $recheck = 1;
+            } elsif ($a[$i] -> can('as_number')) {
+                $a[$i] = $a[$i] -> as_number();
+                $recheck = 1;
+            }
+        }
+
+        elsif ($a[0] -> isa('Math::BigFloat')) {
+            if ($a[$i] -> can('as_float')) {
+                $a[$i] = $a[$i] -> as_float();
+                $recheck = $1;
+            }
+        }
+
+        # If we called one of the as_xxx() methods, recheck.
+
+        if ($recheck) {
+            $ref = ref($a[$i]);
+
+            # Perl scalars are fed to the appropriate constructor.
+
+            unless ($ref) {
+                $a[$i] = $a[0] -> new($a[$i]);
+                next;
+            }
+
+            # If it is an object of the right class, all is fine.
+
+            next if $ref -> isa($a[0]);
+        }
+
+        # Last resort.
+
+        $a[$i] = $a[0] -> new($a[$i]);
+    }
+
+    # Reset the downgrading.
+
+    ${"$a[0]::downgrade"} = $down;
+
+    return @a;
+}
+
+sub _register_callback
+  {
+  my ($class,$callback) = @_;
+
+  if (ref($callback) ne 'CODE')
+    {
+    require Carp;
+    Carp::croak ("$callback is not a coderef");
+    }
+  $CALLBACKS{$class} = $callback;
+  }
+
+sub import
+  {
+  my $self = shift;
+
+  $IMPORT++;                            # remember we did import()
+  my @a; my $l = scalar @_;
+  my $warn_or_die = 0;                  # 0 - no warn, 1 - warn, 2 - die
+  for ( my $i = 0; $i < $l ; $i++ )
+    {
+    if ($_[$i] eq ':constant')
+      {
+      # this causes overlord er load to step in
+      overload::constant
+        integer => sub { $self->new(shift) },
+        binary => sub { $self->new(shift) };
+      }
+    elsif ($_[$i] eq 'upgrade')
+      {
+      # this causes upgrading
+      $upgrade = $_[$i+1];              # or undef to disable
+      $i++;
+      }
+    elsif ($_[$i] =~ /^(lib|try|only)\z/)
+      {
+      # this causes a different low lib to take care...
+      $CALC = $_[$i+1] || '';
+      # lib => 1 (warn on fallback), try => 0 (no warn), only => 2 (die on fallback)
+      $warn_or_die = 1 if $_[$i] eq 'lib';
+      $warn_or_die = 2 if $_[$i] eq 'only';
+      $i++;
+      }
+    else
+      {
+      push @a, $_[$i];
+      }
+    }
+  # any non :constant stuff is handled by our parent, Exporter
+  if (@a > 0)
+    {
+    require Exporter;
+
+    $self->SUPER::import(@a);                   # need it for subclasses
+    $self->export_to_level(1,$self,@a);         # need it for MBF
+    }
+
+  # try to load core math lib
+  my @c = split /\s*,\s*/,$CALC;
+  foreach (@c)
+    {
+    $_ =~ tr/a-zA-Z0-9://cd;                    # limit to sane characters
+    }
+  push @c, \'Calc'                              # if all fail, try these
+    if $warn_or_die < 2;                        # but not for "only"
+  $CALC = '';                                   # signal error
+  foreach my $l (@c)
+    {
+    # fallback libraries are "marked" as \'string', extract string if nec.
+    my $lib = $l; $lib = $$l if ref($l);
+
+    next if ($lib || '') eq '';
+    $lib = 'Math::BigInt::'.$lib if $lib !~ /^Math::BigInt/i;
+    $lib =~ s/\.pm$//;
+    if ($] < 5.006)
+      {
+      # Perl < 5.6.0 dies with "out of memory!" when eval("") and ':constant' is
+      # used in the same script, or eval("") inside import().
+      my @parts = split /::/, $lib;             # Math::BigInt => Math BigInt
+      my $file = pop @parts; $file .= '.pm';    # BigInt => BigInt.pm
+      require File::Spec;
+      $file = File::Spec->catfile (@parts, $file);
+      eval { require "$file"; $lib->import( @c ); }
+      }
+    else
+      {
+      eval "use $lib qw/@c/;";
+      }
+    if ($@ eq '')
+      {
+      my $ok = 1;
+      # loaded it ok, see if the api_version() is high enough
+      if ($lib->can('api_version') && $lib->api_version() >= 1.0)
+        {
+        $ok = 0;
+        # api_version matches, check if it really provides anything we need
+        for my $method (qw/
+                one two ten
+                str num
+                add mul div sub dec inc
+                acmp len digit is_one is_zero is_even is_odd
+                is_two is_ten
+                zeros new copy check
+                from_hex from_oct from_bin as_hex as_bin as_oct
+                rsft lsft xor and or
+                mod sqrt root fac pow modinv modpow log_int gcd
+         /)
+          {
+          if (!$lib->can("_$method"))
+            {
+            if (($WARN{$lib}||0) < 2)
+              {
+              require Carp;
+              Carp::carp ("$lib is missing method '_$method'");
+              $WARN{$lib} = 1;          # still warn about the lib
+              }
+            $ok++; last;
+            }
+          }
+        }
+      if ($ok == 0)
+        {
+        $CALC = $lib;
+        if ($warn_or_die > 0 && ref($l))
+          {
+          require Carp;
+          my $msg =
+        "Math::BigInt: couldn't load specified math lib(s), fallback to $lib";
+          Carp::carp ($msg) if $warn_or_die == 1;
+          Carp::croak ($msg) if $warn_or_die == 2;
+          }
+        last;                   # found a usable one, break
+        }
+      else
+        {
+        if (($WARN{$lib}||0) < 2)
+          {
+          my $ver = eval "\$$lib\::VERSION" || 'unknown';
+          require Carp;
+          Carp::carp ("Cannot load outdated $lib v$ver, please upgrade");
+          $WARN{$lib} = 2;              # never warn again
+          }
+        }
+      }
+    }
+  if ($CALC eq '')
+    {
+    require Carp;
+    if ($warn_or_die == 2)
+      {
+      Carp::croak(
+          "Couldn't load specified math lib(s) and fallback disallowed");
+      }
+    else
+      {
+      Carp::croak(
+          "Couldn't load any math lib(s), not even fallback to Calc.pm");
+      }
+    }
+
+  # notify callbacks
+  foreach my $class (keys %CALLBACKS)
+    {
+    &{$CALLBACKS{$class}}($CALC);
+    }
+
+  # Fill $CAN with the results of $CALC->can(...) for emulating lower math lib
+  # functions
+
+  %CAN = ();
+  for my $method (qw/ signed_and signed_or signed_xor /)
+    {
+    $CAN{$method} = $CALC->can("_$method") ? 1 : 0;
+    }
+
+  # import done
+  }
+
+# Create a Math::BigInt from a hexadecimal string.
+
+sub from_hex {
+    my $self    = shift;
+    my $selfref = ref $self;
+    my $class   = $selfref || $self;
+
+    my $str = shift;
+
+    # If called as a class method, initialize a new object.
+
+    $self = $class -> bzero() unless $selfref;
+
+    if ($str =~ s/
+                     ^
+                     ( [+-]? )
+                     (0?x)?
+                     (
+                         [0-9a-fA-F]*
+                         ( _ [0-9a-fA-F]+ )*
+                     )
+                     $
+                 //x)
+    {
+        # Get a "clean" version of the string, i.e., non-emtpy and with no
+        # underscores or invalid characters.
+
+        my $sign = $1;
+        my $chrs = $3;
+        $chrs =~ tr/_//d;
+        $chrs = '0' unless CORE::length $chrs;
+
+        # The library method requires a prefix.
+
+        $self->{value} = $CALC->_from_hex('0x' . $chrs);
+
+        # Place the sign.
+
+        if ($sign eq '-' && ! $CALC->_is_zero($self->{value})) {
+            $self->{sign} = '-';
+        }
+
+        return $self;
+    }
+
+    # CORE::hex() parses as much as it can, and ignores any trailing garbage.
+    # For backwards compatibility, we return NaN.
+
+    return $self->bnan();
+}
+
+# Create a Math::BigInt from an octal string.
+
+sub from_oct {
+    my $self    = shift;
+    my $selfref = ref $self;
+    my $class   = $selfref || $self;
+
+    my $str = shift;
+
+    # If called as a class method, initialize a new object.
+
+    $self = $class -> bzero() unless $selfref;
+
+    if ($str =~ s/
+                     ^
+                     ( [+-]? )
+                     (
+                         [0-7]*
+                         ( _ [0-7]+ )*
+                     )
+                     $
+                 //x)
+    {
+        # Get a "clean" version of the string, i.e., non-emtpy and with no
+        # underscores or invalid characters.
+
+        my $sign = $1;
+        my $chrs = $2;
+        $chrs =~ tr/_//d;
+        $chrs = '0' unless CORE::length $chrs;
+
+        # The library method requires a prefix.
+
+        $self->{value} = $CALC->_from_oct('0' . $chrs);
+
+        # Place the sign.
+
+        if ($sign eq '-' && ! $CALC->_is_zero($self->{value})) {
+            $self->{sign} = '-';
+        }
+
+        return $self;
+    }
+
+    # CORE::oct() parses as much as it can, and ignores any trailing garbage.
+    # For backwards compatibility, we return NaN.
+
+    return $self->bnan();
+}
+
+# Create a Math::BigInt from a binary string.
+
+sub from_bin {
+    my $self    = shift;
+    my $selfref = ref $self;
+    my $class   = $selfref || $self;
+
+    my $str = shift;
+
+    # If called as a class method, initialize a new object.
+
+    $self = $class -> bzero() unless $selfref;
+
+    if ($str =~ s/
+                     ^
+                     ( [+-]? )
+                     (0?b)?
+                     (
+                         [01]*
+                         ( _ [01]+ )*
+                     )
+                     $
+                 //x)
+    {
+        # Get a "clean" version of the string, i.e., non-emtpy and with no
+        # underscores or invalid characters.
+
+        my $sign = $1;
+        my $chrs = $3;
+        $chrs =~ tr/_//d;
+        $chrs = '0' unless CORE::length $chrs;
+
+        # The library method requires a prefix.
+
+        $self->{value} = $CALC->_from_bin('0b' . $chrs);
+
+        # Place the sign.
+
+        if ($sign eq '-' && ! $CALC->_is_zero($self->{value})) {
+            $self->{sign} = '-';
+        }
+
+        return $self;
+    }
+
+    # For consistency with from_hex() and from_oct(), we return NaN when the
+    # input is invalid.
+
+    return $self->bnan();
+}
+
+sub _split_dec_string {
+    my $str = shift;
+
+    if ($str =~ s/
+                     ^
+
+                     # leading whitespace
+                     ( \s* )
+
+                     # optional sign
+                     ( [+-]? )
+
+                     # significand
+                     (
+                         \d+ (?: _ \d+ )*
+                         (?:
+                             \.
+                             (?: \d+ (?: _ \d+ )* )?
+                         )?
+                     |
+                         \.
+                         \d+ (?: _ \d+ )*
+                     )
+
+                     # optional exponent
+                     (?:
+                         [Ee]
+                         ( [+-]? )
+                         ( \d+ (?: _ \d+ )* )
+                     )?
+
+                     # trailing stuff
+                     ( \D .*? )?
+
+                     \z
+                 //x)
+    {
+        my $leading         = $1;
+        my $significand_sgn = $2 || '+';
+        my $significand_abs = $3;
+        my $exponent_sgn    = $4 || '+';
+        my $exponent_abs    = $5 || '0';
+        my $trailing        = $6;
+
+        # Remove underscores and leading zeros.
+
+        $significand_abs =~ tr/_//d;
+        $exponent_abs    =~ tr/_//d;
+
+        $significand_abs =~ s/^0+(.)/$1/;
+        $exponent_abs    =~ s/^0+(.)/$1/;
+
+        # If the significand contains a dot, remove it and adjust the exponent
+        # accordingly. E.g., "1234.56789e+3" -> "123456789e-2"
+
+        my $idx = index $significand_abs, '.';
+        if ($idx > -1) {
+            $significand_abs =~ s/0+\z//;
+            substr($significand_abs, $idx, 1) = '';
+            my $exponent = $exponent_sgn . $exponent_abs;
+            $exponent .= $idx - CORE::length($significand_abs);
+            $exponent_abs = abs $exponent;
+            $exponent_sgn = $exponent < 0 ? '-' : '+';
+        }
+
+        return($leading,
+               $significand_sgn, $significand_abs,
+               $exponent_sgn, $exponent_abs,
+               $trailing);
+    }
+
+    return undef;
+}
+
+sub _split
+  {
+  # input: num_str; output: undef for invalid or
+  # (\$mantissa_sign,\$mantissa_value,\$mantissa_fraction,
+  # \$exp_sign,\$exp_value)
+  # Internal, take apart a string and return the pieces.
+  # Strip leading/trailing whitespace, leading zeros, underscore and reject
+  # invalid input.
+  my $x = shift;
+
+  # strip white space at front, also extraneous leading zeros
+  $x =~ s/^\s*([-]?)0*([0-9])/$1$2/g;   # will not strip '  .2'
+  $x =~ s/^\s+//;                       # but this will
+  $x =~ s/\s+$//g;                      # strip white space at end
+
+  # shortcut, if nothing to split, return early
+  if ($x =~ /^[+-]?[0-9]+\z/)
+    {
+    $x =~ s/^([+-])0*([0-9])/$2/; my $sign = $1 || '+';
+    return (\$sign, \$x, \'', \'', \0);
+    }
+
+  # invalid starting char?
+  return if $x !~ /^[+-]?(\.?[0-9]|0b[0-1]|0x[0-9a-fA-F])/;
+
+  return Math::BigInt->from_hex($x) if $x =~ /^[+-]?0x/;        # hex string
+  return Math::BigInt->from_bin($x) if $x =~ /^[+-]?0b/;        # binary string
+
+  # strip underscores between digits
+  $x =~ s/([0-9])_([0-9])/$1$2/g;
+  $x =~ s/([0-9])_([0-9])/$1$2/g;               # do twice for 1_2_3
+
+  # some possible inputs:
+  # 2.1234 # 0.12        # 1          # 1E1 # 2.134E1 # 434E-10 # 1.02009E-2
+  # .2     # 1_2_3.4_5_6 # 1.4E1_2_3  # 1e3 # +.2     # 0e999
+
+  my ($m,$e,$last) = split /[Ee]/,$x;
+  return if defined $last;              # last defined => 1e2E3 or others
+  $e = '0' if !defined $e || $e eq "";
+
+  # sign,value for exponent,mantint,mantfrac
+  my ($es,$ev,$mis,$miv,$mfv);
+  # valid exponent?
+  if ($e =~ /^([+-]?)0*([0-9]+)$/)      # strip leading zeros
+    {
+    $es = $1; $ev = $2;
+    # valid mantissa?
+    return if $m eq '.' || $m eq '';
+    my ($mi,$mf,$lastf) = split /\./,$m;
+    return if defined $lastf;           # lastf defined => 1.2.3 or others
+    $mi = '0' if !defined $mi;
+    $mi .= '0' if $mi =~ /^[\-\+]?$/;
+    $mf = '0' if !defined $mf || $mf eq '';
+    if ($mi =~ /^([+-]?)0*([0-9]+)$/)           # strip leading zeros
+      {
+      $mis = $1||'+'; $miv = $2;
+      return unless ($mf =~ /^([0-9]*?)0*$/);   # strip trailing zeros
+      $mfv = $1;
+      # handle the 0e999 case here
+      $ev = 0 if $miv eq '0' && $mfv eq '';
+      return (\$mis,\$miv,\$mfv,\$es,\$ev);
+      }
+    }
+  return; # NaN, not a number
+  }
+
+##############################################################################
+# internal calculation routines (others are in Math::BigInt::Calc etc)
+
+sub __lcm
+  {
+  # (BINT or num_str, BINT or num_str) return BINT
+  # does modify first argument
+  # LCM
+
+  my ($x,$ty) = @_;
+  return $x->bnan() if ($x->{sign} eq $nan) || ($ty->{sign} eq $nan);
+  my $method = ref($x) . '::bgcd';
+  no strict 'refs';
+  $x * $ty / &$method($x,$ty);
+  }
+
+###############################################################################
+# trigonometric functions
+
+sub bpi
+  {
+  # Calculate PI to N digits. Unless upgrading is in effect, returns the
+  # result truncated to an integer, that is, always returns '3'.
+  my ($self,$n) = @_;
+  if (@_ == 1)
+    {
+    # called like Math::BigInt::bpi(10);
+    $n = $self; $self = $class;
+    }
+  $self = ref($self) if ref($self);
+
+  return $upgrade->new($n) if defined $upgrade;
+
+  # hard-wired to "3"
+  $self->new(3);
+  }
+
+sub bcos
+  {
+  # Calculate cosinus(x) to N digits. Unless upgrading is in effect, returns the
+  # result truncated to an integer.
+  my ($self,$x,@r) = ref($_[0]) ? (undef,@_) : objectify(1,@_);
+
+  return $x if $x->modify('bcos');
+
+  return $x->bnan() if $x->{sign} !~ /^[+-]\z/; # -inf +inf or NaN => NaN
+
+  return $upgrade->new($x)->bcos(@r) if defined $upgrade;
+
+  require Math::BigFloat;
+  # calculate the result and truncate it to integer
+  my $t = Math::BigFloat->new($x)->bcos(@r)->as_int();
+
+  $x->bone() if $t->is_one();
+  $x->bzero() if $t->is_zero();
+  $x->round(@r);
+  }
+
+sub bsin
+  {
+  # Calculate sinus(x) to N digits. Unless upgrading is in effect, returns the
+  # result truncated to an integer.
+  my ($self,$x,@r) = ref($_[0]) ? (undef,@_) : objectify(1,@_);
+
+  return $x if $x->modify('bsin');
+
+  return $x->bnan() if $x->{sign} !~ /^[+-]\z/; # -inf +inf or NaN => NaN
+
+  return $upgrade->new($x)->bsin(@r) if defined $upgrade;
+
+  require Math::BigFloat;
+  # calculate the result and truncate it to integer
+  my $t = Math::BigFloat->new($x)->bsin(@r)->as_int();
+
+  $x->bone() if $t->is_one();
+  $x->bzero() if $t->is_zero();
+  $x->round(@r);
+  }
+
+sub batan2
+  {
+  # calculate arcus tangens of ($y/$x)
+
+  # set up parameters
+  my ($self,$y,$x,@r) = (ref($_[0]),@_);
+  # objectify is costly, so avoid it
+  if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1])))
+    {
+    ($self,$y,$x,@r) = objectify(2,@_);
+    }
+
+  return $y if $y->modify('batan2');
+
+  return $y->bnan() if ($y->{sign} eq $nan) || ($x->{sign} eq $nan);
+
+  # Y    X
+  # != 0 -inf result is +- pi
+  if ($x->is_inf() || $y->is_inf())
+    {
+    # upgrade to BigFloat etc.
+    return $upgrade->new($y)->batan2($upgrade->new($x),@r) if defined $upgrade;
+    if ($y->is_inf())
+      {
+      if ($x->{sign} eq '-inf')
+        {
+        # calculate 3 pi/4 => 2.3.. => 2
+        $y->bone( substr($y->{sign},0,1) );
+        $y->bmul($self->new(2));
+        }
+      elsif ($x->{sign} eq '+inf')
+        {
+        # calculate pi/4 => 0.7 => 0
+        $y->bzero();
+        }
+      else
+        {
+        # calculate pi/2 => 1.5 => 1
+        $y->bone( substr($y->{sign},0,1) );
+        }
+      }
+    else
+      {
+      if ($x->{sign} eq '+inf')
+        {
+        # calculate pi/4 => 0.7 => 0
+        $y->bzero();
+        }
+      else
+        {
+        # PI => 3.1415.. => 3
+        $y->bone( substr($y->{sign},0,1) );
+        $y->bmul($self->new(3));
+        }
+      }
+    return $y;
+    }
+
+  return $upgrade->new($y)->batan2($upgrade->new($x),@r) if defined $upgrade;
+
+  require Math::BigFloat;
+  my $r = Math::BigFloat->new($y)
+                        ->batan2(Math::BigFloat->new($x),@r)
+                        ->as_int();
+
+  $x->{value} = $r->{value};
+  $x->{sign} = $r->{sign};
+
+  $x;
+  }
+
+sub batan
+  {
+  # Calculate arcus tangens of x to N digits. Unless upgrading is in effect, returns the
+  # result truncated to an integer.
+  my ($self,$x,@r) = ref($_[0]) ? (undef,@_) : objectify(1,@_);
+
+  return $x if $x->modify('batan');
+
+  return $x->bnan() if $x->{sign} !~ /^[+-]\z/; # -inf +inf or NaN => NaN
+
+  return $upgrade->new($x)->batan(@r) if defined $upgrade;
+
+  # calculate the result and truncate it to integer
+  my $t = Math::BigFloat->new($x)->batan(@r);
+
+  $x->{value} = $CALC->_new( $x->as_int()->bstr() );
+  $x->round(@r);
+  }
+
+###############################################################################
+# this method returns 0 if the object can be modified, or 1 if not.
+# We use a fast constant sub() here, to avoid costly calls. Subclasses
+# may override it with special code (f.i. Math::BigInt::Constant does so)
+
+sub modify () { 0; }
+
+1;
+__END__
+
+=pod
+
+=head1 NAME
+
+Math::BigInt - Arbitrary size integer/float math package
+
+=head1 SYNOPSIS
+
+  use Math::BigInt;
+
+  # or make it faster with huge numbers: install (optional)
+  # Math::BigInt::GMP and always use (it will fall back to
+  # pure Perl if the GMP library is not installed):
+  # (See also the L<MATH LIBRARY> section!)
+
+  # will warn if Math::BigInt::GMP cannot be found
+  use Math::BigInt lib => 'GMP';
+
+  # to suppress the warning use this:
+  # use Math::BigInt try => 'GMP';
+
+  # dies if GMP cannot be loaded:
+  # use Math::BigInt only => 'GMP';
+
+  my $str = '1234567890';
+  my @values = (64,74,18);
+  my $n = 1; my $sign = '-';
+
+  # Number creation
+  my $x = Math::BigInt->new($str);      # defaults to 0
+  my $y = $x->copy();                   # make a true copy
+  my $nan  = Math::BigInt->bnan();      # create a NotANumber
+  my $zero = Math::BigInt->bzero();     # create a +0
+  my $inf = Math::BigInt->binf();       # create a +inf
+  my $inf = Math::BigInt->binf('-');    # create a -inf
+  my $one = Math::BigInt->bone();       # create a +1
+  my $mone = Math::BigInt->bone('-');   # create a -1
+
+  my $pi = Math::BigInt->bpi();         # returns '3'
+                                        # see Math::BigFloat::bpi()
+
+  $h = Math::BigInt->new('0x123');      # from hexadecimal
+  $b = Math::BigInt->new('0b101');      # from binary
+  $o = Math::BigInt->from_oct('0101');  # from octal
+  $h = Math::BigInt->from_hex('cafe');  # from hexadecimal
+  $b = Math::BigInt->from_bin('0101');  # from binary
+
+  # Testing (don't modify their arguments)
+  # (return true if the condition is met, otherwise false)
+
+  $x->is_zero();        # if $x is +0
+  $x->is_nan();         # if $x is NaN
+  $x->is_one();         # if $x is +1
+  $x->is_one('-');      # if $x is -1
+  $x->is_odd();         # if $x is odd
+  $x->is_even();        # if $x is even
+  $x->is_pos();         # if $x > 0
+  $x->is_neg();         # if $x < 0
+  $x->is_inf($sign);    # if $x is +inf, or -inf (sign is default '+')
+  $x->is_int();         # if $x is an integer (not a float)
+
+  # comparing and digit/sign extraction
+  $x->bcmp($y);         # compare numbers (undef,<0,=0,>0)
+  $x->bacmp($y);        # compare absolutely (undef,<0,=0,>0)
+  $x->sign();           # return the sign, either +,- or NaN
+  $x->digit($n);        # return the nth digit, counting from right
+  $x->digit(-$n);       # return the nth digit, counting from left
+
+  # The following all modify their first argument. If you want to pre-
+  # serve $x, use $z = $x->copy()->bXXX($y); See under L<CAVEATS> for
+  # why this is necessary when mixing $a = $b assignments with non-over-
+  # loaded math.
+
+  $x->bzero();          # set $x to 0
+  $x->bnan();           # set $x to NaN
+  $x->bone();           # set $x to +1
+  $x->bone('-');        # set $x to -1
+  $x->binf();           # set $x to inf
+  $x->binf('-');        # set $x to -inf
+
+  $x->bneg();           # negation
+  $x->babs();           # absolute value
+  $x->bsgn();           # sign function (-1, 0, 1, or NaN)
+  $x->bnorm();          # normalize (no-op in BigInt)
+  $x->bnot();           # two's complement (bit wise not)
+  $x->binc();           # increment $x by 1
+  $x->bdec();           # decrement $x by 1
+
+  $x->badd($y);         # addition (add $y to $x)
+  $x->bsub($y);         # subtraction (subtract $y from $x)
+  $x->bmul($y);         # multiplication (multiply $x by $y)
+  $x->bdiv($y);         # divide, set $x to quotient
+                        # return (quo,rem) or quo if scalar
+
+  $x->bmuladd($y,$z);   # $x = $x * $y + $z
+
+  $x->bmod($y);         # modulus (x % y)
+  $x->bmodpow($y,$mod); # modular exponentiation (($x ** $y) % $mod)
+  $x->bmodinv($mod);    # modular multiplicative inverse
+  $x->bpow($y);         # power of arguments (x ** y)
+  $x->blsft($y);        # left shift in base 2
+  $x->brsft($y);        # right shift in base 2
+                        # returns (quo,rem) or quo if in sca-
+                        # lar context
+  $x->blsft($y,$n);     # left shift by $y places in base $n
+  $x->brsft($y,$n);     # right shift by $y places in base $n
+                        # returns (quo,rem) or quo if in sca-
+                        # lar context
+
+  $x->band($y);         # bitwise and
+  $x->bior($y);         # bitwise inclusive or
+  $x->bxor($y);         # bitwise exclusive or
+  $x->bnot();           # bitwise not (two's complement)
+
+  $x->bsqrt();          # calculate square-root
+  $x->broot($y);        # $y'th root of $x (e.g. $y == 3 => cubic root)
+  $x->bfac();           # factorial of $x (1*2*3*4*..$x)
+
+  $x->bnok($y);         # x over y (binomial coefficient n over k)
+
+  $x->blog();           # logarithm of $x to base e (Euler's number)
+  $x->blog($base);      # logarithm of $x to base $base (f.i. 2)
+  $x->bexp();           # calculate e ** $x where e is Euler's number
+
+  $x->round($A,$P,$mode);  # round to accuracy or precision using
+                           # mode $mode
+  $x->bround($n);          # accuracy: preserve $n digits
+  $x->bfround($n);         # $n > 0: round $nth digits,
+                           # $n < 0: round to the $nth digit after the
+                           # dot, no-op for BigInts
+
+  # The following do not modify their arguments in BigInt (are no-ops),
+  # but do so in BigFloat:
+
+  $x->bfloor();            # round towards minus infinity
+  $x->bceil();             # round towards plus infinity
+  $x->bint();              # round towards zero
+
+  # The following do not modify their arguments:
+
+  # greatest common divisor (no OO style)
+  my $gcd = Math::BigInt::bgcd(@values);
+  # lowest common multiple (no OO style)
+  my $lcm = Math::BigInt::blcm(@values);
+
+  $x->length();            # return number of digits in number
+  ($xl,$f) = $x->length(); # length of number and length of fraction
+                           # part, latter is always 0 digits long
+                           # for BigInts
+
+  $x->exponent();         # return exponent as BigInt
+  $x->mantissa();         # return (signed) mantissa as BigInt
+  $x->parts();            # return (mantissa,exponent) as BigInt
+  $x->copy();             # make a true copy of $x (unlike $y = $x;)
+  $x->as_int();           # return as BigInt (in BigInt: same as copy())
+  $x->numify();           # return as scalar (might overflow!)
+
+  # conversion to string (do not modify their argument)
+  $x->bstr();         # normalized string (e.g. '3')
+  $x->bsstr();        # norm. string in scientific notation (e.g. '3E0')
+  $x->as_hex();       # as signed hexadecimal string with prefixed 0x
+  $x->as_bin();       # as signed binary string with prefixed 0b
+  $x->as_oct();       # as signed octal string with prefixed 0
+
+
+  # precision and accuracy (see section about rounding for more)
+  $x->precision();       # return P of $x (or global, if P of $x undef)
+  $x->precision($n);     # set P of $x to $n
+  $x->accuracy();        # return A of $x (or global, if A of $x undef)
+  $x->accuracy($n);      # set A $x to $n
+
+  # Global methods
+  Math::BigInt->precision();   # get/set global P for all BigInt objects
+  Math::BigInt->accuracy();    # get/set global A for all BigInt objects
+  Math::BigInt->round_mode();  # get/set global round mode, one of
+                               # 'even', 'odd', '+inf', '-inf', 'zero',
+                               # 'trunc' or 'common'
+  Math::BigInt->config();      # return hash containing configuration
+
+=head1 DESCRIPTION
+
+All operators (including basic math operations) are overloaded if you
+declare your big integers as
+
+  $i = Math::BigInt -> new('123_456_789_123_456_789');
+
+Operations with overloaded operators preserve the arguments which is
+exactly what you expect.
+
+=head2 Input
+
+Input values to these routines may be any string, that looks like a number
+and results in an integer, including hexadecimal and binary numbers.
+
+Scalars holding numbers may also be passed, but note that non-integer numbers
+may already have lost precision due to the conversion to float. Quote
+your input if you want BigInt to see all the digits:
+
+        $x = Math::BigInt->new(12345678890123456789);   # bad
+        $x = Math::BigInt->new('12345678901234567890'); # good
+
+You can include one underscore between any two digits.
+
+This means integer values like 1.01E2 or even 1000E-2 are also accepted.
+Non-integer values result in NaN.
+
+Hexadecimal (prefixed with "0x") and binary numbers (prefixed with "0b")
+are accepted, too. Please note that octal numbers are not recognized
+by new(), so the following will print "123":
+
+        perl -MMath::BigInt -le 'print Math::BigInt->new("0123")'
+
+To convert an octal number, use from_oct();
+
+        perl -MMath::BigInt -le 'print Math::BigInt->from_oct("0123")'
+
+Currently, Math::BigInt::new() defaults to 0, while Math::BigInt::new('')
+results in 'NaN'. This might change in the future, so use always the following
+explicit forms to get a zero or NaN:
+
+        $zero = Math::BigInt->bzero();
+        $nan = Math::BigInt->bnan();
+
+C<bnorm()> on a BigInt object is now effectively a no-op, since the numbers
+are always stored in normalized form. If passed a string, creates a BigInt
+object from the input.
+
+=head2 Output
+
+Output values are BigInt objects (normalized), except for the methods which
+return a string (see L</SYNOPSIS>).
+
+Some routines (C<is_odd()>, C<is_even()>, C<is_zero()>, C<is_one()>,
+C<is_nan()>, etc.) return true or false, while others (C<bcmp()>, C<bacmp()>)
+return either undef (if NaN is involved), <0, 0 or >0 and are suited for sort.
+
+=head1 METHODS
+
+Each of the methods below (except config(), accuracy() and precision())
+accepts three additional parameters. These arguments C<$A>, C<$P> and C<$R>
+are C<accuracy>, C<precision> and C<round_mode>. Please see the section about
+L</ACCURACY and PRECISION> for more information.
+
+=over
+
+=item config()
+
+    use Data::Dumper;
+
+    print Dumper ( Math::BigInt->config() );
+    print Math::BigInt->config()->{lib},"\n";
+
+Returns a hash containing the configuration, e.g. the version number, lib
+loaded etc. The following hash keys are currently filled in with the
+appropriate information.
+
+    key           Description
+                  Example
+    ============================================================
+    lib           Name of the low-level math library
+                  Math::BigInt::Calc
+    lib_version   Version of low-level math library (see 'lib')
+                  0.30
+    class         The class name of config() you just called
+                  Math::BigInt
+    upgrade       To which class math operations might be
+                  upgraded Math::BigFloat
+    downgrade     To which class math operations might be
+                  downgraded undef
+    precision     Global precision
+                  undef
+    accuracy      Global accuracy
+                  undef
+    round_mode    Global round mode
+                  even
+    version       version number of the class you used
+                  1.61
+    div_scale     Fallback accuracy for div
+                  40
+    trap_nan      If true, traps creation of NaN via croak()
+                  1
+    trap_inf      If true, traps creation of +inf/-inf via croak()
+                  1
+
+The following values can be set by passing C<config()> a reference to a hash:
+
+        trap_inf trap_nan
+        upgrade downgrade precision accuracy round_mode div_scale
+
+Example:
+
+        $new_cfg = Math::BigInt->config(
+            { trap_inf => 1, precision => 5 }
+        );
+
+=item accuracy()
+
+    $x->accuracy(5);         # local for $x
+    CLASS->accuracy(5);      # global for all members of CLASS
+                             # Note: This also applies to new()!
+
+    $A = $x->accuracy();     # read out accuracy that affects $x
+    $A = CLASS->accuracy();  # read out global accuracy
+
+Set or get the global or local accuracy, aka how many significant digits the
+results have. If you set a global accuracy, then this also applies to new()!
+
+Warning! The accuracy I<sticks>, e.g. once you created a number under the
+influence of C<< CLASS->accuracy($A) >>, all results from math operations with
+that number will also be rounded.
+
+In most cases, you should probably round the results explicitly using one of
+L</round()>, L</bround()> or L</bfround()> or by passing the desired accuracy
+to the math operation as additional parameter:
+
+    my $x = Math::BigInt->new(30000);
+    my $y = Math::BigInt->new(7);
+    print scalar $x->copy()->bdiv($y, 2);               # print 4300
+    print scalar $x->copy()->bdiv($y)->bround(2);       # print 4300
+
+Please see the section about L</ACCURACY and PRECISION> for further details.
+
+Value must be greater than zero. Pass an undef value to disable it:
+
+    $x->accuracy(undef);
+    Math::BigInt->accuracy(undef);
+
+Returns the current accuracy. For C<< $x->accuracy() >> it will return either
+the local accuracy, or if not defined, the global. This means the return value
+represents the accuracy that will be in effect for $x:
+
+    $y = Math::BigInt->new(1234567);       # unrounded
+    print Math::BigInt->accuracy(4),"\n";  # set 4, print 4
+    $x = Math::BigInt->new(123456);        # $x will be automatic-
+                                           # ally rounded!
+    print "$x $y\n";                       # '123500 1234567'
+    print $x->accuracy(),"\n";             # will be 4
+    print $y->accuracy(),"\n";             # also 4, since
+                                           # global is 4
+    print Math::BigInt->accuracy(5),"\n";  # set to 5, print 5
+    print $x->accuracy(),"\n";             # still 4
+    print $y->accuracy(),"\n";             # 5, since global is 5
+
+Note: Works also for subclasses like Math::BigFloat. Each class has it's own
+globals separated from Math::BigInt, but it is possible to subclass
+Math::BigInt and make the globals of the subclass aliases to the ones from
+Math::BigInt.
+
+=item precision()
+
+    $x->precision(-2);          # local for $x, round at the second
+                                # digit right of the dot
+    $x->precision(2);           # ditto, round at the second digit
+                                # left of the dot
+
+    CLASS->precision(5);        # Global for all members of CLASS
+                                # This also applies to new()!
+    CLASS->precision(-5);       # ditto
+
+    $P = CLASS->precision();    # read out global precision
+    $P = $x->precision();       # read out precision that affects $x
+
+Note: You probably want to use L</accuracy()> instead. With L</accuracy()> you
+set the number of digits each result should have, with L</precision()> you
+set the place where to round!
+
+C<precision()> sets or gets the global or local precision, aka at which digit
+before or after the dot to round all results. A set global precision also
+applies to all newly created numbers!
+
+In Math::BigInt, passing a negative number precision has no effect since no
+numbers have digits after the dot. In L<Math::BigFloat>, it will round all
+results to P digits after the dot.
+
+Please see the section about L</ACCURACY and PRECISION> for further details.
+
+Pass an undef value to disable it:
+
+    $x->precision(undef);
+    Math::BigInt->precision(undef);
+
+Returns the current precision. For C<< $x->precision() >> it will return either
+the local precision of $x, or if not defined, the global. This means the return
+value represents the prevision that will be in effect for $x:
+
+    $y = Math::BigInt->new(1234567);        # unrounded
+    print Math::BigInt->precision(4),"\n";  # set 4, print 4
+    $x = Math::BigInt->new(123456);  # will be automatically rounded
+    print $x;                               # print "120000"!
+
+Note: Works also for subclasses like L<Math::BigFloat>. Each class has its
+own globals separated from Math::BigInt, but it is possible to subclass
+Math::BigInt and make the globals of the subclass aliases to the ones from
+Math::BigInt.
+
+=item brsft()
+
+    $x->brsft($y,$n);
+
+Shifts $x right by $y in base $n. Default is base 2, used are usually 10 and
+2, but others work, too.
+
+Right shifting usually amounts to dividing $x by $n ** $y and truncating the
+result:
+
+
+    $x = Math::BigInt->new(10);
+    $x->brsft(1);                       # same as $x >> 1: 5
+    $x = Math::BigInt->new(1234);
+    $x->brsft(2,10);                    # result 12
+
+There is one exception, and that is base 2 with negative $x:
+
+
+    $x = Math::BigInt->new(-5);
+    print $x->brsft(1);
+
+This will print -3, not -2 (as it would if you divide -5 by 2 and truncate the
+result).
+
+=item new()
+
+    $x = Math::BigInt->new($str,$A,$P,$R);
+
+Creates a new BigInt object from a scalar or another BigInt object. The
+input is accepted as decimal, hex (with leading '0x') or binary (with leading
+'0b').
+
+See L</Input> for more info on accepted input formats.
+
+=item from_oct()
+
+    $x = Math::BigInt->from_oct("0775");      # input is octal
+
+Interpret the input as an octal string and return the corresponding value. A
+"0" (zero) prefix is optional. A single underscore character may be placed
+right after the prefix, if present, or between any two digits. If the input is
+invalid, a NaN is returned.
+
+=item from_hex()
+
+    $x = Math::BigInt->from_hex("0xcafe");    # input is hexadecimal
+
+Interpret input as a hexadecimal string. A "0x" or "x" prefix is optional. A
+single underscore character may be placed right after the prefix, if present,
+or between any two digits. If the input is invalid, a NaN is returned.
+
+=item from_bin()
+
+    $x = Math::BigInt->from_bin("0b10011");   # input is binary
+
+Interpret the input as a binary string. A "0b" or "b" prefix is optional. A
+single underscore character may be placed right after the prefix, if present,
+or between any two digits. If the input is invalid, a NaN is returned.
+
+=item bnan()
+
+    $x = Math::BigInt->bnan();
+
+Creates a new BigInt object representing NaN (Not A Number).
+If used on an object, it will set it to NaN:
+
+    $x->bnan();
+
+=item bzero()
+
+    $x = Math::BigInt->bzero();
+
+Creates a new BigInt object representing zero.
+If used on an object, it will set it to zero:
+
+    $x->bzero();
+
+=item binf()
+
+    $x = Math::BigInt->binf($sign);
+
+Creates a new BigInt object representing infinity. The optional argument is
+either '-' or '+', indicating whether you want infinity or minus infinity.
+If used on an object, it will set it to infinity:
+
+    $x->binf();
+    $x->binf('-');
+
+=item bone()
+
+    $x = Math::BigInt->binf($sign);
+
+Creates a new BigInt object representing one. The optional argument is
+either '-' or '+', indicating whether you want one or minus one.
+If used on an object, it will set it to one:
+
+    $x->bone();         # +1
+    $x->bone('-');              # -1
+
+=item is_one()/is_zero()/is_nan()/is_inf()
+
+    $x->is_zero();              # true if arg is +0
+    $x->is_nan();               # true if arg is NaN
+    $x->is_one();               # true if arg is +1
+    $x->is_one('-');            # true if arg is -1
+    $x->is_inf();               # true if +inf
+    $x->is_inf('-');            # true if -inf (sign is default '+')
+
+These methods all test the BigInt for being one specific value and return
+true or false depending on the input. These are faster than doing something
+like:
+
+    if ($x == 0)
+
+=item is_pos()/is_neg()/is_positive()/is_negative()
+
+    $x->is_pos();                       # true if > 0
+    $x->is_neg();                       # true if < 0
+
+The methods return true if the argument is positive or negative, respectively.
+C<NaN> is neither positive nor negative, while C<+inf> counts as positive, and
+C<-inf> is negative. A C<zero> is neither positive nor negative.
+
+These methods are only testing the sign, and not the value.
+
+C<is_positive()> and C<is_negative()> are aliases to C<is_pos()> and
+C<is_neg()>, respectively. C<is_positive()> and C<is_negative()> were
+introduced in v1.36, while C<is_pos()> and C<is_neg()> were only introduced
+in v1.68.
+
+=item is_odd()/is_even()/is_int()
+
+    $x->is_odd();               # true if odd, false for even
+    $x->is_even();              # true if even, false for odd
+    $x->is_int();               # true if $x is an integer
+
+The return true when the argument satisfies the condition. C<NaN>, C<+inf>,
+C<-inf> are not integers and are neither odd nor even.
+
+In BigInt, all numbers except C<NaN>, C<+inf> and C<-inf> are integers.
+
+=item bcmp()
+
+    $x->bcmp($y);
+
+Compares $x with $y and takes the sign into account.
+Returns -1, 0, 1 or undef.
+
+=item bacmp()
+
+    $x->bacmp($y);
+
+Compares $x with $y while ignoring their sign. Returns -1, 0, 1 or undef.
+
+=item sign()
+
+    $x->sign();
+
+Return the sign, of $x, meaning either C<+>, C<->, C<-inf>, C<+inf> or NaN.
+
+If you want $x to have a certain sign, use one of the following methods:
+
+    $x->babs();                 # '+'
+    $x->babs()->bneg();         # '-'
+    $x->bnan();                 # 'NaN'
+    $x->binf();                 # '+inf'
+    $x->binf('-');              # '-inf'
+
+=item digit()
+
+    $x->digit($n);       # return the nth digit, counting from right
+
+If C<$n> is negative, returns the digit counting from left.
+
+=item bneg()
+
+    $x->bneg();
+
+Negate the number, e.g. change the sign between '+' and '-', or between '+inf'
+and '-inf', respectively. Does nothing for NaN or zero.
+
+=item babs()
+
+    $x->babs();
+
+Set the number to its absolute value, e.g. change the sign from '-' to '+'
+and from '-inf' to '+inf', respectively. Does nothing for NaN or positive
+numbers.
+
+=item bsgn()
+
+    $x->bsgn();
+
+Signum function. Set the number to -1, 0, or 1, depending on whether the
+number is negative, zero, or positive, respectively. Does not modify NaNs.
+
+=item bnorm()
+
+    $x->bnorm();                        # normalize (no-op)
+
+=item bnot()
+
+    $x->bnot();
+
+Two's complement (bitwise not). This is equivalent to
+
+    $x->binc()->bneg();
+
+but faster.
+
+=item binc()
+
+    $x->binc();                 # increment x by 1
+
+=item bdec()
+
+    $x->bdec();                 # decrement x by 1
+
+=item badd()
+
+    $x->badd($y);               # addition (add $y to $x)
+
+=item bsub()
+
+    $x->bsub($y);               # subtraction (subtract $y from $x)
+
+=item bmul()
+
+    $x->bmul($y);               # multiplication (multiply $x by $y)
+
+=item bmuladd()
+
+    $x->bmuladd($y,$z);
+
+Multiply $x by $y, and then add $z to the result,
+
+This method was added in v1.87 of Math::BigInt (June 2007).
+
+=item bdiv()
+
+    $x->bdiv($y);               # divide, set $x to quotient
+
+Returns $x divided by $y. In list context, does floored division (F-division),
+where the quotient is the greatest integer less than or equal to the quotient
+of the two operands. Consequently, the remainder is either zero or has the same
+sign as the second operand. In scalar context, only the quotient is returned.
+
+=item bmod()
+
+    $x->bmod($y);               # modulus (x % y)
+
+Returns $x modulo $y. When $x is finite, and $y is finite and non-zero, the
+result is identical to the remainder after floored division (F-division), i.e.,
+identical to the result from Perl's % operator.
+
+=item bmodinv()
+
+    $x->bmodinv($mod);          # modular multiplicative inverse
+
+Returns the multiplicative inverse of C<$x> modulo C<$mod>. If
+
+    $y = $x -> copy() -> bmodinv($mod)
+
+then C<$y> is the number closest to zero, and with the same sign as C<$mod>,
+satisfying
+
+    ($x * $y) % $mod = 1 % $mod
+
+If C<$x> and C<$y> are non-zero, they must be relative primes, i.e.,
+C<bgcd($y, $mod)==1>. 'C<NaN>' is returned when no modular multiplicative
+inverse exists.
+
+=item bmodpow()
+
+    $num->bmodpow($exp,$mod);           # modular exponentiation
+                                        # ($num**$exp % $mod)
+
+Returns the value of C<$num> taken to the power C<$exp> in the modulus
+C<$mod> using binary exponentiation.  C<bmodpow> is far superior to
+writing
+
+    $num ** $exp % $mod
+
+because it is much faster - it reduces internal variables into
+the modulus whenever possible, so it operates on smaller numbers.
+
+C<bmodpow> also supports negative exponents.
+
+    bmodpow($num, -1, $mod)
+
+is exactly equivalent to
+
+    bmodinv($num, $mod)
+
+=item bpow()
+
+    $x->bpow($y);                     # power of arguments (x ** y)
+
+=item blog()
+
+    $x->blog($base, $accuracy);   # logarithm of x to the base $base
+
+If C<$base> is not defined, Euler's number (e) is used:
+
+    print $x->blog(undef, 100);       # log(x) to 100 digits
+
+=item bexp()
+
+    $x->bexp($accuracy);              # calculate e ** X
+
+Calculates the expression C<e ** $x> where C<e> is Euler's number.
+
+This method was added in v1.82 of Math::BigInt (April 2007).
+
+See also L</blog()>.
+
+=item bnok()
+
+    $x->bnok($y);         # x over y (binomial coefficient n over k)
+
+Calculates the binomial coefficient n over k, also called the "choose"
+function. The result is equivalent to:
+
+        ( n )      n!
+        | - |  = -------
+        ( k )    k!(n-k)!
+
+This method was added in v1.84 of Math::BigInt (April 2007).
+
+=item bpi()
+
+    print Math::BigInt->bpi(100), "\n";         # 3
+
+Returns PI truncated to an integer, with the argument being ignored. This means
+under BigInt this always returns C<3>.
+
+If upgrading is in effect, returns PI, rounded to N digits with the
+current rounding mode:
+
+    use Math::BigFloat;
+    use Math::BigInt upgrade => Math::BigFloat;
+    print Math::BigInt->bpi(3), "\n";           # 3.14
+    print Math::BigInt->bpi(100), "\n";         # 3.1415....
+
+This method was added in v1.87 of Math::BigInt (June 2007).
+
+=item bcos()
+
+    my $x = Math::BigInt->new(1);
+    print $x->bcos(100), "\n";
+
+Calculate the cosinus of $x, modifying $x in place.
+
+In BigInt, unless upgrading is in effect, the result is truncated to an
+integer.
+
+This method was added in v1.87 of Math::BigInt (June 2007).
+
+=item bsin()
+
+    my $x = Math::BigInt->new(1);
+    print $x->bsin(100), "\n";
+
+Calculate the sinus of $x, modifying $x in place.
+
+In BigInt, unless upgrading is in effect, the result is truncated to an
+integer.
+
+This method was added in v1.87 of Math::BigInt (June 2007).
+
+=item batan2()
+
+    my $x = Math::BigInt->new(1);
+    my $y = Math::BigInt->new(1);
+    print $y->batan2($x), "\n";
+
+Calculate the arcus tangens of C<$y> divided by C<$x>, modifying $y in place.
+
+In BigInt, unless upgrading is in effect, the result is truncated to an
+integer.
+
+This method was added in v1.87 of Math::BigInt (June 2007).
+
+=item batan()
+
+    my $x = Math::BigFloat->new(0.5);
+    print $x->batan(100), "\n";
+
+Calculate the arcus tangens of $x, modifying $x in place.
+
+In BigInt, unless upgrading is in effect, the result is truncated to an
+integer.
+
+This method was added in v1.87 of Math::BigInt (June 2007).
+
+=item blsft()
+
+    $x->blsft($y);              # left shift in base 2
+    $x->blsft($y,$n);           # left shift, in base $n (like 10)
+
+=item brsft()
+
+    $x->brsft($y);              # right shift in base 2
+    $x->brsft($y,$n);           # right shift, in base $n (like 10)
+
+=item band()
+
+    $x->band($y);               # bitwise and
+
+=item bior()
+
+    $x->bior($y);               # bitwise inclusive or
+
+=item bxor()
+
+    $x->bxor($y);               # bitwise exclusive or
+
+=item bnot()
+
+    $x->bnot();                 # bitwise not (two's complement)
+
+=item bsqrt()
+
+    $x->bsqrt();                # calculate square-root
+
+=item broot()
+
+    $x->broot($N);
+
+Calculates the N'th root of C<$x>.
+
+=item bfac()
+
+    $x->bfac();                 # factorial of $x (1*2*3*4*..$x)
+
+=item round()
+
+    $x->round($A,$P,$round_mode);
+
+Round $x to accuracy C<$A> or precision C<$P> using the round mode
+C<$round_mode>.
+
+=item bround()
+
+    $x->bround($N);               # accuracy: preserve $N digits
+
+=item bfround()
+
+    $x->bfround($N);
+
+If N is > 0, rounds to the Nth digit from the left. If N < 0, rounds to
+the Nth digit after the dot. Since BigInts are integers, the case N < 0
+is a no-op for them.
+
+Examples:
+
+        Input           N               Result
+        ===================================================
+        123456.123456   3               123500
+        123456.123456   2               123450
+        123456.123456   -2              123456.12
+        123456.123456   -3              123456.123
+
+=item bfloor()
+
+    $x->bfloor();
+
+Round $x towards minus infinity (i.e., set $x to the largest integer less than
+or equal to $x). This is a no-op in BigInt, but changes $x in BigFloat, if $x
+is not an integer.
+
+=item bceil()
+
+    $x->bceil();
+
+Round $x towards plus infinity (i.e., set $x to the smallest integer greater
+than or equal to $x). This is a no-op in BigInt, but changes $x in BigFloat, if
+$x is not an integer.
+
+=item bint()
+
+    $x->bint();
+
+Round $x towards zero. This is a no-op in BigInt, but changes $x in BigFloat,
+if $x is not an integer.
+
+=item bgcd()
+
+    bgcd(@values);           # greatest common divisor (no OO style)
+
+=item blcm()
+
+    blcm(@values);           # lowest common multiple (no OO style)
+
+=item length()
+
+    $x->length();
+    ($xl,$fl) = $x->length();
+
+Returns the number of digits in the decimal representation of the number.
+In list context, returns the length of the integer and fraction part. For
+BigInt's, the length of the fraction part will always be 0.
+
+=item exponent()
+
+    $x->exponent();
+
+Return the exponent of $x as BigInt.
+
+=item mantissa()
+
+    $x->mantissa();
+
+Return the signed mantissa of $x as BigInt.
+
+=item parts()
+
+    $x->parts();        # return (mantissa,exponent) as BigInt
+
+=item copy()
+
+    $x->copy();         # make a true copy of $x (unlike $y = $x;)
+
+=item as_int()
+
+=item as_number()
+
+These methods are called when Math::BigInt encounters an object it doesn't know
+how to handle. For instance, assume $x is a Math::BigInt, or subclass thereof,
+and $y is defined, but not a Math::BigInt, or subclass thereof. If you do
+
+    $x -> badd($y);
+
+$y needs to be converted into an object that $x can deal with. This is done by
+first checking if $y is something that $x might be upgraded to. If that is the
+case, no further attempts are made. The next is to see if $y supports the
+method C<as_int()>. If it does, C<as_int()> is called, but if it doesn't, the
+next thing is to see if $y supports the method C<as_number()>. If it does,
+C<as_number()> is called. The method C<as_int()> (and C<as_number()>) is
+expected to return either an object that has the same class as $x, a subclass
+thereof, or a string that C<ref($x)-E<gt>new()> can parse to create an object.
+
+C<as_number()> is an alias to C<as_int()>. C<as_number> was introduced in
+v1.22, while C<as_int()> was introduced in v1.68.
+
+In Math::BigInt, C<as_int()> has the same effect as C<copy()>.
+
+=item bstr()
+
+    $x->bstr();
+
+Returns a normalized string representation of C<$x>.
+
+=item bsstr()
+
+    $x->bsstr();     # normalized string in scientific notation
+
+=item as_hex()
+
+    $x->as_hex();    # as signed hexadecimal string with prefixed 0x
+
+=item as_bin()
+
+    $x->as_bin();    # as signed binary string with prefixed 0b
+
+=item as_oct()
+
+    $x->as_oct();    # as signed octal string with prefixed 0
+
+=item numify()
+
+        print $x->numify();
+
+This returns a normal Perl scalar from $x. It is used automatically
+whenever a scalar is needed, for instance in array index operations.
+
+This loses precision, to avoid this use L</as_int()> instead.
+
+=item modify()
+
+    $x->modify('bpowd');
+
+This method returns 0 if the object can be modified with the given
+operation, or 1 if not.
+
+This is used for instance by L<Math::BigInt::Constant>.
+
+=item upgrade()/downgrade()
+
+Set/get the class for downgrade/upgrade operations. Thuis is used
+for instance by L<bignum>. The defaults are '', thus the following
+operation will create a BigInt, not a BigFloat:
+
+        my $i = Math::BigInt->new(123);
+        my $f = Math::BigFloat->new('123.1');
+
+        print $i + $f,"\n";                     # print 246
+
+=item div_scale()
+
+Set/get the number of digits for the default precision in divide
+operations.
+
+=item round_mode()
+
+Set/get the current round mode.
+
+=back
+
+=head1 ACCURACY and PRECISION
+
+Since version v1.33, Math::BigInt and Math::BigFloat have full support for
+accuracy and precision based rounding, both automatically after every
+operation, as well as manually.
+
+This section describes the accuracy/precision handling in Math::Big* as it
+used to be and as it is now, complete with an explanation of all terms and
+abbreviations.
+
+Not yet implemented things (but with correct description) are marked with '!',
+things that need to be answered are marked with '?'.
+
+In the next paragraph follows a short description of terms used here (because
+these may differ from terms used by others people or documentation).
+
+During the rest of this document, the shortcuts A (for accuracy), P (for
+precision), F (fallback) and R (rounding mode) will be used.
+
+=head2 Precision P
+
+A fixed number of digits before (positive) or after (negative)
+the decimal point. For example, 123.45 has a precision of -2. 0 means an
+integer like 123 (or 120). A precision of 2 means two digits to the left
+of the decimal point are zero, so 123 with P = 1 becomes 120. Note that
+numbers with zeros before the decimal point may have different precisions,
+because 1200 can have p = 0, 1 or 2 (depending on what the initial value
+was). It could also have p < 0, when the digits after the decimal point
+are zero.
+
+The string output (of floating point numbers) will be padded with zeros:
+
+        Initial value   P       A       Result          String
+        ------------------------------------------------------------
+        1234.01         -3              1000            1000
+        1234            -2              1200            1200
+        1234.5          -1              1230            1230
+        1234.001        1               1234            1234.0
+        1234.01         0               1234            1234
+        1234.01         2               1234.01         1234.01
+        1234.01         5               1234.01         1234.01000
+
+For BigInts, no padding occurs.
+
+=head2 Accuracy A
+
+Number of significant digits. Leading zeros are not counted. A
+number may have an accuracy greater than the non-zero digits
+when there are zeros in it or trailing zeros. For example, 123.456 has
+A of 6, 10203 has 5, 123.0506 has 7, 123.450000 has 8 and 0.000123 has 3.
+
+The string output (of floating point numbers) will be padded with zeros:
+
+        Initial value   P       A       Result          String
+        ------------------------------------------------------------
+        1234.01                 3       1230            1230
+        1234.01                 6       1234.01         1234.01
+        1234.1                  8       1234.1          1234.1000
+
+For BigInts, no padding occurs.
+
+=head2 Fallback F
+
+When both A and P are undefined, this is used as a fallback accuracy when
+dividing numbers.
+
+=head2 Rounding mode R
+
+When rounding a number, different 'styles' or 'kinds'
+of rounding are possible. (Note that random rounding, as in
+Math::Round, is not implemented.)
+
+=over
+
+=item 'trunc'
+
+truncation invariably removes all digits following the
+rounding place, replacing them with zeros. Thus, 987.65 rounded
+to tens (P=1) becomes 980, and rounded to the fourth sigdig
+becomes 987.6 (A=4). 123.456 rounded to the second place after the
+decimal point (P=-2) becomes 123.46.
+
+All other implemented styles of rounding attempt to round to the
+"nearest digit." If the digit D immediately to the right of the
+rounding place (skipping the decimal point) is greater than 5, the
+number is incremented at the rounding place (possibly causing a
+cascade of incrementation): e.g. when rounding to units, 0.9 rounds
+to 1, and -19.9 rounds to -20. If D < 5, the number is similarly
+truncated at the rounding place: e.g. when rounding to units, 0.4
+rounds to 0, and -19.4 rounds to -19.
+
+However the results of other styles of rounding differ if the
+digit immediately to the right of the rounding place (skipping the
+decimal point) is 5 and if there are no digits, or no digits other
+than 0, after that 5. In such cases:
+
+=item 'even'
+
+rounds the digit at the rounding place to 0, 2, 4, 6, or 8
+if it is not already. E.g., when rounding to the first sigdig, 0.45
+becomes 0.4, -0.55 becomes -0.6, but 0.4501 becomes 0.5.
+
+=item 'odd'
+
+rounds the digit at the rounding place to 1, 3, 5, 7, or 9 if
+it is not already. E.g., when rounding to the first sigdig, 0.45
+becomes 0.5, -0.55 becomes -0.5, but 0.5501 becomes 0.6.
+
+=item '+inf'
+
+round to plus infinity, i.e. always round up. E.g., when
+rounding to the first sigdig, 0.45 becomes 0.5, -0.55 becomes -0.5,
+and 0.4501 also becomes 0.5.
+
+=item '-inf'
+
+round to minus infinity, i.e. always round down. E.g., when
+rounding to the first sigdig, 0.45 becomes 0.4, -0.55 becomes -0.6,
+but 0.4501 becomes 0.5.
+
+=item 'zero'
+
+round to zero, i.e. positive numbers down, negative ones up.
+E.g., when rounding to the first sigdig, 0.45 becomes 0.4, -0.55
+becomes -0.5, but 0.4501 becomes 0.5.
+
+=item 'common'
+
+round up if the digit immediately to the right of the rounding place
+is 5 or greater, otherwise round down. E.g., 0.15 becomes 0.2 and
+0.149 becomes 0.1.
+
+=back
+
+The handling of A & P in MBI/MBF (the old core code shipped with Perl
+versions <= 5.7.2) is like this:
+
+=over
+
+=item Precision
+
+  * bfround($p) is able to round to $p number of digits after the decimal
+    point
+  * otherwise P is unused
+
+=item Accuracy (significant digits)
+
+  * bround($a) rounds to $a significant digits
+  * only bdiv() and bsqrt() take A as (optional) parameter
+    + other operations simply create the same number (bneg etc), or
+      more (bmul) of digits
+    + rounding/truncating is only done when explicitly calling one
+      of bround or bfround, and never for BigInt (not implemented)
+  * bsqrt() simply hands its accuracy argument over to bdiv.
+  * the documentation and the comment in the code indicate two
+    different ways on how bdiv() determines the maximum number
+    of digits it should calculate, and the actual code does yet
+    another thing
+    POD:
+      max($Math::BigFloat::div_scale,length(dividend)+length(divisor))
+    Comment:
+      result has at most max(scale, length(dividend), length(divisor)) digits
+    Actual code:
+      scale = max(scale, length(dividend)-1,length(divisor)-1);
+      scale += length(divisor) - length(dividend);
+    So for lx = 3, ly = 9, scale = 10, scale will actually be 16 (10
+    So for lx = 3, ly = 9, scale = 10, scale will actually be 16
+    (10+9-3). Actually, the 'difference' added to the scale is cal-
+    culated from the number of "significant digits" in dividend and
+    divisor, which is derived by looking at the length of the man-
+    tissa. Which is wrong, since it includes the + sign (oops) and
+    actually gets 2 for '+100' and 4 for '+101'. Oops again. Thus
+    124/3 with div_scale=1 will get you '41.3' based on the strange
+    assumption that 124 has 3 significant digits, while 120/7 will
+    get you '17', not '17.1' since 120 is thought to have 2 signif-
+    icant digits. The rounding after the division then uses the
+    remainder and $y to determine whether it must round up or down.
+ ?  I have no idea which is the right way. That's why I used a slightly more
+ ?  simple scheme and tweaked the few failing testcases to match it.
+
+=back
+
+This is how it works now:
+
+=over
+
+=item Setting/Accessing
+
+  * You can set the A global via Math::BigInt->accuracy() or
+    Math::BigFloat->accuracy() or whatever class you are using.
+  * You can also set P globally by using Math::SomeClass->precision()
+    likewise.
+  * Globals are classwide, and not inherited by subclasses.
+  * to undefine A, use Math::SomeCLass->accuracy(undef);
+  * to undefine P, use Math::SomeClass->precision(undef);
+  * Setting Math::SomeClass->accuracy() clears automatically
+    Math::SomeClass->precision(), and vice versa.
+  * To be valid, A must be > 0, P can have any value.
+  * If P is negative, this means round to the P'th place to the right of the
+    decimal point; positive values mean to the left of the decimal point.
+    P of 0 means round to integer.
+  * to find out the current global A, use Math::SomeClass->accuracy()
+  * to find out the current global P, use Math::SomeClass->precision()
+  * use $x->accuracy() respective $x->precision() for the local
+    setting of $x.
+  * Please note that $x->accuracy() respective $x->precision()
+    return eventually defined global A or P, when $x's A or P is not
+    set.
+
+=item Creating numbers
+
+  * When you create a number, you can give the desired A or P via:
+    $x = Math::BigInt->new($number,$A,$P);
+  * Only one of A or P can be defined, otherwise the result is NaN
+  * If no A or P is give ($x = Math::BigInt->new($number) form), then the
+    globals (if set) will be used. Thus changing the global defaults later on
+    will not change the A or P of previously created numbers (i.e., A and P of
+    $x will be what was in effect when $x was created)
+  * If given undef for A and P, NO rounding will occur, and the globals will
+    NOT be used. This is used by subclasses to create numbers without
+    suffering rounding in the parent. Thus a subclass is able to have its own
+    globals enforced upon creation of a number by using
+    $x = Math::BigInt->new($number,undef,undef):
+
+        use Math::BigInt::SomeSubclass;
+        use Math::BigInt;
+
+        Math::BigInt->accuracy(2);
+        Math::BigInt::SomeSubClass->accuracy(3);
+        $x = Math::BigInt::SomeSubClass->new(1234);
+
+    $x is now 1230, and not 1200. A subclass might choose to implement
+    this otherwise, e.g. falling back to the parent's A and P.
+
+=item Usage
+
+  * If A or P are enabled/defined, they are used to round the result of each
+    operation according to the rules below
+  * Negative P is ignored in Math::BigInt, since BigInts never have digits
+    after the decimal point
+  * Math::BigFloat uses Math::BigInt internally, but setting A or P inside
+    Math::BigInt as globals does not tamper with the parts of a BigFloat.
+    A flag is used to mark all Math::BigFloat numbers as 'never round'.
+
+=item Precedence
+
+  * It only makes sense that a number has only one of A or P at a time.
+    If you set either A or P on one object, or globally, the other one will
+    be automatically cleared.
+  * If two objects are involved in an operation, and one of them has A in
+    effect, and the other P, this results in an error (NaN).
+  * A takes precedence over P (Hint: A comes before P).
+    If neither of them is defined, nothing is used, i.e. the result will have
+    as many digits as it can (with an exception for bdiv/bsqrt) and will not
+    be rounded.
+  * There is another setting for bdiv() (and thus for bsqrt()). If neither of
+    A or P is defined, bdiv() will use a fallback (F) of $div_scale digits.
+    If either the dividend's or the divisor's mantissa has more digits than
+    the value of F, the higher value will be used instead of F.
+    This is to limit the digits (A) of the result (just consider what would
+    happen with unlimited A and P in the case of 1/3 :-)
+  * bdiv will calculate (at least) 4 more digits than required (determined by
+    A, P or F), and, if F is not used, round the result
+    (this will still fail in the case of a result like 0.12345000000001 with A
+    or P of 5, but this can not be helped - or can it?)
+  * Thus you can have the math done by on Math::Big* class in two modi:
+    + never round (this is the default):
+      This is done by setting A and P to undef. No math operation
+      will round the result, with bdiv() and bsqrt() as exceptions to guard
+      against overflows. You must explicitly call bround(), bfround() or
+      round() (the latter with parameters).
+      Note: Once you have rounded a number, the settings will 'stick' on it
+      and 'infect' all other numbers engaged in math operations with it, since
+      local settings have the highest precedence. So, to get SaferRound[tm],
+      use a copy() before rounding like this:
+
+        $x = Math::BigFloat->new(12.34);
+        $y = Math::BigFloat->new(98.76);
+        $z = $x * $y;                           # 1218.6984
+        print $x->copy()->bround(3);            # 12.3 (but A is now 3!)
+        $z = $x * $y;                           # still 1218.6984, without
+                                                # copy would have been 1210!
+
+    + round after each op:
+      After each single operation (except for testing like is_zero()), the
+      method round() is called and the result is rounded appropriately. By
+      setting proper values for A and P, you can have all-the-same-A or
+      all-the-same-P modes. For example, Math::Currency might set A to undef,
+      and P to -2, globally.
+
+ ?Maybe an extra option that forbids local A & P settings would be in order,
+ ?so that intermediate rounding does not 'poison' further math?
+
+=item Overriding globals
+
+  * you will be able to give A, P and R as an argument to all the calculation
+    routines; the second parameter is A, the third one is P, and the fourth is
+    R (shift right by one for binary operations like badd). P is used only if
+    the first parameter (A) is undefined. These three parameters override the
+    globals in the order detailed as follows, i.e. the first defined value
+    wins:
+    (local: per object, global: global default, parameter: argument to sub)
+      + parameter A
+      + parameter P
+      + local A (if defined on both of the operands: smaller one is taken)
+      + local P (if defined on both of the operands: bigger one is taken)
+      + global A
+      + global P
+      + global F
+  * bsqrt() will hand its arguments to bdiv(), as it used to, only now for two
+    arguments (A and P) instead of one
+
+=item Local settings
+
+  * You can set A or P locally by using $x->accuracy() or
+    $x->precision()
+    and thus force different A and P for different objects/numbers.
+  * Setting A or P this way immediately rounds $x to the new value.
+  * $x->accuracy() clears $x->precision(), and vice versa.
+
+=item Rounding
+
+  * the rounding routines will use the respective global or local settings.
+    bround() is for accuracy rounding, while bfround() is for precision
+  * the two rounding functions take as the second parameter one of the
+    following rounding modes (R):
+    'even', 'odd', '+inf', '-inf', 'zero', 'trunc', 'common'
+  * you can set/get the global R by using Math::SomeClass->round_mode()
+    or by setting $Math::SomeClass::round_mode
+  * after each operation, $result->round() is called, and the result may
+    eventually be rounded (that is, if A or P were set either locally,
+    globally or as parameter to the operation)
+  * to manually round a number, call $x->round($A,$P,$round_mode);
+    this will round the number by using the appropriate rounding function
+    and then normalize it.
+  * rounding modifies the local settings of the number:
+
+        $x = Math::BigFloat->new(123.456);
+        $x->accuracy(5);
+        $x->bround(4);
+
+    Here 4 takes precedence over 5, so 123.5 is the result and $x->accuracy()
+    will be 4 from now on.
+
+=item Default values
+
+  * R: 'even'
+  * F: 40
+  * A: undef
+  * P: undef
+
+=item Remarks
+
+  * The defaults are set up so that the new code gives the same results as
+    the old code (except in a few cases on bdiv):
+    + Both A and P are undefined and thus will not be used for rounding
+      after each operation.
+    + round() is thus a no-op, unless given extra parameters A and P
+
+=back
+
+=head1 Infinity and Not a Number
+
+While BigInt has extensive handling of inf and NaN, certain quirks remain.
+
+=over
+
+=item oct()/hex()
+
+These perl routines currently (as of Perl v.5.8.6) cannot handle passed
+inf.
+
+        te@linux:~> perl -wle 'print 2 ** 3333'
+        Inf
+        te@linux:~> perl -wle 'print 2 ** 3333 == 2 ** 3333'
+        1
+        te@linux:~> perl -wle 'print oct(2 ** 3333)'
+        0
+        te@linux:~> perl -wle 'print hex(2 ** 3333)'
+        Illegal hexadecimal digit 'I' ignored at -e line 1.
+        0
+
+The same problems occur if you pass them Math::BigInt->binf() objects. Since
+overloading these routines is not possible, this cannot be fixed from BigInt.
+
+=item ==, !=, <, >, <=, >= with NaNs
+
+BigInt's bcmp() routine currently returns undef to signal that a NaN was
+involved in a comparison. However, the overload code turns that into
+either 1 or '' and thus operations like C<< NaN != NaN >> might return
+wrong values.
+
+=item log(-inf)
+
+C<< log(-inf) >> is highly weird. Since log(-x)=pi*i+log(x), then
+log(-inf)=pi*i+inf. However, since the imaginary part is finite, the real
+infinity "overshadows" it, so the number might as well just be infinity.
+However, the result is a complex number, and since BigInt/BigFloat can only
+have real numbers as results, the result is NaN.
+
+=item exp(), cos(), sin(), atan2()
+
+These all might have problems handling infinity right.
+
+=back
+
+=head1 INTERNALS
+
+The actual numbers are stored as unsigned big integers (with separate sign).
+
+You should neither care about nor depend on the internal representation; it
+might change without notice. Use B<ONLY> method calls like C<< $x->sign(); >>
+instead relying on the internal representation.
+
+=head2 MATH LIBRARY
+
+Math with the numbers is done (by default) by a module called
+C<Math::BigInt::Calc>. This is equivalent to saying:
+
+        use Math::BigInt try => 'Calc';
+
+You can change this backend library by using:
+
+        use Math::BigInt try => 'GMP';
+
+B<Note>: General purpose packages should not be explicit about the library
+to use; let the script author decide which is best.
+
+If your script works with huge numbers and Calc is too slow for them,
+you can also for the loading of one of these libraries and if none
+of them can be used, the code will die:
+
+        use Math::BigInt only => 'GMP,Pari';
+
+The following would first try to find Math::BigInt::Foo, then
+Math::BigInt::Bar, and when this also fails, revert to Math::BigInt::Calc:
+
+        use Math::BigInt try => 'Foo,Math::BigInt::Bar';
+
+The library that is loaded last will be used. Note that this can be
+overwritten at any time by loading a different library, and numbers
+constructed with different libraries cannot be used in math operations
+together.
+
+=head3 What library to use?
+
+B<Note>: General purpose packages should not be explicit about the library
+to use; let the script author decide which is best.
+
+L<Math::BigInt::GMP> and L<Math::BigInt::Pari> are in cases involving big
+numbers much faster than Calc, however it is slower when dealing with very
+small numbers (less than about 20 digits) and when converting very large
+numbers to decimal (for instance for printing, rounding, calculating their
+length in decimal etc).
+
+So please select carefully what library you want to use.
+
+Different low-level libraries use different formats to store the numbers.
+However, you should B<NOT> depend on the number having a specific format
+internally.
+
+See the respective math library module documentation for further details.
+
+=head2 SIGN
+
+The sign is either '+', '-', 'NaN', '+inf' or '-inf'.
+
+A sign of 'NaN' is used to represent the result when input arguments are not
+numbers or as a result of 0/0. '+inf' and '-inf' represent plus respectively
+minus infinity. You will get '+inf' when dividing a positive number by 0, and
+'-inf' when dividing any negative number by 0.
+
+=head2 mantissa(), exponent() and parts()
+
+C<mantissa()> and C<exponent()> return the said parts of the BigInt such
+that:
+
+        $m = $x->mantissa();
+        $e = $x->exponent();
+        $y = $m * ( 10 ** $e );
+        print "ok\n" if $x == $y;
+
+C<< ($m,$e) = $x->parts() >> is just a shortcut that gives you both of them
+in one go. Both the returned mantissa and exponent have a sign.
+
+Currently, for BigInts C<$e> is always 0, except +inf and -inf, where it is
+C<+inf>; and for NaN, where it is C<NaN>; and for C<$x == 0>, where it is C<1>
+(to be compatible with Math::BigFloat's internal representation of a zero as
+C<0E1>).
+
+C<$m> is currently just a copy of the original number. The relation between
+C<$e> and C<$m> will stay always the same, though their real values might
+change.
+
+=head1 EXAMPLES
+
+  use Math::BigInt;
+
+  sub bigint { Math::BigInt->new(shift); }
+
+  $x = Math::BigInt->bstr("1234")       # string "1234"
+  $x = "$x";                            # same as bstr()
+  $x = Math::BigInt->bneg("1234");      # BigInt "-1234"
+  $x = Math::BigInt->babs("-12345");    # BigInt "12345"
+  $x = Math::BigInt->bnorm("-0.00");    # BigInt "0"
+  $x = bigint(1) + bigint(2);           # BigInt "3"
+  $x = bigint(1) + "2";                 # ditto (auto-BigIntify of "2")
+  $x = bigint(1);                       # BigInt "1"
+  $x = $x + 5 / 2;                      # BigInt "3"
+  $x = $x ** 3;                         # BigInt "27"
+  $x *= 2;                              # BigInt "54"
+  $x = Math::BigInt->new(0);            # BigInt "0"
+  $x--;                                 # BigInt "-1"
+  $x = Math::BigInt->badd(4,5)          # BigInt "9"
+  print $x->bsstr();                    # 9e+0
+
+Examples for rounding:
+
+  use Math::BigFloat;
+  use Test::More;
+
+  $x = Math::BigFloat->new(123.4567);
+  $y = Math::BigFloat->new(123.456789);
+  Math::BigFloat->accuracy(4);          # no more A than 4
+
+  is ($x->copy()->bround(),123.4);      # even rounding
+  print $x->copy()->bround(),"\n";      # 123.4
+  Math::BigFloat->round_mode('odd');    # round to odd
+  print $x->copy()->bround(),"\n";      # 123.5
+  Math::BigFloat->accuracy(5);          # no more A than 5
+  Math::BigFloat->round_mode('odd');    # round to odd
+  print $x->copy()->bround(),"\n";      # 123.46
+  $y = $x->copy()->bround(4),"\n";      # A = 4: 123.4
+  print "$y, ",$y->accuracy(),"\n";     # 123.4, 4
+
+  Math::BigFloat->accuracy(undef);      # A not important now
+  Math::BigFloat->precision(2);         # P important
+  print $x->copy()->bnorm(),"\n";       # 123.46
+  print $x->copy()->bround(),"\n";      # 123.46
+
+Examples for converting:
+
+  my $x = Math::BigInt->new('0b1'.'01' x 123);
+  print "bin: ",$x->as_bin()," hex:",$x->as_hex()," dec: ",$x,"\n";
+
+=head1 Autocreating constants
+
+After C<use Math::BigInt ':constant'> all the B<integer> decimal, hexadecimal
+and binary constants in the given scope are converted to C<Math::BigInt>.
+This conversion happens at compile time.
+
+In particular,
+
+  perl -MMath::BigInt=:constant -e 'print 2**100,"\n"'
+
+prints the integer value of C<2**100>. Note that without conversion of
+constants the expression 2**100 will be calculated as perl scalar.
+
+Please note that strings and floating point constants are not affected,
+so that
+
+        use Math::BigInt qw/:constant/;
+
+        $x = 1234567890123456789012345678901234567890
+                + 123456789123456789;
+        $y = '1234567890123456789012345678901234567890'
+                + '123456789123456789';
+
+do not work. You need an explicit Math::BigInt->new() around one of the
+operands. You should also quote large constants to protect loss of precision:
+
+        use Math::BigInt;
+
+        $x = Math::BigInt->new('1234567889123456789123456789123456789');
+
+Without the quotes Perl would convert the large number to a floating point
+constant at compile time and then hand the result to BigInt, which results in
+an truncated result or a NaN.
+
+This also applies to integers that look like floating point constants:
+
+        use Math::BigInt ':constant';
+
+        print ref(123e2),"\n";
+        print ref(123.2e2),"\n";
+
+will print nothing but newlines. Use either L<bignum> or L<Math::BigFloat>
+to get this to work.
+
+=head1 PERFORMANCE
+
+Using the form $x += $y; etc over $x = $x + $y is faster, since a copy of $x
+must be made in the second case. For long numbers, the copy can eat up to 20%
+of the work (in the case of addition/subtraction, less for
+multiplication/division). If $y is very small compared to $x, the form
+$x += $y is MUCH faster than $x = $x + $y since making the copy of $x takes
+more time then the actual addition.
+
+With a technique called copy-on-write, the cost of copying with overload could
+be minimized or even completely avoided. A test implementation of COW did show
+performance gains for overloaded math, but introduced a performance loss due
+to a constant overhead for all other operations. So Math::BigInt does currently
+not COW.
+
+The rewritten version of this module (vs. v0.01) is slower on certain
+operations, like C<new()>, C<bstr()> and C<numify()>. The reason are that it
+does now more work and handles much more cases. The time spent in these
+operations is usually gained in the other math operations so that code on
+the average should get (much) faster. If they don't, please contact the author.
+
+Some operations may be slower for small numbers, but are significantly faster
+for big numbers. Other operations are now constant (O(1), like C<bneg()>,
+C<babs()> etc), instead of O(N) and thus nearly always take much less time.
+These optimizations were done on purpose.
+
+If you find the Calc module to slow, try to install any of the replacement
+modules and see if they help you.
+
+=head2 Alternative math libraries
+
+You can use an alternative library to drive Math::BigInt. See the section
+L</MATH LIBRARY> for more information.
+
+For more benchmark results see L<http://bloodgate.com/perl/benchmarks.html>.
+
+=head1 SUBCLASSING
+
+=head2 Subclassing Math::BigInt
+
+The basic design of Math::BigInt allows simple subclasses with very little
+work, as long as a few simple rules are followed:
+
+=over
+
+=item *
+
+The public API must remain consistent, i.e. if a sub-class is overloading
+addition, the sub-class must use the same name, in this case badd(). The
+reason for this is that Math::BigInt is optimized to call the object methods
+directly.
+
+=item *
+
+The private object hash keys like C<< $x->{sign} >> may not be changed, but
+additional keys can be added, like C<< $x->{_custom} >>.
+
+=item *
+
+Accessor functions are available for all existing object hash keys and should
+be used instead of directly accessing the internal hash keys. The reason for
+this is that Math::BigInt itself has a pluggable interface which permits it
+to support different storage methods.
+
+=back
+
+More complex sub-classes may have to replicate more of the logic internal of
+Math::BigInt if they need to change more basic behaviors. A subclass that
+needs to merely change the output only needs to overload C<bstr()>.
+
+All other object methods and overloaded functions can be directly inherited
+from the parent class.
+
+At the very minimum, any subclass will need to provide its own C<new()> and can
+store additional hash keys in the object. There are also some package globals
+that must be defined, e.g.:
+
+  # Globals
+  $accuracy = undef;
+  $precision = -2;       # round to 2 decimal places
+  $round_mode = 'even';
+  $div_scale = 40;
+
+Additionally, you might want to provide the following two globals to allow
+auto-upgrading and auto-downgrading to work correctly:
+
+  $upgrade = undef;
+  $downgrade = undef;
+
+This allows Math::BigInt to correctly retrieve package globals from the
+subclass, like C<$SubClass::precision>.  See t/Math/BigInt/Subclass.pm or
+t/Math/BigFloat/SubClass.pm completely functional subclass examples.
+
+Don't forget to
+
+        use overload;
+
+in your subclass to automatically inherit the overloading from the parent. If
+you like, you can change part of the overloading, look at Math::String for an
+example.
+
+=head1 UPGRADING
+
+When used like this:
+
+        use Math::BigInt upgrade => 'Foo::Bar';
+
+certain operations will 'upgrade' their calculation and thus the result to
+the class Foo::Bar. Usually this is used in conjunction with Math::BigFloat:
+
+        use Math::BigInt upgrade => 'Math::BigFloat';
+
+As a shortcut, you can use the module L<bignum>:
+
+        use bignum;
+
+Also good for one-liners:
+
+        perl -Mbignum -le 'print 2 ** 255'
+
+This makes it possible to mix arguments of different classes (as in 2.5 + 2)
+as well es preserve accuracy (as in sqrt(3)).
+
+Beware: This feature is not fully implemented yet.
+
+=head2 Auto-upgrade
+
+The following methods upgrade themselves unconditionally; that is if upgrade
+is in effect, they will always hand up their work:
+
+=over
+
+=item bsqrt()
+
+=item div()
+
+=item blog()
+
+=item bexp()
+
+=item bpi()
+
+=item bcos()
+
+=item bsin()
+
+=item batan2()
+
+=item batan()
+
+=back
+
+All other methods upgrade themselves only when one (or all) of their
+arguments are of the class mentioned in $upgrade.
+
+=head1 EXPORTS
+
+C<Math::BigInt> exports nothing by default, but can export the following methods:
+
+        bgcd
+        blcm
+
+=head1 CAVEATS
+
+Some things might not work as you expect them. Below is documented what is
+known to be troublesome:
+
+=over
+
+=item bstr(), bsstr() and 'cmp'
+
+Both C<bstr()> and C<bsstr()> as well as automated stringify via overload now
+drop the leading '+'. The old code would return '+3', the new returns '3'.
+This is to be consistent with Perl and to make C<cmp> (especially with
+overloading) to work as you expect. It also solves problems with C<Test.pm>
+and L<Test::More>, which stringify arguments before comparing them.
+
+Mark Biggar said, when asked about to drop the '+' altogether, or make only
+C<cmp> work:
+
+        I agree (with the first alternative), don't add the '+' on positive
+        numbers.  It's not as important anymore with the new internal
+        form for numbers.  It made doing things like abs and neg easier,
+        but those have to be done differently now anyway.
+
+So, the following examples will now work all as expected:
+
+        use Test::More tests => 1;
+        use Math::BigInt;
+
+        my $x = Math::BigInt -> new(3*3);
+        my $y = Math::BigInt -> new(3*3);
+
+        is ($x,3*3, 'multiplication');
+        print "$x eq 9" if $x eq $y;
+        print "$x eq 9" if $x eq '9';
+        print "$x eq 9" if $x eq 3*3;
+
+Additionally, the following still works:
+
+        print "$x == 9" if $x == $y;
+        print "$x == 9" if $x == 9;
+        print "$x == 9" if $x == 3*3;
+
+There is now a C<bsstr()> method to get the string in scientific notation aka
+C<1e+2> instead of C<100>. Be advised that overloaded 'eq' always uses bstr()
+for comparison, but Perl will represent some numbers as 100 and others
+as 1e+308. If in doubt, convert both arguments to Math::BigInt before
+comparing them as strings:
+
+        use Test::More tests => 3;
+        use Math::BigInt;
+
+        $x = Math::BigInt->new('1e56'); $y = 1e56;
+        is ($x,$y);                     # will fail
+        is ($x->bsstr(),$y);            # okay
+        $y = Math::BigInt->new($y);
+        is ($x,$y);                     # okay
+
+Alternatively, simply use C<< <=> >> for comparisons, this will get it
+always right. There is not yet a way to get a number automatically represented
+as a string that matches exactly the way Perl represents it.
+
+See also the section about L<Infinity and Not a Number> for problems in
+comparing NaNs.
+
+=item int()
+
+C<int()> will return (at least for Perl v5.7.1 and up) another BigInt, not a
+Perl scalar:
+
+        $x = Math::BigInt->new(123);
+        $y = int($x);                           # BigInt 123
+        $x = Math::BigFloat->new(123.45);
+        $y = int($x);                           # BigInt 123
+
+In all Perl versions you can use C<as_number()> or C<as_int> for the same
+effect:
+
+        $x = Math::BigFloat->new(123.45);
+        $y = $x->as_number();                   # BigInt 123
+        $y = $x->as_int();                      # ditto
+
+This also works for other subclasses, like Math::String.
+
+If you want a real Perl scalar, use C<numify()>:
+
+        $y = $x->numify();                      # 123 as scalar
+
+This is seldom necessary, though, because this is done automatically, like
+when you access an array:
+
+        $z = $array[$x];                        # does work automatically
+
+=item length()
+
+The following will probably not do what you expect:
+
+        $c = Math::BigInt->new(123);
+        print $c->length(),"\n";                # prints 30
+
+It prints both the number of digits in the number and in the fraction part
+since print calls C<length()> in list context. Use something like:
+
+        print scalar $c->length(),"\n";         # prints 3
+
+=item bdiv()
+
+The following will probably not do what you expect:
+
+        print $c->bdiv(10000),"\n";
+
+It prints both quotient and remainder since print calls C<bdiv()> in list
+context. Also, C<bdiv()> will modify $c, so be careful. You probably want
+to use
+
+        print $c / 10000,"\n";
+
+or, if you want to  modify $c instead,
+
+        print scalar $c->bdiv(10000),"\n";
+
+The quotient is always the greatest integer less than or equal to the
+real-valued quotient of the two operands, and the remainder (when it is
+non-zero) always has the same sign as the second operand; so, for
+example,
+
+          1 / 4  => ( 0, 1)
+          1 / -4 => (-1,-3)
+         -3 / 4  => (-1, 1)
+         -3 / -4 => ( 0,-3)
+        -11 / 2  => (-5,1)
+         11 /-2  => (-5,-1)
+
+As a consequence, the behavior of the operator % agrees with the
+behavior of Perl's built-in % operator (as documented in the perlop
+manpage), and the equation
+
+        $x == ($x / $y) * $y + ($x % $y)
+
+holds true for any $x and $y, which justifies calling the two return
+values of bdiv() the quotient and remainder. The only exception to this rule
+are when $y == 0 and $x is negative, then the remainder will also be
+negative. See below under "infinity handling" for the reasoning behind this.
+
+Perl's 'use integer;' changes the behaviour of % and / for scalars, but will
+not change BigInt's way to do things. This is because under 'use integer' Perl
+will do what the underlying C thinks is right and this is different for each
+system. If you need BigInt's behaving exactly like Perl's 'use integer', bug
+the author to implement it ;)
+
+=item infinity handling
+
+Here are some examples that explain the reasons why certain results occur while
+handling infinity:
+
+The following table shows the result of the division and the remainder, so that
+the equation above holds true. Some "ordinary" cases are strewn in to show more
+clearly the reasoning:
+
+        A /  B  =   C,     R so that C *    B +    R =    A
+     =========================================================
+        5 /   8 =   0,     5         0 *    8 +    5 =    5
+        0 /   8 =   0,     0         0 *    8 +    0 =    0
+        0 / inf =   0,     0         0 *  inf +    0 =    0
+        0 /-inf =   0,     0         0 * -inf +    0 =    0
+        5 / inf =   0,     5         0 *  inf +    5 =    5
+        5 /-inf =   0,     5         0 * -inf +    5 =    5
+        -5/ inf =   0,    -5         0 *  inf +   -5 =   -5
+        -5/-inf =   0,    -5         0 * -inf +   -5 =   -5
+       inf/   5 =  inf,    0       inf *    5 +    0 =  inf
+      -inf/   5 = -inf,    0      -inf *    5 +    0 = -inf
+       inf/  -5 = -inf,    0      -inf *   -5 +    0 =  inf
+      -inf/  -5 =  inf,    0       inf *   -5 +    0 = -inf
+         5/   5 =    1,    0         1 *    5 +    0 =    5
+        -5/  -5 =    1,    0         1 *   -5 +    0 =   -5
+       inf/ inf =    1,    0         1 *  inf +    0 =  inf
+      -inf/-inf =    1,    0         1 * -inf +    0 = -inf
+       inf/-inf =   -1,    0        -1 * -inf +    0 =  inf
+      -inf/ inf =   -1,    0         1 * -inf +    0 = -inf
+         8/   0 =  inf,    8       inf *    0 +    8 =    8
+       inf/   0 =  inf,  inf       inf *    0 +  inf =  inf
+         0/   0 =  NaN
+
+These cases below violate the "remainder has the sign of the second of the two
+arguments", since they wouldn't match up otherwise.
+
+        A /  B  =   C,     R so that C *    B +    R =    A
+     ========================================================
+      -inf/   0 = -inf, -inf      -inf *    0 +  inf = -inf
+        -8/   0 = -inf,   -8      -inf *    0 +    8 = -8
+
+=item Modifying and =
+
+Beware of:
+
+        $x = Math::BigFloat->new(5);
+        $y = $x;
+
+It will not do what you think, e.g. making a copy of $x. Instead it just makes
+a second reference to the B<same> object and stores it in $y. Thus anything
+that modifies $x (except overloaded operators) will modify $y, and vice versa.
+Or in other words, C<=> is only safe if you modify your BigInts only via
+overloaded math. As soon as you use a method call it breaks:
+
+        $x->bmul(2);
+        print "$x, $y\n";       # prints '10, 10'
+
+If you want a true copy of $x, use:
+
+        $y = $x->copy();
+
+You can also chain the calls like this, this will make first a copy and then
+multiply it by 2:
+
+        $y = $x->copy()->bmul(2);
+
+See also the documentation for overload.pm regarding C<=>.
+
+=item bpow
+
+C<bpow()> (and the rounding functions) now modifies the first argument and
+returns it, unlike the old code which left it alone and only returned the
+result. This is to be consistent with C<badd()> etc. The first three will
+modify $x, the last one won't:
+
+        print bpow($x,$i),"\n";         # modify $x
+        print $x->bpow($i),"\n";        # ditto
+        print $x **= $i,"\n";           # the same
+        print $x ** $i,"\n";            # leave $x alone
+
+The form C<$x **= $y> is faster than C<$x = $x ** $y;>, though.
+
+=item Overloading -$x
+
+The following:
+
+        $x = -$x;
+
+is slower than
+
+        $x->bneg();
+
+since overload calls C<sub($x,0,1);> instead of C<neg($x)>. The first variant
+needs to preserve $x since it does not know that it later will get overwritten.
+This makes a copy of $x and takes O(N), but $x->bneg() is O(1).
+
+=item Mixing different object types
+
+With overloaded operators, it is the first (dominating) operand that determines
+which method is called. Here are some examples showing what actually gets
+called in various cases.
+
+        use Math::BigInt;
+        use Math::BigFloat;
+
+        $mbf  = Math::BigFloat->new(5);
+        $mbi2 = Math::BigInt->new(5);
+        $mbi  = Math::BigInt->new(2);
+                                        # what actually gets called:
+        $float = $mbf + $mbi;           # $mbf->badd($mbi)
+        $float = $mbf / $mbi;           # $mbf->bdiv($mbi)
+        $integer = $mbi + $mbf;         # $mbi->badd($mbf)
+        $integer = $mbi2 / $mbi;        # $mbi2->bdiv($mbi)
+        $integer = $mbi2 / $mbf;        # $mbi2->bdiv($mbf)
+
+For instance, Math::BigInt->bdiv() will always return a Math::BigInt, regardless of
+whether the second operant is a Math::BigFloat. To get a Math::BigFloat you
+either need to call the operation manually, make sure each operand already is a
+Math::BigFloat, or cast to that type via Math::BigFloat->new():
+
+        $float = Math::BigFloat->new($mbi2) / $mbi;     # = 2.5
+
+Beware of casting the entire expression, as this would cast the
+result, at which point it is too late:
+
+        $float = Math::BigFloat->new($mbi2 / $mbi);     # = 2
+
+Beware also of the order of more complicated expressions like:
+
+        $integer = ($mbi2 + $mbi) / $mbf;               # int / float => int
+        $integer = $mbi2 / Math::BigFloat->new($mbi);   # ditto
+
+If in doubt, break the expression into simpler terms, or cast all operands
+to the desired resulting type.
+
+Scalar values are a bit different, since:
+
+        $float = 2 + $mbf;
+        $float = $mbf + 2;
+
+will both result in the proper type due to the way the overloaded math works.
+
+This section also applies to other overloaded math packages, like Math::String.
+
+One solution to you problem might be autoupgrading|upgrading. See the
+pragmas L<bignum>, L<bigint> and L<bigrat> for an easy way to do this.
+
+=item bsqrt()
+
+C<bsqrt()> works only good if the result is a big integer, e.g. the square
+root of 144 is 12, but from 12 the square root is 3, regardless of rounding
+mode. The reason is that the result is always truncated to an integer.
+
+If you want a better approximation of the square root, then use:
+
+        $x = Math::BigFloat->new(12);
+        Math::BigFloat->precision(0);
+        Math::BigFloat->round_mode('even');
+        print $x->copy->bsqrt(),"\n";           # 4
+
+        Math::BigFloat->precision(2);
+        print $x->bsqrt(),"\n";                 # 3.46
+        print $x->bsqrt(3),"\n";                # 3.464
+
+=item brsft()
+
+For negative numbers in base see also L<brsft|/brsft()>.
+
+=back
+
+=head1 BUGS
+
+Please report any bugs or feature requests to
+C<bug-math-bigint at rt.cpan.org>, or through the web interface at
+L<https://rt.cpan.org/Ticket/Create.html?Queue=Math-BigInt>
+(requires login).
+We will be notified, and then you'll automatically be notified of progress on
+your bug as I make changes.
+
+=head1 SUPPORT
+
+You can find documentation for this module with the perldoc command.
+
+    perldoc Math::BigInt
+
+You can also look for information at:
+
+=over 4
+
+=item * RT: CPAN's request tracker
+
+L<https://rt.cpan.org/Public/Dist/Display.html?Name=Math-BigInt>
+
+=item * AnnoCPAN: Annotated CPAN documentation
+
+L<http://annocpan.org/dist/Math-BigInt>
+
+=item * CPAN Ratings
+
+L<http://cpanratings.perl.org/dist/Math-BigInt>
+
+=item * Search CPAN
+
+L<http://search.cpan.org/dist/Math-BigInt/>
+
+=item * CPAN Testers Matrix
+
+L<http://matrix.cpantesters.org/?dist=Math-BigInt>
+
+=item * The Bignum mailing list
+
+=over 4
+
+=item * Post to mailing list
+
+C<bignum at lists.scsys.co.uk>
+
+=item * View mailing list
+
+L<http://lists.scsys.co.uk/pipermail/bignum/>
+
+=item * Subscribe/Unsubscribe
+
+L<http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/bignum>
+
+=back
+
+=back
+
+=head1 LICENSE
+
+This program is free software; you may redistribute it and/or modify it under
+the same terms as Perl itself.
+
+=head1 SEE ALSO
+
+L<Math::BigFloat> and L<Math::BigRat> as well as the backends
+L<Math::BigInt::FastCalc>, L<Math::BigInt::GMP>, and L<Math::BigInt::Pari>.
+
+The pragmas L<bignum>, L<bigint> and L<bigrat> also might be of interest
+because they solve the autoupgrading/downgrading issue, at least partly.
+
+=head1 AUTHORS
+
+=over 4
+
+=item *
+
+Mark Biggar, overloaded interface by Ilya Zakharevich, 1996-2001.
+
+=item *
+
+Completely rewritten by Tels L<http://bloodgate.com>, 2001-2008.
+
+=item *
+
+Florian Ragwitz E<lt>flora@cpan.orgE<gt>, 2010.
+
+=item *
+
+Peter John Acklam E<lt>pjacklam@online.noE<gt>, 2011-.
+
+=back
+
+Many people contributed in one or more ways to the final beast, see the file
+CREDITS for an (incomplete) list. If you miss your name, please drop me a
+mail. Thank you!
+
+=cut
diff --git a/lib/5.24.1/Math/BigInt/Calc.pm b/lib/5.24.1/Math/BigInt/Calc.pm
new file mode 100644
index 00000000..1a7e4af9
--- /dev/null
+++ b/lib/5.24.1/Math/BigInt/Calc.pm
@@ -0,0 +1,3009 @@
+package Math::BigInt::Calc;
+
+use 5.006001;
+use strict;
+use warnings;
+
+our $VERSION = '1.999715';
+$VERSION = eval $VERSION;
+
+# Package to store unsigned big integers in decimal and do math with them
+
+# Internally the numbers are stored in an array with at least 1 element, no
+# leading zero parts (except the first) and in base 1eX where X is determined
+# automatically at loading time to be the maximum possible value
+
+# todo:
+# - fully remove funky $# stuff in div() (maybe - that code scares me...)
+
+# USE_MUL: due to problems on certain os (os390, posix-bc) "* 1e-5" is used
+# instead of "/ 1e5" at some places, (marked with USE_MUL). Other platforms
+# BS2000, some Crays need USE_DIV instead.
+# The BEGIN block is used to determine which of the two variants gives the
+# correct result.
+
+# Beware of things like:
+# $i = $i * $y + $car; $car = int($i / $BASE); $i = $i % $BASE;
+# This works on x86, but fails on ARM (SA1100, iPAQ) due to who knows what
+# reasons. So, use this instead (slower, but correct):
+# $i = $i * $y + $car; $car = int($i / $BASE); $i -= $BASE * $car;
+
+##############################################################################
+# global constants, flags and accessory
+
+# announce that we are compatible with MBI v1.83 and up
+sub api_version () { 2; }
+ 
+# constants for easier life
+my ($BASE,$BASE_LEN,$RBASE,$MAX_VAL);
+my ($AND_BITS,$XOR_BITS,$OR_BITS);
+my ($AND_MASK,$XOR_MASK,$OR_MASK);
+
+sub _base_len 
+  {
+  # Set/get the BASE_LEN and assorted other, connected values.
+  # Used only by the testsuite, the set variant is used only by the BEGIN
+  # block below:
+  shift;
+
+  my ($b, $int) = @_;
+  if (defined $b)
+    {
+    # avoid redefinitions
+    undef &_mul;
+    undef &_div;
+
+    if ($] >= 5.008 && $int && $b > 7)
+      {
+      $BASE_LEN = $b;
+      *_mul = \&_mul_use_div_64;
+      *_div = \&_div_use_div_64;
+      $BASE = int("1e".$BASE_LEN);
+      $MAX_VAL = $BASE-1;
+      return $BASE_LEN unless wantarray;
+      return ($BASE_LEN, $BASE, $AND_BITS, $XOR_BITS, $OR_BITS, $BASE_LEN, $MAX_VAL,);
+      }
+
+    # find whether we can use mul or div in mul()/div()
+    $BASE_LEN = $b+1;
+    my $caught = 0;
+    while (--$BASE_LEN > 5)
+      {
+      $BASE = int("1e".$BASE_LEN);
+      $RBASE = abs('1e-'.$BASE_LEN);			# see USE_MUL
+      $caught = 0;
+      $caught += 1 if (int($BASE * $RBASE) != 1);	# should be 1
+      $caught += 2 if (int($BASE / $BASE) != 1);	# should be 1
+      last if $caught != 3;
+      }
+    $BASE = int("1e".$BASE_LEN);
+    $RBASE = abs('1e-'.$BASE_LEN);			# see USE_MUL
+    $MAX_VAL = $BASE-1;
+   
+    # ($caught & 1) != 0 => cannot use MUL
+    # ($caught & 2) != 0 => cannot use DIV
+    if ($caught == 2)				# 2
+      {
+      # must USE_MUL since we cannot use DIV
+      *_mul = \&_mul_use_mul;
+      *_div = \&_div_use_mul;
+      }
+    else					# 0 or 1
+      {
+      # can USE_DIV instead
+      *_mul = \&_mul_use_div;
+      *_div = \&_div_use_div;
+      }
+    }
+  return $BASE_LEN unless wantarray;
+  return ($BASE_LEN, $BASE, $AND_BITS, $XOR_BITS, $OR_BITS, $BASE_LEN, $MAX_VAL);
+  }
+
+sub _new {
+    # Given a string representing an integer, returns a reference to an array
+    # of integers, where each integer represents a chunk of the original input
+    # integer. Assumes normalized value as input.
+
+    my ($proto, $str) = @_;
+
+    my $input_len = length($str) - 1;
+
+    # Shortcut for small numbers.
+    return [ int($str) ] if $input_len < $BASE_LEN;
+
+    my $format = "a" . (($input_len % $BASE_LEN) + 1);
+    $format .= $] < 5.008 ? "a$BASE_LEN" x int($input_len / $BASE_LEN)
+                          : "(a$BASE_LEN)*";
+
+    [ reverse(map { 0 + $_ } unpack($format, $str)) ];
+}
+
+BEGIN
+  {
+  # from Daniel Pfeiffer: determine largest group of digits that is precisely
+  # multipliable with itself plus carry
+  # Test now changed to expect the proper pattern, not a result off by 1 or 2
+  my ($e, $num) = 3;	# lowest value we will use is 3+1-1 = 3
+  do {
+      $num = '9' x ++$e;
+      $num *= $num + 1;
+  } while $num =~ /9{$e}0{$e}/;		# must be a certain pattern
+  $e--; 				# last test failed, so retract one step
+  # the limits below brush the problems with the test above under the rug:
+  # the test should be able to find the proper $e automatically
+  $e = 5 if $^O =~ /^uts/;	# UTS get's some special treatment
+  $e = 5 if $^O =~ /^unicos/;	# unicos is also problematic (6 seems to work
+				# there, but we play safe)
+
+  my $int = 0;
+  if ($e > 7)
+    {
+    use integer;
+    my $e1 = 7;
+    $num = 7;
+    do 
+      {
+      $num = ('9' x ++$e1) + 0;
+      $num *= $num + 1;
+      } while ("$num" =~ /9{$e1}0{$e1}/);	# must be a certain pattern
+    $e1--; 					# last test failed, so retract one step
+    if ($e1 > 7)
+      { 
+      $int = 1; $e = $e1; 
+      }
+    }
+ 
+  __PACKAGE__->_base_len($e,$int);	# set and store
+
+  use integer;
+  # find out how many bits _and, _or and _xor can take (old default = 16)
+  # I don't think anybody has yet 128 bit scalars, so let's play safe.
+  local $^W = 0;	# don't warn about 'nonportable number'
+  $AND_BITS = 15; $XOR_BITS = 15; $OR_BITS = 15;
+
+  # find max bits, we will not go higher than numberofbits that fit into $BASE
+  # to make _and etc simpler (and faster for smaller, slower for large numbers)
+  my $max = 16;
+  while (2 ** $max < $BASE) { $max++; }
+  {
+    no integer;
+    $max = 16 if $] < 5.006;	# older Perls might not take >16 too well
+  }
+  my ($x,$y,$z);
+  do {
+    $AND_BITS++;
+    $x = CORE::oct('0b' . '1' x $AND_BITS); $y = $x & $x;
+    $z = (2 ** $AND_BITS) - 1;
+    } while ($AND_BITS < $max && $x == $z && $y == $x);
+  $AND_BITS --;						# retreat one step
+  do {
+    $XOR_BITS++;
+    $x = CORE::oct('0b' . '1' x $XOR_BITS); $y = $x ^ 0;
+    $z = (2 ** $XOR_BITS) - 1;
+    } while ($XOR_BITS < $max && $x == $z && $y == $x);
+  $XOR_BITS --;						# retreat one step
+  do {
+    $OR_BITS++;
+    $x = CORE::oct('0b' . '1' x $OR_BITS); $y = $x | $x;
+    $z = (2 ** $OR_BITS) - 1;
+    } while ($OR_BITS < $max && $x == $z && $y == $x);
+  $OR_BITS --;						# retreat one step
+  
+  $AND_MASK = __PACKAGE__->_new( ( 2 ** $AND_BITS ));
+  $XOR_MASK = __PACKAGE__->_new( ( 2 ** $XOR_BITS ));
+  $OR_MASK = __PACKAGE__->_new( ( 2 ** $OR_BITS ));
+
+  # We can compute the approximate length no faster than the real length:
+  *_alen = \&_len;
+  }
+
+###############################################################################
+
+sub _zero
+  {
+  # create a zero
+  [ 0 ];
+  }
+
+sub _one
+  {
+  # create a one
+  [ 1 ];
+  }
+
+sub _two
+  {
+  # create a two (used internally for shifting)
+  [ 2 ];
+  }
+
+sub _ten
+  {
+  # create a 10 (used internally for shifting)
+  [ 10 ];
+  }
+
+sub _1ex
+  {
+  # create a 1Ex
+  my $rem = $_[1] % $BASE_LEN;		# remainder
+  my $parts = $_[1] / $BASE_LEN;	# parts
+
+  # 000000, 000000, 100 
+  [ (0) x $parts, '1' . ('0' x $rem) ];
+  }
+
+sub _copy
+  {
+  # make a true copy
+  [ @{$_[1]} ];
+  }
+
+# catch and throw away
+sub import { }
+
+##############################################################################
+# convert back to string and number
+
+sub _str {
+    # Convert number from internal base 1eN format to string format. Internal
+    # format is always normalized, i.e., no leading zeros.
+
+    my $ary = $_[1];
+    my $idx = $#$ary;             # index of last element
+
+    if ($idx < 0) {               # should not happen
+        require Carp;
+        Carp::croak("$_[1] has no elements");
+    }
+
+    # Handle first one differently, since it should not have any leading zeros.
+    my $ret = int($ary->[$idx]);
+    if ($idx > 0) {
+        $idx--;
+        # Interestingly, the pre-padd method uses more time
+        # the old grep variant takes longer (14 vs. 10 sec)
+        my $z = '0' x ($BASE_LEN - 1);
+        while ($idx >= 0) {
+            $ret .= substr($z . $ary->[$idx], -$BASE_LEN);
+            $idx--;
+        }
+    }
+    $ret;
+}
+
+sub _num
+  {
+    # Make a Perl scalar number (int/float) from a BigInt object.
+    my $x = $_[1];
+
+    return 0 + $x->[0] if scalar @$x == 1;      # below $BASE
+
+    # Start with the most significant element and work towards the least
+    # significant element. Avoid multiplying "inf" (which happens if the number
+    # overflows) with "0" (if there are zero elements in $x) since this gives
+    # "nan" which propagates to the output.
+
+    my $num = 0;
+    for (my $i = $#$x ; $i >= 0 ; --$i) {
+        $num *= $BASE;
+        $num += $x -> [$i];
+    }
+    return $num;
+  }
+
+##############################################################################
+# actual math code
+
+sub _add {
+    # (ref to int_num_array, ref to int_num_array)
+    #
+    # Routine to add two base 1eX numbers stolen from Knuth Vol 2 Algorithm A
+    # pg 231. There are separate routines to add and sub as per Knuth pg 233.
+    # This routine modifies array x, but not y.
+
+    my ($c, $x, $y) = @_;
+
+    return $x if @$y == 1 && $y->[0] == 0;      # $x + 0 => $x
+    if (@$x == 1 && $x->[0] == 0) {             # 0 + $y => $y->copy
+        # Twice as slow as $x = [ @$y ], but necessary to modify $x in-place.
+        @$x = @$y;
+        return $x;
+    }
+
+    # For each in Y, add Y to X and carry. If after that, something is left in
+    # X, foreach in X add carry to X and then return X, carry. Trades one
+    # "$j++" for having to shift arrays.
+    my $i;
+    my $car = 0;
+    my $j = 0;
+    for $i (@$y) {
+        $x->[$j] -= $BASE if $car = (($x->[$j] += $i + $car) >= $BASE) ? 1 : 0;
+        $j++;
+    }
+    while ($car != 0) {
+        $x->[$j] -= $BASE if $car = (($x->[$j] += $car) >= $BASE) ? 1 : 0;
+        $j++;
+    }
+    $x;
+}
+
+sub _inc {
+    # (ref to int_num_array, ref to int_num_array)
+    # Add 1 to $x, modify $x in place
+    my ($c, $x) = @_;
+
+    for my $i (@$x) {
+        return $x if ($i += 1) < $BASE;		# early out
+        $i = 0;					# overflow, next
+    }
+    push @$x, 1 if $x->[-1] == 0;		# last overflowed, so extend
+    $x;
+}
+
+sub _dec {
+    # (ref to int_num_array, ref to int_num_array)
+    # Sub 1 from $x, modify $x in place
+    my ($c, $x) = @_;
+
+    my $MAX = $BASE - 1;			# since MAX_VAL based on BASE
+    for my $i (@$x) {
+        last if ($i -= 1) >= 0;			# early out
+        $i = $MAX;				# underflow, next
+    }
+    pop @$x if $x->[-1] == 0 && @$x > 1;	# last underflowed (but leave 0)
+    $x;
+}
+
+sub _sub {
+    # (ref to int_num_array, ref to int_num_array, swap)
+    #
+    # Subtract base 1eX numbers -- stolen from Knuth Vol 2 pg 232, $x > $y
+    # subtract Y from X by modifying x in place
+    my ($c, $sx, $sy, $s) = @_;
+
+    my $car = 0;
+    my $i;
+    my $j = 0;
+    if (!$s) {
+        for $i (@$sx) {
+            last unless defined $sy->[$j] || $car;
+            $i += $BASE if $car = (($i -= ($sy->[$j] || 0) + $car) < 0);
+            $j++;
+        }
+        # might leave leading zeros, so fix that
+        return __strip_zeros($sx);
+    }
+    for $i (@$sx) {
+        # We can't do an early out if $x < $y, since we need to copy the high
+        # chunks from $y. Found by Bob Mathews.
+        #last unless defined $sy->[$j] || $car;
+        $sy->[$j] += $BASE
+          if $car = ($sy->[$j] = $i - ($sy->[$j] || 0) - $car) < 0;
+        $j++;
+    }
+    # might leave leading zeros, so fix that
+    __strip_zeros($sy);
+}
+
+sub _mul_use_mul
+  {
+  # (ref to int_num_array, ref to int_num_array)
+  # multiply two numbers in internal representation
+  # modifies first arg, second need not be different from first
+  my ($c,$xv,$yv) = @_;
+
+  if (@$yv == 1)
+    {
+    # shortcut for two very short numbers (improved by Nathan Zook)
+    # works also if xv and yv are the same reference, and handles also $x == 0
+    if (@$xv == 1)
+      {
+      if (($xv->[0] *= $yv->[0]) >= $BASE)
+         {
+         $xv->[0] = $xv->[0] - ($xv->[1] = int($xv->[0] * $RBASE)) * $BASE;
+         };
+      return $xv;
+      }
+    # $x * 0 => 0
+    if ($yv->[0] == 0)
+      {
+      @$xv = (0);
+      return $xv;
+      }
+    # multiply a large number a by a single element one, so speed up
+    my $y = $yv->[0]; my $car = 0;
+    foreach my $i (@$xv)
+      {
+      $i = $i * $y + $car; $car = int($i * $RBASE); $i -= $car * $BASE;
+      }
+    push @$xv, $car if $car != 0;
+    return $xv;
+    }
+  # shortcut for result $x == 0 => result = 0
+  return $xv if ( ((@$xv == 1) && ($xv->[0] == 0)) ); 
+
+  # since multiplying $x with $x fails, make copy in this case
+  $yv = [@$xv] if $xv == $yv;	# same references?
+
+  my @prod = (); my ($prod,$car,$cty,$xi,$yi);
+
+  for $xi (@$xv)
+    {
+    $car = 0; $cty = 0;
+
+    # slow variant
+#    for $yi (@$yv)
+#      {
+#      $prod = $xi * $yi + ($prod[$cty] || 0) + $car;
+#      $prod[$cty++] =
+#       $prod - ($car = int($prod * RBASE)) * $BASE;  # see USE_MUL
+#      }
+#    $prod[$cty] += $car if $car; # need really to check for 0?
+#    $xi = shift @prod;
+
+    # faster variant
+    # looping through this if $xi == 0 is silly - so optimize it away!
+    $xi = (shift @prod || 0), next if $xi == 0;
+    for $yi (@$yv)
+      {
+      $prod = $xi * $yi + ($prod[$cty] || 0) + $car;
+##     this is actually a tad slower
+##        $prod = $prod[$cty]; $prod += ($car + $xi * $yi);	# no ||0 here
+      $prod[$cty++] =
+       $prod - ($car = int($prod * $RBASE)) * $BASE;  # see USE_MUL
+      }
+    $prod[$cty] += $car if $car; # need really to check for 0?
+    $xi = shift @prod || 0;	# || 0 makes v5.005_3 happy
+    }
+  push @$xv, @prod;
+  # can't have leading zeros
+#  __strip_zeros($xv);
+  $xv;
+  }                                                                             
+
+sub _mul_use_div_64
+  {
+  # (ref to int_num_array, ref to int_num_array)
+  # multiply two numbers in internal representation
+  # modifies first arg, second need not be different from first
+  # works for 64 bit integer with "use integer"
+  my ($c,$xv,$yv) = @_;
+
+  use integer;
+  if (@$yv == 1)
+    {
+    # shortcut for two small numbers, also handles $x == 0
+    if (@$xv == 1)
+      {
+      # shortcut for two very short numbers (improved by Nathan Zook)
+      # works also if xv and yv are the same reference, and handles also $x == 0
+      if (($xv->[0] *= $yv->[0]) >= $BASE)
+          {
+          $xv->[0] =
+              $xv->[0] - ($xv->[1] = $xv->[0] / $BASE) * $BASE;
+          };
+      return $xv;
+      }
+    # $x * 0 => 0
+    if ($yv->[0] == 0)
+      {
+      @$xv = (0);
+      return $xv;
+      }
+    # multiply a large number a by a single element one, so speed up
+    my $y = $yv->[0]; my $car = 0;
+    foreach my $i (@$xv)
+      {
+      #$i = $i * $y + $car; $car = $i / $BASE; $i -= $car * $BASE;
+      $i = $i * $y + $car; $i -= ($car = $i / $BASE) * $BASE;
+      }
+    push @$xv, $car if $car != 0;
+    return $xv;
+    }
+  # shortcut for result $x == 0 => result = 0
+  return $xv if ( ((@$xv == 1) && ($xv->[0] == 0)) ); 
+
+  # since multiplying $x with $x fails, make copy in this case
+  $yv = [@$xv] if $xv == $yv;	# same references?
+
+  my @prod = (); my ($prod,$car,$cty,$xi,$yi);
+  for $xi (@$xv)
+    {
+    $car = 0; $cty = 0;
+    # looping through this if $xi == 0 is silly - so optimize it away!
+    $xi = (shift @prod || 0), next if $xi == 0;
+    for $yi (@$yv)
+      {
+      $prod = $xi * $yi + ($prod[$cty] || 0) + $car;
+      $prod[$cty++] = $prod - ($car = $prod / $BASE) * $BASE;
+      }
+    $prod[$cty] += $car if $car; # need really to check for 0?
+    $xi = shift @prod || 0;	# || 0 makes v5.005_3 happy
+    }
+  push @$xv, @prod;
+  $xv;
+  }                                                                             
+
+sub _mul_use_div
+  {
+  # (ref to int_num_array, ref to int_num_array)
+  # multiply two numbers in internal representation
+  # modifies first arg, second need not be different from first
+  my ($c,$xv,$yv) = @_;
+
+  if (@$yv == 1)
+    {
+    # shortcut for two small numbers, also handles $x == 0
+    if (@$xv == 1)
+      {
+      # shortcut for two very short numbers (improved by Nathan Zook)
+      # works also if xv and yv are the same reference, and handles also $x == 0
+      if (($xv->[0] *= $yv->[0]) >= $BASE)
+          {
+          $xv->[0] =
+              $xv->[0] - ($xv->[1] = int($xv->[0] / $BASE)) * $BASE;
+          };
+      return $xv;
+      }
+    # $x * 0 => 0
+    if ($yv->[0] == 0)
+      {
+      @$xv = (0);
+      return $xv;
+      }
+    # multiply a large number a by a single element one, so speed up
+    my $y = $yv->[0]; my $car = 0;
+    foreach my $i (@$xv)
+      {
+      $i = $i * $y + $car; $car = int($i / $BASE); $i -= $car * $BASE;
+      # This (together with use integer;) does not work on 32-bit Perls
+      #$i = $i * $y + $car; $i -= ($car = $i / $BASE) * $BASE;
+      }
+    push @$xv, $car if $car != 0;
+    return $xv;
+    }
+  # shortcut for result $x == 0 => result = 0
+  return $xv if ( ((@$xv == 1) && ($xv->[0] == 0)) ); 
+
+  # since multiplying $x with $x fails, make copy in this case
+  $yv = [@$xv] if $xv == $yv;	# same references?
+
+  my @prod = (); my ($prod,$car,$cty,$xi,$yi);
+  for $xi (@$xv)
+    {
+    $car = 0; $cty = 0;
+    # looping through this if $xi == 0 is silly - so optimize it away!
+    $xi = (shift @prod || 0), next if $xi == 0;
+    for $yi (@$yv)
+      {
+      $prod = $xi * $yi + ($prod[$cty] || 0) + $car;
+      $prod[$cty++] = $prod - ($car = int($prod / $BASE)) * $BASE;
+      }
+    $prod[$cty] += $car if $car; # need really to check for 0?
+    $xi = shift @prod || 0;	# || 0 makes v5.005_3 happy
+    }
+  push @$xv, @prod;
+  # can't have leading zeros
+#  __strip_zeros($xv);
+  $xv;
+  }                                                                             
+
+sub _div_use_mul
+  {
+  # ref to array, ref to array, modify first array and return remainder if 
+  # in list context
+
+  # see comments in _div_use_div() for more explanations
+
+  my ($c,$x,$yorg) = @_;
+  
+  # the general div algorithm here is about O(N*N) and thus quite slow, so
+  # we first check for some special cases and use shortcuts to handle them.
+
+  # This works, because we store the numbers in a chunked format where each
+  # element contains 5..7 digits (depending on system).
+
+  # if both numbers have only one element:
+  if (@$x == 1 && @$yorg == 1)
+    {
+    # shortcut, $yorg and $x are two small numbers
+    if (wantarray)
+      {
+      my $r = [ $x->[0] % $yorg->[0] ];
+      $x->[0] = int($x->[0] / $yorg->[0]);
+      return ($x,$r); 
+      }
+    else
+      {
+      $x->[0] = int($x->[0] / $yorg->[0]);
+      return $x; 
+      }
+    }
+
+  # if x has more than one, but y has only one element:
+  if (@$yorg == 1)
+    {
+    my $rem;
+    $rem = _mod($c,[ @$x ],$yorg) if wantarray;
+
+    # shortcut, $y is < $BASE
+    my $j = scalar @$x; my $r = 0; 
+    my $y = $yorg->[0]; my $b;
+    while ($j-- > 0)
+      {
+      $b = $r * $BASE + $x->[$j];
+      $x->[$j] = int($b/$y);
+      $r = $b % $y;
+      }
+    pop @$x if @$x > 1 && $x->[-1] == 0;	# splice up a leading zero 
+    return ($x,$rem) if wantarray;
+    return $x;
+    }
+
+  # now x and y have more than one element
+
+  # check whether y has more elements than x, if yet, the result will be 0
+  if (@$yorg > @$x)
+    {
+    my $rem;
+    $rem = [@$x] if wantarray;                  # make copy
+    splice (@$x,1);                             # keep ref to original array
+    $x->[0] = 0;                                # set to 0
+    return ($x,$rem) if wantarray;              # including remainder?
+    return $x;					# only x, which is [0] now
+    }
+  # check whether the numbers have the same number of elements, in that case
+  # the result will fit into one element and can be computed efficiently
+  if (@$yorg == @$x)
+    {
+    my $rem;
+    # if $yorg has more digits than $x (it's leading element is longer than
+    # the one from $x), the result will also be 0:
+    if (length(int($yorg->[-1])) > length(int($x->[-1])))
+      {
+      $rem = [@$x] if wantarray;		# make copy
+      splice (@$x,1);				# keep ref to org array
+      $x->[0] = 0;				# set to 0
+      return ($x,$rem) if wantarray;		# including remainder?
+      return $x;
+      }
+    # now calculate $x / $yorg
+    if (length(int($yorg->[-1])) == length(int($x->[-1])))
+      {
+      # same length, so make full compare
+
+      my $a = 0; my $j = scalar @$x - 1;
+      # manual way (abort if unequal, good for early ne)
+      while ($j >= 0)
+        {
+        last if ($a = $x->[$j] - $yorg->[$j]); $j--;
+        }
+      # $a contains the result of the compare between X and Y
+      # a < 0: x < y, a == 0: x == y, a > 0: x > y
+      if ($a <= 0)
+        {
+        $rem = [ 0 ];                   # a = 0 => x == y => rem 0
+        $rem = [@$x] if $a != 0;        # a < 0 => x < y => rem = x
+        splice(@$x,1);                  # keep single element
+        $x->[0] = 0;                    # if $a < 0
+        $x->[0] = 1 if $a == 0;         # $x == $y
+        return ($x,$rem) if wantarray;
+        return $x;
+        }
+      # $x >= $y, so proceed normally
+      }
+    }
+
+  # all other cases:
+
+  my $y = [ @$yorg ];				# always make copy to preserve
+
+  my ($car,$bar,$prd,$dd,$xi,$yi,@q,$v2,$v1,@d,$tmp,$q,$u2,$u1,$u0);
+
+  $car = $bar = $prd = 0;
+  if (($dd = int($BASE/($y->[-1]+1))) != 1) 
+    {
+    for $xi (@$x) 
+      {
+      $xi = $xi * $dd + $car;
+      $xi -= ($car = int($xi * $RBASE)) * $BASE;	# see USE_MUL
+      }
+    push(@$x, $car); $car = 0;
+    for $yi (@$y) 
+      {
+      $yi = $yi * $dd + $car;
+      $yi -= ($car = int($yi * $RBASE)) * $BASE;	# see USE_MUL
+      }
+    }
+  else 
+    {
+    push(@$x, 0);
+    }
+  @q = (); ($v2,$v1) = @$y[-2,-1];
+  $v2 = 0 unless $v2;
+  while ($#$x > $#$y) 
+    {
+    ($u2,$u1,$u0) = @$x[-3..-1];
+    $u2 = 0 unless $u2;
+    #warn "oups v1 is 0, u0: $u0 $y->[-2] $y->[-1] l ",scalar @$y,"\n"
+    # if $v1 == 0;
+    $q = (($u0 == $v1) ? $MAX_VAL : int(($u0*$BASE+$u1)/$v1));
+    --$q while ($v2*$q > ($u0*$BASE+$u1-$q*$v1)*$BASE+$u2);
+    if ($q)
+      {
+      ($car, $bar) = (0,0);
+      for ($yi = 0, $xi = $#$x-$#$y-1; $yi <= $#$y; ++$yi,++$xi) 
+        {
+        $prd = $q * $y->[$yi] + $car;
+        $prd -= ($car = int($prd * $RBASE)) * $BASE;	# see USE_MUL
+	$x->[$xi] += $BASE if ($bar = (($x->[$xi] -= $prd + $bar) < 0));
+	}
+      if ($x->[-1] < $car + $bar) 
+        {
+        $car = 0; --$q;
+	for ($yi = 0, $xi = $#$x-$#$y-1; $yi <= $#$y; ++$yi,++$xi) 
+          {
+	  $x->[$xi] -= $BASE
+	   if ($car = (($x->[$xi] += $y->[$yi] + $car) >= $BASE));
+	  }
+	}   
+      }
+    pop(@$x);
+    unshift(@q, $q);
+    }
+  if (wantarray) 
+    {
+    @d = ();
+    if ($dd != 1)  
+      {
+      $car = 0; 
+      for $xi (reverse @$x) 
+        {
+        $prd = $car * $BASE + $xi;
+        $car = $prd - ($tmp = int($prd / $dd)) * $dd; # see USE_MUL
+        unshift(@d, $tmp);
+        }
+      }
+    else 
+      {
+      @d = @$x;
+      }
+    @$x = @q;
+    my $d = \@d; 
+    __strip_zeros($x);
+    __strip_zeros($d);
+    return ($x,$d);
+    }
+  @$x = @q;
+  __strip_zeros($x);
+  $x;
+  }
+
+sub _div_use_div_64
+  {
+  # ref to array, ref to array, modify first array and return remainder if 
+  # in list context
+  # This version works on 64 bit integers
+  my ($c,$x,$yorg) = @_;
+
+  use integer;
+  # the general div algorithm here is about O(N*N) and thus quite slow, so
+  # we first check for some special cases and use shortcuts to handle them.
+
+  # This works, because we store the numbers in a chunked format where each
+  # element contains 5..7 digits (depending on system).
+
+  # if both numbers have only one element:
+  if (@$x == 1 && @$yorg == 1)
+    {
+    # shortcut, $yorg and $x are two small numbers
+    if (wantarray)
+      {
+      my $r = [ $x->[0] % $yorg->[0] ];
+      $x->[0] = int($x->[0] / $yorg->[0]);
+      return ($x,$r); 
+      }
+    else
+      {
+      $x->[0] = int($x->[0] / $yorg->[0]);
+      return $x; 
+      }
+    }
+  # if x has more than one, but y has only one element:
+  if (@$yorg == 1)
+    {
+    my $rem;
+    $rem = _mod($c,[ @$x ],$yorg) if wantarray;
+
+    # shortcut, $y is < $BASE
+    my $j = scalar @$x; my $r = 0; 
+    my $y = $yorg->[0]; my $b;
+    while ($j-- > 0)
+      {
+      $b = $r * $BASE + $x->[$j];
+      $x->[$j] = int($b/$y);
+      $r = $b % $y;
+      }
+    pop @$x if @$x > 1 && $x->[-1] == 0;	# splice up a leading zero 
+    return ($x,$rem) if wantarray;
+    return $x;
+    }
+  # now x and y have more than one element
+
+  # check whether y has more elements than x, if yet, the result will be 0
+  if (@$yorg > @$x)
+    {
+    my $rem;
+    $rem = [@$x] if wantarray;			# make copy
+    splice (@$x,1);				# keep ref to original array
+    $x->[0] = 0;				# set to 0
+    return ($x,$rem) if wantarray;		# including remainder?
+    return $x;					# only x, which is [0] now
+    }
+  # check whether the numbers have the same number of elements, in that case
+  # the result will fit into one element and can be computed efficiently
+  if (@$yorg == @$x)
+    {
+    my $rem;
+    # if $yorg has more digits than $x (it's leading element is longer than
+    # the one from $x), the result will also be 0:
+    if (length(int($yorg->[-1])) > length(int($x->[-1])))
+      {
+      $rem = [@$x] if wantarray;		# make copy
+      splice (@$x,1);				# keep ref to org array
+      $x->[0] = 0;				# set to 0
+      return ($x,$rem) if wantarray;		# including remainder?
+      return $x;
+      }
+    # now calculate $x / $yorg
+
+    if (length(int($yorg->[-1])) == length(int($x->[-1])))
+      {
+      # same length, so make full compare
+
+      my $a = 0; my $j = scalar @$x - 1;
+      # manual way (abort if unequal, good for early ne)
+      while ($j >= 0)
+        {
+        last if ($a = $x->[$j] - $yorg->[$j]); $j--;
+        }
+      # $a contains the result of the compare between X and Y
+      # a < 0: x < y, a == 0: x == y, a > 0: x > y
+      if ($a <= 0)
+        {
+        $rem = [ 0 ];			# a = 0 => x == y => rem 0
+        $rem = [@$x] if $a != 0;	# a < 0 => x < y => rem = x
+        splice(@$x,1);			# keep single element
+        $x->[0] = 0;			# if $a < 0
+        $x->[0] = 1 if $a == 0; 	# $x == $y
+        return ($x,$rem) if wantarray;	# including remainder?
+        return $x;
+        }
+      # $x >= $y, so proceed normally
+
+      }
+    }
+
+  # all other cases:
+
+  my $y = [ @$yorg ];				# always make copy to preserve
+ 
+  my ($car,$bar,$prd,$dd,$xi,$yi,@q,$v2,$v1,@d,$tmp,$q,$u2,$u1,$u0);
+
+  $car = $bar = $prd = 0;
+  if (($dd = int($BASE/($y->[-1]+1))) != 1) 
+    {
+    for $xi (@$x) 
+      {
+      $xi = $xi * $dd + $car;
+      $xi -= ($car = int($xi / $BASE)) * $BASE;
+      }
+    push(@$x, $car); $car = 0;
+    for $yi (@$y) 
+      {
+      $yi = $yi * $dd + $car;
+      $yi -= ($car = int($yi / $BASE)) * $BASE;
+      }
+    }
+  else 
+    {
+    push(@$x, 0);
+    }
+
+  # @q will accumulate the final result, $q contains the current computed
+  # part of the final result
+
+  @q = (); ($v2,$v1) = @$y[-2,-1];
+  $v2 = 0 unless $v2;
+  while ($#$x > $#$y) 
+    {
+    ($u2,$u1,$u0) = @$x[-3..-1];
+    $u2 = 0 unless $u2;
+    #warn "oups v1 is 0, u0: $u0 $y->[-2] $y->[-1] l ",scalar @$y,"\n"
+    # if $v1 == 0;
+    $q = (($u0 == $v1) ? $MAX_VAL : int(($u0*$BASE+$u1)/$v1));
+    --$q while ($v2*$q > ($u0*$BASE+$u1-$q*$v1)*$BASE+$u2);
+    if ($q)
+      {
+      ($car, $bar) = (0,0);
+      for ($yi = 0, $xi = $#$x-$#$y-1; $yi <= $#$y; ++$yi,++$xi) 
+        {
+        $prd = $q * $y->[$yi] + $car;
+        $prd -= ($car = int($prd / $BASE)) * $BASE;
+	$x->[$xi] += $BASE if ($bar = (($x->[$xi] -= $prd + $bar) < 0));
+	}
+      if ($x->[-1] < $car + $bar) 
+        {
+        $car = 0; --$q;
+	for ($yi = 0, $xi = $#$x-$#$y-1; $yi <= $#$y; ++$yi,++$xi) 
+          {
+	  $x->[$xi] -= $BASE
+	   if ($car = (($x->[$xi] += $y->[$yi] + $car) >= $BASE));
+	  }
+	}   
+      }
+    pop(@$x); unshift(@q, $q);
+    }
+  if (wantarray) 
+    {
+    @d = ();
+    if ($dd != 1)  
+      {
+      $car = 0; 
+      for $xi (reverse @$x) 
+        {
+        $prd = $car * $BASE + $xi;
+        $car = $prd - ($tmp = int($prd / $dd)) * $dd;
+        unshift(@d, $tmp);
+        }
+      }
+    else 
+      {
+      @d = @$x;
+      }
+    @$x = @q;
+    my $d = \@d; 
+    __strip_zeros($x);
+    __strip_zeros($d);
+    return ($x,$d);
+    }
+  @$x = @q;
+  __strip_zeros($x);
+  $x;
+  }
+
+sub _div_use_div
+  {
+  # ref to array, ref to array, modify first array and return remainder if 
+  # in list context
+  my ($c,$x,$yorg) = @_;
+
+  # the general div algorithm here is about O(N*N) and thus quite slow, so
+  # we first check for some special cases and use shortcuts to handle them.
+
+  # This works, because we store the numbers in a chunked format where each
+  # element contains 5..7 digits (depending on system).
+
+  # if both numbers have only one element:
+  if (@$x == 1 && @$yorg == 1)
+    {
+    # shortcut, $yorg and $x are two small numbers
+    if (wantarray)
+      {
+      my $r = [ $x->[0] % $yorg->[0] ];
+      $x->[0] = int($x->[0] / $yorg->[0]);
+      return ($x,$r); 
+      }
+    else
+      {
+      $x->[0] = int($x->[0] / $yorg->[0]);
+      return $x; 
+      }
+    }
+  # if x has more than one, but y has only one element:
+  if (@$yorg == 1)
+    {
+    my $rem;
+    $rem = _mod($c,[ @$x ],$yorg) if wantarray;
+
+    # shortcut, $y is < $BASE
+    my $j = scalar @$x; my $r = 0; 
+    my $y = $yorg->[0]; my $b;
+    while ($j-- > 0)
+      {
+      $b = $r * $BASE + $x->[$j];
+      $x->[$j] = int($b/$y);
+      $r = $b % $y;
+      }
+    pop @$x if @$x > 1 && $x->[-1] == 0;	# splice up a leading zero 
+    return ($x,$rem) if wantarray;
+    return $x;
+    }
+  # now x and y have more than one element
+
+  # check whether y has more elements than x, if yet, the result will be 0
+  if (@$yorg > @$x)
+    {
+    my $rem;
+    $rem = [@$x] if wantarray;			# make copy
+    splice (@$x,1);				# keep ref to original array
+    $x->[0] = 0;				# set to 0
+    return ($x,$rem) if wantarray;		# including remainder?
+    return $x;					# only x, which is [0] now
+    }
+  # check whether the numbers have the same number of elements, in that case
+  # the result will fit into one element and can be computed efficiently
+  if (@$yorg == @$x)
+    {
+    my $rem;
+    # if $yorg has more digits than $x (it's leading element is longer than
+    # the one from $x), the result will also be 0:
+    if (length(int($yorg->[-1])) > length(int($x->[-1])))
+      {
+      $rem = [@$x] if wantarray;		# make copy
+      splice (@$x,1);				# keep ref to org array
+      $x->[0] = 0;				# set to 0
+      return ($x,$rem) if wantarray;		# including remainder?
+      return $x;
+      }
+    # now calculate $x / $yorg
+
+    if (length(int($yorg->[-1])) == length(int($x->[-1])))
+      {
+      # same length, so make full compare
+
+      my $a = 0; my $j = scalar @$x - 1;
+      # manual way (abort if unequal, good for early ne)
+      while ($j >= 0)
+        {
+        last if ($a = $x->[$j] - $yorg->[$j]); $j--;
+        }
+      # $a contains the result of the compare between X and Y
+      # a < 0: x < y, a == 0: x == y, a > 0: x > y
+      if ($a <= 0)
+        {
+        $rem = [ 0 ];			# a = 0 => x == y => rem 0
+        $rem = [@$x] if $a != 0;	# a < 0 => x < y => rem = x
+        splice(@$x,1);			# keep single element
+        $x->[0] = 0;			# if $a < 0
+        $x->[0] = 1 if $a == 0; 	# $x == $y
+        return ($x,$rem) if wantarray;	# including remainder?
+        return $x;
+        }
+      # $x >= $y, so proceed normally
+
+      }
+    }
+
+  # all other cases:
+
+  my $y = [ @$yorg ];				# always make copy to preserve
+ 
+  my ($car,$bar,$prd,$dd,$xi,$yi,@q,$v2,$v1,@d,$tmp,$q,$u2,$u1,$u0);
+
+  $car = $bar = $prd = 0;
+  if (($dd = int($BASE/($y->[-1]+1))) != 1) 
+    {
+    for $xi (@$x) 
+      {
+      $xi = $xi * $dd + $car;
+      $xi -= ($car = int($xi / $BASE)) * $BASE;
+      }
+    push(@$x, $car); $car = 0;
+    for $yi (@$y) 
+      {
+      $yi = $yi * $dd + $car;
+      $yi -= ($car = int($yi / $BASE)) * $BASE;
+      }
+    }
+  else 
+    {
+    push(@$x, 0);
+    }
+
+  # @q will accumulate the final result, $q contains the current computed
+  # part of the final result
+
+  @q = (); ($v2,$v1) = @$y[-2,-1];
+  $v2 = 0 unless $v2;
+  while ($#$x > $#$y) 
+    {
+    ($u2,$u1,$u0) = @$x[-3..-1];
+    $u2 = 0 unless $u2;
+    #warn "oups v1 is 0, u0: $u0 $y->[-2] $y->[-1] l ",scalar @$y,"\n"
+    # if $v1 == 0;
+    $q = (($u0 == $v1) ? $MAX_VAL : int(($u0*$BASE+$u1)/$v1));
+    --$q while ($v2*$q > ($u0*$BASE+$u1-$q*$v1)*$BASE+$u2);
+    if ($q)
+      {
+      ($car, $bar) = (0,0);
+      for ($yi = 0, $xi = $#$x-$#$y-1; $yi <= $#$y; ++$yi,++$xi) 
+        {
+        $prd = $q * $y->[$yi] + $car;
+        $prd -= ($car = int($prd / $BASE)) * $BASE;
+	$x->[$xi] += $BASE if ($bar = (($x->[$xi] -= $prd + $bar) < 0));
+	}
+      if ($x->[-1] < $car + $bar) 
+        {
+        $car = 0; --$q;
+	for ($yi = 0, $xi = $#$x-$#$y-1; $yi <= $#$y; ++$yi,++$xi) 
+          {
+	  $x->[$xi] -= $BASE
+	   if ($car = (($x->[$xi] += $y->[$yi] + $car) >= $BASE));
+	  }
+	}   
+      }
+    pop(@$x); unshift(@q, $q);
+    }
+  if (wantarray) 
+    {
+    @d = ();
+    if ($dd != 1)  
+      {
+      $car = 0; 
+      for $xi (reverse @$x) 
+        {
+        $prd = $car * $BASE + $xi;
+        $car = $prd - ($tmp = int($prd / $dd)) * $dd;
+        unshift(@d, $tmp);
+        }
+      }
+    else 
+      {
+      @d = @$x;
+      }
+    @$x = @q;
+    my $d = \@d; 
+    __strip_zeros($x);
+    __strip_zeros($d);
+    return ($x,$d);
+    }
+  @$x = @q;
+  __strip_zeros($x);
+  $x;
+  }
+
+##############################################################################
+# testing
+
+sub _acmp {
+    # Internal absolute post-normalized compare (ignore signs)
+    # ref to array, ref to array, return <0, 0, >0
+    # Arrays must have at least one entry; this is not checked for.
+    my ($c, $cx, $cy) = @_;
+
+    # shortcut for short numbers
+    return (($cx->[0] <=> $cy->[0]) <=> 0)
+      if @$cx == @$cy && @$cx == 1;
+
+    # fast comp based on number of array elements (aka pseudo-length)
+    my $lxy = (@$cx - @$cy)
+      # or length of first element if same number of elements (aka difference 0)
+      ||
+        # need int() here because sometimes the last element is '00018' vs '18'
+        (length(int($cx->[-1])) - length(int($cy->[-1])));
+
+    return -1 if $lxy < 0;      # already differs, ret
+    return  1 if $lxy > 0;      # ditto
+
+    # manual way (abort if unequal, good for early ne)
+    my $a;
+    my $j = @$cx;
+    while (--$j >= 0) {
+        last if $a = $cx->[$j] - $cy->[$j];
+    }
+    $a <=> 0;
+}
+
+sub _len {
+    # compute number of digits in base 10
+
+    # int() because add/sub sometimes leaves strings (like '00005') instead of
+    # '5' in this place, thus causing length() to report wrong length
+    my $cx = $_[1];
+
+    (@$cx - 1) * $BASE_LEN + length(int($cx->[-1]));
+}
+
+sub _digit {
+    # Return the nth digit. Zero is rightmost, so _digit(123,0) gives 3.
+    # Negative values count from the left, so _digit(123, -1) gives 1.
+    my ($c, $x, $n) = @_;
+
+    my $len = _len('', $x);
+
+    $n += $len if $n < 0;               # -1 last, -2 second-to-last
+    return "0" if $n < 0 || $n >= $len; # return 0 for digits out of range
+
+    my $elem = int($n / $BASE_LEN);     # which array element
+    my $digit = $n % $BASE_LEN;         # which digit in this element
+    substr("$x->[$elem]", -$digit - 1, 1);
+}
+
+sub _zeros {
+    # Return number of trailing zeros in decimal.
+    # Check each array element for having 0 at end as long as elem == 0
+    # Upon finding a elem != 0, stop.
+
+    my $x = $_[1];
+
+    return 0 if @$x == 1 && $x->[0] == 0;
+
+    my $zeros = 0;
+    my $elem;
+    foreach my $e (@$x) {
+        if ($e != 0) {
+            $elem = "$e";               # preserve x
+            $elem =~ s/.*?(0*$)/$1/;    # strip anything not zero
+            $zeros *= $BASE_LEN;        # elems * 5
+            $zeros += length($elem);    # count trailing zeros
+            last;                       # early out
+        }
+        $zeros ++;                      # real else branch: 50% slower!
+    }
+    $zeros;
+}
+
+##############################################################################
+# _is_* routines
+
+sub _is_zero {
+    # return true if arg is zero 
+    @{$_[1]} == 1 && $_[1]->[0] == 0 ? 1 : 0;
+}
+
+sub _is_even {
+    # return true if arg is even
+    $_[1]->[0] & 1 ? 0 : 1;
+}
+
+sub _is_odd {
+    # return true if arg is odd
+    $_[1]->[0] & 1 ? 1 : 0;
+}
+
+sub _is_one {
+    # return true if arg is one
+    @{$_[1]} == 1 && $_[1]->[0] == 1 ? 1 : 0;
+}
+
+sub _is_two {
+    # return true if arg is two 
+    @{$_[1]} == 1 && $_[1]->[0] == 2 ? 1 : 0;
+}
+
+sub _is_ten {
+    # return true if arg is ten 
+    @{$_[1]} == 1 && $_[1]->[0] == 10 ? 1 : 0;
+}
+
+sub __strip_zeros {
+    # Internal normalization function that strips leading zeros from the array.
+    # Args: ref to array
+    my $s = shift;
+
+    my $cnt = @$s;              # get count of parts
+    my $i = $cnt - 1;
+    push @$s, 0 if $i < 0;	# div might return empty results, so fix it
+
+    return $s if @$s == 1;	# early out
+
+    #print "strip: cnt $cnt i $i\n";
+    # '0', '3', '4', '0', '0',
+    #  0    1    2    3    4
+    # cnt = 5, i = 4
+    # i = 4
+    # i = 3
+    # => fcnt = cnt - i (5-2 => 3, cnt => 5-1 = 4, throw away from 4th pos)
+    # >= 1: skip first part (this can be zero)
+    while ($i > 0) {
+        last if $s->[$i] != 0;
+        $i--;
+    }
+    $i++;
+    splice @$s, $i if $i < $cnt;        # $i cant be 0
+    $s;
+}
+
+###############################################################################
+# check routine to test internal state for corruptions
+
+sub _check {
+    # used by the test suite
+    my $x = $_[1];
+
+    return "$x is not a reference" if !ref($x);
+
+    # are all parts are valid?
+    my $i = 0;
+    my $j = @$x;
+    my ($e, $try);
+    while ($i < $j) {
+        $e = $x->[$i]; $e = 'undef' unless defined $e;
+        $try = '=~ /^[\+]?[0-9]+\$/; '."($x, $e)";
+        last if $e !~ /^[+]?[0-9]+$/;
+        $try = '=~ /^[\+]?[0-9]+\$/; '."($x, $e) (stringify)";
+        last if "$e" !~ /^[+]?[0-9]+$/;
+        $try = '=~ /^[\+]?[0-9]+\$/; '."($x, $e) (cat-stringify)";
+        last if '' . "$e" !~ /^[+]?[0-9]+$/;
+        $try = ' < 0 || >= $BASE; '."($x, $e)";
+        last if $e <0 || $e >= $BASE;
+        # This test is disabled, since new/bnorm and certain ops (like early out
+        # in add/sub) are allowed/expected to leave '00000' in some elements.
+        #$try = '=~ /^00+/; '."($x, $e)";
+        #last if $e =~ /^00+/;
+        $i++;
+    }
+    return "Illegal part '$e' at pos $i (tested: $try)" if $i < $j;
+    0;
+}
+
+###############################################################################
+
+sub _mod {
+    # if possible, use mod shortcut
+    my ($c, $x, $yo) = @_;
+
+    # slow way since $y too big
+    if (@$yo > 1) {
+        my ($xo, $rem) = _div($c, $x, $yo);
+        @$x = @$rem;
+        return $x;
+    }
+
+    my $y = $yo->[0];
+
+    # if both are single element arrays
+    if (scalar @$x == 1) {
+        $x->[0] %= $y;
+        return $x;
+    }
+
+    # if @$x has more than one element, but @$y is a single element
+    my $b = $BASE % $y;
+    if ($b == 0) {
+        # when BASE % Y == 0 then (B * BASE) % Y == 0
+        # (B * BASE) % $y + A % Y => A % Y
+        # so need to consider only last element: O(1)
+        $x->[0] %= $y;
+    } elsif ($b == 1) {
+        # else need to go through all elements in @$x: O(N), but loop is a bit
+        # simplified
+        my $r = 0;
+        foreach (@$x) {
+            $r = ($r + $_) % $y;        # not much faster, but heh...
+            #$r += $_ % $y; $r %= $y;
+        }
+        $r = 0 if $r == $y;
+        $x->[0] = $r;
+    } else {
+        # else need to go through all elements in @$x: O(N)
+        my $r = 0;
+        my $bm = 1;
+        foreach (@$x) {
+            $r = ($_ * $bm + $r) % $y;
+            $bm = ($bm * $b) % $y;
+
+            #$r += ($_ % $y) * $bm;
+            #$bm *= $b;
+            #$bm %= $y;
+            #$r %= $y;
+        }
+        $r = 0 if $r == $y;
+        $x->[0] = $r;
+    }
+    @$x = $x->[0];		# keep one element of @$x
+    return $x;
+}
+
+##############################################################################
+# shifts
+
+sub _rsft {
+    my ($c, $x, $y, $n) = @_;
+
+    if ($n != 10) {
+        $n = _new($c, $n);
+        return _div($c, $x, _pow($c, $n, $y));
+    }
+
+    # shortcut (faster) for shifting by 10)
+    # multiples of $BASE_LEN
+    my $dst = 0;                                            # destination
+    my $src = _num($c, $y);                                 # as normal int
+    my $xlen = (@$x - 1) * $BASE_LEN + length(int($x->[-1]));
+    if ($src >= $xlen or ($src == $xlen and !defined $x->[1])) {
+        # 12345 67890 shifted right by more than 10 digits => 0
+        splice(@$x, 1);                 # leave only one element
+        $x->[0] = 0;                    # set to zero
+        return $x;
+    }
+    my $rem = $src % $BASE_LEN;         # remainder to shift
+    $src = int($src / $BASE_LEN);       # source
+    if ($rem == 0) {
+        splice(@$x, 0, $src);           # even faster, 38.4 => 39.3
+    } else {
+        my $len = @$x - $src;           # elems to go
+        my $vd;
+        my $z = '0' x $BASE_LEN;
+        $x->[@$x] = 0;                  # avoid || 0 test inside loop
+        while ($dst < $len) {
+            $vd = $z . $x->[$src];
+            $vd = substr($vd, -$BASE_LEN, $BASE_LEN - $rem);
+            $src++;
+            $vd = substr($z . $x->[$src], -$rem, $rem) . $vd;
+            $vd = substr($vd, -$BASE_LEN, $BASE_LEN) if length($vd) > $BASE_LEN;
+            $x->[$dst] = int($vd);
+            $dst++;
+        }
+        splice(@$x, $dst) if $dst > 0;          # kill left-over array elems
+        pop @$x if $x->[-1] == 0 && @$x > 1;    # kill last element if 0
+    }                                           # else rem == 0
+    $x;
+}
+
+sub _lsft {
+    my ($c, $x, $y, $n) = @_;
+
+    if ($n != 10) {
+        $n = _new($c, $n);
+        return _mul($c, $x, _pow($c, $n, $y));
+    }
+
+    # shortcut (faster) for shifting by 10) since we are in base 10eX
+    # multiples of $BASE_LEN:
+    my $src = @$x;                              # source
+    my $len = _num($c, $y);		        # shift-len as normal int
+    my $rem = $len % $BASE_LEN;	        	# remainder to shift
+    my $dst = $src + int($len / $BASE_LEN);     # destination
+    my $vd;                                     # further speedup
+    $x->[$src] = 0;                             # avoid first ||0 for speed
+    my $z = '0' x $BASE_LEN;
+    while ($src >= 0) {
+        $vd = $x->[$src];
+        $vd = $z . $vd;
+        $vd = substr($vd, -$BASE_LEN + $rem, $BASE_LEN - $rem);
+        $vd .= $src > 0 ? substr($z . $x->[$src - 1], -$BASE_LEN, $rem)
+                        : '0' x $rem;
+        $vd = substr($vd, -$BASE_LEN, $BASE_LEN) if length($vd) > $BASE_LEN;
+        $x->[$dst] = int($vd);
+        $dst--;
+        $src--;
+    }
+    # set lowest parts to 0
+    while ($dst >= 0) {
+        $x->[$dst--] = 0;
+    }
+    # fix spurious last zero element
+    splice @$x, -1 if $x->[-1] == 0;
+    $x;
+}
+
+sub _pow {
+    # power of $x to $y
+    # ref to array, ref to array, return ref to array
+    my ($c, $cx, $cy) = @_;
+
+    if (@$cy == 1 && $cy->[0] == 0) {
+        splice(@$cx, 1);
+        $cx->[0] = 1;                   # y == 0 => x => 1
+        return $cx;
+    }
+
+    if ((@$cx == 1 && $cx->[0] == 1) ||     #    x == 1
+        (@$cy == 1 && $cy->[0] == 1))       # or y == 1
+    {
+        return $cx;
+    }
+
+    if (@$cx == 1 && $cx->[0] == 0) {
+        splice (@$cx, 1);
+        $cx->[0] = 0;                   # 0 ** y => 0 (if not y <= 0)
+        return $cx;
+    }
+
+    my $pow2 = _one();
+
+    my $y_bin = _as_bin($c, $cy);
+    $y_bin =~ s/^0b//;
+    my $len = length($y_bin);
+    while (--$len > 0) {
+        _mul($c, $pow2, $cx) if substr($y_bin, $len, 1) eq '1'; # is odd?
+        _mul($c, $cx, $cx);
+    }
+
+    _mul($c, $cx, $pow2);
+    $cx;
+}
+
+sub _nok {
+    # Return binomial coefficient (n over k).
+    # Given refs to arrays, return ref to array.
+    # First input argument is modified.
+
+    my ($c, $n, $k) = @_;
+
+    # If k > n/2, or, equivalently, 2*k > n, compute nok(n, k) as
+    # nok(n, n-k), to minimize the number if iterations in the loop.
+
+    {
+        my $twok = _mul($c, _two($c), _copy($c, $k));   # 2 * k
+        if (_acmp($c, $twok, $n) > 0) {                 # if 2*k > n
+            $k = _sub($c, _copy($c, $n), $k);           # k = n - k
+        }
+    }
+
+    # Example:
+    #
+    # / 7 \       7!       1*2*3*4 * 5*6*7   5 * 6 * 7       6   7
+    # |   | = --------- =  --------------- = --------- = 5 * - * -
+    # \ 3 /   (7-3)! 3!    1*2*3*4 * 1*2*3   1 * 2 * 3       2   3
+
+    if (_is_zero($c, $k)) {
+        @$n = 1;
+    }
+
+    else {
+
+        # Make a copy of the original n, since we'll be modifying n in-place.
+
+        my $n_orig = _copy($c, $n);
+
+        # n = 5, f = 6, d = 2 (cf. example above)
+
+        _sub($c, $n, $k);
+        _inc($c, $n);
+
+        my $f = _copy($c, $n);
+        _inc($c, $f);
+
+        my $d = _two($c);
+
+        # while f <= n (the original n, that is) ...
+
+        while (_acmp($c, $f, $n_orig) <= 0) {
+
+            # n = (n * f / d) == 5 * 6 / 2 (cf. example above)
+
+            _mul($c, $n, $f);
+            _div($c, $n, $d);
+
+            # f = 7, d = 3 (cf. example above)
+
+            _inc($c, $f);
+            _inc($c, $d);
+        }
+
+    }
+
+    return $n;
+}
+
+my @factorials = (
+  1,
+  1,
+  2,
+  2*3,
+  2*3*4,
+  2*3*4*5,
+  2*3*4*5*6,
+  2*3*4*5*6*7,
+);
+
+sub _fac
+  {
+  # factorial of $x
+  # ref to array, return ref to array
+  my ($c,$cx) = @_;
+
+  if ((@$cx == 1) && ($cx->[0] <= 7))
+    {
+    $cx->[0] = $factorials[$cx->[0]];		# 0 => 1, 1 => 1, 2 => 2 etc.
+    return $cx;
+    }
+
+  if ((@$cx == 1) && 		# we do this only if $x >= 12 and $x <= 7000
+      ($cx->[0] >= 12 && $cx->[0] < 7000))
+    {
+
+  # Calculate (k-j) * (k-j+1) ... k .. (k+j-1) * (k + j)
+  # See http://blogten.blogspot.com/2007/01/calculating-n.html
+  # The above series can be expressed as factors:
+  #   k * k - (j - i) * 2
+  # We cache k*k, and calculate (j * j) as the sum of the first j odd integers
+
+  # This will not work when N exceeds the storage of a Perl scalar, however,
+  # in this case the algorithm would be way to slow to terminate, anyway.
+
+  # As soon as the last element of $cx is 0, we split it up and remember
+  # how many zeors we got so far. The reason is that n! will accumulate
+  # zeros at the end rather fast.
+  my $zero_elements = 0;
+
+  # If n is even, set n = n -1
+  my $k = _num($c,$cx); my $even = 1;
+  if (($k & 1) == 0)
+    {
+    $even = $k; $k --;
+    }
+  # set k to the center point
+  $k = ($k + 1) / 2;
+#  print "k $k even: $even\n";
+  # now calculate k * k
+  my $k2 = $k * $k;
+  my $odd = 1; my $sum = 1;
+  my $i = $k - 1;
+  # keep reference to x
+  my $new_x = _new($c, $k * $even);
+  @$cx = @$new_x;
+  if ($cx->[0] == 0)
+    {
+    $zero_elements ++; shift @$cx;
+    }
+#  print STDERR "x = ", _str($c,$cx),"\n";
+  my $BASE2 = int(sqrt($BASE))-1;
+  my $j = 1; 
+  while ($j <= $i)
+    {
+    my $m = ($k2 - $sum); $odd += 2; $sum += $odd; $j++;
+    while ($j <= $i && ($m < $BASE2) && (($k2 - $sum) < $BASE2))
+      {
+      $m *= ($k2 - $sum);
+      $odd += 2; $sum += $odd; $j++;
+#      print STDERR "\n k2 $k2 m $m sum $sum odd $odd\n"; sleep(1);
+      }
+    if ($m < $BASE)
+      {
+      _mul($c,$cx,[$m]);
+      }
+    else
+      {
+      _mul($c,$cx,$c->_new($m));
+      }
+    if ($cx->[0] == 0)
+      {
+      $zero_elements ++; shift @$cx;
+      }
+#    print STDERR "Calculate $k2 - $sum = $m (x = ", _str($c,$cx),")\n";
+    }
+  # multiply in the zeros again
+  unshift @$cx, (0) x $zero_elements; 
+  return $cx;
+  }
+
+  # go forward until $base is exceeded
+  # limit is either $x steps (steps == 100 means a result always too high) or
+  # $base.
+  my $steps = 100; $steps = $cx->[0] if @$cx == 1;
+  my $r = 2; my $cf = 3; my $step = 2; my $last = $r;
+  while ($r*$cf < $BASE && $step < $steps)
+    {
+    $last = $r; $r *= $cf++; $step++;
+    }
+  if ((@$cx == 1) && $step == $cx->[0])
+    {
+    # completely done, so keep reference to $x and return
+    $cx->[0] = $r;
+    return $cx;
+    }
+  
+  # now we must do the left over steps
+  my $n;					# steps still to do
+  if (scalar @$cx == 1)
+    {
+    $n = $cx->[0];
+    }
+  else
+    {
+    $n = _copy($c,$cx);
+    }
+
+  # Set $cx to the last result below $BASE (but keep ref to $x)
+  $cx->[0] = $last; splice (@$cx,1);
+  # As soon as the last element of $cx is 0, we split it up and remember
+  # how many zeors we got so far. The reason is that n! will accumulate
+  # zeros at the end rather fast.
+  my $zero_elements = 0;
+
+  # do left-over steps fit into a scalar?
+  if (ref $n eq 'ARRAY')
+    {
+    # No, so use slower inc() & cmp()
+    # ($n is at least $BASE here)
+    my $base_2 = int(sqrt($BASE)) - 1;
+    #print STDERR "base_2: $base_2\n"; 
+    while ($step < $base_2)
+      {
+      if ($cx->[0] == 0)
+        {
+        $zero_elements ++; shift @$cx;
+        }
+      my $b = $step * ($step + 1); $step += 2;
+      _mul($c,$cx,[$b]);
+      }
+    $step = [$step];
+    while (_acmp($c,$step,$n) <= 0)
+      {
+      if ($cx->[0] == 0)
+        {
+        $zero_elements ++; shift @$cx;
+        }
+      _mul($c,$cx,$step); _inc($c,$step);
+      }
+    }
+  else
+    {
+    # Yes, so we can speed it up slightly
+  
+#    print "# left over steps $n\n";
+
+    my $base_4 = int(sqrt(sqrt($BASE))) - 2;
+    #print STDERR "base_4: $base_4\n";
+    my $n4 = $n - 4; 
+    while ($step < $n4 && $step < $base_4)
+      {
+      if ($cx->[0] == 0)
+        {
+        $zero_elements ++; shift @$cx;
+        }
+      my $b = $step * ($step + 1); $step += 2; $b *= $step * ($step + 1); $step += 2;
+      _mul($c,$cx,[$b]);
+      }
+    my $base_2 = int(sqrt($BASE)) - 1;
+    my $n2 = $n - 2; 
+    #print STDERR "base_2: $base_2\n"; 
+    while ($step < $n2 && $step < $base_2)
+      {
+      if ($cx->[0] == 0)
+        {
+        $zero_elements ++; shift @$cx;
+        }
+      my $b = $step * ($step + 1); $step += 2;
+      _mul($c,$cx,[$b]);
+      }
+    # do what's left over
+    while ($step <= $n)
+      {
+      _mul($c,$cx,[$step]); $step++;
+      if ($cx->[0] == 0)
+        {
+        $zero_elements ++; shift @$cx;
+        }
+      }
+    }
+  # multiply in the zeros again
+  unshift @$cx, (0) x $zero_elements;
+  $cx;			# return result
+  }
+
+#############################################################################
+
+sub _log_int
+  {
+  # calculate integer log of $x to base $base
+  # ref to array, ref to array - return ref to array
+  my ($c,$x,$base) = @_;
+
+  # X == 0 => NaN
+  return if (scalar @$x == 1 && $x->[0] == 0);
+  # BASE 0 or 1 => NaN
+  return if (scalar @$base == 1 && $base->[0] < 2);
+  my $cmp = _acmp($c,$x,$base); # X == BASE => 1
+  if ($cmp == 0)
+    {
+    splice (@$x,1); $x->[0] = 1;
+    return ($x,1)
+    }
+  # X < BASE
+  if ($cmp < 0)
+    {
+    splice (@$x,1); $x->[0] = 0;
+    return ($x,undef);
+    }
+
+  my $x_org = _copy($c,$x);		# preserve x
+  splice(@$x,1); $x->[0] = 1;		# keep ref to $x
+
+  # Compute a guess for the result based on:
+  # $guess = int ( length_in_base_10(X) / ( log(base) / log(10) ) )
+  my $len = _len($c,$x_org);
+  my $log = log($base->[-1]) / log(10);
+
+  # for each additional element in $base, we add $BASE_LEN to the result,
+  # based on the observation that log($BASE,10) is BASE_LEN and
+  # log(x*y) == log(x) + log(y):
+  $log += ((scalar @$base)-1) * $BASE_LEN;
+
+  # calculate now a guess based on the values obtained above:
+  my $res = int($len / $log);
+
+  $x->[0] = $res;
+  my $trial = _pow ($c, _copy($c, $base), $x);
+  my $a = _acmp($c,$trial,$x_org);
+
+#  print STDERR "# trial ", _str($c,$x)," was: $a (0 = exact, -1 too small, +1 too big)\n";
+
+  # found an exact result?
+  return ($x,1) if $a == 0;
+
+  if ($a > 0)
+    {
+    # or too big
+    _div($c,$trial,$base); _dec($c, $x);
+    while (($a = _acmp($c,$trial,$x_org)) > 0)
+      {
+#      print STDERR "# big _log_int at ", _str($c,$x), "\n"; 
+      _div($c,$trial,$base); _dec($c, $x);
+      }
+    # result is now exact (a == 0), or too small (a < 0)
+    return ($x, $a == 0 ? 1 : 0);
+    }
+
+  # else: result was to small
+  _mul($c,$trial,$base);
+
+  # did we now get the right result?
+  $a = _acmp($c,$trial,$x_org);
+
+  if ($a == 0)				# yes, exactly
+    {
+    _inc($c, $x);
+    return ($x,1); 
+    }
+  return ($x,0) if $a > 0;  
+
+  # Result still too small (we should come here only if the estimate above
+  # was very off base):
+ 
+  # Now let the normal trial run obtain the real result
+  # Simple loop that increments $x by 2 in each step, possible overstepping
+  # the real result
+
+  my $base_mul = _mul($c, _copy($c,$base), $base);	# $base * $base
+
+  while (($a = _acmp($c,$trial,$x_org)) < 0)
+    {
+#    print STDERR "# small _log_int at ", _str($c,$x), "\n"; 
+    _mul($c,$trial,$base_mul); _add($c, $x, [2]);
+    }
+
+  my $exact = 1;
+  if ($a > 0)
+    {
+    # overstepped the result
+    _dec($c, $x);
+    _div($c,$trial,$base);
+    $a = _acmp($c,$trial,$x_org);
+    if ($a > 0)
+      {
+      _dec($c, $x);
+      }
+    $exact = 0 if $a != 0;		# a = -1 => not exact result, a = 0 => exact
+    }
+  
+  ($x,$exact);				# return result
+  }
+
+# for debugging:
+  use constant DEBUG => 0;
+  my $steps = 0;
+  sub steps { $steps };
+
+sub _sqrt
+  {
+  # square-root of $x in place
+  # Compute a guess of the result (by rule of thumb), then improve it via
+  # Newton's method.
+  my ($c,$x) = @_;
+
+  if (scalar @$x == 1)
+    {
+    # fits into one Perl scalar, so result can be computed directly
+    $x->[0] = int(sqrt($x->[0]));
+    return $x;
+    } 
+  my $y = _copy($c,$x);
+  # hopefully _len/2 is < $BASE, the -1 is to always undershot the guess
+  # since our guess will "grow"
+  my $l = int((_len($c,$x)-1) / 2);	
+
+  my $lastelem = $x->[-1];					# for guess
+  my $elems = scalar @$x - 1;
+  # not enough digits, but could have more?
+  if ((length($lastelem) <= 3) && ($elems > 1))
+    {
+    # right-align with zero pad
+    my $len = length($lastelem) & 1;
+    print "$lastelem => " if DEBUG;
+    $lastelem .= substr($x->[-2] . '0' x $BASE_LEN,0,$BASE_LEN);
+    # former odd => make odd again, or former even to even again
+    $lastelem = $lastelem / 10 if (length($lastelem) & 1) != $len;
+    print "$lastelem\n" if DEBUG;
+    }
+
+  # construct $x (instead of _lsft($c,$x,$l,10)
+  my $r = $l % $BASE_LEN;	# 10000 00000 00000 00000 ($BASE_LEN=5)
+  $l = int($l / $BASE_LEN);
+  print "l =  $l " if DEBUG;
+
+  splice @$x,$l;		# keep ref($x), but modify it
+
+  # we make the first part of the guess not '1000...0' but int(sqrt($lastelem))
+  # that gives us:
+  # 14400 00000 => sqrt(14400) => guess first digits to be 120
+  # 144000 000000 => sqrt(144000) => guess 379
+
+  print "$lastelem (elems $elems) => " if DEBUG;
+  $lastelem = $lastelem / 10 if ($elems & 1 == 1);		# odd or even?
+  my $g = sqrt($lastelem); $g =~ s/\.//;			# 2.345 => 2345
+  $r -= 1 if $elems & 1 == 0;					# 70 => 7
+
+  # padd with zeros if result is too short
+  $x->[$l--] = int(substr($g . '0' x $r,0,$r+1));
+  print "now ",$x->[-1] if DEBUG;
+  print " would have been ", int('1' . '0' x $r),"\n" if DEBUG;
+
+  # If @$x > 1, we could compute the second elem of the guess, too, to create
+  # an even better guess. Not implemented yet. Does it improve performance?
+  $x->[$l--] = 0 while ($l >= 0);	# all other digits of guess are zero
+
+  print "start x= ",_str($c,$x),"\n" if DEBUG;
+  my $two = _two();
+  my $last = _zero();
+  my $lastlast = _zero();
+  $steps = 0 if DEBUG;
+  while (_acmp($c,$last,$x) != 0 && _acmp($c,$lastlast,$x) != 0)
+    {
+    $steps++ if DEBUG;
+    $lastlast = _copy($c,$last);
+    $last = _copy($c,$x);
+    _add($c,$x, _div($c,_copy($c,$y),$x));
+    _div($c,$x, $two );
+    print " x= ",_str($c,$x),"\n" if DEBUG;
+    }
+  print "\nsteps in sqrt: $steps, " if DEBUG;
+  _dec($c,$x) if _acmp($c,$y,_mul($c,_copy($c,$x),$x)) < 0;	# overshot? 
+  print " final ",$x->[-1],"\n" if DEBUG;
+  $x;
+  }
+
+sub _root
+  {
+  # take n'th root of $x in place (n >= 3)
+  my ($c,$x,$n) = @_;
+ 
+  if (scalar @$x == 1)
+    {
+    if (scalar @$n > 1)
+      {
+      # result will always be smaller than 2 so trunc to 1 at once
+      $x->[0] = 1;
+      }
+    else
+      {
+      # fits into one Perl scalar, so result can be computed directly
+      # cannot use int() here, because it rounds wrongly (try 
+      # (81 ** 3) ** (1/3) to see what I mean)
+      #$x->[0] = int( $x->[0] ** (1 / $n->[0]) );
+      # round to 8 digits, then truncate result to integer
+      $x->[0] = int ( sprintf ("%.8f", $x->[0] ** (1 / $n->[0]) ) );
+      }
+    return $x;
+    } 
+
+  # we know now that X is more than one element long
+
+  # if $n is a power of two, we can repeatedly take sqrt($X) and find the
+  # proper result, because sqrt(sqrt($x)) == root($x,4)
+  my $b = _as_bin($c,$n);
+  if ($b =~ /0b1(0+)$/)
+    {
+    my $count = CORE::length($1);	# 0b100 => len('00') => 2
+    my $cnt = $count;			# counter for loop
+    unshift (@$x, 0);			# add one element, together with one
+					# more below in the loop this makes 2
+    while ($cnt-- > 0)
+      {
+      # 'inflate' $X by adding one element, basically computing
+      # $x * $BASE * $BASE. This gives us more $BASE_LEN digits for result
+      # since len(sqrt($X)) approx == len($x) / 2.
+      unshift (@$x, 0);
+      # calculate sqrt($x), $x is now one element to big, again. In the next
+      # round we make that two, again.
+      _sqrt($c,$x);
+      }
+    # $x is now one element to big, so truncate result by removing it
+    splice (@$x,0,1);
+    } 
+  else
+    {
+    # trial computation by starting with 2,4,8,16 etc until we overstep
+    my $step;
+    my $trial = _two();
+
+    # while still to do more than X steps
+    do
+      {
+      $step = _two();
+      while (_acmp($c, _pow($c, _copy($c, $trial), $n), $x) < 0)
+        {
+        _mul ($c, $step, [2]);
+        _add ($c, $trial, $step);
+        }
+
+      # hit exactly?
+      if (_acmp($c, _pow($c, _copy($c, $trial), $n), $x) == 0)
+        {
+        @$x = @$trial;			# make copy while preserving ref to $x
+        return $x;
+        }
+      # overstepped, so go back on step
+      _sub($c, $trial, $step);
+      } while (scalar @$step > 1 || $step->[0] > 128);
+
+    # reset step to 2
+    $step = _two();
+    # add two, because $trial cannot be exactly the result (otherwise we would
+    # already have found it)
+    _add($c, $trial, $step);
+ 
+    # and now add more and more (2,4,6,8,10 etc)
+    while (_acmp($c, _pow($c, _copy($c, $trial), $n), $x) < 0)
+      {
+      _add ($c, $trial, $step);
+      }
+
+    # hit not exactly? (overstepped)
+    if (_acmp($c, _pow($c, _copy($c, $trial), $n), $x) > 0)
+      {
+      _dec($c,$trial);
+      }
+
+    # hit not exactly? (overstepped)
+    # 80 too small, 81 slightly too big, 82 too big
+    if (_acmp($c, _pow($c, _copy($c, $trial), $n), $x) > 0)
+      {
+      _dec ($c, $trial); 
+      }
+
+    @$x = @$trial;			# make copy while preserving ref to $x
+    return $x;
+    }
+  $x; 
+  }
+
+##############################################################################
+# binary stuff
+
+sub _and
+  {
+  my ($c,$x,$y) = @_;
+
+  # the shortcut makes equal, large numbers _really_ fast, and makes only a
+  # very small performance drop for small numbers (e.g. something with less
+  # than 32 bit) Since we optimize for large numbers, this is enabled.
+  return $x if _acmp($c,$x,$y) == 0;		# shortcut
+  
+  my $m = _one(); my ($xr,$yr);
+  my $mask = $AND_MASK;
+
+  my $x1 = $x;
+  my $y1 = _copy($c,$y);			# make copy
+  $x = _zero();
+  my ($b,$xrr,$yrr);
+  use integer;
+  while (!_is_zero($c,$x1) && !_is_zero($c,$y1))
+    {
+    ($x1, $xr) = _div($c,$x1,$mask);
+    ($y1, $yr) = _div($c,$y1,$mask);
+
+    # make ints() from $xr, $yr
+    # this is when the AND_BITS are greater than $BASE and is slower for
+    # small (<256 bits) numbers, but faster for large numbers. Disabled
+    # due to KISS principle
+
+#    $b = 1; $xrr = 0; foreach (@$xr) { $xrr += $_ * $b; $b *= $BASE; }
+#    $b = 1; $yrr = 0; foreach (@$yr) { $yrr += $_ * $b; $b *= $BASE; }
+#    _add($c,$x, _mul($c, _new( $c, ($xrr & $yrr) ), $m) );
+    
+    # 0+ due to '&' doesn't work in strings
+    _add($c,$x, _mul($c, [ 0+$xr->[0] & 0+$yr->[0] ], $m) );
+    _mul($c,$m,$mask);
+    }
+  $x;
+  }
+
+sub _xor
+  {
+  my ($c,$x,$y) = @_;
+
+  return _zero() if _acmp($c,$x,$y) == 0;	# shortcut (see -and)
+
+  my $m = _one(); my ($xr,$yr);
+  my $mask = $XOR_MASK;
+
+  my $x1 = $x;
+  my $y1 = _copy($c,$y);			# make copy
+  $x = _zero();
+  my ($b,$xrr,$yrr);
+  use integer;
+  while (!_is_zero($c,$x1) && !_is_zero($c,$y1))
+    {
+    ($x1, $xr) = _div($c,$x1,$mask);
+    ($y1, $yr) = _div($c,$y1,$mask);
+    # make ints() from $xr, $yr (see _and())
+    #$b = 1; $xrr = 0; foreach (@$xr) { $xrr += $_ * $b; $b *= $BASE; }
+    #$b = 1; $yrr = 0; foreach (@$yr) { $yrr += $_ * $b; $b *= $BASE; }
+    #_add($c,$x, _mul($c, _new( $c, ($xrr ^ $yrr) ), $m) );
+
+    # 0+ due to '^' doesn't work in strings
+    _add($c,$x, _mul($c, [ 0+$xr->[0] ^ 0+$yr->[0] ], $m) );
+    _mul($c,$m,$mask);
+    }
+  # the loop stops when the shorter of the two numbers is exhausted
+  # the remainder of the longer one will survive bit-by-bit, so we simple
+  # multiply-add it in
+  _add($c,$x, _mul($c, $x1, $m) ) if !_is_zero($c,$x1);
+  _add($c,$x, _mul($c, $y1, $m) ) if !_is_zero($c,$y1);
+  
+  $x;
+  }
+
+sub _or
+  {
+  my ($c,$x,$y) = @_;
+
+  return $x if _acmp($c,$x,$y) == 0;		# shortcut (see _and)
+
+  my $m = _one(); my ($xr,$yr);
+  my $mask = $OR_MASK;
+
+  my $x1 = $x;
+  my $y1 = _copy($c,$y);			# make copy
+  $x = _zero();
+  my ($b,$xrr,$yrr);
+  use integer;
+  while (!_is_zero($c,$x1) && !_is_zero($c,$y1))
+    {
+    ($x1, $xr) = _div($c,$x1,$mask);
+    ($y1, $yr) = _div($c,$y1,$mask);
+    # make ints() from $xr, $yr (see _and())
+#    $b = 1; $xrr = 0; foreach (@$xr) { $xrr += $_ * $b; $b *= $BASE; }
+#    $b = 1; $yrr = 0; foreach (@$yr) { $yrr += $_ * $b; $b *= $BASE; }
+#    _add($c,$x, _mul($c, _new( $c, ($xrr | $yrr) ), $m) );
+    
+    # 0+ due to '|' doesn't work in strings
+    _add($c,$x, _mul($c, [ 0+$xr->[0] | 0+$yr->[0] ], $m) );
+    _mul($c,$m,$mask);
+    }
+  # the loop stops when the shorter of the two numbers is exhausted
+  # the remainder of the longer one will survive bit-by-bit, so we simple
+  # multiply-add it in
+  _add($c,$x, _mul($c, $x1, $m) ) if !_is_zero($c,$x1);
+  _add($c,$x, _mul($c, $y1, $m) ) if !_is_zero($c,$y1);
+  
+  $x;
+  }
+
+sub _as_hex
+  {
+  # convert a decimal number to hex (ref to array, return ref to string)
+  my ($c,$x) = @_;
+
+  # fits into one element (handle also 0x0 case)
+  return sprintf("0x%x",$x->[0]) if @$x == 1;
+
+  my $x1 = _copy($c,$x);
+
+  my $es = '';
+  my ($xr, $h, $x10000);
+  if ($] >= 5.006)
+    {
+    $x10000 = [ 0x10000 ]; $h = 'h4';
+    }
+  else
+    {
+    $x10000 = [ 0x1000 ]; $h = 'h3';
+    }
+  while (@$x1 != 1 || $x1->[0] != 0)		# _is_zero()
+    {
+    ($x1, $xr) = _div($c,$x1,$x10000);
+    $es .= unpack($h,pack('V',$xr->[0]));
+    }
+  $es = reverse $es;
+  $es =~ s/^[0]+//;   # strip leading zeros
+  '0x' . $es;					# return result prepended with 0x
+  }
+
+sub _as_bin
+  {
+  # convert a decimal number to bin (ref to array, return ref to string)
+  my ($c,$x) = @_;
+
+  # fits into one element (and Perl recent enough), handle also 0b0 case
+  # handle zero case for older Perls
+  if ($] <= 5.005 && @$x == 1 && $x->[0] == 0)
+    {
+    my $t = '0b0'; return $t;
+    }
+  if (@$x == 1 && $] >= 5.006)
+    {
+    my $t = sprintf("0b%b",$x->[0]);
+    return $t;
+    }
+  my $x1 = _copy($c,$x);
+
+  my $es = '';
+  my ($xr, $b, $x10000);
+  if ($] >= 5.006)
+    {
+    $x10000 = [ 0x10000 ]; $b = 'b16';
+    }
+  else
+    {
+    $x10000 = [ 0x1000 ]; $b = 'b12';
+    }
+  while (!(@$x1 == 1 && $x1->[0] == 0))		# _is_zero()
+    {
+    ($x1, $xr) = _div($c,$x1,$x10000);
+    $es .= unpack($b,pack('v',$xr->[0]));
+    }
+  $es = reverse $es;
+  $es =~ s/^[0]+//;   # strip leading zeros
+  '0b' . $es;					# return result prepended with 0b
+  }
+
+sub _as_oct
+  {
+  # convert a decimal number to octal (ref to array, return ref to string)
+  my ($c,$x) = @_;
+
+  # fits into one element (handle also 0 case)
+  return sprintf("0%o",$x->[0]) if @$x == 1;
+
+  my $x1 = _copy($c,$x);
+
+  my $es = '';
+  my $xr;
+  my $x1000 = [ 0100000 ];
+  while (@$x1 != 1 || $x1->[0] != 0)		# _is_zero()
+    {
+    ($x1, $xr) = _div($c,$x1,$x1000);
+    $es .= reverse sprintf("%05o", $xr->[0]);
+    }
+  $es = reverse $es;
+  $es =~ s/^0+//;   # strip leading zeros
+  '0' . $es;					# return result prepended with 0
+  }
+
+sub _from_oct
+  {
+  # convert a octal number to decimal (string, return ref to array)
+  my ($c,$os) = @_;
+
+  # for older Perls, play safe
+  my $m = [ 0100000 ];
+  my $d = 5;					# 5 digits at a time
+
+  my $mul = _one();
+  my $x = _zero();
+
+  my $len = int( (length($os)-1)/$d );		# $d digit parts, w/o the '0'
+  my $val; my $i = -$d;
+  while ($len >= 0)
+    {
+    $val = substr($os,$i,$d);			# get oct digits
+    $val = CORE::oct($val);
+    $i -= $d; $len --;
+    my $adder = [ $val ];
+    _add ($c, $x, _mul ($c, $adder, $mul ) ) if $val != 0;
+    _mul ($c, $mul, $m ) if $len >= 0; 		# skip last mul
+    }
+  $x;
+  }
+
+sub _from_hex
+  {
+  # convert a hex number to decimal (string, return ref to array)
+  my ($c,$hs) = @_;
+
+  my $m = _new($c, 0x10000000);			# 28 bit at a time (<32 bit!)
+  my $d = 7;					# 7 digits at a time
+  if ($] <= 5.006)
+    {
+    # for older Perls, play safe
+    $m = [ 0x10000 ];				# 16 bit at a time (<32 bit!)
+    $d = 4;					# 4 digits at a time
+    }
+
+  my $mul = _one();
+  my $x = _zero();
+
+  my $len = int( (length($hs)-2)/$d );		# $d digit parts, w/o the '0x'
+  my $val; my $i = -$d;
+  while ($len >= 0)
+    {
+    $val = substr($hs,$i,$d);			# get hex digits
+    $val =~ s/^0x// if $len == 0;		# for last part only because
+    $val = CORE::hex($val);			# hex does not like wrong chars
+    $i -= $d; $len --;
+    my $adder = [ $val ];
+    # if the resulting number was to big to fit into one element, create a
+    # two-element version (bug found by Mark Lakata - Thanx!)
+    if (CORE::length($val) > $BASE_LEN)
+      {
+      $adder = _new($c,$val);
+      }
+    _add ($c, $x, _mul ($c, $adder, $mul ) ) if $val != 0;
+    _mul ($c, $mul, $m ) if $len >= 0; 		# skip last mul
+    }
+  $x;
+  }
+
+sub _from_bin
+  {
+  # convert a hex number to decimal (string, return ref to array)
+  my ($c,$bs) = @_;
+
+  # instead of converting X (8) bit at a time, it is faster to "convert" the
+  # number to hex, and then call _from_hex.
+
+  my $hs = $bs;
+  $hs =~ s/^[+-]?0b//;					# remove sign and 0b
+  my $l = length($hs);					# bits
+  $hs = '0' x (8-($l % 8)) . $hs if ($l % 8) != 0;	# padd left side w/ 0
+  my $h = '0x' . unpack('H*', pack ('B*', $hs));	# repack as hex
+  
+  $c->_from_hex($h);
+  }
+
+##############################################################################
+# special modulus functions
+
+sub _modinv
+  {
+  # modular multiplicative inverse
+  my ($c,$x,$y) = @_;
+
+  # modulo zero
+  if (_is_zero($c, $y)) {
+      return (undef, undef);
+  }
+
+  # modulo one
+  if (_is_one($c, $y)) {
+      return (_zero($c), '+');
+  }
+
+  my $u = _zero($c);
+  my $v = _one($c);
+  my $a = _copy($c,$y);
+  my $b = _copy($c,$x);
+
+  # Euclid's Algorithm for bgcd(), only that we calc bgcd() ($a) and the result
+  # ($u) at the same time. See comments in BigInt for why this works.
+  my $q;
+  my $sign = 1;
+  {
+      ($a, $q, $b) = ($b, _div($c, $a, $b));        # step 1
+      last if _is_zero($c, $b);
+
+      my $t = _add($c,                              # step 2:
+                   _mul($c, _copy($c, $v), $q) ,    #  t =   v * q
+                   $u );                            #      + u
+      $u = $v;                                      #  u = v
+      $v = $t;                                      #  v = t
+      $sign = -$sign;
+      redo;
+  }
+
+  # if the gcd is not 1, then return NaN
+  return (undef, undef) unless _is_one($c, $a);
+
+  ($v, $sign == 1 ? '+' : '-');
+  }
+
+sub _modpow
+  {
+  # modulus of power ($x ** $y) % $z
+  my ($c,$num,$exp,$mod) = @_;
+
+  # a^b (mod 1) = 0 for all a and b
+  if (_is_one($c,$mod))
+    {
+        @$num = 0;
+        return $num;
+    }
+
+  # 0^a (mod m) = 0 if m != 0, a != 0
+  # 0^0 (mod m) = 1 if m != 0
+  if (_is_zero($c, $num)) {
+      if (_is_zero($c, $exp)) {
+          @$num = 1;
+      } else {
+          @$num = 0;
+      }
+      return $num;
+  }
+
+#  $num = _mod($c,$num,$mod);	# this does not make it faster
+
+  my $acc = _copy($c,$num); my $t = _one();
+
+  my $expbin = _as_bin($c,$exp); $expbin =~ s/^0b//;
+  my $len = length($expbin);
+  while (--$len >= 0)
+    {
+    if ( substr($expbin,$len,1) eq '1')			# is_odd
+      {
+      _mul($c,$t,$acc);
+      $t = _mod($c,$t,$mod);
+      }
+    _mul($c,$acc,$acc);
+    $acc = _mod($c,$acc,$mod);
+    }
+  @$num = @$t;
+  $num;
+  }
+
+sub _gcd {
+    # Greatest common divisor.
+
+    my ($c, $x, $y) = @_;
+
+    # gcd(0,0) = 0
+    # gcd(0,a) = a, if a != 0
+
+    if (@$x == 1 && $x->[0] == 0) {
+        if (@$y == 1 && $y->[0] == 0) {
+            @$x = 0;
+        } else {
+            @$x = @$y;
+        }
+        return $x;
+    }
+
+    # Until $y is zero ...
+
+    until (@$y == 1 && $y->[0] == 0) {
+
+        # Compute remainder.
+
+        _mod($c, $x, $y);
+
+        # Swap $x and $y.
+
+        my $tmp = [ @$x ];
+        @$x = @$y;
+        $y = $tmp;      # no deref here; that would modify input $y
+    }
+
+    return $x;
+}
+
+##############################################################################
+##############################################################################
+
+1;
+__END__
+
+=pod
+
+=head1 NAME
+
+Math::BigInt::Calc - Pure Perl module to support Math::BigInt
+
+=head1 SYNOPSIS
+
+This library provides support for big integer calculations. It is not
+intended to be used by other modules. Other modules which support the same
+API (see below) can also be used to support Math::BigInt, like
+Math::BigInt::GMP and Math::BigInt::Pari.
+
+=head1 DESCRIPTION
+
+In this library, the numbers are represented in base B = 10**N, where N is
+the largest possible value that does not cause overflow in the intermediate
+computations. The base B elements are stored in an array, with the least
+significant element stored in array element zero. There are no leading zero
+elements, except a single zero element when the number is zero.
+
+For instance, if B = 10000, the number 1234567890 is represented internally
+as [3456, 7890, 12].
+
+=head1 THE Math::BigInt API
+
+In order to allow for multiple big integer libraries, Math::BigInt was
+rewritten to use a plug-in library for core math routines. Any module which
+conforms to the API can be used by Math::BigInt by using this in your program:
+
+	use Math::BigInt lib => 'libname';
+
+'libname' is either the long name, like 'Math::BigInt::Pari', or only the short
+version, like 'Pari'.
+
+=head2 General Notes
+
+A library only needs to deal with unsigned big integers. Testing of input
+parameter validity is done by the caller, so there is no need to worry about
+underflow (e.g., in C<_sub()> and C<_dec()>) nor about division by zero (e.g.,
+in C<_div()>) or similar cases.
+
+For some methods, the first parameter can be modified. That includes the
+possibility that you return a reference to a completely different object
+instead. Although keeping the reference and just changing its contents is
+preferred over creating and returning a different reference.
+
+Return values are always objects, strings, Perl scalars, or true/false for
+comparison routines.
+
+=head2 API version 1
+
+The following methods must be defined in order to support the use by
+Math::BigInt v1.70 or later.
+
+=head3 API version
+
+=over 4
+
+=item I<api_version()>
+
+Return API version as a Perl scalar, 1 for Math::BigInt v1.70, 2 for
+Math::BigInt v1.83.
+
+=back
+
+=head3 Constructors
+
+=over 4
+
+=item I<_new(STR)>
+
+Convert a string representing an unsigned decimal number to an object
+representing the same number. The input is normalize, i.e., it matches
+C<^(0|[1-9]\d*)$>.
+
+=item I<_zero()>
+
+Return an object representing the number zero.
+
+=item I<_one()>
+
+Return an object representing the number one.
+
+=item I<_two()>
+
+Return an object representing the number two.
+
+=item I<_ten()>
+
+Return an object representing the number ten.
+
+=item I<_from_bin(STR)>
+
+Return an object given a string representing a binary number. The input has a
+'0b' prefix and matches the regular expression C<^0[bB](0|1[01]*)$>.
+
+=item I<_from_oct(STR)>
+
+Return an object given a string representing an octal number. The input has a
+'0' prefix and matches the regular expression C<^0[1-7]*$>.
+
+=item I<_from_hex(STR)>
+
+Return an object given a string representing a hexadecimal number. The input
+has a '0x' prefix and matches the regular expression
+C<^0x(0|[1-9a-fA-F][\da-fA-F]*)$>.
+
+=back
+
+=head3 Mathematical functions
+
+Each of these methods may modify the first input argument, except I<_bgcd()>,
+which shall not modify any input argument, and I<_sub()> which may modify the
+second input argument.
+
+=over 4
+
+=item I<_add(OBJ1, OBJ2)>
+
+Returns the result of adding OBJ2 to OBJ1.
+
+=item I<_mul(OBJ1, OBJ2)>
+
+Returns the result of multiplying OBJ2 and OBJ1.
+
+=item I<_div(OBJ1, OBJ2)>
+
+Returns the result of dividing OBJ1 by OBJ2 and truncating the result to an
+integer.
+
+=item I<_sub(OBJ1, OBJ2, FLAG)>
+
+=item I<_sub(OBJ1, OBJ2)>
+
+Returns the result of subtracting OBJ2 by OBJ1. If C<flag> is false or omitted,
+OBJ1 might be modified. If C<flag> is true, OBJ2 might be modified.
+
+=item I<_dec(OBJ)>
+
+Decrement OBJ by one.
+
+=item I<_inc(OBJ)>
+
+Increment OBJ by one.
+
+=item I<_mod(OBJ1, OBJ2)>
+
+Return OBJ1 modulo OBJ2, i.e., the remainder after dividing OBJ1 by OBJ2.
+
+=item I<_sqrt(OBJ)>
+
+Return the square root of the object, truncated to integer.
+
+=item I<_root(OBJ, N)>
+
+Return Nth root of the object, truncated to int. N is E<gt>= 3.
+
+=item I<_fac(OBJ)>
+
+Return factorial of object (1*2*3*4*...).
+
+=item I<_pow(OBJ1, OBJ2)>
+
+Return OBJ1 to the power of OBJ2. By convention, 0**0 = 1.
+
+=item I<_modinv(OBJ1, OBJ2)>
+
+Return modular multiplicative inverse, i.e., return OBJ3 so that
+
+    (OBJ3 * OBJ1) % OBJ2 = 1 % OBJ2
+
+The result is returned as two arguments. If the modular multiplicative
+inverse does not exist, both arguments are undefined. Otherwise, the
+arguments are a number (object) and its sign ("+" or "-").
+
+The output value, with its sign, must either be a positive value in the
+range 1,2,...,OBJ2-1 or the same value subtracted OBJ2. For instance, if the
+input arguments are objects representing the numbers 7 and 5, the method
+must either return an object representing the number 3 and a "+" sign, since
+(3*7) % 5 = 1 % 5, or an object representing the number 2 and "-" sign,
+since (-2*7) % 5 = 1 % 5.
+
+=item I<_modpow(OBJ1, OBJ2, OBJ3)>
+
+Return modular exponentiation, (OBJ1 ** OBJ2) % OBJ3.
+
+=item I<_rsft(OBJ, N, B)>
+
+Shift object N digits right in base B and return the resulting object. This is
+equivalent to performing integer division by B**N and discarding the remainder,
+except that it might be much faster, depending on how the number is represented
+internally.
+
+For instance, if the object $obj represents the hexadecimal number 0xabcde,
+then C<_rsft($obj, 2, 16)> returns an object representing the number 0xabc. The
+"remainer", 0xde, is discarded and not returned.
+
+=item I<_lsft(OBJ, N, B)>
+
+Shift the object N digits left in base B. This is equivalent to multiplying by
+B**N, except that it might be much faster, depending on how the number is
+represented internally.
+
+=item I<_log_int(OBJ, B)>
+
+Return integer log of OBJ to base BASE. This method has two output arguments,
+the OBJECT and a STATUS. The STATUS is Perl scalar; it is 1 if OBJ is the exact
+result, 0 if the result was truncted to give OBJ, and undef if it is unknown
+whether OBJ is the exact result.
+
+=item I<_gcd(OBJ1, OBJ2)>
+
+Return the greatest common divisor of OBJ1 and OBJ2.
+
+=back
+
+=head3 Bitwise operators
+
+Each of these methods may modify the first input argument.
+
+=over 4
+
+=item I<_and(OBJ1, OBJ2)>
+
+Return bitwise and. If necessary, the smallest number is padded with leading
+zeros.
+
+=item I<_or(OBJ1, OBJ2)>
+
+Return bitwise or. If necessary, the smallest number is padded with leading
+zeros.
+
+=item I<_xor(OBJ1, OBJ2)>
+
+Return bitwise exclusive or. If necessary, the smallest number is padded
+with leading zeros.
+
+=back
+
+=head3 Boolean operators
+
+=over 4
+
+=item I<_is_zero(OBJ)>
+
+Returns a true value if OBJ is zero, and false value otherwise.
+
+=item I<_is_one(OBJ)>
+
+Returns a true value if OBJ is one, and false value otherwise.
+
+=item I<_is_two(OBJ)>
+
+Returns a true value if OBJ is two, and false value otherwise.
+
+=item I<_is_ten(OBJ)>
+
+Returns a true value if OBJ is ten, and false value otherwise.
+
+=item I<_is_even(OBJ)>
+
+Return a true value if OBJ is an even integer, and a false value otherwise.
+
+=item I<_is_odd(OBJ)>
+
+Return a true value if OBJ is an even integer, and a false value otherwise.
+
+=item I<_acmp(OBJ1, OBJ2)>
+
+Compare OBJ1 and OBJ2 and return -1, 0, or 1, if OBJ1 is less than, equal
+to, or larger than OBJ2, respectively.
+
+=back
+
+=head3 String conversion
+
+=over 4
+
+=item I<_str(OBJ)>
+
+Return a string representing the object. The returned string should have no
+leading zeros, i.e., it should match C<^(0|[1-9]\d*)$>.
+
+=item I<_as_bin(OBJ)>
+
+Return the binary string representation of the number. The string must have a
+'0b' prefix.
+
+=item I<_as_oct(OBJ)>
+
+Return the octal string representation of the number. The string must have
+a '0x' prefix.
+
+Note: This method was required from Math::BigInt version 1.78, but the required
+API version number was not incremented, so there are older libraries that
+support API version 1, but do not support C<_as_oct()>.
+
+=item I<_as_hex(OBJ)>
+
+Return the hexadecimal string representation of the number. The string must
+have a '0x' prefix.
+
+=back
+
+=head3 Numeric conversion
+
+=over 4
+
+=item I<_num(OBJ)>
+
+Given an object, return a Perl scalar number (int/float) representing this
+number.
+
+=back
+
+=head3 Miscellaneous
+
+=over 4
+
+=item I<_copy(OBJ)>
+
+Return a true copy of the object.
+
+=item I<_len(OBJ)>
+
+Returns the number of the decimal digits in the number. The output is a
+Perl scalar.
+
+=item I<_zeros(OBJ)>
+
+Return the number of trailing decimal zeros. The output is a Perl scalar.
+
+=item I<_digit(OBJ, N)>
+
+Return the Nth digit as a Perl scalar. N is a Perl scalar, where zero refers to
+the rightmost (least significant) digit, and negative values count from the
+left (most significant digit). If $obj represents the number 123, then
+I<_digit($obj, 0)> is 3 and I<_digit(123, -1)> is 1.
+
+=item I<_check(OBJ)>
+
+Return a true value if the object is OK, and a false value otherwise. This is a
+check routine to test the internal state of the object for corruption.
+
+=back
+
+=head2 API version 2
+
+The following methods are required for an API version of 2 or greater.
+
+=head3 Constructors
+
+=over 4
+
+=item I<_1ex(N)>
+
+Return an object representing the number 10**N where N E<gt>= 0 is a Perl
+scalar.
+
+=back
+
+=head3 Mathematical functions
+
+=over 4
+
+=item I<_nok(OBJ1, OBJ2)>
+
+Return the binomial coefficient OBJ1 over OBJ1.
+
+=back
+
+=head3 Miscellaneous
+
+=over 4
+
+=item I<_alen(OBJ)>
+
+Return the approximate number of decimal digits of the object. The
+output is one Perl scalar. This estimate must be greater than or equal
+to what C<_len()> returns.
+
+=back
+
+=head2 API optional methods
+
+The following methods are optional, and can be defined if the underlying lib
+has a fast way to do them. If undefined, Math::BigInt will use pure Perl (hence
+slow) fallback routines to emulate these:
+
+=head3 Signed bitwise operators.
+
+Each of these methods may modify the first input argument.
+
+=over 4
+
+=item I<_signed_or(OBJ1, OBJ2, SIGN1, SIGN2)>
+
+Return the signed bitwise or.
+
+=item I<_signed_and(OBJ1, OBJ2, SIGN1, SIGN2)>
+
+Return the signed bitwise and.
+
+=item I<_signed_xor(OBJ1, OBJ2, SIGN1, SIGN2)>
+
+Return the signed bitwise exclusive or.
+
+=back
+
+=head1 WRAP YOUR OWN
+
+If you want to port your own favourite c-lib for big numbers to the
+Math::BigInt interface, you can take any of the already existing modules as
+a rough guideline. You should really wrap up the latest BigInt and BigFloat
+testsuites with your module, and replace in them any of the following:
+
+	use Math::BigInt;
+
+by this:
+
+	use Math::BigInt lib => 'yourlib';
+
+This way you ensure that your library really works 100% within Math::BigInt.
+
+=head1 BUGS
+
+Please report any bugs or feature requests to
+C<bug-math-bigint at rt.cpan.org>, or through the web interface at
+L<https://rt.cpan.org/Ticket/Create.html?Queue=Math-BigInt>
+(requires login).
+We will be notified, and then you'll automatically be notified of progress on
+your bug as I make changes.
+
+=head1 SUPPORT
+
+You can find documentation for this module with the perldoc command.
+
+    perldoc Math::BigInt::Calc
+
+You can also look for information at:
+
+=over 4
+
+=item * RT: CPAN's request tracker
+
+L<https://rt.cpan.org/Public/Dist/Display.html?Name=Math-BigInt>
+
+=item * AnnoCPAN: Annotated CPAN documentation
+
+L<http://annocpan.org/dist/Math-BigInt>
+
+=item * CPAN Ratings
+
+L<http://cpanratings.perl.org/dist/Math-BigInt>
+
+=item * Search CPAN
+
+L<http://search.cpan.org/dist/Math-BigInt/>
+
+=item * CPAN Testers Matrix
+
+L<http://matrix.cpantesters.org/?dist=Math-BigInt>
+
+=item * The Bignum mailing list
+
+=over 4
+
+=item * Post to mailing list
+
+C<bignum at lists.scsys.co.uk>
+
+=item * View mailing list
+
+L<http://lists.scsys.co.uk/pipermail/bignum/>
+
+=item * Subscribe/Unsubscribe
+
+L<http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/bignum>
+
+=back
+
+=back
+
+=head1 LICENSE
+
+This program is free software; you may redistribute it and/or modify it under
+the same terms as Perl itself. 
+
+=head1 AUTHORS
+
+=over 4
+
+=item *
+
+Original math code by Mark Biggar, rewritten by Tels L<http://bloodgate.com/>
+in late 2000.
+
+=item *
+
+Separated from BigInt and shaped API with the help of John Peacock.
+
+=item *
+
+Fixed, speed-up, streamlined and enhanced by Tels 2001 - 2007.
+
+=item *
+
+API documentation corrected and extended by Peter John Acklam,
+E<lt>pjacklam@online.noE<gt>
+
+=back
+
+=head1 SEE ALSO
+
+L<Math::BigInt>, L<Math::BigFloat>,
+L<Math::BigInt::GMP>, L<Math::BigInt::FastCalc> and L<Math::BigInt::Pari>.
+
+=cut
diff --git a/lib/5.24.1/Math/BigInt/CalcEmu.pm b/lib/5.24.1/Math/BigInt/CalcEmu.pm
new file mode 100644
index 00000000..8e994ede
--- /dev/null
+++ b/lib/5.24.1/Math/BigInt/CalcEmu.pm
@@ -0,0 +1,395 @@
+package Math::BigInt::CalcEmu;
+
+use 5.006001;
+use strict;
+use warnings;
+
+our $VERSION = '1.999715';
+$VERSION = eval $VERSION;
+
+package Math::BigInt;
+
+# See SYNOPSIS below.
+
+my $CALC_EMU;
+
+BEGIN
+  {
+  $CALC_EMU = Math::BigInt->config()->{'lib'};
+  # register us with MBI to get notified of future lib changes
+  Math::BigInt::_register_callback( __PACKAGE__, sub { $CALC_EMU = $_[0]; } );
+  }
+
+sub __emu_band
+  {
+  my ($self,$x,$y,$sx,$sy,@r) = @_;
+
+  return $x->bzero(@r) if $y->is_zero() || $x->is_zero();
+  
+  my $sign = 0;					# sign of result
+  $sign = 1 if $sx == -1 && $sy == -1;
+
+  my ($bx,$by);
+
+  if ($sx == -1)				# if x is negative
+    {
+    # two's complement: inc and flip all "bits" in $bx
+    $bx = $x->binc()->as_hex();			# -1 => 0, -2 => 1, -3 => 2 etc
+    $bx =~ s/-?0x//;
+    $bx =~ tr/0123456789abcdef/\x0f\x0e\x0d\x0c\x0b\x0a\x09\x08\x07\x06\x05\x04\x03\x02\x01\x00/;
+    }
+  else
+    {
+    $bx = $x->as_hex();				# get binary representation
+    $bx =~ s/-?0x//;
+    $bx =~ tr/fedcba9876543210/\x0f\x0e\x0d\x0c\x0b\x0a\x09\x08\x07\x06\x05\x04\x03\x02\x01\x00/;
+    }
+  if ($sy == -1)				# if y is negative
+    {
+    # two's complement: inc and flip all "bits" in $by
+    $by = $y->copy()->binc()->as_hex();		# -1 => 0, -2 => 1, -3 => 2 etc
+    $by =~ s/-?0x//;
+    $by =~ tr/0123456789abcdef/\x0f\x0e\x0d\x0c\x0b\x0a\x09\x08\x07\x06\x05\x04\x03\x02\x01\x00/;
+    }
+  else
+    {
+    $by = $y->as_hex();				# get binary representation
+    $by =~ s/-?0x//;
+    $by =~ tr/fedcba9876543210/\x0f\x0e\x0d\x0c\x0b\x0a\x09\x08\x07\x06\x05\x04\x03\x02\x01\x00/;
+    }
+  # now we have bit-strings from X and Y, reverse them for padding
+  $bx = reverse $bx;
+  $by = reverse $by;
+
+  # padd the shorter string
+  my $xx = "\x00"; $xx = "\x0f" if $sx == -1;
+  my $yy = "\x00"; $yy = "\x0f" if $sy == -1;
+  my $diff = CORE::length($bx) - CORE::length($by);
+  if ($diff > 0)
+    {
+    # if $yy eq "\x00", we can cut $bx, otherwise we need to padd $by
+    $by .= $yy x $diff;
+    }
+  elsif ($diff < 0)
+    {
+    # if $xx eq "\x00", we can cut $by, otherwise we need to padd $bx
+    $bx .= $xx x abs($diff);
+    }
+  
+  # and the strings together
+  my $r = $bx & $by;
+
+  # and reverse the result again
+  $bx = reverse $r;
+
+  # One of $x or $y was negative, so need to flip bits in the result.
+  # In both cases (one or two of them negative, or both positive) we need
+  # to get the characters back.
+  if ($sign == 1)
+    {
+    $bx =~ tr/\x0f\x0e\x0d\x0c\x0b\x0a\x09\x08\x07\x06\x05\x04\x03\x02\x01\x00/0123456789abcdef/;
+    }
+  else
+    {
+    $bx =~ tr/\x0f\x0e\x0d\x0c\x0b\x0a\x09\x08\x07\x06\x05\x04\x03\x02\x01\x00/fedcba9876543210/;
+    }
+
+  # leading zeros will be stripped by _from_hex()
+  $bx = '0x' . $bx;
+  $x->{value} = $CALC_EMU->_from_hex( $bx );
+
+  # calculate sign of result
+  $x->{sign} = '+';
+  $x->{sign} = '-' if $sign == 1 && !$x->is_zero();
+
+  $x->bdec() if $sign == 1;
+
+  $x->round(@r);
+  }
+
+sub __emu_bior
+  {
+  my ($self,$x,$y,$sx,$sy,@r) = @_;
+
+  return $x->round(@r) if $y->is_zero();
+
+  my $sign = 0;					# sign of result
+  $sign = 1 if ($sx == -1) || ($sy == -1);
+
+  my ($bx,$by);
+
+  if ($sx == -1)				# if x is negative
+    {
+    # two's complement: inc and flip all "bits" in $bx
+    $bx = $x->binc()->as_hex();			# -1 => 0, -2 => 1, -3 => 2 etc
+    $bx =~ s/-?0x//;
+    $bx =~ tr/0123456789abcdef/\x0f\x0e\x0d\x0c\x0b\x0a\x09\x08\x07\x06\x05\x04\x03\x02\x01\x00/;
+    }
+  else
+    {
+    $bx = $x->as_hex();				# get binary representation
+    $bx =~ s/-?0x//;
+    $bx =~ tr/fedcba9876543210/\x0f\x0e\x0d\x0c\x0b\x0a\x09\x08\x07\x06\x05\x04\x03\x02\x01\x00/;
+    }
+  if ($sy == -1)				# if y is negative
+    {
+    # two's complement: inc and flip all "bits" in $by
+    $by = $y->copy()->binc()->as_hex();		# -1 => 0, -2 => 1, -3 => 2 etc
+    $by =~ s/-?0x//;
+    $by =~ tr/0123456789abcdef/\x0f\x0e\x0d\x0c\x0b\x0a\x09\x08\x07\x06\x05\x04\x03\x02\x01\x00/;
+    }
+  else
+    {
+    $by = $y->as_hex();				# get binary representation
+    $by =~ s/-?0x//;
+    $by =~ tr/fedcba9876543210/\x0f\x0e\x0d\x0c\x0b\x0a\x09\x08\x07\x06\x05\x04\x03\x02\x01\x00/;
+    }
+  # now we have bit-strings from X and Y, reverse them for padding
+  $bx = reverse $bx;
+  $by = reverse $by;
+
+  # padd the shorter string
+  my $xx = "\x00"; $xx = "\x0f" if $sx == -1;
+  my $yy = "\x00"; $yy = "\x0f" if $sy == -1;
+  my $diff = CORE::length($bx) - CORE::length($by);
+  if ($diff > 0)
+    {
+    $by .= $yy x $diff;
+    }
+  elsif ($diff < 0)
+    {
+    $bx .= $xx x abs($diff);
+    }
+
+  # or the strings together
+  my $r = $bx | $by;
+
+  # and reverse the result again
+  $bx = reverse $r;
+
+  # one of $x or $y was negative, so need to flip bits in the result
+  # in both cases (one or two of them negative, or both positive) we need
+  # to get the characters back.
+  if ($sign == 1)
+    {
+    $bx =~ tr/\x0f\x0e\x0d\x0c\x0b\x0a\x09\x08\x07\x06\x05\x04\x03\x02\x01\x00/0123456789abcdef/;
+    }
+  else
+    {
+    $bx =~ tr/\x0f\x0e\x0d\x0c\x0b\x0a\x09\x08\x07\x06\x05\x04\x03\x02\x01\x00/fedcba9876543210/;
+    }
+
+  # leading zeros will be stripped by _from_hex()
+  $bx = '0x' . $bx;
+  $x->{value} = $CALC_EMU->_from_hex( $bx );
+
+  # calculate sign of result
+  $x->{sign} = '+';
+  $x->{sign} = '-' if $sign == 1 && !$x->is_zero();
+
+  # if one of X or Y was negative, we need to decrement result
+  $x->bdec() if $sign == 1;
+
+  $x->round(@r);
+  }
+
+sub __emu_bxor
+  {
+  my ($self,$x,$y,$sx,$sy,@r) = @_;
+
+  return $x->round(@r) if $y->is_zero();
+
+  my $sign = 0;					# sign of result
+  $sign = 1 if $x->{sign} ne $y->{sign};
+
+  my ($bx,$by);
+
+  if ($sx == -1)				# if x is negative
+    {
+    # two's complement: inc and flip all "bits" in $bx
+    $bx = $x->binc()->as_hex();			# -1 => 0, -2 => 1, -3 => 2 etc
+    $bx =~ s/-?0x//;
+    $bx =~ tr/0123456789abcdef/\x0f\x0e\x0d\x0c\x0b\x0a\x09\x08\x07\x06\x05\x04\x03\x02\x01\x00/;
+    }
+  else
+    {
+    $bx = $x->as_hex();				# get binary representation
+    $bx =~ s/-?0x//;
+    $bx =~ tr/fedcba9876543210/\x0f\x0e\x0d\x0c\x0b\x0a\x09\x08\x07\x06\x05\x04\x03\x02\x01\x00/;
+    }
+  if ($sy == -1)				# if y is negative
+    {
+    # two's complement: inc and flip all "bits" in $by
+    $by = $y->copy()->binc()->as_hex();		# -1 => 0, -2 => 1, -3 => 2 etc
+    $by =~ s/-?0x//;
+    $by =~ tr/0123456789abcdef/\x0f\x0e\x0d\x0c\x0b\x0a\x09\x08\x07\x06\x05\x04\x03\x02\x01\x00/;
+    }
+  else
+    {
+    $by = $y->as_hex();				# get binary representation
+    $by =~ s/-?0x//;
+    $by =~ tr/fedcba9876543210/\x0f\x0e\x0d\x0c\x0b\x0a\x09\x08\x07\x06\x05\x04\x03\x02\x01\x00/;
+    }
+  # now we have bit-strings from X and Y, reverse them for padding
+  $bx = reverse $bx;
+  $by = reverse $by;
+
+  # padd the shorter string
+  my $xx = "\x00"; $xx = "\x0f" if $sx == -1;
+  my $yy = "\x00"; $yy = "\x0f" if $sy == -1;
+  my $diff = CORE::length($bx) - CORE::length($by);
+  if ($diff > 0)
+    {
+    $by .= $yy x $diff;
+    }
+  elsif ($diff < 0)
+    {
+    $bx .= $xx x abs($diff);
+    }
+
+  # xor the strings together
+  my $r = $bx ^ $by;
+
+  # and reverse the result again
+  $bx = reverse $r;
+
+  # one of $x or $y was negative, so need to flip bits in the result
+  # in both cases (one or two of them negative, or both positive) we need
+  # to get the characters back.
+  if ($sign == 1)
+    {
+    $bx =~ tr/\x0f\x0e\x0d\x0c\x0b\x0a\x09\x08\x07\x06\x05\x04\x03\x02\x01\x00/0123456789abcdef/;
+    }
+  else
+    {
+    $bx =~ tr/\x0f\x0e\x0d\x0c\x0b\x0a\x09\x08\x07\x06\x05\x04\x03\x02\x01\x00/fedcba9876543210/;
+    }
+
+  # leading zeros will be stripped by _from_hex()
+  $bx = '0x' . $bx;
+  $x->{value} = $CALC_EMU->_from_hex( $bx );
+
+  # calculate sign of result
+  $x->{sign} = '+';
+  $x->{sign} = '-' if $sx != $sy && !$x->is_zero();
+
+  $x->bdec() if $sign == 1;
+
+  $x->round(@r);
+  }
+
+##############################################################################
+##############################################################################
+
+1;
+
+__END__
+
+=pod
+
+=head1 NAME
+
+Math::BigInt::CalcEmu - Emulate low-level math with BigInt code
+
+=head1 SYNOPSIS
+
+	use Math::BigInt::CalcEmu;
+
+=head1 DESCRIPTION
+
+Contains routines that emulate low-level math functions in BigInt, e.g.
+optional routines the low-level math package does not provide on its own.
+
+Will be loaded on demand and called automatically by BigInt.
+
+Stuff here is really low-priority to optimize, since it is far better to
+implement the operation in the low-level math library directly, possible even
+using a call to the native lib.
+
+=head1 METHODS
+
+=over
+
+=item __emu_bxor
+
+=item __emu_band
+
+=item __emu_bior
+
+=back
+
+=head1 BUGS
+
+Please report any bugs or feature requests to
+C<bug-math-bigint at rt.cpan.org>, or through the web interface at
+L<https://rt.cpan.org/Ticket/Create.html?Queue=Math-BigInt>
+(requires login).
+We will be notified, and then you'll automatically be notified of progress on
+your bug as I make changes.
+
+=head1 SUPPORT
+
+You can find documentation for this module with the perldoc command.
+
+    perldoc Math::BigInt::CalcEmu
+
+You can also look for information at:
+
+=over 4
+
+=item * RT: CPAN's request tracker
+
+L<https://rt.cpan.org/Public/Dist/Display.html?Name=Math-BigInt>
+
+=item * AnnoCPAN: Annotated CPAN documentation
+
+L<http://annocpan.org/dist/Math-BigInt>
+
+=item * CPAN Ratings
+
+L<http://cpanratings.perl.org/dist/Math-BigInt>
+
+=item * Search CPAN
+
+L<http://search.cpan.org/dist/Math-BigInt/>
+
+=item * CPAN Testers Matrix
+
+L<http://matrix.cpantesters.org/?dist=Math-BigInt>
+
+=item * The Bignum mailing list
+
+=over 4
+
+=item * Post to mailing list
+
+C<bignum at lists.scsys.co.uk>
+
+=item * View mailing list
+
+L<http://lists.scsys.co.uk/pipermail/bignum/>
+
+=item * Subscribe/Unsubscribe
+
+L<http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/bignum>
+
+=back
+
+=back
+
+=head1 LICENSE
+
+This program is free software; you may redistribute it and/or modify it under
+the same terms as Perl itself. 
+
+=head1 AUTHORS
+
+(c) Tels http://bloodgate.com 2003, 2004 - based on BigInt code by
+Tels from 2001-2003.
+
+=head1 SEE ALSO
+
+L<Math::BigInt>, L<Math::BigFloat>,
+L<Math::BigInt::GMP> and L<Math::BigInt::Pari>.
+
+=cut
diff --git a/lib/5.24.1/Math/BigInt/Trace.pm b/lib/5.24.1/Math/BigInt/Trace.pm
new file mode 100644
index 00000000..4e474976
--- /dev/null
+++ b/lib/5.24.1/Math/BigInt/Trace.pm
@@ -0,0 +1,48 @@
+#!perl
+
+package Math::BigInt::Trace;
+
+require 5.006;
+use strict;
+use warnings;
+
+use Exporter;
+use Math::BigInt;
+
+our ($PACKAGE, @EXPORT_OK, $accuracy, $precision, $round_mode, $div_scale);
+
+our @ISA = qw(Exporter Math::BigInt);
+
+our $VERSION = '0.42_01';
+
+use overload;                   # inherit overload from BigInt
+
+# Globals
+$accuracy = $precision = undef;
+$round_mode = 'even';
+$div_scale = 40;
+
+sub new {
+    my $proto = shift;
+    my $class = ref($proto) || $proto;
+
+    my $value = shift;
+    my $a = $accuracy;
+    $a = $_[0] if defined $_[0];
+    my $p = $precision;
+    $p = $_[1] if defined $_[1];
+    my $self = Math::BigInt->new($value, $a, $p, $round_mode);
+    bless $self, $class;
+    print "MBI new '$value' => '$self' (", ref($self), ")";
+    return $self;
+}
+
+sub import {
+    print "MBI import ", join(' ', @_);
+    my $self = shift;
+    Math::BigInt::import($self, @_);            # need it for subclasses
+#    $self->export_to_level(1, $self, @_);       # need this ?
+    @_ = ();
+}
+
+1;
diff --git a/lib/5.24.1/Math/BigRat.pm b/lib/5.24.1/Math/BigRat.pm
new file mode 100644
index 00000000..95c2927a
--- /dev/null
+++ b/lib/5.24.1/Math/BigRat.pm
@@ -0,0 +1,2243 @@
+#
+# "Tax the rat farms." - Lord Vetinari
+#
+
+# The following hash values are used:
+#   sign : +,-,NaN,+inf,-inf
+#   _d   : denominator
+#   _n   : numerator (value = _n/_d)
+#   _a   : accuracy
+#   _p   : precision
+# You should not look at the innards of a BigRat - use the methods for this.
+
+package Math::BigRat;
+
+# anything older is untested, and unlikely to work
+use 5.006;
+use strict;
+use warnings;
+
+use Carp ();
+
+use Math::BigFloat;
+
+our ($VERSION, @ISA, $upgrade, $downgrade,
+     $accuracy, $precision, $round_mode, $div_scale, $_trap_nan, $_trap_inf);
+
+@ISA = qw(Math::BigFloat);
+
+$VERSION = '0.260802';
+$VERSION = eval $VERSION;
+
+# Inherit overload from Math::BigFloat, but disable the bitwise ops that don't
+# make much sense for rationals unless they're truncated or something first.
+
+use overload
+  map {
+      my $op = $_;
+      ($op => sub {
+           Carp::croak("bitwise operation $op not supported in Math::BigRat");
+       });
+  } qw(& | ^ ~ << >> &= |= ^= <<= >>=);
+
+BEGIN {
+    *objectify = \&Math::BigInt::objectify;  # inherit this from BigInt
+    *AUTOLOAD  = \&Math::BigFloat::AUTOLOAD; # can't inherit AUTOLOAD
+    # We inherit these from BigFloat because currently it is not possible
+    # that MBF has a different $MBI variable than we, because MBF also uses
+    # Math::BigInt::config->('lib'); (there is always only one library loaded)
+    *_e_add = \&Math::BigFloat::_e_add;
+    *_e_sub = \&Math::BigFloat::_e_sub;
+    *as_int = \&as_number;
+    *is_pos = \&is_positive;
+    *is_neg = \&is_negative;
+}
+
+##############################################################################
+# Global constants and flags. Access these only via the accessor methods!
+
+$accuracy = $precision = undef;
+$round_mode = 'even';
+$div_scale = 40;
+$upgrade = undef;
+$downgrade = undef;
+
+# These are internally, and not to be used from the outside at all!
+
+$_trap_nan = 0;                         # are NaNs ok? set w/ config()
+$_trap_inf = 0;                         # are infs ok? set w/ config()
+
+# the package we are using for our private parts, defaults to:
+# Math::BigInt->config()->{lib}
+my $MBI = 'Math::BigInt::Calc';
+
+my $nan   = 'NaN';
+my $class = 'Math::BigRat';
+
+sub isa {
+    return 0 if $_[1] =~ /^Math::Big(Int|Float)/; # we aren't
+    UNIVERSAL::isa(@_);
+}
+
+##############################################################################
+
+# If $x is a Math::BigRat object and $f is a Math::BigFloat object, then
+#
+#   $x -> _new_from_float($f)
+#
+# converts $x into a Math::BigRat with the value of $f.
+
+sub _new_from_float
+  {
+  # turn a single float input into a rational number (like '0.1')
+  my ($self,$f) = @_;
+
+  return $self->bnan() if $f->is_nan();
+  return $self->binf($f->{sign}) if $f->{sign} =~ /^[+-]inf$/;
+
+  $self->{_n} = $MBI->_copy($f->{_m});	# mantissa
+  $self->{_d} = $MBI->_one();
+  $self->{sign} = $f->{sign} || '+';
+  if ($f->{_es} eq '-')
+    {
+    # something like Math::BigRat->new('0.1');
+    # 1 / 1 => 1/10
+    $MBI->_lsft($self->{_d}, $f->{_e} ,10);
+    }
+  else
+    {
+    # something like Math::BigRat->new('10');
+    # 1 / 1 => 10/1
+    $MBI->_lsft($self->{_n}, $f->{_e} ,10) unless
+      $MBI->_is_zero($f->{_e});
+    }
+  return $self -> bnorm();
+  }
+
+# If $x is a Math::BigRat object and $i is a Math::BigInt object, then
+#
+#   $x -> _new_from_int($i)
+#
+# converts $x into a Math::BigRat with the value of $i.
+
+sub _new_from_int {
+    my ($self, $i) = @_;
+
+    return $self -> bnan()             if $i -> is_nan();
+    return $self -> binf($i -> sign()) if $i -> is_inf();
+
+    $self -> {_n}   = $MBI -> _copy($i -> {value});
+    $self -> {_d}   = $MBI -> _one();
+    $self -> {sign} = $i -> {sign};
+    return $self;
+}
+
+sub new {
+    my $self    = shift;
+    my $selfref = ref $self;
+    my $class   = $selfref || $self;
+
+    # Get numerator and denominator.
+
+    my ($n, $d) = @_;
+
+    # If called as a class method, initialize a new object.
+
+    $self = bless {}, $class unless $selfref;
+
+    # Input like $class->new($n), where there is no denominator, and where $n
+    # is a Math::BigInt or Math::BigFloat.
+
+    if ((!defined $d) && (ref $n) && (!$n->isa('Math::BigRat'))) {
+        if ($n->isa('Math::BigFloat')) {
+            $self->_new_from_float($n);
+        }
+        elsif ($n->isa('Math::BigInt')) {
+            # TODO: trap NaN, inf
+            $self->{_n} = $MBI->_copy($n->{value}); # "mantissa" = N
+            $self->{_d} = $MBI->_one();             # d => 1
+            $self->{sign} = $n->{sign};
+        }
+        elsif ($n->isa('Math::BigInt::Lite')) {
+            # TODO: trap NaN, inf
+            $self->{sign} = '+';
+            $self->{sign} = '-' if $$n < 0;
+            $self->{_n} = $MBI->_new(abs($$n)); # "mantissa" = N
+            $self->{_d} = $MBI->_one();         # d => 1
+        }
+        return $self->bnorm();  # normalize (120/100 => 6/5)
+    }
+
+    # Input like $class->new($n, $d) where $n and $d both are Math::BigInt
+    # objects or Math::BigInt::Lite objects.
+    if (ref($d) && ref($n)) {
+
+        # do N first (for $self->{sign}):
+        if ($n->isa('Math::BigInt')) {
+            # TODO: trap NaN, inf
+            $self->{_n} = $MBI->_copy($n->{value}); # "mantissa" = N
+            $self->{sign} = $n->{sign};
+        }
+        elsif ($n->isa('Math::BigInt::Lite')) {
+            # TODO: trap NaN, inf
+            $self->{sign} = '+';
+            $self->{sign} = '-' if $$n < 0;
+            $self->{_n} = $MBI->_new(abs($$n)); # "mantissa" = $n
+        }
+        else {
+            Carp::croak(ref($n) . " is not a recognized object format for"
+                        . " Math::BigRat->new");
+        }
+
+        # now D:
+        if ($d->isa('Math::BigInt')) {
+            # TODO: trap NaN, inf
+            $self->{_d} = $MBI->_copy($d->{value}); # "mantissa" = D
+            # +/+ or -/- => +, +/- or -/+ => -
+            $self->{sign} = $d->{sign} ne $self->{sign} ? '-' : '+';
+        } elsif ($d->isa('Math::BigInt::Lite')) {
+            # TODO: trap NaN, inf
+            $self->{_d} = $MBI->_new(abs($$d)); # "mantissa" = D
+            my $ds = '+';
+            $ds = '-' if $$d < 0;
+            # +/+ or -/- => +, +/- or -/+ => -
+            $self->{sign} = $ds ne $self->{sign} ? '-' : '+';
+        } else {
+            Carp::croak(ref($d) . " is not a recognized object format for"
+                        . " Math::BigRat->new");
+        }
+
+        return $self->bnorm();  # normalize (120/100 => 6/5)
+    }
+
+    return $n->copy() if ref $n; # already a BigRat
+
+    if (!defined $n) {
+        $self->{_n} = $MBI->_zero(); # undef => 0
+        $self->{_d} = $MBI->_one();
+        $self->{sign} = '+';
+        return $self;
+    }
+
+    # string input with / delimiter
+    if ($n =~ m|\s*/\s*|) {
+        return $class->bnan() if $n =~ m|/.*/|; # 1/2/3 isn't valid
+        return $class->bnan() if $n =~ m|/\s*$|; # 1/ isn't valid
+        ($n, $d) = split (/\//, $n);
+        # try as BigFloats first
+        if (($n =~ /[\.eE]/) || ($d =~ /[\.eE]/)) {
+            local $Math::BigFloat::accuracy = undef;
+            local $Math::BigFloat::precision = undef;
+
+            # one of them looks like a float
+            my $nf = Math::BigFloat->new($n, undef, undef);
+            $self->{sign} = '+';
+            return $self->bnan() if $nf->is_nan();
+
+            $self->{_n} = $MBI->_copy($nf->{_m}); # get mantissa
+
+            # now correct $self->{_n} due to $n
+            my $f = Math::BigFloat->new($d, undef, undef);
+            return $self->bnan() if $f->is_nan();
+            $self->{_d} = $MBI->_copy($f->{_m});
+
+            # calculate the difference between nE and dE
+            my $diff_e = $nf->exponent()->bsub($f->exponent);
+            if ($diff_e->is_negative()) {
+                # < 0: mul d with it
+                $MBI->_lsft($self->{_d}, $MBI->_new($diff_e->babs()), 10);
+            } elsif (!$diff_e->is_zero()) {
+                # > 0: mul n with it
+                $MBI->_lsft($self->{_n}, $MBI->_new($diff_e), 10);
+            }
+        } else {
+            # both d and n look like (big)ints
+
+            $self->{sign} = '+'; # no sign => '+'
+            $self->{_n} = undef;
+            $self->{_d} = undef;
+            if ($n =~ /^([+-]?)0*([0-9]+)\z/) { # first part ok?
+                $self->{sign} = $1 || '+'; # no sign => '+'
+                $self->{_n} = $MBI->_new($2 || 0);
+            }
+
+            if ($d =~ /^([+-]?)0*([0-9]+)\z/) { # second part ok?
+                $self->{sign} =~ tr/+-/-+/ if ($1 || '') eq '-'; # negate if second part neg.
+                $self->{_d} = $MBI->_new($2 || 0);
+            }
+
+            if (!defined $self->{_n} || !defined $self->{_d}) {
+                $d = Math::BigInt->new($d, undef, undef) unless ref $d;
+                $n = Math::BigInt->new($n, undef, undef) unless ref $n;
+
+                if ($n->{sign} =~ /^[+-]$/ && $d->{sign} =~ /^[+-]$/) {
+                    # both parts are ok as integers (weird things like ' 1e0'
+                    $self->{_n} = $MBI->_copy($n->{value});
+                    $self->{_d} = $MBI->_copy($d->{value});
+                    $self->{sign} = $n->{sign};
+                    $self->{sign} =~ tr/+-/-+/ if $d->{sign} eq '-'; # -1/-2 => 1/2
+                    return $self->bnorm();
+                }
+
+                $self->{sign} = '+'; # a default sign
+                return $self->bnan() if $n->is_nan() || $d->is_nan();
+
+                # handle inf cases:
+                if ($n->is_inf() || $d->is_inf()) {
+                    if ($n->is_inf()) {
+                        return $self->bnan() if $d->is_inf(); # both are inf => NaN
+                        my $s = '+'; # '+inf/+123' or '-inf/-123'
+                        $s = '-' if substr($n->{sign}, 0, 1) ne $d->{sign};
+                        # +-inf/123 => +-inf
+                        return $self->binf($s);
+                    }
+                    # 123/inf => 0
+                    return $self->bzero();
+                }
+            }
+        }
+
+        return $self->bnorm();
+    }
+
+    # simple string input
+    if (($n =~ /[\.eE]/) && $n !~ /^0x/) {
+        # looks like a float, quacks like a float, so probably is a float
+        $self->{sign} = 'NaN';
+        local $Math::BigFloat::accuracy = undef;
+        local $Math::BigFloat::precision = undef;
+        $self->_new_from_float(Math::BigFloat->new($n, undef, undef));
+    } else {
+        # for simple forms, use $MBI directly
+        if ($n =~ /^([+-]?)0*([0-9]+)\z/) {
+            $self->{sign} = $1 || '+';
+            $self->{_n} = $MBI->_new($2 || 0);
+            $self->{_d} = $MBI->_one();
+        }
+        elsif ($n =~ /^\s*([+-]?)inf(inity)?\s*\z/i) {
+            my $sgn = $1 || '+';
+            $self->{sign} = $sgn . 'inf';   # set a default sign for bstr()
+            $self->binf($sgn);
+        }
+
+        else {
+            my $n = Math::BigInt->new($n, undef, undef);
+            $self->{_n} = $MBI->_copy($n->{value});
+            $self->{_d} = $MBI->_one();
+            $self->{sign} = $n->{sign};
+            return $self->bnan() if $self->{sign} eq 'NaN';
+        }
+    }
+
+    $self->bnorm();
+}
+
+sub copy {
+    my $self    = shift;
+    my $selfref = ref $self;
+    my $class   = $selfref || $self;
+
+    # If called as a class method, the object to copy is the next argument.
+
+    $self = shift() unless $selfref;
+
+    my $copy = bless {}, $class;
+
+    $copy->{sign} = $self->{sign};
+    $copy->{_d} = $MBI->_copy($self->{_d});
+    $copy->{_n} = $MBI->_copy($self->{_n});
+    $copy->{_a} = $self->{_a} if defined $self->{_a};
+    $copy->{_p} = $self->{_p} if defined $self->{_p};
+
+    $copy;
+}
+
+##############################################################################
+
+sub config
+  {
+  # return (later set?) configuration data as hash ref
+  my $class = shift || 'Math::BigRat';
+
+  if (@_ == 1 && ref($_[0]) ne 'HASH')
+    {
+    my $cfg = $class->SUPER::config();
+    return $cfg->{$_[0]};
+    }
+
+  my $cfg = $class->SUPER::config(@_);
+
+  # now we need only to override the ones that are different from our parent
+  $cfg->{class} = $class;
+  $cfg->{with} = $MBI;
+  $cfg;
+  }
+
+##############################################################################
+
+sub bstr
+  {
+  my ($self,$x) = ref($_[0]) ? (undef,$_[0]) : objectify(1,@_);
+
+  if ($x->{sign} !~ /^[+-]$/)		# inf, NaN etc
+    {
+    my $s = $x->{sign}; $s =~ s/^\+//; 	# +inf => inf
+    return $s;
+    }
+
+  my $s = ''; $s = $x->{sign} if $x->{sign} ne '+';	# '+3/2' => '3/2'
+
+  return $s . $MBI->_str($x->{_n}) if $MBI->_is_one($x->{_d});
+  $s . $MBI->_str($x->{_n}) . '/' . $MBI->_str($x->{_d});
+  }
+
+sub bsstr
+  {
+  my ($self,$x) = ref($_[0]) ? (undef,$_[0]) : objectify(1,@_);
+
+  if ($x->{sign} !~ /^[+-]$/)		# inf, NaN etc
+    {
+    my $s = $x->{sign}; $s =~ s/^\+//; 	# +inf => inf
+    return $s;
+    }
+
+  my $s = ''; $s = $x->{sign} if $x->{sign} ne '+';	# +3 vs 3
+  $s . $MBI->_str($x->{_n}) . '/' . $MBI->_str($x->{_d});
+  }
+
+sub bnorm
+  {
+  # reduce the number to the shortest form
+  my ($self,$x) = ref($_[0]) ? (undef,$_[0]) : objectify(1,@_);
+
+  # Both parts must be objects of whatever we are using today.
+  if (my $c = $MBI->_check($x->{_n}))
+    {
+        Carp::croak("n did not pass the self-check ($c) in bnorm()");
+    }
+  if (my $c = $MBI->_check($x->{_d}))
+    {
+        Carp::croak("d did not pass the self-check ($c) in bnorm()");
+    }
+
+  # no normalize for NaN, inf etc.
+  return $x if $x->{sign} !~ /^[+-]$/;
+
+  # normalize zeros to 0/1
+  if ($MBI->_is_zero($x->{_n}))
+    {
+    $x->{sign} = '+';					# never leave a -0
+    $x->{_d} = $MBI->_one() unless $MBI->_is_one($x->{_d});
+    return $x;
+    }
+
+  return $x if $MBI->_is_one($x->{_d});			# no need to reduce
+
+  # reduce other numbers
+  my $gcd = $MBI->_copy($x->{_n});
+  $gcd = $MBI->_gcd($gcd,$x->{_d});
+
+  if (!$MBI->_is_one($gcd))
+    {
+    $x->{_n} = $MBI->_div($x->{_n},$gcd);
+    $x->{_d} = $MBI->_div($x->{_d},$gcd);
+    }
+  $x;
+  }
+
+##############################################################################
+# sign manipulation
+
+sub bneg
+  {
+  # (BRAT or num_str) return BRAT
+  # negate number or make a negated number from string
+  my ($self,$x) = ref($_[0]) ? (undef,$_[0]) : objectify(1,@_);
+
+  return $x if $x->modify('bneg');
+
+  # for +0 do not negate (to have always normalized +0). Does nothing for 'NaN'
+  $x->{sign} =~ tr/+-/-+/
+    unless ($x->{sign} eq '+' && $MBI->_is_zero($x->{_n}));
+  $x;
+  }
+
+##############################################################################
+# special values
+
+sub _bnan
+  {
+  # used by parent class bnan() to initialize number to NaN
+  my $self = shift;
+
+  if ($_trap_nan)
+    {
+    my $class = ref($self);
+    # "$self" below will stringify the object, this blows up if $self is a
+    # partial object (happens under trap_nan), so fix it beforehand
+    $self->{_d} = $MBI->_zero() unless defined $self->{_d};
+    $self->{_n} = $MBI->_zero() unless defined $self->{_n};
+    Carp::croak ("Tried to set $self to NaN in $class\::_bnan()");
+    }
+  $self->{_n} = $MBI->_zero();
+  $self->{_d} = $MBI->_zero();
+  }
+
+sub _binf
+  {
+  # used by parent class bone() to initialize number to +inf/-inf
+  my $self = shift;
+
+  if ($_trap_inf)
+    {
+    my $class = ref($self);
+    # "$self" below will stringify the object, this blows up if $self is a
+    # partial object (happens under trap_nan), so fix it beforehand
+    $self->{_d} = $MBI->_zero() unless defined $self->{_d};
+    $self->{_n} = $MBI->_zero() unless defined $self->{_n};
+    Carp::croak ("Tried to set $self to inf in $class\::_binf()");
+    }
+  $self->{_n} = $MBI->_zero();
+  $self->{_d} = $MBI->_zero();
+  }
+
+sub _bone
+  {
+  # used by parent class bone() to initialize number to +1/-1
+  my $self = shift;
+  $self->{_n} = $MBI->_one();
+  $self->{_d} = $MBI->_one();
+  }
+
+sub _bzero
+  {
+  # used by parent class bzero() to initialize number to 0
+  my $self = shift;
+  $self->{_n} = $MBI->_zero();
+  $self->{_d} = $MBI->_one();
+  }
+
+##############################################################################
+# mul/add/div etc
+
+sub badd
+  {
+  # add two rational numbers
+
+  # set up parameters
+  my ($self,$x,$y,@r) = (ref($_[0]),@_);
+  # objectify is costly, so avoid it
+  if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1])))
+    {
+    ($self,$x,$y,@r) = objectify(2,@_);
+    }
+
+  # +inf + +inf => +inf,  -inf + -inf => -inf
+  return $x->binf(substr($x->{sign},0,1))
+    if $x->{sign} eq $y->{sign} && $x->{sign} =~ /^[+-]inf$/;
+
+  # +inf + -inf or -inf + +inf => NaN
+  return $x->bnan() if ($x->{sign} !~ /^[+-]$/ || $y->{sign} !~ /^[+-]$/);
+
+  #  1   1    gcd(3,4) = 1    1*3 + 1*4    7
+  #  - + -                  = --------- = --
+  #  4   3                      4*3       12
+
+  # we do not compute the gcd() here, but simple do:
+  #  5   7    5*3 + 7*4   43
+  #  - + -  = --------- = --
+  #  4   3       4*3      12
+
+  # and bnorm() will then take care of the rest
+
+  # 5 * 3
+  $x->{_n} = $MBI->_mul($x->{_n}, $y->{_d});
+
+  # 7 * 4
+  my $m = $MBI->_mul($MBI->_copy($y->{_n}), $x->{_d});
+
+  # 5 * 3 + 7 * 4
+  ($x->{_n}, $x->{sign}) = _e_add($x->{_n}, $m, $x->{sign}, $y->{sign});
+
+  # 4 * 3
+  $x->{_d} = $MBI->_mul($x->{_d}, $y->{_d});
+
+  # normalize result, and possible round
+  $x->bnorm()->round(@r);
+  }
+
+sub bsub
+  {
+  # subtract two rational numbers
+
+  # set up parameters
+  my ($self,$x,$y,@r) = (ref($_[0]),@_);
+  # objectify is costly, so avoid it
+  if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1])))
+    {
+    ($self,$x,$y,@r) = objectify(2,@_);
+    }
+
+  # flip sign of $x, call badd(), then flip sign of result
+  $x->{sign} =~ tr/+-/-+/
+    unless $x->{sign} eq '+' && $MBI->_is_zero($x->{_n});	# not -0
+  $x->badd($y,@r);				# does norm and round
+  $x->{sign} =~ tr/+-/-+/
+    unless $x->{sign} eq '+' && $MBI->_is_zero($x->{_n});	# not -0
+  $x;
+  }
+
+sub bmul
+  {
+  # multiply two rational numbers
+
+  # set up parameters
+  my ($self,$x,$y,@r) = (ref($_[0]),@_);
+  # objectify is costly, so avoid it
+  if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1])))
+    {
+    ($self,$x,$y,@r) = objectify(2,@_);
+    }
+
+  return $x->bnan() if ($x->{sign} eq 'NaN' || $y->{sign} eq 'NaN');
+
+  # inf handling
+  if (($x->{sign} =~ /^[+-]inf$/) || ($y->{sign} =~ /^[+-]inf$/))
+    {
+    return $x->bnan() if $x->is_zero() || $y->is_zero();
+    # result will always be +-inf:
+    # +inf * +/+inf => +inf, -inf * -/-inf => +inf
+    # +inf * -/-inf => -inf, -inf * +/+inf => -inf
+    return $x->binf() if ($x->{sign} =~ /^\+/ && $y->{sign} =~ /^\+/);
+    return $x->binf() if ($x->{sign} =~ /^-/ && $y->{sign} =~ /^-/);
+    return $x->binf('-');
+    }
+
+  # x== 0 # also: or y == 1 or y == -1
+  return wantarray ? ($x,$self->bzero()) : $x if $x->is_zero();
+
+  # XXX TODO:
+  # According to Knuth, this can be optimized by doing gcd twice (for d and n)
+  # and reducing in one step. This would save us the bnorm() at the end.
+
+  #  1   2    1 * 2    2    1
+  #  - * - =  -----  = -  = -
+  #  4   3    4 * 3    12   6
+
+  $x->{_n} = $MBI->_mul($x->{_n}, $y->{_n});
+  $x->{_d} = $MBI->_mul($x->{_d}, $y->{_d});
+
+  # compute new sign
+  $x->{sign} = $x->{sign} eq $y->{sign} ? '+' : '-';
+
+  $x->bnorm()->round(@r);
+  }
+
+sub bdiv
+  {
+  # (dividend: BRAT or num_str, divisor: BRAT or num_str) return
+  # (BRAT,BRAT) (quo,rem) or BRAT (only rem)
+
+  # set up parameters
+  my ($self,$x,$y,@r) = (ref($_[0]),@_);
+  # objectify is costly, so avoid it
+  if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1])))
+    {
+    ($self,$x,$y,@r) = objectify(2,@_);
+    }
+
+  return $x if $x->modify('bdiv');
+
+    my $wantarray = wantarray;          # call only once
+
+    # At least one argument is NaN. This is handled the same way as in
+    # Math::BigInt -> bdiv(). See the comments in the code implementing that
+    # method.
+
+    if ($x -> is_nan() || $y -> is_nan()) {
+        return $wantarray ? ($x -> bnan(), $self -> bnan()) : $x -> bnan();
+    }
+
+    # Divide by zero and modulo zero. This is handled the same way as in
+    # Math::BigInt -> bdiv(). See the comments in the code implementing that
+    # method.
+
+    if ($y -> is_zero()) {
+        my ($quo, $rem);
+        if ($wantarray) {
+            $rem = $x -> copy();
+        }
+        if ($x -> is_zero()) {
+            $quo = $x -> bnan();
+        } else {
+            $quo = $x -> binf($x -> {sign});
+        }
+        return $wantarray ? ($quo, $rem) : $quo;
+    }
+
+    # Numerator (dividend) is +/-inf. This is handled the same way as in
+    # Math::BigInt -> bdiv(). See the comments in the code implementing that
+    # method.
+
+    if ($x -> is_inf()) {
+        my ($quo, $rem);
+        $rem = $self -> bnan() if $wantarray;
+        if ($y -> is_inf()) {
+            $quo = $x -> bnan();
+        } else {
+            my $sign = $x -> bcmp(0) == $y -> bcmp(0) ? '+' : '-';
+            $quo = $x -> binf($sign);
+        }
+        return $wantarray ? ($quo, $rem) : $quo;
+    }
+
+  # Denominator (divisor) is +/-inf. This is handled the same way as in
+  # Math::BigFloat -> bdiv(). See the comments in the code implementing that
+  # method.
+
+  if ($y -> is_inf()) {
+      my ($quo, $rem);
+      if ($wantarray) {
+          if ($x -> is_zero() || $x -> bcmp(0) == $y -> bcmp(0)) {
+              $rem = $x -> copy();
+              $quo = $x -> bzero();
+          } else {
+              $rem = $self -> binf($y -> {sign});
+              $quo = $x -> bone('-');
+          }
+          return ($quo, $rem);
+      } else {
+          if ($y -> is_inf()) {
+              if ($x -> is_nan() || $x -> is_inf()) {
+                  return $x -> bnan();
+              } else {
+                  return $x -> bzero();
+              }
+          }
+      }
+  }
+
+  # At this point, both the numerator and denominator are finite numbers, and
+  # the denominator (divisor) is non-zero.
+
+  # x == 0?
+  return wantarray ? ($x,$self->bzero()) : $x if $x->is_zero();
+
+  # XXX TODO: list context, upgrade
+  # According to Knuth, this can be optimized by doing gcd twice (for d and n)
+  # and reducing in one step. This would save us the bnorm() at the end.
+
+  # 1     1    1   3
+  # -  /  - == - * -
+  # 4     3    4   1
+
+  $x->{_n} = $MBI->_mul($x->{_n}, $y->{_d});
+  $x->{_d} = $MBI->_mul($x->{_d}, $y->{_n});
+
+  # compute new sign
+  $x->{sign} = $x->{sign} eq $y->{sign} ? '+' : '-';
+
+  $x -> bnorm();
+  if (wantarray) {
+      my $rem = $x -> copy();
+      $x -> bfloor();
+      $x -> round(@r);
+      $rem -> bsub($x -> copy()) -> bmul($y);
+      return $x, $rem;
+  } else {
+      $x -> round(@r);
+      return $x;
+  }
+  }
+
+sub bmod
+  {
+  # compute "remainder" (in Perl way) of $x / $y
+
+  # set up parameters
+  my ($self,$x,$y,@r) = (ref($_[0]),@_);
+  # objectify is costly, so avoid it
+  if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1])))
+    {
+    ($self,$x,$y,@r) = objectify(2,@_);
+    }
+
+  return $x if $x->modify('bmod');
+
+    # At least one argument is NaN. This is handled the same way as in
+    # Math::BigInt -> bmod().
+
+    if ($x -> is_nan() || $y -> is_nan()) {
+        return $x -> bnan();
+    }
+
+    # Modulo zero. This is handled the same way as in Math::BigInt -> bmod().
+
+    if ($y -> is_zero()) {
+        return $x;
+    }
+
+    # Numerator (dividend) is +/-inf. This is handled the same way as in
+    # Math::BigInt -> bmod().
+
+    if ($x -> is_inf()) {
+        return $x -> bnan();
+    }
+
+    # Denominator (divisor) is +/-inf. This is handled the same way as in
+    # Math::BigInt -> bmod().
+
+    if ($y -> is_inf()) {
+        if ($x -> is_zero() || $x -> bcmp(0) == $y -> bcmp(0)) {
+            return $x;
+        } else {
+            return $x -> binf($y -> sign());
+        }
+    }
+
+  # At this point, both the numerator and denominator are finite numbers, and
+  # the denominator (divisor) is non-zero.
+
+  return $x if $x->is_zero();           # 0 / 7 = 0, mod 0
+
+  # Compute $x - $y * floor($x/$y). This can probably be optimized by working
+  # on a lower level.
+
+  $x -> bsub($x -> copy() -> bdiv($y) -> bfloor() -> bmul($y));
+  return $x -> round(@r);
+  }
+
+##############################################################################
+# bdec/binc
+
+sub bdec
+  {
+  # decrement value (subtract 1)
+  my ($self,$x,@r) = ref($_[0]) ? (ref($_[0]),@_) : objectify(1,@_);
+
+  return $x if $x->{sign} !~ /^[+-]$/;	# NaN, inf, -inf
+
+  if ($x->{sign} eq '-')
+    {
+    $x->{_n} = $MBI->_add($x->{_n}, $x->{_d});		# -5/2 => -7/2
+    }
+  else
+    {
+    if ($MBI->_acmp($x->{_n},$x->{_d}) < 0)		# n < d?
+      {
+      # 1/3 -- => -2/3
+      $x->{_n} = $MBI->_sub($MBI->_copy($x->{_d}), $x->{_n});
+      $x->{sign} = '-';
+      }
+    else
+      {
+      $x->{_n} = $MBI->_sub($x->{_n}, $x->{_d}); 	# 5/2 => 3/2
+      }
+    }
+  $x->bnorm()->round(@r);
+  }
+
+sub binc
+  {
+  # increment value (add 1)
+  my ($self,$x,@r) = ref($_[0]) ? (ref($_[0]),@_) : objectify(1,@_);
+
+  return $x if $x->{sign} !~ /^[+-]$/;	# NaN, inf, -inf
+
+  if ($x->{sign} eq '-')
+    {
+    if ($MBI->_acmp($x->{_n},$x->{_d}) < 0)
+      {
+      # -1/3 ++ => 2/3 (overflow at 0)
+      $x->{_n} = $MBI->_sub($MBI->_copy($x->{_d}), $x->{_n});
+      $x->{sign} = '+';
+      }
+    else
+      {
+      $x->{_n} = $MBI->_sub($x->{_n}, $x->{_d}); 	# -5/2 => -3/2
+      }
+    }
+  else
+    {
+    $x->{_n} = $MBI->_add($x->{_n},$x->{_d});		# 5/2 => 7/2
+    }
+  $x->bnorm()->round(@r);
+  }
+
+##############################################################################
+# is_foo methods (the rest is inherited)
+
+sub is_int
+  {
+  # return true if arg (BRAT or num_str) is an integer
+  my ($self,$x) = ref($_[0]) ? (undef,$_[0]) : objectify(1,@_);
+
+  return 1 if ($x->{sign} =~ /^[+-]$/) &&	# NaN and +-inf aren't
+    $MBI->_is_one($x->{_d});			# x/y && y != 1 => no integer
+  0;
+  }
+
+sub is_zero
+  {
+  # return true if arg (BRAT or num_str) is zero
+  my ($self,$x) = ref($_[0]) ? (undef,$_[0]) : objectify(1,@_);
+
+  return 1 if $x->{sign} eq '+' && $MBI->_is_zero($x->{_n});
+  0;
+  }
+
+sub is_one
+  {
+  # return true if arg (BRAT or num_str) is +1 or -1 if signis given
+  my ($self,$x) = ref($_[0]) ? (undef,$_[0]) : objectify(1,@_);
+
+  my $sign = $_[2] || ''; $sign = '+' if $sign ne '-';
+  return 1
+   if ($x->{sign} eq $sign && $MBI->_is_one($x->{_n}) && $MBI->_is_one($x->{_d}));
+  0;
+  }
+
+sub is_odd
+  {
+  # return true if arg (BFLOAT or num_str) is odd or false if even
+  my ($self,$x) = ref($_[0]) ? (undef,$_[0]) : objectify(1,@_);
+
+  return 1 if ($x->{sign} =~ /^[+-]$/) &&		# NaN & +-inf aren't
+    ($MBI->_is_one($x->{_d}) && $MBI->_is_odd($x->{_n})); # x/2 is not, but 3/1
+  0;
+  }
+
+sub is_even
+  {
+  # return true if arg (BINT or num_str) is even or false if odd
+  my ($self,$x) = ref($_[0]) ? (undef,$_[0]) : objectify(1,@_);
+
+  return 0 if $x->{sign} !~ /^[+-]$/;			# NaN & +-inf aren't
+  return 1 if ($MBI->_is_one($x->{_d})			# x/3 is never
+     && $MBI->_is_even($x->{_n}));			# but 4/1 is
+  0;
+  }
+
+##############################################################################
+# parts() and friends
+
+sub numerator
+  {
+  my ($self,$x) = ref($_[0]) ? (ref($_[0]),$_[0]) : objectify(1,@_);
+
+  # NaN, inf, -inf
+  return Math::BigInt->new($x->{sign}) if ($x->{sign} !~ /^[+-]$/);
+
+  my $n = Math::BigInt->new($MBI->_str($x->{_n})); $n->{sign} = $x->{sign};
+  $n;
+  }
+
+sub denominator
+  {
+  my ($self,$x) = ref($_[0]) ? (ref($_[0]),$_[0]) : objectify(1,@_);
+
+  # NaN
+  return Math::BigInt->new($x->{sign}) if $x->{sign} eq 'NaN';
+  # inf, -inf
+  return Math::BigInt->bone() if $x->{sign} !~ /^[+-]$/;
+
+  Math::BigInt->new($MBI->_str($x->{_d}));
+  }
+
+sub parts
+  {
+  my ($self,$x) = ref($_[0]) ? (ref($_[0]),$_[0]) : objectify(1,@_);
+
+  my $c = 'Math::BigInt';
+
+  return ($c->bnan(),$c->bnan()) if $x->{sign} eq 'NaN';
+  return ($c->binf(),$c->binf()) if $x->{sign} eq '+inf';
+  return ($c->binf('-'),$c->binf()) if $x->{sign} eq '-inf';
+
+  my $n = $c->new($MBI->_str($x->{_n}));
+  $n->{sign} = $x->{sign};
+  my $d = $c->new($MBI->_str($x->{_d}));
+  ($n,$d);
+  }
+
+sub length
+  {
+  my ($self,$x) = ref($_[0]) ? (undef,$_[0]) : objectify(1,@_);
+
+  return $nan unless $x->is_int();
+  $MBI->_len($x->{_n});				# length(-123/1) => length(123)
+  }
+
+sub digit
+  {
+  my ($self,$x,$n) = ref($_[0]) ? (undef,$_[0],$_[1]) : objectify(1,@_);
+
+  return $nan unless $x->is_int();
+  $MBI->_digit($x->{_n},$n || 0);		# digit(-123/1,2) => digit(123,2)
+  }
+
+##############################################################################
+# special calc routines
+
+sub bceil
+  {
+  my ($self,$x) = ref($_[0]) ? (ref($_[0]),$_[0]) : objectify(1,@_);
+
+  return $x if $x->{sign} !~ /^[+-]$/ ||	# not for NaN, inf
+            $MBI->_is_one($x->{_d});		# 22/1 => 22, 0/1 => 0
+
+  $x->{_n} = $MBI->_div($x->{_n},$x->{_d});	# 22/7 => 3/1 w/ truncate
+  $x->{_d} = $MBI->_one();			# d => 1
+  $x->{_n} = $MBI->_inc($x->{_n})
+    if $x->{sign} eq '+';			# +22/7 => 4/1
+  $x->{sign} = '+' if $MBI->_is_zero($x->{_n});	# -0 => 0
+  $x;
+  }
+
+sub bfloor
+  {
+  my ($self,$x) = ref($_[0]) ? (ref($_[0]),$_[0]) : objectify(1,@_);
+
+  return $x if $x->{sign} !~ /^[+-]$/ ||	# not for NaN, inf
+            $MBI->_is_one($x->{_d});		# 22/1 => 22, 0/1 => 0
+
+  $x->{_n} = $MBI->_div($x->{_n},$x->{_d});	# 22/7 => 3/1 w/ truncate
+  $x->{_d} = $MBI->_one();			# d => 1
+  $x->{_n} = $MBI->_inc($x->{_n})
+    if $x->{sign} eq '-';			# -22/7 => -4/1
+  $x;
+  }
+
+sub bfac
+  {
+  my ($self,$x,@r) = ref($_[0]) ? (ref($_[0]),@_) : objectify(1,@_);
+
+  # if $x is not an integer
+  if (($x->{sign} ne '+') || (!$MBI->_is_one($x->{_d})))
+    {
+    return $x->bnan();
+    }
+
+  $x->{_n} = $MBI->_fac($x->{_n});
+  # since _d is 1, we don't need to reduce/norm the result
+  $x->round(@r);
+  }
+
+sub bpow
+  {
+  # power ($x ** $y)
+
+  # set up parameters
+  my ($self,$x,$y,@r) = (ref($_[0]),@_);
+  # objectify is costly, so avoid it
+  if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1])))
+    {
+    ($self,$x,$y,@r) = objectify(2,@_);
+    }
+
+  return $x if $x->{sign} =~ /^[+-]inf$/;       # -inf/+inf ** x
+  return $x->bnan() if $x->{sign} eq $nan || $y->{sign} eq $nan;
+  return $x->bone(@r) if $y->is_zero();
+  return $x->round(@r) if $x->is_one() || $y->is_one();
+
+  if ($x->{sign} eq '-' && $MBI->_is_one($x->{_n}) && $MBI->_is_one($x->{_d}))
+    {
+    # if $x == -1 and odd/even y => +1/-1
+    return $y->is_odd() ? $x->round(@r) : $x->babs()->round(@r);
+    # my Casio FX-5500L has a bug here: -1 ** 2 is -1, but -1 * -1 is 1;
+    }
+  # 1 ** -y => 1 / (1 ** |y|)
+  # so do test for negative $y after above's clause
+
+  return $x->round(@r) if $x->is_zero();  # 0**y => 0 (if not y <= 0)
+
+  # shortcut if y == 1/N (is then sqrt() respective broot())
+  if ($MBI->_is_one($y->{_n}))
+    {
+    return $x->bsqrt(@r) if $MBI->_is_two($y->{_d});	# 1/2 => sqrt
+    return $x->broot($MBI->_str($y->{_d}),@r);		# 1/N => root(N)
+    }
+
+  # shortcut y/1 (and/or x/1)
+  if ($MBI->_is_one($y->{_d}))
+    {
+    # shortcut for x/1 and y/1
+    if ($MBI->_is_one($x->{_d}))
+      {
+      $x->{_n} = $MBI->_pow($x->{_n},$y->{_n});		# x/1 ** y/1 => (x ** y)/1
+      if ($y->{sign} eq '-')
+        {
+        # 0.2 ** -3 => 1/(0.2 ** 3)
+        ($x->{_n},$x->{_d}) = ($x->{_d},$x->{_n});	# swap
+        }
+      # correct sign; + ** + => +
+      if ($x->{sign} eq '-')
+        {
+        # - * - => +, - * - * - => -
+        $x->{sign} = '+' if $MBI->_is_even($y->{_n});
+        }
+      return $x->round(@r);
+      }
+    # x/z ** y/1
+    $x->{_n} = $MBI->_pow($x->{_n},$y->{_n});		# 5/2 ** y/1 => 5 ** y / 2 ** y
+    $x->{_d} = $MBI->_pow($x->{_d},$y->{_n});
+    if ($y->{sign} eq '-')
+      {
+      # 0.2 ** -3 => 1/(0.2 ** 3)
+      ($x->{_n},$x->{_d}) = ($x->{_d},$x->{_n});	# swap
+      }
+    # correct sign; + ** + => +
+    if ($x->{sign} eq '-')
+      {
+      # - * - => +, - * - * - => -
+      $x->{sign} = '+' if $MBI->_is_even($y->{_n});
+      }
+    return $x->round(@r);
+    }
+
+#  print STDERR "# $x $y\n";
+
+  # otherwise:
+
+  #      n/d     n  ______________
+  # a/b       =  -\/  (a/b) ** d
+
+  # (a/b) ** n == (a ** n) / (b ** n)
+  $MBI->_pow($x->{_n}, $y->{_n});
+  $MBI->_pow($x->{_d}, $y->{_n});
+
+  return $x->broot($MBI->_str($y->{_d}),@r);		# n/d => root(n)
+  }
+
+sub blog
+  {
+  # Return the logarithm of the operand. If a second operand is defined, that
+  # value is used as the base, otherwise the base is assumed to be Euler's
+  # constant.
+
+  # Don't objectify the base, since an undefined base, as in $x->blog() or
+  # $x->blog(undef) signals that the base is Euler's number.
+
+  # set up parameters
+  my ($self,$x,$base,@r) = (ref($_[0]),@_);
+
+  # objectify is costly, so avoid it
+  if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1])))
+    {
+    ($self,$x,$base,@r) = objectify(1,$class,@_);
+    }
+
+  return $x if $x->modify('blog');
+
+  # Handle all exception cases and all trivial cases. I have used Wolfram Alpha
+  # (http://www.wolframalpha.com) as the reference for these cases.
+
+  return $x -> bnan() if $x -> is_nan();
+
+  if (defined $base) {
+      $base = $self -> new($base) unless ref $base;
+      if ($base -> is_nan() || $base -> is_one()) {
+          return $x -> bnan();
+      } elsif ($base -> is_inf() || $base -> is_zero()) {
+          return $x -> bnan() if $x -> is_inf() || $x -> is_zero();
+          return $x -> bzero();
+      } elsif ($base -> is_negative()) {            # -inf < base < 0
+          return $x -> bzero() if $x -> is_one();   #     x = 1
+          return $x -> bone()  if $x == $base;      #     x = base
+          return $x -> bnan();                      #     otherwise
+      }
+      return $x -> bone() if $x == $base;           # 0 < base && 0 < x < inf
+  }
+
+  # We now know that the base is either undefined or positive and finite.
+
+  if ($x -> is_inf()) {                 # x = +/-inf
+      my $sign = defined $base && $base < 1 ? '-' : '+';
+      return $x -> binf($sign);
+  } elsif ($x -> is_neg()) {            # -inf < x < 0
+      return $x -> bnan();
+  } elsif ($x -> is_one()) {            # x = 1
+      return $x -> bzero();
+  } elsif ($x -> is_zero()) {           # x = 0
+      my $sign = defined $base && $base < 1 ? '+' : '-';
+      return $x -> binf($sign);
+  }
+
+  # At this point we are done handling all exception cases and trivial cases.
+
+  # Do it with Math::BigFloats and convert back to Math::BigRat.
+  $base = $base -> _as_float() if defined $base;
+  $x -> _new_from_float($x -> _as_float() -> blog($base, @r));
+  }
+
+sub bexp
+  {
+  # set up parameters
+  my ($self,$x,$y,@r) = (ref($_[0]),@_);
+
+  # objectify is costly, so avoid it
+  if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1])))
+    {
+    ($self,$x,$y,@r) = objectify(2,$class,@_);
+    }
+
+  return $x->binf(@r) if $x->{sign} eq '+inf';
+  return $x->bzero(@r) if $x->{sign} eq '-inf';
+
+  # we need to limit the accuracy to protect against overflow
+  my $fallback = 0;
+  my ($scale,@params);
+  ($x,@params) = $x->_find_round_parameters(@r);
+
+  # also takes care of the "error in _find_round_parameters?" case
+  return $x if $x->{sign} eq 'NaN';
+
+  # no rounding at all, so must use fallback
+  if (scalar @params == 0)
+    {
+    # simulate old behaviour
+    $params[0] = $self->div_scale();	# and round to it as accuracy
+    $params[1] = undef;			# P = undef
+    $scale = $params[0]+4;		# at least four more for proper round
+    $params[2] = $r[2];			# round mode by caller or undef
+    $fallback = 1;			# to clear a/p afterwards
+    }
+  else
+    {
+    # the 4 below is empirical, and there might be cases where it's not enough...
+    $scale = abs($params[0] || $params[1]) + 4; # take whatever is defined
+    }
+
+  return $x->bone(@params) if $x->is_zero();
+
+  # See the comments in Math::BigFloat on how this algorithm works.
+  # Basically we calculate A and B (where B is faculty(N)) so that A/B = e
+
+  my $x_org = $x->copy();
+  if ($scale <= 75)
+    {
+    # set $x directly from a cached string form
+    $x->{_n} =
+        $MBI->_new("90933395208605785401971970164779391644753259799242");
+    $x->{_d} =
+        $MBI->_new("33452526613163807108170062053440751665152000000000");
+    $x->{sign} = '+';
+    }
+  else
+    {
+    # compute A and B so that e = A / B.
+
+    # After some terms we end up with this, so we use it as a starting point:
+    my $A = $MBI->_new("90933395208605785401971970164779391644753259799242");
+    my $F = $MBI->_new(42); my $step = 42;
+
+    # Compute how many steps we need to take to get $A and $B sufficiently big
+    my $steps = Math::BigFloat::_len_to_steps($scale - 4);
+#    print STDERR "# Doing $steps steps for ", $scale-4, " digits\n";
+    while ($step++ <= $steps)
+      {
+      # calculate $a * $f + 1
+      $A = $MBI->_mul($A, $F);
+      $A = $MBI->_inc($A);
+      # increment f
+      $F = $MBI->_inc($F);
+      }
+    # compute $B as factorial of $steps (this is faster than doing it manually)
+    my $B = $MBI->_fac($MBI->_new($steps));
+
+#  print "A ", $MBI->_str($A), "\nB ", $MBI->_str($B), "\n";
+
+    $x->{_n} = $A;
+    $x->{_d} = $B;
+    $x->{sign} = '+';
+    }
+
+  # $x contains now an estimate of e, with some surplus digits, so we can round
+  if (!$x_org->is_one())
+    {
+    # raise $x to the wanted power and round it in one step:
+    $x->bpow($x_org, @params);
+    }
+  else
+    {
+    # else just round the already computed result
+    delete $x->{_a}; delete $x->{_p};
+    # shortcut to not run through _find_round_parameters again
+    if (defined $params[0])
+      {
+      $x->bround($params[0],$params[2]);                # then round accordingly
+      }
+    else
+      {
+      $x->bfround($params[1],$params[2]);               # then round accordingly
+      }
+    }
+  if ($fallback)
+    {
+    # clear a/p after round, since user did not request it
+    delete $x->{_a}; delete $x->{_p};
+    }
+
+  $x;
+  }
+
+sub bnok
+  {
+  # set up parameters
+  my ($self,$x,$y,@r) = (ref($_[0]),@_);
+
+  # objectify is costly, so avoid it
+  if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1])))
+    {
+    ($self,$x,$y,@r) = objectify(2,$class,@_);
+    }
+
+  # do it with floats
+  $x->_new_from_float($x->_as_float()->bnok(Math::BigFloat->new("$y"),@r));
+  }
+
+sub _float_from_part
+  {
+  my $x = shift;
+
+  my $f = Math::BigFloat->bzero();
+  $f->{_m} = $MBI->_copy($x);
+  $f->{_e} = $MBI->_zero();
+
+  $f;
+  }
+
+sub _as_float
+  {
+  my $x = shift;
+
+  local $Math::BigFloat::upgrade = undef;
+  local $Math::BigFloat::accuracy = undef;
+  local $Math::BigFloat::precision = undef;
+  # 22/7 => 3.142857143..
+
+  my $a = $x->accuracy() || 0;
+  if ($a != 0 || !$MBI->_is_one($x->{_d}))
+    {
+    # n/d
+    return scalar Math::BigFloat->new($x->{sign} . $MBI->_str($x->{_n}))->bdiv($MBI->_str($x->{_d}), $x->accuracy());
+    }
+  # just n
+  Math::BigFloat->new($x->{sign} . $MBI->_str($x->{_n}));
+  }
+
+sub broot
+  {
+  # set up parameters
+  my ($self,$x,$y,@r) = (ref($_[0]),@_);
+  # objectify is costly, so avoid it
+  if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1])))
+    {
+    ($self,$x,$y,@r) = objectify(2,@_);
+    }
+
+  if ($x->is_int() && $y->is_int())
+    {
+    return $self->new($x->as_number()->broot($y->as_number(),@r));
+    }
+
+  # do it with floats
+  $x->_new_from_float($x->_as_float()->broot($y->_as_float(),@r))->bnorm()->bround(@r);
+  }
+
+sub bmodpow
+  {
+  # set up parameters
+  my ($self,$x,$y,$m,@r) = (ref($_[0]),@_);
+  # objectify is costly, so avoid it
+  if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1])))
+    {
+    ($self,$x,$y,$m,@r) = objectify(3,@_);
+    }
+
+  # $x or $y or $m are NaN or +-inf => NaN
+  return $x->bnan()
+   if $x->{sign} !~ /^[+-]$/ || $y->{sign} !~ /^[+-]$/ ||
+   $m->{sign} !~ /^[+-]$/;
+
+  if ($x->is_int() && $y->is_int() && $m->is_int())
+    {
+    return $self->new($x->as_number()->bmodpow($y->as_number(),$m,@r));
+    }
+
+  warn ("bmodpow() not fully implemented");
+  $x->bnan();
+  }
+
+sub bmodinv
+  {
+  # set up parameters
+  my ($self,$x,$y,@r) = (ref($_[0]),@_);
+  # objectify is costly, so avoid it
+  if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1])))
+    {
+    ($self,$x,$y,@r) = objectify(2,@_);
+    }
+
+  # $x or $y are NaN or +-inf => NaN
+  return $x->bnan()
+   if $x->{sign} !~ /^[+-]$/ || $y->{sign} !~ /^[+-]$/;
+
+  if ($x->is_int() && $y->is_int())
+    {
+    return $self->new($x->as_number()->bmodinv($y->as_number(),@r));
+    }
+
+  warn ("bmodinv() not fully implemented");
+  $x->bnan();
+  }
+
+sub bsqrt
+  {
+  my ($self,$x,@r) = ref($_[0]) ? (ref($_[0]),@_) : objectify(1,@_);
+
+  return $x->bnan() if $x->{sign} !~ /^[+]/;    # NaN, -inf or < 0
+  return $x if $x->{sign} eq '+inf';            # sqrt(inf) == inf
+  return $x->round(@r) if $x->is_zero() || $x->is_one();
+
+  local $Math::BigFloat::upgrade = undef;
+  local $Math::BigFloat::downgrade = undef;
+  local $Math::BigFloat::precision = undef;
+  local $Math::BigFloat::accuracy = undef;
+  local $Math::BigInt::upgrade = undef;
+  local $Math::BigInt::precision = undef;
+  local $Math::BigInt::accuracy = undef;
+
+  $x->{_n} = _float_from_part($x->{_n})->bsqrt();
+  $x->{_d} = _float_from_part($x->{_d})->bsqrt();
+
+  # XXX TODO: we probably can optimize this:
+
+  # if sqrt(D) was not integer
+  if ($x->{_d}->{_es} ne '+')
+    {
+    $x->{_n}->blsft($x->{_d}->exponent()->babs(),10);	# 7.1/4.51 => 7.1/45.1
+    $x->{_d} = $MBI->_copy($x->{_d}->{_m});		# 7.1/45.1 => 71/45.1
+    }
+  # if sqrt(N) was not integer
+  if ($x->{_n}->{_es} ne '+')
+    {
+    $x->{_d}->blsft($x->{_n}->exponent()->babs(),10);	# 71/45.1 => 710/45.1
+    $x->{_n} = $MBI->_copy($x->{_n}->{_m});		# 710/45.1 => 710/451
+    }
+
+  # convert parts to $MBI again
+  $x->{_n} = $MBI->_lsft($MBI->_copy($x->{_n}->{_m}), $x->{_n}->{_e}, 10)
+    if ref($x->{_n}) ne $MBI && ref($x->{_n}) ne 'ARRAY';
+  $x->{_d} = $MBI->_lsft($MBI->_copy($x->{_d}->{_m}), $x->{_d}->{_e}, 10)
+    if ref($x->{_d}) ne $MBI && ref($x->{_d}) ne 'ARRAY';
+
+  $x->bnorm()->round(@r);
+  }
+
+sub blsft
+  {
+  my ($self,$x,$y,$b,@r) = objectify(3,@_);
+
+  $b = 2 unless defined $b;
+  $b = $self->new($b) unless ref ($b);
+  $x->bmul($b->copy()->bpow($y), @r);
+  $x;
+  }
+
+sub brsft
+  {
+  my ($self,$x,$y,$b,@r) = objectify(3,@_);
+
+  $b = 2 unless defined $b;
+  $b = $self->new($b) unless ref ($b);
+  $x->bdiv($b->copy()->bpow($y), @r);
+  $x;
+  }
+
+##############################################################################
+# round
+
+sub round
+  {
+  $_[0];
+  }
+
+sub bround
+  {
+  $_[0];
+  }
+
+sub bfround
+  {
+  $_[0];
+  }
+
+##############################################################################
+# comparing
+
+sub bcmp
+  {
+  # compare two signed numbers
+
+  # set up parameters
+  my ($self,$x,$y) = (ref($_[0]),@_);
+  # objectify is costly, so avoid it
+  if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1])))
+    {
+    ($self,$x,$y) = objectify(2,@_);
+    }
+
+  if (($x->{sign} !~ /^[+-]$/) || ($y->{sign} !~ /^[+-]$/))
+    {
+    # handle +-inf and NaN
+    return undef if (($x->{sign} eq $nan) || ($y->{sign} eq $nan));
+    return 0 if $x->{sign} eq $y->{sign} && $x->{sign} =~ /^[+-]inf$/;
+    return +1 if $x->{sign} eq '+inf';
+    return -1 if $x->{sign} eq '-inf';
+    return -1 if $y->{sign} eq '+inf';
+    return +1;
+    }
+  # check sign for speed first
+  return 1 if $x->{sign} eq '+' && $y->{sign} eq '-';   # does also 0 <=> -y
+  return -1 if $x->{sign} eq '-' && $y->{sign} eq '+';  # does also -x <=> 0
+
+  # shortcut
+  my $xz = $MBI->_is_zero($x->{_n});
+  my $yz = $MBI->_is_zero($y->{_n});
+  return 0 if $xz && $yz;                               # 0 <=> 0
+  return -1 if $xz && $y->{sign} eq '+';                # 0 <=> +y
+  return 1 if $yz && $x->{sign} eq '+';                 # +x <=> 0
+
+  my $t = $MBI->_mul($MBI->_copy($x->{_n}), $y->{_d});
+  my $u = $MBI->_mul($MBI->_copy($y->{_n}), $x->{_d});
+
+  my $cmp = $MBI->_acmp($t,$u);				# signs are equal
+  $cmp = -$cmp if $x->{sign} eq '-';			# both are '-' => reverse
+  $cmp;
+  }
+
+sub bacmp
+  {
+  # compare two numbers (as unsigned)
+
+  # set up parameters
+  my ($self,$x,$y) = (ref($_[0]),@_);
+  # objectify is costly, so avoid it
+  if ((!ref($_[0])) || (ref($_[0]) ne ref($_[1])))
+    {
+    ($self,$x,$y) = objectify(2,$class,@_);
+    }
+
+  if (($x->{sign} !~ /^[+-]$/) || ($y->{sign} !~ /^[+-]$/))
+    {
+    # handle +-inf and NaN
+    return undef if (($x->{sign} eq $nan) || ($y->{sign} eq $nan));
+    return 0 if $x->{sign} =~ /^[+-]inf$/ && $y->{sign} =~ /^[+-]inf$/;
+    return 1 if $x->{sign} =~ /^[+-]inf$/ && $y->{sign} !~ /^[+-]inf$/;
+    return -1;
+    }
+
+  my $t = $MBI->_mul($MBI->_copy($x->{_n}), $y->{_d});
+  my $u = $MBI->_mul($MBI->_copy($y->{_n}), $x->{_d});
+  $MBI->_acmp($t,$u);					# ignore signs
+  }
+
+##############################################################################
+# output conversation
+
+sub numify
+  {
+  # convert 17/8 => float (aka 2.125)
+  my ($self,$x) = ref($_[0]) ? (undef,$_[0]) : objectify(1,@_);
+
+  return $x->bstr() if $x->{sign} !~ /^[+-]$/;	# inf, NaN, etc
+
+  # N/1 => N
+  my $neg = ''; $neg = '-' if $x->{sign} eq '-';
+  return $neg . $MBI->_num($x->{_n}) if $MBI->_is_one($x->{_d});
+
+  $x->_as_float()->numify() + 0.0;
+  }
+
+sub as_number
+  {
+  my ($self,$x) = ref($_[0]) ? (undef,$_[0]) : objectify(1,@_);
+
+  # NaN, inf etc
+  return Math::BigInt->new($x->{sign}) if $x->{sign} !~ /^[+-]$/;
+
+  my $u = Math::BigInt->bzero();
+  $u->{value} = $MBI->_div($MBI->_copy($x->{_n}), $x->{_d});	# 22/7 => 3
+  $u->bneg if $x->{sign} eq '-'; # no negative zero
+  $u;
+  }
+
+sub as_float
+  {
+  # return N/D as Math::BigFloat
+
+  # set up parameters
+  my ($self,$x,@r) = (ref($_[0]),@_);
+  # objectify is costly, so avoid it
+  ($self,$x,@r) = objectify(1,$class,@_) unless ref $_[0];
+
+  # NaN, inf etc
+  return Math::BigFloat->new($x->{sign}) if $x->{sign} !~ /^[+-]$/;
+
+  my $u = Math::BigFloat->bzero();
+  $u->{sign} = $x->{sign};
+  # n
+  $u->{_m} = $MBI->_copy($x->{_n});
+  $u->{_e} = $MBI->_zero();
+  $u->bdiv($MBI->_str($x->{_d}), @r);
+  # return $u
+  $u;
+  }
+
+sub as_bin
+  {
+  my ($self,$x) = ref($_[0]) ? (undef,$_[0]) : objectify(1,@_);
+
+  return $x unless $x->is_int();
+
+  my $s = $x->{sign}; $s = '' if $s eq '+';
+  $s . $MBI->_as_bin($x->{_n});
+  }
+
+sub as_hex
+  {
+  my ($self,$x) = ref($_[0]) ? (undef,$_[0]) : objectify(1,@_);
+
+  return $x unless $x->is_int();
+
+  my $s = $x->{sign}; $s = '' if $s eq '+';
+  $s . $MBI->_as_hex($x->{_n});
+  }
+
+sub as_oct
+  {
+  my ($self,$x) = ref($_[0]) ? (undef,$_[0]) : objectify(1,@_);
+
+  return $x unless $x->is_int();
+
+  my $s = $x->{sign}; $s = '' if $s eq '+';
+  $s . $MBI->_as_oct($x->{_n});
+  }
+
+##############################################################################
+
+sub from_hex
+  {
+  my $class = shift;
+
+  $class->new(@_);
+  }
+
+sub from_bin
+  {
+  my $class = shift;
+
+  $class->new(@_);
+  }
+
+sub from_oct
+  {
+  my $class = shift;
+
+  my @parts;
+  for my $c (@_)
+    {
+    push @parts, Math::BigInt->from_oct($c);
+    }
+  $class->new (@parts);
+  }
+
+##############################################################################
+# import
+
+sub import
+  {
+  my $self = shift;
+  my $l = scalar @_;
+  my $lib = ''; my @a;
+  my $try = 'try';
+
+  for (my $i = 0; $i < $l ; $i++)
+    {
+    if ($_[$i] eq ':constant')
+      {
+      # this rest causes overlord er load to step in
+      overload::constant float => sub { $self->new(shift); };
+      }
+#    elsif ($_[$i] eq 'upgrade')
+#      {
+#     # this causes upgrading
+#      $upgrade = $_[$i+1];		# or undef to disable
+#      $i++;
+#      }
+    elsif ($_[$i] eq 'downgrade')
+      {
+      # this causes downgrading
+      $downgrade = $_[$i+1];		# or undef to disable
+      $i++;
+      }
+    elsif ($_[$i] =~ /^(lib|try|only)\z/)
+      {
+      $lib = $_[$i+1] || '';		# default Calc
+      $try = $1;			# lib, try or only
+      $i++;
+      }
+    elsif ($_[$i] eq 'with')
+      {
+      # this argument is no longer used
+      #$MBI = $_[$i+1] || 'Math::BigInt::Calc';	# default Math::BigInt::Calc
+      $i++;
+      }
+    else
+      {
+      push @a, $_[$i];
+      }
+    }
+  require Math::BigInt;
+
+  # let use Math::BigInt lib => 'GMP'; use Math::BigRat; still have GMP
+  if ($lib ne '')
+    {
+    my @c = split /\s*,\s*/, $lib;
+    foreach (@c)
+      {
+      $_ =~ tr/a-zA-Z0-9://cd;                    # limit to sane characters
+      }
+    $lib = join(",", @c);
+    }
+  my @import = ('objectify');
+  push @import, $try => $lib if $lib ne '';
+
+  # MBI already loaded, so feed it our lib arguments
+  Math::BigInt->import(@import);
+
+  $MBI = Math::BigFloat->config()->{lib};
+
+  # register us with MBI to get notified of future lib changes
+  Math::BigInt::_register_callback($self, sub { $MBI = $_[0]; });
+
+  # any non :constant stuff is handled by our parent, Exporter (loaded
+  # by Math::BigFloat, even if @_ is empty, to give it a chance
+  $self->SUPER::import(@a);             # for subclasses
+  $self->export_to_level(1,$self,@a);   # need this, too
+  }
+
+1;
+
+__END__
+
+=pod
+
+=head1 NAME
+
+Math::BigRat - Arbitrary big rational numbers
+
+=head1 SYNOPSIS
+
+	use Math::BigRat;
+
+	my $x = Math::BigRat->new('3/7'); $x += '5/9';
+
+	print $x->bstr(),"\n";
+	print $x ** 2,"\n";
+
+	my $y = Math::BigRat->new('inf');
+	print "$y ", ($y->is_inf ? 'is' : 'is not') , " infinity\n";
+
+	my $z = Math::BigRat->new(144); $z->bsqrt();
+
+=head1 DESCRIPTION
+
+Math::BigRat complements Math::BigInt and Math::BigFloat by providing support
+for arbitrary big rational numbers.
+
+=head2 MATH LIBRARY
+
+You can change the underlying module that does the low-level
+math operations by using:
+
+	use Math::BigRat try => 'GMP';
+
+Note: This needs Math::BigInt::GMP installed.
+
+The following would first try to find Math::BigInt::Foo, then
+Math::BigInt::Bar, and when this also fails, revert to Math::BigInt::Calc:
+
+	use Math::BigRat try => 'Foo,Math::BigInt::Bar';
+
+If you want to get warned when the fallback occurs, replace "try" with
+"lib":
+
+	use Math::BigRat lib => 'Foo,Math::BigInt::Bar';
+
+If you want the code to die instead, replace "try" with
+"only":
+
+	use Math::BigRat only => 'Foo,Math::BigInt::Bar';
+
+=head1 METHODS
+
+Any methods not listed here are derived from Math::BigFloat (or
+Math::BigInt), so make sure you check these two modules for further
+information.
+
+=head2 new()
+
+	$x = Math::BigRat->new('1/3');
+
+Create a new Math::BigRat object. Input can come in various forms:
+
+	$x = Math::BigRat->new(123);				# scalars
+	$x = Math::BigRat->new('inf');				# infinity
+	$x = Math::BigRat->new('123.3');			# float
+	$x = Math::BigRat->new('1/3');				# simple string
+	$x = Math::BigRat->new('1 / 3');			# spaced
+	$x = Math::BigRat->new('1 / 0.1');			# w/ floats
+	$x = Math::BigRat->new(Math::BigInt->new(3));		# BigInt
+	$x = Math::BigRat->new(Math::BigFloat->new('3.1'));	# BigFloat
+	$x = Math::BigRat->new(Math::BigInt::Lite->new('2'));	# BigLite
+
+	# You can also give D and N as different objects:
+	$x = Math::BigRat->new(
+		Math::BigInt->new(-123),
+		Math::BigInt->new(7),
+		);			# => -123/7
+
+=head2 numerator()
+
+	$n = $x->numerator();
+
+Returns a copy of the numerator (the part above the line) as signed BigInt.
+
+=head2 denominator()
+
+	$d = $x->denominator();
+
+Returns a copy of the denominator (the part under the line) as positive BigInt.
+
+=head2 parts()
+
+	($n,$d) = $x->parts();
+
+Return a list consisting of (signed) numerator and (unsigned) denominator as
+BigInts.
+
+=head2 numify()
+
+	my $y = $x->numify();
+
+Returns the object as a scalar. This will lose some data if the object
+cannot be represented by a normal Perl scalar (integer or float), so
+use L<as_int()|/as_int()E<sol>as_number()> or L</as_float()> instead.
+
+This routine is automatically used whenever a scalar is required:
+
+	my $x = Math::BigRat->new('3/1');
+	@array = (0,1,2,3);
+	$y = $array[$x];		# set $y to 3
+
+=head2 as_int()/as_number()
+
+	$x = Math::BigRat->new('13/7');
+	print $x->as_int(),"\n";		# '1'
+
+Returns a copy of the object as BigInt, truncated to an integer.
+
+C<as_number()> is an alias for C<as_int()>.
+
+=head2 as_float()
+
+	$x = Math::BigRat->new('13/7');
+	print $x->as_float(),"\n";		# '1'
+
+	$x = Math::BigRat->new('2/3');
+	print $x->as_float(5),"\n";		# '0.66667'
+
+Returns a copy of the object as BigFloat, preserving the
+accuracy as wanted, or the default of 40 digits.
+
+This method was added in v0.22 of Math::BigRat (April 2008).
+
+=head2 as_hex()
+
+	$x = Math::BigRat->new('13');
+	print $x->as_hex(),"\n";		# '0xd'
+
+Returns the BigRat as hexadecimal string. Works only for integers.
+
+=head2 as_bin()
+
+	$x = Math::BigRat->new('13');
+	print $x->as_bin(),"\n";		# '0x1101'
+
+Returns the BigRat as binary string. Works only for integers.
+
+=head2 as_oct()
+
+	$x = Math::BigRat->new('13');
+	print $x->as_oct(),"\n";		# '015'
+
+Returns the BigRat as octal string. Works only for integers.
+
+=head2 from_hex()/from_bin()/from_oct()
+
+	my $h = Math::BigRat->from_hex('0x10');
+	my $b = Math::BigRat->from_bin('0b10000000');
+	my $o = Math::BigRat->from_oct('020');
+
+Create a BigRat from an hexadecimal, binary or octal number
+in string form.
+
+=head2 length()
+
+	$len = $x->length();
+
+Return the length of $x in digits for integer values.
+
+=head2 digit()
+
+	print Math::BigRat->new('123/1')->digit(1);	# 1
+	print Math::BigRat->new('123/1')->digit(-1);	# 3
+
+Return the N'ths digit from X when X is an integer value.
+
+=head2 bnorm()
+
+	$x->bnorm();
+
+Reduce the number to the shortest form. This routine is called
+automatically whenever it is needed.
+
+=head2 bfac()
+
+	$x->bfac();
+
+Calculates the factorial of $x. For instance:
+
+	print Math::BigRat->new('3/1')->bfac(),"\n";	# 1*2*3
+	print Math::BigRat->new('5/1')->bfac(),"\n";	# 1*2*3*4*5
+
+Works currently only for integers.
+
+=head2 bround()/round()/bfround()
+
+Are not yet implemented.
+
+=head2 bmod()
+
+	$x->bmod($y);
+
+Returns $x modulo $y. When $x is finite, and $y is finite and non-zero, the
+result is identical to the remainder after floored division (F-division). If,
+in addition, both $x and $y are integers, the result is identical to the result
+from Perl's % operator.
+
+=head2 bneg()
+
+	$x->bneg();
+
+Used to negate the object in-place.
+
+=head2 is_one()
+
+	print "$x is 1\n" if $x->is_one();
+
+Return true if $x is exactly one, otherwise false.
+
+=head2 is_zero()
+
+	print "$x is 0\n" if $x->is_zero();
+
+Return true if $x is exactly zero, otherwise false.
+
+=head2 is_pos()/is_positive()
+
+	print "$x is >= 0\n" if $x->is_positive();
+
+Return true if $x is positive (greater than or equal to zero), otherwise
+false. Please note that '+inf' is also positive, while 'NaN' and '-inf' aren't.
+
+C<is_positive()> is an alias for C<is_pos()>.
+
+=head2 is_neg()/is_negative()
+
+	print "$x is < 0\n" if $x->is_negative();
+
+Return true if $x is negative (smaller than zero), otherwise false. Please
+note that '-inf' is also negative, while 'NaN' and '+inf' aren't.
+
+C<is_negative()> is an alias for C<is_neg()>.
+
+=head2 is_int()
+
+	print "$x is an integer\n" if $x->is_int();
+
+Return true if $x has a denominator of 1 (e.g. no fraction parts), otherwise
+false. Please note that '-inf', 'inf' and 'NaN' aren't integer.
+
+=head2 is_odd()
+
+	print "$x is odd\n" if $x->is_odd();
+
+Return true if $x is odd, otherwise false.
+
+=head2 is_even()
+
+	print "$x is even\n" if $x->is_even();
+
+Return true if $x is even, otherwise false.
+
+=head2 bceil()
+
+	$x->bceil();
+
+Set $x to the next bigger integer value (e.g. truncate the number to integer
+and then increment it by one).
+
+=head2 bfloor()
+
+	$x->bfloor();
+
+Truncate $x to an integer value.
+
+=head2 bsqrt()
+
+	$x->bsqrt();
+
+Calculate the square root of $x.
+
+=head2 broot()
+
+	$x->broot($n);
+
+Calculate the N'th root of $x.
+
+=head2 badd()
+
+        $x->badd($y);
+
+Adds $y to $x and returns the result.
+
+=head2 bmul()
+
+        $x->bmul($y);
+
+Multiplies $y to $x and returns the result.
+
+=head2 bsub()
+
+        $x->bsub($y);
+
+Subtracts $y from $x and returns the result.
+
+=head2 bdiv()
+
+        $q = $x->bdiv($y);
+        ($q, $r) = $x->bdiv($y);
+
+In scalar context, divides $x by $y and returns the result. In list context,
+does floored division (F-division), returning an integer $q and a remainder $r
+so that $x = $q * $y + $r. The remainer (modulo) is equal to what is returned
+by C<$x->bmod($y)>.
+
+=head2 bdec()
+
+        $x->bdec();
+
+Decrements $x by 1 and returns the result.
+
+=head2 binc()
+
+        $x->binc();
+
+Increments $x by 1 and returns the result.
+
+=head2 copy()
+
+	my $z = $x->copy();
+
+Makes a deep copy of the object.
+
+Please see the documentation in L<Math::BigInt> for further details.
+
+=head2 bstr()/bsstr()
+
+	my $x = Math::BigInt->new('8/4');
+	print $x->bstr(),"\n";			# prints 1/2
+	print $x->bsstr(),"\n";			# prints 1/2
+
+Return a string representing this object.
+
+=head2 bacmp()/bcmp()
+
+Used to compare numbers.
+
+Please see the documentation in L<Math::BigInt> for further details.
+
+=head2 blsft()/brsft()
+
+Used to shift numbers left/right.
+
+Please see the documentation in L<Math::BigInt> for further details.
+
+=head2 bpow()
+
+	$x->bpow($y);
+
+Compute $x ** $y.
+
+Please see the documentation in L<Math::BigInt> for further details.
+
+=head2 bexp()
+
+	$x->bexp($accuracy);		# calculate e ** X
+
+Calculates two integers A and B so that A/B is equal to C<e ** $x>, where C<e> is
+Euler's number.
+
+This method was added in v0.20 of Math::BigRat (May 2007).
+
+See also C<blog()>.
+
+=head2 bnok()
+
+	$x->bnok($y);		   # x over y (binomial coefficient n over k)
+
+Calculates the binomial coefficient n over k, also called the "choose"
+function. The result is equivalent to:
+
+	( n )      n!
+	| - |  = -------
+	( k )    k!(n-k)!
+
+This method was added in v0.20 of Math::BigRat (May 2007).
+
+=head2 config()
+
+        use Data::Dumper;
+
+        print Dumper ( Math::BigRat->config() );
+        print Math::BigRat->config()->{lib},"\n";
+
+Returns a hash containing the configuration, e.g. the version number, lib
+loaded etc. The following hash keys are currently filled in with the
+appropriate information.
+
+        key             RO/RW   Description
+                                Example
+        ============================================================
+        lib             RO      Name of the Math library
+                                Math::BigInt::Calc
+        lib_version     RO      Version of 'lib'
+                                0.30
+        class           RO      The class of config you just called
+                                Math::BigRat
+        version         RO      version number of the class you used
+                                0.10
+        upgrade         RW      To which class numbers are upgraded
+                                undef
+        downgrade       RW      To which class numbers are downgraded
+                                undef
+        precision       RW      Global precision
+                                undef
+        accuracy        RW      Global accuracy
+                                undef
+        round_mode      RW      Global round mode
+                                even
+        div_scale       RW      Fallback accuracy for div
+                                40
+        trap_nan        RW      Trap creation of NaN (undef = no)
+                                undef
+        trap_inf        RW      Trap creation of +inf/-inf (undef = no)
+                                undef
+
+By passing a reference to a hash you may set the configuration values. This
+works only for values that a marked with a C<RW> above, anything else is
+read-only.
+
+=head2 objectify()
+
+This is an internal routine that turns scalars into objects.
+
+=head1 BUGS
+
+Please report any bugs or feature requests to
+C<bug-math-bigrat at rt.cpan.org>, or through the web interface at
+L<https://rt.cpan.org/Ticket/Create.html?Queue=Math-BigRat>
+(requires login).
+We will be notified, and then you'll automatically be notified of progress on
+your bug as I make changes.
+
+=head1 SUPPORT
+
+You can find documentation for this module with the perldoc command.
+
+    perldoc Math::BigRat
+
+You can also look for information at:
+
+=over 4
+
+=item * RT: CPAN's request tracker
+
+L<https://rt.cpan.org/Public/Dist/Display.html?Name=Math-BigRat>
+
+=item * AnnoCPAN: Annotated CPAN documentation
+
+L<http://annocpan.org/dist/Math-BigRat>
+
+=item * CPAN Ratings
+
+L<http://cpanratings.perl.org/dist/Math-BigRat>
+
+=item * Search CPAN
+
+L<http://search.cpan.org/dist/Math-BigRat/>
+
+=item * CPAN Testers Matrix
+
+L<http://matrix.cpantesters.org/?dist=Math-BigRat>
+
+=item * The Bignum mailing list
+
+=over 4
+
+=item * Post to mailing list
+
+C<bignum at lists.scsys.co.uk>
+
+=item * View mailing list
+
+L<http://lists.scsys.co.uk/pipermail/bignum/>
+
+=item * Subscribe/Unsubscribe
+
+L<http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/bignum>
+
+=back
+
+=back
+
+=head1 LICENSE
+
+This program is free software; you may redistribute it and/or modify it under
+the same terms as Perl itself.
+
+=head1 SEE ALSO
+
+L<bigrat>, L<Math::BigFloat> and L<Math::BigInt> as well as the backends
+L<Math::BigInt::FastCalc>, L<Math::BigInt::GMP>, and L<Math::BigInt::Pari>.
+
+=head1 AUTHORS
+
+(C) by Tels L<http://bloodgate.com/> 2001 - 2009.
+
+Currently maintained by Peter John Acklam <pjacklam@online.no>.
+
+=cut
diff --git a/lib/5.24.1/Math/Complex.pm b/lib/5.24.1/Math/Complex.pm
new file mode 100644
index 00000000..19fb1648
--- /dev/null
+++ b/lib/5.24.1/Math/Complex.pm
@@ -0,0 +1,2112 @@
+#
+# Complex numbers and associated mathematical functions
+# -- Raphael Manfredi	Since Sep 1996
+# -- Jarkko Hietaniemi	Since Mar 1997
+# -- Daniel S. Lewart	Since Sep 1997
+#
+
+package Math::Complex;
+
+{ use 5.006; }
+use strict;
+
+our $VERSION = 1.59;
+
+use Config;
+
+our($Inf, $ExpInf);
+BEGIN {
+    my %DBL_MAX =
+	(
+	  4  => '1.70141183460469229e+38',
+	  8  => '1.7976931348623157e+308',
+	 # AFAICT the 10, 12, and 16-byte long doubles
+	 # all have the same maximum.
+	 10 => '1.1897314953572317650857593266280070162E+4932',
+	 12 => '1.1897314953572317650857593266280070162E+4932',
+	 16 => '1.1897314953572317650857593266280070162E+4932',
+	);
+    my $nvsize = $Config{nvsize} ||
+	        ($Config{uselongdouble} && $Config{longdblsize}) ||
+                 $Config{doublesize};
+    die "Math::Complex: Could not figure out nvsize\n"
+	unless defined $nvsize;
+    die "Math::Complex: Cannot not figure out max nv (nvsize = $nvsize)\n"
+	unless defined $DBL_MAX{$nvsize};
+    my $DBL_MAX = eval $DBL_MAX{$nvsize};
+    die "Math::Complex: Could not figure out max nv (nvsize = $nvsize)\n"
+	unless defined $DBL_MAX;
+    my $BIGGER_THAN_THIS = 1e30;  # Must find something bigger than this.
+    if ($^O eq 'unicosmk') {
+	$Inf = $DBL_MAX;
+    } else {
+	local $SIG{FPE} = { };
+        local $!;
+	# We do want an arithmetic overflow, Inf INF inf Infinity.
+	for my $t (
+	    'exp(99999)',  # Enough even with 128-bit long doubles.
+	    'inf',
+	    'Inf',
+	    'INF',
+	    'infinity',
+	    'Infinity',
+	    'INFINITY',
+	    '1e99999',
+	    ) {
+	    local $^W = 0;
+	    my $i = eval "$t+1.0";
+	    if (defined $i && $i > $BIGGER_THAN_THIS) {
+		$Inf = $i;
+		last;
+	    }
+	}
+	$Inf = $DBL_MAX unless defined $Inf;  # Oh well, close enough.
+	die "Math::Complex: Could not get Infinity"
+	    unless $Inf > $BIGGER_THAN_THIS;
+	$ExpInf = exp(99999);
+    }
+    # print "# On this machine, Inf = '$Inf'\n";
+}
+
+use Scalar::Util qw(set_prototype);
+
+use warnings;
+no warnings 'syntax';  # To avoid the (_) warnings.
+
+BEGIN {
+    # For certain functions that we override, in 5.10 or better
+    # we can set a smarter prototype that will handle the lexical $_
+    # (also a 5.10+ feature).
+    if ($] >= 5.010000) {
+        set_prototype \&abs, '_';
+        set_prototype \&cos, '_';
+        set_prototype \&exp, '_';
+        set_prototype \&log, '_';
+        set_prototype \&sin, '_';
+        set_prototype \&sqrt, '_';
+    }
+}
+
+my $i;
+my %LOGN;
+
+# Regular expression for floating point numbers.
+# These days we could use Scalar::Util::lln(), I guess.
+my $gre = qr'\s*([\+\-]?(?:(?:(?:\d+(?:_\d+)*(?:\.\d*(?:_\d+)*)?|\.\d+(?:_\d+)*)(?:[eE][\+\-]?\d+(?:_\d+)*)?))|inf)'i;
+
+require Exporter;
+
+our @ISA = qw(Exporter);
+
+my @trig = qw(
+	      pi
+	      tan
+	      csc cosec sec cot cotan
+	      asin acos atan
+	      acsc acosec asec acot acotan
+	      sinh cosh tanh
+	      csch cosech sech coth cotanh
+	      asinh acosh atanh
+	      acsch acosech asech acoth acotanh
+	     );
+
+our @EXPORT = (qw(
+	     i Re Im rho theta arg
+	     sqrt log ln
+	     log10 logn cbrt root
+	     cplx cplxe
+	     atan2
+	     ),
+	   @trig);
+
+my @pi = qw(pi pi2 pi4 pip2 pip4 Inf);
+
+our @EXPORT_OK = @pi;
+
+our %EXPORT_TAGS = (
+    'trig' => [@trig],
+    'pi' => [@pi],
+);
+
+use overload
+	'='	=> \&_copy,
+	'+='	=> \&_plus,
+	'+'	=> \&_plus,
+	'-='	=> \&_minus,
+	'-'	=> \&_minus,
+	'*='	=> \&_multiply,
+	'*'	=> \&_multiply,
+	'/='	=> \&_divide,
+	'/'	=> \&_divide,
+	'**='	=> \&_power,
+	'**'	=> \&_power,
+	'=='	=> \&_numeq,
+	'<=>'	=> \&_spaceship,
+	'neg'	=> \&_negate,
+	'~'	=> \&_conjugate,
+	'abs'	=> \&abs,
+	'sqrt'	=> \&sqrt,
+	'exp'	=> \&exp,
+	'log'	=> \&log,
+	'sin'	=> \&sin,
+	'cos'	=> \&cos,
+	'atan2'	=> \&atan2,
+        '""'    => \&_stringify;
+
+#
+# Package "privates"
+#
+
+my %DISPLAY_FORMAT = ('style' => 'cartesian',
+		      'polar_pretty_print' => 1);
+my $eps            = 1e-14;		# Epsilon
+
+#
+# Object attributes (internal):
+#	cartesian	[real, imaginary] -- cartesian form
+#	polar		[rho, theta] -- polar form
+#	c_dirty		cartesian form not up-to-date
+#	p_dirty		polar form not up-to-date
+#	display		display format (package's global when not set)
+#
+
+# Die on bad *make() arguments.
+
+sub _cannot_make {
+    die "@{[(caller(1))[3]]}: Cannot take $_[0] of '$_[1]'.\n";
+}
+
+sub _make {
+    my $arg = shift;
+    my ($p, $q);
+
+    if ($arg =~ /^$gre$/) {
+	($p, $q) = ($1, 0);
+    } elsif ($arg =~ /^(?:$gre)?$gre\s*i\s*$/) {
+	($p, $q) = ($1 || 0, $2);
+    } elsif ($arg =~ /^\s*\(\s*$gre\s*(?:,\s*$gre\s*)?\)\s*$/) {
+	($p, $q) = ($1, $2 || 0);
+    }
+
+    if (defined $p) {
+	$p =~ s/^\+//;
+	$p =~ s/^(-?)inf$/"${1}9**9**9"/e;
+	$q =~ s/^\+//;
+	$q =~ s/^(-?)inf$/"${1}9**9**9"/e;
+    }
+
+    return ($p, $q);
+}
+
+sub _emake {
+    my $arg = shift;
+    my ($p, $q);
+
+    if ($arg =~ /^\s*\[\s*$gre\s*(?:,\s*$gre\s*)?\]\s*$/) {
+	($p, $q) = ($1, $2 || 0);
+    } elsif ($arg =~ m!^\s*\[\s*$gre\s*(?:,\s*([-+]?\d*\s*)?pi(?:/\s*(\d+))?\s*)?\]\s*$!) {
+	($p, $q) = ($1, ($2 eq '-' ? -1 : ($2 || 1)) * pi() / ($3 || 1));
+    } elsif ($arg =~ /^\s*\[\s*$gre\s*\]\s*$/) {
+	($p, $q) = ($1, 0);
+    } elsif ($arg =~ /^\s*$gre\s*$/) {
+	($p, $q) = ($1, 0);
+    }
+
+    if (defined $p) {
+	$p =~ s/^\+//;
+	$q =~ s/^\+//;
+	$p =~ s/^(-?)inf$/"${1}9**9**9"/e;
+	$q =~ s/^(-?)inf$/"${1}9**9**9"/e;
+    }
+
+    return ($p, $q);
+}
+
+sub _copy {
+    my $self = shift;
+    my $clone = {%$self};
+    if ($self->{'cartesian'}) {
+	$clone->{'cartesian'} = [@{$self->{'cartesian'}}];
+    }
+    if ($self->{'polar'}) {
+	$clone->{'polar'} = [@{$self->{'polar'}}];
+    }
+    bless $clone,__PACKAGE__;
+    return $clone;
+}
+
+#
+# ->make
+#
+# Create a new complex number (cartesian form)
+#
+sub make {
+    my $self = bless {}, shift;
+    my ($re, $im);
+    if (@_ == 0) {
+	($re, $im) = (0, 0);
+    } elsif (@_ == 1) {
+	return (ref $self)->emake($_[0])
+	    if ($_[0] =~ /^\s*\[/);
+	($re, $im) = _make($_[0]);
+    } elsif (@_ == 2) {
+	($re, $im) = @_;
+    }
+    if (defined $re) {
+	_cannot_make("real part",      $re) unless $re =~ /^$gre$/;
+    }
+    $im ||= 0;
+    _cannot_make("imaginary part", $im) unless $im =~ /^$gre$/;
+    $self->_set_cartesian([$re, $im ]);
+    $self->display_format('cartesian');
+
+    return $self;
+}
+
+#
+# ->emake
+#
+# Create a new complex number (exponential form)
+#
+sub emake {
+    my $self = bless {}, shift;
+    my ($rho, $theta);
+    if (@_ == 0) {
+	($rho, $theta) = (0, 0);
+    } elsif (@_ == 1) {
+	return (ref $self)->make($_[0])
+	    if ($_[0] =~ /^\s*\(/ || $_[0] =~ /i\s*$/);
+	($rho, $theta) = _emake($_[0]);
+    } elsif (@_ == 2) {
+	($rho, $theta) = @_;
+    }
+    if (defined $rho && defined $theta) {
+	if ($rho < 0) {
+	    $rho   = -$rho;
+	    $theta = ($theta <= 0) ? $theta + pi() : $theta - pi();
+	}
+    }
+    if (defined $rho) {
+	_cannot_make("rho",   $rho)   unless $rho   =~ /^$gre$/;
+    }
+    $theta ||= 0;
+    _cannot_make("theta", $theta) unless $theta =~ /^$gre$/;
+    $self->_set_polar([$rho, $theta]);
+    $self->display_format('polar');
+
+    return $self;
+}
+
+sub new { &make }		# For backward compatibility only.
+
+#
+# cplx
+#
+# Creates a complex number from a (re, im) tuple.
+# This avoids the burden of writing Math::Complex->make(re, im).
+#
+sub cplx {
+	return __PACKAGE__->make(@_);
+}
+
+#
+# cplxe
+#
+# Creates a complex number from a (rho, theta) tuple.
+# This avoids the burden of writing Math::Complex->emake(rho, theta).
+#
+sub cplxe {
+	return __PACKAGE__->emake(@_);
+}
+
+#
+# pi
+#
+# The number defined as pi = 180 degrees
+#
+sub pi () { 4 * CORE::atan2(1, 1) }
+
+#
+# pi2
+#
+# The full circle
+#
+sub pi2 () { 2 * pi }
+
+#
+# pi4
+#
+# The full circle twice.
+#
+sub pi4 () { 4 * pi }
+
+#
+# pip2
+#
+# The quarter circle
+#
+sub pip2 () { pi / 2 }
+
+#
+# pip4
+#
+# The eighth circle.
+#
+sub pip4 () { pi / 4 }
+
+#
+# _uplog10
+#
+# Used in log10().
+#
+sub _uplog10 () { 1 / CORE::log(10) }
+
+#
+# i
+#
+# The number defined as i*i = -1;
+#
+sub i () {
+        return $i if ($i);
+	$i = bless {};
+	$i->{'cartesian'} = [0, 1];
+	$i->{'polar'}     = [1, pip2];
+	$i->{c_dirty} = 0;
+	$i->{p_dirty} = 0;
+	return $i;
+}
+
+#
+# _ip2
+#
+# Half of i.
+#
+sub _ip2 () { i / 2 }
+
+#
+# Attribute access/set routines
+#
+
+sub _cartesian {$_[0]->{c_dirty} ?
+		   $_[0]->_update_cartesian : $_[0]->{'cartesian'}}
+sub _polar     {$_[0]->{p_dirty} ?
+		   $_[0]->_update_polar : $_[0]->{'polar'}}
+
+sub _set_cartesian { $_[0]->{p_dirty}++; $_[0]->{c_dirty} = 0;
+		     $_[0]->{'cartesian'} = $_[1] }
+sub _set_polar     { $_[0]->{c_dirty}++; $_[0]->{p_dirty} = 0;
+		     $_[0]->{'polar'} = $_[1] }
+
+#
+# ->_update_cartesian
+#
+# Recompute and return the cartesian form, given accurate polar form.
+#
+sub _update_cartesian {
+	my $self = shift;
+	my ($r, $t) = @{$self->{'polar'}};
+	$self->{c_dirty} = 0;
+	return $self->{'cartesian'} = [$r * CORE::cos($t), $r * CORE::sin($t)];
+}
+
+#
+#
+# ->_update_polar
+#
+# Recompute and return the polar form, given accurate cartesian form.
+#
+sub _update_polar {
+	my $self = shift;
+	my ($x, $y) = @{$self->{'cartesian'}};
+	$self->{p_dirty} = 0;
+	return $self->{'polar'} = [0, 0] if $x == 0 && $y == 0;
+	return $self->{'polar'} = [CORE::sqrt($x*$x + $y*$y),
+				   CORE::atan2($y, $x)];
+}
+
+#
+# (_plus)
+#
+# Computes z1+z2.
+#
+sub _plus {
+	my ($z1, $z2, $regular) = @_;
+	my ($re1, $im1) = @{$z1->_cartesian};
+	$z2 = cplx($z2) unless ref $z2;
+	my ($re2, $im2) = ref $z2 ? @{$z2->_cartesian} : ($z2, 0);
+	unless (defined $regular) {
+		$z1->_set_cartesian([$re1 + $re2, $im1 + $im2]);
+		return $z1;
+	}
+	return (ref $z1)->make($re1 + $re2, $im1 + $im2);
+}
+
+#
+# (_minus)
+#
+# Computes z1-z2.
+#
+sub _minus {
+	my ($z1, $z2, $inverted) = @_;
+	my ($re1, $im1) = @{$z1->_cartesian};
+	$z2 = cplx($z2) unless ref $z2;
+	my ($re2, $im2) = @{$z2->_cartesian};
+	unless (defined $inverted) {
+		$z1->_set_cartesian([$re1 - $re2, $im1 - $im2]);
+		return $z1;
+	}
+	return $inverted ?
+		(ref $z1)->make($re2 - $re1, $im2 - $im1) :
+		(ref $z1)->make($re1 - $re2, $im1 - $im2);
+
+}
+
+#
+# (_multiply)
+#
+# Computes z1*z2.
+#
+sub _multiply {
+        my ($z1, $z2, $regular) = @_;
+	if ($z1->{p_dirty} == 0 and ref $z2 and $z2->{p_dirty} == 0) {
+	    # if both polar better use polar to avoid rounding errors
+	    my ($r1, $t1) = @{$z1->_polar};
+	    my ($r2, $t2) = @{$z2->_polar};
+	    my $t = $t1 + $t2;
+	    if    ($t >   pi()) { $t -= pi2 }
+	    elsif ($t <= -pi()) { $t += pi2 }
+	    unless (defined $regular) {
+		$z1->_set_polar([$r1 * $r2, $t]);
+		return $z1;
+	    }
+	    return (ref $z1)->emake($r1 * $r2, $t);
+	} else {
+	    my ($x1, $y1) = @{$z1->_cartesian};
+	    if (ref $z2) {
+		my ($x2, $y2) = @{$z2->_cartesian};
+		return (ref $z1)->make($x1*$x2-$y1*$y2, $x1*$y2+$y1*$x2);
+	    } else {
+		return (ref $z1)->make($x1*$z2, $y1*$z2);
+	    }
+	}
+}
+
+#
+# _divbyzero
+#
+# Die on division by zero.
+#
+sub _divbyzero {
+    my $mess = "$_[0]: Division by zero.\n";
+
+    if (defined $_[1]) {
+	$mess .= "(Because in the definition of $_[0], the divisor ";
+	$mess .= "$_[1] " unless ("$_[1]" eq '0');
+	$mess .= "is 0)\n";
+    }
+
+    my @up = caller(1);
+
+    $mess .= "Died at $up[1] line $up[2].\n";
+
+    die $mess;
+}
+
+#
+# (_divide)
+#
+# Computes z1/z2.
+#
+sub _divide {
+	my ($z1, $z2, $inverted) = @_;
+	if ($z1->{p_dirty} == 0 and ref $z2 and $z2->{p_dirty} == 0) {
+	    # if both polar better use polar to avoid rounding errors
+	    my ($r1, $t1) = @{$z1->_polar};
+	    my ($r2, $t2) = @{$z2->_polar};
+	    my $t;
+	    if ($inverted) {
+		_divbyzero "$z2/0" if ($r1 == 0);
+		$t = $t2 - $t1;
+		if    ($t >   pi()) { $t -= pi2 }
+		elsif ($t <= -pi()) { $t += pi2 }
+		return (ref $z1)->emake($r2 / $r1, $t);
+	    } else {
+		_divbyzero "$z1/0" if ($r2 == 0);
+		$t = $t1 - $t2;
+		if    ($t >   pi()) { $t -= pi2 }
+		elsif ($t <= -pi()) { $t += pi2 }
+		return (ref $z1)->emake($r1 / $r2, $t);
+	    }
+	} else {
+	    my ($d, $x2, $y2);
+	    if ($inverted) {
+		($x2, $y2) = @{$z1->_cartesian};
+		$d = $x2*$x2 + $y2*$y2;
+		_divbyzero "$z2/0" if $d == 0;
+		return (ref $z1)->make(($x2*$z2)/$d, -($y2*$z2)/$d);
+	    } else {
+		my ($x1, $y1) = @{$z1->_cartesian};
+		if (ref $z2) {
+		    ($x2, $y2) = @{$z2->_cartesian};
+		    $d = $x2*$x2 + $y2*$y2;
+		    _divbyzero "$z1/0" if $d == 0;
+		    my $u = ($x1*$x2 + $y1*$y2)/$d;
+		    my $v = ($y1*$x2 - $x1*$y2)/$d;
+		    return (ref $z1)->make($u, $v);
+		} else {
+		    _divbyzero "$z1/0" if $z2 == 0;
+		    return (ref $z1)->make($x1/$z2, $y1/$z2);
+		}
+	    }
+	}
+}
+
+#
+# (_power)
+#
+# Computes z1**z2 = exp(z2 * log z1)).
+#
+sub _power {
+	my ($z1, $z2, $inverted) = @_;
+	if ($inverted) {
+	    return 1 if $z1 == 0 || $z2 == 1;
+	    return 0 if $z2 == 0 && Re($z1) > 0;
+	} else {
+	    return 1 if $z2 == 0 || $z1 == 1;
+	    return 0 if $z1 == 0 && Re($z2) > 0;
+	}
+	my $w = $inverted ? &exp($z1 * &log($z2))
+	                  : &exp($z2 * &log($z1));
+	# If both arguments cartesian, return cartesian, else polar.
+	return $z1->{c_dirty} == 0 &&
+	       (not ref $z2 or $z2->{c_dirty} == 0) ?
+	       cplx(@{$w->_cartesian}) : $w;
+}
+
+#
+# (_spaceship)
+#
+# Computes z1 <=> z2.
+# Sorts on the real part first, then on the imaginary part. Thus 2-4i < 3+8i.
+#
+sub _spaceship {
+	my ($z1, $z2, $inverted) = @_;
+	my ($re1, $im1) = ref $z1 ? @{$z1->_cartesian} : ($z1, 0);
+	my ($re2, $im2) = ref $z2 ? @{$z2->_cartesian} : ($z2, 0);
+	my $sgn = $inverted ? -1 : 1;
+	return $sgn * ($re1 <=> $re2) if $re1 != $re2;
+	return $sgn * ($im1 <=> $im2);
+}
+
+#
+# (_numeq)
+#
+# Computes z1 == z2.
+#
+# (Required in addition to _spaceship() because of NaNs.)
+sub _numeq {
+	my ($z1, $z2, $inverted) = @_;
+	my ($re1, $im1) = ref $z1 ? @{$z1->_cartesian} : ($z1, 0);
+	my ($re2, $im2) = ref $z2 ? @{$z2->_cartesian} : ($z2, 0);
+	return $re1 == $re2 && $im1 == $im2 ? 1 : 0;
+}
+
+#
+# (_negate)
+#
+# Computes -z.
+#
+sub _negate {
+	my ($z) = @_;
+	if ($z->{c_dirty}) {
+		my ($r, $t) = @{$z->_polar};
+		$t = ($t <= 0) ? $t + pi : $t - pi;
+		return (ref $z)->emake($r, $t);
+	}
+	my ($re, $im) = @{$z->_cartesian};
+	return (ref $z)->make(-$re, -$im);
+}
+
+#
+# (_conjugate)
+#
+# Compute complex's _conjugate.
+#
+sub _conjugate {
+	my ($z) = @_;
+	if ($z->{c_dirty}) {
+		my ($r, $t) = @{$z->_polar};
+		return (ref $z)->emake($r, -$t);
+	}
+	my ($re, $im) = @{$z->_cartesian};
+	return (ref $z)->make($re, -$im);
+}
+
+#
+# (abs)
+#
+# Compute or set complex's norm (rho).
+#
+sub abs {
+	my ($z, $rho) = @_ ? @_ : $_;
+	unless (ref $z) {
+	    if (@_ == 2) {
+		$_[0] = $_[1];
+	    } else {
+		return CORE::abs($z);
+	    }
+	}
+	if (defined $rho) {
+	    $z->{'polar'} = [ $rho, ${$z->_polar}[1] ];
+	    $z->{p_dirty} = 0;
+	    $z->{c_dirty} = 1;
+	    return $rho;
+	} else {
+	    return ${$z->_polar}[0];
+	}
+}
+
+sub _theta {
+    my $theta = $_[0];
+
+    if    ($$theta >   pi()) { $$theta -= pi2 }
+    elsif ($$theta <= -pi()) { $$theta += pi2 }
+}
+
+#
+# arg
+#
+# Compute or set complex's argument (theta).
+#
+sub arg {
+	my ($z, $theta) = @_;
+	return $z unless ref $z;
+	if (defined $theta) {
+	    _theta(\$theta);
+	    $z->{'polar'} = [ ${$z->_polar}[0], $theta ];
+	    $z->{p_dirty} = 0;
+	    $z->{c_dirty} = 1;
+	} else {
+	    $theta = ${$z->_polar}[1];
+	    _theta(\$theta);
+	}
+	return $theta;
+}
+
+#
+# (sqrt)
+#
+# Compute sqrt(z).
+#
+# It is quite tempting to use wantarray here so that in list context
+# sqrt() would return the two solutions.  This, however, would
+# break things like
+#
+#	print "sqrt(z) = ", sqrt($z), "\n";
+#
+# The two values would be printed side by side without no intervening
+# whitespace, quite confusing.
+# Therefore if you want the two solutions use the root().
+#
+sub sqrt {
+	my ($z) = @_ ? $_[0] : $_;
+	my ($re, $im) = ref $z ? @{$z->_cartesian} : ($z, 0);
+	return $re < 0 ? cplx(0, CORE::sqrt(-$re)) : CORE::sqrt($re)
+	    if $im == 0;
+	my ($r, $t) = @{$z->_polar};
+	return (ref $z)->emake(CORE::sqrt($r), $t/2);
+}
+
+#
+# cbrt
+#
+# Compute cbrt(z) (cubic root).
+#
+# Why are we not returning three values?  The same answer as for sqrt().
+#
+sub cbrt {
+	my ($z) = @_;
+	return $z < 0 ?
+	    -CORE::exp(CORE::log(-$z)/3) :
+		($z > 0 ? CORE::exp(CORE::log($z)/3): 0)
+	    unless ref $z;
+	my ($r, $t) = @{$z->_polar};
+	return 0 if $r == 0;
+	return (ref $z)->emake(CORE::exp(CORE::log($r)/3), $t/3);
+}
+
+#
+# _rootbad
+#
+# Die on bad root.
+#
+sub _rootbad {
+    my $mess = "Root '$_[0]' illegal, root rank must be positive integer.\n";
+
+    my @up = caller(1);
+
+    $mess .= "Died at $up[1] line $up[2].\n";
+
+    die $mess;
+}
+
+#
+# root
+#
+# Computes all nth root for z, returning an array whose size is n.
+# `n' must be a positive integer.
+#
+# The roots are given by (for k = 0..n-1):
+#
+# z^(1/n) = r^(1/n) (cos ((t+2 k pi)/n) + i sin ((t+2 k pi)/n))
+#
+sub root {
+	my ($z, $n, $k) = @_;
+	_rootbad($n) if ($n < 1 or int($n) != $n);
+	my ($r, $t) = ref $z ?
+	    @{$z->_polar} : (CORE::abs($z), $z >= 0 ? 0 : pi);
+	my $theta_inc = pi2 / $n;
+	my $rho = $r ** (1/$n);
+	my $cartesian = ref $z && $z->{c_dirty} == 0;
+	if (@_ == 2) {
+	    my @root;
+	    for (my $i = 0, my $theta = $t / $n;
+		 $i < $n;
+		 $i++, $theta += $theta_inc) {
+		my $w = cplxe($rho, $theta);
+		# Yes, $cartesian is loop invariant.
+		push @root, $cartesian ? cplx(@{$w->_cartesian}) : $w;
+	    }
+	    return @root;
+	} elsif (@_ == 3) {
+	    my $w = cplxe($rho, $t / $n + $k * $theta_inc);
+	    return $cartesian ? cplx(@{$w->_cartesian}) : $w;
+	}
+}
+
+#
+# Re
+#
+# Return or set Re(z).
+#
+sub Re {
+	my ($z, $Re) = @_;
+	return $z unless ref $z;
+	if (defined $Re) {
+	    $z->{'cartesian'} = [ $Re, ${$z->_cartesian}[1] ];
+	    $z->{c_dirty} = 0;
+	    $z->{p_dirty} = 1;
+	} else {
+	    return ${$z->_cartesian}[0];
+	}
+}
+
+#
+# Im
+#
+# Return or set Im(z).
+#
+sub Im {
+	my ($z, $Im) = @_;
+	return 0 unless ref $z;
+	if (defined $Im) {
+	    $z->{'cartesian'} = [ ${$z->_cartesian}[0], $Im ];
+	    $z->{c_dirty} = 0;
+	    $z->{p_dirty} = 1;
+	} else {
+	    return ${$z->_cartesian}[1];
+	}
+}
+
+#
+# rho
+#
+# Return or set rho(w).
+#
+sub rho {
+    Math::Complex::abs(@_);
+}
+
+#
+# theta
+#
+# Return or set theta(w).
+#
+sub theta {
+    Math::Complex::arg(@_);
+}
+
+#
+# (exp)
+#
+# Computes exp(z).
+#
+sub exp {
+    my ($z) = @_ ? @_ : $_;
+    return CORE::exp($z) unless ref $z;
+    my ($x, $y) = @{$z->_cartesian};
+    return (ref $z)->emake(CORE::exp($x), $y);
+}
+
+#
+# _logofzero
+#
+# Die on logarithm of zero.
+#
+sub _logofzero {
+    my $mess = "$_[0]: Logarithm of zero.\n";
+
+    if (defined $_[1]) {
+	$mess .= "(Because in the definition of $_[0], the argument ";
+	$mess .= "$_[1] " unless ($_[1] eq '0');
+	$mess .= "is 0)\n";
+    }
+
+    my @up = caller(1);
+
+    $mess .= "Died at $up[1] line $up[2].\n";
+
+    die $mess;
+}
+
+#
+# (log)
+#
+# Compute log(z).
+#
+sub log {
+	my ($z) = @_ ? @_ : $_;
+	unless (ref $z) {
+	    _logofzero("log") if $z == 0;
+	    return $z > 0 ? CORE::log($z) : cplx(CORE::log(-$z), pi);
+	}
+	my ($r, $t) = @{$z->_polar};
+	_logofzero("log") if $r == 0;
+	if    ($t >   pi()) { $t -= pi2 }
+	elsif ($t <= -pi()) { $t += pi2 }
+	return (ref $z)->make(CORE::log($r), $t);
+}
+
+#
+# ln
+#
+# Alias for log().
+#
+sub ln { Math::Complex::log(@_) }
+
+#
+# log10
+#
+# Compute log10(z).
+#
+
+sub log10 {
+	return Math::Complex::log($_[0]) * _uplog10;
+}
+
+#
+# logn
+#
+# Compute logn(z,n) = log(z) / log(n)
+#
+sub logn {
+	my ($z, $n) = @_;
+	$z = cplx($z, 0) unless ref $z;
+	my $logn = $LOGN{$n};
+	$logn = $LOGN{$n} = CORE::log($n) unless defined $logn;	# Cache log(n)
+	return &log($z) / $logn;
+}
+
+#
+# (cos)
+#
+# Compute cos(z) = (exp(iz) + exp(-iz))/2.
+#
+sub cos {
+	my ($z) = @_ ? @_ : $_;
+	return CORE::cos($z) unless ref $z;
+	my ($x, $y) = @{$z->_cartesian};
+	my $ey = CORE::exp($y);
+	my $sx = CORE::sin($x);
+	my $cx = CORE::cos($x);
+	my $ey_1 = $ey ? 1 / $ey : Inf();
+	return (ref $z)->make($cx * ($ey + $ey_1)/2,
+			      $sx * ($ey_1 - $ey)/2);
+}
+
+#
+# (sin)
+#
+# Compute sin(z) = (exp(iz) - exp(-iz))/2.
+#
+sub sin {
+	my ($z) = @_ ? @_ : $_;
+	return CORE::sin($z) unless ref $z;
+	my ($x, $y) = @{$z->_cartesian};
+	my $ey = CORE::exp($y);
+	my $sx = CORE::sin($x);
+	my $cx = CORE::cos($x);
+	my $ey_1 = $ey ? 1 / $ey : Inf();
+	return (ref $z)->make($sx * ($ey + $ey_1)/2,
+			      $cx * ($ey - $ey_1)/2);
+}
+
+#
+# tan
+#
+# Compute tan(z) = sin(z) / cos(z).
+#
+sub tan {
+	my ($z) = @_;
+	my $cz = &cos($z);
+	_divbyzero "tan($z)", "cos($z)" if $cz == 0;
+	return &sin($z) / $cz;
+}
+
+#
+# sec
+#
+# Computes the secant sec(z) = 1 / cos(z).
+#
+sub sec {
+	my ($z) = @_;
+	my $cz = &cos($z);
+	_divbyzero "sec($z)", "cos($z)" if ($cz == 0);
+	return 1 / $cz;
+}
+
+#
+# csc
+#
+# Computes the cosecant csc(z) = 1 / sin(z).
+#
+sub csc {
+	my ($z) = @_;
+	my $sz = &sin($z);
+	_divbyzero "csc($z)", "sin($z)" if ($sz == 0);
+	return 1 / $sz;
+}
+
+#
+# cosec
+#
+# Alias for csc().
+#
+sub cosec { Math::Complex::csc(@_) }
+
+#
+# cot
+#
+# Computes cot(z) = cos(z) / sin(z).
+#
+sub cot {
+	my ($z) = @_;
+	my $sz = &sin($z);
+	_divbyzero "cot($z)", "sin($z)" if ($sz == 0);
+	return &cos($z) / $sz;
+}
+
+#
+# cotan
+#
+# Alias for cot().
+#
+sub cotan { Math::Complex::cot(@_) }
+
+#
+# acos
+#
+# Computes the arc cosine acos(z) = -i log(z + sqrt(z*z-1)).
+#
+sub acos {
+	my $z = $_[0];
+	return CORE::atan2(CORE::sqrt(1-$z*$z), $z)
+	    if (! ref $z) && CORE::abs($z) <= 1;
+	$z = cplx($z, 0) unless ref $z;
+	my ($x, $y) = @{$z->_cartesian};
+	return 0 if $x == 1 && $y == 0;
+	my $t1 = CORE::sqrt(($x+1)*($x+1) + $y*$y);
+	my $t2 = CORE::sqrt(($x-1)*($x-1) + $y*$y);
+	my $alpha = ($t1 + $t2)/2;
+	my $beta  = ($t1 - $t2)/2;
+	$alpha = 1 if $alpha < 1;
+	if    ($beta >  1) { $beta =  1 }
+	elsif ($beta < -1) { $beta = -1 }
+	my $u = CORE::atan2(CORE::sqrt(1-$beta*$beta), $beta);
+	my $v = CORE::log($alpha + CORE::sqrt($alpha*$alpha-1));
+	$v = -$v if $y > 0 || ($y == 0 && $x < -1);
+	return (ref $z)->make($u, $v);
+}
+
+#
+# asin
+#
+# Computes the arc sine asin(z) = -i log(iz + sqrt(1-z*z)).
+#
+sub asin {
+	my $z = $_[0];
+	return CORE::atan2($z, CORE::sqrt(1-$z*$z))
+	    if (! ref $z) && CORE::abs($z) <= 1;
+	$z = cplx($z, 0) unless ref $z;
+	my ($x, $y) = @{$z->_cartesian};
+	return 0 if $x == 0 && $y == 0;
+	my $t1 = CORE::sqrt(($x+1)*($x+1) + $y*$y);
+	my $t2 = CORE::sqrt(($x-1)*($x-1) + $y*$y);
+	my $alpha = ($t1 + $t2)/2;
+	my $beta  = ($t1 - $t2)/2;
+	$alpha = 1 if $alpha < 1;
+	if    ($beta >  1) { $beta =  1 }
+	elsif ($beta < -1) { $beta = -1 }
+	my $u =  CORE::atan2($beta, CORE::sqrt(1-$beta*$beta));
+	my $v = -CORE::log($alpha + CORE::sqrt($alpha*$alpha-1));
+	$v = -$v if $y > 0 || ($y == 0 && $x < -1);
+	return (ref $z)->make($u, $v);
+}
+
+#
+# atan
+#
+# Computes the arc tangent atan(z) = i/2 log((i+z) / (i-z)).
+#
+sub atan {
+	my ($z) = @_;
+	return CORE::atan2($z, 1) unless ref $z;
+	my ($x, $y) = ref $z ? @{$z->_cartesian} : ($z, 0);
+	return 0 if $x == 0 && $y == 0;
+	_divbyzero "atan(i)"  if ( $z == i);
+	_logofzero "atan(-i)" if (-$z == i); # -i is a bad file test...
+	my $log = &log((i + $z) / (i - $z));
+	return _ip2 * $log;
+}
+
+#
+# asec
+#
+# Computes the arc secant asec(z) = acos(1 / z).
+#
+sub asec {
+	my ($z) = @_;
+	_divbyzero "asec($z)", $z if ($z == 0);
+	return acos(1 / $z);
+}
+
+#
+# acsc
+#
+# Computes the arc cosecant acsc(z) = asin(1 / z).
+#
+sub acsc {
+	my ($z) = @_;
+	_divbyzero "acsc($z)", $z if ($z == 0);
+	return asin(1 / $z);
+}
+
+#
+# acosec
+#
+# Alias for acsc().
+#
+sub acosec { Math::Complex::acsc(@_) }
+
+#
+# acot
+#
+# Computes the arc cotangent acot(z) = atan(1 / z)
+#
+sub acot {
+	my ($z) = @_;
+	_divbyzero "acot(0)"  if $z == 0;
+	return ($z >= 0) ? CORE::atan2(1, $z) : CORE::atan2(-1, -$z)
+	    unless ref $z;
+	_divbyzero "acot(i)"  if ($z - i == 0);
+	_logofzero "acot(-i)" if ($z + i == 0);
+	return atan(1 / $z);
+}
+
+#
+# acotan
+#
+# Alias for acot().
+#
+sub acotan { Math::Complex::acot(@_) }
+
+#
+# cosh
+#
+# Computes the hyperbolic cosine cosh(z) = (exp(z) + exp(-z))/2.
+#
+sub cosh {
+	my ($z) = @_;
+	my $ex;
+	unless (ref $z) {
+	    $ex = CORE::exp($z);
+            return $ex ? ($ex == $ExpInf ? Inf() : ($ex + 1/$ex)/2) : Inf();
+	}
+	my ($x, $y) = @{$z->_cartesian};
+	$ex = CORE::exp($x);
+	my $ex_1 = $ex ? 1 / $ex : Inf();
+	return (ref $z)->make(CORE::cos($y) * ($ex + $ex_1)/2,
+			      CORE::sin($y) * ($ex - $ex_1)/2);
+}
+
+#
+# sinh
+#
+# Computes the hyperbolic sine sinh(z) = (exp(z) - exp(-z))/2.
+#
+sub sinh {
+	my ($z) = @_;
+	my $ex;
+	unless (ref $z) {
+	    return 0 if $z == 0;
+	    $ex = CORE::exp($z);
+            return $ex ? ($ex == $ExpInf ? Inf() : ($ex - 1/$ex)/2) : -Inf();
+	}
+	my ($x, $y) = @{$z->_cartesian};
+	my $cy = CORE::cos($y);
+	my $sy = CORE::sin($y);
+	$ex = CORE::exp($x);
+	my $ex_1 = $ex ? 1 / $ex : Inf();
+	return (ref $z)->make(CORE::cos($y) * ($ex - $ex_1)/2,
+			      CORE::sin($y) * ($ex + $ex_1)/2);
+}
+
+#
+# tanh
+#
+# Computes the hyperbolic tangent tanh(z) = sinh(z) / cosh(z).
+#
+sub tanh {
+	my ($z) = @_;
+	my $cz = cosh($z);
+	_divbyzero "tanh($z)", "cosh($z)" if ($cz == 0);
+	my $sz = sinh($z);
+	return  1 if $cz ==  $sz;
+	return -1 if $cz == -$sz;
+	return $sz / $cz;
+}
+
+#
+# sech
+#
+# Computes the hyperbolic secant sech(z) = 1 / cosh(z).
+#
+sub sech {
+	my ($z) = @_;
+	my $cz = cosh($z);
+	_divbyzero "sech($z)", "cosh($z)" if ($cz == 0);
+	return 1 / $cz;
+}
+
+#
+# csch
+#
+# Computes the hyperbolic cosecant csch(z) = 1 / sinh(z).
+#
+sub csch {
+	my ($z) = @_;
+	my $sz = sinh($z);
+	_divbyzero "csch($z)", "sinh($z)" if ($sz == 0);
+	return 1 / $sz;
+}
+
+#
+# cosech
+#
+# Alias for csch().
+#
+sub cosech { Math::Complex::csch(@_) }
+
+#
+# coth
+#
+# Computes the hyperbolic cotangent coth(z) = cosh(z) / sinh(z).
+#
+sub coth {
+	my ($z) = @_;
+	my $sz = sinh($z);
+	_divbyzero "coth($z)", "sinh($z)" if $sz == 0;
+	my $cz = cosh($z);
+	return  1 if $cz ==  $sz;
+	return -1 if $cz == -$sz;
+	return $cz / $sz;
+}
+
+#
+# cotanh
+#
+# Alias for coth().
+#
+sub cotanh { Math::Complex::coth(@_) }
+
+#
+# acosh
+#
+# Computes the area/inverse hyperbolic cosine acosh(z) = log(z + sqrt(z*z-1)).
+#
+sub acosh {
+	my ($z) = @_;
+	unless (ref $z) {
+	    $z = cplx($z, 0);
+	}
+	my ($re, $im) = @{$z->_cartesian};
+	if ($im == 0) {
+	    return CORE::log($re + CORE::sqrt($re*$re - 1))
+		if $re >= 1;
+	    return cplx(0, CORE::atan2(CORE::sqrt(1 - $re*$re), $re))
+		if CORE::abs($re) < 1;
+	}
+	my $t = &sqrt($z * $z - 1) + $z;
+	# Try Taylor if looking bad (this usually means that
+	# $z was large negative, therefore the sqrt is really
+	# close to abs(z), summing that with z...)
+	$t = 1/(2 * $z) - 1/(8 * $z**3) + 1/(16 * $z**5) - 5/(128 * $z**7)
+	    if $t == 0;
+	my $u = &log($t);
+	$u->Im(-$u->Im) if $re < 0 && $im == 0;
+	return $re < 0 ? -$u : $u;
+}
+
+#
+# asinh
+#
+# Computes the area/inverse hyperbolic sine asinh(z) = log(z + sqrt(z*z+1))
+#
+sub asinh {
+	my ($z) = @_;
+	unless (ref $z) {
+	    my $t = $z + CORE::sqrt($z*$z + 1);
+	    return CORE::log($t) if $t;
+	}
+	my $t = &sqrt($z * $z + 1) + $z;
+	# Try Taylor if looking bad (this usually means that
+	# $z was large negative, therefore the sqrt is really
+	# close to abs(z), summing that with z...)
+	$t = 1/(2 * $z) - 1/(8 * $z**3) + 1/(16 * $z**5) - 5/(128 * $z**7)
+	    if $t == 0;
+	return &log($t);
+}
+
+#
+# atanh
+#
+# Computes the area/inverse hyperbolic tangent atanh(z) = 1/2 log((1+z) / (1-z)).
+#
+sub atanh {
+	my ($z) = @_;
+	unless (ref $z) {
+	    return CORE::log((1 + $z)/(1 - $z))/2 if CORE::abs($z) < 1;
+	    $z = cplx($z, 0);
+	}
+	_divbyzero 'atanh(1)',  "1 - $z" if (1 - $z == 0);
+	_logofzero 'atanh(-1)'           if (1 + $z == 0);
+	return 0.5 * &log((1 + $z) / (1 - $z));
+}
+
+#
+# asech
+#
+# Computes the area/inverse hyperbolic secant asech(z) = acosh(1 / z).
+#
+sub asech {
+	my ($z) = @_;
+	_divbyzero 'asech(0)', "$z" if ($z == 0);
+	return acosh(1 / $z);
+}
+
+#
+# acsch
+#
+# Computes the area/inverse hyperbolic cosecant acsch(z) = asinh(1 / z).
+#
+sub acsch {
+	my ($z) = @_;
+	_divbyzero 'acsch(0)', $z if ($z == 0);
+	return asinh(1 / $z);
+}
+
+#
+# acosech
+#
+# Alias for acosh().
+#
+sub acosech { Math::Complex::acsch(@_) }
+
+#
+# acoth
+#
+# Computes the area/inverse hyperbolic cotangent acoth(z) = 1/2 log((1+z) / (z-1)).
+#
+sub acoth {
+	my ($z) = @_;
+	_divbyzero 'acoth(0)'            if ($z == 0);
+	unless (ref $z) {
+	    return CORE::log(($z + 1)/($z - 1))/2 if CORE::abs($z) > 1;
+	    $z = cplx($z, 0);
+	}
+	_divbyzero 'acoth(1)',  "$z - 1" if ($z - 1 == 0);
+	_logofzero 'acoth(-1)', "1 + $z" if (1 + $z == 0);
+	return &log((1 + $z) / ($z - 1)) / 2;
+}
+
+#
+# acotanh
+#
+# Alias for acot().
+#
+sub acotanh { Math::Complex::acoth(@_) }
+
+#
+# (atan2)
+#
+# Compute atan(z1/z2), minding the right quadrant.
+#
+sub atan2 {
+	my ($z1, $z2, $inverted) = @_;
+	my ($re1, $im1, $re2, $im2);
+	if ($inverted) {
+	    ($re1, $im1) = ref $z2 ? @{$z2->_cartesian} : ($z2, 0);
+	    ($re2, $im2) = ref $z1 ? @{$z1->_cartesian} : ($z1, 0);
+	} else {
+	    ($re1, $im1) = ref $z1 ? @{$z1->_cartesian} : ($z1, 0);
+	    ($re2, $im2) = ref $z2 ? @{$z2->_cartesian} : ($z2, 0);
+	}
+	if ($im1 || $im2) {
+	    # In MATLAB the imaginary parts are ignored.
+	    # warn "atan2: Imaginary parts ignored";
+	    # http://documents.wolfram.com/mathematica/functions/ArcTan
+	    # NOTE: Mathematica ArcTan[x,y] while atan2(y,x)
+	    my $s = $z1 * $z1 + $z2 * $z2;
+	    _divbyzero("atan2") if $s == 0;
+	    my $i = &i;
+	    my $r = $z2 + $z1 * $i;
+	    return -$i * &log($r / &sqrt( $s ));
+	}
+	return CORE::atan2($re1, $re2);
+}
+
+#
+# display_format
+# ->display_format
+#
+# Set (get if no argument) the display format for all complex numbers that
+# don't happen to have overridden it via ->display_format
+#
+# When called as an object method, this actually sets the display format for
+# the current object.
+#
+# Valid object formats are 'c' and 'p' for cartesian and polar. The first
+# letter is used actually, so the type can be fully spelled out for clarity.
+#
+sub display_format {
+	my $self  = shift;
+	my %display_format = %DISPLAY_FORMAT;
+
+	if (ref $self) {			# Called as an object method
+	    if (exists $self->{display_format}) {
+		my %obj = %{$self->{display_format}};
+		@display_format{keys %obj} = values %obj;
+	    }
+	}
+	if (@_ == 1) {
+	    $display_format{style} = shift;
+	} else {
+	    my %new = @_;
+	    @display_format{keys %new} = values %new;
+	}
+
+	if (ref $self) { # Called as an object method
+	    $self->{display_format} = { %display_format };
+	    return
+		wantarray ?
+		    %{$self->{display_format}} :
+		    $self->{display_format}->{style};
+	}
+
+        # Called as a class method
+	%DISPLAY_FORMAT = %display_format;
+	return
+	    wantarray ?
+		%DISPLAY_FORMAT :
+		    $DISPLAY_FORMAT{style};
+}
+
+#
+# (_stringify)
+#
+# Show nicely formatted complex number under its cartesian or polar form,
+# depending on the current display format:
+#
+# . If a specific display format has been recorded for this object, use it.
+# . Otherwise, use the generic current default for all complex numbers,
+#   which is a package global variable.
+#
+sub _stringify {
+	my ($z) = shift;
+
+	my $style = $z->display_format;
+
+	$style = $DISPLAY_FORMAT{style} unless defined $style;
+
+	return $z->_stringify_polar if $style =~ /^p/i;
+	return $z->_stringify_cartesian;
+}
+
+#
+# ->_stringify_cartesian
+#
+# Stringify as a cartesian representation 'a+bi'.
+#
+sub _stringify_cartesian {
+	my $z  = shift;
+	my ($x, $y) = @{$z->_cartesian};
+	my ($re, $im);
+
+	my %format = $z->display_format;
+	my $format = $format{format};
+
+	if ($x) {
+	    if ($x =~ /^NaN[QS]?$/i) {
+		$re = $x;
+	    } else {
+		if ($x =~ /^-?\Q$Inf\E$/oi) {
+		    $re = $x;
+		} else {
+		    $re = defined $format ? sprintf($format, $x) : $x;
+		}
+	    }
+	} else {
+	    undef $re;
+	}
+
+	if ($y) {
+	    if ($y =~ /^(NaN[QS]?)$/i) {
+		$im = $y;
+	    } else {
+		if ($y =~ /^-?\Q$Inf\E$/oi) {
+		    $im = $y;
+		} else {
+		    $im =
+			defined $format ?
+			    sprintf($format, $y) :
+			    ($y == 1 ? "" : ($y == -1 ? "-" : $y));
+		}
+	    }
+	    $im .= "i";
+	} else {
+	    undef $im;
+	}
+
+	my $str = $re;
+
+	if (defined $im) {
+	    if ($y < 0) {
+		$str .= $im;
+	    } elsif ($y > 0 || $im =~ /^NaN[QS]?i$/i)  {
+		$str .= "+" if defined $re;
+		$str .= $im;
+	    }
+	} elsif (!defined $re) {
+	    $str = "0";
+	}
+
+	return $str;
+}
+
+
+#
+# ->_stringify_polar
+#
+# Stringify as a polar representation '[r,t]'.
+#
+sub _stringify_polar {
+	my $z  = shift;
+	my ($r, $t) = @{$z->_polar};
+	my $theta;
+
+	my %format = $z->display_format;
+	my $format = $format{format};
+
+	if ($t =~ /^NaN[QS]?$/i || $t =~ /^-?\Q$Inf\E$/oi) {
+	    $theta = $t; 
+	} elsif ($t == pi) {
+	    $theta = "pi";
+	} elsif ($r == 0 || $t == 0) {
+	    $theta = defined $format ? sprintf($format, $t) : $t;
+	}
+
+	return "[$r,$theta]" if defined $theta;
+
+	#
+	# Try to identify pi/n and friends.
+	#
+
+	$t -= int(CORE::abs($t) / pi2) * pi2;
+
+	if ($format{polar_pretty_print} && $t) {
+	    my ($a, $b);
+	    for $a (2..9) {
+		$b = $t * $a / pi;
+		if ($b =~ /^-?\d+$/) {
+		    $b = $b < 0 ? "-" : "" if CORE::abs($b) == 1;
+		    $theta = "${b}pi/$a";
+		    last;
+		}
+	    }
+	}
+
+        if (defined $format) {
+	    $r     = sprintf($format, $r);
+	    $theta = sprintf($format, $t) unless defined $theta;
+	} else {
+	    $theta = $t unless defined $theta;
+	}
+
+	return "[$r,$theta]";
+}
+
+sub Inf {
+    return $Inf;
+}
+
+1;
+__END__
+
+=pod
+
+=head1 NAME
+
+Math::Complex - complex numbers and associated mathematical functions
+
+=head1 SYNOPSIS
+
+	use Math::Complex;
+
+	$z = Math::Complex->make(5, 6);
+	$t = 4 - 3*i + $z;
+	$j = cplxe(1, 2*pi/3);
+
+=head1 DESCRIPTION
+
+This package lets you create and manipulate complex numbers. By default,
+I<Perl> limits itself to real numbers, but an extra C<use> statement brings
+full complex support, along with a full set of mathematical functions
+typically associated with and/or extended to complex numbers.
+
+If you wonder what complex numbers are, they were invented to be able to solve
+the following equation:
+
+	x*x = -1
+
+and by definition, the solution is noted I<i> (engineers use I<j> instead since
+I<i> usually denotes an intensity, but the name does not matter). The number
+I<i> is a pure I<imaginary> number.
+
+The arithmetics with pure imaginary numbers works just like you would expect
+it with real numbers... you just have to remember that
+
+	i*i = -1
+
+so you have:
+
+	5i + 7i = i * (5 + 7) = 12i
+	4i - 3i = i * (4 - 3) = i
+	4i * 2i = -8
+	6i / 2i = 3
+	1 / i = -i
+
+Complex numbers are numbers that have both a real part and an imaginary
+part, and are usually noted:
+
+	a + bi
+
+where C<a> is the I<real> part and C<b> is the I<imaginary> part. The
+arithmetic with complex numbers is straightforward. You have to
+keep track of the real and the imaginary parts, but otherwise the
+rules used for real numbers just apply:
+
+	(4 + 3i) + (5 - 2i) = (4 + 5) + i(3 - 2) = 9 + i
+	(2 + i) * (4 - i) = 2*4 + 4i -2i -i*i = 8 + 2i + 1 = 9 + 2i
+
+A graphical representation of complex numbers is possible in a plane
+(also called the I<complex plane>, but it's really a 2D plane).
+The number
+
+	z = a + bi
+
+is the point whose coordinates are (a, b). Actually, it would
+be the vector originating from (0, 0) to (a, b). It follows that the addition
+of two complex numbers is a vectorial addition.
+
+Since there is a bijection between a point in the 2D plane and a complex
+number (i.e. the mapping is unique and reciprocal), a complex number
+can also be uniquely identified with polar coordinates:
+
+	[rho, theta]
+
+where C<rho> is the distance to the origin, and C<theta> the angle between
+the vector and the I<x> axis. There is a notation for this using the
+exponential form, which is:
+
+	rho * exp(i * theta)
+
+where I<i> is the famous imaginary number introduced above. Conversion
+between this form and the cartesian form C<a + bi> is immediate:
+
+	a = rho * cos(theta)
+	b = rho * sin(theta)
+
+which is also expressed by this formula:
+
+	z = rho * exp(i * theta) = rho * (cos theta + i * sin theta)
+
+In other words, it's the projection of the vector onto the I<x> and I<y>
+axes. Mathematicians call I<rho> the I<norm> or I<modulus> and I<theta>
+the I<argument> of the complex number. The I<norm> of C<z> is
+marked here as C<abs(z)>.
+
+The polar notation (also known as the trigonometric representation) is
+much more handy for performing multiplications and divisions of
+complex numbers, whilst the cartesian notation is better suited for
+additions and subtractions. Real numbers are on the I<x> axis, and
+therefore I<y> or I<theta> is zero or I<pi>.
+
+All the common operations that can be performed on a real number have
+been defined to work on complex numbers as well, and are merely
+I<extensions> of the operations defined on real numbers. This means
+they keep their natural meaning when there is no imaginary part, provided
+the number is within their definition set.
+
+For instance, the C<sqrt> routine which computes the square root of
+its argument is only defined for non-negative real numbers and yields a
+non-negative real number (it is an application from B<R+> to B<R+>).
+If we allow it to return a complex number, then it can be extended to
+negative real numbers to become an application from B<R> to B<C> (the
+set of complex numbers):
+
+	sqrt(x) = x >= 0 ? sqrt(x) : sqrt(-x)*i
+
+It can also be extended to be an application from B<C> to B<C>,
+whilst its restriction to B<R> behaves as defined above by using
+the following definition:
+
+	sqrt(z = [r,t]) = sqrt(r) * exp(i * t/2)
+
+Indeed, a negative real number can be noted C<[x,pi]> (the modulus
+I<x> is always non-negative, so C<[x,pi]> is really C<-x>, a negative
+number) and the above definition states that
+
+	sqrt([x,pi]) = sqrt(x) * exp(i*pi/2) = [sqrt(x),pi/2] = sqrt(x)*i
+
+which is exactly what we had defined for negative real numbers above.
+The C<sqrt> returns only one of the solutions: if you want the both,
+use the C<root> function.
+
+All the common mathematical functions defined on real numbers that
+are extended to complex numbers share that same property of working
+I<as usual> when the imaginary part is zero (otherwise, it would not
+be called an extension, would it?).
+
+A I<new> operation possible on a complex number that is
+the identity for real numbers is called the I<conjugate>, and is noted
+with a horizontal bar above the number, or C<~z> here.
+
+	 z = a + bi
+	~z = a - bi
+
+Simple... Now look:
+
+	z * ~z = (a + bi) * (a - bi) = a*a + b*b
+
+We saw that the norm of C<z> was noted C<abs(z)> and was defined as the
+distance to the origin, also known as:
+
+	rho = abs(z) = sqrt(a*a + b*b)
+
+so
+
+	z * ~z = abs(z) ** 2
+
+If z is a pure real number (i.e. C<b == 0>), then the above yields:
+
+	a * a = abs(a) ** 2
+
+which is true (C<abs> has the regular meaning for real number, i.e. stands
+for the absolute value). This example explains why the norm of C<z> is
+noted C<abs(z)>: it extends the C<abs> function to complex numbers, yet
+is the regular C<abs> we know when the complex number actually has no
+imaginary part... This justifies I<a posteriori> our use of the C<abs>
+notation for the norm.
+
+=head1 OPERATIONS
+
+Given the following notations:
+
+	z1 = a + bi = r1 * exp(i * t1)
+	z2 = c + di = r2 * exp(i * t2)
+	z = <any complex or real number>
+
+the following (overloaded) operations are supported on complex numbers:
+
+	z1 + z2 = (a + c) + i(b + d)
+	z1 - z2 = (a - c) + i(b - d)
+	z1 * z2 = (r1 * r2) * exp(i * (t1 + t2))
+	z1 / z2 = (r1 / r2) * exp(i * (t1 - t2))
+	z1 ** z2 = exp(z2 * log z1)
+	~z = a - bi
+	abs(z) = r1 = sqrt(a*a + b*b)
+	sqrt(z) = sqrt(r1) * exp(i * t/2)
+	exp(z) = exp(a) * exp(i * b)
+	log(z) = log(r1) + i*t
+	sin(z) = 1/2i (exp(i * z1) - exp(-i * z))
+	cos(z) = 1/2 (exp(i * z1) + exp(-i * z))
+	atan2(y, x) = atan(y / x) # Minding the right quadrant, note the order.
+
+The definition used for complex arguments of atan2() is
+
+       -i log((x + iy)/sqrt(x*x+y*y))
+
+Note that atan2(0, 0) is not well-defined.
+
+The following extra operations are supported on both real and complex
+numbers:
+
+	Re(z) = a
+	Im(z) = b
+	arg(z) = t
+	abs(z) = r
+
+	cbrt(z) = z ** (1/3)
+	log10(z) = log(z) / log(10)
+	logn(z, n) = log(z) / log(n)
+
+	tan(z) = sin(z) / cos(z)
+
+	csc(z) = 1 / sin(z)
+	sec(z) = 1 / cos(z)
+	cot(z) = 1 / tan(z)
+
+	asin(z) = -i * log(i*z + sqrt(1-z*z))
+	acos(z) = -i * log(z + i*sqrt(1-z*z))
+	atan(z) = i/2 * log((i+z) / (i-z))
+
+	acsc(z) = asin(1 / z)
+	asec(z) = acos(1 / z)
+	acot(z) = atan(1 / z) = -i/2 * log((i+z) / (z-i))
+
+	sinh(z) = 1/2 (exp(z) - exp(-z))
+	cosh(z) = 1/2 (exp(z) + exp(-z))
+	tanh(z) = sinh(z) / cosh(z) = (exp(z) - exp(-z)) / (exp(z) + exp(-z))
+
+	csch(z) = 1 / sinh(z)
+	sech(z) = 1 / cosh(z)
+	coth(z) = 1 / tanh(z)
+
+	asinh(z) = log(z + sqrt(z*z+1))
+	acosh(z) = log(z + sqrt(z*z-1))
+	atanh(z) = 1/2 * log((1+z) / (1-z))
+
+	acsch(z) = asinh(1 / z)
+	asech(z) = acosh(1 / z)
+	acoth(z) = atanh(1 / z) = 1/2 * log((1+z) / (z-1))
+
+I<arg>, I<abs>, I<log>, I<csc>, I<cot>, I<acsc>, I<acot>, I<csch>,
+I<coth>, I<acosech>, I<acotanh>, have aliases I<rho>, I<theta>, I<ln>,
+I<cosec>, I<cotan>, I<acosec>, I<acotan>, I<cosech>, I<cotanh>,
+I<acosech>, I<acotanh>, respectively.  C<Re>, C<Im>, C<arg>, C<abs>,
+C<rho>, and C<theta> can be used also as mutators.  The C<cbrt>
+returns only one of the solutions: if you want all three, use the
+C<root> function.
+
+The I<root> function is available to compute all the I<n>
+roots of some complex, where I<n> is a strictly positive integer.
+There are exactly I<n> such roots, returned as a list. Getting the
+number mathematicians call C<j> such that:
+
+	1 + j + j*j = 0;
+
+is a simple matter of writing:
+
+	$j = ((root(1, 3))[1];
+
+The I<k>th root for C<z = [r,t]> is given by:
+
+	(root(z, n))[k] = r**(1/n) * exp(i * (t + 2*k*pi)/n)
+
+You can return the I<k>th root directly by C<root(z, n, k)>,
+indexing starting from I<zero> and ending at I<n - 1>.
+
+The I<spaceship> numeric comparison operator, E<lt>=E<gt>, is also
+defined. In order to ensure its restriction to real numbers is conform
+to what you would expect, the comparison is run on the real part of
+the complex number first, and imaginary parts are compared only when
+the real parts match.
+
+=head1 CREATION
+
+To create a complex number, use either:
+
+	$z = Math::Complex->make(3, 4);
+	$z = cplx(3, 4);
+
+if you know the cartesian form of the number, or
+
+	$z = 3 + 4*i;
+
+if you like. To create a number using the polar form, use either:
+
+	$z = Math::Complex->emake(5, pi/3);
+	$x = cplxe(5, pi/3);
+
+instead. The first argument is the modulus, the second is the angle
+(in radians, the full circle is 2*pi).  (Mnemonic: C<e> is used as a
+notation for complex numbers in the polar form).
+
+It is possible to write:
+
+	$x = cplxe(-3, pi/4);
+
+but that will be silently converted into C<[3,-3pi/4]>, since the
+modulus must be non-negative (it represents the distance to the origin
+in the complex plane).
+
+It is also possible to have a complex number as either argument of the
+C<make>, C<emake>, C<cplx>, and C<cplxe>: the appropriate component of
+the argument will be used.
+
+	$z1 = cplx(-2,  1);
+	$z2 = cplx($z1, 4);
+
+The C<new>, C<make>, C<emake>, C<cplx>, and C<cplxe> will also
+understand a single (string) argument of the forms
+
+    	2-3i
+    	-3i
+	[2,3]
+	[2,-3pi/4]
+	[2]
+
+in which case the appropriate cartesian and exponential components
+will be parsed from the string and used to create new complex numbers.
+The imaginary component and the theta, respectively, will default to zero.
+
+The C<new>, C<make>, C<emake>, C<cplx>, and C<cplxe> will also
+understand the case of no arguments: this means plain zero or (0, 0).
+
+=head1 DISPLAYING
+
+When printed, a complex number is usually shown under its cartesian
+style I<a+bi>, but there are legitimate cases where the polar style
+I<[r,t]> is more appropriate.  The process of converting the complex
+number into a string that can be displayed is known as I<stringification>.
+
+By calling the class method C<Math::Complex::display_format> and
+supplying either C<"polar"> or C<"cartesian"> as an argument, you
+override the default display style, which is C<"cartesian">. Not
+supplying any argument returns the current settings.
+
+This default can be overridden on a per-number basis by calling the
+C<display_format> method instead. As before, not supplying any argument
+returns the current display style for this number. Otherwise whatever you
+specify will be the new display style for I<this> particular number.
+
+For instance:
+
+	use Math::Complex;
+
+	Math::Complex::display_format('polar');
+	$j = (root(1, 3))[1];
+	print "j = $j\n";		# Prints "j = [1,2pi/3]"
+	$j->display_format('cartesian');
+	print "j = $j\n";		# Prints "j = -0.5+0.866025403784439i"
+
+The polar style attempts to emphasize arguments like I<k*pi/n>
+(where I<n> is a positive integer and I<k> an integer within [-9, +9]),
+this is called I<polar pretty-printing>.
+
+For the reverse of stringifying, see the C<make> and C<emake>.
+
+=head2 CHANGED IN PERL 5.6
+
+The C<display_format> class method and the corresponding
+C<display_format> object method can now be called using
+a parameter hash instead of just a one parameter.
+
+The old display format style, which can have values C<"cartesian"> or
+C<"polar">, can be changed using the C<"style"> parameter.
+
+	$j->display_format(style => "polar");
+
+The one parameter calling convention also still works.
+
+	$j->display_format("polar");
+
+There are two new display parameters.
+
+The first one is C<"format">, which is a sprintf()-style format string
+to be used for both numeric parts of the complex number(s).  The is
+somewhat system-dependent but most often it corresponds to C<"%.15g">.
+You can revert to the default by setting the C<format> to C<undef>.
+
+	# the $j from the above example
+
+	$j->display_format('format' => '%.5f');
+	print "j = $j\n";		# Prints "j = -0.50000+0.86603i"
+	$j->display_format('format' => undef);
+	print "j = $j\n";		# Prints "j = -0.5+0.86603i"
+
+Notice that this affects also the return values of the
+C<display_format> methods: in list context the whole parameter hash
+will be returned, as opposed to only the style parameter value.
+This is a potential incompatibility with earlier versions if you
+have been calling the C<display_format> method in list context.
+
+The second new display parameter is C<"polar_pretty_print">, which can
+be set to true or false, the default being true.  See the previous
+section for what this means.
+
+=head1 USAGE
+
+Thanks to overloading, the handling of arithmetics with complex numbers
+is simple and almost transparent.
+
+Here are some examples:
+
+	use Math::Complex;
+
+	$j = cplxe(1, 2*pi/3);	# $j ** 3 == 1
+	print "j = $j, j**3 = ", $j ** 3, "\n";
+	print "1 + j + j**2 = ", 1 + $j + $j**2, "\n";
+
+	$z = -16 + 0*i;			# Force it to be a complex
+	print "sqrt($z) = ", sqrt($z), "\n";
+
+	$k = exp(i * 2*pi/3);
+	print "$j - $k = ", $j - $k, "\n";
+
+	$z->Re(3);			# Re, Im, arg, abs,
+	$j->arg(2);			# (the last two aka rho, theta)
+					# can be used also as mutators.
+
+=head1 CONSTANTS
+
+=head2 PI
+
+The constant C<pi> and some handy multiples of it (pi2, pi4,
+and pip2 (pi/2) and pip4 (pi/4)) are also available if separately
+exported:
+
+    use Math::Complex ':pi'; 
+    $third_of_circle = pi2 / 3;
+
+=head2 Inf
+
+The floating point infinity can be exported as a subroutine Inf():
+
+    use Math::Complex qw(Inf sinh);
+    my $AlsoInf = Inf() + 42;
+    my $AnotherInf = sinh(1e42);
+    print "$AlsoInf is $AnotherInf\n" if $AlsoInf == $AnotherInf;
+
+Note that the stringified form of infinity varies between platforms:
+it can be for example any of
+
+   inf
+   infinity
+   INF
+   1.#INF
+
+or it can be something else. 
+
+Also note that in some platforms trying to use the infinity in
+arithmetic operations may result in Perl crashing because using
+an infinity causes SIGFPE or its moral equivalent to be sent.
+The way to ignore this is
+
+  local $SIG{FPE} = sub { };
+
+=head1 ERRORS DUE TO DIVISION BY ZERO OR LOGARITHM OF ZERO
+
+The division (/) and the following functions
+
+	log	ln	log10	logn
+	tan	sec	csc	cot
+	atan	asec	acsc	acot
+	tanh	sech	csch	coth
+	atanh	asech	acsch	acoth
+
+cannot be computed for all arguments because that would mean dividing
+by zero or taking logarithm of zero. These situations cause fatal
+runtime errors looking like this
+
+	cot(0): Division by zero.
+	(Because in the definition of cot(0), the divisor sin(0) is 0)
+	Died at ...
+
+or
+
+	atanh(-1): Logarithm of zero.
+	Died at...
+
+For the C<csc>, C<cot>, C<asec>, C<acsc>, C<acot>, C<csch>, C<coth>,
+C<asech>, C<acsch>, the argument cannot be C<0> (zero).  For the
+logarithmic functions and the C<atanh>, C<acoth>, the argument cannot
+be C<1> (one).  For the C<atanh>, C<acoth>, the argument cannot be
+C<-1> (minus one).  For the C<atan>, C<acot>, the argument cannot be
+C<i> (the imaginary unit).  For the C<atan>, C<acoth>, the argument
+cannot be C<-i> (the negative imaginary unit).  For the C<tan>,
+C<sec>, C<tanh>, the argument cannot be I<pi/2 + k * pi>, where I<k>
+is any integer.  atan2(0, 0) is undefined, and if the complex arguments
+are used for atan2(), a division by zero will happen if z1**2+z2**2 == 0.
+
+Note that because we are operating on approximations of real numbers,
+these errors can happen when merely `too close' to the singularities
+listed above.
+
+=head1 ERRORS DUE TO INDIGESTIBLE ARGUMENTS
+
+The C<make> and C<emake> accept both real and complex arguments.
+When they cannot recognize the arguments they will die with error
+messages like the following
+
+    Math::Complex::make: Cannot take real part of ...
+    Math::Complex::make: Cannot take real part of ...
+    Math::Complex::emake: Cannot take rho of ...
+    Math::Complex::emake: Cannot take theta of ...
+
+=head1 BUGS
+
+Saying C<use Math::Complex;> exports many mathematical routines in the
+caller environment and even overrides some (C<sqrt>, C<log>, C<atan2>).
+This is construed as a feature by the Authors, actually... ;-)
+
+All routines expect to be given real or complex numbers. Don't attempt to
+use BigFloat, since Perl has currently no rule to disambiguate a '+'
+operation (for instance) between two overloaded entities.
+
+In Cray UNICOS there is some strange numerical instability that results
+in root(), cos(), sin(), cosh(), sinh(), losing accuracy fast.  Beware.
+The bug may be in UNICOS math libs, in UNICOS C compiler, in Math::Complex.
+Whatever it is, it does not manifest itself anywhere else where Perl runs.
+
+=head1 SEE ALSO
+
+L<Math::Trig>
+
+=head1 AUTHORS
+
+Daniel S. Lewart <F<lewart!at!uiuc.edu>>,
+Jarkko Hietaniemi <F<jhi!at!iki.fi>>,
+Raphael Manfredi <F<Raphael_Manfredi!at!pobox.com>>,
+Zefram <zefram@fysh.org>
+
+=head1 LICENSE
+
+This library is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself. 
+
+=cut
+
+1;
+
+# eof
diff --git a/lib/5.24.1/Math/Trig.pm b/lib/5.24.1/Math/Trig.pm
new file mode 100644
index 00000000..1d9612a4
--- /dev/null
+++ b/lib/5.24.1/Math/Trig.pm
@@ -0,0 +1,761 @@
+#
+# Trigonometric functions, mostly inherited from Math::Complex.
+# -- Jarkko Hietaniemi, since April 1997
+# -- Raphael Manfredi, September 1996 (indirectly: because of Math::Complex)
+#
+
+package Math::Trig;
+
+{ use 5.006; }
+use strict;
+
+use Math::Complex 1.59;
+use Math::Complex qw(:trig :pi);
+require Exporter;
+
+our @ISA = qw(Exporter);
+
+our $VERSION = 1.23;
+
+my @angcnv = qw(rad2deg rad2grad
+		deg2rad deg2grad
+		grad2rad grad2deg);
+
+my @areal = qw(asin_real acos_real);
+
+our @EXPORT = (@{$Math::Complex::EXPORT_TAGS{'trig'}},
+	   @angcnv, @areal);
+
+my @rdlcnv = qw(cartesian_to_cylindrical
+		cartesian_to_spherical
+		cylindrical_to_cartesian
+		cylindrical_to_spherical
+		spherical_to_cartesian
+		spherical_to_cylindrical);
+
+my @greatcircle = qw(
+		     great_circle_distance
+		     great_circle_direction
+		     great_circle_bearing
+		     great_circle_waypoint
+		     great_circle_midpoint
+		     great_circle_destination
+		    );
+
+my @pi = qw(pi pi2 pi4 pip2 pip4);
+
+our @EXPORT_OK = (@rdlcnv, @greatcircle, @pi, 'Inf');
+
+# See e.g. the following pages:
+# http://www.movable-type.co.uk/scripts/LatLong.html
+# http://williams.best.vwh.net/avform.htm
+
+our %EXPORT_TAGS = ('radial' => [ @rdlcnv ],
+	        'great_circle' => [ @greatcircle ],
+	        'pi'     => [ @pi ]);
+
+sub _DR  () { pi2/360 }
+sub _RD  () { 360/pi2 }
+sub _DG  () { 400/360 }
+sub _GD  () { 360/400 }
+sub _RG  () { 400/pi2 }
+sub _GR  () { pi2/400 }
+
+#
+# Truncating remainder.
+#
+
+sub _remt ($$) {
+    # Oh yes, POSIX::fmod() would be faster. Possibly. If it is available.
+    $_[0] - $_[1] * int($_[0] / $_[1]);
+}
+
+#
+# Angle conversions.
+#
+
+sub rad2rad($)     { _remt($_[0], pi2) }
+
+sub deg2deg($)     { _remt($_[0], 360) }
+
+sub grad2grad($)   { _remt($_[0], 400) }
+
+sub rad2deg ($;$)  { my $d = _RD * $_[0]; $_[1] ? $d : deg2deg($d) }
+
+sub deg2rad ($;$)  { my $d = _DR * $_[0]; $_[1] ? $d : rad2rad($d) }
+
+sub grad2deg ($;$) { my $d = _GD * $_[0]; $_[1] ? $d : deg2deg($d) }
+
+sub deg2grad ($;$) { my $d = _DG * $_[0]; $_[1] ? $d : grad2grad($d) }
+
+sub rad2grad ($;$) { my $d = _RG * $_[0]; $_[1] ? $d : grad2grad($d) }
+
+sub grad2rad ($;$) { my $d = _GR * $_[0]; $_[1] ? $d : rad2rad($d) }
+
+#
+# acos and asin functions which always return a real number
+#
+
+sub acos_real {
+    return 0  if $_[0] >=  1;
+    return pi if $_[0] <= -1;
+    return acos($_[0]);
+}
+
+sub asin_real {
+    return  &pip2 if $_[0] >=  1;
+    return -&pip2 if $_[0] <= -1;
+    return asin($_[0]);
+}
+
+sub cartesian_to_spherical {
+    my ( $x, $y, $z ) = @_;
+
+    my $rho = sqrt( $x * $x + $y * $y + $z * $z );
+
+    return ( $rho,
+             atan2( $y, $x ),
+             $rho ? acos_real( $z / $rho ) : 0 );
+}
+
+sub spherical_to_cartesian {
+    my ( $rho, $theta, $phi ) = @_;
+
+    return ( $rho * cos( $theta ) * sin( $phi ),
+             $rho * sin( $theta ) * sin( $phi ),
+             $rho * cos( $phi   ) );
+}
+
+sub spherical_to_cylindrical {
+    my ( $x, $y, $z ) = spherical_to_cartesian( @_ );
+
+    return ( sqrt( $x * $x + $y * $y ), $_[1], $z );
+}
+
+sub cartesian_to_cylindrical {
+    my ( $x, $y, $z ) = @_;
+
+    return ( sqrt( $x * $x + $y * $y ), atan2( $y, $x ), $z );
+}
+
+sub cylindrical_to_cartesian {
+    my ( $rho, $theta, $z ) = @_;
+
+    return ( $rho * cos( $theta ), $rho * sin( $theta ), $z );
+}
+
+sub cylindrical_to_spherical {
+    return ( cartesian_to_spherical( cylindrical_to_cartesian( @_ ) ) );
+}
+
+sub great_circle_distance {
+    my ( $theta0, $phi0, $theta1, $phi1, $rho ) = @_;
+
+    $rho = 1 unless defined $rho; # Default to the unit sphere.
+
+    my $lat0 = pip2 - $phi0;
+    my $lat1 = pip2 - $phi1;
+
+    return $rho *
+	acos_real( cos( $lat0 ) * cos( $lat1 ) * cos( $theta0 - $theta1 ) +
+		   sin( $lat0 ) * sin( $lat1 ) );
+}
+
+sub great_circle_direction {
+    my ( $theta0, $phi0, $theta1, $phi1 ) = @_;
+
+    my $lat0 = pip2 - $phi0;
+    my $lat1 = pip2 - $phi1;
+
+    return rad2rad(pi2 -
+	atan2(sin($theta0-$theta1) * cos($lat1),
+		cos($lat0) * sin($lat1) -
+		    sin($lat0) * cos($lat1) * cos($theta0-$theta1)));
+}
+
+*great_circle_bearing         = \&great_circle_direction;
+
+sub great_circle_waypoint {
+    my ( $theta0, $phi0, $theta1, $phi1, $point ) = @_;
+
+    $point = 0.5 unless defined $point;
+
+    my $d = great_circle_distance( $theta0, $phi0, $theta1, $phi1 );
+
+    return undef if $d == pi;
+
+    my $sd = sin($d);
+
+    return ($theta0, $phi0) if $sd == 0;
+
+    my $A = sin((1 - $point) * $d) / $sd;
+    my $B = sin(     $point  * $d) / $sd;
+
+    my $lat0 = pip2 - $phi0;
+    my $lat1 = pip2 - $phi1;
+
+    my $x = $A * cos($lat0) * cos($theta0) + $B * cos($lat1) * cos($theta1);
+    my $y = $A * cos($lat0) * sin($theta0) + $B * cos($lat1) * sin($theta1);
+    my $z = $A * sin($lat0)                + $B * sin($lat1);
+
+    my $theta = atan2($y, $x);
+    my $phi   = acos_real($z);
+
+    return ($theta, $phi);
+}
+
+sub great_circle_midpoint {
+    great_circle_waypoint(@_[0..3], 0.5);
+}
+
+sub great_circle_destination {
+    my ( $theta0, $phi0, $dir0, $dst ) = @_;
+
+    my $lat0 = pip2 - $phi0;
+
+    my $phi1   = asin_real(sin($lat0)*cos($dst) +
+			   cos($lat0)*sin($dst)*cos($dir0));
+
+    my $theta1 = $theta0 + atan2(sin($dir0)*sin($dst)*cos($lat0),
+				 cos($dst)-sin($lat0)*sin($phi1));
+
+    my $dir1 = great_circle_bearing($theta1, $phi1, $theta0, $phi0) + pi;
+
+    $dir1 -= pi2 if $dir1 > pi2;
+
+    return ($theta1, $phi1, $dir1);
+}
+
+1;
+
+__END__
+=pod
+
+=head1 NAME
+
+Math::Trig - trigonometric functions
+
+=head1 SYNOPSIS
+
+    use Math::Trig;
+
+    $x = tan(0.9);
+    $y = acos(3.7);
+    $z = asin(2.4);
+
+    $halfpi = pi/2;
+
+    $rad = deg2rad(120);
+
+    # Import constants pi2, pip2, pip4 (2*pi, pi/2, pi/4).
+    use Math::Trig ':pi';
+
+    # Import the conversions between cartesian/spherical/cylindrical.
+    use Math::Trig ':radial';
+
+        # Import the great circle formulas.
+    use Math::Trig ':great_circle';
+
+=head1 DESCRIPTION
+
+C<Math::Trig> defines many trigonometric functions not defined by the
+core Perl which defines only the C<sin()> and C<cos()>.  The constant
+B<pi> is also defined as are a few convenience functions for angle
+conversions, and I<great circle formulas> for spherical movement.
+
+=head1 TRIGONOMETRIC FUNCTIONS
+
+The tangent
+
+=over 4
+
+=item B<tan>
+
+=back
+
+The cofunctions of the sine, cosine, and tangent (cosec/csc and cotan/cot
+are aliases)
+
+B<csc>, B<cosec>, B<sec>, B<sec>, B<cot>, B<cotan>
+
+The arcus (also known as the inverse) functions of the sine, cosine,
+and tangent
+
+B<asin>, B<acos>, B<atan>
+
+The principal value of the arc tangent of y/x
+
+B<atan2>(y, x)
+
+The arcus cofunctions of the sine, cosine, and tangent (acosec/acsc
+and acotan/acot are aliases).  Note that atan2(0, 0) is not well-defined.
+
+B<acsc>, B<acosec>, B<asec>, B<acot>, B<acotan>
+
+The hyperbolic sine, cosine, and tangent
+
+B<sinh>, B<cosh>, B<tanh>
+
+The cofunctions of the hyperbolic sine, cosine, and tangent (cosech/csch
+and cotanh/coth are aliases)
+
+B<csch>, B<cosech>, B<sech>, B<coth>, B<cotanh>
+
+The area (also known as the inverse) functions of the hyperbolic
+sine, cosine, and tangent
+
+B<asinh>, B<acosh>, B<atanh>
+
+The area cofunctions of the hyperbolic sine, cosine, and tangent
+(acsch/acosech and acoth/acotanh are aliases)
+
+B<acsch>, B<acosech>, B<asech>, B<acoth>, B<acotanh>
+
+The trigonometric constant B<pi> and some of handy multiples
+of it are also defined.
+
+B<pi, pi2, pi4, pip2, pip4>
+
+=head2 ERRORS DUE TO DIVISION BY ZERO
+
+The following functions
+
+    acoth
+    acsc
+    acsch
+    asec
+    asech
+    atanh
+    cot
+    coth
+    csc
+    csch
+    sec
+    sech
+    tan
+    tanh
+
+cannot be computed for all arguments because that would mean dividing
+by zero or taking logarithm of zero. These situations cause fatal
+runtime errors looking like this
+
+    cot(0): Division by zero.
+    (Because in the definition of cot(0), the divisor sin(0) is 0)
+    Died at ...
+
+or
+
+    atanh(-1): Logarithm of zero.
+    Died at...
+
+For the C<csc>, C<cot>, C<asec>, C<acsc>, C<acot>, C<csch>, C<coth>,
+C<asech>, C<acsch>, the argument cannot be C<0> (zero).  For the
+C<atanh>, C<acoth>, the argument cannot be C<1> (one).  For the
+C<atanh>, C<acoth>, the argument cannot be C<-1> (minus one).  For the
+C<tan>, C<sec>, C<tanh>, C<sech>, the argument cannot be I<pi/2 + k *
+pi>, where I<k> is any integer.
+
+Note that atan2(0, 0) is not well-defined.
+
+=head2 SIMPLE (REAL) ARGUMENTS, COMPLEX RESULTS
+
+Please note that some of the trigonometric functions can break out
+from the B<real axis> into the B<complex plane>. For example
+C<asin(2)> has no definition for plain real numbers but it has
+definition for complex numbers.
+
+In Perl terms this means that supplying the usual Perl numbers (also
+known as scalars, please see L<perldata>) as input for the
+trigonometric functions might produce as output results that no more
+are simple real numbers: instead they are complex numbers.
+
+The C<Math::Trig> handles this by using the C<Math::Complex> package
+which knows how to handle complex numbers, please see L<Math::Complex>
+for more information. In practice you need not to worry about getting
+complex numbers as results because the C<Math::Complex> takes care of
+details like for example how to display complex numbers. For example:
+
+    print asin(2), "\n";
+
+should produce something like this (take or leave few last decimals):
+
+    1.5707963267949-1.31695789692482i
+
+That is, a complex number with the real part of approximately C<1.571>
+and the imaginary part of approximately C<-1.317>.
+
+=head1 PLANE ANGLE CONVERSIONS
+
+(Plane, 2-dimensional) angles may be converted with the following functions.
+
+=over
+
+=item deg2rad
+
+    $radians  = deg2rad($degrees);
+
+=item grad2rad
+
+    $radians  = grad2rad($gradians);
+
+=item rad2deg
+
+    $degrees  = rad2deg($radians);
+
+=item grad2deg
+
+    $degrees  = grad2deg($gradians);
+
+=item deg2grad
+
+    $gradians = deg2grad($degrees);
+
+=item rad2grad
+
+    $gradians = rad2grad($radians);
+
+=back
+
+The full circle is 2 I<pi> radians or I<360> degrees or I<400> gradians.
+The result is by default wrapped to be inside the [0, {2pi,360,400}[ circle.
+If you don't want this, supply a true second argument:
+
+    $zillions_of_radians  = deg2rad($zillions_of_degrees, 1);
+    $negative_degrees     = rad2deg($negative_radians, 1);
+
+You can also do the wrapping explicitly by rad2rad(), deg2deg(), and
+grad2grad().
+
+=over 4
+
+=item rad2rad
+
+    $radians_wrapped_by_2pi = rad2rad($radians);
+
+=item deg2deg
+
+    $degrees_wrapped_by_360 = deg2deg($degrees);
+
+=item grad2grad
+
+    $gradians_wrapped_by_400 = grad2grad($gradians);
+
+=back
+
+=head1 RADIAL COORDINATE CONVERSIONS
+
+B<Radial coordinate systems> are the B<spherical> and the B<cylindrical>
+systems, explained shortly in more detail.
+
+You can import radial coordinate conversion functions by using the
+C<:radial> tag:
+
+    use Math::Trig ':radial';
+
+    ($rho, $theta, $z)     = cartesian_to_cylindrical($x, $y, $z);
+    ($rho, $theta, $phi)   = cartesian_to_spherical($x, $y, $z);
+    ($x, $y, $z)           = cylindrical_to_cartesian($rho, $theta, $z);
+    ($rho_s, $theta, $phi) = cylindrical_to_spherical($rho_c, $theta, $z);
+    ($x, $y, $z)           = spherical_to_cartesian($rho, $theta, $phi);
+    ($rho_c, $theta, $z)   = spherical_to_cylindrical($rho_s, $theta, $phi);
+
+B<All angles are in radians>.
+
+=head2 COORDINATE SYSTEMS
+
+B<Cartesian> coordinates are the usual rectangular I<(x, y, z)>-coordinates.
+
+Spherical coordinates, I<(rho, theta, pi)>, are three-dimensional
+coordinates which define a point in three-dimensional space.  They are
+based on a sphere surface.  The radius of the sphere is B<rho>, also
+known as the I<radial> coordinate.  The angle in the I<xy>-plane
+(around the I<z>-axis) is B<theta>, also known as the I<azimuthal>
+coordinate.  The angle from the I<z>-axis is B<phi>, also known as the
+I<polar> coordinate.  The North Pole is therefore I<0, 0, rho>, and
+the Gulf of Guinea (think of the missing big chunk of Africa) I<0,
+pi/2, rho>.  In geographical terms I<phi> is latitude (northward
+positive, southward negative) and I<theta> is longitude (eastward
+positive, westward negative).
+
+B<BEWARE>: some texts define I<theta> and I<phi> the other way round,
+some texts define the I<phi> to start from the horizontal plane, some
+texts use I<r> in place of I<rho>.
+
+Cylindrical coordinates, I<(rho, theta, z)>, are three-dimensional
+coordinates which define a point in three-dimensional space.  They are
+based on a cylinder surface.  The radius of the cylinder is B<rho>,
+also known as the I<radial> coordinate.  The angle in the I<xy>-plane
+(around the I<z>-axis) is B<theta>, also known as the I<azimuthal>
+coordinate.  The third coordinate is the I<z>, pointing up from the
+B<theta>-plane.
+
+=head2 3-D ANGLE CONVERSIONS
+
+Conversions to and from spherical and cylindrical coordinates are
+available.  Please notice that the conversions are not necessarily
+reversible because of the equalities like I<pi> angles being equal to
+I<-pi> angles.
+
+=over 4
+
+=item cartesian_to_cylindrical
+
+    ($rho, $theta, $z) = cartesian_to_cylindrical($x, $y, $z);
+
+=item cartesian_to_spherical
+
+    ($rho, $theta, $phi) = cartesian_to_spherical($x, $y, $z);
+
+=item cylindrical_to_cartesian
+
+    ($x, $y, $z) = cylindrical_to_cartesian($rho, $theta, $z);
+
+=item cylindrical_to_spherical
+
+    ($rho_s, $theta, $phi) = cylindrical_to_spherical($rho_c, $theta, $z);
+
+Notice that when C<$z> is not 0 C<$rho_s> is not equal to C<$rho_c>.
+
+=item spherical_to_cartesian
+
+    ($x, $y, $z) = spherical_to_cartesian($rho, $theta, $phi);
+
+=item spherical_to_cylindrical
+
+    ($rho_c, $theta, $z) = spherical_to_cylindrical($rho_s, $theta, $phi);
+
+Notice that when C<$z> is not 0 C<$rho_c> is not equal to C<$rho_s>.
+
+=back
+
+=head1 GREAT CIRCLE DISTANCES AND DIRECTIONS
+
+A great circle is section of a circle that contains the circle
+diameter: the shortest distance between two (non-antipodal) points on
+the spherical surface goes along the great circle connecting those two
+points.
+
+=head2 great_circle_distance
+
+You can compute spherical distances, called B<great circle distances>,
+by importing the great_circle_distance() function:
+
+  use Math::Trig 'great_circle_distance';
+
+  $distance = great_circle_distance($theta0, $phi0, $theta1, $phi1, [, $rho]);
+
+The I<great circle distance> is the shortest distance between two
+points on a sphere.  The distance is in C<$rho> units.  The C<$rho> is
+optional, it defaults to 1 (the unit sphere), therefore the distance
+defaults to radians.
+
+If you think geographically the I<theta> are longitudes: zero at the
+Greenwhich meridian, eastward positive, westward negative -- and the
+I<phi> are latitudes: zero at the North Pole, northward positive,
+southward negative.  B<NOTE>: this formula thinks in mathematics, not
+geographically: the I<phi> zero is at the North Pole, not at the
+Equator on the west coast of Africa (Bay of Guinea).  You need to
+subtract your geographical coordinates from I<pi/2> (also known as 90
+degrees).
+
+  $distance = great_circle_distance($lon0, pi/2 - $lat0,
+                                    $lon1, pi/2 - $lat1, $rho);
+
+=head2 great_circle_direction
+
+The direction you must follow the great circle (also known as I<bearing>)
+can be computed by the great_circle_direction() function:
+
+  use Math::Trig 'great_circle_direction';
+
+  $direction = great_circle_direction($theta0, $phi0, $theta1, $phi1);
+
+=head2 great_circle_bearing
+
+Alias 'great_circle_bearing' for 'great_circle_direction' is also available.
+
+  use Math::Trig 'great_circle_bearing';
+
+  $direction = great_circle_bearing($theta0, $phi0, $theta1, $phi1);
+
+The result of great_circle_direction is in radians, zero indicating
+straight north, pi or -pi straight south, pi/2 straight west, and
+-pi/2 straight east.
+
+=head2 great_circle_destination
+
+You can inversely compute the destination if you know the
+starting point, direction, and distance:
+
+  use Math::Trig 'great_circle_destination';
+
+  # $diro is the original direction,
+  # for example from great_circle_bearing().
+  # $distance is the angular distance in radians,
+  # for example from great_circle_distance().
+  # $thetad and $phid are the destination coordinates,
+  # $dird is the final direction at the destination.
+
+  ($thetad, $phid, $dird) =
+    great_circle_destination($theta, $phi, $diro, $distance);
+
+or the midpoint if you know the end points:
+
+=head2 great_circle_midpoint
+
+  use Math::Trig 'great_circle_midpoint';
+
+  ($thetam, $phim) =
+    great_circle_midpoint($theta0, $phi0, $theta1, $phi1);
+
+The great_circle_midpoint() is just a special case of
+
+=head2 great_circle_waypoint
+
+  use Math::Trig 'great_circle_waypoint';
+
+  ($thetai, $phii) =
+    great_circle_waypoint($theta0, $phi0, $theta1, $phi1, $way);
+
+Where the $way is a value from zero ($theta0, $phi0) to one ($theta1,
+$phi1).  Note that antipodal points (where their distance is I<pi>
+radians) do not have waypoints between them (they would have an an
+"equator" between them), and therefore C<undef> is returned for
+antipodal points.  If the points are the same and the distance
+therefore zero and all waypoints therefore identical, the first point
+(either point) is returned.
+
+The thetas, phis, direction, and distance in the above are all in radians.
+
+You can import all the great circle formulas by
+
+  use Math::Trig ':great_circle';
+
+Notice that the resulting directions might be somewhat surprising if
+you are looking at a flat worldmap: in such map projections the great
+circles quite often do not look like the shortest routes --  but for
+example the shortest possible routes from Europe or North America to
+Asia do often cross the polar regions.  (The common Mercator projection
+does B<not> show great circles as straight lines: straight lines in the
+Mercator projection are lines of constant bearing.)
+
+=head1 EXAMPLES
+
+To calculate the distance between London (51.3N 0.5W) and Tokyo
+(35.7N 139.8E) in kilometers:
+
+    use Math::Trig qw(great_circle_distance deg2rad);
+
+    # Notice the 90 - latitude: phi zero is at the North Pole.
+    sub NESW { deg2rad($_[0]), deg2rad(90 - $_[1]) }
+    my @L = NESW( -0.5, 51.3);
+    my @T = NESW(139.8, 35.7);
+    my $km = great_circle_distance(@L, @T, 6378); # About 9600 km.
+
+The direction you would have to go from London to Tokyo (in radians,
+straight north being zero, straight east being pi/2).
+
+    use Math::Trig qw(great_circle_direction);
+
+    my $rad = great_circle_direction(@L, @T); # About 0.547 or 0.174 pi.
+
+The midpoint between London and Tokyo being
+
+    use Math::Trig qw(great_circle_midpoint);
+
+    my @M = great_circle_midpoint(@L, @T);
+
+or about 69 N 89 E, in the frozen wastes of Siberia.
+
+B<NOTE>: you B<cannot> get from A to B like this:
+
+   Dist = great_circle_distance(A, B)
+   Dir  = great_circle_direction(A, B)
+   C    = great_circle_destination(A, Dist, Dir)
+
+and expect C to be B, because the bearing constantly changes when
+going from A to B (except in some special case like the meridians or
+the circles of latitudes) and in great_circle_destination() one gives
+a B<constant> bearing to follow.
+
+=head2 CAVEAT FOR GREAT CIRCLE FORMULAS
+
+The answers may be off by few percentages because of the irregular
+(slightly aspherical) form of the Earth.  The errors are at worst
+about 0.55%, but generally below 0.3%.
+
+=head2 Real-valued asin and acos
+
+For small inputs asin() and acos() may return complex numbers even
+when real numbers would be enough and correct, this happens because of
+floating-point inaccuracies.  You can see these inaccuracies for
+example by trying theses:
+
+  print cos(1e-6)**2+sin(1e-6)**2 - 1,"\n";
+  printf "%.20f", cos(1e-6)**2+sin(1e-6)**2,"\n";
+
+which will print something like this
+
+  -1.11022302462516e-16
+  0.99999999999999988898
+
+even though the expected results are of course exactly zero and one.
+The formulas used to compute asin() and acos() are quite sensitive to
+this, and therefore they might accidentally slip into the complex
+plane even when they should not.  To counter this there are two
+interfaces that are guaranteed to return a real-valued output.
+
+=over 4
+
+=item asin_real
+
+    use Math::Trig qw(asin_real);
+
+    $real_angle = asin_real($input_sin);
+
+Return a real-valued arcus sine if the input is between [-1, 1],
+B<inclusive> the endpoints.  For inputs greater than one, pi/2
+is returned.  For inputs less than minus one, -pi/2 is returned.
+
+=item acos_real
+
+    use Math::Trig qw(acos_real);
+
+    $real_angle = acos_real($input_cos);
+
+Return a real-valued arcus cosine if the input is between [-1, 1],
+B<inclusive> the endpoints.  For inputs greater than one, zero
+is returned.  For inputs less than minus one, pi is returned.
+
+=back
+
+=head1 BUGS
+
+Saying C<use Math::Trig;> exports many mathematical routines in the
+caller environment and even overrides some (C<sin>, C<cos>).  This is
+construed as a feature by the Authors, actually... ;-)
+
+The code is not optimized for speed, especially because we use
+C<Math::Complex> and thus go quite near complex numbers while doing
+the computations even when the arguments are not. This, however,
+cannot be completely avoided if we want things like C<asin(2)> to give
+an answer instead of giving a fatal runtime error.
+
+Do not attempt navigation using these formulas.
+
+L<Math::Complex>
+
+=head1 AUTHORS
+
+Jarkko Hietaniemi <F<jhi!at!iki.fi>>,
+Raphael Manfredi <F<Raphael_Manfredi!at!pobox.com>>,
+Zefram <zefram@fysh.org>
+
+=head1 LICENSE
+
+This library is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself. 
+
+=cut
+
+# eof
diff --git a/lib/5.24.1/Memoize.pm b/lib/5.24.1/Memoize.pm
new file mode 100644
index 00000000..f4e6522d
--- /dev/null
+++ b/lib/5.24.1/Memoize.pm
@@ -0,0 +1,1077 @@
+# -*- mode: perl; perl-indent-level: 2; -*-
+# Memoize.pm
+#
+# Transparent memoization of idempotent functions
+#
+# Copyright 1998, 1999, 2000, 2001, 2012 M. J. Dominus.
+# You may copy and distribute this program under the
+# same terms as Perl itself.  If in doubt, 
+# write to mjd-perl-memoize+@plover.com for a license.
+
+package Memoize;
+$VERSION = '1.03_01';
+
+# Compile-time constants
+sub SCALAR () { 0 } 
+sub LIST () { 1 } 
+
+
+#
+# Usage memoize(functionname/ref,
+#               { NORMALIZER => coderef, INSTALL => name,
+#                 LIST_CACHE => descriptor, SCALAR_CACHE => descriptor }
+#
+
+use Carp;
+use Exporter;
+use vars qw($DEBUG);
+use Config;                     # Dammit.
+@ISA = qw(Exporter);
+@EXPORT = qw(memoize);
+@EXPORT_OK = qw(unmemoize flush_cache);
+use strict;
+
+my %memotable;
+my %revmemotable;
+my @CONTEXT_TAGS = qw(MERGE TIE MEMORY FAULT HASH);
+my %IS_CACHE_TAG = map {($_ => 1)} @CONTEXT_TAGS;
+
+# Raise an error if the user tries to specify one of thesepackage as a
+# tie for LIST_CACHE
+
+my %scalar_only = map {($_ => 1)} qw(DB_File GDBM_File SDBM_File ODBM_File NDBM_File);
+
+sub memoize {
+  my $fn = shift;
+  my %options = @_;
+  my $options = \%options;
+  
+  unless (defined($fn) && 
+	  (ref $fn eq 'CODE' || ref $fn eq '')) {
+    croak "Usage: memoize 'functionname'|coderef {OPTIONS}";
+  }
+
+  my $uppack = caller;		# TCL me Elmo!
+  my $cref;			# Code reference to original function
+  my $name = (ref $fn ? undef : $fn);
+
+  # Convert function names to code references
+  $cref = &_make_cref($fn, $uppack);
+
+  # Locate function prototype, if any
+  my $proto = prototype $cref;
+  if (defined $proto) { $proto = "($proto)" }
+  else { $proto = "" }
+
+  # I would like to get rid of the eval, but there seems not to be any
+  # other way to set the prototype properly.  The switch here for
+  # 'usethreads' works around a bug in threadperl having to do with
+  # magic goto.  It would be better to fix the bug and use the magic
+  # goto version everywhere.
+  my $wrapper = 
+      $Config{usethreads} 
+        ? eval "sub $proto { &_memoizer(\$cref, \@_); }" 
+        : eval "sub $proto { unshift \@_, \$cref; goto &_memoizer; }";
+
+  my $normalizer = $options{NORMALIZER};
+  if (defined $normalizer  && ! ref $normalizer) {
+    $normalizer = _make_cref($normalizer, $uppack);
+  }
+  
+  my $install_name;
+  if (defined $options->{INSTALL}) {
+    # INSTALL => name
+    $install_name = $options->{INSTALL};
+  } elsif (! exists $options->{INSTALL}) {
+    # No INSTALL option provided; use original name if possible
+    $install_name = $name;
+  } else {
+    # INSTALL => undef  means don't install
+  }
+
+  if (defined $install_name) {
+    $install_name = $uppack . '::' . $install_name
+	unless $install_name =~ /::/;
+    no strict;
+    local($^W) = 0;	       # ``Subroutine $install_name redefined at ...''
+    *{$install_name} = $wrapper; # Install memoized version
+  }
+
+  $revmemotable{$wrapper} = "" . $cref; # Turn code ref into hash key
+
+  # These will be the caches
+  my %caches;
+  for my $context (qw(SCALAR LIST)) {
+    # suppress subsequent 'uninitialized value' warnings
+    $options{"${context}_CACHE"} ||= ''; 
+
+    my $cache_opt = $options{"${context}_CACHE"};
+    my @cache_opt_args;
+    if (ref $cache_opt) {
+      @cache_opt_args = @$cache_opt;
+      $cache_opt = shift @cache_opt_args;
+    }
+    if ($cache_opt eq 'FAULT') { # no cache
+      $caches{$context} = undef;
+    } elsif ($cache_opt eq 'HASH') { # user-supplied hash
+      my $cache = $cache_opt_args[0];
+      my $package = ref(tied %$cache);
+      if ($context eq 'LIST' && $scalar_only{$package}) {
+        croak("You can't use $package for LIST_CACHE because it can only store scalars");
+      }
+      $caches{$context} = $cache;
+    } elsif ($cache_opt eq '' ||  $IS_CACHE_TAG{$cache_opt}) {
+      # default is that we make up an in-memory hash
+      $caches{$context} = {};
+      # (this might get tied later, or MERGEd away)
+    } else {
+      croak "Unrecognized option to `${context}_CACHE': `$cache_opt' should be one of (@CONTEXT_TAGS); aborting";
+    }
+  }
+
+  # Perhaps I should check here that you didn't supply *both* merge
+  # options.  But if you did, it does do something reasonable: They
+  # both get merged to the same in-memory hash.
+  if ($options{SCALAR_CACHE} eq 'MERGE' || $options{LIST_CACHE} eq 'MERGE') {
+    $options{MERGED} = 1;
+    $caches{SCALAR} = $caches{LIST};
+  }
+
+  # Now deal with the TIE options
+  {
+    my $context;
+    foreach $context (qw(SCALAR LIST)) {
+      # If the relevant option wasn't `TIE', this call does nothing.
+      _my_tie($context, $caches{$context}, $options);  # Croaks on failure
+    }
+  }
+  
+  # We should put some more stuff in here eventually.
+  # We've been saying that for serveral versions now.
+  # And you know what?  More stuff keeps going in!
+  $memotable{$cref} = 
+  {
+    O => $options,  # Short keys here for things we need to access frequently
+    N => $normalizer,
+    U => $cref,
+    MEMOIZED => $wrapper,
+    PACKAGE => $uppack,
+    NAME => $install_name,
+    S => $caches{SCALAR},
+    L => $caches{LIST},
+  };
+
+  $wrapper			# Return just memoized version
+}
+
+# This function tries to load a tied hash class and tie the hash to it.
+sub _my_tie {
+  my ($context, $hash, $options) = @_;
+  my $fullopt = $options->{"${context}_CACHE"};
+
+  # We already checked to make sure that this works.
+  my $shortopt = (ref $fullopt) ? $fullopt->[0] : $fullopt;
+  
+  return unless defined $shortopt && $shortopt eq 'TIE';
+  carp("TIE option to memoize() is deprecated; use HASH instead")
+      if $^W;
+
+  my @args = ref $fullopt ? @$fullopt : ();
+  shift @args;
+  my $module = shift @args;
+  if ($context eq 'LIST' && $scalar_only{$module}) {
+    croak("You can't use $module for LIST_CACHE because it can only store scalars");
+  }
+  my $modulefile = $module . '.pm';
+  $modulefile =~ s{::}{/}g;
+  eval {
+    local @INC = @INC;
+    pop @INC if $INC[-1] eq '.';
+    require $modulefile
+  };
+  if ($@) {
+    croak "Memoize: Couldn't load hash tie module `$module': $@; aborting";
+  }
+  my $rc = (tie %$hash => $module, @args);
+  unless ($rc) {
+    croak "Memoize: Couldn't tie hash to `$module': $!; aborting";
+  }
+  1;
+}
+
+sub flush_cache {
+  my $func = _make_cref($_[0], scalar caller);
+  my $info = $memotable{$revmemotable{$func}};
+  die "$func not memoized" unless defined $info;
+  for my $context (qw(S L)) {
+    my $cache = $info->{$context};
+    if (tied %$cache && ! (tied %$cache)->can('CLEAR')) {
+      my $funcname = defined($info->{NAME}) ? 
+          "function $info->{NAME}" : "anonymous function $func";
+      my $context = {S => 'scalar', L => 'list'}->{$context};
+      croak "Tied cache hash for $context-context $funcname does not support flushing";
+    } else {
+      %$cache = ();
+    }
+  }
+}
+
+# This is the function that manages the memo tables.
+sub _memoizer {
+  my $orig = shift;		# stringized version of ref to original func.
+  my $info = $memotable{$orig};
+  my $normalizer = $info->{N};
+  
+  my $argstr;
+  my $context = (wantarray() ? LIST : SCALAR);
+
+  if (defined $normalizer) { 
+    no strict;
+    if ($context == SCALAR) {
+      $argstr = &{$normalizer}(@_);
+    } elsif ($context == LIST) {
+      ($argstr) = &{$normalizer}(@_);
+    } else {
+      croak "Internal error \#41; context was neither LIST nor SCALAR\n";
+    }
+  } else {                      # Default normalizer
+    local $^W = 0;
+    $argstr = join chr(28),@_;  
+  }
+
+  if ($context == SCALAR) {
+    my $cache = $info->{S};
+    _crap_out($info->{NAME}, 'scalar') unless $cache;
+    if (exists $cache->{$argstr}) { 
+      return $info->{O}{MERGED}
+        ? $cache->{$argstr}[0] : $cache->{$argstr};
+    } else {
+      my $val = &{$info->{U}}(@_);
+      # Scalars are considered to be lists; store appropriately
+      if ($info->{O}{MERGED}) {
+	$cache->{$argstr} = [$val];
+      } else {
+	$cache->{$argstr} = $val;
+      }
+      $val;
+    }
+  } elsif ($context == LIST) {
+    my $cache = $info->{L};
+    _crap_out($info->{NAME}, 'list') unless $cache;
+    if (exists $cache->{$argstr}) {
+      return @{$cache->{$argstr}};
+    } else {
+      my @q = &{$info->{U}}(@_);
+      $cache->{$argstr} = \@q;
+      @q;
+    }
+  } else {
+    croak "Internal error \#42; context was neither LIST nor SCALAR\n";
+  }
+}
+
+sub unmemoize {
+  my $f = shift;
+  my $uppack = caller;
+  my $cref = _make_cref($f, $uppack);
+
+  unless (exists $revmemotable{$cref}) {
+    croak "Could not unmemoize function `$f', because it was not memoized to begin with";
+  }
+  
+  my $tabent = $memotable{$revmemotable{$cref}};
+  unless (defined $tabent) {
+    croak "Could not figure out how to unmemoize function `$f'";
+  }
+  my $name = $tabent->{NAME};
+  if (defined $name) {
+    no strict;
+    local($^W) = 0;	       # ``Subroutine $install_name redefined at ...''
+    *{$name} = $tabent->{U}; # Replace with original function
+  }
+  undef $memotable{$revmemotable{$cref}};
+  undef $revmemotable{$cref};
+
+  # This removes the last reference to the (possibly tied) memo tables
+  # my ($old_function, $memotabs) = @{$tabent}{'U','S','L'};
+  # undef $tabent; 
+
+#  # Untie the memo tables if they were tied.
+#  my $i;
+#  for $i (0,1) {
+#    if (tied %{$memotabs->[$i]}) {
+#      warn "Untying hash #$i\n";
+#      untie %{$memotabs->[$i]};
+#    }
+#  }
+
+  $tabent->{U};
+}
+
+sub _make_cref {
+  my $fn = shift;
+  my $uppack = shift;
+  my $cref;
+  my $name;
+
+  if (ref $fn eq 'CODE') {
+    $cref = $fn;
+  } elsif (! ref $fn) {
+    if ($fn =~ /::/) {
+      $name = $fn;
+    } else {
+      $name = $uppack . '::' . $fn;
+    }
+    no strict;
+    if (defined $name and !defined(&$name)) {
+      croak "Cannot operate on nonexistent function `$fn'";
+    }
+#    $cref = \&$name;
+    $cref = *{$name}{CODE};
+  } else {
+    my $parent = (caller(1))[3]; # Function that called _make_cref
+    croak "Usage: argument 1 to `$parent' must be a function name or reference.\n";
+  }
+  $DEBUG and warn "${name}($fn) => $cref in _make_cref\n";
+  $cref;
+}
+
+sub _crap_out {
+  my ($funcname, $context) = @_;
+  if (defined $funcname) {
+    croak "Function `$funcname' called in forbidden $context context; faulting";
+  } else {
+    croak "Anonymous function called in forbidden $context context; faulting";
+  }
+}
+
+1;
+
+
+
+
+
+=head1 NAME
+
+Memoize - Make functions faster by trading space for time
+
+=head1 SYNOPSIS
+
+        # This is the documentation for Memoize 1.03
+	use Memoize;
+	memoize('slow_function');
+	slow_function(arguments);    # Is faster than it was before
+
+
+This is normally all you need to know.  However, many options are available:
+
+	memoize(function, options...);
+
+Options include:
+
+	NORMALIZER => function
+	INSTALL => new_name
+
+	SCALAR_CACHE => 'MEMORY'
+        SCALAR_CACHE => ['HASH', \%cache_hash ]
+	SCALAR_CACHE => 'FAULT'
+	SCALAR_CACHE => 'MERGE'
+
+	LIST_CACHE => 'MEMORY'
+        LIST_CACHE => ['HASH', \%cache_hash ]
+	LIST_CACHE => 'FAULT'
+	LIST_CACHE => 'MERGE'
+
+=head1 DESCRIPTION
+
+`Memoizing' a function makes it faster by trading space for time.  It
+does this by caching the return values of the function in a table.
+If you call the function again with the same arguments, C<memoize>
+jumps in and gives you the value out of the table, instead of letting
+the function compute the value all over again.
+
+Here is an extreme example.  Consider the Fibonacci sequence, defined
+by the following function:
+
+	# Compute Fibonacci numbers
+	sub fib {
+	  my $n = shift;
+	  return $n if $n < 2;
+	  fib($n-1) + fib($n-2);
+	}
+
+This function is very slow.  Why?  To compute fib(14), it first wants
+to compute fib(13) and fib(12), and add the results.  But to compute
+fib(13), it first has to compute fib(12) and fib(11), and then it
+comes back and computes fib(12) all over again even though the answer
+is the same.  And both of the times that it wants to compute fib(12),
+it has to compute fib(11) from scratch, and then it has to do it
+again each time it wants to compute fib(13).  This function does so
+much recomputing of old results that it takes a really long time to
+run---fib(14) makes 1,200 extra recursive calls to itself, to compute
+and recompute things that it already computed.
+
+This function is a good candidate for memoization.  If you memoize the
+`fib' function above, it will compute fib(14) exactly once, the first
+time it needs to, and then save the result in a table.  Then if you
+ask for fib(14) again, it gives you the result out of the table.
+While computing fib(14), instead of computing fib(12) twice, it does
+it once; the second time it needs the value it gets it from the table.
+It doesn't compute fib(11) four times; it computes it once, getting it
+from the table the next three times.  Instead of making 1,200
+recursive calls to `fib', it makes 15.  This makes the function about
+150 times faster.
+
+You could do the memoization yourself, by rewriting the function, like
+this:
+
+	# Compute Fibonacci numbers, memoized version
+	{ my @fib;
+  	  sub fib {
+	    my $n = shift;
+	    return $fib[$n] if defined $fib[$n];
+	    return $fib[$n] = $n if $n < 2;
+	    $fib[$n] = fib($n-1) + fib($n-2);
+	  }
+        }
+
+Or you could use this module, like this:
+
+	use Memoize;
+	memoize('fib');
+
+	# Rest of the fib function just like the original version.
+
+This makes it easy to turn memoizing on and off.
+
+Here's an even simpler example: I wrote a simple ray tracer; the
+program would look in a certain direction, figure out what it was
+looking at, and then convert the `color' value (typically a string
+like `red') of that object to a red, green, and blue pixel value, like
+this:
+
+    for ($direction = 0; $direction < 300; $direction++) {
+      # Figure out which object is in direction $direction
+      $color = $object->{color};
+      ($r, $g, $b) = @{&ColorToRGB($color)};
+      ...
+    }
+
+Since there are relatively few objects in a picture, there are only a
+few colors, which get looked up over and over again.  Memoizing
+C<ColorToRGB> sped up the program by several percent.
+
+=head1 DETAILS
+
+This module exports exactly one function, C<memoize>.  The rest of the
+functions in this package are None of Your Business.
+
+You should say
+
+	memoize(function)
+
+where C<function> is the name of the function you want to memoize, or
+a reference to it.  C<memoize> returns a reference to the new,
+memoized version of the function, or C<undef> on a non-fatal error.
+At present, there are no non-fatal errors, but there might be some in
+the future.
+
+If C<function> was the name of a function, then C<memoize> hides the
+old version and installs the new memoized version under the old name,
+so that C<&function(...)> actually invokes the memoized version.
+
+=head1 OPTIONS
+
+There are some optional options you can pass to C<memoize> to change
+the way it behaves a little.  To supply options, invoke C<memoize>
+like this:
+
+	memoize(function, NORMALIZER => function,
+			  INSTALL => newname,
+                          SCALAR_CACHE => option,
+	                  LIST_CACHE => option
+			 );
+
+Each of these options is optional; you can include some, all, or none
+of them.
+
+=head2 INSTALL
+
+If you supply a function name with C<INSTALL>, memoize will install
+the new, memoized version of the function under the name you give.
+For example, 
+
+	memoize('fib', INSTALL => 'fastfib')
+
+installs the memoized version of C<fib> as C<fastfib>; without the
+C<INSTALL> option it would have replaced the old C<fib> with the
+memoized version.  
+
+To prevent C<memoize> from installing the memoized version anywhere, use
+C<INSTALL =E<gt> undef>.
+
+=head2 NORMALIZER
+
+Suppose your function looks like this:
+
+	# Typical call: f('aha!', A => 11, B => 12);
+	sub f {
+	  my $a = shift;
+	  my %hash = @_;
+	  $hash{B} ||= 2;  # B defaults to 2
+	  $hash{C} ||= 7;  # C defaults to 7
+
+	  # Do something with $a, %hash
+	}
+
+Now, the following calls to your function are all completely equivalent:
+
+	f(OUCH);
+	f(OUCH, B => 2);
+	f(OUCH, C => 7);
+	f(OUCH, B => 2, C => 7);
+	f(OUCH, C => 7, B => 2);
+	(etc.)
+
+However, unless you tell C<Memoize> that these calls are equivalent,
+it will not know that, and it will compute the values for these
+invocations of your function separately, and store them separately.
+
+To prevent this, supply a C<NORMALIZER> function that turns the
+program arguments into a string in a way that equivalent arguments
+turn into the same string.  A C<NORMALIZER> function for C<f> above
+might look like this:
+
+	sub normalize_f {
+	  my $a = shift;
+	  my %hash = @_;
+	  $hash{B} ||= 2;
+	  $hash{C} ||= 7;
+
+	  join(',', $a, map ($_ => $hash{$_}) sort keys %hash);
+	}
+
+Each of the argument lists above comes out of the C<normalize_f>
+function looking exactly the same, like this:
+
+	OUCH,B,2,C,7
+
+You would tell C<Memoize> to use this normalizer this way:
+
+	memoize('f', NORMALIZER => 'normalize_f');
+
+C<memoize> knows that if the normalized version of the arguments is
+the same for two argument lists, then it can safely look up the value
+that it computed for one argument list and return it as the result of
+calling the function with the other argument list, even if the
+argument lists look different.
+
+The default normalizer just concatenates the arguments with character
+28 in between.  (In ASCII, this is called FS or control-\.)  This
+always works correctly for functions with only one string argument,
+and also when the arguments never contain character 28.  However, it
+can confuse certain argument lists:
+
+	normalizer("a\034", "b")
+	normalizer("a", "\034b")
+	normalizer("a\034\034b")
+
+for example.
+
+Since hash keys are strings, the default normalizer will not
+distinguish between C<undef> and the empty string.  It also won't work
+when the function's arguments are references.  For example, consider a
+function C<g> which gets two arguments: A number, and a reference to
+an array of numbers:
+
+	g(13, [1,2,3,4,5,6,7]);
+
+The default normalizer will turn this into something like
+C<"13\034ARRAY(0x436c1f)">.  That would be all right, except that a
+subsequent array of numbers might be stored at a different location
+even though it contains the same data.  If this happens, C<Memoize>
+will think that the arguments are different, even though they are
+equivalent.  In this case, a normalizer like this is appropriate:
+
+	sub normalize { join ' ', $_[0], @{$_[1]} }
+
+For the example above, this produces the key "13 1 2 3 4 5 6 7".
+
+Another use for normalizers is when the function depends on data other
+than those in its arguments.  Suppose you have a function which
+returns a value which depends on the current hour of the day:
+
+	sub on_duty {
+          my ($problem_type) = @_;
+	  my $hour = (localtime)[2];
+          open my $fh, "$DIR/$problem_type" or die...;
+          my $line;
+          while ($hour-- > 0)
+            $line = <$fh>;
+          } 
+	  return $line;
+	}
+
+At 10:23, this function generates the 10th line of a data file; at
+3:45 PM it generates the 15th line instead.  By default, C<Memoize>
+will only see the $problem_type argument.  To fix this, include the
+current hour in the normalizer:
+
+        sub normalize { join ' ', (localtime)[2], @_ }
+
+The calling context of the function (scalar or list context) is
+propagated to the normalizer.  This means that if the memoized
+function will treat its arguments differently in list context than it
+would in scalar context, you can have the normalizer function select
+its behavior based on the results of C<wantarray>.  Even if called in
+a list context, a normalizer should still return a single string.
+
+=head2 C<SCALAR_CACHE>, C<LIST_CACHE>
+
+Normally, C<Memoize> caches your function's return values into an
+ordinary Perl hash variable.  However, you might like to have the
+values cached on the disk, so that they persist from one run of your
+program to the next, or you might like to associate some other
+interesting semantics with the cached values.
+
+There's a slight complication under the hood of C<Memoize>: There are
+actually I<two> caches, one for scalar values and one for list values.
+When your function is called in scalar context, its return value is
+cached in one hash, and when your function is called in list context,
+its value is cached in the other hash.  You can control the caching
+behavior of both contexts independently with these options.
+
+The argument to C<LIST_CACHE> or C<SCALAR_CACHE> must either be one of
+the following four strings:
+
+	MEMORY
+	FAULT
+	MERGE
+        HASH
+
+or else it must be a reference to an array whose first element is one of
+these four strings, such as C<[HASH, arguments...]>.
+
+=over 4
+
+=item C<MEMORY>
+
+C<MEMORY> means that return values from the function will be cached in
+an ordinary Perl hash variable.  The hash variable will not persist
+after the program exits.  This is the default.
+
+=item C<HASH>
+
+C<HASH> allows you to specify that a particular hash that you supply
+will be used as the cache.  You can tie this hash beforehand to give
+it any behavior you want.
+
+A tied hash can have any semantics at all.  It is typically tied to an
+on-disk database, so that cached values are stored in the database and
+retrieved from it again when needed, and the disk file typically
+persists after your program has exited.  See C<perltie> for more
+complete details about C<tie>.
+
+A typical example is:
+
+        use DB_File;
+        tie my %cache => 'DB_File', $filename, O_RDWR|O_CREAT, 0666;
+        memoize 'function', SCALAR_CACHE => [HASH => \%cache];
+
+This has the effect of storing the cache in a C<DB_File> database
+whose name is in C<$filename>.  The cache will persist after the
+program has exited.  Next time the program runs, it will find the
+cache already populated from the previous run of the program.  Or you
+can forcibly populate the cache by constructing a batch program that
+runs in the background and populates the cache file.  Then when you
+come to run your real program the memoized function will be fast
+because all its results have been precomputed.
+
+Another reason to use C<HASH> is to provide your own hash variable.
+You can then inspect or modify the contents of the hash to gain finer
+control over the cache management.
+
+=item C<TIE>
+
+This option is no longer supported.  It is still documented only to
+aid in the debugging of old programs that use it.  Old programs should
+be converted to use the C<HASH> option instead.
+
+        memoize ... ['TIE', PACKAGE, ARGS...]
+
+is merely a shortcut for
+
+        require PACKAGE;
+	{ tie my %cache, PACKAGE, ARGS...;
+          memoize ... [HASH => \%cache];
+        }
+
+=item C<FAULT>
+
+C<FAULT> means that you never expect to call the function in scalar
+(or list) context, and that if C<Memoize> detects such a call, it
+should abort the program.  The error message is one of
+
+	`foo' function called in forbidden list context at line ...
+	`foo' function called in forbidden scalar context at line ...
+
+=item C<MERGE>
+
+C<MERGE> normally means that the memoized function does not
+distinguish between list and sclar context, and that return values in
+both contexts should be stored together.  Both C<LIST_CACHE =E<gt>
+MERGE> and C<SCALAR_CACHE =E<gt> MERGE> mean the same thing.
+
+Consider this function:
+
+	sub complicated {
+          # ... time-consuming calculation of $result
+          return $result;
+        }
+
+The C<complicated> function will return the same numeric C<$result>
+regardless of whether it is called in list or in scalar context.
+
+Normally, the following code will result in two calls to C<complicated>, even
+if C<complicated> is memoized:
+
+    $x = complicated(142);
+    ($y) = complicated(142);
+    $z = complicated(142);
+
+The first call will cache the result, say 37, in the scalar cache; the
+second will cach the list C<(37)> in the list cache.  The third call
+doesn't call the real C<complicated> function; it gets the value 37
+from the scalar cache.
+
+Obviously, the second call to C<complicated> is a waste of time, and
+storing its return value is a waste of space.  Specifying C<LIST_CACHE
+=E<gt> MERGE> will make C<memoize> use the same cache for scalar and
+list context return values, so that the second call uses the scalar
+cache that was populated by the first call.  C<complicated> ends up
+being called only once, and both subsequent calls return C<3> from the
+cache, regardless of the calling context.
+
+=head3 List values in scalar context
+
+Consider this function:
+
+    sub iota { return reverse (1..$_[0]) }
+
+This function normally returns a list.  Suppose you memoize it and
+merge the caches:
+
+    memoize 'iota', SCALAR_CACHE => 'MERGE';
+
+    @i7 = iota(7);
+    $i7 = iota(7);
+
+Here the first call caches the list (1,2,3,4,5,6,7).  The second call
+does not really make sense. C<Memoize> cannot guess what behavior
+C<iota> should have in scalar context without actually calling it in
+scalar context.  Normally C<Memoize> I<would> call C<iota> in scalar
+context and cache the result, but the C<SCALAR_CACHE =E<gt> 'MERGE'>
+option says not to do that, but to use the cache list-context value
+instead. But it cannot return a list of seven elements in a scalar
+context. In this case C<$i7> will receive the B<first element> of the
+cached list value, namely 7.
+
+=head3 Merged disk caches
+
+Another use for C<MERGE> is when you want both kinds of return values
+stored in the same disk file; this saves you from having to deal with
+two disk files instead of one.  You can use a normalizer function to
+keep the two sets of return values separate.  For example:
+
+        tie my %cache => 'MLDBM', 'DB_File', $filename, ...;
+
+	memoize 'myfunc',
+	  NORMALIZER => 'n',
+	  SCALAR_CACHE => [HASH => \%cache],
+	  LIST_CACHE => 'MERGE',
+	;
+
+	sub n {
+	  my $context = wantarray() ? 'L' : 'S';
+	  # ... now compute the hash key from the arguments ...
+	  $hashkey = "$context:$hashkey";
+	}
+
+This normalizer function will store scalar context return values in
+the disk file under keys that begin with C<S:>, and list context
+return values under keys that begin with C<L:>.
+
+=back
+
+=head1 OTHER FACILITIES
+
+=head2 C<unmemoize>
+
+There's an C<unmemoize> function that you can import if you want to.
+Why would you want to?  Here's an example: Suppose you have your cache
+tied to a DBM file, and you want to make sure that the cache is
+written out to disk if someone interrupts the program.  If the program
+exits normally, this will happen anyway, but if someone types
+control-C or something then the program will terminate immediately
+without synchronizing the database.  So what you can do instead is
+
+    $SIG{INT} = sub { unmemoize 'function' };
+
+C<unmemoize> accepts a reference to, or the name of a previously
+memoized function, and undoes whatever it did to provide the memoized
+version in the first place, including making the name refer to the
+unmemoized version if appropriate.  It returns a reference to the
+unmemoized version of the function.
+
+If you ask it to unmemoize a function that was never memoized, it
+croaks.
+
+=head2 C<flush_cache>
+
+C<flush_cache(function)> will flush out the caches, discarding I<all>
+the cached data.  The argument may be a function name or a reference
+to a function.  For finer control over when data is discarded or
+expired, see the documentation for C<Memoize::Expire>, included in
+this package.
+
+Note that if the cache is a tied hash, C<flush_cache> will attempt to
+invoke the C<CLEAR> method on the hash.  If there is no C<CLEAR>
+method, this will cause a run-time error.
+
+An alternative approach to cache flushing is to use the C<HASH> option
+(see above) to request that C<Memoize> use a particular hash variable
+as its cache.  Then you can examine or modify the hash at any time in
+any way you desire.  You may flush the cache by using C<%hash = ()>. 
+
+=head1 CAVEATS
+
+Memoization is not a cure-all:
+
+=over 4
+
+=item *
+
+Do not memoize a function whose behavior depends on program
+state other than its own arguments, such as global variables, the time
+of day, or file input.  These functions will not produce correct
+results when memoized.  For a particularly easy example:
+
+	sub f {
+	  time;
+	}
+
+This function takes no arguments, and as far as C<Memoize> is
+concerned, it always returns the same result.  C<Memoize> is wrong, of
+course, and the memoized version of this function will call C<time> once
+to get the current time, and it will return that same time
+every time you call it after that.
+
+=item *
+
+Do not memoize a function with side effects.
+
+	sub f {
+	  my ($a, $b) = @_;
+          my $s = $a + $b;
+	  print "$a + $b = $s.\n";
+	}
+
+This function accepts two arguments, adds them, and prints their sum.
+Its return value is the numuber of characters it printed, but you
+probably didn't care about that.  But C<Memoize> doesn't understand
+that.  If you memoize this function, you will get the result you
+expect the first time you ask it to print the sum of 2 and 3, but
+subsequent calls will return 1 (the return value of
+C<print>) without actually printing anything.
+
+=item *
+
+Do not memoize a function that returns a data structure that is
+modified by its caller.
+
+Consider these functions:  C<getusers> returns a list of users somehow,
+and then C<main> throws away the first user on the list and prints the
+rest:
+
+	sub main {
+	  my $userlist = getusers();
+	  shift @$userlist;
+	  foreach $u (@$userlist) {
+	    print "User $u\n";
+	  }
+	}
+
+	sub getusers {
+	  my @users;
+	  # Do something to get a list of users;
+	  \@users;  # Return reference to list.
+	}
+
+If you memoize C<getusers> here, it will work right exactly once.  The
+reference to the users list will be stored in the memo table.  C<main>
+will discard the first element from the referenced list.  The next
+time you invoke C<main>, C<Memoize> will not call C<getusers>; it will
+just return the same reference to the same list it got last time.  But
+this time the list has already had its head removed; C<main> will
+erroneously remove another element from it.  The list will get shorter
+and shorter every time you call C<main>.
+
+Similarly, this:
+
+	$u1 = getusers();    
+	$u2 = getusers();    
+	pop @$u1;
+
+will modify $u2 as well as $u1, because both variables are references
+to the same array.  Had C<getusers> not been memoized, $u1 and $u2
+would have referred to different arrays.
+
+=item * 
+
+Do not memoize a very simple function.
+
+Recently someone mentioned to me that the Memoize module made his
+program run slower instead of faster.  It turned out that he was
+memoizing the following function:
+
+    sub square {
+      $_[0] * $_[0];
+    }
+
+I pointed out that C<Memoize> uses a hash, and that looking up a
+number in the hash is necessarily going to take a lot longer than a
+single multiplication.  There really is no way to speed up the
+C<square> function.
+
+Memoization is not magical.
+
+=back
+
+=head1 PERSISTENT CACHE SUPPORT
+
+You can tie the cache tables to any sort of tied hash that you want
+to, as long as it supports C<TIEHASH>, C<FETCH>, C<STORE>, and
+C<EXISTS>.  For example,
+
+        tie my %cache => 'GDBM_File', $filename, O_RDWR|O_CREAT, 0666;
+        memoize 'function', SCALAR_CACHE => [HASH => \%cache];
+
+works just fine.  For some storage methods, you need a little glue.
+
+C<SDBM_File> doesn't supply an C<EXISTS> method, so included in this
+package is a glue module called C<Memoize::SDBM_File> which does
+provide one.  Use this instead of plain C<SDBM_File> to store your
+cache table on disk in an C<SDBM_File> database:
+
+        tie my %cache => 'Memoize::SDBM_File', $filename, O_RDWR|O_CREAT, 0666;
+        memoize 'function', SCALAR_CACHE => [HASH => \%cache];
+
+C<NDBM_File> has the same problem and the same solution.  (Use
+C<Memoize::NDBM_File instead of plain NDBM_File.>)
+
+C<Storable> isn't a tied hash class at all.  You can use it to store a
+hash to disk and retrieve it again, but you can't modify the hash while
+it's on the disk.  So if you want to store your cache table in a
+C<Storable> database, use C<Memoize::Storable>, which puts a hashlike
+front-end onto C<Storable>.  The hash table is actually kept in
+memory, and is loaded from your C<Storable> file at the time you
+memoize the function, and stored back at the time you unmemoize the
+function (or when your program exits):
+
+        tie my %cache => 'Memoize::Storable', $filename;
+	memoize 'function', SCALAR_CACHE => [HASH => \%cache];
+
+        tie my %cache => 'Memoize::Storable', $filename, 'nstore';
+	memoize 'function', SCALAR_CACHE => [HASH => \%cache];
+
+Include the `nstore' option to have the C<Storable> database written
+in `network order'.  (See L<Storable> for more details about this.)
+
+The C<flush_cache()> function will raise a run-time error unless the
+tied package provides a C<CLEAR> method.
+
+=head1 EXPIRATION SUPPORT
+
+See Memoize::Expire, which is a plug-in module that adds expiration
+functionality to Memoize.  If you don't like the kinds of policies
+that Memoize::Expire implements, it is easy to write your own plug-in
+module to implement whatever policy you desire.  Memoize comes with
+several examples.  An expiration manager that implements a LRU policy
+is available on CPAN as Memoize::ExpireLRU.
+
+=head1 BUGS
+
+The test suite is much better, but always needs improvement.
+
+There is some problem with the way C<goto &f> works under threaded
+Perl, perhaps because of the lexical scoping of C<@_>.  This is a bug
+in Perl, and until it is resolved, memoized functions will see a
+slightly different C<caller()> and will perform a little more slowly
+on threaded perls than unthreaded perls.
+
+Some versions of C<DB_File> won't let you store data under a key of
+length 0.  That means that if you have a function C<f> which you
+memoized and the cache is in a C<DB_File> database, then the value of
+C<f()> (C<f> called with no arguments) will not be memoized.  If this
+is a big problem, you can supply a normalizer function that prepends
+C<"x"> to every key.
+
+=head1 MAILING LIST
+
+To join a very low-traffic mailing list for announcements about
+C<Memoize>, send an empty note to C<mjd-perl-memoize-request@plover.com>.
+
+=head1 AUTHOR
+
+Mark-Jason Dominus (C<mjd-perl-memoize+@plover.com>), Plover Systems co.
+
+See the C<Memoize.pm> Page at http://perl.plover.com/Memoize/
+for news and upgrades.  Near this page, at
+http://perl.plover.com/MiniMemoize/ there is an article about
+memoization and about the internals of Memoize that appeared in The
+Perl Journal, issue #13.  (This article is also included in the
+Memoize distribution as `article.html'.)
+
+The author's book I<Higher-Order Perl> (2005, ISBN 1558607013, published
+by Morgan Kaufmann) discusses memoization (and many other 
+topics) in tremendous detail. It is available on-line for free.
+For more information, visit http://hop.perl.plover.com/ .
+
+To join a mailing list for announcements about C<Memoize>, send an
+empty message to C<mjd-perl-memoize-request@plover.com>.  This mailing
+list is for announcements only and has extremely low traffic---fewer than
+two messages per year.
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright 1998, 1999, 2000, 2001, 2012  by Mark Jason Dominus
+
+This library is free software; you may redistribute it and/or modify
+it under the same terms as Perl itself.
+
+=head1 THANK YOU
+
+Many thanks to Florian Ragwitz for administration and packaging
+assistance, to John Tromp for bug reports, to Jonathan Roy for bug reports
+and suggestions, to Michael Schwern for other bug reports and patches,
+to Mike Cariaso for helping me to figure out the Right Thing to Do
+About Expiration, to Joshua Gerth, Joshua Chamas, Jonathan Roy
+(again), Mark D. Anderson, and Andrew Johnson for more suggestions
+about expiration, to Brent Powers for the Memoize::ExpireLRU module,
+to Ariel Scolnicov for delightful messages about the Fibonacci
+function, to Dion Almaer for thought-provoking suggestions about the
+default normalizer, to Walt Mankowski and Kurt Starsinic for much help
+investigating problems under threaded Perl, to Alex Dudkevich for
+reporting the bug in prototyped functions and for checking my patch,
+to Tony Bass for many helpful suggestions, to Jonathan Roy (again) for
+finding a use for C<unmemoize()>, to Philippe Verdret for enlightening
+discussion of C<Hook::PrePostCall>, to Nat Torkington for advice I
+ignored, to Chris Nandor for portability advice, to Randal Schwartz
+for suggesting the 'C<flush_cache> function, and to Jenda Krynicky for
+being a light in the world.
+
+Special thanks to Jarkko Hietaniemi, the 5.8.0 pumpking, for including
+this module in the core and for his patient and helpful guidance
+during the integration process.
+
+=cut
diff --git a/lib/5.24.1/Memoize/AnyDBM_File.pm b/lib/5.24.1/Memoize/AnyDBM_File.pm
new file mode 100644
index 00000000..cf5f7f5b
--- /dev/null
+++ b/lib/5.24.1/Memoize/AnyDBM_File.pm
@@ -0,0 +1,31 @@
+package Memoize::AnyDBM_File;
+
+=head1 NAME
+
+Memoize::AnyDBM_File - glue to provide EXISTS for AnyDBM_File for Storable use
+
+=head1 DESCRIPTION
+
+See L<Memoize>.
+
+=cut
+
+use vars qw(@ISA $VERSION);
+$VERSION = '1.03';
+@ISA = qw(DB_File GDBM_File Memoize::NDBM_File Memoize::SDBM_File ODBM_File) unless @ISA;
+
+my $verbose = 1;
+
+my $mod;
+for $mod (@ISA) {
+#  (my $truemod = $mod) =~ s/^Memoize:://;
+#  my $file = "$mod.pm";
+#  $file =~ s{::}{/}g;
+  if (eval "require $mod") {
+    print STDERR "AnyDBM_File => Selected $mod.\n" if $Verbose;
+    @ISA = ($mod);	# if we leave @ISA alone, warnings abound
+    return 1;
+  }
+}
+
+die "No DBM package was successfully found or installed";
diff --git a/lib/5.24.1/Memoize/Expire.pm b/lib/5.24.1/Memoize/Expire.pm
new file mode 100644
index 00000000..9b3b9444
--- /dev/null
+++ b/lib/5.24.1/Memoize/Expire.pm
@@ -0,0 +1,370 @@
+
+package Memoize::Expire;
+# require 5.00556;
+use Carp;
+$DEBUG = 0;
+$VERSION = '1.03';
+
+# This package will implement expiration by prepending a fixed-length header
+# to the font of the cached data.  The format of the header will be:
+# (4-byte number of last-access-time)  (For LRU when I implement it)
+# (4-byte expiration time: unsigned seconds-since-unix-epoch)
+# (2-byte number-of-uses-before-expire)
+
+sub _header_fmt () { "N N n" }
+sub _header_size () { length(_header_fmt) }
+
+# Usage:  memoize func 
+#         TIE => [Memoize::Expire, LIFETIME => sec, NUM_USES => n,
+#                 TIE => [...] ]
+
+BEGIN {
+  eval {require Time::HiRes};
+  unless ($@) {
+    Time::HiRes->import('time');
+  }
+}
+
+sub TIEHASH {
+  my ($package, %args) = @_;
+  my %cache;
+  if ($args{TIE}) {
+    my ($module, @opts) = @{$args{TIE}};
+    my $modulefile = $module . '.pm';
+    $modulefile =~ s{::}{/}g;
+    eval { require $modulefile };
+    if ($@) {
+      croak "Memoize::Expire: Couldn't load hash tie module `$module': $@; aborting";
+    }
+    my $rc = (tie %cache => $module, @opts);
+    unless ($rc) {
+      croak "Memoize::Expire: Couldn't tie hash to `$module': $@; aborting";
+    }
+  }
+  $args{LIFETIME} ||= 0;
+  $args{NUM_USES} ||= 0;
+  $args{C} = \%cache;
+  bless \%args => $package;
+}
+
+sub STORE {
+  $DEBUG and print STDERR " >> Store $_[1] $_[2]\n";
+  my ($self, $key, $value) = @_;
+  my $expire_time = $self->{LIFETIME} > 0 ? $self->{LIFETIME} + time : 0;
+  # The call that results in a value to store into the cache is the
+  # first of the NUM_USES allowed calls.
+  my $header = _make_header(time, $expire_time, $self->{NUM_USES}-1);
+  $self->{C}{$key} = $header . $value;
+  $value;
+}
+
+sub FETCH {
+  $DEBUG and print STDERR " >> Fetch cached value for $_[1]\n";
+  my ($data, $last_access, $expire_time, $num_uses_left) = _get_item($_[0]{C}{$_[1]});
+  $DEBUG and print STDERR " >>   (ttl: ", ($expire_time-time()), ", nuses: $num_uses_left)\n";
+  $num_uses_left--;
+  $last_access = time;
+  _set_header(@_, $data, $last_access, $expire_time, $num_uses_left);
+  $data;
+}
+
+sub EXISTS {
+  $DEBUG and print STDERR " >> Exists $_[1]\n";
+  unless (exists $_[0]{C}{$_[1]}) {
+    $DEBUG and print STDERR "    Not in underlying hash at all.\n";
+    return 0;
+  }
+  my $item = $_[0]{C}{$_[1]};
+  my ($last_access, $expire_time, $num_uses_left) = _get_header($item);
+  my $ttl = $expire_time - time;
+  if ($DEBUG) {
+    $_[0]{LIFETIME} and print STDERR "    Time to live for this item: $ttl\n";
+    $_[0]{NUM_USES} and print STDERR "    Uses remaining: $num_uses_left\n";
+  }
+  if (   (! $_[0]{LIFETIME} || $expire_time > time)
+      && (! $_[0]{NUM_USES} || $num_uses_left > 0 )) {
+	    $DEBUG and print STDERR "    (Still good)\n";
+    return 1;
+  } else {
+    $DEBUG and print STDERR "    (Expired)\n";
+    return 0;
+  }
+}
+
+# Arguments: last access time, expire time, number of uses remaining
+sub _make_header {
+  pack "N N n", @_;
+}
+
+sub _strip_header {
+  substr($_[0], 10);
+}
+
+# Arguments: last access time, expire time, number of uses remaining
+sub _set_header {
+  my ($self, $key, $data, @header) = @_;
+  $self->{C}{$key} = _make_header(@header) . $data;
+}
+
+sub _get_item {
+  my $data = substr($_[0], 10);
+  my @header = unpack "N N n", substr($_[0], 0, 10);
+#  print STDERR " >> _get_item: $data => $data @header\n";
+  ($data, @header);
+}
+
+# Return last access time, expire time, number of uses remaining
+sub _get_header  {
+  unpack "N N n", substr($_[0], 0, 10);
+}
+
+1;
+
+=head1 NAME 
+
+Memoize::Expire - Plug-in module for automatic expiration of memoized values
+
+=head1 SYNOPSIS
+
+  use Memoize;
+  use Memoize::Expire;
+  tie my %cache => 'Memoize::Expire',
+	  	     LIFETIME => $lifetime,    # In seconds
+		     NUM_USES => $n_uses;
+
+  memoize 'function', SCALAR_CACHE => [HASH => \%cache ];
+
+=head1 DESCRIPTION
+
+Memoize::Expire is a plug-in module for Memoize.  It allows the cached
+values for memoized functions to expire automatically.  This manual
+assumes you are already familiar with the Memoize module.  If not, you
+should study that manual carefully first, paying particular attention
+to the HASH feature.
+
+Memoize::Expire is a layer of software that you can insert in between
+Memoize itself and whatever underlying package implements the cache.
+The layer presents a hash variable whose values expire whenever they
+get too old, have been used too often, or both. You tell C<Memoize> to
+use this forgetful hash as its cache instead of the default, which is
+an ordinary hash.
+
+To specify a real-time timeout, supply the C<LIFETIME> option with a
+numeric value.  Cached data will expire after this many seconds, and
+will be looked up afresh when it expires.  When a data item is looked
+up afresh, its lifetime is reset.
+
+If you specify C<NUM_USES> with an argument of I<n>, then each cached
+data item will be discarded and looked up afresh after the I<n>th time
+you access it.  When a data item is looked up afresh, its number of
+uses is reset.
+
+If you specify both arguments, data will be discarded from the cache
+when either expiration condition holds.
+
+Memoize::Expire uses a real hash internally to store the cached data.
+You can use the C<HASH> option to Memoize::Expire to supply a tied
+hash in place of the ordinary hash that Memoize::Expire will normally
+use.  You can use this feature to add Memoize::Expire as a layer in
+between a persistent disk hash and Memoize.  If you do this, you get a
+persistent disk cache whose entries expire automatically.  For
+example:
+
+  #   Memoize
+  #      |
+  #   Memoize::Expire  enforces data expiration policy
+  #      |
+  #   DB_File  implements persistence of data in a disk file
+  #      |
+  #   Disk file
+
+  use Memoize;
+  use Memoize::Expire;
+  use DB_File;
+
+  # Set up persistence
+  tie my %disk_cache => 'DB_File', $filename, O_CREAT|O_RDWR, 0666];
+
+  # Set up expiration policy, supplying persistent hash as a target
+  tie my %cache => 'Memoize::Expire', 
+	  	     LIFETIME => $lifetime,    # In seconds
+		     NUM_USES => $n_uses,
+                     HASH => \%disk_cache; 
+
+  # Set up memoization, supplying expiring persistent hash for cache
+  memoize 'function', SCALAR_CACHE => [ HASH => \%cache ];
+
+=head1 INTERFACE
+
+There is nothing special about Memoize::Expire.  It is just an
+example.  If you don't like the policy that it implements, you are
+free to write your own expiration policy module that implements
+whatever policy you desire.  Here is how to do that.  Let us suppose
+that your module will be named MyExpirePolicy.
+
+Short summary: You need to create a package that defines four methods:
+
+=over 4
+
+=item 
+TIEHASH
+
+Construct and return cache object.
+
+=item 
+EXISTS
+
+Given a function argument, is the corresponding function value in the
+cache, and if so, is it fresh enough to use?
+
+=item
+FETCH
+
+Given a function argument, look up the corresponding function value in
+the cache and return it.
+
+=item 
+STORE
+
+Given a function argument and the corresponding function value, store
+them into the cache.
+
+=item
+CLEAR
+
+(Optional.)  Flush the cache completely.
+
+=back
+
+The user who wants the memoization cache to be expired according to
+your policy will say so by writing
+
+  tie my %cache => 'MyExpirePolicy', args...;
+  memoize 'function', SCALAR_CACHE => [HASH => \%cache];
+
+This will invoke C<< MyExpirePolicy->TIEHASH(args) >>.
+MyExpirePolicy::TIEHASH should do whatever is appropriate to set up
+the cache, and it should return the cache object to the caller.
+
+For example, MyExpirePolicy::TIEHASH might create an object that
+contains a regular Perl hash (which it will to store the cached
+values) and some extra information about the arguments and how old the
+data is and things like that.  Let us call this object `C'.
+
+When Memoize needs to check to see if an entry is in the cache
+already, it will invoke C<< C->EXISTS(key) >>.  C<key> is the normalized
+function argument.  MyExpirePolicy::EXISTS should return 0 if the key
+is not in the cache, or if it has expired, and 1 if an unexpired value
+is in the cache.  It should I<not> return C<undef>, because there is a
+bug in some versions of Perl that will cause a spurious FETCH if the
+EXISTS method returns C<undef>.
+
+If your EXISTS function returns true, Memoize will try to fetch the
+cached value by invoking C<< C->FETCH(key) >>.  MyExpirePolicy::FETCH should
+return the cached value.  Otherwise, Memoize will call the memoized
+function to compute the appropriate value, and will store it into the
+cache by calling C<< C->STORE(key, value) >>.
+
+Here is a very brief example of a policy module that expires each
+cache item after ten seconds.
+
+	package Memoize::TenSecondExpire;
+
+	sub TIEHASH {
+	  my ($package, %args) = @_;
+          my $cache = $args{HASH} || {};
+	  bless $cache => $package;
+	}
+
+	sub EXISTS {
+	  my ($cache, $key) = @_;
+	  if (exists $cache->{$key} && 
+              $cache->{$key}{EXPIRE_TIME} > time) {
+	    return 1
+	  } else {
+	    return 0;  # Do NOT return `undef' here.
+	  }
+	}
+
+	sub FETCH {
+	  my ($cache, $key) = @_;
+	  return $cache->{$key}{VALUE};
+	}
+
+	sub STORE {
+	  my ($cache, $key, $newvalue) = @_;
+	  $cache->{$key}{VALUE} = $newvalue;
+	  $cache->{$key}{EXPIRE_TIME} = time + 10;
+	}
+
+To use this expiration policy, the user would say
+
+	use Memoize;
+        tie my %cache10sec => 'Memoize::TenSecondExpire';
+	memoize 'function', SCALAR_CACHE => [HASH => \%cache10sec];
+
+Memoize would then call C<function> whenever a cached value was
+entirely absent or was older than ten seconds.
+
+You should always support a C<HASH> argument to C<TIEHASH> that ties
+the underlying cache so that the user can specify that the cache is
+also persistent or that it has some other interesting semantics.  The
+example above demonstrates how to do this, as does C<Memoize::Expire>.
+
+Another sample module, L<Memoize::Saves>, is available in a separate
+distribution on CPAN.  It implements a policy that allows you to
+specify that certain function values would always be looked up afresh.
+See the documentation for details.
+
+=head1 ALTERNATIVES
+
+Brent Powers has a C<Memoize::ExpireLRU> module that was designed to
+work with Memoize and provides expiration of least-recently-used data.
+The cache is held at a fixed number of entries, and when new data
+comes in, the least-recently used data is expired.  See
+L<http://search.cpan.org/search?mode=module&query=ExpireLRU>.
+
+Joshua Chamas's Tie::Cache module may be useful as an expiration
+manager.  (If you try this, let me know how it works out.)
+
+If you develop any useful expiration managers that you think should be
+distributed with Memoize, please let me know.
+
+=head1 CAVEATS
+
+This module is experimental, and may contain bugs.  Please report bugs
+to the address below.
+
+Number-of-uses is stored as a 16-bit unsigned integer, so can't exceed
+65535.
+
+Because of clock granularity, expiration times may occur up to one
+second sooner than you expect.  For example, suppose you store a value
+with a lifetime of ten seconds, and you store it at 12:00:00.998 on a
+certain day.  Memoize will look at the clock and see 12:00:00.  Then
+9.01 seconds later, at 12:00:10.008 you try to read it back.  Memoize
+will look at the clock and see 12:00:10 and conclude that the value
+has expired.  This will probably not occur if you have
+C<Time::HiRes> installed.
+
+=head1 AUTHOR
+
+Mark-Jason Dominus (mjd-perl-memoize+@plover.com)
+
+Mike Cariaso provided valuable insight into the best way to solve this
+problem.
+
+=head1 SEE ALSO
+
+perl(1)
+
+The Memoize man page.
+
+http://www.plover.com/~mjd/perl/Memoize/  (for news and updates)
+
+I maintain a mailing list on which I occasionally announce new
+versions of Memoize.  The list is for announcements only, not
+discussion.  To join, send an empty message to
+mjd-perl-memoize-request@Plover.com.
+
+=cut
diff --git a/lib/5.24.1/Memoize/ExpireFile.pm b/lib/5.24.1/Memoize/ExpireFile.pm
new file mode 100644
index 00000000..06b72f8e
--- /dev/null
+++ b/lib/5.24.1/Memoize/ExpireFile.pm
@@ -0,0 +1,52 @@
+package Memoize::ExpireFile;
+
+=head1 NAME
+
+Memoize::ExpireFile - test for Memoize expiration semantics
+
+=head1 DESCRIPTION
+
+See L<Memoize::Expire>.
+
+=cut
+
+$VERSION = '1.03';
+use Carp;
+
+my $Zero = pack("N", 0);
+
+sub TIEHASH {
+  my ($package, %args) = @_;
+  my $cache = $args{HASH} || {};
+  bless {ARGS => \%args, C => $cache} => $package;
+}
+
+
+sub STORE {
+#  print "Expiry manager STORE handler\n";
+  my ($self, $key, $data) = @_;
+  my $cache = $self->{C};
+  my $cur_date = pack("N", (stat($key))[9]);
+  $cache->{"C$key"} = $data;
+  $cache->{"T$key"} = $cur_date;
+}
+
+sub FETCH {
+  my ($self, $key) = @_;
+  $self->{C}{"C$key"};
+}
+
+sub EXISTS {
+#  print "Expiry manager EXISTS handler\n";
+  my ($self, $key) = @_;
+  my $cache_date = $self->{C}{"T$key"} || $Zero;
+  my $file_date = pack("N", (stat($key))[9]);#
+#  if ($self->{ARGS}{CHECK_DATE} && $old_date gt $cur_date) {
+#    return $self->{ARGS}{CHECK_DATE}->($key, $old_date, $cur_date);
+#  } 
+  my $res = $cache_date ge $file_date;
+#  print $res ? "... still good\n" : "... expired\n";
+  $res;
+}
+
+1;
diff --git a/lib/5.24.1/Memoize/ExpireTest.pm b/lib/5.24.1/Memoize/ExpireTest.pm
new file mode 100644
index 00000000..7f7dd28a
--- /dev/null
+++ b/lib/5.24.1/Memoize/ExpireTest.pm
@@ -0,0 +1,49 @@
+package Memoize::ExpireTest;
+
+=head1 NAME
+
+Memoize::ExpireTest - test for Memoize expiration semantics
+
+=head1 DESCRIPTION
+
+This module is just for testing expiration semantics.  It's not a very
+good example of how to write an expiration module.
+
+If you are looking for an example, I recommend that you look at the
+simple example in the Memoize::Expire documentation, or at the code
+for Memoize::Expire itself.
+
+If you have questions, I will be happy to answer them if you send them
+to mjd-perl-memoize+@plover.com.
+
+=cut
+
+$VERSION = '1.03';
+my %cache;
+
+sub TIEHASH {	
+  my ($pack) = @_;
+  bless \%cache => $pack;
+}
+
+sub EXISTS {
+  my ($cache, $key) = @_;
+  exists $cache->{$key} ? 1 : 0;
+}
+
+sub FETCH {
+  my ($cache, $key) = @_;
+  $cache->{$key};
+}
+
+sub STORE {
+  my ($cache, $key, $val) = @_;
+  $cache->{$key} = $val;
+}
+
+sub expire {
+  my ($key) = @_;
+  delete $cache{$key};
+}
+
+1;
diff --git a/lib/5.24.1/Memoize/NDBM_File.pm b/lib/5.24.1/Memoize/NDBM_File.pm
new file mode 100644
index 00000000..ff934c65
--- /dev/null
+++ b/lib/5.24.1/Memoize/NDBM_File.pm
@@ -0,0 +1,77 @@
+package Memoize::NDBM_File;
+
+=head1 NAME
+
+Memoize::NDBM_File - glue to provide EXISTS for NDBM_File for Storable use
+
+=head1 DESCRIPTION
+
+See L<Memoize>.
+
+=cut
+
+use NDBM_File;
+@ISA = qw(NDBM_File);
+$VERSION = '1.03';
+
+$Verbose = 0;
+
+sub AUTOLOAD {
+  warn "Nonexistent function $AUTOLOAD invoked in Memoize::NDBM_File\n";
+}
+
+sub import {
+  warn "Importing Memoize::NDBM_File\n" if $Verbose;
+}
+
+
+my %keylist;
+
+# This is so ridiculous...
+sub _backhash {
+  my $self = shift;
+  my %fakehash;
+  my $k; 
+  for ($k = $self->FIRSTKEY(); defined $k; $k = $self->NEXTKEY($k)) {
+    $fakehash{$k} = undef;
+  }
+  $keylist{$self} = \%fakehash;
+}
+
+sub EXISTS {
+  warn "Memoize::NDBM_File EXISTS (@_)\n" if $Verbose;
+  my $self = shift;
+  _backhash($self)  unless exists $keylist{$self};
+  my $r = exists $keylist{$self}{$_[0]};
+  warn "Memoize::NDBM_File EXISTS (@_) ==> $r\n" if $Verbose;
+  $r;
+}
+
+sub DEFINED {
+  warn "Memoize::NDBM_File DEFINED (@_)\n" if $Verbose;
+  my $self = shift;
+  _backhash($self)  unless exists $keylist{$self};
+  defined $keylist{$self}{$_[0]};
+}
+
+sub DESTROY {
+  warn "Memoize::NDBM_File DESTROY (@_)\n" if $Verbose;
+  my $self = shift;
+  delete $keylist{$self};   # So much for reference counting...
+  $self->SUPER::DESTROY(@_);
+}
+
+# Maybe establish the keylist at TIEHASH time instead?
+
+sub STORE {
+  warn "Memoize::NDBM_File STORE (@_)\n" if $VERBOSE;
+  my $self = shift;
+  $keylist{$self}{$_[0]} = undef;
+  $self->SUPER::STORE(@_);
+}
+
+
+
+# Inherit FETCH and TIEHASH
+
+1;
diff --git a/lib/5.24.1/Memoize/SDBM_File.pm b/lib/5.24.1/Memoize/SDBM_File.pm
new file mode 100644
index 00000000..7cfaa4af
--- /dev/null
+++ b/lib/5.24.1/Memoize/SDBM_File.pm
@@ -0,0 +1,75 @@
+package Memoize::SDBM_File;
+
+=head1 NAME
+
+Memoize::SDBM_File - glue to provide EXISTS for SDBM_File for Storable use
+
+=head1 DESCRIPTION
+
+See L<Memoize>.
+
+=cut
+
+use SDBM_File;
+@ISA = qw(SDBM_File);
+$VERSION = '1.03';
+
+$Verbose = 0;
+
+sub AUTOLOAD {
+  warn "Nonexistent function $AUTOLOAD invoked in Memoize::SDBM_File\n";
+}
+
+sub import {
+  warn "Importing Memoize::SDBM_File\n" if $Verbose;
+}
+
+
+my %keylist;
+
+# This is so ridiculous...
+sub _backhash {
+  my $self = shift;
+  my %fakehash;
+  my $k; 
+  for ($k = $self->FIRSTKEY(); defined $k; $k = $self->NEXTKEY($k)) {
+    $fakehash{$k} = undef;
+  }
+  $keylist{$self} = \%fakehash;
+}
+
+sub EXISTS {
+  warn "Memoize::SDBM_File EXISTS (@_)\n" if $Verbose;
+  my $self = shift;
+  _backhash($self)  unless exists $keylist{$self};
+  my $r = exists $keylist{$self}{$_[0]};
+  warn "Memoize::SDBM_File EXISTS (@_) ==> $r\n" if $Verbose;
+  $r;
+}
+
+sub DEFINED {
+  warn "Memoize::SDBM_File DEFINED (@_)\n" if $Verbose;
+  my $self = shift;
+  _backhash($self)  unless exists $keylist{$self};
+  defined $keylist{$self}{$_[0]};
+}
+
+sub DESTROY {
+  warn "Memoize::SDBM_File DESTROY (@_)\n" if $Verbose;
+  my $self = shift;
+  delete $keylist{$self};   # So much for reference counting...
+  $self->SUPER::DESTROY(@_);
+}
+
+# Maybe establish the keylist at TIEHASH time instead?
+
+sub STORE {
+  warn "Memoize::SDBM_File STORE (@_)\n" if $VERBOSE;
+  my $self = shift;
+  $keylist{$self}{$_[0]} = undef;
+  $self->SUPER::STORE(@_);
+}
+
+# Inherit FETCH and TIEHASH
+
+1;
diff --git a/lib/5.24.1/Memoize/Storable.pm b/lib/5.24.1/Memoize/Storable.pm
new file mode 100644
index 00000000..13147972
--- /dev/null
+++ b/lib/5.24.1/Memoize/Storable.pm
@@ -0,0 +1,72 @@
+package Memoize::Storable;
+
+=head1 NAME
+
+Memoize::Storable - store Memoized data in Storable database
+
+=head1 DESCRIPTION
+
+See L<Memoize>.
+
+=cut
+
+use Storable ();
+$VERSION = '1.03';
+$Verbose = 0;
+
+sub TIEHASH {
+  require Carp if $Verbose;
+  my $package = shift;
+  my $filename = shift;
+  my $truehash = (-e $filename) ? Storable::retrieve($filename) : {};
+  my %options;
+  print STDERR "Memoize::Storable::TIEHASH($filename, @_)\n" if $Verbose;
+  @options{@_} = ();
+  my $self = 
+    {FILENAME => $filename, 
+     H => $truehash, 
+     OPTIONS => \%options
+    };
+  bless $self => $package;
+}
+
+sub STORE {
+  require Carp if $Verbose;
+  my $self = shift;
+  print STDERR "Memoize::Storable::STORE(@_)\n" if $Verbose;
+  $self->{H}{$_[0]} = $_[1];
+}
+
+sub FETCH {
+  require Carp if $Verbose;
+  my $self = shift;
+  print STDERR "Memoize::Storable::FETCH(@_)\n" if $Verbose;
+  $self->{H}{$_[0]};
+}
+
+sub EXISTS {
+  require Carp if $Verbose;
+  my $self = shift;
+  print STDERR "Memoize::Storable::EXISTS(@_)\n" if $Verbose;
+  exists $self->{H}{$_[0]};
+}
+
+sub DESTROY {
+  require Carp if $Verbose;
+  my $self= shift;
+  print STDERR "Memoize::Storable::DESTROY(@_)\n" if $Verbose;
+  if ($self->{OPTIONS}{'nstore'}) {
+    Storable::nstore($self->{H}, $self->{FILENAME});
+  } else {
+    Storable::store($self->{H}, $self->{FILENAME});
+  }
+}
+
+sub FIRSTKEY {
+  'Fake hash from Memoize::Storable';
+}
+
+sub NEXTKEY {
+  undef;
+}
+1;
diff --git a/lib/5.24.1/Module/CoreList.pm b/lib/5.24.1/Module/CoreList.pm
new file mode 100644
index 00000000..6cbf8d05
--- /dev/null
+++ b/lib/5.24.1/Module/CoreList.pm
@@ -0,0 +1,15269 @@
+package Module::CoreList;
+use strict;
+use vars qw/$VERSION %released %version %families %upstream
+	    %bug_tracker %deprecated %delta/;
+use Module::CoreList::TieHashDelta;
+use version;
+$VERSION = '5.20170114_24';
+
+sub _released_order {   # Sort helper, to make '?' sort after everything else
+    (substr($released{$a}, 0, 1) eq "?")
+    ? ((substr($released{$b}, 0, 1) eq "?")
+        ? 0
+        : 1)
+    : ((substr($released{$b}, 0, 1) eq "?")
+        ? -1
+        : $released{$a} cmp $released{$b} )
+}
+
+my $dumpinc = 0;
+sub import {
+    my $self = shift;
+    my $what = shift || '';
+    if ($what eq 'dumpinc') {
+        $dumpinc = 1;
+    }
+}
+
+END {
+    print "---INC---\n", join "\n" => keys %INC
+      if $dumpinc;
+}
+
+
+sub first_release_raw {
+    my $module = shift;
+    $module = shift if eval { $module->isa(__PACKAGE__) }
+      and scalar @_ and $_[0] =~ m#\A[a-zA-Z_][0-9a-zA-Z_]*(?:(::|')[0-9a-zA-Z_]+)*\z#;
+    my $version = shift;
+
+    my @perls = $version
+        ? grep { defined $version{$_}{ $module } &&
+                        $version{$_}{ $module } ge $version } keys %version
+        : grep { exists $version{$_}{ $module }             } keys %version;
+
+    return @perls;
+}
+
+sub first_release_by_date {
+    my @perls = &first_release_raw;
+    return unless @perls;
+    return (sort _released_order @perls)[0];
+}
+
+sub first_release {
+    my @perls = &first_release_raw;
+    return unless @perls;
+    return (sort { $a cmp $b } @perls)[0];
+}
+
+sub find_modules {
+    my $regex = shift;
+    $regex = shift if eval { $regex->isa(__PACKAGE__) };
+    my @perls = @_;
+    @perls = keys %version unless @perls;
+
+    my %mods;
+    foreach (@perls) {
+        while (my ($k, $v) = each %{$version{$_}}) {
+            $mods{$k}++ if $k =~ $regex;
+        }
+    }
+    return sort keys %mods
+}
+
+sub find_version {
+    my $v = shift;
+    if ($v->isa(__PACKAGE__)) {
+        $v = shift;
+        return if not defined $v;
+    }
+    return $version{$v} if defined $version{$v};
+    return;
+}
+
+sub is_deprecated {
+    my $module = shift;
+    $module = shift if eval { $module->isa(__PACKAGE__) }
+      and scalar @_ and $_[0] =~ m#\A[a-zA-Z_][0-9a-zA-Z_]*(?:(::|')[0-9a-zA-Z_]+)*\z#;
+    my $perl_version = shift;
+    $perl_version ||= $];
+    return unless $module && exists $deprecated{$perl_version}{$module};
+    return $deprecated{$perl_version}{$module};
+}
+
+sub deprecated_in {
+    my $module = shift;
+    $module = shift if eval { $module->isa(__PACKAGE__) }
+      and scalar @_ and $_[0] =~ m#\A[a-zA-Z_][0-9a-zA-Z_]*(?:(::|')[0-9a-zA-Z_]+)*\z#;
+    return unless $module;
+    my @perls = grep { exists $deprecated{$_}{$module} } keys %deprecated;
+    return unless @perls;
+    require List::Util;
+    return List::Util::minstr(@perls);
+}
+
+sub removed_from {
+  my @perls = &removed_raw;
+  return shift @perls;
+}
+
+sub removed_from_by_date {
+  my @perls = sort _released_order &removed_raw;
+  return shift @perls;
+}
+
+sub removed_raw {
+  my $mod = shift;
+  $mod = shift if eval { $mod->isa(__PACKAGE__) }
+      and scalar @_ and $_[0] =~ m#\A[a-zA-Z_][0-9a-zA-Z_]*(?:(::|')[0-9a-zA-Z_]+)*\z#;
+  return unless my @perls = sort { $a cmp $b } first_release_raw($mod);
+  my $last = pop @perls;
+  my @removed = grep { $_ > $last } sort { $a cmp $b } keys %version;
+  return @removed;
+}
+
+sub changes_between {
+  my $left_ver = shift;
+  $left_ver = shift if eval { $left_ver->isa(__PACKAGE__) };
+  my $right_ver = shift;
+
+  my $left  = $version{ $left_ver };
+  my $right = $version{ $right_ver };
+
+  my %uniq = (%$left, %$right);
+
+  my %changes;
+  for my $lib (keys %uniq) {
+      my $lhs = exists $left->{ $lib }
+              ? (defined $left->{ $lib } ? $left->{ $lib } : '(undef)')
+              : '(absent)';
+      my $rhs = exists $right->{ $lib }
+              ? (defined $right->{ $lib } ? $right->{ $lib } : '(undef)')
+              : '(absent)';
+
+      next if $lhs eq $rhs;
+
+      my $change = {
+        (exists $left->{$lib}  ? (left  => $left->{$lib})  : ()),
+        (exists $right->{$lib} ? (right => $right->{$lib}) : ()),
+      };
+
+      $changes{$lib} = $change;
+  }
+
+  return %changes;
+}
+
+# When things escaped.
+# NB. If you put version numbers with trailing zeroes here, you
+# should also add an alias for the numerical ($]) version; see
+# just before the __END__ of this module.
+%released = (
+    5.000    => '1994-10-17',
+    5.001    => '1995-03-14',
+    5.002    => '1996-02-29',
+    5.00307  => '1996-10-10',
+    5.004    => '1997-05-15',
+    5.005    => '1998-07-22',
+    5.00503  => '1999-03-28',
+    5.00405  => '1999-04-29',
+    5.006    => '2000-03-22',
+    5.006001 => '2001-04-08',
+    5.007003 => '2002-03-05',
+    5.008    => '2002-07-19',
+    5.008001 => '2003-09-25',
+    5.009    => '2003-10-27',
+    5.008002 => '2003-11-05',
+    5.006002 => '2003-11-15',
+    5.008003 => '2004-01-14',
+    5.00504  => '2004-02-23',
+    5.009001 => '2004-03-16',
+    5.008004 => '2004-04-21',
+    5.008005 => '2004-07-19',
+    5.008006 => '2004-11-27',
+    5.009002 => '2005-04-01',
+    5.008007 => '2005-05-30',
+    5.009003 => '2006-01-28',
+    5.008008 => '2006-01-31',
+    5.009004 => '2006-08-15',
+    5.009005 => '2007-07-07',
+    5.010000 => '2007-12-18',
+    5.008009 => '2008-12-14',
+    5.010001 => '2009-08-22',
+    5.011000 => '2009-10-02',
+    5.011001 => '2009-10-20',
+    5.011002 => '2009-11-20',
+    5.011003 => '2009-12-20',
+    5.011004 => '2010-01-20',
+    5.011005 => '2010-02-20',
+    5.012000 => '2010-04-12',
+    5.013000 => '2010-04-20',
+    5.012001 => '2010-05-16',
+    5.013001 => '2010-05-20',
+    5.013002 => '2010-06-22',
+    5.013003 => '2010-07-20',
+    5.013004 => '2010-08-20',
+    5.012002 => '2010-09-06',
+    5.013005 => '2010-09-19',
+    5.013006 => '2010-10-20',
+    5.013007 => '2010-11-20',
+    5.013008 => '2010-12-20',
+    5.012003 => '2011-01-21',
+    5.013009 => '2011-01-20',
+    5.013010 => '2011-02-20',
+    5.013011 => '2011-03-20',
+    5.014000 => '2011-05-14',
+    5.012004 => '2011-06-20',
+    5.012005 => '2012-11-10',
+    5.014001 => '2011-06-16',
+    5.015000 => '2011-06-20',
+    5.015001 => '2011-07-20',
+    5.015002 => '2011-08-20',
+    5.014002 => '2011-09-26',
+    5.015003 => '2011-09-20',
+    5.015004 => '2011-10-20',
+    5.015005 => '2011-11-20',
+    5.015006 => '2011-12-20',
+    5.015007 => '2012-01-20',
+    5.015008 => '2012-02-20',
+    5.015009 => '2012-03-20',
+    5.016000 => '2012-05-20',
+    5.016001 => '2012-08-08',
+    5.016002 => '2012-11-01',
+    5.017000 => '2012-05-26',
+    5.017001 => '2012-06-20',
+    5.017002 => '2012-07-20',
+    5.017003 => '2012-08-20',
+    5.017004 => '2012-09-20',
+    5.014003 => '2012-10-12',
+    5.017005 => '2012-10-20',
+    5.017006 => '2012-11-20',
+    5.017007 => '2012-12-18',
+    5.017008 => '2013-01-20',
+    5.017009 => '2013-02-20',
+    5.014004 => '2013-03-10',
+    5.016003 => '2013-03-11',
+    5.017010 => '2013-03-21',
+    5.017011 => '2013-04-20',
+    5.018000 => '2013-05-18',
+    5.019000 => '2013-05-20',
+    5.019001 => '2013-06-21',
+    5.019002 => '2013-07-22',
+    5.018001 => '2013-08-12',
+    5.019003 => '2013-08-20',
+    5.019004 => '2013-09-20',
+    5.019005 => '2013-10-20',
+    5.019006 => '2013-11-20',
+    5.019007 => '2013-12-20',
+    5.018002 => '2014-01-06',
+    5.018003 => '2014-10-01',
+    5.018004 => '2014-10-01',
+    5.019008 => '2014-01-20',
+    5.019009 => '2014-02-20',
+    5.01901  => '2014-03-20',
+    5.019011 => '2014-04-20',
+    5.020000 => '2014-05-27',
+    5.021000 => '2014-05-27',
+    5.021001 => '2014-06-20',
+    5.021002 => '2014-07-20',
+    5.021003 => '2014-08-20',
+    5.020001 => '2014-09-14',
+    5.021004 => '2014-09-20',
+    5.021005 => '2014-10-20',
+    5.021006 => '2014-11-20',
+    5.021007 => '2014-12-20',
+    5.021008 => '2015-01-20',
+    5.020002 => '2015-02-14',
+    5.021009 => '2015-02-21',
+    5.021010 => '2015-03-20',
+    5.021011 => '2015-04-20',
+    5.022000 => '2015-06-01',
+    5.023000 => '2015-06-20',
+    5.023001 => '2015-07-20',
+    5.023002 => '2015-08-20',
+    5.020003 => '2015-09-12',
+    5.023003 => '2015-09-20',
+    5.023004 => '2015-10-20',
+    5.023005 => '2015-11-20',
+    5.022001 => '2015-12-13',
+    5.023006 => '2015-12-21',
+    5.023007 => '2016-01-20',
+    5.023008 => '2016-02-20',
+    5.023009 => '2016-03-20',
+    5.022002 => '2016-04-29',
+    5.024000 => '2016-05-09',
+    5.025000 => '2016-05-09',
+    5.025001 => '2016-05-20',
+    5.025002 => '2016-06-20',
+    5.025003 => '2016-07-20',
+    5.025004 => '2016-08-20',
+    5.025005 => '2016-09-20',
+    5.025006 => '2016-10-20',
+    5.025007 => '2016-11-20',
+    5.025008 => '2016-12-20',
+    5.024001 => '2017-01-14',
+  );
+
+for my $version ( sort { $a <=> $b } keys %released ) {
+    my $family = int ($version * 1000) / 1000;
+    push @{ $families{ $family }} , $version;
+}
+
+%delta = (
+    5 => {
+        changed => {
+            'AnyDBM_File'           => undef,
+            'AutoLoader'            => undef,
+            'AutoSplit'             => undef,
+            'Benchmark'             => undef,
+            'Carp'                  => undef,
+            'Cwd'                   => undef,
+            'DB_File'               => undef,
+            'DynaLoader'            => undef,
+            'English'               => undef,
+            'Env'                   => undef,
+            'Exporter'              => undef,
+            'ExtUtils::MakeMaker'   => undef,
+            'Fcntl'                 => undef,
+            'File::Basename'        => undef,
+            'File::CheckTree'       => undef,
+            'File::Find'            => undef,
+            'FileHandle'            => undef,
+            'GDBM_File'             => undef,
+            'Getopt::Long'          => undef,
+            'Getopt::Std'           => undef,
+            'I18N::Collate'         => undef,
+            'IPC::Open2'            => undef,
+            'IPC::Open3'            => undef,
+            'Math::BigFloat'        => undef,
+            'Math::BigInt'          => undef,
+            'Math::Complex'         => undef,
+            'NDBM_File'             => undef,
+            'Net::Ping'             => undef,
+            'ODBM_File'             => undef,
+            'POSIX'                 => undef,
+            'SDBM_File'             => undef,
+            'Search::Dict'          => undef,
+            'Shell'                 => undef,
+            'Socket'                => undef,
+            'Sys::Hostname'         => undef,
+            'Sys::Syslog'           => undef,
+            'Term::Cap'             => undef,
+            'Term::Complete'        => undef,
+            'Test::Harness'         => undef,
+            'Text::Abbrev'          => undef,
+            'Text::ParseWords'      => undef,
+            'Text::Soundex'         => undef,
+            'Text::Tabs'            => undef,
+            'TieHash'               => undef,
+            'Time::Local'           => undef,
+            'integer'               => undef,
+            'less'                  => undef,
+            'sigtrap'               => undef,
+            'strict'                => undef,
+            'subs'                  => undef,
+        },
+        removed => {
+        }
+    },
+    5.001 => {
+        delta_from => 5,
+        changed => {
+            'ExtUtils::Liblist'     => undef,
+            'ExtUtils::Manifest'    => undef,
+            'ExtUtils::Mkbootstrap' => undef,
+            'File::Path'            => undef,
+            'SubstrHash'            => undef,
+            'lib'                   => undef,
+        },
+        removed => {
+        }
+    },
+    5.002 => {
+        delta_from => 5.001,
+        changed => {
+            'DB_File'               => '1.01',
+            'Devel::SelfStubber'    => '1.01',
+            'DirHandle'             => undef,
+            'DynaLoader'            => '1.00',
+            'ExtUtils::Install'     => undef,
+            'ExtUtils::MM_OS2'      => undef,
+            'ExtUtils::MM_Unix'     => undef,
+            'ExtUtils::MM_VMS'      => undef,
+            'ExtUtils::MakeMaker'   => '5.21',
+            'ExtUtils::Manifest'    => '1.22',
+            'ExtUtils::Mksymlists'  => '1.00',
+            'Fcntl'                 => '1.00',
+            'File::Copy'            => '1.5',
+            'File::Path'            => '1.01',
+            'FileCache'             => undef,
+            'FileHandle'            => '1.00',
+            'GDBM_File'             => '1.00',
+            'Getopt::Long'          => '2.01',
+            'NDBM_File'             => '1.00',
+            'Net::Ping'             => '1',
+            'ODBM_File'             => '1.00',
+            'POSIX'                 => '1.00',
+            'Pod::Functions'        => undef,
+            'Pod::Text'             => undef,
+            'SDBM_File'             => '1.00',
+            'Safe'                  => '1.00',
+            'SelectSaver'           => undef,
+            'SelfLoader'            => '1.06',
+            'Socket'                => '1.5',
+            'Symbol'                => undef,
+            'Term::ReadLine'        => undef,
+            'Test::Harness'         => '1.07',
+            'Text::Wrap'            => undef,
+            'Tie::Hash'             => undef,
+            'Tie::Scalar'           => undef,
+            'Tie::SubstrHash'       => undef,
+            'diagnostics'           => undef,
+            'overload'              => undef,
+            'vars'                  => undef,
+        },
+        removed => {
+            'SubstrHash'            => 1,
+            'TieHash'               => 1,
+        }
+    },
+    5.00307 => {
+        delta_from => 5.002,
+        changed => {
+            'Config'                => undef,
+            'DB_File'               => '1.03',
+            'ExtUtils::Embed'       => '1.18',
+            'ExtUtils::Install'     => '1.15',
+            'ExtUtils::Liblist'     => '1.20',
+            'ExtUtils::MM_Unix'     => '1.107',
+            'ExtUtils::MakeMaker'   => '5.38',
+            'ExtUtils::Manifest'    => '1.27',
+            'ExtUtils::Mkbootstrap' => '1.13',
+            'ExtUtils::Mksymlists'  => '1.12',
+            'ExtUtils::testlib'     => '1.11',
+            'Fatal'                 => undef,
+            'File::Basename'        => '2.4',
+            'FindBin'               => '1.04',
+            'Getopt::Long'          => '2.04',
+            'IO'                    => undef,
+            'IO::File'              => '1.05',
+            'IO::Handle'            => '1.12',
+            'IO::Pipe'              => '1.07',
+            'IO::Seekable'          => '1.05',
+            'IO::Select'            => '1.09',
+            'IO::Socket'            => '1.13',
+            'Net::Ping'             => '1.01',
+            'OS2::ExtAttr'          => '0.01',
+            'OS2::PrfDB'            => '0.02',
+            'OS2::Process'          => undef,
+            'OS2::REXX'             => undef,
+            'Opcode'                => '1.01',
+            'Safe'                  => '2.06',
+            'Test::Harness'         => '1.13',
+            'Text::Tabs'            => '96.051501',
+            'Text::Wrap'            => '96.041801',
+            'UNIVERSAL'             => undef,
+            'VMS::Filespec'         => undef,
+            'VMS::Stdio'            => '2.0',
+            'ops'                   => undef,
+            'sigtrap'               => '1.01',
+        },
+        removed => {
+        }
+    },
+    5.004 => {
+        delta_from => 5.00307,
+        changed => {
+            'Bundle::CPAN'          => '0.02',
+            'CGI'                   => '2.36',
+            'CGI::Apache'           => '1.01',
+            'CGI::Carp'             => '1.06',
+            'CGI::Fast'             => '1.00a',
+            'CGI::Push'             => '1.00',
+            'CGI::Switch'           => '0.05',
+            'CPAN'                  => '1.2401',
+            'CPAN::FirstTime'       => '1.18',
+            'CPAN::Nox'             => undef,
+            'Class::Struct'         => undef,
+            'Cwd'                   => '2.00',
+            'DB_File'               => '1.14',
+            'DynaLoader'            => '1.02',
+            'ExtUtils::Command'     => '1.00',
+            'ExtUtils::Embed'       => '1.2501',
+            'ExtUtils::Install'     => '1.16',
+            'ExtUtils::Liblist'     => '1.2201',
+            'ExtUtils::MM_Unix'     => '1.114',
+            'ExtUtils::MM_Win32'    => undef,
+            'ExtUtils::MakeMaker'   => '5.4002',
+            'ExtUtils::Manifest'    => '1.33',
+            'ExtUtils::Mksymlists'  => '1.13',
+            'ExtUtils::XSSymSet'    => '1.0',
+            'Fcntl'                 => '1.03',
+            'File::Basename'        => '2.5',
+            'File::Compare'         => '1.1001',
+            'File::Copy'            => '2.02',
+            'File::Path'            => '1.04',
+            'File::stat'            => undef,
+            'FileHandle'            => '2.00',
+            'Getopt::Long'          => '2.10',
+            'IO::File'              => '1.0602',
+            'IO::Handle'            => '1.1504',
+            'IO::Pipe'              => '1.0901',
+            'IO::Seekable'          => '1.06',
+            'IO::Select'            => '1.10',
+            'IO::Socket'            => '1.1602',
+            'IPC::Open2'            => '1.01',
+            'IPC::Open3'            => '1.0101',
+            'Math::Complex'         => '1.01',
+            'Math::Trig'            => '1',
+            'Net::Ping'             => '2.02',
+            'Net::hostent'          => undef,
+            'Net::netent'           => undef,
+            'Net::protoent'         => undef,
+            'Net::servent'          => undef,
+            'Opcode'                => '1.04',
+            'POSIX'                 => '1.02',
+            'Pod::Html'             => undef,
+            'Pod::Text'             => '1.0203',
+            'SelfLoader'            => '1.07',
+            'Socket'                => '1.6',
+            'Symbol'                => '1.02',
+            'Test::Harness'         => '1.1502',
+            'Text::Tabs'            => '96.121201',
+            'Text::Wrap'            => '97.011701',
+            'Tie::RefHash'          => undef,
+            'Time::gmtime'          => '1.01',
+            'Time::localtime'       => '1.01',
+            'Time::tm'              => undef,
+            'User::grent'           => undef,
+            'User::pwent'           => undef,
+            'VMS::DCLsym'           => '1.01',
+            'VMS::Stdio'            => '2.02',
+            'autouse'               => '1.01',
+            'blib'                  => undef,
+            'constant'              => '1.00',
+            'locale'                => undef,
+            'sigtrap'               => '1.02',
+            'vmsish'                => undef,
+        },
+        removed => {
+            'Fatal'                 => 1,
+        }
+    },
+    5.00405 => {
+        delta_from => 5.004,
+        changed => {
+            'AutoLoader'            => '5.56',
+            'AutoSplit'             => '1.0303',
+            'Bundle::CPAN'          => '0.03',
+            'CGI'                   => '2.42',
+            'CGI::Apache'           => '1.1',
+            'CGI::Carp'             => '1.10',
+            'CGI::Cookie'           => '1.06',
+            'CGI::Push'             => '1.01',
+            'CGI::Switch'           => '0.06',
+            'CPAN'                  => '1.40',
+            'CPAN::FirstTime'       => '1.30',
+            'Cwd'                   => '2.01',
+            'DB_File'               => '1.15',
+            'DynaLoader'            => '1.03',
+            'ExtUtils::Command'     => '1.01',
+            'ExtUtils::Embed'       => '1.2505',
+            'ExtUtils::Install'     => '1.28',
+            'ExtUtils::Liblist'     => '1.25',
+            'ExtUtils::MM_Unix'     => '1.118',
+            'ExtUtils::MakeMaker'   => '5.42',
+            'ExtUtils::Mkbootstrap' => '1.14',
+            'ExtUtils::Mksymlists'  => '1.16',
+            'File::Basename'        => '2.6',
+            'File::DosGlob'         => undef,
+            'File::Path'            => '1.0402',
+            'File::Spec'            => '0.6',
+            'File::Spec::Mac'       => '1.0',
+            'File::Spec::OS2'       => undef,
+            'File::Spec::Unix'      => undef,
+            'File::Spec::VMS'       => undef,
+            'File::Spec::Win32'     => undef,
+            'FindBin'               => '1.41',
+            'Getopt::Long'          => '2.19',
+            'IO::File'              => '1.06021',
+            'IO::Socket'            => '1.1603',
+            'IPC::Open3'            => '1.0103',
+            'Math::Complex'         => '1.25',
+            'NDBM_File'             => '1.01',
+            'Pod::Html'             => '1.0101',
+            'Pod::Text'             => '1.0204',
+            'SelfLoader'            => '1.08',
+            'Socket'                => '1.7',
+            'Test'                  => '1.04',
+            'Test::Harness'         => '1.1602',
+            'Text::ParseWords'      => '3.1001',
+            'Text::Wrap'            => '98.112902',
+            'Tie::Handle'           => undef,
+            'attrs'                 => '0.1',
+            'base'                  => undef,
+            'blib'                  => '1.00',
+            're'                    => undef,
+            'strict'                => '1.01',
+        },
+        removed => {
+        }
+    },
+    5.005 => {
+        delta_from => 5.00405,
+        changed => {
+            'AutoLoader'            => undef,
+            'AutoSplit'             => '1.0302',
+            'B'                     => undef,
+            'B::Asmdata'            => undef,
+            'B::Assembler'          => undef,
+            'B::Bblock'             => undef,
+            'B::Bytecode'           => undef,
+            'B::C'                  => undef,
+            'B::CC'                 => undef,
+            'B::Debug'              => undef,
+            'B::Deparse'            => '0.56',
+            'B::Disassembler'       => undef,
+            'B::Lint'               => undef,
+            'B::Showlex'            => undef,
+            'B::Stackobj'           => undef,
+            'B::Terse'              => undef,
+            'B::Xref'               => undef,
+            'CGI::Carp'             => '1.101',
+            'CPAN'                  => '1.3901',
+            'CPAN::FirstTime'       => '1.29',
+            'DB_File'               => '1.60',
+            'Data::Dumper'          => '2.09',
+            'Errno'                 => '1.09',
+            'ExtUtils::Installed'   => '0.02',
+            'ExtUtils::MM_Unix'     => '1.12601',
+            'ExtUtils::MakeMaker'   => '5.4301',
+            'ExtUtils::Mkbootstrap' => '1.13',
+            'ExtUtils::Mksymlists'  => '1.17',
+            'ExtUtils::Packlist'    => '0.03',
+            'Fatal'                 => '1.02',
+            'File::Path'            => '1.0401',
+            'Getopt::Long'          => '2.17',
+            'IO::Handle'            => '1.1505',
+            'IPC::Msg'              => '1.00',
+            'IPC::Open3'            => '1.0102',
+            'IPC::Semaphore'        => '1.00',
+            'IPC::SysV'             => '1.03',
+            'O'                     => undef,
+            'OS2::Process'          => '0.2',
+            'Pod::Html'             => '1.01',
+            'Pod::Text'             => '1.0203',
+            'Text::ParseWords'      => '3.1',
+            'Text::Wrap'            => '97.02',
+            'Thread'                => '1.0',
+            'Thread::Queue'         => undef,
+            'Thread::Semaphore'     => undef,
+            'Thread::Signal'        => undef,
+            'Thread::Specific'      => undef,
+            'Tie::Array'            => '1.00',
+            'VMS::Stdio'            => '2.1',
+            'attrs'                 => '1.0',
+            'fields'                => '0.02',
+            're'                    => '0.02',
+        },
+        removed => {
+            'Bundle::CPAN'          => 1,
+        }
+    },
+    5.00503 => {
+        delta_from => 5.005,
+        changed => {
+            'AutoSplit'             => '1.0303',
+            'CGI'                   => '2.46',
+            'CGI::Carp'             => '1.13',
+            'CGI::Fast'             => '1.01',
+            'CPAN'                  => '1.48',
+            'CPAN::FirstTime'       => '1.36',
+            'CPAN::Nox'             => '1.00',
+            'DB_File'               => '1.65',
+            'Data::Dumper'          => '2.101',
+            'Dumpvalue'             => undef,
+            'Errno'                 => '1.111',
+            'ExtUtils::Install'     => '1.28',
+            'ExtUtils::Liblist'     => '1.25',
+            'ExtUtils::MM_Unix'     => '1.12602',
+            'ExtUtils::MakeMaker'   => '5.4302',
+            'ExtUtils::Manifest'    => '1.33',
+            'ExtUtils::Mkbootstrap' => '1.14',
+            'ExtUtils::Mksymlists'  => '1.17',
+            'ExtUtils::testlib'     => '1.11',
+            'FindBin'               => '1.42',
+            'Getopt::Long'          => '2.19',
+            'Getopt::Std'           => '1.01',
+            'IO::Pipe'              => '1.0902',
+            'IPC::Open3'            => '1.0103',
+            'Math::Complex'         => '1.26',
+            'Test'                  => '1.122',
+            'Text::Wrap'            => '98.112902',
+        },
+        removed => {
+        }
+    },
+    5.00504 => {
+        delta_from => 5.00503,
+        changed => {
+            'CPAN::FirstTime'       => '1.36',
+            'DB_File'               => '1.807',
+            'ExtUtils::Install'     => '1.28',
+            'ExtUtils::Liblist'     => '1.25',
+            'ExtUtils::MM_Unix'     => '1.12602',
+            'ExtUtils::Manifest'    => '1.33',
+            'ExtUtils::Miniperl'    => undef,
+            'ExtUtils::Mkbootstrap' => '1.14',
+            'ExtUtils::Mksymlists'  => '1.17',
+            'ExtUtils::testlib'     => '1.11',
+            'File::Compare'         => '1.1002',
+            'File::Spec'            => '0.8',
+            'File::Spec::Functions' => undef,
+            'File::Spec::Mac'       => undef,
+            'Getopt::Long'          => '2.20',
+            'Pod::Html'             => '1.02',
+        },
+        removed => {
+        }
+    },
+    5.006 => {
+        delta_from => 5.00504,
+        changed => {
+            'AutoLoader'            => '5.57',
+            'AutoSplit'             => '1.0305',
+            'B::Deparse'            => '0.59',
+            'B::Stash'              => undef,
+            'Benchmark'             => '1',
+            'ByteLoader'            => '0.03',
+            'CGI'                   => '2.56',
+            'CGI::Apache'           => undef,
+            'CGI::Carp'             => '1.14',
+            'CGI::Cookie'           => '1.12',
+            'CGI::Fast'             => '1.02',
+            'CGI::Pretty'           => '1.03',
+            'CGI::Switch'           => undef,
+            'CPAN'                  => '1.52',
+            'CPAN::FirstTime'       => '1.38',
+            'Carp::Heavy'           => undef,
+            'Class::Struct'         => '0.58',
+            'Cwd'                   => '2.02',
+            'DB'                    => '1.0',
+            'DB_File'               => '1.72',
+            'Devel::DProf'          => '20000000.00_00',
+            'Devel::Peek'           => '1.00_01',
+            'DynaLoader'            => '1.04',
+            'Exporter'              => '5.562',
+            'Exporter::Heavy'       => undef,
+            'ExtUtils::MM_Cygwin'   => undef,
+            'ExtUtils::MM_Unix'     => '1.12603',
+            'ExtUtils::MakeMaker'   => '5.45',
+            'File::Copy'            => '2.03',
+            'File::Glob'            => '0.991',
+            'File::Path'            => '1.0403',
+            'GDBM_File'             => '1.03',
+            'Getopt::Long'          => '2.23',
+            'Getopt::Std'           => '1.02',
+            'IO'                    => '1.20',
+            'IO::Dir'               => '1.03',
+            'IO::File'              => '1.08',
+            'IO::Handle'            => '1.21',
+            'IO::Pipe'              => '1.121',
+            'IO::Poll'              => '0.01',
+            'IO::Seekable'          => '1.08',
+            'IO::Select'            => '1.14',
+            'IO::Socket'            => '1.26',
+            'IO::Socket::INET'      => '1.25',
+            'IO::Socket::UNIX'      => '1.20',
+            'JNI'                   => '0.01',
+            'JPL::AutoLoader'       => undef,
+            'JPL::Class'            => undef,
+            'JPL::Compile'          => undef,
+            'NDBM_File'             => '1.03',
+            'ODBM_File'             => '1.02',
+            'OS2::DLL'              => undef,
+            'POSIX'                 => '1.03',
+            'Pod::Checker'          => '1.098',
+            'Pod::Find'             => '0.12',
+            'Pod::Html'             => '1.03',
+            'Pod::InputObjects'     => '1.12',
+            'Pod::Man'              => '1.02',
+            'Pod::ParseUtils'       => '0.2',
+            'Pod::Parser'           => '1.12',
+            'Pod::Plainer'          => '0.01',
+            'Pod::Select'           => '1.12',
+            'Pod::Text'             => '2.03',
+            'Pod::Text::Color'      => '0.05',
+            'Pod::Text::Termcap'    => '0.04',
+            'Pod::Usage'            => '1.12',
+            'SDBM_File'             => '1.02',
+            'SelfLoader'            => '1.0901',
+            'Shell'                 => '0.2',
+            'Socket'                => '1.72',
+            'Sys::Hostname'         => '1.1',
+            'Sys::Syslog'           => '0.01',
+            'Term::ANSIColor'       => '1.01',
+            'Test'                  => '1.13',
+            'Test::Harness'         => '1.1604',
+            'Text::ParseWords'      => '3.2',
+            'Text::Soundex'         => '1.0',
+            'Text::Tabs'            => '98.112801',
+            'Tie::Array'            => '1.01',
+            'Tie::Handle'           => '1.0',
+            'VMS::Stdio'            => '2.2',
+            'XSLoader'              => '0.01',
+            'attributes'            => '0.03',
+            'autouse'               => '1.02',
+            'base'                  => '1.01',
+            'bytes'                 => undef,
+            'charnames'             => undef,
+            'constant'              => '1.02',
+            'diagnostics'           => '1.0',
+            'fields'                => '1.01',
+            'filetest'              => undef,
+            'lib'                   => '0.5564',
+            'open'                  => undef,
+            'utf8'                  => undef,
+            'warnings'              => undef,
+            'warnings::register'    => undef,
+        },
+        removed => {
+        }
+    },
+    5.006001 => {
+        delta_from => 5.006,
+        changed => {
+            'AutoLoader'            => '5.58',
+            'B::Assembler'          => '0.02',
+            'B::Concise'            => '0.51',
+            'B::Deparse'            => '0.6',
+            'ByteLoader'            => '0.04',
+            'CGI'                   => '2.752',
+            'CGI::Carp'             => '1.20',
+            'CGI::Cookie'           => '1.18',
+            'CGI::Pretty'           => '1.05',
+            'CGI::Push'             => '1.04',
+            'CGI::Util'             => '1.1',
+            'CPAN'                  => '1.59_54',
+            'CPAN::FirstTime'       => '1.53',
+            'Class::Struct'         => '0.59',
+            'Cwd'                   => '2.04',
+            'DB_File'               => '1.75',
+            'Data::Dumper'          => '2.102',
+            'ExtUtils::Install'     => '1.28',
+            'ExtUtils::Liblist'     => '1.26',
+            'ExtUtils::MM_Unix'     => '1.12603',
+            'ExtUtils::Manifest'    => '1.33',
+            'ExtUtils::Mkbootstrap' => '1.14',
+            'ExtUtils::Mksymlists'  => '1.17',
+            'ExtUtils::testlib'     => '1.11',
+            'File::Path'            => '1.0404',
+            'File::Spec'            => '0.82',
+            'File::Spec::Epoc'      => undef,
+            'File::Spec::Functions' => '1.1',
+            'File::Spec::Mac'       => '1.2',
+            'File::Spec::OS2'       => '1.1',
+            'File::Spec::Unix'      => '1.2',
+            'File::Spec::VMS'       => '1.1',
+            'File::Spec::Win32'     => '1.2',
+            'File::Temp'            => '0.12',
+            'GDBM_File'             => '1.05',
+            'Getopt::Long'          => '2.25',
+            'IO::Poll'              => '0.05',
+            'JNI'                   => '0.1',
+            'Math::BigFloat'        => '0.02',
+            'Math::BigInt'          => '0.01',
+            'Math::Complex'         => '1.31',
+            'NDBM_File'             => '1.04',
+            'ODBM_File'             => '1.03',
+            'OS2::REXX'             => '1.00',
+            'Pod::Checker'          => '1.2',
+            'Pod::Find'             => '0.21',
+            'Pod::InputObjects'     => '1.13',
+            'Pod::LaTeX'            => '0.53',
+            'Pod::Man'              => '1.15',
+            'Pod::ParseUtils'       => '0.22',
+            'Pod::Parser'           => '1.13',
+            'Pod::Select'           => '1.13',
+            'Pod::Text'             => '2.08',
+            'Pod::Text::Color'      => '0.06',
+            'Pod::Text::Overstrike' => '1.01',
+            'Pod::Text::Termcap'    => '1',
+            'Pod::Usage'            => '1.14',
+            'SDBM_File'             => '1.03',
+            'SelfLoader'            => '1.0902',
+            'Shell'                 => '0.3',
+            'Term::ANSIColor'       => '1.03',
+            'Test'                  => '1.15',
+            'Text::Wrap'            => '2001.0131',
+            'Tie::Handle'           => '4.0',
+            'Tie::RefHash'          => '1.3',
+        },
+        removed => {
+        }
+    },
+    5.006002 => {
+        delta_from => 5.006001,
+        changed => {
+            'CPAN::FirstTime'       => '1.53',
+            'DB_File'               => '1.806',
+            'Data::Dumper'          => '2.121',
+            'ExtUtils::Command'     => '1.05',
+            'ExtUtils::Command::MM' => '0.03',
+            'ExtUtils::Install'     => '1.32',
+            'ExtUtils::Installed'   => '0.08',
+            'ExtUtils::Liblist'     => '1.01',
+            'ExtUtils::Liblist::Kid'=> '1.3',
+            'ExtUtils::MM'          => '0.04',
+            'ExtUtils::MM_Any'      => '0.07',
+            'ExtUtils::MM_BeOS'     => '1.04',
+            'ExtUtils::MM_Cygwin'   => '1.06',
+            'ExtUtils::MM_DOS'      => '0.02',
+            'ExtUtils::MM_MacOS'    => '1.07',
+            'ExtUtils::MM_NW5'      => '2.06',
+            'ExtUtils::MM_OS2'      => '1.04',
+            'ExtUtils::MM_UWIN'     => '0.02',
+            'ExtUtils::MM_Unix'     => '1.42',
+            'ExtUtils::MM_VMS'      => '5.70',
+            'ExtUtils::MM_Win32'    => '1.09',
+            'ExtUtils::MM_Win95'    => '0.03',
+            'ExtUtils::MY'          => '0.01',
+            'ExtUtils::MakeMaker'   => '6.17',
+            'ExtUtils::MakeMaker::bytes'=> '0.01',
+            'ExtUtils::MakeMaker::vmsish'=> '0.01',
+            'ExtUtils::Manifest'    => '1.42',
+            'ExtUtils::Mkbootstrap' => '1.15',
+            'ExtUtils::Mksymlists'  => '1.19',
+            'ExtUtils::Packlist'    => '0.04',
+            'ExtUtils::testlib'     => '1.15',
+            'File::Spec'            => '0.86',
+            'File::Spec::Cygwin'    => '1.1',
+            'File::Spec::Epoc'      => '1.1',
+            'File::Spec::Functions' => '1.3',
+            'File::Spec::Mac'       => '1.4',
+            'File::Spec::OS2'       => '1.2',
+            'File::Spec::Unix'      => '1.5',
+            'File::Spec::VMS'       => '1.4',
+            'File::Spec::Win32'     => '1.4',
+            'File::Temp'            => '0.14',
+            'Safe'                  => '2.10',
+            'Test'                  => '1.24',
+            'Test::Builder'         => '0.17',
+            'Test::Harness'         => '2.30',
+            'Test::Harness::Assert' => '0.01',
+            'Test::Harness::Iterator'=> '0.01',
+            'Test::Harness::Straps' => '0.15',
+            'Test::More'            => '0.47',
+            'Test::Simple'          => '0.47',
+            'Unicode'               => '3.0.1',
+            'if'                    => '0.03',
+            'ops'                   => '1.00',
+        },
+        removed => {
+        }
+    },
+    5.007003 => {
+        delta_from => 5.006001,
+        changed => {
+            'AnyDBM_File'           => '1.00',
+            'Attribute::Handlers'   => '0.76',
+            'AutoLoader'            => '5.59',
+            'AutoSplit'             => '1.0307',
+            'B'                     => '1.00',
+            'B::Asmdata'            => '1.00',
+            'B::Assembler'          => '0.04',
+            'B::Bblock'             => '1.00',
+            'B::Bytecode'           => '1.00',
+            'B::C'                  => '1.01',
+            'B::CC'                 => '1.00',
+            'B::Concise'            => '0.52',
+            'B::Debug'              => '1.00',
+            'B::Deparse'            => '0.63',
+            'B::Disassembler'       => '1.01',
+            'B::Lint'               => '1.00',
+            'B::Showlex'            => '1.00',
+            'B::Stackobj'           => '1.00',
+            'B::Stash'              => '1.00',
+            'B::Terse'              => '1.00',
+            'B::Xref'               => '1.00',
+            'Benchmark'             => '1.04',
+            'CGI'                   => '2.80',
+            'CGI::Apache'           => '1.00',
+            'CGI::Carp'             => '1.22',
+            'CGI::Cookie'           => '1.20',
+            'CGI::Fast'             => '1.04',
+            'CGI::Pretty'           => '1.05_00',
+            'CGI::Switch'           => '1.00',
+            'CGI::Util'             => '1.3',
+            'CPAN'                  => '1.59_56',
+            'CPAN::FirstTime'       => '1.54',
+            'CPAN::Nox'             => '1.00_01',
+            'Carp'                  => '1.01',
+            'Carp::Heavy'           => '1.01',
+            'Class::ISA'            => '0.32',
+            'Class::Struct'         => '0.61',
+            'Cwd'                   => '2.06',
+            'DB_File'               => '1.804',
+            'Data::Dumper'          => '2.12',
+            'Devel::DProf'          => '20000000.00_01',
+            'Devel::PPPort'         => '2.0002',
+            'Devel::Peek'           => '1.00_03',
+            'Devel::SelfStubber'    => '1.03',
+            'Digest'                => '1.00',
+            'Digest::MD5'           => '2.16',
+            'DirHandle'             => '1.00',
+            'Dumpvalue'             => '1.10',
+            'Encode'                => '0.40',
+            'Encode::CN'            => '0.02',
+            'Encode::CN::HZ'        => undef,
+            'Encode::Encoding'      => '0.02',
+            'Encode::Internal'      => '0.30',
+            'Encode::JP'            => '0.02',
+            'Encode::JP::Constants' => '1.02',
+            'Encode::JP::H2Z'       => '0.77',
+            'Encode::JP::ISO_2022_JP'=> undef,
+            'Encode::JP::JIS'       => undef,
+            'Encode::JP::Tr'        => '0.77',
+            'Encode::KR'            => '0.02',
+            'Encode::TW'            => '0.02',
+            'Encode::Tcl'           => '1.01',
+            'Encode::Tcl::Escape'   => '1.01',
+            'Encode::Tcl::Extended' => '1.01',
+            'Encode::Tcl::HanZi'    => '1.01',
+            'Encode::Tcl::Table'    => '1.01',
+            'Encode::Unicode'       => '0.30',
+            'Encode::XS'            => '0.40',
+            'Encode::iso10646_1'    => '0.30',
+            'Encode::usc2_le'       => '0.30',
+            'Encode::utf8'          => '0.30',
+            'English'               => '1.00',
+            'Env'                   => '1.00',
+            'Exporter'              => '5.566',
+            'Exporter::Heavy'       => '5.562',
+            'ExtUtils::Command'     => '1.02',
+            'ExtUtils::Constant'    => '0.11',
+            'ExtUtils::Embed'       => '1.250601',
+            'ExtUtils::Install'     => '1.29',
+            'ExtUtils::Installed'   => '0.04',
+            'ExtUtils::Liblist'     => '1.2701',
+            'ExtUtils::MM_BeOS'     => '1.00',
+            'ExtUtils::MM_Cygwin'   => '1.00',
+            'ExtUtils::MM_OS2'      => '1.00',
+            'ExtUtils::MM_Unix'     => '1.12607',
+            'ExtUtils::MM_VMS'      => '5.56',
+            'ExtUtils::MM_Win32'    => '1.00_02',
+            'ExtUtils::MakeMaker'   => '5.48_03',
+            'ExtUtils::Manifest'    => '1.35',
+            'ExtUtils::Mkbootstrap' => '1.1401',
+            'ExtUtils::Mksymlists'  => '1.18',
+            'ExtUtils::Packlist'    => '0.04',
+            'ExtUtils::testlib'     => '1.1201',
+            'Fatal'                 => '1.03',
+            'Fcntl'                 => '1.04',
+            'File::Basename'        => '2.71',
+            'File::CheckTree'       => '4.1',
+            'File::Compare'         => '1.1003',
+            'File::Copy'            => '2.05',
+            'File::DosGlob'         => '1.00',
+            'File::Find'            => '1.04',
+            'File::Glob'            => '1.01',
+            'File::Path'            => '1.05',
+            'File::Spec'            => '0.83',
+            'File::Spec::Cygwin'    => '1.0',
+            'File::Spec::Epoc'      => '1.00',
+            'File::Spec::Functions' => '1.2',
+            'File::Spec::Mac'       => '1.3',
+            'File::Spec::Unix'      => '1.4',
+            'File::Spec::VMS'       => '1.2',
+            'File::Spec::Win32'     => '1.3',
+            'File::Temp'            => '0.13',
+            'File::stat'            => '1.00',
+            'FileCache'             => '1.00',
+            'FileHandle'            => '2.01',
+            'Filter::Simple'        => '0.77',
+            'Filter::Util::Call'    => '1.06',
+            'FindBin'               => '1.43',
+            'GDBM_File'             => '1.06',
+            'Getopt::Long'          => '2.28',
+            'Getopt::Std'           => '1.03',
+            'I18N::Collate'         => '1.00',
+            'I18N::LangTags'        => '0.27',
+            'I18N::LangTags::List'  => '0.25',
+            'I18N::Langinfo'        => '0.01',
+            'IO::Dir'               => '1.03_00',
+            'IO::File'              => '1.09',
+            'IO::Handle'            => '1.21_00',
+            'IO::Pipe'              => '1.122',
+            'IO::Poll'              => '0.06',
+            'IO::Seekable'          => '1.08_00',
+            'IO::Select'            => '1.15',
+            'IO::Socket'            => '1.27',
+            'IO::Socket::INET'      => '1.26',
+            'IO::Socket::UNIX'      => '1.20_00',
+            'IPC::Msg'              => '1.00_00',
+            'IPC::Open3'            => '1.0104',
+            'IPC::Semaphore'        => '1.00_00',
+            'IPC::SysV'             => '1.03_00',
+            'List::Util'            => '1.06_00',
+            'Locale::Constants'     => '2.01',
+            'Locale::Country'       => '2.01',
+            'Locale::Currency'      => '2.01',
+            'Locale::Language'      => '2.01',
+            'Locale::Maketext'      => '1.03',
+            'Locale::Script'        => '2.01',
+            'MIME::Base64'          => '2.12',
+            'MIME::QuotedPrint'     => '2.03',
+            'Math::BigFloat'        => '1.30',
+            'Math::BigInt'          => '1.54',
+            'Math::BigInt::Calc'    => '0.25',
+            'Math::Complex'         => '1.34',
+            'Math::Trig'            => '1.01',
+            'Memoize'               => '0.66',
+            'Memoize::AnyDBM_File'  => '0.65',
+            'Memoize::Expire'       => '0.66',
+            'Memoize::ExpireFile'   => '0.65',
+            'Memoize::ExpireTest'   => '0.65',
+            'Memoize::NDBM_File'    => '0.65',
+            'Memoize::SDBM_File'    => '0.65',
+            'Memoize::Storable'     => '0.65',
+            'NEXT'                  => '0.50',
+            'Net::Cmd'              => '2.21',
+            'Net::Config'           => '1.10',
+            'Net::Domain'           => '2.17',
+            'Net::FTP'              => '2.64',
+            'Net::FTP::A'           => '1.15',
+            'Net::FTP::E'           => '0.01',
+            'Net::FTP::I'           => '1.12',
+            'Net::FTP::L'           => '0.01',
+            'Net::FTP::dataconn'    => '0.10',
+            'Net::NNTP'             => '2.21',
+            'Net::Netrc'            => '2.12',
+            'Net::POP3'             => '2.23',
+            'Net::Ping'             => '2.12',
+            'Net::SMTP'             => '2.21',
+            'Net::Time'             => '2.09',
+            'Net::hostent'          => '1.00',
+            'Net::netent'           => '1.00',
+            'Net::protoent'         => '1.00',
+            'Net::servent'          => '1.00',
+            'O'                     => '1.00',
+            'OS2::DLL'              => '1.00',
+            'OS2::Process'          => '1.0',
+            'OS2::REXX'             => '1.01',
+            'Opcode'                => '1.05',
+            'POSIX'                 => '1.05',
+            'PerlIO'                => '1.00',
+            'PerlIO::Scalar'        => '0.01',
+            'PerlIO::Via'           => '0.01',
+            'Pod::Checker'          => '1.3',
+            'Pod::Find'             => '0.22',
+            'Pod::Functions'        => '1.01',
+            'Pod::Html'             => '1.04',
+            'Pod::LaTeX'            => '0.54',
+            'Pod::Man'              => '1.32',
+            'Pod::ParseLink'        => '1.05',
+            'Pod::Text'             => '2.18',
+            'Pod::Text::Color'      => '1.03',
+            'Pod::Text::Overstrike' => '1.08',
+            'Pod::Text::Termcap'    => '1.09',
+            'Safe'                  => '2.07',
+            'Scalar::Util'          => '1.06_00',
+            'Search::Dict'          => '1.02',
+            'SelectSaver'           => '1.00',
+            'SelfLoader'            => '1.0903',
+            'Shell'                 => '0.4',
+            'Socket'                => '1.75',
+            'Storable'              => '1.015',
+            'Switch'                => '2.06',
+            'Symbol'                => '1.04',
+            'Sys::Syslog'           => '0.02',
+            'Term::ANSIColor'       => '1.04',
+            'Term::Cap'             => '1.07',
+            'Term::Complete'        => '1.4',
+            'Term::ReadLine'        => '1.00',
+            'Test'                  => '1.18',
+            'Test::Builder'         => '0.11',
+            'Test::Harness'         => '2.01',
+            'Test::Harness::Assert' => '0.01',
+            'Test::Harness::Iterator'=> '0.01',
+            'Test::Harness::Straps' => '0.08',
+            'Test::More'            => '0.41',
+            'Test::Simple'          => '0.41',
+            'Text::Abbrev'          => '1.00',
+            'Text::Balanced'        => '1.89',
+            'Text::ParseWords'      => '3.21',
+            'Text::Soundex'         => '1.01',
+            'Text::Wrap'            => '2001.0929',
+            'Thread'                => '2.00',
+            'Thread::Queue'         => '1.00',
+            'Thread::Semaphore'     => '1.00',
+            'Thread::Signal'        => '1.00',
+            'Thread::Specific'      => '1.00',
+            'Tie::Array'            => '1.02',
+            'Tie::File'             => '0.17',
+            'Tie::Handle'           => '4.1',
+            'Tie::Hash'             => '1.00',
+            'Tie::Memoize'          => '1.0',
+            'Tie::RefHash'          => '1.3_00',
+            'Tie::Scalar'           => '1.00',
+            'Tie::SubstrHash'       => '1.00',
+            'Time::HiRes'           => '1.20_00',
+            'Time::Local'           => '1.04',
+            'Time::gmtime'          => '1.02',
+            'Time::localtime'       => '1.02',
+            'Time::tm'              => '1.00',
+            'UNIVERSAL'             => '1.00',
+            'Unicode::Collate'      => '0.10',
+            'Unicode::Normalize'    => '0.14',
+            'Unicode::UCD'          => '0.2',
+            'User::grent'           => '1.00',
+            'User::pwent'           => '1.00',
+            'VMS::DCLsym'           => '1.02',
+            'VMS::Filespec'         => '1.1',
+            'VMS::Stdio'            => '2.3',
+            'XS::Typemap'           => '0.01',
+            'attributes'            => '0.04_01',
+            'attrs'                 => '1.01',
+            'autouse'               => '1.03',
+            'base'                  => '1.02',
+            'blib'                  => '1.01',
+            'bytes'                 => '1.00',
+            'charnames'             => '1.01',
+            'constant'              => '1.04',
+            'diagnostics'           => '1.1',
+            'encoding'              => '1.00',
+            'fields'                => '1.02',
+            'filetest'              => '1.00',
+            'if'                    => '0.01',
+            'integer'               => '1.00',
+            'less'                  => '0.01',
+            'locale'                => '1.00',
+            'open'                  => '1.01',
+            'ops'                   => '1.00',
+            'overload'              => '1.00',
+            're'                    => '0.03',
+            'sort'                  => '1.00',
+            'strict'                => '1.02',
+            'subs'                  => '1.00',
+            'threads'               => '0.05',
+            'threads::shared'       => '0.90',
+            'utf8'                  => '1.00',
+            'vars'                  => '1.01',
+            'vmsish'                => '1.00',
+            'warnings'              => '1.00',
+            'warnings::register'    => '1.00',
+        },
+        removed => {
+        }
+    },
+    5.008 => {
+        delta_from => 5.007003,
+        changed => {
+            'Attribute::Handlers'   => '0.77',
+            'B'                     => '1.01',
+            'B::Lint'               => '1.01',
+            'B::Xref'               => '1.01',
+            'CGI'                   => '2.81',
+            'CGI::Carp'             => '1.23',
+            'CPAN'                  => '1.61',
+            'CPAN::FirstTime'       => '1.56',
+            'CPAN::Nox'             => '1.02',
+            'Digest::MD5'           => '2.20',
+            'Dumpvalue'             => '1.11',
+            'Encode'                => '1.75',
+            'Encode::Alias'         => '1.32',
+            'Encode::Byte'          => '1.22',
+            'Encode::CJKConstants'  => '1.00',
+            'Encode::CN'            => '1.24',
+            'Encode::CN::HZ'        => '1.04',
+            'Encode::Config'        => '1.06',
+            'Encode::EBCDIC'        => '1.21',
+            'Encode::Encoder'       => '0.05',
+            'Encode::Encoding'      => '1.30',
+            'Encode::Guess'         => '1.06',
+            'Encode::JP'            => '1.25',
+            'Encode::JP::H2Z'       => '1.02',
+            'Encode::JP::JIS7'      => '1.08',
+            'Encode::KR'            => '1.22',
+            'Encode::KR::2022_KR'   => '1.05',
+            'Encode::MIME::Header'  => '1.05',
+            'Encode::Symbol'        => '1.22',
+            'Encode::TW'            => '1.26',
+            'Encode::Unicode'       => '1.37',
+            'Exporter::Heavy'       => '5.566',
+            'ExtUtils::Command'     => '1.04',
+            'ExtUtils::Command::MM' => '0.01',
+            'ExtUtils::Constant'    => '0.12',
+            'ExtUtils::Installed'   => '0.06',
+            'ExtUtils::Liblist'     => '1.00',
+            'ExtUtils::Liblist::Kid'=> '1.29',
+            'ExtUtils::MM'          => '0.04',
+            'ExtUtils::MM_Any'      => '0.04',
+            'ExtUtils::MM_BeOS'     => '1.03',
+            'ExtUtils::MM_Cygwin'   => '1.04',
+            'ExtUtils::MM_DOS'      => '0.01',
+            'ExtUtils::MM_MacOS'    => '1.03',
+            'ExtUtils::MM_NW5'      => '2.05',
+            'ExtUtils::MM_OS2'      => '1.03',
+            'ExtUtils::MM_UWIN'     => '0.01',
+            'ExtUtils::MM_Unix'     => '1.33',
+            'ExtUtils::MM_VMS'      => '5.65',
+            'ExtUtils::MM_Win32'    => '1.05',
+            'ExtUtils::MM_Win95'    => '0.02',
+            'ExtUtils::MY'          => '0.01',
+            'ExtUtils::MakeMaker'   => '6.03',
+            'ExtUtils::Manifest'    => '1.38',
+            'ExtUtils::Mkbootstrap' => '1.15',
+            'ExtUtils::Mksymlists'  => '1.19',
+            'ExtUtils::testlib'     => '1.15',
+            'File::CheckTree'       => '4.2',
+            'FileCache'             => '1.021',
+            'Filter::Simple'        => '0.78',
+            'Getopt::Long'          => '2.32',
+            'Hash::Util'            => '0.04',
+            'List::Util'            => '1.07_00',
+            'Locale::Country'       => '2.04',
+            'Math::BigFloat'        => '1.35',
+            'Math::BigFloat::Trace' => '0.01',
+            'Math::BigInt'          => '1.60',
+            'Math::BigInt::Calc'    => '0.30',
+            'Math::BigInt::Trace'   => '0.01',
+            'Math::BigRat'          => '0.07',
+            'Memoize'               => '1.01',
+            'Memoize::Expire'       => '1.00',
+            'Memoize::ExpireFile'   => '1.01',
+            'Net::FTP'              => '2.65',
+            'Net::FTP::dataconn'    => '0.11',
+            'Net::Ping'             => '2.19',
+            'Net::SMTP'             => '2.24',
+            'PerlIO'                => '1.01',
+            'PerlIO::encoding'      => '0.06',
+            'PerlIO::scalar'        => '0.01',
+            'PerlIO::via'           => '0.01',
+            'PerlIO::via::QuotedPrint'=> '0.04',
+            'Pod::Man'              => '1.33',
+            'Pod::Text'             => '2.19',
+            'Scalar::Util'          => '1.07_00',
+            'Storable'              => '2.04',
+            'Switch'                => '2.09',
+            'Sys::Syslog'           => '0.03',
+            'Test'                  => '1.20',
+            'Test::Builder'         => '0.15',
+            'Test::Harness'         => '2.26',
+            'Test::Harness::Straps' => '0.14',
+            'Test::More'            => '0.45',
+            'Test::Simple'          => '0.45',
+            'Thread::Queue'         => '2.00',
+            'Thread::Semaphore'     => '2.00',
+            'Tie::File'             => '0.93',
+            'Tie::RefHash'          => '1.30',
+            'Unicode'               => '3.2.0',
+            'Unicode::Collate'      => '0.12',
+            'Unicode::Normalize'    => '0.17',
+            'XS::APItest'           => '0.01',
+            'attributes'            => '0.05',
+            'base'                  => '1.03',
+            'bigint'                => '0.02',
+            'bignum'                => '0.11',
+            'bigrat'                => '0.04',
+            'blib'                  => '1.02',
+            'encoding'              => '1.35',
+            'sort'                  => '1.01',
+            'threads'               => '0.99',
+        },
+        removed => {
+            'Encode::Internal'      => 1,
+            'Encode::JP::Constants' => 1,
+            'Encode::JP::ISO_2022_JP'=> 1,
+            'Encode::JP::JIS'       => 1,
+            'Encode::JP::Tr'        => 1,
+            'Encode::Tcl'           => 1,
+            'Encode::Tcl::Escape'   => 1,
+            'Encode::Tcl::Extended' => 1,
+            'Encode::Tcl::HanZi'    => 1,
+            'Encode::Tcl::Table'    => 1,
+            'Encode::XS'            => 1,
+            'Encode::iso10646_1'    => 1,
+            'Encode::usc2_le'       => 1,
+            'Encode::utf8'          => 1,
+            'PerlIO::Scalar'        => 1,
+            'PerlIO::Via'           => 1,
+        }
+    },
+    5.008001 => {
+        delta_from => 5.008,
+        changed => {
+            'Attribute::Handlers'   => '0.78',
+            'AutoLoader'            => '5.60',
+            'AutoSplit'             => '1.04',
+            'B'                     => '1.02',
+            'B::Asmdata'            => '1.01',
+            'B::Assembler'          => '0.06',
+            'B::Bblock'             => '1.02',
+            'B::Bytecode'           => '1.01',
+            'B::C'                  => '1.02',
+            'B::Concise'            => '0.56',
+            'B::Debug'              => '1.01',
+            'B::Deparse'            => '0.64',
+            'B::Disassembler'       => '1.03',
+            'B::Lint'               => '1.02',
+            'B::Terse'              => '1.02',
+            'Benchmark'             => '1.051',
+            'ByteLoader'            => '0.05',
+            'CGI'                   => '3.00',
+            'CGI::Carp'             => '1.26',
+            'CGI::Cookie'           => '1.24',
+            'CGI::Fast'             => '1.041',
+            'CGI::Pretty'           => '1.07_00',
+            'CGI::Util'             => '1.31',
+            'CPAN'                  => '1.76_01',
+            'CPAN::FirstTime'       => '1.60',
+            'CPAN::Nox'             => '1.03',
+            'Class::Struct'         => '0.63',
+            'Cwd'                   => '2.08',
+            'DB_File'               => '1.806',
+            'Data::Dumper'          => '2.121',
+            'Devel::DProf'          => '20030813.00',
+            'Devel::PPPort'         => '2.007',
+            'Devel::Peek'           => '1.01',
+            'Digest'                => '1.02',
+            'Digest::MD5'           => '2.27',
+            'Encode'                => '1.9801',
+            'Encode::Alias'         => '1.38',
+            'Encode::Byte'          => '1.23',
+            'Encode::CJKConstants'  => '1.02',
+            'Encode::CN::HZ'        => '1.05',
+            'Encode::Config'        => '1.07',
+            'Encode::Encoder'       => '0.07',
+            'Encode::Encoding'      => '1.33',
+            'Encode::Guess'         => '1.09',
+            'Encode::JP::JIS7'      => '1.12',
+            'Encode::KR'            => '1.23',
+            'Encode::KR::2022_KR'   => '1.06',
+            'Encode::MIME::Header'  => '1.09',
+            'Encode::Unicode'       => '1.40',
+            'Encode::Unicode::UTF7' => '0.02',
+            'English'               => '1.01',
+            'Errno'                 => '1.09_00',
+            'Exporter'              => '5.567',
+            'Exporter::Heavy'       => '5.567',
+            'ExtUtils::Command'     => '1.05',
+            'ExtUtils::Command::MM' => '0.03',
+            'ExtUtils::Constant'    => '0.14',
+            'ExtUtils::Install'     => '1.32',
+            'ExtUtils::Installed'   => '0.08',
+            'ExtUtils::Liblist'     => '1.01',
+            'ExtUtils::Liblist::Kid'=> '1.3',
+            'ExtUtils::MM_Any'      => '0.07',
+            'ExtUtils::MM_BeOS'     => '1.04',
+            'ExtUtils::MM_Cygwin'   => '1.06',
+            'ExtUtils::MM_DOS'      => '0.02',
+            'ExtUtils::MM_MacOS'    => '1.07',
+            'ExtUtils::MM_NW5'      => '2.06',
+            'ExtUtils::MM_OS2'      => '1.04',
+            'ExtUtils::MM_UWIN'     => '0.02',
+            'ExtUtils::MM_Unix'     => '1.42',
+            'ExtUtils::MM_VMS'      => '5.70',
+            'ExtUtils::MM_Win32'    => '1.09',
+            'ExtUtils::MM_Win95'    => '0.03',
+            'ExtUtils::MakeMaker'   => '6.17',
+            'ExtUtils::MakeMaker::bytes'=> '0.01',
+            'ExtUtils::MakeMaker::vmsish'=> '0.01',
+            'ExtUtils::Manifest'    => '1.42',
+            'Fcntl'                 => '1.05',
+            'File::Basename'        => '2.72',
+            'File::Copy'            => '2.06',
+            'File::Find'            => '1.05',
+            'File::Glob'            => '1.02',
+            'File::Path'            => '1.06',
+            'File::Spec'            => '0.86',
+            'File::Spec::Cygwin'    => '1.1',
+            'File::Spec::Epoc'      => '1.1',
+            'File::Spec::Functions' => '1.3',
+            'File::Spec::Mac'       => '1.4',
+            'File::Spec::OS2'       => '1.2',
+            'File::Spec::Unix'      => '1.5',
+            'File::Spec::VMS'       => '1.4',
+            'File::Spec::Win32'     => '1.4',
+            'File::Temp'            => '0.14',
+            'FileCache'             => '1.03',
+            'Filter::Util::Call'    => '1.0601',
+            'GDBM_File'             => '1.07',
+            'Getopt::Long'          => '2.34',
+            'Getopt::Std'           => '1.04',
+            'Hash::Util'            => '0.05',
+            'I18N::LangTags'        => '0.28',
+            'I18N::LangTags::List'  => '0.26',
+            'I18N::Langinfo'        => '0.02',
+            'IO'                    => '1.21',
+            'IO::Dir'               => '1.04',
+            'IO::File'              => '1.10',
+            'IO::Handle'            => '1.23',
+            'IO::Seekable'          => '1.09',
+            'IO::Select'            => '1.16',
+            'IO::Socket'            => '1.28',
+            'IO::Socket::INET'      => '1.27',
+            'IO::Socket::UNIX'      => '1.21',
+            'IPC::Msg'              => '1.02',
+            'IPC::Open3'            => '1.0105',
+            'IPC::Semaphore'        => '1.02',
+            'IPC::SysV'             => '1.04',
+            'JNI'                   => '0.2',
+            'List::Util'            => '1.13',
+            'Locale::Country'       => '2.61',
+            'Locale::Currency'      => '2.21',
+            'Locale::Language'      => '2.21',
+            'Locale::Maketext'      => '1.06',
+            'Locale::Maketext::Guts'=> undef,
+            'Locale::Maketext::GutsLoader'=> undef,
+            'Locale::Script'        => '2.21',
+            'MIME::Base64'          => '2.20',
+            'MIME::QuotedPrint'     => '2.20',
+            'Math::BigFloat'        => '1.40',
+            'Math::BigInt'          => '1.66',
+            'Math::BigInt::Calc'    => '0.36',
+            'Math::BigInt::Scalar'  => '0.11',
+            'Math::BigRat'          => '0.10',
+            'Math::Trig'            => '1.02',
+            'NDBM_File'             => '1.05',
+            'NEXT'                  => '0.60',
+            'Net::Cmd'              => '2.24',
+            'Net::Domain'           => '2.18',
+            'Net::FTP'              => '2.71',
+            'Net::FTP::A'           => '1.16',
+            'Net::NNTP'             => '2.22',
+            'Net::POP3'             => '2.24',
+            'Net::Ping'             => '2.31',
+            'Net::SMTP'             => '2.26',
+            'Net::hostent'          => '1.01',
+            'Net::servent'          => '1.01',
+            'ODBM_File'             => '1.04',
+            'OS2::DLL'              => '1.01',
+            'OS2::ExtAttr'          => '0.02',
+            'OS2::PrfDB'            => '0.03',
+            'OS2::Process'          => '1.01',
+            'OS2::REXX'             => '1.02',
+            'POSIX'                 => '1.06',
+            'PerlIO'                => '1.02',
+            'PerlIO::encoding'      => '0.07',
+            'PerlIO::scalar'        => '0.02',
+            'PerlIO::via'           => '0.02',
+            'PerlIO::via::QuotedPrint'=> '0.05',
+            'Pod::Checker'          => '1.41',
+            'Pod::Find'             => '0.24',
+            'Pod::Functions'        => '1.02',
+            'Pod::Html'             => '1.0501',
+            'Pod::InputObjects'     => '1.14',
+            'Pod::LaTeX'            => '0.55',
+            'Pod::Man'              => '1.37',
+            'Pod::ParseLink'        => '1.06',
+            'Pod::ParseUtils'       => '0.3',
+            'Pod::Perldoc'          => '3.10',
+            'Pod::Perldoc::BaseTo'  => undef,
+            'Pod::Perldoc::GetOptsOO'=> undef,
+            'Pod::Perldoc::ToChecker'=> undef,
+            'Pod::Perldoc::ToMan'   => undef,
+            'Pod::Perldoc::ToNroff' => undef,
+            'Pod::Perldoc::ToPod'   => undef,
+            'Pod::Perldoc::ToRtf'   => undef,
+            'Pod::Perldoc::ToText'  => undef,
+            'Pod::Perldoc::ToTk'    => undef,
+            'Pod::Perldoc::ToXml'   => undef,
+            'Pod::PlainText'        => '2.01',
+            'Pod::Text'             => '2.21',
+            'Pod::Text::Color'      => '1.04',
+            'Pod::Text::Overstrike' => '1.1',
+            'Pod::Text::Termcap'    => '1.11',
+            'Pod::Usage'            => '1.16',
+            'SDBM_File'             => '1.04',
+            'Safe'                  => '2.10',
+            'Scalar::Util'          => '1.13',
+            'SelfLoader'            => '1.0904',
+            'Shell'                 => '0.5',
+            'Socket'                => '1.76',
+            'Storable'              => '2.08',
+            'Switch'                => '2.10',
+            'Symbol'                => '1.05',
+            'Sys::Hostname'         => '1.11',
+            'Sys::Syslog'           => '0.04',
+            'Term::ANSIColor'       => '1.07',
+            'Term::Cap'             => '1.08',
+            'Term::Complete'        => '1.401',
+            'Term::ReadLine'        => '1.01',
+            'Test'                  => '1.24',
+            'Test::Builder'         => '0.17',
+            'Test::Harness'         => '2.30',
+            'Test::Harness::Straps' => '0.15',
+            'Test::More'            => '0.47',
+            'Test::Simple'          => '0.47',
+            'Text::Abbrev'          => '1.01',
+            'Text::Balanced'        => '1.95',
+            'Text::Wrap'            => '2001.09291',
+            'Thread::Semaphore'     => '2.01',
+            'Tie::Array'            => '1.03',
+            'Tie::File'             => '0.97',
+            'Tie::RefHash'          => '1.31',
+            'Time::HiRes'           => '1.51',
+            'Time::Local'           => '1.07',
+            'UNIVERSAL'             => '1.01',
+            'Unicode'               => '4.0.0',
+            'Unicode::Collate'      => '0.28',
+            'Unicode::Normalize'    => '0.23',
+            'Unicode::UCD'          => '0.21',
+            'VMS::Filespec'         => '1.11',
+            'XS::APItest'           => '0.02',
+            'XSLoader'              => '0.02',
+            'attributes'            => '0.06',
+            'base'                  => '2.03',
+            'bigint'                => '0.04',
+            'bignum'                => '0.14',
+            'bigrat'                => '0.06',
+            'bytes'                 => '1.01',
+            'charnames'             => '1.02',
+            'diagnostics'           => '1.11',
+            'encoding'              => '1.47',
+            'fields'                => '2.03',
+            'filetest'              => '1.01',
+            'if'                    => '0.03',
+            'lib'                   => '0.5565',
+            'open'                  => '1.02',
+            'overload'              => '1.01',
+            're'                    => '0.04',
+            'sort'                  => '1.02',
+            'strict'                => '1.03',
+            'threads'               => '1.00',
+            'threads::shared'       => '0.91',
+            'utf8'                  => '1.02',
+            'vmsish'                => '1.01',
+            'warnings'              => '1.03',
+        },
+        removed => {
+        }
+    },
+    5.008002 => {
+        delta_from => 5.008001,
+        changed => {
+            'DB_File'               => '1.807',
+            'Devel::PPPort'         => '2.009',
+            'Digest::MD5'           => '2.30',
+            'I18N::LangTags'        => '0.29',
+            'I18N::LangTags::List'  => '0.29',
+            'MIME::Base64'          => '2.21',
+            'MIME::QuotedPrint'     => '2.21',
+            'Net::Domain'           => '2.19',
+            'Net::FTP'              => '2.72',
+            'Pod::Perldoc'          => '3.11',
+            'Time::HiRes'           => '1.52',
+            'Unicode::Collate'      => '0.30',
+            'Unicode::Normalize'    => '0.25',
+        },
+        removed => {
+        }
+    },
+    5.008003 => {
+        delta_from => 5.008002,
+        changed => {
+            'Benchmark'             => '1.052',
+            'CGI'                   => '3.01',
+            'CGI::Carp'             => '1.27',
+            'CGI::Fast'             => '1.05',
+            'CGI::Pretty'           => '1.08',
+            'CGI::Util'             => '1.4',
+            'Cwd'                   => '2.12',
+            'DB_File'               => '1.808',
+            'Devel::PPPort'         => '2.011',
+            'Digest'                => '1.05',
+            'Digest::MD5'           => '2.33',
+            'Digest::base'          => '1.00',
+            'Encode'                => '1.99',
+            'Exporter'              => '5.57',
+            'File::CheckTree'       => '4.3',
+            'File::Copy'            => '2.07',
+            'File::Find'            => '1.06',
+            'File::Spec'            => '0.87',
+            'FindBin'               => '1.44',
+            'Getopt::Std'           => '1.05',
+            'Math::BigFloat'        => '1.42',
+            'Math::BigInt'          => '1.68',
+            'Math::BigInt::Calc'    => '0.38',
+            'Math::BigInt::CalcEmu' => '0.02',
+            'OS2::DLL'              => '1.02',
+            'POSIX'                 => '1.07',
+            'PerlIO'                => '1.03',
+            'PerlIO::via::QuotedPrint'=> '0.06',
+            'Pod::Html'             => '1.0502',
+            'Pod::Parser'           => '1.14',
+            'Pod::Perldoc'          => '3.12',
+            'Pod::PlainText'        => '2.02',
+            'Storable'              => '2.09',
+            'Test::Harness'         => '2.40',
+            'Test::Harness::Assert' => '0.02',
+            'Test::Harness::Iterator'=> '0.02',
+            'Test::Harness::Straps' => '0.19',
+            'Tie::Hash'             => '1.01',
+            'Unicode::Collate'      => '0.33',
+            'Unicode::Normalize'    => '0.28',
+            'XS::APItest'           => '0.03',
+            'base'                  => '2.04',
+            'diagnostics'           => '1.12',
+            'encoding'              => '1.48',
+            'threads'               => '1.01',
+            'threads::shared'       => '0.92',
+        },
+        removed => {
+            'Math::BigInt::Scalar'  => 1,
+        }
+    },
+    5.008004 => {
+        delta_from => 5.008003,
+        changed => {
+            'Attribute::Handlers'   => '0.78_01',
+            'B::Assembler'          => '0.07',
+            'B::Concise'            => '0.60',
+            'B::Deparse'            => '0.66',
+            'Benchmark'             => '1.06',
+            'CGI'                   => '3.04',
+            'Carp'                  => '1.02',
+            'Cwd'                   => '2.17',
+            'DBM_Filter'            => '0.01',
+            'DBM_Filter::compress'  => '0.01',
+            'DBM_Filter::encode'    => '0.01',
+            'DBM_Filter::int32'     => '0.01',
+            'DBM_Filter::null'      => '0.01',
+            'DBM_Filter::utf8'      => '0.01',
+            'Digest'                => '1.06',
+            'DynaLoader'            => '1.05',
+            'Encode'                => '1.99_01',
+            'Encode::CN::HZ'        => '1.0501',
+            'Exporter'              => '5.58',
+            'Exporter::Heavy'       => '5.57',
+            'ExtUtils::Liblist::Kid'=> '1.3001',
+            'ExtUtils::MM_NW5'      => '2.07_02',
+            'ExtUtils::MM_Win95'    => '0.0301',
+            'File::Find'            => '1.07',
+            'IO::Handle'            => '1.24',
+            'IO::Pipe'              => '1.123',
+            'IPC::Open3'            => '1.0106',
+            'Locale::Maketext'      => '1.08',
+            'MIME::Base64'          => '3.01',
+            'MIME::QuotedPrint'     => '3.01',
+            'Math::BigFloat'        => '1.44',
+            'Math::BigInt'          => '1.70',
+            'Math::BigInt::Calc'    => '0.40',
+            'Math::BigInt::CalcEmu' => '0.04',
+            'Math::BigRat'          => '0.12',
+            'ODBM_File'             => '1.05',
+            'POSIX'                 => '1.08',
+            'Shell'                 => '0.5.2',
+            'Socket'                => '1.77',
+            'Storable'              => '2.12',
+            'Sys::Syslog'           => '0.05',
+            'Term::ANSIColor'       => '1.08',
+            'Time::HiRes'           => '1.59',
+            'Unicode'               => '4.0.1',
+            'Unicode::UCD'          => '0.22',
+            'Win32'                 => '0.23',
+            'base'                  => '2.05',
+            'bigint'                => '0.05',
+            'bignum'                => '0.15',
+            'charnames'             => '1.03',
+            'open'                  => '1.03',
+            'threads'               => '1.03',
+            'utf8'                  => '1.03',
+        },
+        removed => {
+        }
+    },
+    5.008005 => {
+        delta_from => 5.008004,
+        changed => {
+            'B::Concise'            => '0.61',
+            'B::Deparse'            => '0.67',
+            'CGI'                   => '3.05',
+            'CGI::Carp'             => '1.28',
+            'CGI::Util'             => '1.5',
+            'Carp'                  => '1.03',
+            'Carp::Heavy'           => '1.03',
+            'Cwd'                   => '2.19',
+            'DB_File'               => '1.809',
+            'Digest'                => '1.08',
+            'Encode'                => '2.01',
+            'Encode::Alias'         => '2.00',
+            'Encode::Byte'          => '2.00',
+            'Encode::CJKConstants'  => '2.00',
+            'Encode::CN'            => '2.00',
+            'Encode::CN::HZ'        => '2.01',
+            'Encode::Config'        => '2.00',
+            'Encode::EBCDIC'        => '2.00',
+            'Encode::Encoder'       => '2.00',
+            'Encode::Encoding'      => '2.00',
+            'Encode::Guess'         => '2.00',
+            'Encode::JP'            => '2.00',
+            'Encode::JP::H2Z'       => '2.00',
+            'Encode::JP::JIS7'      => '2.00',
+            'Encode::KR'            => '2.00',
+            'Encode::KR::2022_KR'   => '2.00',
+            'Encode::MIME::Header'  => '2.00',
+            'Encode::Symbol'        => '2.00',
+            'Encode::TW'            => '2.00',
+            'Encode::Unicode'       => '2.00',
+            'Encode::Unicode::UTF7' => '2.01',
+            'File::Basename'        => '2.73',
+            'File::Copy'            => '2.08',
+            'File::Glob'            => '1.03',
+            'FileCache'             => '1.04_01',
+            'I18N::LangTags'        => '0.33',
+            'I18N::LangTags::Detect'=> '1.03',
+            'List::Util'            => '1.14',
+            'Locale::Constants'     => '2.07',
+            'Locale::Country'       => '2.07',
+            'Locale::Currency'      => '2.07',
+            'Locale::Language'      => '2.07',
+            'Locale::Maketext'      => '1.09',
+            'Locale::Script'        => '2.07',
+            'Net::Cmd'              => '2.26',
+            'Net::FTP'              => '2.75',
+            'Net::NNTP'             => '2.23',
+            'Net::POP3'             => '2.28',
+            'Net::SMTP'             => '2.29',
+            'Net::Time'             => '2.10',
+            'Pod::Checker'          => '1.42',
+            'Pod::Find'             => '0.2401',
+            'Pod::LaTeX'            => '0.56',
+            'Pod::ParseUtils'       => '1.2',
+            'Pod::Perldoc'          => '3.13',
+            'Safe'                  => '2.11',
+            'Scalar::Util'          => '1.14',
+            'Shell'                 => '0.6',
+            'Storable'              => '2.13',
+            'Term::Cap'             => '1.09',
+            'Test'                  => '1.25',
+            'Test::Harness'         => '2.42',
+            'Text::ParseWords'      => '3.22',
+            'Text::Wrap'            => '2001.09292',
+            'Time::Local'           => '1.10',
+            'Unicode::Collate'      => '0.40',
+            'Unicode::Normalize'    => '0.30',
+            'XS::APItest'           => '0.04',
+            'autouse'               => '1.04',
+            'base'                  => '2.06',
+            'charnames'             => '1.04',
+            'diagnostics'           => '1.13',
+            'encoding'              => '2.00',
+            'threads'               => '1.05',
+            'utf8'                  => '1.04',
+        },
+        removed => {
+        }
+    },
+    5.008006 => {
+        delta_from => 5.008005,
+        changed => {
+            'B'                     => '1.07',
+            'B::C'                  => '1.04',
+            'B::Concise'            => '0.64',
+            'B::Debug'              => '1.02',
+            'B::Deparse'            => '0.69',
+            'B::Lint'               => '1.03',
+            'B::Showlex'            => '1.02',
+            'Cwd'                   => '3.01',
+            'DB_File'               => '1.810',
+            'Data::Dumper'          => '2.121_02',
+            'Devel::PPPort'         => '3.03',
+            'Devel::Peek'           => '1.02',
+            'Encode'                => '2.08',
+            'Encode::Alias'         => '2.02',
+            'Encode::Encoding'      => '2.02',
+            'Encode::JP'            => '2.01',
+            'Encode::Unicode'       => '2.02',
+            'Exporter::Heavy'       => '5.58',
+            'ExtUtils::Constant'    => '0.1401',
+            'File::Spec'            => '3.01',
+            'File::Spec::Win32'     => '1.5',
+            'I18N::LangTags'        => '0.35',
+            'I18N::LangTags::List'  => '0.35',
+            'MIME::Base64'          => '3.05',
+            'MIME::QuotedPrint'     => '3.03',
+            'Math::BigFloat'        => '1.47',
+            'Math::BigInt'          => '1.73',
+            'Math::BigInt::Calc'    => '0.43',
+            'Math::BigRat'          => '0.13',
+            'Text::ParseWords'      => '3.23',
+            'Time::HiRes'           => '1.65',
+            'XS::APItest'           => '0.05',
+            'diagnostics'           => '1.14',
+            'encoding'              => '2.01',
+            'open'                  => '1.04',
+            'overload'              => '1.02',
+        },
+        removed => {
+        }
+    },
+    5.008007 => {
+        delta_from => 5.008006,
+        changed => {
+            'B'                     => '1.09',
+            'B::Concise'            => '0.65',
+            'B::Deparse'            => '0.7',
+            'B::Disassembler'       => '1.04',
+            'B::Terse'              => '1.03',
+            'Benchmark'             => '1.07',
+            'CGI'                   => '3.10',
+            'CGI::Carp'             => '1.29',
+            'CGI::Cookie'           => '1.25',
+            'Carp'                  => '1.04',
+            'Carp::Heavy'           => '1.04',
+            'Class::ISA'            => '0.33',
+            'Cwd'                   => '3.05',
+            'DB_File'               => '1.811',
+            'Data::Dumper'          => '2.121_04',
+            'Devel::DProf'          => '20050310.00',
+            'Devel::PPPort'         => '3.06',
+            'Digest'                => '1.10',
+            'Digest::file'          => '0.01',
+            'Encode'                => '2.10',
+            'Encode::Alias'         => '2.03',
+            'Errno'                 => '1.09_01',
+            'ExtUtils::Constant'    => '0.16',
+            'ExtUtils::Constant::Base'=> '0.01',
+            'ExtUtils::Constant::Utils'=> '0.01',
+            'ExtUtils::Constant::XS'=> '0.01',
+            'File::Find'            => '1.09',
+            'File::Glob'            => '1.04',
+            'File::Path'            => '1.07',
+            'File::Spec'            => '3.05',
+            'File::Temp'            => '0.16',
+            'FileCache'             => '1.05',
+            'IO::File'              => '1.11',
+            'IO::Socket::INET'      => '1.28',
+            'Math::BigFloat'        => '1.51',
+            'Math::BigInt'          => '1.77',
+            'Math::BigInt::Calc'    => '0.47',
+            'Math::BigInt::CalcEmu' => '0.05',
+            'Math::BigRat'          => '0.15',
+            'Pod::Find'             => '1.3',
+            'Pod::Html'             => '1.0503',
+            'Pod::InputObjects'     => '1.3',
+            'Pod::LaTeX'            => '0.58',
+            'Pod::ParseUtils'       => '1.3',
+            'Pod::Parser'           => '1.3',
+            'Pod::Perldoc'          => '3.14',
+            'Pod::Select'           => '1.3',
+            'Pod::Usage'            => '1.3',
+            'SelectSaver'           => '1.01',
+            'Symbol'                => '1.06',
+            'Sys::Syslog'           => '0.06',
+            'Term::ANSIColor'       => '1.09',
+            'Term::Complete'        => '1.402',
+            'Test::Builder'         => '0.22',
+            'Test::Harness'         => '2.48',
+            'Test::Harness::Point'  => '0.01',
+            'Test::Harness::Straps' => '0.23',
+            'Test::More'            => '0.54',
+            'Test::Simple'          => '0.54',
+            'Text::ParseWords'      => '3.24',
+            'Text::Wrap'            => '2001.09293',
+            'Tie::RefHash'          => '1.32',
+            'Time::HiRes'           => '1.66',
+            'Time::Local'           => '1.11',
+            'Unicode'               => '4.1.0',
+            'Unicode::Normalize'    => '0.32',
+            'Unicode::UCD'          => '0.23',
+            'Win32'                 => '0.24',
+            'XS::APItest'           => '0.06',
+            'base'                  => '2.07',
+            'bigint'                => '0.07',
+            'bignum'                => '0.17',
+            'bigrat'                => '0.08',
+            'bytes'                 => '1.02',
+            'constant'              => '1.05',
+            'overload'              => '1.03',
+            'threads::shared'       => '0.93',
+            'utf8'                  => '1.05',
+        },
+        removed => {
+            'JNI'                   => 1,
+            'JPL::AutoLoader'       => 1,
+            'JPL::Class'            => 1,
+            'JPL::Compile'          => 1,
+        }
+    },
+    5.008008 => {
+        delta_from => 5.008007,
+        changed => {
+            'Attribute::Handlers'   => '0.78_02',
+            'B'                     => '1.09_01',
+            'B::Bblock'             => '1.02_01',
+            'B::Bytecode'           => '1.01_01',
+            'B::C'                  => '1.04_01',
+            'B::CC'                 => '1.00_01',
+            'B::Concise'            => '0.66',
+            'B::Debug'              => '1.02_01',
+            'B::Deparse'            => '0.71',
+            'B::Disassembler'       => '1.05',
+            'B::Terse'              => '1.03_01',
+            'ByteLoader'            => '0.06',
+            'CGI'                   => '3.15',
+            'CGI::Cookie'           => '1.26',
+            'CPAN'                  => '1.76_02',
+            'Cwd'                   => '3.12',
+            'DB'                    => '1.01',
+            'DB_File'               => '1.814',
+            'Data::Dumper'          => '2.121_08',
+            'Devel::DProf'          => '20050603.00',
+            'Devel::PPPort'         => '3.06_01',
+            'Devel::Peek'           => '1.03',
+            'Digest'                => '1.14',
+            'Digest::MD5'           => '2.36',
+            'Digest::file'          => '1.00',
+            'Dumpvalue'             => '1.12',
+            'Encode'                => '2.12',
+            'Encode::Alias'         => '2.04',
+            'Encode::Config'        => '2.01',
+            'Encode::MIME::Header'  => '2.01',
+            'Encode::MIME::Header::ISO_2022_JP'=> '1.01',
+            'English'               => '1.02',
+            'ExtUtils::Command'     => '1.09',
+            'ExtUtils::Command::MM' => '0.05',
+            'ExtUtils::Constant'    => '0.17',
+            'ExtUtils::Embed'       => '1.26',
+            'ExtUtils::Install'     => '1.33',
+            'ExtUtils::Liblist::Kid'=> '1.3',
+            'ExtUtils::MM'          => '0.05',
+            'ExtUtils::MM_AIX'      => '0.03',
+            'ExtUtils::MM_Any'      => '0.13',
+            'ExtUtils::MM_BeOS'     => '1.05',
+            'ExtUtils::MM_Cygwin'   => '1.08',
+            'ExtUtils::MM_MacOS'    => '1.08',
+            'ExtUtils::MM_NW5'      => '2.08',
+            'ExtUtils::MM_OS2'      => '1.05',
+            'ExtUtils::MM_QNX'      => '0.02',
+            'ExtUtils::MM_Unix'     => '1.50',
+            'ExtUtils::MM_VMS'      => '5.73',
+            'ExtUtils::MM_VOS'      => '0.02',
+            'ExtUtils::MM_Win32'    => '1.12',
+            'ExtUtils::MM_Win95'    => '0.04',
+            'ExtUtils::MakeMaker'   => '6.30',
+            'ExtUtils::MakeMaker::Config'=> '0.02',
+            'ExtUtils::Manifest'    => '1.46',
+            'File::Basename'        => '2.74',
+            'File::Copy'            => '2.09',
+            'File::Find'            => '1.10',
+            'File::Glob'            => '1.05',
+            'File::Path'            => '1.08',
+            'File::Spec'            => '3.12',
+            'File::Spec::Win32'     => '1.6',
+            'FileCache'             => '1.06',
+            'Filter::Simple'        => '0.82',
+            'FindBin'               => '1.47',
+            'GDBM_File'             => '1.08',
+            'Getopt::Long'          => '2.35',
+            'IO'                    => '1.22',
+            'IO::Dir'               => '1.05',
+            'IO::File'              => '1.13',
+            'IO::Handle'            => '1.25',
+            'IO::Pipe'              => '1.13',
+            'IO::Poll'              => '0.07',
+            'IO::Seekable'          => '1.10',
+            'IO::Select'            => '1.17',
+            'IO::Socket'            => '1.29',
+            'IO::Socket::INET'      => '1.29',
+            'IO::Socket::UNIX'      => '1.22',
+            'IPC::Open2'            => '1.02',
+            'IPC::Open3'            => '1.02',
+            'List::Util'            => '1.18',
+            'MIME::Base64'          => '3.07',
+            'MIME::QuotedPrint'     => '3.07',
+            'Math::Complex'         => '1.35',
+            'Math::Trig'            => '1.03',
+            'NDBM_File'             => '1.06',
+            'ODBM_File'             => '1.06',
+            'OS2::PrfDB'            => '0.04',
+            'OS2::Process'          => '1.02',
+            'OS2::REXX'             => '1.03',
+            'Opcode'                => '1.06',
+            'POSIX'                 => '1.09',
+            'PerlIO'                => '1.04',
+            'PerlIO::encoding'      => '0.09',
+            'PerlIO::scalar'        => '0.04',
+            'PerlIO::via'           => '0.03',
+            'Pod::Checker'          => '1.43',
+            'Pod::Find'             => '1.34',
+            'Pod::Functions'        => '1.03',
+            'Pod::Html'             => '1.0504',
+            'Pod::ParseUtils'       => '1.33',
+            'Pod::Parser'           => '1.32',
+            'Pod::Usage'            => '1.33',
+            'SDBM_File'             => '1.05',
+            'Safe'                  => '2.12',
+            'Scalar::Util'          => '1.18',
+            'Socket'                => '1.78',
+            'Storable'              => '2.15',
+            'Switch'                => '2.10_01',
+            'Sys::Syslog'           => '0.13',
+            'Term::ANSIColor'       => '1.10',
+            'Term::ReadLine'        => '1.02',
+            'Test::Builder'         => '0.32',
+            'Test::Builder::Module' => '0.02',
+            'Test::Builder::Tester' => '1.02',
+            'Test::Builder::Tester::Color'=> undef,
+            'Test::Harness'         => '2.56',
+            'Test::Harness::Straps' => '0.26',
+            'Test::More'            => '0.62',
+            'Test::Simple'          => '0.62',
+            'Text::Tabs'            => '2005.0824',
+            'Text::Wrap'            => '2005.082401',
+            'Tie::Hash'             => '1.02',
+            'Time::HiRes'           => '1.86',
+            'Unicode::Collate'      => '0.52',
+            'Unicode::UCD'          => '0.24',
+            'User::grent'           => '1.01',
+            'Win32'                 => '0.2601',
+            'XS::APItest'           => '0.08',
+            'XS::Typemap'           => '0.02',
+            'XSLoader'              => '0.06',
+            'attrs'                 => '1.02',
+            'autouse'               => '1.05',
+            'blib'                  => '1.03',
+            'charnames'             => '1.05',
+            'diagnostics'           => '1.15',
+            'encoding'              => '2.02',
+            'if'                    => '0.05',
+            'open'                  => '1.05',
+            'ops'                   => '1.01',
+            'overload'              => '1.04',
+            're'                    => '0.05',
+            'threads'               => '1.07',
+            'threads::shared'       => '0.94',
+            'utf8'                  => '1.06',
+            'vmsish'                => '1.02',
+            'warnings'              => '1.05',
+            'warnings::register'    => '1.01',
+        },
+        removed => {
+        }
+    },
+    5.008009 => {
+        delta_from => 5.008008,
+        changed => {
+            'Attribute::Handlers'   => '0.78_03',
+            'AutoLoader'            => '5.67',
+            'AutoSplit'             => '1.06',
+            'B'                     => '1.19',
+            'B::Asmdata'            => '1.02',
+            'B::Assembler'          => '0.08',
+            'B::C'                  => '1.05',
+            'B::Concise'            => '0.76',
+            'B::Debug'              => '1.05',
+            'B::Deparse'            => '0.87',
+            'B::Lint'               => '1.11',
+            'B::Lint::Debug'        => undef,
+            'B::Terse'              => '1.05',
+            'Benchmark'             => '1.1',
+            'CGI'                   => '3.42',
+            'CGI::Carp'             => '1.30_01',
+            'CGI::Cookie'           => '1.29',
+            'CGI::Fast'             => '1.07',
+            'CGI::Util'             => '1.5_01',
+            'CPAN'                  => '1.9301',
+            'CPAN::Debug'           => '5.5',
+            'CPAN::DeferedCode'     => '5.50',
+            'CPAN::Distroprefs'     => '6',
+            'CPAN::FirstTime'       => '5.5_01',
+            'CPAN::HandleConfig'    => '5.5',
+            'CPAN::Kwalify'         => '5.50',
+            'CPAN::Nox'             => '5.50',
+            'CPAN::Queue'           => '5.5',
+            'CPAN::Tarzip'          => '5.5',
+            'CPAN::Version'         => '5.5',
+            'Carp'                  => '1.10',
+            'Carp::Heavy'           => '1.10',
+            'Cwd'                   => '3.29',
+            'DBM_Filter'            => '0.02',
+            'DBM_Filter::compress'  => '0.02',
+            'DBM_Filter::encode'    => '0.02',
+            'DBM_Filter::int32'     => '0.02',
+            'DBM_Filter::null'      => '0.02',
+            'DBM_Filter::utf8'      => '0.02',
+            'DB_File'               => '1.817',
+            'Data::Dumper'          => '2.121_17',
+            'Devel::DProf'          => '20080331.00',
+            'Devel::InnerPackage'   => '0.3',
+            'Devel::PPPort'         => '3.14',
+            'Devel::Peek'           => '1.04',
+            'Digest'                => '1.15',
+            'Digest::MD5'           => '2.37',
+            'DirHandle'             => '1.02',
+            'DynaLoader'            => '1.09',
+            'Encode'                => '2.26',
+            'Encode::Alias'         => '2.10',
+            'Encode::Byte'          => '2.03',
+            'Encode::CJKConstants'  => '2.02',
+            'Encode::CN'            => '2.02',
+            'Encode::CN::HZ'        => '2.05',
+            'Encode::Config'        => '2.05',
+            'Encode::EBCDIC'        => '2.02',
+            'Encode::Encoder'       => '2.01',
+            'Encode::Encoding'      => '2.05',
+            'Encode::GSM0338'       => '2.01',
+            'Encode::Guess'         => '2.02',
+            'Encode::JP'            => '2.03',
+            'Encode::JP::H2Z'       => '2.02',
+            'Encode::JP::JIS7'      => '2.04',
+            'Encode::KR'            => '2.02',
+            'Encode::KR::2022_KR'   => '2.02',
+            'Encode::MIME::Header'  => '2.05',
+            'Encode::MIME::Header::ISO_2022_JP'=> '1.03',
+            'Encode::MIME::Name'    => '1.01',
+            'Encode::Symbol'        => '2.02',
+            'Encode::TW'            => '2.02',
+            'Encode::Unicode'       => '2.05',
+            'Encode::Unicode::UTF7' => '2.04',
+            'English'               => '1.03',
+            'Errno'                 => '1.10',
+            'Exporter'              => '5.63',
+            'Exporter::Heavy'       => '5.63',
+            'ExtUtils::Command'     => '1.15',
+            'ExtUtils::Command::MM' => '6.48',
+            'ExtUtils::Constant'    => '0.21',
+            'ExtUtils::Constant::Base'=> '0.04',
+            'ExtUtils::Constant::ProxySubs'=> '0.06',
+            'ExtUtils::Constant::Utils'=> '0.02',
+            'ExtUtils::Constant::XS'=> '0.02',
+            'ExtUtils::Embed'       => '1.28',
+            'ExtUtils::Install'     => '1.50_01',
+            'ExtUtils::Installed'   => '1.43',
+            'ExtUtils::Liblist'     => '6.48',
+            'ExtUtils::Liblist::Kid'=> '6.48',
+            'ExtUtils::MM'          => '6.48',
+            'ExtUtils::MM_AIX'      => '6.48',
+            'ExtUtils::MM_Any'      => '6.48',
+            'ExtUtils::MM_BeOS'     => '6.48',
+            'ExtUtils::MM_Cygwin'   => '6.48',
+            'ExtUtils::MM_DOS'      => '6.48',
+            'ExtUtils::MM_Darwin'   => '6.48',
+            'ExtUtils::MM_MacOS'    => '6.48',
+            'ExtUtils::MM_NW5'      => '6.48',
+            'ExtUtils::MM_OS2'      => '6.48',
+            'ExtUtils::MM_QNX'      => '6.48',
+            'ExtUtils::MM_UWIN'     => '6.48',
+            'ExtUtils::MM_Unix'     => '6.48',
+            'ExtUtils::MM_VMS'      => '6.48',
+            'ExtUtils::MM_VOS'      => '6.48',
+            'ExtUtils::MM_Win32'    => '6.48',
+            'ExtUtils::MM_Win95'    => '6.48',
+            'ExtUtils::MY'          => '6.48',
+            'ExtUtils::MakeMaker'   => '6.48',
+            'ExtUtils::MakeMaker::Config'=> '6.48',
+            'ExtUtils::MakeMaker::bytes'=> '6.48',
+            'ExtUtils::MakeMaker::vmsish'=> '6.48',
+            'ExtUtils::Manifest'    => '1.55',
+            'ExtUtils::Mkbootstrap' => '6.48',
+            'ExtUtils::Mksymlists'  => '6.48',
+            'ExtUtils::Packlist'    => '1.43',
+            'ExtUtils::ParseXS'     => '2.19',
+            'ExtUtils::XSSymSet'    => '1.1',
+            'ExtUtils::testlib'     => '6.48',
+            'Fatal'                 => '1.06',
+            'Fcntl'                 => '1.06',
+            'File::Basename'        => '2.77',
+            'File::CheckTree'       => '4.4',
+            'File::Compare'         => '1.1005',
+            'File::Copy'            => '2.13',
+            'File::DosGlob'         => '1.01',
+            'File::Find'            => '1.13',
+            'File::Glob'            => '1.06',
+            'File::Path'            => '2.07_02',
+            'File::Spec'            => '3.29',
+            'File::Spec::Cygwin'    => '3.29',
+            'File::Spec::Epoc'      => '3.29',
+            'File::Spec::Functions' => '3.29',
+            'File::Spec::Mac'       => '3.29',
+            'File::Spec::OS2'       => '3.29',
+            'File::Spec::Unix'      => '3.29',
+            'File::Spec::VMS'       => '3.29',
+            'File::Spec::Win32'     => '3.29',
+            'File::Temp'            => '0.20',
+            'File::stat'            => '1.01',
+            'FileCache'             => '1.07',
+            'Filter::Simple'        => '0.83',
+            'Filter::Util::Call'    => '1.07',
+            'FindBin'               => '1.49',
+            'GDBM_File'             => '1.09',
+            'Getopt::Long'          => '2.37',
+            'Getopt::Std'           => '1.06',
+            'Hash::Util'            => '0.06',
+            'IO'                    => '1.23',
+            'IO::Dir'               => '1.06',
+            'IO::File'              => '1.14',
+            'IO::Handle'            => '1.27',
+            'IO::Socket'            => '1.30',
+            'IO::Socket::INET'      => '1.31',
+            'IO::Socket::UNIX'      => '1.23',
+            'IPC::Msg'              => '2.00',
+            'IPC::Open2'            => '1.03',
+            'IPC::Open3'            => '1.03',
+            'IPC::Semaphore'        => '2.00',
+            'IPC::SharedMem'        => '2.00',
+            'IPC::SysV'             => '2.00',
+            'List::Util'            => '1.19',
+            'Locale::Maketext'      => '1.13',
+            'Locale::Maketext::Guts'=> '1.13',
+            'Locale::Maketext::GutsLoader'=> '1.13',
+            'Math::BigFloat'        => '1.60',
+            'Math::BigInt'          => '1.89',
+            'Math::BigInt::Calc'    => '0.52',
+            'Math::BigRat'          => '0.22',
+            'Math::Complex'         => '1.54',
+            'Math::Trig'            => '1.18',
+            'Module::CoreList'      => '2.17',
+            'Module::Pluggable'     => '3.8',
+            'Module::Pluggable::Object'=> '3.6',
+            'NDBM_File'             => '1.07',
+            'NEXT'                  => '0.61',
+            'Net::Cmd'              => '2.29',
+            'Net::Config'           => '1.11',
+            'Net::Domain'           => '2.20',
+            'Net::FTP'              => '2.77',
+            'Net::FTP::A'           => '1.18',
+            'Net::NNTP'             => '2.24',
+            'Net::POP3'             => '2.29',
+            'Net::Ping'             => '2.35',
+            'Net::SMTP'             => '2.31',
+            'O'                     => '1.01',
+            'ODBM_File'             => '1.07',
+            'OS2::DLL'              => '1.03',
+            'OS2::Process'          => '1.03',
+            'Opcode'                => '1.0601',
+            'POSIX'                 => '1.15',
+            'PerlIO'                => '1.05',
+            'PerlIO::encoding'      => '0.11',
+            'PerlIO::scalar'        => '0.06',
+            'PerlIO::via'           => '0.05',
+            'Pod::Html'             => '1.09',
+            'Pod::ParseUtils'       => '1.35',
+            'Pod::Parser'           => '1.35',
+            'Pod::Select'           => '1.35',
+            'Pod::Usage'            => '1.35',
+            'SDBM_File'             => '1.06',
+            'Safe'                  => '2.16',
+            'Scalar::Util'          => '1.19',
+            'SelfLoader'            => '1.17',
+            'Shell'                 => '0.72',
+            'Socket'                => '1.81',
+            'Storable'              => '2.19',
+            'Switch'                => '2.13',
+            'Sys::Syslog'           => '0.27',
+            'Sys::Syslog::win32::Win32'=> undef,
+            'Term::ANSIColor'       => '1.12',
+            'Term::Cap'             => '1.12',
+            'Term::ReadLine'        => '1.03',
+            'Test::Builder'         => '0.80',
+            'Test::Builder::Module' => '0.80',
+            'Test::Builder::Tester' => '1.13',
+            'Test::Harness'         => '2.64',
+            'Test::Harness::Results'=> '0.01_01',
+            'Test::Harness::Straps' => '0.26_01',
+            'Test::Harness::Util'   => '0.01',
+            'Test::More'            => '0.80',
+            'Test::Simple'          => '0.80',
+            'Text::Balanced'        => '1.98',
+            'Text::ParseWords'      => '3.27',
+            'Text::Soundex'         => '3.03',
+            'Text::Tabs'            => '2007.1117',
+            'Text::Wrap'            => '2006.1117',
+            'Thread'                => '2.01',
+            'Thread::Queue'         => '2.11',
+            'Thread::Semaphore'     => '2.09',
+            'Tie::Handle'           => '4.2',
+            'Tie::Hash'             => '1.03',
+            'Tie::Memoize'          => '1.1',
+            'Tie::RefHash'          => '1.38',
+            'Tie::Scalar'           => '1.01',
+            'Tie::StdHandle'        => '4.2',
+            'Time::HiRes'           => '1.9715',
+            'Time::Local'           => '1.1901',
+            'Time::gmtime'          => '1.03',
+            'Unicode'               => '5.1.0',
+            'Unicode::Normalize'    => '1.02',
+            'Unicode::UCD'          => '0.25',
+            'VMS::DCLsym'           => '1.03',
+            'VMS::Stdio'            => '2.4',
+            'Win32'                 => '0.38',
+            'Win32API::File'        => '0.1001_01',
+            'Win32API::File::ExtUtils::Myconst2perl'=> '1',
+            'Win32CORE'             => '0.02',
+            'XS::APItest'           => '0.15',
+            'XS::Typemap'           => '0.03',
+            'XSLoader'              => '0.10',
+            'attributes'            => '0.09',
+            'autouse'               => '1.06',
+            'base'                  => '2.13',
+            'bigint'                => '0.23',
+            'bignum'                => '0.23',
+            'bigrat'                => '0.23',
+            'blib'                  => '1.04',
+            'charnames'             => '1.06',
+            'constant'              => '1.17',
+            'diagnostics'           => '1.16',
+            'encoding'              => '2.6_01',
+            'fields'                => '2.12',
+            'filetest'              => '1.02',
+            'lib'                   => '0.61',
+            'open'                  => '1.06',
+            'ops'                   => '1.02',
+            'overload'              => '1.06',
+            're'                    => '0.0601',
+            'sigtrap'               => '1.04',
+            'threads'               => '1.71',
+            'threads::shared'       => '1.27',
+            'utf8'                  => '1.07',
+            'warnings'              => '1.05_01',
+        },
+        removed => {
+        }
+    },
+    5.009 => {
+        delta_from => 5.008002,
+        changed => {
+            'B'                     => '1.03',
+            'B::C'                  => '1.03',
+            'B::Concise'            => '0.57',
+            'B::Deparse'            => '0.65',
+            'DB_File'               => '1.806',
+            'Devel::PPPort'         => '2.008',
+            'English'               => '1.02',
+            'Fatal'                 => '1.04',
+            'OS2::DLL'              => '1.02',
+            'Opcode'                => '1.06',
+            'Time::HiRes'           => '1.51',
+            'Unicode::Collate'      => '0.28',
+            'Unicode::Normalize'    => '0.23',
+            'XSLoader'              => '0.03',
+            'assertions'            => '0.01',
+            'assertions::activate'  => '0.01',
+            'overload'              => '1.02',
+            'version'               => '0.29',
+        },
+        removed => {
+        }
+    },
+    5.009001 => {
+        delta_from => 5.008004,
+        changed => {
+            'B'                     => '1.05',
+            'B::Assembler'          => '0.06',
+            'B::C'                  => '1.04',
+            'B::Concise'            => '0.59',
+            'B::Debug'              => '1.02',
+            'B::Deparse'            => '0.65',
+            'DB_File'               => '1.808_01',
+            'Devel::PPPort'         => '2.011_01',
+            'Digest'                => '1.05',
+            'DynaLoader'            => '1.04',
+            'English'               => '1.02',
+            'Exporter::Heavy'       => '5.567',
+            'ExtUtils::Command'     => '1.07',
+            'ExtUtils::Liblist::Kid'=> '1.3',
+            'ExtUtils::MM_Any'      => '0.0901',
+            'ExtUtils::MM_Cygwin'   => '1.07',
+            'ExtUtils::MM_NW5'      => '2.07_01',
+            'ExtUtils::MM_Unix'     => '1.45_01',
+            'ExtUtils::MM_VMS'      => '5.71_01',
+            'ExtUtils::MM_Win32'    => '1.10_01',
+            'ExtUtils::MM_Win95'    => '0.03',
+            'ExtUtils::MakeMaker'   => '6.21_02',
+            'ExtUtils::Manifest'    => '1.43',
+            'Fatal'                 => '1.04',
+            'Getopt::Long'          => '2.3401',
+            'IO::Handle'            => '1.23',
+            'IO::Pipe'              => '1.122',
+            'IPC::Open3'            => '1.0105',
+            'MIME::Base64'          => '3.00_01',
+            'MIME::QuotedPrint'     => '3.00',
+            'Memoize'               => '1.01_01',
+            'ODBM_File'             => '1.04',
+            'Opcode'                => '1.06',
+            'POSIX'                 => '1.07',
+            'Storable'              => '2.11',
+            'Time::HiRes'           => '1.56',
+            'Time::Local'           => '1.07_94',
+            'UNIVERSAL'             => '1.02',
+            'Unicode'               => '4.0.0',
+            'Unicode::UCD'          => '0.21',
+            'XSLoader'              => '0.03',
+            'assertions'            => '0.01',
+            'assertions::activate'  => '0.01',
+            'base'                  => '2.04',
+            'if'                    => '0.0401',
+            'open'                  => '1.02',
+            'overload'              => '1.02',
+            'threads'               => '1.02',
+            'utf8'                  => '1.02',
+            'version'               => '0.36',
+        },
+        removed => {
+        }
+    },
+    5.009002 => {
+        delta_from => 5.008007,
+        changed => {
+            'B'                     => '1.07',
+            'B::Concise'            => '0.64',
+            'B::Deparse'            => '0.69',
+            'B::Disassembler'       => '1.03',
+            'B::Terse'              => '1.02',
+            'CGI'                   => '3.07',
+            'Config::Extensions'    => '0.01',
+            'Devel::DProf'          => '20030813.00',
+            'DynaLoader'            => '1.07',
+            'Encode'                => '2.09',
+            'Encode::Alias'         => '2.02',
+            'English'               => '1.03',
+            'Exporter'              => '5.59',
+            'Exporter::Heavy'       => '5.59',
+            'ExtUtils::Command'     => '1.07',
+            'ExtUtils::Command::MM' => '0.03_01',
+            'ExtUtils::Embed'       => '1.26',
+            'ExtUtils::Liblist::Kid'=> '1.3',
+            'ExtUtils::MM_Any'      => '0.10',
+            'ExtUtils::MM_Cygwin'   => '1.07',
+            'ExtUtils::MM_MacOS'    => '1.08',
+            'ExtUtils::MM_NW5'      => '2.07',
+            'ExtUtils::MM_Unix'     => '1.46_01',
+            'ExtUtils::MM_VMS'      => '5.71',
+            'ExtUtils::MM_Win32'    => '1.10',
+            'ExtUtils::MM_Win95'    => '0.03',
+            'ExtUtils::MakeMaker'   => '6.25',
+            'ExtUtils::Manifest'    => '1.44',
+            'Fatal'                 => '1.04',
+            'File::Path'            => '1.06',
+            'FileCache'             => '1.04_01',
+            'Getopt::Long'          => '2.3401',
+            'IO::File'              => '1.10',
+            'IO::Socket::INET'      => '1.27',
+            'Math::BigFloat'        => '1.49',
+            'Math::BigInt'          => '1.75',
+            'Math::BigInt::Calc'    => '0.45',
+            'Math::BigRat'          => '0.14',
+            'Memoize'               => '1.01_01',
+            'Module::CoreList'      => '1.99',
+            'NEXT'                  => '0.60_01',
+            'Opcode'                => '1.06',
+            'Pod::Html'             => '1.0502',
+            'Scalar::Util'          => '1.14_1',
+            'Storable'              => '2.14',
+            'Symbol'                => '1.05',
+            'Test::Harness'         => '2.46',
+            'Test::Harness::Straps' => '0.20_01',
+            'Text::Balanced'        => '1.95_01',
+            'Text::Wrap'            => '2001.09292',
+            'UNIVERSAL'             => '1.02',
+            'Unicode'               => '4.0.1',
+            'Unicode::Normalize'    => '0.30',
+            'Unicode::UCD'          => '0.22',
+            'Win32'                 => '0.23',
+            'XS::APItest'           => '0.05',
+            'XSLoader'              => '0.03',
+            'assertions'            => '0.01',
+            'assertions::activate'  => '0.01',
+            'base'                  => '2.06',
+            'bigint'                => '0.06',
+            'bignum'                => '0.16',
+            'bigrat'                => '0.07',
+            'bytes'                 => '1.01',
+            'encoding::warnings'    => '0.05',
+            'if'                    => '0.0401',
+            're'                    => '0.05',
+            'threads::shared'       => '0.92',
+            'utf8'                  => '1.04',
+            'version'               => '0.42',
+            'warnings'              => '1.04',
+        },
+        removed => {
+            'Test::Harness::Point'  => 1,
+        }
+    },
+    5.009003 => {
+        delta_from => 5.008008,
+        changed => {
+            'Archive::Tar'          => '1.26_01',
+            'Archive::Tar::Constant'=> '0.02',
+            'Archive::Tar::File'    => '0.02',
+            'AutoSplit'             => '1.04_01',
+            'B'                     => '1.10',
+            'B::Bblock'             => '1.02',
+            'B::Bytecode'           => '1.01',
+            'B::C'                  => '1.04',
+            'B::CC'                 => '1.00',
+            'B::Concise'            => '0.67',
+            'B::Debug'              => '1.02',
+            'B::Deparse'            => '0.73',
+            'B::Lint'               => '1.04',
+            'B::Terse'              => '1.03',
+            'CGI'                   => '3.15_01',
+            'CPAN'                  => '1.83_58',
+            'CPAN::Debug'           => '4.44',
+            'CPAN::FirstTime'       => '4.50',
+            'CPAN::HandleConfig'    => '4.31',
+            'CPAN::Nox'             => '2.31',
+            'CPAN::Tarzip'          => '3.36',
+            'CPAN::Version'         => '2.55',
+            'Carp'                  => '1.05',
+            'Carp::Heavy'           => '1.05',
+            'Compress::Zlib'        => '2.000_07',
+            'Compress::Zlib::Common'=> '2.000_07',
+            'Compress::Zlib::Compress::Gzip::Constants'=> '2.000_07',
+            'Compress::Zlib::Compress::Zip::Constants'=> '1.00',
+            'Compress::Zlib::CompressPlugin::Deflate'=> '2.000_05',
+            'Compress::Zlib::CompressPlugin::Identity'=> '2.000_05',
+            'Compress::Zlib::File::GlobMapper'=> '0.000_02',
+            'Compress::Zlib::FileConstants'=> '2.000_07',
+            'Compress::Zlib::IO::Compress::Base'=> '2.000_05',
+            'Compress::Zlib::IO::Compress::Deflate'=> '2.000_07',
+            'Compress::Zlib::IO::Compress::Gzip'=> '2.000_07',
+            'Compress::Zlib::IO::Compress::RawDeflate'=> '2.000_07',
+            'Compress::Zlib::IO::Compress::Zip'=> '2.000_04',
+            'Compress::Zlib::IO::Uncompress::AnyInflate'=> '2.000_07',
+            'Compress::Zlib::IO::Uncompress::AnyUncompress'=> '2.000_05',
+            'Compress::Zlib::IO::Uncompress::Base'=> '2.000_05',
+            'Compress::Zlib::IO::Uncompress::Gunzip'=> '2.000_07',
+            'Compress::Zlib::IO::Uncompress::Inflate'=> '2.000_07',
+            'Compress::Zlib::IO::Uncompress::RawInflate'=> '2.000_07',
+            'Compress::Zlib::IO::Uncompress::Unzip'=> '2.000_05',
+            'Compress::Zlib::ParseParameters'=> '2.000_07',
+            'Compress::Zlib::UncompressPlugin::Identity'=> '2.000_05',
+            'Compress::Zlib::UncompressPlugin::Inflate'=> '2.000_05',
+            'Config::Extensions'    => '0.01',
+            'Cwd'                   => '3.15',
+            'Devel::PPPort'         => '3.08',
+            'Digest::SHA'           => '5.32',
+            'DirHandle'             => '1.01',
+            'DynaLoader'            => '1.07',
+            'Encode'                => '2.14',
+            'Encode::CN::HZ'        => '2.02',
+            'Encode::MIME::Header'  => '2.02',
+            'English'               => '1.04',
+            'Exporter'              => '5.59',
+            'Exporter::Heavy'       => '5.59',
+            'ExtUtils::CBuilder'    => '0.15',
+            'ExtUtils::CBuilder::Base'=> '0.12',
+            'ExtUtils::CBuilder::Platform::Unix'=> '0.12',
+            'ExtUtils::CBuilder::Platform::VMS'=> '0.12',
+            'ExtUtils::CBuilder::Platform::Windows'=> '0.12',
+            'ExtUtils::CBuilder::Platform::aix'=> '0.12',
+            'ExtUtils::CBuilder::Platform::cygwin'=> '0.12',
+            'ExtUtils::CBuilder::Platform::darwin'=> '0.12',
+            'ExtUtils::CBuilder::Platform::dec_osf'=> '0.01',
+            'ExtUtils::CBuilder::Platform::os2'=> '0.13',
+            'ExtUtils::Command::MM' => '0.05_01',
+            'ExtUtils::Constant'    => '0.2',
+            'ExtUtils::Constant::Base'=> '0.02',
+            'ExtUtils::Constant::ProxySubs'=> '0.01',
+            'ExtUtils::Constant::XS'=> '0.02',
+            'ExtUtils::MM_Any'      => '0.13_01',
+            'ExtUtils::MM_Unix'     => '1.50_01',
+            'ExtUtils::MakeMaker'   => '6.30_01',
+            'ExtUtils::ParseXS'     => '2.15_02',
+            'Fatal'                 => '1.04',
+            'File::Compare'         => '1.1005',
+            'File::Spec'            => '3.15',
+            'File::Temp'            => '0.16_01',
+            'IO::File'              => '1.13_01',
+            'IO::Handle'            => '1.26',
+            'IO::Socket'            => '1.29_01',
+            'IO::Socket::INET'      => '1.29_02',
+            'IO::Socket::UNIX'      => '1.22_01',
+            'IO::Zlib'              => '1.04_02',
+            'Locale::Maketext'      => '1.10_01',
+            'Math::BigInt::FastCalc'=> '0.10',
+            'Memoize'               => '1.01_01',
+            'Module::CoreList'      => '2.02',
+            'Moped::Msg'            => '0.01',
+            'NEXT'                  => '0.60_01',
+            'Net::Cmd'              => '2.26_01',
+            'Net::Domain'           => '2.19_01',
+            'Net::Ping'             => '2.31_04',
+            'Opcode'                => '1.08',
+            'POSIX'                 => '1.10',
+            'Pod::Escapes'          => '1.04',
+            'Pod::Man'              => '2.04',
+            'Pod::Perldoc'          => '3.14_01',
+            'Pod::Simple'           => '3.04',
+            'Pod::Simple::BlackBox' => undef,
+            'Pod::Simple::Checker'  => '2.02',
+            'Pod::Simple::Debug'    => undef,
+            'Pod::Simple::DumpAsText'=> '2.02',
+            'Pod::Simple::DumpAsXML'=> '2.02',
+            'Pod::Simple::HTML'     => '3.03',
+            'Pod::Simple::HTMLBatch'=> '3.02',
+            'Pod::Simple::HTMLLegacy'=> '5.01',
+            'Pod::Simple::LinkSection'=> undef,
+            'Pod::Simple::Methody'  => '2.02',
+            'Pod::Simple::Progress' => '1.01',
+            'Pod::Simple::PullParser'=> '2.02',
+            'Pod::Simple::PullParserEndToken'=> undef,
+            'Pod::Simple::PullParserStartToken'=> undef,
+            'Pod::Simple::PullParserTextToken'=> undef,
+            'Pod::Simple::PullParserToken'=> '2.02',
+            'Pod::Simple::RTF'      => '2.02',
+            'Pod::Simple::Search'   => '3.04',
+            'Pod::Simple::SimpleTree'=> '2.02',
+            'Pod::Simple::Text'     => '2.02',
+            'Pod::Simple::TextContent'=> '2.02',
+            'Pod::Simple::TiedOutFH'=> undef,
+            'Pod::Simple::Transcode'=> undef,
+            'Pod::Simple::TranscodeDumb'=> '2.02',
+            'Pod::Simple::TranscodeSmart'=> undef,
+            'Pod::Simple::XMLOutStream'=> '2.02',
+            'Pod::Text'             => '3.01',
+            'Pod::Text::Color'      => '2.01',
+            'Pod::Text::Overstrike' => '2',
+            'Pod::Text::Termcap'    => '2.01',
+            'Pod::Usage'            => '1.33_01',
+            'SelfLoader'            => '1.0905',
+            'Storable'              => '2.15_02',
+            'Test::Builder::Module' => '0.03',
+            'Text::Balanced'        => '1.95_01',
+            'Tie::File'             => '0.97_01',
+            'UNIVERSAL'             => '1.03',
+            'XS::APItest'           => '0.09',
+            'assertions'            => '0.02',
+            'assertions::activate'  => '0.02',
+            'assertions::compat'    => undef,
+            'constant'              => '1.07',
+            'encoding::warnings'    => '0.05',
+            'feature'               => '1.00',
+            're'                    => '0.06',
+            'sort'                  => '2.00',
+            'version'               => '0.53',
+        },
+        removed => {
+        }
+    },
+    5.009004 => {
+        delta_from => 5.009003,
+        changed => {
+            'Archive::Tar'          => '1.30_01',
+            'AutoLoader'            => '5.61',
+            'B'                     => '1.11',
+            'B::Bytecode'           => '1.02',
+            'B::C'                  => '1.05',
+            'B::Concise'            => '0.69',
+            'B::Deparse'            => '0.76',
+            'B::Lint'               => '1.08',
+            'Benchmark'             => '1.08',
+            'CGI'                   => '3.20',
+            'CGI::Cookie'           => '1.27',
+            'CGI::Fast'             => '1.07',
+            'CPAN'                  => '1.87_55',
+            'CPAN::Debug'           => '5.400561',
+            'CPAN::FirstTime'       => '5.400742',
+            'CPAN::HandleConfig'    => '5.400740',
+            'CPAN::Nox'             => '5.400561',
+            'CPAN::Tarzip'          => '5.400714',
+            'CPAN::Version'         => '5.400561',
+            'Compress::Raw::Zlib'   => '2.000_13',
+            'Compress::Zlib'        => '2.000_13',
+            'Cwd'                   => '3.19',
+            'Devel::PPPort'         => '3.10',
+            'Digest'                => '1.15',
+            'Digest::SHA'           => '5.43',
+            'Encode'                => '2.18_01',
+            'Encode::Alias'         => '2.06',
+            'Encode::Byte'          => '2.02',
+            'Encode::CJKConstants'  => '2.02',
+            'Encode::CN'            => '2.02',
+            'Encode::CN::HZ'        => '2.04',
+            'Encode::Config'        => '2.03',
+            'Encode::EBCDIC'        => '2.02',
+            'Encode::Encoder'       => '2.01',
+            'Encode::Encoding'      => '2.04',
+            'Encode::Guess'         => '2.02',
+            'Encode::JP'            => '2.03',
+            'Encode::JP::H2Z'       => '2.02',
+            'Encode::JP::JIS7'      => '2.02',
+            'Encode::KR'            => '2.02',
+            'Encode::KR::2022_KR'   => '2.02',
+            'Encode::MIME::Header'  => '2.04',
+            'Encode::MIME::Header::ISO_2022_JP'=> '1.03',
+            'Encode::Symbol'        => '2.02',
+            'Encode::TW'            => '2.02',
+            'Encode::Unicode'       => '2.03',
+            'Encode::Unicode::UTF7' => '2.04',
+            'ExtUtils::CBuilder'    => '0.18',
+            'ExtUtils::CBuilder::Platform::Windows'=> '0.12_01',
+            'ExtUtils::Constant::Base'=> '0.03',
+            'ExtUtils::Constant::ProxySubs'=> '0.03',
+            'ExtUtils::Install'     => '1.41',
+            'ExtUtils::Installed'   => '1.41',
+            'ExtUtils::MM_Any'      => '0.13_02',
+            'ExtUtils::MM_NW5'      => '2.08_01',
+            'ExtUtils::MM_Unix'     => '1.5003',
+            'ExtUtils::MM_VMS'      => '5.73_03',
+            'ExtUtils::MM_Win32'    => '1.12_02',
+            'ExtUtils::MM_Win95'    => '0.04_01',
+            'ExtUtils::MakeMaker'   => '6.30_02',
+            'ExtUtils::Manifest'    => '1.46_01',
+            'ExtUtils::Mkbootstrap' => '1.15_01',
+            'ExtUtils::Mksymlists'  => '1.19_01',
+            'ExtUtils::Packlist'    => '1.41',
+            'File::Basename'        => '2.75',
+            'File::Find'            => '1.11',
+            'File::GlobMapper'      => '0.000_02',
+            'File::Spec'            => '3.19',
+            'FileCache'             => '1.07',
+            'Getopt::Long'          => '2.3501',
+            'Hash::Util'            => '0.07',
+            'Hash::Util::FieldHash' => '0.01',
+            'IO'                    => '1.23_01',
+            'IO::Compress::Adapter::Deflate'=> '2.000_13',
+            'IO::Compress::Adapter::Identity'=> '2.000_13',
+            'IO::Compress::Base'    => '2.000_13',
+            'IO::Compress::Base::Common'=> '2.000_13',
+            'IO::Compress::Deflate' => '2.000_13',
+            'IO::Compress::Gzip'    => '2.000_13',
+            'IO::Compress::Gzip::Constants'=> '2.000_13',
+            'IO::Compress::RawDeflate'=> '2.000_13',
+            'IO::Compress::Zip'     => '2.000_13',
+            'IO::Compress::Zip::Constants'=> '2.000_13',
+            'IO::Compress::Zlib::Constants'=> '2.000_13',
+            'IO::Compress::Zlib::Extra'=> '2.000_13',
+            'IO::Dir'               => '1.06',
+            'IO::File'              => '1.14',
+            'IO::Handle'            => '1.27',
+            'IO::Socket'            => '1.30_01',
+            'IO::Socket::INET'      => '1.31',
+            'IO::Socket::UNIX'      => '1.23',
+            'IO::Uncompress::Adapter::Identity'=> '2.000_13',
+            'IO::Uncompress::Adapter::Inflate'=> '2.000_13',
+            'IO::Uncompress::AnyInflate'=> '2.000_13',
+            'IO::Uncompress::AnyUncompress'=> '2.000_13',
+            'IO::Uncompress::Base'  => '2.000_13',
+            'IO::Uncompress::Gunzip'=> '2.000_13',
+            'IO::Uncompress::Inflate'=> '2.000_13',
+            'IO::Uncompress::RawInflate'=> '2.000_13',
+            'IO::Uncompress::Unzip' => '2.000_13',
+            'MIME::Base64'          => '3.07_01',
+            'Math::Complex'         => '1.36',
+            'Math::Trig'            => '1.04',
+            'Module::Build'         => '0.2805',
+            'Module::Build::Base'   => undef,
+            'Module::Build::Compat' => '0.03',
+            'Module::Build::ConfigData'=> undef,
+            'Module::Build::Cookbook'=> undef,
+            'Module::Build::ModuleInfo'=> undef,
+            'Module::Build::Notes'  => undef,
+            'Module::Build::PPMMaker'=> undef,
+            'Module::Build::Platform::Amiga'=> undef,
+            'Module::Build::Platform::Default'=> undef,
+            'Module::Build::Platform::EBCDIC'=> undef,
+            'Module::Build::Platform::MPEiX'=> undef,
+            'Module::Build::Platform::MacOS'=> undef,
+            'Module::Build::Platform::RiscOS'=> undef,
+            'Module::Build::Platform::Unix'=> undef,
+            'Module::Build::Platform::VMS'=> undef,
+            'Module::Build::Platform::VOS'=> undef,
+            'Module::Build::Platform::Windows'=> undef,
+            'Module::Build::Platform::aix'=> undef,
+            'Module::Build::Platform::cygwin'=> undef,
+            'Module::Build::Platform::darwin'=> undef,
+            'Module::Build::Platform::os2'=> undef,
+            'Module::Build::PodParser'=> undef,
+            'Module::Build::Version'=> '0',
+            'Module::Build::YAML'   => '0.50',
+            'Module::CoreList'      => '2.08',
+            'Module::Load'          => '0.10',
+            'Module::Loaded'        => '0.01',
+            'Package::Constants'    => '0.01',
+            'Pod::Html'             => '1.07',
+            'Pod::Man'              => '2.09',
+            'Pod::Text'             => '3.07',
+            'Pod::Text::Color'      => '2.03',
+            'Pod::Text::Termcap'    => '2.03',
+            'SDBM_File'             => '1.06',
+            'Shell'                 => '0.7',
+            'Sys::Syslog'           => '0.17',
+            'Term::ANSIColor'       => '1.11',
+            'Test::Builder'         => '0.33',
+            'Test::Builder::Tester' => '1.04',
+            'Test::Harness'         => '2.62',
+            'Test::Harness::Util'   => '0.01',
+            'Test::More'            => '0.64',
+            'Test::Simple'          => '0.64',
+            'Text::Balanced'        => '1.98_01',
+            'Text::ParseWords'      => '3.25',
+            'Text::Tabs'            => '2007.071101',
+            'Text::Wrap'            => '2006.0711',
+            'Tie::RefHash'          => '1.34_01',
+            'Time::HiRes'           => '1.87',
+            'Time::Local'           => '1.13',
+            'Time::gmtime'          => '1.03',
+            'UNIVERSAL'             => '1.04',
+            'Unicode::Normalize'    => '1.01',
+            'Win32API::File'        => '0.1001',
+            'Win32API::File::ExtUtils::Myconst2perl'=> '1',
+            'assertions'            => '0.03',
+            'assertions::compat'    => '0.02',
+            'autouse'               => '1.06',
+            'diagnostics'           => '1.16',
+            'encoding'              => '2.04',
+            'encoding::warnings'    => '0.10',
+            'feature'               => '1.01',
+            're'                    => '0.0601',
+            'threads'               => '1.38',
+            'threads::shared'       => '0.94_01',
+            'version'               => '0.67',
+        },
+        removed => {
+            'Compress::Zlib::Common'=> 1,
+            'Compress::Zlib::Compress::Gzip::Constants'=> 1,
+            'Compress::Zlib::Compress::Zip::Constants'=> 1,
+            'Compress::Zlib::CompressPlugin::Deflate'=> 1,
+            'Compress::Zlib::CompressPlugin::Identity'=> 1,
+            'Compress::Zlib::File::GlobMapper'=> 1,
+            'Compress::Zlib::FileConstants'=> 1,
+            'Compress::Zlib::IO::Compress::Base'=> 1,
+            'Compress::Zlib::IO::Compress::Deflate'=> 1,
+            'Compress::Zlib::IO::Compress::Gzip'=> 1,
+            'Compress::Zlib::IO::Compress::RawDeflate'=> 1,
+            'Compress::Zlib::IO::Compress::Zip'=> 1,
+            'Compress::Zlib::IO::Uncompress::AnyInflate'=> 1,
+            'Compress::Zlib::IO::Uncompress::AnyUncompress'=> 1,
+            'Compress::Zlib::IO::Uncompress::Base'=> 1,
+            'Compress::Zlib::IO::Uncompress::Gunzip'=> 1,
+            'Compress::Zlib::IO::Uncompress::Inflate'=> 1,
+            'Compress::Zlib::IO::Uncompress::RawInflate'=> 1,
+            'Compress::Zlib::IO::Uncompress::Unzip'=> 1,
+            'Compress::Zlib::ParseParameters'=> 1,
+            'Compress::Zlib::UncompressPlugin::Identity'=> 1,
+            'Compress::Zlib::UncompressPlugin::Inflate'=> 1,
+        }
+    },
+    5.009005 => {
+        delta_from => 5.009004,
+        changed => {
+            'Archive::Extract'      => '0.22_01',
+            'Archive::Tar'          => '1.32',
+            'Attribute::Handlers'   => '0.78_06',
+            'AutoLoader'            => '5.63',
+            'AutoSplit'             => '1.05',
+            'B'                     => '1.16',
+            'B::Concise'            => '0.72',
+            'B::Debug'              => '1.05',
+            'B::Deparse'            => '0.82',
+            'B::Lint'               => '1.09',
+            'B::Terse'              => '1.05',
+            'Benchmark'             => '1.1',
+            'CGI'                   => '3.29',
+            'CGI::Cookie'           => '1.28',
+            'CGI::Util'             => '1.5_01',
+            'CPAN'                  => '1.9102',
+            'CPAN::Debug'           => '5.400955',
+            'CPAN::FirstTime'       => '5.401669',
+            'CPAN::HandleConfig'    => '5.401744',
+            'CPAN::Kwalify'         => '5.401418',
+            'CPAN::Nox'             => '5.400844',
+            'CPAN::Queue'           => '5.401704',
+            'CPAN::Tarzip'          => '5.401717',
+            'CPAN::Version'         => '5.401387',
+            'CPANPLUS'              => '0.81_01',
+            'CPANPLUS::Backend'     => undef,
+            'CPANPLUS::Backend::RV' => undef,
+            'CPANPLUS::Config'      => undef,
+            'CPANPLUS::Configure'   => undef,
+            'CPANPLUS::Configure::Setup'=> undef,
+            'CPANPLUS::Dist'        => undef,
+            'CPANPLUS::Dist::Base'  => '0.01',
+            'CPANPLUS::Dist::Build' => '0.06_01',
+            'CPANPLUS::Dist::Build::Constants'=> '0.01',
+            'CPANPLUS::Dist::MM'    => undef,
+            'CPANPLUS::Dist::Sample'=> undef,
+            'CPANPLUS::Error'       => undef,
+            'CPANPLUS::Internals'   => '0.81_01',
+            'CPANPLUS::Internals::Constants'=> '0.01',
+            'CPANPLUS::Internals::Constants::Report'=> '0.01',
+            'CPANPLUS::Internals::Extract'=> undef,
+            'CPANPLUS::Internals::Fetch'=> undef,
+            'CPANPLUS::Internals::Report'=> undef,
+            'CPANPLUS::Internals::Search'=> undef,
+            'CPANPLUS::Internals::Source'=> undef,
+            'CPANPLUS::Internals::Utils'=> undef,
+            'CPANPLUS::Internals::Utils::Autoflush'=> undef,
+            'CPANPLUS::Module'      => undef,
+            'CPANPLUS::Module::Author'=> undef,
+            'CPANPLUS::Module::Author::Fake'=> undef,
+            'CPANPLUS::Module::Checksums'=> undef,
+            'CPANPLUS::Module::Fake'=> undef,
+            'CPANPLUS::Module::Signature'=> undef,
+            'CPANPLUS::Selfupdate'  => undef,
+            'CPANPLUS::Shell'       => undef,
+            'CPANPLUS::Shell::Classic'=> '0.0562',
+            'CPANPLUS::Shell::Default'=> '0.81_01',
+            'CPANPLUS::Shell::Default::Plugins::Remote'=> undef,
+            'CPANPLUS::Shell::Default::Plugins::Source'=> undef,
+            'CPANPLUS::inc'         => undef,
+            'Carp'                  => '1.07',
+            'Carp::Heavy'           => '1.07',
+            'Compress::Raw::Zlib'   => '2.005',
+            'Compress::Zlib'        => '2.005',
+            'Cwd'                   => '3.25',
+            'DBM_Filter'            => '0.02',
+            'DB_File'               => '1.815',
+            'Data::Dumper'          => '2.121_13',
+            'Devel::InnerPackage'   => '0.3',
+            'Devel::PPPort'         => '3.11_01',
+            'Digest::MD5'           => '2.36_01',
+            'Digest::SHA'           => '5.44',
+            'DynaLoader'            => '1.08',
+            'Encode'                => '2.23',
+            'Encode::Alias'         => '2.07',
+            'Encode::Byte'          => '2.03',
+            'Encode::Config'        => '2.04',
+            'Encode::Encoding'      => '2.05',
+            'Encode::GSM0338'       => '2.00',
+            'Encode::JP::JIS7'      => '2.03',
+            'Encode::MIME::Header'  => '2.05',
+            'Encode::MIME::Name'    => '1.01',
+            'Encode::Unicode'       => '2.05',
+            'Errno'                 => '1.10',
+            'Exporter'              => '5.60',
+            'Exporter::Heavy'       => '5.60',
+            'ExtUtils::CBuilder'    => '0.19',
+            'ExtUtils::CBuilder::Platform::Windows'=> '0.13',
+            'ExtUtils::Command'     => '1.13',
+            'ExtUtils::Command::MM' => '0.07',
+            'ExtUtils::Constant::Base'=> '0.04',
+            'ExtUtils::Install'     => '1.41_01',
+            'ExtUtils::Liblist'     => '1.03',
+            'ExtUtils::Liblist::Kid'=> '1.33',
+            'ExtUtils::MM'          => '0.07',
+            'ExtUtils::MM_AIX'      => '0.05',
+            'ExtUtils::MM_Any'      => '0.15',
+            'ExtUtils::MM_BeOS'     => '1.07',
+            'ExtUtils::MM_Cygwin'   => '1.1',
+            'ExtUtils::MM_DOS'      => '0.04',
+            'ExtUtils::MM_MacOS'    => '1.1',
+            'ExtUtils::MM_NW5'      => '2.1',
+            'ExtUtils::MM_OS2'      => '1.07',
+            'ExtUtils::MM_QNX'      => '0.04',
+            'ExtUtils::MM_UWIN'     => '0.04',
+            'ExtUtils::MM_Unix'     => '1.54_01',
+            'ExtUtils::MM_VMS'      => '5.76',
+            'ExtUtils::MM_VOS'      => '0.04',
+            'ExtUtils::MM_Win32'    => '1.15',
+            'ExtUtils::MM_Win95'    => '0.06',
+            'ExtUtils::MY'          => '0.03',
+            'ExtUtils::MakeMaker'   => '6.36',
+            'ExtUtils::MakeMaker::Config'=> '0.04',
+            'ExtUtils::MakeMaker::bytes'=> '0.03',
+            'ExtUtils::MakeMaker::vmsish'=> '0.03',
+            'ExtUtils::Manifest'    => '1.51_01',
+            'ExtUtils::Mkbootstrap' => '1.17',
+            'ExtUtils::Mksymlists'  => '1.21',
+            'ExtUtils::ParseXS'     => '2.18',
+            'ExtUtils::XSSymSet'    => '1.1',
+            'ExtUtils::testlib'     => '1.17',
+            'Fatal'                 => '1.05',
+            'Fcntl'                 => '1.06',
+            'File::Basename'        => '2.76',
+            'File::Copy'            => '2.10',
+            'File::Fetch'           => '0.10',
+            'File::Glob'            => '1.06',
+            'File::Path'            => '2.01',
+            'File::Spec'            => '3.25',
+            'File::Spec::Cygwin'    => '1.1_01',
+            'File::Spec::VMS'       => '1.4_01',
+            'File::Temp'            => '0.18',
+            'Filter::Util::Call'    => '1.0602',
+            'FindBin'               => '1.49',
+            'Getopt::Long'          => '2.36',
+            'Hash::Util::FieldHash' => '1.01',
+            'IO::Compress::Adapter::Deflate'=> '2.005',
+            'IO::Compress::Adapter::Identity'=> '2.005',
+            'IO::Compress::Base'    => '2.005',
+            'IO::Compress::Base::Common'=> '2.005',
+            'IO::Compress::Deflate' => '2.005',
+            'IO::Compress::Gzip'    => '2.005',
+            'IO::Compress::Gzip::Constants'=> '2.005',
+            'IO::Compress::RawDeflate'=> '2.005',
+            'IO::Compress::Zip'     => '2.005',
+            'IO::Compress::Zip::Constants'=> '2.005',
+            'IO::Compress::Zlib::Constants'=> '2.005',
+            'IO::Compress::Zlib::Extra'=> '2.005',
+            'IO::Uncompress::Adapter::Identity'=> '2.005',
+            'IO::Uncompress::Adapter::Inflate'=> '2.005',
+            'IO::Uncompress::AnyInflate'=> '2.005',
+            'IO::Uncompress::AnyUncompress'=> '2.005',
+            'IO::Uncompress::Base'  => '2.005',
+            'IO::Uncompress::Gunzip'=> '2.005',
+            'IO::Uncompress::Inflate'=> '2.005',
+            'IO::Uncompress::RawInflate'=> '2.005',
+            'IO::Uncompress::Unzip' => '2.005',
+            'IO::Zlib'              => '1.05_01',
+            'IPC::Cmd'              => '0.36_01',
+            'List::Util'            => '1.19',
+            'Locale::Maketext::Simple'=> '0.18',
+            'Log::Message'          => '0.01',
+            'Log::Message::Config'  => '0.01',
+            'Log::Message::Handlers'=> undef,
+            'Log::Message::Item'    => undef,
+            'Log::Message::Simple'  => '0.0201',
+            'Math::BigFloat'        => '1.58',
+            'Math::BigInt'          => '1.87',
+            'Math::BigInt::Calc'    => '0.51',
+            'Math::BigInt::FastCalc'=> '0.15_01',
+            'Math::BigRat'          => '0.19',
+            'Math::Complex'         => '1.37',
+            'Memoize'               => '1.01_02',
+            'Module::Build'         => '0.2808',
+            'Module::Build::Config' => undef,
+            'Module::Build::Version'=> '0.7203',
+            'Module::CoreList'      => '2.12',
+            'Module::Load::Conditional'=> '0.16',
+            'Module::Pluggable'     => '3.6',
+            'Module::Pluggable::Object'=> '3.6',
+            'NDBM_File'             => '1.07',
+            'Net::Cmd'              => '2.28',
+            'Net::Config'           => '1.11',
+            'Net::Domain'           => '2.20',
+            'Net::FTP'              => '2.77',
+            'Net::FTP::A'           => '1.18',
+            'Net::NNTP'             => '2.24',
+            'Net::POP3'             => '2.29',
+            'Net::SMTP'             => '2.31',
+            'ODBM_File'             => '1.07',
+            'OS2::DLL'              => '1.03',
+            'Object::Accessor'      => '0.32',
+            'Opcode'                => '1.09',
+            'POSIX'                 => '1.13',
+            'Params::Check'         => '0.26',
+            'PerlIO::encoding'      => '0.10',
+            'PerlIO::scalar'        => '0.05',
+            'PerlIO::via'           => '0.04',
+            'Pod::Html'             => '1.08',
+            'Pod::Man'              => '2.12',
+            'Pod::ParseUtils'       => '1.35',
+            'Pod::Parser'           => '1.35',
+            'Pod::Select'           => '1.35',
+            'Pod::Simple'           => '3.05',
+            'Pod::Text'             => '3.08',
+            'Pod::Usage'            => '1.35',
+            'Scalar::Util'          => '1.19',
+            'SelfLoader'            => '1.11',
+            'Shell'                 => '0.72_01',
+            'Socket'                => '1.79',
+            'Storable'              => '2.16',
+            'Switch'                => '2.13',
+            'Sys::Syslog'           => '0.18_01',
+            'Term::ANSIColor'       => '1.12',
+            'Term::UI'              => '0.14_01',
+            'Term::UI::History'     => undef,
+            'Test::Builder'         => '0.70',
+            'Test::Builder::Module' => '0.68',
+            'Test::Builder::Tester' => '1.07',
+            'Test::Harness'         => '2.64',
+            'Test::Harness::Results'=> '0.01',
+            'Test::More'            => '0.70',
+            'Test::Simple'          => '0.70',
+            'Text::Balanced'        => '2.0.0',
+            'Text::Soundex'         => '3.02',
+            'Text::Tabs'            => '2007.1117',
+            'Text::Wrap'            => '2006.1117',
+            'Thread'                => '3.02',
+            'Tie::File'             => '0.97_02',
+            'Tie::Hash::NamedCapture'=> '0.06',
+            'Tie::Memoize'          => '1.1',
+            'Tie::RefHash'          => '1.37',
+            'Time::HiRes'           => '1.9707',
+            'Time::Local'           => '1.17',
+            'Time::Piece'           => '1.11_02',
+            'Time::Seconds'         => undef,
+            'Unicode'               => '5.0.0',
+            'Unicode::Normalize'    => '1.02',
+            'Unicode::UCD'          => '0.25',
+            'VMS::DCLsym'           => '1.03',
+            'Win32'                 => '0.30',
+            'Win32API::File'        => '0.1001_01',
+            'Win32CORE'             => '0.02',
+            'XS::APItest'           => '0.12',
+            'XSLoader'              => '0.08',
+            'attributes'            => '0.08',
+            'base'                  => '2.12',
+            'bigint'                => '0.22',
+            'bignum'                => '0.22',
+            'bigrat'                => '0.22',
+            'bytes'                 => '1.03',
+            'charnames'             => '1.06',
+            'constant'              => '1.10',
+            'diagnostics'           => '1.17',
+            'encoding'              => '2.06',
+            'encoding::warnings'    => '0.11',
+            'feature'               => '1.10',
+            'fields'                => '2.12',
+            'less'                  => '0.02',
+            'mro'                   => '1.00',
+            'overload'              => '1.06',
+            're'                    => '0.08',
+            'sigtrap'               => '1.04',
+            'sort'                  => '2.01',
+            'strict'                => '1.04',
+            'threads'               => '1.63',
+            'threads::shared'       => '1.12',
+            'utf8'                  => '1.07',
+            'version'               => '0.7203',
+            'warnings'              => '1.06',
+        },
+        removed => {
+            'B::Asmdata'            => 1,
+            'B::Assembler'          => 1,
+            'B::Bblock'             => 1,
+            'B::Bytecode'           => 1,
+            'B::C'                  => 1,
+            'B::CC'                 => 1,
+            'B::Disassembler'       => 1,
+            'B::Stackobj'           => 1,
+            'B::Stash'              => 1,
+            'ByteLoader'            => 1,
+            'Thread::Signal'        => 1,
+            'Thread::Specific'      => 1,
+            'assertions'            => 1,
+            'assertions::activate'  => 1,
+            'assertions::compat'    => 1,
+        }
+    },
+    5.01 => {
+        delta_from => 5.009005,
+        changed => {
+            'Archive::Extract'      => '0.24',
+            'Archive::Tar'          => '1.38',
+            'Attribute::Handlers'   => '0.79',
+            'B'                     => '1.17',
+            'B::Concise'            => '0.74',
+            'B::Deparse'            => '0.83',
+            'CPAN'                  => '1.9205',
+            'CPAN::API::HOWTO'      => undef,
+            'CPAN::Debug'           => '5.402212',
+            'CPAN::DeferedCode'     => '5.50',
+            'CPAN::FirstTime'       => '5.402229',
+            'CPAN::HandleConfig'    => '5.402212',
+            'CPAN::Nox'             => '5.402411',
+            'CPAN::Queue'           => '5.402212',
+            'CPAN::Tarzip'          => '5.402213',
+            'CPAN::Version'         => '5.5',
+            'CPANPLUS'              => '0.84',
+            'CPANPLUS::Dist::Build' => '0.06_02',
+            'CPANPLUS::Internals'   => '0.84',
+            'CPANPLUS::Shell::Default'=> '0.84',
+            'CPANPLUS::Shell::Default::Plugins::CustomSource'=> undef,
+            'Carp'                  => '1.08',
+            'Carp::Heavy'           => '1.08',
+            'Compress::Raw::Zlib'   => '2.008',
+            'Compress::Zlib'        => '2.008',
+            'Cwd'                   => '3.2501',
+            'DB_File'               => '1.816_1',
+            'Data::Dumper'          => '2.121_14',
+            'Devel::PPPort'         => '3.13',
+            'Digest::SHA'           => '5.45',
+            'Exporter'              => '5.62',
+            'Exporter::Heavy'       => '5.62',
+            'ExtUtils::CBuilder'    => '0.21',
+            'ExtUtils::CBuilder::Base'=> '0.21',
+            'ExtUtils::CBuilder::Platform::Unix'=> '0.21',
+            'ExtUtils::CBuilder::Platform::VMS'=> '0.22',
+            'ExtUtils::CBuilder::Platform::Windows'=> '0.21',
+            'ExtUtils::CBuilder::Platform::aix'=> '0.21',
+            'ExtUtils::CBuilder::Platform::cygwin'=> '0.21',
+            'ExtUtils::CBuilder::Platform::darwin'=> '0.21',
+            'ExtUtils::CBuilder::Platform::dec_osf'=> '0.21',
+            'ExtUtils::CBuilder::Platform::os2'=> '0.21',
+            'ExtUtils::Command::MM' => '6.42',
+            'ExtUtils::Constant::ProxySubs'=> '0.05',
+            'ExtUtils::Embed'       => '1.27',
+            'ExtUtils::Install'     => '1.44',
+            'ExtUtils::Installed'   => '1.43',
+            'ExtUtils::Liblist'     => '6.42',
+            'ExtUtils::Liblist::Kid'=> '6.42',
+            'ExtUtils::MM'          => '6.42',
+            'ExtUtils::MM_AIX'      => '6.42',
+            'ExtUtils::MM_Any'      => '6.42',
+            'ExtUtils::MM_BeOS'     => '6.42',
+            'ExtUtils::MM_Cygwin'   => '6.42',
+            'ExtUtils::MM_DOS'      => '6.42',
+            'ExtUtils::MM_MacOS'    => '6.42',
+            'ExtUtils::MM_NW5'      => '6.42',
+            'ExtUtils::MM_OS2'      => '6.42',
+            'ExtUtils::MM_QNX'      => '6.42',
+            'ExtUtils::MM_UWIN'     => '6.42',
+            'ExtUtils::MM_Unix'     => '6.42',
+            'ExtUtils::MM_VMS'      => '6.42',
+            'ExtUtils::MM_VOS'      => '6.42',
+            'ExtUtils::MM_Win32'    => '6.42',
+            'ExtUtils::MM_Win95'    => '6.42',
+            'ExtUtils::MY'          => '6.42',
+            'ExtUtils::MakeMaker'   => '6.42',
+            'ExtUtils::MakeMaker::Config'=> '6.42',
+            'ExtUtils::MakeMaker::bytes'=> '6.42',
+            'ExtUtils::MakeMaker::vmsish'=> '6.42',
+            'ExtUtils::Mkbootstrap' => '6.42',
+            'ExtUtils::Mksymlists'  => '6.42',
+            'ExtUtils::Packlist'    => '1.43',
+            'ExtUtils::ParseXS'     => '2.18_02',
+            'ExtUtils::testlib'     => '6.42',
+            'File::Copy'            => '2.11',
+            'File::Fetch'           => '0.14',
+            'File::Find'            => '1.12',
+            'File::Path'            => '2.04',
+            'File::Spec'            => '3.2501',
+            'File::Spec::Cygwin'    => '3.2501',
+            'File::Spec::Epoc'      => '3.2501',
+            'File::Spec::Functions' => '3.2501',
+            'File::Spec::Mac'       => '3.2501',
+            'File::Spec::OS2'       => '3.2501',
+            'File::Spec::Unix'      => '3.2501',
+            'File::Spec::VMS'       => '3.2501',
+            'File::Spec::Win32'     => '3.2501',
+            'Filter::Util::Call'    => '1.07',
+            'Getopt::Long'          => '2.37',
+            'Hash::Util::FieldHash' => '1.03',
+            'IO::Compress::Adapter::Deflate'=> '2.008',
+            'IO::Compress::Adapter::Identity'=> '2.008',
+            'IO::Compress::Base'    => '2.008',
+            'IO::Compress::Base::Common'=> '2.008',
+            'IO::Compress::Deflate' => '2.008',
+            'IO::Compress::Gzip'    => '2.008',
+            'IO::Compress::Gzip::Constants'=> '2.008',
+            'IO::Compress::RawDeflate'=> '2.008',
+            'IO::Compress::Zip'     => '2.008',
+            'IO::Compress::Zip::Constants'=> '2.008',
+            'IO::Compress::Zlib::Constants'=> '2.008',
+            'IO::Compress::Zlib::Extra'=> '2.008',
+            'IO::Uncompress::Adapter::Identity'=> '2.008',
+            'IO::Uncompress::Adapter::Inflate'=> '2.008',
+            'IO::Uncompress::AnyInflate'=> '2.008',
+            'IO::Uncompress::AnyUncompress'=> '2.008',
+            'IO::Uncompress::Base'  => '2.008',
+            'IO::Uncompress::Gunzip'=> '2.008',
+            'IO::Uncompress::Inflate'=> '2.008',
+            'IO::Uncompress::RawInflate'=> '2.008',
+            'IO::Uncompress::Unzip' => '2.008',
+            'IO::Zlib'              => '1.07',
+            'IPC::Cmd'              => '0.40_1',
+            'IPC::SysV'             => '1.05',
+            'Locale::Maketext'      => '1.12',
+            'Log::Message::Simple'  => '0.04',
+            'Math::BigFloat'        => '1.59',
+            'Math::BigInt'          => '1.88',
+            'Math::BigInt::Calc'    => '0.52',
+            'Math::BigInt::FastCalc'=> '0.16',
+            'Math::BigRat'          => '0.21',
+            'Module::Build'         => '0.2808_01',
+            'Module::Build::Base'   => '0.2808_01',
+            'Module::Build::Compat' => '0.2808_01',
+            'Module::Build::Config' => '0.2808_01',
+            'Module::Build::Dumper' => undef,
+            'Module::Build::ModuleInfo'=> '0.2808_01',
+            'Module::Build::Notes'  => '0.2808_01',
+            'Module::Build::PPMMaker'=> '0.2808_01',
+            'Module::Build::Platform::Amiga'=> '0.2808_01',
+            'Module::Build::Platform::Default'=> '0.2808_01',
+            'Module::Build::Platform::EBCDIC'=> '0.2808_01',
+            'Module::Build::Platform::MPEiX'=> '0.2808_01',
+            'Module::Build::Platform::MacOS'=> '0.2808_01',
+            'Module::Build::Platform::RiscOS'=> '0.2808_01',
+            'Module::Build::Platform::Unix'=> '0.2808_01',
+            'Module::Build::Platform::VMS'=> '0.2808_01',
+            'Module::Build::Platform::VOS'=> '0.2808_01',
+            'Module::Build::Platform::Windows'=> '0.2808_01',
+            'Module::Build::Platform::aix'=> '0.2808_01',
+            'Module::Build::Platform::cygwin'=> '0.2808_01',
+            'Module::Build::Platform::darwin'=> '0.2808_01',
+            'Module::Build::Platform::os2'=> '0.2808_01',
+            'Module::Build::PodParser'=> '0.2808_01',
+            'Module::CoreList'      => '2.13',
+            'Module::Load'          => '0.12',
+            'Module::Load::Conditional'=> '0.22',
+            'Net::Cmd'              => '2.29',
+            'Net::Ping'             => '2.33',
+            'Opcode'                => '1.11',
+            'Pod::Checker'          => '1.43_01',
+            'Pod::Man'              => '2.16',
+            'Pod::Perldoc'          => '3.14_02',
+            'Socket'                => '1.80',
+            'Storable'              => '2.18',
+            'Sys::Syslog'           => '0.22',
+            'Sys::Syslog::win32::Win32'=> undef,
+            'Term::Cap'             => '1.12',
+            'Term::ReadLine'        => '1.03',
+            'Term::UI'              => '0.18',
+            'Test::Builder'         => '0.72',
+            'Test::Builder::Module' => '0.72',
+            'Test::Builder::Tester' => '1.09',
+            'Test::Harness::Straps' => '0.26_01',
+            'Test::More'            => '0.72',
+            'Test::Simple'          => '0.72',
+            'Text::ParseWords'      => '3.26',
+            'Text::Soundex'         => '3.03',
+            'Tie::StdHandle'        => undef,
+            'Time::HiRes'           => '1.9711',
+            'Time::Local'           => '1.18',
+            'Time::Piece'           => '1.12',
+            'VMS::Filespec'         => '1.12',
+            'Win32'                 => '0.34',
+            'base'                  => '2.13',
+            'constant'              => '1.13',
+            'feature'               => '1.11',
+            'fields'                => '2.13',
+            'filetest'              => '1.02',
+            'open'                  => '1.06',
+            'threads'               => '1.67',
+            'threads::shared'       => '1.14',
+            'version'               => '0.74',
+        },
+        removed => {
+        }
+    },
+    5.010001 => {
+        delta_from => 5.01,
+        changed => {
+            'App::Prove'            => '3.17',
+            'App::Prove::State'     => '3.17',
+            'App::Prove::State::Result'=> '3.17',
+            'App::Prove::State::Result::Test'=> '3.17',
+            'Archive::Extract'      => '0.34',
+            'Archive::Tar'          => '1.52',
+            'Attribute::Handlers'   => '0.85',
+            'AutoLoader'            => '5.68',
+            'AutoSplit'             => '1.06',
+            'B'                     => '1.22',
+            'B::Concise'            => '0.76',
+            'B::Debug'              => '1.11',
+            'B::Deparse'            => '0.89',
+            'B::Lint'               => '1.11',
+            'B::Lint::Debug'        => undef,
+            'B::Xref'               => '1.02',
+            'Benchmark'             => '1.11',
+            'CGI'                   => '3.43',
+            'CGI::Carp'             => '1.30_01',
+            'CGI::Cookie'           => '1.29',
+            'CPAN'                  => '1.9402',
+            'CPAN::Author'          => '5.5',
+            'CPAN::Bundle'          => '5.5',
+            'CPAN::CacheMgr'        => '5.5',
+            'CPAN::Complete'        => '5.5',
+            'CPAN::Debug'           => '5.5',
+            'CPAN::DeferredCode'    => '5.50',
+            'CPAN::Distribution'    => '1.93',
+            'CPAN::Distroprefs'     => '6',
+            'CPAN::Distrostatus'    => '5.5',
+            'CPAN::Exception::RecursiveDependency'=> '5.5',
+            'CPAN::Exception::blocked_urllist'=> '1.0',
+            'CPAN::Exception::yaml_not_installed'=> '5.5',
+            'CPAN::FTP'             => '5.5001',
+            'CPAN::FTP::netrc'      => '1.00',
+            'CPAN::FirstTime'       => '5.53',
+            'CPAN::HandleConfig'    => '5.5',
+            'CPAN::Index'           => '1.93',
+            'CPAN::InfoObj'         => '5.5',
+            'CPAN::Kwalify'         => '5.50',
+            'CPAN::LWP::UserAgent'  => '1.00',
+            'CPAN::Module'          => '5.5',
+            'CPAN::Nox'             => '5.50',
+            'CPAN::Prompt'          => '5.5',
+            'CPAN::Queue'           => '5.5',
+            'CPAN::Shell'           => '5.5',
+            'CPAN::Tarzip'          => '5.501',
+            'CPAN::URL'             => '5.5',
+            'CPANPLUS'              => '0.88',
+            'CPANPLUS::Dist::Autobundle'=> undef,
+            'CPANPLUS::Dist::Base'  => undef,
+            'CPANPLUS::Dist::Build' => '0.36',
+            'CPANPLUS::Dist::Build::Constants'=> '0.36',
+            'CPANPLUS::Internals'   => '0.88',
+            'CPANPLUS::Internals::Constants'=> undef,
+            'CPANPLUS::Internals::Constants::Report'=> undef,
+            'CPANPLUS::Internals::Source::Memory'=> undef,
+            'CPANPLUS::Internals::Source::SQLite'=> undef,
+            'CPANPLUS::Internals::Source::SQLite::Tie'=> undef,
+            'CPANPLUS::Shell::Default'=> '0.88',
+            'Carp'                  => '1.11',
+            'Carp::Heavy'           => '1.11',
+            'Compress::Raw::Bzip2'  => '2.020',
+            'Compress::Raw::Zlib'   => '2.020',
+            'Compress::Zlib'        => '2.020',
+            'Cwd'                   => '3.30',
+            'DB'                    => '1.02',
+            'DBM_Filter::compress'  => '0.02',
+            'DBM_Filter::encode'    => '0.02',
+            'DBM_Filter::int32'     => '0.02',
+            'DBM_Filter::null'      => '0.02',
+            'DBM_Filter::utf8'      => '0.02',
+            'DB_File'               => '1.820',
+            'Data::Dumper'          => '2.124',
+            'Devel::DProf'          => '20080331.00',
+            'Devel::PPPort'         => '3.19',
+            'Devel::Peek'           => '1.04',
+            'Digest'                => '1.16',
+            'Digest::MD5'           => '2.39',
+            'Digest::SHA'           => '5.47',
+            'Digest::base'          => '1.16',
+            'Digest::file'          => '1.16',
+            'DirHandle'             => '1.03',
+            'Dumpvalue'             => '1.13',
+            'DynaLoader'            => '1.10',
+            'Encode'                => '2.35',
+            'Encode::Alias'         => '2.12',
+            'Encode::CN::HZ'        => '2.05',
+            'Encode::Config'        => '2.05',
+            'Encode::GSM0338'       => '2.01',
+            'Encode::Guess'         => '2.03',
+            'Encode::JP::JIS7'      => '2.04',
+            'Encode::MIME::Header'  => '2.11',
+            'Encode::Unicode'       => '2.06',
+            'Errno'                 => '1.11',
+            'Exporter'              => '5.63',
+            'Exporter::Heavy'       => '5.63',
+            'ExtUtils::CBuilder'    => '0.2602',
+            'ExtUtils::CBuilder::Base'=> '0.2602',
+            'ExtUtils::CBuilder::Platform::Unix'=> '0.2602',
+            'ExtUtils::CBuilder::Platform::VMS'=> '0.2602',
+            'ExtUtils::CBuilder::Platform::Windows'=> '0.2602',
+            'ExtUtils::CBuilder::Platform::aix'=> '0.2602',
+            'ExtUtils::CBuilder::Platform::cygwin'=> '0.2602',
+            'ExtUtils::CBuilder::Platform::darwin'=> '0.2602',
+            'ExtUtils::CBuilder::Platform::dec_osf'=> '0.2602',
+            'ExtUtils::CBuilder::Platform::os2'=> '0.2602',
+            'ExtUtils::Command'     => '1.16',
+            'ExtUtils::Command::MM' => '6.55_02',
+            'ExtUtils::Constant'    => '0.22',
+            'ExtUtils::Constant::ProxySubs'=> '0.06',
+            'ExtUtils::Constant::Utils'=> '0.02',
+            'ExtUtils::Constant::XS'=> '0.03',
+            'ExtUtils::Embed'       => '1.28',
+            'ExtUtils::Install'     => '1.54',
+            'ExtUtils::Installed'   => '1.999_001',
+            'ExtUtils::Liblist'     => '6.55_02',
+            'ExtUtils::Liblist::Kid'=> '6.5502',
+            'ExtUtils::MM'          => '6.55_02',
+            'ExtUtils::MM_AIX'      => '6.55_02',
+            'ExtUtils::MM_Any'      => '6.55_02',
+            'ExtUtils::MM_BeOS'     => '6.55_02',
+            'ExtUtils::MM_Cygwin'   => '6.55_02',
+            'ExtUtils::MM_DOS'      => '6.5502',
+            'ExtUtils::MM_Darwin'   => '6.55_02',
+            'ExtUtils::MM_MacOS'    => '6.5502',
+            'ExtUtils::MM_NW5'      => '6.55_02',
+            'ExtUtils::MM_OS2'      => '6.55_02',
+            'ExtUtils::MM_QNX'      => '6.55_02',
+            'ExtUtils::MM_UWIN'     => '6.5502',
+            'ExtUtils::MM_Unix'     => '6.55_02',
+            'ExtUtils::MM_VMS'      => '6.55_02',
+            'ExtUtils::MM_VOS'      => '6.55_02',
+            'ExtUtils::MM_Win32'    => '6.55_02',
+            'ExtUtils::MM_Win95'    => '6.55_02',
+            'ExtUtils::MY'          => '6.5502',
+            'ExtUtils::MakeMaker'   => '6.55_02',
+            'ExtUtils::MakeMaker::Config'=> '6.55_02',
+            'ExtUtils::Manifest'    => '1.56',
+            'ExtUtils::Mkbootstrap' => '6.55_02',
+            'ExtUtils::Mksymlists'  => '6.55_02',
+            'ExtUtils::ParseXS'     => '2.2002',
+            'ExtUtils::testlib'     => '6.5502',
+            'Fatal'                 => '2.06_01',
+            'File::Basename'        => '2.77',
+            'File::CheckTree'       => '4.4',
+            'File::Compare'         => '1.1006',
+            'File::Copy'            => '2.14',
+            'File::DosGlob'         => '1.01',
+            'File::Fetch'           => '0.20',
+            'File::Find'            => '1.14',
+            'File::GlobMapper'      => '1.000',
+            'File::Path'            => '2.07_03',
+            'File::Spec'            => '3.30',
+            'File::Spec::Cygwin'    => '3.30',
+            'File::Spec::Epoc'      => '3.30',
+            'File::Spec::Functions' => '3.30',
+            'File::Spec::Mac'       => '3.30',
+            'File::Spec::OS2'       => '3.30',
+            'File::Spec::Unix'      => '3.30',
+            'File::Spec::VMS'       => '3.30',
+            'File::Spec::Win32'     => '3.30',
+            'File::Temp'            => '0.22',
+            'File::stat'            => '1.01',
+            'FileCache'             => '1.08',
+            'FileHandle'            => '2.02',
+            'Filter::Simple'        => '0.84',
+            'Filter::Util::Call'    => '1.08',
+            'FindBin'               => '1.50',
+            'GDBM_File'             => '1.09',
+            'Getopt::Long'          => '2.38',
+            'Getopt::Std'           => '1.06',
+            'Hash::Util::FieldHash' => '1.04',
+            'I18N::Collate'         => '1.01',
+            'IO'                    => '1.25',
+            'IO::Compress::Adapter::Bzip2'=> '2.020',
+            'IO::Compress::Adapter::Deflate'=> '2.020',
+            'IO::Compress::Adapter::Identity'=> '2.020',
+            'IO::Compress::Base'    => '2.020',
+            'IO::Compress::Base::Common'=> '2.020',
+            'IO::Compress::Bzip2'   => '2.020',
+            'IO::Compress::Deflate' => '2.020',
+            'IO::Compress::Gzip'    => '2.020',
+            'IO::Compress::Gzip::Constants'=> '2.020',
+            'IO::Compress::RawDeflate'=> '2.020',
+            'IO::Compress::Zip'     => '2.020',
+            'IO::Compress::Zip::Constants'=> '2.020',
+            'IO::Compress::Zlib::Constants'=> '2.020',
+            'IO::Compress::Zlib::Extra'=> '2.020',
+            'IO::Dir'               => '1.07',
+            'IO::Handle'            => '1.28',
+            'IO::Socket'            => '1.31',
+            'IO::Uncompress::Adapter::Bunzip2'=> '2.020',
+            'IO::Uncompress::Adapter::Identity'=> '2.020',
+            'IO::Uncompress::Adapter::Inflate'=> '2.020',
+            'IO::Uncompress::AnyInflate'=> '2.020',
+            'IO::Uncompress::AnyUncompress'=> '2.020',
+            'IO::Uncompress::Base'  => '2.020',
+            'IO::Uncompress::Bunzip2'=> '2.020',
+            'IO::Uncompress::Gunzip'=> '2.020',
+            'IO::Uncompress::Inflate'=> '2.020',
+            'IO::Uncompress::RawInflate'=> '2.020',
+            'IO::Uncompress::Unzip' => '2.020',
+            'IO::Zlib'              => '1.09',
+            'IPC::Cmd'              => '0.46',
+            'IPC::Msg'              => '2.01',
+            'IPC::Open2'            => '1.03',
+            'IPC::Open3'            => '1.04',
+            'IPC::Semaphore'        => '2.01',
+            'IPC::SharedMem'        => '2.01',
+            'IPC::SysV'             => '2.01',
+            'List::Util'            => '1.21',
+            'List::Util::PP'        => '1.21',
+            'List::Util::XS'        => '1.21',
+            'Locale::Maketext'      => '1.13',
+            'Locale::Maketext::Guts'=> '1.13',
+            'Locale::Maketext::GutsLoader'=> '1.13',
+            'Log::Message'          => '0.02',
+            'MIME::Base64'          => '3.08',
+            'MIME::QuotedPrint'     => '3.08',
+            'Math::BigFloat'        => '1.60',
+            'Math::BigInt'          => '1.89',
+            'Math::BigInt::FastCalc'=> '0.19',
+            'Math::BigRat'          => '0.22',
+            'Math::Complex'         => '1.56',
+            'Math::Trig'            => '1.2',
+            'Memoize'               => '1.01_03',
+            'Module::Build'         => '0.340201',
+            'Module::Build::Base'   => '0.340201',
+            'Module::Build::Compat' => '0.340201',
+            'Module::Build::Config' => '0.340201',
+            'Module::Build::Cookbook'=> '0.340201',
+            'Module::Build::Dumper' => '0.340201',
+            'Module::Build::ModuleInfo'=> '0.340201',
+            'Module::Build::Notes'  => '0.340201',
+            'Module::Build::PPMMaker'=> '0.340201',
+            'Module::Build::Platform::Amiga'=> '0.340201',
+            'Module::Build::Platform::Default'=> '0.340201',
+            'Module::Build::Platform::EBCDIC'=> '0.340201',
+            'Module::Build::Platform::MPEiX'=> '0.340201',
+            'Module::Build::Platform::MacOS'=> '0.340201',
+            'Module::Build::Platform::RiscOS'=> '0.340201',
+            'Module::Build::Platform::Unix'=> '0.340201',
+            'Module::Build::Platform::VMS'=> '0.340201',
+            'Module::Build::Platform::VOS'=> '0.340201',
+            'Module::Build::Platform::Windows'=> '0.340201',
+            'Module::Build::Platform::aix'=> '0.340201',
+            'Module::Build::Platform::cygwin'=> '0.340201',
+            'Module::Build::Platform::darwin'=> '0.340201',
+            'Module::Build::Platform::os2'=> '0.340201',
+            'Module::Build::PodParser'=> '0.340201',
+            'Module::Build::Version'=> '0.77',
+            'Module::CoreList'      => '2.18',
+            'Module::Load'          => '0.16',
+            'Module::Load::Conditional'=> '0.30',
+            'Module::Loaded'        => '0.02',
+            'Module::Pluggable'     => '3.9',
+            'Module::Pluggable::Object'=> '3.9',
+            'NDBM_File'             => '1.08',
+            'NEXT'                  => '0.64',
+            'Net::Ping'             => '2.36',
+            'O'                     => '1.01',
+            'OS2::Process'          => '1.03',
+            'OS2::REXX'             => '1.04',
+            'Object::Accessor'      => '0.34',
+            'POSIX'                 => '1.17',
+            'Package::Constants'    => '0.02',
+            'Parse::CPAN::Meta'     => '1.39',
+            'PerlIO'                => '1.06',
+            'PerlIO::encoding'      => '0.11',
+            'PerlIO::scalar'        => '0.07',
+            'PerlIO::via'           => '0.07',
+            'Pod::Checker'          => '1.45',
+            'Pod::Find'             => '1.35',
+            'Pod::Html'             => '1.09',
+            'Pod::InputObjects'     => '1.31',
+            'Pod::Man'              => '2.22',
+            'Pod::ParseLink'        => '1.09',
+            'Pod::ParseUtils'       => '1.36',
+            'Pod::Parser'           => '1.37',
+            'Pod::Perldoc'          => '3.14_04',
+            'Pod::PlainText'        => '2.04',
+            'Pod::Select'           => '1.36',
+            'Pod::Simple'           => '3.07',
+            'Pod::Simple::XHTML'    => '3.04',
+            'Pod::Text'             => '3.13',
+            'Pod::Text::Color'      => '2.05',
+            'Pod::Text::Overstrike' => '2.03',
+            'Pod::Text::Termcap'    => '2.05',
+            'Pod::Usage'            => '1.36',
+            'Safe'                  => '2.18',
+            'Scalar::Util'          => '1.21',
+            'Scalar::Util::PP'      => '1.21',
+            'SelectSaver'           => '1.02',
+            'SelfLoader'            => '1.17',
+            'Socket'                => '1.82',
+            'Storable'              => '2.20',
+            'Switch'                => '2.14',
+            'Symbol'                => '1.07',
+            'Sys::Syslog'           => '0.27',
+            'TAP::Base'             => '3.17',
+            'TAP::Formatter::Base'  => '3.17',
+            'TAP::Formatter::Color' => '3.17',
+            'TAP::Formatter::Console'=> '3.17',
+            'TAP::Formatter::Console::ParallelSession'=> '3.17',
+            'TAP::Formatter::Console::Session'=> '3.17',
+            'TAP::Formatter::File'  => '3.17',
+            'TAP::Formatter::File::Session'=> '3.17',
+            'TAP::Formatter::Session'=> '3.17',
+            'TAP::Harness'          => '3.17',
+            'TAP::Object'           => '3.17',
+            'TAP::Parser'           => '3.17',
+            'TAP::Parser::Aggregator'=> '3.17',
+            'TAP::Parser::Grammar'  => '3.17',
+            'TAP::Parser::Iterator' => '3.17',
+            'TAP::Parser::Iterator::Array'=> '3.17',
+            'TAP::Parser::Iterator::Process'=> '3.17',
+            'TAP::Parser::Iterator::Stream'=> '3.17',
+            'TAP::Parser::IteratorFactory'=> '3.17',
+            'TAP::Parser::Multiplexer'=> '3.17',
+            'TAP::Parser::Result'   => '3.17',
+            'TAP::Parser::Result::Bailout'=> '3.17',
+            'TAP::Parser::Result::Comment'=> '3.17',
+            'TAP::Parser::Result::Plan'=> '3.17',
+            'TAP::Parser::Result::Pragma'=> '3.17',
+            'TAP::Parser::Result::Test'=> '3.17',
+            'TAP::Parser::Result::Unknown'=> '3.17',
+            'TAP::Parser::Result::Version'=> '3.17',
+            'TAP::Parser::Result::YAML'=> '3.17',
+            'TAP::Parser::ResultFactory'=> '3.17',
+            'TAP::Parser::Scheduler'=> '3.17',
+            'TAP::Parser::Scheduler::Job'=> '3.17',
+            'TAP::Parser::Scheduler::Spinner'=> '3.17',
+            'TAP::Parser::Source'   => '3.17',
+            'TAP::Parser::Source::Perl'=> '3.17',
+            'TAP::Parser::Utils'    => '3.17',
+            'TAP::Parser::YAMLish::Reader'=> '3.17',
+            'TAP::Parser::YAMLish::Writer'=> '3.17',
+            'Term::ANSIColor'       => '2.00',
+            'Term::ReadLine'        => '1.04',
+            'Term::UI'              => '0.20',
+            'Test'                  => '1.25_02',
+            'Test::Builder'         => '0.92',
+            'Test::Builder::Module' => '0.92',
+            'Test::Builder::Tester' => '1.18',
+            'Test::Builder::Tester::Color'=> '1.18',
+            'Test::Harness'         => '3.17',
+            'Test::More'            => '0.92',
+            'Test::Simple'          => '0.92',
+            'Text::ParseWords'      => '3.27',
+            'Text::Tabs'            => '2009.0305',
+            'Text::Wrap'            => '2009.0305',
+            'Thread::Queue'         => '2.11',
+            'Thread::Semaphore'     => '2.09',
+            'Tie::Handle'           => '4.2',
+            'Tie::Hash'             => '1.03',
+            'Tie::RefHash'          => '1.38',
+            'Tie::Scalar'           => '1.01',
+            'Tie::StdHandle'        => '4.2',
+            'Time::HiRes'           => '1.9719',
+            'Time::Local'           => '1.1901',
+            'Time::Piece'           => '1.15',
+            'UNIVERSAL'             => '1.05',
+            'Unicode'               => '5.1.0',
+            'Unicode::Normalize'    => '1.03',
+            'Unicode::UCD'          => '0.27',
+            'VMS::Stdio'            => '2.4',
+            'Win32'                 => '0.39',
+            'Win32API::File'        => '0.1101',
+            'XS::APItest'           => '0.15',
+            'XS::Typemap'           => '0.03',
+            'XSLoader'              => '0.10',
+            'attributes'            => '0.09',
+            'attrs'                 => '1.03',
+            'autodie'               => '2.06_01',
+            'autodie::exception'    => '2.06_01',
+            'autodie::exception::system'=> '2.06_01',
+            'autodie::hints'        => '2.06_01',
+            'base'                  => '2.14',
+            'bigint'                => '0.23',
+            'bignum'                => '0.23',
+            'bigrat'                => '0.23',
+            'blib'                  => '1.04',
+            'charnames'             => '1.07',
+            'constant'              => '1.17',
+            'encoding'              => '2.6_01',
+            'feature'               => '1.13',
+            'fields'                => '2.14',
+            'lib'                   => '0.62',
+            'mro'                   => '1.01',
+            'open'                  => '1.07',
+            'ops'                   => '1.02',
+            'overload'              => '1.07',
+            'overload::numbers'     => undef,
+            'overloading'           => '0.01',
+            'parent'                => '0.221',
+            're'                    => '0.09',
+            'threads'               => '1.72',
+            'threads::shared'       => '1.29',
+            'version'               => '0.77',
+        },
+        removed => {
+            'CPAN::API::HOWTO'      => 1,
+            'CPAN::DeferedCode'     => 1,
+            'CPANPLUS::inc'         => 1,
+            'ExtUtils::MakeMaker::bytes'=> 1,
+            'ExtUtils::MakeMaker::vmsish'=> 1,
+            'Test::Harness::Assert' => 1,
+            'Test::Harness::Iterator'=> 1,
+            'Test::Harness::Point'  => 1,
+            'Test::Harness::Results'=> 1,
+            'Test::Harness::Straps' => 1,
+            'Test::Harness::Util'   => 1,
+        }
+    },
+    5.011 => {
+        delta_from => 5.010001,
+        changed => {
+            'Archive::Tar'          => '1.54',
+            'Attribute::Handlers'   => '0.87',
+            'AutoLoader'            => '5.70',
+            'B::Deparse'            => '0.91',
+            'B::Lint'               => '1.11_01',
+            'B::Lint::Debug'        => '0.01',
+            'CGI'                   => '3.45',
+            'CGI::Apache'           => '1.01',
+            'CGI::Carp'             => '3.45',
+            'CGI::Pretty'           => '3.44',
+            'CGI::Switch'           => '1.01',
+            'CGI::Util'             => '3.45',
+            'CPAN'                  => '1.94_51',
+            'CPAN::Distribution'    => '1.94',
+            'CPAN::FTP'             => '5.5002',
+            'CPAN::Index'           => '1.94',
+            'CPAN::LWP::UserAgent'  => '1.94',
+            'CPANPLUS::Dist::Build' => '0.40',
+            'CPANPLUS::Dist::Build::Constants'=> '0.40',
+            'Carp'                  => '1.12',
+            'Carp::Heavy'           => '1.12',
+            'Class::ISA'            => '0.36',
+            'Compress::Raw::Bzip2'  => '2.021',
+            'Compress::Raw::Zlib'   => '2.021',
+            'Compress::Zlib'        => '2.021',
+            'Cwd'                   => '3.3002',
+            'Data::Dumper'          => '2.125',
+            'Encode'                => '2.37',
+            'Exporter'              => '5.64',
+            'Exporter::Heavy'       => '5.64',
+            'ExtUtils::ParseXS'     => '2.200403',
+            'File::Basename'        => '2.78',
+            'File::Copy'            => '2.16',
+            'File::stat'            => '1.02',
+            'IO'                    => '1.25_01',
+            'IO::Compress::Adapter::Bzip2'=> '2.021',
+            'IO::Compress::Adapter::Deflate'=> '2.021',
+            'IO::Compress::Adapter::Identity'=> '2.021',
+            'IO::Compress::Base'    => '2.021',
+            'IO::Compress::Base::Common'=> '2.021',
+            'IO::Compress::Bzip2'   => '2.021',
+            'IO::Compress::Deflate' => '2.021',
+            'IO::Compress::Gzip'    => '2.021',
+            'IO::Compress::Gzip::Constants'=> '2.021',
+            'IO::Compress::RawDeflate'=> '2.021',
+            'IO::Compress::Zip'     => '2.021',
+            'IO::Compress::Zip::Constants'=> '2.021',
+            'IO::Compress::Zlib::Constants'=> '2.021',
+            'IO::Compress::Zlib::Extra'=> '2.021',
+            'IO::Uncompress::Adapter::Bunzip2'=> '2.021',
+            'IO::Uncompress::Adapter::Identity'=> '2.021',
+            'IO::Uncompress::Adapter::Inflate'=> '2.021',
+            'IO::Uncompress::AnyInflate'=> '2.021',
+            'IO::Uncompress::AnyUncompress'=> '2.021',
+            'IO::Uncompress::Base'  => '2.021',
+            'IO::Uncompress::Bunzip2'=> '2.021',
+            'IO::Uncompress::Gunzip'=> '2.021',
+            'IO::Uncompress::Inflate'=> '2.021',
+            'IO::Uncompress::RawInflate'=> '2.021',
+            'IO::Uncompress::Unzip' => '2.021',
+            'IO::Zlib'              => '1.10',
+            'IPC::Cmd'              => '0.50',
+            'IPC::Open3'            => '1.05',
+            'Locale::Maketext::Simple'=> '0.21',
+            'Log::Message::Simple'  => '0.06',
+            'Math::BigInt'          => '1.89_01',
+            'Math::BigRat'          => '0.24',
+            'Module::Build'         => '0.35',
+            'Module::Build::Base'   => '0.35',
+            'Module::Build::Compat' => '0.35',
+            'Module::Build::Config' => '0.35',
+            'Module::Build::Cookbook'=> '0.35',
+            'Module::Build::Dumper' => '0.35',
+            'Module::Build::ModuleInfo'=> '0.35',
+            'Module::Build::Notes'  => '0.35',
+            'Module::Build::PPMMaker'=> '0.35',
+            'Module::Build::Platform::Amiga'=> '0.35',
+            'Module::Build::Platform::Default'=> '0.35',
+            'Module::Build::Platform::EBCDIC'=> '0.35',
+            'Module::Build::Platform::MPEiX'=> '0.35',
+            'Module::Build::Platform::MacOS'=> '0.35',
+            'Module::Build::Platform::RiscOS'=> '0.35',
+            'Module::Build::Platform::Unix'=> '0.35',
+            'Module::Build::Platform::VMS'=> '0.35',
+            'Module::Build::Platform::VOS'=> '0.35',
+            'Module::Build::Platform::Windows'=> '0.35',
+            'Module::Build::Platform::aix'=> '0.35',
+            'Module::Build::Platform::cygwin'=> '0.35',
+            'Module::Build::Platform::darwin'=> '0.35',
+            'Module::Build::Platform::os2'=> '0.35',
+            'Module::Build::PodParser'=> '0.35',
+            'Module::CoreList'      => '2.19',
+            'Module::Loaded'        => '0.06',
+            'Opcode'                => '1.13',
+            'PerlIO::via'           => '0.08',
+            'Pod::Perldoc'          => '3.15_01',
+            'Pod::Plainer'          => '1.01',
+            'Safe'                  => '2.19',
+            'Socket'                => '1.84',
+            'Switch'                => '2.14_01',
+            'Term::ANSIColor'       => '2.02',
+            'Term::ReadLine'        => '1.05',
+            'Text::Balanced'        => '2.02',
+            'Text::Soundex'         => '3.03_01',
+            'Time::Local'           => '1.1901_01',
+            'Unicode::Collate'      => '0.52_01',
+            'attributes'            => '0.12',
+            'constant'              => '1.19',
+            'deprecate'             => '0.01',
+            'overload'              => '1.08',
+            'parent'                => '0.223',
+            're'                    => '0.10',
+            'threads'               => '1.74',
+            'threads::shared'       => '1.31',
+            'warnings'              => '1.07',
+        },
+        removed => {
+            'attrs'                 => 1,
+        }
+    },
+    5.011001 => {
+        delta_from => 5.011,
+        changed => {
+            'B'                     => '1.23',
+            'B::Concise'            => '0.77',
+            'B::Deparse'            => '0.92',
+            'CGI'                   => '3.48',
+            'CGI::Pretty'           => '3.46',
+            'CGI::Util'             => '3.48',
+            'CPANPLUS'              => '0.89_03',
+            'CPANPLUS::Internals'   => '0.89_03',
+            'CPANPLUS::Shell::Default'=> '0.89_03',
+            'Carp'                  => '1.13',
+            'Carp::Heavy'           => '1.13',
+            'ExtUtils::CBuilder'    => '0.260301',
+            'ExtUtils::CBuilder::Base'=> '0.260301',
+            'ExtUtils::CBuilder::Platform::Unix'=> '0.260301',
+            'ExtUtils::CBuilder::Platform::VMS'=> '0.260301',
+            'ExtUtils::CBuilder::Platform::Windows'=> '0.260301',
+            'ExtUtils::CBuilder::Platform::aix'=> '0.260301',
+            'ExtUtils::CBuilder::Platform::cygwin'=> '0.260301',
+            'ExtUtils::CBuilder::Platform::darwin'=> '0.260301',
+            'ExtUtils::CBuilder::Platform::dec_osf'=> '0.260301',
+            'ExtUtils::CBuilder::Platform::os2'=> '0.260301',
+            'ExtUtils::Install'     => '1.55',
+            'ExtUtils::Manifest'    => '1.57',
+            'ExtUtils::Packlist'    => '1.44',
+            'ExtUtils::ParseXS'     => '2.21',
+            'File::Glob'            => '1.07',
+            'File::Path'            => '2.08',
+            'IO'                    => '1.25_02',
+            'Module::CoreList'      => '2.21',
+            'OS2::DLL'              => '1.04',
+            'OS2::Process'          => '1.04',
+            'Object::Accessor'      => '0.36',
+            'Opcode'                => '1.15',
+            'POSIX'                 => '1.18',
+            'Parse::CPAN::Meta'     => '1.40',
+            'PerlIO::via'           => '0.09',
+            'Pod::Simple'           => '3.08',
+            'Socket'                => '1.85',
+            'Storable'              => '2.22',
+            'Switch'                => '2.15',
+            'Test::Builder'         => '0.94',
+            'Test::Builder::Module' => '0.94',
+            'Test::More'            => '0.94',
+            'Test::Simple'          => '0.94',
+            'XS::APItest'           => '0.16',
+            'mro'                   => '1.02',
+            'overload'              => '1.09',
+            'threads::shared'       => '1.32',
+        },
+        removed => {
+        }
+    },
+    5.011002 => {
+        delta_from => 5.011001,
+        changed => {
+            'B::Concise'            => '0.78',
+            'B::Deparse'            => '0.93',
+            'CPANPLUS'              => '0.89_09',
+            'CPANPLUS::Dist::Build' => '0.44',
+            'CPANPLUS::Dist::Build::Constants'=> '0.44',
+            'CPANPLUS::Internals'   => '0.89_09',
+            'CPANPLUS::Shell::Default'=> '0.89_09',
+            'Carp'                  => '1.14',
+            'Carp::Heavy'           => '1.14',
+            'Compress::Zlib'        => '2.022',
+            'DBM_Filter'            => '0.03',
+            'Encode'                => '2.38',
+            'Encode::Byte'          => '2.04',
+            'Encode::CN'            => '2.03',
+            'Encode::JP'            => '2.04',
+            'Encode::KR'            => '2.03',
+            'Encode::TW'            => '2.03',
+            'Encode::Unicode'       => '2.07',
+            'Env'                   => '1.01',
+            'Exporter'              => '5.64_01',
+            'Exporter::Heavy'       => '5.64_01',
+            'ExtUtils::CBuilder'    => '0.27',
+            'ExtUtils::CBuilder::Base'=> '0.27',
+            'ExtUtils::CBuilder::Platform::Unix'=> '0.27',
+            'ExtUtils::CBuilder::Platform::VMS'=> '0.27',
+            'ExtUtils::CBuilder::Platform::Windows'=> '0.27',
+            'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.27',
+            'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.27',
+            'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.27',
+            'ExtUtils::CBuilder::Platform::aix'=> '0.27',
+            'ExtUtils::CBuilder::Platform::cygwin'=> '0.27',
+            'ExtUtils::CBuilder::Platform::darwin'=> '0.27',
+            'ExtUtils::CBuilder::Platform::dec_osf'=> '0.27',
+            'ExtUtils::CBuilder::Platform::os2'=> '0.27',
+            'File::Fetch'           => '0.22',
+            'I18N::LangTags::Detect'=> '1.04',
+            'I18N::Langinfo'        => '0.03',
+            'IO::Compress::Adapter::Bzip2'=> '2.022',
+            'IO::Compress::Adapter::Deflate'=> '2.022',
+            'IO::Compress::Adapter::Identity'=> '2.022',
+            'IO::Compress::Base'    => '2.022',
+            'IO::Compress::Base::Common'=> '2.022',
+            'IO::Compress::Bzip2'   => '2.022',
+            'IO::Compress::Deflate' => '2.022',
+            'IO::Compress::Gzip'    => '2.022',
+            'IO::Compress::Gzip::Constants'=> '2.022',
+            'IO::Compress::RawDeflate'=> '2.022',
+            'IO::Compress::Zip'     => '2.022',
+            'IO::Compress::Zip::Constants'=> '2.022',
+            'IO::Compress::Zlib::Constants'=> '2.022',
+            'IO::Compress::Zlib::Extra'=> '2.022',
+            'IO::Uncompress::Adapter::Bunzip2'=> '2.022',
+            'IO::Uncompress::Adapter::Identity'=> '2.022',
+            'IO::Uncompress::Adapter::Inflate'=> '2.022',
+            'IO::Uncompress::AnyInflate'=> '2.022',
+            'IO::Uncompress::AnyUncompress'=> '2.022',
+            'IO::Uncompress::Base'  => '2.022',
+            'IO::Uncompress::Bunzip2'=> '2.022',
+            'IO::Uncompress::Gunzip'=> '2.022',
+            'IO::Uncompress::Inflate'=> '2.022',
+            'IO::Uncompress::RawInflate'=> '2.022',
+            'IO::Uncompress::Unzip' => '2.022',
+            'IPC::Cmd'              => '0.54',
+            'List::Util'            => '1.22',
+            'List::Util::PP'        => '1.22',
+            'List::Util::XS'        => '1.22',
+            'Locale::Maketext'      => '1.14',
+            'Module::Build'         => '0.35_09',
+            'Module::Build::Base'   => '0.35_09',
+            'Module::Build::Compat' => '0.35_09',
+            'Module::Build::Config' => '0.35_09',
+            'Module::Build::Cookbook'=> '0.35_09',
+            'Module::Build::Dumper' => '0.35_09',
+            'Module::Build::ModuleInfo'=> '0.35_09',
+            'Module::Build::Notes'  => '0.35_09',
+            'Module::Build::PPMMaker'=> '0.35_09',
+            'Module::Build::Platform::Amiga'=> '0.35_09',
+            'Module::Build::Platform::Default'=> '0.35_09',
+            'Module::Build::Platform::EBCDIC'=> '0.35_09',
+            'Module::Build::Platform::MPEiX'=> '0.35_09',
+            'Module::Build::Platform::MacOS'=> '0.35_09',
+            'Module::Build::Platform::RiscOS'=> '0.35_09',
+            'Module::Build::Platform::Unix'=> '0.35_09',
+            'Module::Build::Platform::VMS'=> '0.35_09',
+            'Module::Build::Platform::VOS'=> '0.35_09',
+            'Module::Build::Platform::Windows'=> '0.35_09',
+            'Module::Build::Platform::aix'=> '0.35_09',
+            'Module::Build::Platform::cygwin'=> '0.35_09',
+            'Module::Build::Platform::darwin'=> '0.35_09',
+            'Module::Build::Platform::os2'=> '0.35_09',
+            'Module::Build::PodParser'=> '0.35_09',
+            'Module::Build::YAML'   => '1.40',
+            'Module::CoreList'      => '2.23',
+            'Module::Load::Conditional'=> '0.34',
+            'Pod::Simple'           => '3.10',
+            'Pod::Simple::XHTML'    => '3.10',
+            'Scalar::Util'          => '1.22',
+            'Scalar::Util::PP'      => '1.22',
+            'Switch'                => '2.16',
+            'XS::APItest'           => '0.17',
+            'XS::APItest::KeywordRPN'=> '0.003',
+            'base'                  => '2.15',
+            'diagnostics'           => '1.18',
+            'fields'                => '2.15',
+            'inc::latest'           => '0.35_09',
+            'legacy'                => '1.00',
+            'overload'              => '1.10',
+        },
+        removed => {
+        }
+    },
+    5.011003 => {
+        delta_from => 5.011002,
+        changed => {
+            'App::Cpan'             => '1.570001',
+            'Archive::Extract'      => '0.36',
+            'CPAN'                  => '1.94_5301',
+            'CPAN::FTP'             => '5.5004',
+            'CPAN::FirstTime'       => '5.530001',
+            'CPAN::Mirrors'         => '1.770001',
+            'CPANPLUS'              => '0.90',
+            'CPANPLUS::Internals'   => '0.90',
+            'CPANPLUS::Shell::Default'=> '0.90',
+            'Cwd'                   => '3.31',
+            'Encode'                => '2.39',
+            'ExtUtils::Command::MM' => '6.56',
+            'ExtUtils::Liblist'     => '6.56',
+            'ExtUtils::Liblist::Kid'=> '6.56',
+            'ExtUtils::MM'          => '6.56',
+            'ExtUtils::MM_AIX'      => '6.56',
+            'ExtUtils::MM_Any'      => '6.56',
+            'ExtUtils::MM_BeOS'     => '6.56',
+            'ExtUtils::MM_Cygwin'   => '6.56',
+            'ExtUtils::MM_DOS'      => '6.56',
+            'ExtUtils::MM_Darwin'   => '6.56',
+            'ExtUtils::MM_MacOS'    => '6.56',
+            'ExtUtils::MM_NW5'      => '6.56',
+            'ExtUtils::MM_OS2'      => '6.56',
+            'ExtUtils::MM_QNX'      => '6.56',
+            'ExtUtils::MM_UWIN'     => '6.56',
+            'ExtUtils::MM_Unix'     => '6.56',
+            'ExtUtils::MM_VMS'      => '6.56',
+            'ExtUtils::MM_VOS'      => '6.56',
+            'ExtUtils::MM_Win32'    => '6.56',
+            'ExtUtils::MM_Win95'    => '6.56',
+            'ExtUtils::MY'          => '6.56',
+            'ExtUtils::MakeMaker'   => '6.56',
+            'ExtUtils::MakeMaker::Config'=> '6.56',
+            'ExtUtils::Mkbootstrap' => '6.56',
+            'ExtUtils::Mksymlists'  => '6.56',
+            'ExtUtils::testlib'     => '6.56',
+            'File::Find'            => '1.15',
+            'File::Path'            => '2.08_01',
+            'File::Spec'            => '3.31',
+            'Module::Build'         => '0.36',
+            'Module::Build::Base'   => '0.36',
+            'Module::Build::Compat' => '0.36',
+            'Module::Build::Config' => '0.36',
+            'Module::Build::Cookbook'=> '0.36',
+            'Module::Build::Dumper' => '0.36',
+            'Module::Build::ModuleInfo'=> '0.36',
+            'Module::Build::Notes'  => '0.36',
+            'Module::Build::PPMMaker'=> '0.36',
+            'Module::Build::Platform::Amiga'=> '0.36',
+            'Module::Build::Platform::Default'=> '0.36',
+            'Module::Build::Platform::EBCDIC'=> '0.36',
+            'Module::Build::Platform::MPEiX'=> '0.36',
+            'Module::Build::Platform::MacOS'=> '0.36',
+            'Module::Build::Platform::RiscOS'=> '0.36',
+            'Module::Build::Platform::Unix'=> '0.36',
+            'Module::Build::Platform::VMS'=> '0.36',
+            'Module::Build::Platform::VOS'=> '0.36',
+            'Module::Build::Platform::Windows'=> '0.36',
+            'Module::Build::Platform::aix'=> '0.36',
+            'Module::Build::Platform::cygwin'=> '0.36',
+            'Module::Build::Platform::darwin'=> '0.36',
+            'Module::Build::Platform::os2'=> '0.36',
+            'Module::Build::PodParser'=> '0.36',
+            'Module::CoreList'      => '2.24',
+            'POSIX'                 => '1.19',
+            'Pod::Simple'           => '3.13',
+            'Pod::Simple::BlackBox' => '3.13',
+            'Pod::Simple::Checker'  => '3.13',
+            'Pod::Simple::Debug'    => '3.13',
+            'Pod::Simple::DumpAsText'=> '3.13',
+            'Pod::Simple::DumpAsXML'=> '3.13',
+            'Pod::Simple::HTML'     => '3.13',
+            'Pod::Simple::HTMLBatch'=> '3.13',
+            'Pod::Simple::LinkSection'=> '3.13',
+            'Pod::Simple::Methody'  => '3.13',
+            'Pod::Simple::Progress' => '3.13',
+            'Pod::Simple::PullParser'=> '3.13',
+            'Pod::Simple::PullParserEndToken'=> '3.13',
+            'Pod::Simple::PullParserStartToken'=> '3.13',
+            'Pod::Simple::PullParserTextToken'=> '3.13',
+            'Pod::Simple::PullParserToken'=> '3.13',
+            'Pod::Simple::RTF'      => '3.13',
+            'Pod::Simple::Search'   => '3.13',
+            'Pod::Simple::SimpleTree'=> '3.13',
+            'Pod::Simple::Text'     => '3.13',
+            'Pod::Simple::TextContent'=> '3.13',
+            'Pod::Simple::TiedOutFH'=> '3.13',
+            'Pod::Simple::Transcode'=> '3.13',
+            'Pod::Simple::TranscodeDumb'=> '3.13',
+            'Pod::Simple::TranscodeSmart'=> '3.13',
+            'Pod::Simple::XHTML'    => '3.13',
+            'Pod::Simple::XMLOutStream'=> '3.13',
+            'Safe'                  => '2.20',
+            'Unicode'               => '5.2.0',
+            'constant'              => '1.20',
+            'diagnostics'           => '1.19',
+            'feature'               => '1.14',
+            'inc::latest'           => '0.36',
+            'threads'               => '1.75',
+            'warnings'              => '1.08',
+        },
+        removed => {
+            'legacy'                => 1,
+        }
+    },
+    5.011004 => {
+        delta_from => 5.011003,
+        changed => {
+            'App::Cpan'             => '1.5701',
+            'Archive::Extract'      => '0.38',
+            'B::Deparse'            => '0.94',
+            'CPAN'                  => '1.94_54',
+            'CPAN::FirstTime'       => '5.53',
+            'CPAN::Mirrors'         => '1.77',
+            'Carp'                  => '1.15',
+            'Carp::Heavy'           => '1.15',
+            'Compress::Raw::Bzip2'  => '2.024',
+            'Compress::Raw::Zlib'   => '2.024',
+            'Compress::Zlib'        => '2.024',
+            'File::Copy'            => '2.17',
+            'File::Fetch'           => '0.24',
+            'GDBM_File'             => '1.10',
+            'IO::Compress::Adapter::Bzip2'=> '2.024',
+            'IO::Compress::Adapter::Deflate'=> '2.024',
+            'IO::Compress::Adapter::Identity'=> '2.024',
+            'IO::Compress::Base'    => '2.024',
+            'IO::Compress::Base::Common'=> '2.024',
+            'IO::Compress::Bzip2'   => '2.024',
+            'IO::Compress::Deflate' => '2.024',
+            'IO::Compress::Gzip'    => '2.024',
+            'IO::Compress::Gzip::Constants'=> '2.024',
+            'IO::Compress::RawDeflate'=> '2.024',
+            'IO::Compress::Zip'     => '2.024',
+            'IO::Compress::Zip::Constants'=> '2.024',
+            'IO::Compress::Zlib::Constants'=> '2.024',
+            'IO::Compress::Zlib::Extra'=> '2.024',
+            'IO::Uncompress::Adapter::Bunzip2'=> '2.024',
+            'IO::Uncompress::Adapter::Identity'=> '2.024',
+            'IO::Uncompress::Adapter::Inflate'=> '2.024',
+            'IO::Uncompress::AnyInflate'=> '2.024',
+            'IO::Uncompress::AnyUncompress'=> '2.024',
+            'IO::Uncompress::Base'  => '2.024',
+            'IO::Uncompress::Bunzip2'=> '2.024',
+            'IO::Uncompress::Gunzip'=> '2.024',
+            'IO::Uncompress::Inflate'=> '2.024',
+            'IO::Uncompress::RawInflate'=> '2.024',
+            'IO::Uncompress::Unzip' => '2.024',
+            'Module::Build'         => '0.3603',
+            'Module::Build::Base'   => '0.3603',
+            'Module::Build::Compat' => '0.3603',
+            'Module::Build::Config' => '0.3603',
+            'Module::Build::Cookbook'=> '0.3603',
+            'Module::Build::Dumper' => '0.3603',
+            'Module::Build::ModuleInfo'=> '0.3603',
+            'Module::Build::Notes'  => '0.3603',
+            'Module::Build::PPMMaker'=> '0.3603',
+            'Module::Build::Platform::Amiga'=> '0.3603',
+            'Module::Build::Platform::Default'=> '0.3603',
+            'Module::Build::Platform::EBCDIC'=> '0.3603',
+            'Module::Build::Platform::MPEiX'=> '0.3603',
+            'Module::Build::Platform::MacOS'=> '0.3603',
+            'Module::Build::Platform::RiscOS'=> '0.3603',
+            'Module::Build::Platform::Unix'=> '0.3603',
+            'Module::Build::Platform::VMS'=> '0.3603',
+            'Module::Build::Platform::VOS'=> '0.3603',
+            'Module::Build::Platform::Windows'=> '0.3603',
+            'Module::Build::Platform::aix'=> '0.3603',
+            'Module::Build::Platform::cygwin'=> '0.3603',
+            'Module::Build::Platform::darwin'=> '0.3603',
+            'Module::Build::Platform::os2'=> '0.3603',
+            'Module::Build::PodParser'=> '0.3603',
+            'Module::CoreList'      => '2.25',
+            'PerlIO::encoding'      => '0.12',
+            'Safe'                  => '2.21',
+            'UNIVERSAL'             => '1.06',
+            'feature'               => '1.15',
+            'inc::latest'           => '0.3603',
+            'less'                  => '0.03',
+            're'                    => '0.11',
+            'version'               => '0.81',
+            'warnings'              => '1.09',
+        },
+        removed => {
+        }
+    },
+    5.011005 => {
+        delta_from => 5.011004,
+        changed => {
+            'B::Debug'              => '1.12',
+            'CPAN'                  => '1.94_56',
+            'CPAN::Debug'           => '5.5001',
+            'CPAN::Distribution'    => '1.9456',
+            'CPAN::FirstTime'       => '5.5301',
+            'CPAN::HandleConfig'    => '5.5001',
+            'CPAN::Shell'           => '5.5001',
+            'CPAN::Tarzip'          => '5.5011',
+            'CPANPLUS::Dist::Build' => '0.46',
+            'CPANPLUS::Dist::Build::Constants'=> '0.46',
+            'Module::CoreList'      => '2.26',
+            'Pod::Man'              => '2.23',
+            'Pod::ParseLink'        => '1.10',
+            'Pod::Perldoc'          => '3.15_02',
+            'Pod::Plainer'          => '1.02',
+            'Pod::Text'             => '3.14',
+            'Pod::Text::Color'      => '2.06',
+            'Pod::Text::Overstrike' => '2.04',
+            'Pod::Text::Termcap'    => '2.06',
+            'Safe'                  => '2.22',
+            'Socket'                => '1.86',
+            'version'               => '0.82',
+        },
+        removed => {
+        }
+    },
+    5.012 => {
+        delta_from => 5.011005,
+        changed => {
+            'B::Deparse'            => '0.96',
+            'CPAN::Distribution'    => '1.9456_01',
+            'Module::CoreList'      => '2.29',
+            'Safe'                  => '2.25',
+            'Socket'                => '1.87',
+            'Tie::Scalar'           => '1.02',
+            'Time::Piece'           => '1.15_01',
+            'bytes'                 => '1.04',
+            'feature'               => '1.16',
+            'utf8'                  => '1.08',
+        },
+        removed => {
+        }
+    },
+    5.012001 => {
+        delta_from => 5.012,
+        changed => {
+            'B::Deparse'            => '0.97',
+            'CGI'                   => '3.49',
+            'CGI::Fast'             => '1.08',
+            'Carp'                  => '1.16',
+            'Carp::Heavy'           => '1.16',
+            'File::Copy'            => '2.18',
+            'Module::CoreList'      => '2.32',
+            'Pod::Functions'        => '1.04',
+            'Pod::Simple'           => '3.14',
+            'Pod::Simple::BlackBox' => '3.14',
+            'Pod::Simple::Checker'  => '3.14',
+            'Pod::Simple::Debug'    => '3.14',
+            'Pod::Simple::DumpAsText'=> '3.14',
+            'Pod::Simple::DumpAsXML'=> '3.14',
+            'Pod::Simple::HTML'     => '3.14',
+            'Pod::Simple::HTMLBatch'=> '3.14',
+            'Pod::Simple::LinkSection'=> '3.14',
+            'Pod::Simple::Methody'  => '3.14',
+            'Pod::Simple::Progress' => '3.14',
+            'Pod::Simple::PullParser'=> '3.14',
+            'Pod::Simple::PullParserEndToken'=> '3.14',
+            'Pod::Simple::PullParserStartToken'=> '3.14',
+            'Pod::Simple::PullParserTextToken'=> '3.14',
+            'Pod::Simple::PullParserToken'=> '3.14',
+            'Pod::Simple::RTF'      => '3.14',
+            'Pod::Simple::Search'   => '3.14',
+            'Pod::Simple::SimpleTree'=> '3.14',
+            'Pod::Simple::Text'     => '3.14',
+            'Pod::Simple::TextContent'=> '3.14',
+            'Pod::Simple::TiedOutFH'=> '3.14',
+            'Pod::Simple::Transcode'=> '3.14',
+            'Pod::Simple::TranscodeDumb'=> '3.14',
+            'Pod::Simple::TranscodeSmart'=> '3.14',
+            'Pod::Simple::XHTML'    => '3.14',
+            'Pod::Simple::XMLOutStream'=> '3.14',
+            'Safe'                  => '2.27',
+        },
+        removed => {
+        }
+    },
+    5.012002 => {
+        delta_from => 5.012001,
+        changed => {
+            'Carp'                  => '1.17',
+            'Carp::Heavy'           => '1.17',
+            'File::Spec'            => '3.31_01',
+            'Module::CoreList'      => '2.38',
+            'Module::Load::Conditional'=> '0.38',
+            'PerlIO::scalar'        => '0.08',
+        },
+        removed => {
+        }
+    },
+    5.012003 => {
+        delta_from => 5.012002,
+        changed => {
+            'B::Deparse'            => '0.9701',
+            'Module::Build::Platform::cygwin'=> '0.360301',
+            'Module::CoreList'      => '2.43',
+            'Socket'                => '1.87_01',
+        },
+        removed => {
+        }
+    },
+    5.012004 => {
+        delta_from => 5.012003,
+        changed => {
+            'Module::CoreList'      => '2.50',
+        },
+        removed => {
+        }
+    },
+    5.012005 => {
+        delta_from => 5.012004,
+        changed => {
+            'B::Concise'            => '0.78_01',
+            'Encode'                => '2.39_01',
+            'File::Glob'            => '1.07_01',
+            'Module::CoreList'      => '2.50_02',
+            'Unicode::UCD'          => '0.29',
+            'charnames'             => '1.07_01',
+        },
+        removed => {
+        }
+    },
+    5.013 => {
+        delta_from => 5.012,
+        changed => {
+            'CGI'                   => '3.49',
+            'CGI::Fast'             => '1.08',
+            'Data::Dumper'          => '2.126',
+            'ExtUtils::MM_Unix'     => '6.5601',
+            'ExtUtils::MakeMaker'   => '6.5601',
+            'File::Copy'            => '2.18',
+            'IPC::Open3'            => '1.06',
+            'MIME::Base64'          => '3.09',
+            'MIME::QuotedPrint'     => '3.09',
+            'Module::CoreList'      => '2.31',
+            'Pod::Functions'        => '1.04',
+            'XS::APItest'           => '0.18',
+            'XS::APItest::KeywordRPN'=> '0.004',
+            'feature'               => '1.17',
+            'threads'               => '1.77_01',
+            'threads::shared'       => '1.33',
+        },
+        removed => {
+        }
+    },
+    5.013001 => {
+        delta_from => 5.012001,
+        changed => {
+            'Data::Dumper'          => '2.126',
+            'Dumpvalue'             => '1.14',
+            'Errno'                 => '1.12',
+            'ExtUtils::MM_Unix'     => '6.5601',
+            'ExtUtils::MakeMaker'   => '6.5601',
+            'ExtUtils::ParseXS'     => '2.2205',
+            'File::Find'            => '1.16',
+            'IPC::Cmd'              => '0.58',
+            'IPC::Open3'            => '1.06',
+            'List::Util'            => '1.23',
+            'List::Util::PP'        => '1.23',
+            'List::Util::XS'        => '1.23',
+            'Locale::Codes'         => '3.12',
+            'Locale::Codes::Country'=> '3.12',
+            'Locale::Codes::Currency'=> '3.12',
+            'Locale::Codes::Language'=> '3.12',
+            'Locale::Codes::Script' => '3.12',
+            'Locale::Constants'     => '3.12',
+            'Locale::Country'       => '3.12',
+            'Locale::Currency'      => '3.12',
+            'Locale::Language'      => '3.12',
+            'Locale::Script'        => '3.12',
+            'MIME::Base64'          => '3.09',
+            'MIME::QuotedPrint'     => '3.09',
+            'Module::Build::Platform::cygwin'=> '0.360301',
+            'Module::CoreList'      => '2.34',
+            'Module::Load::Conditional'=> '0.38',
+            'PerlIO::scalar'        => '0.08',
+            'Scalar::Util'          => '1.23',
+            'Scalar::Util::PP'      => '1.23',
+            'Socket'                => '1.88',
+            'Term::ReadLine'        => '1.06',
+            'Unicode::UCD'          => '0.28',
+            'XS::APItest'           => '0.19',
+            'XS::APItest::KeywordRPN'=> '0.004',
+            'charnames'             => '1.08',
+            'feature'               => '1.17',
+            'threads'               => '1.77_01',
+            'threads::shared'       => '1.33',
+        },
+        removed => {
+            'Class::ISA'            => 1,
+            'Pod::Plainer'          => 1,
+            'Switch'                => 1,
+        }
+    },
+    5.013002 => {
+        delta_from => 5.013001,
+        changed => {
+            'B::Concise'            => '0.79',
+            'B::Deparse'            => '0.98',
+            'CPAN'                  => '1.94_57',
+            'CPAN::Distribution'    => '1.9600',
+            'Exporter'              => '5.64_02',
+            'Exporter::Heavy'       => '5.64_02',
+            'File::Copy'            => '2.19',
+            'Hash::Util'            => '0.08',
+            'IO::Socket'            => '1.32',
+            'Locale::Codes'         => '3.13',
+            'Locale::Codes::Country'=> '3.13',
+            'Locale::Codes::Currency'=> '3.13',
+            'Locale::Codes::Language'=> '3.13',
+            'Locale::Codes::Script' => '3.13',
+            'Locale::Constants'     => '3.13',
+            'Locale::Country'       => '3.13',
+            'Locale::Currency'      => '3.13',
+            'Locale::Language'      => '3.13',
+            'Locale::Script'        => '3.13',
+            'Search::Dict'          => '1.03',
+            'Socket'                => '1.89',
+            'Thread::Semaphore'     => '2.11',
+            'UNIVERSAL'             => '1.07',
+            'VMS::DCLsym'           => '1.04',
+            'mro'                   => '1.03',
+            'threads'               => '1.77_02',
+            'threads::shared'       => '1.33_01',
+        },
+        removed => {
+        }
+    },
+    5.013003 => {
+        delta_from => 5.013002,
+        changed => {
+            'App::Prove'            => '3.21',
+            'App::Prove::State'     => '3.21',
+            'App::Prove::State::Result'=> '3.21',
+            'App::Prove::State::Result::Test'=> '3.21',
+            'Archive::Extract'      => '0.42',
+            'Archive::Tar'          => '1.64',
+            'Archive::Tar::Constant'=> '1.64',
+            'Archive::Tar::File'    => '1.64',
+            'Attribute::Handlers'   => '0.88',
+            'CPANPLUS'              => '0.9007',
+            'CPANPLUS::Internals'   => '0.9007',
+            'CPANPLUS::Shell::Default'=> '0.9007',
+            'Compress::Raw::Bzip2'  => '2.027',
+            'Compress::Raw::Zlib'   => '2.027_01',
+            'Compress::Zlib'        => '2.027',
+            'DB'                    => '1.03',
+            'Digest::MD5'           => '2.40',
+            'Digest::SHA'           => '5.48',
+            'Exporter'              => '5.64_03',
+            'Exporter::Heavy'       => '5.64_03',
+            'ExtUtils::CBuilder'    => '0.2703',
+            'ExtUtils::CBuilder::Base'=> '0.2703_01',
+            'ExtUtils::CBuilder::Platform::Unix'=> '0.2703',
+            'ExtUtils::CBuilder::Platform::VMS'=> '0.2703',
+            'ExtUtils::CBuilder::Platform::Windows'=> '0.2703',
+            'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.2703',
+            'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.2703',
+            'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.2703',
+            'ExtUtils::CBuilder::Platform::aix'=> '0.2703',
+            'ExtUtils::CBuilder::Platform::cygwin'=> '0.2703',
+            'ExtUtils::CBuilder::Platform::darwin'=> '0.2703',
+            'ExtUtils::CBuilder::Platform::dec_osf'=> '0.2703',
+            'ExtUtils::CBuilder::Platform::os2'=> '0.2703',
+            'ExtUtils::Manifest'    => '1.58',
+            'ExtUtils::ParseXS'     => '2.2206',
+            'Fatal'                 => '2.10',
+            'File::Basename'        => '2.79',
+            'File::Copy'            => '2.20',
+            'File::DosGlob'         => '1.02',
+            'File::Find'            => '1.17',
+            'File::Glob'            => '1.08',
+            'File::stat'            => '1.03',
+            'I18N::LangTags'        => '0.35_01',
+            'I18N::LangTags::List'  => '0.35_01',
+            'IO::Compress::Adapter::Bzip2'=> '2.027',
+            'IO::Compress::Adapter::Deflate'=> '2.027',
+            'IO::Compress::Adapter::Identity'=> '2.027',
+            'IO::Compress::Base'    => '2.027',
+            'IO::Compress::Base::Common'=> '2.027',
+            'IO::Compress::Bzip2'   => '2.027',
+            'IO::Compress::Deflate' => '2.027',
+            'IO::Compress::Gzip'    => '2.027',
+            'IO::Compress::Gzip::Constants'=> '2.027',
+            'IO::Compress::RawDeflate'=> '2.027',
+            'IO::Compress::Zip'     => '2.027',
+            'IO::Compress::Zip::Constants'=> '2.027',
+            'IO::Compress::Zlib::Constants'=> '2.027',
+            'IO::Compress::Zlib::Extra'=> '2.027',
+            'IO::Uncompress::Adapter::Bunzip2'=> '2.027',
+            'IO::Uncompress::Adapter::Identity'=> '2.027',
+            'IO::Uncompress::Adapter::Inflate'=> '2.027',
+            'IO::Uncompress::AnyInflate'=> '2.027',
+            'IO::Uncompress::AnyUncompress'=> '2.027',
+            'IO::Uncompress::Base'  => '2.027',
+            'IO::Uncompress::Bunzip2'=> '2.027',
+            'IO::Uncompress::Gunzip'=> '2.027',
+            'IO::Uncompress::Inflate'=> '2.027',
+            'IO::Uncompress::RawInflate'=> '2.027',
+            'IO::Uncompress::Unzip' => '2.027',
+            'IPC::Cmd'              => '0.60',
+            'IPC::Msg'              => '2.03',
+            'IPC::Semaphore'        => '2.03',
+            'IPC::SharedMem'        => '2.03',
+            'IPC::SysV'             => '2.03',
+            'Locale::Maketext'      => '1.15',
+            'Locale::Maketext::Guts'=> undef,
+            'Locale::Maketext::GutsLoader'=> undef,
+            'Module::Build'         => '0.3607',
+            'Module::Build::Base'   => '0.3607',
+            'Module::Build::Compat' => '0.3607',
+            'Module::Build::Config' => '0.3607',
+            'Module::Build::Cookbook'=> '0.3607',
+            'Module::Build::Dumper' => '0.3607',
+            'Module::Build::ModuleInfo'=> '0.3607',
+            'Module::Build::Notes'  => '0.3607',
+            'Module::Build::PPMMaker'=> '0.3607',
+            'Module::Build::Platform::Amiga'=> '0.3607',
+            'Module::Build::Platform::Default'=> '0.3607',
+            'Module::Build::Platform::EBCDIC'=> '0.3607',
+            'Module::Build::Platform::MPEiX'=> '0.3607',
+            'Module::Build::Platform::MacOS'=> '0.3607',
+            'Module::Build::Platform::RiscOS'=> '0.3607',
+            'Module::Build::Platform::Unix'=> '0.3607',
+            'Module::Build::Platform::VMS'=> '0.3607',
+            'Module::Build::Platform::VOS'=> '0.3607',
+            'Module::Build::Platform::Windows'=> '0.3607',
+            'Module::Build::Platform::aix'=> '0.3607',
+            'Module::Build::Platform::cygwin'=> '0.3607',
+            'Module::Build::Platform::darwin'=> '0.3607',
+            'Module::Build::Platform::os2'=> '0.3607',
+            'Module::Build::PodParser'=> '0.3607',
+            'Module::CoreList'      => '2.36',
+            'Module::Load'          => '0.18',
+            'TAP::Base'             => '3.21',
+            'TAP::Formatter::Base'  => '3.21',
+            'TAP::Formatter::Color' => '3.21',
+            'TAP::Formatter::Console'=> '3.21',
+            'TAP::Formatter::Console::ParallelSession'=> '3.21',
+            'TAP::Formatter::Console::Session'=> '3.21',
+            'TAP::Formatter::File'  => '3.21',
+            'TAP::Formatter::File::Session'=> '3.21',
+            'TAP::Formatter::Session'=> '3.21',
+            'TAP::Harness'          => '3.21',
+            'TAP::Object'           => '3.21',
+            'TAP::Parser'           => '3.21',
+            'TAP::Parser::Aggregator'=> '3.21',
+            'TAP::Parser::Grammar'  => '3.21',
+            'TAP::Parser::Iterator' => '3.21',
+            'TAP::Parser::Iterator::Array'=> '3.21',
+            'TAP::Parser::Iterator::Process'=> '3.21',
+            'TAP::Parser::Iterator::Stream'=> '3.21',
+            'TAP::Parser::IteratorFactory'=> '3.21',
+            'TAP::Parser::Multiplexer'=> '3.21',
+            'TAP::Parser::Result'   => '3.21',
+            'TAP::Parser::Result::Bailout'=> '3.21',
+            'TAP::Parser::Result::Comment'=> '3.21',
+            'TAP::Parser::Result::Plan'=> '3.21',
+            'TAP::Parser::Result::Pragma'=> '3.21',
+            'TAP::Parser::Result::Test'=> '3.21',
+            'TAP::Parser::Result::Unknown'=> '3.21',
+            'TAP::Parser::Result::Version'=> '3.21',
+            'TAP::Parser::Result::YAML'=> '3.21',
+            'TAP::Parser::ResultFactory'=> '3.21',
+            'TAP::Parser::Scheduler'=> '3.21',
+            'TAP::Parser::Scheduler::Job'=> '3.21',
+            'TAP::Parser::Scheduler::Spinner'=> '3.21',
+            'TAP::Parser::Source'   => '3.21',
+            'TAP::Parser::SourceHandler'=> '3.21',
+            'TAP::Parser::SourceHandler::Executable'=> '3.21',
+            'TAP::Parser::SourceHandler::File'=> '3.21',
+            'TAP::Parser::SourceHandler::Handle'=> '3.21',
+            'TAP::Parser::SourceHandler::Perl'=> '3.21',
+            'TAP::Parser::SourceHandler::RawTAP'=> '3.21',
+            'TAP::Parser::SourceHandler::pgTAP'=> '3.21',
+            'TAP::Parser::Utils'    => '3.21',
+            'TAP::Parser::YAMLish::Reader'=> '3.21',
+            'TAP::Parser::YAMLish::Writer'=> '3.21',
+            'Term::ANSIColor'       => '3.00',
+            'Term::ReadLine'        => '1.07',
+            'Test::Harness'         => '3.21',
+            'Tie::Array'            => '1.04',
+            'Time::HiRes'           => '1.9721',
+            'Time::Piece'           => '1.20_01',
+            'Unicode::Collate'      => '0.53',
+            'Unicode::Normalize'    => '1.06',
+            'Unicode::UCD'          => '0.29',
+            'autodie'               => '2.10',
+            'autodie::exception'    => '2.10',
+            'autodie::exception::system'=> '2.10',
+            'autodie::hints'        => '2.10',
+            'blib'                  => '1.05',
+            'charnames'             => '1.11',
+            'diagnostics'           => '1.20',
+            'inc::latest'           => '0.3607',
+            'lib'                   => '0.63',
+            're'                    => '0.12',
+            'threads'               => '1.77_03',
+            'threads::shared'       => '1.33_02',
+            'vars'                  => '1.02',
+            'warnings'              => '1.10',
+        },
+        removed => {
+            'TAP::Parser::Source::Perl'=> 1,
+        }
+    },
+    5.013004 => {
+        delta_from => 5.013003,
+        changed => {
+            'App::Prove'            => '3.22',
+            'App::Prove::State'     => '3.22',
+            'App::Prove::State::Result'=> '3.22',
+            'App::Prove::State::Result::Test'=> '3.22',
+            'Archive::Tar'          => '1.68',
+            'Archive::Tar::Constant'=> '1.68',
+            'Archive::Tar::File'    => '1.68',
+            'B::Lint'               => '1.12',
+            'B::Lint::Debug'        => '1.12',
+            'Carp'                  => '1.18',
+            'Carp::Heavy'           => '1.18',
+            'Compress::Raw::Bzip2'  => '2.030',
+            'Compress::Raw::Zlib'   => '2.030',
+            'Compress::Zlib'        => '2.030',
+            'ExtUtils::ParseXS'     => '2.2207',
+            'File::Spec'            => '3.31_01',
+            'I18N::Langinfo'        => '0.04',
+            'IO::Compress::Adapter::Bzip2'=> '2.030',
+            'IO::Compress::Adapter::Deflate'=> '2.030',
+            'IO::Compress::Adapter::Identity'=> '2.030',
+            'IO::Compress::Base'    => '2.030',
+            'IO::Compress::Base::Common'=> '2.030',
+            'IO::Compress::Bzip2'   => '2.030',
+            'IO::Compress::Deflate' => '2.030',
+            'IO::Compress::Gzip'    => '2.030',
+            'IO::Compress::Gzip::Constants'=> '2.030',
+            'IO::Compress::RawDeflate'=> '2.030',
+            'IO::Compress::Zip'     => '2.030',
+            'IO::Compress::Zip::Constants'=> '2.030',
+            'IO::Compress::Zlib::Constants'=> '2.030',
+            'IO::Compress::Zlib::Extra'=> '2.030',
+            'IO::Uncompress::Adapter::Bunzip2'=> '2.030',
+            'IO::Uncompress::Adapter::Identity'=> '2.030',
+            'IO::Uncompress::Adapter::Inflate'=> '2.030',
+            'IO::Uncompress::AnyInflate'=> '2.030',
+            'IO::Uncompress::AnyUncompress'=> '2.030',
+            'IO::Uncompress::Base'  => '2.030',
+            'IO::Uncompress::Bunzip2'=> '2.030',
+            'IO::Uncompress::Gunzip'=> '2.030',
+            'IO::Uncompress::Inflate'=> '2.030',
+            'IO::Uncompress::RawInflate'=> '2.030',
+            'IO::Uncompress::Unzip' => '2.030',
+            'Module::CoreList'      => '2.37',
+            'TAP::Base'             => '3.22',
+            'TAP::Formatter::Base'  => '3.22',
+            'TAP::Formatter::Color' => '3.22',
+            'TAP::Formatter::Console'=> '3.22',
+            'TAP::Formatter::Console::ParallelSession'=> '3.22',
+            'TAP::Formatter::Console::Session'=> '3.22',
+            'TAP::Formatter::File'  => '3.22',
+            'TAP::Formatter::File::Session'=> '3.22',
+            'TAP::Formatter::Session'=> '3.22',
+            'TAP::Harness'          => '3.22',
+            'TAP::Object'           => '3.22',
+            'TAP::Parser'           => '3.22',
+            'TAP::Parser::Aggregator'=> '3.22',
+            'TAP::Parser::Grammar'  => '3.22',
+            'TAP::Parser::Iterator' => '3.22',
+            'TAP::Parser::Iterator::Array'=> '3.22',
+            'TAP::Parser::Iterator::Process'=> '3.22',
+            'TAP::Parser::Iterator::Stream'=> '3.22',
+            'TAP::Parser::IteratorFactory'=> '3.22',
+            'TAP::Parser::Multiplexer'=> '3.22',
+            'TAP::Parser::Result'   => '3.22',
+            'TAP::Parser::Result::Bailout'=> '3.22',
+            'TAP::Parser::Result::Comment'=> '3.22',
+            'TAP::Parser::Result::Plan'=> '3.22',
+            'TAP::Parser::Result::Pragma'=> '3.22',
+            'TAP::Parser::Result::Test'=> '3.22',
+            'TAP::Parser::Result::Unknown'=> '3.22',
+            'TAP::Parser::Result::Version'=> '3.22',
+            'TAP::Parser::Result::YAML'=> '3.22',
+            'TAP::Parser::ResultFactory'=> '3.22',
+            'TAP::Parser::Scheduler'=> '3.22',
+            'TAP::Parser::Scheduler::Job'=> '3.22',
+            'TAP::Parser::Scheduler::Spinner'=> '3.22',
+            'TAP::Parser::Source'   => '3.22',
+            'TAP::Parser::SourceHandler'=> '3.22',
+            'TAP::Parser::SourceHandler::Executable'=> '3.22',
+            'TAP::Parser::SourceHandler::File'=> '3.22',
+            'TAP::Parser::SourceHandler::Handle'=> '3.22',
+            'TAP::Parser::SourceHandler::Perl'=> '3.22',
+            'TAP::Parser::SourceHandler::RawTAP'=> '3.22',
+            'TAP::Parser::Utils'    => '3.22',
+            'TAP::Parser::YAMLish::Reader'=> '3.22',
+            'TAP::Parser::YAMLish::Writer'=> '3.22',
+            'Test::Builder'         => '0.96',
+            'Test::Builder::Module' => '0.96',
+            'Test::Builder::Tester' => '1.20',
+            'Test::Builder::Tester::Color'=> '1.20',
+            'Test::Harness'         => '3.22',
+            'Test::More'            => '0.96',
+            'Test::Simple'          => '0.96',
+            'Unicode::Collate'      => '0.56',
+            'Unicode::Collate::Locale'=> '0.56',
+            'XS::APItest'           => '0.20',
+            'charnames'             => '1.15',
+            'feature'               => '1.18',
+        },
+        removed => {
+            'TAP::Parser::SourceHandler::pgTAP'=> 1,
+        }
+    },
+    5.013005 => {
+        delta_from => 5.013004,
+        changed => {
+            'B::Debug'              => '1.16',
+            'CPANPLUS::Dist::Build' => '0.48',
+            'CPANPLUS::Dist::Build::Constants'=> '0.48',
+            'Data::Dumper'          => '2.128',
+            'Encode'                => '2.40',
+            'Encode::Guess'         => '2.04',
+            'Encode::MIME::Header'  => '2.12',
+            'Encode::Unicode::UTF7' => '2.05',
+            'Errno'                 => '1.13',
+            'ExtUtils::Command::MM' => '6.57_05',
+            'ExtUtils::Liblist'     => '6.57_05',
+            'ExtUtils::Liblist::Kid'=> '6.5705',
+            'ExtUtils::MM'          => '6.57_05',
+            'ExtUtils::MM_AIX'      => '6.57_05',
+            'ExtUtils::MM_Any'      => '6.57_05',
+            'ExtUtils::MM_BeOS'     => '6.57_05',
+            'ExtUtils::MM_Cygwin'   => '6.57_05',
+            'ExtUtils::MM_DOS'      => '6.5705',
+            'ExtUtils::MM_Darwin'   => '6.57_05',
+            'ExtUtils::MM_MacOS'    => '6.5705',
+            'ExtUtils::MM_NW5'      => '6.57_05',
+            'ExtUtils::MM_OS2'      => '6.57_05',
+            'ExtUtils::MM_QNX'      => '6.57_05',
+            'ExtUtils::MM_UWIN'     => '6.5705',
+            'ExtUtils::MM_Unix'     => '6.57_05',
+            'ExtUtils::MM_VMS'      => '6.57_05',
+            'ExtUtils::MM_VOS'      => '6.57_05',
+            'ExtUtils::MM_Win32'    => '6.57_05',
+            'ExtUtils::MM_Win95'    => '6.57_05',
+            'ExtUtils::MY'          => '6.5705',
+            'ExtUtils::MakeMaker'   => '6.57_05',
+            'ExtUtils::MakeMaker::Config'=> '6.57_05',
+            'ExtUtils::MakeMaker::YAML'=> '1.44',
+            'ExtUtils::Mkbootstrap' => '6.57_05',
+            'ExtUtils::Mksymlists'  => '6.57_05',
+            'ExtUtils::testlib'     => '6.5705',
+            'Filter::Simple'        => '0.85',
+            'Hash::Util'            => '0.09',
+            'Math::BigFloat'        => '1.62',
+            'Math::BigInt'          => '1.95',
+            'Math::BigInt::Calc'    => '0.54',
+            'Math::BigInt::CalcEmu' => '0.06',
+            'Math::BigInt::FastCalc'=> '0.22',
+            'Math::BigRat'          => '0.26',
+            'Module::CoreList'      => '2.39',
+            'POSIX'                 => '1.20',
+            'PerlIO::scalar'        => '0.09',
+            'Safe'                  => '2.28',
+            'Test::Builder'         => '0.97_01',
+            'Test::Builder::Module' => '0.97_01',
+            'Test::Builder::Tester' => '1.21_01',
+            'Test::Builder::Tester::Color'=> '1.21_01',
+            'Test::More'            => '0.97_01',
+            'Test::Simple'          => '0.97_01',
+            'Tie::Hash'             => '1.04',
+            'Unicode::Collate'      => '0.59',
+            'Unicode::Collate::Locale'=> '0.59',
+            'XS::APItest'           => '0.21',
+            'XS::APItest::KeywordRPN'=> '0.005',
+            'XSLoader'              => '0.11',
+            'bigint'                => '0.25',
+            'bignum'                => '0.25',
+            'bigrat'                => '0.25',
+            'blib'                  => '1.06',
+            'open'                  => '1.08',
+            'threads::shared'       => '1.33_03',
+            'warnings'              => '1.11',
+            'warnings::register'    => '1.02',
+        },
+        removed => {
+        }
+    },
+    5.013006 => {
+        delta_from => 5.013005,
+        changed => {
+            'Archive::Extract'      => '0.44',
+            'B'                     => '1.24',
+            'B::Deparse'            => '0.99',
+            'CPAN'                  => '1.94_61',
+            'CPAN::FTP'             => '5.5005',
+            'CPAN::Queue'           => '5.5001',
+            'CPAN::Version'         => '5.5001',
+            'Carp'                  => '1.19',
+            'Carp::Heavy'           => '1.19',
+            'Compress::Raw::Bzip2'  => '2.031',
+            'Cwd'                   => '3.34',
+            'Data::Dumper'          => '2.129',
+            'Devel::Peek'           => '1.05',
+            'Digest::MD5'           => '2.51',
+            'ExtUtils::Constant::Base'=> '0.05',
+            'ExtUtils::Constant::ProxySubs'=> '0.07',
+            'ExtUtils::Embed'       => '1.29',
+            'ExtUtils::XSSymSet'    => '1.2',
+            'Fcntl'                 => '1.09',
+            'File::DosGlob'         => '1.03',
+            'File::Find'            => '1.18',
+            'File::Glob'            => '1.09',
+            'File::Spec'            => '3.33',
+            'File::Spec::Cygwin'    => '3.33',
+            'File::Spec::Epoc'      => '3.33',
+            'File::Spec::Functions' => '3.33',
+            'File::Spec::Mac'       => '3.33',
+            'File::Spec::OS2'       => '3.33',
+            'File::Spec::Unix'      => '3.33',
+            'File::Spec::VMS'       => '3.33',
+            'File::Spec::Win32'     => '3.33',
+            'GDBM_File'             => '1.11',
+            'Hash::Util::FieldHash' => '1.05',
+            'I18N::Langinfo'        => '0.06',
+            'IPC::Cmd'              => '0.64',
+            'IPC::Open3'            => '1.07',
+            'Locale::Codes'         => '3.14',
+            'Locale::Codes::Country'=> '3.14',
+            'Locale::Codes::Currency'=> '3.14',
+            'Locale::Codes::Language'=> '3.14',
+            'Locale::Codes::Script' => '3.14',
+            'Locale::Constants'     => '3.14',
+            'Locale::Country'       => '3.14',
+            'Locale::Currency'      => '3.14',
+            'Locale::Language'      => '3.14',
+            'Locale::Maketext'      => '1.16',
+            'Locale::Script'        => '3.14',
+            'Math::BigFloat'        => '1.63',
+            'Math::BigInt'          => '1.97',
+            'Math::BigInt::Calc'    => '0.55',
+            'Math::BigInt::CalcEmu' => '0.07',
+            'Module::CoreList'      => '2.40',
+            'NDBM_File'             => '1.09',
+            'NEXT'                  => '0.65',
+            'ODBM_File'             => '1.08',
+            'Opcode'                => '1.16',
+            'POSIX'                 => '1.21',
+            'PerlIO::encoding'      => '0.13',
+            'PerlIO::scalar'        => '0.10',
+            'PerlIO::via'           => '0.10',
+            'Pod::Man'              => '2.25',
+            'Pod::Text'             => '3.15',
+            'SDBM_File'             => '1.07',
+            'Socket'                => '1.90',
+            'Sys::Hostname'         => '1.13',
+            'Tie::Hash::NamedCapture'=> '0.07',
+            'Unicode::Collate'      => '0.63',
+            'Unicode::Collate::Locale'=> '0.63',
+            'Unicode::Normalize'    => '1.07',
+            'XS::APItest'           => '0.23',
+            'XSLoader'              => '0.13',
+            'attributes'            => '0.13',
+            'charnames'             => '1.16',
+            'if'                    => '0.06',
+            'mro'                   => '1.04',
+            'overload'              => '1.11',
+            're'                    => '0.13',
+            'sigtrap'               => '1.05',
+            'threads'               => '1.81_01',
+            'threads::shared'       => '1.34',
+        },
+        removed => {
+            'XS::APItest::KeywordRPN'=> 1,
+        }
+    },
+    5.013007 => {
+        delta_from => 5.013006,
+        changed => {
+            'Archive::Extract'      => '0.46',
+            'Archive::Tar'          => '1.72',
+            'Archive::Tar::Constant'=> '1.72',
+            'Archive::Tar::File'    => '1.72',
+            'AutoLoader'            => '5.71',
+            'B'                     => '1.26',
+            'B::Concise'            => '0.81',
+            'B::Deparse'            => '1.01',
+            'CGI'                   => '3.50',
+            'CPAN'                  => '1.94_62',
+            'CPANPLUS'              => '0.9010',
+            'CPANPLUS::Dist::Build' => '0.50',
+            'CPANPLUS::Dist::Build::Constants'=> '0.50',
+            'CPANPLUS::Internals'   => '0.9010',
+            'CPANPLUS::Shell::Default'=> '0.9010',
+            'Data::Dumper'          => '2.130_01',
+            'DynaLoader'            => '1.11',
+            'ExtUtils::Constant'    => '0.23',
+            'ExtUtils::Constant::ProxySubs'=> '0.08',
+            'Fcntl'                 => '1.10',
+            'File::Fetch'           => '0.28',
+            'File::Glob'            => '1.10',
+            'File::stat'            => '1.04',
+            'GDBM_File'             => '1.12',
+            'Hash::Util'            => '0.10',
+            'Hash::Util::FieldHash' => '1.06',
+            'I18N::Langinfo'        => '0.07',
+            'Locale::Maketext'      => '1.17',
+            'Locale::Maketext::Guts'=> '1.17',
+            'Locale::Maketext::GutsLoader'=> '1.17',
+            'MIME::Base64'          => '3.10',
+            'MIME::QuotedPrint'     => '3.10',
+            'Math::BigFloat'        => '1.99_01',
+            'Math::BigInt'          => '1.99_01',
+            'Math::BigInt::Calc'    => '1.99_01',
+            'Math::BigInt::CalcEmu' => '1.99_01',
+            'Math::BigInt::FastCalc'=> '0.24_01',
+            'Math::BigRat'          => '0.26_01',
+            'Module::CoreList'      => '2.41',
+            'NDBM_File'             => '1.10',
+            'ODBM_File'             => '1.09',
+            'Opcode'                => '1.17',
+            'POSIX'                 => '1.22',
+            'Pod::Simple'           => '3.15',
+            'Pod::Simple::BlackBox' => '3.15',
+            'Pod::Simple::Checker'  => '3.15',
+            'Pod::Simple::Debug'    => '3.15',
+            'Pod::Simple::DumpAsText'=> '3.15',
+            'Pod::Simple::DumpAsXML'=> '3.15',
+            'Pod::Simple::HTML'     => '3.15',
+            'Pod::Simple::HTMLBatch'=> '3.15',
+            'Pod::Simple::LinkSection'=> '3.15',
+            'Pod::Simple::Methody'  => '3.15',
+            'Pod::Simple::Progress' => '3.15',
+            'Pod::Simple::PullParser'=> '3.15',
+            'Pod::Simple::PullParserEndToken'=> '3.15',
+            'Pod::Simple::PullParserStartToken'=> '3.15',
+            'Pod::Simple::PullParserTextToken'=> '3.15',
+            'Pod::Simple::PullParserToken'=> '3.15',
+            'Pod::Simple::RTF'      => '3.15',
+            'Pod::Simple::Search'   => '3.15',
+            'Pod::Simple::SimpleTree'=> '3.15',
+            'Pod::Simple::Text'     => '3.15',
+            'Pod::Simple::TextContent'=> '3.15',
+            'Pod::Simple::TiedOutFH'=> '3.15',
+            'Pod::Simple::Transcode'=> '3.15',
+            'Pod::Simple::TranscodeDumb'=> '3.15',
+            'Pod::Simple::TranscodeSmart'=> '3.15',
+            'Pod::Simple::XHTML'    => '3.15',
+            'Pod::Simple::XMLOutStream'=> '3.15',
+            'SDBM_File'             => '1.08',
+            'Safe'                  => '2.29',
+            'SelfLoader'            => '1.18',
+            'Socket'                => '1.91',
+            'Storable'              => '2.24',
+            'Sys::Hostname'         => '1.14',
+            'Unicode'               => '6.0.0',
+            'Unicode::Collate'      => '0.67',
+            'Unicode::Collate::CJK::Big5'=> '0.65',
+            'Unicode::Collate::CJK::GB2312'=> '0.65',
+            'Unicode::Collate::CJK::JISX0208'=> '0.64',
+            'Unicode::Collate::CJK::Korean'=> '0.66',
+            'Unicode::Collate::CJK::Pinyin'=> '0.65',
+            'Unicode::Collate::CJK::Stroke'=> '0.65',
+            'Unicode::Collate::Locale'=> '0.67',
+            'XS::APItest'           => '0.26',
+            'XS::Typemap'           => '0.04',
+            'charnames'             => '1.17',
+            'mro'                   => '1.05',
+            'parent'                => '0.224',
+            're'                    => '0.14',
+            'threads'               => '1.81_02',
+        },
+        removed => {
+        }
+    },
+    5.013008 => {
+        delta_from => 5.013007,
+        changed => {
+            'Archive::Tar'          => '1.74',
+            'Archive::Tar::Constant'=> '1.74',
+            'Archive::Tar::File'    => '1.74',
+            'B'                     => '1.27',
+            'B::Concise'            => '0.82',
+            'B::Deparse'            => '1.02',
+            'Carp::Heavy'           => '1.17',
+            'Cwd'                   => '3.35',
+            'Data::Dumper'          => '2.130_02',
+            'Devel::Peek'           => '1.06',
+            'Devel::SelfStubber'    => '1.05',
+            'Digest::SHA'           => '5.50',
+            'Dumpvalue'             => '1.15',
+            'DynaLoader'            => '1.12',
+            'Env'                   => '1.02',
+            'Exporter::Heavy'       => '5.64_01',
+            'ExtUtils::CBuilder'    => '0.280201',
+            'ExtUtils::CBuilder::Base'=> '0.280201',
+            'ExtUtils::CBuilder::Platform::Unix'=> '0.280201',
+            'ExtUtils::CBuilder::Platform::VMS'=> '0.280201',
+            'ExtUtils::CBuilder::Platform::Windows'=> '0.280201',
+            'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.280201',
+            'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.280201',
+            'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.280201',
+            'ExtUtils::CBuilder::Platform::aix'=> '0.280201',
+            'ExtUtils::CBuilder::Platform::cygwin'=> '0.280201',
+            'ExtUtils::CBuilder::Platform::darwin'=> '0.280201',
+            'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280201',
+            'ExtUtils::CBuilder::Platform::os2'=> '0.280201',
+            'ExtUtils::Constant::Utils'=> '0.03',
+            'ExtUtils::Embed'       => '1.30',
+            'ExtUtils::ParseXS'     => '2.2208',
+            'Fatal'                 => '2.1001',
+            'Fcntl'                 => '1.11',
+            'File::CheckTree'       => '4.41',
+            'File::Glob'            => '1.11',
+            'GDBM_File'             => '1.13',
+            'Hash::Util::FieldHash' => '1.07',
+            'I18N::Collate'         => '1.02',
+            'IO'                    => '1.25_03',
+            'IPC::Cmd'              => '0.66',
+            'IPC::Open3'            => '1.08',
+            'Locale::Codes'         => '3.15',
+            'Locale::Codes::Country'=> '3.15',
+            'Locale::Codes::Currency'=> '3.15',
+            'Locale::Codes::Language'=> '3.15',
+            'Locale::Codes::Script' => '3.15',
+            'Locale::Constants'     => '3.15',
+            'Locale::Country'       => '3.15',
+            'Locale::Currency'      => '3.15',
+            'Locale::Language'      => '3.15',
+            'Locale::Script'        => '3.15',
+            'MIME::Base64'          => '3.13',
+            'MIME::QuotedPrint'     => '3.13',
+            'Math::BigFloat'        => '1.99_02',
+            'Math::BigInt'          => '1.99_02',
+            'Math::BigInt::Calc'    => '1.99_02',
+            'Math::BigInt::CalcEmu' => '1.99_02',
+            'Memoize'               => '1.02',
+            'Memoize::AnyDBM_File'  => '1.02',
+            'Memoize::Expire'       => '1.02',
+            'Memoize::ExpireFile'   => '1.02',
+            'Memoize::ExpireTest'   => '1.02',
+            'Memoize::NDBM_File'    => '1.02',
+            'Memoize::SDBM_File'    => '1.02',
+            'Memoize::Storable'     => '1.02',
+            'Module::CoreList'      => '2.43',
+            'NDBM_File'             => '1.11',
+            'Net::Ping'             => '2.37',
+            'ODBM_File'             => '1.10',
+            'Opcode'                => '1.18',
+            'POSIX'                 => '1.23',
+            'PerlIO::encoding'      => '0.14',
+            'PerlIO::scalar'        => '0.11',
+            'PerlIO::via'           => '0.11',
+            'SDBM_File'             => '1.09',
+            'Socket'                => '1.92',
+            'Storable'              => '2.25',
+            'Time::HiRes'           => '1.9721_01',
+            'Unicode::Collate'      => '0.6801',
+            'Unicode::Collate::Locale'=> '0.68',
+            'Unicode::Normalize'    => '1.08',
+            'Unicode::UCD'          => '0.30',
+            'Win32'                 => '0.41',
+            'XS::APItest'           => '0.27',
+            'autodie'               => '2.1001',
+            'autodie::exception'    => '2.1001',
+            'autodie::exception::system'=> '2.1001',
+            'autodie::hints'        => '2.1001',
+            'feature'               => '1.19',
+            'if'                    => '0.0601',
+            'mro'                   => '1.06',
+            'overload'              => '1.12',
+            're'                    => '0.15',
+            'threads'               => '1.81_03',
+            'threads::shared'       => '1.35',
+            'version'               => '0.86',
+        },
+        removed => {
+        }
+    },
+    5.013009 => {
+        delta_from => 5.013008,
+        changed => {
+            'Archive::Extract'      => '0.48',
+            'Archive::Tar'          => '1.76',
+            'Archive::Tar::Constant'=> '1.76',
+            'Archive::Tar::File'    => '1.76',
+            'B::Concise'            => '0.83',
+            'B::Deparse'            => '1.03',
+            'B::Lint'               => '1.13',
+            'Benchmark'             => '1.12',
+            'CGI'                   => '3.51',
+            'CGI::Carp'             => '3.51',
+            'CGI::Cookie'           => '1.30',
+            'CGI::Push'             => '1.05',
+            'CGI::Util'             => '3.51',
+            'CPAN'                  => '1.94_63',
+            'CPAN::HTTP::Client'    => '1.94',
+            'CPAN::HTTP::Credentials'=> '1.94',
+            'CPAN::Meta::YAML'      => '0.003',
+            'CPANPLUS'              => '0.9011',
+            'CPANPLUS::Dist::Build' => '0.52',
+            'CPANPLUS::Dist::Build::Constants'=> '0.52',
+            'CPANPLUS::Internals'   => '0.9011',
+            'CPANPLUS::Shell::Default'=> '0.9011',
+            'Carp::Heavy'           => '1.19',
+            'Compress::Raw::Bzip2'  => '2.033',
+            'Compress::Raw::Zlib'   => '2.033',
+            'Compress::Zlib'        => '2.033',
+            'Cwd'                   => '3.36',
+            'DBM_Filter'            => '0.04',
+            'DB_File'               => '1.821',
+            'Devel::Peek'           => '1.07',
+            'DirHandle'             => '1.04',
+            'Dumpvalue'             => '1.16',
+            'Encode'                => '2.42',
+            'Encode::Alias'         => '2.13',
+            'Encode::MIME::Header'  => '2.13',
+            'Exporter::Heavy'       => '5.64_03',
+            'ExtUtils::Install'     => '1.56',
+            'ExtUtils::ParseXS'     => '2.2209',
+            'File::Basename'        => '2.80',
+            'File::Copy'            => '2.21',
+            'File::DosGlob'         => '1.04',
+            'File::Fetch'           => '0.32',
+            'File::Find'            => '1.19',
+            'File::Spec::Mac'       => '3.34',
+            'File::Spec::VMS'       => '3.34',
+            'File::stat'            => '1.05',
+            'HTTP::Tiny'            => '0.009',
+            'Hash::Util::FieldHash' => '1.08',
+            'IO::Compress::Adapter::Bzip2'=> '2.033',
+            'IO::Compress::Adapter::Deflate'=> '2.033',
+            'IO::Compress::Adapter::Identity'=> '2.033',
+            'IO::Compress::Base'    => '2.033',
+            'IO::Compress::Base::Common'=> '2.033',
+            'IO::Compress::Bzip2'   => '2.033',
+            'IO::Compress::Deflate' => '2.033',
+            'IO::Compress::Gzip'    => '2.033',
+            'IO::Compress::Gzip::Constants'=> '2.033',
+            'IO::Compress::RawDeflate'=> '2.033',
+            'IO::Compress::Zip'     => '2.033',
+            'IO::Compress::Zip::Constants'=> '2.033',
+            'IO::Compress::Zlib::Constants'=> '2.033',
+            'IO::Compress::Zlib::Extra'=> '2.033',
+            'IO::Handle'            => '1.29',
+            'IO::Uncompress::Adapter::Bunzip2'=> '2.033',
+            'IO::Uncompress::Adapter::Identity'=> '2.033',
+            'IO::Uncompress::Adapter::Inflate'=> '2.033',
+            'IO::Uncompress::AnyInflate'=> '2.033',
+            'IO::Uncompress::AnyUncompress'=> '2.033',
+            'IO::Uncompress::Base'  => '2.033',
+            'IO::Uncompress::Bunzip2'=> '2.033',
+            'IO::Uncompress::Gunzip'=> '2.033',
+            'IO::Uncompress::Inflate'=> '2.033',
+            'IO::Uncompress::RawInflate'=> '2.033',
+            'IO::Uncompress::Unzip' => '2.033',
+            'IPC::Cmd'              => '0.68',
+            'IPC::Open3'            => '1.09',
+            'JSON::PP'              => '2.27103',
+            'JSON::PP::Boolean'     => undef,
+            'Locale::Maketext'      => '1.18',
+            'Log::Message'          => '0.04',
+            'Log::Message::Config'  => '0.04',
+            'Log::Message::Handlers'=> '0.04',
+            'Log::Message::Item'    => '0.04',
+            'Log::Message::Simple'  => '0.08',
+            'Math::BigFloat'        => '1.99_03',
+            'Math::BigInt'          => '1.99_03',
+            'Math::BigInt::Calc'    => '1.99_03',
+            'Math::BigInt::FastCalc'=> '0.24_02',
+            'Math::BigRat'          => '0.26_02',
+            'Module::CoreList'      => '2.42_01',
+            'Module::Load::Conditional'=> '0.40',
+            'Module::Metadata'      => '1.000003',
+            'Net::Ping'             => '2.38',
+            'OS2::Process'          => '1.05',
+            'Object::Accessor'      => '0.38',
+            'POSIX'                 => '1.24',
+            'Params::Check'         => '0.28',
+            'Perl::OSType'          => '1.002',
+            'Pod::LaTeX'            => '0.59',
+            'Pod::Perldoc'          => '3.15_03',
+            'Socket'                => '1.93',
+            'Storable'              => '2.26',
+            'Sys::Hostname'         => '1.15',
+            'Term::UI'              => '0.24',
+            'Thread::Queue'         => '2.12',
+            'Thread::Semaphore'     => '2.12',
+            'Time::Local'           => '1.2000',
+            'UNIVERSAL'             => '1.08',
+            'Unicode::Normalize'    => '1.10',
+            'Win32'                 => '0.44',
+            'bigint'                => '0.26',
+            'bignum'                => '0.26',
+            'bigrat'                => '0.26',
+            'charnames'             => '1.18',
+            'diagnostics'           => '1.21',
+            're'                    => '0.16',
+            'threads'               => '1.83',
+            'threads::shared'       => '1.36',
+            'version'               => '0.88',
+        },
+        removed => {
+        }
+    },
+    5.01301 => {
+        delta_from => 5.013009,
+        changed => {
+            'Attribute::Handlers'   => '0.89',
+            'B'                     => '1.28',
+            'B::Showlex'            => '1.03',
+            'CGI'                   => '3.52',
+            'CPAN'                  => '1.94_65',
+            'CPAN::Distribution'    => '1.9601',
+            'CPAN::FTP::netrc'      => '1.01',
+            'CPAN::FirstTime'       => '5.5303',
+            'CPAN::HandleConfig'    => '5.5003',
+            'CPAN::Meta'            => '2.110440',
+            'CPAN::Meta::Converter' => '2.110440',
+            'CPAN::Meta::Feature'   => '2.110440',
+            'CPAN::Meta::History'   => '2.110440',
+            'CPAN::Meta::Prereqs'   => '2.110440',
+            'CPAN::Meta::Spec'      => '2.110440',
+            'CPAN::Meta::Validator' => '2.110440',
+            'CPAN::Shell'           => '5.5002',
+            'CPANPLUS'              => '0.9101',
+            'CPANPLUS::Internals'   => '0.9101',
+            'CPANPLUS::Shell::Default'=> '0.9101',
+            'Carp'                  => '1.20',
+            'Carp::Heavy'           => '1.20',
+            'Cwd'                   => '3.37',
+            'Devel::DProf'          => '20110217.00',
+            'DynaLoader'            => '1.13',
+            'ExtUtils::CBuilder'    => '0.280202',
+            'ExtUtils::CBuilder::Base'=> '0.280202',
+            'ExtUtils::CBuilder::Platform::Unix'=> '0.280202',
+            'ExtUtils::CBuilder::Platform::VMS'=> '0.280202',
+            'ExtUtils::CBuilder::Platform::Windows'=> '0.280202',
+            'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.280202',
+            'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.280202',
+            'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.280202',
+            'ExtUtils::CBuilder::Platform::aix'=> '0.280202',
+            'ExtUtils::CBuilder::Platform::cygwin'=> '0.280202',
+            'ExtUtils::CBuilder::Platform::darwin'=> '0.280202',
+            'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280202',
+            'ExtUtils::CBuilder::Platform::os2'=> '0.280202',
+            'File::Copy'            => '2.22',
+            'Filter::Simple'        => '0.86',
+            'HTTP::Tiny'            => '0.010',
+            'I18N::LangTags::Detect'=> '1.05',
+            'IO::Select'            => '1.18',
+            'IPC::Cmd'              => '0.70',
+            'Locale::Maketext'      => '1.19',
+            'Math::BigFloat'        => '1.992',
+            'Math::BigInt'          => '1.992',
+            'Math::BigInt::Calc'    => '1.992',
+            'Math::BigInt::CalcEmu' => '1.992',
+            'Module::Build'         => '0.37_05',
+            'Module::Build::Base'   => '0.37_05',
+            'Module::Build::Compat' => '0.37_05',
+            'Module::Build::Config' => '0.37_05',
+            'Module::Build::Cookbook'=> '0.37_05',
+            'Module::Build::Dumper' => '0.37_05',
+            'Module::Build::ModuleInfo'=> '0.37_05',
+            'Module::Build::Notes'  => '0.37_05',
+            'Module::Build::PPMMaker'=> '0.37_05',
+            'Module::Build::Platform::Amiga'=> '0.37_05',
+            'Module::Build::Platform::Default'=> '0.37_05',
+            'Module::Build::Platform::EBCDIC'=> '0.37_05',
+            'Module::Build::Platform::MPEiX'=> '0.37_05',
+            'Module::Build::Platform::MacOS'=> '0.37_05',
+            'Module::Build::Platform::RiscOS'=> '0.37_05',
+            'Module::Build::Platform::Unix'=> '0.37_05',
+            'Module::Build::Platform::VMS'=> '0.37_05',
+            'Module::Build::Platform::VOS'=> '0.37_05',
+            'Module::Build::Platform::Windows'=> '0.37_05',
+            'Module::Build::Platform::aix'=> '0.37_05',
+            'Module::Build::Platform::cygwin'=> '0.37_05',
+            'Module::Build::Platform::darwin'=> '0.37_05',
+            'Module::Build::Platform::os2'=> '0.37_05',
+            'Module::Build::PodParser'=> '0.37_05',
+            'Module::Build::Version'=> '0.87',
+            'Module::Build::YAML'   => '1.41',
+            'Module::CoreList'      => '2.45',
+            'Module::Load::Conditional'=> '0.44',
+            'Module::Metadata'      => '1.000004',
+            'OS2::Process'          => '1.06',
+            'Parse::CPAN::Meta'     => '1.4401',
+            'Pod::Html'             => '1.1',
+            'Socket'                => '1.94',
+            'Term::UI'              => '0.26',
+            'Unicode::Collate'      => '0.72',
+            'Unicode::Collate::Locale'=> '0.71',
+            'Unicode::UCD'          => '0.31',
+            'VMS::DCLsym'           => '1.05',
+            'Version::Requirements' => '0.101020',
+            'bigrat'                => '0.27',
+            'deprecate'             => '0.02',
+            'diagnostics'           => '1.22',
+            'inc::latest'           => '0.37_05',
+            'overload'              => '1.13',
+            're'                    => '0.17',
+            'utf8'                  => '1.09',
+            'warnings'              => '1.12',
+        },
+        removed => {
+        }
+    },
+    5.013011 => {
+        delta_from => 5.01301,
+        changed => {
+            'App::Prove'            => '3.23',
+            'App::Prove::State'     => '3.23',
+            'App::Prove::State::Result'=> '3.23',
+            'App::Prove::State::Result::Test'=> '3.23',
+            'B'                     => '1.29',
+            'CPAN'                  => '1.9600',
+            'CPAN::Author'          => '5.5001',
+            'CPAN::CacheMgr'        => '5.5001',
+            'CPAN::Distribution'    => '1.9602',
+            'CPAN::Exception::blocked_urllist'=> '1.001',
+            'CPAN::HTTP::Client'    => '1.9600',
+            'CPAN::HTTP::Credentials'=> '1.9600',
+            'CPAN::Index'           => '1.9600',
+            'CPAN::LWP::UserAgent'  => '1.9600',
+            'CPAN::Mirrors'         => '1.9600',
+            'CPAN::Module'          => '5.5001',
+            'CPANPLUS'              => '0.9103',
+            'CPANPLUS::Dist::Build' => '0.54',
+            'CPANPLUS::Dist::Build::Constants'=> '0.54',
+            'CPANPLUS::Internals'   => '0.9103',
+            'CPANPLUS::Shell::Default'=> '0.9103',
+            'Cwd'                   => '3.36',
+            'Devel::DProf'          => '20110228.00',
+            'Digest::SHA'           => '5.61',
+            'ExtUtils::Command'     => '1.17',
+            'File::Basename'        => '2.81',
+            'File::Copy'            => '2.21',
+            'File::Glob'            => '1.12',
+            'GDBM_File'             => '1.14',
+            'HTTP::Tiny'            => '0.011',
+            'Hash::Util'            => '0.11',
+            'Hash::Util::FieldHash' => '1.09',
+            'I18N::Langinfo'        => '0.08',
+            'IO'                    => '1.25_04',
+            'IO::Dir'               => '1.08',
+            'IO::File'              => '1.15',
+            'IO::Handle'            => '1.30',
+            'IO::Pipe'              => '1.14',
+            'IO::Poll'              => '0.08',
+            'IO::Select'            => '1.20',
+            'JSON::PP'              => '2.27105',
+            'Locale::Codes'         => '3.16',
+            'Locale::Codes::Country'=> '3.16',
+            'Locale::Codes::Currency'=> '3.16',
+            'Locale::Codes::Language'=> '3.16',
+            'Locale::Codes::Script' => '3.16',
+            'Locale::Constants'     => '3.16',
+            'Locale::Country'       => '3.16',
+            'Locale::Currency'      => '3.16',
+            'Locale::Language'      => '3.16',
+            'Locale::Script'        => '3.16',
+            'Math::BigFloat'        => '1.993',
+            'Math::BigInt'          => '1.994',
+            'Math::BigInt::Calc'    => '1.993',
+            'Math::BigInt::CalcEmu' => '1.993',
+            'Math::BigInt::FastCalc'=> '0.28',
+            'Module::Build'         => '0.3800',
+            'Module::Build::Base'   => '0.3800',
+            'Module::Build::Compat' => '0.3800',
+            'Module::Build::Config' => '0.3800',
+            'Module::Build::Cookbook'=> '0.3800',
+            'Module::Build::Dumper' => '0.3800',
+            'Module::Build::ModuleInfo'=> '0.3800',
+            'Module::Build::Notes'  => '0.3800',
+            'Module::Build::PPMMaker'=> '0.3800',
+            'Module::Build::Platform::Amiga'=> '0.3800',
+            'Module::Build::Platform::Default'=> '0.3800',
+            'Module::Build::Platform::EBCDIC'=> '0.3800',
+            'Module::Build::Platform::MPEiX'=> '0.3800',
+            'Module::Build::Platform::MacOS'=> '0.3800',
+            'Module::Build::Platform::RiscOS'=> '0.3800',
+            'Module::Build::Platform::Unix'=> '0.3800',
+            'Module::Build::Platform::VMS'=> '0.3800',
+            'Module::Build::Platform::VOS'=> '0.3800',
+            'Module::Build::Platform::Windows'=> '0.3800',
+            'Module::Build::Platform::aix'=> '0.3800',
+            'Module::Build::Platform::cygwin'=> '0.3800',
+            'Module::Build::Platform::darwin'=> '0.3800',
+            'Module::Build::Platform::os2'=> '0.3800',
+            'Module::Build::PodParser'=> '0.3800',
+            'Module::CoreList'      => '2.46',
+            'NDBM_File'             => '1.12',
+            'Pod::Simple'           => '3.16',
+            'Pod::Simple::BlackBox' => '3.16',
+            'Pod::Simple::Checker'  => '3.16',
+            'Pod::Simple::Debug'    => '3.16',
+            'Pod::Simple::DumpAsText'=> '3.16',
+            'Pod::Simple::DumpAsXML'=> '3.16',
+            'Pod::Simple::HTML'     => '3.16',
+            'Pod::Simple::HTMLBatch'=> '3.16',
+            'Pod::Simple::LinkSection'=> '3.16',
+            'Pod::Simple::Methody'  => '3.16',
+            'Pod::Simple::Progress' => '3.16',
+            'Pod::Simple::PullParser'=> '3.16',
+            'Pod::Simple::PullParserEndToken'=> '3.16',
+            'Pod::Simple::PullParserStartToken'=> '3.16',
+            'Pod::Simple::PullParserTextToken'=> '3.16',
+            'Pod::Simple::PullParserToken'=> '3.16',
+            'Pod::Simple::RTF'      => '3.16',
+            'Pod::Simple::Search'   => '3.16',
+            'Pod::Simple::SimpleTree'=> '3.16',
+            'Pod::Simple::Text'     => '3.16',
+            'Pod::Simple::TextContent'=> '3.16',
+            'Pod::Simple::TiedOutFH'=> '3.16',
+            'Pod::Simple::Transcode'=> '3.16',
+            'Pod::Simple::TranscodeDumb'=> '3.16',
+            'Pod::Simple::TranscodeSmart'=> '3.16',
+            'Pod::Simple::XHTML'    => '3.16',
+            'Pod::Simple::XMLOutStream'=> '3.16',
+            'Storable'              => '2.27',
+            'Sys::Hostname'         => '1.16',
+            'TAP::Base'             => '3.23',
+            'TAP::Formatter::Base'  => '3.23',
+            'TAP::Formatter::Color' => '3.23',
+            'TAP::Formatter::Console'=> '3.23',
+            'TAP::Formatter::Console::ParallelSession'=> '3.23',
+            'TAP::Formatter::Console::Session'=> '3.23',
+            'TAP::Formatter::File'  => '3.23',
+            'TAP::Formatter::File::Session'=> '3.23',
+            'TAP::Formatter::Session'=> '3.23',
+            'TAP::Harness'          => '3.23',
+            'TAP::Object'           => '3.23',
+            'TAP::Parser'           => '3.23',
+            'TAP::Parser::Aggregator'=> '3.23',
+            'TAP::Parser::Grammar'  => '3.23',
+            'TAP::Parser::Iterator' => '3.23',
+            'TAP::Parser::Iterator::Array'=> '3.23',
+            'TAP::Parser::Iterator::Process'=> '3.23',
+            'TAP::Parser::Iterator::Stream'=> '3.23',
+            'TAP::Parser::IteratorFactory'=> '3.23',
+            'TAP::Parser::Multiplexer'=> '3.23',
+            'TAP::Parser::Result'   => '3.23',
+            'TAP::Parser::Result::Bailout'=> '3.23',
+            'TAP::Parser::Result::Comment'=> '3.23',
+            'TAP::Parser::Result::Plan'=> '3.23',
+            'TAP::Parser::Result::Pragma'=> '3.23',
+            'TAP::Parser::Result::Test'=> '3.23',
+            'TAP::Parser::Result::Unknown'=> '3.23',
+            'TAP::Parser::Result::Version'=> '3.23',
+            'TAP::Parser::Result::YAML'=> '3.23',
+            'TAP::Parser::ResultFactory'=> '3.23',
+            'TAP::Parser::Scheduler'=> '3.23',
+            'TAP::Parser::Scheduler::Job'=> '3.23',
+            'TAP::Parser::Scheduler::Spinner'=> '3.23',
+            'TAP::Parser::Source'   => '3.23',
+            'TAP::Parser::SourceHandler'=> '3.23',
+            'TAP::Parser::SourceHandler::Executable'=> '3.23',
+            'TAP::Parser::SourceHandler::File'=> '3.23',
+            'TAP::Parser::SourceHandler::Handle'=> '3.23',
+            'TAP::Parser::SourceHandler::Perl'=> '3.23',
+            'TAP::Parser::SourceHandler::RawTAP'=> '3.23',
+            'TAP::Parser::Utils'    => '3.23',
+            'TAP::Parser::YAMLish::Reader'=> '3.23',
+            'TAP::Parser::YAMLish::Writer'=> '3.23',
+            'Test::Builder'         => '0.98',
+            'Test::Builder::Module' => '0.98',
+            'Test::Builder::Tester' => '1.22',
+            'Test::Builder::Tester::Color'=> '1.22',
+            'Test::Harness'         => '3.23',
+            'Test::More'            => '0.98',
+            'Test::Simple'          => '0.98',
+            'Tie::Hash::NamedCapture'=> '0.08',
+            'Tie::RefHash'          => '1.39',
+            'Unicode::Collate'      => '0.73',
+            'Unicode::Collate::Locale'=> '0.73',
+            'Unicode::UCD'          => '0.32',
+            'XS::Typemap'           => '0.05',
+            'attributes'            => '0.14',
+            'base'                  => '2.16',
+            'inc::latest'           => '0.3800',
+            'mro'                   => '1.07',
+            'parent'                => '0.225',
+        },
+        removed => {
+        }
+    },
+    5.014 => {
+        delta_from => 5.013011,
+        changed => {
+            'ExtUtils::CBuilder'    => '0.280203',
+            'ExtUtils::CBuilder::Base'=> '0.280203',
+            'ExtUtils::CBuilder::Platform::Unix'=> '0.280203',
+            'ExtUtils::CBuilder::Platform::VMS'=> '0.280203',
+            'ExtUtils::CBuilder::Platform::Windows'=> '0.280203',
+            'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.280203',
+            'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.280203',
+            'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.280203',
+            'ExtUtils::CBuilder::Platform::aix'=> '0.280203',
+            'ExtUtils::CBuilder::Platform::cygwin'=> '0.280203',
+            'ExtUtils::CBuilder::Platform::darwin'=> '0.280203',
+            'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280203',
+            'ExtUtils::CBuilder::Platform::os2'=> '0.280203',
+            'ExtUtils::ParseXS'     => '2.2210',
+            'File::Basename'        => '2.82',
+            'HTTP::Tiny'            => '0.012',
+            'IO::Handle'            => '1.31',
+            'Module::CoreList'      => '2.49',
+            'PerlIO'                => '1.07',
+            'Pod::Html'             => '1.11',
+            'XS::APItest'           => '0.28',
+            'bigint'                => '0.27',
+            'bignum'                => '0.27',
+            'bigrat'                => '0.28',
+            'constant'              => '1.21',
+            'feature'               => '1.20',
+            're'                    => '0.18',
+            'threads::shared'       => '1.37',
+        },
+        removed => {
+        }
+    },
+    5.014001 => {
+        delta_from => 5.014,
+        changed => {
+            'B::Deparse'            => '1.04',
+            'Module::CoreList'      => '2.49_01',
+            'Pod::Perldoc'          => '3.15_04',
+        },
+        removed => {
+        }
+    },
+    5.014002 => {
+        delta_from => 5.014001,
+        changed => {
+            'CPAN'                  => '1.9600_01',
+            'CPAN::Distribution'    => '1.9602_01',
+            'Devel::DProf::dprof::V'=> undef,
+            'Encode'                => '2.42_01',
+            'File::Glob'            => '1.13',
+            'Module::CoreList'      => '2.49_02',
+            'PerlIO::scalar'        => '0.11_01',
+            'Time::Piece::Seconds'  => undef,
+        },
+        removed => {
+        }
+    },
+    5.014003 => {
+        delta_from => 5.014002,
+        changed => {
+            'Digest'                => '1.16_01',
+            'IPC::Open3'            => '1.09_01',
+            'Module::CoreList'      => '2.49_04',
+        },
+        removed => {
+        }
+    },
+    5.014004 => {
+        delta_from => 5.014003,
+        changed => {
+            'Encode'                => '2.42_02',
+            'IPC::Open3'            => '1.0901',
+            'Module::CoreList'      => '2.49_06',
+        },
+        removed => {
+        }
+    },
+    5.015 => {
+        delta_from => 5.014001,
+        changed => {
+            'Archive::Extract'      => '0.52',
+            'Attribute::Handlers'   => '0.91',
+            'B'                     => '1.30',
+            'B::Concise'            => '0.84',
+            'B::Deparse'            => '1.05',
+            'Benchmark'             => '1.13',
+            'CGI'                   => '3.54',
+            'CGI::Util'             => '3.53',
+            'CPAN::Meta'            => '2.110930',
+            'CPAN::Meta::Converter' => '2.110930',
+            'CPAN::Meta::Feature'   => '2.110930',
+            'CPAN::Meta::History'   => '2.110930',
+            'CPAN::Meta::Prereqs'   => '2.110930',
+            'CPAN::Meta::Spec'      => '2.110930',
+            'CPAN::Meta::Validator' => '2.110930',
+            'CPANPLUS'              => '0.9105',
+            'CPANPLUS::Dist::Build' => '0.56',
+            'CPANPLUS::Dist::Build::Constants'=> '0.56',
+            'CPANPLUS::Internals'   => '0.9105',
+            'CPANPLUS::Shell::Default'=> '0.9105',
+            'Compress::Raw::Bzip2'  => '2.035',
+            'Compress::Raw::Zlib'   => '2.035',
+            'Compress::Zlib'        => '2.035',
+            'DB_File'               => '1.822',
+            'Data::Dumper'          => '2.131',
+            'Devel::Peek'           => '1.08',
+            'Digest::SHA'           => '5.62',
+            'Encode'                => '2.43',
+            'Encode::Alias'         => '2.14',
+            'ExtUtils::CBuilder'    => '0.280204',
+            'ExtUtils::CBuilder::Base'=> '0.280204',
+            'Fatal'                 => '2.10',
+            'File::Spec::Win32'     => '3.34',
+            'Filter::Simple'        => '0.87',
+            'Filter::Util::Call'    => '1.39',
+            'FindBin'               => '1.51',
+            'Hash::Util::FieldHash' => '1.10',
+            'I18N::LangTags'        => '0.36',
+            'IO::Compress::Adapter::Bzip2'=> '2.035',
+            'IO::Compress::Adapter::Deflate'=> '2.035',
+            'IO::Compress::Adapter::Identity'=> '2.035',
+            'IO::Compress::Base'    => '2.035',
+            'IO::Compress::Base::Common'=> '2.035',
+            'IO::Compress::Bzip2'   => '2.035',
+            'IO::Compress::Deflate' => '2.035',
+            'IO::Compress::Gzip'    => '2.035',
+            'IO::Compress::Gzip::Constants'=> '2.035',
+            'IO::Compress::RawDeflate'=> '2.035',
+            'IO::Compress::Zip'     => '2.035',
+            'IO::Compress::Zip::Constants'=> '2.035',
+            'IO::Compress::Zlib::Constants'=> '2.035',
+            'IO::Compress::Zlib::Extra'=> '2.035',
+            'IO::Uncompress::Adapter::Bunzip2'=> '2.035',
+            'IO::Uncompress::Adapter::Identity'=> '2.035',
+            'IO::Uncompress::Adapter::Inflate'=> '2.035',
+            'IO::Uncompress::AnyInflate'=> '2.035',
+            'IO::Uncompress::AnyUncompress'=> '2.035',
+            'IO::Uncompress::Base'  => '2.035',
+            'IO::Uncompress::Bunzip2'=> '2.035',
+            'IO::Uncompress::Gunzip'=> '2.035',
+            'IO::Uncompress::Inflate'=> '2.035',
+            'IO::Uncompress::RawInflate'=> '2.035',
+            'IO::Uncompress::Unzip' => '2.035',
+            'IPC::Open2'            => '1.04',
+            'IPC::Open3'            => '1.11',
+            'JSON::PP'              => '2.27200',
+            'Math::BigFloat'        => '1.994',
+            'Math::BigInt'          => '1.995',
+            'Math::Complex'         => '1.57',
+            'Math::Trig'            => '1.21',
+            'Module::CoreList'      => '2.51',
+            'ODBM_File'             => '1.11',
+            'Object::Accessor'      => '0.42',
+            'Opcode'                => '1.19',
+            'PerlIO::encoding'      => '0.15',
+            'PerlIO::scalar'        => '0.12',
+            'Pod::Perldoc'          => '3.15_05',
+            'Storable'              => '2.28',
+            'Sys::Syslog'           => '0.29',
+            'Time::HiRes'           => '1.9722',
+            'Unicode::Collate'      => '0.76',
+            'Unicode::Collate::CJK::Pinyin'=> '0.76',
+            'Unicode::Collate::CJK::Stroke'=> '0.76',
+            'Unicode::Collate::Locale'=> '0.76',
+            'Unicode::Normalize'    => '1.12',
+            'XS::APItest'           => '0.29',
+            'XSLoader'              => '0.15',
+            'autodie'               => '2.10',
+            'autodie::exception'    => '2.10',
+            'autodie::exception::system'=> '2.10',
+            'autodie::hints'        => '2.10',
+            'base'                  => '2.17',
+            'charnames'             => '1.22',
+            'constant'              => '1.22',
+            'feature'               => '1.21',
+            'mro'                   => '1.08',
+            'overload'              => '1.14',
+            'threads::shared'       => '1.38',
+            'vmsish'                => '1.03',
+        },
+        removed => {
+            'Devel::DProf'          => 1,
+            'Shell'                 => 1,
+        }
+    },
+    5.015001 => {
+        delta_from => 5.015,
+        changed => {
+            'B::Deparse'            => '1.06',
+            'CGI'                   => '3.55',
+            'CPAN::Meta'            => '2.110930001',
+            'CPAN::Meta::Converter' => '2.110930001',
+            'CPANPLUS'              => '0.9108',
+            'CPANPLUS::Internals'   => '0.9108',
+            'CPANPLUS::Shell::Default'=> '0.9108',
+            'Carp'                  => '1.21',
+            'Carp::Heavy'           => '1.21',
+            'Compress::Raw::Bzip2'  => '2.037',
+            'Compress::Raw::Zlib'   => '2.037',
+            'Compress::Zlib'        => '2.037',
+            'Cwd'                   => '3.37',
+            'Env'                   => '1.03',
+            'ExtUtils::Command::MM' => '6.58',
+            'ExtUtils::Liblist'     => '6.58',
+            'ExtUtils::Liblist::Kid'=> '6.58',
+            'ExtUtils::MM'          => '6.58',
+            'ExtUtils::MM_AIX'      => '6.58',
+            'ExtUtils::MM_Any'      => '6.58',
+            'ExtUtils::MM_BeOS'     => '6.58',
+            'ExtUtils::MM_Cygwin'   => '6.58',
+            'ExtUtils::MM_DOS'      => '6.58',
+            'ExtUtils::MM_Darwin'   => '6.58',
+            'ExtUtils::MM_MacOS'    => '6.58',
+            'ExtUtils::MM_NW5'      => '6.58',
+            'ExtUtils::MM_OS2'      => '6.58',
+            'ExtUtils::MM_QNX'      => '6.58',
+            'ExtUtils::MM_UWIN'     => '6.58',
+            'ExtUtils::MM_Unix'     => '6.58',
+            'ExtUtils::MM_VMS'      => '6.58',
+            'ExtUtils::MM_VOS'      => '6.58',
+            'ExtUtils::MM_Win32'    => '6.58',
+            'ExtUtils::MM_Win95'    => '6.58',
+            'ExtUtils::MY'          => '6.58',
+            'ExtUtils::MakeMaker'   => '6.58',
+            'ExtUtils::MakeMaker::Config'=> '6.58',
+            'ExtUtils::Mkbootstrap' => '6.58',
+            'ExtUtils::Mksymlists'  => '6.58',
+            'ExtUtils::ParseXS'     => '3.00_01',
+            'ExtUtils::ParseXS::Constants'=> undef,
+            'ExtUtils::ParseXS::CountLines'=> undef,
+            'ExtUtils::ParseXS::Utilities'=> undef,
+            'ExtUtils::Typemaps'    => '1.00',
+            'ExtUtils::Typemaps::InputMap'=> undef,
+            'ExtUtils::Typemaps::OutputMap'=> undef,
+            'ExtUtils::Typemaps::Type'=> '0.05',
+            'ExtUtils::testlib'     => '6.58',
+            'File::Basename'        => '2.83',
+            'File::Find'            => '1.20',
+            'HTTP::Tiny'            => '0.013',
+            'I18N::Langinfo'        => '0.08_02',
+            'IO::Compress::Adapter::Bzip2'=> '2.037',
+            'IO::Compress::Adapter::Deflate'=> '2.037',
+            'IO::Compress::Adapter::Identity'=> '2.037',
+            'IO::Compress::Base'    => '2.037',
+            'IO::Compress::Base::Common'=> '2.037',
+            'IO::Compress::Bzip2'   => '2.037',
+            'IO::Compress::Deflate' => '2.037',
+            'IO::Compress::Gzip'    => '2.037',
+            'IO::Compress::Gzip::Constants'=> '2.037',
+            'IO::Compress::RawDeflate'=> '2.037',
+            'IO::Compress::Zip'     => '2.037',
+            'IO::Compress::Zip::Constants'=> '2.037',
+            'IO::Compress::Zlib::Constants'=> '2.037',
+            'IO::Compress::Zlib::Extra'=> '2.037',
+            'IO::Uncompress::Adapter::Bunzip2'=> '2.037',
+            'IO::Uncompress::Adapter::Identity'=> '2.037',
+            'IO::Uncompress::Adapter::Inflate'=> '2.037',
+            'IO::Uncompress::AnyInflate'=> '2.037',
+            'IO::Uncompress::AnyUncompress'=> '2.037',
+            'IO::Uncompress::Base'  => '2.037',
+            'IO::Uncompress::Bunzip2'=> '2.037',
+            'IO::Uncompress::Gunzip'=> '2.037',
+            'IO::Uncompress::Inflate'=> '2.037',
+            'IO::Uncompress::RawInflate'=> '2.037',
+            'IO::Uncompress::Unzip' => '2.037',
+            'IPC::Cmd'              => '0.72',
+            'Locale::Codes'         => '3.17',
+            'Locale::Codes::Constants'=> '3.17',
+            'Locale::Codes::Country'=> '3.17',
+            'Locale::Codes::Country_Codes'=> '3.17',
+            'Locale::Codes::Currency'=> '3.17',
+            'Locale::Codes::Currency_Codes'=> '3.17',
+            'Locale::Codes::LangExt'=> '3.17',
+            'Locale::Codes::LangExt_Codes'=> '3.17',
+            'Locale::Codes::LangVar'=> '3.17',
+            'Locale::Codes::LangVar_Codes'=> '3.17',
+            'Locale::Codes::Language'=> '3.17',
+            'Locale::Codes::Language_Codes'=> '3.17',
+            'Locale::Codes::Script' => '3.17',
+            'Locale::Codes::Script_Codes'=> '3.17',
+            'Locale::Country'       => '3.17',
+            'Locale::Currency'      => '3.17',
+            'Locale::Language'      => '3.17',
+            'Locale::Script'        => '3.17',
+            'Math::BigFloat::Trace' => '0.28',
+            'Math::BigInt::FastCalc'=> '0.29',
+            'Math::BigInt::Trace'   => '0.28',
+            'Math::BigRat'          => '0.2602',
+            'Math::Complex'         => '1.58',
+            'Math::Trig'            => '1.22',
+            'Module::CoreList'      => '2.54',
+            'OS2::Process'          => '1.07',
+            'Pod::Perldoc'          => '3.15_06',
+            'Pod::Simple'           => '3.18',
+            'Pod::Simple::BlackBox' => '3.18',
+            'Pod::Simple::Checker'  => '3.18',
+            'Pod::Simple::Debug'    => '3.18',
+            'Pod::Simple::DumpAsText'=> '3.18',
+            'Pod::Simple::DumpAsXML'=> '3.18',
+            'Pod::Simple::HTML'     => '3.18',
+            'Pod::Simple::HTMLBatch'=> '3.18',
+            'Pod::Simple::LinkSection'=> '3.18',
+            'Pod::Simple::Methody'  => '3.18',
+            'Pod::Simple::Progress' => '3.18',
+            'Pod::Simple::PullParser'=> '3.18',
+            'Pod::Simple::PullParserEndToken'=> '3.18',
+            'Pod::Simple::PullParserStartToken'=> '3.18',
+            'Pod::Simple::PullParserTextToken'=> '3.18',
+            'Pod::Simple::PullParserToken'=> '3.18',
+            'Pod::Simple::RTF'      => '3.18',
+            'Pod::Simple::Search'   => '3.18',
+            'Pod::Simple::SimpleTree'=> '3.18',
+            'Pod::Simple::Text'     => '3.18',
+            'Pod::Simple::TextContent'=> '3.18',
+            'Pod::Simple::TiedOutFH'=> '3.18',
+            'Pod::Simple::Transcode'=> '3.18',
+            'Pod::Simple::TranscodeDumb'=> '3.18',
+            'Pod::Simple::TranscodeSmart'=> '3.18',
+            'Pod::Simple::XHTML'    => '3.18',
+            'Pod::Simple::XMLOutStream'=> '3.18',
+            'Storable'              => '2.31',
+            'Sys::Syslog::Win32'    => undef,
+            'Time::HiRes'           => '1.9724',
+            'Unicode::Collate'      => '0.77',
+            'Unicode::UCD'          => '0.33',
+            'Win32API::File'        => '0.1200',
+            'XS::APItest'           => '0.30',
+            'attributes'            => '0.15',
+            'bigint'                => '0.28',
+            'bignum'                => '0.28',
+            'charnames'             => '1.23',
+            'diagnostics'           => '1.23',
+            'feature'               => '1.22',
+            'overload'              => '1.15',
+            'perlfaq'               => '5.015000',
+            'threads'               => '1.84',
+            'version'               => '0.93',
+        },
+        removed => {
+            'ExtUtils::MakeMaker::YAML'=> 1,
+            'Locale::Constants'     => 1,
+            'Sys::Syslog::win32::Win32'=> 1,
+        }
+    },
+    5.015002 => {
+        delta_from => 5.015001,
+        changed => {
+            'Attribute::Handlers'   => '0.92',
+            'B'                     => '1.31',
+            'B::Concise'            => '0.85',
+            'B::Deparse'            => '1.07',
+            'B::Terse'              => '1.06',
+            'B::Xref'               => '1.03',
+            'CPAN'                  => '1.9800',
+            'CPAN::Exception::yaml_process_error'=> '5.5',
+            'CPAN::Meta'            => '2.112150',
+            'CPAN::Meta::Converter' => '2.112150',
+            'CPAN::Meta::Feature'   => '2.112150',
+            'CPAN::Meta::History'   => '2.112150',
+            'CPAN::Meta::Prereqs'   => '2.112150',
+            'CPAN::Meta::Spec'      => '2.112150',
+            'CPAN::Meta::Validator' => '2.112150',
+            'CPANPLUS'              => '0.9109',
+            'CPANPLUS::Internals'   => '0.9109',
+            'CPANPLUS::Shell::Default'=> '0.9109',
+            'DB_File'               => '1.824',
+            'Data::Dumper'          => '2.132',
+            'Encode'                => '2.44',
+            'Encode::Alias'         => '2.15',
+            'Encode::Encoder'       => '2.02',
+            'Encode::Guess'         => '2.05',
+            'ExtUtils::Command::MM' => '6.59',
+            'ExtUtils::Install'     => '1.57',
+            'ExtUtils::Installed'   => '1.999002',
+            'ExtUtils::Liblist'     => '6.59',
+            'ExtUtils::Liblist::Kid'=> '6.59',
+            'ExtUtils::MM'          => '6.59',
+            'ExtUtils::MM_AIX'      => '6.59',
+            'ExtUtils::MM_Any'      => '6.59',
+            'ExtUtils::MM_BeOS'     => '6.59',
+            'ExtUtils::MM_Cygwin'   => '6.59',
+            'ExtUtils::MM_DOS'      => '6.59',
+            'ExtUtils::MM_Darwin'   => '6.59',
+            'ExtUtils::MM_MacOS'    => '6.59',
+            'ExtUtils::MM_NW5'      => '6.59',
+            'ExtUtils::MM_OS2'      => '6.59',
+            'ExtUtils::MM_QNX'      => '6.59',
+            'ExtUtils::MM_UWIN'     => '6.59',
+            'ExtUtils::MM_Unix'     => '6.59',
+            'ExtUtils::MM_VMS'      => '6.59',
+            'ExtUtils::MM_VOS'      => '6.59',
+            'ExtUtils::MM_Win32'    => '6.59',
+            'ExtUtils::MM_Win95'    => '6.59',
+            'ExtUtils::MY'          => '6.59',
+            'ExtUtils::MakeMaker'   => '6.59',
+            'ExtUtils::MakeMaker::Config'=> '6.59',
+            'ExtUtils::Manifest'    => '1.60',
+            'ExtUtils::Mkbootstrap' => '6.59',
+            'ExtUtils::Mksymlists'  => '6.59',
+            'ExtUtils::ParseXS'     => '3.03_01',
+            'ExtUtils::Typemaps'    => '1.01',
+            'ExtUtils::testlib'     => '6.59',
+            'File::Spec'            => '3.34',
+            'File::Spec::Mac'       => '3.35',
+            'File::Spec::Unix'      => '3.34',
+            'File::Spec::VMS'       => '3.35',
+            'File::Spec::Win32'     => '3.35',
+            'I18N::LangTags'        => '0.37',
+            'IO'                    => '1.25_05',
+            'IO::Handle'            => '1.32',
+            'IO::Socket'            => '1.33',
+            'IO::Socket::INET'      => '1.32',
+            'IPC::Open3'            => '1.12',
+            'Math::BigFloat'        => '1.995',
+            'Math::BigFloat::Trace' => '0.29',
+            'Math::BigInt'          => '1.996',
+            'Math::BigInt::Trace'   => '0.29',
+            'Module::Build'         => '0.39_01',
+            'Module::Build::Base'   => '0.39_01',
+            'Module::Build::Compat' => '0.39_01',
+            'Module::Build::Config' => '0.39_01',
+            'Module::Build::Cookbook'=> '0.39_01',
+            'Module::Build::Dumper' => '0.39_01',
+            'Module::Build::ModuleInfo'=> '0.39_01',
+            'Module::Build::Notes'  => '0.39_01',
+            'Module::Build::PPMMaker'=> '0.39_01',
+            'Module::Build::Platform::Amiga'=> '0.39_01',
+            'Module::Build::Platform::Default'=> '0.39_01',
+            'Module::Build::Platform::EBCDIC'=> '0.39_01',
+            'Module::Build::Platform::MPEiX'=> '0.39_01',
+            'Module::Build::Platform::MacOS'=> '0.39_01',
+            'Module::Build::Platform::RiscOS'=> '0.39_01',
+            'Module::Build::Platform::Unix'=> '0.39_01',
+            'Module::Build::Platform::VMS'=> '0.39_01',
+            'Module::Build::Platform::VOS'=> '0.39_01',
+            'Module::Build::Platform::Windows'=> '0.39_01',
+            'Module::Build::Platform::aix'=> '0.39_01',
+            'Module::Build::Platform::cygwin'=> '0.39_01',
+            'Module::Build::Platform::darwin'=> '0.39_01',
+            'Module::Build::Platform::os2'=> '0.39_01',
+            'Module::Build::PodParser'=> '0.39_01',
+            'Module::CoreList'      => '2.55',
+            'Module::Load'          => '0.20',
+            'Module::Metadata'      => '1.000005_01',
+            'Opcode'                => '1.20',
+            'Params::Check'         => '0.32',
+            'PerlIO::via'           => '0.12',
+            'Term::ANSIColor'       => '3.01',
+            'Unicode::Collate'      => '0.78',
+            'Unicode::Normalize'    => '1.13',
+            'Unicode::UCD'          => '0.34',
+            'bigint'                => '0.29',
+            'bignum'                => '0.29',
+            'bigrat'                => '0.29',
+            'diagnostics'           => '1.24',
+            'fields'                => '2.16',
+            'inc::latest'           => '0.39_01',
+        },
+        removed => {
+        }
+    },
+    5.015003 => {
+        delta_from => 5.015002,
+        changed => {
+            'AnyDBM_File'           => '1.01',
+            'Archive::Extract'      => '0.56',
+            'Archive::Tar'          => '1.78',
+            'Archive::Tar::Constant'=> '1.78',
+            'Archive::Tar::File'    => '1.78',
+            'Attribute::Handlers'   => '0.93',
+            'B'                     => '1.32',
+            'B::Concise'            => '0.86',
+            'B::Deparse'            => '1.08',
+            'CPAN::Meta'            => '2.112621',
+            'CPAN::Meta::Converter' => '2.112621',
+            'CPAN::Meta::Feature'   => '2.112621',
+            'CPAN::Meta::History'   => '2.112621',
+            'CPAN::Meta::Prereqs'   => '2.112621',
+            'CPAN::Meta::Spec'      => '2.112621',
+            'CPAN::Meta::Validator' => '2.112621',
+            'CPAN::Meta::YAML'      => '0.004',
+            'CPANPLUS'              => '0.9111',
+            'CPANPLUS::Dist::Build' => '0.58',
+            'CPANPLUS::Dist::Build::Constants'=> '0.58',
+            'CPANPLUS::Internals'   => '0.9111',
+            'CPANPLUS::Shell::Default'=> '0.9111',
+            'Carp'                  => '1.23',
+            'Carp::Heavy'           => '1.23',
+            'Data::Dumper'          => '2.134',
+            'Devel::PPPort'         => '3.20',
+            'Errno'                 => '1.14',
+            'Exporter'              => '5.65',
+            'Exporter::Heavy'       => '5.65',
+            'ExtUtils::ParseXS'     => '3.04_04',
+            'ExtUtils::ParseXS::Constants'=> '3.04_04',
+            'ExtUtils::ParseXS::CountLines'=> '3.04_04',
+            'ExtUtils::ParseXS::Utilities'=> '3.04_04',
+            'ExtUtils::Typemaps'    => '1.02',
+            'File::Glob'            => '1.13',
+            'Filter::Simple'        => '0.88',
+            'IO'                    => '1.25_06',
+            'IO::Handle'            => '1.33',
+            'Locale::Codes'         => '3.18',
+            'Locale::Codes::Constants'=> '3.18',
+            'Locale::Codes::Country'=> '3.18',
+            'Locale::Codes::Country_Codes'=> '3.18',
+            'Locale::Codes::Currency'=> '3.18',
+            'Locale::Codes::Currency_Codes'=> '3.18',
+            'Locale::Codes::LangExt'=> '3.18',
+            'Locale::Codes::LangExt_Codes'=> '3.18',
+            'Locale::Codes::LangVar'=> '3.18',
+            'Locale::Codes::LangVar_Codes'=> '3.18',
+            'Locale::Codes::Language'=> '3.18',
+            'Locale::Codes::Language_Codes'=> '3.18',
+            'Locale::Codes::Script' => '3.18',
+            'Locale::Codes::Script_Codes'=> '3.18',
+            'Locale::Country'       => '3.18',
+            'Locale::Currency'      => '3.18',
+            'Locale::Language'      => '3.18',
+            'Locale::Script'        => '3.18',
+            'Math::BigFloat'        => '1.997',
+            'Math::BigInt'          => '1.997',
+            'Math::BigInt::Calc'    => '1.997',
+            'Math::BigInt::CalcEmu' => '1.997',
+            'Math::BigInt::FastCalc'=> '0.30',
+            'Math::BigRat'          => '0.2603',
+            'Module::CoreList'      => '2.56',
+            'Module::Load::Conditional'=> '0.46',
+            'Module::Metadata'      => '1.000007',
+            'ODBM_File'             => '1.12',
+            'POSIX'                 => '1.26',
+            'Pod::Perldoc'          => '3.15_07',
+            'Pod::Simple'           => '3.19',
+            'Pod::Simple::BlackBox' => '3.19',
+            'Pod::Simple::Checker'  => '3.19',
+            'Pod::Simple::Debug'    => '3.19',
+            'Pod::Simple::DumpAsText'=> '3.19',
+            'Pod::Simple::DumpAsXML'=> '3.19',
+            'Pod::Simple::HTML'     => '3.19',
+            'Pod::Simple::HTMLBatch'=> '3.19',
+            'Pod::Simple::LinkSection'=> '3.19',
+            'Pod::Simple::Methody'  => '3.19',
+            'Pod::Simple::Progress' => '3.19',
+            'Pod::Simple::PullParser'=> '3.19',
+            'Pod::Simple::PullParserEndToken'=> '3.19',
+            'Pod::Simple::PullParserStartToken'=> '3.19',
+            'Pod::Simple::PullParserTextToken'=> '3.19',
+            'Pod::Simple::PullParserToken'=> '3.19',
+            'Pod::Simple::RTF'      => '3.19',
+            'Pod::Simple::Search'   => '3.19',
+            'Pod::Simple::SimpleTree'=> '3.19',
+            'Pod::Simple::Text'     => '3.19',
+            'Pod::Simple::TextContent'=> '3.19',
+            'Pod::Simple::TiedOutFH'=> '3.19',
+            'Pod::Simple::Transcode'=> '3.19',
+            'Pod::Simple::TranscodeDumb'=> '3.19',
+            'Pod::Simple::TranscodeSmart'=> '3.19',
+            'Pod::Simple::XHTML'    => '3.19',
+            'Pod::Simple::XMLOutStream'=> '3.19',
+            'Search::Dict'          => '1.04',
+            'Socket'                => '1.94_01',
+            'Storable'              => '2.32',
+            'Text::Abbrev'          => '1.02',
+            'Tie::Array'            => '1.05',
+            'UNIVERSAL'             => '1.09',
+            'Unicode::UCD'          => '0.35',
+            'XS::APItest'           => '0.31',
+            'XSLoader'              => '0.16',
+            'attributes'            => '0.16',
+            'diagnostics'           => '1.25',
+            'open'                  => '1.09',
+            'perlfaq'               => '5.0150034',
+            'threads'               => '1.85',
+            'threads::shared'       => '1.40',
+        },
+        removed => {
+        }
+    },
+    5.015004 => {
+        delta_from => 5.015003,
+        changed => {
+            'Archive::Tar'          => '1.80',
+            'Archive::Tar::Constant'=> '1.80',
+            'Archive::Tar::File'    => '1.80',
+            'Digest'                => '1.17',
+            'DynaLoader'            => '1.14',
+            'ExtUtils::Command::MM' => '6.61_01',
+            'ExtUtils::Liblist'     => '6.61_01',
+            'ExtUtils::Liblist::Kid'=> '6.61_01',
+            'ExtUtils::MM'          => '6.61_01',
+            'ExtUtils::MM_AIX'      => '6.61_01',
+            'ExtUtils::MM_Any'      => '6.61_01',
+            'ExtUtils::MM_BeOS'     => '6.61_01',
+            'ExtUtils::MM_Cygwin'   => '6.61_01',
+            'ExtUtils::MM_DOS'      => '6.61_01',
+            'ExtUtils::MM_Darwin'   => '6.61_01',
+            'ExtUtils::MM_MacOS'    => '6.61_01',
+            'ExtUtils::MM_NW5'      => '6.61_01',
+            'ExtUtils::MM_OS2'      => '6.61_01',
+            'ExtUtils::MM_QNX'      => '6.61_01',
+            'ExtUtils::MM_UWIN'     => '6.61_01',
+            'ExtUtils::MM_Unix'     => '6.61_01',
+            'ExtUtils::MM_VMS'      => '6.61_01',
+            'ExtUtils::MM_VOS'      => '6.61_01',
+            'ExtUtils::MM_Win32'    => '6.61_01',
+            'ExtUtils::MM_Win95'    => '6.61_01',
+            'ExtUtils::MY'          => '6.61_01',
+            'ExtUtils::MakeMaker'   => '6.61_01',
+            'ExtUtils::MakeMaker::Config'=> '6.61_01',
+            'ExtUtils::Mkbootstrap' => '6.61_01',
+            'ExtUtils::Mksymlists'  => '6.61_01',
+            'ExtUtils::ParseXS'     => '3.05',
+            'ExtUtils::ParseXS::Constants'=> '3.05',
+            'ExtUtils::ParseXS::CountLines'=> '3.05',
+            'ExtUtils::ParseXS::Utilities'=> '3.05',
+            'ExtUtils::testlib'     => '6.61_01',
+            'File::DosGlob'         => '1.05',
+            'Module::CoreList'      => '2.57',
+            'Module::Load'          => '0.22',
+            'Unicode::Collate'      => '0.80',
+            'Unicode::Collate::Locale'=> '0.80',
+            'Unicode::UCD'          => '0.36',
+            'XS::APItest'           => '0.32',
+            'XS::Typemap'           => '0.07',
+            'attributes'            => '0.17',
+            'base'                  => '2.18',
+            'constant'              => '1.23',
+            'mro'                   => '1.09',
+            'open'                  => '1.10',
+            'perlfaq'               => '5.0150035',
+        },
+        removed => {
+        }
+    },
+    5.015005 => {
+        delta_from => 5.015004,
+        changed => {
+            'Archive::Extract'      => '0.58',
+            'B::Concise'            => '0.87',
+            'B::Deparse'            => '1.09',
+            'CGI'                   => '3.58',
+            'CGI::Fast'             => '1.09',
+            'CPANPLUS'              => '0.9112',
+            'CPANPLUS::Dist::Build' => '0.60',
+            'CPANPLUS::Dist::Build::Constants'=> '0.60',
+            'CPANPLUS::Internals'   => '0.9112',
+            'CPANPLUS::Shell::Default'=> '0.9112',
+            'Compress::Raw::Bzip2'  => '2.042',
+            'Compress::Raw::Zlib'   => '2.042',
+            'Compress::Zlib'        => '2.042',
+            'Digest::SHA'           => '5.63',
+            'Errno'                 => '1.15',
+            'ExtUtils::Command::MM' => '6.63_02',
+            'ExtUtils::Liblist'     => '6.63_02',
+            'ExtUtils::Liblist::Kid'=> '6.63_02',
+            'ExtUtils::MM'          => '6.63_02',
+            'ExtUtils::MM_AIX'      => '6.63_02',
+            'ExtUtils::MM_Any'      => '6.63_02',
+            'ExtUtils::MM_BeOS'     => '6.63_02',
+            'ExtUtils::MM_Cygwin'   => '6.63_02',
+            'ExtUtils::MM_DOS'      => '6.63_02',
+            'ExtUtils::MM_Darwin'   => '6.63_02',
+            'ExtUtils::MM_MacOS'    => '6.63_02',
+            'ExtUtils::MM_NW5'      => '6.63_02',
+            'ExtUtils::MM_OS2'      => '6.63_02',
+            'ExtUtils::MM_QNX'      => '6.63_02',
+            'ExtUtils::MM_UWIN'     => '6.63_02',
+            'ExtUtils::MM_Unix'     => '6.63_02',
+            'ExtUtils::MM_VMS'      => '6.63_02',
+            'ExtUtils::MM_VOS'      => '6.63_02',
+            'ExtUtils::MM_Win32'    => '6.63_02',
+            'ExtUtils::MM_Win95'    => '6.63_02',
+            'ExtUtils::MY'          => '6.63_02',
+            'ExtUtils::MakeMaker'   => '6.63_02',
+            'ExtUtils::MakeMaker::Config'=> '6.63_02',
+            'ExtUtils::Mkbootstrap' => '6.63_02',
+            'ExtUtils::Mksymlists'  => '6.63_02',
+            'ExtUtils::testlib'     => '6.63_02',
+            'File::DosGlob'         => '1.06',
+            'File::Glob'            => '1.14',
+            'HTTP::Tiny'            => '0.016',
+            'IO::Compress::Adapter::Bzip2'=> '2.042',
+            'IO::Compress::Adapter::Deflate'=> '2.042',
+            'IO::Compress::Adapter::Identity'=> '2.042',
+            'IO::Compress::Base'    => '2.042',
+            'IO::Compress::Base::Common'=> '2.042',
+            'IO::Compress::Bzip2'   => '2.042',
+            'IO::Compress::Deflate' => '2.042',
+            'IO::Compress::Gzip'    => '2.042',
+            'IO::Compress::Gzip::Constants'=> '2.042',
+            'IO::Compress::RawDeflate'=> '2.042',
+            'IO::Compress::Zip'     => '2.042',
+            'IO::Compress::Zip::Constants'=> '2.042',
+            'IO::Compress::Zlib::Constants'=> '2.042',
+            'IO::Compress::Zlib::Extra'=> '2.042',
+            'IO::Uncompress::Adapter::Bunzip2'=> '2.042',
+            'IO::Uncompress::Adapter::Identity'=> '2.042',
+            'IO::Uncompress::Adapter::Inflate'=> '2.042',
+            'IO::Uncompress::AnyInflate'=> '2.042',
+            'IO::Uncompress::AnyUncompress'=> '2.042',
+            'IO::Uncompress::Base'  => '2.042',
+            'IO::Uncompress::Bunzip2'=> '2.042',
+            'IO::Uncompress::Gunzip'=> '2.042',
+            'IO::Uncompress::Inflate'=> '2.042',
+            'IO::Uncompress::RawInflate'=> '2.042',
+            'IO::Uncompress::Unzip' => '2.042',
+            'Locale::Maketext'      => '1.20',
+            'Locale::Maketext::Guts'=> '1.20',
+            'Locale::Maketext::GutsLoader'=> '1.20',
+            'Module::CoreList'      => '2.58',
+            'Opcode'                => '1.21',
+            'Socket'                => '1.94_02',
+            'Storable'              => '2.33',
+            'UNIVERSAL'             => '1.10',
+            'Unicode::Collate'      => '0.85',
+            'Unicode::Collate::CJK::Pinyin'=> '0.85',
+            'Unicode::Collate::CJK::Stroke'=> '0.85',
+            'Unicode::Collate::Locale'=> '0.85',
+            'Unicode::UCD'          => '0.37',
+            'XS::APItest'           => '0.33',
+            'arybase'               => '0.01',
+            'charnames'             => '1.24',
+            'feature'               => '1.23',
+            'perlfaq'               => '5.0150036',
+            'strict'                => '1.05',
+            'unicore::Name'         => undef,
+        },
+        removed => {
+        }
+    },
+    5.015006 => {
+        delta_from => 5.015005,
+        changed => {
+            'Archive::Tar'          => '1.82',
+            'Archive::Tar::Constant'=> '1.82',
+            'Archive::Tar::File'    => '1.82',
+            'AutoLoader'            => '5.72',
+            'B::Concise'            => '0.88',
+            'B::Debug'              => '1.17',
+            'B::Deparse'            => '1.10',
+            'CPAN::Meta::YAML'      => '0.005',
+            'CPANPLUS'              => '0.9113',
+            'CPANPLUS::Internals'   => '0.9113',
+            'CPANPLUS::Shell::Default'=> '0.9113',
+            'Carp'                  => '1.24',
+            'Compress::Raw::Bzip2'  => '2.045',
+            'Compress::Raw::Zlib'   => '2.045',
+            'Compress::Zlib'        => '2.045',
+            'Cwd'                   => '3.38',
+            'DB'                    => '1.04',
+            'Data::Dumper'          => '2.135_01',
+            'Digest::SHA'           => '5.70',
+            'Dumpvalue'             => '1.17',
+            'Exporter'              => '5.66',
+            'Exporter::Heavy'       => '5.66',
+            'ExtUtils::CBuilder'    => '0.280205',
+            'ExtUtils::CBuilder::Platform::os2'=> '0.280204',
+            'ExtUtils::Packlist'    => '1.45',
+            'ExtUtils::ParseXS'     => '3.08',
+            'ExtUtils::ParseXS::Constants'=> '3.08',
+            'ExtUtils::ParseXS::CountLines'=> '3.08',
+            'ExtUtils::ParseXS::Utilities'=> '3.08',
+            'File::Basename'        => '2.84',
+            'File::Glob'            => '1.15',
+            'File::Spec::Unix'      => '3.35',
+            'Getopt::Std'           => '1.07',
+            'I18N::LangTags'        => '0.38',
+            'IO::Compress::Adapter::Bzip2'=> '2.045',
+            'IO::Compress::Adapter::Deflate'=> '2.045',
+            'IO::Compress::Adapter::Identity'=> '2.045',
+            'IO::Compress::Base'    => '2.046',
+            'IO::Compress::Base::Common'=> '2.045',
+            'IO::Compress::Bzip2'   => '2.045',
+            'IO::Compress::Deflate' => '2.045',
+            'IO::Compress::Gzip'    => '2.045',
+            'IO::Compress::Gzip::Constants'=> '2.045',
+            'IO::Compress::RawDeflate'=> '2.045',
+            'IO::Compress::Zip'     => '2.046',
+            'IO::Compress::Zip::Constants'=> '2.045',
+            'IO::Compress::Zlib::Constants'=> '2.045',
+            'IO::Compress::Zlib::Extra'=> '2.045',
+            'IO::Dir'               => '1.09',
+            'IO::File'              => '1.16',
+            'IO::Uncompress::Adapter::Bunzip2'=> '2.045',
+            'IO::Uncompress::Adapter::Identity'=> '2.045',
+            'IO::Uncompress::Adapter::Inflate'=> '2.045',
+            'IO::Uncompress::AnyInflate'=> '2.045',
+            'IO::Uncompress::AnyUncompress'=> '2.045',
+            'IO::Uncompress::Base'  => '2.046',
+            'IO::Uncompress::Bunzip2'=> '2.045',
+            'IO::Uncompress::Gunzip'=> '2.045',
+            'IO::Uncompress::Inflate'=> '2.045',
+            'IO::Uncompress::RawInflate'=> '2.045',
+            'IO::Uncompress::Unzip' => '2.046',
+            'Locale::Codes'         => '3.20',
+            'Locale::Codes::Constants'=> '3.20',
+            'Locale::Codes::Country'=> '3.20',
+            'Locale::Codes::Country_Codes'=> '3.20',
+            'Locale::Codes::Country_Retired'=> '3.20',
+            'Locale::Codes::Currency'=> '3.20',
+            'Locale::Codes::Currency_Codes'=> '3.20',
+            'Locale::Codes::Currency_Retired'=> '3.20',
+            'Locale::Codes::LangExt'=> '3.20',
+            'Locale::Codes::LangExt_Codes'=> '3.20',
+            'Locale::Codes::LangExt_Retired'=> '3.20',
+            'Locale::Codes::LangFam'=> '3.20',
+            'Locale::Codes::LangFam_Codes'=> '3.20',
+            'Locale::Codes::LangFam_Retired'=> '3.20',
+            'Locale::Codes::LangVar'=> '3.20',
+            'Locale::Codes::LangVar_Codes'=> '3.20',
+            'Locale::Codes::LangVar_Retired'=> '3.20',
+            'Locale::Codes::Language'=> '3.20',
+            'Locale::Codes::Language_Codes'=> '3.20',
+            'Locale::Codes::Language_Retired'=> '3.20',
+            'Locale::Codes::Script' => '3.20',
+            'Locale::Codes::Script_Codes'=> '3.20',
+            'Locale::Codes::Script_Retired'=> '3.20',
+            'Locale::Country'       => '3.20',
+            'Locale::Currency'      => '3.20',
+            'Locale::Language'      => '3.20',
+            'Locale::Maketext'      => '1.21',
+            'Locale::Script'        => '3.20',
+            'Module::CoreList'      => '2.59',
+            'Module::Loaded'        => '0.08',
+            'Opcode'                => '1.22',
+            'POSIX'                 => '1.27',
+            'Pod::Html'             => '1.12',
+            'Pod::LaTeX'            => '0.60',
+            'Pod::Perldoc'          => '3.15_08',
+            'Safe'                  => '2.30',
+            'SelfLoader'            => '1.20',
+            'Socket'                => '1.97',
+            'Storable'              => '2.34',
+            'UNIVERSAL'             => '1.11',
+            'Unicode::Collate'      => '0.87',
+            'Unicode::Collate::Locale'=> '0.87',
+            'XS::APItest'           => '0.34',
+            'arybase'               => '0.02',
+            'charnames'             => '1.27',
+            'diagnostics'           => '1.26',
+            'feature'               => '1.24',
+            'if'                    => '0.0602',
+            'overload'              => '1.16',
+            'sigtrap'               => '1.06',
+            'strict'                => '1.06',
+            'threads'               => '1.86',
+            'version'               => '0.96',
+        },
+        removed => {
+        }
+    },
+    5.015007 => {
+        delta_from => 5.015006,
+        changed => {
+            'B'                     => '1.33',
+            'B::Deparse'            => '1.11',
+            'CGI'                   => '3.59',
+            'CPAN::Meta'            => '2.113640',
+            'CPAN::Meta::Converter' => '2.113640',
+            'CPAN::Meta::Feature'   => '2.113640',
+            'CPAN::Meta::History'   => '2.113640',
+            'CPAN::Meta::Prereqs'   => '2.113640',
+            'CPAN::Meta::Requirements'=> '2.113640',
+            'CPAN::Meta::Spec'      => '2.113640',
+            'CPAN::Meta::Validator' => '2.113640',
+            'CPANPLUS'              => '0.9116',
+            'CPANPLUS::Internals'   => '0.9116',
+            'CPANPLUS::Shell::Default'=> '0.9116',
+            'Cwd'                   => '3.39_01',
+            'Data::Dumper'          => '2.135_03',
+            'Devel::InnerPackage'   => '0.4',
+            'ExtUtils::CBuilder::Base'=> '0.280205',
+            'ExtUtils::CBuilder::Platform::Unix'=> '0.280205',
+            'ExtUtils::CBuilder::Platform::VMS'=> '0.280205',
+            'ExtUtils::CBuilder::Platform::Windows'=> '0.280205',
+            'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.280205',
+            'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.280205',
+            'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.280205',
+            'ExtUtils::CBuilder::Platform::aix'=> '0.280205',
+            'ExtUtils::CBuilder::Platform::cygwin'=> '0.280205',
+            'ExtUtils::CBuilder::Platform::darwin'=> '0.280205',
+            'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280205',
+            'ExtUtils::CBuilder::Platform::os2'=> '0.280205',
+            'ExtUtils::Manifest'    => '1.61',
+            'ExtUtils::Packlist'    => '1.46',
+            'ExtUtils::ParseXS'     => '3.12',
+            'ExtUtils::ParseXS::Constants'=> '3.12',
+            'ExtUtils::ParseXS::CountLines'=> '3.12',
+            'ExtUtils::ParseXS::Utilities'=> '3.12',
+            'ExtUtils::Typemaps'    => '1.03',
+            'ExtUtils::Typemaps::Cmd'=> undef,
+            'ExtUtils::Typemaps::Type'=> '0.06',
+            'File::Glob'            => '1.16',
+            'File::Spec'            => '3.39_01',
+            'File::Spec::Cygwin'    => '3.39_01',
+            'File::Spec::Epoc'      => '3.39_01',
+            'File::Spec::Functions' => '3.39_01',
+            'File::Spec::Mac'       => '3.39_01',
+            'File::Spec::OS2'       => '3.39_01',
+            'File::Spec::Unix'      => '3.39_01',
+            'File::Spec::VMS'       => '3.39_01',
+            'File::Spec::Win32'     => '3.39_01',
+            'IO::Dir'               => '1.10',
+            'IO::Pipe'              => '1.15',
+            'IO::Poll'              => '0.09',
+            'IO::Select'            => '1.21',
+            'IO::Socket'            => '1.34',
+            'IO::Socket::INET'      => '1.33',
+            'IO::Socket::UNIX'      => '1.24',
+            'Locale::Maketext'      => '1.22',
+            'Math::BigInt'          => '1.998',
+            'Module::CoreList'      => '2.60',
+            'Module::Pluggable'     => '4.0',
+            'POSIX'                 => '1.28',
+            'PerlIO::scalar'        => '0.13',
+            'Pod::Html'             => '1.13',
+            'Pod::Perldoc'          => '3.15_15',
+            'Pod::Perldoc::BaseTo'  => '3.15_15',
+            'Pod::Perldoc::GetOptsOO'=> '3.15_15',
+            'Pod::Perldoc::ToANSI'  => '3.15_15',
+            'Pod::Perldoc::ToChecker'=> '3.15_15',
+            'Pod::Perldoc::ToMan'   => '3.15_15',
+            'Pod::Perldoc::ToNroff' => '3.15_15',
+            'Pod::Perldoc::ToPod'   => '3.15_15',
+            'Pod::Perldoc::ToRtf'   => '3.15_15',
+            'Pod::Perldoc::ToTerm'  => '3.15_15',
+            'Pod::Perldoc::ToText'  => '3.15_15',
+            'Pod::Perldoc::ToTk'    => '3.15_15',
+            'Pod::Perldoc::ToXml'   => '3.15_15',
+            'Term::UI'              => '0.30',
+            'Tie::File'             => '0.98',
+            'Unicode::UCD'          => '0.39',
+            'Version::Requirements' => '0.101021',
+            'XS::APItest'           => '0.35',
+            '_charnames'            => '1.28',
+            'arybase'               => '0.03',
+            'autouse'               => '1.07',
+            'charnames'             => '1.28',
+            'diagnostics'           => '1.27',
+            'feature'               => '1.25',
+            'overload'              => '1.17',
+            'overloading'           => '0.02',
+            'perlfaq'               => '5.0150038',
+        },
+        removed => {
+        }
+    },
+    5.015008 => {
+        delta_from => 5.015007,
+        changed => {
+            'B'                     => '1.34',
+            'B::Deparse'            => '1.12',
+            'CPAN::Meta'            => '2.120351',
+            'CPAN::Meta::Converter' => '2.120351',
+            'CPAN::Meta::Feature'   => '2.120351',
+            'CPAN::Meta::History'   => '2.120351',
+            'CPAN::Meta::Prereqs'   => '2.120351',
+            'CPAN::Meta::Requirements'=> '2.120351',
+            'CPAN::Meta::Spec'      => '2.120351',
+            'CPAN::Meta::Validator' => '2.120351',
+            'CPAN::Meta::YAML'      => '0.007',
+            'CPANPLUS'              => '0.9118',
+            'CPANPLUS::Dist::Build' => '0.62',
+            'CPANPLUS::Dist::Build::Constants'=> '0.62',
+            'CPANPLUS::Internals'   => '0.9118',
+            'CPANPLUS::Shell::Default'=> '0.9118',
+            'Carp'                  => '1.25',
+            'Carp::Heavy'           => '1.25',
+            'Compress::Raw::Bzip2'  => '2.048',
+            'Compress::Raw::Zlib'   => '2.048',
+            'Compress::Zlib'        => '2.048',
+            'Cwd'                   => '3.39_02',
+            'DB_File'               => '1.826',
+            'Data::Dumper'          => '2.135_05',
+            'English'               => '1.05',
+            'ExtUtils::Install'     => '1.58',
+            'ExtUtils::ParseXS'     => '3.16',
+            'ExtUtils::ParseXS::Constants'=> '3.16',
+            'ExtUtils::ParseXS::CountLines'=> '3.16',
+            'ExtUtils::ParseXS::Utilities'=> '3.16',
+            'ExtUtils::Typemaps'    => '3.16',
+            'ExtUtils::Typemaps::Cmd'=> '3.16',
+            'ExtUtils::Typemaps::InputMap'=> '3.16',
+            'ExtUtils::Typemaps::OutputMap'=> '3.16',
+            'ExtUtils::Typemaps::Type'=> '3.16',
+            'File::Copy'            => '2.23',
+            'File::Glob'            => '1.17',
+            'File::Spec'            => '3.39_02',
+            'File::Spec::Cygwin'    => '3.39_02',
+            'File::Spec::Epoc'      => '3.39_02',
+            'File::Spec::Functions' => '3.39_02',
+            'File::Spec::Mac'       => '3.39_02',
+            'File::Spec::OS2'       => '3.39_02',
+            'File::Spec::Unix'      => '3.39_02',
+            'File::Spec::VMS'       => '3.39_02',
+            'File::Spec::Win32'     => '3.39_02',
+            'Filter::Util::Call'    => '1.40',
+            'IO::Compress::Adapter::Bzip2'=> '2.048',
+            'IO::Compress::Adapter::Deflate'=> '2.048',
+            'IO::Compress::Adapter::Identity'=> '2.048',
+            'IO::Compress::Base'    => '2.048',
+            'IO::Compress::Base::Common'=> '2.048',
+            'IO::Compress::Bzip2'   => '2.048',
+            'IO::Compress::Deflate' => '2.048',
+            'IO::Compress::Gzip'    => '2.048',
+            'IO::Compress::Gzip::Constants'=> '2.048',
+            'IO::Compress::RawDeflate'=> '2.048',
+            'IO::Compress::Zip'     => '2.048',
+            'IO::Compress::Zip::Constants'=> '2.048',
+            'IO::Compress::Zlib::Constants'=> '2.048',
+            'IO::Compress::Zlib::Extra'=> '2.048',
+            'IO::Uncompress::Adapter::Bunzip2'=> '2.048',
+            'IO::Uncompress::Adapter::Identity'=> '2.048',
+            'IO::Uncompress::Adapter::Inflate'=> '2.048',
+            'IO::Uncompress::AnyInflate'=> '2.048',
+            'IO::Uncompress::AnyUncompress'=> '2.048',
+            'IO::Uncompress::Base'  => '2.048',
+            'IO::Uncompress::Bunzip2'=> '2.048',
+            'IO::Uncompress::Gunzip'=> '2.048',
+            'IO::Uncompress::Inflate'=> '2.048',
+            'IO::Uncompress::RawInflate'=> '2.048',
+            'IO::Uncompress::Unzip' => '2.048',
+            'IPC::Cmd'              => '0.76',
+            'Math::Complex'         => '1.59',
+            'Math::Trig'            => '1.23',
+            'Module::Metadata'      => '1.000009',
+            'Opcode'                => '1.23',
+            'POSIX'                 => '1.30',
+            'Parse::CPAN::Meta'     => '1.4402',
+            'PerlIO::mmap'          => '0.010',
+            'Pod::Checker'          => '1.51',
+            'Pod::Find'             => '1.51',
+            'Pod::Functions'        => '1.05',
+            'Pod::Html'             => '1.14',
+            'Pod::InputObjects'     => '1.51',
+            'Pod::ParseUtils'       => '1.51',
+            'Pod::Parser'           => '1.51',
+            'Pod::PlainText'        => '2.05',
+            'Pod::Select'           => '1.51',
+            'Pod::Usage'            => '1.51',
+            'Safe'                  => '2.31',
+            'Socket'                => '1.98',
+            'Term::Cap'             => '1.13',
+            'Term::ReadLine'        => '1.08',
+            'Time::HiRes'           => '1.9725',
+            'Unicode'               => '6.1.0',
+            'Unicode::UCD'          => '0.41',
+            'Version::Requirements' => '0.101022',
+            'XS::APItest'           => '0.36',
+            'XS::Typemap'           => '0.08',
+            '_charnames'            => '1.29',
+            'arybase'               => '0.04',
+            'charnames'             => '1.29',
+            'diagnostics'           => '1.28',
+            'feature'               => '1.26',
+            'locale'                => '1.01',
+            'overload'              => '1.18',
+            'perlfaq'               => '5.0150039',
+            're'                    => '0.19',
+            'subs'                  => '1.01',
+            'warnings'              => '1.13',
+        },
+        removed => {
+        }
+    },
+    5.015009 => {
+        delta_from => 5.015008,
+        changed => {
+            'B::Deparse'            => '1.13',
+            'B::Lint'               => '1.14',
+            'B::Lint::Debug'        => '1.14',
+            'CPAN::Meta'            => '2.120630',
+            'CPAN::Meta::Converter' => '2.120630',
+            'CPAN::Meta::Feature'   => '2.120630',
+            'CPAN::Meta::History'   => '2.120630',
+            'CPAN::Meta::Prereqs'   => '2.120630',
+            'CPAN::Meta::Requirements'=> '2.120630',
+            'CPAN::Meta::Spec'      => '2.120630',
+            'CPAN::Meta::Validator' => '2.120630',
+            'CPANPLUS'              => '0.9121',
+            'CPANPLUS::Internals'   => '0.9121',
+            'CPANPLUS::Shell::Default'=> '0.9121',
+            'Data::Dumper'          => '2.135_06',
+            'Digest::SHA'           => '5.71',
+            'ExtUtils::CBuilder'    => '0.280206',
+            'ExtUtils::CBuilder::Base'=> '0.280206',
+            'ExtUtils::CBuilder::Platform::Unix'=> '0.280206',
+            'ExtUtils::CBuilder::Platform::VMS'=> '0.280206',
+            'ExtUtils::CBuilder::Platform::Windows'=> '0.280206',
+            'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.280206',
+            'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.280206',
+            'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.280206',
+            'ExtUtils::CBuilder::Platform::aix'=> '0.280206',
+            'ExtUtils::CBuilder::Platform::cygwin'=> '0.280206',
+            'ExtUtils::CBuilder::Platform::darwin'=> '0.280206',
+            'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280206',
+            'ExtUtils::CBuilder::Platform::os2'=> '0.280206',
+            'HTTP::Tiny'            => '0.017',
+            'Locale::Codes'         => '3.21',
+            'Locale::Codes::Constants'=> '3.21',
+            'Locale::Codes::Country'=> '3.21',
+            'Locale::Codes::Country_Codes'=> '3.21',
+            'Locale::Codes::Country_Retired'=> '3.21',
+            'Locale::Codes::Currency'=> '3.21',
+            'Locale::Codes::Currency_Codes'=> '3.21',
+            'Locale::Codes::Currency_Retired'=> '3.21',
+            'Locale::Codes::LangExt'=> '3.21',
+            'Locale::Codes::LangExt_Codes'=> '3.21',
+            'Locale::Codes::LangExt_Retired'=> '3.21',
+            'Locale::Codes::LangFam'=> '3.21',
+            'Locale::Codes::LangFam_Codes'=> '3.21',
+            'Locale::Codes::LangFam_Retired'=> '3.21',
+            'Locale::Codes::LangVar'=> '3.21',
+            'Locale::Codes::LangVar_Codes'=> '3.21',
+            'Locale::Codes::LangVar_Retired'=> '3.21',
+            'Locale::Codes::Language'=> '3.21',
+            'Locale::Codes::Language_Codes'=> '3.21',
+            'Locale::Codes::Language_Retired'=> '3.21',
+            'Locale::Codes::Script' => '3.21',
+            'Locale::Codes::Script_Codes'=> '3.21',
+            'Locale::Codes::Script_Retired'=> '3.21',
+            'Locale::Country'       => '3.21',
+            'Locale::Currency'      => '3.21',
+            'Locale::Language'      => '3.21',
+            'Locale::Script'        => '3.21',
+            'Module::CoreList'      => '2.65',
+            'Pod::Html'             => '1.1501',
+            'Pod::Perldoc'          => '3.17',
+            'Pod::Perldoc::BaseTo'  => '3.17',
+            'Pod::Perldoc::GetOptsOO'=> '3.17',
+            'Pod::Perldoc::ToANSI'  => '3.17',
+            'Pod::Perldoc::ToChecker'=> '3.17',
+            'Pod::Perldoc::ToMan'   => '3.17',
+            'Pod::Perldoc::ToNroff' => '3.17',
+            'Pod::Perldoc::ToPod'   => '3.17',
+            'Pod::Perldoc::ToRtf'   => '3.17',
+            'Pod::Perldoc::ToTerm'  => '3.17',
+            'Pod::Perldoc::ToText'  => '3.17',
+            'Pod::Perldoc::ToTk'    => '3.17',
+            'Pod::Perldoc::ToXml'   => '3.17',
+            'Pod::Simple'           => '3.20',
+            'Pod::Simple::BlackBox' => '3.20',
+            'Pod::Simple::Checker'  => '3.20',
+            'Pod::Simple::Debug'    => '3.20',
+            'Pod::Simple::DumpAsText'=> '3.20',
+            'Pod::Simple::DumpAsXML'=> '3.20',
+            'Pod::Simple::HTML'     => '3.20',
+            'Pod::Simple::HTMLBatch'=> '3.20',
+            'Pod::Simple::LinkSection'=> '3.20',
+            'Pod::Simple::Methody'  => '3.20',
+            'Pod::Simple::Progress' => '3.20',
+            'Pod::Simple::PullParser'=> '3.20',
+            'Pod::Simple::PullParserEndToken'=> '3.20',
+            'Pod::Simple::PullParserStartToken'=> '3.20',
+            'Pod::Simple::PullParserTextToken'=> '3.20',
+            'Pod::Simple::PullParserToken'=> '3.20',
+            'Pod::Simple::RTF'      => '3.20',
+            'Pod::Simple::Search'   => '3.20',
+            'Pod::Simple::SimpleTree'=> '3.20',
+            'Pod::Simple::Text'     => '3.20',
+            'Pod::Simple::TextContent'=> '3.20',
+            'Pod::Simple::TiedOutFH'=> '3.20',
+            'Pod::Simple::Transcode'=> '3.20',
+            'Pod::Simple::TranscodeDumb'=> '3.20',
+            'Pod::Simple::TranscodeSmart'=> '3.20',
+            'Pod::Simple::XHTML'    => '3.20',
+            'Pod::Simple::XMLOutStream'=> '3.20',
+            'Socket'                => '2.000',
+            'Term::ReadLine'        => '1.09',
+            'Unicode::Collate'      => '0.89',
+            'Unicode::Collate::CJK::Korean'=> '0.88',
+            'Unicode::Collate::Locale'=> '0.89',
+            'Unicode::Normalize'    => '1.14',
+            'Unicode::UCD'          => '0.42',
+            'XS::APItest'           => '0.37',
+            'arybase'               => '0.05',
+            'attributes'            => '0.18',
+            'charnames'             => '1.30',
+            'feature'               => '1.27',
+        },
+        removed => {
+        }
+    },
+    5.016 => {
+        delta_from => 5.015009,
+        changed => {
+            'B::Concise'            => '0.89',
+            'B::Deparse'            => '1.14',
+            'Carp'                  => '1.26',
+            'Carp::Heavy'           => '1.26',
+            'IO::Socket'            => '1.35',
+            'Module::CoreList'      => '2.66',
+            'PerlIO::scalar'        => '0.14',
+            'Pod::Html'             => '1.1502',
+            'Safe'                  => '2.31_01',
+            'Socket'                => '2.001',
+            'Unicode::UCD'          => '0.43',
+            'XS::APItest'           => '0.38',
+            '_charnames'            => '1.31',
+            'attributes'            => '0.19',
+            'strict'                => '1.07',
+            'version'               => '0.99',
+        },
+        removed => {
+        }
+    },
+    5.016001 => {
+        delta_from => 5.016,
+        changed => {
+            'B'                     => '1.35',
+            'B::Deparse'            => '1.14_01',
+            'List::Util'            => '1.25',
+            'List::Util::PP'        => '1.25',
+            'List::Util::XS'        => '1.25',
+            'Module::CoreList'      => '2.70',
+            'PerlIO::scalar'        => '0.14_01',
+            'Scalar::Util'          => '1.25',
+            'Scalar::Util::PP'      => '1.25',
+            're'                    => '0.19_01',
+        },
+        removed => {
+        }
+    },
+    5.016002 => {
+        delta_from => 5.016001,
+        changed => {
+            'Module::CoreList'      => '2.76',
+        },
+        removed => {
+        }
+    },
+    5.016003 => {
+        delta_from => 5.016002,
+        changed => {
+            'Encode'                => '2.44_01',
+            'Module::CoreList'      => '2.76_02',
+            'XS::APItest'           => '0.39',
+        },
+        removed => {
+        }
+    },
+    5.017 => {
+        delta_from => 5.016,
+        changed => {
+            'B'                     => '1.35',
+            'B::Concise'            => '0.90',
+            'ExtUtils::ParseXS'     => '3.17',
+            'ExtUtils::ParseXS::Utilities'=> '3.17',
+            'File::DosGlob'         => '1.07',
+            'File::Find'            => '1.21',
+            'File::stat'            => '1.06',
+            'Hash::Util'            => '0.12',
+            'IO::Socket'            => '1.34',
+            'Module::CoreList'      => '2.67',
+            'Pod::Functions'        => '1.06',
+            'Storable'              => '2.35',
+            'XS::APItest'           => '0.39',
+            'diagnostics'           => '1.29',
+            'feature'               => '1.28',
+            'overload'              => '1.19',
+            'utf8'                  => '1.10',
+        },
+        removed => {
+            'Version::Requirements' => 1,
+        }
+    },
+    5.017001 => {
+        delta_from => 5.017,
+        changed => {
+            'App::Prove'            => '3.25',
+            'App::Prove::State'     => '3.25',
+            'App::Prove::State::Result'=> '3.25',
+            'App::Prove::State::Result::Test'=> '3.25',
+            'Archive::Extract'      => '0.60',
+            'Archive::Tar'          => '1.88',
+            'Archive::Tar::Constant'=> '1.88',
+            'Archive::Tar::File'    => '1.88',
+            'B'                     => '1.36',
+            'B::Deparse'            => '1.15',
+            'CPAN::Meta'            => '2.120921',
+            'CPAN::Meta::Converter' => '2.120921',
+            'CPAN::Meta::Feature'   => '2.120921',
+            'CPAN::Meta::History'   => '2.120921',
+            'CPAN::Meta::Prereqs'   => '2.120921',
+            'CPAN::Meta::Requirements'=> '2.122',
+            'CPAN::Meta::Spec'      => '2.120921',
+            'CPAN::Meta::Validator' => '2.120921',
+            'CPAN::Meta::YAML'      => '0.008',
+            'CPANPLUS'              => '0.9130',
+            'CPANPLUS::Config::HomeEnv'=> '0.04',
+            'CPANPLUS::Internals'   => '0.9130',
+            'CPANPLUS::Shell::Default'=> '0.9130',
+            'Class::Struct'         => '0.64',
+            'Compress::Raw::Bzip2'  => '2.052',
+            'Compress::Raw::Zlib'   => '2.054',
+            'Compress::Zlib'        => '2.052',
+            'Digest::MD5'           => '2.52',
+            'DynaLoader'            => '1.15',
+            'ExtUtils::CBuilder'    => '0.280208',
+            'ExtUtils::CBuilder::Base'=> '0.280208',
+            'ExtUtils::CBuilder::Platform::Unix'=> '0.280208',
+            'ExtUtils::CBuilder::Platform::VMS'=> '0.280208',
+            'ExtUtils::CBuilder::Platform::Windows'=> '0.280208',
+            'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.280208',
+            'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.280208',
+            'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.280208',
+            'ExtUtils::CBuilder::Platform::aix'=> '0.280208',
+            'ExtUtils::CBuilder::Platform::cygwin'=> '0.280208',
+            'ExtUtils::CBuilder::Platform::darwin'=> '0.280208',
+            'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280208',
+            'ExtUtils::CBuilder::Platform::os2'=> '0.280208',
+            'Fatal'                 => '2.11',
+            'File::DosGlob'         => '1.08',
+            'File::Fetch'           => '0.34',
+            'File::Spec::Unix'      => '3.39_03',
+            'Filter::Util::Call'    => '1.45',
+            'HTTP::Tiny'            => '0.022',
+            'IO'                    => '1.25_07',
+            'IO::Compress::Adapter::Bzip2'=> '2.052',
+            'IO::Compress::Adapter::Deflate'=> '2.052',
+            'IO::Compress::Adapter::Identity'=> '2.052',
+            'IO::Compress::Base'    => '2.052',
+            'IO::Compress::Base::Common'=> '2.052',
+            'IO::Compress::Bzip2'   => '2.052',
+            'IO::Compress::Deflate' => '2.052',
+            'IO::Compress::Gzip'    => '2.052',
+            'IO::Compress::Gzip::Constants'=> '2.052',
+            'IO::Compress::RawDeflate'=> '2.052',
+            'IO::Compress::Zip'     => '2.052',
+            'IO::Compress::Zip::Constants'=> '2.052',
+            'IO::Compress::Zlib::Constants'=> '2.052',
+            'IO::Compress::Zlib::Extra'=> '2.052',
+            'IO::Uncompress::Adapter::Bunzip2'=> '2.052',
+            'IO::Uncompress::Adapter::Identity'=> '2.052',
+            'IO::Uncompress::Adapter::Inflate'=> '2.052',
+            'IO::Uncompress::AnyInflate'=> '2.052',
+            'IO::Uncompress::AnyUncompress'=> '2.052',
+            'IO::Uncompress::Base'  => '2.052',
+            'IO::Uncompress::Bunzip2'=> '2.052',
+            'IO::Uncompress::Gunzip'=> '2.052',
+            'IO::Uncompress::Inflate'=> '2.052',
+            'IO::Uncompress::RawInflate'=> '2.052',
+            'IO::Uncompress::Unzip' => '2.052',
+            'IPC::Cmd'              => '0.78',
+            'List::Util'            => '1.25',
+            'List::Util::XS'        => '1.25',
+            'Locale::Codes'         => '3.22',
+            'Locale::Codes::Constants'=> '3.22',
+            'Locale::Codes::Country'=> '3.22',
+            'Locale::Codes::Country_Codes'=> '3.22',
+            'Locale::Codes::Country_Retired'=> '3.22',
+            'Locale::Codes::Currency'=> '3.22',
+            'Locale::Codes::Currency_Codes'=> '3.22',
+            'Locale::Codes::Currency_Retired'=> '3.22',
+            'Locale::Codes::LangExt'=> '3.22',
+            'Locale::Codes::LangExt_Codes'=> '3.22',
+            'Locale::Codes::LangExt_Retired'=> '3.22',
+            'Locale::Codes::LangFam'=> '3.22',
+            'Locale::Codes::LangFam_Codes'=> '3.22',
+            'Locale::Codes::LangFam_Retired'=> '3.22',
+            'Locale::Codes::LangVar'=> '3.22',
+            'Locale::Codes::LangVar_Codes'=> '3.22',
+            'Locale::Codes::LangVar_Retired'=> '3.22',
+            'Locale::Codes::Language'=> '3.22',
+            'Locale::Codes::Language_Codes'=> '3.22',
+            'Locale::Codes::Language_Retired'=> '3.22',
+            'Locale::Codes::Script' => '3.22',
+            'Locale::Codes::Script_Codes'=> '3.22',
+            'Locale::Codes::Script_Retired'=> '3.22',
+            'Locale::Country'       => '3.22',
+            'Locale::Currency'      => '3.22',
+            'Locale::Language'      => '3.22',
+            'Locale::Script'        => '3.22',
+            'Memoize'               => '1.03',
+            'Memoize::AnyDBM_File'  => '1.03',
+            'Memoize::Expire'       => '1.03',
+            'Memoize::ExpireFile'   => '1.03',
+            'Memoize::ExpireTest'   => '1.03',
+            'Memoize::NDBM_File'    => '1.03',
+            'Memoize::SDBM_File'    => '1.03',
+            'Memoize::Storable'     => '1.03',
+            'Module::Build'         => '0.40',
+            'Module::Build::Base'   => '0.40',
+            'Module::Build::Compat' => '0.40',
+            'Module::Build::Config' => '0.40',
+            'Module::Build::Cookbook'=> '0.40',
+            'Module::Build::Dumper' => '0.40',
+            'Module::Build::ModuleInfo'=> '0.40',
+            'Module::Build::Notes'  => '0.40',
+            'Module::Build::PPMMaker'=> '0.40',
+            'Module::Build::Platform::Amiga'=> '0.40',
+            'Module::Build::Platform::Default'=> '0.40',
+            'Module::Build::Platform::EBCDIC'=> '0.40',
+            'Module::Build::Platform::MPEiX'=> '0.40',
+            'Module::Build::Platform::MacOS'=> '0.40',
+            'Module::Build::Platform::RiscOS'=> '0.40',
+            'Module::Build::Platform::Unix'=> '0.40',
+            'Module::Build::Platform::VMS'=> '0.40',
+            'Module::Build::Platform::VOS'=> '0.40',
+            'Module::Build::Platform::Windows'=> '0.40',
+            'Module::Build::Platform::aix'=> '0.40',
+            'Module::Build::Platform::cygwin'=> '0.40',
+            'Module::Build::Platform::darwin'=> '0.40',
+            'Module::Build::Platform::os2'=> '0.40',
+            'Module::Build::PodParser'=> '0.40',
+            'Module::CoreList'      => '2.68',
+            'Module::Load::Conditional'=> '0.50',
+            'Object::Accessor'      => '0.44',
+            'POSIX'                 => '1.31',
+            'Params::Check'         => '0.36',
+            'Parse::CPAN::Meta'     => '1.4404',
+            'PerlIO::mmap'          => '0.011',
+            'PerlIO::via::QuotedPrint'=> '0.07',
+            'Pod::Html'             => '1.16',
+            'Pod::Man'              => '2.26',
+            'Pod::Text'             => '3.16',
+            'Safe'                  => '2.33_01',
+            'Scalar::Util'          => '1.25',
+            'Search::Dict'          => '1.07',
+            'Storable'              => '2.36',
+            'TAP::Base'             => '3.25',
+            'TAP::Formatter::Base'  => '3.25',
+            'TAP::Formatter::Color' => '3.25',
+            'TAP::Formatter::Console'=> '3.25',
+            'TAP::Formatter::Console::ParallelSession'=> '3.25',
+            'TAP::Formatter::Console::Session'=> '3.25',
+            'TAP::Formatter::File'  => '3.25',
+            'TAP::Formatter::File::Session'=> '3.25',
+            'TAP::Formatter::Session'=> '3.25',
+            'TAP::Harness'          => '3.25',
+            'TAP::Object'           => '3.25',
+            'TAP::Parser'           => '3.25',
+            'TAP::Parser::Aggregator'=> '3.25',
+            'TAP::Parser::Grammar'  => '3.25',
+            'TAP::Parser::Iterator' => '3.25',
+            'TAP::Parser::Iterator::Array'=> '3.25',
+            'TAP::Parser::Iterator::Process'=> '3.25',
+            'TAP::Parser::Iterator::Stream'=> '3.25',
+            'TAP::Parser::IteratorFactory'=> '3.25',
+            'TAP::Parser::Multiplexer'=> '3.25',
+            'TAP::Parser::Result'   => '3.25',
+            'TAP::Parser::Result::Bailout'=> '3.25',
+            'TAP::Parser::Result::Comment'=> '3.25',
+            'TAP::Parser::Result::Plan'=> '3.25',
+            'TAP::Parser::Result::Pragma'=> '3.25',
+            'TAP::Parser::Result::Test'=> '3.25',
+            'TAP::Parser::Result::Unknown'=> '3.25',
+            'TAP::Parser::Result::Version'=> '3.25',
+            'TAP::Parser::Result::YAML'=> '3.25',
+            'TAP::Parser::ResultFactory'=> '3.25',
+            'TAP::Parser::Scheduler'=> '3.25',
+            'TAP::Parser::Scheduler::Job'=> '3.25',
+            'TAP::Parser::Scheduler::Spinner'=> '3.25',
+            'TAP::Parser::Source'   => '3.25',
+            'TAP::Parser::SourceHandler'=> '3.25',
+            'TAP::Parser::SourceHandler::Executable'=> '3.25',
+            'TAP::Parser::SourceHandler::File'=> '3.25',
+            'TAP::Parser::SourceHandler::Handle'=> '3.25',
+            'TAP::Parser::SourceHandler::Perl'=> '3.25',
+            'TAP::Parser::SourceHandler::RawTAP'=> '3.25',
+            'TAP::Parser::Utils'    => '3.25',
+            'TAP::Parser::YAMLish::Reader'=> '3.25',
+            'TAP::Parser::YAMLish::Writer'=> '3.25',
+            'Term::ANSIColor'       => '3.02',
+            'Test::Harness'         => '3.25',
+            'Unicode'               => '6.2.0',
+            'Unicode::UCD'          => '0.44',
+            'XS::APItest'           => '0.40',
+            '_charnames'            => '1.32',
+            'attributes'            => '0.2',
+            'autodie'               => '2.11',
+            'autodie::exception'    => '2.11',
+            'autodie::exception::system'=> '2.11',
+            'autodie::hints'        => '2.11',
+            'bigint'                => '0.30',
+            'charnames'             => '1.32',
+            'feature'               => '1.29',
+            'inc::latest'           => '0.40',
+            'perlfaq'               => '5.0150040',
+            're'                    => '0.20',
+        },
+        removed => {
+            'List::Util::PP'        => 1,
+            'Scalar::Util::PP'      => 1,
+        }
+    },
+    5.017002 => {
+        delta_from => 5.017001,
+        changed => {
+            'App::Prove'            => '3.25_01',
+            'App::Prove::State'     => '3.25_01',
+            'App::Prove::State::Result'=> '3.25_01',
+            'App::Prove::State::Result::Test'=> '3.25_01',
+            'B::Concise'            => '0.91',
+            'Compress::Raw::Bzip2'  => '2.05201',
+            'Compress::Raw::Zlib'   => '2.05401',
+            'Exporter'              => '5.67',
+            'Exporter::Heavy'       => '5.67',
+            'Fatal'                 => '2.12',
+            'File::Fetch'           => '0.36',
+            'File::stat'            => '1.07',
+            'IO'                    => '1.25_08',
+            'IO::Socket'            => '1.35',
+            'Module::CoreList'      => '2.69',
+            'PerlIO::scalar'        => '0.15',
+            'Socket'                => '2.002',
+            'Storable'              => '2.37',
+            'TAP::Base'             => '3.25_01',
+            'TAP::Formatter::Base'  => '3.25_01',
+            'TAP::Formatter::Color' => '3.25_01',
+            'TAP::Formatter::Console'=> '3.25_01',
+            'TAP::Formatter::Console::ParallelSession'=> '3.25_01',
+            'TAP::Formatter::Console::Session'=> '3.25_01',
+            'TAP::Formatter::File'  => '3.25_01',
+            'TAP::Formatter::File::Session'=> '3.25_01',
+            'TAP::Formatter::Session'=> '3.25_01',
+            'TAP::Harness'          => '3.25_01',
+            'TAP::Object'           => '3.25_01',
+            'TAP::Parser'           => '3.25_01',
+            'TAP::Parser::Aggregator'=> '3.25_01',
+            'TAP::Parser::Grammar'  => '3.25_01',
+            'TAP::Parser::Iterator' => '3.25_01',
+            'TAP::Parser::Iterator::Array'=> '3.25_01',
+            'TAP::Parser::Iterator::Process'=> '3.25_01',
+            'TAP::Parser::Iterator::Stream'=> '3.25_01',
+            'TAP::Parser::IteratorFactory'=> '3.25_01',
+            'TAP::Parser::Multiplexer'=> '3.25_01',
+            'TAP::Parser::Result'   => '3.25_01',
+            'TAP::Parser::Result::Bailout'=> '3.25_01',
+            'TAP::Parser::Result::Comment'=> '3.25_01',
+            'TAP::Parser::Result::Plan'=> '3.25_01',
+            'TAP::Parser::Result::Pragma'=> '3.25_01',
+            'TAP::Parser::Result::Test'=> '3.25_01',
+            'TAP::Parser::Result::Unknown'=> '3.25_01',
+            'TAP::Parser::Result::Version'=> '3.25_01',
+            'TAP::Parser::Result::YAML'=> '3.25_01',
+            'TAP::Parser::ResultFactory'=> '3.25_01',
+            'TAP::Parser::Scheduler'=> '3.25_01',
+            'TAP::Parser::Scheduler::Job'=> '3.25_01',
+            'TAP::Parser::Scheduler::Spinner'=> '3.25_01',
+            'TAP::Parser::Source'   => '3.25_01',
+            'TAP::Parser::SourceHandler'=> '3.25_01',
+            'TAP::Parser::SourceHandler::Executable'=> '3.25_01',
+            'TAP::Parser::SourceHandler::File'=> '3.25_01',
+            'TAP::Parser::SourceHandler::Handle'=> '3.25_01',
+            'TAP::Parser::SourceHandler::Perl'=> '3.25_01',
+            'TAP::Parser::SourceHandler::RawTAP'=> '3.25_01',
+            'TAP::Parser::Utils'    => '3.25_01',
+            'TAP::Parser::YAMLish::Reader'=> '3.25_01',
+            'TAP::Parser::YAMLish::Writer'=> '3.25_01',
+            'Test::Harness'         => '3.25_01',
+            'Tie::StdHandle'        => '4.3',
+            'XS::APItest'           => '0.41',
+            'autodie'               => '2.12',
+            'autodie::exception'    => '2.12',
+            'autodie::exception::system'=> '2.12',
+            'autodie::hints'        => '2.12',
+            'diagnostics'           => '1.30',
+            'overload'              => '1.20',
+            're'                    => '0.21',
+            'vars'                  => '1.03',
+        },
+        removed => {
+        }
+    },
+    5.017003 => {
+        delta_from => 5.017002,
+        changed => {
+            'B'                     => '1.37',
+            'B::Concise'            => '0.92',
+            'B::Debug'              => '1.18',
+            'B::Deparse'            => '1.16',
+            'CGI'                   => '3.60',
+            'Compress::Raw::Bzip2'  => '2.055',
+            'Compress::Raw::Zlib'   => '2.056',
+            'Compress::Zlib'        => '2.055',
+            'Data::Dumper'          => '2.135_07',
+            'Devel::Peek'           => '1.09',
+            'Encode'                => '2.47',
+            'Encode::Alias'         => '2.16',
+            'Encode::GSM0338'       => '2.02',
+            'Encode::Unicode::UTF7' => '2.06',
+            'IO::Compress::Adapter::Bzip2'=> '2.055',
+            'IO::Compress::Adapter::Deflate'=> '2.055',
+            'IO::Compress::Adapter::Identity'=> '2.055',
+            'IO::Compress::Base'    => '2.055',
+            'IO::Compress::Base::Common'=> '2.055',
+            'IO::Compress::Bzip2'   => '2.055',
+            'IO::Compress::Deflate' => '2.055',
+            'IO::Compress::Gzip'    => '2.055',
+            'IO::Compress::Gzip::Constants'=> '2.055',
+            'IO::Compress::RawDeflate'=> '2.055',
+            'IO::Compress::Zip'     => '2.055',
+            'IO::Compress::Zip::Constants'=> '2.055',
+            'IO::Compress::Zlib::Constants'=> '2.055',
+            'IO::Compress::Zlib::Extra'=> '2.055',
+            'IO::Uncompress::Adapter::Bunzip2'=> '2.055',
+            'IO::Uncompress::Adapter::Identity'=> '2.055',
+            'IO::Uncompress::Adapter::Inflate'=> '2.055',
+            'IO::Uncompress::AnyInflate'=> '2.055',
+            'IO::Uncompress::AnyUncompress'=> '2.055',
+            'IO::Uncompress::Base'  => '2.055',
+            'IO::Uncompress::Bunzip2'=> '2.055',
+            'IO::Uncompress::Gunzip'=> '2.055',
+            'IO::Uncompress::Inflate'=> '2.055',
+            'IO::Uncompress::RawInflate'=> '2.055',
+            'IO::Uncompress::Unzip' => '2.055',
+            'Module::Build'         => '0.4003',
+            'Module::Build::Base'   => '0.4003',
+            'Module::Build::Compat' => '0.4003',
+            'Module::Build::Config' => '0.4003',
+            'Module::Build::Cookbook'=> '0.4003',
+            'Module::Build::Dumper' => '0.4003',
+            'Module::Build::ModuleInfo'=> '0.4003',
+            'Module::Build::Notes'  => '0.4003',
+            'Module::Build::PPMMaker'=> '0.4003',
+            'Module::Build::Platform::Amiga'=> '0.4003',
+            'Module::Build::Platform::Default'=> '0.4003',
+            'Module::Build::Platform::EBCDIC'=> '0.4003',
+            'Module::Build::Platform::MPEiX'=> '0.4003',
+            'Module::Build::Platform::MacOS'=> '0.4003',
+            'Module::Build::Platform::RiscOS'=> '0.4003',
+            'Module::Build::Platform::Unix'=> '0.4003',
+            'Module::Build::Platform::VMS'=> '0.4003',
+            'Module::Build::Platform::VOS'=> '0.4003',
+            'Module::Build::Platform::Windows'=> '0.4003',
+            'Module::Build::Platform::aix'=> '0.4003',
+            'Module::Build::Platform::cygwin'=> '0.4003',
+            'Module::Build::Platform::darwin'=> '0.4003',
+            'Module::Build::Platform::os2'=> '0.4003',
+            'Module::Build::PodParser'=> '0.4003',
+            'Module::CoreList'      => '2.71',
+            'Module::CoreList::TieHashDelta'=> '2.71',
+            'Module::Load::Conditional'=> '0.54',
+            'Module::Metadata'      => '1.000011',
+            'Module::Pluggable'     => '4.3',
+            'Module::Pluggable::Object'=> '4.3',
+            'Pod::Simple'           => '3.23',
+            'Pod::Simple::BlackBox' => '3.23',
+            'Pod::Simple::Checker'  => '3.23',
+            'Pod::Simple::Debug'    => '3.23',
+            'Pod::Simple::DumpAsText'=> '3.23',
+            'Pod::Simple::DumpAsXML'=> '3.23',
+            'Pod::Simple::HTML'     => '3.23',
+            'Pod::Simple::HTMLBatch'=> '3.23',
+            'Pod::Simple::LinkSection'=> '3.23',
+            'Pod::Simple::Methody'  => '3.23',
+            'Pod::Simple::Progress' => '3.23',
+            'Pod::Simple::PullParser'=> '3.23',
+            'Pod::Simple::PullParserEndToken'=> '3.23',
+            'Pod::Simple::PullParserStartToken'=> '3.23',
+            'Pod::Simple::PullParserTextToken'=> '3.23',
+            'Pod::Simple::PullParserToken'=> '3.23',
+            'Pod::Simple::RTF'      => '3.23',
+            'Pod::Simple::Search'   => '3.23',
+            'Pod::Simple::SimpleTree'=> '3.23',
+            'Pod::Simple::Text'     => '3.23',
+            'Pod::Simple::TextContent'=> '3.23',
+            'Pod::Simple::TiedOutFH'=> '3.23',
+            'Pod::Simple::Transcode'=> '3.23',
+            'Pod::Simple::TranscodeDumb'=> '3.23',
+            'Pod::Simple::TranscodeSmart'=> '3.23',
+            'Pod::Simple::XHTML'    => '3.23',
+            'Pod::Simple::XMLOutStream'=> '3.23',
+            'Socket'                => '2.004',
+            'Storable'              => '2.38',
+            'Sys::Syslog'           => '0.31',
+            'Term::ReadLine'        => '1.10',
+            'Text::Tabs'            => '2012.0818',
+            'Text::Wrap'            => '2012.0818',
+            'Time::Local'           => '1.2300',
+            'Unicode::UCD'          => '0.45',
+            'Win32'                 => '0.45',
+            'Win32CORE'             => '0.03',
+            'XS::APItest'           => '0.42',
+            'inc::latest'           => '0.4003',
+            'perlfaq'               => '5.0150041',
+            're'                    => '0.22',
+        },
+        removed => {
+        }
+    },
+    5.017004 => {
+        delta_from => 5.017003,
+        changed => {
+            'Archive::Tar'          => '1.90',
+            'Archive::Tar::Constant'=> '1.90',
+            'Archive::Tar::File'    => '1.90',
+            'B'                     => '1.38',
+            'B::Concise'            => '0.93',
+            'B::Deparse'            => '1.17',
+            'B::Xref'               => '1.04',
+            'CPANPLUS'              => '0.9131',
+            'CPANPLUS::Internals'   => '0.9131',
+            'CPANPLUS::Shell::Default'=> '0.9131',
+            'DB_File'               => '1.827',
+            'Devel::Peek'           => '1.10',
+            'DynaLoader'            => '1.16',
+            'Errno'                 => '1.16',
+            'ExtUtils::ParseXS'     => '3.18',
+            'ExtUtils::ParseXS::Constants'=> '3.18',
+            'ExtUtils::ParseXS::CountLines'=> '3.18',
+            'ExtUtils::ParseXS::Utilities'=> '3.18',
+            'File::Copy'            => '2.24',
+            'File::Find'            => '1.22',
+            'IPC::Open3'            => '1.13',
+            'Locale::Codes'         => '3.23',
+            'Locale::Codes::Constants'=> '3.23',
+            'Locale::Codes::Country'=> '3.23',
+            'Locale::Codes::Country_Codes'=> '3.23',
+            'Locale::Codes::Country_Retired'=> '3.23',
+            'Locale::Codes::Currency'=> '3.23',
+            'Locale::Codes::Currency_Codes'=> '3.23',
+            'Locale::Codes::Currency_Retired'=> '3.23',
+            'Locale::Codes::LangExt'=> '3.23',
+            'Locale::Codes::LangExt_Codes'=> '3.23',
+            'Locale::Codes::LangExt_Retired'=> '3.23',
+            'Locale::Codes::LangFam'=> '3.23',
+            'Locale::Codes::LangFam_Codes'=> '3.23',
+            'Locale::Codes::LangFam_Retired'=> '3.23',
+            'Locale::Codes::LangVar'=> '3.23',
+            'Locale::Codes::LangVar_Codes'=> '3.23',
+            'Locale::Codes::LangVar_Retired'=> '3.23',
+            'Locale::Codes::Language'=> '3.23',
+            'Locale::Codes::Language_Codes'=> '3.23',
+            'Locale::Codes::Language_Retired'=> '3.23',
+            'Locale::Codes::Script' => '3.23',
+            'Locale::Codes::Script_Codes'=> '3.23',
+            'Locale::Codes::Script_Retired'=> '3.23',
+            'Locale::Country'       => '3.23',
+            'Locale::Currency'      => '3.23',
+            'Locale::Language'      => '3.23',
+            'Locale::Script'        => '3.23',
+            'Math::BigFloat::Trace' => '0.30',
+            'Math::BigInt::Trace'   => '0.30',
+            'Module::CoreList'      => '2.73',
+            'Module::CoreList::TieHashDelta'=> '2.73',
+            'Opcode'                => '1.24',
+            'Socket'                => '2.006',
+            'Storable'              => '2.39',
+            'Sys::Syslog'           => '0.32',
+            'Unicode::UCD'          => '0.46',
+            'XS::APItest'           => '0.43',
+            'bignum'                => '0.30',
+            'bigrat'                => '0.30',
+            'constant'              => '1.24',
+            'feature'               => '1.30',
+            'threads::shared'       => '1.41',
+            'version'               => '0.9901',
+            'warnings'              => '1.14',
+        },
+        removed => {
+        }
+    },
+    5.017005 => {
+        delta_from => 5.017004,
+        changed => {
+            'AutoLoader'            => '5.73',
+            'B'                     => '1.39',
+            'B::Deparse'            => '1.18',
+            'CPANPLUS'              => '0.9133',
+            'CPANPLUS::Internals'   => '0.9133',
+            'CPANPLUS::Shell::Default'=> '0.9133',
+            'Carp'                  => '1.27',
+            'Carp::Heavy'           => '1.27',
+            'Data::Dumper'          => '2.136',
+            'Digest::SHA'           => '5.72',
+            'ExtUtils::CBuilder'    => '0.280209',
+            'ExtUtils::CBuilder::Base'=> '0.280209',
+            'ExtUtils::CBuilder::Platform::Unix'=> '0.280209',
+            'ExtUtils::CBuilder::Platform::VMS'=> '0.280209',
+            'ExtUtils::CBuilder::Platform::Windows'=> '0.280209',
+            'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.280209',
+            'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.280209',
+            'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.280209',
+            'ExtUtils::CBuilder::Platform::aix'=> '0.280209',
+            'ExtUtils::CBuilder::Platform::cygwin'=> '0.280209',
+            'ExtUtils::CBuilder::Platform::darwin'=> '0.280209',
+            'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280209',
+            'ExtUtils::CBuilder::Platform::os2'=> '0.280209',
+            'File::Copy'            => '2.25',
+            'File::Glob'            => '1.18',
+            'HTTP::Tiny'            => '0.024',
+            'Module::CoreList'      => '2.75',
+            'Module::CoreList::TieHashDelta'=> '2.75',
+            'PerlIO::encoding'      => '0.16',
+            'Unicode::Collate'      => '0.90',
+            'Unicode::Collate::Locale'=> '0.90',
+            'Unicode::Normalize'    => '1.15',
+            'Win32CORE'             => '0.04',
+            'XS::APItest'           => '0.44',
+            'attributes'            => '0.21',
+            'bigint'                => '0.31',
+            'bignum'                => '0.31',
+            'bigrat'                => '0.31',
+            'feature'               => '1.31',
+            'threads::shared'       => '1.42',
+            'warnings'              => '1.15',
+        },
+        removed => {
+        }
+    },
+    5.017006 => {
+        delta_from => 5.017005,
+        changed => {
+            'B'                     => '1.40',
+            'B::Concise'            => '0.94',
+            'B::Deparse'            => '1.19',
+            'B::Xref'               => '1.05',
+            'CGI'                   => '3.63',
+            'CGI::Util'             => '3.62',
+            'CPAN'                  => '1.99_51',
+            'CPANPLUS::Dist::Build' => '0.64',
+            'CPANPLUS::Dist::Build::Constants'=> '0.64',
+            'Carp'                  => '1.28',
+            'Carp::Heavy'           => '1.28',
+            'Compress::Raw::Bzip2'  => '2.058',
+            'Compress::Raw::Zlib'   => '2.058',
+            'Compress::Zlib'        => '2.058',
+            'Data::Dumper'          => '2.137',
+            'Digest::SHA'           => '5.73',
+            'DynaLoader'            => '1.17',
+            'Env'                   => '1.04',
+            'Errno'                 => '1.17',
+            'ExtUtils::Manifest'    => '1.62',
+            'ExtUtils::Typemaps'    => '3.18',
+            'ExtUtils::Typemaps::Cmd'=> '3.18',
+            'ExtUtils::Typemaps::InputMap'=> '3.18',
+            'ExtUtils::Typemaps::OutputMap'=> '3.18',
+            'ExtUtils::Typemaps::Type'=> '3.18',
+            'Fatal'                 => '2.13',
+            'File::Find'            => '1.23',
+            'Hash::Util'            => '0.13',
+            'IO::Compress::Adapter::Bzip2'=> '2.058',
+            'IO::Compress::Adapter::Deflate'=> '2.058',
+            'IO::Compress::Adapter::Identity'=> '2.058',
+            'IO::Compress::Base'    => '2.058',
+            'IO::Compress::Base::Common'=> '2.058',
+            'IO::Compress::Bzip2'   => '2.058',
+            'IO::Compress::Deflate' => '2.058',
+            'IO::Compress::Gzip'    => '2.058',
+            'IO::Compress::Gzip::Constants'=> '2.058',
+            'IO::Compress::RawDeflate'=> '2.058',
+            'IO::Compress::Zip'     => '2.058',
+            'IO::Compress::Zip::Constants'=> '2.058',
+            'IO::Compress::Zlib::Constants'=> '2.058',
+            'IO::Compress::Zlib::Extra'=> '2.058',
+            'IO::Uncompress::Adapter::Bunzip2'=> '2.058',
+            'IO::Uncompress::Adapter::Identity'=> '2.058',
+            'IO::Uncompress::Adapter::Inflate'=> '2.058',
+            'IO::Uncompress::AnyInflate'=> '2.058',
+            'IO::Uncompress::AnyUncompress'=> '2.058',
+            'IO::Uncompress::Base'  => '2.058',
+            'IO::Uncompress::Bunzip2'=> '2.058',
+            'IO::Uncompress::Gunzip'=> '2.058',
+            'IO::Uncompress::Inflate'=> '2.058',
+            'IO::Uncompress::RawInflate'=> '2.058',
+            'IO::Uncompress::Unzip' => '2.058',
+            'Module::CoreList'      => '2.78',
+            'Module::CoreList::TieHashDelta'=> '2.77',
+            'Module::Pluggable'     => '4.5',
+            'Module::Pluggable::Object'=> '4.5',
+            'Opcode'                => '1.25',
+            'Sys::Hostname'         => '1.17',
+            'Term::UI'              => '0.32',
+            'Thread::Queue'         => '3.01',
+            'Tie::Hash::NamedCapture'=> '0.09',
+            'Unicode::Collate'      => '0.93',
+            'Unicode::Collate::CJK::Korean'=> '0.93',
+            'Unicode::Collate::Locale'=> '0.93',
+            'Unicode::Normalize'    => '1.16',
+            'Unicode::UCD'          => '0.47',
+            'XS::APItest'           => '0.46',
+            '_charnames'            => '1.33',
+            'autodie'               => '2.13',
+            'autodie::exception'    => '2.13',
+            'autodie::exception::system'=> '2.13',
+            'autodie::hints'        => '2.13',
+            'charnames'             => '1.33',
+            're'                    => '0.23',
+        },
+        removed => {
+        }
+    },
+    5.017007 => {
+        delta_from => 5.017006,
+        changed => {
+            'B'                     => '1.41',
+            'CPANPLUS::Dist::Build' => '0.68',
+            'CPANPLUS::Dist::Build::Constants'=> '0.68',
+            'Compress::Raw::Bzip2'  => '2.059',
+            'Compress::Raw::Zlib'   => '2.059',
+            'Compress::Zlib'        => '2.059',
+            'Cwd'                   => '3.39_03',
+            'Data::Dumper'          => '2.139',
+            'Devel::Peek'           => '1.11',
+            'Digest::SHA'           => '5.80',
+            'DynaLoader'            => '1.18',
+            'English'               => '1.06',
+            'Errno'                 => '1.18',
+            'ExtUtils::Command::MM' => '6.64',
+            'ExtUtils::Liblist'     => '6.64',
+            'ExtUtils::Liblist::Kid'=> '6.64',
+            'ExtUtils::MM'          => '6.64',
+            'ExtUtils::MM_AIX'      => '6.64',
+            'ExtUtils::MM_Any'      => '6.64',
+            'ExtUtils::MM_BeOS'     => '6.64',
+            'ExtUtils::MM_Cygwin'   => '6.64',
+            'ExtUtils::MM_DOS'      => '6.64',
+            'ExtUtils::MM_Darwin'   => '6.64',
+            'ExtUtils::MM_MacOS'    => '6.64',
+            'ExtUtils::MM_NW5'      => '6.64',
+            'ExtUtils::MM_OS2'      => '6.64',
+            'ExtUtils::MM_QNX'      => '6.64',
+            'ExtUtils::MM_UWIN'     => '6.64',
+            'ExtUtils::MM_Unix'     => '6.64',
+            'ExtUtils::MM_VMS'      => '6.64',
+            'ExtUtils::MM_VOS'      => '6.64',
+            'ExtUtils::MM_Win32'    => '6.64',
+            'ExtUtils::MM_Win95'    => '6.64',
+            'ExtUtils::MY'          => '6.64',
+            'ExtUtils::MakeMaker'   => '6.64',
+            'ExtUtils::MakeMaker::Config'=> '6.64',
+            'ExtUtils::Mkbootstrap' => '6.64',
+            'ExtUtils::Mksymlists'  => '6.64',
+            'ExtUtils::testlib'     => '6.64',
+            'File::DosGlob'         => '1.09',
+            'File::Glob'            => '1.19',
+            'GDBM_File'             => '1.15',
+            'IO::Compress::Adapter::Bzip2'=> '2.059',
+            'IO::Compress::Adapter::Deflate'=> '2.059',
+            'IO::Compress::Adapter::Identity'=> '2.059',
+            'IO::Compress::Base'    => '2.059',
+            'IO::Compress::Base::Common'=> '2.059',
+            'IO::Compress::Bzip2'   => '2.059',
+            'IO::Compress::Deflate' => '2.059',
+            'IO::Compress::Gzip'    => '2.059',
+            'IO::Compress::Gzip::Constants'=> '2.059',
+            'IO::Compress::RawDeflate'=> '2.059',
+            'IO::Compress::Zip'     => '2.059',
+            'IO::Compress::Zip::Constants'=> '2.059',
+            'IO::Compress::Zlib::Constants'=> '2.059',
+            'IO::Compress::Zlib::Extra'=> '2.059',
+            'IO::Uncompress::Adapter::Bunzip2'=> '2.059',
+            'IO::Uncompress::Adapter::Identity'=> '2.059',
+            'IO::Uncompress::Adapter::Inflate'=> '2.059',
+            'IO::Uncompress::AnyInflate'=> '2.059',
+            'IO::Uncompress::AnyUncompress'=> '2.059',
+            'IO::Uncompress::Base'  => '2.059',
+            'IO::Uncompress::Bunzip2'=> '2.059',
+            'IO::Uncompress::Gunzip'=> '2.059',
+            'IO::Uncompress::Inflate'=> '2.059',
+            'IO::Uncompress::RawInflate'=> '2.059',
+            'IO::Uncompress::Unzip' => '2.059',
+            'List::Util'            => '1.26',
+            'List::Util::XS'        => '1.26',
+            'Locale::Codes'         => '3.24',
+            'Locale::Codes::Constants'=> '3.24',
+            'Locale::Codes::Country'=> '3.24',
+            'Locale::Codes::Country_Codes'=> '3.24',
+            'Locale::Codes::Country_Retired'=> '3.24',
+            'Locale::Codes::Currency'=> '3.24',
+            'Locale::Codes::Currency_Codes'=> '3.24',
+            'Locale::Codes::Currency_Retired'=> '3.24',
+            'Locale::Codes::LangExt'=> '3.24',
+            'Locale::Codes::LangExt_Codes'=> '3.24',
+            'Locale::Codes::LangExt_Retired'=> '3.24',
+            'Locale::Codes::LangFam'=> '3.24',
+            'Locale::Codes::LangFam_Codes'=> '3.24',
+            'Locale::Codes::LangFam_Retired'=> '3.24',
+            'Locale::Codes::LangVar'=> '3.24',
+            'Locale::Codes::LangVar_Codes'=> '3.24',
+            'Locale::Codes::LangVar_Retired'=> '3.24',
+            'Locale::Codes::Language'=> '3.24',
+            'Locale::Codes::Language_Codes'=> '3.24',
+            'Locale::Codes::Language_Retired'=> '3.24',
+            'Locale::Codes::Script' => '3.24',
+            'Locale::Codes::Script_Codes'=> '3.24',
+            'Locale::Codes::Script_Retired'=> '3.24',
+            'Locale::Country'       => '3.24',
+            'Locale::Currency'      => '3.24',
+            'Locale::Language'      => '3.24',
+            'Locale::Maketext'      => '1.23',
+            'Locale::Script'        => '3.24',
+            'Module::CoreList'      => '2.79',
+            'Module::CoreList::TieHashDelta'=> '2.79',
+            'POSIX'                 => '1.32',
+            'Scalar::Util'          => '1.26',
+            'Socket'                => '2.006_001',
+            'Storable'              => '2.40',
+            'Term::ReadLine'        => '1.11',
+            'Unicode::Collate'      => '0.96',
+            'Unicode::Collate::CJK::Stroke'=> '0.94',
+            'Unicode::Collate::CJK::Zhuyin'=> '0.94',
+            'Unicode::Collate::Locale'=> '0.96',
+            'XS::APItest'           => '0.48',
+            'XS::Typemap'           => '0.09',
+            '_charnames'            => '1.34',
+            'charnames'             => '1.34',
+            'feature'               => '1.32',
+            'mro'                   => '1.10',
+            'sigtrap'               => '1.07',
+            'sort'                  => '2.02',
+        },
+        removed => {
+        }
+    },
+    5.017008 => {
+        delta_from => 5.017007,
+        changed => {
+            'Archive::Extract'      => '0.62',
+            'B'                     => '1.42',
+            'B::Concise'            => '0.95',
+            'Compress::Raw::Bzip2'  => '2.060',
+            'Compress::Raw::Zlib'   => '2.060',
+            'Compress::Zlib'        => '2.060',
+            'Cwd'                   => '3.40',
+            'Data::Dumper'          => '2.141',
+            'Digest::SHA'           => '5.81',
+            'ExtUtils::Install'     => '1.59',
+            'File::Fetch'           => '0.38',
+            'File::Path'            => '2.09',
+            'File::Spec'            => '3.40',
+            'File::Spec::Cygwin'    => '3.40',
+            'File::Spec::Epoc'      => '3.40',
+            'File::Spec::Functions' => '3.40',
+            'File::Spec::Mac'       => '3.40',
+            'File::Spec::OS2'       => '3.40',
+            'File::Spec::Unix'      => '3.40',
+            'File::Spec::VMS'       => '3.40',
+            'File::Spec::Win32'     => '3.40',
+            'HTTP::Tiny'            => '0.025',
+            'Hash::Util'            => '0.14',
+            'I18N::LangTags'        => '0.39',
+            'I18N::LangTags::List'  => '0.39',
+            'I18N::Langinfo'        => '0.09',
+            'IO'                    => '1.26',
+            'IO::Compress::Adapter::Bzip2'=> '2.060',
+            'IO::Compress::Adapter::Deflate'=> '2.060',
+            'IO::Compress::Adapter::Identity'=> '2.060',
+            'IO::Compress::Base'    => '2.060',
+            'IO::Compress::Base::Common'=> '2.060',
+            'IO::Compress::Bzip2'   => '2.060',
+            'IO::Compress::Deflate' => '2.060',
+            'IO::Compress::Gzip'    => '2.060',
+            'IO::Compress::Gzip::Constants'=> '2.060',
+            'IO::Compress::RawDeflate'=> '2.060',
+            'IO::Compress::Zip'     => '2.060',
+            'IO::Compress::Zip::Constants'=> '2.060',
+            'IO::Compress::Zlib::Constants'=> '2.060',
+            'IO::Compress::Zlib::Extra'=> '2.060',
+            'IO::Uncompress::Adapter::Bunzip2'=> '2.060',
+            'IO::Uncompress::Adapter::Identity'=> '2.060',
+            'IO::Uncompress::Adapter::Inflate'=> '2.060',
+            'IO::Uncompress::AnyInflate'=> '2.060',
+            'IO::Uncompress::AnyUncompress'=> '2.060',
+            'IO::Uncompress::Base'  => '2.060',
+            'IO::Uncompress::Bunzip2'=> '2.060',
+            'IO::Uncompress::Gunzip'=> '2.060',
+            'IO::Uncompress::Inflate'=> '2.060',
+            'IO::Uncompress::RawInflate'=> '2.060',
+            'IO::Uncompress::Unzip' => '2.060',
+            'List::Util'            => '1.27',
+            'List::Util::XS'        => '1.27',
+            'Module::CoreList'      => '2.80',
+            'Module::CoreList::TieHashDelta'=> '2.80',
+            'Pod::Html'             => '1.17',
+            'Pod::LaTeX'            => '0.61',
+            'Pod::Man'              => '2.27',
+            'Pod::Text'             => '3.17',
+            'Pod::Text::Color'      => '2.07',
+            'Pod::Text::Overstrike' => '2.05',
+            'Pod::Text::Termcap'    => '2.07',
+            'Safe'                  => '2.34',
+            'Scalar::Util'          => '1.27',
+            'Socket'                => '2.009',
+            'Term::ANSIColor'       => '4.02',
+            'Test'                  => '1.26',
+            'Unicode::Collate'      => '0.97',
+            'XS::APItest'           => '0.51',
+            'XS::Typemap'           => '0.10',
+            '_charnames'            => '1.35',
+            'charnames'             => '1.35',
+            'constant'              => '1.25',
+            'diagnostics'           => '1.31',
+            'threads::shared'       => '1.43',
+            'warnings'              => '1.16',
+        },
+        removed => {
+        }
+    },
+    5.017009 => {
+        delta_from => 5.017008,
+        changed => {
+            'App::Cpan'             => '1.60_02',
+            'App::Prove'            => '3.26',
+            'App::Prove::State'     => '3.26',
+            'App::Prove::State::Result'=> '3.26',
+            'App::Prove::State::Result::Test'=> '3.26',
+            'Archive::Extract'      => '0.68',
+            'Attribute::Handlers'   => '0.94',
+            'B::Lint'               => '1.17',
+            'B::Lint::Debug'        => '1.17',
+            'Benchmark'             => '1.14',
+            'CPAN'                  => '2.00',
+            'CPAN::Distribution'    => '2.00',
+            'CPAN::FirstTime'       => '5.5304',
+            'CPAN::Nox'             => '5.5001',
+            'CPANPLUS'              => '0.9135',
+            'CPANPLUS::Backend'     => '0.9135',
+            'CPANPLUS::Backend::RV' => '0.9135',
+            'CPANPLUS::Config'      => '0.9135',
+            'CPANPLUS::Config::HomeEnv'=> '0.9135',
+            'CPANPLUS::Configure'   => '0.9135',
+            'CPANPLUS::Configure::Setup'=> '0.9135',
+            'CPANPLUS::Dist'        => '0.9135',
+            'CPANPLUS::Dist::Autobundle'=> '0.9135',
+            'CPANPLUS::Dist::Base'  => '0.9135',
+            'CPANPLUS::Dist::Build' => '0.70',
+            'CPANPLUS::Dist::Build::Constants'=> '0.70',
+            'CPANPLUS::Dist::MM'    => '0.9135',
+            'CPANPLUS::Dist::Sample'=> '0.9135',
+            'CPANPLUS::Error'       => '0.9135',
+            'CPANPLUS::Internals'   => '0.9135',
+            'CPANPLUS::Internals::Constants'=> '0.9135',
+            'CPANPLUS::Internals::Constants::Report'=> '0.9135',
+            'CPANPLUS::Internals::Extract'=> '0.9135',
+            'CPANPLUS::Internals::Fetch'=> '0.9135',
+            'CPANPLUS::Internals::Report'=> '0.9135',
+            'CPANPLUS::Internals::Search'=> '0.9135',
+            'CPANPLUS::Internals::Source'=> '0.9135',
+            'CPANPLUS::Internals::Source::Memory'=> '0.9135',
+            'CPANPLUS::Internals::Source::SQLite'=> '0.9135',
+            'CPANPLUS::Internals::Source::SQLite::Tie'=> '0.9135',
+            'CPANPLUS::Internals::Utils'=> '0.9135',
+            'CPANPLUS::Internals::Utils::Autoflush'=> '0.9135',
+            'CPANPLUS::Module'      => '0.9135',
+            'CPANPLUS::Module::Author'=> '0.9135',
+            'CPANPLUS::Module::Author::Fake'=> '0.9135',
+            'CPANPLUS::Module::Checksums'=> '0.9135',
+            'CPANPLUS::Module::Fake'=> '0.9135',
+            'CPANPLUS::Module::Signature'=> '0.9135',
+            'CPANPLUS::Selfupdate'  => '0.9135',
+            'CPANPLUS::Shell'       => '0.9135',
+            'CPANPLUS::Shell::Classic'=> '0.9135',
+            'CPANPLUS::Shell::Default'=> '0.9135',
+            'CPANPLUS::Shell::Default::Plugins::CustomSource'=> '0.9135',
+            'CPANPLUS::Shell::Default::Plugins::Remote'=> '0.9135',
+            'CPANPLUS::Shell::Default::Plugins::Source'=> '0.9135',
+            'Config'                => '5.017009',
+            'Config::Perl::V'       => '0.17',
+            'DBM_Filter'            => '0.05',
+            'Data::Dumper'          => '2.142',
+            'Digest::SHA'           => '5.82',
+            'Encode'                => '2.48',
+            'ExtUtils::Installed'   => '1.999003',
+            'ExtUtils::Manifest'    => '1.63',
+            'ExtUtils::ParseXS::Utilities'=> '3.19',
+            'ExtUtils::Typemaps'    => '3.19',
+            'File::CheckTree'       => '4.42',
+            'File::DosGlob'         => '1.10',
+            'File::Temp'            => '0.22_90',
+            'Filter::Simple'        => '0.89',
+            'IO'                    => '1.27',
+            'Log::Message'          => '0.06',
+            'Log::Message::Config'  => '0.06',
+            'Log::Message::Handlers'=> '0.06',
+            'Log::Message::Item'    => '0.06',
+            'Log::Message::Simple'  => '0.10',
+            'Math::BigInt'          => '1.999',
+            'Module::CoreList'      => '2.82',
+            'Module::CoreList::TieHashDelta'=> '2.82',
+            'Module::Load'          => '0.24',
+            'Module::Pluggable'     => '4.6',
+            'Module::Pluggable::Object'=> '4.6',
+            'OS2::DLL'              => '1.05',
+            'OS2::ExtAttr'          => '0.03',
+            'OS2::Process'          => '1.08',
+            'Object::Accessor'      => '0.46',
+            'PerlIO::scalar'        => '0.16',
+            'Pod::Checker'          => '1.60',
+            'Pod::Find'             => '1.60',
+            'Pod::Html'             => '1.18',
+            'Pod::InputObjects'     => '1.60',
+            'Pod::ParseUtils'       => '1.60',
+            'Pod::Parser'           => '1.60',
+            'Pod::Perldoc'          => '3.19',
+            'Pod::Perldoc::BaseTo'  => '3.19',
+            'Pod::Perldoc::GetOptsOO'=> '3.19',
+            'Pod::Perldoc::ToANSI'  => '3.19',
+            'Pod::Perldoc::ToChecker'=> '3.19',
+            'Pod::Perldoc::ToMan'   => '3.19',
+            'Pod::Perldoc::ToNroff' => '3.19',
+            'Pod::Perldoc::ToPod'   => '3.19',
+            'Pod::Perldoc::ToRtf'   => '3.19',
+            'Pod::Perldoc::ToTerm'  => '3.19',
+            'Pod::Perldoc::ToText'  => '3.19',
+            'Pod::Perldoc::ToTk'    => '3.19',
+            'Pod::Perldoc::ToXml'   => '3.19',
+            'Pod::PlainText'        => '2.06',
+            'Pod::Select'           => '1.60',
+            'Pod::Usage'            => '1.61',
+            'SelfLoader'            => '1.21',
+            'TAP::Base'             => '3.26',
+            'TAP::Formatter::Base'  => '3.26',
+            'TAP::Formatter::Color' => '3.26',
+            'TAP::Formatter::Console'=> '3.26',
+            'TAP::Formatter::Console::ParallelSession'=> '3.26',
+            'TAP::Formatter::Console::Session'=> '3.26',
+            'TAP::Formatter::File'  => '3.26',
+            'TAP::Formatter::File::Session'=> '3.26',
+            'TAP::Formatter::Session'=> '3.26',
+            'TAP::Harness'          => '3.26',
+            'TAP::Object'           => '3.26',
+            'TAP::Parser'           => '3.26',
+            'TAP::Parser::Aggregator'=> '3.26',
+            'TAP::Parser::Grammar'  => '3.26',
+            'TAP::Parser::Iterator' => '3.26',
+            'TAP::Parser::Iterator::Array'=> '3.26',
+            'TAP::Parser::Iterator::Process'=> '3.26',
+            'TAP::Parser::Iterator::Stream'=> '3.26',
+            'TAP::Parser::IteratorFactory'=> '3.26',
+            'TAP::Parser::Multiplexer'=> '3.26',
+            'TAP::Parser::Result'   => '3.26',
+            'TAP::Parser::Result::Bailout'=> '3.26',
+            'TAP::Parser::Result::Comment'=> '3.26',
+            'TAP::Parser::Result::Plan'=> '3.26',
+            'TAP::Parser::Result::Pragma'=> '3.26',
+            'TAP::Parser::Result::Test'=> '3.26',
+            'TAP::Parser::Result::Unknown'=> '3.26',
+            'TAP::Parser::Result::Version'=> '3.26',
+            'TAP::Parser::Result::YAML'=> '3.26',
+            'TAP::Parser::ResultFactory'=> '3.26',
+            'TAP::Parser::Scheduler'=> '3.26',
+            'TAP::Parser::Scheduler::Job'=> '3.26',
+            'TAP::Parser::Scheduler::Spinner'=> '3.26',
+            'TAP::Parser::Source'   => '3.26',
+            'TAP::Parser::SourceHandler'=> '3.26',
+            'TAP::Parser::SourceHandler::Executable'=> '3.26',
+            'TAP::Parser::SourceHandler::File'=> '3.26',
+            'TAP::Parser::SourceHandler::Handle'=> '3.26',
+            'TAP::Parser::SourceHandler::Perl'=> '3.26',
+            'TAP::Parser::SourceHandler::RawTAP'=> '3.26',
+            'TAP::Parser::Utils'    => '3.26',
+            'TAP::Parser::YAMLish::Reader'=> '3.26',
+            'TAP::Parser::YAMLish::Writer'=> '3.26',
+            'Term::UI'              => '0.34',
+            'Test::Harness'         => '3.26',
+            'Text::Soundex'         => '3.04',
+            'Thread::Queue'         => '3.02',
+            'Unicode::UCD'          => '0.50',
+            'Win32'                 => '0.46',
+            'Win32API::File'        => '0.1201',
+            '_charnames'            => '1.36',
+            'arybase'               => '0.06',
+            'bigint'                => '0.32',
+            'bignum'                => '0.32',
+            'charnames'             => '1.36',
+            'filetest'              => '1.03',
+            'locale'                => '1.02',
+            'overload'              => '1.21',
+            'warnings'              => '1.17',
+        },
+        removed => {
+        }
+    },
+    5.017010 => {
+        delta_from => 5.017009,
+        changed => {
+            'Benchmark'             => '1.15',
+            'Config'                => '5.017009',
+            'Data::Dumper'          => '2.145',
+            'Digest::SHA'           => '5.84',
+            'Encode'                => '2.49',
+            'ExtUtils::Command::MM' => '6.65_01',
+            'ExtUtils::Liblist'     => '6.65_01',
+            'ExtUtils::Liblist::Kid'=> '6.65_01',
+            'ExtUtils::MM'          => '6.65_01',
+            'ExtUtils::MM_AIX'      => '6.65_01',
+            'ExtUtils::MM_Any'      => '6.65_01',
+            'ExtUtils::MM_BeOS'     => '6.65_01',
+            'ExtUtils::MM_Cygwin'   => '6.65_01',
+            'ExtUtils::MM_DOS'      => '6.65_01',
+            'ExtUtils::MM_Darwin'   => '6.65_01',
+            'ExtUtils::MM_MacOS'    => '6.65_01',
+            'ExtUtils::MM_NW5'      => '6.65_01',
+            'ExtUtils::MM_OS2'      => '6.65_01',
+            'ExtUtils::MM_QNX'      => '6.65_01',
+            'ExtUtils::MM_UWIN'     => '6.65_01',
+            'ExtUtils::MM_Unix'     => '6.65_01',
+            'ExtUtils::MM_VMS'      => '6.65_01',
+            'ExtUtils::MM_VOS'      => '6.65_01',
+            'ExtUtils::MM_Win32'    => '6.65_01',
+            'ExtUtils::MM_Win95'    => '6.65_01',
+            'ExtUtils::MY'          => '6.65_01',
+            'ExtUtils::MakeMaker'   => '6.65_01',
+            'ExtUtils::MakeMaker::Config'=> '6.65_01',
+            'ExtUtils::Mkbootstrap' => '6.65_01',
+            'ExtUtils::Mksymlists'  => '6.65_01',
+            'ExtUtils::testlib'     => '6.65_01',
+            'File::Copy'            => '2.26',
+            'File::Temp'            => '0.23',
+            'Getopt::Long'          => '2.39',
+            'Hash::Util'            => '0.15',
+            'I18N::Langinfo'        => '0.10',
+            'IPC::Cmd'              => '0.80',
+            'JSON::PP'              => '2.27202',
+            'Locale::Codes'         => '3.25',
+            'Locale::Codes::Constants'=> '3.25',
+            'Locale::Codes::Country'=> '3.25',
+            'Locale::Codes::Country_Codes'=> '3.25',
+            'Locale::Codes::Country_Retired'=> '3.25',
+            'Locale::Codes::Currency'=> '3.25',
+            'Locale::Codes::Currency_Codes'=> '3.25',
+            'Locale::Codes::Currency_Retired'=> '3.25',
+            'Locale::Codes::LangExt'=> '3.25',
+            'Locale::Codes::LangExt_Codes'=> '3.25',
+            'Locale::Codes::LangExt_Retired'=> '3.25',
+            'Locale::Codes::LangFam'=> '3.25',
+            'Locale::Codes::LangFam_Codes'=> '3.25',
+            'Locale::Codes::LangFam_Retired'=> '3.25',
+            'Locale::Codes::LangVar'=> '3.25',
+            'Locale::Codes::LangVar_Codes'=> '3.25',
+            'Locale::Codes::LangVar_Retired'=> '3.25',
+            'Locale::Codes::Language'=> '3.25',
+            'Locale::Codes::Language_Codes'=> '3.25',
+            'Locale::Codes::Language_Retired'=> '3.25',
+            'Locale::Codes::Script' => '3.25',
+            'Locale::Codes::Script_Codes'=> '3.25',
+            'Locale::Codes::Script_Retired'=> '3.25',
+            'Locale::Country'       => '3.25',
+            'Locale::Currency'      => '3.25',
+            'Locale::Language'      => '3.25',
+            'Locale::Script'        => '3.25',
+            'Math::BigFloat'        => '1.998',
+            'Math::BigFloat::Trace' => '0.32',
+            'Math::BigInt'          => '1.9991',
+            'Math::BigInt::CalcEmu' => '1.998',
+            'Math::BigInt::Trace'   => '0.32',
+            'Math::BigRat'          => '0.2604',
+            'Module::CoreList'      => '2.84',
+            'Module::CoreList::TieHashDelta'=> '2.84',
+            'Module::Pluggable'     => '4.7',
+            'Net::Ping'             => '2.41',
+            'Perl::OSType'          => '1.003',
+            'Pod::Simple'           => '3.26',
+            'Pod::Simple::BlackBox' => '3.26',
+            'Pod::Simple::Checker'  => '3.26',
+            'Pod::Simple::Debug'    => '3.26',
+            'Pod::Simple::DumpAsText'=> '3.26',
+            'Pod::Simple::DumpAsXML'=> '3.26',
+            'Pod::Simple::HTML'     => '3.26',
+            'Pod::Simple::HTMLBatch'=> '3.26',
+            'Pod::Simple::LinkSection'=> '3.26',
+            'Pod::Simple::Methody'  => '3.26',
+            'Pod::Simple::Progress' => '3.26',
+            'Pod::Simple::PullParser'=> '3.26',
+            'Pod::Simple::PullParserEndToken'=> '3.26',
+            'Pod::Simple::PullParserStartToken'=> '3.26',
+            'Pod::Simple::PullParserTextToken'=> '3.26',
+            'Pod::Simple::PullParserToken'=> '3.26',
+            'Pod::Simple::RTF'      => '3.26',
+            'Pod::Simple::Search'   => '3.26',
+            'Pod::Simple::SimpleTree'=> '3.26',
+            'Pod::Simple::Text'     => '3.26',
+            'Pod::Simple::TextContent'=> '3.26',
+            'Pod::Simple::TiedOutFH'=> '3.26',
+            'Pod::Simple::Transcode'=> '3.26',
+            'Pod::Simple::TranscodeDumb'=> '3.26',
+            'Pod::Simple::TranscodeSmart'=> '3.26',
+            'Pod::Simple::XHTML'    => '3.26',
+            'Pod::Simple::XMLOutStream'=> '3.26',
+            'Safe'                  => '2.35',
+            'Term::ReadLine'        => '1.12',
+            'Text::ParseWords'      => '3.28',
+            'Tie::File'             => '0.99',
+            'Unicode::UCD'          => '0.51',
+            'Win32'                 => '0.47',
+            'bigint'                => '0.33',
+            'bignum'                => '0.33',
+            'bigrat'                => '0.33',
+            'constant'              => '1.27',
+            'perlfaq'               => '5.0150042',
+            'version'               => '0.9902',
+        },
+        removed => {
+        }
+    },
+    5.017011 => {
+        delta_from => 5.017010,
+        changed => {
+            'App::Cpan'             => '1.61',
+            'B::Deparse'            => '1.20',
+            'Config'                => '5.017009',
+            'Exporter'              => '5.68',
+            'Exporter::Heavy'       => '5.68',
+            'ExtUtils::CBuilder'    => '0.280210',
+            'ExtUtils::Command::MM' => '6.66',
+            'ExtUtils::Liblist'     => '6.66',
+            'ExtUtils::Liblist::Kid'=> '6.66',
+            'ExtUtils::MM'          => '6.66',
+            'ExtUtils::MM_AIX'      => '6.66',
+            'ExtUtils::MM_Any'      => '6.66',
+            'ExtUtils::MM_BeOS'     => '6.66',
+            'ExtUtils::MM_Cygwin'   => '6.66',
+            'ExtUtils::MM_DOS'      => '6.66',
+            'ExtUtils::MM_Darwin'   => '6.66',
+            'ExtUtils::MM_MacOS'    => '6.66',
+            'ExtUtils::MM_NW5'      => '6.66',
+            'ExtUtils::MM_OS2'      => '6.66',
+            'ExtUtils::MM_QNX'      => '6.66',
+            'ExtUtils::MM_UWIN'     => '6.66',
+            'ExtUtils::MM_Unix'     => '6.66',
+            'ExtUtils::MM_VMS'      => '6.66',
+            'ExtUtils::MM_VOS'      => '6.66',
+            'ExtUtils::MM_Win32'    => '6.66',
+            'ExtUtils::MM_Win95'    => '6.66',
+            'ExtUtils::MY'          => '6.66',
+            'ExtUtils::MakeMaker'   => '6.66',
+            'ExtUtils::MakeMaker::Config'=> '6.66',
+            'ExtUtils::Mkbootstrap' => '6.66',
+            'ExtUtils::Mksymlists'  => '6.66',
+            'ExtUtils::testlib'     => '6.66',
+            'File::Glob'            => '1.20',
+            'IO'                    => '1.28',
+            'Module::CoreList'      => '2.87',
+            'Module::CoreList::TieHashDelta'=> '2.87',
+            'Storable'              => '2.41',
+            'bigint'                => '0.34',
+            'mro'                   => '1.11',
+            'overload'              => '1.22',
+            'warnings'              => '1.18',
+        },
+        removed => {
+        }
+    },
+    5.018000 => {
+        delta_from => 5.017011,
+        changed => {
+            'Carp'                  => '1.29',
+            'Carp::Heavy'           => '1.29',
+            'Config'                => '5.018000',
+            'Hash::Util'            => '0.16',
+            'IO::Handle'            => '1.34',
+            'IO::Socket'            => '1.36',
+            'Module::CoreList'      => '2.89',
+            'Module::CoreList::TieHashDelta'=> '2.89',
+            'Pod::Simple'           => '3.28',
+            'Pod::Simple::BlackBox' => '3.28',
+            'Pod::Simple::Checker'  => '3.28',
+            'Pod::Simple::Debug'    => '3.28',
+            'Pod::Simple::DumpAsText'=> '3.28',
+            'Pod::Simple::DumpAsXML'=> '3.28',
+            'Pod::Simple::HTML'     => '3.28',
+            'Pod::Simple::HTMLBatch'=> '3.28',
+            'Pod::Simple::LinkSection'=> '3.28',
+            'Pod::Simple::Methody'  => '3.28',
+            'Pod::Simple::Progress' => '3.28',
+            'Pod::Simple::PullParser'=> '3.28',
+            'Pod::Simple::PullParserEndToken'=> '3.28',
+            'Pod::Simple::PullParserStartToken'=> '3.28',
+            'Pod::Simple::PullParserTextToken'=> '3.28',
+            'Pod::Simple::PullParserToken'=> '3.28',
+            'Pod::Simple::RTF'      => '3.28',
+            'Pod::Simple::Search'   => '3.28',
+            'Pod::Simple::SimpleTree'=> '3.28',
+            'Pod::Simple::Text'     => '3.28',
+            'Pod::Simple::TextContent'=> '3.28',
+            'Pod::Simple::TiedOutFH'=> '3.28',
+            'Pod::Simple::Transcode'=> '3.28',
+            'Pod::Simple::TranscodeDumb'=> '3.28',
+            'Pod::Simple::TranscodeSmart'=> '3.28',
+            'Pod::Simple::XHTML'    => '3.28',
+            'Pod::Simple::XMLOutStream'=> '3.28',
+        },
+        removed => {
+        }
+    },
+    5.018001 => {
+        delta_from => 5.018000,
+        changed => {
+            'B'                     => '1.42_01',
+            'Config'                => '5.018001',
+            'Digest::SHA'           => '5.84_01',
+            'Module::CoreList'      => '2.96',
+            'Module::CoreList::TieHashDelta'=> '2.96',
+            'Module::CoreList::Utils'=> '2.96',
+        },
+        removed => {
+           'VMS::Filespec'         => 1,
+        }
+    },
+    5.018002 => {
+        delta_from => 5.018001,
+        changed => {
+            'B'                     => '1.42_02',
+            'B::Concise'            => '0.95_01',
+            'Config'                => '5.018002',
+            'File::Glob'            => '1.20_01',
+            'Module::CoreList'      => '3.03',
+            'Module::CoreList::TieHashDelta'=> '3.03',
+            'Module::CoreList::Utils'=> '3.03',
+        },
+    },
+    5.018003 => {
+        delta_from => 5.018002,
+        changed => {
+            'Config'                => '5.018003',
+            'Digest::SHA'           => '5.84_02',
+            'Module::CoreList'      => '3.12',
+            'Module::CoreList::TieHashDelta'=> '3.12',
+            'Module::CoreList::Utils'=> '3.12',
+        },
+    },
+    5.018004 => {
+        delta_from => 5.018003,
+        changed => {
+            'Config'                => '5.018004',
+            'Module::CoreList'      => '3.13',
+            'Module::CoreList::TieHashDelta'=> '3.13',
+            'Module::CoreList::Utils'=> '3.13',
+        },
+    },
+    5.019000 => {
+        delta_from => 5.018000,
+        changed => {
+            'Config'                => '5.019000',
+            'Getopt::Std'           => '1.08',
+            'Module::CoreList'      => '2.91',
+            'Module::CoreList::TieHashDelta'=> '2.91',
+            'Storable'              => '2.42',
+            'feature'               => '1.33',
+            'utf8'                  => '1.11',
+        },
+        removed => {
+           'Archive::Extract'      => 1,
+           'B::Lint'               => 1,
+           'B::Lint::Debug'        => 1,
+           'CPANPLUS'              => 1,
+           'CPANPLUS::Backend'     => 1,
+           'CPANPLUS::Backend::RV' => 1,
+           'CPANPLUS::Config'      => 1,
+           'CPANPLUS::Config::HomeEnv'=> 1,
+           'CPANPLUS::Configure'   => 1,
+           'CPANPLUS::Configure::Setup'=> 1,
+           'CPANPLUS::Dist'        => 1,
+           'CPANPLUS::Dist::Autobundle'=> 1,
+           'CPANPLUS::Dist::Base'  => 1,
+           'CPANPLUS::Dist::Build' => 1,
+           'CPANPLUS::Dist::Build::Constants'=> 1,
+           'CPANPLUS::Dist::MM'    => 1,
+           'CPANPLUS::Dist::Sample'=> 1,
+           'CPANPLUS::Error'       => 1,
+           'CPANPLUS::Internals'   => 1,
+           'CPANPLUS::Internals::Constants'=> 1,
+           'CPANPLUS::Internals::Constants::Report'=> 1,
+           'CPANPLUS::Internals::Extract'=> 1,
+           'CPANPLUS::Internals::Fetch'=> 1,
+           'CPANPLUS::Internals::Report'=> 1,
+           'CPANPLUS::Internals::Search'=> 1,
+           'CPANPLUS::Internals::Source'=> 1,
+           'CPANPLUS::Internals::Source::Memory'=> 1,
+           'CPANPLUS::Internals::Source::SQLite'=> 1,
+           'CPANPLUS::Internals::Source::SQLite::Tie'=> 1,
+           'CPANPLUS::Internals::Utils'=> 1,
+           'CPANPLUS::Internals::Utils::Autoflush'=> 1,
+           'CPANPLUS::Module'      => 1,
+           'CPANPLUS::Module::Author'=> 1,
+           'CPANPLUS::Module::Author::Fake'=> 1,
+           'CPANPLUS::Module::Checksums'=> 1,
+           'CPANPLUS::Module::Fake'=> 1,
+           'CPANPLUS::Module::Signature'=> 1,
+           'CPANPLUS::Selfupdate'  => 1,
+           'CPANPLUS::Shell'       => 1,
+           'CPANPLUS::Shell::Classic'=> 1,
+           'CPANPLUS::Shell::Default'=> 1,
+           'CPANPLUS::Shell::Default::Plugins::CustomSource'=> 1,
+           'CPANPLUS::Shell::Default::Plugins::Remote'=> 1,
+           'CPANPLUS::Shell::Default::Plugins::Source'=> 1,
+           'Devel::InnerPackage'   => 1,
+           'File::CheckTree'       => 1,
+           'Log::Message'          => 1,
+           'Log::Message::Config'  => 1,
+           'Log::Message::Handlers'=> 1,
+           'Log::Message::Item'    => 1,
+           'Log::Message::Simple'  => 1,
+           'Module::Pluggable'     => 1,
+           'Module::Pluggable::Object'=> 1,
+           'Object::Accessor'      => 1,
+           'Pod::LaTeX'            => 1,
+           'Term::UI'              => 1,
+           'Term::UI::History'     => 1,
+           'Text::Soundex'         => 1,
+        }
+    },
+    5.019001 => {
+        delta_from => 5.019000,
+        changed => {
+            'App::Prove'            => '3.28',
+            'App::Prove::State'     => '3.28',
+            'App::Prove::State::Result'=> '3.28',
+            'App::Prove::State::Result::Test'=> '3.28',
+            'Archive::Tar'          => '1.92',
+            'Archive::Tar::Constant'=> '1.92',
+            'Archive::Tar::File'    => '1.92',
+            'Attribute::Handlers'   => '0.95',
+            'B'                     => '1.43',
+            'B::Concise'            => '0.96',
+            'B::Deparse'            => '1.21',
+            'B::Showlex'            => '1.04',
+            'Benchmark'             => '1.16',
+            'CPAN::Meta'            => '2.131560',
+            'CPAN::Meta::Converter' => '2.131560',
+            'CPAN::Meta::Feature'   => '2.131560',
+            'CPAN::Meta::History'   => '2.131560',
+            'CPAN::Meta::Prereqs'   => '2.131560',
+            'CPAN::Meta::Spec'      => '2.131560',
+            'CPAN::Meta::Validator' => '2.131560',
+            'Carp'                  => '1.30',
+            'Carp::Heavy'           => '1.30',
+            'Compress::Raw::Bzip2'  => '2.061',
+            'Compress::Raw::Zlib'   => '2.061',
+            'Compress::Zlib'        => '2.061',
+            'Config'                => '5.019001',
+            'Config::Perl::V'       => '0.18',
+            'Cwd'                   => '3.41',
+            'DB'                    => '1.06',
+            'DB_File'               => '1.828',
+            'Data::Dumper'          => '2.146',
+            'Encode'                => '2.51',
+            'Encode::CN::HZ'        => '2.06',
+            'Encode::GSM0338'       => '2.03',
+            'Encode::Unicode::UTF7' => '2.07',
+            'ExtUtils::CBuilder::Base'=> '0.280210',
+            'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.280210',
+            'ExtUtils::Command::MM' => '6.68',
+            'ExtUtils::Install'     => '1.60',
+            'ExtUtils::Liblist'     => '6.68',
+            'ExtUtils::Liblist::Kid'=> '6.68',
+            'ExtUtils::MM'          => '6.68',
+            'ExtUtils::MM_AIX'      => '6.68',
+            'ExtUtils::MM_Any'      => '6.68',
+            'ExtUtils::MM_BeOS'     => '6.68',
+            'ExtUtils::MM_Cygwin'   => '6.68',
+            'ExtUtils::MM_DOS'      => '6.68',
+            'ExtUtils::MM_Darwin'   => '6.68',
+            'ExtUtils::MM_MacOS'    => '6.68',
+            'ExtUtils::MM_NW5'      => '6.68',
+            'ExtUtils::MM_OS2'      => '6.68',
+            'ExtUtils::MM_QNX'      => '6.68',
+            'ExtUtils::MM_UWIN'     => '6.68',
+            'ExtUtils::MM_Unix'     => '6.68',
+            'ExtUtils::MM_VMS'      => '6.68',
+            'ExtUtils::MM_VOS'      => '6.68',
+            'ExtUtils::MM_Win32'    => '6.68',
+            'ExtUtils::MM_Win95'    => '6.68',
+            'ExtUtils::MY'          => '6.68',
+            'ExtUtils::MakeMaker'   => '6.68',
+            'ExtUtils::MakeMaker::Config'=> '6.68',
+            'ExtUtils::Mkbootstrap' => '6.68',
+            'ExtUtils::Mksymlists'  => '6.68',
+            'ExtUtils::ParseXS'     => '3.19',
+            'ExtUtils::testlib'     => '6.68',
+            'Fatal'                 => '2.19',
+            'File::Copy'            => '2.27',
+            'File::DosGlob'         => '1.11',
+            'File::Fetch'           => '0.42',
+            'File::Find'            => '1.24',
+            'File::Spec'            => '3.41',
+            'File::Spec::Cygwin'    => '3.41',
+            'File::Spec::Epoc'      => '3.41',
+            'File::Spec::Mac'       => '3.41',
+            'File::Spec::OS2'       => '3.41',
+            'File::Spec::Unix'      => '3.41',
+            'File::Spec::VMS'       => '3.41',
+            'File::Spec::Win32'     => '3.41',
+            'File::Temp'            => '0.2301',
+            'Filter::Simple'        => '0.90',
+            'Filter::Util::Call'    => '1.49',
+            'Getopt::Long'          => '2.4',
+            'HTTP::Tiny'            => '0.031',
+            'Hash::Util::FieldHash' => '1.11',
+            'IO::Compress::Adapter::Bzip2'=> '2.061',
+            'IO::Compress::Adapter::Deflate'=> '2.061',
+            'IO::Compress::Adapter::Identity'=> '2.061',
+            'IO::Compress::Base'    => '2.061',
+            'IO::Compress::Base::Common'=> '2.061',
+            'IO::Compress::Bzip2'   => '2.061',
+            'IO::Compress::Deflate' => '2.061',
+            'IO::Compress::Gzip'    => '2.061',
+            'IO::Compress::Gzip::Constants'=> '2.061',
+            'IO::Compress::RawDeflate'=> '2.061',
+            'IO::Compress::Zip'     => '2.061',
+            'IO::Compress::Zip::Constants'=> '2.061',
+            'IO::Compress::Zlib::Constants'=> '2.061',
+            'IO::Compress::Zlib::Extra'=> '2.061',
+            'IO::Handle'            => '1.35',
+            'IO::Uncompress::Adapter::Bunzip2'=> '2.061',
+            'IO::Uncompress::Adapter::Identity'=> '2.061',
+            'IO::Uncompress::Adapter::Inflate'=> '2.061',
+            'IO::Uncompress::AnyInflate'=> '2.061',
+            'IO::Uncompress::AnyUncompress'=> '2.061',
+            'IO::Uncompress::Base'  => '2.061',
+            'IO::Uncompress::Bunzip2'=> '2.061',
+            'IO::Uncompress::Gunzip'=> '2.061',
+            'IO::Uncompress::Inflate'=> '2.061',
+            'IO::Uncompress::RawInflate'=> '2.061',
+            'IO::Uncompress::Unzip' => '2.061',
+            'IPC::Open3'            => '1.14',
+            'Locale::Codes'         => '3.26',
+            'Locale::Codes::Constants'=> '3.26',
+            'Locale::Codes::Country'=> '3.26',
+            'Locale::Codes::Country_Codes'=> '3.26',
+            'Locale::Codes::Country_Retired'=> '3.26',
+            'Locale::Codes::Currency'=> '3.26',
+            'Locale::Codes::Currency_Codes'=> '3.26',
+            'Locale::Codes::Currency_Retired'=> '3.26',
+            'Locale::Codes::LangExt'=> '3.26',
+            'Locale::Codes::LangExt_Codes'=> '3.26',
+            'Locale::Codes::LangExt_Retired'=> '3.26',
+            'Locale::Codes::LangFam'=> '3.26',
+            'Locale::Codes::LangFam_Codes'=> '3.26',
+            'Locale::Codes::LangFam_Retired'=> '3.26',
+            'Locale::Codes::LangVar'=> '3.26',
+            'Locale::Codes::LangVar_Codes'=> '3.26',
+            'Locale::Codes::LangVar_Retired'=> '3.26',
+            'Locale::Codes::Language'=> '3.26',
+            'Locale::Codes::Language_Codes'=> '3.26',
+            'Locale::Codes::Language_Retired'=> '3.26',
+            'Locale::Codes::Script' => '3.26',
+            'Locale::Codes::Script_Codes'=> '3.26',
+            'Locale::Codes::Script_Retired'=> '3.26',
+            'Locale::Country'       => '3.26',
+            'Locale::Currency'      => '3.26',
+            'Locale::Language'      => '3.26',
+            'Locale::Maketext'      => '1.24',
+            'Locale::Script'        => '3.26',
+            'Math::BigFloat'        => '1.999',
+            'Math::BigInt'          => '1.9992',
+            'Math::BigInt::Calc'    => '1.998',
+            'Math::BigInt::CalcEmu' => '1.9991',
+            'Math::BigRat'          => '0.2606',
+            'Module::Build'         => '0.4005',
+            'Module::Build::Base'   => '0.4005',
+            'Module::Build::Compat' => '0.4005',
+            'Module::Build::Config' => '0.4005',
+            'Module::Build::Cookbook'=> '0.4005',
+            'Module::Build::Dumper' => '0.4005',
+            'Module::Build::ModuleInfo'=> '0.4005',
+            'Module::Build::Notes'  => '0.4005',
+            'Module::Build::PPMMaker'=> '0.4005',
+            'Module::Build::Platform::Amiga'=> '0.4005',
+            'Module::Build::Platform::Default'=> '0.4005',
+            'Module::Build::Platform::EBCDIC'=> '0.4005',
+            'Module::Build::Platform::MPEiX'=> '0.4005',
+            'Module::Build::Platform::MacOS'=> '0.4005',
+            'Module::Build::Platform::RiscOS'=> '0.4005',
+            'Module::Build::Platform::Unix'=> '0.4005',
+            'Module::Build::Platform::VMS'=> '0.4005',
+            'Module::Build::Platform::VOS'=> '0.4005',
+            'Module::Build::Platform::Windows'=> '0.4005',
+            'Module::Build::Platform::aix'=> '0.4005',
+            'Module::Build::Platform::cygwin'=> '0.4005',
+            'Module::Build::Platform::darwin'=> '0.4005',
+            'Module::Build::Platform::os2'=> '0.4005',
+            'Module::Build::PodParser'=> '0.4005',
+            'Module::CoreList'      => '2.92',
+            'Module::CoreList::TieHashDelta'=> '2.92',
+            'Module::CoreList::Utils'=> '2.92',
+            'Module::Metadata'      => '1.000014',
+            'Net::Ping'             => '2.42',
+            'OS2::Process'          => '1.09',
+            'POSIX'                 => '1.33',
+            'Pod::Find'             => '1.61',
+            'Pod::Html'             => '1.19',
+            'Pod::InputObjects'     => '1.61',
+            'Pod::ParseUtils'       => '1.61',
+            'Pod::Parser'           => '1.61',
+            'Pod::Perldoc'          => '3.20',
+            'Pod::Perldoc::BaseTo'  => '3.20',
+            'Pod::Perldoc::GetOptsOO'=> '3.20',
+            'Pod::Perldoc::ToANSI'  => '3.20',
+            'Pod::Perldoc::ToChecker'=> '3.20',
+            'Pod::Perldoc::ToMan'   => '3.20',
+            'Pod::Perldoc::ToNroff' => '3.20',
+            'Pod::Perldoc::ToPod'   => '3.20',
+            'Pod::Perldoc::ToRtf'   => '3.20',
+            'Pod::Perldoc::ToTerm'  => '3.20',
+            'Pod::Perldoc::ToText'  => '3.20',
+            'Pod::Perldoc::ToTk'    => '3.20',
+            'Pod::Perldoc::ToXml'   => '3.20',
+            'Pod::Select'           => '1.61',
+            'Pod::Usage'            => '1.63',
+            'Safe'                  => '2.36',
+            'Storable'              => '2.43',
+            'Sys::Hostname'         => '1.18',
+            'Sys::Syslog'           => '0.33',
+            'TAP::Base'             => '3.28',
+            'TAP::Formatter::Base'  => '3.28',
+            'TAP::Formatter::Color' => '3.28',
+            'TAP::Formatter::Console'=> '3.28',
+            'TAP::Formatter::Console::ParallelSession'=> '3.28',
+            'TAP::Formatter::Console::Session'=> '3.28',
+            'TAP::Formatter::File'  => '3.28',
+            'TAP::Formatter::File::Session'=> '3.28',
+            'TAP::Formatter::Session'=> '3.28',
+            'TAP::Harness'          => '3.28',
+            'TAP::Object'           => '3.28',
+            'TAP::Parser'           => '3.28',
+            'TAP::Parser::Aggregator'=> '3.28',
+            'TAP::Parser::Grammar'  => '3.28',
+            'TAP::Parser::Iterator' => '3.28',
+            'TAP::Parser::Iterator::Array'=> '3.28',
+            'TAP::Parser::Iterator::Process'=> '3.28',
+            'TAP::Parser::Iterator::Stream'=> '3.28',
+            'TAP::Parser::IteratorFactory'=> '3.28',
+            'TAP::Parser::Multiplexer'=> '3.28',
+            'TAP::Parser::Result'   => '3.28',
+            'TAP::Parser::Result::Bailout'=> '3.28',
+            'TAP::Parser::Result::Comment'=> '3.28',
+            'TAP::Parser::Result::Plan'=> '3.28',
+            'TAP::Parser::Result::Pragma'=> '3.28',
+            'TAP::Parser::Result::Test'=> '3.28',
+            'TAP::Parser::Result::Unknown'=> '3.28',
+            'TAP::Parser::Result::Version'=> '3.28',
+            'TAP::Parser::Result::YAML'=> '3.28',
+            'TAP::Parser::ResultFactory'=> '3.28',
+            'TAP::Parser::Scheduler'=> '3.28',
+            'TAP::Parser::Scheduler::Job'=> '3.28',
+            'TAP::Parser::Scheduler::Spinner'=> '3.28',
+            'TAP::Parser::Source'   => '3.28',
+            'TAP::Parser::SourceHandler'=> '3.28',
+            'TAP::Parser::SourceHandler::Executable'=> '3.28',
+            'TAP::Parser::SourceHandler::File'=> '3.28',
+            'TAP::Parser::SourceHandler::Handle'=> '3.28',
+            'TAP::Parser::SourceHandler::Perl'=> '3.28',
+            'TAP::Parser::SourceHandler::RawTAP'=> '3.28',
+            'TAP::Parser::Utils'    => '3.28',
+            'TAP::Parser::YAMLish::Reader'=> '3.28',
+            'TAP::Parser::YAMLish::Writer'=> '3.28',
+            'Term::ReadLine'        => '1.13',
+            'Test::Harness'         => '3.28',
+            'Text::Tabs'            => '2013.0523',
+            'Text::Wrap'            => '2013.0523',
+            'Thread'                => '3.04',
+            'Tie::File'             => '1.00',
+            'Time::Piece'           => '1.2002',
+            'Unicode::Collate'      => '0.98',
+            'Unicode::UCD'          => '0.53',
+            'XS::APItest'           => '0.53',
+            '_charnames'            => '1.37',
+            'autodie'               => '2.19',
+            'autodie::exception'    => '2.19',
+            'autodie::exception::system'=> '2.19',
+            'autodie::hints'        => '2.19',
+            'autodie::skip'         => '2.19',
+            'bigint'                => '0.35',
+            'charnames'             => '1.38',
+            'encoding'              => '2.12',
+            'inc::latest'           => '0.4005',
+            'mro'                   => '1.12',
+            'perlfaq'               => '5.0150043',
+            're'                    => '0.25',
+            'threads'               => '1.87',
+            'threads::shared'       => '1.44',
+            'utf8'                  => '1.12',
+        },
+        removed => {
+        }
+    },
+    5.019002 => {
+        delta_from => 5.019001,
+        changed => {
+            'B'                     => '1.44',
+            'B::Concise'            => '0.98',
+            'B::Deparse'            => '1.22',
+            'Benchmark'             => '1.17',
+            'Class::Struct'         => '0.65',
+            'Config'                => '5.019002',
+            'DB'                    => '1.07',
+            'DBM_Filter'            => '0.06',
+            'DBM_Filter::compress'  => '0.03',
+            'DBM_Filter::encode'    => '0.03',
+            'DBM_Filter::int32'     => '0.03',
+            'DBM_Filter::null'      => '0.03',
+            'DBM_Filter::utf8'      => '0.03',
+            'DB_File'               => '1.829',
+            'Data::Dumper'          => '2.147',
+            'Devel::Peek'           => '1.12',
+            'Digest::MD5'           => '2.53',
+            'Digest::SHA'           => '5.85',
+            'English'               => '1.07',
+            'Errno'                 => '1.19',
+            'ExtUtils::Embed'       => '1.31',
+            'ExtUtils::Miniperl'    => '1',
+            'ExtUtils::ParseXS'     => '3.21',
+            'ExtUtils::ParseXS::Constants'=> '3.21',
+            'ExtUtils::ParseXS::CountLines'=> '3.21',
+            'ExtUtils::ParseXS::Eval'=> '3.19',
+            'ExtUtils::ParseXS::Utilities'=> '3.21',
+            'ExtUtils::Typemaps'    => '3.21',
+            'ExtUtils::Typemaps::Cmd'=> '3.21',
+            'ExtUtils::Typemaps::InputMap'=> '3.21',
+            'ExtUtils::Typemaps::OutputMap'=> '3.21',
+            'ExtUtils::Typemaps::Type'=> '3.21',
+            'ExtUtils::XSSymSet'    => '1.3',
+            'Fatal'                 => '2.20',
+            'File::Basename'        => '2.85',
+            'File::Spec::VMS'       => '3.43',
+            'File::Spec::Win32'     => '3.42',
+            'Getopt::Long'          => '2.41',
+            'Getopt::Std'           => '1.09',
+            'HTTP::Tiny'            => '0.034',
+            'Hash::Util::FieldHash' => '1.12',
+            'I18N::Langinfo'        => '0.11',
+            'IO::Socket::INET'      => '1.34',
+            'IO::Socket::UNIX'      => '1.25',
+            'IPC::Cmd'              => '0.82',
+            'MIME::Base64'          => '3.14',
+            'Module::CoreList'      => '2.94',
+            'Module::CoreList::TieHashDelta'=> '2.94',
+            'Module::CoreList::Utils'=> '2.94',
+            'POSIX'                 => '1.34',
+            'Params::Check'         => '0.38',
+            'Parse::CPAN::Meta'     => '1.4405',
+            'Pod::Functions'        => '1.07',
+            'Pod::Html'             => '1.2',
+            'Safe'                  => '2.37',
+            'Socket'                => '2.010',
+            'Storable'              => '2.45',
+            'Text::ParseWords'      => '3.29',
+            'Tie::Array'            => '1.06',
+            'Tie::Hash'             => '1.05',
+            'Tie::Scalar'           => '1.03',
+            'Time::Piece'           => '1.21',
+            'Time::Seconds'         => '1.21',
+            'XS::APItest'           => '0.54',
+            'autodie'               => '2.20',
+            'autodie::exception'    => '2.20',
+            'autodie::exception::system'=> '2.20',
+            'autodie::hints'        => '2.20',
+            'autodie::skip'         => '2.20',
+            'base'                  => '2.19',
+            'deprecate'             => '0.03',
+            'if'                    => '0.0603',
+            'integer'               => '1.01',
+            'strict'                => '1.08',
+            'subs'                  => '1.02',
+            'vmsish'                => '1.04',
+        },
+        removed => {
+        }
+    },
+    5.019003 => {
+        delta_from => 5.019002,
+        changed => {
+            'B'                     => '1.45',
+            'CPAN::Meta'            => '2.132140',
+            'CPAN::Meta::Converter' => '2.132140',
+            'CPAN::Meta::Feature'   => '2.132140',
+            'CPAN::Meta::History'   => '2.132140',
+            'CPAN::Meta::Prereqs'   => '2.132140',
+            'CPAN::Meta::Spec'      => '2.132140',
+            'CPAN::Meta::Validator' => '2.132140',
+            'Carp'                  => '1.31',
+            'Carp::Heavy'           => '1.31',
+            'Compress::Raw::Bzip2'  => '2.062',
+            'Compress::Raw::Zlib'   => '2.062',
+            'Compress::Zlib'        => '2.062',
+            'Config'                => '5.019003',
+            'Config::Perl::V'       => '0.19',
+            'Cwd'                   => '3.44',
+            'Data::Dumper'          => '2.148',
+            'Devel::PPPort'         => '3.21',
+            'Devel::Peek'           => '1.13',
+            'DynaLoader'            => '1.19',
+            'Encode'                => '2.52',
+            'Encode::Alias'         => '2.17',
+            'Encode::Encoding'      => '2.06',
+            'Encode::GSM0338'       => '2.04',
+            'Encode::MIME::Header'  => '2.14',
+            'Encode::Unicode'       => '2.08',
+            'English'               => '1.08',
+            'Exporter'              => '5.69',
+            'Exporter::Heavy'       => '5.69',
+            'ExtUtils::Command::MM' => '6.72',
+            'ExtUtils::Liblist'     => '6.72',
+            'ExtUtils::Liblist::Kid'=> '6.72',
+            'ExtUtils::MM'          => '6.72',
+            'ExtUtils::MM_AIX'      => '6.72',
+            'ExtUtils::MM_Any'      => '6.72',
+            'ExtUtils::MM_BeOS'     => '6.72',
+            'ExtUtils::MM_Cygwin'   => '6.72',
+            'ExtUtils::MM_DOS'      => '6.72',
+            'ExtUtils::MM_Darwin'   => '6.72',
+            'ExtUtils::MM_MacOS'    => '6.72',
+            'ExtUtils::MM_NW5'      => '6.72',
+            'ExtUtils::MM_OS2'      => '6.72',
+            'ExtUtils::MM_QNX'      => '6.72',
+            'ExtUtils::MM_UWIN'     => '6.72',
+            'ExtUtils::MM_Unix'     => '6.72',
+            'ExtUtils::MM_VMS'      => '6.72',
+            'ExtUtils::MM_VOS'      => '6.72',
+            'ExtUtils::MM_Win32'    => '6.72',
+            'ExtUtils::MM_Win95'    => '6.72',
+            'ExtUtils::MY'          => '6.72',
+            'ExtUtils::MakeMaker'   => '6.72',
+            'ExtUtils::MakeMaker::Config'=> '6.72',
+            'ExtUtils::Mkbootstrap' => '6.72',
+            'ExtUtils::Mksymlists'  => '6.72',
+            'ExtUtils::ParseXS::Eval'=> '3.21',
+            'ExtUtils::testlib'     => '6.72',
+            'File::Spec'            => '3.44',
+            'File::Spec::Cygwin'    => '3.44',
+            'File::Spec::Epoc'      => '3.44',
+            'File::Spec::Functions' => '3.44',
+            'File::Spec::Mac'       => '3.44',
+            'File::Spec::OS2'       => '3.44',
+            'File::Spec::Unix'      => '3.44',
+            'File::Spec::VMS'       => '3.44',
+            'File::Spec::Win32'     => '3.44',
+            'Getopt::Std'           => '1.10',
+            'IO::Compress::Adapter::Bzip2'=> '2.062',
+            'IO::Compress::Adapter::Deflate'=> '2.062',
+            'IO::Compress::Adapter::Identity'=> '2.062',
+            'IO::Compress::Base'    => '2.062',
+            'IO::Compress::Base::Common'=> '2.062',
+            'IO::Compress::Bzip2'   => '2.062',
+            'IO::Compress::Deflate' => '2.062',
+            'IO::Compress::Gzip'    => '2.062',
+            'IO::Compress::Gzip::Constants'=> '2.062',
+            'IO::Compress::RawDeflate'=> '2.062',
+            'IO::Compress::Zip'     => '2.062',
+            'IO::Compress::Zip::Constants'=> '2.062',
+            'IO::Compress::Zlib::Constants'=> '2.062',
+            'IO::Compress::Zlib::Extra'=> '2.062',
+            'IO::Uncompress::Adapter::Bunzip2'=> '2.062',
+            'IO::Uncompress::Adapter::Identity'=> '2.062',
+            'IO::Uncompress::Adapter::Inflate'=> '2.062',
+            'IO::Uncompress::AnyInflate'=> '2.062',
+            'IO::Uncompress::AnyUncompress'=> '2.062',
+            'IO::Uncompress::Base'  => '2.062',
+            'IO::Uncompress::Bunzip2'=> '2.062',
+            'IO::Uncompress::Gunzip'=> '2.062',
+            'IO::Uncompress::Inflate'=> '2.062',
+            'IO::Uncompress::RawInflate'=> '2.062',
+            'IO::Uncompress::Unzip' => '2.062',
+            'IPC::Cmd'              => '0.84',
+            'IPC::Msg'              => '2.04',
+            'IPC::Open3'            => '1.15',
+            'IPC::Semaphore'        => '2.04',
+            'IPC::SharedMem'        => '2.04',
+            'IPC::SysV'             => '2.04',
+            'List::Util'            => '1.31',
+            'List::Util::XS'        => '1.31',
+            'Math::BigFloat::Trace' => '0.36',
+            'Math::BigInt::Trace'   => '0.36',
+            'Module::Build'         => '0.4007',
+            'Module::Build::Base'   => '0.4007',
+            'Module::Build::Compat' => '0.4007',
+            'Module::Build::Config' => '0.4007',
+            'Module::Build::Cookbook'=> '0.4007',
+            'Module::Build::Dumper' => '0.4007',
+            'Module::Build::ModuleInfo'=> '0.4007',
+            'Module::Build::Notes'  => '0.4007',
+            'Module::Build::PPMMaker'=> '0.4007',
+            'Module::Build::Platform::Default'=> '0.4007',
+            'Module::Build::Platform::MacOS'=> '0.4007',
+            'Module::Build::Platform::Unix'=> '0.4007',
+            'Module::Build::Platform::VMS'=> '0.4007',
+            'Module::Build::Platform::VOS'=> '0.4007',
+            'Module::Build::Platform::Windows'=> '0.4007',
+            'Module::Build::Platform::aix'=> '0.4007',
+            'Module::Build::Platform::cygwin'=> '0.4007',
+            'Module::Build::Platform::darwin'=> '0.4007',
+            'Module::Build::Platform::os2'=> '0.4007',
+            'Module::Build::PodParser'=> '0.4007',
+            'Module::CoreList'      => '2.97',
+            'Module::CoreList::TieHashDelta'=> '2.97',
+            'Module::CoreList::Utils'=> '2.97',
+            'Net::Cmd'              => '2.30',
+            'Net::Config'           => '1.12',
+            'Net::Domain'           => '2.22',
+            'Net::FTP'              => '2.78',
+            'Net::FTP::dataconn'    => '0.12',
+            'Net::NNTP'             => '2.25',
+            'Net::Netrc'            => '2.14',
+            'Net::POP3'             => '2.30',
+            'Net::SMTP'             => '2.32',
+            'PerlIO'                => '1.08',
+            'Pod::Functions'        => '1.08',
+            'Scalar::Util'          => '1.31',
+            'Socket'                => '2.011',
+            'Storable'              => '2.46',
+            'Time::HiRes'           => '1.9726',
+            'Time::Piece'           => '1.22',
+            'Time::Seconds'         => '1.22',
+            'XS::APItest'           => '0.55',
+            'bigint'                => '0.36',
+            'bignum'                => '0.36',
+            'bigrat'                => '0.36',
+            'constant'              => '1.28',
+            'diagnostics'           => '1.32',
+            'inc::latest'           => '0.4007',
+            'mro'                   => '1.13',
+            'parent'                => '0.226',
+            'utf8'                  => '1.13',
+            'version'               => '0.9903',
+        },
+        removed => {
+           'Module::Build::Platform::Amiga'=> 1,
+           'Module::Build::Platform::EBCDIC'=> 1,
+           'Module::Build::Platform::MPEiX'=> 1,
+           'Module::Build::Platform::RiscOS'=> 1,
+        }
+    },
+    5.019004 => {
+        delta_from => 5.019003,
+        changed => {
+            'B'                     => '1.46',
+            'B::Concise'            => '0.99',
+            'B::Deparse'            => '1.23',
+            'CPAN'                  => '2.03',
+            'CPAN::Meta'            => '2.132620',
+            'CPAN::Meta::Converter' => '2.132620',
+            'CPAN::Meta::Feature'   => '2.132620',
+            'CPAN::Meta::History'   => '2.132620',
+            'CPAN::Meta::Prereqs'   => '2.132620',
+            'CPAN::Meta::Requirements'=> '2.123',
+            'CPAN::Meta::Spec'      => '2.132620',
+            'CPAN::Meta::Validator' => '2.132620',
+            'Carp'                  => '1.32',
+            'Carp::Heavy'           => '1.32',
+            'Config'                => '5.019004',
+            'Data::Dumper'          => '2.149',
+            'Devel::Peek'           => '1.14',
+            'DynaLoader'            => '1.20',
+            'Encode'                => '2.55',
+            'Encode::Alias'         => '2.18',
+            'Encode::CN::HZ'        => '2.07',
+            'Encode::Encoder'       => '2.03',
+            'Encode::Encoding'      => '2.07',
+            'Encode::GSM0338'       => '2.05',
+            'Encode::Guess'         => '2.06',
+            'Encode::JP::JIS7'      => '2.05',
+            'Encode::KR::2022_KR'   => '2.03',
+            'Encode::MIME::Header'  => '2.15',
+            'Encode::MIME::Header::ISO_2022_JP'=> '1.04',
+            'Encode::Unicode'       => '2.09',
+            'Encode::Unicode::UTF7' => '2.08',
+            'Errno'                 => '1.20',
+            'Exporter'              => '5.70',
+            'Exporter::Heavy'       => '5.70',
+            'ExtUtils::CBuilder'    => '0.280212',
+            'ExtUtils::CBuilder::Base'=> '0.280212',
+            'ExtUtils::CBuilder::Platform::Unix'=> '0.280212',
+            'ExtUtils::CBuilder::Platform::VMS'=> '0.280212',
+            'ExtUtils::CBuilder::Platform::Windows'=> '0.280212',
+            'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.280212',
+            'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.280212',
+            'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.280212',
+            'ExtUtils::CBuilder::Platform::aix'=> '0.280212',
+            'ExtUtils::CBuilder::Platform::cygwin'=> '0.280212',
+            'ExtUtils::CBuilder::Platform::darwin'=> '0.280212',
+            'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280212',
+            'ExtUtils::CBuilder::Platform::os2'=> '0.280212',
+            'ExtUtils::Command'     => '1.18',
+            'ExtUtils::Command::MM' => '6.76',
+            'ExtUtils::Liblist'     => '6.76',
+            'ExtUtils::Liblist::Kid'=> '6.76',
+            'ExtUtils::MM'          => '6.76',
+            'ExtUtils::MM_AIX'      => '6.76',
+            'ExtUtils::MM_Any'      => '6.76',
+            'ExtUtils::MM_BeOS'     => '6.76',
+            'ExtUtils::MM_Cygwin'   => '6.76',
+            'ExtUtils::MM_DOS'      => '6.76',
+            'ExtUtils::MM_Darwin'   => '6.76',
+            'ExtUtils::MM_MacOS'    => '6.76',
+            'ExtUtils::MM_NW5'      => '6.76',
+            'ExtUtils::MM_OS2'      => '6.76',
+            'ExtUtils::MM_QNX'      => '6.76',
+            'ExtUtils::MM_UWIN'     => '6.76',
+            'ExtUtils::MM_Unix'     => '6.76',
+            'ExtUtils::MM_VMS'      => '6.76',
+            'ExtUtils::MM_VOS'      => '6.76',
+            'ExtUtils::MM_Win32'    => '6.76',
+            'ExtUtils::MM_Win95'    => '6.76',
+            'ExtUtils::MY'          => '6.76',
+            'ExtUtils::MakeMaker'   => '6.76',
+            'ExtUtils::MakeMaker::Config'=> '6.76',
+            'ExtUtils::Mkbootstrap' => '6.76',
+            'ExtUtils::Mksymlists'  => '6.76',
+            'ExtUtils::ParseXS'     => '3.23',
+            'ExtUtils::ParseXS::Constants'=> '3.23',
+            'ExtUtils::ParseXS::CountLines'=> '3.23',
+            'ExtUtils::ParseXS::Eval'=> '3.23',
+            'ExtUtils::ParseXS::Utilities'=> '3.23',
+            'ExtUtils::Typemaps'    => '3.23',
+            'ExtUtils::Typemaps::Cmd'=> '3.23',
+            'ExtUtils::Typemaps::InputMap'=> '3.23',
+            'ExtUtils::Typemaps::OutputMap'=> '3.23',
+            'ExtUtils::Typemaps::Type'=> '3.23',
+            'ExtUtils::testlib'     => '6.76',
+            'Fatal'                 => '2.21',
+            'File::Copy'            => '2.28',
+            'File::Find'            => '1.25',
+            'File::Glob'            => '1.21',
+            'FileCache'             => '1.09',
+            'HTTP::Tiny'            => '0.035',
+            'Hash::Util::FieldHash' => '1.13',
+            'I18N::LangTags'        => '0.40',
+            'IO'                    => '1.29',
+            'IO::Socket'            => '1.37',
+            'IPC::Open3'            => '1.16',
+            'JSON::PP'              => '2.27202_01',
+            'List::Util'            => '1.32',
+            'List::Util::XS'        => '1.32',
+            'Locale::Codes'         => '3.27',
+            'Locale::Codes::Constants'=> '3.27',
+            'Locale::Codes::Country'=> '3.27',
+            'Locale::Codes::Country_Codes'=> '3.27',
+            'Locale::Codes::Country_Retired'=> '3.27',
+            'Locale::Codes::Currency'=> '3.27',
+            'Locale::Codes::Currency_Codes'=> '3.27',
+            'Locale::Codes::Currency_Retired'=> '3.27',
+            'Locale::Codes::LangExt'=> '3.27',
+            'Locale::Codes::LangExt_Codes'=> '3.27',
+            'Locale::Codes::LangExt_Retired'=> '3.27',
+            'Locale::Codes::LangFam'=> '3.27',
+            'Locale::Codes::LangFam_Codes'=> '3.27',
+            'Locale::Codes::LangFam_Retired'=> '3.27',
+            'Locale::Codes::LangVar'=> '3.27',
+            'Locale::Codes::LangVar_Codes'=> '3.27',
+            'Locale::Codes::LangVar_Retired'=> '3.27',
+            'Locale::Codes::Language'=> '3.27',
+            'Locale::Codes::Language_Codes'=> '3.27',
+            'Locale::Codes::Language_Retired'=> '3.27',
+            'Locale::Codes::Script' => '3.27',
+            'Locale::Codes::Script_Codes'=> '3.27',
+            'Locale::Codes::Script_Retired'=> '3.27',
+            'Locale::Country'       => '3.27',
+            'Locale::Currency'      => '3.27',
+            'Locale::Language'      => '3.27',
+            'Locale::Script'        => '3.27',
+            'Math::BigFloat'        => '1.9991',
+            'Math::BigInt'          => '1.9993',
+            'Math::BigInt::FastCalc'=> '0.31',
+            'Module::CoreList'      => '2.99',
+            'Module::CoreList::TieHashDelta'=> '2.99',
+            'Module::CoreList::Utils'=> '2.99',
+            'Module::Load::Conditional'=> '0.58',
+            'Module::Metadata'      => '1.000018',
+            'Opcode'                => '1.26',
+            'POSIX'                 => '1.35',
+            'Parse::CPAN::Meta'     => '1.4407',
+            'Perl::OSType'          => '1.005',
+            'Pod::Html'             => '1.21',
+            'Scalar::Util'          => '1.32',
+            'Socket'                => '2.012',
+            'Storable'              => '2.47',
+            'Term::ReadLine'        => '1.14',
+            'Test::Builder'         => '0.98_06',
+            'Test::Builder::Module' => '0.98_06',
+            'Test::More'            => '0.98_06',
+            'Test::Simple'          => '0.98_06',
+            'Time::Piece'           => '1.23',
+            'Time::Seconds'         => '1.23',
+            'Unicode::Collate'      => '0.99',
+            'Unicode::UCD'          => '0.54',
+            'XS::APItest'           => '0.56',
+            'XS::Typemap'           => '0.11',
+            '_charnames'            => '1.39',
+            'autodie'               => '2.21',
+            'autodie::exception'    => '2.21',
+            'autodie::exception::system'=> '2.21',
+            'autodie::hints'        => '2.21',
+            'autodie::skip'         => '2.21',
+            'charnames'             => '1.39',
+            'diagnostics'           => '1.33',
+            'mro'                   => '1.14',
+            'parent'                => '0.228',
+            'perlfaq'               => '5.0150044',
+            're'                    => '0.26',
+            'version'               => '0.9904',
+            'warnings'              => '1.19',
+        },
+        removed => {
+        }
+    },
+    5.019005 => {
+        delta_from => 5.019004,
+        changed => {
+            'App::Prove'            => '3.29',
+            'App::Prove::State'     => '3.29',
+            'App::Prove::State::Result'=> '3.29',
+            'App::Prove::State::Result::Test'=> '3.29',
+            'CPAN::Meta'            => '2.132830',
+            'CPAN::Meta::Converter' => '2.132830',
+            'CPAN::Meta::Feature'   => '2.132830',
+            'CPAN::Meta::History'   => '2.132830',
+            'CPAN::Meta::Prereqs'   => '2.132830',
+            'CPAN::Meta::Requirements'=> '2.125',
+            'CPAN::Meta::Spec'      => '2.132830',
+            'CPAN::Meta::Validator' => '2.132830',
+            'CPAN::Meta::YAML'      => '0.010',
+            'Config'                => '5.019005',
+            'Cwd'                   => '3.45',
+            'ExtUtils::Command::MM' => '6.80',
+            'ExtUtils::Install'     => '1.61',
+            'ExtUtils::Liblist'     => '6.80',
+            'ExtUtils::Liblist::Kid'=> '6.80',
+            'ExtUtils::MM'          => '6.80',
+            'ExtUtils::MM_AIX'      => '6.80',
+            'ExtUtils::MM_Any'      => '6.80',
+            'ExtUtils::MM_BeOS'     => '6.80',
+            'ExtUtils::MM_Cygwin'   => '6.80',
+            'ExtUtils::MM_DOS'      => '6.80',
+            'ExtUtils::MM_Darwin'   => '6.80',
+            'ExtUtils::MM_MacOS'    => '6.80',
+            'ExtUtils::MM_NW5'      => '6.80',
+            'ExtUtils::MM_OS2'      => '6.80',
+            'ExtUtils::MM_QNX'      => '6.80',
+            'ExtUtils::MM_UWIN'     => '6.80',
+            'ExtUtils::MM_Unix'     => '6.80',
+            'ExtUtils::MM_VMS'      => '6.80',
+            'ExtUtils::MM_VOS'      => '6.80',
+            'ExtUtils::MM_Win32'    => '6.80',
+            'ExtUtils::MM_Win95'    => '6.80',
+            'ExtUtils::MY'          => '6.80',
+            'ExtUtils::MakeMaker'   => '6.80',
+            'ExtUtils::MakeMaker::Config'=> '6.80',
+            'ExtUtils::Mkbootstrap' => '6.80',
+            'ExtUtils::Mksymlists'  => '6.80',
+            'ExtUtils::testlib'     => '6.80',
+            'Fatal'                 => '2.22',
+            'File::Fetch'           => '0.44',
+            'File::Glob'            => '1.22',
+            'File::Spec'            => '3.45',
+            'File::Spec::Cygwin'    => '3.45',
+            'File::Spec::Epoc'      => '3.45',
+            'File::Spec::Functions' => '3.45',
+            'File::Spec::Mac'       => '3.45',
+            'File::Spec::OS2'       => '3.45',
+            'File::Spec::Unix'      => '3.45',
+            'File::Spec::VMS'       => '3.45',
+            'File::Spec::Win32'     => '3.45',
+            'File::Temp'            => '0.2304',
+            'Getopt::Long'          => '2.42',
+            'HTTP::Tiny'            => '0.036',
+            'IPC::Cmd'              => '0.84_01',
+            'JSON::PP'              => '2.27203',
+            'List::Util'            => '1.35',
+            'List::Util::XS'        => '1.35',
+            'Module::CoreList'      => '3.00',
+            'Module::CoreList::TieHashDelta'=> '3.00',
+            'Module::CoreList::Utils'=> '3.00',
+            'Module::Metadata'      => '1.000019',
+            'Parse::CPAN::Meta'     => '1.4409',
+            'Perl::OSType'          => '1.006',
+            'PerlIO::scalar'        => '0.17',
+            'Pod::Man'              => '2.28',
+            'Pod::Text'             => '3.18',
+            'Pod::Text::Termcap'    => '2.08',
+            'Scalar::Util'          => '1.35',
+            'TAP::Base'             => '3.29',
+            'TAP::Formatter::Base'  => '3.29',
+            'TAP::Formatter::Color' => '3.29',
+            'TAP::Formatter::Console'=> '3.29',
+            'TAP::Formatter::Console::ParallelSession'=> '3.29',
+            'TAP::Formatter::Console::Session'=> '3.29',
+            'TAP::Formatter::File'  => '3.29',
+            'TAP::Formatter::File::Session'=> '3.29',
+            'TAP::Formatter::Session'=> '3.29',
+            'TAP::Harness'          => '3.29',
+            'TAP::Harness::Env'     => '3.29',
+            'TAP::Object'           => '3.29',
+            'TAP::Parser'           => '3.29',
+            'TAP::Parser::Aggregator'=> '3.29',
+            'TAP::Parser::Grammar'  => '3.29',
+            'TAP::Parser::Iterator' => '3.29',
+            'TAP::Parser::Iterator::Array'=> '3.29',
+            'TAP::Parser::Iterator::Process'=> '3.29',
+            'TAP::Parser::Iterator::Stream'=> '3.29',
+            'TAP::Parser::IteratorFactory'=> '3.29',
+            'TAP::Parser::Multiplexer'=> '3.29',
+            'TAP::Parser::Result'   => '3.29',
+            'TAP::Parser::Result::Bailout'=> '3.29',
+            'TAP::Parser::Result::Comment'=> '3.29',
+            'TAP::Parser::Result::Plan'=> '3.29',
+            'TAP::Parser::Result::Pragma'=> '3.29',
+            'TAP::Parser::Result::Test'=> '3.29',
+            'TAP::Parser::Result::Unknown'=> '3.29',
+            'TAP::Parser::Result::Version'=> '3.29',
+            'TAP::Parser::Result::YAML'=> '3.29',
+            'TAP::Parser::ResultFactory'=> '3.29',
+            'TAP::Parser::Scheduler'=> '3.29',
+            'TAP::Parser::Scheduler::Job'=> '3.29',
+            'TAP::Parser::Scheduler::Spinner'=> '3.29',
+            'TAP::Parser::Source'   => '3.29',
+            'TAP::Parser::SourceHandler'=> '3.29',
+            'TAP::Parser::SourceHandler::Executable'=> '3.29',
+            'TAP::Parser::SourceHandler::File'=> '3.29',
+            'TAP::Parser::SourceHandler::Handle'=> '3.29',
+            'TAP::Parser::SourceHandler::Perl'=> '3.29',
+            'TAP::Parser::SourceHandler::RawTAP'=> '3.29',
+            'TAP::Parser::YAMLish::Reader'=> '3.29',
+            'TAP::Parser::YAMLish::Writer'=> '3.29',
+            'Test::Builder'         => '0.99',
+            'Test::Builder::Module' => '0.99',
+            'Test::Builder::Tester' => '1.23_002',
+            'Test::Builder::Tester::Color'=> '1.23_002',
+            'Test::Harness'         => '3.29',
+            'Test::More'            => '0.99',
+            'Test::Simple'          => '0.99',
+            'Unicode'               => '6.3.0',
+            'Unicode::Normalize'    => '1.17',
+            'Unicode::UCD'          => '0.55',
+            'attributes'            => '0.22',
+            'autodie'               => '2.22',
+            'autodie::exception'    => '2.22',
+            'autodie::exception::system'=> '2.22',
+            'autodie::hints'        => '2.22',
+            'autodie::skip'         => '2.22',
+            'feature'               => '1.34',
+            'threads'               => '1.89',
+            'warnings'              => '1.20',
+        },
+        removed => {
+            'TAP::Parser::Utils'    => 1,
+        }
+    },
+    5.019006 => {
+        delta_from => 5.019005,
+        changed => {
+            'App::Prove'            => '3.30',
+            'App::Prove::State'     => '3.30',
+            'App::Prove::State::Result'=> '3.30',
+            'App::Prove::State::Result::Test'=> '3.30',
+            'Archive::Tar'          => '1.96',
+            'Archive::Tar::Constant'=> '1.96',
+            'Archive::Tar::File'    => '1.96',
+            'AutoLoader'            => '5.74',
+            'B'                     => '1.47',
+            'B::Concise'            => '0.991',
+            'B::Debug'              => '1.19',
+            'B::Deparse'            => '1.24',
+            'Benchmark'             => '1.18',
+            'Compress::Raw::Bzip2'  => '2.063',
+            'Compress::Raw::Zlib'   => '2.063',
+            'Compress::Zlib'        => '2.063',
+            'Config'                => '5.019006',
+            'DB_File'               => '1.831',
+            'Devel::Peek'           => '1.15',
+            'DynaLoader'            => '1.21',
+            'Errno'                 => '1.20_01',
+            'ExtUtils::Command::MM' => '6.82',
+            'ExtUtils::Liblist'     => '6.82',
+            'ExtUtils::Liblist::Kid'=> '6.82',
+            'ExtUtils::MM'          => '6.82',
+            'ExtUtils::MM_AIX'      => '6.82',
+            'ExtUtils::MM_Any'      => '6.82',
+            'ExtUtils::MM_BeOS'     => '6.82',
+            'ExtUtils::MM_Cygwin'   => '6.82',
+            'ExtUtils::MM_DOS'      => '6.82',
+            'ExtUtils::MM_Darwin'   => '6.82',
+            'ExtUtils::MM_MacOS'    => '6.82',
+            'ExtUtils::MM_NW5'      => '6.82',
+            'ExtUtils::MM_OS2'      => '6.82',
+            'ExtUtils::MM_QNX'      => '6.82',
+            'ExtUtils::MM_UWIN'     => '6.82',
+            'ExtUtils::MM_Unix'     => '6.82',
+            'ExtUtils::MM_VMS'      => '6.82',
+            'ExtUtils::MM_VOS'      => '6.82',
+            'ExtUtils::MM_Win32'    => '6.82',
+            'ExtUtils::MM_Win95'    => '6.82',
+            'ExtUtils::MY'          => '6.82',
+            'ExtUtils::MakeMaker'   => '6.82',
+            'ExtUtils::MakeMaker::Config'=> '6.82',
+            'ExtUtils::Mkbootstrap' => '6.82',
+            'ExtUtils::Mksymlists'  => '6.82',
+            'ExtUtils::testlib'     => '6.82',
+            'File::DosGlob'         => '1.12',
+            'File::Find'            => '1.26',
+            'File::Glob'            => '1.23',
+            'HTTP::Tiny'            => '0.038',
+            'IO'                    => '1.30',
+            'IO::Compress::Adapter::Bzip2'=> '2.063',
+            'IO::Compress::Adapter::Deflate'=> '2.063',
+            'IO::Compress::Adapter::Identity'=> '2.063',
+            'IO::Compress::Base'    => '2.063',
+            'IO::Compress::Base::Common'=> '2.063',
+            'IO::Compress::Bzip2'   => '2.063',
+            'IO::Compress::Deflate' => '2.063',
+            'IO::Compress::Gzip'    => '2.063',
+            'IO::Compress::Gzip::Constants'=> '2.063',
+            'IO::Compress::RawDeflate'=> '2.063',
+            'IO::Compress::Zip'     => '2.063',
+            'IO::Compress::Zip::Constants'=> '2.063',
+            'IO::Compress::Zlib::Constants'=> '2.063',
+            'IO::Compress::Zlib::Extra'=> '2.063',
+            'IO::Select'            => '1.22',
+            'IO::Uncompress::Adapter::Bunzip2'=> '2.063',
+            'IO::Uncompress::Adapter::Identity'=> '2.063',
+            'IO::Uncompress::Adapter::Inflate'=> '2.063',
+            'IO::Uncompress::AnyInflate'=> '2.063',
+            'IO::Uncompress::AnyUncompress'=> '2.063',
+            'IO::Uncompress::Base'  => '2.063',
+            'IO::Uncompress::Bunzip2'=> '2.063',
+            'IO::Uncompress::Gunzip'=> '2.063',
+            'IO::Uncompress::Inflate'=> '2.063',
+            'IO::Uncompress::RawInflate'=> '2.063',
+            'IO::Uncompress::Unzip' => '2.063',
+            'IPC::Cmd'              => '0.90',
+            'Locale::Maketext'      => '1.25',
+            'Module::Build'         => '0.4202',
+            'Module::Build::Base'   => '0.4202',
+            'Module::Build::Compat' => '0.4202',
+            'Module::Build::Config' => '0.4202',
+            'Module::Build::Cookbook'=> '0.4202',
+            'Module::Build::Dumper' => '0.4202',
+            'Module::Build::ModuleInfo'=> '0.4202',
+            'Module::Build::Notes'  => '0.4202',
+            'Module::Build::PPMMaker'=> '0.4202',
+            'Module::Build::Platform::Default'=> '0.4202',
+            'Module::Build::Platform::MacOS'=> '0.4202',
+            'Module::Build::Platform::Unix'=> '0.4202',
+            'Module::Build::Platform::VMS'=> '0.4202',
+            'Module::Build::Platform::VOS'=> '0.4202',
+            'Module::Build::Platform::Windows'=> '0.4202',
+            'Module::Build::Platform::aix'=> '0.4202',
+            'Module::Build::Platform::cygwin'=> '0.4202',
+            'Module::Build::Platform::darwin'=> '0.4202',
+            'Module::Build::Platform::os2'=> '0.4202',
+            'Module::Build::PodParser'=> '0.4202',
+            'Module::CoreList'      => '3.01',
+            'Module::CoreList::TieHashDelta'=> '3.01',
+            'Module::CoreList::Utils'=> '3.01',
+            'Opcode'                => '1.27',
+            'POSIX'                 => '1.36',
+            'Package::Constants'    => '0.04',
+            'PerlIO::scalar'        => '0.18',
+            'PerlIO::via'           => '0.13',
+            'SDBM_File'             => '1.10',
+            'Socket'                => '2.013',
+            'TAP::Base'             => '3.30',
+            'TAP::Formatter::Base'  => '3.30',
+            'TAP::Formatter::Color' => '3.30',
+            'TAP::Formatter::Console'=> '3.30',
+            'TAP::Formatter::Console::ParallelSession'=> '3.30',
+            'TAP::Formatter::Console::Session'=> '3.30',
+            'TAP::Formatter::File'  => '3.30',
+            'TAP::Formatter::File::Session'=> '3.30',
+            'TAP::Formatter::Session'=> '3.30',
+            'TAP::Harness'          => '3.30',
+            'TAP::Harness::Env'     => '3.30',
+            'TAP::Object'           => '3.30',
+            'TAP::Parser'           => '3.30',
+            'TAP::Parser::Aggregator'=> '3.30',
+            'TAP::Parser::Grammar'  => '3.30',
+            'TAP::Parser::Iterator' => '3.30',
+            'TAP::Parser::Iterator::Array'=> '3.30',
+            'TAP::Parser::Iterator::Process'=> '3.30',
+            'TAP::Parser::Iterator::Stream'=> '3.30',
+            'TAP::Parser::IteratorFactory'=> '3.30',
+            'TAP::Parser::Multiplexer'=> '3.30',
+            'TAP::Parser::Result'   => '3.30',
+            'TAP::Parser::Result::Bailout'=> '3.30',
+            'TAP::Parser::Result::Comment'=> '3.30',
+            'TAP::Parser::Result::Plan'=> '3.30',
+            'TAP::Parser::Result::Pragma'=> '3.30',
+            'TAP::Parser::Result::Test'=> '3.30',
+            'TAP::Parser::Result::Unknown'=> '3.30',
+            'TAP::Parser::Result::Version'=> '3.30',
+            'TAP::Parser::Result::YAML'=> '3.30',
+            'TAP::Parser::ResultFactory'=> '3.30',
+            'TAP::Parser::Scheduler'=> '3.30',
+            'TAP::Parser::Scheduler::Job'=> '3.30',
+            'TAP::Parser::Scheduler::Spinner'=> '3.30',
+            'TAP::Parser::Source'   => '3.30',
+            'TAP::Parser::SourceHandler'=> '3.30',
+            'TAP::Parser::SourceHandler::Executable'=> '3.30',
+            'TAP::Parser::SourceHandler::File'=> '3.30',
+            'TAP::Parser::SourceHandler::Handle'=> '3.30',
+            'TAP::Parser::SourceHandler::Perl'=> '3.30',
+            'TAP::Parser::SourceHandler::RawTAP'=> '3.30',
+            'TAP::Parser::YAMLish::Reader'=> '3.30',
+            'TAP::Parser::YAMLish::Writer'=> '3.30',
+            'Term::Cap'             => '1.15',
+            'Test::Builder'         => '1.001002',
+            'Test::Builder::Module' => '1.001002',
+            'Test::Harness'         => '3.30',
+            'Test::More'            => '1.001002',
+            'Test::Simple'          => '1.001002',
+            'Tie::StdHandle'        => '4.4',
+            'Unicode::Collate'      => '1.02',
+            'Unicode::Collate::CJK::Korean'=> '1.02',
+            'Unicode::Collate::Locale'=> '1.02',
+            'XS::APItest'           => '0.57',
+            'XS::Typemap'           => '0.12',
+            'arybase'               => '0.07',
+            'bignum'                => '0.37',
+            'constant'              => '1.29',
+            'fields'                => '2.17',
+            'inc::latest'           => '0.4202',
+            'threads'               => '1.90',
+            'threads::shared'       => '1.45',
+        },
+        removed => {
+        }
+    },
+    5.019007 => {
+        delta_from => 5.019006,
+        changed => {
+            'CGI'                   => '3.64',
+            'CGI::Apache'           => '1.02',
+            'CGI::Carp'             => '3.64',
+            'CGI::Cookie'           => '1.31',
+            'CGI::Fast'             => '1.10',
+            'CGI::Pretty'           => '3.64',
+            'CGI::Push'             => '1.06',
+            'CGI::Switch'           => '1.02',
+            'CGI::Util'             => '3.64',
+            'CPAN::Meta'            => '2.133380',
+            'CPAN::Meta::Converter' => '2.133380',
+            'CPAN::Meta::Feature'   => '2.133380',
+            'CPAN::Meta::History'   => '2.133380',
+            'CPAN::Meta::Prereqs'   => '2.133380',
+            'CPAN::Meta::Spec'      => '2.133380',
+            'CPAN::Meta::Validator' => '2.133380',
+            'Config'                => '5.019007',
+            'Data::Dumper'          => '2.150',
+            'DynaLoader'            => '1.22',
+            'ExtUtils::Command::MM' => '6.84',
+            'ExtUtils::Liblist'     => '6.84',
+            'ExtUtils::Liblist::Kid'=> '6.84',
+            'ExtUtils::MM'          => '6.84',
+            'ExtUtils::MM_AIX'      => '6.84',
+            'ExtUtils::MM_Any'      => '6.84',
+            'ExtUtils::MM_BeOS'     => '6.84',
+            'ExtUtils::MM_Cygwin'   => '6.84',
+            'ExtUtils::MM_DOS'      => '6.84',
+            'ExtUtils::MM_Darwin'   => '6.84',
+            'ExtUtils::MM_MacOS'    => '6.84',
+            'ExtUtils::MM_NW5'      => '6.84',
+            'ExtUtils::MM_OS2'      => '6.84',
+            'ExtUtils::MM_QNX'      => '6.84',
+            'ExtUtils::MM_UWIN'     => '6.84',
+            'ExtUtils::MM_Unix'     => '6.84',
+            'ExtUtils::MM_VMS'      => '6.84',
+            'ExtUtils::MM_VOS'      => '6.84',
+            'ExtUtils::MM_Win32'    => '6.84',
+            'ExtUtils::MM_Win95'    => '6.84',
+            'ExtUtils::MY'          => '6.84',
+            'ExtUtils::MakeMaker'   => '6.84',
+            'ExtUtils::MakeMaker::Config'=> '6.84',
+            'ExtUtils::Mkbootstrap' => '6.84',
+            'ExtUtils::Mksymlists'  => '6.84',
+            'ExtUtils::testlib'     => '6.84',
+            'File::Fetch'           => '0.46',
+            'HTTP::Tiny'            => '0.039',
+            'Locale::Codes'         => '3.28',
+            'Locale::Codes::Constants'=> '3.28',
+            'Locale::Codes::Country'=> '3.28',
+            'Locale::Codes::Country_Codes'=> '3.28',
+            'Locale::Codes::Country_Retired'=> '3.28',
+            'Locale::Codes::Currency'=> '3.28',
+            'Locale::Codes::Currency_Codes'=> '3.28',
+            'Locale::Codes::Currency_Retired'=> '3.28',
+            'Locale::Codes::LangExt'=> '3.28',
+            'Locale::Codes::LangExt_Codes'=> '3.28',
+            'Locale::Codes::LangExt_Retired'=> '3.28',
+            'Locale::Codes::LangFam'=> '3.28',
+            'Locale::Codes::LangFam_Codes'=> '3.28',
+            'Locale::Codes::LangFam_Retired'=> '3.28',
+            'Locale::Codes::LangVar'=> '3.28',
+            'Locale::Codes::LangVar_Codes'=> '3.28',
+            'Locale::Codes::LangVar_Retired'=> '3.28',
+            'Locale::Codes::Language'=> '3.28',
+            'Locale::Codes::Language_Codes'=> '3.28',
+            'Locale::Codes::Language_Retired'=> '3.28',
+            'Locale::Codes::Script' => '3.28',
+            'Locale::Codes::Script_Codes'=> '3.28',
+            'Locale::Codes::Script_Retired'=> '3.28',
+            'Locale::Country'       => '3.28',
+            'Locale::Currency'      => '3.28',
+            'Locale::Language'      => '3.28',
+            'Locale::Script'        => '3.28',
+            'Module::Build'         => '0.4203',
+            'Module::Build::Base'   => '0.4203',
+            'Module::Build::Compat' => '0.4203',
+            'Module::Build::Config' => '0.4203',
+            'Module::Build::Cookbook'=> '0.4203',
+            'Module::Build::Dumper' => '0.4203',
+            'Module::Build::ModuleInfo'=> '0.4203',
+            'Module::Build::Notes'  => '0.4203',
+            'Module::Build::PPMMaker'=> '0.4203',
+            'Module::Build::Platform::Default'=> '0.4203',
+            'Module::Build::Platform::MacOS'=> '0.4203',
+            'Module::Build::Platform::Unix'=> '0.4203',
+            'Module::Build::Platform::VMS'=> '0.4203',
+            'Module::Build::Platform::VOS'=> '0.4203',
+            'Module::Build::Platform::Windows'=> '0.4203',
+            'Module::Build::Platform::aix'=> '0.4203',
+            'Module::Build::Platform::cygwin'=> '0.4203',
+            'Module::Build::Platform::darwin'=> '0.4203',
+            'Module::Build::Platform::os2'=> '0.4203',
+            'Module::Build::PodParser'=> '0.4203',
+            'Module::CoreList'      => '3.02',
+            'Module::CoreList::TieHashDelta'=> '3.02',
+            'Module::CoreList::Utils'=> '3.02',
+            'POSIX'                 => '1.37',
+            'PerlIO::encoding'      => '0.17',
+            'PerlIO::via'           => '0.14',
+            'SDBM_File'             => '1.11',
+            'Storable'              => '2.48',
+            'Time::Piece'           => '1.24',
+            'Time::Seconds'         => '1.24',
+            'Unicode::Collate'      => '1.04',
+            'Win32'                 => '0.48',
+            'XS::APItest'           => '0.58',
+            'base'                  => '2.20',
+            'constant'              => '1.30',
+            'inc::latest'           => '0.4203',
+            'threads'               => '1.91',
+        },
+        removed => {
+        }
+    },
+    5.019008 => {
+        delta_from => 5.019007,
+        changed => {
+            'Config'                => '5.019008',
+            'DynaLoader'            => '1.24',
+            'Encode'                => '2.57',
+            'Errno'                 => '1.20_02',
+            'ExtUtils::CBuilder'    => '0.280213',
+            'ExtUtils::CBuilder::Base'=> '0.280213',
+            'ExtUtils::CBuilder::Platform::Unix'=> '0.280213',
+            'ExtUtils::CBuilder::Platform::VMS'=> '0.280213',
+            'ExtUtils::CBuilder::Platform::Windows'=> '0.280213',
+            'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.280213',
+            'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.280213',
+            'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.280213',
+            'ExtUtils::CBuilder::Platform::aix'=> '0.280213',
+            'ExtUtils::CBuilder::Platform::cygwin'=> '0.280213',
+            'ExtUtils::CBuilder::Platform::darwin'=> '0.280213',
+            'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280213',
+            'ExtUtils::CBuilder::Platform::os2'=> '0.280213',
+            'ExtUtils::Command::MM' => '6.86',
+            'ExtUtils::Liblist'     => '6.86',
+            'ExtUtils::Liblist::Kid'=> '6.86',
+            'ExtUtils::MM'          => '6.86',
+            'ExtUtils::MM_AIX'      => '6.86',
+            'ExtUtils::MM_Any'      => '6.86',
+            'ExtUtils::MM_BeOS'     => '6.86',
+            'ExtUtils::MM_Cygwin'   => '6.86',
+            'ExtUtils::MM_DOS'      => '6.86',
+            'ExtUtils::MM_Darwin'   => '6.86',
+            'ExtUtils::MM_MacOS'    => '6.86',
+            'ExtUtils::MM_NW5'      => '6.86',
+            'ExtUtils::MM_OS2'      => '6.86',
+            'ExtUtils::MM_QNX'      => '6.86',
+            'ExtUtils::MM_UWIN'     => '6.86',
+            'ExtUtils::MM_Unix'     => '6.86',
+            'ExtUtils::MM_VMS'      => '6.86',
+            'ExtUtils::MM_VOS'      => '6.86',
+            'ExtUtils::MM_Win32'    => '6.86',
+            'ExtUtils::MM_Win95'    => '6.86',
+            'ExtUtils::MY'          => '6.86',
+            'ExtUtils::MakeMaker'   => '6.86',
+            'ExtUtils::MakeMaker::Config'=> '6.86',
+            'ExtUtils::Mkbootstrap' => '6.86',
+            'ExtUtils::Mksymlists'  => '6.86',
+            'ExtUtils::testlib'     => '6.86',
+            'File::Copy'            => '2.29',
+            'Hash::Util::FieldHash' => '1.14',
+            'IO::Socket::IP'        => '0.26',
+            'IO::Socket::UNIX'      => '1.26',
+            'List::Util'            => '1.36',
+            'List::Util::XS'        => '1.36',
+            'Module::Build'         => '0.4204',
+            'Module::Build::Base'   => '0.4204',
+            'Module::Build::Compat' => '0.4204',
+            'Module::Build::Config' => '0.4204',
+            'Module::Build::Cookbook'=> '0.4204',
+            'Module::Build::Dumper' => '0.4204',
+            'Module::Build::ModuleInfo'=> '0.4204',
+            'Module::Build::Notes'  => '0.4204',
+            'Module::Build::PPMMaker'=> '0.4204',
+            'Module::Build::Platform::Default'=> '0.4204',
+            'Module::Build::Platform::MacOS'=> '0.4204',
+            'Module::Build::Platform::Unix'=> '0.4204',
+            'Module::Build::Platform::VMS'=> '0.4204',
+            'Module::Build::Platform::VOS'=> '0.4204',
+            'Module::Build::Platform::Windows'=> '0.4204',
+            'Module::Build::Platform::aix'=> '0.4204',
+            'Module::Build::Platform::cygwin'=> '0.4204',
+            'Module::Build::Platform::darwin'=> '0.4204',
+            'Module::Build::Platform::os2'=> '0.4204',
+            'Module::Build::PodParser'=> '0.4204',
+            'Module::CoreList'      => '3.04',
+            'Module::CoreList::TieHashDelta'=> '3.04',
+            'Module::CoreList::Utils'=> '3.04',
+            'Module::Load'          => '0.28',
+            'Module::Load::Conditional'=> '0.60',
+            'Net::Config'           => '1.13',
+            'Net::FTP::A'           => '1.19',
+            'POSIX'                 => '1.38_01',
+            'Perl::OSType'          => '1.007',
+            'PerlIO::encoding'      => '0.18',
+            'Pod::Perldoc'          => '3.21',
+            'Pod::Perldoc::BaseTo'  => '3.21',
+            'Pod::Perldoc::GetOptsOO'=> '3.21',
+            'Pod::Perldoc::ToANSI'  => '3.21',
+            'Pod::Perldoc::ToChecker'=> '3.21',
+            'Pod::Perldoc::ToMan'   => '3.21',
+            'Pod::Perldoc::ToNroff' => '3.21',
+            'Pod::Perldoc::ToPod'   => '3.21',
+            'Pod::Perldoc::ToRtf'   => '3.21',
+            'Pod::Perldoc::ToTerm'  => '3.21',
+            'Pod::Perldoc::ToText'  => '3.21',
+            'Pod::Perldoc::ToTk'    => '3.21',
+            'Pod::Perldoc::ToXml'   => '3.21',
+            'Scalar::Util'          => '1.36',
+            'Time::Piece'           => '1.27',
+            'Time::Seconds'         => '1.27',
+            'Unicode::UCD'          => '0.57',
+            'XS::APItest'           => '0.59',
+            'XSLoader'              => '0.17',
+            'base'                  => '2.21',
+            'constant'              => '1.31',
+            'inc::latest'           => '0.4204',
+            'threads::shared'       => '1.46',
+            'version'               => '0.9907',
+            'version::regex'        => '0.9907',
+            'version::vpp'          => '0.9907',
+            'warnings'              => '1.21',
+        },
+        removed => {
+        }
+    },
+    5.019009 => {
+        delta_from => 5.019008,
+        changed => {
+            'B'                     => '1.48',
+            'B::Concise'            => '0.992',
+            'B::Deparse'            => '1.25',
+            'CGI'                   => '3.65',
+            'CPAN::Meta::YAML'      => '0.011',
+            'Compress::Raw::Bzip2'  => '2.064',
+            'Compress::Raw::Zlib'   => '2.065',
+            'Compress::Zlib'        => '2.064',
+            'Config'                => '5.019009',
+            'Config::Perl::V'       => '0.20',
+            'Cwd'                   => '3.47',
+            'Devel::Peek'           => '1.16',
+            'Digest::SHA'           => '5.87',
+            'DynaLoader'            => '1.25',
+            'English'               => '1.09',
+            'ExtUtils::CBuilder'    => '0.280216',
+            'ExtUtils::CBuilder::Base'=> '0.280216',
+            'ExtUtils::CBuilder::Platform::Unix'=> '0.280216',
+            'ExtUtils::CBuilder::Platform::VMS'=> '0.280216',
+            'ExtUtils::CBuilder::Platform::Windows'=> '0.280216',
+            'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.280216',
+            'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.280216',
+            'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.280216',
+            'ExtUtils::CBuilder::Platform::aix'=> '0.280216',
+            'ExtUtils::CBuilder::Platform::android'=> '0.280216',
+            'ExtUtils::CBuilder::Platform::cygwin'=> '0.280216',
+            'ExtUtils::CBuilder::Platform::darwin'=> '0.280216',
+            'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280216',
+            'ExtUtils::CBuilder::Platform::os2'=> '0.280216',
+            'ExtUtils::Command::MM' => '6.88',
+            'ExtUtils::Embed'       => '1.32',
+            'ExtUtils::Install'     => '1.62',
+            'ExtUtils::Installed'   => '1.999004',
+            'ExtUtils::Liblist'     => '6.88',
+            'ExtUtils::Liblist::Kid'=> '6.88',
+            'ExtUtils::MM'          => '6.88',
+            'ExtUtils::MM_AIX'      => '6.88',
+            'ExtUtils::MM_Any'      => '6.88',
+            'ExtUtils::MM_BeOS'     => '6.88',
+            'ExtUtils::MM_Cygwin'   => '6.88',
+            'ExtUtils::MM_DOS'      => '6.88',
+            'ExtUtils::MM_Darwin'   => '6.88',
+            'ExtUtils::MM_MacOS'    => '6.88',
+            'ExtUtils::MM_NW5'      => '6.88',
+            'ExtUtils::MM_OS2'      => '6.88',
+            'ExtUtils::MM_QNX'      => '6.88',
+            'ExtUtils::MM_UWIN'     => '6.88',
+            'ExtUtils::MM_Unix'     => '6.88',
+            'ExtUtils::MM_VMS'      => '6.88',
+            'ExtUtils::MM_VOS'      => '6.88',
+            'ExtUtils::MM_Win32'    => '6.88',
+            'ExtUtils::MM_Win95'    => '6.88',
+            'ExtUtils::MY'          => '6.88',
+            'ExtUtils::MakeMaker'   => '6.88',
+            'ExtUtils::MakeMaker::Config'=> '6.88',
+            'ExtUtils::Mkbootstrap' => '6.88',
+            'ExtUtils::Mksymlists'  => '6.88',
+            'ExtUtils::Packlist'    => '1.47',
+            'ExtUtils::testlib'     => '6.88',
+            'Fatal'                 => '2.23',
+            'File::Fetch'           => '0.48',
+            'File::Spec'            => '3.47',
+            'File::Spec::Cygwin'    => '3.47',
+            'File::Spec::Epoc'      => '3.47',
+            'File::Spec::Functions' => '3.47',
+            'File::Spec::Mac'       => '3.47',
+            'File::Spec::OS2'       => '3.47',
+            'File::Spec::Unix'      => '3.47',
+            'File::Spec::VMS'       => '3.47',
+            'File::Spec::Win32'     => '3.47',
+            'HTTP::Tiny'            => '0.042',
+            'IO::Compress::Adapter::Bzip2'=> '2.064',
+            'IO::Compress::Adapter::Deflate'=> '2.064',
+            'IO::Compress::Adapter::Identity'=> '2.064',
+            'IO::Compress::Base'    => '2.064',
+            'IO::Compress::Base::Common'=> '2.064',
+            'IO::Compress::Bzip2'   => '2.064',
+            'IO::Compress::Deflate' => '2.064',
+            'IO::Compress::Gzip'    => '2.064',
+            'IO::Compress::Gzip::Constants'=> '2.064',
+            'IO::Compress::RawDeflate'=> '2.064',
+            'IO::Compress::Zip'     => '2.064',
+            'IO::Compress::Zip::Constants'=> '2.064',
+            'IO::Compress::Zlib::Constants'=> '2.064',
+            'IO::Compress::Zlib::Extra'=> '2.064',
+            'IO::Socket::INET'      => '1.35',
+            'IO::Socket::IP'        => '0.28',
+            'IO::Uncompress::Adapter::Bunzip2'=> '2.064',
+            'IO::Uncompress::Adapter::Identity'=> '2.064',
+            'IO::Uncompress::Adapter::Inflate'=> '2.064',
+            'IO::Uncompress::AnyInflate'=> '2.064',
+            'IO::Uncompress::AnyUncompress'=> '2.064',
+            'IO::Uncompress::Base'  => '2.064',
+            'IO::Uncompress::Bunzip2'=> '2.064',
+            'IO::Uncompress::Gunzip'=> '2.064',
+            'IO::Uncompress::Inflate'=> '2.064',
+            'IO::Uncompress::RawInflate'=> '2.064',
+            'IO::Uncompress::Unzip' => '2.064',
+            'IPC::Cmd'              => '0.92',
+            'List::Util'            => '1.38',
+            'List::Util::XS'        => '1.38',
+            'Locale::Codes'         => '3.29',
+            'Locale::Codes::Constants'=> '3.29',
+            'Locale::Codes::Country'=> '3.29',
+            'Locale::Codes::Country_Codes'=> '3.29',
+            'Locale::Codes::Country_Retired'=> '3.29',
+            'Locale::Codes::Currency'=> '3.29',
+            'Locale::Codes::Currency_Codes'=> '3.29',
+            'Locale::Codes::Currency_Retired'=> '3.29',
+            'Locale::Codes::LangExt'=> '3.29',
+            'Locale::Codes::LangExt_Codes'=> '3.29',
+            'Locale::Codes::LangExt_Retired'=> '3.29',
+            'Locale::Codes::LangFam'=> '3.29',
+            'Locale::Codes::LangFam_Codes'=> '3.29',
+            'Locale::Codes::LangFam_Retired'=> '3.29',
+            'Locale::Codes::LangVar'=> '3.29',
+            'Locale::Codes::LangVar_Codes'=> '3.29',
+            'Locale::Codes::LangVar_Retired'=> '3.29',
+            'Locale::Codes::Language'=> '3.29',
+            'Locale::Codes::Language_Codes'=> '3.29',
+            'Locale::Codes::Language_Retired'=> '3.29',
+            'Locale::Codes::Script' => '3.29',
+            'Locale::Codes::Script_Codes'=> '3.29',
+            'Locale::Codes::Script_Retired'=> '3.29',
+            'Locale::Country'       => '3.29',
+            'Locale::Currency'      => '3.29',
+            'Locale::Language'      => '3.29',
+            'Locale::Script'        => '3.29',
+            'Module::Build'         => '0.4205',
+            'Module::Build::Base'   => '0.4205',
+            'Module::Build::Compat' => '0.4205',
+            'Module::Build::Config' => '0.4205',
+            'Module::Build::Cookbook'=> '0.4205',
+            'Module::Build::Dumper' => '0.4205',
+            'Module::Build::ModuleInfo'=> '0.4205',
+            'Module::Build::Notes'  => '0.4205',
+            'Module::Build::PPMMaker'=> '0.4205',
+            'Module::Build::Platform::Default'=> '0.4205',
+            'Module::Build::Platform::MacOS'=> '0.4205',
+            'Module::Build::Platform::Unix'=> '0.4205',
+            'Module::Build::Platform::VMS'=> '0.4205',
+            'Module::Build::Platform::VOS'=> '0.4205',
+            'Module::Build::Platform::Windows'=> '0.4205',
+            'Module::Build::Platform::aix'=> '0.4205',
+            'Module::Build::Platform::cygwin'=> '0.4205',
+            'Module::Build::Platform::darwin'=> '0.4205',
+            'Module::Build::Platform::os2'=> '0.4205',
+            'Module::Build::PodParser'=> '0.4205',
+            'Module::CoreList'      => '3.06',
+            'Module::CoreList::TieHashDelta'=> '3.06',
+            'Module::CoreList::Utils'=> '3.06',
+            'Module::Load'          => '0.30',
+            'Module::Load::Conditional'=> '0.62',
+            'Net::Domain'           => '2.23',
+            'Net::FTP'              => '2.79',
+            'Net::NNTP'             => '2.26',
+            'Net::POP3'             => '2.31',
+            'Net::Ping'             => '2.43',
+            'Net::SMTP'             => '2.33',
+            'POSIX'                 => '1.38_02',
+            'Parse::CPAN::Meta'     => '1.4413',
+            'Pod::Escapes'          => '1.06',
+            'Pod::Find'             => '1.62',
+            'Pod::InputObjects'     => '1.62',
+            'Pod::ParseUtils'       => '1.62',
+            'Pod::Parser'           => '1.62',
+            'Pod::Select'           => '1.62',
+            'Scalar::Util'          => '1.38',
+            'autodie'               => '2.23',
+            'autodie::exception'    => '2.23',
+            'autodie::exception::system'=> '2.23',
+            'autodie::hints'        => '2.23',
+            'autodie::skip'         => '2.23',
+            'diagnostics'           => '1.34',
+            'feature'               => '1.35',
+            'inc::latest'           => '0.4205',
+            'locale'                => '1.03',
+            'mro'                   => '1.15',
+            'threads'               => '1.92',
+            'version'               => '0.9908',
+            'version::regex'        => '0.9908',
+            'version::vpp'          => '0.9908',
+            'warnings'              => '1.22',
+        },
+        removed => {
+        }
+    },
+    5.01901 => {
+        delta_from => 5.019009,
+        changed => {
+            'App::Cpan'             => '1.62',
+            'Attribute::Handlers'   => '0.96',
+            'B::Deparse'            => '1.26',
+            'CPAN'                  => '2.04',
+            'CPAN::Bundle'          => '5.5001',
+            'CPAN::Complete'        => '5.5001',
+            'CPAN::Distribution'    => '2.01',
+            'CPAN::Distroprefs'     => '6.0001',
+            'CPAN::FirstTime'       => '5.5305',
+            'CPAN::Meta'            => '2.140640',
+            'CPAN::Meta::Converter' => '2.140640',
+            'CPAN::Meta::Feature'   => '2.140640',
+            'CPAN::Meta::History'   => '2.140640',
+            'CPAN::Meta::Prereqs'   => '2.140640',
+            'CPAN::Meta::Spec'      => '2.140640',
+            'CPAN::Meta::Validator' => '2.140640',
+            'CPAN::Meta::YAML'      => '0.012',
+            'CPAN::Queue'           => '5.5002',
+            'CPAN::Shell'           => '5.5003',
+            'CPAN::Tarzip'          => '5.5012',
+            'CPAN::Version'         => '5.5003',
+            'Carp'                  => '1.33',
+            'Carp::Heavy'           => '1.33',
+            'Config'                => '5.019010',
+            'Data::Dumper'          => '2.151',
+            'Devel::PPPort'         => '3.22',
+            'Digest::SHA'           => '5.88',
+            'ExtUtils::Command::MM' => '6.92',
+            'ExtUtils::Install'     => '1.63',
+            'ExtUtils::Installed'   => '1.999005',
+            'ExtUtils::Liblist'     => '6.92',
+            'ExtUtils::Liblist::Kid'=> '6.92',
+            'ExtUtils::MM'          => '6.92',
+            'ExtUtils::MM_AIX'      => '6.92',
+            'ExtUtils::MM_Any'      => '6.92',
+            'ExtUtils::MM_BeOS'     => '6.92',
+            'ExtUtils::MM_Cygwin'   => '6.92',
+            'ExtUtils::MM_DOS'      => '6.92',
+            'ExtUtils::MM_Darwin'   => '6.92',
+            'ExtUtils::MM_MacOS'    => '6.92',
+            'ExtUtils::MM_NW5'      => '6.92',
+            'ExtUtils::MM_OS2'      => '6.92',
+            'ExtUtils::MM_QNX'      => '6.92',
+            'ExtUtils::MM_UWIN'     => '6.92',
+            'ExtUtils::MM_Unix'     => '6.92',
+            'ExtUtils::MM_VMS'      => '6.92',
+            'ExtUtils::MM_VOS'      => '6.92',
+            'ExtUtils::MM_Win32'    => '6.92',
+            'ExtUtils::MM_Win95'    => '6.92',
+            'ExtUtils::MY'          => '6.92',
+            'ExtUtils::MakeMaker'   => '6.92',
+            'ExtUtils::MakeMaker::Config'=> '6.92',
+            'ExtUtils::Mkbootstrap' => '6.92',
+            'ExtUtils::Mksymlists'  => '6.92',
+            'ExtUtils::Packlist'    => '1.48',
+            'ExtUtils::ParseXS'     => '3.24',
+            'ExtUtils::ParseXS::Constants'=> '3.24',
+            'ExtUtils::ParseXS::CountLines'=> '3.24',
+            'ExtUtils::ParseXS::Eval'=> '3.24',
+            'ExtUtils::ParseXS::Utilities'=> '3.24',
+            'ExtUtils::Typemaps'    => '3.24',
+            'ExtUtils::Typemaps::Cmd'=> '3.24',
+            'ExtUtils::Typemaps::InputMap'=> '3.24',
+            'ExtUtils::Typemaps::OutputMap'=> '3.24',
+            'ExtUtils::Typemaps::Type'=> '3.24',
+            'ExtUtils::testlib'     => '6.92',
+            'File::Find'            => '1.27',
+            'Filter::Simple'        => '0.91',
+            'HTTP::Tiny'            => '0.043',
+            'Hash::Util::FieldHash' => '1.15',
+            'IO'                    => '1.31',
+            'IO::Socket::IP'        => '0.29',
+            'Locale::Codes'         => '3.30',
+            'Locale::Codes::Constants'=> '3.30',
+            'Locale::Codes::Country'=> '3.30',
+            'Locale::Codes::Country_Codes'=> '3.30',
+            'Locale::Codes::Country_Retired'=> '3.30',
+            'Locale::Codes::Currency'=> '3.30',
+            'Locale::Codes::Currency_Codes'=> '3.30',
+            'Locale::Codes::Currency_Retired'=> '3.30',
+            'Locale::Codes::LangExt'=> '3.30',
+            'Locale::Codes::LangExt_Codes'=> '3.30',
+            'Locale::Codes::LangExt_Retired'=> '3.30',
+            'Locale::Codes::LangFam'=> '3.30',
+            'Locale::Codes::LangFam_Codes'=> '3.30',
+            'Locale::Codes::LangFam_Retired'=> '3.30',
+            'Locale::Codes::LangVar'=> '3.30',
+            'Locale::Codes::LangVar_Codes'=> '3.30',
+            'Locale::Codes::LangVar_Retired'=> '3.30',
+            'Locale::Codes::Language'=> '3.30',
+            'Locale::Codes::Language_Codes'=> '3.30',
+            'Locale::Codes::Language_Retired'=> '3.30',
+            'Locale::Codes::Script' => '3.30',
+            'Locale::Codes::Script_Codes'=> '3.30',
+            'Locale::Codes::Script_Retired'=> '3.30',
+            'Locale::Country'       => '3.30',
+            'Locale::Currency'      => '3.30',
+            'Locale::Language'      => '3.30',
+            'Locale::Script'        => '3.30',
+            'Module::CoreList'      => '3.09',
+            'Module::CoreList::TieHashDelta'=> '3.09',
+            'Module::CoreList::Utils'=> '3.09',
+            'Module::Load'          => '0.32',
+            'POSIX'                 => '1.38_03',
+            'Parse::CPAN::Meta'     => '1.4414',
+            'Pod::Perldoc'          => '3.23',
+            'Pod::Perldoc::BaseTo'  => '3.23',
+            'Pod::Perldoc::GetOptsOO'=> '3.23',
+            'Pod::Perldoc::ToANSI'  => '3.23',
+            'Pod::Perldoc::ToChecker'=> '3.23',
+            'Pod::Perldoc::ToMan'   => '3.23',
+            'Pod::Perldoc::ToNroff' => '3.23',
+            'Pod::Perldoc::ToPod'   => '3.23',
+            'Pod::Perldoc::ToRtf'   => '3.23',
+            'Pod::Perldoc::ToTerm'  => '3.23',
+            'Pod::Perldoc::ToText'  => '3.23',
+            'Pod::Perldoc::ToTk'    => '3.23',
+            'Pod::Perldoc::ToXml'   => '3.23',
+            'Thread::Queue'         => '3.05',
+            'XS::APItest'           => '0.60',
+            'XS::Typemap'           => '0.13',
+            'autouse'               => '1.08',
+            'base'                  => '2.22',
+            'charnames'             => '1.40',
+            'feature'               => '1.36',
+            'mro'                   => '1.16',
+            'threads'               => '1.93',
+            'warnings'              => '1.23',
+            'warnings::register'    => '1.03',
+        },
+        removed => {
+        }
+    },
+    5.019011 => {
+        delta_from => 5.01901,
+        changed => {
+            'CPAN'                  => '2.05',
+            'CPAN::Distribution'    => '2.02',
+            'CPAN::FirstTime'       => '5.5306',
+            'CPAN::Shell'           => '5.5004',
+            'Carp'                  => '1.3301',
+            'Carp::Heavy'           => '1.3301',
+            'Config'                => '5.019011',
+            'ExtUtils::Command::MM' => '6.94',
+            'ExtUtils::Install'     => '1.67',
+            'ExtUtils::Liblist'     => '6.94',
+            'ExtUtils::Liblist::Kid'=> '6.94',
+            'ExtUtils::MM'          => '6.94',
+            'ExtUtils::MM_AIX'      => '6.94',
+            'ExtUtils::MM_Any'      => '6.94',
+            'ExtUtils::MM_BeOS'     => '6.94',
+            'ExtUtils::MM_Cygwin'   => '6.94',
+            'ExtUtils::MM_DOS'      => '6.94',
+            'ExtUtils::MM_Darwin'   => '6.94',
+            'ExtUtils::MM_MacOS'    => '6.94',
+            'ExtUtils::MM_NW5'      => '6.94',
+            'ExtUtils::MM_OS2'      => '6.94',
+            'ExtUtils::MM_QNX'      => '6.94',
+            'ExtUtils::MM_UWIN'     => '6.94',
+            'ExtUtils::MM_Unix'     => '6.94',
+            'ExtUtils::MM_VMS'      => '6.94',
+            'ExtUtils::MM_VOS'      => '6.94',
+            'ExtUtils::MM_Win32'    => '6.94',
+            'ExtUtils::MM_Win95'    => '6.94',
+            'ExtUtils::MY'          => '6.94',
+            'ExtUtils::MakeMaker'   => '6.94',
+            'ExtUtils::MakeMaker::Config'=> '6.94',
+            'ExtUtils::Mkbootstrap' => '6.94',
+            'ExtUtils::Mksymlists'  => '6.94',
+            'ExtUtils::testlib'     => '6.94',
+            'Module::CoreList'      => '3.10',
+            'Module::CoreList::TieHashDelta'=> '3.10',
+            'Module::CoreList::Utils'=> '3.10',
+            'PerlIO'                => '1.09',
+            'Storable'              => '2.49',
+            'Win32'                 => '0.49',
+            'experimental'          => '0.007',
+        },
+        removed => {
+        }
+    },
+    5.020000 => {
+        delta_from => 5.019011,
+        changed => {
+            'Config'                => '5.02',
+            'Devel::PPPort'         => '3.21',
+            'Encode'                => '2.60',
+            'Errno'                 => '1.20_03',
+            'ExtUtils::Command::MM' => '6.98',
+            'ExtUtils::Liblist'     => '6.98',
+            'ExtUtils::Liblist::Kid'=> '6.98',
+            'ExtUtils::MM'          => '6.98',
+            'ExtUtils::MM_AIX'      => '6.98',
+            'ExtUtils::MM_Any'      => '6.98',
+            'ExtUtils::MM_BeOS'     => '6.98',
+            'ExtUtils::MM_Cygwin'   => '6.98',
+            'ExtUtils::MM_DOS'      => '6.98',
+            'ExtUtils::MM_Darwin'   => '6.98',
+            'ExtUtils::MM_MacOS'    => '6.98',
+            'ExtUtils::MM_NW5'      => '6.98',
+            'ExtUtils::MM_OS2'      => '6.98',
+            'ExtUtils::MM_QNX'      => '6.98',
+            'ExtUtils::MM_UWIN'     => '6.98',
+            'ExtUtils::MM_Unix'     => '6.98',
+            'ExtUtils::MM_VMS'      => '6.98',
+            'ExtUtils::MM_VOS'      => '6.98',
+            'ExtUtils::MM_Win32'    => '6.98',
+            'ExtUtils::MM_Win95'    => '6.98',
+            'ExtUtils::MY'          => '6.98',
+            'ExtUtils::MakeMaker'   => '6.98',
+            'ExtUtils::MakeMaker::Config'=> '6.98',
+            'ExtUtils::Miniperl'    => '1.01',
+            'ExtUtils::Mkbootstrap' => '6.98',
+            'ExtUtils::Mksymlists'  => '6.98',
+            'ExtUtils::testlib'     => '6.98',
+            'Pod::Functions::Functions'=> '1.08',
+        },
+        removed => {
+        }
+    },
+    5.021000 => {
+        delta_from => 5.020000,
+        changed => {
+            'Module::CoreList'      => '5.021001',
+            'Module::CoreList::TieHashDelta'=> '5.021001',
+            'Module::CoreList::Utils'=> '5.021001',
+            'feature'               => '1.37',
+        },
+        removed => {
+            'CGI'                   => 1,
+            'CGI::Apache'           => 1,
+            'CGI::Carp'             => 1,
+            'CGI::Cookie'           => 1,
+            'CGI::Fast'             => 1,
+            'CGI::Pretty'           => 1,
+            'CGI::Push'             => 1,
+            'CGI::Switch'           => 1,
+            'CGI::Util'             => 1,
+            'Module::Build'         => 1,
+            'Module::Build::Base'   => 1,
+            'Module::Build::Compat' => 1,
+            'Module::Build::Config' => 1,
+            'Module::Build::ConfigData'=> 1,
+            'Module::Build::Cookbook'=> 1,
+            'Module::Build::Dumper' => 1,
+            'Module::Build::ModuleInfo'=> 1,
+            'Module::Build::Notes'  => 1,
+            'Module::Build::PPMMaker'=> 1,
+            'Module::Build::Platform::Default'=> 1,
+            'Module::Build::Platform::MacOS'=> 1,
+            'Module::Build::Platform::Unix'=> 1,
+            'Module::Build::Platform::VMS'=> 1,
+            'Module::Build::Platform::VOS'=> 1,
+            'Module::Build::Platform::Windows'=> 1,
+            'Module::Build::Platform::aix'=> 1,
+            'Module::Build::Platform::cygwin'=> 1,
+            'Module::Build::Platform::darwin'=> 1,
+            'Module::Build::Platform::os2'=> 1,
+            'Module::Build::PodParser'=> 1,
+            'Module::Build::Version'=> 1,
+            'Module::Build::YAML'   => 1,
+            'Package::Constants'    => 1,
+            'inc::latest'           => 1,
+        }
+    },
+    5.021001 => {
+        delta_from => 5.021000,
+        changed => {
+            'App::Prove'            => '3.32',
+            'App::Prove::State'     => '3.32',
+            'App::Prove::State::Result'=> '3.32',
+            'App::Prove::State::Result::Test'=> '3.32',
+            'Archive::Tar'          => '2.00',
+            'Archive::Tar::Constant'=> '2.00',
+            'Archive::Tar::File'    => '2.00',
+            'B'                     => '1.49',
+            'B::Deparse'            => '1.27',
+            'Benchmark'             => '1.19',
+            'CPAN::Meta'            => '2.141520',
+            'CPAN::Meta::Converter' => '2.141520',
+            'CPAN::Meta::Feature'   => '2.141520',
+            'CPAN::Meta::History'   => '2.141520',
+            'CPAN::Meta::Prereqs'   => '2.141520',
+            'CPAN::Meta::Spec'      => '2.141520',
+            'CPAN::Meta::Validator' => '2.141520',
+            'Carp'                  => '1.34',
+            'Carp::Heavy'           => '1.34',
+            'Config'                => '5.021001',
+            'Cwd'                   => '3.48',
+            'Data::Dumper'          => '2.152',
+            'Devel::PPPort'         => '3.24',
+            'Devel::Peek'           => '1.17',
+            'Digest::SHA'           => '5.92',
+            'DynaLoader'            => '1.26',
+            'Encode'                => '2.62',
+            'Errno'                 => '1.20_04',
+            'Exporter'              => '5.71',
+            'Exporter::Heavy'       => '5.71',
+            'ExtUtils::Install'     => '1.68',
+            'ExtUtils::Miniperl'    => '1.02',
+            'ExtUtils::ParseXS'     => '3.25',
+            'ExtUtils::ParseXS::Constants'=> '3.25',
+            'ExtUtils::ParseXS::CountLines'=> '3.25',
+            'ExtUtils::ParseXS::Eval'=> '3.25',
+            'ExtUtils::ParseXS::Utilities'=> '3.25',
+            'ExtUtils::Typemaps'    => '3.25',
+            'ExtUtils::Typemaps::Cmd'=> '3.25',
+            'ExtUtils::Typemaps::InputMap'=> '3.25',
+            'ExtUtils::Typemaps::OutputMap'=> '3.25',
+            'ExtUtils::Typemaps::Type'=> '3.25',
+            'Fatal'                 => '2.25',
+            'File::Spec'            => '3.48',
+            'File::Spec::Cygwin'    => '3.48',
+            'File::Spec::Epoc'      => '3.48',
+            'File::Spec::Functions' => '3.48',
+            'File::Spec::Mac'       => '3.48',
+            'File::Spec::OS2'       => '3.48',
+            'File::Spec::Unix'      => '3.48',
+            'File::Spec::VMS'       => '3.48',
+            'File::Spec::Win32'     => '3.48',
+            'Hash::Util'            => '0.17',
+            'IO'                    => '1.32',
+            'List::Util'            => '1.39',
+            'List::Util::XS'        => '1.39',
+            'Locale::Codes'         => '3.31',
+            'Locale::Codes::Constants'=> '3.31',
+            'Locale::Codes::Country'=> '3.31',
+            'Locale::Codes::Country_Codes'=> '3.31',
+            'Locale::Codes::Country_Retired'=> '3.31',
+            'Locale::Codes::Currency'=> '3.31',
+            'Locale::Codes::Currency_Codes'=> '3.31',
+            'Locale::Codes::Currency_Retired'=> '3.31',
+            'Locale::Codes::LangExt'=> '3.31',
+            'Locale::Codes::LangExt_Codes'=> '3.31',
+            'Locale::Codes::LangExt_Retired'=> '3.31',
+            'Locale::Codes::LangFam'=> '3.31',
+            'Locale::Codes::LangFam_Codes'=> '3.31',
+            'Locale::Codes::LangFam_Retired'=> '3.31',
+            'Locale::Codes::LangVar'=> '3.31',
+            'Locale::Codes::LangVar_Codes'=> '3.31',
+            'Locale::Codes::LangVar_Retired'=> '3.31',
+            'Locale::Codes::Language'=> '3.31',
+            'Locale::Codes::Language_Codes'=> '3.31',
+            'Locale::Codes::Language_Retired'=> '3.31',
+            'Locale::Codes::Script' => '3.31',
+            'Locale::Codes::Script_Codes'=> '3.31',
+            'Locale::Codes::Script_Retired'=> '3.31',
+            'Locale::Country'       => '3.31',
+            'Locale::Currency'      => '3.31',
+            'Locale::Language'      => '3.31',
+            'Locale::Script'        => '3.31',
+            'Math::BigFloat'        => '1.9994',
+            'Math::BigInt'          => '1.9995',
+            'Math::BigInt::Calc'    => '1.9994',
+            'Math::BigInt::CalcEmu' => '1.9994',
+            'Math::BigRat'          => '0.2608',
+            'Module::CoreList'      => '5.021001_01',
+            'Module::CoreList::TieHashDelta'=> '5.021001_01',
+            'Module::CoreList::Utils'=> '5.021001_01',
+            'Module::Metadata'      => '1.000024',
+            'NDBM_File'             => '1.13',
+            'Net::Config'           => '1.14',
+            'Net::SMTP'             => '2.34',
+            'Net::Time'             => '2.11',
+            'OS2::Process'          => '1.10',
+            'POSIX'                 => '1.40',
+            'PerlIO::encoding'      => '0.19',
+            'PerlIO::mmap'          => '0.013',
+            'PerlIO::scalar'        => '0.19',
+            'PerlIO::via'           => '0.15',
+            'Pod::Html'             => '1.22',
+            'Scalar::Util'          => '1.39',
+            'SelfLoader'            => '1.22',
+            'Socket'                => '2.014',
+            'Storable'              => '2.51',
+            'TAP::Base'             => '3.32',
+            'TAP::Formatter::Base'  => '3.32',
+            'TAP::Formatter::Color' => '3.32',
+            'TAP::Formatter::Console'=> '3.32',
+            'TAP::Formatter::Console::ParallelSession'=> '3.32',
+            'TAP::Formatter::Console::Session'=> '3.32',
+            'TAP::Formatter::File'  => '3.32',
+            'TAP::Formatter::File::Session'=> '3.32',
+            'TAP::Formatter::Session'=> '3.32',
+            'TAP::Harness'          => '3.32',
+            'TAP::Harness::Env'     => '3.32',
+            'TAP::Object'           => '3.32',
+            'TAP::Parser'           => '3.32',
+            'TAP::Parser::Aggregator'=> '3.32',
+            'TAP::Parser::Grammar'  => '3.32',
+            'TAP::Parser::Iterator' => '3.32',
+            'TAP::Parser::Iterator::Array'=> '3.32',
+            'TAP::Parser::Iterator::Process'=> '3.32',
+            'TAP::Parser::Iterator::Stream'=> '3.32',
+            'TAP::Parser::IteratorFactory'=> '3.32',
+            'TAP::Parser::Multiplexer'=> '3.32',
+            'TAP::Parser::Result'   => '3.32',
+            'TAP::Parser::Result::Bailout'=> '3.32',
+            'TAP::Parser::Result::Comment'=> '3.32',
+            'TAP::Parser::Result::Plan'=> '3.32',
+            'TAP::Parser::Result::Pragma'=> '3.32',
+            'TAP::Parser::Result::Test'=> '3.32',
+            'TAP::Parser::Result::Unknown'=> '3.32',
+            'TAP::Parser::Result::Version'=> '3.32',
+            'TAP::Parser::Result::YAML'=> '3.32',
+            'TAP::Parser::ResultFactory'=> '3.32',
+            'TAP::Parser::Scheduler'=> '3.32',
+            'TAP::Parser::Scheduler::Job'=> '3.32',
+            'TAP::Parser::Scheduler::Spinner'=> '3.32',
+            'TAP::Parser::Source'   => '3.32',
+            'TAP::Parser::SourceHandler'=> '3.32',
+            'TAP::Parser::SourceHandler::Executable'=> '3.32',
+            'TAP::Parser::SourceHandler::File'=> '3.32',
+            'TAP::Parser::SourceHandler::Handle'=> '3.32',
+            'TAP::Parser::SourceHandler::Perl'=> '3.32',
+            'TAP::Parser::SourceHandler::RawTAP'=> '3.32',
+            'TAP::Parser::YAMLish::Reader'=> '3.32',
+            'TAP::Parser::YAMLish::Writer'=> '3.32',
+            'Term::ANSIColor'       => '4.03',
+            'Test::Builder'         => '1.001003',
+            'Test::Builder::Module' => '1.001003',
+            'Test::Builder::Tester' => '1.23_003',
+            'Test::Harness'         => '3.32',
+            'Test::More'            => '1.001003',
+            'Test::Simple'          => '1.001003',
+            'Tie::File'             => '1.01',
+            'Unicode'               => '7.0.0',
+            'Unicode::Collate'      => '1.07',
+            'Unicode::Normalize'    => '1.18',
+            'Unicode::UCD'          => '0.58',
+            'XS::APItest'           => '0.61',
+            '_charnames'            => '1.41',
+            'autodie'               => '2.25',
+            'autodie::Scope::Guard' => '2.25',
+            'autodie::Scope::GuardStack'=> '2.25',
+            'autodie::ScopeUtil'    => '2.25',
+            'autodie::exception'    => '2.25',
+            'autodie::exception::system'=> '2.25',
+            'autodie::hints'        => '2.25',
+            'autodie::skip'         => '2.25',
+            'charnames'             => '1.41',
+            'locale'                => '1.04',
+            'threads'               => '1.94',
+            'utf8'                  => '1.14',
+            'warnings'              => '1.24',
+        },
+        removed => {
+        }
+    },
+    5.021002 => {
+        delta_from => 5.021001,
+        changed => {
+            'B'                     => '1.50',
+            'Config'                => '5.021002',
+            'Cwd'                   => '3.49',
+            'Devel::Peek'           => '1.18',
+            'ExtUtils::Manifest'    => '1.64',
+            'File::Copy'            => '2.30',
+            'File::Spec'            => '3.49',
+            'File::Spec::Cygwin'    => '3.49',
+            'File::Spec::Epoc'      => '3.49',
+            'File::Spec::Functions' => '3.49',
+            'File::Spec::Mac'       => '3.49',
+            'File::Spec::OS2'       => '3.49',
+            'File::Spec::Unix'      => '3.49',
+            'File::Spec::VMS'       => '3.49',
+            'File::Spec::Win32'     => '3.49',
+            'Filter::Simple'        => '0.92',
+            'Hash::Util'            => '0.18',
+            'IO'                    => '1.33',
+            'IO::Socket::IP'        => '0.31',
+            'IPC::Open3'            => '1.17',
+            'Math::BigFloat'        => '1.9996',
+            'Math::BigInt'          => '1.9996',
+            'Math::BigInt::Calc'    => '1.9996',
+            'Math::BigInt::CalcEmu' => '1.9996',
+            'Module::CoreList'      => '5.021002',
+            'Module::CoreList::TieHashDelta'=> '5.021002',
+            'Module::CoreList::Utils'=> '5.021002',
+            'POSIX'                 => '1.41',
+            'Pod::Usage'            => '1.64',
+            'XS::APItest'           => '0.62',
+            'arybase'               => '0.08',
+            'experimental'          => '0.008',
+            'threads'               => '1.95',
+            'warnings'              => '1.26',
+        },
+        removed => {
+        }
+    },
+    5.021003 => {
+        delta_from => 5.021002,
+        changed => {
+            'B::Debug'              => '1.21',
+            'CPAN::Meta'            => '2.142060',
+            'CPAN::Meta::Converter' => '2.142060',
+            'CPAN::Meta::Feature'   => '2.142060',
+            'CPAN::Meta::History'   => '2.142060',
+            'CPAN::Meta::Merge'     => '2.142060',
+            'CPAN::Meta::Prereqs'   => '2.142060',
+            'CPAN::Meta::Requirements'=> '2.126',
+            'CPAN::Meta::Spec'      => '2.142060',
+            'CPAN::Meta::Validator' => '2.142060',
+            'Config'                => '5.021003',
+            'Config::Perl::V'       => '0.22',
+            'ExtUtils::CBuilder'    => '0.280217',
+            'ExtUtils::CBuilder::Base'=> '0.280217',
+            'ExtUtils::CBuilder::Platform::Unix'=> '0.280217',
+            'ExtUtils::CBuilder::Platform::VMS'=> '0.280217',
+            'ExtUtils::CBuilder::Platform::Windows'=> '0.280217',
+            'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.280217',
+            'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.280217',
+            'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.280217',
+            'ExtUtils::CBuilder::Platform::aix'=> '0.280217',
+            'ExtUtils::CBuilder::Platform::android'=> '0.280217',
+            'ExtUtils::CBuilder::Platform::cygwin'=> '0.280217',
+            'ExtUtils::CBuilder::Platform::darwin'=> '0.280217',
+            'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280217',
+            'ExtUtils::CBuilder::Platform::os2'=> '0.280217',
+            'ExtUtils::Manifest'    => '1.65',
+            'HTTP::Tiny'            => '0.047',
+            'IPC::Open3'            => '1.18',
+            'Module::CoreList'      => '5.021003',
+            'Module::CoreList::TieHashDelta'=> '5.021003',
+            'Module::CoreList::Utils'=> '5.021003',
+            'Opcode'                => '1.28',
+            'POSIX'                 => '1.42',
+            'Safe'                  => '2.38',
+            'Socket'                => '2.015',
+            'Sys::Hostname'         => '1.19',
+            'UNIVERSAL'             => '1.12',
+            'XS::APItest'           => '0.63',
+            'perlfaq'               => '5.0150045',
+        },
+        removed => {
+        }
+    },
+    5.020001 => {
+        delta_from => 5.020000,
+        changed => {
+            'Config'                => '5.020001',
+            'Config::Perl::V'       => '0.22',
+            'Cwd'                   => '3.48',
+            'Exporter'              => '5.71',
+            'Exporter::Heavy'       => '5.71',
+            'ExtUtils::CBuilder'    => '0.280217',
+            'ExtUtils::CBuilder::Base'=> '0.280217',
+            'ExtUtils::CBuilder::Platform::Unix'=> '0.280217',
+            'ExtUtils::CBuilder::Platform::VMS'=> '0.280217',
+            'ExtUtils::CBuilder::Platform::Windows'=> '0.280217',
+            'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.280217',
+            'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.280217',
+            'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.280217',
+            'ExtUtils::CBuilder::Platform::aix'=> '0.280217',
+            'ExtUtils::CBuilder::Platform::android'=> '0.280217',
+            'ExtUtils::CBuilder::Platform::cygwin'=> '0.280217',
+            'ExtUtils::CBuilder::Platform::darwin'=> '0.280217',
+            'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280217',
+            'ExtUtils::CBuilder::Platform::os2'=> '0.280217',
+            'File::Copy'            => '2.30',
+            'File::Spec'            => '3.48',
+            'File::Spec::Cygwin'    => '3.48',
+            'File::Spec::Epoc'      => '3.48',
+            'File::Spec::Functions' => '3.48',
+            'File::Spec::Mac'       => '3.48',
+            'File::Spec::OS2'       => '3.48',
+            'File::Spec::Unix'      => '3.48',
+            'File::Spec::VMS'       => '3.48',
+            'File::Spec::Win32'     => '3.48',
+            'Module::CoreList'      => '5.020001',
+            'Module::CoreList::TieHashDelta'=> '5.020001',
+            'Module::CoreList::Utils'=> '5.020001',
+            'PerlIO::via'           => '0.15',
+            'Unicode::UCD'          => '0.58',
+            'XS::APItest'           => '0.60_01',
+            'utf8'                  => '1.13_01',
+            'version'               => '0.9909',
+            'version::regex'        => '0.9909',
+            'version::vpp'          => '0.9909',
+        },
+        removed => {
+        }
+    },
+    5.021004 => {
+        delta_from => 5.021003,
+        changed => {
+            'App::Prove'            => '3.33',
+            'App::Prove::State'     => '3.33',
+            'App::Prove::State::Result'=> '3.33',
+            'App::Prove::State::Result::Test'=> '3.33',
+            'Archive::Tar'          => '2.02',
+            'Archive::Tar::Constant'=> '2.02',
+            'Archive::Tar::File'    => '2.02',
+            'Attribute::Handlers'   => '0.97',
+            'B'                     => '1.51',
+            'B::Concise'            => '0.993',
+            'B::Deparse'            => '1.28',
+            'B::Op_private'         => '5.021004',
+            'CPAN::Meta::Requirements'=> '2.128',
+            'Config'                => '5.021004',
+            'Cwd'                   => '3.50',
+            'Data::Dumper'          => '2.154',
+            'ExtUtils::CBuilder'    => '0.280219',
+            'ExtUtils::CBuilder::Base'=> '0.280219',
+            'ExtUtils::CBuilder::Platform::Unix'=> '0.280219',
+            'ExtUtils::CBuilder::Platform::VMS'=> '0.280219',
+            'ExtUtils::CBuilder::Platform::Windows'=> '0.280219',
+            'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.280219',
+            'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.280219',
+            'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.280219',
+            'ExtUtils::CBuilder::Platform::aix'=> '0.280219',
+            'ExtUtils::CBuilder::Platform::android'=> '0.280219',
+            'ExtUtils::CBuilder::Platform::cygwin'=> '0.280219',
+            'ExtUtils::CBuilder::Platform::darwin'=> '0.280219',
+            'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280219',
+            'ExtUtils::CBuilder::Platform::os2'=> '0.280219',
+            'ExtUtils::Install'     => '2.04',
+            'ExtUtils::Installed'   => '2.04',
+            'ExtUtils::Liblist::Kid'=> '6.98_01',
+            'ExtUtils::Manifest'    => '1.68',
+            'ExtUtils::Packlist'    => '2.04',
+            'File::Find'            => '1.28',
+            'File::Spec'            => '3.50',
+            'File::Spec::Cygwin'    => '3.50',
+            'File::Spec::Epoc'      => '3.50',
+            'File::Spec::Functions' => '3.50',
+            'File::Spec::Mac'       => '3.50',
+            'File::Spec::OS2'       => '3.50',
+            'File::Spec::Unix'      => '3.50',
+            'File::Spec::VMS'       => '3.50',
+            'File::Spec::Win32'     => '3.50',
+            'Getopt::Std'           => '1.11',
+            'HTTP::Tiny'            => '0.049',
+            'IO'                    => '1.34',
+            'IO::Socket::IP'        => '0.32',
+            'List::Util'            => '1.41',
+            'List::Util::XS'        => '1.41',
+            'Locale::Codes'         => '3.32',
+            'Locale::Codes::Constants'=> '3.32',
+            'Locale::Codes::Country'=> '3.32',
+            'Locale::Codes::Country_Codes'=> '3.32',
+            'Locale::Codes::Country_Retired'=> '3.32',
+            'Locale::Codes::Currency'=> '3.32',
+            'Locale::Codes::Currency_Codes'=> '3.32',
+            'Locale::Codes::Currency_Retired'=> '3.32',
+            'Locale::Codes::LangExt'=> '3.32',
+            'Locale::Codes::LangExt_Codes'=> '3.32',
+            'Locale::Codes::LangExt_Retired'=> '3.32',
+            'Locale::Codes::LangFam'=> '3.32',
+            'Locale::Codes::LangFam_Codes'=> '3.32',
+            'Locale::Codes::LangFam_Retired'=> '3.32',
+            'Locale::Codes::LangVar'=> '3.32',
+            'Locale::Codes::LangVar_Codes'=> '3.32',
+            'Locale::Codes::LangVar_Retired'=> '3.32',
+            'Locale::Codes::Language'=> '3.32',
+            'Locale::Codes::Language_Codes'=> '3.32',
+            'Locale::Codes::Language_Retired'=> '3.32',
+            'Locale::Codes::Script' => '3.32',
+            'Locale::Codes::Script_Codes'=> '3.32',
+            'Locale::Codes::Script_Retired'=> '3.32',
+            'Locale::Country'       => '3.32',
+            'Locale::Currency'      => '3.32',
+            'Locale::Language'      => '3.32',
+            'Locale::Script'        => '3.32',
+            'Math::BigFloat'        => '1.9997',
+            'Math::BigInt'          => '1.9997',
+            'Math::BigInt::Calc'    => '1.9997',
+            'Math::BigInt::CalcEmu' => '1.9997',
+            'Module::CoreList'      => '5.20140920',
+            'Module::CoreList::TieHashDelta'=> '5.20140920',
+            'Module::CoreList::Utils'=> '5.20140920',
+            'POSIX'                 => '1.43',
+            'Pod::Perldoc'          => '3.24',
+            'Pod::Perldoc::BaseTo'  => '3.24',
+            'Pod::Perldoc::GetOptsOO'=> '3.24',
+            'Pod::Perldoc::ToANSI'  => '3.24',
+            'Pod::Perldoc::ToChecker'=> '3.24',
+            'Pod::Perldoc::ToMan'   => '3.24',
+            'Pod::Perldoc::ToNroff' => '3.24',
+            'Pod::Perldoc::ToPod'   => '3.24',
+            'Pod::Perldoc::ToRtf'   => '3.24',
+            'Pod::Perldoc::ToTerm'  => '3.24',
+            'Pod::Perldoc::ToText'  => '3.24',
+            'Pod::Perldoc::ToTk'    => '3.24',
+            'Pod::Perldoc::ToXml'   => '3.24',
+            'Scalar::Util'          => '1.41',
+            'Sub::Util'             => '1.41',
+            'TAP::Base'             => '3.33',
+            'TAP::Formatter::Base'  => '3.33',
+            'TAP::Formatter::Color' => '3.33',
+            'TAP::Formatter::Console'=> '3.33',
+            'TAP::Formatter::Console::ParallelSession'=> '3.33',
+            'TAP::Formatter::Console::Session'=> '3.33',
+            'TAP::Formatter::File'  => '3.33',
+            'TAP::Formatter::File::Session'=> '3.33',
+            'TAP::Formatter::Session'=> '3.33',
+            'TAP::Harness'          => '3.33',
+            'TAP::Harness::Env'     => '3.33',
+            'TAP::Object'           => '3.33',
+            'TAP::Parser'           => '3.33',
+            'TAP::Parser::Aggregator'=> '3.33',
+            'TAP::Parser::Grammar'  => '3.33',
+            'TAP::Parser::Iterator' => '3.33',
+            'TAP::Parser::Iterator::Array'=> '3.33',
+            'TAP::Parser::Iterator::Process'=> '3.33',
+            'TAP::Parser::Iterator::Stream'=> '3.33',
+            'TAP::Parser::IteratorFactory'=> '3.33',
+            'TAP::Parser::Multiplexer'=> '3.33',
+            'TAP::Parser::Result'   => '3.33',
+            'TAP::Parser::Result::Bailout'=> '3.33',
+            'TAP::Parser::Result::Comment'=> '3.33',
+            'TAP::Parser::Result::Plan'=> '3.33',
+            'TAP::Parser::Result::Pragma'=> '3.33',
+            'TAP::Parser::Result::Test'=> '3.33',
+            'TAP::Parser::Result::Unknown'=> '3.33',
+            'TAP::Parser::Result::Version'=> '3.33',
+            'TAP::Parser::Result::YAML'=> '3.33',
+            'TAP::Parser::ResultFactory'=> '3.33',
+            'TAP::Parser::Scheduler'=> '3.33',
+            'TAP::Parser::Scheduler::Job'=> '3.33',
+            'TAP::Parser::Scheduler::Spinner'=> '3.33',
+            'TAP::Parser::Source'   => '3.33',
+            'TAP::Parser::SourceHandler'=> '3.33',
+            'TAP::Parser::SourceHandler::Executable'=> '3.33',
+            'TAP::Parser::SourceHandler::File'=> '3.33',
+            'TAP::Parser::SourceHandler::Handle'=> '3.33',
+            'TAP::Parser::SourceHandler::Perl'=> '3.33',
+            'TAP::Parser::SourceHandler::RawTAP'=> '3.33',
+            'TAP::Parser::YAMLish::Reader'=> '3.33',
+            'TAP::Parser::YAMLish::Writer'=> '3.33',
+            'Term::ReadLine'        => '1.15',
+            'Test::Builder'         => '1.001006',
+            'Test::Builder::Module' => '1.001006',
+            'Test::Builder::Tester' => '1.24',
+            'Test::Builder::Tester::Color'=> '1.24',
+            'Test::Harness'         => '3.33',
+            'Test::More'            => '1.001006',
+            'Test::Simple'          => '1.001006',
+            'Time::Piece'           => '1.29',
+            'Time::Seconds'         => '1.29',
+            'XS::APItest'           => '0.64',
+            '_charnames'            => '1.42',
+            'attributes'            => '0.23',
+            'bigint'                => '0.37',
+            'bignum'                => '0.38',
+            'bigrat'                => '0.37',
+            'constant'              => '1.32',
+            'experimental'          => '0.010',
+            'overload'              => '1.23',
+            'threads'               => '1.96',
+            'version'               => '0.9909',
+            'version::regex'        => '0.9909',
+            'version::vpp'          => '0.9909',
+        },
+        removed => {
+        }
+    },
+    5.021005 => {
+        delta_from => 5.021004,
+        changed => {
+            'B'                     => '1.52',
+            'B::Concise'            => '0.994',
+            'B::Debug'              => '1.22',
+            'B::Deparse'            => '1.29',
+            'B::Op_private'         => '5.021005',
+            'CPAN::Meta'            => '2.142690',
+            'CPAN::Meta::Converter' => '2.142690',
+            'CPAN::Meta::Feature'   => '2.142690',
+            'CPAN::Meta::History'   => '2.142690',
+            'CPAN::Meta::Merge'     => '2.142690',
+            'CPAN::Meta::Prereqs'   => '2.142690',
+            'CPAN::Meta::Spec'      => '2.142690',
+            'CPAN::Meta::Validator' => '2.142690',
+            'Compress::Raw::Bzip2'  => '2.066',
+            'Compress::Raw::Zlib'   => '2.066',
+            'Compress::Zlib'        => '2.066',
+            'Config'                => '5.021005',
+            'Cwd'                   => '3.51',
+            'DynaLoader'            => '1.27',
+            'Errno'                 => '1.21',
+            'ExtUtils::CBuilder'    => '0.280220',
+            'ExtUtils::CBuilder::Base'=> '0.280220',
+            'ExtUtils::CBuilder::Platform::Unix'=> '0.280220',
+            'ExtUtils::CBuilder::Platform::VMS'=> '0.280220',
+            'ExtUtils::CBuilder::Platform::Windows'=> '0.280220',
+            'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.280220',
+            'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.280220',
+            'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.280220',
+            'ExtUtils::CBuilder::Platform::aix'=> '0.280220',
+            'ExtUtils::CBuilder::Platform::android'=> '0.280220',
+            'ExtUtils::CBuilder::Platform::cygwin'=> '0.280220',
+            'ExtUtils::CBuilder::Platform::darwin'=> '0.280220',
+            'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280220',
+            'ExtUtils::CBuilder::Platform::os2'=> '0.280220',
+            'ExtUtils::Miniperl'    => '1.03',
+            'Fcntl'                 => '1.13',
+            'File::Find'            => '1.29',
+            'File::Spec'            => '3.51',
+            'File::Spec::Cygwin'    => '3.51',
+            'File::Spec::Epoc'      => '3.51',
+            'File::Spec::Functions' => '3.51',
+            'File::Spec::Mac'       => '3.51',
+            'File::Spec::OS2'       => '3.51',
+            'File::Spec::Unix'      => '3.51',
+            'File::Spec::VMS'       => '3.51',
+            'File::Spec::Win32'     => '3.51',
+            'HTTP::Tiny'            => '0.050',
+            'IO::Compress::Adapter::Bzip2'=> '2.066',
+            'IO::Compress::Adapter::Deflate'=> '2.066',
+            'IO::Compress::Adapter::Identity'=> '2.066',
+            'IO::Compress::Base'    => '2.066',
+            'IO::Compress::Base::Common'=> '2.066',
+            'IO::Compress::Bzip2'   => '2.066',
+            'IO::Compress::Deflate' => '2.066',
+            'IO::Compress::Gzip'    => '2.066',
+            'IO::Compress::Gzip::Constants'=> '2.066',
+            'IO::Compress::RawDeflate'=> '2.066',
+            'IO::Compress::Zip'     => '2.066',
+            'IO::Compress::Zip::Constants'=> '2.066',
+            'IO::Compress::Zlib::Constants'=> '2.066',
+            'IO::Compress::Zlib::Extra'=> '2.066',
+            'IO::Uncompress::Adapter::Bunzip2'=> '2.066',
+            'IO::Uncompress::Adapter::Identity'=> '2.066',
+            'IO::Uncompress::Adapter::Inflate'=> '2.066',
+            'IO::Uncompress::AnyInflate'=> '2.066',
+            'IO::Uncompress::AnyUncompress'=> '2.066',
+            'IO::Uncompress::Base'  => '2.066',
+            'IO::Uncompress::Bunzip2'=> '2.066',
+            'IO::Uncompress::Gunzip'=> '2.066',
+            'IO::Uncompress::Inflate'=> '2.066',
+            'IO::Uncompress::RawInflate'=> '2.066',
+            'IO::Uncompress::Unzip' => '2.066',
+            'JSON::PP'              => '2.27300',
+            'Module::CoreList'      => '5.20141020',
+            'Module::CoreList::TieHashDelta'=> '5.20141020',
+            'Module::CoreList::Utils'=> '5.20141020',
+            'Net::Cmd'              => '3.02',
+            'Net::Config'           => '3.02',
+            'Net::Domain'           => '3.02',
+            'Net::FTP'              => '3.02',
+            'Net::FTP::A'           => '3.02',
+            'Net::FTP::E'           => '3.02',
+            'Net::FTP::I'           => '3.02',
+            'Net::FTP::L'           => '3.02',
+            'Net::FTP::dataconn'    => '3.02',
+            'Net::NNTP'             => '3.02',
+            'Net::Netrc'            => '3.02',
+            'Net::POP3'             => '3.02',
+            'Net::SMTP'             => '3.02',
+            'Net::Time'             => '3.02',
+            'Opcode'                => '1.29',
+            'POSIX'                 => '1.45',
+            'Socket'                => '2.016',
+            'Test::Builder'         => '1.001008',
+            'Test::Builder::Module' => '1.001008',
+            'Test::More'            => '1.001008',
+            'Test::Simple'          => '1.001008',
+            'XS::APItest'           => '0.65',
+            'XSLoader'              => '0.18',
+            'attributes'            => '0.24',
+            'experimental'          => '0.012',
+            'feature'               => '1.38',
+            'perlfaq'               => '5.0150046',
+            're'                    => '0.27',
+            'threads::shared'       => '1.47',
+            'warnings'              => '1.28',
+            'warnings::register'    => '1.04',
+        },
+        removed => {
+        }
+    },
+    5.021006 => {
+        delta_from => 5.021005,
+        changed => {
+            'App::Prove'            => '3.34',
+            'App::Prove::State'     => '3.34',
+            'App::Prove::State::Result'=> '3.34',
+            'App::Prove::State::Result::Test'=> '3.34',
+            'B'                     => '1.53',
+            'B::Concise'            => '0.995',
+            'B::Deparse'            => '1.30',
+            'B::Op_private'         => '5.021006',
+            'CPAN::Meta'            => '2.143240',
+            'CPAN::Meta::Converter' => '2.143240',
+            'CPAN::Meta::Feature'   => '2.143240',
+            'CPAN::Meta::History'   => '2.143240',
+            'CPAN::Meta::Merge'     => '2.143240',
+            'CPAN::Meta::Prereqs'   => '2.143240',
+            'CPAN::Meta::Requirements'=> '2.130',
+            'CPAN::Meta::Spec'      => '2.143240',
+            'CPAN::Meta::Validator' => '2.143240',
+            'Config'                => '5.021006',
+            'Devel::Peek'           => '1.19',
+            'Digest::SHA'           => '5.93',
+            'DynaLoader'            => '1.28',
+            'Encode'                => '2.64',
+            'Exporter'              => '5.72',
+            'Exporter::Heavy'       => '5.72',
+            'ExtUtils::Command::MM' => '7.02',
+            'ExtUtils::Liblist'     => '7.02',
+            'ExtUtils::Liblist::Kid'=> '7.02',
+            'ExtUtils::MM'          => '7.02',
+            'ExtUtils::MM_AIX'      => '7.02',
+            'ExtUtils::MM_Any'      => '7.02',
+            'ExtUtils::MM_BeOS'     => '7.02',
+            'ExtUtils::MM_Cygwin'   => '7.02',
+            'ExtUtils::MM_DOS'      => '7.02',
+            'ExtUtils::MM_Darwin'   => '7.02',
+            'ExtUtils::MM_MacOS'    => '7.02',
+            'ExtUtils::MM_NW5'      => '7.02',
+            'ExtUtils::MM_OS2'      => '7.02',
+            'ExtUtils::MM_QNX'      => '7.02',
+            'ExtUtils::MM_UWIN'     => '7.02',
+            'ExtUtils::MM_Unix'     => '7.02',
+            'ExtUtils::MM_VMS'      => '7.02',
+            'ExtUtils::MM_VOS'      => '7.02',
+            'ExtUtils::MM_Win32'    => '7.02',
+            'ExtUtils::MM_Win95'    => '7.02',
+            'ExtUtils::MY'          => '7.02',
+            'ExtUtils::MakeMaker'   => '7.02',
+            'ExtUtils::MakeMaker::Config'=> '7.02',
+            'ExtUtils::MakeMaker::Locale'=> '7.02',
+            'ExtUtils::MakeMaker::version'=> '7.02',
+            'ExtUtils::MakeMaker::version::regex'=> '7.02',
+            'ExtUtils::MakeMaker::version::vpp'=> '7.02',
+            'ExtUtils::Manifest'    => '1.69',
+            'ExtUtils::Mkbootstrap' => '7.02',
+            'ExtUtils::Mksymlists'  => '7.02',
+            'ExtUtils::ParseXS'     => '3.26',
+            'ExtUtils::ParseXS::Constants'=> '3.26',
+            'ExtUtils::ParseXS::CountLines'=> '3.26',
+            'ExtUtils::ParseXS::Eval'=> '3.26',
+            'ExtUtils::ParseXS::Utilities'=> '3.26',
+            'ExtUtils::testlib'     => '7.02',
+            'File::Spec::VMS'       => '3.52',
+            'HTTP::Tiny'            => '0.051',
+            'I18N::Langinfo'        => '0.12',
+            'IO::Socket'            => '1.38',
+            'Module::CoreList'      => '5.20141120',
+            'Module::CoreList::TieHashDelta'=> '5.20141120',
+            'Module::CoreList::Utils'=> '5.20141120',
+            'POSIX'                 => '1.46',
+            'PerlIO::encoding'      => '0.20',
+            'PerlIO::scalar'        => '0.20',
+            'TAP::Base'             => '3.34',
+            'TAP::Formatter::Base'  => '3.34',
+            'TAP::Formatter::Color' => '3.34',
+            'TAP::Formatter::Console'=> '3.34',
+            'TAP::Formatter::Console::ParallelSession'=> '3.34',
+            'TAP::Formatter::Console::Session'=> '3.34',
+            'TAP::Formatter::File'  => '3.34',
+            'TAP::Formatter::File::Session'=> '3.34',
+            'TAP::Formatter::Session'=> '3.34',
+            'TAP::Harness'          => '3.34',
+            'TAP::Harness::Env'     => '3.34',
+            'TAP::Object'           => '3.34',
+            'TAP::Parser'           => '3.34',
+            'TAP::Parser::Aggregator'=> '3.34',
+            'TAP::Parser::Grammar'  => '3.34',
+            'TAP::Parser::Iterator' => '3.34',
+            'TAP::Parser::Iterator::Array'=> '3.34',
+            'TAP::Parser::Iterator::Process'=> '3.34',
+            'TAP::Parser::Iterator::Stream'=> '3.34',
+            'TAP::Parser::IteratorFactory'=> '3.34',
+            'TAP::Parser::Multiplexer'=> '3.34',
+            'TAP::Parser::Result'   => '3.34',
+            'TAP::Parser::Result::Bailout'=> '3.34',
+            'TAP::Parser::Result::Comment'=> '3.34',
+            'TAP::Parser::Result::Plan'=> '3.34',
+            'TAP::Parser::Result::Pragma'=> '3.34',
+            'TAP::Parser::Result::Test'=> '3.34',
+            'TAP::Parser::Result::Unknown'=> '3.34',
+            'TAP::Parser::Result::Version'=> '3.34',
+            'TAP::Parser::Result::YAML'=> '3.34',
+            'TAP::Parser::ResultFactory'=> '3.34',
+            'TAP::Parser::Scheduler'=> '3.34',
+            'TAP::Parser::Scheduler::Job'=> '3.34',
+            'TAP::Parser::Scheduler::Spinner'=> '3.34',
+            'TAP::Parser::Source'   => '3.34',
+            'TAP::Parser::SourceHandler'=> '3.34',
+            'TAP::Parser::SourceHandler::Executable'=> '3.34',
+            'TAP::Parser::SourceHandler::File'=> '3.34',
+            'TAP::Parser::SourceHandler::Handle'=> '3.34',
+            'TAP::Parser::SourceHandler::Perl'=> '3.34',
+            'TAP::Parser::SourceHandler::RawTAP'=> '3.34',
+            'TAP::Parser::YAMLish::Reader'=> '3.34',
+            'TAP::Parser::YAMLish::Writer'=> '3.34',
+            'Test::Builder'         => '1.301001_075',
+            'Test::Builder::Module' => '1.301001_075',
+            'Test::Builder::Tester' => '1.301001_075',
+            'Test::Builder::Tester::Color'=> '1.301001_075',
+            'Test::Harness'         => '3.34',
+            'Test::More'            => '1.301001_075',
+            'Test::More::DeepCheck' => undef,
+            'Test::More::DeepCheck::Strict'=> undef,
+            'Test::More::DeepCheck::Tolerant'=> undef,
+            'Test::More::Tools'     => undef,
+            'Test::MostlyLike'      => undef,
+            'Test::Simple'          => '1.301001_075',
+            'Test::Stream'          => '1.301001_075',
+            'Test::Stream::ArrayBase'=> undef,
+            'Test::Stream::ArrayBase::Meta'=> undef,
+            'Test::Stream::Carp'    => undef,
+            'Test::Stream::Context' => undef,
+            'Test::Stream::Event'   => undef,
+            'Test::Stream::Event::Bail'=> undef,
+            'Test::Stream::Event::Child'=> undef,
+            'Test::Stream::Event::Diag'=> undef,
+            'Test::Stream::Event::Finish'=> undef,
+            'Test::Stream::Event::Note'=> undef,
+            'Test::Stream::Event::Ok'=> undef,
+            'Test::Stream::Event::Plan'=> undef,
+            'Test::Stream::Event::Subtest'=> undef,
+            'Test::Stream::ExitMagic'=> undef,
+            'Test::Stream::ExitMagic::Context'=> undef,
+            'Test::Stream::Exporter'=> undef,
+            'Test::Stream::Exporter::Meta'=> undef,
+            'Test::Stream::IOSets'  => undef,
+            'Test::Stream::Meta'    => undef,
+            'Test::Stream::PackageUtil'=> undef,
+            'Test::Stream::Tester'  => undef,
+            'Test::Stream::Tester::Checks'=> undef,
+            'Test::Stream::Tester::Checks::Event'=> undef,
+            'Test::Stream::Tester::Events'=> undef,
+            'Test::Stream::Tester::Events::Event'=> undef,
+            'Test::Stream::Tester::Grab'=> undef,
+            'Test::Stream::Threads' => undef,
+            'Test::Stream::Toolset' => undef,
+            'Test::Stream::Util'    => undef,
+            'Test::Tester'          => '1.301001_075',
+            'Test::Tester::Capture' => undef,
+            'Test::use::ok'         => '1.301001_075',
+            'Unicode::UCD'          => '0.59',
+            'XS::APItest'           => '0.68',
+            'XSLoader'              => '0.19',
+            'experimental'          => '0.013',
+            'locale'                => '1.05',
+            'ok'                    => '1.301001_075',
+            'overload'              => '1.24',
+            're'                    => '0.28',
+            'warnings'              => '1.29',
+        },
+        removed => {
+        }
+    },
+    5.021007 => {
+        delta_from => 5.021006,
+        changed => {
+            'Archive::Tar'          => '2.04',
+            'Archive::Tar::Constant'=> '2.04',
+            'Archive::Tar::File'    => '2.04',
+            'B'                     => '1.54',
+            'B::Concise'            => '0.996',
+            'B::Deparse'            => '1.31',
+            'B::Op_private'         => '5.021007',
+            'B::Showlex'            => '1.05',
+            'Compress::Raw::Bzip2'  => '2.067',
+            'Compress::Raw::Zlib'   => '2.067',
+            'Compress::Zlib'        => '2.067',
+            'Config'                => '5.021007',
+            'Cwd'                   => '3.54',
+            'DB_File'               => '1.834',
+            'Data::Dumper'          => '2.155',
+            'Devel::PPPort'         => '3.25',
+            'Devel::Peek'           => '1.20',
+            'DynaLoader'            => '1.29',
+            'Encode'                => '2.67',
+            'Errno'                 => '1.22',
+            'ExtUtils::CBuilder'    => '0.280221',
+            'ExtUtils::CBuilder::Base'=> '0.280221',
+            'ExtUtils::CBuilder::Platform::Unix'=> '0.280221',
+            'ExtUtils::CBuilder::Platform::VMS'=> '0.280221',
+            'ExtUtils::CBuilder::Platform::Windows'=> '0.280221',
+            'ExtUtils::CBuilder::Platform::aix'=> '0.280221',
+            'ExtUtils::CBuilder::Platform::android'=> '0.280221',
+            'ExtUtils::CBuilder::Platform::cygwin'=> '0.280221',
+            'ExtUtils::CBuilder::Platform::darwin'=> '0.280221',
+            'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280221',
+            'ExtUtils::CBuilder::Platform::os2'=> '0.280221',
+            'ExtUtils::Command::MM' => '7.04',
+            'ExtUtils::Liblist'     => '7.04',
+            'ExtUtils::Liblist::Kid'=> '7.04',
+            'ExtUtils::MM'          => '7.04',
+            'ExtUtils::MM_AIX'      => '7.04',
+            'ExtUtils::MM_Any'      => '7.04',
+            'ExtUtils::MM_BeOS'     => '7.04',
+            'ExtUtils::MM_Cygwin'   => '7.04',
+            'ExtUtils::MM_DOS'      => '7.04',
+            'ExtUtils::MM_Darwin'   => '7.04',
+            'ExtUtils::MM_MacOS'    => '7.04',
+            'ExtUtils::MM_NW5'      => '7.04',
+            'ExtUtils::MM_OS2'      => '7.04',
+            'ExtUtils::MM_QNX'      => '7.04',
+            'ExtUtils::MM_UWIN'     => '7.04',
+            'ExtUtils::MM_Unix'     => '7.04',
+            'ExtUtils::MM_VMS'      => '7.04',
+            'ExtUtils::MM_VOS'      => '7.04',
+            'ExtUtils::MM_Win32'    => '7.04',
+            'ExtUtils::MM_Win95'    => '7.04',
+            'ExtUtils::MY'          => '7.04',
+            'ExtUtils::MakeMaker'   => '7.04',
+            'ExtUtils::MakeMaker::Config'=> '7.04',
+            'ExtUtils::MakeMaker::Locale'=> '7.04',
+            'ExtUtils::MakeMaker::version'=> '7.04',
+            'ExtUtils::MakeMaker::version::regex'=> '7.04',
+            'ExtUtils::MakeMaker::version::vpp'=> '7.04',
+            'ExtUtils::Mkbootstrap' => '7.04',
+            'ExtUtils::Mksymlists'  => '7.04',
+            'ExtUtils::ParseXS'     => '3.27',
+            'ExtUtils::ParseXS::Constants'=> '3.27',
+            'ExtUtils::ParseXS::CountLines'=> '3.27',
+            'ExtUtils::ParseXS::Eval'=> '3.27',
+            'ExtUtils::ParseXS::Utilities'=> '3.27',
+            'ExtUtils::testlib'     => '7.04',
+            'File::Spec'            => '3.53',
+            'File::Spec::Cygwin'    => '3.54',
+            'File::Spec::Epoc'      => '3.54',
+            'File::Spec::Functions' => '3.54',
+            'File::Spec::Mac'       => '3.54',
+            'File::Spec::OS2'       => '3.54',
+            'File::Spec::Unix'      => '3.54',
+            'File::Spec::VMS'       => '3.54',
+            'File::Spec::Win32'     => '3.54',
+            'Filter::Util::Call'    => '1.51',
+            'HTTP::Tiny'            => '0.053',
+            'IO'                    => '1.35',
+            'IO::Compress::Adapter::Bzip2'=> '2.067',
+            'IO::Compress::Adapter::Deflate'=> '2.067',
+            'IO::Compress::Adapter::Identity'=> '2.067',
+            'IO::Compress::Base'    => '2.067',
+            'IO::Compress::Base::Common'=> '2.067',
+            'IO::Compress::Bzip2'   => '2.067',
+            'IO::Compress::Deflate' => '2.067',
+            'IO::Compress::Gzip'    => '2.067',
+            'IO::Compress::Gzip::Constants'=> '2.067',
+            'IO::Compress::RawDeflate'=> '2.067',
+            'IO::Compress::Zip'     => '2.067',
+            'IO::Compress::Zip::Constants'=> '2.067',
+            'IO::Compress::Zlib::Constants'=> '2.067',
+            'IO::Compress::Zlib::Extra'=> '2.067',
+            'IO::Socket::IP'        => '0.34',
+            'IO::Uncompress::Adapter::Bunzip2'=> '2.067',
+            'IO::Uncompress::Adapter::Identity'=> '2.067',
+            'IO::Uncompress::Adapter::Inflate'=> '2.067',
+            'IO::Uncompress::AnyInflate'=> '2.067',
+            'IO::Uncompress::AnyUncompress'=> '2.067',
+            'IO::Uncompress::Base'  => '2.067',
+            'IO::Uncompress::Bunzip2'=> '2.067',
+            'IO::Uncompress::Gunzip'=> '2.067',
+            'IO::Uncompress::Inflate'=> '2.067',
+            'IO::Uncompress::RawInflate'=> '2.067',
+            'IO::Uncompress::Unzip' => '2.067',
+            'Locale::Codes'         => '3.33',
+            'Locale::Codes::Constants'=> '3.33',
+            'Locale::Codes::Country'=> '3.33',
+            'Locale::Codes::Country_Codes'=> '3.33',
+            'Locale::Codes::Country_Retired'=> '3.33',
+            'Locale::Codes::Currency'=> '3.33',
+            'Locale::Codes::Currency_Codes'=> '3.33',
+            'Locale::Codes::Currency_Retired'=> '3.33',
+            'Locale::Codes::LangExt'=> '3.33',
+            'Locale::Codes::LangExt_Codes'=> '3.33',
+            'Locale::Codes::LangExt_Retired'=> '3.33',
+            'Locale::Codes::LangFam'=> '3.33',
+            'Locale::Codes::LangFam_Codes'=> '3.33',
+            'Locale::Codes::LangFam_Retired'=> '3.33',
+            'Locale::Codes::LangVar'=> '3.33',
+            'Locale::Codes::LangVar_Codes'=> '3.33',
+            'Locale::Codes::LangVar_Retired'=> '3.33',
+            'Locale::Codes::Language'=> '3.33',
+            'Locale::Codes::Language_Codes'=> '3.33',
+            'Locale::Codes::Language_Retired'=> '3.33',
+            'Locale::Codes::Script' => '3.33',
+            'Locale::Codes::Script_Codes'=> '3.33',
+            'Locale::Codes::Script_Retired'=> '3.33',
+            'Locale::Country'       => '3.33',
+            'Locale::Currency'      => '3.33',
+            'Locale::Language'      => '3.33',
+            'Locale::Maketext'      => '1.26',
+            'Locale::Script'        => '3.33',
+            'Module::CoreList'      => '5.20141220',
+            'Module::CoreList::TieHashDelta'=> '5.20141220',
+            'Module::CoreList::Utils'=> '5.20141220',
+            'NDBM_File'             => '1.14',
+            'Net::Cmd'              => '3.04',
+            'Net::Config'           => '3.04',
+            'Net::Domain'           => '3.04',
+            'Net::FTP'              => '3.04',
+            'Net::FTP::A'           => '3.04',
+            'Net::FTP::E'           => '3.04',
+            'Net::FTP::I'           => '3.04',
+            'Net::FTP::L'           => '3.04',
+            'Net::FTP::dataconn'    => '3.04',
+            'Net::NNTP'             => '3.04',
+            'Net::Netrc'            => '3.04',
+            'Net::POP3'             => '3.04',
+            'Net::SMTP'             => '3.04',
+            'Net::Time'             => '3.04',
+            'Opcode'                => '1.30',
+            'POSIX'                 => '1.48',
+            'PerlIO::scalar'        => '0.21',
+            'Pod::Escapes'          => '1.07',
+            'SDBM_File'             => '1.12',
+            'Storable'              => '2.52',
+            'Sys::Hostname'         => '1.20',
+            'Test::Builder'         => '1.301001_090',
+            'Test::Builder::Module' => '1.301001_090',
+            'Test::Builder::Tester' => '1.301001_090',
+            'Test::Builder::Tester::Color'=> '1.301001_090',
+            'Test::CanFork'         => undef,
+            'Test::CanThread'       => undef,
+            'Test::More'            => '1.301001_090',
+            'Test::Simple'          => '1.301001_090',
+            'Test::Stream'          => '1.301001_090',
+            'Test::Stream::API'     => undef,
+            'Test::Stream::ForceExit'=> undef,
+            'Test::Stream::Subtest' => undef,
+            'Test::Tester'          => '1.301001_090',
+            'Test::use::ok'         => '1.301001_090',
+            'Unicode::Collate'      => '1.09',
+            'Unicode::Collate::CJK::Big5'=> '1.09',
+            'Unicode::Collate::CJK::GB2312'=> '1.09',
+            'Unicode::Collate::CJK::JISX0208'=> '1.09',
+            'Unicode::Collate::CJK::Korean'=> '1.09',
+            'Unicode::Collate::CJK::Pinyin'=> '1.09',
+            'Unicode::Collate::CJK::Stroke'=> '1.09',
+            'Unicode::Collate::CJK::Zhuyin'=> '1.09',
+            'Unicode::Collate::Locale'=> '1.09',
+            'XS::APItest'           => '0.69',
+            'XSLoader'              => '0.20',
+            '_charnames'            => '1.43',
+            'arybase'               => '0.09',
+            'charnames'             => '1.43',
+            'feature'               => '1.39',
+            'mro'                   => '1.17',
+            'ok'                    => '1.301001_090',
+            'strict'                => '1.09',
+            'threads'               => '1.96_001',
+        },
+        removed => {
+        }
+    },
+    5.021008 => {
+        delta_from => 5.021007,
+        changed => {
+            'App::Prove'            => '3.35',
+            'App::Prove::State'     => '3.35',
+            'App::Prove::State::Result'=> '3.35',
+            'App::Prove::State::Result::Test'=> '3.35',
+            'B'                     => '1.55',
+            'B::Deparse'            => '1.32',
+            'B::Op_private'         => '5.021008',
+            'CPAN::Meta::Requirements'=> '2.131',
+            'Compress::Raw::Bzip2'  => '2.068',
+            'Compress::Raw::Zlib'   => '2.068',
+            'Compress::Zlib'        => '2.068',
+            'Config'                => '5.021008',
+            'DB_File'               => '1.835',
+            'Data::Dumper'          => '2.156',
+            'Devel::PPPort'         => '3.28',
+            'Devel::Peek'           => '1.21',
+            'Digest::MD5'           => '2.54',
+            'Digest::SHA'           => '5.95',
+            'DynaLoader'            => '1.30',
+            'ExtUtils::Command'     => '1.20',
+            'ExtUtils::Manifest'    => '1.70',
+            'Fatal'                 => '2.26',
+            'File::Glob'            => '1.24',
+            'Filter::Util::Call'    => '1.54',
+            'Getopt::Long'          => '2.43',
+            'IO::Compress::Adapter::Bzip2'=> '2.068',
+            'IO::Compress::Adapter::Deflate'=> '2.068',
+            'IO::Compress::Adapter::Identity'=> '2.068',
+            'IO::Compress::Base'    => '2.068',
+            'IO::Compress::Base::Common'=> '2.068',
+            'IO::Compress::Bzip2'   => '2.068',
+            'IO::Compress::Deflate' => '2.068',
+            'IO::Compress::Gzip'    => '2.068',
+            'IO::Compress::Gzip::Constants'=> '2.068',
+            'IO::Compress::RawDeflate'=> '2.068',
+            'IO::Compress::Zip'     => '2.068',
+            'IO::Compress::Zip::Constants'=> '2.068',
+            'IO::Compress::Zlib::Constants'=> '2.068',
+            'IO::Compress::Zlib::Extra'=> '2.068',
+            'IO::Socket::IP'        => '0.36',
+            'IO::Uncompress::Adapter::Bunzip2'=> '2.068',
+            'IO::Uncompress::Adapter::Identity'=> '2.068',
+            'IO::Uncompress::Adapter::Inflate'=> '2.068',
+            'IO::Uncompress::AnyInflate'=> '2.068',
+            'IO::Uncompress::AnyUncompress'=> '2.068',
+            'IO::Uncompress::Base'  => '2.068',
+            'IO::Uncompress::Bunzip2'=> '2.068',
+            'IO::Uncompress::Gunzip'=> '2.068',
+            'IO::Uncompress::Inflate'=> '2.068',
+            'IO::Uncompress::RawInflate'=> '2.068',
+            'IO::Uncompress::Unzip' => '2.068',
+            'MIME::Base64'          => '3.15',
+            'Module::CoreList'      => '5.20150220',
+            'Module::CoreList::TieHashDelta'=> '5.20150220',
+            'Module::CoreList::Utils'=> '5.20150220',
+            'Module::Load::Conditional'=> '0.64',
+            'Module::Metadata'      => '1.000026',
+            'Net::Cmd'              => '3.05',
+            'Net::Config'           => '3.05',
+            'Net::Domain'           => '3.05',
+            'Net::FTP'              => '3.05',
+            'Net::FTP::A'           => '3.05',
+            'Net::FTP::E'           => '3.05',
+            'Net::FTP::I'           => '3.05',
+            'Net::FTP::L'           => '3.05',
+            'Net::FTP::dataconn'    => '3.05',
+            'Net::NNTP'             => '3.05',
+            'Net::Netrc'            => '3.05',
+            'Net::POP3'             => '3.05',
+            'Net::SMTP'             => '3.05',
+            'Net::Time'             => '3.05',
+            'Opcode'                => '1.31',
+            'POSIX'                 => '1.49',
+            'PerlIO::encoding'      => '0.21',
+            'Pod::Simple'           => '3.29',
+            'Pod::Simple::BlackBox' => '3.29',
+            'Pod::Simple::Checker'  => '3.29',
+            'Pod::Simple::Debug'    => '3.29',
+            'Pod::Simple::DumpAsText'=> '3.29',
+            'Pod::Simple::DumpAsXML'=> '3.29',
+            'Pod::Simple::HTML'     => '3.29',
+            'Pod::Simple::HTMLBatch'=> '3.29',
+            'Pod::Simple::LinkSection'=> '3.29',
+            'Pod::Simple::Methody'  => '3.29',
+            'Pod::Simple::Progress' => '3.29',
+            'Pod::Simple::PullParser'=> '3.29',
+            'Pod::Simple::PullParserEndToken'=> '3.29',
+            'Pod::Simple::PullParserStartToken'=> '3.29',
+            'Pod::Simple::PullParserTextToken'=> '3.29',
+            'Pod::Simple::PullParserToken'=> '3.29',
+            'Pod::Simple::RTF'      => '3.29',
+            'Pod::Simple::Search'   => '3.29',
+            'Pod::Simple::SimpleTree'=> '3.29',
+            'Pod::Simple::Text'     => '3.29',
+            'Pod::Simple::TextContent'=> '3.29',
+            'Pod::Simple::TiedOutFH'=> '3.29',
+            'Pod::Simple::Transcode'=> '3.29',
+            'Pod::Simple::TranscodeDumb'=> '3.29',
+            'Pod::Simple::TranscodeSmart'=> '3.29',
+            'Pod::Simple::XHTML'    => '3.29',
+            'Pod::Simple::XMLOutStream'=> '3.29',
+            'SDBM_File'             => '1.13',
+            'Safe'                  => '2.39',
+            'TAP::Base'             => '3.35',
+            'TAP::Formatter::Base'  => '3.35',
+            'TAP::Formatter::Color' => '3.35',
+            'TAP::Formatter::Console'=> '3.35',
+            'TAP::Formatter::Console::ParallelSession'=> '3.35',
+            'TAP::Formatter::Console::Session'=> '3.35',
+            'TAP::Formatter::File'  => '3.35',
+            'TAP::Formatter::File::Session'=> '3.35',
+            'TAP::Formatter::Session'=> '3.35',
+            'TAP::Harness'          => '3.35',
+            'TAP::Harness::Env'     => '3.35',
+            'TAP::Object'           => '3.35',
+            'TAP::Parser'           => '3.35',
+            'TAP::Parser::Aggregator'=> '3.35',
+            'TAP::Parser::Grammar'  => '3.35',
+            'TAP::Parser::Iterator' => '3.35',
+            'TAP::Parser::Iterator::Array'=> '3.35',
+            'TAP::Parser::Iterator::Process'=> '3.35',
+            'TAP::Parser::Iterator::Stream'=> '3.35',
+            'TAP::Parser::IteratorFactory'=> '3.35',
+            'TAP::Parser::Multiplexer'=> '3.35',
+            'TAP::Parser::Result'   => '3.35',
+            'TAP::Parser::Result::Bailout'=> '3.35',
+            'TAP::Parser::Result::Comment'=> '3.35',
+            'TAP::Parser::Result::Plan'=> '3.35',
+            'TAP::Parser::Result::Pragma'=> '3.35',
+            'TAP::Parser::Result::Test'=> '3.35',
+            'TAP::Parser::Result::Unknown'=> '3.35',
+            'TAP::Parser::Result::Version'=> '3.35',
+            'TAP::Parser::Result::YAML'=> '3.35',
+            'TAP::Parser::ResultFactory'=> '3.35',
+            'TAP::Parser::Scheduler'=> '3.35',
+            'TAP::Parser::Scheduler::Job'=> '3.35',
+            'TAP::Parser::Scheduler::Spinner'=> '3.35',
+            'TAP::Parser::Source'   => '3.35',
+            'TAP::Parser::SourceHandler'=> '3.35',
+            'TAP::Parser::SourceHandler::Executable'=> '3.35',
+            'TAP::Parser::SourceHandler::File'=> '3.35',
+            'TAP::Parser::SourceHandler::Handle'=> '3.35',
+            'TAP::Parser::SourceHandler::Perl'=> '3.35',
+            'TAP::Parser::SourceHandler::RawTAP'=> '3.35',
+            'TAP::Parser::YAMLish::Reader'=> '3.35',
+            'TAP::Parser::YAMLish::Writer'=> '3.35',
+            'Test::Builder'         => '1.301001_097',
+            'Test::Builder::Module' => '1.301001_097',
+            'Test::Builder::Tester' => '1.301001_097',
+            'Test::Builder::Tester::Color'=> '1.301001_097',
+            'Test::Harness'         => '3.35',
+            'Test::More'            => '1.301001_097',
+            'Test::Simple'          => '1.301001_097',
+            'Test::Stream'          => '1.301001_097',
+            'Test::Stream::Block'   => undef,
+            'Test::Tester'          => '1.301001_097',
+            'Test::Tester::CaptureRunner'=> undef,
+            'Test::Tester::Delegate'=> undef,
+            'Test::use::ok'         => '1.301001_097',
+            'Unicode::Collate'      => '1.10',
+            'Unicode::Collate::CJK::Big5'=> '1.10',
+            'Unicode::Collate::CJK::GB2312'=> '1.10',
+            'Unicode::Collate::CJK::JISX0208'=> '1.10',
+            'Unicode::Collate::CJK::Korean'=> '1.10',
+            'Unicode::Collate::CJK::Pinyin'=> '1.10',
+            'Unicode::Collate::CJK::Stroke'=> '1.10',
+            'Unicode::Collate::CJK::Zhuyin'=> '1.10',
+            'Unicode::Collate::Locale'=> '1.10',
+            'VMS::DCLsym'           => '1.06',
+            'XS::APItest'           => '0.70',
+            'arybase'               => '0.10',
+            'attributes'            => '0.25',
+            'autodie'               => '2.26',
+            'autodie::Scope::Guard' => '2.26',
+            'autodie::Scope::GuardStack'=> '2.26',
+            'autodie::ScopeUtil'    => '2.26',
+            'autodie::exception'    => '2.26',
+            'autodie::exception::system'=> '2.26',
+            'autodie::hints'        => '2.26',
+            'autodie::skip'         => '2.26',
+            'ok'                    => '1.301001_097',
+            're'                    => '0.30',
+            'warnings'              => '1.30',
+        },
+        removed => {
+        }
+    },
+    5.020002 => {
+        delta_from => 5.020001,
+        changed => {
+            'CPAN::Author'          => '5.5002',
+            'CPAN::CacheMgr'        => '5.5002',
+            'CPAN::FTP'             => '5.5006',
+            'CPAN::HTTP::Client'    => '1.9601',
+            'CPAN::HandleConfig'    => '5.5005',
+            'CPAN::Index'           => '1.9601',
+            'CPAN::LWP::UserAgent'  => '1.9601',
+            'CPAN::Mirrors'         => '1.9601',
+            'Config'                => '5.020002',
+            'Cwd'                   => '3.48_01',
+            'Data::Dumper'          => '2.151_01',
+            'Errno'                 => '1.20_05',
+            'File::Spec'            => '3.48_01',
+            'File::Spec::Cygwin'    => '3.48_01',
+            'File::Spec::Epoc'      => '3.48_01',
+            'File::Spec::Functions' => '3.48_01',
+            'File::Spec::Mac'       => '3.48_01',
+            'File::Spec::OS2'       => '3.48_01',
+            'File::Spec::Unix'      => '3.48_01',
+            'File::Spec::VMS'       => '3.48_01',
+            'File::Spec::Win32'     => '3.48_01',
+            'IO::Socket'            => '1.38',
+            'Module::CoreList'      => '5.20150214',
+            'Module::CoreList::TieHashDelta'=> '5.20150214',
+            'Module::CoreList::Utils'=> '5.20150214',
+            'PerlIO::scalar'        => '0.18_01',
+            'Pod::PlainText'        => '2.07',
+            'Storable'              => '2.49_01',
+            'VMS::DCLsym'           => '1.05_01',
+            'VMS::Stdio'            => '2.41',
+            'attributes'            => '0.23',
+            'feature'               => '1.36_01',
+        },
+        removed => {
+        }
+    },
+    5.021009 => {
+        delta_from => 5.021008,
+        changed => {
+            'B'                     => '1.56',
+            'B::Debug'              => '1.23',
+            'B::Deparse'            => '1.33',
+            'B::Op_private'         => '5.021009',
+            'Benchmark'             => '1.20',
+            'CPAN::Author'          => '5.5002',
+            'CPAN::CacheMgr'        => '5.5002',
+            'CPAN::FTP'             => '5.5006',
+            'CPAN::HTTP::Client'    => '1.9601',
+            'CPAN::HandleConfig'    => '5.5005',
+            'CPAN::Index'           => '1.9601',
+            'CPAN::LWP::UserAgent'  => '1.9601',
+            'CPAN::Meta::Requirements'=> '2.132',
+            'CPAN::Mirrors'         => '1.9601',
+            'Carp'                  => '1.35',
+            'Carp::Heavy'           => '1.35',
+            'Config'                => '5.021009',
+            'Config::Perl::V'       => '0.23',
+            'Data::Dumper'          => '2.157',
+            'Devel::Peek'           => '1.22',
+            'DynaLoader'            => '1.31',
+            'Encode'                => '2.70',
+            'Encode::MIME::Header'  => '2.16',
+            'Errno'                 => '1.23',
+            'ExtUtils::Miniperl'    => '1.04',
+            'HTTP::Tiny'            => '0.054',
+            'Module::CoreList'      => '5.20150220',
+            'Module::CoreList::TieHashDelta'=> '5.20150220',
+            'Module::CoreList::Utils'=> '5.20150220',
+            'Opcode'                => '1.32',
+            'POSIX'                 => '1.51',
+            'Perl::OSType'          => '1.008',
+            'PerlIO::scalar'        => '0.22',
+            'Pod::Find'             => '1.63',
+            'Pod::InputObjects'     => '1.63',
+            'Pod::ParseUtils'       => '1.63',
+            'Pod::Parser'           => '1.63',
+            'Pod::Perldoc'          => '3.25',
+            'Pod::Perldoc::BaseTo'  => '3.25',
+            'Pod::Perldoc::GetOptsOO'=> '3.25',
+            'Pod::Perldoc::ToANSI'  => '3.25',
+            'Pod::Perldoc::ToChecker'=> '3.25',
+            'Pod::Perldoc::ToMan'   => '3.25',
+            'Pod::Perldoc::ToNroff' => '3.25',
+            'Pod::Perldoc::ToPod'   => '3.25',
+            'Pod::Perldoc::ToRtf'   => '3.25',
+            'Pod::Perldoc::ToTerm'  => '3.25',
+            'Pod::Perldoc::ToText'  => '3.25',
+            'Pod::Perldoc::ToTk'    => '3.25',
+            'Pod::Perldoc::ToXml'   => '3.25',
+            'Pod::PlainText'        => '2.07',
+            'Pod::Select'           => '1.63',
+            'Socket'                => '2.018',
+            'Storable'              => '2.53',
+            'Test::Builder'         => '1.301001_098',
+            'Test::Builder::Module' => '1.301001_098',
+            'Test::Builder::Tester' => '1.301001_098',
+            'Test::Builder::Tester::Color'=> '1.301001_098',
+            'Test::More'            => '1.301001_098',
+            'Test::Simple'          => '1.301001_098',
+            'Test::Stream'          => '1.301001_098',
+            'Test::Tester'          => '1.301001_098',
+            'Test::use::ok'         => '1.301001_098',
+            'Unicode::Collate'      => '1.11',
+            'Unicode::Collate::CJK::Big5'=> '1.11',
+            'Unicode::Collate::CJK::GB2312'=> '1.11',
+            'Unicode::Collate::CJK::JISX0208'=> '1.11',
+            'Unicode::Collate::CJK::Korean'=> '1.11',
+            'Unicode::Collate::CJK::Pinyin'=> '1.11',
+            'Unicode::Collate::CJK::Stroke'=> '1.11',
+            'Unicode::Collate::CJK::Zhuyin'=> '1.11',
+            'Unicode::Collate::Locale'=> '1.11',
+            'Unicode::UCD'          => '0.61',
+            'VMS::Stdio'            => '2.41',
+            'Win32'                 => '0.51',
+            'Win32API::File'        => '0.1202',
+            'attributes'            => '0.26',
+            'bigint'                => '0.39',
+            'bignum'                => '0.39',
+            'bigrat'                => '0.39',
+            'constant'              => '1.33',
+            'encoding'              => '2.13',
+            'feature'               => '1.40',
+            'ok'                    => '1.301001_098',
+            'overload'              => '1.25',
+            'perlfaq'               => '5.021009',
+            're'                    => '0.31',
+            'threads::shared'       => '1.48',
+            'warnings'              => '1.31',
+        },
+        removed => {
+        }
+    },
+    5.021010 => {
+        delta_from => 5.021009,
+        changed => {
+            'App::Cpan'             => '1.63',
+            'B'                     => '1.57',
+            'B::Deparse'            => '1.34',
+            'B::Op_private'         => '5.021010',
+            'Benchmark'             => '1.2',
+            'CPAN'                  => '2.10',
+            'CPAN::Distribution'    => '2.04',
+            'CPAN::FirstTime'       => '5.5307',
+            'CPAN::HTTP::Credentials'=> '1.9601',
+            'CPAN::HandleConfig'    => '5.5006',
+            'CPAN::Meta'            => '2.150001',
+            'CPAN::Meta::Converter' => '2.150001',
+            'CPAN::Meta::Feature'   => '2.150001',
+            'CPAN::Meta::History'   => '2.150001',
+            'CPAN::Meta::Merge'     => '2.150001',
+            'CPAN::Meta::Prereqs'   => '2.150001',
+            'CPAN::Meta::Spec'      => '2.150001',
+            'CPAN::Meta::Validator' => '2.150001',
+            'CPAN::Module'          => '5.5002',
+            'CPAN::Plugin'          => '0.95',
+            'CPAN::Plugin::Specfile'=> '0.01',
+            'CPAN::Shell'           => '5.5005',
+            'Carp'                  => '1.36',
+            'Carp::Heavy'           => '1.36',
+            'Config'                => '5.02101',
+            'Cwd'                   => '3.55',
+            'DB'                    => '1.08',
+            'Data::Dumper'          => '2.158',
+            'Devel::PPPort'         => '3.31',
+            'DynaLoader'            => '1.32',
+            'Encode'                => '2.72',
+            'Encode::Alias'         => '2.19',
+            'File::Spec'            => '3.55',
+            'File::Spec::Cygwin'    => '3.55',
+            'File::Spec::Epoc'      => '3.55',
+            'File::Spec::Functions' => '3.55',
+            'File::Spec::Mac'       => '3.55',
+            'File::Spec::OS2'       => '3.55',
+            'File::Spec::Unix'      => '3.55',
+            'File::Spec::VMS'       => '3.55',
+            'File::Spec::Win32'     => '3.55',
+            'Getopt::Long'          => '2.45',
+            'Locale::Codes'         => '3.34',
+            'Locale::Codes::Constants'=> '3.34',
+            'Locale::Codes::Country'=> '3.34',
+            'Locale::Codes::Country_Codes'=> '3.34',
+            'Locale::Codes::Country_Retired'=> '3.34',
+            'Locale::Codes::Currency'=> '3.34',
+            'Locale::Codes::Currency_Codes'=> '3.34',
+            'Locale::Codes::Currency_Retired'=> '3.34',
+            'Locale::Codes::LangExt'=> '3.34',
+            'Locale::Codes::LangExt_Codes'=> '3.34',
+            'Locale::Codes::LangExt_Retired'=> '3.34',
+            'Locale::Codes::LangFam'=> '3.34',
+            'Locale::Codes::LangFam_Codes'=> '3.34',
+            'Locale::Codes::LangFam_Retired'=> '3.34',
+            'Locale::Codes::LangVar'=> '3.34',
+            'Locale::Codes::LangVar_Codes'=> '3.34',
+            'Locale::Codes::LangVar_Retired'=> '3.34',
+            'Locale::Codes::Language'=> '3.34',
+            'Locale::Codes::Language_Codes'=> '3.34',
+            'Locale::Codes::Language_Retired'=> '3.34',
+            'Locale::Codes::Script' => '3.34',
+            'Locale::Codes::Script_Codes'=> '3.34',
+            'Locale::Codes::Script_Retired'=> '3.34',
+            'Locale::Country'       => '3.34',
+            'Locale::Currency'      => '3.34',
+            'Locale::Language'      => '3.34',
+            'Locale::Script'        => '3.34',
+            'Module::CoreList'      => '5.20150320',
+            'Module::CoreList::TieHashDelta'=> '5.20150320',
+            'Module::CoreList::Utils'=> '5.20150320',
+            'POSIX'                 => '1.52',
+            'Pod::Functions'        => '1.09',
+            'Pod::Functions::Functions'=> '1.09',
+            'Term::Complete'        => '1.403',
+            'Test::Builder'         => '1.001014',
+            'Test::Builder::IO::Scalar'=> '2.113',
+            'Test::Builder::Module' => '1.001014',
+            'Test::Builder::Tester' => '1.28',
+            'Test::Builder::Tester::Color'=> '1.290001',
+            'Test::More'            => '1.001014',
+            'Test::Simple'          => '1.001014',
+            'Test::Tester'          => '0.114',
+            'Test::use::ok'         => '0.16',
+            'Text::Balanced'        => '2.03',
+            'Text::ParseWords'      => '3.30',
+            'Unicode::Collate'      => '1.12',
+            'Unicode::Collate::CJK::Big5'=> '1.12',
+            'Unicode::Collate::CJK::GB2312'=> '1.12',
+            'Unicode::Collate::CJK::JISX0208'=> '1.12',
+            'Unicode::Collate::CJK::Korean'=> '1.12',
+            'Unicode::Collate::CJK::Pinyin'=> '1.12',
+            'Unicode::Collate::CJK::Stroke'=> '1.12',
+            'Unicode::Collate::CJK::Zhuyin'=> '1.12',
+            'Unicode::Collate::Locale'=> '1.12',
+            'XS::APItest'           => '0.71',
+            'encoding'              => '2.14',
+            'locale'                => '1.06',
+            'meta_notation'         => undef,
+            'ok'                    => '0.16',
+            'parent'                => '0.232',
+            're'                    => '0.32',
+            'sigtrap'               => '1.08',
+            'threads'               => '2.01',
+            'utf8'                  => '1.15',
+        },
+        removed => {
+            'Test::CanFork'         => 1,
+            'Test::CanThread'       => 1,
+            'Test::More::DeepCheck' => 1,
+            'Test::More::DeepCheck::Strict'=> 1,
+            'Test::More::DeepCheck::Tolerant'=> 1,
+            'Test::More::Tools'     => 1,
+            'Test::MostlyLike'      => 1,
+            'Test::Stream'          => 1,
+            'Test::Stream::API'     => 1,
+            'Test::Stream::ArrayBase'=> 1,
+            'Test::Stream::ArrayBase::Meta'=> 1,
+            'Test::Stream::Block'   => 1,
+            'Test::Stream::Carp'    => 1,
+            'Test::Stream::Context' => 1,
+            'Test::Stream::Event'   => 1,
+            'Test::Stream::Event::Bail'=> 1,
+            'Test::Stream::Event::Child'=> 1,
+            'Test::Stream::Event::Diag'=> 1,
+            'Test::Stream::Event::Finish'=> 1,
+            'Test::Stream::Event::Note'=> 1,
+            'Test::Stream::Event::Ok'=> 1,
+            'Test::Stream::Event::Plan'=> 1,
+            'Test::Stream::Event::Subtest'=> 1,
+            'Test::Stream::ExitMagic'=> 1,
+            'Test::Stream::ExitMagic::Context'=> 1,
+            'Test::Stream::Exporter'=> 1,
+            'Test::Stream::Exporter::Meta'=> 1,
+            'Test::Stream::ForceExit'=> 1,
+            'Test::Stream::IOSets'  => 1,
+            'Test::Stream::Meta'    => 1,
+            'Test::Stream::PackageUtil'=> 1,
+            'Test::Stream::Subtest' => 1,
+            'Test::Stream::Tester'  => 1,
+            'Test::Stream::Tester::Checks'=> 1,
+            'Test::Stream::Tester::Checks::Event'=> 1,
+            'Test::Stream::Tester::Events'=> 1,
+            'Test::Stream::Tester::Events::Event'=> 1,
+            'Test::Stream::Tester::Grab'=> 1,
+            'Test::Stream::Threads' => 1,
+            'Test::Stream::Toolset' => 1,
+            'Test::Stream::Util'    => 1,
+        }
+    },
+    5.021011 => {
+        delta_from => 5.021010,
+        changed => {
+            'B'                     => '1.58',
+            'B::Deparse'            => '1.35',
+            'B::Op_private'         => '5.021011',
+            'CPAN'                  => '2.11',
+            'Config'                => '5.021011',
+            'Config::Perl::V'       => '0.24',
+            'Cwd'                   => '3.56',
+            'ExtUtils::Miniperl'    => '1.05',
+            'ExtUtils::ParseXS'     => '3.28',
+            'ExtUtils::ParseXS::Constants'=> '3.28',
+            'ExtUtils::ParseXS::CountLines'=> '3.28',
+            'ExtUtils::ParseXS::Eval'=> '3.28',
+            'ExtUtils::ParseXS::Utilities'=> '3.28',
+            'ExtUtils::Typemaps'    => '3.28',
+            'ExtUtils::Typemaps::Cmd'=> '3.28',
+            'ExtUtils::Typemaps::InputMap'=> '3.28',
+            'ExtUtils::Typemaps::OutputMap'=> '3.28',
+            'ExtUtils::Typemaps::Type'=> '3.28',
+            'File::Spec'            => '3.56',
+            'File::Spec::Cygwin'    => '3.56',
+            'File::Spec::Epoc'      => '3.56',
+            'File::Spec::Functions' => '3.56',
+            'File::Spec::Mac'       => '3.56',
+            'File::Spec::OS2'       => '3.56',
+            'File::Spec::Unix'      => '3.56',
+            'File::Spec::VMS'       => '3.56',
+            'File::Spec::Win32'     => '3.56',
+            'IO::Socket::IP'        => '0.37',
+            'Module::CoreList'      => '5.20150420',
+            'Module::CoreList::TieHashDelta'=> '5.20150420',
+            'Module::CoreList::Utils'=> '5.20150420',
+            'PerlIO::mmap'          => '0.014',
+            'XS::APItest'           => '0.72',
+            'attributes'            => '0.27',
+            'if'                    => '0.0604',
+            'utf8'                  => '1.16',
+            'warnings'              => '1.32',
+        },
+        removed => {
+        }
+    },
+    5.022000 => {
+        delta_from => 5.021011,
+        changed => {
+            'B::Op_private'         => '5.022000',
+            'Config'                => '5.022',
+            'ExtUtils::Command::MM' => '7.04_01',
+            'ExtUtils::Liblist'     => '7.04_01',
+            'ExtUtils::Liblist::Kid'=> '7.04_01',
+            'ExtUtils::MM'          => '7.04_01',
+            'ExtUtils::MM_AIX'      => '7.04_01',
+            'ExtUtils::MM_Any'      => '7.04_01',
+            'ExtUtils::MM_BeOS'     => '7.04_01',
+            'ExtUtils::MM_Cygwin'   => '7.04_01',
+            'ExtUtils::MM_DOS'      => '7.04_01',
+            'ExtUtils::MM_Darwin'   => '7.04_01',
+            'ExtUtils::MM_MacOS'    => '7.04_01',
+            'ExtUtils::MM_NW5'      => '7.04_01',
+            'ExtUtils::MM_OS2'      => '7.04_01',
+            'ExtUtils::MM_QNX'      => '7.04_01',
+            'ExtUtils::MM_UWIN'     => '7.04_01',
+            'ExtUtils::MM_Unix'     => '7.04_01',
+            'ExtUtils::MM_VMS'      => '7.04_01',
+            'ExtUtils::MM_VOS'      => '7.04_01',
+            'ExtUtils::MM_Win32'    => '7.04_01',
+            'ExtUtils::MM_Win95'    => '7.04_01',
+            'ExtUtils::MY'          => '7.04_01',
+            'ExtUtils::MakeMaker'   => '7.04_01',
+            'ExtUtils::MakeMaker::Config'=> '7.04_01',
+            'ExtUtils::MakeMaker::Locale'=> '7.04_01',
+            'ExtUtils::MakeMaker::version'=> '7.04_01',
+            'ExtUtils::MakeMaker::version::regex'=> '7.04_01',
+            'ExtUtils::MakeMaker::version::vpp'=> '7.04_01',
+            'ExtUtils::Mkbootstrap' => '7.04_01',
+            'ExtUtils::Mksymlists'  => '7.04_01',
+            'ExtUtils::testlib'     => '7.04_01',
+            'Module::CoreList'      => '5.20150520',
+            'Module::CoreList::TieHashDelta'=> '5.20150520',
+            'Module::CoreList::Utils'=> '5.20150520',
+            'POSIX'                 => '1.53',
+            'PerlIO::via::QuotedPrint'=> '0.08',
+            'overload'              => '1.26',
+            'utf8'                  => '1.17',
+        },
+        removed => {
+        }
+    },
+    5.023000 => {
+        delta_from => 5.022000,
+        changed => {
+            'B::Op_private'         => '5.023000',
+            'CPAN::Meta'            => '2.150005',
+            'CPAN::Meta::Converter' => '2.150005',
+            'CPAN::Meta::Feature'   => '2.150005',
+            'CPAN::Meta::History'   => '2.150005',
+            'CPAN::Meta::Merge'     => '2.150005',
+            'CPAN::Meta::Prereqs'   => '2.150005',
+            'CPAN::Meta::Requirements'=> '2.133',
+            'CPAN::Meta::Spec'      => '2.150005',
+            'CPAN::Meta::Validator' => '2.150005',
+            'CPAN::Meta::YAML'      => '0.016',
+            'Config'                => '5.023',
+            'Encode'                => '2.73',
+            'ExtUtils::CBuilder'    => '0.280223',
+            'ExtUtils::CBuilder::Base'=> '0.280223',
+            'ExtUtils::CBuilder::Platform::Unix'=> '0.280223',
+            'ExtUtils::CBuilder::Platform::VMS'=> '0.280223',
+            'ExtUtils::CBuilder::Platform::Windows'=> '0.280223',
+            'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.280223',
+            'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.280223',
+            'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.280223',
+            'ExtUtils::CBuilder::Platform::aix'=> '0.280223',
+            'ExtUtils::CBuilder::Platform::android'=> '0.280223',
+            'ExtUtils::CBuilder::Platform::cygwin'=> '0.280223',
+            'ExtUtils::CBuilder::Platform::darwin'=> '0.280223',
+            'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280223',
+            'ExtUtils::CBuilder::Platform::os2'=> '0.280223',
+            'Fatal'                 => '2.27',
+            'Getopt::Long'          => '2.46',
+            'HTTP::Tiny'            => '0.056',
+            'List::Util'            => '1.42_01',
+            'List::Util::XS'        => '1.42_01',
+            'Locale::Codes'         => '3.35',
+            'Locale::Codes::Constants'=> '3.35',
+            'Locale::Codes::Country'=> '3.35',
+            'Locale::Codes::Country_Codes'=> '3.35',
+            'Locale::Codes::Country_Retired'=> '3.35',
+            'Locale::Codes::Currency'=> '3.35',
+            'Locale::Codes::Currency_Codes'=> '3.35',
+            'Locale::Codes::Currency_Retired'=> '3.35',
+            'Locale::Codes::LangExt'=> '3.35',
+            'Locale::Codes::LangExt_Codes'=> '3.35',
+            'Locale::Codes::LangExt_Retired'=> '3.35',
+            'Locale::Codes::LangFam'=> '3.35',
+            'Locale::Codes::LangFam_Codes'=> '3.35',
+            'Locale::Codes::LangFam_Retired'=> '3.35',
+            'Locale::Codes::LangVar'=> '3.35',
+            'Locale::Codes::LangVar_Codes'=> '3.35',
+            'Locale::Codes::LangVar_Retired'=> '3.35',
+            'Locale::Codes::Language'=> '3.35',
+            'Locale::Codes::Language_Codes'=> '3.35',
+            'Locale::Codes::Language_Retired'=> '3.35',
+            'Locale::Codes::Script' => '3.35',
+            'Locale::Codes::Script_Codes'=> '3.35',
+            'Locale::Codes::Script_Retired'=> '3.35',
+            'Locale::Country'       => '3.35',
+            'Locale::Currency'      => '3.35',
+            'Locale::Language'      => '3.35',
+            'Locale::Script'        => '3.35',
+            'Math::BigFloat'        => '1.999701',
+            'Math::BigInt'          => '1.999701',
+            'Math::BigInt::Calc'    => '1.999701',
+            'Math::BigInt::CalcEmu' => '1.999701',
+            'Math::BigRat'          => '0.260801',
+            'Module::CoreList'      => '5.20150620',
+            'Module::CoreList::TieHashDelta'=> '5.20150620',
+            'Module::CoreList::Utils'=> '5.20150620',
+            'Module::Metadata'      => '1.000027',
+            'Net::Cmd'              => '3.06',
+            'Net::Config'           => '3.06',
+            'Net::Domain'           => '3.06',
+            'Net::FTP'              => '3.06',
+            'Net::FTP::A'           => '3.06',
+            'Net::FTP::E'           => '3.06',
+            'Net::FTP::I'           => '3.06',
+            'Net::FTP::L'           => '3.06',
+            'Net::FTP::dataconn'    => '3.06',
+            'Net::NNTP'             => '3.06',
+            'Net::Netrc'            => '3.06',
+            'Net::POP3'             => '3.06',
+            'Net::SMTP'             => '3.06',
+            'Net::Time'             => '3.06',
+            'POSIX'                 => '1.54',
+            'Parse::CPAN::Meta'     => '1.4417',
+            'Pod::Simple'           => '3.30',
+            'Pod::Simple::BlackBox' => '3.30',
+            'Pod::Simple::Checker'  => '3.30',
+            'Pod::Simple::Debug'    => '3.30',
+            'Pod::Simple::DumpAsText'=> '3.30',
+            'Pod::Simple::DumpAsXML'=> '3.30',
+            'Pod::Simple::HTML'     => '3.30',
+            'Pod::Simple::HTMLBatch'=> '3.30',
+            'Pod::Simple::LinkSection'=> '3.30',
+            'Pod::Simple::Methody'  => '3.30',
+            'Pod::Simple::Progress' => '3.30',
+            'Pod::Simple::PullParser'=> '3.30',
+            'Pod::Simple::PullParserEndToken'=> '3.30',
+            'Pod::Simple::PullParserStartToken'=> '3.30',
+            'Pod::Simple::PullParserTextToken'=> '3.30',
+            'Pod::Simple::PullParserToken'=> '3.30',
+            'Pod::Simple::RTF'      => '3.30',
+            'Pod::Simple::Search'   => '3.30',
+            'Pod::Simple::SimpleTree'=> '3.30',
+            'Pod::Simple::Text'     => '3.30',
+            'Pod::Simple::TextContent'=> '3.30',
+            'Pod::Simple::TiedOutFH'=> '3.30',
+            'Pod::Simple::Transcode'=> '3.30',
+            'Pod::Simple::TranscodeDumb'=> '3.30',
+            'Pod::Simple::TranscodeSmart'=> '3.30',
+            'Pod::Simple::XHTML'    => '3.30',
+            'Pod::Simple::XMLOutStream'=> '3.30',
+            'Pod::Usage'            => '1.67',
+            'Scalar::Util'          => '1.42_01',
+            'Socket'                => '2.019',
+            'Sub::Util'             => '1.42_01',
+            'Time::Piece'           => '1.30',
+            'Time::Seconds'         => '1.30',
+            'UNIVERSAL'             => '1.13',
+            'Unicode'               => '8.0.0',
+            'XS::APItest'           => '0.73',
+            'autodie'               => '2.27',
+            'autodie::Scope::Guard' => '2.27',
+            'autodie::Scope::GuardStack'=> '2.27',
+            'autodie::Util'         => '2.27',
+            'autodie::exception'    => '2.27',
+            'autodie::exception::system'=> '2.27',
+            'autodie::hints'        => '2.27',
+            'autodie::skip'         => '2.27',
+            'encoding'              => '2.15',
+            'feature'               => '1.41',
+            'parent'                => '0.234',
+            'threads'               => '2.02',
+        },
+        removed => {
+        }
+    },
+    5.023001 => {
+        delta_from => 5.023000,
+        changed => {
+            'B::Op_private'         => '5.023001',
+            'Config'                => '5.023001',
+            'DynaLoader'            => '1.33',
+            'Encode'                => '2.75',
+            'Encode::MIME::Header'  => '2.17',
+            'Encode::Unicode'       => '2.13',
+            'Fatal'                 => '2.29',
+            'File::Path'            => '2.11',
+            'Getopt::Long'          => '2.47',
+            'I18N::Langinfo'        => '0.13',
+            'IPC::Open3'            => '1.19',
+            'Module::CoreList'      => '5.20150720',
+            'Module::CoreList::TieHashDelta'=> '5.20150720',
+            'Module::CoreList::Utils'=> '5.20150720',
+            'Net::Cmd'              => '3.07',
+            'Net::Config'           => '3.07',
+            'Net::Domain'           => '3.07',
+            'Net::FTP'              => '3.07',
+            'Net::FTP::A'           => '3.07',
+            'Net::FTP::E'           => '3.07',
+            'Net::FTP::I'           => '3.07',
+            'Net::FTP::L'           => '3.07',
+            'Net::FTP::dataconn'    => '3.07',
+            'Net::NNTP'             => '3.07',
+            'Net::Netrc'            => '3.07',
+            'Net::POP3'             => '3.07',
+            'Net::SMTP'             => '3.07',
+            'Net::Time'             => '3.07',
+            'Opcode'                => '1.33',
+            'POSIX'                 => '1.55',
+            'PerlIO::scalar'        => '0.23',
+            'Socket'                => '2.020',
+            'Storable'              => '2.54',
+            'Unicode::Collate'      => '1.14',
+            'Unicode::Collate::CJK::Big5'=> '1.14',
+            'Unicode::Collate::CJK::GB2312'=> '1.14',
+            'Unicode::Collate::CJK::JISX0208'=> '1.14',
+            'Unicode::Collate::CJK::Korean'=> '1.14',
+            'Unicode::Collate::CJK::Pinyin'=> '1.14',
+            'Unicode::Collate::CJK::Stroke'=> '1.14',
+            'Unicode::Collate::CJK::Zhuyin'=> '1.14',
+            'Unicode::Collate::Locale'=> '1.14',
+            'Unicode::Normalize'    => '1.19',
+            'XS::APItest'           => '0.74',
+            'XS::Typemap'           => '0.14',
+            'autodie'               => '2.29',
+            'autodie::Scope::Guard' => '2.29',
+            'autodie::Scope::GuardStack'=> '2.29',
+            'autodie::Util'         => '2.29',
+            'autodie::exception'    => '2.29',
+            'autodie::exception::system'=> '2.29',
+            'autodie::hints'        => '2.29',
+            'autodie::skip'         => '2.29',
+            'encoding'              => '2.16',
+            'feature'               => '1.42',
+            'warnings'              => '1.33',
+        },
+        removed => {
+            'autodie::ScopeUtil'    => 1,
+        }
+    },
+    5.023002 => {
+        delta_from => 5.023001,
+        changed => {
+            'Attribute::Handlers'   => '0.99',
+            'B::Op_private'         => '5.023002',
+            'CPAN::Meta::YAML'      => '0.017',
+            'Config'                => '5.023002',
+            'Cwd'                   => '3.57',
+            'Encode'                => '2.76',
+            'ExtUtils::ParseXS'     => '3.29',
+            'ExtUtils::ParseXS::Constants'=> '3.29',
+            'ExtUtils::ParseXS::CountLines'=> '3.29',
+            'ExtUtils::ParseXS::Eval'=> '3.29',
+            'ExtUtils::ParseXS::Utilities'=> '3.29',
+            'ExtUtils::Typemaps'    => '3.29',
+            'File::Find'            => '1.30',
+            'File::Spec'            => '3.57',
+            'File::Spec::Cygwin'    => '3.57',
+            'File::Spec::Epoc'      => '3.57',
+            'File::Spec::Functions' => '3.57',
+            'File::Spec::Mac'       => '3.57',
+            'File::Spec::OS2'       => '3.57',
+            'File::Spec::Unix'      => '3.57',
+            'File::Spec::VMS'       => '3.57',
+            'File::Spec::Win32'     => '3.57',
+            'Filter::Util::Call'    => '1.55',
+            'Hash::Util'            => '0.19',
+            'Module::CoreList'      => '5.20150820',
+            'Module::CoreList::TieHashDelta'=> '5.20150820',
+            'Module::CoreList::Utils'=> '5.20150820',
+            'POSIX'                 => '1.56',
+            'Term::Cap'             => '1.17',
+            'Unicode::UCD'          => '0.62',
+            'perlfaq'               => '5.021010',
+        },
+        removed => {
+        }
+    },
+    5.020003 => {
+        delta_from => 5.020002,
+        changed => {
+            'Config'                => '5.020003',
+            'Errno'                 => '1.20_06',
+            'Module::CoreList'      => '5.20150912',
+            'Module::CoreList::TieHashDelta'=> '5.20150912',
+            'Module::CoreList::Utils'=> '5.20150912',
+        },
+        removed => {
+        }
+    },
+    5.023003 => {
+        delta_from => 5.023002,
+        changed => {
+            'Amiga::ARexx'          => '0.02',
+            'Amiga::Exec'           => '0.01',
+            'B'                     => '1.59',
+            'B::Op_private'         => '5.023003',
+            'Carp'                  => '1.37',
+            'Carp::Heavy'           => '1.37',
+            'Compress::Raw::Zlib'   => '2.068_01',
+            'Config'                => '5.023003',
+            'Cwd'                   => '3.58',
+            'DynaLoader'            => '1.34',
+            'Encode'                => '2.77',
+            'Encode::Unicode'       => '2.14',
+            'English'               => '1.10',
+            'Errno'                 => '1.24',
+            'ExtUtils::Command'     => '7.10',
+            'ExtUtils::Command::MM' => '7.10',
+            'ExtUtils::Liblist'     => '7.10',
+            'ExtUtils::Liblist::Kid'=> '7.10',
+            'ExtUtils::MM'          => '7.10',
+            'ExtUtils::MM_AIX'      => '7.10',
+            'ExtUtils::MM_Any'      => '7.10',
+            'ExtUtils::MM_BeOS'     => '7.10',
+            'ExtUtils::MM_Cygwin'   => '7.10',
+            'ExtUtils::MM_DOS'      => '7.10',
+            'ExtUtils::MM_Darwin'   => '7.10',
+            'ExtUtils::MM_MacOS'    => '7.10',
+            'ExtUtils::MM_NW5'      => '7.10',
+            'ExtUtils::MM_OS2'      => '7.10',
+            'ExtUtils::MM_QNX'      => '7.10',
+            'ExtUtils::MM_UWIN'     => '7.10',
+            'ExtUtils::MM_Unix'     => '7.10',
+            'ExtUtils::MM_VMS'      => '7.10',
+            'ExtUtils::MM_VOS'      => '7.10',
+            'ExtUtils::MM_Win32'    => '7.10',
+            'ExtUtils::MM_Win95'    => '7.10',
+            'ExtUtils::MY'          => '7.10',
+            'ExtUtils::MakeMaker'   => '7.10',
+            'ExtUtils::MakeMaker::Config'=> '7.10',
+            'ExtUtils::MakeMaker::Locale'=> '7.10',
+            'ExtUtils::MakeMaker::version'=> '7.10',
+            'ExtUtils::MakeMaker::version::regex'=> '7.10',
+            'ExtUtils::MakeMaker::version::vpp'=> '7.10',
+            'ExtUtils::Mkbootstrap' => '7.10',
+            'ExtUtils::Mksymlists'  => '7.10',
+            'ExtUtils::ParseXS'     => '3.30',
+            'ExtUtils::ParseXS::Constants'=> '3.30',
+            'ExtUtils::ParseXS::CountLines'=> '3.30',
+            'ExtUtils::ParseXS::Eval'=> '3.30',
+            'ExtUtils::ParseXS::Utilities'=> '3.30',
+            'ExtUtils::Typemaps'    => '3.30',
+            'ExtUtils::Typemaps::Cmd'=> '3.30',
+            'ExtUtils::Typemaps::InputMap'=> '3.30',
+            'ExtUtils::Typemaps::OutputMap'=> '3.30',
+            'ExtUtils::Typemaps::Type'=> '3.30',
+            'ExtUtils::testlib'     => '7.10',
+            'File::Find'            => '1.31',
+            'File::Glob'            => '1.25',
+            'File::Spec'            => '3.58',
+            'File::Spec::AmigaOS'   => '3.58',
+            'File::Spec::Cygwin'    => '3.58',
+            'File::Spec::Epoc'      => '3.58',
+            'File::Spec::Functions' => '3.58',
+            'File::Spec::Mac'       => '3.58',
+            'File::Spec::OS2'       => '3.58',
+            'File::Spec::Unix'      => '3.58',
+            'File::Spec::VMS'       => '3.58',
+            'File::Spec::Win32'     => '3.58',
+            'Hash::Util::FieldHash' => '1.17',
+            'Locale::Codes'         => '3.36',
+            'Locale::Codes::Constants'=> '3.36',
+            'Locale::Codes::Country'=> '3.36',
+            'Locale::Codes::Country_Codes'=> '3.36',
+            'Locale::Codes::Country_Retired'=> '3.36',
+            'Locale::Codes::Currency'=> '3.36',
+            'Locale::Codes::Currency_Codes'=> '3.36',
+            'Locale::Codes::Currency_Retired'=> '3.36',
+            'Locale::Codes::LangExt'=> '3.36',
+            'Locale::Codes::LangExt_Codes'=> '3.36',
+            'Locale::Codes::LangExt_Retired'=> '3.36',
+            'Locale::Codes::LangFam'=> '3.36',
+            'Locale::Codes::LangFam_Codes'=> '3.36',
+            'Locale::Codes::LangFam_Retired'=> '3.36',
+            'Locale::Codes::LangVar'=> '3.36',
+            'Locale::Codes::LangVar_Codes'=> '3.36',
+            'Locale::Codes::LangVar_Retired'=> '3.36',
+            'Locale::Codes::Language'=> '3.36',
+            'Locale::Codes::Language_Codes'=> '3.36',
+            'Locale::Codes::Language_Retired'=> '3.36',
+            'Locale::Codes::Script' => '3.36',
+            'Locale::Codes::Script_Codes'=> '3.36',
+            'Locale::Codes::Script_Retired'=> '3.36',
+            'Locale::Country'       => '3.36',
+            'Locale::Currency'      => '3.36',
+            'Locale::Language'      => '3.36',
+            'Locale::Script'        => '3.36',
+            'Math::BigFloat::Trace' => '0.40',
+            'Math::BigInt::Trace'   => '0.40',
+            'Module::CoreList'      => '5.20150920',
+            'Module::CoreList::TieHashDelta'=> '5.20150920',
+            'Module::CoreList::Utils'=> '5.20150920',
+            'OS2::DLL'              => '1.06',
+            'OS2::ExtAttr'          => '0.04',
+            'OS2::Process'          => '1.11',
+            'OS2::REXX'             => '1.05',
+            'POSIX'                 => '1.57',
+            'Pod::Perldoc'          => '3.25_01',
+            'Socket'                => '2.020_01',
+            'Test'                  => '1.27',
+            'Thread::Queue'         => '3.06',
+            'Time::HiRes'           => '1.9727_02',
+            'Unicode::UCD'          => '0.63',
+            'Win32'                 => '0.52',
+            'XS::APItest'           => '0.75',
+            'bigint'                => '0.40',
+            'bignum'                => '0.40',
+            'bigrat'                => '0.40',
+            'encoding'              => '2.17',
+            'experimental'          => '0.014',
+            'if'                    => '0.0605',
+            'locale'                => '1.07',
+            'mro'                   => '1.18',
+            'threads'               => '2.03',
+        },
+        removed => {
+        }
+    },
+    5.023004 => {
+        delta_from => 5.023003,
+        changed => {
+            'B'                     => '1.60',
+            'B::Op_private'         => '5.023004',
+            'Compress::Raw::Bzip2'  => '2.069',
+            'Compress::Raw::Zlib'   => '2.069',
+            'Compress::Zlib'        => '2.069',
+            'Config'                => '5.023004',
+            'Devel::PPPort'         => '3.32',
+            'DynaLoader'            => '1.35',
+            'Encode'                => '2.78',
+            'ExtUtils::CBuilder'    => '0.280224',
+            'ExtUtils::CBuilder::Base'=> '0.280224',
+            'ExtUtils::CBuilder::Platform::Unix'=> '0.280224',
+            'ExtUtils::CBuilder::Platform::VMS'=> '0.280224',
+            'ExtUtils::CBuilder::Platform::Windows'=> '0.280224',
+            'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.280224',
+            'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.280224',
+            'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.280224',
+            'ExtUtils::CBuilder::Platform::aix'=> '0.280224',
+            'ExtUtils::CBuilder::Platform::android'=> '0.280224',
+            'ExtUtils::CBuilder::Platform::cygwin'=> '0.280224',
+            'ExtUtils::CBuilder::Platform::darwin'=> '0.280224',
+            'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280224',
+            'ExtUtils::CBuilder::Platform::os2'=> '0.280224',
+            'File::Path'            => '2.12',
+            'IO'                    => '1.36',
+            'IO::Compress::Adapter::Bzip2'=> '2.069',
+            'IO::Compress::Adapter::Deflate'=> '2.069',
+            'IO::Compress::Adapter::Identity'=> '2.069',
+            'IO::Compress::Base'    => '2.069',
+            'IO::Compress::Base::Common'=> '2.069',
+            'IO::Compress::Bzip2'   => '2.069',
+            'IO::Compress::Deflate' => '2.069',
+            'IO::Compress::Gzip'    => '2.069',
+            'IO::Compress::Gzip::Constants'=> '2.069',
+            'IO::Compress::RawDeflate'=> '2.069',
+            'IO::Compress::Zip'     => '2.069',
+            'IO::Compress::Zip::Constants'=> '2.069',
+            'IO::Compress::Zlib::Constants'=> '2.069',
+            'IO::Compress::Zlib::Extra'=> '2.069',
+            'IO::Poll'              => '0.10',
+            'IO::Uncompress::Adapter::Bunzip2'=> '2.069',
+            'IO::Uncompress::Adapter::Identity'=> '2.069',
+            'IO::Uncompress::Adapter::Inflate'=> '2.069',
+            'IO::Uncompress::AnyInflate'=> '2.069',
+            'IO::Uncompress::AnyUncompress'=> '2.069',
+            'IO::Uncompress::Base'  => '2.069',
+            'IO::Uncompress::Bunzip2'=> '2.069',
+            'IO::Uncompress::Gunzip'=> '2.069',
+            'IO::Uncompress::Inflate'=> '2.069',
+            'IO::Uncompress::RawInflate'=> '2.069',
+            'IO::Uncompress::Unzip' => '2.069',
+            'Math::BigFloat'        => '1.999704',
+            'Math::BigFloat::Trace' => '0.41',
+            'Math::BigInt'          => '1.999704',
+            'Math::BigInt::Calc'    => '1.999704',
+            'Math::BigInt::CalcEmu' => '1.999704',
+            'Math::BigInt::FastCalc'=> '0.34',
+            'Math::BigInt::Trace'   => '0.41',
+            'Module::CoreList'      => '5.20151020',
+            'Module::CoreList::TieHashDelta'=> '5.20151020',
+            'Module::CoreList::Utils'=> '5.20151020',
+            'Module::Metadata'      => '1.000029',
+            'POSIX'                 => '1.58',
+            'Perl::OSType'          => '1.009',
+            'PerlIO::encoding'      => '0.22',
+            'Socket'                => '2.020_02',
+            'Unicode::Normalize'    => '1.21',
+            'XS::APItest'           => '0.76',
+            'bigint'                => '0.41',
+            'bignum'                => '0.41',
+            'bigrat'                => '0.41',
+            'experimental'          => '0.016',
+            'if'                    => '0.0606',
+            'warnings'              => '1.35',
+        },
+        removed => {
+        }
+    },
+    5.023005 => {
+        delta_from => 5.023004,
+        changed => {
+            'B'                     => '1.61',
+            'B::Op_private'         => '5.023005',
+            'Carp'                  => '1.38',
+            'Carp::Heavy'           => '1.38',
+            'Config'                => '5.023005',
+            'Config::Perl::V'       => '0.25',
+            'Cwd'                   => '3.59',
+            'Devel::Peek'           => '1.23',
+            'Dumpvalue'             => '1.18',
+            'DynaLoader'            => '1.36',
+            'File::Find'            => '1.32',
+            'File::Spec'            => '3.59',
+            'File::Spec::AmigaOS'   => '3.59',
+            'File::Spec::Cygwin'    => '3.59',
+            'File::Spec::Epoc'      => '3.59',
+            'File::Spec::Functions' => '3.59',
+            'File::Spec::Mac'       => '3.59',
+            'File::Spec::OS2'       => '3.59',
+            'File::Spec::Unix'      => '3.59',
+            'File::Spec::VMS'       => '3.59',
+            'File::Spec::Win32'     => '3.59',
+            'Getopt::Long'          => '2.48',
+            'Hash::Util::FieldHash' => '1.18',
+            'IPC::Open3'            => '1.20',
+            'Math::BigFloat'        => '1.999710',
+            'Math::BigInt'          => '1.999710',
+            'Math::BigInt::Calc'    => '1.999710',
+            'Math::BigInt::CalcEmu' => '1.999710',
+            'Math::BigInt::FastCalc'=> '0.37',
+            'Module::CoreList'      => '5.20151120',
+            'Module::CoreList::TieHashDelta'=> '5.20151120',
+            'Module::CoreList::Utils'=> '5.20151120',
+            'Module::Metadata'      => '1.000030',
+            'POSIX'                 => '1.59',
+            'PerlIO::encoding'      => '0.23',
+            'PerlIO::mmap'          => '0.015',
+            'PerlIO::scalar'        => '0.24',
+            'PerlIO::via'           => '0.16',
+            'Pod::Simple'           => '3.32',
+            'Pod::Simple::BlackBox' => '3.32',
+            'Pod::Simple::Checker'  => '3.32',
+            'Pod::Simple::Debug'    => '3.32',
+            'Pod::Simple::DumpAsText'=> '3.32',
+            'Pod::Simple::DumpAsXML'=> '3.32',
+            'Pod::Simple::HTML'     => '3.32',
+            'Pod::Simple::HTMLBatch'=> '3.32',
+            'Pod::Simple::LinkSection'=> '3.32',
+            'Pod::Simple::Methody'  => '3.32',
+            'Pod::Simple::Progress' => '3.32',
+            'Pod::Simple::PullParser'=> '3.32',
+            'Pod::Simple::PullParserEndToken'=> '3.32',
+            'Pod::Simple::PullParserStartToken'=> '3.32',
+            'Pod::Simple::PullParserTextToken'=> '3.32',
+            'Pod::Simple::PullParserToken'=> '3.32',
+            'Pod::Simple::RTF'      => '3.32',
+            'Pod::Simple::Search'   => '3.32',
+            'Pod::Simple::SimpleTree'=> '3.32',
+            'Pod::Simple::Text'     => '3.32',
+            'Pod::Simple::TextContent'=> '3.32',
+            'Pod::Simple::TiedOutFH'=> '3.32',
+            'Pod::Simple::Transcode'=> '3.32',
+            'Pod::Simple::TranscodeDumb'=> '3.32',
+            'Pod::Simple::TranscodeSmart'=> '3.32',
+            'Pod::Simple::XHTML'    => '3.32',
+            'Pod::Simple::XMLOutStream'=> '3.32',
+            'Thread::Queue'         => '3.07',
+            'Tie::Scalar'           => '1.04',
+            'Time::HiRes'           => '1.9728',
+            'Time::Piece'           => '1.31',
+            'Time::Seconds'         => '1.31',
+            'Unicode::Normalize'    => '1.23',
+            'XSLoader'              => '0.21',
+            'arybase'               => '0.11',
+            'base'                  => '2.22_01',
+            'fields'                => '2.22_01',
+            'threads'               => '2.04',
+            'threads::shared'       => '1.49',
+        },
+        removed => {
+            'ExtUtils::MakeMaker::version::vpp'=> 1,
+            'version::vpp'          => 1,
+        }
+    },
+    5.022001 => {
+        delta_from => 5.022,
+        changed => {
+            'B::Op_private'         => '5.022001',
+            'Config'                => '5.022001',
+            'Module::CoreList'      => '5.20151213',
+            'Module::CoreList::TieHashDelta'=> '5.20151213',
+            'Module::CoreList::Utils'=> '5.20151213',
+            'POSIX'                 => '1.53_01',
+            'PerlIO::scalar'        => '0.23',
+            'Storable'              => '2.53_01',
+            'Win32'                 => '0.52',
+            'warnings'              => '1.34',
+        },
+        removed => {
+        }
+    },
+    5.023006 => {
+        delta_from => 5.023005,
+        changed => {
+            'B::Deparse'            => '1.36',
+            'B::Op_private'         => '5.023006',
+            'Benchmark'             => '1.21',
+            'CPAN::Meta::Requirements'=> '2.140',
+            'CPAN::Meta::YAML'      => '0.018',
+            'Config'                => '5.023006',
+            'Cwd'                   => '3.60',
+            'Data::Dumper'          => '2.159',
+            'DynaLoader'            => '1.37',
+            'File::Spec'            => '3.60',
+            'File::Spec::AmigaOS'   => '3.60',
+            'File::Spec::Cygwin'    => '3.60',
+            'File::Spec::Epoc'      => '3.60',
+            'File::Spec::Functions' => '3.60',
+            'File::Spec::Mac'       => '3.60',
+            'File::Spec::OS2'       => '3.60',
+            'File::Spec::Unix'      => '3.60',
+            'File::Spec::VMS'       => '3.60',
+            'File::Spec::Win32'     => '3.60',
+            'Hash::Util::FieldHash' => '1.19',
+            'Locale::Codes'         => '3.37',
+            'Locale::Codes::Constants'=> '3.37',
+            'Locale::Codes::Country'=> '3.37',
+            'Locale::Codes::Country_Codes'=> '3.37',
+            'Locale::Codes::Country_Retired'=> '3.37',
+            'Locale::Codes::Currency'=> '3.37',
+            'Locale::Codes::Currency_Codes'=> '3.37',
+            'Locale::Codes::Currency_Retired'=> '3.37',
+            'Locale::Codes::LangExt'=> '3.37',
+            'Locale::Codes::LangExt_Codes'=> '3.37',
+            'Locale::Codes::LangExt_Retired'=> '3.37',
+            'Locale::Codes::LangFam'=> '3.37',
+            'Locale::Codes::LangFam_Codes'=> '3.37',
+            'Locale::Codes::LangFam_Retired'=> '3.37',
+            'Locale::Codes::LangVar'=> '3.37',
+            'Locale::Codes::LangVar_Codes'=> '3.37',
+            'Locale::Codes::LangVar_Retired'=> '3.37',
+            'Locale::Codes::Language'=> '3.37',
+            'Locale::Codes::Language_Codes'=> '3.37',
+            'Locale::Codes::Language_Retired'=> '3.37',
+            'Locale::Codes::Script' => '3.37',
+            'Locale::Codes::Script_Codes'=> '3.37',
+            'Locale::Codes::Script_Retired'=> '3.37',
+            'Locale::Country'       => '3.37',
+            'Locale::Currency'      => '3.37',
+            'Locale::Language'      => '3.37',
+            'Locale::Script'        => '3.37',
+            'Math::BigInt::FastCalc'=> '0.38',
+            'Module::CoreList'      => '5.20151220',
+            'Module::CoreList::TieHashDelta'=> '5.20151220',
+            'Module::CoreList::Utils'=> '5.20151220',
+            'Module::Metadata'      => '1.000031',
+            'Opcode'                => '1.34',
+            'PerlIO::mmap'          => '0.016',
+            'Pod::Perldoc'          => '3.25_02',
+            'SDBM_File'             => '1.14',
+            'Term::ANSIColor'       => '4.04',
+            'Test'                  => '1.28',
+            'Unicode::Normalize'    => '1.24',
+            'XS::APItest'           => '0.77',
+            'base'                  => '2.23',
+            'encoding::warnings'    => '0.12',
+            'fields'                => '2.23',
+            'locale'                => '1.08',
+            'strict'                => '1.10',
+            'threads'               => '2.05',
+            'threads::shared'       => '1.50',
+            'utf8'                  => '1.18',
+        },
+        removed => {
+        }
+    },
+    5.023007 => {
+        delta_from => 5.023006,
+        changed => {
+            'App::Prove'            => '3.36',
+            'App::Prove::State'     => '3.36',
+            'App::Prove::State::Result'=> '3.36',
+            'App::Prove::State::Result::Test'=> '3.36',
+            'B'                     => '1.62',
+            'B::Deparse'            => '1.37',
+            'B::Op_private'         => '5.023007',
+            'Benchmark'             => '1.22',
+            'Config'                => '5.023007',
+            'Cwd'                   => '3.62',
+            'Data::Dumper'          => '2.160',
+            'ExtUtils::ParseXS'     => '3.31',
+            'ExtUtils::ParseXS::Constants'=> '3.31',
+            'ExtUtils::ParseXS::CountLines'=> '3.31',
+            'ExtUtils::ParseXS::Eval'=> '3.31',
+            'ExtUtils::ParseXS::Utilities'=> '3.31',
+            'ExtUtils::Typemaps'    => '3.31',
+            'ExtUtils::Typemaps::Cmd'=> '3.31',
+            'ExtUtils::Typemaps::InputMap'=> '3.31',
+            'ExtUtils::Typemaps::OutputMap'=> '3.31',
+            'ExtUtils::Typemaps::Type'=> '3.31',
+            'File::Find'            => '1.33',
+            'File::Spec'            => '3.62',
+            'File::Spec::AmigaOS'   => '3.62',
+            'File::Spec::Cygwin'    => '3.62',
+            'File::Spec::Epoc'      => '3.62',
+            'File::Spec::Functions' => '3.62',
+            'File::Spec::Mac'       => '3.62',
+            'File::Spec::OS2'       => '3.62',
+            'File::Spec::Unix'      => '3.62',
+            'File::Spec::VMS'       => '3.62',
+            'File::Spec::Win32'     => '3.62',
+            'Math::BigFloat'        => '1.999715',
+            'Math::BigFloat::Trace' => '0.42',
+            'Math::BigInt'          => '1.999715',
+            'Math::BigInt::Calc'    => '1.999715',
+            'Math::BigInt::CalcEmu' => '1.999715',
+            'Math::BigInt::FastCalc'=> '0.40',
+            'Math::BigInt::Trace'   => '0.42',
+            'Math::BigRat'          => '0.260802',
+            'Module::CoreList'      => '5.20160120',
+            'Module::CoreList::TieHashDelta'=> '5.20160120',
+            'Module::CoreList::Utils'=> '5.20160120',
+            'Net::Cmd'              => '3.08',
+            'Net::Config'           => '3.08',
+            'Net::Domain'           => '3.08',
+            'Net::FTP'              => '3.08',
+            'Net::FTP::A'           => '3.08',
+            'Net::FTP::E'           => '3.08',
+            'Net::FTP::I'           => '3.08',
+            'Net::FTP::L'           => '3.08',
+            'Net::FTP::dataconn'    => '3.08',
+            'Net::NNTP'             => '3.08',
+            'Net::Netrc'            => '3.08',
+            'Net::POP3'             => '3.08',
+            'Net::SMTP'             => '3.08',
+            'Net::Time'             => '3.08',
+            'Pod::Man'              => '4.04',
+            'Pod::ParseLink'        => '4.04',
+            'Pod::Text'             => '4.04',
+            'Pod::Text::Color'      => '4.04',
+            'Pod::Text::Overstrike' => '4.04',
+            'Pod::Text::Termcap'    => '4.04',
+            'Pod::Usage'            => '1.68',
+            'TAP::Base'             => '3.36',
+            'TAP::Formatter::Base'  => '3.36',
+            'TAP::Formatter::Color' => '3.36',
+            'TAP::Formatter::Console'=> '3.36',
+            'TAP::Formatter::Console::ParallelSession'=> '3.36',
+            'TAP::Formatter::Console::Session'=> '3.36',
+            'TAP::Formatter::File'  => '3.36',
+            'TAP::Formatter::File::Session'=> '3.36',
+            'TAP::Formatter::Session'=> '3.36',
+            'TAP::Harness'          => '3.36',
+            'TAP::Harness::Env'     => '3.36',
+            'TAP::Object'           => '3.36',
+            'TAP::Parser'           => '3.36',
+            'TAP::Parser::Aggregator'=> '3.36',
+            'TAP::Parser::Grammar'  => '3.36',
+            'TAP::Parser::Iterator' => '3.36',
+            'TAP::Parser::Iterator::Array'=> '3.36',
+            'TAP::Parser::Iterator::Process'=> '3.36',
+            'TAP::Parser::Iterator::Stream'=> '3.36',
+            'TAP::Parser::IteratorFactory'=> '3.36',
+            'TAP::Parser::Multiplexer'=> '3.36',
+            'TAP::Parser::Result'   => '3.36',
+            'TAP::Parser::Result::Bailout'=> '3.36',
+            'TAP::Parser::Result::Comment'=> '3.36',
+            'TAP::Parser::Result::Plan'=> '3.36',
+            'TAP::Parser::Result::Pragma'=> '3.36',
+            'TAP::Parser::Result::Test'=> '3.36',
+            'TAP::Parser::Result::Unknown'=> '3.36',
+            'TAP::Parser::Result::Version'=> '3.36',
+            'TAP::Parser::Result::YAML'=> '3.36',
+            'TAP::Parser::ResultFactory'=> '3.36',
+            'TAP::Parser::Scheduler'=> '3.36',
+            'TAP::Parser::Scheduler::Job'=> '3.36',
+            'TAP::Parser::Scheduler::Spinner'=> '3.36',
+            'TAP::Parser::Source'   => '3.36',
+            'TAP::Parser::SourceHandler'=> '3.36',
+            'TAP::Parser::SourceHandler::Executable'=> '3.36',
+            'TAP::Parser::SourceHandler::File'=> '3.36',
+            'TAP::Parser::SourceHandler::Handle'=> '3.36',
+            'TAP::Parser::SourceHandler::Perl'=> '3.36',
+            'TAP::Parser::SourceHandler::RawTAP'=> '3.36',
+            'TAP::Parser::YAMLish::Reader'=> '3.36',
+            'TAP::Parser::YAMLish::Writer'=> '3.36',
+            'Test::Harness'         => '3.36',
+            'Unicode::Normalize'    => '1.25',
+            'Unicode::UCD'          => '0.64',
+            'XS::APItest'           => '0.78',
+            'bigint'                => '0.42',
+            'bignum'                => '0.42',
+            'bigrat'                => '0.42',
+            'utf8'                  => '1.19',
+        },
+        removed => {
+        }
+    },
+    5.023008 => {
+        delta_from => 5.023007,
+        changed => {
+            'B::Op_private'         => '5.023008',
+            'Config'                => '5.023008',
+            'Cwd'                   => '3.63',
+            'DynaLoader'            => '1.38',
+            'Encode'                => '2.80',
+            'Encode::Alias'         => '2.20',
+            'Encode::MIME::Header'  => '2.19',
+            'Encode::Unicode'       => '2.15',
+            'ExtUtils::CBuilder'    => '0.280225',
+            'ExtUtils::CBuilder::Base'=> '0.280225',
+            'ExtUtils::CBuilder::Platform::Unix'=> '0.280225',
+            'ExtUtils::CBuilder::Platform::VMS'=> '0.280225',
+            'ExtUtils::CBuilder::Platform::Windows'=> '0.280225',
+            'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.280225',
+            'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.280225',
+            'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.280225',
+            'ExtUtils::CBuilder::Platform::aix'=> '0.280225',
+            'ExtUtils::CBuilder::Platform::android'=> '0.280225',
+            'ExtUtils::CBuilder::Platform::cygwin'=> '0.280225',
+            'ExtUtils::CBuilder::Platform::darwin'=> '0.280225',
+            'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280225',
+            'ExtUtils::CBuilder::Platform::os2'=> '0.280225',
+            'ExtUtils::Command::MM' => '7.10_01',
+            'ExtUtils::Liblist'     => '7.10_01',
+            'ExtUtils::Liblist::Kid'=> '7.10_01',
+            'ExtUtils::MM'          => '7.10_01',
+            'ExtUtils::MM_AIX'      => '7.10_01',
+            'ExtUtils::MM_Any'      => '7.10_01',
+            'ExtUtils::MM_BeOS'     => '7.10_01',
+            'ExtUtils::MM_Cygwin'   => '7.10_01',
+            'ExtUtils::MM_DOS'      => '7.10_01',
+            'ExtUtils::MM_Darwin'   => '7.10_01',
+            'ExtUtils::MM_MacOS'    => '7.10_01',
+            'ExtUtils::MM_NW5'      => '7.10_01',
+            'ExtUtils::MM_OS2'      => '7.10_01',
+            'ExtUtils::MM_QNX'      => '7.10_01',
+            'ExtUtils::MM_UWIN'     => '7.10_01',
+            'ExtUtils::MM_Unix'     => '7.10_01',
+            'ExtUtils::MM_VMS'      => '7.10_01',
+            'ExtUtils::MM_VOS'      => '7.10_01',
+            'ExtUtils::MM_Win32'    => '7.10_01',
+            'ExtUtils::MM_Win95'    => '7.10_01',
+            'ExtUtils::MY'          => '7.10_01',
+            'ExtUtils::MakeMaker'   => '7.10_01',
+            'ExtUtils::MakeMaker::Config'=> '7.10_01',
+            'ExtUtils::MakeMaker::version'=> '7.10_01',
+            'ExtUtils::MakeMaker::version::regex'=> '7.10_01',
+            'ExtUtils::Mkbootstrap' => '7.10_01',
+            'ExtUtils::Mksymlists'  => '7.10_01',
+            'ExtUtils::testlib'     => '7.10_01',
+            'File::Spec'            => '3.63',
+            'File::Spec::AmigaOS'   => '3.63',
+            'File::Spec::Cygwin'    => '3.63',
+            'File::Spec::Epoc'      => '3.63',
+            'File::Spec::Functions' => '3.63',
+            'File::Spec::Mac'       => '3.63',
+            'File::Spec::OS2'       => '3.63',
+            'File::Spec::Unix'      => '3.63',
+            'File::Spec::VMS'       => '3.63',
+            'File::Spec::Win32'     => '3.63',
+            'IPC::Msg'              => '2.05',
+            'IPC::Semaphore'        => '2.05',
+            'IPC::SharedMem'        => '2.05',
+            'IPC::SysV'             => '2.05',
+            'Module::CoreList'      => '5.20160121',
+            'Module::CoreList::TieHashDelta'=> '5.20160121',
+            'Module::CoreList::Utils'=> '5.20160121',
+            'ODBM_File'             => '1.13',
+            'POSIX'                 => '1.63',
+            'PerlIO::encoding'      => '0.24',
+            'Pod::Man'              => '4.06',
+            'Pod::ParseLink'        => '4.06',
+            'Pod::Text'             => '4.06',
+            'Pod::Text::Color'      => '4.06',
+            'Pod::Text::Overstrike' => '4.06',
+            'Pod::Text::Termcap'    => '4.06',
+            'Storable'              => '2.55',
+            'Time::HiRes'           => '1.9730',
+            'XS::APItest'           => '0.79',
+        },
+        removed => {
+        }
+    },
+    5.023009 => {
+        delta_from => 5.023008,
+        changed => {
+            'Amiga::ARexx'          => '0.04',
+            'Amiga::Exec'           => '0.02',
+            'B::Op_private'         => '5.023009',
+            'Carp'                  => '1.40',
+            'Carp::Heavy'           => '1.40',
+            'Config'                => '5.023009',
+            'Errno'                 => '1.25',
+            'ExtUtils::Embed'       => '1.33',
+            'File::Find'            => '1.34',
+            'File::Glob'            => '1.26',
+            'File::Spec::AmigaOS'   => ';.64',
+            'IPC::Msg'              => '2.06_01',
+            'IPC::Semaphore'        => '2.06_01',
+            'IPC::SharedMem'        => '2.06_01',
+            'IPC::SysV'             => '2.06_01',
+            'List::Util'            => '1.42_02',
+            'List::Util::XS'        => '1.42_02',
+            'Module::CoreList'      => '5.20160320',
+            'Module::CoreList::TieHashDelta'=> '5.20160320',
+            'Module::CoreList::Utils'=> '5.20160320',
+            'POSIX'                 => '1.64',
+            'Pod::Functions'        => '1.10',
+            'Pod::Functions::Functions'=> '1.10',
+            'Scalar::Util'          => '1.42_02',
+            'SelfLoader'            => '1.23',
+            'Socket'                => '2.020_03',
+            'Storable'              => '2.56',
+            'Sub::Util'             => '1.42_02',
+            'Thread::Queue'         => '3.08',
+            'Tie::File'             => '1.02',
+            'Time::HiRes'           => '1.9732',
+            'Win32API::File'        => '0.1203',
+            'Win32API::File::inc::ExtUtils::Myconst2perl'=> '1',
+            'XS::APItest'           => '0.80',
+            'autouse'               => '1.11',
+            'bytes'                 => '1.05',
+            'strict'                => '1.11',
+            'threads'               => '2.06',
+            'version'               => '0.9916',
+            'version::regex'        => '0.9916',
+            'warnings'              => '1.36',
+        },
+        removed => {
+            'Win32API::File::ExtUtils::Myconst2perl'=> 1,
+        }
+    },
+    5.022002 => {
+        delta_from => 5.022001,
+        changed => {
+            'B::Op_private'         => '5.022002',
+            'Config'                => '5.022002',
+            'Cwd'                   => '3.56_01',
+            'File::Spec'            => '3.56_01',
+            'File::Spec::Cygwin'    => '3.56_01',
+            'File::Spec::Epoc'      => '3.56_01',
+            'File::Spec::Functions' => '3.56_01',
+            'File::Spec::Mac'       => '3.56_01',
+            'File::Spec::OS2'       => '3.56_01',
+            'File::Spec::Unix'      => '3.56_01',
+            'File::Spec::VMS'       => '3.56_01',
+            'File::Spec::Win32'     => '3.56_01',
+            'Module::CoreList'      => '5.20160429',
+            'Module::CoreList::TieHashDelta'=> '5.20160429',
+            'Module::CoreList::Utils'=> '5.20160429',
+            'XS::APItest'           => '0.72_01',
+        },
+        removed => {
+        }
+    },
+    5.024000 => {
+        delta_from => 5.023009,
+        changed => {
+            'B::Op_private'         => '5.024000',
+            'Config'                => '5.024',
+            'File::Copy'            => '2.31',
+            'File::Path'            => '2.12_01',
+            'File::Spec::AmigaOS'   => '3.64',
+            'IO::Handle'            => '1.36',
+            'Module::CoreList'      => '5.20160506',
+            'Module::CoreList::TieHashDelta'=> '5.20160506',
+            'Module::CoreList::Utils'=> '5.20160506',
+            'ODBM_File'             => '1.14',
+            'POSIX'                 => '1.65',
+            'Pod::Man'              => '4.07',
+            'Pod::ParseLink'        => '4.07',
+            'Pod::Text'             => '4.07',
+            'Pod::Text::Color'      => '4.07',
+            'Pod::Text::Overstrike' => '4.07',
+            'Pod::Text::Termcap'    => '4.07',
+            'Thread::Queue'         => '3.09',
+            'Time::HiRes'           => '1.9733',
+            'threads'               => '2.07',
+            'threads::shared'       => '1.51',
+            'locale'                => '1.09',
+        },
+        removed => {
+        }
+    },
+    5.025000 => {
+        delta_from => 5.024,
+        changed => {
+            'B::Op_private'         => '5.025000',
+            'Config'                => '5.025',
+            'Module::CoreList'      => '5.20160507',
+            'Module::CoreList::TieHashDelta'=> '5.20160507',
+            'Module::CoreList::Utils'=> '5.20160507',
+            'feature'               => '1.43',
+        },
+        removed => {
+        }
+    },
+    5.025001 => {
+        delta_from => 5.025,
+        changed => {
+            'Archive::Tar'          => '2.08',
+            'Archive::Tar::Constant'=> '2.08',
+            'Archive::Tar::File'    => '2.08',
+            'B::Op_private'         => '5.025001',
+            'Carp'                  => '1.41',
+            'Carp::Heavy'           => '1.41',
+            'Config'                => '5.025001',
+            'Config::Perl::V'       => '0.26',
+            'DB_File'               => '1.838',
+            'Digest::MD5'           => '2.55',
+            'IPC::Cmd'              => '0.94',
+            'IPC::Msg'              => '2.07',
+            'IPC::Semaphore'        => '2.07',
+            'IPC::SharedMem'        => '2.07',
+            'IPC::SysV'             => '2.07',
+            'List::Util'            => '1.45_01',
+            'List::Util::XS'        => '1.45_01',
+            'Locale::Codes'         => '3.38',
+            'Locale::Codes::Constants'=> '3.38',
+            'Locale::Codes::Country'=> '3.38',
+            'Locale::Codes::Country_Codes'=> '3.38',
+            'Locale::Codes::Country_Retired'=> '3.38',
+            'Locale::Codes::Currency'=> '3.38',
+            'Locale::Codes::Currency_Codes'=> '3.38',
+            'Locale::Codes::Currency_Retired'=> '3.38',
+            'Locale::Codes::LangExt'=> '3.38',
+            'Locale::Codes::LangExt_Codes'=> '3.38',
+            'Locale::Codes::LangExt_Retired'=> '3.38',
+            'Locale::Codes::LangFam'=> '3.38',
+            'Locale::Codes::LangFam_Codes'=> '3.38',
+            'Locale::Codes::LangFam_Retired'=> '3.38',
+            'Locale::Codes::LangVar'=> '3.38',
+            'Locale::Codes::LangVar_Codes'=> '3.38',
+            'Locale::Codes::LangVar_Retired'=> '3.38',
+            'Locale::Codes::Language'=> '3.38',
+            'Locale::Codes::Language_Codes'=> '3.38',
+            'Locale::Codes::Language_Retired'=> '3.38',
+            'Locale::Codes::Script' => '3.38',
+            'Locale::Codes::Script_Codes'=> '3.38',
+            'Locale::Codes::Script_Retired'=> '3.38',
+            'Locale::Country'       => '3.38',
+            'Locale::Currency'      => '3.38',
+            'Locale::Language'      => '3.38',
+            'Locale::Maketext'      => '1.27',
+            'Locale::Script'        => '3.38',
+            'Module::CoreList'      => '5.20160520',
+            'Module::CoreList::TieHashDelta'=> '5.20160520',
+            'Module::CoreList::Utils'=> '5.20160520',
+            'Module::Metadata'      => '1.000032',
+            'POSIX'                 => '1.69',
+            'Scalar::Util'          => '1.45_01',
+            'Sub::Util'             => '1.45_01',
+            'Sys::Syslog'           => '0.34',
+            'Term::ANSIColor'       => '4.05',
+            'Test2'                 => '1.302015',
+            'Test2::API'            => '1.302015',
+            'Test2::API::Breakage'  => '1.302015',
+            'Test2::API::Context'   => '1.302015',
+            'Test2::API::Instance'  => '1.302015',
+            'Test2::API::Stack'     => '1.302015',
+            'Test2::Event'          => '1.302015',
+            'Test2::Event::Bail'    => '1.302015',
+            'Test2::Event::Diag'    => '1.302015',
+            'Test2::Event::Exception'=> '1.302015',
+            'Test2::Event::Note'    => '1.302015',
+            'Test2::Event::Ok'      => '1.302015',
+            'Test2::Event::Plan'    => '1.302015',
+            'Test2::Event::Skip'    => '1.302015',
+            'Test2::Event::Subtest' => '1.302015',
+            'Test2::Event::Waiting' => '1.302015',
+            'Test2::Formatter'      => '1.302015',
+            'Test2::Formatter::TAP' => '1.302015',
+            'Test2::Hub'            => '1.302015',
+            'Test2::Hub::Interceptor'=> '1.302015',
+            'Test2::Hub::Interceptor::Terminator'=> '1.302015',
+            'Test2::Hub::Subtest'   => '1.302015',
+            'Test2::IPC'            => '1.302015',
+            'Test2::IPC::Driver'    => '1.302015',
+            'Test2::IPC::Driver::Files'=> '1.302015',
+            'Test2::Util'           => '1.302015',
+            'Test2::Util::ExternalMeta'=> '1.302015',
+            'Test2::Util::HashBase' => '1.302015',
+            'Test2::Util::Trace'    => '1.302015',
+            'Test::Builder'         => '1.302015',
+            'Test::Builder::Formatter'=> '1.302015',
+            'Test::Builder::Module' => '1.302015',
+            'Test::Builder::Tester' => '1.302015',
+            'Test::Builder::Tester::Color'=> '1.302015',
+            'Test::Builder::TodoDiag'=> '1.302015',
+            'Test::More'            => '1.302015',
+            'Test::Simple'          => '1.302015',
+            'Test::Tester'          => '1.302015',
+            'Test::Tester::Capture' => '1.302015',
+            'Test::Tester::CaptureRunner'=> '1.302015',
+            'Test::Tester::Delegate'=> '1.302015',
+            'Test::use::ok'         => '1.302015',
+            'XS::APItest'           => '0.81',
+            '_charnames'            => '1.44',
+            'charnames'             => '1.44',
+            'ok'                    => '1.302015',
+            'perlfaq'               => '5.021011',
+            're'                    => '0.33',
+            'threads'               => '2.08',
+            'threads::shared'       => '1.52',
+        },
+        removed => {
+        }
+    },
+    5.025002 => {
+        delta_from => 5.025001,
+        changed => {
+            'App::Cpan'             => '1.64',
+            'B::Op_private'         => '5.025002',
+            'CPAN'                  => '2.14',
+            'CPAN::Distribution'    => '2.12',
+            'CPAN::FTP'             => '5.5007',
+            'CPAN::FirstTime'       => '5.5309',
+            'CPAN::HandleConfig'    => '5.5007',
+            'CPAN::Index'           => '2.12',
+            'CPAN::Mirrors'         => '2.12',
+            'CPAN::Plugin'          => '0.96',
+            'CPAN::Shell'           => '5.5006',
+            'Config'                => '5.025002',
+            'Cwd'                   => '3.64',
+            'Devel::Peek'           => '1.24',
+            'DynaLoader'            => '1.39',
+            'ExtUtils::Command'     => '7.18',
+            'ExtUtils::Command::MM' => '7.18',
+            'ExtUtils::Liblist'     => '7.18',
+            'ExtUtils::Liblist::Kid'=> '7.18',
+            'ExtUtils::MM'          => '7.18',
+            'ExtUtils::MM_AIX'      => '7.18',
+            'ExtUtils::MM_Any'      => '7.18',
+            'ExtUtils::MM_BeOS'     => '7.18',
+            'ExtUtils::MM_Cygwin'   => '7.18',
+            'ExtUtils::MM_DOS'      => '7.18',
+            'ExtUtils::MM_Darwin'   => '7.18',
+            'ExtUtils::MM_MacOS'    => '7.18',
+            'ExtUtils::MM_NW5'      => '7.18',
+            'ExtUtils::MM_OS2'      => '7.18',
+            'ExtUtils::MM_QNX'      => '7.18',
+            'ExtUtils::MM_UWIN'     => '7.18',
+            'ExtUtils::MM_Unix'     => '7.18',
+            'ExtUtils::MM_VMS'      => '7.18',
+            'ExtUtils::MM_VOS'      => '7.18',
+            'ExtUtils::MM_Win32'    => '7.18',
+            'ExtUtils::MM_Win95'    => '7.18',
+            'ExtUtils::MY'          => '7.18',
+            'ExtUtils::MakeMaker'   => '7.18',
+            'ExtUtils::MakeMaker::Config'=> '7.18',
+            'ExtUtils::MakeMaker::Locale'=> '7.18',
+            'ExtUtils::MakeMaker::version'=> '7.18',
+            'ExtUtils::MakeMaker::version::regex'=> '7.18',
+            'ExtUtils::Miniperl'    => '1.06',
+            'ExtUtils::Mkbootstrap' => '7.18',
+            'ExtUtils::Mksymlists'  => '7.18',
+            'ExtUtils::ParseXS'     => '3.32',
+            'ExtUtils::ParseXS::Constants'=> '3.32',
+            'ExtUtils::ParseXS::CountLines'=> '3.32',
+            'ExtUtils::ParseXS::Eval'=> '3.32',
+            'ExtUtils::ParseXS::Utilities'=> '3.32',
+            'ExtUtils::Typemaps'    => '3.32',
+            'ExtUtils::Typemaps::Cmd'=> '3.32',
+            'ExtUtils::Typemaps::InputMap'=> '3.32',
+            'ExtUtils::Typemaps::OutputMap'=> '3.32',
+            'ExtUtils::Typemaps::Type'=> '3.32',
+            'ExtUtils::testlib'     => '7.18',
+            'File::Copy'            => '2.32',
+            'File::Glob'            => '1.27',
+            'File::Spec'            => '3.64',
+            'File::Spec::Cygwin'    => '3.64',
+            'File::Spec::Epoc'      => '3.64',
+            'File::Spec::Functions' => '3.64',
+            'File::Spec::Mac'       => '3.64',
+            'File::Spec::OS2'       => '3.64',
+            'File::Spec::Unix'      => '3.64',
+            'File::Spec::VMS'       => '3.64',
+            'File::Spec::Win32'     => '3.64',
+            'FileHandle'            => '2.03',
+            'Getopt::Long'          => '2.49',
+            'HTTP::Tiny'            => '0.058',
+            'JSON::PP'              => '2.27400',
+            'Locale::Codes'         => '3.39',
+            'Locale::Codes::Constants'=> '3.39',
+            'Locale::Codes::Country'=> '3.39',
+            'Locale::Codes::Country_Codes'=> '3.39',
+            'Locale::Codes::Country_Retired'=> '3.39',
+            'Locale::Codes::Currency'=> '3.39',
+            'Locale::Codes::Currency_Codes'=> '3.39',
+            'Locale::Codes::Currency_Retired'=> '3.39',
+            'Locale::Codes::LangExt'=> '3.39',
+            'Locale::Codes::LangExt_Codes'=> '3.39',
+            'Locale::Codes::LangExt_Retired'=> '3.39',
+            'Locale::Codes::LangFam'=> '3.39',
+            'Locale::Codes::LangFam_Codes'=> '3.39',
+            'Locale::Codes::LangFam_Retired'=> '3.39',
+            'Locale::Codes::LangVar'=> '3.39',
+            'Locale::Codes::LangVar_Codes'=> '3.39',
+            'Locale::Codes::LangVar_Retired'=> '3.39',
+            'Locale::Codes::Language'=> '3.39',
+            'Locale::Codes::Language_Codes'=> '3.39',
+            'Locale::Codes::Language_Retired'=> '3.39',
+            'Locale::Codes::Script' => '3.39',
+            'Locale::Codes::Script_Codes'=> '3.39',
+            'Locale::Codes::Script_Retired'=> '3.39',
+            'Locale::Country'       => '3.39',
+            'Locale::Currency'      => '3.39',
+            'Locale::Language'      => '3.39',
+            'Locale::Script'        => '3.39',
+            'Module::CoreList'      => '5.20160620',
+            'Module::CoreList::TieHashDelta'=> '5.20160620',
+            'Module::CoreList::Utils'=> '5.20160620',
+            'Opcode'                => '1.35',
+            'POSIX'                 => '1.70',
+            'Pod::Checker'          => '1.73',
+            'Pod::Functions'        => '1.11',
+            'Pod::Functions::Functions'=> '1.11',
+            'Pod::Usage'            => '1.69',
+            'Test2'                 => '1.302026',
+            'Test2::API'            => '1.302026',
+            'Test2::API::Breakage'  => '1.302026',
+            'Test2::API::Context'   => '1.302026',
+            'Test2::API::Instance'  => '1.302026',
+            'Test2::API::Stack'     => '1.302026',
+            'Test2::Event'          => '1.302026',
+            'Test2::Event::Bail'    => '1.302026',
+            'Test2::Event::Diag'    => '1.302026',
+            'Test2::Event::Exception'=> '1.302026',
+            'Test2::Event::Generic' => '1.302026',
+            'Test2::Event::Note'    => '1.302026',
+            'Test2::Event::Ok'      => '1.302026',
+            'Test2::Event::Plan'    => '1.302026',
+            'Test2::Event::Skip'    => '1.302026',
+            'Test2::Event::Subtest' => '1.302026',
+            'Test2::Event::Waiting' => '1.302026',
+            'Test2::Formatter'      => '1.302026',
+            'Test2::Formatter::TAP' => '1.302026',
+            'Test2::Hub'            => '1.302026',
+            'Test2::Hub::Interceptor'=> '1.302026',
+            'Test2::Hub::Interceptor::Terminator'=> '1.302026',
+            'Test2::Hub::Subtest'   => '1.302026',
+            'Test2::IPC'            => '1.302026',
+            'Test2::IPC::Driver'    => '1.302026',
+            'Test2::IPC::Driver::Files'=> '1.302026',
+            'Test2::Util'           => '1.302026',
+            'Test2::Util::ExternalMeta'=> '1.302026',
+            'Test2::Util::HashBase' => '1.302026',
+            'Test2::Util::Trace'    => '1.302026',
+            'Test::Builder'         => '1.302026',
+            'Test::Builder::Formatter'=> '1.302026',
+            'Test::Builder::Module' => '1.302026',
+            'Test::Builder::Tester' => '1.302026',
+            'Test::Builder::Tester::Color'=> '1.302026',
+            'Test::Builder::TodoDiag'=> '1.302026',
+            'Test::More'            => '1.302026',
+            'Test::Simple'          => '1.302026',
+            'Test::Tester'          => '1.302026',
+            'Test::Tester::Capture' => '1.302026',
+            'Test::Tester::CaptureRunner'=> '1.302026',
+            'Test::Tester::Delegate'=> '1.302026',
+            'Test::use::ok'         => '1.302026',
+            'Thread::Queue'         => '3.11',
+            'Time::HiRes'           => '1.9734',
+            'Unicode::UCD'          => '0.65',
+            'VMS::DCLsym'           => '1.07',
+            'XS::APItest'           => '0.82',
+            'diagnostics'           => '1.35',
+            'feature'               => '1.44',
+            'ok'                    => '1.302026',
+            'threads'               => '2.09',
+        },
+        removed => {
+        }
+    },
+    5.025003 => {
+        delta_from => 5.025002,
+        changed => {
+            'B::Op_private'         => '5.025003',
+            'Config'                => '5.025003',
+            'Data::Dumper'          => '2.161',
+            'Devel::PPPort'         => '3.35',
+            'Encode'                => '2.84',
+            'Encode::MIME::Header'  => '2.23',
+            'Encode::MIME::Header::ISO_2022_JP'=> '1.07',
+            'ExtUtils::ParseXS'     => '3.33',
+            'ExtUtils::ParseXS::Constants'=> '3.33',
+            'ExtUtils::ParseXS::CountLines'=> '3.33',
+            'ExtUtils::ParseXS::Eval'=> '3.33',
+            'ExtUtils::ParseXS::Utilities'=> '3.33',
+            'ExtUtils::Typemaps'    => '3.33',
+            'ExtUtils::Typemaps::Cmd'=> '3.33',
+            'ExtUtils::Typemaps::InputMap'=> '3.33',
+            'ExtUtils::Typemaps::OutputMap'=> '3.33',
+            'ExtUtils::Typemaps::Type'=> '3.33',
+            'Hash::Util'            => '0.20',
+            'Math::BigFloat'        => '1.999726',
+            'Math::BigFloat::Trace' => '0.43',
+            'Math::BigInt'          => '1.999726',
+            'Math::BigInt::Calc'    => '1.999726',
+            'Math::BigInt::CalcEmu' => '1.999726',
+            'Math::BigInt::FastCalc'=> '0.42',
+            'Math::BigInt::Trace'   => '0.43',
+            'Math::BigRat'          => '0.260804',
+            'Module::CoreList'      => '5.20160720',
+            'Module::CoreList::TieHashDelta'=> '5.20160720',
+            'Module::CoreList::Utils'=> '5.20160720',
+            'Net::Cmd'              => '3.09',
+            'Net::Config'           => '3.09',
+            'Net::Domain'           => '3.09',
+            'Net::FTP'              => '3.09',
+            'Net::FTP::A'           => '3.09',
+            'Net::FTP::E'           => '3.09',
+            'Net::FTP::I'           => '3.09',
+            'Net::FTP::L'           => '3.09',
+            'Net::FTP::dataconn'    => '3.09',
+            'Net::NNTP'             => '3.09',
+            'Net::Netrc'            => '3.09',
+            'Net::POP3'             => '3.09',
+            'Net::SMTP'             => '3.09',
+            'Net::Time'             => '3.09',
+            'Parse::CPAN::Meta'     => '1.4422',
+            'Perl::OSType'          => '1.010',
+            'Test2'                 => '1.302045',
+            'Test2::API'            => '1.302045',
+            'Test2::API::Breakage'  => '1.302045',
+            'Test2::API::Context'   => '1.302045',
+            'Test2::API::Instance'  => '1.302045',
+            'Test2::API::Stack'     => '1.302045',
+            'Test2::Event'          => '1.302045',
+            'Test2::Event::Bail'    => '1.302045',
+            'Test2::Event::Diag'    => '1.302045',
+            'Test2::Event::Exception'=> '1.302045',
+            'Test2::Event::Generic' => '1.302045',
+            'Test2::Event::Info'    => '1.302045',
+            'Test2::Event::Note'    => '1.302045',
+            'Test2::Event::Ok'      => '1.302045',
+            'Test2::Event::Plan'    => '1.302045',
+            'Test2::Event::Skip'    => '1.302045',
+            'Test2::Event::Subtest' => '1.302045',
+            'Test2::Event::Waiting' => '1.302045',
+            'Test2::Formatter'      => '1.302045',
+            'Test2::Formatter::TAP' => '1.302045',
+            'Test2::Hub'            => '1.302045',
+            'Test2::Hub::Interceptor'=> '1.302045',
+            'Test2::Hub::Interceptor::Terminator'=> '1.302045',
+            'Test2::Hub::Subtest'   => '1.302045',
+            'Test2::IPC'            => '1.302045',
+            'Test2::IPC::Driver'    => '1.302045',
+            'Test2::IPC::Driver::Files'=> '1.302045',
+            'Test2::Util'           => '1.302045',
+            'Test2::Util::ExternalMeta'=> '1.302045',
+            'Test2::Util::HashBase' => '1.302045',
+            'Test2::Util::Trace'    => '1.302045',
+            'Test::Builder'         => '1.302045',
+            'Test::Builder::Formatter'=> '1.302045',
+            'Test::Builder::Module' => '1.302045',
+            'Test::Builder::Tester' => '1.302045',
+            'Test::Builder::Tester::Color'=> '1.302045',
+            'Test::Builder::TodoDiag'=> '1.302045',
+            'Test::More'            => '1.302045',
+            'Test::Simple'          => '1.302045',
+            'Test::Tester'          => '1.302045',
+            'Test::Tester::Capture' => '1.302045',
+            'Test::Tester::CaptureRunner'=> '1.302045',
+            'Test::Tester::Delegate'=> '1.302045',
+            'Test::use::ok'         => '1.302045',
+            'Time::HiRes'           => '1.9739',
+            'Unicode'               => '9.0.0',
+            'Unicode::UCD'          => '0.66',
+            'XSLoader'              => '0.22',
+            'bigint'                => '0.43',
+            'bignum'                => '0.43',
+            'bigrat'                => '0.43',
+            'encoding'              => '2.17_01',
+            'encoding::warnings'    => '0.13',
+            'feature'               => '1.45',
+            'ok'                    => '1.302045',
+            'version'               => '0.9917',
+            'version::regex'        => '0.9917',
+            'warnings'              => '1.37',
+        },
+        removed => {
+        }
+    },
+    5.025004 => {
+        delta_from => 5.025003,
+        changed => {
+            'App::Cpan'             => '1.64_01',
+            'App::Prove'            => '3.36_01',
+            'App::Prove::State'     => '3.36_01',
+            'App::Prove::State::Result'=> '3.36_01',
+            'App::Prove::State::Result::Test'=> '3.36_01',
+            'Archive::Tar'          => '2.10',
+            'Archive::Tar::Constant'=> '2.10',
+            'Archive::Tar::File'    => '2.10',
+            'B'                     => '1.63',
+            'B::Concise'            => '0.998',
+            'B::Deparse'            => '1.38',
+            'B::Op_private'         => '5.025004',
+            'CPAN'                  => '2.14_01',
+            'CPAN::Meta'            => '2.150010',
+            'CPAN::Meta::Converter' => '2.150010',
+            'CPAN::Meta::Feature'   => '2.150010',
+            'CPAN::Meta::History'   => '2.150010',
+            'CPAN::Meta::Merge'     => '2.150010',
+            'CPAN::Meta::Prereqs'   => '2.150010',
+            'CPAN::Meta::Spec'      => '2.150010',
+            'CPAN::Meta::Validator' => '2.150010',
+            'Carp'                  => '1.42',
+            'Carp::Heavy'           => '1.42',
+            'Compress::Zlib'        => '2.069_01',
+            'Config'                => '5.025004',
+            'Config::Perl::V'       => '0.27',
+            'Cwd'                   => '3.65',
+            'Digest'                => '1.17_01',
+            'Digest::SHA'           => '5.96',
+            'Encode'                => '2.86',
+            'Errno'                 => '1.26',
+            'ExtUtils::Command'     => '7.24',
+            'ExtUtils::Command::MM' => '7.24',
+            'ExtUtils::Liblist'     => '7.24',
+            'ExtUtils::Liblist::Kid'=> '7.24',
+            'ExtUtils::MM'          => '7.24',
+            'ExtUtils::MM_AIX'      => '7.24',
+            'ExtUtils::MM_Any'      => '7.24',
+            'ExtUtils::MM_BeOS'     => '7.24',
+            'ExtUtils::MM_Cygwin'   => '7.24',
+            'ExtUtils::MM_DOS'      => '7.24',
+            'ExtUtils::MM_Darwin'   => '7.24',
+            'ExtUtils::MM_MacOS'    => '7.24',
+            'ExtUtils::MM_NW5'      => '7.24',
+            'ExtUtils::MM_OS2'      => '7.24',
+            'ExtUtils::MM_QNX'      => '7.24',
+            'ExtUtils::MM_UWIN'     => '7.24',
+            'ExtUtils::MM_Unix'     => '7.24',
+            'ExtUtils::MM_VMS'      => '7.24',
+            'ExtUtils::MM_VOS'      => '7.24',
+            'ExtUtils::MM_Win32'    => '7.24',
+            'ExtUtils::MM_Win95'    => '7.24',
+            'ExtUtils::MY'          => '7.24',
+            'ExtUtils::MakeMaker'   => '7.24',
+            'ExtUtils::MakeMaker::Config'=> '7.24',
+            'ExtUtils::MakeMaker::Locale'=> '7.24',
+            'ExtUtils::MakeMaker::version'=> '7.24',
+            'ExtUtils::MakeMaker::version::regex'=> '7.24',
+            'ExtUtils::Mkbootstrap' => '7.24',
+            'ExtUtils::Mksymlists'  => '7.24',
+            'ExtUtils::testlib'     => '7.24',
+            'File::Fetch'           => '0.52',
+            'File::Spec'            => '3.65',
+            'File::Spec::AmigaOS'   => '3.65',
+            'File::Spec::Cygwin'    => '3.65',
+            'File::Spec::Epoc'      => '3.65',
+            'File::Spec::Functions' => '3.65',
+            'File::Spec::Mac'       => '3.65',
+            'File::Spec::OS2'       => '3.65',
+            'File::Spec::Unix'      => '3.65',
+            'File::Spec::VMS'       => '3.65',
+            'File::Spec::Win32'     => '3.65',
+            'HTTP::Tiny'            => '0.064',
+            'Hash::Util'            => '0.21',
+            'I18N::LangTags'        => '0.41',
+            'I18N::LangTags::Detect'=> '1.06',
+            'IO'                    => '1.37',
+            'IO::Compress::Adapter::Bzip2'=> '2.069_01',
+            'IO::Compress::Adapter::Deflate'=> '2.069_01',
+            'IO::Compress::Adapter::Identity'=> '2.069_01',
+            'IO::Compress::Base'    => '2.069_01',
+            'IO::Compress::Base::Common'=> '2.069_01',
+            'IO::Compress::Bzip2'   => '2.069_01',
+            'IO::Compress::Deflate' => '2.069_01',
+            'IO::Compress::Gzip'    => '2.069_01',
+            'IO::Compress::Gzip::Constants'=> '2.069_01',
+            'IO::Compress::RawDeflate'=> '2.069_01',
+            'IO::Compress::Zip'     => '2.069_01',
+            'IO::Compress::Zip::Constants'=> '2.069_01',
+            'IO::Compress::Zlib::Constants'=> '2.069_01',
+            'IO::Compress::Zlib::Extra'=> '2.069_01',
+            'IO::Socket::IP'        => '0.38',
+            'IO::Uncompress::Adapter::Bunzip2'=> '2.069_01',
+            'IO::Uncompress::Adapter::Identity'=> '2.069_01',
+            'IO::Uncompress::Adapter::Inflate'=> '2.069_01',
+            'IO::Uncompress::AnyInflate'=> '2.069_01',
+            'IO::Uncompress::AnyUncompress'=> '2.069_01',
+            'IO::Uncompress::Base'  => '2.069_01',
+            'IO::Uncompress::Bunzip2'=> '2.069_01',
+            'IO::Uncompress::Gunzip'=> '2.069_01',
+            'IO::Uncompress::Inflate'=> '2.069_01',
+            'IO::Uncompress::RawInflate'=> '2.069_01',
+            'IO::Uncompress::Unzip' => '2.069_01',
+            'IPC::Cmd'              => '0.96',
+            'JSON::PP'              => '2.27400_01',
+            'Locale::Maketext'      => '1.28',
+            'Locale::Maketext::Simple'=> '0.21_01',
+            'Math::BigFloat::Trace' => '0.43_01',
+            'Math::BigInt::Trace'   => '0.43_01',
+            'Memoize'               => '1.03_01',
+            'Module::CoreList'      => '5.20160820',
+            'Module::CoreList::TieHashDelta'=> '5.20160820',
+            'Module::CoreList::Utils'=> '5.20160820',
+            'Module::Load::Conditional'=> '0.68',
+            'Module::Metadata'      => '1.000033',
+            'NEXT'                  => '0.67',
+            'Net::Cmd'              => '3.10',
+            'Net::Config'           => '3.10',
+            'Net::Domain'           => '3.10',
+            'Net::FTP'              => '3.10',
+            'Net::FTP::A'           => '3.10',
+            'Net::FTP::E'           => '3.10',
+            'Net::FTP::I'           => '3.10',
+            'Net::FTP::L'           => '3.10',
+            'Net::FTP::dataconn'    => '3.10',
+            'Net::NNTP'             => '3.10',
+            'Net::Netrc'            => '3.10',
+            'Net::POP3'             => '3.10',
+            'Net::Ping'             => '2.44',
+            'Net::SMTP'             => '3.10',
+            'Net::Time'             => '3.10',
+            'Opcode'                => '1.37',
+            'POSIX'                 => '1.71',
+            'Parse::CPAN::Meta'     => '2.150010',
+            'Pod::Html'             => '1.2201',
+            'Pod::Perldoc'          => '3.27',
+            'Pod::Perldoc::BaseTo'  => '3.27',
+            'Pod::Perldoc::GetOptsOO'=> '3.27',
+            'Pod::Perldoc::ToANSI'  => '3.27',
+            'Pod::Perldoc::ToChecker'=> '3.27',
+            'Pod::Perldoc::ToMan'   => '3.27',
+            'Pod::Perldoc::ToNroff' => '3.27',
+            'Pod::Perldoc::ToPod'   => '3.27',
+            'Pod::Perldoc::ToRtf'   => '3.27',
+            'Pod::Perldoc::ToTerm'  => '3.27',
+            'Pod::Perldoc::ToText'  => '3.27',
+            'Pod::Perldoc::ToTk'    => '3.27',
+            'Pod::Perldoc::ToXml'   => '3.27',
+            'Storable'              => '2.57',
+            'Sys::Syslog'           => '0.34_01',
+            'TAP::Base'             => '3.36_01',
+            'TAP::Formatter::Base'  => '3.36_01',
+           'TAP::Formatter::Color' => '3.36_01',
+            'TAP::Formatter::Console'=> '3.36_01',
+            'TAP::Formatter::Console::ParallelSession'=> '3.36_01',
+            'TAP::Formatter::Console::Session'=> '3.36_01',
+            'TAP::Formatter::File'  => '3.36_01',
+            'TAP::Formatter::File::Session'=> '3.36_01',
+            'TAP::Formatter::Session'=> '3.36_01',
+            'TAP::Harness'          => '3.36_01',
+            'TAP::Harness::Env'     => '3.36_01',
+            'TAP::Object'           => '3.36_01',
+            'TAP::Parser'           => '3.36_01',
+            'TAP::Parser::Aggregator'=> '3.36_01',
+            'TAP::Parser::Grammar'  => '3.36_01',
+            'TAP::Parser::Iterator' => '3.36_01',
+            'TAP::Parser::Iterator::Array'=> '3.36_01',
+            'TAP::Parser::Iterator::Process'=> '3.36_01',
+            'TAP::Parser::Iterator::Stream'=> '3.36_01',
+            'TAP::Parser::IteratorFactory'=> '3.36_01',
+            'TAP::Parser::Multiplexer'=> '3.36_01',
+            'TAP::Parser::Result'   => '3.36_01',
+            'TAP::Parser::Result::Bailout'=> '3.36_01',
+            'TAP::Parser::Result::Comment'=> '3.36_01',
+            'TAP::Parser::Result::Plan'=> '3.36_01',
+            'TAP::Parser::Result::Pragma'=> '3.36_01',
+            'TAP::Parser::Result::Test'=> '3.36_01',
+            'TAP::Parser::Result::Unknown'=> '3.36_01',
+            'TAP::Parser::Result::Version'=> '3.36_01',
+            'TAP::Parser::Result::YAML'=> '3.36_01',
+            'TAP::Parser::ResultFactory'=> '3.36_01',
+            'TAP::Parser::Scheduler'=> '3.36_01',
+            'TAP::Parser::Scheduler::Job'=> '3.36_01',
+            'TAP::Parser::Scheduler::Spinner'=> '3.36_01',
+            'TAP::Parser::Source'   => '3.36_01',
+            'TAP::Parser::SourceHandler'=> '3.36_01',
+            'TAP::Parser::SourceHandler::Executable'=> '3.36_01',
+            'TAP::Parser::SourceHandler::File'=> '3.36_01',
+            'TAP::Parser::SourceHandler::Handle'=> '3.36_01',
+            'TAP::Parser::SourceHandler::Perl'=> '3.36_01',
+            'TAP::Parser::SourceHandler::RawTAP'=> '3.36_01',
+            'TAP::Parser::YAMLish::Reader'=> '3.36_01',
+            'TAP::Parser::YAMLish::Writer'=> '3.36_01',
+            'Test'                  => '1.29',
+            'Test2'                 => '1.302052',
+            'Test2::API'            => '1.302052',
+            'Test2::API::Breakage'  => '1.302052',
+            'Test2::API::Context'   => '1.302052',
+            'Test2::API::Instance'  => '1.302052',
+            'Test2::API::Stack'     => '1.302052',
+            'Test2::Event'          => '1.302052',
+            'Test2::Event::Bail'    => '1.302052',
+            'Test2::Event::Diag'    => '1.302052',
+            'Test2::Event::Exception'=> '1.302052',
+            'Test2::Event::Generic' => '1.302052',
+            'Test2::Event::Info'    => '1.302052',
+            'Test2::Event::Note'    => '1.302052',
+            'Test2::Event::Ok'      => '1.302052',
+            'Test2::Event::Plan'    => '1.302052',
+            'Test2::Event::Skip'    => '1.302052',
+            'Test2::Event::Subtest' => '1.302052',
+            'Test2::Event::Waiting' => '1.302052',
+            'Test2::Formatter'      => '1.302052',
+            'Test2::Formatter::TAP' => '1.302052',
+            'Test2::Hub'            => '1.302052',
+            'Test2::Hub::Interceptor'=> '1.302052',
+            'Test2::Hub::Interceptor::Terminator'=> '1.302052',
+            'Test2::Hub::Subtest'   => '1.302052',
+            'Test2::IPC'            => '1.302052',
+            'Test2::IPC::Driver'    => '1.302052',
+            'Test2::IPC::Driver::Files'=> '1.302052',
+            'Test2::Util'           => '1.302052',
+            'Test2::Util::ExternalMeta'=> '1.302052',
+            'Test2::Util::HashBase' => '1.302052',
+            'Test2::Util::Trace'    => '1.302052',
+            'Test::Builder'         => '1.302052',
+            'Test::Builder::Formatter'=> '1.302052',
+            'Test::Builder::Module' => '1.302052',
+            'Test::Builder::Tester' => '1.302052',
+            'Test::Builder::Tester::Color'=> '1.302052',
+            'Test::Builder::TodoDiag'=> '1.302052',
+            'Test::Harness'         => '3.36_01',
+            'Test::More'            => '1.302052',
+            'Test::Simple'          => '1.302052',
+            'Test::Tester'          => '1.302052',
+            'Test::Tester::Capture' => '1.302052',
+            'Test::Tester::CaptureRunner'=> '1.302052',
+            'Test::Tester::Delegate'=> '1.302052',
+            'Test::use::ok'         => '1.302052',
+            'Tie::Hash::NamedCapture'=> '0.10',
+            'Time::Local'           => '1.24',
+            'XS::APItest'           => '0.83',
+            'arybase'               => '0.12',
+            'base'                  => '2.24',
+            'bigint'                => '0.43_01',
+            'bignum'                => '0.43_01',
+            'bigrat'                => '0.43_01',
+            'encoding'              => '2.18',
+            'ok'                    => '1.302052',
+        },
+        removed => {
+        }
+    },
+    5.025005 => {
+        delta_from => 5.025004,
+        changed => {
+            'B::Op_private'         => '5.025005',
+            'Config'                => '5.025005',
+            'Filter::Simple'        => '0.93',
+            'Locale::Codes'         => '3.40',
+            'Locale::Codes::Constants'=> '3.40',
+            'Locale::Codes::Country'=> '3.40',
+            'Locale::Codes::Country_Codes'=> '3.40',
+            'Locale::Codes::Country_Retired'=> '3.40',
+            'Locale::Codes::Currency'=> '3.40',
+            'Locale::Codes::Currency_Codes'=> '3.40',
+            'Locale::Codes::Currency_Retired'=> '3.40',
+            'Locale::Codes::LangExt'=> '3.40',
+            'Locale::Codes::LangExt_Codes'=> '3.40',
+            'Locale::Codes::LangExt_Retired'=> '3.40',
+            'Locale::Codes::LangFam'=> '3.40',
+            'Locale::Codes::LangFam_Codes'=> '3.40',
+            'Locale::Codes::LangFam_Retired'=> '3.40',
+            'Locale::Codes::LangVar'=> '3.40',
+            'Locale::Codes::LangVar_Codes'=> '3.40',
+            'Locale::Codes::LangVar_Retired'=> '3.40',
+            'Locale::Codes::Language'=> '3.40',
+            'Locale::Codes::Language_Codes'=> '3.40',
+            'Locale::Codes::Language_Retired'=> '3.40',
+            'Locale::Codes::Script' => '3.40',
+            'Locale::Codes::Script_Codes'=> '3.40',
+            'Locale::Codes::Script_Retired'=> '3.40',
+            'Locale::Country'       => '3.40',
+            'Locale::Currency'      => '3.40',
+            'Locale::Language'      => '3.40',
+            'Locale::Script'        => '3.40',
+            'Module::CoreList'      => '5.20160920',
+            'Module::CoreList::TieHashDelta'=> '5.20160920',
+            'Module::CoreList::Utils'=> '5.20160920',
+            'POSIX'                 => '1.72',
+            'Sys::Syslog'           => '0.35',
+            'Test2'                 => '1.302056',
+            'Test2::API'            => '1.302056',
+            'Test2::API::Breakage'  => '1.302056',
+            'Test2::API::Context'   => '1.302056',
+            'Test2::API::Instance'  => '1.302056',
+            'Test2::API::Stack'     => '1.302056',
+            'Test2::Event'          => '1.302056',
+            'Test2::Event::Bail'    => '1.302056',
+            'Test2::Event::Diag'    => '1.302056',
+            'Test2::Event::Exception'=> '1.302056',
+            'Test2::Event::Generic' => '1.302056',
+            'Test2::Event::Info'    => '1.302056',
+            'Test2::Event::Note'    => '1.302056',
+            'Test2::Event::Ok'      => '1.302056',
+            'Test2::Event::Plan'    => '1.302056',
+            'Test2::Event::Skip'    => '1.302056',
+            'Test2::Event::Subtest' => '1.302056',
+            'Test2::Event::Waiting' => '1.302056',
+            'Test2::Formatter'      => '1.302056',
+            'Test2::Formatter::TAP' => '1.302056',
+            'Test2::Hub'            => '1.302056',
+            'Test2::Hub::Interceptor'=> '1.302056',
+            'Test2::Hub::Interceptor::Terminator'=> '1.302056',
+            'Test2::Hub::Subtest'   => '1.302056',
+            'Test2::IPC'            => '1.302056',
+            'Test2::IPC::Driver'    => '1.302056',
+            'Test2::IPC::Driver::Files'=> '1.302056',
+            'Test2::Util'           => '1.302056',
+            'Test2::Util::ExternalMeta'=> '1.302056',
+            'Test2::Util::HashBase' => '1.302056',
+            'Test2::Util::Trace'    => '1.302056',
+            'Test::Builder'         => '1.302056',
+            'Test::Builder::Formatter'=> '1.302056',
+            'Test::Builder::Module' => '1.302056',
+            'Test::Builder::Tester' => '1.302056',
+            'Test::Builder::Tester::Color'=> '1.302056',
+            'Test::Builder::TodoDiag'=> '1.302056',
+            'Test::More'            => '1.302056',
+            'Test::Simple'          => '1.302056',
+            'Test::Tester'          => '1.302056',
+            'Test::Tester::Capture' => '1.302056',
+            'Test::Tester::CaptureRunner'=> '1.302056',
+            'Test::Tester::Delegate'=> '1.302056',
+            'Test::use::ok'         => '1.302056',
+            'Thread::Semaphore'     => '2.13',
+            'XS::APItest'           => '0.84',
+            'XSLoader'              => '0.24',
+            'ok'                    => '1.302056',
+        },
+        removed => {
+        }
+    },
+    5.025006 => {
+        delta_from => 5.025005,
+        changed => {
+            'Archive::Tar'          => '2.14',
+            'Archive::Tar::Constant'=> '2.14',
+            'Archive::Tar::File'    => '2.14',
+            'B'                     => '1.64',
+            'B::Concise'            => '0.999',
+            'B::Deparse'            => '1.39',
+            'B::Op_private'         => '5.025006',
+            'Config'                => '5.025006',
+            'Data::Dumper'          => '2.162',
+            'Devel::Peek'           => '1.25',
+            'HTTP::Tiny'            => '0.070',
+            'List::Util'            => '1.46',
+            'List::Util::XS'        => '1.46',
+            'Module::CoreList'      => '5.20161020',
+            'Module::CoreList::TieHashDelta'=> '5.20161020',
+            'Module::CoreList::Utils'=> '5.20161020',
+            'Net::Ping'             => '2.51',
+            'OS2::DLL'              => '1.07',
+            'Opcode'                => '1.38',
+            'POSIX'                 => '1.73',
+            'PerlIO::encoding'      => '0.25',
+            'Pod::Man'              => '4.08',
+            'Pod::ParseLink'        => '4.08',
+            'Pod::Text'             => '4.08',
+            'Pod::Text::Color'      => '4.08',
+            'Pod::Text::Overstrike' => '4.08',
+            'Pod::Text::Termcap'    => '4.08',
+            'Scalar::Util'          => '1.46',
+            'Storable'              => '2.58',
+            'Sub::Util'             => '1.46',
+            'Test2'                 => '1.302059',
+            'Test2::API'            => '1.302059',
+            'Test2::API::Breakage'  => '1.302059',
+            'Test2::API::Context'   => '1.302059',
+            'Test2::API::Instance'  => '1.302059',
+            'Test2::API::Stack'     => '1.302059',
+            'Test2::Event'          => '1.302059',
+            'Test2::Event::Bail'    => '1.302059',
+            'Test2::Event::Diag'    => '1.302059',
+            'Test2::Event::Exception'=> '1.302059',
+            'Test2::Event::Generic' => '1.302059',
+            'Test2::Event::Info'    => '1.302059',
+            'Test2::Event::Note'    => '1.302059',
+            'Test2::Event::Ok'      => '1.302059',
+            'Test2::Event::Plan'    => '1.302059',
+            'Test2::Event::Skip'    => '1.302059',
+            'Test2::Event::Subtest' => '1.302059',
+            'Test2::Event::Waiting' => '1.302059',
+            'Test2::Formatter'      => '1.302059',
+            'Test2::Formatter::TAP' => '1.302059',
+            'Test2::Hub'            => '1.302059',
+            'Test2::Hub::Interceptor'=> '1.302059',
+            'Test2::Hub::Interceptor::Terminator'=> '1.302059',
+            'Test2::Hub::Subtest'   => '1.302059',
+            'Test2::IPC'            => '1.302059',
+            'Test2::IPC::Driver'    => '1.302059',
+            'Test2::IPC::Driver::Files'=> '1.302059',
+            'Test2::Util'           => '1.302059',
+            'Test2::Util::ExternalMeta'=> '1.302059',
+            'Test2::Util::HashBase' => '1.302059',
+            'Test2::Util::Trace'    => '1.302059',
+            'Test::Builder'         => '1.302059',
+            'Test::Builder::Formatter'=> '1.302059',
+            'Test::Builder::Module' => '1.302059',
+            'Test::Builder::Tester' => '1.302059',
+            'Test::Builder::Tester::Color'=> '1.302059',
+            'Test::Builder::TodoDiag'=> '1.302059',
+            'Test::More'            => '1.302059',
+            'Test::Simple'          => '1.302059',
+            'Test::Tester'          => '1.302059',
+            'Test::Tester::Capture' => '1.302059',
+            'Test::Tester::CaptureRunner'=> '1.302059',
+            'Test::Tester::Delegate'=> '1.302059',
+            'Test::use::ok'         => '1.302059',
+            'Time::HiRes'           => '1.9740_01',
+            'VMS::Stdio'            => '2.42',
+            'XS::APItest'           => '0.86',
+            'attributes'            => '0.28',
+            'mro'                   => '1.19',
+            'ok'                    => '1.302059',
+            'overload'              => '1.27',
+            'parent'                => '0.236',
+        },
+        removed => {
+        }
+    },
+    5.025007 => {
+        delta_from => 5.025006,
+        changed => {
+            'Archive::Tar'          => '2.18',
+            'Archive::Tar::Constant'=> '2.18',
+            'Archive::Tar::File'    => '2.18',
+            'B'                     => '1.65',
+            'B::Op_private'         => '5.025007',
+            'Config'                => '5.025007',
+            'Cwd'                   => '3.66',
+            'Data::Dumper'          => '2.165',
+            'Devel::Peek'           => '1.26',
+            'DynaLoader'            => '1.40',
+            'Errno'                 => '1.27',
+            'ExtUtils::ParseXS::Utilities'=> '3.34',
+            'File::Spec'            => '3.66',
+            'File::Spec::AmigaOS'   => '3.66',
+            'File::Spec::Cygwin'    => '3.66',
+            'File::Spec::Epoc'      => '3.66',
+            'File::Spec::Functions' => '3.66',
+            'File::Spec::Mac'       => '3.66',
+            'File::Spec::OS2'       => '3.66',
+            'File::Spec::Unix'      => '3.66',
+            'File::Spec::VMS'       => '3.66',
+            'File::Spec::Win32'     => '3.66',
+            'Hash::Util'            => '0.22',
+            'JSON::PP'              => '2.27400_02',
+            'List::Util'            => '1.46_02',
+            'List::Util::XS'        => '1.46_02',
+            'Math::BigFloat'        => '1.999727',
+            'Math::BigInt'          => '1.999727',
+            'Math::BigInt::Calc'    => '1.999727',
+            'Math::BigInt::CalcEmu' => '1.999727',
+            'Math::Complex'         => '1.5901',
+            'Module::CoreList'      => '5.20161120',
+            'Module::CoreList::TieHashDelta'=> '5.20161120',
+            'Module::CoreList::Utils'=> '5.20161120',
+            'Net::Ping'             => '2.55',
+            'Opcode'                => '1.39',
+            'POSIX'                 => '1.75',
+            'Pod::Man'              => '4.09',
+            'Pod::ParseLink'        => '4.09',
+            'Pod::Text'             => '4.09',
+            'Pod::Text::Color'      => '4.09',
+            'Pod::Text::Overstrike' => '4.09',
+            'Pod::Text::Termcap'    => '4.09',
+            'Scalar::Util'          => '1.46_02',
+            'Storable'              => '2.59',
+            'Sub::Util'             => '1.46_02',
+            'Term::ANSIColor'       => '4.06',
+            'Test2'                 => '1.302062',
+            'Test2::API'            => '1.302062',
+            'Test2::API::Breakage'  => '1.302062',
+            'Test2::API::Context'   => '1.302062',
+            'Test2::API::Instance'  => '1.302062',
+            'Test2::API::Stack'     => '1.302062',
+            'Test2::Event'          => '1.302062',
+            'Test2::Event::Bail'    => '1.302062',
+            'Test2::Event::Diag'    => '1.302062',
+            'Test2::Event::Exception'=> '1.302062',
+            'Test2::Event::Generic' => '1.302062',
+            'Test2::Event::Info'    => '1.302062',
+            'Test2::Event::Note'    => '1.302062',
+            'Test2::Event::Ok'      => '1.302062',
+            'Test2::Event::Plan'    => '1.302062',
+            'Test2::Event::Skip'    => '1.302062',
+            'Test2::Event::Subtest' => '1.302062',
+            'Test2::Event::Waiting' => '1.302062',
+            'Test2::Formatter'      => '1.302062',
+            'Test2::Formatter::TAP' => '1.302062',
+            'Test2::Hub'            => '1.302062',
+            'Test2::Hub::Interceptor'=> '1.302062',
+            'Test2::Hub::Interceptor::Terminator'=> '1.302062',
+            'Test2::Hub::Subtest'   => '1.302062',
+            'Test2::IPC'            => '1.302062',
+            'Test2::IPC::Driver'    => '1.302062',
+            'Test2::IPC::Driver::Files'=> '1.302062',
+            'Test2::Util'           => '1.302062',
+            'Test2::Util::ExternalMeta'=> '1.302062',
+            'Test2::Util::HashBase' => '1.302062',
+            'Test2::Util::Trace'    => '1.302062',
+            'Test::Builder'         => '1.302062',
+            'Test::Builder::Formatter'=> '1.302062',
+            'Test::Builder::Module' => '1.302062',
+            'Test::Builder::Tester' => '1.302062',
+            'Test::Builder::Tester::Color'=> '1.302062',
+            'Test::Builder::TodoDiag'=> '1.302062',
+            'Test::More'            => '1.302062',
+            'Test::Simple'          => '1.302062',
+            'Test::Tester'          => '1.302062',
+            'Test::Tester::Capture' => '1.302062',
+            'Test::Tester::CaptureRunner'=> '1.302062',
+            'Test::Tester::Delegate'=> '1.302062',
+            'Test::use::ok'         => '1.302062',
+            'Time::HiRes'           => '1.9740_03',
+            'Unicode::Collate'      => '1.18',
+            'Unicode::Collate::CJK::Big5'=> '1.18',
+            'Unicode::Collate::CJK::GB2312'=> '1.18',
+            'Unicode::Collate::CJK::JISX0208'=> '1.18',
+            'Unicode::Collate::CJK::Korean'=> '1.18',
+            'Unicode::Collate::CJK::Pinyin'=> '1.18',
+            'Unicode::Collate::CJK::Stroke'=> '1.18',
+            'Unicode::Collate::CJK::Zhuyin'=> '1.18',
+            'Unicode::Collate::Locale'=> '1.18',
+            'Unicode::UCD'          => '0.67',
+            'XS::APItest'           => '0.87',
+            'XS::Typemap'           => '0.15',
+            'mro'                   => '1.20',
+            'ok'                    => '1.302062',
+            'threads'               => '2.10',
+        },
+        removed => {
+        }
+    },
+    5.025008 => {
+        delta_from => 5.025007,
+        changed => {
+            'Archive::Tar'          => '2.24',
+            'Archive::Tar::Constant'=> '2.24',
+            'Archive::Tar::File'    => '2.24',
+            'B::Debug'              => '1.24',
+            'B::Op_private'         => '5.025008',
+            'Config'                => '5.025008',
+            'Data::Dumper'          => '2.166',
+            'Encode'                => '2.88',
+            'Encode::Alias'         => '2.21',
+            'Encode::CN::HZ'        => '2.08',
+            'Encode::MIME::Header'  => '2.24',
+            'Encode::MIME::Name'    => '1.02',
+            'Encode::Unicode'       => '2.1501',
+            'IO'                    => '1.38',
+            'Locale::Codes'         => '3.42',
+            'Locale::Codes::Constants'=> '3.42',
+            'Locale::Codes::Country'=> '3.42',
+            'Locale::Codes::Country_Codes'=> '3.42',
+            'Locale::Codes::Country_Retired'=> '3.42',
+            'Locale::Codes::Currency'=> '3.42',
+            'Locale::Codes::Currency_Codes'=> '3.42',
+            'Locale::Codes::Currency_Retired'=> '3.42',
+            'Locale::Codes::LangExt'=> '3.42',
+            'Locale::Codes::LangExt_Codes'=> '3.42',
+            'Locale::Codes::LangExt_Retired'=> '3.42',
+            'Locale::Codes::LangFam'=> '3.42',
+            'Locale::Codes::LangFam_Codes'=> '3.42',
+            'Locale::Codes::LangFam_Retired'=> '3.42',
+            'Locale::Codes::LangVar'=> '3.42',
+            'Locale::Codes::LangVar_Codes'=> '3.42',
+            'Locale::Codes::LangVar_Retired'=> '3.42',
+            'Locale::Codes::Language'=> '3.42',
+            'Locale::Codes::Language_Codes'=> '3.42',
+            'Locale::Codes::Language_Retired'=> '3.42',
+            'Locale::Codes::Script' => '3.42',
+            'Locale::Codes::Script_Codes'=> '3.42',
+            'Locale::Codes::Script_Retired'=> '3.42',
+            'Locale::Country'       => '3.42',
+            'Locale::Currency'      => '3.42',
+            'Locale::Language'      => '3.42',
+            'Locale::Script'        => '3.42',
+            'Math::BigFloat'        => '1.999806',
+            'Math::BigFloat::Trace' => '0.47',
+            'Math::BigInt'          => '1.999806',
+            'Math::BigInt::Calc'    => '1.999806',
+            'Math::BigInt::CalcEmu' => '1.999806',
+            'Math::BigInt::FastCalc'=> '0.5005',
+            'Math::BigInt::Lib'     => '1.999806',
+            'Math::BigInt::Trace'   => '0.47',
+            'Math::BigRat'          => '0.2611',
+            'Module::CoreList'      => '5.20161220',
+            'Module::CoreList::TieHashDelta'=> '5.20161220',
+            'Module::CoreList::Utils'=> '5.20161220',
+            'POSIX'                 => '1.76',
+            'PerlIO::scalar'        => '0.25',
+            'Pod::Simple'           => '3.35',
+            'Pod::Simple::BlackBox' => '3.35',
+            'Pod::Simple::Checker'  => '3.35',
+            'Pod::Simple::Debug'    => '3.35',
+            'Pod::Simple::DumpAsText'=> '3.35',
+            'Pod::Simple::DumpAsXML'=> '3.35',
+            'Pod::Simple::HTML'     => '3.35',
+            'Pod::Simple::HTMLBatch'=> '3.35',
+            'Pod::Simple::LinkSection'=> '3.35',
+            'Pod::Simple::Methody'  => '3.35',
+            'Pod::Simple::Progress' => '3.35',
+            'Pod::Simple::PullParser'=> '3.35',
+            'Pod::Simple::PullParserEndToken'=> '3.35',
+            'Pod::Simple::PullParserStartToken'=> '3.35',
+            'Pod::Simple::PullParserTextToken'=> '3.35',
+            'Pod::Simple::PullParserToken'=> '3.35',
+            'Pod::Simple::RTF'      => '3.35',
+            'Pod::Simple::Search'   => '3.35',
+            'Pod::Simple::SimpleTree'=> '3.35',
+            'Pod::Simple::Text'     => '3.35',
+            'Pod::Simple::TextContent'=> '3.35',
+            'Pod::Simple::TiedOutFH'=> '3.35',
+            'Pod::Simple::Transcode'=> '3.35',
+            'Pod::Simple::TranscodeDumb'=> '3.35',
+            'Pod::Simple::TranscodeSmart'=> '3.35',
+            'Pod::Simple::XHTML'    => '3.35',
+            'Pod::Simple::XMLOutStream'=> '3.35',
+            'Test2'                 => '1.302073',
+            'Test2::API'            => '1.302073',
+            'Test2::API::Breakage'  => '1.302073',
+            'Test2::API::Context'   => '1.302073',
+            'Test2::API::Instance'  => '1.302073',
+            'Test2::API::Stack'     => '1.302073',
+            'Test2::Event'          => '1.302073',
+            'Test2::Event::Bail'    => '1.302073',
+            'Test2::Event::Diag'    => '1.302073',
+            'Test2::Event::Encoding'=> '1.302073',
+            'Test2::Event::Exception'=> '1.302073',
+            'Test2::Event::Generic' => '1.302073',
+            'Test2::Event::Info'    => '1.302073',
+            'Test2::Event::Note'    => '1.302073',
+            'Test2::Event::Ok'      => '1.302073',
+            'Test2::Event::Plan'    => '1.302073',
+            'Test2::Event::Skip'    => '1.302073',
+            'Test2::Event::Subtest' => '1.302073',
+            'Test2::Event::TAP::Version'=> '1.302073',
+            'Test2::Event::Waiting' => '1.302073',
+            'Test2::Formatter'      => '1.302073',
+            'Test2::Formatter::TAP' => '1.302073',
+            'Test2::Hub'            => '1.302073',
+            'Test2::Hub::Interceptor'=> '1.302073',
+            'Test2::Hub::Interceptor::Terminator'=> '1.302073',
+            'Test2::Hub::Subtest'   => '1.302073',
+            'Test2::IPC'            => '1.302073',
+            'Test2::IPC::Driver'    => '1.302073',
+            'Test2::IPC::Driver::Files'=> '1.302073',
+            'Test2::Tools::Tiny'    => '1.302073',
+            'Test2::Util'           => '1.302073',
+            'Test2::Util::ExternalMeta'=> '1.302073',
+            'Test2::Util::HashBase' => '0.002',
+            'Test2::Util::Trace'    => '1.302073',
+            'Test::Builder'         => '1.302073',
+            'Test::Builder::Formatter'=> '1.302073',
+            'Test::Builder::Module' => '1.302073',
+            'Test::Builder::Tester' => '1.302073',
+            'Test::Builder::Tester::Color'=> '1.302073',
+            'Test::Builder::TodoDiag'=> '1.302073',
+            'Test::More'            => '1.302073',
+            'Test::Simple'          => '1.302073',
+            'Test::Tester'          => '1.302073',
+            'Test::Tester::Capture' => '1.302073',
+            'Test::Tester::CaptureRunner'=> '1.302073',
+            'Test::Tester::Delegate'=> '1.302073',
+            'Test::use::ok'         => '1.302073',
+            'Time::HiRes'           => '1.9741',
+            'Time::Local'           => '1.25',
+            'Unicode::Collate'      => '1.19',
+            'Unicode::Collate::CJK::Big5'=> '1.19',
+            'Unicode::Collate::CJK::GB2312'=> '1.19',
+            'Unicode::Collate::CJK::JISX0208'=> '1.19',
+            'Unicode::Collate::CJK::Korean'=> '1.19',
+            'Unicode::Collate::CJK::Pinyin'=> '1.19',
+            'Unicode::Collate::CJK::Stroke'=> '1.19',
+            'Unicode::Collate::CJK::Zhuyin'=> '1.19',
+            'Unicode::Collate::Locale'=> '1.19',
+            'bigint'                => '0.47',
+            'bignum'                => '0.47',
+            'bigrat'                => '0.47',
+            'encoding'              => '2.19',
+            'ok'                    => '1.302073',
+        },
+        removed => {
+        }
+    },
+    5.024001 => {
+        delta_from => 5.024000,
+        changed => {
+            'App::Cpan'             => '1.63_01',
+            'App::Prove'            => '3.36_01',
+            'App::Prove::State'     => '3.36_01',
+            'App::Prove::State::Result'=> '3.36_01',
+            'App::Prove::State::Result::Test'=> '3.36_01',
+            'Archive::Tar'          => '2.04_01',
+            'Archive::Tar::Constant'=> '2.04_01',
+            'Archive::Tar::File'    => '2.04_01',
+            'B::Op_private'         => '5.024001',
+            'CPAN'                  => '2.11_01',
+            'Compress::Zlib'        => '2.069_001',
+            'Config'                => '5.024001',
+            'Cwd'                   => '3.63_01',
+            'Digest'                => '1.17_01',
+            'Digest::SHA'           => '5.95_01',
+            'Encode'                => '2.80_01',
+            'ExtUtils::Command'     => '7.10_02',
+            'ExtUtils::Command::MM' => '7.10_02',
+            'ExtUtils::Liblist'     => '7.10_02',
+            'ExtUtils::Liblist::Kid'=> '7.10_02',
+            'ExtUtils::MM'          => '7.10_02',
+            'ExtUtils::MM_AIX'      => '7.10_02',
+            'ExtUtils::MM_Any'      => '7.10_02',
+            'ExtUtils::MM_BeOS'     => '7.10_02',
+            'ExtUtils::MM_Cygwin'   => '7.10_02',
+            'ExtUtils::MM_DOS'      => '7.10_02',
+            'ExtUtils::MM_Darwin'   => '7.10_02',
+            'ExtUtils::MM_MacOS'    => '7.10_02',
+            'ExtUtils::MM_NW5'      => '7.10_02',
+            'ExtUtils::MM_OS2'      => '7.10_02',
+            'ExtUtils::MM_QNX'      => '7.10_02',
+            'ExtUtils::MM_UWIN'     => '7.10_02',
+            'ExtUtils::MM_Unix'     => '7.10_02',
+            'ExtUtils::MM_VMS'      => '7.10_02',
+            'ExtUtils::MM_VOS'      => '7.10_02',
+            'ExtUtils::MM_Win32'    => '7.10_02',
+            'ExtUtils::MM_Win95'    => '7.10_02',
+            'ExtUtils::MY'          => '7.10_02',
+            'ExtUtils::MakeMaker'   => '7.10_02',
+            'ExtUtils::MakeMaker::Config'=> '7.10_02',
+            'ExtUtils::Mkbootstrap' => '7.10_02',
+            'ExtUtils::Mksymlists'  => '7.10_02',
+            'ExtUtils::testlib'     => '7.10_02',
+            'File::Fetch'           => '0.48_01',
+            'File::Spec'            => '3.63_01',
+            'File::Spec::Cygwin'    => '3.63_01',
+            'File::Spec::Epoc'      => '3.63_01',
+            'File::Spec::Functions' => '3.63_01',
+            'File::Spec::Mac'       => '3.63_01',
+            'File::Spec::OS2'       => '3.63_01',
+            'File::Spec::Unix'      => '3.63_01',
+            'File::Spec::VMS'       => '3.63_01',
+            'File::Spec::Win32'     => '3.63_01',
+            'HTTP::Tiny'            => '0.056_001',
+            'I18N::LangTags::Detect'=> '1.05_01',
+            'IO'                    => '1.36_01',
+            'IO::Compress::Adapter::Bzip2'=> '2.069_001',
+            'IO::Compress::Adapter::Deflate'=> '2.069_001',
+            'IO::Compress::Adapter::Identity'=> '2.069_001',
+            'IO::Compress::Base'    => '2.069_001',
+            'IO::Compress::Base::Common'=> '2.069_001',
+            'IO::Compress::Bzip2'   => '2.069_001',
+            'IO::Compress::Deflate' => '2.069_001',
+            'IO::Compress::Gzip'    => '2.069_001',
+            'IO::Compress::Gzip::Constants'=> '2.069_001',
+            'IO::Compress::RawDeflate'=> '2.069_001',
+            'IO::Compress::Zip'     => '2.069_001',
+            'IO::Compress::Zip::Constants'=> '2.069_001',
+            'IO::Compress::Zlib::Constants'=> '2.069_001',
+            'IO::Compress::Zlib::Extra'=> '2.069_001',
+            'IO::Uncompress::Adapter::Bunzip2'=> '2.069_001',
+            'IO::Uncompress::Adapter::Identity'=> '2.069_001',
+            'IO::Uncompress::Adapter::Inflate'=> '2.069_001',
+            'IO::Uncompress::AnyInflate'=> '2.069_001',
+            'IO::Uncompress::AnyUncompress'=> '2.069_001',
+            'IO::Uncompress::Base'  => '2.069_001',
+            'IO::Uncompress::Bunzip2'=> '2.069_001',
+            'IO::Uncompress::Gunzip'=> '2.069_001',
+            'IO::Uncompress::Inflate'=> '2.069_001',
+            'IO::Uncompress::RawInflate'=> '2.069_001',
+            'IO::Uncompress::Unzip' => '2.069_001',
+            'IPC::Cmd'              => '0.92_01',
+            'JSON::PP'              => '2.27300_01',
+            'Locale::Maketext'      => '1.26_01',
+            'Locale::Maketext::Simple'=> '0.21_01',
+            'Math::BigFloat::Trace' => '0.42_01',
+            'Math::BigInt::Trace'   => '0.42_01',
+            'Memoize'               => '1.03_01',
+            'Module::CoreList'      => '5.20170114_24',
+            'Module::CoreList::TieHashDelta'=> '5.20170114_24',
+            'Module::CoreList::Utils'=> '5.20170114_24',
+            'Module::Metadata::corpus::BOMTest::UTF16BE'=> undef,
+            'Module::Metadata::corpus::BOMTest::UTF16LE'=> undef,
+            'Module::Metadata::corpus::BOMTest::UTF8'=> '1',
+            'Net::Cmd'              => '3.08_01',
+            'Net::Config'           => '3.08_01',
+            'Net::Domain'           => '3.08_01',
+            'Net::FTP'              => '3.08_01',
+            'Net::FTP::A'           => '3.08_01',
+            'Net::FTP::E'           => '3.08_01',
+            'Net::FTP::I'           => '3.08_01',
+            'Net::FTP::L'           => '3.08_01',
+            'Net::FTP::dataconn'    => '3.08_01',
+            'Net::NNTP'             => '3.08_01',
+            'Net::Netrc'            => '3.08_01',
+            'Net::POP3'             => '3.08_01',
+            'Net::Ping'             => '2.43_01',
+            'Net::SMTP'             => '3.08_01',
+            'Net::Time'             => '3.08_01',
+            'Parse::CPAN::Meta'     => '1.4417_001',
+            'Pod::Html'             => '1.2201',
+            'Pod::Perldoc'          => '3.25_03',
+            'Storable'              => '2.56_01',
+            'Sys::Syslog'           => '0.33_01',
+            'TAP::Base'             => '3.36_01',
+            'TAP::Formatter::Base'  => '3.36_01',
+            'TAP::Formatter::Color' => '3.36_01',
+            'TAP::Formatter::Console'=> '3.36_01',
+            'TAP::Formatter::Console::ParallelSession'=> '3.36_01',
+            'TAP::Formatter::Console::Session'=> '3.36_01',
+            'TAP::Formatter::File'  => '3.36_01',
+            'TAP::Formatter::File::Session'=> '3.36_01',
+            'TAP::Formatter::Session'=> '3.36_01',
+            'TAP::Harness'          => '3.36_01',
+            'TAP::Harness::Env'     => '3.36_01',
+            'TAP::Object'           => '3.36_01',
+            'TAP::Parser'           => '3.36_01',
+            'TAP::Parser::Aggregator'=> '3.36_01',
+            'TAP::Parser::Grammar'  => '3.36_01',
+            'TAP::Parser::Iterator' => '3.36_01',
+            'TAP::Parser::Iterator::Array'=> '3.36_01',
+            'TAP::Parser::Iterator::Process'=> '3.36_01',
+            'TAP::Parser::Iterator::Stream'=> '3.36_01',
+            'TAP::Parser::IteratorFactory'=> '3.36_01',
+            'TAP::Parser::Multiplexer'=> '3.36_01',
+            'TAP::Parser::Result'   => '3.36_01',
+            'TAP::Parser::Result::Bailout'=> '3.36_01',
+            'TAP::Parser::Result::Comment'=> '3.36_01',
+            'TAP::Parser::Result::Plan'=> '3.36_01',
+            'TAP::Parser::Result::Pragma'=> '3.36_01',
+            'TAP::Parser::Result::Test'=> '3.36_01',
+            'TAP::Parser::Result::Unknown'=> '3.36_01',
+            'TAP::Parser::Result::Version'=> '3.36_01',
+            'TAP::Parser::Result::YAML'=> '3.36_01',
+            'TAP::Parser::ResultFactory'=> '3.36_01',
+            'TAP::Parser::Scheduler'=> '3.36_01',
+            'TAP::Parser::Scheduler::Job'=> '3.36_01',
+            'TAP::Parser::Scheduler::Spinner'=> '3.36_01',
+            'TAP::Parser::Source'   => '3.36_01',
+            'TAP::Parser::SourceHandler'=> '3.36_01',
+            'TAP::Parser::SourceHandler::Executable'=> '3.36_01',
+            'TAP::Parser::SourceHandler::File'=> '3.36_01',
+            'TAP::Parser::SourceHandler::Handle'=> '3.36_01',
+            'TAP::Parser::SourceHandler::Perl'=> '3.36_01',
+            'TAP::Parser::SourceHandler::RawTAP'=> '3.36_01',
+            'TAP::Parser::YAMLish::Reader'=> '3.36_01',
+            'TAP::Parser::YAMLish::Writer'=> '3.36_01',
+            'Test'                  => '1.28_01',
+            'Test::Harness'         => '3.36_01',
+            'XSLoader'              => '0.22',
+            'bigint'                => '0.42_01',
+            'bignum'                => '0.42_01',
+            'bigrat'                => '0.42_01',
+        },
+        removed => {
+        }
+    },
+);
+
+sub is_core
+{
+    my $module = shift;
+    $module = shift if eval { $module->isa(__PACKAGE__) } && @_ > 0 && defined($_[0]) && $_[0] =~ /^\w/;
+    my ($module_version, $perl_version);
+
+    $module_version = shift if @_ > 0;
+    $perl_version   = @_ > 0 ? shift : $];
+
+    my $first_release = first_release($module);
+
+    return 0 if !defined($first_release) || $first_release > $perl_version;
+
+    my $final_release = removed_from($module);
+
+    return 0 if defined($final_release) && $perl_version >= $final_release;
+
+    # If a minimum version of the module was specified:
+    # Step through all perl releases ($prn)
+    # so we can find what version of the module
+    # was included in the specified version of perl.
+    # On the way if we pass the required module version, we can
+    # short-circuit and return true
+    if (defined($module_version)) {
+        # The Perl releases aren't a linear sequence, but a tree. We need to build the path
+        # of releases from 5 to the specified release, and follow the module's version(s)
+        # along that path.
+        my @releases = ($perl_version);
+        my $rel = $perl_version;
+        while (defined($rel)) {
+            # XXX: This line is a sign of failure. -- rjbs, 2015-04-15
+            my $this_delta = $delta{$rel} || $delta{ sprintf '%0.6f', $rel };
+            $rel = $this_delta->{delta_from};
+            unshift(@releases, $rel) if defined($rel);
+        }
+        RELEASE:
+        foreach my $prn (@releases) {
+            next RELEASE if $prn < $first_release;
+            last RELEASE if $prn > $perl_version;
+            next unless defined(my $next_module_version
+                                   = $delta{$prn}->{changed}->{$module});
+            return 1 if version->parse($next_module_version) >= version->parse($module_version);
+        }
+        return 0;
+    }
+
+    return 1 if !defined($final_release);
+
+    return $perl_version <= $final_release;
+}
+
+for my $version (sort { $a <=> $b } keys %delta) {
+    my $data = $delta{$version};
+
+    tie %{$version{$version}}, 'Module::CoreList::TieHashDelta',
+        $data->{changed}, $data->{removed},
+        $data->{delta_from} ? $version{$data->{delta_from}} : undef;
+}
+
+%deprecated = (
+    5.011    => {
+        changed => { map { $_ => 1 } qw/
+            Class::ISA
+            Pod::Plainer
+            Shell
+            Switch
+        /},
+    },
+    5.011001 => { delta_from => 5.011 },
+    5.011002 => { delta_from => 5.011001 },
+    5.011003 => { delta_from => 5.011002 },
+    5.011004 => { delta_from => 5.011003 },
+    5.011005 => { delta_from => 5.011004 },
+
+    5.012    => { delta_from => 5.011005 },
+    5.012001 => { delta_from => 5.012 },
+    5.012002 => { delta_from => 5.012001 },
+    5.012003 => { delta_from => 5.012002 },
+    5.012004 => { delta_from => 5.012003 },
+    5.012005 => { delta_from => 5.012004 },
+
+    5.013    => { delta_from => 5.012005 },
+    5.013001 => {
+        delta_from => 5.013,
+        removed => { map { $_ => 1 } qw/
+            Class::ISA
+            Pod::Plainer
+            Switch
+        /},
+    },
+    5.013002 => { delta_from => 5.013001 },
+    5.013003 => { delta_from => 5.013002 },
+    5.013004 => { delta_from => 5.013003 },
+    5.013005 => { delta_from => 5.013004 },
+    5.013006 => { delta_from => 5.013005 },
+    5.013007 => { delta_from => 5.013006 },
+    5.013008 => { delta_from => 5.013007 },
+    5.013009 => { delta_from => 5.013008 },
+    5.01301  => { delta_from => 5.013009 },
+    5.013011 => { delta_from => 5.01301  },
+
+    5.014    => { delta_from => 5.013011 },
+    5.014001 => { delta_from => 5.014    },
+    5.014002 => { delta_from => 5.014001 },
+    5.014003 => { delta_from => 5.014002 },
+    5.014004 => { delta_from => 5.014003 },
+
+    5.015    => {
+        delta_from => 5.014004,
+        removed => { Shell => 1 },
+    },
+    5.015001 => { delta_from => 5.015    },
+    5.015002 => { delta_from => 5.015001 },
+    5.015003 => { delta_from => 5.015002 },
+    5.015004 => { delta_from => 5.015003 },
+    5.015005 => { delta_from => 5.015004 },
+    5.015006 => { delta_from => 5.015005 },
+    5.015007 => { delta_from => 5.015006 },
+    5.015008 => { delta_from => 5.015007 },
+    5.015009 => { delta_from => 5.015008 },
+
+    5.016    => { delta_from => 5.015009 },
+    5.016001 => { delta_from => 5.016    },
+    5.016002 => { delta_from => 5.016001 },
+    5.016003 => { delta_from => 5.016002 },
+
+    5.017    => { delta_from => 5.016003 },
+    5.017001 => { delta_from => 5.017    },
+    5.017002 => { delta_from => 5.017001 },
+    5.017003 => { delta_from => 5.017002 },
+    5.017004 => { delta_from => 5.017003 },
+    5.017005 => { delta_from => 5.017004 },
+    5.017006 => { delta_from => 5.017005 },
+    5.017007 => { delta_from => 5.017006 },
+    5.017008 => {
+        delta_from => 5.017007,
+        changed => { 'Pod::LaTeX' => 1 },
+    },
+    5.017009 => {
+        delta_from => 5.017008,
+        changed => { map { $_ => 1 } qw/
+            Archive::Extract
+            B::Lint
+            B::Lint::Debug
+            CPANPLUS
+            CPANPLUS::Backend
+            CPANPLUS::Backend::RV
+            CPANPLUS::Config
+            CPANPLUS::Config::HomeEnv
+            CPANPLUS::Configure
+            CPANPLUS::Configure::Setup
+            CPANPLUS::Dist
+            CPANPLUS::Dist::Autobundle
+            CPANPLUS::Dist::Base
+            CPANPLUS::Dist::Build
+            CPANPLUS::Dist::Build::Constants
+            CPANPLUS::Dist::MM
+            CPANPLUS::Dist::Sample
+            CPANPLUS::Error
+            CPANPLUS::Internals
+            CPANPLUS::Internals::Constants
+            CPANPLUS::Internals::Constants::Report
+            CPANPLUS::Internals::Extract
+            CPANPLUS::Internals::Fetch
+            CPANPLUS::Internals::Report
+            CPANPLUS::Internals::Search
+            CPANPLUS::Internals::Source
+            CPANPLUS::Internals::Source::Memory
+            CPANPLUS::Internals::Source::SQLite
+            CPANPLUS::Internals::Source::SQLite::Tie
+            CPANPLUS::Internals::Utils
+            CPANPLUS::Internals::Utils::Autoflush
+            CPANPLUS::Module
+            CPANPLUS::Module::Author
+            CPANPLUS::Module::Author::Fake
+            CPANPLUS::Module::Checksums
+            CPANPLUS::Module::Fake
+            CPANPLUS::Module::Signature
+            CPANPLUS::Selfupdate
+            CPANPLUS::Shell
+            CPANPLUS::Shell::Classic
+            CPANPLUS::Shell::Default
+            CPANPLUS::Shell::Default::Plugins::CustomSource
+            CPANPLUS::Shell::Default::Plugins::Remote
+            CPANPLUS::Shell::Default::Plugins::Source
+            Devel::InnerPackage
+            File::CheckTree
+            Log::Message
+            Log::Message::Config
+            Log::Message::Handlers
+            Log::Message::Item
+            Log::Message::Simple
+            Module::Pluggable
+            Module::Pluggable::Object
+            Object::Accessor
+            Term::UI
+            Term::UI::History
+            Text::Soundex
+        /},
+    },
+    5.01701  => { delta_from => 5.017009 },
+    5.017011 => { delta_from => 5.01701  },
+
+    5.018    => { delta_from => 5.017011 },
+    5.018001 => {
+        delta_from => 5.018,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.018002 => {
+        delta_from => 5.018001,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.018003 => {
+        delta_from => 5.018,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.018004 => {
+        delta_from => 5.018,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.019    => {
+        delta_from => 5.018,
+        changed => { 'Module::Build' => 1 },
+        removed => { map { $_ => 1 } qw/
+            Archive::Extract
+            B::Lint
+            B::Lint::Debug
+            CPANPLUS
+            CPANPLUS::Backend
+            CPANPLUS::Backend::RV
+            CPANPLUS::Config
+            CPANPLUS::Config::HomeEnv
+            CPANPLUS::Configure
+            CPANPLUS::Configure::Setup
+            CPANPLUS::Dist
+            CPANPLUS::Dist::Autobundle
+            CPANPLUS::Dist::Base
+            CPANPLUS::Dist::Build
+            CPANPLUS::Dist::Build::Constants
+            CPANPLUS::Dist::MM
+            CPANPLUS::Dist::Sample
+            CPANPLUS::Error
+            CPANPLUS::Internals
+            CPANPLUS::Internals::Constants
+            CPANPLUS::Internals::Constants::Report
+            CPANPLUS::Internals::Extract
+            CPANPLUS::Internals::Fetch
+            CPANPLUS::Internals::Report
+            CPANPLUS::Internals::Search
+            CPANPLUS::Internals::Source
+            CPANPLUS::Internals::Source::Memory
+            CPANPLUS::Internals::Source::SQLite
+            CPANPLUS::Internals::Source::SQLite::Tie
+            CPANPLUS::Internals::Utils
+            CPANPLUS::Internals::Utils::Autoflush
+            CPANPLUS::Module
+            CPANPLUS::Module::Author
+            CPANPLUS::Module::Author::Fake
+            CPANPLUS::Module::Checksums
+            CPANPLUS::Module::Fake
+            CPANPLUS::Module::Signature
+            CPANPLUS::Selfupdate
+            CPANPLUS::Shell
+            CPANPLUS::Shell::Classic
+            CPANPLUS::Shell::Default
+            CPANPLUS::Shell::Default::Plugins::CustomSource
+            CPANPLUS::Shell::Default::Plugins::Remote
+            CPANPLUS::Shell::Default::Plugins::Source
+            Devel::InnerPackage
+            File::CheckTree
+            Log::Message
+            Log::Message::Config
+            Log::Message::Handlers
+            Log::Message::Item
+            Log::Message::Simple
+            Module::Pluggable
+            Module::Pluggable::Object
+            Object::Accessor
+            Pod::LaTeX
+            Term::UI
+            Term::UI::History
+            Text::Soundex
+        /}
+    },
+    5.019001 => {
+        delta_from => 5.019,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.019002 => {
+        delta_from => 5.019001,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.019003 => {
+        delta_from => 5.019002,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.019004 => {
+        delta_from => 5.019003,
+        changed => {
+            'Module::Build::Base'   => '1',
+            'Module::Build::Compat' => '1',
+            'Module::Build::Config' => '1',
+            'Module::Build::ConfigData'=> '1',
+            'Module::Build::Cookbook'=> '1',
+            'Module::Build::Dumper' => '1',
+            'Module::Build::ModuleInfo'=> '1',
+            'Module::Build::Notes'  => '1',
+            'Module::Build::PPMMaker'=> '1',
+            'Module::Build::Platform::Default'=> '1',
+            'Module::Build::Platform::MacOS'=> '1',
+            'Module::Build::Platform::Unix'=> '1',
+            'Module::Build::Platform::VMS'=> '1',
+            'Module::Build::Platform::VOS'=> '1',
+            'Module::Build::Platform::Windows'=> '1',
+            'Module::Build::Platform::aix'=> '1',
+            'Module::Build::Platform::cygwin'=> '1',
+            'Module::Build::Platform::darwin'=> '1',
+            'Module::Build::Platform::os2'=> '1',
+            'Module::Build::PodParser'=> '1',
+            'Module::Build::Version'=> '1',
+            'Module::Build::YAML'   => '1',
+            'inc::latest'           => '1',
+        },
+        removed => {
+        }
+    },
+    5.019005 => {
+        delta_from => 5.019004,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.019006 => {
+        delta_from => 5.019005,
+        changed => {
+            'Package::Constants'    => '1',
+        },
+        removed => {
+        }
+    },
+    5.019007 => {
+        delta_from => 5.019006,
+        changed => {
+            'CGI'                   => '1',
+            'CGI::Apache'           => '1',
+            'CGI::Carp'             => '1',
+            'CGI::Cookie'           => '1',
+            'CGI::Fast'             => '1',
+            'CGI::Pretty'           => '1',
+            'CGI::Push'             => '1',
+            'CGI::Switch'           => '1',
+            'CGI::Util'             => '1',
+        },
+        removed => {
+        }
+    },
+    5.019008 => {
+        delta_from => 5.019007,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.019009 => {
+        delta_from => 5.019008,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.01901 => {
+        delta_from => 5.019009,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.019011 => {
+        delta_from => 5.019010,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.020000 => {
+        delta_from => 5.019011,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.021000 => {
+        delta_from => 5.020000,
+        changed => {
+        },
+        removed => {
+            'CGI'                   => 1,
+            'CGI::Apache'           => 1,
+            'CGI::Carp'             => 1,
+            'CGI::Cookie'           => 1,
+            'CGI::Fast'             => 1,
+            'CGI::Pretty'           => 1,
+            'CGI::Push'             => 1,
+            'CGI::Switch'           => 1,
+            'CGI::Util'             => 1,
+            'Module::Build'         => 1,
+            'Module::Build::Base'   => 1,
+            'Module::Build::Compat' => 1,
+            'Module::Build::Config' => 1,
+            'Module::Build::ConfigData'=> 1,
+            'Module::Build::Cookbook'=> 1,
+            'Module::Build::Dumper' => 1,
+            'Module::Build::ModuleInfo'=> 1,
+            'Module::Build::Notes'  => 1,
+            'Module::Build::PPMMaker'=> 1,
+            'Module::Build::Platform::Default'=> 1,
+            'Module::Build::Platform::MacOS'=> 1,
+            'Module::Build::Platform::Unix'=> 1,
+            'Module::Build::Platform::VMS'=> 1,
+            'Module::Build::Platform::VOS'=> 1,
+            'Module::Build::Platform::Windows'=> 1,
+            'Module::Build::Platform::aix'=> 1,
+            'Module::Build::Platform::cygwin'=> 1,
+            'Module::Build::Platform::darwin'=> 1,
+            'Module::Build::Platform::os2'=> 1,
+            'Module::Build::PodParser'=> 1,
+            'Module::Build::Version'=> 1,
+            'Module::Build::YAML'   => 1,
+            'Package::Constants'    => 1,
+            'inc::latest'           => 1,
+        }
+    },
+    5.021001 => {
+        delta_from => 5.021000,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.021002 => {
+        delta_from => 5.021001,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.021003 => {
+        delta_from => 5.021002,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.020001 => {
+        delta_from => 5.020000,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.021004 => {
+        delta_from => 5.021003,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.021005 => {
+        delta_from => 5.021004,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.021006 => {
+        delta_from => 5.021005,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.021007 => {
+        delta_from => 5.021006,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.021008 => {
+        delta_from => 5.021007,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.020002 => {
+        delta_from => 5.020001,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.021009 => {
+        delta_from => 5.021008,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.021010 => {
+        delta_from => 5.021009,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.021011 => {
+        delta_from => 5.02101,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.022000 => {
+        delta_from => 5.021011,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.023000 => {
+        delta_from => 5.022000,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.023001 => {
+        delta_from => 5.023000,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.023002 => {
+        delta_from => 5.023001,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.020003 => {
+        delta_from => 5.020002,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.023003 => {
+        delta_from => 5.023002,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.023004 => {
+        delta_from => 5.023003,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.023005 => {
+        delta_from => 5.023004,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.022001 => {
+        delta_from => 5.022,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.023006 => {
+        delta_from => 5.023005,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.023007 => {
+        delta_from => 5.023006,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.023008 => {
+        delta_from => 5.023007,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.023009 => {
+        delta_from => 5.023008,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.022002 => {
+        delta_from => 5.022001,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.024000 => {
+        delta_from => 5.023009,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.025000 => {
+        delta_from => 5.024,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.025001 => {
+        delta_from => 5.025,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.025002 => {
+        delta_from => 5.025001,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.025003 => {
+        delta_from => 5.025002,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.025004 => {
+        delta_from => 5.025003,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.025005 => {
+        delta_from => 5.025004,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.025006 => {
+        delta_from => 5.025005,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.025007 => {
+        delta_from => 5.025006,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.025008 => {
+        delta_from => 5.025007,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.024001 => {
+        delta_from => 5.024000,
+        changed => {
+        },
+        removed => {
+        }
+    },
+);
+
+for my $version (sort { $a <=> $b } keys %deprecated) {
+    my $data = $deprecated{$version};
+
+    tie %{ $deprecated{$version} }, 'Module::CoreList::TieHashDelta',
+        $data->{changed}, $data->{removed},
+        $data->{delta_from} ? $deprecated{ $data->{delta_from} } : undef;
+}
+
+%upstream = (
+    'App::Cpan'             => 'cpan',
+    'App::Prove'            => 'cpan',
+    'App::Prove::State'     => 'cpan',
+    'App::Prove::State::Result'=> 'cpan',
+    'App::Prove::State::Result::Test'=> 'cpan',
+    'Archive::Tar'          => 'cpan',
+    'Archive::Tar::Constant'=> 'cpan',
+    'Archive::Tar::File'    => 'cpan',
+    'AutoLoader'            => 'cpan',
+    'AutoSplit'             => 'cpan',
+    'B::Debug'              => 'cpan',
+    'CPAN'                  => 'cpan',
+    'CPAN::Author'          => 'cpan',
+    'CPAN::Bundle'          => 'cpan',
+    'CPAN::CacheMgr'        => 'cpan',
+    'CPAN::Complete'        => 'cpan',
+    'CPAN::Debug'           => 'cpan',
+    'CPAN::DeferredCode'    => 'cpan',
+    'CPAN::Distribution'    => 'cpan',
+    'CPAN::Distroprefs'     => 'cpan',
+    'CPAN::Distrostatus'    => 'cpan',
+    'CPAN::Exception::RecursiveDependency'=> 'cpan',
+    'CPAN::Exception::blocked_urllist'=> 'cpan',
+    'CPAN::Exception::yaml_not_installed'=> 'cpan',
+    'CPAN::Exception::yaml_process_error'=> 'cpan',
+    'CPAN::FTP'             => 'cpan',
+    'CPAN::FTP::netrc'      => 'cpan',
+    'CPAN::FirstTime'       => 'cpan',
+    'CPAN::HTTP::Client'    => 'cpan',
+    'CPAN::HTTP::Credentials'=> 'cpan',
+    'CPAN::HandleConfig'    => 'cpan',
+    'CPAN::Index'           => 'cpan',
+    'CPAN::InfoObj'         => 'cpan',
+    'CPAN::Kwalify'         => 'cpan',
+    'CPAN::LWP::UserAgent'  => 'cpan',
+    'CPAN::Meta'            => 'cpan',
+    'CPAN::Meta::Converter' => 'cpan',
+    'CPAN::Meta::Feature'   => 'cpan',
+    'CPAN::Meta::History'   => 'cpan',
+    'CPAN::Meta::Merge'     => 'cpan',
+    'CPAN::Meta::Prereqs'   => 'cpan',
+    'CPAN::Meta::Requirements'=> 'cpan',
+    'CPAN::Meta::Spec'      => 'cpan',
+    'CPAN::Meta::Validator' => 'cpan',
+    'CPAN::Meta::YAML'      => 'cpan',
+    'CPAN::Mirrors'         => 'cpan',
+    'CPAN::Module'          => 'cpan',
+    'CPAN::Nox'             => 'cpan',
+    'CPAN::Plugin'          => 'cpan',
+    'CPAN::Plugin::Specfile'=> 'cpan',
+    'CPAN::Prompt'          => 'cpan',
+    'CPAN::Queue'           => 'cpan',
+    'CPAN::Shell'           => 'cpan',
+    'CPAN::Tarzip'          => 'cpan',
+    'CPAN::URL'             => 'cpan',
+    'CPAN::Version'         => 'cpan',
+    'Compress::Raw::Bzip2'  => 'cpan',
+    'Compress::Raw::Zlib'   => 'cpan',
+    'Compress::Zlib'        => 'cpan',
+    'Config::Perl::V'       => 'cpan',
+    'DB_File'               => 'cpan',
+    'Devel::PPPort'         => 'cpan',
+    'Digest'                => 'cpan',
+    'Digest::MD5'           => 'cpan',
+    'Digest::SHA'           => 'cpan',
+    'Digest::base'          => 'cpan',
+    'Digest::file'          => 'cpan',
+    'Encode'                => 'cpan',
+    'Encode::Alias'         => 'cpan',
+    'Encode::Byte'          => 'cpan',
+    'Encode::CJKConstants'  => 'cpan',
+    'Encode::CN'            => 'cpan',
+    'Encode::CN::HZ'        => 'cpan',
+    'Encode::Config'        => 'cpan',
+    'Encode::EBCDIC'        => 'cpan',
+    'Encode::Encoder'       => 'cpan',
+    'Encode::Encoding'      => 'cpan',
+    'Encode::GSM0338'       => 'cpan',
+    'Encode::Guess'         => 'cpan',
+    'Encode::JP'            => 'cpan',
+    'Encode::JP::H2Z'       => 'cpan',
+    'Encode::JP::JIS7'      => 'cpan',
+    'Encode::KR'            => 'cpan',
+    'Encode::KR::2022_KR'   => 'cpan',
+    'Encode::MIME::Header'  => 'cpan',
+    'Encode::MIME::Header::ISO_2022_JP'=> 'cpan',
+    'Encode::MIME::Name'    => 'cpan',
+    'Encode::Symbol'        => 'cpan',
+    'Encode::TW'            => 'cpan',
+    'Encode::Unicode'       => 'cpan',
+    'Encode::Unicode::UTF7' => 'cpan',
+    'ExtUtils::Command'     => 'cpan',
+    'ExtUtils::Command::MM' => 'cpan',
+    'ExtUtils::Constant'    => 'cpan',
+    'ExtUtils::Constant::Base'=> 'cpan',
+    'ExtUtils::Constant::ProxySubs'=> 'cpan',
+    'ExtUtils::Constant::Utils'=> 'cpan',
+    'ExtUtils::Constant::XS'=> 'cpan',
+    'ExtUtils::Install'     => 'cpan',
+    'ExtUtils::Installed'   => 'cpan',
+    'ExtUtils::Liblist'     => 'cpan',
+    'ExtUtils::Liblist::Kid'=> 'cpan',
+    'ExtUtils::MM'          => 'cpan',
+    'ExtUtils::MM_AIX'      => 'cpan',
+    'ExtUtils::MM_Any'      => 'cpan',
+    'ExtUtils::MM_BeOS'     => 'cpan',
+    'ExtUtils::MM_Cygwin'   => 'cpan',
+    'ExtUtils::MM_DOS'      => 'cpan',
+    'ExtUtils::MM_Darwin'   => 'cpan',
+    'ExtUtils::MM_MacOS'    => 'cpan',
+    'ExtUtils::MM_NW5'      => 'cpan',
+    'ExtUtils::MM_OS2'      => 'cpan',
+    'ExtUtils::MM_QNX'      => 'cpan',
+    'ExtUtils::MM_UWIN'     => 'cpan',
+    'ExtUtils::MM_Unix'     => 'cpan',
+    'ExtUtils::MM_VMS'      => 'cpan',
+    'ExtUtils::MM_VOS'      => 'cpan',
+    'ExtUtils::MM_Win32'    => 'cpan',
+    'ExtUtils::MM_Win95'    => 'cpan',
+    'ExtUtils::MY'          => 'cpan',
+    'ExtUtils::MakeMaker'   => 'cpan',
+    'ExtUtils::MakeMaker::Config'=> 'cpan',
+    'ExtUtils::MakeMaker::Locale'=> 'cpan',
+    'ExtUtils::MakeMaker::version'=> 'cpan',
+    'ExtUtils::MakeMaker::version::regex'=> 'cpan',
+    'ExtUtils::Manifest'    => 'cpan',
+    'ExtUtils::Mkbootstrap' => 'cpan',
+    'ExtUtils::Mksymlists'  => 'cpan',
+    'ExtUtils::Packlist'    => 'cpan',
+    'ExtUtils::testlib'     => 'cpan',
+    'Fatal'                 => 'cpan',
+    'File::Fetch'           => 'cpan',
+    'File::GlobMapper'      => 'cpan',
+    'File::Path'            => 'cpan',
+    'File::Temp'            => 'cpan',
+    'Filter::Util::Call'    => 'cpan',
+    'Getopt::Long'          => 'cpan',
+    'HTTP::Tiny'            => 'cpan',
+    'IO::Compress::Adapter::Bzip2'=> 'cpan',
+    'IO::Compress::Adapter::Deflate'=> 'cpan',
+    'IO::Compress::Adapter::Identity'=> 'cpan',
+    'IO::Compress::Base'    => 'cpan',
+    'IO::Compress::Base::Common'=> 'cpan',
+    'IO::Compress::Bzip2'   => 'cpan',
+    'IO::Compress::Deflate' => 'cpan',
+    'IO::Compress::Gzip'    => 'cpan',
+    'IO::Compress::Gzip::Constants'=> 'cpan',
+    'IO::Compress::RawDeflate'=> 'cpan',
+    'IO::Compress::Zip'     => 'cpan',
+    'IO::Compress::Zip::Constants'=> 'cpan',
+    'IO::Compress::Zlib::Constants'=> 'cpan',
+    'IO::Compress::Zlib::Extra'=> 'cpan',
+    'IO::Socket::IP'        => 'cpan',
+    'IO::Uncompress::Adapter::Bunzip2'=> 'cpan',
+    'IO::Uncompress::Adapter::Identity'=> 'cpan',
+    'IO::Uncompress::Adapter::Inflate'=> 'cpan',
+    'IO::Uncompress::AnyInflate'=> 'cpan',
+    'IO::Uncompress::AnyUncompress'=> 'cpan',
+    'IO::Uncompress::Base'  => 'cpan',
+    'IO::Uncompress::Bunzip2'=> 'cpan',
+    'IO::Uncompress::Gunzip'=> 'cpan',
+    'IO::Uncompress::Inflate'=> 'cpan',
+    'IO::Uncompress::RawInflate'=> 'cpan',
+    'IO::Uncompress::Unzip' => 'cpan',
+    'IO::Zlib'              => 'cpan',
+    'IPC::Cmd'              => 'cpan',
+    'IPC::Msg'              => 'cpan',
+    'IPC::Semaphore'        => 'cpan',
+    'IPC::SharedMem'        => 'cpan',
+    'IPC::SysV'             => 'cpan',
+    'JSON::PP'              => 'cpan',
+    'JSON::PP::Boolean'     => 'cpan',
+    'List::Util'            => 'cpan',
+    'List::Util::XS'        => 'cpan',
+    'Locale::Codes'         => 'cpan',
+    'Locale::Codes::Constants'=> 'cpan',
+    'Locale::Codes::Country'=> 'cpan',
+    'Locale::Codes::Country_Codes'=> 'cpan',
+    'Locale::Codes::Country_Retired'=> 'cpan',
+    'Locale::Codes::Currency'=> 'cpan',
+    'Locale::Codes::Currency_Codes'=> 'cpan',
+    'Locale::Codes::Currency_Retired'=> 'cpan',
+    'Locale::Codes::LangExt'=> 'cpan',
+    'Locale::Codes::LangExt_Codes'=> 'cpan',
+    'Locale::Codes::LangExt_Retired'=> 'cpan',
+    'Locale::Codes::LangFam'=> 'cpan',
+    'Locale::Codes::LangFam_Codes'=> 'cpan',
+    'Locale::Codes::LangFam_Retired'=> 'cpan',
+    'Locale::Codes::LangVar'=> 'cpan',
+    'Locale::Codes::LangVar_Codes'=> 'cpan',
+    'Locale::Codes::LangVar_Retired'=> 'cpan',
+    'Locale::Codes::Language'=> 'cpan',
+    'Locale::Codes::Language_Codes'=> 'cpan',
+    'Locale::Codes::Language_Retired'=> 'cpan',
+    'Locale::Codes::Script' => 'cpan',
+    'Locale::Codes::Script_Codes'=> 'cpan',
+    'Locale::Codes::Script_Retired'=> 'cpan',
+    'Locale::Country'       => 'cpan',
+    'Locale::Currency'      => 'cpan',
+    'Locale::Language'      => 'cpan',
+    'Locale::Maketext::Simple'=> 'cpan',
+    'Locale::Script'        => 'cpan',
+    'MIME::Base64'          => 'cpan',
+    'MIME::QuotedPrint'     => 'cpan',
+    'Math::BigFloat'        => 'cpan',
+    'Math::BigFloat::Trace' => 'cpan',
+    'Math::BigInt'          => 'cpan',
+    'Math::BigInt::Calc'    => 'cpan',
+    'Math::BigInt::CalcEmu' => 'cpan',
+    'Math::BigInt::FastCalc'=> 'cpan',
+    'Math::BigInt::Trace'   => 'cpan',
+    'Math::BigRat'          => 'cpan',
+    'Math::Complex'         => 'cpan',
+    'Math::Trig'            => 'cpan',
+    'Memoize'               => 'cpan',
+    'Memoize::AnyDBM_File'  => 'cpan',
+    'Memoize::Expire'       => 'cpan',
+    'Memoize::ExpireFile'   => 'cpan',
+    'Memoize::ExpireTest'   => 'cpan',
+    'Memoize::NDBM_File'    => 'cpan',
+    'Memoize::SDBM_File'    => 'cpan',
+    'Memoize::Storable'     => 'cpan',
+    'Module::Load'          => 'cpan',
+    'Module::Load::Conditional'=> 'cpan',
+    'Module::Loaded'        => 'cpan',
+    'Module::Metadata'      => 'cpan',
+    'Module::Metadata::corpus::BOMTest::UTF16BE'=> 'cpan',
+    'Module::Metadata::corpus::BOMTest::UTF16LE'=> 'cpan',
+    'Module::Metadata::corpus::BOMTest::UTF8'=> 'cpan',
+    'NEXT'                  => 'cpan',
+    'Net::Cmd'              => 'cpan',
+    'Net::Config'           => 'cpan',
+    'Net::Domain'           => 'cpan',
+    'Net::FTP'              => 'cpan',
+    'Net::FTP::A'           => 'cpan',
+    'Net::FTP::E'           => 'cpan',
+    'Net::FTP::I'           => 'cpan',
+    'Net::FTP::L'           => 'cpan',
+    'Net::FTP::dataconn'    => 'cpan',
+    'Net::NNTP'             => 'cpan',
+    'Net::Netrc'            => 'cpan',
+    'Net::POP3'             => 'cpan',
+    'Net::SMTP'             => 'cpan',
+    'Net::Time'             => 'cpan',
+    'Params::Check'         => 'cpan',
+    'Parse::CPAN::Meta'     => 'cpan',
+    'Perl::OSType'          => 'cpan',
+    'PerlIO::via::QuotedPrint'=> 'cpan',
+    'Pod::Checker'          => 'cpan',
+    'Pod::Escapes'          => 'cpan',
+    'Pod::Find'             => 'cpan',
+    'Pod::InputObjects'     => 'cpan',
+    'Pod::Man'              => 'cpan',
+    'Pod::ParseLink'        => 'cpan',
+    'Pod::ParseUtils'       => 'cpan',
+    'Pod::Parser'           => 'cpan',
+    'Pod::Perldoc'          => 'cpan',
+    'Pod::Perldoc::BaseTo'  => 'cpan',
+    'Pod::Perldoc::GetOptsOO'=> 'cpan',
+    'Pod::Perldoc::ToANSI'  => 'cpan',
+    'Pod::Perldoc::ToChecker'=> 'cpan',
+    'Pod::Perldoc::ToMan'   => 'cpan',
+    'Pod::Perldoc::ToNroff' => 'cpan',
+    'Pod::Perldoc::ToPod'   => 'cpan',
+    'Pod::Perldoc::ToRtf'   => 'cpan',
+    'Pod::Perldoc::ToTerm'  => 'cpan',
+    'Pod::Perldoc::ToText'  => 'cpan',
+    'Pod::Perldoc::ToTk'    => 'cpan',
+    'Pod::Perldoc::ToXml'   => 'cpan',
+    'Pod::PlainText'        => 'cpan',
+    'Pod::Select'           => 'cpan',
+    'Pod::Simple'           => 'cpan',
+    'Pod::Simple::BlackBox' => 'cpan',
+    'Pod::Simple::Checker'  => 'cpan',
+    'Pod::Simple::Debug'    => 'cpan',
+    'Pod::Simple::DumpAsText'=> 'cpan',
+    'Pod::Simple::DumpAsXML'=> 'cpan',
+    'Pod::Simple::HTML'     => 'cpan',
+    'Pod::Simple::HTMLBatch'=> 'cpan',
+    'Pod::Simple::HTMLLegacy'=> 'cpan',
+    'Pod::Simple::LinkSection'=> 'cpan',
+    'Pod::Simple::Methody'  => 'cpan',
+    'Pod::Simple::Progress' => 'cpan',
+    'Pod::Simple::PullParser'=> 'cpan',
+    'Pod::Simple::PullParserEndToken'=> 'cpan',
+    'Pod::Simple::PullParserStartToken'=> 'cpan',
+    'Pod::Simple::PullParserTextToken'=> 'cpan',
+    'Pod::Simple::PullParserToken'=> 'cpan',
+    'Pod::Simple::RTF'      => 'cpan',
+    'Pod::Simple::Search'   => 'cpan',
+    'Pod::Simple::SimpleTree'=> 'cpan',
+    'Pod::Simple::Text'     => 'cpan',
+    'Pod::Simple::TextContent'=> 'cpan',
+    'Pod::Simple::TiedOutFH'=> 'cpan',
+    'Pod::Simple::Transcode'=> 'cpan',
+    'Pod::Simple::TranscodeDumb'=> 'cpan',
+    'Pod::Simple::TranscodeSmart'=> 'cpan',
+    'Pod::Simple::XHTML'    => 'cpan',
+    'Pod::Simple::XMLOutStream'=> 'cpan',
+    'Pod::Text'             => 'cpan',
+    'Pod::Text::Color'      => 'cpan',
+    'Pod::Text::Overstrike' => 'cpan',
+    'Pod::Text::Termcap'    => 'cpan',
+    'Pod::Usage'            => 'cpan',
+    'Scalar::Util'          => 'cpan',
+    'Socket'                => 'cpan',
+    'Sub::Util'             => 'cpan',
+    'Sys::Syslog'           => 'cpan',
+    'Sys::Syslog::Win32'    => 'cpan',
+    'TAP::Base'             => 'cpan',
+    'TAP::Formatter::Base'  => 'cpan',
+    'TAP::Formatter::Color' => 'cpan',
+    'TAP::Formatter::Console'=> 'cpan',
+    'TAP::Formatter::Console::ParallelSession'=> 'cpan',
+    'TAP::Formatter::Console::Session'=> 'cpan',
+    'TAP::Formatter::File'  => 'cpan',
+    'TAP::Formatter::File::Session'=> 'cpan',
+    'TAP::Formatter::Session'=> 'cpan',
+    'TAP::Harness'          => 'cpan',
+    'TAP::Harness::Env'     => 'cpan',
+    'TAP::Object'           => 'cpan',
+    'TAP::Parser'           => 'cpan',
+    'TAP::Parser::Aggregator'=> 'cpan',
+    'TAP::Parser::Grammar'  => 'cpan',
+    'TAP::Parser::Iterator' => 'cpan',
+    'TAP::Parser::Iterator::Array'=> 'cpan',
+    'TAP::Parser::Iterator::Process'=> 'cpan',
+    'TAP::Parser::Iterator::Stream'=> 'cpan',
+    'TAP::Parser::IteratorFactory'=> 'cpan',
+    'TAP::Parser::Multiplexer'=> 'cpan',
+    'TAP::Parser::Result'   => 'cpan',
+    'TAP::Parser::Result::Bailout'=> 'cpan',
+    'TAP::Parser::Result::Comment'=> 'cpan',
+    'TAP::Parser::Result::Plan'=> 'cpan',
+    'TAP::Parser::Result::Pragma'=> 'cpan',
+    'TAP::Parser::Result::Test'=> 'cpan',
+    'TAP::Parser::Result::Unknown'=> 'cpan',
+    'TAP::Parser::Result::Version'=> 'cpan',
+    'TAP::Parser::Result::YAML'=> 'cpan',
+    'TAP::Parser::ResultFactory'=> 'cpan',
+    'TAP::Parser::Scheduler'=> 'cpan',
+    'TAP::Parser::Scheduler::Job'=> 'cpan',
+    'TAP::Parser::Scheduler::Spinner'=> 'cpan',
+    'TAP::Parser::Source'   => 'cpan',
+    'TAP::Parser::SourceHandler'=> 'cpan',
+    'TAP::Parser::SourceHandler::Executable'=> 'cpan',
+    'TAP::Parser::SourceHandler::File'=> 'cpan',
+    'TAP::Parser::SourceHandler::Handle'=> 'cpan',
+    'TAP::Parser::SourceHandler::Perl'=> 'cpan',
+    'TAP::Parser::SourceHandler::RawTAP'=> 'cpan',
+    'TAP::Parser::YAMLish::Reader'=> 'cpan',
+    'TAP::Parser::YAMLish::Writer'=> 'cpan',
+    'Term::ANSIColor'       => 'cpan',
+    'Term::Cap'             => 'cpan',
+    'Test::Builder'         => 'cpan',
+    'Test::Builder::IO::Scalar'=> 'cpan',
+    'Test::Builder::Module' => 'cpan',
+    'Test::Builder::Tester' => 'cpan',
+    'Test::Builder::Tester::Color'=> 'cpan',
+    'Test::Harness'         => 'cpan',
+    'Test::More'            => 'cpan',
+    'Test::Simple'          => 'cpan',
+    'Test::Tester'          => 'cpan',
+    'Test::Tester::Capture' => 'cpan',
+    'Test::Tester::CaptureRunner'=> 'cpan',
+    'Test::Tester::Delegate'=> 'cpan',
+    'Test::use::ok'         => 'cpan',
+    'Text::Balanced'        => 'cpan',
+    'Text::ParseWords'      => 'cpan',
+    'Text::Tabs'            => 'cpan',
+    'Text::Wrap'            => 'cpan',
+    'Tie::RefHash'          => 'cpan',
+    'Time::Local'           => 'cpan',
+    'Time::Piece'           => 'cpan',
+    'Time::Seconds'         => 'cpan',
+    'Unicode::Collate'      => 'cpan',
+    'Unicode::Collate::CJK::Big5'=> 'cpan',
+    'Unicode::Collate::CJK::GB2312'=> 'cpan',
+    'Unicode::Collate::CJK::JISX0208'=> 'cpan',
+    'Unicode::Collate::CJK::Korean'=> 'cpan',
+    'Unicode::Collate::CJK::Pinyin'=> 'cpan',
+    'Unicode::Collate::CJK::Stroke'=> 'cpan',
+    'Unicode::Collate::CJK::Zhuyin'=> 'cpan',
+    'Unicode::Collate::Locale'=> 'cpan',
+    'Unicode::Normalize'    => 'cpan',
+    'Win32'                 => 'cpan',
+    'Win32API::File'        => 'cpan',
+    'Win32API::File::inc::ExtUtils::Myconst2perl'=> 'cpan',
+    'autodie'               => 'cpan',
+    'autodie::Scope::Guard' => 'cpan',
+    'autodie::Scope::GuardStack'=> 'cpan',
+    'autodie::Util'         => 'cpan',
+    'autodie::exception'    => 'cpan',
+    'autodie::exception::system'=> 'cpan',
+    'autodie::hints'        => 'cpan',
+    'autodie::skip'         => 'cpan',
+    'bigint'                => 'cpan',
+    'bignum'                => 'cpan',
+    'bigrat'                => 'cpan',
+    'encoding'              => 'cpan',
+    'experimental'          => 'cpan',
+    'ok'                    => 'cpan',
+    'parent'                => 'cpan',
+    'perlfaq'               => 'cpan',
+    'version'               => 'cpan',
+    'version::regex'        => 'cpan',
+);
+
+%bug_tracker = (
+    'App::Cpan'             => undef,
+    'App::Prove'            => 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'App::Prove::State'     => 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'App::Prove::State::Result'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'App::Prove::State::Result::Test'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'Archive::Tar'          => undef,
+    'Archive::Tar::Constant'=> undef,
+    'Archive::Tar::File'    => undef,
+    'B::Debug'              => undef,
+    'CPAN'                  => undef,
+    'CPAN::Author'          => undef,
+    'CPAN::Bundle'          => undef,
+    'CPAN::CacheMgr'        => undef,
+    'CPAN::Complete'        => undef,
+    'CPAN::Debug'           => undef,
+    'CPAN::DeferredCode'    => undef,
+    'CPAN::Distribution'    => undef,
+    'CPAN::Distroprefs'     => undef,
+    'CPAN::Distrostatus'    => undef,
+    'CPAN::Exception::RecursiveDependency'=> undef,
+    'CPAN::Exception::blocked_urllist'=> undef,
+    'CPAN::Exception::yaml_not_installed'=> undef,
+    'CPAN::Exception::yaml_process_error'=> undef,
+    'CPAN::FTP'             => undef,
+    'CPAN::FTP::netrc'      => undef,
+    'CPAN::FirstTime'       => undef,
+    'CPAN::HTTP::Client'    => undef,
+    'CPAN::HTTP::Credentials'=> undef,
+    'CPAN::HandleConfig'    => undef,
+    'CPAN::Index'           => undef,
+    'CPAN::InfoObj'         => undef,
+    'CPAN::Kwalify'         => undef,
+    'CPAN::LWP::UserAgent'  => undef,
+    'CPAN::Meta'            => 'https://github.com/Perl-Toolchain-Gang/CPAN-Meta/issues',
+    'CPAN::Meta::Converter' => 'https://github.com/Perl-Toolchain-Gang/CPAN-Meta/issues',
+    'CPAN::Meta::Feature'   => 'https://github.com/Perl-Toolchain-Gang/CPAN-Meta/issues',
+    'CPAN::Meta::History'   => 'https://github.com/Perl-Toolchain-Gang/CPAN-Meta/issues',
+    'CPAN::Meta::Merge'     => 'https://github.com/Perl-Toolchain-Gang/CPAN-Meta/issues',
+    'CPAN::Meta::Prereqs'   => 'https://github.com/Perl-Toolchain-Gang/CPAN-Meta/issues',
+    'CPAN::Meta::Requirements'=> 'https://github.com/Perl-Toolchain-Gang/CPAN-Meta-Requirements/issues',
+    'CPAN::Meta::Spec'      => 'https://github.com/Perl-Toolchain-Gang/CPAN-Meta/issues',
+    'CPAN::Meta::Validator' => 'https://github.com/Perl-Toolchain-Gang/CPAN-Meta/issues',
+    'CPAN::Meta::YAML'      => 'https://github.com/Perl-Toolchain-Gang/YAML-Tiny/issues',
+    'CPAN::Mirrors'         => undef,
+    'CPAN::Module'          => undef,
+    'CPAN::Nox'             => undef,
+    'CPAN::Plugin'          => undef,
+    'CPAN::Plugin::Specfile'=> undef,
+    'CPAN::Prompt'          => undef,
+    'CPAN::Queue'           => undef,
+    'CPAN::Shell'           => undef,
+    'CPAN::Tarzip'          => undef,
+    'CPAN::URL'             => undef,
+    'CPAN::Version'         => undef,
+    'Compress::Raw::Bzip2'  => undef,
+    'Compress::Raw::Zlib'   => undef,
+    'Compress::Zlib'        => undef,
+    'Config::Perl::V'       => undef,
+    'DB_File'               => undef,
+    'Devel::PPPort'         => 'https://github.com/mhx/Devel-PPPort/issues/',
+    'Digest'                => undef,
+    'Digest::MD5'           => undef,
+    'Digest::SHA'           => undef,
+    'Digest::base'          => undef,
+    'Digest::file'          => undef,
+    'Encode'                => undef,
+    'Encode::Alias'         => undef,
+    'Encode::Byte'          => undef,
+    'Encode::CJKConstants'  => undef,
+    'Encode::CN'            => undef,
+    'Encode::CN::HZ'        => undef,
+    'Encode::Config'        => undef,
+    'Encode::EBCDIC'        => undef,
+    'Encode::Encoder'       => undef,
+    'Encode::Encoding'      => undef,
+    'Encode::GSM0338'       => undef,
+    'Encode::Guess'         => undef,
+    'Encode::JP'            => undef,
+    'Encode::JP::H2Z'       => undef,
+    'Encode::JP::JIS7'      => undef,
+    'Encode::KR'            => undef,
+    'Encode::KR::2022_KR'   => undef,
+    'Encode::MIME::Header'  => undef,
+    'Encode::MIME::Header::ISO_2022_JP'=> undef,
+    'Encode::MIME::Name'    => undef,
+    'Encode::Symbol'        => undef,
+    'Encode::TW'            => undef,
+    'Encode::Unicode'       => undef,
+    'Encode::Unicode::UTF7' => undef,
+    'ExtUtils::Command'     => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker',
+    'ExtUtils::Command::MM' => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker',
+    'ExtUtils::Constant'    => undef,
+    'ExtUtils::Constant::Base'=> undef,
+    'ExtUtils::Constant::ProxySubs'=> undef,
+    'ExtUtils::Constant::Utils'=> undef,
+    'ExtUtils::Constant::XS'=> undef,
+    'ExtUtils::Install'     => 'https://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-Install',
+    'ExtUtils::Installed'   => 'https://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-Install',
+    'ExtUtils::Liblist'     => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker',
+    'ExtUtils::Liblist::Kid'=> 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker',
+    'ExtUtils::MM'          => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker',
+    'ExtUtils::MM_AIX'      => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker',
+    'ExtUtils::MM_Any'      => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker',
+    'ExtUtils::MM_BeOS'     => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker',
+    'ExtUtils::MM_Cygwin'   => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker',
+    'ExtUtils::MM_DOS'      => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker',
+    'ExtUtils::MM_Darwin'   => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker',
+    'ExtUtils::MM_MacOS'    => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker',
+    'ExtUtils::MM_NW5'      => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker',
+    'ExtUtils::MM_OS2'      => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker',
+    'ExtUtils::MM_QNX'      => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker',
+    'ExtUtils::MM_UWIN'     => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker',
+    'ExtUtils::MM_Unix'     => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker',
+    'ExtUtils::MM_VMS'      => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker',
+    'ExtUtils::MM_VOS'      => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker',
+    'ExtUtils::MM_Win32'    => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker',
+    'ExtUtils::MM_Win95'    => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker',
+    'ExtUtils::MY'          => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker',
+    'ExtUtils::MakeMaker'   => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker',
+    'ExtUtils::MakeMaker::Config'=> 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker',
+    'ExtUtils::MakeMaker::Locale'=> 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker',
+    'ExtUtils::MakeMaker::version'=> 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker',
+    'ExtUtils::MakeMaker::version::regex'=> 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker',
+    'ExtUtils::Manifest'    => 'http://github.com/Perl-Toolchain-Gang/ExtUtils-Manifest/issues',
+    'ExtUtils::Mkbootstrap' => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker',
+    'ExtUtils::Mksymlists'  => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker',
+    'ExtUtils::Packlist'    => 'https://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-Install',
+    'ExtUtils::testlib'     => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=ExtUtils-MakeMaker',
+    'Fatal'                 => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=autodie',
+    'File::Fetch'           => undef,
+    'File::GlobMapper'      => undef,
+    'File::Path'            => undef,
+    'File::Temp'            => 'http://rt.cpan.org/Public/Dist/Display.html?Name=File-Temp',
+    'Filter::Util::Call'    => undef,
+    'Getopt::Long'          => undef,
+    'HTTP::Tiny'            => 'https://github.com/chansen/p5-http-tiny/issues',
+    'IO::Compress::Adapter::Bzip2'=> undef,
+    'IO::Compress::Adapter::Deflate'=> undef,
+    'IO::Compress::Adapter::Identity'=> undef,
+    'IO::Compress::Base'    => undef,
+    'IO::Compress::Base::Common'=> undef,
+    'IO::Compress::Bzip2'   => undef,
+    'IO::Compress::Deflate' => undef,
+    'IO::Compress::Gzip'    => undef,
+    'IO::Compress::Gzip::Constants'=> undef,
+    'IO::Compress::RawDeflate'=> undef,
+    'IO::Compress::Zip'     => undef,
+    'IO::Compress::Zip::Constants'=> undef,
+    'IO::Compress::Zlib::Constants'=> undef,
+    'IO::Compress::Zlib::Extra'=> undef,
+    'IO::Socket::IP'        => undef,
+    'IO::Uncompress::Adapter::Bunzip2'=> undef,
+    'IO::Uncompress::Adapter::Identity'=> undef,
+    'IO::Uncompress::Adapter::Inflate'=> undef,
+    'IO::Uncompress::AnyInflate'=> undef,
+    'IO::Uncompress::AnyUncompress'=> undef,
+    'IO::Uncompress::Base'  => undef,
+    'IO::Uncompress::Bunzip2'=> undef,
+    'IO::Uncompress::Gunzip'=> undef,
+    'IO::Uncompress::Inflate'=> undef,
+    'IO::Uncompress::RawInflate'=> undef,
+    'IO::Uncompress::Unzip' => undef,
+    'IO::Zlib'              => undef,
+    'IPC::Cmd'              => undef,
+    'IPC::Msg'              => undef,
+    'IPC::Semaphore'        => undef,
+    'IPC::SharedMem'        => undef,
+    'IPC::SysV'             => undef,
+    'JSON::PP'              => undef,
+    'JSON::PP::Boolean'     => undef,
+    'List::Util'            => 'https://rt.cpan.org/Public/Dist/Display.html?Name=Scalar-List-Utils',
+    'List::Util::XS'        => 'https://rt.cpan.org/Public/Dist/Display.html?Name=Scalar-List-Utils',
+    'Locale::Codes'         => undef,
+    'Locale::Codes::Constants'=> undef,
+    'Locale::Codes::Country'=> undef,
+    'Locale::Codes::Country_Codes'=> undef,
+    'Locale::Codes::Country_Retired'=> undef,
+    'Locale::Codes::Currency'=> undef,
+    'Locale::Codes::Currency_Codes'=> undef,
+    'Locale::Codes::Currency_Retired'=> undef,
+    'Locale::Codes::LangExt'=> undef,
+    'Locale::Codes::LangExt_Codes'=> undef,
+    'Locale::Codes::LangExt_Retired'=> undef,
+    'Locale::Codes::LangFam'=> undef,
+    'Locale::Codes::LangFam_Codes'=> undef,
+    'Locale::Codes::LangFam_Retired'=> undef,
+    'Locale::Codes::LangVar'=> undef,
+    'Locale::Codes::LangVar_Codes'=> undef,
+    'Locale::Codes::LangVar_Retired'=> undef,
+    'Locale::Codes::Language'=> undef,
+    'Locale::Codes::Language_Codes'=> undef,
+    'Locale::Codes::Language_Retired'=> undef,
+    'Locale::Codes::Script' => undef,
+    'Locale::Codes::Script_Codes'=> undef,
+    'Locale::Codes::Script_Retired'=> undef,
+    'Locale::Country'       => undef,
+    'Locale::Currency'      => undef,
+    'Locale::Language'      => undef,
+    'Locale::Maketext::Simple'=> undef,
+    'Locale::Script'        => undef,
+    'MIME::Base64'          => undef,
+    'MIME::QuotedPrint'     => undef,
+    'Math::BigFloat'        => undef,
+    'Math::BigFloat::Trace' => undef,
+    'Math::BigInt'          => undef,
+    'Math::BigInt::Calc'    => undef,
+    'Math::BigInt::CalcEmu' => undef,
+    'Math::BigInt::FastCalc'=> undef,
+    'Math::BigInt::Trace'   => undef,
+    'Math::BigRat'          => undef,
+    'Math::Complex'         => undef,
+    'Math::Trig'            => undef,
+    'Memoize'               => undef,
+    'Memoize::AnyDBM_File'  => undef,
+    'Memoize::Expire'       => undef,
+    'Memoize::ExpireFile'   => undef,
+    'Memoize::ExpireTest'   => undef,
+    'Memoize::NDBM_File'    => undef,
+    'Memoize::SDBM_File'    => undef,
+    'Memoize::Storable'     => undef,
+    'Module::Load'          => undef,
+    'Module::Load::Conditional'=> undef,
+    'Module::Loaded'        => undef,
+    'Module::Metadata'      => 'https://rt.cpan.org/Public/Dist/Display.html?Name=Module-Metadata',
+    'Module::Metadata::corpus::BOMTest::UTF16BE'=> undef,
+    'Module::Metadata::corpus::BOMTest::UTF16LE'=> undef,
+    'Module::Metadata::corpus::BOMTest::UTF8'=> undef,
+    'NEXT'                  => undef,
+    'Net::Cmd'              => undef,
+    'Net::Config'           => undef,
+    'Net::Domain'           => undef,
+    'Net::FTP'              => undef,
+    'Net::FTP::A'           => undef,
+    'Net::FTP::E'           => undef,
+    'Net::FTP::I'           => undef,
+    'Net::FTP::L'           => undef,
+    'Net::FTP::dataconn'    => undef,
+    'Net::NNTP'             => undef,
+    'Net::Netrc'            => undef,
+    'Net::POP3'             => undef,
+    'Net::SMTP'             => undef,
+    'Net::Time'             => undef,
+    'Params::Check'         => undef,
+    'Parse::CPAN::Meta'     => 'https://github.com/Perl-Toolchain-Gang/CPAN-Meta/issues',
+    'Perl::OSType'          => 'https://github.com/Perl-Toolchain-Gang/Perl-OSType/issues',
+    'PerlIO::via::QuotedPrint'=> undef,
+    'Pod::Checker'          => undef,
+    'Pod::Escapes'          => undef,
+    'Pod::Find'             => undef,
+    'Pod::InputObjects'     => undef,
+    'Pod::Man'              => 'https://rt.cpan.org/Dist/Display.html?Name=podlators',
+    'Pod::ParseLink'        => 'https://rt.cpan.org/Dist/Display.html?Name=podlators',
+    'Pod::ParseUtils'       => undef,
+    'Pod::Parser'           => undef,
+    'Pod::Perldoc'          => undef,
+    'Pod::Perldoc::BaseTo'  => undef,
+    'Pod::Perldoc::GetOptsOO'=> undef,
+    'Pod::Perldoc::ToANSI'  => undef,
+    'Pod::Perldoc::ToChecker'=> undef,
+    'Pod::Perldoc::ToMan'   => undef,
+    'Pod::Perldoc::ToNroff' => undef,
+    'Pod::Perldoc::ToPod'   => undef,
+    'Pod::Perldoc::ToRtf'   => undef,
+    'Pod::Perldoc::ToTerm'  => undef,
+    'Pod::Perldoc::ToText'  => undef,
+    'Pod::Perldoc::ToTk'    => undef,
+    'Pod::Perldoc::ToXml'   => undef,
+    'Pod::PlainText'        => undef,
+    'Pod::Select'           => undef,
+    'Pod::Simple'           => 'https://github.com/perl-pod/pod-simple/issues',
+    'Pod::Simple::BlackBox' => 'https://github.com/perl-pod/pod-simple/issues',
+    'Pod::Simple::Checker'  => 'https://github.com/perl-pod/pod-simple/issues',
+    'Pod::Simple::Debug'    => 'https://github.com/perl-pod/pod-simple/issues',
+    'Pod::Simple::DumpAsText'=> 'https://github.com/perl-pod/pod-simple/issues',
+    'Pod::Simple::DumpAsXML'=> 'https://github.com/perl-pod/pod-simple/issues',
+    'Pod::Simple::HTML'     => 'https://github.com/perl-pod/pod-simple/issues',
+    'Pod::Simple::HTMLBatch'=> 'https://github.com/perl-pod/pod-simple/issues',
+    'Pod::Simple::HTMLLegacy'=> 'https://github.com/perl-pod/pod-simple/issues',
+    'Pod::Simple::LinkSection'=> 'https://github.com/perl-pod/pod-simple/issues',
+    'Pod::Simple::Methody'  => 'https://github.com/perl-pod/pod-simple/issues',
+    'Pod::Simple::Progress' => 'https://github.com/perl-pod/pod-simple/issues',
+    'Pod::Simple::PullParser'=> 'https://github.com/perl-pod/pod-simple/issues',
+    'Pod::Simple::PullParserEndToken'=> 'https://github.com/perl-pod/pod-simple/issues',
+    'Pod::Simple::PullParserStartToken'=> 'https://github.com/perl-pod/pod-simple/issues',
+    'Pod::Simple::PullParserTextToken'=> 'https://github.com/perl-pod/pod-simple/issues',
+    'Pod::Simple::PullParserToken'=> 'https://github.com/perl-pod/pod-simple/issues',
+    'Pod::Simple::RTF'      => 'https://github.com/perl-pod/pod-simple/issues',
+    'Pod::Simple::Search'   => 'https://github.com/perl-pod/pod-simple/issues',
+    'Pod::Simple::SimpleTree'=> 'https://github.com/perl-pod/pod-simple/issues',
+    'Pod::Simple::Text'     => 'https://github.com/perl-pod/pod-simple/issues',
+    'Pod::Simple::TextContent'=> 'https://github.com/perl-pod/pod-simple/issues',
+    'Pod::Simple::TiedOutFH'=> 'https://github.com/perl-pod/pod-simple/issues',
+    'Pod::Simple::Transcode'=> 'https://github.com/perl-pod/pod-simple/issues',
+    'Pod::Simple::TranscodeDumb'=> 'https://github.com/perl-pod/pod-simple/issues',
+    'Pod::Simple::TranscodeSmart'=> 'https://github.com/perl-pod/pod-simple/issues',
+    'Pod::Simple::XHTML'    => 'https://github.com/perl-pod/pod-simple/issues',
+    'Pod::Simple::XMLOutStream'=> 'https://github.com/perl-pod/pod-simple/issues',
+    'Pod::Text'             => 'https://rt.cpan.org/Dist/Display.html?Name=podlators',
+    'Pod::Text::Color'      => 'https://rt.cpan.org/Dist/Display.html?Name=podlators',
+    'Pod::Text::Overstrike' => 'https://rt.cpan.org/Dist/Display.html?Name=podlators',
+    'Pod::Text::Termcap'    => 'https://rt.cpan.org/Dist/Display.html?Name=podlators',
+    'Pod::Usage'            => undef,
+    'Scalar::Util'          => 'https://rt.cpan.org/Public/Dist/Display.html?Name=Scalar-List-Utils',
+    'Socket'                => undef,
+    'Sub::Util'             => 'https://rt.cpan.org/Public/Dist/Display.html?Name=Scalar-List-Utils',
+    'Sys::Syslog'           => undef,
+    'Sys::Syslog::Win32'    => undef,
+    'TAP::Base'             => 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Formatter::Base'  => 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Formatter::Color' => 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Formatter::Console'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Formatter::Console::ParallelSession'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Formatter::Console::Session'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Formatter::File'  => 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Formatter::File::Session'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Formatter::Session'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Harness'          => 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Harness::Env'     => 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Object'           => 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Parser'           => 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Parser::Aggregator'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Parser::Grammar'  => 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Parser::Iterator' => 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Parser::Iterator::Array'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Parser::Iterator::Process'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Parser::Iterator::Stream'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Parser::IteratorFactory'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Parser::Multiplexer'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Parser::Result'   => 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Parser::Result::Bailout'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Parser::Result::Comment'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Parser::Result::Plan'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Parser::Result::Pragma'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Parser::Result::Test'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Parser::Result::Unknown'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Parser::Result::Version'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Parser::Result::YAML'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Parser::ResultFactory'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Parser::Scheduler'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Parser::Scheduler::Job'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Parser::Scheduler::Spinner'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Parser::Source'   => 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Parser::SourceHandler'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Parser::SourceHandler::Executable'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Parser::SourceHandler::File'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Parser::SourceHandler::Handle'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Parser::SourceHandler::Perl'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Parser::SourceHandler::RawTAP'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Parser::YAMLish::Reader'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'TAP::Parser::YAMLish::Writer'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'Term::ANSIColor'       => 'https://rt.cpan.org/Dist/Display.html?Name=Term-ANSIColor',
+    'Term::Cap'             => undef,
+    'Test::Builder'         => 'http://github.com/Test-More/test-more/issues',
+    'Test::Builder::IO::Scalar'=> 'http://github.com/Test-More/test-more/issues',
+    'Test::Builder::Module' => 'http://github.com/Test-More/test-more/issues',
+    'Test::Builder::Tester' => 'http://github.com/Test-More/test-more/issues',
+    'Test::Builder::Tester::Color'=> 'http://github.com/Test-More/test-more/issues',
+    'Test::Harness'         => 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness',
+    'Test::More'            => 'http://github.com/Test-More/test-more/issues',
+    'Test::Simple'          => 'http://github.com/Test-More/test-more/issues',
+    'Test::Tester'          => 'http://github.com/Test-More/test-more/issues',
+    'Test::Tester::Capture' => 'http://github.com/Test-More/test-more/issues',
+    'Test::Tester::CaptureRunner'=> 'http://github.com/Test-More/test-more/issues',
+    'Test::Tester::Delegate'=> 'http://github.com/Test-More/test-more/issues',
+    'Test::use::ok'         => 'http://github.com/Test-More/test-more/issues',
+    'Text::Balanced'        => undef,
+    'Text::ParseWords'      => undef,
+    'Text::Tabs'            => undef,
+    'Text::Wrap'            => undef,
+    'Tie::RefHash'          => undef,
+    'Time::Local'           => 'https://github.com/houseabsolute/Time-Local/issues',
+    'Time::Piece'           => undef,
+    'Time::Seconds'         => undef,
+    'Unicode::Collate'      => undef,
+    'Unicode::Collate::CJK::Big5'=> undef,
+    'Unicode::Collate::CJK::GB2312'=> undef,
+    'Unicode::Collate::CJK::JISX0208'=> undef,
+    'Unicode::Collate::CJK::Korean'=> undef,
+    'Unicode::Collate::CJK::Pinyin'=> undef,
+    'Unicode::Collate::CJK::Stroke'=> undef,
+    'Unicode::Collate::CJK::Zhuyin'=> undef,
+    'Unicode::Collate::Locale'=> undef,
+    'Unicode::Normalize'    => 'https://rt.cpan.org/Public/Dist/Display.html?Name=Unicode-Normalize',
+    'Win32'                 => undef,
+    'Win32API::File'        => undef,
+    'Win32API::File::inc::ExtUtils::Myconst2perl'=> undef,
+    'autodie'               => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=autodie',
+    'autodie::Scope::Guard' => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=autodie',
+    'autodie::Scope::GuardStack'=> 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=autodie',
+    'autodie::Util'         => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=autodie',
+    'autodie::exception'    => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=autodie',
+    'autodie::exception::system'=> 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=autodie',
+    'autodie::hints'        => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=autodie',
+    'autodie::skip'         => 'http://rt.cpan.org/NoAuth/Bugs.html?Dist=autodie',
+    'bigint'                => undef,
+    'bignum'                => undef,
+    'bigrat'                => undef,
+    'encoding'              => undef,
+    'experimental'          => 'http://rt.cpan.org/Public/Dist/Display.html?Name=experimental',
+    'ok'                    => 'http://github.com/Test-More/test-more/issues',
+    'parent'                => undef,
+    'perlfaq'               => 'https://github.com/perl-doc-cats/perlfaq/issues',
+    'version'               => 'https://rt.cpan.org/Public/Dist/Display.html?Name=version',
+    'version::regex'        => 'https://rt.cpan.org/Public/Dist/Display.html?Name=version',
+);
+
+# Create aliases with trailing zeros for $] use
+
+$released{'5.000'} = $released{5};
+$version{'5.000'} = $version{5};
+
+_create_aliases(\%delta);
+_create_aliases(\%released);
+_create_aliases(\%version);
+_create_aliases(\%deprecated);
+
+sub _create_aliases {
+    my ($hash) = @_;
+
+    for my $version (keys %$hash) {
+        next unless $version >= 5.006;
+
+        my $padded = sprintf "%0.6f", $version;
+
+        # If the version in string form isn't the same as the numeric version,
+        # alias it.
+        if ($padded ne $version && $version == $padded) {
+            $hash->{$padded} = $hash->{$version};
+        }
+    }
+}
+
+1;
+__END__
diff --git a/lib/5.24.1/Module/CoreList.pod b/lib/5.24.1/Module/CoreList.pod
new file mode 100644
index 00000000..0ab1f611
--- /dev/null
+++ b/lib/5.24.1/Module/CoreList.pod
@@ -0,0 +1,259 @@
+=head1 NAME
+
+Module::CoreList - what modules shipped with versions of perl
+
+=head1 SYNOPSIS
+
+ use Module::CoreList;
+
+ print $Module::CoreList::version{5.00503}{CPAN}; # prints 1.48
+
+ print Module::CoreList->first_release('File::Spec');
+ # prints 5.00405
+
+ print Module::CoreList->first_release_by_date('File::Spec');
+ # prints 5.005
+
+ print Module::CoreList->first_release('File::Spec', 0.82);
+ # prints 5.006001
+
+ if (Module::CoreList::is_core('File::Spec')) {
+   print "File::Spec is a core module\n";
+ }
+
+ print join ', ', Module::CoreList->find_modules(qr/Data/);
+    # prints 'Data::Dumper'
+ print join ', ',
+          Module::CoreList->find_modules(qr/test::h.*::.*s/i, 5.008008);
+    # prints 'Test::Harness::Assert, Test::Harness::Straps'
+
+ print join ", ", @{ $Module::CoreList::families{5.005} };
+    # prints "5.005, 5.00503, 5.00504"
+
+=head1 DESCRIPTION
+
+Module::CoreList provides information on which core and dual-life modules shipped
+with each version of L<perl>.
+
+It provides a number of mechanisms for querying this information.
+
+There is a utility called L<corelist> provided with this module
+which is a convenient way of querying from the command-line.
+
+There is a functional programming API available for programmers to query
+information.
+
+Programmers may also query the contained hash structures to find relevant
+information.
+
+=head1 FUNCTIONS API
+
+These are the functions that are available, they may either be called as functions or class methods:
+
+  Module::CoreList::first_release('File::Spec'); # as a function
+
+  Module::CoreList->first_release('File::Spec'); # class method
+
+=over
+
+=item C<first_release( MODULE )>
+
+Behaviour since version 2.11
+
+Requires a MODULE name as an argument, returns the perl version when that module first
+appeared in core as ordered by perl version number or undef ( in scalar context )
+or an empty list ( in list context ) if that module is not in core.
+
+=item C<first_release_by_date( MODULE )>
+
+Requires a MODULE name as an argument, returns the perl version when that module first
+appeared in core as ordered by release date or undef ( in scalar context )
+or an empty list ( in list context ) if that module is not in core.
+
+=item C<find_modules( REGEX, [ LIST OF PERLS ] )>
+
+Takes a regex as an argument, returns a list of modules that match the regex given.
+If only a regex is provided applies to all modules in all perl versions. Optionally
+you may provide a list of perl versions to limit the regex search.
+
+=item C<find_version( PERL_VERSION )>
+
+Takes a perl version as an argument. Upon successful completion, returns a
+reference to a hash.  Each element of that hash has a key which is the name of
+a module (I<e.g.,> 'File::Path') shipped with that version of perl and a value
+which is the version number (I<e.g.,> '2.09') of that module which shipped
+with that version of perl .  Returns C<undef> otherwise.
+
+=item C<is_core( MODULE, [ MODULE_VERSION, [ PERL_VERSION ] ] )>
+
+Available in version 2.99 and above.
+
+Returns true if MODULE was bundled with the specified version of Perl.
+You can optionally specify a minimum version of the module,
+and can also specify a version of Perl.
+If a version of Perl isn't specified,
+C<is_core()> will use the numeric version of Perl that is running (ie C<$]>).
+
+If you want to specify the version of Perl, but don't care about
+the version of the module, pass C<undef> for the module version:
+
+=item C<is_deprecated( MODULE, PERL_VERSION )>
+
+Available in version 2.22 and above.
+
+Returns true if MODULE is marked as deprecated in PERL_VERSION.  If PERL_VERSION is
+omitted, it defaults to the current version of Perl.
+
+=item C<deprecated_in( MODULE )>
+
+Available in version 2.77 and above.
+
+Returns the first perl version where the MODULE was marked as deprecated. Returns C<undef>
+if the MODULE has not been marked as deprecated.
+
+=item C<removed_from( MODULE )>
+
+Available in version 2.32 and above
+
+Takes a module name as an argument, returns the first perl version where that module
+was removed from core. Returns undef if the given module was never in core or remains
+in core.
+
+=item C<removed_from_by_date( MODULE )>
+
+Available in version 2.32 and above
+
+Takes a module name as an argument, returns the first perl version by release date where that module
+was removed from core. Returns undef if the given module was never in core or remains
+in core.
+
+=item C<changes_between( PERL_VERSION, PERL_VERSION )>
+
+Available in version 2.66 and above.
+
+Given two perl versions, this returns a list of pairs describing the changes in
+core module content between them.  The list is suitable for storing in a hash.
+The keys are library names and the values are hashrefs.  Each hashref has an
+entry for one or both of C<left> and C<right>, giving the versions of the
+library in each of the left and right perl distributions.
+
+For example, it might return these data (among others) for the difference
+between 5.008000 and 5.008001:
+
+  'Pod::ParseLink'  => { left => '1.05', right => '1.06' },
+  'Pod::ParseUtils' => { left => '0.22', right => '0.3'  },
+  'Pod::Perldoc'    => {                 right => '3.10' },
+  'Pod::Perldoc::BaseTo' => {            right => undef  },
+
+This shows us two libraries being updated and two being added, one of which has
+an undefined version in the right-hand side version.
+
+=back
+
+=head1 DATA STRUCTURES
+
+These are the hash data structures that are available:
+
+=over
+
+=item C<%Module::CoreList::version>
+
+A hash of hashes that is keyed on perl version as indicated
+in $].  The second level hash is module => version pairs.
+
+Note, it is possible for the version of a module to be unspecified,
+whereby the value is C<undef>, so use C<exists $version{$foo}{$bar}> if
+that's what you're testing for.
+
+Starting with 2.10, the special module name C<Unicode> refers to the version of
+the Unicode Character Database bundled with Perl.
+
+=item C<%Module::CoreList::delta>
+
+Available in version 3.00 and above.
+
+C<%Module::CoreList::version> is implemented via C<Module::CoreList::TieHashDelta>
+using this hash of delta changes.
+
+It is a hash of hashes that is keyed on perl version. Each keyed hash will have the
+following keys:
+
+  delta_from - a previous perl version that the changes are based on
+  changed    - a hash of module/versions that have changed
+  removed    - a hash of modules that have been removed
+
+=item C<%Module::CoreList::released>
+
+Keyed on perl version this contains ISO
+formatted versions of the release dates, as gleaned from L<perlhist>.
+
+=item C<%Module::CoreList::families>
+
+New, in 1.96, a hash that
+clusters known perl releases by their major versions.
+
+=item C<%Module::CoreList::deprecated>
+
+A hash of hashes keyed on perl version and on module name.
+If a module is defined it indicates that that module is
+deprecated in that perl version and is scheduled for removal
+from core at some future point.
+
+=item C<%Module::CoreList::upstream>
+
+A hash that contains information on where patches should be directed
+for each core module.
+
+UPSTREAM indicates where patches should go. C<undef> implies
+that this hasn't been discussed for the module at hand.
+C<blead> indicates that the copy of the module in the blead
+sources is to be considered canonical, C<cpan> means that the
+module on CPAN is to be patched first. C<first-come> means
+that blead can be patched freely if it is in sync with the
+latest release on CPAN.
+
+=item C<%Module::CoreList::bug_tracker>
+
+A hash that contains information on the appropriate bug tracker
+for each core module.
+
+BUGS is an email or url to post bug reports.  For modules with
+UPSTREAM => 'blead', use perl5-porters@perl.org.  rt.cpan.org
+appears to automatically provide a URL for CPAN modules; any value
+given here overrides the default:
+http://rt.cpan.org/Public/Dist/Display.html?Name=$ModuleName
+
+=back
+
+=head1 CAVEATS
+
+Module::CoreList currently covers the 5.000, 5.001, 5.002, 5.003_07,
+5.004, 5.004_05, 5.005, 5.005_03, 5.005_04 and 5.7.3 releases of perl.
+
+All stable releases of perl since 5.6.0 are covered.
+
+All development releases of perl since 5.9.0 are covered.
+
+
+=head1 HISTORY
+
+Moved to Changes file.
+
+=head1 AUTHOR
+
+Richard Clamp E<lt>richardc@unixbeard.netE<gt>
+
+Currently maintained by the perl 5 porters E<lt>perl5-porters@perl.orgE<gt>.
+
+=head1 LICENSE
+
+Copyright (C) 2002-2009 Richard Clamp.  All Rights Reserved.
+
+This module is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+=head1 SEE ALSO
+
+L<corelist>, L<Module::Info>, L<perl>, L<http://perlpunks.de/corelist>
+
+=cut
diff --git a/lib/5.24.1/Module/CoreList/TieHashDelta.pm b/lib/5.24.1/Module/CoreList/TieHashDelta.pm
new file mode 100644
index 00000000..dedd3ab4
--- /dev/null
+++ b/lib/5.24.1/Module/CoreList/TieHashDelta.pm
@@ -0,0 +1,79 @@
+# For internal Module::CoreList use only.
+package Module::CoreList::TieHashDelta;
+use strict;
+use vars qw($VERSION);
+
+$VERSION = '5.20170114_24';
+
+sub TIEHASH {
+    my ($class, $changed, $removed, $parent) = @_;
+
+    return bless {
+        changed => $changed,
+        removed => $removed,
+        parent => $parent,
+        keys_inflated => 0,
+    }, $class;
+}
+
+sub FETCH {
+    my ($self, $key) = @_;
+
+    if (exists $self->{changed}{$key}) {
+        return $self->{changed}{$key};
+    } elsif (exists $self->{removed}{$key}) {
+        return undef;
+    } elsif (defined $self->{parent}) {
+        return $self->{parent}{$key};
+    }
+    return undef;
+}
+
+sub EXISTS {
+    my ($self, $key) = @_;
+
+    restart:
+    if (exists $self->{changed}{$key}) {
+        return 1;
+    } elsif (exists $self->{removed}{$key}) {
+        return '';
+    } elsif (defined $self->{parent}) {
+        $self = tied %{$self->{parent}}; #avoid extreme magic/tie recursion
+        goto restart;
+    }
+    return '';
+}
+
+sub FIRSTKEY {
+    my ($self) = @_;
+
+    if (not $self->{keys_inflated}) {
+        # exceeds the warning limit of 100 calls since 5.23.2
+        no warnings 'recursion';
+
+        # This inflates the whole set of hashes... Somewhat expensive, but saves
+        # many tied hash calls later.
+        my @parent_keys;
+        if (defined $self->{parent}) {
+            @parent_keys = keys %{$self->{parent}};
+        }
+
+        @parent_keys = grep !exists $self->{removed}{$_}, @parent_keys;
+        for my $key (@parent_keys) {
+            next if exists $self->{changed}->{$key};
+            $self->{changed}{$key} = $self->{parent}{$key};
+        }
+
+        $self->{keys_inflated} = 1;
+    }
+
+    keys %{$self->{changed}}; # reset each
+    $self->NEXTKEY;
+}
+
+sub NEXTKEY {
+    my ($self) = @_;
+    each %{$self->{changed}};
+}
+
+1;
diff --git a/lib/5.24.1/Module/CoreList/Utils.pm b/lib/5.24.1/Module/CoreList/Utils.pm
new file mode 100644
index 00000000..71edc4f4
--- /dev/null
+++ b/lib/5.24.1/Module/CoreList/Utils.pm
@@ -0,0 +1,1362 @@
+package Module::CoreList::Utils;
+
+use strict;
+use warnings;
+use vars qw[$VERSION %utilities];
+use Module::CoreList;
+use Module::CoreList::TieHashDelta;
+
+$VERSION = '5.20170114_24';
+
+sub utilities {
+    my $perl = shift;
+    $perl = shift if eval { $perl->isa(__PACKAGE__) };
+    return unless $perl or exists $utilities{$perl};
+    return sort keys %{ $utilities{$perl} };
+}
+
+sub _released_order {   # Sort helper, to make '?' sort after everything else
+    (substr($Module::CoreList::released{$a}, 0, 1) eq "?")
+    ? ((substr($Module::CoreList::released{$b}, 0, 1) eq "?")
+        ? 0
+        : 1)
+    : ((substr($Module::CoreList::released{$b}, 0, 1) eq "?")
+        ? -1
+        : $Module::CoreList::released{$a} cmp $Module::CoreList::released{$b} )
+}
+
+sub first_release_raw {
+    my $util = shift;
+    $util = shift if eval { $util->isa(__PACKAGE__) };
+      #and scalar @_ and $_[0] =~ m#\A[a-zA-Z_][0-9a-zA-Z_]*(?:(::|')[0-9a-zA-Z_]+)*\z#;
+    my $version = shift;
+
+    my @perls = $version
+        ? grep { exists $utilities{$_}{ $util } &&
+                        $utilities{$_}{ $util } ge $version } keys %utilities
+        : grep { exists $utilities{$_}{ $util }             } keys %utilities;
+
+    return grep { exists $Module::CoreList::released{$_} } @perls;
+}
+
+sub first_release_by_date {
+    my @perls = &first_release_raw;
+    return unless @perls;
+    return (sort _released_order @perls)[0];
+}
+
+sub first_release {
+    my @perls = &first_release_raw;
+    return unless @perls;
+    return (sort { $a cmp $b } @perls)[0];
+}
+
+sub removed_from {
+  my @perls = &removed_raw;
+  return shift @perls;
+}
+
+sub removed_from_by_date {
+  my @perls = sort _released_order &removed_raw;
+  return shift @perls;
+}
+
+sub removed_raw {
+  my $util = shift;
+  $util = shift if eval { $util->isa(__PACKAGE__) };
+  return unless my @perls = sort { $a cmp $b } first_release_raw($util);
+  @perls = grep { exists $Module::CoreList::released{$_} } @perls;
+  my $last = pop @perls;
+  my @removed = grep { $_ > $last } sort { $a cmp $b } keys %utilities;
+  return @removed;
+}
+
+my %delta = (
+    5 => {
+        changed => {
+            'a2p'                   => '1',
+            'c2ph'                  => '1',
+            'cppstdin'              => '1',
+            'find2perl'             => '1',
+            'pstruct'               => '1',
+            's2p'                   => '1',
+        },
+        removed => {
+        }
+    },
+
+    5.001 => {
+        delta_from => 5,
+        changed => {
+            'h2xs'                  => '1',
+        },
+        removed => {
+        }
+    },
+
+    5.002 => {
+        delta_from => 5.001,
+        changed => {
+            'h2ph'                  => '1',
+            'perlbug'               => '1',
+            'perldoc'               => '1',
+            'pod2html'              => '1',
+            'pod2latex'             => '1',
+            'pod2man'               => '1',
+            'pod2text'              => '1',
+        },
+        removed => {
+        }
+    },
+
+    5.00307 => {
+        delta_from => 5.002,
+        changed => {
+            'pl2pm'                 => '1',
+        },
+        removed => {
+           'cppstdin'              => 1,
+           'pstruct'               => 1,
+        }
+    },
+
+    5.004 => {
+        delta_from => 5.00307,
+        changed => {
+            'splain'                => '1',
+        },
+        removed => {
+        }
+    },
+
+    5.005 => {
+        delta_from => 5.00405,
+        changed => {
+            'perlcc'                => '1',
+        },
+        removed => {
+        }
+    },
+
+    5.00503 => {
+        delta_from => 5.005,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.00405 => {
+        delta_from => 5.004,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.006 => {
+        delta_from => 5.00504,
+        changed => {
+            'dprofpp'               => '1',
+            'pod2usage'             => '1',
+            'podchecker'            => '1',
+            'podselect'             => '1',
+            'pstruct'               => '1',
+        },
+        removed => {
+        }
+    },
+
+    5.006001 => {
+        delta_from => 5.006,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.007003 => {
+        delta_from => 5.006002,
+        changed => {
+            'libnetcfg'             => '1',
+            'perlivp'               => '1',
+            'psed'                  => '1',
+            'xsubpp'                => '1',
+        },
+        removed => {
+        }
+    },
+
+    5.008 => {
+        delta_from => 5.007003,
+        changed => {
+            'enc2xs'                => '1',
+            'piconv'                => '1',
+        },
+        removed => {
+        }
+    },
+
+    5.008001 => {
+        delta_from => 5.008,
+        changed => {
+            'cpan'                  => '1',
+        },
+        removed => {
+        }
+    },
+
+    5.009 => {
+        delta_from => 5.008009,
+        changed => {
+        },
+        removed => {
+           'corelist'              => 1,
+           'instmodsh'             => 1,
+           'prove'                 => 1,
+        }
+    },
+
+    5.008002 => {
+        delta_from => 5.008001,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.006002 => {
+        delta_from => 5.006001,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.008003 => {
+        delta_from => 5.008002,
+        changed => {
+            'instmodsh'             => '1',
+            'prove'                 => '1',
+        },
+        removed => {
+        }
+    },
+
+    5.00504 => {
+        delta_from => 5.00503,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.009001 => {
+        delta_from => 5.009,
+        changed => {
+            'instmodsh'             => '1',
+            'prove'                 => '1',
+        },
+        removed => {
+        }
+    },
+
+    5.008004 => {
+        delta_from => 5.008003,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.008005 => {
+        delta_from => 5.008004,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.008006 => {
+        delta_from => 5.008005,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.009002 => {
+        delta_from => 5.009001,
+        changed => {
+            'corelist'              => '1',
+        },
+        removed => {
+        }
+    },
+
+    5.008007 => {
+        delta_from => 5.008006,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.009003 => {
+        delta_from => 5.009002,
+        changed => {
+            'ptar'                  => '1',
+            'ptardiff'              => '1',
+            'shasum'                => '1',
+        },
+        removed => {
+        }
+    },
+
+    5.008008 => {
+        delta_from => 5.008007,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.009004 => {
+        delta_from => 5.009003,
+        changed => {
+            'config_data'           => '1',
+        },
+        removed => {
+        }
+    },
+
+    5.009005 => {
+        delta_from => 5.009004,
+        changed => {
+            'cpan2dist'             => '1',
+            'cpanp'                 => '1',
+            'cpanp-run-perl'        => '1',
+        },
+        removed => {
+           'perlcc'                => 1,
+        }
+    },
+
+    5.010000 => {
+        delta_from => 5.009005,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.008009 => {
+        delta_from => 5.008008,
+        changed => {
+            'corelist'              => '1',
+        },
+        removed => {
+        }
+    },
+
+    5.010001 => {
+        delta_from => 5.010000,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.011 => {
+        delta_from => 5.010001,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.011001 => {
+        delta_from => 5.011,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.011002 => {
+        delta_from => 5.011001,
+        changed => {
+            'perlthanks'            => '1',
+        },
+        removed => {
+        }
+    },
+
+    5.011003 => {
+        delta_from => 5.011002,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.011004 => {
+        delta_from => 5.011003,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.011005 => {
+        delta_from => 5.011004,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.012 => {
+        delta_from => 5.011005,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.013 => {
+        delta_from => 5.012005,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.012001 => {
+        delta_from => 5.012,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.013001 => {
+        delta_from => 5.013,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.013002 => {
+        delta_from => 5.013001,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.013003 => {
+        delta_from => 5.013002,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.013004 => {
+        delta_from => 5.013003,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.012002 => {
+        delta_from => 5.012001,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.013005 => {
+        delta_from => 5.013004,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.013006 => {
+        delta_from => 5.013005,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.013007 => {
+        delta_from => 5.013006,
+        changed => {
+            'ptargrep'              => '1',
+        },
+        removed => {
+        }
+    },
+
+    5.013008 => {
+        delta_from => 5.013007,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.013009 => {
+        delta_from => 5.013008,
+        changed => {
+            'json_pp'               => '1',
+        },
+        removed => {
+        }
+    },
+
+    5.012003 => {
+        delta_from => 5.012002,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.013010 => {
+        delta_from => 5.013009,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.013011 => {
+        delta_from => 5.013010,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.014 => {
+        delta_from => 5.013011,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.014001 => {
+        delta_from => 5.014,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.015 => {
+        delta_from => 5.014004,
+        changed => {
+        },
+        removed => {
+           'dprofpp'               => 1,
+        }
+    },
+
+    5.012004 => {
+        delta_from => 5.012003,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.015001 => {
+        delta_from => 5.015,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.015002 => {
+        delta_from => 5.015001,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.015003 => {
+        delta_from => 5.015002,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.014002 => {
+        delta_from => 5.014001,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.015004 => {
+        delta_from => 5.015003,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.015005 => {
+        delta_from => 5.015004,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.015006 => {
+        delta_from => 5.015005,
+        changed => {
+            'zipdetails'            => '1',
+        },
+        removed => {
+        }
+    },
+
+    5.015007 => {
+        delta_from => 5.015006,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.015008 => {
+        delta_from => 5.015007,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.015009 => {
+        delta_from => 5.015008,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.016 => {
+        delta_from => 5.015009,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.017 => {
+        delta_from => 5.016003,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.017001 => {
+        delta_from => 5.017,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.017002 => {
+        delta_from => 5.017001,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.016001 => {
+        delta_from => 5.016,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.017003 => {
+        delta_from => 5.017002,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.017004 => {
+        delta_from => 5.017003,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.014003 => {
+        delta_from => 5.014002,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.017005 => {
+        delta_from => 5.017004,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.016002 => {
+        delta_from => 5.016001,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.012005 => {
+        delta_from => 5.012004,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.017006 => {
+        delta_from => 5.017005,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.017007 => {
+        delta_from => 5.017006,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.017008 => {
+        delta_from => 5.017007,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.017009 => {
+        delta_from => 5.017008,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.014004 => {
+        delta_from => 5.014003,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.016003 => {
+        delta_from => 5.016002,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.017010 => {
+        delta_from => 5.017009,
+        changed => {
+        },
+        removed => {
+        }
+    },
+
+    5.017011 => {
+        delta_from => 5.017010,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.018000 => {
+        delta_from => 5.017011,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.018001 => {
+        delta_from => 5.018000,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.018002 => {
+        delta_from => 5.018001,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.018003 => {
+        delta_from => 5.018000,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.018004 => {
+        delta_from => 5.018000,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.019000 => {
+        delta_from => 5.018000,
+        changed => {
+        },
+        removed => {
+            'cpan2dist'             => '1',
+            'cpanp'                 => '1',
+            'cpanp-run-perl'        => '1',
+            'pod2latex'             => '1',
+        }
+    },
+    5.019001 => {
+        delta_from => 5.019000,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.019002 => {
+        delta_from => 5.019001,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.019003 => {
+        delta_from => 5.019002,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.019004 => {
+        delta_from => 5.019003,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.019005 => {
+        delta_from => 5.019004,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.019006 => {
+        delta_from => 5.019005,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.019007 => {
+        delta_from => 5.019006,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.019008 => {
+        delta_from => 5.019007,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.019009 => {
+        delta_from => 5.019008,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.019010 => {
+        delta_from => 5.019009,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.019011 => {
+        delta_from => 5.019010,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.020000 => {
+        delta_from => 5.019011,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.021000 => {
+        delta_from => 5.020000,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.021001 => {
+        delta_from => 5.021000,
+        changed => {
+        },
+        removed => {
+            'a2p'                   => 1,
+            'config_data'           => 1,
+            'find2perl'             => 1,
+            'psed'                  => 1,
+            's2p'                   => 1,
+        }
+    },
+    5.021002 => {
+        delta_from => 5.021001,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.021003 => {
+        delta_from => 5.021002,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.020001 => {
+        delta_from => 5.02,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.021004 => {
+        delta_from => 5.021003,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.021005 => {
+        delta_from => 5.021004,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.021006 => {
+        delta_from => 5.021005,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.021007 => {
+        delta_from => 5.021006,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.021008 => {
+        delta_from => 5.021007,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.020002 => {
+        delta_from => 5.020001,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.021009 => {
+        delta_from => 5.021008,
+        changed => {
+            'encguess'              => '1',
+        },
+        removed => {
+        }
+    },
+    5.021010 => {
+        delta_from => 5.021009,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.021011 => {
+        delta_from => 5.02101,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.022000 => {
+        delta_from => 5.021011,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.023000 => {
+        delta_from => 5.022000,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.023001 => {
+        delta_from => 5.023,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.023002 => {
+        delta_from => 5.023001,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.020003 => {
+        delta_from => 5.020002,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.023003 => {
+        delta_from => 5.023002,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.023004 => {
+        delta_from => 5.023003,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.023005 => {
+        delta_from => 5.023004,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.022001 => {
+        delta_from => 5.022,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.023006 => {
+        delta_from => 5.023005,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.023007 => {
+        delta_from => 5.023006,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.023008 => {
+        delta_from => 5.023007,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.023009 => {
+        delta_from => 5.023008,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.022002 => {
+        delta_from => 5.022001,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.024000 => {
+        delta_from => 5.023009,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.025000 => {
+        delta_from => 5.024000,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.025001 => {
+        delta_from => 5.025000,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.025002 => {
+        delta_from => 5.025001,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.025003 => {
+        delta_from => 5.025002,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.025004 => {
+        delta_from => 5.025003,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.025005 => {
+        delta_from => 5.025004,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.025006 => {
+        delta_from => 5.025005,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.025007 => {
+        delta_from => 5.025006,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.025008 => {
+        delta_from => 5.025007,
+        changed => {
+        },
+        removed => {
+        }
+    },
+    5.024001 => {
+        delta_from => 5.024000,
+        changed => {
+        },
+        removed => {
+        }
+    },
+);
+
+for my $version (sort { $a <=> $b } keys %delta) {
+    my $data = $delta{$version};
+
+    tie %{$utilities{$version}}, 'Module::CoreList::TieHashDelta',
+        $data->{changed}, $data->{removed},
+        $data->{delta_from} ? $utilities{$data->{delta_from}} : undef;
+}
+
+# Create aliases with trailing zeros for $] use
+
+$utilities{'5.000'} = $utilities{5};
+
+_create_aliases(\%utilities);
+
+sub _create_aliases {
+    my ($hash) = @_;
+
+    for my $version (keys %$hash) {
+        next unless $version >= 5.010;
+
+        my $padded = sprintf "%0.6f", $version;
+
+        # If the version in string form isn't the same as the numeric version,
+        # alias it.
+        if ($padded ne $version && $version == $padded) {
+            $hash->{$padded} = $hash->{$version};
+        }
+    }
+}
+
+'foo';
+
+=pod
+
+=head1 NAME
+
+Module::CoreList::Utils - what utilities shipped with versions of perl
+
+=head1 SYNOPSIS
+
+ use Module::CoreList::Utils;
+
+ print $Module::CoreList::Utils::utilities{5.009003}{ptar}; # prints 1
+
+ print Module::CoreList::Utils->first_release('corelist');
+ # prints 5.008009
+
+ print Module::CoreList::Utils->first_release_by_date('corelist');
+ # prints 5.009002
+
+=head1 DESCRIPTION
+
+Module::CoreList::Utils provides information on which core and dual-life utilities shipped
+with each version of L<perl>.
+
+It provides a number of mechanisms for querying this information.
+
+There is a functional programming API available for programmers to query
+information.
+
+Programmers may also query the contained hash structure to find relevant
+information.
+
+=head1 FUNCTIONS API
+
+These are the functions that are available, they may either be called as functions or class methods:
+
+  Module::CoreList::Utils::first_release('corelist'); # as a function
+
+  Module::CoreList::Utils->first_release('corelist'); # class method
+
+=over
+
+=item C<utilities>
+
+Requires a perl version as an argument, returns a list of utilities that shipped with
+that version of perl, or undef/empty list if that perl doesn't exist.
+
+=item C<first_release( UTILITY )>
+
+Requires a UTILITY name as an argument, returns the perl version when that utility first
+appeared in core as ordered by perl version number or undef ( in scalar context )
+or an empty list ( in list context ) if that utility is not in core.
+
+=item C<first_release_by_date( UTILITY )>
+
+Requires a UTILITY name as an argument, returns the perl version when that utility first
+appeared in core as ordered by release date or undef ( in scalar context )
+or an empty list ( in list context ) if that utility is not in core.
+
+=item C<removed_from( UTILITY )>
+
+Takes a UTILITY name as an argument, returns the first perl version where that utility
+was removed from core. Returns undef if the given utility was never in core or remains
+in core.
+
+=item C<removed_from_by_date( UTILITY )>
+
+Takes a UTILITY name as an argument, returns the first perl version by release date where that
+utility was removed from core. Returns undef if the given utility was never in core or remains
+in core.
+
+=back
+
+=head1 DATA STRUCTURES
+
+These are the hash data structures that are available:
+
+=over
+
+=item C<%Module::CoreList::Utils::utilities>
+
+A hash of hashes that is keyed on perl version as indicated
+in $].  The second level hash is utility / defined pairs.
+
+=back
+
+=head1 AUTHOR
+
+Chris C<BinGOs> Williams <chris@bingosnet.co.uk>
+
+Currently maintained by the perl 5 porters E<lt>perl5-porters@perl.orgE<gt>.
+
+This module is the result of archaeology undertaken during QA Hackathon
+in Lancaster, April 2013.
+
+=head1 LICENSE
+
+Copyright (C) 2013 Chris Williams.  All Rights Reserved.
+
+This module is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+=head1 SEE ALSO
+
+L<corelist>, L<Module::CoreList>, L<perl>, L<http://perlpunks.de/corelist>
+
+=cut
diff --git a/lib/5.24.1/Module/Load.pm b/lib/5.24.1/Module/Load.pm
new file mode 100644
index 00000000..9e69f832
--- /dev/null
+++ b/lib/5.24.1/Module/Load.pm
@@ -0,0 +1,354 @@
+package Module::Load;
+
+$VERSION = '0.32';
+
+use strict;
+use warnings;
+use File::Spec ();
+
+sub import {
+    my $who = _who();
+    my $h; shift;
+
+    {   no strict 'refs';
+
+        @_ or (
+            *{"${who}::load"} = \&load, # compat to prev version
+            *{"${who}::autoload"} = \&autoload,
+            return
+        );
+
+        map { $h->{$_} = () if defined $_ } @_;
+
+        (exists $h->{none} or exists $h->{''})
+            and shift, last;
+
+        ((exists $h->{autoload} and shift,1) or (exists $h->{all} and shift))
+            and *{"${who}::autoload"} = \&autoload;
+
+        ((exists $h->{load} and shift,1) or exists $h->{all})
+            and *{"${who}::load"} = \&load;
+
+        ((exists $h->{load_remote} and shift,1) or exists $h->{all})
+            and *{"${who}::load_remote"} = \&load_remote;
+
+        ((exists $h->{autoload_remote} and shift,1) or exists $h->{all})
+            and *{"${who}::autoload_remote"} = \&autoload_remote;
+
+    }
+
+}
+
+sub load(*;@){
+    goto &_load;
+}
+
+sub autoload(*;@){
+    unshift @_, 'autoimport';
+    goto &_load;
+}
+
+sub load_remote($$;@){
+    my ($dst, $src, @exp) = @_;
+
+    eval "package $dst;Module::Load::load('$src', qw/@exp/);";
+    $@ && die "$@";
+}
+
+sub autoload_remote($$;@){
+    my ($dst, $src, @exp) = @_;
+
+    eval "package $dst;Module::Load::autoload('$src', qw/@exp/);";
+    $@ && die "$@";
+}
+
+sub _load{
+    my $autoimport = $_[0] eq 'autoimport' and shift;
+    my $mod = shift or return;
+    my $who = _who();
+
+    if( _is_file( $mod ) ) {
+        require $mod;
+    } else {
+        LOAD: {
+            my $err;
+            for my $flag ( qw[1 0] ) {
+                my $file = _to_file( $mod, $flag);
+                eval { require $file };
+                $@ ? $err .= $@ : last LOAD;
+            }
+            die $err if $err;
+        }
+    }
+
+    ### This addresses #41883: Module::Load cannot import
+    ### non-Exporter module. ->import() routines weren't
+    ### properly called when load() was used.
+
+    {   no strict 'refs';
+        my $import;
+
+    ((@_ or $autoimport) and (
+        $import = $mod->can('import')
+        ) and (
+        unshift(@_, $mod),
+        goto &$import,
+        return
+        )
+    );
+    }
+
+}
+
+sub _to_file{
+    local $_    = shift;
+    my $pm      = shift || '';
+
+    ## trailing blanks ignored by default. [rt #69886]
+    my @parts = split /::|'/, $_, -1;
+    ## make sure that we can't hop out of @INC
+    shift @parts if @parts && !$parts[0];
+
+    ### because of [perl #19213], see caveats ###
+    my $file = $^O eq 'MSWin32'
+                    ? join "/", @parts
+                    : File::Spec->catfile( @parts );
+
+    $file   .= '.pm' if $pm;
+
+    ### on perl's before 5.10 (5.9.5@31746) if you require
+    ### a file in VMS format, it's stored in %INC in VMS
+    ### format. Therefor, better unixify it first
+    ### Patch in reply to John Malmbergs patch (as mentioned
+    ### above) on p5p Tue 21 Aug 2007 04:55:07
+    $file = VMS::Filespec::unixify($file) if $^O eq 'VMS';
+
+    return $file;
+}
+
+sub _who { (caller(1))[0] }
+
+sub _is_file {
+    local $_ = shift;
+    return  /^\./               ? 1 :
+            /[^\w:']/           ? 1 :
+            undef
+    #' silly bbedit..
+}
+
+
+1;
+
+__END__
+
+=pod
+
+=head1 NAME
+
+Module::Load - runtime require of both modules and files
+
+=head1 SYNOPSIS
+
+  use Module::Load;
+
+  my $module = 'Data::Dumper';
+
+  load Data::Dumper;     # loads that module, but not import any functions
+                         # -> cannot use 'Dumper' function
+
+  load 'Data::Dumper';   # ditto
+  load $module           # tritto
+
+  autoload Data::Dumper; # loads that module and imports the default functions
+                         # -> can use 'Dumper' function
+
+  my $script = 'some/script.pl'
+  load $script;
+  load 'some/script.pl';  # use quotes because of punctuations
+
+  load thing;             # try 'thing' first, then 'thing.pm'
+
+  load CGI, ':all';       # like 'use CGI qw[:standard]'
+
+=head1 DESCRIPTION
+
+C<Module::Load> eliminates the need to know whether you are trying
+to require either a file or a module.
+
+If you consult C<perldoc -f require> you will see that C<require> will
+behave differently when given a bareword or a string.
+
+In the case of a string, C<require> assumes you are wanting to load a
+file. But in the case of a bareword, it assumes you mean a module.
+
+This gives nasty overhead when you are trying to dynamically require
+modules at runtime, since you will need to change the module notation
+(C<Acme::Comment>) to a file notation fitting the particular platform
+you are on.
+
+C<Module::Load> eliminates the need for this overhead and will
+just DWYM.
+
+=head2 Difference between C<load> and C<autoload>
+
+C<Module::Load> imports the two functions - C<load> and C<autoload>
+
+C<autoload> imports the default functions automatically,
+but C<load> do not import any functions.
+
+C<autoload> is usable under C<BEGIN{};>.
+
+Both the functions can import the functions that are specified.
+
+Following codes are same.
+
+  load File::Spec::Functions, qw/splitpath/;
+
+  autoload File::Spec::Functions, qw/splitpath/;
+
+=head1 FUNCTIONS
+
+=over 4
+
+=item load
+
+Loads a specified module.
+
+See L</Rules> for detailed loading rule.
+
+=item autoload
+
+Loads a specified module and imports the default functions.
+
+Except importing the functions, 'autoload' is same as 'load'.
+
+=item load_remote
+
+Loads a specified module to the specified package.
+
+  use Module::Load 'load_remote';
+
+  my $pkg = 'Other::Package';
+
+  load_remote $pkg, 'Data::Dumper'; # load a module to 'Other::Package'
+                                    # but do not import 'Dumper' function
+
+A module for loading must be quoted.
+
+Except specifing the package and quoting module name,
+'load_remote' is same as 'load'.
+
+=item autoload_remote
+
+Loads a specified module and imports the default functions to the specified package.
+
+  use Module::Load 'autoload_remote';
+
+  my $pkg = 'Other::Package';
+
+  autoload_remote $pkg, 'Data::Dumper'; # load a module to 'Other::Package'
+                                        # and imports 'Dumper' function
+
+A module for loading must be quoted.
+
+Except specifing the package and quoting module name,
+'autoload_remote' is same as 'load_remote'.
+
+=back
+
+=head1 Rules
+
+All functions have the following rules to decide what it thinks
+you want:
+
+=over 4
+
+=item *
+
+If the argument has any characters in it other than those matching
+C<\w>, C<:> or C<'>, it must be a file
+
+=item *
+
+If the argument matches only C<[\w:']>, it must be a module
+
+=item *
+
+If the argument matches only C<\w>, it could either be a module or a
+file. We will try to find C<file.pm> first in C<@INC> and if that
+fails, we will try to find C<file> in @INC.  If both fail, we die with
+the respective error messages.
+
+=back
+
+=head1 IMPORTS THE FUNCTIONS
+
+'load' and 'autoload' are imported by default, but 'load_remote' and
+'autoload_remote' are not imported.
+
+To use 'load_remote' or 'autoload_remote', specify at 'use'.
+
+=over 4
+
+=item "load","autoload","load_remote","autoload_remote"
+
+Imports the selected functions.
+
+  # imports 'load' and 'autoload' (default)
+  use Module::Load;
+
+  # imports 'autoload' only
+  use Module::Load 'autoload';
+
+  # imports 'autoload' and 'autoload_remote', but don't import 'load';
+  use Module::Load qw/autoload autoload_remote/;
+
+=item 'all'
+
+Imports all the functions.
+
+  use Module::Load 'all'; # imports load, autoload, load_remote, autoload_remote
+
+=item '','none',undef
+
+Not import any functions (C<load> and C<autoload> are not imported).
+
+  use Module::Load '';
+
+  use Module::Load 'none';
+
+  use Module::Load undef;
+
+=back
+
+=head1 Caveats
+
+Because of a bug in perl (#19213), at least in version 5.6.1, we have
+to hardcode the path separator for a require on Win32 to be C</>, like
+on Unix rather than the Win32 C<\>. Otherwise perl will not read its
+own %INC accurately double load files if they are required again, or
+in the worst case, core dump.
+
+C<Module::Load> cannot do implicit imports, only explicit imports.
+(in other words, you always have to specify explicitly what you wish
+to import from a module, even if the functions are in that modules'
+C<@EXPORT>)
+
+=head1 ACKNOWLEDGEMENTS
+
+Thanks to Jonas B. Nielsen for making explicit imports work.
+
+=head1 BUG REPORTS
+
+Please report bugs or other issues to E<lt>bug-module-load@rt.cpan.org<gt>.
+
+=head1 AUTHOR
+
+This module by Jos Boumans E<lt>kane@cpan.orgE<gt>.
+
+=head1 COPYRIGHT
+
+This library is free software; you may redistribute and/or modify it
+under the same terms as Perl itself.
+
+=cut
diff --git a/lib/5.24.1/Module/Load/Conditional.pm b/lib/5.24.1/Module/Load/Conditional.pm
new file mode 100644
index 00000000..ace55ad8
--- /dev/null
+++ b/lib/5.24.1/Module/Load/Conditional.pm
@@ -0,0 +1,603 @@
+package Module::Load::Conditional;
+
+use strict;
+
+use Module::Load qw/load autoload_remote/;
+use Params::Check                       qw[check];
+use Locale::Maketext::Simple Style  => 'gettext';
+
+use Carp        ();
+use File::Spec  ();
+use FileHandle  ();
+use version;
+
+use Module::Metadata ();
+
+use constant ON_VMS   => $^O eq 'VMS';
+use constant ON_WIN32 => $^O eq 'MSWin32' ? 1 : 0;
+use constant QUOTE    => do { ON_WIN32 ? q["] : q['] };
+
+BEGIN {
+    use vars        qw[ $VERSION @ISA $VERBOSE $CACHE @EXPORT_OK $DEPRECATED
+                        $FIND_VERSION $ERROR $CHECK_INC_HASH];
+    use Exporter;
+    @ISA            = qw[Exporter];
+    $VERSION        = '0.64';
+    $VERBOSE        = 0;
+    $DEPRECATED     = 0;
+    $FIND_VERSION   = 1;
+    $CHECK_INC_HASH = 0;
+    @EXPORT_OK      = qw[check_install can_load requires];
+}
+
+=pod
+
+=head1 NAME
+
+Module::Load::Conditional - Looking up module information / loading at runtime
+
+=head1 SYNOPSIS
+
+    use Module::Load::Conditional qw[can_load check_install requires];
+
+
+    my $use_list = {
+            CPANPLUS        => 0.05,
+            LWP             => 5.60,
+            'Test::More'    => undef,
+    };
+
+    print can_load( modules => $use_list )
+            ? 'all modules loaded successfully'
+            : 'failed to load required modules';
+
+
+    my $rv = check_install( module => 'LWP', version => 5.60 )
+                or print 'LWP is not installed!';
+
+    print 'LWP up to date' if $rv->{uptodate};
+    print "LWP version is $rv->{version}\n";
+    print "LWP is installed as file $rv->{file}\n";
+
+
+    print "LWP requires the following modules to be installed:\n";
+    print join "\n", requires('LWP');
+
+    ### allow M::L::C to peek in your %INC rather than just
+    ### scanning @INC
+    $Module::Load::Conditional::CHECK_INC_HASH = 1;
+
+    ### reset the 'can_load' cache
+    undef $Module::Load::Conditional::CACHE;
+
+    ### don't have Module::Load::Conditional issue warnings --
+    ### default is '1'
+    $Module::Load::Conditional::VERBOSE = 0;
+
+    ### The last error that happened during a call to 'can_load'
+    my $err = $Module::Load::Conditional::ERROR;
+
+
+=head1 DESCRIPTION
+
+Module::Load::Conditional provides simple ways to query and possibly load any of
+the modules you have installed on your system during runtime.
+
+It is able to load multiple modules at once or none at all if one of
+them was not able to load. It also takes care of any error checking
+and so forth.
+
+=head1 Methods
+
+=head2 $href = check_install( module => NAME [, version => VERSION, verbose => BOOL ] );
+
+C<check_install> allows you to verify if a certain module is installed
+or not. You may call it with the following arguments:
+
+=over 4
+
+=item module
+
+The name of the module you wish to verify -- this is a required key
+
+=item version
+
+The version this module needs to be -- this is optional
+
+=item verbose
+
+Whether or not to be verbose about what it is doing -- it will default
+to $Module::Load::Conditional::VERBOSE
+
+=back
+
+It will return undef if it was not able to find where the module was
+installed, or a hash reference with the following keys if it was able
+to find the file:
+
+=over 4
+
+=item file
+
+Full path to the file that contains the module
+
+=item dir
+
+Directory, or more exact the C<@INC> entry, where the module was
+loaded from.
+
+=item version
+
+The version number of the installed module - this will be C<undef> if
+the module had no (or unparsable) version number, or if the variable
+C<$Module::Load::Conditional::FIND_VERSION> was set to true.
+(See the C<GLOBAL VARIABLES> section below for details)
+
+=item uptodate
+
+A boolean value indicating whether or not the module was found to be
+at least the version you specified. If you did not specify a version,
+uptodate will always be true if the module was found.
+If no parsable version was found in the module, uptodate will also be
+true, since C<check_install> had no way to verify clearly.
+
+See also C<$Module::Load::Conditional::DEPRECATED>, which affects
+the outcome of this value.
+
+=back
+
+=cut
+
+### this checks if a certain module is installed already ###
+### if it returns true, the module in question is already installed
+### or we found the file, but couldn't open it, OR there was no version
+### to be found in the module
+### it will return 0 if the version in the module is LOWER then the one
+### we are looking for, or if we couldn't find the desired module to begin with
+### if the installed version is higher or equal to the one we want, it will return
+### a hashref with he module name and version in it.. so 'true' as well.
+sub check_install {
+    my %hash = @_;
+
+    my $tmpl = {
+            version => { default    => '0.0'    },
+            module  => { required   => 1        },
+            verbose => { default    => $VERBOSE },
+    };
+
+    my $args;
+    unless( $args = check( $tmpl, \%hash, $VERBOSE ) ) {
+        warn loc( q[A problem occurred checking arguments] ) if $VERBOSE;
+        return;
+    }
+
+    my $file     = File::Spec->catfile( split /::/, $args->{module} ) . '.pm';
+    my $file_inc = File::Spec::Unix->catfile(
+                        split /::/, $args->{module}
+                    ) . '.pm';
+
+    ### where we store the return value ###
+    my $href = {
+            file        => undef,
+            version     => undef,
+            uptodate    => undef,
+    };
+
+    my $filename;
+
+    ### check the inc hash if we're allowed to
+    if( $CHECK_INC_HASH ) {
+        $filename = $href->{'file'} =
+            $INC{ $file_inc } if defined $INC{ $file_inc };
+
+        ### find the version by inspecting the package
+        if( defined $filename && $FIND_VERSION ) {
+            no strict 'refs';
+            $href->{version} = ${ "$args->{module}"."::VERSION" };
+        }
+    }
+
+    ### we didn't find the filename yet by looking in %INC,
+    ### so scan the dirs
+    unless( $filename ) {
+
+        DIR: for my $dir ( @INC ) {
+
+            my $fh;
+
+            if ( ref $dir ) {
+                ### @INC hook -- we invoke it and get the filehandle back
+                ### this is actually documented behaviour as of 5.8 ;)
+
+                my $existed_in_inc = $INC{$file_inc};
+
+                if (UNIVERSAL::isa($dir, 'CODE')) {
+                    ($fh) = $dir->($dir, $file);
+
+                } elsif (UNIVERSAL::isa($dir, 'ARRAY')) {
+                    ($fh) = $dir->[0]->($dir, $file, @{$dir}{1..$#{$dir}})
+
+                } elsif (UNIVERSAL::can($dir, 'INC')) {
+                    ($fh) = $dir->INC($file);
+                }
+
+                if (!UNIVERSAL::isa($fh, 'GLOB')) {
+                    warn loc(q[Cannot open file '%1': %2], $file, $!)
+                            if $args->{verbose};
+                    next;
+                }
+
+                $filename = $INC{$file_inc} || $file;
+
+                delete $INC{$file_inc} if not $existed_in_inc;
+
+            } else {
+                $filename = File::Spec->catfile($dir, $file);
+                next unless -e $filename;
+
+                $fh = new FileHandle;
+                if (!$fh->open($filename)) {
+                    warn loc(q[Cannot open file '%1': %2], $file, $!)
+                            if $args->{verbose};
+                    next;
+                }
+            }
+
+            ### store the directory we found the file in
+            $href->{dir} = $dir;
+
+            ### files need to be in unix format under vms,
+            ### or they might be loaded twice
+            $href->{file} = ON_VMS
+                ? VMS::Filespec::unixify( $filename )
+                : $filename;
+
+            ### if we don't need the version, we're done
+            last DIR unless $FIND_VERSION;
+
+            ### otherwise, the user wants us to find the version from files
+            my $mod_info = Module::Metadata->new_from_handle( $fh, $filename );
+            my $ver      = $mod_info->version( $args->{module} );
+
+            if( defined $ver ) {
+                $href->{version} = $ver;
+
+                last DIR;
+            }
+        }
+    }
+
+    ### if we couldn't find the file, return undef ###
+    return unless defined $href->{file};
+
+    ### only complain if we're expected to find a version higher than 0.0 anyway
+    if( $FIND_VERSION and not defined $href->{version} ) {
+        {   ### don't warn about the 'not numeric' stuff ###
+            local $^W;
+
+            ### if we got here, we didn't find the version
+            warn loc(q[Could not check version on '%1'], $args->{module} )
+                    if $args->{verbose} and $args->{version} > 0;
+        }
+        $href->{uptodate} = 1;
+
+    } else {
+        ### don't warn about the 'not numeric' stuff ###
+        local $^W;
+
+        ### use qv(), as it will deal with developer release number
+        ### ie ones containing _ as well. This addresses bug report
+        ### #29348: Version compare logic doesn't handle alphas?
+        ###
+        ### Update from JPeacock: apparently qv() and version->new
+        ### are different things, and we *must* use version->new
+        ### here, or things like #30056 might start happening
+
+        ### We have to wrap this in an eval as version-0.82 raises
+        ### exceptions and not warnings now *sigh*
+
+        eval {
+
+          $href->{uptodate} =
+            version->new( $args->{version} ) <= version->new( $href->{version} )
+                ? 1
+                : 0;
+
+        };
+    }
+
+    if ( $DEPRECATED and "$]" >= 5.011 ) {
+        require Module::CoreList;
+        require Config;
+
+        $href->{uptodate} = 0 if
+           exists $Module::CoreList::version{ 0+$] }{ $args->{module} } and
+           Module::CoreList::is_deprecated( $args->{module} ) and
+           $Config::Config{privlibexp} eq $href->{dir}
+           and $Config::Config{privlibexp} ne $Config::Config{sitelibexp};
+    }
+
+    return $href;
+}
+
+=head2 $bool = can_load( modules => { NAME => VERSION [,NAME => VERSION] }, [verbose => BOOL, nocache => BOOL, autoload => BOOL] )
+
+C<can_load> will take a list of modules, optionally with version
+numbers and determine if it is able to load them. If it can load *ALL*
+of them, it will. If one or more are unloadable, none will be loaded.
+
+This is particularly useful if you have More Than One Way (tm) to
+solve a problem in a program, and only wish to continue down a path
+if all modules could be loaded, and not load them if they couldn't.
+
+This function uses the C<load> function or the C<autoload_remote> function
+from Module::Load under the hood.
+
+C<can_load> takes the following arguments:
+
+=over 4
+
+=item modules
+
+This is a hashref of module/version pairs. The version indicates the
+minimum version to load. If no version is provided, any version is
+assumed to be good enough.
+
+=item verbose
+
+This controls whether warnings should be printed if a module failed
+to load.
+The default is to use the value of $Module::Load::Conditional::VERBOSE.
+
+=item nocache
+
+C<can_load> keeps its results in a cache, so it will not load the
+same module twice, nor will it attempt to load a module that has
+already failed to load before. By default, C<can_load> will check its
+cache, but you can override that by setting C<nocache> to true.
+
+=item autoload
+
+This controls whether imports the functions of a loaded modules to the caller package. The default is no importing any functions.
+
+See the C<autoload> function and the C<autoload_remote> function from L<Module::Load> for details.
+
+=cut
+
+sub can_load {
+    my %hash = @_;
+
+    my $tmpl = {
+        modules     => { default => {}, strict_type => 1 },
+        verbose     => { default => $VERBOSE },
+        nocache     => { default => 0 },
+        autoload    => { default => 0 },
+    };
+
+    my $args;
+
+    unless( $args = check( $tmpl, \%hash, $VERBOSE ) ) {
+        $ERROR = loc(q[Problem validating arguments!]);
+        warn $ERROR if $VERBOSE;
+        return;
+    }
+
+    ### layout of $CACHE:
+    ### $CACHE = {
+    ###     $ module => {
+    ###             usable  => BOOL,
+    ###             version => \d,
+    ###             file    => /path/to/file,
+    ###     },
+    ### };
+
+    $CACHE ||= {}; # in case it was undef'd
+
+    my $error;
+    BLOCK: {
+        my $href = $args->{modules};
+
+        my @load;
+        for my $mod ( keys %$href ) {
+
+            next if $CACHE->{$mod}->{usable} && !$args->{nocache};
+
+            ### else, check if the hash key is defined already,
+            ### meaning $mod => 0,
+            ### indicating UNSUCCESSFUL prior attempt of usage
+
+            ### use qv(), as it will deal with developer release number
+            ### ie ones containing _ as well. This addresses bug report
+            ### #29348: Version compare logic doesn't handle alphas?
+            ###
+            ### Update from JPeacock: apparently qv() and version->new
+            ### are different things, and we *must* use version->new
+            ### here, or things like #30056 might start happening
+            if (    !$args->{nocache}
+                    && defined $CACHE->{$mod}->{usable}
+                    && (version->new( $CACHE->{$mod}->{version}||0 )
+                        >= version->new( $href->{$mod} ) )
+            ) {
+                $error = loc( q[Already tried to use '%1', which was unsuccessful], $mod);
+                last BLOCK;
+            }
+
+            my $mod_data = check_install(
+                                    module  => $mod,
+                                    version => $href->{$mod}
+                                );
+
+            if( !$mod_data or !defined $mod_data->{file} ) {
+                $error = loc(q[Could not find or check module '%1'], $mod);
+                $CACHE->{$mod}->{usable} = 0;
+                last BLOCK;
+            }
+
+            map {
+                $CACHE->{$mod}->{$_} = $mod_data->{$_}
+            } qw[version file uptodate];
+
+            push @load, $mod;
+        }
+
+        for my $mod ( @load ) {
+
+            if ( $CACHE->{$mod}->{uptodate} ) {
+
+                if ( $args->{autoload} ) {
+                    my $who = (caller())[0];
+                    eval { autoload_remote $who, $mod };
+                } else {
+                    eval { load $mod };
+                }
+
+                ### in case anything goes wrong, log the error, the fact
+                ### we tried to use this module and return 0;
+                if( $@ ) {
+                    $error = $@;
+                    $CACHE->{$mod}->{usable} = 0;
+                    last BLOCK;
+                } else {
+                    $CACHE->{$mod}->{usable} = 1;
+                }
+
+            ### module not found in @INC, store the result in
+            ### $CACHE and return 0
+            } else {
+
+                $error = loc(q[Module '%1' is not uptodate!], $mod);
+                $CACHE->{$mod}->{usable} = 0;
+                last BLOCK;
+            }
+        }
+
+    } # BLOCK
+
+    if( defined $error ) {
+        $ERROR = $error;
+        Carp::carp( loc(q|%1 [THIS MAY BE A PROBLEM!]|,$error) ) if $args->{verbose};
+        return;
+    } else {
+        return 1;
+    }
+}
+
+=back
+
+=head2 @list = requires( MODULE );
+
+C<requires> can tell you what other modules a particular module
+requires. This is particularly useful when you're intending to write
+a module for public release and are listing its prerequisites.
+
+C<requires> takes but one argument: the name of a module.
+It will then first check if it can actually load this module, and
+return undef if it can't.
+Otherwise, it will return a list of modules and pragmas that would
+have been loaded on the module's behalf.
+
+Note: The list C<require> returns has originated from your current
+perl and your current install.
+
+=cut
+
+sub requires {
+    my $who = shift;
+
+    unless( check_install( module => $who ) ) {
+        warn loc(q[You do not have module '%1' installed], $who) if $VERBOSE;
+        return undef;
+    }
+
+    my $lib = join " ", map { qq["-I$_"] } @INC;
+    my $oneliner = 'print(join(qq[\n],map{qq[BONG=$_]}keys(%INC)),qq[\n])';
+    my $cmd = join '', qq["$^X" $lib -M$who -e], QUOTE, $oneliner, QUOTE;
+
+    return  sort
+                grep { !/^$who$/  }
+                map  { chomp; s|/|::|g; $_ }
+                grep { s|\.pm$||i; }
+                map  { s!^BONG\=!!; $_ }
+                grep { m!^BONG\=! }
+            `$cmd`;
+}
+
+1;
+
+__END__
+
+=head1 Global Variables
+
+The behaviour of Module::Load::Conditional can be altered by changing the
+following global variables:
+
+=head2 $Module::Load::Conditional::VERBOSE
+
+This controls whether Module::Load::Conditional will issue warnings and
+explanations as to why certain things may have failed. If you set it
+to 0, Module::Load::Conditional will not output any warnings.
+The default is 0;
+
+=head2 $Module::Load::Conditional::FIND_VERSION
+
+This controls whether Module::Load::Conditional will try to parse
+(and eval) the version from the module you're trying to load.
+
+If you don't wish to do this, set this variable to C<false>. Understand
+then that version comparisons are not possible, and Module::Load::Conditional
+can not tell you what module version you have installed.
+This may be desirable from a security or performance point of view.
+Note that C<$FIND_VERSION> code runs safely under C<taint mode>.
+
+The default is 1;
+
+=head2 $Module::Load::Conditional::CHECK_INC_HASH
+
+This controls whether C<Module::Load::Conditional> checks your
+C<%INC> hash to see if a module is available. By default, only
+C<@INC> is scanned to see if a module is physically on your
+filesystem, or available via an C<@INC-hook>. Setting this variable
+to C<true> will trust any entries in C<%INC> and return them for
+you.
+
+The default is 0;
+
+=head2 $Module::Load::Conditional::CACHE
+
+This holds the cache of the C<can_load> function. If you explicitly
+want to remove the current cache, you can set this variable to
+C<undef>
+
+=head2 $Module::Load::Conditional::ERROR
+
+This holds a string of the last error that happened during a call to
+C<can_load>. It is useful to inspect this when C<can_load> returns
+C<undef>.
+
+=head2 $Module::Load::Conditional::DEPRECATED
+
+This controls whether C<Module::Load::Conditional> checks if
+a dual-life core module has been deprecated. If this is set to
+true C<check_install> will return false to C<uptodate>, if
+a dual-life module is found to be loaded from C<$Config{privlibexp}>
+
+The default is 0;
+
+=head1 See Also
+
+C<Module::Load>
+
+=head1 BUG REPORTS
+
+Please report bugs or other issues to E<lt>bug-module-load-conditional@rt.cpan.orgE<gt>.
+
+=head1 AUTHOR
+
+This module by Jos Boumans E<lt>kane@cpan.orgE<gt>.
+
+=head1 COPYRIGHT
+
+This library is free software; you may redistribute and/or modify it
+under the same terms as Perl itself.
+
+=cut
diff --git a/lib/5.24.1/Module/Loaded.pm b/lib/5.24.1/Module/Loaded.pm
new file mode 100644
index 00000000..6da625ab
--- /dev/null
+++ b/lib/5.24.1/Module/Loaded.pm
@@ -0,0 +1,142 @@
+package Module::Loaded;
+
+use strict;
+use Carp qw[carp];
+
+BEGIN { use base 'Exporter';
+        use vars qw[@EXPORT $VERSION];
+
+        $VERSION = '0.08';
+        @EXPORT  = qw[mark_as_loaded mark_as_unloaded is_loaded];
+}
+
+=head1 NAME
+
+Module::Loaded - mark modules as loaded or unloaded
+
+=head1 SYNOPSIS
+
+    use Module::Loaded;
+
+    $bool = mark_as_loaded('Foo');   # Foo.pm is now marked as loaded
+    $loc  = is_loaded('Foo');        # location of Foo.pm set to the
+                                     # loaders location
+    eval "require 'Foo'";            # is now a no-op
+
+    $bool = mark_as_unloaded('Foo'); # Foo.pm no longer marked as loaded
+    eval "require 'Foo'";            # Will try to find Foo.pm in @INC
+
+=head1 DESCRIPTION
+
+When testing applications, often you find yourself needing to provide
+functionality in your test environment that would usually be provided
+by external modules. Rather than munging the C<%INC> by hand to mark
+these external modules as loaded, so they are not attempted to be loaded
+by perl, this module offers you a very simple way to mark modules as
+loaded and/or unloaded.
+
+=head1 FUNCTIONS
+
+=head2 $bool = mark_as_loaded( PACKAGE );
+
+Marks the package as loaded to perl. C<PACKAGE> can be a bareword or
+string.
+
+If the module is already loaded, C<mark_as_loaded> will carp about
+this and tell you from where the C<PACKAGE> has been loaded already.
+
+=cut
+
+sub mark_as_loaded (*) {
+    my $pm      = shift;
+    my $file    = __PACKAGE__->_pm_to_file( $pm ) or return;
+    my $who     = [caller]->[1];
+
+    my $where   = is_loaded( $pm );
+    if ( defined $where ) {
+        carp "'$pm' already marked as loaded ('$where')";
+
+    } else {
+        $INC{$file} = $who;
+    }
+
+    return 1;
+}
+
+=head2 $bool = mark_as_unloaded( PACKAGE );
+
+Marks the package as unloaded to perl, which is the exact opposite
+of C<mark_as_loaded>. C<PACKAGE> can be a bareword or string.
+
+If the module is already unloaded, C<mark_as_unloaded> will carp about
+this and tell you the C<PACKAGE> has been unloaded already.
+
+=cut
+
+sub mark_as_unloaded (*) {
+    my $pm      = shift;
+    my $file    = __PACKAGE__->_pm_to_file( $pm ) or return;
+
+    unless( defined is_loaded( $pm ) ) {
+        carp "'$pm' already marked as unloaded";
+
+    } else {
+        delete $INC{ $file };
+    }
+
+    return 1;
+}
+
+=head2 $loc = is_loaded( PACKAGE );
+
+C<is_loaded> tells you if C<PACKAGE> has been marked as loaded yet.
+C<PACKAGE> can be a bareword or string.
+
+It returns falls if C<PACKAGE> has not been loaded yet and the location
+from where it is said to be loaded on success.
+
+=cut
+
+sub is_loaded (*) {
+    my $pm      = shift;
+    my $file    = __PACKAGE__->_pm_to_file( $pm ) or return;
+
+    return $INC{$file} if exists $INC{$file};
+
+    return;
+}
+
+
+sub _pm_to_file {
+    my $pkg = shift;
+    my $pm  = shift or return;
+
+    my $file = join '/', split '::', $pm;
+    $file .= '.pm';
+
+    return $file;
+}
+
+=head1 BUG REPORTS
+
+Please report bugs or other issues to E<lt>bug-module-loaded@rt.cpan.org<gt>.
+
+=head1 AUTHOR
+
+This module by Jos Boumans E<lt>kane@cpan.orgE<gt>.
+
+=head1 COPYRIGHT
+
+This library is free software; you may redistribute and/or modify it
+under the same terms as Perl itself.
+
+=cut
+
+# Local variables:
+# c-indentation-style: bsd
+# c-basic-offset: 4
+# indent-tabs-mode: nil
+# End:
+# vim: expandtab shiftwidth=4:
+
+1;
diff --git a/lib/5.24.1/Module/Metadata.pm b/lib/5.24.1/Module/Metadata.pm
new file mode 100644
index 00000000..f7017cf9
--- /dev/null
+++ b/lib/5.24.1/Module/Metadata.pm
@@ -0,0 +1,1155 @@
+# -*- mode: cperl; tab-width: 8; indent-tabs-mode: nil; basic-offset: 2 -*-
+# vim:ts=8:sw=2:et:sta:sts=2
+package Module::Metadata; # git description: v1.000030-2-g52f466c
+# ABSTRACT: Gather package and POD information from perl module files
+
+# Adapted from Perl-licensed code originally distributed with
+# Module-Build by Ken Williams
+
+# This module provides routines to gather information about
+# perl modules (assuming this may be expanded in the distant
+# parrot future to look at other types of modules).
+
+sub __clean_eval { eval $_[0] }
+use strict;
+use warnings;
+
+our $VERSION = '1.000031'; # TRIAL
+
+use Carp qw/croak/;
+use File::Spec;
+BEGIN {
+       # Try really hard to not depend ony any DynaLoaded module, such as IO::File or Fcntl
+       eval {
+               require Fcntl; Fcntl->import('SEEK_SET'); 1;
+       } or *SEEK_SET = sub { 0 }
+}
+use version 0.87;
+BEGIN {
+  if ($INC{'Log/Contextual.pm'}) {
+    require "Log/Contextual/WarnLogger.pm"; # Hide from AutoPrereqs
+    Log::Contextual->import('log_info',
+      '-default_logger' => Log::Contextual::WarnLogger->new({ env_prefix => 'MODULE_METADATA', }),
+    );
+  }
+  else {
+    *log_info = sub (&) { warn $_[0]->() };
+  }
+}
+use File::Find qw(find);
+
+my $V_NUM_REGEXP = qr{v?[0-9._]+};  # crudely, a v-string or decimal
+
+my $PKG_FIRST_WORD_REGEXP = qr{ # the FIRST word in a package name
+  [a-zA-Z_]                     # the first word CANNOT start with a digit
+    (?:
+      [\w']?                    # can contain letters, digits, _, or ticks
+      \w                        # But, NO multi-ticks or trailing ticks
+    )*
+}x;
+
+my $PKG_ADDL_WORD_REGEXP = qr{ # the 2nd+ word in a package name
+  \w                           # the 2nd+ word CAN start with digits
+    (?:
+      [\w']?                   # and can contain letters or ticks
+      \w                       # But, NO multi-ticks or trailing ticks
+    )*
+}x;
+
+my $PKG_NAME_REGEXP = qr{ # match a package name
+  (?: :: )?               # a pkg name can start with arisdottle
+  $PKG_FIRST_WORD_REGEXP  # a package word
+  (?:
+    (?: :: )+             ### arisdottle (allow one or many times)
+    $PKG_ADDL_WORD_REGEXP ### a package word
+  )*                      # ^ zero, one or many times
+  (?:
+    ::                    # allow trailing arisdottle
+  )?
+}x;
+
+my $PKG_REGEXP  = qr{   # match a package declaration
+  ^[\s\{;]*             # intro chars on a line
+  package               # the word 'package'
+  \s+                   # whitespace
+  ($PKG_NAME_REGEXP)    # a package name
+  \s*                   # optional whitespace
+  ($V_NUM_REGEXP)?        # optional version number
+  \s*                   # optional whitesapce
+  [;\{]                 # semicolon line terminator or block start (since 5.16)
+}x;
+
+my $VARNAME_REGEXP = qr{ # match fully-qualified VERSION name
+  ([\$*])         # sigil - $ or *
+  (
+    (             # optional leading package name
+      (?:::|\')?  # possibly starting like just :: (a la $::VERSION)
+      (?:\w+(?:::|\'))*  # Foo::Bar:: ...
+    )?
+    VERSION
+  )\b
+}x;
+
+my $VERS_REGEXP = qr{ # match a VERSION definition
+  (?:
+    \(\s*$VARNAME_REGEXP\s*\) # with parens
+  |
+    $VARNAME_REGEXP           # without parens
+  )
+  \s*
+  =[^=~>]  # = but not ==, nor =~, nor =>
+}x;
+
+sub new_from_file {
+  my $class    = shift;
+  my $filename = File::Spec->rel2abs( shift );
+
+  return undef unless defined( $filename ) && -f $filename;
+  return $class->_init(undef, $filename, @_);
+}
+
+sub new_from_handle {
+  my $class    = shift;
+  my $handle   = shift;
+  my $filename = shift;
+  return undef unless defined($handle) && defined($filename);
+  $filename = File::Spec->rel2abs( $filename );
+
+  return $class->_init(undef, $filename, @_, handle => $handle);
+
+}
+
+
+sub new_from_module {
+  my $class   = shift;
+  my $module  = shift;
+  my %props   = @_;
+
+  $props{inc} ||= \@INC;
+  my $filename = $class->find_module_by_name( $module, $props{inc} );
+  return undef unless defined( $filename ) && -f $filename;
+  return $class->_init($module, $filename, %props);
+}
+
+{
+
+  my $compare_versions = sub {
+    my ($v1, $op, $v2) = @_;
+    $v1 = version->new($v1)
+      unless UNIVERSAL::isa($v1,'version');
+
+    my $eval_str = "\$v1 $op \$v2";
+    my $result   = eval $eval_str;
+    log_info { "error comparing versions: '$eval_str' $@" } if $@;
+
+    return $result;
+  };
+
+  my $normalize_version = sub {
+    my ($version) = @_;
+    if ( $version =~ /[=<>!,]/ ) { # logic, not just version
+      # take as is without modification
+    }
+    elsif ( ref $version eq 'version' ) { # version objects
+      $version = $version->is_qv ? $version->normal : $version->stringify;
+    }
+    elsif ( $version =~ /^[^v][^.]*\.[^.]+\./ ) { # no leading v, multiple dots
+      # normalize string tuples without "v": "1.2.3" -> "v1.2.3"
+      $version = "v$version";
+    }
+    else {
+      # leave alone
+    }
+    return $version;
+  };
+
+  # separate out some of the conflict resolution logic
+
+  my $resolve_module_versions = sub {
+    my $packages = shift;
+
+    my( $file, $version );
+    my $err = '';
+      foreach my $p ( @$packages ) {
+        if ( defined( $p->{version} ) ) {
+          if ( defined( $version ) ) {
+            if ( $compare_versions->( $version, '!=', $p->{version} ) ) {
+              $err .= "  $p->{file} ($p->{version})\n";
+            }
+            else {
+              # same version declared multiple times, ignore
+            }
+          }
+          else {
+            $file    = $p->{file};
+            $version = $p->{version};
+          }
+        }
+      $file ||= $p->{file} if defined( $p->{file} );
+    }
+
+    if ( $err ) {
+      $err = "  $file ($version)\n" . $err;
+    }
+
+    my %result = (
+      file    => $file,
+      version => $version,
+      err     => $err
+    );
+
+    return \%result;
+  };
+
+  sub provides {
+    my $class = shift;
+
+    croak "provides() requires key/value pairs \n" if @_ % 2;
+    my %args = @_;
+
+    croak "provides() takes only one of 'dir' or 'files'\n"
+      if $args{dir} && $args{files};
+
+    croak "provides() requires a 'version' argument"
+      unless defined $args{version};
+
+    croak "provides() does not support version '$args{version}' metadata"
+        unless grep { $args{version} eq $_ } qw/1.4 2/;
+
+    $args{prefix} = 'lib' unless defined $args{prefix};
+
+    my $p;
+    if ( $args{dir} ) {
+      $p = $class->package_versions_from_directory($args{dir});
+    }
+    else {
+      croak "provides() requires 'files' to be an array reference\n"
+        unless ref $args{files} eq 'ARRAY';
+      $p = $class->package_versions_from_directory($args{files});
+    }
+
+    # Now, fix up files with prefix
+    if ( length $args{prefix} ) { # check in case disabled with q{}
+      $args{prefix} =~ s{/$}{};
+      for my $v ( values %$p ) {
+        $v->{file} = "$args{prefix}/$v->{file}";
+      }
+    }
+
+    return $p
+  }
+
+  sub package_versions_from_directory {
+    my ( $class, $dir, $files ) = @_;
+
+    my @files;
+
+    if ( $files ) {
+      @files = @$files;
+    }
+    else {
+      find( {
+        wanted => sub {
+          push @files, $_ if -f $_ && /\.pm$/;
+        },
+        no_chdir => 1,
+      }, $dir );
+    }
+
+    # First, we enumerate all packages & versions,
+    # separating into primary & alternative candidates
+    my( %prime, %alt );
+    foreach my $file (@files) {
+      my $mapped_filename = File::Spec::Unix->abs2rel( $file, $dir );
+      my @path = split( /\//, $mapped_filename );
+      (my $prime_package = join( '::', @path )) =~ s/\.pm$//;
+
+      my $pm_info = $class->new_from_file( $file );
+
+      foreach my $package ( $pm_info->packages_inside ) {
+        next if $package eq 'main';  # main can appear numerous times, ignore
+        next if $package eq 'DB';    # special debugging package, ignore
+        next if grep /^_/, split( /::/, $package ); # private package, ignore
+
+        my $version = $pm_info->version( $package );
+
+        $prime_package = $package if lc($prime_package) eq lc($package);
+        if ( $package eq $prime_package ) {
+          if ( exists( $prime{$package} ) ) {
+            croak "Unexpected conflict in '$package'; multiple versions found.\n";
+          }
+          else {
+            $mapped_filename = "$package.pm" if lc("$package.pm") eq lc($mapped_filename);
+            $prime{$package}{file} = $mapped_filename;
+            $prime{$package}{version} = $version if defined( $version );
+          }
+        }
+        else {
+          push( @{$alt{$package}}, {
+                                    file    => $mapped_filename,
+                                    version => $version,
+                                   } );
+        }
+      }
+    }
+
+    # Then we iterate over all the packages found above, identifying conflicts
+    # and selecting the "best" candidate for recording the file & version
+    # for each package.
+    foreach my $package ( keys( %alt ) ) {
+      my $result = $resolve_module_versions->( $alt{$package} );
+
+      if ( exists( $prime{$package} ) ) { # primary package selected
+
+        if ( $result->{err} ) {
+        # Use the selected primary package, but there are conflicting
+        # errors among multiple alternative packages that need to be
+        # reported
+          log_info {
+            "Found conflicting versions for package '$package'\n" .
+            "  $prime{$package}{file} ($prime{$package}{version})\n" .
+            $result->{err}
+          };
+
+        }
+        elsif ( defined( $result->{version} ) ) {
+        # There is a primary package selected, and exactly one
+        # alternative package
+
+        if ( exists( $prime{$package}{version} ) &&
+             defined( $prime{$package}{version} ) ) {
+          # Unless the version of the primary package agrees with the
+          # version of the alternative package, report a conflict
+        if ( $compare_versions->(
+                 $prime{$package}{version}, '!=', $result->{version}
+               )
+             ) {
+
+            log_info {
+              "Found conflicting versions for package '$package'\n" .
+              "  $prime{$package}{file} ($prime{$package}{version})\n" .
+              "  $result->{file} ($result->{version})\n"
+            };
+          }
+
+        }
+        else {
+          # The prime package selected has no version so, we choose to
+          # use any alternative package that does have a version
+          $prime{$package}{file}    = $result->{file};
+          $prime{$package}{version} = $result->{version};
+        }
+
+        }
+        else {
+        # no alt package found with a version, but we have a prime
+        # package so we use it whether it has a version or not
+        }
+
+      }
+      else { # No primary package was selected, use the best alternative
+
+        if ( $result->{err} ) {
+          log_info {
+            "Found conflicting versions for package '$package'\n" .
+            $result->{err}
+          };
+        }
+
+        # Despite possible conflicting versions, we choose to record
+        # something rather than nothing
+        $prime{$package}{file}    = $result->{file};
+        $prime{$package}{version} = $result->{version}
+          if defined( $result->{version} );
+      }
+    }
+
+    # Normalize versions.  Can't use exists() here because of bug in YAML::Node.
+    # XXX "bug in YAML::Node" comment seems irrelevant -- dagolden, 2009-05-18
+    for (grep defined $_->{version}, values %prime) {
+      $_->{version} = $normalize_version->( $_->{version} );
+    }
+
+    return \%prime;
+  }
+}
+
+
+sub _init {
+  my $class    = shift;
+  my $module   = shift;
+  my $filename = shift;
+  my %props = @_;
+
+  my $handle = delete $props{handle};
+  my( %valid_props, @valid_props );
+  @valid_props = qw( collect_pod inc );
+  @valid_props{@valid_props} = delete( @props{@valid_props} );
+  warn "Unknown properties: @{[keys %props]}\n" if scalar( %props );
+
+  my %data = (
+    module       => $module,
+    filename     => $filename,
+    version      => undef,
+    packages     => [],
+    versions     => {},
+    pod          => {},
+    pod_headings => [],
+    collect_pod  => 0,
+
+    %valid_props,
+  );
+
+  my $self = bless(\%data, $class);
+
+  if ( not $handle ) {
+    my $filename = $self->{filename};
+    open $handle, '<', $filename
+      or croak( "Can't open '$filename': $!" );
+
+    $self->_handle_bom($handle, $filename);
+  }
+  $self->_parse_fh($handle);
+
+  unless($self->{module} and length($self->{module})) {
+    my ($v, $d, $f) = File::Spec->splitpath($self->{filename});
+    if($f =~ /\.pm$/) {
+      $f =~ s/\..+$//;
+      my @candidates = grep /$f$/, @{$self->{packages}};
+      $self->{module} = shift(@candidates); # punt
+    }
+    else {
+      $self->{module} = 'main';
+    }
+  }
+
+  $self->{version} = $self->{versions}{$self->{module}}
+    if defined( $self->{module} );
+
+  return $self;
+}
+
+# class method
+sub _do_find_module {
+  my $class   = shift;
+  my $module  = shift || croak 'find_module_by_name() requires a package name';
+  my $dirs    = shift || \@INC;
+
+  my $file = File::Spec->catfile(split( /::/, $module));
+  foreach my $dir ( @$dirs ) {
+    my $testfile = File::Spec->catfile($dir, $file);
+    return [ File::Spec->rel2abs( $testfile ), $dir ]
+      if -e $testfile and !-d _;  # For stuff like ExtUtils::xsubpp
+    $testfile .= '.pm';
+    return [ File::Spec->rel2abs( $testfile ), $dir ]
+      if -e $testfile;
+  }
+  return;
+}
+
+# class method
+sub find_module_by_name {
+  my $found = shift()->_do_find_module(@_) or return;
+  return $found->[0];
+}
+
+# class method
+sub find_module_dir_by_name {
+  my $found = shift()->_do_find_module(@_) or return;
+  return $found->[1];
+}
+
+
+# given a line of perl code, attempt to parse it if it looks like a
+# $VERSION assignment, returning sigil, full name, & package name
+sub _parse_version_expression {
+  my $self = shift;
+  my $line = shift;
+
+  my( $sigil, $variable_name, $package);
+  if ( $line =~ /$VERS_REGEXP/o ) {
+    ( $sigil, $variable_name, $package) = $2 ? ( $1, $2, $3 ) : ( $4, $5, $6 );
+    if ( $package ) {
+      $package = ($package eq '::') ? 'main' : $package;
+      $package =~ s/::$//;
+    }
+  }
+
+  return ( $sigil, $variable_name, $package );
+}
+
+# Look for a UTF-8/UTF-16BE/UTF-16LE BOM at the beginning of the stream.
+# If there's one, then skip it and set the :encoding layer appropriately.
+sub _handle_bom {
+  my ($self, $fh, $filename) = @_;
+
+  my $pos = tell $fh;
+  return unless defined $pos;
+
+  my $buf = ' ' x 2;
+  my $count = read $fh, $buf, length $buf;
+  return unless defined $count and $count >= 2;
+
+  my $encoding;
+  if ( $buf eq "\x{FE}\x{FF}" ) {
+    $encoding = 'UTF-16BE';
+  }
+  elsif ( $buf eq "\x{FF}\x{FE}" ) {
+    $encoding = 'UTF-16LE';
+  }
+  elsif ( $buf eq "\x{EF}\x{BB}" ) {
+    $buf = ' ';
+    $count = read $fh, $buf, length $buf;
+    if ( defined $count and $count >= 1 and $buf eq "\x{BF}" ) {
+      $encoding = 'UTF-8';
+    }
+  }
+
+  if ( defined $encoding ) {
+    if ( "$]" >= 5.008 ) {
+      binmode( $fh, ":encoding($encoding)" );
+    }
+  }
+  else {
+    seek $fh, $pos, SEEK_SET
+      or croak( sprintf "Can't reset position to the top of '$filename'" );
+  }
+
+  return $encoding;
+}
+
+sub _parse_fh {
+  my ($self, $fh) = @_;
+
+  my( $in_pod, $seen_end, $need_vers ) = ( 0, 0, 0 );
+  my( @packages, %vers, %pod, @pod );
+  my $package = 'main';
+  my $pod_sect = '';
+  my $pod_data = '';
+  my $in_end = 0;
+
+  while (defined( my $line = <$fh> )) {
+    my $line_num = $.;
+
+    chomp( $line );
+
+    # From toke.c : any line that begins by "=X", where X is an alphabetic
+    # character, introduces a POD segment.
+    my $is_cut;
+    if ( $line =~ /^=([a-zA-Z].*)/ ) {
+      my $cmd = $1;
+      # Then it goes back to Perl code for "=cutX" where X is a non-alphabetic
+      # character (which includes the newline, but here we chomped it away).
+      $is_cut = $cmd =~ /^cut(?:[^a-zA-Z]|$)/;
+      $in_pod = !$is_cut;
+    }
+
+    if ( $in_pod ) {
+
+      if ( $line =~ /^=head[1-4]\s+(.+)\s*$/ ) {
+        push( @pod, $1 );
+        if ( $self->{collect_pod} && length( $pod_data ) ) {
+          $pod{$pod_sect} = $pod_data;
+          $pod_data = '';
+        }
+        $pod_sect = $1;
+      }
+      elsif ( $self->{collect_pod} ) {
+        $pod_data .= "$line\n";
+      }
+      next;
+    }
+    elsif ( $is_cut ) {
+      if ( $self->{collect_pod} && length( $pod_data ) ) {
+        $pod{$pod_sect} = $pod_data;
+        $pod_data = '';
+      }
+      $pod_sect = '';
+      next;
+    }
+
+    # Skip after __END__
+    next if $in_end;
+
+    # Skip comments in code
+    next if $line =~ /^\s*#/;
+
+    # Would be nice if we could also check $in_string or something too
+    if ($line eq '__END__') {
+      $in_end++;
+      next;
+    }
+
+    last if $line eq '__DATA__';
+
+    # parse $line to see if it's a $VERSION declaration
+    my( $version_sigil, $version_fullname, $version_package ) =
+      index($line, 'VERSION') >= 1
+        ? $self->_parse_version_expression( $line )
+        : ();
+
+    if ( $line =~ /$PKG_REGEXP/o ) {
+      $package = $1;
+      my $version = $2;
+      push( @packages, $package ) unless grep( $package eq $_, @packages );
+      $need_vers = defined $version ? 0 : 1;
+
+      if ( not exists $vers{$package} and defined $version ){
+        # Upgrade to a version object.
+        my $dwim_version = eval { _dwim_version($version) };
+        croak "Version '$version' from $self->{filename} does not appear to be valid:\n$line\n\nThe fatal error was: $@\n"
+          unless defined $dwim_version;  # "0" is OK!
+        $vers{$package} = $dwim_version;
+      }
+    }
+
+    # VERSION defined with full package spec, i.e. $Module::VERSION
+    elsif ( $version_fullname && $version_package ) {
+      # we do NOT save this package in found @packages
+      $need_vers = 0 if $version_package eq $package;
+
+      unless ( defined $vers{$version_package} && length $vers{$version_package} ) {
+        $vers{$version_package} = $self->_evaluate_version_line( $version_sigil, $version_fullname, $line );
+      }
+    }
+
+    # first non-comment line in undeclared package main is VERSION
+    elsif ( $package eq 'main' && $version_fullname && !exists($vers{main}) ) {
+      $need_vers = 0;
+      my $v = $self->_evaluate_version_line( $version_sigil, $version_fullname, $line );
+      $vers{$package} = $v;
+      push( @packages, 'main' );
+    }
+
+    # first non-comment line in undeclared package defines package main
+    elsif ( $package eq 'main' && !exists($vers{main}) && $line =~ /\w/ ) {
+      $need_vers = 1;
+      $vers{main} = '';
+      push( @packages, 'main' );
+    }
+
+    # only keep if this is the first $VERSION seen
+    elsif ( $version_fullname && $need_vers ) {
+      $need_vers = 0;
+      my $v = $self->_evaluate_version_line( $version_sigil, $version_fullname, $line );
+
+      unless ( defined $vers{$package} && length $vers{$package} ) {
+        $vers{$package} = $v;
+      }
+    }
+  } # end loop over each line
+
+  if ( $self->{collect_pod} && length($pod_data) ) {
+    $pod{$pod_sect} = $pod_data;
+  }
+
+  $self->{versions} = \%vers;
+  $self->{packages} = \@packages;
+  $self->{pod} = \%pod;
+  $self->{pod_headings} = \@pod;
+}
+
+{
+my $pn = 0;
+sub _evaluate_version_line {
+  my $self = shift;
+  my( $sigil, $variable_name, $line ) = @_;
+
+  # We compile into a local sub because 'use version' would cause
+  # compiletime/runtime issues with local()
+  $pn++; # everybody gets their own package
+  my $eval = qq{ my \$dummy = q#  Hide from _packages_inside()
+    #; package Module::Metadata::_version::p${pn};
+    use version;
+    sub {
+      local $sigil$variable_name;
+      $line;
+      return \$$variable_name if defined \$$variable_name;
+      return \$Module::Metadata::_version::p${pn}::$variable_name;
+    };
+  };
+
+  $eval = $1 if $eval =~ m{^(.+)}s;
+
+  local $^W;
+  # Try to get the $VERSION
+  my $vsub = __clean_eval($eval);
+  # some modules say $VERSION <equal sign> $Foo::Bar::VERSION, but Foo::Bar isn't
+  # installed, so we need to hunt in ./lib for it
+  if ( $@ =~ /Can't locate/ && -d 'lib' ) {
+    local @INC = ('lib',@INC);
+    $vsub = __clean_eval($eval);
+  }
+  warn "Error evaling version line '$eval' in $self->{filename}: $@\n"
+    if $@;
+
+  (ref($vsub) eq 'CODE') or
+    croak "failed to build version sub for $self->{filename}";
+
+  my $result = eval { $vsub->() };
+  # FIXME: $eval is not the right thing to print here
+  croak "Could not get version from $self->{filename} by executing:\n$eval\n\nThe fatal error was: $@\n"
+    if $@;
+
+  # Upgrade it into a version object
+  my $version = eval { _dwim_version($result) };
+
+  # FIXME: $eval is not the right thing to print here
+  croak "Version '$result' from $self->{filename} does not appear to be valid:\n$eval\n\nThe fatal error was: $@\n"
+    unless defined $version; # "0" is OK!
+
+  return $version;
+}
+}
+
+# Try to DWIM when things fail the lax version test in obvious ways
+{
+  my @version_prep = (
+    # Best case, it just works
+    sub { return shift },
+
+    # If we still don't have a version, try stripping any
+    # trailing junk that is prohibited by lax rules
+    sub {
+      my $v = shift;
+      $v =~ s{([0-9])[a-z-].*$}{$1}i; # 1.23-alpha or 1.23b
+      return $v;
+    },
+
+    # Activestate apparently creates custom versions like '1.23_45_01', which
+    # cause version.pm to think it's an invalid alpha.  So check for that
+    # and strip them
+    sub {
+      my $v = shift;
+      my $num_dots = () = $v =~ m{(\.)}g;
+      my $num_unders = () = $v =~ m{(_)}g;
+      my $leading_v = substr($v,0,1) eq 'v';
+      if ( ! $leading_v && $num_dots < 2 && $num_unders > 1 ) {
+        $v =~ s{_}{}g;
+        $num_unders = () = $v =~ m{(_)}g;
+      }
+      return $v;
+    },
+
+    # Worst case, try numifying it like we would have before version objects
+    sub {
+      my $v = shift;
+      no warnings 'numeric';
+      return 0 + $v;
+    },
+
+  );
+
+  sub _dwim_version {
+    my ($result) = shift;
+
+    return $result if ref($result) eq 'version';
+
+    my ($version, $error);
+    for my $f (@version_prep) {
+      $result = $f->($result);
+      $version = eval { version->new($result) };
+      $error ||= $@ if $@; # capture first failure
+      last if defined $version;
+    }
+
+    croak $error unless defined $version;
+
+    return $version;
+  }
+}
+
+############################################################
+
+# accessors
+sub name            { $_[0]->{module}            }
+
+sub filename        { $_[0]->{filename}          }
+sub packages_inside { @{$_[0]->{packages}}       }
+sub pod_inside      { @{$_[0]->{pod_headings}}   }
+sub contains_pod    { 0+@{$_[0]->{pod_headings}} }
+
+sub version {
+    my $self = shift;
+    my $mod  = shift || $self->{module};
+    my $vers;
+    if ( defined( $mod ) && length( $mod ) &&
+         exists( $self->{versions}{$mod} ) ) {
+        return $self->{versions}{$mod};
+    }
+    else {
+        return undef;
+    }
+}
+
+sub pod {
+    my $self = shift;
+    my $sect = shift;
+    if ( defined( $sect ) && length( $sect ) &&
+         exists( $self->{pod}{$sect} ) ) {
+        return $self->{pod}{$sect};
+    }
+    else {
+        return undef;
+    }
+}
+
+sub is_indexable {
+  my ($self, $package) = @_;
+
+  my @indexable_packages = grep { $_ ne 'main' } $self->packages_inside;
+
+  # check for specific package, if provided
+  return !! grep { $_ eq $package } @indexable_packages if $package;
+
+  # otherwise, check for any indexable packages at all
+  return !! @indexable_packages;
+}
+
+1;
+
+__END__
+
+=pod
+
+=encoding UTF-8
+
+=head1 NAME
+
+Module::Metadata - Gather package and POD information from perl module files
+
+=head1 VERSION
+
+version 1.000031
+
+=head1 SYNOPSIS
+
+  use Module::Metadata;
+
+  # information about a .pm file
+  my $info = Module::Metadata->new_from_file( $file );
+  my $version = $info->version;
+
+  # CPAN META 'provides' field for .pm files in a directory
+  my $provides = Module::Metadata->provides(
+    dir => 'lib', version => 2
+  );
+
+=head1 DESCRIPTION
+
+This module provides a standard way to gather metadata about a .pm file through
+(mostly) static analysis and (some) code execution.  When determining the
+version of a module, the C<$VERSION> assignment is C<eval>ed, as is traditional
+in the CPAN toolchain.
+
+=head1 CLASS METHODS
+
+=head2 C<< new_from_file($filename, collect_pod => 1) >>
+
+Constructs a C<Module::Metadata> object given the path to a file.  Returns
+undef if the filename does not exist.
+
+C<collect_pod> is a optional boolean argument that determines whether POD
+data is collected and stored for reference.  POD data is not collected by
+default.  POD headings are always collected.
+
+If the file begins by an UTF-8, UTF-16BE or UTF-16LE byte-order mark, then
+it is skipped before processing, and the content of the file is also decoded
+appropriately starting from perl 5.8.
+
+=head2 C<< new_from_handle($handle, $filename, collect_pod => 1) >>
+
+This works just like C<new_from_file>, except that a handle can be provided
+as the first argument.
+
+Note that there is no validation to confirm that the handle is a handle or
+something that can act like one.  Passing something that isn't a handle will
+cause a exception when trying to read from it.  The C<filename> argument is
+mandatory or undef will be returned.
+
+You are responsible for setting the decoding layers on C<$handle> if
+required.
+
+=head2 C<< new_from_module($module, collect_pod => 1, inc => \@dirs) >>
+
+Constructs a C<Module::Metadata> object given a module or package name.
+Returns undef if the module cannot be found.
+
+In addition to accepting the C<collect_pod> argument as described above,
+this method accepts a C<inc> argument which is a reference to an array of
+directories to search for the module.  If none are given, the default is
+@INC.
+
+If the file that contains the module begins by an UTF-8, UTF-16BE or
+UTF-16LE byte-order mark, then it is skipped before processing, and the
+content of the file is also decoded appropriately starting from perl 5.8.
+
+=head2 C<< find_module_by_name($module, \@dirs) >>
+
+Returns the path to a module given the module or package name. A list
+of directories can be passed in as an optional parameter, otherwise
+@INC is searched.
+
+Can be called as either an object or a class method.
+
+=head2 C<< find_module_dir_by_name($module, \@dirs) >>
+
+Returns the entry in C<@dirs> (or C<@INC> by default) that contains
+the module C<$module>. A list of directories can be passed in as an
+optional parameter, otherwise @INC is searched.
+
+Can be called as either an object or a class method.
+
+=head2 C<< provides( %options ) >>
+
+This is a convenience wrapper around C<package_versions_from_directory>
+to generate a CPAN META C<provides> data structure.  It takes key/value
+pairs.  Valid option keys include:
+
+=over
+
+=item version B<(required)>
+
+Specifies which version of the L<CPAN::Meta::Spec> should be used as
+the format of the C<provides> output.  Currently only '1.4' and '2'
+are supported (and their format is identical).  This may change in
+the future as the definition of C<provides> changes.
+
+The C<version> option is required.  If it is omitted or if
+an unsupported version is given, then C<provides> will throw an error.
+
+=item dir
+
+Directory to search recursively for F<.pm> files.  May not be specified with
+C<files>.
+
+=item files
+
+Array reference of files to examine.  May not be specified with C<dir>.
+
+=item prefix
+
+String to prepend to the C<file> field of the resulting output. This defaults
+to F<lib>, which is the common case for most CPAN distributions with their
+F<.pm> files in F<lib>.  This option ensures the META information has the
+correct relative path even when the C<dir> or C<files> arguments are
+absolute or have relative paths from a location other than the distribution
+root.
+
+=back
+
+For example, given C<dir> of 'lib' and C<prefix> of 'lib', the return value
+is a hashref of the form:
+
+  {
+    'Package::Name' => {
+      version => '0.123',
+      file => 'lib/Package/Name.pm'
+    },
+    'OtherPackage::Name' => ...
+  }
+
+=head2 C<< package_versions_from_directory($dir, \@files?) >>
+
+Scans C<$dir> for .pm files (unless C<@files> is given, in which case looks
+for those files in C<$dir> - and reads each file for packages and versions,
+returning a hashref of the form:
+
+  {
+    'Package::Name' => {
+      version => '0.123',
+      file => 'Package/Name.pm'
+    },
+    'OtherPackage::Name' => ...
+  }
+
+The C<DB> and C<main> packages are always omitted, as are any "private"
+packages that have leading underscores in the namespace (e.g.
+C<Foo::_private>)
+
+Note that the file path is relative to C<$dir> if that is specified.
+This B<must not> be used directly for CPAN META C<provides>.  See
+the C<provides> method instead.
+
+=head2 C<< log_info (internal) >>
+
+Used internally to perform logging; imported from Log::Contextual if
+Log::Contextual has already been loaded, otherwise simply calls warn.
+
+=head1 OBJECT METHODS
+
+=head2 C<< name() >>
+
+Returns the name of the package represented by this module. If there
+is more than one package, it makes a best guess based on the
+filename. If it's a script (i.e. not a *.pm) the package name is
+'main'.
+
+=head2 C<< version($package) >>
+
+Returns the version as defined by the $VERSION variable for the
+package as returned by the C<name> method if no arguments are
+given. If given the name of a package it will attempt to return the
+version of that package if it is specified in the file.
+
+=head2 C<< filename() >>
+
+Returns the absolute path to the file.
+Note that this file may not actually exist on disk yet, e.g. if the module was read from an in-memory filehandle.
+
+=head2 C<< packages_inside() >>
+
+Returns a list of packages. Note: this is a raw list of packages
+discovered (or assumed, in the case of C<main>).  It is not
+filtered for C<DB>, C<main> or private packages the way the
+C<provides> method does.  Invalid package names are not returned,
+for example "Foo:Bar".  Strange but valid package names are
+returned, for example "Foo::Bar::", and are left up to the caller
+on how to handle.
+
+=head2 C<< pod_inside() >>
+
+Returns a list of POD sections.
+
+=head2 C<< contains_pod() >>
+
+Returns true if there is any POD in the file.
+
+=head2 C<< pod($section) >>
+
+Returns the POD data in the given section.
+
+=head2 C<< is_indexable($package) >> or C<< is_indexable() >>
+
+Available since version 1.000020.
+
+Returns a boolean indicating whether the package (if provided) or any package
+(otherwise) is eligible for indexing by PAUSE, the Perl Authors Upload Server.
+Note This only checks for valid C<package> declarations, and does not take any
+ownership information into account.
+
+=head1 SUPPORT
+
+Bugs may be submitted through L<the RT bug tracker|https://rt.cpan.org/Public/Dist/Display.html?Name=Module-Metadata>
+(or L<bug-Module-Metadata@rt.cpan.org|mailto:bug-Module-Metadata@rt.cpan.org>).
+
+There is also a mailing list available for users of this distribution, at
+L<http://lists.perl.org/list/cpan-workers.html>.
+
+There is also an irc channel available for users of this distribution, at
+L<irc://irc.perl.org/#toolchain>.
+
+=head1 AUTHOR
+
+Original code from Module::Build::ModuleInfo by Ken Williams
+<kwilliams@cpan.org>, Randy W. Sims <RandyS@ThePierianSpring.org>
+
+Released as Module::Metadata by Matt S Trout (mst) <mst@shadowcat.co.uk> with
+assistance from David Golden (xdg) <dagolden@cpan.org>.
+
+=head1 CONTRIBUTORS
+
+=for stopwords Karen Etheridge David Golden Vincent Pit Matt S Trout Chris Nehren Graham Knop Olivier Mengué Tomas Doran Tatsuhiko Miyagawa tokuhirom Peter Rabbitson Steve Hay Josh Jore Craig A. Berry Mitchell Steinbrunner Edward Zborowski Gareth Harper James Raspass Jerry D. Hedden 'BinGOs' Williams Kent Fredric
+
+=over 4
+
+=item *
+
+Karen Etheridge <ether@cpan.org>
+
+=item *
+
+David Golden <dagolden@cpan.org>
+
+=item *
+
+Vincent Pit <perl@profvince.com>
+
+=item *
+
+Matt S Trout <mst@shadowcat.co.uk>
+
+=item *
+
+Chris Nehren <apeiron@cpan.org>
+
+=item *
+
+Graham Knop <haarg@haarg.org>
+
+=item *
+
+Olivier Mengué <dolmen@cpan.org>
+
+=item *
+
+Tomas Doran <bobtfish@bobtfish.net>
+
+=item *
+
+Tatsuhiko Miyagawa <miyagawa@bulknews.net>
+
+=item *
+
+tokuhirom <tokuhirom@gmail.com>
+
+=item *
+
+Peter Rabbitson <ribasushi@cpan.org>
+
+=item *
+
+Steve Hay <steve.m.hay@googlemail.com>
+
+=item *
+
+Josh Jore <jjore@cpan.org>
+
+=item *
+
+Craig A. Berry <cberry@cpan.org>
+
+=item *
+
+David Mitchell <davem@iabyn.com>
+
+=item *
+
+David Steinbrunner <dsteinbrunner@pobox.com>
+
+=item *
+
+Edward Zborowski <ed@rubensteintech.com>
+
+=item *
+
+Gareth Harper <gareth@broadbean.com>
+
+=item *
+
+James Raspass <jraspass@gmail.com>
+
+=item *
+
+Jerry D. Hedden <jdhedden@cpan.org>
+
+=item *
+
+Chris 'BinGOs' Williams <chris@bingosnet.co.uk>
+
+=item *
+
+Kent Fredric <kentnl@cpan.org>
+
+=back
+
+=head1 COPYRIGHT & LICENSE
+
+Original code Copyright (c) 2001-2011 Ken Williams.
+Additional code Copyright (c) 2010-2011 Matt Trout and David Golden.
+All rights reserved.
+
+This library is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+=cut
diff --git a/lib/5.24.1/NEXT.pm b/lib/5.24.1/NEXT.pm
new file mode 100644
index 00000000..a77bb387
--- /dev/null
+++ b/lib/5.24.1/NEXT.pm
@@ -0,0 +1,563 @@
+package NEXT;
+$VERSION = '0.65';
+use Carp;
+use strict;
+use overload ();
+
+sub NEXT::ELSEWHERE::ancestors
+{
+	my @inlist = shift;
+	my @outlist = ();
+	while (my $next = shift @inlist) {
+		push @outlist, $next;
+		no strict 'refs';
+		unshift @inlist, @{"$outlist[-1]::ISA"};
+	}
+	return @outlist;
+}
+
+sub NEXT::ELSEWHERE::ordered_ancestors
+{
+	my @inlist = shift;
+	my @outlist = ();
+	while (my $next = shift @inlist) {
+		push @outlist, $next;
+		no strict 'refs';
+		push @inlist, @{"$outlist[-1]::ISA"};
+	}
+	return sort { $a->isa($b) ? -1
+	            : $b->isa($a) ? +1
+	            :                0 } @outlist;
+}
+
+sub NEXT::ELSEWHERE::buildAUTOLOAD
+{
+    my $autoload_name = caller() . '::AUTOLOAD';
+
+    no strict 'refs';
+    *{$autoload_name} = sub {
+        my ($self) = @_;
+        my $depth = 1;
+        until (((caller($depth))[3]||q{}) !~ /^\(eval\)$/) { $depth++ }
+        my $caller = (caller($depth))[3];
+        my $wanted = $NEXT::AUTOLOAD || $autoload_name;
+        undef $NEXT::AUTOLOAD;
+        my ($caller_class, $caller_method) = do { $caller =~ m{(.*)::(.*)}g };
+        my ($wanted_class, $wanted_method) = do { $wanted =~ m{(.*)::(.*)}g };
+        croak "Can't call $wanted from $caller"
+            unless $caller_method eq $wanted_method;
+
+        my $key = ref $self && overload::Overloaded($self)
+            ? overload::StrVal($self) : $self;
+
+        local ($NEXT::NEXT{$key,$wanted_method}, $NEXT::SEEN) =
+            ($NEXT::NEXT{$key,$wanted_method}, $NEXT::SEEN);
+
+        unless ($NEXT::NEXT{$key,$wanted_method}) {
+            my @forebears =
+                NEXT::ELSEWHERE::ancestors ref $self || $self,
+                            $wanted_class;
+            while (@forebears) {
+                last if shift @forebears eq $caller_class
+            }
+            no strict 'refs';
+            @{$NEXT::NEXT{$key,$wanted_method}} =
+                map {
+                    my $stash = \%{"${_}::"};
+                    ($stash->{$caller_method} && (*{$stash->{$caller_method}}{CODE}))
+                        ? *{$stash->{$caller_method}}{CODE}
+                        : () } @forebears
+                    unless $wanted_method eq 'AUTOLOAD';
+            @{$NEXT::NEXT{$key,$wanted_method}} =
+                map {
+                    my $stash = \%{"${_}::"};
+                    ($stash->{AUTOLOAD} && (*{$stash->{AUTOLOAD}}{CODE}))
+                        ? "${_}::AUTOLOAD"
+                        : () } @forebears
+                    unless @{$NEXT::NEXT{$key,$wanted_method}||[]};
+            $NEXT::SEEN->{$key,*{$caller}{CODE}}++;
+        }
+        my $call_method = shift @{$NEXT::NEXT{$key,$wanted_method}};
+        while (do { $wanted_class =~ /^NEXT\b.*\b(UNSEEN|DISTINCT)\b/ }
+            && defined $call_method
+            && $NEXT::SEEN->{$key,$call_method}++) {
+            $call_method = shift @{$NEXT::NEXT{$key,$wanted_method}};
+        }
+        unless (defined $call_method) {
+            return unless do { $wanted_class =~ /^NEXT:.*:ACTUAL/ };
+            (local $Carp::CarpLevel)++;
+            croak qq(Can't locate object method "$wanted_method" ),
+                qq(via package "$caller_class");
+        };
+        return $self->$call_method(@_[1..$#_]) if ref $call_method eq 'CODE';
+        no strict 'refs';
+        do { ($wanted_method=${$caller_class."::AUTOLOAD"}) =~ s/.*::// }
+            if $wanted_method eq 'AUTOLOAD';
+        $$call_method = $caller_class."::NEXT::".$wanted_method;
+        return $call_method->(@_);
+    };
+}
+
+no strict 'vars';
+package NEXT;                                  NEXT::ELSEWHERE::buildAUTOLOAD();
+package NEXT::UNSEEN;		@ISA = 'NEXT';     NEXT::ELSEWHERE::buildAUTOLOAD();
+package NEXT::DISTINCT;		@ISA = 'NEXT';     NEXT::ELSEWHERE::buildAUTOLOAD();
+package NEXT::ACTUAL;		@ISA = 'NEXT';     NEXT::ELSEWHERE::buildAUTOLOAD();
+package NEXT::ACTUAL::UNSEEN;	@ISA = 'NEXT'; NEXT::ELSEWHERE::buildAUTOLOAD();
+package NEXT::ACTUAL::DISTINCT;	@ISA = 'NEXT'; NEXT::ELSEWHERE::buildAUTOLOAD();
+package NEXT::UNSEEN::ACTUAL;	@ISA = 'NEXT'; NEXT::ELSEWHERE::buildAUTOLOAD();
+package NEXT::DISTINCT::ACTUAL;	@ISA = 'NEXT'; NEXT::ELSEWHERE::buildAUTOLOAD();
+
+package EVERY;
+
+sub EVERY::ELSEWHERE::buildAUTOLOAD {
+    my $autoload_name = caller() . '::AUTOLOAD';
+
+    no strict 'refs';
+    *{$autoload_name} = sub {
+        my ($self) = @_;
+        my $depth = 1;
+        until (((caller($depth))[3]||q{}) !~ /^\(eval\)$/) { $depth++ }
+        my $caller = (caller($depth))[3];
+        my $wanted = $EVERY::AUTOLOAD || $autoload_name;
+        undef $EVERY::AUTOLOAD;
+        my ($wanted_class, $wanted_method) = do { $wanted =~ m{(.*)::(.*)}g };
+
+        my $key = ref($self) && overload::Overloaded($self)
+            ? overload::StrVal($self) : $self;
+
+        local $NEXT::ALREADY_IN_EVERY{$key,$wanted_method} =
+            $NEXT::ALREADY_IN_EVERY{$key,$wanted_method};
+
+        return if $NEXT::ALREADY_IN_EVERY{$key,$wanted_method}++;
+
+        my @forebears = NEXT::ELSEWHERE::ordered_ancestors ref $self || $self,
+                                        $wanted_class;
+        @forebears = reverse @forebears if do { $wanted_class =~ /\bLAST\b/ };
+        no strict 'refs';
+        my %seen;
+        my @every = map { my $sub = "${_}::$wanted_method";
+                    !*{$sub}{CODE} || $seen{$sub}++ ? () : $sub
+                    } @forebears
+                    unless $wanted_method eq 'AUTOLOAD';
+
+        my $want = wantarray;
+        if (@every) {
+            if ($want) {
+                return map {($_, [$self->$_(@_[1..$#_])])} @every;
+            }
+            elsif (defined $want) {
+                return { map {($_, scalar($self->$_(@_[1..$#_])))}
+                        @every
+                    };
+            }
+            else {
+                $self->$_(@_[1..$#_]) for @every;
+                return;
+            }
+        }
+
+        @every = map { my $sub = "${_}::AUTOLOAD";
+                !*{$sub}{CODE} || $seen{$sub}++ ? () : "${_}::AUTOLOAD"
+                } @forebears;
+        if ($want) {
+            return map { $$_ = ref($self)."::EVERY::".$wanted_method;
+                    ($_, [$self->$_(@_[1..$#_])]);
+                } @every;
+        }
+        elsif (defined $want) {
+            return { map { $$_ = ref($self)."::EVERY::".$wanted_method;
+                    ($_, scalar($self->$_(@_[1..$#_])))
+                    } @every
+                };
+        }
+        else {
+            for (@every) {
+                $$_ = ref($self)."::EVERY::".$wanted_method;
+                $self->$_(@_[1..$#_]);
+            }
+            return;
+        }
+    };
+}
+
+package EVERY::LAST;   @ISA = 'EVERY';   EVERY::ELSEWHERE::buildAUTOLOAD();
+package EVERY;         @ISA = 'NEXT';    EVERY::ELSEWHERE::buildAUTOLOAD();
+
+1;
+
+__END__
+
+=head1 NAME
+
+NEXT.pm - Provide a pseudo-class NEXT (et al) that allows method redispatch
+
+
+=head1 SYNOPSIS
+
+    use NEXT;
+
+    package A;
+    sub A::method   { print "$_[0]: A method\n";   $_[0]->NEXT::method() }
+    sub A::DESTROY  { print "$_[0]: A dtor\n";     $_[0]->NEXT::DESTROY() }
+
+    package B;
+    use base qw( A );
+    sub B::AUTOLOAD { print "$_[0]: B AUTOLOAD\n"; $_[0]->NEXT::AUTOLOAD() }
+    sub B::DESTROY  { print "$_[0]: B dtor\n";     $_[0]->NEXT::DESTROY() }
+
+    package C;
+    sub C::method   { print "$_[0]: C method\n";   $_[0]->NEXT::method() }
+    sub C::AUTOLOAD { print "$_[0]: C AUTOLOAD\n"; $_[0]->NEXT::AUTOLOAD() }
+    sub C::DESTROY  { print "$_[0]: C dtor\n";     $_[0]->NEXT::DESTROY() }
+
+    package D;
+    use base qw( B C );
+    sub D::method   { print "$_[0]: D method\n";   $_[0]->NEXT::method() }
+    sub D::AUTOLOAD { print "$_[0]: D AUTOLOAD\n"; $_[0]->NEXT::AUTOLOAD() }
+    sub D::DESTROY  { print "$_[0]: D dtor\n";     $_[0]->NEXT::DESTROY() }
+
+    package main;
+
+    my $obj = bless {}, "D";
+
+    $obj->method();		# Calls D::method, A::method, C::method
+    $obj->missing_method(); # Calls D::AUTOLOAD, B::AUTOLOAD, C::AUTOLOAD
+
+    # Clean-up calls D::DESTROY, B::DESTROY, A::DESTROY, C::DESTROY
+
+
+
+=head1 DESCRIPTION
+
+NEXT.pm adds a pseudoclass named C<NEXT> to any program
+that uses it. If a method C<m> calls C<$self-E<gt>NEXT::m()>, the call to
+C<m> is redispatched as if the calling method had not originally been found.
+
+In other words, a call to C<$self-E<gt>NEXT::m()> resumes the depth-first,
+left-to-right search of C<$self>'s class hierarchy that resulted in the
+original call to C<m>.
+
+Note that this is not the same thing as C<$self-E<gt>SUPER::m()>, which
+begins a new dispatch that is restricted to searching the ancestors
+of the current class. C<$self-E<gt>NEXT::m()> can backtrack
+past the current class -- to look for a suitable method in other
+ancestors of C<$self> -- whereas C<$self-E<gt>SUPER::m()> cannot.
+
+A typical use would be in the destructors of a class hierarchy,
+as illustrated in the synopsis above. Each class in the hierarchy
+has a DESTROY method that performs some class-specific action
+and then redispatches the call up the hierarchy. As a result,
+when an object of class D is destroyed, the destructors of I<all>
+its parent classes are called (in depth-first, left-to-right order).
+
+Another typical use of redispatch would be in C<AUTOLOAD>'ed methods.
+If such a method determined that it was not able to handle a
+particular call, it might choose to redispatch that call, in the
+hope that some other C<AUTOLOAD> (above it, or to its left) might
+do better.
+
+By default, if a redispatch attempt fails to find another method
+elsewhere in the objects class hierarchy, it quietly gives up and does
+nothing (but see L<"Enforcing redispatch">). This gracious acquiescence
+is also unlike the (generally annoying) behaviour of C<SUPER>, which
+throws an exception if it cannot redispatch.
+
+Note that it is a fatal error for any method (including C<AUTOLOAD>)
+to attempt to redispatch any method that does not have the
+same name. For example:
+
+        sub D::oops { print "oops!\n"; $_[0]->NEXT::other_method() }
+
+
+=head2 Enforcing redispatch
+
+It is possible to make C<NEXT> redispatch more demandingly (i.e. like
+C<SUPER> does), so that the redispatch throws an exception if it cannot
+find a "next" method to call.
+
+To do this, simple invoke the redispatch as:
+
+	$self->NEXT::ACTUAL::method();
+
+rather than:
+
+	$self->NEXT::method();
+
+The C<ACTUAL> tells C<NEXT> that there must actually be a next method to call,
+or it should throw an exception.
+
+C<NEXT::ACTUAL> is most commonly used in C<AUTOLOAD> methods, as a means to
+decline an C<AUTOLOAD> request, but preserve the normal exception-on-failure 
+semantics:
+
+	sub AUTOLOAD {
+		if ($AUTOLOAD =~ /foo|bar/) {
+			# handle here
+		}
+		else {  # try elsewhere
+			shift()->NEXT::ACTUAL::AUTOLOAD(@_);
+		}
+	}
+
+By using C<NEXT::ACTUAL>, if there is no other C<AUTOLOAD> to handle the
+method call, an exception will be thrown (as usually happens in the absence of
+a suitable C<AUTOLOAD>).
+
+
+=head2 Avoiding repetitions
+
+If C<NEXT> redispatching is used in the methods of a "diamond" class hierarchy:
+
+	#     A   B
+	#    / \ /
+	#   C   D
+	#    \ /
+	#     E
+
+	use NEXT;
+
+	package A;                 
+	sub foo { print "called A::foo\n"; shift->NEXT::foo() }
+
+	package B;                 
+	sub foo { print "called B::foo\n"; shift->NEXT::foo() }
+
+	package C; @ISA = qw( A );
+	sub foo { print "called C::foo\n"; shift->NEXT::foo() }
+
+	package D; @ISA = qw(A B);
+	sub foo { print "called D::foo\n"; shift->NEXT::foo() }
+
+	package E; @ISA = qw(C D);
+	sub foo { print "called E::foo\n"; shift->NEXT::foo() }
+
+	E->foo();
+
+then derived classes may (re-)inherit base-class methods through two or
+more distinct paths (e.g. in the way C<E> inherits C<A::foo> twice --
+through C<C> and C<D>). In such cases, a sequence of C<NEXT> redispatches
+will invoke the multiply inherited method as many times as it is
+inherited. For example, the above code prints:
+
+        called E::foo
+        called C::foo
+        called A::foo
+        called D::foo
+        called A::foo
+        called B::foo
+
+(i.e. C<A::foo> is called twice).
+
+In some cases this I<may> be the desired effect within a diamond hierarchy,
+but in others (e.g. for destructors) it may be more appropriate to 
+call each method only once during a sequence of redispatches.
+
+To cover such cases, you can redispatch methods via:
+
+        $self->NEXT::DISTINCT::method();
+
+rather than:
+
+        $self->NEXT::method();
+
+This causes the redispatcher to only visit each distinct C<method> method
+once. That is, to skip any classes in the hierarchy that it has
+already visited during redispatch. So, for example, if the
+previous example were rewritten:
+
+        package A;                 
+        sub foo { print "called A::foo\n"; shift->NEXT::DISTINCT::foo() }
+
+        package B;                 
+        sub foo { print "called B::foo\n"; shift->NEXT::DISTINCT::foo() }
+
+        package C; @ISA = qw( A );
+        sub foo { print "called C::foo\n"; shift->NEXT::DISTINCT::foo() }
+
+        package D; @ISA = qw(A B);
+        sub foo { print "called D::foo\n"; shift->NEXT::DISTINCT::foo() }
+
+        package E; @ISA = qw(C D);
+        sub foo { print "called E::foo\n"; shift->NEXT::DISTINCT::foo() }
+
+        E->foo();
+
+then it would print:
+        
+        called E::foo
+        called C::foo
+        called A::foo
+        called D::foo
+        called B::foo
+
+and omit the second call to C<A::foo> (since it would not be distinct
+from the first call to C<A::foo>).
+
+Note that you can also use:
+
+        $self->NEXT::DISTINCT::ACTUAL::method();
+
+or:
+
+        $self->NEXT::ACTUAL::DISTINCT::method();
+
+to get both unique invocation I<and> exception-on-failure.
+
+Note that, for historical compatibility, you can also use
+C<NEXT::UNSEEN> instead of C<NEXT::DISTINCT>.
+
+
+=head2 Invoking all versions of a method with a single call
+
+Yet another pseudo-class that NEXT.pm provides is C<EVERY>.
+Its behaviour is considerably simpler than that of the C<NEXT> family.
+A call to:
+
+	$obj->EVERY::foo();
+
+calls I<every> method named C<foo> that the object in C<$obj> has inherited.
+That is:
+
+	use NEXT;
+
+	package A; @ISA = qw(B D X);
+	sub foo { print "A::foo " }
+
+	package B; @ISA = qw(D X);
+	sub foo { print "B::foo " }
+
+	package X; @ISA = qw(D);
+	sub foo { print "X::foo " }
+
+	package D;
+	sub foo { print "D::foo " }
+
+	package main;
+
+	my $obj = bless {}, 'A';
+	$obj->EVERY::foo();        # prints" A::foo B::foo X::foo D::foo
+
+Prefixing a method call with C<EVERY::> causes every method in the
+object's hierarchy with that name to be invoked. As the above example
+illustrates, they are not called in Perl's usual "left-most-depth-first"
+order. Instead, they are called "breadth-first-dependency-wise".
+
+That means that the inheritance tree of the object is traversed breadth-first
+and the resulting order of classes is used as the sequence in which methods
+are called. However, that sequence is modified by imposing a rule that the
+appropriate method of a derived class must be called before the same method of
+any ancestral class. That's why, in the above example, C<X::foo> is called
+before C<D::foo>, even though C<D> comes before C<X> in C<@B::ISA>.
+
+In general, there's no need to worry about the order of calls. They will be
+left-to-right, breadth-first, most-derived-first. This works perfectly for
+most inherited methods (including destructors), but is inappropriate for
+some kinds of methods (such as constructors, cloners, debuggers, and
+initializers) where it's more appropriate that the least-derived methods be
+called first (as more-derived methods may rely on the behaviour of their
+"ancestors"). In that case, instead of using the C<EVERY> pseudo-class:
+
+	$obj->EVERY::foo();        # prints" A::foo B::foo X::foo D::foo      
+
+you can use the C<EVERY::LAST> pseudo-class:
+
+	$obj->EVERY::LAST::foo();  # prints" D::foo X::foo B::foo A::foo      
+
+which reverses the order of method call.
+
+Whichever version is used, the actual methods are called in the same
+context (list, scalar, or void) as the original call via C<EVERY>, and return:
+
+=over
+
+=item *
+
+A hash of array references in list context. Each entry of the hash has the
+fully qualified method name as its key and a reference to an array containing
+the method's list-context return values as its value.
+
+=item *
+
+A reference to a hash of scalar values in scalar context. Each entry of the hash has the
+fully qualified method name as its key and the method's scalar-context return values as its value.
+
+=item *
+
+Nothing in void context (obviously).
+
+=back
+
+=head2 Using C<EVERY> methods
+
+The typical way to use an C<EVERY> call is to wrap it in another base
+method, that all classes inherit. For example, to ensure that every
+destructor an object inherits is actually called (as opposed to just the
+left-most-depth-first-est one):
+
+        package Base;
+        sub DESTROY { $_[0]->EVERY::Destroy }
+
+        package Derived1; 
+        use base 'Base';
+        sub Destroy {...}
+
+        package Derived2; 
+        use base 'Base', 'Derived1';
+        sub Destroy {...}
+
+et cetera. Every derived class than needs its own clean-up
+behaviour simply adds its own C<Destroy> method (I<not> a C<DESTROY> method),
+which the call to C<EVERY::LAST::Destroy> in the inherited destructor
+then correctly picks up.
+
+Likewise, to create a class hierarchy in which every initializer inherited by
+a new object is invoked:
+
+        package Base;
+        sub new {
+		my ($class, %args) = @_;
+		my $obj = bless {}, $class;
+		$obj->EVERY::LAST::Init(\%args);
+	}
+
+        package Derived1; 
+        use base 'Base';
+        sub Init {
+		my ($argsref) = @_;
+		...
+	}
+
+        package Derived2; 
+        use base 'Base', 'Derived1';
+        sub Init {
+		my ($argsref) = @_;
+		...
+	}
+
+et cetera. Every derived class than needs some additional initialization
+behaviour simply adds its own C<Init> method (I<not> a C<new> method),
+which the call to C<EVERY::LAST::Init> in the inherited constructor
+then correctly picks up.
+
+
+=head1 AUTHOR
+
+Damian Conway (damian@conway.org)
+
+=head1 BUGS AND IRRITATIONS
+
+Because it's a module, not an integral part of the interpreter, NEXT.pm
+has to guess where the surrounding call was found in the method
+look-up sequence. In the presence of diamond inheritance patterns
+it occasionally guesses wrong.
+
+It's also too slow (despite caching).
+
+Comment, suggestions, and patches welcome.
+
+=head1 COPYRIGHT
+
+ Copyright (c) 2000-2001, Damian Conway. All Rights Reserved.
+ This module is free software. It may be used, redistributed
+    and/or modified under the same terms as Perl itself.
diff --git a/lib/5.24.1/Net/Cmd.pm b/lib/5.24.1/Net/Cmd.pm
new file mode 100644
index 00000000..3a5d4d9a
--- /dev/null
+++ b/lib/5.24.1/Net/Cmd.pm
@@ -0,0 +1,868 @@
+# Net::Cmd.pm
+#
+# Versions up to 2.29_1 Copyright (c) 1995-2006 Graham Barr <gbarr@pobox.com>.
+# All rights reserved.
+# Changes in Version 2.29_2 onwards Copyright (C) 2013-2015 Steve Hay.  All
+# rights reserved.
+# This module is free software; you can redistribute it and/or modify it under
+# the same terms as Perl itself, i.e. under the terms of either the GNU General
+# Public License or the Artistic License, as specified in the F<LICENCE> file.
+
+package Net::Cmd;
+
+use 5.008001;
+
+use strict;
+use warnings;
+
+use Carp;
+use Exporter;
+use Symbol 'gensym';
+use Errno 'EINTR';
+
+BEGIN {
+  if ($^O eq 'os390') {
+    require Convert::EBCDIC;
+
+    #    Convert::EBCDIC->import;
+  }
+}
+
+our $VERSION = "3.08_01";
+our @ISA     = qw(Exporter);
+our @EXPORT  = qw(CMD_INFO CMD_OK CMD_MORE CMD_REJECT CMD_ERROR CMD_PENDING);
+
+use constant CMD_INFO    => 1;
+use constant CMD_OK      => 2;
+use constant CMD_MORE    => 3;
+use constant CMD_REJECT  => 4;
+use constant CMD_ERROR   => 5;
+use constant CMD_PENDING => 0;
+
+use constant DEF_REPLY_CODE => 421;
+
+my %debug = ();
+
+my $tr = $^O eq 'os390' ? Convert::EBCDIC->new() : undef;
+
+sub toebcdic {
+  my $cmd = shift;
+
+  unless (exists ${*$cmd}{'net_cmd_asciipeer'}) {
+    my $string    = $_[0];
+    my $ebcdicstr = $tr->toebcdic($string);
+    ${*$cmd}{'net_cmd_asciipeer'} = $string !~ /^\d+/ && $ebcdicstr =~ /^\d+/;
+  }
+
+  ${*$cmd}{'net_cmd_asciipeer'}
+    ? $tr->toebcdic($_[0])
+    : $_[0];
+}
+
+
+sub toascii {
+  my $cmd = shift;
+  ${*$cmd}{'net_cmd_asciipeer'}
+    ? $tr->toascii($_[0])
+    : $_[0];
+}
+
+
+sub _print_isa {
+  no strict 'refs'; ## no critic (TestingAndDebugging::ProhibitNoStrict)
+
+  my $pkg = shift;
+  my $cmd = $pkg;
+
+  $debug{$pkg} ||= 0;
+
+  my %done = ();
+  my @do   = ($pkg);
+  my %spc  = ($pkg, "");
+
+  while ($pkg = shift @do) {
+    next if defined $done{$pkg};
+
+    $done{$pkg} = 1;
+
+    my $v =
+      defined ${"${pkg}::VERSION"}
+      ? "(" . ${"${pkg}::VERSION"} . ")"
+      : "";
+
+    my $spc = $spc{$pkg};
+    $cmd->debug_print(1, "${spc}${pkg}${v}\n");
+
+    if (@{"${pkg}::ISA"}) {
+      @spc{@{"${pkg}::ISA"}} = ("  " . $spc{$pkg}) x @{"${pkg}::ISA"};
+      unshift(@do, @{"${pkg}::ISA"});
+    }
+  }
+}
+
+
+sub debug {
+  @_ == 1 or @_ == 2 or croak 'usage: $obj->debug([LEVEL])';
+
+  my ($cmd, $level) = @_;
+  my $pkg    = ref($cmd) || $cmd;
+  my $oldval = 0;
+
+  if (ref($cmd)) {
+    $oldval = ${*$cmd}{'net_cmd_debug'} || 0;
+  }
+  else {
+    $oldval = $debug{$pkg} || 0;
+  }
+
+  return $oldval
+    unless @_ == 2;
+
+  $level = $debug{$pkg} || 0
+    unless defined $level;
+
+  _print_isa($pkg)
+    if ($level && !exists $debug{$pkg});
+
+  if (ref($cmd)) {
+    ${*$cmd}{'net_cmd_debug'} = $level;
+  }
+  else {
+    $debug{$pkg} = $level;
+  }
+
+  $oldval;
+}
+
+
+sub message {
+  @_ == 1 or croak 'usage: $obj->message()';
+
+  my $cmd = shift;
+
+  wantarray
+    ? @{${*$cmd}{'net_cmd_resp'}}
+    : join("", @{${*$cmd}{'net_cmd_resp'}});
+}
+
+
+sub debug_text { $_[2] }
+
+
+sub debug_print {
+  my ($cmd, $out, $text) = @_;
+  print STDERR $cmd, ($out ? '>>> ' : '<<< '), $cmd->debug_text($out, $text);
+}
+
+
+sub code {
+  @_ == 1 or croak 'usage: $obj->code()';
+
+  my $cmd = shift;
+
+  ${*$cmd}{'net_cmd_code'} = $cmd->DEF_REPLY_CODE
+    unless exists ${*$cmd}{'net_cmd_code'};
+
+  ${*$cmd}{'net_cmd_code'};
+}
+
+
+sub status {
+  @_ == 1 or croak 'usage: $obj->status()';
+
+  my $cmd = shift;
+
+  substr(${*$cmd}{'net_cmd_code'}, 0, 1);
+}
+
+
+sub set_status {
+  @_ == 3 or croak 'usage: $obj->set_status(CODE, MESSAGE)';
+
+  my $cmd = shift;
+  my ($code, $resp) = @_;
+
+  $resp = defined $resp ? [$resp] : []
+    unless ref($resp);
+
+  (${*$cmd}{'net_cmd_code'}, ${*$cmd}{'net_cmd_resp'}) = ($code, $resp);
+
+  1;
+}
+
+sub _syswrite_with_timeout {
+  my $cmd = shift;
+  my $line = shift;
+
+  my $len    = length($line);
+  my $offset = 0;
+  my $win    = "";
+  vec($win, fileno($cmd), 1) = 1;
+  my $timeout = $cmd->timeout || undef;
+  my $initial = time;
+  my $pending = $timeout;
+
+  local $SIG{PIPE} = 'IGNORE' unless $^O eq 'MacOS';
+
+  while ($len) {
+    my $wout;
+    my $nfound = select(undef, $wout = $win, undef, $pending);
+    if ((defined $nfound and $nfound > 0) or -f $cmd)    # -f for testing on win32
+    {
+      my $w = syswrite($cmd, $line, $len, $offset);
+      if (! defined($w) ) {
+        my $err = $!;
+        $cmd->close;
+        $cmd->_set_status_closed($err);
+        return;
+      }
+      $len -= $w;
+      $offset += $w;
+    }
+    elsif ($nfound == -1) {
+      if ( $! == EINTR ) {
+        if ( defined($timeout) ) {
+          redo if ($pending = $timeout - ( time - $initial ) ) > 0;
+          $cmd->_set_status_timeout;
+          return;
+        }
+        redo;
+      }
+      my $err = $!;
+      $cmd->close;
+      $cmd->_set_status_closed($err);
+      return;
+    }
+    else {
+      $cmd->_set_status_timeout;
+      return;
+    }
+  }
+
+  return 1;
+}
+
+sub _set_status_timeout {
+  my $cmd = shift;
+  my $pkg = ref($cmd) || $cmd;
+
+  $cmd->set_status($cmd->DEF_REPLY_CODE, "[$pkg] Timeout");
+  carp(ref($cmd) . ": " . (caller(1))[3] . "(): timeout") if $cmd->debug;
+}
+
+sub _set_status_closed {
+  my $cmd = shift;
+  my $err = shift;
+  my $pkg = ref($cmd) || $cmd;
+
+  $cmd->set_status($cmd->DEF_REPLY_CODE, "[$pkg] Connection closed");
+  carp(ref($cmd) . ": " . (caller(1))[3]
+    . "(): unexpected EOF on command channel: $err") if $cmd->debug;
+}
+
+sub _is_closed {
+  my $cmd = shift;
+  if (!defined fileno($cmd)) {
+     $cmd->_set_status_closed($!);
+     return 1;
+  }
+  return 0;
+}
+
+sub command {
+  my $cmd = shift;
+
+  return $cmd
+    if $cmd->_is_closed;
+
+  $cmd->dataend()
+    if (exists ${*$cmd}{'net_cmd_last_ch'});
+
+  if (scalar(@_)) {
+    my $str = join(
+      " ",
+      map {
+        /\n/
+          ? do { my $n = $_; $n =~ tr/\n/ /; $n }
+          : $_;
+        } @_
+    );
+    $str = $cmd->toascii($str) if $tr;
+    $str .= "\015\012";
+
+    $cmd->debug_print(1, $str)
+      if ($cmd->debug);
+
+    # though documented to return undef on failure, the legacy behavior
+    # was to return $cmd even on failure, so this odd construct does that
+    $cmd->_syswrite_with_timeout($str)
+      or return $cmd;
+  }
+
+  $cmd;
+}
+
+
+sub ok {
+  @_ == 1 or croak 'usage: $obj->ok()';
+
+  my $code = $_[0]->code;
+  0 < $code && $code < 400;
+}
+
+
+sub unsupported {
+  my $cmd = shift;
+
+  $cmd->set_status(580, 'Unsupported command');
+
+  0;
+}
+
+
+sub getline {
+  my $cmd = shift;
+
+  ${*$cmd}{'net_cmd_lines'} ||= [];
+
+  return shift @{${*$cmd}{'net_cmd_lines'}}
+    if scalar(@{${*$cmd}{'net_cmd_lines'}});
+
+  my $partial = defined(${*$cmd}{'net_cmd_partial'}) ? ${*$cmd}{'net_cmd_partial'} : "";
+
+  return
+    if $cmd->_is_closed;
+
+  my $fd = fileno($cmd);
+  my $rin = "";
+  vec($rin, $fd, 1) = 1;
+
+  my $buf;
+
+  until (scalar(@{${*$cmd}{'net_cmd_lines'}})) {
+    my $timeout = $cmd->timeout || undef;
+    my $rout;
+
+    my $select_ret = select($rout = $rin, undef, undef, $timeout);
+    if ($select_ret > 0) {
+      unless (sysread($cmd, $buf = "", 1024)) {
+        my $err = $!;
+        $cmd->close;
+        $cmd->_set_status_closed($err);
+        return;
+      }
+
+      substr($buf, 0, 0) = $partial;    ## prepend from last sysread
+
+      my @buf = split(/\015?\012/, $buf, -1);    ## break into lines
+
+      $partial = pop @buf;
+
+      push(@{${*$cmd}{'net_cmd_lines'}}, map {"$_\n"} @buf);
+
+    }
+    else {
+      $cmd->_set_status_timeout;
+      return;
+    }
+  }
+
+  ${*$cmd}{'net_cmd_partial'} = $partial;
+
+  if ($tr) {
+    foreach my $ln (@{${*$cmd}{'net_cmd_lines'}}) {
+      $ln = $cmd->toebcdic($ln);
+    }
+  }
+
+  shift @{${*$cmd}{'net_cmd_lines'}};
+}
+
+
+sub ungetline {
+  my ($cmd, $str) = @_;
+
+  ${*$cmd}{'net_cmd_lines'} ||= [];
+  unshift(@{${*$cmd}{'net_cmd_lines'}}, $str);
+}
+
+
+sub parse_response {
+  return ()
+    unless $_[1] =~ s/^(\d\d\d)(.?)//o;
+  ($1, $2 eq "-");
+}
+
+
+sub response {
+  my $cmd = shift;
+  my ($code, $more) = (undef) x 2;
+
+  $cmd->set_status($cmd->DEF_REPLY_CODE, undef); # initialize the response
+
+  while (1) {
+    my $str = $cmd->getline();
+
+    return CMD_ERROR
+      unless defined($str);
+
+    $cmd->debug_print(0, $str)
+      if ($cmd->debug);
+
+    ($code, $more) = $cmd->parse_response($str);
+    unless (defined $code) {
+      carp("$cmd: response(): parse error in '$str'") if ($cmd->debug);
+      $cmd->ungetline($str);
+      $@ = $str;   # $@ used as tunneling hack
+      return CMD_ERROR;
+    }
+
+    ${*$cmd}{'net_cmd_code'} = $code;
+
+    push(@{${*$cmd}{'net_cmd_resp'}}, $str);
+
+    last unless ($more);
+  }
+
+  return unless defined $code;
+  substr($code, 0, 1);
+}
+
+
+sub read_until_dot {
+  my $cmd = shift;
+  my $fh  = shift;
+  my $arr = [];
+
+  while (1) {
+    my $str = $cmd->getline() or return;
+
+    $cmd->debug_print(0, $str)
+      if ($cmd->debug & 4);
+
+    last if ($str =~ /^\.\r?\n/o);
+
+    $str =~ s/^\.\././o;
+
+    if (defined $fh) {
+      print $fh $str;
+    }
+    else {
+      push(@$arr, $str);
+    }
+  }
+
+  $arr;
+}
+
+
+sub datasend {
+  my $cmd  = shift;
+  my $arr  = @_ == 1 && ref($_[0]) ? $_[0] : \@_;
+  my $line = join("", @$arr);
+
+  # Perls < 5.10.1 (with the exception of 5.8.9) have a performance problem with
+  # the substitutions below when dealing with strings stored internally in
+  # UTF-8, so downgrade them (if possible).
+  # Data passed to datasend() should be encoded to octets upstream already so
+  # shouldn't even have the UTF-8 flag on to start with, but if it so happens
+  # that the octets are stored in an upgraded string (as can sometimes occur)
+  # then they would still downgrade without fail anyway.
+  # Only Unicode codepoints > 0xFF stored in an upgraded string will fail to
+  # downgrade. We fail silently in that case, and a "Wide character in print"
+  # warning will be emitted later by syswrite().
+  utf8::downgrade($line, 1) if $] < 5.010001 && $] != 5.008009;
+
+  return 0
+    if $cmd->_is_closed;
+
+  my $last_ch = ${*$cmd}{'net_cmd_last_ch'};
+
+  # We have not send anything yet, so last_ch = "\012" means we are at the start of a line
+  $last_ch = ${*$cmd}{'net_cmd_last_ch'} = "\012" unless defined $last_ch;
+
+  return 1 unless length $line;
+
+  if ($cmd->debug) {
+    foreach my $b (split(/\n/, $line)) {
+      $cmd->debug_print(1, "$b\n");
+    }
+  }
+
+  $line =~ tr/\r\n/\015\012/ unless "\r" eq "\015";
+
+  my $first_ch = '';
+
+  if ($last_ch eq "\015") {
+    # Remove \012 so it does not get prefixed with another \015 below
+    # and escape the . if there is one following it because the fixup
+    # below will not find it
+    $first_ch = "\012" if $line =~ s/^\012(\.?)/$1$1/;
+  }
+  elsif ($last_ch eq "\012") {
+    # Fixup below will not find the . as the first character of the buffer
+    $first_ch = "." if $line =~ /^\./;
+  }
+
+  $line =~ s/\015?\012(\.?)/\015\012$1$1/sg;
+
+  substr($line, 0, 0) = $first_ch;
+
+  ${*$cmd}{'net_cmd_last_ch'} = substr($line, -1, 1);
+
+  $cmd->_syswrite_with_timeout($line)
+    or return;
+
+  1;
+}
+
+
+sub rawdatasend {
+  my $cmd  = shift;
+  my $arr  = @_ == 1 && ref($_[0]) ? $_[0] : \@_;
+  my $line = join("", @$arr);
+
+  return 0
+    if $cmd->_is_closed;
+
+  return 1
+    unless length($line);
+
+  if ($cmd->debug) {
+    my $b = "$cmd>>> ";
+    print STDERR $b, join("\n$b", split(/\n/, $line)), "\n";
+  }
+
+  $cmd->_syswrite_with_timeout($line)
+    or return;
+
+  1;
+}
+
+
+sub dataend {
+  my $cmd = shift;
+
+  return 0
+    if $cmd->_is_closed;
+
+  my $ch = ${*$cmd}{'net_cmd_last_ch'};
+  my $tosend;
+
+  if (!defined $ch) {
+    return 1;
+  }
+  elsif ($ch ne "\012") {
+    $tosend = "\015\012";
+  }
+
+  $tosend .= ".\015\012";
+
+  $cmd->debug_print(1, ".\n")
+    if ($cmd->debug);
+
+  $cmd->_syswrite_with_timeout($tosend)
+    or return 0;
+
+  delete ${*$cmd}{'net_cmd_last_ch'};
+
+  $cmd->response() == CMD_OK;
+}
+
+# read and write to tied filehandle
+sub tied_fh {
+  my $cmd = shift;
+  ${*$cmd}{'net_cmd_readbuf'} = '';
+  my $fh = gensym();
+  tie *$fh, ref($cmd), $cmd;
+  return $fh;
+}
+
+# tie to myself
+sub TIEHANDLE {
+  my $class = shift;
+  my $cmd   = shift;
+  return $cmd;
+}
+
+# Tied filehandle read.  Reads requested data length, returning
+# end-of-file when the dot is encountered.
+sub READ {
+  my $cmd = shift;
+  my ($len, $offset) = @_[1, 2];
+  return unless exists ${*$cmd}{'net_cmd_readbuf'};
+  my $done = 0;
+  while (!$done and length(${*$cmd}{'net_cmd_readbuf'}) < $len) {
+    ${*$cmd}{'net_cmd_readbuf'} .= $cmd->getline() or return;
+    $done++ if ${*$cmd}{'net_cmd_readbuf'} =~ s/^\.\r?\n\Z//m;
+  }
+
+  $_[0] = '';
+  substr($_[0], $offset + 0) = substr(${*$cmd}{'net_cmd_readbuf'}, 0, $len);
+  substr(${*$cmd}{'net_cmd_readbuf'}, 0, $len) = '';
+  delete ${*$cmd}{'net_cmd_readbuf'} if $done;
+
+  return length $_[0];
+}
+
+
+sub READLINE {
+  my $cmd = shift;
+
+  # in this context, we use the presence of readbuf to
+  # indicate that we have not yet reached the eof
+  return unless exists ${*$cmd}{'net_cmd_readbuf'};
+  my $line = $cmd->getline;
+  return if $line =~ /^\.\r?\n/;
+  $line;
+}
+
+
+sub PRINT {
+  my $cmd = shift;
+  my ($buf, $len, $offset) = @_;
+  $len ||= length($buf);
+  $offset += 0;
+  return unless $cmd->datasend(substr($buf, $offset, $len));
+  ${*$cmd}{'net_cmd_sending'}++;    # flag that we should call dataend()
+  return $len;
+}
+
+
+sub CLOSE {
+  my $cmd = shift;
+  my $r = exists(${*$cmd}{'net_cmd_sending'}) ? $cmd->dataend : 1;
+  delete ${*$cmd}{'net_cmd_readbuf'};
+  delete ${*$cmd}{'net_cmd_sending'};
+  $r;
+}
+
+1;
+
+__END__
+
+
+=head1 NAME
+
+Net::Cmd - Network Command class (as used by FTP, SMTP etc)
+
+=head1 SYNOPSIS
+
+    use Net::Cmd;
+
+    @ISA = qw(Net::Cmd);
+
+=head1 DESCRIPTION
+
+C<Net::Cmd> is a collection of methods that can be inherited by a sub class
+of C<IO::Handle>. These methods implement the functionality required for a
+command based protocol, for example FTP and SMTP.
+
+=head1 USER METHODS
+
+These methods provide a user interface to the C<Net::Cmd> object.
+
+=over 4
+
+=item debug ( VALUE )
+
+Set the level of debug information for this object. If C<VALUE> is not given
+then the current state is returned. Otherwise the state is changed to 
+C<VALUE> and the previous state returned. 
+
+Different packages
+may implement different levels of debug but a non-zero value results in 
+copies of all commands and responses also being sent to STDERR.
+
+If C<VALUE> is C<undef> then the debug level will be set to the default
+debug level for the class.
+
+This method can also be called as a I<static> method to set/get the default
+debug level for a given class.
+
+=item message ()
+
+Returns the text message returned from the last command. In a scalar
+context it returns a single string, in a list context it will return
+each line as a separate element. (See L<PSEUDO RESPONSES> below.)
+
+=item code ()
+
+Returns the 3-digit code from the last command. If a command is pending
+then the value 0 is returned. (See L<PSEUDO RESPONSES> below.)
+
+=item ok ()
+
+Returns non-zero if the last code value was greater than zero and
+less than 400. This holds true for most command servers. Servers
+where this does not hold may override this method.
+
+=item status ()
+
+Returns the most significant digit of the current status code. If a command
+is pending then C<CMD_PENDING> is returned.
+
+=item datasend ( DATA )
+
+Send data to the remote server, converting LF to CRLF. Any line starting
+with a '.' will be prefixed with another '.'.
+C<DATA> may be an array or a reference to an array.
+The C<DATA> passed in must be encoded by the caller to octets of whatever
+encoding is required, e.g. by using the Encode module's C<encode()> function.
+
+=item dataend ()
+
+End the sending of data to the remote server. This is done by ensuring that
+the data already sent ends with CRLF then sending '.CRLF' to end the
+transmission. Once this data has been sent C<dataend> calls C<response> and
+returns true if C<response> returns CMD_OK.
+
+=back
+
+=head1 CLASS METHODS
+
+These methods are not intended to be called by the user, but used or 
+over-ridden by a sub-class of C<Net::Cmd>
+
+=over 4
+
+=item debug_print ( DIR, TEXT )
+
+Print debugging information. C<DIR> denotes the direction I<true> being
+data being sent to the server. Calls C<debug_text> before printing to
+STDERR.
+
+=item debug_text ( DIR, TEXT )
+
+This method is called to print debugging information. TEXT is
+the text being sent. The method should return the text to be printed.
+
+This is primarily meant for the use of modules such as FTP where passwords
+are sent, but we do not want to display them in the debugging information.
+
+=item command ( CMD [, ARGS, ... ])
+
+Send a command to the command server. All arguments are first joined with
+a space character and CRLF is appended, this string is then sent to the
+command server.
+
+Returns undef upon failure.
+
+=item unsupported ()
+
+Sets the status code to 580 and the response text to 'Unsupported command'.
+Returns zero.
+
+=item response ()
+
+Obtain a response from the server. Upon success the most significant digit
+of the status code is returned. Upon failure, timeout etc., I<CMD_ERROR> is
+returned.
+
+=item parse_response ( TEXT )
+
+This method is called by C<response> as a method with one argument. It should
+return an array of 2 values, the 3-digit status code and a flag which is true
+when this is part of a multi-line response and this line is not the last.
+
+=item getline ()
+
+Retrieve one line, delimited by CRLF, from the remote server. Returns I<undef>
+upon failure.
+
+B<NOTE>: If you do use this method for any reason, please remember to add
+some C<debug_print> calls into your method.
+
+=item ungetline ( TEXT )
+
+Unget a line of text from the server.
+
+=item rawdatasend ( DATA )
+
+Send data to the remote server without performing any conversions. C<DATA>
+is a scalar.
+As with C<datasend()>, the C<DATA> passed in must be encoded by the caller
+to octets of whatever encoding is required, e.g. by using the Encode module's
+C<encode()> function.
+
+=item read_until_dot ()
+
+Read data from the remote server until a line consisting of a single '.'.
+Any lines starting with '..' will have one of the '.'s removed.
+
+Returns a reference to a list containing the lines, or I<undef> upon failure.
+
+=item tied_fh ()
+
+Returns a filehandle tied to the Net::Cmd object.  After issuing a
+command, you may read from this filehandle using read() or <>.  The
+filehandle will return EOF when the final dot is encountered.
+Similarly, you may write to the filehandle in order to send data to
+the server after issuing a command that expects data to be written.
+
+See the Net::POP3 and Net::SMTP modules for examples of this.
+
+=back
+
+=head1 PSEUDO RESPONSES
+
+Normally the values returned by C<message()> and C<code()> are
+obtained from the remote server, but in a few circumstances, as
+detailed below, C<Net::Cmd> will return values that it sets. You
+can alter this behavior by overriding DEF_REPLY_CODE() to specify
+a different default reply code, or overriding one of the specific
+error handling methods below.
+
+=over 4
+
+=item Initial value
+
+Before any command has executed or if an unexpected error occurs
+C<code()> will return "421" (temporary connection failure) and
+C<message()> will return undef.
+
+=item Connection closed
+
+If the underlying C<IO::Handle> is closed, or if there are
+any read or write failures, the file handle will be forced closed,
+and C<code()> will return "421" (temporary connection failure)
+and C<message()> will return "[$pkg] Connection closed"
+(where $pkg is the name of the class that subclassed C<Net::Cmd>).
+The _set_status_closed() method can be overridden to set a different
+message (by calling set_status()) or otherwise trap this error.
+
+=item Timeout
+
+If there is a read or write timeout C<code()> will return "421"
+(temporary connection failure) and C<message()> will return
+"[$pkg] Timeout" (where $pkg is the name of the class
+that subclassed C<Net::Cmd>). The _set_status_timeout() method
+can be overridden to set a different message (by calling set_status())
+or otherwise trap this error.
+
+=back
+
+=head1 EXPORTS
+
+C<Net::Cmd> exports six subroutines, five of these, C<CMD_INFO>, C<CMD_OK>,
+C<CMD_MORE>, C<CMD_REJECT> and C<CMD_ERROR>, correspond to possible results
+of C<response> and C<status>. The sixth is C<CMD_PENDING>.
+
+=head1 AUTHOR
+
+Graham Barr E<lt>F<gbarr@pobox.com>E<gt>
+
+Steve Hay E<lt>F<shay@cpan.org>E<gt> is now maintaining libnet as of version
+1.22_02
+
+=head1 COPYRIGHT
+
+Versions up to 2.29_1 Copyright (c) 1995-2006 Graham Barr. All rights reserved.
+Changes in Version 2.29_2 onwards Copyright (C) 2013-2014 Steve Hay.  All rights
+reserved.
+
+This module is free software; you can redistribute it and/or modify it under the
+same terms as Perl itself, i.e. under the terms of either the GNU General Public
+License or the Artistic License, as specified in the F<LICENCE> file.
+
+=cut
diff --git a/lib/5.24.1/Net/Config.pm b/lib/5.24.1/Net/Config.pm
new file mode 100644
index 00000000..3e4ab0a0
--- /dev/null
+++ b/lib/5.24.1/Net/Config.pm
@@ -0,0 +1,345 @@
+# Net::Config.pm
+#
+# Versions up to 1.11 Copyright (c) 2000 Graham Barr <gbarr@pobox.com>.
+# All rights reserved.
+# Changes in Version 1.11_01 onwards Copyright (C) 2013-2014 Steve Hay.  All
+# rights reserved.
+# This module is free software; you can redistribute it and/or modify it under
+# the same terms as Perl itself, i.e. under the terms of either the GNU General
+# Public License or the Artistic License, as specified in the F<LICENCE> file.
+
+package Net::Config;
+
+use 5.008001;
+
+use strict;
+use warnings;
+
+use Exporter;
+use Socket qw(inet_aton inet_ntoa);
+
+our @EXPORT  = qw(%NetConfig);
+our @ISA     = qw(Net::LocalCfg Exporter);
+our $VERSION = "3.08_01";
+
+our($CONFIGURE, $LIBNET_CFG);
+
+eval {
+  local @INC = @INC;
+  pop @INC if $INC[-1] eq '.';
+  local $SIG{__DIE__};
+  require Net::LocalCfg;
+};
+
+our %NetConfig = (
+  nntp_hosts      => [],
+  snpp_hosts      => [],
+  pop3_hosts      => [],
+  smtp_hosts      => [],
+  ph_hosts        => [],
+  daytime_hosts   => [],
+  time_hosts      => [],
+  inet_domain     => undef,
+  ftp_firewall    => undef,
+  ftp_ext_passive => 1,
+  ftp_int_passive => 1,
+  test_hosts      => 1,
+  test_exist      => 1,
+);
+
+#
+# Try to get as much configuration info as possible from InternetConfig
+#
+{
+## no critic (BuiltinFunctions::ProhibitStringyEval)
+$^O eq 'MacOS' and eval <<TRY_INTERNET_CONFIG;
+use Mac::InternetConfig;
+
+{
+my %nc = (
+    nntp_hosts      => [ \$InternetConfig{ kICNNTPHost() } ],
+    pop3_hosts      => [ \$InternetConfig{ kICMailAccount() } =~ /\@(.*)/ ],
+    smtp_hosts      => [ \$InternetConfig{ kICSMTPHost() } ],
+    ftp_testhost    => \$InternetConfig{ kICFTPHost() } ? \$InternetConfig{ kICFTPHost()} : undef,
+    ph_hosts        => [ \$InternetConfig{ kICPhHost() }   ],
+    ftp_ext_passive => \$InternetConfig{"646F676F\xA5UsePassiveMode"} || 0,
+    ftp_int_passive => \$InternetConfig{"646F676F\xA5UsePassiveMode"} || 0,
+    socks_hosts     => 
+        \$InternetConfig{ kICUseSocks() }    ? [ \$InternetConfig{ kICSocksHost() }    ] : [],
+    ftp_firewall    => 
+        \$InternetConfig{ kICUseFTPProxy() } ? [ \$InternetConfig{ kICFTPProxyHost() } ] : [],
+);
+\@NetConfig{keys %nc} = values %nc;
+}
+TRY_INTERNET_CONFIG
+}
+
+my $file = __FILE__;
+my $ref;
+$file =~ s/Config.pm/libnet.cfg/;
+if (-f $file) {
+  $ref = eval { local $SIG{__DIE__}; do $file };
+  if (ref($ref) eq 'HASH') {
+    %NetConfig = (%NetConfig, %{$ref});
+    $LIBNET_CFG = $file;
+  }
+}
+if ($< == $> and !$CONFIGURE) {
+  my $home = eval { local $SIG{__DIE__}; (getpwuid($>))[7] } || $ENV{HOME};
+  $home ||= $ENV{HOMEDRIVE} . ($ENV{HOMEPATH} || '') if defined $ENV{HOMEDRIVE};
+  if (defined $home) {
+    $file      = $home . "/.libnetrc";
+    $ref       = eval { local $SIG{__DIE__}; do $file } if -f $file;
+    %NetConfig = (%NetConfig, %{$ref})
+      if ref($ref) eq 'HASH';
+  }
+}
+my ($k, $v);
+while (($k, $v) = each %NetConfig) {
+  $NetConfig{$k} = [$v]
+    if ($k =~ /_hosts$/ and $k ne "test_hosts" and defined($v) and !ref($v));
+}
+
+# Take a hostname and determine if it is inside the firewall
+
+
+sub requires_firewall {
+  shift;    # ignore package
+  my $host = shift;
+
+  return 0 unless defined $NetConfig{'ftp_firewall'};
+
+  $host = inet_aton($host) or return -1;
+  $host = inet_ntoa($host);
+
+  if (exists $NetConfig{'local_netmask'}) {
+    my $quad = unpack("N", pack("C*", split(/\./, $host)));
+    my $list = $NetConfig{'local_netmask'};
+    $list = [$list] unless ref($list);
+    foreach (@$list) {
+      my ($net, $bits) = (m#^(\d+\.\d+\.\d+\.\d+)/(\d+)$#) or next;
+      my $mask = ~0 << (32 - $bits);
+      my $addr = unpack("N", pack("C*", split(/\./, $net)));
+
+      return 0 if (($addr & $mask) == ($quad & $mask));
+    }
+    return 1;
+  }
+
+  return 0;
+}
+
+*is_external = \&requires_firewall;
+
+1;
+
+__END__
+
+=head1 NAME
+
+Net::Config - Local configuration data for libnet
+
+=head1 SYNOPSIS
+
+    use Net::Config qw(%NetConfig);
+
+=head1 DESCRIPTION
+
+C<Net::Config> holds configuration data for the modules in the libnet
+distribution. During installation you will be asked for these values.
+
+The configuration data is held globally in a file in the perl installation
+tree, but a user may override any of these values by providing their own. This
+can be done by having a C<.libnetrc> file in their home directory. This file
+should return a reference to a HASH containing the keys described below.
+For example
+
+    # .libnetrc
+    {
+        nntp_hosts => [ "my_preferred_host" ],
+        ph_hosts   => [ "my_ph_server" ],
+    }
+    __END__
+
+=head1 METHODS
+
+C<Net::Config> defines the following methods. They are methods as they are
+invoked as class methods. This is because C<Net::Config> inherits from
+C<Net::LocalCfg> so you can override these methods if you want.
+
+=over 4
+
+=item requires_firewall ( HOST )
+
+Attempts to determine if a given host is outside your firewall. Possible
+return values are.
+
+  -1  Cannot lookup hostname
+   0  Host is inside firewall (or there is no ftp_firewall entry)
+   1  Host is outside the firewall
+
+This is done by using hostname lookup and the C<local_netmask> entry in
+the configuration data.
+
+=back
+
+=head1 NetConfig VALUES
+
+=over 4
+
+=item nntp_hosts
+
+=item snpp_hosts
+
+=item pop3_hosts
+
+=item smtp_hosts
+
+=item ph_hosts
+
+=item daytime_hosts
+
+=item time_hosts
+
+Each is a reference to an array of hostnames (in order of preference),
+which should be used for the given protocol
+
+=item inet_domain
+
+Your internet domain name
+
+=item ftp_firewall
+
+If you have an FTP proxy firewall (B<NOT> an HTTP or SOCKS firewall)
+then this value should be set to the firewall hostname. If your firewall
+does not listen to port 21, then this value should be set to
+C<"hostname:port"> (eg C<"hostname:99">)
+
+=item ftp_firewall_type
+
+There are many different ftp firewall products available. But unfortunately
+there is no standard for how to traverse a firewall.  The list below shows the
+sequence of commands that Net::FTP will use
+
+  user        Username for remote host
+  pass        Password for remote host
+  fwuser      Username for firewall
+  fwpass      Password for firewall
+  remote.host The hostname of the remote ftp server
+
+=over 4
+
+=item 0Z<>
+
+There is no firewall
+
+=item 1Z<>
+
+     USER user@remote.host
+     PASS pass
+
+=item 2Z<>
+
+     USER fwuser
+     PASS fwpass
+     USER user@remote.host
+     PASS pass
+
+=item 3Z<>
+
+     USER fwuser
+     PASS fwpass
+     SITE remote.site
+     USER user
+     PASS pass
+
+=item 4Z<>
+
+     USER fwuser
+     PASS fwpass
+     OPEN remote.site
+     USER user
+     PASS pass
+
+=item 5Z<>
+
+     USER user@fwuser@remote.site
+     PASS pass@fwpass
+
+=item 6Z<>
+
+     USER fwuser@remote.site
+     PASS fwpass
+     USER user
+     PASS pass
+
+=item 7Z<>
+
+     USER user@remote.host
+     PASS pass
+     AUTH fwuser
+     RESP fwpass
+
+=back
+
+=item ftp_ext_passive
+
+=item ftp_int_passive
+
+FTP servers can work in passive or active mode. Active mode is when
+you want to transfer data you have to tell the server the address and
+port to connect to.  Passive mode is when the server provide the
+address and port and you establish the connection.
+
+With some firewalls active mode does not work as the server cannot
+connect to your machine (because you are behind a firewall) and the firewall
+does not re-write the command. In this case you should set C<ftp_ext_passive>
+to a I<true> value.
+
+Some servers are configured to only work in passive mode. If you have
+one of these you can force C<Net::FTP> to always transfer in passive
+mode; when not going via a firewall, by setting C<ftp_int_passive> to
+a I<true> value.
+
+=item local_netmask
+
+A reference to a list of netmask strings in the form C<"134.99.4.0/24">.
+These are used by the C<requires_firewall> function to determine if a given
+host is inside or outside your firewall.
+
+=back
+
+The following entries are used during installation & testing on the
+libnet package
+
+=over 4
+
+=item test_hosts
+
+If true then C<make test> may attempt to connect to hosts given in the
+configuration.
+
+=item test_exists
+
+If true then C<Configure> will check each hostname given that it exists
+
+=back
+
+=head1 AUTHOR
+
+Graham Barr E<lt>F<gbarr@pobox.com>E<gt>
+
+Steve Hay E<lt>F<shay@cpan.org>E<gt> is now maintaining libnet as of version
+1.22_02
+
+=head1 COPYRIGHT
+
+Versions up to 1.11 Copyright (c) 1998-2011 Graham Barr. All rights reserved.
+Changes in Version 1.11_01 onwards Copyright (C) 2013-2014 Steve Hay.  All
+rights reserved.
+
+This module is free software; you can redistribute it and/or modify it under the
+same terms as Perl itself, i.e. under the terms of either the GNU General Public
+License or the Artistic License, as specified in the F<LICENCE> file.
+
+=cut
diff --git a/lib/5.24.1/Net/Domain.pm b/lib/5.24.1/Net/Domain.pm
new file mode 100644
index 00000000..53822da1
--- /dev/null
+++ b/lib/5.24.1/Net/Domain.pm
@@ -0,0 +1,364 @@
+# Net::Domain.pm
+#
+# Versions up to 2.21 Copyright (c) 1995-1998 Graham Barr <gbarr@pobox.com>.
+# All rights reserved.
+# Changes in Version 2.22 onwards Copyright (C) 2013-2014 Steve Hay.  All rights
+# reserved.
+# This module is free software; you can redistribute it and/or modify it under
+# the same terms as Perl itself, i.e. under the terms of either the GNU General
+# Public License or the Artistic License, as specified in the F<LICENCE> file.
+
+package Net::Domain;
+
+use 5.008001;
+
+use strict;
+use warnings;
+
+use Carp;
+use Exporter;
+use Net::Config;
+
+our @ISA       = qw(Exporter);
+our @EXPORT_OK = qw(hostname hostdomain hostfqdn domainname);
+our $VERSION = "3.08_01";
+
+my ($host, $domain, $fqdn) = (undef, undef, undef);
+
+# Try every conceivable way to get hostname.
+
+
+sub _hostname {
+
+  # we already know it
+  return $host
+    if (defined $host);
+
+  if ($^O eq 'MSWin32') {
+    require Socket;
+    my ($name, $alias, $type, $len, @addr) = gethostbyname($ENV{'COMPUTERNAME'} || 'localhost');
+    while (@addr) {
+      my $a = shift(@addr);
+      $host = gethostbyaddr($a, Socket::AF_INET());
+      last if defined $host;
+    }
+    if (defined($host) && index($host, '.') > 0) {
+      $fqdn = $host;
+      ($host, $domain) = $fqdn =~ /^([^.]+)\.(.*)$/;
+    }
+    return $host;
+  }
+  elsif ($^O eq 'MacOS') {
+    chomp($host = `hostname`);
+  }
+  elsif ($^O eq 'VMS') {    ## multiple varieties of net s/w makes this hard
+    $host = $ENV{'UCX$INET_HOST'}      if defined($ENV{'UCX$INET_HOST'});
+    $host = $ENV{'MULTINET_HOST_NAME'} if defined($ENV{'MULTINET_HOST_NAME'});
+    if (index($host, '.') > 0) {
+      $fqdn = $host;
+      ($host, $domain) = $fqdn =~ /^([^.]+)\.(.*)$/;
+    }
+    return $host;
+  }
+  else {
+    local $SIG{'__DIE__'};
+
+    # syscall is preferred since it avoids tainting problems
+    eval {
+      my $tmp = "\0" x 256;    ## preload scalar
+      eval {
+        package main;
+        require "syscall.ph"; ## no critic (Modules::RequireBarewordIncludes)
+        defined(&main::SYS_gethostname);
+        }
+        || eval {
+        package main;
+        require "sys/syscall.ph"; ## no critic (Modules::RequireBarewordIncludes)
+        defined(&main::SYS_gethostname);
+        }
+        and $host =
+        (syscall(&main::SYS_gethostname, $tmp, 256) == 0)
+        ? $tmp
+        : undef;
+      }
+
+      # POSIX
+      || eval {
+      require POSIX;
+      $host = (POSIX::uname())[1];
+      }
+
+      # trusty old hostname command
+      || eval {
+      chop($host = `(hostname) 2>/dev/null`);    # BSD'ish
+      }
+
+      # sysV/POSIX uname command (may truncate)
+      || eval {
+      chop($host = `uname -n 2>/dev/null`);      ## SYSV'ish && POSIX'ish
+      }
+
+      # Apollo pre-SR10
+      || eval { $host = (split(/[:. ]/, `/com/host`, 6))[0]; }
+
+      || eval { $host = ""; };
+  }
+
+  # remove garbage
+  $host =~ s/[\0\r\n]+//go;
+  $host =~ s/(\A\.+|\.+\Z)//go;
+  $host =~ s/\.\.+/\./go;
+
+  $host;
+}
+
+
+sub _hostdomain {
+
+  # we already know it
+  return $domain
+    if (defined $domain);
+
+  local $SIG{'__DIE__'};
+
+  return $domain = $NetConfig{'inet_domain'}
+    if defined $NetConfig{'inet_domain'};
+
+  # try looking in /etc/resolv.conf
+  # putting this here and assuming that it is correct, eliminates
+  # calls to gethostbyname, and therefore DNS lookups. This helps
+  # those on dialup systems.
+
+  local ($_);
+
+  if (open(my $res, '<', "/etc/resolv.conf")) {
+    while (<$res>) {
+      $domain = $1
+        if (/\A\s*(?:domain|search)\s+(\S+)/);
+    }
+    close($res);
+
+    return $domain
+      if (defined $domain);
+  }
+
+  # just try hostname and system calls
+
+  my $host = _hostname();
+  my (@hosts);
+
+  @hosts = ($host, "localhost");
+
+  unless (defined($host) && $host =~ /\./) {
+    my $dom = undef;
+    eval {
+      my $tmp = "\0" x 256;    ## preload scalar
+      eval {
+        package main;
+        require "syscall.ph"; ## no critic (Modules::RequireBarewordIncludes)
+        }
+        || eval {
+        package main;
+        require "sys/syscall.ph"; ## no critic (Modules::RequireBarewordIncludes)
+        }
+        and $dom =
+        (syscall(&main::SYS_getdomainname, $tmp, 256) == 0)
+        ? $tmp
+        : undef;
+    };
+
+    if ($^O eq 'VMS') {
+      $dom ||= $ENV{'TCPIP$INET_DOMAIN'}
+        || $ENV{'UCX$INET_DOMAIN'};
+    }
+
+    chop($dom = `domainname 2>/dev/null`)
+      unless (defined $dom || $^O =~ /^(?:cygwin|MSWin32|android)/);
+
+    if (defined $dom) {
+      my @h = ();
+      $dom =~ s/^\.+//;
+      while (length($dom)) {
+        push(@h, "$host.$dom");
+        $dom =~ s/^[^.]+.+// or last;
+      }
+      unshift(@hosts, @h);
+    }
+  }
+
+  # Attempt to locate FQDN
+
+  foreach (grep { defined $_ } @hosts) {
+    my @info = gethostbyname($_);
+
+    next unless @info;
+
+    # look at real name & aliases
+    foreach my $site ($info[0], split(/ /, $info[1])) {
+      if (rindex($site, ".") > 0) {
+
+        # Extract domain from FQDN
+
+        ($domain = $site) =~ s/\A[^.]+\.//;
+        return $domain;
+      }
+    }
+  }
+
+  # Look for environment variable
+
+  $domain ||= $ENV{LOCALDOMAIN} || $ENV{DOMAIN};
+
+  if (defined $domain) {
+    $domain =~ s/[\r\n\0]+//g;
+    $domain =~ s/(\A\.+|\.+\Z)//g;
+    $domain =~ s/\.\.+/\./g;
+  }
+
+  $domain;
+}
+
+
+sub domainname {
+
+  return $fqdn
+    if (defined $fqdn);
+
+  _hostname();
+
+  # *.local names are special on darwin. If we call gethostbyname below, it
+  # may hang while waiting for another, non-existent computer to respond.
+  if($^O eq 'darwin' && $host =~ /\.local$/) {
+    return $host;
+  }
+
+  _hostdomain();
+
+  # Assumption: If the host name does not contain a period
+  # and the domain name does, then assume that they are correct
+  # this helps to eliminate calls to gethostbyname, and therefore
+  # eliminate DNS lookups
+
+  return $fqdn = $host . "." . $domain
+    if (defined $host
+    and defined $domain
+    and $host !~ /\./
+    and $domain =~ /\./);
+
+  # For hosts that have no name, just an IP address
+  return $fqdn = $host if defined $host and $host =~ /^\d+(\.\d+){3}$/;
+
+  my @host   = defined $host   ? split(/\./, $host)   : ('localhost');
+  my @domain = defined $domain ? split(/\./, $domain) : ();
+  my @fqdn   = ();
+
+  # Determine from @host & @domain the FQDN
+
+  my @d = @domain;
+
+LOOP:
+  while (1) {
+    my @h = @host;
+    while (@h) {
+      my $tmp = join(".", @h, @d);
+      if ((gethostbyname($tmp))[0]) {
+        @fqdn = (@h, @d);
+        $fqdn = $tmp;
+        last LOOP;
+      }
+      pop @h;
+    }
+    last unless shift @d;
+  }
+
+  if (@fqdn) {
+    $host = shift @fqdn;
+    until ((gethostbyname($host))[0]) {
+      $host .= "." . shift @fqdn;
+    }
+    $domain = join(".", @fqdn);
+  }
+  else {
+    undef $host;
+    undef $domain;
+    undef $fqdn;
+  }
+
+  $fqdn;
+}
+
+
+sub hostfqdn { domainname() }
+
+
+sub hostname {
+  domainname()
+    unless (defined $host);
+  return $host;
+}
+
+
+sub hostdomain {
+  domainname()
+    unless (defined $domain);
+  return $domain;
+}
+
+1;    # Keep require happy
+
+__END__
+
+=head1 NAME
+
+Net::Domain - Attempt to evaluate the current host's internet name and domain
+
+=head1 SYNOPSIS
+
+    use Net::Domain qw(hostname hostfqdn hostdomain domainname);
+
+=head1 DESCRIPTION
+
+Using various methods B<attempt> to find the Fully Qualified Domain Name (FQDN)
+of the current host. From this determine the host-name and the host-domain.
+
+Each of the functions will return I<undef> if the FQDN cannot be determined.
+
+=over 4
+
+=item hostfqdn ()
+
+Identify and return the FQDN of the current host.
+
+=item domainname ()
+
+An alias for hostfqdn ().
+
+=item hostname ()
+
+Returns the smallest part of the FQDN which can be used to identify the host.
+
+=item hostdomain ()
+
+Returns the remainder of the FQDN after the I<hostname> has been removed.
+
+=back
+
+=head1 AUTHOR
+
+Graham Barr E<lt>F<gbarr@pobox.com>E<gt>.
+Adapted from Sys::Hostname by David Sundstrom E<lt>F<sunds@asictest.sc.ti.com>E<gt>
+
+Steve Hay E<lt>F<shay@cpan.org>E<gt> is now maintaining libnet as of version
+1.22_02
+
+=head1 COPYRIGHT
+
+Versions up to 2.21 Copyright (c) 1995-1998 Graham Barr. All rights reserved.
+Changes in Version 2.22 onwards Copyright (C) 2013-2014 Steve Hay.  All rights
+reserved.
+
+This module is free software; you can redistribute it and/or modify it under the
+same terms as Perl itself, i.e. under the terms of either the GNU General Public
+License or the Artistic License, as specified in the F<LICENCE> file.
+
+=cut
diff --git a/lib/5.24.1/Net/FTP.pm b/lib/5.24.1/Net/FTP.pm
new file mode 100644
index 00000000..f3beb251
--- /dev/null
+++ b/lib/5.24.1/Net/FTP.pm
@@ -0,0 +1,2049 @@
+# Net::FTP.pm
+#
+# Versions up to 2.77_2 Copyright (c) 1995-2004 Graham Barr <gbarr@pobox.com>.
+# All rights reserved.
+# Changes in Version 2.77_3 onwards Copyright (C) 2013-2015 Steve Hay.  All
+# rights reserved.
+# This module is free software; you can redistribute it and/or modify it under
+# the same terms as Perl itself, i.e. under the terms of either the GNU General
+# Public License or the Artistic License, as specified in the F<LICENCE> file.
+#
+# Documentation (at end) improved 1996 by Nathan Torkington <gnat@frii.com>.
+
+package Net::FTP;
+
+use 5.008001;
+
+use strict;
+use warnings;
+
+use Carp;
+use Fcntl qw(O_WRONLY O_RDONLY O_APPEND O_CREAT O_TRUNC);
+use IO::Socket;
+use Net::Cmd;
+use Net::Config;
+use Socket;
+use Time::Local;
+
+our $VERSION = '3.08_01';
+
+our $IOCLASS;
+my $family_key;
+BEGIN {
+  # Code for detecting if we can use SSL
+  my $ssl_class = eval {
+    require IO::Socket::SSL;
+    # first version with default CA on most platforms
+    no warnings 'numeric';
+    IO::Socket::SSL->VERSION(2.007);
+  } && 'IO::Socket::SSL';
+
+  my $nossl_warn = !$ssl_class &&
+    'To use SSL please install IO::Socket::SSL with version>=2.007';
+
+  # Code for detecting if we can use IPv6
+  my $inet6_class = eval {
+    require IO::Socket::IP;
+    no warnings 'numeric';
+    IO::Socket::IP->VERSION(0.20);
+  } && 'IO::Socket::IP' || eval {
+    require IO::Socket::INET6;
+    no warnings 'numeric';
+    IO::Socket::INET6->VERSION(2.62);
+  } && 'IO::Socket::INET6';
+
+  sub can_ssl   { $ssl_class };
+  sub can_inet6 { $inet6_class };
+
+  $IOCLASS = $ssl_class || $inet6_class || 'IO::Socket::INET';
+  $family_key =
+    ( $ssl_class ? $ssl_class->can_ipv6 : $inet6_class || '' )
+      eq 'IO::Socket::IP'
+      ? 'Family' : 'Domain';
+}
+
+our @ISA = ('Exporter','Net::Cmd',$IOCLASS);
+
+use constant TELNET_IAC => 255;
+use constant TELNET_IP  => 244;
+use constant TELNET_DM  => 242;
+
+use constant EBCDIC => $^O eq 'os390';
+
+sub new {
+  my $pkg = shift;
+  my ($peer, %arg);
+  if (@_ % 2) {
+    $peer = shift;
+    %arg  = @_;
+  }
+  else {
+    %arg  = @_;
+    $peer = delete $arg{Host};
+  }
+
+  my $host      = $peer;
+  my $fire      = undef;
+  my $fire_type = undef;
+
+  if (exists($arg{Firewall}) || Net::Config->requires_firewall($peer)) {
+         $fire = $arg{Firewall}
+      || $ENV{FTP_FIREWALL}
+      || $NetConfig{ftp_firewall}
+      || undef;
+
+    if (defined $fire) {
+      $peer = $fire;
+      delete $arg{Port};
+           $fire_type = $arg{FirewallType}
+        || $ENV{FTP_FIREWALL_TYPE}
+        || $NetConfig{firewall_type}
+        || undef;
+    }
+  }
+
+  my %tlsargs;
+  if (can_ssl()) {
+    # for name verification strip port from domain:port, ipv4:port, [ipv6]:port
+    (my $hostname = $host) =~s{(?<!:):\d+$}{};
+    %tlsargs = (
+      SSL_verifycn_scheme => 'ftp',
+      SSL_verifycn_name => $hostname,
+      # use SNI if supported by IO::Socket::SSL
+      $pkg->can_client_sni ? (SSL_hostname => $hostname):(),
+      # reuse SSL session of control connection in data connections
+      SSL_session_cache => Net::FTP::_SSL_SingleSessionCache->new,
+    );
+    # user defined SSL arg
+    $tlsargs{$_} = $arg{$_} for(grep { m{^SSL_} } keys %arg);
+
+  } elsif ($arg{SSL}) {
+    croak("IO::Socket::SSL >= 2.007 needed for SSL support");
+  }
+
+  my $ftp = $pkg->SUPER::new(
+    PeerAddr  => $peer,
+    PeerPort  => $arg{Port} || ($arg{SSL} ? 'ftps(990)' : 'ftp(21)'),
+    LocalAddr => $arg{'LocalAddr'},
+    $family_key => $arg{Domain} || $arg{Family},
+    Proto     => 'tcp',
+    Timeout   => defined $arg{Timeout} ? $arg{Timeout} : 120,
+    %tlsargs,
+    $arg{SSL} ? ():( SSL_startHandshake => 0 ),
+  ) or return;
+
+  ${*$ftp}{'net_ftp_host'}    = $host;                             # Remote hostname
+  ${*$ftp}{'net_ftp_type'}    = 'A';                               # ASCII/binary/etc mode
+  ${*$ftp}{'net_ftp_blksize'} = abs($arg{'BlockSize'} || 10240);
+
+  ${*$ftp}{'net_ftp_localaddr'} = $arg{'LocalAddr'};
+  ${*$ftp}{'net_ftp_domain'} = $arg{Domain} || $arg{Family};
+
+  ${*$ftp}{'net_ftp_firewall'} = $fire
+    if (defined $fire);
+  ${*$ftp}{'net_ftp_firewall_type'} = $fire_type
+    if (defined $fire_type);
+
+  ${*$ftp}{'net_ftp_passive'} =
+      int exists $arg{Passive} ? $arg{Passive}
+    : exists $ENV{FTP_PASSIVE} ? $ENV{FTP_PASSIVE}
+    : defined $fire            ? $NetConfig{ftp_ext_passive}
+    : $NetConfig{ftp_int_passive};    # Whew! :-)
+
+  ${*$ftp}{net_ftp_tlsargs} = \%tlsargs if %tlsargs;
+  if ($arg{SSL}) {
+    ${*$ftp}{net_ftp_tlsprot} = 'P';
+    ${*$ftp}{net_ftp_tlsdirect} = 1;
+  }
+
+  $ftp->hash(exists $arg{Hash} ? $arg{Hash} : 0, 1024);
+
+  $ftp->autoflush(1);
+
+  $ftp->debug(exists $arg{Debug} ? $arg{Debug} : undef);
+
+  unless ($ftp->response() == CMD_OK) {
+    $ftp->close();
+    # keep @$ if no message. Happens, when response did not start with a code.
+    $@ = $ftp->message || $@;
+    undef $ftp;
+  }
+
+  $ftp;
+}
+
+##
+## User interface methods
+##
+
+
+sub host {
+  my $me = shift;
+  ${*$me}{'net_ftp_host'};
+}
+
+sub passive {
+  my $ftp = shift;
+  return ${*$ftp}{'net_ftp_passive'} unless @_;
+  ${*$ftp}{'net_ftp_passive'} = shift;
+}
+
+
+sub hash {
+  my $ftp = shift;    # self
+
+  my ($h, $b) = @_;
+  unless ($h) {
+    delete ${*$ftp}{'net_ftp_hash'};
+    return [\*STDERR, 0];
+  }
+  ($h, $b) = (ref($h) ? $h : \*STDERR, $b || 1024);
+  select((select($h), $| = 1)[0]);
+  $b = 512 if $b < 512;
+  ${*$ftp}{'net_ftp_hash'} = [$h, $b];
+}
+
+
+sub quit {
+  my $ftp = shift;
+
+  $ftp->_QUIT;
+  $ftp->close;
+}
+
+
+sub DESTROY { }
+
+
+sub ascii  { shift->type('A', @_); }
+sub binary { shift->type('I', @_); }
+
+
+sub ebcdic {
+  carp "TYPE E is unsupported, shall default to I";
+  shift->type('E', @_);
+}
+
+
+sub byte {
+  carp "TYPE L is unsupported, shall default to I";
+  shift->type('L', @_);
+}
+
+# Allow the user to send a command directly, BE CAREFUL !!
+
+
+sub quot {
+  my $ftp = shift;
+  my $cmd = shift;
+
+  $ftp->command(uc $cmd, @_);
+  $ftp->response();
+}
+
+
+sub site {
+  my $ftp = shift;
+
+  $ftp->command("SITE", @_);
+  $ftp->response();
+}
+
+
+sub mdtm {
+  my $ftp  = shift;
+  my $file = shift;
+
+  # Server Y2K bug workaround
+  #
+  # sigh; some idiotic FTP servers use ("19%d",tm.tm_year) instead of
+  # ("%d",tm.tm_year+1900).  This results in an extra digit in the
+  # string returned. To account for this we allow an optional extra
+  # digit in the year. Then if the first two digits are 19 we use the
+  # remainder, otherwise we subtract 1900 from the whole year.
+
+  $ftp->_MDTM($file)
+    && $ftp->message =~ /((\d\d)(\d\d\d?))(\d\d)(\d\d)(\d\d)(\d\d)(\d\d)/
+    ? timegm($8, $7, $6, $5, $4 - 1, $2 eq '19' ? $3 : ($1 - 1900))
+    : undef;
+}
+
+
+sub size {
+  my $ftp  = shift;
+  my $file = shift;
+  my $io;
+  if ($ftp->supported("SIZE")) {
+    return $ftp->_SIZE($file)
+      ? ($ftp->message =~ /(\d+)\s*(bytes?\s*)?$/)[0]
+      : undef;
+  }
+  elsif ($ftp->supported("STAT")) {
+    my @msg;
+    return
+      unless $ftp->_STAT($file) && (@msg = $ftp->message) == 3;
+    foreach my $line (@msg) {
+      return (split(/\s+/, $line))[4]
+        if $line =~ /^[-rwxSsTt]{10}/;
+    }
+  }
+  else {
+    my @files = $ftp->dir($file);
+    if (@files) {
+      return (split(/\s+/, $1))[4]
+        if $files[0] =~ /^([-rwxSsTt]{10}.*)$/;
+    }
+  }
+  undef;
+}
+
+
+sub starttls {
+  my $ftp = shift;
+  can_ssl() or croak("IO::Socket::SSL >= 2.007 needed for SSL support");
+  $ftp->is_SSL and croak("called starttls within SSL session");
+  $ftp->_AUTH('TLS') == CMD_OK or return;
+
+  $ftp->connect_SSL or return;
+  $ftp->prot('P');
+  return 1;
+}
+
+sub prot {
+  my ($ftp,$prot) = @_;
+  $prot eq 'C' or $prot eq 'P' or croak("prot must by C or P");
+  $ftp->_PBSZ(0) or return;
+  $ftp->_PROT($prot) or return;
+  ${*$ftp}{net_ftp_tlsprot} = $prot;
+  return 1;
+}
+
+sub stoptls {
+  my $ftp = shift;
+  $ftp->is_SSL or croak("called stoptls outside SSL session");
+  ${*$ftp}{net_ftp_tlsdirect} and croak("cannot stoptls direct SSL session");
+  $ftp->_CCC() or return;
+  $ftp->stop_SSL();
+  return 1;
+}
+
+sub login {
+  my ($ftp, $user, $pass, $acct) = @_;
+  my ($ok, $ruser, $fwtype);
+
+  unless (defined $user) {
+    require Net::Netrc;
+
+    my $rc = Net::Netrc->lookup(${*$ftp}{'net_ftp_host'});
+
+    ($user, $pass, $acct) = $rc->lpa()
+      if ($rc);
+  }
+
+  $user ||= "anonymous";
+  $ruser = $user;
+
+  $fwtype = ${*$ftp}{'net_ftp_firewall_type'}
+    || $NetConfig{'ftp_firewall_type'}
+    || 0;
+
+  if ($fwtype && defined ${*$ftp}{'net_ftp_firewall'}) {
+    if ($fwtype == 1 || $fwtype == 7) {
+      $user .= '@' . ${*$ftp}{'net_ftp_host'};
+    }
+    else {
+      require Net::Netrc;
+
+      my $rc = Net::Netrc->lookup(${*$ftp}{'net_ftp_firewall'});
+
+      my ($fwuser, $fwpass, $fwacct) = $rc ? $rc->lpa() : ();
+
+      if ($fwtype == 5) {
+        $user = join('@', $user, $fwuser, ${*$ftp}{'net_ftp_host'});
+        $pass = $pass . '@' . $fwpass;
+      }
+      else {
+        if ($fwtype == 2) {
+          $user .= '@' . ${*$ftp}{'net_ftp_host'};
+        }
+        elsif ($fwtype == 6) {
+          $fwuser .= '@' . ${*$ftp}{'net_ftp_host'};
+        }
+
+        $ok = $ftp->_USER($fwuser);
+
+        return 0 unless $ok == CMD_OK || $ok == CMD_MORE;
+
+        $ok = $ftp->_PASS($fwpass || "");
+
+        return 0 unless $ok == CMD_OK || $ok == CMD_MORE;
+
+        $ok = $ftp->_ACCT($fwacct)
+          if defined($fwacct);
+
+        if ($fwtype == 3) {
+          $ok = $ftp->command("SITE", ${*$ftp}{'net_ftp_host'})->response;
+        }
+        elsif ($fwtype == 4) {
+          $ok = $ftp->command("OPEN", ${*$ftp}{'net_ftp_host'})->response;
+        }
+
+        return 0 unless $ok == CMD_OK || $ok == CMD_MORE;
+      }
+    }
+  }
+
+  $ok = $ftp->_USER($user);
+
+  # Some dumb firewalls don't prefix the connection messages
+  $ok = $ftp->response()
+    if ($ok == CMD_OK && $ftp->code == 220 && $user =~ /\@/);
+
+  if ($ok == CMD_MORE) {
+    unless (defined $pass) {
+      require Net::Netrc;
+
+      my $rc = Net::Netrc->lookup(${*$ftp}{'net_ftp_host'}, $ruser);
+
+      ($ruser, $pass, $acct) = $rc->lpa()
+        if ($rc);
+
+      $pass = '-anonymous@'
+        if (!defined $pass && (!defined($ruser) || $ruser =~ /^anonymous/o));
+    }
+
+    $ok = $ftp->_PASS($pass || "");
+  }
+
+  $ok = $ftp->_ACCT($acct)
+    if (defined($acct) && ($ok == CMD_MORE || $ok == CMD_OK));
+
+  if ($fwtype == 7 && $ok == CMD_OK && defined ${*$ftp}{'net_ftp_firewall'}) {
+    my ($f, $auth, $resp) = _auth_id($ftp);
+    $ftp->authorize($auth, $resp) if defined($resp);
+  }
+
+  $ok == CMD_OK;
+}
+
+
+sub account {
+  @_ == 2 or croak 'usage: $ftp->account( ACCT )';
+  my $ftp  = shift;
+  my $acct = shift;
+  $ftp->_ACCT($acct) == CMD_OK;
+}
+
+
+sub _auth_id {
+  my ($ftp, $auth, $resp) = @_;
+
+  unless (defined $resp) {
+    require Net::Netrc;
+
+    $auth ||= eval { (getpwuid($>))[0] } || $ENV{NAME};
+
+    my $rc = Net::Netrc->lookup(${*$ftp}{'net_ftp_firewall'}, $auth)
+      || Net::Netrc->lookup(${*$ftp}{'net_ftp_firewall'});
+
+    ($auth, $resp) = $rc->lpa()
+      if ($rc);
+  }
+  ($ftp, $auth, $resp);
+}
+
+
+sub authorize {
+  @_ >= 1 || @_ <= 3 or croak 'usage: $ftp->authorize( [AUTH [, RESP]])';
+
+  my ($ftp, $auth, $resp) = &_auth_id;
+
+  my $ok = $ftp->_AUTH($auth || "");
+
+  return $ftp->_RESP($resp || "")
+    if ($ok == CMD_MORE);
+
+  $ok == CMD_OK;
+}
+
+
+sub rename {
+  @_ == 3 or croak 'usage: $ftp->rename(FROM, TO)';
+
+  my ($ftp, $from, $to) = @_;
+
+  $ftp->_RNFR($from)
+    && $ftp->_RNTO($to);
+}
+
+
+sub type {
+  my $ftp    = shift;
+  my $type   = shift;
+  my $oldval = ${*$ftp}{'net_ftp_type'};
+
+  return $oldval
+    unless (defined $type);
+
+  return
+    unless ($ftp->_TYPE($type, @_));
+
+  ${*$ftp}{'net_ftp_type'} = join(" ", $type, @_);
+
+  $oldval;
+}
+
+
+sub alloc {
+  my $ftp    = shift;
+  my $size   = shift;
+  my $oldval = ${*$ftp}{'net_ftp_allo'};
+
+  return $oldval
+    unless (defined $size);
+
+  return
+    unless ($ftp->supported("ALLO") and $ftp->_ALLO($size, @_));
+
+  ${*$ftp}{'net_ftp_allo'} = join(" ", $size, @_);
+
+  $oldval;
+}
+
+
+sub abort {
+  my $ftp = shift;
+
+  send($ftp, pack("CCC", TELNET_IAC, TELNET_IP, TELNET_IAC), MSG_OOB);
+
+  $ftp->command(pack("C", TELNET_DM) . "ABOR");
+
+  ${*$ftp}{'net_ftp_dataconn'}->close()
+    if defined ${*$ftp}{'net_ftp_dataconn'};
+
+  $ftp->response();
+
+  $ftp->status == CMD_OK;
+}
+
+
+sub get {
+  my ($ftp, $remote, $local, $where) = @_;
+
+  my ($loc, $len, $buf, $resp, $data);
+  local *FD;
+
+  my $localfd = ref($local) || ref(\$local) eq "GLOB";
+
+  ($local = $remote) =~ s#^.*/##
+    unless (defined $local);
+
+  croak("Bad remote filename '$remote'\n")
+    if $remote =~ /[\r\n]/s;
+
+  ${*$ftp}{'net_ftp_rest'} = $where if defined $where;
+  my $rest = ${*$ftp}{'net_ftp_rest'};
+
+  delete ${*$ftp}{'net_ftp_port'};
+  delete ${*$ftp}{'net_ftp_pasv'};
+
+  $data = $ftp->retr($remote)
+    or return;
+
+  if ($localfd) {
+    $loc = $local;
+  }
+  else {
+    $loc = \*FD;
+
+    unless (sysopen($loc, $local, O_CREAT | O_WRONLY | ($rest ? O_APPEND: O_TRUNC))) {
+      carp "Cannot open Local file $local: $!\n";
+      $data->abort;
+      return;
+    }
+  }
+
+  if ($ftp->type eq 'I' && !binmode($loc)) {
+    carp "Cannot binmode Local file $local: $!\n";
+    $data->abort;
+    close($loc) unless $localfd;
+    return;
+  }
+
+  $buf = '';
+  my ($count, $hashh, $hashb, $ref) = (0);
+
+  ($hashh, $hashb) = @$ref
+    if ($ref = ${*$ftp}{'net_ftp_hash'});
+
+  my $blksize = ${*$ftp}{'net_ftp_blksize'};
+  local $\;    # Just in case
+
+  while (1) {
+    last unless $len = $data->read($buf, $blksize);
+
+    if (EBCDIC && $ftp->type ne 'I') {
+      $buf = $ftp->toebcdic($buf);
+      $len = length($buf);
+    }
+
+    if ($hashh) {
+      $count += $len;
+      print $hashh "#" x (int($count / $hashb));
+      $count %= $hashb;
+    }
+    unless (print $loc $buf) {
+      carp "Cannot write to Local file $local: $!\n";
+      $data->abort;
+      close($loc)
+        unless $localfd;
+      return;
+    }
+  }
+
+  print $hashh "\n" if $hashh;
+
+  unless ($localfd) {
+    unless (close($loc)) {
+      carp "Cannot close file $local (perhaps disk space) $!\n";
+      return;
+    }
+  }
+
+  unless ($data->close())    # implied $ftp->response
+  {
+    carp "Unable to close datastream";
+    return;
+  }
+
+  return $local;
+}
+
+
+sub cwd {
+  @_ == 1 || @_ == 2 or croak 'usage: $ftp->cwd( [ DIR ] )';
+
+  my ($ftp, $dir) = @_;
+
+  $dir = "/" unless defined($dir) && $dir =~ /\S/;
+
+  $dir eq ".."
+    ? $ftp->_CDUP()
+    : $ftp->_CWD($dir);
+}
+
+
+sub cdup {
+  @_ == 1 or croak 'usage: $ftp->cdup()';
+  $_[0]->_CDUP;
+}
+
+
+sub pwd {
+  @_ == 1 || croak 'usage: $ftp->pwd()';
+  my $ftp = shift;
+
+  $ftp->_PWD();
+  $ftp->_extract_path;
+}
+
+# rmdir( $ftp, $dir, [ $recurse ] )
+#
+# Removes $dir on remote host via FTP.
+# $ftp is handle for remote host
+#
+# If $recurse is TRUE, the directory and deleted recursively.
+# This means all of its contents and subdirectories.
+#
+# Initial version contributed by Dinkum Software
+#
+sub rmdir {
+  @_ == 2 || @_ == 3 or croak('usage: $ftp->rmdir( DIR [, RECURSE ] )');
+
+  # Pick off the args
+  my ($ftp, $dir, $recurse) = @_;
+  my $ok;
+
+  return $ok
+    if $ok = $ftp->_RMD($dir)
+    or !$recurse;
+
+  # Try to delete the contents
+  # Get a list of all the files in the directory, excluding the current and parent directories
+  my @filelist = map { /^(?:\S+;)+ (.+)$/ ? ($1) : () } grep { !/^(?:\S+;)*type=[cp]dir;/ } $ftp->_list_cmd("MLSD", $dir);
+
+  # Fallback to using the less well-defined NLST command if MLSD fails
+  @filelist = grep { !/^\.{1,2}$/ } $ftp->ls($dir)
+    unless @filelist;
+
+  return
+    unless @filelist;    # failed, it is probably not a directory
+
+  return $ftp->delete($dir)
+    if @filelist == 1 and $dir eq $filelist[0];
+
+  # Go thru and delete each file or the directory
+  foreach my $file (map { m,/, ? $_ : "$dir/$_" } @filelist) {
+    next                 # successfully deleted the file
+      if $ftp->delete($file);
+
+    # Failed to delete it, assume its a directory
+    # Recurse and ignore errors, the final rmdir() will
+    # fail on any errors here
+    return $ok
+      unless $ok = $ftp->rmdir($file, 1);
+  }
+
+  # Directory should be empty
+  # Try to remove the directory again
+  # Pass results directly to caller
+  # If any of the prior deletes failed, this
+  # rmdir() will fail because directory is not empty
+  return $ftp->_RMD($dir);
+}
+
+
+sub restart {
+  @_ == 2 || croak 'usage: $ftp->restart( BYTE_OFFSET )';
+
+  my ($ftp, $where) = @_;
+
+  ${*$ftp}{'net_ftp_rest'} = $where;
+
+  return;
+}
+
+
+sub mkdir {
+  @_ == 2 || @_ == 3 or croak 'usage: $ftp->mkdir( DIR [, RECURSE ] )';
+
+  my ($ftp, $dir, $recurse) = @_;
+
+  $ftp->_MKD($dir) || $recurse
+    or return;
+
+  my $path = $dir;
+
+  unless ($ftp->ok) {
+    my @path = split(m#(?=/+)#, $dir);
+
+    $path = "";
+
+    while (@path) {
+      $path .= shift @path;
+
+      $ftp->_MKD($path);
+
+      $path = $ftp->_extract_path($path);
+    }
+
+    # If the creation of the last element was not successful, see if we
+    # can cd to it, if so then return path
+
+    unless ($ftp->ok) {
+      my ($status, $message) = ($ftp->status, $ftp->message);
+      my $pwd = $ftp->pwd;
+
+      if ($pwd && $ftp->cwd($dir)) {
+        $path = $dir;
+        $ftp->cwd($pwd);
+      }
+      else {
+        undef $path;
+      }
+      $ftp->set_status($status, $message);
+    }
+  }
+
+  $path;
+}
+
+
+sub delete {
+  @_ == 2 || croak 'usage: $ftp->delete( FILENAME )';
+
+  $_[0]->_DELE($_[1]);
+}
+
+
+sub put        { shift->_store_cmd("stor", @_) }
+sub put_unique { shift->_store_cmd("stou", @_) }
+sub append     { shift->_store_cmd("appe", @_) }
+
+
+sub nlst { shift->_data_cmd("NLST", @_) }
+sub list { shift->_data_cmd("LIST", @_) }
+sub retr { shift->_data_cmd("RETR", @_) }
+sub stor { shift->_data_cmd("STOR", @_) }
+sub stou { shift->_data_cmd("STOU", @_) }
+sub appe { shift->_data_cmd("APPE", @_) }
+
+
+sub _store_cmd {
+  my ($ftp, $cmd, $local, $remote) = @_;
+  my ($loc, $sock, $len, $buf);
+  local *FD;
+
+  my $localfd = ref($local) || ref(\$local) eq "GLOB";
+
+  if (!defined($remote) and 'STOU' ne uc($cmd)) {
+    croak 'Must specify remote filename with stream input'
+      if $localfd;
+
+    require File::Basename;
+    $remote = File::Basename::basename($local);
+  }
+  if (defined ${*$ftp}{'net_ftp_allo'}) {
+    delete ${*$ftp}{'net_ftp_allo'};
+  }
+  else {
+
+    # if the user hasn't already invoked the alloc method since the last
+    # _store_cmd call, figure out if the local file is a regular file(not
+    # a pipe, or device) and if so get the file size from stat, and send
+    # an ALLO command before sending the STOR, STOU, or APPE command.
+    my $size = do { local $^W; -f $local && -s _ };    # no ALLO if sending data from a pipe
+    ${*$ftp}{'net_ftp_allo'} = $size if $size;
+  }
+  croak("Bad remote filename '$remote'\n")
+    if defined($remote) and $remote =~ /[\r\n]/s;
+
+  if ($localfd) {
+    $loc = $local;
+  }
+  else {
+    $loc = \*FD;
+
+    unless (sysopen($loc, $local, O_RDONLY)) {
+      carp "Cannot open Local file $local: $!\n";
+      return;
+    }
+  }
+
+  if ($ftp->type eq 'I' && !binmode($loc)) {
+    carp "Cannot binmode Local file $local: $!\n";
+    return;
+  }
+
+  delete ${*$ftp}{'net_ftp_port'};
+  delete ${*$ftp}{'net_ftp_pasv'};
+
+  $sock = $ftp->_data_cmd($cmd, grep { defined } $remote)
+    or return;
+
+  $remote = ($ftp->message =~ /\w+\s*:\s*(.*)/)[0]
+    if 'STOU' eq uc $cmd;
+
+  my $blksize = ${*$ftp}{'net_ftp_blksize'};
+
+  my ($count, $hashh, $hashb, $ref) = (0);
+
+  ($hashh, $hashb) = @$ref
+    if ($ref = ${*$ftp}{'net_ftp_hash'});
+
+  while (1) {
+    last unless $len = read($loc, $buf = "", $blksize);
+
+    if (EBCDIC && $ftp->type ne 'I') {
+      $buf = $ftp->toascii($buf);
+      $len = length($buf);
+    }
+
+    if ($hashh) {
+      $count += $len;
+      print $hashh "#" x (int($count / $hashb));
+      $count %= $hashb;
+    }
+
+    my $wlen;
+    unless (defined($wlen = $sock->write($buf, $len)) && $wlen == $len) {
+      $sock->abort;
+      close($loc)
+        unless $localfd;
+      print $hashh "\n" if $hashh;
+      return;
+    }
+  }
+
+  print $hashh "\n" if $hashh;
+
+  close($loc)
+    unless $localfd;
+
+  $sock->close()
+    or return;
+
+  if ('STOU' eq uc $cmd and $ftp->message =~ m/unique\s+file\s*name\s*:\s*(.*)\)|"(.*)"/) {
+    require File::Basename;
+    $remote = File::Basename::basename($+);
+  }
+
+  return $remote;
+}
+
+
+sub port {
+    @_ == 1 || @_ == 2 or croak 'usage: $self->port([PORT])';
+    return _eprt('PORT',@_);
+}
+
+sub eprt {
+  @_ == 1 || @_ == 2 or croak 'usage: $self->eprt([PORT])';
+  return _eprt('EPRT',@_);
+}
+
+sub _eprt {
+  my ($cmd,$ftp,$port) = @_;
+  delete ${*$ftp}{net_ftp_intern_port};
+  unless ($port) {
+    my $listen = ${*$ftp}{net_ftp_listen} ||= $IOCLASS->new(
+      Listen    => 1,
+      Timeout   => $ftp->timeout,
+      LocalAddr => $ftp->sockhost,
+      $family_key  => $ftp->sockdomain,
+      can_ssl() ? (
+        %{ ${*$ftp}{net_ftp_tlsargs} },
+        SSL_startHandshake => 0,
+      ):(),
+    );
+    ${*$ftp}{net_ftp_intern_port} = 1;
+    my $fam = ($listen->sockdomain == AF_INET) ? 1:2;
+    if ( $cmd eq 'EPRT' || $fam == 2 ) {
+      $port = "|$fam|".$listen->sockhost."|".$listen->sockport."|";
+      $cmd = 'EPRT';
+    } else {
+      my $p = $listen->sockport;
+      $port = join(',',split(m{\.},$listen->sockhost),$p >> 8,$p & 0xff);
+    }
+  } elsif (ref($port) eq 'ARRAY') {
+    $port = join(',',split(m{\.},@$port[0]),@$port[1] >> 8,@$port[1] & 0xff);
+  }
+  my $ok = $cmd eq 'EPRT' ? $ftp->_EPRT($port) : $ftp->_PORT($port);
+  ${*$ftp}{net_ftp_port} = $port if $ok;
+  return $ok;
+}
+
+
+sub ls  { shift->_list_cmd("NLST", @_); }
+sub dir { shift->_list_cmd("LIST", @_); }
+
+
+sub pasv {
+  my $ftp = shift;
+  @_ and croak 'usage: $ftp->port()';
+  return $ftp->epsv if $ftp->sockdomain != AF_INET;
+  delete ${*$ftp}{net_ftp_intern_port};
+
+  if ( $ftp->_PASV &&
+    $ftp->message =~ m{(\d+,\d+,\d+,\d+),(\d+),(\d+)} ) {
+    my $port = 256 * $2 + $3;
+    ( my $ip = $1 ) =~s{,}{.}g;
+    return ${*$ftp}{net_ftp_pasv} = [ $ip,$port ];
+  }
+  return;
+}
+
+sub epsv {
+  my $ftp = shift;
+  @_ and croak 'usage: $ftp->epsv()';
+  delete ${*$ftp}{net_ftp_intern_port};
+
+  $ftp->_EPSV && $ftp->message =~ m{\(([\x33-\x7e])\1\1(\d+)\1\)}
+    ? ${*$ftp}{net_ftp_pasv} = [ $ftp->peerhost, $2 ]
+    : undef;
+}
+
+
+sub unique_name {
+  my $ftp = shift;
+  ${*$ftp}{'net_ftp_unique'} || undef;
+}
+
+
+sub supported {
+  @_ == 2 or croak 'usage: $ftp->supported( CMD )';
+  my $ftp  = shift;
+  my $cmd  = uc shift;
+  my $hash = ${*$ftp}{'net_ftp_supported'} ||= {};
+
+  return $hash->{$cmd}
+    if exists $hash->{$cmd};
+
+  return $hash->{$cmd} = 1
+    if $ftp->feature($cmd);
+
+  return $hash->{$cmd} = 0
+    unless $ftp->_HELP($cmd);
+
+  my $text = $ftp->message;
+  if ($text =~ /following.+commands/i) {
+    $text =~ s/^.*\n//;
+    while ($text =~ /(\*?)(\w+)(\*?)/sg) {
+      $hash->{"\U$2"} = !length("$1$3");
+    }
+  }
+  else {
+    $hash->{$cmd} = $text !~ /unimplemented/i;
+  }
+
+  $hash->{$cmd} ||= 0;
+}
+
+##
+## Deprecated methods
+##
+
+
+sub lsl {
+  carp "Use of Net::FTP::lsl deprecated, use 'dir'"
+    if $^W;
+  goto &dir;
+}
+
+
+sub authorise {
+  carp "Use of Net::FTP::authorise deprecated, use 'authorize'"
+    if $^W;
+  goto &authorize;
+}
+
+
+##
+## Private methods
+##
+
+
+sub _extract_path {
+  my ($ftp, $path) = @_;
+
+  # This tries to work both with and without the quote doubling
+  # convention (RFC 959 requires it, but the first 3 servers I checked
+  # didn't implement it).  It will fail on a server which uses a quote in
+  # the message which isn't a part of or surrounding the path.
+  $ftp->ok
+    && $ftp->message =~ /(?:^|\s)\"(.*)\"(?:$|\s)/
+    && ($path = $1) =~ s/\"\"/\"/g;
+
+  $path;
+}
+
+##
+## Communication methods
+##
+
+
+sub _dataconn {
+  my $ftp = shift;
+  my $pkg = "Net::FTP::" . $ftp->type;
+  eval "require " . $pkg ## no critic (BuiltinFunctions::ProhibitStringyEval)
+    or croak("cannot load $pkg required for type ".$ftp->type);
+  $pkg =~ s/ /_/g;
+  delete ${*$ftp}{net_ftp_dataconn};
+
+  my $conn;
+  my $pasv = ${*$ftp}{net_ftp_pasv};
+  if ($pasv) {
+    $conn = $pkg->new(
+      PeerAddr  => $pasv->[0],
+      PeerPort  => $pasv->[1],
+      LocalAddr => ${*$ftp}{net_ftp_localaddr},
+      $family_key => ${*$ftp}{net_ftp_domain},
+      Timeout   => $ftp->timeout,
+      can_ssl() ? (
+        SSL_startHandshake => 0,
+        $ftp->is_SSL ? (
+          SSL_reuse_ctx => $ftp,
+          SSL_verifycn_name => ${*$ftp}{net_ftp_tlsargs}{SSL_verifycn_name},
+          # This will cause the use of SNI if supported by IO::Socket::SSL.
+          $ftp->can_client_sni ? (
+            SSL_hostname  => ${*$ftp}{net_ftp_tlsargs}{SSL_hostname}
+          ):(),
+        ) :( %{${*$ftp}{net_ftp_tlsargs}} ),
+      ):(),
+    ) or return;
+  } elsif (my $listen =  delete ${*$ftp}{net_ftp_listen}) {
+    $conn = $listen->accept($pkg) or return;
+    $conn->timeout($ftp->timeout);
+    close($listen);
+  } else {
+    croak("no listener in active mode");
+  }
+
+  if (( ${*$ftp}{net_ftp_tlsprot} || '') eq 'P') {
+    if ($conn->connect_SSL) {
+      # SSL handshake ok
+    } else {
+      carp("failed to ssl upgrade dataconn: $IO::Socket::SSL::SSL_ERROR");
+      return;
+    }
+  }
+
+  ${*$ftp}{net_ftp_dataconn} = $conn;
+  ${*$conn} = "";
+  ${*$conn}{net_ftp_cmd} = $ftp;
+  ${*$conn}{net_ftp_blksize} = ${*$ftp}{net_ftp_blksize};
+  return $conn;
+}
+
+
+sub _list_cmd {
+  my $ftp = shift;
+  my $cmd = uc shift;
+
+  delete ${*$ftp}{'net_ftp_port'};
+  delete ${*$ftp}{'net_ftp_pasv'};
+
+  my $data = $ftp->_data_cmd($cmd, @_);
+
+  return
+    unless (defined $data);
+
+  require Net::FTP::A;
+  bless $data, "Net::FTP::A";    # Force ASCII mode
+
+  my $databuf = '';
+  my $buf     = '';
+  my $blksize = ${*$ftp}{'net_ftp_blksize'};
+
+  while ($data->read($databuf, $blksize)) {
+    $buf .= $databuf;
+  }
+
+  my $list = [split(/\n/, $buf)];
+
+  $data->close();
+
+  if (EBCDIC) {
+    for (@$list) { $_ = $ftp->toebcdic($_) }
+  }
+
+  wantarray
+    ? @{$list}
+    : $list;
+}
+
+
+sub _data_cmd {
+  my $ftp   = shift;
+  my $cmd   = uc shift;
+  my $ok    = 1;
+  my $where = delete ${*$ftp}{'net_ftp_rest'} || 0;
+  my $arg;
+
+  for my $arg (@_) {
+    croak("Bad argument '$arg'\n")
+      if $arg =~ /[\r\n]/s;
+  }
+
+  if ( ${*$ftp}{'net_ftp_passive'}
+    && !defined ${*$ftp}{'net_ftp_pasv'}
+    && !defined ${*$ftp}{'net_ftp_port'})
+  {
+    return unless defined $ftp->pasv;
+
+    if ($where and !$ftp->_REST($where)) {
+      my ($status, $message) = ($ftp->status, $ftp->message);
+      $ftp->abort;
+      $ftp->set_status($status, $message);
+      return;
+    }
+
+    # first send command, then open data connection
+    # otherwise the peer might not do a full accept (with SSL
+    # handshake if PROT P)
+    $ftp->command($cmd, @_);
+    my $data = $ftp->_dataconn();
+    if (CMD_INFO == $ftp->response()) {
+      $data->reading
+        if $data && $cmd =~ /RETR|LIST|NLST|MLSD/;
+      return $data;
+    }
+    $data->_close if $data;
+
+    return;
+  }
+
+  $ok = $ftp->port
+    unless (defined ${*$ftp}{'net_ftp_port'}
+    || defined ${*$ftp}{'net_ftp_pasv'});
+
+  $ok = $ftp->_REST($where)
+    if $ok && $where;
+
+  return
+    unless $ok;
+
+  if ($cmd =~ /(STOR|APPE|STOU)/ and exists ${*$ftp}{net_ftp_allo} and
+      $ftp->supported("ALLO"))
+  {
+    $ftp->_ALLO(delete ${*$ftp}{net_ftp_allo})
+      or return;
+  }
+
+  $ftp->command($cmd, @_);
+
+  return 1
+    if (defined ${*$ftp}{'net_ftp_pasv'});
+
+  $ok = CMD_INFO == $ftp->response();
+
+  return $ok
+    unless exists ${*$ftp}{'net_ftp_intern_port'};
+
+  if ($ok) {
+    my $data = $ftp->_dataconn();
+
+    $data->reading
+      if $data && $cmd =~ /RETR|LIST|NLST|MLSD/;
+
+    return $data;
+  }
+
+
+  close(delete ${*$ftp}{'net_ftp_listen'});
+
+  return;
+}
+
+##
+## Over-ride methods (Net::Cmd)
+##
+
+
+sub debug_text { $_[2] =~ /^(pass|resp|acct)/i ? "$1 ....\n" : $_[2]; }
+
+
+sub command {
+  my $ftp = shift;
+
+  delete ${*$ftp}{'net_ftp_port'};
+  $ftp->SUPER::command(@_);
+}
+
+
+sub response {
+  my $ftp  = shift;
+  my $code = $ftp->SUPER::response() || 5;    # assume 500 if undef
+
+  delete ${*$ftp}{'net_ftp_pasv'}
+    if ($code != CMD_MORE && $code != CMD_INFO);
+
+  $code;
+}
+
+
+sub parse_response {
+  return ($1, $2 eq "-")
+    if $_[1] =~ s/^(\d\d\d)([- ]?)//o;
+
+  my $ftp = shift;
+
+  # Darn MS FTP server is a load of CRAP !!!!
+  # Expect to see undef here.
+  return ()
+    unless 0 + (${*$ftp}{'net_cmd_code'} || 0);
+
+  (${*$ftp}{'net_cmd_code'}, 1);
+}
+
+##
+## Allow 2 servers to talk directly
+##
+
+
+sub pasv_xfer_unique {
+  my ($sftp, $sfile, $dftp, $dfile) = @_;
+  $sftp->pasv_xfer($sfile, $dftp, $dfile, 1);
+}
+
+
+sub pasv_xfer {
+  my ($sftp, $sfile, $dftp, $dfile, $unique) = @_;
+
+  ($dfile = $sfile) =~ s#.*/##
+    unless (defined $dfile);
+
+  my $port = $sftp->pasv
+    or return;
+
+  $dftp->port($port)
+    or return;
+
+  return
+    unless ($unique ? $dftp->stou($dfile) : $dftp->stor($dfile));
+
+  unless ($sftp->retr($sfile) && $sftp->response == CMD_INFO) {
+    $sftp->retr($sfile);
+    $dftp->abort;
+    $dftp->response();
+    return;
+  }
+
+  $dftp->pasv_wait($sftp);
+}
+
+
+sub pasv_wait {
+  @_ == 2 or croak 'usage: $ftp->pasv_wait(NON_PASV_FTP)';
+
+  my ($ftp, $non_pasv) = @_;
+  my ($file, $rin, $rout);
+
+  vec($rin = '', fileno($ftp), 1) = 1;
+  select($rout = $rin, undef, undef, undef);
+
+  my $dres = $ftp->response();
+  my $sres = $non_pasv->response();
+
+  return
+    unless $dres == CMD_OK && $sres == CMD_OK;
+
+  return
+    unless $ftp->ok() && $non_pasv->ok();
+
+  return $1
+    if $ftp->message =~ /unique file name:\s*(\S*)\s*\)/;
+
+  return $1
+    if $non_pasv->message =~ /unique file name:\s*(\S*)\s*\)/;
+
+  return 1;
+}
+
+
+sub feature {
+  @_ == 2 or croak 'usage: $ftp->feature( NAME )';
+  my ($ftp, $feat) = @_;
+
+  my $feature = ${*$ftp}{net_ftp_feature} ||= do {
+    my @feat;
+
+    # Example response
+    # 211-Features:
+    #  MDTM
+    #  REST STREAM
+    #  SIZE
+    # 211 End
+
+    @feat = map { /^\s+(.*\S)/ } $ftp->message
+      if $ftp->_FEAT;
+
+    \@feat;
+  };
+
+  return grep { /^\Q$feat\E\b/i } @$feature;
+}
+
+
+sub cmd { shift->command(@_)->response() }
+
+########################################
+#
+# RFC959 + RFC2428 + RFC4217 commands
+#
+
+
+sub _ABOR { shift->command("ABOR")->response() == CMD_OK }
+sub _ALLO { shift->command("ALLO", @_)->response() == CMD_OK }
+sub _CDUP { shift->command("CDUP")->response() == CMD_OK }
+sub _NOOP { shift->command("NOOP")->response() == CMD_OK }
+sub _PASV { shift->command("PASV")->response() == CMD_OK }
+sub _QUIT { shift->command("QUIT")->response() == CMD_OK }
+sub _DELE { shift->command("DELE", @_)->response() == CMD_OK }
+sub _CWD  { shift->command("CWD", @_)->response() == CMD_OK }
+sub _PORT { shift->command("PORT", @_)->response() == CMD_OK }
+sub _RMD  { shift->command("RMD", @_)->response() == CMD_OK }
+sub _MKD  { shift->command("MKD", @_)->response() == CMD_OK }
+sub _PWD  { shift->command("PWD", @_)->response() == CMD_OK }
+sub _TYPE { shift->command("TYPE", @_)->response() == CMD_OK }
+sub _RNTO { shift->command("RNTO", @_)->response() == CMD_OK }
+sub _RESP { shift->command("RESP", @_)->response() == CMD_OK }
+sub _MDTM { shift->command("MDTM", @_)->response() == CMD_OK }
+sub _SIZE { shift->command("SIZE", @_)->response() == CMD_OK }
+sub _HELP { shift->command("HELP", @_)->response() == CMD_OK }
+sub _STAT { shift->command("STAT", @_)->response() == CMD_OK }
+sub _FEAT { shift->command("FEAT", @_)->response() == CMD_OK }
+sub _PBSZ { shift->command("PBSZ", @_)->response() == CMD_OK }
+sub _PROT { shift->command("PROT", @_)->response() == CMD_OK }
+sub _CCC  { shift->command("CCC", @_)->response() == CMD_OK }
+sub _EPRT { shift->command("EPRT", @_)->response() == CMD_OK }
+sub _EPSV { shift->command("EPSV", @_)->response() == CMD_OK }
+sub _APPE { shift->command("APPE", @_)->response() == CMD_INFO }
+sub _LIST { shift->command("LIST", @_)->response() == CMD_INFO }
+sub _NLST { shift->command("NLST", @_)->response() == CMD_INFO }
+sub _RETR { shift->command("RETR", @_)->response() == CMD_INFO }
+sub _STOR { shift->command("STOR", @_)->response() == CMD_INFO }
+sub _STOU { shift->command("STOU", @_)->response() == CMD_INFO }
+sub _RNFR { shift->command("RNFR", @_)->response() == CMD_MORE }
+sub _REST { shift->command("REST", @_)->response() == CMD_MORE }
+sub _PASS { shift->command("PASS", @_)->response() }
+sub _ACCT { shift->command("ACCT", @_)->response() }
+sub _AUTH { shift->command("AUTH", @_)->response() }
+
+
+sub _USER {
+  my $ftp = shift;
+  my $ok  = $ftp->command("USER", @_)->response();
+
+  # A certain brain dead firewall :-)
+  $ok = $ftp->command("user", @_)->response()
+    unless $ok == CMD_MORE or $ok == CMD_OK;
+
+  $ok;
+}
+
+
+sub _SMNT { shift->unsupported(@_) }
+sub _MODE { shift->unsupported(@_) }
+sub _SYST { shift->unsupported(@_) }
+sub _STRU { shift->unsupported(@_) }
+sub _REIN { shift->unsupported(@_) }
+
+{
+  # Session Cache with single entry
+  # used to make sure that we reuse same session for control and data channels
+  package Net::FTP::_SSL_SingleSessionCache;
+  sub new { my $x; return bless \$x,shift }
+  sub add_session {
+    my ($cache,$key,$session) = @_;
+    Net::SSLeay::SESSION_free($$cache) if $$cache;
+    $$cache = $session;
+  }
+  sub get_session {
+    my $cache = shift;
+    return $$cache
+  }
+  sub DESTROY {
+    my $cache = shift;
+    Net::SSLeay::SESSION_free($$cache) if $$cache;
+  }
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+Net::FTP - FTP Client class
+
+=head1 SYNOPSIS
+
+    use Net::FTP;
+
+    $ftp = Net::FTP->new("some.host.name", Debug => 0)
+      or die "Cannot connect to some.host.name: $@";
+
+    $ftp->login("anonymous",'-anonymous@')
+      or die "Cannot login ", $ftp->message;
+
+    $ftp->cwd("/pub")
+      or die "Cannot change working directory ", $ftp->message;
+
+    $ftp->get("that.file")
+      or die "get failed ", $ftp->message;
+
+    $ftp->quit;
+
+=head1 DESCRIPTION
+
+C<Net::FTP> is a class implementing a simple FTP client in Perl as
+described in RFC959.  It provides wrappers for the commonly used subset of the
+RFC959 commands.
+If L<IO::Socket::IP> or L<IO::Socket::INET6> is installed it also provides
+support for IPv6 as defined in RFC2428.
+And with L<IO::Socket::SSL> installed it provides support for implicit FTPS
+and explicit FTPS as defined in RFC4217.
+
+The Net::FTP class is a subclass of Net::Cmd and (depending on avaibility) of
+IO::Socket::IP, IO::Socket::INET6 or IO::Socket::INET.
+
+=head1 OVERVIEW
+
+FTP stands for File Transfer Protocol.  It is a way of transferring
+files between networked machines.  The protocol defines a client
+(whose commands are provided by this module) and a server (not
+implemented in this module).  Communication is always initiated by the
+client, and the server responds with a message and a status code (and
+sometimes with data).
+
+The FTP protocol allows files to be sent to or fetched from the
+server.  Each transfer involves a B<local file> (on the client) and a
+B<remote file> (on the server).  In this module, the same file name
+will be used for both local and remote if only one is specified.  This
+means that transferring remote file C</path/to/file> will try to put
+that file in C</path/to/file> locally, unless you specify a local file
+name.
+
+The protocol also defines several standard B<translations> which the
+file can undergo during transfer.  These are ASCII, EBCDIC, binary,
+and byte.  ASCII is the default type, and indicates that the sender of
+files will translate the ends of lines to a standard representation
+which the receiver will then translate back into their local
+representation.  EBCDIC indicates the file being transferred is in
+EBCDIC format.  Binary (also known as image) format sends the data as
+a contiguous bit stream.  Byte format transfers the data as bytes, the
+values of which remain the same regardless of differences in byte size
+between the two machines (in theory - in practice you should only use
+this if you really know what you're doing).  This class does not support
+the EBCDIC or byte formats, and will default to binary instead if they
+are attempted.
+
+=head1 CONSTRUCTOR
+
+=over 4
+
+=item new ([ HOST ] [, OPTIONS ])
+
+This is the constructor for a new Net::FTP object. C<HOST> is the
+name of the remote host to which an FTP connection is required.
+
+C<HOST> is optional. If C<HOST> is not given then it may instead be
+passed as the C<Host> option described below. 
+
+C<OPTIONS> are passed in a hash like fashion, using key and value pairs.
+Possible options are:
+
+B<Host> - FTP host to connect to. It may be a single scalar, as defined for
+the C<PeerAddr> option in L<IO::Socket::INET>, or a reference to
+an array with hosts to try in turn. The L</host> method will return the value
+which was used to connect to the host.
+
+B<Firewall> - The name of a machine which acts as an FTP firewall. This can be
+overridden by an environment variable C<FTP_FIREWALL>. If specified, and the
+given host cannot be directly connected to, then the
+connection is made to the firewall machine and the string C<@hostname> is
+appended to the login identifier. This kind of setup is also referred to
+as an ftp proxy.
+
+B<FirewallType> - The type of firewall running on the machine indicated by
+B<Firewall>. This can be overridden by an environment variable
+C<FTP_FIREWALL_TYPE>. For a list of permissible types, see the description of
+ftp_firewall_type in L<Net::Config>.
+
+B<BlockSize> - This is the block size that Net::FTP will use when doing
+transfers. (defaults to 10240)
+
+B<Port> - The port number to connect to on the remote machine for the
+FTP connection
+
+B<SSL> - If the connection should be done from start with SSL, contrary to later
+upgrade with C<starttls>.
+
+B<SSL_*> - SSL arguments which will be applied when upgrading the control or
+data connection to SSL. You can use SSL arguments as documented in
+L<IO::Socket::SSL>, but it will usually use the right arguments already.
+
+B<Timeout> - Set a timeout value in seconds (defaults to 120)
+
+B<Debug> - debug level (see the debug method in L<Net::Cmd>)
+
+B<Passive> - If set to a non-zero value then all data transfers will
+be done using passive mode. If set to zero then data transfers will be
+done using active mode.  If the machine is connected to the Internet
+directly, both passive and active mode should work equally well.
+Behind most firewall and NAT configurations passive mode has a better
+chance of working.  However, in some rare firewall configurations,
+active mode actually works when passive mode doesn't.  Some really old
+FTP servers might not implement passive transfers.  If not specified,
+then the transfer mode is set by the environment variable
+C<FTP_PASSIVE> or if that one is not set by the settings done by the
+F<libnetcfg> utility.  If none of these apply then passive mode is
+used.
+
+B<Hash> - If given a reference to a file handle (e.g., C<\*STDERR>),
+print hash marks (#) on that filehandle every 1024 bytes.  This
+simply invokes the C<hash()> method for you, so that hash marks
+are displayed for all transfers.  You can, of course, call C<hash()>
+explicitly whenever you'd like.
+
+B<LocalAddr> - Local address to use for all socket connections. This
+argument will be passed to the super class, i.e. L<IO::Socket::INET>
+or L<IO::Socket::IP>.
+
+B<Domain> - Domain to use, i.e. AF_INET or AF_INET6. This
+argument will be passed to the IO::Socket super class.
+This can be used to enforce IPv4 even with L<IO::Socket::IP>
+which would default to IPv6.
+B<Family> is accepted as alternative name for B<Domain>.
+
+If the constructor fails undef will be returned and an error message will
+be in $@
+
+=back
+
+=head1 METHODS
+
+Unless otherwise stated all methods return either a I<true> or I<false>
+value, with I<true> meaning that the operation was a success. When a method
+states that it returns a value, failure will be returned as I<undef> or an
+empty list.
+
+C<Net::FTP> inherits from C<Net::Cmd> so methods defined in C<Net::Cmd> may
+be used to send commands to the remote FTP server in addition to the methods
+documented here.
+
+=over 4
+
+=item login ([LOGIN [,PASSWORD [, ACCOUNT] ] ])
+
+Log into the remote FTP server with the given login information. If
+no arguments are given then the C<Net::FTP> uses the C<Net::Netrc>
+package to lookup the login information for the connected host.
+If no information is found then a login of I<anonymous> is used.
+If no password is given and the login is I<anonymous> then I<anonymous@>
+will be used for password.
+
+If the connection is via a firewall then the C<authorize> method will
+be called with no arguments.
+
+=item starttls ()
+
+Upgrade existing plain connection to SSL.
+The SSL arguments have to be given in C<new> already because they are needed for
+data connections too.
+
+=item stoptls ()
+
+Downgrade existing SSL connection back to plain.
+This is needed to work with some FTP helpers at firewalls, which need to see the
+PORT and PASV commands and responses to dynamically open the necessary ports.
+In this case C<starttls> is usually only done to protect the authorization.
+
+=item prot ( LEVEL )
+
+Set what type of data channel protection the client and server will be using.
+Only C<LEVEL>s "C" (clear) and "P" (private) are supported.
+
+=item host ()
+
+Returns the value used by the constructor, and passed to the IO::Socket super
+class to connect to the host.
+
+=item account( ACCT )
+
+Set a string identifying the user's account.
+
+=item authorize ( [AUTH [, RESP]])
+
+This is a protocol used by some firewall ftp proxies. It is used
+to authorise the user to send data out.  If both arguments are not specified
+then C<authorize> uses C<Net::Netrc> to do a lookup.
+
+=item site (ARGS)
+
+Send a SITE command to the remote server and wait for a response.
+
+Returns most significant digit of the response code.
+
+=item ascii ()
+
+Transfer file in ASCII. CRLF translation will be done if required
+
+=item binary ()
+
+Transfer file in binary mode. No transformation will be done.
+
+B<Hint>: If both server and client machines use the same line ending for
+text files, then it will be faster to transfer all files in binary mode.
+
+=item type ( [ TYPE ] )
+
+Set or get if files will be transferred in ASCII or binary mode.
+
+=item rename ( OLDNAME, NEWNAME )
+
+Rename a file on the remote FTP server from C<OLDNAME> to C<NEWNAME>. This
+is done by sending the RNFR and RNTO commands.
+
+=item delete ( FILENAME )
+
+Send a request to the server to delete C<FILENAME>.
+
+=item cwd ( [ DIR ] )
+
+Attempt to change directory to the directory given in C<$dir>.  If
+C<$dir> is C<"..">, the FTP C<CDUP> command is used to attempt to
+move up one directory. If no directory is given then an attempt is made
+to change the directory to the root directory.
+
+=item cdup ()
+
+Change directory to the parent of the current directory.
+
+=item passive ( [ PASSIVE ] )
+
+Set or get if data connections will be initiated in passive mode.
+
+=item pwd ()
+
+Returns the full pathname of the current directory.
+
+=item restart ( WHERE )
+
+Set the byte offset at which to begin the next data transfer. Net::FTP simply
+records this value and uses it when during the next data transfer. For this
+reason this method will not return an error, but setting it may cause
+a subsequent data transfer to fail.
+
+=item rmdir ( DIR [, RECURSE ])
+
+Remove the directory with the name C<DIR>. If C<RECURSE> is I<true> then
+C<rmdir> will attempt to delete everything inside the directory.
+
+=item mkdir ( DIR [, RECURSE ])
+
+Create a new directory with the name C<DIR>. If C<RECURSE> is I<true> then
+C<mkdir> will attempt to create all the directories in the given path.
+
+Returns the full pathname to the new directory.
+
+=item alloc ( SIZE [, RECORD_SIZE] )
+
+The alloc command allows you to give the ftp server a hint about the size
+of the file about to be transferred using the ALLO ftp command. Some storage
+systems use this to make intelligent decisions about how to store the file.
+The C<SIZE> argument represents the size of the file in bytes. The
+C<RECORD_SIZE> argument indicates a maximum record or page size for files
+sent with a record or page structure.
+
+The size of the file will be determined, and sent to the server
+automatically for normal files so that this method need only be called if
+you are transferring data from a socket, named pipe, or other stream not
+associated with a normal file.
+
+=item ls ( [ DIR ] )
+
+Get a directory listing of C<DIR>, or the current directory.
+
+In an array context, returns a list of lines returned from the server. In
+a scalar context, returns a reference to a list.
+
+=item dir ( [ DIR ] )
+
+Get a directory listing of C<DIR>, or the current directory in long format.
+
+In an array context, returns a list of lines returned from the server. In
+a scalar context, returns a reference to a list.
+
+=item get ( REMOTE_FILE [, LOCAL_FILE [, WHERE]] )
+
+Get C<REMOTE_FILE> from the server and store locally. C<LOCAL_FILE> may be
+a filename or a filehandle. If not specified, the file will be stored in
+the current directory with the same leafname as the remote file.
+
+If C<WHERE> is given then the first C<WHERE> bytes of the file will
+not be transferred, and the remaining bytes will be appended to
+the local file if it already exists.
+
+Returns C<LOCAL_FILE>, or the generated local file name if C<LOCAL_FILE>
+is not given. If an error was encountered undef is returned.
+
+=item put ( LOCAL_FILE [, REMOTE_FILE ] )
+
+Put a file on the remote server. C<LOCAL_FILE> may be a name or a filehandle.
+If C<LOCAL_FILE> is a filehandle then C<REMOTE_FILE> must be specified. If
+C<REMOTE_FILE> is not specified then the file will be stored in the current
+directory with the same leafname as C<LOCAL_FILE>.
+
+Returns C<REMOTE_FILE>, or the generated remote filename if C<REMOTE_FILE>
+is not given.
+
+B<NOTE>: If for some reason the transfer does not complete and an error is
+returned then the contents that had been transferred will not be remove
+automatically.
+
+=item put_unique ( LOCAL_FILE [, REMOTE_FILE ] )
+
+Same as put but uses the C<STOU> command.
+
+Returns the name of the file on the server.
+
+=item append ( LOCAL_FILE [, REMOTE_FILE ] )
+
+Same as put but appends to the file on the remote server.
+
+Returns C<REMOTE_FILE>, or the generated remote filename if C<REMOTE_FILE>
+is not given.
+
+=item unique_name ()
+
+Returns the name of the last file stored on the server using the
+C<STOU> command.
+
+=item mdtm ( FILE )
+
+Returns the I<modification time> of the given file
+
+=item size ( FILE )
+
+Returns the size in bytes for the given file as stored on the remote server.
+
+B<NOTE>: The size reported is the size of the stored file on the remote server.
+If the file is subsequently transferred from the server in ASCII mode
+and the remote server and local machine have different ideas about
+"End Of Line" then the size of file on the local machine after transfer
+may be different.
+
+=item supported ( CMD )
+
+Returns TRUE if the remote server supports the given command.
+
+=item hash ( [FILEHANDLE_GLOB_REF],[ BYTES_PER_HASH_MARK] )
+
+Called without parameters, or with the first argument false, hash marks
+are suppressed.  If the first argument is true but not a reference to a 
+file handle glob, then \*STDERR is used.  The second argument is the number
+of bytes per hash mark printed, and defaults to 1024.  In all cases the
+return value is a reference to an array of two:  the filehandle glob reference
+and the bytes per hash mark.
+
+=item feature ( NAME )
+
+Determine if the server supports the specified feature. The return
+value is a list of lines the server responded with to describe the
+options that it supports for the given feature. If the feature is
+unsupported then the empty list is returned.
+
+  if ($ftp->feature( 'MDTM' )) {
+    # Do something
+  }
+
+  if (grep { /\bTLS\b/ } $ftp->feature('AUTH')) {
+    # Server supports TLS
+  }
+
+=back
+
+The following methods can return different results depending on
+how they are called. If the user explicitly calls either
+of the C<pasv> or C<port> methods then these methods will
+return a I<true> or I<false> value. If the user does not
+call either of these methods then the result will be a
+reference to a C<Net::FTP::dataconn> based object.
+
+=over 4
+
+=item nlst ( [ DIR ] )
+
+Send an C<NLST> command to the server, with an optional parameter.
+
+=item list ( [ DIR ] )
+
+Same as C<nlst> but using the C<LIST> command
+
+=item retr ( FILE )
+
+Begin the retrieval of a file called C<FILE> from the remote server.
+
+=item stor ( FILE )
+
+Tell the server that you wish to store a file. C<FILE> is the
+name of the new file that should be created.
+
+=item stou ( FILE )
+
+Same as C<stor> but using the C<STOU> command. The name of the unique
+file which was created on the server will be available via the C<unique_name>
+method after the data connection has been closed.
+
+=item appe ( FILE )
+
+Tell the server that we want to append some data to the end of a file
+called C<FILE>. If this file does not exist then create it.
+
+=back
+
+If for some reason you want to have complete control over the data connection,
+this includes generating it and calling the C<response> method when required,
+then the user can use these methods to do so.
+
+However calling these methods only affects the use of the methods above that
+can return a data connection. They have no effect on methods C<get>, C<put>,
+C<put_unique> and those that do not require data connections.
+
+=over 4
+
+=item port ( [ PORT ] )
+
+=item eprt ( [ PORT ] )
+
+Send a C<PORT> (IPv4) or C<EPRT> (IPv6) command to the server. If C<PORT> is
+specified then it is sent to the server. If not, then a listen socket is created
+and the correct information sent to the server.
+
+=item pasv ()
+
+=item epsv ()
+
+Tell the server to go into passive mode (C<pasv> for IPv4, C<epsv> for IPv6).
+Returns the text that represents the port on which the server is listening, this
+text is in a suitable form to send to another ftp server using the C<port> or
+C<eprt> method.
+
+=back
+
+The following methods can be used to transfer files between two remote
+servers, providing that these two servers can connect directly to each other.
+
+=over 4
+
+=item pasv_xfer ( SRC_FILE, DEST_SERVER [, DEST_FILE ] )
+
+This method will do a file transfer between two remote ftp servers. If
+C<DEST_FILE> is omitted then the leaf name of C<SRC_FILE> will be used.
+
+=item pasv_xfer_unique ( SRC_FILE, DEST_SERVER [, DEST_FILE ] )
+
+Like C<pasv_xfer> but the file is stored on the remote server using
+the STOU command.
+
+=item pasv_wait ( NON_PASV_SERVER )
+
+This method can be used to wait for a transfer to complete between a passive
+server and a non-passive server. The method should be called on the passive
+server with the C<Net::FTP> object for the non-passive server passed as an
+argument.
+
+=item abort ()
+
+Abort the current data transfer.
+
+=item quit ()
+
+Send the QUIT command to the remote FTP server and close the socket connection.
+
+=back
+
+=head2 Methods for the adventurous
+
+=over 4
+
+=item quot (CMD [,ARGS])
+
+Send a command, that Net::FTP does not directly support, to the remote
+server and wait for a response.
+
+Returns most significant digit of the response code.
+
+B<WARNING> This call should only be used on commands that do not require
+data connections. Misuse of this method can hang the connection.
+
+=item can_inet6 ()
+
+Returns whether we can use IPv6.
+
+=item can_ssl ()
+
+Returns whether we can use SSL.
+
+=back
+
+=head1 THE dataconn CLASS
+
+Some of the methods defined in C<Net::FTP> return an object which will
+be derived from the C<Net::FTP::dataconn> class. See L<Net::FTP::dataconn> for
+more details.
+
+=head1 UNIMPLEMENTED
+
+The following RFC959 commands have not been implemented:
+
+=over 4
+
+=item B<SMNT>
+
+Mount a different file system structure without changing login or
+accounting information.
+
+=item B<HELP>
+
+Ask the server for "helpful information" (that's what the RFC says) on
+the commands it accepts.
+
+=item B<MODE>
+
+Specifies transfer mode (stream, block or compressed) for file to be
+transferred.
+
+=item B<SYST>
+
+Request remote server system identification.
+
+=item B<STAT>
+
+Request remote server status.
+
+=item B<STRU>
+
+Specifies file structure for file to be transferred.
+
+=item B<REIN>
+
+Reinitialize the connection, flushing all I/O and account information.
+
+=back
+
+=head1 REPORTING BUGS
+
+When reporting bugs/problems please include as much information as possible.
+It may be difficult for me to reproduce the problem as almost every setup
+is different.
+
+A small script which yields the problem will probably be of help. It would
+also be useful if this script was run with the extra options C<< Debug => 1 >>
+passed to the constructor, and the output sent with the bug report. If you
+cannot include a small script then please include a Debug trace from a
+run of your program which does yield the problem.
+
+=head1 AUTHOR
+
+Graham Barr E<lt>F<gbarr@pobox.com>E<gt>
+
+Steve Hay E<lt>F<shay@cpan.org>E<gt> is now maintaining libnet as of version
+1.22_02
+
+=head1 SEE ALSO
+
+L<Net::Netrc>,
+L<Net::Cmd>,
+L<IO::Socket::SSL>
+
+ftp(1), ftpd(8), RFC 959, RFC 2428, RFC 4217
+http://www.ietf.org/rfc/rfc959.txt
+http://www.ietf.org/rfc/rfc2428.txt
+http://www.ietf.org/rfc/rfc4217.txt
+
+=head1 USE EXAMPLES
+
+For an example of the use of Net::FTP see
+
+=over 4
+
+=item http://www.csh.rit.edu/~adam/Progs/
+
+C<autoftp> is a program that can retrieve, send, or list files via
+the FTP protocol in a non-interactive manner.
+
+=back
+
+=head1 CREDITS
+
+Henry Gabryjelski <henryg@WPI.EDU> - for the suggestion of creating directories
+recursively.
+
+Nathan Torkington <gnat@frii.com> - for some input on the documentation.
+
+Roderick Schertler <roderick@gate.net> - for various inputs
+
+=head1 COPYRIGHT
+
+Versions up to 2.77_2 Copyright (c) 1995-2004 Graham Barr. All rights reserved.
+Changes in Version 2.77_3 onwards Copyright (C) 2013-2015 Steve Hay.  All rights
+reserved.
+
+This module is free software; you can redistribute it and/or modify it under the
+same terms as Perl itself, i.e. under the terms of either the GNU General Public
+License or the Artistic License, as specified in the F<LICENCE> file.
+
+=cut
diff --git a/lib/5.24.1/Net/FTP/A.pm b/lib/5.24.1/Net/FTP/A.pm
new file mode 100644
index 00000000..cdbd7680
--- /dev/null
+++ b/lib/5.24.1/Net/FTP/A.pm
@@ -0,0 +1,115 @@
+## 
+## Package to read/write on ASCII data connections
+##
+
+package Net::FTP::A;
+
+use 5.008001;
+
+use strict;
+use warnings;
+
+use Carp;
+use Net::FTP::dataconn;
+
+our @ISA     = qw(Net::FTP::dataconn);
+our $VERSION = "3.08_01";
+
+our $buf;
+
+sub read {
+  my $data = shift;
+  local *buf = \$_[0];
+  shift;
+  my $size = shift || croak 'read($buf,$size,[$offset])';
+  my $timeout = @_ ? shift: $data->timeout;
+
+  if (length(${*$data}) < $size && !${*$data}{'net_ftp_eof'}) {
+    my $blksize = ${*$data}{'net_ftp_blksize'};
+    $blksize = $size if $size > $blksize;
+
+    my $l = 0;
+    my $n;
+
+  READ:
+    {
+      my $readbuf = defined(${*$data}{'net_ftp_cr'}) ? "\015" : '';
+
+      $data->can_read($timeout)
+        or croak "Timeout";
+
+      if ($n = sysread($data, $readbuf, $blksize, length $readbuf)) {
+        ${*$data}{'net_ftp_bytesread'} += $n;
+        ${*$data}{'net_ftp_cr'} =
+          substr($readbuf, -1) eq "\015"
+          ? chop($readbuf)
+          : undef;
+      }
+      else {
+        return
+          unless defined $n;
+
+        ${*$data}{'net_ftp_eof'} = 1;
+      }
+
+      $readbuf =~ s/\015\012/\n/sgo;
+      ${*$data} .= $readbuf;
+
+      unless (length(${*$data})) {
+
+        redo READ
+          if ($n > 0);
+
+        $size = length(${*$data})
+          if ($n == 0);
+      }
+    }
+  }
+
+  $buf = substr(${*$data}, 0, $size);
+  substr(${*$data}, 0, $size) = '';
+
+  length $buf;
+}
+
+
+sub write {
+  my $data = shift;
+  local *buf = \$_[0];
+  shift;
+  my $size = shift || croak 'write($buf,$size,[$timeout])';
+  my $timeout = @_ ? shift: $data->timeout;
+
+  my $nr = (my $tmp = substr($buf, 0, $size)) =~ tr/\r\n/\015\012/;
+  $tmp =~ s/(?<!\015)\012/\015\012/sg if $nr;
+  $tmp =~ s/^\015// if ${*$data}{'net_ftp_outcr'};
+  ${*$data}{'net_ftp_outcr'} = substr($tmp, -1) eq "\015";
+
+  # If the remote server has closed the connection we will be signal'd
+  # when we write. This can happen if the disk on the remote server fills up
+
+  local $SIG{PIPE} = 'IGNORE'
+    unless ($SIG{PIPE} || '') eq 'IGNORE'
+    or $^O eq 'MacOS';
+
+  my $len   = length($tmp);
+  my $off   = 0;
+  my $wrote = 0;
+
+  my $blksize = ${*$data}{'net_ftp_blksize'};
+
+  while ($len) {
+    $data->can_write($timeout)
+      or croak "Timeout";
+
+    $off += $wrote;
+    $wrote = syswrite($data, substr($tmp, $off), $len > $blksize ? $blksize : $len);
+    return
+      unless defined($wrote);
+    $len -= $wrote;
+  }
+
+  $size;
+}
+
+1;
diff --git a/lib/5.24.1/Net/FTP/E.pm b/lib/5.24.1/Net/FTP/E.pm
new file mode 100644
index 00000000..d3cb8207
--- /dev/null
+++ b/lib/5.24.1/Net/FTP/E.pm
@@ -0,0 +1,13 @@
+package Net::FTP::E;
+
+use 5.008001;
+
+use strict;
+use warnings;
+
+use Net::FTP::I;
+
+our @ISA = qw(Net::FTP::I);
+our $VERSION = "3.08_01";
+
+1;
diff --git a/lib/5.24.1/Net/FTP/I.pm b/lib/5.24.1/Net/FTP/I.pm
new file mode 100644
index 00000000..3bd1c0fb
--- /dev/null
+++ b/lib/5.24.1/Net/FTP/I.pm
@@ -0,0 +1,84 @@
+## 
+## Package to read/write on BINARY data connections
+##
+
+package Net::FTP::I;
+
+use 5.008001;
+
+use strict;
+use warnings;
+
+use Carp;
+use Net::FTP::dataconn;
+
+our @ISA     = qw(Net::FTP::dataconn);
+our $VERSION = "3.08_01";
+
+our $buf;
+
+sub read {
+  my $data = shift;
+  local *buf = \$_[0];
+  shift;
+  my $size = shift || croak 'read($buf,$size,[$timeout])';
+  my $timeout = @_ ? shift: $data->timeout;
+
+  my $n;
+
+  if ($size > length ${*$data} and !${*$data}{'net_ftp_eof'}) {
+    $data->can_read($timeout)
+      or croak "Timeout";
+
+    my $blksize = ${*$data}{'net_ftp_blksize'};
+    $blksize = $size if $size > $blksize;
+
+    unless ($n = sysread($data, ${*$data}, $blksize, length ${*$data})) {
+      return unless defined $n;
+      ${*$data}{'net_ftp_eof'} = 1;
+    }
+  }
+
+  $buf = substr(${*$data}, 0, $size);
+
+  $n = length($buf);
+
+  substr(${*$data}, 0, $n) = '';
+
+  ${*$data}{'net_ftp_bytesread'} += $n;
+
+  $n;
+}
+
+
+sub write {
+  my $data = shift;
+  local *buf = \$_[0];
+  shift;
+  my $size = shift || croak 'write($buf,$size,[$timeout])';
+  my $timeout = @_ ? shift: $data->timeout;
+
+  # If the remote server has closed the connection we will be signal'd
+  # when we write. This can happen if the disk on the remote server fills up
+
+  local $SIG{PIPE} = 'IGNORE'
+    unless ($SIG{PIPE} || '') eq 'IGNORE'
+    or $^O eq 'MacOS';
+  my $sent = $size;
+  my $off  = 0;
+
+  my $blksize = ${*$data}{'net_ftp_blksize'};
+  while ($sent > 0) {
+    $data->can_write($timeout)
+      or croak "Timeout";
+
+    my $n = syswrite($data, $buf, $sent > $blksize ? $blksize : $sent, $off);
+    return unless defined($n);
+    $sent -= $n;
+    $off += $n;
+  }
+
+  $size;
+}
+
+1;
diff --git a/lib/5.24.1/Net/FTP/L.pm b/lib/5.24.1/Net/FTP/L.pm
new file mode 100644
index 00000000..630db0d0
--- /dev/null
+++ b/lib/5.24.1/Net/FTP/L.pm
@@ -0,0 +1,13 @@
+package Net::FTP::L;
+
+use 5.008001;
+
+use strict;
+use warnings;
+
+use Net::FTP::I;
+
+our @ISA = qw(Net::FTP::I);
+our $VERSION = "3.08_01";
+
+1;
diff --git a/lib/5.24.1/Net/FTP/dataconn.pm b/lib/5.24.1/Net/FTP/dataconn.pm
new file mode 100644
index 00000000..ba0891bd
--- /dev/null
+++ b/lib/5.24.1/Net/FTP/dataconn.pm
@@ -0,0 +1,182 @@
+##
+## Generic data connection package
+##
+
+package Net::FTP::dataconn;
+
+use 5.008001;
+
+use strict;
+use warnings;
+
+use Carp;
+use Errno;
+use Net::Cmd;
+
+our $VERSION = '3.08_01';
+
+$Net::FTP::IOCLASS or die "please load Net::FTP before Net::FTP::dataconn";
+our @ISA = $Net::FTP::IOCLASS;
+
+sub reading {
+  my $data = shift;
+  ${*$data}{'net_ftp_bytesread'} = 0;
+}
+
+
+sub abort {
+  my $data = shift;
+  my $ftp  = ${*$data}{'net_ftp_cmd'};
+
+  # no need to abort if we have finished the xfer
+  return $data->close
+    if ${*$data}{'net_ftp_eof'};
+
+  # for some reason if we continuously open RETR connections and not
+  # read a single byte, then abort them after a while the server will
+  # close our connection, this prevents the unexpected EOF on the
+  # command channel -- GMB
+  if (exists ${*$data}{'net_ftp_bytesread'}
+    && (${*$data}{'net_ftp_bytesread'} == 0))
+  {
+    my $buf     = "";
+    my $timeout = $data->timeout;
+    $data->can_read($timeout) && sysread($data, $buf, 1);
+  }
+
+  ${*$data}{'net_ftp_eof'} = 1;    # fake
+
+  $ftp->abort;                     # this will close me
+}
+
+
+sub _close {
+  my $data = shift;
+  my $ftp  = ${*$data}{'net_ftp_cmd'};
+
+  $data->SUPER::close();
+
+  delete ${*$ftp}{'net_ftp_dataconn'}
+    if defined $ftp
+    && exists ${*$ftp}{'net_ftp_dataconn'}
+    && $data == ${*$ftp}{'net_ftp_dataconn'};
+}
+
+
+sub close {
+  my $data = shift;
+  my $ftp  = ${*$data}{'net_ftp_cmd'};
+
+  if (exists ${*$data}{'net_ftp_bytesread'} && !${*$data}{'net_ftp_eof'}) {
+    my $junk;
+    eval { local($SIG{__DIE__}); $data->read($junk, 1, 0) };
+    return $data->abort unless ${*$data}{'net_ftp_eof'};
+  }
+
+  $data->_close;
+
+  return unless defined $ftp;
+
+  $ftp->response() == CMD_OK
+    && $ftp->message =~ /unique file name:\s*(\S*)\s*\)/
+    && (${*$ftp}{'net_ftp_unique'} = $1);
+
+  $ftp->status == CMD_OK;
+}
+
+
+sub _select {
+  my ($data, $timeout, $do_read) = @_;
+  my ($rin, $rout, $win, $wout, $tout, $nfound);
+
+  vec($rin = '', fileno($data), 1) = 1;
+
+  ($win, $rin) = ($rin, $win) unless $do_read;
+
+  while (1) {
+    $nfound = select($rout = $rin, $wout = $win, undef, $tout = $timeout);
+
+    last if $nfound >= 0;
+
+    croak "select: $!"
+      unless $!{EINTR};
+  }
+
+  $nfound;
+}
+
+
+sub can_read {
+  _select(@_[0, 1], 1);
+}
+
+
+sub can_write {
+  _select(@_[0, 1], 0);
+}
+
+
+sub cmd {
+  my $ftp = shift;
+
+  ${*$ftp}{'net_ftp_cmd'};
+}
+
+
+sub bytes_read {
+  my $ftp = shift;
+
+  ${*$ftp}{'net_ftp_bytesread'} || 0;
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+Net::FTP::dataconn - FTP Client data connection class
+
+=head1 DESCRIPTION
+
+Some of the methods defined in C<Net::FTP> return an object which will
+be derived from this class. The dataconn class itself is derived from
+the C<IO::Socket::INET> class, so any normal IO operations can be performed.
+However the following methods are defined in the dataconn class and IO should
+be performed using these.
+
+=over 4
+
+=item read ( BUFFER, SIZE [, TIMEOUT ] )
+
+Read C<SIZE> bytes of data from the server and place it into C<BUFFER>, also
+performing any <CRLF> translation necessary. C<TIMEOUT> is optional, if not
+given, the timeout value from the command connection will be used.
+
+Returns the number of bytes read before any <CRLF> translation.
+
+=item write ( BUFFER, SIZE [, TIMEOUT ] )
+
+Write C<SIZE> bytes of data from C<BUFFER> to the server, also
+performing any <CRLF> translation necessary. C<TIMEOUT> is optional, if not
+given, the timeout value from the command connection will be used.
+
+Returns the number of bytes written before any <CRLF> translation.
+
+=item bytes_read ()
+
+Returns the number of bytes read so far.
+
+=item abort ()
+
+Abort the current data transfer.
+
+=item close ()
+
+Close the data connection and get a response from the FTP server. Returns
+I<true> if the connection was closed successfully and the first digit of
+the response from the server was a '2'.
+
+=back
+
+=cut
diff --git a/lib/5.24.1/Net/NNTP.pm b/lib/5.24.1/Net/NNTP.pm
new file mode 100644
index 00000000..675b1e6a
--- /dev/null
+++ b/lib/5.24.1/Net/NNTP.pm
@@ -0,0 +1,1302 @@
+# Net::NNTP.pm
+#
+# Versions up to 2.24_1 Copyright (c) 1995-1997 Graham Barr <gbarr@pobox.com>.
+# All rights reserved.
+# Changes in Version 2.25 onwards Copyright (C) 2013-2015 Steve Hay.  All rights
+# reserved.
+# This module is free software; you can redistribute it and/or modify it under
+# the same terms as Perl itself, i.e. under the terms of either the GNU General
+# Public License or the Artistic License, as specified in the F<LICENCE> file.
+
+package Net::NNTP;
+
+use 5.008001;
+
+use strict;
+use warnings;
+
+use Carp;
+use IO::Socket;
+use Net::Cmd;
+use Net::Config;
+use Time::Local;
+
+our $VERSION = "3.08_01";
+
+# Code for detecting if we can use SSL
+my $ssl_class = eval {
+  require IO::Socket::SSL;
+  # first version with default CA on most platforms
+  no warnings 'numeric';
+  IO::Socket::SSL->VERSION(2.007);
+} && 'IO::Socket::SSL';
+
+my $nossl_warn = !$ssl_class &&
+  'To use SSL please install IO::Socket::SSL with version>=2.007';
+
+# Code for detecting if we can use IPv6
+my $family_key = 'Domain';
+my $inet6_class = eval {
+  require IO::Socket::IP;
+  no warnings 'numeric';
+  IO::Socket::IP->VERSION(0.20) || die;
+  $family_key = 'Family';
+} && 'IO::Socket::IP' || eval {
+  require IO::Socket::INET6;
+  no warnings 'numeric';
+  IO::Socket::INET6->VERSION(2.62);
+} && 'IO::Socket::INET6';
+
+
+sub can_ssl   { $ssl_class };
+sub can_inet6 { $inet6_class };
+
+our @ISA = ('Net::Cmd', $inet6_class || 'IO::Socket::INET');
+
+
+sub new {
+  my $self = shift;
+  my $type = ref($self) || $self;
+  my ($host, %arg);
+  if (@_ % 2) {
+    $host = shift;
+    %arg  = @_;
+  }
+  else {
+    %arg  = @_;
+    $host = delete $arg{Host};
+  }
+  my $obj;
+
+  $host ||= $ENV{NNTPSERVER} || $ENV{NEWSHOST};
+
+  my $hosts = defined $host ? [$host] : $NetConfig{nntp_hosts};
+
+  @{$hosts} = qw(news)
+    unless @{$hosts};
+
+  my %connect = ( Proto => 'tcp');
+
+  if ($arg{SSL}) {
+    # SSL from start
+    die $nossl_warn if ! $ssl_class;
+    $arg{Port} ||= 563;
+    $connect{$_} = $arg{$_} for(grep { m{^SSL_} } keys %arg);
+  }
+
+  foreach my $o (qw(LocalAddr LocalPort Timeout)) {
+    $connect{$o} = $arg{$o} if exists $arg{$o};
+  }
+  $connect{$family_key} = $arg{Domain} || $arg{Family};
+  $connect{Timeout} = 120 unless defined $connect{Timeout};
+  $connect{PeerPort} = $arg{Port} || 'nntp(119)';
+  foreach my $h (@{$hosts}) {
+    $connect{PeerAddr} = $h;
+    $obj = $type->SUPER::new(%connect) or next;
+    ${*$obj}{'net_nntp_host'} = $h;
+    ${*$obj}{'net_nntp_arg'} = \%arg;
+    if ($arg{SSL}) {
+      Net::NNTP::_SSL->start_SSL($obj,%arg) or next;
+    }
+    last:
+  }
+
+  return
+    unless defined $obj;
+
+  $obj->autoflush(1);
+  $obj->debug(exists $arg{Debug} ? $arg{Debug} : undef);
+
+  unless ($obj->response() == CMD_OK) {
+    $obj->close;
+    return;
+  }
+
+  my $c = $obj->code;
+  my @m = $obj->message;
+
+  unless (exists $arg{Reader} && $arg{Reader} == 0) {
+
+    # if server is INN and we have transfer rights the we are currently
+    # talking to innd not nnrpd
+    if ($obj->reader) {
+
+      # If reader succeeds the we need to consider this code to determine postok
+      $c = $obj->code;
+    }
+    else {
+
+      # I want to ignore this failure, so restore the previous status.
+      $obj->set_status($c, \@m);
+    }
+  }
+
+  ${*$obj}{'net_nntp_post'} = $c == 200 ? 1 : 0;
+
+  $obj;
+}
+
+
+sub host {
+  my $me = shift;
+  ${*$me}{'net_nntp_host'};
+}
+
+
+sub debug_text {
+  my $nntp  = shift;
+  my $inout = shift;
+  my $text  = shift;
+
+  if ( (ref($nntp) and $nntp->code == 350 and $text =~ /^(\S+)/)
+    || ($text =~ /^(authinfo\s+pass)/io))
+  {
+    $text = "$1 ....\n";
+  }
+
+  $text;
+}
+
+
+sub postok {
+  @_ == 1 or croak 'usage: $nntp->postok()';
+  my $nntp = shift;
+  ${*$nntp}{'net_nntp_post'} || 0;
+}
+
+
+sub starttls {
+  my $self = shift;
+  $ssl_class or die $nossl_warn;
+  $self->_STARTTLS or return;
+  Net::NNTP::_SSL->start_SSL($self,
+    %{ ${*$self}{'net_nntp_arg'} }, # (ssl) args given in new
+    @_   # more (ssl) args
+  ) or return;
+  return 1;
+}
+
+
+sub article {
+  @_ >= 1 && @_ <= 3 or croak 'usage: $nntp->article( [ MSGID ], [ FH ] )';
+  my $nntp = shift;
+  my @fh;
+
+  @fh = (pop) if @_ == 2 || (@_ && (ref($_[0]) || ref(\$_[0]) eq 'GLOB'));
+
+  $nntp->_ARTICLE(@_)
+    ? $nntp->read_until_dot(@fh)
+    : undef;
+}
+
+
+sub articlefh {
+  @_ >= 1 && @_ <= 2 or croak 'usage: $nntp->articlefh( [ MSGID ] )';
+  my $nntp = shift;
+
+  return unless $nntp->_ARTICLE(@_);
+  return $nntp->tied_fh;
+}
+
+
+sub authinfo {
+  @_ == 3 or croak 'usage: $nntp->authinfo( USER, PASS )';
+  my ($nntp, $user, $pass) = @_;
+
+  $nntp->_AUTHINFO("USER",      $user) == CMD_MORE
+    && $nntp->_AUTHINFO("PASS", $pass) == CMD_OK;
+}
+
+
+sub authinfo_simple {
+  @_ == 3 or croak 'usage: $nntp->authinfo( USER, PASS )';
+  my ($nntp, $user, $pass) = @_;
+
+  $nntp->_AUTHINFO('SIMPLE') == CMD_MORE
+    && $nntp->command($user, $pass)->response == CMD_OK;
+}
+
+
+sub body {
+  @_ >= 1 && @_ <= 3 or croak 'usage: $nntp->body( [ MSGID ], [ FH ] )';
+  my $nntp = shift;
+  my @fh;
+
+  @fh = (pop) if @_ == 2 || (@_ && ref($_[0]) || ref(\$_[0]) eq 'GLOB');
+
+  $nntp->_BODY(@_)
+    ? $nntp->read_until_dot(@fh)
+    : undef;
+}
+
+
+sub bodyfh {
+  @_ >= 1 && @_ <= 2 or croak 'usage: $nntp->bodyfh( [ MSGID ] )';
+  my $nntp = shift;
+  return unless $nntp->_BODY(@_);
+  return $nntp->tied_fh;
+}
+
+
+sub head {
+  @_ >= 1 && @_ <= 3 or croak 'usage: $nntp->head( [ MSGID ], [ FH ] )';
+  my $nntp = shift;
+  my @fh;
+
+  @fh = (pop) if @_ == 2 || (@_ && ref($_[0]) || ref(\$_[0]) eq 'GLOB');
+
+  $nntp->_HEAD(@_)
+    ? $nntp->read_until_dot(@fh)
+    : undef;
+}
+
+
+sub headfh {
+  @_ >= 1 && @_ <= 2 or croak 'usage: $nntp->headfh( [ MSGID ] )';
+  my $nntp = shift;
+  return unless $nntp->_HEAD(@_);
+  return $nntp->tied_fh;
+}
+
+
+sub nntpstat {
+  @_ == 1 || @_ == 2 or croak 'usage: $nntp->nntpstat( [ MSGID ] )';
+  my $nntp = shift;
+
+  $nntp->_STAT(@_) && $nntp->message =~ /(<[^>]+>)/o
+    ? $1
+    : undef;
+}
+
+
+sub group {
+  @_ == 1 || @_ == 2 or croak 'usage: $nntp->group( [ GROUP ] )';
+  my $nntp = shift;
+  my $grp  = ${*$nntp}{'net_nntp_group'};
+
+  return $grp
+    unless (@_ || wantarray);
+
+  my $newgrp = shift;
+
+  $newgrp = (defined($grp) and length($grp)) ? $grp : ""
+    unless defined($newgrp) and length($newgrp);
+
+  return 
+    unless $nntp->_GROUP($newgrp) and $nntp->message =~ /(\d+)\s+(\d+)\s+(\d+)\s+(\S+)/;
+
+  my ($count, $first, $last, $group) = ($1, $2, $3, $4);
+
+  # group may be replied as '(current group)'
+  $group = ${*$nntp}{'net_nntp_group'}
+    if $group =~ /\(/;
+
+  ${*$nntp}{'net_nntp_group'} = $group;
+
+  wantarray
+    ? ($count, $first, $last, $group)
+    : $group;
+}
+
+
+sub help {
+  @_ == 1 or croak 'usage: $nntp->help()';
+  my $nntp = shift;
+
+  $nntp->_HELP
+    ? $nntp->read_until_dot
+    : undef;
+}
+
+
+sub ihave {
+  @_ >= 2 or croak 'usage: $nntp->ihave( MESSAGE-ID [, MESSAGE ])';
+  my $nntp = shift;
+  my $mid  = shift;
+
+  $nntp->_IHAVE($mid) && $nntp->datasend(@_)
+    ? @_ == 0 || $nntp->dataend
+    : undef;
+}
+
+
+sub last {
+  @_ == 1 or croak 'usage: $nntp->last()';
+  my $nntp = shift;
+
+  $nntp->_LAST && $nntp->message =~ /(<[^>]+>)/o
+    ? $1
+    : undef;
+}
+
+
+sub list {
+  @_ == 1 or croak 'usage: $nntp->list()';
+  my $nntp = shift;
+
+  $nntp->_LIST
+    ? $nntp->_grouplist
+    : undef;
+}
+
+
+sub newgroups {
+  @_ >= 2 or croak 'usage: $nntp->newgroups( SINCE [, DISTRIBUTIONS ])';
+  my $nntp = shift;
+  my $time = _timestr(shift);
+  my $dist = shift || "";
+
+  $dist = join(",", @{$dist})
+    if ref($dist);
+
+  $nntp->_NEWGROUPS($time, $dist)
+    ? $nntp->_grouplist
+    : undef;
+}
+
+
+sub newnews {
+  @_ >= 2 && @_ <= 4
+    or croak 'usage: $nntp->newnews( SINCE [, GROUPS [, DISTRIBUTIONS ]])';
+  my $nntp = shift;
+  my $time = _timestr(shift);
+  my $grp  = @_ ? shift: $nntp->group;
+  my $dist = shift || "";
+
+  $grp ||= "*";
+  $grp = join(",", @{$grp})
+    if ref($grp);
+
+  $dist = join(",", @{$dist})
+    if ref($dist);
+
+  $nntp->_NEWNEWS($grp, $time, $dist)
+    ? $nntp->_articlelist
+    : undef;
+}
+
+
+sub next {
+  @_ == 1 or croak 'usage: $nntp->next()';
+  my $nntp = shift;
+
+  $nntp->_NEXT && $nntp->message =~ /(<[^>]+>)/o
+    ? $1
+    : undef;
+}
+
+
+sub post {
+  @_ >= 1 or croak 'usage: $nntp->post( [ MESSAGE ] )';
+  my $nntp = shift;
+
+  $nntp->_POST() && $nntp->datasend(@_)
+    ? @_ == 0 || $nntp->dataend
+    : undef;
+}
+
+
+sub postfh {
+  my $nntp = shift;
+  return unless $nntp->_POST();
+  return $nntp->tied_fh;
+}
+
+
+sub quit {
+  @_ == 1 or croak 'usage: $nntp->quit()';
+  my $nntp = shift;
+
+  $nntp->_QUIT;
+  $nntp->close;
+}
+
+
+sub slave {
+  @_ == 1 or croak 'usage: $nntp->slave()';
+  my $nntp = shift;
+
+  $nntp->_SLAVE;
+}
+
+##
+## The following methods are not implemented by all servers
+##
+
+
+sub active {
+  @_ == 1 || @_ == 2 or croak 'usage: $nntp->active( [ PATTERN ] )';
+  my $nntp = shift;
+
+  $nntp->_LIST('ACTIVE', @_)
+    ? $nntp->_grouplist
+    : undef;
+}
+
+
+sub active_times {
+  @_ == 1 or croak 'usage: $nntp->active_times()';
+  my $nntp = shift;
+
+  $nntp->_LIST('ACTIVE.TIMES')
+    ? $nntp->_grouplist
+    : undef;
+}
+
+
+sub distributions {
+  @_ == 1 or croak 'usage: $nntp->distributions()';
+  my $nntp = shift;
+
+  $nntp->_LIST('DISTRIBUTIONS')
+    ? $nntp->_description
+    : undef;
+}
+
+
+sub distribution_patterns {
+  @_ == 1 or croak 'usage: $nntp->distributions()';
+  my $nntp = shift;
+
+  my $arr;
+  local $_;
+
+  ## no critic (ControlStructures::ProhibitMutatingListFunctions)
+  $nntp->_LIST('DISTRIB.PATS')
+    && ($arr = $nntp->read_until_dot)
+    ? [grep { /^\d/ && (chomp, $_ = [split /:/]) } @$arr]
+    : undef;
+}
+
+
+sub newsgroups {
+  @_ == 1 || @_ == 2 or croak 'usage: $nntp->newsgroups( [ PATTERN ] )';
+  my $nntp = shift;
+
+  $nntp->_LIST('NEWSGROUPS', @_)
+    ? $nntp->_description
+    : undef;
+}
+
+
+sub overview_fmt {
+  @_ == 1 or croak 'usage: $nntp->overview_fmt()';
+  my $nntp = shift;
+
+  $nntp->_LIST('OVERVIEW.FMT')
+    ? $nntp->_articlelist
+    : undef;
+}
+
+
+sub subscriptions {
+  @_ == 1 or croak 'usage: $nntp->subscriptions()';
+  my $nntp = shift;
+
+  $nntp->_LIST('SUBSCRIPTIONS')
+    ? $nntp->_articlelist
+    : undef;
+}
+
+
+sub listgroup {
+  @_ == 1 || @_ == 2 or croak 'usage: $nntp->listgroup( [ GROUP ] )';
+  my $nntp = shift;
+
+  $nntp->_LISTGROUP(@_)
+    ? $nntp->_articlelist
+    : undef;
+}
+
+
+sub reader {
+  @_ == 1 or croak 'usage: $nntp->reader()';
+  my $nntp = shift;
+
+  $nntp->_MODE('READER');
+}
+
+
+sub xgtitle {
+  @_ == 1 || @_ == 2 or croak 'usage: $nntp->xgtitle( [ PATTERN ] )';
+  my $nntp = shift;
+
+  $nntp->_XGTITLE(@_)
+    ? $nntp->_description
+    : undef;
+}
+
+
+sub xhdr {
+  @_ >= 2 && @_ <= 4 or croak 'usage: $nntp->xhdr( HEADER, [ MESSAGE-SPEC ] )';
+  my $nntp = shift;
+  my $hdr  = shift;
+  my $arg  = _msg_arg(@_);
+
+  $nntp->_XHDR($hdr, $arg)
+    ? $nntp->_description
+    : undef;
+}
+
+
+sub xover {
+  @_ == 2 || @_ == 3 or croak 'usage: $nntp->xover( MESSAGE-SPEC )';
+  my $nntp = shift;
+  my $arg  = _msg_arg(@_);
+
+  $nntp->_XOVER($arg)
+    ? $nntp->_fieldlist
+    : undef;
+}
+
+
+sub xpat {
+  @_ == 4 || @_ == 5 or croak '$nntp->xpat( HEADER, PATTERN, MESSAGE-SPEC )';
+  my $nntp = shift;
+  my $hdr  = shift;
+  my $pat  = shift;
+  my $arg  = _msg_arg(@_);
+
+  $pat = join(" ", @$pat)
+    if ref($pat);
+
+  $nntp->_XPAT($hdr, $arg, $pat)
+    ? $nntp->_description
+    : undef;
+}
+
+
+sub xpath {
+  @_ == 2 or croak 'usage: $nntp->xpath( MESSAGE-ID )';
+  my ($nntp, $mid) = @_;
+
+  return
+    unless $nntp->_XPATH($mid);
+
+  my $m;
+  ($m = $nntp->message) =~ s/^\d+\s+//o;
+  my @p = split /\s+/, $m;
+
+  wantarray ? @p : $p[0];
+}
+
+
+sub xrover {
+  @_ == 2 || @_ == 3 or croak 'usage: $nntp->xrover( MESSAGE-SPEC )';
+  my $nntp = shift;
+  my $arg  = _msg_arg(@_);
+
+  $nntp->_XROVER($arg)
+    ? $nntp->_description
+    : undef;
+}
+
+
+sub date {
+  @_ == 1 or croak 'usage: $nntp->date()';
+  my $nntp = shift;
+
+  $nntp->_DATE
+    && $nntp->message =~ /(\d{4})(\d\d)(\d\d)(\d\d)(\d\d)(\d\d)/
+    ? timegm($6, $5, $4, $3, $2 - 1, $1 - 1900)
+    : undef;
+}
+
+
+##
+## Private subroutines
+##
+
+
+sub _msg_arg {
+  my $spec = shift;
+  my $arg  = "";
+
+  if (@_) {
+    carp "Depriciated passing of two message numbers, " . "pass a reference"
+      if $^W;
+    $spec = [$spec, $_[0]];
+  }
+
+  if (defined $spec) {
+    if (ref($spec)) {
+      $arg = $spec->[0];
+      if (defined $spec->[1]) {
+        $arg .= "-"
+          if $spec->[1] != $spec->[0];
+        $arg .= $spec->[1]
+          if $spec->[1] > $spec->[0];
+      }
+    }
+    else {
+      $arg = $spec;
+    }
+  }
+
+  $arg;
+}
+
+
+sub _timestr {
+  my $time = shift;
+  my @g    = reverse((gmtime($time))[0 .. 5]);
+  $g[1] += 1;
+  $g[0] %= 100;
+  sprintf "%02d%02d%02d %02d%02d%02d GMT", @g;
+}
+
+
+sub _grouplist {
+  my $nntp = shift;
+  my $arr  = $nntp->read_until_dot
+    or return;
+
+  my $hash = {};
+
+  foreach my $ln (@$arr) {
+    my @a = split(/[\s\n]+/, $ln);
+    $hash->{$a[0]} = [@a[1, 2, 3]];
+  }
+
+  $hash;
+}
+
+
+sub _fieldlist {
+  my $nntp = shift;
+  my $arr  = $nntp->read_until_dot
+    or return;
+
+  my $hash = {};
+
+  foreach my $ln (@$arr) {
+    my @a = split(/[\t\n]/, $ln);
+    my $m = shift @a;
+    $hash->{$m} = [@a];
+  }
+
+  $hash;
+}
+
+
+sub _articlelist {
+  my $nntp = shift;
+  my $arr  = $nntp->read_until_dot;
+
+  chomp(@$arr)
+    if $arr;
+
+  $arr;
+}
+
+
+sub _description {
+  my $nntp = shift;
+  my $arr  = $nntp->read_until_dot
+    or return;
+
+  my $hash = {};
+
+  foreach my $ln (@$arr) {
+    chomp($ln);
+
+    $hash->{$1} = $ln
+      if $ln =~ s/^\s*(\S+)\s*//o;
+  }
+
+  $hash;
+
+}
+
+##
+## The commands
+##
+
+
+sub _ARTICLE  { shift->command('ARTICLE',  @_)->response == CMD_OK }
+sub _AUTHINFO { shift->command('AUTHINFO', @_)->response }
+sub _BODY     { shift->command('BODY',     @_)->response == CMD_OK }
+sub _DATE      { shift->command('DATE')->response == CMD_INFO }
+sub _GROUP     { shift->command('GROUP', @_)->response == CMD_OK }
+sub _HEAD      { shift->command('HEAD', @_)->response == CMD_OK }
+sub _HELP      { shift->command('HELP', @_)->response == CMD_INFO }
+sub _IHAVE     { shift->command('IHAVE', @_)->response == CMD_MORE }
+sub _LAST      { shift->command('LAST')->response == CMD_OK }
+sub _LIST      { shift->command('LIST', @_)->response == CMD_OK }
+sub _LISTGROUP { shift->command('LISTGROUP', @_)->response == CMD_OK }
+sub _NEWGROUPS { shift->command('NEWGROUPS', @_)->response == CMD_OK }
+sub _NEWNEWS   { shift->command('NEWNEWS', @_)->response == CMD_OK }
+sub _NEXT      { shift->command('NEXT')->response == CMD_OK }
+sub _POST      { shift->command('POST', @_)->response == CMD_MORE }
+sub _QUIT      { shift->command('QUIT', @_)->response == CMD_OK }
+sub _SLAVE     { shift->command('SLAVE', @_)->response == CMD_OK }
+sub _STARTTLS  { shift->command("STARTTLS")->response() == CMD_MORE }
+sub _STAT      { shift->command('STAT', @_)->response == CMD_OK }
+sub _MODE      { shift->command('MODE', @_)->response == CMD_OK }
+sub _XGTITLE   { shift->command('XGTITLE', @_)->response == CMD_OK }
+sub _XHDR      { shift->command('XHDR', @_)->response == CMD_OK }
+sub _XPAT      { shift->command('XPAT', @_)->response == CMD_OK }
+sub _XPATH     { shift->command('XPATH', @_)->response == CMD_OK }
+sub _XOVER     { shift->command('XOVER', @_)->response == CMD_OK }
+sub _XROVER    { shift->command('XROVER', @_)->response == CMD_OK }
+sub _XTHREAD   { shift->unsupported }
+sub _XSEARCH   { shift->unsupported }
+sub _XINDEX    { shift->unsupported }
+
+##
+## IO/perl methods
+##
+
+
+sub DESTROY {
+  my $nntp = shift;
+  defined(fileno($nntp)) && $nntp->quit;
+}
+
+{
+  package Net::NNTP::_SSL;
+  our @ISA = ( $ssl_class ? ($ssl_class):(), 'Net::NNTP' );
+  sub starttls { die "NNTP connection is already in SSL mode" }
+  sub start_SSL {
+    my ($class,$nntp,%arg) = @_;
+    delete @arg{ grep { !m{^SSL_} } keys %arg };
+    ( $arg{SSL_verifycn_name} ||= $nntp->host )
+        =~s{(?<!:):[\w()]+$}{}; # strip port
+    $arg{SSL_hostname} = $arg{SSL_verifycn_name}
+        if ! defined $arg{SSL_hostname} && $class->can_client_sni;
+    my $ok = $class->SUPER::start_SSL($nntp,
+      SSL_verifycn_scheme => 'nntp',
+      %arg
+    );
+    $@ = $ssl_class->errstr if !$ok;
+    return $ok;
+  }
+}
+
+
+
+
+1;
+
+__END__
+
+=head1 NAME
+
+Net::NNTP - NNTP Client class
+
+=head1 SYNOPSIS
+
+    use Net::NNTP;
+
+    $nntp = Net::NNTP->new("some.host.name");
+    $nntp->quit;
+
+    # start with SSL, e.g. nntps
+    $nntp = Net::NNTP->new("some.host.name", SSL => 1);
+
+    # start with plain and upgrade to SSL
+    $nntp = Net::NNTP->new("some.host.name");
+    $nntp->starttls;
+
+
+=head1 DESCRIPTION
+
+C<Net::NNTP> is a class implementing a simple NNTP client in Perl as described
+in RFC977 and RFC4642.
+With L<IO::Socket::SSL> installed it also provides support for implicit and
+explicit TLS encryption, i.e. NNTPS or NNTP+STARTTLS.
+
+The Net::NNTP class is a subclass of Net::Cmd and (depending on avaibility) of
+IO::Socket::IP, IO::Socket::INET6 or IO::Socket::INET.
+
+=head1 CONSTRUCTOR
+
+=over 4
+
+=item new ( [ HOST ] [, OPTIONS ])
+
+This is the constructor for a new Net::NNTP object. C<HOST> is the
+name of the remote host to which a NNTP connection is required. If not
+given then it may be passed as the C<Host> option described below. If no host is passed
+then two environment variables are checked, first C<NNTPSERVER> then
+C<NEWSHOST>, then C<Net::Config> is checked, and if a host is not found
+then C<news> is used.
+
+C<OPTIONS> are passed in a hash like fashion, using key and value pairs.
+Possible options are:
+
+B<Host> - NNTP host to connect to. It may be a single scalar, as defined for
+the C<PeerAddr> option in L<IO::Socket::INET>, or a reference to
+an array with hosts to try in turn. The L</host> method will return the value
+which was used to connect to the host.
+
+B<Port> - port to connect to.
+Default - 119 for plain NNTP and 563 for immediate SSL (nntps).
+
+B<SSL> - If the connection should be done from start with SSL, contrary to later
+upgrade with C<starttls>.
+You can use SSL arguments as documented in L<IO::Socket::SSL>, but it will
+usually use the right arguments already.
+
+B<Timeout> - Maximum time, in seconds, to wait for a response from the
+NNTP server, a value of zero will cause all IO operations to block.
+(default: 120)
+
+B<Debug> - Enable the printing of debugging information to STDERR
+
+B<Reader> - If the remote server is INN then initially the connection
+will be to nnrpd, by default C<Net::NNTP> will issue a C<MODE READER> command
+so that the remote server becomes innd. If the C<Reader> option is given
+with a value of zero, then this command will not be sent and the
+connection will be left talking to nnrpd.
+
+B<LocalAddr> and B<LocalPort> - These parameters are passed directly
+to IO::Socket to allow binding the socket to a specific local address and port.
+
+B<Domain> - This parameter is passed directly to IO::Socket and makes it
+possible to enforce IPv4 connections even if L<IO::Socket::IP> is used as super
+class. Alternatively B<Family> can be used.
+
+=back
+
+=head1 METHODS
+
+Unless otherwise stated all methods return either a I<true> or I<false>
+value, with I<true> meaning that the operation was a success. When a method
+states that it returns a value, failure will be returned as I<undef> or an
+empty list.
+
+C<Net::NNTP> inherits from C<Net::Cmd> so methods defined in C<Net::Cmd> may
+be used to send commands to the remote NNTP server in addition to the methods
+documented here.
+
+=over 4
+
+=item host ()
+
+Returns the value used by the constructor, and passed to IO::Socket::INET,
+to connect to the host.
+
+=item starttls ()
+
+Upgrade existing plain connection to SSL.
+Any arguments necessary for SSL must be given in C<new> already.
+
+=item article ( [ MSGID|MSGNUM ], [FH] )
+
+Retrieve the header, a blank line, then the body (text) of the
+specified article. 
+
+If C<FH> is specified then it is expected to be a valid filehandle
+and the result will be printed to it, on success a true value will be
+returned. If C<FH> is not specified then the return value, on success,
+will be a reference to an array containing the article requested, each
+entry in the array will contain one line of the article.
+
+If no arguments are passed then the current article in the currently
+selected newsgroup is fetched.
+
+C<MSGNUM> is a numeric id of an article in the current newsgroup, and
+will change the current article pointer.  C<MSGID> is the message id of
+an article as shown in that article's header.  It is anticipated that the
+client will obtain the C<MSGID> from a list provided by the C<newnews>
+command, from references contained within another article, or from the
+message-id provided in the response to some other commands.
+
+If there is an error then C<undef> will be returned.
+
+=item body ( [ MSGID|MSGNUM ], [FH] )
+
+Like C<article> but only fetches the body of the article.
+
+=item head ( [ MSGID|MSGNUM ], [FH] )
+
+Like C<article> but only fetches the headers for the article.
+
+=item articlefh ( [ MSGID|MSGNUM ] )
+
+=item bodyfh ( [ MSGID|MSGNUM ] )
+
+=item headfh ( [ MSGID|MSGNUM ] )
+
+These are similar to article(), body() and head(), but rather than
+returning the requested data directly, they return a tied filehandle
+from which to read the article.
+
+=item nntpstat ( [ MSGID|MSGNUM ] )
+
+The C<nntpstat> command is similar to the C<article> command except that no
+text is returned.  When selecting by message number within a group,
+the C<nntpstat> command serves to set the "current article pointer" without
+sending text.
+
+Using the C<nntpstat> command to
+select by message-id is valid but of questionable value, since a
+selection by message-id does B<not> alter the "current article pointer".
+
+Returns the message-id of the "current article".
+
+=item group ( [ GROUP ] )
+
+Set and/or get the current group. If C<GROUP> is not given then information
+is returned on the current group.
+
+In a scalar context it returns the group name.
+
+In an array context the return value is a list containing, the number
+of articles in the group, the number of the first article, the number
+of the last article and the group name.
+
+=item help ( )
+
+Request help text (a short summary of commands that are understood by this
+implementation) from the server. Returns the text or undef upon failure.
+
+=item ihave ( MSGID [, MESSAGE ])
+
+The C<ihave> command informs the server that the client has an article
+whose id is C<MSGID>.  If the server desires a copy of that
+article and C<MESSAGE> has been given then it will be sent.
+
+Returns I<true> if the server desires the article and C<MESSAGE> was
+successfully sent, if specified.
+
+If C<MESSAGE> is not specified then the message must be sent using the
+C<datasend> and C<dataend> methods from L<Net::Cmd>
+
+C<MESSAGE> can be either an array of lines or a reference to an array
+and must be encoded by the caller to octets of whatever encoding is required,
+e.g. by using the Encode module's C<encode()> function.
+
+=item last ()
+
+Set the "current article pointer" to the previous article in the current
+newsgroup.
+
+Returns the message-id of the article.
+
+=item date ()
+
+Returns the date on the remote server. This date will be in a UNIX time
+format (seconds since 1970)
+
+=item postok ()
+
+C<postok> will return I<true> if the servers initial response indicated
+that it will allow posting.
+
+=item authinfo ( USER, PASS )
+
+Authenticates to the server (using the original AUTHINFO USER / AUTHINFO PASS
+form, defined in RFC2980) using the supplied username and password.  Please
+note that the password is sent in clear text to the server.  This command
+should not be used with valuable passwords unless the connection to the server
+is somehow protected.
+
+=item authinfo_simple ( USER, PASS )
+
+Authenticates to the server (using the proposed NNTP V2 AUTHINFO SIMPLE form,
+defined and deprecated in RFC2980) using the supplied username and password.
+As with L</authinfo> the password is sent in clear text.
+
+=item list ()
+
+Obtain information about all the active newsgroups. The results is a reference
+to a hash where the key is a group name and each value is a reference to an
+array. The elements in this array are:- the last article number in the group,
+the first article number in the group and any information flags about the group.
+
+=item newgroups ( SINCE [, DISTRIBUTIONS ])
+
+C<SINCE> is a time value and C<DISTRIBUTIONS> is either a distribution
+pattern or a reference to a list of distribution patterns.
+The result is the same as C<list>, but the
+groups return will be limited to those created after C<SINCE> and, if
+specified, in one of the distribution areas in C<DISTRIBUTIONS>. 
+
+=item newnews ( SINCE [, GROUPS [, DISTRIBUTIONS ]])
+
+C<SINCE> is a time value. C<GROUPS> is either a group pattern or a reference
+to a list of group patterns. C<DISTRIBUTIONS> is either a distribution
+pattern or a reference to a list of distribution patterns.
+
+Returns a reference to a list which contains the message-ids of all news posted
+after C<SINCE>, that are in a groups which matched C<GROUPS> and a
+distribution which matches C<DISTRIBUTIONS>.
+
+=item next ()
+
+Set the "current article pointer" to the next article in the current
+newsgroup.
+
+Returns the message-id of the article.
+
+=item post ( [ MESSAGE ] )
+
+Post a new article to the news server. If C<MESSAGE> is specified and posting
+is allowed then the message will be sent.
+
+If C<MESSAGE> is not specified then the message must be sent using the
+C<datasend> and C<dataend> methods from L<Net::Cmd>
+
+C<MESSAGE> can be either an array of lines or a reference to an array
+and must be encoded by the caller to octets of whatever encoding is required,
+e.g. by using the Encode module's C<encode()> function.
+
+The message, either sent via C<datasend> or as the C<MESSAGE>
+parameter, must be in the format as described by RFC822 and must
+contain From:, Newsgroups: and Subject: headers.
+
+=item postfh ()
+
+Post a new article to the news server using a tied filehandle.  If
+posting is allowed, this method will return a tied filehandle that you
+can print() the contents of the article to be posted.  You must
+explicitly close() the filehandle when you are finished posting the
+article, and the return value from the close() call will indicate
+whether the message was successfully posted.
+
+=item slave ()
+
+Tell the remote server that I am not a user client, but probably another
+news server.
+
+=item quit ()
+
+Quit the remote server and close the socket connection.
+
+=item can_inet6 ()
+
+Returns whether we can use IPv6.
+
+=item can_ssl ()
+
+Returns whether we can use SSL.
+
+=back
+
+=head2 Extension methods
+
+These methods use commands that are not part of the RFC977 documentation. Some
+servers may not support all of them.
+
+=over 4
+
+=item newsgroups ( [ PATTERN ] )
+
+Returns a reference to a hash where the keys are all the group names which
+match C<PATTERN>, or all of the groups if no pattern is specified, and
+each value contains the description text for the group.
+
+=item distributions ()
+
+Returns a reference to a hash where the keys are all the possible
+distribution names and the values are the distribution descriptions.
+
+=item distribution_patterns ()
+
+Returns a reference to an array where each element, itself an array
+reference, consists of the three fields of a line of the distrib.pats list
+maintained by some NNTP servers, namely: a weight, a wildmat and a value
+which the client may use to construct a Distribution header.
+
+=item subscriptions ()
+
+Returns a reference to a list which contains a list of groups which
+are recommended for a new user to subscribe to.
+
+=item overview_fmt ()
+
+Returns a reference to an array which contain the names of the fields returned
+by C<xover>.
+
+=item active_times ()
+
+Returns a reference to a hash where the keys are the group names and each
+value is a reference to an array containing the time the groups was created
+and an identifier, possibly an Email address, of the creator.
+
+=item active ( [ PATTERN ] )
+
+Similar to C<list> but only active groups that match the pattern are returned.
+C<PATTERN> can be a group pattern.
+
+=item xgtitle ( PATTERN )
+
+Returns a reference to a hash where the keys are all the group names which
+match C<PATTERN> and each value is the description text for the group.
+
+=item xhdr ( HEADER, MESSAGE-SPEC )
+
+Obtain the header field C<HEADER> for all the messages specified. 
+
+The return value will be a reference
+to a hash where the keys are the message numbers and each value contains
+the text of the requested header for that message.
+
+=item xover ( MESSAGE-SPEC )
+
+The return value will be a reference
+to a hash where the keys are the message numbers and each value contains
+a reference to an array which contains the overview fields for that
+message.
+
+The names of the fields can be obtained by calling C<overview_fmt>.
+
+=item xpath ( MESSAGE-ID )
+
+Returns the path name to the file on the server which contains the specified
+message.
+
+=item xpat ( HEADER, PATTERN, MESSAGE-SPEC)
+
+The result is the same as C<xhdr> except the is will be restricted to
+headers where the text of the header matches C<PATTERN>
+
+=item xrover ()
+
+The XROVER command returns reference information for the article(s)
+specified.
+
+Returns a reference to a HASH where the keys are the message numbers and the
+values are the References: lines from the articles
+
+=item listgroup ( [ GROUP ] )
+
+Returns a reference to a list of all the active messages in C<GROUP>, or
+the current group if C<GROUP> is not specified.
+
+=item reader ()
+
+Tell the server that you are a reader and not another server.
+
+This is required by some servers. For example if you are connecting to
+an INN server and you have transfer permission your connection will
+be connected to the transfer daemon, not the NNTP daemon. Issuing
+this command will cause the transfer daemon to hand over control
+to the NNTP daemon.
+
+Some servers do not understand this command, but issuing it and ignoring
+the response is harmless.
+
+=back
+
+=head1 UNSUPPORTED
+
+The following NNTP command are unsupported by the package, and there are
+no plans to do so.
+
+    AUTHINFO GENERIC
+    XTHREAD
+    XSEARCH
+    XINDEX
+
+=head1 DEFINITIONS
+
+=over 4
+
+=item MESSAGE-SPEC
+
+C<MESSAGE-SPEC> is either a single message-id, a single message number, or
+a reference to a list of two message numbers.
+
+If C<MESSAGE-SPEC> is a reference to a list of two message numbers and the
+second number in a range is less than or equal to the first then the range
+represents all messages in the group after the first message number.
+
+B<NOTE> For compatibility reasons only with earlier versions of Net::NNTP
+a message spec can be passed as a list of two numbers, this is deprecated
+and a reference to the list should now be passed
+
+=item PATTERN
+
+The C<NNTP> protocol uses the C<WILDMAT> format for patterns.
+The WILDMAT format was first developed by Rich Salz based on
+the format used in the UNIX "find" command to articulate
+file names. It was developed to provide a uniform mechanism
+for matching patterns in the same manner that the UNIX shell
+matches filenames.
+
+Patterns are implicitly anchored at the
+beginning and end of each string when testing for a match.
+
+There are five pattern matching operations other than a strict
+one-to-one match between the pattern and the source to be
+checked for a match.
+
+The first is an asterisk C<*> to match any sequence of zero or more
+characters.
+
+The second is a question mark C<?> to match any single character. The
+third specifies a specific set of characters.
+
+The set is specified as a list of characters, or as a range of characters
+where the beginning and end of the range are separated by a minus (or dash)
+character, or as any combination of lists and ranges. The dash can
+also be included in the set as a character it if is the beginning
+or end of the set. This set is enclosed in square brackets. The
+close square bracket C<]> may be used in a set if it is the first
+character in the set.
+
+The fourth operation is the same as the
+logical not of the third operation and is specified the same
+way as the third with the addition of a caret character C<^> at
+the beginning of the test string just inside the open square
+bracket.
+
+The final operation uses the backslash character to
+invalidate the special meaning of an open square bracket C<[>,
+the asterisk, backslash or the question mark. Two backslashes in
+sequence will result in the evaluation of the backslash as a
+character with no special meaning.
+
+=over 4
+
+=item Examples
+
+=item C<[^]-]>
+
+matches any single character other than a close square
+bracket or a minus sign/dash.
+
+=item C<*bdc>
+
+matches any string that ends with the string "bdc"
+including the string "bdc" (without quotes).
+
+=item C<[0-9a-zA-Z]>
+
+matches any single printable alphanumeric ASCII character.
+
+=item C<a??d>
+
+matches any four character string which begins
+with a and ends with d.
+
+=back
+
+=back
+
+=head1 SEE ALSO
+
+L<Net::Cmd>,
+L<IO::Socket::SSL>
+
+=head1 AUTHOR
+
+Graham Barr E<lt>F<gbarr@pobox.com>E<gt>
+
+Steve Hay E<lt>F<shay@cpan.org>E<gt> is now maintaining libnet as of version
+1.22_02
+
+=head1 COPYRIGHT
+
+Versions up to 2.24_1 Copyright (c) 1995-1997 Graham Barr. All rights reserved.
+Changes in Version 2.25 onwards Copyright (C) 2013-2015 Steve Hay.  All rights
+reserved.
+
+This module is free software; you can redistribute it and/or modify it under the
+same terms as Perl itself, i.e. under the terms of either the GNU General Public
+License or the Artistic License, as specified in the F<LICENCE> file.
+
+=cut
diff --git a/lib/5.24.1/Net/Netrc.pm b/lib/5.24.1/Net/Netrc.pm
new file mode 100644
index 00000000..ba60ae69
--- /dev/null
+++ b/lib/5.24.1/Net/Netrc.pm
@@ -0,0 +1,347 @@
+# Net::Netrc.pm
+#
+# Versions up to 2.13 Copyright (c) 1995-1998 Graham Barr <gbarr@pobox.com>.
+# All rights reserved.
+# Changes in Version 2.13_01 onwards Copyright (C) 2013-2014 Steve Hay.  All
+# rights reserved.
+# This module is free software; you can redistribute it and/or modify it under
+# the same terms as Perl itself, i.e. under the terms of either the GNU General
+# Public License or the Artistic License, as specified in the F<LICENCE> file.
+
+package Net::Netrc;
+
+use 5.008001;
+
+use strict;
+use warnings;
+
+use Carp;
+use FileHandle;
+
+our $VERSION = "3.08_01";
+
+our $TESTING;
+
+my %netrc = ();
+
+sub _readrc {
+  my($class, $host) = @_;
+  my ($home, $file);
+
+  if ($^O eq "MacOS") {
+    $home = $ENV{HOME} || `pwd`;
+    chomp($home);
+    $file = ($home =~ /:$/ ? $home . "netrc" : $home . ":netrc");
+  }
+  else {
+
+    # Some OS's don't have "getpwuid", so we default to $ENV{HOME}
+    $home = eval { (getpwuid($>))[7] } || $ENV{HOME};
+    $home ||= $ENV{HOMEDRIVE} . ($ENV{HOMEPATH} || '') if defined $ENV{HOMEDRIVE};
+    if (-e $home . "/.netrc") {
+      $file = $home . "/.netrc";
+    }
+    elsif (-e $home . "/_netrc") {
+      $file = $home . "/_netrc";
+    }
+    else {
+      return unless $TESTING;
+    }
+  }
+
+  my ($login, $pass, $acct) = (undef, undef, undef);
+  my $fh;
+  local $_;
+
+  $netrc{default} = undef;
+
+  # OS/2 and Win32 do not handle stat in a way compatible with this check :-(
+  unless ($^O eq 'os2'
+    || $^O eq 'MSWin32'
+    || $^O eq 'MacOS'
+    || $^O =~ /^cygwin/)
+  {
+    my @stat = stat($file);
+
+    if (@stat) {
+      if ($stat[2] & 077) { ## no critic (ValuesAndExpressions::ProhibitLeadingZeros)
+        carp "Bad permissions: $file";
+        return;
+      }
+      if ($stat[4] != $<) {
+        carp "Not owner: $file";
+        return;
+      }
+    }
+  }
+
+  if ($fh = FileHandle->new($file, "r")) {
+    my ($mach, $macdef, $tok, @tok) = (0, 0);
+
+    while (<$fh>) {
+      undef $macdef if /\A\n\Z/;
+
+      if ($macdef) {
+        push(@$macdef, $_);
+        next;
+      }
+
+      s/^\s*//;
+      chomp;
+
+      while (length && s/^("((?:[^"]+|\\.)*)"|((?:[^\\\s]+|\\.)*))\s*//) {
+        (my $tok = $+) =~ s/\\(.)/$1/g;
+        push(@tok, $tok);
+      }
+
+    TOKEN:
+      while (@tok) {
+        if ($tok[0] eq "default") {
+          shift(@tok);
+          $mach = bless {}, $class;
+          $netrc{default} = [$mach];
+
+          next TOKEN;
+        }
+
+        last TOKEN
+          unless @tok > 1;
+
+        $tok = shift(@tok);
+
+        if ($tok eq "machine") {
+          my $host = shift @tok;
+          $mach = bless {machine => $host}, $class;
+
+          $netrc{$host} = []
+            unless exists($netrc{$host});
+          push(@{$netrc{$host}}, $mach);
+        }
+        elsif ($tok =~ /^(login|password|account)$/) {
+          next TOKEN unless $mach;
+          my $value = shift @tok;
+
+          # Following line added by rmerrell to remove '/' escape char in .netrc
+          $value =~ s/\/\\/\\/g;
+          $mach->{$1} = $value;
+        }
+        elsif ($tok eq "macdef") {
+          next TOKEN unless $mach;
+          my $value = shift @tok;
+          $mach->{macdef} = {}
+            unless exists $mach->{macdef};
+          $macdef = $mach->{machdef}{$value} = [];
+        }
+      }
+    }
+    $fh->close();
+  }
+}
+
+
+sub lookup {
+  my ($class, $mach, $login) = @_;
+
+  $class->_readrc()
+    unless exists $netrc{default};
+
+  $mach ||= 'default';
+  undef $login
+    if $mach eq 'default';
+
+  if (exists $netrc{$mach}) {
+    if (defined $login) {
+      foreach my $m (@{$netrc{$mach}}) {
+        return $m
+          if (exists $m->{login} && $m->{login} eq $login);
+      }
+      return;
+    }
+    return $netrc{$mach}->[0];
+  }
+
+  return $netrc{default}->[0]
+    if defined $netrc{default};
+
+  return;
+}
+
+
+sub login {
+  my $me = shift;
+
+  exists $me->{login}
+    ? $me->{login}
+    : undef;
+}
+
+
+sub account {
+  my $me = shift;
+
+  exists $me->{account}
+    ? $me->{account}
+    : undef;
+}
+
+
+sub password {
+  my $me = shift;
+
+  exists $me->{password}
+    ? $me->{password}
+    : undef;
+}
+
+
+sub lpa {
+  my $me = shift;
+  ($me->login, $me->password, $me->account);
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+Net::Netrc - OO interface to users netrc file
+
+=head1 SYNOPSIS
+
+    use Net::Netrc;
+
+    $mach = Net::Netrc->lookup('some.machine');
+    $login = $mach->login;
+    ($login, $password, $account) = $mach->lpa;
+
+=head1 DESCRIPTION
+
+C<Net::Netrc> is a class implementing a simple interface to the .netrc file
+used as by the ftp program.
+
+C<Net::Netrc> also implements security checks just like the ftp program,
+these checks are, first that the .netrc file must be owned by the user and 
+second the ownership permissions should be such that only the owner has
+read and write access. If these conditions are not met then a warning is
+output and the .netrc file is not read.
+
+=head1 THE .netrc FILE
+
+The .netrc file contains login and initialization information used by the
+auto-login process.  It resides in the user's home directory.  The following
+tokens are recognized; they may be separated by spaces, tabs, or new-lines:
+
+=over 4
+
+=item machine name
+
+Identify a remote machine name. The auto-login process searches
+the .netrc file for a machine token that matches the remote machine
+specified.  Once a match is made, the subsequent .netrc tokens
+are processed, stopping when the end of file is reached or an-
+other machine or a default token is encountered.
+
+=item default
+
+This is the same as machine name except that default matches
+any name.  There can be only one default token, and it must be
+after all machine tokens.  This is normally used as:
+
+    default login anonymous password user@site
+
+thereby giving the user automatic anonymous login to machines
+not specified in .netrc.
+
+=item login name
+
+Identify a user on the remote machine.  If this token is present,
+the auto-login process will initiate a login using the
+specified name.
+
+=item password string
+
+Supply a password.  If this token is present, the auto-login
+process will supply the specified string if the remote server
+requires a password as part of the login process.
+
+=item account string
+
+Supply an additional account password.  If this token is present,
+the auto-login process will supply the specified string
+if the remote server requires an additional account password.
+
+=item macdef name
+
+Define a macro. C<Net::Netrc> only parses this field to be compatible
+with I<ftp>.
+
+=back
+
+=head1 CONSTRUCTOR
+
+The constructor for a C<Net::Netrc> object is not called new as it does not
+really create a new object. But instead is called C<lookup> as this is
+essentially what it does.
+
+=over 4
+
+=item lookup ( MACHINE [, LOGIN ])
+
+Lookup and return a reference to the entry for C<MACHINE>. If C<LOGIN> is given
+then the entry returned will have the given login. If C<LOGIN> is not given then
+the first entry in the .netrc file for C<MACHINE> will be returned.
+
+If a matching entry cannot be found, and a default entry exists, then a
+reference to the default entry is returned.
+
+If there is no matching entry found and there is no default defined, or
+no .netrc file is found, then C<undef> is returned.
+
+=back
+
+=head1 METHODS
+
+=over 4
+
+=item login ()
+
+Return the login id for the netrc entry
+
+=item password ()
+
+Return the password for the netrc entry
+
+=item account ()
+
+Return the account information for the netrc entry
+
+=item lpa ()
+
+Return a list of login, password and account information for the netrc entry
+
+=back
+
+=head1 AUTHOR
+
+Graham Barr E<lt>F<gbarr@pobox.com>E<gt>
+
+Steve Hay E<lt>F<shay@cpan.org>E<gt> is now maintaining libnet as of version
+1.22_02
+
+=head1 SEE ALSO
+
+L<Net::Netrc>,
+L<Net::Cmd>
+
+=head1 COPYRIGHT
+
+Versions up to 2.13 Copyright (c) 1995-1998 Graham Barr. All rights reserved.
+Changes in Version 2.13_01 onwards Copyright (C) 2013-2014 Steve Hay.  All
+rights reserved.
+
+This module is free software; you can redistribute it and/or modify it under the
+same terms as Perl itself, i.e. under the terms of either the GNU General Public
+License or the Artistic License, as specified in the F<LICENCE> file.
+
+=cut
diff --git a/lib/5.24.1/Net/POP3.pm b/lib/5.24.1/Net/POP3.pm
new file mode 100644
index 00000000..ab8121e6
--- /dev/null
+++ b/lib/5.24.1/Net/POP3.pm
@@ -0,0 +1,863 @@
+# Net::POP3.pm
+#
+# Versions up to 2.29 Copyright (c) 1995-2004 Graham Barr <gbarr@pobox.com>.
+# All rights reserved.
+# Changes in Version 2.29_01 onwards Copyright (C) 2013-2015 Steve Hay.  All
+# rights reserved.
+# This module is free software; you can redistribute it and/or modify it under
+# the same terms as Perl itself, i.e. under the terms of either the GNU General
+# Public License or the Artistic License, as specified in the F<LICENCE> file.
+
+package Net::POP3;
+
+use 5.008001;
+
+use strict;
+use warnings;
+
+use Carp;
+use IO::Socket;
+use Net::Cmd;
+use Net::Config;
+
+our $VERSION = "3.08_01";
+
+# Code for detecting if we can use SSL
+my $ssl_class = eval {
+  require IO::Socket::SSL;
+  # first version with default CA on most platforms
+  no warnings 'numeric';
+  IO::Socket::SSL->VERSION(2.007);
+} && 'IO::Socket::SSL';
+
+my $nossl_warn = !$ssl_class &&
+  'To use SSL please install IO::Socket::SSL with version>=2.007';
+
+# Code for detecting if we can use IPv6
+my $family_key = 'Domain';
+my $inet6_class = eval {
+  require IO::Socket::IP;
+  no warnings 'numeric';
+  IO::Socket::IP->VERSION(0.20) || die;
+  $family_key = 'Family';
+} && 'IO::Socket::IP' || eval {
+  require IO::Socket::INET6;
+  no warnings 'numeric';
+  IO::Socket::INET6->VERSION(2.62);
+} && 'IO::Socket::INET6';
+
+
+sub can_ssl   { $ssl_class };
+sub can_inet6 { $inet6_class };
+
+our @ISA = ('Net::Cmd', $inet6_class || 'IO::Socket::INET');
+
+sub new {
+  my $self = shift;
+  my $type = ref($self) || $self;
+  my ($host, %arg);
+  if (@_ % 2) {
+    $host = shift;
+    %arg  = @_;
+  }
+  else {
+    %arg  = @_;
+    $host = delete $arg{Host};
+  }
+  my $hosts = defined $host ? [$host] : $NetConfig{pop3_hosts};
+  my $obj;
+
+  if ($arg{SSL}) {
+    # SSL from start
+    die $nossl_warn if !$ssl_class;
+    $arg{Port} ||= 995;
+  }
+
+  $arg{Timeout} = 120 if ! defined $arg{Timeout};
+
+  foreach my $h (@{$hosts}) {
+    $obj = $type->SUPER::new(
+      PeerAddr => ($host = $h),
+      PeerPort => $arg{Port} || 'pop3(110)',
+      Proto => 'tcp',
+      $family_key => $arg{Domain} || $arg{Family},
+      LocalAddr => $arg{LocalAddr},
+      LocalPort => exists($arg{ResvPort}) ? $arg{ResvPort} : $arg{LocalPort},
+      Timeout => $arg{Timeout},
+      )
+      and last;
+  }
+
+  return
+    unless defined $obj;
+
+  ${*$obj}{'net_pop3_arg'} = \%arg;
+  ${*$obj}{'net_pop3_host'} = $host;
+  if ($arg{SSL}) {
+    Net::POP3::_SSL->start_SSL($obj,%arg) or return;
+  }
+
+  $obj->autoflush(1);
+  $obj->debug(exists $arg{Debug} ? $arg{Debug} : undef);
+
+  unless ($obj->response() == CMD_OK) {
+    $obj->close();
+    return;
+  }
+
+  ${*$obj}{'net_pop3_banner'} = $obj->message;
+
+  $obj;
+}
+
+
+sub host {
+  my $me = shift;
+  ${*$me}{'net_pop3_host'};
+}
+
+##
+## We don't want people sending me their passwords when they report problems
+## now do we :-)
+##
+
+
+sub debug_text { $_[2] =~ /^(pass|rpop)/i ? "$1 ....\n" : $_[2]; }
+
+
+sub login {
+  @_ >= 1 && @_ <= 3 or croak 'usage: $pop3->login( USER, PASS )';
+  my ($me, $user, $pass) = @_;
+
+  if (@_ <= 2) {
+    ($user, $pass) = $me->_lookup_credentials($user);
+  }
+
+  $me->user($user)
+    and $me->pass($pass);
+}
+
+sub starttls {
+  my $self = shift;
+  $ssl_class or die $nossl_warn;
+  $self->_STLS or return;
+  Net::POP3::_SSL->start_SSL($self,
+    %{ ${*$self}{'net_pop3_arg'} }, # (ssl) args given in new
+    @_   # more (ssl) args
+  ) or return;
+  return 1;
+}
+
+sub apop {
+  @_ >= 1 && @_ <= 3 or croak 'usage: $pop3->apop( USER, PASS )';
+  my ($me, $user, $pass) = @_;
+  my $banner;
+  my $md;
+
+  if (eval { local $SIG{__DIE__}; require Digest::MD5 }) {
+    $md = Digest::MD5->new();
+  }
+  elsif (eval { local $SIG{__DIE__}; require MD5 }) {
+    $md = MD5->new();
+  }
+  else {
+    carp "You need to install Digest::MD5 or MD5 to use the APOP command";
+    return;
+  }
+
+  return
+    unless ($banner = (${*$me}{'net_pop3_banner'} =~ /(<.*>)/)[0]);
+
+  if (@_ <= 2) {
+    ($user, $pass) = $me->_lookup_credentials($user);
+  }
+
+  $md->add($banner, $pass);
+
+  return
+    unless ($me->_APOP($user, $md->hexdigest));
+
+  $me->_get_mailbox_count();
+}
+
+
+sub user {
+  @_ == 2 or croak 'usage: $pop3->user( USER )';
+  $_[0]->_USER($_[1]) ? 1 : undef;
+}
+
+
+sub pass {
+  @_ == 2 or croak 'usage: $pop3->pass( PASS )';
+
+  my ($me, $pass) = @_;
+
+  return
+    unless ($me->_PASS($pass));
+
+  $me->_get_mailbox_count();
+}
+
+
+sub reset {
+  @_ == 1 or croak 'usage: $obj->reset()';
+
+  my $me = shift;
+
+  return 0
+    unless ($me->_RSET);
+
+  if (defined ${*$me}{'net_pop3_mail'}) {
+    local $_;
+    foreach (@{${*$me}{'net_pop3_mail'}}) {
+      delete $_->{'net_pop3_deleted'};
+    }
+  }
+}
+
+
+sub last {
+  @_ == 1 or croak 'usage: $obj->last()';
+
+  return
+    unless $_[0]->_LAST && $_[0]->message =~ /(\d+)/;
+
+  return $1;
+}
+
+
+sub top {
+  @_ == 2 || @_ == 3 or croak 'usage: $pop3->top( MSGNUM [, NUMLINES ])';
+  my $me = shift;
+
+  return
+    unless $me->_TOP($_[0], $_[1] || 0);
+
+  $me->read_until_dot;
+}
+
+
+sub popstat {
+  @_ == 1 or croak 'usage: $pop3->popstat()';
+  my $me = shift;
+
+  return ()
+    unless $me->_STAT && $me->message =~ /(\d+)\D+(\d+)/;
+
+  ($1 || 0, $2 || 0);
+}
+
+
+sub list {
+  @_ == 1 || @_ == 2 or croak 'usage: $pop3->list( [ MSGNUM ] )';
+  my $me = shift;
+
+  return
+    unless $me->_LIST(@_);
+
+  if (@_) {
+    $me->message =~ /\d+\D+(\d+)/;
+    return $1 || undef;
+  }
+
+  my $info = $me->read_until_dot
+    or return;
+
+  my %hash = map { (/(\d+)\D+(\d+)/) } @$info;
+
+  return \%hash;
+}
+
+
+sub get {
+  @_ == 2 or @_ == 3 or croak 'usage: $pop3->get( MSGNUM [, FH ])';
+  my $me = shift;
+
+  return
+    unless $me->_RETR(shift);
+
+  $me->read_until_dot(@_);
+}
+
+
+sub getfh {
+  @_ == 2 or croak 'usage: $pop3->getfh( MSGNUM )';
+  my $me = shift;
+
+  return unless $me->_RETR(shift);
+  return $me->tied_fh;
+}
+
+
+sub delete {
+  @_ == 2 or croak 'usage: $pop3->delete( MSGNUM )';
+  my $me = shift;
+  return 0 unless $me->_DELE(@_);
+  ${*$me}{'net_pop3_deleted'} = 1;
+}
+
+
+sub uidl {
+  @_ == 1 || @_ == 2 or croak 'usage: $pop3->uidl( [ MSGNUM ] )';
+  my $me = shift;
+  my $uidl;
+
+  $me->_UIDL(@_)
+    or return;
+  if (@_) {
+    $uidl = ($me->message =~ /\d+\s+([\041-\176]+)/)[0];
+  }
+  else {
+    my $ref = $me->read_until_dot
+      or return;
+    $uidl = {};
+    foreach my $ln (@$ref) {
+      my ($msg, $uid) = $ln =~ /^\s*(\d+)\s+([\041-\176]+)/;
+      $uidl->{$msg} = $uid;
+    }
+  }
+  return $uidl;
+}
+
+
+sub ping {
+  @_ == 2 or croak 'usage: $pop3->ping( USER )';
+  my $me = shift;
+
+  return () unless $me->_PING(@_) && $me->message =~ /(\d+)\D+(\d+)/;
+
+  ($1 || 0, $2 || 0);
+}
+
+
+sub _lookup_credentials {
+  my ($me, $user) = @_;
+
+  require Net::Netrc;
+
+       $user ||= eval { local $SIG{__DIE__}; (getpwuid($>))[0] }
+    || $ENV{NAME}
+    || $ENV{USER}
+    || $ENV{LOGNAME};
+
+  my $m = Net::Netrc->lookup(${*$me}{'net_pop3_host'}, $user);
+  $m ||= Net::Netrc->lookup(${*$me}{'net_pop3_host'});
+
+  my $pass = $m
+    ? $m->password || ""
+    : "";
+
+  ($user, $pass);
+}
+
+
+sub _get_mailbox_count {
+  my ($me) = @_;
+  my $ret = ${*$me}{'net_pop3_count'} =
+    ($me->message =~ /(\d+)\s+message/io) ? $1 : ($me->popstat)[0];
+
+  $ret ? $ret : "0E0";
+}
+
+
+sub _STAT { shift->command('STAT'       )->response() == CMD_OK }
+sub _LIST { shift->command('LIST',    @_)->response() == CMD_OK }
+sub _RETR { shift->command('RETR', $_[0])->response() == CMD_OK }
+sub _DELE { shift->command('DELE', $_[0])->response() == CMD_OK }
+sub _NOOP { shift->command('NOOP'       )->response() == CMD_OK }
+sub _RSET { shift->command('RSET'       )->response() == CMD_OK }
+sub _QUIT { shift->command('QUIT'       )->response() == CMD_OK }
+sub _TOP  { shift->command( 'TOP',    @_)->response() == CMD_OK }
+sub _UIDL { shift->command('UIDL',    @_)->response() == CMD_OK }
+sub _USER { shift->command('USER', $_[0])->response() == CMD_OK }
+sub _PASS { shift->command('PASS', $_[0])->response() == CMD_OK }
+sub _APOP { shift->command('APOP',    @_)->response() == CMD_OK }
+sub _PING { shift->command('PING', $_[0])->response() == CMD_OK }
+sub _RPOP { shift->command('RPOP', $_[0])->response() == CMD_OK }
+sub _LAST { shift->command('LAST'       )->response() == CMD_OK }
+sub _CAPA { shift->command('CAPA'       )->response() == CMD_OK }
+sub _STLS { shift->command("STLS",     )->response() == CMD_OK }
+
+
+sub quit {
+  my $me = shift;
+
+  $me->_QUIT;
+  $me->close;
+}
+
+
+sub DESTROY {
+  my $me = shift;
+
+  if (defined fileno($me) and ${*$me}{'net_pop3_deleted'}) {
+    $me->reset;
+    $me->quit;
+  }
+}
+
+##
+## POP3 has weird responses, so we emulate them to look the same :-)
+##
+
+
+sub response {
+  my $cmd  = shift;
+  my $str  = $cmd->getline() or return;
+  my $code = "500";
+
+  $cmd->debug_print(0, $str)
+    if ($cmd->debug);
+
+  if ($str =~ s/^\+OK\s*//io) {
+    $code = "200";
+  }
+  elsif ($str =~ s/^\+\s*//io) {
+    $code = "300";
+  }
+  else {
+    $str =~ s/^-ERR\s*//io;
+  }
+
+  ${*$cmd}{'net_cmd_resp'} = [$str];
+  ${*$cmd}{'net_cmd_code'} = $code;
+
+  substr($code, 0, 1);
+}
+
+
+sub capa {
+  my $this = shift;
+  my ($capa, %capabilities);
+
+  # Fake a capability here
+  $capabilities{APOP} = '' if ($this->banner() =~ /<.*>/);
+
+  if ($this->_CAPA()) {
+    $capabilities{CAPA} = 1;
+    $capa = $this->read_until_dot();
+    %capabilities = (%capabilities, map {/^\s*(\S+)\s*(.*)/} @$capa);
+  }
+  else {
+
+    # Check AUTH for SASL capabilities
+    if ($this->command('AUTH')->response() == CMD_OK) {
+      my $mechanism = $this->read_until_dot();
+      $capabilities{SASL} = join " ", map {m/([A-Z0-9_-]+)/} @{$mechanism};
+    }
+  }
+
+  return ${*$this}{'net_pop3e_capabilities'} = \%capabilities;
+}
+
+
+sub capabilities {
+  my $this = shift;
+
+  ${*$this}{'net_pop3e_capabilities'} || $this->capa;
+}
+
+
+sub auth {
+  my ($self, $username, $password) = @_;
+
+  eval {
+    require MIME::Base64;
+    require Authen::SASL;
+  } or $self->set_status(500, ["Need MIME::Base64 and Authen::SASL todo auth"]), return 0;
+
+  my $capa       = $self->capa;
+  my $mechanisms = $capa->{SASL} || 'CRAM-MD5';
+
+  my $sasl;
+
+  if (ref($username) and UNIVERSAL::isa($username, 'Authen::SASL')) {
+    $sasl = $username;
+    my $user_mech = $sasl->mechanism || '';
+    my @user_mech = split(/\s+/, $user_mech);
+    my %user_mech;
+    @user_mech{@user_mech} = ();
+
+    my @server_mech = split(/\s+/, $mechanisms);
+    my @mech = @user_mech
+      ? grep { exists $user_mech{$_} } @server_mech
+      : @server_mech;
+    unless (@mech) {
+      $self->set_status(
+        500,
+        [ 'Client SASL mechanisms (',
+          join(', ', @user_mech),
+          ') do not match the SASL mechnism the server announces (',
+          join(', ', @server_mech), ')',
+        ]
+      );
+      return 0;
+    }
+
+    $sasl->mechanism(join(" ", @mech));
+  }
+  else {
+    die "auth(username, password)" if not length $username;
+    $sasl = Authen::SASL->new(
+      mechanism => $mechanisms,
+      callback  => {
+        user     => $username,
+        pass     => $password,
+        authname => $username,
+      }
+    );
+  }
+
+  # We should probably allow the user to pass the host, but I don't
+  # currently know and SASL mechanisms that are used by smtp that need it
+  my ($hostname) = split /:/, ${*$self}{'net_pop3_host'};
+  my $client = eval { $sasl->client_new('pop', $hostname, 0) };
+
+  unless ($client) {
+    my $mech = $sasl->mechanism;
+    $self->set_status(
+      500,
+      [ " Authen::SASL failure: $@",
+        '(please check if your local Authen::SASL installation',
+        "supports mechanism '$mech'"
+      ]
+    );
+    return 0;
+  }
+
+  my ($token) = $client->client_start
+    or do {
+    my $mech = $client->mechanism;
+    $self->set_status(
+      500,
+      [ ' Authen::SASL failure:  $client->client_start ',
+        "mechanism '$mech' hostname #$hostname#",
+        $client->error
+      ]
+    );
+    return 0;
+    };
+
+  # We don't support sasl mechanisms that encrypt the socket traffic.
+  # todo that we would really need to change the ISA hierarchy
+  # so we don't inherit from IO::Socket, but instead hold it in an attribute
+
+  my @cmd = ("AUTH", $client->mechanism);
+  my $code;
+
+  push @cmd, MIME::Base64::encode_base64($token, '')
+    if defined $token and length $token;
+
+  while (($code = $self->command(@cmd)->response()) == CMD_MORE) {
+
+    my ($token) = $client->client_step(MIME::Base64::decode_base64(($self->message)[0])) or do {
+      $self->set_status(
+        500,
+        [ ' Authen::SASL failure:  $client->client_step ',
+          "mechanism '", $client->mechanism, " hostname #$hostname#, ",
+          $client->error
+        ]
+      );
+      return 0;
+    };
+
+    @cmd = (MIME::Base64::encode_base64(defined $token ? $token : '', ''));
+  }
+
+  $code == CMD_OK;
+}
+
+
+sub banner {
+  my $this = shift;
+
+  return ${*$this}{'net_pop3_banner'};
+}
+
+{
+  package Net::POP3::_SSL;
+  our @ISA = ( $ssl_class ? ($ssl_class):(), 'Net::POP3' );
+  sub starttls { die "POP3 connection is already in SSL mode" }
+  sub start_SSL {
+    my ($class,$pop3,%arg) = @_;
+    delete @arg{ grep { !m{^SSL_} } keys %arg };
+    ( $arg{SSL_verifycn_name} ||= $pop3->host )
+        =~s{(?<!:):[\w()]+$}{}; # strip port
+    $arg{SSL_hostname} = $arg{SSL_verifycn_name}
+        if ! defined $arg{SSL_hostname} && $class->can_client_sni;
+    $arg{SSL_verifycn_scheme} ||= 'pop3';
+    my $ok = $class->SUPER::start_SSL($pop3,%arg);
+    $@ = $ssl_class->errstr if !$ok;
+    return $ok;
+  }
+}
+
+
+
+1;
+
+__END__
+
+=head1 NAME
+
+Net::POP3 - Post Office Protocol 3 Client class (RFC1939)
+
+=head1 SYNOPSIS
+
+    use Net::POP3;
+
+    # Constructors
+    $pop = Net::POP3->new('pop3host');
+    $pop = Net::POP3->new('pop3host', Timeout => 60);
+    $pop = Net::POP3->new('pop3host', SSL => 1, Timeout => 60);
+
+    if ($pop->login($username, $password) > 0) {
+      my $msgnums = $pop->list; # hashref of msgnum => size
+      foreach my $msgnum (keys %$msgnums) {
+        my $msg = $pop->get($msgnum);
+        print @$msg;
+        $pop->delete($msgnum);
+      }
+    }
+
+    $pop->quit;
+
+=head1 DESCRIPTION
+
+This module implements a client interface to the POP3 protocol, enabling
+a perl5 application to talk to POP3 servers. This documentation assumes
+that you are familiar with the POP3 protocol described in RFC1939.
+With L<IO::Socket::SSL> installed it also provides support for implicit and
+explicit TLS encryption, i.e. POP3S or POP3+STARTTLS.
+
+A new Net::POP3 object must be created with the I<new> method. Once
+this has been done, all POP3 commands are accessed via method calls
+on the object.
+
+The Net::POP3 class is a subclass of Net::Cmd and (depending on avaibility) of
+IO::Socket::IP, IO::Socket::INET6 or IO::Socket::INET.
+
+
+=head1 CONSTRUCTOR
+
+=over 4
+
+=item new ( [ HOST ] [, OPTIONS ] )
+
+This is the constructor for a new Net::POP3 object. C<HOST> is the
+name of the remote host to which an POP3 connection is required.
+
+C<HOST> is optional. If C<HOST> is not given then it may instead be
+passed as the C<Host> option described below. If neither is given then
+the C<POP3_Hosts> specified in C<Net::Config> will be used.
+
+C<OPTIONS> are passed in a hash like fashion, using key and value pairs.
+Possible options are:
+
+B<Host> - POP3 host to connect to. It may be a single scalar, as defined for
+the C<PeerAddr> option in L<IO::Socket::INET>, or a reference to
+an array with hosts to try in turn. The L</host> method will return the value
+which was used to connect to the host.
+
+B<Port> - port to connect to.
+Default - 110 for plain POP3 and 995 for POP3s (direct SSL).
+
+B<SSL> - If the connection should be done from start with SSL, contrary to later
+upgrade with C<starttls>.
+You can use SSL arguments as documented in L<IO::Socket::SSL>, but it will
+usually use the right arguments already.
+
+B<LocalAddr> and B<LocalPort> - These parameters are passed directly
+to IO::Socket to allow binding the socket to a specific local address and port.
+For compatibility with older versions B<ResvPort> can be used instead of
+B<LocalPort>.
+
+B<Domain> - This parameter is passed directly to IO::Socket and makes it
+possible to enforce IPv4 connections even if L<IO::Socket::IP> is used as super
+class. Alternatively B<Family> can be used.
+
+B<Timeout> - Maximum time, in seconds, to wait for a response from the
+POP3 server (default: 120)
+
+B<Debug> - Enable debugging information
+
+=back
+
+=head1 METHODS
+
+Unless otherwise stated all methods return either a I<true> or I<false>
+value, with I<true> meaning that the operation was a success. When a method
+states that it returns a value, failure will be returned as I<undef> or an
+empty list.
+
+C<Net::POP3> inherits from C<Net::Cmd> so methods defined in C<Net::Cmd> may
+be used to send commands to the remote POP3 server in addition to the methods
+documented here.
+
+=over 4
+
+=item host ()
+
+Returns the value used by the constructor, and passed to IO::Socket::INET,
+to connect to the host.
+
+=item auth ( USERNAME, PASSWORD )
+
+Attempt SASL authentication.
+
+=item user ( USER )
+
+Send the USER command.
+
+=item pass ( PASS )
+
+Send the PASS command. Returns the number of messages in the mailbox.
+
+=item login ( [ USER [, PASS ]] )
+
+Send both the USER and PASS commands. If C<PASS> is not given the
+C<Net::POP3> uses C<Net::Netrc> to lookup the password using the host
+and username. If the username is not specified then the current user name
+will be used.
+
+Returns the number of messages in the mailbox. However if there are no
+messages on the server the string C<"0E0"> will be returned. This is
+will give a true value in a boolean context, but zero in a numeric context.
+
+If there was an error authenticating the user then I<undef> will be returned.
+
+=item starttls ( SSLARGS )
+
+Upgrade existing plain connection to SSL.
+You can use SSL arguments as documented in L<IO::Socket::SSL>, but it will
+usually use the right arguments already.
+
+=item apop ( [ USER [, PASS ]] )
+
+Authenticate with the server identifying as C<USER> with password C<PASS>.
+Similar to L</login>, but the password is not sent in clear text.
+
+To use this method you must have the Digest::MD5 or the MD5 module installed,
+otherwise this method will return I<undef>.
+
+=item banner ()
+
+Return the sever's connection banner
+
+=item capa ()
+
+Return a reference to a hash of the capabilities of the server.  APOP
+is added as a pseudo capability.  Note that I've been unable to
+find a list of the standard capability values, and some appear to
+be multi-word and some are not.  We make an attempt at intelligently
+parsing them, but it may not be correct.
+
+=item  capabilities ()
+
+Just like capa, but only uses a cache from the last time we asked
+the server, so as to avoid asking more than once.
+
+=item top ( MSGNUM [, NUMLINES ] )
+
+Get the header and the first C<NUMLINES> of the body for the message
+C<MSGNUM>. Returns a reference to an array which contains the lines of text
+read from the server.
+
+=item list ( [ MSGNUM ] )
+
+If called with an argument the C<list> returns the size of the message
+in octets.
+
+If called without arguments a reference to a hash is returned. The
+keys will be the C<MSGNUM>'s of all undeleted messages and the values will
+be their size in octets.
+
+=item get ( MSGNUM [, FH ] )
+
+Get the message C<MSGNUM> from the remote mailbox. If C<FH> is not given
+then get returns a reference to an array which contains the lines of
+text read from the server. If C<FH> is given then the lines returned
+from the server are printed to the filehandle C<FH>.
+
+=item getfh ( MSGNUM )
+
+As per get(), but returns a tied filehandle.  Reading from this
+filehandle returns the requested message.  The filehandle will return
+EOF at the end of the message and should not be reused.
+
+=item last ()
+
+Returns the highest C<MSGNUM> of all the messages accessed.
+
+=item popstat ()
+
+Returns a list of two elements. These are the number of undeleted
+elements and the size of the mbox in octets.
+
+=item ping ( USER )
+
+Returns a list of two elements. These are the number of new messages
+and the total number of messages for C<USER>.
+
+=item uidl ( [ MSGNUM ] )
+
+Returns a unique identifier for C<MSGNUM> if given. If C<MSGNUM> is not
+given C<uidl> returns a reference to a hash where the keys are the
+message numbers and the values are the unique identifiers.
+
+=item delete ( MSGNUM )
+
+Mark message C<MSGNUM> to be deleted from the remote mailbox. All messages
+that are marked to be deleted will be removed from the remote mailbox
+when the server connection closed.
+
+=item reset ()
+
+Reset the status of the remote POP3 server. This includes resetting the
+status of all messages to not be deleted.
+
+=item quit ()
+
+Quit and close the connection to the remote POP3 server. Any messages marked
+as deleted will be deleted from the remote mailbox.
+
+=item can_inet6 ()
+
+Returns whether we can use IPv6.
+
+=item can_ssl ()
+
+Returns whether we can use SSL.
+
+=back
+
+=head1 NOTES
+
+If a C<Net::POP3> object goes out of scope before C<quit> method is called
+then the C<reset> method will called before the connection is closed. This
+means that any messages marked to be deleted will not be.
+
+=head1 SEE ALSO
+
+L<Net::Netrc>,
+L<Net::Cmd>,
+L<IO::Socket::SSL>
+
+=head1 AUTHOR
+
+Graham Barr E<lt>F<gbarr@pobox.com>E<gt>
+
+Steve Hay E<lt>F<shay@cpan.org>E<gt> is now maintaining libnet as of version
+1.22_02
+
+=head1 COPYRIGHT
+
+Versions up to 2.29 Copyright (c) 1995-2004 Graham Barr. All rights reserved.
+Changes in Version 2.29_01 onwards Copyright (C) 2013-2015 Steve Hay.  All
+rights reserved.
+
+This module is free software; you can redistribute it and/or modify it under the
+same terms as Perl itself, i.e. under the terms of either the GNU General Public
+License or the Artistic License, as specified in the F<LICENCE> file.
+
+=cut
diff --git a/lib/5.24.1/Net/Ping.pm b/lib/5.24.1/Net/Ping.pm
new file mode 100644
index 00000000..86b0dfd3
--- /dev/null
+++ b/lib/5.24.1/Net/Ping.pm
@@ -0,0 +1,1816 @@
+package Net::Ping;
+
+require 5.002;
+require Exporter;
+
+use strict;
+use vars qw(@ISA @EXPORT $VERSION
+            $def_timeout $def_proto $def_factor
+            $max_datasize $pingstring $hires $source_verify $syn_forking);
+use Fcntl qw( F_GETFL F_SETFL O_NONBLOCK );
+use Socket qw( SOCK_DGRAM SOCK_STREAM SOCK_RAW PF_INET SOL_SOCKET SO_ERROR IPPROTO_IP IP_TOS IP_TTL
+               inet_aton getnameinfo NI_NUMERICHOST sockaddr_in );
+use POSIX qw( ENOTCONN ECONNREFUSED ECONNRESET EINPROGRESS EWOULDBLOCK EAGAIN WNOHANG );
+use FileHandle;
+use Carp;
+use Time::HiRes;
+
+@ISA = qw(Exporter);
+@EXPORT = qw(pingecho);
+$VERSION = "2.43_01";
+
+# Constants
+
+$def_timeout = 5;           # Default timeout to wait for a reply
+$def_proto = "tcp";         # Default protocol to use for pinging
+$def_factor = 1.2;          # Default exponential backoff rate.
+$max_datasize = 1024;       # Maximum data bytes in a packet
+# The data we exchange with the server for the stream protocol
+$pingstring = "pingschwingping!\n";
+$source_verify = 1;         # Default is to verify source endpoint
+$syn_forking = 0;
+
+if ($^O =~ /Win32/i) {
+  # Hack to avoid this Win32 spewage:
+  # Your vendor has not defined POSIX macro ECONNREFUSED
+  my @pairs = (ECONNREFUSED => 10061, # "Unknown Error" Special Win32 Response?
+	       ENOTCONN     => 10057,
+	       ECONNRESET   => 10054,
+	       EINPROGRESS  => 10036,
+	       EWOULDBLOCK  => 10035,
+	  );
+  while (my $name = shift @pairs) {
+    my $value = shift @pairs;
+    # When defined, these all are non-zero
+    unless (eval $name) {
+      no strict 'refs';
+      *{$name} = defined prototype \&{$name} ? sub () {$value} : sub {$value};
+    }
+  }
+#  $syn_forking = 1;    # XXX possibly useful in < Win2K ?
+};
+
+# h2ph "asm/socket.h"
+# require "asm/socket.ph";
+sub SO_BINDTODEVICE {25;}
+
+# Description:  The pingecho() subroutine is provided for backward
+# compatibility with the original Net::Ping.  It accepts a host
+# name/IP and an optional timeout in seconds.  Create a tcp ping
+# object and try pinging the host.  The result of the ping is returned.
+
+sub pingecho
+{
+  my ($host,              # Name or IP number of host to ping
+      $timeout            # Optional timeout in seconds
+      ) = @_;
+  my ($p);                # A ping object
+
+  $p = Net::Ping->new("tcp", $timeout);
+  $p->ping($host);        # Going out of scope closes the connection
+}
+
+# Description:  The new() method creates a new ping object.  Optional
+# parameters may be specified for the protocol to use, the timeout in
+# seconds and the size in bytes of additional data which should be
+# included in the packet.
+#   After the optional parameters are checked, the data is constructed
+# and a socket is opened if appropriate.  The object is returned.
+
+sub new
+{
+  my ($this,
+      $proto,             # Optional protocol to use for pinging
+      $timeout,           # Optional timeout in seconds
+      $data_size,         # Optional additional bytes of data
+      $device,            # Optional device to use
+      $tos,               # Optional ToS to set
+      $ttl,               # Optional TTL to set
+      ) = @_;
+  my  $class = ref($this) || $this;
+  my  $self = {};
+  my ($cnt,               # Count through data bytes
+      $min_datasize       # Minimum data bytes required
+      );
+
+  bless($self, $class);
+
+  $proto = $def_proto unless $proto;          # Determine the protocol
+  croak('Protocol for ping must be "icmp", "udp", "tcp", "syn", "stream", or "external"')
+    unless $proto =~ m/^(icmp|udp|tcp|syn|stream|external)$/;
+  $self->{"proto"} = $proto;
+
+  $timeout = $def_timeout unless $timeout;    # Determine the timeout
+  croak("Default timeout for ping must be greater than 0 seconds")
+    if $timeout <= 0;
+  $self->{"timeout"} = $timeout;
+
+  $self->{"device"} = $device;
+
+  $self->{"tos"} = $tos;
+
+  if ($self->{"proto"} eq 'icmp') {
+    croak('TTL must be from 0 to 255')
+      if ($ttl && ($ttl < 0 || $ttl > 255));
+    $self->{"ttl"} = $ttl;
+  }
+
+  $min_datasize = ($proto eq "udp") ? 1 : 0;  # Determine data size
+  $data_size = $min_datasize unless defined($data_size) && $proto ne "tcp";
+  croak("Data for ping must be from $min_datasize to $max_datasize bytes")
+    if ($data_size < $min_datasize) || ($data_size > $max_datasize);
+  $data_size-- if $self->{"proto"} eq "udp";  # We provide the first byte
+  $self->{"data_size"} = $data_size;
+
+  $self->{"data"} = "";                       # Construct data bytes
+  for ($cnt = 0; $cnt < $self->{"data_size"}; $cnt++)
+  {
+    $self->{"data"} .= chr($cnt % 256);
+  }
+
+  $self->{"local_addr"} = undef;              # Don't bind by default
+  $self->{"retrans"} = $def_factor;           # Default exponential backoff rate
+  $self->{"econnrefused"} = undef;            # Default Connection refused behavior
+
+  $self->{"seq"} = 0;                         # For counting packets
+  if ($self->{"proto"} eq "udp")              # Open a socket
+  {
+    $self->{"proto_num"} = eval { (getprotobyname('udp'))[2] } ||
+      croak("Can't udp protocol by name");
+    $self->{"port_num"} = (getservbyname('echo', 'udp'))[2] ||
+      croak("Can't get udp echo port by name");
+    $self->{"fh"} = FileHandle->new();
+    socket($self->{"fh"}, PF_INET, SOCK_DGRAM,
+           $self->{"proto_num"}) ||
+             croak("udp socket error - $!");
+    if ($self->{'device'}) {
+      setsockopt($self->{"fh"}, SOL_SOCKET, SO_BINDTODEVICE(), pack("Z*", $self->{'device'}))
+        or croak "error binding to device $self->{'device'} $!";
+    }
+    if ($self->{'tos'}) {
+      setsockopt($self->{"fh"}, IPPROTO_IP, IP_TOS, pack("I*", $self->{'tos'}))
+        or croak "error configuring tos to $self->{'tos'} $!";
+    }
+  }
+  elsif ($self->{"proto"} eq "icmp")
+  {
+    croak("icmp ping requires root privilege") if ($> and $^O ne 'VMS' and $^O ne 'cygwin');
+    $self->{"proto_num"} = eval { (getprotobyname('icmp'))[2] } ||
+      croak("Can't get icmp protocol by name");
+    $self->{"pid"} = $$ & 0xffff;           # Save lower 16 bits of pid
+    $self->{"fh"} = FileHandle->new();
+    socket($self->{"fh"}, PF_INET, SOCK_RAW, $self->{"proto_num"}) ||
+      croak("icmp socket error - $!");
+    if ($self->{'device'}) {
+      setsockopt($self->{"fh"}, SOL_SOCKET, SO_BINDTODEVICE(), pack("Z*", $self->{'device'}))
+        or croak "error binding to device $self->{'device'} $!";
+    }
+    if ($self->{'tos'}) {
+      setsockopt($self->{"fh"}, IPPROTO_IP, IP_TOS, pack("I*", $self->{'tos'}))
+        or croak "error configuring tos to $self->{'tos'} $!";
+    }
+    if ($self->{'ttl'}) {
+      setsockopt($self->{"fh"}, IPPROTO_IP, IP_TTL, pack("I*", $self->{'ttl'}))
+        or croak "error configuring ttl to $self->{'ttl'} $!";
+    }
+  }
+  elsif ($self->{"proto"} eq "tcp" || $self->{"proto"} eq "stream")
+  {
+    $self->{"proto_num"} = eval { (getprotobyname('tcp'))[2] } ||
+      croak("Can't get tcp protocol by name");
+    $self->{"port_num"} = (getservbyname('echo', 'tcp'))[2] ||
+      croak("Can't get tcp echo port by name");
+    $self->{"fh"} = FileHandle->new();
+  }
+  elsif ($self->{"proto"} eq "syn")
+  {
+    $self->{"proto_num"} = eval { (getprotobyname('tcp'))[2] } ||
+      croak("Can't get tcp protocol by name");
+    $self->{"port_num"} = (getservbyname('echo', 'tcp'))[2] ||
+      croak("Can't get tcp echo port by name");
+    if ($syn_forking) {
+      $self->{"fork_rd"} = FileHandle->new();
+      $self->{"fork_wr"} = FileHandle->new();
+      pipe($self->{"fork_rd"}, $self->{"fork_wr"});
+      $self->{"fh"} = FileHandle->new();
+      $self->{"good"} = {};
+      $self->{"bad"} = {};
+    } else {
+      $self->{"wbits"} = "";
+      $self->{"bad"} = {};
+    }
+    $self->{"syn"} = {};
+    $self->{"stop_time"} = 0;
+  }
+  elsif ($self->{"proto"} eq "external")
+  {
+    # No preliminary work needs to be done.
+  }
+
+  return($self);
+}
+
+# Description: Set the local IP address from which pings will be sent.
+# For ICMP and UDP pings, this calls bind() on the already-opened socket;
+# for TCP pings, just saves the address to be used when the socket is
+# opened.  Returns non-zero if successful; croaks on error.
+sub bind
+{
+  my ($self,
+      $local_addr         # Name or IP number of local interface
+      ) = @_;
+  my ($ip                 # Packed IP number of $local_addr
+      );
+
+  croak("Usage: \$p->bind(\$local_addr)") unless @_ == 2;
+  croak("already bound") if defined($self->{"local_addr"}) &&
+    ($self->{"proto"} eq "udp" || $self->{"proto"} eq "icmp");
+
+  $ip = inet_aton($local_addr);
+  croak("nonexistent local address $local_addr") unless defined($ip);
+  $self->{"local_addr"} = $ip; # Only used if proto is tcp
+
+  if ($self->{"proto"} eq "udp" || $self->{"proto"} eq "icmp")
+  {
+  CORE::bind($self->{"fh"}, sockaddr_in(0, $ip)) ||
+    croak("$self->{'proto'} bind error - $!");
+  }
+  elsif (($self->{"proto"} ne "tcp") && ($self->{"proto"} ne "syn"))
+  {
+    croak("Unknown protocol \"$self->{proto}\" in bind()");
+  }
+
+  return 1;
+}
+
+# Description: A select() wrapper that compensates for platform
+# peculiarities.
+sub mselect
+{
+    if ($_[3] > 0 and $^O eq 'MSWin32') {
+	# On windows, select() doesn't process the message loop,
+	# but sleep() will, allowing alarm() to interrupt the latter.
+	# So we chop up the timeout into smaller pieces and interleave
+	# select() and sleep() calls.
+	my $t = $_[3];
+	my $gran = 0.5;  # polling granularity in seconds
+	my @args = @_;
+	while (1) {
+	    $gran = $t if $gran > $t;
+	    my $nfound = select($_[0], $_[1], $_[2], $gran);
+	    undef $nfound if $nfound == -1;
+	    $t -= $gran;
+	    return $nfound if $nfound or !defined($nfound) or $t <= 0;
+
+	    sleep(0);
+	    ($_[0], $_[1], $_[2]) = @args;
+	}
+    }
+    else {
+	my $nfound = select($_[0], $_[1], $_[2], $_[3]);
+	undef $nfound if $nfound == -1;
+	return $nfound;
+    }
+}
+
+# Description: Allow UDP source endpoint comparison to be
+#              skipped for those remote interfaces that do
+#              not response from the same endpoint.
+
+sub source_verify
+{
+  my $self = shift;
+  $source_verify = 1 unless defined
+    ($source_verify = ((defined $self) && (ref $self)) ? shift() : $self);
+}
+
+# Description: Set whether or not the connect
+# behavior should enforce remote service
+# availability as well as reachability.
+
+sub service_check
+{
+  my $self = shift;
+  $self->{"econnrefused"} = 1 unless defined
+    ($self->{"econnrefused"} = shift());
+}
+
+sub tcp_service_check
+{
+  service_check(@_);
+}
+
+# Description: Set exponential backoff for retransmission.
+# Should be > 1 to retain exponential properties.
+# If set to 0, retransmissions are disabled.
+
+sub retrans
+{
+  my $self = shift;
+  $self->{"retrans"} = shift;
+}
+
+# Description: allows the module to use milliseconds as returned by
+# the Time::HiRes module
+
+$hires = 1;
+sub hires
+{
+  my $self = shift;
+  $hires = 1 unless defined
+    ($hires = ((defined $self) && (ref $self)) ? shift() : $self);
+}
+
+sub time
+{
+  return $hires ? Time::HiRes::time() : CORE::time();
+}
+
+# Description: Sets or clears the O_NONBLOCK flag on a file handle.
+sub socket_blocking_mode
+{
+  my ($self,
+      $fh,              # the file handle whose flags are to be modified
+      $block) = @_;     # if true then set the blocking
+                        # mode (clear O_NONBLOCK), otherwise
+                        # set the non-blocking mode (set O_NONBLOCK)
+
+  my $flags;
+  if ($^O eq 'MSWin32' || $^O eq 'VMS') {
+      # FIONBIO enables non-blocking sockets on windows and vms.
+      # FIONBIO is (0x80000000|(4<<16)|(ord('f')<<8)|126), as per winsock.h, ioctl.h
+      my $f = 0x8004667e;
+      my $v = pack("L", $block ? 0 : 1);
+      ioctl($fh, $f, $v) or croak("ioctl failed: $!");
+      return;
+  }
+  if ($flags = fcntl($fh, F_GETFL, 0)) {
+    $flags = $block ? ($flags & ~O_NONBLOCK) : ($flags | O_NONBLOCK);
+    if (!fcntl($fh, F_SETFL, $flags)) {
+      croak("fcntl F_SETFL: $!");
+    }
+  } else {
+    croak("fcntl F_GETFL: $!");
+  }
+}
+
+# Description: Ping a host name or IP number with an optional timeout.
+# First lookup the host, and return undef if it is not found.  Otherwise
+# perform the specific ping method based on the protocol.  Return the
+# result of the ping.
+
+sub ping
+{
+  my ($self,
+      $host,              # Name or IP number of host to ping
+      $timeout,           # Seconds after which ping times out
+      ) = @_;
+  my ($ip,                # Packed IP number of $host
+      $ret,               # The return value
+      $ping_time,         # When ping began
+      );
+
+  croak("Usage: \$p->ping(\$host [, \$timeout])") unless @_ == 2 || @_ == 3;
+  $timeout = $self->{"timeout"} unless $timeout;
+  croak("Timeout must be greater than 0 seconds") if $timeout <= 0;
+
+  $ip = inet_aton($host);
+  return () unless defined($ip);      # Does host exist?
+
+  # Dispatch to the appropriate routine.
+  $ping_time = &time();
+  if ($self->{"proto"} eq "external") {
+    $ret = $self->ping_external($ip, $timeout);
+  }
+  elsif ($self->{"proto"} eq "udp") {
+    $ret = $self->ping_udp($ip, $timeout);
+  }
+  elsif ($self->{"proto"} eq "icmp") {
+    $ret = $self->ping_icmp($ip, $timeout);
+  }
+  elsif ($self->{"proto"} eq "tcp") {
+    $ret = $self->ping_tcp($ip, $timeout);
+  }
+  elsif ($self->{"proto"} eq "stream") {
+    $ret = $self->ping_stream($ip, $timeout);
+  }
+  elsif ($self->{"proto"} eq "syn") {
+    $ret = $self->ping_syn($host, $ip, $ping_time, $ping_time+$timeout);
+  } else {
+    croak("Unknown protocol \"$self->{proto}\" in ping()");
+  }
+
+  return wantarray ? ($ret, &time() - $ping_time, $self->ntop($ip)) : $ret;
+}
+
+# Uses Net::Ping::External to do an external ping.
+sub ping_external {
+  my ($self,
+      $ip,                # Packed IP number of the host
+      $timeout            # Seconds after which ping times out
+     ) = @_;
+
+  eval {
+    local @INC = @INC;
+    pop @INC if $INC[-1] eq '.';
+    require Net::Ping::External;
+  }
+    or croak('Protocol "external" not supported on your system: Net::Ping::External not found');
+  return Net::Ping::External::ping(ip => $ip, timeout => $timeout);
+}
+
+use constant ICMP_ECHOREPLY   => 0; # ICMP packet types
+use constant ICMP_UNREACHABLE => 3; # ICMP packet types
+use constant ICMP_ECHO        => 8;
+use constant ICMP_TIME_EXCEEDED => 11; # ICMP packet types
+use constant ICMP_PARAMETER_PROBLEM => 12; # ICMP packet types
+use constant ICMP_STRUCT      => "C2 n3 A"; # Structure of a minimal ICMP packet
+use constant SUBCODE          => 0; # No ICMP subcode for ECHO and ECHOREPLY
+use constant ICMP_FLAGS       => 0; # No special flags for send or recv
+use constant ICMP_PORT        => 0; # No port with ICMP
+
+sub ping_icmp
+{
+  my ($self,
+      $ip,                # Packed IP number of the host
+      $timeout            # Seconds after which ping times out
+      ) = @_;
+
+  my ($saddr,             # sockaddr_in with port and ip
+      $checksum,          # Checksum of ICMP packet
+      $msg,               # ICMP packet to send
+      $len_msg,           # Length of $msg
+      $rbits,             # Read bits, filehandles for reading
+      $nfound,            # Number of ready filehandles found
+      $finish_time,       # Time ping should be finished
+      $done,              # set to 1 when we are done
+      $ret,               # Return value
+      $recv_msg,          # Received message including IP header
+      $from_saddr,        # sockaddr_in of sender
+      $from_port,         # Port packet was sent from
+      $from_ip,           # Packed IP of sender
+      $from_type,         # ICMP type
+      $from_subcode,      # ICMP subcode
+      $from_chk,          # ICMP packet checksum
+      $from_pid,          # ICMP packet id
+      $from_seq,          # ICMP packet sequence
+      $from_msg           # ICMP message
+      );
+
+  $self->{"seq"} = ($self->{"seq"} + 1) % 65536; # Increment sequence
+  $checksum = 0;                          # No checksum for starters
+  $msg = pack(ICMP_STRUCT . $self->{"data_size"}, ICMP_ECHO, SUBCODE,
+              $checksum, $self->{"pid"}, $self->{"seq"}, $self->{"data"});
+  $checksum = Net::Ping->checksum($msg);
+  $msg = pack(ICMP_STRUCT . $self->{"data_size"}, ICMP_ECHO, SUBCODE,
+              $checksum, $self->{"pid"}, $self->{"seq"}, $self->{"data"});
+  $len_msg = length($msg);
+  $saddr = sockaddr_in(ICMP_PORT, $ip);
+  $self->{"from_ip"} = undef;
+  $self->{"from_type"} = undef;
+  $self->{"from_subcode"} = undef;
+  send($self->{"fh"}, $msg, ICMP_FLAGS, $saddr); # Send the message
+
+  $rbits = "";
+  vec($rbits, $self->{"fh"}->fileno(), 1) = 1;
+  $ret = 0;
+  $done = 0;
+  $finish_time = &time() + $timeout;      # Must be done by this time
+  while (!$done && $timeout > 0)          # Keep trying if we have time
+  {
+    $nfound = mselect((my $rout=$rbits), undef, undef, $timeout); # Wait for packet
+    $timeout = $finish_time - &time();    # Get remaining time
+    if (!defined($nfound))                # Hmm, a strange error
+    {
+      $ret = undef;
+      $done = 1;
+    }
+    elsif ($nfound)                     # Got a packet from somewhere
+    {
+      $recv_msg = "";
+      $from_pid = -1;
+      $from_seq = -1;
+      $from_saddr = recv($self->{"fh"}, $recv_msg, 1500, ICMP_FLAGS);
+      ($from_port, $from_ip) = sockaddr_in($from_saddr);
+      ($from_type, $from_subcode) = unpack("C2", substr($recv_msg, 20, 2));
+      if ($from_type == ICMP_ECHOREPLY) {
+        ($from_pid, $from_seq) = unpack("n3", substr($recv_msg, 24, 4))
+          if length $recv_msg >= 28;
+      } else {
+        ($from_pid, $from_seq) = unpack("n3", substr($recv_msg, 52, 4))
+          if length $recv_msg >= 56;
+      }
+      $self->{"from_ip"} = $from_ip;
+      $self->{"from_type"} = $from_type;
+      $self->{"from_subcode"} = $from_subcode;
+      next if ($from_pid != $self->{"pid"});
+      next if ($from_seq != $self->{"seq"});
+      if (! $source_verify || ($self->ntop($from_ip) eq $self->ntop($ip))) { # Does the packet check out?
+        if ($from_type == ICMP_ECHOREPLY) {
+          $ret = 1;
+	        $done = 1;
+        } elsif ($from_type == ICMP_UNREACHABLE) {
+          $done = 1;
+        } elsif ($from_type == ICMP_TIME_EXCEEDED) {
+          $ret = 0;
+          $done = 1;
+        }
+      }
+    } else {     # Oops, timed out
+      $done = 1;
+    }
+  }
+  return $ret;
+}
+
+sub icmp_result {
+  my ($self) = @_;
+  my $ip = $self->{"from_ip"} || "";
+  $ip = "\0\0\0\0" unless 4 == length $ip;
+  return ($self->ntop($ip),($self->{"from_type"} || 0), ($self->{"from_subcode"} || 0));
+}
+
+# Description:  Do a checksum on the message.  Basically sum all of
+# the short words and fold the high order bits into the low order bits.
+
+sub checksum
+{
+  my ($class,
+      $msg            # The message to checksum
+      ) = @_;
+  my ($len_msg,       # Length of the message
+      $num_short,     # The number of short words in the message
+      $short,         # One short word
+      $chk            # The checksum
+      );
+
+  $len_msg = length($msg);
+  $num_short = int($len_msg / 2);
+  $chk = 0;
+  foreach $short (unpack("n$num_short", $msg))
+  {
+    $chk += $short;
+  }                                           # Add the odd byte in
+  $chk += (unpack("C", substr($msg, $len_msg - 1, 1)) << 8) if $len_msg % 2;
+  $chk = ($chk >> 16) + ($chk & 0xffff);      # Fold high into low
+  return(~(($chk >> 16) + $chk) & 0xffff);    # Again and complement
+}
+
+
+# Description:  Perform a tcp echo ping.  Since a tcp connection is
+# host specific, we have to open and close each connection here.  We
+# can't just leave a socket open.  Because of the robust nature of
+# tcp, it will take a while before it gives up trying to establish a
+# connection.  Therefore, we use select() on a non-blocking socket to
+# check against our timeout.  No data bytes are actually
+# sent since the successful establishment of a connection is proof
+# enough of the reachability of the remote host.  Also, tcp is
+# expensive and doesn't need our help to add to the overhead.
+
+sub ping_tcp
+{
+  my ($self,
+      $ip,                # Packed IP number of the host
+      $timeout            # Seconds after which ping times out
+      ) = @_;
+  my ($ret                # The return value
+      );
+
+  $! = 0;
+  $ret = $self -> tcp_connect( $ip, $timeout);
+  if (!$self->{"econnrefused"} &&
+      $! == ECONNREFUSED) {
+    $ret = 1;  # "Connection refused" means reachable
+  }
+  $self->{"fh"}->close();
+  return $ret;
+}
+
+sub tcp_connect
+{
+  my ($self,
+      $ip,                # Packed IP number of the host
+      $timeout            # Seconds after which connect times out
+      ) = @_;
+  my ($saddr);            # Packed IP and Port
+
+  $saddr = sockaddr_in($self->{"port_num"}, $ip);
+
+  my $ret = 0;            # Default to unreachable
+
+  my $do_socket = sub {
+    socket($self->{"fh"}, PF_INET, SOCK_STREAM, $self->{"proto_num"}) ||
+      croak("tcp socket error - $!");
+    if (defined $self->{"local_addr"} &&
+        !CORE::bind($self->{"fh"}, sockaddr_in(0, $self->{"local_addr"}))) {
+      croak("tcp bind error - $!");
+    }
+    if ($self->{'device'}) {
+      setsockopt($self->{"fh"}, SOL_SOCKET, SO_BINDTODEVICE(), pack("Z*", $self->{'device'}))
+        or croak("error binding to device $self->{'device'} $!");
+    }
+    if ($self->{'tos'}) {
+      setsockopt($self->{"fh"}, IPPROTO_IP, IP_TOS, pack("I*", $self->{'tos'}))
+        or croak "error configuring tos to $self->{'tos'} $!";
+    }
+  };
+  my $do_connect = sub {
+    $self->{"ip"} = $ip;
+    # ECONNREFUSED is 10061 on MSWin32. If we pass it as child error through $?,
+    # we'll get (10061 & 255) = 77, so we cannot check it in the parent process.
+    return ($ret = connect($self->{"fh"}, $saddr) || ($! == ECONNREFUSED && !$self->{"econnrefused"}));
+  };
+  my $do_connect_nb = sub {
+    # Set O_NONBLOCK property on filehandle
+    $self->socket_blocking_mode($self->{"fh"}, 0);
+
+    # start the connection attempt
+    if (!connect($self->{"fh"}, $saddr)) {
+      if ($! == ECONNREFUSED) {
+        $ret = 1 unless $self->{"econnrefused"};
+      } elsif ($! != EINPROGRESS && ($^O ne 'MSWin32' || $! != EWOULDBLOCK)) {
+        # EINPROGRESS is the expected error code after a connect()
+        # on a non-blocking socket.  But if the kernel immediately
+        # determined that this connect() will never work,
+        # Simply respond with "unreachable" status.
+        # (This can occur on some platforms with errno
+        # EHOSTUNREACH or ENETUNREACH.)
+        return 0;
+      } else {
+        # Got the expected EINPROGRESS.
+        # Just wait for connection completion...
+        my ($wbits, $wout, $wexc);
+        $wout = $wexc = $wbits = "";
+        vec($wbits, $self->{"fh"}->fileno, 1) = 1;
+
+        my $nfound = mselect(undef,
+			    ($wout = $wbits),
+			    ($^O eq 'MSWin32' ? ($wexc = $wbits) : undef),
+			    $timeout);
+        warn("select: $!") unless defined $nfound;
+
+        if ($nfound && vec($wout, $self->{"fh"}->fileno, 1)) {
+          # the socket is ready for writing so the connection
+          # attempt completed. test whether the connection
+          # attempt was successful or not
+
+          if (getpeername($self->{"fh"})) {
+            # Connection established to remote host
+            $ret = 1;
+          } else {
+            # TCP ACK will never come from this host
+            # because there was an error connecting.
+
+            # This should set $! to the correct error.
+            my $char;
+            sysread($self->{"fh"},$char,1);
+            $! = ECONNREFUSED if ($! == EAGAIN && $^O =~ /cygwin/i);
+
+            $ret = 1 if (!$self->{"econnrefused"}
+                         && $! == ECONNREFUSED);
+          }
+        } else {
+          # the connection attempt timed out (or there were connect
+	  # errors on Windows)
+	  if ($^O =~ 'MSWin32') {
+	      # If the connect will fail on a non-blocking socket,
+	      # winsock reports ECONNREFUSED as an exception, and we
+	      # need to fetch the socket-level error code via getsockopt()
+	      # instead of using the thread-level error code that is in $!.
+	      if ($nfound && vec($wexc, $self->{"fh"}->fileno, 1)) {
+		  $! = unpack("i", getsockopt($self->{"fh"}, SOL_SOCKET,
+			                      SO_ERROR));
+	      }
+	  }
+        }
+      }
+    } else {
+      # Connection established to remote host
+      $ret = 1;
+    }
+
+    # Unset O_NONBLOCK property on filehandle
+    $self->socket_blocking_mode($self->{"fh"}, 1);
+    $self->{"ip"} = $ip;
+    return $ret;
+  };
+
+  if ($syn_forking) {
+    # Buggy Winsock API doesn't allow nonblocking connect.
+    # Hence, if our OS is Windows, we need to create a separate
+    # process to do the blocking connect attempt.
+    # XXX Above comments are not true at least for Win2K, where
+    # nonblocking connect works.
+
+    $| = 1; # Clear buffer prior to fork to prevent duplicate flushing.
+    $self->{'tcp_chld'} = fork;
+    if (!$self->{'tcp_chld'}) {
+      if (!defined $self->{'tcp_chld'}) {
+        # Fork did not work
+        warn "Fork error: $!";
+        return 0;
+      }
+      &{ $do_socket }();
+
+      # Try a slow blocking connect() call
+      # and report the status to the parent.
+      if ( &{ $do_connect }() ) {
+        $self->{"fh"}->close();
+        # No error
+        exit 0;
+      } else {
+        # Pass the error status to the parent
+        # Make sure that $! <= 255
+        exit($! <= 255 ? $! : 255);
+      }
+    }
+
+    &{ $do_socket }();
+
+    my $patience = &time() + $timeout;
+
+    my ($child, $child_errno);
+    $? = 0; $child_errno = 0;
+    # Wait up to the timeout
+    # And clean off the zombie
+    do {
+      $child = waitpid($self->{'tcp_chld'}, &WNOHANG());
+      $child_errno = $? >> 8;
+      select(undef, undef, undef, 0.1);
+    } while &time() < $patience && $child != $self->{'tcp_chld'};
+
+    if ($child == $self->{'tcp_chld'}) {
+      if ($self->{"proto"} eq "stream") {
+        # We need the socket connected here, in parent
+        # Should be safe to connect because the child finished
+        # within the timeout
+        &{ $do_connect }();
+      }
+      # $ret cannot be set by the child process
+      $ret = !$child_errno;
+    } else {
+      # Time must have run out.
+      # Put that choking client out of its misery
+      kill "KILL", $self->{'tcp_chld'};
+      # Clean off the zombie
+      waitpid($self->{'tcp_chld'}, 0);
+      $ret = 0;
+    }
+    delete $self->{'tcp_chld'};
+    $! = $child_errno;
+  } else {
+    # Otherwise don't waste the resources to fork
+
+    &{ $do_socket }();
+
+    &{ $do_connect_nb }();
+  }
+
+  return $ret;
+}
+
+sub DESTROY {
+  my $self = shift;
+  if ($self->{'proto'} eq 'tcp' &&
+      $self->{'tcp_chld'}) {
+    # Put that choking client out of its misery
+    kill "KILL", $self->{'tcp_chld'};
+    # Clean off the zombie
+    waitpid($self->{'tcp_chld'}, 0);
+  }
+}
+
+# This writes the given string to the socket and then reads it
+# back.  It returns 1 on success, 0 on failure.
+sub tcp_echo
+{
+  my $self = shift;
+  my $timeout = shift;
+  my $pingstring = shift;
+
+  my $ret = undef;
+  my $time = &time();
+  my $wrstr = $pingstring;
+  my $rdstr = "";
+
+  eval <<'EOM';
+    do {
+      my $rin = "";
+      vec($rin, $self->{"fh"}->fileno(), 1) = 1;
+
+      my $rout = undef;
+      if($wrstr) {
+        $rout = "";
+        vec($rout, $self->{"fh"}->fileno(), 1) = 1;
+      }
+
+      if(mselect($rin, $rout, undef, ($time + $timeout) - &time())) {
+
+        if($rout && vec($rout,$self->{"fh"}->fileno(),1)) {
+          my $num = syswrite($self->{"fh"}, $wrstr, length $wrstr);
+          if($num) {
+            # If it was a partial write, update and try again.
+            $wrstr = substr($wrstr,$num);
+          } else {
+            # There was an error.
+            $ret = 0;
+          }
+        }
+
+        if(vec($rin,$self->{"fh"}->fileno(),1)) {
+          my $reply;
+          if(sysread($self->{"fh"},$reply,length($pingstring)-length($rdstr))) {
+            $rdstr .= $reply;
+            $ret = 1 if $rdstr eq $pingstring;
+          } else {
+            # There was an error.
+            $ret = 0;
+          }
+        }
+
+      }
+    } until &time() > ($time + $timeout) || defined($ret);
+EOM
+
+  return $ret;
+}
+
+
+
+
+# Description: Perform a stream ping.  If the tcp connection isn't
+# already open, it opens it.  It then sends some data and waits for
+# a reply.  It leaves the stream open on exit.
+
+sub ping_stream
+{
+  my ($self,
+      $ip,                # Packed IP number of the host
+      $timeout            # Seconds after which ping times out
+      ) = @_;
+
+  # Open the stream if it's not already open
+  if(!defined $self->{"fh"}->fileno()) {
+    $self->tcp_connect($ip, $timeout) or return 0;
+  }
+
+  croak "tried to switch servers while stream pinging"
+    if $self->{"ip"} ne $ip;
+
+  return $self->tcp_echo($timeout, $pingstring);
+}
+
+# Description: opens the stream.  You would do this if you want to
+# separate the overhead of opening the stream from the first ping.
+
+sub open
+{
+  my ($self,
+      $host,              # Host or IP address
+      $timeout            # Seconds after which open times out
+      ) = @_;
+
+  my ($ip);               # Packed IP number of the host
+  $ip = inet_aton($host);
+  $timeout = $self->{"timeout"} unless $timeout;
+
+  if($self->{"proto"} eq "stream") {
+    if(defined($self->{"fh"}->fileno())) {
+      croak("socket is already open");
+    } else {
+      $self->tcp_connect($ip, $timeout);
+    }
+  }
+}
+
+
+# Description:  Perform a udp echo ping.  Construct a message of
+# at least the one-byte sequence number and any additional data bytes.
+# Send the message out and wait for a message to come back.  If we
+# get a message, make sure all of its parts match.  If they do, we are
+# done.  Otherwise go back and wait for the message until we run out
+# of time.  Return the result of our efforts.
+
+use constant UDP_FLAGS => 0; # Nothing special on send or recv
+sub ping_udp
+{
+  my ($self,
+      $ip,                # Packed IP number of the host
+      $timeout            # Seconds after which ping times out
+      ) = @_;
+
+  my ($saddr,             # sockaddr_in with port and ip
+      $ret,               # The return value
+      $msg,               # Message to be echoed
+      $finish_time,       # Time ping should be finished
+      $flush,             # Whether socket needs to be disconnected
+      $connect,           # Whether socket needs to be connected
+      $done,              # Set to 1 when we are done pinging
+      $rbits,             # Read bits, filehandles for reading
+      $nfound,            # Number of ready filehandles found
+      $from_saddr,        # sockaddr_in of sender
+      $from_msg,          # Characters echoed by $host
+      $from_port,         # Port message was echoed from
+      $from_ip            # Packed IP number of sender
+      );
+
+  $saddr = sockaddr_in($self->{"port_num"}, $ip);
+  $self->{"seq"} = ($self->{"seq"} + 1) % 256;    # Increment sequence
+  $msg = chr($self->{"seq"}) . $self->{"data"};   # Add data if any
+
+  if ($self->{"connected"}) {
+    if ($self->{"connected"} ne $saddr) {
+      # Still connected to wrong destination.
+      # Need to flush out the old one.
+      $flush = 1;
+    }
+  } else {
+    # Not connected yet.
+    # Need to connect() before send()
+    $connect = 1;
+  }
+
+  # Have to connect() and send() instead of sendto()
+  # in order to pick up on the ECONNREFUSED setting
+  # from recv() or double send() errno as utilized in
+  # the concept by rdw @ perlmonks.  See:
+  # http://perlmonks.thepen.com/42898.html
+  if ($flush) {
+    # Need to socket() again to flush the descriptor
+    # This will disconnect from the old saddr.
+    socket($self->{"fh"}, PF_INET, SOCK_DGRAM,
+           $self->{"proto_num"});
+  }
+  # Connect the socket if it isn't already connected
+  # to the right destination.
+  if ($flush || $connect) {
+    connect($self->{"fh"}, $saddr);               # Tie destination to socket
+    $self->{"connected"} = $saddr;
+  }
+  send($self->{"fh"}, $msg, UDP_FLAGS);           # Send it
+
+  $rbits = "";
+  vec($rbits, $self->{"fh"}->fileno(), 1) = 1;
+  $ret = 0;                   # Default to unreachable
+  $done = 0;
+  my $retrans = 0.01;
+  my $factor = $self->{"retrans"};
+  $finish_time = &time() + $timeout;       # Ping needs to be done by then
+  while (!$done && $timeout > 0)
+  {
+    if ($factor > 1)
+    {
+      $timeout = $retrans if $timeout > $retrans;
+      $retrans*= $factor; # Exponential backoff
+    }
+    $nfound  = mselect((my $rout=$rbits), undef, undef, $timeout); # Wait for response
+    my $why = $!;
+    $timeout = $finish_time - &time();   # Get remaining time
+
+    if (!defined($nfound))  # Hmm, a strange error
+    {
+      $ret = undef;
+      $done = 1;
+    }
+    elsif ($nfound)         # A packet is waiting
+    {
+      $from_msg = "";
+      $from_saddr = recv($self->{"fh"}, $from_msg, 1500, UDP_FLAGS);
+      if (!$from_saddr) {
+        # For example an unreachable host will make recv() fail.
+        if (!$self->{"econnrefused"} &&
+            ($! == ECONNREFUSED ||
+             $! == ECONNRESET)) {
+          # "Connection refused" means reachable
+          # Good, continue
+          $ret = 1;
+        }
+        $done = 1;
+      } else {
+        ($from_port, $from_ip) = sockaddr_in($from_saddr);
+        if (!$source_verify ||
+            (($from_ip eq $ip) &&        # Does the packet check out?
+             ($from_port == $self->{"port_num"}) &&
+             ($from_msg eq $msg)))
+        {
+          $ret = 1;       # It's a winner
+          $done = 1;
+        }
+      }
+    }
+    elsif ($timeout <= 0)              # Oops, timed out
+    {
+      $done = 1;
+    }
+    else
+    {
+      # Send another in case the last one dropped
+      if (send($self->{"fh"}, $msg, UDP_FLAGS)) {
+        # Another send worked?  The previous udp packet
+        # must have gotten lost or is still in transit.
+        # Hopefully this new packet will arrive safely.
+      } else {
+        if (!$self->{"econnrefused"} &&
+            $! == ECONNREFUSED) {
+          # "Connection refused" means reachable
+          # Good, continue
+          $ret = 1;
+        }
+        $done = 1;
+      }
+    }
+  }
+  return $ret;
+}
+
+# Description: Send a TCP SYN packet to host specified.
+sub ping_syn
+{
+  my $self = shift;
+  my $host = shift;
+  my $ip = shift;
+  my $start_time = shift;
+  my $stop_time = shift;
+
+  if ($syn_forking) {
+    return $self->ping_syn_fork($host, $ip, $start_time, $stop_time);
+  }
+
+  my $fh = FileHandle->new();
+  my $saddr = sockaddr_in($self->{"port_num"}, $ip);
+
+  # Create TCP socket
+  if (!socket ($fh, PF_INET, SOCK_STREAM, $self->{"proto_num"})) {
+    croak("tcp socket error - $!");
+  }
+
+  if (defined $self->{"local_addr"} &&
+      !CORE::bind($fh, sockaddr_in(0, $self->{"local_addr"}))) {
+    croak("tcp bind error - $!");
+  }
+
+  if ($self->{'device'}) {
+    setsockopt($fh, SOL_SOCKET, SO_BINDTODEVICE(), pack("Z*", $self->{'device'}))
+      or croak("error binding to device $self->{'device'} $!");
+  }
+  if ($self->{'tos'}) {
+    setsockopt($fh, IPPROTO_IP, IP_TOS, pack("I*", $self->{'tos'}))
+      or croak "error configuring tos to $self->{'tos'} $!";
+  }
+  # Set O_NONBLOCK property on filehandle
+  $self->socket_blocking_mode($fh, 0);
+
+  # Attempt the non-blocking connect
+  # by just sending the TCP SYN packet
+  if (connect($fh, $saddr)) {
+    # Non-blocking, yet still connected?
+    # Must have connected very quickly,
+    # or else it wasn't very non-blocking.
+    #warn "WARNING: Nonblocking connect connected anyway? ($^O)";
+  } else {
+    # Error occurred connecting.
+    if ($! == EINPROGRESS || ($^O eq 'MSWin32' && $! == EWOULDBLOCK)) {
+      # The connection is just still in progress.
+      # This is the expected condition.
+    } else {
+      # Just save the error and continue on.
+      # The ack() can check the status later.
+      $self->{"bad"}->{$host} = $!;
+    }
+  }
+
+  my $entry = [ $host, $ip, $fh, $start_time, $stop_time ];
+  $self->{"syn"}->{$fh->fileno} = $entry;
+  if ($self->{"stop_time"} < $stop_time) {
+    $self->{"stop_time"} = $stop_time;
+  }
+  vec($self->{"wbits"}, $fh->fileno, 1) = 1;
+
+  return 1;
+}
+
+sub ping_syn_fork {
+  my ($self, $host, $ip, $start_time, $stop_time) = @_;
+
+  # Buggy Winsock API doesn't allow nonblocking connect.
+  # Hence, if our OS is Windows, we need to create a separate
+  # process to do the blocking connect attempt.
+  my $pid = fork();
+  if (defined $pid) {
+    if ($pid) {
+      # Parent process
+      my $entry = [ $host, $ip, $pid, $start_time, $stop_time ];
+      $self->{"syn"}->{$pid} = $entry;
+      if ($self->{"stop_time"} < $stop_time) {
+        $self->{"stop_time"} = $stop_time;
+      }
+    } else {
+      # Child process
+      my $saddr = sockaddr_in($self->{"port_num"}, $ip);
+
+      # Create TCP socket
+      if (!socket ($self->{"fh"}, PF_INET, SOCK_STREAM, $self->{"proto_num"})) {
+        croak("tcp socket error - $!");
+      }
+
+      if (defined $self->{"local_addr"} &&
+          !CORE::bind($self->{"fh"}, sockaddr_in(0, $self->{"local_addr"}))) {
+        croak("tcp bind error - $!");
+      }
+
+      if ($self->{'device'}) {
+        setsockopt($self->{"fh"}, SOL_SOCKET, SO_BINDTODEVICE(), pack("Z*", $self->{'device'}))
+          or croak("error binding to device $self->{'device'} $!");
+      }
+      if ($self->{'tos'}) {
+        setsockopt($self->{"fh"}, IPPROTO_IP, IP_TOS, pack("I*", $self->{'tos'}))
+          or croak "error configuring tos to $self->{'tos'} $!";
+      }
+
+      $!=0;
+      # Try to connect (could take a long time)
+      connect($self->{"fh"}, $saddr);
+      # Notify parent of connect error status
+      my $err = $!+0;
+      my $wrstr = "$$ $err";
+      # Force to 16 chars including \n
+      $wrstr .= " "x(15 - length $wrstr). "\n";
+      syswrite($self->{"fork_wr"}, $wrstr, length $wrstr);
+      exit;
+    }
+  } else {
+    # fork() failed?
+    die "fork: $!";
+  }
+  return 1;
+}
+
+# Description: Wait for TCP ACK from host specified
+# from ping_syn above.  If no host is specified, wait
+# for TCP ACK from any of the hosts in the SYN queue.
+sub ack
+{
+  my $self = shift;
+
+  if ($self->{"proto"} eq "syn") {
+    if ($syn_forking) {
+      my @answer = $self->ack_unfork(shift);
+      return wantarray ? @answer : $answer[0];
+    }
+    my $wbits = "";
+    my $stop_time = 0;
+    if (my $host = shift) {
+      # Host passed as arg
+      if (exists $self->{"bad"}->{$host}) {
+        if (!$self->{"econnrefused"} &&
+            $self->{"bad"}->{ $host } &&
+            (($! = ECONNREFUSED)>0) &&
+            $self->{"bad"}->{ $host } eq "$!") {
+          # "Connection refused" means reachable
+          # Good, continue
+        } else {
+          # ECONNREFUSED means no good
+          return ();
+        }
+      }
+      my $host_fd = undef;
+      foreach my $fd (keys %{ $self->{"syn"} }) {
+        my $entry = $self->{"syn"}->{$fd};
+        if ($entry->[0] eq $host) {
+          $host_fd = $fd;
+          $stop_time = $entry->[4]
+            || croak("Corrupted SYN entry for [$host]");
+          last;
+        }
+      }
+      croak("ack called on [$host] without calling ping first!")
+        unless defined $host_fd;
+      vec($wbits, $host_fd, 1) = 1;
+    } else {
+      # No $host passed so scan all hosts
+      # Use the latest stop_time
+      $stop_time = $self->{"stop_time"};
+      # Use all the bits
+      $wbits = $self->{"wbits"};
+    }
+
+    while ($wbits !~ /^\0*\z/) {
+      my $timeout = $stop_time - &time();
+      # Force a minimum of 10 ms timeout.
+      $timeout = 0.01 if $timeout <= 0.01;
+
+      my $winner_fd = undef;
+      my $wout = $wbits;
+      my $fd = 0;
+      # Do "bad" fds from $wbits first
+      while ($wout !~ /^\0*\z/) {
+        if (vec($wout, $fd, 1)) {
+          # Wipe it from future scanning.
+          vec($wout, $fd, 1) = 0;
+          if (my $entry = $self->{"syn"}->{$fd}) {
+            if ($self->{"bad"}->{ $entry->[0] }) {
+              $winner_fd = $fd;
+              last;
+            }
+          }
+        }
+        $fd++;
+      }
+
+      if (defined($winner_fd) or my $nfound = mselect(undef, ($wout=$wbits), undef, $timeout)) {
+        if (defined $winner_fd) {
+          $fd = $winner_fd;
+        } else {
+          # Done waiting for one of the ACKs
+          $fd = 0;
+          # Determine which one
+          while ($wout !~ /^\0*\z/ &&
+                 !vec($wout, $fd, 1)) {
+            $fd++;
+          }
+        }
+        if (my $entry = $self->{"syn"}->{$fd}) {
+          # Wipe it from future scanning.
+          delete $self->{"syn"}->{$fd};
+          vec($self->{"wbits"}, $fd, 1) = 0;
+          vec($wbits, $fd, 1) = 0;
+          if (!$self->{"econnrefused"} &&
+              $self->{"bad"}->{ $entry->[0] } &&
+              (($! = ECONNREFUSED)>0) &&
+              $self->{"bad"}->{ $entry->[0] } eq "$!") {
+            # "Connection refused" means reachable
+            # Good, continue
+          } elsif (getpeername($entry->[2])) {
+            # Connection established to remote host
+            # Good, continue
+          } else {
+            # TCP ACK will never come from this host
+            # because there was an error connecting.
+
+            # This should set $! to the correct error.
+            my $char;
+            sysread($entry->[2],$char,1);
+            # Store the excuse why the connection failed.
+            $self->{"bad"}->{$entry->[0]} = $!;
+            if (!$self->{"econnrefused"} &&
+                (($! == ECONNREFUSED) ||
+                 ($! == EAGAIN && $^O =~ /cygwin/i))) {
+              # "Connection refused" means reachable
+              # Good, continue
+            } else {
+              # No good, try the next socket...
+              next;
+            }
+          }
+          # Everything passed okay, return the answer
+          return wantarray ?
+            ($entry->[0], &time() - $entry->[3], $self->ntop($entry->[1]))
+            : $entry->[0];
+        } else {
+          warn "Corrupted SYN entry: unknown fd [$fd] ready!";
+          vec($wbits, $fd, 1) = 0;
+          vec($self->{"wbits"}, $fd, 1) = 0;
+        }
+      } elsif (defined $nfound) {
+        # Timed out waiting for ACK
+        foreach my $fd (keys %{ $self->{"syn"} }) {
+          if (vec($wbits, $fd, 1)) {
+            my $entry = $self->{"syn"}->{$fd};
+            $self->{"bad"}->{$entry->[0]} = "Timed out";
+            vec($wbits, $fd, 1) = 0;
+            vec($self->{"wbits"}, $fd, 1) = 0;
+            delete $self->{"syn"}->{$fd};
+          }
+        }
+      } else {
+        # Weird error occurred with select()
+        warn("select: $!");
+        $self->{"syn"} = {};
+        $wbits = "";
+      }
+    }
+  }
+  return ();
+}
+
+sub ack_unfork {
+  my ($self,$host) = @_;
+  my $stop_time = $self->{"stop_time"};
+  if ($host) {
+    # Host passed as arg
+    if (my $entry = $self->{"good"}->{$host}) {
+      delete $self->{"good"}->{$host};
+      return ($entry->[0], &time() - $entry->[3], $self->ntop($entry->[1]));
+    }
+  }
+
+  my $rbits = "";
+  my $timeout;
+
+  if (keys %{ $self->{"syn"} }) {
+    # Scan all hosts that are left
+    vec($rbits, fileno($self->{"fork_rd"}), 1) = 1;
+    $timeout = $stop_time - &time();
+    # Force a minimum of 10 ms timeout.
+    $timeout = 0.01 if $timeout < 0.01;
+  } else {
+    # No hosts left to wait for
+    $timeout = 0;
+  }
+
+  if ($timeout > 0) {
+    my $nfound;
+    while ( keys %{ $self->{"syn"} } and
+           $nfound = mselect((my $rout=$rbits), undef, undef, $timeout)) {
+      # Done waiting for one of the ACKs
+      if (!sysread($self->{"fork_rd"}, $_, 16)) {
+        # Socket closed, which means all children are done.
+        return ();
+      }
+      my ($pid, $how) = split;
+      if ($pid) {
+        # Flush the zombie
+        waitpid($pid, 0);
+        if (my $entry = $self->{"syn"}->{$pid}) {
+          # Connection attempt to remote host is done
+          delete $self->{"syn"}->{$pid};
+          if (!$how || # If there was no error connecting
+              (!$self->{"econnrefused"} &&
+               $how == ECONNREFUSED)) {  # "Connection refused" means reachable
+            if ($host && $entry->[0] ne $host) {
+              # A good connection, but not the host we need.
+              # Move it from the "syn" hash to the "good" hash.
+              $self->{"good"}->{$entry->[0]} = $entry;
+              # And wait for the next winner
+              next;
+            }
+            return ($entry->[0], &time() - $entry->[3], $self->ntop($entry->[1]));
+          }
+        } else {
+          # Should never happen
+          die "Unknown ping from pid [$pid]";
+        }
+      } else {
+        die "Empty response from status socket?";
+      }
+    }
+    if (defined $nfound) {
+      # Timed out waiting for ACK status
+    } else {
+      # Weird error occurred with select()
+      warn("select: $!");
+    }
+  }
+  if (my @synners = keys %{ $self->{"syn"} }) {
+    # Kill all the synners
+    kill 9, @synners;
+    foreach my $pid (@synners) {
+      # Wait for the deaths to finish
+      # Then flush off the zombie
+      waitpid($pid, 0);
+    }
+  }
+  $self->{"syn"} = {};
+  return ();
+}
+
+# Description:  Tell why the ack() failed
+sub nack {
+  my $self = shift;
+  my $host = shift || croak('Usage> nack($failed_ack_host)');
+  return $self->{"bad"}->{$host} || undef;
+}
+
+# Description:  Close the connection.
+
+sub close
+{
+  my ($self) = @_;
+
+  if ($self->{"proto"} eq "syn") {
+    delete $self->{"syn"};
+  } elsif ($self->{"proto"} eq "tcp") {
+    # The connection will already be closed
+  } elsif ($self->{"proto"} eq "external") {
+    # Nothing to close
+  } else {
+    $self->{"fh"}->close();
+  }
+}
+
+sub port_number {
+   my $self = shift;
+   if(@_) {
+       $self->{port_num} = shift @_;
+       $self->service_check(1);
+   }
+   return $self->{port_num};
+}
+
+sub ntop {
+    my($self, $ip) = @_;
+
+    # Vista doesn't define a inet_ntop.  It has InetNtop instead.
+    # Not following ANSI... priceless.  getnameinfo() is defined
+    # for Windows 2000 and later, so that may be the choice.
+
+    # Any port will work, even undef, but this will work for now.
+    # Socket warns when undef is passed in, but it still works.
+    my $port = getservbyname('echo', 'udp');
+    my $sockaddr = sockaddr_in $port, $ip;
+    my ($error, $address) = getnameinfo($sockaddr, NI_NUMERICHOST);
+    if($error) {
+      croak $error;
+    }
+    return $address;
+}
+
+1;
+__END__
+
+=head1 NAME
+
+Net::Ping - check a remote host for reachability
+
+=head1 SYNOPSIS
+
+    use Net::Ping;
+
+    $p = Net::Ping->new();
+    print "$host is alive.\n" if $p->ping($host);
+    $p->close();
+
+    $p = Net::Ping->new("icmp");
+    $p->bind($my_addr); # Specify source interface of pings
+    foreach $host (@host_array)
+    {
+        print "$host is ";
+        print "NOT " unless $p->ping($host, 2);
+        print "reachable.\n";
+        sleep(1);
+    }
+    $p->close();
+
+    $p = Net::Ping->new("tcp", 2);
+    # Try connecting to the www port instead of the echo port
+    $p->port_number(scalar(getservbyname("http", "tcp")));
+    while ($stop_time > time())
+    {
+        print "$host not reachable ", scalar(localtime()), "\n"
+            unless $p->ping($host);
+        sleep(300);
+    }
+    undef($p);
+
+    # Like tcp protocol, but with many hosts
+    $p = Net::Ping->new("syn");
+    $p->port_number(getservbyname("http", "tcp"));
+    foreach $host (@host_array) {
+      $p->ping($host);
+    }
+    while (($host,$rtt,$ip) = $p->ack) {
+      print "HOST: $host [$ip] ACKed in $rtt seconds.\n";
+    }
+
+    # High precision syntax (requires Time::HiRes)
+    $p = Net::Ping->new();
+    $p->hires();
+    ($ret, $duration, $ip) = $p->ping($host, 5.5);
+    printf("$host [ip: $ip] is alive (packet return time: %.2f ms)\n",
+            1000 * $duration)
+      if $ret;
+    $p->close();
+
+    # For backward compatibility
+    print "$host is alive.\n" if pingecho($host);
+
+=head1 DESCRIPTION
+
+This module contains methods to test the reachability of remote
+hosts on a network.  A ping object is first created with optional
+parameters, a variable number of hosts may be pinged multiple
+times and then the connection is closed.
+
+You may choose one of six different protocols to use for the
+ping. The "tcp" protocol is the default. Note that a live remote host
+may still fail to be pingable by one or more of these protocols. For
+example, www.microsoft.com is generally alive but not "icmp" pingable.
+
+With the "tcp" protocol the ping() method attempts to establish a
+connection to the remote host's echo port.  If the connection is
+successfully established, the remote host is considered reachable.  No
+data is actually echoed.  This protocol does not require any special
+privileges but has higher overhead than the "udp" and "icmp" protocols.
+
+Specifying the "udp" protocol causes the ping() method to send a udp
+packet to the remote host's echo port.  If the echoed packet is
+received from the remote host and the received packet contains the
+same data as the packet that was sent, the remote host is considered
+reachable.  This protocol does not require any special privileges.
+It should be borne in mind that, for a udp ping, a host
+will be reported as unreachable if it is not running the
+appropriate echo service.  For Unix-like systems see L<inetd(8)>
+for more information.
+
+If the "icmp" protocol is specified, the ping() method sends an icmp
+echo message to the remote host, which is what the UNIX ping program
+does.  If the echoed message is received from the remote host and
+the echoed information is correct, the remote host is considered
+reachable.  Specifying the "icmp" protocol requires that the program
+be run as root or that the program be setuid to root.
+
+If the "external" protocol is specified, the ping() method attempts to
+use the C<Net::Ping::External> module to ping the remote host.
+C<Net::Ping::External> interfaces with your system's default C<ping>
+utility to perform the ping, and generally produces relatively
+accurate results. If C<Net::Ping::External> if not installed on your
+system, specifying the "external" protocol will result in an error.
+
+If the "syn" protocol is specified, the ping() method will only
+send a TCP SYN packet to the remote host then immediately return.
+If the syn packet was sent successfully, it will return a true value,
+otherwise it will return false.  NOTE: Unlike the other protocols,
+the return value does NOT determine if the remote host is alive or
+not since the full TCP three-way handshake may not have completed
+yet.  The remote host is only considered reachable if it receives
+a TCP ACK within the timeout specified.  To begin waiting for the
+ACK packets, use the ack() method as explained below.  Use the
+"syn" protocol instead the "tcp" protocol to determine reachability
+of multiple destinations simultaneously by sending parallel TCP
+SYN packets.  It will not block while testing each remote host.
+demo/fping is provided in this distribution to demonstrate the
+"syn" protocol as an example.
+This protocol does not require any special privileges.
+
+=head2 Functions
+
+=over 4
+
+=item Net::Ping->new([$proto [, $def_timeout [, $bytes [, $device [, $tos [, $ttl ]]]]]]);
+
+Create a new ping object.  All of the parameters are optional.  $proto
+specifies the protocol to use when doing a ping.  The current choices
+are "tcp", "udp", "icmp", "stream", "syn", or "external".
+The default is "tcp".
+
+If a default timeout ($def_timeout) in seconds is provided, it is used
+when a timeout is not given to the ping() method (below).  The timeout
+must be greater than 0 and the default, if not specified, is 5 seconds.
+
+If the number of data bytes ($bytes) is given, that many data bytes
+are included in the ping packet sent to the remote host. The number of
+data bytes is ignored if the protocol is "tcp".  The minimum (and
+default) number of data bytes is 1 if the protocol is "udp" and 0
+otherwise.  The maximum number of data bytes that can be specified is
+1024.
+
+If $device is given, this device is used to bind the source endpoint
+before sending the ping packet.  I believe this only works with
+superuser privileges and with udp and icmp protocols at this time.
+
+If $tos is given, this ToS is configured into the socket.
+
+For icmp, $ttl can be specified to set the TTL of the outgoing packet.
+
+=item $p->ping($host [, $timeout]);
+
+Ping the remote host and wait for a response.  $host can be either the
+hostname or the IP number of the remote host.  The optional timeout
+must be greater than 0 seconds and defaults to whatever was specified
+when the ping object was created.  Returns a success flag.  If the
+hostname cannot be found or there is a problem with the IP number, the
+success flag returned will be undef.  Otherwise, the success flag will
+be 1 if the host is reachable and 0 if it is not.  For most practical
+purposes, undef and 0 and can be treated as the same case.  In array
+context, the elapsed time as well as the string form of the ip the
+host resolved to are also returned.  The elapsed time value will
+be a float, as returned by the Time::HiRes::time() function, if hires()
+has been previously called, otherwise it is returned as an integer.
+
+=item $p->source_verify( { 0 | 1 } );
+
+Allows source endpoint verification to be enabled or disabled.
+This is useful for those remote destinations with multiples
+interfaces where the response may not originate from the same
+endpoint that the original destination endpoint was sent to.
+This only affects udp and icmp protocol pings.
+
+This is enabled by default.
+
+=item $p->service_check( { 0 | 1 } );
+
+Set whether or not the connect behavior should enforce
+remote service availability as well as reachability.  Normally,
+if the remote server reported ECONNREFUSED, it must have been
+reachable because of the status packet that it reported.
+With this option enabled, the full three-way tcp handshake
+must have been established successfully before it will
+claim it is reachable.  NOTE:  It still does nothing more
+than connect and disconnect.  It does not speak any protocol
+(i.e., HTTP or FTP) to ensure the remote server is sane in
+any way.  The remote server CPU could be grinding to a halt
+and unresponsive to any clients connecting, but if the kernel
+throws the ACK packet, it is considered alive anyway.  To
+really determine if the server is responding well would be
+application specific and is beyond the scope of Net::Ping.
+For udp protocol, enabling this option demands that the
+remote server replies with the same udp data that it was sent
+as defined by the udp echo service.
+
+This affects the "udp", "tcp", and "syn" protocols.
+
+This is disabled by default.
+
+=item $p->tcp_service_check( { 0 | 1 } );
+
+Deprecated method, but does the same as service_check() method.
+
+=item $p->hires( { 0 | 1 } );
+
+Causes this module to use Time::HiRes module, allowing milliseconds
+to be returned by subsequent calls to ping().
+
+This is disabled by default.
+
+=item $p->bind($local_addr);
+
+Sets the source address from which pings will be sent.  This must be
+the address of one of the interfaces on the local host.  $local_addr
+may be specified as a hostname or as a text IP address such as
+"192.168.1.1".
+
+If the protocol is set to "tcp", this method may be called any
+number of times, and each call to the ping() method (below) will use
+the most recent $local_addr.  If the protocol is "icmp" or "udp",
+then bind() must be called at most once per object, and (if it is
+called at all) must be called before the first call to ping() for that
+object.
+
+=item $p->open($host);
+
+When you are using the "stream" protocol, this call pre-opens the
+tcp socket.  It's only necessary to do this if you want to
+provide a different timeout when creating the connection, or
+remove the overhead of establishing the connection from the
+first ping.  If you don't call C<open()>, the connection is
+automatically opened the first time C<ping()> is called.
+This call simply does nothing if you are using any protocol other
+than stream.
+
+=item $p->ack( [ $host ] );
+
+When using the "syn" protocol, use this method to determine
+the reachability of the remote host.  This method is meant
+to be called up to as many times as ping() was called.  Each
+call returns the host (as passed to ping()) that came back
+with the TCP ACK.  The order in which the hosts are returned
+may not necessarily be the same order in which they were
+SYN queued using the ping() method.  If the timeout is
+reached before the TCP ACK is received, or if the remote
+host is not listening on the port attempted, then the TCP
+connection will not be established and ack() will return
+undef.  In list context, the host, the ack time, and the
+dotted ip string will be returned instead of just the host.
+If the optional $host argument is specified, the return
+value will be pertaining to that host only.
+This call simply does nothing if you are using any protocol
+other than syn.
+
+=item $p->nack( $failed_ack_host );
+
+The reason that host $failed_ack_host did not receive a
+valid ACK.  Useful to find out why when ack( $fail_ack_host )
+returns a false value.
+
+=item $p->close();
+
+Close the network connection for this ping object.  The network
+connection is also closed by "undef $p".  The network connection is
+automatically closed if the ping object goes out of scope (e.g. $p is
+local to a subroutine and you leave the subroutine).
+
+=item $p->port_number([$port_number])
+
+When called with a port number, the port number used to ping is set to
+$port_number rather than using the echo port.  It also has the effect
+of calling C<$p-E<gt>service_check(1)> causing a ping to return a successful
+response only if that specific port is accessible.  This function returns
+the value of the port that C<ping()> will connect to.
+
+=item pingecho($host [, $timeout]);
+
+To provide backward compatibility with the previous version of
+Net::Ping, a pingecho() subroutine is available with the same
+functionality as before.  pingecho() uses the tcp protocol.  The
+return values and parameters are the same as described for the ping()
+method.  This subroutine is obsolete and may be removed in a future
+version of Net::Ping.
+
+=back
+
+=head1 NOTES
+
+There will be less network overhead (and some efficiency in your
+program) if you specify either the udp or the icmp protocol.  The tcp
+protocol will generate 2.5 times or more traffic for each ping than
+either udp or icmp.  If many hosts are pinged frequently, you may wish
+to implement a small wait (e.g. 25ms or more) between each ping to
+avoid flooding your network with packets.
+
+The icmp protocol requires that the program be run as root or that it
+be setuid to root.  The other protocols do not require special
+privileges, but not all network devices implement tcp or udp echo.
+
+Local hosts should normally respond to pings within milliseconds.
+However, on a very congested network it may take up to 3 seconds or
+longer to receive an echo packet from the remote host.  If the timeout
+is set too low under these conditions, it will appear that the remote
+host is not reachable (which is almost the truth).
+
+Reachability doesn't necessarily mean that the remote host is actually
+functioning beyond its ability to echo packets.  tcp is slightly better
+at indicating the health of a system than icmp because it uses more
+of the networking stack to respond.
+
+Because of a lack of anything better, this module uses its own
+routines to pack and unpack ICMP packets.  It would be better for a
+separate module to be written which understands all of the different
+kinds of ICMP packets.
+
+=head1 INSTALL
+
+The latest source tree is available via cvs:
+
+  cvs -z3 -q -d \
+    :pserver:anonymous@cvs.roobik.com.:/usr/local/cvsroot/freeware \
+    checkout Net-Ping
+  cd Net-Ping
+
+The tarball can be created as follows:
+
+  perl Makefile.PL ; make ; make dist
+
+The latest Net::Ping release can be found at CPAN:
+
+  $CPAN/modules/by-module/Net/
+
+1) Extract the tarball
+
+  gtar -zxvf Net-Ping-xxxx.tar.gz
+  cd Net-Ping-xxxx
+
+2) Build:
+
+  make realclean
+  perl Makefile.PL
+  make
+  make test
+
+3) Install
+
+  make install
+
+Or install it RPM Style:
+
+  rpm -ta SOURCES/Net-Ping-xxxx.tar.gz
+
+  rpm -ih RPMS/noarch/perl-Net-Ping-xxxx.rpm
+
+=head1 BUGS
+
+For a list of known issues, visit:
+
+https://rt.cpan.org/NoAuth/Bugs.html?Dist=Net-Ping
+
+To report a new bug, visit:
+
+https://rt.cpan.org/NoAuth/ReportBug.html?Queue=Net-Ping
+
+=head1 AUTHORS
+
+  Current maintainer:
+    bbb@cpan.org (Rob Brown)
+
+  External protocol:
+    colinm@cpan.org (Colin McMillen)
+
+  Stream protocol:
+    bronson@trestle.com (Scott Bronson)
+
+  Original pingecho():
+    karrer@bernina.ethz.ch (Andreas Karrer)
+    pmarquess@bfsec.bt.co.uk (Paul Marquess)
+
+  Original Net::Ping author:
+    mose@ns.ccsn.edu (Russell Mosemann)
+
+=head1 COPYRIGHT
+
+Copyright (c) 2002-2003, Rob Brown.  All rights reserved.
+
+Copyright (c) 2001, Colin McMillen.  All rights reserved.
+
+This program is free software; you may redistribute it and/or
+modify it under the same terms as Perl itself.
+
+=cut
diff --git a/lib/5.24.1/Net/SMTP.pm b/lib/5.24.1/Net/SMTP.pm
new file mode 100644
index 00000000..0130a2fd
--- /dev/null
+++ b/lib/5.24.1/Net/SMTP.pm
@@ -0,0 +1,1042 @@
+# Net::SMTP.pm
+#
+# Versions up to 2.31_1 Copyright (c) 1995-2004 Graham Barr <gbarr@pobox.com>.
+# All rights reserved.
+# Changes in Version 2.31_2 onwards Copyright (C) 2013-2015 Steve Hay.  All
+# rights reserved.
+# This module is free software; you can redistribute it and/or modify it under
+# the same terms as Perl itself, i.e. under the terms of either the GNU General
+# Public License or the Artistic License, as specified in the F<LICENCE> file.
+
+package Net::SMTP;
+
+use 5.008001;
+
+use strict;
+use warnings;
+
+use Carp;
+use IO::Socket;
+use Net::Cmd;
+use Net::Config;
+use Socket;
+
+our $VERSION = "3.08_01";
+
+# Code for detecting if we can use SSL
+my $ssl_class = eval {
+  require IO::Socket::SSL;
+  # first version with default CA on most platforms
+  no warnings 'numeric';
+  IO::Socket::SSL->VERSION(2.007);
+} && 'IO::Socket::SSL';
+
+my $nossl_warn = !$ssl_class &&
+  'To use SSL please install IO::Socket::SSL with version>=2.007';
+
+# Code for detecting if we can use IPv6
+my $family_key = 'Domain';
+my $inet6_class = eval {
+  require IO::Socket::IP;
+  no warnings 'numeric';
+  IO::Socket::IP->VERSION(0.20) || die;
+  $family_key = 'Family';
+} && 'IO::Socket::IP' || eval {
+  require IO::Socket::INET6;
+  no warnings 'numeric';
+  IO::Socket::INET6->VERSION(2.62);
+} && 'IO::Socket::INET6';
+
+sub can_ssl   { $ssl_class };
+sub can_inet6 { $inet6_class };
+
+our @ISA = ('Net::Cmd', $inet6_class || 'IO::Socket::INET');
+
+sub new {
+  my $self = shift;
+  my $type = ref($self) || $self;
+  my ($host, %arg);
+  if (@_ % 2) {
+    $host = shift;
+    %arg  = @_;
+  }
+  else {
+    %arg  = @_;
+    $host = delete $arg{Host};
+  }
+
+  if ($arg{SSL}) {
+    # SSL from start
+    die $nossl_warn if !$ssl_class;
+    $arg{Port} ||= 465;
+  }
+
+  my $hosts = defined $host ? $host : $NetConfig{smtp_hosts};
+  my $obj;
+
+  $arg{Timeout} = 120 if ! defined $arg{Timeout};
+
+  foreach my $h (@{ref($hosts) ? $hosts : [$hosts]}) {
+    $obj = $type->SUPER::new(
+      PeerAddr => ($host = $h),
+      PeerPort => $arg{Port} || 'smtp(25)',
+      LocalAddr => $arg{LocalAddr},
+      LocalPort => $arg{LocalPort},
+      $family_key => $arg{Domain} || $arg{Family},
+      Proto     => 'tcp',
+      Timeout   => $arg{Timeout}
+      )
+      and last;
+  }
+
+  return
+    unless defined $obj;
+
+  ${*$obj}{'net_smtp_arg'} = \%arg;
+  ${*$obj}{'net_smtp_host'} = $host;
+
+  if ($arg{SSL}) {
+    Net::SMTP::_SSL->start_SSL($obj,%arg)
+      or return;
+  }
+
+  $obj->autoflush(1);
+
+  $obj->debug(exists $arg{Debug} ? $arg{Debug} : undef);
+
+  unless ($obj->response() == CMD_OK) {
+    my $err = ref($obj) . ": " . $obj->code . " " . $obj->message;
+    $obj->close();
+    $@ = $err;
+    return;
+  }
+
+  ${*$obj}{'net_smtp_exact_addr'} = $arg{ExactAddresses};
+
+  (${*$obj}{'net_smtp_banner'}) = $obj->message;
+  (${*$obj}{'net_smtp_domain'}) = $obj->message =~ /\A\s*(\S+)/;
+
+  if (!exists $arg{SendHello} || $arg{SendHello}) {
+    unless ($obj->hello($arg{Hello} || "")) {
+      my $err = ref($obj) . ": " . $obj->code . " " . $obj->message;
+      $obj->close();
+      $@ = $err;
+      return;
+    }
+  }
+
+  $obj;
+}
+
+
+sub host {
+  my $me = shift;
+  ${*$me}{'net_smtp_host'};
+}
+
+##
+## User interface methods
+##
+
+
+sub banner {
+  my $me = shift;
+
+  return ${*$me}{'net_smtp_banner'} || undef;
+}
+
+
+sub domain {
+  my $me = shift;
+
+  return ${*$me}{'net_smtp_domain'} || undef;
+}
+
+
+sub etrn {
+  my $self = shift;
+  defined($self->supports('ETRN', 500, ["Command unknown: 'ETRN'"]))
+    && $self->_ETRN(@_);
+}
+
+
+sub auth {
+  my ($self, $username, $password) = @_;
+
+  eval {
+    require MIME::Base64;
+    require Authen::SASL;
+  } or $self->set_status(500, ["Need MIME::Base64 and Authen::SASL todo auth"]), return 0;
+
+  my $mechanisms = $self->supports('AUTH', 500, ["Command unknown: 'AUTH'"]);
+  return unless defined $mechanisms;
+
+  my $sasl;
+
+  if (ref($username) and UNIVERSAL::isa($username, 'Authen::SASL')) {
+    $sasl = $username;
+    my $requested_mechanisms = $sasl->mechanism();
+    if (! defined($requested_mechanisms) || $requested_mechanisms eq '') {
+      $sasl->mechanism($mechanisms);
+    }
+  }
+  else {
+    die "auth(username, password)" if not length $username;
+    $sasl = Authen::SASL->new(
+      mechanism => $mechanisms,
+      callback  => {
+        user     => $username,
+        pass     => $password,
+        authname => $username,
+      },
+      debug => $self->debug
+    );
+  }
+
+  my $client;
+  my $str;
+  do {
+    if ($client) {
+      # $client mechanism failed, so we need to exclude this mechanism from list
+      my $failed_mechanism = $client->mechanism;
+      return unless defined $failed_mechanism;
+      $self->debug_text("Auth mechanism failed: $failed_mechanism")
+        if $self->debug;
+      $mechanisms =~ s/\b\Q$failed_mechanism\E\b//;
+      return unless $mechanisms =~ /\S/;
+      $sasl->mechanism($mechanisms);
+    }
+    
+    # We should probably allow the user to pass the host, but I don't
+    # currently know and SASL mechanisms that are used by smtp that need it
+
+    $client = $sasl->client_new('smtp', ${*$self}{'net_smtp_host'}, 0);
+    $str    = $client->client_start;
+  } while (!defined $str);
+
+  # We don't support sasl mechanisms that encrypt the socket traffic.
+  # todo that we would really need to change the ISA hierarchy
+  # so we don't inherit from IO::Socket, but instead hold it in an attribute
+
+  my @cmd = ("AUTH", $client->mechanism);
+  my $code;
+
+  push @cmd, MIME::Base64::encode_base64($str, '')
+    if defined $str and length $str;
+
+  while (($code = $self->command(@cmd)->response()) == CMD_MORE) {
+    @cmd = (
+      MIME::Base64::encode_base64(
+        $client->client_step(MIME::Base64::decode_base64(($self->message)[0])), ''
+      )
+    );
+  }
+
+  $code == CMD_OK;
+}
+
+
+sub hello {
+  my $me     = shift;
+  my $domain = shift || "localhost.localdomain";
+  my $ok     = $me->_EHLO($domain);
+  my @msg    = $me->message;
+
+  if ($ok) {
+    my $h = ${*$me}{'net_smtp_esmtp'} = {};
+    foreach my $ln (@msg) {
+      $h->{uc $1} = $2
+        if $ln =~ /([-\w]+)\b[= \t]*([^\n]*)/;
+    }
+  }
+  elsif ($me->status == CMD_ERROR) {
+    @msg = $me->message
+      if $ok = $me->_HELO($domain);
+  }
+
+  return unless $ok;
+  ${*$me}{net_smtp_hello_domain} = $domain;
+
+  $msg[0] =~ /\A\s*(\S+)/;
+  return ($1 || " ");
+}
+
+sub starttls {
+  my $self = shift;
+  $ssl_class or die $nossl_warn;
+  $self->_STARTTLS or return;
+  Net::SMTP::_SSL->start_SSL($self,
+    %{ ${*$self}{'net_smtp_arg'} }, # (ssl) args given in new
+    @_   # more (ssl) args
+  ) or return;
+
+  # another hello after starttls to read new ESMTP capabilities
+  return $self->hello(${*$self}{net_smtp_hello_domain});
+}
+
+
+sub supports {
+  my $self = shift;
+  my $cmd  = uc shift;
+  return ${*$self}{'net_smtp_esmtp'}->{$cmd}
+    if exists ${*$self}{'net_smtp_esmtp'}->{$cmd};
+  $self->set_status(@_)
+    if @_;
+  return;
+}
+
+
+sub _addr {
+  my $self = shift;
+  my $addr = shift;
+  $addr = "" unless defined $addr;
+
+  if (${*$self}{'net_smtp_exact_addr'}) {
+    return $1 if $addr =~ /^\s*(<.*>)\s*$/s;
+  }
+  else {
+    return $1 if $addr =~ /(<[^>]*>)/;
+    $addr =~ s/^\s+|\s+$//sg;
+  }
+
+  "<$addr>";
+}
+
+
+sub mail {
+  my $me   = shift;
+  my $addr = _addr($me, shift);
+  my $opts = "";
+
+  if (@_) {
+    my %opt = @_;
+    my ($k, $v);
+
+    if (exists ${*$me}{'net_smtp_esmtp'}) {
+      my $esmtp = ${*$me}{'net_smtp_esmtp'};
+
+      if (defined($v = delete $opt{Size})) {
+        if (exists $esmtp->{SIZE}) {
+          $opts .= sprintf " SIZE=%d", $v + 0;
+        }
+        else {
+          carp 'Net::SMTP::mail: SIZE option not supported by host';
+        }
+      }
+
+      if (defined($v = delete $opt{Return})) {
+        if (exists $esmtp->{DSN}) {
+          $opts .= " RET=" . ((uc($v) eq "FULL") ? "FULL" : "HDRS");
+        }
+        else {
+          carp 'Net::SMTP::mail: DSN option not supported by host';
+        }
+      }
+
+      if (defined($v = delete $opt{Bits})) {
+        if ($v eq "8") {
+          if (exists $esmtp->{'8BITMIME'}) {
+            $opts .= " BODY=8BITMIME";
+          }
+          else {
+            carp 'Net::SMTP::mail: 8BITMIME option not supported by host';
+          }
+        }
+        elsif ($v eq "binary") {
+          if (exists $esmtp->{'BINARYMIME'} && exists $esmtp->{'CHUNKING'}) {
+            $opts .= " BODY=BINARYMIME";
+            ${*$me}{'net_smtp_chunking'} = 1;
+          }
+          else {
+            carp 'Net::SMTP::mail: BINARYMIME option not supported by host';
+          }
+        }
+        elsif (exists $esmtp->{'8BITMIME'} or exists $esmtp->{'BINARYMIME'}) {
+          $opts .= " BODY=7BIT";
+        }
+        else {
+          carp 'Net::SMTP::mail: 8BITMIME and BINARYMIME options not supported by host';
+        }
+      }
+
+      if (defined($v = delete $opt{Transaction})) {
+        if (exists $esmtp->{CHECKPOINT}) {
+          $opts .= " TRANSID=" . _addr($me, $v);
+        }
+        else {
+          carp 'Net::SMTP::mail: CHECKPOINT option not supported by host';
+        }
+      }
+
+      if (defined($v = delete $opt{Envelope})) {
+        if (exists $esmtp->{DSN}) {
+          $v =~ s/([^\041-\176]|=|\+)/sprintf "+%02X", ord($1)/sge;
+          $opts .= " ENVID=$v";
+        }
+        else {
+          carp 'Net::SMTP::mail: DSN option not supported by host';
+        }
+      }
+
+      if (defined($v = delete $opt{ENVID})) {
+
+        # expected to be in a format as required by RFC 3461, xtext-encoded
+        if (exists $esmtp->{DSN}) {
+          $opts .= " ENVID=$v";
+        }
+        else {
+          carp 'Net::SMTP::mail: DSN option not supported by host';
+        }
+      }
+
+      if (defined($v = delete $opt{AUTH})) {
+
+        # expected to be in a format as required by RFC 2554,
+        # rfc2821-quoted and xtext-encoded, or <>
+        if (exists $esmtp->{AUTH}) {
+          $v = '<>' if !defined($v) || $v eq '';
+          $opts .= " AUTH=$v";
+        }
+        else {
+          carp 'Net::SMTP::mail: AUTH option not supported by host';
+        }
+      }
+
+      if (defined($v = delete $opt{XVERP})) {
+        if (exists $esmtp->{'XVERP'}) {
+          $opts .= " XVERP";
+        }
+        else {
+          carp 'Net::SMTP::mail: XVERP option not supported by host';
+        }
+      }
+
+      carp 'Net::SMTP::recipient: unknown option(s) ' . join(" ", keys %opt) . ' - ignored'
+        if scalar keys %opt;
+    }
+    else {
+      carp 'Net::SMTP::mail: ESMTP not supported by host - options discarded :-(';
+    }
+  }
+
+  $me->_MAIL("FROM:" . $addr . $opts);
+}
+
+
+sub send          { my $me = shift; $me->_SEND("FROM:" . _addr($me, $_[0])) }
+sub send_or_mail  { my $me = shift; $me->_SOML("FROM:" . _addr($me, $_[0])) }
+sub send_and_mail { my $me = shift; $me->_SAML("FROM:" . _addr($me, $_[0])) }
+
+
+sub reset {
+  my $me = shift;
+
+  $me->dataend()
+    if (exists ${*$me}{'net_smtp_lastch'});
+
+  $me->_RSET();
+}
+
+
+sub recipient {
+  my $smtp     = shift;
+  my $opts     = "";
+  my $skip_bad = 0;
+
+  if (@_ && ref($_[-1])) {
+    my %opt = %{pop(@_)};
+    my $v;
+
+    $skip_bad = delete $opt{'SkipBad'};
+
+    if (exists ${*$smtp}{'net_smtp_esmtp'}) {
+      my $esmtp = ${*$smtp}{'net_smtp_esmtp'};
+
+      if (defined($v = delete $opt{Notify})) {
+        if (exists $esmtp->{DSN}) {
+          $opts .= " NOTIFY=" . join(",", map { uc $_ } @$v);
+        }
+        else {
+          carp 'Net::SMTP::recipient: DSN option not supported by host';
+        }
+      }
+
+      if (defined($v = delete $opt{ORcpt})) {
+        if (exists $esmtp->{DSN}) {
+          $opts .= " ORCPT=" . $v;
+        }
+        else {
+          carp 'Net::SMTP::recipient: DSN option not supported by host';
+        }
+      }
+
+      carp 'Net::SMTP::recipient: unknown option(s) ' . join(" ", keys %opt) . ' - ignored'
+        if scalar keys %opt;
+    }
+    elsif (%opt) {
+      carp 'Net::SMTP::recipient: ESMTP not supported by host - options discarded :-(';
+    }
+  }
+
+  my @ok;
+  foreach my $addr (@_) {
+    if ($smtp->_RCPT("TO:" . _addr($smtp, $addr) . $opts)) {
+      push(@ok, $addr) if $skip_bad;
+    }
+    elsif (!$skip_bad) {
+      return 0;
+    }
+  }
+
+  return $skip_bad ? @ok : 1;
+}
+
+BEGIN {
+  *to  = \&recipient;
+  *cc  = \&recipient;
+  *bcc = \&recipient;
+}
+
+
+sub data {
+  my $me = shift;
+
+  if (exists ${*$me}{'net_smtp_chunking'}) {
+    carp 'Net::SMTP::data: CHUNKING extension in use, must call bdat instead';
+  }
+  else {
+    my $ok = $me->_DATA() && $me->datasend(@_);
+
+    $ok && @_
+      ? $me->dataend
+      : $ok;
+  }
+}
+
+
+sub bdat {
+  my $me = shift;
+
+  if (exists ${*$me}{'net_smtp_chunking'}) {
+    my $data = shift;
+
+    $me->_BDAT(length $data)
+      && $me->rawdatasend($data)
+      && $me->response() == CMD_OK;
+  }
+  else {
+    carp 'Net::SMTP::bdat: CHUNKING extension is not in use, call data instead';
+  }
+}
+
+
+sub bdatlast {
+  my $me = shift;
+
+  if (exists ${*$me}{'net_smtp_chunking'}) {
+    my $data = shift;
+
+    $me->_BDAT(length $data, "LAST")
+      && $me->rawdatasend($data)
+      && $me->response() == CMD_OK;
+  }
+  else {
+    carp 'Net::SMTP::bdat: CHUNKING extension is not in use, call data instead';
+  }
+}
+
+
+sub datafh {
+  my $me = shift;
+  return unless $me->_DATA();
+  return $me->tied_fh;
+}
+
+
+sub expand {
+  my $me = shift;
+
+  $me->_EXPN(@_)
+    ? ($me->message)
+    : ();
+}
+
+
+sub verify { shift->_VRFY(@_) }
+
+
+sub help {
+  my $me = shift;
+
+  $me->_HELP(@_)
+    ? scalar $me->message
+    : undef;
+}
+
+
+sub quit {
+  my $me = shift;
+
+  $me->_QUIT;
+  $me->close;
+}
+
+
+sub DESTROY {
+
+  # ignore
+}
+
+##
+## RFC821 commands
+##
+
+
+sub _EHLO { shift->command("EHLO", @_)->response() == CMD_OK }
+sub _HELO { shift->command("HELO", @_)->response() == CMD_OK }
+sub _MAIL { shift->command("MAIL", @_)->response() == CMD_OK }
+sub _RCPT { shift->command("RCPT", @_)->response() == CMD_OK }
+sub _SEND { shift->command("SEND", @_)->response() == CMD_OK }
+sub _SAML { shift->command("SAML", @_)->response() == CMD_OK }
+sub _SOML { shift->command("SOML", @_)->response() == CMD_OK }
+sub _VRFY { shift->command("VRFY", @_)->response() == CMD_OK }
+sub _EXPN { shift->command("EXPN", @_)->response() == CMD_OK }
+sub _HELP { shift->command("HELP", @_)->response() == CMD_OK }
+sub _RSET { shift->command("RSET")->response() == CMD_OK }
+sub _NOOP { shift->command("NOOP")->response() == CMD_OK }
+sub _QUIT { shift->command("QUIT")->response() == CMD_OK }
+sub _DATA { shift->command("DATA")->response() == CMD_MORE }
+sub _BDAT { shift->command("BDAT", @_) }
+sub _TURN { shift->unsupported(@_); }
+sub _ETRN { shift->command("ETRN", @_)->response() == CMD_OK }
+sub _AUTH { shift->command("AUTH", @_)->response() == CMD_OK }
+sub _STARTTLS { shift->command("STARTTLS")->response() == CMD_OK }
+
+
+{
+  package Net::SMTP::_SSL;
+  our @ISA = ( $ssl_class ? ($ssl_class):(), 'Net::SMTP' );
+  sub starttls { die "SMTP connection is already in SSL mode" }
+  sub start_SSL {
+    my ($class,$smtp,%arg) = @_;
+    delete @arg{ grep { !m{^SSL_} } keys %arg };
+    ( $arg{SSL_verifycn_name} ||= $smtp->host )
+        =~s{(?<!:):[\w()]+$}{}; # strip port
+    $arg{SSL_hostname} = $arg{SSL_verifycn_name}
+        if ! defined $arg{SSL_hostname} && $class->can_client_sni;
+    $arg{SSL_verifycn_scheme} ||= 'smtp';
+    my $ok = $class->SUPER::start_SSL($smtp,%arg);
+    $@ = $ssl_class->errstr if !$ok;
+    return $ok;
+  }
+}
+
+
+
+1;
+
+__END__
+
+=head1 NAME
+
+Net::SMTP - Simple Mail Transfer Protocol Client
+
+=head1 SYNOPSIS
+
+    use Net::SMTP;
+
+    # Constructors
+    $smtp = Net::SMTP->new('mailhost');
+    $smtp = Net::SMTP->new('mailhost', Timeout => 60);
+
+=head1 DESCRIPTION
+
+This module implements a client interface to the SMTP and ESMTP
+protocol, enabling a perl5 application to talk to SMTP servers. This
+documentation assumes that you are familiar with the concepts of the
+SMTP protocol described in RFC2821.
+With L<IO::Socket::SSL> installed it also provides support for implicit and
+explicit TLS encryption, i.e. SMTPS or SMTP+STARTTLS.
+
+The Net::SMTP class is a subclass of Net::Cmd and (depending on avaibility) of
+IO::Socket::IP, IO::Socket::INET6 or IO::Socket::INET.
+
+=head1 EXAMPLES
+
+This example prints the mail domain name of the SMTP server known as mailhost:
+
+    #!/usr/local/bin/perl -w
+
+    use Net::SMTP;
+
+    $smtp = Net::SMTP->new('mailhost');
+    print $smtp->domain,"\n";
+    $smtp->quit;
+
+This example sends a small message to the postmaster at the SMTP server
+known as mailhost:
+
+    #!/usr/local/bin/perl -w
+
+    use Net::SMTP;
+
+    my $smtp = Net::SMTP->new('mailhost');
+
+    $smtp->mail($ENV{USER});
+    if ($smtp->to('postmaster')) {
+     $smtp->data();
+     $smtp->datasend("To: postmaster\n");
+     $smtp->datasend("\n");
+     $smtp->datasend("A simple test message\n");
+     $smtp->dataend();
+    } else {
+     print "Error: ", $smtp->message();
+    }
+
+    $smtp->quit;
+
+=head1 CONSTRUCTOR
+
+=over 4
+
+=item new ( [ HOST ] [, OPTIONS ] )
+
+This is the constructor for a new Net::SMTP object. C<HOST> is the
+name of the remote host to which an SMTP connection is required.
+
+On failure C<undef> will be returned and C<$@> will contain the reason
+for the failure.
+
+C<HOST> is optional. If C<HOST> is not given then it may instead be
+passed as the C<Host> option described below. If neither is given then
+the C<SMTP_Hosts> specified in C<Net::Config> will be used.
+
+C<OPTIONS> are passed in a hash like fashion, using key and value pairs.
+Possible options are:
+
+B<Hello> - SMTP requires that you identify yourself. This option
+specifies a string to pass as your mail domain. If not given localhost.localdomain
+will be used.
+
+B<SendHello> - If false then the EHLO (or HELO) command that is normally sent
+when constructing the object will not be sent. In that case the command will
+have to be sent manually by calling C<hello()> instead.
+
+B<Host> - SMTP host to connect to. It may be a single scalar (hostname[:port]),
+as defined for the C<PeerAddr> option in L<IO::Socket::INET>, or a reference to
+an array with hosts to try in turn. The L</host> method will return the value
+which was used to connect to the host.
+Format - C<PeerHost> from L<IO::Socket::INET> new method.
+
+B<Port> - port to connect to.
+Default - 25 for plain SMTP and 465 for immediate SSL.
+
+B<SSL> - If the connection should be done from start with SSL, contrary to later
+upgrade with C<starttls>.
+You can use SSL arguments as documented in L<IO::Socket::SSL>, but it will
+usually use the right arguments already.
+
+B<LocalAddr> and B<LocalPort> - These parameters are passed directly
+to IO::Socket to allow binding the socket to a specific local address and port.
+
+B<Domain> - This parameter is passed directly to IO::Socket and makes it
+possible to enforce IPv4 connections even if L<IO::Socket::IP> is used as super
+class. Alternatively B<Family> can be used.
+
+B<Timeout> - Maximum time, in seconds, to wait for a response from the
+SMTP server (default: 120)
+
+B<ExactAddresses> - If true the all ADDRESS arguments must be as
+defined by C<addr-spec> in RFC2822. If not given, or false, then
+Net::SMTP will attempt to extract the address from the value passed.
+
+B<Debug> - Enable debugging information
+
+
+Example:
+
+
+    $smtp = Net::SMTP->new('mailhost',
+                           Hello => 'my.mail.domain',
+                           Timeout => 30,
+                           Debug   => 1,
+                          );
+
+    # the same
+    $smtp = Net::SMTP->new(
+                           Host => 'mailhost',
+                           Hello => 'my.mail.domain',
+                           Timeout => 30,
+                           Debug   => 1,
+                          );
+
+    # the same with direct SSL
+    $smtp = Net::SMTP->new('mailhost',
+                           Hello => 'my.mail.domain',
+                           Timeout => 30,
+                           Debug   => 1,
+                           SSL     => 1,
+                          );
+
+    # Connect to the default server from Net::config
+    $smtp = Net::SMTP->new(
+                           Hello => 'my.mail.domain',
+                           Timeout => 30,
+                          );
+
+=back
+
+=head1 METHODS
+
+Unless otherwise stated all methods return either a I<true> or I<false>
+value, with I<true> meaning that the operation was a success. When a method
+states that it returns a value, failure will be returned as I<undef> or an
+empty list.
+
+C<Net::SMTP> inherits from C<Net::Cmd> so methods defined in C<Net::Cmd> may
+be used to send commands to the remote SMTP server in addition to the methods
+documented here.
+
+=over 4
+
+=item banner ()
+
+Returns the banner message which the server replied with when the
+initial connection was made.
+
+=item domain ()
+
+Returns the domain that the remote SMTP server identified itself as during
+connection.
+
+=item hello ( DOMAIN )
+
+Tell the remote server the mail domain which you are in using the EHLO
+command (or HELO if EHLO fails).  Since this method is invoked
+automatically when the Net::SMTP object is constructed the user should
+normally not have to call it manually.
+
+=item host ()
+
+Returns the value used by the constructor, and passed to IO::Socket::INET,
+to connect to the host.
+
+=item etrn ( DOMAIN )
+
+Request a queue run for the DOMAIN given.
+
+=item starttls ( SSLARGS )
+
+Upgrade existing plain connection to SSL.
+You can use SSL arguments as documented in L<IO::Socket::SSL>, but it will
+usually use the right arguments already.
+
+=item auth ( USERNAME, PASSWORD )
+
+=item auth ( SASL )
+
+Attempt SASL authentication. Requires Authen::SASL module. The first form
+constructs a new Authen::SASL object using the given username and password;
+the second form uses the given Authen::SASL object.
+
+=item mail ( ADDRESS [, OPTIONS] )
+
+=item send ( ADDRESS )
+
+=item send_or_mail ( ADDRESS )
+
+=item send_and_mail ( ADDRESS )
+
+Send the appropriate command to the server MAIL, SEND, SOML or SAML. C<ADDRESS>
+is the address of the sender. This initiates the sending of a message. The
+method C<recipient> should be called for each address that the message is to
+be sent to.
+
+The C<mail> method can some additional ESMTP OPTIONS which is passed
+in hash like fashion, using key and value pairs.  Possible options are:
+
+ Size        => <bytes>
+ Return      => "FULL" | "HDRS"
+ Bits        => "7" | "8" | "binary"
+ Transaction => <ADDRESS>
+ Envelope    => <ENVID>     # xtext-encodes its argument
+ ENVID       => <ENVID>     # similar to Envelope, but expects argument encoded
+ XVERP       => 1
+ AUTH        => <submitter> # encoded address according to RFC 2554
+
+The C<Return> and C<Envelope> parameters are used for DSN (Delivery
+Status Notification).
+
+The submitter address in C<AUTH> option is expected to be in a format as
+required by RFC 2554, in an RFC2821-quoted form and xtext-encoded, or <> .
+
+=item reset ()
+
+Reset the status of the server. This may be called after a message has been 
+initiated, but before any data has been sent, to cancel the sending of the
+message.
+
+=item recipient ( ADDRESS [, ADDRESS, [...]] [, OPTIONS ] )
+
+Notify the server that the current message should be sent to all of the
+addresses given. Each address is sent as a separate command to the server.
+Should the sending of any address result in a failure then the process is
+aborted and a I<false> value is returned. It is up to the user to call
+C<reset> if they so desire.
+
+The C<recipient> method can also pass additional case-sensitive OPTIONS as an
+anonymous hash using key and value pairs.  Possible options are:
+
+  Notify  => ['NEVER'] or ['SUCCESS','FAILURE','DELAY']  (see below)
+  ORcpt   => <ORCPT>
+  SkipBad => 1        (to ignore bad addresses)
+
+If C<SkipBad> is true the C<recipient> will not return an error when a bad
+address is encountered and it will return an array of addresses that did
+succeed.
+
+  $smtp->recipient($recipient1,$recipient2);  # Good
+  $smtp->recipient($recipient1,$recipient2, { SkipBad => 1 });  # Good
+  $smtp->recipient($recipient1,$recipient2, { Notify => ['FAILURE','DELAY'], SkipBad => 1 });  # Good
+  @goodrecips=$smtp->recipient(@recipients, { Notify => ['FAILURE'], SkipBad => 1 });  # Good
+  $smtp->recipient("$recipient,$recipient2"); # BAD
+
+Notify is used to request Delivery Status Notifications (DSNs), but your
+SMTP/ESMTP service may not respect this request depending upon its version and
+your site's SMTP configuration.
+
+Leaving out the Notify option usually defaults an SMTP service to its default
+behavior equivalent to ['FAILURE'] notifications only, but again this may be
+dependent upon your site's SMTP configuration.
+
+The NEVER keyword must appear by itself if used within the Notify option and "requests
+that a DSN not be returned to the sender under any conditions."
+
+  {Notify => ['NEVER']}
+
+  $smtp->recipient(@recipients, { Notify => ['NEVER'], SkipBad => 1 });  # Good
+
+You may use any combination of these three values 'SUCCESS','FAILURE','DELAY' in
+the anonymous array reference as defined by RFC3461 (see http://www.ietf.org/rfc/rfc3461.txt
+for more information.  Note: quotations in this topic from same.).
+
+A Notify parameter of 'SUCCESS' or 'FAILURE' "requests that a DSN be issued on
+successful delivery or delivery failure, respectively."
+
+A Notify parameter of 'DELAY' "indicates the sender's willingness to receive
+delayed DSNs.  Delayed DSNs may be issued if delivery of a message has been
+delayed for an unusual amount of time (as determined by the Message Transfer
+Agent (MTA) at which the message is delayed), but the final delivery status
+(whether successful or failure) cannot be determined.  The absence of the DELAY
+keyword in a NOTIFY parameter requests that a "delayed" DSN NOT be issued under
+any conditions."
+
+  {Notify => ['SUCCESS','FAILURE','DELAY']}
+
+  $smtp->recipient(@recipients, { Notify => ['FAILURE','DELAY'], SkipBad => 1 });  # Good
+
+ORcpt is also part of the SMTP DSN extension according to RFC3461.
+It is used to pass along the original recipient that the mail was first
+sent to.  The machine that generates a DSN will use this address to inform
+the sender, because he can't know if recipients get rewritten by mail servers.
+It is expected to be in a format as required by RFC3461, xtext-encoded.
+
+=item to ( ADDRESS [, ADDRESS [...]] )
+
+=item cc ( ADDRESS [, ADDRESS [...]] )
+
+=item bcc ( ADDRESS [, ADDRESS [...]] )
+
+Synonyms for C<recipient>.
+
+=item data ( [ DATA ] )
+
+Initiate the sending of the data from the current message. 
+
+C<DATA> may be a reference to a list or a list and must be encoded by the
+caller to octets of whatever encoding is required, e.g. by using the Encode
+module's C<encode()> function.
+
+If specified the contents of C<DATA> and a termination string C<".\r\n"> is
+sent to the server. The result will be true if the data was accepted.
+
+If C<DATA> is not specified then the result will indicate that the server
+wishes the data to be sent. The data must then be sent using the C<datasend>
+and C<dataend> methods described in L<Net::Cmd>.
+
+=item bdat ( DATA )
+
+=item bdatlast ( DATA )
+
+Use the alternate DATA command "BDAT" of the data chunking service extension
+defined in RFC1830 for efficiently sending large MIME messages.
+
+=item expand ( ADDRESS )
+
+Request the server to expand the given address Returns an array
+which contains the text read from the server.
+
+=item verify ( ADDRESS )
+
+Verify that C<ADDRESS> is a legitimate mailing address.
+
+Most sites usually disable this feature in their SMTP service configuration.
+Use "Debug => 1" option under new() to see if disabled.
+
+=item help ( [ $subject ] )
+
+Request help text from the server. Returns the text or undef upon failure
+
+=item quit ()
+
+Send the QUIT command to the remote SMTP server and close the socket connection.
+
+=item can_inet6 ()
+
+Returns whether we can use IPv6.
+
+=item can_ssl ()
+
+Returns whether we can use SSL.
+
+=back
+
+=head1 ADDRESSES
+
+Net::SMTP attempts to DWIM with addresses that are passed. For
+example an application might extract The From: line from an email
+and pass that to mail(). While this may work, it is not recommended.
+The application should really use a module like L<Mail::Address>
+to extract the mail address and pass that.
+
+If C<ExactAddresses> is passed to the constructor, then addresses
+should be a valid rfc2821-quoted address, although Net::SMTP will
+accept the address surrounded by angle brackets.
+
+ funny user@domain      WRONG
+ "funny user"@domain    RIGHT, recommended
+ <"funny user"@domain>  OK
+
+=head1 SEE ALSO
+
+L<Net::Cmd>,
+L<IO::Socket::SSL>
+
+=head1 AUTHOR
+
+Graham Barr E<lt>F<gbarr@pobox.com>E<gt>
+
+Steve Hay E<lt>F<shay@cpan.org>E<gt> is now maintaining libnet as of version
+1.22_02
+
+=head1 COPYRIGHT
+
+Versions up to 2.31_1 Copyright (c) 1995-2004 Graham Barr. All rights reserved.
+Changes in Version 2.31_2 onwards Copyright (C) 2013-2015 Steve Hay.  All rights
+reserved.
+
+This module is free software; you can redistribute it and/or modify it under the
+same terms as Perl itself, i.e. under the terms of either the GNU General Public
+License or the Artistic License, as specified in the F<LICENCE> file.
+
+=cut
diff --git a/lib/5.24.1/Net/Time.pm b/lib/5.24.1/Net/Time.pm
new file mode 100644
index 00000000..6118ad19
--- /dev/null
+++ b/lib/5.24.1/Net/Time.pm
@@ -0,0 +1,164 @@
+# Net::Time.pm
+#
+# Versions up to 2.10 Copyright (c) 1995-2004 Graham Barr <gbarr@pobox.com>.
+# All rights reserved.
+# Changes in Version 2.11 onwards Copyright (C) 2014 Steve Hay.  All rights
+# reserved.
+# This module is free software; you can redistribute it and/or modify it under
+# the same terms as Perl itself, i.e. under the terms of either the GNU General
+# Public License or the Artistic License, as specified in the F<LICENCE> file.
+
+package Net::Time;
+
+use 5.008001;
+
+use strict;
+use warnings;
+
+use Carp;
+use Exporter;
+use IO::Select;
+use IO::Socket;
+use Net::Config;
+
+our @ISA       = qw(Exporter);
+our @EXPORT_OK = qw(inet_time inet_daytime);
+
+our $VERSION = "3.08_01";
+
+our $TIMEOUT = 120;
+
+sub _socket {
+  my ($pname, $pnum, $host, $proto, $timeout) = @_;
+
+  $proto ||= 'udp';
+
+  my $port = (getservbyname($pname, $proto))[2] || $pnum;
+
+  my $hosts = defined $host ? [$host] : $NetConfig{$pname . '_hosts'};
+
+  my $me;
+
+  foreach my $addr (@$hosts) {
+    $me = IO::Socket::INET->new(
+      PeerAddr => $addr,
+      PeerPort => $port,
+      Proto    => $proto
+      )
+      and last;
+  }
+
+  return unless $me;
+
+  $me->send("\n")
+    if $proto eq 'udp';
+
+  $timeout = $TIMEOUT
+    unless defined $timeout;
+
+  IO::Select->new($me)->can_read($timeout)
+    ? $me
+    : undef;
+}
+
+
+sub inet_time {
+  my $s      = _socket('time', 37, @_) || return;
+  my $buf    = '';
+  my $offset = 0 | 0;
+
+  return
+    unless defined $s->recv($buf, length(pack("N", 0)));
+
+  # unpack, we | 0 to ensure we have an unsigned
+  my $time = (unpack("N", $buf))[0] | 0;
+
+  # the time protocol return time in seconds since 1900, convert
+  # it to a the required format
+
+  if ($^O eq "MacOS") {
+
+    # MacOS return seconds since 1904, 1900 was not a leap year.
+    $offset = (4 * 31536000) | 0;
+  }
+  else {
+
+    # otherwise return seconds since 1972, there were 17 leap years between
+    # 1900 and 1972
+    $offset = (70 * 31536000 + 17 * 86400) | 0;
+  }
+
+  $time - $offset;
+}
+
+
+sub inet_daytime {
+  my $s   = _socket('daytime', 13, @_) || return;
+  my $buf = '';
+
+  defined($s->recv($buf, 1024))
+    ? $buf
+    : undef;
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+Net::Time - time and daytime network client interface
+
+=head1 SYNOPSIS
+
+    use Net::Time qw(inet_time inet_daytime);
+
+    print inet_time();          # use default host from Net::Config
+    print inet_time('localhost');
+    print inet_time('localhost', 'tcp');
+
+    print inet_daytime();       # use default host from Net::Config
+    print inet_daytime('localhost');
+    print inet_daytime('localhost', 'tcp');
+
+=head1 DESCRIPTION
+
+C<Net::Time> provides subroutines that obtain the time on a remote machine.
+
+=over 4
+
+=item inet_time ( [HOST [, PROTOCOL [, TIMEOUT]]])
+
+Obtain the time on C<HOST>, or some default host if C<HOST> is not given
+or not defined, using the protocol as defined in RFC868. The optional
+argument C<PROTOCOL> should define the protocol to use, either C<tcp> or
+C<udp>. The result will be a time value in the same units as returned
+by time() or I<undef> upon failure.
+
+=item inet_daytime ( [HOST [, PROTOCOL [, TIMEOUT]]])
+
+Obtain the time on C<HOST>, or some default host if C<HOST> is not given
+or not defined, using the protocol as defined in RFC867. The optional
+argument C<PROTOCOL> should define the protocol to use, either C<tcp> or
+C<udp>. The result will be an ASCII string or I<undef> upon failure.
+
+=back
+
+=head1 AUTHOR
+
+Graham Barr E<lt>F<gbarr@pobox.com>E<gt>
+
+Steve Hay E<lt>F<shay@cpan.org>E<gt> is now maintaining libnet as of version
+1.22_02
+
+=head1 COPYRIGHT
+
+Versions up to 2.11 Copyright (c) 1995-2004 Graham Barr. All rights reserved.
+Changes in Version 2.11 onwards Copyright (C) 2014 Steve Hay.  All rights
+reserved.
+
+This module is free software; you can redistribute it and/or modify it under the
+same terms as Perl itself, i.e. under the terms of either the GNU General Public
+License or the Artistic License, as specified in the F<LICENCE> file.
+
+=cut
diff --git a/lib/5.24.1/Net/hostent.pm b/lib/5.24.1/Net/hostent.pm
new file mode 100644
index 00000000..3a2fc013
--- /dev/null
+++ b/lib/5.24.1/Net/hostent.pm
@@ -0,0 +1,151 @@
+package Net::hostent;
+use strict;
+
+use 5.006_001;
+our $VERSION = '1.01';
+our(@EXPORT, @EXPORT_OK, %EXPORT_TAGS);
+BEGIN { 
+    use Exporter   ();
+    @EXPORT      = qw(gethostbyname gethostbyaddr gethost);
+    @EXPORT_OK   = qw(
+			$h_name	    	@h_aliases
+			$h_addrtype 	$h_length
+			@h_addr_list 	$h_addr
+		   );
+    %EXPORT_TAGS = ( FIELDS => [ @EXPORT_OK, @EXPORT ] );
+}
+use vars      @EXPORT_OK;
+
+# Class::Struct forbids use of @ISA
+sub import { goto &Exporter::import }
+
+use Class::Struct qw(struct);
+struct 'Net::hostent' => [
+   name		=> '$',
+   aliases	=> '@',
+   addrtype	=> '$',
+   'length'	=> '$',
+   addr_list	=> '@',
+];
+
+sub addr { shift->addr_list->[0] }
+
+sub populate (@) {
+    return unless @_;
+    my $hob = new();
+    $h_name 	 =    $hob->[0]     	     = $_[0];
+    @h_aliases	 = @{ $hob->[1] } = split ' ', $_[1];
+    $h_addrtype  =    $hob->[2] 	     = $_[2];
+    $h_length	 =    $hob->[3] 	     = $_[3];
+    $h_addr 	 =                             $_[4];
+    @h_addr_list = @{ $hob->[4] } =          @_[ (4 .. $#_) ];
+    return $hob;
+} 
+
+sub gethostbyname ($)  { populate(CORE::gethostbyname(shift)) } 
+
+sub gethostbyaddr ($;$) { 
+    my ($addr, $addrtype);
+    $addr = shift;
+    require Socket unless @_;
+    $addrtype = @_ ? shift : Socket::AF_INET();
+    populate(CORE::gethostbyaddr($addr, $addrtype)) 
+} 
+
+sub gethost($) {
+    if ($_[0] =~ /^\d+(?:\.\d+(?:\.\d+(?:\.\d+)?)?)?$/) {
+	require Socket;
+	&gethostbyaddr(Socket::inet_aton(shift));
+    } else {
+	&gethostbyname;
+    } 
+} 
+
+1;
+__END__
+
+=head1 NAME
+
+Net::hostent - by-name interface to Perl's built-in gethost*() functions
+
+=head1 SYNOPSIS
+
+ use Net::hostent;
+
+=head1 DESCRIPTION
+
+This module's default exports override the core gethostbyname() and
+gethostbyaddr() functions, replacing them with versions that return
+"Net::hostent" objects.  This object has methods that return the similarly
+named structure field name from the C's hostent structure from F<netdb.h>;
+namely name, aliases, addrtype, length, and addr_list.  The aliases and
+addr_list methods return array reference, the rest scalars.  The addr
+method is equivalent to the zeroth element in the addr_list array
+reference.
+
+You may also import all the structure fields directly into your namespace
+as regular variables using the :FIELDS import tag.  (Note that this still
+overrides your core functions.)  Access these fields as variables named
+with a preceding C<h_>.  Thus, C<$host_obj-E<gt>name()> corresponds to
+$h_name if you import the fields.  Array references are available as
+regular array variables, so for example C<@{ $host_obj-E<gt>aliases()
+}> would be simply @h_aliases.
+
+The gethost() function is a simple front-end that forwards a numeric
+argument to gethostbyaddr() by way of Socket::inet_aton, and the rest
+to gethostbyname().
+
+To access this functionality without the core overrides,
+pass the C<use> an empty import list, and then access
+function functions with their full qualified names.
+On the other hand, the built-ins are still available
+via the C<CORE::> pseudo-package.
+
+=head1 EXAMPLES
+
+ use Net::hostent;
+ use Socket;
+
+ @ARGV = ('netscape.com') unless @ARGV;
+
+ for $host ( @ARGV ) {
+
+    unless ($h = gethost($host)) {
+	warn "$0: no such host: $host\n";
+	next;
+    }
+
+    printf "\n%s is %s%s\n", 
+	    $host, 
+	    lc($h->name) eq lc($host) ? "" : "*really* ",
+	    $h->name;
+
+    print "\taliases are ", join(", ", @{$h->aliases}), "\n"
+		if @{$h->aliases};     
+
+    if ( @{$h->addr_list} > 1 ) { 
+	my $i;
+	for $addr ( @{$h->addr_list} ) {
+	    printf "\taddr #%d is [%s]\n", $i++, inet_ntoa($addr);
+	} 
+    } else {
+	printf "\taddress is [%s]\n", inet_ntoa($h->addr);
+    } 
+
+    if ($h = gethostbyaddr($h->addr)) {
+	if (lc($h->name) ne lc($host)) {
+	    printf "\tThat addr reverses to host %s!\n", $h->name;
+	    $host = $h->name;
+	    redo;
+	} 
+    }
+ }
+
+=head1 NOTE
+
+While this class is currently implemented using the Class::Struct
+module to build a struct-like class, you shouldn't rely upon this.
+
+=head1 AUTHOR
+
+Tom Christiansen
diff --git a/lib/5.24.1/Net/libnetFAQ.pod b/lib/5.24.1/Net/libnetFAQ.pod
new file mode 100644
index 00000000..f8ad797f
--- /dev/null
+++ b/lib/5.24.1/Net/libnetFAQ.pod
@@ -0,0 +1,302 @@
+=head1 NAME
+
+libnetFAQ - libnet Frequently Asked Questions
+
+=head1 DESCRIPTION
+
+=head2 Where to get this document
+
+This document is distributed with the libnet distribution, and is also
+available on the libnet web page at
+
+    http://search.cpan.org/dist/libnet/
+
+=head2 How to contribute to this document
+
+You may report corrections, additions, and suggestions on the
+CPAN Request Tracker at
+
+    http://rt.cpan.org/Public/Bug/Report.html?Queue=libnet
+
+=head1 Author and Copyright Information
+
+Copyright (c) 1997-1998 Graham Barr. All rights reserved.
+This document is free; you can redistribute it and/or modify it
+under the terms of the Artistic License.
+
+Currently maintained by Steve Hay <shay@cpan.org>.
+
+=head2 Disclaimer
+
+This information is offered in good faith and in the hope that it may
+be of use, but is not guaranteed to be correct, up to date, or suitable
+for any particular purpose whatsoever.  The authors accept no liability
+in respect of this information or its use.
+
+
+=head1 Obtaining and installing libnet
+
+=head2 What is libnet ?
+
+libnet is a collection of perl5 modules which all related to network
+programming. The majority of the modules available provided the
+client side of popular server-client protocols that are used in
+the internet community.
+
+=head2 Which version of perl do I need ?
+
+This version of libnet requires Perl 5.8.1 or higher.
+
+=head2 What other modules do I need ?
+
+No non-core modules are required for normal use, except on os390,
+which requires Convert::EBCDIC.
+
+Authen::SASL is required for AUTH support.
+
+IO::Socket::SSL version 2.007 or higher is required for SSL support.
+
+IO::Socket::IP version 0.20 or IO::Socket::INET6 version 2.62 is
+required for IPv6 support.
+
+=head2 What machines support libnet ?
+
+libnet itself is an entirely perl-code distribution so it should work
+on any machine that perl runs on.
+
+=head2 Where can I get the latest libnet release
+
+The latest libnet release is always on CPAN, you will find it
+in 
+
+ http://search.cpan.org/dist/libnet/
+
+=head1 Using Net::FTP
+
+=head2 How do I download files from an FTP server ?
+
+An example taken from an article posted to comp.lang.perl.misc
+
+    #!/your/path/to/perl
+
+    # a module making life easier
+
+    use Net::FTP;
+
+    # for debugging: $ftp = Net::FTP->new('site','Debug',10);
+    # open a connection and log in!
+
+    $ftp = Net::FTP->new('target_site.somewhere.xxx');
+    $ftp->login('username','password');
+
+    # set transfer mode to binary
+
+    $ftp->binary();
+
+    # change the directory on the ftp site
+
+    $ftp->cwd('/some/path/to/somewhere/');
+
+    foreach $name ('file1', 'file2', 'file3') {
+
+    # get's arguments are in the following order:
+    # ftp server's filename
+    # filename to save the transfer to on the local machine
+    # can be simply used as get($name) if you want the same name
+
+      $ftp->get($name,$name);
+    }
+
+    # ftp done!
+
+    $ftp->quit;
+
+=head2 How do I transfer files in binary mode ?
+
+To transfer files without <LF><CR> translation Net::FTP provides
+the C<binary> method
+
+    $ftp->binary;
+
+=head2 How can I get the size of a file on a remote FTP server ?
+
+=head2 How can I get the modification time of a file on a remote FTP server ?
+
+=head2 How can I change the permissions of a file on a remote server ?
+
+The FTP protocol does not have a command for changing the permissions
+of a file on the remote server. But some ftp servers may allow a chmod
+command to be issued via a SITE command, eg
+
+    $ftp->quot('site chmod 0777',$filename);
+
+But this is not guaranteed to work.
+
+=head2 Can I do a reget operation like the ftp command ?
+
+=head2 How do I get a directory listing from an FTP server ?
+
+=head2 Changing directory to "" does not fail ?
+
+Passing an argument of "" to ->cwd() has the same affect of calling ->cwd()
+without any arguments. Turn on Debug (I<See below>) and you will see what is
+happening
+
+    $ftp = Net::FTP->new($host, Debug => 1);
+    $ftp->login;
+    $ftp->cwd("");
+
+gives
+
+    Net::FTP=GLOB(0x82196d8)>>> CWD /
+    Net::FTP=GLOB(0x82196d8)<<< 250 CWD command successful.
+
+=head2 I am behind a SOCKS firewall, but the Firewall option does not work ?
+
+The Firewall option is only for support of one type of firewall. The type
+supported is an ftp proxy.
+
+To use Net::FTP, or any other module in the libnet distribution,
+through a SOCKS firewall you must create a socks-ified perl executable
+by compiling perl with the socks library.
+
+=head2 I am behind an FTP proxy firewall, but cannot access machines outside ?
+
+Net::FTP implements the most popular ftp proxy firewall approach. The scheme
+implemented is that where you log in to the firewall with C<user@hostname>
+
+I have heard of one other type of firewall which requires a login to the
+firewall with an account, then a second login with C<user@hostname>. You can
+still use Net::FTP to traverse these firewalls, but a more manual approach
+must be taken, eg
+
+    $ftp = Net::FTP->new($firewall) or die $@;
+    $ftp->login($firewall_user, $firewall_passwd) or die $ftp->message;
+    $ftp->login($ext_user . '@' . $ext_host, $ext_passwd) or die $ftp->message.
+
+=head2 My ftp proxy firewall does not listen on port 21
+
+FTP servers usually listen on the same port number, port 21, as any other
+FTP server. But there is no reason why this has to be the case.
+
+If you pass a port number to Net::FTP then it assumes this is the port
+number of the final destination. By default Net::FTP will always try
+to connect to the firewall on port 21.
+
+Net::FTP uses IO::Socket to open the connection and IO::Socket allows
+the port number to be specified as part of the hostname. So this problem
+can be resolved by either passing a Firewall option like C<"hostname:1234">
+or by setting the C<ftp_firewall> option in Net::Config to be a string
+in the same form.
+
+=head2 Is it possible to change the file permissions of a file on an FTP server ?
+
+The answer to this is "maybe". The FTP protocol does not specify a command to change
+file permissions on a remote host. However many servers do allow you to run the
+chmod command via the C<SITE> command. This can be done with
+
+  $ftp->site('chmod','0775',$file);
+
+=head2 I have seen scripts call a method message, but cannot find it documented ?
+
+Net::FTP, like several other packages in libnet, inherits from Net::Cmd, so
+all the methods described in Net::Cmd are also available on Net::FTP
+objects.
+
+=head2 Why does Net::FTP not implement mput and mget methods
+
+The quick answer is because they are easy to implement yourself. The long
+answer is that to write these in such a way that multiple platforms are
+supported correctly would just require too much code. Below are
+some examples how you can implement these yourself.
+
+sub mput {
+  my($ftp,$pattern) = @_;
+  foreach my $file (glob($pattern)) {
+    $ftp->put($file) or warn $ftp->message;
+  }
+}
+
+sub mget {
+  my($ftp,$pattern) = @_;
+  foreach my $file ($ftp->ls($pattern)) {
+    $ftp->get($file) or warn $ftp->message;
+  }
+}
+
+
+=head1 Using Net::SMTP
+
+=head2 Why can't the part of an Email address after the @ be used as the hostname ?
+
+The part of an Email address which follows the @ is not necessarily a hostname,
+it is a mail domain. To find the name of a host to connect for a mail domain
+you need to do a DNS MX lookup
+
+=head2 Why does Net::SMTP not do DNS MX lookups ?
+
+Net::SMTP implements the SMTP protocol. The DNS MX lookup is not part
+of this protocol.
+
+=head2 The verify method always returns true ?
+
+Well it may seem that way, but it does not. The verify method returns true
+if the command succeeded. If you pass verify an address which the
+server would normally have to forward to another machine, the command
+will succeed with something like
+
+    252 Couldn't verify <someone@there> but will attempt delivery anyway
+
+This command will fail only if you pass it an address in a domain
+the server directly delivers for, and that address does not exist.
+
+=head1 Debugging scripts
+
+=head2 How can I debug my scripts that use Net::* modules ?
+
+Most of the libnet client classes allow options to be passed to the
+constructor, in most cases one option is called C<Debug>. Passing
+this option with a non-zero value will turn on a protocol trace, which
+will be sent to STDERR. This trace can be useful to see what commands
+are being sent to the remote server and what responses are being
+received back.
+
+    #!/your/path/to/perl
+
+    use Net::FTP;
+
+    my $ftp = new Net::FTP($host, Debug => 1);
+    $ftp->login('gbarr','password');
+    $ftp->quit;
+
+this script would output something like
+
+ Net::FTP: Net::FTP(2.22)
+ Net::FTP:   Exporter
+ Net::FTP:   Net::Cmd(2.0801)
+ Net::FTP:   IO::Socket::INET
+ Net::FTP:     IO::Socket(1.1603)
+ Net::FTP:       IO::Handle(1.1504)
+
+ Net::FTP=GLOB(0x8152974)<<< 220 imagine FTP server (Version wu-2.4(5) Tue Jul 29 11:17:18 CDT 1997) ready.
+ Net::FTP=GLOB(0x8152974)>>> user gbarr
+ Net::FTP=GLOB(0x8152974)<<< 331 Password required for gbarr.
+ Net::FTP=GLOB(0x8152974)>>> PASS ....
+ Net::FTP=GLOB(0x8152974)<<< 230 User gbarr logged in.  Access restrictions apply.
+ Net::FTP=GLOB(0x8152974)>>> QUIT
+ Net::FTP=GLOB(0x8152974)<<< 221 Goodbye.
+
+The first few lines tell you the modules that Net::FTP uses and their versions,
+this is useful data to me when a user reports a bug. The last seven lines
+show the communication with the server. Each line has three parts. The first
+part is the object itself, this is useful for separating the output
+if you are using multiple objects. The second part is either C<<<<<> to
+show data coming from the server or C<&gt&gt&gt&gt> to show data
+going to the server. The remainder of the line is the command
+being sent or response being received.
+
+=head1 AUTHOR AND COPYRIGHT
+
+Copyright (c) 1997 Graham Barr.
+All rights reserved.
+
diff --git a/lib/5.24.1/Net/netent.pm b/lib/5.24.1/Net/netent.pm
new file mode 100644
index 00000000..f7d32cb9
--- /dev/null
+++ b/lib/5.24.1/Net/netent.pm
@@ -0,0 +1,169 @@
+package Net::netent;
+use strict;
+
+use 5.006_001;
+our $VERSION = '1.00';
+our(@EXPORT, @EXPORT_OK, %EXPORT_TAGS);
+BEGIN { 
+    use Exporter   ();
+    @EXPORT      = qw(getnetbyname getnetbyaddr getnet);
+    @EXPORT_OK   = qw(
+			$n_name	    	@n_aliases
+			$n_addrtype 	$n_net
+		   );
+    %EXPORT_TAGS = ( FIELDS => [ @EXPORT_OK, @EXPORT ] );
+}
+use vars      @EXPORT_OK;
+
+# Class::Struct forbids use of @ISA
+sub import { goto &Exporter::import }
+
+use Class::Struct qw(struct);
+struct 'Net::netent' => [
+   name		=> '$',
+   aliases	=> '@',
+   addrtype	=> '$',
+   net		=> '$',
+];
+
+sub populate (@) {
+    return unless @_;
+    my $nob = new();
+    $n_name 	 =    $nob->[0]     	     = $_[0];
+    @n_aliases	 = @{ $nob->[1] } = split ' ', $_[1];
+    $n_addrtype  =    $nob->[2] 	     = $_[2];
+    $n_net	 =    $nob->[3] 	     = $_[3];
+    return $nob;
+} 
+
+sub getnetbyname ($)  { populate(CORE::getnetbyname(shift)) } 
+
+sub getnetbyaddr ($;$) { 
+    my ($net, $addrtype);
+    $net = shift;
+    require Socket if @_;
+    $addrtype = @_ ? shift : Socket::AF_INET();
+    populate(CORE::getnetbyaddr($net, $addrtype)) 
+} 
+
+sub getnet($) {
+    if ($_[0] =~ /^\d+(?:\.\d+(?:\.\d+(?:\.\d+)?)?)?$/) {
+	require Socket;
+	&getnetbyaddr(Socket::inet_aton(shift));
+    } else {
+	&getnetbyname;
+    } 
+} 
+
+1;
+__END__
+
+=head1 NAME
+
+Net::netent - by-name interface to Perl's built-in getnet*() functions
+
+=head1 SYNOPSIS
+
+ use Net::netent qw(:FIELDS);
+ getnetbyname("loopback") 		or die "bad net";
+ printf "%s is %08X\n", $n_name, $n_net;
+
+ use Net::netent;
+
+ $n = getnetbyname("loopback") 		or die "bad net";
+ { # there's gotta be a better way, eh?
+     @bytes = unpack("C4", pack("N", $n->net));
+     shift @bytes while @bytes && $bytes[0] == 0;
+ }
+ printf "%s is %08X [%d.%d.%d.%d]\n", $n->name, $n->net, @bytes;
+
+=head1 DESCRIPTION
+
+This module's default exports override the core getnetbyname() and
+getnetbyaddr() functions, replacing them with versions that return
+"Net::netent" objects.  This object has methods that return the similarly
+named structure field name from the C's netent structure from F<netdb.h>;
+namely name, aliases, addrtype, and net.  The aliases 
+method returns an array reference, the rest scalars.  
+
+You may also import all the structure fields directly into your namespace
+as regular variables using the :FIELDS import tag.  (Note that this still
+overrides your core functions.)  Access these fields as variables named
+with a preceding C<n_>.  Thus, C<$net_obj-E<gt>name()> corresponds to
+$n_name if you import the fields.  Array references are available as
+regular array variables, so for example C<@{ $net_obj-E<gt>aliases()
+}> would be simply @n_aliases.
+
+The getnet() function is a simple front-end that forwards a numeric
+argument to getnetbyaddr(), and the rest
+to getnetbyname().
+
+To access this functionality without the core overrides,
+pass the C<use> an empty import list, and then access
+function functions with their full qualified names.
+On the other hand, the built-ins are still available
+via the C<CORE::> pseudo-package.
+
+=head1 EXAMPLES
+
+The getnet() functions do this in the Perl core:
+
+    sv_setiv(sv, (I32)nent->n_net);
+
+The gethost() functions do this in the Perl core:
+
+    sv_setpvn(sv, hent->h_addr, len);
+
+That means that the address comes back in binary for the
+host functions, and as a regular perl integer for the net ones.
+This seems a bug, but here's how to deal with it:
+
+ use strict;
+ use Socket;
+ use Net::netent;
+
+ @ARGV = ('loopback') unless @ARGV;
+
+ my($n, $net);
+
+ for $net ( @ARGV ) {
+
+     unless ($n = getnetbyname($net)) {
+ 	warn "$0: no such net: $net\n";
+ 	next;
+     }
+
+     printf "\n%s is %s%s\n", 
+ 	    $net, 
+ 	    lc($n->name) eq lc($net) ? "" : "*really* ",
+ 	    $n->name;
+
+     print "\taliases are ", join(", ", @{$n->aliases}), "\n"
+ 		if @{$n->aliases};     
+
+     # this is stupid; first, why is this not in binary?
+     # second, why am i going through these convolutions
+     # to make it looks right
+     {
+ 	my @a = unpack("C4", pack("N", $n->net));
+ 	shift @a while @a && $a[0] == 0;
+ 	printf "\taddr is %s [%d.%d.%d.%d]\n", $n->net, @a;
+     }
+
+     if ($n = getnetbyaddr($n->net)) {
+ 	if (lc($n->name) ne lc($net)) {
+ 	    printf "\tThat addr reverses to net %s!\n", $n->name;
+ 	    $net = $n->name;
+ 	    redo;
+ 	} 
+     }
+ }
+
+=head1 NOTE
+
+While this class is currently implemented using the Class::Struct
+module to build a struct-like class, you shouldn't rely upon this.
+
+=head1 AUTHOR
+
+Tom Christiansen
diff --git a/lib/5.24.1/Net/protoent.pm b/lib/5.24.1/Net/protoent.pm
new file mode 100644
index 00000000..2cbccad3
--- /dev/null
+++ b/lib/5.24.1/Net/protoent.pm
@@ -0,0 +1,96 @@
+package Net::protoent;
+use strict;
+
+use 5.006_001;
+our $VERSION = '1.00';
+our(@EXPORT, @EXPORT_OK, %EXPORT_TAGS);
+BEGIN { 
+    use Exporter   ();
+    @EXPORT      = qw(getprotobyname getprotobynumber getprotoent getproto);
+    @EXPORT_OK   = qw( $p_name @p_aliases $p_proto );
+    %EXPORT_TAGS = ( FIELDS => [ @EXPORT_OK, @EXPORT ] );
+}
+use vars      @EXPORT_OK;
+
+# Class::Struct forbids use of @ISA
+sub import { goto &Exporter::import }
+
+use Class::Struct qw(struct);
+struct 'Net::protoent' => [
+   name		=> '$',
+   aliases	=> '@',
+   proto	=> '$',
+];
+
+sub populate (@) {
+    return unless @_;
+    my $pob = new();
+    $p_name 	 =    $pob->[0]     	     = $_[0];
+    @p_aliases	 = @{ $pob->[1] } = split ' ', $_[1];
+    $p_proto	 =    $pob->[2] 	     = $_[2];
+    return $pob;
+} 
+
+sub getprotoent      ( )  { populate(CORE::getprotoent()) } 
+sub getprotobyname   ($)  { populate(CORE::getprotobyname(shift)) } 
+sub getprotobynumber ($)  { populate(CORE::getprotobynumber(shift)) } 
+
+sub getproto ($;$) {
+    no strict 'refs';
+    return &{'getprotoby' . ($_[0]=~/^\d+$/ ? 'number' : 'name')}(@_);
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+Net::protoent - by-name interface to Perl's built-in getproto*() functions
+
+=head1 SYNOPSIS
+
+ use Net::protoent;
+ $p = getprotobyname(shift || 'tcp') || die "no proto";
+ printf "proto for %s is %d, aliases are %s\n",
+    $p->name, $p->proto, "@{$p->aliases}";
+
+ use Net::protoent qw(:FIELDS);
+ getprotobyname(shift || 'tcp') || die "no proto";
+ print "proto for $p_name is $p_proto, aliases are @p_aliases\n";
+
+=head1 DESCRIPTION
+
+This module's default exports override the core getprotoent(),
+getprotobyname(), and getnetbyport() functions, replacing them with
+versions that return "Net::protoent" objects.  They take default
+second arguments of "tcp".  This object has methods that return the
+similarly named structure field name from the C's protoent structure
+from F<netdb.h>; namely name, aliases, and proto.  The aliases method
+returns an array reference, the rest scalars.
+
+You may also import all the structure fields directly into your namespace
+as regular variables using the :FIELDS import tag.  (Note that this still
+overrides your core functions.)  Access these fields as variables named
+with a preceding C<p_>.  Thus, C<$proto_obj-E<gt>name()> corresponds to
+$p_name if you import the fields.  Array references are available as
+regular array variables, so for example C<@{ $proto_obj-E<gt>aliases()
+}> would be simply @p_aliases.
+
+The getproto() function is a simple front-end that forwards a numeric
+argument to getprotobyport(), and the rest to getprotobyname().
+
+To access this functionality without the core overrides,
+pass the C<use> an empty import list, and then access
+function functions with their full qualified names.
+On the other hand, the built-ins are still available
+via the C<CORE::> pseudo-package.
+
+=head1 NOTE
+
+While this class is currently implemented using the Class::Struct
+module to build a struct-like class, you shouldn't rely upon this.
+
+=head1 AUTHOR
+
+Tom Christiansen
diff --git a/lib/5.24.1/Net/servent.pm b/lib/5.24.1/Net/servent.pm
new file mode 100644
index 00000000..78a16814
--- /dev/null
+++ b/lib/5.24.1/Net/servent.pm
@@ -0,0 +1,113 @@
+package Net::servent;
+use strict;
+
+use 5.006_001;
+our $VERSION = '1.01';
+our(@EXPORT, @EXPORT_OK, %EXPORT_TAGS);
+BEGIN {
+    use Exporter   ();
+    @EXPORT      = qw(getservbyname getservbyport getservent getserv);
+    @EXPORT_OK   = qw( $s_name @s_aliases $s_port $s_proto );
+    %EXPORT_TAGS = ( FIELDS => [ @EXPORT_OK, @EXPORT ] );
+}
+use vars      @EXPORT_OK;
+
+# Class::Struct forbids use of @ISA
+sub import { goto &Exporter::import }
+
+use Class::Struct qw(struct);
+struct 'Net::servent' => [
+   name		=> '$',
+   aliases	=> '@',
+   port		=> '$',
+   proto	=> '$',
+];
+
+sub populate (@) {
+    return unless @_;
+    my $sob = new();
+    $s_name 	 =    $sob->[0]     	     = $_[0];
+    @s_aliases	 = @{ $sob->[1] } = split ' ', $_[1];
+    $s_port	 =    $sob->[2] 	     = $_[2];
+    $s_proto	 =    $sob->[3] 	     = $_[3];
+    return $sob;
+}
+
+sub getservent    (   ) { populate(CORE::getservent()) }
+sub getservbyname ($;$) { populate(CORE::getservbyname(shift,shift||'tcp')) }
+sub getservbyport ($;$) { populate(CORE::getservbyport(shift,shift||'tcp')) }
+
+sub getserv ($;$) {
+    no strict 'refs';
+    return &{'getservby' . ($_[0]=~/^\d+$/ ? 'port' : 'name')}(@_);
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+Net::servent - by-name interface to Perl's built-in getserv*() functions
+
+=head1 SYNOPSIS
+
+ use Net::servent;
+ $s = getservbyname(shift || 'ftp') || die "no service";
+ printf "port for %s is %s, aliases are %s\n",
+    $s->name, $s->port, "@{$s->aliases}";
+
+ use Net::servent qw(:FIELDS);
+ getservbyname(shift || 'ftp') || die "no service";
+ print "port for $s_name is $s_port, aliases are @s_aliases\n";
+
+=head1 DESCRIPTION
+
+This module's default exports override the core getservent(),
+getservbyname(), and
+getnetbyport() functions, replacing them with versions that return
+"Net::servent" objects.  They take default second arguments of "tcp".  This object has methods that return the similarly
+named structure field name from the C's servent structure from F<netdb.h>;
+namely name, aliases, port, and proto.  The aliases
+method returns an array reference, the rest scalars.
+
+You may also import all the structure fields directly into your namespace
+as regular variables using the :FIELDS import tag.  (Note that this still
+overrides your core functions.)  Access these fields as variables named
+with a preceding C<s_>.  Thus, C<$serv_obj-E<gt>name()> corresponds to
+$s_name if you import the fields.  Array references are available as
+regular array variables, so for example C<@{ $serv_obj-E<gt>aliases()}>
+would be simply @s_aliases.
+
+The getserv() function is a simple front-end that forwards a numeric
+argument to getservbyport(), and the rest to getservbyname().
+
+To access this functionality without the core overrides,
+pass the C<use> an empty import list, and then access
+function functions with their full qualified names.
+On the other hand, the built-ins are still available
+via the C<CORE::> pseudo-package.
+
+=head1 EXAMPLES
+
+ use Net::servent qw(:FIELDS);
+
+ while (@ARGV) {
+     my ($service, $proto) = ((split m!/!, shift), 'tcp');
+     my $valet = getserv($service, $proto);
+     unless ($valet) {
+         warn "$0: No service: $service/$proto\n"
+         next;
+     }
+     printf "service $service/$proto is port %d\n", $valet->port;
+     print "alias are @s_aliases\n" if @s_aliases;
+ }
+
+=head1 NOTE
+
+While this class is currently implemented using the Class::Struct
+module to build a struct-like class, you shouldn't rely upon this.
+
+=head1 AUTHOR
+
+Tom Christiansen
diff --git a/lib/5.24.1/Params/Check.pm b/lib/5.24.1/Params/Check.pm
new file mode 100644
index 00000000..12394421
--- /dev/null
+++ b/lib/5.24.1/Params/Check.pm
@@ -0,0 +1,695 @@
+package Params::Check;
+
+use strict;
+
+use Carp                        qw[carp croak];
+use Locale::Maketext::Simple    Style => 'gettext';
+
+BEGIN {
+    use Exporter    ();
+    use vars        qw[ @ISA $VERSION @EXPORT_OK $VERBOSE $ALLOW_UNKNOWN
+                        $STRICT_TYPE $STRIP_LEADING_DASHES $NO_DUPLICATES
+                        $PRESERVE_CASE $ONLY_ALLOW_DEFINED $WARNINGS_FATAL
+                        $SANITY_CHECK_TEMPLATE $CALLER_DEPTH $_ERROR_STRING
+                    ];
+
+    @ISA        =   qw[ Exporter ];
+    @EXPORT_OK  =   qw[check allow last_error];
+
+    $VERSION                = '0.38';
+    $VERBOSE                = $^W ? 1 : 0;
+    $NO_DUPLICATES          = 0;
+    $STRIP_LEADING_DASHES   = 0;
+    $STRICT_TYPE            = 0;
+    $ALLOW_UNKNOWN          = 0;
+    $PRESERVE_CASE          = 0;
+    $ONLY_ALLOW_DEFINED     = 0;
+    $SANITY_CHECK_TEMPLATE  = 1;
+    $WARNINGS_FATAL         = 0;
+    $CALLER_DEPTH           = 0;
+}
+
+my %known_keys = map { $_ => 1 }
+                    qw| required allow default strict_type no_override
+                        store defined |;
+
+=pod
+
+=head1 NAME
+
+Params::Check - A generic input parsing/checking mechanism.
+
+=head1 SYNOPSIS
+
+    use Params::Check qw[check allow last_error];
+
+    sub fill_personal_info {
+        my %hash = @_;
+        my $x;
+
+        my $tmpl = {
+            firstname   => { required   => 1, defined => 1 },
+            lastname    => { required   => 1, store => \$x },
+            gender      => { required   => 1,
+                             allow      => [qr/M/i, qr/F/i],
+                           },
+            married     => { allow      => [0,1] },
+            age         => { default    => 21,
+                             allow      => qr/^\d+$/,
+                           },
+
+            phone       => { allow => [ sub { return 1 if /$valid_re/ },
+                                        '1-800-PERL' ]
+                           },
+            id_list     => { default        => [],
+                             strict_type    => 1
+                           },
+            employer    => { default => 'NSA', no_override => 1 },
+        };
+
+        ### check() returns a hashref of parsed args on success ###
+        my $parsed_args = check( $tmpl, \%hash, $VERBOSE )
+                            or die qw[Could not parse arguments!];
+
+        ... other code here ...
+    }
+
+    my $ok = allow( $colour, [qw|blue green yellow|] );
+
+    my $error = Params::Check::last_error();
+
+
+=head1 DESCRIPTION
+
+Params::Check is a generic input parsing/checking mechanism.
+
+It allows you to validate input via a template. The only requirement
+is that the arguments must be named.
+
+Params::Check can do the following things for you:
+
+=over 4
+
+=item *
+
+Convert all keys to lowercase
+
+=item *
+
+Check if all required arguments have been provided
+
+=item *
+
+Set arguments that have not been provided to the default
+
+=item *
+
+Weed out arguments that are not supported and warn about them to the
+user
+
+=item *
+
+Validate the arguments given by the user based on strings, regexes,
+lists or even subroutines
+
+=item *
+
+Enforce type integrity if required
+
+=back
+
+Most of Params::Check's power comes from its template, which we'll
+discuss below:
+
+=head1 Template
+
+As you can see in the synopsis, based on your template, the arguments
+provided will be validated.
+
+The template can take a different set of rules per key that is used.
+
+The following rules are available:
+
+=over 4
+
+=item default
+
+This is the default value if none was provided by the user.
+This is also the type C<strict_type> will look at when checking type
+integrity (see below).
+
+=item required
+
+A boolean flag that indicates if this argument was a required
+argument. If marked as required and not provided, check() will fail.
+
+=item strict_type
+
+This does a C<ref()> check on the argument provided. The C<ref> of the
+argument must be the same as the C<ref> of the default value for this
+check to pass.
+
+This is very useful if you insist on taking an array reference as
+argument for example.
+
+=item defined
+
+If this template key is true, enforces that if this key is provided by
+user input, its value is C<defined>. This just means that the user is
+not allowed to pass C<undef> as a value for this key and is equivalent
+to:
+    allow => sub { defined $_[0] && OTHER TESTS }
+
+=item no_override
+
+This allows you to specify C<constants> in your template. ie, they
+keys that are not allowed to be altered by the user. It pretty much
+allows you to keep all your C<configurable> data in one place; the
+C<Params::Check> template.
+
+=item store
+
+This allows you to pass a reference to a scalar, in which the data
+will be stored:
+
+    my $x;
+    my $args = check(foo => { default => 1, store => \$x }, $input);
+
+This is basically shorthand for saying:
+
+    my $args = check( { foo => { default => 1 }, $input );
+    my $x    = $args->{foo};
+
+You can alter the global variable $Params::Check::NO_DUPLICATES to
+control whether the C<store>'d key will still be present in your
+result set. See the L<Global Variables> section below.
+
+=item allow
+
+A set of criteria used to validate a particular piece of data if it
+has to adhere to particular rules.
+
+See the C<allow()> function for details.
+
+=back
+
+=head1 Functions
+
+=head2 check( \%tmpl, \%args, [$verbose] );
+
+This function is not exported by default, so you'll have to ask for it
+via:
+
+    use Params::Check qw[check];
+
+or use its fully qualified name instead.
+
+C<check> takes a list of arguments, as follows:
+
+=over 4
+
+=item Template
+
+This is a hash reference which contains a template as explained in the
+C<SYNOPSIS> and C<Template> section.
+
+=item Arguments
+
+This is a reference to a hash of named arguments which need checking.
+
+=item Verbose
+
+A boolean to indicate whether C<check> should be verbose and warn
+about what went wrong in a check or not.
+
+You can enable this program wide by setting the package variable
+C<$Params::Check::VERBOSE> to a true value. For details, see the
+section on C<Global Variables> below.
+
+=back
+
+C<check> will return when it fails, or a hashref with lowercase
+keys of parsed arguments when it succeeds.
+
+So a typical call to check would look like this:
+
+    my $parsed = check( \%template, \%arguments, $VERBOSE )
+                    or warn q[Arguments could not be parsed!];
+
+A lot of the behaviour of C<check()> can be altered by setting
+package variables. See the section on C<Global Variables> for details
+on this.
+
+=cut
+
+sub check {
+    my ($utmpl, $href, $verbose) = @_;
+
+    ### clear the current error string ###
+    _clear_error();
+
+    ### did we get the arguments we need? ###
+    if ( !$utmpl or !$href ) {
+      _store_error(loc('check() expects two arguments'));
+      return unless $WARNINGS_FATAL;
+      croak(__PACKAGE__->last_error);
+    }
+
+    ### sensible defaults ###
+    $verbose ||= $VERBOSE || 0;
+
+    ### XXX what type of template is it? ###
+    ### { key => { } } ?
+    #if (ref $args eq 'HASH') {
+    #    1;
+    #}
+
+    ### clean up the template ###
+    my $args;
+
+    ### don't even bother to loop, if there's nothing to clean up ###
+    if( $PRESERVE_CASE and !$STRIP_LEADING_DASHES ) {
+        $args = $href;
+    } else {
+        ### keys are not aliased ###
+        for my $key (keys %$href) {
+            my $org = $key;
+            $key = lc $key unless $PRESERVE_CASE;
+            $key =~ s/^-// if $STRIP_LEADING_DASHES;
+            $args->{$key} = $href->{$org};
+        }
+    }
+
+    my %defs;
+
+    ### which template entries have a 'store' member
+    my @want_store;
+
+    ### sanity check + defaults + required keys set? ###
+    my $fail;
+    for my $key (keys %$utmpl) {
+        my $tmpl = $utmpl->{$key};
+
+        ### check if required keys are provided
+        ### keys are now lower cased, unless preserve case was enabled
+        ### at which point, the utmpl keys must match, but that's the users
+        ### problem.
+        if( $tmpl->{'required'} and not exists $args->{$key} ) {
+            _store_error(
+                loc(q|Required option '%1' is not provided for %2 by %3|,
+                    $key, _who_was_it(), _who_was_it(1)), $verbose );
+
+            ### mark the error ###
+            $fail++;
+            next;
+        }
+
+        ### next, set the default, make sure the key exists in %defs ###
+        $defs{$key} = $tmpl->{'default'}
+                        if exists $tmpl->{'default'};
+
+        if( $SANITY_CHECK_TEMPLATE ) {
+            ### last, check if they provided any weird template keys
+            ### -- do this last so we don't always execute this code.
+            ### just a small optimization.
+            map {   _store_error(
+                        loc(q|Template type '%1' not supported [at key '%2']|,
+                        $_, $key), 1, 0 );
+            } grep {
+                not $known_keys{$_}
+            } keys %$tmpl;
+
+            ### make sure you passed a ref, otherwise, complain about it!
+            if ( exists $tmpl->{'store'} ) {
+                _store_error( loc(
+                    q|Store variable for '%1' is not a reference!|, $key
+                ), 1, 0 ) unless ref $tmpl->{'store'};
+            }
+        }
+
+        push @want_store, $key if $tmpl->{'store'};
+    }
+
+    ### errors found ###
+    return if $fail;
+
+    ### flag to see if anything went wrong ###
+    my $wrong;
+
+    ### flag to see if we warned for anything, needed for warnings_fatal
+    my $warned;
+
+    for my $key (keys %$args) {
+        my $arg = $args->{$key};
+
+        ### you gave us this key, but it's not in the template ###
+        unless( $utmpl->{$key} ) {
+
+            ### but we'll allow it anyway ###
+            if( $ALLOW_UNKNOWN ) {
+                $defs{$key} = $arg;
+
+            ### warn about the error ###
+            } else {
+                _store_error(
+                    loc("Key '%1' is not a valid key for %2 provided by %3",
+                        $key, _who_was_it(), _who_was_it(1)), $verbose);
+                $warned ||= 1;
+            }
+            next;
+        }
+
+        ### copy of this keys template instructions, to save derefs ###
+        my %tmpl = %{$utmpl->{$key}};
+
+        ### check if you're even allowed to override this key ###
+        if( $tmpl{'no_override'} ) {
+            _store_error(
+                loc(q[You are not allowed to override key '%1'].
+                    q[for %2 from %3], $key, _who_was_it(), _who_was_it(1)),
+                $verbose
+            );
+            $warned ||= 1;
+            next;
+        }
+
+        ### check if you were supposed to provide defined() values ###
+        if( ($tmpl{'defined'} || $ONLY_ALLOW_DEFINED) and not defined $arg ) {
+            _store_error(loc(q|Key '%1' must be defined when passed|, $key),
+                $verbose );
+            $wrong ||= 1;
+            next;
+        }
+
+        ### check if they should be of a strict type, and if it is ###
+        if( ($tmpl{'strict_type'} || $STRICT_TYPE) and
+            (ref $arg ne ref $tmpl{'default'})
+        ) {
+            _store_error(loc(q|Key '%1' needs to be of type '%2'|,
+                        $key, ref $tmpl{'default'} || 'SCALAR'), $verbose );
+            $wrong ||= 1;
+            next;
+        }
+
+        ### check if we have an allow handler, to validate against ###
+        ### allow() will report its own errors ###
+        if( exists $tmpl{'allow'} and not do {
+                local $_ERROR_STRING;
+                allow( $arg, $tmpl{'allow'} )
+            }
+        ) {
+            ### stringify the value in the error report -- we don't want dumps
+            ### of objects, but we do want to see *roughly* what we passed
+            _store_error(loc(q|Key '%1' (%2) is of invalid type for '%3' |.
+                             q|provided by %4|,
+                            $key, "$arg", _who_was_it(),
+                            _who_was_it(1)), $verbose);
+            $wrong ||= 1;
+            next;
+        }
+
+        ### we got here, then all must be OK ###
+        $defs{$key} = $arg;
+
+    }
+
+    ### croak with the collected errors if there were errors and
+    ### we have the fatal flag toggled.
+    croak(__PACKAGE__->last_error) if ($wrong || $warned) && $WARNINGS_FATAL;
+
+    ### done with our loop... if $wrong is set, something went wrong
+    ### and the user is already informed, just return...
+    return if $wrong;
+
+    ### check if we need to store any of the keys ###
+    ### can't do it before, because something may go wrong later,
+    ### leaving the user with a few set variables
+    for my $key (@want_store) {
+        next unless exists $defs{$key};
+        my $ref = $utmpl->{$key}{'store'};
+        $$ref = $NO_DUPLICATES ? delete $defs{$key} : $defs{$key};
+    }
+
+    return \%defs;
+}
+
+=head2 allow( $test_me, \@criteria );
+
+The function that handles the C<allow> key in the template is also
+available for independent use.
+
+The function takes as first argument a key to test against, and
+as second argument any form of criteria that are also allowed by
+the C<allow> key in the template.
+
+You can use the following types of values for allow:
+
+=over 4
+
+=item string
+
+The provided argument MUST be equal to the string for the validation
+to pass.
+
+=item regexp
+
+The provided argument MUST match the regular expression for the
+validation to pass.
+
+=item subroutine
+
+The provided subroutine MUST return true in order for the validation
+to pass and the argument accepted.
+
+(This is particularly useful for more complicated data).
+
+=item array ref
+
+The provided argument MUST equal one of the elements of the array
+ref for the validation to pass. An array ref can hold all the above
+values.
+
+=back
+
+It returns true if the key matched the criteria, or false otherwise.
+
+=cut
+
+sub allow {
+    ### use $_[0] and $_[1] since this is hot code... ###
+    #my ($val, $ref) = @_;
+
+    ### it's a regexp ###
+    if( ref $_[1] eq 'Regexp' ) {
+        local $^W;  # silence warnings if $val is undef #
+        return if $_[0] !~ /$_[1]/;
+
+    ### it's a sub ###
+    } elsif ( ref $_[1] eq 'CODE' ) {
+        return unless $_[1]->( $_[0] );
+
+    ### it's an array ###
+    } elsif ( ref $_[1] eq 'ARRAY' ) {
+
+        ### loop over the elements, see if one of them says the
+        ### value is OK
+        ### also, short-circuit when possible
+        for ( @{$_[1]} ) {
+            return 1 if allow( $_[0], $_ );
+        }
+
+        return;
+
+    ### fall back to a simple, but safe 'eq' ###
+    } else {
+        return unless _safe_eq( $_[0], $_[1] );
+    }
+
+    ### we got here, no failures ###
+    return 1;
+}
+
+### helper functions ###
+
+sub _safe_eq {
+    ### only do a straight 'eq' if they're both defined ###
+    return defined($_[0]) && defined($_[1])
+                ? $_[0] eq $_[1]
+                : defined($_[0]) eq defined($_[1]);
+}
+
+sub _who_was_it {
+    my $level = $_[0] || 0;
+
+    return (caller(2 + $CALLER_DEPTH + $level))[3] || 'ANON'
+}
+
+=head2 last_error()
+
+Returns a string containing all warnings and errors reported during
+the last time C<check> was called.
+
+This is useful if you want to report then some other way than
+C<carp>'ing when the verbose flag is on.
+
+It is exported upon request.
+
+=cut
+
+{   $_ERROR_STRING = '';
+
+    sub _store_error {
+        my($err, $verbose, $offset) = @_[0..2];
+        $verbose ||= 0;
+        $offset  ||= 0;
+        my $level   = 1 + $offset;
+
+        local $Carp::CarpLevel = $level;
+
+        carp $err if $verbose;
+
+        $_ERROR_STRING .= $err . "\n";
+    }
+
+    sub _clear_error {
+        $_ERROR_STRING = '';
+    }
+
+    sub last_error { $_ERROR_STRING }
+}
+
+1;
+
+=head1 Global Variables
+
+The behaviour of Params::Check can be altered by changing the
+following global variables:
+
+=head2 $Params::Check::VERBOSE
+
+This controls whether Params::Check will issue warnings and
+explanations as to why certain things may have failed.
+If you set it to 0, Params::Check will not output any warnings.
+
+The default is 1 when L<warnings> are enabled, 0 otherwise;
+
+=head2 $Params::Check::STRICT_TYPE
+
+This works like the C<strict_type> option you can pass to C<check>,
+which will turn on C<strict_type> globally for all calls to C<check>.
+
+The default is 0;
+
+=head2 $Params::Check::ALLOW_UNKNOWN
+
+If you set this flag, unknown options will still be present in the
+return value, rather than filtered out. This is useful if your
+subroutine is only interested in a few arguments, and wants to pass
+the rest on blindly to perhaps another subroutine.
+
+The default is 0;
+
+=head2 $Params::Check::STRIP_LEADING_DASHES
+
+If you set this flag, all keys passed in the following manner:
+
+    function( -key => 'val' );
+
+will have their leading dashes stripped.
+
+=head2 $Params::Check::NO_DUPLICATES
+
+If set to true, all keys in the template that are marked as to be
+stored in a scalar, will also be removed from the result set.
+
+Default is false, meaning that when you use C<store> as a template
+key, C<check> will put it both in the scalar you supplied, as well as
+in the hashref it returns.
+
+=head2 $Params::Check::PRESERVE_CASE
+
+If set to true, L<Params::Check> will no longer convert all keys from
+the user input to lowercase, but instead expect them to be in the
+case the template provided. This is useful when you want to use
+similar keys with different casing in your templates.
+
+Understand that this removes the case-insensitivity feature of this
+module.
+
+Default is 0;
+
+=head2 $Params::Check::ONLY_ALLOW_DEFINED
+
+If set to true, L<Params::Check> will require all values passed to be
+C<defined>. If you wish to enable this on a 'per key' basis, use the
+template option C<defined> instead.
+
+Default is 0;
+
+=head2 $Params::Check::SANITY_CHECK_TEMPLATE
+
+If set to true, L<Params::Check> will sanity check templates, validating
+for errors and unknown keys. Although very useful for debugging, this
+can be somewhat slow in hot-code and large loops.
+
+To disable this check, set this variable to C<false>.
+
+Default is 1;
+
+=head2 $Params::Check::WARNINGS_FATAL
+
+If set to true, L<Params::Check> will C<croak> when an error during
+template validation occurs, rather than return C<false>.
+
+Default is 0;
+
+=head2 $Params::Check::CALLER_DEPTH
+
+This global modifies the argument given to C<caller()> by
+C<Params::Check::check()> and is useful if you have a custom wrapper
+function around C<Params::Check::check()>. The value must be an
+integer, indicating the number of wrapper functions inserted between
+the real function call and C<Params::Check::check()>.
+
+Example wrapper function, using a custom stacktrace:
+
+    sub check {
+        my ($template, $args_in) = @_;
+
+        local $Params::Check::WARNINGS_FATAL = 1;
+        local $Params::Check::CALLER_DEPTH = $Params::Check::CALLER_DEPTH + 1;
+        my $args_out = Params::Check::check($template, $args_in);
+
+        my_stacktrace(Params::Check::last_error) unless $args_out;
+
+        return $args_out;
+    }
+
+Default is 0;
+
+=head1 Acknowledgements
+
+Thanks to Richard Soderberg for his performance improvements.
+
+=head1 BUG REPORTS
+
+Please report bugs or other issues to E<lt>bug-params-check@rt.cpan.orgE<gt>.
+
+=head1 AUTHOR
+
+This module by Jos Boumans E<lt>kane@cpan.orgE<gt>.
+
+=head1 COPYRIGHT
+
+This library is free software; you may redistribute and/or modify it
+under the same terms as Perl itself.
+
+
+=cut
+
+# Local variables:
+# c-indentation-style: bsd
+# c-basic-offset: 4
+# indent-tabs-mode: nil
+# End:
+# vim: expandtab shiftwidth=4:
diff --git a/lib/5.24.1/Parse/CPAN/Meta.pm b/lib/5.24.1/Parse/CPAN/Meta.pm
new file mode 100644
index 00000000..56eecb45
--- /dev/null
+++ b/lib/5.24.1/Parse/CPAN/Meta.pm
@@ -0,0 +1,352 @@
+use 5.008001;
+use strict;
+package Parse::CPAN::Meta;
+# ABSTRACT: Parse META.yml and META.json CPAN metadata files
+
+our $VERSION = '1.4417_001';
+
+use Exporter;
+use Carp 'croak';
+
+our @ISA = qw/Exporter/;
+our @EXPORT_OK = qw/Load LoadFile/;
+
+sub load_file {
+  my ($class, $filename) = @_;
+
+  my $meta = _slurp($filename);
+
+  if ($filename =~ /\.ya?ml$/) {
+    return $class->load_yaml_string($meta);
+  }
+  elsif ($filename =~ /\.json$/) {
+    return $class->load_json_string($meta);
+  }
+  else {
+    $class->load_string($meta); # try to detect yaml/json
+  }
+}
+
+sub load_string {
+  my ($class, $string) = @_;
+  if ( $string =~ /^---/ ) { # looks like YAML
+    return $class->load_yaml_string($string);
+  }
+  elsif ( $string =~ /^\s*\{/ ) { # looks like JSON
+    return $class->load_json_string($string);
+  }
+  else { # maybe doc-marker-free YAML
+    return $class->load_yaml_string($string);
+  }
+}
+
+sub load_yaml_string {
+  my ($class, $string) = @_;
+  my $backend = $class->yaml_backend();
+  my $data = eval { no strict 'refs'; &{"$backend\::Load"}($string) };
+  croak $@ if $@;
+  return $data || {}; # in case document was valid but empty
+}
+
+sub load_json_string {
+  my ($class, $string) = @_;
+  my $data = eval { $class->json_backend()->new->decode($string) };
+  croak $@ if $@;
+  return $data || {};
+}
+
+sub yaml_backend {
+  if ($ENV{PERL_CORE} or not defined $ENV{PERL_YAML_BACKEND} ) {
+    _can_load( 'CPAN::Meta::YAML', 0.011 )
+      or croak "CPAN::Meta::YAML 0.011 is not available\n";
+    return "CPAN::Meta::YAML";
+  }
+  else {
+    my $backend = $ENV{PERL_YAML_BACKEND};
+    _can_load( $backend )
+      or croak "Could not load PERL_YAML_BACKEND '$backend'\n";
+    $backend->can("Load")
+      or croak "PERL_YAML_BACKEND '$backend' does not implement Load()\n";
+    return $backend;
+  }
+}
+
+sub json_backend {
+  if ($ENV{PERL_CORE} or ! $ENV{PERL_JSON_BACKEND} or $ENV{PERL_JSON_BACKEND} eq 'JSON::PP') {
+    _can_load( 'JSON::PP' => 2.27103 )
+      or croak "JSON::PP 2.27103 is not available\n";
+    return 'JSON::PP';
+  }
+  else {
+    _can_load( 'JSON' => 2.5 )
+      or croak  "JSON 2.5 is required for " .
+                "\$ENV{PERL_JSON_BACKEND} = '$ENV{PERL_JSON_BACKEND}'\n";
+    return "JSON";
+  }
+}
+
+sub _slurp {
+  require Encode;
+  open my $fh, "<:raw", "$_[0]" ## no critic
+    or die "can't open $_[0] for reading: $!";
+  my $content = do { local $/; <$fh> };
+  $content = Encode::decode('UTF-8', $content, Encode::PERLQQ());
+  return $content;
+}
+  
+sub _can_load {
+  my ($module, $version) = @_;
+  (my $file = $module) =~ s{::}{/}g;
+  $file .= ".pm";
+  return 1 if $INC{$file};
+  return 0 if exists $INC{$file}; # prior load failed
+  eval { require $file; 1 }
+    or return 0;
+  if ( defined $version ) {
+    eval { $module->VERSION($version); 1 }
+      or return 0;
+  }
+  return 1;
+}
+
+# Kept for backwards compatibility only
+# Create an object from a file
+sub LoadFile ($) { ## no critic
+  return Load(_slurp(shift));
+}
+
+# Parse a document from a string.
+sub Load ($) { ## no critic
+  require CPAN::Meta::YAML;
+  my $object = eval { CPAN::Meta::YAML::Load(shift) };
+  croak $@ if $@;
+  return $object;
+}
+
+1;
+
+__END__
+
+=pod
+
+=encoding UTF-8
+
+=head1 NAME
+
+Parse::CPAN::Meta - Parse META.yml and META.json CPAN metadata files
+
+=head1 VERSION
+
+version 1.4417
+
+=head1 SYNOPSIS
+
+    #############################################
+    # In your file
+    
+    ---
+    name: My-Distribution
+    version: 1.23
+    resources:
+      homepage: "http://example.com/dist/My-Distribution"
+    
+    
+    #############################################
+    # In your program
+    
+    use Parse::CPAN::Meta;
+    
+    my $distmeta = Parse::CPAN::Meta->load_file('META.yml');
+    
+    # Reading properties
+    my $name     = $distmeta->{name};
+    my $version  = $distmeta->{version};
+    my $homepage = $distmeta->{resources}{homepage};
+
+=head1 DESCRIPTION
+
+B<Parse::CPAN::Meta> is a parser for F<META.json> and F<META.yml> files, using
+L<JSON::PP> and/or L<CPAN::Meta::YAML>.
+
+B<Parse::CPAN::Meta> provides three methods: C<load_file>, C<load_json_string>,
+and C<load_yaml_string>.  These will read and deserialize CPAN metafiles, and
+are described below in detail.
+
+B<Parse::CPAN::Meta> provides a legacy API of only two functions,
+based on the YAML functions of the same name. Wherever possible,
+identical calling semantics are used.  These may only be used with YAML sources.
+
+All error reporting is done with exceptions (die'ing).
+
+Note that META files are expected to be in UTF-8 encoding, only.  When
+converted string data, it must first be decoded from UTF-8.
+
+=begin Pod::Coverage
+
+
+
+
+=end Pod::Coverage
+
+=head1 METHODS
+
+=head2 load_file
+
+  my $metadata_structure = Parse::CPAN::Meta->load_file('META.json');
+
+  my $metadata_structure = Parse::CPAN::Meta->load_file('META.yml');
+
+This method will read the named file and deserialize it to a data structure,
+determining whether it should be JSON or YAML based on the filename.
+The file will be read using the ":utf8" IO layer.
+
+=head2 load_yaml_string
+
+  my $metadata_structure = Parse::CPAN::Meta->load_yaml_string($yaml_string);
+
+This method deserializes the given string of YAML and returns the first
+document in it.  (CPAN metadata files should always have only one document.)
+If the source was UTF-8 encoded, the string must be decoded before calling
+C<load_yaml_string>.
+
+=head2 load_json_string
+
+  my $metadata_structure = Parse::CPAN::Meta->load_json_string($json_string);
+
+This method deserializes the given string of JSON and the result.  
+If the source was UTF-8 encoded, the string must be decoded before calling
+C<load_json_string>.
+
+=head2 load_string
+
+  my $metadata_structure = Parse::CPAN::Meta->load_string($some_string);
+
+If you don't know whether a string contains YAML or JSON data, this method
+will use some heuristics and guess.  If it can't tell, it assumes YAML.
+
+=head2 yaml_backend
+
+  my $backend = Parse::CPAN::Meta->yaml_backend;
+
+Returns the module name of the YAML serializer. See L</ENVIRONMENT>
+for details.
+
+=head2 json_backend
+
+  my $backend = Parse::CPAN::Meta->json_backend;
+
+Returns the module name of the JSON serializer.  This will either
+be L<JSON::PP> or L<JSON>.  Even if C<PERL_JSON_BACKEND> is set,
+this will return L<JSON> as further delegation is handled by
+the L<JSON> module.  See L</ENVIRONMENT> for details.
+
+=head1 FUNCTIONS
+
+For maintenance clarity, no functions are exported by default.  These functions
+are available for backwards compatibility only and are best avoided in favor of
+C<load_file>.
+
+=head2 Load
+
+  my @yaml = Parse::CPAN::Meta::Load( $string );
+
+Parses a string containing a valid YAML stream into a list of Perl data
+structures.
+
+=head2 LoadFile
+
+  my @yaml = Parse::CPAN::Meta::LoadFile( 'META.yml' );
+
+Reads the YAML stream from a file instead of a string.
+
+=head1 ENVIRONMENT
+
+=head2 PERL_JSON_BACKEND
+
+By default, L<JSON::PP> will be used for deserializing JSON data. If the
+C<PERL_JSON_BACKEND> environment variable exists, is true and is not
+"JSON::PP", then the L<JSON> module (version 2.5 or greater) will be loaded and
+used to interpret C<PERL_JSON_BACKEND>.  If L<JSON> is not installed or is too
+old, an exception will be thrown.
+
+=head2 PERL_YAML_BACKEND
+
+By default, L<CPAN::Meta::YAML> will be used for deserializing YAML data. If
+the C<PERL_YAML_BACKEND> environment variable is defined, then it is interpreted
+as a module to use for deserialization.  The given module must be installed,
+must load correctly and must implement the C<Load()> function or an exception
+will be thrown.
+
+=for :stopwords cpan testmatrix url annocpan anno bugtracker rt cpants kwalitee diff irc mailto metadata placeholders metacpan
+
+=head1 SUPPORT
+
+=head2 Bugs / Feature Requests
+
+Please report any bugs or feature requests through the issue tracker
+at L<https://github.com/Perl-Toolchain-Gang/Parse-CPAN-Meta/issues>.
+You will be notified automatically of any progress on your issue.
+
+=head2 Source Code
+
+This is open source software.  The code repository is available for
+public review and contribution under the terms of the license.
+
+L<https://github.com/Perl-Toolchain-Gang/Parse-CPAN-Meta>
+
+  git clone https://github.com/Perl-Toolchain-Gang/Parse-CPAN-Meta.git
+
+=head1 AUTHORS
+
+=over 4
+
+=item *
+
+Adam Kennedy <adamk@cpan.org>
+
+=item *
+
+David Golden <dagolden@cpan.org>
+
+=back
+
+=head1 CONTRIBUTORS
+
+=for stopwords Graham Knop Joshua ben Jore Karen Etheridge Neil Bowers Ricardo Signes Steffen Mueller
+
+=over 4
+
+=item *
+
+Graham Knop <haarg@haarg.org>
+
+=item *
+
+Joshua ben Jore <jjore@cpan.org>
+
+=item *
+
+Karen Etheridge <ether@cpan.org>
+
+=item *
+
+Neil Bowers <neil@bowers.com>
+
+=item *
+
+Ricardo Signes <rjbs@cpan.org>
+
+=item *
+
+Steffen Mueller <smueller@cpan.org>
+
+=back
+
+=head1 COPYRIGHT AND LICENSE
+
+This software is copyright (c) 2015 by Adam Kennedy and Contributors.
+
+This is free software; you can redistribute it and/or modify it under
+the same terms as the Perl 5 programming language system itself.
+
+=cut
diff --git a/lib/5.24.1/Perl/OSType.pm b/lib/5.24.1/Perl/OSType.pm
new file mode 100644
index 00000000..8a915771
--- /dev/null
+++ b/lib/5.24.1/Perl/OSType.pm
@@ -0,0 +1,216 @@
+use strict;
+use warnings;
+
+package Perl::OSType;
+# ABSTRACT: Map Perl operating system names to generic types
+
+our $VERSION = '1.009';
+
+require Exporter;
+our @ISA = qw(Exporter);
+
+our %EXPORT_TAGS = ( all => [qw( os_type is_os_type )] );
+
+our @EXPORT_OK = @{ $EXPORT_TAGS{all} };
+
+# originally taken from Module::Build by Ken Williams et al.
+my %OSTYPES = qw(
+  aix         Unix
+  bsdos       Unix
+  beos        Unix
+  bitrig      Unix
+  dgux        Unix
+  dragonfly   Unix
+  dynixptx    Unix
+  freebsd     Unix
+  linux       Unix
+  haiku       Unix
+  hpux        Unix
+  iphoneos    Unix
+  irix        Unix
+  darwin      Unix
+  machten     Unix
+  midnightbsd Unix
+  minix       Unix
+  mirbsd      Unix
+  next        Unix
+  openbsd     Unix
+  netbsd      Unix
+  dec_osf     Unix
+  nto         Unix
+  svr4        Unix
+  svr5        Unix
+  sco         Unix
+  sco_sv      Unix
+  unicos      Unix
+  unicosmk    Unix
+  solaris     Unix
+  sunos       Unix
+  cygwin      Unix
+  os2         Unix
+  interix     Unix
+  gnu         Unix
+  gnukfreebsd Unix
+  nto         Unix
+  qnx         Unix
+  android     Unix
+
+  dos         Windows
+  MSWin32     Windows
+
+  os390       EBCDIC
+  os400       EBCDIC
+  posix-bc    EBCDIC
+  vmesa       EBCDIC
+
+  MacOS       MacOS
+  VMS         VMS
+  vos         VOS
+  riscos      RiscOS
+  amigaos     Amiga
+  mpeix       MPEiX
+);
+
+sub os_type {
+    my ($os) = @_;
+    $os = $^O unless defined $os;
+    return $OSTYPES{$os} || q{};
+}
+
+sub is_os_type {
+    my ( $type, $os ) = @_;
+    return unless $type;
+    $os = $^O unless defined $os;
+    return os_type($os) eq $type;
+}
+
+1;
+
+=pod
+
+=encoding UTF-8
+
+=head1 NAME
+
+Perl::OSType - Map Perl operating system names to generic types
+
+=head1 VERSION
+
+version 1.009
+
+=head1 SYNOPSIS
+
+  use Perl::OSType ':all';
+
+  $current_type = os_type();
+  $other_type = os_type('dragonfly'); # gives 'Unix'
+
+=head1 DESCRIPTION
+
+Modules that provide OS-specific behaviors often need to know if
+the current operating system matches a more generic type of
+operating systems. For example, 'linux' is a type of 'Unix' operating system
+and so is 'freebsd'.
+
+This module provides a mapping between an operating system name as given by
+C<$^O> and a more generic type.  The initial version is based on the OS type
+mappings provided in L<Module::Build> and L<ExtUtils::CBuilder>.  (Thus,
+Microsoft operating systems are given the type 'Windows' rather than 'Win32'.)
+
+=head1 USAGE
+
+No functions are exported by default. The export tag ":all" will export
+all functions listed below.
+
+=head2 os_type()
+
+  $os_type = os_type();
+  $os_type = os_type('MSWin32');
+
+Returns a single, generic OS type for a given operating system name.  With no
+arguments, returns the OS type for the current value of C<$^O>.  If the
+operating system is not recognized, the function will return the empty string.
+
+=head2 is_os_type()
+
+  $is_windows = is_os_type('Windows');
+  $is_unix    = is_os_type('Unix', 'dragonfly');
+
+Given an OS type and OS name, returns true or false if the OS name is of the
+given type.  As with C<os_type>, it will use the current operating system as a
+default if no OS name is provided.
+
+=head1 SEE ALSO
+
+=over 4
+
+=item *
+
+L<Devel::CheckOS>
+
+=back
+
+=for :stopwords cpan testmatrix url annocpan anno bugtracker rt cpants kwalitee diff irc mailto metadata placeholders metacpan
+
+=head1 SUPPORT
+
+=head2 Bugs / Feature Requests
+
+Please report any bugs or feature requests through the issue tracker
+at L<https://github.com/Perl-Toolchain-Gang/Perl-OSType/issues>.
+You will be notified automatically of any progress on your issue.
+
+=head2 Source Code
+
+This is open source software.  The code repository is available for
+public review and contribution under the terms of the license.
+
+L<https://github.com/Perl-Toolchain-Gang/Perl-OSType>
+
+  git clone https://github.com/Perl-Toolchain-Gang/Perl-OSType.git
+
+=head1 AUTHOR
+
+David Golden <dagolden@cpan.org>
+
+=head1 CONTRIBUTORS
+
+=for stopwords Chris 'BinGOs' Williams Jonas B. Nielsen Owain G. Ainsworth Paul Green Piotr Roszatycki
+
+=over 4
+
+=item *
+
+Chris 'BinGOs' Williams <chris@bingosnet.co.uk>
+
+=item *
+
+Jonas B. Nielsen <jonasbn@hoarfrost.local>
+
+=item *
+
+Owain G. Ainsworth <oga@nicotinebsd.org>
+
+=item *
+
+Paul Green <Paul.Green@stratus.com>
+
+=item *
+
+Piotr Roszatycki <piotr.roszatycki@gmail.com>
+
+=back
+
+=head1 COPYRIGHT AND LICENSE
+
+This software is copyright (c) 2015 by David Golden.
+
+This is free software; you can redistribute it and/or modify it under
+the same terms as the Perl 5 programming language system itself.
+
+=cut
+
+__END__
+
+
+# vim: ts=4 sts=4 sw=4 et:
diff --git a/lib/5.24.1/PerlIO.pm b/lib/5.24.1/PerlIO.pm
new file mode 100644
index 00000000..2e27f98b
--- /dev/null
+++ b/lib/5.24.1/PerlIO.pm
@@ -0,0 +1,331 @@
+package PerlIO;
+
+our $VERSION = '1.09';
+
+# Map layer name to package that defines it
+our %alias;
+
+sub import
+{
+ my $class = shift;
+ while (@_)
+  {
+   my $layer = shift;
+   if (exists $alias{$layer})
+    {
+     $layer = $alias{$layer}
+    }
+   else
+    {
+     $layer = "${class}::$layer";
+    }
+   eval { require $layer =~ s{::}{/}gr . '.pm' };
+   warn $@ if $@;
+  }
+}
+
+sub F_UTF8 () { 0x8000 }
+
+1;
+__END__
+
+=head1 NAME
+
+PerlIO - On demand loader for PerlIO layers and root of PerlIO::* name space
+
+=head1 SYNOPSIS
+
+  open($fh, "<:crlf", "my.txt"); # support platform-native and 
+                                 # CRLF text files
+
+  open($fh, "<", "his.jpg"); # portably open a binary file for reading
+  binmode($fh);
+
+  Shell:
+    PERLIO=perlio perl ....
+
+=head1 DESCRIPTION
+
+When an undefined layer 'foo' is encountered in an C<open> or
+C<binmode> layer specification then C code performs the equivalent of:
+
+  use PerlIO 'foo';
+
+The perl code in PerlIO.pm then attempts to locate a layer by doing
+
+  require PerlIO::foo;
+
+Otherwise the C<PerlIO> package is a place holder for additional
+PerlIO related functions.
+
+The following layers are currently defined:
+
+=over 4
+
+=item :unix
+
+Lowest level layer which provides basic PerlIO operations in terms of
+UNIX/POSIX numeric file descriptor calls
+(open(), read(), write(), lseek(), close()).
+
+=item :stdio
+
+Layer which calls C<fread>, C<fwrite> and C<fseek>/C<ftell> etc.  Note
+that as this is "real" stdio it will ignore any layers beneath it and
+go straight to the operating system via the C library as usual.
+
+=item :perlio
+
+A from scratch implementation of buffering for PerlIO. Provides fast
+access to the buffer for C<sv_gets> which implements perl's readline/E<lt>E<gt>
+and in general attempts to minimize data copying.
+
+C<:perlio> will insert a C<:unix> layer below itself to do low level IO.
+
+=item :crlf
+
+A layer that implements DOS/Windows like CRLF line endings.  On read
+converts pairs of CR,LF to a single "\n" newline character.  On write
+converts each "\n" to a CR,LF pair.  Note that this layer will silently
+refuse to be pushed on top of itself.
+
+It currently does I<not> mimic MS-DOS as far as treating of Control-Z
+as being an end-of-file marker.
+
+Based on the C<:perlio> layer.
+
+=item :utf8
+
+Declares that the stream accepts perl's I<internal> encoding of
+characters.  (Which really is UTF-8 on ASCII machines, but is
+UTF-EBCDIC on EBCDIC machines.)  This allows any character perl can
+represent to be read from or written to the stream. The UTF-X encoding
+is chosen to render simple text parts (i.e.  non-accented letters,
+digits and common punctuation) human readable in the encoded file.
+
+(B<CAUTION>: This layer does not validate byte sequences.  For reading input,
+you should instead use C<:encoding(utf8)> instead of bare C<:utf8>.)
+
+Here is how to write your native data out using UTF-8 (or UTF-EBCDIC)
+and then read it back in.
+
+	open(F, ">:utf8", "data.utf");
+	print F $out;
+	close(F);
+
+	open(F, "<:utf8", "data.utf");
+	$in = <F>;
+	close(F);
+
+
+=item :bytes
+
+This is the inverse of the C<:utf8> layer. It turns off the flag
+on the layer below so that data read from it is considered to
+be "octets" i.e. characters in the range 0..255 only. Likewise
+on output perl will warn if a "wide" character is written
+to a such a stream.
+
+=item :raw
+
+The C<:raw> layer is I<defined> as being identical to calling
+C<binmode($fh)> - the stream is made suitable for passing binary data,
+i.e. each byte is passed as-is. The stream will still be
+buffered.
+
+In Perl 5.6 and some books the C<:raw> layer (previously sometimes also
+referred to as a "discipline") is documented as the inverse of the
+C<:crlf> layer. That is no longer the case - other layers which would
+alter the binary nature of the stream are also disabled.  If you want UNIX
+line endings on a platform that normally does CRLF translation, but still
+want UTF-8 or encoding defaults, the appropriate thing to do is to add
+C<:perlio> to the PERLIO environment variable.
+
+The implementation of C<:raw> is as a pseudo-layer which when "pushed"
+pops itself and then any layers which do not declare themselves as suitable
+for binary data. (Undoing :utf8 and :crlf are implemented by clearing
+flags rather than popping layers but that is an implementation detail.)
+
+As a consequence of the fact that C<:raw> normally pops layers,
+it usually only makes sense to have it as the only or first element in
+a layer specification.  When used as the first element it provides
+a known base on which to build e.g.
+
+    open($fh,":raw:utf8",...)
+
+will construct a "binary" stream, but then enable UTF-8 translation.
+
+=item :pop
+
+A pseudo layer that removes the top-most layer. Gives perl code a
+way to manipulate the layer stack.  Note that C<:pop> only works on
+real layers and will not undo the effects of pseudo layers like
+C<:utf8>.  An example of a possible use might be:
+
+    open($fh,...)
+    ...
+    binmode($fh,":encoding(...)");  # next chunk is encoded
+    ...
+    binmode($fh,":pop");            # back to un-encoded
+
+A more elegant (and safer) interface is needed.
+
+=item :win32
+
+On Win32 platforms this I<experimental> layer uses the native "handle" IO
+rather than the unix-like numeric file descriptor layer. Known to be
+buggy as of perl 5.8.2.
+
+=back
+
+=head2 Custom Layers
+
+It is possible to write custom layers in addition to the above builtin
+ones, both in C/XS and Perl.  Two such layers (and one example written
+in Perl using the latter) come with the Perl distribution.
+
+=over 4
+
+=item :encoding
+
+Use C<:encoding(ENCODING)> either in open() or binmode() to install
+a layer that transparently does character set and encoding transformations,
+for example from Shift-JIS to Unicode.  Note that under C<stdio>
+an C<:encoding> also enables C<:utf8>.  See L<PerlIO::encoding>
+for more information.
+
+=item :mmap
+
+A layer which implements "reading" of files by using C<mmap()> to
+make a (whole) file appear in the process's address space, and then
+using that as PerlIO's "buffer". This I<may> be faster in certain
+circumstances for large files, and may result in less physical memory
+use when multiple processes are reading the same file.
+
+Files which are not C<mmap()>-able revert to behaving like the C<:perlio>
+layer. Writes also behave like the C<:perlio> layer, as C<mmap()> for write
+needs extra house-keeping (to extend the file) which negates any advantage.
+
+The C<:mmap> layer will not exist if the platform does not support C<mmap()>.
+
+=item :via
+
+Use C<:via(MODULE)> either in open() or binmode() to install a layer
+that does whatever transformation (for example compression /
+decompression, encryption / decryption) to the filehandle.
+See L<PerlIO::via> for more information.
+
+=back
+
+=head2 Alternatives to raw
+
+To get a binary stream an alternate method is to use:
+
+    open($fh,"whatever")
+    binmode($fh);
+
+this has the advantage of being backward compatible with how such things have
+had to be coded on some platforms for years.
+
+To get an unbuffered stream specify an unbuffered layer (e.g. C<:unix>)
+in the open call:
+
+    open($fh,"<:unix",$path)
+
+=head2 Defaults and how to override them
+
+If the platform is MS-DOS like and normally does CRLF to "\n"
+translation for text files then the default layers are :
+
+  unix crlf
+
+(The low level "unix" layer may be replaced by a platform specific low
+level layer.)
+
+Otherwise if C<Configure> found out how to do "fast" IO using the system's
+stdio, then the default layers are:
+
+  unix stdio
+
+Otherwise the default layers are
+
+  unix perlio
+
+These defaults may change once perlio has been better tested and tuned.
+
+The default can be overridden by setting the environment variable
+PERLIO to a space separated list of layers (C<unix> or platform low
+level layer is always pushed first).
+
+This can be used to see the effect of/bugs in the various layers e.g.
+
+  cd .../perl/t
+  PERLIO=stdio  ./perl harness
+  PERLIO=perlio ./perl harness
+
+For the various values of PERLIO see L<perlrun/PERLIO>.
+
+=head2 Querying the layers of filehandles
+
+The following returns the B<names> of the PerlIO layers on a filehandle.
+
+   my @layers = PerlIO::get_layers($fh); # Or FH, *FH, "FH".
+
+The layers are returned in the order an open() or binmode() call would
+use them.  Note that the "default stack" depends on the operating
+system and on the Perl version, and both the compile-time and
+runtime configurations of Perl.
+
+The following table summarizes the default layers on UNIX-like and
+DOS-like platforms and depending on the setting of C<$ENV{PERLIO}>:
+
+ PERLIO     UNIX-like                   DOS-like
+ ------     ---------                   --------
+ unset / "" unix perlio / stdio [1]     unix crlf
+ stdio      unix perlio / stdio [1]     stdio
+ perlio     unix perlio                 unix perlio
+
+ # [1] "stdio" if Configure found out how to do "fast stdio" (depends
+ # on the stdio implementation) and in Perl 5.8, otherwise "unix perlio"
+
+By default the layers from the input side of the filehandle are
+returned; to get the output side, use the optional C<output> argument:
+
+   my @layers = PerlIO::get_layers($fh, output => 1);
+
+(Usually the layers are identical on either side of a filehandle but
+for example with sockets there may be differences, or if you have
+been using the C<open> pragma.)
+
+There is no set_layers(), nor does get_layers() return a tied array
+mirroring the stack, or anything fancy like that.  This is not
+accidental or unintentional.  The PerlIO layer stack is a bit more
+complicated than just a stack (see for example the behaviour of C<:raw>).
+You are supposed to use open() and binmode() to manipulate the stack.
+
+B<Implementation details follow, please close your eyes.>
+
+The arguments to layers are by default returned in parentheses after
+the name of the layer, and certain layers (like C<utf8>) are not real
+layers but instead flags on real layers; to get all of these returned
+separately, use the optional C<details> argument:
+
+   my @layer_and_args_and_flags = PerlIO::get_layers($fh, details => 1);
+
+The result will be up to be three times the number of layers:
+the first element will be a name, the second element the arguments
+(unspecified arguments will be C<undef>), the third element the flags,
+the fourth element a name again, and so forth.
+
+B<You may open your eyes now.>
+
+=head1 AUTHOR
+
+Nick Ing-Simmons E<lt>nick@ing-simmons.netE<gt>
+
+=head1 SEE ALSO
+
+L<perlfunc/"binmode">, L<perlfunc/"open">, L<perlunicode>, L<perliol>,
+L<Encode>
+
+=cut
diff --git a/lib/5.24.1/PerlIO/via/QuotedPrint.pm b/lib/5.24.1/PerlIO/via/QuotedPrint.pm
new file mode 100644
index 00000000..8135e176
--- /dev/null
+++ b/lib/5.24.1/PerlIO/via/QuotedPrint.pm
@@ -0,0 +1,102 @@
+package PerlIO::via::QuotedPrint;
+
+$VERSION= '0.08';
+
+# be as strict as possible
+use strict;
+
+# modules that we need
+use MIME::QuotedPrint (); # no need to pollute this namespace
+
+# satisfy -require-
+1;
+
+#-------------------------------------------------------------------------------
+#
+# Standard Perl features
+#
+#-------------------------------------------------------------------------------
+#  IN: 1 class to bless with
+#      2 mode string (ignored)
+#      3 file handle of PerlIO layer below (ignored)
+# OUT: 1 blessed object
+
+sub PUSHED { bless \*PUSHED,$_[0] } #PUSHED
+
+#-------------------------------------------------------------------------------
+#  IN: 1 instantiated object (ignored)
+#      2 handle to read from
+# OUT: 1 decoded string
+
+sub FILL {
+
+    # decode and return
+    my $line= readline( $_[1] );
+    return ( defined $line )
+      ? MIME::QuotedPrint::decode_qp($line)
+      : undef;
+} #FILL
+
+#-------------------------------------------------------------------------------
+#  IN: 1 instantiated object (ignored)
+#      2 buffer to be written
+#      3 handle to write to
+# OUT: 1 number of bytes written
+
+sub WRITE {
+
+    # encode and write to handle: indicate result
+    return ( print { $_[2] } MIME::QuotedPrint::encode_qp( $_[1] ) )
+      ? length( $_[1] )
+      : -1;
+} #WRITE
+
+#-------------------------------------------------------------------------------
+
+__END__
+
+=head1 NAME
+
+PerlIO::via::QuotedPrint - PerlIO layer for quoted-printable strings
+
+=head1 SYNOPSIS
+
+ use PerlIO::via::QuotedPrint;
+
+ open( my $in, '<:via(QuotedPrint)', 'file.qp' )
+   or die "Can't open file.qp for reading: $!\n";
+ 
+ open( my $out, '>:via(QuotedPrint)', 'file.qp' )
+   or die "Can't open file.qp for writing: $!\n";
+
+=head1 VERSION
+
+This documentation describes version 0.08.
+
+=head1 DESCRIPTION
+
+This module implements a PerlIO layer that works on files encoded in the
+quoted-printable format.  It will decode from quoted-printable while reading
+from a handle, and it will encode as quoted-printable while writing to a handle.
+
+=head1 REQUIRED MODULES
+
+ MIME::QuotedPrint (any)
+
+=head1 SEE ALSO
+
+L<PerlIO::via>, L<MIME::QuotedPrint>, L<PerlIO::via::Base64>,
+L<PerlIO::via::MD5>, L<PerlIO::via::StripHTML>, L<PerlIO::via::Rotate>.
+
+=head1 ACKNOWLEDGEMENTS
+
+Based on example that was initially added to MIME::QuotedPrint.pm for the
+5.8.0 distribution of Perl.
+
+=head1 COPYRIGHT
+
+Copyright (c) 2002, 2003, 2004, 2012 Elizabeth Mattijsen.  All rights reserved.
+This library is free software; you can redistribute it and/or modify it under
+the same terms as Perl itself.
+
+=cut
diff --git a/lib/5.24.1/Pod/Checker.pm b/lib/5.24.1/Pod/Checker.pm
new file mode 100644
index 00000000..ba47e6fa
--- /dev/null
+++ b/lib/5.24.1/Pod/Checker.pm
@@ -0,0 +1,1330 @@
+#############################################################################
+# Pod/Checker.pm -- check pod documents for syntax errors
+#
+# Copyright (C) 1994-2000 by Bradford Appleton. All rights reserved.
+# This file is part of "PodParser". PodParser is free software;
+# you can redistribute it and/or modify it under the same terms
+# as Perl itself.
+#############################################################################
+
+package Pod::Checker;
+use strict;
+
+use vars qw($VERSION @ISA @EXPORT %VALID_COMMANDS %VALID_SEQUENCES);
+$VERSION = '1.60';  ## Current version of this package
+require  5.005;    ## requires this Perl version or later
+
+use Pod::ParseUtils; ## for hyperlinks and lists
+
+=head1 NAME
+
+Pod::Checker, podchecker() - check pod documents for syntax errors
+
+=head1 SYNOPSIS
+
+  use Pod::Checker;
+
+  $num_errors = podchecker($filepath, $outputpath, %options);
+
+  my $checker = new Pod::Checker %options;
+  $checker->parse_from_file($filepath, \*STDERR);
+
+=head1 OPTIONS/ARGUMENTS
+
+C<$filepath> is the input POD to read and C<$outputpath> is
+where to write POD syntax error messages. Either argument may be a scalar
+indicating a file-path, or else a reference to an open filehandle.
+If unspecified, the input-file it defaults to C<\*STDIN>, and
+the output-file defaults to C<\*STDERR>.
+
+=head2 podchecker()
+
+This function can take a hash of options:
+
+=over 4
+
+=item B<-warnings> =E<gt> I<val>
+
+Turn warnings on/off. I<val> is usually 1 for on, but higher values
+trigger additional warnings. See L<"Warnings">.
+
+=back
+
+=head1 DESCRIPTION
+
+B<podchecker> will perform syntax checking of Perl5 POD format documentation.
+
+Curious/ambitious users are welcome to propose additional features they wish
+to see in B<Pod::Checker> and B<podchecker> and verify that the checks are
+consistent with L<perlpod>.
+
+The following checks are currently performed:
+
+=over 4
+
+=item *
+
+Unknown '=xxxx' commands, unknown 'XE<lt>...E<gt>' interior-sequences,
+and unterminated interior sequences.
+
+=item *
+
+Check for proper balancing of C<=begin> and C<=end>. The contents of such
+a block are generally ignored, i.e. no syntax checks are performed.
+
+=item *
+
+Check for proper nesting and balancing of C<=over>, C<=item> and C<=back>.
+
+=item *
+
+Check for same nested interior-sequences (e.g.
+C<LE<lt>...LE<lt>...E<gt>...E<gt>>).
+
+=item *
+
+Check for malformed or non-existing entities C<EE<lt>...E<gt>>.
+
+=item *
+
+Check for correct syntax of hyperlinks C<LE<lt>...E<gt>>. See L<perlpod>
+for details.
+
+=item *
+
+Check for unresolved document-internal links. This check may also reveal
+misspelled links that seem to be internal links but should be links
+to something else.
+
+=back
+
+=head1 DIAGNOSTICS
+
+=head2 Errors
+
+=over 4
+
+=item * empty =headn
+
+A heading (C<=head1> or C<=head2>) without any text? That ain't no
+heading!
+
+=item * =over on line I<N> without closing =back
+
+The C<=over> command does not have a corresponding C<=back> before the
+next heading (C<=head1> or C<=head2>) or the end of the file.
+
+=item * =item without previous =over
+
+=item * =back without previous =over
+
+An C<=item> or C<=back> command has been found outside a
+C<=over>/C<=back> block.
+
+=item * No argument for =begin
+
+A C<=begin> command was found that is not followed by the formatter
+specification.
+
+=item * =end without =begin
+
+A standalone C<=end> command was found.
+
+=item * Nested =begin's
+
+There were at least two consecutive C<=begin> commands without
+the corresponding C<=end>. Only one C<=begin> may be active at
+a time.
+
+=item * =for without formatter specification
+
+There is no specification of the formatter after the C<=for> command.
+
+=item * Apparent command =foo not preceded by blank line
+
+A command which has ended up in the middle of a paragraph or other command,
+such as
+
+  =item one
+  =item two <-- bad
+
+=item * unresolved internal link I<NAME>
+
+The given link to I<NAME> does not have a matching node in the current
+POD. This also happened when a single word node name is not enclosed in
+C<"">.
+
+=item * Unknown command "I<CMD>"
+
+An invalid POD command has been found. Valid are C<=head1>, C<=head2>,
+C<=head3>, C<=head4>, C<=over>, C<=item>, C<=back>, C<=begin>, C<=end>,
+C<=for>, C<=pod>, C<=cut>
+
+=item * Unknown interior-sequence "I<SEQ>"
+
+An invalid markup command has been encountered. Valid are:
+C<BE<lt>E<gt>>, C<CE<lt>E<gt>>, C<EE<lt>E<gt>>, C<FE<lt>E<gt>>,
+C<IE<lt>E<gt>>, C<LE<lt>E<gt>>, C<SE<lt>E<gt>>, C<XE<lt>E<gt>>,
+C<ZE<lt>E<gt>>
+
+=item * nested commands I<CMD>E<lt>...I<CMD>E<lt>...E<gt>...E<gt>
+
+Two nested identical markup commands have been found. Generally this
+does not make sense.
+
+=item * garbled entity I<STRING>
+
+The I<STRING> found cannot be interpreted as a character entity.
+
+=item * Entity number out of range
+
+An entity specified by number (dec, hex, oct) is out of range (1-255).
+
+=item * malformed link LE<lt>E<gt>
+
+The link found cannot be parsed because it does not conform to the
+syntax described in L<perlpod>.
+
+=item * nonempty ZE<lt>E<gt>
+
+The C<ZE<lt>E<gt>> sequence is supposed to be empty.
+
+=item * empty XE<lt>E<gt>
+
+The index entry specified contains nothing but whitespace.
+
+=item * Spurious text after =pod / =cut
+
+The commands C<=pod> and C<=cut> do not take any arguments.
+
+=item * Spurious =cut command
+
+A C<=cut> command was found without a preceding POD paragraph.
+
+=item * Spurious =pod command
+
+A C<=pod> command was found after a preceding POD paragraph.
+
+=item * Spurious character(s) after =back
+
+The C<=back> command does not take any arguments.
+
+=back
+
+=head2 Warnings
+
+These may not necessarily cause trouble, but indicate mediocre style.
+
+=over 4
+
+=item * multiple occurrence of link target I<name>
+
+The POD file has some C<=item> and/or C<=head> commands that have
+the same text. Potential hyperlinks to such a text cannot be unique then.
+This warning is printed only with warning level greater than one.
+
+=item * line containing nothing but whitespace in paragraph
+
+There is some whitespace on a seemingly empty line. POD is very sensitive
+to such things, so this is flagged. B<vi> users switch on the B<list>
+option to avoid this problem.
+
+=begin _disabled_
+
+=item * file does not start with =head
+
+The file starts with a different POD directive than head.
+This is most probably something you do not want.
+
+=end _disabled_
+
+=item * previous =item has no contents
+
+There is a list C<=item> right above the flagged line that has no
+text contents. You probably want to delete empty items.
+
+=item * preceding non-item paragraph(s)
+
+A list introduced by C<=over> starts with a text or verbatim paragraph,
+but continues with C<=item>s. Move the non-item paragraph out of the
+C<=over>/C<=back> block.
+
+=item * =item type mismatch (I<one> vs. I<two>)
+
+A list started with e.g. a bullet-like C<=item> and continued with a
+numbered one. This is obviously inconsistent. For most translators the
+type of the I<first> C<=item> determines the type of the list.
+
+=item * I<N> unescaped C<E<lt>E<gt>> in paragraph
+
+Angle brackets not written as C<E<lt>ltE<gt>> and C<E<lt>gtE<gt>>
+can potentially cause errors as they could be misinterpreted as
+markup commands. This is only printed when the -warnings level is
+greater than 1.
+
+=item * Unknown entity
+
+A character entity was found that does not belong to the standard
+ISO set or the POD specials C<verbar> and C<sol>.
+
+=item * No items in =over
+
+The list opened with C<=over> does not contain any items.
+
+=item * No argument for =item
+
+C<=item> without any parameters is deprecated. It should either be followed
+by C<*> to indicate an unordered list, by a number (optionally followed
+by a dot) to indicate an ordered (numbered) list or simple text for a
+definition list.
+
+=item * empty section in previous paragraph
+
+The previous section (introduced by a C<=head> command) does not contain
+any text. This usually indicates that something is missing. Note: A
+C<=head1> followed immediately by C<=head2> does not trigger this warning.
+
+=item * Verbatim paragraph in NAME section
+
+The NAME section (C<=head1 NAME>) should consist of a single paragraph
+with the script/module name, followed by a dash `-' and a very short
+description of what the thing is good for.
+
+=item * =headI<n> without preceding higher level
+
+For example if there is a C<=head2> in the POD file prior to a
+C<=head1>.
+
+=back
+
+=head2 Hyperlinks
+
+There are some warnings with respect to malformed hyperlinks:
+
+=over 4
+
+=item * ignoring leading/trailing whitespace in link
+
+There is whitespace at the beginning or the end of the contents of
+LE<lt>...E<gt>.
+
+=item * (section) in '$page' deprecated
+
+There is a section detected in the page name of LE<lt>...E<gt>, e.g.
+C<LE<lt>passwd(2)E<gt>>. POD hyperlinks may point to POD documents only.
+Please write C<CE<lt>passwd(2)E<gt>> instead. Some formatters are able
+to expand this to appropriate code. For links to (builtin) functions,
+please say C<LE<lt>perlfunc/mkdirE<gt>>, without ().
+
+=item * alternative text/node '%s' contains non-escaped | or /
+
+The characters C<|> and C</> are special in the LE<lt>...E<gt> context.
+Although the hyperlink parser does its best to determine which "/" is
+text and which is a delimiter in case of doubt, one ought to escape
+these literal characters like this:
+
+  /     E<sol>
+  |     E<verbar>
+
+=back
+
+=head1 RETURN VALUE
+
+B<podchecker> returns the number of POD syntax errors found or -1 if
+there were no POD commands at all found in the file.
+
+=head1 EXAMPLES
+
+See L</SYNOPSIS>
+
+=head1 INTERFACE
+
+While checking, this module collects document properties, e.g. the nodes
+for hyperlinks (C<=headX>, C<=item>) and index entries (C<XE<lt>E<gt>>).
+POD translators can use this feature to syntax-check and get the nodes in
+a first pass before actually starting to convert. This is expensive in terms
+of execution time, but allows for very robust conversions.
+
+Since PodParser-1.24 the B<Pod::Checker> module uses only the B<poderror>
+method to print errors and warnings. The summary output (e.g.
+"Pod syntax OK") has been dropped from the module and has been included in
+B<podchecker> (the script). This allows users of B<Pod::Checker> to
+control completely the output behavior. Users of B<podchecker> (the script)
+get the well-known behavior.
+
+=cut
+
+#############################################################################
+
+#use diagnostics;
+use Carp qw(croak);
+use Exporter;
+use Pod::Parser;
+
+@ISA = qw(Pod::Parser);
+@EXPORT = qw(&podchecker);
+
+my %VALID_COMMANDS = (
+    'pod'    =>  1,
+    'cut'    =>  1,
+    'head1'  =>  1,
+    'head2'  =>  1,
+    'head3'  =>  1,
+    'head4'  =>  1,
+    'over'   =>  1,
+    'back'   =>  1,
+    'item'   =>  1,
+    'for'    =>  1,
+    'begin'  =>  1,
+    'end'    =>  1,
+    'encoding' =>  1,
+);
+
+my %VALID_SEQUENCES = (
+    'I'  =>  1,
+    'B'  =>  1,
+    'S'  =>  1,
+    'C'  =>  1,
+    'L'  =>  1,
+    'F'  =>  1,
+    'X'  =>  1,
+    'Z'  =>  1,
+    'E'  =>  1,
+);
+
+# stolen from HTML::Entities
+my %ENTITIES = (
+ # Some normal chars that have special meaning in SGML context
+ amp    => '&',  # ampersand
+'gt'    => '>',  # greater than
+'lt'    => '<',  # less than
+ quot   => '"',  # double quote
+
+ # PUBLIC ISO 8879-1986//ENTITIES Added Latin 1//EN//HTML
+ AElig  => 'Æ',  # capital AE diphthong (ligature)
+ Aacute => 'Á',  # capital A, acute accent
+ Acirc  => 'Â',  # capital A, circumflex accent
+ Agrave => 'À',  # capital A, grave accent
+ Aring  => 'Å',  # capital A, ring
+ Atilde => 'Ã',  # capital A, tilde
+ Auml   => 'Ä',  # capital A, dieresis or umlaut mark
+ Ccedil => 'Ç',  # capital C, cedilla
+ ETH    => 'Ð',  # capital Eth, Icelandic
+ Eacute => 'É',  # capital E, acute accent
+ Ecirc  => 'Ê',  # capital E, circumflex accent
+ Egrave => 'È',  # capital E, grave accent
+ Euml   => 'Ë',  # capital E, dieresis or umlaut mark
+ Iacute => 'Í',  # capital I, acute accent
+ Icirc  => 'Î',  # capital I, circumflex accent
+ Igrave => 'Ì',  # capital I, grave accent
+ Iuml   => 'Ï',  # capital I, dieresis or umlaut mark
+ Ntilde => 'Ñ',  # capital N, tilde
+ Oacute => 'Ó',  # capital O, acute accent
+ Ocirc  => 'Ô',  # capital O, circumflex accent
+ Ograve => 'Ò',  # capital O, grave accent
+ Oslash => 'Ø',  # capital O, slash
+ Otilde => 'Õ',  # capital O, tilde
+ Ouml   => 'Ö',  # capital O, dieresis or umlaut mark
+ THORN  => 'Þ',  # capital THORN, Icelandic
+ Uacute => 'Ú',  # capital U, acute accent
+ Ucirc  => 'Û',  # capital U, circumflex accent
+ Ugrave => 'Ù',  # capital U, grave accent
+ Uuml   => 'Ü',  # capital U, dieresis or umlaut mark
+ Yacute => 'Ý',  # capital Y, acute accent
+ aacute => 'á',  # small a, acute accent
+ acirc  => 'â',  # small a, circumflex accent
+ aelig  => 'æ',  # small ae diphthong (ligature)
+ agrave => 'à',  # small a, grave accent
+ aring  => 'å',  # small a, ring
+ atilde => 'ã',  # small a, tilde
+ auml   => 'ä',  # small a, dieresis or umlaut mark
+ ccedil => 'ç',  # small c, cedilla
+ eacute => 'é',  # small e, acute accent
+ ecirc  => 'ê',  # small e, circumflex accent
+ egrave => 'è',  # small e, grave accent
+ eth    => 'ð',  # small eth, Icelandic
+ euml   => 'ë',  # small e, dieresis or umlaut mark
+ iacute => 'í',  # small i, acute accent
+ icirc  => 'î',  # small i, circumflex accent
+ igrave => 'ì',  # small i, grave accent
+ iuml   => 'ï',  # small i, dieresis or umlaut mark
+ ntilde => 'ñ',  # small n, tilde
+ oacute => 'ó',  # small o, acute accent
+ ocirc  => 'ô',  # small o, circumflex accent
+ ograve => 'ò',  # small o, grave accent
+ oslash => 'ø',  # small o, slash
+ otilde => 'õ',  # small o, tilde
+ ouml   => 'ö',  # small o, dieresis or umlaut mark
+ szlig  => 'ß',  # small sharp s, German (sz ligature)
+ thorn  => 'þ',  # small thorn, Icelandic
+ uacute => 'ú',  # small u, acute accent
+ ucirc  => 'û',  # small u, circumflex accent
+ ugrave => 'ù',  # small u, grave accent
+ uuml   => 'ü',  # small u, dieresis or umlaut mark
+ yacute => 'ý',  # small y, acute accent
+ yuml   => 'ÿ',  # small y, dieresis or umlaut mark
+
+ # Some extra Latin 1 chars that are listed in the HTML3.2 draft (21-May-96)
+ copy   => '©',  # copyright sign
+ reg    => '®',  # registered sign
+ nbsp   => "\240", # non breaking space
+
+ # Additional ISO-8859/1 entities listed in rfc1866 (section 14)
+ iexcl  => '¡',
+ cent   => '¢',
+ pound  => '£',
+ curren => '¤',
+ yen    => '¥',
+ brvbar => '¦',
+ sect   => '§',
+ uml    => '¨',
+ ordf   => 'ª',
+ laquo  => '«',
+'not'   => '¬',    # not is a keyword in perl
+ shy    => '­',
+ macr   => '¯',
+ deg    => '°',
+ plusmn => '±',
+ sup1   => '¹',
+ sup2   => '²',
+ sup3   => '³',
+ acute  => '´',
+ micro  => 'µ',
+ para   => '¶',
+ middot => '·',
+ cedil  => '¸',
+ ordm   => 'º',
+ raquo  => '»',
+ frac14 => '¼',
+ frac12 => '½',
+ frac34 => '¾',
+ iquest => '¿',
+'times' => '×',    # times is a keyword in perl
+ divide => '÷',
+
+# some POD special entities
+ verbar => '|',
+ sol => '/'
+);
+
+##---------------------------------------------------------------------------
+
+##---------------------------------
+## Function definitions begin here
+##---------------------------------
+
+sub podchecker {
+    my ($infile, $outfile, %options) = @_;
+    local $_;
+
+    ## Set defaults
+    $infile  ||= \*STDIN;
+    $outfile ||= \*STDERR;
+
+    ## Now create a pod checker
+    my $checker = new Pod::Checker(%options);
+
+    ## Now check the pod document for errors
+    $checker->parse_from_file($infile, $outfile);
+
+    ## Return the number of errors found
+    return $checker->num_errors();
+}
+
+##---------------------------------------------------------------------------
+
+##-------------------------------
+## Method definitions begin here
+##-------------------------------
+
+##################################
+
+=over 4
+
+=item C<Pod::Checker-E<gt>new( %options )>
+
+Return a reference to a new Pod::Checker object that inherits from
+Pod::Parser and is used for calling the required methods later. The
+following options are recognized:
+
+C<-warnings =E<gt> num>
+  Print warnings if C<num> is true. The higher the value of C<num>,
+the more warnings are printed. Currently there are only levels 1 and 2.
+
+C<-quiet =E<gt> num>
+  If C<num> is true, do not print any errors/warnings. This is useful
+when Pod::Checker is used to munge POD code into plain text from within
+POD formatters.
+
+=cut
+
+## sub new {
+##     my $this = shift;
+##     my $class = ref($this) || $this;
+##     my %params = @_;
+##     my $self = {%params};
+##     bless $self, $class;
+##     $self->initialize();
+##     return $self;
+## }
+
+sub initialize {
+    my $self = shift;
+    ## Initialize number of errors, and setup an error function to
+    ## increment this number and then print to the designated output.
+    $self->{_NUM_ERRORS} = 0;
+    $self->{_NUM_WARNINGS} = 0;
+    $self->{-quiet} ||= 0;
+    # set the error handling subroutine
+    $self->errorsub($self->{-quiet} ? sub { 1; } : 'poderror');
+    $self->{_commands} = 0; # total number of POD commands encountered
+    $self->{_list_stack} = []; # stack for nested lists
+    $self->{_have_begin} = ''; # stores =begin
+    $self->{_links} = []; # stack for internal hyperlinks
+    $self->{_nodes} = []; # stack for =head/=item nodes
+    $self->{_index} = []; # text in X<>
+    # print warnings?
+    $self->{-warnings} = 1 unless(defined $self->{-warnings});
+    $self->{_current_head1} = ''; # the current =head1 block
+    $self->parseopts(-process_cut_cmd => 1, -warnings => $self->{-warnings});
+}
+
+##################################
+
+=item C<$checker-E<gt>poderror( @args )>
+
+=item C<$checker-E<gt>poderror( {%opts}, @args )>
+
+Internal method for printing errors and warnings. If no options are
+given, simply prints "@_". The following options are recognized and used
+to form the output:
+
+  -msg
+
+A message to print prior to C<@args>.
+
+  -line
+
+The line number the error occurred in.
+
+  -file
+
+The file (name) the error occurred in.
+
+  -severity
+
+The error level, should be 'WARNING' or 'ERROR'.
+
+=cut
+
+# Invoked as $self->poderror( @args ), or $self->poderror( {%opts}, @args )
+sub poderror {
+    my $self = shift;
+    my %opts = (ref $_[0]) ? %{shift()} : ();
+
+    ## Retrieve options
+    chomp( my $msg  = ($opts{-msg} || '')."@_" );
+    my $line = (exists $opts{-line}) ? " at line $opts{-line}" : '';
+    my $file = (exists $opts{-file}) ? " in file $opts{-file}" : '';
+    unless (exists $opts{-severity}) {
+       ## See if can find severity in message prefix
+       $opts{-severity} = $1  if ( $msg =~ s/^\**\s*([A-Z]{3,}):\s+// );
+    }
+    my $severity = (exists $opts{-severity}) ? "*** $opts{-severity}: " : '';
+
+    ## Increment error count and print message "
+    ++($self->{_NUM_ERRORS})
+        if(!%opts || ($opts{-severity} && $opts{-severity} eq 'ERROR'));
+    ++($self->{_NUM_WARNINGS})
+        if(!%opts || ($opts{-severity} && $opts{-severity} eq 'WARNING'));
+    unless($self->{-quiet}) {
+      my $out_fh = $self->output_handle() || \*STDERR;
+      print $out_fh ($severity, $msg, $line, $file, "\n")
+        if($self->{-warnings} || !%opts || $opts{-severity} ne 'WARNING');
+    }
+}
+
+##################################
+
+=item C<$checker-E<gt>num_errors()>
+
+Set (if argument specified) and retrieve the number of errors found.
+
+=cut
+
+sub num_errors {
+   return (@_ > 1) ? ($_[0]->{_NUM_ERRORS} = $_[1]) : $_[0]->{_NUM_ERRORS};
+}
+
+##################################
+
+=item C<$checker-E<gt>num_warnings()>
+
+Set (if argument specified) and retrieve the number of warnings found.
+
+=cut
+
+sub num_warnings {
+   return (@_ > 1) ? ($_[0]->{_NUM_WARNINGS} = $_[1]) : $_[0]->{_NUM_WARNINGS};
+}
+
+##################################
+
+=item C<$checker-E<gt>name()>
+
+Set (if argument specified) and retrieve the canonical name of POD as
+found in the C<=head1 NAME> section.
+
+=cut
+
+sub name {
+    return (@_ > 1 && $_[1]) ?
+        ($_[0]->{-name} = $_[1]) : $_[0]->{-name};
+}
+
+##################################
+
+=item C<$checker-E<gt>node()>
+
+Add (if argument specified) and retrieve the nodes (as defined by C<=headX>
+and C<=item>) of the current POD. The nodes are returned in the order of
+their occurrence. They consist of plain text, each piece of whitespace is
+collapsed to a single blank.
+
+=cut
+
+sub node {
+    my ($self,$text) = @_;
+    if(defined $text) {
+        $text =~ s/\s+$//s; # strip trailing whitespace
+        $text =~ s/\s+/ /gs; # collapse whitespace
+        # add node, order important!
+        push(@{$self->{_nodes}}, $text);
+        # keep also a uniqueness counter
+        $self->{_unique_nodes}->{$text}++ if($text !~ /^\s*$/s);
+        return $text;
+    }
+    @{$self->{_nodes}};
+}
+
+##################################
+
+=item C<$checker-E<gt>idx()>
+
+Add (if argument specified) and retrieve the index entries (as defined by
+C<XE<lt>E<gt>>) of the current POD. They consist of plain text, each piece
+of whitespace is collapsed to a single blank.
+
+=cut
+
+# set/return index entries of current POD
+sub idx {
+    my ($self,$text) = @_;
+    if(defined $text) {
+        $text =~ s/\s+$//s; # strip trailing whitespace
+        $text =~ s/\s+/ /gs; # collapse whitespace
+        # add node, order important!
+        push(@{$self->{_index}}, $text);
+        # keep also a uniqueness counter
+        $self->{_unique_nodes}->{$text}++ if($text !~ /^\s*$/s);
+        return $text;
+    }
+    @{$self->{_index}};
+}
+
+##################################
+
+=item C<$checker-E<gt>hyperlink()>
+
+Add (if argument specified) and retrieve the hyperlinks (as defined by
+C<LE<lt>E<gt>>) of the current POD. They consist of a 2-item array: line
+number and C<Pod::Hyperlink> object.
+
+=back
+
+=cut
+
+# set/return hyperlinks of the current POD
+sub hyperlink {
+    my $self = shift;
+    if($_[0]) {
+        push(@{$self->{_links}}, $_[0]);
+        return $_[0];
+    }
+    @{$self->{_links}};
+}
+
+## overrides for Pod::Parser
+
+sub end_pod {
+    ## Do some final checks and
+    ## print the number of errors found
+    my $self   = shift;
+    my $infile = $self->input_file();
+
+    if(@{$self->{_list_stack}}) {
+        my $list;
+        while(($list = $self->_close_list('EOF',$infile)) &&
+          $list->indent() ne 'auto') {
+            $self->poderror({ -line => 'EOF', -file => $infile,
+                -severity => 'ERROR', -msg => '=over on line ' .
+                $list->start() . ' without closing =back' });
+        }
+    }
+
+    # check validity of document internal hyperlinks
+    # first build the node names from the paragraph text
+    my %nodes;
+    foreach($self->node()) {
+        $nodes{$_} = 1;
+        if(/^(\S+)\s+\S/) {
+            # we have more than one word. Use the first as a node, too.
+            # This is used heavily in perlfunc.pod
+            $nodes{$1} ||= 2; # derived node
+        }
+    }
+    foreach($self->idx()) {
+        $nodes{$_} = 3; # index node
+    }
+    foreach($self->hyperlink()) {
+        my ($line,$link) = @$_;
+        # _TODO_ what if there is a link to the page itself by the name,
+        # e.g. in Tk::Pod : L<Tk::Pod/"DESCRIPTION">
+        if($link->node() && !$link->page() && $link->type() ne 'hyperlink') {
+            my $node = $self->_check_ptree($self->parse_text($link->node(),
+                $line), $line, $infile, 'L');
+            if($node && !$nodes{$node}) {
+                $self->poderror({ -line => $line || '', -file => $infile,
+                    -severity => 'ERROR',
+                    -msg => "unresolved internal link '$node'"});
+            }
+        }
+    }
+
+    # check the internal nodes for uniqueness. This pertains to
+    # =headX, =item and X<...>
+    if($self->{-warnings} && $self->{-warnings}>1) {
+      foreach(grep($self->{_unique_nodes}->{$_} > 1,
+        keys %{$self->{_unique_nodes}})) {
+          $self->poderror({ -line => '-', -file => $infile,
+            -severity => 'WARNING',
+            -msg => "multiple occurrence of link target '$_'"});
+      }
+    }
+
+    # no POD found here
+    $self->num_errors(-1) if($self->{_commands} == 0);
+}
+
+# check a POD command directive
+sub command {
+    my ($self, $cmd, $paragraph, $line_num, $pod_para) = @_;
+    my ($file, $line) = $pod_para->file_line;
+    ## Check the command syntax
+    my $arg; # this will hold the command argument
+    if (! $VALID_COMMANDS{$cmd}) {
+       $self->poderror({ -line => $line, -file => $file, -severity => 'ERROR',
+                         -msg => "Unknown command '$cmd'" });
+    }
+    else { # found a valid command
+        $self->{_commands}++; # delete this line if below is enabled again
+
+	$self->_commands_in_paragraphs($paragraph, $pod_para);
+
+        ##### following check disabled due to strong request
+        #if(!$self->{_commands}++ && $cmd !~ /^head/) {
+        #    $self->poderror({ -line => $line, -file => $file,
+        #         -severity => 'WARNING',
+        #         -msg => "file does not start with =head" });
+        #}
+
+        # check syntax of particular command
+        if($cmd eq 'over') {
+            # check for argument
+            $arg = $self->interpolate_and_check($paragraph, $line,$file);
+            my $indent = 4; # default
+            if($arg && $arg =~ /^\s*(\d+)\s*$/) {
+                $indent = $1;
+            }
+            # start a new list
+            $self->_open_list($indent,$line,$file);
+        }
+        elsif($cmd eq 'item') {
+            # are we in a list?
+            unless(@{$self->{_list_stack}}) {
+                $self->poderror({ -line => $line, -file => $file,
+                     -severity => 'ERROR',
+                     -msg => '=item without previous =over' });
+                # auto-open in case we encounter many more
+                $self->_open_list('auto',$line,$file);
+            }
+            my $list = $self->{_list_stack}->[0];
+            # check whether the previous item had some contents
+            if(defined $self->{_list_item_contents} &&
+              $self->{_list_item_contents} == 0) {
+                $self->poderror({ -line => $line, -file => $file,
+                     -severity => 'WARNING',
+                     -msg => 'previous =item has no contents' });
+            }
+            if($list->{_has_par}) {
+                $self->poderror({ -line => $line, -file => $file,
+                     -severity => 'WARNING',
+                     -msg => 'preceding non-item paragraph(s)' });
+                delete $list->{_has_par};
+            }
+            # check for argument
+            $arg = $self->interpolate_and_check($paragraph, $line, $file);
+            if($arg && $arg =~ /(\S+)/) {
+                $arg =~ s/[\s\n]+$//;
+                my $type;
+                if($arg =~ /^[*]\s*(\S*.*)/) {
+                  $type = 'bullet';
+                  $self->{_list_item_contents} = $1 ? 1 : 0;
+                  $arg = $1;
+                }
+                elsif($arg =~ /^\d+\.?\s+(\S*)/) {
+                  $type = 'number';
+                  $self->{_list_item_contents} = $1 ? 1 : 0;
+                  $arg = $1;
+                }
+                else {
+                  $type = 'definition';
+                  $self->{_list_item_contents} = 1;
+                }
+                my $first = $list->type();
+                if($first && $first ne $type) {
+                    $self->poderror({ -line => $line, -file => $file,
+                       -severity => 'WARNING',
+                       -msg => "=item type mismatch ('$first' vs. '$type')"});
+                }
+                else { # first item
+                    $list->type($type);
+                }
+            }
+            else {
+                $self->poderror({ -line => $line, -file => $file,
+                     -severity => 'WARNING',
+                     -msg => 'No argument for =item' });
+                $arg = ' '; # empty
+                $self->{_list_item_contents} = 0;
+            }
+            # add this item
+            $list->item($arg);
+            # remember this node
+            $self->node($arg);
+        }
+        elsif($cmd eq 'back') {
+            # check if we have an open list
+            unless(@{$self->{_list_stack}}) {
+                $self->poderror({ -line => $line, -file => $file,
+                         -severity => 'ERROR',
+                         -msg => '=back without previous =over' });
+            }
+            else {
+                # check for spurious characters
+                $arg = $self->interpolate_and_check($paragraph, $line,$file);
+                if($arg && $arg =~ /\S/) {
+                    $self->poderror({ -line => $line, -file => $file,
+                         -severity => 'ERROR',
+                         -msg => 'Spurious character(s) after =back' });
+                }
+                # close list
+                my $list = $self->_close_list($line,$file);
+                # check for empty lists
+                if(!$list->item() && $self->{-warnings}) {
+                    $self->poderror({ -line => $line, -file => $file,
+                         -severity => 'WARNING',
+                         -msg => 'No items in =over (at line ' .
+                         $list->start() . ') / =back list'});
+                }
+            }
+        }
+        elsif($cmd =~ /^head(\d+)/) {
+            my $hnum = $1;
+            $self->{"_have_head_$hnum"}++; # count head types
+            if($hnum > 1 && !$self->{'_have_head_'.($hnum -1)}) {
+              $self->poderror({ -line => $line, -file => $file,
+                   -severity => 'WARNING',
+                   -msg => "=head$hnum without preceding higher level"});
+            }
+            # check whether the previous =head section had some contents
+            if(defined $self->{_commands_in_head} &&
+              $self->{_commands_in_head} == 0 &&
+              defined $self->{_last_head} &&
+              $self->{_last_head} >= $hnum) {
+                $self->poderror({ -line => $line, -file => $file,
+                     -severity => 'WARNING',
+                     -msg => 'empty section in previous paragraph'});
+            }
+            $self->{_commands_in_head} = -1;
+            $self->{_last_head} = $hnum;
+            # check if there is an open list
+            if(@{$self->{_list_stack}}) {
+                my $list;
+                while(($list = $self->_close_list($line,$file)) &&
+                  $list->indent() ne 'auto') {
+                    $self->poderror({ -line => $line, -file => $file,
+                         -severity => 'ERROR',
+                         -msg => '=over on line '. $list->start() .
+                         " without closing =back (at $cmd)" });
+                }
+            }
+            # remember this node
+            $arg = $self->interpolate_and_check($paragraph, $line,$file);
+            $arg =~ s/[\s\n]+$//s;
+            $self->node($arg);
+            unless(length($arg)) {
+                $self->poderror({ -line => $line, -file => $file,
+                     -severity => 'ERROR',
+                     -msg => "empty =$cmd"});
+            }
+            if($cmd eq 'head1') {
+                $self->{_current_head1} = $arg;
+            } else {
+                $self->{_current_head1} = '';
+            }
+        }
+        elsif($cmd eq 'begin') {
+            if($self->{_have_begin}) {
+                # already have a begin
+                $self->poderror({ -line => $line, -file => $file,
+                     -severity => 'ERROR',
+                     -msg => q{Nested =begin's (first at line } .
+                     $self->{_have_begin} . ')'});
+            }
+            else {
+                # check for argument
+                $arg = $self->interpolate_and_check($paragraph, $line,$file);
+                unless($arg && $arg =~ /(\S+)/) {
+                    $self->poderror({ -line => $line, -file => $file,
+                         -severity => 'ERROR',
+                         -msg => 'No argument for =begin'});
+                }
+                # remember the =begin
+                $self->{_have_begin} = "$line:$1";
+            }
+        }
+        elsif($cmd eq 'end') {
+            if($self->{_have_begin}) {
+                # close the existing =begin
+                $self->{_have_begin} = '';
+                # check for spurious characters
+                $arg = $self->interpolate_and_check($paragraph, $line,$file);
+                # the closing argument is optional
+                #if($arg && $arg =~ /\S/) {
+                #    $self->poderror({ -line => $line, -file => $file,
+                #         -severity => 'WARNING',
+                #         -msg => "Spurious character(s) after =end" });
+                #}
+            }
+            else {
+                # don't have a matching =begin
+                $self->poderror({ -line => $line, -file => $file,
+                     -severity => 'ERROR',
+                     -msg => '=end without =begin' });
+            }
+        }
+        elsif($cmd eq 'for') {
+            unless($paragraph =~ /\s*(\S+)\s*/) {
+                $self->poderror({ -line => $line, -file => $file,
+                     -severity => 'ERROR',
+                     -msg => '=for without formatter specification' });
+            }
+            $arg = ''; # do not expand paragraph below
+        }
+        elsif($cmd =~ /^(pod|cut)$/) {
+            # check for argument
+            $arg = $self->interpolate_and_check($paragraph, $line,$file);
+            if($arg && $arg =~ /(\S+)/) {
+                $self->poderror({ -line => $line, -file => $file,
+                      -severity => 'ERROR',
+                      -msg => "Spurious text after =$cmd"});
+            }
+	    if($cmd eq 'cut' && (!$self->{_PREVIOUS} || $self->{_PREVIOUS} eq 'cut')) {
+                $self->poderror({ -line => $line, -file => $file,
+                      -severity => 'ERROR',
+                      -msg => "Spurious =cut command"});
+	    }
+	    if($cmd eq 'pod' && $self->{_PREVIOUS} && $self->{_PREVIOUS} ne 'cut') {
+                $self->poderror({ -line => $line, -file => $file,
+                      -severity => 'ERROR',
+                      -msg => "Spurious =pod command"});
+	    }
+        }
+    $self->{_commands_in_head}++;
+    ## Check the interior sequences in the command-text
+    $self->interpolate_and_check($paragraph, $line,$file)
+        unless(defined $arg);
+    }
+}
+
+sub _open_list
+{
+    my ($self,$indent,$line,$file) = @_;
+    my $list = Pod::List->new(
+           -indent => $indent,
+           -start => $line,
+           -file => $file);
+    unshift(@{$self->{_list_stack}}, $list);
+    undef $self->{_list_item_contents};
+    $list;
+}
+
+sub _close_list
+{
+    my ($self,$line,$file) = @_;
+    my $list = shift(@{$self->{_list_stack}});
+    if(defined $self->{_list_item_contents} &&
+      $self->{_list_item_contents} == 0) {
+        $self->poderror({ -line => $line, -file => $file,
+            -severity => 'WARNING',
+            -msg => 'previous =item has no contents' });
+    }
+    undef $self->{_list_item_contents};
+    $list;
+}
+
+# process a block of some text
+sub interpolate_and_check {
+    my ($self, $paragraph, $line, $file) = @_;
+    ## Check the interior sequences in the command-text
+    # and return the text
+    $self->_check_ptree(
+        $self->parse_text($paragraph,$line), $line, $file, '');
+}
+
+sub _check_ptree {
+    my ($self,$ptree,$line,$file,$nestlist) = @_;
+    local($_);
+    my $text = '';
+    # process each node in the parse tree
+    foreach(@$ptree) {
+        # regular text chunk
+        unless(ref) {
+            # count the unescaped angle brackets
+            # complain only when warning level is greater than 1
+            if($self->{-warnings} && $self->{-warnings}>1) {
+              my $count;
+              if($count = tr/<>/<>/) {
+                $self->poderror({ -line => $line, -file => $file,
+                     -severity => 'WARNING',
+                     -msg => "$count unescaped <> in paragraph" });
+                }
+            }
+            $text .= $_;
+            next;
+        }
+        # have an interior sequence
+        my $cmd = $_->cmd_name();
+        my $contents = $_->parse_tree();
+        ($file,$line) = $_->file_line();
+        # check for valid tag
+        if (! $VALID_SEQUENCES{$cmd}) {
+            $self->poderror({ -line => $line, -file => $file,
+                 -severity => 'ERROR',
+                 -msg => qq(Unknown interior-sequence '$cmd')});
+            # expand it anyway
+            $text .= $self->_check_ptree($contents, $line, $file, "$nestlist$cmd");
+            next;
+        }
+        if(index($nestlist, $cmd) != -1) {
+            $self->poderror({ -line => $line, -file => $file,
+                 -severity => 'WARNING',
+                 -msg => "nested commands $cmd<...$cmd<...>...>"});
+            # _TODO_ should we add the contents anyway?
+            # expand it anyway, see below
+        }
+        if($cmd eq 'E') {
+            # preserve entities
+            if(@$contents > 1 || ref $$contents[0] || $$contents[0] !~ /^\w+$/) {
+                $self->poderror({ -line => $line, -file => $file,
+                    -severity => 'ERROR',
+                    -msg => 'garbled entity ' . $_->raw_text()});
+                next;
+            }
+            my $ent = $$contents[0];
+            my $val;
+            if($ent =~ /^0x[0-9a-f]+$/i) {
+                # hexadec entity
+                $val = hex($ent);
+            }
+            elsif($ent =~ /^0\d+$/) {
+                # octal
+                $val = oct($ent);
+            }
+            elsif($ent =~ /^\d+$/) {
+                # numeric entity
+                $val = $ent;
+            }
+            if(defined $val) {
+                if($val>0 && $val<256) {
+                    $text .= chr($val);
+                }
+                else {
+                    $self->poderror({ -line => $line, -file => $file,
+                        -severity => 'ERROR',
+                        -msg => 'Entity number out of range ' . $_->raw_text()});
+                }
+            }
+            elsif($ENTITIES{$ent}) {
+                # known ISO entity
+                $text .= $ENTITIES{$ent};
+            }
+            else {
+                $self->poderror({ -line => $line, -file => $file,
+                    -severity => 'WARNING',
+                    -msg => 'Unknown entity ' . $_->raw_text()});
+                $text .= "E<$ent>";
+            }
+        }
+        elsif($cmd eq 'L') {
+            # try to parse the hyperlink
+            my $link = Pod::Hyperlink->new($contents->raw_text());
+            unless(defined $link) {
+                $self->poderror({ -line => $line, -file => $file,
+                    -severity => 'ERROR',
+                    -msg => 'malformed link ' . $_->raw_text() ." : $@"});
+                next;
+            }
+            $link->line($line); # remember line
+            if($self->{-warnings}) {
+                foreach my $w ($link->warning()) {
+                    $self->poderror({ -line => $line, -file => $file,
+                        -severity => 'WARNING',
+                        -msg => $w });
+                }
+            }
+            # check the link text
+            $text .= $self->_check_ptree($self->parse_text($link->text(),
+                $line), $line, $file, "$nestlist$cmd");
+            # remember link
+            $self->hyperlink([$line,$link]);
+        }
+        elsif($cmd =~ /[BCFIS]/) {
+            # add the guts
+            $text .= $self->_check_ptree($contents, $line, $file, "$nestlist$cmd");
+        }
+        elsif($cmd eq 'Z') {
+            if(length($contents->raw_text())) {
+                $self->poderror({ -line => $line, -file => $file,
+                    -severity => 'ERROR',
+                    -msg => 'Nonempty Z<>'});
+            }
+        }
+        elsif($cmd eq 'X') {
+            my $idx = $self->_check_ptree($contents, $line, $file, "$nestlist$cmd");
+            if($idx =~ /^\s*$/s) {
+                $self->poderror({ -line => $line, -file => $file,
+                    -severity => 'ERROR',
+                    -msg => 'Empty X<>'});
+            }
+            else {
+                # remember this node
+                $self->idx($idx);
+            }
+        }
+        else {
+            # not reached
+            croak 'internal error';
+        }
+    }
+    $text;
+}
+
+# process a block of verbatim text
+sub verbatim {
+    ## Nothing particular to check
+    my ($self, $paragraph, $line_num, $pod_para) = @_;
+
+    $self->_preproc_par($paragraph);
+    $self->_commands_in_paragraphs($paragraph, $pod_para);
+
+    if($self->{_current_head1} eq 'NAME') {
+        my ($file, $line) = $pod_para->file_line;
+        $self->poderror({ -line => $line, -file => $file,
+            -severity => 'WARNING',
+            -msg => 'Verbatim paragraph in NAME section' });
+    }
+}
+
+# process a block of regular text
+sub textblock {
+    my ($self, $paragraph, $line_num, $pod_para) = @_;
+    my ($file, $line) = $pod_para->file_line;
+
+    $self->_preproc_par($paragraph);
+    $self->_commands_in_paragraphs($paragraph, $pod_para);
+
+    # skip this paragraph if in a =begin block
+    unless($self->{_have_begin}) {
+        my $block = $self->interpolate_and_check($paragraph, $line,$file);
+        if($self->{_current_head1} eq 'NAME') {
+            if($block =~ /^\s*(\S+?)\s*[,-]/) {
+                # this is the canonical name
+                $self->{-name} = $1 unless(defined $self->{-name});
+            }
+        }
+    }
+}
+
+sub _preproc_par
+{
+    my $self = shift;
+    $_[0] =~ s/[\s\n]+$//;
+    if($_[0]) {
+        $self->{_commands_in_head}++;
+        $self->{_list_item_contents}++ if(defined $self->{_list_item_contents});
+        if(@{$self->{_list_stack}} && !$self->{_list_stack}->[0]->item()) {
+            $self->{_list_stack}->[0]->{_has_par} = 1;
+        }
+    }
+}
+
+# look for =foo commands at the start of a line within a paragraph, as for
+# instance the following which prints as "* one =item two".
+#
+#     =item one
+#     =item two
+#
+# Examples of =foo written in docs are expected to be indented in a verbatim
+# or marked up C<=foo> so won't be caught.  A double-angle C<< =foo >> could
+# have the =foo at the start of a line, but that should be unlikely and is
+# easily enough dealt with by not putting a newline after the C<<.
+#
+sub _commands_in_paragraphs {
+  my ($self, $str, $pod_para) = @_;
+  while ($str =~ /[^\n]\n=([a-z][a-z0-9]+)/sg) {
+    my $cmd = $1;
+    my $pos = pos($str);
+    if ($VALID_COMMANDS{$cmd}) {
+      my ($file, $line) = $pod_para->file_line;
+      my $part = substr($str, 0, $pos);
+      $line += ($part =~ tr/\n//);  # count of newlines
+
+      $self->poderror
+        ({ -line => $line, -file => $file,
+           -severity => 'ERROR',
+           -msg => "Apparent command =$cmd not preceded by blank line"});
+    }
+  }
+}
+
+1;
+
+__END__
+
+=head1 AUTHOR
+
+Please report bugs using L<http://rt.cpan.org>.
+
+Brad Appleton E<lt>bradapp@enteract.comE<gt> (initial version),
+Marek Rouchal E<lt>marekr@cpan.orgE<gt>
+
+Based on code for B<Pod::Text::pod2text()> written by
+Tom Christiansen E<lt>tchrist@mox.perl.comE<gt>
+
+B<Pod::Checker> is part of the Pod-Checker distribution, and is based on
+L<Pod::Parser>.
+
+=cut
+
diff --git a/lib/5.24.1/Pod/Escapes.pm b/lib/5.24.1/Pod/Escapes.pm
new file mode 100644
index 00000000..00501db3
--- /dev/null
+++ b/lib/5.24.1/Pod/Escapes.pm
@@ -0,0 +1,732 @@
+package Pod::Escapes;
+use strict;
+use warnings;
+use 5.006;
+
+use vars qw(
+  %Code2USASCII
+  %Name2character
+  %Name2character_number
+  %Latin1Code_to_fallback
+  %Latin1Char_to_fallback
+  $FAR_CHAR
+  $FAR_CHAR_NUMBER
+  $NOT_ASCII
+  @ISA $VERSION @EXPORT_OK %EXPORT_TAGS
+);
+
+require Exporter;
+@ISA = ('Exporter');
+$VERSION = '1.07';
+@EXPORT_OK = qw(
+  %Code2USASCII
+  %Name2character
+  %Name2character_number
+  %Latin1Code_to_fallback
+  %Latin1Char_to_fallback
+  e2char
+  e2charnum
+);
+%EXPORT_TAGS = ('ALL' => \@EXPORT_OK);
+
+#==========================================================================
+
+$FAR_CHAR = "?" unless defined $FAR_CHAR;
+$FAR_CHAR_NUMBER = ord($FAR_CHAR) unless defined $FAR_CHAR_NUMBER;
+
+$NOT_ASCII = 'A' ne chr(65) unless defined $NOT_ASCII;
+
+#--------------------------------------------------------------------------
+sub e2char {
+  my $in = $_[0];
+  return undef unless defined $in and length $in;
+  
+  # Convert to decimal:
+  if($in =~ m/^(0[0-7]*)$/s ) {
+    $in = oct $in;
+  } elsif($in =~ m/^0?x([0-9a-fA-F]+)$/s ) {
+    $in = hex $1;
+  } # else it's decimal, or named
+
+  if($in =~ m/^\d+$/s) {
+    if($] < 5.007  and  $in > 255) { # can't be trusted with Unicode
+      return $FAR_CHAR;
+    } elsif ($] >= 5.007003) {
+      return chr(utf8::unicode_to_native($in));
+    } elsif ($NOT_ASCII) {
+      return $Code2USASCII{$in} # so "65" => "A" everywhere
+             || $Latin1Code_to_fallback{$in} # Fallback.
+             || $FAR_CHAR; # Fall further back
+    } else {
+      return chr($in);
+    }
+  } else {
+    return $Name2character{$in}; # returns undef if unknown
+  }
+}
+
+#--------------------------------------------------------------------------
+sub e2charnum {
+  my $in = $_[0];
+  return undef unless defined $in and length $in;
+  
+  # Convert to decimal:
+  if($in =~ m/^(0[0-7]*)$/s ) {
+    $in = oct $in;
+  } elsif($in =~ m/^0?x([0-9a-fA-F]+)$/s ) {
+    $in = hex $1;
+  } # else it's decimal, or named
+
+  if($in =~ m/^[0-9]+$/s) {
+    return 0 + $in;
+  } else {
+    return $Name2character_number{$in}; # returns undef if unknown
+  }
+}
+
+#--------------------------------------------------------------------------
+
+%Code2USASCII = (
+# mostly generated by
+#  perl -e "printf qq{  \x25 3s, '\x25s',\n}, $_, chr($_) foreach (32 .. 126)"
+   32, ' ',
+   33, '!',
+   34, '"',
+   35, '#',
+   36, '$',
+   37, '%',
+   38, '&',
+   39, "'", #!
+   40, '(',
+   41, ')',
+   42, '*',
+   43, '+',
+   44, ',',
+   45, '-',
+   46, '.',
+   47, '/',
+   48, '0',
+   49, '1',
+   50, '2',
+   51, '3',
+   52, '4',
+   53, '5',
+   54, '6',
+   55, '7',
+   56, '8',
+   57, '9',
+   58, ':',
+   59, ';',
+   60, '<',
+   61, '=',
+   62, '>',
+   63, '?',
+   64, '@',
+   65, 'A',
+   66, 'B',
+   67, 'C',
+   68, 'D',
+   69, 'E',
+   70, 'F',
+   71, 'G',
+   72, 'H',
+   73, 'I',
+   74, 'J',
+   75, 'K',
+   76, 'L',
+   77, 'M',
+   78, 'N',
+   79, 'O',
+   80, 'P',
+   81, 'Q',
+   82, 'R',
+   83, 'S',
+   84, 'T',
+   85, 'U',
+   86, 'V',
+   87, 'W',
+   88, 'X',
+   89, 'Y',
+   90, 'Z',
+   91, '[',
+   92, "\\", #!
+   93, ']',
+   94, '^',
+   95, '_',
+   96, '`',
+   97, 'a',
+   98, 'b',
+   99, 'c',
+  100, 'd',
+  101, 'e',
+  102, 'f',
+  103, 'g',
+  104, 'h',
+  105, 'i',
+  106, 'j',
+  107, 'k',
+  108, 'l',
+  109, 'm',
+  110, 'n',
+  111, 'o',
+  112, 'p',
+  113, 'q',
+  114, 'r',
+  115, 's',
+  116, 't',
+  117, 'u',
+  118, 'v',
+  119, 'w',
+  120, 'x',
+  121, 'y',
+  122, 'z',
+  123, '{',
+  124, '|',
+  125, '}',
+  126, '~',
+);
+
+#--------------------------------------------------------------------------
+
+%Latin1Code_to_fallback = ();
+@Latin1Code_to_fallback{0xA0 .. 0xFF} = (
+# Copied from Text/Unidecode/x00.pm:
+
+' ', qq{!}, qq{C/}, 'PS', qq{\$?}, qq{Y=}, qq{|}, 'SS', qq{"}, qq{(c)}, 'a', qq{<<}, qq{!}, "", qq{(r)}, qq{-},
+'deg', qq{+-}, '2', '3', qq{'}, 'u', 'P', qq{*}, qq{,}, '1', 'o', qq{>>}, qq{1/4}, qq{1/2}, qq{3/4}, qq{?},
+'A', 'A', 'A', 'A', 'A', 'A', 'AE', 'C', 'E', 'E', 'E', 'E', 'I', 'I', 'I', 'I',
+'D', 'N', 'O', 'O', 'O', 'O', 'O', 'x', 'O', 'U', 'U', 'U', 'U', 'U', 'Th', 'ss',
+'a', 'a', 'a', 'a', 'a', 'a', 'ae', 'c', 'e', 'e', 'e', 'e', 'i', 'i', 'i', 'i',
+'d', 'n', 'o', 'o', 'o', 'o', 'o', qq{/}, 'o', 'u', 'u', 'u', 'u', 'y', 'th', 'y',
+
+);
+
+{
+  # Now stuff %Latin1Char_to_fallback:
+  %Latin1Char_to_fallback = ();
+  my($k,$v);
+  while( ($k,$v) = each %Latin1Code_to_fallback) {
+    $Latin1Char_to_fallback{chr $k} = $v;
+    #print chr($k), ' => ', $v, "\n";
+  }
+}
+
+#--------------------------------------------------------------------------
+
+%Name2character_number = (
+ # General XML/XHTML:
+ 'lt'   => 60,
+ 'gt'   => 62,
+ 'quot' => 34,
+ 'amp'  => 38,
+ 'apos' => 39,
+
+ # POD-specific:
+ 'sol'    => 47,
+ 'verbar' => 124,
+
+ 'lchevron' => 171, # legacy for laquo
+ 'rchevron' => 187, # legacy for raquo
+
+ # Remember, grave looks like \ (as in virtu\)
+ #           acute looks like / (as in re/sume/)
+ #           circumflex looks like ^ (as in papier ma^che/)
+ #           umlaut/dieresis looks like " (as in nai"ve, Chloe")
+
+ # From the XHTML 1 .ent files:
+ 'nbsp'     , 160,
+ 'iexcl'    , 161,
+ 'cent'     , 162,
+ 'pound'    , 163,
+ 'curren'   , 164,
+ 'yen'      , 165,
+ 'brvbar'   , 166,
+ 'sect'     , 167,
+ 'uml'      , 168,
+ 'copy'     , 169,
+ 'ordf'     , 170,
+ 'laquo'    , 171,
+ 'not'      , 172,
+ 'shy'      , 173,
+ 'reg'      , 174,
+ 'macr'     , 175,
+ 'deg'      , 176,
+ 'plusmn'   , 177,
+ 'sup2'     , 178,
+ 'sup3'     , 179,
+ 'acute'    , 180,
+ 'micro'    , 181,
+ 'para'     , 182,
+ 'middot'   , 183,
+ 'cedil'    , 184,
+ 'sup1'     , 185,
+ 'ordm'     , 186,
+ 'raquo'    , 187,
+ 'frac14'   , 188,
+ 'frac12'   , 189,
+ 'frac34'   , 190,
+ 'iquest'   , 191,
+ 'Agrave'   , 192,
+ 'Aacute'   , 193,
+ 'Acirc'    , 194,
+ 'Atilde'   , 195,
+ 'Auml'     , 196,
+ 'Aring'    , 197,
+ 'AElig'    , 198,
+ 'Ccedil'   , 199,
+ 'Egrave'   , 200,
+ 'Eacute'   , 201,
+ 'Ecirc'    , 202,
+ 'Euml'     , 203,
+ 'Igrave'   , 204,
+ 'Iacute'   , 205,
+ 'Icirc'    , 206,
+ 'Iuml'     , 207,
+ 'ETH'      , 208,
+ 'Ntilde'   , 209,
+ 'Ograve'   , 210,
+ 'Oacute'   , 211,
+ 'Ocirc'    , 212,
+ 'Otilde'   , 213,
+ 'Ouml'     , 214,
+ 'times'    , 215,
+ 'Oslash'   , 216,
+ 'Ugrave'   , 217,
+ 'Uacute'   , 218,
+ 'Ucirc'    , 219,
+ 'Uuml'     , 220,
+ 'Yacute'   , 221,
+ 'THORN'    , 222,
+ 'szlig'    , 223,
+ 'agrave'   , 224,
+ 'aacute'   , 225,
+ 'acirc'    , 226,
+ 'atilde'   , 227,
+ 'auml'     , 228,
+ 'aring'    , 229,
+ 'aelig'    , 230,
+ 'ccedil'   , 231,
+ 'egrave'   , 232,
+ 'eacute'   , 233,
+ 'ecirc'    , 234,
+ 'euml'     , 235,
+ 'igrave'   , 236,
+ 'iacute'   , 237,
+ 'icirc'    , 238,
+ 'iuml'     , 239,
+ 'eth'      , 240,
+ 'ntilde'   , 241,
+ 'ograve'   , 242,
+ 'oacute'   , 243,
+ 'ocirc'    , 244,
+ 'otilde'   , 245,
+ 'ouml'     , 246,
+ 'divide'   , 247,
+ 'oslash'   , 248,
+ 'ugrave'   , 249,
+ 'uacute'   , 250,
+ 'ucirc'    , 251,
+ 'uuml'     , 252,
+ 'yacute'   , 253,
+ 'thorn'    , 254,
+ 'yuml'     , 255,
+
+ 'fnof'     , 402,
+ 'Alpha'    , 913,
+ 'Beta'     , 914,
+ 'Gamma'    , 915,
+ 'Delta'    , 916,
+ 'Epsilon'  , 917,
+ 'Zeta'     , 918,
+ 'Eta'      , 919,
+ 'Theta'    , 920,
+ 'Iota'     , 921,
+ 'Kappa'    , 922,
+ 'Lambda'   , 923,
+ 'Mu'       , 924,
+ 'Nu'       , 925,
+ 'Xi'       , 926,
+ 'Omicron'  , 927,
+ 'Pi'       , 928,
+ 'Rho'      , 929,
+ 'Sigma'    , 931,
+ 'Tau'      , 932,
+ 'Upsilon'  , 933,
+ 'Phi'      , 934,
+ 'Chi'      , 935,
+ 'Psi'      , 936,
+ 'Omega'    , 937,
+ 'alpha'    , 945,
+ 'beta'     , 946,
+ 'gamma'    , 947,
+ 'delta'    , 948,
+ 'epsilon'  , 949,
+ 'zeta'     , 950,
+ 'eta'      , 951,
+ 'theta'    , 952,
+ 'iota'     , 953,
+ 'kappa'    , 954,
+ 'lambda'   , 955,
+ 'mu'       , 956,
+ 'nu'       , 957,
+ 'xi'       , 958,
+ 'omicron'  , 959,
+ 'pi'       , 960,
+ 'rho'      , 961,
+ 'sigmaf'   , 962,
+ 'sigma'    , 963,
+ 'tau'      , 964,
+ 'upsilon'  , 965,
+ 'phi'      , 966,
+ 'chi'      , 967,
+ 'psi'      , 968,
+ 'omega'    , 969,
+ 'thetasym' , 977,
+ 'upsih'    , 978,
+ 'piv'      , 982,
+ 'bull'     , 8226,
+ 'hellip'   , 8230,
+ 'prime'    , 8242,
+ 'Prime'    , 8243,
+ 'oline'    , 8254,
+ 'frasl'    , 8260,
+ 'weierp'   , 8472,
+ 'image'    , 8465,
+ 'real'     , 8476,
+ 'trade'    , 8482,
+ 'alefsym'  , 8501,
+ 'larr'     , 8592,
+ 'uarr'     , 8593,
+ 'rarr'     , 8594,
+ 'darr'     , 8595,
+ 'harr'     , 8596,
+ 'crarr'    , 8629,
+ 'lArr'     , 8656,
+ 'uArr'     , 8657,
+ 'rArr'     , 8658,
+ 'dArr'     , 8659,
+ 'hArr'     , 8660,
+ 'forall'   , 8704,
+ 'part'     , 8706,
+ 'exist'    , 8707,
+ 'empty'    , 8709,
+ 'nabla'    , 8711,
+ 'isin'     , 8712,
+ 'notin'    , 8713,
+ 'ni'       , 8715,
+ 'prod'     , 8719,
+ 'sum'      , 8721,
+ 'minus'    , 8722,
+ 'lowast'   , 8727,
+ 'radic'    , 8730,
+ 'prop'     , 8733,
+ 'infin'    , 8734,
+ 'ang'      , 8736,
+ 'and'      , 8743,
+ 'or'       , 8744,
+ 'cap'      , 8745,
+ 'cup'      , 8746,
+ 'int'      , 8747,
+ 'there4'   , 8756,
+ 'sim'      , 8764,
+ 'cong'     , 8773,
+ 'asymp'    , 8776,
+ 'ne'       , 8800,
+ 'equiv'    , 8801,
+ 'le'       , 8804,
+ 'ge'       , 8805,
+ 'sub'      , 8834,
+ 'sup'      , 8835,
+ 'nsub'     , 8836,
+ 'sube'     , 8838,
+ 'supe'     , 8839,
+ 'oplus'    , 8853,
+ 'otimes'   , 8855,
+ 'perp'     , 8869,
+ 'sdot'     , 8901,
+ 'lceil'    , 8968,
+ 'rceil'    , 8969,
+ 'lfloor'   , 8970,
+ 'rfloor'   , 8971,
+ 'lang'     , 9001,
+ 'rang'     , 9002,
+ 'loz'      , 9674,
+ 'spades'   , 9824,
+ 'clubs'    , 9827,
+ 'hearts'   , 9829,
+ 'diams'    , 9830,
+ 'OElig'    , 338,
+ 'oelig'    , 339,
+ 'Scaron'   , 352,
+ 'scaron'   , 353,
+ 'Yuml'     , 376,
+ 'circ'     , 710,
+ 'tilde'    , 732,
+ 'ensp'     , 8194,
+ 'emsp'     , 8195,
+ 'thinsp'   , 8201,
+ 'zwnj'     , 8204,
+ 'zwj'      , 8205,
+ 'lrm'      , 8206,
+ 'rlm'      , 8207,
+ 'ndash'    , 8211,
+ 'mdash'    , 8212,
+ 'lsquo'    , 8216,
+ 'rsquo'    , 8217,
+ 'sbquo'    , 8218,
+ 'ldquo'    , 8220,
+ 'rdquo'    , 8221,
+ 'bdquo'    , 8222,
+ 'dagger'   , 8224,
+ 'Dagger'   , 8225,
+ 'permil'   , 8240,
+ 'lsaquo'   , 8249,
+ 'rsaquo'   , 8250,
+ 'euro'     , 8364,
+);
+
+
+# Fill out %Name2character...
+{
+  %Name2character = ();
+  my($name, $number);
+  while( ($name, $number) = each %Name2character_number) {
+    if($] < 5.007  and  $number > 255) {
+      $Name2character{$name} = $FAR_CHAR;
+      # substitute for Unicode characters, for perls
+      #  that can't reliably handle them
+    } elsif ($] >= 5.007003) {
+      $Name2character{$name} = chr utf8::unicode_to_native($number);
+      # normal case for more recent Perls where we can translate from Unicode
+      # to the native character set.
+    }
+    elsif (exists $Code2USASCII{$number}) {
+      $Name2character{$name} = $Code2USASCII{$number};
+      # on older Perls, we can use the translations we have hard-coded in this
+      # file, but these don't include the non-ASCII-range characters
+    }
+    elsif ($NOT_ASCII && $number > 127 && $number < 256) {
+      # this range on old non-ASCII-platform perls is wrong
+      if (exists $Latin1Code_to_fallback{$number})  {
+        $Name2character{$name} = $Latin1Code_to_fallback{$number};
+      } else {
+        $Name2character{$name} = $FAR_CHAR;
+      }
+    } else {
+      $Name2character{$name} = chr $number;
+    }
+  }
+}
+
+#--------------------------------------------------------------------------
+1;
+__END__
+
+=head1 NAME
+
+Pod::Escapes - for resolving Pod EE<lt>...E<gt> sequences
+
+=head1 SYNOPSIS
+
+  use Pod::Escapes qw(e2char);
+  ...la la la, parsing POD, la la la...
+  $text = e2char($e_node->label);
+  unless(defined $text) {
+    print "Unknown E sequence \"", $e_node->label, "\"!";
+  }
+  ...else print/interpolate $text...
+
+=head1 DESCRIPTION
+
+This module provides things that are useful in decoding
+Pod EE<lt>...E<gt> sequences.  Presumably, it should be used
+only by Pod parsers and/or formatters.
+
+By default, Pod::Escapes exports none of its symbols.  But
+you can request any of them to be exported.
+Either request them individually, as with
+C<use Pod::Escapes qw(symbolname symbolname2...);>,
+or you can do C<use Pod::Escapes qw(:ALL);> to get all
+exportable symbols.
+
+=head1 GOODIES
+
+=over
+
+=item e2char($e_content)
+
+Given a name or number that could appear in a
+C<EE<lt>name_or_numE<gt>> sequence, this returns the string that
+it stands for.  For example, C<e2char('sol')>, C<e2char('47')>,
+C<e2char('0x2F')>, and C<e2char('057')> all return "/",
+because C<EE<lt>solE<gt>>, C<EE<lt>47E<gt>>, C<EE<lt>0x2fE<gt>>,
+and C<EE<lt>057E<gt>>, all mean "/".  If
+the name has no known value (as with a name of "qacute") or is
+syntactically invalid (as with a name of "1/4"), this returns undef.
+
+=item e2charnum($e_content)
+
+Given a name or number that could appear in a
+C<EE<lt>name_or_numE<gt>> sequence, this returns the number of
+the Unicode character that this stands for.  For example,
+C<e2char('sol')>, C<e2char('47')>,
+C<e2char('0x2F')>, and C<e2char('057')> all return 47,
+because C<EE<lt>solE<gt>>, C<EE<lt>47E<gt>>, C<EE<lt>0x2fE<gt>>,
+and C<EE<lt>057E<gt>>, all mean "/", whose Unicode number is 47.  If
+the name has no known value (as with a name of "qacute") or is
+syntactically invalid (as with a name of "1/4"), this returns undef.
+
+=item $Name2character{I<name>}
+
+Maps from names (as in C<EE<lt>I<name>E<gt>>) like "eacute" or "sol"
+to the string that each stands for.  Note that this does not
+include numerics (like "64" or "x981c").  Under old Perl versions
+(before 5.7) you get a "?" in place of characters whose Unicode
+value is over 255.
+
+=item $Name2character_number{I<name>}
+
+Maps from names (as in C<EE<lt>I<name>E<gt>>) like "eacute" or "sol"
+to the Unicode value that each stands for.  For example,
+C<$Name2character_number{'eacute'}> is 201, and
+C<$Name2character_number{'eacute'}> is 8364.  You get the correct
+Unicode value, regardless of the version of Perl you're using --
+which differs from C<%Name2character>'s behavior under pre-5.7 Perls.
+
+Note that this hash does not
+include numerics (like "64" or "x981c").
+
+=item $Latin1Code_to_fallback{I<integer>}
+
+For numbers in the range 160 (0x00A0) to 255 (0x00FF), this maps
+from the character code for a Latin-1 character (like 233 for
+lowercase e-acute) to the US-ASCII character that best aproximates
+it (like "e").  You may find this useful if you are rendering
+POD in a format that you think deals well only with US-ASCII
+characters.
+
+=item $Latin1Char_to_fallback{I<character>}
+
+Just as above, but maps from characters (like "\xE9", 
+lowercase e-acute) to characters (like "e").
+
+=item $Code2USASCII{I<integer>}
+
+This maps from US-ASCII codes (like 32) to the corresponding
+character (like space, for 32).  Only characters 32 to 126 are
+defined.  This is meant for use by C<e2char($x)> when it senses
+that it's running on a non-ASCII platform (where chr(32) doesn't
+get you a space -- but $Code2USASCII{32} will).  It's
+documented here just in case you might find it useful.
+
+=back
+
+=head1 CAVEATS
+
+On Perl versions before 5.7, Unicode characters with a value
+over 255 (like lambda or emdash) can't be conveyed.  This
+module does work under such early Perl versions, but in the
+place of each such character, you get a "?".  Latin-1
+characters (characters 160-255) are unaffected.
+
+Under EBCDIC platforms, C<e2char($n)> may not always be the
+same as C<chr(e2charnum($n))>, and ditto for
+C<$Name2character{$name}> and
+C<chr($Name2character_number{$name})>, because the strings are returned as
+native, and the numbers are returned as Unicode.
+However, for Perls starting with v5.8, C<e2char($n)> is the same as
+C<chr(utf8::unicode_to_native(e2charnum($n)))>, and ditto for
+C<$Name2character{$name}> and
+C<chr(utf8::unicode_to_native($Name2character_number{$name}))>.
+
+=head1 SEE ALSO
+
+L<Pod::Browser> - a pod web server based on L<Catalyst>.
+
+L<Pod::Checker> - check pod documents for syntax errors.
+
+L<Pod::Coverage> - check if the documentation for a module is comprehensive.
+
+L<perlpod> - description of pod format (for people documenting with pod).
+
+L<perlpodspec> - specification of pod format (for people processing it).
+
+L<Text::Unidecode> - ASCII transliteration of Unicode text.
+
+=head1 REPOSITORY
+
+L<https://github.com/neilbowers/Pod-Escapes>
+
+=head1 COPYRIGHT AND DISCLAIMERS
+
+Copyright (c) 2001-2004 Sean M. Burke.  All rights reserved.
+
+This library is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
+This program is distributed in the hope that it will be useful, but
+without any warranty; without even the implied warranty of
+merchantability or fitness for a particular purpose.
+
+Portions of the data tables in this module are derived from the
+entity declarations in the W3C XHTML specification.
+
+Currently (October 2001), that's these three:
+
+ http://www.w3.org/TR/xhtml1/DTD/xhtml-lat1.ent
+ http://www.w3.org/TR/xhtml1/DTD/xhtml-special.ent
+ http://www.w3.org/TR/xhtml1/DTD/xhtml-symbol.ent
+
+=head1 AUTHOR
+
+Sean M. Burke C<sburke@cpan.org>
+
+Now being maintained by Neil Bowers E<lt>neilb@cpan.orgE<gt>
+
+=cut
+
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+# What I used for reading the XHTML .ent files:
+
+my(@norms, @good, @bad);
+my $dir = 'c:/sgml/docbook/';
+my %escapes;
+foreach my $file (qw(
+  xhtml-symbol.ent
+  xhtml-lat1.ent
+  xhtml-special.ent
+)) {
+  open(IN, "<$dir$file") or die "can't read-open $dir$file: $!";
+  print "Reading $file...\n";
+  while(<IN>) {
+    if(m/<!ENTITY\s+(\S+)\s+"&#([^;]+);">/) {
+      my($name, $value) = ($1,$2);
+      next if $name eq 'quot' or $name eq 'apos' or $name eq 'gt';
+    
+      $value = hex $1 if $value =~ m/^x([a-fA-F0-9]+)$/s;
+      print "ILLEGAL VALUE $value" unless $value =~ m/^\d+$/s;
+      if($value > 255) {
+        push @good , sprintf "   %-10s , chr(%s),\n", "'$name'", $value;
+        push @bad  , sprintf "   %-10s , \$bad,\n", "'$name'", $value;
+      } else {
+        push @norms, sprintf " %-10s , chr(%s),\n", "'$name'", $value;
+      }
+    } elsif(m/<!ENT/) {
+      print "# Skipping $_";
+    }
+  
+  }
+  close(IN);
+}
+
+print @norms;
+print "\n ( \$] .= 5.006001 ? (\n";
+print @good;
+print " ) : (\n";
+print @bad;
+print " )\n);\n";
+
+__END__
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+
diff --git a/lib/5.24.1/Pod/Find.pm b/lib/5.24.1/Pod/Find.pm
new file mode 100644
index 00000000..f258f26d
--- /dev/null
+++ b/lib/5.24.1/Pod/Find.pm
@@ -0,0 +1,553 @@
+#############################################################################  
+# Pod/Find.pm -- finds files containing POD documentation
+#
+# Author: Marek Rouchal <marekr@cpan.org>
+# 
+# Copyright (C) 1999-2000 by Marek Rouchal (and borrowing code
+# from Nick Ing-Simmon's PodToHtml). All rights reserved.
+# This file is part of "PodParser". Pod::Find is free software;
+# you can redistribute it and/or modify it under the same terms
+# as Perl itself.
+#############################################################################
+
+package Pod::Find;
+use strict;
+
+use vars qw($VERSION);
+$VERSION = '1.63';   ## Current version of this package
+require  5.005;   ## requires this Perl version or later
+use Carp;
+
+BEGIN {
+   if ($] < 5.006) {
+      require Symbol;
+      import Symbol;
+   }
+}
+
+#############################################################################
+
+=head1 NAME
+
+Pod::Find - find POD documents in directory trees
+
+=head1 SYNOPSIS
+
+  use Pod::Find qw(pod_find simplify_name);
+  my %pods = pod_find({ -verbose => 1, -inc => 1 });
+  foreach(keys %pods) {
+     print "found library POD `$pods{$_}' in $_\n";
+  }
+
+  print "podname=",simplify_name('a/b/c/mymodule.pod'),"\n";
+
+  $location = pod_where( { -inc => 1 }, "Pod::Find" );
+
+=head1 DESCRIPTION
+
+B<NOTE: This module is considered legacy; modern Perl releases (5.18 and
+higher) are going to remove Pod-Parser from core and use L<Pod-Simple>
+for all things POD.>
+
+B<Pod::Find> provides a set of functions to locate POD files.  Note that
+no function is exported by default to avoid pollution of your namespace,
+so be sure to specify them in the B<use> statement if you need them:
+
+  use Pod::Find qw(pod_find);
+
+From this version on the typical SCM (software configuration management)
+directories are ignored. These are: RCS, CVS, SCCS, .svn, .hg, .git, .sync
+
+=cut
+
+#use diagnostics;
+use Exporter;
+use File::Spec;
+use File::Find;
+use Cwd qw(abs_path cwd);
+
+use vars qw(@ISA @EXPORT_OK $VERSION);
+@ISA = qw(Exporter);
+@EXPORT_OK = qw(&pod_find &simplify_name &pod_where &contains_pod);
+
+# package global variables
+my $SIMPLIFY_RX;
+
+=head2 C<pod_find( { %opts } , @directories )>
+
+The function B<pod_find> searches for POD documents in a given set of
+files and/or directories. It returns a hash with the file names as keys
+and the POD name as value. The POD name is derived from the file name
+and its position in the directory tree.
+
+E.g. when searching in F<$HOME/perl5lib>, the file
+F<$HOME/perl5lib/MyModule.pm> would get the POD name I<MyModule>,
+whereas F<$HOME/perl5lib/Myclass/Subclass.pm> would be
+I<Myclass::Subclass>. The name information can be used for POD
+translators.
+
+Only text files containing at least one valid POD command are found.
+
+A warning is printed if more than one POD file with the same POD name
+is found, e.g. F<CPAN.pm> in different directories. This usually
+indicates duplicate occurrences of modules in the I<@INC> search path.
+
+B<OPTIONS> The first argument for B<pod_find> may be a hash reference
+with options. The rest are either directories that are searched
+recursively or files.  The POD names of files are the plain basenames
+with any Perl-like extension (.pm, .pl, .pod) stripped.
+
+=over 4
+
+=item C<-verbose =E<gt> 1>
+
+Print progress information while scanning.
+
+=item C<-perl =E<gt> 1>
+
+Apply Perl-specific heuristics to find the correct PODs. This includes
+stripping Perl-like extensions, omitting subdirectories that are numeric
+but do I<not> match the current Perl interpreter's version id, suppressing
+F<site_perl> as a module hierarchy name etc.
+
+=item C<-script =E<gt> 1>
+
+Search for PODs in the current Perl interpreter's installation 
+B<scriptdir>. This is taken from the local L<Config|Config> module.
+
+=item C<-inc =E<gt> 1>
+
+Search for PODs in the current Perl interpreter's I<@INC> paths. This
+automatically considers paths specified in the C<PERL5LIB> environment
+as this is included in I<@INC> by the Perl interpreter itself.
+
+=back
+
+=cut
+
+# return a hash of the POD files found
+# first argument may be a hashref (options),
+# rest is a list of directories to search recursively
+sub pod_find
+{
+    my %opts;
+    if(ref $_[0]) {
+        %opts = %{shift()};
+    }
+
+    $opts{-verbose} ||= 0;
+    $opts{-perl}    ||= 0;
+
+    my (@search) = @_;
+
+    if($opts{-script}) {
+        require Config;
+        push(@search, $Config::Config{scriptdir})
+            if -d $Config::Config{scriptdir};
+        $opts{-perl} = 1;
+    }
+
+    if($opts{-inc}) {
+        if ($^O eq 'MacOS') {
+            # tolerate '.', './some_dir' and '(../)+some_dir' on Mac OS
+            my @new_INC = @INC;
+            for (@new_INC) {
+                if ( $_ eq '.' ) {
+                    $_ = ':';
+                } elsif ( $_ =~ s{^((?:\.\./)+)}{':' x (length($1)/3)}e ) {
+                    $_ = ':'. $_;
+                } else {
+                    $_ =~ s{^\./}{:};
+                }
+            }
+            push(@search, grep($_ ne File::Spec->curdir, @new_INC));
+        } else {
+            my %seen;
+            my $curdir = File::Spec->curdir;
+	    foreach(@INC) {
+                next if $_ eq $curdir;
+		my $path = abs_path($_);
+                push(@search, $path) unless $seen{$path}++;
+            }
+        }
+
+        $opts{-perl} = 1;
+    }
+
+    if($opts{-perl}) {
+        require Config;
+        # this code simplifies the POD name for Perl modules:
+        # * remove "site_perl"
+        # * remove e.g. "i586-linux" (from 'archname')
+        # * remove e.g. 5.00503
+        # * remove pod/ if followed by *.pod (e.g. in pod/perlfunc.pod)
+
+        # Mac OS:
+        # * remove ":?site_perl:"
+        # * remove :?pod: if followed by *.pod (e.g. in :pod:perlfunc.pod)
+
+        if ($^O eq 'MacOS') {
+            $SIMPLIFY_RX =
+              qq!^(?i:\:?site_perl\:|\:?pod\:(?=.*?\\.pod\\z))*!;
+        } else {
+            $SIMPLIFY_RX =
+              qq!^(?i:site(_perl)?/|\Q$Config::Config{archname}\E/|\\d+\\.\\d+([_.]?\\d+)?/|pod/(?=.*?\\.pod\\z))*!;
+        }
+    }
+
+    my %dirs_visited;
+    my %pods;
+    my %names;
+    my $pwd = cwd();
+
+    foreach my $try (@search) {
+        unless(File::Spec->file_name_is_absolute($try)) {
+            # make path absolute
+            $try = File::Spec->catfile($pwd,$try);
+        }
+        # simplify path
+        # on VMS canonpath will vmsify:[the.path], but File::Find::find
+        # wants /unixy/paths
+        if ($^O eq 'VMS') {
+            $try = VMS::Filespec::unixify($try);
+        }
+        else {
+            $try = File::Spec->canonpath($try);
+        }
+        my $name;
+        if(-f $try) {
+            if($name = _check_and_extract_name($try, $opts{-verbose})) {
+                _check_for_duplicates($try, $name, \%names, \%pods);
+            }
+            next;
+        }
+        my $root_rx = $^O eq 'MacOS' ? qq!^\Q$try\E! : qq!^\Q$try\E/!;
+        $root_rx=~ s|//$|/|;  # remove trailing double slash
+        File::Find::find( sub {
+            my $item = $File::Find::name;
+            if(-d) {
+                if($item =~ m{/(?:RCS|CVS|SCCS|\.svn|\.hg|\.git|\.sync)$}) {
+                    $File::Find::prune = 1;
+                    return;
+                }
+                elsif($dirs_visited{$item}) {
+                    warn "Directory '$item' already seen, skipping.\n"
+                        if($opts{-verbose});
+                    $File::Find::prune = 1;
+                    return;
+                }
+                else {
+                    $dirs_visited{$item} = 1;
+                }
+                if($opts{-perl} && /^(\d+\.[\d_]+)\z/s && eval "$1" != $]) {
+                    $File::Find::prune = 1;
+                    warn "Perl $] version mismatch on $_, skipping.\n"
+                        if($opts{-verbose});
+                }
+                return;
+            }
+            if($name = _check_and_extract_name($item, $opts{-verbose}, $root_rx)) {
+                _check_for_duplicates($item, $name, \%names, \%pods);
+            }
+        }, $try); # end of File::Find::find
+    }
+    chdir $pwd;
+    return %pods;
+}
+
+sub _check_for_duplicates {
+    my ($file, $name, $names_ref, $pods_ref) = @_;
+    if($$names_ref{$name}) {
+        warn "Duplicate POD found (shadowing?): $name ($file)\n";
+        warn '    Already seen in ',
+            join(' ', grep($$pods_ref{$_} eq $name, keys %$pods_ref)),"\n";
+    }
+    else {
+        $$names_ref{$name} = 1;
+    }
+    return $$pods_ref{$file} = $name;
+}
+
+sub _check_and_extract_name {
+    my ($file, $verbose, $root_rx) = @_;
+
+    # check extension or executable flag
+    # this involves testing the .bat extension on Win32!
+    unless(-f $file && -T $file && ($file =~ /\.(pod|pm|plx?)\z/i || -x $file )) {
+      return;
+    }
+
+    return unless contains_pod($file,$verbose);
+
+    # strip non-significant path components
+    # TODO what happens on e.g. Win32?
+    my $name = $file;
+    if(defined $root_rx) {
+        $name =~ s/$root_rx//is;
+        $name =~ s/$SIMPLIFY_RX//is if(defined $SIMPLIFY_RX);
+    }
+    else {
+        if ($^O eq 'MacOS') {
+            $name =~ s/^.*://s;
+        } else {
+            $name =~ s{^.*/}{}s;
+        }
+    }
+    _simplify($name);
+    $name =~ s{/+}{::}g;
+    if ($^O eq 'MacOS') {
+        $name =~ s{:+}{::}g; # : -> ::
+    } else {
+        $name =~ s{/+}{::}g; # / -> ::
+    }
+    return $name;
+}
+
+=head2 C<simplify_name( $str )>
+
+The function B<simplify_name> is equivalent to B<basename>, but also
+strips Perl-like extensions (.pm, .pl, .pod) and extensions like
+F<.bat>, F<.cmd> on Win32 and OS/2, or F<.com> on VMS, respectively.
+
+=cut
+
+# basic simplification of the POD name:
+# basename & strip extension
+sub simplify_name {
+    my ($str) = @_;
+    # remove all path components
+    if ($^O eq 'MacOS') {
+        $str =~ s/^.*://s;
+    } else {
+        $str =~ s{^.*/}{}s;
+    }
+    _simplify($str);
+    return $str;
+}
+
+# internal sub only
+sub _simplify {
+    # strip Perl's own extensions
+    $_[0] =~ s/\.(pod|pm|plx?)\z//i;
+    # strip meaningless extensions on Win32 and OS/2
+    $_[0] =~ s/\.(bat|exe|cmd)\z//i if($^O =~ /mswin|os2/i);
+    # strip meaningless extensions on VMS
+    $_[0] =~ s/\.(com)\z//i if($^O eq 'VMS');
+}
+
+# contribution from Tim Jenness <t.jenness@jach.hawaii.edu>
+
+=head2 C<pod_where( { %opts }, $pod )>
+
+Returns the location of a pod document given a search directory
+and a module (e.g. C<File::Find>) or script (e.g. C<perldoc>) name.
+
+Options:
+
+=over 4
+
+=item C<-inc =E<gt> 1>
+
+Search @INC for the pod and also the C<scriptdir> defined in the
+L<Config|Config> module.
+
+=item C<-dirs =E<gt> [ $dir1, $dir2, ... ]>
+
+Reference to an array of search directories. These are searched in order
+before looking in C<@INC> (if B<-inc>). Current directory is used if
+none are specified.
+
+=item C<-verbose =E<gt> 1>
+
+List directories as they are searched
+
+=back
+
+Returns the full path of the first occurrence to the file.
+Package names (eg 'A::B') are automatically converted to directory
+names in the selected directory. (eg on unix 'A::B' is converted to
+'A/B'). Additionally, '.pm', '.pl' and '.pod' are appended to the
+search automatically if required.
+
+A subdirectory F<pod/> is also checked if it exists in any of the given
+search directories. This ensures that e.g. L<perlfunc|perlfunc> is
+found.
+
+It is assumed that if a module name is supplied, that that name
+matches the file name. Pods are not opened to check for the 'NAME'
+entry.
+
+A check is made to make sure that the file that is found does 
+contain some pod documentation.
+
+=cut
+
+sub pod_where {
+
+  # default options
+  my %options = (
+         '-inc' => 0,
+         '-verbose' => 0,
+         '-dirs' => [ File::Spec->curdir ],
+        );
+
+  # Check for an options hash as first argument
+  if (defined $_[0] && ref($_[0]) eq 'HASH') {
+    my $opt = shift;
+
+    # Merge default options with supplied options
+    %options = (%options, %$opt);
+  }
+
+  # Check usage
+  carp 'Usage: pod_where({options}, $pod)' unless (scalar(@_));
+
+  # Read argument
+  my $pod = shift;
+
+  # Split on :: and then join the name together using File::Spec
+  my @parts = split (/::/, $pod);
+
+  # Get full directory list
+  my @search_dirs = @{ $options{'-dirs'} };
+
+  if ($options{'-inc'}) {
+
+    require Config;
+
+    # Add @INC
+    if ($^O eq 'MacOS' && $options{'-inc'}) {
+        # tolerate '.', './some_dir' and '(../)+some_dir' on Mac OS
+        my @new_INC = @INC;
+        for (@new_INC) {
+            if ( $_ eq '.' ) {
+                $_ = ':';
+            } elsif ( $_ =~ s{^((?:\.\./)+)}{':' x (length($1)/3)}e ) {
+                $_ = ':'. $_;
+            } else {
+                $_ =~ s{^\./}{:};
+            }
+        }
+        push (@search_dirs, @new_INC);
+    } elsif ($options{'-inc'}) {
+        push (@search_dirs, @INC);
+    }
+
+    # Add location of pod documentation for perl man pages (eg perlfunc)
+    # This is a pod directory in the private install tree
+    #my $perlpoddir = File::Spec->catdir($Config::Config{'installprivlib'},
+    #					'pod');
+    #push (@search_dirs, $perlpoddir)
+    #  if -d $perlpoddir;
+
+    # Add location of binaries such as pod2text
+    push (@search_dirs, $Config::Config{'scriptdir'})
+      if -d $Config::Config{'scriptdir'};
+  }
+
+  warn 'Search path is: '.join(' ', @search_dirs)."\n"
+        if $options{'-verbose'};
+
+  # Loop over directories
+  Dir: foreach my $dir ( @search_dirs ) {
+
+    # Don't bother if can't find the directory
+    if (-d $dir) {
+      warn "Looking in directory $dir\n"
+        if $options{'-verbose'};
+
+      # Now concatenate this directory with the pod we are searching for
+      my $fullname = File::Spec->catfile($dir, @parts);
+      $fullname = VMS::Filespec::unixify($fullname) if $^O eq 'VMS';
+      warn "Filename is now $fullname\n"
+        if $options{'-verbose'};
+
+      # Loop over possible extensions
+      foreach my $ext ('', '.pod', '.pm', '.pl') {
+        my $fullext = $fullname . $ext;
+        if (-f $fullext &&
+         contains_pod($fullext, $options{'-verbose'}) ) {
+          warn "FOUND: $fullext\n" if $options{'-verbose'};
+          return $fullext;
+        }
+      }
+    } else {
+      warn "Directory $dir does not exist\n"
+        if $options{'-verbose'};
+      next Dir;
+    }
+    # for some strange reason the path on MacOS/darwin/cygwin is
+    # 'pods' not 'pod'
+    # this could be the case also for other systems that
+    # have a case-tolerant file system, but File::Spec
+    # does not recognize 'darwin' yet. And cygwin also has "pods",
+    # but is not case tolerant. Oh well...
+    if((File::Spec->case_tolerant || $^O =~ /macos|darwin|cygwin/i)
+     && -d File::Spec->catdir($dir,'pods')) {
+      $dir = File::Spec->catdir($dir,'pods');
+      redo Dir;
+    }
+    if(-d File::Spec->catdir($dir,'pod')) {
+      $dir = File::Spec->catdir($dir,'pod');
+      redo Dir;
+    }
+  }
+  # No match;
+  return;
+}
+
+=head2 C<contains_pod( $file , $verbose )>
+
+Returns true if the supplied filename (not POD module) contains some pod
+information.
+
+=cut
+
+sub contains_pod {
+  my $file = shift;
+  my $verbose = 0;
+  $verbose = shift if @_;
+
+  # check for one line of POD
+  my $podfh;
+  if ($] < 5.006) {
+    $podfh = gensym();
+  }
+
+  unless(open($podfh,"<$file")) {
+    warn "Error: $file is unreadable: $!\n";
+    return;
+  }
+  
+  local $/ = undef;
+  my $pod = <$podfh>;
+  close($podfh) || die "Error closing $file: $!\n";
+  unless($pod =~ /^=(head\d|pod|over|item|cut)\b/m) {
+    warn "No POD in $file, skipping.\n"
+      if($verbose);
+    return 0;
+  }
+
+  return 1;
+}
+
+=head1 AUTHOR
+
+Please report bugs using L<http://rt.cpan.org>.
+
+Marek Rouchal E<lt>marekr@cpan.orgE<gt>,
+heavily borrowing code from Nick Ing-Simmons' PodToHtml.
+
+Tim Jenness E<lt>t.jenness@jach.hawaii.eduE<gt> provided
+C<pod_where> and C<contains_pod>.
+
+B<Pod::Find> is part of the L<Pod::Parser> distribution.
+
+=head1 SEE ALSO
+
+L<Pod::Parser>, L<Pod::Checker>, L<perldoc>
+
+=cut
+
+1;
+
diff --git a/lib/5.24.1/Pod/Functions.pm b/lib/5.24.1/Pod/Functions.pm
new file mode 100644
index 00000000..55d6e826
--- /dev/null
+++ b/lib/5.24.1/Pod/Functions.pm
@@ -0,0 +1,351 @@
+package Pod::Functions;
+use strict;
+
+=head1 NAME
+
+Pod::Functions - Group Perl's functions a la perlfunc.pod
+
+=head1 SYNOPSIS
+
+    use Pod::Functions;
+    
+    my @misc_ops = @{ $Kinds{ 'Misc' } };
+    my $misc_dsc = $Type_Description{ 'Misc' };
+
+or
+
+    perl /path/to/lib/Pod/Functions.pm
+
+This will print a grouped list of Perl's functions, like the 
+L<perlfunc/"Perl Functions by Category"> section.
+
+=head1 DESCRIPTION
+
+It exports the following variables:
+
+=over 4
+
+=item %Kinds
+
+This holds a hash-of-lists. Each list contains the functions in the category
+the key denotes.
+
+=item %Type
+
+In this hash each key represents a function and the value is the category.
+The category can be a comma separated list.
+
+=item %Flavor
+
+In this hash each key represents a function and the value is a short 
+description of that function.
+
+=item %Type_Description
+
+In this hash each key represents a category of functions and the value is 
+a short description of that category.
+
+=item @Type_Order
+
+This list of categories is used to produce the same order as the
+L<perlfunc/"Perl Functions by Category"> section.
+
+=back
+
+=cut
+
+our $VERSION = '1.10';
+
+require Exporter;
+
+our @ISA = qw(Exporter);
+our @EXPORT = qw(%Kinds %Type %Flavor %Type_Description @Type_Order);
+
+our(%Kinds, %Type, %Flavor, %Type_Description, @Type_Order);
+
+foreach (
+    [String     => 'Functions for SCALARs or strings'],
+    [Regexp     => 'Regular expressions and pattern matching'],
+    [Math       => 'Numeric functions'],
+    [ARRAY      => 'Functions for real @ARRAYs'],
+    [LIST       => 'Functions for list data'],
+    [HASH       => 'Functions for real %HASHes'],
+    ['I/O'      => 'Input and output functions'],
+    [Binary     => 'Functions for fixed-length data or records'],
+    [File       => 'Functions for filehandles, files, or directories'],
+    [Flow       => 'Keywords related to the control flow of your Perl program'],
+    [Namespace  => 'Keywords related to scoping'],
+    [Misc       => 'Miscellaneous functions'],
+    [Process    => 'Functions for processes and process groups'],
+    [Modules    => 'Keywords related to Perl modules'],
+    [Objects    => 'Keywords related to classes and object-orientation'],
+    [Socket     => 'Low-level socket functions'],
+    [SysV       => 'System V interprocess communication functions'],
+    [User       => 'Fetching user and group info'],
+    [Network    => 'Fetching network info'],
+    [Time       => 'Time-related functions'],
+	) {
+    push @Type_Order, $_->[0];
+    $Type_Description{$_->[0]} = $_->[1];
+};
+
+while (<DATA>) {
+    chomp;
+    s/^#.*//;
+    next unless $_;
+    my($name, @data) = split "\t", $_;
+    $Flavor{$name} = pop @data;
+    $Type{$name} = join ',', @data;
+    for my $t (@data) {
+        push @{$Kinds{$t}}, $name;
+    }
+}
+
+close DATA;
+
+my( $typedesc, $list );
+unless (caller) { 
+    foreach my $type ( @Type_Order ) {
+	$list = join(", ", sort @{$Kinds{$type}});
+	$typedesc = $Type_Description{$type} . ":";
+	write;
+    } 
+}
+
+format = 
+
+^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
+    $typedesc 
+~~ ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
+    $typedesc 
+ ~~  ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
+	$list
+.
+
+1;
+
+__DATA__
+-X	File	a file test (-r, -x, etc)
+abs	Math	absolute value function
+accept	Socket	accept an incoming socket connect
+alarm	Process	schedule a SIGALRM
+atan2	Math	arctangent of Y/X in the range -PI to PI
+bind	Socket	binds an address to a socket
+binmode	I/O	prepare binary files for I/O
+bless	Objects	create an object
+break	Flow	break out of a C<given> block
+caller	Flow	Namespace	get context of the current subroutine call
+chdir	File	change your current working directory
+chmod	File	changes the permissions on a list of files
+chomp	String	remove a trailing record separator from a string
+chop	String	remove the last character from a string
+chown	File	change the ownership on a list of files
+chr	String	get character this number represents
+chroot	File	make directory new root for path lookups
+close	I/O	close file (or pipe or socket) handle
+closedir	I/O	close directory handle
+connect	Socket	connect to a remote socket
+continue	Flow	optional trailing block in a while or foreach
+cos	Math	cosine function
+crypt	String	one-way passwd-style encryption
+dbmclose	I/O	Objects	breaks binding on a tied dbm file
+dbmopen	I/O	Objects	create binding on a tied dbm file
+defined	Misc	test whether a value, variable, or function is defined
+delete	HASH	deletes a value from a hash
+die	Flow	I/O	raise an exception or bail out
+do	Flow	Modules	turn a BLOCK into a TERM
+dump	Flow	create an immediate core dump
+each	ARRAY	HASH	retrieve the next key/value pair from a hash
+endgrent	User	be done using group file
+endhostent	User	be done using hosts file
+endnetent	User	be done using networks file
+endprotoent	Network	be done using protocols file
+endpwent	User	be done using passwd file
+endservent	Network	be done using services file
+eof	I/O	test a filehandle for its end
+eval	Flow	catch exceptions or compile and run code
+evalbytes	Flow	similar to string eval, but intend to parse a bytestream
+exec	Process	abandon this program to run another
+exists	HASH	test whether a hash key is present
+exit	Flow	terminate this program
+exp	Math	raise I<e> to a power
+fc	String	return casefolded version of a string
+fcntl	File	file control system call
+__FILE__	Flow	the name of the current source file
+fileno	I/O	return file descriptor from filehandle
+flock	I/O	lock an entire file with an advisory lock
+fork	Process	create a new process just like this one
+format	I/O	declare a picture format with use by the write() function
+formline	Misc	internal function used for formats
+getc	I/O	get the next character from the filehandle
+getgrent	User	get next group record
+getgrgid	User	get group record given group user ID
+getgrnam	User	get group record given group name
+gethostbyaddr	Network	get host record given its address
+gethostbyname	Network	get host record given name
+gethostent	Network	get next hosts record
+getlogin	User	return who logged in at this tty
+getnetbyaddr	Network	get network record given its address
+getnetbyname	Network	get networks record given name
+getnetent	Network	get next networks record
+getpeername	Socket	find the other end of a socket connection
+getpgrp	Process	get process group
+getppid	Process	get parent process ID
+getpriority	Process	get current nice value
+getprotobyname	Network	get protocol record given name
+getprotobynumber	Network	get protocol record numeric protocol
+getprotoent	Network	get next protocols record
+getpwent	User	get next passwd record
+getpwnam	User	get passwd record given user login name
+getpwuid	User	get passwd record given user ID
+getservbyname	Network	get services record given its name
+getservbyport	Network	get services record given numeric port
+getservent	Network	get next services record
+getsockname	Socket	retrieve the sockaddr for a given socket
+getsockopt	Socket	get socket options on a given socket
+glob	File	expand filenames using wildcards
+gmtime	Time	convert UNIX time into record or string using Greenwich time
+goto	Flow	create spaghetti code
+grep	LIST	locate elements in a list test true against a given criterion
+hex	Math	String	convert a hexadecimal string to a number
+import	Modules	Namespace	patch a module's namespace into your own
+index	String	find a substring within a string
+int	Math	get the integer portion of a number
+ioctl	File	system-dependent device control system call
+join	LIST	join a list into a string using a separator
+keys	ARRAY	HASH	retrieve list of indices from a hash
+kill	Process	send a signal to a process or process group
+last	Flow	exit a block prematurely
+lc	String	return lower-case version of a string
+lcfirst	String	return a string with just the next letter in lower case
+length	String	return the number of characters in a string
+__LINE__	Flow	the current source line number
+link	File	create a hard link in the filesystem
+listen	Socket	register your socket as a server
+local	Namespace	create a temporary value for a global variable (dynamic scoping)
+localtime	Time	convert UNIX time into record or string using local time
+lock	Misc	get a thread lock on a variable, subroutine, or method
+log	Math	retrieve the natural logarithm for a number
+lstat	File	stat a symbolic link
+m//	Regexp	match a string with a regular expression pattern
+map	LIST	apply a change to a list to get back a new list with the changes
+mkdir	File	create a directory
+msgctl	SysV	SysV IPC message control operations
+msgget	SysV	get SysV IPC message queue
+msgrcv	SysV	receive a SysV IPC message from a message queue
+msgsnd	SysV	send a SysV IPC message to a message queue
+my	Namespace	declare and assign a local variable (lexical scoping)
+next	Flow	iterate a block prematurely
+no	Modules	unimport some module symbols or semantics at compile time
+oct	Math	String	convert a string to an octal number
+open	File	open a file, pipe, or descriptor
+opendir	File	open a directory
+ord	String	find a character's numeric representation
+our	Namespace	declare and assign a package variable (lexical scoping)
+pack	Binary	String	convert a list into a binary representation
+package	Modules	Namespace	Objects	declare a separate global namespace
+__PACKAGE__	Flow	the current package
+pipe	Process	open a pair of connected filehandles
+pop	ARRAY	remove the last element from an array and return it
+pos	Regexp	find or set the offset for the last/next m//g search
+print	I/O	output a list to a filehandle
+printf	I/O	output a formatted list to a filehandle
+prototype	Misc	get the prototype (if any) of a subroutine
+push	ARRAY	append one or more elements to an array
+q/STRING/	String	singly quote a string
+qq/STRING/	String	doubly quote a string
+qr/STRING/	Regexp	compile pattern
+quotemeta	Regexp	quote regular expression magic characters
+qw/STRING/	LIST	quote a list of words
+qx/STRING/	Process	backquote quote a string
+rand	Math	retrieve the next pseudorandom number
+read	Binary	I/O	fixed-length buffered input from a filehandle
+readdir	I/O	get a directory from a directory handle
+readline	I/O	fetch a record from a file
+readlink	File	determine where a symbolic link is pointing
+readpipe	Process	execute a system command and collect standard output
+recv	Socket	receive a message over a Socket
+redo	Flow	start this loop iteration over again
+ref	Objects	find out the type of thing being referenced
+rename	File	change a filename
+require	Modules	load in external functions from a library at runtime
+reset	Misc	clear all variables of a given name
+return	Flow	get out of a function early
+reverse	LIST	String	flip a string or a list
+rewinddir	I/O	reset directory handle
+rindex	String	right-to-left substring search
+rmdir	File	remove a directory
+s///	Regexp	replace a pattern with a string
+say	I/O	output a list to a filehandle, appending a newline
+scalar	Misc	force a scalar context
+seek	I/O	reposition file pointer for random-access I/O
+seekdir	I/O	reposition directory pointer
+select	File	I/O	reset default output or do I/O multiplexing
+semctl	SysV	SysV semaphore control operations
+semget	SysV	get set of SysV semaphores
+semop	SysV	SysV semaphore operations
+send	Socket	send a message over a socket
+setgrent	User	prepare group file for use
+sethostent	Network	prepare hosts file for use
+setnetent	Network	prepare networks file for use
+setpgrp	Process	set the process group of a process
+setpriority	Process	set a process's nice value
+setprotoent	Network	prepare protocols file for use
+setpwent	User	prepare passwd file for use
+setservent	Network	prepare services file for use
+setsockopt	Socket	set some socket options
+shift	ARRAY	remove the first element of an array, and return it
+shmctl	SysV	SysV shared memory operations
+shmget	SysV	get SysV shared memory segment identifier
+shmread	SysV	read SysV shared memory
+shmwrite	SysV	write SysV shared memory
+shutdown	Socket	close down just half of a socket connection
+sin	Math	return the sine of a number
+sleep	Process	block for some number of seconds
+socket	Socket	create a socket
+socketpair	Socket	create a pair of sockets
+sort	LIST	sort a list of values
+splice	ARRAY	add or remove elements anywhere in an array
+split	Regexp	split up a string using a regexp delimiter
+sprintf	String	formatted print into a string
+sqrt	Math	square root function
+srand	Math	seed the random number generator
+stat	File	get a file's status information
+state	Namespace	declare and assign a persistent lexical variable
+study	Regexp	optimize input data for repeated searches
+sub	Flow	declare a subroutine, possibly anonymously
+__SUB__	Flow	the current subroutine, or C<undef> if not in a subroutine
+substr	String	get or alter a portion of a string
+symlink	File	create a symbolic link to a file
+syscall	Binary	I/O	execute an arbitrary system call
+sysopen	File	open a file, pipe, or descriptor
+sysread	Binary	I/O	fixed-length unbuffered input from a filehandle
+sysseek	Binary	I/O	position I/O pointer on handle used with sysread and syswrite
+system	Process	run a separate program
+syswrite	Binary	I/O	fixed-length unbuffered output to a filehandle
+tell	I/O	get current seekpointer on a filehandle
+telldir	I/O	get current seekpointer on a directory handle
+tie	Objects	bind a variable to an object class
+tied	Objects	get a reference to the object underlying a tied variable
+time	Time	return number of seconds since 1970
+times	Process	Time	return elapsed time for self and child processes
+tr///	String	transliterate a string
+truncate	I/O	shorten a file
+uc	String	return upper-case version of a string
+ucfirst	String	return a string with just the next letter in upper case
+umask	File	set file creation mode mask
+undef	Misc	remove a variable or function definition
+unlink	File	remove one link to a file
+unpack	Binary	LIST	convert binary structure into normal perl variables
+unshift	ARRAY	prepend more elements to the beginning of a list
+untie	Objects	break a tie binding to a variable
+use	Modules	Namespace	Objects	load in a module at compile time and import its namespace
+utime	File	set a file's last access and modify times
+values	ARRAY	HASH	return a list of the values in a hash
+vec	Binary	test or set particular bits in a string
+wait	Process	wait for any child process to die
+waitpid	Process	wait for a particular child process to die
+wantarray	Flow	get void vs scalar vs list context of current subroutine call
+warn	I/O	print debugging info
+write	I/O	print a picture record
+y///	String	transliterate a string
diff --git a/lib/5.24.1/Pod/Html.pm b/lib/5.24.1/Pod/Html.pm
new file mode 100644
index 00000000..cef329e1
--- /dev/null
+++ b/lib/5.24.1/Pod/Html.pm
@@ -0,0 +1,811 @@
+package Pod::Html;
+use strict;
+require Exporter;
+
+use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
+$VERSION = 1.2201;
+@ISA = qw(Exporter);
+@EXPORT = qw(pod2html htmlify);
+@EXPORT_OK = qw(anchorify);
+
+use Carp;
+use Config;
+use Cwd;
+use File::Basename;
+use File::Spec;
+use File::Spec::Unix;
+use Getopt::Long;
+use Pod::Simple::Search;
+use locale; # make \w work right in non-ASCII lands
+
+=head1 NAME
+
+Pod::Html - module to convert pod files to HTML
+
+=head1 SYNOPSIS
+
+    use Pod::Html;
+    pod2html([options]);
+
+=head1 DESCRIPTION
+
+Converts files from pod format (see L<perlpod>) to HTML format.  It
+can automatically generate indexes and cross-references, and it keeps
+a cache of things it knows how to cross-reference.
+
+=head1 FUNCTIONS
+
+=head2 pod2html
+
+    pod2html("pod2html",
+             "--podpath=lib:ext:pod:vms",
+             "--podroot=/usr/src/perl",
+             "--htmlroot=/perl/nmanual",
+             "--recurse",
+             "--infile=foo.pod",
+             "--outfile=/perl/nmanual/foo.html");
+
+pod2html takes the following arguments:
+
+=over 4
+
+=item backlink
+
+    --backlink
+
+Turns every C<head1> heading into a link back to the top of the page.
+By default, no backlinks are generated.
+
+=item cachedir
+
+    --cachedir=name
+
+Creates the directory cache in the given directory.
+
+=item css
+
+    --css=stylesheet
+
+Specify the URL of a cascading style sheet.  Also disables all HTML/CSS
+C<style> attributes that are output by default (to avoid conflicts).
+
+=item flush
+
+    --flush
+
+Flushes the directory cache.
+
+=item header
+
+    --header
+    --noheader
+
+Creates header and footer blocks containing the text of the C<NAME>
+section.  By default, no headers are generated.
+
+=item help
+
+    --help
+
+Displays the usage message.
+
+=item htmldir
+
+    --htmldir=name
+
+Sets the directory to which all cross references in the resulting
+html file will be relative. Not passing this causes all links to be
+absolute since this is the value that tells Pod::Html the root of the 
+documentation tree.
+
+Do not use this and --htmlroot in the same call to pod2html; they are
+mutually exclusive.
+
+=item htmlroot
+
+    --htmlroot=name
+
+Sets the base URL for the HTML files.  When cross-references are made,
+the HTML root is prepended to the URL.
+
+Do not use this if relative links are desired: use --htmldir instead.
+
+Do not pass both this and --htmldir to pod2html; they are mutually
+exclusive.
+
+=item index
+
+    --index
+    --noindex
+
+Generate an index at the top of the HTML file.  This is the default
+behaviour.
+
+=item infile
+
+    --infile=name
+
+Specify the pod file to convert.  Input is taken from STDIN if no
+infile is specified.
+
+=item outfile
+
+    --outfile=name
+
+Specify the HTML file to create.  Output goes to STDOUT if no outfile
+is specified.
+
+=item poderrors
+
+    --poderrors
+    --nopoderrors
+
+Include a "POD ERRORS" section in the outfile if there were any POD 
+errors in the infile. This section is included by default.
+
+=item podpath
+
+    --podpath=name:...:name
+
+Specify which subdirectories of the podroot contain pod files whose
+HTML converted forms can be linked to in cross references.
+
+=item podroot
+
+    --podroot=name
+
+Specify the base directory for finding library pods. Default is the
+current working directory.
+
+=item quiet
+
+    --quiet
+    --noquiet
+
+Don't display I<mostly harmless> warning messages.  These messages
+will be displayed by default.  But this is not the same as C<verbose>
+mode.
+
+=item recurse
+
+    --recurse
+    --norecurse
+
+Recurse into subdirectories specified in podpath (default behaviour).
+
+=item title
+
+    --title=title
+
+Specify the title of the resulting HTML file.
+
+=item verbose
+
+    --verbose
+    --noverbose
+
+Display progress messages.  By default, they won't be displayed.
+
+=back
+
+=head2 htmlify
+
+    htmlify($heading);
+
+Converts a pod section specification to a suitable section specification
+for HTML. Note that we keep spaces and special characters except
+C<", ?> (Netscape problem) and the hyphen (writer's problem...).
+
+=head2 anchorify
+
+    anchorify(@heading);
+
+Similar to C<htmlify()>, but turns non-alphanumerics into underscores.  Note
+that C<anchorify()> is not exported by default.
+
+=head1 ENVIRONMENT
+
+Uses C<$Config{pod2html}> to setup default options.
+
+=head1 AUTHOR
+
+Marc Green, E<lt>marcgreen@cpan.orgE<gt>. 
+
+Original version by Tom Christiansen, E<lt>tchrist@perl.comE<gt>.
+
+=head1 SEE ALSO
+
+L<perlpod>
+
+=head1 COPYRIGHT
+
+This program is distributed under the Artistic License.
+
+=cut
+
+my $Cachedir; 
+my $Dircache;
+my($Htmlroot, $Htmldir, $Htmlfile, $Htmlfileurl);
+my($Podfile, @Podpath, $Podroot);
+my $Poderrors;
+my $Css;
+
+my $Recurse;
+my $Quiet;
+my $Verbose;
+my $Doindex;
+
+my $Backlink;
+
+my($Title, $Header);
+
+my %Pages = ();                 # associative array used to find the location
+                                #   of pages referenced by L<> links.
+
+my $Curdir = File::Spec->curdir;
+
+init_globals();
+
+sub init_globals {
+    $Cachedir = ".";            # The directory to which directory caches
+                                #   will be written.
+
+    $Dircache = "pod2htmd.tmp";
+
+    $Htmlroot = "/";            # http-server base directory from which all
+                                #   relative paths in $podpath stem.
+    $Htmldir = "";              # The directory to which the html pages
+                                #   will (eventually) be written.
+    $Htmlfile = "";             # write to stdout by default
+    $Htmlfileurl = "";          # The url that other files would use to
+                                # refer to this file.  This is only used
+                                # to make relative urls that point to
+                                # other files.
+
+    $Poderrors = 1;
+    $Podfile = "";              # read from stdin by default
+    @Podpath = ();              # list of directories containing library pods.
+    $Podroot = $Curdir;         # filesystem base directory from which all
+                                #   relative paths in $podpath stem.
+    $Css = '';                  # Cascading style sheet
+    $Recurse = 1;               # recurse on subdirectories in $podpath.
+    $Quiet = 0;                 # not quiet by default
+    $Verbose = 0;               # not verbose by default
+    $Doindex = 1;               # non-zero if we should generate an index
+    $Backlink = 0;              # no backlinks added by default
+    $Header = 0;                # produce block header/footer
+    $Title = '';                # title to give the pod(s)
+}
+
+sub pod2html {
+    local(@ARGV) = @_;
+    local $_;
+
+    init_globals();
+    parse_command_line();
+
+    # prevent '//' in urls
+    $Htmlroot = "" if $Htmlroot eq "/";
+    $Htmldir =~ s#/\z##;
+
+    if (  $Htmlroot eq ''
+       && defined( $Htmldir )
+       && $Htmldir ne ''
+       && substr( $Htmlfile, 0, length( $Htmldir ) ) eq $Htmldir
+       ) {
+        # Set the 'base' url for this file, so that we can use it
+        # as the location from which to calculate relative links
+        # to other files. If this is '', then absolute links will
+        # be used throughout.
+        #$Htmlfileurl = "$Htmldir/" . substr( $Htmlfile, length( $Htmldir ) + 1);
+        # Is the above not just "$Htmlfileurl = $Htmlfile"?
+        $Htmlfileurl = Pod::Html::_unixify($Htmlfile);
+
+    }
+
+    # load or generate/cache %Pages
+    unless (get_cache($Dircache, \@Podpath, $Podroot, $Recurse)) {
+        # generate %Pages
+        my $pwd = getcwd();
+        chdir($Podroot) || 
+            die "$0: error changing to directory $Podroot: $!\n";
+
+        # find all pod modules/pages in podpath, store in %Pages
+        # - callback used to remove Podroot and extension from each file
+        # - laborious to allow '.' in dirnames (e.g., /usr/share/perl/5.14.1)
+        Pod::Simple::Search->new->inc(0)->verbose($Verbose)->laborious(1)
+            ->callback(\&_save_page)->recurse($Recurse)->survey(@Podpath);
+
+        chdir($pwd) || die "$0: error changing to directory $pwd: $!\n";
+
+        # cache the directory list for later use
+        warn "caching directories for later use\n" if $Verbose;
+        open my $cache, '>', $Dircache
+            or die "$0: error open $Dircache for writing: $!\n";
+
+        print $cache join(":", @Podpath) . "\n$Podroot\n";
+        my $_updirs_only = ($Podroot =~ /\.\./) && !($Podroot =~ /[^\.\\\/]/);
+        foreach my $key (keys %Pages) {
+            if($_updirs_only) {
+              my $_dirlevel = $Podroot;
+              while($_dirlevel =~ /\.\./) {
+                $_dirlevel =~ s/\.\.//;
+                # Assume $Pages{$key} has '/' separators (html dir separators).
+                $Pages{$key} =~ s/^[\w\s\-\.]+\///;
+              }
+            }
+            print $cache "$key $Pages{$key}\n";
+        }
+
+        close $cache or die "error closing $Dircache: $!";
+    }
+
+    # set options for the parser
+    my $parser = Pod::Simple::XHTML::LocalPodLinks->new();
+    $parser->codes_in_verbatim(0);
+    $parser->anchor_items(1); # the old Pod::Html always did
+    $parser->backlink($Backlink); # linkify =head1 directives
+    $parser->htmldir($Htmldir);
+    $parser->htmlfileurl($Htmlfileurl);
+    $parser->htmlroot($Htmlroot);
+    $parser->index($Doindex);
+    $parser->no_errata_section(!$Poderrors); # note the inverse
+    $parser->output_string(\my $output); # written to file later
+    $parser->pages(\%Pages);
+    $parser->quiet($Quiet);
+    $parser->verbose($Verbose);
+
+    # XXX: implement default title generator in pod::simple::xhtml
+    # copy the way the old Pod::Html did it
+    $Title = html_escape($Title);
+
+    # We need to add this ourselves because we use our own header, not
+    # ::XHTML's header. We need to set $parser->backlink to linkify
+    # the =head1 directives
+    my $bodyid = $Backlink ? ' id="_podtop_"' : '';
+
+    my $csslink = '';
+    my $tdstyle = ' style="background-color: #cccccc; color: #000"';
+
+    if ($Css) {
+        $csslink = qq(\n<link rel="stylesheet" href="$Css" type="text/css" />);
+        $csslink =~ s,\\,/,g;
+        $csslink =~ s,(/.):,$1|,;
+        $tdstyle= '';
+    }
+
+    # header/footer block
+    my $block = $Header ? <<END_OF_BLOCK : '';
+<table border="0" width="100%" cellspacing="0" cellpadding="3">
+<tr><td class="_podblock_"$tdstyle valign="middle">
+<big><strong><span class="_podblock_">&nbsp;$Title</span></strong></big>
+</td></tr>
+</table>
+END_OF_BLOCK
+
+    # create own header/footer because of --header
+    $parser->html_header(<<"HTMLHEAD");
+<?xml version="1.0" ?>
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml">
+<head>
+<title>$Title</title>$csslink
+<meta http-equiv="content-type" content="text/html; charset=utf-8" />
+<link rev="made" href="mailto:$Config{perladmin}" />
+</head>
+
+<body$bodyid>
+$block
+HTMLHEAD
+
+    $parser->html_footer(<<"HTMLFOOT");
+$block
+</body>
+
+</html>
+HTMLFOOT
+
+    my $input;
+    unless (@ARGV && $ARGV[0]) {
+        if ($Podfile and $Podfile ne '-') {
+            $input = $Podfile;
+        } else {
+            $input = '-'; # XXX: make a test case for this
+        }
+    } else {
+        $Podfile = $ARGV[0];
+        $input = *ARGV;
+    }
+
+    warn "Converting input file $Podfile\n" if $Verbose;
+    $parser->parse_file($input);
+
+    # Write output to file
+    $Htmlfile = "-" unless $Htmlfile; # stdout
+    my $fhout;
+    if($Htmlfile and $Htmlfile ne '-') {
+        open $fhout, ">", $Htmlfile
+            or die "$0: cannot open $Htmlfile file for output: $!\n";
+    } else {
+        open $fhout, ">-";
+    }
+    binmode $fhout, ":utf8";
+    print $fhout $output;
+    close $fhout or die "Failed to close $Htmlfile: $!";
+    chmod 0644, $Htmlfile unless $Htmlfile eq '-';
+}
+
+##############################################################################
+
+sub usage {
+    my $podfile = shift;
+    warn "$0: $podfile: @_\n" if @_;
+    die <<END_OF_USAGE;
+Usage:  $0 --help --htmldir=<name> --htmlroot=<URL>
+           --infile=<name> --outfile=<name>
+           --podpath=<name>:...:<name> --podroot=<name>
+           --cachedir=<name> --flush --recurse --norecurse
+           --quiet --noquiet --verbose --noverbose
+           --index --noindex --backlink --nobacklink
+           --header --noheader --poderrors --nopoderrors
+           --css=<URL> --title=<name>
+
+  --[no]backlink  - turn =head1 directives into links pointing to the top of
+                      the page (off by default).
+  --cachedir      - directory for the directory cache files.
+  --css           - stylesheet URL
+  --flush         - flushes the directory cache.
+  --[no]header    - produce block header/footer (default is no headers).
+  --help          - prints this message.
+  --htmldir       - directory for resulting HTML files.
+  --htmlroot      - http-server base directory from which all relative paths
+                      in podpath stem (default is /).
+  --[no]index     - generate an index at the top of the resulting html
+                      (default behaviour).
+  --infile        - filename for the pod to convert (input taken from stdin
+                      by default).
+  --outfile       - filename for the resulting html file (output sent to
+                      stdout by default).
+  --[no]poderrors - include a POD ERRORS section in the output if there were 
+                      any POD errors in the input (default behavior).
+  --podpath       - colon-separated list of directories containing library
+                      pods (empty by default).
+  --podroot       - filesystem base directory from which all relative paths
+                      in podpath stem (default is .).
+  --[no]quiet     - suppress some benign warning messages (default is off).
+  --[no]recurse   - recurse on those subdirectories listed in podpath
+                      (default behaviour).
+  --title         - title that will appear in resulting html file.
+  --[no]verbose   - self-explanatory (off by default).
+
+END_OF_USAGE
+
+}
+
+sub parse_command_line {
+    my ($opt_backlink,$opt_cachedir,$opt_css,$opt_flush,$opt_header,
+        $opt_help,$opt_htmldir,$opt_htmlroot,$opt_index,$opt_infile,
+        $opt_outfile,$opt_poderrors,$opt_podpath,$opt_podroot,
+        $opt_quiet,$opt_recurse,$opt_title,$opt_verbose,$opt_libpods);
+
+    unshift @ARGV, split ' ', $Config{pod2html} if $Config{pod2html};
+    my $result = GetOptions(
+                       'backlink!'  => \$opt_backlink,
+                       'cachedir=s' => \$opt_cachedir,
+                       'css=s'      => \$opt_css,
+                       'flush'      => \$opt_flush,
+                       'help'       => \$opt_help,
+                       'header!'    => \$opt_header,
+                       'htmldir=s'  => \$opt_htmldir,
+                       'htmlroot=s' => \$opt_htmlroot,
+                       'index!'     => \$opt_index,
+                       'infile=s'   => \$opt_infile,
+                       'libpods=s'  => \$opt_libpods, # deprecated
+                       'outfile=s'  => \$opt_outfile,
+                       'poderrors!' => \$opt_poderrors,
+                       'podpath=s'  => \$opt_podpath,
+                       'podroot=s'  => \$opt_podroot,
+                       'quiet!'     => \$opt_quiet,
+                       'recurse!'   => \$opt_recurse,
+                       'title=s'    => \$opt_title,
+                       'verbose!'   => \$opt_verbose,
+    );
+    usage("-", "invalid parameters") if not $result;
+
+    usage("-") if defined $opt_help;    # see if the user asked for help
+    $opt_help = "";                     # just to make -w shut-up.
+
+    @Podpath  = split(":", $opt_podpath) if defined $opt_podpath;
+    warn "--libpods is no longer supported" if defined $opt_libpods;
+
+    $Backlink  =          $opt_backlink   if defined $opt_backlink;
+    $Cachedir  = _unixify($opt_cachedir)  if defined $opt_cachedir;
+    $Css       =          $opt_css        if defined $opt_css;
+    $Header    =          $opt_header     if defined $opt_header;
+    $Htmldir   = _unixify($opt_htmldir)   if defined $opt_htmldir;
+    $Htmlroot  = _unixify($opt_htmlroot)  if defined $opt_htmlroot;
+    $Doindex   =          $opt_index      if defined $opt_index;
+    $Podfile   = _unixify($opt_infile)    if defined $opt_infile;
+    $Htmlfile  = _unixify($opt_outfile)   if defined $opt_outfile;
+    $Poderrors =          $opt_poderrors  if defined $opt_poderrors;
+    $Podroot   = _unixify($opt_podroot)   if defined $opt_podroot;
+    $Quiet     =          $opt_quiet      if defined $opt_quiet;
+    $Recurse   =          $opt_recurse    if defined $opt_recurse;
+    $Title     =          $opt_title      if defined $opt_title;
+    $Verbose   =          $opt_verbose    if defined $opt_verbose;
+
+    warn "Flushing directory caches\n"
+        if $opt_verbose && defined $opt_flush;
+    $Dircache = "$Cachedir/pod2htmd.tmp";
+    if (defined $opt_flush) {
+        1 while unlink($Dircache);
+    }
+}
+
+my $Saved_Cache_Key;
+
+sub get_cache {
+    my($dircache, $podpath, $podroot, $recurse) = @_;
+    my @cache_key_args = @_;
+
+    # A first-level cache:
+    # Don't bother reading the cache files if they still apply
+    # and haven't changed since we last read them.
+
+    my $this_cache_key = cache_key(@cache_key_args);
+    return 1 if $Saved_Cache_Key and $this_cache_key eq $Saved_Cache_Key;
+    $Saved_Cache_Key = $this_cache_key;
+
+    # load the cache of %Pages if possible.  $tests will be
+    # non-zero if successful.
+    my $tests = 0;
+    if (-f $dircache) {
+        warn "scanning for directory cache\n" if $Verbose;
+        $tests = load_cache($dircache, $podpath, $podroot);
+    }
+
+    return $tests;
+}
+
+sub cache_key {
+    my($dircache, $podpath, $podroot, $recurse) = @_;
+    return join('!',$dircache,$recurse,@$podpath,$podroot,stat($dircache));
+}
+
+#
+# load_cache - tries to find if the cache stored in $dircache is a valid
+#  cache of %Pages.  if so, it loads them and returns a non-zero value.
+#
+sub load_cache {
+    my($dircache, $podpath, $podroot) = @_;
+    my $tests = 0;
+    local $_;
+
+    warn "scanning for directory cache\n" if $Verbose;
+    open(my $cachefh, '<', $dircache) ||
+        die "$0: error opening $dircache for reading: $!\n";
+    $/ = "\n";
+
+    # is it the same podpath?
+    $_ = <$cachefh>;
+    chomp($_);
+    $tests++ if (join(":", @$podpath) eq $_);
+
+    # is it the same podroot?
+    $_ = <$cachefh>;
+    chomp($_);
+    $tests++ if ($podroot eq $_);
+
+    # load the cache if its good
+    if ($tests != 2) {
+        close($cachefh);
+        return 0;
+    }
+
+    warn "loading directory cache\n" if $Verbose;
+    while (<$cachefh>) {
+        /(.*?) (.*)$/;
+        $Pages{$1} = $2;
+    }
+
+    close($cachefh);
+    return 1;
+}
+
+
+#
+# html_escape: make text safe for HTML
+#
+sub html_escape {
+    my $rest = $_[0];
+    $rest   =~ s/&/&amp;/g;
+    $rest   =~ s/</&lt;/g;
+    $rest   =~ s/>/&gt;/g;
+    $rest   =~ s/"/&quot;/g;
+    # &apos; is only in XHTML, not HTML4.  Be conservative
+    #$rest   =~ s/'/&apos;/g;
+    return $rest;
+}
+
+#
+# htmlify - converts a pod section specification to a suitable section
+# specification for HTML. Note that we keep spaces and special characters
+# except ", ? (Netscape problem) and the hyphen (writer's problem...).
+#
+sub htmlify {
+    my( $heading) = @_;
+    $heading =~ s/(\s+)/ /g;
+    $heading =~ s/\s+\Z//;
+    $heading =~ s/\A\s+//;
+    # The hyphen is a disgrace to the English language.
+    # $heading =~ s/[-"?]//g;
+    $heading =~ s/["?]//g;
+    $heading = lc( $heading );
+    return $heading;
+}
+
+#
+# similar to htmlify, but turns non-alphanumerics into underscores
+#
+sub anchorify {
+    my ($anchor) = @_;
+    $anchor = htmlify($anchor);
+    $anchor =~ s/\W/_/g;
+    return $anchor;
+}
+
+#
+# store POD files in %Pages
+#
+sub _save_page {
+    my ($modspec, $modname) = @_;
+
+    # Remove Podroot from path
+    $modspec = $Podroot eq File::Spec->curdir
+               ? File::Spec->abs2rel($modspec)
+               : File::Spec->abs2rel($modspec,
+                                     File::Spec->canonpath($Podroot));
+
+    # Convert path to unix style path
+    $modspec = Pod::Html::_unixify($modspec);
+
+    my ($file, $dir) = fileparse($modspec, qr/\.[^.]*/); # strip .ext
+    $Pages{$modname} = $dir.$file;
+}
+
+sub _unixify {
+    my $full_path = shift;
+    return '' unless $full_path;
+    return $full_path if $full_path eq '/';
+
+    my ($vol, $dirs, $file) = File::Spec->splitpath($full_path);
+    my @dirs = $dirs eq File::Spec->curdir()
+               ? (File::Spec::Unix->curdir())
+               : File::Spec->splitdir($dirs);
+    if (defined($vol) && $vol) {
+        $vol =~ s/:$// if $^O eq 'VMS';
+        $vol = uc $vol if $^O eq 'MSWin32';
+
+        if( $dirs[0] ) {
+            unshift @dirs, $vol;
+        }
+        else {
+            $dirs[0] = $vol;
+        }
+    }
+    unshift @dirs, '' if File::Spec->file_name_is_absolute($full_path);
+    return $file unless scalar(@dirs);
+    $full_path = File::Spec::Unix->catfile(File::Spec::Unix->catdir(@dirs),
+                                           $file);
+    $full_path =~ s|^\/|| if $^O eq 'MSWin32'; # C:/foo works, /C:/foo doesn't
+    $full_path =~ s/\^\././g if $^O eq 'VMS'; # unescape dots
+    return $full_path;
+}
+
+package Pod::Simple::XHTML::LocalPodLinks;
+use strict;
+use warnings;
+use parent 'Pod::Simple::XHTML';
+
+use File::Spec;
+use File::Spec::Unix;
+
+__PACKAGE__->_accessorize(
+ 'htmldir',
+ 'htmlfileurl',
+ 'htmlroot',
+ 'pages', # Page name => relative/path/to/page from root POD dir
+ 'quiet',
+ 'verbose',
+);
+
+sub resolve_pod_page_link {
+    my ($self, $to, $section) = @_;
+
+    return undef unless defined $to || defined $section;
+    if (defined $section) {
+        $section = '#' . $self->idify($section, 1);
+        return $section unless defined $to;
+    } else {
+        $section = '';
+    }
+
+    my $path; # path to $to according to %Pages
+    unless (exists $self->pages->{$to}) {
+        # Try to find a POD that ends with $to and use that.
+        # e.g., given L<XHTML>, if there is no $Podpath/XHTML in %Pages,
+        # look for $Podpath/*/XHTML in %Pages, with * being any path,
+        # as a substitute (e.g., $Podpath/Pod/Simple/XHTML)
+        my @matches;
+        foreach my $modname (keys %{$self->pages}) {
+            push @matches, $modname if $modname =~ /::\Q$to\E\z/;
+        }
+
+        if ($#matches == -1) {
+            warn "Cannot find \"$to\" in podpath: " . 
+                 "cannot find suitable replacement path, cannot resolve link\n"
+                 unless $self->quiet;
+            return '';
+        } elsif ($#matches == 0) {
+            warn "Cannot find \"$to\" in podpath: " .
+                 "using $matches[0] as replacement path to $to\n" 
+                 unless $self->quiet;
+            $path = $self->pages->{$matches[0]};
+        } else {
+            warn "Cannot find \"$to\" in podpath: " .
+                 "more than one possible replacement path to $to, " .
+                 "using $matches[-1]\n" unless $self->quiet;
+            # Use [-1] so newer (higher numbered) perl PODs are used
+            $path = $self->pages->{$matches[-1]};
+        }
+    } else {
+        $path = $self->pages->{$to};
+    }
+
+    my $url = File::Spec::Unix->catfile(Pod::Html::_unixify($self->htmlroot),
+                                        $path);
+
+    if ($self->htmlfileurl ne '') {
+        # then $self->htmlroot eq '' (by definition of htmlfileurl) so
+        # $self->htmldir needs to be prepended to link to get the absolute path
+        # that will be relativized
+        $url = relativize_url(
+            File::Spec::Unix->catdir(Pod::Html::_unixify($self->htmldir), $url),
+            $self->htmlfileurl # already unixified
+        );
+    }
+
+    return $url . ".html$section";
+}
+
+#
+# relativize_url - convert an absolute URL to one relative to a base URL.
+# Assumes both end in a filename.
+#
+sub relativize_url {
+    my ($dest, $source) = @_;
+
+    # Remove each file from its path
+    my ($dest_volume, $dest_directory, $dest_file) =
+        File::Spec::Unix->splitpath( $dest );
+    $dest = File::Spec::Unix->catpath( $dest_volume, $dest_directory, '' );
+
+    my ($source_volume, $source_directory, $source_file) =
+        File::Spec::Unix->splitpath( $source );
+    $source = File::Spec::Unix->catpath( $source_volume, $source_directory, '' );
+
+    my $rel_path = '';
+    if ($dest ne '') {
+       $rel_path = File::Spec::Unix->abs2rel( $dest, $source );
+    }
+
+    if ($rel_path ne '' && substr( $rel_path, -1 ) ne '/') {
+        $rel_path .= "/$dest_file";
+    } else {
+        $rel_path .= "$dest_file";
+    }
+
+    return $rel_path;
+}
+
+1;
diff --git a/lib/5.24.1/Pod/InputObjects.pm b/lib/5.24.1/Pod/InputObjects.pm
new file mode 100644
index 00000000..c4d6fc24
--- /dev/null
+++ b/lib/5.24.1/Pod/InputObjects.pm
@@ -0,0 +1,946 @@
+#############################################################################
+# Pod/InputObjects.pm -- package which defines objects for input streams
+# and paragraphs and commands when parsing POD docs.
+#
+# Copyright (C) 1996-2000 by Bradford Appleton. All rights reserved.
+# This file is part of "PodParser". PodParser is free software;
+# you can redistribute it and/or modify it under the same terms
+# as Perl itself.
+#############################################################################
+
+package Pod::InputObjects;
+use strict;
+
+use vars qw($VERSION);
+$VERSION = '1.63';  ## Current version of this package
+require  5.005;    ## requires this Perl version or later
+
+#############################################################################
+
+=head1 NAME
+
+Pod::InputObjects - objects representing POD input paragraphs, commands, etc.
+
+=head1 SYNOPSIS
+
+    use Pod::InputObjects;
+
+=head1 REQUIRES
+
+perl5.004, Carp
+
+=head1 EXPORTS
+
+Nothing.
+
+=head1 DESCRIPTION
+
+B<NOTE: This module is considered legacy; modern Perl releases (5.18 and
+higher) are going to remove Pod-Parser from core and use L<Pod-Simple>
+for all things POD.>
+
+This module defines some basic input objects used by B<Pod::Parser> when
+reading and parsing POD text from an input source. The following objects
+are defined:
+
+=begin __PRIVATE__
+
+=over 4
+
+=item package B<Pod::InputSource>
+
+An object corresponding to a source of POD input text. It is mostly a
+wrapper around a filehandle or C<IO::Handle>-type object (or anything
+that implements the C<getline()> method) which keeps track of some
+additional information relevant to the parsing of PODs.
+
+=back
+
+=end __PRIVATE__
+
+=over 4
+
+=item package B<Pod::Paragraph>
+
+An object corresponding to a paragraph of POD input text. It may be a
+plain paragraph, a verbatim paragraph, or a command paragraph (see
+L<perlpod>).
+
+=item package B<Pod::InteriorSequence>
+
+An object corresponding to an interior sequence command from the POD
+input text (see L<perlpod>).
+
+=item package B<Pod::ParseTree>
+
+An object corresponding to a tree of parsed POD text. Each "node" in
+a parse-tree (or I<ptree>) is either a text-string or a reference to
+a B<Pod::InteriorSequence> object. The nodes appear in the parse-tree
+in the order in which they were parsed from left-to-right.
+
+=back
+
+Each of these input objects are described in further detail in the
+sections which follow.
+
+=cut
+
+#############################################################################
+
+package Pod::InputSource;
+
+##---------------------------------------------------------------------------
+
+=begin __PRIVATE__
+
+=head1 B<Pod::InputSource>
+
+This object corresponds to an input source or stream of POD
+documentation. When parsing PODs, it is necessary to associate and store
+certain context information with each input source. All of this
+information is kept together with the stream itself in one of these
+C<Pod::InputSource> objects. Each such object is merely a wrapper around
+an C<IO::Handle> object of some kind (or at least something that
+implements the C<getline()> method). They have the following
+methods/attributes:
+
+=end __PRIVATE__
+
+=cut
+
+##---------------------------------------------------------------------------
+
+=begin __PRIVATE__
+
+=head2 B<new()>
+
+        my $pod_input1 = Pod::InputSource->new(-handle => $filehandle);
+        my $pod_input2 = new Pod::InputSource(-handle => $filehandle,
+                                              -name   => $name);
+        my $pod_input3 = new Pod::InputSource(-handle => \*STDIN);
+        my $pod_input4 = Pod::InputSource->new(-handle => \*STDIN,
+                                               -name => "(STDIN)");
+
+This is a class method that constructs a C<Pod::InputSource> object and
+returns a reference to the new input source object. It takes one or more
+keyword arguments in the form of a hash. The keyword C<-handle> is
+required and designates the corresponding input handle. The keyword
+C<-name> is optional and specifies the name associated with the input
+handle (typically a file name).
+
+=end __PRIVATE__
+
+=cut
+
+sub new {
+    ## Determine if we were called via an object-ref or a classname
+    my $this = shift;
+    my $class = ref($this) || $this;
+
+    ## Any remaining arguments are treated as initial values for the
+    ## hash that is used to represent this object. Note that we default
+    ## certain values by specifying them *before* the arguments passed.
+    ## If they are in the argument list, they will override the defaults.
+    my $self = { -name        => '(unknown)',
+                 -handle      => undef,
+                 -was_cutting => 0,
+                 @_ };
+
+    ## Bless ourselves into the desired class and perform any initialization
+    bless $self, $class;
+    return $self;
+}
+
+##---------------------------------------------------------------------------
+
+=begin __PRIVATE__
+
+=head2 B<name()>
+
+        my $filename = $pod_input->name();
+        $pod_input->name($new_filename_to_use);
+
+This method gets/sets the name of the input source (usually a filename).
+If no argument is given, it returns a string containing the name of
+the input source; otherwise it sets the name of the input source to the
+contents of the given argument.
+
+=end __PRIVATE__
+
+=cut
+
+sub name {
+   (@_ > 1)  and  $_[0]->{'-name'} = $_[1];
+   return $_[0]->{'-name'};
+}
+
+## allow 'filename' as an alias for 'name'
+*filename = \&name;
+
+##---------------------------------------------------------------------------
+
+=begin __PRIVATE__
+
+=head2 B<handle()>
+
+        my $handle = $pod_input->handle();
+
+Returns a reference to the handle object from which input is read (the
+one used to contructed this input source object).
+
+=end __PRIVATE__
+
+=cut
+
+sub handle {
+   return $_[0]->{'-handle'};
+}
+
+##---------------------------------------------------------------------------
+
+=begin __PRIVATE__
+
+=head2 B<was_cutting()>
+
+        print "Yes.\n" if ($pod_input->was_cutting());
+
+The value of the C<cutting> state (that the B<cutting()> method would
+have returned) immediately before any input was read from this input
+stream. After all input from this stream has been read, the C<cutting>
+state is restored to this value.
+
+=end __PRIVATE__
+
+=cut
+
+sub was_cutting {
+   (@_ > 1)  and  $_[0]->{-was_cutting} = $_[1];
+   return $_[0]->{-was_cutting};
+}
+
+##---------------------------------------------------------------------------
+
+#############################################################################
+
+package Pod::Paragraph;
+
+##---------------------------------------------------------------------------
+
+=head1 B<Pod::Paragraph>
+
+An object representing a paragraph of POD input text.
+It has the following methods/attributes:
+
+=cut
+
+##---------------------------------------------------------------------------
+
+=head2 Pod::Paragraph-E<gt>B<new()>
+
+        my $pod_para1 = Pod::Paragraph->new(-text => $text);
+        my $pod_para2 = Pod::Paragraph->new(-name => $cmd,
+                                            -text => $text);
+        my $pod_para3 = new Pod::Paragraph(-text => $text);
+        my $pod_para4 = new Pod::Paragraph(-name => $cmd,
+                                           -text => $text);
+        my $pod_para5 = Pod::Paragraph->new(-name => $cmd,
+                                            -text => $text,
+                                            -file => $filename,
+                                            -line => $line_number);
+
+This is a class method that constructs a C<Pod::Paragraph> object and
+returns a reference to the new paragraph object. It may be given one or
+two keyword arguments. The C<-text> keyword indicates the corresponding
+text of the POD paragraph. The C<-name> keyword indicates the name of
+the corresponding POD command, such as C<head1> or C<item> (it should
+I<not> contain the C<=> prefix); this is needed only if the POD
+paragraph corresponds to a command paragraph. The C<-file> and C<-line>
+keywords indicate the filename and line number corresponding to the
+beginning of the paragraph 
+
+=cut
+
+sub new {
+    ## Determine if we were called via an object-ref or a classname
+    my $this = shift;
+    my $class = ref($this) || $this;
+
+    ## Any remaining arguments are treated as initial values for the
+    ## hash that is used to represent this object. Note that we default
+    ## certain values by specifying them *before* the arguments passed.
+    ## If they are in the argument list, they will override the defaults.
+    my $self = {
+          -name       => undef,
+          -text       => (@_ == 1) ? shift : undef,
+          -file       => '<unknown-file>',
+          -line       => 0,
+          -prefix     => '=',
+          -separator  => ' ',
+          -ptree => [],
+          @_
+    };
+
+    ## Bless ourselves into the desired class and perform any initialization
+    bless $self, $class;
+    return $self;
+}
+
+##---------------------------------------------------------------------------
+
+=head2 $pod_para-E<gt>B<cmd_name()>
+
+        my $para_cmd = $pod_para->cmd_name();
+
+If this paragraph is a command paragraph, then this method will return 
+the name of the command (I<without> any leading C<=> prefix).
+
+=cut
+
+sub cmd_name {
+   (@_ > 1)  and  $_[0]->{'-name'} = $_[1];
+   return $_[0]->{'-name'};
+}
+
+## let name() be an alias for cmd_name()
+*name = \&cmd_name;
+
+##---------------------------------------------------------------------------
+
+=head2 $pod_para-E<gt>B<text()>
+
+        my $para_text = $pod_para->text();
+
+This method will return the corresponding text of the paragraph.
+
+=cut
+
+sub text {
+   (@_ > 1)  and  $_[0]->{'-text'} = $_[1];
+   return $_[0]->{'-text'};
+}
+
+##---------------------------------------------------------------------------
+
+=head2 $pod_para-E<gt>B<raw_text()>
+
+        my $raw_pod_para = $pod_para->raw_text();
+
+This method will return the I<raw> text of the POD paragraph, exactly
+as it appeared in the input.
+
+=cut
+
+sub raw_text {
+   return $_[0]->{'-text'}  unless (defined $_[0]->{'-name'});
+   return $_[0]->{'-prefix'} . $_[0]->{'-name'} .
+          $_[0]->{'-separator'} . $_[0]->{'-text'};
+}
+
+##---------------------------------------------------------------------------
+
+=head2 $pod_para-E<gt>B<cmd_prefix()>
+
+        my $prefix = $pod_para->cmd_prefix();
+
+If this paragraph is a command paragraph, then this method will return 
+the prefix used to denote the command (which should be the string "="
+or "==").
+
+=cut
+
+sub cmd_prefix {
+   return $_[0]->{'-prefix'};
+}
+
+##---------------------------------------------------------------------------
+
+=head2 $pod_para-E<gt>B<cmd_separator()>
+
+        my $separator = $pod_para->cmd_separator();
+
+If this paragraph is a command paragraph, then this method will return
+the text used to separate the command name from the rest of the
+paragraph (if any).
+
+=cut
+
+sub cmd_separator {
+   return $_[0]->{'-separator'};
+}
+
+##---------------------------------------------------------------------------
+
+=head2 $pod_para-E<gt>B<parse_tree()>
+
+        my $ptree = $pod_parser->parse_text( $pod_para->text() );
+        $pod_para->parse_tree( $ptree );
+        $ptree = $pod_para->parse_tree();
+
+This method will get/set the corresponding parse-tree of the paragraph's text.
+
+=cut
+
+sub parse_tree {
+   (@_ > 1)  and  $_[0]->{'-ptree'} = $_[1];
+   return $_[0]->{'-ptree'};
+}
+
+## let ptree() be an alias for parse_tree()
+*ptree = \&parse_tree;
+
+##---------------------------------------------------------------------------
+
+=head2 $pod_para-E<gt>B<file_line()>
+
+        my ($filename, $line_number) = $pod_para->file_line();
+        my $position = $pod_para->file_line();
+
+Returns the current filename and line number for the paragraph
+object.  If called in a list context, it returns a list of two
+elements: first the filename, then the line number. If called in
+a scalar context, it returns a string containing the filename, followed
+by a colon (':'), followed by the line number.
+
+=cut
+
+sub file_line {
+   my @loc = ($_[0]->{'-file'} || '<unknown-file>',
+              $_[0]->{'-line'} || 0);
+   return (wantarray) ? @loc : join(':', @loc);
+}
+
+##---------------------------------------------------------------------------
+
+#############################################################################
+
+package Pod::InteriorSequence;
+
+##---------------------------------------------------------------------------
+
+=head1 B<Pod::InteriorSequence>
+
+An object representing a POD interior sequence command.
+It has the following methods/attributes:
+
+=cut
+
+##---------------------------------------------------------------------------
+
+=head2 Pod::InteriorSequence-E<gt>B<new()>
+
+        my $pod_seq1 = Pod::InteriorSequence->new(-name => $cmd
+                                                  -ldelim => $delimiter);
+        my $pod_seq2 = new Pod::InteriorSequence(-name => $cmd,
+                                                 -ldelim => $delimiter);
+        my $pod_seq3 = new Pod::InteriorSequence(-name => $cmd,
+                                                 -ldelim => $delimiter,
+                                                 -file => $filename,
+                                                 -line => $line_number);
+
+        my $pod_seq4 = new Pod::InteriorSequence(-name => $cmd, $ptree);
+        my $pod_seq5 = new Pod::InteriorSequence($cmd, $ptree);
+
+This is a class method that constructs a C<Pod::InteriorSequence> object
+and returns a reference to the new interior sequence object. It should
+be given two keyword arguments.  The C<-ldelim> keyword indicates the
+corresponding left-delimiter of the interior sequence (e.g. 'E<lt>').
+The C<-name> keyword indicates the name of the corresponding interior
+sequence command, such as C<I> or C<B> or C<C>. The C<-file> and
+C<-line> keywords indicate the filename and line number corresponding
+to the beginning of the interior sequence. If the C<$ptree> argument is
+given, it must be the last argument, and it must be either string, or
+else an array-ref suitable for passing to B<Pod::ParseTree::new> (or
+it may be a reference to a Pod::ParseTree object).
+
+=cut
+
+sub new {
+    ## Determine if we were called via an object-ref or a classname
+    my $this = shift;
+    my $class = ref($this) || $this;
+
+    ## See if first argument has no keyword
+    if (((@_ <= 2) or (@_ % 2)) and $_[0] !~ /^-\w/) {
+       ## Yup - need an implicit '-name' before first parameter
+       unshift @_, '-name';
+    }
+
+    ## See if odd number of args
+    if ((@_ % 2) != 0) {
+       ## Yup - need an implicit '-ptree' before the last parameter
+       splice @_, $#_, 0, '-ptree';
+    }
+
+    ## Any remaining arguments are treated as initial values for the
+    ## hash that is used to represent this object. Note that we default
+    ## certain values by specifying them *before* the arguments passed.
+    ## If they are in the argument list, they will override the defaults.
+    my $self = {
+          -name       => (@_ == 1) ? $_[0] : undef,
+          -file       => '<unknown-file>',
+          -line       => 0,
+          -ldelim     => '<',
+          -rdelim     => '>',
+          @_
+    };
+
+    ## Initialize contents if they haven't been already
+    my $ptree = $self->{'-ptree'} || new Pod::ParseTree();
+    if ( ref $ptree =~ /^(ARRAY)?$/ ) {
+        ## We have an array-ref, or a normal scalar. Pass it as an
+        ## an argument to the ptree-constructor
+        $ptree = new Pod::ParseTree($1 ? [$ptree] : $ptree);
+    }
+    $self->{'-ptree'} = $ptree;
+
+    ## Bless ourselves into the desired class and perform any initialization
+    bless $self, $class;
+    return $self;
+}
+
+##---------------------------------------------------------------------------
+
+=head2 $pod_seq-E<gt>B<cmd_name()>
+
+        my $seq_cmd = $pod_seq->cmd_name();
+
+The name of the interior sequence command.
+
+=cut
+
+sub cmd_name {
+   (@_ > 1)  and  $_[0]->{'-name'} = $_[1];
+   return $_[0]->{'-name'};
+}
+
+## let name() be an alias for cmd_name()
+*name = \&cmd_name;
+
+##---------------------------------------------------------------------------
+
+## Private subroutine to set the parent pointer of all the given
+## children that are interior-sequences to be $self
+
+sub _set_child2parent_links {
+   my ($self, @children) = @_;
+   ## Make sure any sequences know who their parent is
+   for (@children) {
+      next  unless (length  and  ref  and  ref ne 'SCALAR');
+      if (UNIVERSAL::isa($_, 'Pod::InteriorSequence') or
+          UNIVERSAL::can($_, 'nested'))
+      {
+          $_->nested($self);
+      }
+   }
+}
+
+## Private subroutine to unset child->parent links
+
+sub _unset_child2parent_links {
+   my $self = shift;
+   $self->{'-parent_sequence'} = undef;
+   my $ptree = $self->{'-ptree'};
+   for (@$ptree) {
+      next  unless (length  and  ref  and  ref ne 'SCALAR');
+      $_->_unset_child2parent_links()
+          if UNIVERSAL::isa($_, 'Pod::InteriorSequence');
+   }
+}
+
+##---------------------------------------------------------------------------
+
+=head2 $pod_seq-E<gt>B<prepend()>
+
+        $pod_seq->prepend($text);
+        $pod_seq1->prepend($pod_seq2);
+
+Prepends the given string or parse-tree or sequence object to the parse-tree
+of this interior sequence.
+
+=cut
+
+sub prepend {
+   my $self  = shift;
+   $self->{'-ptree'}->prepend(@_);
+   _set_child2parent_links($self, @_);
+   return $self;
+}
+
+##---------------------------------------------------------------------------
+
+=head2 $pod_seq-E<gt>B<append()>
+
+        $pod_seq->append($text);
+        $pod_seq1->append($pod_seq2);
+
+Appends the given string or parse-tree or sequence object to the parse-tree
+of this interior sequence.
+
+=cut
+
+sub append {
+   my $self = shift;
+   $self->{'-ptree'}->append(@_);
+   _set_child2parent_links($self, @_);
+   return $self;
+}
+
+##---------------------------------------------------------------------------
+
+=head2 $pod_seq-E<gt>B<nested()>
+
+        $outer_seq = $pod_seq->nested || print "not nested";
+
+If this interior sequence is nested inside of another interior
+sequence, then the outer/parent sequence that contains it is
+returned. Otherwise C<undef> is returned.
+
+=cut
+
+sub nested {
+   my $self = shift;
+  (@_ == 1)  and  $self->{'-parent_sequence'} = shift;
+   return  $self->{'-parent_sequence'} || undef;
+}
+
+##---------------------------------------------------------------------------
+
+=head2 $pod_seq-E<gt>B<raw_text()>
+
+        my $seq_raw_text = $pod_seq->raw_text();
+
+This method will return the I<raw> text of the POD interior sequence,
+exactly as it appeared in the input.
+
+=cut
+
+sub raw_text {
+   my $self = shift;
+   my $text = $self->{'-name'} . $self->{'-ldelim'};
+   for ( $self->{'-ptree'}->children ) {
+      $text .= (ref $_) ? $_->raw_text : $_;
+   }
+   $text .= $self->{'-rdelim'};
+   return $text;
+}
+
+##---------------------------------------------------------------------------
+
+=head2 $pod_seq-E<gt>B<left_delimiter()>
+
+        my $ldelim = $pod_seq->left_delimiter();
+
+The leftmost delimiter beginning the argument text to the interior
+sequence (should be "<").
+
+=cut
+
+sub left_delimiter {
+   (@_ > 1)  and  $_[0]->{'-ldelim'} = $_[1];
+   return $_[0]->{'-ldelim'};
+}
+
+## let ldelim() be an alias for left_delimiter()
+*ldelim = \&left_delimiter;
+
+##---------------------------------------------------------------------------
+
+=head2 $pod_seq-E<gt>B<right_delimiter()>
+
+The rightmost delimiter beginning the argument text to the interior
+sequence (should be ">").
+
+=cut
+
+sub right_delimiter {
+   (@_ > 1)  and  $_[0]->{'-rdelim'} = $_[1];
+   return $_[0]->{'-rdelim'};
+}
+
+## let rdelim() be an alias for right_delimiter()
+*rdelim = \&right_delimiter;
+
+##---------------------------------------------------------------------------
+
+=head2 $pod_seq-E<gt>B<parse_tree()>
+
+        my $ptree = $pod_parser->parse_text($paragraph_text);
+        $pod_seq->parse_tree( $ptree );
+        $ptree = $pod_seq->parse_tree();
+
+This method will get/set the corresponding parse-tree of the interior
+sequence's text.
+
+=cut
+
+sub parse_tree {
+   (@_ > 1)  and  $_[0]->{'-ptree'} = $_[1];
+   return $_[0]->{'-ptree'};
+}
+
+## let ptree() be an alias for parse_tree()
+*ptree = \&parse_tree;
+
+##---------------------------------------------------------------------------
+
+=head2 $pod_seq-E<gt>B<file_line()>
+
+        my ($filename, $line_number) = $pod_seq->file_line();
+        my $position = $pod_seq->file_line();
+
+Returns the current filename and line number for the interior sequence
+object.  If called in a list context, it returns a list of two
+elements: first the filename, then the line number. If called in
+a scalar context, it returns a string containing the filename, followed
+by a colon (':'), followed by the line number.
+
+=cut
+
+sub file_line {
+   my @loc = ($_[0]->{'-file'}  || '<unknown-file>',
+              $_[0]->{'-line'}  || 0);
+   return (wantarray) ? @loc : join(':', @loc);
+}
+
+##---------------------------------------------------------------------------
+
+=head2 Pod::InteriorSequence::B<DESTROY()>
+
+This method performs any necessary cleanup for the interior-sequence.
+If you override this method then it is B<imperative> that you invoke
+the parent method from within your own method, otherwise
+I<interior-sequence storage will not be reclaimed upon destruction!>
+
+=cut
+
+sub DESTROY {
+   ## We need to get rid of all child->parent pointers throughout the
+   ## tree so their reference counts will go to zero and they can be
+   ## garbage-collected
+   _unset_child2parent_links(@_);
+}
+
+##---------------------------------------------------------------------------
+
+#############################################################################
+
+package Pod::ParseTree;
+
+##---------------------------------------------------------------------------
+
+=head1 B<Pod::ParseTree>
+
+This object corresponds to a tree of parsed POD text. As POD text is
+scanned from left to right, it is parsed into an ordered list of
+text-strings and B<Pod::InteriorSequence> objects (in order of
+appearance). A B<Pod::ParseTree> object corresponds to this list of
+strings and sequences. Each interior sequence in the parse-tree may
+itself contain a parse-tree (since interior sequences may be nested).
+
+=cut
+
+##---------------------------------------------------------------------------
+
+=head2 Pod::ParseTree-E<gt>B<new()>
+
+        my $ptree1 = Pod::ParseTree->new;
+        my $ptree2 = new Pod::ParseTree;
+        my $ptree4 = Pod::ParseTree->new($array_ref);
+        my $ptree3 = new Pod::ParseTree($array_ref);
+
+This is a class method that constructs a C<Pod::Parse_tree> object and
+returns a reference to the new parse-tree. If a single-argument is given,
+it must be a reference to an array, and is used to initialize the root
+(top) of the parse tree.
+
+=cut
+
+sub new {
+    ## Determine if we were called via an object-ref or a classname
+    my $this = shift;
+    my $class = ref($this) || $this;
+
+    my $self = (@_ == 1  and  ref $_[0]) ? $_[0] : [];
+
+    ## Bless ourselves into the desired class and perform any initialization
+    bless $self, $class;
+    return $self;
+}
+
+##---------------------------------------------------------------------------
+
+=head2 $ptree-E<gt>B<top()>
+
+        my $top_node = $ptree->top();
+        $ptree->top( $top_node );
+        $ptree->top( @children );
+
+This method gets/sets the top node of the parse-tree. If no arguments are
+given, it returns the topmost node in the tree (the root), which is also
+a B<Pod::ParseTree>. If it is given a single argument that is a reference,
+then the reference is assumed to a parse-tree and becomes the new top node.
+Otherwise, if arguments are given, they are treated as the new list of
+children for the top node.
+
+=cut
+
+sub top {
+   my $self = shift;
+   if (@_ > 0) {
+      @{ $self } = (@_ == 1  and  ref $_[0]) ? ${ @_ } : @_;
+   }
+   return $self;
+}
+
+## let parse_tree() & ptree() be aliases for the 'top' method
+*parse_tree = *ptree = \&top;
+
+##---------------------------------------------------------------------------
+
+=head2 $ptree-E<gt>B<children()>
+
+This method gets/sets the children of the top node in the parse-tree.
+If no arguments are given, it returns the list (array) of children
+(each of which should be either a string or a B<Pod::InteriorSequence>.
+Otherwise, if arguments are given, they are treated as the new list of
+children for the top node.
+
+=cut
+
+sub children {
+   my $self = shift;
+   if (@_ > 0) {
+      @{ $self } = (@_ == 1  and  ref $_[0]) ? ${ @_ } : @_;
+   }
+   return @{ $self };
+}
+
+##---------------------------------------------------------------------------
+
+=head2 $ptree-E<gt>B<prepend()>
+
+This method prepends the given text or parse-tree to the current parse-tree.
+If the first item on the parse-tree is text and the argument is also text,
+then the text is prepended to the first item (not added as a separate string).
+Otherwise the argument is added as a new string or parse-tree I<before>
+the current one.
+
+=cut
+
+use vars qw(@ptree);  ## an alias used for performance reasons
+
+sub prepend {
+   my $self = shift;
+   local *ptree = $self;
+   for (@_) {
+      next  unless length;
+      if (@ptree && !(ref $ptree[0]) && !(ref $_)) {
+         $ptree[0] = $_ . $ptree[0];
+      }
+      else {
+         unshift @ptree, $_;
+      }
+   }
+}
+
+##---------------------------------------------------------------------------
+
+=head2 $ptree-E<gt>B<append()>
+
+This method appends the given text or parse-tree to the current parse-tree.
+If the last item on the parse-tree is text and the argument is also text,
+then the text is appended to the last item (not added as a separate string).
+Otherwise the argument is added as a new string or parse-tree I<after>
+the current one.
+
+=cut
+
+sub append {
+   my $self = shift;
+   local *ptree = $self;
+   my $can_append = @ptree && !(ref $ptree[-1]);
+   for (@_) {
+      if (ref) {
+         push @ptree, $_;
+      }
+      elsif(!length) {
+         next;
+      }
+      elsif ($can_append) {
+         $ptree[-1] .= $_;
+      }
+      else {
+         push @ptree, $_;
+      }
+   }
+}
+
+=head2 $ptree-E<gt>B<raw_text()>
+
+        my $ptree_raw_text = $ptree->raw_text();
+
+This method will return the I<raw> text of the POD parse-tree
+exactly as it appeared in the input.
+
+=cut
+
+sub raw_text {
+   my $self = shift;
+   my $text = '';
+   for ( @$self ) {
+      $text .= (ref $_) ? $_->raw_text : $_;
+   }
+   return $text;
+}
+
+##---------------------------------------------------------------------------
+
+## Private routines to set/unset child->parent links
+
+sub _unset_child2parent_links {
+   my $self = shift;
+   local *ptree = $self;
+   for (@ptree) {
+       next  unless (defined and length  and  ref  and  ref ne 'SCALAR');
+       $_->_unset_child2parent_links()
+           if UNIVERSAL::isa($_, 'Pod::InteriorSequence');
+   }
+}
+
+sub _set_child2parent_links {
+    ## nothing to do, Pod::ParseTrees cant have parent pointers
+}
+
+=head2 Pod::ParseTree::B<DESTROY()>
+
+This method performs any necessary cleanup for the parse-tree.
+If you override this method then it is B<imperative>
+that you invoke the parent method from within your own method,
+otherwise I<parse-tree storage will not be reclaimed upon destruction!>
+
+=cut
+
+sub DESTROY {
+   ## We need to get rid of all child->parent pointers throughout the
+   ## tree so their reference counts will go to zero and they can be
+   ## garbage-collected
+   _unset_child2parent_links(@_);
+}
+
+#############################################################################
+
+=head1 SEE ALSO
+
+B<Pod::InputObjects> is part of the L<Pod::Parser> distribution.
+
+See L<Pod::Parser>, L<Pod::Select>
+
+=head1 AUTHOR
+
+Please report bugs using L<http://rt.cpan.org>.
+
+Brad Appleton E<lt>bradapp@enteract.comE<gt>
+
+=cut
+
+1;
diff --git a/lib/5.24.1/Pod/Man.pm b/lib/5.24.1/Pod/Man.pm
new file mode 100644
index 00000000..b7395595
--- /dev/null
+++ b/lib/5.24.1/Pod/Man.pm
@@ -0,0 +1,2012 @@
+# Pod::Man -- Convert POD data to formatted *roff input.
+#
+# This module translates POD documentation into *roff markup using the man
+# macro set, and is intended for converting POD documents written as Unix
+# manual pages to manual pages that can be read by the man(1) command.  It is
+# a replacement for the pod2man command distributed with versions of Perl
+# prior to 5.6.
+#
+# Perl core hackers, please note that this module is also separately
+# maintained outside of the Perl core as part of the podlators.  Please send
+# me any patches at the address above in addition to sending them to the
+# standard Perl mailing lists.
+#
+# Written by Russ Allbery <rra@cpan.org>
+# Substantial contributions by Sean Burke <sburke@cpan.org>
+# Copyright 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009,
+#     2010, 2012, 2013, 2014, 2015, 2016 Russ Allbery <rra@cpan.org>
+#
+# This program is free software; you may redistribute it and/or modify it
+# under the same terms as Perl itself.
+
+##############################################################################
+# Modules and declarations
+##############################################################################
+
+package Pod::Man;
+
+use 5.006;
+use strict;
+use warnings;
+
+use subs qw(makespace);
+use vars qw(@ISA %ESCAPES $PREAMBLE $VERSION);
+
+use Carp qw(carp croak);
+use Pod::Simple ();
+
+# Conditionally import Encode and set $HAS_ENCODE if it is available.
+our $HAS_ENCODE;
+BEGIN {
+    $HAS_ENCODE = eval { require Encode };
+}
+
+@ISA = qw(Pod::Simple);
+
+$VERSION = '4.07';
+
+# Set the debugging level.  If someone has inserted a debug function into this
+# class already, use that.  Otherwise, use any Pod::Simple debug function
+# that's defined, and failing that, define a debug level of 10.
+BEGIN {
+    my $parent = defined (&Pod::Simple::DEBUG) ? \&Pod::Simple::DEBUG : undef;
+    unless (defined &DEBUG) {
+        *DEBUG = $parent || sub () { 10 };
+    }
+}
+
+# Import the ASCII constant from Pod::Simple.  This is true iff we're in an
+# ASCII-based universe (including such things as ISO 8859-1 and UTF-8), and is
+# generally only false for EBCDIC.
+BEGIN { *ASCII = \&Pod::Simple::ASCII }
+
+# Pretty-print a data structure.  Only used for debugging.
+BEGIN { *pretty = \&Pod::Simple::pretty }
+
+# Formatting instructions for various types of blocks.  cleanup makes hyphens
+# hard, adds spaces between consecutive underscores, and escapes backslashes.
+# convert translates characters into escapes.  guesswork means to apply the
+# transformations done by the guesswork sub.  literal says to protect literal
+# quotes from being turned into UTF-8 quotes.  By default, all transformations
+# are on except literal, but some elements override.
+#
+# DEFAULT specifies the default settings.  All other elements should list only
+# those settings that they are overriding.  Data indicates =for roff blocks,
+# which should be passed along completely verbatim.
+#
+# Formatting inherits negatively, in the sense that if the parent has turned
+# off guesswork, all child elements should leave it off.
+my %FORMATTING = (
+    DEFAULT  => { cleanup => 1, convert => 1, guesswork => 1, literal => 0 },
+    Data     => { cleanup => 0, convert => 0, guesswork => 0, literal => 0 },
+    Verbatim => {                             guesswork => 0, literal => 1 },
+    C        => {                             guesswork => 0, literal => 1 },
+    X        => { cleanup => 0,               guesswork => 0               },
+);
+
+##############################################################################
+# Object initialization
+##############################################################################
+
+# Initialize the object and set various Pod::Simple options that we need.
+# Here, we also process any additional options passed to the constructor or
+# set up defaults if none were given.  Note that all internal object keys are
+# in all-caps, reserving all lower-case object keys for Pod::Simple and user
+# arguments.
+sub new {
+    my $class = shift;
+    my $self = $class->SUPER::new;
+
+    # Tell Pod::Simple not to handle S<> by automatically inserting &nbsp;.
+    $self->nbsp_for_S (1);
+
+    # Tell Pod::Simple to keep whitespace whenever possible.
+    if (my $preserve_whitespace = $self->can ('preserve_whitespace')) {
+        $self->$preserve_whitespace (1);
+    } else {
+        $self->fullstop_space_harden (1);
+    }
+
+    # The =for and =begin targets that we accept.
+    $self->accept_targets (qw/man MAN roff ROFF/);
+
+    # Ensure that contiguous blocks of code are merged together.  Otherwise,
+    # some of the guesswork heuristics don't work right.
+    $self->merge_text (1);
+
+    # Pod::Simple doesn't do anything useful with our arguments, but we want
+    # to put them in our object as hash keys and values.  This could cause
+    # problems if we ever clash with Pod::Simple's own internal class
+    # variables.
+    %$self = (%$self, @_);
+
+    # Send errors to stderr if requested.
+    if ($$self{stderr} and not $$self{errors}) {
+        $$self{errors} = 'stderr';
+    }
+    delete $$self{stderr};
+
+    # Validate the errors parameter and act on it.
+    if (not defined $$self{errors}) {
+        $$self{errors} = 'pod';
+    }
+    if ($$self{errors} eq 'stderr' || $$self{errors} eq 'die') {
+        $self->no_errata_section (1);
+        $self->complain_stderr (1);
+        if ($$self{errors} eq 'die') {
+            $$self{complain_die} = 1;
+        }
+    } elsif ($$self{errors} eq 'pod') {
+        $self->no_errata_section (0);
+        $self->complain_stderr (0);
+    } elsif ($$self{errors} eq 'none') {
+        $self->no_whining (1);
+    } else {
+        croak (qq(Invalid errors setting: "$$self{errors}"));
+    }
+    delete $$self{errors};
+
+    # Degrade back to non-utf8 if Encode is not available.
+    #
+    # Suppress the warning message when PERL_CORE is set, indicating this is
+    # running as part of the core Perl build.  Perl builds podlators (and all
+    # pure Perl modules) before Encode and other XS modules, so Encode won't
+    # yet be available.  Rely on the Perl core build to generate man pages
+    # later, after all the modules are available, so that UTF-8 handling will
+    # be correct.
+    if ($$self{utf8} and !$HAS_ENCODE) {
+        if (!$ENV{PERL_CORE}) {
+            carp ('utf8 mode requested but Encode module not available,'
+                    . ' falling back to non-utf8');
+        }
+        delete $$self{utf8};
+    }
+
+    # Initialize various other internal constants based on our arguments.
+    $self->init_fonts;
+    $self->init_quotes;
+    $self->init_page;
+
+    # For right now, default to turning on all of the magic.
+    $$self{MAGIC_CPP}       = 1;
+    $$self{MAGIC_EMDASH}    = 1;
+    $$self{MAGIC_FUNC}      = 1;
+    $$self{MAGIC_MANREF}    = 1;
+    $$self{MAGIC_SMALLCAPS} = 1;
+    $$self{MAGIC_VARS}      = 1;
+
+    return $self;
+}
+
+# Translate a font string into an escape.
+sub toescape { (length ($_[0]) > 1 ? '\f(' : '\f') . $_[0] }
+
+# Determine which fonts the user wishes to use and store them in the object.
+# Regular, italic, bold, and bold-italic are constants, but the fixed width
+# fonts may be set by the user.  Sets the internal hash key FONTS which is
+# used to map our internal font escapes to actual *roff sequences later.
+sub init_fonts {
+    my ($self) = @_;
+
+    # Figure out the fixed-width font.  If user-supplied, make sure that they
+    # are the right length.
+    for (qw/fixed fixedbold fixeditalic fixedbolditalic/) {
+        my $font = $$self{$_};
+        if (defined ($font) && (length ($font) < 1 || length ($font) > 2)) {
+            croak qq(roff font should be 1 or 2 chars, not "$font");
+        }
+    }
+
+    # Set the default fonts.  We can't be sure portably across different
+    # implementations what fixed bold-italic may be called (if it's even
+    # available), so default to just bold.
+    $$self{fixed}           ||= 'CW';
+    $$self{fixedbold}       ||= 'CB';
+    $$self{fixeditalic}     ||= 'CI';
+    $$self{fixedbolditalic} ||= 'CB';
+
+    # Set up a table of font escapes.  First number is fixed-width, second is
+    # bold, third is italic.
+    $$self{FONTS} = { '000' => '\fR', '001' => '\fI',
+                      '010' => '\fB', '011' => '\f(BI',
+                      '100' => toescape ($$self{fixed}),
+                      '101' => toescape ($$self{fixeditalic}),
+                      '110' => toescape ($$self{fixedbold}),
+                      '111' => toescape ($$self{fixedbolditalic}) };
+}
+
+# Initialize the quotes that we'll be using for C<> text.  This requires some
+# special handling, both to parse the user parameter if given and to make sure
+# that the quotes will be safe against *roff.  Sets the internal hash keys
+# LQUOTE and RQUOTE.
+sub init_quotes {
+    my ($self) = (@_);
+
+    $$self{quotes} ||= '"';
+    if ($$self{quotes} eq 'none') {
+        $$self{LQUOTE} = $$self{RQUOTE} = '';
+    } elsif (length ($$self{quotes}) == 1) {
+        $$self{LQUOTE} = $$self{RQUOTE} = $$self{quotes};
+    } elsif (length ($$self{quotes}) % 2 == 0) {
+        my $length = length ($$self{quotes}) / 2;
+        $$self{LQUOTE} = substr ($$self{quotes}, 0, $length);
+        $$self{RQUOTE} = substr ($$self{quotes}, $length);
+    } else {
+        croak(qq(Invalid quote specification "$$self{quotes}"))
+    }
+
+    # Double the first quote; note that this should not be s///g as two double
+    # quotes is represented in *roff as three double quotes, not four.  Weird,
+    # I know.
+    $$self{LQUOTE} =~ s/\"/\"\"/;
+    $$self{RQUOTE} =~ s/\"/\"\"/;
+}
+
+# Initialize the page title information and indentation from our arguments.
+sub init_page {
+    my ($self) = @_;
+
+    # We used to try first to get the version number from a local binary, but
+    # we shouldn't need that any more.  Get the version from the running Perl.
+    # Work a little magic to handle subversions correctly under both the
+    # pre-5.6 and the post-5.6 version numbering schemes.
+    my @version = ($] =~ /^(\d+)\.(\d{3})(\d{0,3})$/);
+    $version[2] ||= 0;
+    $version[2] *= 10 ** (3 - length $version[2]);
+    for (@version) { $_ += 0 }
+    my $version = join ('.', @version);
+
+    # Set the defaults for page titles and indentation if the user didn't
+    # override anything.
+    $$self{center} = 'User Contributed Perl Documentation'
+        unless defined $$self{center};
+    $$self{release} = 'perl v' . $version
+        unless defined $$self{release};
+    $$self{indent} = 4
+        unless defined $$self{indent};
+
+    # Double quotes in things that will be quoted.
+    for (qw/center release/) {
+        $$self{$_} =~ s/\"/\"\"/g if $$self{$_};
+    }
+}
+
+##############################################################################
+# Core parsing
+##############################################################################
+
+# This is the glue that connects the code below with Pod::Simple itself.  The
+# goal is to convert the event stream coming from the POD parser into method
+# calls to handlers once the complete content of a tag has been seen.  Each
+# paragraph or POD command will have textual content associated with it, and
+# as soon as all of a paragraph or POD command has been seen, that content
+# will be passed in to the corresponding method for handling that type of
+# object.  The exceptions are handlers for lists, which have opening tag
+# handlers and closing tag handlers that will be called right away.
+#
+# The internal hash key PENDING is used to store the contents of a tag until
+# all of it has been seen.  It holds a stack of open tags, each one
+# represented by a tuple of the attributes hash for the tag, formatting
+# options for the tag (which are inherited), and the contents of the tag.
+
+# Add a block of text to the contents of the current node, formatting it
+# according to the current formatting instructions as we do.
+sub _handle_text {
+    my ($self, $text) = @_;
+    DEBUG > 3 and print "== $text\n";
+    my $tag = $$self{PENDING}[-1];
+    $$tag[2] .= $self->format_text ($$tag[1], $text);
+}
+
+# Given an element name, get the corresponding method name.
+sub method_for_element {
+    my ($self, $element) = @_;
+    $element =~ tr/A-Z-/a-z_/;
+    $element =~ tr/_a-z0-9//cd;
+    return $element;
+}
+
+# Handle the start of a new element.  If cmd_element is defined, assume that
+# we need to collect the entire tree for this element before passing it to the
+# element method, and create a new tree into which we'll collect blocks of
+# text and nested elements.  Otherwise, if start_element is defined, call it.
+sub _handle_element_start {
+    my ($self, $element, $attrs) = @_;
+    DEBUG > 3 and print "++ $element (<", join ('> <', %$attrs), ">)\n";
+    my $method = $self->method_for_element ($element);
+
+    # If we have a command handler, we need to accumulate the contents of the
+    # tag before calling it.  Turn off IN_NAME for any command other than
+    # <Para> and the formatting codes so that IN_NAME isn't still set for the
+    # first heading after the NAME heading.
+    if ($self->can ("cmd_$method")) {
+        DEBUG > 2 and print "<$element> starts saving a tag\n";
+        $$self{IN_NAME} = 0 if ($element ne 'Para' && length ($element) > 1);
+
+        # How we're going to format embedded text blocks depends on the tag
+        # and also depends on our parent tags.  Thankfully, inside tags that
+        # turn off guesswork and reformatting, nothing else can turn it back
+        # on, so this can be strictly inherited.
+        my $formatting = {
+            %{ $$self{PENDING}[-1][1] || $FORMATTING{DEFAULT} },
+            %{ $FORMATTING{$element} || {} },
+        };
+        push (@{ $$self{PENDING} }, [ $attrs, $formatting, '' ]);
+        DEBUG > 4 and print "Pending: [", pretty ($$self{PENDING}), "]\n";
+    } elsif (my $start_method = $self->can ("start_$method")) {
+        $self->$start_method ($attrs, '');
+    } else {
+        DEBUG > 2 and print "No $method start method, skipping\n";
+    }
+}
+
+# Handle the end of an element.  If we had a cmd_ method for this element,
+# this is where we pass along the tree that we built.  Otherwise, if we have
+# an end_ method for the element, call that.
+sub _handle_element_end {
+    my ($self, $element) = @_;
+    DEBUG > 3 and print "-- $element\n";
+    my $method = $self->method_for_element ($element);
+
+    # If we have a command handler, pull off the pending text and pass it to
+    # the handler along with the saved attribute hash.
+    if (my $cmd_method = $self->can ("cmd_$method")) {
+        DEBUG > 2 and print "</$element> stops saving a tag\n";
+        my $tag = pop @{ $$self{PENDING} };
+        DEBUG > 4 and print "Popped: [", pretty ($tag), "]\n";
+        DEBUG > 4 and print "Pending: [", pretty ($$self{PENDING}), "]\n";
+        my $text = $self->$cmd_method ($$tag[0], $$tag[2]);
+        if (defined $text) {
+            if (@{ $$self{PENDING} } > 1) {
+                $$self{PENDING}[-1][2] .= $text;
+            } else {
+                $self->output ($text);
+            }
+        }
+    } elsif (my $end_method = $self->can ("end_$method")) {
+        $self->$end_method ();
+    } else {
+        DEBUG > 2 and print "No $method end method, skipping\n";
+    }
+}
+
+##############################################################################
+# General formatting
+##############################################################################
+
+# Format a text block.  Takes a hash of formatting options and the text to
+# format.  Currently, the only formatting options are guesswork, cleanup, and
+# convert, all of which are boolean.
+sub format_text {
+    my ($self, $options, $text) = @_;
+    my $guesswork = $$options{guesswork} && !$$self{IN_NAME};
+    my $cleanup = $$options{cleanup};
+    my $convert = $$options{convert};
+    my $literal = $$options{literal};
+
+    # Cleanup just tidies up a few things, telling *roff that the hyphens are
+    # hard, putting a bit of space between consecutive underscores, and
+    # escaping backslashes.  Be careful not to mangle our character
+    # translations by doing this before processing character translation.
+    if ($cleanup) {
+        $text =~ s/\\/\\e/g;
+        $text =~ s/-/\\-/g;
+        $text =~ s/_(?=_)/_\\|/g;
+    }
+
+    # Normally we do character translation, but we won't even do that in
+    # <Data> blocks or if UTF-8 output is desired.
+    if ($convert && !$$self{utf8} && ASCII) {
+        $text =~ s/([^\x00-\x7F])/$ESCAPES{ord ($1)} || "X"/eg;
+    }
+
+    # Ensure that *roff doesn't convert literal quotes to UTF-8 single quotes,
+    # but don't mess up our accept escapes.
+    if ($literal) {
+        $text =~ s/(?<!\\\*)\'/\\*\(Aq/g;
+        $text =~ s/(?<!\\\*)\`/\\\`/g;
+    }
+
+    # If guesswork is asked for, do that.  This involves more substantial
+    # formatting based on various heuristics that may only be appropriate for
+    # particular documents.
+    if ($guesswork) {
+        $text = $self->guesswork ($text);
+    }
+
+    return $text;
+}
+
+# Handles C<> text, deciding whether to put \*C` around it or not.  This is a
+# whole bunch of messy heuristics to try to avoid overquoting, originally from
+# Barrie Slaymaker.  This largely duplicates similar code in Pod::Text.
+sub quote_literal {
+    my $self = shift;
+    local $_ = shift;
+
+    # A regex that matches the portion of a variable reference that's the
+    # array or hash index, separated out just because we want to use it in
+    # several places in the following regex.
+    my $index = '(?: \[.*\] | \{.*\} )?';
+
+    # If in NAME section, just return an ASCII quoted string to avoid
+    # confusing tools like whatis.
+    return qq{"$_"} if $$self{IN_NAME};
+
+    # Check for things that we don't want to quote, and if we find any of
+    # them, return the string with just a font change and no quoting.
+    m{
+      ^\s*
+      (?:
+         ( [\'\`\"] ) .* \1                             # already quoted
+       | \\\*\(Aq .* \\\*\(Aq                           # quoted and escaped
+       | \\?\` .* ( \' | \\\*\(Aq )                     # `quoted'
+       | \$+ [\#^]? \S $index                           # special ($^Foo, $")
+       | [\$\@%&*]+ \#? [:\'\w]+ $index                 # plain var or func
+       | [\$\@%&*]* [:\'\w]+ (?: -> )? \(\s*[^\s,]\s*\) # 0/1-arg func call
+       | [-+]? ( \d[\d.]* | \.\d+ ) (?: [eE][-+]?\d+ )? # a number
+       | 0x [a-fA-F\d]+                                 # a hex constant
+      )
+      \s*\z
+     }xso and return '\f(FS' . $_ . '\f(FE';
+
+    # If we didn't return, go ahead and quote the text.
+    return '\f(FS\*(C`' . $_ . "\\*(C'\\f(FE";
+}
+
+# Takes a text block to perform guesswork on.  Returns the text block with
+# formatting codes added.  This is the code that marks up various Perl
+# constructs and things commonly used in man pages without requiring the user
+# to add any explicit markup, and is applied to all non-literal text.  We're
+# guaranteed that the text we're applying guesswork to does not contain any
+# *roff formatting codes.  Note that the inserted font sequences must be
+# treated later with mapfonts or textmapfonts.
+#
+# This method is very fragile, both in the regular expressions it uses and in
+# the ordering of those modifications.  Care and testing is required when
+# modifying it.
+sub guesswork {
+    my $self = shift;
+    local $_ = shift;
+    DEBUG > 5 and print "   Guesswork called on [$_]\n";
+
+    # By the time we reach this point, all hyphens will be escaped by adding a
+    # backslash.  We want to undo that escaping if they're part of regular
+    # words and there's only a single dash, since that's a real hyphen that
+    # *roff gets to consider a possible break point.  Make sure that a dash
+    # after the first character of a word stays non-breaking, however.
+    #
+    # Note that this is not user-controllable; we pretty much have to do this
+    # transformation or *roff will mangle the output in unacceptable ways.
+    s{
+        ( (?:\G|^|\s) [\(\"]* [a-zA-Z] ) ( \\- )?
+        ( (?: [a-zA-Z\']+ \\-)+ )
+        ( [a-zA-Z\']+ ) (?= [\)\".?!,;:]* (?:\s|\Z|\\\ ) )
+        \b
+    } {
+        my ($prefix, $hyphen, $main, $suffix) = ($1, $2, $3, $4);
+        $hyphen ||= '';
+        $main =~ s/\\-/-/g;
+        $prefix . $hyphen . $main . $suffix;
+    }egx;
+
+    # Translate "--" into a real em-dash if it's used like one.  This means
+    # that it's either surrounded by whitespace, it follows a regular word, or
+    # it occurs between two regular words.
+    if ($$self{MAGIC_EMDASH}) {
+        s{          (\s) \\-\\- (\s)                } { $1 . '\*(--' . $2 }egx;
+        s{ (\b[a-zA-Z]+) \\-\\- (\s|\Z|[a-zA-Z]+\b) } { $1 . '\*(--' . $2 }egx;
+    }
+
+    # Make words in all-caps a little bit smaller; they look better that way.
+    # However, we don't want to change Perl code (like @ARGV), nor do we want
+    # to fix the MIME in MIME-Version since it looks weird with the
+    # full-height V.
+    #
+    # We change only a string of all caps (2) either at the beginning of the
+    # line or following regular punctuation (like quotes) or whitespace (1),
+    # and followed by either similar punctuation, an em-dash, or the end of
+    # the line (3).
+    #
+    # Allow the text we're changing to small caps to include double quotes,
+    # commas, newlines, and periods as long as it doesn't otherwise interrupt
+    # the string of small caps and still fits the criteria.  This lets us turn
+    # entire warranty disclaimers in man page output into small caps.
+    if ($$self{MAGIC_SMALLCAPS}) {
+        s{
+            ( ^ | [\s\(\"\'\`\[\{<>] | \\[ ]  )                     # (1)
+            ( [A-Z] [A-Z] (?: [/A-Z+:\d_\$&] | \\- | [.,\"\s] )* )  # (2)
+            (?= [\s>\}\]\(\)\'\".?!,;] | \\*\(-- | \\[ ] | $ )      # (3)
+        } {
+            $1 . '\s-1' . $2 . '\s0'
+        }egx;
+    }
+
+    # Note that from this point forward, we have to adjust for \s-1 and \s-0
+    # strings inserted around things that we've made small-caps if later
+    # transforms should work on those strings.
+
+    # Italicize functions in the form func(), including functions that are in
+    # all capitals, but don't italize if there's anything between the parens.
+    # The function must start with an alphabetic character or underscore and
+    # then consist of word characters or colons.
+    if ($$self{MAGIC_FUNC}) {
+        s{
+            ( \b | \\s-1 )
+            ( [A-Za-z_] ([:\w] | \\s-?[01])+ \(\) )
+        } {
+            $1 . '\f(IS' . $2 . '\f(IE'
+        }egx;
+    }
+
+    # Change references to manual pages to put the page name in italics but
+    # the number in the regular font, with a thin space between the name and
+    # the number.  Only recognize func(n) where func starts with an alphabetic
+    # character or underscore and contains only word characters, periods (for
+    # configuration file man pages), or colons, and n is a single digit,
+    # optionally followed by some number of lowercase letters.  Note that this
+    # does not recognize man page references like perl(l) or socket(3SOCKET).
+    if ($$self{MAGIC_MANREF}) {
+        s{
+            ( \b | \\s-1 )
+            ( [A-Za-z_] (?:[.:\w] | \\- | \\s-?[01])+ )
+            ( \( \d [a-z]* \) )
+        } {
+            $1 . '\f(IS' . $2 . '\f(IE\|' . $3
+        }egx;
+    }
+
+    # Convert simple Perl variable references to a fixed-width font.  Be
+    # careful not to convert functions, though; there are too many subtleties
+    # with them to want to perform this transformation.
+    if ($$self{MAGIC_VARS}) {
+        s{
+           ( ^ | \s+ )
+           ( [\$\@%] [\w:]+ )
+           (?! \( )
+        } {
+            $1 . '\f(FS' . $2 . '\f(FE'
+        }egx;
+    }
+
+    # Fix up double quotes.  Unfortunately, we miss this transformation if the
+    # quoted text contains any code with formatting codes and there's not much
+    # we can effectively do about that, which makes it somewhat unclear if
+    # this is really a good idea.
+    s{ \" ([^\"]+) \" } { '\*(L"' . $1 . '\*(R"' }egx;
+
+    # Make C++ into \*(C+, which is a squinched version.
+    if ($$self{MAGIC_CPP}) {
+        s{ \b C\+\+ } {\\*\(C+}gx;
+    }
+
+    # Done.
+    DEBUG > 5 and print "   Guesswork returning [$_]\n";
+    return $_;
+}
+
+##############################################################################
+# Output
+##############################################################################
+
+# When building up the *roff code, we don't use real *roff fonts.  Instead, we
+# embed font codes of the form \f(<font>[SE] where <font> is one of B, I, or
+# F, S stands for start, and E stands for end.  This method turns these into
+# the right start and end codes.
+#
+# We add this level of complexity because the old pod2man didn't get code like
+# B<someI<thing> else> right; after I<> it switched back to normal text rather
+# than bold.  We take care of this by using variables that state whether bold,
+# italic, or fixed are turned on as a combined pointer to our current font
+# sequence, and set each to the number of current nestings of start tags for
+# that font.
+#
+# \fP changes to the previous font, but only one previous font is kept.  We
+# don't know what the outside level font is; normally it's R, but if we're
+# inside a heading it could be something else.  So arrange things so that the
+# outside font is always the "previous" font and end with \fP instead of \fR.
+# Idea from Zack Weinberg.
+sub mapfonts {
+    my ($self, $text) = @_;
+    my ($fixed, $bold, $italic) = (0, 0, 0);
+    my %magic = (F => \$fixed, B => \$bold, I => \$italic);
+    my $last = '\fR';
+    $text =~ s<
+        \\f\((.)(.)
+    > <
+        my $sequence = '';
+        my $f;
+        if ($last ne '\fR') { $sequence = '\fP' }
+        ${ $magic{$1} } += ($2 eq 'S') ? 1 : -1;
+        $f = $$self{FONTS}{ ($fixed && 1) . ($bold && 1) . ($italic && 1) };
+        if ($f eq $last) {
+            '';
+        } else {
+            if ($f ne '\fR') { $sequence .= $f }
+            $last = $f;
+            $sequence;
+        }
+    >gxe;
+    return $text;
+}
+
+# Unfortunately, there is a bug in Solaris 2.6 nroff (not present in GNU
+# groff) where the sequence \fB\fP\f(CW\fP leaves the font set to B rather
+# than R, presumably because \f(CW doesn't actually do a font change.  To work
+# around this, use a separate textmapfonts for text blocks where the default
+# font is always R and only use the smart mapfonts for headings.
+sub textmapfonts {
+    my ($self, $text) = @_;
+    my ($fixed, $bold, $italic) = (0, 0, 0);
+    my %magic = (F => \$fixed, B => \$bold, I => \$italic);
+    $text =~ s<
+        \\f\((.)(.)
+    > <
+        ${ $magic{$1} } += ($2 eq 'S') ? 1 : -1;
+        $$self{FONTS}{ ($fixed && 1) . ($bold && 1) . ($italic && 1) };
+    >gxe;
+    return $text;
+}
+
+# Given a command and a single argument that may or may not contain double
+# quotes, handle double-quote formatting for it.  If there are no double
+# quotes, just return the command followed by the argument in double quotes.
+# If there are double quotes, use an if statement to test for nroff, and for
+# nroff output the command followed by the argument in double quotes with
+# embedded double quotes doubled.  For other formatters, remap paired double
+# quotes to LQUOTE and RQUOTE.
+sub switchquotes {
+    my ($self, $command, $text, $extra) = @_;
+    $text =~ s/\\\*\([LR]\"/\"/g;
+
+    # We also have to deal with \*C` and \*C', which are used to add the
+    # quotes around C<> text, since they may expand to " and if they do this
+    # confuses the .SH macros and the like no end.  Expand them ourselves.
+    # Also separate troff from nroff if there are any fixed-width fonts in use
+    # to work around problems with Solaris nroff.
+    my $c_is_quote = ($$self{LQUOTE} =~ /\"/) || ($$self{RQUOTE} =~ /\"/);
+    my $fixedpat = join '|', @{ $$self{FONTS} }{'100', '101', '110', '111'};
+    $fixedpat =~ s/\\/\\\\/g;
+    $fixedpat =~ s/\(/\\\(/g;
+    if ($text =~ m/\"/ || $text =~ m/$fixedpat/) {
+        $text =~ s/\"/\"\"/g;
+        my $nroff = $text;
+        my $troff = $text;
+        $troff =~ s/\"\"([^\"]*)\"\"/\`\`$1\'\'/g;
+        if ($c_is_quote and $text =~ m/\\\*\(C[\'\`]/) {
+            $nroff =~ s/\\\*\(C\`/$$self{LQUOTE}/g;
+            $nroff =~ s/\\\*\(C\'/$$self{RQUOTE}/g;
+            $troff =~ s/\\\*\(C[\'\`]//g;
+        }
+        $nroff = qq("$nroff") . ($extra ? " $extra" : '');
+        $troff = qq("$troff") . ($extra ? " $extra" : '');
+
+        # Work around the Solaris nroff bug where \f(CW\fP leaves the font set
+        # to Roman rather than the actual previous font when used in headings.
+        # troff output may still be broken, but at least we can fix nroff by
+        # just switching the font changes to the non-fixed versions.
+        my $font_end = "(?:\\f[PR]|\Q$$self{FONTS}{100}\E)";
+        $nroff =~ s/\Q$$self{FONTS}{100}\E(.*?)\\f([PR])/$1/g;
+        $nroff =~ s/\Q$$self{FONTS}{101}\E(.*?)$font_end/\\fI$1\\fP/g;
+        $nroff =~ s/\Q$$self{FONTS}{110}\E(.*?)$font_end/\\fB$1\\fP/g;
+        $nroff =~ s/\Q$$self{FONTS}{111}\E(.*?)$font_end/\\f\(BI$1\\fP/g;
+
+        # Now finally output the command.  Bother with .ie only if the nroff
+        # and troff output aren't the same.
+        if ($nroff ne $troff) {
+            return ".ie n $command $nroff\n.el $command $troff\n";
+        } else {
+            return "$command $nroff\n";
+        }
+    } else {
+        $text = qq("$text") . ($extra ? " $extra" : '');
+        return "$command $text\n";
+    }
+}
+
+# Protect leading quotes and periods against interpretation as commands.  Also
+# protect anything starting with a backslash, since it could expand or hide
+# something that *roff would interpret as a command.  This is overkill, but
+# it's much simpler than trying to parse *roff here.
+sub protect {
+    my ($self, $text) = @_;
+    $text =~ s/^([.\'\\])/\\&$1/mg;
+    return $text;
+}
+
+# Make vertical whitespace if NEEDSPACE is set, appropriate to the indentation
+# level the situation.  This function is needed since in *roff one has to
+# create vertical whitespace after paragraphs and between some things, but
+# other macros create their own whitespace.  Also close out a sequence of
+# repeated =items, since calling makespace means we're about to begin the item
+# body.
+sub makespace {
+    my ($self) = @_;
+    $self->output (".PD\n") if $$self{ITEMS} > 1;
+    $$self{ITEMS} = 0;
+    $self->output ($$self{INDENT} > 0 ? ".Sp\n" : ".PP\n")
+        if $$self{NEEDSPACE};
+}
+
+# Output any pending index entries, and optionally an index entry given as an
+# argument.  Support multiple index entries in X<> separated by slashes, and
+# strip special escapes from index entries.
+sub outindex {
+    my ($self, $section, $index) = @_;
+    my @entries = map { split m%\s*/\s*% } @{ $$self{INDEX} };
+    return unless ($section || @entries);
+
+    # We're about to output all pending entries, so clear our pending queue.
+    $$self{INDEX} = [];
+
+    # Build the output.  Regular index entries are marked Xref, and headings
+    # pass in their own section.  Undo some *roff formatting on headings.
+    my @output;
+    if (@entries) {
+        push @output, [ 'Xref', join (' ', @entries) ];
+    }
+    if ($section) {
+        $index =~ s/\\-/-/g;
+        $index =~ s/\\(?:s-?\d|.\(..|.)//g;
+        push @output, [ $section, $index ];
+    }
+
+    # Print out the .IX commands.
+    for (@output) {
+        my ($type, $entry) = @$_;
+        $entry =~ s/\s+/ /g;
+        $entry =~ s/\"/\"\"/g;
+        $entry =~ s/\\/\\\\/g;
+        $self->output (".IX $type " . '"' . $entry . '"' . "\n");
+    }
+}
+
+# Output some text, without any additional changes.
+sub output {
+    my ($self, @text) = @_;
+    if ($$self{ENCODE}) {
+        print { $$self{output_fh} } Encode::encode ('UTF-8', join ('', @text));
+    } else {
+        print { $$self{output_fh} } @text;
+    }
+}
+
+##############################################################################
+# Document initialization
+##############################################################################
+
+# Handle the start of the document.  Here we handle empty documents, as well
+# as setting up our basic macros in a preamble and building the page title.
+sub start_document {
+    my ($self, $attrs) = @_;
+    if ($$attrs{contentless} && !$$self{ALWAYS_EMIT_SOMETHING}) {
+        DEBUG and print "Document is contentless\n";
+        $$self{CONTENTLESS} = 1;
+    } else {
+        delete $$self{CONTENTLESS};
+    }
+
+    # When UTF-8 output is set, check whether our output file handle already
+    # has a PerlIO encoding layer set.  If it does not, we'll need to encode
+    # our output before printing it (handled in the output() sub).  Wrap the
+    # check in an eval to handle versions of Perl without PerlIO.
+    $$self{ENCODE} = 0;
+    if ($$self{utf8}) {
+        $$self{ENCODE} = 1;
+        eval {
+            my @options = (output => 1, details => 1);
+            my $flag = (PerlIO::get_layers ($$self{output_fh}, @options))[-1];
+            if ($flag & PerlIO::F_UTF8 ()) {
+                $$self{ENCODE} = 0;
+            }
+        }
+    }
+
+    # Determine information for the preamble and then output it unless the
+    # document was content-free.
+    if (!$$self{CONTENTLESS}) {
+        my ($name, $section);
+        if (defined $$self{name}) {
+            $name = $$self{name};
+            $section = $$self{section} || 1;
+        } else {
+            ($name, $section) = $self->devise_title;
+        }
+        my $date = defined($$self{date}) ? $$self{date} : $self->devise_date;
+        $self->preamble ($name, $section, $date)
+            unless $self->bare_output or DEBUG > 9;
+    }
+
+    # Initialize a few per-document variables.
+    $$self{INDENT}    = 0;      # Current indentation level.
+    $$self{INDENTS}   = [];     # Stack of indentations.
+    $$self{INDEX}     = [];     # Index keys waiting to be printed.
+    $$self{IN_NAME}   = 0;      # Whether processing the NAME section.
+    $$self{ITEMS}     = 0;      # The number of consecutive =items.
+    $$self{ITEMTYPES} = [];     # Stack of =item types, one per list.
+    $$self{SHIFTWAIT} = 0;      # Whether there is a shift waiting.
+    $$self{SHIFTS}    = [];     # Stack of .RS shifts.
+    $$self{PENDING}   = [[]];   # Pending output.
+}
+
+# Handle the end of the document.  This handles dying on POD errors, since
+# Pod::Parser currently doesn't.  Otherwise, does nothing but print out a
+# final comment at the end of the document under debugging.
+sub end_document {
+    my ($self) = @_;
+    if ($$self{complain_die} && $self->errors_seen) {
+        croak ("POD document had syntax errors");
+    }
+    return if $self->bare_output;
+    return if ($$self{CONTENTLESS} && !$$self{ALWAYS_EMIT_SOMETHING});
+    $self->output (q(.\" [End document]) . "\n") if DEBUG;
+}
+
+# Try to figure out the name and section from the file name and return them as
+# a list, returning an empty name and section 1 if we can't find any better
+# information.  Uses File::Basename and File::Spec as necessary.
+sub devise_title {
+    my ($self) = @_;
+    my $name = $self->source_filename || '';
+    my $section = $$self{section} || 1;
+    $section = 3 if (!$$self{section} && $name =~ /\.pm\z/i);
+    $name =~ s/\.p(od|[lm])\z//i;
+
+    # If Pod::Parser gave us an IO::File reference as the source file name,
+    # convert that to the empty string as well.  Then, if we don't have a
+    # valid name, emit a warning and convert it to STDIN.
+    if ($name =~ /^IO::File(?:=\w+)\(0x[\da-f]+\)$/i) {
+        $name = '';
+    }
+    if ($name eq '') {
+        $self->whine (1, 'No name given for document');
+        $name = 'STDIN';
+    }
+
+    # If the section isn't 3, then the name defaults to just the basename of
+    # the file.
+    if ($section !~ /^3/) {
+        require File::Basename;
+        $name = uc File::Basename::basename ($name);
+    } else {
+        require File::Spec;
+        my ($volume, $dirs, $file) = File::Spec->splitpath ($name);
+
+        # Otherwise, assume we're dealing with a module.  We want to figure
+        # out the full module name from the path to the file, but we don't
+        # want to include too much of the path into the module name.  Lose
+        # anything up to the first of:
+        #
+        #     */lib/*perl*/         standard or site_perl module
+        #     */*perl*/lib/         from -Dprefix=/opt/perl
+        #     */*perl*/             random module hierarchy
+        #
+        # Also strip off a leading site, site_perl, or vendor_perl component,
+        # any OS-specific component, and any version number component, and
+        # strip off an initial component of "lib" or "blib/lib" since that's
+        # what ExtUtils::MakeMaker creates.
+        #
+        # splitdir requires at least File::Spec 0.8.
+        my @dirs = File::Spec->splitdir ($dirs);
+        if (@dirs) {
+            my $cut = 0;
+            my $i;
+            for ($i = 0; $i < @dirs; $i++) {
+                if ($dirs[$i] =~ /perl/) {
+                    $cut = $i + 1;
+                    $cut++ if ($dirs[$i + 1] && $dirs[$i + 1] eq 'lib');
+                    last;
+                }
+            }
+            if ($cut > 0) {
+                splice (@dirs, 0, $cut);
+                shift @dirs if ($dirs[0] =~ /^(site|vendor)(_perl)?$/);
+                shift @dirs if ($dirs[0] =~ /^[\d.]+$/);
+                shift @dirs if ($dirs[0] =~ /^(.*-$^O|$^O-.*|$^O)$/);
+            }
+            shift @dirs if $dirs[0] eq 'lib';
+            splice (@dirs, 0, 2) if ($dirs[0] eq 'blib' && $dirs[1] eq 'lib');
+        }
+
+        # Remove empty directories when building the module name; they
+        # occur too easily on Unix by doubling slashes.
+        $name = join ('::', (grep { $_ ? $_ : () } @dirs), $file);
+    }
+    return ($name, $section);
+}
+
+# Determine the modification date and return that, properly formatted in ISO
+# format.
+#
+# If POD_MAN_DATE is set, that overrides anything else.  This can be used for
+# reproducible generation of the same file even if the input file timestamps
+# are unpredictable or the POD coms from standard input.
+#
+# Otherwise, if SOURCE_DATE_EPOCH is set and can be parsed as seconds since
+# the UNIX epoch, base the timestamp on that.  See
+# <https://reproducible-builds.org/specs/source-date-epoch/>
+#
+# Otherwise, use the modification date of the input if we can stat it.  Be
+# aware that Pod::Simple returns the stringification of the file handle as
+# source_filename for input from a file handle, so we'll stat some random ref
+# string in that case.  If that fails, instead use the current time.
+#
+# $self - Pod::Man object, used to get the source file
+#
+# Returns: YYYY-MM-DD date suitable for the left-hand footer
+sub devise_date {
+    my ($self) = @_;
+
+    # If POD_MAN_DATE is set, always use it.
+    if (defined($ENV{POD_MAN_DATE})) {
+        return $ENV{POD_MAN_DATE};
+    }
+
+    # If SOURCE_DATE_EPOCH is set and can be parsed, use that.
+    my $time;
+    if (defined($ENV{SOURCE_DATE_EPOCH}) && $ENV{SOURCE_DATE_EPOCH} !~ /\D/) {
+        $time = $ENV{SOURCE_DATE_EPOCH};
+    }
+
+    # Otherwise, get the input filename and try to stat it.  If that fails,
+    # use the current time.
+    if (!defined $time) {
+        my $input = $self->source_filename;
+        if ($input) {
+            $time = (stat($input))[9] || time();
+        } else {
+            $time = time();
+        }
+    }
+
+    # Can't use POSIX::strftime(), which uses Fcntl, because MakeMaker uses
+    # this and it has to work in the core which can't load dynamic libraries.
+    # Use gmtime instead of localtime so that the generated man page does not
+    # depend on the local time zone setting and is more reproducible
+    my ($year, $month, $day) = (gmtime($time))[5,4,3];
+    return sprintf("%04d-%02d-%02d", $year + 1900, $month + 1, $day);
+}
+
+# Print out the preamble and the title.  The meaning of the arguments to .TH
+# unfortunately vary by system; some systems consider the fourth argument to
+# be a "source" and others use it as a version number.  Generally it's just
+# presented as the left-side footer, though, so it doesn't matter too much if
+# a particular system gives it another interpretation.
+#
+# The order of date and release used to be reversed in older versions of this
+# module, but this order is correct for both Solaris and Linux.
+sub preamble {
+    my ($self, $name, $section, $date) = @_;
+    my $preamble = $self->preamble_template (!$$self{utf8});
+
+    # Build the index line and make sure that it will be syntactically valid.
+    my $index = "$name $section";
+    $index =~ s/\"/\"\"/g;
+
+    # If name or section contain spaces, quote them (section really never
+    # should, but we may as well be cautious).
+    for ($name, $section) {
+        if (/\s/) {
+            s/\"/\"\"/g;
+            $_ = '"' . $_ . '"';
+        }
+    }
+
+    # Double quotes in date, since it will be quoted.
+    $date =~ s/\"/\"\"/g;
+
+    # Substitute into the preamble the configuration options.
+    $preamble =~ s/\@CFONT\@/$$self{fixed}/;
+    $preamble =~ s/\@LQUOTE\@/$$self{LQUOTE}/;
+    $preamble =~ s/\@RQUOTE\@/$$self{RQUOTE}/;
+    chomp $preamble;
+
+    # Get the version information.
+    my $version = $self->version_report;
+
+    # Finally output everything.
+    $self->output (<<"----END OF HEADER----");
+.\\" Automatically generated by $version
+.\\"
+.\\" Standard preamble:
+.\\" ========================================================================
+$preamble
+.\\" ========================================================================
+.\\"
+.IX Title "$index"
+.TH $name $section "$date" "$$self{release}" "$$self{center}"
+.\\" For nroff, turn off justification.  Always turn off hyphenation; it makes
+.\\" way too many mistakes in technical documents.
+.if n .ad l
+.nh
+----END OF HEADER----
+    $self->output (".\\\" [End of preamble]\n") if DEBUG;
+}
+
+##############################################################################
+# Text blocks
+##############################################################################
+
+# Handle a basic block of text.  The only tricky part of this is if this is
+# the first paragraph of text after an =over, in which case we have to change
+# indentations for *roff.
+sub cmd_para {
+    my ($self, $attrs, $text) = @_;
+    my $line = $$attrs{start_line};
+
+    # Output the paragraph.  We also have to handle =over without =item.  If
+    # there's an =over without =item, SHIFTWAIT will be set, and we need to
+    # handle creation of the indent here.  Add the shift to SHIFTS so that it
+    # will be cleaned up on =back.
+    $self->makespace;
+    if ($$self{SHIFTWAIT}) {
+        $self->output (".RS $$self{INDENT}\n");
+        push (@{ $$self{SHIFTS} }, $$self{INDENT});
+        $$self{SHIFTWAIT} = 0;
+    }
+
+    # Add the line number for debugging, but not in the NAME section just in
+    # case the comment would confuse apropos.
+    $self->output (".\\\" [At source line $line]\n")
+        if defined ($line) && DEBUG && !$$self{IN_NAME};
+
+    # Force exactly one newline at the end and strip unwanted trailing
+    # whitespace at the end, but leave "\ " backslashed space from an S< > at
+    # the end of a line.  Reverse the text first, to avoid having to scan the
+    # entire paragraph.
+    $text = reverse $text;
+    $text =~ s/\A\s*?(?= \\|\S|\z)/\n/;
+    $text = reverse $text;
+
+    # Output the paragraph.
+    $self->output ($self->protect ($self->textmapfonts ($text)));
+    $self->outindex;
+    $$self{NEEDSPACE} = 1;
+    return '';
+}
+
+# Handle a verbatim paragraph.  Put a null token at the beginning of each line
+# to protect against commands and wrap in .Vb/.Ve (which we define in our
+# prelude).
+sub cmd_verbatim {
+    my ($self, $attrs, $text) = @_;
+
+    # Ignore an empty verbatim paragraph.
+    return unless $text =~ /\S/;
+
+    # Force exactly one newline at the end and strip unwanted trailing
+    # whitespace at the end.  Reverse the text first, to avoid having to scan
+    # the entire paragraph.
+    $text = reverse $text;
+    $text =~ s/\A\s*/\n/;
+    $text = reverse $text;
+
+    # Get a count of the number of lines before the first blank line, which
+    # we'll pass to .Vb as its parameter.  This tells *roff to keep that many
+    # lines together.  We don't want to tell *roff to keep huge blocks
+    # together.
+    my @lines = split (/\n/, $text);
+    my $unbroken = 0;
+    for (@lines) {
+        last if /^\s*$/;
+        $unbroken++;
+    }
+    $unbroken = 10 if ($unbroken > 12 && !$$self{MAGIC_VNOPAGEBREAK_LIMIT});
+
+    # Prepend a null token to each line.
+    $text =~ s/^/\\&/gm;
+
+    # Output the results.
+    $self->makespace;
+    $self->output (".Vb $unbroken\n$text.Ve\n");
+    $$self{NEEDSPACE} = 1;
+    return '';
+}
+
+# Handle literal text (produced by =for and similar constructs).  Just output
+# it with the minimum of changes.
+sub cmd_data {
+    my ($self, $attrs, $text) = @_;
+    $text =~ s/^\n+//;
+    $text =~ s/\n{0,2}$/\n/;
+    $self->output ($text);
+    return '';
+}
+
+##############################################################################
+# Headings
+##############################################################################
+
+# Common code for all headings.  This is called before the actual heading is
+# output.  It returns the cleaned up heading text (putting the heading all on
+# one line) and may do other things, like closing bad =item blocks.
+sub heading_common {
+    my ($self, $text, $line) = @_;
+    $text =~ s/\s+$//;
+    $text =~ s/\s*\n\s*/ /g;
+
+    # This should never happen; it means that we have a heading after =item
+    # without an intervening =back.  But just in case, handle it anyway.
+    if ($$self{ITEMS} > 1) {
+        $$self{ITEMS} = 0;
+        $self->output (".PD\n");
+    }
+
+    # Output the current source line.
+    $self->output ( ".\\\" [At source line $line]\n" )
+        if defined ($line) && DEBUG;
+    return $text;
+}
+
+# First level heading.  We can't output .IX in the NAME section due to a bug
+# in some versions of catman, so don't output a .IX for that section.  .SH
+# already uses small caps, so remove \s0 and \s-1.  Maintain IN_NAME as
+# appropriate.
+sub cmd_head1 {
+    my ($self, $attrs, $text) = @_;
+    $text =~ s/\\s-?\d//g;
+    $text = $self->heading_common ($text, $$attrs{start_line});
+    my $isname = ($text eq 'NAME' || $text =~ /\(NAME\)/);
+    $self->output ($self->switchquotes ('.SH', $self->mapfonts ($text)));
+    $self->outindex ('Header', $text) unless $isname;
+    $$self{NEEDSPACE} = 0;
+    $$self{IN_NAME} = $isname;
+    return '';
+}
+
+# Second level heading.
+sub cmd_head2 {
+    my ($self, $attrs, $text) = @_;
+    $text = $self->heading_common ($text, $$attrs{start_line});
+    $self->output ($self->switchquotes ('.SS', $self->mapfonts ($text)));
+    $self->outindex ('Subsection', $text);
+    $$self{NEEDSPACE} = 0;
+    return '';
+}
+
+# Third level heading.  *roff doesn't have this concept, so just put the
+# heading in italics as a normal paragraph.
+sub cmd_head3 {
+    my ($self, $attrs, $text) = @_;
+    $text = $self->heading_common ($text, $$attrs{start_line});
+    $self->makespace;
+    $self->output ($self->textmapfonts ('\f(IS' . $text . '\f(IE') . "\n");
+    $self->outindex ('Subsection', $text);
+    $$self{NEEDSPACE} = 1;
+    return '';
+}
+
+# Fourth level heading.  *roff doesn't have this concept, so just put the
+# heading as a normal paragraph.
+sub cmd_head4 {
+    my ($self, $attrs, $text) = @_;
+    $text = $self->heading_common ($text, $$attrs{start_line});
+    $self->makespace;
+    $self->output ($self->textmapfonts ($text) . "\n");
+    $self->outindex ('Subsection', $text);
+    $$self{NEEDSPACE} = 1;
+    return '';
+}
+
+##############################################################################
+# Formatting codes
+##############################################################################
+
+# All of the formatting codes that aren't handled internally by the parser,
+# other than L<> and X<>.
+sub cmd_b { return $_[0]->{IN_NAME} ? $_[2] : '\f(BS' . $_[2] . '\f(BE' }
+sub cmd_i { return $_[0]->{IN_NAME} ? $_[2] : '\f(IS' . $_[2] . '\f(IE' }
+sub cmd_f { return $_[0]->{IN_NAME} ? $_[2] : '\f(IS' . $_[2] . '\f(IE' }
+sub cmd_c { return $_[0]->quote_literal ($_[2]) }
+
+# Index entries are just added to the pending entries.
+sub cmd_x {
+    my ($self, $attrs, $text) = @_;
+    push (@{ $$self{INDEX} }, $text);
+    return '';
+}
+
+# Links reduce to the text that we're given, wrapped in angle brackets if it's
+# a URL, followed by the URL.  We take an option to suppress the URL if anchor
+# text is given.  We need to format the "to" value of the link before
+# comparing it to the text since we may escape hyphens.
+sub cmd_l {
+    my ($self, $attrs, $text) = @_;
+    if ($$attrs{type} eq 'url') {
+        my $to = $$attrs{to};
+        if (defined $to) {
+            my $tag = $$self{PENDING}[-1];
+            $to = $self->format_text ($$tag[1], $to);
+        }
+        if (not defined ($to) or $to eq $text) {
+            return "<$text>";
+        } elsif ($$self{nourls}) {
+            return $text;
+        } else {
+            return "$text <$$attrs{to}>";
+        }
+    } else {
+        return $text;
+    }
+}
+
+##############################################################################
+# List handling
+##############################################################################
+
+# Handle the beginning of an =over block.  Takes the type of the block as the
+# first argument, and then the attr hash.  This is called by the handlers for
+# the four different types of lists (bullet, number, text, and block).
+sub over_common_start {
+    my ($self, $type, $attrs) = @_;
+    my $line = $$attrs{start_line};
+    my $indent = $$attrs{indent};
+    DEBUG > 3 and print " Starting =over $type (line $line, indent ",
+        ($indent || '?'), "\n";
+
+    # Find the indentation level.
+    unless (defined ($indent) && $indent =~ /^[-+]?\d{1,4}\s*$/) {
+        $indent = $$self{indent};
+    }
+
+    # If we've gotten multiple indentations in a row, we need to emit the
+    # pending indentation for the last level that we saw and haven't acted on
+    # yet.  SHIFTS is the stack of indentations that we've actually emitted
+    # code for.
+    if (@{ $$self{SHIFTS} } < @{ $$self{INDENTS} }) {
+        $self->output (".RS $$self{INDENT}\n");
+        push (@{ $$self{SHIFTS} }, $$self{INDENT});
+    }
+
+    # Now, do record-keeping.  INDENTS is a stack of indentations that we've
+    # seen so far, and INDENT is the current level of indentation.  ITEMTYPES
+    # is a stack of list types that we've seen.
+    push (@{ $$self{INDENTS} }, $$self{INDENT});
+    push (@{ $$self{ITEMTYPES} }, $type);
+    $$self{INDENT} = $indent + 0;
+    $$self{SHIFTWAIT} = 1;
+}
+
+# End an =over block.  Takes no options other than the class pointer.
+# Normally, once we close a block and therefore remove something from INDENTS,
+# INDENTS will now be longer than SHIFTS, indicating that we also need to emit
+# *roff code to close the indent.  This isn't *always* true, depending on the
+# circumstance.  If we're still inside an indentation, we need to emit another
+# .RE and then a new .RS to unconfuse *roff.
+sub over_common_end {
+    my ($self) = @_;
+    DEBUG > 3 and print " Ending =over\n";
+    $$self{INDENT} = pop @{ $$self{INDENTS} };
+    pop @{ $$self{ITEMTYPES} };
+
+    # If we emitted code for that indentation, end it.
+    if (@{ $$self{SHIFTS} } > @{ $$self{INDENTS} }) {
+        $self->output (".RE\n");
+        pop @{ $$self{SHIFTS} };
+    }
+
+    # If we're still in an indentation, *roff will have now lost track of the
+    # right depth of that indentation, so fix that.
+    if (@{ $$self{INDENTS} } > 0) {
+        $self->output (".RE\n");
+        $self->output (".RS $$self{INDENT}\n");
+    }
+    $$self{NEEDSPACE} = 1;
+    $$self{SHIFTWAIT} = 0;
+}
+
+# Dispatch the start and end calls as appropriate.
+sub start_over_bullet { my $s = shift; $s->over_common_start ('bullet', @_) }
+sub start_over_number { my $s = shift; $s->over_common_start ('number', @_) }
+sub start_over_text   { my $s = shift; $s->over_common_start ('text',   @_) }
+sub start_over_block  { my $s = shift; $s->over_common_start ('block',  @_) }
+sub end_over_bullet { $_[0]->over_common_end }
+sub end_over_number { $_[0]->over_common_end }
+sub end_over_text   { $_[0]->over_common_end }
+sub end_over_block  { $_[0]->over_common_end }
+
+# The common handler for all item commands.  Takes the type of the item, the
+# attributes, and then the text of the item.
+#
+# Emit an index entry for anything that's interesting, but don't emit index
+# entries for things like bullets and numbers.  Newlines in an item title are
+# turned into spaces since *roff can't handle them embedded.
+sub item_common {
+    my ($self, $type, $attrs, $text) = @_;
+    my $line = $$attrs{start_line};
+    DEBUG > 3 and print "  $type item (line $line): $text\n";
+
+    # Clean up the text.  We want to end up with two variables, one ($text)
+    # which contains any body text after taking out the item portion, and
+    # another ($item) which contains the actual item text.
+    $text =~ s/\s+$//;
+    my ($item, $index);
+    if ($type eq 'bullet') {
+        $item = "\\\(bu";
+        $text =~ s/\n*$/\n/;
+    } elsif ($type eq 'number') {
+        $item = $$attrs{number} . '.';
+    } else {
+        $item = $text;
+        $item =~ s/\s*\n\s*/ /g;
+        $text = '';
+        $index = $item if ($item =~ /\w/);
+    }
+
+    # Take care of the indentation.  If shifts and indents are equal, close
+    # the top shift, since we're about to create an indentation with .IP.
+    # Also output .PD 0 to turn off spacing between items if this item is
+    # directly following another one.  We only have to do that once for a
+    # whole chain of items so do it for the second item in the change.  Note
+    # that makespace is what undoes this.
+    if (@{ $$self{SHIFTS} } == @{ $$self{INDENTS} }) {
+        $self->output (".RE\n");
+        pop @{ $$self{SHIFTS} };
+    }
+    $self->output (".PD 0\n") if ($$self{ITEMS} == 1);
+
+    # Now, output the item tag itself.
+    $item = $self->textmapfonts ($item);
+    $self->output ($self->switchquotes ('.IP', $item, $$self{INDENT}));
+    $$self{NEEDSPACE} = 0;
+    $$self{ITEMS}++;
+    $$self{SHIFTWAIT} = 0;
+
+    # If body text for this item was included, go ahead and output that now.
+    if ($text) {
+        $text =~ s/\s*$/\n/;
+        $self->makespace;
+        $self->output ($self->protect ($self->textmapfonts ($text)));
+        $$self{NEEDSPACE} = 1;
+    }
+    $self->outindex ($index ? ('Item', $index) : ());
+}
+
+# Dispatch the item commands to the appropriate place.
+sub cmd_item_bullet { my $self = shift; $self->item_common ('bullet', @_) }
+sub cmd_item_number { my $self = shift; $self->item_common ('number', @_) }
+sub cmd_item_text   { my $self = shift; $self->item_common ('text',   @_) }
+sub cmd_item_block  { my $self = shift; $self->item_common ('block',  @_) }
+
+##############################################################################
+# Backward compatibility
+##############################################################################
+
+# Reset the underlying Pod::Simple object between calls to parse_from_file so
+# that the same object can be reused to convert multiple pages.
+sub parse_from_file {
+    my $self = shift;
+    $self->reinit;
+
+    # Fake the old cutting option to Pod::Parser.  This fiddings with internal
+    # Pod::Simple state and is quite ugly; we need a better approach.
+    if (ref ($_[0]) eq 'HASH') {
+        my $opts = shift @_;
+        if (defined ($$opts{-cutting}) && !$$opts{-cutting}) {
+            $$self{in_pod} = 1;
+            $$self{last_was_blank} = 1;
+        }
+    }
+
+    # Do the work.
+    my $retval = $self->SUPER::parse_from_file (@_);
+
+    # Flush output, since Pod::Simple doesn't do this.  Ideally we should also
+    # close the file descriptor if we had to open one, but we can't easily
+    # figure this out.
+    my $fh = $self->output_fh ();
+    my $oldfh = select $fh;
+    my $oldflush = $|;
+    $| = 1;
+    print $fh '';
+    $| = $oldflush;
+    select $oldfh;
+    return $retval;
+}
+
+# Pod::Simple failed to provide this backward compatibility function, so
+# implement it ourselves.  File handles are one of the inputs that
+# parse_from_file supports.
+sub parse_from_filehandle {
+    my $self = shift;
+    return $self->parse_from_file (@_);
+}
+
+# Pod::Simple's parse_file doesn't set output_fh.  Wrap the call and do so
+# ourself unless it was already set by the caller, since our documentation has
+# always said that this should work.
+sub parse_file {
+    my ($self, $in) = @_;
+    unless (defined $$self{output_fh}) {
+        $self->output_fh (\*STDOUT);
+    }
+    return $self->SUPER::parse_file ($in);
+}
+
+# Do the same for parse_lines, just to be polite.  Pod::Simple's man page
+# implies that the caller is responsible for setting this, but I don't see any
+# reason not to set a default.
+sub parse_lines {
+    my ($self, @lines) = @_;
+    unless (defined $$self{output_fh}) {
+        $self->output_fh (\*STDOUT);
+    }
+    return $self->SUPER::parse_lines (@lines);
+}
+
+# Likewise for parse_string_document.
+sub parse_string_document {
+    my ($self, $doc) = @_;
+    unless (defined $$self{output_fh}) {
+        $self->output_fh (\*STDOUT);
+    }
+    return $self->SUPER::parse_string_document ($doc);
+}
+
+##############################################################################
+# Translation tables
+##############################################################################
+
+# The following table is adapted from Tom Christiansen's pod2man.  It assumes
+# that the standard preamble has already been printed, since that's what
+# defines all of the accent marks.  We really want to do something better than
+# this when *roff actually supports other character sets itself, since these
+# results are pretty poor.
+#
+# This only works in an ASCII world.  What to do in a non-ASCII world is very
+# unclear -- hopefully we can assume UTF-8 and just leave well enough alone.
+@ESCAPES{0xA0 .. 0xFF} = (
+    "\\ ", undef, undef, undef,            undef, undef, undef, undef,
+    undef, undef, undef, undef,            undef, "\\%", undef, undef,
+
+    undef, undef, undef, undef,            undef, undef, undef, undef,
+    undef, undef, undef, undef,            undef, undef, undef, undef,
+
+    "A\\*`",  "A\\*'", "A\\*^", "A\\*~",   "A\\*:", "A\\*o", "\\*(Ae", "C\\*,",
+    "E\\*`",  "E\\*'", "E\\*^", "E\\*:",   "I\\*`", "I\\*'", "I\\*^",  "I\\*:",
+
+    "\\*(D-", "N\\*~", "O\\*`", "O\\*'",   "O\\*^", "O\\*~", "O\\*:",  undef,
+    "O\\*/",  "U\\*`", "U\\*'", "U\\*^",   "U\\*:", "Y\\*'", "\\*(Th", "\\*8",
+
+    "a\\*`",  "a\\*'", "a\\*^", "a\\*~",   "a\\*:", "a\\*o", "\\*(ae", "c\\*,",
+    "e\\*`",  "e\\*'", "e\\*^", "e\\*:",   "i\\*`", "i\\*'", "i\\*^",  "i\\*:",
+
+    "\\*(d-", "n\\*~", "o\\*`", "o\\*'",   "o\\*^", "o\\*~", "o\\*:",  undef,
+    "o\\*/" , "u\\*`", "u\\*'", "u\\*^",   "u\\*:", "y\\*'", "\\*(th", "y\\*:",
+) if ASCII;
+
+##############################################################################
+# Premable
+##############################################################################
+
+# The following is the static preamble which starts all *roff output we
+# generate.  Most is static except for the font to use as a fixed-width font,
+# which is designed by @CFONT@, and the left and right quotes to use for C<>
+# text, designated by @LQOUTE@ and @RQUOTE@.  However, the second part, which
+# defines the accent marks, is only used if $escapes is set to true.
+sub preamble_template {
+    my ($self, $accents) = @_;
+    my $preamble = <<'----END OF PREAMBLE----';
+.de Sp \" Vertical space (when we can't use .PP)
+.if t .sp .5v
+.if n .sp
+..
+.de Vb \" Begin verbatim text
+.ft @CFONT@
+.nf
+.ne \\$1
+..
+.de Ve \" End verbatim text
+.ft R
+.fi
+..
+.\" Set up some character translations and predefined strings.  \*(-- will
+.\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left
+.\" double quote, and \*(R" will give a right double quote.  \*(C+ will
+.\" give a nicer C++.  Capital omega is used to do unbreakable dashes and
+.\" therefore won't be available.  \*(C` and \*(C' expand to `' in nroff,
+.\" nothing in troff, for use with C<>.
+.tr \(*W-
+.ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
+.ie n \{\
+.    ds -- \(*W-
+.    ds PI pi
+.    if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch
+.    if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\"  diablo 12 pitch
+.    ds L" ""
+.    ds R" ""
+.    ds C` @LQUOTE@
+.    ds C' @RQUOTE@
+'br\}
+.el\{\
+.    ds -- \|\(em\|
+.    ds PI \(*p
+.    ds L" ``
+.    ds R" ''
+.    ds C`
+.    ds C'
+'br\}
+.\"
+.\" Escape single quotes in literal strings from groff's Unicode transform.
+.ie \n(.g .ds Aq \(aq
+.el       .ds Aq '
+.\"
+.\" If the F register is >0, we'll generate index entries on stderr for
+.\" titles (.TH), headers (.SH), subsections (.SS), items (.Ip), and index
+.\" entries marked with X<> in POD.  Of course, you'll have to process the
+.\" output yourself in some meaningful fashion.
+.\"
+.\" Avoid warning from groff about undefined register 'F'.
+.de IX
+..
+.if !\nF .nr F 0
+.if \nF>0 \{\
+.    de IX
+.    tm Index:\\$1\t\\n%\t"\\$2"
+..
+.    if !\nF==2 \{\
+.        nr % 0
+.        nr F 2
+.    \}
+.\}
+----END OF PREAMBLE----
+#'# for cperl-mode
+
+    if ($accents) {
+        $preamble .= <<'----END OF PREAMBLE----'
+.\"
+.\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2).
+.\" Fear.  Run.  Save yourself.  No user-serviceable parts.
+.    \" fudge factors for nroff and troff
+.if n \{\
+.    ds #H 0
+.    ds #V .8m
+.    ds #F .3m
+.    ds #[ \f1
+.    ds #] \fP
+.\}
+.if t \{\
+.    ds #H ((1u-(\\\\n(.fu%2u))*.13m)
+.    ds #V .6m
+.    ds #F 0
+.    ds #[ \&
+.    ds #] \&
+.\}
+.    \" simple accents for nroff and troff
+.if n \{\
+.    ds ' \&
+.    ds ` \&
+.    ds ^ \&
+.    ds , \&
+.    ds ~ ~
+.    ds /
+.\}
+.if t \{\
+.    ds ' \\k:\h'-(\\n(.wu*8/10-\*(#H)'\'\h"|\\n:u"
+.    ds ` \\k:\h'-(\\n(.wu*8/10-\*(#H)'\`\h'|\\n:u'
+.    ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'^\h'|\\n:u'
+.    ds , \\k:\h'-(\\n(.wu*8/10)',\h'|\\n:u'
+.    ds ~ \\k:\h'-(\\n(.wu-\*(#H-.1m)'~\h'|\\n:u'
+.    ds / \\k:\h'-(\\n(.wu*8/10-\*(#H)'\z\(sl\h'|\\n:u'
+.\}
+.    \" troff and (daisy-wheel) nroff accents
+.ds : \\k:\h'-(\\n(.wu*8/10-\*(#H+.1m+\*(#F)'\v'-\*(#V'\z.\h'.2m+\*(#F'.\h'|\\n:u'\v'\*(#V'
+.ds 8 \h'\*(#H'\(*b\h'-\*(#H'
+.ds o \\k:\h'-(\\n(.wu+\w'\(de'u-\*(#H)/2u'\v'-.3n'\*(#[\z\(de\v'.3n'\h'|\\n:u'\*(#]
+.ds d- \h'\*(#H'\(pd\h'-\w'~'u'\v'-.25m'\f2\(hy\fP\v'.25m'\h'-\*(#H'
+.ds D- D\\k:\h'-\w'D'u'\v'-.11m'\z\(hy\v'.11m'\h'|\\n:u'
+.ds th \*(#[\v'.3m'\s+1I\s-1\v'-.3m'\h'-(\w'I'u*2/3)'\s-1o\s+1\*(#]
+.ds Th \*(#[\s+2I\s-2\h'-\w'I'u*3/5'\v'-.3m'o\v'.3m'\*(#]
+.ds ae a\h'-(\w'a'u*4/10)'e
+.ds Ae A\h'-(\w'A'u*4/10)'E
+.    \" corrections for vroff
+.if v .ds ~ \\k:\h'-(\\n(.wu*9/10-\*(#H)'\s-2\u~\d\s+2\h'|\\n:u'
+.if v .ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'\v'-.4m'^\v'.4m'\h'|\\n:u'
+.    \" for low resolution devices (crt and lpr)
+.if \n(.H>23 .if \n(.V>19 \
+\{\
+.    ds : e
+.    ds 8 ss
+.    ds o a
+.    ds d- d\h'-1'\(ga
+.    ds D- D\h'-1'\(hy
+.    ds th \o'bp'
+.    ds Th \o'LP'
+.    ds ae ae
+.    ds Ae AE
+.\}
+.rm #[ #] #H #V #F C
+----END OF PREAMBLE----
+#`# for cperl-mode
+    }
+    return $preamble;
+}
+
+##############################################################################
+# Module return value and documentation
+##############################################################################
+
+1;
+__END__
+
+=for stopwords
+en em ALLCAPS teeny fixedbold fixeditalic fixedbolditalic stderr utf8
+UTF-8 Allbery Sean Burke Ossanna Solaris formatters troff uppercased
+Christiansen nourls parsers Kernighan
+
+=head1 NAME
+
+Pod::Man - Convert POD data to formatted *roff input
+
+=head1 SYNOPSIS
+
+    use Pod::Man;
+    my $parser = Pod::Man->new (release => $VERSION, section => 8);
+
+    # Read POD from STDIN and write to STDOUT.
+    $parser->parse_file (\*STDIN);
+
+    # Read POD from file.pod and write to file.1.
+    $parser->parse_from_file ('file.pod', 'file.1');
+
+=head1 DESCRIPTION
+
+Pod::Man is a module to convert documentation in the POD format (the
+preferred language for documenting Perl) into *roff input using the man
+macro set.  The resulting *roff code is suitable for display on a terminal
+using L<nroff(1)>, normally via L<man(1)>, or printing using L<troff(1)>.
+It is conventionally invoked using the driver script B<pod2man>, but it can
+also be used directly.
+
+As a derived class from Pod::Simple, Pod::Man supports the same methods and
+interfaces.  See L<Pod::Simple> for all the details.
+
+new() can take options, in the form of key/value pairs that control the
+behavior of the parser.  See below for details.
+
+If no options are given, Pod::Man uses the name of the input file with any
+trailing C<.pod>, C<.pm>, or C<.pl> stripped as the man page title, to
+section 1 unless the file ended in C<.pm> in which case it defaults to
+section 3, to a centered title of "User Contributed Perl Documentation", to
+a centered footer of the Perl version it is run with, and to a left-hand
+footer of the modification date of its input (or the current date if given
+C<STDIN> for input).
+
+Pod::Man assumes that your *roff formatters have a fixed-width font named
+C<CW>.  If yours is called something else (like C<CR>), use the C<fixed>
+option to specify it.  This generally only matters for troff output for
+printing.  Similarly, you can set the fonts used for bold, italic, and
+bold italic fixed-width output.
+
+Besides the obvious pod conversions, Pod::Man also takes care of
+formatting func(), func(3), and simple variable references like $foo or
+@bar so you don't have to use code escapes for them; complex expressions
+like C<$fred{'stuff'}> will still need to be escaped, though.  It also
+translates dashes that aren't used as hyphens into en dashes, makes long
+dashes--like this--into proper em dashes, fixes "paired quotes," makes C++
+look right, puts a little space between double underscores, makes ALLCAPS
+a teeny bit smaller in B<troff>, and escapes stuff that *roff treats as
+special so that you don't have to.
+
+The recognized options to new() are as follows.  All options take a single
+argument.
+
+=over 4
+
+=item center
+
+Sets the centered page header for the C<.TH> macro.  The default, if this
+option is not specified, is "User Contributed Perl Documentation".
+
+=item date
+
+Sets the left-hand footer for the C<.TH> macro.  If this option is not set,
+the contents of the environment variable POD_MAN_DATE, if set, will be used.
+Failing that, the value of SOURCE_DATE_EPOCH, the modification date of the
+input file, or the current time if stat() can't find that file (which will be
+the case if the input is from C<STDIN>) will be used.  If obtained from the
+file modification date or the current time, the date will be formatted as
+C<YYYY-MM-DD> and will be based on UTC (so that the output will be
+reproducible regardless of local time zone).
+
+=item errors
+
+How to report errors.  C<die> says to throw an exception on any POD
+formatting error.  C<stderr> says to report errors on standard error, but
+not to throw an exception.  C<pod> says to include a POD ERRORS section
+in the resulting documentation summarizing the errors.  C<none> ignores
+POD errors entirely, as much as possible.
+
+The default is C<pod>.
+
+=item fixed
+
+The fixed-width font to use for verbatim text and code.  Defaults to
+C<CW>.  Some systems may want C<CR> instead.  Only matters for B<troff>
+output.
+
+=item fixedbold
+
+Bold version of the fixed-width font.  Defaults to C<CB>.  Only matters
+for B<troff> output.
+
+=item fixeditalic
+
+Italic version of the fixed-width font (actually, something of a misnomer,
+since most fixed-width fonts only have an oblique version, not an italic
+version).  Defaults to C<CI>.  Only matters for B<troff> output.
+
+=item fixedbolditalic
+
+Bold italic (probably actually oblique) version of the fixed-width font.
+Pod::Man doesn't assume you have this, and defaults to C<CB>.  Some
+systems (such as Solaris) have this font available as C<CX>.  Only matters
+for B<troff> output.
+
+=item name
+
+Set the name of the manual page for the C<.TH> macro.  Without this
+option, the manual name is set to the uppercased base name of the file
+being converted unless the manual section is 3, in which case the path is
+parsed to see if it is a Perl module path.  If it is, a path like
+C<.../lib/Pod/Man.pm> is converted into a name like C<Pod::Man>.  This
+option, if given, overrides any automatic determination of the name.
+
+If generating a manual page from standard input, this option is required,
+since there's otherwise no way for Pod::Man to know what to use for the
+manual page name.
+
+=item nourls
+
+Normally, LZ<><> formatting codes with a URL but anchor text are formatted
+to show both the anchor text and the URL.  In other words:
+
+    L<foo|http://example.com/>
+
+is formatted as:
+
+    foo <http://example.com/>
+
+This option, if set to a true value, suppresses the URL when anchor text
+is given, so this example would be formatted as just C<foo>.  This can
+produce less cluttered output in cases where the URLs are not particularly
+important.
+
+=item quotes
+
+Sets the quote marks used to surround CE<lt>> text.  If the value is a
+single character, it is used as both the left and right quote.  Otherwise,
+it is split in half, and the first half of the string is used as the left
+quote and the second is used as the right quote.
+
+This may also be set to the special value C<none>, in which case no quote
+marks are added around CE<lt>> text (but the font is still changed for troff
+output).
+
+=item release
+
+Set the centered footer for the C<.TH> macro.  By default, this is set to
+the version of Perl you run Pod::Man under.  Setting this to the empty
+string will cause some *roff implementations to use the system default
+value.
+
+Note that some system C<an> macro sets assume that the centered footer
+will be a modification date and will prepend something like "Last
+modified: ".  If this is the case for your target system, you may want to
+set C<release> to the last modified date and C<date> to the version
+number.
+
+=item section
+
+Set the section for the C<.TH> macro.  The standard section numbering
+convention is to use 1 for user commands, 2 for system calls, 3 for
+functions, 4 for devices, 5 for file formats, 6 for games, 7 for
+miscellaneous information, and 8 for administrator commands.  There is a lot
+of variation here, however; some systems (like Solaris) use 4 for file
+formats, 5 for miscellaneous information, and 7 for devices.  Still others
+use 1m instead of 8, or some mix of both.  About the only section numbers
+that are reliably consistent are 1, 2, and 3.
+
+By default, section 1 will be used unless the file ends in C<.pm> in which
+case section 3 will be selected.
+
+=item stderr
+
+Send error messages about invalid POD to standard error instead of
+appending a POD ERRORS section to the generated *roff output.  This is
+equivalent to setting C<errors> to C<stderr> if C<errors> is not already
+set.  It is supported for backward compatibility.
+
+=item utf8
+
+By default, Pod::Man produces the most conservative possible *roff output
+to try to ensure that it will work with as many different *roff
+implementations as possible.  Many *roff implementations cannot handle
+non-ASCII characters, so this means all non-ASCII characters are converted
+either to a *roff escape sequence that tries to create a properly accented
+character (at least for troff output) or to C<X>.
+
+If this option is set, Pod::Man will instead output UTF-8.  If your *roff
+implementation can handle it, this is the best output format to use and
+avoids corruption of documents containing non-ASCII characters.  However,
+be warned that *roff source with literal UTF-8 characters is not supported
+by many implementations and may even result in segfaults and other bad
+behavior.
+
+Be aware that, when using this option, the input encoding of your POD
+source should be properly declared unless it's US-ASCII.  Pod::Simple will
+attempt to guess the encoding and may be successful if it's Latin-1 or
+UTF-8, but it will produce warnings.  Use the C<=encoding> command to
+declare the encoding.  See L<perlpod(1)> for more information.
+
+=back
+
+The standard Pod::Simple method parse_file() takes one argument naming the
+POD file to read from.  By default, the output is sent to C<STDOUT>, but
+this can be changed with the output_fh() method.
+
+The standard Pod::Simple method parse_from_file() takes up to two
+arguments, the first being the input file to read POD from and the second
+being the file to write the formatted output to.
+
+You can also call parse_lines() to parse an array of lines or
+parse_string_document() to parse a document already in memory.  As with
+parse_file(), parse_lines() and parse_string_document() default to sending
+their output to C<STDOUT> unless changed with the output_fh() method.
+
+To put the output from any parse method into a string instead of a file
+handle, call the output_string() method instead of output_fh().
+
+See L<Pod::Simple> for more specific details on the methods available to
+all derived parsers.
+
+=head1 DIAGNOSTICS
+
+=over 4
+
+=item roff font should be 1 or 2 chars, not "%s"
+
+(F) You specified a *roff font (using C<fixed>, C<fixedbold>, etc.) that
+wasn't either one or two characters.  Pod::Man doesn't support *roff fonts
+longer than two characters, although some *roff extensions do (the
+canonical versions of B<nroff> and B<troff> don't either).
+
+=item Invalid errors setting "%s"
+
+(F) The C<errors> parameter to the constructor was set to an unknown value.
+
+=item Invalid quote specification "%s"
+
+(F) The quote specification given (the C<quotes> option to the
+constructor) was invalid.  A quote specification must be either one
+character long or an even number (greater than one) characters long.
+
+=item POD document had syntax errors
+
+(F) The POD document being formatted had syntax errors and the C<errors>
+option was set to C<die>.
+
+=back
+
+=head1 ENVIRONMENT
+
+=over 4
+
+=item PERL_CORE
+
+If set and Encode is not available, silently fall back to non-UTF-8 mode
+without complaining to standard error.  This environment variable is set
+during Perl core builds, which build Encode after podlators.  Encode is
+expected to not (yet) be available in that case.
+
+=item POD_MAN_DATE
+
+If set, this will be used as the value of the left-hand footer unless the
+C<date> option is explicitly set, overriding the timestamp of the input
+file or the current time.  This is primarily useful to ensure reproducible
+builds of the same output file given the same source and Pod::Man version,
+even when file timestamps may not be consistent.
+
+=item SOURCE_DATE_EPOCH
+
+If set, and POD_MAN_DATE and the C<date> options are not set, this will be
+used as the modification time of the source file, overriding the timestamp of
+the input file or the current time.  It should be set to the desired time in
+seconds since UNIX epoch.  This is primarily useful to ensure reproducible
+builds of the same output file given the same source and Pod::Man version,
+even when file timestamps may not be consistent.  See
+L<https://reproducible-builds.org/specs/source-date-epoch/> for the full
+specification.
+
+(Arguably, according to the specification, this variable should be used only
+if the timestamp of the input file is not available and Pod::Man uses the
+current time.  However, for reproducible builds in Debian, results were more
+reliable if this variable overrode the timestamp of the input file.)
+
+=back
+
+=head1 BUGS
+
+Encoding handling assumes that PerlIO is available and does not work
+properly if it isn't.  The C<utf8> option is therefore not supported
+unless Perl is built with PerlIO support.
+
+There is currently no way to turn off the guesswork that tries to format
+unmarked text appropriately, and sometimes it isn't wanted (particularly
+when using POD to document something other than Perl).  Most of the work
+toward fixing this has now been done, however, and all that's still needed
+is a user interface.
+
+The NAME section should be recognized specially and index entries emitted
+for everything in that section.  This would have to be deferred until the
+next section, since extraneous things in NAME tends to confuse various man
+page processors.  Currently, no index entries are emitted for anything in
+NAME.
+
+Pod::Man doesn't handle font names longer than two characters.  Neither do
+most B<troff> implementations, but GNU troff does as an extension.  It would
+be nice to support as an option for those who want to use it.
+
+The preamble added to each output file is rather verbose, and most of it
+is only necessary in the presence of non-ASCII characters.  It would
+ideally be nice if all of those definitions were only output if needed,
+perhaps on the fly as the characters are used.
+
+Pod::Man is excessively slow.
+
+=head1 CAVEATS
+
+If Pod::Man is given the C<utf8> option, the encoding of its output file
+handle will be forced to UTF-8 if possible, overriding any existing
+encoding.  This will be done even if the file handle is not created by
+Pod::Man and was passed in from outside.  This maintains consistency
+regardless of PERL_UNICODE and other settings.
+
+The handling of hyphens and em dashes is somewhat fragile, and one may get
+the wrong one under some circumstances.  This should only matter for
+B<troff> output.
+
+When and whether to use small caps is somewhat tricky, and Pod::Man doesn't
+necessarily get it right.
+
+Converting neutral double quotes to properly matched double quotes doesn't
+work unless there are no formatting codes between the quote marks.  This
+only matters for troff output.
+
+=head1 AUTHOR
+
+Russ Allbery <rra@cpan.org>, based I<very> heavily on the original
+B<pod2man> by Tom Christiansen <tchrist@mox.perl.com>.  The modifications to
+work with Pod::Simple instead of Pod::Parser were originally contributed by
+Sean Burke (but I've since hacked them beyond recognition and all bugs are
+mine).
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008,
+2009, 2010, 2012, 2013, 2014, 2015, 2016 Russ Allbery <rra@cpan.org>
+
+This program is free software; you may redistribute it and/or modify it
+under the same terms as Perl itself.
+
+=head1 SEE ALSO
+
+L<Pod::Simple>, L<perlpod(1)>, L<pod2man(1)>, L<nroff(1)>, L<troff(1)>,
+L<man(1)>, L<man(7)>
+
+Ossanna, Joseph F., and Brian W. Kernighan.  "Troff User's Manual,"
+Computing Science Technical Report No. 54, AT&T Bell Laboratories.  This is
+the best documentation of standard B<nroff> and B<troff>.  At the time of
+this writing, it's available at
+L<http://www.cs.bell-labs.com/cm/cs/cstr.html>.
+
+The man page documenting the man macro set may be L<man(5)> instead of
+L<man(7)> on your system.  Also, please see L<pod2man(1)> for extensive
+documentation on writing manual pages if you've not done it before and
+aren't familiar with the conventions.
+
+The current version of this module is always available from its web site at
+L<http://www.eyrie.org/~eagle/software/podlators/>.  It is also part of the
+Perl core distribution as of 5.6.0.
+
+=cut
diff --git a/lib/5.24.1/Pod/ParseLink.pm b/lib/5.24.1/Pod/ParseLink.pm
new file mode 100644
index 00000000..a9e6b34d
--- /dev/null
+++ b/lib/5.24.1/Pod/ParseLink.pm
@@ -0,0 +1,194 @@
+# Pod::ParseLink -- Parse an L<> formatting code in POD text.
+#
+# Copyright 2001, 2008, 2009, 2014 by Russ Allbery <rra@cpan.org>
+#
+# This program is free software; you may redistribute it and/or modify it
+# under the same terms as Perl itself.
+#
+# This module implements parsing of the text of an L<> formatting code as
+# defined in perlpodspec.  It should be suitable for any POD formatter.  It
+# exports only one function, parselink(), which returns the five-item parse
+# defined in perlpodspec.
+#
+# Perl core hackers, please note that this module is also separately
+# maintained outside of the Perl core as part of the podlators.  Please send
+# me any patches at the address above in addition to sending them to the
+# standard Perl mailing lists.
+
+##############################################################################
+# Modules and declarations
+##############################################################################
+
+package Pod::ParseLink;
+
+use 5.006;
+use strict;
+use warnings;
+
+use vars qw(@EXPORT @ISA $VERSION);
+
+use Exporter;
+@ISA    = qw(Exporter);
+@EXPORT = qw(parselink);
+
+$VERSION = '4.07';
+
+##############################################################################
+# Implementation
+##############################################################################
+
+# Parse the name and section portion of a link into a name and section.
+sub _parse_section {
+    my ($link) = @_;
+    $link =~ s/^\s+//;
+    $link =~ s/\s+$//;
+
+    # If the whole link is enclosed in quotes, interpret it all as a section
+    # even if it contains a slash.
+    return (undef, $1) if ($link =~ /^"\s*(.*?)\s*"$/);
+
+    # Split into page and section on slash, and then clean up quoting in the
+    # section.  If there is no section and the name contains spaces, also
+    # guess that it's an old section link.
+    my ($page, $section) = split (/\s*\/\s*/, $link, 2);
+    $section =~ s/^"\s*(.*?)\s*"$/$1/ if $section;
+    if ($page && $page =~ / / && !defined ($section)) {
+        $section = $page;
+        $page = undef;
+    } else {
+        $page = undef unless $page;
+        $section = undef unless $section;
+    }
+    return ($page, $section);
+}
+
+# Infer link text from the page and section.
+sub _infer_text {
+    my ($page, $section) = @_;
+    my $inferred;
+    if ($page && !$section) {
+        $inferred = $page;
+    } elsif (!$page && $section) {
+        $inferred = '"' . $section . '"';
+    } elsif ($page && $section) {
+        $inferred = '"' . $section . '" in ' . $page;
+    }
+    return $inferred;
+}
+
+# Given the contents of an L<> formatting code, parse it into the link text,
+# the possibly inferred link text, the name or URL, the section, and the type
+# of link (pod, man, or url).
+sub parselink {
+    my ($link) = @_;
+    $link =~ s/\s+/ /g;
+    my $text;
+    if ($link =~ /\|/) {
+        ($text, $link) = split (/\|/, $link, 2);
+    }
+    if ($link =~ /\A\w+:[^:\s]\S*\Z/) {
+        my $inferred;
+        if (defined ($text) && length ($text) > 0) {
+            return ($text, $text, $link, undef, 'url');
+        } else {
+            return ($text, $link, $link, undef, 'url');
+        }
+    } else {
+        my ($name, $section) = _parse_section ($link);
+        my $inferred;
+        if (defined ($text) && length ($text) > 0) {
+            $inferred = $text;
+        } else {
+            $inferred = _infer_text ($name, $section);
+        }
+        my $type = ($name && $name =~ /\(\S*\)/) ? 'man' : 'pod';
+        return ($text, $inferred, $name, $section, $type);
+    }
+}
+
+##############################################################################
+# Module return value and documentation
+##############################################################################
+
+# Ensure we evaluate to true.
+1;
+__END__
+
+=head1 NAME
+
+Pod::ParseLink - Parse an LE<lt>E<gt> formatting code in POD text
+
+=for stopwords
+markup Allbery URL
+
+=head1 SYNOPSIS
+
+    use Pod::ParseLink;
+    my $link = get_link();
+    my ($text, $inferred, $name, $section, $type) = parselink($link);
+
+=head1 DESCRIPTION
+
+This module only provides a single function, parselink(), which takes the
+text of an LE<lt>E<gt> formatting code and parses it.  It returns the
+anchor text for the link (if any was given), the anchor text possibly
+inferred from the name and section, the name or URL, the section if any,
+and the type of link.  The type will be one of C<url>, C<pod>, or C<man>,
+indicating a URL, a link to a POD page, or a link to a Unix manual page.
+
+Parsing is implemented per L<perlpodspec>.  For backward compatibility,
+links where there is no section and name contains spaces, or links where the
+entirety of the link (except for the anchor text if given) is enclosed in
+double-quotes are interpreted as links to a section (LE<lt>/sectionE<gt>).
+
+The inferred anchor text is implemented per L<perlpodspec>:
+
+    L<name>         =>  L<name|name>
+    L</section>     =>  L<"section"|/section>
+    L<name/section> =>  L<"section" in name|name/section>
+
+The name may contain embedded EE<lt>E<gt> and ZE<lt>E<gt> formatting codes,
+and the section, anchor text, and inferred anchor text may contain any
+formatting codes.  Any double quotes around the section are removed as part
+of the parsing, as is any leading or trailing whitespace.
+
+If the text of the LE<lt>E<gt> escape is entirely enclosed in double
+quotes, it's interpreted as a link to a section for backward
+compatibility.
+
+No attempt is made to resolve formatting codes.  This must be done after
+calling parselink() (since EE<lt>E<gt> formatting codes can be used to
+escape characters that would otherwise be significant to the parser and
+resolving them before parsing would result in an incorrect parse of a
+formatting code like:
+
+    L<verticalE<verbar>barE<sol>slash>
+
+which should be interpreted as a link to the C<vertical|bar/slash> POD page
+and not as a link to the C<slash> section of the C<bar> POD page with an
+anchor text of C<vertical>.  Note that not only the anchor text will need to
+have formatting codes expanded, but so will the target of the link (to deal
+with EE<lt>E<gt> and ZE<lt>E<gt> formatting codes), and special handling of
+the section may be necessary depending on whether the translator wants to
+consider markup in sections to be significant when resolving links.  See
+L<perlpodspec> for more information.
+
+=head1 SEE ALSO
+
+L<Pod::Parser>
+
+The current version of this module is always available from its web site at
+L<http://www.eyrie.org/~eagle/software/podlators/>.
+
+=head1 AUTHOR
+
+Russ Allbery <rra@cpan.org>.
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright 2001, 2008, 2009 Russ Allbery <rra@cpan.org>.
+
+This program is free software; you may redistribute it and/or modify it
+under the same terms as Perl itself.
+
+=cut
diff --git a/lib/5.24.1/Pod/ParseUtils.pm b/lib/5.24.1/Pod/ParseUtils.pm
new file mode 100644
index 00000000..2afd0cd4
--- /dev/null
+++ b/lib/5.24.1/Pod/ParseUtils.pm
@@ -0,0 +1,861 @@
+#############################################################################
+# Pod/ParseUtils.pm -- helpers for POD parsing and conversion
+#
+# Copyright (C) 1999-2000 by Marek Rouchal. All rights reserved.
+# This file is part of "PodParser". PodParser is free software;
+# you can redistribute it and/or modify it under the same terms
+# as Perl itself.
+#############################################################################
+
+package Pod::ParseUtils;
+use strict;
+
+use vars qw($VERSION);
+$VERSION = '1.63'; ## Current version of this package
+require  5.005;    ## requires this Perl version or later
+
+=head1 NAME
+
+Pod::ParseUtils - helpers for POD parsing and conversion
+
+=head1 SYNOPSIS
+
+  use Pod::ParseUtils;
+
+  my $list = new Pod::List;
+  my $link = Pod::Hyperlink->new('Pod::Parser');
+
+=head1 DESCRIPTION
+
+B<NOTE: This module is considered legacy; modern Perl releases (5.18 and
+higher) are going to remove Pod-Parser from core and use L<Pod-Simple>
+for all things POD.>
+
+B<Pod::ParseUtils> contains a few object-oriented helper packages for
+POD parsing and processing (i.e. in POD formatters and translators).
+
+=cut
+
+#-----------------------------------------------------------------------------
+# Pod::List
+#
+# class to hold POD list info (=over, =item, =back)
+#-----------------------------------------------------------------------------
+
+package Pod::List;
+
+use Carp;
+
+=head2 Pod::List
+
+B<Pod::List> can be used to hold information about POD lists
+(written as =over ... =item ... =back) for further processing.
+The following methods are available:
+
+=over 4
+
+=item Pod::List-E<gt>new()
+
+Create a new list object. Properties may be specified through a hash
+reference like this:
+
+  my $list = Pod::List->new({ -start => $., -indent => 4 });
+
+See the individual methods/properties for details.
+
+=cut
+
+sub new {
+    my $this = shift;
+    my $class = ref($this) || $this;
+    my %params = @_;
+    my $self = {%params};
+    bless $self, $class;
+    $self->initialize();
+    return $self;
+}
+
+sub initialize {
+    my $self = shift;
+    $self->{-file} ||= 'unknown';
+    $self->{-start} ||= 'unknown';
+    $self->{-indent} ||= 4; # perlpod: "should be the default"
+    $self->{_items} = [];
+    $self->{-type} ||= '';
+}
+
+=item $list-E<gt>file()
+
+Without argument, retrieves the file name the list is in. This must
+have been set before by either specifying B<-file> in the B<new()>
+method or by calling the B<file()> method with a scalar argument.
+
+=cut
+
+# The POD file name the list appears in
+sub file {
+   return (@_ > 1) ? ($_[0]->{-file} = $_[1]) : $_[0]->{-file};
+}
+
+=item $list-E<gt>start()
+
+Without argument, retrieves the line number where the list started.
+This must have been set before by either specifying B<-start> in the
+B<new()> method or by calling the B<start()> method with a scalar
+argument.
+
+=cut
+
+# The line in the file the node appears
+sub start {
+   return (@_ > 1) ? ($_[0]->{-start} = $_[1]) : $_[0]->{-start};
+}
+
+=item $list-E<gt>indent()
+
+Without argument, retrieves the indent level of the list as specified
+in C<=over n>. This must have been set before by either specifying
+B<-indent> in the B<new()> method or by calling the B<indent()> method
+with a scalar argument.
+
+=cut
+
+# indent level
+sub indent {
+   return (@_ > 1) ? ($_[0]->{-indent} = $_[1]) : $_[0]->{-indent};
+}
+
+=item $list-E<gt>type()
+
+Without argument, retrieves the list type, which can be an arbitrary value,
+e.g. C<OL>, C<UL>, ... when thinking the HTML way.
+This must have been set before by either specifying
+B<-type> in the B<new()> method or by calling the B<type()> method
+with a scalar argument.
+
+=cut
+
+# The type of the list (UL, OL, ...)
+sub type {
+   return (@_ > 1) ? ($_[0]->{-type} = $_[1]) : $_[0]->{-type};
+}
+
+=item $list-E<gt>rx()
+
+Without argument, retrieves a regular expression for simplifying the 
+individual item strings once the list type has been determined. Usage:
+E.g. when converting to HTML, one might strip the leading number in
+an ordered list as C<E<lt>OLE<gt>> already prints numbers itself.
+This must have been set before by either specifying
+B<-rx> in the B<new()> method or by calling the B<rx()> method
+with a scalar argument.
+
+=cut
+
+# The regular expression to simplify the items
+sub rx {
+   return (@_ > 1) ? ($_[0]->{-rx} = $_[1]) : $_[0]->{-rx};
+}
+
+=item $list-E<gt>item()
+
+Without argument, retrieves the array of the items in this list.
+The items may be represented by any scalar.
+If an argument has been given, it is pushed on the list of items.
+
+=cut
+
+# The individual =items of this list
+sub item {
+    my ($self,$item) = @_;
+    if(defined $item) {
+        push(@{$self->{_items}}, $item);
+        return $item;
+    }
+    else {
+        return @{$self->{_items}};
+    }
+}
+
+=item $list-E<gt>parent()
+
+Without argument, retrieves information about the parent holding this
+list, which is represented as an arbitrary scalar.
+This must have been set before by either specifying
+B<-parent> in the B<new()> method or by calling the B<parent()> method
+with a scalar argument.
+
+=cut
+
+# possibility for parsers/translators to store information about the
+# lists's parent object
+sub parent {
+   return (@_ > 1) ? ($_[0]->{-parent} = $_[1]) : $_[0]->{-parent};
+}
+
+=item $list-E<gt>tag()
+
+Without argument, retrieves information about the list tag, which can be
+any scalar.
+This must have been set before by either specifying
+B<-tag> in the B<new()> method or by calling the B<tag()> method
+with a scalar argument.
+
+=back
+
+=cut
+
+# possibility for parsers/translators to store information about the
+# list's object
+sub tag {
+   return (@_ > 1) ? ($_[0]->{-tag} = $_[1]) : $_[0]->{-tag};
+}
+
+#-----------------------------------------------------------------------------
+# Pod::Hyperlink
+#
+# class to manipulate POD hyperlinks (L<>)
+#-----------------------------------------------------------------------------
+
+package Pod::Hyperlink;
+
+=head2 Pod::Hyperlink
+
+B<Pod::Hyperlink> is a class for manipulation of POD hyperlinks. Usage:
+
+  my $link = Pod::Hyperlink->new('alternative text|page/"section in page"');
+
+The B<Pod::Hyperlink> class is mainly designed to parse the contents of the
+C<LE<lt>...E<gt>> sequence, providing a simple interface for accessing the
+different parts of a POD hyperlink for further processing. It can also be
+used to construct hyperlinks.
+
+=over 4
+
+=item Pod::Hyperlink-E<gt>new()
+
+The B<new()> method can either be passed a set of key/value pairs or a single
+scalar value, namely the contents of a C<LE<lt>...E<gt>> sequence. An object
+of the class C<Pod::Hyperlink> is returned. The value C<undef> indicates a
+failure, the error message is stored in C<$@>.
+
+=cut
+
+use Carp;
+
+sub new {
+    my $this = shift;
+    my $class = ref($this) || $this;
+    my $self = +{};
+    bless $self, $class;
+    $self->initialize();
+    if(defined $_[0]) {
+        if(ref($_[0])) {
+            # called with a list of parameters
+            %$self = %{$_[0]};
+            $self->_construct_text();
+        }
+        else {
+            # called with L<> contents
+            return unless($self->parse($_[0]));
+        }
+    }
+    return $self;
+}
+
+sub initialize {
+    my $self = shift;
+    $self->{-line} ||= 'undef';
+    $self->{-file} ||= 'undef';
+    $self->{-page} ||= '';
+    $self->{-node} ||= '';
+    $self->{-alttext} ||= '';
+    $self->{-type} ||= 'undef';
+    $self->{_warnings} = [];
+}
+
+=item $link-E<gt>parse($string)
+
+This method can be used to (re)parse a (new) hyperlink, i.e. the contents
+of a C<LE<lt>...E<gt>> sequence. The result is stored in the current object.
+Warnings are stored in the B<warnings> property.
+E.g. sections like C<LE<lt>open(2)E<gt>> are deprecated, as they do not point
+to Perl documents. C<LE<lt>DBI::foo(3p)E<gt>> is wrong as well, the manpage
+section can simply be dropped.
+
+=cut
+
+sub parse {
+    my $self = shift;
+    local($_) = $_[0];
+    # syntax check the link and extract destination
+    my ($alttext,$page,$node,$type,$quoted) = (undef,'','','',0);
+
+    $self->{_warnings} = [];
+
+    # collapse newlines with whitespace
+    s/\s*\n+\s*/ /g;
+
+    # strip leading/trailing whitespace
+    if(s/^[\s\n]+//) {
+        $self->warning('ignoring leading whitespace in link');
+    }
+    if(s/[\s\n]+$//) {
+        $self->warning('ignoring trailing whitespace in link');
+    }
+    unless(length($_)) {
+        _invalid_link('empty link');
+        return;
+    }
+
+    ## Check for different possibilities. This is tedious and error-prone
+    # we match all possibilities (alttext, page, section/item)
+    #warn "DEBUG: link=$_\n";
+
+    # only page
+    # problem: a lot of people use (), or (1) or the like to indicate
+    # man page sections. But this collides with L<func()> that is supposed
+    # to point to an internal function...
+    my $page_rx = '[\w.-]+(?:::[\w.-]+)*(?:[(](?:\d\w*|)[)]|)';
+    # page name only
+    if(/^($page_rx)$/o) {
+        $page = $1;
+        $type = 'page';
+    }
+    # alttext, page and "section"
+    elsif(m{^(.*?)\s*[|]\s*($page_rx)\s*/\s*"(.+)"$}o) {
+        ($alttext, $page, $node) = ($1, $2, $3);
+        $type = 'section';
+        $quoted = 1; #... therefore | and / are allowed
+    }
+    # alttext and page
+    elsif(/^(.*?)\s*[|]\s*($page_rx)$/o) {
+        ($alttext, $page) = ($1, $2);
+        $type = 'page';
+    }
+    # alttext and "section"
+    elsif(m{^(.*?)\s*[|]\s*(?:/\s*|)"(.+)"$}) {
+        ($alttext, $node) = ($1,$2);
+        $type = 'section';
+        $quoted = 1;
+    }
+    # page and "section"
+    elsif(m{^($page_rx)\s*/\s*"(.+)"$}o) {
+        ($page, $node) = ($1, $2);
+        $type = 'section';
+        $quoted = 1;
+    }
+    # page and item
+    elsif(m{^($page_rx)\s*/\s*(.+)$}o) {
+        ($page, $node) = ($1, $2);
+        $type = 'item';
+    }
+    # only "section"
+    elsif(m{^/?"(.+)"$}) {
+        $node = $1;
+        $type = 'section';
+        $quoted = 1;
+    }
+    # only item
+    elsif(m{^\s*/(.+)$}) {
+        $node = $1;
+        $type = 'item';
+    }
+
+    # non-standard: Hyperlink with alt-text - doesn't remove protocol prefix, maybe it should?
+    elsif(/^ \s* (.*?) \s* [|] \s* (\w+:[^:\s] [^\s|]*?) \s* $/ix) {
+      ($alttext,$node) = ($1,$2);
+      $type = 'hyperlink';
+    }
+
+    # non-standard: Hyperlink
+    elsif(/^(\w+:[^:\s]\S*)$/i) {
+        $node = $1;
+        $type = 'hyperlink';
+    }
+    # alttext, page and item
+    elsif(m{^(.*?)\s*[|]\s*($page_rx)\s*/\s*(.+)$}o) {
+        ($alttext, $page, $node) = ($1, $2, $3);
+        $type = 'item';
+    }
+    # alttext and item
+    elsif(m{^(.*?)\s*[|]\s*/(.+)$}) {
+        ($alttext, $node) = ($1,$2);
+    }
+    # must be an item or a "malformed" section (without "")
+    else {
+        $node = $_;
+        $type = 'item';
+    }
+    # collapse whitespace in nodes
+    $node =~ s/\s+/ /gs;
+
+    # empty alternative text expands to node name
+    if(defined $alttext) {
+        if(!length($alttext)) {
+          $alttext = $node || $page;
+        }
+    }
+    else {
+        $alttext = '';
+    }
+
+    if($page =~ /[(]\w*[)]$/) {
+        $self->warning("(section) in '$page' deprecated");
+    }
+    if(!$quoted && $node =~ m{[|/]} && $type ne 'hyperlink') {
+        $self->warning("node '$node' contains non-escaped | or /");
+    }
+    if($alttext =~ m{[|/]}) {
+        $self->warning("alternative text '$node' contains non-escaped | or /");
+    }
+    $self->{-page} = $page;
+    $self->{-node} = $node;
+    $self->{-alttext} = $alttext;
+    #warn "DEBUG: page=$page section=$section item=$item alttext=$alttext\n";
+    $self->{-type} = $type;
+    $self->_construct_text();
+    1;
+}
+
+sub _construct_text {
+    my $self = shift;
+    my $alttext = $self->alttext();
+    my $type = $self->type();
+    my $section = $self->node();
+    my $page = $self->page();
+    my $page_ext = '';
+    $page =~ s/([(]\w*[)])$// && ($page_ext = $1);
+    if($alttext) {
+        $self->{_text} = $alttext;
+    }
+    elsif($type eq 'hyperlink') {
+        $self->{_text} = $section;
+    }
+    else {
+        $self->{_text} = ($section || '') .
+            (($page && $section) ? ' in ' : '') .
+            "$page$page_ext";
+    }
+    # for being marked up later
+    # use the non-standard markers P<> and Q<>, so that the resulting
+    # text can be parsed by the translators. It's their job to put
+    # the correct hypertext around the linktext
+    if($alttext) {
+        $self->{_markup} = "Q<$alttext>";
+    }
+    elsif($type eq 'hyperlink') {
+        $self->{_markup} = "Q<$section>";
+    }
+    else {
+        $self->{_markup} = (!$section ? '' : "Q<$section>") .
+            ($page ? ($section ? ' in ':'') . "P<$page>$page_ext" : '');
+    }
+}
+
+=item $link-E<gt>markup($string)
+
+Set/retrieve the textual value of the link. This string contains special
+markers C<PE<lt>E<gt>> and C<QE<lt>E<gt>> that should be expanded by the
+translator's interior sequence expansion engine to the
+formatter-specific code to highlight/activate the hyperlink. The details
+have to be implemented in the translator.
+
+=cut
+
+#' retrieve/set markuped text
+sub markup {
+    return (@_ > 1) ? ($_[0]->{_markup} = $_[1]) : $_[0]->{_markup};
+}
+
+=item $link-E<gt>text()
+
+This method returns the textual representation of the hyperlink as above,
+but without markers (read only). Depending on the link type this is one of
+the following alternatives (the + and * denote the portions of the text
+that are marked up):
+
+  +perl+                    L<perl>
+  *$|* in +perlvar+         L<perlvar/$|>
+  *OPTIONS* in +perldoc+    L<perldoc/"OPTIONS">
+  *DESCRIPTION*             L<"DESCRIPTION">
+
+=cut
+
+# The complete link's text
+sub text {
+    return $_[0]->{_text};
+}
+
+=item $link-E<gt>warning()
+
+After parsing, this method returns any warnings encountered during the
+parsing process.
+
+=cut
+
+# Set/retrieve warnings
+sub warning {
+    my $self = shift;
+    if(@_) {
+        push(@{$self->{_warnings}}, @_);
+        return @_;
+    }
+    return @{$self->{_warnings}};
+}
+
+=item $link-E<gt>file()
+
+=item $link-E<gt>line()
+
+Just simple slots for storing information about the line and the file
+the link was encountered in. Has to be filled in manually.
+
+=cut
+
+# The line in the file the link appears
+sub line {
+    return (@_ > 1) ? ($_[0]->{-line} = $_[1]) : $_[0]->{-line};
+}
+
+# The POD file name the link appears in
+sub file {
+    return (@_ > 1) ? ($_[0]->{-file} = $_[1]) : $_[0]->{-file};
+}
+
+=item $link-E<gt>page()
+
+This method sets or returns the POD page this link points to.
+
+=cut
+
+# The POD page the link appears on
+sub page {
+    if (@_ > 1) {
+        $_[0]->{-page} = $_[1];
+        $_[0]->_construct_text();
+    }
+    return $_[0]->{-page};
+}
+
+=item $link-E<gt>node()
+
+As above, but the destination node text of the link.
+
+=cut
+
+# The link destination
+sub node {
+    if (@_ > 1) {
+        $_[0]->{-node} = $_[1];
+        $_[0]->_construct_text();
+    }
+    return $_[0]->{-node};
+}
+
+=item $link-E<gt>alttext()
+
+Sets or returns an alternative text specified in the link.
+
+=cut
+
+# Potential alternative text
+sub alttext {
+    if (@_ > 1) {
+        $_[0]->{-alttext} = $_[1];
+        $_[0]->_construct_text();
+    }
+    return $_[0]->{-alttext};
+}
+
+=item $link-E<gt>type()
+
+The node type, either C<section> or C<item>. As an unofficial type,
+there is also C<hyperlink>, derived from e.g. C<LE<lt>http://perl.comE<gt>>
+
+=cut
+
+# The type: item or headn
+sub type {
+    return (@_ > 1) ? ($_[0]->{-type} = $_[1]) : $_[0]->{-type};
+}
+
+=item $link-E<gt>link()
+
+Returns the link as contents of C<LE<lt>E<gt>>. Reciprocal to B<parse()>.
+
+=back
+
+=cut
+
+# The link itself
+sub link {
+    my $self = shift;
+    my $link = $self->page() || '';
+    if($self->node()) {
+        my $node = $self->node();
+        $node =~ s/\|/E<verbar>/g;
+        $node =~ s{/}{E<sol>}g;
+        if($self->type() eq 'section') {
+            $link .= ($link ? '/' : '') . '"' . $node . '"';
+        }
+        elsif($self->type() eq 'hyperlink') {
+            $link = $self->node();
+        }
+        else { # item
+            $link .= '/' . $node;
+        }
+    }
+    if($self->alttext()) {
+        my $text = $self->alttext();
+        $text =~ s/\|/E<verbar>/g;
+        $text =~ s{/}{E<sol>}g;
+        $link = "$text|$link";
+    }
+    return $link;
+}
+
+sub _invalid_link {
+    my ($msg) = @_;
+    # this sets @_
+    #eval { die "$msg\n" };
+    #chomp $@;
+    $@ = $msg; # this seems to work, too!
+    return;
+}
+
+#-----------------------------------------------------------------------------
+# Pod::Cache
+#
+# class to hold POD page details
+#-----------------------------------------------------------------------------
+
+package Pod::Cache;
+
+=head2 Pod::Cache
+
+B<Pod::Cache> holds information about a set of POD documents,
+especially the nodes for hyperlinks.
+The following methods are available:
+
+=over 4
+
+=item Pod::Cache-E<gt>new()
+
+Create a new cache object. This object can hold an arbitrary number of
+POD documents of class Pod::Cache::Item.
+
+=cut
+
+sub new {
+    my $this = shift;
+    my $class = ref($this) || $this;
+    my $self = [];
+    bless $self, $class;
+    return $self;
+}
+
+=item $cache-E<gt>item()
+
+Add a new item to the cache. Without arguments, this method returns a
+list of all cache elements.
+
+=cut
+
+sub item {
+    my ($self,%param) = @_;
+    if(%param) {
+        my $item = Pod::Cache::Item->new(%param);
+        push(@$self, $item);
+        return $item;
+    }
+    else {
+        return @{$self};
+    }
+}
+
+=item $cache-E<gt>find_page($name)
+
+Look for a POD document named C<$name> in the cache. Returns the
+reference to the corresponding Pod::Cache::Item object or undef if
+not found.
+
+=back
+
+=cut
+
+sub find_page {
+    my ($self,$page) = @_;
+    foreach(@$self) {
+        if($_->page() eq $page) {
+            return $_;
+        }
+    }
+    return;
+}
+
+package Pod::Cache::Item;
+
+=head2 Pod::Cache::Item
+
+B<Pod::Cache::Item> holds information about individual POD documents,
+that can be grouped in a Pod::Cache object.
+It is intended to hold information about the hyperlink nodes of POD
+documents.
+The following methods are available:
+
+=over 4
+
+=item Pod::Cache::Item-E<gt>new()
+
+Create a new object.
+
+=cut
+
+sub new {
+    my $this = shift;
+    my $class = ref($this) || $this;
+    my %params = @_;
+    my $self = {%params};
+    bless $self, $class;
+    $self->initialize();
+    return $self;
+}
+
+sub initialize {
+    my $self = shift;
+    $self->{-nodes} = [] unless(defined $self->{-nodes});
+}
+
+=item $cacheitem-E<gt>page()
+
+Set/retrieve the POD document name (e.g. "Pod::Parser").
+
+=cut
+
+# The POD page
+sub page {
+   return (@_ > 1) ? ($_[0]->{-page} = $_[1]) : $_[0]->{-page};
+}
+
+=item $cacheitem-E<gt>description()
+
+Set/retrieve the POD short description as found in the C<=head1 NAME>
+section.
+
+=cut
+
+# The POD description, taken out of NAME if present
+sub description {
+   return (@_ > 1) ? ($_[0]->{-description} = $_[1]) : $_[0]->{-description};
+}
+
+=item $cacheitem-E<gt>path()
+
+Set/retrieve the POD file storage path.
+
+=cut
+
+# The file path
+sub path {
+   return (@_ > 1) ? ($_[0]->{-path} = $_[1]) : $_[0]->{-path};
+}
+
+=item $cacheitem-E<gt>file()
+
+Set/retrieve the POD file name.
+
+=cut
+
+# The POD file name
+sub file {
+   return (@_ > 1) ? ($_[0]->{-file} = $_[1]) : $_[0]->{-file};
+}
+
+=item $cacheitem-E<gt>nodes()
+
+Add a node (or a list of nodes) to the document's node list. Note that
+the order is kept, i.e. start with the first node and end with the last.
+If no argument is given, the current list of nodes is returned in the
+same order the nodes have been added.
+A node can be any scalar, but usually is a pair of node string and
+unique id for the C<find_node> method to work correctly.
+
+=cut
+
+# The POD nodes
+sub nodes {
+    my ($self,@nodes) = @_;
+    if(@nodes) {
+        push(@{$self->{-nodes}}, @nodes);
+        return @nodes;
+    }
+    else {
+        return @{$self->{-nodes}};
+    }
+}
+
+=item $cacheitem-E<gt>find_node($name)
+
+Look for a node or index entry named C<$name> in the object.
+Returns the unique id of the node (i.e. the second element of the array
+stored in the node array) or undef if not found.
+
+=cut
+
+sub find_node {
+    my ($self,$node) = @_;
+    my @search;
+    push(@search, @{$self->{-nodes}}) if($self->{-nodes});
+    push(@search, @{$self->{-idx}}) if($self->{-idx});
+    foreach(@search) {
+        if($_->[0] eq $node) {
+            return $_->[1]; # id
+        }
+    }
+    return;
+}
+
+=item $cacheitem-E<gt>idx()
+
+Add an index entry (or a list of them) to the document's index list. Note that
+the order is kept, i.e. start with the first node and end with the last.
+If no argument is given, the current list of index entries is returned in the
+same order the entries have been added.
+An index entry can be any scalar, but usually is a pair of string and
+unique id.
+
+=back
+
+=cut
+
+# The POD index entries
+sub idx {
+    my ($self,@idx) = @_;
+    if(@idx) {
+        push(@{$self->{-idx}}, @idx);
+        return @idx;
+    }
+    else {
+        return @{$self->{-idx}};
+    }
+}
+
+=head1 AUTHOR
+
+Please report bugs using L<http://rt.cpan.org>.
+
+Marek Rouchal E<lt>marekr@cpan.orgE<gt>, borrowing
+a lot of things from L<pod2man> and L<pod2roff> as well as other POD
+processing tools by Tom Christiansen, Brad Appleton and Russ Allbery.
+
+B<Pod::ParseUtils> is part of the L<Pod::Parser> distribution.
+
+=head1 SEE ALSO
+
+L<pod2man>, L<pod2roff>, L<Pod::Parser>, L<Pod::Checker>,
+L<pod2html>
+
+=cut
+
+1;
diff --git a/lib/5.24.1/Pod/Parser.pm b/lib/5.24.1/Pod/Parser.pm
new file mode 100644
index 00000000..63edcd2e
--- /dev/null
+++ b/lib/5.24.1/Pod/Parser.pm
@@ -0,0 +1,1836 @@
+#############################################################################
+# Pod/Parser.pm -- package which defines a base class for parsing POD docs.
+#
+# Copyright (C) 1996-2000 by Bradford Appleton. All rights reserved.
+# This file is part of "PodParser". PodParser is free software;
+# you can redistribute it and/or modify it under the same terms
+# as Perl itself.
+#############################################################################
+
+package Pod::Parser;
+use strict;
+
+## These "variables" are used as local "glob aliases" for performance
+use vars qw($VERSION @ISA %myData %myOpts @input_stack);
+$VERSION = '1.63';  ## Current version of this package
+require  5.005;    ## requires this Perl version or later
+
+#############################################################################
+
+=head1 NAME
+
+Pod::Parser - base class for creating POD filters and translators
+
+=head1 SYNOPSIS
+
+    use Pod::Parser;
+
+    package MyParser;
+    @ISA = qw(Pod::Parser);
+
+    sub command { 
+        my ($parser, $command, $paragraph, $line_num) = @_;
+        ## Interpret the command and its text; sample actions might be:
+        if ($command eq 'head1') { ... }
+        elsif ($command eq 'head2') { ... }
+        ## ... other commands and their actions
+        my $out_fh = $parser->output_handle();
+        my $expansion = $parser->interpolate($paragraph, $line_num);
+        print $out_fh $expansion;
+    }
+
+    sub verbatim { 
+        my ($parser, $paragraph, $line_num) = @_;
+        ## Format verbatim paragraph; sample actions might be:
+        my $out_fh = $parser->output_handle();
+        print $out_fh $paragraph;
+    }
+
+    sub textblock { 
+        my ($parser, $paragraph, $line_num) = @_;
+        ## Translate/Format this block of text; sample actions might be:
+        my $out_fh = $parser->output_handle();
+        my $expansion = $parser->interpolate($paragraph, $line_num);
+        print $out_fh $expansion;
+    }
+
+    sub interior_sequence { 
+        my ($parser, $seq_command, $seq_argument) = @_;
+        ## Expand an interior sequence; sample actions might be:
+        return "*$seq_argument*"     if ($seq_command eq 'B');
+        return "`$seq_argument'"     if ($seq_command eq 'C');
+        return "_${seq_argument}_'"  if ($seq_command eq 'I');
+        ## ... other sequence commands and their resulting text
+    }
+
+    package main;
+
+    ## Create a parser object and have it parse file whose name was
+    ## given on the command-line (use STDIN if no files were given).
+    $parser = new MyParser();
+    $parser->parse_from_filehandle(\*STDIN)  if (@ARGV == 0);
+    for (@ARGV) { $parser->parse_from_file($_); }
+
+=head1 REQUIRES
+
+perl5.005, Pod::InputObjects, Exporter, Symbol, Carp
+
+=head1 EXPORTS
+
+Nothing.
+
+=head1 DESCRIPTION
+
+B<NOTE: This module is considered legacy; modern Perl releases (5.18 and
+higher) are going to remove Pod-Parser from core and use L<Pod-Simple>
+for all things POD.>
+
+B<Pod::Parser> is a base class for creating POD filters and translators.
+It handles most of the effort involved with parsing the POD sections
+from an input stream, leaving subclasses free to be concerned only with
+performing the actual translation of text.
+
+B<Pod::Parser> parses PODs, and makes method calls to handle the various
+components of the POD. Subclasses of B<Pod::Parser> override these methods
+to translate the POD into whatever output format they desire.
+
+=head1 QUICK OVERVIEW
+
+To create a POD filter for translating POD documentation into some other
+format, you create a subclass of B<Pod::Parser> which typically overrides
+just the base class implementation for the following methods:
+
+=over 2
+
+=item *
+
+B<command()>
+
+=item *
+
+B<verbatim()>
+
+=item *
+
+B<textblock()>
+
+=item *
+
+B<interior_sequence()>
+
+=back
+
+You may also want to override the B<begin_input()> and B<end_input()>
+methods for your subclass (to perform any needed per-file and/or
+per-document initialization or cleanup).
+
+If you need to perform any preprocessing of input before it is parsed
+you may want to override one or more of B<preprocess_line()> and/or
+B<preprocess_paragraph()>.
+
+Sometimes it may be necessary to make more than one pass over the input
+files. If this is the case you have several options. You can make the
+first pass using B<Pod::Parser> and override your methods to store the
+intermediate results in memory somewhere for the B<end_pod()> method to
+process. You could use B<Pod::Parser> for several passes with an
+appropriate state variable to control the operation for each pass. If
+your input source can't be reset to start at the beginning, you can
+store it in some other structure as a string or an array and have that
+structure implement a B<getline()> method (which is all that
+B<parse_from_filehandle()> uses to read input).
+
+Feel free to add any member data fields you need to keep track of things
+like current font, indentation, horizontal or vertical position, or
+whatever else you like. Be sure to read L<"PRIVATE METHODS AND DATA">
+to avoid name collisions.
+
+For the most part, the B<Pod::Parser> base class should be able to
+do most of the input parsing for you and leave you free to worry about
+how to interpret the commands and translate the result.
+
+Note that all we have described here in this quick overview is the
+simplest most straightforward use of B<Pod::Parser> to do stream-based
+parsing. It is also possible to use the B<Pod::Parser::parse_text> function
+to do more sophisticated tree-based parsing. See L<"TREE-BASED PARSING">.
+
+=head1 PARSING OPTIONS
+
+A I<parse-option> is simply a named option of B<Pod::Parser> with a
+value that corresponds to a certain specified behavior. These various
+behaviors of B<Pod::Parser> may be enabled/disabled by setting
+or unsetting one or more I<parse-options> using the B<parseopts()> method.
+The set of currently accepted parse-options is as follows:
+
+=over 3
+
+=item B<-want_nonPODs> (default: unset)
+
+Normally (by default) B<Pod::Parser> will only provide access to
+the POD sections of the input. Input paragraphs that are not part
+of the POD-format documentation are not made available to the caller
+(not even using B<preprocess_paragraph()>). Setting this option to a
+non-empty, non-zero value will allow B<preprocess_paragraph()> to see
+non-POD sections of the input as well as POD sections. The B<cutting()>
+method can be used to determine if the corresponding paragraph is a POD
+paragraph, or some other input paragraph.
+
+=item B<-process_cut_cmd> (default: unset)
+
+Normally (by default) B<Pod::Parser> handles the C<=cut> POD directive
+by itself and does not pass it on to the caller for processing. Setting
+this option to a non-empty, non-zero value will cause B<Pod::Parser> to
+pass the C<=cut> directive to the caller just like any other POD command
+(and hence it may be processed by the B<command()> method).
+
+B<Pod::Parser> will still interpret the C<=cut> directive to mean that
+"cutting mode" has been (re)entered, but the caller will get a chance
+to capture the actual C<=cut> paragraph itself for whatever purpose
+it desires.
+
+=item B<-warnings> (default: unset)
+
+Normally (by default) B<Pod::Parser> recognizes a bare minimum of
+pod syntax errors and warnings and issues diagnostic messages
+for errors, but not for warnings. (Use B<Pod::Checker> to do more
+thorough checking of POD syntax.) Setting this option to a non-empty,
+non-zero value will cause B<Pod::Parser> to issue diagnostics for
+the few warnings it recognizes as well as the errors.
+
+=back
+
+Please see L<"parseopts()"> for a complete description of the interface
+for the setting and unsetting of parse-options.
+
+=cut
+
+#############################################################################
+
+#use diagnostics;
+use Pod::InputObjects;
+use Carp;
+use Exporter;
+BEGIN {
+   if ($] < 5.006) {
+      require Symbol;
+      import Symbol;
+   }
+}
+@ISA = qw(Exporter);
+
+#############################################################################
+
+=head1 RECOMMENDED SUBROUTINE/METHOD OVERRIDES
+
+B<Pod::Parser> provides several methods which most subclasses will probably
+want to override. These methods are as follows:
+
+=cut
+
+##---------------------------------------------------------------------------
+
+=head1 B<command()>
+
+            $parser->command($cmd,$text,$line_num,$pod_para);
+
+This method should be overridden by subclasses to take the appropriate
+action when a POD command paragraph (denoted by a line beginning with
+"=") is encountered. When such a POD directive is seen in the input,
+this method is called and is passed:
+
+=over 3
+
+=item C<$cmd>
+
+the name of the command for this POD paragraph
+
+=item C<$text>
+
+the paragraph text for the given POD paragraph command.
+
+=item C<$line_num>
+
+the line-number of the beginning of the paragraph
+
+=item C<$pod_para>
+
+a reference to a C<Pod::Paragraph> object which contains further
+information about the paragraph command (see L<Pod::InputObjects>
+for details).
+
+=back
+
+B<Note> that this method I<is> called for C<=pod> paragraphs.
+
+The base class implementation of this method simply treats the raw POD
+command as normal block of paragraph text (invoking the B<textblock()>
+method with the command paragraph).
+
+=cut
+
+sub command {
+    my ($self, $cmd, $text, $line_num, $pod_para)  = @_;
+    ## Just treat this like a textblock
+    $self->textblock($pod_para->raw_text(), $line_num, $pod_para);
+}
+
+##---------------------------------------------------------------------------
+
+=head1 B<verbatim()>
+
+            $parser->verbatim($text,$line_num,$pod_para);
+
+This method may be overridden by subclasses to take the appropriate
+action when a block of verbatim text is encountered. It is passed the
+following parameters:
+
+=over 3
+
+=item C<$text>
+
+the block of text for the verbatim paragraph
+
+=item C<$line_num>
+
+the line-number of the beginning of the paragraph
+
+=item C<$pod_para>
+
+a reference to a C<Pod::Paragraph> object which contains further
+information about the paragraph (see L<Pod::InputObjects>
+for details).
+
+=back
+
+The base class implementation of this method simply prints the textblock
+(unmodified) to the output filehandle.
+
+=cut
+
+sub verbatim {
+    my ($self, $text, $line_num, $pod_para) = @_;
+    my $out_fh = $self->{_OUTPUT};
+    print $out_fh $text;
+}
+
+##---------------------------------------------------------------------------
+
+=head1 B<textblock()>
+
+            $parser->textblock($text,$line_num,$pod_para);
+
+This method may be overridden by subclasses to take the appropriate
+action when a normal block of POD text is encountered (although the base
+class method will usually do what you want). It is passed the following
+parameters:
+
+=over 3
+
+=item C<$text>
+
+the block of text for the a POD paragraph
+
+=item C<$line_num>
+
+the line-number of the beginning of the paragraph
+
+=item C<$pod_para>
+
+a reference to a C<Pod::Paragraph> object which contains further
+information about the paragraph (see L<Pod::InputObjects>
+for details).
+
+=back
+
+In order to process interior sequences, subclasses implementations of
+this method will probably want to invoke either B<interpolate()> or
+B<parse_text()>, passing it the text block C<$text>, and the corresponding
+line number in C<$line_num>, and then perform any desired processing upon
+the returned result.
+
+The base class implementation of this method simply prints the text block
+as it occurred in the input stream).
+
+=cut
+
+sub textblock {
+    my ($self, $text, $line_num, $pod_para) = @_;
+    my $out_fh = $self->{_OUTPUT};
+    print $out_fh $self->interpolate($text, $line_num);
+}
+
+##---------------------------------------------------------------------------
+
+=head1 B<interior_sequence()>
+
+            $parser->interior_sequence($seq_cmd,$seq_arg,$pod_seq);
+
+This method should be overridden by subclasses to take the appropriate
+action when an interior sequence is encountered. An interior sequence is
+an embedded command within a block of text which appears as a command
+name (usually a single uppercase character) followed immediately by a
+string of text which is enclosed in angle brackets. This method is
+passed the sequence command C<$seq_cmd> and the corresponding text
+C<$seq_arg>. It is invoked by the B<interpolate()> method for each interior
+sequence that occurs in the string that it is passed. It should return
+the desired text string to be used in place of the interior sequence.
+The C<$pod_seq> argument is a reference to a C<Pod::InteriorSequence>
+object which contains further information about the interior sequence.
+Please see L<Pod::InputObjects> for details if you need to access this
+additional information.
+
+Subclass implementations of this method may wish to invoke the 
+B<nested()> method of C<$pod_seq> to see if it is nested inside
+some other interior-sequence (and if so, which kind).
+
+The base class implementation of the B<interior_sequence()> method
+simply returns the raw text of the interior sequence (as it occurred
+in the input) to the caller.
+
+=cut
+
+sub interior_sequence {
+    my ($self, $seq_cmd, $seq_arg, $pod_seq) = @_;
+    ## Just return the raw text of the interior sequence
+    return  $pod_seq->raw_text();
+}
+
+#############################################################################
+
+=head1 OPTIONAL SUBROUTINE/METHOD OVERRIDES
+
+B<Pod::Parser> provides several methods which subclasses may want to override
+to perform any special pre/post-processing. These methods do I<not> have to
+be overridden, but it may be useful for subclasses to take advantage of them.
+
+=cut
+
+##---------------------------------------------------------------------------
+
+=head1 B<new()>
+
+            my $parser = Pod::Parser->new();
+
+This is the constructor for B<Pod::Parser> and its subclasses. You
+I<do not> need to override this method! It is capable of constructing
+subclass objects as well as base class objects, provided you use
+any of the following constructor invocation styles:
+
+    my $parser1 = MyParser->new();
+    my $parser2 = new MyParser();
+    my $parser3 = $parser2->new();
+
+where C<MyParser> is some subclass of B<Pod::Parser>.
+
+Using the syntax C<MyParser::new()> to invoke the constructor is I<not>
+recommended, but if you insist on being able to do this, then the
+subclass I<will> need to override the B<new()> constructor method. If
+you do override the constructor, you I<must> be sure to invoke the
+B<initialize()> method of the newly blessed object.
+
+Using any of the above invocations, the first argument to the
+constructor is always the corresponding package name (or object
+reference). No other arguments are required, but if desired, an
+associative array (or hash-table) my be passed to the B<new()>
+constructor, as in:
+
+    my $parser1 = MyParser->new( MYDATA => $value1, MOREDATA => $value2 );
+    my $parser2 = new MyParser( -myflag => 1 );
+
+All arguments passed to the B<new()> constructor will be treated as
+key/value pairs in a hash-table. The newly constructed object will be
+initialized by copying the contents of the given hash-table (which may
+have been empty). The B<new()> constructor for this class and all of its
+subclasses returns a blessed reference to the initialized object (hash-table).
+
+=cut
+
+sub new {
+    ## Determine if we were called via an object-ref or a classname
+    my ($this,%params) = @_;
+    my $class = ref($this) || $this;
+    ## Any remaining arguments are treated as initial values for the
+    ## hash that is used to represent this object.
+    my $self = { %params };
+    ## Bless ourselves into the desired class and perform any initialization
+    bless $self, $class;
+    $self->initialize();
+    return $self;
+}
+
+##---------------------------------------------------------------------------
+
+=head1 B<initialize()>
+
+            $parser->initialize();
+
+This method performs any necessary object initialization. It takes no
+arguments (other than the object instance of course, which is typically
+copied to a local variable named C<$self>). If subclasses override this
+method then they I<must> be sure to invoke C<$self-E<gt>SUPER::initialize()>.
+
+=cut
+
+sub initialize {
+    #my $self = shift;
+    #return;
+}
+
+##---------------------------------------------------------------------------
+
+=head1 B<begin_pod()>
+
+            $parser->begin_pod();
+
+This method is invoked at the beginning of processing for each POD
+document that is encountered in the input. Subclasses should override
+this method to perform any per-document initialization.
+
+=cut
+
+sub begin_pod {
+    #my $self = shift;
+    #return;
+}
+
+##---------------------------------------------------------------------------
+
+=head1 B<begin_input()>
+
+            $parser->begin_input();
+
+This method is invoked by B<parse_from_filehandle()> immediately I<before>
+processing input from a filehandle. The base class implementation does
+nothing, however, subclasses may override it to perform any per-file
+initializations.
+
+Note that if multiple files are parsed for a single POD document
+(perhaps the result of some future C<=include> directive) this method
+is invoked for every file that is parsed. If you wish to perform certain
+initializations once per document, then you should use B<begin_pod()>.
+
+=cut
+
+sub begin_input {
+    #my $self = shift;
+    #return;
+}
+
+##---------------------------------------------------------------------------
+
+=head1 B<end_input()>
+
+            $parser->end_input();
+
+This method is invoked by B<parse_from_filehandle()> immediately I<after>
+processing input from a filehandle. The base class implementation does
+nothing, however, subclasses may override it to perform any per-file
+cleanup actions.
+
+Please note that if multiple files are parsed for a single POD document
+(perhaps the result of some kind of C<=include> directive) this method
+is invoked for every file that is parsed. If you wish to perform certain
+cleanup actions once per document, then you should use B<end_pod()>.
+
+=cut
+
+sub end_input {
+    #my $self = shift;
+    #return;
+}
+
+##---------------------------------------------------------------------------
+
+=head1 B<end_pod()>
+
+            $parser->end_pod();
+
+This method is invoked at the end of processing for each POD document
+that is encountered in the input. Subclasses should override this method
+to perform any per-document finalization.
+
+=cut
+
+sub end_pod {
+    #my $self = shift;
+    #return;
+}
+
+##---------------------------------------------------------------------------
+
+=head1 B<preprocess_line()>
+
+          $textline = $parser->preprocess_line($text, $line_num);
+
+This method should be overridden by subclasses that wish to perform
+any kind of preprocessing for each I<line> of input (I<before> it has
+been determined whether or not it is part of a POD paragraph). The
+parameter C<$text> is the input line; and the parameter C<$line_num> is
+the line number of the corresponding text line.
+
+The value returned should correspond to the new text to use in its
+place.  If the empty string or an undefined value is returned then no
+further processing will be performed for this line.
+
+Please note that the B<preprocess_line()> method is invoked I<before>
+the B<preprocess_paragraph()> method. After all (possibly preprocessed)
+lines in a paragraph have been assembled together and it has been
+determined that the paragraph is part of the POD documentation from one
+of the selected sections, then B<preprocess_paragraph()> is invoked.
+
+The base class implementation of this method returns the given text.
+
+=cut
+
+sub preprocess_line {
+    my ($self, $text, $line_num) = @_;
+    return  $text;
+}
+
+##---------------------------------------------------------------------------
+
+=head1 B<preprocess_paragraph()>
+
+            $textblock = $parser->preprocess_paragraph($text, $line_num);
+
+This method should be overridden by subclasses that wish to perform any
+kind of preprocessing for each block (paragraph) of POD documentation
+that appears in the input stream. The parameter C<$text> is the POD
+paragraph from the input file; and the parameter C<$line_num> is the
+line number for the beginning of the corresponding paragraph.
+
+The value returned should correspond to the new text to use in its
+place If the empty string is returned or an undefined value is
+returned, then the given C<$text> is ignored (not processed).
+
+This method is invoked after gathering up all the lines in a paragraph
+and after determining the cutting state of the paragraph,
+but before trying to further parse or interpret them. After
+B<preprocess_paragraph()> returns, the current cutting state (which
+is returned by C<$self-E<gt>cutting()>) is examined. If it evaluates
+to true then input text (including the given C<$text>) is cut (not
+processed) until the next POD directive is encountered.
+
+Please note that the B<preprocess_line()> method is invoked I<before>
+the B<preprocess_paragraph()> method. After all (possibly preprocessed)
+lines in a paragraph have been assembled together and either it has been
+determined that the paragraph is part of the POD documentation from one
+of the selected sections or the C<-want_nonPODs> option is true,
+then B<preprocess_paragraph()> is invoked.
+
+The base class implementation of this method returns the given text.
+
+=cut
+
+sub preprocess_paragraph {
+    my ($self, $text, $line_num) = @_;
+    return  $text;
+}
+
+#############################################################################
+
+=head1 METHODS FOR PARSING AND PROCESSING
+
+B<Pod::Parser> provides several methods to process input text. These
+methods typically won't need to be overridden (and in some cases they
+can't be overridden), but subclasses may want to invoke them to exploit
+their functionality.
+
+=cut
+
+##---------------------------------------------------------------------------
+
+=head1 B<parse_text()>
+
+            $ptree1 = $parser->parse_text($text, $line_num);
+            $ptree2 = $parser->parse_text({%opts}, $text, $line_num);
+            $ptree3 = $parser->parse_text(\%opts, $text, $line_num);
+
+This method is useful if you need to perform your own interpolation 
+of interior sequences and can't rely upon B<interpolate> to expand
+them in simple bottom-up order.
+
+The parameter C<$text> is a string or block of text to be parsed
+for interior sequences; and the parameter C<$line_num> is the
+line number corresponding to the beginning of C<$text>.
+
+B<parse_text()> will parse the given text into a parse-tree of "nodes."
+and interior-sequences.  Each "node" in the parse tree is either a
+text-string, or a B<Pod::InteriorSequence>.  The result returned is a
+parse-tree of type B<Pod::ParseTree>. Please see L<Pod::InputObjects>
+for more information about B<Pod::InteriorSequence> and B<Pod::ParseTree>.
+
+If desired, an optional hash-ref may be specified as the first argument
+to customize certain aspects of the parse-tree that is created and
+returned. The set of recognized option keywords are:
+
+=over 3
+
+=item B<-expand_seq> =E<gt> I<code-ref>|I<method-name>
+
+Normally, the parse-tree returned by B<parse_text()> will contain an
+unexpanded C<Pod::InteriorSequence> object for each interior-sequence
+encountered. Specifying B<-expand_seq> tells B<parse_text()> to "expand"
+every interior-sequence it sees by invoking the referenced function
+(or named method of the parser object) and using the return value as the
+expanded result.
+
+If a subroutine reference was given, it is invoked as:
+
+  &$code_ref( $parser, $sequence )
+
+and if a method-name was given, it is invoked as:
+
+  $parser->method_name( $sequence )
+
+where C<$parser> is a reference to the parser object, and C<$sequence>
+is a reference to the interior-sequence object.
+[I<NOTE>: If the B<interior_sequence()> method is specified, then it is
+invoked according to the interface specified in L<"interior_sequence()">].
+
+=item B<-expand_text> =E<gt> I<code-ref>|I<method-name>
+
+Normally, the parse-tree returned by B<parse_text()> will contain a
+text-string for each contiguous sequence of characters outside of an
+interior-sequence. Specifying B<-expand_text> tells B<parse_text()> to
+"preprocess" every such text-string it sees by invoking the referenced
+function (or named method of the parser object) and using the return value
+as the preprocessed (or "expanded") result. [Note that if the result is
+an interior-sequence, then it will I<not> be expanded as specified by the
+B<-expand_seq> option; Any such recursive expansion needs to be handled by
+the specified callback routine.]
+
+If a subroutine reference was given, it is invoked as:
+
+  &$code_ref( $parser, $text, $ptree_node )
+
+and if a method-name was given, it is invoked as:
+
+  $parser->method_name( $text, $ptree_node )
+
+where C<$parser> is a reference to the parser object, C<$text> is the
+text-string encountered, and C<$ptree_node> is a reference to the current
+node in the parse-tree (usually an interior-sequence object or else the
+top-level node of the parse-tree).
+
+=item B<-expand_ptree> =E<gt> I<code-ref>|I<method-name>
+
+Rather than returning a C<Pod::ParseTree>, pass the parse-tree as an
+argument to the referenced subroutine (or named method of the parser
+object) and return the result instead of the parse-tree object.
+
+If a subroutine reference was given, it is invoked as:
+
+  &$code_ref( $parser, $ptree )
+
+and if a method-name was given, it is invoked as:
+
+  $parser->method_name( $ptree )
+
+where C<$parser> is a reference to the parser object, and C<$ptree>
+is a reference to the parse-tree object.
+
+=back
+
+=cut
+
+sub parse_text {
+    my $self = shift;
+    local $_ = '';
+
+    ## Get options and set any defaults
+    my %opts = (ref $_[0]) ? %{ shift() } : ();
+    my $expand_seq   = $opts{'-expand_seq'}   || undef;
+    my $expand_text  = $opts{'-expand_text'}  || undef;
+    my $expand_ptree = $opts{'-expand_ptree'} || undef;
+
+    my $text = shift;
+    my $line = shift;
+    my $file = $self->input_file();
+    my $cmd  = "";
+
+    ## Convert method calls into closures, for our convenience
+    my $xseq_sub   = $expand_seq;
+    my $xtext_sub  = $expand_text;
+    my $xptree_sub = $expand_ptree;
+    if (defined $expand_seq  and  $expand_seq eq 'interior_sequence') {
+        ## If 'interior_sequence' is the method to use, we have to pass
+        ## more than just the sequence object, we also need to pass the
+        ## sequence name and text.
+        $xseq_sub = sub {
+            my ($sself, $iseq) = @_;
+            my $args = join('', $iseq->parse_tree->children);
+            return  $sself->interior_sequence($iseq->name, $args, $iseq);
+        };
+    }
+    ref $xseq_sub    or  $xseq_sub   = sub { shift()->$expand_seq(@_) };
+    ref $xtext_sub   or  $xtext_sub  = sub { shift()->$expand_text(@_) };
+    ref $xptree_sub  or  $xptree_sub = sub { shift()->$expand_ptree(@_) };
+
+    ## Keep track of the "current" interior sequence, and maintain a stack
+    ## of "in progress" sequences.
+    ##
+    ## NOTE that we push our own "accumulator" at the very beginning of the
+    ## stack. It's really a parse-tree, not a sequence; but it implements
+    ## the methods we need so we can use it to gather-up all the sequences
+    ## and strings we parse. Thus, by the end of our parsing, it should be
+    ## the only thing left on our stack and all we have to do is return it!
+    ##
+    my $seq       = Pod::ParseTree->new();
+    my @seq_stack = ($seq);
+    my ($ldelim, $rdelim) = ('', '');
+
+    ## Iterate over all sequence starts text (NOTE: split with
+    ## capturing parens keeps the delimiters)
+    $_ = $text;
+    my @tokens = split /([A-Z]<(?:<+(?:\r?\n|[ \t]))?)/;
+    while ( @tokens ) {
+        $_ = shift @tokens;
+        ## Look for the beginning of a sequence
+        if ( /^([A-Z])(<(?:<+(?:\r?\n|[ \t]))?)$/ ) {
+            ## Push a new sequence onto the stack of those "in-progress"
+            my $ldelim_orig;
+            ($cmd, $ldelim_orig) = ($1, $2);
+            ($ldelim = $ldelim_orig) =~ s/\s+$//;
+            ($rdelim = $ldelim) =~ tr/</>/;
+            $seq = Pod::InteriorSequence->new(
+                       -name   => $cmd,
+                       -ldelim => $ldelim_orig,  -rdelim => $rdelim,
+                       -file   => $file,    -line   => $line
+                   );
+            (@seq_stack > 1)  and  $seq->nested($seq_stack[-1]);
+            push @seq_stack, $seq;
+        }
+        ## Look for sequence ending
+        elsif ( @seq_stack > 1 ) {
+            ## Make sure we match the right kind of closing delimiter
+            my ($seq_end, $post_seq) = ('', '');
+            if ( ($ldelim eq '<'   and  /\A(.*?)(>)/s)
+                 or  /\A(.*?)(\s+$rdelim)/s )
+            {
+                ## Found end-of-sequence, capture the interior and the
+                ## closing the delimiter, and put the rest back on the
+                ## token-list
+                $post_seq = substr($_, length($1) + length($2));
+                ($_, $seq_end) = ($1, $2);
+                (length $post_seq)  and  unshift @tokens, $post_seq;
+            }
+            if (length) {
+                ## In the middle of a sequence, append this text to it, and
+                ## don't forget to "expand" it if that's what the caller wanted
+                $seq->append($expand_text ? &$xtext_sub($self,$_,$seq) : $_);
+                $_ .= $seq_end;
+            }
+            if (length $seq_end) {
+                ## End of current sequence, record terminating delimiter
+                $seq->rdelim($seq_end);
+                ## Pop it off the stack of "in progress" sequences
+                pop @seq_stack;
+                ## Append result to its parent in current parse tree
+                $seq_stack[-1]->append($expand_seq ? &$xseq_sub($self,$seq)
+                                                   : $seq);
+                ## Remember the current cmd-name and left-delimiter
+                if(@seq_stack > 1) {
+                    $cmd = $seq_stack[-1]->name;
+                    $ldelim = $seq_stack[-1]->ldelim;
+                    $rdelim = $seq_stack[-1]->rdelim;
+                } else {
+                    $cmd = $ldelim = $rdelim = '';
+                }
+            }
+        }
+        elsif (length) {
+            ## In the middle of a sequence, append this text to it, and
+            ## don't forget to "expand" it if that's what the caller wanted
+            $seq->append($expand_text ? &$xtext_sub($self,$_,$seq) : $_);
+        }
+        ## Keep track of line count
+        $line += /\n/;
+        ## Remember the "current" sequence
+        $seq = $seq_stack[-1];
+    }
+
+    ## Handle unterminated sequences
+    my $errorsub = (@seq_stack > 1) ? $self->errorsub() : undef;
+    while (@seq_stack > 1) {
+       ($cmd, $file, $line) = ($seq->name, $seq->file_line);
+       $ldelim  = $seq->ldelim;
+       ($rdelim = $ldelim) =~ tr/</>/;
+       $rdelim  =~ s/^(\S+)(\s*)$/$2$1/;
+       pop @seq_stack;
+       my $errmsg = "*** ERROR: unterminated ${cmd}${ldelim}...${rdelim}".
+                    " at line $line in file $file\n";
+       (ref $errorsub) and &{$errorsub}($errmsg)
+           or (defined $errorsub) and $self->$errorsub($errmsg)
+               or  carp($errmsg);
+       $seq_stack[-1]->append($expand_seq ? &$xseq_sub($self,$seq) : $seq);
+       $seq = $seq_stack[-1];
+    }
+
+    ## Return the resulting parse-tree
+    my $ptree = (pop @seq_stack)->parse_tree;
+    return  $expand_ptree ? &$xptree_sub($self, $ptree) : $ptree;
+}
+
+##---------------------------------------------------------------------------
+
+=head1 B<interpolate()>
+
+            $textblock = $parser->interpolate($text, $line_num);
+
+This method translates all text (including any embedded interior sequences)
+in the given text string C<$text> and returns the interpolated result. The
+parameter C<$line_num> is the line number corresponding to the beginning
+of C<$text>.
+
+B<interpolate()> merely invokes a private method to recursively expand
+nested interior sequences in bottom-up order (innermost sequences are
+expanded first). If there is a need to expand nested sequences in
+some alternate order, use B<parse_text> instead.
+
+=cut
+
+sub interpolate {
+    my($self, $text, $line_num) = @_;
+    my %parse_opts = ( -expand_seq => 'interior_sequence' );
+    my $ptree = $self->parse_text( \%parse_opts, $text, $line_num );
+    return  join '', $ptree->children();
+}
+
+##---------------------------------------------------------------------------
+
+=begin __PRIVATE__
+
+=head1 B<parse_paragraph()>
+
+            $parser->parse_paragraph($text, $line_num);
+
+This method takes the text of a POD paragraph to be processed, along
+with its corresponding line number, and invokes the appropriate method
+(one of B<command()>, B<verbatim()>, or B<textblock()>).
+
+For performance reasons, this method is invoked directly without any
+dynamic lookup; Hence subclasses may I<not> override it!
+
+=end __PRIVATE__
+
+=cut
+
+sub parse_paragraph {
+    my ($self, $text, $line_num) = @_;
+    local *myData = $self;  ## alias to avoid deref-ing overhead
+    local *myOpts = ($myData{_PARSEOPTS} ||= {});  ## get parse-options
+    local $_;
+
+    ## See if we want to preprocess nonPOD paragraphs as well as POD ones.
+    my $wantNonPods = $myOpts{'-want_nonPODs'};
+
+    ## Update cutting status
+    $myData{_CUTTING} = 0 if $text =~ /^={1,2}\S/;
+
+    ## Perform any desired preprocessing if we wanted it this early
+    $wantNonPods  and  $text = $self->preprocess_paragraph($text, $line_num);
+
+    ## Ignore up until next POD directive if we are cutting
+    return if $myData{_CUTTING};
+
+    ## Now we know this is block of text in a POD section!
+
+    ##-----------------------------------------------------------------
+    ## This is a hook (hack ;-) for Pod::Select to do its thing without
+    ## having to override methods, but also without Pod::Parser assuming
+    ## $self is an instance of Pod::Select (if the _SELECTED_SECTIONS
+    ## field exists then we assume there is an is_selected() method for
+    ## us to invoke (calling $self->can('is_selected') could verify this
+    ## but that is more overhead than I want to incur)
+    ##-----------------------------------------------------------------
+
+    ## Ignore this block if it isn't in one of the selected sections
+    if (exists $myData{_SELECTED_SECTIONS}) {
+        $self->is_selected($text)  or  return ($myData{_CUTTING} = 1);
+    }
+
+    ## If we haven't already, perform any desired preprocessing and
+    ## then re-check the "cutting" state
+    unless ($wantNonPods) {
+       $text = $self->preprocess_paragraph($text, $line_num);
+       return 1  unless ((defined $text) and (length $text));
+       return 1  if ($myData{_CUTTING});
+    }
+
+    ## Look for one of the three types of paragraphs
+    my ($pfx, $cmd, $arg, $sep) = ('', '', '', '');
+    my $pod_para = undef;
+    if ($text =~ /^(={1,2})(?=\S)/) {
+        ## Looks like a command paragraph. Capture the command prefix used
+        ## ("=" or "=="), as well as the command-name, its paragraph text,
+        ## and whatever sequence of characters was used to separate them
+        $pfx = $1;
+        $_ = substr($text, length $pfx);
+        ($cmd, $sep, $text) = split /(\s+)/, $_, 2;
+        $sep = '' unless defined $sep;
+        $text = '' unless defined $text;
+        ## If this is a "cut" directive then we don't need to do anything
+        ## except return to "cutting" mode.
+        if ($cmd eq 'cut') {
+           $myData{_CUTTING} = 1;
+           return  unless $myOpts{'-process_cut_cmd'};
+        }
+    }
+    ## Save the attributes indicating how the command was specified.
+    $pod_para = new Pod::Paragraph(
+          -name      => $cmd,
+          -text      => $text,
+          -prefix    => $pfx,
+          -separator => $sep,
+          -file      => $myData{_INFILE},
+          -line      => $line_num
+    );
+    # ## Invoke appropriate callbacks
+    # if (exists $myData{_CALLBACKS}) {
+    #    ## Look through the callback list, invoke callbacks,
+    #    ## then see if we need to do the default actions
+    #    ## (invoke_callbacks will return true if we do).
+    #    return  1  unless $self->invoke_callbacks($cmd, $text, $line_num, $pod_para);
+    # }
+
+    # If the last paragraph ended in whitespace, and we're not between verbatim blocks, carp
+    if ($myData{_WHITESPACE} and $myOpts{'-warnings'}
+            and not ($text =~ /^\s+/ and ($myData{_PREVIOUS}||"") eq "verbatim")) {
+        my $errorsub = $self->errorsub();
+        my $line = $line_num - 1;
+        my $errmsg = "*** WARNING: line containing nothing but whitespace".
+                     " in paragraph at line $line in file $myData{_INFILE}\n";
+        (ref $errorsub) and &{$errorsub}($errmsg)
+            or (defined $errorsub) and $self->$errorsub($errmsg)
+                or  carp($errmsg);
+    }
+
+    if (length $cmd) {
+        ## A command paragraph
+        $self->command($cmd, $text, $line_num, $pod_para);
+        $myData{_PREVIOUS} = $cmd;
+    }
+    elsif ($text =~ /^\s+/) {
+        ## Indented text - must be a verbatim paragraph
+        $self->verbatim($text, $line_num, $pod_para);
+        $myData{_PREVIOUS} = "verbatim";
+    }
+    else {
+        ## Looks like an ordinary block of text
+        $self->textblock($text, $line_num, $pod_para);
+        $myData{_PREVIOUS} = "textblock";
+    }
+
+    # Update the whitespace for the next time around
+    #$myData{_WHITESPACE} = $text =~ /^[^\S\r\n]+\Z/m ? 1 : 0;
+    $myData{_WHITESPACE} = $text =~ /^[^\S\r\n]+\r*\Z/m ? 1 : 0;
+
+    return  1;
+}
+
+##---------------------------------------------------------------------------
+
+=head1 B<parse_from_filehandle()>
+
+            $parser->parse_from_filehandle($in_fh,$out_fh);
+
+This method takes an input filehandle (which is assumed to already be
+opened for reading) and reads the entire input stream looking for blocks
+(paragraphs) of POD documentation to be processed. If no first argument
+is given the default input filehandle C<STDIN> is used.
+
+The C<$in_fh> parameter may be any object that provides a B<getline()>
+method to retrieve a single line of input text (hence, an appropriate
+wrapper object could be used to parse PODs from a single string or an
+array of strings).
+
+Using C<$in_fh-E<gt>getline()>, input is read line-by-line and assembled
+into paragraphs or "blocks" (which are separated by lines containing
+nothing but whitespace). For each block of POD documentation
+encountered it will invoke a method to parse the given paragraph.
+
+If a second argument is given then it should correspond to a filehandle where
+output should be sent (otherwise the default output filehandle is
+C<STDOUT> if no output filehandle is currently in use).
+
+B<NOTE:> For performance reasons, this method caches the input stream at
+the top of the stack in a local variable. Any attempts by clients to
+change the stack contents during processing when in the midst executing
+of this method I<will not affect> the input stream used by the current
+invocation of this method.
+
+This method does I<not> usually need to be overridden by subclasses.
+
+=cut
+
+sub parse_from_filehandle {
+    my $self = shift;
+    my %opts = (ref $_[0] eq 'HASH') ? %{ shift() } : ();
+    my ($in_fh, $out_fh) = @_;
+    $in_fh = \*STDIN  unless ($in_fh);
+    local *myData = $self;  ## alias to avoid deref-ing overhead
+    local *myOpts = ($myData{_PARSEOPTS} ||= {});  ## get parse-options
+    local $_;
+
+    ## Put this stream at the top of the stack and do beginning-of-input
+    ## processing. NOTE that $in_fh might be reset during this process.
+    my $topstream = $self->_push_input_stream($in_fh, $out_fh);
+    (exists $opts{-cutting})  and  $self->cutting( $opts{-cutting} );
+
+    ## Initialize line/paragraph
+    my ($textline, $paragraph) = ('', '');
+    my ($nlines, $plines) = (0, 0);
+
+    ## Use <$fh> instead of $fh->getline where possible (for speed)
+    $_ = ref $in_fh;
+    my $tied_fh = (/^(?:GLOB|FileHandle|IO::\w+)$/  or  tied $in_fh);
+
+    ## Read paragraphs line-by-line
+    while (defined ($textline = $tied_fh ? <$in_fh> : $in_fh->getline)) {
+        $textline = $self->preprocess_line($textline, ++$nlines);
+        next  unless ((defined $textline)  &&  (length $textline));
+
+        if ((! length $paragraph) && ($textline =~ /^==/)) {
+            ## '==' denotes a one-line command paragraph
+            $paragraph = $textline;
+            $plines    = 1;
+            $textline  = '';
+        } else {
+            ## Append this line to the current paragraph
+            $paragraph .= $textline;
+            ++$plines;
+        }
+
+        ## See if this line is blank and ends the current paragraph.
+        ## If it isn't, then keep iterating until it is.
+        next unless (($textline =~ /^[^\S\r\n]*[\r\n]*$/)
+                                     && (length $paragraph));
+
+        ## Now process the paragraph
+        parse_paragraph($self, $paragraph, ($nlines - $plines) + 1);
+        $paragraph = '';
+        $plines = 0;
+    }
+    ## Don't forget about the last paragraph in the file
+    if (length $paragraph) {
+       parse_paragraph($self, $paragraph, ($nlines - $plines) + 1)
+    }
+
+    ## Now pop the input stream off the top of the input stack.
+    $self->_pop_input_stream();
+}
+
+##---------------------------------------------------------------------------
+
+=head1 B<parse_from_file()>
+
+            $parser->parse_from_file($filename,$outfile);
+
+This method takes a filename and does the following:
+
+=over 2
+
+=item *
+
+opens the input and output files for reading
+(creating the appropriate filehandles)
+
+=item *
+
+invokes the B<parse_from_filehandle()> method passing it the
+corresponding input and output filehandles.
+
+=item *
+
+closes the input and output files.
+
+=back
+
+If the special input filename "", "-" or "<&STDIN" is given then the STDIN
+filehandle is used for input (and no open or close is performed). If no
+input filename is specified then "-" is implied. Filehandle references,
+or objects that support the regular IO operations (like C<E<lt>$fhE<gt>>
+or C<$fh-<Egt>getline>) are also accepted; the handles must already be 
+opened.
+
+If a second argument is given then it should be the name of the desired
+output file. If the special output filename "-" or ">&STDOUT" is given
+then the STDOUT filehandle is used for output (and no open or close is
+performed). If the special output filename ">&STDERR" is given then the
+STDERR filehandle is used for output (and no open or close is
+performed). If no output filehandle is currently in use and no output
+filename is specified, then "-" is implied.
+Alternatively, filehandle references or objects that support the regular
+IO operations (like C<print>, e.g. L<IO::String>) are also accepted;
+the object must already be opened.
+
+This method does I<not> usually need to be overridden by subclasses.
+
+=cut
+
+sub parse_from_file {
+    my $self = shift;
+    my %opts = (ref $_[0] eq 'HASH') ? %{ shift() } : ();
+    my ($infile, $outfile) = @_;
+    my ($in_fh,  $out_fh);
+    if ($] < 5.006) {
+      ($in_fh,  $out_fh) = (gensym(), gensym());
+    }
+    my ($close_input, $close_output) = (0, 0);
+    local *myData = $self;
+    local *_;
+
+    ## Is $infile a filename or a (possibly implied) filehandle
+    if (defined $infile && ref $infile) {
+        if (ref($infile) =~ /^(SCALAR|ARRAY|HASH|CODE|REF)$/) {
+            croak "Input from $1 reference not supported!\n";
+        }
+        ## Must be a filehandle-ref (or else assume its a ref to an object
+        ## that supports the common IO read operations).
+        $myData{_INFILE} = ${$infile};
+        $in_fh = $infile;
+    }
+    elsif (!defined($infile) || !length($infile) || ($infile eq '-')
+        || ($infile =~ /^<&(?:STDIN|0)$/i))
+    {
+        ## Not a filename, just a string implying STDIN
+        $infile ||= '-';
+        $myData{_INFILE} = '<standard input>';
+        $in_fh = \*STDIN;
+    }
+    else {
+        ## We have a filename, open it for reading
+        $myData{_INFILE} = $infile;
+        open($in_fh, "< $infile")  or
+             croak "Can't open $infile for reading: $!\n";
+        $close_input = 1;
+    }
+
+    ## NOTE: we need to be *very* careful when "defaulting" the output
+    ## file. We only want to use a default if this is the beginning of
+    ## the entire document (but *not* if this is an included file). We
+    ## determine this by seeing if the input stream stack has been set-up
+    ## already
+
+    ## Is $outfile a filename, a (possibly implied) filehandle, maybe a ref?
+    if (ref $outfile) {
+        ## we need to check for ref() first, as other checks involve reading
+        if (ref($outfile) =~ /^(ARRAY|HASH|CODE)$/) {
+            croak "Output to $1 reference not supported!\n";
+        }
+        elsif (ref($outfile) eq 'SCALAR') {
+#           # NOTE: IO::String isn't a part of the perl distribution,
+#           #       so probably we shouldn't support this case...
+#           require IO::String;
+#           $myData{_OUTFILE} = "$outfile";
+#           $out_fh = IO::String->new($outfile);
+            croak "Output to SCALAR reference not supported!\n";
+        }
+        else {
+            ## Must be a filehandle-ref (or else assume its a ref to an
+            ## object that supports the common IO write operations).
+            $myData{_OUTFILE} = ${$outfile};
+            $out_fh = $outfile;
+        }
+    }
+    elsif (!defined($outfile) || !length($outfile) || ($outfile eq '-')
+        || ($outfile =~ /^>&?(?:STDOUT|1)$/i))
+    {
+        if (defined $myData{_TOP_STREAM}) {
+            $out_fh = $myData{_OUTPUT};
+        }
+        else {
+            ## Not a filename, just a string implying STDOUT
+            $outfile ||= '-';
+            $myData{_OUTFILE} = '<standard output>';
+            $out_fh  = \*STDOUT;
+        }
+    }
+    elsif ($outfile =~ /^>&(STDERR|2)$/i) {
+        ## Not a filename, just a string implying STDERR
+        $myData{_OUTFILE} = '<standard error>';
+        $out_fh  = \*STDERR;
+    }
+    else {
+        ## We have a filename, open it for writing
+        $myData{_OUTFILE} = $outfile;
+        (-d $outfile) and croak "$outfile is a directory, not POD input!\n";
+        open($out_fh, "> $outfile")  or
+             croak "Can't open $outfile for writing: $!\n";
+        $close_output = 1;
+    }
+
+    ## Whew! That was a lot of work to set up reasonably/robust behavior
+    ## in the case of a non-filename for reading and writing. Now we just
+    ## have to parse the input and close the handles when we're finished.
+    $self->parse_from_filehandle(\%opts, $in_fh, $out_fh);
+
+    $close_input  and
+        close($in_fh) || croak "Can't close $infile after reading: $!\n";
+    $close_output  and
+        close($out_fh) || croak "Can't close $outfile after writing: $!\n";
+}
+
+#############################################################################
+
+=head1 ACCESSOR METHODS
+
+Clients of B<Pod::Parser> should use the following methods to access
+instance data fields:
+
+=cut
+
+##---------------------------------------------------------------------------
+
+=head1 B<errorsub()>
+
+            $parser->errorsub("method_name");
+            $parser->errorsub(\&warn_user);
+            $parser->errorsub(sub { print STDERR, @_ });
+
+Specifies the method or subroutine to use when printing error messages
+about POD syntax. The supplied method/subroutine I<must> return TRUE upon
+successful printing of the message. If C<undef> is given, then the B<carp>
+builtin is used to issue error messages (this is the default behavior).
+
+            my $errorsub = $parser->errorsub()
+            my $errmsg = "This is an error message!\n"
+            (ref $errorsub) and &{$errorsub}($errmsg)
+                or (defined $errorsub) and $parser->$errorsub($errmsg)
+                    or  carp($errmsg);
+
+Returns a method name, or else a reference to the user-supplied subroutine
+used to print error messages. Returns C<undef> if the B<carp> builtin
+is used to issue error messages (this is the default behavior).
+
+=cut
+
+sub errorsub {
+   return (@_ > 1) ? ($_[0]->{_ERRORSUB} = $_[1]) : $_[0]->{_ERRORSUB};
+}
+
+##---------------------------------------------------------------------------
+
+=head1 B<cutting()>
+
+            $boolean = $parser->cutting();
+
+Returns the current C<cutting> state: a boolean-valued scalar which
+evaluates to true if text from the input file is currently being "cut"
+(meaning it is I<not> considered part of the POD document).
+
+            $parser->cutting($boolean);
+
+Sets the current C<cutting> state to the given value and returns the
+result.
+
+=cut
+
+sub cutting {
+   return (@_ > 1) ? ($_[0]->{_CUTTING} = $_[1]) : $_[0]->{_CUTTING};
+}
+
+##---------------------------------------------------------------------------
+
+##---------------------------------------------------------------------------
+
+=head1 B<parseopts()>
+
+When invoked with no additional arguments, B<parseopts> returns a hashtable
+of all the current parsing options.
+
+            ## See if we are parsing non-POD sections as well as POD ones
+            my %opts = $parser->parseopts();
+            $opts{'-want_nonPODs}' and print "-want_nonPODs\n";
+
+When invoked using a single string, B<parseopts> treats the string as the
+name of a parse-option and returns its corresponding value if it exists
+(returns C<undef> if it doesn't).
+
+            ## Did we ask to see '=cut' paragraphs?
+            my $want_cut = $parser->parseopts('-process_cut_cmd');
+            $want_cut and print "-process_cut_cmd\n";
+
+When invoked with multiple arguments, B<parseopts> treats them as
+key/value pairs and the specified parse-option names are set to the
+given values. Any unspecified parse-options are unaffected.
+
+            ## Set them back to the default
+            $parser->parseopts(-warnings => 0);
+
+When passed a single hash-ref, B<parseopts> uses that hash to completely
+reset the existing parse-options, all previous parse-option values
+are lost.
+
+            ## Reset all options to default 
+            $parser->parseopts( { } );
+
+See L<"PARSING OPTIONS"> for more information on the name and meaning of each
+parse-option currently recognized.
+
+=cut
+
+sub parseopts {
+   local *myData = shift;
+   local *myOpts = ($myData{_PARSEOPTS} ||= {});
+   return %myOpts  if (@_ == 0);
+   if (@_ == 1) {
+      local $_ = shift;
+      return  ref($_)  ?  $myData{_PARSEOPTS} = $_  :  $myOpts{$_};
+   }
+   my @newOpts = (%myOpts, @_);
+   $myData{_PARSEOPTS} = { @newOpts };
+}
+
+##---------------------------------------------------------------------------
+
+=head1 B<output_file()>
+
+            $fname = $parser->output_file();
+
+Returns the name of the output file being written.
+
+=cut
+
+sub output_file {
+   return $_[0]->{_OUTFILE};
+}
+
+##---------------------------------------------------------------------------
+
+=head1 B<output_handle()>
+
+            $fhandle = $parser->output_handle();
+
+Returns the output filehandle object.
+
+=cut
+
+sub output_handle {
+   return $_[0]->{_OUTPUT};
+}
+
+##---------------------------------------------------------------------------
+
+=head1 B<input_file()>
+
+            $fname = $parser->input_file();
+
+Returns the name of the input file being read.
+
+=cut
+
+sub input_file {
+   return $_[0]->{_INFILE};
+}
+
+##---------------------------------------------------------------------------
+
+=head1 B<input_handle()>
+
+            $fhandle = $parser->input_handle();
+
+Returns the current input filehandle object.
+
+=cut
+
+sub input_handle {
+   return $_[0]->{_INPUT};
+}
+
+##---------------------------------------------------------------------------
+
+=begin __PRIVATE__
+
+=head1 B<input_streams()>
+
+            $listref = $parser->input_streams();
+
+Returns a reference to an array which corresponds to the stack of all
+the input streams that are currently in the middle of being parsed.
+
+While parsing an input stream, it is possible to invoke
+B<parse_from_file()> or B<parse_from_filehandle()> to parse a new input
+stream and then return to parsing the previous input stream. Each input
+stream to be parsed is pushed onto the end of this input stack
+before any of its input is read. The input stream that is currently
+being parsed is always at the end (or top) of the input stack. When an
+input stream has been exhausted, it is popped off the end of the
+input stack.
+
+Each element on this input stack is a reference to C<Pod::InputSource>
+object. Please see L<Pod::InputObjects> for more details.
+
+This method might be invoked when printing diagnostic messages, for example,
+to obtain the name and line number of the all input files that are currently
+being processed.
+
+=end __PRIVATE__
+
+=cut
+
+sub input_streams {
+   return $_[0]->{_INPUT_STREAMS};
+}
+
+##---------------------------------------------------------------------------
+
+=begin __PRIVATE__
+
+=head1 B<top_stream()>
+
+            $hashref = $parser->top_stream();
+
+Returns a reference to the hash-table that represents the element
+that is currently at the top (end) of the input stream stack
+(see L<"input_streams()">). The return value will be the C<undef>
+if the input stack is empty.
+
+This method might be used when printing diagnostic messages, for example,
+to obtain the name and line number of the current input file.
+
+=end __PRIVATE__
+
+=cut
+
+sub top_stream {
+   return $_[0]->{_TOP_STREAM} || undef;
+}
+
+#############################################################################
+
+=head1 PRIVATE METHODS AND DATA
+
+B<Pod::Parser> makes use of several internal methods and data fields
+which clients should not need to see or use. For the sake of avoiding
+name collisions for client data and methods, these methods and fields
+are briefly discussed here. Determined hackers may obtain further
+information about them by reading the B<Pod::Parser> source code.
+
+Private data fields are stored in the hash-object whose reference is
+returned by the B<new()> constructor for this class. The names of all
+private methods and data-fields used by B<Pod::Parser> begin with a
+prefix of "_" and match the regular expression C</^_\w+$/>.
+
+=cut
+
+##---------------------------------------------------------------------------
+
+=begin _PRIVATE_
+
+=head1 B<_push_input_stream()>
+
+            $hashref = $parser->_push_input_stream($in_fh,$out_fh);
+
+This method will push the given input stream on the input stack and
+perform any necessary beginning-of-document or beginning-of-file
+processing. The argument C<$in_fh> is the input stream filehandle to
+push, and C<$out_fh> is the corresponding output filehandle to use (if
+it is not given or is undefined, then the current output stream is used,
+which defaults to standard output if it doesnt exist yet).
+
+The value returned will be reference to the hash-table that represents
+the new top of the input stream stack. I<Please Note> that it is
+possible for this method to use default values for the input and output
+file handles. If this happens, you will need to look at the C<INPUT>
+and C<OUTPUT> instance data members to determine their new values.
+
+=end _PRIVATE_
+
+=cut
+
+sub _push_input_stream {
+    my ($self, $in_fh, $out_fh) = @_;
+    local *myData = $self;
+
+    ## Initialize stuff for the entire document if this is *not*
+    ## an included file.
+    ##
+    ## NOTE: we need to be *very* careful when "defaulting" the output
+    ## filehandle. We only want to use a default value if this is the
+    ## beginning of the entire document (but *not* if this is an included
+    ## file).
+    unless (defined  $myData{_TOP_STREAM}) {
+        $out_fh  = \*STDOUT  unless (defined $out_fh);
+        $myData{_CUTTING}       = 1;   ## current "cutting" state
+        $myData{_INPUT_STREAMS} = [];  ## stack of all input streams
+    }
+
+    ## Initialize input indicators
+    $myData{_OUTFILE} = '(unknown)'  unless (defined  $myData{_OUTFILE});
+    $myData{_OUTPUT}  = $out_fh      if (defined  $out_fh);
+    $in_fh            = \*STDIN      unless (defined  $in_fh);
+    $myData{_INFILE}  = '(unknown)'  unless (defined  $myData{_INFILE});
+    $myData{_INPUT}   = $in_fh;
+    my $input_top     = $myData{_TOP_STREAM}
+                      = new Pod::InputSource(
+                            -name        => $myData{_INFILE},
+                            -handle      => $in_fh,
+                            -was_cutting => $myData{_CUTTING}
+                        );
+    local *input_stack = $myData{_INPUT_STREAMS};
+    push(@input_stack, $input_top);
+
+    ## Perform beginning-of-document and/or beginning-of-input processing
+    $self->begin_pod()  if (@input_stack == 1);
+    $self->begin_input();
+
+    return  $input_top;
+}
+
+##---------------------------------------------------------------------------
+
+=begin _PRIVATE_
+
+=head1 B<_pop_input_stream()>
+
+            $hashref = $parser->_pop_input_stream();
+
+This takes no arguments. It will perform any necessary end-of-file or
+end-of-document processing and then pop the current input stream from
+the top of the input stack.
+
+The value returned will be reference to the hash-table that represents
+the new top of the input stream stack.
+
+=end _PRIVATE_
+
+=cut
+
+sub _pop_input_stream {
+    my ($self) = @_;
+    local *myData = $self;
+    local *input_stack = $myData{_INPUT_STREAMS};
+
+    ## Perform end-of-input and/or end-of-document processing
+    $self->end_input()  if (@input_stack > 0);
+    $self->end_pod()    if (@input_stack == 1);
+
+    ## Restore cutting state to whatever it was before we started
+    ## parsing this file.
+    my $old_top = pop(@input_stack);
+    $myData{_CUTTING} = $old_top->was_cutting();
+
+    ## Don't forget to reset the input indicators
+    my $input_top = undef;
+    if (@input_stack > 0) {
+       $input_top = $myData{_TOP_STREAM} = $input_stack[-1];
+       $myData{_INFILE}  = $input_top->name();
+       $myData{_INPUT}   = $input_top->handle();
+    } else {
+       delete $myData{_TOP_STREAM};
+       delete $myData{_INPUT_STREAMS};
+    }
+
+    return  $input_top;
+}
+
+#############################################################################
+
+=head1 TREE-BASED PARSING
+
+If straightforward stream-based parsing wont meet your needs (as is
+likely the case for tasks such as translating PODs into structured
+markup languages like HTML and XML) then you may need to take the
+tree-based approach. Rather than doing everything in one pass and
+calling the B<interpolate()> method to expand sequences into text, it
+may be desirable to instead create a parse-tree using the B<parse_text()>
+method to return a tree-like structure which may contain an ordered
+list of children (each of which may be a text-string, or a similar
+tree-like structure).
+
+Pay special attention to L<"METHODS FOR PARSING AND PROCESSING"> and
+to the objects described in L<Pod::InputObjects>. The former describes
+the gory details and parameters for how to customize and extend the
+parsing behavior of B<Pod::Parser>. B<Pod::InputObjects> provides
+several objects that may all be used interchangeably as parse-trees. The
+most obvious one is the B<Pod::ParseTree> object. It defines the basic
+interface and functionality that all things trying to be a POD parse-tree
+should do. A B<Pod::ParseTree> is defined such that each "node" may be a
+text-string, or a reference to another parse-tree.  Each B<Pod::Paragraph>
+object and each B<Pod::InteriorSequence> object also supports the basic
+parse-tree interface.
+
+The B<parse_text()> method takes a given paragraph of text, and
+returns a parse-tree that contains one or more children, each of which
+may be a text-string, or an InteriorSequence object. There are also
+callback-options that may be passed to B<parse_text()> to customize
+the way it expands or transforms interior-sequences, as well as the
+returned result. These callbacks can be used to create a parse-tree
+with custom-made objects (which may or may not support the parse-tree
+interface, depending on how you choose to do it).
+
+If you wish to turn an entire POD document into a parse-tree, that process
+is fairly straightforward. The B<parse_text()> method is the key to doing
+this successfully. Every paragraph-callback (i.e. the polymorphic methods
+for B<command()>, B<verbatim()>, and B<textblock()> paragraphs) takes
+a B<Pod::Paragraph> object as an argument. Each paragraph object has a
+B<parse_tree()> method that can be used to get or set a corresponding
+parse-tree. So for each of those paragraph-callback methods, simply call
+B<parse_text()> with the options you desire, and then use the returned
+parse-tree to assign to the given paragraph object.
+
+That gives you a parse-tree for each paragraph - so now all you need is
+an ordered list of paragraphs. You can maintain that yourself as a data
+element in the object/hash. The most straightforward way would be simply
+to use an array-ref, with the desired set of custom "options" for each
+invocation of B<parse_text>. Let's assume the desired option-set is
+given by the hash C<%options>. Then we might do something like the
+following:
+
+    package MyPodParserTree;
+
+    @ISA = qw( Pod::Parser );
+
+    ...
+
+    sub begin_pod {
+        my $self = shift;
+        $self->{'-paragraphs'} = [];  ## initialize paragraph list
+    }
+
+    sub command { 
+        my ($parser, $command, $paragraph, $line_num, $pod_para) = @_;
+        my $ptree = $parser->parse_text({%options}, $paragraph, ...);
+        $pod_para->parse_tree( $ptree );
+        push @{ $self->{'-paragraphs'} }, $pod_para;
+    }
+
+    sub verbatim { 
+        my ($parser, $paragraph, $line_num, $pod_para) = @_;
+        push @{ $self->{'-paragraphs'} }, $pod_para;
+    }
+
+    sub textblock { 
+        my ($parser, $paragraph, $line_num, $pod_para) = @_;
+        my $ptree = $parser->parse_text({%options}, $paragraph, ...);
+        $pod_para->parse_tree( $ptree );
+        push @{ $self->{'-paragraphs'} }, $pod_para;
+    }
+
+    ...
+
+    package main;
+    ...
+    my $parser = new MyPodParserTree(...);
+    $parser->parse_from_file(...);
+    my $paragraphs_ref = $parser->{'-paragraphs'};
+
+Of course, in this module-author's humble opinion, I'd be more inclined to
+use the existing B<Pod::ParseTree> object than a simple array. That way
+everything in it, paragraphs and sequences, all respond to the same core
+interface for all parse-tree nodes. The result would look something like:
+
+    package MyPodParserTree2;
+
+    ...
+
+    sub begin_pod {
+        my $self = shift;
+        $self->{'-ptree'} = new Pod::ParseTree;  ## initialize parse-tree
+    }
+
+    sub parse_tree {
+        ## convenience method to get/set the parse-tree for the entire POD
+        (@_ > 1)  and  $_[0]->{'-ptree'} = $_[1];
+        return $_[0]->{'-ptree'};
+    }
+
+    sub command { 
+        my ($parser, $command, $paragraph, $line_num, $pod_para) = @_;
+        my $ptree = $parser->parse_text({<<options>>}, $paragraph, ...);
+        $pod_para->parse_tree( $ptree );
+        $parser->parse_tree()->append( $pod_para );
+    }
+
+    sub verbatim { 
+        my ($parser, $paragraph, $line_num, $pod_para) = @_;
+        $parser->parse_tree()->append( $pod_para );
+    }
+
+    sub textblock { 
+        my ($parser, $paragraph, $line_num, $pod_para) = @_;
+        my $ptree = $parser->parse_text({<<options>>}, $paragraph, ...);
+        $pod_para->parse_tree( $ptree );
+        $parser->parse_tree()->append( $pod_para );
+    }
+
+    ...
+
+    package main;
+    ...
+    my $parser = new MyPodParserTree2(...);
+    $parser->parse_from_file(...);
+    my $ptree = $parser->parse_tree;
+    ...
+
+Now you have the entire POD document as one great big parse-tree. You
+can even use the B<-expand_seq> option to B<parse_text> to insert
+whole different kinds of objects. Just don't expect B<Pod::Parser>
+to know what to do with them after that. That will need to be in your
+code. Or, alternatively, you can insert any object you like so long as
+it conforms to the B<Pod::ParseTree> interface.
+
+One could use this to create subclasses of B<Pod::Paragraphs> and
+B<Pod::InteriorSequences> for specific commands (or to create your own
+custom node-types in the parse-tree) and add some kind of B<emit()>
+method to each custom node/subclass object in the tree. Then all you'd
+need to do is recursively walk the tree in the desired order, processing
+the children (most likely from left to right) by formatting them if
+they are text-strings, or by calling their B<emit()> method if they
+are objects/references.
+
+=head1 CAVEATS
+
+Please note that POD has the notion of "paragraphs": this is something
+starting I<after> a blank (read: empty) line, with the single exception
+of the file start, which is also starting a paragraph. That means that
+especially a command (e.g. C<=head1>) I<must> be preceded with a blank
+line; C<__END__> is I<not> a blank line.
+
+=head1 SEE ALSO
+
+L<Pod::InputObjects>, L<Pod::Select>
+
+B<Pod::InputObjects> defines POD input objects corresponding to
+command paragraphs, parse-trees, and interior-sequences.
+
+B<Pod::Select> is a subclass of B<Pod::Parser> which provides the ability
+to selectively include and/or exclude sections of a POD document from being
+translated based upon the current heading, subheading, subsubheading, etc.
+
+=for __PRIVATE__
+B<Pod::Callbacks> is a subclass of B<Pod::Parser> which gives its users
+the ability the employ I<callback functions> instead of, or in addition
+to, overriding methods of the base class.
+
+=for __PRIVATE__
+B<Pod::Select> and B<Pod::Callbacks> do not override any
+methods nor do they define any new methods with the same name. Because
+of this, they may I<both> be used (in combination) as a base class of
+the same subclass in order to combine their functionality without
+causing any namespace clashes due to multiple inheritance.
+
+=head1 AUTHOR
+
+Please report bugs using L<http://rt.cpan.org>.
+
+Brad Appleton E<lt>bradapp@enteract.comE<gt>
+
+Based on code for B<Pod::Text> written by
+Tom Christiansen E<lt>tchrist@mox.perl.comE<gt>
+
+=head1 LICENSE
+
+Pod-Parser is free software; you can redistribute it and/or modify it
+under the terms of the Artistic License distributed with Perl version
+5.000 or (at your option) any later version. Please refer to the
+Artistic License that came with your Perl distribution for more
+details. If your version of Perl was not distributed under the
+terms of the Artistic License, than you may distribute PodParser
+under the same terms as Perl itself.
+
+=cut
+
+1;
+# vim: ts=4 sw=4 et
diff --git a/lib/5.24.1/Pod/Perldoc.pm b/lib/5.24.1/Pod/Perldoc.pm
new file mode 100644
index 00000000..787353ba
--- /dev/null
+++ b/lib/5.24.1/Pod/Perldoc.pm
@@ -0,0 +1,2144 @@
+use 5.006;  # we use some open(X, "<", $y) syntax
+
+package Pod::Perldoc;
+use strict;
+use warnings;
+use Config '%Config';
+
+use Fcntl;    # for sysopen
+use File::Basename qw(basename);
+use File::Spec::Functions qw(catfile catdir splitdir);
+
+use vars qw($VERSION @Pagers $Bindir $Pod2man
+  $Temp_Files_Created $Temp_File_Lifetime
+);
+$VERSION = '3.25_03'; # patched in perl5.git
+$VERSION =~ s/_//;
+
+#..........................................................................
+
+BEGIN {  # Make a DEBUG constant very first thing...
+  unless(defined &DEBUG) {
+    if(($ENV{'PERLDOCDEBUG'} || '') =~ m/^(\d+)/) { # untaint
+      eval("sub DEBUG () {$1}");
+      die "WHAT? Couldn't eval-up a DEBUG constant!? $@" if $@;
+    } else {
+      *DEBUG = sub () {0};
+    }
+  }
+}
+
+use Pod::Perldoc::GetOptsOO; # uses the DEBUG.
+use Carp qw(croak carp);
+
+# these are also in BaseTo, which I don't want to inherit
+sub debugging {
+	my $self = shift;
+
+    ( defined(&Pod::Perldoc::DEBUG) and &Pod::Perldoc::DEBUG() )
+	}
+
+sub debug {
+	my( $self, @messages ) = @_;
+	return unless $self->debugging;
+	print STDERR map { "DEBUG : $_" } @messages;
+	}
+
+sub warn {
+  my( $self, @messages ) = @_;
+
+  carp( join "\n", @messages, '' );
+  }
+
+sub die {
+  my( $self, @messages ) = @_;
+
+  croak( join "\n", @messages, '' );
+  }
+
+#..........................................................................
+
+sub TRUE  () {1}
+sub FALSE () {return}
+sub BE_LENIENT () {1}
+
+BEGIN {
+ *is_vms     = $^O eq 'VMS'     ? \&TRUE : \&FALSE unless defined &is_vms;
+ *is_mswin32 = $^O eq 'MSWin32' ? \&TRUE : \&FALSE unless defined &is_mswin32;
+ *is_dos     = $^O eq 'dos'     ? \&TRUE : \&FALSE unless defined &is_dos;
+ *is_os2     = $^O eq 'os2'     ? \&TRUE : \&FALSE unless defined &is_os2;
+ *is_cygwin  = $^O eq 'cygwin'  ? \&TRUE : \&FALSE unless defined &is_cygwin;
+ *is_linux   = $^O eq 'linux'   ? \&TRUE : \&FALSE unless defined &is_linux;
+ *is_hpux    = $^O =~ m/hpux/   ? \&TRUE : \&FALSE unless defined &is_hpux;
+ *is_amigaos = $^O eq 'amigaos' ? \&TRUE : \&FALSE unless defined &is_amigaos;
+}
+
+$Temp_File_Lifetime ||= 60 * 60 * 24 * 5;
+  # If it's older than five days, it's quite unlikely
+  #  that anyone's still looking at it!!
+  # (Currently used only by the MSWin cleanup routine)
+
+
+#..........................................................................
+{ my $pager = $Config{'pager'};
+  push @Pagers, $pager if -x (split /\s+/, $pager)[0] or __PACKAGE__->is_vms;
+}
+$Bindir  = $Config{'scriptdirexp'};
+$Pod2man = "pod2man" . ( $Config{'versiononly'} ? $Config{'version'} : '' );
+
+# End of class-init stuff
+#
+###########################################################################
+#
+# Option accessors...
+
+foreach my $subname (map "opt_$_", split '', q{mhlDriFfXqnTdULva}) {
+  no strict 'refs';
+  *$subname = do{ use strict 'refs';  sub () { shift->_elem($subname, @_) } };
+}
+
+# And these are so that GetOptsOO knows they take options:
+sub opt_a_with { shift->_elem('opt_a', @_) }
+sub opt_f_with { shift->_elem('opt_f', @_) }
+sub opt_q_with { shift->_elem('opt_q', @_) }
+sub opt_d_with { shift->_elem('opt_d', @_) }
+sub opt_L_with { shift->_elem('opt_L', @_) }
+sub opt_v_with { shift->_elem('opt_v', @_) }
+
+sub opt_w_with { # Specify an option for the formatter subclass
+  my($self, $value) = @_;
+  if($value =~ m/^([-_a-zA-Z][-_a-zA-Z0-9]*)(?:[=\:](.*?))?$/s) {
+    my $option = $1;
+    my $option_value = defined($2) ? $2 : "TRUE";
+    $option =~ tr/\-/_/s;  # tolerate "foo-bar" for "foo_bar"
+    $self->add_formatter_option( $option, $option_value );
+  } else {
+    $self->warn( qq("$value" isn't a good formatter option name.  I'm ignoring it!\n ) );
+  }
+  return;
+}
+
+sub opt_M_with { # specify formatter class name(s)
+  my($self, $classes) = @_;
+  return unless defined $classes and length $classes;
+  DEBUG > 4 and print "Considering new formatter classes -M$classes\n";
+  my @classes_to_add;
+  foreach my $classname (split m/[,;]+/s, $classes) {
+    next unless $classname =~ m/\S/;
+    if( $classname =~ m/^(\w+(::\w+)+)$/s ) {
+      # A mildly restrictive concept of what modulenames are valid.
+      push @classes_to_add, $1; # untaint
+    } else {
+      $self->warn(  qq("$classname" isn't a valid classname.  Ignoring.\n) );
+    }
+  }
+
+  unshift @{ $self->{'formatter_classes'} }, @classes_to_add;
+
+  DEBUG > 3 and print(
+    "Adding @classes_to_add to the list of formatter classes, "
+    . "making them @{ $self->{'formatter_classes'} }.\n"
+  );
+
+  return;
+}
+
+sub opt_V { # report version and exit
+  print join '',
+    "Perldoc v$VERSION, under perl v$] for $^O",
+
+    (defined(&Win32::BuildNumber) and defined &Win32::BuildNumber())
+     ? (" (win32 build ", &Win32::BuildNumber(), ")") : (),
+
+    (chr(65) eq 'A') ? () : " (non-ASCII)",
+
+    "\n",
+  ;
+  exit;
+}
+
+sub opt_t { # choose plaintext as output format
+  my $self = shift;
+  $self->opt_o_with('text')  if @_ and $_[0];
+  return $self->_elem('opt_t', @_);
+}
+
+sub opt_u { # choose raw pod as output format
+  my $self = shift;
+  $self->opt_o_with('pod')  if @_ and $_[0];
+  return $self->_elem('opt_u', @_);
+}
+
+sub opt_n_with {
+  # choose man as the output format, and specify the proggy to run
+  my $self = shift;
+  $self->opt_o_with('man')  if @_ and $_[0];
+  $self->_elem('opt_n', @_);
+}
+
+sub opt_o_with { # "o" for output format
+  my($self, $rest) = @_;
+  return unless defined $rest and length $rest;
+  if($rest =~ m/^(\w+)$/s) {
+    $rest = $1; #untaint
+  } else {
+    $self->warn( qq("$rest" isn't a valid output format.  Skipping.\n") );
+    return;
+  }
+
+  $self->aside("Noting \"$rest\" as desired output format...\n");
+
+  # Figure out what class(es) that could actually mean...
+
+  my @classes;
+  foreach my $prefix ("Pod::Perldoc::To", "Pod::Simple::", "Pod::") {
+    # Messy but smart:
+    foreach my $stem (
+      $rest,  # Yes, try it first with the given capitalization
+      "\L$rest", "\L\u$rest", "\U$rest" # And then try variations
+
+    ) {
+      $self->aside("Considering $prefix$stem\n");
+      push @classes, $prefix . $stem;
+    }
+
+    # Tidier, but misses too much:
+    #push @classes, $prefix . ucfirst(lc($rest));
+  }
+  $self->opt_M_with( join ";", @classes );
+  return;
+}
+
+###########################################################################
+# % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %
+
+sub run {  # to be called by the "perldoc" executable
+  my $class = shift;
+  if(DEBUG > 3) {
+    print "Parameters to $class\->run:\n";
+    my @x = @_;
+    while(@x) {
+      $x[1] = '<undef>'  unless defined $x[1];
+      $x[1] = "@{$x[1]}" if ref( $x[1] ) eq 'ARRAY';
+      print "  [$x[0]] => [$x[1]]\n";
+      splice @x,0,2;
+    }
+    print "\n";
+  }
+  return $class -> new(@_) -> process() || 0;
+}
+
+# % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %
+###########################################################################
+
+sub new {  # yeah, nothing fancy
+  my $class = shift;
+  my $new = bless {@_}, (ref($class) || $class);
+  DEBUG > 1 and print "New $class object $new\n";
+  $new->init();
+  $new;
+}
+
+#..........................................................................
+
+sub aside {  # If we're in -D or DEBUG mode, say this.
+  my $self = shift;
+  if( DEBUG or $self->opt_D ) {
+    my $out = join( '',
+      DEBUG ? do {
+        my $callsub = (caller(1))[3];
+        my $package = quotemeta(__PACKAGE__ . '::');
+        $callsub =~ s/^$package/'/os;
+         # the o is justified, as $package really won't change.
+        $callsub . ": ";
+      } : '',
+      @_,
+    );
+    if(DEBUG) { print $out } else { print STDERR $out }
+  }
+  return;
+}
+
+#..........................................................................
+
+sub usage {
+  my $self = shift;
+  $self->warn( "@_\n" ) if @_;
+
+  # Erase evidence of previous errors (if any), so exit status is simple.
+  $! = 0;
+
+  CORE::die( <<EOF );
+perldoc [options] PageName|ModuleName|ProgramName|URL...
+perldoc [options] -f BuiltinFunction
+perldoc [options] -q FAQRegex
+perldoc [options] -v PerlVariable
+
+Options:
+    -h   Display this help message
+    -V   Report version
+    -r   Recursive search (slow)
+    -i   Ignore case
+    -t   Display pod using pod2text instead of Pod::Man and groff
+             (-t is the default on win32 unless -n is specified)
+    -u   Display unformatted pod text
+    -m   Display module's file in its entirety
+    -n   Specify replacement for groff
+    -l   Display the module's file name
+    -F   Arguments are file names, not modules
+    -D   Verbosely describe what's going on
+    -T   Send output to STDOUT without any pager
+    -d output_filename_to_send_to
+    -o output_format_name
+    -M FormatterModuleNameToUse
+    -w formatter_option:option_value
+    -L translation_code   Choose doc translation (if any)
+    -X   Use index if present (looks for pod.idx at $Config{archlib})
+    -q   Search the text of questions (not answers) in perlfaq[1-9]
+    -f   Search Perl built-in functions
+    -a   Search Perl API
+    -v   Search predefined Perl variables
+
+PageName|ModuleName|ProgramName|URL...
+         is the name of a piece of documentation that you want to look at. You
+         may either give a descriptive name of the page (as in the case of
+         `perlfunc') the name of a module, either like `Term::Info' or like
+         `Term/Info', or the name of a program, like `perldoc', or a URL
+         starting with http(s).
+
+BuiltinFunction
+         is the name of a perl function.  Will extract documentation from
+         `perlfunc' or `perlop'.
+
+FAQRegex
+         is a regex. Will search perlfaq[1-9] for and extract any
+         questions that match.
+
+Any switches in the PERLDOC environment variable will be used before the
+command line arguments.  The optional pod index file contains a list of
+filenames, one per line.
+                                                       [Perldoc v$VERSION]
+EOF
+
+}
+
+#..........................................................................
+
+sub program_name {
+  my( $self ) = @_;
+
+  if( my $link = readlink( $0 ) ) {
+    $self->debug( "The value in $0 is a symbolic link to $link\n" );
+    }
+
+  my $basename = basename( $0 );
+
+  $self->debug( "\$0 is [$0]\nbasename is [$basename]\n" );
+  # possible name forms
+  #   perldoc
+  #   perldoc-v5.14
+  #   perldoc-5.14
+  #   perldoc-5.14.2
+  #   perlvar         # an alias mentioned in Camel 3
+  {
+  my( $untainted ) = $basename =~ m/(
+    \A
+    perl
+      (?: doc | func | faq | help | op | toc | var # Camel 3
+      ) 
+    (?: -? v? \d+ \. \d+ (?:\. \d+)? )? # possible version
+    (?: \. (?: bat | exe | com ) )?    # possible extension
+    \z
+    )
+    /x;
+
+  $self->debug($untainted);
+  return $untainted if $untainted;
+  }
+
+  $self->warn(<<"HERE");
+You called the perldoc command with a name that I didn't recognize.
+This might mean that someone is tricking you into running a
+program you don't intend to use, but it also might mean that you
+created your own link to perldoc. I think your program name is
+[$basename].
+
+I'll allow this if the filename only has [a-zA-Z0-9._-].
+HERE
+
+  {
+  my( $untainted ) = $basename =~ m/(
+    \A [a-zA-Z0-9._-]+ \z
+    )/x;
+
+  $self->debug($untainted);
+  return $untainted if $untainted;
+  }
+
+  $self->die(<<"HERE");
+I think that your name for perldoc is potentially unsafe, so I'm
+going to disallow it. I'd rather you be safe than sorry. If you
+intended to use the name I'm disallowing, please tell the maintainers
+about it. Write to:
+
+    Pod-Perldoc\@rt.cpan.org
+
+HERE
+}
+
+#..........................................................................
+
+sub usage_brief {
+  my $self = shift;
+  my $program_name = $self->program_name;
+
+  CORE::die( <<"EOUSAGE" );
+Usage: $program_name [-hVriDtumFXlT] [-n nroffer_program]
+    [-d output_filename] [-o output_format] [-M FormatterModule]
+    [-w formatter_option:option_value] [-L translation_code]
+    PageName|ModuleName|ProgramName
+
+Examples:
+
+    $program_name -f PerlFunc
+    $program_name -q FAQKeywords
+    $program_name -v PerlVar
+    $program_name -a PerlAPI
+
+The -h option prints more help.  Also try "$program_name perldoc" to get
+acquainted with the system.                        [Perldoc v$VERSION]
+EOUSAGE
+
+}
+
+#..........................................................................
+
+sub pagers { @{ shift->{'pagers'} } }
+
+#..........................................................................
+
+sub _elem {  # handy scalar meta-accessor: shift->_elem("foo", @_)
+  if(@_ > 2) { return  $_[0]{ $_[1] } = $_[2]  }
+  else       { return  $_[0]{ $_[1] }          }
+}
+#..........................................................................
+###########################################################################
+#
+# Init formatter switches, and start it off with __bindir and all that
+# other stuff that ToMan.pm needs.
+#
+
+sub init {
+  my $self = shift;
+
+  # Make sure creat()s are neither too much nor too little
+  eval { umask(0077) };   # doubtless someone has no mask
+
+  if ( $] < 5.008 ) {
+      $self->aside("Your old perl doesn't have proper unicode support.");
+    }
+  else {
+      # http://www.perl.com/pub/2012/04/perlunicookbook-decode-argv-as-utf8.html
+      # Decode command line arguments as UTF-8. See RT#98906 for example problem.
+      use Encode qw(decode_utf8);
+      @ARGV = map { decode_utf8($_, 1) } @ARGV;
+    }
+
+  $self->{'args'}              ||= \@ARGV;
+  $self->{'found'}             ||= [];
+  $self->{'temp_file_list'}    ||= [];
+
+
+  $self->{'target'} = undef;
+
+  $self->init_formatter_class_list;
+
+  $self->{'pagers' } = [@Pagers] unless exists $self->{'pagers'};
+  $self->{'bindir' } = $Bindir   unless exists $self->{'bindir'};
+  $self->{'pod2man'} = $Pod2man  unless exists $self->{'pod2man'};
+  $self->{'search_path'} = [ ]   unless exists $self->{'search_path'};
+
+  push @{ $self->{'formatter_switches'} = [] }, (
+   # Yeah, we could use a hashref, but maybe there's some class where options
+   # have to be ordered; so we'll use an arrayref.
+
+     [ '__bindir'  => $self->{'bindir' } ],
+     [ '__pod2man' => $self->{'pod2man'} ],
+  );
+
+  DEBUG > 3 and printf "Formatter switches now: [%s]\n",
+   join ' ', map "[@$_]", @{ $self->{'formatter_switches'} };
+
+  $self->{'translators'} = [];
+  $self->{'extra_search_dirs'} = [];
+
+  return;
+}
+
+#..........................................................................
+
+sub init_formatter_class_list {
+  my $self = shift;
+  $self->{'formatter_classes'} ||= [];
+
+  # Remember, no switches have been read yet, when
+  # we've started this routine.
+
+  $self->opt_M_with('Pod::Perldoc::ToPod');   # the always-there fallthru
+  $self->opt_o_with('text');
+  $self->opt_o_with('term') unless $self->is_mswin32 || $self->is_dos || $self->is_amigaos
+       || !($ENV{TERM} && (
+              ($ENV{TERM} || '') !~ /dumb|emacs|none|unknown/i
+           ));
+
+  return;
+}
+
+#..........................................................................
+
+sub process {
+    # if this ever returns, its retval will be used for exit(RETVAL)
+
+    my $self = shift;
+    DEBUG > 1 and print "  Beginning process.\n";
+    DEBUG > 1 and print "  Args: @{$self->{'args'}}\n\n";
+    if(DEBUG > 3) {
+        print "Object contents:\n";
+        my @x = %$self;
+        while(@x) {
+            $x[1] = '<undef>'  unless defined $x[1];
+            $x[1] = "@{$x[1]}" if ref( $x[1] ) eq 'ARRAY';
+            print "  [$x[0]] => [$x[1]]\n";
+            splice @x,0,2;
+        }
+        print "\n";
+    }
+
+    # TODO: make it deal with being invoked as various different things
+    #  such as perlfaq".
+
+    return $self->usage_brief  unless  @{ $self->{'args'} };
+    $self->options_reading;
+    $self->pagers_guessing;
+    $self->aside(sprintf "$0 => %s v%s\n", ref($self), $self->VERSION);
+    $self->drop_privs_maybe unless $self->opt_U;
+    $self->options_processing;
+
+    # Hm, we have @pages and @found, but we only really act on one
+    # file per call, with the exception of the opt_q hack, and with
+    # -l things
+
+    $self->aside("\n");
+
+    my @pages;
+    $self->{'pages'} = \@pages;
+    if(    $self->opt_f) { @pages = qw(perlfunc perlop)        }
+    elsif( $self->opt_q) { @pages = ("perlfaq1" .. "perlfaq9") }
+    elsif( $self->opt_v) { @pages = ("perlvar")                }
+    elsif( $self->opt_a) { @pages = ("perlapi")                }
+    else                 { @pages = @{$self->{'args'}};
+                           # @pages = __FILE__
+                           #  if @pages == 1 and $pages[0] eq 'perldoc';
+                         }
+
+    return $self->usage_brief  unless  @pages;
+
+    $self->find_good_formatter_class();
+    $self->formatter_sanity_check();
+
+    $self->maybe_extend_searchpath();
+      # for when we're apparently in a module or extension directory
+
+    my @found = $self->grand_search_init(\@pages);
+    exit ($self->is_vms ? 98962 : 1) unless @found;
+
+    if ($self->opt_l and not $self->opt_q ) {
+        DEBUG and print "We're in -l mode, so byebye after this:\n";
+        print join("\n", @found), "\n";
+        return;
+    }
+
+    $self->tweak_found_pathnames(\@found);
+    $self->assert_closing_stdout;
+    return $self->page_module_file(@found)  if  $self->opt_m;
+    DEBUG > 2 and print "Found: [@found]\n";
+
+    return $self->render_and_page(\@found);
+}
+
+#..........................................................................
+{
+
+my( %class_seen, %class_loaded );
+sub find_good_formatter_class {
+  my $self = $_[0];
+  my @class_list = @{ $self->{'formatter_classes'} || [] };
+  $self->die( "WHAT?  Nothing in the formatter class list!?" ) unless @class_list;
+
+  local @INC = @INC;
+  pop @INC if $INC[-1] eq '.';
+
+  my $good_class_found;
+  foreach my $c (@class_list) {
+    DEBUG > 4 and print "Trying to load $c...\n";
+    if($class_loaded{$c}) {
+      DEBUG > 4 and print "OK, the already-loaded $c it is!\n";
+      $good_class_found = $c;
+      last;
+    }
+
+    if($class_seen{$c}) {
+      DEBUG > 4 and print
+       "I've tried $c before, and it's no good.  Skipping.\n";
+      next;
+    }
+
+    $class_seen{$c} = 1;
+
+    if( $c->can('parse_from_file') ) {
+      DEBUG > 4 and print
+       "Interesting, the formatter class $c is already loaded!\n";
+
+    } elsif(
+      ( $self->is_os2 or $self->is_mswin32 or $self->is_dos or $self->is_os2)
+       # the always case-insensitive filesystems
+      and $class_seen{lc("~$c")}++
+    ) {
+      DEBUG > 4 and print
+       "We already used something quite like \"\L$c\E\", so no point using $c\n";
+      # This avoids redefining the package.
+    } else {
+      DEBUG > 4 and print "Trying to eval 'require $c'...\n";
+
+      local $^W = $^W;
+      if(DEBUG() or $self->opt_D) {
+        # feh, let 'em see it
+      } else {
+        $^W = 0;
+        # The average user just has no reason to be seeing
+        #  $^W-suppressible warnings from the require!
+      }
+
+      eval "require $c";
+      if($@) {
+        DEBUG > 4 and print "Couldn't load $c: $!\n";
+        next;
+      }
+    }
+
+    if( $c->can('parse_from_file') ) {
+      DEBUG > 4 and print "Settling on $c\n";
+      my $v = $c->VERSION;
+      $v = ( defined $v and length $v ) ? " version $v" : '';
+      $self->aside("Formatter class $c$v successfully loaded!\n");
+      $good_class_found = $c;
+      last;
+    } else {
+      DEBUG > 4 and print "Class $c isn't a formatter?!  Skipping.\n";
+    }
+  }
+
+  $self->die( "Can't find any loadable formatter class in @class_list?!\nAborting" )
+    unless $good_class_found;
+
+  $self->{'formatter_class'} = $good_class_found;
+  $self->aside("Will format with the class $good_class_found\n");
+
+  return;
+}
+
+}
+#..........................................................................
+
+sub formatter_sanity_check {
+  my $self = shift;
+  my $formatter_class = $self->{'formatter_class'}
+   || $self->die( "NO FORMATTER CLASS YET!?" );
+
+  if(!$self->opt_T # so -T can FORCE sending to STDOUT
+    and $formatter_class->can('is_pageable')
+    and !$formatter_class->is_pageable
+    and !$formatter_class->can('page_for_perldoc')
+  ) {
+    my $ext =
+     ($formatter_class->can('output_extension')
+       && $formatter_class->output_extension
+     ) || '';
+    $ext = ".$ext" if length $ext;
+
+    my $me = $self->program_name;
+    $self->die(
+       "When using Perldoc to format with $formatter_class, you have to\n"
+     . "specify -T or -dsomefile$ext\n"
+     . "See `$me perldoc' for more information on those switches.\n" )
+    ;
+  }
+}
+
+#..........................................................................
+
+sub render_and_page {
+    my($self, $found_list) = @_;
+
+    $self->maybe_generate_dynamic_pod($found_list);
+
+    my($out, $formatter) = $self->render_findings($found_list);
+
+    if($self->opt_d) {
+      printf "Perldoc (%s) output saved to %s\n",
+        $self->{'formatter_class'} || ref($self),
+        $out;
+      print "But notice that it's 0 bytes long!\n" unless -s $out;
+
+
+    } elsif(  # Allow the formatter to "page" itself, if it wants.
+      $formatter->can('page_for_perldoc')
+      and do {
+        $self->aside("Going to call $formatter\->page_for_perldoc(\"$out\")\n");
+        if( $formatter->page_for_perldoc($out, $self) ) {
+          $self->aside("page_for_perldoc returned true, so NOT paging with $self.\n");
+          1;
+        } else {
+          $self->aside("page_for_perldoc returned false, so paging with $self instead.\n");
+          '';
+        }
+      }
+    ) {
+      # Do nothing, since the formatter has "paged" it for itself.
+
+    } else {
+      # Page it normally (internally)
+
+      if( -s $out ) {  # Usual case:
+        $self->page($out, $self->{'output_to_stdout'}, $self->pagers);
+
+      } else {
+        # Odd case:
+        $self->aside("Skipping $out (from $$found_list[0] "
+         . "via $$self{'formatter_class'}) as it is 0-length.\n");
+
+        push @{ $self->{'temp_file_list'} }, $out;
+        $self->unlink_if_temp_file($out);
+      }
+    }
+
+    $self->after_rendering();  # any extra cleanup or whatever
+
+    return;
+}
+
+#..........................................................................
+
+sub options_reading {
+    my $self = shift;
+
+    if( defined $ENV{"PERLDOC"} and length $ENV{"PERLDOC"} ) {
+      require Text::ParseWords;
+      $self->aside("Noting env PERLDOC setting of $ENV{'PERLDOC'}\n");
+      # Yes, appends to the beginning
+      unshift @{ $self->{'args'} },
+        Text::ParseWords::shellwords( $ENV{"PERLDOC"} )
+      ;
+      DEBUG > 1 and print "  Args now: @{$self->{'args'}}\n\n";
+    } else {
+      DEBUG > 1 and print "  Okay, no PERLDOC setting in ENV.\n";
+    }
+
+    DEBUG > 1
+     and print "  Args right before switch processing: @{$self->{'args'}}\n";
+
+    Pod::Perldoc::GetOptsOO::getopts( $self, $self->{'args'}, 'YES' )
+     or return $self->usage;
+
+    DEBUG > 1
+     and print "  Args after switch processing: @{$self->{'args'}}\n";
+
+    return $self->usage if $self->opt_h;
+
+    return;
+}
+
+#..........................................................................
+
+sub options_processing {
+    my $self = shift;
+
+    if ($self->opt_X) {
+        my $podidx = "$Config{'archlib'}/pod.idx";
+        $podidx = "" unless -f $podidx && -r _ && -M _ <= 7;
+        $self->{'podidx'} = $podidx;
+    }
+
+    $self->{'output_to_stdout'} = 1  if  $self->opt_T or ! -t STDOUT;
+
+    $self->options_sanity;
+
+    # This used to set a default, but that's now moved into any
+    # formatter that cares to have a default.
+    if( $self->opt_n ) {
+        $self->add_formatter_option( '__nroffer' => $self->opt_n );
+    }
+
+    # Get language from PERLDOC_POD2 environment variable
+    if ( ! $self->opt_L && $ENV{PERLDOC_POD2} ) {
+        if ( $ENV{PERLDOC_POD2} eq '1' ) {
+          $self->_elem('opt_L',(split(/\_/, $ENV{LC_ALL} || $ENV{LC_LANG} || $ENV{LANG}))[0] );
+        }
+        else {
+          $self->_elem('opt_L', $ENV{PERLDOC_POD2});
+        }
+    };
+
+    # Adjust for using translation packages
+    $self->add_translator(split(/\s+/,$self->opt_L)) if $self->opt_L;
+
+    return;
+}
+
+#..........................................................................
+
+sub options_sanity {
+    my $self = shift;
+
+    # The opts-counting stuff interacts quite badly with
+    # the $ENV{"PERLDOC"} stuff.  I.e., if I have $ENV{"PERLDOC"}
+    # set to -t, and I specify -u on the command line, I don't want
+    # to be hectored at that -u and -t don't make sense together.
+
+    #my $opts = grep $_ && 1, # yes, the count of the set ones
+    #  $self->opt_t, $self->opt_u, $self->opt_m, $self->opt_l
+    #;
+    #
+    #$self->usage("only one of -t, -u, -m or -l") if $opts > 1;
+
+
+    # Any sanity-checking need doing here?
+
+    # But does not make sense to set either -f or -q in $ENV{"PERLDOC"}
+    if( $self->opt_f or $self->opt_q or $self->opt_a) {
+    my $count;
+    $count++ if $self->opt_f;
+    $count++ if $self->opt_q;
+    $count++ if $self->opt_a;
+    $self->usage("Only one of -f or -q or -a") if $count > 1;
+    $self->warn(
+        "Perldoc is meant for reading one file at a time.\n",
+        "So these parameters are being ignored: ",
+        join(' ', @{$self->{'args'}}),
+        "\n" )
+        if @{$self->{'args'}}
+    }
+    return;
+}
+
+#..........................................................................
+
+sub grand_search_init {
+    my($self, $pages, @found) = @_;
+
+    foreach (@$pages) {
+        if (/^http(s)?:\/\//) {
+            require HTTP::Tiny;
+            require File::Temp;
+            my $response = HTTP::Tiny->new->get($_);
+            if ($response->{success}) {
+                my ($fh, $filename) = File::Temp::tempfile(UNLINK => 1);
+                $fh->print($response->{content});
+                push @found, $filename;
+                ($self->{podnames}{$filename} =
+                  m{.*/([^/#?]+)} ? uc $1 : "UNKNOWN")
+                   =~ s/\.P(?:[ML]|OD)\z//;
+            }
+            else {
+                print STDERR "No " .
+                    ($self->opt_m ? "module" : "documentation") . " found for \"$_\".\n";
+            }
+            next;
+        }
+        if ($self->{'podidx'} && open(PODIDX, $self->{'podidx'})) {
+            my $searchfor = catfile split '::', $_;
+            $self->aside( "Searching for '$searchfor' in $self->{'podidx'}\n" );
+            local $_;
+            while (<PODIDX>) {
+                chomp;
+                push(@found, $_) if m,/$searchfor(?:\.(?:pod|pm))?\z,i;
+            }
+            close(PODIDX)            or $self->die( "Can't close $$self{'podidx'}: $!" );
+            next;
+        }
+
+        $self->aside( "Searching for $_\n" );
+
+        if ($self->opt_F) {
+            next unless -r;
+            push @found, $_ if $self->opt_l or $self->opt_m or $self->containspod($_);
+            next;
+        }
+
+        my @searchdirs;
+
+        # prepend extra search directories (including language specific)
+        push @searchdirs, @{ $self->{'extra_search_dirs'} };
+
+        # We must look both in @INC for library modules and in $bindir
+        # for executables, like h2xs or perldoc itself.
+        push @searchdirs, ($self->{'bindir'}, @{$self->{search_path}}, @INC);
+        unless ($self->opt_m) {
+            if ($self->is_vms) {
+                my($i,$trn);
+                for ($i = 0; $trn = $ENV{'DCL$PATH;'.$i}; $i++) {
+                    push(@searchdirs,$trn);
+                }
+                push(@searchdirs,'perl_root:[lib.pods]')  # installed pods
+            }
+            else {
+                push(@searchdirs, grep(-d, split($Config{path_sep},
+                                                 $ENV{'PATH'})));
+            }
+        }
+        my @files = $self->searchfor(0,$_,@searchdirs);
+        if (@files) {
+            $self->aside( "Found as @files\n" );
+        }
+        # add "perl" prefix, so "perldoc foo" may find perlfoo.pod
+    elsif (BE_LENIENT and !/\W/ and  @files = $self->searchfor(0, "perl$_", @searchdirs)) {
+            $self->aside( "Loosely found as @files\n" );
+        }
+        else {
+            # no match, try recursive search
+            @searchdirs = grep(!/^\.\z/s,@INC);
+            @files= $self->searchfor(1,$_,@searchdirs) if $self->opt_r;
+            if (@files) {
+                $self->aside( "Loosely found as @files\n" );
+            }
+            else {
+                print STDERR "No " .
+                    ($self->opt_m ? "module" : "documentation") . " found for \"$_\".\n";
+                if ( @{ $self->{'found'} } ) {
+                    print STDERR "However, try\n";
+                    my $me = $self->program_name;
+                    for my $dir (@{ $self->{'found'} }) {
+                        opendir(DIR, $dir) or $self->die( "opendir $dir: $!" );
+                        while (my $file = readdir(DIR)) {
+                            next if ($file =~ /^\./s);
+                            $file =~ s/\.(pm|pod)\z//;  # XXX: badfs
+                            print STDERR "\t$me $_\::$file\n";
+                        }
+                        closedir(DIR)    or $self->die( "closedir $dir: $!" );
+                    }
+                }
+            }
+        }
+        push(@found,@files);
+    }
+    return @found;
+}
+
+#..........................................................................
+
+sub maybe_generate_dynamic_pod {
+    my($self, $found_things) = @_;
+    my @dynamic_pod;
+
+    $self->search_perlapi($found_things, \@dynamic_pod)   if  $self->opt_a;
+
+    $self->search_perlfunc($found_things, \@dynamic_pod)  if  $self->opt_f;
+
+    $self->search_perlvar($found_things, \@dynamic_pod)   if  $self->opt_v;
+
+    $self->search_perlfaqs($found_things, \@dynamic_pod)  if  $self->opt_q;
+
+    if( ! $self->opt_f and ! $self->opt_q and ! $self->opt_v and ! $self->opt_a) {
+        DEBUG > 4 and print "That's a non-dynamic pod search.\n";
+    } elsif ( @dynamic_pod ) {
+        $self->aside("Hm, I found some Pod from that search!\n");
+        my ($buffd, $buffer) = $self->new_tempfile('pod', 'dyn');
+        if ( $] >= 5.008 && $self->opt_L ) {
+            binmode($buffd, ":encoding(UTF-8)");
+            print $buffd "=encoding utf8\n\n";
+        }
+
+        push @{ $self->{'temp_file_list'} }, $buffer;
+         # I.e., it MIGHT be deleted at the end.
+
+        my $in_list = !$self->not_dynamic && $self->opt_f || $self->opt_v || $self->opt_a;
+
+        print $buffd "=over 8\n\n" if $in_list;
+        print $buffd @dynamic_pod  or $self->die( "Can't print $buffer: $!" );
+        print $buffd "=back\n"     if $in_list;
+
+        close $buffd        or $self->die( "Can't close $buffer: $!" );
+
+        @$found_things = $buffer;
+          # Yes, so found_things never has more than one thing in
+          #  it, by time we leave here
+
+        $self->add_formatter_option('__filter_nroff' => 1);
+
+    } else {
+        @$found_things = ();
+        $self->aside("I found no Pod from that search!\n");
+    }
+
+    return;
+}
+
+#..........................................................................
+
+sub not_dynamic {
+  my ($self,$value) = @_;
+  $self->{__not_dynamic} = $value if @_ == 2;
+  return $self->{__not_dynamic};
+}
+
+#..........................................................................
+
+sub add_formatter_option { # $self->add_formatter_option('key' => 'value');
+  my $self = shift;
+  push @{ $self->{'formatter_switches'} }, [ @_ ] if @_;
+
+  DEBUG > 3 and printf "Formatter switches now: [%s]\n",
+   join ' ', map "[@$_]", @{ $self->{'formatter_switches'} };
+
+  return;
+}
+
+#.........................................................................
+
+sub new_translator { # $tr = $self->new_translator($lang);
+    my $self = shift;
+    my $lang = shift;
+
+    local @INC = @INC;
+    pop @INC if $INC[-1] eq '.';
+    my $pack = 'POD2::' . uc($lang);
+    eval "require $pack";
+    if ( !$@ && $pack->can('new') ) {
+    return $pack->new();
+    }
+
+    eval { require POD2::Base };
+    return if $@;
+
+    return POD2::Base->new({ lang => $lang });
+}
+
+#.........................................................................
+
+sub add_translator { # $self->add_translator($lang);
+    my $self = shift;
+    for my $lang (@_) {
+        my $tr = $self->new_translator($lang);
+        if ( defined $tr ) {
+            push @{ $self->{'translators'} }, $tr;
+            push @{ $self->{'extra_search_dirs'} }, $tr->pod_dirs;
+
+            $self->aside( "translator for '$lang' loaded\n" );
+        } else {
+            # non-installed or bad translator package
+            $self->warn( "Perldoc cannot load translator package for '$lang': ignored\n" );
+        }
+
+    }
+    return;
+}
+
+#..........................................................................
+
+sub open_fh {
+    my ($self, $op, $path) = @_;
+
+    open my $fh, $op, $path or $self->die("Couldn't open $path: $!");
+    return $fh;
+}
+
+sub set_encoding {
+    my ($self, $fh, $encoding) = @_;
+
+    if ( $encoding =~ /utf-?8/i ) {
+        $encoding = ":encoding(UTF-8)";
+    }
+    else {
+        $encoding = ":encoding($encoding)";
+    }
+
+    if ( $] < 5.008 ) {
+        $self->aside("Your old perl doesn't have proper unicode support.");
+    }
+    else {
+        binmode($fh, $encoding);
+    }
+
+    return $fh;
+}
+
+sub search_perlvar {
+    my($self, $found_things, $pod) = @_;
+
+    my $opt = $self->opt_v;
+
+    if ( $opt !~ /^ (?: [\@\%\$]\S+ | [A-Z]\w* ) $/x ) {
+        CORE::die( "'$opt' does not look like a Perl variable\n" );
+    }
+
+    DEBUG > 2 and print "Search: @$found_things\n";
+
+    my $perlvar = shift @$found_things;
+    my $fh = $self->open_fh("<", $perlvar);
+
+    if ( $opt ne '$0' && $opt =~ /^\$\d+$/ ) { # handle $1, $2, ...
+      $opt = '$<I<digits>>';
+    }
+    my $search_re = quotemeta($opt);
+
+    DEBUG > 2 and
+     print "Going to perlvar-scan for $search_re in $perlvar\n";
+
+    # Skip introduction
+    local $_;
+    my $enc;
+    while (<$fh>) {
+        $enc = $1 if /^=encoding\s+(\S+)/;
+        last if /^=over 8/;
+    }
+
+    $fh = $self->set_encoding($fh, $enc) if $enc;
+
+    # Look for our variable
+    my $found = 0;
+    my $inheader = 1;
+    my $inlist = 0;
+    while (<$fh>) {  
+        last if /^=head2 Error Indicators/;
+        # \b at the end of $` and friends borks things!
+        if ( m/^=item\s+$search_re\s/ )  {
+            $found = 1;
+        }
+        elsif (/^=item/) {
+            last if $found && !$inheader && !$inlist;
+        }
+        elsif (!/^\s+$/) { # not a blank line
+            if ( $found ) {
+                $inheader = 0; # don't accept more =item (unless inlist)
+        }
+            else {
+                @$pod = (); # reset
+                $inheader = 1; # start over
+                next;
+            }
+    }
+
+        if (/^=over/) {
+            ++$inlist;
+        }
+        elsif (/^=back/) {
+            last if $found && !$inheader && !$inlist;
+            --$inlist;
+        }
+        push @$pod, $_;
+#        ++$found if /^\w/;        # found descriptive text
+    }
+    @$pod = () unless $found;
+    if (!@$pod) {
+        CORE::die( "No documentation for perl variable '$opt' found\n" );
+    }
+    close $fh                or $self->die( "Can't close $perlvar: $!" );
+
+    return;
+}
+
+#..........................................................................
+
+sub search_perlop {
+  my ($self,$found_things,$pod) = @_;
+
+  $self->not_dynamic( 1 );
+
+  my $perlop = shift @$found_things;
+  # XXX FIXME: getting filehandles should probably be done in a single place
+  # especially since we need to support UTF8 or other encoding when dealing
+  # with perlop, perlfunc, perlapi, perlfaq[1-9]
+  my $fh = $self->open_fh('<', $perlop);
+
+  my $thing = $self->opt_f;
+
+  my $previous_line;
+  my $push = 0;
+  my $seen_item = 0;
+  my $skip = 1;
+
+  while( my $line = <$fh> ) {
+    $line =~ /^=encoding\s+(\S+)/ && $self->set_encoding($fh, $1);
+    # only start search after we hit the operator section
+    if ($line =~ m!^X<operator, regexp>!) {
+        $skip = 0;
+    }
+
+    next if $skip;
+
+    # strategy is to capture the previous line until we get a match on X<$thingy>
+    # if the current line contains X<$thingy>, then we push "=over", the previous line, 
+    # the current line and keep pushing current line until we see a ^X<some-other-thing>, 
+    # then we chop off final line from @$pod and add =back
+    #
+    # At that point, Bob's your uncle.
+
+    if ( $line =~ m!X<+\s*\Q$thing\E\s*>+!) {
+        if ( $previous_line ) {
+            push @$pod, "=over 8\n\n", $previous_line;
+            $previous_line = "";
+        }
+        push @$pod, $line;
+        $push = 1;
+
+    }
+    elsif ( $push and $line =~ m!^=item\s*.*$! ) {
+        $seen_item = 1;
+    }
+    elsif ( $push and $seen_item and $line =~ m!^X<+\s*[ a-z,?-]+\s*>+!) {
+        $push = 0;
+        $seen_item = 0;
+        last;
+    }
+    elsif ( $push ) {
+        push @$pod, $line;
+    }
+
+    else {
+        $previous_line = $line;
+    }
+
+  } #end while
+
+  # we overfilled by 1 line, so pop off final array element if we have any
+  if ( scalar @$pod ) {
+    pop @$pod;
+
+    # and add the =back
+    push @$pod, "\n\n=back\n";
+    DEBUG > 8 and print "PERLOP POD --->" . (join "", @$pod) . "<---\n";
+  }
+  else {
+    DEBUG > 4 and print "No pod from perlop\n";
+  }
+
+  close $fh;
+
+  return;
+}
+
+#..........................................................................
+
+sub search_perlapi {
+    my($self, $found_things, $pod) = @_;
+
+    DEBUG > 2 and print "Search: @$found_things\n";
+
+    my $perlapi = shift @$found_things;
+    my $fh = $self->open_fh('<', $perlapi);
+
+    my $search_re = quotemeta($self->opt_a);
+
+    DEBUG > 2 and
+     print "Going to perlapi-scan for $search_re in $perlapi\n";
+
+    local $_;
+
+    # Look for our function
+    my $found = 0;
+    my $inlist = 0;
+
+    my @related;
+    my $related_re;
+    while (<$fh>) {
+        /^=encoding\s+(\S+)/ && $self->set_encoding($fh, $1);
+
+        if ( m/^=item\s+$search_re\b/ )  {
+            $found = 1;
+        }
+        elsif (@related > 1 and /^=item/) {
+            $related_re ||= join "|", @related;
+            if (m/^=item\s+(?:$related_re)\b/) {
+                $found = 1;
+            }
+            else {
+                last;
+            }
+        }
+        elsif (/^=item/) {
+            last if $found > 1 and not $inlist;
+        }
+        elsif ($found and /^X<[^>]+>/) {
+            push @related, m/X<([^>]+)>/g;
+        }
+        next unless $found;
+        if (/^=over/) {
+            ++$inlist;
+        }
+        elsif (/^=back/) {
+            last if $found > 1 and not $inlist;
+            --$inlist;
+        }
+        push @$pod, $_;
+        ++$found if /^\w/;        # found descriptive text
+    }
+
+    if (!@$pod) {
+        CORE::die( sprintf
+          "No documentation for perl api function '%s' found\n",
+          $self->opt_a )
+        ;
+    }
+    close $fh                or $self->die( "Can't open $perlapi: $!" );
+
+    return;
+}
+
+#..........................................................................
+
+sub search_perlfunc {
+    my($self, $found_things, $pod) = @_;
+
+    DEBUG > 2 and print "Search: @$found_things\n";
+
+    my $pfunc = shift @$found_things;
+    my $fh = $self->open_fh("<", $pfunc); # "Funk is its own reward"
+
+    # Functions like -r, -e, etc. are listed under `-X'.
+    my $search_re = ($self->opt_f =~ /^-[rwxoRWXOeszfdlpSbctugkTBMAC]$/)
+                        ? '(?:I<)?-X' : quotemeta($self->opt_f) ;
+
+    DEBUG > 2 and
+     print "Going to perlfunc-scan for $search_re in $pfunc\n";
+
+    my $re = 'Alphabetical Listing of Perl Functions';
+
+    # Check available translator or backup to default (english)
+    if ( $self->opt_L && defined $self->{'translators'}->[0] ) {
+        my $tr = $self->{'translators'}->[0];
+        $re =  $tr->search_perlfunc_re if $tr->can('search_perlfunc_re');
+        if ( $] < 5.008 ) {
+            $self->aside("Your old perl doesn't really have proper unicode support.");
+        }
+    }
+
+    # Skip introduction
+    local $_;
+    while (<$fh>) {
+        /^=encoding\s+(\S+)/ && $self->set_encoding($fh, $1);
+        last if /^=head2 $re/;
+    }
+
+    # Look for our function
+    my $found = 0;
+    my $inlist = 0;
+
+    my @perlops = qw(m q qq qr qx qw s tr y);
+
+    my @related;
+    my $related_re;
+    while (<$fh>) {  # "The Mothership Connection is here!"
+        last if( grep{ $self->opt_f eq $_ }@perlops );
+
+        if ( /^=over/ and not $found ) {
+            ++$inlist;
+        }
+        elsif ( /^=back/ and not $found and $inlist ) {
+            --$inlist;
+        }
+
+
+        if ( m/^=item\s+$search_re\b/ and $inlist < 2 )  {
+            $found = 1;
+        }
+        elsif (@related > 1 and /^=item/) {
+            $related_re ||= join "|", @related;
+            if (m/^=item\s+(?:$related_re)\b/) {
+                $found = 1;
+            }
+            else {
+                last if $found > 1 and $inlist < 2;
+            }
+        }
+        elsif (/^=item/) {
+            last if $found > 1 and $inlist < 2;
+        }
+        elsif ($found and /^X<[^>]+>/) {
+            push @related, m/X<([^>]+)>/g;
+        }
+        next unless $found;
+        if (/^=over/) {
+            ++$inlist;
+        }
+        elsif (/^=back/) {
+            --$inlist;
+        }
+        push @$pod, $_;
+        ++$found if /^\w/;        # found descriptive text
+    }
+
+    if( !@$pod ){
+        $self->search_perlop( $found_things, $pod );
+    }
+
+    if (!@$pod) {
+        CORE::die( sprintf
+          "No documentation for perl function '%s' found\n",
+          $self->opt_f )
+        ;
+    }
+    close $fh                or $self->die( "Can't close $pfunc: $!" );
+
+    return;
+}
+
+#..........................................................................
+
+sub search_perlfaqs {
+    my( $self, $found_things, $pod) = @_;
+
+    my $found = 0;
+    my %found_in;
+    my $search_key = $self->opt_q;
+
+    my $rx = eval { qr/$search_key/ }
+     or $self->die( <<EOD );
+Invalid regular expression '$search_key' given as -q pattern:
+$@
+Did you mean \\Q$search_key ?
+
+EOD
+
+    local $_;
+    foreach my $file (@$found_things) {
+        $self->die( "invalid file spec: $!" ) if $file =~ /[<>|]/;
+        my $fh = $self->open_fh("<", $file);
+        while (<$fh>) {
+            /^=encoding\s+(\S+)/ && $self->set_encoding($fh, $1);
+            if ( m/^=head2\s+.*(?:$search_key)/i ) {
+                $found = 1;
+                push @$pod, "=head1 Found in $file\n\n" unless $found_in{$file}++;
+            }
+            elsif (/^=head[12]/) {
+                $found = 0;
+            }
+            next unless $found;
+            push @$pod, $_;
+        }
+        close($fh);
+    }
+    CORE::die("No documentation for perl FAQ keyword '$search_key' found\n")
+     unless @$pod;
+
+    if ( $self->opt_l ) {
+        CORE::die((join "\n", keys %found_in) . "\n");
+    }
+    return;
+}
+
+
+#..........................................................................
+
+sub render_findings {
+  # Return the filename to open
+
+  my($self, $found_things) = @_;
+
+  my $formatter_class = $self->{'formatter_class'}
+   || $self->die( "No formatter class set!?" );
+  my $formatter = $formatter_class->can('new')
+    ? $formatter_class->new
+    : $formatter_class
+  ;
+
+  if(! @$found_things) {
+    $self->die( "Nothing found?!" );
+    # should have been caught before here
+  } elsif(@$found_things > 1) {
+    $self->warn(
+     "Perldoc is only really meant for reading one document at a time.\n",
+     "So these parameters are being ignored: ",
+     join(' ', @$found_things[1 .. $#$found_things] ),
+     "\n" );
+  }
+
+  my $file = $found_things->[0];
+
+  DEBUG > 3 and printf "Formatter switches now: [%s]\n",
+   join ' ', map "[@$_]", @{ $self->{'formatter_switches'} };
+
+  # Set formatter options:
+  if( ref $formatter ) {
+    foreach my $f (@{ $self->{'formatter_switches'} || [] }) {
+      my($switch, $value, $silent_fail) = @$f;
+      if( $formatter->can($switch) ) {
+        eval { $formatter->$switch( defined($value) ? $value : () ) };
+        $self->warn( "Got an error when setting $formatter_class\->$switch:\n$@\n" )
+         if $@;
+      } else {
+        if( $silent_fail or $switch =~ m/^__/s ) {
+          DEBUG > 2 and print "Formatter $formatter_class doesn't support $switch\n";
+        } else {
+          $self->warn( "$formatter_class doesn't recognize the $switch switch.\n" );
+        }
+      }
+    }
+  }
+
+  $self->{'output_is_binary'} =
+    $formatter->can('write_with_binmode') && $formatter->write_with_binmode;
+
+  if( $self->{podnames} and exists $self->{podnames}{$file} and
+      $formatter->can('name') ) {
+    $formatter->name($self->{podnames}{$file});
+  }
+
+  my ($out_fh, $out) = $self->new_output_file(
+    ( $formatter->can('output_extension') && $formatter->output_extension )
+     || undef,
+    $self->useful_filename_bit,
+  );
+
+  # Now, finally, do the formatting!
+  {
+    local $^W = $^W;
+    if(DEBUG() or $self->opt_D) {
+      # feh, let 'em see it
+    } else {
+      $^W = 0;
+      # The average user just has no reason to be seeing
+      #  $^W-suppressible warnings from the formatting!
+    }
+
+    eval {  $formatter->parse_from_file( $file, $out_fh )  };
+  }
+
+  $self->warn( "Error while formatting with $formatter_class:\n $@\n" ) if $@;
+  DEBUG > 2 and print "Back from formatting with $formatter_class\n";
+
+  close $out_fh
+   or $self->warn( "Can't close $out: $!\n(Did $formatter already close it?)" );
+  sleep 0; sleep 0; sleep 0;
+   # Give the system a few timeslices to meditate on the fact
+   # that the output file does in fact exist and is closed.
+
+  $self->unlink_if_temp_file($file);
+
+  unless( -s $out ) {
+    if( $formatter->can( 'if_zero_length' ) ) {
+      # Basically this is just a hook for Pod::Simple::Checker; since
+      # what other class could /happily/ format an input file with Pod
+      # as a 0-length output file?
+      $formatter->if_zero_length( $file, $out, $out_fh );
+    } else {
+      $self->warn( "Got a 0-length file from $$found_things[0] via $formatter_class!?\n" );
+    }
+  }
+
+  DEBUG and print "Finished writing to $out.\n";
+  return($out, $formatter) if wantarray;
+  return $out;
+}
+
+#..........................................................................
+
+sub unlink_if_temp_file {
+  # Unlink the specified file IFF it's in the list of temp files.
+  # Really only used in the case of -f / -q things when we can
+  #  throw away the dynamically generated source pod file once
+  #  we've formatted it.
+  #
+  my($self, $file) = @_;
+  return unless defined $file and length $file;
+
+  my $temp_file_list = $self->{'temp_file_list'} || return;
+  if(grep $_ eq $file, @$temp_file_list) {
+    $self->aside("Unlinking $file\n");
+    unlink($file) or $self->warn( "Odd, couldn't unlink $file: $!" );
+  } else {
+    DEBUG > 1 and print "$file isn't a temp file, so not unlinking.\n";
+  }
+  return;
+}
+
+#..........................................................................
+
+
+sub after_rendering {
+  my $self = $_[0];
+  $self->after_rendering_VMS     if $self->is_vms;
+  $self->after_rendering_MSWin32 if $self->is_mswin32;
+  $self->after_rendering_Dos     if $self->is_dos;
+  $self->after_rendering_OS2     if $self->is_os2;
+  return;
+}
+
+sub after_rendering_VMS      { return }
+sub after_rendering_Dos      { return }
+sub after_rendering_OS2      { return }
+sub after_rendering_MSWin32  { return }
+
+#..........................................................................
+#   :   :   :   :   :   :   :   :   :
+#..........................................................................
+
+sub minus_f_nocase {   # i.e., do like -f, but without regard to case
+
+     my($self, $dir, $file) = @_;
+     my $path = catfile($dir,$file);
+     return $path if -f $path and -r _;
+
+     if(!$self->opt_i
+        or $self->is_vms or $self->is_mswin32
+        or $self->is_dos or $self->is_os2
+     ) {
+        # On a case-forgiving file system, or if case is important,
+    #  that is it, all we can do.
+    $self->warn( "Ignored $path: unreadable\n" ) if -f _;
+    return '';
+     }
+
+     local *DIR;
+     my @p = ($dir);
+     my($p,$cip);
+     foreach $p (splitdir $file){
+    my $try = catfile @p, $p;
+        $self->aside("Scrutinizing $try...\n");
+    stat $try;
+    if (-d _) {
+        push @p, $p;
+        if ( $p eq $self->{'target'} ) {
+        my $tmp_path = catfile @p;
+        my $path_f = 0;
+        for (@{ $self->{'found'} }) {
+            $path_f = 1 if $_ eq $tmp_path;
+        }
+        push (@{ $self->{'found'} }, $tmp_path) unless $path_f;
+        $self->aside( "Found as $tmp_path but directory\n" );
+        }
+    }
+    elsif (-f _ && -r _ && lc($try) eq lc($path)) {
+        return $try;
+    }
+    elsif (-f _) {
+        $self->warn( "Ignored $try: unreadable or file/dir mismatch\n" );
+    }
+    elsif (-d catdir(@p)) {  # at least we see the containing directory!
+        my $found = 0;
+        my $lcp = lc $p;
+        my $p_dirspec = catdir(@p);
+        opendir DIR, $p_dirspec  or $self->die( "opendir $p_dirspec: $!" );
+        while(defined( $cip = readdir(DIR) )) {
+        if (lc $cip eq $lcp){
+            $found++;
+            last; # XXX stop at the first? what if there's others?
+        }
+        }
+        closedir DIR  or $self->die( "closedir $p_dirspec: $!" );
+        return "" unless $found;
+
+        push @p, $cip;
+        my $p_filespec = catfile(@p);
+        return $p_filespec if -f $p_filespec and -r _;
+        $self->warn( "Ignored $p_filespec: unreadable\n" ) if -f _;
+    }
+     }
+     return "";
+}
+
+#..........................................................................
+
+sub pagers_guessing {
+    # TODO: This whole subroutine needs to be rewritten. It's semi-insane
+    # right now.
+
+    my $self = shift;
+
+    my @pagers;
+    push @pagers, $self->pagers;
+    $self->{'pagers'} = \@pagers;
+
+    if ($self->is_mswin32) {
+        push @pagers, qw( more< less notepad );
+        unshift @pagers, $ENV{PAGER}  if $ENV{PAGER};
+    }
+    elsif ($self->is_vms) {
+        push @pagers, qw( most more less type/page );
+    }
+    elsif ($self->is_dos) {
+        push @pagers, qw( less.exe more.com< );
+        unshift @pagers, $ENV{PAGER}  if $ENV{PAGER};
+    }
+    elsif ( $self->is_amigaos) {
+        push @pagers, qw( /SYS/Utilities/MultiView /SYS/Utilities/More /C/TYPE );
+        unshift @pagers, "$ENV{PAGER}"  if $ENV{PAGER};
+    }
+    else {
+        if ($self->is_os2) {
+          unshift @pagers, 'less', 'cmd /c more <';
+        }
+        push @pagers, qw( more less pg view cat );
+        unshift @pagers, "$ENV{PAGER} <"  if $ENV{PAGER};
+    }
+
+    if ($self->is_cygwin) {
+        if (($pagers[0] eq 'less') || ($pagers[0] eq '/usr/bin/less')) {
+            unshift @pagers, '/usr/bin/less -isrR';
+            unshift @pagers, $ENV{PAGER}  if $ENV{PAGER};
+       }
+    }
+
+    if ( $self->opt_m ) {
+        unshift @pagers, "$ENV{PERLDOC_SRC_PAGER}" if $ENV{PERLDOC_SRC_PAGER}
+    }
+    else {
+        unshift @pagers, "$ENV{MANPAGER} <" if $ENV{MANPAGER};
+        unshift @pagers, "$ENV{PERLDOC_PAGER} <" if $ENV{PERLDOC_PAGER};
+    }
+
+    $self->aside("Pagers: ", @pagers);
+
+    return;
+}
+
+#..........................................................................
+
+sub page_module_file {
+    my($self, @found) = @_;
+
+    # Security note:
+    # Don't ever just pass this off to anything like MSWin's "start.exe",
+    # since we might be calling on a .pl file, and we wouldn't want that
+    # to actually /execute/ the file that we just want to page thru!
+    # Also a consideration if one were to use a web browser as a pager;
+    # doing so could trigger the browser's MIME mapping for whatever
+    # it thinks .pm/.pl/whatever is.  Probably just a (useless and
+    # annoying) "Save as..." dialog, but potentially executing the file
+    # in question -- particularly in the case of MSIE and it's, ahem,
+    # occasionally hazy distinction between OS-local extension
+    # associations, and browser-specific MIME mappings.
+
+    if(@found > 1) {
+        $self->warn(
+            "Perldoc is only really meant for reading one document at a time.\n" .
+            "So these files are being ignored: " .
+            join(' ', @found[1 .. $#found] ) .
+            "\n" )
+    }
+
+    return $self->page($found[0], $self->{'output_to_stdout'}, $self->pagers);
+
+}
+
+#..........................................................................
+
+sub check_file {
+    my($self, $dir, $file) = @_;
+
+    unless( ref $self ) {
+      # Should never get called:
+      $Carp::Verbose = 1;
+      require Carp;
+      Carp::croak( join '',
+        "Crazy ", __PACKAGE__, " error:\n",
+        "check_file must be an object_method!\n",
+        "Aborting"
+      );
+    }
+
+    if(length $dir and not -d $dir) {
+      DEBUG > 3 and print "  No dir $dir -- skipping.\n";
+      return "";
+    }
+
+    my $path = $self->minus_f_nocase($dir,$file);
+    if( length $path and ($self->opt_m ? $self->isprintable($path)
+                                      : $self->containspod($path)) ) {
+        DEBUG > 3 and print
+            "  The file $path indeed looks promising!\n";
+        return $path;
+    }
+    DEBUG > 3 and print "  No good: $file in $dir\n";
+
+    return "";
+}
+
+sub isprintable {
+	my($self, $file, $readit) = @_;
+	my $size= 1024;
+	my $maxunprintfrac= 0.2;   # tolerate some unprintables for UTF-8 comments etc.
+
+	return 1 if !$readit && $file =~ /\.(?:pl|pm|pod|cmd|com|bat)\z/i;
+
+	my $data;
+	local($_);
+	my $fh = $self->open_fh("<", $file);
+	read $fh, $data, $size;
+	close $fh;
+	$size= length($data);
+	$data =~ tr/\x09-\x0D\x20-\x7E//d;
+	return length($data) <= $size*$maxunprintfrac;
+}
+
+#..........................................................................
+
+sub containspod {
+    my($self, $file, $readit) = @_;
+    return 1 if !$readit && $file =~ /\.pod\z/i;
+
+
+    #  Under cygwin the /usr/bin/perl is legal executable, but
+    #  you cannot open a file with that name. It must be spelled
+    #  out as "/usr/bin/perl.exe".
+    #
+    #  The following if-case under cygwin prevents error
+    #
+    #     $ perldoc perl
+    #     Cannot open /usr/bin/perl: no such file or directory
+    #
+    #  This would work though
+    #
+    #     $ perldoc perl.pod
+
+    if ( $self->is_cygwin  and  -x $file  and  -f "$file.exe" )
+    {
+        $self->warn( "Cygwin $file.exe search skipped\n" ) if DEBUG or $self->opt_D;
+        return 0;
+    }
+
+    local($_);
+    my $fh = $self->open_fh("<", $file);
+    while (<$fh>) {
+    if (/^=head/) {
+        close($fh)     or $self->die( "Can't close $file: $!" );
+        return 1;
+    }
+    }
+    close($fh)         or $self->die( "Can't close $file: $!" );
+    return 0;
+}
+
+#..........................................................................
+
+sub maybe_extend_searchpath {
+  my $self = shift;
+
+  # Does this look like a module or extension directory?
+
+  if (-f "Makefile.PL" || -f "Build.PL") {
+
+    push @{$self->{search_path} }, '.','lib';
+
+    # don't add if superuser
+    if ($< && $> && -d "blib") {   # don't be looking too hard now!
+      push @{ $self->{search_path} }, 'blib';
+      $self->warn( $@ ) if $@ && $self->opt_D;
+    }
+  }
+
+  return;
+}
+
+#..........................................................................
+
+sub new_output_file {
+  my $self = shift;
+  my $outspec = $self->opt_d;  # Yes, -d overrides all else!
+                               # So don't call this twice per format-job!
+
+  return $self->new_tempfile(@_) unless defined $outspec and length $outspec;
+
+  # Otherwise open a write-handle on opt_d!f
+
+  DEBUG > 3 and print "About to try writing to specified output file $outspec\n";
+  my $fh = $self->open_fh(">", $outspec);
+
+  DEBUG > 3 and print "Successfully opened $outspec\n";
+  binmode($fh) if $self->{'output_is_binary'};
+  return($fh, $outspec);
+}
+
+#..........................................................................
+
+sub useful_filename_bit {
+  # This tries to provide a meaningful bit of text to do with the query,
+  # such as can be used in naming the file -- since if we're going to be
+  # opening windows on temp files (as a "pager" may well do!) then it's
+  # better if the temp file's name (which may well be used as the window
+  # title) isn't ALL just random garbage!
+  # In other words "perldoc_LWPSimple_2371981429" is a better temp file
+  # name than "perldoc_2371981429".  So this routine is what tries to
+  # provide the "LWPSimple" bit.
+  #
+  my $self = shift;
+  my $pages = $self->{'pages'} || return undef;
+  return undef unless @$pages;
+
+  my $chunk = $pages->[0];
+  return undef unless defined $chunk;
+  $chunk =~ s/:://g;
+  $chunk =~ s/\.\w+$//g; # strip any extension
+  if( $chunk =~ m/([^\#\\:\/\$]+)$/s ) { # get basename, if it's a file
+    $chunk = $1;
+  } else {
+    return undef;
+  }
+  $chunk =~ s/[^a-zA-Z0-9]+//g; # leave ONLY a-zA-Z0-9 things!
+  $chunk = substr($chunk, -10) if length($chunk) > 10;
+  return $chunk;
+}
+
+#..........................................................................
+
+sub new_tempfile {    # $self->new_tempfile( [$suffix, [$infix] ] )
+  my $self = shift;
+
+  ++$Temp_Files_Created;
+
+  require File::Temp;
+  return File::Temp::tempfile(UNLINK => 1);
+}
+
+#..........................................................................
+
+sub page {  # apply a pager to the output file
+    my ($self, $output, $output_to_stdout, @pagers) = @_;
+    if ($output_to_stdout) {
+        $self->aside("Sending unpaged output to STDOUT.\n");
+        my $fh = $self->open_fh("<", $output);
+        local $_;
+        while (<$fh>) {
+            print or $self->die( "Can't print to stdout: $!" );
+        }
+        close $fh or $self->die( "Can't close while $output: $!" );
+        $self->unlink_if_temp_file($output);
+    } else {
+        # On VMS, quoting prevents logical expansion, and temp files with no
+        # extension get the wrong default extension (such as .LIS for TYPE)
+
+        $output = VMS::Filespec::rmsexpand($output, '.') if $self->is_vms;
+
+        $output =~ s{/}{\\}g if $self->is_mswin32 || $self->is_dos;
+        # Altho "/" under MSWin is in theory good as a pathsep,
+        #  many many corners of the OS don't like it.  So we
+        #  have to force it to be "\" to make everyone happy.
+
+        # if we are on an amiga convert unix path to an amiga one
+        $output =~ s/^\/(.*)\/(.*)/$1:$2/ if $self->is_amigaos;
+
+        foreach my $pager (@pagers) {
+            $self->aside("About to try calling $pager $output\n");
+            if ($self->is_vms) {
+                last if system("$pager $output") == 0;
+              } elsif($self->is_amigaos) {
+                last if system($pager, $output) == 0;
+            } else {
+                # fix visible escape codes in ToTerm output
+                # https://bugs.debian.org/758689
+                local $ENV{LESS} = defined $ENV{LESS} ? "$ENV{LESS} -R" : "-R";
+                last if system("$pager \"$output\"") == 0;
+            }
+        }
+    }
+    return;
+}
+
+#..........................................................................
+
+sub searchfor {
+    my($self, $recurse,$s,@dirs) = @_;
+    $s =~ s!::!/!g;
+    $s = VMS::Filespec::unixify($s) if $self->is_vms;
+    return $s if -f $s && $self->containspod($s);
+    $self->aside( "Looking for $s in @dirs\n" );
+    my $ret;
+    my $i;
+    my $dir;
+    $self->{'target'} = (splitdir $s)[-1];  # XXX: why not use File::Basename?
+    for ($i=0; $i<@dirs; $i++) {
+    $dir = $dirs[$i];
+    next unless -d $dir;
+    ($dir = VMS::Filespec::unixpath($dir)) =~ s!/\z!! if $self->is_vms;
+    if (       (! $self->opt_m && ( $ret = $self->check_file($dir,"$s.pod")))
+        or ( $ret = $self->check_file($dir,"$s.pm"))
+        or ( $ret = $self->check_file($dir,$s))
+        or ( $self->is_vms and
+             $ret = $self->check_file($dir,"$s.com"))
+        or ( $self->is_os2 and
+             $ret = $self->check_file($dir,"$s.cmd"))
+        or ( ($self->is_mswin32 or $self->is_dos or $self->is_os2) and
+             $ret = $self->check_file($dir,"$s.bat"))
+        or ( $ret = $self->check_file("$dir/pod","$s.pod"))
+        or ( $ret = $self->check_file("$dir/pod",$s))
+        or ( $ret = $self->check_file("$dir/pods","$s.pod"))
+        or ( $ret = $self->check_file("$dir/pods",$s))
+    ) {
+        DEBUG > 1 and print "  Found $ret\n";
+        return $ret;
+    }
+
+    if ($recurse) {
+        opendir(D,$dir) or $self->die( "Can't opendir $dir: $!" );
+        my @newdirs = map catfile($dir, $_), grep {
+        not /^\.\.?\z/s and
+        not /^auto\z/s  and   # save time! don't search auto dirs
+        -d  catfile($dir, $_)
+        } readdir D;
+        closedir(D)     or $self->die( "Can't closedir $dir: $!" );
+        next unless @newdirs;
+        # what a wicked map!
+        @newdirs = map((s/\.dir\z//,$_)[1],@newdirs) if $self->is_vms;
+        $self->aside( "Also looking in @newdirs\n" );
+        push(@dirs,@newdirs);
+    }
+    }
+    return ();
+}
+
+#..........................................................................
+{
+  my $already_asserted;
+  sub assert_closing_stdout {
+    my $self = shift;
+
+    return if $already_asserted;
+
+    eval  q~ END { close(STDOUT) || CORE::die "Can't close STDOUT: $!" } ~;
+     # What for? to let the pager know that nothing more will come?
+
+    $self->die( $@ ) if $@;
+    $already_asserted = 1;
+    return;
+  }
+}
+
+#..........................................................................
+
+sub tweak_found_pathnames {
+  my($self, $found) = @_;
+  if ($self->is_mswin32) {
+    foreach (@$found) { s,/,\\,g }
+  }
+  foreach (@$found) { s,',\\',g } # RT 37347
+  return;
+}
+
+#..........................................................................
+#   :   :   :   :   :   :   :   :   :
+#..........................................................................
+
+sub am_taint_checking {
+    my $self = shift;
+    $self->die( "NO ENVIRONMENT?!?!" ) unless keys %ENV; # reset iterator along the way
+    my($k,$v) = each %ENV;
+    return is_tainted($v);
+}
+
+#..........................................................................
+
+sub is_tainted { # just a function
+    my $arg  = shift;
+    my $nada = substr($arg, 0, 0);  # zero-length!
+    local $@;  # preserve the caller's version of $@
+    eval { eval "# $nada" };
+    return length($@) != 0;
+}
+
+#..........................................................................
+
+sub drop_privs_maybe {
+    my $self = shift;
+
+    DEBUG and print "Attempting to drop privs...\n";
+
+    # Attempt to drop privs if we should be tainting and aren't
+    if (!( $self->is_vms || $self->is_mswin32 || $self->is_dos
+          || $self->is_os2
+         )
+        && ($> == 0 || $< == 0)
+        && !$self->am_taint_checking()
+    ) {
+        my $id = eval { getpwnam("nobody") };
+        $id = eval { getpwnam("nouser") } unless defined $id;
+        $id = -2 unless defined $id;
+            #
+            # According to Stevens' APUE and various
+            # (BSD, Solaris, HP-UX) man pages, setting
+            # the real uid first and effective uid second
+            # is the way to go if one wants to drop privileges,
+            # because if one changes into an effective uid of
+            # non-zero, one cannot change the real uid any more.
+            #
+            # Actually, it gets even messier.  There is
+            # a third uid, called the saved uid, and as
+            # long as that is zero, one can get back to
+            # uid of zero.  Setting the real-effective *twice*
+            # helps in *most* systems (FreeBSD and Solaris)
+            # but apparently in HP-UX even this doesn't help:
+            # the saved uid stays zero (apparently the only way
+            # in HP-UX to change saved uid is to call setuid()
+            # when the effective uid is zero).
+            #
+        eval {
+            $< = $id; # real uid
+            $> = $id; # effective uid
+            $< = $id; # real uid
+            $> = $id; # effective uid
+        };
+        if( !$@ && $< && $> ) {
+          DEBUG and print "OK, I dropped privileges.\n";
+        } elsif( $self->opt_U ) {
+          DEBUG and print "Couldn't drop privileges, but in -U mode, so feh."
+        } else {
+          DEBUG and print "Hm, couldn't drop privileges.  Ah well.\n";
+          # We used to die here; but that seemed pointless.
+        }
+    }
+    return;
+}
+
+#..........................................................................
+
+1;
+
+__END__
+
+=head1 NAME
+
+Pod::Perldoc - Look up Perl documentation in Pod format.
+
+=head1 SYNOPSIS
+
+    use Pod::Perldoc ();
+
+    Pod::Perldoc->run();
+
+=head1 DESCRIPTION
+
+The guts of L<perldoc> utility.
+
+=head1 SEE ALSO
+
+L<perldoc>
+
+=head1 COPYRIGHT AND DISCLAIMERS
+
+Copyright (c) 2002-2007 Sean M. Burke.
+
+This library is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+This program is distributed in the hope that it will be useful, but
+without any warranty; without even the implied warranty of
+merchantability or fitness for a particular purpose.
+
+=head1 AUTHOR
+
+Current maintainer: Mark Allen C<< <mallen@cpan.org> >>
+
+Past contributions from:
+brian d foy C<< <bdfoy@cpan.org> >>
+Adriano R. Ferreira C<< <ferreira@cpan.org> >>,
+Sean M. Burke C<< <sburke@cpan.org> >>
+
+=cut
diff --git a/lib/5.24.1/Pod/Perldoc/BaseTo.pm b/lib/5.24.1/Pod/Perldoc/BaseTo.pm
new file mode 100644
index 00000000..304da44e
--- /dev/null
+++ b/lib/5.24.1/Pod/Perldoc/BaseTo.pm
@@ -0,0 +1,153 @@
+package Pod::Perldoc::BaseTo;
+use strict;
+use warnings;
+
+use vars qw($VERSION);
+$VERSION = '3.25';
+
+use Carp                  qw(croak carp);
+use Config                qw(%Config);
+use File::Spec::Functions qw(catfile);
+
+sub is_pageable        { '' }
+sub write_with_binmode {  1 }
+
+sub output_extension   { 'txt' }  # override in subclass!
+
+# sub new { my $self = shift; ...  }
+# sub parse_from_file( my($class, $in, $out) = ...; ... }
+
+#sub new { return bless {}, ref($_[0]) || $_[0] }
+
+# this is also in Perldoc.pm, but why look there when you're a
+# subclass of this?
+sub TRUE  () {1}
+sub FALSE () {return}
+
+BEGIN {
+ *is_vms     = $^O eq 'VMS'      ? \&TRUE : \&FALSE unless defined &is_vms;
+ *is_mswin32 = $^O eq 'MSWin32'  ? \&TRUE : \&FALSE unless defined &is_mswin32;
+ *is_dos     = $^O eq 'dos'      ? \&TRUE : \&FALSE unless defined &is_dos;
+ *is_os2     = $^O eq 'os2'      ? \&TRUE : \&FALSE unless defined &is_os2;
+ *is_cygwin  = $^O eq 'cygwin'   ? \&TRUE : \&FALSE unless defined &is_cygwin;
+ *is_linux   = $^O eq 'linux'    ? \&TRUE : \&FALSE unless defined &is_linux;
+ *is_hpux    = $^O =~ m/hpux/    ? \&TRUE : \&FALSE unless defined &is_hpux;
+ *is_openbsd = $^O =~ m/openbsd/ ? \&TRUE : \&FALSE unless defined &is_openbsd;
+ *is_bitrig = $^O =~ m/bitrig/ ? \&TRUE : \&FALSE unless defined &is_bitrig;
+}
+
+sub _perldoc_elem {
+  my($self, $name) = splice @_,0,2;
+  if(@_) {
+    $self->{$name} = $_[0];
+  } else {
+    $self->{$name};
+  }
+}
+
+sub debugging {
+	my( $self, @messages ) = @_;
+
+    ( defined(&Pod::Perldoc::DEBUG) and &Pod::Perldoc::DEBUG() )
+	}
+
+sub debug {
+	my( $self, @messages ) = @_;
+	return unless $self->debugging;
+	print STDERR map { "DEBUG $_" } @messages;
+	}
+
+sub warn {
+	my( $self, @messages ) = @_;
+	carp join "\n", @messages, '';
+	}
+
+sub die {
+	my( $self, @messages ) = @_;
+	croak join "\n", @messages, '';
+	}
+
+sub _get_path_components {
+	my( $self ) = @_;
+
+	my @paths = split /\Q$Config{path_sep}/, $ENV{PATH};
+
+	return @paths;
+	}
+
+sub _find_executable_in_path {
+	my( $self, $program ) = @_;
+
+	my @found = ();
+	foreach my $dir ( $self->_get_path_components ) {
+		my $binary = catfile( $dir, $program );
+		$self->debug( "Looking for $binary\n" );
+		next unless -e $binary;
+		unless( -x $binary ) {
+			$self->warn( "Found $binary but it's not executable. Skipping.\n" );
+			next;
+			}
+		$self->debug( "Found $binary\n" );
+		push @found, $binary;
+		}
+
+	return @found;
+	}
+
+1;
+
+__END__
+
+=head1 NAME
+
+Pod::Perldoc::BaseTo - Base for Pod::Perldoc formatters
+
+=head1 SYNOPSIS
+
+    package Pod::Perldoc::ToMyFormat;
+
+    use parent qw( Pod::Perldoc::BaseTo );
+    ...
+
+=head1 DESCRIPTION
+
+This package is meant as a base of Pod::Perldoc formatters,
+like L<Pod::Perldoc::ToText>, L<Pod::Perldoc::ToMan>, etc.
+
+It provides default implementations for the methods
+
+    is_pageable
+    write_with_binmode
+    output_extension
+    _perldoc_elem
+
+The concrete formatter must implement
+
+    new
+    parse_from_file
+
+=head1 SEE ALSO
+
+L<perldoc>
+
+=head1 COPYRIGHT AND DISCLAIMERS
+
+Copyright (c) 2002-2007 Sean M. Burke.
+
+This library is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+This program is distributed in the hope that it will be useful, but
+without any warranty; without even the implied warranty of
+merchantability or fitness for a particular purpose.
+
+=head1 AUTHOR
+
+Current maintainer: Mark Allen C<< <mallen@cpan.org> >>
+
+Past contributions from:
+brian d foy C<< <bdfoy@cpan.org> >>
+Adriano R. Ferreira C<< <ferreira@cpan.org> >>,
+Sean M. Burke C<< <sburke@cpan.org> >>
+
+=cut
diff --git a/lib/5.24.1/Pod/Perldoc/GetOptsOO.pm b/lib/5.24.1/Pod/Perldoc/GetOptsOO.pm
new file mode 100644
index 00000000..71fcc7bc
--- /dev/null
+++ b/lib/5.24.1/Pod/Perldoc/GetOptsOO.pm
@@ -0,0 +1,161 @@
+package Pod::Perldoc::GetOptsOO;
+use strict;
+
+use vars qw($VERSION);
+$VERSION = '3.25';
+
+BEGIN { # Make a DEBUG constant ASAP
+  *DEBUG = defined( &Pod::Perldoc::DEBUG )
+   ? \&Pod::Perldoc::DEBUG
+   : sub(){10};
+}
+
+
+sub getopts {
+  my($target, $args, $truth) = @_;
+
+  $args ||= \@ARGV;
+
+  $target->aside(
+    "Starting switch processing.  Scanning arguments [@$args]\n"
+  ) if $target->can('aside');
+
+  return unless @$args;
+
+  $truth = 1 unless @_ > 2;
+
+  DEBUG > 3 and print "   Truth is $truth\n";
+
+
+  my $error_count = 0;
+
+  while( @$args  and  ($_ = $args->[0]) =~ m/^-(.)(.*)/s ) {
+    my($first,$rest) = ($1,$2);
+    if ($_ eq '--') {	# early exit if "--"
+      shift @$args;
+      last;
+    }
+    if ($first eq '-' and $rest) {      # GNU style long param names
+      ($first, $rest) = split '=', $rest, 2;
+    }
+    my $method = "opt_${first}_with";
+    if( $target->can($method) ) {  # it's argumental
+      if($rest eq '') {   # like -f bar
+        shift @$args;
+        $target->warn( "Option $first needs a following argument!\n" ) unless @$args;
+        $rest = shift @$args;
+      } else {            # like -fbar  (== -f bar)
+        shift @$args;
+      }
+
+      DEBUG > 3 and print " $method => $rest\n";
+      $target->$method( $rest );
+
+    # Otherwise, it's not argumental...
+    } else {
+
+      if( $target->can( $method = "opt_$first" ) ) {
+        DEBUG > 3 and print " $method is true ($truth)\n";
+        $target->$method( $truth );
+
+      # Otherwise it's an unknown option...
+
+      } elsif( $target->can('handle_unknown_option') ) {
+        DEBUG > 3
+         and print " calling handle_unknown_option('$first')\n";
+
+        $error_count += (
+          $target->handle_unknown_option( $first ) || 0
+        );
+
+      } else {
+        ++$error_count;
+        $target->warn( "Unknown option: $first\n" );
+      }
+
+      if($rest eq '') {   # like -f
+        shift @$args
+      } else {            # like -fbar  (== -f -bar )
+        DEBUG > 2 and print "   Setting args->[0] to \"-$rest\"\n";
+        $args->[0] = "-$rest";
+      }
+    }
+  }
+
+
+  $target->aside(
+    "Ending switch processing.  Args are [@$args] with $error_count errors.\n"
+  ) if $target->can('aside');
+
+  $error_count == 0;
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+Pod::Perldoc::GetOptsOO - Customized option parser for Pod::Perldoc
+
+=head1 SYNOPSIS
+
+    use Pod::Perldoc::GetOptsOO ();
+
+    Pod::Perldoc::GetOptsOO::getopts( $obj, \@args, $truth )
+       or die "wrong usage";
+
+
+=head1 DESCRIPTION
+
+Implements a customized option parser used for
+L<Pod::Perldoc>.
+
+Rather like Getopt::Std's getopts:
+
+=over
+
+=item Call Pod::Perldoc::GetOptsOO::getopts($object, \@ARGV, $truth)
+
+=item Given -n, if there's a opt_n_with, it'll call $object->opt_n_with( ARGUMENT )
+   (e.g., "-n foo" => $object->opt_n_with('foo').  Ditto "-nfoo")
+
+=item Otherwise (given -n) if there's an opt_n, we'll call it $object->opt_n($truth)
+   (Truth defaults to 1)
+
+=item Otherwise we try calling $object->handle_unknown_option('n')
+   (and we increment the error count by the return value of it)
+
+=item If there's no handle_unknown_option, then we just warn, and then increment
+   the error counter
+
+=back
+
+The return value of Pod::Perldoc::GetOptsOO::getopts is true if no errors,
+otherwise it's false.
+
+=head1 SEE ALSO
+
+L<Pod::Perldoc>
+
+=head1 COPYRIGHT AND DISCLAIMERS
+
+Copyright (c) 2002-2007 Sean M. Burke.
+
+This library is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+This program is distributed in the hope that it will be useful, but
+without any warranty; without even the implied warranty of
+merchantability or fitness for a particular purpose.
+
+=head1 AUTHOR
+
+Current maintainer: Mark Allen C<< <mallen@cpan.org> >>
+
+Past contributions from:
+brian d foy C<< <bdfoy@cpan.org> >>
+Adriano R. Ferreira C<< <ferreira@cpan.org> >>,
+Sean M. Burke C<< <sburke@cpan.org> >>
+
+=cut
diff --git a/lib/5.24.1/Pod/Perldoc/ToANSI.pm b/lib/5.24.1/Pod/Perldoc/ToANSI.pm
new file mode 100644
index 00000000..26a11d3c
--- /dev/null
+++ b/lib/5.24.1/Pod/Perldoc/ToANSI.pm
@@ -0,0 +1,96 @@
+package Pod::Perldoc::ToANSI;
+use strict;
+use warnings;
+use parent qw(Pod::Perldoc::BaseTo);
+
+use vars qw($VERSION);
+$VERSION = '3.25';
+
+sub is_pageable        { 1 }
+sub write_with_binmode { 0 }
+sub output_extension   { 'txt' }
+
+use Pod::Text::Color ();
+
+sub alt       { shift->_perldoc_elem('alt'     , @_) }
+sub indent    { shift->_perldoc_elem('indent'  , @_) }
+sub loose     { shift->_perldoc_elem('loose'   , @_) }
+sub quotes    { shift->_perldoc_elem('quotes'  , @_) }
+sub sentence  { shift->_perldoc_elem('sentence', @_) }
+sub width     { shift->_perldoc_elem('width'   , @_) }
+
+sub new { return bless {}, ref($_[0]) || $_[0] }
+
+sub parse_from_file {
+  my $self = shift;
+
+  my @options =
+    map {; $_, $self->{$_} }
+      grep !m/^_/s,
+        keys %$self
+  ;
+
+  defined(&Pod::Perldoc::DEBUG)
+   and Pod::Perldoc::DEBUG()
+   and print "About to call new Pod::Text::Color ",
+    $Pod::Text::VERSION ? "(v$Pod::Text::VERSION) " : '',
+    "with options: ",
+    @options ? "[@options]" : "(nil)", "\n";
+  ;
+
+  Pod::Text::Color->new(@options)->parse_from_file(@_);
+}
+
+1;
+
+=head1 NAME
+
+Pod::Perldoc::ToANSI - render Pod with ANSI color escapes 
+
+=head1 SYNOPSIS
+
+  perldoc -o ansi Some::Modulename
+
+=head1 DESCRIPTION
+
+This is a "plug-in" class that allows Perldoc to use
+Pod::Text as a formatter class.
+
+It supports the following options, which are explained in
+L<Pod::Text>: alt, indent, loose, quotes, sentence, width
+
+For example:
+
+  perldoc -o term -w indent:5 Some::Modulename
+
+=head1 CAVEAT
+
+This module may change to use a different text formatter class in the
+future, and this may change what options are supported.
+
+=head1 SEE ALSO
+
+L<Pod::Text>, L<Pod::Text::Color>, L<Pod::Perldoc>
+
+=head1 COPYRIGHT AND DISCLAIMERS
+
+Copyright (c) 2011 Mark Allen.  All rights reserved.
+
+This library is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+This program is distributed in the hope that it will be useful, but
+without any warranty; without even the implied warranty of
+merchantability or fitness for a particular purpose.
+
+=head1 AUTHOR
+
+Current maintainer: Mark Allen C<< <mallen@cpan.org> >>
+
+Past contributions from:
+brian d foy C<< <bdfoy@cpan.org> >>
+Adriano R. Ferreira C<< <ferreira@cpan.org> >>,
+Sean M. Burke C<< <sburke@cpan.org> >>
+
+
+=cut
diff --git a/lib/5.24.1/Pod/Perldoc/ToChecker.pm b/lib/5.24.1/Pod/Perldoc/ToChecker.pm
new file mode 100644
index 00000000..3d161acf
--- /dev/null
+++ b/lib/5.24.1/Pod/Perldoc/ToChecker.pm
@@ -0,0 +1,78 @@
+package Pod::Perldoc::ToChecker;
+use strict;
+use warnings;
+use vars qw(@ISA);
+
+use vars qw($VERSION);
+$VERSION = '3.25';
+
+# Pick our superclass...
+#
+eval 'require Pod::Simple::Checker';
+if($@) {
+  require Pod::Checker;
+  @ISA = ('Pod::Checker');
+} else {
+  @ISA = ('Pod::Simple::Checker');
+}
+
+sub is_pageable        { 1 }
+sub write_with_binmode { 0 }
+sub output_extension   { 'txt' }
+
+sub if_zero_length {
+  my( $self, $file, $tmp, $tmpfd ) = @_;
+  print "No Pod errors in $file\n";
+}
+
+
+1;
+
+__END__
+
+=head1 NAME
+
+Pod::Perldoc::ToChecker - let Perldoc check Pod for errors
+
+=head1 SYNOPSIS
+
+  % perldoc -o checker SomeFile.pod
+  No Pod errors in SomeFile.pod
+  (or an error report)
+
+=head1 DESCRIPTION
+
+This is a "plug-in" class that allows Perldoc to use
+Pod::Simple::Checker as a "formatter" class (or if that is
+not available, then Pod::Checker), to check for errors in a given
+Pod file.
+
+This is actually a Pod::Simple::Checker (or Pod::Checker) subclass, and
+inherits all its options.
+
+=head1 SEE ALSO
+
+L<Pod::Simple::Checker>, L<Pod::Simple>, L<Pod::Checker>, L<Pod::Perldoc>
+
+=head1 COPYRIGHT AND DISCLAIMERS
+
+Copyright (c) 2002 Sean M. Burke.  All rights reserved.
+
+This library is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+This program is distributed in the hope that it will be useful, but
+without any warranty; without even the implied warranty of
+merchantability or fitness for a particular purpose.
+
+=head1 AUTHOR
+
+Current maintainer: Mark Allen C<< <mallen@cpan.org> >>
+
+Past contributions from:
+brian d foy C<< <bdfoy@cpan.org> >>
+Adriano R. Ferreira C<< <ferreira@cpan.org> >>,
+Sean M. Burke C<< <sburke@cpan.org> >>
+
+=cut
+
diff --git a/lib/5.24.1/Pod/Perldoc/ToMan.pm b/lib/5.24.1/Pod/Perldoc/ToMan.pm
new file mode 100644
index 00000000..e22e0504
--- /dev/null
+++ b/lib/5.24.1/Pod/Perldoc/ToMan.pm
@@ -0,0 +1,561 @@
+require 5.006;
+package Pod::Perldoc::ToMan;
+use strict;
+use warnings;
+use parent qw(Pod::Perldoc::BaseTo);
+
+use vars qw($VERSION);
+$VERSION = '3.25';
+
+use File::Spec::Functions qw(catfile);
+use Pod::Man 2.18;
+# This class is unlike ToText.pm et al, because we're NOT paging thru
+# the output in our particular format -- we make the output and
+# then we run nroff (or whatever) on it, and then page thru the
+# (plaintext) output of THAT!
+
+sub SUCCESS () { 1 }
+sub FAILED  () { 0 }
+
+sub is_pageable        { 1 }
+sub write_with_binmode { 0 }
+sub output_extension   { 'txt' }
+
+sub __filter_nroff  { shift->_perldoc_elem('__filter_nroff'  , @_) }
+sub __nroffer       { shift->_perldoc_elem('__nroffer'       , @_) }
+sub __bindir        { shift->_perldoc_elem('__bindir'        , @_) }
+sub __pod2man       { shift->_perldoc_elem('__pod2man'       , @_) }
+sub __output_file   { shift->_perldoc_elem('__output_file'   , @_) }
+
+sub center          { shift->_perldoc_elem('center'         , @_) }
+sub date            { shift->_perldoc_elem('date'           , @_) }
+sub fixed           { shift->_perldoc_elem('fixed'          , @_) }
+sub fixedbold       { shift->_perldoc_elem('fixedbold'      , @_) }
+sub fixeditalic     { shift->_perldoc_elem('fixeditalic'    , @_) }
+sub fixedbolditalic { shift->_perldoc_elem('fixedbolditalic', @_) }
+sub name            { shift->_perldoc_elem('name'           , @_) }
+sub quotes          { shift->_perldoc_elem('quotes'         , @_) }
+sub release         { shift->_perldoc_elem('release'        , @_) }
+sub section         { shift->_perldoc_elem('section'        , @_) }
+
+sub new {
+	my( $either ) = shift;
+	my $self = bless {}, ref($either) || $either;
+	$self->init( @_ );
+	return $self;
+	}
+
+sub init {
+	my( $self, @args ) = @_;
+
+	unless( $self->__nroffer ) {
+		my $roffer = $self->_find_roffer( $self->_roffer_candidates );
+		$self->debug( "Using $roffer\n" );
+		$self->__nroffer( $roffer );
+		}
+    else {
+	    $self->debug( "__nroffer is " . $self->__nroffer() . "\n" );
+        }
+
+	$self->_check_nroffer;
+	}
+
+sub _roffer_candidates {
+	my( $self ) = @_;
+
+	if( $self->is_openbsd || $self->is_bitrig ) { qw( mandoc groff nroff ) }
+	else                    { qw( groff nroff mandoc ) }
+	}
+
+sub _find_roffer {
+	my( $self, @candidates ) = @_;
+
+	my @found = ();
+	foreach my $candidate ( @candidates ) {
+		push @found, $self->_find_executable_in_path( $candidate );
+		}
+
+	return wantarray ? @found : $found[0];
+	}
+
+sub _check_nroffer {
+	return 1;
+	# where is it in the PATH?
+
+	# is it executable?
+
+	# what is its real name?
+
+	# what is its version?
+
+	# does it support the flags we need?
+
+	# is it good enough for us?
+	}
+
+sub _get_stty { `stty -a` }
+
+sub _get_columns_from_stty {
+	my $output = $_[0]->_get_stty;
+
+	if(    $output =~ /\bcolumns\s+(\d+)/ )    { return $1 }
+	elsif( $output =~ /;\s*(\d+)\s+columns;/ ) { return $1 }
+	else                                       { return  0 }
+	}
+
+sub _get_columns_from_manwidth {
+	my( $self ) = @_;
+
+	return 0 unless defined $ENV{MANWIDTH};
+
+	unless( $ENV{MANWIDTH} =~ m/\A\d+\z/ ) {
+		$self->warn( "Ignoring non-numeric MANWIDTH ($ENV{MANWIDTH})\n" );
+		return 0;
+		}
+
+	if( $ENV{MANWIDTH} == 0 ) {
+		$self->warn( "Ignoring MANWIDTH of 0. Really? Why even run the program? :)\n" );
+		return 0;
+		}
+
+	if( $ENV{MANWIDTH} =~ m/\A(\d+)\z/ ) { return $1 }
+
+	return 0;
+	}
+
+sub _get_default_width {
+	73
+	}
+
+sub _get_columns {
+	$_[0]->_get_columns_from_manwidth ||
+	$_[0]->_get_columns_from_stty     ||
+	$_[0]->_get_default_width;
+	}
+
+sub _get_podman_switches {
+	my( $self ) = @_;
+
+	my @switches = map { $_, $self->{$_} } grep !m/^_/s, keys %$self;
+
+    # There needs to be a cleaner way to handle setting
+    # the UTF-8 flag, but for now, comment out this
+    # line because it often does the wrong thing.
+    #
+    # See RT #77465
+    #
+    #push @switches, 'utf8' => 1;
+
+	$self->debug( "Pod::Man switches are [@switches]\n" );
+
+	return @switches;
+	}
+
+sub _parse_with_pod_man {
+	my( $self, $file ) = @_;
+
+	#->output_fh and ->output_string from Pod::Simple aren't
+	# working, apparently, so there's this ugly hack:
+	local *STDOUT;
+	open STDOUT, '>', $self->{_text_ref};
+	my $parser = Pod::Man->new( $self->_get_podman_switches );
+	$self->debug( "Parsing $file\n" );
+	$parser->parse_from_file( $file );
+	$self->debug( "Done parsing $file\n" );
+	close STDOUT;
+
+	$self->die( "No output from Pod::Man!\n" )
+		unless length $self->{_text_ref};
+
+	$self->_save_pod_man_output if $self->debugging;
+
+	return SUCCESS;
+	}
+
+sub _save_pod_man_output {
+	my( $self, $fh ) = @_;
+
+	$fh = do {
+		my $file = "podman.out.$$.txt";
+		$self->debug( "Writing $file with Pod::Man output\n" );
+		open my $fh2, '>', $file;
+		$fh2;
+		} unless $fh;
+
+	print { $fh } ${ $self->{_text_ref} };
+	}
+
+sub _have_groff_with_utf8 {
+	my( $self ) = @_;
+
+	return 0 unless $self->_is_groff;
+	my $roffer = $self->__nroffer;
+
+	my $minimum_groff_version = '1.20.1';
+
+	my $version_string = `$roffer -v`;
+	my( $version ) = $version_string =~ /\(?groff\)? version (\d+\.\d+(?:\.\d+)?)/;
+	$self->debug( "Found groff $version\n" );
+
+	# is a string comparison good enough?
+	if( $version lt $minimum_groff_version ) {
+		$self->warn(
+			"You have an old groff." .
+			" Update to version $minimum_groff_version for good Unicode support.\n" .
+			"If you don't upgrade, wide characters may come out oddly.\n"
+			 );
+		}
+
+	$version ge $minimum_groff_version;
+	}
+
+sub _have_mandoc_with_utf8 {
+	my( $self ) = @_;
+
+       $self->_is_mandoc and not system 'mandoc -Tlocale -V > /dev/null 2>&1';
+	}
+
+sub _collect_nroff_switches {
+	my( $self ) = shift;
+
+    my @render_switches = ('-man', $self->_get_device_switches);
+
+	# Thanks to Brendan O'Dea for contributing the following block
+	if( $self->_is_roff and -t STDOUT and my ($cols) = $self->_get_columns ) {
+		my $c = $cols * 39 / 40;
+		$cols = $c > $cols - 2 ? $c : $cols -2;
+		push @render_switches, '-rLL=' . (int $c) . 'n' if $cols > 80;
+		}
+
+	# I hear persistent reports that adding a -c switch to $render
+	# solves many people's problems.  But I also hear that some mans
+	# don't have a -c switch, so that unconditionally adding it here
+	# would presumably be a Bad Thing   -- sburke@cpan.org
+    push @render_switches, '-c' if( $self->_is_roff and $self->is_cygwin );
+
+	return @render_switches;
+	}
+
+sub _get_device_switches {
+	my( $self ) = @_;
+
+	   if( $self->_is_nroff  )             { qw()              }
+	elsif( $self->_have_groff_with_utf8 )  { qw(-Kutf8 -Tutf8) }
+	elsif( $self->_is_ebcdic )             { qw(-Tcp1047)      }
+	elsif( $self->_have_mandoc_with_utf8 ) { qw(-Tlocale)      }
+	elsif( $self->_is_mandoc )             { qw()              }
+	else                                   { qw(-Tlatin1)      }
+	}
+
+sub _is_roff {
+	my( $self ) = @_;
+
+	$self->_is_nroff or $self->_is_groff;
+	}
+
+sub _is_nroff {
+	my( $self ) = @_;
+
+	$self->__nroffer =~ /\bnroff\b/;
+	}
+
+sub _is_groff {
+	my( $self ) = @_;
+
+	$self->__nroffer =~ /\bgroff\b/;
+	}
+
+sub _is_mandoc {
+	my ( $self ) = @_;
+
+	$self->__nroffer =~ /\bmandoc\b/;
+	}
+
+sub _is_ebcdic {
+	my( $self ) = @_;
+
+	return 0;
+	}
+	
+sub _filter_through_nroff {
+	my( $self ) = shift;
+	$self->debug( "Filtering through " . $self->__nroffer() . "\n" );
+
+    # Maybe someone set rendering switches as part of the opt_n value
+    # Deal with that here.
+
+    my ($render, $switches) = $self->__nroffer() =~ /\A([\/a-zA-Z0-9_\.-]+)\b(.+)?\z/;
+
+    $self->die("no nroffer!?") unless $render;
+    my @render_switches = $self->_collect_nroff_switches;
+
+    if ( $switches ) {
+        # Eliminate whitespace 
+        $switches =~ s/\s//g;
+
+        # Then separate the switches with a zero-width positive 
+        # lookahead on the dash.
+        #
+        # See:
+        # http://www.effectiveperlprogramming.com/blog/1411
+        # for a good discussion of this technique
+
+        push @render_switches, split(/(?=-)/, $switches);
+        }
+
+	$self->debug( "render is $render\n" );
+	$self->debug( "render options are @render_switches\n" );
+
+	require Symbol;
+	require IPC::Open3;
+	require IO::Handle;
+
+	my $pid = IPC::Open3::open3(
+		my $writer,
+		my $reader,
+		my $err = Symbol::gensym(),
+		$render,
+		@render_switches
+		);
+
+	$reader->autoflush(1);
+
+	use IO::Select;
+	my $selector = IO::Select->new( $reader );
+
+	$self->debug( "Writing to pipe to $render\n" );
+
+	my $offset = 0;
+	my $chunk_size = 4096;
+	my $length = length( ${ $self->{_text_ref} } );
+	my $chunks = $length / $chunk_size;
+	my $done;
+	my $buffer;
+	while( $offset <= $length ) {
+		$self->debug( "Writing chunk $chunks\n" ); $chunks++;
+		syswrite $writer, ${ $self->{_text_ref} }, $chunk_size, $offset
+			or $self->die( $! );
+		$offset += $chunk_size;
+		$self->debug( "Checking read\n" );
+		READ: {
+			last READ unless $selector->can_read( 0.01 );
+			$self->debug( "Reading\n" );
+			my $bytes = sysread $reader, $buffer, 4096;
+			$self->debug( "Read $bytes bytes\n" );
+			$done .= $buffer;
+			$self->debug( sprintf "Output is %d bytes\n",
+				length $done
+				);
+			next READ;
+			}
+		}
+	close $writer;
+	$self->debug( "Done writing\n" );
+
+	# read any leftovers
+	$done .= do { local $/; <$reader> };
+	$self->debug( sprintf "Done reading. Output is %d bytes\n",
+		length $done
+		);
+
+	if( $? ) {
+		$self->warn( "Error from pipe to $render!\n" );
+		$self->debug( 'Error: ' . do { local $/; <$err> } );
+		}
+
+
+	close $reader;
+	if( my $err = $? ) {
+		$self->debug(
+			"Nonzero exit ($?) while running `$render @render_switches`.\n" .
+			"Falling back to Pod::Perldoc::ToPod\n"
+			);
+		return $self->_fallback_to_pod( @_ );
+		}
+
+	$self->debug( "Output:\n----\n$done\n----\n" );
+
+	${ $self->{_text_ref} } = $done;
+
+	return length ${ $self->{_text_ref} } ? SUCCESS : FAILED;
+	}
+
+sub parse_from_file {
+	my( $self, $file, $outfh) = @_;
+
+	# We have a pipeline of filters each affecting the reference
+	# in $self->{_text_ref}
+	$self->{_text_ref} = \my $output;
+
+	$self->_parse_with_pod_man( $file );
+	# so far, nroff is an external command so we ensure it worked
+	my $result = $self->_filter_through_nroff;
+	return $self->_fallback_to_pod( @_ ) unless $result == SUCCESS;
+
+	$self->_post_nroff_processing;
+
+	print { $outfh } $output or
+		$self->die( "Can't print to $$self{__output_file}: $!" );
+
+	return;
+	}
+
+sub _fallback_to_pod {
+	my( $self, @args ) = @_;
+	$self->warn( "Falling back to Pod because there was a problem!\n" );
+	require Pod::Perldoc::ToPod;
+	return  Pod::Perldoc::ToPod->new->parse_from_file(@_);
+	}
+
+# maybe there's a user setting we should check?
+sub _get_tab_width { 4 }
+
+sub _expand_tabs {
+	my( $self ) = @_;
+
+	my $tab_width = ' ' x $self->_get_tab_width;
+
+	${ $self->{_text_ref} } =~ s/\t/$tab_width/g;
+	}
+
+sub _post_nroff_processing {
+	my( $self ) = @_;
+
+	if( $self->is_hpux ) {
+	    $self->debug( "On HP-UX, I'm going to expand tabs for you\n" );
+		# this used to be a pipe to `col -x` for HP-UX
+		$self->_expand_tabs;
+		}
+
+	if( $self->{'__filter_nroff'} ) {
+		$self->debug( "filter_nroff is set, so filtering\n" );
+		$self->_remove_nroff_header;
+		$self->_remove_nroff_footer;
+		}
+	else {
+		$self->debug( "filter_nroff is not set, so not filtering\n" );
+		}
+
+	$self->_handle_unicode;
+
+	return 1;
+	}
+
+# I don't think this does anything since there aren't two consecutive
+# newlines in the Pod::Man output
+sub _remove_nroff_header {
+	my( $self ) = @_;
+	$self->debug( "_remove_nroff_header is still a stub!\n" );
+	return 1;
+
+#  my @data = split /\n{2,}/, shift;
+#  shift @data while @data and $data[0] !~ /\S/; # Go to header
+#  shift @data if @data and $data[0] =~ /Contributed\s+Perl/; # Skip header
+	}
+
+# I don't think this does anything since there aren't two consecutive
+# newlines in the Pod::Man output
+sub _remove_nroff_footer {
+	my( $self ) = @_;
+	$self->debug( "_remove_nroff_footer is still a stub!\n" );
+	return 1;
+	${ $self->{_text_ref} } =~ s/\n\n+.*\w.*\Z//m;
+
+#  my @data = split /\n{2,}/, shift;
+#  pop @data if @data and $data[-1] =~ /^\w/; # Skip footer, like
+        # 28/Jan/99 perl 5.005, patch 53 1
+	}
+
+sub _unicode_already_handled {
+	my( $self ) = @_;
+
+	$self->_have_groff_with_utf8 ||
+	1  # so, we don't have a case that needs _handle_unicode
+	;
+	}
+
+sub _handle_unicode {
+# this is the job of preconv
+# we don't need this with groff 1.20 and later.
+	my( $self ) = @_;
+
+	return 1 if $self->_unicode_already_handled;
+
+	require Encode;
+
+	# it's UTF-8 here, but we need character data
+	my $text = Encode::decode( 'UTF-8', ${ $self->{_text_ref} } ) ;
+
+# http://www.mail-archive.com/groff@gnu.org/msg01378.html
+# http://linux.die.net/man/7/groff_char
+# http://www.gnu.org/software/groff/manual/html_node/Using-Symbols.html
+# http://lists.gnu.org/archive/html/groff/2011-05/msg00007.html
+# http://www.simplicidade.org/notes/archives/2009/05/fixing_the_pod.html
+# http://lists.freebsd.org/pipermail/freebsd-questions/2011-July/232239.html
+	$text =~ s/(\P{ASCII})/
+		sprintf '\\[u%04X]', ord $1
+	     /eg;
+
+	# should we encode?
+	${ $self->{_text_ref} } = $text;
+	}
+
+1;
+
+__END__
+
+=head1 NAME
+
+Pod::Perldoc::ToMan - let Perldoc render Pod as man pages
+
+=head1 SYNOPSIS
+
+  perldoc -o man Some::Modulename
+
+=head1 DESCRIPTION
+
+This is a "plug-in" class that allows Perldoc to use
+Pod::Man and C<groff> for reading Pod pages.
+
+The following options are supported:  center, date, fixed, fixedbold,
+fixeditalic, fixedbolditalic, quotes, release, section
+
+(Those options are explained in L<Pod::Man>.)
+
+For example:
+
+  perldoc -o man -w center:Pod Some::Modulename
+
+=head1 CAVEAT
+
+This module may change to use a different pod-to-nroff formatter class
+in the future, and this may change what options are supported.
+
+=head1 SEE ALSO
+
+L<Pod::Man>, L<Pod::Perldoc>, L<Pod::Perldoc::ToNroff>
+
+=head1 COPYRIGHT AND DISCLAIMERS
+
+Copyright (c) 2011 brian d foy. All rights reserved.
+
+Copyright (c) 2002,3,4 Sean M. Burke.  All rights reserved.
+
+This library is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+This program is distributed in the hope that it will be useful, but
+without any warranty; without even the implied warranty of
+merchantability or fitness for a particular purpose.
+
+=head1 AUTHOR
+
+Current maintainer: Mark Allen C<< <mallen@cpan.org> >>
+
+Past contributions from:
+brian d foy C<< <bdfoy@cpan.org> >>
+Adriano R. Ferreira C<< <ferreira@cpan.org> >>,
+Sean M. Burke C<< <sburke@cpan.org> >>
+
+=cut
+
diff --git a/lib/5.24.1/Pod/Perldoc/ToNroff.pm b/lib/5.24.1/Pod/Perldoc/ToNroff.pm
new file mode 100644
index 00000000..ac4a8aa1
--- /dev/null
+++ b/lib/5.24.1/Pod/Perldoc/ToNroff.pm
@@ -0,0 +1,105 @@
+package Pod::Perldoc::ToNroff;
+use strict;
+use warnings;
+use parent qw(Pod::Perldoc::BaseTo);
+
+use vars qw($VERSION);
+$VERSION = '3.25';
+
+# This is unlike ToMan.pm in that it emits the raw nroff source!
+
+sub is_pageable        { 1 }  # well, if you ask for it...
+sub write_with_binmode { 0 }
+sub output_extension   { 'man' }
+
+use Pod::Man ();
+
+sub center          { shift->_perldoc_elem('center'         , @_) }
+sub date            { shift->_perldoc_elem('date'           , @_) }
+sub fixed           { shift->_perldoc_elem('fixed'          , @_) }
+sub fixedbold       { shift->_perldoc_elem('fixedbold'      , @_) }
+sub fixeditalic     { shift->_perldoc_elem('fixeditalic'    , @_) }
+sub fixedbolditalic { shift->_perldoc_elem('fixedbolditalic', @_) }
+sub quotes          { shift->_perldoc_elem('quotes'         , @_) }
+sub release         { shift->_perldoc_elem('release'        , @_) }
+sub section         { shift->_perldoc_elem('section'        , @_) }
+
+sub new { return bless {}, ref($_[0]) || $_[0] }
+
+sub parse_from_file {
+  my $self = shift;
+  my $file = $_[0];
+
+  my @options =
+    map {; $_, $self->{$_} }
+      grep !m/^_/s,
+        keys %$self
+  ;
+
+  defined(&Pod::Perldoc::DEBUG)
+   and Pod::Perldoc::DEBUG()
+   and print "About to call new Pod::Man ",
+    $Pod::Man::VERSION ? "(v$Pod::Man::VERSION) " : '',
+    "with options: ",
+    @options ? "[@options]" : "(nil)", "\n";
+  ;
+
+  Pod::Man->new(@options)->parse_from_file(@_);
+}
+
+1;
+__END__
+
+=head1 NAME
+
+Pod::Perldoc::ToNroff - let Perldoc convert Pod to nroff
+
+=head1 SYNOPSIS
+
+  perldoc -o nroff -d something.3 Some::Modulename
+
+=head1 DESCRIPTION
+
+This is a "plug-in" class that allows Perldoc to use
+Pod::Man as a formatter class.
+
+The following options are supported:  center, date, fixed, fixedbold,
+fixeditalic, fixedbolditalic, quotes, release, section
+
+Those options are explained in L<Pod::Man>.
+
+For example:
+
+  perldoc -o nroff -w center:Pod -d something.3 Some::Modulename
+
+=head1 CAVEAT
+
+This module may change to use a different pod-to-nroff formatter class
+in the future, and this may change what options are supported.
+
+=head1 SEE ALSO
+
+L<Pod::Man>, L<Pod::Perldoc>, L<Pod::Perldoc::ToMan>
+
+=head1 COPYRIGHT AND DISCLAIMERS
+
+Copyright (c) 2002 Sean M. Burke.  All rights reserved.
+
+This library is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+This program is distributed in the hope that it will be useful, but
+without any warranty; without even the implied warranty of
+merchantability or fitness for a particular purpose.
+
+=head1 AUTHOR
+
+Current maintainer: Mark Allen C<< <mallen@cpan.org> >>
+
+Past contributions from:
+brian d foy C<< <bdfoy@cpan.org> >>
+Adriano R. Ferreira C<< <ferreira@cpan.org> >>,
+Sean M. Burke C<< <sburke@cpan.org> >>
+
+=cut
+
diff --git a/lib/5.24.1/Pod/Perldoc/ToPod.pm b/lib/5.24.1/Pod/Perldoc/ToPod.pm
new file mode 100644
index 00000000..8433e8ca
--- /dev/null
+++ b/lib/5.24.1/Pod/Perldoc/ToPod.pm
@@ -0,0 +1,88 @@
+package Pod::Perldoc::ToPod;
+use strict;
+use warnings;
+use parent qw(Pod::Perldoc::BaseTo);
+
+use vars qw($VERSION);
+$VERSION = '3.25';
+
+sub is_pageable        { 1 }
+sub write_with_binmode { 0 }
+sub output_extension   { 'pod' }
+
+sub new { return bless {}, ref($_[0]) || $_[0] }
+
+sub parse_from_file {
+  my( $self, $in, $outfh ) = @_;
+
+  open(IN, "<", $in) or $self->die( "Can't read-open $in: $!\nAborting" );
+
+  my $cut_mode = 1;
+
+  # A hack for finding things between =foo and =cut, inclusive
+  local $_;
+  while (<IN>) {
+    if(  m/^=(\w+)/s ) {
+      if($cut_mode = ($1 eq 'cut')) {
+        print $outfh "\n=cut\n\n";
+         # Pass thru the =cut line with some harmless
+         #  (and occasionally helpful) padding
+      }
+    }
+    next if $cut_mode;
+    print $outfh $_ or $self->die( "Can't print to $outfh: $!" );
+  }
+
+  close IN or $self->die( "Can't close $in: $!" );
+  return;
+}
+
+1;
+__END__
+
+=head1 NAME
+
+Pod::Perldoc::ToPod - let Perldoc render Pod as ... Pod!
+
+=head1 SYNOPSIS
+
+  perldoc -opod Some::Modulename
+
+(That's currently the same as the following:)
+
+  perldoc -u Some::Modulename
+
+=head1 DESCRIPTION
+
+This is a "plug-in" class that allows Perldoc to display Pod source as
+itself!  Pretty Zen, huh?
+
+Currently this class works by just filtering out the non-Pod stuff from
+a given input file.
+
+=head1 SEE ALSO
+
+L<Pod::Perldoc>
+
+=head1 COPYRIGHT AND DISCLAIMERS
+
+Copyright (c) 2002 Sean M. Burke.  All rights reserved.
+
+This library is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+This program is distributed in the hope that it will be useful, but
+without any warranty; without even the implied warranty of
+merchantability or fitness for a particular purpose.
+
+=head1 AUTHOR
+
+Current maintainer: Mark Allen C<< <mallencpan.org> >>
+
+Past contributions from:
+brian d foy C<< <bdfoy@cpan.org> >>
+Adriano R. Ferreira C<< <ferreira@cpan.org> >>,
+Sean M. Burke C<< <sburke@cpan.org> >>
+
+=cut
+
diff --git a/lib/5.24.1/Pod/Perldoc/ToRtf.pm b/lib/5.24.1/Pod/Perldoc/ToRtf.pm
new file mode 100644
index 00000000..81f019f8
--- /dev/null
+++ b/lib/5.24.1/Pod/Perldoc/ToRtf.pm
@@ -0,0 +1,83 @@
+package Pod::Perldoc::ToRtf;
+use strict;
+use warnings;
+use parent qw( Pod::Simple::RTF );
+
+use vars qw($VERSION);
+$VERSION = '3.25';
+
+sub is_pageable        { 0 }
+sub write_with_binmode { 0 }
+sub output_extension   { 'rtf' }
+
+sub page_for_perldoc {
+  my($self, $tempfile, $perldoc) = @_;
+  return unless $perldoc->IS_MSWin32;
+
+  my $rtf_pager = $ENV{'RTFREADER'} || 'write.exe';
+
+  $perldoc->aside( "About to launch <\"$rtf_pager\" \"$tempfile\">\n" );
+
+  return 1 if system( qq{"$rtf_pager"}, qq{"$tempfile"} ) == 0;
+  return 0;
+}
+
+1;
+__END__
+
+=head1 NAME
+
+Pod::Perldoc::ToRtf - let Perldoc render Pod as RTF
+
+=head1 SYNOPSIS
+
+  perldoc -o rtf Some::Modulename
+
+=head1 DESCRIPTION
+
+This is a "plug-in" class that allows Perldoc to use
+Pod::Simple::RTF as a formatter class.
+
+This is actually a Pod::Simple::RTF subclass, and inherits
+all its options.
+
+You have to have Pod::Simple::RTF installed (from the Pod::Simple dist),
+or this module won't work.
+
+If Perldoc is running under MSWin and uses this class as a formatter,
+the output will be opened with F<write.exe> or whatever program is
+specified in the environment variable C<RTFREADER>. For example, to
+specify that RTF files should be opened the same as they are when you
+double-click them, you would do C<set RTFREADER=start.exe> in your
+F<autoexec.bat>.
+
+Handy tip: put C<set PERLDOC=-ortf> in your F<autoexec.bat>
+and that will set this class as the default formatter to run when
+you do C<perldoc whatever>.
+
+=head1 SEE ALSO
+
+L<Pod::Simple::RTF>, L<Pod::Simple>, L<Pod::Perldoc>
+
+=head1 COPYRIGHT AND DISCLAIMERS
+
+Copyright (c) 2002 Sean M. Burke.  All rights reserved.
+
+This library is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+This program is distributed in the hope that it will be useful, but
+without any warranty; without even the implied warranty of
+merchantability or fitness for a particular purpose.
+
+=head1 AUTHOR
+
+Current maintainer: Mark Allen C<< <mallen@cpan.org> >>
+
+Past contributions from:
+brian d foy C<< <bdfoy@cpan.org> >>
+Adriano R. Ferreira C<< <ferreira@cpan.org> >>,
+Sean M. Burke C<< <sburke@cpan.org> >>
+
+=cut
+
diff --git a/lib/5.24.1/Pod/Perldoc/ToTerm.pm b/lib/5.24.1/Pod/Perldoc/ToTerm.pm
new file mode 100644
index 00000000..e97a775e
--- /dev/null
+++ b/lib/5.24.1/Pod/Perldoc/ToTerm.pm
@@ -0,0 +1,133 @@
+package Pod::Perldoc::ToTerm;
+use strict;
+use warnings;
+
+use vars qw($VERSION);
+$VERSION = '3.25';
+
+use parent qw(Pod::Perldoc::BaseTo);
+
+sub is_pageable        { 1 }
+sub write_with_binmode { 0 }
+sub output_extension   { 'txt' }
+
+use Pod::Text::Termcap ();
+
+sub alt       { shift->_perldoc_elem('alt'     , @_) }
+sub indent    { shift->_perldoc_elem('indent'  , @_) }
+sub loose     { shift->_perldoc_elem('loose'   , @_) }
+sub quotes    { shift->_perldoc_elem('quotes'  , @_) }
+sub sentence  { shift->_perldoc_elem('sentence', @_) }
+sub width     { 
+    my $self = shift;
+    $self->_perldoc_elem('width' , @_) ||
+    $self->_get_columns_from_manwidth  ||
+	$self->_get_columns_from_stty      ||
+	$self->_get_default_width;
+}
+
+sub _get_stty { `stty -a` }
+
+sub _get_columns_from_stty {
+	my $output = $_[0]->_get_stty;
+
+	if(    $output =~ /\bcolumns\s+(\d+)/ )    { return $1; }
+	elsif( $output =~ /;\s*(\d+)\s+columns;/ ) { return $1; }
+	else                                       { return  0 }
+	}
+
+sub _get_columns_from_manwidth {
+	my( $self ) = @_;
+
+	return 0 unless defined $ENV{MANWIDTH};
+
+	unless( $ENV{MANWIDTH} =~ m/\A\d+\z/ ) {
+		$self->warn( "Ignoring non-numeric MANWIDTH ($ENV{MANWIDTH})\n" );
+		return 0;
+		}
+
+	if( $ENV{MANWIDTH} == 0 ) {
+		$self->warn( "Ignoring MANWIDTH of 0. Really? Why even run the program? :)\n" );
+		return 0;
+		}
+
+	if( $ENV{MANWIDTH} =~ m/\A(\d+)\z/ ) { return $1 }
+
+	return 0;
+	}
+
+sub _get_default_width {
+	76
+	}
+
+
+sub new { return bless {}, ref($_[0]) || $_[0] }
+
+sub parse_from_file {
+  my $self = shift;
+
+  $self->{width} = $self->width();
+
+  my @options =
+    map {; $_, $self->{$_} }
+      grep !m/^_/s,
+        keys %$self
+  ;
+
+  defined(&Pod::Perldoc::DEBUG)
+   and Pod::Perldoc::DEBUG()
+   and print "About to call new Pod::Text::Termcap ",
+    $Pod::Text::VERSION ? "(v$Pod::Text::Termcap::VERSION) " : '',
+    "with options: ",
+    @options ? "[@options]" : "(nil)", "\n";
+  ;
+
+  Pod::Text::Termcap->new(@options)->parse_from_file(@_);
+}
+
+1;
+
+=head1 NAME
+
+Pod::Perldoc::ToTerm - render Pod with terminal escapes 
+
+=head1 SYNOPSIS
+
+  perldoc -o term Some::Modulename
+
+=head1 DESCRIPTION
+
+This is a "plug-in" class that allows Perldoc to use
+Pod::Text as a formatter class.
+
+It supports the following options, which are explained in
+L<Pod::Text>: alt, indent, loose, quotes, sentence, width
+
+For example:
+
+  perldoc -o term -w indent:5 Some::Modulename
+
+=head1 CAVEAT
+
+This module may change to use a different text formatter class in the
+future, and this may change what options are supported.
+
+=head1 SEE ALSO
+
+L<Pod::Text>, L<Pod::Text::Termcap>, L<Pod::Perldoc>
+
+=head1 COPYRIGHT AND DISCLAIMERS
+
+Copyright (c) 2011 Mark Allen.
+
+This program is free software; you can redistribute it and/or modify it
+under the terms of either: the GNU General Public License as published
+by the Free Software Foundation; or the Artistic License.
+
+See http://dev.perl.org/licenses/ for more information.
+
+=head1 AUTHOR
+
+Mark Allen C<< <mallen@cpan.org> >>
+
+=cut
diff --git a/lib/5.24.1/Pod/Perldoc/ToText.pm b/lib/5.24.1/Pod/Perldoc/ToText.pm
new file mode 100644
index 00000000..dbd47438
--- /dev/null
+++ b/lib/5.24.1/Pod/Perldoc/ToText.pm
@@ -0,0 +1,98 @@
+package Pod::Perldoc::ToText;
+use strict;
+use warnings;
+
+use vars qw($VERSION);
+$VERSION = '3.25';
+
+use parent qw(Pod::Perldoc::BaseTo);
+
+sub is_pageable        { 1 }
+sub write_with_binmode { 0 }
+sub output_extension   { 'txt' }
+
+use Pod::Text ();
+
+sub alt       { shift->_perldoc_elem('alt'     , @_) }
+sub indent    { shift->_perldoc_elem('indent'  , @_) }
+sub loose     { shift->_perldoc_elem('loose'   , @_) }
+sub quotes    { shift->_perldoc_elem('quotes'  , @_) }
+sub sentence  { shift->_perldoc_elem('sentence', @_) }
+sub width     { shift->_perldoc_elem('width'   , @_) }
+
+sub new { return bless {}, ref($_[0]) || $_[0] }
+
+sub parse_from_file {
+  my $self = shift;
+
+  my @options =
+    map {; $_, $self->{$_} }
+      grep !m/^_/s,
+        keys %$self
+  ;
+
+  defined(&Pod::Perldoc::DEBUG)
+   and Pod::Perldoc::DEBUG()
+   and print "About to call new Pod::Text ",
+    $Pod::Text::VERSION ? "(v$Pod::Text::VERSION) " : '',
+    "with options: ",
+    @options ? "[@options]" : "(nil)", "\n";
+  ;
+
+  Pod::Text->new(@options)->parse_from_file(@_);
+}
+
+1;
+
+=head1 NAME
+
+Pod::Perldoc::ToText - let Perldoc render Pod as plaintext
+
+=head1 SYNOPSIS
+
+  perldoc -o text Some::Modulename
+
+=head1 DESCRIPTION
+
+This is a "plug-in" class that allows Perldoc to use
+Pod::Text as a formatter class.
+
+It supports the following options, which are explained in
+L<Pod::Text>: alt, indent, loose, quotes, sentence, width
+
+For example:
+
+  perldoc -o text -w indent:5 Some::Modulename
+
+=head1 CAVEAT
+
+This module may change to use a different text formatter class in the
+future, and this may change what options are supported.
+
+=head1 SEE ALSO
+
+L<Pod::Text>, L<Pod::Perldoc>
+
+=head1 COPYRIGHT AND DISCLAIMERS
+
+Copyright (c) 2002 Sean M. Burke.  All rights reserved.
+
+This library is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+This program is distributed in the hope that it will be useful, but
+without any warranty; without even the implied warranty of
+merchantability or fitness for a particular purpose.
+
+=head1 AUTHOR
+
+Current maintainer: Mark Allen C<< <mallen@cpan.org> >>
+
+Past contributions from:
+brian d foy C<< <bdfoy@cpan.org> >>
+Adriano R. Ferreira C<< <ferreira@cpan.org> >>,
+Sean M. Burke C<< <sburke@cpan.org> >>
+
+
+=cut
+
diff --git a/lib/5.24.1/Pod/Perldoc/ToTk.pm b/lib/5.24.1/Pod/Perldoc/ToTk.pm
new file mode 100644
index 00000000..40b51c5b
--- /dev/null
+++ b/lib/5.24.1/Pod/Perldoc/ToTk.pm
@@ -0,0 +1,154 @@
+package Pod::Perldoc::ToTk;
+use strict;
+use warnings;
+
+use vars qw($VERSION);
+$VERSION = '3.25';
+
+use parent qw(Pod::Perldoc::BaseTo);
+
+sub is_pageable        { 1 }
+sub write_with_binmode { 0 }
+sub output_extension   { 'txt' } # doesn't matter
+sub if_zero_length { }  # because it will be 0-length!
+sub new { return bless {}, ref($_[0]) || $_[0] }
+
+# TODO: document these and their meanings...
+sub tree      { shift->_perldoc_elem('tree'    , @_) }
+sub tk_opt    { shift->_perldoc_elem('tk_opt'  , @_) }
+sub forky     { shift->_perldoc_elem('forky'   , @_) }
+
+use Pod::Perldoc ();
+use File::Spec::Functions qw(catfile);
+
+BEGIN{ # Tk is not core, but this is
+  eval { require Tk } ||
+  __PACKAGE__->die( <<"HERE" );
+You must have the Tk module to use Pod::Perldoc::ToTk.
+If you have it installed, ensure it's in your Perl library
+path.
+HERE
+
+  __PACKAGE__->die(
+    __PACKAGE__,
+    " doesn't work nice with Tk.pm version $Tk::VERSION"
+    ) if $Tk::VERSION eq '800.003';
+  }
+
+
+BEGIN { eval { require Tk::FcyEntry; }; };
+BEGIN{ # Tk::Pod is not core, but this is
+  eval { require Tk::Pod } ||
+  __PACKAGE__->die( <<"HERE" );
+You must have the Tk::Pod module to use Pod::Perldoc::ToTk.
+If you have it installed, ensure it's in your Perl library
+path.
+HERE
+  }
+
+# The following was adapted from "tkpod" in the Tk-Pod dist.
+
+sub parse_from_file {
+
+    my($self, $Input_File) = @_;
+    if($self->{'forky'}) {
+      return if fork;  # i.e., parent process returns
+    }
+
+    $Input_File =~ s{\\}{/}g
+     if $self->is_mswin32 or $self->is_dos
+     # and maybe OS/2
+    ;
+
+    my($tk_opt, $tree);
+    $tree   = $self->{'tree'  };
+    $tk_opt = $self->{'tk_opt'};
+
+    #require Tk::ErrorDialog;
+
+    # Add 'Tk' subdirectories to search path so, e.g.,
+    # 'Scrolled' will find doc in 'Tk/Scrolled'
+
+    if( $tk_opt ) {
+      push @INC, grep -d $_, map catfile($_,'Tk'), @INC;
+    }
+
+    my $mw = MainWindow->new();
+    #eval 'use blib "/home/e/eserte/src/perl/Tk-App";require Tk::App::Debug';
+    $mw->withdraw;
+
+    # CDE use Font Settings if available
+    my $ufont = $mw->optionGet('userFont','UserFont');     # fixed width
+    my $sfont = $mw->optionGet('systemFont','SystemFont'); # proportional
+    if (defined($ufont) and defined($sfont)) {
+        foreach ($ufont, $sfont) { s/:$//; };
+        $mw->optionAdd('*Font',       $sfont);
+        $mw->optionAdd('*Entry.Font', $ufont);
+        $mw->optionAdd('*Text.Font',  $ufont);
+    }
+
+    $mw->optionAdd('*Menu.tearOff', $Tk::platform ne 'MSWin32' ? 1 : 0);
+
+    $mw->Pod(
+      '-file' => $Input_File,
+      (($Tk::Pod::VERSION >= 4) ? ('-tree' => $tree) : ())
+    )->focusNext;
+
+    # xxx dirty but it works. A simple $mw->destroy if $mw->children
+    # does not work because Tk::ErrorDialogs could be created.
+    # (they are withdrawn after Ok instead of destory'ed I guess)
+
+    if ($mw->children) {
+        $mw->repeat(1000, sub {
+                    # ErrorDialog is withdrawn not deleted :-(
+                    foreach ($mw->children) {
+                            return if "$_" =~ /^Tk::Pod/  # ->isa('Tk::Pod')
+                    }
+                    $mw->destroy;
+                });
+    } else {
+        $mw->destroy;
+    }
+    #$mw->WidgetDump;
+    MainLoop();
+
+    exit if $self->{'forky'}; # we were the child!  so exit now!
+    return;
+}
+
+1;
+__END__
+
+
+=head1 NAME
+
+Pod::Perldoc::ToTk - let Perldoc use Tk::Pod to render Pod
+
+=head1 SYNOPSIS
+
+  perldoc -o tk Some::Modulename &
+
+=head1 DESCRIPTION
+
+This is a "plug-in" class that allows Perldoc to use
+Tk::Pod as a formatter class.
+
+You have to have installed Tk::Pod first, or this class won't load.
+
+=head1 SEE ALSO
+
+L<Tk::Pod>, L<Pod::Perldoc>
+
+=head1 AUTHOR
+
+Current maintainer: Mark Allen C<< <mallen@cpan.org> >>
+
+Past contributions from:
+brian d foy C<< <bdfoy@cpan.org> >>
+Adriano R. Ferreira C<< <ferreira@cpan.org> >>;
+Sean M. Burke C<< <sburke@cpan.org> >>;
+significant portions copied from
+F<tkpod> in the Tk::Pod dist, by Nick Ing-Simmons, Slaven Rezic, et al.
+
+=cut
+
diff --git a/lib/5.24.1/Pod/Perldoc/ToXml.pm b/lib/5.24.1/Pod/Perldoc/ToXml.pm
new file mode 100644
index 00000000..9da514f7
--- /dev/null
+++ b/lib/5.24.1/Pod/Perldoc/ToXml.pm
@@ -0,0 +1,63 @@
+package Pod::Perldoc::ToXml;
+use strict;
+use warnings;
+use vars qw($VERSION);
+
+use parent qw( Pod::Simple::XMLOutStream );
+
+use vars qw($VERSION);
+$VERSION = '3.25';
+
+sub is_pageable        { 0 }
+sub write_with_binmode { 0 }
+sub output_extension   { 'xml' }
+
+1;
+__END__
+
+=head1 NAME
+
+Pod::Perldoc::ToXml - let Perldoc render Pod as XML
+
+=head1 SYNOPSIS
+
+  perldoc -o xml -d out.xml Some::Modulename
+
+=head1 DESCRIPTION
+
+This is a "plug-in" class that allows Perldoc to use
+Pod::Simple::XMLOutStream as a formatter class.
+
+This is actually a Pod::Simple::XMLOutStream subclass, and inherits
+all its options.
+
+You have to have installed Pod::Simple::XMLOutStream (from the Pod::Simple
+dist), or this class won't work.
+
+
+=head1 SEE ALSO
+
+L<Pod::Simple::XMLOutStream>, L<Pod::Simple>, L<Pod::Perldoc>
+
+=head1 COPYRIGHT AND DISCLAIMERS
+
+Copyright (c) 2002 Sean M. Burke.  All rights reserved.
+
+This library is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+This program is distributed in the hope that it will be useful, but
+without any warranty; without even the implied warranty of
+merchantability or fitness for a particular purpose.
+
+=head1 AUTHOR
+
+Current maintainer: Mark Allen C<< <mallen@cpan.org> >>
+
+Past contributions from:
+brian d foy C<< <bdfoy@cpan.org> >>
+Adriano R. Ferreira C<< <ferreira@cpan.org> >>,
+Sean M. Burke C<< <sburke@cpan.org> >>
+
+=cut
+
diff --git a/lib/5.24.1/Pod/PlainText.pm b/lib/5.24.1/Pod/PlainText.pm
new file mode 100644
index 00000000..3db4d903
--- /dev/null
+++ b/lib/5.24.1/Pod/PlainText.pm
@@ -0,0 +1,748 @@
+# Pod::PlainText -- Convert POD data to formatted ASCII text.
+# $Id: Text.pm,v 2.1 1999/09/20 11:53:33 eagle Exp $
+#
+# Copyright 1999-2000 by Russ Allbery <rra@stanford.edu>
+#
+# This program is free software; you can redistribute it and/or modify it
+# under the same terms as Perl itself.
+#
+# This module is intended to be a replacement for Pod::Text, and attempts to
+# match its output except for some specific circumstances where other
+# decisions seemed to produce better output.  It uses Pod::Parser and is
+# designed to be very easy to subclass.
+
+############################################################################
+# Modules and declarations
+############################################################################
+
+package Pod::PlainText;
+use strict;
+
+require 5.005;
+
+use Carp qw(carp croak);
+use Pod::Select ();
+
+use vars qw(@ISA %ESCAPES $VERSION);
+
+# We inherit from Pod::Select instead of Pod::Parser so that we can be used
+# by Pod::Usage.
+@ISA = qw(Pod::Select);
+
+$VERSION = '2.07';
+
+BEGIN {
+   if ($] < 5.006) {
+      require Symbol;
+      import Symbol;
+   }
+}
+
+############################################################################
+# Table of supported E<> escapes
+############################################################################
+
+# This table is taken near verbatim from Pod::PlainText in Pod::Parser,
+# which got it near verbatim from the original Pod::Text.  It is therefore
+# credited to Tom Christiansen, and I'm glad I didn't have to write it.  :)
+%ESCAPES = (
+    'amp'       =>    '&',      # ampersand
+    'lt'        =>    '<',      # left chevron, less-than
+    'gt'        =>    '>',      # right chevron, greater-than
+    'quot'      =>    '"',      # double quote
+
+    "Aacute"    =>    "\xC1",   # capital A, acute accent
+    "aacute"    =>    "\xE1",   # small a, acute accent
+    "Acirc"     =>    "\xC2",   # capital A, circumflex accent
+    "acirc"     =>    "\xE2",   # small a, circumflex accent
+    "AElig"     =>    "\xC6",   # capital AE diphthong (ligature)
+    "aelig"     =>    "\xE6",   # small ae diphthong (ligature)
+    "Agrave"    =>    "\xC0",   # capital A, grave accent
+    "agrave"    =>    "\xE0",   # small a, grave accent
+    "Aring"     =>    "\xC5",   # capital A, ring
+    "aring"     =>    "\xE5",   # small a, ring
+    "Atilde"    =>    "\xC3",   # capital A, tilde
+    "atilde"    =>    "\xE3",   # small a, tilde
+    "Auml"      =>    "\xC4",   # capital A, dieresis or umlaut mark
+    "auml"      =>    "\xE4",   # small a, dieresis or umlaut mark
+    "Ccedil"    =>    "\xC7",   # capital C, cedilla
+    "ccedil"    =>    "\xE7",   # small c, cedilla
+    "Eacute"    =>    "\xC9",   # capital E, acute accent
+    "eacute"    =>    "\xE9",   # small e, acute accent
+    "Ecirc"     =>    "\xCA",   # capital E, circumflex accent
+    "ecirc"     =>    "\xEA",   # small e, circumflex accent
+    "Egrave"    =>    "\xC8",   # capital E, grave accent
+    "egrave"    =>    "\xE8",   # small e, grave accent
+    "ETH"       =>    "\xD0",   # capital Eth, Icelandic
+    "eth"       =>    "\xF0",   # small eth, Icelandic
+    "Euml"      =>    "\xCB",   # capital E, dieresis or umlaut mark
+    "euml"      =>    "\xEB",   # small e, dieresis or umlaut mark
+    "Iacute"    =>    "\xCD",   # capital I, acute accent
+    "iacute"    =>    "\xED",   # small i, acute accent
+    "Icirc"     =>    "\xCE",   # capital I, circumflex accent
+    "icirc"     =>    "\xEE",   # small i, circumflex accent
+    "Igrave"    =>    "\xCD",   # capital I, grave accent
+    "igrave"    =>    "\xED",   # small i, grave accent
+    "Iuml"      =>    "\xCF",   # capital I, dieresis or umlaut mark
+    "iuml"      =>    "\xEF",   # small i, dieresis or umlaut mark
+    "Ntilde"    =>    "\xD1",   # capital N, tilde
+    "ntilde"    =>    "\xF1",   # small n, tilde
+    "Oacute"    =>    "\xD3",   # capital O, acute accent
+    "oacute"    =>    "\xF3",   # small o, acute accent
+    "Ocirc"     =>    "\xD4",   # capital O, circumflex accent
+    "ocirc"     =>    "\xF4",   # small o, circumflex accent
+    "Ograve"    =>    "\xD2",   # capital O, grave accent
+    "ograve"    =>    "\xF2",   # small o, grave accent
+    "Oslash"    =>    "\xD8",   # capital O, slash
+    "oslash"    =>    "\xF8",   # small o, slash
+    "Otilde"    =>    "\xD5",   # capital O, tilde
+    "otilde"    =>    "\xF5",   # small o, tilde
+    "Ouml"      =>    "\xD6",   # capital O, dieresis or umlaut mark
+    "ouml"      =>    "\xF6",   # small o, dieresis or umlaut mark
+    "szlig"     =>    "\xDF",   # small sharp s, German (sz ligature)
+    "THORN"     =>    "\xDE",   # capital THORN, Icelandic
+    "thorn"     =>    "\xFE",   # small thorn, Icelandic
+    "Uacute"    =>    "\xDA",   # capital U, acute accent
+    "uacute"    =>    "\xFA",   # small u, acute accent
+    "Ucirc"     =>    "\xDB",   # capital U, circumflex accent
+    "ucirc"     =>    "\xFB",   # small u, circumflex accent
+    "Ugrave"    =>    "\xD9",   # capital U, grave accent
+    "ugrave"    =>    "\xF9",   # small u, grave accent
+    "Uuml"      =>    "\xDC",   # capital U, dieresis or umlaut mark
+    "uuml"      =>    "\xFC",   # small u, dieresis or umlaut mark
+    "Yacute"    =>    "\xDD",   # capital Y, acute accent
+    "yacute"    =>    "\xFD",   # small y, acute accent
+    "yuml"      =>    "\xFF",   # small y, dieresis or umlaut mark
+
+    "lchevron"  =>    "\xAB",   # left chevron (double less than)
+    "rchevron"  =>    "\xBB",   # right chevron (double greater than)
+);
+
+
+############################################################################
+# Initialization
+############################################################################
+
+# Initialize the object.  Must be sure to call our parent initializer.
+sub initialize {
+    my $self = shift;
+
+    $$self{alt}      = 0  unless defined $$self{alt};
+    $$self{indent}   = 4  unless defined $$self{indent};
+    $$self{loose}    = 0  unless defined $$self{loose};
+    $$self{sentence} = 0  unless defined $$self{sentence};
+    $$self{width}    = 76 unless defined $$self{width};
+
+    $$self{INDENTS}  = [];              # Stack of indentations.
+    $$self{MARGIN}   = $$self{indent};  # Current left margin in spaces.
+
+    return $self->SUPER::initialize;
+}
+
+
+############################################################################
+# Core overrides
+############################################################################
+
+# Called for each command paragraph.  Gets the command, the associated
+# paragraph, the line number, and a Pod::Paragraph object.  Just dispatches
+# the command to a method named the same as the command.  =cut is handled
+# internally by Pod::Parser.
+sub command {
+    my $self = shift;
+    my $command = shift;
+    return if $command eq 'pod';
+    return if ($$self{EXCLUDE} && $command ne 'end');
+    if (defined $$self{ITEM}) {
+      $self->item ("\n");
+      local $_ = "\n";
+      $self->output($_) if($command eq 'back');
+    }
+    $command = 'cmd_' . $command;
+    return $self->$command (@_);
+}
+
+# Called for a verbatim paragraph.  Gets the paragraph, the line number, and
+# a Pod::Paragraph object.  Just output it verbatim, but with tabs converted
+# to spaces.
+sub verbatim {
+    my $self = shift;
+    return if $$self{EXCLUDE};
+    $self->item if defined $$self{ITEM};
+    local $_ = shift;
+    return if /^\s*$/;
+    s/^(\s*\S+)/(' ' x $$self{MARGIN}) . $1/gme;
+    return $self->output($_);
+}
+
+# Called for a regular text block.  Gets the paragraph, the line number, and
+# a Pod::Paragraph object.  Perform interpolation and output the results.
+sub textblock {
+    my $self = shift;
+    return if $$self{EXCLUDE};
+    if($$self{VERBATIM}) {
+      $self->output($_[0]);
+      return;
+    }
+    local $_ = shift;
+    my $line = shift;
+
+    # Perform a little magic to collapse multiple L<> references.  This is
+    # here mostly for backwards-compatibility.  We'll just rewrite the whole
+    # thing into actual text at this part, bypassing the whole internal
+    # sequence parsing thing.
+    s{
+        (
+          L<                    # A link of the form L</something>.
+              /
+              (
+                  [:\w]+        # The item has to be a simple word...
+                  (\(\))?       # ...or simple function.
+              )
+          >
+          (
+              ,?\s+(and\s+)?    # Allow lots of them, conjuncted.
+              L<  
+                  /
+                  (
+                      [:\w]+
+                      (\(\))?
+                  )
+              >
+          )+
+        )
+    } {
+        local $_ = $1;
+        s%L</([^>]+)>%$1%g;
+        my @items = split /(?:,?\s+(?:and\s+)?)/;
+        my $string = "the ";
+        my $i;
+        for ($i = 0; $i < @items; $i++) {
+            $string .= $items[$i];
+            $string .= ", " if @items > 2 && $i != $#items;
+            $string .= " and " if ($i == $#items - 1);
+        }
+        $string .= " entries elsewhere in this document";
+        $string;
+    }gex;
+
+    # Now actually interpolate and output the paragraph.
+    $_ = $self->interpolate ($_, $line);
+    s/\s*$/\n/s;
+    if (defined $$self{ITEM}) {
+        $self->item ($_ . "\n");
+    } else {
+        $self->output ($self->reformat ($_ . "\n"));
+    }
+}
+
+# Called for an interior sequence.  Gets the command, argument, and a
+# Pod::InteriorSequence object and is expected to return the resulting text.
+# Calls code, bold, italic, file, and link to handle those types of
+# sequences, and handles S<>, E<>, X<>, and Z<> directly.
+sub interior_sequence {
+    my $self = shift;
+    my $command = shift;
+    local $_ = shift;
+    return '' if ($command eq 'X' || $command eq 'Z');
+
+    # Expand escapes into the actual character now, carping if invalid.
+    if ($command eq 'E') {
+        return $ESCAPES{$_} if defined $ESCAPES{$_};
+        carp "Unknown escape: E<$_>";
+        return "E<$_>";
+    }
+
+    # For all the other sequences, empty content produces no output.
+    return if $_ eq '';
+
+    # For S<>, compress all internal whitespace and then map spaces to \01.
+    # When we output the text, we'll map this back.
+    if ($command eq 'S') {
+        s/\s{2,}/ /g;
+        tr/ /\01/;
+        return $_;
+    }
+
+    # Anything else needs to get dispatched to another method.
+    if    ($command eq 'B') { return $self->seq_b ($_) }
+    elsif ($command eq 'C') { return $self->seq_c ($_) }
+    elsif ($command eq 'F') { return $self->seq_f ($_) }
+    elsif ($command eq 'I') { return $self->seq_i ($_) }
+    elsif ($command eq 'L') { return $self->seq_l ($_) }
+    else { carp "Unknown sequence $command<$_>" }
+}
+
+# Called for each paragraph that's actually part of the POD.  We take
+# advantage of this opportunity to untabify the input.
+sub preprocess_paragraph {
+    my $self = shift;
+    local $_ = shift;
+    1 while s/^(.*?)(\t+)/$1 . ' ' x (length ($2) * 8 - length ($1) % 8)/me;
+    return $_;
+}
+
+
+############################################################################
+# Command paragraphs
+############################################################################
+
+# All command paragraphs take the paragraph and the line number.
+
+# First level heading.
+sub cmd_head1 {
+    my $self = shift;
+    local $_ = shift;
+    s/\s+$//s;
+    $_ = $self->interpolate ($_, shift);
+    if ($$self{alt}) {
+        $self->output ("\n==== $_ ====\n\n");
+    } else {
+        $_ .= "\n" if $$self{loose};
+        $self->output ($_ . "\n");
+    }
+}
+
+# Second level heading.
+sub cmd_head2 {
+    my $self = shift;
+    local $_ = shift;
+    s/\s+$//s;
+    $_ = $self->interpolate ($_, shift);
+    if ($$self{alt}) {
+        $self->output ("\n==   $_   ==\n\n");
+    } else {
+        $_ .= "\n" if $$self{loose};
+        $self->output (' ' x ($$self{indent} / 2) . $_ . "\n");
+    }
+}
+
+# third level heading - not strictly perlpodspec compliant
+sub cmd_head3 {
+    my $self = shift;
+    local $_ = shift;
+    s/\s+$//s;
+    $_ = $self->interpolate ($_, shift);
+    if ($$self{alt}) {
+        $self->output ("\n= $_ =\n");
+    } else {
+        $_ .= "\n" if $$self{loose};
+        $self->output (' ' x ($$self{indent}) . $_ . "\n");
+    }
+}
+
+# fourth level heading - not strictly perlpodspec compliant
+# just like head3
+*cmd_head4 = \&cmd_head3;
+
+# Start a list.
+sub cmd_over {
+    my $self = shift;
+    local $_ = shift;
+    unless (/^[-+]?\d+\s+$/) { $_ = $$self{indent} }
+    push (@{ $$self{INDENTS} }, $$self{MARGIN});
+    $$self{MARGIN} += ($_ + 0);
+}
+
+# End a list.
+sub cmd_back {
+    my $self = shift;
+    $$self{MARGIN} = pop @{ $$self{INDENTS} };
+    unless (defined $$self{MARGIN}) {
+        carp 'Unmatched =back';
+        $$self{MARGIN} = $$self{indent};
+    }
+}
+
+# An individual list item.
+sub cmd_item {
+    my $self = shift;
+    if (defined $$self{ITEM}) { $self->item }
+    local $_ = shift;
+    s/\s+$//s;
+    $$self{ITEM} = $self->interpolate ($_);
+}
+
+# Begin a block for a particular translator.  Setting VERBATIM triggers
+# special handling in textblock().
+sub cmd_begin {
+    my $self = shift;
+    local $_ = shift;
+    my ($kind) = /^(\S+)/ or return;
+    if ($kind eq 'text') {
+        $$self{VERBATIM} = 1;
+    } else {
+        $$self{EXCLUDE} = 1;
+    }
+}
+
+# End a block for a particular translator.  We assume that all =begin/=end
+# pairs are properly closed.
+sub cmd_end {
+    my $self = shift;
+    $$self{EXCLUDE} = 0;
+    $$self{VERBATIM} = 0;
+}
+
+# One paragraph for a particular translator.  Ignore it unless it's intended
+# for text, in which case we treat it as a verbatim text block.
+sub cmd_for {
+    my $self = shift;
+    local $_ = shift;
+    my $line = shift;
+    return unless s/^text\b[ \t]*\r?\n?//;
+    $self->verbatim ($_, $line);
+}
+
+# just a dummy method for the time being
+sub cmd_encoding {
+  return;
+}
+
+############################################################################
+# Interior sequences
+############################################################################
+
+# The simple formatting ones.  These are here mostly so that subclasses can
+# override them and do more complicated things.
+sub seq_b { return $_[0]{alt} ? "``$_[1]''" : $_[1] }
+sub seq_c { return $_[0]{alt} ? "``$_[1]''" : "`$_[1]'" }
+sub seq_f { return $_[0]{alt} ? "\"$_[1]\"" : $_[1] }
+sub seq_i { return '*' . $_[1] . '*' }
+
+# The complicated one.  Handle links.  Since this is plain text, we can't
+# actually make any real links, so this is all to figure out what text we
+# print out.
+sub seq_l {
+    my $self = shift;
+    local $_ = shift;
+
+    # Smash whitespace in case we were split across multiple lines.
+    s/\s+/ /g;
+
+    # If we were given any explicit text, just output it.
+    if (/^([^|]+)\|/) { return $1 }
+
+    # Okay, leading and trailing whitespace isn't important; get rid of it.
+    s/^\s+//;
+    s/\s+$//;
+
+    # Default to using the whole content of the link entry as a section
+    # name.  Note that L<manpage/> forces a manpage interpretation, as does
+    # something looking like L<manpage(section)>.  The latter is an
+    # enhancement over the original Pod::Text.
+    my ($manpage, $section) = ('', $_);
+    if (/^(?:https?|ftp|news):/) {
+        # a URL
+        return $_;
+    } elsif (/^"\s*(.*?)\s*"$/) {
+        $section = '"' . $1 . '"';
+    } elsif (m/^[-:.\w]+(?:\(\S+\))?$/) {
+        ($manpage, $section) = ($_, '');
+    } elsif (m{/}) {
+        ($manpage, $section) = split (/\s*\/\s*/, $_, 2);
+    }
+
+    my $text = '';
+    # Now build the actual output text.
+    if (!length $section) {
+        $text = "the $manpage manpage" if length $manpage;
+    } elsif ($section =~ /^[:\w]+(?:\(\))?/) {
+        $text .= 'the ' . $section . ' entry';
+        $text .= (length $manpage) ? " in the $manpage manpage"
+                                   : ' elsewhere in this document';
+    } else {
+        $section =~ s/^\"\s*//;
+        $section =~ s/\s*\"$//;
+        $text .= 'the section on "' . $section . '"';
+        $text .= " in the $manpage manpage" if length $manpage;
+    }
+    return $text;
+}
+
+
+############################################################################
+# List handling
+############################################################################
+
+# This method is called whenever an =item command is complete (in other
+# words, we've seen its associated paragraph or know for certain that it
+# doesn't have one).  It gets the paragraph associated with the item as an
+# argument.  If that argument is empty, just output the item tag; if it
+# contains a newline, output the item tag followed by the newline.
+# Otherwise, see if there's enough room for us to output the item tag in the
+# margin of the text or if we have to put it on a separate line.
+sub item {
+    my $self = shift;
+    local $_ = shift;
+    my $tag = $$self{ITEM};
+    unless (defined $tag) {
+        carp 'item called without tag';
+        return;
+    }
+    undef $$self{ITEM};
+    my $indent = $$self{INDENTS}[-1];
+    unless (defined $indent) { $indent = $$self{indent} }
+    my $space = ' ' x $indent;
+    $space =~ s/^ /:/ if $$self{alt};
+    if (!$_ || /^\s+$/ || ($$self{MARGIN} - $indent < length ($tag) + 1)) {
+        my $margin = $$self{MARGIN};
+        $$self{MARGIN} = $indent;
+        my $output = $self->reformat ($tag);
+        $output =~ s/[\r\n]*$/\n/;
+        $self->output ($output);
+        $$self{MARGIN} = $margin;
+        $self->output ($self->reformat ($_)) if /\S/;
+    } else {
+        $_ = $self->reformat ($_);
+        s/^ /:/ if ($$self{alt} && $indent > 0);
+        my $tagspace = ' ' x length $tag;
+        s/^($space)$tagspace/$1$tag/ or carp 'Bizarre space in item';
+        $self->output ($_);
+    }
+}
+
+
+############################################################################
+# Output formatting
+############################################################################
+
+# Wrap a line, indenting by the current left margin.  We can't use
+# Text::Wrap because it plays games with tabs.  We can't use formline, even
+# though we'd really like to, because it screws up non-printing characters.
+# So we have to do the wrapping ourselves.
+sub wrap {
+    my $self = shift;
+    local $_ = shift;
+    my $output = '';
+    my $spaces = ' ' x $$self{MARGIN};
+    my $width = $$self{width} - $$self{MARGIN};
+    while (length > $width) {
+        if (s/^([^\r\n]{0,$width})\s+// || s/^([^\r\n]{$width})//) {
+            $output .= $spaces . $1 . "\n";
+        } else {
+            last;
+        }
+    }
+    $output .= $spaces . $_;
+    $output =~ s/\s+$/\n\n/;
+    return $output;
+}
+
+# Reformat a paragraph of text for the current margin.  Takes the text to
+# reformat and returns the formatted text.
+sub reformat {
+    my $self = shift;
+    local $_ = shift;
+
+    # If we're trying to preserve two spaces after sentences, do some
+    # munging to support that.  Otherwise, smash all repeated whitespace.
+    if ($$self{sentence}) {
+        s/ +$//mg;
+        s/\.\r?\n/. \n/g;
+        s/[\r\n]+/ /g;
+        s/   +/  /g;
+    } else {
+        s/\s+/ /g;
+    }
+    return $self->wrap($_);
+}
+
+# Output text to the output device.
+sub output { $_[1] =~ tr/\01/ /; print { $_[0]->output_handle } $_[1] }
+
+
+############################################################################
+# Backwards compatibility
+############################################################################
+
+# The old Pod::Text module did everything in a pod2text() function.  This
+# tries to provide the same interface for legacy applications.
+sub pod2text {
+    my @args;
+
+    # This is really ugly; I hate doing option parsing in the middle of a
+    # module.  But the old Pod::Text module supported passing flags to its
+    # entry function, so handle -a and -<number>.
+    while ($_[0] =~ /^-/) {
+        my $flag = shift;
+        if    ($flag eq '-a')       { push (@args, alt => 1)    }
+        elsif ($flag =~ /^-(\d+)$/) { push (@args, width => $1) }
+        else {
+            unshift (@_, $flag);
+            last;
+        }
+    }
+
+    # Now that we know what arguments we're using, create the parser.
+    my $parser = Pod::PlainText->new (@args);
+
+    # If two arguments were given, the second argument is going to be a file
+    # handle.  That means we want to call parse_from_filehandle(), which
+    # means we need to turn the first argument into a file handle.  Magic
+    # open will handle the <&STDIN case automagically.
+    if (defined $_[1]) {
+        my $infh;
+        if ($] < 5.006) {
+          $infh = gensym();
+        }
+        unless (open ($infh, $_[0])) {
+            croak ("Can't open $_[0] for reading: $!\n");
+        }
+        $_[0] = $infh;
+        return $parser->parse_from_filehandle (@_);
+    } else {
+        return $parser->parse_from_file (@_);
+    }
+}
+
+
+############################################################################
+# Module return value and documentation
+############################################################################
+
+1;
+__END__
+
+=head1 NAME
+
+Pod::PlainText - Convert POD data to formatted ASCII text
+
+=head1 SYNOPSIS
+
+    use Pod::PlainText;
+    my $parser = Pod::PlainText->new (sentence => 0, width => 78);
+
+    # Read POD from STDIN and write to STDOUT.
+    $parser->parse_from_filehandle;
+
+    # Read POD from file.pod and write to file.txt.
+    $parser->parse_from_file ('file.pod', 'file.txt');
+
+=head1 DESCRIPTION
+
+B<NOTE: This module is considered legacy; modern Perl releases (5.18 and
+higher) are going to remove Pod-Parser from core and use L<Pod-Simple>
+for all things POD.>
+
+Pod::PlainText is a module that can convert documentation in the POD format (the
+preferred language for documenting Perl) into formatted ASCII.  It uses no
+special formatting controls or codes whatsoever, and its output is therefore
+suitable for nearly any device.
+
+As a derived class from Pod::Parser, Pod::PlainText supports the same methods and
+interfaces.  See L<Pod::Parser> for all the details; briefly, one creates a
+new parser with C<Pod::PlainText-E<gt>new()> and then calls either
+parse_from_filehandle() or parse_from_file().
+
+new() can take options, in the form of key/value pairs, that control the
+behavior of the parser.  The currently recognized options are:
+
+=over 4
+
+=item alt
+
+If set to a true value, selects an alternate output format that, among other
+things, uses a different heading style and marks C<=item> entries with a
+colon in the left margin.  Defaults to false.
+
+=item indent
+
+The number of spaces to indent regular text, and the default indentation for
+C<=over> blocks.  Defaults to 4.
+
+=item loose
+
+If set to a true value, a blank line is printed after a C<=headN> headings.
+If set to false (the default), no blank line is printed after C<=headN>.
+This is the default because it's the expected formatting for manual pages;
+if you're formatting arbitrary text documents, setting this to true may
+result in more pleasing output.
+
+=item sentence
+
+If set to a true value, Pod::PlainText will assume that each sentence ends in two
+spaces, and will try to preserve that spacing.  If set to false, all
+consecutive whitespace in non-verbatim paragraphs is compressed into a
+single space.  Defaults to true.
+
+=item width
+
+The column at which to wrap text on the right-hand side.  Defaults to 76.
+
+=back
+
+The standard Pod::Parser method parse_from_filehandle() takes up to two
+arguments, the first being the file handle to read POD from and the second
+being the file handle to write the formatted output to.  The first defaults
+to STDIN if not given, and the second defaults to STDOUT.  The method
+parse_from_file() is almost identical, except that its two arguments are the
+input and output disk files instead.  See L<Pod::Parser> for the specific
+details.
+
+=head1 DIAGNOSTICS
+
+=over 4
+
+=item Bizarre space in item
+
+(W) Something has gone wrong in internal C<=item> processing.  This message
+indicates a bug in Pod::PlainText; you should never see it.
+
+=item Can't open %s for reading: %s
+
+(F) Pod::PlainText was invoked via the compatibility mode pod2text() interface
+and the input file it was given could not be opened.
+
+=item Unknown escape: %s
+
+(W) The POD source contained an C<EE<lt>E<gt>> escape that Pod::PlainText didn't
+know about.
+
+=item Unknown sequence: %s
+
+(W) The POD source contained a non-standard internal sequence (something of
+the form C<XE<lt>E<gt>>) that Pod::PlainText didn't know about.
+
+=item Unmatched =back
+
+(W) Pod::PlainText encountered a C<=back> command that didn't correspond to an
+C<=over> command.
+
+=back
+
+=head1 RESTRICTIONS
+
+Embedded Ctrl-As (octal 001) in the input will be mapped to spaces on
+output, due to an internal implementation detail.
+
+=head1 NOTES
+
+This is a replacement for an earlier Pod::Text module written by Tom
+Christiansen.  It has a revamped interface, since it now uses Pod::Parser,
+but an interface roughly compatible with the old Pod::Text::pod2text()
+function is still available.  Please change to the new calling convention,
+though.
+
+The original Pod::Text contained code to do formatting via termcap
+sequences, although it wasn't turned on by default and it was problematic to
+get it to work at all.  This rewrite doesn't even try to do that, but a
+subclass of it does.  Look for L<Pod::Text::Termcap|Pod::Text::Termcap>.
+
+=head1 SEE ALSO
+
+B<Pod::PlainText> is part of the L<Pod::Parser> distribution.
+
+L<Pod::Parser|Pod::Parser>, L<Pod::Text::Termcap|Pod::Text::Termcap>,
+pod2text(1)
+
+=head1 AUTHOR
+
+Please report bugs using L<http://rt.cpan.org>.
+
+Russ Allbery E<lt>rra@stanford.eduE<gt>, based I<very> heavily on the
+original Pod::Text by Tom Christiansen E<lt>tchrist@mox.perl.comE<gt> and
+its conversion to Pod::Parser by Brad Appleton
+E<lt>bradapp@enteract.comE<gt>.
+
+=cut
diff --git a/lib/5.24.1/Pod/Select.pm b/lib/5.24.1/Pod/Select.pm
new file mode 100644
index 00000000..70267e94
--- /dev/null
+++ b/lib/5.24.1/Pod/Select.pm
@@ -0,0 +1,756 @@
+#############################################################################
+# Pod/Select.pm -- function to select portions of POD docs
+#
+# Copyright (C) 1996-2000 by Bradford Appleton. All rights reserved.
+# This file is part of "PodParser". PodParser is free software;
+# you can redistribute it and/or modify it under the same terms
+# as Perl itself.
+#############################################################################
+
+package Pod::Select;
+use strict;
+
+use vars qw($VERSION @ISA @EXPORT $MAX_HEADING_LEVEL %myData @section_headings @selected_sections);
+$VERSION = '1.63'; ## Current version of this package
+require  5.005;    ## requires this Perl version or later
+
+#############################################################################
+
+=head1 NAME
+
+Pod::Select, podselect() - extract selected sections of POD from input
+
+=head1 SYNOPSIS
+
+    use Pod::Select;
+
+    ## Select all the POD sections for each file in @filelist
+    ## and print the result on standard output.
+    podselect(@filelist);
+
+    ## Same as above, but write to tmp.out
+    podselect({-output => "tmp.out"}, @filelist):
+
+    ## Select from the given filelist, only those POD sections that are
+    ## within a 1st level section named any of: NAME, SYNOPSIS, OPTIONS.
+    podselect({-sections => ["NAME|SYNOPSIS", "OPTIONS"]}, @filelist):
+
+    ## Select the "DESCRIPTION" section of the PODs from STDIN and write
+    ## the result to STDERR.
+    podselect({-output => ">&STDERR", -sections => ["DESCRIPTION"]}, \*STDIN);
+
+or
+
+    use Pod::Select;
+
+    ## Create a parser object for selecting POD sections from the input
+    $parser = new Pod::Select();
+
+    ## Select all the POD sections for each file in @filelist
+    ## and print the result to tmp.out.
+    $parser->parse_from_file("<&STDIN", "tmp.out");
+
+    ## Select from the given filelist, only those POD sections that are
+    ## within a 1st level section named any of: NAME, SYNOPSIS, OPTIONS.
+    $parser->select("NAME|SYNOPSIS", "OPTIONS");
+    for (@filelist) { $parser->parse_from_file($_); }
+
+    ## Select the "DESCRIPTION" and "SEE ALSO" sections of the PODs from
+    ## STDIN and write the result to STDERR.
+    $parser->select("DESCRIPTION");
+    $parser->add_selection("SEE ALSO");
+    $parser->parse_from_filehandle(\*STDIN, \*STDERR);
+
+=head1 REQUIRES
+
+perl5.005, Pod::Parser, Exporter, Carp
+
+=head1 EXPORTS
+
+podselect()
+
+=head1 DESCRIPTION
+
+B<NOTE: This module is considered legacy; modern Perl releases (5.18 and
+higher) are going to remove Pod-Parser from core and use L<Pod-Simple>
+for all things POD.>
+
+B<podselect()> is a function which will extract specified sections of
+pod documentation from an input stream. This ability is provided by the
+B<Pod::Select> module which is a subclass of B<Pod::Parser>.
+B<Pod::Select> provides a method named B<select()> to specify the set of
+POD sections to select for processing/printing. B<podselect()> merely
+creates a B<Pod::Select> object and then invokes the B<podselect()>
+followed by B<parse_from_file()>.
+
+=head1 SECTION SPECIFICATIONS
+
+B<podselect()> and B<Pod::Select::select()> may be given one or more
+"section specifications" to restrict the text processed to only the
+desired set of sections and their corresponding subsections.  A section
+specification is a string containing one or more Perl-style regular
+expressions separated by forward slashes ("/").  If you need to use a
+forward slash literally within a section title you can escape it with a
+backslash ("\/").
+
+The formal syntax of a section specification is:
+
+=over 4
+
+=item *
+
+I<head1-title-regex>/I<head2-title-regex>/...
+
+=back
+
+Any omitted or empty regular expressions will default to ".*".
+Please note that each regular expression given is implicitly
+anchored by adding "^" and "$" to the beginning and end.  Also, if a
+given regular expression starts with a "!" character, then the
+expression is I<negated> (so C<!foo> would match anything I<except>
+C<foo>).
+
+Some example section specifications follow.
+
+=over 4
+
+=item *
+
+Match the C<NAME> and C<SYNOPSIS> sections and all of their subsections:
+
+C<NAME|SYNOPSIS>
+
+=item *
+
+Match only the C<Question> and C<Answer> subsections of the C<DESCRIPTION>
+section:
+
+C<DESCRIPTION/Question|Answer>
+
+=item *
+
+Match the C<Comments> subsection of I<all> sections:
+
+C</Comments>
+
+=item *
+
+Match all subsections of C<DESCRIPTION> I<except> for C<Comments>:
+
+C<DESCRIPTION/!Comments>
+
+=item *
+
+Match the C<DESCRIPTION> section but do I<not> match any of its subsections:
+
+C<DESCRIPTION/!.+>
+
+=item *
+
+Match all top level sections but none of their subsections:
+
+C</!.+>
+
+=back 
+
+=begin _NOT_IMPLEMENTED_
+
+=head1 RANGE SPECIFICATIONS
+
+B<podselect()> and B<Pod::Select::select()> may be given one or more
+"range specifications" to restrict the text processed to only the
+desired ranges of paragraphs in the desired set of sections. A range
+specification is a string containing a single Perl-style regular
+expression (a regex), or else two Perl-style regular expressions
+(regexs) separated by a ".." (Perl's "range" operator is "..").
+The regexs in a range specification are delimited by forward slashes
+("/").  If you need to use a forward slash literally within a regex you
+can escape it with a backslash ("\/").
+
+The formal syntax of a range specification is:
+
+=over 4
+
+=item *
+
+/I<start-range-regex>/[../I<end-range-regex>/]
+
+=back
+
+Where each the item inside square brackets (the ".." followed by the
+end-range-regex) is optional. Each "range-regex" is of the form:
+
+    =cmd-expr text-expr
+
+Where I<cmd-expr> is intended to match the name of one or more POD
+commands, and I<text-expr> is intended to match the paragraph text for
+the command. If a range-regex is supposed to match a POD command, then
+the first character of the regex (the one after the initial '/')
+absolutely I<must> be a single '=' character; it may not be anything
+else (not even a regex meta-character) if it is supposed to match
+against the name of a POD command.
+
+If no I<=cmd-expr> is given then the text-expr will be matched against
+plain textblocks unless it is preceded by a space, in which case it is
+matched against verbatim text-blocks. If no I<text-expr> is given then
+only the command-portion of the paragraph is matched against.
+
+Note that these two expressions are each implicitly anchored. This
+means that when matching against the command-name, there will be an
+implicit '^' and '$' around the given I<=cmd-expr>; and when matching
+against the paragraph text there will be an implicit '\A' and '\Z'
+around the given I<text-expr>.
+
+Unlike with section-specs, the '!' character does I<not> have any special
+meaning (negation or otherwise) at the beginning of a range-spec!
+
+Some example range specifications follow.
+
+=over 4
+
+=item
+Match all C<=for html> paragraphs:
+
+C</=for html/>
+
+=item
+Match all paragraphs between C<=begin html> and C<=end html>
+(note that this will I<not> work correctly if such sections
+are nested):
+
+C</=begin html/../=end html/>
+
+=item
+Match all paragraphs between the given C<=item> name until the end of the
+current section:
+
+C</=item mine/../=head\d/>
+
+=item
+Match all paragraphs between the given C<=item> until the next item, or
+until the end of the itemized list (note that this will I<not> work as
+desired if the item contains an itemized list nested within it):
+
+C</=item mine/../=(item|back)/>
+
+=back 
+
+=end _NOT_IMPLEMENTED_
+
+=cut
+
+#############################################################################
+
+#use diagnostics;
+use Carp;
+use Pod::Parser 1.04;
+
+@ISA = qw(Pod::Parser);
+@EXPORT = qw(&podselect);
+
+## Maximum number of heading levels supported for '=headN' directives
+*MAX_HEADING_LEVEL = \3;
+
+#############################################################################
+
+=head1 OBJECT METHODS
+
+The following methods are provided in this module. Each one takes a
+reference to the object itself as an implicit first parameter.
+
+=cut
+
+##---------------------------------------------------------------------------
+
+## =begin _PRIVATE_
+## 
+## =head1 B<_init_headings()>
+## 
+## Initialize the current set of active section headings.
+## 
+## =cut
+## 
+## =end _PRIVATE_
+
+sub _init_headings {
+    my $self = shift;
+    local *myData = $self;
+
+    ## Initialize current section heading titles if necessary
+    unless (defined $myData{_SECTION_HEADINGS}) {
+        local *section_headings = $myData{_SECTION_HEADINGS} = [];
+        for (my $i = 0; $i < $MAX_HEADING_LEVEL; ++$i) {
+            $section_headings[$i] = '';
+        }
+    }
+}
+
+##---------------------------------------------------------------------------
+
+=head1 B<curr_headings()>
+
+            ($head1, $head2, $head3, ...) = $parser->curr_headings();
+            $head1 = $parser->curr_headings(1);
+
+This method returns a list of the currently active section headings and
+subheadings in the document being parsed. The list of headings returned
+corresponds to the most recently parsed paragraph of the input.
+
+If an argument is given, it must correspond to the desired section
+heading number, in which case only the specified section heading is
+returned. If there is no current section heading at the specified
+level, then C<undef> is returned.
+
+=cut
+
+sub curr_headings {
+    my $self = shift;
+    $self->_init_headings()  unless (defined $self->{_SECTION_HEADINGS});
+    my @headings = @{ $self->{_SECTION_HEADINGS} };
+    return (@_ > 0  and  $_[0] =~ /^\d+$/) ? $headings[$_[0] - 1] : @headings;
+}
+
+##---------------------------------------------------------------------------
+
+=head1 B<select()>
+
+            $parser->select($section_spec1,$section_spec2,...);
+
+This method is used to select the particular sections and subsections of
+POD documentation that are to be printed and/or processed. The existing
+set of selected sections is I<replaced> with the given set of sections.
+See B<add_selection()> for adding to the current set of selected
+sections.
+
+Each of the C<$section_spec> arguments should be a section specification
+as described in L<"SECTION SPECIFICATIONS">.  The section specifications
+are parsed by this method and the resulting regular expressions are
+stored in the invoking object.
+
+If no C<$section_spec> arguments are given, then the existing set of
+selected sections is cleared out (which means C<all> sections will be
+processed).
+
+This method should I<not> normally be overridden by subclasses.
+
+=cut
+
+sub select {
+    my ($self, @sections) = @_;
+    local *myData = $self;
+    local $_;
+
+### NEED TO DISCERN A SECTION-SPEC FROM A RANGE-SPEC (look for m{^/.+/$}?)
+
+    ##---------------------------------------------------------------------
+    ## The following is a blatant hack for backward compatibility, and for
+    ## implementing add_selection(). If the *first* *argument* is the
+    ## string "+", then the remaining section specifications are *added*
+    ## to the current set of selections; otherwise the given section
+    ## specifications will *replace* the current set of selections.
+    ##
+    ## This should probably be fixed someday, but for the present time,
+    ## it seems incredibly unlikely that "+" would ever correspond to
+    ## a legitimate section heading
+    ##---------------------------------------------------------------------
+    my $add = ($sections[0] eq '+') ? shift(@sections) : '';
+
+    ## Reset the set of sections to use
+    unless (@sections) {
+        delete $myData{_SELECTED_SECTIONS}  unless ($add);
+        return;
+    }
+    $myData{_SELECTED_SECTIONS} = []
+        unless ($add  &&  exists $myData{_SELECTED_SECTIONS});
+    local *selected_sections = $myData{_SELECTED_SECTIONS};
+
+    ## Compile each spec
+    for my $spec (@sections) {
+        if ( defined($_ = _compile_section_spec($spec)) ) {
+            ## Store them in our sections array
+            push(@selected_sections, $_);
+        }
+        else {
+            carp qq{Ignoring section spec "$spec"!\n};
+        }
+    }
+}
+
+##---------------------------------------------------------------------------
+
+=head1 B<add_selection()>
+
+            $parser->add_selection($section_spec1,$section_spec2,...);
+
+This method is used to add to the currently selected sections and
+subsections of POD documentation that are to be printed and/or
+processed. See <select()> for replacing the currently selected sections.
+
+Each of the C<$section_spec> arguments should be a section specification
+as described in L<"SECTION SPECIFICATIONS">. The section specifications
+are parsed by this method and the resulting regular expressions are
+stored in the invoking object.
+
+This method should I<not> normally be overridden by subclasses.
+
+=cut
+
+sub add_selection {
+    my $self = shift;
+    return $self->select('+', @_);
+}
+
+##---------------------------------------------------------------------------
+
+=head1 B<clear_selections()>
+
+            $parser->clear_selections();
+
+This method takes no arguments, it has the exact same effect as invoking
+<select()> with no arguments.
+
+=cut
+
+sub clear_selections {
+    my $self = shift;
+    return $self->select();
+}
+
+##---------------------------------------------------------------------------
+
+=head1 B<match_section()>
+
+            $boolean = $parser->match_section($heading1,$heading2,...);
+
+Returns a value of true if the given section and subsection heading
+titles match any of the currently selected section specifications in
+effect from prior calls to B<select()> and B<add_selection()> (or if
+there are no explicitly selected/deselected sections).
+
+The arguments C<$heading1>, C<$heading2>, etc. are the heading titles of
+the corresponding sections, subsections, etc. to try and match.  If
+C<$headingN> is omitted then it defaults to the current corresponding
+section heading title in the input.
+
+This method should I<not> normally be overridden by subclasses.
+
+=cut
+
+sub match_section {
+    my $self = shift;
+    my (@headings) = @_;
+    local *myData = $self;
+
+    ## Return true if no restrictions were explicitly specified
+    my $selections = (exists $myData{_SELECTED_SECTIONS})
+                       ?  $myData{_SELECTED_SECTIONS}  :  undef;
+    return  1  unless ((defined $selections) && @{$selections});
+
+    ## Default any unspecified sections to the current one
+    my @current_headings = $self->curr_headings();
+    for (my $i = 0; $i < $MAX_HEADING_LEVEL; ++$i) {
+        (defined $headings[$i])  or  $headings[$i] = $current_headings[$i];
+    }
+
+    ## Look for a match against the specified section expressions
+    for my $section_spec ( @{$selections} ) {
+        ##------------------------------------------------------
+        ## Each portion of this spec must match in order for
+        ## the spec to be matched. So we will start with a 
+        ## match-value of 'true' and logically 'and' it with
+        ## the results of matching a given element of the spec.
+        ##------------------------------------------------------
+        my $match = 1;
+        for (my $i = 0; $i < $MAX_HEADING_LEVEL; ++$i) {
+            my $regex   = $section_spec->[$i];
+            my $negated = ($regex =~ s/^\!//);
+            $match  &= ($negated ? ($headings[$i] !~ /${regex}/)
+                                 : ($headings[$i] =~ /${regex}/));
+            last unless ($match);
+        }
+        return  1  if ($match);
+    }
+    return  0;  ## no match
+}
+
+##---------------------------------------------------------------------------
+
+=head1 B<is_selected()>
+
+            $boolean = $parser->is_selected($paragraph);
+
+This method is used to determine if the block of text given in
+C<$paragraph> falls within the currently selected set of POD sections
+and subsections to be printed or processed. This method is also
+responsible for keeping track of the current input section and
+subsections. It is assumed that C<$paragraph> is the most recently read
+(but not yet processed) input paragraph.
+
+The value returned will be true if the C<$paragraph> and the rest of the
+text in the same section as C<$paragraph> should be selected (included)
+for processing; otherwise a false value is returned.
+
+=cut
+
+sub is_selected {
+    my ($self, $paragraph) = @_;
+    local $_;
+    local *myData = $self;
+
+    $self->_init_headings()  unless (defined $myData{_SECTION_HEADINGS});
+
+    ## Keep track of current sections levels and headings
+    $_ = $paragraph;
+    if (/^=((?:sub)*)(?:head(?:ing)?|sec(?:tion)?)(\d*)\s+(.*?)\s*$/)
+    {
+        ## This is a section heading command
+        my ($level, $heading) = ($2, $3);
+        $level = 1 + (length($1) / 3)  if ((! length $level) || (length $1));
+        ## Reset the current section heading at this level
+        $myData{_SECTION_HEADINGS}->[$level - 1] = $heading;
+        ## Reset subsection headings of this one to empty
+        for (my $i = $level; $i < $MAX_HEADING_LEVEL; ++$i) {
+            $myData{_SECTION_HEADINGS}->[$i] = '';
+        }
+    }
+
+    return  $self->match_section();
+}
+
+#############################################################################
+
+=head1 EXPORTED FUNCTIONS
+
+The following functions are exported by this module. Please note that
+these are functions (not methods) and therefore C<do not> take an
+implicit first argument.
+
+=cut
+
+##---------------------------------------------------------------------------
+
+=head1 B<podselect()>
+
+            podselect(\%options,@filelist);
+
+B<podselect> will print the raw (untranslated) POD paragraphs of all
+POD sections in the given input files specified by C<@filelist>
+according to the options given in C<\%options>.
+
+If any argument to B<podselect> is a reference to a hash
+(associative array) then the values with the following keys are
+processed as follows:
+
+=over 4
+
+=item B<-output>
+
+A string corresponding to the desired output file (or ">&STDOUT"
+or ">&STDERR"), or a filehandle to write on. The default is to use
+standard output.
+
+=item B<-sections>
+
+A reference to an array of sections specifications (as described in
+L<"SECTION SPECIFICATIONS">) which indicate the desired set of POD
+sections and subsections to be selected from input. If no section
+specifications are given, then all sections of the PODs are used.
+
+=begin _NOT_IMPLEMENTED_
+
+=item B<-ranges>
+
+A reference to an array of range specifications (as described in
+L<"RANGE SPECIFICATIONS">) which indicate the desired range of POD
+paragraphs to be selected from the desired input sections. If no range
+specifications are given, then all paragraphs of the desired sections
+are used.
+
+=end _NOT_IMPLEMENTED_
+
+=back
+
+All other arguments are optional and should correspond to filehandles to
+read from or the names of input files containing POD sections. A file name
+of "", "-" or "<&STDIN" will be interpreted to mean standard input (which
+is the default if no arguments are given).
+
+=cut 
+
+sub podselect {
+    my(@argv) = @_;
+    my %defaults = ();
+    my $pod_parser = new Pod::Select(%defaults);
+    my $num_inputs = 0;
+    my $output = '>&STDOUT';
+    my %opts;
+    local $_;
+    for (@argv) {
+        my $ref = ref($_);
+        if ($ref && $ref eq 'HASH') {
+            %opts = (%defaults, %{$_});
+
+            ##-------------------------------------------------------------
+            ## Need this for backward compatibility since we formerly used
+            ## options that were all uppercase words rather than ones that
+            ## looked like Unix command-line options.
+            ## to be uppercase keywords)
+            ##-------------------------------------------------------------
+            %opts = map {
+                my ($key, $val) = (lc $_, $opts{$_});
+                $key =~ s/^(?=\w)/-/;
+                $key =~ /^-se[cl]/  and  $key  = '-sections';
+                #! $key eq '-range'    and  $key .= 's';
+                ($key => $val);
+            } (keys %opts);
+
+            ## Process the options
+            (exists $opts{'-output'})  and  $output = $opts{'-output'};
+
+            ## Select the desired sections
+            $pod_parser->select(@{ $opts{'-sections'} })
+                if ( (defined $opts{'-sections'})
+                     && ((ref $opts{'-sections'}) eq 'ARRAY') );
+
+            #! ## Select the desired paragraph ranges
+            #! $pod_parser->select(@{ $opts{'-ranges'} })
+            #!     if ( (defined $opts{'-ranges'})
+            #!          && ((ref $opts{'-ranges'}) eq 'ARRAY') );
+        }
+        elsif(!$ref || $ref eq 'GLOB') {
+            $pod_parser->parse_from_file($_, $output);
+            ++$num_inputs;
+        }
+        else {
+            croak "Input from $ref reference not supported!\n";
+        }
+    }
+    $pod_parser->parse_from_file('-') unless ($num_inputs > 0);
+}
+
+#############################################################################
+
+=head1 PRIVATE METHODS AND DATA
+
+B<Pod::Select> makes uses a number of internal methods and data fields
+which clients should not need to see or use. For the sake of avoiding
+name collisions with client data and methods, these methods and fields
+are briefly discussed here. Determined hackers may obtain further
+information about them by reading the B<Pod::Select> source code.
+
+Private data fields are stored in the hash-object whose reference is
+returned by the B<new()> constructor for this class. The names of all
+private methods and data-fields used by B<Pod::Select> begin with a
+prefix of "_" and match the regular expression C</^_\w+$/>.
+
+=cut
+
+##---------------------------------------------------------------------------
+
+=begin _PRIVATE_
+
+=head1 B<_compile_section_spec()>
+
+            $listref = $parser->_compile_section_spec($section_spec);
+
+This function (note it is a function and I<not> a method) takes a
+section specification (as described in L<"SECTION SPECIFICATIONS">)
+given in C<$section_sepc>, and compiles it into a list of regular
+expressions. If C<$section_spec> has no syntax errors, then a reference
+to the list (array) of corresponding regular expressions is returned;
+otherwise C<undef> is returned and an error message is printed (using
+B<carp>) for each invalid regex.
+
+=end _PRIVATE_
+
+=cut
+
+sub _compile_section_spec {
+    my ($section_spec) = @_;
+    my (@regexs, $negated);
+
+    ## Compile the spec into a list of regexs
+    local $_ = $section_spec;
+    s{\\\\}{\001}g;  ## handle escaped backward slashes
+    s{\\/}{\002}g;   ## handle escaped forward slashes
+
+    ## Parse the regexs for the heading titles
+    @regexs = split(/\//, $_, $MAX_HEADING_LEVEL);
+
+    ## Set default regex for omitted levels
+    for (my $i = 0; $i < $MAX_HEADING_LEVEL; ++$i) {
+        $regexs[$i]  = '.*'  unless ((defined $regexs[$i])
+                                     && (length $regexs[$i]));
+    }
+    ## Modify the regexs as needed and validate their syntax
+    my $bad_regexs = 0;
+    for (@regexs) {
+        $_ .= '.+'  if ($_ eq '!');
+        s{\001}{\\\\}g;       ## restore escaped backward slashes
+        s{\002}{\\/}g;        ## restore escaped forward slashes
+        $negated = s/^\!//;   ## check for negation
+        eval "m{$_}";         ## check regex syntax
+        if ($@) {
+            ++$bad_regexs;
+            carp qq{Bad regular expression /$_/ in "$section_spec": $@\n};
+        }
+        else {
+            ## Add the forward and rear anchors (and put the negator back)
+            $_ = '^' . $_  unless (/^\^/);
+            $_ = $_ . '$'  unless (/\$$/);
+            $_ = '!' . $_  if ($negated);
+        }
+    }
+    return  (! $bad_regexs) ? [ @regexs ] : undef;
+}
+
+##---------------------------------------------------------------------------
+
+=begin _PRIVATE_
+
+=head2 $self->{_SECTION_HEADINGS}
+
+A reference to an array of the current section heading titles for each
+heading level (note that the first heading level title is at index 0).
+
+=end _PRIVATE_
+
+=cut
+
+##---------------------------------------------------------------------------
+
+=begin _PRIVATE_
+
+=head2 $self->{_SELECTED_SECTIONS}
+
+A reference to an array of references to arrays. Each subarray is a list
+of anchored regular expressions (preceded by a "!" if the expression is to
+be negated). The index of the expression in the subarray should correspond
+to the index of the heading title in C<$self-E<gt>{_SECTION_HEADINGS}>
+that it is to be matched against.
+
+=end _PRIVATE_
+
+=cut
+
+#############################################################################
+
+=head1 SEE ALSO
+
+L<Pod::Parser>
+
+=head1 AUTHOR
+
+Please report bugs using L<http://rt.cpan.org>.
+
+Brad Appleton E<lt>bradapp@enteract.comE<gt>
+
+Based on code for B<pod2text> written by
+Tom Christiansen E<lt>tchrist@mox.perl.comE<gt>
+
+B<Pod::Select> is part of the L<Pod::Parser> distribution.
+
+=cut
+
+1;
+# vim: ts=4 sw=4 et
diff --git a/lib/5.24.1/Pod/Simple.pm b/lib/5.24.1/Pod/Simple.pm
new file mode 100644
index 00000000..d8521b2e
--- /dev/null
+++ b/lib/5.24.1/Pod/Simple.pm
@@ -0,0 +1,1627 @@
+
+require 5;
+package Pod::Simple;
+use strict;
+use Carp ();
+BEGIN           { *DEBUG = sub () {0} unless defined &DEBUG }
+use integer;
+use Pod::Escapes 1.04 ();
+use Pod::Simple::LinkSection ();
+use Pod::Simple::BlackBox ();
+#use utf8;
+
+use vars qw(
+  $VERSION @ISA
+  @Known_formatting_codes  @Known_directives
+  %Known_formatting_codes  %Known_directives
+  $NL
+);
+
+@ISA = ('Pod::Simple::BlackBox');
+$VERSION = '3.32';
+
+@Known_formatting_codes = qw(I B C L E F S X Z); 
+%Known_formatting_codes = map(($_=>1), @Known_formatting_codes);
+@Known_directives       = qw(head1 head2 head3 head4 item over back); 
+%Known_directives       = map(($_=>'Plain'), @Known_directives);
+$NL = $/ unless defined $NL;
+
+#-----------------------------------------------------------------------------
+# Set up some constants:
+
+BEGIN {
+  if(defined &ASCII)    { }
+  elsif(chr(65) eq 'A') { *ASCII = sub () {1}  }
+  else                  { *ASCII = sub () {''} }
+
+  unless(defined &MANY_LINES) { *MANY_LINES = sub () {20} }
+  DEBUG > 4 and print STDERR "MANY_LINES is ", MANY_LINES(), "\n";
+  unless(MANY_LINES() >= 1) {
+    die "MANY_LINES is too small (", MANY_LINES(), ")!\nAborting";
+  }
+  if(defined &UNICODE) { }
+  elsif($] >= 5.008)   { *UNICODE = sub() {1}  }
+  else                 { *UNICODE = sub() {''} }
+}
+if(DEBUG > 2) {
+  print STDERR "# We are ", ASCII ? '' : 'not ', "in ASCII-land\n";
+  print STDERR "# We are under a Unicode-safe Perl.\n";
+}
+
+# The NO BREAK SPACE and SOFT HYHPEN are used in several submodules.
+if ($] ge 5.007_003) {  # On sufficiently modern Perls we can handle any
+                        # character set
+  $Pod::Simple::nbsp = chr utf8::unicode_to_native(0xA0);
+  $Pod::Simple::shy  = chr utf8::unicode_to_native(0xAD);
+}
+elsif (Pod::Simple::ASCII) {  # Hard code ASCII early Perl
+  $Pod::Simple::nbsp = "\xA0";
+  $Pod::Simple::shy  = "\xAD";
+}
+else { # EBCDIC on early Perl.  We know what the values are for the code
+        # pages supported then.
+  $Pod::Simple::nbsp = "\x41";
+  $Pod::Simple::shy  = "\xCA";
+}
+
+# Design note:
+# This is a parser for Pod.  It is not a parser for the set of Pod-like
+#  languages which happens to contain Pod -- it is just for Pod, plus possibly
+#  some extensions.
+
+# @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @
+#@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+
+__PACKAGE__->_accessorize(
+  'nbsp_for_S',        # Whether to map S<...>'s to \xA0 characters
+  'source_filename',   # Filename of the source, for use in warnings
+  'source_dead',       # Whether to consider this parser's source dead
+
+  'output_fh',         # The filehandle we're writing to, if applicable.
+                       # Used only in some derived classes.
+
+  'hide_line_numbers', # For some dumping subclasses: whether to pointedly
+                       # suppress the start_line attribute
+
+  'line_count',        # the current line number
+  'pod_para_count',    # count of pod paragraphs seen so far
+
+  'no_whining',        # whether to suppress whining
+  'no_errata_section', # whether to suppress the errata section
+  'complain_stderr',   # whether to complain to stderr
+
+  'doc_has_started',   # whether we've fired the open-Document event yet
+
+  'bare_output',       # For some subclasses: whether to prepend
+                       #  header-code and postpend footer-code
+
+  'keep_encoding_directive',  # whether to emit =encoding
+  'nix_X_codes',       # whether to ignore X<...> codes
+  'merge_text',        # whether to avoid breaking a single piece of
+                       #  text up into several events
+
+  'preserve_whitespace', # whether to try to keep whitespace as-is
+  'strip_verbatim_indent', # What indent to strip from verbatim
+
+  'parse_characters',  # Whether parser should expect chars rather than octets
+
+ 'content_seen',      # whether we've seen any real Pod content
+ 'errors_seen',       # TODO: document.  whether we've seen any errors (fatal or not)
+
+ 'codes_in_verbatim', # for PseudoPod extensions
+
+ 'code_handler',      # coderef to call when a code (non-pod) line is seen
+ 'cut_handler',       # ... when a =cut line is seen
+ 'pod_handler',       # ... when a =pod line is seen
+ 'whiteline_handler', # ... when a line with only whitespace is seen
+ #Called like:
+ # $code_handler->($line, $self->{'line_count'}, $self) if $code_handler;
+ #  $cut_handler->($line, $self->{'line_count'}, $self) if $cut_handler;
+ #  $pod_handler->($line, $self->{'line_count'}, $self) if $pod_handler;
+ #   $wl_handler->($line, $self->{'line_count'}, $self) if $wl_handler;
+ 'parse_empty_lists', # whether to acknowledge empty =over/=back blocks
+ 'raw_mode',          # to report entire raw lines instead of Pod elements
+);
+
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+
+sub any_errata_seen {  # good for using as an exit() value...
+  return shift->{'errors_seen'} || 0;
+}
+
+sub errata_seen {
+  return shift->{'all_errata'} || {};
+}
+
+# Returns the encoding only if it was recognized as being handled and set
+sub detected_encoding {
+  return shift->{'detected_encoding'};
+}
+
+sub encoding {
+  my $this = shift;
+  return $this->{'encoding'} unless @_;  # GET.
+
+  $this->_handle_encoding_line("=encoding $_[0]");
+  if ($this->{'_processed_encoding'}) {
+    delete $this->{'_processed_encoding'};
+    if(! $this->{'encoding_command_statuses'} ) {
+      DEBUG > 2 and print STDERR " CRAZY ERROR: encoding wasn't really handled?!\n";
+    } elsif( $this->{'encoding_command_statuses'}[-1] ) {
+      $this->scream( "=encoding $_[0]",
+         sprintf "Couldn't do %s: %s",
+         $this->{'encoding_command_reqs'  }[-1],
+         $this->{'encoding_command_statuses'}[-1],
+      );
+    } else {
+      DEBUG > 2 and print STDERR " (encoding successfully handled.)\n";
+    }
+    return $this->{'encoding'};
+  } else {
+    return undef;
+  }
+}
+
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+# Pull in some functions that, for some reason, I expect to see here too:
+BEGIN {
+  *pretty        = \&Pod::Simple::BlackBox::pretty;
+  *stringify_lol = \&Pod::Simple::BlackBox::stringify_lol;
+}
+
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+
+sub version_report {
+  my $class = ref($_[0]) || $_[0];
+  if($class eq __PACKAGE__) {
+    return "$class $VERSION";
+  } else {
+    my $v = $class->VERSION;
+    return "$class $v (" . __PACKAGE__ . " $VERSION)";
+  }
+}
+
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+
+#sub curr_open { # read-only list accessor
+#  return @{ $_[0]{'curr_open'} || return() };
+#}
+#sub _curr_open_listref { $_[0]{'curr_open'} ||= [] }
+
+
+sub output_string {
+  # Works by faking out output_fh.  Simplifies our code.
+  #
+  my $this = shift;
+  return $this->{'output_string'} unless @_;  # GET.
+  
+  require Pod::Simple::TiedOutFH;
+  my $x = (defined($_[0]) and ref($_[0])) ? $_[0] : \( $_[0] );
+  $$x = '' unless defined $$x;
+  DEBUG > 4 and print STDERR "# Output string set to $x ($$x)\n";
+  $this->{'output_fh'} = Pod::Simple::TiedOutFH->handle_on($_[0]);
+  return
+    $this->{'output_string'} = $_[0];
+    #${ ${ $this->{'output_fh'} } };
+}
+
+sub abandon_output_string { $_[0]->abandon_output_fh; delete $_[0]{'output_string'} }
+sub abandon_output_fh     { $_[0]->output_fh(undef) }
+# These don't delete the string or close the FH -- they just delete our
+#  references to it/them.
+# TODO: document these
+
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+
+sub new {
+  # takes no parameters
+  my $class = ref($_[0]) || $_[0];
+  #Carp::croak(__PACKAGE__ . " is a virtual base class -- see perldoc "
+  #  . __PACKAGE__ );
+  return bless {
+    'accept_codes'      => { map( ($_=>$_), @Known_formatting_codes ) },
+    'accept_directives' => { %Known_directives },
+    'accept_targets'    => {},
+  }, $class;
+}
+
+
+
+# TODO: an option for whether to interpolate E<...>'s, or just resolve to codes.
+
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+
+sub _handle_element_start {     # OVERRIDE IN DERIVED CLASS
+  my($self, $element_name, $attr_hash_r) = @_;
+  return;
+}
+
+sub _handle_element_end {       # OVERRIDE IN DERIVED CLASS
+  my($self, $element_name) = @_;
+  return;
+}
+
+sub _handle_text          {     # OVERRIDE IN DERIVED CLASS
+  my($self, $text) = @_;
+  return;
+}
+
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+#
+# And now directives (not targets)
+
+sub accept_directive_as_verbatim  { shift->_accept_directives('Verbatim', @_) }
+sub accept_directive_as_data      { shift->_accept_directives('Data',     @_) }
+sub accept_directive_as_processed { shift->_accept_directives('Plain',    @_) }
+
+sub _accept_directives {
+  my($this, $type) = splice @_,0,2;
+  foreach my $d (@_) {
+    next unless defined $d and length $d;
+    Carp::croak "\"$d\" isn't a valid directive name"
+     unless $d =~ m/^[a-zA-Z][a-zA-Z0-9]*$/s;
+    Carp::croak "\"$d\" is already a reserved Pod directive name"
+     if exists $Known_directives{$d};
+    $this->{'accept_directives'}{$d} = $type;
+    DEBUG > 2 and print STDERR "Learning to accept \"=$d\" as directive of type $type\n";
+  }
+  DEBUG > 6 and print STDERR "$this\'s accept_directives : ",
+   pretty($this->{'accept_directives'}), "\n";
+  
+  return sort keys %{ $this->{'accept_directives'} } if wantarray;
+  return;
+}
+
+#--------------------------------------------------------------------------
+# TODO: document these:
+
+sub unaccept_directive { shift->unaccept_directives(@_) };
+
+sub unaccept_directives {
+  my $this = shift;
+  foreach my $d (@_) {
+    next unless defined $d and length $d;
+    Carp::croak "\"$d\" isn't a valid directive name"
+     unless $d =~ m/^[a-zA-Z][a-zA-Z0-9]*$/s;
+    Carp::croak "But you must accept \"$d\" directives -- it's a builtin!"
+     if exists $Known_directives{$d};
+    delete $this->{'accept_directives'}{$d};
+    DEBUG > 2 and print STDERR "OK, won't accept \"=$d\" as directive.\n";
+  }
+  return sort keys %{ $this->{'accept_directives'} } if wantarray;
+  return
+}
+
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+#
+# And now targets (not directives)
+
+sub accept_target         { shift->accept_targets(@_)         } # alias
+sub accept_target_as_text { shift->accept_targets_as_text(@_) } # alias
+
+
+sub accept_targets         { shift->_accept_targets('1', @_) }
+
+sub accept_targets_as_text { shift->_accept_targets('force_resolve', @_) }
+ # forces them to be processed, even when there's no ":".
+
+sub _accept_targets {
+  my($this, $type) = splice @_,0,2;
+  foreach my $t (@_) {
+    next unless defined $t and length $t;
+    # TODO: enforce some limitations on what a target name can be?
+    $this->{'accept_targets'}{$t} = $type;
+    DEBUG > 2 and print STDERR "Learning to accept \"$t\" as target of type $type\n";
+  }    
+  return sort keys %{ $this->{'accept_targets'} } if wantarray;
+  return;
+}
+
+#--------------------------------------------------------------------------
+sub unaccept_target         { shift->unaccept_targets(@_) }
+
+sub unaccept_targets {
+  my $this = shift;
+  foreach my $t (@_) {
+    next unless defined $t and length $t;
+    # TODO: enforce some limitations on what a target name can be?
+    delete $this->{'accept_targets'}{$t};
+    DEBUG > 2 and print STDERR "OK, won't accept \"$t\" as target.\n";
+  }    
+  return sort keys %{ $this->{'accept_targets'} } if wantarray;
+  return;
+}
+
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+#
+# And now codes (not targets or directives)
+
+# XXX Probably it is an error that the digit '9' is excluded from these re's.
+# Broken for early Perls on EBCDIC
+my $xml_name_re = eval "qr/[^-.0-8:A-Z_a-z[:^ascii:]]/";
+if (! defined $xml_name_re) {
+    $xml_name_re = qr/[\x00-\x2C\x2F\x39\x3B-\x40\x5B-\x5E\x60\x7B-\x7F]/;
+}
+
+sub accept_code { shift->accept_codes(@_) } # alias
+
+sub accept_codes {  # Add some codes
+  my $this = shift;
+  
+  foreach my $new_code (@_) {
+    next unless defined $new_code and length $new_code;
+    # A good-enough check that it's good as an XML Name symbol:
+    Carp::croak "\"$new_code\" isn't a valid element name"
+      if $new_code =~ $xml_name_re
+          # Characters under 0x80 that aren't legal in an XML Name.
+      or $new_code =~ m/^[-\.0-9]/s
+      or $new_code =~ m/:[-\.0-9]/s;
+          # The legal under-0x80 Name characters that
+          #  an XML Name still can't start with.
+
+    $this->{'accept_codes'}{$new_code} = $new_code;
+
+    # Yes, map to itself -- just so that when we
+    #  see "=extend W [whatever] thatelementname", we say that W maps
+    #  to whatever $this->{accept_codes}{thatelementname} is,
+    #  i.e., "thatelementname".  Then when we go re-mapping,
+    #  a "W" in the treelet turns into "thatelementname".  We only
+    #  remap once.
+    # If we say we accept "W", then a "W" in the treelet simply turns
+    #  into "W".
+  }
+  
+  return;
+}
+
+#--------------------------------------------------------------------------
+sub unaccept_code { shift->unaccept_codes(@_) }
+
+sub unaccept_codes { # remove some codes
+  my $this = shift;
+  
+  foreach my $new_code (@_) {
+    next unless defined $new_code and length $new_code;
+    # A good-enough check that it's good as an XML Name symbol:
+    Carp::croak "\"$new_code\" isn't a valid element name"
+      if $new_code =~ $xml_name_re
+          # Characters under 0x80 that aren't legal in an XML Name.
+      or $new_code =~ m/^[-\.0-9]/s
+      or $new_code =~ m/:[-\.0-9]/s;
+          # The legal under-0x80 Name characters that
+          #  an XML Name still can't start with.
+
+    Carp::croak "But you must accept \"$new_code\" codes -- it's a builtin!"
+     if grep $new_code eq $_, @Known_formatting_codes;
+
+    delete $this->{'accept_codes'}{$new_code};
+
+    DEBUG > 2 and print STDERR "OK, won't accept the code $new_code<...>.\n";
+  }
+  
+  return;
+}
+
+
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+
+sub parse_string_document {
+  my $self = shift;
+  my @lines;
+  foreach my $line_group (@_) {
+    next unless defined $line_group and length $line_group;
+    pos($line_group) = 0;
+    while($line_group =~
+      m/([^\n\r]*)(\r?\n?)/g # supports \r, \n ,\r\n
+      #m/([^\n\r]*)((?:\r?\n)?)/g
+    ) {
+      #print(">> $1\n"),
+      $self->parse_lines($1)
+       if length($1) or length($2)
+        or pos($line_group) != length($line_group);
+       # I.e., unless it's a zero-length "empty line" at the very
+       #  end of "foo\nbar\n" (i.e., between the \n and the EOS).
+    }
+  }
+  $self->parse_lines(undef); # to signal EOF
+  return $self;
+}
+
+sub _init_fh_source {
+  my($self, $source) = @_;
+
+  #DEBUG > 1 and print STDERR "Declaring $source as :raw for starters\n";
+  #$self->_apply_binmode($source, ':raw');
+  #binmode($source, ":raw");
+
+  return;
+}
+
+#:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.
+#
+
+sub parse_file {
+  my($self, $source) = (@_);
+
+  if(!defined $source) {
+    Carp::croak("Can't use empty-string as a source for parse_file");
+  } elsif(ref(\$source) eq 'GLOB') {
+    $self->{'source_filename'} = '' . ($source);
+  } elsif(ref $source) {
+    $self->{'source_filename'} = '' . ($source);
+  } elsif(!length $source) {
+    Carp::croak("Can't use empty-string as a source for parse_file");
+  } else {
+    {
+      local *PODSOURCE;
+      open(PODSOURCE, "<$source") || Carp::croak("Can't open $source: $!");
+      $self->{'source_filename'} = $source;
+      $source = *PODSOURCE{IO};
+    }
+    $self->_init_fh_source($source);
+  }
+  # By here, $source is a FH.
+
+  $self->{'source_fh'} = $source;
+
+  my($i, @lines);
+  until( $self->{'source_dead'} ) {
+    splice @lines;
+
+    for($i = MANY_LINES; $i--;) {  # read those many lines at a time
+      local $/ = $NL;
+      push @lines, scalar(<$source>);  # readline
+      last unless defined $lines[-1];
+       # but pass thru the undef, which will set source_dead to true
+    }
+
+    my $at_eof = ! $lines[-1]; # keep track of the undef
+    pop @lines if $at_eof; # silence warnings
+
+    # be eol agnostic
+    s/\r\n?/\n/g for @lines;
+ 
+    # make sure there are only one line elements for parse_lines
+    @lines = split(/(?<=\n)/, join('', @lines));
+
+    # push the undef back after popping it to set source_dead to true
+    push @lines, undef if $at_eof;
+
+    $self->parse_lines(@lines);
+  }
+  delete($self->{'source_fh'}); # so it can be GC'd
+  return $self;
+}
+
+#:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.
+
+sub parse_from_file {
+  # An emulation of Pod::Parser's interface, for the sake of Perldoc.
+  # Basically just a wrapper around parse_file.
+
+  my($self, $source, $to) = @_;
+  $self = $self->new unless ref($self); # so we tolerate being a class method
+  
+  if(!defined $source)             { $source = *STDIN{IO}
+  } elsif(ref(\$source) eq 'GLOB') { # stet
+  } elsif(ref($source)           ) { # stet
+  } elsif(!length $source
+     or $source eq '-' or $source =~ m/^<&(?:STDIN|0)$/i
+  ) { 
+    $source = *STDIN{IO};
+  }
+
+  if(!defined $to) {             $self->output_fh( *STDOUT{IO}   );
+  } elsif(ref(\$to) eq 'GLOB') { $self->output_fh( $to );
+  } elsif(ref($to)) {            $self->output_fh( $to );
+  } elsif(!length $to
+     or $to eq '-' or $to =~ m/^>&?(?:STDOUT|1)$/i
+  ) {
+    $self->output_fh( *STDOUT{IO} );
+  } elsif($to =~ m/^>&(?:STDERR|2)$/i) {
+    $self->output_fh( *STDERR{IO} );
+  } else {
+    require Symbol;
+    my $out_fh = Symbol::gensym();
+    DEBUG and print STDERR "Write-opening to $to\n";
+    open($out_fh, ">$to")  or  Carp::croak "Can't write-open $to: $!";
+    binmode($out_fh)
+     if $self->can('write_with_binmode') and $self->write_with_binmode;
+    $self->output_fh($out_fh);
+  }
+
+  return $self->parse_file($source);
+}
+
+#-----------------------------------------------------------------------------
+
+sub whine {
+  #my($self,$line,$complaint) = @_;
+  my $self = shift(@_);
+  ++$self->{'errors_seen'};
+  if($self->{'no_whining'}) {
+    DEBUG > 9 and print STDERR "Discarding complaint (at line $_[0]) $_[1]\n because no_whining is on.\n";
+    return;
+  }
+  push @{$self->{'all_errata'}{$_[0]}}, $_[1];
+  return $self->_complain_warn(@_) if $self->{'complain_stderr'};
+  return $self->_complain_errata(@_);
+}
+
+sub scream {    # like whine, but not suppressible
+  #my($self,$line,$complaint) = @_;
+  my $self = shift(@_);
+  ++$self->{'errors_seen'};
+  push @{$self->{'all_errata'}{$_[0]}}, $_[1];
+  return $self->_complain_warn(@_) if $self->{'complain_stderr'};
+  return $self->_complain_errata(@_);
+}
+
+sub _complain_warn {
+  my($self,$line,$complaint) = @_;
+  return printf STDERR "%s around line %s: %s\n",
+    $self->{'source_filename'} || 'Pod input', $line, $complaint;
+}
+
+sub _complain_errata {
+  my($self,$line,$complaint) = @_;
+  if( $self->{'no_errata_section'} ) {
+    DEBUG > 9 and print STDERR "Discarding erratum (at line $line) $complaint\n because no_errata_section is on.\n";
+  } else {
+    DEBUG > 9 and print STDERR "Queuing erratum (at line $line) $complaint\n";
+    push @{$self->{'errata'}{$line}}, $complaint
+      # for a report to be generated later!
+  }
+  return 1;
+}
+
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+
+sub _get_initial_item_type {
+  # A hack-wrapper here for when you have like "=over\n\n=item 456\n\n"
+  my($self, $para) = @_;
+  return $para->[1]{'~type'}  if $para->[1]{'~type'};
+
+  return $para->[1]{'~type'} = 'text'
+   if join("\n", @{$para}[2 .. $#$para]) =~ m/^\s*(\d+)\.?\s*$/s and $1 ne '1';
+  # Else fall thru to the general case:
+  return $self->_get_item_type($para);
+}
+
+
+
+sub _get_item_type {       # mutates the item!!
+  my($self, $para) = @_;
+  return $para->[1]{'~type'} if $para->[1]{'~type'};
+
+
+  # Otherwise we haven't yet been to this node.  Maybe alter it...
+  
+  my $content = join "\n", @{$para}[2 .. $#$para];
+
+  if($content =~ m/^\s*\*\s*$/s or $content =~ m/^\s*$/s) {
+    # Like: "=item *", "=item   *   ", "=item"
+    splice @$para, 2; # so it ends up just being ['=item', { attrhash } ]
+    $para->[1]{'~orig_content'} = $content;
+    return $para->[1]{'~type'} = 'bullet';
+
+  } elsif($content =~ m/^\s*\*\s+(.+)/s) {  # tolerance
+  
+    # Like: "=item * Foo bar baz";
+    $para->[1]{'~orig_content'}      = $content;
+    $para->[1]{'~_freaky_para_hack'} = $1;
+    DEBUG > 2 and print STDERR " Tolerating $$para[2] as =item *\\n\\n$1\n";
+    splice @$para, 2; # so it ends up just being ['=item', { attrhash } ]
+    return $para->[1]{'~type'} = 'bullet';
+
+  } elsif($content =~ m/^\s*(\d+)\.?\s*$/s) {
+    # Like: "=item 1.", "=item    123412"
+    
+    $para->[1]{'~orig_content'} = $content;
+    $para->[1]{'number'} = $1;  # Yes, stores the number there!
+
+    splice @$para, 2; # so it ends up just being ['=item', { attrhash } ]
+    return $para->[1]{'~type'} = 'number';
+    
+  } else {
+    # It's anything else.
+    return $para->[1]{'~type'} = 'text';
+
+  }
+}
+
+#-----------------------------------------------------------------------------
+
+sub _make_treelet {
+  my $self = shift;  # and ($para, $start_line)
+  my $treelet;
+  if(!@_) {
+    return [''];
+  } if(ref $_[0] and ref $_[0][0] and $_[0][0][0] eq '~Top') {
+    # Hack so we can pass in fake-o pre-cooked paragraphs:
+    #  just have the first line be a reference to a ['~Top', {}, ...]
+    # We use this feechure in gen_errata and stuff.
+
+    DEBUG and print STDERR "Applying precooked treelet hack to $_[0][0]\n";
+    $treelet = $_[0][0];
+    splice @$treelet, 0, 2;  # lop the top off
+    return $treelet;
+  } else {
+    $treelet = $self->_treelet_from_formatting_codes(@_);
+  }
+  
+  if( $self->_remap_sequences($treelet) ) {
+    $self->_treat_Zs($treelet);  # Might as well nix these first
+    $self->_treat_Ls($treelet);  # L has to precede E and S
+    $self->_treat_Es($treelet);
+    $self->_treat_Ss($treelet);  # S has to come after E
+
+    $self->_wrap_up($treelet); # Nix X's and merge texties
+    
+  } else {
+    DEBUG and print STDERR "Formatless treelet gets fast-tracked.\n";
+     # Very common case!
+  }
+  
+  splice @$treelet, 0, 2;  # lop the top off
+
+  return $treelet;
+}
+
+#:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.
+
+sub _wrap_up {
+  my($self, @stack) = @_;
+  my $nixx  = $self->{'nix_X_codes'};
+  my $merge = $self->{'merge_text' };
+  return unless $nixx or $merge;
+
+  DEBUG > 2 and print STDERR "\nStarting _wrap_up traversal.\n",
+   $merge ? (" Merge mode on\n") : (),
+   $nixx  ? (" Nix-X mode on\n") : (),
+  ;    
+  
+
+  my($i, $treelet);
+  while($treelet = shift @stack) {
+    DEBUG > 3 and print STDERR " Considering children of this $treelet->[0] node...\n";
+    for($i = 2; $i < @$treelet; ++$i) { # iterate over children
+      DEBUG > 3 and print STDERR " Considering child at $i ", pretty($treelet->[$i]), "\n";
+      if($nixx and ref $treelet->[$i] and $treelet->[$i][0] eq 'X') {
+        DEBUG > 3 and print STDERR "   Nixing X node at $i\n";
+        splice(@$treelet, $i, 1); # just nix this node (and its descendants)
+        # no need to back-update the counter just yet
+        redo;
+
+      } elsif($merge and $i != 2 and  # non-initial
+         !ref $treelet->[$i] and !ref $treelet->[$i - 1]
+      ) {
+        DEBUG > 3 and print STDERR "   Merging ", $i-1,
+         ":[$treelet->[$i-1]] and $i\:[$treelet->[$i]]\n";
+        $treelet->[$i-1] .= ( splice(@$treelet, $i, 1) )[0];
+        DEBUG > 4 and print STDERR "    Now: ", $i-1, ":[$treelet->[$i-1]]\n";
+        --$i;
+        next; 
+        # since we just pulled the possibly last node out from under
+        #  ourselves, we can't just redo()
+
+      } elsif( ref $treelet->[$i] ) {
+        DEBUG > 4 and print STDERR "  Enqueuing ", pretty($treelet->[$i]), " for traversal.\n";
+        push @stack, $treelet->[$i];
+
+        if($treelet->[$i][0] eq 'L') {
+          my $thing;
+          foreach my $attrname ('section', 'to') {        
+            if(defined($thing = $treelet->[$i][1]{$attrname}) and ref $thing) {
+              unshift @stack, $thing;
+              DEBUG > 4 and print STDERR "  +Enqueuing ",
+               pretty( $treelet->[$i][1]{$attrname} ),
+               " as an attribute value to tweak.\n";
+            }
+          }
+        }
+      }
+    }
+  }
+  DEBUG > 2 and print STDERR "End of _wrap_up traversal.\n\n";
+
+  return;
+}
+
+#:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.
+
+sub _remap_sequences {
+  my($self,@stack) = @_;
+  
+  if(@stack == 1 and @{ $stack[0] } == 3 and !ref $stack[0][2]) {
+    # VERY common case: abort it.
+    DEBUG and print STDERR "Skipping _remap_sequences: formatless treelet.\n";
+    return 0;
+  }
+  
+  my $map = ($self->{'accept_codes'} || die "NO accept_codes in $self?!?");
+
+  my $start_line = $stack[0][1]{'start_line'};
+  DEBUG > 2 and printf
+   "\nAbout to start _remap_sequences on treelet from line %s.\n",
+   $start_line || '[?]'
+  ;
+  DEBUG > 3 and print STDERR " Map: ",
+    join('; ', map "$_=" . (
+        ref($map->{$_}) ? join(",", @{$map->{$_}}) : $map->{$_}
+      ),
+      sort keys %$map ),
+    ("B~C~E~F~I~L~S~X~Z" eq join '~', sort keys %$map)
+     ? "  (all normal)\n" : "\n"
+  ;
+
+  # A recursive algorithm implemented iteratively!  Whee!
+  
+  my($is, $was, $i, $treelet); # scratch
+  while($treelet = shift @stack) {
+    DEBUG > 3 and print STDERR " Considering children of this $treelet->[0] node...\n";
+    for($i = 2; $i < @$treelet; ++$i) { # iterate over children
+      next unless ref $treelet->[$i];  # text nodes are uninteresting
+      
+      DEBUG > 4 and print STDERR "  Noting child $i : $treelet->[$i][0]<...>\n";
+      
+      $is = $treelet->[$i][0] = $map->{ $was = $treelet->[$i][0] };
+      if( DEBUG > 3 ) {
+        if(!defined $is) {
+          print STDERR "   Code $was<> is UNKNOWN!\n";
+        } elsif($is eq $was) {
+          DEBUG > 4 and print STDERR "   Code $was<> stays the same.\n";
+        } else  {
+          print STDERR "   Code $was<> maps to ",
+           ref($is)
+            ? ( "tags ", map("$_<", @$is), '...', map('>', @$is), "\n" )
+            : "tag $is<...>.\n";
+        }
+      }
+      
+      if(!defined $is) {
+        $self->whine($start_line, "Deleting unknown formatting code $was<>");
+        $is = $treelet->[$i][0] = '1';  # But saving the children!
+        # I could also insert a leading "$was<" and tailing ">" as
+        # children of this node, but something about that seems icky.
+      }
+      if(ref $is) {
+        my @dynasty = @$is;
+        DEBUG > 4 and print STDERR "    Renaming $was node to $dynasty[-1]\n";
+        $treelet->[$i][0] = pop @dynasty;
+        my $nugget;
+        while(@dynasty) {
+          DEBUG > 4 and printf
+           "    Grafting a new %s node between %s and %s\n",
+           $dynasty[-1], $treelet->[0], $treelet->[$i][0], 
+          ;
+          
+          #$nugget = ;
+          splice @$treelet, $i, 1, [pop(@dynasty), {}, $treelet->[$i]];
+            # relace node with a new parent
+        }
+      } elsif($is eq '0') {
+        splice(@$treelet, $i, 1); # just nix this node (and its descendants)
+        --$i;  # back-update the counter
+      } elsif($is eq '1') {
+        splice(@$treelet, $i, 1 # replace this node with its children!
+          => splice @{ $treelet->[$i] },2
+              # (not catching its first two (non-child) items)
+        );
+        --$i;  # back up for new stuff
+      } else {
+        # otherwise it's unremarkable
+        unshift @stack, $treelet->[$i];  # just recurse
+      }
+    }
+  }
+  
+  DEBUG > 2 and print STDERR "End of _remap_sequences traversal.\n\n";
+
+  if(@_ == 2 and @{ $_[1] } == 3 and !ref $_[1][2]) {
+    DEBUG and print STDERR "Noting that the treelet is now formatless.\n";
+    return 0;
+  }
+  return 1;
+}
+
+# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
+
+sub _ponder_extend {
+
+  # "Go to an extreme, move back to a more comfortable place"
+  #  -- /Oblique Strategies/,  Brian Eno and Peter Schmidt
+  
+  my($self, $para) = @_;
+  my $content = join ' ', splice @$para, 2;
+  $content =~ s/^\s+//s;
+  $content =~ s/\s+$//s;
+
+  DEBUG > 2 and print STDERR "Ogling extensor: =extend $content\n";
+
+  if($content =~
+    m/^
+      (\S+)         # 1 : new item
+      \s+
+      (\S+)         # 2 : fallback(s)
+      (?:\s+(\S+))? # 3 : element name(s)
+      \s*
+      $
+    /xs
+  ) {
+    my $new_letter = $1;
+    my $fallbacks_one = $2;
+    my $elements_one;
+    $elements_one = defined($3) ? $3 : $1;
+
+    DEBUG > 2 and print STDERR "Extensor has good syntax.\n";
+
+    unless($new_letter =~ m/^[A-Z]$/s or $new_letter) {
+      DEBUG > 2 and print STDERR " $new_letter isn't a valid thing to entend.\n";
+      $self->whine(
+        $para->[1]{'start_line'},
+        "You can extend only formatting codes A-Z, not like \"$new_letter\""
+      );
+      return;
+    }
+    
+    if(grep $new_letter eq $_, @Known_formatting_codes) {
+      DEBUG > 2 and print STDERR " $new_letter isn't a good thing to extend, because known.\n";
+      $self->whine(
+        $para->[1]{'start_line'},
+        "You can't extend an established code like \"$new_letter\""
+      );
+      
+      #TODO: or allow if last bit is same?
+      
+      return;
+    }
+
+    unless($fallbacks_one =~ m/^[A-Z](,[A-Z])*$/s  # like "B", "M,I", etc.
+      or $fallbacks_one eq '0' or $fallbacks_one eq '1'
+    ) {
+      $self->whine(
+        $para->[1]{'start_line'},
+        "Format for second =extend parameter must be like"
+        . " M or 1 or 0 or M,N or M,N,O but you have it like "
+        . $fallbacks_one
+      );
+      return;
+    }
+    
+    unless($elements_one =~ m/^[^ ,]+(,[^ ,]+)*$/s) { # like "B", "M,I", etc.
+      $self->whine(
+        $para->[1]{'start_line'},
+        "Format for third =extend parameter: like foo or bar,Baz,qu:ux but not like "
+        . $elements_one
+      );
+      return;
+    }
+
+    my @fallbacks  = split ',', $fallbacks_one,  -1;
+    my @elements   = split ',', $elements_one, -1;
+
+    foreach my $f (@fallbacks) {
+      next if exists $Known_formatting_codes{$f} or $f eq '0' or $f eq '1';
+      DEBUG > 2 and print STDERR "  Can't fall back on unknown code $f\n";
+      $self->whine(
+        $para->[1]{'start_line'},
+        "Can't use unknown formatting code '$f' as a fallback for '$new_letter'"
+      );
+      return;
+    }
+
+    DEBUG > 3 and printf STDERR "Extensor: Fallbacks <%s> Elements <%s>.\n",
+     @fallbacks, @elements;
+
+    my $canonical_form;
+    foreach my $e (@elements) {
+      if(exists $self->{'accept_codes'}{$e}) {
+        DEBUG > 1 and print STDERR " Mapping '$new_letter' to known extension '$e'\n";
+        $canonical_form = $e;
+        last; # first acceptable elementname wins!
+      } else {
+        DEBUG > 1 and print STDERR " Can't map '$new_letter' to unknown extension '$e'\n";
+      }
+    }
+
+
+    if( defined $canonical_form ) {
+      # We found a good N => elementname mapping
+      $self->{'accept_codes'}{$new_letter} = $canonical_form;
+      DEBUG > 2 and print
+       "Extensor maps $new_letter => known element $canonical_form.\n";
+    } else {
+      # We have to use the fallback(s), which might be '0', or '1'.
+      $self->{'accept_codes'}{$new_letter}
+        = (@fallbacks == 1) ? $fallbacks[0] : \@fallbacks;
+      DEBUG > 2 and print
+       "Extensor maps $new_letter => fallbacks @fallbacks.\n";
+    }
+
+  } else {
+    DEBUG > 2 and print STDERR "Extensor has bad syntax.\n";
+    $self->whine(
+      $para->[1]{'start_line'},
+      "Unknown =extend syntax: $content"
+    )
+  }
+  return;
+}
+
+
+#:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.
+
+sub _treat_Zs {  # Nix Z<...>'s
+  my($self,@stack) = @_;
+
+  my($i, $treelet);
+  my $start_line = $stack[0][1]{'start_line'};
+
+  # A recursive algorithm implemented iteratively!  Whee!
+
+  while($treelet = shift @stack) {
+    for($i = 2; $i < @$treelet; ++$i) { # iterate over children
+      next unless ref $treelet->[$i];  # text nodes are uninteresting
+      unless($treelet->[$i][0] eq 'Z') {
+        unshift @stack, $treelet->[$i]; # recurse
+        next;
+      }
+        
+      DEBUG > 1 and print STDERR "Nixing Z node @{$treelet->[$i]}\n";
+        
+      # bitch UNLESS it's empty
+      unless(  @{$treelet->[$i]} == 2
+           or (@{$treelet->[$i]} == 3 and $treelet->[$i][2] eq '')
+      ) {
+        $self->whine( $start_line, "A non-empty Z<>" );
+      }      # but kill it anyway
+        
+      splice(@$treelet, $i, 1); # thereby just nix this node.
+      --$i;
+        
+    }
+  }
+  
+  return;
+}
+
+# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
+
+# Quoting perlpodspec:
+
+# In parsing an L<...> code, Pod parsers must distinguish at least four
+# attributes:
+
+############# Not used.  Expressed via the element children plus
+#############  the value of the "content-implicit" flag.
+# First:
+# The link-text. If there is none, this must be undef. (E.g., in "L<Perl
+# Functions|perlfunc>", the link-text is "Perl Functions". In
+# "L<Time::HiRes>" and even "L<|Time::HiRes>", there is no link text. Note
+# that link text may contain formatting.)
+# 
+
+############# The element children
+# Second:
+# The possibly inferred link-text -- i.e., if there was no real link text,
+# then this is the text that we'll infer in its place. (E.g., for
+# "L<Getopt::Std>", the inferred link text is "Getopt::Std".)
+#
+
+############# The "to" attribute (which might be text, or a treelet)
+# Third:
+# The name or URL, or undef if none. (E.g., in "L<Perl
+# Functions|perlfunc>", the name -- also sometimes called the page -- is
+# "perlfunc". In "L</CAVEATS>", the name is undef.)
+# 
+
+############# The "section" attribute (which might be next, or a treelet)
+# Fourth:
+# The section (AKA "item" in older perlpods), or undef if none. E.g., in
+# Getopt::Std/DESCRIPTION, "DESCRIPTION" is the section. (Note that this
+# is not the same as a manpage section like the "5" in "man 5 crontab".
+# "Section Foo" in the Pod sense means the part of the text that's
+# introduced by the heading or item whose text is "Foo".)
+# 
+# Pod parsers may also note additional attributes including:
+#
+
+############# The "type" attribute.
+# Fifth:
+# A flag for whether item 3 (if present) is a URL (like
+# "http://lists.perl.org" is), in which case there should be no section
+# attribute; a Pod name (like "perldoc" and "Getopt::Std" are); or
+# possibly a man page name (like "crontab(5)" is).
+#
+
+############# The "raw" attribute that is already there.
+# Sixth:
+# The raw original L<...> content, before text is split on "|", "/", etc,
+# and before E<...> codes are expanded.
+
+
+# For L<...> codes without a "name|" part, only E<...> and Z<> codes may
+# occur -- no other formatting codes. That is, authors should not use
+# "L<B<Foo::Bar>>".
+#
+# Note, however, that formatting codes and Z<>'s can occur in any and all
+# parts of an L<...> (i.e., in name, section, text, and url).
+
+sub _treat_Ls {  # Process our dear dear friends, the L<...> sequences
+
+  # L<name>
+  # L<name/"sec"> or L<name/sec>
+  # L</"sec"> or L</sec> or L<"sec">
+  # L<text|name>
+  # L<text|name/"sec"> or L<text|name/sec>
+  # L<text|/"sec"> or L<text|/sec> or L<text|"sec">
+  # L<scheme:...>
+  # L<text|scheme:...>
+
+  my($self,@stack) = @_;
+
+  my($i, $treelet);
+  my $start_line = $stack[0][1]{'start_line'};
+
+  # A recursive algorithm implemented iteratively!  Whee!
+
+  while($treelet = shift @stack) {
+    for(my $i = 2; $i < @$treelet; ++$i) {
+      # iterate over children of current tree node
+      next unless ref $treelet->[$i];  # text nodes are uninteresting
+      unless($treelet->[$i][0] eq 'L') {
+        unshift @stack, $treelet->[$i]; # recurse
+        next;
+      }
+      
+      
+      # By here, $treelet->[$i] is definitely an L node
+      my $ell = $treelet->[$i];
+      DEBUG > 1 and print STDERR "Ogling L node $ell\n";
+        
+      # bitch if it's empty
+      if(  @{$ell} == 2
+       or (@{$ell} == 3 and $ell->[2] eq '')
+      ) {
+        $self->whine( $start_line, "An empty L<>" );
+        $treelet->[$i] = 'L<>';  # just make it a text node
+        next;  # and move on
+      }
+
+      if( (! ref $ell->[2]  && $ell->[2] =~ /\A\s/)
+        ||(! ref $ell->[-1] && $ell->[-1] =~ /\s\z/)
+      ) {
+        $self->whine( $start_line, "L<> starts or ends with whitespace" );
+      }
+     
+      # Catch URLs:
+
+      # there are a number of possible cases:
+      # 1) text node containing url: http://foo.com
+      #   -> [ 'http://foo.com' ]
+      # 2) text node containing url and text: foo|http://foo.com
+      #   -> [ 'foo|http://foo.com' ]
+      # 3) text node containing url start: mailto:xE<at>foo.com
+      #   -> [ 'mailto:x', [ E ... ], 'foo.com' ]
+      # 4) text node containing url start and text: foo|mailto:xE<at>foo.com
+      #   -> [ 'foo|mailto:x', [ E ... ], 'foo.com' ]
+      # 5) other nodes containing text and url start: OE<39>Malley|http://foo.com
+      #   -> [ 'O', [ E ... ], 'Malley', '|http://foo.com' ]
+      # ... etc.
+
+      # anything before the url is part of the text.
+      # anything after it is part of the url.
+      # the url text node itself may contain parts of both.
+
+      if (my ($url_index, $text_part, $url_part) =
+        # grep is no good here; we want to bail out immediately so that we can
+        # use $1, $2, etc. without having to do the match twice.
+        sub {
+          for (2..$#$ell) {
+            next if ref $ell->[$_];
+            next unless $ell->[$_] =~ m/^(?:([^|]*)\|)?(\w+:[^:\s]\S*)$/s;
+            return ($_, $1, $2);
+          }
+          return;
+        }->()
+      ) {
+        $ell->[1]{'type'} = 'url';
+
+        my @text = @{$ell}[2..$url_index-1];
+        push @text, $text_part if defined $text_part;
+
+        my @url  = @{$ell}[$url_index+1..$#$ell];
+        unshift @url, $url_part;
+
+        unless (@text) {
+          $ell->[1]{'content-implicit'} = 'yes';
+          @text = @url;
+        }
+
+        $ell->[1]{to} = Pod::Simple::LinkSection->new(
+          @url == 1
+          ? $url[0]
+          : [ '', {}, @url ],
+        );
+
+        splice @$ell, 2, $#$ell, @text;
+
+        next;
+      }
+      
+      # Catch some very simple and/or common cases
+      if(@{$ell} == 3 and ! ref $ell->[2]) {
+        my $it = $ell->[2];
+        if($it =~ m{^[^/|]+[(][-a-zA-Z0-9]+[)]$}s) { # man sections
+          # Hopefully neither too broad nor too restrictive a RE
+          DEBUG > 1 and print STDERR "Catching \"$it\" as manpage link.\n";
+          $ell->[1]{'type'} = 'man';
+          # This's the only place where man links can get made.
+          $ell->[1]{'content-implicit'} = 'yes';
+          $ell->[1]{'to'  } =
+            Pod::Simple::LinkSection->new( $it ); # treelet!
+
+          next;
+        }
+        if($it =~ m/^[^\/\|,\$\%\@\ \"\<\>\:\#\&\*\{\}\[\]\(\)]+(\:\:[^\/\|,\$\%\@\ \"\<\>\:\#\&\*\{\}\[\]\(\)]+)*$/s) {
+          # Extremely forgiving idea of what constitutes a bare
+          #  modulename link like L<Foo::Bar> or even L<Thing::1.0::Docs::Tralala>
+          DEBUG > 1 and print STDERR "Catching \"$it\" as ho-hum L<Modulename> link.\n";
+          $ell->[1]{'type'} = 'pod';
+          $ell->[1]{'content-implicit'} = 'yes';
+          $ell->[1]{'to'  } =
+            Pod::Simple::LinkSection->new( $it ); # treelet!
+          next;
+        }
+        # else fall thru...
+      }
+      
+      
+
+      # ...Uhoh, here's the real L<...> parsing stuff...
+      # "With the ill behavior, with the ill behavior, with the ill behavior..."
+
+      DEBUG > 1 and print STDERR "Running a real parse on this non-trivial L\n";
+      
+      
+      my $link_text; # set to an arrayref if found
+      my @ell_content = @$ell;
+      splice @ell_content,0,2; # Knock off the 'L' and {} bits
+
+      DEBUG > 3 and print STDERR " Ell content to start: ",
+       pretty(@ell_content), "\n";
+
+
+      # Look for the "|" -- only in CHILDREN (not all underlings!)
+      # Like L<I like the strictness|strict>
+      DEBUG > 3 and
+         print STDERR "  Peering at L content for a '|' ...\n";
+      for(my $j = 0; $j < @ell_content; ++$j) {
+        next if ref $ell_content[$j];
+        DEBUG > 3 and
+         print STDERR "    Peering at L-content text bit \"$ell_content[$j]\" for a '|'.\n";
+
+        if($ell_content[$j] =~ m/^([^\|]*)\|(.*)$/s) {
+          my @link_text = ($1);   # might be 0-length
+          $ell_content[$j] = $2;  # might be 0-length
+
+          DEBUG > 3 and
+           print STDERR "     FOUND a '|' in it.  Splitting into [$1] + [$2]\n";
+
+          if ($link_text[0] =~ m{[|/]}) {
+            $self->whine(
+              $start_line,
+              "alternative text '$link_text[0]' contains non-escaped | or /"
+            );
+          }
+
+          unshift @link_text, splice @ell_content, 0, $j;
+            # leaving only things at J and after
+          @ell_content =  grep ref($_)||length($_), @ell_content ;
+          $link_text   = [grep ref($_)||length($_), @link_text  ];
+          DEBUG > 3 and printf
+           "  So link text is %s\n  and remaining ell content is %s\n",
+            pretty($link_text), pretty(@ell_content);
+          last;
+        }
+      }
+      
+      
+      # Now look for the "/" -- only in CHILDREN (not all underlings!)
+      # And afterward, anything left in @ell_content will be the raw name
+      # Like L<Foo::Bar/Object Methods>
+      my $section_name;  # set to arrayref if found
+      DEBUG > 3 and print STDERR "  Peering at L-content for a '/' ...\n";
+      for(my $j = 0; $j < @ell_content; ++$j) {
+        next if ref $ell_content[$j];
+        DEBUG > 3 and
+         print STDERR "    Peering at L-content text bit \"$ell_content[$j]\" for a '/'.\n";
+
+        if($ell_content[$j] =~ m/^([^\/]*)\/(.*)$/s) {
+          my @section_name = ($2); # might be 0-length
+          $ell_content[$j] =  $1;  # might be 0-length
+
+          DEBUG > 3 and
+           print STDERR "     FOUND a '/' in it.",
+             "  Splitting to page [...$1] + section [$2...]\n";
+
+          push @section_name, splice @ell_content, 1+$j;
+            # leaving only things before and including J
+          
+          @ell_content  = grep ref($_)||length($_), @ell_content  ;
+          @section_name = grep ref($_)||length($_), @section_name ;
+
+          # Turn L<.../"foo"> into L<.../foo>
+          if(@section_name
+            and !ref($section_name[0]) and !ref($section_name[-1])
+            and $section_name[ 0] =~ m/^\"/s
+            and $section_name[-1] =~ m/\"$/s
+            and !( # catch weird degenerate case of L<"> !
+              @section_name == 1 and $section_name[0] eq '"'
+            )
+          ) {
+            $section_name[ 0] =~ s/^\"//s;
+            $section_name[-1] =~ s/\"$//s;
+            DEBUG > 3 and
+             print STDERR "     Quotes removed: ", pretty(@section_name), "\n";
+          } else {
+            DEBUG > 3 and
+             print STDERR "     No need to remove quotes in ", pretty(@section_name), "\n";
+          }
+
+          $section_name = \@section_name;
+          last;
+        }
+      }
+
+      # Turn L<"Foo Bar"> into L</Foo Bar>
+      if(!$section_name and @ell_content
+         and !ref($ell_content[0]) and !ref($ell_content[-1])
+         and $ell_content[ 0] =~ m/^\"/s
+         and $ell_content[-1] =~ m/\"$/s
+         and !( # catch weird degenerate case of L<"> !
+           @ell_content == 1 and $ell_content[0] eq '"'
+         )
+      ) {
+        $section_name = [splice @ell_content];
+        $section_name->[ 0] =~ s/^\"//s;
+        $section_name->[-1] =~ s/\"$//s;
+      }
+
+      # Turn L<Foo Bar> into L</Foo Bar>.
+      if(!$section_name and !$link_text and @ell_content
+         and grep !ref($_) && m/ /s, @ell_content
+      ) {
+        $section_name = [splice @ell_content];
+        # That's support for the now-deprecated syntax.
+        # (Maybe generate a warning eventually?)
+        # Note that it deliberately won't work on L<...|Foo Bar>
+      }
+
+
+      # Now make up the link_text
+      # L<Foo>     -> L<Foo|Foo>
+      # L</Bar>    -> L<"Bar"|Bar>
+      # L<Foo/Bar> -> L<"Bar" in Foo/Foo>
+      unless($link_text) {
+        $ell->[1]{'content-implicit'} = 'yes';
+        $link_text = [];
+        push @$link_text, '"', @$section_name, '"' if $section_name;
+
+        if(@ell_content) {
+          $link_text->[-1] .= ' in ' if $section_name;
+          push @$link_text, @ell_content;
+        }
+      }
+
+
+      # And the E resolver will have to deal with all our treeletty things:
+
+      if(@ell_content == 1 and !ref($ell_content[0])
+         and $ell_content[0] =~ m{^[^/]+[(][-a-zA-Z0-9]+[)]$}s
+      ) {
+        $ell->[1]{'type'}    = 'man';
+        DEBUG > 3 and print STDERR "Considering this ($ell_content[0]) a man link.\n";
+      } else {
+        $ell->[1]{'type'}    = 'pod';
+        DEBUG > 3 and print STDERR "Considering this a pod link (not man or url).\n";
+      }
+
+      if( defined $section_name ) {
+        $ell->[1]{'section'} = Pod::Simple::LinkSection->new(
+          ['', {}, @$section_name]
+        );
+        DEBUG > 3 and print STDERR "L-section content: ", pretty($ell->[1]{'section'}), "\n";
+      }
+
+      if( @ell_content ) {
+        $ell->[1]{'to'} = Pod::Simple::LinkSection->new(
+          ['', {}, @ell_content]
+        );
+        DEBUG > 3 and print STDERR "L-to content: ", pretty($ell->[1]{'to'}), "\n";
+      }
+      
+      # And update children to be the link-text:
+      @$ell = (@$ell[0,1], defined($link_text) ? splice(@$link_text) : '');
+      
+      DEBUG > 2 and print STDERR "End of L-parsing for this node $treelet->[$i]\n";
+
+      unshift @stack, $treelet->[$i]; # might as well recurse
+    }
+  }
+
+  return;
+}
+
+# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
+
+sub _treat_Es {
+  my($self,@stack) = @_;
+
+  my($i, $treelet, $content, $replacer, $charnum);
+  my $start_line = $stack[0][1]{'start_line'};
+
+  # A recursive algorithm implemented iteratively!  Whee!
+
+
+  # Has frightening side effects on L nodes' attributes.
+
+  #my @ells_to_tweak;
+
+  while($treelet = shift @stack) {
+    for(my $i = 2; $i < @$treelet; ++$i) { # iterate over children
+      next unless ref $treelet->[$i];  # text nodes are uninteresting
+      if($treelet->[$i][0] eq 'L') {
+        # SPECIAL STUFF for semi-processed L<>'s
+        
+        my $thing;
+        foreach my $attrname ('section', 'to') {        
+          if(defined($thing = $treelet->[$i][1]{$attrname}) and ref $thing) {
+            unshift @stack, $thing;
+            DEBUG > 2 and print STDERR "  Enqueuing ",
+             pretty( $treelet->[$i][1]{$attrname} ),
+             " as an attribute value to tweak.\n";
+          }
+        }
+        
+        unshift @stack, $treelet->[$i]; # recurse
+        next;
+      } elsif($treelet->[$i][0] ne 'E') {
+        unshift @stack, $treelet->[$i]; # recurse
+        next;
+      }
+      
+      DEBUG > 1 and print STDERR "Ogling E node ", pretty($treelet->[$i]), "\n";
+
+      # bitch if it's empty
+      if(  @{$treelet->[$i]} == 2
+       or (@{$treelet->[$i]} == 3 and $treelet->[$i][2] eq '')
+      ) {
+        $self->whine( $start_line, "An empty E<>" );
+        $treelet->[$i] = 'E<>'; # splice in a literal
+        next;
+      }
+        
+      # bitch if content is weird
+      unless(@{$treelet->[$i]} == 3 and !ref($content = $treelet->[$i][2])) {
+        $self->whine( $start_line, "An E<...> surrounding strange content" );
+        $replacer = $treelet->[$i]; # scratch
+        splice(@$treelet, $i, 1,   # fake out a literal
+          'E<',
+          splice(@$replacer,2), # promote its content
+          '>'
+        );
+        # Don't need to do --$i, as the 'E<' we just added isn't interesting.
+        next;
+      }
+
+      DEBUG > 1 and print STDERR "Ogling E<$content>\n";
+
+      # XXX E<>'s contents *should* be a valid char in the scope of the current
+      # =encoding directive. Defaults to iso-8859-1, I believe. Fix this in the
+      # future sometime.
+
+      $charnum  = Pod::Escapes::e2charnum($content);
+      DEBUG > 1 and print STDERR " Considering E<$content> with char ",
+        defined($charnum) ? $charnum : "undef", ".\n";
+
+      if(!defined( $charnum )) {
+        DEBUG > 1 and print STDERR "I don't know how to deal with E<$content>.\n";
+        $self->whine( $start_line, "Unknown E content in E<$content>" );
+        $replacer = "E<$content>"; # better than nothing
+      } elsif($charnum >= 255 and !UNICODE) {
+        $replacer = ASCII ? "\xA4" : "?";
+        DEBUG > 1 and print STDERR "This Perl version can't handle ",
+          "E<$content> (chr $charnum), so replacing with $replacer\n";
+      } else {
+        $replacer = Pod::Escapes::e2char($content);
+        DEBUG > 1 and print STDERR " Replacing E<$content> with $replacer\n";
+      }
+
+      splice(@$treelet, $i, 1, $replacer); # no need to back up $i, tho
+    }
+  }
+
+  return;
+}
+
+
+# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
+
+sub _treat_Ss {
+  my($self,$treelet) = @_;
+  
+  _change_S_to_nbsp($treelet,0) if $self->{'nbsp_for_S'};
+
+  # TODO: or a change_nbsp_to_S
+  #  Normalizing nbsp's to S is harder: for each text node, make S content
+  #  out of anything matching m/([^ \xA0]*(?:\xA0+[^ \xA0]*)+)/
+
+
+  return;
+}
+
+sub _change_S_to_nbsp { #  a recursive function
+  # Sanely assumes that the top node in the excursion won't be an S node.
+  my($treelet, $in_s) = @_;
+  
+  my $is_s = ('S' eq $treelet->[0]);
+  $in_s ||= $is_s; # So in_s is on either by this being an S element,
+                   #  or by an ancestor being an S element.
+
+  for(my $i = 2; $i < @$treelet; ++$i) {
+    if(ref $treelet->[$i]) {
+      if( _change_S_to_nbsp( $treelet->[$i], $in_s ) ) {
+        my $to_pull_up = $treelet->[$i];
+        splice @$to_pull_up,0,2;   # ...leaving just its content
+        splice @$treelet, $i, 1, @$to_pull_up;  # Pull up content
+        $i +=  @$to_pull_up - 1;   # Make $i skip the pulled-up stuff
+      }
+    } else {
+      $treelet->[$i] =~ s/\s/$Pod::Simple::nbsp/g if $in_s;
+       
+       # Note that if you apply nbsp_for_S to text, and so turn
+       # "foo S<bar baz> quux" into "foo bar&#160;faz quux", you
+       # end up with something that fails to say "and don't hyphenate
+       # any part of 'bar baz'".  However, hyphenation is such a vexing
+       # problem anyway, that most Pod renderers just don't render it
+       # at all.  But if you do want to implement hyphenation, I guess
+       # that you'd better have nbsp_for_S off.
+    }
+  }
+
+  return $is_s;
+}
+
+#-----------------------------------------------------------------------------
+
+sub _accessorize {  # A simple-minded method-maker
+  no strict 'refs';
+  foreach my $attrname (@_) {
+    next if $attrname =~ m/::/; # a hack
+    *{caller() . '::' . $attrname} = sub {
+      use strict;
+      $Carp::CarpLevel = 1,  Carp::croak(
+       "Accessor usage: \$obj->$attrname() or \$obj->$attrname(\$new_value)"
+      ) unless (@_ == 1 or @_ == 2) and ref $_[0];
+      (@_ == 1) ?  $_[0]->{$attrname}
+                : ($_[0]->{$attrname} = $_[1]);
+    };
+  }
+  # Ya know, they say accessories make the ensemble!
+  return;
+}
+
+# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
+# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
+#=============================================================================
+
+sub filter {
+  my($class, $source) = @_;
+  my $new = $class->new;
+  $new->output_fh(*STDOUT{IO});
+  
+  if(ref($source || '') eq 'SCALAR') {
+    $new->parse_string_document( $$source );
+  } elsif(ref($source)) {  # it's a file handle
+    $new->parse_file($source);
+  } else {  # it's a filename
+    $new->parse_file($source);
+  }
+  
+  return $new;
+}
+
+
+#-----------------------------------------------------------------------------
+
+sub _out {
+  # For use in testing: Class->_out($source)
+  #  returns the transformation of $source
+  
+  my $class = shift(@_);
+
+  my $mutor = shift(@_) if @_ and ref($_[0] || '') eq 'CODE';
+
+  DEBUG and print STDERR "\n\n", '#' x 76,
+   "\nAbout to parse source: {{\n$_[0]\n}}\n\n";
+  
+  
+  my $parser = ref $class && $class->isa(__PACKAGE__) ? $class : $class->new;
+  $parser->hide_line_numbers(1);
+
+  my $out = '';
+  $parser->output_string( \$out );
+  DEBUG and print STDERR " _out to ", \$out, "\n";
+  
+  $mutor->($parser) if $mutor;
+
+  $parser->parse_string_document( $_[0] );
+  # use Data::Dumper; print STDERR Dumper($parser), "\n";
+  return $out;
+}
+
+
+sub _duo {
+  # For use in testing: Class->_duo($source1, $source2)
+  #  returns the parse trees of $source1 and $source2.
+  # Good in things like: &ok( Class->duo(... , ...) );
+  
+  my $class = shift(@_);
+  
+  Carp::croak "But $class->_duo is useful only in list context!"
+   unless wantarray;
+
+  my $mutor = shift(@_) if @_ and ref($_[0] || '') eq 'CODE';
+
+  Carp::croak "But $class->_duo takes two parameters, not: @_"
+   unless @_ == 2;
+
+  my(@out);
+  
+  while( @_ ) {
+    my $parser = $class->new;
+
+    push @out, '';
+    $parser->output_string( \( $out[-1] ) );
+
+    DEBUG and print STDERR " _duo out to ", $parser->output_string(),
+      " = $parser->{'output_string'}\n";
+
+    $parser->hide_line_numbers(1);
+    $mutor->($parser) if $mutor;
+    $parser->parse_string_document( shift( @_ ) );
+    # use Data::Dumper; print STDERR Dumper($parser), "\n";
+  }
+
+  return @out;
+}
+
+
+
+#-----------------------------------------------------------------------------
+1;
+__END__
+
+TODO:
+A start_formatting_code and end_formatting_code methods, which in the
+base class call start_L, end_L, start_C, end_C, etc., if they are
+defined.
+
+have the POD FORMATTING ERRORS section note the localtime, and the
+version of Pod::Simple.
+
+option to delete all E<shy>s?
+option to scream if under-0x20 literals are found in the input, or
+under-E<32> E codes are found in the tree. And ditto \x7f-\x9f
+
+Option to turn highbit characters into their compromised form? (applies
+to E parsing too)
+
+TODO: BOM/encoding things.
+
+TODO: ascii-compat things in the XML classes?
+
diff --git a/lib/5.24.1/Pod/Simple.pod b/lib/5.24.1/Pod/Simple.pod
new file mode 100644
index 00000000..67a18df0
--- /dev/null
+++ b/lib/5.24.1/Pod/Simple.pod
@@ -0,0 +1,434 @@
+
+=head1 NAME
+
+Pod::Simple - framework for parsing Pod
+
+=head1 SYNOPSIS
+
+ TODO
+
+=head1 DESCRIPTION
+
+Pod::Simple is a Perl library for parsing text in the Pod ("plain old
+documentation") markup language that is typically used for writing
+documentation for Perl and for Perl modules. The Pod format is explained
+in L<perlpod>; the most common formatter is called C<perldoc>.
+
+Be sure to read L</ENCODING> if your Pod contains non-ASCII characters.
+
+Pod formatters can use Pod::Simple to parse Pod documents and render them into
+plain text, HTML, or any number of other formats. Typically, such formatters
+will be subclasses of Pod::Simple, and so they will inherit its methods, like
+C<parse_file>.
+
+If you're reading this document just because you have a Pod-processing
+subclass that you want to use, this document (plus the documentation for the
+subclass) is probably all you need to read.
+
+If you're reading this document because you want to write a formatter
+subclass, continue reading it and then read L<Pod::Simple::Subclassing>, and
+then possibly even read L<perlpodspec> (some of which is for parser-writers,
+but much of which is notes to formatter-writers).
+
+=head1 MAIN METHODS
+
+=over
+
+=item C<< $parser = I<SomeClass>->new(); >>
+
+This returns a new parser object, where I<C<SomeClass>> is a subclass
+of Pod::Simple.
+
+=item C<< $parser->output_fh( *OUT ); >>
+
+This sets the filehandle that C<$parser>'s output will be written to.
+You can pass C<*STDOUT> or C<*STDERR>, otherwise you should probably do
+something like this:
+
+    my $outfile = "output.txt";
+    open TXTOUT, ">$outfile" or die "Can't write to $outfile: $!";
+    $parser->output_fh(*TXTOUT);
+
+...before you call one of the C<< $parser->parse_I<whatever> >> methods.
+
+=item C<< $parser->output_string( \$somestring ); >>
+
+This sets the string that C<$parser>'s output will be sent to,
+instead of any filehandle.
+
+
+=item C<< $parser->parse_file( I<$some_filename> ); >>
+
+=item C<< $parser->parse_file( *INPUT_FH ); >>
+
+This reads the Pod content of the file (or filehandle) that you specify,
+and processes it with that C<$parser> object, according to however
+C<$parser>'s class works, and according to whatever parser options you
+have set up for this C<$parser> object.
+
+=item C<< $parser->parse_string_document( I<$all_content> ); >>
+
+This works just like C<parse_file> except that it reads the Pod
+content not from a file, but from a string that you have already
+in memory.
+
+=item C<< $parser->parse_lines( I<...@lines...>, undef ); >>
+
+This processes the lines in C<@lines> (where each list item must be a
+defined value, and must contain exactly one line of content -- so no
+items like C<"foo\nbar"> are allowed).  The final C<undef> is used to
+indicate the end of document being parsed.
+
+The other C<parser_I<whatever>> methods are meant to be called only once
+per C<$parser> object; but C<parse_lines> can be called as many times per
+C<$parser> object as you want, as long as the last call (and only
+the last call) ends with an C<undef> value.
+
+
+=item C<< $parser->content_seen >>
+
+This returns true only if there has been any real content seen for this
+document. Returns false in cases where the document contains content,
+but does not make use of any Pod markup.
+
+=item C<< I<SomeClass>->filter( I<$filename> ); >>
+
+=item C<< I<SomeClass>->filter( I<*INPUT_FH> ); >>
+
+=item C<< I<SomeClass>->filter( I<\$document_content> ); >>
+
+This is a shortcut method for creating a new parser object, setting the
+output handle to STDOUT, and then processing the specified file (or
+filehandle, or in-memory document). This is handy for one-liners like
+this:
+
+  perl -MPod::Simple::Text -e "Pod::Simple::Text->filter('thingy.pod')"
+
+=back
+
+
+
+=head1 SECONDARY METHODS
+
+Some of these methods might be of interest to general users, as
+well as of interest to formatter-writers.
+
+Note that the general pattern here is that the accessor-methods
+read the attribute's value with C<< $value = $parser->I<attribute> >>
+and set the attribute's value with
+C<< $parser->I<attribute>(I<newvalue>) >>.  For each accessor, I typically
+only mention one syntax or another, based on which I think you are actually
+most likely to use.
+
+
+=over
+
+=item C<< $parser->parse_characters( I<SOMEVALUE> ) >>
+
+The Pod parser normally expects to read octets and to convert those octets
+to characters based on the C<=encoding> declaration in the Pod source.  Set
+this option to a true value to indicate that the Pod source is already a Perl
+character stream.  This tells the parser to ignore any C<=encoding> command
+and to skip all the code paths involving decoding octets.
+
+=item C<< $parser->no_whining( I<SOMEVALUE> ) >>
+
+If you set this attribute to a true value, you will suppress the
+parser's complaints about irregularities in the Pod coding. By default,
+this attribute's value is false, meaning that irregularities will
+be reported.
+
+Note that turning this attribute to true won't suppress one or two kinds
+of complaints about rarely occurring unrecoverable errors.
+
+
+=item C<< $parser->no_errata_section( I<SOMEVALUE> ) >>
+
+If you set this attribute to a true value, you will stop the parser from
+generating a "POD ERRORS" section at the end of the document. By
+default, this attribute's value is false, meaning that an errata section
+will be generated, as necessary.
+
+
+=item C<< $parser->complain_stderr( I<SOMEVALUE> ) >>
+
+If you set this attribute to a true value, it will send reports of
+parsing errors to STDERR. By default, this attribute's value is false,
+meaning that no output is sent to STDERR.
+
+Setting C<complain_stderr> also sets C<no_errata_section>.
+
+
+=item C<< $parser->source_filename >>
+
+This returns the filename that this parser object was set to read from.
+
+
+=item C<< $parser->doc_has_started >>
+
+This returns true if C<$parser> has read from a source, and has seen
+Pod content in it.
+
+
+=item C<< $parser->source_dead >>
+
+This returns true if C<$parser> has read from a source, and come to the
+end of that source.
+
+=item C<< $parser->strip_verbatim_indent( I<SOMEVALUE> ) >>
+
+The perlpod spec for a Verbatim paragraph is "It should be reproduced
+exactly...", which means that the whitespace you've used to indent your
+verbatim blocks will be preserved in the output. This can be annoying for
+outputs such as HTML, where that whitespace will remain in front of every
+line. It's an unfortunate case where syntax is turned into semantics.
+
+If the POD you're parsing adheres to a consistent indentation policy, you can
+have such indentation stripped from the beginning of every line of your
+verbatim blocks. This method tells Pod::Simple what to strip. For two-space
+indents, you'd use:
+
+  $parser->strip_verbatim_indent('  ');
+
+For tab indents, you'd use a tab character:
+
+  $parser->strip_verbatim_indent("\t");
+
+If the POD is inconsistent about the indentation of verbatim blocks, but you
+have figured out a heuristic to determine how much a particular verbatim block
+is indented, you can pass a code reference instead. The code reference will be
+executed with one argument, an array reference of all the lines in the
+verbatim block, and should return the value to be stripped from each line. For
+example, if you decide that you're fine to use the first line of the verbatim
+block to set the standard for indentation of the rest of the block, you can
+look at the first line and return the appropriate value, like so:
+
+  $new->strip_verbatim_indent(sub {
+      my $lines = shift;
+      (my $indent = $lines->[0]) =~ s/\S.*//;
+      return $indent;
+  });
+
+If you'd rather treat each line individually, you can do that, too, by just
+transforming them in-place in the code reference and returning C<undef>. Say
+that you don't want I<any> lines indented. You can do something like this:
+
+  $new->strip_verbatim_indent(sub {
+      my $lines = shift;
+      sub { s/^\s+// for @{ $lines },
+      return undef;
+  });
+
+=back
+
+=head1 TERTIARY METHODS
+
+=over
+
+=item C<< $parser->abandon_output_fh() >>X<abandon_output_fh>
+
+Cancel output to the file handle. Any POD read by the C<$parser> is not
+effected.
+
+=item C<< $parser->abandon_output_string() >>X<abandon_output_string>
+
+Cancel output to the output string. Any POD read by the C<$parser> is not
+effected.
+
+=item C<< $parser->accept_code( @codes ) >>X<accept_code>
+
+Alias for L<< accept_codes >>.
+
+=item C<< $parser->accept_codes( @codes ) >>X<accept_codes>
+
+Allows C<$parser> to accept a list of L<perlpod/Formatting Codes>. This can be
+used to implement user-defined codes.
+
+=item C<< $parser->accept_directive_as_data( @directives ) >>X<accept_directive_as_data>
+
+Allows C<$parser> to accept a list of directives for data paragraphs. A
+directive is the label of a L<perlpod/Command Paragraph>. A data paragraph is
+one delimited by C<< =begin/=for/=end >> directives. This can be used to
+implement user-defined directives.
+
+=item C<< $parser->accept_directive_as_processed( @directives ) >>X<accept_directive_as_processed>
+
+Allows C<$parser> to accept a list of directives for processed paragraphs. A
+directive is the label of a L<perlpod/Command Paragraph>. A processed
+paragraph is also known as L<perlpod/Ordinary Paragraph>. This can be used to
+implement user-defined directives.
+
+=item C<< $parser->accept_directive_as_verbatim( @directives ) >>X<accept_directive_as_verbatim>
+
+Allows C<$parser> to accept a list of directives for L<perlpod/Verbatim
+Paragraph>. A directive is the label of a L<perlpod/Command Paragraph>. This
+can be used to implement user-defined directives.
+
+=item C<< $parser->accept_target( @targets ) >>X<accept_target>
+
+Alias for L<< accept_targets >>.
+
+=item C<< $parser->accept_target_as_text( @targets ) >>X<accept_target_as_text>
+
+Alias for L<< accept_targets_as_text >>.
+
+=item C<< $parser->accept_targets( @targets ) >>X<accept_targets>
+
+Accepts targets for C<< =begin/=for/=end >> sections of the POD.
+
+=item C<< $parser->accept_targets_as_text( @targets ) >>X<accept_targets_as_text>
+
+Accepts targets for C<< =begin/=for/=end >> sections that should be parsed as
+POD. For details, see L<< perlpodspec/About Data Paragraphs >>.
+
+=item C<< $parser->any_errata_seen() >>X<any_errata_seen>
+
+Used to check if any errata was seen.
+
+I<Example:>
+
+  die "too many errors\n" if $parser->any_errata_seen();
+
+=item C<< $parser->errata_seen() >>X<errata_seen>
+
+Returns a hash reference of all errata seen, both whines and screams. The hash reference's keys are the line number and the value is an array reference of the errors for that line.
+
+I<Example:>
+
+  if ( $parser->any_errata_seen() ) {
+     $logger->log( $parser->errata_seen() );
+  }
+
+=item C<< $parser->detected_encoding() >>X<detected_encoding>
+
+Return the encoding corresponding to C<< =encoding >>, but only if the
+encoding was recognized and handled.
+
+=item C<< $parser->encoding() >>X<encoding>
+
+Return encoding of the document, even if the encoding is not correctly
+handled.
+
+=item C<< $parser->parse_from_file( $source, $to ) >>X<parse_from_file>
+
+Parses from C<$source> file to C<$to> file. Similar to L<<
+Pod::Parser/parse_from_file >>.
+
+=item C<< $parser->scream( @error_messages ) >>X<scream>
+
+Log an error that can't be ignored.
+
+=item C<< $parser->unaccept_code( @codes ) >>X<unaccept_code>
+
+Alias for L<< unaccept_codes >>.
+
+=item C<< $parser->unaccept_codes( @codes ) >>X<unaccept_codes>
+
+Removes C<< @codes >> as valid codes for the parse.
+
+=item C<< $parser->unaccept_directive( @directives ) >>X<unaccept_directive>
+
+Alias for L<< unaccept_directives >>.
+
+=item C<< $parser->unaccept_directives( @directives ) >>X<unaccept_directives>
+
+Removes C<< @directives >> as valid directives for the parse.
+
+=item C<< $parser->unaccept_target( @targets ) >>X<unaccept_target>
+
+Alias for L<< unaccept_targets >>.
+
+=item C<< $parser->unaccept_targets( @targets ) >>X<unaccept_targets>
+
+Removes C<< @targets >> as valid targets for the parse.
+
+=item C<< $parser->version_report() >>X<version_report>
+
+Returns a string describing the version.
+
+=item C<< $parser->whine( @error_messages ) >>X<whine>
+
+Log an error unless C<< $parser->no_whining( TRUE ); >>.
+
+=back
+
+=head1 ENCODING
+
+The Pod::Simple parser expects to read B<octets>.  The parser will decode the
+octets into Perl's internal character string representation using the value of
+the C<=encoding> declaration in the POD source.
+
+If the POD source does not include an C<=encoding> declaration, the parser will
+attempt to guess the encoding (selecting one of UTF-8 or CP 1252) by examining
+the first non-ASCII bytes and applying the heuristic described in
+L<perlpodspec>.  (If the POD source contains only ASCII bytes, the
+encoding is assumed to be ASCII.)
+
+If you set the C<parse_characters> option to a true value the parser will
+expect characters rather than octets; will ignore any C<=encoding>; and will
+make no attempt to decode the input.
+
+=head1 SEE ALSO
+
+L<Pod::Simple::Subclassing>
+
+L<perlpod|perlpod>
+
+L<perlpodspec|perlpodspec>
+
+L<Pod::Escapes|Pod::Escapes>
+
+L<perldoc>
+
+=head1 SUPPORT
+
+Questions or discussion about POD and Pod::Simple should be sent to the
+pod-people@perl.org mail list. Send an empty email to
+pod-people-subscribe@perl.org to subscribe.
+
+This module is managed in an open GitHub repository,
+L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or
+to clone L<git://github.com/perl-pod/pod-simple.git> and send patches!
+
+Patches against Pod::Simple are welcome. Please send bug reports to
+<bug-pod-simple@rt.cpan.org>.
+
+=head1 COPYRIGHT AND DISCLAIMERS
+
+Copyright (c) 2002 Sean M. Burke.
+
+This library is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+This program is distributed in the hope that it will be useful, but
+without any warranty; without even the implied warranty of
+merchantability or fitness for a particular purpose.
+
+=head1 AUTHOR
+
+Pod::Simple was created by Sean M. Burke <sburke@cpan.org>.
+But don't bother him, he's retired.
+
+Pod::Simple is maintained by:
+
+=over
+
+=item * Allison Randal C<allison@perl.org>
+
+=item * Hans Dieter Pearcey C<hdp@cpan.org>
+
+=item * David E. Wheeler C<dwheeler@cpan.org>
+
+=back
+
+Documentation has been contributed by:
+
+=over
+
+=item * Gabor Szabo C<szabgab@gmail.com>
+
+=item * Shawn H Corey  C<SHCOREY at cpan.org>
+
+=back
+
+=cut
diff --git a/lib/5.24.1/Pod/Simple/BlackBox.pm b/lib/5.24.1/Pod/Simple/BlackBox.pm
new file mode 100644
index 00000000..7021e6c9
--- /dev/null
+++ b/lib/5.24.1/Pod/Simple/BlackBox.pm
@@ -0,0 +1,2123 @@
+package Pod::Simple::BlackBox;
+#
+# "What's in the box?"  "Pain."
+#
+###########################################################################
+#
+# This is where all the scary things happen: parsing lines into
+#  paragraphs; and then into directives, verbatims, and then also
+#  turning formatting sequences into treelets.
+#
+# Are you really sure you want to read this code?
+#
+#-----------------------------------------------------------------------------
+#
+# The basic work of this module Pod::Simple::BlackBox is doing the dirty work
+# of parsing Pod into treelets (generally one per non-verbatim paragraph), and
+# to call the proper callbacks on the treelets.
+#
+# Every node in a treelet is a ['name', {attrhash}, ...children...]
+
+use integer; # vroom!
+use strict;
+use Carp ();
+use vars qw($VERSION );
+$VERSION = '3.32';
+#use constant DEBUG => 7;
+BEGIN {
+  require Pod::Simple;
+  *DEBUG = \&Pod::Simple::DEBUG unless defined &DEBUG
+}
+
+# Matches a character iff the character will have a different meaning
+# if we choose CP1252 vs UTF-8 if there is no =encoding line.
+# This is broken for early Perls on non-ASCII platforms.
+my $non_ascii_re = eval "qr/[[:^ascii:]]/";
+$non_ascii_re = qr/[\x80-\xFF]/ if ! defined $non_ascii_re;
+
+my $utf8_bom;
+if (($] ge 5.007_003)) {
+  $utf8_bom = "\x{FEFF}";
+  utf8::encode($utf8_bom);
+} else {
+  $utf8_bom = "\xEF\xBB\xBF";   # No EBCDIC BOM detection for early Perls.
+}
+
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+
+sub parse_line { shift->parse_lines(@_) } # alias
+
+# - - -  Turn back now!  Run away!  - - -
+
+sub parse_lines {             # Usage: $parser->parse_lines(@lines)
+  # an undef means end-of-stream
+  my $self = shift;
+
+  my $code_handler = $self->{'code_handler'};
+  my $cut_handler  = $self->{'cut_handler'};
+  my $wl_handler   = $self->{'whiteline_handler'};
+  $self->{'line_count'} ||= 0;
+ 
+  my $scratch;
+
+  DEBUG > 4 and 
+   print STDERR "# Parsing starting at line ", $self->{'line_count'}, ".\n";
+
+  DEBUG > 5 and
+   print STDERR "#  About to parse lines: ",
+     join(' ', map defined($_) ? "[$_]" : "EOF", @_), "\n";
+
+  my $paras = ($self->{'paras'} ||= []);
+   # paragraph buffer.  Because we need to defer processing of =over
+   # directives and verbatim paragraphs.  We call _ponder_paragraph_buffer
+   # to process this.
+  
+  $self->{'pod_para_count'} ||= 0;
+
+  my $line;
+  foreach my $source_line (@_) {
+    if( $self->{'source_dead'} ) {
+      DEBUG > 4 and print STDERR "# Source is dead.\n";
+      last;
+    }
+
+    unless( defined $source_line ) {
+      DEBUG > 4 and print STDERR "# Undef-line seen.\n";
+
+      push @$paras, ['~end', {'start_line' => $self->{'line_count'}}];
+      push @$paras, $paras->[-1], $paras->[-1];
+       # So that it definitely fills the buffer.
+      $self->{'source_dead'} = 1;
+      $self->_ponder_paragraph_buffer;
+      next;
+    }
+
+
+    if( $self->{'line_count'}++ ) {
+      ($line = $source_line) =~ tr/\n\r//d;
+       # If we don't have two vars, we'll end up with that there
+       # tr/// modding the (potentially read-only) original source line!
+    
+    } else {
+      DEBUG > 2 and print STDERR "First line: [$source_line]\n";
+
+      if( ($line = $source_line) =~ s/^$utf8_bom//s ) {
+        DEBUG and print STDERR "UTF-8 BOM seen.  Faking a '=encoding utf8'.\n";
+        $self->_handle_encoding_line( "=encoding utf8" );
+        delete $self->{'_processed_encoding'};
+        $line =~ tr/\n\r//d;
+        
+      } elsif( $line =~ s/^\xFE\xFF//s ) {
+        DEBUG and print STDERR "Big-endian UTF-16 BOM seen.  Aborting parsing.\n";
+        $self->scream(
+          $self->{'line_count'},
+          "UTF16-BE Byte Encoding Mark found; but Pod::Simple v$Pod::Simple::VERSION doesn't implement UTF16 yet."
+        );
+        splice @_;
+        push @_, undef;
+        next;
+
+        # TODO: implement somehow?
+
+      } elsif( $line =~ s/^\xFF\xFE//s ) {
+        DEBUG and print STDERR "Little-endian UTF-16 BOM seen.  Aborting parsing.\n";
+        $self->scream(
+          $self->{'line_count'},
+          "UTF16-LE Byte Encoding Mark found; but Pod::Simple v$Pod::Simple::VERSION doesn't implement UTF16 yet."
+        );
+        splice @_;
+        push @_, undef;
+        next;
+
+        # TODO: implement somehow?
+        
+      } else {
+        DEBUG > 2 and print STDERR "First line is BOM-less.\n";
+        ($line = $source_line) =~ tr/\n\r//d;
+      }
+    }
+
+    if(!$self->{'parse_characters'} && !$self->{'encoding'}
+      && ($self->{'in_pod'} || $line =~ /^=/s)
+      && $line =~ /$non_ascii_re/
+    ) {
+
+      my $encoding;
+
+      # No =encoding line, and we are at the first line in the input that
+      # contains a non-ascii byte, that is one whose meaning varies depending
+      # on whether the file is encoded in UTF-8 or CP1252, which are the two
+      # possibilities permitted by the pod spec.  (ASCII is assumed if the
+      # file only contains ASCII bytes.)  In order to process this line, we
+      # need to figure out what encoding we will use for the file.
+      #
+      # Strictly speaking ISO 8859-1 (Latin 1) refers to the code points
+      # 160-255, but it is used here, as it often colloquially is, to refer to
+      # the complete set of code points 0-255, including ASCII (0-127), the C1
+      # controls (128-159), and strict Latin 1 (160-255).
+      #
+      # CP1252 is effectively a superset of Latin 1, because it differs only
+      # from colloquial 8859-1 in the C1 controls, which are very unlikely to
+      # actually be present in 8859-1 files, so can be used for other purposes
+      # without conflict.  CP 1252 uses most of them for graphic characters.
+      #
+      # Note that all ASCII-range bytes represent their corresponding code
+      # points in CP1252 and UTF-8.  In ASCII platform UTF-8 all other code
+      # points require multiple (non-ASCII) bytes to represent.  (A separate
+      # paragraph for EBCDIC is below.)  The multi-byte representation is
+      # quite structured.  If we find an isolated byte that requires multiple
+      # bytes to represent in UTF-8, we know that the encoding is not UTF-8.
+      # If we find a sequence of bytes that violates the UTF-8 structure, we
+      # also can presume the encoding isn't UTF-8, and hence must be 1252.
+      #
+      # But there are ambiguous cases where we could guess wrong.  If so, the
+      # user will end up having to supply an =encoding line.  We use all
+      # readily available information to improve our chances of guessing
+      # right.  The odds of something not being UTF-8, but still passing a
+      # UTF-8 validity test go down very rapidly with increasing length of the
+      # sequence.  Therefore we look at all the maximal length non-ascii
+      # sequences on the line.  If any of the sequences can't be UTF-8, we
+      # quit there and choose CP1252.  If all could be UTF-8, we guess UTF-8.
+      #
+      # On EBCDIC platforms, the situation is somewhat different.  In
+      # UTF-EBCDIC, not only do ASCII-range bytes represent their code points,
+      # but so do the bytes that are for the C1 controls.  Recall that these
+      # correspond to the unused portion of 8859-1 that 1252 mostly takes
+      # over.  That means that there are fewer code points that are
+      # represented by multi-bytes.  But, note that the these controls are
+      # very unlikely to be in pod text.  So if we encounter one of them, it
+      # means that it is quite likely CP1252 and not UTF-8.  The net result is
+      # the same code below is used for both platforms.
+      while ($line =~ m/($non_ascii_re+)/g) {
+        my $non_ascii_seq = $1;
+
+        if (length $non_ascii_seq == 1) {
+          $encoding = 'CP1252';
+          goto guessed;
+        } elsif ($] ge 5.007_003) {
+
+          # On Perls that have this function, we can see if the sequence is
+          # valid UTF-8 or not.
+          if (! utf8::decode($non_ascii_seq)) {
+            $encoding = 'CP1252';
+            goto guessed;
+          }
+        } elsif (ord("A") == 65) {  # An early Perl, ASCII platform
+
+          # Without utf8::decode, it's a lot harder to do a rigorous check
+          # (though some early releases had a different function that
+          # accomplished the same thing).  Since these are ancient Perls, not
+          # likely to be in use today, we take the easy way out, and look at
+          # just the first two bytes of the sequence to see if they are the
+          # start of a UTF-8 character.  In ASCII UTF-8, continuation bytes
+          # must be between 0x80 and 0xBF.  Start bytes can range from 0xC2
+          # through 0xFF, but anything above 0xF4 is not Unicode, and hence
+          # extremely unlikely to be in a pod.
+          if ($non_ascii_seq !~ /^[\xC2-\xF4][\x80-\xBF]/) {
+            $encoding = 'CP1252';
+            goto guessed;
+          }
+
+          # We don't bother doing anything special for EBCDIC on early Perls.
+          # If there is a solitary variant, CP1252 will be chosen; otherwise
+          # UTF-8.
+        }
+      } # End of loop through all variant sequences on the line
+
+      # All sequences in the line could be UTF-8.  Guess that.
+      $encoding = 'UTF-8';
+
+    guessed:
+      $self->_handle_encoding_line( "=encoding $encoding" );
+      delete $self->{'_processed_encoding'};
+      $self->{'_transcoder'} && $self->{'_transcoder'}->($line);
+
+      my ($word) = $line =~ /(\S*$non_ascii_re\S*)/;
+
+      $self->whine(
+        $self->{'line_count'},
+        "Non-ASCII character seen before =encoding in '$word'. Assuming $encoding"
+      );
+    }
+
+    DEBUG > 5 and print STDERR "# Parsing line: [$line]\n";
+
+    if(!$self->{'in_pod'}) {
+      if($line =~ m/^=([a-zA-Z][a-zA-Z0-9]*)(?:\s|$)/s) {
+        if($1 eq 'cut') {
+          $self->scream(
+            $self->{'line_count'},
+            "=cut found outside a pod block.  Skipping to next block."
+          );
+          
+          ## Before there were errata sections in the world, it was
+          ## least-pessimal to abort processing the file.  But now we can
+          ## just barrel on thru (but still not start a pod block).
+          #splice @_;
+          #push @_, undef;
+          
+          next;
+        } else {
+          $self->{'in_pod'} = $self->{'start_of_pod_block'}
+                            = $self->{'last_was_blank'}     = 1;
+          # And fall thru to the pod-mode block further down
+        }
+      } else {
+        DEBUG > 5 and print STDERR "# It's a code-line.\n";
+        $code_handler->(map $_, $line, $self->{'line_count'}, $self)
+         if $code_handler;
+        # Note: this may cause code to be processed out of order relative
+        #  to pods, but in order relative to cuts.
+        
+        # Note also that we haven't yet applied the transcoding to $line
+        #  by time we call $code_handler!
+
+        if( $line =~ m/^#\s*line\s+(\d+)\s*(?:\s"([^"]+)")?\s*$/ ) {
+          # That RE is from perlsyn, section "Plain Old Comments (Not!)",
+          #$fname = $2 if defined $2;
+          #DEBUG > 1 and defined $2 and print STDERR "# Setting fname to \"$fname\"\n";
+          DEBUG > 1 and print STDERR "# Setting nextline to $1\n";
+          $self->{'line_count'} = $1 - 1;
+        }
+        
+        next;
+      }
+    }
+    
+    # . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
+    # Else we're in pod mode:
+
+    # Apply any necessary transcoding:
+    $self->{'_transcoder'} && $self->{'_transcoder'}->($line);
+
+    # HERE WE CATCH =encoding EARLY!
+    if( $line =~ m/^=encoding\s+\S+\s*$/s ) {
+      next if $self->parse_characters;   # Ignore this line
+      $line = $self->_handle_encoding_line( $line );
+    }
+
+    if($line =~ m/^=cut/s) {
+      # here ends the pod block, and therefore the previous pod para
+      DEBUG > 1 and print STDERR "Noting =cut at line ${$self}{'line_count'}\n";
+      $self->{'in_pod'} = 0;
+      # ++$self->{'pod_para_count'};
+      $self->_ponder_paragraph_buffer();
+       # by now it's safe to consider the previous paragraph as done.
+      $cut_handler->(map $_, $line, $self->{'line_count'}, $self)
+       if $cut_handler;
+
+      # TODO: add to docs: Note: this may cause cuts to be processed out
+      #  of order relative to pods, but in order relative to code.
+      
+    } elsif($line =~ m/^(\s*)$/s) {  # it's a blank line
+      if (defined $1 and $1 =~ /[^\S\r\n]/) { # it's a white line
+        $wl_handler->(map $_, $line, $self->{'line_count'}, $self)
+          if $wl_handler;
+      }
+
+      if(!$self->{'start_of_pod_block'} and @$paras and $paras->[-1][0] eq '~Verbatim') {
+        DEBUG > 1 and print STDERR "Saving blank line at line ${$self}{'line_count'}\n";
+        push @{$paras->[-1]}, $line;
+      }  # otherwise it's not interesting
+      
+      if(!$self->{'start_of_pod_block'} and !$self->{'last_was_blank'}) {
+        DEBUG > 1 and print STDERR "Noting para ends with blank line at ${$self}{'line_count'}\n";
+      }
+      
+      $self->{'last_was_blank'} = 1;
+      
+    } elsif($self->{'last_was_blank'}) {  # A non-blank line starting a new para...
+      
+      if($line =~ m/^(=[a-zA-Z][a-zA-Z0-9]*)(?:\s+|$)(.*)/s) {
+        # THIS IS THE ONE PLACE WHERE WE CONSTRUCT NEW DIRECTIVE OBJECTS
+        my $new = [$1, {'start_line' => $self->{'line_count'}}, $2];
+         # Note that in "=head1 foo", the WS is lost.
+         # Example: ['=head1', {'start_line' => 123}, ' foo']
+        
+        ++$self->{'pod_para_count'};
+        
+        $self->_ponder_paragraph_buffer();
+         # by now it's safe to consider the previous paragraph as done.
+                
+        push @$paras, $new; # the new incipient paragraph
+        DEBUG > 1 and print STDERR "Starting new ${$paras}[-1][0] para at line ${$self}{'line_count'}\n";
+        
+      } elsif($line =~ m/^\s/s) {
+
+        if(!$self->{'start_of_pod_block'} and @$paras and $paras->[-1][0] eq '~Verbatim') {
+          DEBUG > 1 and print STDERR "Resuming verbatim para at line ${$self}{'line_count'}\n";
+          push @{$paras->[-1]}, $line;
+        } else {
+          ++$self->{'pod_para_count'};
+          $self->_ponder_paragraph_buffer();
+           # by now it's safe to consider the previous paragraph as done.
+          DEBUG > 1 and print STDERR "Starting verbatim para at line ${$self}{'line_count'}\n";
+          push @$paras, ['~Verbatim', {'start_line' => $self->{'line_count'}}, $line];
+        }
+      } else {
+        ++$self->{'pod_para_count'};
+        $self->_ponder_paragraph_buffer();
+         # by now it's safe to consider the previous paragraph as done.
+        push @$paras, ['~Para',  {'start_line' => $self->{'line_count'}}, $line];
+        DEBUG > 1 and print STDERR "Starting plain para at line ${$self}{'line_count'}\n";
+      }
+      $self->{'last_was_blank'} = $self->{'start_of_pod_block'} = 0;
+
+    } else {
+      # It's a non-blank line /continuing/ the current para
+      if(@$paras) {
+        DEBUG > 2 and print STDERR "Line ${$self}{'line_count'} continues current paragraph\n";
+        push @{$paras->[-1]}, $line;
+      } else {
+        # Unexpected case!
+        die "Continuing a paragraph but \@\$paras is empty?";
+      }
+      $self->{'last_was_blank'} = $self->{'start_of_pod_block'} = 0;
+    }
+    
+  } # ends the big while loop
+
+  DEBUG > 1 and print STDERR (pretty(@$paras), "\n");
+  return $self;
+}
+
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+
+sub _handle_encoding_line {
+  my($self, $line) = @_;
+  
+  return if $self->parse_characters;
+
+  # The point of this routine is to set $self->{'_transcoder'} as indicated.
+
+  return $line unless $line =~ m/^=encoding\s+(\S+)\s*$/s;
+  DEBUG > 1 and print STDERR "Found an encoding line \"=encoding $1\"\n";
+
+  my $e    = $1;
+  my $orig = $e;
+  push @{ $self->{'encoding_command_reqs'} }, "=encoding $orig";
+
+  my $enc_error;
+
+  # Cf.   perldoc Encode   and   perldoc Encode::Supported
+
+  require Pod::Simple::Transcode;
+
+  if( $self->{'encoding'} ) {
+    my $norm_current = $self->{'encoding'};
+    my $norm_e = $e;
+    foreach my $that ($norm_current, $norm_e) {
+      $that =  lc($that);
+      $that =~ s/[-_]//g;
+    }
+    if($norm_current eq $norm_e) {
+      DEBUG > 1 and print STDERR "The '=encoding $orig' line is ",
+       "redundant.  ($norm_current eq $norm_e).  Ignoring.\n";
+      $enc_error = '';
+       # But that doesn't necessarily mean that the earlier one went okay
+    } else {
+      $enc_error = "Encoding is already set to " . $self->{'encoding'};
+      DEBUG > 1 and print STDERR $enc_error;
+    }
+  } elsif (
+    # OK, let's turn on the encoding
+    do {
+      DEBUG > 1 and print STDERR " Setting encoding to $e\n";
+      $self->{'encoding'} = $e;
+      1;
+    }
+    and $e eq 'HACKRAW'
+  ) {
+    DEBUG and print STDERR " Putting in HACKRAW (no-op) encoding mode.\n";
+
+  } elsif( Pod::Simple::Transcode::->encoding_is_available($e) ) {
+
+    die($enc_error = "WHAT? _transcoder is already set?!")
+     if $self->{'_transcoder'};   # should never happen
+    require Pod::Simple::Transcode;
+    $self->{'_transcoder'} = Pod::Simple::Transcode::->make_transcoder($e);
+    eval {
+      my @x = ('', "abc", "123");
+      $self->{'_transcoder'}->(@x);
+    };
+    $@ && die( $enc_error =
+      "Really unexpected error setting up encoding $e: $@\nAborting"
+    );
+    $self->{'detected_encoding'} = $e;
+
+  } else {
+    my @supported = Pod::Simple::Transcode::->all_encodings;
+
+    # Note unsupported, and complain
+    DEBUG and print STDERR " Encoding [$e] is unsupported.",
+      "\nSupporteds: @supported\n";
+    my $suggestion = '';
+
+    # Look for a near match:
+    my $norm = lc($e);
+    $norm =~ tr[-_][]d;
+    my $n;
+    foreach my $enc (@supported) {
+      $n = lc($enc);
+      $n =~ tr[-_][]d;
+      next unless $n eq $norm;
+      $suggestion = "  (Maybe \"$e\" should be \"$enc\"?)";
+      last;
+    }
+    my $encmodver = Pod::Simple::Transcode::->encmodver;
+    $enc_error = join '' =>
+      "This document probably does not appear as it should, because its ",
+      "\"=encoding $e\" line calls for an unsupported encoding.",
+      $suggestion, "  [$encmodver\'s supported encodings are: @supported]"
+    ;
+
+    $self->scream( $self->{'line_count'}, $enc_error );
+  }
+  push @{ $self->{'encoding_command_statuses'} }, $enc_error;
+  if (defined($self->{'_processed_encoding'})) {
+    # Double declaration.
+    $self->scream( $self->{'line_count'}, 'Cannot have multiple =encoding directives');
+  }
+  $self->{'_processed_encoding'} = $orig;
+
+  return $line;
+}
+
+# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+sub _handle_encoding_second_level {
+  # By time this is called, the encoding (if well formed) will already
+  #  have been acted one.
+  my($self, $para) = @_;
+  my @x = @$para;
+  my $content = join ' ', splice @x, 2;
+  $content =~ s/^\s+//s;
+  $content =~ s/\s+$//s;
+
+  DEBUG > 2 and print STDERR "Ogling encoding directive: =encoding $content\n";
+  
+  if (defined($self->{'_processed_encoding'})) {
+    #if($content ne $self->{'_processed_encoding'}) {
+    #  Could it happen?
+    #}
+    delete $self->{'_processed_encoding'};
+    # It's already been handled.  Check for errors.
+    if(! $self->{'encoding_command_statuses'} ) {
+      DEBUG > 2 and print STDERR " CRAZY ERROR: It wasn't really handled?!\n";
+    } elsif( $self->{'encoding_command_statuses'}[-1] ) {
+      $self->whine( $para->[1]{'start_line'},
+        sprintf "Couldn't do %s: %s",
+          $self->{'encoding_command_reqs'  }[-1],
+          $self->{'encoding_command_statuses'}[-1],
+      );
+    } else {
+      DEBUG > 2 and print STDERR " (Yup, it was successfully handled already.)\n";
+    }
+    
+  } else {
+    # Otherwise it's a syntax error
+    $self->whine( $para->[1]{'start_line'},
+      "Invalid =encoding syntax: $content"
+    );
+  }
+  
+  return;
+}
+
+#~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`
+
+{
+my $m = -321;   # magic line number
+
+sub _gen_errata {
+  my $self = $_[0];
+  # Return 0 or more fake-o paragraphs explaining the accumulated
+  #  errors on this document.
+
+  return() unless $self->{'errata'} and keys %{$self->{'errata'}};
+
+  my @out;
+  
+  foreach my $line (sort {$a <=> $b} keys %{$self->{'errata'}}) {
+    push @out,
+      ['=item', {'start_line' => $m}, "Around line $line:"],
+      map( ['~Para', {'start_line' => $m, '~cooked' => 1},
+        #['~Top', {'start_line' => $m},
+        $_
+        #]
+        ],
+        @{$self->{'errata'}{$line}}
+      )
+    ;
+  }
+  
+  # TODO: report of unknown entities? unrenderable characters?
+
+  unshift @out,
+    ['=head1', {'start_line' => $m, 'errata' => 1}, 'POD ERRORS'],
+    ['~Para', {'start_line' => $m, '~cooked' => 1, 'errata' => 1},
+     "Hey! ",
+     ['B', {},
+      'The above document had some coding errors, which are explained below:'
+     ]
+    ],
+    ['=over',  {'start_line' => $m, 'errata' => 1}, ''],
+  ;
+
+  push @out, 
+    ['=back',  {'start_line' => $m, 'errata' => 1}, ''],
+  ;
+
+  DEBUG and print STDERR "\n<<\n", pretty(\@out), "\n>>\n\n";
+
+  return @out;
+}
+
+}
+
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+
+##############################################################################
+##
+##  stop reading now stop reading now stop reading now stop reading now stop
+##
+##                         HERE IT BECOMES REALLY SCARY
+##
+##  stop reading now stop reading now stop reading now stop reading now stop
+##
+##############################################################################
+
+sub _ponder_paragraph_buffer {
+
+  # Para-token types as found in the buffer.
+  #   ~Verbatim, ~Para, ~end, =head1..4, =for, =begin, =end,
+  #   =over, =back, =item
+  #   and the null =pod (to be complained about if over one line)
+  #
+  # "~data" paragraphs are something we generate at this level, depending on
+  # a currently open =over region
+
+  # Events fired:  Begin and end for:
+  #                   directivename (like head1 .. head4), item, extend,
+  #                   for (from =begin...=end, =for),
+  #                   over-bullet, over-number, over-text, over-block,
+  #                   item-bullet, item-number, item-text,
+  #                   Document,
+  #                   Data, Para, Verbatim
+  #                   B, C, longdirname (TODO -- wha?), etc. for all directives
+  # 
+
+  my $self = $_[0];
+  my $paras;
+  return unless @{$paras = $self->{'paras'}};
+  my $curr_open = ($self->{'curr_open'} ||= []);
+
+  my $scratch;
+
+  DEBUG > 10 and print STDERR "# Paragraph buffer: <<", pretty($paras), ">>\n";
+
+  # We have something in our buffer.  So apparently the document has started.
+  unless($self->{'doc_has_started'}) {
+    $self->{'doc_has_started'} = 1;
+    
+    my $starting_contentless;
+    $starting_contentless =
+     (
+       !@$curr_open  
+       and @$paras and ! grep $_->[0] ne '~end', @$paras
+        # i.e., if the paras is all ~ends
+     )
+    ;
+    DEBUG and print STDERR "# Starting ",
+      $starting_contentless ? 'contentless' : 'contentful',
+      " document\n"
+    ;
+    
+    $self->_handle_element_start(
+      ($scratch = 'Document'),
+      {
+        'start_line' => $paras->[0][1]{'start_line'},
+        $starting_contentless ? ( 'contentless' => 1 ) : (),
+      },
+    );
+  }
+
+  my($para, $para_type);
+  while(@$paras) {
+    last if @$paras == 1 and
+      ( $paras->[0][0] eq '=over' or $paras->[0][0] eq '~Verbatim'
+        or $paras->[0][0] eq '=item' )
+    ;
+    # Those're the three kinds of paragraphs that require lookahead.
+    #   Actually, an "=item Foo" inside an <over type=text> region
+    #   and any =item inside an <over type=block> region (rare)
+    #   don't require any lookahead, but all others (bullets
+    #   and numbers) do.
+
+# TODO: whinge about many kinds of directives in non-resolving =for regions?
+# TODO: many?  like what?  =head1 etc?
+
+    $para = shift @$paras;
+    $para_type = $para->[0];
+
+    DEBUG > 1 and print STDERR "Pondering a $para_type paragraph, given the stack: (",
+      $self->_dump_curr_open(), ")\n";
+    
+    if($para_type eq '=for') {
+      next if $self->_ponder_for($para,$curr_open,$paras);
+
+    } elsif($para_type eq '=begin') {
+      next if $self->_ponder_begin($para,$curr_open,$paras);
+
+    } elsif($para_type eq '=end') {
+      next if $self->_ponder_end($para,$curr_open,$paras);
+
+    } elsif($para_type eq '~end') { # The virtual end-document signal
+      next if $self->_ponder_doc_end($para,$curr_open,$paras);
+    }
+
+
+    # ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
+    #~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
+    if(grep $_->[1]{'~ignore'}, @$curr_open) {
+      DEBUG > 1 and
+       print STDERR "Skipping $para_type paragraph because in ignore mode.\n";
+      next;
+    }
+    #~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
+    # ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
+
+    if($para_type eq '=pod') {
+      $self->_ponder_pod($para,$curr_open,$paras);
+
+    } elsif($para_type eq '=over') {
+      next if $self->_ponder_over($para,$curr_open,$paras);
+
+    } elsif($para_type eq '=back') {
+      next if $self->_ponder_back($para,$curr_open,$paras);
+
+    } else {
+
+      # All non-magical codes!!!
+      
+      # Here we start using $para_type for our own twisted purposes, to
+      #  mean how it should get treated, not as what the element name
+      #  should be.
+
+      DEBUG > 1 and print STDERR "Pondering non-magical $para_type\n";
+
+      my $i;
+
+      # Enforce some =headN discipline
+      if($para_type =~ m/^=head\d$/s
+         and ! $self->{'accept_heads_anywhere'}
+         and @$curr_open
+         and $curr_open->[-1][0] eq '=over'
+      ) {
+        DEBUG > 2 and print STDERR "'=$para_type' inside an '=over'!\n";
+        $self->whine(
+          $para->[1]{'start_line'},
+          "You forgot a '=back' before '$para_type'"
+        );
+        unshift @$paras, ['=back', {}, ''], $para;   # close the =over
+        next;
+      }
+
+
+      if($para_type eq '=item') {
+
+        my $over;
+        unless(@$curr_open and
+               $over = (grep { $_->[0] eq '=over' } @$curr_open)[-1]) {
+          $self->whine(
+            $para->[1]{'start_line'},
+            "'=item' outside of any '=over'"
+          );
+          unshift @$paras,
+            ['=over', {'start_line' => $para->[1]{'start_line'}}, ''],
+            $para
+          ;
+          next;
+        }
+        
+        
+        my $over_type = $over->[1]{'~type'};
+        
+        if(!$over_type) {
+          # Shouldn't happen1
+          die "Typeless over in stack, starting at line "
+           . $over->[1]{'start_line'};
+
+        } elsif($over_type eq 'block') {
+          unless($curr_open->[-1][1]{'~bitched_about'}) {
+            $curr_open->[-1][1]{'~bitched_about'} = 1;
+            $self->whine(
+              $curr_open->[-1][1]{'start_line'},
+              "You can't have =items (as at line "
+              . $para->[1]{'start_line'}
+              . ") unless the first thing after the =over is an =item"
+            );
+          }
+          # Just turn it into a paragraph and reconsider it
+          $para->[0] = '~Para';
+          unshift @$paras, $para;
+          next;
+
+        } elsif($over_type eq 'text') {
+          my $item_type = $self->_get_item_type($para);
+            # That kills the content of the item if it's a number or bullet.
+          DEBUG and print STDERR " Item is of type ", $para->[0], " under $over_type\n";
+          
+          if($item_type eq 'text') {
+            # Nothing special needs doing for 'text'
+          } elsif($item_type eq 'number' or $item_type eq 'bullet') {
+            $self->whine(
+              $para->[1]{'start_line'},
+              "Expected text after =item, not a $item_type"
+            );
+            # Undo our clobbering:
+            push @$para, $para->[1]{'~orig_content'};
+            delete $para->[1]{'number'};
+             # Only a PROPER item-number element is allowed
+             #  to have a number attribute.
+          } else {
+            die "Unhandled item type $item_type"; # should never happen
+          }
+          
+          # =item-text thingies don't need any assimilation, it seems.
+
+        } elsif($over_type eq 'number') {
+          my $item_type = $self->_get_item_type($para);
+            # That kills the content of the item if it's a number or bullet.
+          DEBUG and print STDERR " Item is of type ", $para->[0], " under $over_type\n";
+          
+          my $expected_value = ++ $curr_open->[-1][1]{'~counter'};
+          
+          if($item_type eq 'bullet') {
+            # Hm, it's not numeric.  Correct for this.
+            $para->[1]{'number'} = $expected_value;
+            $self->whine(
+              $para->[1]{'start_line'},
+              "Expected '=item $expected_value'"
+            );
+            push @$para, $para->[1]{'~orig_content'};
+              # restore the bullet, blocking the assimilation of next para
+
+          } elsif($item_type eq 'text') {
+            # Hm, it's not numeric.  Correct for this.
+            $para->[1]{'number'} = $expected_value;
+            $self->whine(
+              $para->[1]{'start_line'},
+              "Expected '=item $expected_value'"
+            );
+            # Text content will still be there and will block next ~Para
+
+          } elsif($item_type ne 'number') {
+            die "Unknown item type $item_type"; # should never happen
+
+          } elsif($expected_value == $para->[1]{'number'}) {
+            DEBUG > 1 and print STDERR " Numeric item has the expected value of $expected_value\n";
+            
+          } else {
+            DEBUG > 1 and print STDERR " Numeric item has ", $para->[1]{'number'},
+             " instead of the expected value of $expected_value\n";
+            $self->whine(
+              $para->[1]{'start_line'},
+              "You have '=item " . $para->[1]{'number'} .
+              "' instead of the expected '=item $expected_value'"
+            );
+            $para->[1]{'number'} = $expected_value;  # correcting!!
+          }
+            
+          if(@$para == 2) {
+            # For the cases where we /didn't/ push to @$para
+            if($paras->[0][0] eq '~Para') {
+              DEBUG and print STDERR "Assimilating following ~Para content into $over_type item\n";
+              push @$para, splice @{shift @$paras},2;
+            } else {
+              DEBUG and print STDERR "Can't assimilate following ", $paras->[0][0], "\n";
+              push @$para, '';  # Just so it's not contentless
+            }
+          }
+
+
+        } elsif($over_type eq 'bullet') {
+          my $item_type = $self->_get_item_type($para);
+            # That kills the content of the item if it's a number or bullet.
+          DEBUG and print STDERR " Item is of type ", $para->[0], " under $over_type\n";
+          
+          if($item_type eq 'bullet') {
+            # as expected!
+
+            if( $para->[1]{'~_freaky_para_hack'} ) {
+              DEBUG and print STDERR "Accomodating '=item * Foo' tolerance hack.\n";
+              push @$para, delete $para->[1]{'~_freaky_para_hack'};
+            }
+
+          } elsif($item_type eq 'number') {
+            $self->whine(
+              $para->[1]{'start_line'},
+              "Expected '=item *'"
+            );
+            push @$para, $para->[1]{'~orig_content'};
+             # and block assimilation of the next paragraph
+            delete $para->[1]{'number'};
+             # Only a PROPER item-number element is allowed
+             #  to have a number attribute.
+          } elsif($item_type eq 'text') {
+            $self->whine(
+              $para->[1]{'start_line'},
+              "Expected '=item *'"
+            );
+             # But doesn't need processing.  But it'll block assimilation
+             #  of the next para.
+          } else {
+            die "Unhandled item type $item_type"; # should never happen
+          }
+
+          if(@$para == 2) {
+            # For the cases where we /didn't/ push to @$para
+            if($paras->[0][0] eq '~Para') {
+              DEBUG and print STDERR "Assimilating following ~Para content into $over_type item\n";
+              push @$para, splice @{shift @$paras},2;
+            } else {
+              DEBUG and print STDERR "Can't assimilate following ", $paras->[0][0], "\n";
+              push @$para, '';  # Just so it's not contentless
+            }
+          }
+
+        } else {
+          die "Unhandled =over type \"$over_type\"?";
+          # Shouldn't happen!
+        }
+
+        $para_type = 'Plain';
+        $para->[0] .= '-' . $over_type;
+        # Whew.  Now fall thru and process it.
+
+
+      } elsif($para_type eq '=extend') {
+        # Well, might as well implement it here.
+        $self->_ponder_extend($para);
+        next;  # and skip
+      } elsif($para_type eq '=encoding') {
+        # Not actually acted on here, but we catch errors here.
+        $self->_handle_encoding_second_level($para);
+        next unless $self->keep_encoding_directive;
+        $para_type = 'Plain';
+      } elsif($para_type eq '~Verbatim') {
+        $para->[0] = 'Verbatim';
+        $para_type = '?Verbatim';
+      } elsif($para_type eq '~Para') {
+        $para->[0] = 'Para';
+        $para_type = '?Plain';
+      } elsif($para_type eq 'Data') {
+        $para->[0] = 'Data';
+        $para_type = '?Data';
+      } elsif( $para_type =~ s/^=//s
+        and defined( $para_type = $self->{'accept_directives'}{$para_type} )
+      ) {
+        DEBUG > 1 and print STDERR " Pondering known directive ${$para}[0] as $para_type\n";
+      } else {
+        # An unknown directive!
+        DEBUG > 1 and printf STDERR "Unhandled directive %s (Handled: %s)\n",
+         $para->[0], join(' ', sort keys %{$self->{'accept_directives'}} )
+        ;
+        $self->whine(
+          $para->[1]{'start_line'},
+          "Unknown directive: $para->[0]"
+        );
+
+        # And maybe treat it as text instead of just letting it go?
+        next;
+      }
+
+      if($para_type =~ s/^\?//s) {
+        if(! @$curr_open) {  # usual case
+          DEBUG and print STDERR "Treating $para_type paragraph as such because stack is empty.\n";
+        } else {
+          my @fors = grep $_->[0] eq '=for', @$curr_open;
+          DEBUG > 1 and print STDERR "Containing fors: ",
+            join(',', map $_->[1]{'target'}, @fors), "\n";
+          
+          if(! @fors) {
+            DEBUG and print STDERR "Treating $para_type paragraph as such because stack has no =for's\n";
+            
+          #} elsif(grep $_->[1]{'~resolve'}, @fors) {
+          #} elsif(not grep !$_->[1]{'~resolve'}, @fors) {
+          } elsif( $fors[-1][1]{'~resolve'} ) {
+            # Look to the immediately containing for
+          
+            if($para_type eq 'Data') {
+              DEBUG and print STDERR "Treating Data paragraph as Plain/Verbatim because the containing =for ($fors[-1][1]{'target'}) is a resolver\n";
+              $para->[0] = 'Para';
+              $para_type = 'Plain';
+            } else {
+              DEBUG and print STDERR "Treating $para_type paragraph as such because the containing =for ($fors[-1][1]{'target'}) is a resolver\n";
+            }
+          } else {
+            DEBUG and print STDERR "Treating $para_type paragraph as Data because the containing =for ($fors[-1][1]{'target'}) is a non-resolver\n";
+            $para->[0] = $para_type = 'Data';
+          }
+        }
+      }
+
+      #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+      if($para_type eq 'Plain') {
+        $self->_ponder_Plain($para);
+      } elsif($para_type eq 'Verbatim') {
+        $self->_ponder_Verbatim($para);        
+      } elsif($para_type eq 'Data') {
+        $self->_ponder_Data($para);
+      } else {
+        die "\$para type is $para_type -- how did that happen?";
+        # Shouldn't happen.
+      }
+
+      #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+      $para->[0] =~ s/^[~=]//s;
+
+      DEBUG and print STDERR "\n", pretty($para), "\n";
+
+      # traverse the treelet (which might well be just one string scalar)
+      $self->{'content_seen'} ||= 1;
+      $self->_traverse_treelet_bit(@$para);
+    }
+  }
+  
+  return;
+}
+
+###########################################################################
+# The sub-ponderers...
+
+
+
+sub _ponder_for {
+  my ($self,$para,$curr_open,$paras) = @_;
+
+  # Fake it out as a begin/end
+  my $target;
+
+  if(grep $_->[1]{'~ignore'}, @$curr_open) {
+    DEBUG > 1 and print STDERR "Ignoring ignorable =for\n";
+    return 1;
+  }
+
+  for(my $i = 2; $i < @$para; ++$i) {
+    if($para->[$i] =~ s/^\s*(\S+)\s*//s) {
+      $target = $1;
+      last;
+    }
+  }
+  unless(defined $target) {
+    $self->whine(
+      $para->[1]{'start_line'},
+      "=for without a target?"
+    );
+    return 1;
+  }
+  DEBUG > 1 and
+   print STDERR "Faking out a =for $target as a =begin $target / =end $target\n";
+  
+  $para->[0] = 'Data';
+  
+  unshift @$paras,
+    ['=begin',
+      {'start_line' => $para->[1]{'start_line'}, '~really' => '=for'},
+      $target,
+    ],
+    $para,
+    ['=end',
+      {'start_line' => $para->[1]{'start_line'}, '~really' => '=for'},
+      $target,
+    ],
+  ;
+  
+  return 1;
+}
+
+sub _ponder_begin {
+  my ($self,$para,$curr_open,$paras) = @_;
+  my $content = join ' ', splice @$para, 2;
+  $content =~ s/^\s+//s;
+  $content =~ s/\s+$//s;
+  unless(length($content)) {
+    $self->whine(
+      $para->[1]{'start_line'},
+      "=begin without a target?"
+    );
+    DEBUG and print STDERR "Ignoring targetless =begin\n";
+    return 1;
+  }
+  
+  my ($target, $title) = $content =~ m/^(\S+)\s*(.*)$/;
+  $para->[1]{'title'} = $title if ($title);
+  $para->[1]{'target'} = $target;  # without any ':'
+  $content = $target; # strip off the title
+  
+  $content =~ s/^:!/!:/s;
+  my $neg;  # whether this is a negation-match
+  $neg = 1        if $content =~ s/^!//s;
+  my $to_resolve;  # whether to process formatting codes
+  $to_resolve = 1 if $content =~ s/^://s;
+  
+  my $dont_ignore; # whether this target matches us
+  
+  foreach my $target_name (
+    split(',', $content, -1),
+    $neg ? () : '*'
+  ) {
+    DEBUG > 2 and
+     print STDERR " Considering whether =begin $content matches $target_name\n";
+    next unless $self->{'accept_targets'}{$target_name};
+    
+    DEBUG > 2 and
+     print STDERR "  It DOES match the acceptable target $target_name!\n";
+    $to_resolve = 1
+      if $self->{'accept_targets'}{$target_name} eq 'force_resolve';
+    $dont_ignore = 1;
+    $para->[1]{'target_matching'} = $target_name;
+    last; # stop looking at other target names
+  }
+
+  if($neg) {
+    if( $dont_ignore ) {
+      $dont_ignore = '';
+      delete $para->[1]{'target_matching'};
+      DEBUG > 2 and print STDERR " But the leading ! means that this is a NON-match!\n";
+    } else {
+      $dont_ignore = 1;
+      $para->[1]{'target_matching'} = '!';
+      DEBUG > 2 and print STDERR " But the leading ! means that this IS a match!\n";
+    }
+  }
+
+  $para->[0] = '=for';  # Just what we happen to call these, internally
+  $para->[1]{'~really'} ||= '=begin';
+  $para->[1]{'~ignore'}   = (! $dont_ignore) || 0;
+  $para->[1]{'~resolve'}  = $to_resolve || 0;
+
+  DEBUG > 1 and print STDERR " Making note to ", $dont_ignore ? 'not ' : '',
+    "ignore contents of this region\n";
+  DEBUG > 1 and $dont_ignore and print STDERR " Making note to treat contents as ",
+    ($to_resolve ? 'verbatim/plain' : 'data'), " paragraphs\n";
+  DEBUG > 1 and print STDERR " (Stack now: ", $self->_dump_curr_open(), ")\n";
+
+  push @$curr_open, $para;
+  if(!$dont_ignore or scalar grep $_->[1]{'~ignore'}, @$curr_open) {
+    DEBUG > 1 and print STDERR "Ignoring ignorable =begin\n";
+  } else {
+    $self->{'content_seen'} ||= 1;
+    $self->_handle_element_start((my $scratch='for'), $para->[1]);
+  }
+
+  return 1;
+}
+
+sub _ponder_end {
+  my ($self,$para,$curr_open,$paras) = @_;
+  my $content = join ' ', splice @$para, 2;
+  $content =~ s/^\s+//s;
+  $content =~ s/\s+$//s;
+  DEBUG and print STDERR "Ogling '=end $content' directive\n";
+
+  unless(length($content)) {
+    $self->whine(
+      $para->[1]{'start_line'},
+      "'=end' without a target?" . (
+        ( @$curr_open and $curr_open->[-1][0] eq '=for' )
+        ? ( " (Should be \"=end " . $curr_open->[-1][1]{'target'} . '")' )
+        : ''
+      )
+    );
+    DEBUG and print STDERR "Ignoring targetless =end\n";
+    return 1;
+  }
+  
+  unless($content =~ m/^\S+$/) {  # i.e., unless it's one word
+    $self->whine(
+      $para->[1]{'start_line'},
+      "'=end $content' is invalid.  (Stack: "
+      . $self->_dump_curr_open() . ')'
+    );
+    DEBUG and print STDERR "Ignoring mistargetted =end $content\n";
+    return 1;
+  }
+  
+  unless(@$curr_open and $curr_open->[-1][0] eq '=for') {
+    $self->whine(
+      $para->[1]{'start_line'},
+      "=end $content without matching =begin.  (Stack: "
+      . $self->_dump_curr_open() . ')'
+    );
+    DEBUG and print STDERR "Ignoring mistargetted =end $content\n";
+    return 1;
+  }
+  
+  unless($content eq $curr_open->[-1][1]{'target'}) {
+    $self->whine(
+      $para->[1]{'start_line'},
+      "=end $content doesn't match =begin " 
+      . $curr_open->[-1][1]{'target'}
+      . ".  (Stack: "
+      . $self->_dump_curr_open() . ')'
+    );
+    DEBUG and print STDERR "Ignoring mistargetted =end $content at line $para->[1]{'start_line'}\n";
+    return 1;
+  }
+
+  # Else it's okay to close...
+  if(grep $_->[1]{'~ignore'}, @$curr_open) {
+    DEBUG > 1 and print STDERR "Not firing any event for this =end $content because in an ignored region\n";
+    # And that may be because of this to-be-closed =for region, or some
+    #  other one, but it doesn't matter.
+  } else {
+    $curr_open->[-1][1]{'start_line'} = $para->[1]{'start_line'};
+      # what's that for?
+    
+    $self->{'content_seen'} ||= 1;
+    $self->_handle_element_end( my $scratch = 'for', $para->[1]);
+  }
+  DEBUG > 1 and print STDERR "Popping $curr_open->[-1][0] $curr_open->[-1][1]{'target'} because of =end $content\n";
+  pop @$curr_open;
+
+  return 1;
+} 
+
+sub _ponder_doc_end {
+  my ($self,$para,$curr_open,$paras) = @_;
+  if(@$curr_open) { # Deal with things left open
+    DEBUG and print STDERR "Stack is nonempty at end-document: (",
+      $self->_dump_curr_open(), ")\n";
+      
+    DEBUG > 9 and print STDERR "Stack: ", pretty($curr_open), "\n";
+    unshift @$paras, $self->_closers_for_all_curr_open;
+    # Make sure there is exactly one ~end in the parastack, at the end:
+    @$paras = grep $_->[0] ne '~end', @$paras;
+    push @$paras, $para, $para;
+     # We need two -- once for the next cycle where we
+     #  generate errata, and then another to be at the end
+     #  when that loop back around to process the errata.
+    return 1;
+    
+  } else {
+    DEBUG and print STDERR "Okay, stack is empty now.\n";
+  }
+  
+  # Try generating errata section, if applicable
+  unless($self->{'~tried_gen_errata'}) {
+    $self->{'~tried_gen_errata'} = 1;
+    my @extras = $self->_gen_errata();
+    if(@extras) {
+      unshift @$paras, @extras;
+      DEBUG and print STDERR "Generated errata... relooping...\n";
+      return 1;  # I.e., loop around again to process these fake-o paragraphs
+    }
+  }
+  
+  splice @$paras; # Well, that's that for this paragraph buffer.
+  DEBUG and print STDERR "Throwing end-document event.\n";
+
+  $self->_handle_element_end( my $scratch = 'Document' );
+  return 1; # Hasta la byebye
+}
+
+sub _ponder_pod {
+  my ($self,$para,$curr_open,$paras) = @_;
+  $self->whine(
+    $para->[1]{'start_line'},
+    "=pod directives shouldn't be over one line long!  Ignoring all "
+     . (@$para - 2) . " lines of content"
+  ) if @$para > 3;
+
+  # Content ignored unless 'pod_handler' is set
+  if (my $pod_handler = $self->{'pod_handler'}) {
+      my ($line_num, $line) = map $_, $para->[1]{'start_line'}, $para->[2];
+      $line = $line eq '' ? "=pod" : "=pod $line"; # imitate cut_handler output
+      $pod_handler->($line, $line_num, $self);
+  }
+
+  # The surrounding methods set content_seen, so let us remain consistent.
+  # I do not know why it was not here before -- should it not be here?
+  # $self->{'content_seen'} ||= 1;
+
+  return;
+}
+
+sub _ponder_over {
+  my ($self,$para,$curr_open,$paras) = @_;
+  return 1 unless @$paras;
+  my $list_type;
+
+  if($paras->[0][0] eq '=item') { # most common case
+    $list_type = $self->_get_initial_item_type($paras->[0]);
+
+  } elsif($paras->[0][0] eq '=back') {
+    # Ignore empty lists by default
+    if ($self->{'parse_empty_lists'}) {
+      $list_type = 'empty';
+    } else {
+      shift @$paras;
+      return 1;
+    }
+  } elsif($paras->[0][0] eq '~end') {
+    $self->whine(
+      $para->[1]{'start_line'},
+      "=over is the last thing in the document?!"
+    );
+    return 1; # But feh, ignore it.
+  } else {
+    $list_type = 'block';
+  }
+  $para->[1]{'~type'} = $list_type;
+  push @$curr_open, $para;
+   # yes, we reuse the paragraph as a stack item
+  
+  my $content = join ' ', splice @$para, 2;
+  my $overness;
+  if($content =~ m/^\s*$/s) {
+    $para->[1]{'indent'} = 4;
+  } elsif($content =~ m/^\s*((?:\d*\.)?\d+)\s*$/s) {
+    no integer;
+    $para->[1]{'indent'} = $1;
+    if($1 == 0) {
+      $self->whine(
+        $para->[1]{'start_line'},
+        "Can't have a 0 in =over $content"
+      );
+      $para->[1]{'indent'} = 4;
+    }
+  } else {
+    $self->whine(
+      $para->[1]{'start_line'},
+      "=over should be: '=over' or '=over positive_number'"
+    );
+    $para->[1]{'indent'} = 4;
+  }
+  DEBUG > 1 and print STDERR "=over found of type $list_type\n";
+  
+  $self->{'content_seen'} ||= 1;
+  $self->_handle_element_start((my $scratch = 'over-' . $list_type), $para->[1]);
+
+  return;
+}
+      
+sub _ponder_back {
+  my ($self,$para,$curr_open,$paras) = @_;
+  # TODO: fire off </item-number> or </item-bullet> or </item-text> ??
+
+  my $content = join ' ', splice @$para, 2;
+  if($content =~ m/\S/) {
+    $self->whine(
+      $para->[1]{'start_line'},
+      "=back doesn't take any parameters, but you said =back $content"
+    );
+  }
+
+  if(@$curr_open and $curr_open->[-1][0] eq '=over') {
+    DEBUG > 1 and print STDERR "=back happily closes matching =over\n";
+    # Expected case: we're closing the most recently opened thing
+    #my $over = pop @$curr_open;
+    $self->{'content_seen'} ||= 1;
+    $self->_handle_element_end( my $scratch =
+      'over-' . ( (pop @$curr_open)->[1]{'~type'} ), $para->[1]
+    );
+  } else {
+    DEBUG > 1 and print STDERR "=back found without a matching =over.  Stack: (",
+        join(', ', map $_->[0], @$curr_open), ").\n";
+    $self->whine(
+      $para->[1]{'start_line'},
+      '=back without =over'
+    );
+    return 1; # and ignore it
+  }
+}
+
+sub _ponder_item {
+  my ($self,$para,$curr_open,$paras) = @_;
+  my $over;
+  unless(@$curr_open and
+         $over = (grep { $_->[0] eq '=over' } @$curr_open)[-1]) {
+    $self->whine(
+      $para->[1]{'start_line'},
+      "'=item' outside of any '=over'"
+    );
+    unshift @$paras,
+      ['=over', {'start_line' => $para->[1]{'start_line'}}, ''],
+      $para
+    ;
+    return 1;
+  }
+  
+  
+  my $over_type = $over->[1]{'~type'};
+  
+  if(!$over_type) {
+    # Shouldn't happen1
+    die "Typeless over in stack, starting at line "
+     . $over->[1]{'start_line'};
+
+  } elsif($over_type eq 'block') {
+    unless($curr_open->[-1][1]{'~bitched_about'}) {
+      $curr_open->[-1][1]{'~bitched_about'} = 1;
+      $self->whine(
+        $curr_open->[-1][1]{'start_line'},
+        "You can't have =items (as at line "
+        . $para->[1]{'start_line'}
+        . ") unless the first thing after the =over is an =item"
+      );
+    }
+    # Just turn it into a paragraph and reconsider it
+    $para->[0] = '~Para';
+    unshift @$paras, $para;
+    return 1;
+
+  } elsif($over_type eq 'text') {
+    my $item_type = $self->_get_item_type($para);
+      # That kills the content of the item if it's a number or bullet.
+    DEBUG and print STDERR " Item is of type ", $para->[0], " under $over_type\n";
+    
+    if($item_type eq 'text') {
+      # Nothing special needs doing for 'text'
+    } elsif($item_type eq 'number' or $item_type eq 'bullet') {
+      $self->whine(
+          $para->[1]{'start_line'},
+          "Expected text after =item, not a $item_type"
+      );
+      # Undo our clobbering:
+      push @$para, $para->[1]{'~orig_content'};
+      delete $para->[1]{'number'};
+       # Only a PROPER item-number element is allowed
+       #  to have a number attribute.
+    } else {
+      die "Unhandled item type $item_type"; # should never happen
+    }
+    
+    # =item-text thingies don't need any assimilation, it seems.
+
+  } elsif($over_type eq 'number') {
+    my $item_type = $self->_get_item_type($para);
+      # That kills the content of the item if it's a number or bullet.
+    DEBUG and print STDERR " Item is of type ", $para->[0], " under $over_type\n";
+    
+    my $expected_value = ++ $curr_open->[-1][1]{'~counter'};
+    
+    if($item_type eq 'bullet') {
+      # Hm, it's not numeric.  Correct for this.
+      $para->[1]{'number'} = $expected_value;
+      $self->whine(
+        $para->[1]{'start_line'},
+        "Expected '=item $expected_value'"
+      );
+      push @$para, $para->[1]{'~orig_content'};
+        # restore the bullet, blocking the assimilation of next para
+
+    } elsif($item_type eq 'text') {
+      # Hm, it's not numeric.  Correct for this.
+      $para->[1]{'number'} = $expected_value;
+      $self->whine(
+        $para->[1]{'start_line'},
+        "Expected '=item $expected_value'"
+      );
+      # Text content will still be there and will block next ~Para
+
+    } elsif($item_type ne 'number') {
+      die "Unknown item type $item_type"; # should never happen
+
+    } elsif($expected_value == $para->[1]{'number'}) {
+      DEBUG > 1 and print STDERR " Numeric item has the expected value of $expected_value\n";
+      
+    } else {
+      DEBUG > 1 and print STDERR " Numeric item has ", $para->[1]{'number'},
+       " instead of the expected value of $expected_value\n";
+      $self->whine(
+        $para->[1]{'start_line'},
+        "You have '=item " . $para->[1]{'number'} .
+        "' instead of the expected '=item $expected_value'"
+      );
+      $para->[1]{'number'} = $expected_value;  # correcting!!
+    }
+      
+    if(@$para == 2) {
+      # For the cases where we /didn't/ push to @$para
+      if($paras->[0][0] eq '~Para') {
+        DEBUG and print STDERR "Assimilating following ~Para content into $over_type item\n";
+        push @$para, splice @{shift @$paras},2;
+      } else {
+        DEBUG and print STDERR "Can't assimilate following ", $paras->[0][0], "\n";
+        push @$para, '';  # Just so it's not contentless
+      }
+    }
+
+
+  } elsif($over_type eq 'bullet') {
+    my $item_type = $self->_get_item_type($para);
+      # That kills the content of the item if it's a number or bullet.
+    DEBUG and print STDERR " Item is of type ", $para->[0], " under $over_type\n";
+    
+    if($item_type eq 'bullet') {
+      # as expected!
+
+      if( $para->[1]{'~_freaky_para_hack'} ) {
+        DEBUG and print STDERR "Accomodating '=item * Foo' tolerance hack.\n";
+        push @$para, delete $para->[1]{'~_freaky_para_hack'};
+      }
+
+    } elsif($item_type eq 'number') {
+      $self->whine(
+        $para->[1]{'start_line'},
+        "Expected '=item *'"
+      );
+      push @$para, $para->[1]{'~orig_content'};
+       # and block assimilation of the next paragraph
+      delete $para->[1]{'number'};
+       # Only a PROPER item-number element is allowed
+       #  to have a number attribute.
+    } elsif($item_type eq 'text') {
+      $self->whine(
+        $para->[1]{'start_line'},
+        "Expected '=item *'"
+      );
+       # But doesn't need processing.  But it'll block assimilation
+       #  of the next para.
+    } else {
+      die "Unhandled item type $item_type"; # should never happen
+    }
+
+    if(@$para == 2) {
+      # For the cases where we /didn't/ push to @$para
+      if($paras->[0][0] eq '~Para') {
+        DEBUG and print STDERR "Assimilating following ~Para content into $over_type item\n";
+        push @$para, splice @{shift @$paras},2;
+      } else {
+        DEBUG and print STDERR "Can't assimilate following ", $paras->[0][0], "\n";
+        push @$para, '';  # Just so it's not contentless
+      }
+    }
+
+  } else {
+    die "Unhandled =over type \"$over_type\"?";
+    # Shouldn't happen!
+  }
+  $para->[0] .= '-' . $over_type;
+
+  return;
+}
+
+sub _ponder_Plain {
+  my ($self,$para) = @_;
+  DEBUG and print STDERR " giving plain treatment...\n";
+  unless( @$para == 2 or ( @$para == 3 and $para->[2] eq '' )
+    or $para->[1]{'~cooked'}
+  ) {
+    push @$para,
+    @{$self->_make_treelet(
+      join("\n", splice(@$para, 2)),
+      $para->[1]{'start_line'}
+    )};
+  }
+  # Empty paragraphs don't need a treelet for any reason I can see.
+  # And precooked paragraphs already have a treelet.
+  return;
+}
+
+sub _ponder_Verbatim {
+  my ($self,$para) = @_;
+  DEBUG and print STDERR " giving verbatim treatment...\n";
+
+  $para->[1]{'xml:space'} = 'preserve';
+
+  my $indent = $self->strip_verbatim_indent;
+  if ($indent && ref $indent eq 'CODE') {
+      my @shifted = (shift @{$para}, shift @{$para});
+      $indent = $indent->($para);
+      unshift @{$para}, @shifted;
+  }
+
+  for(my $i = 2; $i < @$para; $i++) {
+    foreach my $line ($para->[$i]) { # just for aliasing
+      # Strip indentation.
+      $line =~ s/^\Q$indent// if $indent
+          && !($self->{accept_codes} && $self->{accept_codes}{VerbatimFormatted});
+      while( $line =~
+        # Sort of adapted from Text::Tabs -- yes, it's hardwired in that
+        # tabs are at every EIGHTH column.  For portability, it has to be
+        # one setting everywhere, and 8th wins.
+        s/^([^\t]*)(\t+)/$1.(" " x ((length($2)<<3)-(length($1)&7)))/e
+      ) {}
+
+      # TODO: whinge about (or otherwise treat) unindented or overlong lines
+
+    }
+  }
+  
+  # Now the VerbatimFormatted hoodoo...
+  if( $self->{'accept_codes'} and
+      $self->{'accept_codes'}{'VerbatimFormatted'}
+  ) {
+    while(@$para > 3 and $para->[-1] !~ m/\S/) { pop @$para }
+     # Kill any number of terminal newlines
+    $self->_verbatim_format($para);
+  } elsif ($self->{'codes_in_verbatim'}) {
+    push @$para,
+    @{$self->_make_treelet(
+      join("\n", splice(@$para, 2)),
+      $para->[1]{'start_line'}, $para->[1]{'xml:space'}
+    )};
+    $para->[-1] =~ s/\n+$//s; # Kill any number of terminal newlines
+  } else {
+    push @$para, join "\n", splice(@$para, 2) if @$para > 3;
+    $para->[-1] =~ s/\n+$//s; # Kill any number of terminal newlines
+  }
+  return;
+}
+
+sub _ponder_Data {
+  my ($self,$para) = @_;
+  DEBUG and print STDERR " giving data treatment...\n";
+  $para->[1]{'xml:space'} = 'preserve';
+  push @$para, join "\n", splice(@$para, 2) if @$para > 3;
+  return;
+}
+
+
+
+
+###########################################################################
+
+sub _traverse_treelet_bit {  # for use only by the routine above
+  my($self, $name) = splice @_,0,2;
+
+  my $scratch;
+  $self->_handle_element_start(($scratch=$name), shift @_);
+  
+  while (@_) {
+    my $x = shift;
+    if (ref($x)) {
+      &_traverse_treelet_bit($self, @$x);
+    } else {
+      $x .= shift while @_ && !ref($_[0]);
+      $self->_handle_text($x);
+    }
+  }
+  
+  $self->_handle_element_end($scratch=$name);
+  return;
+}
+
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+
+sub _closers_for_all_curr_open {
+  my $self = $_[0];
+  my @closers;
+  foreach my $still_open (@{  $self->{'curr_open'} || return  }) {
+    my @copy = @$still_open;
+    $copy[1] = {%{ $copy[1] }};
+    #$copy[1]{'start_line'} = -1;
+    if($copy[0] eq '=for') {
+      $copy[0] = '=end';
+    } elsif($copy[0] eq '=over') {
+      $self->whine(
+        $still_open->[1]{start_line} ,
+        "=over without closing =back"
+      );
+
+      $copy[0] = '=back';
+    } else {
+      die "I don't know how to auto-close an open $copy[0] region";
+    }
+
+    unless( @copy > 2 ) {
+      push @copy, $copy[1]{'target'};
+      $copy[-1] = '' unless defined $copy[-1];
+       # since =over's don't have targets
+    }
+
+    $copy[1]{'fake-closer'} = 1;
+
+    DEBUG and print STDERR "Queuing up fake-o event: ", pretty(\@copy), "\n";
+    unshift @closers, \@copy;
+  }
+  return @closers;
+}
+
+#--------------------------------------------------------------------------
+
+sub _verbatim_format {
+  my($it, $p) = @_;
+  
+  my $formatting;
+
+  for(my $i = 2; $i < @$p; $i++) { # work backwards over the lines
+    DEBUG and print STDERR "_verbatim_format appends a newline to $i: $p->[$i]\n";
+    $p->[$i] .= "\n";
+     # Unlike with simple Verbatim blocks, we don't end up just doing
+     # a join("\n", ...) on the contents, so we have to append a
+     # newline to ever line, and then nix the last one later.
+  }
+
+  if( DEBUG > 4 ) {
+    print STDERR "<<\n";
+    for(my $i = $#$p; $i >= 2; $i--) { # work backwards over the lines
+      print STDERR "_verbatim_format $i: $p->[$i]";
+    }
+    print STDERR ">>\n";
+  }
+
+  for(my $i = $#$p; $i > 2; $i--) {
+    # work backwards over the lines, except the first (#2)
+    
+    #next unless $p->[$i]   =~ m{^#:([ \^\/\%]*)\n?$}s
+    #        and $p->[$i-1] !~ m{^#:[ \^\/\%]*\n?$}s;
+     # look at a formatty line preceding a nonformatty one
+    DEBUG > 5 and print STDERR "Scrutinizing line $i: $$p[$i]\n";
+    if($p->[$i]   =~ m{^#:([ \^\/\%]*)\n?$}s) {
+      DEBUG > 5 and print STDERR "  It's a formatty line.  ",
+       "Peeking at previous line ", $i-1, ": $$p[$i-1]: \n";
+      
+      if( $p->[$i-1] =~ m{^#:[ \^\/\%]*\n?$}s ) {
+        DEBUG > 5 and print STDERR "  Previous line is formatty!  Skipping this one.\n";
+        next;
+      } else {
+        DEBUG > 5 and print STDERR "  Previous line is non-formatty!  Yay!\n";
+      }
+    } else {
+      DEBUG > 5 and print STDERR "  It's not a formatty line.  Ignoring\n";
+      next;
+    }
+
+    # A formatty line has to have #: in the first two columns, and uses
+    # "^" to mean bold, "/" to mean underline, and "%" to mean bold italic.
+    # Example:
+    #   What do you want?  i like pie. [or whatever]
+    # #:^^^^^^^^^^^^^^^^^              /////////////         
+    
+
+    DEBUG > 4 and print STDERR "_verbatim_format considers:\n<$p->[$i-1]>\n<$p->[$i]>\n";
+    
+    $formatting = '  ' . $1;
+    $formatting =~ s/\s+$//s; # nix trailing whitespace
+    unless(length $formatting and $p->[$i-1] =~ m/\S/) { # no-op
+      splice @$p,$i,1; # remove this line
+      $i--; # don't consider next line
+      next;
+    }
+
+    if( length($formatting) >= length($p->[$i-1]) ) {
+      $formatting = substr($formatting, 0, length($p->[$i-1]) - 1) . ' ';
+    } else {
+      $formatting .= ' ' x (length($p->[$i-1]) - length($formatting));
+    }
+    # Make $formatting and the previous line be exactly the same length,
+    # with $formatting having a " " as the last character.
+ 
+    DEBUG > 4 and print STDERR "Formatting <$formatting>    on <", $p->[$i-1], ">\n";
+
+
+    my @new_line;
+    while( $formatting =~ m{\G(( +)|(\^+)|(\/+)|(\%+))}g ) {
+      #print STDERR "Format matches $1\n";
+
+      if($2) {
+        #print STDERR "SKIPPING <$2>\n";
+        push @new_line,
+          substr($p->[$i-1], pos($formatting)-length($1), length($1));
+      } else {
+        #print STDERR "SNARING $+\n";
+        push @new_line, [
+          (
+            $3 ? 'VerbatimB'  :
+            $4 ? 'VerbatimI'  :
+            $5 ? 'VerbatimBI' : die("Should never get called")
+          ), {},
+          substr($p->[$i-1], pos($formatting)-length($1), length($1))
+        ];
+        #print STDERR "Formatting <$new_line[-1][-1]> as $new_line[-1][0]\n";
+      }
+    }
+    my @nixed =    
+      splice @$p, $i-1, 2, @new_line; # replace myself and the next line
+    DEBUG > 10 and print STDERR "Nixed count: ", scalar(@nixed), "\n";
+    
+    DEBUG > 6 and print STDERR "New version of the above line is these tokens (",
+      scalar(@new_line), "):",
+      map( ref($_)?"<@$_> ":"<$_>", @new_line ), "\n";
+    $i--; # So the next line we scrutinize is the line before the one
+          #  that we just went and formatted
+  }
+
+  $p->[0] = 'VerbatimFormatted';
+
+  # Collapse adjacent text nodes, just for kicks.
+  for( my $i = 2; $i > $#$p; $i++ ) { # work forwards over the tokens except for the last
+    if( !ref($p->[$i]) and !ref($p->[$i + 1]) ) {
+      DEBUG > 5 and print STDERR "_verbatim_format merges {$p->[$i]} and {$p->[$i+1]}\n";
+      $p->[$i] .= splice @$p, $i+1, 1; # merge
+      --$i;  # and back up
+    }
+  }
+
+  # Now look for the last text token, and remove the terminal newline
+  for( my $i = $#$p; $i >= 2; $i-- ) {
+    # work backwards over the tokens, even the first
+    if( !ref($p->[$i]) ) {
+      if($p->[$i] =~ s/\n$//s) {
+        DEBUG > 5 and print STDERR "_verbatim_format killed the terminal newline on #$i: {$p->[$i]}, after {$p->[$i-1]}\n";
+      } else {
+        DEBUG > 5 and print STDERR
+         "No terminal newline on #$i: {$p->[$i]}, after {$p->[$i-1]} !?\n";
+      }
+      last; # we only want the next one
+    }
+  }
+
+  return;
+}
+
+
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+
+
+sub _treelet_from_formatting_codes {
+  # Given a paragraph, returns a treelet.  Full of scary tokenizing code.
+  #  Like [ '~Top', {'start_line' => $start_line},
+  #            "I like ",
+  #            [ 'B', {}, "pie" ],
+  #            "!"
+  #       ]
+  
+  my($self, $para, $start_line, $preserve_space) = @_;
+  
+  my $treelet = ['~Top', {'start_line' => $start_line},];
+  
+  unless ($preserve_space || $self->{'preserve_whitespace'}) {
+    $para =~ s/\s+/ /g; # collapse and trim all whitespace first.
+    $para =~ s/ $//;
+    $para =~ s/^ //;
+  }
+  
+  # Only apparent problem the above code is that N<<  >> turns into
+  # N<< >>.  But then, word wrapping does that too!  So don't do that!
+  
+  my @stack;
+  my @lineage = ($treelet);
+  my $raw = ''; # raw content of L<> fcode before splitting/processing
+    # XXX 'raw' is not 100% accurate: all surrounding whitespace is condensed
+    # into just 1 ' '. Is this the regex's doing or 'raw's?
+  my $inL = 0;
+
+  DEBUG > 4 and print STDERR "Paragraph:\n$para\n\n";
+ 
+  # Here begins our frightening tokenizer RE.  The following regex matches
+  # text in four main parts:
+  #
+  #  * Start-codes.  The first alternative matches C< or C<<, the latter
+  #    followed by some whitespace.  $1 will hold the entire start code
+  #    (including any space following a multiple-angle-bracket delimiter),
+  #    and $2 will hold only the additional brackets past the first in a
+  #    multiple-bracket delimiter.  length($2) + 1 will be the number of
+  #    closing brackets we have to find.
+  #
+  #  * Closing brackets.  Match some amount of whitespace followed by
+  #    multiple close brackets.  The logic to see if this closes anything
+  #    is down below.  Note that in order to parse C<<  >> correctly, we
+  #    have to use look-behind (?<=\s\s), since the match of the starting
+  #    code will have consumed the whitespace.
+  #
+  #  * A single closing bracket, to close a simple code like C<>.
+  #
+  #  * Something that isn't a start or end code.  We have to be careful
+  #    about accepting whitespace, since perlpodspec says that any whitespace
+  #    before a multiple-bracket closing delimiter should be ignored.
+  #
+  while($para =~
+    m/\G
+      (?:
+        # Match starting codes, including the whitespace following a
+        # multiple-delimiter start code.  $1 gets the whole start code and
+        # $2 gets all but one of the <s in the multiple-bracket case.
+        ([A-Z]<(?:(<+)\s+)?)
+        |
+        # Match multiple-bracket end codes.  $3 gets the whitespace that
+        # should be discarded before an end bracket but kept in other cases
+        # and $4 gets the end brackets themselves.
+        (\s+|(?<=\s\s))(>{2,})
+        |
+        (\s?>)          # $5: simple end-codes
+        |
+        (               # $6: stuff containing no start-codes or end-codes
+          (?:
+            [^A-Z\s>]
+            |
+            (?:
+              [A-Z](?!<)
+            )
+            |
+            # whitespace is ok, but we don't want to eat the whitespace before
+            # a multiple-bracket end code.
+            # NOTE: we may still have problems with e.g. S<<    >>
+            (?:
+              \s(?!\s*>{2,})
+            )
+          )+
+        )
+      )
+    /xgo
+  ) {
+    DEBUG > 4 and print STDERR "\nParagraphic tokenstack = (@stack)\n";
+    if(defined $1) {
+      if(defined $2) {
+        DEBUG > 3 and print STDERR "Found complex start-text code \"$1\"\n";
+        push @stack, length($2) + 1; 
+          # length of the necessary complex end-code string
+      } else {
+        DEBUG > 3 and print STDERR "Found simple start-text code \"$1\"\n";
+        push @stack, 0;  # signal that we're looking for simple
+      }
+      push @lineage, [ substr($1,0,1), {}, ];  # new node object
+      push @{ $lineage[-2] }, $lineage[-1];
+      if ('L' eq substr($1,0,1)) {
+        $raw = $inL ? $raw.$1 : ''; # reset raw content accumulator
+        $inL = 1;
+      } else {
+        $raw .= $1 if $inL;
+      }
+
+    } elsif(defined $4) {
+      DEBUG > 3 and print STDERR "Found apparent complex end-text code \"$3$4\"\n";
+      # This is where it gets messy...
+      if(! @stack) {
+        # We saw " >>>>" but needed nothing.  This is ALL just stuff then.
+        DEBUG > 4 and print STDERR " But it's really just stuff.\n";
+        push @{ $lineage[-1] }, $3, $4;
+        next;
+      } elsif(!$stack[-1]) {
+        # We saw " >>>>" but needed only ">".  Back pos up.
+        DEBUG > 4 and print STDERR " And that's more than we needed to close simple.\n";
+        push @{ $lineage[-1] }, $3; # That was a for-real space, too.
+        pos($para) = pos($para) - length($4) + 1;
+      } elsif($stack[-1] == length($4)) {
+        # We found " >>>>", and it was exactly what we needed.  Commonest case.
+        DEBUG > 4 and print STDERR " And that's exactly what we needed to close complex.\n";
+      } elsif($stack[-1] < length($4)) {
+        # We saw " >>>>" but needed only " >>".  Back pos up.
+        DEBUG > 4 and print STDERR " And that's more than we needed to close complex.\n";
+        pos($para) = pos($para) - length($4) + $stack[-1];
+      } else {
+        # We saw " >>>>" but needed " >>>>>>".  So this is all just stuff!
+        DEBUG > 4 and print STDERR " But it's really just stuff, because we needed more.\n";
+        push @{ $lineage[-1] }, $3, $4;
+        next;
+      }
+      #print STDERR "\nHOOBOY ", scalar(@{$lineage[-1]}), "!!!\n";
+
+      push @{ $lineage[-1] }, '' if 2 == @{ $lineage[-1] };
+      # Keep the element from being childless
+      
+      pop @stack;
+      pop @lineage;
+
+      unless (@stack) { # not in an L if there are no open fcodes
+        $inL = 0;
+        if (ref $lineage[-1][-1] && $lineage[-1][-1][0] eq 'L') {
+          $lineage[-1][-1][1]{'raw'} = $raw
+        }
+      }
+      $raw .= $3.$4 if $inL;
+      
+    } elsif(defined $5) {
+      DEBUG > 3 and print STDERR "Found apparent simple end-text code \"$5\"\n";
+
+      if(@stack and ! $stack[-1]) {
+        # We're indeed expecting a simple end-code
+        DEBUG > 4 and print STDERR " It's indeed an end-code.\n";
+
+        if(length($5) == 2) { # There was a space there: " >"
+          push @{ $lineage[-1] }, ' ';
+        } elsif( 2 == @{ $lineage[-1] } ) { # Closing a childless element
+          push @{ $lineage[-1] }, ''; # keep it from being really childless
+        }
+
+        pop @stack;
+        pop @lineage;
+      } else {
+        DEBUG > 4 and print STDERR " It's just stuff.\n";
+        push @{ $lineage[-1] }, $5;
+      }
+
+      unless (@stack) { # not in an L if there are no open fcodes
+        $inL = 0;
+        if (ref $lineage[-1][-1] && $lineage[-1][-1][0] eq 'L') {
+          $lineage[-1][-1][1]{'raw'} = $raw
+        }
+      }
+      $raw .= $5 if $inL;
+
+    } elsif(defined $6) {
+      DEBUG > 3 and print STDERR "Found stuff \"$6\"\n";
+      push @{ $lineage[-1] }, $6;
+      $raw .= $6 if $inL;
+        # XXX does not capture multiplace whitespaces -- 'raw' ends up with
+        #     at most 1 leading/trailing whitespace, why not all of it?
+
+    } else {
+      # should never ever ever ever happen
+      DEBUG and print STDERR "AYYAYAAAAA at line ", __LINE__, "\n";
+      die "SPORK 512512!";
+    }
+  }
+
+  if(@stack) { # Uhoh, some sequences weren't closed.
+    my $x= "...";
+    while(@stack) {
+      push @{ $lineage[-1] }, '' if 2 == @{ $lineage[-1] };
+      # Hmmmmm!
+
+      my $code         = (pop @lineage)->[0];
+      my $ender_length =  pop @stack;
+      if($ender_length) {
+        --$ender_length;
+        $x = $code . ("<" x $ender_length) . " $x " . (">" x $ender_length);
+      } else {
+        $x = $code . "<$x>";
+      }
+    }
+    DEBUG > 1 and print STDERR "Unterminated $x sequence\n";
+    $self->whine($start_line,
+      "Unterminated $x sequence",
+    );
+  }
+
+  return $treelet;
+}
+
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+
+sub text_content_of_treelet {  # method: $parser->text_content_of_treelet($lol)
+  return stringify_lol($_[1]);
+}
+
+sub stringify_lol {  # function: stringify_lol($lol)
+  my $string_form = '';
+  _stringify_lol( $_[0] => \$string_form );
+  return $string_form;
+}
+
+sub _stringify_lol {  # the real recursor
+  my($lol, $to) = @_;
+  for(my $i = 2; $i < @$lol; ++$i) {
+    if( ref($lol->[$i] || '') and UNIVERSAL::isa($lol->[$i], 'ARRAY') ) {
+      _stringify_lol( $lol->[$i], $to);  # recurse!
+    } else {
+      $$to .= $lol->[$i];
+    }
+  }
+  return;
+}
+
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+
+sub _dump_curr_open { # return a string representation of the stack
+  my $curr_open = $_[0]{'curr_open'};
+
+  return '[empty]' unless @$curr_open;
+  return join '; ',
+    map {;
+           ($_->[0] eq '=for')
+             ? ( ($_->[1]{'~really'} || '=over')
+               . ' ' . $_->[1]{'target'})
+             : $_->[0]
+        }
+    @$curr_open
+  ;
+}
+
+###########################################################################
+my %pretty_form = (
+  "\a" => '\a', # ding!
+  "\b" => '\b', # BS
+  "\e" => '\e', # ESC
+  "\f" => '\f', # FF
+  "\t" => '\t', # tab
+  "\cm" => '\cm',
+  "\cj" => '\cj',
+  "\n" => '\n', # probably overrides one of either \cm or \cj
+  '"' => '\"',
+  '\\' => '\\\\',
+  '$' => '\\$',
+  '@' => '\\@',
+  '%' => '\\%',
+  '#' => '\\#',
+);
+
+sub pretty { # adopted from Class::Classless
+  # Not the most brilliant routine, but passable.
+  # Don't give it a cyclic data structure!
+  my @stuff = @_; # copy
+  my $x;
+  my $out =
+    # join ",\n" .
+    join ", ",
+    map {;
+    if(!defined($_)) {
+      "undef";
+    } elsif(ref($_) eq 'ARRAY' or ref($_) eq 'Pod::Simple::LinkSection') {
+      $x = "[ " . pretty(@$_) . " ]" ;
+      $x;
+    } elsif(ref($_) eq 'SCALAR') {
+      $x = "\\" . pretty($$_) ;
+      $x;
+    } elsif(ref($_) eq 'HASH') {
+      my $hr = $_;
+      $x = "{" . join(", ",
+        map(pretty($_) . '=>' . pretty($hr->{$_}),
+            sort keys %$hr ) ) . "}" ;
+      $x;
+    } elsif(!length($_)) { q{''} # empty string
+    } elsif(
+      $_ eq '0' # very common case
+      or(
+         m/^-?(?:[123456789]\d*|0)(?:\.\d+)?$/s
+         and $_ ne '-0' # the strange case that RE lets thru
+      )
+    ) { $_;
+    } else {
+        # Yes, explicitly name every character desired. There are shorcuts one
+        # could make, but I (Karl Williamson) was afraid that some Perl
+        # releases would have bugs in some of them. For example [A-Z] works
+        # even on EBCDIC platforms to match exactly the 26 uppercase English
+        # letters, but I don't know if it has always worked without bugs. It
+        # seemed safest just to list the characters.
+        # s<([^\x20\x21\x23\x27-\x3F\x41-\x5B\x5D-\x7E])>
+        s<([^ !#'()*+,\-./0123456789:;\<=\>?ABCDEFGHIJKLMNOPQRSTUVWXYZ\[\]^_`abcdefghijklmnopqrstuvwxyz{|}~])>
+         <$pretty_form{$1} || '\\x{'.sprintf("%x", ord($1)).'}'>eg;
+         #<$pretty_form{$1} || '\\x'.(unpack("H2",$1))>eg;
+      qq{"$_"};
+    }
+  } @stuff;
+  # $out =~ s/\n */ /g if length($out) < 75;
+  return $out;
+}
+
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+
+# A rather unsubtle method of blowing away all the state information
+# from a parser object so it can be reused. Provided as a utility for
+# backward compatibility in Pod::Man, etc. but not recommended for
+# general use.
+
+sub reinit {
+  my $self = shift;
+  foreach (qw(source_dead source_filename doc_has_started
+start_of_pod_block content_seen last_was_blank paras curr_open
+line_count pod_para_count in_pod ~tried_gen_errata all_errata errata errors_seen
+Title)) {
+
+    delete $self->{$_};
+  }
+}
+
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+1;
+
diff --git a/lib/5.24.1/Pod/Simple/Checker.pm b/lib/5.24.1/Pod/Simple/Checker.pm
new file mode 100644
index 00000000..a32d8b81
--- /dev/null
+++ b/lib/5.24.1/Pod/Simple/Checker.pm
@@ -0,0 +1,194 @@
+
+# A quite dimwitted pod2plaintext that need only know how to format whatever
+# text comes out of Pod::BlackBox's _gen_errata
+
+require 5;
+package Pod::Simple::Checker;
+use strict;
+use Carp ();
+use Pod::Simple::Methody ();
+use Pod::Simple ();
+use vars qw( @ISA $VERSION );
+$VERSION = '3.32';
+@ISA = ('Pod::Simple::Methody');
+BEGIN { *DEBUG = defined(&Pod::Simple::DEBUG)
+          ? \&Pod::Simple::DEBUG
+          : sub() {0}
+      }
+
+use Text::Wrap 98.112902 (); # was 2001.0131, but I don't think we need that
+$Text::Wrap::wrap = 'overflow';
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+sub any_errata_seen {  # read-only accessor
+  return $_[1]->{'Errata_seen'};
+}
+
+sub new {
+  my $self = shift;
+  my $new = $self->SUPER::new(@_);
+  $new->{'output_fh'} ||= *STDOUT{IO};
+  $new->nix_X_codes(1);
+  $new->nbsp_for_S(1);
+  $new->{'Thispara'} = '';
+  $new->{'Indent'} = 0;
+  $new->{'Indentstring'} = '   ';
+  $new->{'Errata_seen'} = 0;
+  return $new;
+}
+
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+sub handle_text {  $_[0]{'Errata_seen'} and $_[0]{'Thispara'} .= $_[1] }
+
+sub start_Para  {  $_[0]{'Thispara'} = '' }
+
+sub start_head1 {
+  if($_[0]{'Errata_seen'}) {
+    $_[0]{'Thispara'} = '';
+  } else {
+    if($_[1]{'errata'}) { # start of errata!
+      $_[0]{'Errata_seen'} = 1;
+      $_[0]{'Thispara'} = $_[0]{'source_filename'} ?
+        "$_[0]{'source_filename'} -- " : ''
+    }
+  }
+}
+sub start_head2 {  $_[0]{'Thispara'} = '' }
+sub start_head3 {  $_[0]{'Thispara'} = '' }
+sub start_head4 {  $_[0]{'Thispara'} = '' }
+
+sub start_Verbatim    { $_[0]{'Thispara'} = ''   }
+sub start_item_bullet { $_[0]{'Thispara'} = '* ' }
+sub start_item_number { $_[0]{'Thispara'} = "$_[1]{'number'}. "  }
+sub start_item_text   { $_[0]{'Thispara'} = ''   }
+
+sub start_over_bullet  { ++$_[0]{'Indent'} }
+sub start_over_number  { ++$_[0]{'Indent'} }
+sub start_over_text    { ++$_[0]{'Indent'} }
+sub start_over_block   { ++$_[0]{'Indent'} }
+
+sub   end_over_bullet  { --$_[0]{'Indent'} }
+sub   end_over_number  { --$_[0]{'Indent'} }
+sub   end_over_text    { --$_[0]{'Indent'} }
+sub   end_over_block   { --$_[0]{'Indent'} }
+
+
+# . . . . . Now the actual formatters:
+
+sub end_head1       { $_[0]->emit_par(-4) }
+sub end_head2       { $_[0]->emit_par(-3) }
+sub end_head3       { $_[0]->emit_par(-2) }
+sub end_head4       { $_[0]->emit_par(-1) }
+sub end_Para        { $_[0]->emit_par( 0) }
+sub end_item_bullet { $_[0]->emit_par( 0) }
+sub end_item_number { $_[0]->emit_par( 0) }
+sub end_item_text   { $_[0]->emit_par(-2) }
+
+sub emit_par {
+  return unless $_[0]{'Errata_seen'};
+  my($self, $tweak_indent) = splice(@_,0,2);
+  my $indent = ' ' x ( 2 * $self->{'Indent'} + ($tweak_indent||0) );
+   # Yes, 'STRING' x NEGATIVE gives '', same as 'STRING' x 0
+
+  $self->{'Thispara'} =~ s/$Pod::Simple::shy//g;
+  my $out = Text::Wrap::wrap($indent, $indent, $self->{'Thispara'} .= "\n");
+  $out =~ s/$Pod::Simple::nbsp/ /g;
+  print {$self->{'output_fh'}} $out,
+    #"\n"
+  ;
+  $self->{'Thispara'} = '';
+  
+  return;
+}
+
+# . . . . . . . . . . And then off by its lonesome:
+
+sub end_Verbatim  {
+  return unless $_[0]{'Errata_seen'};
+  my $self = shift;
+  $self->{'Thispara'} =~ s/$Pod::Simple::nbsp/ /g;
+  $self->{'Thispara'} =~ s/$Pod::Simple::shy//g;
+
+  my $i = ' ' x ( 2 * $self->{'Indent'} + 4);
+  
+  $self->{'Thispara'} =~ s/^/$i/mg;
+  
+  print { $self->{'output_fh'} }   '', 
+    $self->{'Thispara'},
+    "\n\n"
+  ;
+  $self->{'Thispara'} = '';
+  return;
+}
+
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+1;
+
+__END__
+
+=head1 NAME
+
+Pod::Simple::Checker -- check the Pod syntax of a document
+
+=head1 SYNOPSIS
+
+  perl -MPod::Simple::Checker -e \
+   "exit Pod::Simple::Checker->filter(shift)->any_errata_seen" \
+   thingy.pod
+
+=head1 DESCRIPTION
+
+This class is for checking the syntactic validity of Pod.
+It works by basically acting like a simple-minded version of
+L<Pod::Simple::Text> that formats only the "Pod Errors" section
+(if Pod::Simple even generates one for the given document).
+
+This is a subclass of L<Pod::Simple> and inherits all its methods.
+
+=head1 SEE ALSO
+
+L<Pod::Simple>, L<Pod::Simple::Text>, L<Pod::Checker>
+
+=head1 SUPPORT
+
+Questions or discussion about POD and Pod::Simple should be sent to the
+pod-people@perl.org mail list. Send an empty email to
+pod-people-subscribe@perl.org to subscribe.
+
+This module is managed in an open GitHub repository,
+L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or
+to clone L<git://github.com/perl-pod/pod-simple.git> and send patches!
+
+Patches against Pod::Simple are welcome. Please send bug reports to
+<bug-pod-simple@rt.cpan.org>.
+
+=head1 COPYRIGHT AND DISCLAIMERS
+
+Copyright (c) 2002 Sean M. Burke.
+
+This library is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+This program is distributed in the hope that it will be useful, but
+without any warranty; without even the implied warranty of
+merchantability or fitness for a particular purpose.
+
+=head1 AUTHOR
+
+Pod::Simple was created by Sean M. Burke <sburke@cpan.org>.
+But don't bother him, he's retired.
+
+Pod::Simple is maintained by:
+
+=over
+
+=item * Allison Randal C<allison@perl.org>
+
+=item * Hans Dieter Pearcey C<hdp@cpan.org>
+
+=item * David E. Wheeler C<dwheeler@cpan.org>
+
+=back
+
+=cut
diff --git a/lib/5.24.1/Pod/Simple/Debug.pm b/lib/5.24.1/Pod/Simple/Debug.pm
new file mode 100644
index 00000000..603d4a5b
--- /dev/null
+++ b/lib/5.24.1/Pod/Simple/Debug.pm
@@ -0,0 +1,177 @@
+require 5;
+package Pod::Simple::Debug;
+use strict;
+use vars qw($VERSION );
+$VERSION = '3.32';
+
+sub import {
+  my($value,$variable);
+  
+  if(@_ == 2) {
+    $value = $_[1];
+  } elsif(@_ == 3) {
+    ($variable, $value) = @_[1,2];
+    
+    ($variable, $value) = ($value, $variable)
+       if     defined $value    and ref($value)    eq 'SCALAR'
+      and not(defined $variable and ref($variable) eq 'SCALAR')
+    ; # tolerate getting it backwards
+    
+    unless( defined $variable and ref($variable) eq 'SCALAR') {
+      require Carp;
+      Carp::croak("Usage:\n use Pod::Simple::Debug (NUMVAL)\nor"
+                . "\n use Pod::Simple::Debug (\\\$var, STARTNUMVAL)\nAborting");
+    }
+  } else {
+    require Carp;
+    Carp::croak("Usage:\n use Pod::Simple::Debug (NUMVAL)\nor"
+                    . "\n use Pod::Simple::Debug (\\\$var, STARTNUMVAL)\nAborting");
+  }
+
+  if( defined &Pod::Simple::DEBUG ) {
+    require Carp;
+    Carp::croak("It's too late to call Pod::Simple::Debug -- "
+              . "Pod::Simple has already loaded\nAborting");
+  }
+  
+  $value = 0 unless defined $value;
+
+  unless($value =~ m/^-?\d+$/) {
+    require Carp;
+    Carp::croak( "$value isn't a numeric value."
+            . "\nUsage:\n use Pod::Simple::Debug (NUMVAL)\nor"
+                    . "\n use Pod::Simple::Debug (\\\$var, STARTNUMVAL)\nAborting");
+  }
+
+  if( defined $variable ) {
+    # make a not-really-constant
+    *Pod::Simple::DEBUG = sub () { $$variable } ;
+    $$variable = $value;
+    print STDERR "# Starting Pod::Simple::DEBUG = non-constant $variable with val $value\n";
+  } else {
+    *Pod::Simple::DEBUG = eval " sub () { $value } ";
+    print STDERR "# Starting Pod::Simple::DEBUG = $value\n";
+  }
+  
+  require Pod::Simple;
+  return;
+}
+
+1;
+
+
+__END__
+
+=head1 NAME
+
+Pod::Simple::Debug -- put Pod::Simple into trace/debug mode
+
+=head1 SYNOPSIS
+
+ use Pod::Simple::Debug (5);  # or some integer
+
+Or:
+
+ my $debuglevel;
+ use Pod::Simple::Debug (\$debuglevel, 0);
+ ...some stuff that uses Pod::Simple to do stuff, but which
+  you don't want debug output from...
+
+ $debug_level = 4;
+ ...some stuff that uses Pod::Simple to do stuff, but which
+  you DO want debug output from...
+
+ $debug_level = 0;
+
+=head1 DESCRIPTION
+
+This is an internal module for controlling the debug level (a.k.a. trace
+level) of Pod::Simple.  This is of interest only to Pod::Simple
+developers.
+
+
+=head1 CAVEATS
+
+Note that you should load this module I<before> loading Pod::Simple (or
+any Pod::Simple-based class).  If you try loading Pod::Simple::Debug
+after &Pod::Simple::DEBUG is already defined, Pod::Simple::Debug will
+throw a fatal error to the effect that
+"It's too late to call Pod::Simple::Debug".
+
+Note that the C<use Pod::Simple::Debug (\$x, I<somenum>)> mode will make
+Pod::Simple (et al) run rather slower, since &Pod::Simple::DEBUG won't
+be a constant sub anymore, and so Pod::Simple (et al) won't compile with
+constant-folding.
+
+
+=head1 GUTS
+
+Doing this:
+
+  use Pod::Simple::Debug (5);  # or some integer
+
+is basically equivalent to:
+
+  BEGIN { sub Pod::Simple::DEBUG () {5} }  # or some integer
+  use Pod::Simple ();
+
+And this:
+
+  use Pod::Simple::Debug (\$debug_level,0);  # or some integer
+
+is basically equivalent to this:
+
+  my $debug_level;
+  BEGIN { $debug_level = 0 }
+  BEGIN { sub Pod::Simple::DEBUG () { $debug_level }
+  use Pod::Simple ();
+
+=head1 SEE ALSO
+
+L<Pod::Simple>
+
+The article "Constants in Perl", in I<The Perl Journal> issue
+21.  See L<http://interglacial.com/tpj/21/>
+
+=head1 SUPPORT
+
+Questions or discussion about POD and Pod::Simple should be sent to the
+pod-people@perl.org mail list. Send an empty email to
+pod-people-subscribe@perl.org to subscribe.
+
+This module is managed in an open GitHub repository,
+L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or
+to clone L<git://github.com/perl-pod/pod-simple.git> and send patches!
+
+Patches against Pod::Simple are welcome. Please send bug reports to
+<bug-pod-simple@rt.cpan.org>.
+
+=head1 COPYRIGHT AND DISCLAIMERS
+
+Copyright (c) 2002 Sean M. Burke.
+
+This library is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+This program is distributed in the hope that it will be useful, but
+without any warranty; without even the implied warranty of
+merchantability or fitness for a particular purpose.
+
+=head1 AUTHOR
+
+Pod::Simple was created by Sean M. Burke <sburke@cpan.org>.
+But don't bother him, he's retired.
+
+Pod::Simple is maintained by:
+
+=over
+
+=item * Allison Randal C<allison@perl.org>
+
+=item * Hans Dieter Pearcey C<hdp@cpan.org>
+
+=item * David E. Wheeler C<dwheeler@cpan.org>
+
+=back
+
+=cut
diff --git a/lib/5.24.1/Pod/Simple/DumpAsText.pm b/lib/5.24.1/Pod/Simple/DumpAsText.pm
new file mode 100644
index 00000000..a2325626
--- /dev/null
+++ b/lib/5.24.1/Pod/Simple/DumpAsText.pm
@@ -0,0 +1,156 @@
+
+require 5;
+package Pod::Simple::DumpAsText;
+$VERSION = '3.32';
+use Pod::Simple ();
+BEGIN {@ISA = ('Pod::Simple')}
+
+use strict;
+
+use Carp ();
+
+BEGIN { *DEBUG = \&Pod::Simple::DEBUG unless defined &DEBUG }
+
+sub new {
+  my $self = shift;
+  my $new = $self->SUPER::new(@_);
+  $new->{'output_fh'} ||= *STDOUT{IO};
+  $new->accept_codes('VerbatimFormatted');
+  $new->keep_encoding_directive(1);
+  return $new;
+}
+
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+
+sub _handle_element_start {
+  # ($self, $element_name, $attr_hash_r)
+  my $fh = $_[0]{'output_fh'};
+  my($key, $value);
+  DEBUG and print STDERR "++ $_[1]\n";
+  
+  print $fh   '  ' x ($_[0]{'indent'} || 0),  "++", $_[1], "\n";
+  $_[0]{'indent'}++;
+  while(($key,$value) = each %{$_[2]}) {
+    unless($key =~ m/^~/s) {
+      next if $key eq 'start_line' and $_[0]{'hide_line_numbers'};
+      _perly_escape($key);
+      _perly_escape($value);
+      printf $fh qq{%s \\ "%s" => "%s"\n},
+        '  ' x ($_[0]{'indent'} || 0), $key, $value;
+    }
+  }
+  return;
+}
+
+sub _handle_text {
+  DEBUG and print STDERR "== \"$_[1]\"\n";
+  
+  if(length $_[1]) {
+    my $indent = '  ' x $_[0]{'indent'};
+    my $text = $_[1];
+    _perly_escape($text);
+    $text =~  # A not-totally-brilliant wrapping algorithm:
+      s/(
+         [^\n]{55}         # Snare some characters from a line
+         [^\n\ ]{0,50}     #  and finish any current word
+        )
+        \ {1,10}(?!\n)     # capture some spaces not at line-end
+       /$1"\n$indent . "/gx     # => line-break here
+    ;
+    
+    print {$_[0]{'output_fh'}} $indent, '* "', $text, "\"\n";
+  }
+  return;
+}
+
+sub _handle_element_end {
+  DEBUG and print STDERR "-- $_[1]\n";
+  print {$_[0]{'output_fh'}}
+   '  ' x --$_[0]{'indent'}, "--", $_[1], "\n";
+  return;
+}
+
+# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
+
+sub _perly_escape {
+  foreach my $x (@_) {
+    $x =~ s/([^\x00-\xFF])/sprintf'\x{%X}',ord($1)/eg;
+    # Escape things very cautiously:
+    $x =~ s/([^-\n\t \&\<\>\'!\#\%\(\)\*\+,\.\/\:\;=\?\~\[\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/sprintf'\x%02X',ord($1)/eg;
+  }
+  return;
+}
+
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+1;
+
+
+__END__
+
+=head1 NAME
+
+Pod::Simple::DumpAsText -- dump Pod-parsing events as text
+
+=head1 SYNOPSIS
+
+  perl -MPod::Simple::DumpAsText -e \
+   "exit Pod::Simple::DumpAsText->filter(shift)->any_errata_seen" \
+   thingy.pod
+
+=head1 DESCRIPTION
+
+This class is for dumping, as text, the events gotten from parsing a Pod
+document.  This class is of interest to people writing Pod formatters
+based on Pod::Simple. It is useful for seeing exactly what events you
+get out of some Pod that you feed in.
+
+This is a subclass of L<Pod::Simple> and inherits all its methods.
+
+=head1 SEE ALSO
+
+L<Pod::Simple::DumpAsXML>
+
+L<Pod::Simple>
+
+=head1 SUPPORT
+
+Questions or discussion about POD and Pod::Simple should be sent to the
+pod-people@perl.org mail list. Send an empty email to
+pod-people-subscribe@perl.org to subscribe.
+
+This module is managed in an open GitHub repository,
+L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or
+to clone L<git://github.com/perl-pod/pod-simple.git> and send patches!
+
+Patches against Pod::Simple are welcome. Please send bug reports to
+<bug-pod-simple@rt.cpan.org>.
+
+=head1 COPYRIGHT AND DISCLAIMERS
+
+Copyright (c) 2002 Sean M. Burke.
+
+This library is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+This program is distributed in the hope that it will be useful, but
+without any warranty; without even the implied warranty of
+merchantability or fitness for a particular purpose.
+
+=head1 AUTHOR
+
+Pod::Simple was created by Sean M. Burke <sburke@cpan.org>.
+But don't bother him, he's retired.
+
+Pod::Simple is maintained by:
+
+=over
+
+=item * Allison Randal C<allison@perl.org>
+
+=item * Hans Dieter Pearcey C<hdp@cpan.org>
+
+=item * David E. Wheeler C<dwheeler@cpan.org>
+
+=back
+
+=cut
diff --git a/lib/5.24.1/Pod/Simple/DumpAsXML.pm b/lib/5.24.1/Pod/Simple/DumpAsXML.pm
new file mode 100644
index 00000000..bd391985
--- /dev/null
+++ b/lib/5.24.1/Pod/Simple/DumpAsXML.pm
@@ -0,0 +1,167 @@
+
+require 5;
+package Pod::Simple::DumpAsXML;
+$VERSION = '3.32';
+use Pod::Simple ();
+BEGIN {@ISA = ('Pod::Simple')}
+
+use strict;
+
+use Carp ();
+use Text::Wrap qw(wrap);
+
+BEGIN { *DEBUG = \&Pod::Simple::DEBUG unless defined &DEBUG }
+
+sub new {
+  my $self = shift;
+  my $new = $self->SUPER::new(@_);
+  $new->{'output_fh'} ||= *STDOUT{IO};
+  $new->accept_codes('VerbatimFormatted');
+  $new->keep_encoding_directive(1);
+  return $new;
+}
+
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+
+sub _handle_element_start {
+  # ($self, $element_name, $attr_hash_r)
+  my $fh = $_[0]{'output_fh'};
+  my($key, $value);
+  DEBUG and print STDERR "++ $_[1]\n";
+  
+  print $fh   '  ' x ($_[0]{'indent'} || 0),  "<", $_[1];
+
+  foreach my $key (sort keys %{$_[2]}) {
+    unless($key =~ m/^~/s) {
+      next if $key eq 'start_line' and $_[0]{'hide_line_numbers'};
+      _xml_escape($value = $_[2]{$key});
+      print $fh ' ', $key, '="', $value, '"';
+    }
+  }
+
+
+  print $fh ">\n";
+  $_[0]{'indent'}++;
+  return;
+}
+
+sub _handle_text {
+  DEBUG and print STDERR "== \"$_[1]\"\n";
+  if(length $_[1]) {
+    my $indent = '  ' x $_[0]{'indent'};
+    my $text = $_[1];
+    _xml_escape($text);
+    local $Text::Wrap::huge = 'overflow';
+    $text = wrap('', $indent, $text);
+    print {$_[0]{'output_fh'}} $indent, $text, "\n";
+  }
+  return;
+}
+
+sub _handle_element_end {
+  DEBUG and print STDERR "-- $_[1]\n";
+  print {$_[0]{'output_fh'}}
+   '  ' x --$_[0]{'indent'}, "</", $_[1], ">\n";
+  return;
+}
+
+# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
+
+sub _xml_escape {
+  foreach my $x (@_) {
+    # Escape things very cautiously:
+    if ($] ge 5.007_003) {
+      $x =~ s/([^-\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(utf8::native_to_unicode(ord($1))).';'/eg;
+    } else { # Is broken for non-ASCII platforms on early perls
+      $x =~ s/([^-\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
+    }
+    # Yes, stipulate the list without a range, so that this can work right on
+    #  all charsets that this module happens to run under.
+  }
+  return;
+}
+
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+1;
+
+__END__
+
+=head1 NAME
+
+Pod::Simple::DumpAsXML -- turn Pod into XML
+
+=head1 SYNOPSIS
+
+  perl -MPod::Simple::DumpAsXML -e \
+   "exit Pod::Simple::DumpAsXML->filter(shift)->any_errata_seen" \
+   thingy.pod
+
+=head1 DESCRIPTION
+
+Pod::Simple::DumpAsXML is a subclass of L<Pod::Simple> that parses Pod
+and turns it into indented and wrapped XML.  This class is of
+interest to people writing Pod formatters based on Pod::Simple.
+
+Pod::Simple::DumpAsXML inherits methods from
+L<Pod::Simple>.
+
+
+=head1 SEE ALSO
+
+L<Pod::Simple::XMLOutStream> is rather like this class.
+Pod::Simple::XMLOutStream's output is space-padded in a way
+that's better for sending to an XML processor (that is, it has
+no ignorable whitespace). But
+Pod::Simple::DumpAsXML's output is much more human-readable, being
+(more-or-less) one token per line, with line-wrapping.
+
+L<Pod::Simple::DumpAsText> is rather like this class,
+except that it doesn't dump with XML syntax.  Try them and see
+which one you like best!
+
+L<Pod::Simple>, L<Pod::Simple::DumpAsXML>
+
+The older libraries L<Pod::PXML>, L<Pod::XML>, L<Pod::SAX>
+
+=head1 SUPPORT
+
+Questions or discussion about POD and Pod::Simple should be sent to the
+pod-people@perl.org mail list. Send an empty email to
+pod-people-subscribe@perl.org to subscribe.
+
+This module is managed in an open GitHub repository,
+L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or
+to clone L<git://github.com/perl-pod/pod-simple.git> and send patches!
+
+Patches against Pod::Simple are welcome. Please send bug reports to
+<bug-pod-simple@rt.cpan.org>.
+
+=head1 COPYRIGHT AND DISCLAIMERS
+
+Copyright (c) 2002 Sean M. Burke.
+
+This library is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+This program is distributed in the hope that it will be useful, but
+without any warranty; without even the implied warranty of
+merchantability or fitness for a particular purpose.
+
+=head1 AUTHOR
+
+Pod::Simple was created by Sean M. Burke <sburke@cpan.org>.
+But don't bother him, he's retired.
+
+Pod::Simple is maintained by:
+
+=over
+
+=item * Allison Randal C<allison@perl.org>
+
+=item * Hans Dieter Pearcey C<hdp@cpan.org>
+
+=item * David E. Wheeler C<dwheeler@cpan.org>
+
+=back
+
+=cut
diff --git a/lib/5.24.1/Pod/Simple/HTML.pm b/lib/5.24.1/Pod/Simple/HTML.pm
new file mode 100644
index 00000000..9d8f978e
--- /dev/null
+++ b/lib/5.24.1/Pod/Simple/HTML.pm
@@ -0,0 +1,1157 @@
+require 5;
+package Pod::Simple::HTML;
+use strict;
+use Pod::Simple::PullParser ();
+use vars qw(
+  @ISA %Tagmap $Computerese $LamePad $Linearization_Limit $VERSION
+  $Perldoc_URL_Prefix $Perldoc_URL_Postfix $Man_URL_Prefix $Man_URL_Postfix
+  $Title_Prefix $Title_Postfix $HTML_EXTENSION %ToIndex
+  $Doctype_decl  $Content_decl
+);
+@ISA = ('Pod::Simple::PullParser');
+$VERSION = '3.32';
+BEGIN {
+  if(defined &DEBUG) { } # no-op
+  elsif( defined &Pod::Simple::DEBUG ) { *DEBUG = \&Pod::Simple::DEBUG }
+  else { *DEBUG = sub () {0}; }
+}
+
+$Doctype_decl ||= '';  # No.  Just No.  Don't even ask me for it.
+ # qq{<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
+ #    "http://www.w3.org/TR/html4/loose.dtd">\n};
+
+$Content_decl ||=
+ q{<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1" >};
+
+$HTML_EXTENSION = '.html' unless defined $HTML_EXTENSION;
+$Computerese =  "" unless defined $Computerese;
+$LamePad = '' unless defined $LamePad;
+
+$Linearization_Limit = 120 unless defined $Linearization_Limit;
+ # headings/items longer than that won't get an <a name="...">
+$Perldoc_URL_Prefix  = 'http://search.cpan.org/perldoc?'
+ unless defined $Perldoc_URL_Prefix;
+$Perldoc_URL_Postfix = ''
+ unless defined $Perldoc_URL_Postfix;
+
+
+$Man_URL_Prefix  = 'http://man.he.net/man';
+$Man_URL_Postfix = '';
+
+$Title_Prefix  = '' unless defined $Title_Prefix;
+$Title_Postfix = '' unless defined $Title_Postfix;
+%ToIndex = map {; $_ => 1 } qw(head1 head2 head3 head4 ); # item-text
+  # 'item-text' stuff in the index doesn't quite work, and may
+  # not be a good idea anyhow.
+
+
+__PACKAGE__->_accessorize(
+ 'perldoc_url_prefix',
+   # In turning L<Foo::Bar> into http://whatever/Foo%3a%3aBar, what
+   #  to put before the "Foo%3a%3aBar".
+   # (for singleton mode only?)
+ 'perldoc_url_postfix',
+   # what to put after "Foo%3a%3aBar" in the URL.  Normally "".
+
+ 'man_url_prefix',
+   # In turning L<crontab(5)> into http://whatever/man/1/crontab, what
+   #  to put before the "1/crontab".
+ 'man_url_postfix',
+   #  what to put after the "1/crontab" in the URL. Normally "".
+
+ 'batch_mode', # whether we're in batch mode
+ 'batch_mode_current_level',
+    # When in batch mode, how deep the current module is: 1 for "LWP",
+    #  2 for "LWP::Procotol", 3 for "LWP::Protocol::GHTTP", etc
+    
+ 'title_prefix',  'title_postfix',
+  # What to put before and after the title in the head.
+  # Should already be &-escaped
+
+ 'html_h_level',
+  
+ 'html_header_before_title',
+ 'html_header_after_title',
+ 'html_footer',
+ 'top_anchor',
+
+ 'index', # whether to add an index at the top of each page
+    # (actually it's a table-of-contents, but we'll call it an index,
+    #  out of apparently longstanding habit)
+
+ 'html_css', # URL of CSS file to point to
+ 'html_javascript', # URL of Javascript file to point to
+
+ 'force_title',   # should already be &-escaped
+ 'default_title', # should already be &-escaped
+);
+
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+my @_to_accept;
+
+%Tagmap = (
+  'Verbatim'  => "\n<pre$Computerese>",
+  '/Verbatim' => "</pre>\n",
+  'VerbatimFormatted'  => "\n<pre$Computerese>",
+  '/VerbatimFormatted' => "</pre>\n",
+  'VerbatimB'  => "<b>",
+  '/VerbatimB' => "</b>",
+  'VerbatimI'  => "<i>",
+  '/VerbatimI' => "</i>",
+  'VerbatimBI'  => "<b><i>",
+  '/VerbatimBI' => "</i></b>",
+
+
+  'Data'  => "\n",
+  '/Data' => "\n",
+  
+  'head1' => "\n<h1>",  # And also stick in an <a name="...">
+  'head2' => "\n<h2>",  #  ''
+  'head3' => "\n<h3>",  #  ''
+  'head4' => "\n<h4>",  #  ''
+  '/head1' => "</a></h1>\n",
+  '/head2' => "</a></h2>\n",
+  '/head3' => "</a></h3>\n",
+  '/head4' => "</a></h4>\n",
+
+  'X'  => "<!--\n\tINDEX: ",
+  '/X' => "\n-->",
+
+  changes(qw(
+    Para=p
+    B=b I=i
+    over-bullet=ul
+    over-number=ol
+    over-text=dl
+    over-block=blockquote
+    item-bullet=li
+    item-number=li
+    item-text=dt
+  )),
+  changes2(
+    map {; m/^([-a-z]+)/s && push @_to_accept, $1; $_ }
+    qw[
+      sample=samp
+      definition=dfn
+      keyboard=kbd
+      variable=var
+      citation=cite
+      abbreviation=abbr
+      acronym=acronym
+      subscript=sub
+      superscript=sup
+      big=big
+      small=small
+      underline=u
+      strikethrough=s
+      preformat=pre
+      teletype=tt
+    ]  # no point in providing a way to get <q>...</q>, I think
+  ),
+  
+  '/item-bullet' => "</li>$LamePad\n",
+  '/item-number' => "</li>$LamePad\n",
+  '/item-text'   => "</a></dt>$LamePad\n",
+  'item-body'    => "\n<dd>",
+  '/item-body'   => "</dd>\n",
+
+
+  'B'      =>  "<b>",                  '/B'     =>  "</b>",
+  'I'      =>  "<i>",                  '/I'     =>  "</i>",
+  'F'      =>  "<em$Computerese>",     '/F'     =>  "</em>",
+  'C'      =>  "<code$Computerese>",   '/C'     =>  "</code>",
+  'L'  =>  "<a href='YOU_SHOULD_NEVER_SEE_THIS'>", # ideally never used!
+  '/L' =>  "</a>",
+);
+
+sub changes {
+  return map {; m/^([-_:0-9a-zA-Z]+)=([-_:0-9a-zA-Z]+)$/s
+     ? ( $1, => "\n<$2>", "/$1", => "</$2>\n" ) : die "Funky $_"
+  } @_;
+}
+sub changes2 {
+  return map {; m/^([-_:0-9a-zA-Z]+)=([-_:0-9a-zA-Z]+)$/s
+     ? ( $1, => "<$2>", "/$1", => "</$2>" ) : die "Funky $_"
+  } @_;
+}
+
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+sub go { Pod::Simple::HTML->parse_from_file(@ARGV); exit 0 }
+ # Just so we can run from the command line.  No options.
+ #  For that, use perldoc!
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+sub new {
+  my $new = shift->SUPER::new(@_);
+  #$new->nix_X_codes(1);
+  $new->nbsp_for_S(1);
+  $new->accept_targets( 'html', 'HTML' );
+  $new->accept_codes('VerbatimFormatted');
+  $new->accept_codes(@_to_accept);
+  DEBUG > 2 and print STDERR "To accept: ", join(' ',@_to_accept), "\n";
+
+  $new->perldoc_url_prefix(  $Perldoc_URL_Prefix  );
+  $new->perldoc_url_postfix( $Perldoc_URL_Postfix );
+  $new->man_url_prefix(  $Man_URL_Prefix  );
+  $new->man_url_postfix( $Man_URL_Postfix );
+  $new->title_prefix(  $Title_Prefix  );
+  $new->title_postfix( $Title_Postfix );
+
+  $new->html_header_before_title(
+   qq[$Doctype_decl<html><head><title>]
+  );
+  $new->html_header_after_title( join "\n" =>
+    "</title>",
+    $Content_decl,
+    "</head>\n<body class='pod'>",
+    $new->version_tag_comment,
+    "<!-- start doc -->\n",
+  );
+  $new->html_footer( qq[\n<!-- end doc -->\n\n</body></html>\n] );
+  $new->top_anchor( "<a name='___top' class='dummyTopAnchor' ></a>\n" );
+
+  $new->{'Tagmap'} = {%Tagmap};
+
+  return $new;
+}
+
+sub __adjust_html_h_levels {
+  my ($self) = @_;
+  my $Tagmap = $self->{'Tagmap'};
+
+  my $add = $self->html_h_level;
+  return unless defined $add;
+  return if ($self->{'Adjusted_html_h_levels'}||0) == $add;
+
+  $add -= 1;
+  for (1 .. 4) {
+    $Tagmap->{"head$_"}  =~ s/$_/$_ + $add/e;
+    $Tagmap->{"/head$_"} =~ s/$_/$_ + $add/e;
+  }
+}
+
+sub batch_mode_page_object_init {
+  my($self, $batchconvobj, $module, $infile, $outfile, $depth) = @_;
+  DEBUG and print STDERR "Initting $self\n  for $module\n",
+    "  in $infile\n  out $outfile\n  depth $depth\n";
+  $self->batch_mode(1);
+  $self->batch_mode_current_level($depth);
+  return $self;
+}
+
+sub run {
+  my $self = $_[0];
+  return $self->do_middle if $self->bare_output;
+  return
+   $self->do_beginning && $self->do_middle && $self->do_end;
+}
+
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+sub do_beginning {
+  my $self = $_[0];
+
+  my $title;
+  
+  if(defined $self->force_title) {
+    $title = $self->force_title;
+    DEBUG and print STDERR "Forcing title to be $title\n";
+  } else {
+    # Actually try looking for the title in the document:
+    $title = $self->get_short_title();
+    unless($self->content_seen) {
+      DEBUG and print STDERR "No content seen in search for title.\n";
+      return;
+    }
+    $self->{'Title'} = $title;
+
+    if(defined $title and $title =~ m/\S/) {
+      $title = $self->title_prefix . esc($title) . $self->title_postfix;
+    } else {
+      $title = $self->default_title;    
+      $title = '' unless defined $title;
+      DEBUG and print STDERR "Title defaults to $title\n";
+    }
+  }
+
+  
+  my $after = $self->html_header_after_title  || '';
+  if($self->html_css) {
+    my $link =
+    $self->html_css =~ m/</
+     ? $self->html_css # It's a big blob of markup, let's drop it in
+     : sprintf(        # It's just a URL, so let's wrap it up
+      qq[<link rel="stylesheet" type="text/css" title="pod_stylesheet" href="%s">\n],
+      $self->html_css,
+    );
+    $after =~ s{(</head>)}{$link\n$1}i;  # otherwise nevermind
+  }
+  $self->_add_top_anchor(\$after);
+
+  if($self->html_javascript) {
+    my $link =
+    $self->html_javascript =~ m/</
+     ? $self->html_javascript # It's a big blob of markup, let's drop it in
+     : sprintf(        # It's just a URL, so let's wrap it up
+      qq[<script type="text/javascript" src="%s"></script>\n],
+      $self->html_javascript,
+    );
+    $after =~ s{(</head>)}{$link\n$1}i;  # otherwise nevermind
+  }
+
+  print {$self->{'output_fh'}}
+    $self->html_header_before_title || '',
+    $title, # already escaped
+    $after,
+  ;
+
+  DEBUG and print STDERR "Returning from do_beginning...\n";
+  return 1;
+}
+
+sub _add_top_anchor {
+  my($self, $text_r) = @_;
+  unless($$text_r and $$text_r =~ m/name=['"]___top['"]/) { # a hack
+    $$text_r .= $self->top_anchor || '';
+  }
+  return;
+}
+
+sub version_tag_comment {
+  my $self = shift;
+  return sprintf
+   "<!--\n  generated by %s v%s,\n  using %s v%s,\n  under Perl v%s at %s GMT.\n\n %s\n\n-->\n",
+   esc(
+    ref($self), $self->VERSION(), $ISA[0], $ISA[0]->VERSION(),
+    $], scalar(gmtime),
+   ), $self->_modnote(),
+  ;
+}
+
+sub _modnote {
+  my $class = ref($_[0]) || $_[0];
+  return join "\n   " => grep m/\S/, split "\n",
+
+qq{
+If you want to change this HTML document, you probably shouldn't do that
+by changing it directly.  Instead, see about changing the calling options
+to $class, and/or subclassing $class,
+then reconverting this document from the Pod source.
+When in doubt, email the author of $class for advice.
+See 'perldoc $class' for more info.
+};
+
+}
+
+sub do_end {
+  my $self = $_[0];
+  print {$self->{'output_fh'}}  $self->html_footer || '';
+  return 1;
+}
+
+# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+# Normally this would just be a call to _do_middle_main_loop -- but we
+#  have to do some elaborate things to emit all the content and then
+#  summarize it and output it /before/ the content that it's a summary of.
+
+sub do_middle {
+  my $self = $_[0];
+  return $self->_do_middle_main_loop unless $self->index;
+
+  if( $self->output_string ) {
+    # An efficiency hack
+    my $out = $self->output_string; #it's a reference to it
+    my $sneakytag = "\f\f\e\e\b\bIndex Here\e\e\b\b\f\f\n";
+    $$out .= $sneakytag;
+    $self->_do_middle_main_loop;
+    $sneakytag = quotemeta($sneakytag);
+    my $index = $self->index_as_html();
+    if( $$out =~ s/$sneakytag/$index/s ) {
+      # Expected case
+      DEBUG and print STDERR "Inserted ", length($index), " bytes of index HTML into $out.\n";
+    } else {
+      DEBUG and print STDERR "Odd, couldn't find where to insert the index in the output!\n";
+      # I don't think this should ever happen.
+    }
+    return 1;
+  }
+
+  unless( $self->output_fh ) {
+    require Carp;
+    Carp::confess("Parser object \$p doesn't seem to have any output object!  I don't know how to deal with that.");
+  }
+
+  # If we get here, we're outputting to a FH.  So we need to do some magic.
+  # Namely, divert all content to a string, which we output after the index.
+  my $fh = $self->output_fh;
+  my $content = '';
+  {
+    # Our horrible bait and switch:
+    $self->output_string( \$content );
+    $self->_do_middle_main_loop;
+    $self->abandon_output_string();
+    $self->output_fh($fh);
+  }
+  print $fh $self->index_as_html();
+  print $fh $content;
+
+  return 1;
+}
+
+###########################################################################
+
+sub index_as_html {
+  my $self = $_[0];
+  # This is meant to be called AFTER the input document has been parsed!
+
+  my $points = $self->{'PSHTML_index_points'} || [];
+  
+  @$points > 1 or return qq[<div class='indexgroupEmpty'></div>\n];
+   # There's no point in having a 0-item or 1-item index, I dare say.
+  
+  my(@out) = qq{\n<div class='indexgroup'>};
+  my $level = 0;
+
+  my( $target_level, $previous_tagname, $tagname, $text, $anchorname, $indent);
+  foreach my $p (@$points, ['head0', '(end)']) {
+    ($tagname, $text) = @$p;
+    $anchorname = $self->section_escape($text);
+    if( $tagname =~ m{^head(\d+)$} ) {
+      $target_level = 0 + $1;
+    } else {  # must be some kinda list item
+      if($previous_tagname =~ m{^head\d+$} ) {
+        $target_level = $level + 1;
+      } else {
+        $target_level = $level;  # no change needed
+      }
+    }
+    
+    # Get to target_level by opening or closing ULs
+    while($level > $target_level)
+     { --$level; push @out, ("  " x $level) . "</ul>"; }
+    while($level < $target_level)
+     { ++$level; push @out, ("  " x ($level-1))
+       . "<ul   class='indexList indexList$level'>"; }
+
+    $previous_tagname = $tagname;
+    next unless $level;
+    
+    $indent = '  '  x $level;
+    push @out, sprintf
+      "%s<li class='indexItem indexItem%s'><a href='#%s'>%s</a>",
+      $indent, $level, esc($anchorname), esc($text)
+    ;
+  }
+  push @out, "</div>\n";
+  return join "\n", @out;
+}
+
+###########################################################################
+
+sub _do_middle_main_loop {
+  my $self = $_[0];
+  my $fh = $self->{'output_fh'};
+  my $tagmap = $self->{'Tagmap'};
+
+  $self->__adjust_html_h_levels;
+  
+  my($token, $type, $tagname, $linkto, $linktype);
+  my @stack;
+  my $dont_wrap = 0;
+
+  while($token = $self->get_token) {
+
+    # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+    if( ($type = $token->type) eq 'start' ) {
+      if(($tagname = $token->tagname) eq 'L') {
+        $linktype = $token->attr('type') || 'insane';
+        
+        $linkto = $self->do_link($token);
+
+        if(defined $linkto and length $linkto) {
+          esc($linkto);
+            #   (Yes, SGML-escaping applies on top of %-escaping!
+            #   But it's rarely noticeable in practice.)
+          print $fh qq{<a href="$linkto" class="podlink$linktype"\n>};
+        } else {
+          print $fh "<a>"; # Yes, an 'a' element with no attributes!
+        }
+
+      } elsif ($tagname eq 'item-text' or $tagname =~ m/^head\d$/s) {
+        print $fh $tagmap->{$tagname} || next;
+
+        my @to_unget;
+        while(1) {
+          push @to_unget, $self->get_token;
+          last if $to_unget[-1]->is_end
+              and $to_unget[-1]->tagname eq $tagname;
+          
+          # TODO: support for X<...>'s found in here?  (maybe hack into linearize_tokens)
+        }
+
+        my $name = $self->linearize_tokens(@to_unget);
+        $name = $self->do_section($name, $token) if defined $name;
+
+        print $fh "<a ";
+        if ($tagname =~ m/^head\d$/s) {
+            print $fh "class='u'", $self->index
+                ? " href='#___top' title='click to go to top of document'\n"
+                : "\n";
+        }
+        
+        if(defined $name) {
+          my $esc = esc(  $self->section_name_tidy( $name ) );
+          print $fh qq[name="$esc"];
+          DEBUG and print STDERR "Linearized ", scalar(@to_unget),
+           " tokens as \"$name\".\n";
+          push @{ $self->{'PSHTML_index_points'} }, [$tagname, $name]
+           if $ToIndex{ $tagname };
+            # Obviously, this discards all formatting codes (saving
+            #  just their content), but ahwell.
+           
+        } else {  # ludicrously long, so nevermind
+          DEBUG and print STDERR "Linearized ", scalar(@to_unget),
+           " tokens, but it was too long, so nevermind.\n";
+        }
+        print $fh "\n>";
+        $self->unget_token(@to_unget);
+
+      } elsif ($tagname eq 'Data') {
+        my $next = $self->get_token;
+        next unless defined $next;
+        unless( $next->type eq 'text' ) {
+          $self->unget_token($next);
+          next;
+        }
+        DEBUG and print STDERR "    raw text ", $next->text, "\n";
+        # The parser sometimes preserves newlines and sometimes doesn't!
+        (my $text = $next->text) =~ s/\n\z//;
+        print $fh $text, "\n";
+        next;
+       
+      } else {
+        if( $tagname =~ m/^over-/s ) {
+          push @stack, '';
+        } elsif( $tagname =~ m/^item-/s and @stack and $stack[-1] ) {
+          print $fh $stack[-1];
+          $stack[-1] = '';
+        }
+        print $fh $tagmap->{$tagname} || next;
+        ++$dont_wrap if $tagname eq 'Verbatim' or $tagname eq "VerbatimFormatted"
+          or $tagname eq 'X';
+      }
+
+    # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+    } elsif( $type eq 'end' ) {
+      if( ($tagname = $token->tagname) =~ m/^over-/s ) {
+        if( my $end = pop @stack ) {
+          print $fh $end;
+        }
+      } elsif( $tagname =~ m/^item-/s and @stack) {
+        $stack[-1] = $tagmap->{"/$tagname"};
+        if( $tagname eq 'item-text' and defined(my $next = $self->get_token) ) {
+          $self->unget_token($next);
+          if( $next->type eq 'start' ) {
+            print $fh $tagmap->{"/item-text"},$tagmap->{"item-body"};
+            $stack[-1] = $tagmap->{"/item-body"};
+          }
+        }
+        next;
+      }
+      print $fh $tagmap->{"/$tagname"} || next;
+      --$dont_wrap if $tagname eq 'Verbatim' or $tagname eq 'X';
+
+    # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+    } elsif( $type eq 'text' ) {
+      esc($type = $token->text);  # reuse $type, why not
+      $type =~ s/([\?\!\"\'\.\,]) /$1\n/g unless $dont_wrap;
+      print $fh $type;
+    }
+
+  }
+  return 1;
+}
+
+###########################################################################
+#
+
+sub do_section {
+  my($self, $name, $token) = @_;
+  return $name;
+}
+
+sub do_link {
+  my($self, $token) = @_;
+  my $type = $token->attr('type');
+  if(!defined $type) {
+    $self->whine("Typeless L!?", $token->attr('start_line'));
+  } elsif( $type eq 'pod') { return $self->do_pod_link($token);
+  } elsif( $type eq 'url') { return $self->do_url_link($token);
+  } elsif( $type eq 'man') { return $self->do_man_link($token);
+  } else {
+    $self->whine("L of unknown type $type!?", $token->attr('start_line'));
+  }
+  return 'FNORG'; # should never get called
+}
+
+# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+sub do_url_link { return $_[1]->attr('to') }
+
+sub do_man_link {
+  my ($self, $link) = @_;
+  my $to = $link->attr('to');
+  my $frag = $link->attr('section');
+
+  return undef unless defined $to and length $to; # should never happen
+
+  $frag = $self->section_escape($frag)
+   if defined $frag and length($frag .= ''); # (stringify)
+
+  DEBUG and print STDERR "Resolving \"$to/$frag\"\n\n";
+
+  return $self->resolve_man_page_link($to, $frag);
+}
+
+
+sub do_pod_link {
+  # And now things get really messy...
+  my($self, $link) = @_;
+  my $to = $link->attr('to');
+  my $section = $link->attr('section');
+  return undef unless(  # should never happen
+    (defined $to and length $to) or
+    (defined $section and length $section)
+  );
+
+  $section = $self->section_escape($section)
+   if defined $section and length($section .= ''); # (stringify)
+
+  DEBUG and printf STDERR "Resolving \"%s\" \"%s\"...\n",
+   $to || "(nil)",  $section || "(nil)";
+   
+  {
+    # An early hack:
+    my $complete_url = $self->resolve_pod_link_by_table($to, $section);
+    if( $complete_url ) {
+      DEBUG > 1 and print STDERR "resolve_pod_link_by_table(T,S) gives ",
+        $complete_url, "\n  (Returning that.)\n";
+      return $complete_url;
+    } else {
+      DEBUG > 4 and print STDERR " resolve_pod_link_by_table(T,S)",
+       " didn't return anything interesting.\n";
+    }
+  }
+
+  if(defined $to and length $to) {
+    # Give this routine first hack again
+    my $there = $self->resolve_pod_link_by_table($to);
+    if(defined $there and length $there) {
+      DEBUG > 1
+       and print STDERR "resolve_pod_link_by_table(T) gives $there\n";
+    } else {
+      $there = 
+        $self->resolve_pod_page_link($to, $section);
+         # (I pass it the section value, but I don't see a
+         #  particular reason it'd use it.)
+      DEBUG > 1 and print STDERR "resolve_pod_page_link gives ", $there || "(nil)", "\n";
+      unless( defined $there and length $there ) {
+        DEBUG and print STDERR "Can't resolve $to\n";
+        return undef;
+      }
+      # resolve_pod_page_link returning undef is how it
+      #  can signal that it gives up on making a link
+    }
+    $to = $there;
+  }
+
+  #DEBUG and print STDERR "So far [", $to||'nil', "] [", $section||'nil', "]\n";
+
+  my $out = (defined $to and length $to) ? $to : '';
+  $out .= "#" . $section if defined $section and length $section;
+  
+  unless(length $out) { # sanity check
+    DEBUG and printf STDERR "Oddly, couldn't resolve \"%s\" \"%s\"...\n",
+     $to || "(nil)",  $section || "(nil)";
+    return undef;
+  }
+
+  DEBUG and print STDERR "Resolved to $out\n";
+  return $out;  
+}
+
+
+# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
+
+sub section_escape {
+  my($self, $section) = @_;
+  return $self->section_url_escape(
+    $self->section_name_tidy($section)
+  );
+}
+
+sub section_name_tidy {
+  my($self, $section) = @_;
+  $section =~ s/^\s+//;
+  $section =~ s/\s+$//;
+  $section =~ tr/ /_/;
+  if ($] ge 5.006) {
+    $section =~ s/[[:cntrl:][:^ascii:]]//g; # drop crazy characters
+  } elsif ('A' eq chr(65)) { # But not on early EBCDIC
+    $section =~ tr/\x00-\x1F\x80-\x9F//d;
+  }
+  $section = $self->unicode_escape_url($section);
+  $section = '_' unless length $section;
+  return $section;
+}
+
+sub section_url_escape  { shift->general_url_escape(@_) }
+sub pagepath_url_escape { shift->general_url_escape(@_) }
+sub manpage_url_escape  { shift->general_url_escape(@_) }
+
+sub general_url_escape {
+  my($self, $string) = @_;
+ 
+  $string =~ s/([^\x00-\xFF])/join '', map sprintf('%%%02X',$_), unpack 'C*', $1/eg;
+     # express Unicode things as urlencode(utf(orig)).
+  
+  # A pretty conservative escaping, behoovey even for query components
+  #  of a URL (see RFC 2396)
+  
+  if ($] ge 5.007_003) {
+    $string =~ s/([^-_\.!~*()abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/sprintf('%%%02X',utf8::native_to_unicode(ord($1)))/eg;
+  } else { # Is broken for non-ASCII platforms on early perls
+    $string =~ s/([^-_\.!~*()abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/sprintf('%%%02X',ord($1))/eg;
+  }
+   # Yes, stipulate the list without a range, so that this can work right on
+   #  all charsets that this module happens to run under.
+  
+  return $string;
+}
+
+#--------------------------------------------------------------------------
+#
+# Oh look, a yawning portal to Hell!  Let's play touch football right by it!
+#
+
+sub resolve_pod_page_link {
+  # resolve_pod_page_link must return a properly escaped URL
+  my $self = shift;
+  return $self->batch_mode()
+   ? $self->resolve_pod_page_link_batch_mode(@_)
+   : $self->resolve_pod_page_link_singleton_mode(@_)
+  ;
+}
+
+sub resolve_pod_page_link_singleton_mode {
+  my($self, $it) = @_;
+  return undef unless defined $it and length $it;
+  my $url = $self->pagepath_url_escape($it);
+  
+  $url =~ s{::$}{}s; # probably never comes up anyway
+  $url =~ s{::}{/}g unless $self->perldoc_url_prefix =~ m/\?/s; # sane DWIM?
+  
+  return undef unless length $url;
+  return $self->perldoc_url_prefix . $url . $self->perldoc_url_postfix;
+}
+
+sub resolve_pod_page_link_batch_mode {
+  my($self, $to) = @_;
+  DEBUG > 1 and print STDERR " During batch mode, resolving $to ...\n";
+  my @path = grep length($_), split m/::/s, $to, -1;
+  unless( @path ) { # sanity
+    DEBUG and print STDERR "Very odd!  Splitting $to gives (nil)!\n";
+    return undef;
+  }
+  $self->batch_mode_rectify_path(\@path);
+  my $out = join('/', map $self->pagepath_url_escape($_), @path)
+    . $HTML_EXTENSION;
+  DEBUG > 1 and print STDERR " => $out\n";
+  return $out;
+}
+
+sub batch_mode_rectify_path {
+  my($self, $pathbits) = @_;
+  my $level = $self->batch_mode_current_level;
+  $level--; # how many levels up to go to get to the root
+  if($level < 1) {
+    unshift @$pathbits, '.'; # just to be pretty
+  } else {
+    unshift @$pathbits, ('..') x $level;
+  }
+  return;
+}
+
+sub resolve_man_page_link {
+  my ($self, $to, $frag) = @_;
+  my ($page, $section) = $to =~ /^([^(]+)(?:[(](\d+)[)])?$/;
+
+  return undef unless defined $page and length $page;
+  $section ||= 1;
+
+  return $self->man_url_prefix . "$section/"
+      . $self->manpage_url_escape($page)
+      . $self->man_url_postfix;
+}
+
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+sub resolve_pod_link_by_table {
+  # A crazy hack to allow specifying custom L<foo> => URL mappings
+
+  return unless $_[0]->{'podhtml_LOT'};  # An optimizy shortcut
+
+  my($self, $to, $section) = @_;
+
+  # TODO: add a method that actually populates podhtml_LOT from a file?
+
+  if(defined $section) {
+    $to = '' unless defined $to and length $to;
+    return $self->{'podhtml_LOT'}{"$to#$section"}; # quite possibly undef!
+  } else {
+    return $self->{'podhtml_LOT'}{$to};            # quite possibly undef!
+  }
+  return;
+}
+
+###########################################################################
+
+sub linearize_tokens {  # self, tokens
+  my $self = shift;
+  my $out = '';
+  
+  my $t;
+  while($t = shift @_) {
+    if(!ref $t or !UNIVERSAL::can($t, 'is_text')) {
+      $out .= $t; # a string, or some insane thing
+    } elsif($t->is_text) {
+      $out .= $t->text;
+    } elsif($t->is_start and $t->tag eq 'X') {
+      # Ignore until the end of this X<...> sequence:
+      my $x_open = 1;
+      while($x_open) {
+        next if( ($t = shift @_)->is_text );
+        if(   $t->is_start and $t->tag eq 'X') { ++$x_open }
+        elsif($t->is_end   and $t->tag eq 'X') { --$x_open }
+      }
+    }
+  }
+  return undef if length $out > $Linearization_Limit;
+  return $out;
+}
+
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+sub unicode_escape_url {
+  my($self, $string) = @_;
+  $string =~ s/([^\x00-\xFF])/'('.ord($1).')'/eg;
+    #  Turn char 1234 into "(1234)"
+  return $string;
+}
+
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+sub esc { # a function.
+  if(defined wantarray) {
+    if(wantarray) {
+      @_ = splice @_; # break aliasing
+    } else {
+      my $x = shift;
+      if ($] ge 5.007_003) {
+        $x =~ s/([^-\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(utf8::native_to_unicode(ord($1))).';'/eg;
+      } else { # Is broken for non-ASCII platforms on early perls
+        $x =~ s/([^-\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
+      }
+      return $x;
+    }
+  }
+  foreach my $x (@_) {
+    # Escape things very cautiously:
+    if (defined $x) {
+      if ($] ge 5.007_003) {
+        $x =~ s/([^-\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(utf8::native_to_unicode(ord($1))).';'/eg
+      } else { # Is broken for non-ASCII platforms on early perls
+        $x =~ s/([^-\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg
+      }
+    }
+    # Leave out "- so that "--" won't make it thru in X-generated comments
+    #  with text in them.
+
+    # Yes, stipulate the list without a range, so that this can work right on
+    #  all charsets that this module happens to run under.
+  }
+  return @_;
+}
+
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+1;
+__END__
+
+=head1 NAME
+
+Pod::Simple::HTML - convert Pod to HTML
+
+=head1 SYNOPSIS
+
+  perl -MPod::Simple::HTML -e Pod::Simple::HTML::go thingy.pod
+
+
+=head1 DESCRIPTION
+
+This class is for making an HTML rendering of a Pod document.
+
+This is a subclass of L<Pod::Simple::PullParser> and inherits all its
+methods (and options).
+
+Note that if you want to do a batch conversion of a lot of Pod
+documents to HTML, you should see the module L<Pod::Simple::HTMLBatch>.
+
+
+
+=head1 CALLING FROM THE COMMAND LINE
+
+TODO
+
+  perl -MPod::Simple::HTML -e Pod::Simple::HTML::go Thing.pod Thing.html
+
+
+
+=head1 CALLING FROM PERL
+
+=head2 Minimal code
+
+  use Pod::Simple::HTML;
+  my $p = Pod::Simple::HTML->new;
+  $p->output_string(\my $html);
+  $p->parse_file('path/to/Module/Name.pm');
+  open my $out, '>', 'out.html' or die "Cannot open 'out.html': $!\n";
+  print $out $html;
+
+=head2 More detailed example
+
+  use Pod::Simple::HTML;
+
+Set the content type:
+
+  $Pod::Simple::HTML::Content_decl =  q{<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" >};
+
+  my $p = Pod::Simple::HTML->new;
+
+Include a single javascript source:
+
+  $p->html_javascript('http://abc.com/a.js');
+
+Or insert multiple javascript source in the header 
+(or for that matter include anything, thought this is not recommended)
+
+  $p->html_javascript('
+      <script type="text/javascript" src="http://abc.com/b.js"></script>
+      <script type="text/javascript" src="http://abc.com/c.js"></script>');
+
+Include a single css source in the header:
+
+  $p->html_css('/style.css');
+
+or insert multiple css sources:
+
+  $p->html_css('
+      <link rel="stylesheet" type="text/css" title="pod_stylesheet" href="http://remote.server.com/jquery.css">
+      <link rel="stylesheet" type="text/css" title="pod_stylesheet" href="/style.css">');
+
+Tell the parser where should the output go. In this case it will be placed in the $html variable:
+
+  my $html;
+  $p->output_string(\$html);
+
+Parse and process a file with pod in it:
+
+  $p->parse_file('path/to/Module/Name.pm');
+
+=head1 METHODS
+
+TODO
+all (most?) accessorized methods
+
+The following variables need to be set B<before> the call to the ->new constructor.
+
+Set the string that is included before the opening <html> tag:
+
+  $Pod::Simple::HTML::Doctype_decl = qq{<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" 
+	 "http://www.w3.org/TR/html4/loose.dtd">\n};
+
+Set the content-type in the HTML head: (defaults to ISO-8859-1)
+
+  $Pod::Simple::HTML::Content_decl =  q{<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" >};
+
+Set the value that will be embedded in the opening tags of F, C tags and verbatim text.
+F maps to <em>, C maps to <code>, Verbatim text maps to <pre> (Computerese defaults to "")
+
+  $Pod::Simple::HTML::Computerese =  ' class="some_class_name';
+
+=head2 html_css
+
+=head2 html_javascript
+
+=head2 title_prefix
+
+=head2 title_postfix
+
+=head2 html_header_before_title
+
+This includes everything before the <title> opening tag including the Document type
+and including the opening <title> tag. The following call will set it to be a simple HTML
+file:
+
+  $p->html_header_before_title('<html><head><title>');
+
+=head2 top_anchor
+
+By default Pod::Simple::HTML adds a dummy anchor at the top of the HTML.
+You can change it by calling
+
+  $p->top_anchor('<a name="zz" >');
+
+=head2 html_h_level
+
+Normally =head1 will become <h1>, =head2 will become <h2> etc.
+Using the html_h_level method will change these levels setting the h level
+of =head1 tags:
+
+  $p->html_h_level(3);
+
+Will make sure that =head1 will become <h3> and =head2 will become <h4> etc...
+
+
+=head2 index
+
+Set it to some true value if you want to have an index (in reality a table of contents)
+to be added at the top of the generated HTML.
+
+  $p->index(1);
+
+=head2 html_header_after_title
+
+Includes the closing tag of </title> and through the rest of the head
+till the opening of the body
+
+  $p->html_header_after_title('</title>...</head><body id="my_id">');
+
+=head2 html_footer
+
+The very end of the document:
+
+  $p->html_footer( qq[\n<!-- end doc -->\n\n</body></html>\n] );
+
+=head1 SUBCLASSING
+
+Can use any of the methods described above but for further customization
+one needs to override some of the methods:
+
+  package My::Pod;
+  use strict;
+  use warnings;
+
+  use base 'Pod::Simple::HTML';
+
+  # needs to return a URL string such
+  # http://some.other.com/page.html
+  # #anchor_in_the_same_file
+  # /internal/ref.html
+  sub do_pod_link {
+    # My::Pod object and Pod::Simple::PullParserStartToken object
+    my ($self, $link) = @_;
+
+    say $link->tagname;          # will be L for links
+    say $link->attr('to');       # 
+    say $link->attr('type');     # will be 'pod' always
+    say $link->attr('section');
+
+    # Links local to our web site
+    if ($link->tagname eq 'L' and $link->attr('type') eq 'pod') {
+      my $to = $link->attr('to');
+      if ($to =~ /^Padre::/) {
+          $to =~ s{::}{/}g;
+          return "/docs/Padre/$to.html";
+      }
+    }
+
+    # all other links are generated by the parent class
+    my $ret = $self->SUPER::do_pod_link($link);
+    return $ret;
+  }
+
+  1;
+
+Meanwhile in script.pl:
+
+  use My::Pod;
+
+  my $p = My::Pod->new;
+
+  my $html;
+  $p->output_string(\$html);
+  $p->parse_file('path/to/Module/Name.pm');
+  open my $out, '>', 'out.html' or die;
+  print $out $html;
+
+TODO
+
+maybe override do_beginning do_end
+
+=head1 SEE ALSO
+
+L<Pod::Simple>, L<Pod::Simple::HTMLBatch>
+
+TODO: a corpus of sample Pod input and HTML output?  Or common
+idioms?
+
+=head1 SUPPORT
+
+Questions or discussion about POD and Pod::Simple should be sent to the
+pod-people@perl.org mail list. Send an empty email to
+pod-people-subscribe@perl.org to subscribe.
+
+This module is managed in an open GitHub repository,
+L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or
+to clone L<git://github.com/perl-pod/pod-simple.git> and send patches!
+
+Patches against Pod::Simple are welcome. Please send bug reports to
+<bug-pod-simple@rt.cpan.org>.
+
+=head1 COPYRIGHT AND DISCLAIMERS
+
+Copyright (c) 2002-2004 Sean M. Burke.
+
+This library is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+This program is distributed in the hope that it will be useful, but
+without any warranty; without even the implied warranty of
+merchantability or fitness for a particular purpose.
+
+=head1 ACKNOWLEDGEMENTS
+
+Thanks to L<Hurricane Electric|http://he.net/> for permission to use its
+L<Linux man pages online|http://man.he.net/> site for man page links.
+
+Thanks to L<search.cpan.org|http://search.cpan.org/> for permission to use the
+site for Perl module links.
+
+=head1 AUTHOR
+
+Pod::Simple was created by Sean M. Burke <sburke@cpan.org>.
+But don't bother him, he's retired.
+
+Pod::Simple is maintained by:
+
+=over
+
+=item * Allison Randal C<allison@perl.org>
+
+=item * Hans Dieter Pearcey C<hdp@cpan.org>
+
+=item * David E. Wheeler C<dwheeler@cpan.org>
+
+=back
+
+=cut
diff --git a/lib/5.24.1/Pod/Simple/HTMLBatch.pm b/lib/5.24.1/Pod/Simple/HTMLBatch.pm
new file mode 100644
index 00000000..57586450
--- /dev/null
+++ b/lib/5.24.1/Pod/Simple/HTMLBatch.pm
@@ -0,0 +1,1358 @@
+
+require 5;
+package Pod::Simple::HTMLBatch;
+use strict;
+use vars qw( $VERSION $HTML_RENDER_CLASS $HTML_EXTENSION
+ $CSS $JAVASCRIPT $SLEEPY $SEARCH_CLASS @ISA
+);
+$VERSION = '3.32';
+@ISA = ();  # Yup, we're NOT a subclass of Pod::Simple::HTML!
+
+# TODO: nocontents stylesheets. Strike some of the color variations?
+
+use Pod::Simple::HTML ();
+BEGIN {*esc = \&Pod::Simple::HTML::esc }
+use File::Spec ();
+
+use Pod::Simple::Search;
+$SEARCH_CLASS ||= 'Pod::Simple::Search';
+
+BEGIN {
+  if(defined &DEBUG) { } # no-op
+  elsif( defined &Pod::Simple::DEBUG ) { *DEBUG = \&Pod::Simple::DEBUG }
+  else { *DEBUG = sub () {0}; }
+}
+
+$SLEEPY = 1 if !defined $SLEEPY and $^O =~ /mswin|mac/i;
+# flag to occasionally sleep for $SLEEPY - 1 seconds.
+
+$HTML_RENDER_CLASS ||= "Pod::Simple::HTML";
+
+#
+# Methods beginning with "_" are particularly internal and possibly ugly.
+#
+
+Pod::Simple::_accessorize( __PACKAGE__,
+ 'verbose', # how verbose to be during batch conversion
+ 'html_render_class', # what class to use to render
+ 'search_class', # what to use to search for POD documents
+ 'contents_file', # If set, should be the name of a file (in current directory)
+                  # to write the list of all modules to
+ 'index', # will set $htmlpage->index(...) to this (true or false)
+ 'progress', # progress object
+ 'contents_page_start',  'contents_page_end',
+
+ 'css_flurry', '_css_wad', 'javascript_flurry', '_javascript_wad',
+ 'no_contents_links', # set to true to suppress automatic adding of << links.
+ '_contents',
+);
+
+# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+# Just so we can run from the command line more easily
+sub go {
+  @ARGV == 2 or die sprintf(
+    "Usage: perl -M%s -e %s:go indirs outdir\n  (or use \"\@INC\" for indirs)\n",
+    __PACKAGE__, __PACKAGE__, 
+  );
+  
+  if(defined($ARGV[1]) and length($ARGV[1])) {
+    my $d = $ARGV[1];
+    -e $d or die "I see no output directory named \"$d\"\nAborting";
+    -d $d or die "But \"$d\" isn't a directory!\nAborting";
+    -w $d or die "Directory \"$d\" isn't writeable!\nAborting";
+  }
+  
+  __PACKAGE__->batch_convert(@ARGV);
+}
+# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+
+sub new {
+  my $new = bless {}, ref($_[0]) || $_[0];
+  $new->html_render_class($HTML_RENDER_CLASS);
+  $new->search_class($SEARCH_CLASS);
+  $new->verbose(1 + DEBUG);
+  $new->_contents([]);
+  
+  $new->index(1);
+
+  $new->       _css_wad([]);         $new->css_flurry(1);
+  $new->_javascript_wad([]);  $new->javascript_flurry(1);
+  
+  $new->contents_file(
+    'index' . ($HTML_EXTENSION || $Pod::Simple::HTML::HTML_EXTENSION)
+  );
+  
+  $new->contents_page_start( join "\n", grep $_,
+    $Pod::Simple::HTML::Doctype_decl,
+    "<html><head>",
+    "<title>Perl Documentation</title>",
+    $Pod::Simple::HTML::Content_decl,
+    "</head>",
+    "\n<body class='contentspage'>\n<h1>Perl Documentation</h1>\n"
+  ); # override if you need a different title
+  
+  
+  $new->contents_page_end( sprintf(
+    "\n\n<p class='contentsfooty'>Generated by %s v%s under Perl v%s\n<br >At %s GMT, which is %s local time.</p>\n\n</body></html>\n",
+    esc(
+      ref($new),
+      eval {$new->VERSION} || $VERSION,
+      $], scalar(gmtime), scalar(localtime), 
+  )));
+
+  return $new;
+}
+
+# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+sub muse {
+  my $self = shift;
+  if($self->verbose) {
+    print 'T+', int(time() - $self->{'_batch_start_time'}), "s: ", @_, "\n";
+  }
+  return 1;
+}
+
+# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+sub batch_convert {
+  my($self, $dirs, $outdir) = @_;
+  $self ||= __PACKAGE__; # tolerate being called as an optionless function
+  $self = $self->new unless ref $self; # tolerate being used as a class method
+
+  if(!defined($dirs)  or  $dirs eq ''  or  $dirs eq '@INC' ) {
+    $dirs = '';
+  } elsif(ref $dirs) {
+    # OK, it's an explicit set of dirs to scan, specified as an arrayref.
+  } else {
+    # OK, it's an explicit set of dirs to scan, specified as a
+    #  string like "/thing:/also:/whatever/perl" (":"-delim, as usual)
+    #  or, under MSWin, like "c:/thing;d:/also;c:/whatever/perl" (";"-delim!)
+    require Config;
+    my $ps = quotemeta( $Config::Config{'path_sep'} || ":" );
+    $dirs = [ grep length($_), split qr/$ps/, $dirs ];
+  }
+
+  $outdir = $self->filespecsys->curdir
+   unless defined $outdir and length $outdir;
+
+  $self->_batch_convert_main($dirs, $outdir);
+}
+
+# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+sub _batch_convert_main {
+  my($self, $dirs, $outdir) = @_;
+  # $dirs is either false, or an arrayref.    
+  # $outdir is a pathspec.
+  
+  $self->{'_batch_start_time'} ||= time();
+
+  $self->muse( "= ", scalar(localtime) );
+  $self->muse( "Starting batch conversion to \"$outdir\"" );
+
+  my $progress = $self->progress;
+  if(!$progress and $self->verbose > 0 and $self->verbose() <= 5) {
+    require Pod::Simple::Progress;
+    $progress = Pod::Simple::Progress->new(
+        ($self->verbose  < 2) ? () # Default omission-delay
+      : ($self->verbose == 2) ? 1  # Reduce the omission-delay
+                              : 0  # Eliminate the omission-delay
+    );
+    $self->progress($progress);
+  }
+  
+  if($dirs) {
+    $self->muse(scalar(@$dirs), " dirs to scan: @$dirs");
+  } else {
+    $self->muse("Scanning \@INC.  This could take a minute or two.");
+  }
+  my $mod2path = $self->find_all_pods($dirs ? $dirs : ());
+  $self->muse("Done scanning.");
+
+  my $total = keys %$mod2path;
+  unless($total) {
+    $self->muse("No pod found.  Aborting batch conversion.\n");
+    return $self;
+  }
+
+  $progress and $progress->goal($total);
+  $self->muse("Now converting pod files to HTML.",
+    ($total > 25) ? "  This will take a while more." : ()
+  );
+
+  $self->_spray_css(        $outdir );
+  $self->_spray_javascript( $outdir );
+
+  $self->_do_all_batch_conversions($mod2path, $outdir);
+
+  $progress and $progress->done(sprintf (
+    "Done converting %d files.",  $self->{"__batch_conv_page_count"}
+  ));
+  return $self->_batch_convert_finish($outdir);
+  return $self;
+}
+
+
+sub _do_all_batch_conversions {
+  my($self, $mod2path, $outdir) = @_;
+  $self->{"__batch_conv_page_count"} = 0;
+
+  foreach my $module (sort {lc($a) cmp lc($b)} keys %$mod2path) {
+    $self->_do_one_batch_conversion($module, $mod2path, $outdir);
+    sleep($SLEEPY - 1) if $SLEEPY;
+  }
+
+  return;
+}
+
+sub _batch_convert_finish {
+  my($self, $outdir) = @_;
+  $self->write_contents_file($outdir);
+  $self->muse("Done with batch conversion.  $$self{'__batch_conv_page_count'} files done.");
+  $self->muse( "= ", scalar(localtime) );
+  $self->progress and $self->progress->done("All done!");
+  return;
+}
+
+# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+sub _do_one_batch_conversion {
+  my($self, $module, $mod2path, $outdir, $outfile) = @_;
+
+  my $retval;
+  my $total    = scalar keys %$mod2path;
+  my $infile   = $mod2path->{$module};
+  my @namelets = grep m/\S/, split "::", $module;
+        # this can stick around in the contents LoL
+  my $depth    = scalar @namelets;
+  die "Contentless thingie?! $module $infile" unless @namelets; #sanity
+    
+  $outfile  ||= do {
+    my @n = @namelets;
+    $n[-1] .= $HTML_EXTENSION || $Pod::Simple::HTML::HTML_EXTENSION;
+    $self->filespecsys->catfile( $outdir, @n );
+  };
+
+  my $progress = $self->progress;
+
+  my $page = $self->html_render_class->new;
+  if(DEBUG > 5) {
+    $self->muse($self->{"__batch_conv_page_count"} + 1, "/$total: ",
+      ref($page), " render ($depth) $module => $outfile");
+  } elsif(DEBUG > 2) {
+    $self->muse($self->{"__batch_conv_page_count"} + 1, "/$total: $module => $outfile")
+  }
+
+  # Give each class a chance to init the converter:
+  $page->batch_mode_page_object_init($self, $module, $infile, $outfile, $depth)
+   if $page->can('batch_mode_page_object_init');
+  # Init for the index (TOC), too.
+  $self->batch_mode_page_object_init($page, $module, $infile, $outfile, $depth)
+   if $self->can('batch_mode_page_object_init');
+    
+  # Now get busy...
+  $self->makepath($outdir => \@namelets);
+
+  $progress and $progress->reach($self->{"__batch_conv_page_count"}, "Rendering $module");
+
+  if( $retval = $page->parse_from_file($infile, $outfile) ) {
+    ++ $self->{"__batch_conv_page_count"} ;
+    $self->note_for_contents_file( \@namelets, $infile, $outfile );
+  } else {
+    $self->muse("Odd, parse_from_file(\"$infile\", \"$outfile\") returned false.");
+  }
+
+  $page->batch_mode_page_object_kill($self, $module, $infile, $outfile, $depth)
+   if $page->can('batch_mode_page_object_kill');
+  # The following isn't a typo.  Note that it switches $self and $page.
+  $self->batch_mode_page_object_kill($page, $module, $infile, $outfile, $depth)
+   if $self->can('batch_mode_page_object_kill');
+    
+  DEBUG > 4 and printf STDERR "%s %sb < $infile %s %sb\n",
+     $outfile, -s $outfile, $infile, -s $infile
+  ;
+
+  undef($page);
+  return $retval;
+}
+
+# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+sub filespecsys { $_[0]{'_filespecsys'} || 'File::Spec' }
+
+# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+sub note_for_contents_file {
+  my($self, $namelets, $infile, $outfile) = @_;
+
+  # I think the infile and outfile parts are never used. -- SMB
+  # But it's handy to have them around for debugging.
+
+  if( $self->contents_file ) {
+    my $c = $self->_contents();
+    push @$c,
+     [ join("::", @$namelets), $infile, $outfile, $namelets ]
+     #            0               1         2         3
+    ;
+    DEBUG > 3 and print STDERR "Noting @$c[-1]\n";
+  }
+  return;
+}
+
+#_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-
+
+sub write_contents_file {
+  my($self, $outdir) = @_;
+  my $outfile  = $self->_contents_filespec($outdir) || return;
+
+  $self->muse("Preparing list of modules for ToC");
+
+  my($toplevel,           # maps  toplevelbit => [all submodules]
+     $toplevel_form_freq, # ends up being  'foo' => 'Foo'
+    ) = $self->_prep_contents_breakdown;
+
+  my $Contents = eval { $self->_wopen($outfile) };
+  if( $Contents ) {
+    $self->muse( "Writing contents file $outfile" );
+  } else {
+    warn "Couldn't write-open contents file $outfile: $!\nAbort writing to $outfile at all";
+    return;
+  }
+
+  $self->_write_contents_start(  $Contents, $outfile, );
+  $self->_write_contents_middle( $Contents, $outfile, $toplevel, $toplevel_form_freq );
+  $self->_write_contents_end(    $Contents, $outfile, );
+  return $outfile;
+}
+
+# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+sub _write_contents_start {
+  my($self, $Contents, $outfile) = @_;
+  my $starter = $self->contents_page_start || '';
+  
+  {
+    my $css_wad = $self->_css_wad_to_markup(1);
+    if( $css_wad ) {
+      $starter =~ s{(</head>)}{\n$css_wad\n$1}i;  # otherwise nevermind
+    }
+    
+    my $javascript_wad = $self->_javascript_wad_to_markup(1);
+    if( $javascript_wad ) {
+      $starter =~ s{(</head>)}{\n$javascript_wad\n$1}i;   # otherwise nevermind
+    }
+  }
+
+  unless(print $Contents $starter, "<dl class='superindex'>\n" ) {
+    warn "Couldn't print to $outfile: $!\nAbort writing to $outfile at all";
+    close($Contents);
+    return 0;
+  }
+  return 1;
+}
+
+# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+sub _write_contents_middle {
+  my($self, $Contents, $outfile, $toplevel2submodules, $toplevel_form_freq) = @_;
+
+  foreach my $t (sort keys %$toplevel2submodules) {
+    my @downlines = sort {$a->[-1] cmp $b->[-1]}
+                          @{ $toplevel2submodules->{$t} };
+    
+    printf $Contents qq[<dt><a name="%s">%s</a></dt>\n<dd>\n],
+      esc( $t, $toplevel_form_freq->{$t} )
+    ;
+    
+    my($path, $name);
+    foreach my $e (@downlines) {
+      $name = $e->[0];
+      $path = join( "/", '.', esc( @{$e->[3]} ) )
+        . ($HTML_EXTENSION || $Pod::Simple::HTML::HTML_EXTENSION);
+      print $Contents qq{  <a href="$path">}, esc($name), "</a>&nbsp;&nbsp;\n";
+    }
+    print $Contents "</dd>\n\n";
+  }
+  return 1;
+}
+
+# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+sub _write_contents_end {
+  my($self, $Contents, $outfile) = @_;
+  unless(
+    print $Contents "</dl>\n",
+      $self->contents_page_end || '',
+  ) {
+    warn "Couldn't write to $outfile: $!";
+  }
+  close($Contents) or warn "Couldn't close $outfile: $!";
+  return 1;
+}
+
+# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+sub _prep_contents_breakdown {
+  my($self) = @_;
+  my $contents = $self->_contents;
+  my %toplevel; # maps  lctoplevelbit => [all submodules]
+  my %toplevel_form_freq; # ends up being  'foo' => 'Foo'
+                               # (mapping anycase forms to most freq form)
+  
+  foreach my $entry (@$contents) {
+    my $toplevel = 
+      $entry->[0] =~ m/^perl\w*$/ ? 'perl_core_docs'
+          # group all the perlwhatever docs together
+      : $entry->[3][0] # normal case
+    ;
+    ++$toplevel_form_freq{ lc $toplevel }{ $toplevel };
+    push @{ $toplevel{ lc $toplevel } }, $entry;
+    push @$entry, lc($entry->[0]); # add a sort-order key to the end
+  }
+
+  foreach my $toplevel (sort keys %toplevel) {
+    my $fgroup = $toplevel_form_freq{$toplevel};
+    $toplevel_form_freq{$toplevel} =
+    (
+      sort { $fgroup->{$b} <=> $fgroup->{$a}  or  $a cmp $b }
+        keys %$fgroup
+      # This hash is extremely unlikely to have more than 4 members, so this
+      # sort isn't so very wasteful
+    )[0];
+  }
+
+  return(\%toplevel, \%toplevel_form_freq) if wantarray;
+  return \%toplevel;
+}
+
+# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+sub _contents_filespec {
+  my($self, $outdir) = @_;
+  my $outfile = $self->contents_file;
+  return unless $outfile;
+  return $self->filespecsys->catfile( $outdir, $outfile );
+}
+
+#_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-
+
+sub makepath {
+  my($self, $outdir, $namelets) = @_;
+  return unless @$namelets > 1;
+  for my $i (0 .. ($#$namelets - 1)) {
+    my $dir = $self->filespecsys->catdir( $outdir, @$namelets[0 .. $i] );
+    if(-e $dir) {
+      die "$dir exists but not as a directory!?" unless -d $dir;
+      next;
+    }
+    DEBUG > 3 and print STDERR "  Making $dir\n";
+    mkdir $dir, 0777
+     or die "Can't mkdir $dir: $!\nAborting"
+    ;
+  }
+  return;
+}
+
+#_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-
+
+sub batch_mode_page_object_init {
+  my $self = shift;
+  my($page, $module, $infile, $outfile, $depth) = @_;
+  
+  # TODO: any further options to percolate onto this new object here?
+
+  $page->default_title($module);
+  $page->index( $self->index );
+
+  $page->html_css(        $self->       _css_wad_to_markup($depth) );
+  $page->html_javascript( $self->_javascript_wad_to_markup($depth) );
+
+  $self->add_header_backlink($page, $module, $infile, $outfile, $depth);
+  $self->add_footer_backlink($page, $module, $infile, $outfile, $depth);
+
+
+  return $self;
+}
+
+# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+sub add_header_backlink {
+  my $self = shift;
+  return if $self->no_contents_links;
+  my($page, $module, $infile, $outfile, $depth) = @_;
+  $page->html_header_after_title( join '',
+    $page->html_header_after_title || '',
+
+    qq[<p class="backlinktop"><b><a name="___top" href="],
+    $self->url_up_to_contents($depth),
+    qq[" accesskey="1" title="All Documents">&lt;&lt;</a></b></p>\n],
+  )
+   if $self->contents_file
+  ;
+  return;
+}
+
+sub add_footer_backlink {
+  my $self = shift;
+  return if $self->no_contents_links;
+  my($page, $module, $infile, $outfile, $depth) = @_;
+  $page->html_footer( join '',
+    qq[<p class="backlinkbottom"><b><a name="___bottom" href="],
+    $self->url_up_to_contents($depth),
+    qq[" title="All Documents">&lt;&lt;</a></b></p>\n],
+    
+    $page->html_footer || '',
+  )
+   if $self->contents_file
+  ;
+  return;
+}
+
+sub url_up_to_contents {
+  my($self, $depth) = @_;
+  --$depth;
+  return join '/', ('..') x $depth, esc($self->contents_file);
+}
+
+#_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-
+
+sub find_all_pods {
+  my($self, $dirs) = @_;
+  # You can override find_all_pods in a subclass if you want to
+  #  do extra filtering or whatnot.  But for the moment, we just
+  #  pass to modnames2paths:
+  return $self->modnames2paths($dirs);
+}
+
+#_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-
+
+sub modnames2paths { # return a hashref mapping modulenames => paths
+  my($self, $dirs) = @_;
+
+  my $m2p;
+  {
+    my $search = $self->search_class->new;
+    DEBUG and print STDERR "Searching via $search\n";
+    $search->verbose(1) if DEBUG > 10;
+    $search->progress( $self->progress->copy->goal(0) ) if $self->progress;
+    $search->shadows(0);  # don't bother noting shadowed files
+    $search->inc(     $dirs ? 0      :  1 );
+    $search->survey(  $dirs ? @$dirs : () );
+    $m2p = $search->name2path;
+    die "What, no name2path?!" unless $m2p;
+  }
+
+  $self->muse("That's odd... no modules found!") unless keys %$m2p;
+  if( DEBUG > 4 ) {
+    print STDERR "Modules found (name => path):\n";
+    foreach my $m (sort {lc($a) cmp lc($b)} keys %$m2p) {
+      print STDERR "  $m  $$m2p{$m}\n";
+    }
+    print STDERR "(total ",     scalar(keys %$m2p), ")\n\n";
+  } elsif( DEBUG ) {
+    print STDERR      "Found ", scalar(keys %$m2p), " modules.\n";
+  }
+  $self->muse( "Found ", scalar(keys %$m2p), " modules." );
+  
+  # return the Foo::Bar => /whatever/Foo/Bar.pod|pm hashref
+  return $m2p;
+}
+
+#===========================================================================
+
+sub _wopen {
+  # this is abstracted out so that the daemon class can override it
+  my($self, $outpath) = @_;
+  require Symbol;
+  my $out_fh = Symbol::gensym();
+  DEBUG > 5 and print STDERR "Write-opening to $outpath\n";
+  return $out_fh if open($out_fh, "> $outpath");
+  require Carp;  
+  Carp::croak("Can't write-open $outpath: $!");
+}
+
+#==========================================================================
+
+sub add_css {
+  my($self, $url, $is_default, $name, $content_type, $media, $_code) = @_;
+  return unless $url;
+  unless($name) {
+    # cook up a reasonable name based on the URL
+    $name = $url;
+    if( $name !~ m/\?/ and $name =~ m{([^/]+)$}s ) {
+      $name = $1;
+      $name =~ s/\.css//i;
+    }
+  }
+  $media        ||= 'all';
+  $content_type ||= 'text/css';
+  
+  my $bunch = [$url, $name, $content_type, $media, $_code];
+  if($is_default) { unshift @{ $self->_css_wad }, $bunch }
+  else            { push    @{ $self->_css_wad }, $bunch }
+  return;
+}
+
+# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+sub _spray_css {
+  my($self, $outdir) = @_;
+
+  return unless $self->css_flurry();
+  $self->_gen_css_wad();
+
+  my $lol = $self->_css_wad;
+  foreach my $chunk (@$lol) {
+    my $url = $chunk->[0];
+    my $outfile;
+    if( ref($chunk->[-1]) and $url =~ m{^(_[-a-z0-9_]+\.css$)} ) {
+      $outfile = $self->filespecsys->catfile( $outdir, "$1" );
+      DEBUG > 5 and print STDERR "Noting $$chunk[0] as a file I'll create.\n";
+    } else {
+      DEBUG > 5 and print STDERR "OK, noting $$chunk[0] as an external CSS.\n";
+      # Requires no further attention.
+      next;
+    }
+    
+    #$self->muse( "Writing autogenerated CSS file $outfile" );
+    my $Cssout = $self->_wopen($outfile);
+    print $Cssout ${$chunk->[-1]}
+     or warn "Couldn't print to $outfile: $!\nAbort writing to $outfile at all";
+    close($Cssout);
+    DEBUG > 5 and print STDERR "Wrote $outfile\n";
+  }
+
+  return;
+}
+
+# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+sub _css_wad_to_markup {
+  my($self, $depth) = @_;
+  
+  my @css  = @{ $self->_css_wad || return '' };
+  return '' unless @css;
+  
+  my $rel = 'stylesheet';
+  my $out = '';
+
+  --$depth;
+  my $uplink = $depth ? ('../' x $depth) : '';
+
+  foreach my $chunk (@css) {
+    next unless $chunk and @$chunk;
+
+    my( $url1, $url2, $title, $type, $media) = (
+      $self->_maybe_uplink( $chunk->[0], $uplink ),
+      esc(grep !ref($_), @$chunk)
+    );
+
+    $out .= qq{<link rel="$rel" title="$title" type="$type" href="$url1$url2" media="$media" >\n};
+
+    $rel = 'alternate stylesheet'; # alternates = all non-first iterations
+  }
+  return $out;
+}
+
+# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+sub _maybe_uplink {
+  # if the given URL looks relative, return the given uplink string --
+  # otherwise return emptystring
+  my($self, $url, $uplink) = @_;
+  ($url =~ m{^\./} or $url !~ m{[/\:]} )
+    ? $uplink
+    : ''
+    # qualify it, if/as needed
+}
+
+# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+sub _gen_css_wad {
+  my $self = $_[0];
+  my $css_template = $self->_css_template;
+  foreach my $variation (
+
+   # Commented out for sake of concision:
+   #
+   #  011n=black_with_red_on_white
+   #  001n=black_with_yellow_on_white
+   #  101n=black_with_green_on_white
+   #  110=white_with_yellow_on_black
+   #  010=white_with_green_on_black
+   #  011=white_with_blue_on_black
+   #  100=white_with_red_on_black
+    '110n=blkbluw',  # black_with_blue_on_white
+    '010n=blkmagw',  # black_with_magenta_on_white
+    '100n=blkcynw',  # black_with_cyan_on_white
+    '101=whtprpk',   # white_with_purple_on_black
+    '001=whtnavk',   # white_with_navy_blue_on_black
+    '010a=grygrnk',  # grey_with_green_on_black
+    '010b=whtgrng',  # white_with_green_on_grey
+    '101an=blkgrng', # black_with_green_on_grey
+    '101bn=grygrnw', # grey_with_green_on_white
+  ) {
+
+    my $outname = $variation;
+    my($flipmode, @swap) = ( ($4 || ''), $1,$2,$3)
+      if $outname =~ s/^([012])([012])([[012])([a-z]*)=?//s;
+    @swap = () if '010' eq join '', @swap; # 010 is a swop-no-op!
+  
+    my $this_css =
+      "/* This file is autogenerated.  Do not edit.  $variation */\n\n"
+      . $css_template;
+
+    # Only look at three-digitty colors, for now at least.
+    if( $flipmode =~ m/n/ ) {
+      $this_css =~ s/(#[0-9a-fA-F]{3})\b/_color_negate($1)/eg;
+      $this_css =~ s/\bthin\b/medium/g;
+    }
+    $this_css =~ s<#([0-9a-fA-F])([0-9a-fA-F])([0-9a-fA-F])\b>
+                  < join '', '#', ($1,$2,$3)[@swap] >eg   if @swap;
+
+    if(   $flipmode =~ m/a/)
+       { $this_css =~ s/#fff\b/#999/gi } # black -> dark grey
+    elsif($flipmode =~ m/b/)
+       { $this_css =~ s/#000\b/#666/gi } # white -> light grey
+
+    my $name = $outname;    
+    $name =~ tr/-_/  /;
+    $self->add_css( "_$outname.css", 0, $name, 0, 0, \$this_css);
+  }
+
+  # Now a few indexless variations:
+  foreach my $variation (
+      'blkbluw', # black_with_blue_on_white
+      'whtpurk', # white_with_purple_on_black
+      'whtgrng', # white_with_green_on_grey
+      'grygrnw', # grey_with_green_on_white
+  ) {
+    my $outname = $variation;
+    my $this_css = join "\n",
+      "/* This file is autogenerated.  Do not edit.  $outname */\n",
+      "\@import url(\"./_$variation.css\");",
+      ".indexgroup { display: none; }",
+      "\n",
+    ;
+    my $name = $outname;    
+    $name =~ tr/-_/  /;
+    $self->add_css( "_$outname.css", 0, $name, 0, 0, \$this_css);
+  }
+
+  return;
+}
+
+sub _color_negate {
+  my $x = lc $_[0];
+  $x =~ tr[0123456789abcdef]
+          [fedcba9876543210];
+  return $x;
+}
+
+#===========================================================================
+
+sub add_javascript {
+  my($self, $url, $content_type, $_code) = @_;
+  return unless $url;
+  push  @{ $self->_javascript_wad }, [
+    $url, $content_type || 'text/javascript', $_code
+  ];
+  return;
+}
+
+sub _spray_javascript {
+  my($self, $outdir) = @_;
+  return unless $self->javascript_flurry();
+  $self->_gen_javascript_wad();
+
+  my $lol = $self->_javascript_wad;
+  foreach my $script (@$lol) {
+    my $url = $script->[0];
+    my $outfile;
+    
+    if( ref($script->[-1]) and $url =~ m{^(_[-a-z0-9_]+\.js$)} ) {
+      $outfile = $self->filespecsys->catfile( $outdir, "$1" );
+      DEBUG > 5 and print STDERR "Noting $$script[0] as a file I'll create.\n";
+    } else {
+      DEBUG > 5 and print STDERR "OK, noting $$script[0] as an external JavaScript.\n";
+      next;
+    }
+    
+    #$self->muse( "Writing JavaScript file $outfile" );
+    my $Jsout = $self->_wopen($outfile);
+
+    print $Jsout ${$script->[-1]}
+     or warn "Couldn't print to $outfile: $!\nAbort writing to $outfile at all";
+    close($Jsout);
+    DEBUG > 5 and print STDERR "Wrote $outfile\n";
+  }
+
+  return;
+}
+
+sub _gen_javascript_wad {
+  my $self = $_[0];
+  my $js_code = $self->_javascript || return;
+  $self->add_javascript( "_podly.js", 0, \$js_code);
+  return;
+}
+
+sub _javascript_wad_to_markup {
+  my($self, $depth) = @_;
+  
+  my @scripts  = @{ $self->_javascript_wad || return '' };
+  return '' unless @scripts;
+  
+  my $out = '';
+
+  --$depth;
+  my $uplink = $depth ? ('../' x $depth) : '';
+
+  foreach my $s (@scripts) {
+    next unless $s and @$s;
+
+    my( $url1, $url2, $type, $media) = (
+      $self->_maybe_uplink( $s->[0], $uplink ),
+      esc(grep !ref($_), @$s)
+    );
+
+    $out .= qq{<script type="$type" src="$url1$url2"></script>\n};
+  }
+  return $out;
+}
+
+#===========================================================================
+
+sub _css_template { return $CSS }
+sub _javascript   { return $JAVASCRIPT }
+
+$CSS = <<'EOCSS';
+/* For accessibility reasons, never specify text sizes in px/pt/pc/in/cm/mm */
+
+@media all { .hide { display: none; } }
+
+@media print {
+  .noprint, div.indexgroup, .backlinktop, .backlinkbottom { display: none }
+
+  * {
+    border-color: black !important;
+    color: black !important;
+    background-color: transparent !important;
+    background-image: none !important;
+  }
+
+  dl.superindex > dd  {
+    word-spacing: .6em;
+  }
+}
+
+@media aural, braille, embossed {
+  div.indexgroup  { display: none; }  /* Too noisy, don't you think? */
+  dl.superindex > dt:before { content: "Group ";  }
+  dl.superindex > dt:after  { content: " contains:"; }
+  .backlinktop    a:before  { content: "Back to contents"; }
+  .backlinkbottom a:before  { content: "Back to contents"; }
+}
+
+@media aural {
+  dl.superindex > dt  { pause-before: 600ms; }
+}
+
+@media screen, tty, tv, projection {
+  .noscreen { display: none; }
+
+  a:link    { color: #7070ff; text-decoration: underline; }
+  a:visited { color: #e030ff; text-decoration: underline; }
+  a:active  { color: #800000; text-decoration: underline; }
+  body.contentspage a            { text-decoration: none; }
+  a.u { color: #fff !important; text-decoration: none; }
+
+  body.pod {
+    margin: 0 5px;
+    color:            #fff;
+    background-color: #000;
+  }
+
+  body.pod h1, body.pod h2, body.pod h3, body.pod h4  {
+    font-family: Tahoma, Verdana, Helvetica, Arial, sans-serif;
+    font-weight: normal;
+    margin-top: 1.2em;
+    margin-bottom: .1em;
+    border-top: thin solid transparent;
+    /* margin-left: -5px;  border-left: 2px #7070ff solid;  padding-left: 3px; */
+  }
+  
+  body.pod h1  { border-top-color: #0a0; }
+  body.pod h2  { border-top-color: #080; }
+  body.pod h3  { border-top-color: #040; }
+  body.pod h4  { border-top-color: #010; }
+
+  p.backlinktop + h1 { border-top: none; margin-top: 0em;  }
+  p.backlinktop + h2 { border-top: none; margin-top: 0em;  }
+  p.backlinktop + h3 { border-top: none; margin-top: 0em;  }
+  p.backlinktop + h4 { border-top: none; margin-top: 0em;  }
+
+  body.pod dt {
+    font-size: 105%; /* just a wee bit more than normal */
+  }
+
+  .indexgroup { font-size: 80%; }
+
+  .backlinktop,   .backlinkbottom    {
+    margin-left:  -5px;
+    margin-right: -5px;
+    background-color:         #040;
+    border-top:    thin solid #050;
+    border-bottom: thin solid #050;
+  }
+  
+  .backlinktop a, .backlinkbottom a  {
+    text-decoration: none;
+    color: #080;
+    background-color:  #000;
+    border: thin solid #0d0;
+  }
+  .backlinkbottom { margin-bottom: 0; padding-bottom: 0; }
+  .backlinktop    { margin-top:    0; padding-top:    0; }
+
+  body.contentspage {
+    color:            #fff;
+    background-color: #000;
+  }
+  
+  body.contentspage h1  {
+    color:            #0d0;
+    margin-left: 1em;
+    margin-right: 1em;
+    text-indent: -.9em;
+    font-family: Tahoma, Verdana, Helvetica, Arial, sans-serif;
+    font-weight: normal;
+    border-top:    thin solid #fff;
+    border-bottom: thin solid #fff;
+    text-align: center;
+  }
+
+  dl.superindex > dt  {
+    font-family: Tahoma, Verdana, Helvetica, Arial, sans-serif;
+    font-weight: normal;
+    font-size: 90%;
+    margin-top: .45em;
+    /* margin-bottom: -.15em; */
+  }
+  dl.superindex > dd  {
+    word-spacing: .6em;    /* most important rule here! */
+  }
+  dl.superindex > a:link  {
+    text-decoration: none;
+    color: #fff;
+  }
+
+  .contentsfooty {
+    border-top: thin solid #999;
+    font-size: 90%;
+  }
+  
+}
+
+/* The End */
+
+EOCSS
+
+#==========================================================================
+
+$JAVASCRIPT = <<'EOJAVASCRIPT';
+
+// From http://www.alistapart.com/articles/alternate/
+
+function setActiveStyleSheet(title) {
+  var i, a, main;
+  for(i=0  ;  (a = document.getElementsByTagName("link")[i])  ;  i++) {
+    if(a.getAttribute("rel").indexOf("style") != -1 && a.getAttribute("title")) {
+      a.disabled = true;
+      if(a.getAttribute("title") == title) a.disabled = false;
+    }
+  }
+}
+
+function getActiveStyleSheet() {
+  var i, a;
+  for(i=0  ;  (a = document.getElementsByTagName("link")[i])  ;  i++) {
+    if(   a.getAttribute("rel").indexOf("style") != -1
+       && a.getAttribute("title")
+       && !a.disabled
+       ) return a.getAttribute("title");
+  }
+  return null;
+}
+
+function getPreferredStyleSheet() {
+  var i, a;
+  for(i=0  ;  (a = document.getElementsByTagName("link")[i])  ;  i++) {
+    if(   a.getAttribute("rel").indexOf("style") != -1
+       && a.getAttribute("rel").indexOf("alt") == -1
+       && a.getAttribute("title")
+       ) return a.getAttribute("title");
+  }
+  return null;
+}
+
+function createCookie(name,value,days) {
+  if (days) {
+    var date = new Date();
+    date.setTime(date.getTime()+(days*24*60*60*1000));
+    var expires = "; expires="+date.toGMTString();
+  }
+  else expires = "";
+  document.cookie = name+"="+value+expires+"; path=/";
+}
+
+function readCookie(name) {
+  var nameEQ = name + "=";
+  var ca = document.cookie.split(';');
+  for(var i=0  ;  i < ca.length  ;  i++) {
+    var c = ca[i];
+    while (c.charAt(0)==' ') c = c.substring(1,c.length);
+    if (c.indexOf(nameEQ) == 0) return c.substring(nameEQ.length,c.length);
+  }
+  return null;
+}
+
+window.onload = function(e) {
+  var cookie = readCookie("style");
+  var title = cookie ? cookie : getPreferredStyleSheet();
+  setActiveStyleSheet(title);
+}
+
+window.onunload = function(e) {
+  var title = getActiveStyleSheet();
+  createCookie("style", title, 365);
+}
+
+var cookie = readCookie("style");
+var title = cookie ? cookie : getPreferredStyleSheet();
+setActiveStyleSheet(title);
+
+// The End
+
+EOJAVASCRIPT
+
+# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+1;
+__END__
+
+
+=head1 NAME
+
+Pod::Simple::HTMLBatch - convert several Pod files to several HTML files
+
+=head1 SYNOPSIS
+
+  perl -MPod::Simple::HTMLBatch -e 'Pod::Simple::HTMLBatch::go' in out
+
+
+=head1 DESCRIPTION
+
+This module is used for running batch-conversions of a lot of HTML
+documents 
+
+This class is NOT a subclass of Pod::Simple::HTML
+(nor of bad old Pod::Html) -- although it uses
+Pod::Simple::HTML for doing the conversion of each document.
+
+The normal use of this class is like so:
+
+  use Pod::Simple::HTMLBatch;
+  my $batchconv = Pod::Simple::HTMLBatch->new;
+  $batchconv->some_option( some_value );
+  $batchconv->some_other_option( some_other_value );
+  $batchconv->batch_convert( \@search_dirs, $output_dir );
+
+=head2 FROM THE COMMAND LINE
+
+Note that this class also provides
+(but does not export) the function Pod::Simple::HTMLBatch::go.
+This is basically just a shortcut for C<<
+Pod::Simple::HTMLBatch->batch_convert(@ARGV) >>.
+It's meant to be handy for calling from the command line.
+
+However, the shortcut requires that you specify exactly two command-line
+arguments, C<indirs> and C<outdir>.
+
+Example:
+
+  % mkdir out_html
+  % perl -MPod::Simple::HTMLBatch -e Pod::Simple::HTMLBatch::go @INC out_html
+      (to convert the pod from Perl's @INC
+       files under the directory ./out_html)
+
+(Note that the command line there contains a literal atsign-I-N-C.  This
+is handled as a special case by batch_convert, in order to save you having
+to enter the odd-looking "" as the first command-line parameter when you
+mean "just use whatever's in @INC".)
+
+Example:
+
+  % mkdir ../seekrut
+  % chmod og-rx ../seekrut
+  % perl -MPod::Simple::HTMLBatch -e Pod::Simple::HTMLBatch::go . ../seekrut
+      (to convert the pod under the current dir into HTML
+       files under the directory ./seekrut)
+
+Example:
+
+  % perl -MPod::Simple::HTMLBatch -e Pod::Simple::HTMLBatch::go happydocs .
+      (to convert all pod from happydocs into the current directory)
+
+
+
+=head1 MAIN METHODS
+
+=over
+
+=item $batchconv = Pod::Simple::HTMLBatch->new;
+
+This TODO
+
+
+=item $batchconv->batch_convert( I<indirs>, I<outdir> );
+
+this TODO
+
+=item $batchconv->batch_convert( undef    , ...);
+
+=item $batchconv->batch_convert( q{@INC}, ...);
+
+These two values for I<indirs> specify that the normal Perl @INC
+
+=item $batchconv->batch_convert( \@dirs , ...);
+
+This specifies that the input directories are the items in
+the arrayref C<\@dirs>.
+
+=item $batchconv->batch_convert( "somedir" , ...);
+
+This specifies that the director "somedir" is the input.
+(This can be an absolute or relative path, it doesn't matter.)
+
+A common value you might want would be just "." for the current
+directory:
+
+     $batchconv->batch_convert( "." , ...);
+
+
+=item $batchconv->batch_convert( 'somedir:someother:also' , ...);
+
+This specifies that you want the dirs "somedir", "someother", and "also"
+scanned, just as if you'd passed the arrayref
+C<[qw( somedir someother also)]>.  Note that a ":"-separator is normal
+under Unix, but Under MSWin, you'll need C<'somedir;someother;also'>
+instead, since the pathsep on MSWin is ";" instead of ":".  (And
+I<that> is because ":" often comes up in paths, like
+C<"c:/perl/lib">.)
+
+(Exactly what separator character should be used, is gotten from
+C<$Config::Config{'path_sep'}>, via the L<Config> module.)
+
+=item $batchconv->batch_convert( ... , undef );
+
+This specifies that you want the HTML output to go into the current
+directory.
+
+(Note that a missing or undefined value means a different thing in
+the first slot than in the second.  That's so that C<batch_convert()>
+with no arguments (or undef arguments) means "go from @INC, into
+the current directory.)
+
+=item $batchconv->batch_convert( ... , 'somedir' );
+
+This specifies that you want the HTML output to go into the
+directory 'somedir'.
+(This can be an absolute or relative path, it doesn't matter.)
+
+=back
+
+
+Note that you can also call C<batch_convert> as a class method,
+like so:
+
+  Pod::Simple::HTMLBatch->batch_convert( ... );
+
+That is just short for this:
+
+  Pod::Simple::HTMLBatch-> new-> batch_convert(...);
+
+That is, it runs a conversion with default options, for
+whatever inputdirs and output dir you specify.
+
+
+=head2 ACCESSOR METHODS
+
+The following are all accessor methods -- that is, they don't do anything
+on their own, but just alter the contents of the conversion object,
+which comprises the options for this particular batch conversion.
+
+We show the "put" form of the accessors below (i.e., the syntax you use
+for setting the accessor to a specific value).  But you can also
+call each method with no parameters to get its current value.  For
+example, C<< $self->contents_file() >> returns the current value of
+the contents_file attribute.
+
+=over
+
+
+=item $batchconv->verbose( I<nonnegative_integer> );
+
+This controls how verbose to be during batch conversion, as far as
+notes to STDOUT (or whatever is C<select>'d) about how the conversion
+is going.  If 0, no progress information is printed.
+If 1 (the default value), some progress information is printed.
+Higher values print more information.
+
+
+=item $batchconv->index( I<true-or-false> );
+
+This controls whether or not each HTML page is liable to have a little
+table of contents at the top (which we call an "index" for historical
+reasons).  This is true by default.
+
+
+=item $batchconv->contents_file( I<filename> );
+
+If set, should be the name of a file (in the output directory)
+to write the HTML index to.  The default value is "index.html".
+If you set this to a false value, no contents file will be written.
+
+=item $batchconv->contents_page_start( I<HTML_string> );
+
+This specifies what string should be put at the beginning of
+the contents page.
+The default is a string more or less like this:
+
+  <html>
+  <head><title>Perl Documentation</title></head>
+  <body class='contentspage'>
+  <h1>Perl Documentation</h1>
+
+=item $batchconv->contents_page_end( I<HTML_string> );
+
+This specifies what string should be put at the end of the contents page.
+The default is a string more or less like this:
+
+  <p class='contentsfooty'>Generated by
+  Pod::Simple::HTMLBatch v3.01 under Perl v5.008
+  <br >At Fri May 14 22:26:42 2004 GMT,
+  which is Fri May 14 14:26:42 2004 local time.</p>
+
+
+
+=item $batchconv->add_css( $url );
+
+TODO
+
+=item $batchconv->add_javascript( $url );
+
+TODO
+
+=item $batchconv->css_flurry( I<true-or-false> );
+
+If true (the default value), we autogenerate some CSS files in the
+output directory, and set our HTML files to use those.
+TODO: continue
+
+=item $batchconv->javascript_flurry( I<true-or-false> );
+
+If true (the default value), we autogenerate a JavaScript in the
+output directory, and set our HTML files to use it.  Currently,
+the JavaScript is used only to get the browser to remember what
+stylesheet it prefers.
+TODO: continue
+
+=item $batchconv->no_contents_links( I<true-or-false> );
+
+TODO
+
+=item $batchconv->html_render_class( I<classname> );
+
+This sets what class is used for rendering the files.
+The default is "Pod::Simple::HTML".  If you set it to something else,
+it should probably be a subclass of Pod::Simple::HTML, and you should
+C<require> or C<use> that class so that's it's loaded before
+Pod::Simple::HTMLBatch tries loading it.
+
+=item $batchconv->search_class( I<classname> );
+
+This sets what class is used for searching for the files.
+The default is "Pod::Simple::Search".  If you set it to something else,
+it should probably be a subclass of Pod::Simple::Search, and you should
+C<require> or C<use> that class so that's it's loaded before
+Pod::Simple::HTMLBatch tries loading it.
+
+=back
+
+
+
+
+=head1 NOTES ON CUSTOMIZATION
+
+TODO
+
+  call add_css($someurl) to add stylesheet as alternate
+  call add_css($someurl,1) to add as primary stylesheet
+
+  call add_javascript
+
+  subclass Pod::Simple::HTML and set $batchconv->html_render_class to
+    that classname
+  and maybe override
+    $page->batch_mode_page_object_init($self, $module, $infile, $outfile, $depth)
+  or maybe override
+    $batchconv->batch_mode_page_object_init($page, $module, $infile, $outfile, $depth)
+  subclass Pod::Simple::Search and set $batchconv->search_class to
+    that classname
+
+
+=head1 SEE ALSO
+
+L<Pod::Simple>, L<Pod::Simple::HTMLBatch>, L<perlpod>, L<perlpodspec>
+
+=head1 SUPPORT
+
+Questions or discussion about POD and Pod::Simple should be sent to the
+pod-people@perl.org mail list. Send an empty email to
+pod-people-subscribe@perl.org to subscribe.
+
+This module is managed in an open GitHub repository,
+L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or
+to clone L<git://github.com/perl-pod/pod-simple.git> and send patches!
+
+Patches against Pod::Simple are welcome. Please send bug reports to
+<bug-pod-simple@rt.cpan.org>.
+
+=head1 COPYRIGHT AND DISCLAIMERS
+
+Copyright (c) 2002 Sean M. Burke.
+
+This library is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+This program is distributed in the hope that it will be useful, but
+without any warranty; without even the implied warranty of
+merchantability or fitness for a particular purpose.
+
+=head1 AUTHOR
+
+Pod::Simple was created by Sean M. Burke <sburke@cpan.org>.
+But don't bother him, he's retired.
+
+Pod::Simple is maintained by:
+
+=over
+
+=item * Allison Randal C<allison@perl.org>
+
+=item * Hans Dieter Pearcey C<hdp@cpan.org>
+
+=item * David E. Wheeler C<dwheeler@cpan.org>
+
+=back
+
+=cut
diff --git a/lib/5.24.1/Pod/Simple/HTMLLegacy.pm b/lib/5.24.1/Pod/Simple/HTMLLegacy.pm
new file mode 100644
index 00000000..f78de901
--- /dev/null
+++ b/lib/5.24.1/Pod/Simple/HTMLLegacy.pm
@@ -0,0 +1,104 @@
+
+require 5;
+package Pod::Simple::HTMLLegacy;
+use strict;
+
+use vars qw($VERSION);
+use Getopt::Long;
+
+$VERSION = "5.01";
+
+#--------------------------------------------------------------------------
+# 
+# This class is meant to thinly emulate bad old Pod::Html
+#
+# TODO: some basic docs
+
+sub pod2html {
+  my @args = (@_);
+  
+  my( $verbose, $infile, $outfile, $title );
+  my $index = 1;
+ 
+  {
+    my($help);
+
+    my($netscape); # dummy
+    local @ARGV = @args;
+    GetOptions(
+      "help"       => \$help,
+      "verbose!"   => \$verbose,
+      "infile=s"   => \$infile,
+      "outfile=s"  => \$outfile,
+      "title=s"    => \$title,
+      "index!"     => \$index,
+
+      "netscape!"   => \$netscape,
+    ) or return bad_opts(@args);
+    bad_opts(@args) if @ARGV; # it should be all switches!
+    return help_message() if $help;
+  }
+
+  for($infile, $outfile) { $_ = undef unless defined and length }
+  
+  if($verbose) {
+    warn sprintf "%s version %s\n", __PACKAGE__, $VERSION;
+    warn "OK, processed args [@args] ...\n";
+    warn sprintf
+      " Verbose: %s\n Index: %s\n Infile: %s\n Outfile: %s\n Title: %s\n",
+      map defined($_) ? $_ : "(nil)",
+       $verbose,     $index,     $infile,     $outfile,     $title,
+    ;
+    *Pod::Simple::HTML::DEBUG = sub(){1};
+  }
+  require Pod::Simple::HTML;
+  Pod::Simple::HTML->VERSION(3);
+  
+  die "No such input file as $infile\n"
+   if defined $infile and ! -e $infile;
+
+  
+  my $pod = Pod::Simple::HTML->new;
+  $pod->force_title($title) if defined $title;
+  $pod->index($index);
+  return $pod->parse_from_file($infile, $outfile);
+}
+
+#--------------------------------------------------------------------------
+
+sub bad_opts     { die _help_message();         }
+sub help_message { print STDOUT _help_message() }
+
+#--------------------------------------------------------------------------
+
+sub _help_message {
+
+  join '',
+
+"[", __PACKAGE__, " version ", $VERSION, qq~]
+Usage:  pod2html --help --infile=<name> --outfile=<name>
+   --verbose --index --noindex
+
+Options:
+  --help         - prints this message.
+  --[no]index    - generate an index at the top of the resulting html
+                   (default behavior).
+  --infile       - filename for the pod to convert (input taken from stdin
+                   by default).
+  --outfile      - filename for the resulting html file (output sent to
+                   stdout by default).
+  --title        - title that will appear in resulting html file.
+  --[no]verbose  - self-explanatory (off by default).
+
+Note that pod2html is DEPRECATED, and this version implements only
+ some of the options known to older versions.
+For more information, see 'perldoc pod2html'.
+~;
+
+}
+
+1;
+__END__
+
+OVER the underpass! UNDER the overpass! Around the FUTURE and BEYOND REPAIR!!
+
diff --git a/lib/5.24.1/Pod/Simple/LinkSection.pm b/lib/5.24.1/Pod/Simple/LinkSection.pm
new file mode 100644
index 00000000..0d487313
--- /dev/null
+++ b/lib/5.24.1/Pod/Simple/LinkSection.pm
@@ -0,0 +1,174 @@
+
+require 5;
+package Pod::Simple::LinkSection;
+  # Based somewhat dimly on Array::Autojoin
+use vars qw($VERSION );
+$VERSION = '3.32';
+
+use strict;
+use Pod::Simple::BlackBox;
+use vars qw($VERSION );
+$VERSION = '3.32';
+
+use overload( # So it'll stringify nice
+  '""'   => \&Pod::Simple::BlackBox::stringify_lol,
+  'bool' => \&Pod::Simple::BlackBox::stringify_lol,
+  # '.='   => \&tack_on,  # grudgingly support
+  
+  'fallback' => 1,         # turn on cleverness
+);
+
+sub tack_on {
+  $_[0] = ['', {}, "$_[0]" ];
+  return $_[0][2] .= $_[1];
+}
+
+sub as_string {
+  goto &Pod::Simple::BlackBox::stringify_lol;
+}
+sub stringify {
+  goto &Pod::Simple::BlackBox::stringify_lol;
+}
+
+sub new {
+  my $class = shift;
+  $class = ref($class) || $class;
+  my $new;
+  if(@_ == 1) {
+    if (!ref($_[0] || '')) { # most common case: one bare string
+      return bless ['', {}, $_[0] ], $class;
+    } elsif( ref($_[0] || '') eq 'ARRAY') {
+      $new = [ @{ $_[0] } ];
+    } else {
+      Carp::croak( "$class new() doesn't know to clone $new" );
+    }
+  } else { # misc stuff
+    $new = [ '', {}, @_ ];
+  }
+
+  # By now it's a treelet:  [ 'foo', {}, ... ]
+  foreach my $x (@$new) {
+    if(ref($x || '') eq 'ARRAY') {
+      $x = $class->new($x); # recurse
+    } elsif(ref($x || '') eq 'HASH') {
+      $x = { %$x };
+    }
+     # otherwise leave it.
+  }
+
+  return bless $new, $class;
+}
+
+# Not much in this class is likely to be link-section specific --
+# but it just so happens that link-sections are about the only treelets
+# that are exposed to the user.
+
+1;
+
+__END__
+
+# TODO: let it be an option whether a given subclass even wants little treelets?
+
+
+__END__
+
+=head1 NAME
+
+Pod::Simple::LinkSection -- represent "section" attributes of L codes
+
+=head1 SYNOPSIS
+
+ # a long story
+
+=head1 DESCRIPTION
+
+This class is not of interest to general users.
+
+Pod::Simple uses this class for representing the value of the
+"section" attribute of "L" start-element events.  Most applications
+can just use the normal stringification of objects of this class;
+they stringify to just the text content of the section,
+such as "foo" for
+C<< LZ<><Stuff/foo> >>, and "bar" for 
+C<< LZ<><Stuff/bIZ<><ar>> >>.
+
+However, anyone particularly interested in getting the full value of
+the treelet, can just traverse the content of the treeleet
+@$treelet_object.  To wit:
+
+
+  % perl -MData::Dumper -e
+    "use base qw(Pod::Simple::Methody);
+     sub start_L { print Dumper($_[1]{'section'} ) }
+     __PACKAGE__->new->parse_string_document('=head1 L<Foo/bI<ar>baz>>')
+    "
+Output:
+  $VAR1 = bless( [
+                   '',
+                   {},
+                   'b',
+                   bless( [
+                            'I',
+                            {},
+                            'ar'
+                          ], 'Pod::Simple::LinkSection' ),
+                   'baz'
+                 ], 'Pod::Simple::LinkSection' );
+
+But stringify it and you get just the text content:
+
+  % perl -MData::Dumper -e
+    "use base qw(Pod::Simple::Methody);
+     sub start_L { print Dumper( '' . $_[1]{'section'} ) }
+     __PACKAGE__->new->parse_string_document('=head1 L<Foo/bI<ar>baz>>')
+    "
+Output:
+  $VAR1 = 'barbaz';
+
+
+=head1 SEE ALSO
+
+L<Pod::Simple>
+
+=head1 SUPPORT
+
+Questions or discussion about POD and Pod::Simple should be sent to the
+pod-people@perl.org mail list. Send an empty email to
+pod-people-subscribe@perl.org to subscribe.
+
+This module is managed in an open GitHub repository,
+L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or
+to clone L<git://github.com/perl-pod/pod-simple.git> and send patches!
+
+Patches against Pod::Simple are welcome. Please send bug reports to
+<bug-pod-simple@rt.cpan.org>.
+
+=head1 COPYRIGHT AND DISCLAIMERS
+
+Copyright (c) 2004 Sean M. Burke.
+
+This library is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+This program is distributed in the hope that it will be useful, but
+without any warranty; without even the implied warranty of
+merchantability or fitness for a particular purpose.
+
+=head1 AUTHOR
+
+Pod::Simple was created by Sean M. Burke <sburke@cpan.org>.
+But don't bother him, he's retired.
+
+Pod::Simple is maintained by:
+
+=over
+
+=item * Allison Randal C<allison@perl.org>
+
+=item * Hans Dieter Pearcey C<hdp@cpan.org>
+
+=item * David E. Wheeler C<dwheeler@cpan.org>
+
+=back
+
+=cut
diff --git a/lib/5.24.1/Pod/Simple/Methody.pm b/lib/5.24.1/Pod/Simple/Methody.pm
new file mode 100644
index 00000000..29ed3209
--- /dev/null
+++ b/lib/5.24.1/Pod/Simple/Methody.pm
@@ -0,0 +1,152 @@
+
+require 5;
+package Pod::Simple::Methody;
+use strict;
+use Pod::Simple ();
+use vars qw(@ISA $VERSION);
+$VERSION = '3.32';
+@ISA = ('Pod::Simple');
+
+# Yes, we could use named variables, but I want this to be impose
+# as little an additional performance hit as possible.
+
+sub _handle_element_start {
+  $_[1] =~ tr/-:./__/;
+  ( $_[0]->can( 'start_' . $_[1] )
+    || return
+  )->(
+    $_[0], $_[2]
+  );
+}
+
+sub _handle_text {
+  ( $_[0]->can( 'handle_text' )
+    || return
+  )->(
+    @_
+  );
+}
+
+sub _handle_element_end {
+  $_[1] =~ tr/-:./__/;
+  ( $_[0]->can( 'end_' . $_[1] )
+    || return
+  )->(
+    $_[0], $_[2]
+  );
+}
+
+1;
+
+
+__END__
+
+=head1 NAME
+
+Pod::Simple::Methody -- turn Pod::Simple events into method calls
+
+=head1 SYNOPSIS
+
+ require 5;
+ use strict;
+ package SomePodFormatter;
+ use base qw(Pod::Simple::Methody);
+
+ sub handle_text {
+   my($self, $text) = @_;
+   ...
+ }
+
+ sub start_head1 {
+   my($self, $attrs) = @_;
+   ...
+ }
+ sub end_head1 {
+   my($self) = @_;
+   ...
+ }
+
+...and start_/end_ methods for whatever other events you want to catch.
+
+=head1 DESCRIPTION
+
+This class is of
+interest to people writing Pod formatters based on Pod::Simple.
+
+This class (which is very small -- read the source) overrides
+Pod::Simple's _handle_element_start, _handle_text, and
+_handle_element_end methods so that parser events are turned into method
+calls. (Otherwise, this is a subclass of L<Pod::Simple> and inherits all
+its methods.)
+
+You can use this class as the base class for a Pod formatter/processor.
+
+=head1 METHOD CALLING
+
+When Pod::Simple sees a "=head1 Hi there", for example, it basically does
+this:
+
+  $parser->_handle_element_start( "head1", \%attributes );
+  $parser->_handle_text( "Hi there" );
+  $parser->_handle_element_end( "head1" );
+
+But if you subclass Pod::Simple::Methody, it will instead do this
+when it sees a "=head1 Hi there":
+
+  $parser->start_head1( \%attributes ) if $parser->can('start_head1');
+  $parser->handle_text( "Hi there" )   if $parser->can('handle_text');
+  $parser->end_head1()                 if $parser->can('end_head1');
+
+If Pod::Simple sends an event where the element name has a dash,
+period, or colon, the corresponding method name will have a underscore
+in its place.  For example, "foo.bar:baz" becomes start_foo_bar_baz
+and end_foo_bar_baz.
+
+See the source for Pod::Simple::Text for an example of using this class.
+
+=head1 SEE ALSO
+
+L<Pod::Simple>, L<Pod::Simple::Subclassing>
+
+=head1 SUPPORT
+
+Questions or discussion about POD and Pod::Simple should be sent to the
+pod-people@perl.org mail list. Send an empty email to
+pod-people-subscribe@perl.org to subscribe.
+
+This module is managed in an open GitHub repository,
+L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or
+to clone L<git://github.com/perl-pod/pod-simple.git> and send patches!
+
+Patches against Pod::Simple are welcome. Please send bug reports to
+<bug-pod-simple@rt.cpan.org>.
+
+=head1 COPYRIGHT AND DISCLAIMERS
+
+Copyright (c) 2002 Sean M. Burke.
+
+This library is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+This program is distributed in the hope that it will be useful, but
+without any warranty; without even the implied warranty of
+merchantability or fitness for a particular purpose.
+
+=head1 AUTHOR
+
+Pod::Simple was created by Sean M. Burke <sburke@cpan.org>.
+But don't bother him, he's retired.
+
+Pod::Simple is maintained by:
+
+=over
+
+=item * Allison Randal C<allison@perl.org>
+
+=item * Hans Dieter Pearcey C<hdp@cpan.org>
+
+=item * David E. Wheeler C<dwheeler@cpan.org>
+
+=back
+
+=cut
diff --git a/lib/5.24.1/Pod/Simple/Progress.pm b/lib/5.24.1/Pod/Simple/Progress.pm
new file mode 100644
index 00000000..af24049f
--- /dev/null
+++ b/lib/5.24.1/Pod/Simple/Progress.pm
@@ -0,0 +1,93 @@
+
+require 5;
+package Pod::Simple::Progress;
+$VERSION = '3.32';
+use strict;
+
+# Objects of this class are used for noting progress of an
+#  operation every so often.  Messages delivered more often than that
+#  are suppressed.
+#
+# There's actually nothing in here that's specific to Pod processing;
+#  but it's ad-hoc enough that I'm not willing to give it a name that
+#  implies that it's generally useful, like "IO::Progress" or something.
+#
+# -- sburke
+#
+#--------------------------------------------------------------------------
+
+sub new {
+  my($class,$delay) = @_;
+  my $self = bless {'quiet_until' => 1},  ref($class) || $class;
+  $self->to(*STDOUT{IO});
+  $self->delay(defined($delay) ? $delay : 5);
+  return $self;
+}
+
+sub copy { 
+  my $orig = shift;
+  bless {%$orig, 'quiet_until' => 1}, ref($orig);
+}
+#--------------------------------------------------------------------------
+
+sub reach {
+  my($self, $point, $note) = @_;
+  if( (my $now = time) >= $self->{'quiet_until'}) {
+    my $goal;
+    my    $to = $self->{'to'};
+    print $to join('',
+      ($self->{'quiet_until'} == 1) ? () : '... ',
+      (defined $point) ? (
+        '#',
+        ($goal = $self->{'goal'}) ? (
+          ' ' x (length($goal) - length($point)),
+          $point, '/', $goal,
+        ) : $point,
+        $note ? ': ' : (),
+      ) : (),
+      $note || '',
+      "\n"
+    );
+    $self->{'quiet_until'} = $now + $self->{'delay'};
+  }
+  return $self;
+}
+
+#--------------------------------------------------------------------------
+
+sub done {
+  my($self, $note) = @_;
+  $self->{'quiet_until'} = 1;
+  return $self->reach( undef, $note );
+}
+
+#--------------------------------------------------------------------------
+# Simple accessors:
+
+sub delay {
+  return $_[0]{'delay'} if @_ == 1; $_[0]{'delay'} = $_[1]; return $_[0] }
+sub goal {
+  return $_[0]{'goal' } if @_ == 1; $_[0]{'goal' } = $_[1]; return $_[0] }
+sub to   {
+  return $_[0]{'to'   } if @_ == 1; $_[0]{'to'   } = $_[1]; return $_[0] }
+
+#--------------------------------------------------------------------------
+
+unless(caller) { # Simple self-test:
+  my $p = __PACKAGE__->new->goal(5);
+  $p->reach(1, "Primus!");
+  sleep 1;
+  $p->reach(2, "Secundus!");
+  sleep 3;
+  $p->reach(3, "Tertius!");
+  sleep 5;
+  $p->reach(4);
+  $p->reach(5, "Quintus!");
+  sleep 1;
+  $p->done("All done");
+}
+
+#--------------------------------------------------------------------------
+1;
+__END__
+
diff --git a/lib/5.24.1/Pod/Simple/PullParser.pm b/lib/5.24.1/Pod/Simple/PullParser.pm
new file mode 100644
index 00000000..758f42d6
--- /dev/null
+++ b/lib/5.24.1/Pod/Simple/PullParser.pm
@@ -0,0 +1,852 @@
+require 5;
+package Pod::Simple::PullParser;
+$VERSION = '3.32';
+use Pod::Simple ();
+BEGIN {@ISA = ('Pod::Simple')}
+
+use strict;
+use Carp ();
+
+use Pod::Simple::PullParserStartToken;
+use Pod::Simple::PullParserEndToken;
+use Pod::Simple::PullParserTextToken;
+
+BEGIN { *DEBUG = \&Pod::Simple::DEBUG unless defined &DEBUG }
+
+__PACKAGE__->_accessorize(
+  'source_fh',         # the filehandle we're reading from
+  'source_scalar_ref', # the scalarref we're reading from
+  'source_arrayref',   # the arrayref we're reading from
+);
+
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+#
+#  And here is how we implement a pull-parser on top of a push-parser...
+
+sub filter {
+  my($self, $source) = @_;
+  $self = $self->new unless ref $self;
+
+  $source = *STDIN{IO} unless defined $source;
+  $self->set_source($source);
+  $self->output_fh(*STDOUT{IO});
+
+  $self->run; # define run() in a subclass if you want to use filter()!
+  return $self;
+}
+
+# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+sub parse_string_document {
+  my $this = shift;
+  $this->set_source(\ $_[0]);
+  $this->run;
+}
+
+sub parse_file {
+  my($this, $filename) = @_;
+  $this->set_source($filename);
+  $this->run;
+}
+
+# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+#  In case anyone tries to use them:
+
+sub run {
+  use Carp ();
+  if( __PACKAGE__ eq ref($_[0]) || $_[0]) { # I'm not being subclassed!
+    Carp::croak "You can call run() only on subclasses of "
+     . __PACKAGE__;
+  } else {
+    Carp::croak join '',
+      "You can't call run() because ",
+      ref($_[0]) || $_[0], " didn't define a run() method";
+  }
+}
+
+sub parse_lines {
+  use Carp ();
+  Carp::croak "Use set_source with ", __PACKAGE__,
+    " and subclasses, not parse_lines";
+}
+
+sub parse_line {
+  use Carp ();
+  Carp::croak "Use set_source with ", __PACKAGE__,
+    " and subclasses, not parse_line";
+}
+
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+sub new {
+  my $class = shift;
+  my $self = $class->SUPER::new(@_);
+  die "Couldn't construct for $class" unless $self;
+
+  $self->{'token_buffer'} ||= [];
+  $self->{'start_token_class'} ||= 'Pod::Simple::PullParserStartToken';
+  $self->{'text_token_class'}  ||= 'Pod::Simple::PullParserTextToken';
+  $self->{'end_token_class'}   ||= 'Pod::Simple::PullParserEndToken';
+
+  DEBUG > 1 and print STDERR "New pullparser object: $self\n";
+
+  return $self;
+}
+
+# ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
+
+sub get_token {
+  my $self = shift;
+  DEBUG > 1 and print STDERR "\nget_token starting up on $self.\n";
+  DEBUG > 2 and print STDERR " Items in token-buffer (",
+   scalar( @{ $self->{'token_buffer'} } ) ,
+   ") :\n", map(
+     "    " . $_->dump . "\n", @{ $self->{'token_buffer'} }
+   ),
+   @{ $self->{'token_buffer'} } ? '' : '       (no tokens)',
+   "\n"
+  ;
+
+  until( @{ $self->{'token_buffer'} } ) {
+    DEBUG > 3 and print STDERR "I need to get something into my empty token buffer...\n";
+    if($self->{'source_dead'}) {
+      DEBUG and print STDERR "$self 's source is dead.\n";
+      push @{ $self->{'token_buffer'} }, undef;
+    } elsif(exists $self->{'source_fh'}) {
+      my @lines;
+      my $fh = $self->{'source_fh'}
+       || Carp::croak('You have to call set_source before you can call get_token');
+       
+      DEBUG and print STDERR "$self 's source is filehandle $fh.\n";
+      # Read those many lines at a time
+      for(my $i = Pod::Simple::MANY_LINES; $i--;) {
+        DEBUG > 3 and print STDERR " Fetching a line from source filehandle $fh...\n";
+        local $/ = $Pod::Simple::NL;
+        push @lines, scalar(<$fh>); # readline
+        DEBUG > 3 and print STDERR "  Line is: ",
+          defined($lines[-1]) ? $lines[-1] : "<undef>\n";
+        unless( defined $lines[-1] ) {
+          DEBUG and print STDERR "That's it for that source fh!  Killing.\n";
+          delete $self->{'source_fh'}; # so it can be GC'd
+          last;
+        }
+         # but pass thru the undef, which will set source_dead to true
+
+        # TODO: look to see if $lines[-1] is =encoding, and if so,
+        # do horribly magic things
+
+      }
+      
+      if(DEBUG > 8) {
+        print STDERR "* I've gotten ", scalar(@lines), " lines:\n";
+        foreach my $l (@lines) {
+          if(defined $l) {
+            print STDERR "  line {$l}\n";
+          } else {
+            print STDERR "  line undef\n";
+          }
+        }
+        print STDERR "* end of ", scalar(@lines), " lines\n";
+      }
+
+      $self->SUPER::parse_lines(@lines);
+      
+    } elsif(exists $self->{'source_arrayref'}) {
+      DEBUG and print STDERR "$self 's source is arrayref $self->{'source_arrayref'}, with ",
+       scalar(@{$self->{'source_arrayref'}}), " items left in it.\n";
+
+      DEBUG > 3 and print STDERR "  Fetching ", Pod::Simple::MANY_LINES, " lines.\n";
+      $self->SUPER::parse_lines(
+        splice @{ $self->{'source_arrayref'} },
+        0,
+        Pod::Simple::MANY_LINES
+      );
+      unless( @{ $self->{'source_arrayref'} } ) {
+        DEBUG and print STDERR "That's it for that source arrayref!  Killing.\n";
+        $self->SUPER::parse_lines(undef);
+        delete $self->{'source_arrayref'}; # so it can be GC'd
+      }
+       # to make sure that an undef is always sent to signal end-of-stream
+
+    } elsif(exists $self->{'source_scalar_ref'}) {
+
+      DEBUG and print STDERR "$self 's source is scalarref $self->{'source_scalar_ref'}, with ",
+        length(${ $self->{'source_scalar_ref'} }) -
+        (pos(${ $self->{'source_scalar_ref'} }) || 0),
+        " characters left to parse.\n";
+
+      DEBUG > 3 and print STDERR " Fetching a line from source-string...\n";
+      if( ${ $self->{'source_scalar_ref'} } =~
+        m/([^\n\r]*)((?:\r?\n)?)/g
+      ) {
+        #print(">> $1\n"),
+        $self->SUPER::parse_lines($1)
+         if length($1) or length($2)
+          or pos(     ${ $self->{'source_scalar_ref'} })
+           != length( ${ $self->{'source_scalar_ref'} });
+         # I.e., unless it's a zero-length "empty line" at the very
+         #  end of "foo\nbar\n" (i.e., between the \n and the EOS).
+      } else { # that's the end.  Byebye
+        $self->SUPER::parse_lines(undef);
+        delete $self->{'source_scalar_ref'};
+        DEBUG and print STDERR "That's it for that source scalarref!  Killing.\n";
+      }
+
+      
+    } else {
+      die "What source??";
+    }
+  }
+  DEBUG and print STDERR "get_token about to return ",
+   Pod::Simple::pretty( @{$self->{'token_buffer'}}
+     ? $self->{'token_buffer'}[-1] : undef
+   ), "\n";
+  return shift @{$self->{'token_buffer'}}; # that's an undef if empty
+}
+
+sub unget_token {
+  my $self = shift;
+  DEBUG and print STDERR "Ungetting ", scalar(@_), " tokens: ",
+   @_ ? "@_\n" : "().\n";
+  foreach my $t (@_) {
+    Carp::croak "Can't unget that, because it's not a token -- it's undef!"
+     unless defined $t;
+    Carp::croak "Can't unget $t, because it's not a token -- it's a string!"
+     unless ref $t;
+    Carp::croak "Can't unget $t, because it's not a token object!"
+     unless UNIVERSAL::can($t, 'type');
+  }
+  
+  unshift @{$self->{'token_buffer'}}, @_;
+  DEBUG > 1 and print STDERR "Token buffer now has ",
+   scalar(@{$self->{'token_buffer'}}), " items in it.\n";
+  return;
+}
+
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+
+# $self->{'source_filename'} = $source;
+
+sub set_source {
+  my $self = shift @_;
+  return $self->{'source_fh'} unless @_;
+  Carp::croak("Cannot assign new source to pull parser; create a new instance, instead")
+      if $self->{'source_fh'} || $self->{'source_scalar_ref'} || $self->{'source_arrayref'};
+  my $handle;
+  if(!defined $_[0]) {
+    Carp::croak("Can't use empty-string as a source for set_source");
+  } elsif(ref(\( $_[0] )) eq 'GLOB') {
+    $self->{'source_filename'} = '' . ($handle = $_[0]);
+    DEBUG and print STDERR "$self 's source is glob $_[0]\n";
+    # and fall thru   
+  } elsif(ref( $_[0] ) eq 'SCALAR') {
+    $self->{'source_scalar_ref'} = $_[0];
+    DEBUG and print STDERR "$self 's source is scalar ref $_[0]\n";
+    return;
+  } elsif(ref( $_[0] ) eq 'ARRAY') {
+    $self->{'source_arrayref'} = $_[0];
+    DEBUG and print STDERR "$self 's source is array ref $_[0]\n";
+    return;
+  } elsif(ref $_[0]) {
+    $self->{'source_filename'} = '' . ($handle = $_[0]);
+    DEBUG and print STDERR "$self 's source is fh-obj $_[0]\n";
+  } elsif(!length $_[0]) {
+    Carp::croak("Can't use empty-string as a source for set_source");
+  } else {  # It's a filename!
+    DEBUG and print STDERR "$self 's source is filename $_[0]\n";
+    {
+      local *PODSOURCE;
+      open(PODSOURCE, "<$_[0]") || Carp::croak "Can't open $_[0]: $!";
+      $handle = *PODSOURCE{IO};
+    }
+    $self->{'source_filename'} = $_[0];
+    DEBUG and print STDERR "  Its name is $_[0].\n";
+
+    # TODO: file-discipline things here!
+  }
+
+  $self->{'source_fh'} = $handle;
+  DEBUG and print STDERR "  Its handle is $handle\n";
+  return 1;
+}
+
+# ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
+
+sub get_title_short {  shift->get_short_title(@_)  } # alias
+
+sub get_short_title {
+  my $title = shift->get_title(@_);
+  $title = $1 if $title =~ m/^(\S{1,60})\s+--?\s+./s;
+    # turn "Foo::Bar -- bars for your foo" into "Foo::Bar"
+  return $title;
+}
+
+sub get_title       { shift->_get_titled_section(
+  'NAME', max_token => 50, desperate => 1, @_)
+}
+sub get_version     { shift->_get_titled_section(
+   'VERSION',
+    max_token => 400,
+    accept_verbatim => 1,
+    max_content_length => 3_000,
+   @_,
+  );
+}
+sub get_description { shift->_get_titled_section(
+   'DESCRIPTION',
+    max_token => 400,
+    max_content_length => 3_000,
+   @_,
+) }
+
+sub get_authors     { shift->get_author(@_) }  # a harmless alias
+
+sub get_author      {
+  my $this = shift;
+  # Max_token is so high because these are
+  #  typically at the end of the document:
+  $this->_get_titled_section('AUTHOR' , max_token => 10_000, @_) ||
+  $this->_get_titled_section('AUTHORS', max_token => 10_000, @_);
+}
+
+#--------------------------------------------------------------------------
+
+sub _get_titled_section {
+  # Based on a get_title originally contributed by Graham Barr
+  my($self, $titlename, %options) = (@_);
+  
+  my $max_token            = delete $options{'max_token'};
+  my $desperate_for_title  = delete $options{'desperate'};
+  my $accept_verbatim      = delete $options{'accept_verbatim'};
+  my $max_content_length   = delete $options{'max_content_length'};
+  my $nocase               = delete $options{'nocase'};
+  $max_content_length = 120 unless defined $max_content_length;
+
+  Carp::croak( "Unknown " . ((1 == keys %options) ? "option: " : "options: ")
+    . join " ", map "[$_]", sort keys %options
+  )
+   if keys %options;
+
+  my %content_containers;
+  $content_containers{'Para'} = 1;
+  if($accept_verbatim) {
+    $content_containers{'Verbatim'} = 1;
+    $content_containers{'VerbatimFormatted'} = 1;
+  }
+
+  my $token_count = 0;
+  my $title;
+  my @to_unget;
+  my $state = 0;
+  my $depth = 0;
+
+  Carp::croak "What kind of titlename is \"$titlename\"?!" unless
+   defined $titlename and $titlename =~ m/^[A-Z ]{1,60}$/s; #sanity
+  my $titlename_re = quotemeta($titlename);
+
+  my $head1_text_content;
+  my $para_text_content;
+  my $skipX;
+
+  while(
+    ++$token_count <= ($max_token || 1_000_000)
+    and defined(my $token = $self->get_token)
+  ) {
+    push @to_unget, $token;
+
+    if ($state == 0) { # seeking =head1
+      if( $token->is_start and $token->tagname eq 'head1' ) {
+        DEBUG and print STDERR "  Found head1.  Seeking content...\n";
+        ++$state;
+        $head1_text_content = '';
+      }
+    }
+
+    elsif($state == 1) { # accumulating text until end of head1
+      if( $token->is_text ) {
+          unless ($skipX) {
+            DEBUG and print STDERR "   Adding \"", $token->text, "\" to head1-content.\n";
+            $head1_text_content .= $token->text;
+          }
+      } elsif( $token->is_tagname('X') ) {
+          # We're going to want to ignore X<> stuff.
+          $skipX = $token->is_start;
+          DEBUG and print STDERR +($skipX ? 'Start' : 'End'), 'ing ignoring of X<> tag';
+      } elsif( $token->is_end and $token->tagname eq 'head1' ) {
+        DEBUG and print STDERR "  Found end of head1.  Considering content...\n";
+        $head1_text_content = uc $head1_text_content if $nocase;
+        if($head1_text_content eq $titlename
+          or $head1_text_content =~ m/\($titlename_re\)/s
+          # We accept "=head1 Nomen Modularis (NAME)" for sake of i18n
+        ) {
+          DEBUG and print STDERR "  Yup, it was $titlename.  Seeking next para-content...\n";
+          ++$state;
+        } elsif(
+          $desperate_for_title
+           # if we're so desperate we'll take the first
+           #  =head1's content as a title
+          and $head1_text_content =~ m/\S/
+          and $head1_text_content !~ m/^[ A-Z]+$/s
+          and $head1_text_content !~
+            m/\((?:
+             NAME | TITLE | VERSION | AUTHORS? | DESCRIPTION | SYNOPSIS
+             | COPYRIGHT | LICENSE | NOTES? | FUNCTIONS? | METHODS?
+             | CAVEATS? | BUGS? | SEE\ ALSO | SWITCHES | ENVIRONMENT
+            )\)/sx
+            # avoid accepting things like =head1 Thingy Thongy (DESCRIPTION)
+          and ($max_content_length
+            ? (length($head1_text_content) <= $max_content_length) # sanity
+            : 1)
+        ) {
+          # Looks good; trim it
+          ($title = $head1_text_content) =~ s/\s+$//;
+          DEBUG and print STDERR "  It looks titular: \"$title\".\n\n  Using that.\n";
+          last;
+        } else {
+          --$state;
+          DEBUG and print STDERR "  Didn't look titular ($head1_text_content).\n",
+            "\n  Dropping back to seeking-head1-content mode...\n";
+        }
+      }
+    }
+    
+    elsif($state == 2) {
+      # seeking start of para (which must immediately follow)
+      if($token->is_start and $content_containers{ $token->tagname }) {
+        DEBUG and print STDERR "  Found start of Para.  Accumulating content...\n";
+        $para_text_content = '';
+        ++$state;
+      } else {
+        DEBUG and print
+         "  Didn't see an immediately subsequent start-Para.  Reseeking H1\n";
+        $state = 0;
+      }
+    }
+    
+    elsif($state == 3) {
+      # accumulating text until end of Para
+      if( $token->is_text ) {
+        DEBUG and print STDERR "   Adding \"", $token->text, "\" to para-content.\n";
+        $para_text_content .= $token->text;
+        # and keep looking
+        
+      } elsif( $token->is_end and $content_containers{ $token->tagname } ) {
+        DEBUG and print STDERR "  Found end of Para.  Considering content: ",
+          $para_text_content, "\n";
+
+        if( $para_text_content =~ m/\S/
+          and ($max_content_length
+           ? (length($para_text_content) <= $max_content_length)
+           : 1)
+        ) {
+          # Some minimal sanity constraints, I think.
+          DEBUG and print STDERR "  It looks contentworthy, I guess.  Using it.\n";
+          $title = $para_text_content;
+          last;
+        } else {
+          DEBUG and print STDERR "  Doesn't look at all contentworthy!\n  Giving up.\n";
+          undef $title;
+          last;
+        }
+      }
+    }
+    
+    else {
+      die "IMPOSSIBLE STATE $state!\n";  # should never happen
+    }
+    
+  }
+  
+  # Put it all back!
+  $self->unget_token(@to_unget);
+  
+  if(DEBUG) {
+    if(defined $title) { print STDERR "  Returning title <$title>\n" }
+    else { print STDERR "Returning title <>\n" }
+  }
+  
+  return '' unless defined $title;
+  $title =~ s/^\s+//;
+  return $title;
+}
+
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+#
+#  Methods that actually do work at parse-time:
+
+sub _handle_element_start {
+  my $self = shift;   # leaving ($element_name, $attr_hash_r)
+  DEBUG > 2 and print STDERR "++ $_[0] (", map("<$_> ", %{$_[1]}), ")\n";
+  
+  push @{ $self->{'token_buffer'} },
+       $self->{'start_token_class'}->new(@_);
+  return;
+}
+
+sub _handle_text {
+  my $self = shift;   # leaving ($text)
+  DEBUG > 2 and print STDERR "== $_[0]\n";
+  push @{ $self->{'token_buffer'} },
+       $self->{'text_token_class'}->new(@_);
+  return;
+}
+
+sub _handle_element_end {
+  my $self = shift;   # leaving ($element_name);
+  DEBUG > 2 and print STDERR "-- $_[0]\n";
+  push @{ $self->{'token_buffer'} }, 
+       $self->{'end_token_class'}->new(@_);
+  return;
+}
+
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+
+1;
+
+
+__END__
+
+=head1 NAME
+
+Pod::Simple::PullParser -- a pull-parser interface to parsing Pod
+
+=head1 SYNOPSIS
+
+ my $parser = SomePodProcessor->new;
+ $parser->set_source( "whatever.pod" );
+ $parser->run;
+
+Or:
+
+ my $parser = SomePodProcessor->new;
+ $parser->set_source( $some_filehandle_object );
+ $parser->run;
+
+Or:
+
+ my $parser = SomePodProcessor->new;
+ $parser->set_source( \$document_source );
+ $parser->run;
+
+Or:
+
+ my $parser = SomePodProcessor->new;
+ $parser->set_source( \@document_lines );
+ $parser->run;
+
+And elsewhere:
+
+ require 5;
+ package SomePodProcessor;
+ use strict;
+ use base qw(Pod::Simple::PullParser);
+
+ sub run {
+   my $self = shift;
+  Token:
+   while(my $token = $self->get_token) {
+     ...process each token...
+   }
+ }
+
+=head1 DESCRIPTION
+
+This class is for using Pod::Simple to build a Pod processor -- but
+one that uses an interface based on a stream of token objects,
+instead of based on events.
+
+This is a subclass of L<Pod::Simple> and inherits all its methods.
+
+A subclass of Pod::Simple::PullParser should define a C<run> method
+that calls C<< $token = $parser->get_token >> to pull tokens.
+
+See the source for Pod::Simple::RTF for an example of a formatter
+that uses Pod::Simple::PullParser.
+
+=head1 METHODS
+
+=over
+
+=item my $token = $parser->get_token
+
+This returns the next token object (which will be of a subclass of
+L<Pod::Simple::PullParserToken>), or undef if the parser-stream has hit
+the end of the document.
+
+=item $parser->unget_token( $token )
+
+=item $parser->unget_token( $token1, $token2, ... )
+
+This restores the token object(s) to the front of the parser stream.
+
+=back
+
+The source has to be set before you can parse anything.  The lowest-level
+way is to call C<set_source>:
+
+=over
+
+=item $parser->set_source( $filename )
+
+=item $parser->set_source( $filehandle_object )
+
+=item $parser->set_source( \$document_source )
+
+=item $parser->set_source( \@document_lines )
+
+=back
+
+Or you can call these methods, which Pod::Simple::PullParser has defined
+to work just like Pod::Simple's same-named methods:
+
+=over
+
+=item $parser->parse_file(...)
+
+=item $parser->parse_string_document(...)
+
+=item $parser->filter(...)
+
+=item $parser->parse_from_file(...)
+
+=back
+
+For those to work, the Pod-processing subclass of
+Pod::Simple::PullParser has to have defined a $parser->run method --
+so it is advised that all Pod::Simple::PullParser subclasses do so.
+See the Synopsis above, or the source for Pod::Simple::RTF.
+
+Authors of formatter subclasses might find these methods useful to
+call on a parser object that you haven't started pulling tokens
+from yet:
+
+=over
+
+=item my $title_string = $parser->get_title
+
+This tries to get the title string out of $parser, by getting some tokens,
+and scanning them for the title, and then ungetting them so that you can
+process the token-stream from the beginning.
+
+For example, suppose you have a document that starts out:
+
+  =head1 NAME
+
+  Hoo::Boy::Wowza -- Stuff B<wow> yeah!
+
+$parser->get_title on that document will return "Hoo::Boy::Wowza --
+Stuff wow yeah!". If the document starts with:
+
+  =head1 Name
+
+  Hoo::Boy::W00t -- Stuff B<w00t> yeah!
+
+Then you'll need to pass the C<nocase> option in order to recognize "Name":
+
+  $parser->get_title(nocase => 1);
+
+In cases where get_title can't find the title, it will return empty-string
+("").
+
+=item my $title_string = $parser->get_short_title
+
+This is just like get_title, except that it returns just the modulename, if
+the title seems to be of the form "SomeModuleName -- description".
+
+For example, suppose you have a document that starts out:
+
+  =head1 NAME
+
+  Hoo::Boy::Wowza -- Stuff B<wow> yeah!
+
+then $parser->get_short_title on that document will return
+"Hoo::Boy::Wowza".
+
+But if the document starts out:
+
+  =head1 NAME
+
+  Hooboy, stuff B<wow> yeah!
+
+then $parser->get_short_title on that document will return "Hooboy,
+stuff wow yeah!". If the document starts with:
+
+  =head1 Name
+
+  Hoo::Boy::W00t -- Stuff B<w00t> yeah!
+
+Then you'll need to pass the C<nocase> option in order to recognize "Name":
+
+  $parser->get_short_title(nocase => 1);
+
+If the title can't be found, then get_short_title returns empty-string
+("").
+
+=item $author_name   = $parser->get_author
+
+This works like get_title except that it returns the contents of the
+"=head1 AUTHOR\n\nParagraph...\n" section, assuming that that section
+isn't terribly long. To recognize a "=head1 Author\n\nParagraph\n"
+section, pass the C<nocase> option:
+
+  $parser->get_author(nocase => 1);
+
+(This method tolerates "AUTHORS" instead of "AUTHOR" too.)
+
+=item $description_name = $parser->get_description
+
+This works like get_title except that it returns the contents of the
+"=head1 DESCRIPTION\n\nParagraph...\n" section, assuming that that section
+isn't terribly long. To recognize a "=head1 Description\n\nParagraph\n"
+section, pass the C<nocase> option:
+
+  $parser->get_description(nocase => 1);
+
+=item $version_block = $parser->get_version
+
+This works like get_title except that it returns the contents of
+the "=head1 VERSION\n\n[BIG BLOCK]\n" block.  Note that this does NOT
+return the module's C<$VERSION>!! To recognize a
+"=head1 Version\n\n[BIG BLOCK]\n" section, pass the C<nocase> option:
+
+  $parser->get_version(nocase => 1);
+
+=back
+
+=head1 NOTE
+
+You don't actually I<have> to define a C<run> method.  If you're
+writing a Pod-formatter class, you should define a C<run> just so
+that users can call C<parse_file> etc, but you don't I<have> to.
+
+And if you're not writing a formatter class, but are instead just
+writing a program that does something simple with a Pod::PullParser
+object (and not an object of a subclass), then there's no reason to
+bother subclassing to add a C<run> method.
+
+=head1 SEE ALSO
+
+L<Pod::Simple>
+
+L<Pod::Simple::PullParserToken> -- and its subclasses
+L<Pod::Simple::PullParserStartToken>,
+L<Pod::Simple::PullParserTextToken>, and
+L<Pod::Simple::PullParserEndToken>.
+
+L<HTML::TokeParser>, which inspired this.
+
+=head1 SUPPORT
+
+Questions or discussion about POD and Pod::Simple should be sent to the
+pod-people@perl.org mail list. Send an empty email to
+pod-people-subscribe@perl.org to subscribe.
+
+This module is managed in an open GitHub repository,
+L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or
+to clone L<git://github.com/perl-pod/pod-simple.git> and send patches!
+
+Patches against Pod::Simple are welcome. Please send bug reports to
+<bug-pod-simple@rt.cpan.org>.
+
+=head1 COPYRIGHT AND DISCLAIMERS
+
+Copyright (c) 2002 Sean M. Burke.
+
+This library is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+This program is distributed in the hope that it will be useful, but
+without any warranty; without even the implied warranty of
+merchantability or fitness for a particular purpose.
+
+=head1 AUTHOR
+
+Pod::Simple was created by Sean M. Burke <sburke@cpan.org>.
+But don't bother him, he's retired.
+
+Pod::Simple is maintained by:
+
+=over
+
+=item * Allison Randal C<allison@perl.org>
+
+=item * Hans Dieter Pearcey C<hdp@cpan.org>
+
+=item * David E. Wheeler C<dwheeler@cpan.org>
+
+=back
+
+=cut
+
+JUNK:
+
+sub _old_get_title {  # some witchery in here
+  my $self = $_[0];
+  my $title;
+  my @to_unget;
+
+  while(1) {
+    push @to_unget, $self->get_token;
+    unless(defined $to_unget[-1]) { # whoops, short doc!
+      pop @to_unget;
+      last;
+    }
+
+    DEBUG and print STDERR "-Got token ", $to_unget[-1]->dump, "\n";
+
+    (DEBUG and print STDERR "Too much in the buffer.\n"),
+     last if @to_unget > 25; # sanity
+    
+    my $pattern = '';
+    if( #$to_unget[-1]->type eq 'end'
+        #and $to_unget[-1]->tagname eq 'Para'
+        #and
+        ($pattern = join('',
+         map {;
+            ($_->type eq 'start') ? ("<" . $_->tagname .">")
+          : ($_->type eq 'end'  ) ? ("</". $_->tagname .">")
+          : ($_->type eq 'text' ) ? ($_->text =~ m<^([A-Z]+)$>s ? $1 : 'X')
+          : "BLORP"
+         } @to_unget
+       )) =~ m{<head1>NAME</head1><Para>(X|</?[BCIFLS]>)+</Para>$}s
+    ) {
+      # Whee, it fits the pattern
+      DEBUG and print STDERR "Seems to match =head1 NAME pattern.\n";
+      $title = '';
+      foreach my $t (reverse @to_unget) {
+        last if $t->type eq 'start' and $t->tagname eq 'Para';
+        $title = $t->text . $title if $t->type eq 'text';
+      }
+      undef $title if $title =~ m<^\s*$>; # make sure it's contentful!
+      last;
+
+    } elsif ($pattern =~ m{<head(\d)>(.+)</head\d>$}
+      and !( $1 eq '1' and $2 eq 'NAME' )
+    ) {
+      # Well, it fits a fallback pattern
+      DEBUG and print STDERR "Seems to match NAMEless pattern.\n";
+      $title = '';
+      foreach my $t (reverse @to_unget) {
+        last if $t->type eq 'start' and $t->tagname =~ m/^head\d$/s;
+        $title = $t->text . $title if $t->type eq 'text';
+      }
+      undef $title if $title =~ m<^\s*$>; # make sure it's contentful!
+      last;
+      
+    } else {
+      DEBUG and $pattern and print STDERR "Leading pattern: $pattern\n";
+    }
+  }
+  
+  # Put it all back:
+  $self->unget_token(@to_unget);
+  
+  if(DEBUG) {
+    if(defined $title) { print STDERR "  Returning title <$title>\n" }
+    else { print STDERR "Returning title <>\n" }
+  }
+  
+  return '' unless defined $title;
+  return $title;
+}
+
diff --git a/lib/5.24.1/Pod/Simple/PullParserEndToken.pm b/lib/5.24.1/Pod/Simple/PullParserEndToken.pm
new file mode 100644
index 00000000..0d68841d
--- /dev/null
+++ b/lib/5.24.1/Pod/Simple/PullParserEndToken.pm
@@ -0,0 +1,120 @@
+
+require 5;
+package Pod::Simple::PullParserEndToken;
+use Pod::Simple::PullParserToken ();
+use strict;
+use vars qw(@ISA $VERSION);
+@ISA = ('Pod::Simple::PullParserToken');
+$VERSION = '3.32';
+
+sub new {  # Class->new(tagname);
+  my $class = shift;
+  return bless ['end', @_], ref($class) || $class;
+}
+
+# Purely accessors:
+
+sub tagname { (@_ == 2) ? ($_[0][1] = $_[1]) : $_[0][1] }
+sub tag { shift->tagname(@_) }
+
+# shortcut:
+sub is_tagname { $_[0][1] eq $_[1] }
+sub is_tag { shift->is_tagname(@_) }
+
+1;
+
+
+__END__
+
+=head1 NAME
+
+Pod::Simple::PullParserEndToken -- end-tokens from Pod::Simple::PullParser
+
+=head1 SYNOPSIS
+
+(See L<Pod::Simple::PullParser>)
+
+=head1 DESCRIPTION
+
+When you do $parser->get_token on a L<Pod::Simple::PullParser>, you might
+get an object of this class.
+
+This is a subclass of L<Pod::Simple::PullParserToken> and inherits all its methods,
+and adds these methods:
+
+=over
+
+=item $token->tagname
+
+This returns the tagname for this end-token object.
+For example, parsing a "=head1 ..." line will give you
+a start-token with the tagname of "head1", token(s) for its
+content, and then an end-token with the tagname of "head1".
+
+=item $token->tagname(I<somestring>)
+
+This changes the tagname for this end-token object.
+You probably won't need to do this.
+
+=item $token->tag(...)
+
+A shortcut for $token->tagname(...)
+
+=item $token->is_tag(I<somestring>) or $token->is_tagname(I<somestring>)
+
+These are shortcuts for C<< $token->tag() eq I<somestring> >>
+
+=back
+
+You're unlikely to ever need to construct an object of this class for
+yourself, but if you want to, call
+C<<
+Pod::Simple::PullParserEndToken->new( I<tagname> )
+>>
+
+=head1 SEE ALSO
+
+L<Pod::Simple::PullParserToken>, L<Pod::Simple>, L<Pod::Simple::Subclassing>
+
+=head1 SUPPORT
+
+Questions or discussion about POD and Pod::Simple should be sent to the
+pod-people@perl.org mail list. Send an empty email to
+pod-people-subscribe@perl.org to subscribe.
+
+This module is managed in an open GitHub repository,
+L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or
+to clone L<git://github.com/perl-pod/pod-simple.git> and send patches!
+
+Patches against Pod::Simple are welcome. Please send bug reports to
+<bug-pod-simple@rt.cpan.org>.
+
+=head1 COPYRIGHT AND DISCLAIMERS
+
+Copyright (c) 2002 Sean M. Burke.
+
+This library is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+This program is distributed in the hope that it will be useful, but
+without any warranty; without even the implied warranty of
+merchantability or fitness for a particular purpose.
+
+=head1 AUTHOR
+
+Pod::Simple was created by Sean M. Burke <sburke@cpan.org>.
+But don't bother him, he's retired.
+
+Pod::Simple is maintained by:
+
+=over
+
+=item * Allison Randal C<allison@perl.org>
+
+=item * Hans Dieter Pearcey C<hdp@cpan.org>
+
+=item * David E. Wheeler C<dwheeler@cpan.org>
+
+=back
+
+=cut
diff --git a/lib/5.24.1/Pod/Simple/PullParserStartToken.pm b/lib/5.24.1/Pod/Simple/PullParserStartToken.pm
new file mode 100644
index 00000000..f09c1091
--- /dev/null
+++ b/lib/5.24.1/Pod/Simple/PullParserStartToken.pm
@@ -0,0 +1,161 @@
+
+require 5;
+package Pod::Simple::PullParserStartToken;
+use Pod::Simple::PullParserToken ();
+use strict;
+use vars qw(@ISA $VERSION);
+@ISA = ('Pod::Simple::PullParserToken');
+$VERSION = '3.32';
+
+sub new {  # Class->new(tagname, optional_attrhash);
+  my $class = shift;
+  return bless ['start', @_], ref($class) || $class;
+}
+
+# Purely accessors:
+
+sub tagname   { (@_ == 2) ? ($_[0][1] = $_[1]) : $_[0][1] }
+sub tag { shift->tagname(@_) }
+
+sub is_tagname { $_[0][1] eq $_[1] }
+sub is_tag { shift->is_tagname(@_) }
+
+
+sub attr_hash { $_[0][2] ||= {} }
+
+sub attr      {
+  if(@_ == 2) {      # Reading: $token->attr('attrname')
+    ${$_[0][2] || return undef}{ $_[1] };
+  } elsif(@_ > 2) {  # Writing: $token->attr('attrname', 'newval')
+    ${$_[0][2] ||= {}}{ $_[1] } = $_[2];
+  } else {
+    require Carp;
+    Carp::croak(
+      'usage: $object->attr("val") or $object->attr("key", "newval")');
+    return undef;
+  }
+}
+
+1;
+
+
+__END__
+
+=head1 NAME
+
+Pod::Simple::PullParserStartToken -- start-tokens from Pod::Simple::PullParser
+
+=head1 SYNOPSIS
+
+(See L<Pod::Simple::PullParser>)
+
+=head1 DESCRIPTION
+
+When you do $parser->get_token on a L<Pod::Simple::PullParser> object, you might
+get an object of this class.
+
+This is a subclass of L<Pod::Simple::PullParserToken> and inherits all its methods,
+and adds these methods:
+
+=over
+
+=item $token->tagname
+
+This returns the tagname for this start-token object.
+For example, parsing a "=head1 ..." line will give you
+a start-token with the tagname of "head1", token(s) for its
+content, and then an end-token with the tagname of "head1".
+
+=item $token->tagname(I<somestring>)
+
+This changes the tagname for this start-token object.
+You probably won't need
+to do this.
+
+=item $token->tag(...)
+
+A shortcut for $token->tagname(...)
+
+=item $token->is_tag(I<somestring>) or $token->is_tagname(I<somestring>)
+
+These are shortcuts for C<< $token->tag() eq I<somestring> >>
+
+=item $token->attr(I<attrname>)
+
+This returns the value of the I<attrname> attribute for this start-token
+object, or undef.
+
+For example, parsing a LZ<><Foo/"Bar"> link will produce a start-token
+with a "to" attribute with the value "Foo", a "type" attribute with the
+value "pod", and a "section" attribute with the value "Bar".
+
+=item $token->attr(I<attrname>, I<newvalue>)
+
+This sets the I<attrname> attribute for this start-token object to
+I<newvalue>.  You probably won't need to do this.
+
+=item $token->attr_hash
+
+This returns the hashref that is the attribute set for this start-token.
+This is useful if (for example) you want to ask what all the attributes
+are -- you can just do C<< keys %{$token->attr_hash} >>
+
+=back
+
+
+You're unlikely to ever need to construct an object of this class for
+yourself, but if you want to, call
+C<<
+Pod::Simple::PullParserStartToken->new( I<tagname>, I<attrhash> )
+>>
+
+=head1 SEE ALSO
+
+L<Pod::Simple::PullParserToken>, L<Pod::Simple>, L<Pod::Simple::Subclassing>
+
+=head1 SEE ALSO
+
+L<Pod::Simple::PullParserToken>, L<Pod::Simple>, L<Pod::Simple::Subclassing>
+
+=head1 SUPPORT
+
+Questions or discussion about POD and Pod::Simple should be sent to the
+pod-people@perl.org mail list. Send an empty email to
+pod-people-subscribe@perl.org to subscribe.
+
+This module is managed in an open GitHub repository,
+L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or
+to clone L<git://github.com/perl-pod/pod-simple.git> and send patches!
+
+Patches against Pod::Simple are welcome. Please send bug reports to
+<bug-pod-simple@rt.cpan.org>.
+
+=head1 COPYRIGHT AND DISCLAIMERS
+
+Copyright (c) 2002 Sean M. Burke.
+
+This library is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+This program is distributed in the hope that it will be useful, but
+without any warranty; without even the implied warranty of
+merchantability or fitness for a particular purpose.
+
+=head1 AUTHOR
+
+Pod::Simple was created by Sean M. Burke <sburke@cpan.org>.
+But don't bother him, he's retired.
+
+Pod::Simple is maintained by:
+
+=over
+
+=item * Allison Randal C<allison@perl.org>
+
+=item * Hans Dieter Pearcey C<hdp@cpan.org>
+
+=item * David E. Wheeler C<dwheeler@cpan.org>
+
+=back
+
+=cut
diff --git a/lib/5.24.1/Pod/Simple/PullParserTextToken.pm b/lib/5.24.1/Pod/Simple/PullParserTextToken.pm
new file mode 100644
index 00000000..17d06553
--- /dev/null
+++ b/lib/5.24.1/Pod/Simple/PullParserTextToken.pm
@@ -0,0 +1,134 @@
+
+require 5;
+package Pod::Simple::PullParserTextToken;
+use Pod::Simple::PullParserToken ();
+use strict;
+use vars qw(@ISA $VERSION);
+@ISA = ('Pod::Simple::PullParserToken');
+$VERSION = '3.32';
+
+sub new {  # Class->new(text);
+  my $class = shift;
+  return bless ['text', @_], ref($class) || $class;
+}
+
+# Purely accessors:
+
+sub text { (@_ == 2) ? ($_[0][1] = $_[1]) : $_[0][1] }
+
+sub text_r { \ $_[0][1] }
+
+1;
+
+__END__
+
+=head1 NAME
+
+Pod::Simple::PullParserTextToken -- text-tokens from Pod::Simple::PullParser
+
+=head1 SYNOPSIS
+
+(See L<Pod::Simple::PullParser>)
+
+=head1 DESCRIPTION
+
+When you do $parser->get_token on a L<Pod::Simple::PullParser>, you might
+get an object of this class.
+
+This is a subclass of L<Pod::Simple::PullParserToken> and inherits all its methods,
+and adds these methods:
+
+=over
+
+=item $token->text
+
+This returns the text that this token holds.  For example, parsing
+CZ<><foo> will return a C start-token, a text-token, and a C end-token.  And
+if you want to get the "foo" out of the text-token, call C<< $token->text >>
+
+=item $token->text(I<somestring>)
+
+This changes the string that this token holds.  You probably won't need
+to do this.
+
+=item $token->text_r()
+
+This returns a scalar reference to the string that this token holds.
+This can be useful if you don't want to memory-copy the potentially
+large text value (well, as large as a paragraph or a verbatim block)
+as calling $token->text would do.
+
+Or, if you want to alter the value, you can even do things like this:
+
+  for ( ${  $token->text_r  } ) {  # Aliases it with $_ !!
+
+    s/ The / the /g; # just for example
+
+    if( 'A' eq chr(65) ) {  # (if in an ASCII world)
+      tr/\xA0/ /;
+      tr/\xAD//d;
+    }
+
+    ...or however you want to alter the value...
+    (Note that starting with Perl v5.8, you can use, e.g.,
+
+        my $nbsp = chr utf8::unicode_to_native(0xA0);
+        s/$nbsp/ /g;
+
+    to handle the above regardless if it's an ASCII world or not)
+  }
+
+=back
+
+You're unlikely to ever need to construct an object of this class for
+yourself, but if you want to, call
+C<<
+Pod::Simple::PullParserTextToken->new( I<text> )
+>>
+
+=head1 SEE ALSO
+
+L<Pod::Simple::PullParserToken>, L<Pod::Simple>, L<Pod::Simple::Subclassing>
+
+=head1 SUPPORT
+
+Questions or discussion about POD and Pod::Simple should be sent to the
+pod-people@perl.org mail list. Send an empty email to
+pod-people-subscribe@perl.org to subscribe.
+
+This module is managed in an open GitHub repository,
+L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or
+to clone L<git://github.com/perl-pod/pod-simple.git> and send patches!
+
+Patches against Pod::Simple are welcome. Please send bug reports to
+<bug-pod-simple@rt.cpan.org>.
+
+=head1 COPYRIGHT AND DISCLAIMERS
+
+Copyright (c) 2002 Sean M. Burke.
+
+This library is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+This program is distributed in the hope that it will be useful, but
+without any warranty; without even the implied warranty of
+merchantability or fitness for a particular purpose.
+
+=head1 AUTHOR
+
+Pod::Simple was created by Sean M. Burke <sburke@cpan.org>.
+But don't bother him, he's retired.
+
+Pod::Simple is maintained by:
+
+=over
+
+=item * Allison Randal C<allison@perl.org>
+
+=item * Hans Dieter Pearcey C<hdp@cpan.org>
+
+=item * David E. Wheeler C<dwheeler@cpan.org>
+
+=back
+
+=cut
diff --git a/lib/5.24.1/Pod/Simple/PullParserToken.pm b/lib/5.24.1/Pod/Simple/PullParserToken.pm
new file mode 100644
index 00000000..7f493b96
--- /dev/null
+++ b/lib/5.24.1/Pod/Simple/PullParserToken.pm
@@ -0,0 +1,163 @@
+
+require 5;
+package Pod::Simple::PullParserToken;
+ # Base class for tokens gotten from Pod::Simple::PullParser's $parser->get_token
+@ISA = ();
+$VERSION = '3.32';
+use strict;
+
+sub new {  # Class->new('type', stuff...);  ## Overridden in derived classes anyway
+  my $class = shift;
+  return bless [@_], ref($class) || $class;
+}
+
+sub type { $_[0][0] }  # Can't change the type of an object
+sub dump { Pod::Simple::pretty( [ @{ $_[0] } ] ) }
+
+sub is_start { $_[0][0] eq 'start' }
+sub is_end   { $_[0][0] eq 'end'   }
+sub is_text  { $_[0][0] eq 'text'  }
+
+1;
+__END__
+
+sub dump { '[' . _esc( @{ $_[0] } ) . ']' }
+
+# JUNK:
+
+sub _esc {
+  return '' unless @_;
+  my @out;
+  foreach my $in (@_) {
+    push @out, '"' . $in . '"';
+    $out[-1] =~ s/([^- \:\:\.\,\'\>\<\"\/\=\?\+\|\[\]\{\}\_a-zA-Z0-9_\`\~\!\#\%\^\&\*\(\)])/
+      sprintf( (ord($1) < 256) ? "\\x%02X" : "\\x{%X}", ord($1))
+    /eg;
+  }
+  return join ', ', @out;
+}
+
+
+__END__
+
+=head1 NAME
+
+Pod::Simple::PullParserToken -- tokens from Pod::Simple::PullParser
+
+=head1 SYNOPSIS
+
+Given a $parser that's an object of class Pod::Simple::PullParser
+(or a subclass)...
+
+  while(my $token = $parser->get_token) {
+    $DEBUG and print STDERR "Token: ", $token->dump, "\n";
+    if($token->is_start) {
+      ...access $token->tagname, $token->attr, etc...
+
+    } elsif($token->is_text) {
+      ...access $token->text, $token->text_r, etc...
+
+    } elsif($token->is_end) {
+      ...access $token->tagname...
+
+    }
+  }
+
+(Also see L<Pod::Simple::PullParser>)
+
+=head1 DESCRIPTION
+
+When you do $parser->get_token on a L<Pod::Simple::PullParser>, you should
+get an object of a subclass of Pod::Simple::PullParserToken.
+
+Subclasses will add methods, and will also inherit these methods:
+
+=over
+
+=item $token->type
+
+This returns the type of the token.  This will be either the string
+"start", the string "text", or the string "end".
+
+Once you know what the type of an object is, you then know what
+subclass it belongs to, and therefore what methods it supports.
+
+Yes, you could probably do the same thing with code like
+$token->isa('Pod::Simple::PullParserEndToken'), but that's not so
+pretty as using just $token->type, or even the following shortcuts:
+
+=item $token->is_start
+
+This is a shortcut for C<< $token->type() eq "start" >>
+
+=item $token->is_text
+
+This is a shortcut for C<< $token->type() eq "text" >>
+
+=item $token->is_end
+
+This is a shortcut for C<< $token->type() eq "end" >>
+
+=item $token->dump
+
+This returns a handy stringified value of this object.  This
+is useful for debugging, as in:
+
+  while(my $token = $parser->get_token) {
+    $DEBUG and print STDERR "Token: ", $token->dump, "\n";
+    ...
+  }
+
+=back
+
+=head1 SEE ALSO
+
+My subclasses:
+L<Pod::Simple::PullParserStartToken>,
+L<Pod::Simple::PullParserTextToken>, and
+L<Pod::Simple::PullParserEndToken>.
+
+L<Pod::Simple::PullParser> and L<Pod::Simple>
+
+=head1 SUPPORT
+
+Questions or discussion about POD and Pod::Simple should be sent to the
+pod-people@perl.org mail list. Send an empty email to
+pod-people-subscribe@perl.org to subscribe.
+
+This module is managed in an open GitHub repository,
+L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or
+to clone L<git://github.com/perl-pod/pod-simple.git> and send patches!
+
+Patches against Pod::Simple are welcome. Please send bug reports to
+<bug-pod-simple@rt.cpan.org>.
+
+=head1 COPYRIGHT AND DISCLAIMERS
+
+Copyright (c) 2002 Sean M. Burke.
+
+This library is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+This program is distributed in the hope that it will be useful, but
+without any warranty; without even the implied warranty of
+merchantability or fitness for a particular purpose.
+
+=head1 AUTHOR
+
+Pod::Simple was created by Sean M. Burke <sburke@cpan.org>.
+But don't bother him, he's retired.
+
+Pod::Simple is maintained by:
+
+=over
+
+=item * Allison Randal C<allison@perl.org>
+
+=item * Hans Dieter Pearcey C<hdp@cpan.org>
+
+=item * David E. Wheeler C<dwheeler@cpan.org>
+
+=back
+
+=cut
diff --git a/lib/5.24.1/Pod/Simple/RTF.pm b/lib/5.24.1/Pod/Simple/RTF.pm
new file mode 100644
index 00000000..9aea743a
--- /dev/null
+++ b/lib/5.24.1/Pod/Simple/RTF.pm
@@ -0,0 +1,714 @@
+
+require 5;
+package Pod::Simple::RTF;
+
+#sub DEBUG () {4};
+#sub Pod::Simple::DEBUG () {4};
+#sub Pod::Simple::PullParser::DEBUG () {4};
+
+use strict;
+use vars qw($VERSION @ISA %Escape $WRAP %Tagmap);
+$VERSION = '3.32';
+use Pod::Simple::PullParser ();
+BEGIN {@ISA = ('Pod::Simple::PullParser')}
+
+use Carp ();
+BEGIN { *DEBUG = \&Pod::Simple::DEBUG unless defined &DEBUG }
+
+$WRAP = 1 unless defined $WRAP;
+
+# These are broken for early Perls on EBCDIC; they could be fixed to work
+# better there, but not worth it.  These are part of a larger [...] class, so
+# are just the strings to substitute into it, as opposed to compiled patterns.
+my $cntrl = '[:cntrl:]';
+$cntrl = '\x00-\x1F\x7F' unless eval "qr/[$cntrl]/";
+
+my $not_ascii = '[:^ascii:]';
+$not_ascii = '\x80-\xFF' unless eval "qr/[$not_ascii]/";
+
+
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+sub _openclose {
+ return map {;
+   m/^([-A-Za-z]+)=(\w[^\=]*)$/s or die "what's <$_>?";
+   ( $1,  "{\\$2\n",   "/$1",  "}" );
+ } @_;
+}
+
+my @_to_accept;
+
+%Tagmap = (
+ # 'foo=bar' means ('foo' => '{\bar'."\n", '/foo' => '}')
+ _openclose(
+  'B=cs18\b',
+  'I=cs16\i',
+  'C=cs19\f1\lang1024\noproof',
+  'F=cs17\i\lang1024\noproof',
+
+  'VerbatimI=cs26\i',
+  'VerbatimB=cs27\b',
+  'VerbatimBI=cs28\b\i',
+
+  map {; m/^([-a-z]+)/s && push @_to_accept, $1; $_ }
+   qw[
+       underline=ul         smallcaps=scaps  shadow=shad
+       superscript=super    subscript=sub    strikethrough=strike
+       outline=outl         emboss=embo      engrave=impr   
+       dotted-underline=uld          dash-underline=uldash
+       dot-dash-underline=uldashd    dot-dot-dash-underline=uldashdd     
+       double-underline=uldb         thick-underline=ulth
+       word-underline=ulw            wave-underline=ulwave
+   ]
+   # But no double-strikethrough, because MSWord can't agree with the
+   #  RTF spec on whether it's supposed to be \strikedl or \striked1 (!!!)
+ ),
+
+ # Bit of a hack here:
+ 'L=pod' => '{\cs22\i'."\n",
+ 'L=url' => '{\cs23\i'."\n",
+ 'L=man' => '{\cs24\i'."\n",
+ '/L' => '}',
+
+ 'Data'  => "\n",
+ '/Data' => "\n",
+
+ 'Verbatim'  => "\n{\\pard\\li#rtfindent##rtfkeep#\\plain\\s20\\sa180\\f1\\fs18\\lang1024\\noproof\n",
+ '/Verbatim' => "\n\\par}\n",
+ 'VerbatimFormatted'  => "\n{\\pard\\li#rtfindent##rtfkeep#\\plain\\s20\\sa180\\f1\\fs18\\lang1024\\noproof\n",
+ '/VerbatimFormatted' => "\n\\par}\n",
+ 'Para'    => "\n{\\pard\\li#rtfindent#\\sa180\n",
+ '/Para'   => "\n\\par}\n",
+ 'head1'   => "\n{\\pard\\li#rtfindent#\\s31\\keepn\\sb90\\sa180\\f2\\fs#head1_halfpoint_size#\\ul{\n",
+ '/head1'  => "\n}\\par}\n",
+ 'head2'   => "\n{\\pard\\li#rtfindent#\\s32\\keepn\\sb90\\sa180\\f2\\fs#head2_halfpoint_size#\\ul{\n",
+ '/head2'  => "\n}\\par}\n",
+ 'head3'   => "\n{\\pard\\li#rtfindent#\\s33\\keepn\\sb90\\sa180\\f2\\fs#head3_halfpoint_size#\\ul{\n",
+ '/head3'  => "\n}\\par}\n",
+ 'head4'   => "\n{\\pard\\li#rtfindent#\\s34\\keepn\\sb90\\sa180\\f2\\fs#head4_halfpoint_size#\\ul{\n",
+ '/head4'  => "\n}\\par}\n",
+   # wordpad borks on \tc\tcl1, or I'd put that in =head1 and =head2
+
+ 'item-bullet'  => "\n{\\pard\\li#rtfindent##rtfitemkeepn#\\sb60\\sa150\\fi-120\n",
+ '/item-bullet' => "\n\\par}\n",
+ 'item-number'  => "\n{\\pard\\li#rtfindent##rtfitemkeepn#\\sb60\\sa150\\fi-120\n",
+ '/item-number' => "\n\\par}\n",
+ 'item-text'    => "\n{\\pard\\li#rtfindent##rtfitemkeepn#\\sb60\\sa150\\fi-120\n",
+ '/item-text'   => "\n\\par}\n",
+
+ # we don't need any styles for over-* and /over-*
+);
+
+
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+sub new {
+  my $new = shift->SUPER::new(@_);
+  $new->nix_X_codes(1);
+  $new->nbsp_for_S(1);
+  $new->accept_targets( 'rtf', 'RTF' );
+
+  $new->{'Tagmap'} = {%Tagmap};
+
+  $new->accept_codes(@_to_accept);
+  $new->accept_codes('VerbatimFormatted');
+  DEBUG > 2 and print STDERR "To accept: ", join(' ',@_to_accept), "\n";
+  $new->doc_lang(
+    (  $ENV{'RTFDEFLANG'} || '') =~ m/^(\d{1,10})$/s ? $1
+    : ($ENV{'RTFDEFLANG'} || '') =~ m/^0?x([a-fA-F0-9]{1,10})$/s ? hex($1)
+                                      # yes, tolerate hex!
+    : ($ENV{'RTFDEFLANG'} || '') =~ m/^([a-fA-F0-9]{4})$/s ? hex($1)
+                                      # yes, tolerate even more hex!
+    : '1033'
+  );
+
+  $new->head1_halfpoint_size(32);
+  $new->head2_halfpoint_size(28);
+  $new->head3_halfpoint_size(25);
+  $new->head4_halfpoint_size(22);
+  $new->codeblock_halfpoint_size(18);
+  $new->header_halfpoint_size(17);
+  $new->normal_halfpoint_size(25);
+
+  return $new;
+}
+
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+__PACKAGE__->_accessorize(
+ 'doc_lang',
+ 'head1_halfpoint_size',
+ 'head2_halfpoint_size',
+ 'head3_halfpoint_size',
+ 'head4_halfpoint_size',
+ 'codeblock_halfpoint_size',
+ 'header_halfpoint_size',
+ 'normal_halfpoint_size',
+ 'no_proofing_exemptions',
+);
+
+
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+sub run {
+  my $self = $_[0];
+  return $self->do_middle if $self->bare_output;
+  return
+   $self->do_beginning && $self->do_middle && $self->do_end;
+}
+
+
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+sub do_middle {      # the main work
+  my $self = $_[0];
+  my $fh = $self->{'output_fh'};
+  
+  my($token, $type, $tagname, $scratch);
+  my @stack;
+  my @indent_stack;
+  $self->{'rtfindent'} = 0 unless defined $self->{'rtfindent'};
+  
+  while($token = $self->get_token) {
+  
+    if( ($type = $token->type) eq 'text' ) {
+      if( $self->{'rtfverbatim'} ) {
+        DEBUG > 1 and print STDERR "  $type " , $token->text, " in verbatim!\n";
+        rtf_esc_codely($scratch = $token->text);
+        print $fh $scratch;
+        next;
+      }
+
+      DEBUG > 1 and print STDERR "  $type " , $token->text, "\n";
+      
+      $scratch = $token->text;
+      $scratch =~ tr/\t\cb\cc/ /d;
+      
+      $self->{'no_proofing_exemptions'} or $scratch =~
+       s/(?:
+           ^
+           |
+           (?<=[\r\n\t "\[\<\(])
+         )   # start on whitespace, sequence-start, or quote
+         ( # something looking like a Perl token:
+          (?:
+           [\$\@\:\<\*\\_]\S+  # either starting with a sigil, etc.
+          )
+          |
+          # or starting alpha, but containing anything strange:
+          (?:
+           [a-zA-Z'${not_ascii}]+[\$\@\:_<>\(\\\*]\S+
+          )
+         )
+        /\cb$1\cc/xsg
+      ;
+      
+      rtf_esc($scratch);
+      $scratch =~
+         s/(
+            [^\r\n]{65}        # Snare 65 characters from a line
+            [^\r\n ]{0,50}     #  and finish any current word
+           )
+           (\ {1,10})(?![\r\n]) # capture some spaces not at line-end
+          /$1$2\n/gx     # and put a NL before those spaces
+        if $WRAP;
+        # This may wrap at well past the 65th column, but not past the 120th.
+      
+      print $fh $scratch;
+
+    } elsif( $type eq 'start' ) {
+      DEBUG > 1 and print STDERR "  +$type ",$token->tagname,
+        " (", map("<$_> ", %{$token->attr_hash}), ")\n";
+
+      if( ($tagname = $token->tagname) eq 'Verbatim'
+          or $tagname eq 'VerbatimFormatted'
+      ) {
+        ++$self->{'rtfverbatim'};
+        my $next = $self->get_token;
+        next unless defined $next;
+        my $line_count = 1;
+        if($next->type eq 'text') {
+          my $t = $next->text_r;
+          while( $$t =~ m/$/mg ) {
+            last if  ++$line_count  > 15; # no point in counting further
+          }
+          DEBUG > 3 and print STDERR "    verbatim line count: $line_count\n";
+        }
+        $self->unget_token($next);
+        $self->{'rtfkeep'} = ($line_count > 15) ? '' : '\keepn' ;     
+
+      } elsif( $tagname =~ m/^item-/s ) {
+        my @to_unget;
+        my $text_count_here = 0;
+        $self->{'rtfitemkeepn'} = '';
+        # Some heuristics to stop item-*'s functioning as subheadings
+        #  from getting split from the things they're subheadings for.
+        #
+        # It's not terribly pretty, but it really does make things pretty.
+        #
+        while(1) {
+          push @to_unget, $self->get_token;
+          pop(@to_unget), last unless defined $to_unget[-1];
+           # Erroneously used to be "unshift" instead of pop!  Adds instead
+           # of removes, and operates on the beginning instead of the end!
+          
+          if($to_unget[-1]->type eq 'text') {
+            if( ($text_count_here += length ${$to_unget[-1]->text_r}) > 150 ){
+              DEBUG > 1 and print STDERR "    item-* is too long to be keepn'd.\n";
+              last;
+            }
+          } elsif (@to_unget > 1 and
+            $to_unget[-2]->type eq 'end' and
+            $to_unget[-2]->tagname =~ m/^item-/s
+          ) {
+            # Bail out here, after setting rtfitemkeepn yea or nay.
+            $self->{'rtfitemkeepn'} = '\keepn' if 
+              $to_unget[-1]->type eq 'start' and
+              $to_unget[-1]->tagname eq 'Para';
+
+            DEBUG > 1 and printf STDERR "    item-* before %s(%s) %s keepn'd.\n",
+              $to_unget[-1]->type,
+              $to_unget[-1]->can('tagname') ? $to_unget[-1]->tagname : '',
+              $self->{'rtfitemkeepn'} ? "gets" : "doesn't get";
+            last;
+          } elsif (@to_unget > 40) {
+            DEBUG > 1 and print STDERR "    item-* now has too many tokens (",
+              scalar(@to_unget),
+              (DEBUG > 4) ? (q<: >, map($_->dump, @to_unget)) : (),
+              ") to be keepn'd.\n";
+            last; # give up
+          }
+          # else keep while'ing along
+        }
+        # Now put it aaaaall back...
+        $self->unget_token(@to_unget);
+
+      } elsif( $tagname =~ m/^over-/s ) {
+        push @stack, $1;
+        push @indent_stack,
+         int($token->attr('indent') * 4 * $self->normal_halfpoint_size);
+        DEBUG and print STDERR "Indenting over $indent_stack[-1] twips.\n";
+        $self->{'rtfindent'} += $indent_stack[-1];
+        
+      } elsif ($tagname eq 'L') {
+        $tagname .= '=' . ($token->attr('type') || 'pod');
+        
+      } elsif ($tagname eq 'Data') {
+        my $next = $self->get_token;
+        next unless defined $next;
+        unless( $next->type eq 'text' ) {
+          $self->unget_token($next);
+          next;
+        }
+        DEBUG and print STDERR "    raw text ", $next->text, "\n";
+        printf $fh "\n" . $next->text . "\n";
+        next;
+      }
+
+      defined($scratch = $self->{'Tagmap'}{$tagname}) or next;
+      $scratch =~ s/\#([^\#]+)\#/${$self}{$1}/g; # interpolate
+      print $fh $scratch;
+      
+      if ($tagname eq 'item-number') {
+        print $fh $token->attr('number'), ". \n";
+      } elsif ($tagname eq 'item-bullet') {
+        print $fh "\\'", ord("_"), "\n";
+        #for funky testing: print $fh '', rtf_esc("\x{4E4B}\x{9053}");
+      }
+
+    } elsif( $type eq 'end' ) {
+      DEBUG > 1 and print STDERR "  -$type ",$token->tagname,"\n";
+      if( ($tagname = $token->tagname) =~ m/^over-/s ) {
+        DEBUG and print STDERR "Indenting back $indent_stack[-1] twips.\n";
+        $self->{'rtfindent'} -= pop @indent_stack;
+        pop @stack;
+      } elsif( $tagname eq 'Verbatim' or $tagname eq 'VerbatimFormatted') {
+        --$self->{'rtfverbatim'};
+      }
+      defined($scratch = $self->{'Tagmap'}{"/$tagname"}) or next;
+      $scratch =~ s/\#([^\#]+)\#/${$self}{$1}/g; # interpolate
+      print $fh $scratch;
+    }
+  }
+  return 1;
+}
+
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+sub do_beginning {
+  my $self = $_[0];
+  my $fh = $self->{'output_fh'};
+  return print $fh join '',
+    $self->doc_init,
+    $self->font_table,
+    $self->stylesheet,
+    $self->color_table,
+    $self->doc_info,
+    $self->doc_start,
+    "\n"
+  ;
+}
+
+sub do_end {
+  my $self = $_[0];
+  my $fh = $self->{'output_fh'};
+  return print $fh '}'; # that should do it
+}
+
+###########################################################################
+
+sub stylesheet {
+  return sprintf <<'END',
+{\stylesheet
+{\snext0 Normal;}
+{\*\cs10 \additive Default Paragraph Font;}
+{\*\cs16 \additive \i \sbasedon10 pod-I;}
+{\*\cs17 \additive \i\lang1024\noproof \sbasedon10 pod-F;}
+{\*\cs18 \additive \b \sbasedon10 pod-B;}
+{\*\cs19 \additive \f1\lang1024\noproof\sbasedon10 pod-C;}
+{\s20\ql \li0\ri0\sa180\widctlpar\f1\fs%s\lang1024\noproof\sbasedon0 \snext0 pod-codeblock;}
+{\*\cs21 \additive \lang1024\noproof \sbasedon10 pod-computerese;}
+{\*\cs22 \additive \i\lang1024\noproof\sbasedon10 pod-L-pod;}
+{\*\cs23 \additive \i\lang1024\noproof\sbasedon10 pod-L-url;}
+{\*\cs24 \additive \i\lang1024\noproof\sbasedon10 pod-L-man;}
+
+{\*\cs25 \additive \f1\lang1024\noproof\sbasedon0 pod-codelbock-plain;}
+{\*\cs26 \additive \f1\lang1024\noproof\sbasedon25 pod-codelbock-ital;}
+{\*\cs27 \additive \f1\lang1024\noproof\sbasedon25 pod-codelbock-bold;}
+{\*\cs28 \additive \f1\lang1024\noproof\sbasedon25 pod-codelbock-bold-ital;}
+
+{\s31\ql \keepn\sb90\sa180\f2\fs%s\ul\sbasedon0 \snext0 pod-head1;}
+{\s32\ql \keepn\sb90\sa180\f2\fs%s\ul\sbasedon0 \snext0 pod-head2;}
+{\s33\ql \keepn\sb90\sa180\f2\fs%s\ul\sbasedon0 \snext0 pod-head3;}
+{\s34\ql \keepn\sb90\sa180\f2\fs%s\ul\sbasedon0 \snext0 pod-head4;}
+}
+
+END
+
+   $_[0]->codeblock_halfpoint_size(),
+   $_[0]->head1_halfpoint_size(),
+   $_[0]->head2_halfpoint_size(),
+   $_[0]->head3_halfpoint_size(),
+   $_[0]->head4_halfpoint_size(),
+  ;
+}
+
+###########################################################################
+# Override these as necessary for further customization
+
+sub font_table {
+  return <<'END';  # text font, code font, heading font
+{\fonttbl
+{\f0\froman Times New Roman;}
+{\f1\fmodern Courier New;}
+{\f2\fswiss Arial;}
+}
+
+END
+}
+
+sub doc_init {
+   return <<'END';
+{\rtf1\ansi\deff0
+
+END
+}
+
+sub color_table {
+   return <<'END';
+{\colortbl;\red255\green0\blue0;\red0\green0\blue255;}
+END
+}
+
+
+sub doc_info {
+   my $self = $_[0];
+
+   my $class = ref($self) || $self;
+
+   my $tag = __PACKAGE__ . ' ' . $VERSION;
+   
+   unless($class eq __PACKAGE__) {
+     $tag = " ($tag)";
+     $tag = " v" . $self->VERSION . $tag   if   defined $self->VERSION;
+     $tag = $class . $tag;
+   }
+
+   return sprintf <<'END',
+{\info{\doccomm
+%s
+ using %s v%s
+ under Perl v%s at %s GMT}
+{\author [see doc]}{\company [see doc]}{\operator [see doc]}
+}
+
+END
+
+  # None of the following things should need escaping, I dare say!
+    $tag, 
+    $ISA[0], $ISA[0]->VERSION(),
+    $], scalar(gmtime),
+  ;
+}
+
+sub doc_start {
+  my $self = $_[0];
+  my $title = $self->get_short_title();
+  DEBUG and print STDERR "Short Title: <$title>\n";
+  $title .= ' ' if length $title;
+  
+  $title =~ s/ *$/ /s;
+  $title =~ s/^ //s;
+  $title =~ s/ $/, /s;
+   # make sure it ends in a comma and a space, unless it's 0-length
+
+  my $is_obviously_module_name;
+  $is_obviously_module_name = 1
+   if $title =~ m/^\S+$/s and $title =~ m/::/s;
+    # catches the most common case, at least
+
+  DEBUG and print STDERR "Title0: <$title>\n";
+  $title = rtf_esc($title);
+  DEBUG and print STDERR "Title1: <$title>\n";
+  $title = '\lang1024\noproof ' . $title
+   if $is_obviously_module_name;
+
+  return sprintf <<'END', 
+\deflang%s\plain\lang%s\widowctrl
+{\header\pard\qr\plain\f2\fs%s
+%s
+p.\chpgn\par}
+\fs%s
+
+END
+    ($self->doc_lang) x 2,
+    $self->header_halfpoint_size,
+    $title,
+    $self->normal_halfpoint_size,
+  ;
+}
+
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+#-------------------------------------------------------------------------
+
+use integer;
+sub rtf_esc {
+  my $x; # scratch
+  if(!defined wantarray) { # void context: alter in-place!
+    for(@_) {
+      s/([F${cntrl}\-\\\{\}${not_ascii}])/$Escape{$1}/g;  # ESCAPER
+      s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
+    }
+    return;
+  } elsif(wantarray) {  # return an array
+    return map {; ($x = $_) =~
+      s/([F${cntrl}\-\\\{\}${not_ascii}])/$Escape{$1}/g;  # ESCAPER
+      $x =~ s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
+      $x;
+    } @_;
+  } else { # return a single scalar
+    ($x = ((@_ == 1) ? $_[0] : join '', @_)
+    ) =~ s/([F${cntrl}\-\\\{\}${not_ascii}])/$Escape{$1}/g;  # ESCAPER
+             # Escape \, {, }, -, control chars, and 7f-ff.
+    $x =~ s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
+    return $x;
+  }
+}
+
+sub rtf_esc_codely {
+  # Doesn't change "-" to hard-hyphen, nor apply computerese style-smarts.
+  # We don't want to change the "-" to hard-hyphen, because we want to
+  #  be able to paste this into a file and run it without there being
+  #  dire screaming about the mysterious hard-hyphen character (which
+  #  looks just like a normal dash character).
+  
+  my $x; # scratch
+  if(!defined wantarray) { # void context: alter in-place!
+    for(@_) {
+      s/([F${cntrl}\\\{\}${not_ascii}])/$Escape{$1}/g;  # ESCAPER
+      s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
+    }
+    return;
+  } elsif(wantarray) {  # return an array
+    return map {; ($x = $_) =~
+      s/([F${cntrl}\\\{\}${not_ascii}])/$Escape{$1}/g;  # ESCAPER
+      $x =~ s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
+      $x;
+    } @_;
+  } else { # return a single scalar
+    ($x = ((@_ == 1) ? $_[0] : join '', @_)
+    ) =~ s/([F${cntrl}\\\{\}${not_ascii}])/$Escape{$1}/g;  # ESCAPER
+             # Escape \, {, }, -, control chars, and 7f-ff.
+    $x =~ s/([^\x00-\xFF])/'\\uc1\\u'.((ord($1)<32768)?ord($1):(ord($1)-65536)).'?'/eg;
+    return $x;
+  }
+}
+
+%Escape = (
+  (($] lt 5.007_003) # Broken for non-ASCII on early Perls
+   ? (map( (chr($_),chr($_)), # things not apparently needing escaping
+       0x20 .. 0x7E ),
+      map( (chr($_),sprintf("\\'%02x", $_)), # apparently escapeworthy things
+       0x00 .. 0x1F, 0x5c, 0x7b, 0x7d, 0x7f .. 0xFF, 0x46))
+   : (map( (chr(utf8::unicode_to_native($_)),chr(utf8::unicode_to_native($_))),
+       0x20 .. 0x7E ),
+      map( (chr($_),sprintf("\\'%02x", utf8::unicode_to_native($_))),
+       0x00 .. 0x1F, 0x5c, 0x7b, 0x7d, 0x7f .. 0xFF, 0x46))),
+
+  # We get to escape out 'F' so that we can send RTF files thru the mail
+  # without the slightest worry that paragraphs beginning with "From"
+  # will get munged.
+
+  # And some refinements:
+  "\r"  => "\n",
+  "\cj"  => "\n",
+  "\n"   => "\n\\line ",
+
+  "\t"   => "\\tab ",     # Tabs (altho theoretically raw \t's are okay)
+  "\f"   => "\n\\page\n", # Formfeed
+  "-"    => "\\_",        # Turn plaintext '-' into a non-breaking hyphen
+  $Pod::Simple::nbsp => "\\~",        # Latin-1 non-breaking space
+  $Pod::Simple::shy => "\\-",        # Latin-1 soft (optional) hyphen
+
+  # CRAZY HACKS:
+  "\n" => "\\line\n",
+  "\r" => "\n",
+  "\cb" => "{\n\\cs21\\lang1024\\noproof ",  # \\cf1
+  "\cc" => "}",
+);
+1;
+
+__END__
+
+=head1 NAME
+
+Pod::Simple::RTF -- format Pod as RTF
+
+=head1 SYNOPSIS
+
+  perl -MPod::Simple::RTF -e \
+   "exit Pod::Simple::RTF->filter(shift)->any_errata_seen" \
+   thingy.pod > thingy.rtf
+
+=head1 DESCRIPTION
+
+This class is a formatter that takes Pod and renders it as RTF, good for
+viewing/printing in MSWord, WordPad/write.exe, TextEdit, etc.
+
+This is a subclass of L<Pod::Simple> and inherits all its methods.
+
+=head1 FORMAT CONTROL ATTRIBUTES
+
+You can set these attributes on the parser object before you
+call C<parse_file> (or a similar method) on it:
+
+=over
+
+=item $parser->head1_halfpoint_size( I<halfpoint_integer> );
+
+=item $parser->head2_halfpoint_size( I<halfpoint_integer> );
+
+=item $parser->head3_halfpoint_size( I<halfpoint_integer> );
+
+=item $parser->head4_halfpoint_size( I<halfpoint_integer> );
+
+These methods set the size (in half-points, like 52 for 26-point)
+that these heading levels will appear as.
+
+=item $parser->codeblock_halfpoint_size( I<halfpoint_integer> );
+
+This method sets the size (in half-points, like 21 for 10.5-point)
+that codeblocks ("verbatim sections") will appear as.
+
+=item $parser->header_halfpoint_size( I<halfpoint_integer> );
+
+This method sets the size (in half-points, like 15 for 7.5-point)
+that the header on each page will appear in.  The header
+is usually just "I<modulename> p. I<pagenumber>".
+
+=item $parser->normal_halfpoint_size( I<halfpoint_integer> );
+
+This method sets the size (in half-points, like 26 for 13-point)
+that normal paragraphic text will appear in.
+
+=item $parser->no_proofing_exemptions( I<true_or_false> );
+
+Set this value to true if you don't want the formatter to try
+putting a hidden code on all Perl symbols (as best as it can
+notice them) that labels them as being not in English, and
+so not worth spellchecking.
+
+=item $parser->doc_lang( I<microsoft_decimal_language_code> )
+
+This sets the language code to tag this document as being in. By
+default, it is currently the value of the environment variable
+C<RTFDEFLANG>, or if that's not set, then the value
+1033 (for US English).
+
+Setting this appropriately is useful if you want to use the RTF
+to spellcheck, and/or if you want it to hyphenate right.
+
+Here are some notable values:
+
+  1033  US English
+  2057  UK English
+  3081  Australia English
+  4105  Canada English
+  1034  Spain Spanish
+  2058  Mexico Spanish
+  1031  Germany German
+  1036  France French
+  3084  Canada French
+  1035  Finnish
+  1044  Norwegian (Bokmal)
+  2068  Norwegian (Nynorsk)
+
+=back
+
+If you are particularly interested in customizing this module's output
+even more, see the source and/or write to me.
+
+=head1 SEE ALSO
+
+L<Pod::Simple>, L<RTF::Writer>, L<RTF::Cookbook>, L<RTF::Document>,
+L<RTF::Generator>
+
+=head1 SUPPORT
+
+Questions or discussion about POD and Pod::Simple should be sent to the
+pod-people@perl.org mail list. Send an empty email to
+pod-people-subscribe@perl.org to subscribe.
+
+This module is managed in an open GitHub repository,
+L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or
+to clone L<git://github.com/perl-pod/pod-simple.git> and send patches!
+
+Patches against Pod::Simple are welcome. Please send bug reports to
+<bug-pod-simple@rt.cpan.org>.
+
+=head1 COPYRIGHT AND DISCLAIMERS
+
+Copyright (c) 2002 Sean M. Burke.
+
+This library is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+This program is distributed in the hope that it will be useful, but
+without any warranty; without even the implied warranty of
+merchantability or fitness for a particular purpose.
+
+=head1 AUTHOR
+
+Pod::Simple was created by Sean M. Burke <sburke@cpan.org>.
+But don't bother him, he's retired.
+
+Pod::Simple is maintained by:
+
+=over
+
+=item * Allison Randal C<allison@perl.org>
+
+=item * Hans Dieter Pearcey C<hdp@cpan.org>
+
+=item * David E. Wheeler C<dwheeler@cpan.org>
+
+=back
+
+=cut
diff --git a/lib/5.24.1/Pod/Simple/Search.pm b/lib/5.24.1/Pod/Simple/Search.pm
new file mode 100644
index 00000000..d5a4a020
--- /dev/null
+++ b/lib/5.24.1/Pod/Simple/Search.pm
@@ -0,0 +1,1079 @@
+require 5.005;
+package Pod::Simple::Search;
+use strict;
+
+use vars qw($VERSION $MAX_VERSION_WITHIN $SLEEPY);
+$VERSION = '3.32';   ## Current version of this package
+
+BEGIN { *DEBUG = sub () {0} unless defined &DEBUG; }   # set DEBUG level
+use Carp ();
+
+$SLEEPY = 1 if !defined $SLEEPY and $^O =~ /mswin|mac/i;
+  # flag to occasionally sleep for $SLEEPY - 1 seconds.
+
+$MAX_VERSION_WITHIN ||= 60;
+my $IS_CASE_INSENSITIVE = -e uc __FILE__ && -e lc __FILE__;
+
+#############################################################################
+
+#use diagnostics;
+use File::Spec ();
+use File::Basename qw( basename dirname );
+use Config ();
+use Cwd qw( cwd );
+
+#==========================================================================
+__PACKAGE__->_accessorize(  # Make my dumb accessor methods
+ 'callback', 'progress', 'dir_prefix', 'inc', 'laborious', 'limit_glob',
+ 'limit_re', 'shadows', 'verbose', 'name2path', 'path2name', 'recurse',
+ 'ciseen'
+);
+#==========================================================================
+
+sub new {
+  my $class = shift;
+  my $self = bless {}, ref($class) || $class;
+  $self->init;
+  return $self;
+}
+
+sub init {
+  my $self = shift;
+  $self->inc(1);
+  $self->recurse(1);
+  $self->verbose(DEBUG);
+  return $self;
+}
+
+#--------------------------------------------------------------------------
+
+sub survey {
+  my($self, @search_dirs) = @_;
+  $self = $self->new unless ref $self; # tolerate being a class method
+
+  $self->_expand_inc( \@search_dirs );
+
+  $self->{'_scan_count'} = 0;
+  $self->{'_dirs_visited'} = {};
+  $self->path2name( {} );
+  $self->name2path( {} );
+  $self->ciseen( {} );
+  $self->limit_re( $self->_limit_glob_to_limit_re ) if $self->{'limit_glob'};
+  my $cwd = cwd();
+  my $verbose  = $self->verbose;
+  local $_; # don't clobber the caller's $_ !
+
+  foreach my $try (@search_dirs) {
+    unless( File::Spec->file_name_is_absolute($try) ) {
+      # make path absolute
+      $try = File::Spec->catfile( $cwd ,$try);
+    }
+    # simplify path
+    $try =  File::Spec->canonpath($try);
+
+    my $start_in;
+    my $modname_prefix;
+    if($self->{'dir_prefix'}) {
+      $start_in = File::Spec->catdir(
+        $try,
+        grep length($_), split '[\\/:]+', $self->{'dir_prefix'}
+      );
+      $modname_prefix = [grep length($_), split m{[:/\\]}, $self->{'dir_prefix'}];
+      $verbose and print "Appending \"$self->{'dir_prefix'}\" to $try, ",
+        "giving $start_in (= @$modname_prefix)\n";
+    } else {
+      $start_in = $try;
+    }
+
+    if( $self->{'_dirs_visited'}{$start_in} ) {
+      $verbose and print "Directory '$start_in' already seen, skipping.\n";
+      next;
+    } else {
+      $self->{'_dirs_visited'}{$start_in} = 1;
+    }
+  
+    unless(-e $start_in) {
+      $verbose and print "Skipping non-existent $start_in\n";
+      next;
+    }
+
+    my $closure = $self->_make_search_callback;
+    
+    if(-d $start_in) {
+      # Normal case:
+      $verbose and print "Beginning excursion under $start_in\n";
+      $self->_recurse_dir( $start_in, $closure, $modname_prefix );
+      $verbose and print "Back from excursion under $start_in\n\n";
+        
+    } elsif(-f _) {
+      # A excursion consisting of just one file!
+      $_ = basename($start_in);
+      $verbose and print "Pondering $start_in ($_)\n";
+      $closure->($start_in, $_, 0, []);
+        
+    } else {
+      $verbose and print "Skipping mysterious $start_in\n";
+    }
+  }
+  $self->progress and $self->progress->done(
+   "Noted $$self{'_scan_count'} Pod files total");
+  $self->ciseen( {} );
+
+  return unless defined wantarray; # void
+  return $self->name2path unless wantarray; # scalar
+  return $self->name2path, $self->path2name; # list
+}
+
+#==========================================================================
+sub _make_search_callback {
+  my $self = $_[0];
+
+  # Put the options in variables, for easy access
+  my( $laborious, $verbose, $shadows, $limit_re, $callback, $progress,
+      $path2name, $name2path, $recurse, $ciseen) =
+    map scalar($self->$_()),
+     qw(laborious verbose shadows limit_re callback progress
+        path2name name2path recurse ciseen);
+  my ($seen, $remember, $files_for);
+  if ($IS_CASE_INSENSITIVE) {
+      $seen      = sub { $ciseen->{ lc $_[0] } };
+      $remember  = sub { $name2path->{ $_[0] } = $ciseen->{ lc $_[0] } = $_[1]; };
+      $files_for = sub { my $n = lc $_[0]; grep { lc $path2name->{$_} eq $n } %{ $path2name } };
+  } else {
+      $seen      = sub { $name2path->{ $_[0] } };
+      $remember  = sub { $name2path->{ $_[0] } = $_[1] };
+      $files_for = sub { my $n = $_[0]; grep { $path2name->{$_} eq $n } %{ $path2name } };
+  }
+
+  my($file, $shortname, $isdir, $modname_bits);
+  return sub {
+    ($file, $shortname, $isdir, $modname_bits) = @_;
+
+    if($isdir) { # this never gets called on the startdir itself, just subdirs
+
+      unless( $recurse ) {
+        $verbose and print "Not recursing into '$file' as per requested.\n";
+        return 'PRUNE';
+      }
+
+      if( $self->{'_dirs_visited'}{$file} ) {
+        $verbose and print "Directory '$file' already seen, skipping.\n";
+        return 'PRUNE';
+      }
+
+      print "Looking in dir $file\n" if $verbose;
+
+      unless ($laborious) { # $laborious overrides pruning
+        if( m/^(\d+\.[\d_]{3,})\z/s
+             and do { my $x = $1; $x =~ tr/_//d; $x != $] }
+           ) {
+          $verbose and print "Perl $] version mismatch on $_, skipping.\n";
+          return 'PRUNE';
+        }
+
+        if( m/^([A-Za-z][a-zA-Z0-9_]*)\z/s ) {
+          $verbose and print "$_ is a well-named module subdir.  Looking....\n";
+        } else {
+          $verbose and print "$_ is a fishy directory name.  Skipping.\n";
+          return 'PRUNE';
+        }
+      } # end unless $laborious
+
+      $self->{'_dirs_visited'}{$file} = 1;
+      return; # (not pruning);
+    }
+
+    # Make sure it's a file even worth even considering
+    if($laborious) {
+      unless(
+        m/\.(pod|pm|plx?)\z/i || -x _ and -T _
+         # Note that the cheapest operation (the RE) is run first.
+      ) {
+        $verbose > 1 and print " Brushing off uninteresting $file\n";
+        return;
+      }
+    } else {
+      unless( m/^[-_a-zA-Z0-9]+\.(?:pod|pm|plx?)\z/is ) {
+        $verbose > 1 and print " Brushing off oddly-named $file\n";
+        return;
+      }
+    }
+
+    $verbose and print "Considering item $file\n";
+    my $name = $self->_path2modname( $file, $shortname, $modname_bits );
+    $verbose > 0.01 and print " Nominating $file as $name\n";
+        
+    if($limit_re and $name !~ m/$limit_re/i) {
+      $verbose and print "Shunning $name as not matching $limit_re\n";
+      return;
+    }
+
+    if( !$shadows and $seen->($name) ) {
+      $verbose and print "Not worth considering $file ",
+        "-- already saw $name as ",
+        join(' ', $files_for->($name)), "\n";
+      return;
+    }
+
+    # Put off until as late as possible the expense of
+    #  actually reading the file:
+    $progress and $progress->reach($self->{'_scan_count'}, "Scanning $file");
+    return unless $self->contains_pod( $file );
+    ++ $self->{'_scan_count'};
+
+    # Or finally take note of it:
+    if ( my $prev = $seen->($name)  ) {
+      $verbose and print
+       "Duplicate POD found (shadowing?): $name ($file)\n",
+       "    Already seen in ", join(' ', $files_for->($name)), "\n";
+    } else {
+      $remember->($name, $file); # Noting just the first occurrence
+    }
+    $verbose and print "  Noting $name = $file\n";
+    if( $callback ) {
+      local $_ = $_; # insulate from changes, just in case
+      $callback->($file, $name);
+    }
+    $path2name->{$file} = $name;
+    return;
+  }
+}
+
+#==========================================================================
+
+sub _path2modname {
+  my($self, $file, $shortname, $modname_bits) = @_;
+
+  # this code simplifies the POD name for Perl modules:
+  # * remove "site_perl"
+  # * remove e.g. "i586-linux" (from 'archname')
+  # * remove e.g. 5.00503
+  # * remove pod/ if followed by perl*.pod (e.g. in pod/perlfunc.pod)
+  # * dig into the file for case-preserved name if not already mixed case
+
+  my @m = @$modname_bits;
+  my $x;
+  my $verbose = $self->verbose;
+
+  # Shaving off leading naughty-bits
+  while(@m
+    and defined($x = lc( $m[0] ))
+    and(  $x eq 'site_perl'
+       or($x eq 'pod' and @m == 1 and $shortname =~ m{^perl.*\.pod$}s )
+       or $x =~ m{\\d+\\.z\\d+([_.]?\\d+)?}  # if looks like a vernum
+       or $x eq lc( $Config::Config{'archname'} )
+  )) { shift @m }
+
+  my $name = join '::', @m, $shortname;
+  $self->_simplify_base($name);
+
+  # On VMS, case-preserved document names can't be constructed from
+  # filenames, so try to extract them from the "=head1 NAME" tag in the
+  # file instead.
+  if ($^O eq 'VMS' && ($name eq lc($name) || $name eq uc($name))) {
+      open PODFILE, "<$file" or die "_path2modname: Can't open $file: $!";
+      my $in_pod = 0;
+      my $in_name = 0;
+      my $line;
+      while ($line = <PODFILE>) {
+        chomp $line;
+        $in_pod = 1 if ($line =~ m/^=\w/);
+        $in_pod = 0 if ($line =~ m/^=cut/);
+        next unless $in_pod;         # skip non-pod text
+        next if ($line =~ m/^\s*\z/);           # and blank lines
+        next if ($in_pod && ($line =~ m/^X</)); # and commands
+        if ($in_name) {
+          if ($line =~ m/(\w+::)?(\w+)/) {
+            # substitute case-preserved version of name
+            my $podname = $2;
+            my $prefix = $1 || '';
+            $verbose and print "Attempting case restore of '$name' from '$prefix$podname'\n";
+            unless ($name =~ s/$prefix$podname/$prefix$podname/i) {
+              $verbose and print "Attempting case restore of '$name' from '$podname'\n";
+              $name =~ s/$podname/$podname/i;
+            }
+            last;
+          }
+        }
+        $in_name = 1 if ($line =~ m/^=head1 NAME/);
+    }
+    close PODFILE;
+  }
+
+  return $name;
+}
+
+#==========================================================================
+
+sub _recurse_dir {
+  my($self, $startdir, $callback, $modname_bits) = @_;
+
+  my $maxdepth = $self->{'fs_recursion_maxdepth'} || 10;
+  my $verbose = $self->verbose;
+
+  my $here_string = File::Spec->curdir;
+  my $up_string   = File::Spec->updir;
+  $modname_bits ||= [];
+
+  my $recursor;
+  $recursor = sub {
+    my($dir_long, $dir_bare) = @_;
+    if( @$modname_bits >= 10 ) {
+      $verbose and print "Too deep! [@$modname_bits]\n";
+      return;
+    }
+
+    unless(-d $dir_long) {
+      $verbose > 2 and print "But it's not a dir! $dir_long\n";
+      return;
+    }
+    unless( opendir(INDIR, $dir_long) ) {
+      $verbose > 2 and print "Can't opendir $dir_long : $!\n";
+      closedir(INDIR);
+      return
+    }
+
+    # Load all items; put no extension before .pod before .pm before .plx?.
+    my @items = map { $_->[0] }
+      sort { $a->[1] cmp $b->[1] || $b->[2] cmp $a->[2] }
+      map {
+        (my $t = $_) =~ s/[.]p(m|lx?|od)\z//;
+        [$_, $t, lc($1 || 'z') ]
+      } readdir(INDIR);
+    closedir(INDIR);
+
+    push @$modname_bits, $dir_bare unless $dir_bare eq '';
+
+    my $i_full;
+    foreach my $i (@items) {
+      next if $i eq $here_string or $i eq $up_string or $i eq '';
+      $i_full = File::Spec->catfile( $dir_long, $i );
+
+      if(!-r $i_full) {
+        $verbose and print "Skipping unreadable $i_full\n";
+       
+      } elsif(-f $i_full) {
+        $_ = $i;
+        $callback->(          $i_full, $i, 0, $modname_bits );
+
+      } elsif(-d _) {
+        $i =~ s/\.DIR\z//i if $^O eq 'VMS';
+        $_ = $i;
+        my $rv = $callback->( $i_full, $i, 1, $modname_bits ) || '';
+
+        if($rv eq 'PRUNE') {
+          $verbose > 1 and print "OK, pruning";
+        } else {
+          # Otherwise, recurse into it
+          $recursor->( File::Spec->catdir($dir_long, $i) , $i);
+        }
+      } else {
+        $verbose > 1 and print "Skipping oddity $i_full\n";
+      }
+    }
+    pop @$modname_bits;
+    return;
+  };;
+
+  local $_;
+  $recursor->($startdir, '');
+
+  undef $recursor;  # allow it to be GC'd
+
+  return;  
+}
+
+
+#==========================================================================
+
+sub run {
+  # A function, useful in one-liners
+
+  my $self = __PACKAGE__->new;
+  $self->limit_glob($ARGV[0]) if @ARGV;
+  $self->callback( sub {
+    my($file, $name) = @_;
+    my $version = '';
+     
+    # Yes, I know we won't catch the version in like a File/Thing.pm
+    #  if we see File/Thing.pod first.  That's just the way the
+    #  cookie crumbles.  -- SMB
+     
+    if($file =~ m/\.pod$/i) {
+      # Don't bother looking for $VERSION in .pod files
+      DEBUG and print "Not looking for \$VERSION in .pod $file\n";
+    } elsif( !open(INPOD, $file) ) {
+      DEBUG and print "Couldn't open $file: $!\n";
+      close(INPOD);
+    } else {
+      # Sane case: file is readable
+      my $lines = 0;
+      while(<INPOD>) {
+        last if $lines++ > $MAX_VERSION_WITHIN; # some degree of sanity
+        if( s/^\s*\$VERSION\s*=\s*//s and m/\d/ ) {
+          DEBUG and print "Found version line (#$lines): $_";
+          s/\s*\#.*//s;
+          s/\;\s*$//s;
+          s/\s+$//s;
+          s/\t+/ /s; # nix tabs
+          # Optimize the most common cases:
+          $_ = "v$1"
+            if m{^v?["']?([0-9_]+(\.[0-9_]+)*)["']?$}s
+             # like in $VERSION = "3.14159";
+             or m{\$Revision:\s*([0-9_]+(?:\.[0-9_]+)*)\s*\$}s
+             # like in sprintf("%d.%02d", q$Revision: 4.13 $ =~ /(\d+)\.(\d+)/);
+          ;
+           
+          # Like in sprintf("%d.%s", map {s/_//g; $_} q$Name: release-0_55-public $ =~ /-(\d+)_([\d_]+)/)
+          $_ = sprintf("v%d.%s",
+            map {s/_//g; $_}
+              $1 =~ m/-(\d+)_([\d_]+)/) # snare just the numeric part
+           if m{\$Name:\s*([^\$]+)\$}s 
+          ;
+          $version = $_;
+          DEBUG and print "Noting $version as version\n";
+          last;
+        }
+      }
+      close(INPOD);
+    }
+    print "$name\t$version\t$file\n";
+    return;
+    # End of callback!
+  });
+
+  $self->survey;
+}
+
+#==========================================================================
+
+sub simplify_name {
+  my($self, $str) = @_;
+    
+  # Remove all path components
+  #                             XXX Why not just use basename()? -- SMB
+
+  if ($^O eq 'MacOS') { $str =~ s{^.*:+}{}s }
+  else                { $str =~ s{^.*/+}{}s }
+  
+  $self->_simplify_base($str);
+  return $str;
+}
+
+#==========================================================================
+
+sub _simplify_base {   # Internal method only
+
+  # strip Perl's own extensions
+  $_[1] =~ s/\.(pod|pm|plx?)\z//i;
+
+  # strip meaningless extensions on Win32 and OS/2
+  $_[1] =~ s/\.(bat|exe|cmd)\z//i if $^O =~ /mswin|os2/i;
+
+  # strip meaningless extensions on VMS
+  $_[1] =~ s/\.(com)\z//i if $^O eq 'VMS';
+
+  return;
+}
+
+#==========================================================================
+
+sub _expand_inc {
+  my($self, $search_dirs) = @_;
+  
+  return unless $self->{'inc'};
+  my %seen = map { File::Spec->rel2abs($_) => 1 } @{ $search_dirs };
+
+  if ($^O eq 'MacOS') {
+    push @$search_dirs,
+      grep { !$seen{ File::Spec->rel2abs($_) }++ } $self->_mac_whammy(@INC);
+  # Any other OSs need custom handling here?
+  } else {
+    push @$search_dirs,
+      grep { !$seen{ File::Spec->rel2abs($_) }++ } @INC;
+  }
+
+  $self->{'laborious'} = 0;   # Since inc said to use INC
+  return;
+}
+
+#==========================================================================
+
+sub _mac_whammy { # Tolerate '.', './some_dir' and '(../)+some_dir' on Mac OS
+  my @them;
+  (undef,@them) = @_;
+  for $_ (@them) {
+    if ( $_ eq '.' ) {
+      $_ = ':';
+    } elsif ( $_ =~ s|^((?:\.\./)+)|':' x (length($1)/3)|e ) {
+      $_ = ':'. $_;
+    } else {
+      $_ =~ s|^\./|:|;
+    }
+  }
+  return @them;
+}
+
+#==========================================================================
+
+sub _limit_glob_to_limit_re {
+  my $self = $_[0];
+  my $limit_glob = $self->{'limit_glob'} || return;
+
+  my $limit_re = '^' . quotemeta($limit_glob) . '$';
+  $limit_re =~ s/\\\?/./g;    # glob "?" => "."
+  $limit_re =~ s/\\\*/.*?/g;  # glob "*" => ".*?"
+  $limit_re =~ s/\.\*\?\$$//s; # final glob "*" => ".*?$" => ""
+
+  $self->{'verbose'} and print "Turning limit_glob $limit_glob into re $limit_re\n";
+
+  # A common optimization:
+  if(!exists($self->{'dir_prefix'})
+    and $limit_glob =~ m/^(?:\w+\:\:)+/s  # like "File::*" or "File::Thing*"
+    # Optimize for sane and common cases (but not things like "*::File")
+  ) {
+    $self->{'dir_prefix'} = join "::", $limit_glob =~ m/^(?:\w+::)+/sg;
+    $self->{'verbose'} and print " and setting dir_prefix to $self->{'dir_prefix'}\n";
+  }
+
+  return $limit_re;
+}
+
+#==========================================================================
+
+# contribution mostly from Tim Jenness <t.jenness@jach.hawaii.edu>
+
+sub _actual_filenames {
+    my $dir = shift;
+    my $fn = lc shift;
+    opendir my $dh, $dir or return;
+    return map { File::Spec->catdir($dir, $_) }
+        grep { lc $_  eq $fn } readdir $dh;
+}
+
+sub find {
+  my($self, $pod, @search_dirs) = @_;
+  $self = $self->new unless ref $self; # tolerate being a class method
+
+  # Check usage
+  Carp::carp 'Usage: \$self->find($podname, ...)'
+   unless defined $pod and length $pod;
+
+  my $verbose = $self->verbose;
+
+  # Split on :: and then join the name together using File::Spec
+  my @parts = split /::/, $pod;
+  $verbose and print "Chomping {$pod} => {@parts}\n";
+
+  #@search_dirs = File::Spec->curdir unless @search_dirs;
+  
+  $self->_expand_inc(\@search_dirs);
+  # Add location of binaries such as pod2text:
+  push @search_dirs, $Config::Config{'scriptdir'} if $self->inc;
+
+  my %seen_dir;
+  while (my $dir = shift @search_dirs ) {
+    next unless defined $dir and length $dir;
+    next if $seen_dir{$dir};
+    $seen_dir{$dir} = 1;
+    unless(-d $dir) {
+      print "Directory $dir does not exist\n" if $verbose;
+    }
+
+    print "Looking in directory $dir\n" if $verbose;
+    my $fullname = File::Spec->catfile( $dir, @parts );
+    print "Filename is now $fullname\n" if $verbose;
+
+    foreach my $ext ('', '.pod', '.pm', '.pl') {   # possible extensions
+      my $fullext = $fullname . $ext;
+      if ( -f $fullext and $self->contains_pod($fullext) ) {
+        print "FOUND: $fullext\n" if $verbose;
+        if (@parts > 1 && lc $parts[0] eq 'pod' && $IS_CASE_INSENSITIVE && $ext eq '.pod') {
+          # Well, this file could be for a program (perldoc) but we actually
+          # want a module (Pod::Perldoc). So see if there is a .pm with the
+          # proper casing.
+          my $subdir = dirname $fullext;
+          unless (grep { $fullext eq $_  } _actual_filenames $subdir, "$parts[-1].pod") {
+            print "# Looking for alternate spelling in $subdir\n" if $verbose;
+            # Try the .pm file.
+            my $pm = $fullname . '.pm';
+            if ( -f $pm and $self->contains_pod($pm) ) {
+              # Prefer the .pm if its case matches.
+              if (grep { $pm eq $_  } _actual_filenames $subdir, "$parts[-1].pm") {
+                print "FOUND: $fullext\n" if $verbose;
+                return $pm;
+              }
+            }
+          }
+        }
+        return $fullext;
+      }
+    }
+
+    # Case-insensitively Look for ./pod directories and slip them in.
+    for my $subdir ( _actual_filenames($dir, 'pod') ) {
+      if (-d $subdir) {
+        $verbose and print "Noticing $subdir and looking there...\n";
+        unshift @search_dirs, $subdir;
+      }
+    }
+  }
+
+  return undef;
+}
+
+#==========================================================================
+
+sub contains_pod {
+  my($self, $file) = @_;
+  my $verbose = $self->{'verbose'};
+
+  # check for one line of POD
+  $verbose > 1 and print " Scanning $file for pod...\n";
+  unless( open(MAYBEPOD,"<$file") ) {
+    print "Error: $file is unreadable: $!\n";
+    return undef;
+  }
+
+  sleep($SLEEPY - 1) if $SLEEPY;
+   # avoid totally hogging the processor on OSs with poor process control
+  
+  local $_;
+  while( <MAYBEPOD> ) {
+    if(m/^=(head\d|pod|over|item)\b/s) {
+      close(MAYBEPOD) || die "Bizarre error closing $file: $!\nAborting";
+      chomp;
+      $verbose > 1 and print "  Found some pod ($_) in $file\n";
+      return 1;
+    }
+  }
+  close(MAYBEPOD) || die "Bizarre error closing $file: $!\nAborting";
+  $verbose > 1 and print "  No POD in $file, skipping.\n";
+  return 0;
+}
+
+#==========================================================================
+
+sub _accessorize {  # A simple-minded method-maker
+  shift;
+  no strict 'refs';
+  foreach my $attrname (@_) {
+    *{caller() . '::' . $attrname} = sub {
+      use strict;
+      $Carp::CarpLevel = 1,  Carp::croak(
+       "Accessor usage: \$obj->$attrname() or \$obj->$attrname(\$new_value)"
+      ) unless (@_ == 1 or @_ == 2) and ref $_[0];
+
+      # Read access:
+      return $_[0]->{$attrname} if @_ == 1;
+
+      # Write access:
+      $_[0]->{$attrname} = $_[1];
+      return $_[0]; # RETURNS MYSELF!
+    };
+  }
+  # Ya know, they say accessories make the ensemble!
+  return;
+}
+
+#==========================================================================
+sub _state_as_string {
+  my $self = $_[0];
+  return '' unless ref $self;
+  my @out = "{\n  # State of $self ...\n";
+  foreach my $k (sort keys %$self) {
+    push @out, "  ", _esc($k), " => ", _esc($self->{$k}), ",\n";
+  }
+  push @out, "}\n";
+  my $x = join '', @out;
+  $x =~ s/^/#/mg;
+  return $x;
+}
+
+sub _esc {
+  my $in = $_[0];
+  return 'undef' unless defined $in;
+  $in =~
+    s<([^\x20\x21\x23\x27-\x3F\x41-\x5B\x5D-\x7E])>
+     <'\\x'.(unpack("H2",$1))>eg;
+  return qq{"$in"};
+}
+
+#==========================================================================
+
+run() unless caller;  # run if "perl whatever/Search.pm"
+
+1;
+
+#==========================================================================
+
+__END__
+
+
+=head1 NAME
+
+Pod::Simple::Search - find POD documents in directory trees
+
+=head1 SYNOPSIS
+
+  use Pod::Simple::Search;
+  my $name2path = Pod::Simple::Search->new->limit_glob('LWP::*')->survey;
+  print "Looky see what I found: ",
+    join(' ', sort keys %$name2path), "\n";
+
+  print "LWPUA docs = ",
+    Pod::Simple::Search->new->find('LWP::UserAgent') || "?",
+    "\n";
+
+=head1 DESCRIPTION
+
+B<Pod::Simple::Search> is a class that you use for running searches
+for Pod files.  An object of this class has several attributes
+(mostly options for controlling search options), and some methods
+for searching based on those attributes.
+
+The way to use this class is to make a new object of this class,
+set any options, and then call one of the search options
+(probably C<survey> or C<find>).  The sections below discuss the
+syntaxes for doing all that.
+
+
+=head1 CONSTRUCTOR
+
+This class provides the one constructor, called C<new>.
+It takes no parameters:
+
+  use Pod::Simple::Search;
+  my $search = Pod::Simple::Search->new;
+
+=head1 ACCESSORS
+
+This class defines several methods for setting (and, occasionally,
+reading) the contents of an object. With two exceptions (discussed at
+the end of this section), these attributes are just for controlling the
+way searches are carried out.
+
+Note that each of these return C<$self> when you call them as
+C<< $self->I<whatever(value)> >>.  That's so that you can chain
+together set-attribute calls like this:
+
+  my $name2path =
+    Pod::Simple::Search->new
+    -> inc(0) -> verbose(1) -> callback(\&blab)
+    ->survey(@there);
+
+...which works exactly as if you'd done this:
+
+  my $search = Pod::Simple::Search->new;
+  $search->inc(0);
+  $search->verbose(1);
+  $search->callback(\&blab);
+  my $name2path = $search->survey(@there);
+
+=over
+
+=item $search->inc( I<true-or-false> );
+
+This attribute, if set to a true value, means that searches should
+implicitly add perl's I<@INC> paths. This
+automatically considers paths specified in the C<PERL5LIB> environment
+as this is prepended to I<@INC> by the Perl interpreter itself.
+This attribute's default value is B<TRUE>.  If you want to search
+only specific directories, set $self->inc(0) before calling
+$inc->survey or $inc->find.
+
+
+=item $search->verbose( I<nonnegative-number> );
+
+This attribute, if set to a nonzero positive value, will make searches output
+(via C<warn>) notes about what they're doing as they do it.
+This option may be useful for debugging a pod-related module.
+This attribute's default value is zero, meaning that no C<warn> messages
+are produced.  (Setting verbose to 1 turns on some messages, and setting
+it to 2 turns on even more messages, i.e., makes the following search(es)
+even more verbose than 1 would make them.)
+
+=item $search->limit_glob( I<some-glob-string> );
+
+This option means that you want to limit the results just to items whose
+podnames match the given glob/wildcard expression. For example, you
+might limit your search to just "LWP::*", to search only for modules
+starting with "LWP::*" (but not including the module "LWP" itself); or
+you might limit your search to "LW*" to see only modules whose (full)
+names begin with "LW"; or you might search for "*Find*" to search for
+all modules with "Find" somewhere in their full name. (You can also use
+"?" in a glob expression; so "DB?" will match "DBI" and "DBD".)
+
+
+=item $search->callback( I<\&some_routine> );
+
+This attribute means that every time this search sees a matching
+Pod file, it should call this callback routine.  The routine is called
+with two parameters: the current file's filespec, and its pod name.
+(For example: C<("/etc/perljunk/File/Crunk.pm", "File::Crunk")> would
+be in C<@_>.)
+
+The callback routine's return value is not used for anything.
+
+This attribute's default value is false, meaning that no callback
+is called.
+
+=item $search->laborious( I<true-or-false> );
+
+Unless you set this attribute to a true value, Pod::Search will 
+apply Perl-specific heuristics to find the correct module PODs quickly.
+This attribute's default value is false.  You won't normally need
+to set this to true.
+
+Specifically: Turning on this option will disable the heuristics for
+seeing only files with Perl-like extensions, omitting subdirectories
+that are numeric but do I<not> match the current Perl interpreter's
+version ID, suppressing F<site_perl> as a module hierarchy name, etc.
+
+=item $search->recurse( I<true-or-false> );
+
+Unless you set this attribute to a false value, Pod::Search will
+recurse into subdirectories of the search directories.
+
+=item $search->shadows( I<true-or-false> );
+
+Unless you set this attribute to a true value, Pod::Simple::Search will
+consider only the first file of a given modulename as it looks thru the
+specified directories; that is, with this option off, if
+Pod::Simple::Search has seen a C<somepathdir/Foo/Bar.pm> already in this
+search, then it won't bother looking at a C<somelaterpathdir/Foo/Bar.pm>
+later on in that search, because that file is merely a "shadow". But if
+you turn on C<< $self->shadows(1) >>, then these "shadow" files are
+inspected too, and are noted in the pathname2podname return hash.
+
+This attribute's default value is false; and normally you won't
+need to turn it on.
+
+
+=item $search->limit_re( I<some-regxp> );
+
+Setting this attribute (to a value that's a regexp) means that you want
+to limit the results just to items whose podnames match the given
+regexp. Normally this option is not needed, and the more efficient
+C<limit_glob> attribute is used instead.
+
+
+=item $search->dir_prefix( I<some-string-value> );
+
+Setting this attribute to a string value means that the searches should
+begin in the specified subdirectory name (like "Pod" or "File::Find",
+also expressible as "File/Find"). For example, the search option
+C<< $search->limit_glob("File::Find::R*") >>
+is the same as the combination of the search options
+C<< $search->limit_re("^File::Find::R") -> dir_prefix("File::Find") >>.
+
+Normally you don't need to know about the C<dir_prefix> option, but I
+include it in case it might prove useful for someone somewhere.
+
+(Implementationally, searching with limit_glob ends up setting limit_re
+and usually dir_prefix.)
+
+
+=item $search->progress( I<some-progress-object> );
+
+If you set a value for this attribute, the value is expected
+to be an object (probably of a class that you define) that has a 
+C<reach> method and a C<done> method.  This is meant for reporting
+progress during the search, if you don't want to use a simple
+callback.
+
+Normally you don't need to know about the C<progress> option, but I
+include it in case it might prove useful for someone somewhere.
+
+While a search is in progress, the progress object's C<reach> and
+C<done> methods are called like this:
+
+  # Every time a file is being scanned for pod:
+  $progress->reach($count, "Scanning $file");   ++$count;
+
+  # And then at the end of the search:
+  $progress->done("Noted $count Pod files total");
+
+Internally, we often set this to an object of class
+Pod::Simple::Progress.  That class is probably undocumented,
+but you may wish to look at its source.
+
+
+=item $name2path = $self->name2path;
+
+This attribute is not a search parameter, but is used to report the
+result of C<survey> method, as discussed in the next section.
+
+=item $path2name = $self->path2name;
+
+This attribute is not a search parameter, but is used to report the
+result of C<survey> method, as discussed in the next section.
+
+=back
+
+=head1 MAIN SEARCH METHODS
+
+Once you've actually set any options you want (if any), you can go
+ahead and use the following methods to search for Pod files
+in particular ways.
+
+
+=head2 C<< $search->survey( @directories ) >>
+
+The method C<survey> searches for POD documents in a given set of
+files and/or directories.  This runs the search according to the various
+options set by the accessors above.  (For example, if the C<inc> attribute
+is on, as it is by default, then the perl @INC directories are implicitly
+added to the list of directories (if any) that you specify.)
+
+The return value of C<survey> is two hashes:
+
+=over
+
+=item C<name2path>
+
+A hash that maps from each pod-name to the filespec (like
+"Stuff::Thing" => "/whatever/plib/Stuff/Thing.pm")
+
+=item C<path2name>
+
+A hash that maps from each Pod filespec to its pod-name (like
+"/whatever/plib/Stuff/Thing.pm" => "Stuff::Thing")
+
+=back
+
+Besides saving these hashes as the hashref attributes
+C<name2path> and C<path2name>, calling this function also returns
+these hashrefs.  In list context, the return value of
+C<< $search->survey >> is the list C<(\%name2path, \%path2name)>.
+In scalar context, the return value is C<\%name2path>.
+Or you can just call this in void context.
+
+Regardless of calling context, calling C<survey> saves
+its results in its C<name2path> and C<path2name> attributes.
+
+E.g., when searching in F<$HOME/perl5lib>, the file
+F<$HOME/perl5lib/MyModule.pm> would get the POD name I<MyModule>,
+whereas F<$HOME/perl5lib/Myclass/Subclass.pm> would be
+I<Myclass::Subclass>. The name information can be used for POD
+translators.
+
+Only text files containing at least one valid POD command are found.
+
+In verbose mode, a warning is printed if shadows are found (i.e., more
+than one POD file with the same POD name is found, e.g. F<CPAN.pm> in
+different directories).  This usually indicates duplicate occurrences of
+modules in the I<@INC> search path, which is occasionally inadvertent
+(but is often simply a case of a user's path dir having a more recent
+version than the system's general path dirs in general.)
+
+The options to this argument is a list of either directories that are
+searched recursively, or files.  (Usually you wouldn't specify files,
+but just dirs.)  Or you can just specify an empty-list, as in
+$name2path; with the C<inc> option on, as it is by default.
+
+The POD names of files are the plain basenames with any Perl-like
+extension (.pm, .pl, .pod) stripped, and path separators replaced by
+C<::>'s.
+
+Calling Pod::Simple::Search->search(...) is short for
+Pod::Simple::Search->new->search(...).  That is, a throwaway object
+with default attribute values is used.
+
+
+=head2 C<< $search->simplify_name( $str ) >>
+
+The method B<simplify_name> is equivalent to B<basename>, but also
+strips Perl-like extensions (.pm, .pl, .pod) and extensions like
+F<.bat>, F<.cmd> on Win32 and OS/2, or F<.com> on VMS, respectively.
+
+
+=head2 C<< $search->find( $pod ) >>
+
+=head2 C<< $search->find( $pod, @search_dirs ) >>
+
+Returns the location of a Pod file, given a Pod/module/script name
+(like "Foo::Bar" or "perlvar" or "perldoc"), and an idea of
+what files/directories to look in.
+It searches according to the various options set by the accessors above.
+(For example, if the C<inc> attribute is on, as it is by default, then
+the perl @INC directories are implicitly added to the list of
+directories (if any) that you specify.)
+
+This returns the full path of the first occurrence to the file.
+Package names (eg 'A::B') are automatically converted to directory
+names in the selected directory.  Additionally, '.pm', '.pl' and '.pod'
+are automatically appended to the search as required.
+(So, for example, under Unix, "A::B" is converted to "somedir/A/B.pm",
+"somedir/A/B.pod", or "somedir/A/B.pl", as appropriate.)
+
+If no such Pod file is found, this method returns undef.
+
+If any of the given search directories contains a F<pod/> subdirectory,
+then it is searched.  (That's how we manage to find F<perlfunc>,
+for example, which is usually in F<pod/perlfunc> in most Perl dists.)
+
+The C<verbose> and C<inc> attributes influence the behavior of this
+search; notably, C<inc>, if true, adds @INC I<and also
+$Config::Config{'scriptdir'}> to the list of directories to search.
+
+It is common to simply say C<< $filename = Pod::Simple::Search-> new 
+->find("perlvar") >> so that just the @INC (well, and scriptdir)
+directories are searched.  (This happens because the C<inc>
+attribute is true by default.)
+
+Calling Pod::Simple::Search->find(...) is short for
+Pod::Simple::Search->new->find(...).  That is, a throwaway object
+with default attribute values is used.
+
+
+=head2 C<< $self->contains_pod( $file ) >>
+
+Returns true if the supplied filename (not POD module) contains some Pod
+documentation.
+
+=head1 SUPPORT
+
+Questions or discussion about POD and Pod::Simple should be sent to the
+pod-people@perl.org mail list. Send an empty email to
+pod-people-subscribe@perl.org to subscribe.
+
+This module is managed in an open GitHub repository,
+L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or
+to clone L<git://github.com/perl-pod/pod-simple.git> and send patches!
+
+Patches against Pod::Simple are welcome. Please send bug reports to
+<bug-pod-simple@rt.cpan.org>.
+
+=head1 COPYRIGHT AND DISCLAIMERS
+
+Copyright (c) 2002 Sean M. Burke.
+
+This library is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+This program is distributed in the hope that it will be useful, but
+without any warranty; without even the implied warranty of
+merchantability or fitness for a particular purpose.
+
+=head1 AUTHOR
+
+Pod::Simple was created by Sean M. Burke <sburke@cpan.org> with code borrowed
+from Marek Rouchal's L<Pod::Find>, which in turn heavily borrowed code from
+Nick Ing-Simmons' C<PodToHtml>.
+
+But don't bother him, he's retired.
+
+Pod::Simple is maintained by:
+
+=over
+
+=item * Allison Randal C<allison@perl.org>
+
+=item * Hans Dieter Pearcey C<hdp@cpan.org>
+
+=item * David E. Wheeler C<dwheeler@cpan.org>
+
+=back
+
+=cut
diff --git a/lib/5.24.1/Pod/Simple/SimpleTree.pm b/lib/5.24.1/Pod/Simple/SimpleTree.pm
new file mode 100644
index 00000000..436cd25e
--- /dev/null
+++ b/lib/5.24.1/Pod/Simple/SimpleTree.pm
@@ -0,0 +1,179 @@
+
+require 5;
+package Pod::Simple::SimpleTree;
+use strict;
+use Carp ();
+use Pod::Simple ();
+use vars qw( $ATTR_PAD @ISA $VERSION $SORT_ATTRS);
+$VERSION = '3.32';
+BEGIN {
+  @ISA = ('Pod::Simple');
+  *DEBUG = \&Pod::Simple::DEBUG unless defined &DEBUG;
+}
+
+__PACKAGE__->_accessorize(
+  'root',   # root of the tree
+);
+
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+sub _handle_element_start { # self, tagname, attrhash
+  DEBUG > 2 and print STDERR "Handling $_[1] start-event\n";
+  my $x = [$_[1], $_[2]];
+  if($_[0]{'_currpos'}) {
+    push    @{ $_[0]{'_currpos'}[0] }, $x; # insert in parent's child-list
+    unshift @{ $_[0]{'_currpos'} },    $x; # prefix to stack
+  } else {
+    DEBUG and print STDERR " And oo, it gets to be root!\n";
+    $_[0]{'_currpos'} = [   $_[0]{'root'} = $x   ];
+      # first event!  set to stack, and set as root.
+  }
+  DEBUG > 3 and print STDERR "Stack is now: ",
+    join(">", map $_->[0], @{$_[0]{'_currpos'}}), "\n";
+  return;
+}
+
+sub _handle_element_end { # self, tagname
+  DEBUG > 2 and print STDERR "Handling $_[1] end-event\n";
+  shift @{$_[0]{'_currpos'}};
+  DEBUG > 3 and print STDERR "Stack is now: ",
+    join(">", map $_->[0], @{$_[0]{'_currpos'}}), "\n";
+  return;
+}
+
+sub _handle_text { # self, text
+  DEBUG > 2 and print STDERR "Handling $_[1] text-event\n";
+  push @{ $_[0]{'_currpos'}[0] }, $_[1];
+  return;
+}
+
+
+# A bit of evil from the black box...  please avert your eyes, kind souls.
+sub _traverse_treelet_bit {
+  DEBUG > 2 and print STDERR "Handling $_[1] paragraph event\n";
+  my $self = shift;
+  push @{ $self->{'_currpos'}[0] }, [@_];
+  return;
+}
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+1;
+__END__
+
+=head1 NAME
+
+Pod::Simple::SimpleTree -- parse Pod into a simple parse tree 
+
+=head1 SYNOPSIS
+
+  % cat ptest.pod
+
+  =head1 PIE
+
+  I like B<pie>!
+
+  % perl -MPod::Simple::SimpleTree -MData::Dumper -e \
+     "print Dumper(Pod::Simple::SimpleTree->new->parse_file(shift)->root)" \
+     ptest.pod
+
+  $VAR1 = [
+            'Document',
+            { 'start_line' => 1 },
+            [
+              'head1',
+              { 'start_line' => 1 },
+              'PIE'
+            ],
+            [
+              'Para',
+              { 'start_line' => 3 },
+              'I like ',
+              [
+                'B',
+                {},
+                'pie'
+              ],
+              '!'
+            ]
+          ];
+
+=head1 DESCRIPTION
+
+This class is of interest to people writing a Pod processor/formatter.
+
+This class takes Pod and parses it, returning a parse tree made just
+of arrayrefs, and hashrefs, and strings.
+
+This is a subclass of L<Pod::Simple> and inherits all its methods.
+
+This class is inspired by XML::Parser's "Tree" parsing-style, although
+it doesn't use exactly the same LoL format.
+
+=head1 METHODS
+
+At the end of the parse, call C<< $parser->root >> to get the
+tree's top node.
+
+=head1 Tree Contents
+
+Every element node in the parse tree is represented by an arrayref of
+the form: C<[ I<elementname>, \%attributes, I<...subnodes...> ]>.
+See the example tree dump in the Synopsis, above.
+
+Every text node in the tree is represented by a simple (non-ref)
+string scalar.  So you can test C<ref($node)> to see whether you have
+an element node or just a text node.
+
+The top node in the tree is C<[ 'Document', \%attributes,
+I<...subnodes...> ]>
+
+
+=head1 SEE ALSO
+
+L<Pod::Simple>
+
+L<perllol>
+
+L<The "Tree" subsubsection in XML::Parser|XML::Parser/"Tree">
+
+=head1 SUPPORT
+
+Questions or discussion about POD and Pod::Simple should be sent to the
+pod-people@perl.org mail list. Send an empty email to
+pod-people-subscribe@perl.org to subscribe.
+
+This module is managed in an open GitHub repository,
+L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or
+to clone L<git://github.com/perl-pod/pod-simple.git> and send patches!
+
+Patches against Pod::Simple are welcome. Please send bug reports to
+<bug-pod-simple@rt.cpan.org>.
+
+=head1 COPYRIGHT AND DISCLAIMERS
+
+Copyright (c) 2002 Sean M. Burke.
+
+This library is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+This program is distributed in the hope that it will be useful, but
+without any warranty; without even the implied warranty of
+merchantability or fitness for a particular purpose.
+
+=head1 AUTHOR
+
+Pod::Simple was created by Sean M. Burke <sburke@cpan.org>.
+But don't bother him, he's retired.
+
+Pod::Simple is maintained by:
+
+=over
+
+=item * Allison Randal C<allison@perl.org>
+
+=item * Hans Dieter Pearcey C<hdp@cpan.org>
+
+=item * David E. Wheeler C<dwheeler@cpan.org>
+
+=back
+
+=cut
diff --git a/lib/5.24.1/Pod/Simple/Subclassing.pod b/lib/5.24.1/Pod/Simple/Subclassing.pod
new file mode 100644
index 00000000..88f85e86
--- /dev/null
+++ b/lib/5.24.1/Pod/Simple/Subclassing.pod
@@ -0,0 +1,1088 @@
+=head1 NAME
+
+Pod::Simple::Subclassing -- write a formatter as a Pod::Simple subclass
+
+=head1 SYNOPSIS
+
+  package Pod::SomeFormatter;
+  use Pod::Simple;
+  @ISA = qw(Pod::Simple);
+  $VERSION = '1.01';
+  use strict;
+
+  sub _handle_element_start {
+	my($parser, $element_name, $attr_hash_r) = @_;
+	...
+  }
+
+  sub _handle_element_end {
+	my($parser, $element_name, $attr_hash_r) = @_;
+	# NOTE: $attr_hash_r is only present when $element_name is "over" or "begin"
+	# The remaining code excerpts will mostly ignore this $attr_hash_r, as it is
+	# mostly useless. It is documented where "over-*" and "begin" events are
+	# documented.
+	...
+  }
+
+  sub _handle_text {
+	my($parser, $text) = @_;
+	...
+  }
+  1;
+
+=head1 DESCRIPTION
+
+This document is about using Pod::Simple to write a Pod processor,
+generally a Pod formatter. If you just want to know about using an
+existing Pod formatter, instead see its documentation and see also the
+docs in L<Pod::Simple>.
+
+B<The zeroeth step> in writing a Pod formatter is to make sure that there
+isn't already a decent one in CPAN. See L<http://search.cpan.org/>, and
+run a search on the name of the format you want to render to. Also
+consider joining the Pod People list
+L<http://lists.perl.org/showlist.cgi?name=pod-people> and asking whether
+anyone has a formatter for that format -- maybe someone cobbled one
+together but just hasn't released it.
+
+B<The first step> in writing a Pod processor is to read L<perlpodspec>,
+which contains information on writing a Pod parser (which has been
+largely taken care of by Pod::Simple), but also a lot of requirements
+and recommendations for writing a formatter.
+
+B<The second step> is to actually learn the format you're planning to
+format to -- or at least as much as you need to know to represent Pod,
+which probably isn't much.
+
+B<The third step> is to pick which of Pod::Simple's interfaces you want to
+use:
+
+=over
+
+=item Pod::Simple
+
+The basic L<Pod::Simple> interface that uses C<_handle_element_start()>,
+C<_handle_element_end()> and C<_handle_text()>.
+
+=item Pod::Simple::Methody
+
+The L<Pod::Simple::Methody> interface is event-based, similar to that of
+L<HTML::Parser> or L<XML::Parser>'s "Handlers".
+
+=item Pod::Simple::PullParser
+
+L<Pod::Simple::PullParser> provides a token-stream interface, sort of
+like L<HTML::TokeParser>'s interface.
+
+=item Pod::Simple::SimpleTree
+
+L<Pod::Simple::SimpleTree> provides a simple tree interface, rather like
+L<XML::Parser>'s "Tree" interface. Users familiar with XML handling will
+be comfortable with this interface. Users interested in outputting XML,
+should look into the modules that produce an XML representation of the
+Pod stream, notably L<Pod::Simple::XMLOutStream>; you can feed the output
+of such a class to whatever XML parsing system you are most at home with.
+
+=back
+
+B<The last step> is to write your code based on how the events (or tokens,
+or tree-nodes, or the XML, or however you're parsing) will map to
+constructs in the output format. Also be sure to consider how to escape
+text nodes containing arbitrary text, and what to do with text
+nodes that represent preformatted text (from verbatim sections).
+
+
+
+=head1 Events
+
+TODO intro... mention that events are supplied for implicits, like for
+missing >'s
+
+
+In the following section, we use XML to represent the event structure
+associated with a particular construct.  That is, TODO
+
+=over
+
+=item C<< $parser->_handle_element_start( I<element_name>, I<attr_hashref> ) >>
+
+=item C<< $parser->_handle_element_end( I<element_name>  ) >>
+
+=item C<< $parser->_handle_text(  I<text_string>  ) >>
+
+=back
+
+TODO describe
+
+
+=over
+
+=item events with an element_name of Document
+
+Parsing a document produces this event structure:
+
+  <Document start_line="543">
+	...all events...
+  </Document>
+
+The value of the I<start_line> attribute will be the line number of the first
+Pod directive in the document.
+
+If there is no Pod in the given document, then the
+event structure will be this:
+
+  <Document contentless="1" start_line="543">
+  </Document>
+
+In that case, the value of the I<start_line> attribute will not be meaningful;
+under current implementations, it will probably be the line number of the
+last line in the file.
+
+=item events with an element_name of Para
+
+Parsing a plain (non-verbatim, non-directive, non-data) paragraph in
+a Pod document produces this event structure:
+
+	<Para start_line="543">
+	  ...all events in this paragraph...
+	</Para>
+
+The value of the I<start_line> attribute will be the line number of the start
+of the paragraph.
+
+For example, parsing this paragraph of Pod:
+
+  The value of the I<start_line> attribute will be the
+  line number of the start of the paragraph.
+
+produces this event structure:
+
+	<Para start_line="129">
+	  The value of the
+	  <I>
+		start_line
+	  </I>
+	   attribute will be the line number of the first Pod directive
+	  in the document.
+	</Para>
+
+=item events with an element_name of B, C, F, or I.
+
+Parsing a BE<lt>...E<gt> formatting code (or of course any of its
+semantically identical syntactic variants
+S<BE<lt>E<lt> ... E<gt>E<gt>>,
+or S<BE<lt>E<lt>E<lt>E<lt> ... E<gt>E<gt>E<gt>E<gt>>, etc.)
+produces this event structure:
+
+	  <B>
+		...stuff...
+	  </B>
+
+Currently, there are no attributes conveyed.
+
+Parsing C, F, or I codes produce the same structure, with only a
+different element name.
+
+If your parser object has been set to accept other formatting codes,
+then they will be presented like these B/C/F/I codes -- i.e., without
+any attributes.
+
+=item events with an element_name of S
+
+Normally, parsing an SE<lt>...E<gt> sequence produces this event
+structure, just as if it were a B/C/F/I code:
+
+	  <S>
+		...stuff...
+	  </S>
+
+However, Pod::Simple (and presumably all derived parsers) offers the
+C<nbsp_for_S> option which, if enabled, will suppress all S events, and
+instead change all spaces in the content to non-breaking spaces. This is
+intended for formatters that output to a format that has no code that
+means the same as SE<lt>...E<gt>, but which has a code/character that
+means non-breaking space.
+
+=item events with an element_name of X
+
+Normally, parsing an XE<lt>...E<gt> sequence produces this event
+structure, just as if it were a B/C/F/I code:
+
+	  <X>
+		...stuff...
+	  </X>
+
+However, Pod::Simple (and presumably all derived parsers) offers the
+C<nix_X_codes> option which, if enabled, will suppress all X events
+and ignore their content.  For formatters/processors that don't use
+X events, this is presumably quite useful.
+
+
+=item events with an element_name of L
+
+Because the LE<lt>...E<gt> is the most complex construct in the
+language, it should not surprise you that the events it generates are
+the most complex in the language. Most of complexity is hidden away in
+the attribute values, so for those of you writing a Pod formatter that
+produces a non-hypertextual format, you can just ignore the attributes
+and treat an L event structure like a formatting element that
+(presumably) doesn't actually produce a change in formatting.  That is,
+the content of the L event structure (as opposed to its
+attributes) is always what text should be displayed.
+
+There are, at first glance, three kinds of L links: URL, man, and pod.
+
+When a LE<lt>I<some_url>E<gt> code is parsed, it produces this event
+structure:
+
+  <L content-implicit="yes" raw="that_url" to="that_url" type="url">
+	that_url
+  </L>
+
+The C<type="url"> attribute is always specified for this type of
+L code.
+
+For example, this Pod source:
+
+  L<http://www.perl.com/CPAN/authors/>
+
+produces this event structure:
+
+  <L content-implicit="yes" raw="http://www.perl.com/CPAN/authors/" to="http://www.perl.com/CPAN/authors/" type="url">
+	http://www.perl.com/CPAN/authors/
+  </L>
+
+When a LE<lt>I<manpage(section)>E<gt> code is parsed (and these are
+fairly rare and not terribly useful), it produces this event structure:
+
+  <L content-implicit="yes" raw="manpage(section)" to="manpage(section)" type="man">
+	manpage(section)
+  </L>
+
+The C<type="man"> attribute is always specified for this type of
+L code.
+
+For example, this Pod source:
+
+  L<crontab(5)>
+
+produces this event structure:
+
+  <L content-implicit="yes" raw="crontab(5)" to="crontab(5)" type="man">
+	crontab(5)
+  </L>
+
+In the rare cases where a man page link has a section specified, that text appears
+in a I<section> attribute. For example, this Pod source:
+
+  L<crontab(5)/"ENVIRONMENT">
+
+will produce this event structure:
+
+  <L content-implicit="yes" raw="crontab(5)/&quot;ENVIRONMENT&quot;" section="ENVIRONMENT" to="crontab(5)" type="man">
+	"ENVIRONMENT" in crontab(5)
+  </L>
+
+In the rare case where the Pod document has code like
+LE<lt>I<sometext>|I<manpage(section)>E<gt>, then the I<sometext> will appear
+as the content of the element, the I<manpage(section)> text will appear
+only as the value of the I<to> attribute, and there will be no
+C<content-implicit="yes"> attribute (whose presence means that the Pod parser
+had to infer what text should appear as the link text -- as opposed to
+cases where that attribute is absent, which means that the Pod parser did
+I<not> have to infer the link text, because that L code explicitly specified
+some link text.)
+
+For example, this Pod source:
+
+  L<hell itself!|crontab(5)>
+
+will produce this event structure:
+
+  <L raw="hell itself!|crontab(5)" to="crontab(5)" type="man">
+	hell itself!
+  </L>
+
+The last type of L structure is for links to/within Pod documents. It is
+the most complex because it can have a I<to> attribute, I<or> a
+I<section> attribute, or both. The C<type="pod"> attribute is always
+specified for this type of L code.
+
+In the most common case, the simple case of a LE<lt>podpageE<gt> code
+produces this event structure:
+
+  <L content-implicit="yes" raw="podpage" to="podpage" type="pod">
+	podpage
+  </L>
+
+For example, this Pod source:
+
+  L<Net::Ping>
+
+produces this event structure:
+
+  <L content-implicit="yes" raw="Net::Ping" to="Net::Ping" type="pod">
+	Net::Ping
+  </L>
+
+In cases where there is link-text explicitly specified, it
+is to be found in the content of the element (and not the
+attributes), just as with the LE<lt>I<sometext>|I<manpage(section)>E<gt>
+case discussed above.  For example, this Pod source:
+
+  L<Perl Error Messages|perldiag>
+
+produces this event structure:
+
+  <L raw="Perl Error Messages|perldiag" to="perldiag" type="pod">
+	Perl Error Messages
+  </L>
+
+In cases of links to a section in the current Pod document,
+there is a I<section> attribute instead of a I<to> attribute.
+For example, this Pod source:
+
+  L</"Member Data">
+
+produces this event structure:
+
+  <L content-implicit="yes" raw="/&quot;Member Data&quot;" section="Member Data" type="pod">
+	"Member Data"
+  </L>
+
+As another example, this Pod source:
+
+  L<the various attributes|/"Member Data">
+
+produces this event structure:
+
+  <L raw="the various attributes|/&quot;Member Data&quot;" section="Member Data" type="pod">
+	the various attributes
+  </L>
+
+In cases of links to a section in a different Pod document,
+there are both a I<section> attribute and a L<to> attribute.
+For example, this Pod source:
+
+  L<perlsyn/"Basic BLOCKs and Switch Statements">
+
+produces this event structure:
+
+  <L content-implicit="yes" raw="perlsyn/&quot;Basic BLOCKs and Switch Statements&quot;" section="Basic BLOCKs and Switch Statements" to="perlsyn" type="pod">
+	"Basic BLOCKs and Switch Statements" in perlsyn
+  </L>
+
+As another example, this Pod source:
+
+  L<SWITCH statements|perlsyn/"Basic BLOCKs and Switch Statements">
+
+produces this event structure:
+
+  <L raw="SWITCH statements|perlsyn/&quot;Basic BLOCKs and Switch Statements&quot;" section="Basic BLOCKs and Switch Statements" to="perlsyn" type="pod">
+	SWITCH statements
+  </L>
+
+Incidentally, note that we do not distinguish between these syntaxes:
+
+  L</"Member Data">
+  L<"Member Data">
+  L</Member Data>
+  L<Member Data>    [deprecated syntax]
+
+That is, they all produce the same event structure (for the most part), namely:
+
+  <L content-implicit="yes" raw="$depends_on_syntax" section="Member Data" type="pod">
+	&#34;Member Data&#34;
+  </L>
+
+The I<raw> attribute depends on what the raw content of the C<LE<lt>E<gt>> is,
+so that is why the event structure is the same "for the most part".
+
+If you have not guessed it yet, the I<raw> attribute contains the raw,
+original, unescaped content of the C<LE<lt>E<gt>> formatting code. In addition
+to the examples above, take notice of the following event structure produced
+by the following C<LE<lt>E<gt>> formatting code.
+
+  L<click B<here>|page/About the C<-M> switch>
+
+  <L raw="click B<here>|page/About the C<-M> switch" section="About the -M switch" to="page" type="pod">
+	click B<here>
+  </L>
+
+Specifically, notice that the formatting codes are present and unescaped
+in I<raw>.
+
+There is a known bug in the I<raw> attribute where any surrounding whitespace
+is condensed into a single ' '. For example, given LE<60>   linkE<62>, I<raw>
+will be " link".
+
+=item events with an element_name of E or Z
+
+While there are Pod codes EE<lt>...E<gt> and ZE<lt>E<gt>, these
+I<do not> produce any E or Z events -- that is, there are no such
+events as E or Z.
+
+=item events with an element_name of Verbatim
+
+When a Pod verbatim paragraph (AKA "codeblock") is parsed, it
+produces this event structure:
+
+  <Verbatim start_line="543" xml:space="preserve">
+	...text...
+  </Verbatim>
+
+The value of the I<start_line> attribute will be the line number of the
+first line of this verbatim block.  The I<xml:space> attribute is always
+present, and always has the value "preserve".
+
+The text content will have tabs already expanded.
+
+
+=item events with an element_name of head1 .. head4
+
+When a "=head1 ..." directive is parsed, it produces this event
+structure:
+
+  <head1>
+	...stuff...
+  </head1>
+
+For example, a directive consisting of this:
+
+  =head1 Options to C<new> et al.
+
+will produce this event structure:
+
+  <head1 start_line="543">
+	Options to
+	<C>
+	  new
+	</C>
+	 et al.
+  </head1>
+
+"=head2" through "=head4" directives are the same, except for the element
+names in the event structure.
+
+=item events with an element_name of encoding
+
+In the default case, the events corresponding to C<=encoding> directives
+are not emitted. They are emitted if C<keep_encoding_directive> is true.
+In that case they produce event structures like
+L</"events with an element_name of head1 .. head4"> above.
+
+=item events with an element_name of over-bullet
+
+When an "=over ... Z<>=back" block is parsed where the items are
+a bulleted list, it will produce this event structure:
+
+  <over-bullet indent="4" start_line="543">
+	<item-bullet start_line="545">
+	  ...Stuff...
+	</item-bullet>
+	...more item-bullets...
+  </over-bullet fake-closer="1">
+
+The attribute I<fake-closer> is only present if it is a true value; it is not
+present if it is a false value. It is shown in the above example to illustrate
+where the attribute is (in the B<closing> tag). It signifies that the C<=over>
+did not have a matching C<=back>, and thus Pod::Simple had to create a fake
+closer.
+
+For example, this Pod source:
+
+  =over
+
+  =item *
+
+  Something
+
+  =back
+
+Would produce an event structure that does B<not> have the I<fake-closer>
+attribute, whereas this Pod source:
+
+  =over
+
+  =item *
+
+  Gasp! An unclosed =over block!
+
+would. The rest of the over-* examples will not demonstrate this attribute,
+but they all can have it. See L<Pod::Checker>'s source for an example of this
+attribute being used.
+
+The value of the I<indent> attribute is whatever value is after the
+"=over" directive, as in "=over 8".  If no such value is specified
+in the directive, then the I<indent> attribute has the value "4".
+
+For example, this Pod source:
+
+  =over
+
+  =item *
+
+  Stuff
+
+  =item *
+
+  Bar I<baz>!
+
+  =back
+
+produces this event structure:
+
+  <over-bullet indent="4" start_line="10">
+	<item-bullet start_line="12">
+	  Stuff
+	</item-bullet>
+	<item-bullet start_line="14">
+	  Bar <I>baz</I>!
+	</item-bullet>
+  </over-bullet>
+
+=item events with an element_name of over-number
+
+When an "=over ... Z<>=back" block is parsed where the items are
+a numbered list, it will produce this event structure:
+
+  <over-number indent="4" start_line="543">
+	<item-number number="1" start_line="545">
+	  ...Stuff...
+	</item-number>
+	...more item-number...
+  </over-bullet>
+
+This is like the "over-bullet" event structure; but note that the contents
+are "item-number" instead of "item-bullet", and note that they will have
+a "number" attribute, which some formatters/processors may ignore
+(since, for example, there's no need for it in HTML when producing
+an "<UL><LI>...</LI>...</UL>" structure), but which any processor may use.
+
+Note that the values for the I<number> attributes of "item-number"
+elements in a given "over-number" area I<will> start at 1 and go up by
+one each time.  If the Pod source doesn't follow that order (even though
+it really should!), whatever numbers it has will be ignored (with
+the correct values being put in the I<number> attributes), and an error
+message might be issued to the user.
+
+=item events with an element_name of over-text
+
+These events are somewhat unlike the other over-*
+structures, as far as what their contents are.  When
+an "=over ... Z<>=back" block is parsed where the items are
+a list of text "subheadings", it will produce this event structure:
+
+  <over-text indent="4" start_line="543">
+	<item-text>
+	  ...stuff...
+	</item-text>
+	...stuff (generally Para or Verbatim elements)...
+	<item-text>
+	...more item-text and/or stuff...
+  </over-text>
+
+The I<indent> and I<fake-closer> attributes are as with the other over-* events.
+
+For example, this Pod source:
+
+  =over
+
+  =item Foo
+
+  Stuff
+
+  =item Bar I<baz>!
+
+  Quux
+
+  =back
+
+produces this event structure:
+
+  <over-text indent="4" start_line="20">
+	<item-text start_line="22">
+	  Foo
+	</item-text>
+	<Para start_line="24">
+	  Stuff
+	</Para>
+	<item-text start_line="26">
+	  Bar
+		<I>
+		  baz
+		</I>
+	  !
+	</item-text>
+	<Para start_line="28">
+	  Quux
+	</Para>
+  </over-text>
+
+
+
+=item events with an element_name of over-block
+
+These events are somewhat unlike the other over-*
+structures, as far as what their contents are.  When
+an "=over ... Z<>=back" block is parsed where there are no items,
+it will produce this event structure:
+
+  <over-block indent="4" start_line="543">
+	...stuff (generally Para or Verbatim elements)...
+  </over-block>
+
+The I<indent> and I<fake-closer> attributes are as with the other over-* events.
+
+For example, this Pod source:
+
+  =over
+
+  For cutting off our trade with all parts of the world
+
+  For transporting us beyond seas to be tried for pretended offenses
+
+  He is at this time transporting large armies of foreign mercenaries to
+  complete the works of death, desolation and tyranny, already begun with
+  circumstances of cruelty and perfidy scarcely paralleled in the most
+  barbarous ages, and totally unworthy the head of a civilized nation.
+
+  =back
+
+will produce this event structure:
+
+  <over-block indent="4" start_line="2">
+	<Para start_line="4">
+	  For cutting off our trade with all parts of the world
+	</Para>
+	<Para start_line="6">
+	  For transporting us beyond seas to be tried for pretended offenses
+	</Para>
+	<Para start_line="8">
+	  He is at this time transporting large armies of [...more text...]
+	</Para>
+  </over-block>
+
+=item events with an element_name of over-empty
+
+B<Note: These events are only triggered if C<parse_empty_lists()> is set to a
+true value.>
+
+These events are somewhat unlike the other over-* structures, as far as what
+their contents are.  When an "=over ... Z<>=back" block is parsed where there
+is no content, it will produce this event structure:
+
+  <over-empty indent="4" start_line="543">
+  </over-empty>
+
+The I<indent> and I<fake-closer> attributes are as with the other over-* events.
+
+For example, this Pod source:
+
+  =over
+
+  =over
+
+  =back
+
+  =back
+
+will produce this event structure:
+
+  <over-block indent="4" start_line="1">
+	<over-empty indent="4" start_line="3">
+	</over-empty>
+  </over-block>
+
+Note that the outer C<=over> is a block because it has no C<=item>s but still
+has content: the inner C<=over>. The inner C<=over>, in turn, is completely
+empty, and is treated as such.
+
+=item events with an element_name of item-bullet
+
+See L</"events with an element_name of over-bullet">, above.
+
+=item events with an element_name of item-number
+
+See L</"events with an element_name of over-number">, above.
+
+=item events with an element_name of item-text
+
+See L</"events with an element_name of over-text">, above.
+
+=item events with an element_name of for
+
+TODO...
+
+=item events with an element_name of Data
+
+TODO...
+
+=back
+
+
+
+=head1 More Pod::Simple Methods
+
+Pod::Simple provides a lot of methods that aren't generally interesting
+to the end user of an existing Pod formatter, but some of which you
+might find useful in writing a Pod formatter. They are listed below. The
+first several methods (the accept_* methods) are for declaring the
+capabilities of your parser, notably what C<=for I<targetname>> sections
+it's interested in, what extra NE<lt>...E<gt> codes it accepts beyond
+the ones described in the I<perlpod>.
+
+=over
+
+=item C<< $parser->accept_targets( I<SOMEVALUE> ) >>
+
+As the parser sees sections like:
+
+	=for html  <img src="fig1.jpg">
+
+or
+
+	=begin html
+
+	  <img src="fig1.jpg">
+
+	=end html
+
+...the parser will ignore these sections unless your subclass has
+specified that it wants to see sections targeted to "html" (or whatever
+the formatter name is).
+
+If you want to process all sections, even if they're not targeted for you,
+call this before you start parsing:
+
+  $parser->accept_targets('*');
+
+=item C<< $parser->accept_targets_as_text(  I<SOMEVALUE>  ) >>
+
+This is like accept_targets, except that it specifies also that the
+content of sections for this target should be treated as Pod text even
+if the target name in "=for I<targetname>" doesn't start with a ":".
+
+At time of writing, I don't think you'll need to use this.
+
+
+=item C<< $parser->accept_codes( I<Codename>, I<Codename>...  ) >>
+
+This tells the parser that you accept additional formatting codes,
+beyond just the standard ones (I B C L F S X, plus the two weird ones
+you don't actually see in the parse tree, Z and E). For example, to also
+accept codes "N", "R", and "W":
+
+	$parser->accept_codes( qw( N R W ) );
+
+B<TODO: document how this interacts with =extend, and long element names>
+
+
+=item C<< $parser->accept_directive_as_data( I<directive_name> ) >>
+
+=item C<< $parser->accept_directive_as_verbatim( I<directive_name> ) >>
+
+=item C<< $parser->accept_directive_as_processed( I<directive_name> ) >>
+
+In the unlikely situation that you need to tell the parser that you will
+accept additional directives ("=foo" things), you need to first set the
+parser to treat its content as data (i.e., not really processed at
+all), or as verbatim (mostly just expanding tabs), or as processed text
+(parsing formatting codes like BE<lt>...E<gt>).
+
+For example, to accept a new directive "=method", you'd presumably
+use:
+
+	$parser->accept_directive_as_processed("method");
+
+so that you could have Pod lines like:
+
+	=method I<$whatever> thing B<um>
+
+Making up your own directives breaks compatibility with other Pod
+formatters, in a way that using "=for I<target> ..." lines doesn't;
+however, you may find this useful if you're making a Pod superset
+format where you don't need to worry about compatibility.
+
+
+=item C<< $parser->nbsp_for_S( I<BOOLEAN> ); >>
+
+Setting this attribute to a true value (and by default it is false) will
+turn "SE<lt>...E<gt>" sequences into sequences of words separated by
+C<\xA0> (non-breaking space) characters. For example, it will take this:
+
+	I like S<Dutch apple pie>, don't you?
+
+and treat it as if it were:
+
+	I like DutchE<nbsp>appleE<nbsp>pie, don't you?
+
+This is handy for output formats that don't have anything quite like an
+"SE<lt>...E<gt>" code, but which do have a code for non-breaking space.
+
+There is currently no method for going the other way; but I can
+probably provide one upon request.
+
+
+=item C<< $parser->version_report() >>
+
+This returns a string reporting the $VERSION value from your module (and
+its classname) as well as the $VERSION value of Pod::Simple.  Note that
+L<perlpodspec> requires output formats (wherever possible) to note
+this detail in a comment in the output format.  For example, for
+some kind of SGML output format:
+
+	print OUT "<!-- \n", $parser->version_report, "\n -->";
+
+
+=item C<< $parser->pod_para_count() >>
+
+This returns the count of Pod paragraphs seen so far.
+
+
+=item C<< $parser->line_count() >>
+
+This is the current line number being parsed. But you might find the
+"line_number" event attribute more accurate, when it is present.
+
+
+=item C<< $parser->nix_X_codes(  I<SOMEVALUE>  ) >>
+
+This attribute, when set to a true value (and it is false by default)
+ignores any "XE<lt>...E<gt>" sequences in the document being parsed.
+Many formats don't actually use the content of these codes, so have
+no reason to process them.
+
+=item C<< $parser->keep_encoding_directive(  I<SOMEVALUE>  ) >>
+
+This attribute, when set to a true value (it is false by default)
+will keep C<=encoding> and its content in the event structure. Most
+formats don't actually need to process the content of an C<=encoding>
+directive, even when this directive sets the encoding and the
+processor makes use of the encoding information. Indeed, it is
+possible to know the encoding without processing the directive
+content.
+
+=item C<< $parser->merge_text(  I<SOMEVALUE>  ) >>
+
+This attribute, when set to a true value (and it is false by default)
+makes sure that only one event (or token, or node) will be created
+for any single contiguous sequence of text.  For example, consider
+this somewhat contrived example:
+
+	I just LOVE Z<>hotE<32>apple pie!
+
+When that is parsed and events are about to be called on it, it may
+actually seem to be four different text events, one right after another:
+one event for "I just LOVE ", one for "hot", one for " ", and one for
+"apple pie!". But if you have merge_text on, then you're guaranteed
+that it will be fired as one text event:  "I just LOVE hot apple pie!".
+
+
+=item C<< $parser->code_handler(  I<CODE_REF>  ) >>
+
+This specifies code that should be called when a code line is seen
+(i.e., a line outside of the Pod).  Normally this is undef, meaning
+that no code should be called.  If you provide a routine, it should
+start out like this:
+
+	sub get_code_line {  # or whatever you'll call it
+	  my($line, $line_number, $parser) = @_;
+	  ...
+	}
+
+Note, however, that sometimes the Pod events aren't processed in exactly
+the same order as the code lines are -- i.e., if you have a file with
+Pod, then code, then more Pod, sometimes the code will be processed (via
+whatever you have code_handler call) before the all of the preceding Pod
+has been processed.
+
+
+=item C<< $parser->cut_handler(  I<CODE_REF>  ) >>
+
+This is just like the code_handler attribute, except that it's for
+"=cut" lines, not code lines. The same caveats apply. "=cut" lines are
+unlikely to be interesting, but this is included for completeness.
+
+
+=item C<< $parser->pod_handler(  I<CODE_REF>  ) >>
+
+This is just like the code_handler attribute, except that it's for
+"=pod" lines, not code lines. The same caveats apply. "=pod" lines are
+unlikely to be interesting, but this is included for completeness.
+
+
+=item C<< $parser->whiteline_handler(  I<CODE_REF>  ) >>
+
+This is just like the code_handler attribute, except that it's for
+lines that are seemingly blank but have whitespace (" " and/or "\t") on them,
+not code lines. The same caveats apply. These lines are unlikely to be
+interesting, but this is included for completeness.
+
+
+=item C<< $parser->whine( I<linenumber>, I<complaint string> ) >>
+
+This notes a problem in the Pod, which will be reported in the "Pod
+Errors" section of the document and/or sent to STDERR, depending on the
+values of the attributes C<no_whining>, C<no_errata_section>, and
+C<complain_stderr>.
+
+=item C<< $parser->scream( I<linenumber>, I<complaint string> ) >>
+
+This notes an error like C<whine> does, except that it is not
+suppressible with C<no_whining>. This should be used only for very
+serious errors.
+
+
+=item C<< $parser->source_dead(1) >>
+
+This aborts parsing of the current document, by switching on the flag
+that indicates that EOF has been seen.  In particularly drastic cases,
+you might want to do this.  It's rather nicer than just calling
+C<die>!
+
+=item C<< $parser->hide_line_numbers( I<SOMEVALUE> ) >>
+
+Some subclasses that indiscriminately dump event attributes (well,
+except for ones beginning with "~") can use this object attribute for
+refraining to dump the "start_line" attribute.
+
+=item C<< $parser->no_whining( I<SOMEVALUE> ) >>
+
+This attribute, if set to true, will suppress reports of non-fatal
+error messages.  The default value is false, meaning that complaints
+I<are> reported.  How they get reported depends on the values of
+the attributes C<no_errata_section> and C<complain_stderr>.
+
+=item C<< $parser->no_errata_section( I<SOMEVALUE> ) >>
+
+This attribute, if set to true, will suppress generation of an errata
+section.  The default value is false -- i.e., an errata section will be
+generated.
+
+=item C<< $parser->complain_stderr( I<SOMEVALUE> ) >>
+
+This attribute, if set to true will send complaints to STDERR.  The
+default value is false -- i.e., complaints do not go to STDERR.
+
+=item C<< $parser->bare_output( I<SOMEVALUE> ) >>
+
+Some formatter subclasses use this as a flag for whether output should
+have prologue and epilogue code omitted. For example, setting this to
+true for an HTML formatter class should omit the
+"<html><head><title>...</title><body>..." prologue and the
+"</body></html>" epilogue.
+
+If you want to set this to true, you should probably also set
+C<no_whining> or at least C<no_errata_section> to true.
+
+=item C<< $parser->preserve_whitespace( I<SOMEVALUE> ) >>
+
+If you set this attribute to a true value, the parser will try to
+preserve whitespace in the output.  This means that such formatting
+conventions as two spaces after periods will be preserved by the parser.
+This is primarily useful for output formats that treat whitespace as
+significant (such as text or *roff, but not HTML).
+
+=item C<< $parser->parse_empty_lists( I<SOMEVALUE> ) >>
+
+If this attribute is set to true, the parser will not ignore empty
+C<=over>/C<=back> blocks. The type of C<=over> will be I<empty>, documented
+above, L<events with an element_name of over-empty>.
+
+=back
+
+=head1 SEE ALSO
+
+L<Pod::Simple> -- event-based Pod-parsing framework
+
+L<Pod::Simple::Methody> -- like Pod::Simple, but each sort of event
+calls its own method (like C<start_head3>)
+
+L<Pod::Simple::PullParser> -- a Pod-parsing framework like Pod::Simple,
+but with a token-stream interface
+
+L<Pod::Simple::SimpleTree> -- a Pod-parsing framework like Pod::Simple,
+but with a tree interface
+
+L<Pod::Simple::Checker> -- a simple Pod::Simple subclass that reads
+documents, and then makes a plaintext report of any errors found in the
+document
+
+L<Pod::Simple::DumpAsXML> -- for dumping Pod documents as tidily
+indented XML, showing each event on its own line
+
+L<Pod::Simple::XMLOutStream> -- dumps a Pod document as XML (without
+introducing extra whitespace as Pod::Simple::DumpAsXML does).
+
+L<Pod::Simple::DumpAsText> -- for dumping Pod documents as tidily
+indented text, showing each event on its own line
+
+L<Pod::Simple::LinkSection> -- class for objects representing the values
+of the TODO and TODO attributes of LE<lt>...E<gt> elements
+
+L<Pod::Escapes> -- the module that Pod::Simple uses for evaluating
+EE<lt>...E<gt> content
+
+L<Pod::Simple::Text> -- a simple plaintext formatter for Pod
+
+L<Pod::Simple::TextContent> -- like Pod::Simple::Text, but
+makes no effort for indent or wrap the text being formatted
+
+L<Pod::Simple::HTML> -- a simple HTML formatter for Pod
+
+L<perlpod|perlpod>
+
+L<perlpodspec|perlpodspec>
+
+L<perldoc>
+
+=head1 SUPPORT
+
+Questions or discussion about POD and Pod::Simple should be sent to the
+pod-people@perl.org mail list. Send an empty email to
+pod-people-subscribe@perl.org to subscribe.
+
+This module is managed in an open GitHub repository,
+L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or
+to clone L<git://github.com/perl-pod/pod-simple.git> and send patches!
+
+Patches against Pod::Simple are welcome. Please send bug reports to
+<bug-pod-simple@rt.cpan.org>.
+
+=head1 COPYRIGHT AND DISCLAIMERS
+
+Copyright (c) 2002 Sean M. Burke.
+
+This library is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+This program is distributed in the hope that it will be useful, but
+without any warranty; without even the implied warranty of
+merchantability or fitness for a particular purpose.
+
+=head1 AUTHOR
+
+Pod::Simple was created by Sean M. Burke <sburke@cpan.org>.
+But don't bother him, he's retired.
+
+Pod::Simple is maintained by:
+
+=over
+
+=item * Allison Randal C<allison@perl.org>
+
+=item * Hans Dieter Pearcey C<hdp@cpan.org>
+
+=item * David E. Wheeler C<dwheeler@cpan.org>
+
+=back
+
+=for notes
+Hm, my old podchecker version (1.2) says:
+ *** WARNING: node 'http://search.cpan.org/' contains non-escaped | or / at line 38 in file Subclassing.pod
+ *** WARNING: node 'http://lists.perl.org/showlist.cgi?name=pod-people' contains non-escaped | or / at line 41 in file Subclassing.pod
+Yes, L<...> is hard.
+
+
+=cut
diff --git a/lib/5.24.1/Pod/Simple/Text.pm b/lib/5.24.1/Pod/Simple/Text.pm
new file mode 100644
index 00000000..e1c2d0b2
--- /dev/null
+++ b/lib/5.24.1/Pod/Simple/Text.pm
@@ -0,0 +1,184 @@
+
+require 5;
+package Pod::Simple::Text;
+use strict;
+use Carp ();
+use Pod::Simple::Methody ();
+use Pod::Simple ();
+use vars qw( @ISA $VERSION $FREAKYMODE);
+$VERSION = '3.32';
+@ISA = ('Pod::Simple::Methody');
+BEGIN { *DEBUG = defined(&Pod::Simple::DEBUG)
+          ? \&Pod::Simple::DEBUG
+          : sub() {0}
+      }
+
+use Text::Wrap 98.112902 ();
+$Text::Wrap::huge = 'overflow';
+
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+sub new {
+  my $self = shift;
+  my $new = $self->SUPER::new(@_);
+  $new->{'output_fh'} ||= *STDOUT{IO};
+  $new->accept_target_as_text(qw( text plaintext plain ));
+  $new->nix_X_codes(1);
+  $new->nbsp_for_S(1);
+  $new->{'Thispara'} = '';
+  $new->{'Indent'} = 0;
+  $new->{'Indentstring'} = '   ';
+  return $new;
+}
+
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+sub handle_text {  $_[0]{'Thispara'} .= $_[1] }
+
+sub start_Para  {  $_[0]{'Thispara'} = '' }
+sub start_head1 {  $_[0]{'Thispara'} = '' }
+sub start_head2 {  $_[0]{'Thispara'} = '' }
+sub start_head3 {  $_[0]{'Thispara'} = '' }
+sub start_head4 {  $_[0]{'Thispara'} = '' }
+
+sub start_Verbatim    { $_[0]{'Thispara'} = ''   }
+sub start_item_bullet { $_[0]{'Thispara'} = $FREAKYMODE ? '' : '* ' }
+sub start_item_number { $_[0]{'Thispara'} = $FREAKYMODE ? '' : "$_[1]{'number'}. "  }
+sub start_item_text   { $_[0]{'Thispara'} = ''   }
+
+sub start_over_bullet  { ++$_[0]{'Indent'} }
+sub start_over_number  { ++$_[0]{'Indent'} }
+sub start_over_text    { ++$_[0]{'Indent'} }
+sub start_over_block   { ++$_[0]{'Indent'} }
+
+sub   end_over_bullet  { --$_[0]{'Indent'} }
+sub   end_over_number  { --$_[0]{'Indent'} }
+sub   end_over_text    { --$_[0]{'Indent'} }
+sub   end_over_block   { --$_[0]{'Indent'} }
+
+
+# . . . . . Now the actual formatters:
+
+sub end_head1       { $_[0]->emit_par(-4) }
+sub end_head2       { $_[0]->emit_par(-3) }
+sub end_head3       { $_[0]->emit_par(-2) }
+sub end_head4       { $_[0]->emit_par(-1) }
+sub end_Para        { $_[0]->emit_par( 0) }
+sub end_item_bullet { $_[0]->emit_par( 0) }
+sub end_item_number { $_[0]->emit_par( 0) }
+sub end_item_text   { $_[0]->emit_par(-2) }
+sub start_L         { $_[0]{'Link'} = $_[1] if $_[1]->{type} eq 'url' }
+sub end_L           {
+    if (my $link = delete $_[0]{'Link'}) {
+        # Append the URL to the output unless it's already present.
+        $_[0]{'Thispara'} .= " <$link->{to}>"
+            unless $_[0]{'Thispara'} =~ /\b\Q$link->{to}/;
+    }
+}
+
+sub emit_par {
+  my($self, $tweak_indent) = splice(@_,0,2);
+  my $indent = ' ' x ( 2 * $self->{'Indent'} + 4 + ($tweak_indent||0) );
+   # Yes, 'STRING' x NEGATIVE gives '', same as 'STRING' x 0
+
+  $self->{'Thispara'} =~ s/$Pod::Simple::shy//g;
+  my $out = Text::Wrap::wrap($indent, $indent, $self->{'Thispara'} .= "\n");
+  $out =~ s/$Pod::Simple::nbsp/ /g;
+  print {$self->{'output_fh'}} $out, "\n";
+  $self->{'Thispara'} = '';
+  
+  return;
+}
+
+# . . . . . . . . . . And then off by its lonesome:
+
+sub end_Verbatim  {
+  my $self = shift;
+  $self->{'Thispara'} =~ s/$Pod::Simple::nbsp/ /g;
+  $self->{'Thispara'} =~ s/$Pod::Simple::shy//g;
+
+  my $i = ' ' x ( 2 * $self->{'Indent'} + 4);
+  #my $i = ' ' x (4 + $self->{'Indent'});
+  
+  $self->{'Thispara'} =~ s/^/$i/mg;
+  
+  print { $self->{'output_fh'} }   '', 
+    $self->{'Thispara'},
+    "\n\n"
+  ;
+  $self->{'Thispara'} = '';
+  return;
+}
+
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+1;
+
+
+__END__
+
+=head1 NAME
+
+Pod::Simple::Text -- format Pod as plaintext
+
+=head1 SYNOPSIS
+
+  perl -MPod::Simple::Text -e \
+   "exit Pod::Simple::Text->filter(shift)->any_errata_seen" \
+   thingy.pod
+
+=head1 DESCRIPTION
+
+This class is a formatter that takes Pod and renders it as
+wrapped plaintext.
+
+Its wrapping is done by L<Text::Wrap>, so you can change
+C<$Text::Wrap::columns> as you like.
+
+This is a subclass of L<Pod::Simple> and inherits all its methods.
+
+=head1 SEE ALSO
+
+L<Pod::Simple>, L<Pod::Simple::TextContent>, L<Pod::Text>
+
+=head1 SUPPORT
+
+Questions or discussion about POD and Pod::Simple should be sent to the
+pod-people@perl.org mail list. Send an empty email to
+pod-people-subscribe@perl.org to subscribe.
+
+This module is managed in an open GitHub repository,
+L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or
+to clone L<git://github.com/perl-pod/pod-simple.git> and send patches!
+
+Patches against Pod::Simple are welcome. Please send bug reports to
+<bug-pod-simple@rt.cpan.org>.
+
+=head1 COPYRIGHT AND DISCLAIMERS
+
+Copyright (c) 2002 Sean M. Burke.
+
+This library is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+This program is distributed in the hope that it will be useful, but
+without any warranty; without even the implied warranty of
+merchantability or fitness for a particular purpose.
+
+=head1 AUTHOR
+
+Pod::Simple was created by Sean M. Burke <sburke@cpan.org>.
+But don't bother him, he's retired.
+
+Pod::Simple is maintained by:
+
+=over
+
+=item * Allison Randal C<allison@perl.org>
+
+=item * Hans Dieter Pearcey C<hdp@cpan.org>
+
+=item * David E. Wheeler C<dwheeler@cpan.org>
+
+=back
+
+=cut
diff --git a/lib/5.24.1/Pod/Simple/TextContent.pm b/lib/5.24.1/Pod/Simple/TextContent.pm
new file mode 100644
index 00000000..e0db26de
--- /dev/null
+++ b/lib/5.24.1/Pod/Simple/TextContent.pm
@@ -0,0 +1,110 @@
+
+
+require 5;
+package Pod::Simple::TextContent;
+use strict;
+use Carp ();
+use Pod::Simple ();
+use vars qw( @ISA $VERSION );
+$VERSION = '3.32';
+@ISA = ('Pod::Simple');
+
+sub new {
+  my $self = shift;
+  my $new = $self->SUPER::new(@_);
+  $new->{'output_fh'} ||= *STDOUT{IO};
+  $new->nix_X_codes(1);
+  return $new;
+}
+
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+sub _handle_element_start {
+  print {$_[0]{'output_fh'}} "\n"  unless $_[1] =~ m/^[A-Z]$/s;
+  return;
+}
+
+sub _handle_text {
+  $_[1] =~ s/$Pod::Simple::shy//g;
+  $_[1] =~ s/$Pod::Simple::nbsp/ /g;
+  print {$_[0]{'output_fh'}} $_[1];
+  return;
+}
+
+sub _handle_element_end {
+  print {$_[0]{'output_fh'}} "\n"  unless $_[1] =~ m/^[A-Z]$/s;
+  return;
+}
+
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+1;
+
+
+__END__
+
+=head1 NAME
+
+Pod::Simple::TextContent -- get the text content of Pod
+
+=head1 SYNOPSIS
+
+ TODO
+
+  perl -MPod::Simple::TextContent -e \
+   "exit Pod::Simple::TextContent->filter(shift)->any_errata_seen" \
+   thingy.pod
+
+=head1 DESCRIPTION
+
+This class is that parses Pod and dumps just the text content.  It is
+mainly meant for use by the Pod::Simple test suite, but you may find
+some other use for it.
+
+This is a subclass of L<Pod::Simple> and inherits all its methods.
+
+=head1 SEE ALSO
+
+L<Pod::Simple>, L<Pod::Simple::Text>, L<Pod::Spell>
+
+=head1 SUPPORT
+
+Questions or discussion about POD and Pod::Simple should be sent to the
+pod-people@perl.org mail list. Send an empty email to
+pod-people-subscribe@perl.org to subscribe.
+
+This module is managed in an open GitHub repository,
+L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or
+to clone L<git://github.com/perl-pod/pod-simple.git> and send patches!
+
+Patches against Pod::Simple are welcome. Please send bug reports to
+<bug-pod-simple@rt.cpan.org>.
+
+=head1 COPYRIGHT AND DISCLAIMERS
+
+Copyright (c) 2002 Sean M. Burke.
+
+This library is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+This program is distributed in the hope that it will be useful, but
+without any warranty; without even the implied warranty of
+merchantability or fitness for a particular purpose.
+
+=head1 AUTHOR
+
+Pod::Simple was created by Sean M. Burke <sburke@cpan.org>.
+But don't bother him, he's retired.
+
+Pod::Simple is maintained by:
+
+=over
+
+=item * Allison Randal C<allison@perl.org>
+
+=item * Hans Dieter Pearcey C<hdp@cpan.org>
+
+=item * David E. Wheeler C<dwheeler@cpan.org>
+
+=back
+
+=cut
diff --git a/lib/5.24.1/Pod/Simple/TiedOutFH.pm b/lib/5.24.1/Pod/Simple/TiedOutFH.pm
new file mode 100644
index 00000000..6abba4de
--- /dev/null
+++ b/lib/5.24.1/Pod/Simple/TiedOutFH.pm
@@ -0,0 +1,105 @@
+
+use strict;
+package Pod::Simple::TiedOutFH;
+use Symbol ('gensym');
+use Carp ();
+use vars qw($VERSION );
+$VERSION = '3.32';
+
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+sub handle_on { # some horrible frightening things are encapsulated in here
+  my $class = shift;
+  $class = ref($class) || $class;
+  
+  Carp::croak "Usage: ${class}->handle_on(\$somescalar)" unless @_;
+  
+  my $x = (defined($_[0]) and ref($_[0]))
+    ? $_[0]
+    : ( \( $_[0] ) )[0]
+  ;
+  $$x = '' unless defined $$x;
+  
+  #Pod::Simple::DEBUG and print STDERR "New $class handle on $x = \"$$x\"\n";
+  
+  my $new = gensym();
+  tie *$new, $class, $x;
+  return $new;
+}
+
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+sub TIEHANDLE {  # Ties to just a scalar ref
+  my($class, $scalar_ref) = @_;
+  $$scalar_ref = '' unless defined $$scalar_ref;
+  return bless \$scalar_ref,  ref($class) || $class;
+}
+
+sub PRINT {
+  my $it = shift;
+  foreach my $x (@_) { $$$it .= $x }
+
+  #Pod::Simple::DEBUG > 10 and print STDERR " appended to $$it = \"$$$it\"\n";
+
+  return 1;
+}
+
+sub FETCH {
+  return ${$_[0]};
+}
+
+sub PRINTF {
+  my $it = shift;
+  my $format = shift;
+  $$$it .= sprintf $format, @_;
+  return 1;
+}
+
+sub FILENO { ${ $_[0] } + 100 } # just to produce SOME number
+
+sub CLOSE { 1 }
+
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+1;
+__END__
+
+Chole
+
+ * 1 large red onion
+ * 2 tomatillos
+ * 4 or 5 roma tomatoes (optionally with the pulp discarded)
+ * 1 tablespoons chopped ginger root (or more, to taste)
+ * 2 tablespoons canola oil (or vegetable oil)
+ 
+ * 1 tablespoon garam masala
+ * 1/2 teaspoon red chili powder, or to taste
+ * Salt, to taste (probably quite a bit)
+ * 2 (15-ounce) cans chick peas or garbanzo beans, drained and rinsed
+ * juice of one smallish lime
+ * a dash of balsamic vinegar (to taste)
+ * cooked rice, preferably long-grain white rice (whether plain,
+    basmati rice, jasmine rice, or even a mild pilaf)
+
+In a blender or food processor, puree the onions, tomatoes, tomatillos,
+and ginger root.  You can even do it with a Braun hand "mixer", if you
+chop things finer to start with, and work at it.
+
+In a saucepan set over moderate heat, warm the oil until hot.
+
+Add the puree and the balsamic vinegar, and cook, stirring occasionally,
+for 20 to 40 minutes. (Cooking it longer will make it sweeter.)
+
+Add the Garam Masala, chili powder, and cook, stirring occasionally, for
+5 minutes.
+
+Add the salt and chick peas and cook, stirring, until heated through.
+
+Stir in the lime juice, and optionally one or two teaspoons of tahini.
+You can let it simmer longer, depending on how much softer you want the
+garbanzos to get.
+
+Serve over rice, like a curry.
+
+Yields 5 to 7 servings.
+
+
diff --git a/lib/5.24.1/Pod/Simple/Transcode.pm b/lib/5.24.1/Pod/Simple/Transcode.pm
new file mode 100644
index 00000000..ae9298ef
--- /dev/null
+++ b/lib/5.24.1/Pod/Simple/Transcode.pm
@@ -0,0 +1,36 @@
+
+require 5;
+package Pod::Simple::Transcode;
+use strict;
+use vars qw($VERSION @ISA);
+$VERSION = '3.32';
+
+BEGIN {
+  if(defined &DEBUG) {;} # Okay
+  elsif( defined &Pod::Simple::DEBUG ) { *DEBUG = \&Pod::Simple::DEBUG; }
+  else { *DEBUG = sub () {0}; }
+}
+
+foreach my $class (
+  'Pod::Simple::TranscodeSmart',
+  'Pod::Simple::TranscodeDumb',
+  '',
+) {
+  $class or die "Couldn't load any encoding classes";
+  DEBUG and print STDERR "About to try loading $class...\n";
+  eval "require $class;";
+  if($@) {
+    DEBUG and print STDERR "Couldn't load $class: $@\n";
+  } else {
+    DEBUG and print STDERR "OK, loaded $class.\n";
+    @ISA = ($class);
+    last;
+  }
+}
+
+sub _blorp { return; } # just to avoid any "empty class" warning
+
+1;
+__END__
+
+
diff --git a/lib/5.24.1/Pod/Simple/TranscodeDumb.pm b/lib/5.24.1/Pod/Simple/TranscodeDumb.pm
new file mode 100644
index 00000000..80b828a7
--- /dev/null
+++ b/lib/5.24.1/Pod/Simple/TranscodeDumb.pm
@@ -0,0 +1,86 @@
+
+require 5;
+## This module is to be use()'d only by Pod::Simple::Transcode
+
+package Pod::Simple::TranscodeDumb;
+use strict;
+use vars qw($VERSION %Supported);
+$VERSION = '3.32';
+# This module basically pretends it knows how to transcode, except
+#  only for null-transcodings!  We use this when Encode isn't
+#  available.
+
+%Supported = (
+  'ascii'       => 1,
+  'ascii-ctrl'  => 1,
+  'iso-8859-1'  => 1,
+  'cp1252'      => 1,
+  'null'        => 1,
+  'latin1'      => 1,
+  'latin-1'     => 1,
+  %Supported,
+);
+
+sub is_dumb  {1}
+sub is_smart {0}
+
+sub all_encodings {
+  return sort keys %Supported;
+}
+
+sub encoding_is_available {
+  return exists $Supported{lc $_[1]};
+}
+
+sub encmodver {
+  return __PACKAGE__ . " v" .($VERSION || '?');
+}
+
+sub make_transcoder {
+    my ($e) = $_[1];
+    die "WHAT ENCODING!?!?" unless $e;
+    # No-op for all but CP1252.
+    return sub {;} if $e !~ /^cp-?1252$/i;
+
+    # Replace CP1252 nerbles with their ASCII equivalents.
+    return sub {
+        # Copied from Encode::ZapCP1252.
+        my %ascii_for = (
+            # http://en.wikipedia.org/wiki/Windows-1252
+            "\x80" => 'e',    # EURO SIGN
+            "\x82" => ',',    # SINGLE LOW-9 QUOTATION MARK
+            "\x83" => 'f',    # LATIN SMALL LETTER F WITH HOOK
+            "\x84" => ',,',   # DOUBLE LOW-9 QUOTATION MARK
+            "\x85" => '...',  # HORIZONTAL ELLIPSIS
+            "\x86" => '+',    # DAGGER
+            "\x87" => '++',   # DOUBLE DAGGER
+            "\x88" => '^',    # MODIFIER LETTER CIRCUMFLEX ACCENT
+            "\x89" => '%',    # PER MILLE SIGN
+            "\x8a" => 'S',    # LATIN CAPITAL LETTER S WITH CARON
+            "\x8b" => '<',    # SINGLE LEFT-POINTING ANGLE QUOTATION MARK
+            "\x8c" => 'OE',   # LATIN CAPITAL LIGATURE OE
+            "\x8e" => 'Z',    # LATIN CAPITAL LETTER Z WITH CARON
+            "\x91" => "'",    # LEFT SINGLE QUOTATION MARK
+            "\x92" => "'",    # RIGHT SINGLE QUOTATION MARK
+            "\x93" => '"',    # LEFT DOUBLE QUOTATION MARK
+            "\x94" => '"',    # RIGHT DOUBLE QUOTATION MARK
+            "\x95" => '*',    # BULLET
+            "\x96" => '-',    # EN DASH
+            "\x97" => '--',   # EM DASH
+            "\x98" => '~',    # SMALL TILDE
+            "\x99" => '(tm)', # TRADE MARK SIGN
+            "\x9a" => 's',    # LATIN SMALL LETTER S WITH CARON
+            "\x9b" => '>',    # SINGLE RIGHT-POINTING ANGLE QUOTATION MARK
+            "\x9c" => 'oe',   # LATIN SMALL LIGATURE OE
+            "\x9e" => 'z',    # LATIN SMALL LETTER Z WITH CARON
+            "\x9f" => 'Y',    # LATIN CAPITAL LETTER Y WITH DIAERESIS
+        );
+
+        s{([\x80-\x9f])}{$ascii_for{$1} || $1}emxsg for @_;
+  };
+}
+
+
+1;
+
+
diff --git a/lib/5.24.1/Pod/Simple/TranscodeSmart.pm b/lib/5.24.1/Pod/Simple/TranscodeSmart.pm
new file mode 100644
index 00000000..33565499
--- /dev/null
+++ b/lib/5.24.1/Pod/Simple/TranscodeSmart.pm
@@ -0,0 +1,44 @@
+
+require 5;
+use 5.008;
+## Anything before 5.8.0 is GIMPY!
+## This module is to be use()'d only by Pod::Simple::Transcode
+
+package Pod::Simple::TranscodeSmart;
+use strict;
+use Pod::Simple;
+require Encode;
+use vars qw($VERSION );
+$VERSION = '3.32';
+
+sub is_dumb  {0}
+sub is_smart {1}
+
+sub all_encodings {
+  return Encode::->encodings(':all');
+}
+
+sub encoding_is_available {
+  return Encode::resolve_alias($_[1]);
+}
+
+sub encmodver {
+  return "Encode.pm v" .($Encode::VERSION || '?');
+}
+
+sub make_transcoder {
+  my $e = Encode::find_encoding($_[1]);
+  die "WHAT ENCODING!?!?" unless $e;
+  my $x;
+  return sub {
+    foreach $x (@_) {
+      $x = $e->decode($x) unless Encode::is_utf8($x);
+    }
+    return;
+  };
+}
+
+
+1;
+
+
diff --git a/lib/5.24.1/Pod/Simple/XHTML.pm b/lib/5.24.1/Pod/Simple/XHTML.pm
new file mode 100644
index 00000000..67b259cb
--- /dev/null
+++ b/lib/5.24.1/Pod/Simple/XHTML.pm
@@ -0,0 +1,879 @@
+=pod
+
+=head1 NAME
+
+Pod::Simple::XHTML -- format Pod as validating XHTML
+
+=head1 SYNOPSIS
+
+  use Pod::Simple::XHTML;
+
+  my $parser = Pod::Simple::XHTML->new();
+
+  ...
+
+  $parser->parse_file('path/to/file.pod');
+
+=head1 DESCRIPTION
+
+This class is a formatter that takes Pod and renders it as XHTML
+validating HTML.
+
+This is a subclass of L<Pod::Simple::Methody> and inherits all its
+methods. The implementation is entirely different than
+L<Pod::Simple::HTML>, but it largely preserves the same interface.
+
+=head2 Minimal code
+
+  use Pod::Simple::XHTML;
+  my $psx = Pod::Simple::XHTML->new;
+  $psx->output_string(\my $html);
+  $psx->parse_file('path/to/Module/Name.pm');
+  open my $out, '>', 'out.html' or die "Cannot open 'out.html': $!\n";
+  print $out $html;
+
+You can also control the character encoding and entities. For example, if
+you're sure that the POD is properly encoded (using the C<=encoding> command),
+you can prevent high-bit characters from being encoded as HTML entities and
+declare the output character set as UTF-8 before parsing, like so:
+
+  $psx->html_charset('UTF-8');
+  $psx->html_encode_chars(q{&<>'"});
+
+=cut
+
+package Pod::Simple::XHTML;
+use strict;
+use vars qw( $VERSION @ISA $HAS_HTML_ENTITIES );
+$VERSION = '3.32';
+use Pod::Simple::Methody ();
+@ISA = ('Pod::Simple::Methody');
+
+BEGIN {
+  $HAS_HTML_ENTITIES = eval "require HTML::Entities; 1";
+}
+
+my %entities = (
+  q{>} => 'gt',
+  q{<} => 'lt',
+  q{'} => '#39',
+  q{"} => 'quot',
+  q{&} => 'amp',
+);
+
+sub encode_entities {
+  my $self = shift;
+  my $ents = $self->html_encode_chars;
+  return HTML::Entities::encode_entities( $_[0], $ents ) if $HAS_HTML_ENTITIES;
+  if (defined $ents) {
+      $ents =~ s,(?<!\\)([]/]),\\$1,g;
+      $ents =~ s,(?<!\\)\\\z,\\\\,;
+  } else {
+      $ents = join '', keys %entities;
+  }
+  my $str = $_[0];
+  $str =~ s/([$ents])/'&' . ($entities{$1} || sprintf '#x%X', ord $1) . ';'/ge;
+  return $str;
+}
+
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+=head1 METHODS
+
+Pod::Simple::XHTML offers a number of methods that modify the format of
+the HTML output. Call these after creating the parser object, but before
+the call to C<parse_file>:
+
+  my $parser = Pod::PseudoPod::HTML->new();
+  $parser->set_optional_param("value");
+  $parser->parse_file($file);
+
+=head2 perldoc_url_prefix
+
+In turning L<Foo::Bar> into http://whatever/Foo%3a%3aBar, what
+to put before the "Foo%3a%3aBar". The default value is
+"http://search.cpan.org/perldoc?".
+
+=head2 perldoc_url_postfix
+
+What to put after "Foo%3a%3aBar" in the URL. This option is not set by
+default.
+
+=head2 man_url_prefix
+
+In turning C<< L<crontab(5)> >> into http://whatever/man/1/crontab, what
+to put before the "1/crontab". The default value is
+"http://man.he.net/man".
+
+=head2 man_url_postfix
+
+What to put after "1/crontab" in the URL. This option is not set by default.
+
+=head2 title_prefix, title_postfix
+
+What to put before and after the title in the head. The values should
+already be &-escaped.
+
+=head2 html_css
+
+  $parser->html_css('path/to/style.css');
+
+The URL or relative path of a CSS file to include. This option is not
+set by default.
+
+=head2 html_javascript
+
+The URL or relative path of a JavaScript file to pull in. This option is
+not set by default.
+
+=head2 html_doctype
+
+A document type tag for the file. This option is not set by default.
+
+=head2 html_charset
+
+The character set to declare in the Content-Type meta tag created by default
+for C<html_header_tags>. Note that this option will be ignored if the value of
+C<html_header_tags> is changed. Defaults to "ISO-8859-1".
+
+=head2 html_header_tags
+
+Additional arbitrary HTML tags for the header of the document. The
+default value is just a content type header tag:
+
+  <meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1">
+
+Add additional meta tags here, or blocks of inline CSS or JavaScript
+(wrapped in the appropriate tags).
+
+=head3 html_encode_chars
+
+A string containing all characters that should be encoded as HTML entities,
+specified using the regular expression character class syntax (what you find
+within brackets in regular expressions). This value will be passed as the
+second argument to the C<encode_entities> function of L<HTML::Entities>. If
+L<HTML::Entities> is not installed, then any characters other than C<&<>"'>
+will be encoded numerically.
+
+=head2 html_h_level
+
+This is the level of HTML "Hn" element to which a Pod "head1" corresponds.  For
+example, if C<html_h_level> is set to 2, a head1 will produce an H2, a head2
+will produce an H3, and so on.
+
+=head2 default_title
+
+Set a default title for the page if no title can be determined from the
+content. The value of this string should already be &-escaped.
+
+=head2 force_title
+
+Force a title for the page (don't try to determine it from the content).
+The value of this string should already be &-escaped.
+
+=head2 html_header, html_footer
+
+Set the HTML output at the beginning and end of each file. The default
+header includes a title, a doctype tag (if C<html_doctype> is set), a
+content tag (customized by C<html_header_tags>), a tag for a CSS file
+(if C<html_css> is set), and a tag for a Javascript file (if
+C<html_javascript> is set). The default footer simply closes the C<html>
+and C<body> tags.
+
+The options listed above customize parts of the default header, but
+setting C<html_header> or C<html_footer> completely overrides the
+built-in header or footer. These may be useful if you want to use
+template tags instead of literal HTML headers and footers or are
+integrating converted POD pages in a larger website.
+
+If you want no headers or footers output in the HTML, set these options
+to the empty string.
+
+=head2 index
+
+Whether to add a table-of-contents at the top of each page (called an
+index for the sake of tradition).
+
+=head2 anchor_items
+
+Whether to anchor every definition C<=item> directive. This needs to be
+enabled if you want to be able to link to specific C<=item> directives, which
+are output as C<< <dt> >> elements. Disabled by default.
+
+=head2 backlink
+
+Whether to turn every =head1 directive into a link pointing to the top 
+of the page (specifically, the opening body tag).
+
+=cut
+
+__PACKAGE__->_accessorize(
+ 'perldoc_url_prefix',
+ 'perldoc_url_postfix',
+ 'man_url_prefix',
+ 'man_url_postfix',
+ 'title_prefix',  'title_postfix',
+ 'html_css',
+ 'html_javascript',
+ 'html_doctype',
+ 'html_charset',
+ 'html_encode_chars',
+ 'html_h_level',
+ 'title', # Used internally for the title extracted from the content
+ 'default_title',
+ 'force_title',
+ 'html_header',
+ 'html_footer',
+ 'index',
+ 'anchor_items',
+ 'backlink',
+ 'batch_mode', # whether we're in batch mode
+ 'batch_mode_current_level',
+    # When in batch mode, how deep the current module is: 1 for "LWP",
+    #  2 for "LWP::Procotol", 3 for "LWP::Protocol::GHTTP", etc
+);
+
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+=head1 SUBCLASSING
+
+If the standard options aren't enough, you may want to subclass
+Pod::Simple::XHMTL. These are the most likely candidates for methods
+you'll want to override when subclassing.
+
+=cut
+
+sub new {
+  my $self = shift;
+  my $new = $self->SUPER::new(@_);
+  $new->{'output_fh'} ||= *STDOUT{IO};
+  $new->perldoc_url_prefix('http://search.cpan.org/perldoc?');
+  $new->man_url_prefix('http://man.he.net/man');
+  $new->html_charset('ISO-8859-1');
+  $new->nix_X_codes(1);
+  $new->{'scratch'} = '';
+  $new->{'to_index'} = [];
+  $new->{'output'} = [];
+  $new->{'saved'} = [];
+  $new->{'ids'} = { '_podtop_' => 1 }; # used in <body>
+  $new->{'in_li'} = [];
+
+  $new->{'__region_targets'}  = [];
+  $new->{'__literal_targets'} = {};
+  $new->accept_targets_as_html( 'html', 'HTML' );
+
+  return $new;
+}
+
+sub html_header_tags {
+    my $self = shift;
+    return $self->{html_header_tags} = shift if @_;
+    return $self->{html_header_tags}
+        ||= '<meta http-equiv="Content-Type" content="text/html; charset='
+            . $self->html_charset . '" />';
+}
+
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+=head2 handle_text
+
+This method handles the body of text within any element: it's the body
+of a paragraph, or everything between a "=begin" tag and the
+corresponding "=end" tag, or the text within an L entity, etc. You would
+want to override this if you are adding a custom element type that does
+more than just display formatted text. Perhaps adding a way to generate
+HTML tables from an extended version of POD.
+
+So, let's say you want to add a custom element called 'foo'. In your
+subclass's C<new> method, after calling C<SUPER::new> you'd call:
+
+  $new->accept_targets_as_text( 'foo' );
+
+Then override the C<start_for> method in the subclass to check for when
+"$flags->{'target'}" is equal to 'foo' and set a flag that marks that
+you're in a foo block (maybe "$self->{'in_foo'} = 1"). Then override the
+C<handle_text> method to check for the flag, and pass $text to your
+custom subroutine to construct the HTML output for 'foo' elements,
+something like:
+
+  sub handle_text {
+      my ($self, $text) = @_;
+      if ($self->{'in_foo'}) {
+          $self->{'scratch'} .= build_foo_html($text);
+          return;
+      }
+      $self->SUPER::handle_text($text);
+  }
+
+=head2 handle_code
+
+This method handles the body of text that is marked up to be code.
+You might for instance override this to plug in a syntax highlighter.
+The base implementation just escapes the text.
+
+The callback methods C<start_code> and C<end_code> emits the C<code> tags
+before and after C<handle_code> is invoked, so you might want to override these
+together with C<handle_code> if this wrapping isn't suitable.
+
+Note that the code might be broken into multiple segments if there are
+nested formatting codes inside a C<< CE<lt>...> >> sequence.  In between the
+calls to C<handle_code> other markup tags might have been emitted in that
+case.  The same is true for verbatim sections if the C<codes_in_verbatim>
+option is turned on.
+
+=head2 accept_targets_as_html
+
+This method behaves like C<accept_targets_as_text>, but also marks the region
+as one whose content should be emitted literally, without HTML entity escaping
+or wrapping in a C<div> element.
+
+=cut
+
+sub __in_literal_xhtml_region {
+    return unless @{ $_[0]{__region_targets} };
+    my $target = $_[0]{__region_targets}[-1];
+    return $_[0]{__literal_targets}{ $target };
+}
+
+sub accept_targets_as_html {
+    my ($self, @targets) = @_;
+    $self->accept_targets(@targets);
+    $self->{__literal_targets}{$_} = 1 for @targets;
+}
+
+sub handle_text {
+    # escape special characters in HTML (<, >, &, etc)
+    my $text = $_[0]->__in_literal_xhtml_region
+        ? $_[1]
+        : $_[0]->encode_entities( $_[1] );
+
+    if ($_[0]{'in_code'} && @{$_[0]{'in_code'}}) {
+        # Intentionally use the raw text in $_[1], even if we're not in a
+        # literal xhtml region, since handle_code calls encode_entities.
+        $_[0]->handle_code( $_[1], $_[0]{'in_code'}[-1] );
+    } else {
+        if ($_[0]->{in_for}) {
+            my $newlines = $_[0]->__in_literal_xhtml_region ? "\n\n" : '';
+            if ($_[0]->{started_for}) {
+                if ($text =~ /\S/) {
+                    delete $_[0]->{started_for};
+                    $_[0]{'scratch'} .= $text . $newlines;
+                }
+                # Otherwise, append nothing until we have something to append.
+            } else {
+                # The parser sometimes preserves newlines and sometimes doesn't!
+                $text =~ s/\n\z//;
+                $_[0]{'scratch'} .= $text . $newlines;
+            }
+        } else {
+            # Just plain text.
+            $_[0]{'scratch'} .= $text;
+        }
+    }
+
+    $_[0]{htext} .= $text if $_[0]{'in_head'};
+}
+
+sub start_code {
+    $_[0]{'scratch'} .= '<code>';
+}
+
+sub end_code {
+    $_[0]{'scratch'} .= '</code>';
+}
+
+sub handle_code {
+    $_[0]{'scratch'} .= $_[0]->encode_entities( $_[1] );
+}
+
+sub start_Para {
+    $_[0]{'scratch'} .= '<p>';
+}
+
+sub start_Verbatim {
+    $_[0]{'scratch'} = '<pre>';
+    push(@{$_[0]{'in_code'}}, 'Verbatim');
+    $_[0]->start_code($_[0]{'in_code'}[-1]);
+}
+
+sub start_head1 {  $_[0]{'in_head'} = 1; $_[0]{htext} = ''; }
+sub start_head2 {  $_[0]{'in_head'} = 2; $_[0]{htext} = ''; }
+sub start_head3 {  $_[0]{'in_head'} = 3; $_[0]{htext} = ''; }
+sub start_head4 {  $_[0]{'in_head'} = 4; $_[0]{htext} = ''; }
+
+sub start_item_number {
+    $_[0]{'scratch'} = "</li>\n" if ($_[0]{'in_li'}->[-1] && pop @{$_[0]{'in_li'}});
+    $_[0]{'scratch'} .= '<li><p>';
+    push @{$_[0]{'in_li'}}, 1;
+}
+
+sub start_item_bullet {
+    $_[0]{'scratch'} = "</li>\n" if ($_[0]{'in_li'}->[-1] && pop @{$_[0]{'in_li'}});
+    $_[0]{'scratch'} .= '<li><p>';
+    push @{$_[0]{'in_li'}}, 1;
+}
+
+sub start_item_text   {
+    # see end_item_text
+}
+
+sub start_over_bullet { $_[0]{'scratch'} = '<ul>'; push @{$_[0]{'in_li'}}, 0; $_[0]->emit }
+sub start_over_block  { $_[0]{'scratch'} = '<ul>'; $_[0]->emit }
+sub start_over_number { $_[0]{'scratch'} = '<ol>'; push @{$_[0]{'in_li'}}, 0; $_[0]->emit }
+sub start_over_text   {
+    $_[0]{'scratch'} = '<dl>';
+    $_[0]{'dl_level'}++;
+    $_[0]{'in_dd'} ||= [];
+    $_[0]->emit
+}
+
+sub end_over_block  { $_[0]{'scratch'} .= '</ul>'; $_[0]->emit }
+
+sub end_over_number   {
+    $_[0]{'scratch'} = "</li>\n" if ( pop @{$_[0]{'in_li'}} );
+    $_[0]{'scratch'} .= '</ol>';
+    pop @{$_[0]{'in_li'}};
+    $_[0]->emit;
+}
+
+sub end_over_bullet   {
+    $_[0]{'scratch'} = "</li>\n" if ( pop @{$_[0]{'in_li'}} );
+    $_[0]{'scratch'} .= '</ul>';
+    pop @{$_[0]{'in_li'}};
+    $_[0]->emit;
+}
+
+sub end_over_text   {
+    if ($_[0]{'in_dd'}[ $_[0]{'dl_level'} ]) {
+        $_[0]{'scratch'} = "</dd>\n";
+        $_[0]{'in_dd'}[ $_[0]{'dl_level'} ] = 0;
+    }
+    $_[0]{'scratch'} .= '</dl>';
+    $_[0]{'dl_level'}--;
+    $_[0]->emit;
+}
+
+# . . . . . Now the actual formatters:
+
+sub end_Para     { $_[0]{'scratch'} .= '</p>'; $_[0]->emit }
+sub end_Verbatim {
+    $_[0]->end_code(pop(@{$_[0]->{'in_code'}}));
+    $_[0]{'scratch'} .= '</pre>';
+    $_[0]->emit;
+}
+
+sub _end_head {
+    my $h = delete $_[0]{in_head};
+
+    my $add = $_[0]->html_h_level;
+    $add = 1 unless defined $add;
+    $h += $add - 1;
+
+    my $id = $_[0]->idify($_[0]{htext});
+    my $text = $_[0]{scratch};
+    $_[0]{'scratch'} = $_[0]->backlink && ($h - $add == 0)
+                         # backlinks enabled && =head1
+                         ? qq{<a href="#_podtop_"><h$h id="$id">$text</h$h></a>}
+                         : qq{<h$h id="$id">$text</h$h>};
+    $_[0]->emit;
+    push @{ $_[0]{'to_index'} }, [$h, $id, delete $_[0]{'htext'}];
+}
+
+sub end_head1       { shift->_end_head(@_); }
+sub end_head2       { shift->_end_head(@_); }
+sub end_head3       { shift->_end_head(@_); }
+sub end_head4       { shift->_end_head(@_); }
+
+sub end_item_bullet { $_[0]{'scratch'} .= '</p>'; $_[0]->emit }
+sub end_item_number { $_[0]{'scratch'} .= '</p>'; $_[0]->emit }
+
+sub end_item_text   {
+    # idify and anchor =item content if wanted
+    my $dt_id = $_[0]{'anchor_items'} 
+                 ? ' id="'. $_[0]->idify($_[0]{'scratch'}) .'"'
+                 : '';
+
+    # reset scratch
+    my $text = $_[0]{scratch};
+    $_[0]{'scratch'} = '';
+
+    if ($_[0]{'in_dd'}[ $_[0]{'dl_level'} ]) {
+        $_[0]{'scratch'} = "</dd>\n";
+        $_[0]{'in_dd'}[ $_[0]{'dl_level'} ] = 0;
+    }
+
+    $_[0]{'scratch'} .= qq{<dt$dt_id>$text</dt>\n<dd>};
+    $_[0]{'in_dd'}[ $_[0]{'dl_level'} ] = 1;
+    $_[0]->emit;
+}
+
+# This handles =begin and =for blocks of all kinds.
+sub start_for {
+  my ($self, $flags) = @_;
+
+  push @{ $self->{__region_targets} }, $flags->{target_matching};
+  $self->{started_for} = 1;
+  $self->{in_for} = 1;
+
+  unless ($self->__in_literal_xhtml_region) {
+    $self->{scratch} .= '<div';
+    $self->{scratch} .= qq( class="$flags->{target}") if $flags->{target};
+    $self->{scratch} .= ">\n\n";
+  }
+}
+
+sub end_for {
+  my ($self) = @_;
+  delete $self->{started_for};
+  delete $self->{in_for};
+
+  if ($self->__in_literal_xhtml_region) {
+    # Remove trailine newlines.
+    $self->{'scratch'} =~ s/\s+\z//s;
+  } else {
+    $self->{'scratch'} .= '</div>';
+  }
+
+  pop @{ $self->{__region_targets} };
+  $self->emit;
+}
+
+sub start_Document {
+  my ($self) = @_;
+  if (defined $self->html_header) {
+    $self->{'scratch'} .= $self->html_header;
+    $self->emit unless $self->html_header eq "";
+  } else {
+    my ($doctype, $title, $metatags, $bodyid);
+    $doctype = $self->html_doctype || '';
+    $title = $self->force_title || $self->title || $self->default_title || '';
+    $metatags = $self->html_header_tags || '';
+    if (my $css = $self->html_css) {
+        if ($css !~ /<link/) {
+            # this is required to be compatible with Pod::Simple::BatchHTML
+            $metatags .= '<link rel="stylesheet" href="'
+                . $self->encode_entities($css) . '" type="text/css" />';
+        } else {
+            $metatags .= $css;
+        }
+    }
+    if ($self->html_javascript) {
+      $metatags .= qq{\n<script type="text/javascript" src="} .
+                    $self->html_javascript . '"></script>';
+    }
+    $bodyid = $self->backlink ? ' id="_podtop_"' : '';
+    $self->{'scratch'} .= <<"HTML";
+$doctype
+<html>
+<head>
+<title>$title</title>
+$metatags
+</head>
+<body$bodyid>
+HTML
+    $self->emit;
+  }
+}
+
+sub end_Document   {
+  my ($self) = @_;
+  my $to_index = $self->{'to_index'};
+  if ($self->index && @{ $to_index } ) {
+      my @out;
+      my $level  = 0;
+      my $indent = -1;
+      my $space  = '';
+      my $id     = ' id="index"';
+
+      for my $h (@{ $to_index }, [0]) {
+          my $target_level = $h->[0];
+          # Get to target_level by opening or closing ULs
+          if ($level == $target_level) {
+              $out[-1] .= '</li>';
+          } elsif ($level > $target_level) {
+              $out[-1] .= '</li>' if $out[-1] =~ /^\s+<li>/;
+              while ($level > $target_level) {
+                  --$level;
+                  push @out, ('  ' x --$indent) . '</li>' if @out && $out[-1] =~ m{^\s+<\/ul};
+                  push @out, ('  ' x --$indent) . '</ul>';
+              }
+              push @out, ('  ' x --$indent) . '</li>' if $level;
+          } else {
+              while ($level < $target_level) {
+                  ++$level;
+                  push @out, ('  ' x ++$indent) . '<li>' if @out && $out[-1]=~ /^\s*<ul/;
+                  push @out, ('  ' x ++$indent) . "<ul$id>";
+                  $id = '';
+              }
+              ++$indent;
+          }
+
+          next unless $level;
+          $space = '  '  x $indent;
+          push @out, sprintf '%s<li><a href="#%s">%s</a>',
+              $space, $h->[1], $h->[2];
+      }
+      # Splice the index in between the HTML headers and the first element.
+      my $offset = defined $self->html_header ? $self->html_header eq '' ? 0 : 1 : 1;
+      splice @{ $self->{'output'} }, $offset, 0, join "\n", @out;
+  }
+
+  if (defined $self->html_footer) {
+    $self->{'scratch'} .= $self->html_footer;
+    $self->emit unless $self->html_footer eq "";
+  } else {
+    $self->{'scratch'} .= "</body>\n</html>";
+    $self->emit;
+  }
+
+  if ($self->index) {
+      print {$self->{'output_fh'}} join ("\n\n", @{ $self->{'output'} }), "\n\n";
+      @{$self->{'output'}} = ();
+  }
+
+}
+
+# Handling code tags
+sub start_B { $_[0]{'scratch'} .= '<b>' }
+sub end_B   { $_[0]{'scratch'} .= '</b>' }
+
+sub start_C { push(@{$_[0]{'in_code'}}, 'C'); $_[0]->start_code($_[0]{'in_code'}[-1]); }
+sub end_C   { $_[0]->end_code(pop(@{$_[0]{'in_code'}})); }
+
+sub start_F { $_[0]{'scratch'} .= '<i>' }
+sub end_F   { $_[0]{'scratch'} .= '</i>' }
+
+sub start_I { $_[0]{'scratch'} .= '<i>' }
+sub end_I   { $_[0]{'scratch'} .= '</i>' }
+
+sub start_L {
+  my ($self, $flags) = @_;
+    my ($type, $to, $section) = @{$flags}{'type', 'to', 'section'};
+    my $url = $self->encode_entities(
+        $type eq 'url' ? $to
+            : $type eq 'pod' ? $self->resolve_pod_page_link($to, $section)
+            : $type eq 'man' ? $self->resolve_man_page_link($to, $section)
+            :                  undef
+    );
+
+    # If it's an unknown type, use an attribute-less <a> like HTML.pm.
+    $self->{'scratch'} .= '<a' . ($url ? ' href="'. $url . '">' : '>');
+}
+
+sub end_L   { $_[0]{'scratch'} .= '</a>' }
+
+sub start_S { $_[0]{'scratch'} .= '<span style="white-space: nowrap;">' }
+sub end_S   { $_[0]{'scratch'} .= '</span>' }
+
+sub emit {
+  my($self) = @_;
+  if ($self->index) {
+      push @{ $self->{'output'} }, $self->{'scratch'};
+  } else {
+      print {$self->{'output_fh'}} $self->{'scratch'}, "\n\n";
+  }
+  $self->{'scratch'} = '';
+  return;
+}
+
+=head2 resolve_pod_page_link
+
+  my $url = $pod->resolve_pod_page_link('Net::Ping', 'INSTALL');
+  my $url = $pod->resolve_pod_page_link('perlpodspec');
+  my $url = $pod->resolve_pod_page_link(undef, 'SYNOPSIS');
+
+Resolves a POD link target (typically a module or POD file name) and section
+name to a URL. The resulting link will be returned for the above examples as:
+
+  http://search.cpan.org/perldoc?Net::Ping#INSTALL
+  http://search.cpan.org/perldoc?perlpodspec
+  #SYNOPSIS
+
+Note that when there is only a section argument the URL will simply be a link
+to a section in the current document.
+
+=cut
+
+sub resolve_pod_page_link {
+    my ($self, $to, $section) = @_;
+    return undef unless defined $to || defined $section;
+    if (defined $section) {
+        $section = '#' . $self->idify($self->encode_entities($section), 1);
+        return $section unless defined $to;
+    } else {
+        $section = ''
+    }
+
+    return ($self->perldoc_url_prefix || '')
+        . $self->encode_entities($to) . $section
+        . ($self->perldoc_url_postfix || '');
+}
+
+=head2 resolve_man_page_link
+
+  my $url = $pod->resolve_man_page_link('crontab(5)', 'EXAMPLE CRON FILE');
+  my $url = $pod->resolve_man_page_link('crontab');
+
+Resolves a man page link target and numeric section to a URL. The resulting
+link will be returned for the above examples as:
+
+    http://man.he.net/man5/crontab
+    http://man.he.net/man1/crontab
+
+Note that the first argument is required. The section number will be parsed
+from it, and if it's missing will default to 1. The second argument is
+currently ignored, as L<man.he.net|http://man.he.net> does not currently
+include linkable IDs or anchor names in its pages. Subclass to link to a
+different man page HTTP server.
+
+=cut
+
+sub resolve_man_page_link {
+    my ($self, $to, $section) = @_;
+    return undef unless defined $to;
+    my ($page, $part) = $to =~ /^([^(]+)(?:[(](\d+)[)])?$/;
+    return undef unless $page;
+    return ($self->man_url_prefix || '')
+        . ($part || 1) . "/" . $self->encode_entities($page)
+        . ($self->man_url_postfix || '');
+
+}
+
+=head2 idify
+
+  my $id   = $pod->idify($text);
+  my $hash = $pod->idify($text, 1);
+
+This method turns an arbitrary string into a valid XHTML ID attribute value.
+The rules enforced, following
+L<http://webdesign.about.com/od/htmltags/a/aa031707.htm>, are:
+
+=over
+
+=item *
+
+The id must start with a letter (a-z or A-Z)
+
+=item *
+
+All subsequent characters can be letters, numbers (0-9), hyphens (-),
+underscores (_), colons (:), and periods (.).
+
+=item *
+
+The final character can't be a hyphen, colon, or period. URLs ending with these
+characters, while allowed by XHTML, can be awkward to extract from plain text.
+
+=item *
+
+Each id must be unique within the document.
+
+=back
+
+In addition, the returned value will be unique within the context of the
+Pod::Simple::XHTML object unless a second argument is passed a true value. ID
+attributes should always be unique within a single XHTML document, but pass
+the true value if you are creating not an ID but a URL hash to point to
+an ID (i.e., if you need to put the "#foo" in C<< <a href="#foo">foo</a> >>.
+
+=cut
+
+sub idify {
+    my ($self, $t, $not_unique) = @_;
+    for ($t) {
+        s/<[^>]+>//g;            # Strip HTML.
+        s/&[^;]+;//g;            # Strip entities.
+        s/^\s+//; s/\s+$//;      # Strip white space.
+        s/^([^a-zA-Z]+)$/pod$1/; # Prepend "pod" if no valid chars.
+        s/^[^a-zA-Z]+//;         # First char must be a letter.
+        s/[^-a-zA-Z0-9_:.]+/-/g; # All other chars must be valid.
+        s/[-:.]+$//;             # Strip trailing punctuation.
+    }
+    return $t if $not_unique;
+    my $i = '';
+    $i++ while $self->{ids}{"$t$i"}++;
+    return "$t$i";
+}
+
+=head2 batch_mode_page_object_init
+
+  $pod->batch_mode_page_object_init($batchconvobj, $module, $infile, $outfile, $depth);
+
+Called by L<Pod::Simple::HTMLBatch> so that the class has a chance to
+initialize the converter. Internally it sets the C<batch_mode> property to
+true and sets C<batch_mode_current_level()>, but Pod::Simple::XHTML does not
+currently use those features. Subclasses might, though.
+
+=cut
+
+sub batch_mode_page_object_init {
+  my ($self, $batchconvobj, $module, $infile, $outfile, $depth) = @_;
+  $self->batch_mode(1);
+  $self->batch_mode_current_level($depth);
+  return $self;
+}
+
+sub html_header_after_title {
+}
+
+
+1;
+
+__END__
+
+=head1 SEE ALSO
+
+L<Pod::Simple>, L<Pod::Simple::Text>, L<Pod::Spell>
+
+=head1 SUPPORT
+
+Questions or discussion about POD and Pod::Simple should be sent to the
+pod-people@perl.org mail list. Send an empty email to
+pod-people-subscribe@perl.org to subscribe.
+
+This module is managed in an open GitHub repository,
+L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or
+to clone L<git://github.com/perl-pod/pod-simple.git> and send patches!
+
+Patches against Pod::Simple are welcome. Please send bug reports to
+<bug-pod-simple@rt.cpan.org>.
+
+=head1 COPYRIGHT AND DISCLAIMERS
+
+Copyright (c) 2003-2005 Allison Randal.
+
+This library is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+This program is distributed in the hope that it will be useful, but
+without any warranty; without even the implied warranty of
+merchantability or fitness for a particular purpose.
+
+=head1 ACKNOWLEDGEMENTS
+
+Thanks to L<Hurricane Electric|http://he.net/> for permission to use its
+L<Linux man pages online|http://man.he.net/> site for man page links.
+
+Thanks to L<search.cpan.org|http://search.cpan.org/> for permission to use the
+site for Perl module links.
+
+=head1 AUTHOR
+
+Pod::Simpele::XHTML was created by Allison Randal <allison@perl.org>.
+
+Pod::Simple was created by Sean M. Burke <sburke@cpan.org>.
+But don't bother him, he's retired.
+
+Pod::Simple is maintained by:
+
+=over
+
+=item * Allison Randal C<allison@perl.org>
+
+=item * Hans Dieter Pearcey C<hdp@cpan.org>
+
+=item * David E. Wheeler C<dwheeler@cpan.org>
+
+=back
+
+=cut
diff --git a/lib/5.24.1/Pod/Simple/XMLOutStream.pm b/lib/5.24.1/Pod/Simple/XMLOutStream.pm
new file mode 100644
index 00000000..03f2930e
--- /dev/null
+++ b/lib/5.24.1/Pod/Simple/XMLOutStream.pm
@@ -0,0 +1,175 @@
+
+require 5;
+package Pod::Simple::XMLOutStream;
+use strict;
+use Carp ();
+use Pod::Simple ();
+use vars qw( $ATTR_PAD @ISA $VERSION $SORT_ATTRS);
+$VERSION = '3.32';
+BEGIN {
+  @ISA = ('Pod::Simple');
+  *DEBUG = \&Pod::Simple::DEBUG unless defined &DEBUG;
+}
+
+$ATTR_PAD = "\n" unless defined $ATTR_PAD;
+ # Don't mess with this unless you know what you're doing.
+
+$SORT_ATTRS = 0 unless defined $SORT_ATTRS;
+
+sub new {
+  my $self = shift;
+  my $new = $self->SUPER::new(@_);
+  $new->{'output_fh'} ||= *STDOUT{IO};
+  $new->keep_encoding_directive(1);
+  #$new->accept_codes('VerbatimFormatted');
+  return $new;
+}
+
+#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+sub _handle_element_start {
+  # ($self, $element_name, $attr_hash_r)
+  my $fh = $_[0]{'output_fh'};
+  my($key, $value);
+  DEBUG and print STDERR "++ $_[1]\n";
+  print $fh "<", $_[1];
+  if($SORT_ATTRS) {
+    foreach my $key (sort keys %{$_[2]}) {
+      unless($key =~ m/^~/s) {
+        next if $key eq 'start_line' and $_[0]{'hide_line_numbers'};
+        _xml_escape($value = $_[2]{$key});
+        print $fh $ATTR_PAD, $key, '="', $value, '"';
+      }
+    }
+  } else { # faster
+    while(($key,$value) = each %{$_[2]}) {
+      unless($key =~ m/^~/s) {
+        next if $key eq 'start_line' and $_[0]{'hide_line_numbers'};
+        _xml_escape($value);
+        print $fh $ATTR_PAD, $key, '="', $value, '"';
+      }
+    }
+  }
+  print $fh ">";
+  return;
+}
+
+sub _handle_text {
+  DEBUG and print STDERR "== \"$_[1]\"\n";
+  if(length $_[1]) {
+    my $text = $_[1];
+    _xml_escape($text);
+    print {$_[0]{'output_fh'}} $text;
+  }
+  return;
+}
+
+sub _handle_element_end {
+  DEBUG and print STDERR "-- $_[1]\n";
+  print {$_[0]{'output_fh'}} "</", $_[1], ">";
+  return;
+}
+
+# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+
+sub _xml_escape {
+  foreach my $x (@_) {
+    # Escape things very cautiously:
+    if ($] ge 5.007_003) {
+      $x =~ s/([^-\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(utf8::native_to_unicode(ord($1))).';'/eg;
+    } else { # Is broken for non-ASCII platforms on early perls
+      $x =~ s/([^-\n\t !\#\$\%\(\)\*\+,\.\~\/\:\;=\?\@\[\\\]\^_\`\{\|\}abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789])/'&#'.(ord($1)).';'/eg;
+    }
+    # Yes, stipulate the list without a range, so that this can work right on
+    #  all charsets that this module happens to run under.
+  }
+  return;
+}
+
+#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+1;
+
+__END__
+
+=head1 NAME
+
+Pod::Simple::XMLOutStream -- turn Pod into XML
+
+=head1 SYNOPSIS
+
+  perl -MPod::Simple::XMLOutStream -e \
+   "exit Pod::Simple::XMLOutStream->filter(shift)->any_errata_seen" \
+   thingy.pod
+
+=head1 DESCRIPTION
+
+Pod::Simple::XMLOutStream is a subclass of L<Pod::Simple> that parses
+Pod and turns it into XML.
+
+Pod::Simple::XMLOutStream inherits methods from
+L<Pod::Simple>.
+
+
+=head1 SEE ALSO
+
+L<Pod::Simple::DumpAsXML> is rather like this class; see its
+documentation for a discussion of the differences.
+
+L<Pod::Simple>, L<Pod::Simple::DumpAsXML>, L<Pod::SAX>
+
+L<Pod::Simple::Subclassing>
+
+The older (and possibly obsolete) libraries L<Pod::PXML>, L<Pod::XML>
+
+
+=head1 ABOUT EXTENDING POD
+
+TODO: An example or two of =extend, then point to Pod::Simple::Subclassing
+
+=head1 SEE ALSO
+
+L<Pod::Simple>, L<Pod::Simple::Text>, L<Pod::Spell>
+
+=head1 SUPPORT
+
+Questions or discussion about POD and Pod::Simple should be sent to the
+pod-people@perl.org mail list. Send an empty email to
+pod-people-subscribe@perl.org to subscribe.
+
+This module is managed in an open GitHub repository,
+L<https://github.com/perl-pod/pod-simple/>. Feel free to fork and contribute, or
+to clone L<git://github.com/perl-pod/pod-simple.git> and send patches!
+
+Patches against Pod::Simple are welcome. Please send bug reports to
+<bug-pod-simple@rt.cpan.org>.
+
+=head1 COPYRIGHT AND DISCLAIMERS
+
+Copyright (c) 2002-2004 Sean M. Burke.
+
+This library is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+This program is distributed in the hope that it will be useful, but
+without any warranty; without even the implied warranty of
+merchantability or fitness for a particular purpose.
+
+=head1 AUTHOR
+
+Pod::Simple was created by Sean M. Burke <sburke@cpan.org>.
+But don't bother him, he's retired.
+
+Pod::Simple is maintained by:
+
+=over
+
+=item * Allison Randal C<allison@perl.org>
+
+=item * Hans Dieter Pearcey C<hdp@cpan.org>
+
+=item * David E. Wheeler C<dwheeler@cpan.org>
+
+=back
+
+=cut
diff --git a/lib/5.24.1/Pod/Text.pm b/lib/5.24.1/Pod/Text.pm
new file mode 100644
index 00000000..e141da2f
--- /dev/null
+++ b/lib/5.24.1/Pod/Text.pm
@@ -0,0 +1,1007 @@
+# Pod::Text -- Convert POD data to formatted text.
+#
+# This module converts POD to formatted text.  It replaces the old Pod::Text
+# module that came with versions of Perl prior to 5.6.0 and attempts to match
+# its output except for some specific circumstances where other decisions
+# seemed to produce better output.  It uses Pod::Parser and is designed to be
+# very easy to subclass.
+#
+# Perl core hackers, please note that this module is also separately
+# maintained outside of the Perl core as part of the podlators.  Please send
+# me any patches at the address above in addition to sending them to the
+# standard Perl mailing lists.
+#
+# Copyright 1999, 2000, 2001, 2002, 2004, 2006, 2008, 2009, 2012, 2013, 2014,
+#     2015 Russ Allbery <rra@cpan.org>
+#
+# This program is free software; you may redistribute it and/or modify it
+# under the same terms as Perl itself.
+
+##############################################################################
+# Modules and declarations
+##############################################################################
+
+package Pod::Text;
+
+use 5.006;
+use strict;
+use warnings;
+
+use vars qw(@ISA @EXPORT %ESCAPES $VERSION);
+
+use Carp qw(carp croak);
+use Encode qw(encode);
+use Exporter ();
+use Pod::Simple ();
+
+@ISA = qw(Pod::Simple Exporter);
+
+# We have to export pod2text for backward compatibility.
+@EXPORT = qw(pod2text);
+
+$VERSION = '4.07';
+
+##############################################################################
+# Initialization
+##############################################################################
+
+# This function handles code blocks.  It's registered as a callback to
+# Pod::Simple and therefore doesn't work as a regular method call, but all it
+# does is call output_code with the line.
+sub handle_code {
+    my ($line, $number, $parser) = @_;
+    $parser->output_code ($line . "\n");
+}
+
+# Initialize the object and set various Pod::Simple options that we need.
+# Here, we also process any additional options passed to the constructor or
+# set up defaults if none were given.  Note that all internal object keys are
+# in all-caps, reserving all lower-case object keys for Pod::Simple and user
+# arguments.
+sub new {
+    my $class = shift;
+    my $self = $class->SUPER::new;
+
+    # Tell Pod::Simple to handle S<> by automatically inserting &nbsp;.
+    $self->nbsp_for_S (1);
+
+    # Tell Pod::Simple to keep whitespace whenever possible.
+    if ($self->can ('preserve_whitespace')) {
+        $self->preserve_whitespace (1);
+    } else {
+        $self->fullstop_space_harden (1);
+    }
+
+    # The =for and =begin targets that we accept.
+    $self->accept_targets (qw/text TEXT/);
+
+    # Ensure that contiguous blocks of code are merged together.  Otherwise,
+    # some of the guesswork heuristics don't work right.
+    $self->merge_text (1);
+
+    # Pod::Simple doesn't do anything useful with our arguments, but we want
+    # to put them in our object as hash keys and values.  This could cause
+    # problems if we ever clash with Pod::Simple's own internal class
+    # variables.
+    my %opts = @_;
+    my @opts = map { ("opt_$_", $opts{$_}) } keys %opts;
+    %$self = (%$self, @opts);
+
+    # Send errors to stderr if requested.
+    if ($$self{opt_stderr} and not $$self{opt_errors}) {
+        $$self{opt_errors} = 'stderr';
+    }
+    delete $$self{opt_stderr};
+
+    # Validate the errors parameter and act on it.
+    if (not defined $$self{opt_errors}) {
+        $$self{opt_errors} = 'pod';
+    }
+    if ($$self{opt_errors} eq 'stderr' || $$self{opt_errors} eq 'die') {
+        $self->no_errata_section (1);
+        $self->complain_stderr (1);
+        if ($$self{opt_errors} eq 'die') {
+            $$self{complain_die} = 1;
+        }
+    } elsif ($$self{opt_errors} eq 'pod') {
+        $self->no_errata_section (0);
+        $self->complain_stderr (0);
+    } elsif ($$self{opt_errors} eq 'none') {
+        $self->no_whining (1);
+    } else {
+        croak (qq(Invalid errors setting: "$$self{errors}"));
+    }
+    delete $$self{errors};
+
+    # Initialize various things from our parameters.
+    $$self{opt_alt}      = 0  unless defined $$self{opt_alt};
+    $$self{opt_indent}   = 4  unless defined $$self{opt_indent};
+    $$self{opt_margin}   = 0  unless defined $$self{opt_margin};
+    $$self{opt_loose}    = 0  unless defined $$self{opt_loose};
+    $$self{opt_sentence} = 0  unless defined $$self{opt_sentence};
+    $$self{opt_width}    = 76 unless defined $$self{opt_width};
+
+    # Figure out what quotes we'll be using for C<> text.
+    $$self{opt_quotes} ||= '"';
+    if ($$self{opt_quotes} eq 'none') {
+        $$self{LQUOTE} = $$self{RQUOTE} = '';
+    } elsif (length ($$self{opt_quotes}) == 1) {
+        $$self{LQUOTE} = $$self{RQUOTE} = $$self{opt_quotes};
+    } elsif (length ($$self{opt_quotes}) % 2 == 0) {
+        my $length = length ($$self{opt_quotes}) / 2;
+        $$self{LQUOTE} = substr ($$self{opt_quotes}, 0, $length);
+        $$self{RQUOTE} = substr ($$self{opt_quotes}, $length);
+    } else {
+        croak qq(Invalid quote specification "$$self{opt_quotes}");
+    }
+
+    # If requested, do something with the non-POD text.
+    $self->code_handler (\&handle_code) if $$self{opt_code};
+
+    # Return the created object.
+    return $self;
+}
+
+##############################################################################
+# Core parsing
+##############################################################################
+
+# This is the glue that connects the code below with Pod::Simple itself.  The
+# goal is to convert the event stream coming from the POD parser into method
+# calls to handlers once the complete content of a tag has been seen.  Each
+# paragraph or POD command will have textual content associated with it, and
+# as soon as all of a paragraph or POD command has been seen, that content
+# will be passed in to the corresponding method for handling that type of
+# object.  The exceptions are handlers for lists, which have opening tag
+# handlers and closing tag handlers that will be called right away.
+#
+# The internal hash key PENDING is used to store the contents of a tag until
+# all of it has been seen.  It holds a stack of open tags, each one
+# represented by a tuple of the attributes hash for the tag and the contents
+# of the tag.
+
+# Add a block of text to the contents of the current node, formatting it
+# according to the current formatting instructions as we do.
+sub _handle_text {
+    my ($self, $text) = @_;
+    my $tag = $$self{PENDING}[-1];
+    $$tag[1] .= $text;
+}
+
+# Given an element name, get the corresponding method name.
+sub method_for_element {
+    my ($self, $element) = @_;
+    $element =~ tr/-/_/;
+    $element =~ tr/A-Z/a-z/;
+    $element =~ tr/_a-z0-9//cd;
+    return $element;
+}
+
+# Handle the start of a new element.  If cmd_element is defined, assume that
+# we need to collect the entire tree for this element before passing it to the
+# element method, and create a new tree into which we'll collect blocks of
+# text and nested elements.  Otherwise, if start_element is defined, call it.
+sub _handle_element_start {
+    my ($self, $element, $attrs) = @_;
+    my $method = $self->method_for_element ($element);
+
+    # If we have a command handler, we need to accumulate the contents of the
+    # tag before calling it.
+    if ($self->can ("cmd_$method")) {
+        push (@{ $$self{PENDING} }, [ $attrs, '' ]);
+    } elsif ($self->can ("start_$method")) {
+        my $method = 'start_' . $method;
+        $self->$method ($attrs, '');
+    }
+}
+
+# Handle the end of an element.  If we had a cmd_ method for this element,
+# this is where we pass along the text that we've accumulated.  Otherwise, if
+# we have an end_ method for the element, call that.
+sub _handle_element_end {
+    my ($self, $element) = @_;
+    my $method = $self->method_for_element ($element);
+
+    # If we have a command handler, pull off the pending text and pass it to
+    # the handler along with the saved attribute hash.
+    if ($self->can ("cmd_$method")) {
+        my $tag = pop @{ $$self{PENDING} };
+        my $method = 'cmd_' . $method;
+        my $text = $self->$method (@$tag);
+        if (defined $text) {
+            if (@{ $$self{PENDING} } > 1) {
+                $$self{PENDING}[-1][1] .= $text;
+            } else {
+                $self->output ($text);
+            }
+        }
+    } elsif ($self->can ("end_$method")) {
+        my $method = 'end_' . $method;
+        $self->$method ();
+    }
+}
+
+##############################################################################
+# Output formatting
+##############################################################################
+
+# Wrap a line, indenting by the current left margin.  We can't use Text::Wrap
+# because it plays games with tabs.  We can't use formline, even though we'd
+# really like to, because it screws up non-printing characters.  So we have to
+# do the wrapping ourselves.
+sub wrap {
+    my $self = shift;
+    local $_ = shift;
+    my $output = '';
+    my $spaces = ' ' x $$self{MARGIN};
+    my $width = $$self{opt_width} - $$self{MARGIN};
+    while (length > $width) {
+        if (s/^([^\n]{0,$width})\s+// || s/^([^\n]{$width})//) {
+            $output .= $spaces . $1 . "\n";
+        } else {
+            last;
+        }
+    }
+    $output .= $spaces . $_;
+    $output =~ s/\s+$/\n\n/;
+    return $output;
+}
+
+# Reformat a paragraph of text for the current margin.  Takes the text to
+# reformat and returns the formatted text.
+sub reformat {
+    my $self = shift;
+    local $_ = shift;
+
+    # If we're trying to preserve two spaces after sentences, do some munging
+    # to support that.  Otherwise, smash all repeated whitespace.
+    if ($$self{opt_sentence}) {
+        s/ +$//mg;
+        s/\.\n/. \n/g;
+        s/\n/ /g;
+        s/   +/  /g;
+    } else {
+        s/\s+/ /g;
+    }
+    return $self->wrap ($_);
+}
+
+# Output text to the output device.  Replace non-breaking spaces with spaces
+# and soft hyphens with nothing, and then try to fix the output encoding if
+# necessary to match the input encoding unless UTF-8 output is forced.  This
+# preserves the traditional pass-through behavior of Pod::Text.
+sub output {
+    my ($self, @text) = @_;
+    my $text = join ('', @text);
+    $text =~ tr/\240\255/ /d;
+    unless ($$self{opt_utf8}) {
+        my $encoding = $$self{encoding} || '';
+        if ($encoding && $encoding ne $$self{ENCODING}) {
+            $$self{ENCODING} = $encoding;
+            eval { binmode ($$self{output_fh}, ":encoding($encoding)") };
+        }
+    }
+    if ($$self{ENCODE}) {
+        print { $$self{output_fh} } encode ('UTF-8', $text);
+    } else {
+        print { $$self{output_fh} } $text;
+    }
+}
+
+# Output a block of code (something that isn't part of the POD text).  Called
+# by preprocess_paragraph only if we were given the code option.  Exists here
+# only so that it can be overridden by subclasses.
+sub output_code { $_[0]->output ($_[1]) }
+
+##############################################################################
+# Document initialization
+##############################################################################
+
+# Set up various things that have to be initialized on a per-document basis.
+sub start_document {
+    my ($self, $attrs) = @_;
+    if ($$attrs{contentless} && !$$self{ALWAYS_EMIT_SOMETHING}) {
+        $$self{CONTENTLESS} = 1;
+    } else {
+        delete $$self{CONTENTLESS};
+    }
+    my $margin = $$self{opt_indent} + $$self{opt_margin};
+
+    # Initialize a few per-document variables.
+    $$self{INDENTS} = [];       # Stack of indentations.
+    $$self{MARGIN}  = $margin;  # Default left margin.
+    $$self{PENDING} = [[]];     # Pending output.
+
+    # We have to redo encoding handling for each document.
+    $$self{ENCODING} = '';
+
+    # When UTF-8 output is set, check whether our output file handle already
+    # has a PerlIO encoding layer set.  If it does not, we'll need to encode
+    # our output before printing it (handled in the output() sub).  Wrap the
+    # check in an eval to handle versions of Perl without PerlIO.
+    $$self{ENCODE} = 0;
+    if ($$self{opt_utf8}) {
+        $$self{ENCODE} = 1;
+        eval {
+            my @options = (output => 1, details => 1);
+            my $flag = (PerlIO::get_layers ($$self{output_fh}, @options))[-1];
+            if ($flag & PerlIO::F_UTF8 ()) {
+                $$self{ENCODE} = 0;
+                $$self{ENCODING} = 'UTF-8';
+            }
+        };
+    }
+
+    return '';
+}
+
+# Handle the end of the document.  The only thing we do is handle dying on POD
+# errors, since Pod::Parser currently doesn't.
+sub end_document {
+    my ($self) = @_;
+    if ($$self{complain_die} && $self->errors_seen) {
+        croak ("POD document had syntax errors");
+    }
+}
+
+##############################################################################
+# Text blocks
+##############################################################################
+
+# Intended for subclasses to override, this method returns text with any
+# non-printing formatting codes stripped out so that length() correctly
+# returns the length of the text.  For basic Pod::Text, it does nothing.
+sub strip_format {
+    my ($self, $string) = @_;
+    return $string;
+}
+
+# This method is called whenever an =item command is complete (in other words,
+# we've seen its associated paragraph or know for certain that it doesn't have
+# one).  It gets the paragraph associated with the item as an argument.  If
+# that argument is empty, just output the item tag; if it contains a newline,
+# output the item tag followed by the newline.  Otherwise, see if there's
+# enough room for us to output the item tag in the margin of the text or if we
+# have to put it on a separate line.
+sub item {
+    my ($self, $text) = @_;
+    my $tag = $$self{ITEM};
+    unless (defined $tag) {
+        carp "Item called without tag";
+        return;
+    }
+    undef $$self{ITEM};
+
+    # Calculate the indentation and margin.  $fits is set to true if the tag
+    # will fit into the margin of the paragraph given our indentation level.
+    my $indent = $$self{INDENTS}[-1];
+    $indent = $$self{opt_indent} unless defined $indent;
+    my $margin = ' ' x $$self{opt_margin};
+    my $tag_length = length ($self->strip_format ($tag));
+    my $fits = ($$self{MARGIN} - $indent >= $tag_length + 1);
+
+    # If the tag doesn't fit, or if we have no associated text, print out the
+    # tag separately.  Otherwise, put the tag in the margin of the paragraph.
+    if (!$text || $text =~ /^\s+$/ || !$fits) {
+        my $realindent = $$self{MARGIN};
+        $$self{MARGIN} = $indent;
+        my $output = $self->reformat ($tag);
+        $output =~ s/^$margin /$margin:/ if ($$self{opt_alt} && $indent > 0);
+        $output =~ s/\n*$/\n/;
+
+        # If the text is just whitespace, we have an empty item paragraph;
+        # this can result from =over/=item/=back without any intermixed
+        # paragraphs.  Insert some whitespace to keep the =item from merging
+        # into the next paragraph.
+        $output .= "\n" if $text && $text =~ /^\s*$/;
+
+        $self->output ($output);
+        $$self{MARGIN} = $realindent;
+        $self->output ($self->reformat ($text)) if ($text && $text =~ /\S/);
+    } else {
+        my $space = ' ' x $indent;
+        $space =~ s/^$margin /$margin:/ if $$self{opt_alt};
+        $text = $self->reformat ($text);
+        $text =~ s/^$margin /$margin:/ if ($$self{opt_alt} && $indent > 0);
+        my $tagspace = ' ' x $tag_length;
+        $text =~ s/^($space)$tagspace/$1$tag/ or warn "Bizarre space in item";
+        $self->output ($text);
+    }
+}
+
+# Handle a basic block of text.  The only tricky thing here is that if there
+# is a pending item tag, we need to format this as an item paragraph.
+sub cmd_para {
+    my ($self, $attrs, $text) = @_;
+    $text =~ s/\s+$/\n/;
+    if (defined $$self{ITEM}) {
+        $self->item ($text . "\n");
+    } else {
+        $self->output ($self->reformat ($text . "\n"));
+    }
+    return '';
+}
+
+# Handle a verbatim paragraph.  Just print it out, but indent it according to
+# our margin.
+sub cmd_verbatim {
+    my ($self, $attrs, $text) = @_;
+    $self->item if defined $$self{ITEM};
+    return if $text =~ /^\s*$/;
+    $text =~ s/^(\n*)([ \t]*\S+)/$1 . (' ' x $$self{MARGIN}) . $2/gme;
+    $text =~ s/\s*$/\n\n/;
+    $self->output ($text);
+    return '';
+}
+
+# Handle literal text (produced by =for and similar constructs).  Just output
+# it with the minimum of changes.
+sub cmd_data {
+    my ($self, $attrs, $text) = @_;
+    $text =~ s/^\n+//;
+    $text =~ s/\n{0,2}$/\n/;
+    $self->output ($text);
+    return '';
+}
+
+##############################################################################
+# Headings
+##############################################################################
+
+# The common code for handling all headers.  Takes the header text, the
+# indentation, and the surrounding marker for the alt formatting method.
+sub heading {
+    my ($self, $text, $indent, $marker) = @_;
+    $self->item ("\n\n") if defined $$self{ITEM};
+    $text =~ s/\s+$//;
+    if ($$self{opt_alt}) {
+        my $closemark = reverse (split (//, $marker));
+        my $margin = ' ' x $$self{opt_margin};
+        $self->output ("\n" . "$margin$marker $text $closemark" . "\n\n");
+    } else {
+        $text .= "\n" if $$self{opt_loose};
+        my $margin = ' ' x ($$self{opt_margin} + $indent);
+        $self->output ($margin . $text . "\n");
+    }
+    return '';
+}
+
+# First level heading.
+sub cmd_head1 {
+    my ($self, $attrs, $text) = @_;
+    $self->heading ($text, 0, '====');
+}
+
+# Second level heading.
+sub cmd_head2 {
+    my ($self, $attrs, $text) = @_;
+    $self->heading ($text, $$self{opt_indent} / 2, '==  ');
+}
+
+# Third level heading.
+sub cmd_head3 {
+    my ($self, $attrs, $text) = @_;
+    $self->heading ($text, $$self{opt_indent} * 2 / 3 + 0.5, '=   ');
+}
+
+# Fourth level heading.
+sub cmd_head4 {
+    my ($self, $attrs, $text) = @_;
+    $self->heading ($text, $$self{opt_indent} * 3 / 4 + 0.5, '-   ');
+}
+
+##############################################################################
+# List handling
+##############################################################################
+
+# Handle the beginning of an =over block.  Takes the type of the block as the
+# first argument, and then the attr hash.  This is called by the handlers for
+# the four different types of lists (bullet, number, text, and block).
+sub over_common_start {
+    my ($self, $attrs) = @_;
+    $self->item ("\n\n") if defined $$self{ITEM};
+
+    # Find the indentation level.
+    my $indent = $$attrs{indent};
+    unless (defined ($indent) && $indent =~ /^\s*[-+]?\d{1,4}\s*$/) {
+        $indent = $$self{opt_indent};
+    }
+
+    # Add this to our stack of indents and increase our current margin.
+    push (@{ $$self{INDENTS} }, $$self{MARGIN});
+    $$self{MARGIN} += ($indent + 0);
+    return '';
+}
+
+# End an =over block.  Takes no options other than the class pointer.  Output
+# any pending items and then pop one level of indentation.
+sub over_common_end {
+    my ($self) = @_;
+    $self->item ("\n\n") if defined $$self{ITEM};
+    $$self{MARGIN} = pop @{ $$self{INDENTS} };
+    return '';
+}
+
+# Dispatch the start and end calls as appropriate.
+sub start_over_bullet { $_[0]->over_common_start ($_[1]) }
+sub start_over_number { $_[0]->over_common_start ($_[1]) }
+sub start_over_text   { $_[0]->over_common_start ($_[1]) }
+sub start_over_block  { $_[0]->over_common_start ($_[1]) }
+sub end_over_bullet { $_[0]->over_common_end }
+sub end_over_number { $_[0]->over_common_end }
+sub end_over_text   { $_[0]->over_common_end }
+sub end_over_block  { $_[0]->over_common_end }
+
+# The common handler for all item commands.  Takes the type of the item, the
+# attributes, and then the text of the item.
+sub item_common {
+    my ($self, $type, $attrs, $text) = @_;
+    $self->item if defined $$self{ITEM};
+
+    # Clean up the text.  We want to end up with two variables, one ($text)
+    # which contains any body text after taking out the item portion, and
+    # another ($item) which contains the actual item text.  Note the use of
+    # the internal Pod::Simple attribute here; that's a potential land mine.
+    $text =~ s/\s+$//;
+    my ($item, $index);
+    if ($type eq 'bullet') {
+        $item = '*';
+    } elsif ($type eq 'number') {
+        $item = $$attrs{'~orig_content'};
+    } else {
+        $item = $text;
+        $item =~ s/\s*\n\s*/ /g;
+        $text = '';
+    }
+    $$self{ITEM} = $item;
+
+    # If body text for this item was included, go ahead and output that now.
+    if ($text) {
+        $text =~ s/\s*$/\n/;
+        $self->item ($text);
+    }
+    return '';
+}
+
+# Dispatch the item commands to the appropriate place.
+sub cmd_item_bullet { my $self = shift; $self->item_common ('bullet', @_) }
+sub cmd_item_number { my $self = shift; $self->item_common ('number', @_) }
+sub cmd_item_text   { my $self = shift; $self->item_common ('text',   @_) }
+sub cmd_item_block  { my $self = shift; $self->item_common ('block',  @_) }
+
+##############################################################################
+# Formatting codes
+##############################################################################
+
+# The simple ones.
+sub cmd_b { return $_[0]{alt} ? "``$_[2]''" : $_[2] }
+sub cmd_f { return $_[0]{alt} ? "\"$_[2]\"" : $_[2] }
+sub cmd_i { return '*' . $_[2] . '*' }
+sub cmd_x { return '' }
+
+# Apply a whole bunch of messy heuristics to not quote things that don't
+# benefit from being quoted.  These originally come from Barrie Slaymaker and
+# largely duplicate code in Pod::Man.
+sub cmd_c {
+    my ($self, $attrs, $text) = @_;
+
+    # A regex that matches the portion of a variable reference that's the
+    # array or hash index, separated out just because we want to use it in
+    # several places in the following regex.
+    my $index = '(?: \[.*\] | \{.*\} )?';
+
+    # Check for things that we don't want to quote, and if we find any of
+    # them, return the string with just a font change and no quoting.
+    $text =~ m{
+      ^\s*
+      (?:
+         ( [\'\`\"] ) .* \1                             # already quoted
+       | \` .* \'                                       # `quoted'
+       | \$+ [\#^]? \S $index                           # special ($^Foo, $")
+       | [\$\@%&*]+ \#? [:\'\w]+ $index                 # plain var or func
+       | [\$\@%&*]* [:\'\w]+ (?: -> )? \(\s*[^\s,]\s*\) # 0/1-arg func call
+       | [+-]? ( \d[\d.]* | \.\d+ ) (?: [eE][+-]?\d+ )? # a number
+       | 0x [a-fA-F\d]+                                 # a hex constant
+      )
+      \s*\z
+     }xo && return $text;
+
+    # If we didn't return, go ahead and quote the text.
+    return $$self{opt_alt}
+        ? "``$text''"
+        : "$$self{LQUOTE}$text$$self{RQUOTE}";
+}
+
+# Links reduce to the text that we're given, wrapped in angle brackets if it's
+# a URL.
+sub cmd_l {
+    my ($self, $attrs, $text) = @_;
+    if ($$attrs{type} eq 'url') {
+        if (not defined($$attrs{to}) or $$attrs{to} eq $text) {
+            return "<$text>";
+        } elsif ($$self{opt_nourls}) {
+            return $text;
+        } else {
+            return "$text <$$attrs{to}>";
+        }
+    } else {
+        return $text;
+    }
+}
+
+##############################################################################
+# Backwards compatibility
+##############################################################################
+
+# The old Pod::Text module did everything in a pod2text() function.  This
+# tries to provide the same interface for legacy applications.
+sub pod2text {
+    my @args;
+
+    # This is really ugly; I hate doing option parsing in the middle of a
+    # module.  But the old Pod::Text module supported passing flags to its
+    # entry function, so handle -a and -<number>.
+    while ($_[0] =~ /^-/) {
+        my $flag = shift;
+        if    ($flag eq '-a')       { push (@args, alt => 1)    }
+        elsif ($flag =~ /^-(\d+)$/) { push (@args, width => $1) }
+        else {
+            unshift (@_, $flag);
+            last;
+        }
+    }
+
+    # Now that we know what arguments we're using, create the parser.
+    my $parser = Pod::Text->new (@args);
+
+    # If two arguments were given, the second argument is going to be a file
+    # handle.  That means we want to call parse_from_filehandle(), which means
+    # we need to turn the first argument into a file handle.  Magic open will
+    # handle the <&STDIN case automagically.
+    if (defined $_[1]) {
+        my @fhs = @_;
+        local *IN;
+        unless (open (IN, $fhs[0])) {
+            croak ("Can't open $fhs[0] for reading: $!\n");
+            return;
+        }
+        $fhs[0] = \*IN;
+        $parser->output_fh ($fhs[1]);
+        my $retval = $parser->parse_file ($fhs[0]);
+        my $fh = $parser->output_fh ();
+        close $fh;
+        return $retval;
+    } else {
+        $parser->output_fh (\*STDOUT);
+        return $parser->parse_file (@_);
+    }
+}
+
+# Reset the underlying Pod::Simple object between calls to parse_from_file so
+# that the same object can be reused to convert multiple pages.
+sub parse_from_file {
+    my $self = shift;
+    $self->reinit;
+
+    # Fake the old cutting option to Pod::Parser.  This fiddings with internal
+    # Pod::Simple state and is quite ugly; we need a better approach.
+    if (ref ($_[0]) eq 'HASH') {
+        my $opts = shift @_;
+        if (defined ($$opts{-cutting}) && !$$opts{-cutting}) {
+            $$self{in_pod} = 1;
+            $$self{last_was_blank} = 1;
+        }
+    }
+
+    # Do the work.
+    my $retval = $self->Pod::Simple::parse_from_file (@_);
+
+    # Flush output, since Pod::Simple doesn't do this.  Ideally we should also
+    # close the file descriptor if we had to open one, but we can't easily
+    # figure this out.
+    my $fh = $self->output_fh ();
+    my $oldfh = select $fh;
+    my $oldflush = $|;
+    $| = 1;
+    print $fh '';
+    $| = $oldflush;
+    select $oldfh;
+    return $retval;
+}
+
+# Pod::Simple failed to provide this backward compatibility function, so
+# implement it ourselves.  File handles are one of the inputs that
+# parse_from_file supports.
+sub parse_from_filehandle {
+    my $self = shift;
+    $self->parse_from_file (@_);
+}
+
+# Pod::Simple's parse_file doesn't set output_fh.  Wrap the call and do so
+# ourself unless it was already set by the caller, since our documentation has
+# always said that this should work.
+sub parse_file {
+    my ($self, $in) = @_;
+    unless (defined $$self{output_fh}) {
+        $self->output_fh (\*STDOUT);
+    }
+    return $self->SUPER::parse_file ($in);
+}
+
+# Do the same for parse_lines, just to be polite.  Pod::Simple's man page
+# implies that the caller is responsible for setting this, but I don't see any
+# reason not to set a default.
+sub parse_lines {
+    my ($self, @lines) = @_;
+    unless (defined $$self{output_fh}) {
+        $self->output_fh (\*STDOUT);
+    }
+    return $self->SUPER::parse_lines (@lines);
+}
+
+# Likewise for parse_string_document.
+sub parse_string_document {
+    my ($self, $doc) = @_;
+    unless (defined $$self{output_fh}) {
+        $self->output_fh (\*STDOUT);
+    }
+    return $self->SUPER::parse_string_document ($doc);
+}
+
+##############################################################################
+# Module return value and documentation
+##############################################################################
+
+1;
+__END__
+
+=for stopwords
+alt stderr Allbery Sean Burke's Christiansen UTF-8 pre-Unicode utf8 nourls
+parsers
+
+=head1 NAME
+
+Pod::Text - Convert POD data to formatted text
+
+=head1 SYNOPSIS
+
+    use Pod::Text;
+    my $parser = Pod::Text->new (sentence => 0, width => 78);
+
+    # Read POD from STDIN and write to STDOUT.
+    $parser->parse_from_filehandle;
+
+    # Read POD from file.pod and write to file.txt.
+    $parser->parse_from_file ('file.pod', 'file.txt');
+
+=head1 DESCRIPTION
+
+Pod::Text is a module that can convert documentation in the POD format
+(the preferred language for documenting Perl) into formatted text.  It
+uses no special formatting controls or codes whatsoever, and its output is
+therefore suitable for nearly any device.
+
+As a derived class from Pod::Simple, Pod::Text supports the same methods and
+interfaces.  See L<Pod::Simple> for all the details; briefly, one creates a
+new parser with C<< Pod::Text->new() >> and then normally calls parse_file().
+
+new() can take options, in the form of key/value pairs, that control the
+behavior of the parser.  The currently recognized options are:
+
+=over 4
+
+=item alt
+
+If set to a true value, selects an alternate output format that, among other
+things, uses a different heading style and marks C<=item> entries with a
+colon in the left margin.  Defaults to false.
+
+=item code
+
+If set to a true value, the non-POD parts of the input file will be included
+in the output.  Useful for viewing code documented with POD blocks with the
+POD rendered and the code left intact.
+
+=item errors
+
+How to report errors.  C<die> says to throw an exception on any POD
+formatting error.  C<stderr> says to report errors on standard error, but
+not to throw an exception.  C<pod> says to include a POD ERRORS section
+in the resulting documentation summarizing the errors.  C<none> ignores
+POD errors entirely, as much as possible.
+
+The default is C<pod>.
+
+=item indent
+
+The number of spaces to indent regular text, and the default indentation for
+C<=over> blocks.  Defaults to 4.
+
+=item loose
+
+If set to a true value, a blank line is printed after a C<=head1> heading.
+If set to false (the default), no blank line is printed after C<=head1>,
+although one is still printed after C<=head2>.  This is the default because
+it's the expected formatting for manual pages; if you're formatting
+arbitrary text documents, setting this to true may result in more pleasing
+output.
+
+=item margin
+
+The width of the left margin in spaces.  Defaults to 0.  This is the margin
+for all text, including headings, not the amount by which regular text is
+indented; for the latter, see the I<indent> option.  To set the right
+margin, see the I<width> option.
+
+=item nourls
+
+Normally, LZ<><> formatting codes with a URL but anchor text are formatted
+to show both the anchor text and the URL.  In other words:
+
+    L<foo|http://example.com/>
+
+is formatted as:
+
+    foo <http://example.com/>
+
+This option, if set to a true value, suppresses the URL when anchor text
+is given, so this example would be formatted as just C<foo>.  This can
+produce less cluttered output in cases where the URLs are not particularly
+important.
+
+=item quotes
+
+Sets the quote marks used to surround CE<lt>> text.  If the value is a
+single character, it is used as both the left and right quote.  Otherwise,
+it is split in half, and the first half of the string is used as the left
+quote and the second is used as the right quote.
+
+This may also be set to the special value C<none>, in which case no quote
+marks are added around CE<lt>> text.
+
+=item sentence
+
+If set to a true value, Pod::Text will assume that each sentence ends in two
+spaces, and will try to preserve that spacing.  If set to false, all
+consecutive whitespace in non-verbatim paragraphs is compressed into a
+single space.  Defaults to true.
+
+=item stderr
+
+Send error messages about invalid POD to standard error instead of
+appending a POD ERRORS section to the generated output.  This is
+equivalent to setting C<errors> to C<stderr> if C<errors> is not already
+set.  It is supported for backward compatibility.
+
+=item utf8
+
+By default, Pod::Text uses the same output encoding as the input encoding
+of the POD source (provided that Perl was built with PerlIO; otherwise, it
+doesn't encode its output).  If this option is given, the output encoding
+is forced to UTF-8.
+
+Be aware that, when using this option, the input encoding of your POD
+source should be properly declared unless it's US-ASCII.  Pod::Simple will
+attempt to guess the encoding and may be successful if it's Latin-1 or
+UTF-8, but it will produce warnings.  Use the C<=encoding> command to
+declare the encoding.  See L<perlpod(1)> for more information.
+
+=item width
+
+The column at which to wrap text on the right-hand side.  Defaults to 76.
+
+=back
+
+The standard Pod::Simple method parse_file() takes one argument naming the
+POD file to read from.  By default, the output is sent to C<STDOUT>, but
+this can be changed with the output_fh() method.
+
+The standard Pod::Simple method parse_from_file() takes up to two
+arguments, the first being the input file to read POD from and the second
+being the file to write the formatted output to.
+
+You can also call parse_lines() to parse an array of lines or
+parse_string_document() to parse a document already in memory.  As with
+parse_file(), parse_lines() and parse_string_document() default to sending
+their output to C<STDOUT> unless changed with the output_fh() method.
+
+To put the output from any parse method into a string instead of a file
+handle, call the output_string() method instead of output_fh().
+
+See L<Pod::Simple> for more specific details on the methods available to
+all derived parsers.
+
+=head1 DIAGNOSTICS
+
+=over 4
+
+=item Bizarre space in item
+
+=item Item called without tag
+
+(W) Something has gone wrong in internal C<=item> processing.  These
+messages indicate a bug in Pod::Text; you should never see them.
+
+=item Can't open %s for reading: %s
+
+(F) Pod::Text was invoked via the compatibility mode pod2text() interface
+and the input file it was given could not be opened.
+
+=item Invalid errors setting "%s"
+
+(F) The C<errors> parameter to the constructor was set to an unknown value.
+
+=item Invalid quote specification "%s"
+
+(F) The quote specification given (the C<quotes> option to the
+constructor) was invalid.  A quote specification must be either one
+character long or an even number (greater than one) characters long.
+
+=item POD document had syntax errors
+
+(F) The POD document being formatted had syntax errors and the C<errors>
+option was set to C<die>.
+
+=back
+
+=head1 BUGS
+
+Encoding handling assumes that PerlIO is available and does not work
+properly if it isn't.  The C<utf8> option is therefore not supported
+unless Perl is built with PerlIO support.
+
+=head1 CAVEATS
+
+If Pod::Text is given the C<utf8> option, the encoding of its output file
+handle will be forced to UTF-8 if possible, overriding any existing
+encoding.  This will be done even if the file handle is not created by
+Pod::Text and was passed in from outside.  This maintains consistency
+regardless of PERL_UNICODE and other settings.
+
+If the C<utf8> option is not given, the encoding of its output file handle
+will be forced to the detected encoding of the input POD, which preserves
+whatever the input text is.  This ensures backward compatibility with
+earlier, pre-Unicode versions of this module, without large numbers of
+Perl warnings.
+
+This is not ideal, but it seems to be the best compromise.  If it doesn't
+work for you, please let me know the details of how it broke.
+
+=head1 NOTES
+
+This is a replacement for an earlier Pod::Text module written by Tom
+Christiansen.  It has a revamped interface, since it now uses Pod::Simple,
+but an interface roughly compatible with the old Pod::Text::pod2text()
+function is still available.  Please change to the new calling convention,
+though.
+
+The original Pod::Text contained code to do formatting via termcap
+sequences, although it wasn't turned on by default and it was problematic to
+get it to work at all.  This rewrite doesn't even try to do that, but a
+subclass of it does.  Look for L<Pod::Text::Termcap>.
+
+=head1 SEE ALSO
+
+L<Pod::Simple>, L<Pod::Text::Termcap>, L<perlpod(1)>, L<pod2text(1)>
+
+The current version of this module is always available from its web site at
+L<http://www.eyrie.org/~eagle/software/podlators/>.  It is also part of the
+Perl core distribution as of 5.6.0.
+
+=head1 AUTHOR
+
+Russ Allbery <rra@cpan.org>, based I<very> heavily on the original
+Pod::Text by Tom Christiansen <tchrist@mox.perl.com> and its conversion to
+Pod::Parser by Brad Appleton <bradapp@enteract.com>.  Sean Burke's initial
+conversion of Pod::Man to use Pod::Simple provided much-needed guidance on
+how to use Pod::Simple.
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright 1999, 2000, 2001, 2002, 2004, 2006, 2008, 2009, 2012, 2013, 2014,
+2015 Russ Allbery <rra@cpan.org>
+
+This program is free software; you may redistribute it and/or modify it
+under the same terms as Perl itself.
+
+=cut
diff --git a/lib/5.24.1/Pod/Text/Color.pm b/lib/5.24.1/Pod/Text/Color.pm
new file mode 100644
index 00000000..b67742e3
--- /dev/null
+++ b/lib/5.24.1/Pod/Text/Color.pm
@@ -0,0 +1,157 @@
+# Pod::Text::Color -- Convert POD data to formatted color ASCII text
+#
+# This is just a basic proof of concept.  It should later be modified to make
+# better use of color, take options changing what colors are used for what
+# text, and the like.
+#
+# Copyright 1999, 2001, 2004, 2006, 2008, 2009, 2014
+#     Russ Allbery <rra@cpan.org>
+#
+# This program is free software; you may redistribute it and/or modify it
+# under the same terms as Perl itself.
+
+##############################################################################
+# Modules and declarations
+##############################################################################
+
+package Pod::Text::Color;
+
+use 5.006;
+use strict;
+use warnings;
+
+use Pod::Text ();
+use Term::ANSIColor qw(colored);
+
+use vars qw(@ISA $VERSION);
+
+@ISA = qw(Pod::Text);
+
+$VERSION = '4.07';
+
+##############################################################################
+# Overrides
+##############################################################################
+
+# Make level one headings bold.
+sub cmd_head1 {
+    my ($self, $attrs, $text) = @_;
+    $text =~ s/\s+$//;
+    $self->SUPER::cmd_head1 ($attrs, colored ($text, 'bold'));
+}
+
+# Make level two headings bold.
+sub cmd_head2 {
+    my ($self, $attrs, $text) = @_;
+    $text =~ s/\s+$//;
+    $self->SUPER::cmd_head2 ($attrs, colored ($text, 'bold'));
+}
+
+# Fix the various formatting codes.
+sub cmd_b { return colored ($_[2], 'bold')   }
+sub cmd_f { return colored ($_[2], 'cyan')   }
+sub cmd_i { return colored ($_[2], 'yellow') }
+
+# Output any included code in green.
+sub output_code {
+    my ($self, $code) = @_;
+    $code = colored ($code, 'green');
+    $self->output ($code);
+}
+
+# Strip all of the formatting from a provided string, returning the stripped
+# version.  We will eventually want to use colorstrip() from Term::ANSIColor,
+# but it's fairly new so avoid the tight dependency.
+sub strip_format {
+    my ($self, $text) = @_;
+    $text =~ s/\e\[[\d;]*m//g;
+    return $text;
+}
+
+# We unfortunately have to override the wrapping code here, since the normal
+# wrapping code gets really confused by all the escape sequences.
+sub wrap {
+    my $self = shift;
+    local $_ = shift;
+    my $output = '';
+    my $spaces = ' ' x $$self{MARGIN};
+    my $width = $$self{opt_width} - $$self{MARGIN};
+
+    # We have to do $shortchar and $longchar in variables because the
+    # construct ${char}{0,$width} didn't do the right thing until Perl 5.8.x.
+    my $char = '(?:(?:\e\[[\d;]+m)*[^\n])';
+    my $shortchar = $char . "{0,$width}";
+    my $longchar = $char . "{$width}";
+    while (length > $width) {
+        if (s/^($shortchar)\s+// || s/^($longchar)//) {
+            $output .= $spaces . $1 . "\n";
+        } else {
+            last;
+        }
+    }
+    $output .= $spaces . $_;
+    $output =~ s/\s+$/\n\n/;
+    $output;
+}
+
+##############################################################################
+# Module return value and documentation
+##############################################################################
+
+1;
+__END__
+
+=head1 NAME
+
+Pod::Text::Color - Convert POD data to formatted color ASCII text
+
+=for stopwords
+Allbery
+
+=head1 SYNOPSIS
+
+    use Pod::Text::Color;
+    my $parser = Pod::Text::Color->new (sentence => 0, width => 78);
+
+    # Read POD from STDIN and write to STDOUT.
+    $parser->parse_from_filehandle;
+
+    # Read POD from file.pod and write to file.txt.
+    $parser->parse_from_file ('file.pod', 'file.txt');
+
+=head1 DESCRIPTION
+
+Pod::Text::Color is a simple subclass of Pod::Text that highlights output
+text using ANSI color escape sequences.  Apart from the color, it in all
+ways functions like Pod::Text.  See L<Pod::Text> for details and available
+options.
+
+Term::ANSIColor is used to get colors and therefore must be installed to use
+this module.
+
+=head1 BUGS
+
+This is just a basic proof of concept.  It should be seriously expanded to
+support configurable coloration via options passed to the constructor, and
+B<pod2text> should be taught about those.
+
+=head1 SEE ALSO
+
+L<Pod::Text>, L<Pod::Simple>
+
+The current version of this module is always available from its web site at
+L<http://www.eyrie.org/~eagle/software/podlators/>.  It is also part of the
+Perl core distribution as of 5.6.0.
+
+=head1 AUTHOR
+
+Russ Allbery <rra@cpan.org>.
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright 1999, 2001, 2004, 2006, 2008, 2009 Russ Allbery <rra@cpan.org>.
+
+This program is free software; you may redistribute it and/or modify it
+under the same terms as Perl itself.
+
+=cut
diff --git a/lib/5.24.1/Pod/Text/Overstrike.pm b/lib/5.24.1/Pod/Text/Overstrike.pm
new file mode 100644
index 00000000..1592026e
--- /dev/null
+++ b/lib/5.24.1/Pod/Text/Overstrike.pm
@@ -0,0 +1,209 @@
+# Pod::Text::Overstrike -- Convert POD data to formatted overstrike text
+#
+# This was written because the output from:
+#
+#     pod2text Text.pm > plain.txt; less plain.txt
+#
+# is not as rich as the output from
+#
+#     pod2man Text.pm | nroff -man > fancy.txt; less fancy.txt
+#
+# and because both Pod::Text::Color and Pod::Text::Termcap are not device
+# independent.
+#
+# Created by Joe Smith <Joe.Smith@inwap.com> 30-Nov-2000
+#   (based on Pod::Text::Color by Russ Allbery <rra@cpan.org>)
+# Copyright 2000 Joe Smith <Joe.Smith@inwap.com>.
+# Copyright 2001, 2004, 2008, 2014 Russ Allbery <rra@cpan.org>.
+#
+# This program is free software; you may redistribute it and/or modify it
+# under the same terms as Perl itself.
+
+##############################################################################
+# Modules and declarations
+##############################################################################
+
+package Pod::Text::Overstrike;
+
+use 5.006;
+use strict;
+use warnings;
+
+use vars qw(@ISA $VERSION);
+
+use Pod::Text ();
+
+@ISA = qw(Pod::Text);
+
+$VERSION = '4.07';
+
+##############################################################################
+# Overrides
+##############################################################################
+
+# Make level one headings bold, overridding any existing formatting.
+sub cmd_head1 {
+    my ($self, $attrs, $text) = @_;
+    $text =~ s/\s+$//;
+    $text = $self->strip_format ($text);
+    $text =~ s/(.)/$1\b$1/g;
+    return $self->SUPER::cmd_head1 ($attrs, $text);
+}
+
+# Make level two headings bold, overriding any existing formatting.
+sub cmd_head2 {
+    my ($self, $attrs, $text) = @_;
+    $text =~ s/\s+$//;
+    $text = $self->strip_format ($text);
+    $text =~ s/(.)/$1\b$1/g;
+    return $self->SUPER::cmd_head2 ($attrs, $text);
+}
+
+# Make level three headings underscored, overriding any existing formatting.
+sub cmd_head3 {
+    my ($self, $attrs, $text) = @_;
+    $text =~ s/\s+$//;
+    $text = $self->strip_format ($text);
+    $text =~ s/(.)/_\b$1/g;
+    return $self->SUPER::cmd_head3 ($attrs, $text);
+}
+
+# Level four headings look like level three headings.
+sub cmd_head4 {
+    my ($self, $attrs, $text) = @_;
+    $text =~ s/\s+$//;
+    $text = $self->strip_format ($text);
+    $text =~ s/(.)/_\b$1/g;
+    return $self->SUPER::cmd_head4 ($attrs, $text);
+}
+
+# The common code for handling all headers.  We have to override to avoid
+# interpolating twice and because we don't want to honor alt.
+sub heading {
+    my ($self, $text, $indent, $marker) = @_;
+    $self->item ("\n\n") if defined $$self{ITEM};
+    $text .= "\n" if $$self{opt_loose};
+    my $margin = ' ' x ($$self{opt_margin} + $indent);
+    $self->output ($margin . $text . "\n");
+    return '';
+}
+
+# Fix the various formatting codes.
+sub cmd_b { local $_ = $_[0]->strip_format ($_[2]); s/(.)/$1\b$1/g; $_ }
+sub cmd_f { local $_ = $_[0]->strip_format ($_[2]); s/(.)/_\b$1/g; $_ }
+sub cmd_i { local $_ = $_[0]->strip_format ($_[2]); s/(.)/_\b$1/g; $_ }
+
+# Output any included code in bold.
+sub output_code {
+    my ($self, $code) = @_;
+    $code =~ s/(.)/$1\b$1/g;
+    $self->output ($code);
+}
+
+# Strip all of the formatting from a provided string, returning the stripped
+# version.
+sub strip_format {
+    my ($self, $text) = @_;
+    $text =~ s/(.)[\b]\1/$1/g;
+    $text =~ s/_[\b]//g;
+    return $text;
+}
+
+# We unfortunately have to override the wrapping code here, since the normal
+# wrapping code gets really confused by all the backspaces.
+sub wrap {
+    my $self = shift;
+    local $_ = shift;
+    my $output = '';
+    my $spaces = ' ' x $$self{MARGIN};
+    my $width = $$self{opt_width} - $$self{MARGIN};
+    while (length > $width) {
+        # This regex represents a single character, that's possibly underlined
+        # or in bold (in which case, it's three characters; the character, a
+        # backspace, and a character).  Use [^\n] rather than . to protect
+        # against odd settings of $*.
+        my $char = '(?:[^\n][\b])?[^\n]';
+        if (s/^((?>$char){0,$width})(?:\Z|\s+)//) {
+            $output .= $spaces . $1 . "\n";
+        } else {
+            last;
+        }
+    }
+    $output .= $spaces . $_;
+    $output =~ s/\s+$/\n\n/;
+    return $output;
+}
+
+##############################################################################
+# Module return value and documentation
+##############################################################################
+
+1;
+__END__
+
+=head1 NAME
+
+=for stopwords
+overstrike
+
+Pod::Text::Overstrike - Convert POD data to formatted overstrike text
+
+=for stopwords
+overstruck Overstruck Allbery terminal's
+
+=head1 SYNOPSIS
+
+    use Pod::Text::Overstrike;
+    my $parser = Pod::Text::Overstrike->new (sentence => 0, width => 78);
+
+    # Read POD from STDIN and write to STDOUT.
+    $parser->parse_from_filehandle;
+
+    # Read POD from file.pod and write to file.txt.
+    $parser->parse_from_file ('file.pod', 'file.txt');
+
+=head1 DESCRIPTION
+
+Pod::Text::Overstrike is a simple subclass of Pod::Text that highlights
+output text using overstrike sequences, in a manner similar to nroff.
+Characters in bold text are overstruck (character, backspace, character)
+and characters in underlined text are converted to overstruck underscores
+(underscore, backspace, character).  This format was originally designed
+for hard-copy terminals and/or line printers, yet is readable on soft-copy
+(CRT) terminals.
+
+Overstruck text is best viewed by page-at-a-time programs that take
+advantage of the terminal's B<stand-out> and I<underline> capabilities, such
+as the less program on Unix.
+
+Apart from the overstrike, it in all ways functions like Pod::Text.  See
+L<Pod::Text> for details and available options.
+
+=head1 BUGS
+
+Currently, the outermost formatting instruction wins, so for example
+underlined text inside a region of bold text is displayed as simply bold.
+There may be some better approach possible.
+
+=head1 SEE ALSO
+
+L<Pod::Text>, L<Pod::Simple>
+
+The current version of this module is always available from its web site at
+L<http://www.eyrie.org/~eagle/software/podlators/>.  It is also part of the
+Perl core distribution as of 5.6.0.
+
+=head1 AUTHOR
+
+Joe Smith <Joe.Smith@inwap.com>, using the framework created by Russ Allbery
+<rra@cpan.org>.
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright 2000 by Joe Smith <Joe.Smith@inwap.com>.
+Copyright 2001, 2004, 2008 by Russ Allbery <rra@cpan.org>.
+
+This program is free software; you may redistribute it and/or modify it
+under the same terms as Perl itself.
+
+=cut
diff --git a/lib/5.24.1/Pod/Text/Termcap.pm b/lib/5.24.1/Pod/Text/Termcap.pm
new file mode 100644
index 00000000..d533e76d
--- /dev/null
+++ b/lib/5.24.1/Pod/Text/Termcap.pm
@@ -0,0 +1,210 @@
+# Pod::Text::Termcap -- Convert POD data to ASCII text with format escapes.
+#
+# This is a simple subclass of Pod::Text that overrides a few key methods to
+# output the right termcap escape sequences for formatted text on the current
+# terminal type.
+#
+# Copyright 1999, 2001, 2002, 2004, 2006, 2008, 2009, 2014, 2015
+#     Russ Allbery <rra@cpan.org>
+#
+# This program is free software; you may redistribute it and/or modify it
+# under the same terms as Perl itself.
+
+##############################################################################
+# Modules and declarations
+##############################################################################
+
+package Pod::Text::Termcap;
+
+use 5.006;
+use strict;
+use warnings;
+
+use Pod::Text ();
+use POSIX ();
+use Term::Cap;
+
+use vars qw(@ISA $VERSION);
+
+@ISA = qw(Pod::Text);
+
+$VERSION = '4.07';
+
+##############################################################################
+# Overrides
+##############################################################################
+
+# In the initialization method, grab our terminal characteristics as well as
+# do all the stuff we normally do.
+sub new {
+    my ($self, @args) = @_;
+    my ($ospeed, $term, $termios);
+    $self = $self->SUPER::new (@args);
+
+    # $ENV{HOME} is usually not set on Windows.  The default Term::Cap path
+    # may not work on Solaris.
+    unless (exists $ENV{TERMPATH}) {
+        my $home = exists $ENV{HOME} ? "$ENV{HOME}/.termcap:" : '';
+        $ENV{TERMPATH} =
+          "${home}/etc/termcap:/usr/share/misc/termcap:/usr/share/lib/termcap";
+    }
+
+    # Fall back on a hard-coded terminal speed if POSIX::Termios isn't
+    # available (such as on VMS).
+    eval { $termios = POSIX::Termios->new };
+    if ($@) {
+        $ospeed = 9600;
+    } else {
+        $termios->getattr;
+        $ospeed = $termios->getospeed || 9600;
+    }
+
+    # Fall back on the ANSI escape sequences if Term::Cap doesn't work.
+    eval { $term = Tgetent Term::Cap { TERM => undef, OSPEED => $ospeed } };
+    $$self{BOLD} = $$term{_md} || "\e[1m";
+    $$self{UNDL} = $$term{_us} || "\e[4m";
+    $$self{NORM} = $$term{_me} || "\e[m";
+
+    unless (defined $$self{width}) {
+        $$self{opt_width} = $ENV{COLUMNS} || $$term{_co} || 80;
+        $$self{opt_width} -= 2;
+    }
+
+    return $self;
+}
+
+# Make level one headings bold.
+sub cmd_head1 {
+    my ($self, $attrs, $text) = @_;
+    $text =~ s/\s+$//;
+    $self->SUPER::cmd_head1 ($attrs, "$$self{BOLD}$text$$self{NORM}");
+}
+
+# Make level two headings bold.
+sub cmd_head2 {
+    my ($self, $attrs, $text) = @_;
+    $text =~ s/\s+$//;
+    $self->SUPER::cmd_head2 ($attrs, "$$self{BOLD}$text$$self{NORM}");
+}
+
+# Fix up B<> and I<>.  Note that we intentionally don't do F<>.
+sub cmd_b { my $self = shift; return "$$self{BOLD}$_[1]$$self{NORM}" }
+sub cmd_i { my $self = shift; return "$$self{UNDL}$_[1]$$self{NORM}" }
+
+# Output any included code in bold.
+sub output_code {
+    my ($self, $code) = @_;
+    $self->output ($$self{BOLD} . $code . $$self{NORM});
+}
+
+# Strip all of the formatting from a provided string, returning the stripped
+# version.
+sub strip_format {
+    my ($self, $text) = @_;
+    $text =~ s/\Q$$self{BOLD}//g;
+    $text =~ s/\Q$$self{UNDL}//g;
+    $text =~ s/\Q$$self{NORM}//g;
+    return $text;
+}
+
+# Override the wrapping code to ignore the special sequences.
+sub wrap {
+    my $self = shift;
+    local $_ = shift;
+    my $output = '';
+    my $spaces = ' ' x $$self{MARGIN};
+    my $width = $$self{opt_width} - $$self{MARGIN};
+
+    # $codes matches a single special sequence.  $char matches any number of
+    # special sequences preceding a single character other than a newline.
+    # We have to do $shortchar and $longchar in variables because the
+    # construct ${char}{0,$width} didn't do the right thing until Perl 5.8.x.
+    my $codes = "(?:\Q$$self{BOLD}\E|\Q$$self{UNDL}\E|\Q$$self{NORM}\E)";
+    my $char = "(?:$codes*[^\\n])";
+    my $shortchar = $char . "{0,$width}";
+    my $longchar = $char . "{$width}";
+    while (length > $width) {
+        if (s/^($shortchar)\s+// || s/^($longchar)//) {
+            $output .= $spaces . $1 . "\n";
+        } else {
+            last;
+        }
+    }
+    $output .= $spaces . $_;
+    $output =~ s/\s+$/\n\n/;
+    return $output;
+}
+
+##############################################################################
+# Module return value and documentation
+##############################################################################
+
+1;
+__END__
+
+=head1 NAME
+
+Pod::Text::Termcap - Convert POD data to ASCII text with format escapes
+
+=for stopwords
+ECMA-48 VT100 Allbery Solaris TERMPATH
+
+=head1 SYNOPSIS
+
+    use Pod::Text::Termcap;
+    my $parser = Pod::Text::Termcap->new (sentence => 0, width => 78);
+
+    # Read POD from STDIN and write to STDOUT.
+    $parser->parse_from_filehandle;
+
+    # Read POD from file.pod and write to file.txt.
+    $parser->parse_from_file ('file.pod', 'file.txt');
+
+=head1 DESCRIPTION
+
+Pod::Text::Termcap is a simple subclass of Pod::Text that highlights output
+text using the correct termcap escape sequences for the current terminal.
+Apart from the format codes, it in all ways functions like Pod::Text.  See
+L<Pod::Text> for details and available options.
+
+=head1 ENVIRONMENT
+
+This module sets the TERMPATH environment variable globally to:
+
+    $HOME/.termcap:/etc/termcap:/usr/share/misc/termcap:/usr/share/lib/termcap
+
+if it isn't already set.  (The first entry is omitted if the HOME
+environment variable isn't set.)  This is a (very old) workaround for
+problems finding termcap information on older versions of Solaris, and is
+not good module behavior.  Please do not rely on this behavior; it may be
+dropped in a future release.
+
+=head1 NOTES
+
+This module uses Term::Cap to retrieve the formatting escape sequences for
+the current terminal, and falls back on the ECMA-48 (the same in this
+regard as ANSI X3.64 and ISO 6429, the escape codes also used by DEC VT100
+terminals) if the bold, underline, and reset codes aren't set in the
+termcap information.
+
+=head1 SEE ALSO
+
+L<Pod::Text>, L<Pod::Simple>, L<Term::Cap>
+
+The current version of this module is always available from its web site at
+L<http://www.eyrie.org/~eagle/software/podlators/>.  It is also part of the
+Perl core distribution as of 5.6.0.
+
+=head1 AUTHOR
+
+Russ Allbery <rra@cpan.org>.
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright 1999, 2001, 2002, 2004, 2006, 2008, 2009, 2014, 2015 Russ Allbery
+<rra@cpan.org>
+
+This program is free software; you may redistribute it and/or modify it
+under the same terms as Perl itself.
+
+=cut
diff --git a/lib/5.24.1/Pod/Usage.pm b/lib/5.24.1/Pod/Usage.pm
new file mode 100644
index 00000000..cc4f2e1e
--- /dev/null
+++ b/lib/5.24.1/Pod/Usage.pm
@@ -0,0 +1,895 @@
+#############################################################################
+# Pod/Usage.pm -- print usage messages for the running script.
+#
+# Copyright (c) 1996-2000 by Bradford Appleton. All rights reserved.
+# Copyright (c) 2001-2016 by Marek Rouchal.
+# This file is part of "Pod-Usage". Pod-Usage is free software;
+# you can redistribute it and/or modify it under the same terms
+# as Perl itself.
+#############################################################################
+
+package Pod::Usage;
+use strict;
+
+use vars qw($VERSION @ISA @EXPORT);
+$VERSION = '1.68';  ## Current version of this package
+require  5.006;    ## requires this Perl version or later
+
+#use diagnostics;
+use Carp;
+use Config;
+use Exporter;
+use File::Spec;
+
+@EXPORT = qw(&pod2usage);
+BEGIN {
+    $Pod::Usage::Formatter ||= 'Pod::Text';
+    eval "require $Pod::Usage::Formatter";
+    die $@ if $@;
+    @ISA = ( $Pod::Usage::Formatter );
+}
+
+our $MAX_HEADING_LEVEL = 3;
+
+##---------------------------------------------------------------------------
+
+##---------------------------------
+## Function definitions begin here
+##---------------------------------
+
+sub pod2usage {
+    local($_) = shift;
+    my %opts;
+    ## Collect arguments
+    if (@_ > 0) {
+        ## Too many arguments - assume that this is a hash and
+        ## the user forgot to pass a reference to it.
+        %opts = ($_, @_);
+    }
+    elsif (!defined $_) {
+      $_ = '';
+    }
+    elsif (ref $_) {
+        ## User passed a ref to a hash
+        %opts = %{$_}  if (ref($_) eq 'HASH');
+    }
+    elsif (/^[-+]?\d+$/) {
+        ## User passed in the exit value to use
+        $opts{'-exitval'} =  $_;
+    }
+    else {
+        ## User passed in a message to print before issuing usage.
+        $_  and  $opts{'-message'} = $_;
+    }
+
+    ## Need this for backward compatibility since we formerly used
+    ## options that were all uppercase words rather than ones that
+    ## looked like Unix command-line options.
+    ## to be uppercase keywords)
+    %opts = map {
+        my ($key, $val) = ($_, $opts{$_});
+        $key =~ s/^(?=\w)/-/;
+        $key =~ /^-msg/i   and  $key = '-message';
+        $key =~ /^-exit/i  and  $key = '-exitval';
+        lc($key) => $val;
+    } (keys %opts);
+
+    ## Now determine default -exitval and -verbose values to use
+    if ((! defined $opts{'-exitval'}) && (! defined $opts{'-verbose'})) {
+        $opts{'-exitval'} = 2;
+        $opts{'-verbose'} = 0;
+    }
+    elsif (! defined $opts{'-exitval'}) {
+        $opts{'-exitval'} = ($opts{'-verbose'} > 0) ? 1 : 2;
+    }
+    elsif (! defined $opts{'-verbose'}) {
+        $opts{'-verbose'} = (lc($opts{'-exitval'}) eq 'noexit' ||
+                             $opts{'-exitval'} < 2);
+    }
+
+    ## Default the output file
+    $opts{'-output'} = (lc($opts{'-exitval'}) eq 'noexit' ||
+                        $opts{'-exitval'} < 2) ? \*STDOUT : \*STDERR
+            unless (defined $opts{'-output'});
+    ## Default the input file
+    $opts{'-input'} = $0  unless (defined $opts{'-input'});
+
+    ## Look up input file in path if it doesn't exist.
+    unless ((ref $opts{'-input'}) || (-e $opts{'-input'})) {
+        my $basename = $opts{'-input'};
+        my $pathsep = ($^O =~ /^(?:dos|os2|MSWin32)$/i) ? ';'
+                            : (($^O eq 'MacOS' || $^O eq 'VMS') ? ',' :  ':');
+        my $pathspec = $opts{'-pathlist'} || $ENV{PATH} || $ENV{PERL5LIB};
+
+        my @paths = (ref $pathspec) ? @$pathspec : split($pathsep, $pathspec);
+        for my $dirname (@paths) {
+            $_ = File::Spec->catfile($dirname, $basename)  if length;
+            last if (-e $_) && ($opts{'-input'} = $_);
+        }
+    }
+
+    ## Now create a pod reader and constrain it to the desired sections.
+    my $parser = new Pod::Usage(USAGE_OPTIONS => \%opts);
+    if ($opts{'-verbose'} == 0) {
+        $parser->select('(?:SYNOPSIS|USAGE)\s*');
+    }
+    elsif ($opts{'-verbose'} == 1) {
+        my $opt_re = '(?i)' .
+                     '(?:OPTIONS|ARGUMENTS)' .
+                     '(?:\s*(?:AND|\/)\s*(?:OPTIONS|ARGUMENTS))?';
+        $parser->select( '(?:SYNOPSIS|USAGE)\s*', $opt_re, "DESCRIPTION/$opt_re" );
+    }
+    elsif ($opts{'-verbose'} >= 2 && $opts{'-verbose'} != 99) {
+        $parser->select('.*');
+    }
+    elsif ($opts{'-verbose'} == 99) {
+        my $sections = $opts{'-sections'};
+        $parser->select( (ref $sections) ? @$sections : $sections );
+        $opts{'-verbose'} = 1;
+    }
+
+    ## Check for perldoc
+    my $progpath = $opts{'-perldoc'} ? $opts{'-perldoc'} :
+        File::Spec->catfile($Config{scriptdirexp} 
+	|| $Config{scriptdir}, 'perldoc');
+
+    my $version = sprintf("%vd",$^V);
+    if ($Config{versiononly} and $Config{startperl} =~ /\Q$version\E$/ ) {
+      $progpath .= $version;
+    }
+    $opts{'-noperldoc'} = 1 unless -e $progpath;
+
+    ## Now translate the pod document and then exit with the desired status
+    if (      !$opts{'-noperldoc'}
+         and  $opts{'-verbose'} >= 2
+         and  !ref($opts{'-input'})
+         and  $opts{'-output'} == \*STDOUT )
+    {
+       ## spit out the entire PODs. Might as well invoke perldoc
+       print { $opts{'-output'} } ($opts{'-message'}, "\n") if($opts{'-message'});
+       if(defined $opts{-input} && $opts{-input} =~ /^\s*(\S.*?)\s*$/) {
+         # the perldocs back to 5.005 should all have -F
+	 # without -F there are warnings in -T scripts
+	 my $f = $1;
+         my @perldoc_cmd = ($progpath);
+	 if ($opts{'-perldocopt'}) {
+           $opts{'-perldocopt'} =~ s/^\s+|\s+$//g;
+	   push @perldoc_cmd, split(/\s+/, $opts{'-perldocopt'});
+	 }
+	 push @perldoc_cmd, ('-F', $f);
+         unshift @perldoc_cmd, $opts{'-perlcmd'} if $opts{'-perlcmd'};
+         system(@perldoc_cmd);
+         if($?) {
+           # RT16091: fall back to more if perldoc failed
+           system(($Config{pager} || $ENV{PAGER} || '/bin/more'), $1);
+         }
+       } else {
+         croak "Unspecified input file or insecure argument.\n";
+       }
+    }
+    else {
+       $parser->parse_from_file($opts{'-input'}, $opts{'-output'});
+    }
+
+    exit($opts{'-exitval'})  unless (lc($opts{'-exitval'}) eq 'noexit');
+}
+
+##---------------------------------------------------------------------------
+
+##-------------------------------
+## Method definitions begin here
+##-------------------------------
+
+sub new {
+    my $this = shift;
+    my $class = ref($this) || $this;
+    my %params = @_;
+    my $self = {%params};
+    bless $self, $class;
+    if ($self->can('initialize')) {
+        $self->initialize();
+    } else {
+        # pass through options to Pod::Text
+        my %opts;
+       	for (qw(alt code indent loose margin quotes sentence stderr utf8 width)) {
+            my $val = $params{USAGE_OPTIONS}{"-$_"};
+            $opts{$_} = $val if defined $val;
+        }
+        $self = $self->SUPER::new(%opts);
+        %$self = (%$self, %params);
+    }
+    return $self;
+}
+
+# This subroutine was copied in whole-cloth from Pod::Select 1.60 in order to
+# allow the ejection of Pod::Select from the core without breaking Pod::Usage.
+# -- rjbs, 2013-03-18
+sub _compile_section_spec {
+    my ($section_spec) = @_;
+    my (@regexs, $negated);
+
+    ## Compile the spec into a list of regexs
+    local $_ = $section_spec;
+    s{\\\\}{\001}g;  ## handle escaped backward slashes
+    s{\\/}{\002}g;   ## handle escaped forward slashes
+
+    ## Parse the regexs for the heading titles
+    @regexs = split(/\//, $_, $MAX_HEADING_LEVEL);
+
+    ## Set default regex for ommitted levels
+    for (my $i = 0; $i < $MAX_HEADING_LEVEL; ++$i) {
+        $regexs[$i]  = '.*'  unless ((defined $regexs[$i])
+                                     && (length $regexs[$i]));
+    }
+    ## Modify the regexs as needed and validate their syntax
+    my $bad_regexs = 0;
+    for (@regexs) {
+        $_ .= '.+'  if ($_ eq '!');
+        s{\001}{\\\\}g;       ## restore escaped backward slashes
+        s{\002}{\\/}g;        ## restore escaped forward slashes
+        $negated = s/^\!//;   ## check for negation
+        eval "m{$_}";         ## check regex syntax
+        if ($@) {
+            ++$bad_regexs;
+            carp qq{Bad regular expression /$_/ in "$section_spec": $@\n};
+        }
+        else {
+            ## Add the forward and rear anchors (and put the negator back)
+            $_ = '^' . $_  unless (/^\^/);
+            $_ = $_ . '$'  unless (/\$$/);
+            $_ = '!' . $_  if ($negated);
+        }
+    }
+    return  (! $bad_regexs) ? [ @regexs ] : undef;
+}
+
+sub select {
+    my ($self, @sections) = @_;
+    if ($ISA[0]->can('select')) {
+        $self->SUPER::select(@sections);
+    } else {
+        # we're using Pod::Simple - need to mimic the behavior of Pod::Select
+        my $add = ($sections[0] eq '+') ? shift(@sections) : '';
+        ## Reset the set of sections to use
+        unless (@sections) {
+          delete $self->{USAGE_SELECT} unless ($add);
+          return;
+        }
+        $self->{USAGE_SELECT} = []
+          unless ($add && $self->{USAGE_SELECT});
+        my $sref = $self->{USAGE_SELECT};
+        ## Compile each spec
+        for my $spec (@sections) {
+          my $cs = _compile_section_spec($spec);
+          if ( defined $cs ) {
+            ## Store them in our sections array
+            push(@$sref, $cs);
+          } else {
+            carp qq{Ignoring section spec "$spec"!\n};
+          }
+        }
+    }
+}
+
+# Override Pod::Text->seq_i to return just "arg", not "*arg*".
+sub seq_i { return $_[1] }
+# Override Pod::Text->cmd_i to return just "arg", not "*arg*".
+# newer version based on Pod::Simple
+sub cmd_i { return $_[2] }
+
+# This overrides the Pod::Text method to do something very akin to what
+# Pod::Select did as well as the work done below by preprocess_paragraph.
+# Note that the below is very, very specific to Pod::Text and Pod::Simple.
+sub _handle_element_end {
+    my ($self, $element) = @_;
+    if ($element eq 'head1') {
+        $self->{USAGE_HEADINGS} = [ $$self{PENDING}[-1][1] ];
+        if ($self->{USAGE_OPTIONS}->{-verbose} < 2) {
+            $$self{PENDING}[-1][1] =~ s/^\s*SYNOPSIS\s*$/USAGE/;
+        }
+    } elsif ($element =~ /^head(\d+)$/ && $1) { # avoid 0
+        my $idx = $1 - 1;
+        $self->{USAGE_HEADINGS} = [] unless($self->{USAGE_HEADINGS});
+        $self->{USAGE_HEADINGS}->[$idx] = $$self{PENDING}[-1][1];
+        # we have to get rid of the lower headings
+        splice(@{$self->{USAGE_HEADINGS}},$idx+1);
+    }
+    if ($element =~ /^head\d+$/) {
+        $$self{USAGE_SKIPPING} = 1;
+        if (!$$self{USAGE_SELECT} || !@{ $$self{USAGE_SELECT} }) {
+            $$self{USAGE_SKIPPING} = 0;
+        } else {
+            my @headings = @{$$self{USAGE_HEADINGS}};
+            for my $section_spec ( @{$$self{USAGE_SELECT}} ) {
+                my $match = 1;
+                for (my $i = 0; $i < $MAX_HEADING_LEVEL; ++$i) {
+                    $headings[$i] = '' unless defined $headings[$i];
+                    my $regex   = $section_spec->[$i];
+                    my $negated = ($regex =~ s/^\!//);
+                    $match  &= ($negated ? ($headings[$i] !~ /${regex}/)
+                                         : ($headings[$i] =~ /${regex}/));
+                    last unless ($match);
+                } # end heading levels
+                if ($match) {
+                  $$self{USAGE_SKIPPING} = 0;
+                  last;
+                }
+            } # end sections
+        }
+
+        # Try to do some lowercasing instead of all-caps in headings, and use
+        # a colon to end all headings.
+        if($self->{USAGE_OPTIONS}->{-verbose} < 2) {
+            local $_ = $$self{PENDING}[-1][1];
+            s{([A-Z])([A-Z]+)}{((length($2) > 2) ? $1 : lc($1)) . lc($2)}ge;
+            s/\s*$/:/  unless (/:\s*$/);
+            $_ .= "\n";
+            $$self{PENDING}[-1][1] = $_;
+        }
+    }
+    if ($$self{USAGE_SKIPPING} && $element !~ m/^over-|^[BCFILSZ]$/) {
+        pop @{ $$self{PENDING} };
+    } else {
+        $self->SUPER::_handle_element_end($element);
+    }
+}
+
+# required for Pod::Simple API
+sub start_document {
+    my $self = shift;
+    $self->SUPER::start_document();
+    my $msg = $self->{USAGE_OPTIONS}->{-message}  or  return 1;
+    my $out_fh = $self->output_fh();
+    print $out_fh "$msg\n";
+}
+
+# required for old Pod::Parser API
+sub begin_pod {
+    my $self = shift;
+    $self->SUPER::begin_pod();  ## Have to call superclass
+    my $msg = $self->{USAGE_OPTIONS}->{-message}  or  return 1;
+    my $out_fh = $self->output_handle();
+    print $out_fh "$msg\n";
+}
+
+sub preprocess_paragraph {
+    my $self = shift;
+    local $_ = shift;
+    my $line = shift;
+    ## See if this is a heading and we aren't printing the entire manpage.
+    if (($self->{USAGE_OPTIONS}->{-verbose} < 2) && /^=head/) {
+        ## Change the title of the SYNOPSIS section to USAGE
+        s/^=head1\s+SYNOPSIS\s*$/=head1 USAGE/;
+        ## Try to do some lowercasing instead of all-caps in headings
+        s{([A-Z])([A-Z]+)}{((length($2) > 2) ? $1 : lc($1)) . lc($2)}ge;
+        ## Use a colon to end all headings
+        s/\s*$/:/  unless (/:\s*$/);
+        $_ .= "\n";
+    }
+    return  $self->SUPER::preprocess_paragraph($_);
+}
+
+1; # keep require happy
+
+__END__
+
+=head1 NAME
+
+Pod::Usage - print a usage message from embedded pod documentation
+
+=head1 SYNOPSIS
+
+  use Pod::Usage
+
+  my $message_text  = "This text precedes the usage message.";
+  my $exit_status   = 2;          ## The exit status to use
+  my $verbose_level = 0;          ## The verbose level to use
+  my $filehandle    = \*STDERR;   ## The filehandle to write to
+
+  pod2usage($message_text);
+
+  pod2usage($exit_status);
+
+  pod2usage( { -message => $message_text ,
+               -exitval => $exit_status  ,  
+               -verbose => $verbose_level,  
+               -output  => $filehandle } );
+
+  pod2usage(   -msg     => $message_text ,
+               -exitval => $exit_status  ,  
+               -verbose => $verbose_level,  
+               -output  => $filehandle );
+
+  pod2usage(   -verbose => 2,
+               -noperldoc => 1  );
+
+  pod2usage(   -verbose => 2,
+               -perlcmd => $path_to_perl,
+               -perldoc => $path_to_perldoc,
+               -perldocopt => $perldoc_options );
+
+=head1 ARGUMENTS
+
+B<pod2usage> should be given either a single argument, or a list of
+arguments corresponding to an associative array (a "hash"). When a single
+argument is given, it should correspond to exactly one of the following:
+
+=over 4
+
+=item *
+
+A string containing the text of a message to print I<before> printing
+the usage message
+
+=item *
+
+A numeric value corresponding to the desired exit status
+
+=item *
+
+A reference to a hash
+
+=back
+
+If more than one argument is given then the entire argument list is
+assumed to be a hash.  If a hash is supplied (either as a reference or
+as a list) it should contain one or more elements with the following
+keys:
+
+=over 4
+
+=item C<-message> I<string>
+
+=item C<-msg> I<string>
+
+The text of a message to print immediately prior to printing the
+program's usage message. 
+
+=item C<-exitval> I<value>
+
+The desired exit status to pass to the B<exit()> function.
+This should be an integer, or else the string "NOEXIT" to
+indicate that control should simply be returned without
+terminating the invoking process.
+
+=item C<-verbose> I<value>
+
+The desired level of "verboseness" to use when printing the usage message.
+If the value is 0, then only the "SYNOPSIS" section of the pod documentation
+is printed. If the value is 1, then the "SYNOPSIS" section, along with any
+section entitled "OPTIONS", "ARGUMENTS", or "OPTIONS AND ARGUMENTS" is
+printed. If the corresponding value is 2 or more then the entire manpage is
+printed, using L<perldoc> if available; otherwise L<Pod::Text> is used for
+the formatting. For better readability, the all-capital headings are
+downcased, e.g. C<SYNOPSIS> =E<gt> C<Synopsis>.
+
+The special verbosity level 99 requires to also specify the -sections
+parameter; then these sections are extracted and printed.
+
+=item C<-sections> I<spec>
+
+There are two ways to specify the selection. Either a string (scalar) 
+representing a selection regexp for sections to be printed when -verbose
+is set to 99, e.g.
+
+  "NAME|SYNOPSIS|DESCRIPTION|VERSION"
+
+With the above regexp all content following (and including) any of the
+given C<=head1> headings will be shown. It is possible to restrict the 
+output to particular subsections only, e.g.:
+
+  "DESCRIPTION/Algorithm"
+
+This will output only the C<=head2 Algorithm> heading and content within
+the C<=head1 DESCRIPTION> section. The regexp binding is stronger than the
+section separator, such that e.g.:
+
+  "DESCRIPTION|OPTIONS|ENVIORNMENT/Caveats"
+
+will print any C<=head2 Caveats> section (only) within any of the three
+C<=head1> sections.
+
+Alternatively, an array reference of section specifications can be used:
+
+  pod2usage(-verbose => 99, -sections => [
+    qw(DESCRIPTION DESCRIPTION/Introduction) ] );
+
+This will print only the content of C<=head1 DESCRIPTION> and the 
+C<=head2 Introduction> sections, but no other C<=head2>, and no other
+C<=head1> either.
+
+=item C<-output> I<handle>
+
+A reference to a filehandle, or the pathname of a file to which the
+usage message should be written. The default is C<\*STDERR> unless the
+exit value is less than 2 (in which case the default is C<\*STDOUT>).
+
+=item C<-input> I<handle>
+
+A reference to a filehandle, or the pathname of a file from which the
+invoking script's pod documentation should be read.  It defaults to the
+file indicated by C<$0> (C<$PROGRAM_NAME> for users of F<English.pm>).
+
+If you are calling B<pod2usage()> from a module and want to display
+that module's POD, you can use this:
+
+  use Pod::Find qw(pod_where);
+  pod2usage( -input => pod_where({-inc => 1}, __PACKAGE__) );
+
+=item C<-pathlist> I<string>
+
+A list of directory paths. If the input file does not exist, then it
+will be searched for in the given directory list (in the order the
+directories appear in the list). It defaults to the list of directories
+implied by C<$ENV{PATH}>. The list may be specified either by a reference
+to an array, or by a string of directory paths which use the same path
+separator as C<$ENV{PATH}> on your system (e.g., C<:> for Unix, C<;> for
+MSWin32 and DOS).
+
+=item C<-noperldoc>
+
+By default, Pod::Usage will call L<perldoc> when -verbose >= 2 is
+specified. This does not work well e.g. if the script was packed
+with L<PAR>. The -noperldoc option suppresses the external call to
+L<perldoc> and uses the simple text formatter (L<Pod::Text>) to 
+output the POD.
+
+=item C<-perlcmd>
+
+By default, Pod::Usage will call L<perldoc> when -verbose >= 2 is
+specified. In case of special or unusual Perl installations,
+the -perlcmd option may be used to supply the path to a L<perl> executable
+which should run L<perldoc>.
+
+=item C<-perldoc> I<path-to-perldoc>
+
+By default, Pod::Usage will call L<perldoc> when -verbose >= 2 is
+specified. In case L<perldoc> is not installed where the L<perl> interpreter
+thinks it is (see L<Config>), the -perldoc option may be used to supply
+the correct path to L<perldoc>.
+
+=item C<-perldocopt> I<string>
+
+By default, Pod::Usage will call L<perldoc> when -verbose >= 2 is specified.
+The -perldocopt option may be used to supply options to L<perldoc>. The
+string may contain several, space-separated options.
+
+=back
+
+=head2 Formatting base class
+
+The default text formatter is L<Pod::Text>. The base class for Pod::Usage can
+be defined by pre-setting C<$Pod::Usage::Formatter> I<before>
+loading Pod::Usage, e.g.:
+
+    BEGIN { $Pod::Usage::Formatter = 'Pod::Text::Termcap'; }
+    use Pod::Usage qw(pod2usage);
+
+Pod::Usage uses L<Pod::Simple>'s _handle_element_end() method to implement
+the section selection, and in case of verbosity < 2 it down-cases the
+all-caps headings to first capital letter and rest lowercase, and adds
+a colon/newline at the end of the headings, for better readability. Same for
+verbosity = 99.
+
+=head2 Pass-through options
+
+The following options are passed through to the underlying text formatter.
+See the manual pages of these modules for more information.
+
+  alt code indent loose margin quotes sentence stderr utf8 width
+
+=head1 DESCRIPTION
+
+B<pod2usage> will print a usage message for the invoking script (using
+its embedded pod documentation) and then exit the script with the
+desired exit status. The usage message printed may have any one of three
+levels of "verboseness": If the verbose level is 0, then only a synopsis
+is printed. If the verbose level is 1, then the synopsis is printed
+along with a description (if present) of the command line options and
+arguments. If the verbose level is 2, then the entire manual page is
+printed.
+
+Unless they are explicitly specified, the default values for the exit
+status, verbose level, and output stream to use are determined as
+follows:
+
+=over 4
+
+=item *
+
+If neither the exit status nor the verbose level is specified, then the
+default is to use an exit status of 2 with a verbose level of 0.
+
+=item *
+
+If an exit status I<is> specified but the verbose level is I<not>, then the
+verbose level will default to 1 if the exit status is less than 2 and
+will default to 0 otherwise.
+
+=item *
+
+If an exit status is I<not> specified but verbose level I<is> given, then
+the exit status will default to 2 if the verbose level is 0 and will
+default to 1 otherwise.
+
+=item *
+
+If the exit status used is less than 2, then output is printed on
+C<STDOUT>.  Otherwise output is printed on C<STDERR>.
+
+=back
+
+Although the above may seem a bit confusing at first, it generally does
+"the right thing" in most situations.  This determination of the default
+values to use is based upon the following typical Unix conventions:
+
+=over 4
+
+=item *
+
+An exit status of 0 implies "success". For example, B<diff(1)> exits
+with a status of 0 if the two files have the same contents.
+
+=item *
+
+An exit status of 1 implies possibly abnormal, but non-defective, program
+termination.  For example, B<grep(1)> exits with a status of 1 if
+it did I<not> find a matching line for the given regular expression.
+
+=item *
+
+An exit status of 2 or more implies a fatal error. For example, B<ls(1)>
+exits with a status of 2 if you specify an illegal (unknown) option on
+the command line.
+
+=item *
+
+Usage messages issued as a result of bad command-line syntax should go
+to C<STDERR>.  However, usage messages issued due to an explicit request
+to print usage (like specifying B<-help> on the command line) should go
+to C<STDOUT>, just in case the user wants to pipe the output to a pager
+(such as B<more(1)>).
+
+=item *
+
+If program usage has been explicitly requested by the user, it is often
+desirable to exit with a status of 1 (as opposed to 0) after issuing
+the user-requested usage message.  It is also desirable to give a
+more verbose description of program usage in this case.
+
+=back
+
+B<pod2usage> doesn't force the above conventions upon you, but it will
+use them by default if you don't expressly tell it to do otherwise.  The
+ability of B<pod2usage()> to accept a single number or a string makes it
+convenient to use as an innocent looking error message handling function:
+
+    use strict;
+    use Pod::Usage;
+    use Getopt::Long;
+
+    ## Parse options
+    my %opt;
+    GetOptions(\%opt, "help|?", "man", "flag1")  ||  pod2usage(2);
+    pod2usage(1)  if ($opt{help});
+    pod2usage(-exitval => 0, -verbose => 2)  if ($opt{man});
+
+    ## Check for too many filenames
+    pod2usage("$0: Too many files given.\n")  if (@ARGV > 1);
+
+Some user's however may feel that the above "economy of expression" is
+not particularly readable nor consistent and may instead choose to do
+something more like the following:
+
+    use strict;
+    use Pod::Usage qw(pod2usage);
+    use Getopt::Long qw(GetOptions);
+
+    ## Parse options
+    my %opt;
+    GetOptions(\%opt, "help|?", "man", "flag1")  ||
+      pod2usage(-verbose => 0);
+
+    pod2usage(-verbose => 1)  if ($opt{help});
+    pod2usage(-verbose => 2)  if ($opt{man});
+
+    ## Check for too many filenames
+    pod2usage(-verbose => 2, -message => "$0: Too many files given.\n")
+      if (@ARGV > 1);
+
+
+As with all things in Perl, I<there's more than one way to do it>, and
+B<pod2usage()> adheres to this philosophy.  If you are interested in
+seeing a number of different ways to invoke B<pod2usage> (although by no
+means exhaustive), please refer to L<"EXAMPLES">.
+
+=head2 Scripts
+
+The Pod::Usage distribution comes with a script pod2usage which offers
+a command line interface to the functionality of Pod::Usage. See
+L<pod2usage>.
+
+
+=head1 EXAMPLES
+
+Each of the following invocations of C<pod2usage()> will print just the
+"SYNOPSIS" section to C<STDERR> and will exit with a status of 2:
+
+    pod2usage();
+
+    pod2usage(2);
+
+    pod2usage(-verbose => 0);
+
+    pod2usage(-exitval => 2);
+
+    pod2usage({-exitval => 2, -output => \*STDERR});
+
+    pod2usage({-verbose => 0, -output  => \*STDERR});
+
+    pod2usage(-exitval => 2, -verbose => 0);
+
+    pod2usage(-exitval => 2, -verbose => 0, -output => \*STDERR);
+
+Each of the following invocations of C<pod2usage()> will print a message
+of "Syntax error." (followed by a newline) to C<STDERR>, immediately
+followed by just the "SYNOPSIS" section (also printed to C<STDERR>) and
+will exit with a status of 2:
+
+    pod2usage("Syntax error.");
+
+    pod2usage(-message => "Syntax error.", -verbose => 0);
+
+    pod2usage(-msg  => "Syntax error.", -exitval => 2);
+
+    pod2usage({-msg => "Syntax error.", -exitval => 2, -output => \*STDERR});
+
+    pod2usage({-msg => "Syntax error.", -verbose => 0, -output => \*STDERR});
+
+    pod2usage(-msg  => "Syntax error.", -exitval => 2, -verbose => 0);
+
+    pod2usage(-message => "Syntax error.",
+              -exitval => 2,
+              -verbose => 0,
+              -output  => \*STDERR);
+
+Each of the following invocations of C<pod2usage()> will print the
+"SYNOPSIS" section and any "OPTIONS" and/or "ARGUMENTS" sections to
+C<STDOUT> and will exit with a status of 1:
+
+    pod2usage(1);
+
+    pod2usage(-verbose => 1);
+
+    pod2usage(-exitval => 1);
+
+    pod2usage({-exitval => 1, -output => \*STDOUT});
+
+    pod2usage({-verbose => 1, -output => \*STDOUT});
+
+    pod2usage(-exitval => 1, -verbose => 1);
+
+    pod2usage(-exitval => 1, -verbose => 1, -output => \*STDOUT});
+
+Each of the following invocations of C<pod2usage()> will print the
+entire manual page to C<STDOUT> and will exit with a status of 1:
+
+    pod2usage(-verbose  => 2);
+
+    pod2usage({-verbose => 2, -output => \*STDOUT});
+
+    pod2usage(-exitval  => 1, -verbose => 2);
+
+    pod2usage({-exitval => 1, -verbose => 2, -output => \*STDOUT});
+
+=head2 Recommended Use
+
+Most scripts should print some type of usage message to C<STDERR> when a
+command line syntax error is detected. They should also provide an
+option (usually C<-H> or C<-help>) to print a (possibly more verbose)
+usage message to C<STDOUT>. Some scripts may even wish to go so far as to
+provide a means of printing their complete documentation to C<STDOUT>
+(perhaps by allowing a C<-man> option). The following complete example
+uses B<Pod::Usage> in combination with B<Getopt::Long> to do all of these
+things:
+
+    use strict;
+    use Getopt::Long qw(GetOptions);
+    use Pod::Usage qw(pod2usage);
+
+    my $man = 0;
+    my $help = 0;
+    ## Parse options and print usage if there is a syntax error,
+    ## or if usage was explicitly requested.
+    GetOptions('help|?' => \$help, man => \$man) or pod2usage(2);
+    pod2usage(1) if $help;
+    pod2usage(-verbose => 2) if $man;
+
+    ## If no arguments were given, then allow STDIN to be used only
+    ## if it's not connected to a terminal (otherwise print usage)
+    pod2usage("$0: No files given.")  if ((@ARGV == 0) && (-t STDIN));
+
+    __END__
+
+    =head1 NAME
+
+    sample - Using GetOpt::Long and Pod::Usage
+
+    =head1 SYNOPSIS
+
+    sample [options] [file ...]
+
+     Options:
+       -help            brief help message
+       -man             full documentation
+
+    =head1 OPTIONS
+
+    =over 4
+
+    =item B<-help>
+
+    Print a brief help message and exits.
+
+    =item B<-man>
+
+    Prints the manual page and exits.
+
+    =back
+
+    =head1 DESCRIPTION
+
+    B<This program> will read the given input file(s) and do something
+    useful with the contents thereof.
+
+    =cut
+
+=head1 CAVEATS
+
+By default, B<pod2usage()> will use C<$0> as the path to the pod input
+file.  Unfortunately, not all systems on which Perl runs will set C<$0>
+properly (although if C<$0> isn't found, B<pod2usage()> will search
+C<$ENV{PATH}> or else the list specified by the C<-pathlist> option).
+If this is the case for your system, you may need to explicitly specify
+the path to the pod docs for the invoking script using something
+similar to the following:
+
+    pod2usage(-exitval => 2, -input => "/path/to/your/pod/docs");
+
+In the pathological case that a script is called via a relative path
+I<and> the script itself changes the current working directory
+(see L<perlfunc/chdir>) I<before> calling pod2usage, Pod::Usage will
+fail even on robust platforms. Don't do that. Or use L<FindBin> to locate
+the script:
+
+    use FindBin;
+    pod2usage(-input => $FindBin::Bin . "/" . $FindBin::Script);
+
+=head1 AUTHOR
+
+Please report bugs using L<http://rt.cpan.org>.
+
+Marek Rouchal E<lt>marekr@cpan.orgE<gt>
+
+Brad Appleton E<lt>bradapp@enteract.comE<gt>
+
+Based on code for B<Pod::Text::pod2text()> written by
+Tom Christiansen E<lt>tchrist@mox.perl.comE<gt>
+
+=head1 ACKNOWLEDGMENTS
+
+rjbs for refactoring Pod::Usage to not use Pod::Parser any more.
+
+Steven McDougall E<lt>swmcd@world.std.comE<gt> for his help and patience
+with re-writing this manpage.
+
+=head1 SEE ALSO
+
+B<Pod::Usage> is now a standalone distribution, depending on
+L<Pod::Text> which in turn depends on L<Pod::Simple>.
+
+L<Pod::Perldoc>, L<Getopt::Long>, L<Pod::Find>, L<FindBin>,
+L<Pod::Text>, L<Pod::Text::Termcap>, L<Pod::Simple>
+
+=cut
+
diff --git a/lib/5.24.1/Safe.pm b/lib/5.24.1/Safe.pm
new file mode 100644
index 00000000..d78fcc54
--- /dev/null
+++ b/lib/5.24.1/Safe.pm
@@ -0,0 +1,815 @@
+package Safe;
+
+use 5.003_11;
+use Scalar::Util qw(reftype refaddr);
+
+$Safe::VERSION = "2.39";
+
+# *** Don't declare any lexicals above this point ***
+#
+# This function should return a closure which contains an eval that can't
+# see any lexicals in scope (apart from __ExPr__ which is unavoidable)
+
+sub lexless_anon_sub {
+                 # $_[0] is package;
+                 # $_[1] is strict flag;
+    my $__ExPr__ = $_[2];   # must be a lexical to create the closure that
+                            # can be used to pass the value into the safe
+                            # world
+
+    # Create anon sub ref in root of compartment.
+    # Uses a closure (on $__ExPr__) to pass in the code to be executed.
+    # (eval on one line to keep line numbers as expected by caller)
+    eval sprintf
+    'package %s; %s sub { @_=(); eval q[local *SIG; my $__ExPr__;] . $__ExPr__; }',
+                $_[0], $_[1] ? 'use strict;' : '';
+}
+
+use strict;
+use Carp;
+BEGIN { eval q{
+    use Carp::Heavy;
+} }
+
+use B ();
+BEGIN {
+    no strict 'refs';
+    if (defined &B::sub_generation) {
+        *sub_generation = \&B::sub_generation;
+    }
+    else {
+        # fake sub generation changing for perls < 5.8.9
+        my $sg; *sub_generation = sub { ++$sg };
+    }
+}
+
+use Opcode 1.01, qw(
+    opset opset_to_ops opmask_add
+    empty_opset full_opset invert_opset verify_opset
+    opdesc opcodes opmask define_optag opset_to_hex
+);
+
+*ops_to_opset = \&opset;   # Temporary alias for old Penguins
+
+# Regular expressions and other unicode-aware code may need to call
+# utf8->SWASHNEW (via perl's utf8.c).  That will fail unless we share the
+# SWASHNEW method.
+# Sadly we can't just add utf8::SWASHNEW to $default_share because perl's
+# utf8.c code does a fetchmethod on SWASHNEW to check if utf8.pm is loaded,
+# and sharing makes it look like the method exists.
+# The simplest and most robust fix is to ensure the utf8 module is loaded when
+# Safe is loaded. Then we can add utf8::SWASHNEW to $default_share.
+require utf8;
+# we must ensure that utf8_heavy.pl, where SWASHNEW is defined, is loaded
+# but without depending on too much knowledge of that implementation detail.
+# This code (//i on a unicode string) should ensure utf8 is fully loaded
+# and also loads the ToFold SWASH, unless things change so that these
+# particular code points don't cause it to load.
+# (Swashes are cached internally by perl in PL_utf8_* variables
+# independent of being inside/outside of Safe. So once loaded they can be)
+do { my $a = pack('U',0x100); my $b = chr 0x101; utf8::upgrade $b; $a =~ /$b/i };
+# now we can safely include utf8::SWASHNEW in $default_share defined below.
+
+my $default_root  = 0;
+# share *_ and functions defined in universal.c
+# Don't share stuff like *UNIVERSAL:: otherwise code from the
+# compartment can 0wn functions in UNIVERSAL
+my $default_share = [qw[
+    *_
+    &PerlIO::get_layers
+    &UNIVERSAL::isa
+    &UNIVERSAL::can
+    &UNIVERSAL::VERSION
+    &utf8::is_utf8
+    &utf8::valid
+    &utf8::encode
+    &utf8::decode
+    &utf8::upgrade
+    &utf8::downgrade
+    &utf8::native_to_unicode
+    &utf8::unicode_to_native
+    &utf8::SWASHNEW
+    $version::VERSION
+    $version::CLASS
+    $version::STRICT
+    $version::LAX
+    @version::ISA
+], ($] < 5.010 && qw[
+    &utf8::SWASHGET
+]), ($] >= 5.008001 && qw[
+    &Regexp::DESTROY
+]), ($] >= 5.010 && qw[
+    &re::is_regexp
+    &re::regname
+    &re::regnames
+    &re::regnames_count
+    &UNIVERSAL::DOES
+    &version::()
+    &version::new
+    &version::(""
+    &version::stringify
+    &version::(0+
+    &version::numify
+    &version::normal
+    &version::(cmp
+    &version::(<=>
+    &version::vcmp
+    &version::(bool
+    &version::boolean
+    &version::(nomethod
+    &version::noop
+    &version::is_alpha
+    &version::qv
+    &version::vxs::declare
+    &version::vxs::qv
+    &version::vxs::_VERSION
+    &version::vxs::stringify
+    &version::vxs::new
+    &version::vxs::parse
+    &version::vxs::VCMP
+]), ($] >= 5.011 && qw[
+    &re::regexp_pattern
+]), ($] >= 5.010 && $] < 5.014 && qw[
+    &Tie::Hash::NamedCapture::FETCH
+    &Tie::Hash::NamedCapture::STORE
+    &Tie::Hash::NamedCapture::DELETE
+    &Tie::Hash::NamedCapture::CLEAR
+    &Tie::Hash::NamedCapture::EXISTS
+    &Tie::Hash::NamedCapture::FIRSTKEY
+    &Tie::Hash::NamedCapture::NEXTKEY
+    &Tie::Hash::NamedCapture::SCALAR
+    &Tie::Hash::NamedCapture::flags
+])];
+if (defined $Devel::Cover::VERSION) {
+    push @$default_share, '&Devel::Cover::use_file';
+}
+
+sub new {
+    my($class, $root, $mask) = @_;
+    my $obj = {};
+    bless $obj, $class;
+
+    if (defined($root)) {
+        croak "Can't use \"$root\" as root name"
+            if $root =~ /^main\b/ or $root !~ /^\w[:\w]*$/;
+        $obj->{Root}  = $root;
+        $obj->{Erase} = 0;
+    }
+    else {
+        $obj->{Root}  = "Safe::Root".$default_root++;
+        $obj->{Erase} = 1;
+    }
+
+    # use permit/deny methods instead till interface issues resolved
+    # XXX perhaps new Safe 'Root', mask => $mask, foo => bar, ...;
+    croak "Mask parameter to new no longer supported" if defined $mask;
+    $obj->permit_only(':default');
+
+    # We must share $_ and @_ with the compartment or else ops such
+    # as split, length and so on won't default to $_ properly, nor
+    # will passing argument to subroutines work (via @_). In fact,
+    # for reasons I don't completely understand, we need to share
+    # the whole glob *_ rather than $_ and @_ separately, otherwise
+    # @_ in non default packages within the compartment don't work.
+    $obj->share_from('main', $default_share);
+
+    Opcode::_safe_pkg_prep($obj->{Root}) if($Opcode::VERSION > 1.04);
+
+    return $obj;
+}
+
+sub DESTROY {
+    my $obj = shift;
+    $obj->erase('DESTROY') if $obj->{Erase};
+}
+
+sub erase {
+    my ($obj, $action) = @_;
+    my $pkg = $obj->root();
+    my ($stem, $leaf);
+
+    no strict 'refs';
+    $pkg = "main::$pkg\::";     # expand to full symbol table name
+    ($stem, $leaf) = $pkg =~ m/(.*::)(\w+::)$/;
+
+    # The 'my $foo' is needed! Without it you get an
+    # 'Attempt to free unreferenced scalar' warning!
+    my $stem_symtab = *{$stem}{HASH};
+
+    #warn "erase($pkg) stem=$stem, leaf=$leaf";
+    #warn " stem_symtab hash ".scalar(%$stem_symtab)."\n";
+    # ", join(', ', %$stem_symtab),"\n";
+
+#    delete $stem_symtab->{$leaf};
+
+    my $leaf_glob   = $stem_symtab->{$leaf};
+    my $leaf_symtab = *{$leaf_glob}{HASH};
+#    warn " leaf_symtab ", join(', ', %$leaf_symtab),"\n";
+    %$leaf_symtab = ();
+    #delete $leaf_symtab->{'__ANON__'};
+    #delete $leaf_symtab->{'foo'};
+    #delete $leaf_symtab->{'main::'};
+#    my $foo = undef ${"$stem\::"}{"$leaf\::"};
+
+    if ($action and $action eq 'DESTROY') {
+        delete $stem_symtab->{$leaf};
+    } else {
+        $obj->share_from('main', $default_share);
+    }
+    1;
+}
+
+
+sub reinit {
+    my $obj= shift;
+    $obj->erase;
+    $obj->share_redo;
+}
+
+sub root {
+    my $obj = shift;
+    croak("Safe root method now read-only") if @_;
+    return $obj->{Root};
+}
+
+
+sub mask {
+    my $obj = shift;
+    return $obj->{Mask} unless @_;
+    $obj->deny_only(@_);
+}
+
+# v1 compatibility methods
+sub trap   { shift->deny(@_)   }
+sub untrap { shift->permit(@_) }
+
+sub deny {
+    my $obj = shift;
+    $obj->{Mask} |= opset(@_);
+}
+sub deny_only {
+    my $obj = shift;
+    $obj->{Mask} = opset(@_);
+}
+
+sub permit {
+    my $obj = shift;
+    # XXX needs testing
+    $obj->{Mask} &= invert_opset opset(@_);
+}
+sub permit_only {
+    my $obj = shift;
+    $obj->{Mask} = invert_opset opset(@_);
+}
+
+
+sub dump_mask {
+    my $obj = shift;
+    print opset_to_hex($obj->{Mask}),"\n";
+}
+
+
+sub share {
+    my($obj, @vars) = @_;
+    $obj->share_from(scalar(caller), \@vars);
+}
+
+
+sub share_from {
+    my $obj = shift;
+    my $pkg = shift;
+    my $vars = shift;
+    my $no_record = shift || 0;
+    my $root = $obj->root();
+    croak("vars not an array ref") unless ref $vars eq 'ARRAY';
+    no strict 'refs';
+    # Check that 'from' package actually exists
+    croak("Package \"$pkg\" does not exist")
+        unless keys %{"$pkg\::"};
+    my $arg;
+    foreach $arg (@$vars) {
+        # catch some $safe->share($var) errors:
+        my ($var, $type);
+        $type = $1 if ($var = $arg) =~ s/^(\W)//;
+        # warn "share_from $pkg $type $var";
+        for (1..2) { # assign twice to avoid any 'used once' warnings
+            *{$root."::$var"} = (!$type)   ? \&{$pkg."::$var"}
+                          : ($type eq '&') ? \&{$pkg."::$var"}
+                          : ($type eq '$') ? \${$pkg."::$var"}
+                          : ($type eq '@') ? \@{$pkg."::$var"}
+                          : ($type eq '%') ? \%{$pkg."::$var"}
+                          : ($type eq '*') ?  *{$pkg."::$var"}
+                          : croak(qq(Can't share "$type$var" of unknown type));
+        }
+    }
+    $obj->share_record($pkg, $vars) unless $no_record or !$vars;
+}
+
+
+sub share_record {
+    my $obj = shift;
+    my $pkg = shift;
+    my $vars = shift;
+    my $shares = \%{$obj->{Shares} ||= {}};
+    # Record shares using keys of $obj->{Shares}. See reinit.
+    @{$shares}{@$vars} = ($pkg) x @$vars if @$vars;
+}
+
+
+sub share_redo {
+    my $obj = shift;
+    my $shares = \%{$obj->{Shares} ||= {}};
+    my($var, $pkg);
+    while(($var, $pkg) = each %$shares) {
+        # warn "share_redo $pkg\:: $var";
+        $obj->share_from($pkg,  [ $var ], 1);
+    }
+}
+
+
+sub share_forget {
+    delete shift->{Shares};
+}
+
+
+sub varglob {
+    my ($obj, $var) = @_;
+    no strict 'refs';
+    return *{$obj->root()."::$var"};
+}
+
+sub _clean_stash {
+    my ($root, $saved_refs) = @_;
+    $saved_refs ||= [];
+    no strict 'refs';
+    foreach my $hook (qw(DESTROY AUTOLOAD), grep /^\(/, keys %$root) {
+        push @$saved_refs, \*{$root.$hook};
+        delete ${$root}{$hook};
+    }
+
+    for (grep /::$/, keys %$root) {
+        next if \%{$root.$_} eq \%$root;
+        _clean_stash($root.$_, $saved_refs);
+    }
+}
+
+sub reval {
+    my ($obj, $expr, $strict) = @_;
+    die "Bad Safe object" unless $obj->isa('Safe');
+
+    my $root = $obj->{Root};
+
+    my $evalsub = lexless_anon_sub($root, $strict, $expr);
+    # propagate context
+    my $sg = sub_generation();
+    my @subret;
+    if (defined wantarray) {
+        @subret = (wantarray)
+               ?        Opcode::_safe_call_sv($root, $obj->{Mask}, $evalsub)
+               : scalar Opcode::_safe_call_sv($root, $obj->{Mask}, $evalsub);
+    }
+    else {
+        Opcode::_safe_call_sv($root, $obj->{Mask}, $evalsub);
+    }
+    _clean_stash($root.'::') if $sg != sub_generation();
+    $obj->wrap_code_refs_within(@subret);
+    return (wantarray) ? @subret : $subret[0];
+}
+
+my %OID;
+
+sub wrap_code_refs_within {
+    my $obj = shift;
+
+    %OID = ();
+    $obj->_find_code_refs('wrap_code_ref', @_);
+}
+
+
+sub _find_code_refs {
+    my $obj = shift;
+    my $visitor = shift;
+
+    for my $item (@_) {
+        my $reftype = $item && reftype $item
+            or next;
+
+        # skip references already seen
+        next if ++$OID{refaddr $item} > 1;
+
+        if ($reftype eq 'ARRAY') {
+            $obj->_find_code_refs($visitor, @$item);
+        }
+        elsif ($reftype eq 'HASH') {
+            $obj->_find_code_refs($visitor, values %$item);
+        }
+        # XXX GLOBs?
+        elsif ($reftype eq 'CODE') {
+            $item = $obj->$visitor($item);
+        }
+    }
+}
+
+
+sub wrap_code_ref {
+    my ($obj, $sub) = @_;
+    die "Bad safe object" unless $obj->isa('Safe');
+
+    # wrap code ref $sub with _safe_call_sv so that, when called, the
+    # execution will happen with the compartment fully 'in effect'.
+
+    croak "Not a CODE reference"
+        if reftype $sub ne 'CODE';
+
+    my $ret = sub {
+        my @args = @_; # lexical to close over
+        my $sub_with_args = sub { $sub->(@args) };
+
+        my @subret;
+        my $error;
+        do {
+            local $@;  # needed due to perl_call_sv(sv, G_EVAL|G_KEEPERR)
+            my $sg = sub_generation();
+            @subret = (wantarray)
+                ?        Opcode::_safe_call_sv($obj->{Root}, $obj->{Mask}, $sub_with_args)
+                : scalar Opcode::_safe_call_sv($obj->{Root}, $obj->{Mask}, $sub_with_args);
+            $error = $@;
+            _clean_stash($obj->{Root}.'::') if $sg != sub_generation();
+        };
+        if ($error) { # rethrow exception
+            $error =~ s/\t\(in cleanup\) //; # prefix added by G_KEEPERR
+            die $error;
+        }
+        return (wantarray) ? @subret : $subret[0];
+    };
+
+    return $ret;
+}
+
+
+sub rdo {
+    my ($obj, $file) = @_;
+    die "Bad Safe object" unless $obj->isa('Safe');
+
+    my $root = $obj->{Root};
+
+    my $sg = sub_generation();
+    my $evalsub = eval
+            sprintf('package %s; sub { @_ = (); do $file }', $root);
+    my @subret = (wantarray)
+               ?        Opcode::_safe_call_sv($root, $obj->{Mask}, $evalsub)
+               : scalar Opcode::_safe_call_sv($root, $obj->{Mask}, $evalsub);
+    _clean_stash($root.'::') if $sg != sub_generation();
+    $obj->wrap_code_refs_within(@subret);
+    return (wantarray) ? @subret : $subret[0];
+}
+
+
+1;
+
+__END__
+
+=head1 NAME
+
+Safe - Compile and execute code in restricted compartments
+
+=head1 SYNOPSIS
+
+  use Safe;
+
+  $compartment = new Safe;
+
+  $compartment->permit(qw(time sort :browse));
+
+  $result = $compartment->reval($unsafe_code);
+
+=head1 DESCRIPTION
+
+The Safe extension module allows the creation of compartments
+in which perl code can be evaluated. Each compartment has
+
+=over 8
+
+=item a new namespace
+
+The "root" of the namespace (i.e. "main::") is changed to a
+different package and code evaluated in the compartment cannot
+refer to variables outside this namespace, even with run-time
+glob lookups and other tricks.
+
+Code which is compiled outside the compartment can choose to place
+variables into (or I<share> variables with) the compartment's namespace
+and only that data will be visible to code evaluated in the
+compartment.
+
+By default, the only variables shared with compartments are the
+"underscore" variables $_ and @_ (and, technically, the less frequently
+used %_, the _ filehandle and so on). This is because otherwise perl
+operators which default to $_ will not work and neither will the
+assignment of arguments to @_ on subroutine entry.
+
+=item an operator mask
+
+Each compartment has an associated "operator mask". Recall that
+perl code is compiled into an internal format before execution.
+Evaluating perl code (e.g. via "eval" or "do 'file'") causes
+the code to be compiled into an internal format and then,
+provided there was no error in the compilation, executed.
+Code evaluated in a compartment compiles subject to the
+compartment's operator mask. Attempting to evaluate code in a
+compartment which contains a masked operator will cause the
+compilation to fail with an error. The code will not be executed.
+
+The default operator mask for a newly created compartment is
+the ':default' optag.
+
+It is important that you read the L<Opcode> module documentation
+for more information, especially for detailed definitions of opnames,
+optags and opsets.
+
+Since it is only at the compilation stage that the operator mask
+applies, controlled access to potentially unsafe operations can
+be achieved by having a handle to a wrapper subroutine (written
+outside the compartment) placed into the compartment. For example,
+
+    $cpt = new Safe;
+    sub wrapper {
+      # vet arguments and perform potentially unsafe operations
+    }
+    $cpt->share('&wrapper');
+
+=back
+
+
+=head1 WARNING
+
+The authors make B<no warranty>, implied or otherwise, about the
+suitability of this software for safety or security purposes.
+
+The authors shall not in any case be liable for special, incidental,
+consequential, indirect or other similar damages arising from the use
+of this software.
+
+Your mileage will vary. If in any doubt B<do not use it>.
+
+
+=head1 METHODS
+
+To create a new compartment, use
+
+    $cpt = new Safe;
+
+Optional argument is (NAMESPACE), where NAMESPACE is the root namespace
+to use for the compartment (defaults to "Safe::Root0", incremented for
+each new compartment).
+
+Note that version 1.00 of the Safe module supported a second optional
+parameter, MASK.  That functionality has been withdrawn pending deeper
+consideration. Use the permit and deny methods described below.
+
+The following methods can then be used on the compartment
+object returned by the above constructor. The object argument
+is implicit in each case.
+
+
+=head2 permit (OP, ...)
+
+Permit the listed operators to be used when compiling code in the
+compartment (in I<addition> to any operators already permitted).
+
+You can list opcodes by names, or use a tag name; see
+L<Opcode/"Predefined Opcode Tags">.
+
+=head2 permit_only (OP, ...)
+
+Permit I<only> the listed operators to be used when compiling code in
+the compartment (I<no> other operators are permitted).
+
+=head2 deny (OP, ...)
+
+Deny the listed operators from being used when compiling code in the
+compartment (other operators may still be permitted).
+
+=head2 deny_only (OP, ...)
+
+Deny I<only> the listed operators from being used when compiling code
+in the compartment (I<all> other operators will be permitted, so you probably
+don't want to use this method).
+
+=head2 trap (OP, ...), untrap (OP, ...)
+
+The trap and untrap methods are synonyms for deny and permit
+respectfully.
+
+=head2 share (NAME, ...)
+
+This shares the variable(s) in the argument list with the compartment.
+This is almost identical to exporting variables using the L<Exporter>
+module.
+
+Each NAME must be the B<name> of a non-lexical variable, typically
+with the leading type identifier included. A bareword is treated as a
+function name.
+
+Examples of legal names are '$foo' for a scalar, '@foo' for an
+array, '%foo' for a hash, '&foo' or 'foo' for a subroutine and '*foo'
+for a glob (i.e.  all symbol table entries associated with "foo",
+including scalar, array, hash, sub and filehandle).
+
+Each NAME is assumed to be in the calling package. See share_from
+for an alternative method (which C<share> uses).
+
+=head2 share_from (PACKAGE, ARRAYREF)
+
+This method is similar to share() but allows you to explicitly name the
+package that symbols should be shared from. The symbol names (including
+type characters) are supplied as an array reference.
+
+    $safe->share_from('main', [ '$foo', '%bar', 'func' ]);
+
+Names can include package names, which are relative to the specified PACKAGE.
+So these two calls have the same effect:
+
+    $safe->share_from('Scalar::Util', [ 'reftype' ]);
+    $safe->share_from('main', [ 'Scalar::Util::reftype' ]);
+
+=head2 varglob (VARNAME)
+
+This returns a glob reference for the symbol table entry of VARNAME in
+the package of the compartment. VARNAME must be the B<name> of a
+variable without any leading type marker. For example:
+
+    ${$cpt->varglob('foo')} = "Hello world";
+
+has the same effect as:
+
+    $cpt = new Safe 'Root';
+    $Root::foo = "Hello world";
+
+but avoids the need to know $cpt's package name.
+
+
+=head2 reval (STRING, STRICT)
+
+This evaluates STRING as perl code inside the compartment.
+
+The code can only see the compartment's namespace (as returned by the
+B<root> method). The compartment's root package appears to be the
+C<main::> package to the code inside the compartment.
+
+Any attempt by the code in STRING to use an operator which is not permitted
+by the compartment will cause an error (at run-time of the main program
+but at compile-time for the code in STRING).  The error is of the form
+"'%s' trapped by operation mask...".
+
+If an operation is trapped in this way, then the code in STRING will
+not be executed. If such a trapped operation occurs or any other
+compile-time or return error, then $@ is set to the error message, just
+as with an eval().
+
+If there is no error, then the method returns the value of the last
+expression evaluated, or a return statement may be used, just as with
+subroutines and B<eval()>. The context (list or scalar) is determined
+by the caller as usual.
+
+If the return value of reval() is (or contains) any code reference,
+those code references are wrapped to be themselves executed always
+in the compartment. See L</wrap_code_refs_within>.
+
+The formerly undocumented STRICT argument sets strictness: if true
+'use strict;' is used, otherwise it uses 'no strict;'. B<Note>: if
+STRICT is omitted 'no strict;' is the default.
+
+Some points to note:
+
+If the entereval op is permitted then the code can use eval "..." to
+'hide' code which might use denied ops. This is not a major problem
+since when the code tries to execute the eval it will fail because the
+opmask is still in effect. However this technique would allow clever,
+and possibly harmful, code to 'probe' the boundaries of what is
+possible.
+
+Any string eval which is executed by code executing in a compartment,
+or by code called from code executing in a compartment, will be eval'd
+in the namespace of the compartment. This is potentially a serious
+problem.
+
+Consider a function foo() in package pkg compiled outside a compartment
+but shared with it. Assume the compartment has a root package called
+'Root'. If foo() contains an eval statement like eval '$foo = 1' then,
+normally, $pkg::foo will be set to 1.  If foo() is called from the
+compartment (by whatever means) then instead of setting $pkg::foo, the
+eval will actually set $Root::pkg::foo.
+
+This can easily be demonstrated by using a module, such as the Socket
+module, which uses eval "..." as part of an AUTOLOAD function. You can
+'use' the module outside the compartment and share an (autoloaded)
+function with the compartment. If an autoload is triggered by code in
+the compartment, or by any code anywhere that is called by any means
+from the compartment, then the eval in the Socket module's AUTOLOAD
+function happens in the namespace of the compartment. Any variables
+created or used by the eval'd code are now under the control of
+the code in the compartment.
+
+A similar effect applies to I<all> runtime symbol lookups in code
+called from a compartment but not compiled within it.
+
+=head2 rdo (FILENAME)
+
+This evaluates the contents of file FILENAME inside the compartment.
+See above documentation on the B<reval> method for further details.
+
+=head2 root (NAMESPACE)
+
+This method returns the name of the package that is the root of the
+compartment's namespace.
+
+Note that this behaviour differs from version 1.00 of the Safe module
+where the root module could be used to change the namespace. That
+functionality has been withdrawn pending deeper consideration.
+
+=head2 mask (MASK)
+
+This is a get-or-set method for the compartment's operator mask.
+
+With no MASK argument present, it returns the current operator mask of
+the compartment.
+
+With the MASK argument present, it sets the operator mask for the
+compartment (equivalent to calling the deny_only method).
+
+=head2 wrap_code_ref (CODEREF)
+
+Returns a reference to an anonymous subroutine that, when executed, will call
+CODEREF with the Safe compartment 'in effect'.  In other words, with the
+package namespace adjusted and the opmask enabled.
+
+Note that the opmask doesn't affect the already compiled code, it only affects
+any I<further> compilation that the already compiled code may try to perform.
+
+This is particularly useful when applied to code references returned from reval().
+
+(It also provides a kind of workaround for RT#60374: "Safe.pm sort {} bug with
+-Dusethreads". See L<http://rt.perl.org/rt3//Public/Bug/Display.html?id=60374>
+for I<much> more detail.)
+
+=head2 wrap_code_refs_within (...)
+
+Wraps any CODE references found within the arguments by replacing each with the
+result of calling L</wrap_code_ref> on the CODE reference. Any ARRAY or HASH
+references in the arguments are inspected recursively.
+
+Returns nothing.
+
+=head1 RISKS
+
+This section is just an outline of some of the things code in a compartment
+might do (intentionally or unintentionally) which can have an effect outside
+the compartment.
+
+=over 8
+
+=item Memory
+
+Consuming all (or nearly all) available memory.
+
+=item CPU
+
+Causing infinite loops etc.
+
+=item Snooping
+
+Copying private information out of your system. Even something as
+simple as your user name is of value to others. Much useful information
+could be gleaned from your environment variables for example.
+
+=item Signals
+
+Causing signals (especially SIGFPE and SIGALARM) to affect your process.
+
+Setting up a signal handler will need to be carefully considered
+and controlled.  What mask is in effect when a signal handler
+gets called?  If a user can get an imported function to get an
+exception and call the user's signal handler, does that user's
+restricted mask get re-instated before the handler is called?
+Does an imported handler get called with its original mask or
+the user's one?
+
+=item State Changes
+
+Ops such as chdir obviously effect the process as a whole and not just
+the code in the compartment. Ops such as rand and srand have a similar
+but more subtle effect.
+
+=back
+
+=head1 AUTHOR
+
+Originally designed and implemented by Malcolm Beattie.
+
+Reworked to use the Opcode module and other changes added by Tim Bunce.
+
+Currently maintained by the Perl 5 Porters, <perl5-porters@perl.org>.
+
+=cut
+
diff --git a/lib/5.24.1/Search/Dict.pm b/lib/5.24.1/Search/Dict.pm
new file mode 100644
index 00000000..f34d2220
--- /dev/null
+++ b/lib/5.24.1/Search/Dict.pm
@@ -0,0 +1,128 @@
+package Search::Dict;
+require 5.000;
+require Exporter;
+
+my $fc_available;
+BEGIN {
+  $fc_available = '5.015008';
+  if ( $] ge $fc_available ) {
+    require feature;
+    'feature'->import('fc'); # string avoids warning on old Perls <sigh>
+  }
+}
+
+use strict;
+
+our $VERSION = '1.07';
+our @ISA = qw(Exporter);
+our @EXPORT = qw(look);
+
+=head1 NAME
+
+Search::Dict - look - search for key in dictionary file
+
+=head1 SYNOPSIS
+
+    use Search::Dict;
+    look *FILEHANDLE, $key, $dict, $fold;
+
+    use Search::Dict;
+    look *FILEHANDLE, $params;
+
+=head1 DESCRIPTION
+
+Sets file position in FILEHANDLE to be first line greater than or equal
+(stringwise) to I<$key>.  Returns the new file position, or -1 if an error
+occurs.
+
+The flags specify dictionary order and case folding:
+
+If I<$dict> is true, search by dictionary order (ignore anything but word
+characters and whitespace).  The default is honour all characters.
+
+If I<$fold> is true, ignore case.  The default is to honour case.
+
+If there are only three arguments and the third argument is a hash
+reference, the keys of that hash can have values C<dict>, C<fold>, and
+C<comp> or C<xfrm> (see below), and their corresponding values will be
+used as the parameters.
+
+If a comparison subroutine (comp) is defined, it must return less than zero,
+zero, or greater than zero, if the first comparand is less than,
+equal, or greater than the second comparand.
+
+If a transformation subroutine (xfrm) is defined, its value is used to
+transform the lines read from the filehandle before their comparison.
+
+=cut
+
+sub look {
+    my($fh,$key,$dict,$fold) = @_;
+    my ($comp, $xfrm);
+    if (@_ == 3 && ref $dict eq 'HASH') {
+	my $params = $dict;
+	$dict = 0;
+	$dict = $params->{dict} if exists $params->{dict};
+	$fold = $params->{fold} if exists $params->{fold};
+	$comp = $params->{comp} if exists $params->{comp};
+	$xfrm = $params->{xfrm} if exists $params->{xfrm};
+    }
+    $comp = sub { $_[0] cmp $_[1] } unless defined $comp;
+    local($_);
+    my $fno = fileno $fh;
+    my @stat;
+    if ( defined $fno && $fno >= 0 && ! tied *{$fh} ) { # real, open file
+      @stat = eval { stat($fh) }; # in case fileno lies
+    }
+    my($size, $blksize) = @stat[7,11];
+    $size = do { seek($fh,0,2); my $s = tell($fh); seek($fh,0,0); $s }
+        unless defined $size;
+    $blksize ||= 8192;
+    $key =~ s/[^\w\s]//g if $dict;
+    if ( $fold ) {
+      $key = $] ge $fc_available ? fc($key) : lc($key);
+    }
+    # find the right block
+    my($min, $max) = (0, int($size / $blksize));
+    my $mid;
+    while ($max - $min > 1) {
+	$mid = int(($max + $min) / 2);
+	seek($fh, $mid * $blksize, 0)
+	    or return -1;
+	<$fh> if $mid;			# probably a partial line
+	$_ = <$fh>;
+	$_ = $xfrm->($_) if defined $xfrm;
+	chomp;
+	s/[^\w\s]//g if $dict;
+        if ( $fold ) {
+          $_ = $] ge $fc_available ? fc($_) : lc($_);
+        }
+	if (defined($_) && $comp->($_, $key) < 0) {
+	    $min = $mid;
+	}
+	else {
+	    $max = $mid;
+	}
+    }
+    # find the right line
+    $min *= $blksize;
+    seek($fh,$min,0)
+	or return -1;
+    <$fh> if $min;
+    for (;;) {
+	$min = tell($fh);
+	defined($_ = <$fh>)
+	    or last;
+	$_ = $xfrm->($_) if defined $xfrm;
+	chomp;
+	s/[^\w\s]//g if $dict;
+        if ( $fold ) {
+          $_ = $] ge $fc_available ? fc($_) : lc($_);
+        }
+	last if $comp->($_, $key) >= 0;
+    }
+    seek($fh,$min,0);
+    $min;
+}
+
+1;
diff --git a/lib/5.24.1/SelectSaver.pm b/lib/5.24.1/SelectSaver.pm
new file mode 100644
index 00000000..b67adff4
--- /dev/null
+++ b/lib/5.24.1/SelectSaver.pm
@@ -0,0 +1,54 @@
+package SelectSaver;
+
+our $VERSION = '1.02';
+
+=head1 NAME
+
+SelectSaver - save and restore selected file handle
+
+=head1 SYNOPSIS
+
+    use SelectSaver;
+
+    {
+       my $saver = SelectSaver->new(FILEHANDLE);
+       # FILEHANDLE is selected
+    }
+    # previous handle is selected
+
+    {
+       my $saver = SelectSaver->new;
+       # new handle may be selected, or not
+    }
+    # previous handle is selected
+
+=head1 DESCRIPTION
+
+A C<SelectSaver> object contains a reference to the file handle that
+was selected when it was created.  If its C<new> method gets an extra
+parameter, then that parameter is selected; otherwise, the selected
+file handle remains unchanged.
+
+When a C<SelectSaver> is destroyed, it re-selects the file handle
+that was selected when it was created.
+
+=cut
+
+require 5.000;
+use Carp;
+use Symbol;
+
+sub new {
+    @_ >= 1 && @_ <= 2 or croak 'usage: SelectSaver->new( [FILEHANDLE] )';
+    my $fh = select;
+    my $self = bless \$fh, $_[0];
+    select qualify($_[1], caller) if @_ > 1;
+    $self;
+}
+
+sub DESTROY {
+    my $self = $_[0];
+    select $$self;
+}
+
+1;
diff --git a/lib/5.24.1/SelfLoader.pm b/lib/5.24.1/SelfLoader.pm
new file mode 100644
index 00000000..e36cb923
--- /dev/null
+++ b/lib/5.24.1/SelfLoader.pm
@@ -0,0 +1,455 @@
+package SelfLoader;
+use 5.008;
+use strict;
+use IO::Handle;
+our $VERSION = "1.23";
+
+# The following bit of eval-magic is necessary to make this work on
+# perls < 5.009005.
+use vars qw/$AttrList/;
+BEGIN {
+  if ($] > 5.009004) {
+    eval <<'NEWERPERL';
+use 5.009005; # due to new regexp features
+# allow checking for valid ': attrlist' attachments
+# see also AutoSplit
+$AttrList = qr{
+    \s* : \s*
+    (?:
+	# one attribute
+	(?> # no backtrack
+	    (?! \d) \w+
+	    (?<nested> \( (?: [^()]++ | (?&nested)++ )*+ \) ) ?
+	)
+	(?: \s* : \s* | \s+ (?! :) )
+    )*
+}x;
+
+NEWERPERL
+  }
+  else {
+    eval <<'OLDERPERL';
+# allow checking for valid ': attrlist' attachments
+# (we use 'our' rather than 'my' here, due to the rather complex and buggy
+# behaviour of lexicals with qr// and (??{$lex}) )
+our $nested;
+$nested = qr{ \( (?: (?> [^()]+ ) | (??{ $nested }) )* \) }x;
+our $one_attr = qr{ (?> (?! \d) \w+ (?:$nested)? ) (?:\s*\:\s*|\s+(?!\:)) }x;
+$AttrList = qr{ \s* : \s* (?: $one_attr )* }x;
+OLDERPERL
+  }
+}
+use Exporter;
+our @ISA = qw(Exporter);
+our @EXPORT = qw(AUTOLOAD);
+sub Version {$VERSION}
+sub DEBUG () { 0 }
+
+my %Cache;      # private cache for all SelfLoader's client packages
+
+# in croak and carp, protect $@ from "require Carp;" RT #40216
+
+sub croak { { local $@; require Carp; } goto &Carp::croak }
+sub carp { { local $@; require Carp; } goto &Carp::carp }
+
+AUTOLOAD {
+    our $AUTOLOAD;
+    print STDERR "SelfLoader::AUTOLOAD for $AUTOLOAD\n" if DEBUG;
+    my $SL_code = $Cache{$AUTOLOAD};
+    my $save = $@; # evals in both AUTOLOAD and _load_stubs can corrupt $@
+    unless ($SL_code) {
+        # Maybe this pack had stubs before __DATA__, and never initialized.
+        # Or, this maybe an automatic DESTROY method call when none exists.
+        $AUTOLOAD =~ m/^(.*)::/;
+        SelfLoader->_load_stubs($1) unless exists $Cache{"${1}::<DATA"};
+        $SL_code = $Cache{$AUTOLOAD};
+        $SL_code = "sub $AUTOLOAD { }"
+            if (!$SL_code and $AUTOLOAD =~ m/::DESTROY$/);
+        croak "Undefined subroutine $AUTOLOAD" unless $SL_code;
+    }
+    print STDERR "SelfLoader::AUTOLOAD eval: $SL_code\n" if DEBUG;
+
+    {
+	no strict;
+	eval $SL_code;
+    }
+    if ($@) {
+        $@ =~ s/ at .*\n//;
+        croak $@;
+    }
+    $@ = $save;
+    defined(&$AUTOLOAD) || die "SelfLoader inconsistency error";
+    delete $Cache{$AUTOLOAD};
+    goto &$AUTOLOAD
+}
+
+sub load_stubs { shift->_load_stubs((caller)[0]) }
+
+sub _load_stubs {
+    # $endlines is used by Devel::SelfStubber to capture lines after __END__
+    my($self, $callpack, $endlines) = @_;
+    no strict "refs";
+    my $fh = \*{"${callpack}::DATA"};
+    use strict;
+    my $currpack = $callpack;
+    my($line,$name,@lines, @stubs, $protoype);
+
+    print STDERR "SelfLoader::load_stubs($callpack)\n" if DEBUG;
+    croak("$callpack doesn't contain an __DATA__ token")
+        unless defined fileno($fh);
+    # Protect: fork() shares the file pointer between the parent and the kid
+    if(sysseek($fh, tell($fh), 0)) {
+      open my $nfh, '<&', $fh or croak "reopen: $!";# dup() the fd
+      close $fh or die "close: $!";                 # autocloses, but be
+                                                    # paranoid
+      open $fh, '<&', $nfh or croak "reopen2: $!";  # dup() the fd "back"
+      close $nfh or die "close after reopen: $!";   # autocloses, but be
+                                                    # paranoid
+      $fh->untaint;
+    }
+    $Cache{"${currpack}::<DATA"} = 1;   # indicate package is cached
+
+    local($/) = "\n";
+    while(defined($line = <$fh>) and $line !~ m/^__END__/) {
+	if ($line =~ m/ ^\s*                        # indentation
+	                sub\s+([\w:]+)\s*           # 'sub' and sub name
+	                (
+	                 (?:\([\\\$\@\%\&\*\;]*\))? # optional prototype sigils
+	                 (?:$AttrList)?             # optional attribute list
+	                )/x) {
+            push(@stubs, $self->_add_to_cache($name, $currpack,
+                                              \@lines, $protoype));
+            $protoype = $2;
+            @lines = ($line);
+            if (index($1,'::') == -1) {         # simple sub name
+                $name = "${currpack}::$1";
+            } else {                            # sub name with package
+                $name = $1;
+                $name =~ m/^(.*)::/;
+                if (defined(&{"${1}::AUTOLOAD"})) {
+                    \&{"${1}::AUTOLOAD"} == \&SelfLoader::AUTOLOAD ||
+                        die 'SelfLoader Error: attempt to specify Selfloading',
+                            " sub $name in non-selfloading module $1";
+                } else {
+                    $self->export($1,'AUTOLOAD');
+                }
+            }
+        } elsif ($line =~ m/^package\s+([\w:]+)/) { # A package declared
+            push(@stubs, $self->_add_to_cache($name, $currpack,
+                                              \@lines, $protoype));
+            $self->_package_defined($line);
+            $name = '';
+            @lines = ();
+            $currpack = $1;
+            $Cache{"${currpack}::<DATA"} = 1;   # indicate package is cached
+            if (defined(&{"${1}::AUTOLOAD"})) {
+                \&{"${1}::AUTOLOAD"} == \&SelfLoader::AUTOLOAD ||
+                    die 'SelfLoader Error: attempt to specify Selfloading',
+                        " package $currpack which already has AUTOLOAD";
+            } else {
+                $self->export($currpack,'AUTOLOAD');
+            }
+        } else {
+            push(@lines,$line);
+        }
+    }
+    if (defined($line) && $line =~ /^__END__/) { # __END__
+        unless ($line =~ /^__END__\s*DATA/) {
+            if ($endlines) {
+                # Devel::SelfStubber would like us to capture the lines after
+                # __END__ so it can write out the entire file
+                @$endlines = <$fh>;
+            }
+            close($fh);
+        }
+    }
+    push(@stubs, $self->_add_to_cache($name, $currpack, \@lines, $protoype));
+    no strict;
+    eval join('', @stubs) if @stubs;
+}
+
+
+sub _add_to_cache {
+    my($self,$fullname,$pack,$lines, $protoype) = @_;
+    return () unless $fullname;
+    carp("Redefining sub $fullname")
+      if exists $Cache{$fullname};
+    $Cache{$fullname} = join('',
+                             "\n\#line 1 \"sub $fullname\"\npackage $pack; ",
+                             @$lines);
+    #$Cache{$fullname} = join('', "package $pack; ",@$lines);
+    print STDERR "SelfLoader cached $fullname: $Cache{$fullname}" if DEBUG;
+    # return stub to be eval'd
+    defined($protoype) ? "sub $fullname $protoype;" : "sub $fullname;"
+}
+
+sub _package_defined {}
+
+1;
+__END__
+
+=head1 NAME
+
+SelfLoader - load functions only on demand
+
+=head1 SYNOPSIS
+
+    package FOOBAR;
+    use SelfLoader;
+
+    ... (initializing code)
+
+    __DATA__
+    sub {....
+
+
+=head1 DESCRIPTION
+
+This module tells its users that functions in the FOOBAR package are to be
+autoloaded from after the C<__DATA__> token.  See also
+L<perlsub/"Autoloading">.
+
+=head2 The __DATA__ token
+
+The C<__DATA__> token tells the perl compiler that the perl code
+for compilation is finished. Everything after the C<__DATA__> token
+is available for reading via the filehandle FOOBAR::DATA,
+where FOOBAR is the name of the current package when the C<__DATA__>
+token is reached. This works just the same as C<__END__> does in
+package 'main', but for other modules data after C<__END__> is not
+automatically retrievable, whereas data after C<__DATA__> is.
+The C<__DATA__> token is not recognized in versions of perl prior to
+5.001m.
+
+Note that it is possible to have C<__DATA__> tokens in the same package
+in multiple files, and that the last C<__DATA__> token in a given
+package that is encountered by the compiler is the one accessible
+by the filehandle. This also applies to C<__END__> and main, i.e. if
+the 'main' program has an C<__END__>, but a module 'require'd (_not_ 'use'd)
+by that program has a 'package main;' declaration followed by an 'C<__DATA__>',
+then the C<DATA> filehandle is set to access the data after the C<__DATA__>
+in the module, _not_ the data after the C<__END__> token in the 'main'
+program, since the compiler encounters the 'require'd file later.
+
+=head2 SelfLoader autoloading
+
+The B<SelfLoader> works by the user placing the C<__DATA__>
+token I<after> perl code which needs to be compiled and
+run at 'require' time, but I<before> subroutine declarations
+that can be loaded in later - usually because they may never
+be called.
+
+The B<SelfLoader> will read from the FOOBAR::DATA filehandle to
+load in the data after C<__DATA__>, and load in any subroutine
+when it is called. The costs are the one-time parsing of the
+data after C<__DATA__>, and a load delay for the _first_
+call of any autoloaded function. The benefits (hopefully)
+are a speeded up compilation phase, with no need to load
+functions which are never used.
+
+The B<SelfLoader> will stop reading from C<__DATA__> if
+it encounters the C<__END__> token - just as you would expect.
+If the C<__END__> token is present, and is followed by the
+token DATA, then the B<SelfLoader> leaves the FOOBAR::DATA
+filehandle open on the line after that token.
+
+The B<SelfLoader> exports the C<AUTOLOAD> subroutine to the
+package using the B<SelfLoader>, and this loads the called
+subroutine when it is first called.
+
+There is no advantage to putting subroutines which will _always_
+be called after the C<__DATA__> token.
+
+=head2 Autoloading and package lexicals
+
+A 'my $pack_lexical' statement makes the variable $pack_lexical
+local _only_ to the file up to the C<__DATA__> token. Subroutines
+declared elsewhere _cannot_ see these types of variables,
+just as if you declared subroutines in the package but in another
+file, they cannot see these variables.
+
+So specifically, autoloaded functions cannot see package
+lexicals (this applies to both the B<SelfLoader> and the Autoloader).
+The C<vars> pragma provides an alternative to defining package-level
+globals that will be visible to autoloaded routines. See the documentation
+on B<vars> in the pragma section of L<perlmod>.
+
+=head2 SelfLoader and AutoLoader
+
+The B<SelfLoader> can replace the AutoLoader - just change 'use AutoLoader'
+to 'use SelfLoader' (though note that the B<SelfLoader> exports
+the AUTOLOAD function - but if you have your own AUTOLOAD and
+are using the AutoLoader too, you probably know what you're doing),
+and the C<__END__> token to C<__DATA__>. You will need perl version 5.001m
+or later to use this (version 5.001 with all patches up to patch m).
+
+There is no need to inherit from the B<SelfLoader>.
+
+The B<SelfLoader> works similarly to the AutoLoader, but picks up the
+subs from after the C<__DATA__> instead of in the 'lib/auto' directory.
+There is a maintenance gain in not needing to run AutoSplit on the module
+at installation, and a runtime gain in not needing to keep opening and
+closing files to load subs. There is a runtime loss in needing
+to parse the code after the C<__DATA__>. Details of the B<AutoLoader> and
+another view of these distinctions can be found in that module's
+documentation.
+
+=head2 __DATA__, __END__, and the FOOBAR::DATA filehandle.
+
+This section is only relevant if you want to use
+the C<FOOBAR::DATA> together with the B<SelfLoader>.
+
+Data after the C<__DATA__> token in a module is read using the
+FOOBAR::DATA filehandle. C<__END__> can still be used to denote the end
+of the C<__DATA__> section if followed by the token DATA - this is supported
+by the B<SelfLoader>. The C<FOOBAR::DATA> filehandle is left open if an
+C<__END__> followed by a DATA is found, with the filehandle positioned at
+the start of the line after the C<__END__> token. If no C<__END__> token is
+present, or an C<__END__> token with no DATA token on the same line, then
+the filehandle is closed.
+
+The B<SelfLoader> reads from wherever the current
+position of the C<FOOBAR::DATA> filehandle is, until the
+EOF or C<__END__>. This means that if you want to use
+that filehandle (and ONLY if you want to), you should either
+
+1. Put all your subroutine declarations immediately after
+the C<__DATA__> token and put your own data after those
+declarations, using the C<__END__> token to mark the end
+of subroutine declarations. You must also ensure that the B<SelfLoader>
+reads first by  calling 'SelfLoader-E<gt>load_stubs();', or by using a
+function which is selfloaded;
+
+or
+
+2. You should read the C<FOOBAR::DATA> filehandle first, leaving
+the handle open and positioned at the first line of subroutine
+declarations.
+
+You could conceivably do both.
+
+=head2 Classes and inherited methods.
+
+For modules which are not classes, this section is not relevant.
+This section is only relevant if you have methods which could
+be inherited.
+
+A subroutine stub (or forward declaration) looks like
+
+  sub stub;
+
+i.e. it is a subroutine declaration without the body of the
+subroutine. For modules which are not classes, there is no real
+need for stubs as far as autoloading is concerned.
+
+For modules which ARE classes, and need to handle inherited methods,
+stubs are needed to ensure that the method inheritance mechanism works
+properly. You can load the stubs into the module at 'require' time, by
+adding the statement 'SelfLoader-E<gt>load_stubs();' to the module to do
+this.
+
+The alternative is to put the stubs in before the C<__DATA__> token BEFORE
+releasing the module, and for this purpose the C<Devel::SelfStubber>
+module is available.  However this does require the extra step of ensuring
+that the stubs are in the module. If this is done I strongly recommend
+that this is done BEFORE releasing the module - it should NOT be done
+at install time in general.
+
+=head1 Multiple packages and fully qualified subroutine names
+
+Subroutines in multiple packages within the same file are supported - but you
+should note that this requires exporting the C<SelfLoader::AUTOLOAD> to
+every package which requires it. This is done automatically by the
+B<SelfLoader> when it first loads the subs into the cache, but you should
+really specify it in the initialization before the C<__DATA__> by putting
+a 'use SelfLoader' statement in each package.
+
+Fully qualified subroutine names are also supported. For example,
+
+   __DATA__
+   sub foo::bar {23}
+   package baz;
+   sub dob {32}
+
+will all be loaded correctly by the B<SelfLoader>, and the B<SelfLoader>
+will ensure that the packages 'foo' and 'baz' correctly have the
+B<SelfLoader> C<AUTOLOAD> method when the data after C<__DATA__> is first
+parsed.
+
+=head1 AUTHOR
+
+C<SelfLoader> is maintained by the perl5-porters. Please direct
+any questions to the canonical mailing list. Anything that
+is applicable to the CPAN release can be sent to its maintainer,
+though.
+
+Author and Maintainer: The Perl5-Porters <perl5-porters@perl.org>
+
+Maintainer of the CPAN release: Steffen Mueller <smueller@cpan.org>
+
+=head1 COPYRIGHT AND LICENSE
+
+This package has been part of the perl core since the first release
+of perl5. It has been released separately to CPAN so older installations
+can benefit from bug fixes.
+
+This package has the same copyright and license as the perl core:
+
+Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999,
+2000, 2001, 2002, 2003, 2004, 2005, 2006 by Larry Wall and others
+
+All rights reserved.
+
+This program is free software; you can redistribute it and/or modify
+it under the terms of either:
+
+=over 4
+
+=item a)
+
+the GNU General Public License as published by the Free Software Foundation;
+either version 1, or (at your option) any later version, or
+
+=item b)
+
+the "Artistic License" which comes with this Kit.
+
+=back
+
+This program is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See either
+the GNU General Public License or the Artistic License for more details.
+
+You should have received a copy of the Artistic License with this
+Kit, in the file named "Artistic".  If not, I'll be glad to provide one.
+
+You should also have received a copy of the GNU General Public License
+along with this program in the file named "Copying". If not, write to the
+Free Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston,
+MA 02110-1301, USA or visit their web page on the internet at
+http://www.gnu.org/copyleft/gpl.html.
+
+For those of you that choose to use the GNU General Public License,
+my interpretation of the GNU General Public License is that no Perl
+script falls under the terms of the GPL unless you explicitly put
+said script under the terms of the GPL yourself.  Furthermore, any
+object code linked with perl does not automatically fall under the
+terms of the GPL, provided such object code only adds definitions
+of subroutines and variables, and does not otherwise impair the
+resulting interpreter from executing any standard Perl script.  I
+consider linking in C subroutines in this manner to be the moral
+equivalent of defining subroutines in the Perl language itself.  You
+may sell such an object file as proprietary provided that you provide
+or offer to provide the Perl source, as specified by the GNU General
+Public License.  (This is merely an alternate way of specifying input
+to the program.)  You may also sell a binary produced by the dumping of
+a running Perl script that belongs to you, provided that you provide or
+offer to provide the Perl source as specified by the GPL.  (The
+fact that a Perl interpreter and your code are in the same binary file
+is, in this case, a form of mere aggregation.)  This is my interpretation
+of the GPL.  If you still have concerns or difficulties understanding
+my intent, feel free to contact me.  Of course, the Artistic License
+spells all this out for your protection, so you may prefer to use that.
+
+=cut
diff --git a/lib/5.24.1/Symbol.pm b/lib/5.24.1/Symbol.pm
new file mode 100644
index 00000000..1e408b59
--- /dev/null
+++ b/lib/5.24.1/Symbol.pm
@@ -0,0 +1,170 @@
+package Symbol;
+
+=head1 NAME
+
+Symbol - manipulate Perl symbols and their names
+
+=head1 SYNOPSIS
+
+    use Symbol;
+
+    $sym = gensym;
+    open($sym, "filename");
+    $_ = <$sym>;
+    # etc.
+
+    ungensym $sym;      # no effect
+
+    # replace *FOO{IO} handle but not $FOO, %FOO, etc.
+    *FOO = geniosym;
+
+    print qualify("x"), "\n";              # "main::x"
+    print qualify("x", "FOO"), "\n";       # "FOO::x"
+    print qualify("BAR::x"), "\n";         # "BAR::x"
+    print qualify("BAR::x", "FOO"), "\n";  # "BAR::x"
+    print qualify("STDOUT", "FOO"), "\n";  # "main::STDOUT" (global)
+    print qualify(\*x), "\n";              # returns \*x
+    print qualify(\*x, "FOO"), "\n";       # returns \*x
+
+    use strict refs;
+    print { qualify_to_ref $fh } "foo!\n";
+    $ref = qualify_to_ref $name, $pkg;
+
+    use Symbol qw(delete_package);
+    delete_package('Foo::Bar');
+    print "deleted\n" unless exists $Foo::{'Bar::'};
+
+=head1 DESCRIPTION
+
+C<Symbol::gensym> creates an anonymous glob and returns a reference
+to it.  Such a glob reference can be used as a file or directory
+handle.
+
+For backward compatibility with older implementations that didn't
+support anonymous globs, C<Symbol::ungensym> is also provided.
+But it doesn't do anything.
+
+C<Symbol::geniosym> creates an anonymous IO handle.  This can be
+assigned into an existing glob without affecting the non-IO portions
+of the glob.
+
+C<Symbol::qualify> turns unqualified symbol names into qualified
+variable names (e.g. "myvar" -E<gt> "MyPackage::myvar").  If it is given a
+second parameter, C<qualify> uses it as the default package;
+otherwise, it uses the package of its caller.  Regardless, global
+variable names (e.g. "STDOUT", "ENV", "SIG") are always qualified with
+"main::".
+
+Qualification applies only to symbol names (strings).  References are
+left unchanged under the assumption that they are glob references,
+which are qualified by their nature.
+
+C<Symbol::qualify_to_ref> is just like C<Symbol::qualify> except that it
+returns a glob ref rather than a symbol name, so you can use the result
+even if C<use strict 'refs'> is in effect.
+
+C<Symbol::delete_package> wipes out a whole package namespace.  Note
+this routine is not exported by default--you may want to import it
+explicitly.
+
+=head1 BUGS
+
+C<Symbol::delete_package> is a bit too powerful. It undefines every symbol that
+lives in the specified package. Since perl, for performance reasons, does not
+perform a symbol table lookup each time a function is called or a global
+variable is accessed, some code that has already been loaded and that makes use
+of symbols in package C<Foo> may stop working after you delete C<Foo>, even if
+you reload the C<Foo> module afterwards.
+
+=cut
+
+BEGIN { require 5.005; }
+
+require Exporter;
+@ISA = qw(Exporter);
+@EXPORT = qw(gensym ungensym qualify qualify_to_ref);
+@EXPORT_OK = qw(delete_package geniosym);
+
+$VERSION = '1.07';
+
+my $genpkg = "Symbol::";
+my $genseq = 0;
+
+my %global = map {$_ => 1} qw(ARGV ARGVOUT ENV INC SIG STDERR STDIN STDOUT);
+
+#
+# Note that we never _copy_ the glob; we just make a ref to it.
+# If we did copy it, then SVf_FAKE would be set on the copy, and
+# glob-specific behaviors (e.g. C<*$ref = \&func>) wouldn't work.
+#
+sub gensym () {
+    my $name = "GEN" . $genseq++;
+    my $ref = \*{$genpkg . $name};
+    delete $$genpkg{$name};
+    $ref;
+}
+
+sub geniosym () {
+    my $sym = gensym();
+    # force the IO slot to be filled
+    select(select $sym);
+    *$sym{IO};
+}
+
+sub ungensym ($) {}
+
+sub qualify ($;$) {
+    my ($name) = @_;
+    if (!ref($name) && index($name, '::') == -1 && index($name, "'") == -1) {
+	my $pkg;
+	# Global names: special character, "^xyz", or other. 
+	if ($name =~ /^(([^a-z])|(\^[a-z_]+))\z/i || $global{$name}) {
+	    # RGS 2001-11-05 : translate leading ^X to control-char
+	    $name =~ s/^\^([a-z_])/'qq(\c'.$1.')'/eei;
+	    $pkg = "main";
+	}
+	else {
+	    $pkg = (@_ > 1) ? $_[1] : caller;
+	}
+	$name = $pkg . "::" . $name;
+    }
+    $name;
+}
+
+sub qualify_to_ref ($;$) {
+    return \*{ qualify $_[0], @_ > 1 ? $_[1] : caller };
+}
+
+#
+# of Safe.pm lineage
+#
+sub delete_package ($) {
+    my $pkg = shift;
+
+    # expand to full symbol table name if needed
+
+    unless ($pkg =~ /^main::.*::$/) {
+        $pkg = "main$pkg"	if	$pkg =~ /^::/;
+        $pkg = "main::$pkg"	unless	$pkg =~ /^main::/;
+        $pkg .= '::'		unless	$pkg =~ /::$/;
+    }
+
+    my($stem, $leaf) = $pkg =~ m/(.*::)(\w+::)$/;
+    my $stem_symtab = *{$stem}{HASH};
+    return unless defined $stem_symtab and exists $stem_symtab->{$leaf};
+
+
+    # free all the symbols in the package
+
+    my $leaf_symtab = *{$stem_symtab->{$leaf}}{HASH};
+    foreach my $name (keys %$leaf_symtab) {
+        undef *{$pkg . $name};
+    }
+
+    # delete the symbol table
+
+    %$leaf_symtab = ();
+    delete $stem_symtab->{$leaf};
+}
+
+1;
diff --git a/lib/5.24.1/TAP/Base.pm b/lib/5.24.1/TAP/Base.pm
new file mode 100644
index 00000000..e6ea22d6
--- /dev/null
+++ b/lib/5.24.1/TAP/Base.pm
@@ -0,0 +1,133 @@
+package TAP::Base;
+
+use strict;
+use warnings;
+
+use base 'TAP::Object';
+
+=head1 NAME
+
+TAP::Base - Base class that provides common functionality to L<TAP::Parser>
+and L<TAP::Harness>
+
+=head1 VERSION
+
+Version 3.36
+
+=cut
+
+our $VERSION = '3.36_01';
+
+use constant GOT_TIME_HIRES => do {
+    eval 'use Time::HiRes qw(time);';
+    $@ ? 0 : 1;
+};
+
+=head1 SYNOPSIS
+
+    package TAP::Whatever;
+
+    use base 'TAP::Base';
+
+    # ... later ...
+    
+    my $thing = TAP::Whatever->new();
+    
+    $thing->callback( event => sub {
+        # do something interesting
+    } );
+
+=head1 DESCRIPTION
+
+C<TAP::Base> provides callback management.
+
+=head1 METHODS
+
+=head2 Class Methods
+
+=cut
+
+sub _initialize {
+    my ( $self, $arg_for, $ok_callback ) = @_;
+
+    my %ok_map = map { $_ => 1 } @$ok_callback;
+
+    $self->{ok_callbacks} = \%ok_map;
+
+    if ( my $cb = delete $arg_for->{callbacks} ) {
+        while ( my ( $event, $callback ) = each %$cb ) {
+            $self->callback( $event, $callback );
+        }
+    }
+
+    return $self;
+}
+
+=head3 C<callback>
+
+Install a callback for a named event.
+
+=cut
+
+sub callback {
+    my ( $self, $event, $callback ) = @_;
+
+    my %ok_map = %{ $self->{ok_callbacks} };
+
+    $self->_croak('No callbacks may be installed')
+      unless %ok_map;
+
+    $self->_croak( "Callback $event is not supported. Valid callbacks are "
+          . join( ', ', sort keys %ok_map ) )
+      unless exists $ok_map{$event};
+
+    push @{ $self->{code_for}{$event} }, $callback;
+
+    return;
+}
+
+sub _has_callbacks {
+    my $self = shift;
+    return keys %{ $self->{code_for} } != 0;
+}
+
+sub _callback_for {
+    my ( $self, $event ) = @_;
+    return $self->{code_for}{$event};
+}
+
+sub _make_callback {
+    my $self  = shift;
+    my $event = shift;
+
+    my $cb = $self->_callback_for($event);
+    return unless defined $cb;
+    return map { $_->(@_) } @$cb;
+}
+
+=head3 C<get_time>
+
+Return the current time using Time::HiRes if available.
+
+=cut
+
+sub get_time { return time() }
+
+=head3 C<time_is_hires>
+
+Return true if the time returned by get_time is high resolution (i.e. if Time::HiRes is available).
+
+=cut
+
+sub time_is_hires { return GOT_TIME_HIRES }
+
+=head3 C<get_times>
+
+Return array reference of the four-element list of CPU seconds,
+as with L<perlfunc/times>.
+
+=cut
+
+sub get_times { return [ times() ] }
+
+1;
diff --git a/lib/5.24.1/TAP/Formatter/Base.pm b/lib/5.24.1/TAP/Formatter/Base.pm
new file mode 100644
index 00000000..a2fa3ea7
--- /dev/null
+++ b/lib/5.24.1/TAP/Formatter/Base.pm
@@ -0,0 +1,467 @@
+package TAP::Formatter::Base;
+
+use strict;
+use warnings;
+use base 'TAP::Base';
+use POSIX qw(strftime);
+
+my $MAX_ERRORS = 5;
+my %VALIDATION_FOR;
+
+BEGIN {
+    %VALIDATION_FOR = (
+        directives => sub { shift; shift },
+        verbosity  => sub { shift; shift },
+        normalize  => sub { shift; shift },
+        timer      => sub { shift; shift },
+        failures   => sub { shift; shift },
+        comments   => sub { shift; shift },
+        errors     => sub { shift; shift },
+        color      => sub { shift; shift },
+        jobs       => sub { shift; shift },
+        show_count => sub { shift; shift },
+        stdout     => sub {
+            my ( $self, $ref ) = @_;
+
+            $self->_croak("option 'stdout' needs a filehandle")
+              unless $self->_is_filehandle($ref);
+
+            return $ref;
+        },
+    );
+
+    sub _is_filehandle {
+        my ( $self, $ref ) = @_;
+
+        return 0 if !defined $ref;
+
+        return 1 if ref $ref eq 'GLOB';    # lexical filehandle
+        return 1 if !ref $ref && ref \$ref eq 'GLOB'; # bare glob like *STDOUT
+
+        return 1 if eval { $ref->can('print') };
+
+        return 0;
+    }
+
+    my @getter_setters = qw(
+      _longest
+      _printed_summary_header
+      _colorizer
+    );
+
+    __PACKAGE__->mk_methods( @getter_setters, keys %VALIDATION_FOR );
+}
+
+=head1 NAME
+
+TAP::Formatter::Base - Base class for harness output delegates
+
+=head1 VERSION
+
+Version 3.36
+
+=cut
+
+our $VERSION = '3.36_01';
+
+=head1 DESCRIPTION
+
+This provides console orientated output formatting for TAP::Harness.
+
+=head1 SYNOPSIS
+
+ use TAP::Formatter::Console;
+ my $harness = TAP::Formatter::Console->new( \%args );
+
+=cut
+
+sub _initialize {
+    my ( $self, $arg_for ) = @_;
+    $arg_for ||= {};
+
+    $self->SUPER::_initialize($arg_for);
+    my %arg_for = %$arg_for;    # force a shallow copy
+
+    $self->verbosity(0);
+
+    for my $name ( keys %VALIDATION_FOR ) {
+        my $property = delete $arg_for{$name};
+        if ( defined $property ) {
+            my $validate = $VALIDATION_FOR{$name};
+            $self->$name( $self->$validate($property) );
+        }
+    }
+
+    if ( my @props = keys %arg_for ) {
+        $self->_croak(
+            "Unknown arguments to " . __PACKAGE__ . "::new (@props)" );
+    }
+
+    $self->stdout( \*STDOUT ) unless $self->stdout;
+
+    if ( $self->color ) {
+        require TAP::Formatter::Color;
+        $self->_colorizer( TAP::Formatter::Color->new );
+    }
+
+    return $self;
+}
+
+sub verbose      { shift->verbosity >= 1 }
+sub quiet        { shift->verbosity <= -1 }
+sub really_quiet { shift->verbosity <= -2 }
+sub silent       { shift->verbosity <= -3 }
+
+=head1 METHODS
+
+=head2 Class Methods
+
+=head3 C<new>
+
+ my %args = (
+    verbose => 1,
+ )
+ my $harness = TAP::Formatter::Console->new( \%args );
+
+The constructor returns a new C<TAP::Formatter::Console> object. If
+a L<TAP::Harness> is created with no C<formatter> a
+C<TAP::Formatter::Console> is automatically created. If any of the
+following options were given to TAP::Harness->new they well be passed to
+this constructor which accepts an optional hashref whose allowed keys are:
+
+=over 4
+
+=item * C<verbosity>
+
+Set the verbosity level.
+
+=item * C<verbose>
+
+Printing individual test results to STDOUT.
+
+=item * C<timer>
+
+Append run time for each test to output. Uses L<Time::HiRes> if available.
+
+=item * C<failures>
+
+Show test failures (this is a no-op if C<verbose> is selected).
+
+=item * C<comments>
+
+Show test comments (this is a no-op if C<verbose> is selected).
+
+=item * C<quiet>
+
+Suppressing some test output (mostly failures while tests are running).
+
+=item * C<really_quiet>
+
+Suppressing everything but the tests summary.
+
+=item * C<silent>
+
+Suppressing all output.
+
+=item * C<errors>
+
+If parse errors are found in the TAP output, a note of this will be made
+in the summary report.  To see all of the parse errors, set this argument to
+true:
+
+  errors => 1
+
+=item * C<directives>
+
+If set to a true value, only test results with directives will be displayed.
+This overrides other settings such as C<verbose>, C<failures>, or C<comments>.
+
+=item * C<stdout>
+
+A filehandle for catching standard output.
+
+=item * C<color>
+
+If defined specifies whether color output is desired. If C<color> is not
+defined it will default to color output if color support is available on
+the current platform and output is not being redirected.
+
+=item * C<jobs>
+
+The number of concurrent jobs this formatter will handle.
+
+=item * C<show_count>
+
+Boolean value.  If false, disables the C<X/Y> test count which shows up while
+tests are running.
+
+=back
+
+Any keys for which the value is C<undef> will be ignored.
+
+=cut
+
+# new supplied by TAP::Base
+
+=head3 C<prepare>
+
+Called by Test::Harness before any test output is generated. 
+
+This is an advisory and may not be called in the case where tests are
+being supplied to Test::Harness by an iterator.
+
+=cut
+
+sub prepare {
+    my ( $self, @tests ) = @_;
+
+    my $longest = 0;
+
+    for my $test (@tests) {
+        $longest = length $test if length $test > $longest;
+    }
+
+    $self->_longest($longest);
+}
+
+sub _format_now { strftime "[%H:%M:%S]", localtime }
+
+sub _format_name {
+    my ( $self, $test ) = @_;
+    my $name = $test;
+    my $periods = '.' x ( $self->_longest + 2 - length $test );
+    $periods = " $periods ";
+
+    if ( $self->timer ) {
+        my $stamp = $self->_format_now();
+        return "$stamp $name$periods";
+    }
+    else {
+        return "$name$periods";
+    }
+
+}
+
+=head3 C<open_test>
+
+Called to create a new test session. A test session looks like this:
+
+    my $session = $formatter->open_test( $test, $parser );
+    while ( defined( my $result = $parser->next ) ) {
+        $session->result($result);
+        exit 1 if $result->is_bailout;
+    }
+    $session->close_test;
+
+=cut
+
+sub open_test {
+    die "Unimplemented.";
+}
+
+sub _output_success {
+    my ( $self, $msg ) = @_;
+    $self->_output($msg);
+}
+
+=head3 C<summary>
+
+  $harness->summary( $aggregate );
+
+C<summary> prints the summary report after all tests are run. The first
+argument is an aggregate to summarise. An optional second argument may
+be set to a true value to indicate that the summary is being output as a
+result of an interrupted test run.
+
+=cut
+
+sub summary {
+    my ( $self, $aggregate, $interrupted ) = @_;
+
+    return if $self->silent;
+
+    my @t     = $aggregate->descriptions;
+    my $tests = \@t;
+
+    my $runtime = $aggregate->elapsed_timestr;
+
+    my $total  = $aggregate->total;
+    my $passed = $aggregate->passed;
+
+    if ( $self->timer ) {
+        $self->_output( $self->_format_now(), "\n" );
+    }
+
+    $self->_failure_output("Test run interrupted!\n")
+      if $interrupted;
+
+    # TODO: Check this condition still works when all subtests pass but
+    # the exit status is nonzero
+
+    if ( $aggregate->all_passed ) {
+        $self->_output_success("All tests successful.\n");
+    }
+
+    # ~TODO option where $aggregate->skipped generates reports
+    if ( $total != $passed or $aggregate->has_problems ) {
+        $self->_output("\nTest Summary Report");
+        $self->_output("\n-------------------\n");
+        for my $test (@$tests) {
+            $self->_printed_summary_header(0);
+            my ($parser) = $aggregate->parsers($test);
+            $self->_output_summary_failure(
+                'failed',
+                [ '  Failed test:  ', '  Failed tests:  ' ],
+                $test, $parser
+            );
+            $self->_output_summary_failure(
+                'todo_passed',
+                "  TODO passed:   ", $test, $parser
+            );
+
+            # ~TODO this cannot be the default
+            #$self->_output_summary_failure( 'skipped', "  Tests skipped: " );
+
+            if ( my $exit = $parser->exit ) {
+                $self->_summary_test_header( $test, $parser );
+                $self->_failure_output("  Non-zero exit status: $exit\n");
+            }
+            elsif ( my $wait = $parser->wait ) {
+                $self->_summary_test_header( $test, $parser );
+                $self->_failure_output("  Non-zero wait status: $wait\n");
+            }
+
+            if ( my @errors = $parser->parse_errors ) {
+                my $explain;
+                if ( @errors > $MAX_ERRORS && !$self->errors ) {
+                    $explain
+                      = "Displayed the first $MAX_ERRORS of "
+                      . scalar(@errors)
+                      . " TAP syntax errors.\n"
+                      . "Re-run prove with the -p option to see them all.\n";
+                    splice @errors, $MAX_ERRORS;
+                }
+                $self->_summary_test_header( $test, $parser );
+                $self->_failure_output(
+                    sprintf "  Parse errors: %s\n",
+                    shift @errors
+                );
+                for my $error (@errors) {
+                    my $spaces = ' ' x 16;
+                    $self->_failure_output("$spaces$error\n");
+                }
+                $self->_failure_output($explain) if $explain;
+            }
+        }
+    }
+    my $files = @$tests;
+    $self->_output("Files=$files, Tests=$total, $runtime\n");
+    my $status = $aggregate->get_status;
+    $self->_output("Result: $status\n");
+}
+
+sub _output_summary_failure {
+    my ( $self, $method, $name, $test, $parser ) = @_;
+
+    # ugly hack.  Must rethink this :(
+    my $output = $method eq 'failed' ? '_failure_output' : '_output';
+
+    if ( my @r = $parser->$method() ) {
+        $self->_summary_test_header( $test, $parser );
+        my ( $singular, $plural )
+          = 'ARRAY' eq ref $name ? @$name : ( $name, $name );
+        $self->$output( @r == 1 ? $singular : $plural );
+        my @results = $self->_balanced_range( 40, @r );
+        $self->$output( sprintf "%s\n" => shift @results );
+        my $spaces = ' ' x 16;
+        while (@results) {
+            $self->$output( sprintf "$spaces%s\n" => shift @results );
+        }
+    }
+}
+
+sub _summary_test_header {
+    my ( $self, $test, $parser ) = @_;
+    return if $self->_printed_summary_header;
+    my $spaces = ' ' x ( $self->_longest - length $test );
+    $spaces = ' ' unless $spaces;
+    my $output = $self->_get_output_method($parser);
+    my $wait   = $parser->wait;
+    defined $wait or $wait = '(none)';
+    $self->$output(
+        sprintf "$test$spaces(Wstat: %s Tests: %d Failed: %d)\n",
+        $wait, $parser->tests_run, scalar $parser->failed
+    );
+    $self->_printed_summary_header(1);
+}
+
+sub _output {
+    my $self = shift;
+
+    print { $self->stdout } @_;
+}
+
+sub _failure_output {
+    my $self = shift;
+
+    $self->_output(@_);
+}
+
+sub _balanced_range {
+    my ( $self, $limit, @range ) = @_;
+    @range = $self->_range(@range);
+    my $line = "";
+    my @lines;
+    my $curr = 0;
+    while (@range) {
+        if ( $curr < $limit ) {
+            my $range = ( shift @range ) . ", ";
+            $line .= $range;
+            $curr += length $range;
+        }
+        elsif (@range) {
+            $line =~ s/, $//;
+            push @lines => $line;
+            $line = '';
+            $curr = 0;
+        }
+    }
+    if ($line) {
+        $line =~ s/, $//;
+        push @lines => $line;
+    }
+    return @lines;
+}
+
+sub _range {
+    my ( $self, @numbers ) = @_;
+
+    # shouldn't be needed, but subclasses might call this
+    @numbers = sort { $a <=> $b } @numbers;
+    my ( $min, @range );
+
+    for my $i ( 0 .. $#numbers ) {
+        my $num  = $numbers[$i];
+        my $next = $numbers[ $i + 1 ];
+        if ( defined $next && $next == $num + 1 ) {
+            if ( !defined $min ) {
+                $min = $num;
+            }
+        }
+        elsif ( defined $min ) {
+            push @range => "$min-$num";
+            undef $min;
+        }
+        else {
+            push @range => $num;
+        }
+    }
+    return @range;
+}
+
+sub _get_output_method {
+    my ( $self, $parser ) = @_;
+    return $parser->has_problems ? '_failure_output' : '_output';
+}
+
+1;
diff --git a/lib/5.24.1/TAP/Formatter/Color.pm b/lib/5.24.1/TAP/Formatter/Color.pm
new file mode 100644
index 00000000..728247c0
--- /dev/null
+++ b/lib/5.24.1/TAP/Formatter/Color.pm
@@ -0,0 +1,148 @@
+package TAP::Formatter::Color;
+
+use strict;
+use warnings;
+
+use constant IS_WIN32 => ( $^O =~ /^(MS)?Win32$/ );
+
+use base 'TAP::Object';
+
+my $NO_COLOR;
+
+BEGIN {
+    $NO_COLOR = 0;
+
+    if (IS_WIN32) {
+        eval 'use Win32::Console';
+        if ($@) {
+            $NO_COLOR = $@;
+        }
+        else {
+            my $console = Win32::Console->new( STD_OUTPUT_HANDLE() );
+
+            # eval here because we might not know about these variables
+            my $fg = eval '$FG_LIGHTGRAY';
+            my $bg = eval '$BG_BLACK';
+
+            *set_color = sub {
+                my ( $self, $output, $color ) = @_;
+
+                my $var;
+                if ( $color eq 'reset' ) {
+                    $fg = eval '$FG_LIGHTGRAY';
+                    $bg = eval '$BG_BLACK';
+                }
+                elsif ( $color =~ /^on_(.+)$/ ) {
+                    $bg = eval '$BG_' . uc($1);
+                }
+                else {
+                    $fg = eval '$FG_' . uc($color);
+                }
+
+                # In case of colors that aren't defined
+                $self->set_color('reset')
+                  unless defined $bg && defined $fg;
+
+                $console->Attr( $bg | $fg );
+            };
+        }
+    }
+    else {
+        eval 'use Term::ANSIColor';
+        if ($@) {
+            $NO_COLOR = $@;
+        }
+        else {
+            *set_color = sub {
+                my ( $self, $output, $color ) = @_;
+                $output->( color($color) );
+            };
+        }
+    }
+
+    if ($NO_COLOR) {
+        *set_color = sub { };
+    }
+}
+
+=head1 NAME
+
+TAP::Formatter::Color - Run Perl test scripts with color
+
+=head1 VERSION
+
+Version 3.36
+
+=cut
+
+our $VERSION = '3.36_01';
+
+=head1 DESCRIPTION
+
+Note that this harness is I<experimental>.  You may not like the colors I've
+chosen and I haven't yet provided an easy way to override them.
+
+This test harness is the same as L<TAP::Harness>, but test results are output
+in color.  Passing tests are printed in green.  Failing tests are in red.
+Skipped tests are blue on a white background and TODO tests are printed in
+white.
+
+If L<Term::ANSIColor> cannot be found (or L<Win32::Console> if running
+under Windows) tests will be run without color.
+
+=head1 SYNOPSIS
+
+ use TAP::Formatter::Color;
+ my $harness = TAP::Formatter::Color->new( \%args );
+ $harness->runtests(@tests);
+
+=head1 METHODS
+
+=head2 Class Methods
+
+=head3 C<new>
+
+The constructor returns a new C<TAP::Formatter::Color> object. If
+L<Term::ANSIColor> is not installed, returns undef.
+
+=cut
+
+# new() implementation supplied by TAP::Object
+
+sub _initialize {
+    my $self = shift;
+
+    if ($NO_COLOR) {
+
+        # shorten that message a bit
+        ( my $error = $NO_COLOR ) =~ s/ in \@INC .*//s;
+        warn "Note: Cannot run tests in color: $error\n";
+        return;    # abort object construction
+    }
+
+    return $self;
+}
+
+##############################################################################
+
+=head3 C<can_color>
+
+  Test::Formatter::Color->can_color()
+
+Returns a boolean indicating whether or not this module can actually
+generate colored output. This will be false if it could not load the
+modules needed for the current platform.
+
+=cut
+
+sub can_color {
+    return !$NO_COLOR;
+}
+
+=head3 C<set_color>
+
+Set the output color.
+
+=cut
+
+1;
diff --git a/lib/5.24.1/TAP/Formatter/Console.pm b/lib/5.24.1/TAP/Formatter/Console.pm
new file mode 100644
index 00000000..8cc3060d
--- /dev/null
+++ b/lib/5.24.1/TAP/Formatter/Console.pm
@@ -0,0 +1,100 @@
+package TAP::Formatter::Console;
+
+use strict;
+use warnings;
+use base 'TAP::Formatter::Base';
+use POSIX qw(strftime);
+
+=head1 NAME
+
+TAP::Formatter::Console - Harness output delegate for default console output
+
+=head1 VERSION
+
+Version 3.36
+
+=cut
+
+our $VERSION = '3.36_01';
+
+=head1 DESCRIPTION
+
+This provides console orientated output formatting for TAP::Harness.
+
+=head1 SYNOPSIS
+
+ use TAP::Formatter::Console;
+ my $harness = TAP::Formatter::Console->new( \%args );
+
+=head2 C<< open_test >>
+
+See L<TAP::Formatter::Base>
+
+=cut
+
+sub open_test {
+    my ( $self, $test, $parser ) = @_;
+
+    my $class
+      = $self->jobs > 1
+      ? 'TAP::Formatter::Console::ParallelSession'
+      : 'TAP::Formatter::Console::Session';
+
+    eval "require $class";
+    $self->_croak($@) if $@;
+
+    my $session = $class->new(
+        {   name       => $test,
+            formatter  => $self,
+            parser     => $parser,
+            show_count => $self->show_count,
+        }
+    );
+
+    $session->header;
+
+    return $session;
+}
+
+# Use _colorizer delegate to set output color. NOP if we have no delegate
+sub _set_colors {
+    my ( $self, @colors ) = @_;
+    if ( my $colorizer = $self->_colorizer ) {
+        my $output_func = $self->{_output_func} ||= sub {
+            $self->_output(@_);
+        };
+        $colorizer->set_color( $output_func, $_ ) for @colors;
+    }
+}
+
+sub _failure_color {
+    my ($self) = @_;
+
+    return $ENV{'HARNESS_SUMMARY_COLOR_FAIL'} || 'red';
+}
+
+sub _success_color {
+    my ($self) = @_;
+
+    return $ENV{'HARNESS_SUMMARY_COLOR_SUCCESS'} || 'green';
+}
+
+sub _output_success {
+    my ( $self, $msg ) = @_;
+    $self->_set_colors( $self->_success_color() );
+    $self->_output($msg);
+    $self->_set_colors('reset');
+}
+
+sub _failure_output {
+    my $self = shift;
+    $self->_set_colors( $self->_failure_color() );
+    my $out = join '', @_;
+    my $has_newline = chomp $out;
+    $self->_output($out);
+    $self->_set_colors('reset');
+    $self->_output($/)
+      if $has_newline;
+}
+
+1;
diff --git a/lib/5.24.1/TAP/Formatter/Console/ParallelSession.pm b/lib/5.24.1/TAP/Formatter/Console/ParallelSession.pm
new file mode 100644
index 00000000..c8cdf7c9
--- /dev/null
+++ b/lib/5.24.1/TAP/Formatter/Console/ParallelSession.pm
@@ -0,0 +1,201 @@
+package TAP::Formatter::Console::ParallelSession;
+
+use strict;
+use warnings;
+use File::Spec;
+use File::Path;
+use Carp;
+
+use base 'TAP::Formatter::Console::Session';
+
+use constant WIDTH => 72;    # Because Eric says
+
+my %shared;
+
+sub _initialize {
+    my ( $self, $arg_for ) = @_;
+
+    $self->SUPER::_initialize($arg_for);
+    my $formatter = $self->formatter;
+
+    # Horrid bodge. This creates our shared context per harness. Maybe
+    # TAP::Harness should give us this?
+    my $context = $shared{$formatter} ||= $self->_create_shared_context;
+    push @{ $context->{active} }, $self;
+
+    return $self;
+}
+
+sub _create_shared_context {
+    my $self = shift;
+    return {
+        active => [],
+        tests  => 0,
+        fails  => 0,
+    };
+}
+
+=head1 NAME
+
+TAP::Formatter::Console::ParallelSession - Harness output delegate for parallel console output
+
+=head1 VERSION
+
+Version 3.36
+
+=cut
+
+our $VERSION = '3.36_01';
+
+=head1 DESCRIPTION
+
+This provides console orientated output formatting for L<TAP::Harness>
+when run with multiple L<TAP::Harness/jobs>.
+
+=head1 SYNOPSIS
+
+=cut
+
+=head1 METHODS
+
+=head2 Class Methods
+
+=head3 C<header>
+
+Output test preamble
+
+=cut
+
+sub header {
+}
+
+sub _clear_ruler {
+    my $self = shift;
+    $self->formatter->_output( "\r" . ( ' ' x WIDTH ) . "\r" );
+}
+
+my $now = 0;
+my $start;
+
+my $trailer     = '... )===';
+my $chop_length = WIDTH - length $trailer;
+
+sub _output_ruler {
+    my ( $self, $refresh ) = @_;
+    my $new_now = time;
+    return if $new_now == $now and !$refresh;
+    $now = $new_now;
+    $start ||= $now;
+    my $formatter = $self->formatter;
+    return if $formatter->really_quiet;
+
+    my $context = $shared{$formatter};
+
+    my $ruler = sprintf '===( %7d;%d  ', $context->{tests}, $now - $start;
+
+    for my $active ( @{ $context->{active} } ) {
+        my $parser  = $active->parser;
+        my $tests   = $parser->tests_run;
+        my $planned = $parser->tests_planned || '?';
+
+        $ruler .= sprintf '%' . length($planned) . "d/$planned  ", $tests;
+    }
+    chop $ruler;    # Remove a trailing space
+    $ruler .= ')===';
+
+    if ( length $ruler > WIDTH ) {
+        $ruler =~ s/(.{$chop_length}).*/$1$trailer/o;
+    }
+    else {
+        $ruler .= '=' x ( WIDTH - length($ruler) );
+    }
+    $formatter->_output("\r$ruler");
+}
+
+=head3 C<result>
+
+  Called by the harness for each line of TAP it receives .
+
+=cut
+
+sub result {
+    my ( $self, $result ) = @_;
+    my $formatter = $self->formatter;
+
+    # my $really_quiet = $formatter->really_quiet;
+    # my $show_count   = $self->_should_show_count;
+
+    if ( $result->is_test ) {
+        my $context = $shared{$formatter};
+        $context->{tests}++;
+
+        my $active = $context->{active};
+        if ( @$active == 1 ) {
+
+            # There is only one test, so use the serial output format.
+            return $self->SUPER::result($result);
+        }
+
+        $self->_output_ruler( $self->parser->tests_run == 1 );
+    }
+    elsif ( $result->is_bailout ) {
+        $formatter->_failure_output(
+                "Bailout called.  Further testing stopped:  "
+              . $result->explanation
+              . "\n" );
+    }
+}
+
+=head3 C<clear_for_close>
+
+=cut
+
+sub clear_for_close {
+    my $self      = shift;
+    my $formatter = $self->formatter;
+    return if $formatter->really_quiet;
+    my $context = $shared{$formatter};
+    if ( @{ $context->{active} } == 1 ) {
+        $self->SUPER::clear_for_close;
+    }
+    else {
+        $self->_clear_ruler;
+    }
+}
+
+=head3 C<close_test>
+
+=cut
+
+sub close_test {
+    my $self      = shift;
+    my $name      = $self->name;
+    my $parser    = $self->parser;
+    my $formatter = $self->formatter;
+    my $context   = $shared{$formatter};
+
+    $self->SUPER::close_test;
+
+    my $active = $context->{active};
+
+    my @pos = grep { $active->[$_]->name eq $name } 0 .. $#$active;
+
+    die "Can't find myself" unless @pos;
+    splice @$active, $pos[0], 1;
+
+    if ( @$active > 1 ) {
+        $self->_output_ruler(1);
+    }
+    elsif ( @$active == 1 ) {
+
+        # Print out "test/name.t ...."
+        $active->[0]->SUPER::header;
+    }
+    else {
+
+        # $self->formatter->_output("\n");
+        delete $shared{$formatter};
+    }
+}
+
+1;
diff --git a/lib/5.24.1/TAP/Formatter/Console/Session.pm b/lib/5.24.1/TAP/Formatter/Console/Session.pm
new file mode 100644
index 00000000..8a15812f
--- /dev/null
+++ b/lib/5.24.1/TAP/Formatter/Console/Session.pm
@@ -0,0 +1,205 @@
+package TAP::Formatter::Console::Session;
+
+use strict;
+use warnings;
+
+use base 'TAP::Formatter::Session';
+
+my @ACCESSOR;
+
+BEGIN {
+    my @CLOSURE_BINDING = qw( header result clear_for_close close_test );
+
+    for my $method (@CLOSURE_BINDING) {
+        no strict 'refs';
+        *$method = sub {
+            my $self = shift;
+            return ( $self->{_closures} ||= $self->_closures )->{$method}
+              ->(@_);
+        };
+    }
+}
+
+=head1 NAME
+
+TAP::Formatter::Console::Session - Harness output delegate for default console output
+
+=head1 VERSION
+
+Version 3.36
+
+=cut
+
+our $VERSION = '3.36_01';
+
+=head1 DESCRIPTION
+
+This provides console orientated output formatting for TAP::Harness.
+
+=cut
+
+sub _get_output_result {
+    my $self = shift;
+
+    my @color_map = (
+        {   test => sub { $_->is_test && !$_->is_ok },
+            colors => ['red'],
+        },
+        {   test => sub { $_->is_test && $_->has_skip },
+            colors => [
+                'white',
+                'on_blue'
+            ],
+        },
+        {   test => sub { $_->is_test && $_->has_todo },
+            colors => ['yellow'],
+        },
+    );
+
+    my $formatter = $self->formatter;
+    my $parser    = $self->parser;
+
+    return $formatter->_colorizer
+      ? sub {
+        my $result = shift;
+        for my $col (@color_map) {
+            local $_ = $result;
+            if ( $col->{test}->() ) {
+                $formatter->_set_colors( @{ $col->{colors} } );
+                last;
+            }
+        }
+        $formatter->_output( $self->_format_for_output($result) );
+        $formatter->_set_colors('reset');
+      }
+      : sub {
+        $formatter->_output( $self->_format_for_output(shift) );
+      };
+}
+
+sub _closures {
+    my $self = shift;
+
+    my $parser     = $self->parser;
+    my $formatter  = $self->formatter;
+    my $pretty     = $formatter->_format_name( $self->name );
+    my $show_count = $self->show_count;
+
+    my $really_quiet = $formatter->really_quiet;
+    my $quiet        = $formatter->quiet;
+    my $verbose      = $formatter->verbose;
+    my $directives   = $formatter->directives;
+    my $failures     = $formatter->failures;
+    my $comments     = $formatter->comments;
+
+    my $output_result = $self->_get_output_result;
+
+    my $output          = '_output';
+    my $plan            = '';
+    my $newline_printed = 0;
+
+    my $last_status_printed = 0;
+
+    return {
+        header => sub {
+            $formatter->_output($pretty)
+              unless $really_quiet;
+        },
+
+        result => sub {
+            my $result = shift;
+
+            if ( $result->is_bailout ) {
+                $formatter->_failure_output(
+                        "Bailout called.  Further testing stopped:  "
+                      . $result->explanation
+                      . "\n" );
+            }
+
+            return if $really_quiet;
+
+            my $is_test = $result->is_test;
+
+            # These are used in close_test - but only if $really_quiet
+            # is false - so it's safe to only set them here unless that
+            # relationship changes.
+
+            if ( !$plan ) {
+                my $planned = $parser->tests_planned || '?';
+                $plan = "/$planned ";
+            }
+            $output = $formatter->_get_output_method($parser);
+
+            if ( $show_count and $is_test ) {
+                my $number = $result->number;
+                my $now    = CORE::time;
+
+                # Print status roughly once per second.
+                # We will always get the first number as a side effect of
+                # $last_status_printed starting with the value 0, which $now
+                # will never be. (Unless someone sets their clock to 1970)
+                if ( $last_status_printed != $now ) {
+                    $formatter->$output("\r$pretty$number$plan");
+                    $last_status_printed = $now;
+                }
+            }
+
+            if (!$quiet
+                && (   $verbose
+                    || ( $is_test && $failures && !$result->is_ok )
+                    || ( $comments   && $result->is_comment )
+                    || ( $directives && $result->has_directive ) )
+              )
+            {
+                unless ($newline_printed) {
+                    $formatter->_output("\n");
+                    $newline_printed = 1;
+                }
+                $output_result->($result);
+                $formatter->_output("\n");
+            }
+        },
+
+        clear_for_close => sub {
+            my $spaces
+              = ' ' x length( '.' . $pretty . $plan . $parser->tests_run );
+            $formatter->$output("\r$spaces");
+        },
+
+        close_test => sub {
+            if ( $show_count && !$really_quiet ) {
+                $self->clear_for_close;
+                $formatter->$output("\r$pretty");
+            }
+
+            # Avoid circular references
+            $self->parser(undef);
+            $self->{_closures} = {};
+
+            return if $really_quiet;
+
+            if ( my $skip_all = $parser->skip_all ) {
+                $formatter->_output("skipped: $skip_all\n");
+            }
+            elsif ( $parser->has_problems ) {
+                $self->_output_test_failure($parser);
+            }
+            else {
+                my $time_report = $self->time_report($formatter, $parser);
+                $formatter->_output( $self->_make_ok_line($time_report) );
+            }
+        },
+    };
+}
+
+=head2 C<< 	clear_for_close >>
+
+=head2 C<< 	close_test >>
+
+=head2 C<< 	header >>
+
+=head2 C<< 	result >>
+
+=cut
+
+1;
diff --git a/lib/5.24.1/TAP/Formatter/File.pm b/lib/5.24.1/TAP/Formatter/File.pm
new file mode 100644
index 00000000..45d93a18
--- /dev/null
+++ b/lib/5.24.1/TAP/Formatter/File.pm
@@ -0,0 +1,56 @@
+package TAP::Formatter::File;
+
+use strict;
+use warnings;
+use TAP::Formatter::File::Session;
+use POSIX qw(strftime);
+
+use base 'TAP::Formatter::Base';
+
+=head1 NAME
+
+TAP::Formatter::File - Harness output delegate for file output
+
+=head1 VERSION
+
+Version 3.36
+
+=cut
+
+our $VERSION = '3.36_01';
+
+=head1 DESCRIPTION
+
+This provides file orientated output formatting for TAP::Harness.
+
+=head1 SYNOPSIS
+
+ use TAP::Formatter::File;
+ my $harness = TAP::Formatter::File->new( \%args );
+
+=head2 C<< open_test >>
+
+See L<TAP::Formatter::Base>
+
+=cut
+
+sub open_test {
+    my ( $self, $test, $parser ) = @_;
+
+    my $session = TAP::Formatter::File::Session->new(
+        {   name      => $test,
+            formatter => $self,
+            parser    => $parser,
+        }
+    );
+
+    $session->header;
+
+    return $session;
+}
+
+sub _should_show_count {
+    return 0;
+}
+
+1;
diff --git a/lib/5.24.1/TAP/Formatter/File/Session.pm b/lib/5.24.1/TAP/Formatter/File/Session.pm
new file mode 100644
index 00000000..371d7d56
--- /dev/null
+++ b/lib/5.24.1/TAP/Formatter/File/Session.pm
@@ -0,0 +1,95 @@
+package TAP::Formatter::File::Session;
+
+use strict;
+use warnings;
+use base 'TAP::Formatter::Session';
+
+=head1 NAME
+
+TAP::Formatter::File::Session - Harness output delegate for file output
+
+=head1 VERSION
+
+Version 3.36
+
+=cut
+
+our $VERSION = '3.36_01';
+
+=head1 DESCRIPTION
+
+This provides file orientated output formatting for L<TAP::Harness>.
+It is particularly important when running with parallel tests, as it
+ensures that test results are not interleaved, even when run
+verbosely.
+
+=cut
+
+=head1 METHODS
+
+=head2 result
+
+Stores results for later output, all together.
+
+=cut
+
+sub result {
+    my $self   = shift;
+    my $result = shift;
+
+    my $parser    = $self->parser;
+    my $formatter = $self->formatter;
+
+    if ( $result->is_bailout ) {
+        $formatter->_failure_output(
+                "Bailout called.  Further testing stopped:  "
+              . $result->explanation
+              . "\n" );
+        return;
+    }
+
+    if (!$formatter->quiet
+        && (   $formatter->verbose
+            || ( $result->is_test && $formatter->failures && !$result->is_ok )
+            || ( $formatter->comments   && $result->is_comment )
+            || ( $result->has_directive && $formatter->directives ) )
+      )
+    {
+        $self->{results} .= $self->_format_for_output($result) . "\n";
+    }
+}
+
+=head2 close_test
+
+When the test file finishes, outputs the summary, together.
+
+=cut
+
+sub close_test {
+    my $self = shift;
+
+    # Avoid circular references
+    $self->parser(undef);
+
+    my $parser    = $self->parser;
+    my $formatter = $self->formatter;
+    my $pretty    = $formatter->_format_name( $self->name );
+
+    return if $formatter->really_quiet;
+    if ( my $skip_all = $parser->skip_all ) {
+        $formatter->_output( $pretty . "skipped: $skip_all\n" );
+    }
+    elsif ( $parser->has_problems ) {
+        $formatter->_output(
+            $pretty . ( $self->{results} ? "\n" . $self->{results} : "\n" ) );
+        $self->_output_test_failure($parser);
+    }
+    else {
+        my $time_report = $self->time_report($formatter, $parser);
+        $formatter->_output( $pretty
+              . ( $self->{results} ? "\n" . $self->{results} : "" )
+              . $self->_make_ok_line($time_report) );
+    }
+}
+
+1;
diff --git a/lib/5.24.1/TAP/Formatter/Session.pm b/lib/5.24.1/TAP/Formatter/Session.pm
new file mode 100644
index 00000000..2924276f
--- /dev/null
+++ b/lib/5.24.1/TAP/Formatter/Session.pm
@@ -0,0 +1,220 @@
+package TAP::Formatter::Session;
+
+use strict;
+use warnings;
+
+use base 'TAP::Base';
+
+my @ACCESSOR;
+
+BEGIN {
+
+    @ACCESSOR = qw( name formatter parser show_count );
+
+    for my $method (@ACCESSOR) {
+        no strict 'refs';
+        *$method = sub { shift->{$method} };
+    }
+}
+
+=head1 NAME
+
+TAP::Formatter::Session - Abstract base class for harness output delegate 
+
+=head1 VERSION
+
+Version 3.36
+
+=cut
+
+our $VERSION = '3.36_01';
+
+=head1 METHODS
+
+=head2 Class Methods
+
+=head3 C<new>
+
+ my %args = (
+    formatter => $self,
+ )
+ my $harness = TAP::Formatter::Console::Session->new( \%args );
+
+The constructor returns a new C<TAP::Formatter::Console::Session> object.
+
+=over 4
+
+=item * C<formatter>
+
+=item * C<parser>
+
+=item * C<name>
+
+=item * C<show_count>
+
+=back
+
+=cut
+
+sub _initialize {
+    my ( $self, $arg_for ) = @_;
+    $arg_for ||= {};
+
+    $self->SUPER::_initialize($arg_for);
+    my %arg_for = %$arg_for;    # force a shallow copy
+
+    for my $name (@ACCESSOR) {
+        $self->{$name} = delete $arg_for{$name};
+    }
+
+    if ( !defined $self->show_count ) {
+        $self->{show_count} = 1;    # defaults to true
+    }
+    if ( $self->show_count ) {      # but may be a damned lie!
+        $self->{show_count} = $self->_should_show_count;
+    }
+
+    if ( my @props = sort keys %arg_for ) {
+        $self->_croak(
+            "Unknown arguments to " . __PACKAGE__ . "::new (@props)" );
+    }
+
+    return $self;
+}
+
+=head3 C<header>
+
+Output test preamble
+
+=head3 C<result>
+
+Called by the harness for each line of TAP it receives.
+
+=head3 C<close_test>
+
+Called to close a test session.
+
+=head3 C<clear_for_close>
+
+Called by C<close_test> to clear the line showing test progress, or the parallel
+test ruler, prior to printing the final test result.
+
+=head3 C<time_report>
+
+Return a formatted string about the elapsed (wall-clock) time
+and about the consumed CPU time.
+
+=cut
+
+sub header { }
+
+sub result { }
+
+sub close_test { }
+
+sub clear_for_close { }
+
+sub _should_show_count {
+    my $self = shift;
+    return
+         !$self->formatter->verbose
+      && -t $self->formatter->stdout
+      && !$ENV{HARNESS_NOTTY};
+}
+
+sub _format_for_output {
+    my ( $self, $result ) = @_;
+    return $self->formatter->normalize ? $result->as_string : $result->raw;
+}
+
+sub _output_test_failure {
+    my ( $self, $parser ) = @_;
+    my $formatter = $self->formatter;
+    return if $formatter->really_quiet;
+
+    my $tests_run     = $parser->tests_run;
+    my $tests_planned = $parser->tests_planned;
+
+    my $total
+      = defined $tests_planned
+      ? $tests_planned
+      : $tests_run;
+
+    my $passed = $parser->passed;
+
+    # The total number of fails includes any tests that were planned but
+    # didn't run
+    my $failed = $parser->failed + $total - $tests_run;
+    my $exit   = $parser->exit;
+
+    if ( my $exit = $parser->exit ) {
+        my $wstat = $parser->wait;
+        my $status = sprintf( "%d (wstat %d, 0x%x)", $exit, $wstat, $wstat );
+        $formatter->_failure_output("Dubious, test returned $status\n");
+    }
+
+    if ( $failed == 0 ) {
+        $formatter->_failure_output(
+            $total
+            ? "All $total subtests passed "
+            : 'No subtests run '
+        );
+    }
+    else {
+        $formatter->_failure_output("Failed $failed/$total subtests ");
+        if ( !$total ) {
+            $formatter->_failure_output("\nNo tests run!");
+        }
+    }
+
+    if ( my $skipped = $parser->skipped ) {
+        $passed -= $skipped;
+        my $test = 'subtest' . ( $skipped != 1 ? 's' : '' );
+        $formatter->_output(
+            "\n\t(less $skipped skipped $test: $passed okay)");
+    }
+
+    if ( my $failed = $parser->todo_passed ) {
+        my $test = $failed > 1 ? 'tests' : 'test';
+        $formatter->_output(
+            "\n\t($failed TODO $test unexpectedly succeeded)");
+    }
+
+    $formatter->_output("\n");
+}
+
+sub _make_ok_line {
+    my ( $self, $suffix ) = @_;
+    return "ok$suffix\n";
+}
+
+sub time_report {
+    my ( $self, $formatter, $parser ) = @_;
+
+    my @time_report;
+    if ( $formatter->timer ) {
+        my $start_time = $parser->start_time;
+        my $end_time   = $parser->end_time;
+        if ( defined $start_time and defined $end_time ) {
+            my $elapsed = $end_time - $start_time;
+            push @time_report,
+              $self->time_is_hires
+                ? sprintf( ' %8d ms', $elapsed * 1000 )
+                : sprintf( ' %8s s', $elapsed || '<1' );
+        }
+        my $start_times = $parser->start_times();
+        my $end_times   = $parser->end_times();
+        my $usr  = $end_times->[0] - $start_times->[0];
+        my $sys  = $end_times->[1] - $start_times->[1];
+        my $cusr = $end_times->[2] - $start_times->[2];
+        my $csys = $end_times->[3] - $start_times->[3];
+        push @time_report,
+          sprintf('(%5.2f usr %5.2f sys + %5.2f cusr %5.2f csys = %5.2f CPU)',
+                  $usr, $sys, $cusr, $csys,
+                  $usr + $sys + $cusr + $csys);
+    }
+
+    return "@time_report";
+}
+
+1;
diff --git a/lib/5.24.1/TAP/Harness.pm b/lib/5.24.1/TAP/Harness.pm
new file mode 100644
index 00000000..c916a32e
--- /dev/null
+++ b/lib/5.24.1/TAP/Harness.pm
@@ -0,0 +1,1054 @@
+package TAP::Harness;
+
+use strict;
+use warnings;
+use Carp;
+
+use File::Spec;
+use File::Path;
+use IO::Handle;
+
+use base 'TAP::Base';
+
+=head1 NAME
+
+TAP::Harness - Run test scripts with statistics
+
+=head1 VERSION
+
+Version 3.36
+
+=cut
+
+our $VERSION = '3.36_01';
+
+$ENV{HARNESS_ACTIVE}  = 1;
+$ENV{HARNESS_VERSION} = $VERSION;
+
+END {
+
+    # For VMS.
+    delete $ENV{HARNESS_ACTIVE};
+    delete $ENV{HARNESS_VERSION};
+}
+
+=head1 DESCRIPTION
+
+This is a simple test harness which allows tests to be run and results
+automatically aggregated and output to STDOUT.
+
+=head1 SYNOPSIS
+
+ use TAP::Harness;
+ my $harness = TAP::Harness->new( \%args );
+ $harness->runtests(@tests);
+
+=cut
+
+my %VALIDATION_FOR;
+my @FORMATTER_ARGS;
+
+sub _error {
+    my $self = shift;
+    return $self->{error} unless @_;
+    $self->{error} = shift;
+}
+
+BEGIN {
+
+    @FORMATTER_ARGS = qw(
+      directives verbosity timer failures comments errors stdout color
+      show_count normalize
+    );
+
+    %VALIDATION_FOR = (
+        lib => sub {
+            my ( $self, $libs ) = @_;
+            $libs = [$libs] unless 'ARRAY' eq ref $libs;
+
+            return [ map {"-I$_"} @$libs ];
+        },
+        switches          => sub { shift; shift },
+        exec              => sub { shift; shift },
+        merge             => sub { shift; shift },
+        aggregator_class  => sub { shift; shift },
+        formatter_class   => sub { shift; shift },
+        multiplexer_class => sub { shift; shift },
+        parser_class      => sub { shift; shift },
+        scheduler_class   => sub { shift; shift },
+        formatter         => sub { shift; shift },
+        jobs              => sub { shift; shift },
+        test_args         => sub { shift; shift },
+        ignore_exit       => sub { shift; shift },
+        rules             => sub { shift; shift },
+        rulesfile         => sub { shift; shift },
+        sources           => sub { shift; shift },
+        version           => sub { shift; shift },
+        trap              => sub { shift; shift },
+    );
+
+    for my $method ( sort keys %VALIDATION_FOR ) {
+        no strict 'refs';
+        if ( $method eq 'lib' || $method eq 'switches' ) {
+            *{$method} = sub {
+                my $self = shift;
+                unless (@_) {
+                    $self->{$method} ||= [];
+                    return wantarray
+                      ? @{ $self->{$method} }
+                      : $self->{$method};
+                }
+                $self->_croak("Too many arguments to method '$method'")
+                  if @_ > 1;
+                my $args = shift;
+                $args = [$args] unless ref $args;
+                $self->{$method} = $args;
+                return $self;
+            };
+        }
+        else {
+            *{$method} = sub {
+                my $self = shift;
+                return $self->{$method} unless @_;
+                $self->{$method} = shift;
+            };
+        }
+    }
+
+    for my $method (@FORMATTER_ARGS) {
+        no strict 'refs';
+        *{$method} = sub {
+            my $self = shift;
+            return $self->formatter->$method(@_);
+        };
+    }
+}
+
+##############################################################################
+
+=head1 METHODS
+
+=head2 Class Methods
+
+=head3 C<new>
+
+ my %args = (
+    verbosity => 1,
+    lib     => [ 'lib', 'blib/lib', 'blib/arch' ],
+ )
+ my $harness = TAP::Harness->new( \%args );
+
+The constructor returns a new C<TAP::Harness> object. It accepts an
+optional hashref whose allowed keys are:
+
+=over 4
+
+=item * C<verbosity>
+
+Set the verbosity level:
+
+     1   verbose        Print individual test results to STDOUT.
+     0   normal
+    -1   quiet          Suppress some test output (mostly failures 
+                        while tests are running).
+    -2   really quiet   Suppress everything but the tests summary.
+    -3   silent         Suppress everything.
+
+=item * C<timer>
+
+Append run time for each test to output. Uses L<Time::HiRes> if
+available.
+
+=item * C<failures>
+
+Show test failures (this is a no-op if C<verbose> is selected).
+
+=item * C<comments>
+
+Show test comments (this is a no-op if C<verbose> is selected).
+
+=item * C<show_count>
+
+Update the running test count during testing.
+
+=item * C<normalize>
+
+Set to a true value to normalize the TAP that is emitted in verbose modes.
+
+=item * C<lib>
+
+Accepts a scalar value or array ref of scalar values indicating which
+paths to allowed libraries should be included if Perl tests are
+executed. Naturally, this only makes sense in the context of tests
+written in Perl.
+
+=item * C<switches>
+
+Accepts a scalar value or array ref of scalar values indicating which
+switches should be included if Perl tests are executed. Naturally, this
+only makes sense in the context of tests written in Perl.
+
+=item * C<test_args>
+
+A reference to an C<@INC> style array of arguments to be passed to each
+test program.
+
+  test_args => ['foo', 'bar'],
+
+if you want to pass different arguments to each test then you should
+pass a hash of arrays, keyed by the alias for each test:
+
+  test_args => {
+    my_test    => ['foo', 'bar'],
+    other_test => ['baz'],
+  }
+
+=item * C<color>
+
+Attempt to produce color output.
+
+=item * C<exec>
+
+Typically, Perl tests are run through this. However, anything which
+spits out TAP is fine. You can use this argument to specify the name of
+the program (and optional switches) to run your tests with:
+
+  exec => ['/usr/bin/ruby', '-w']
+
+You can also pass a subroutine reference in order to determine and
+return the proper program to run based on a given test script. The
+subroutine reference should expect the TAP::Harness object itself as the
+first argument, and the file name as the second argument. It should
+return an array reference containing the command to be run and including
+the test file name. It can also simply return C<undef>, in which case
+TAP::Harness will fall back on executing the test script in Perl:
+
+    exec => sub {
+        my ( $harness, $test_file ) = @_;
+
+        # Let Perl tests run.
+        return undef if $test_file =~ /[.]t$/;
+        return [ qw( /usr/bin/ruby -w ), $test_file ]
+          if $test_file =~ /[.]rb$/;
+      }
+
+If the subroutine returns a scalar with a newline or a filehandle, it
+will be interpreted as raw TAP or as a TAP stream, respectively.
+
+=item * C<merge>
+
+If C<merge> is true the harness will create parsers that merge STDOUT
+and STDERR together for any processes they start.
+
+=item * C<sources>
+
+I<NEW to 3.18>.
+
+If set, C<sources> must be a hashref containing the names of the
+L<TAP::Parser::SourceHandler>s to load and/or configure.  The values are a
+hash of configuration that will be accessible to the source handlers via
+L<TAP::Parser::Source/config_for>.
+
+For example:
+
+  sources => {
+    Perl => { exec => '/path/to/custom/perl' },
+    File => { extensions => [ '.tap', '.txt' ] },
+    MyCustom => { some => 'config' },
+  }
+
+The C<sources> parameter affects how C<source>, C<tap> and C<exec> parameters
+are handled.
+
+For more details, see the C<sources> parameter in L<TAP::Parser/new>,
+L<TAP::Parser::Source>, and L<TAP::Parser::IteratorFactory>.
+
+=item * C<aggregator_class>
+
+The name of the class to use to aggregate test results. The default is
+L<TAP::Parser::Aggregator>.
+
+=item * C<version>
+
+I<NEW to 3.22>.
+
+Assume this TAP version for L<TAP::Parser> instead of default TAP
+version 12.
+
+=item * C<formatter_class>
+
+The name of the class to use to format output. The default is
+L<TAP::Formatter::Console>, or L<TAP::Formatter::File> if the output
+isn't a TTY.
+
+=item * C<multiplexer_class>
+
+The name of the class to use to multiplex tests during parallel testing.
+The default is L<TAP::Parser::Multiplexer>.
+
+=item * C<parser_class>
+
+The name of the class to use to parse TAP. The default is
+L<TAP::Parser>.
+
+=item * C<scheduler_class>
+
+The name of the class to use to schedule test execution. The default is
+L<TAP::Parser::Scheduler>.
+
+=item * C<formatter>
+
+If set C<formatter> must be an object that is capable of formatting the
+TAP output. See L<TAP::Formatter::Console> for an example.
+
+=item * C<errors>
+
+If parse errors are found in the TAP output, a note of this will be
+made in the summary report. To see all of the parse errors, set this
+argument to true:
+
+  errors => 1
+
+=item * C<directives>
+
+If set to a true value, only test results with directives will be
+displayed. This overrides other settings such as C<verbose> or
+C<failures>.
+
+=item * C<ignore_exit>
+
+If set to a true value instruct C<TAP::Parser> to ignore exit and wait
+status from test scripts.
+
+=item * C<jobs>
+
+The maximum number of parallel tests to run at any time.  Which tests
+can be run in parallel is controlled by C<rules>.  The default is to
+run only one test at a time.
+
+=item * C<rules>
+
+A reference to a hash of rules that control which tests may be executed in
+parallel. If no rules are declared and L<CPAN::Meta::YAML> is available,
+C<TAP::Harness> attempts to load rules from a YAML file specified by the
+C<rulesfile> parameter. If no rules file exists, the default is for all
+tests to be eligible to be run in parallel.
+
+Here some simple examples. For the full details of the data structure
+and the related glob-style pattern matching, see
+L<TAP::Parser::Scheduler/"Rules data structure">.
+
+    # Run all tests in sequence, except those starting with "p"
+    $harness->rules({
+        par => 't/p*.t'
+    });
+
+    # Equivalent YAML file
+    ---
+    par: t/p*.t
+
+    # Run all tests in parallel, except those starting with "p"
+    $harness->rules({
+        seq => [
+                  { seq => 't/p*.t' },
+                  { par => '**'     },
+               ],
+    });
+
+    # Equivalent YAML file
+    ---
+    seq:
+        - seq: t/p*.t
+        - par: **
+
+    # Run some  startup tests in sequence, then some parallel tests than some
+    # teardown tests in sequence.
+    $harness->rules({
+        seq => [
+            { seq => 't/startup/*.t' },
+            { par => ['t/a/*.t','t/b/*.t','t/c/*.t'], }
+            { seq => 't/shutdown/*.t' },
+        ],
+
+    });
+
+    # Equivalent YAML file
+    ---
+    seq:
+        - seq: t/startup/*.t
+        - par:
+            - t/a/*.t
+            - t/b/*.t
+            - t/c/*.t
+        - seq: t/shutdown/*.t
+
+This is an experimental feature and the interface may change.
+
+=item * C<rulesfiles>
+
+This specifies where to find a YAML file of test scheduling rules.  If not
+provided, it looks for a default file to use.  It first checks for a file given
+in the C<HARNESS_RULESFILE> environment variable, then it checks for
+F<testrules.yml> and then F<t/testrules.yml>.
+
+=item * C<stdout>
+
+A filehandle for catching standard output.
+
+=item * C<trap>
+
+Attempt to print summary information if run is interrupted by
+SIGINT (Ctrl-C).
+
+=back
+
+Any keys for which the value is C<undef> will be ignored.
+
+=cut
+
+# new supplied by TAP::Base
+
+{
+    my @legal_callback = qw(
+      parser_args
+      made_parser
+      before_runtests
+      after_runtests
+      after_test
+    );
+
+    my %default_class = (
+        aggregator_class  => 'TAP::Parser::Aggregator',
+        formatter_class   => 'TAP::Formatter::Console',
+        multiplexer_class => 'TAP::Parser::Multiplexer',
+        parser_class      => 'TAP::Parser',
+        scheduler_class   => 'TAP::Parser::Scheduler',
+    );
+
+    sub _initialize {
+        my ( $self, $arg_for ) = @_;
+        $arg_for ||= {};
+
+        $self->SUPER::_initialize( $arg_for, \@legal_callback );
+        my %arg_for = %$arg_for;    # force a shallow copy
+
+        for my $name ( sort keys %VALIDATION_FOR ) {
+            my $property = delete $arg_for{$name};
+            if ( defined $property ) {
+                my $validate = $VALIDATION_FOR{$name};
+
+                my $value = $self->$validate($property);
+                if ( $self->_error ) {
+                    $self->_croak;
+                }
+                $self->$name($value);
+            }
+        }
+
+        $self->jobs(1) unless defined $self->jobs;
+
+        if ( ! defined $self->rules ) {
+            $self->_maybe_load_rulesfile;
+        }
+
+        local $default_class{formatter_class} = 'TAP::Formatter::File'
+          unless -t ( $arg_for{stdout} || \*STDOUT ) && !$ENV{HARNESS_NOTTY};
+
+        while ( my ( $attr, $class ) = each %default_class ) {
+            $self->$attr( $self->$attr() || $class );
+        }
+
+        unless ( $self->formatter ) {
+
+            # This is a little bodge to preserve legacy behaviour. It's
+            # pretty horrible that we know which args are destined for
+            # the formatter.
+            my %formatter_args = ( jobs => $self->jobs );
+            for my $name (@FORMATTER_ARGS) {
+                if ( defined( my $property = delete $arg_for{$name} ) ) {
+                    $formatter_args{$name} = $property;
+                }
+            }
+
+            $self->formatter(
+                $self->_construct( $self->formatter_class, \%formatter_args )
+            );
+        }
+
+        if ( my @props = sort keys %arg_for ) {
+            $self->_croak("Unknown arguments to TAP::Harness::new (@props)");
+        }
+
+        return $self;
+    }
+
+    sub _maybe_load_rulesfile {
+        my ($self) = @_;
+
+        my ($rulesfile) =   defined $self->rulesfile ? $self->rulesfile :
+                            defined($ENV{HARNESS_RULESFILE}) ? $ENV{HARNESS_RULESFILE} :
+                            grep { -r } qw(./testrules.yml t/testrules.yml);
+
+        if ( defined $rulesfile && -r $rulesfile ) {
+            if ( ! eval { require CPAN::Meta::YAML; 1} ) {
+               warn "CPAN::Meta::YAML required to process $rulesfile" ;
+               return;
+            }
+            my $layer = $] lt "5.008" ? "" : ":encoding(UTF-8)";
+            open my $fh, "<$layer", $rulesfile
+                or die "Couldn't open $rulesfile: $!";
+            my $yaml_text = do { local $/; <$fh> };
+            my $yaml = CPAN::Meta::YAML->read_string($yaml_text)
+                or die CPAN::Meta::YAML->errstr;
+            $self->rules( $yaml->[0] );
+        }
+        return;
+    }
+}
+
+##############################################################################
+
+=head2 Instance Methods
+
+=head3 C<runtests>
+
+    $harness->runtests(@tests);
+
+Accepts an array of C<@tests> to be run. This should generally be the
+names of test files, but this is not required. Each element in C<@tests>
+will be passed to C<TAP::Parser::new()> as a C<source>. See
+L<TAP::Parser> for more information.
+
+It is possible to provide aliases that will be displayed in place of the
+test name by supplying the test as a reference to an array containing
+C<< [ $test, $alias ] >>:
+
+    $harness->runtests( [ 't/foo.t', 'Foo Once' ],
+                        [ 't/foo.t', 'Foo Twice' ] );
+
+Normally it is an error to attempt to run the same test twice. Aliases
+allow you to overcome this limitation by giving each run of the test a
+unique name.
+
+Tests will be run in the order found.
+
+If the environment variable C<PERL_TEST_HARNESS_DUMP_TAP> is defined it
+should name a directory into which a copy of the raw TAP for each test
+will be written. TAP is written to files named for each test.
+Subdirectories will be created as needed.
+
+Returns a L<TAP::Parser::Aggregator> containing the test results.
+
+=cut
+
+sub runtests {
+    my ( $self, @tests ) = @_;
+
+    my $aggregate = $self->_construct( $self->aggregator_class );
+
+    $self->_make_callback( 'before_runtests', $aggregate );
+    $aggregate->start;
+    my $finish = sub {
+        my $interrupted = shift;
+        $aggregate->stop;
+        $self->summary( $aggregate, $interrupted );
+        $self->_make_callback( 'after_runtests', $aggregate );
+    };
+    my $run = sub {
+        $self->aggregate_tests( $aggregate, @tests );
+        $finish->();
+    };
+
+    if ( $self->trap ) {
+        local $SIG{INT} = sub {
+            print "\n";
+            $finish->(1);
+            exit;
+        };
+        $run->();
+    }
+    else {
+        $run->();
+    }
+
+    return $aggregate;
+}
+
+=head3 C<summary>
+
+  $harness->summary( $aggregator );
+
+Output the summary for a L<TAP::Parser::Aggregator>.
+
+=cut
+
+sub summary {
+    my ( $self, @args ) = @_;
+    $self->formatter->summary(@args);
+}
+
+sub _after_test {
+    my ( $self, $aggregate, $job, $parser ) = @_;
+
+    $self->_make_callback( 'after_test', $job->as_array_ref, $parser );
+    $aggregate->add( $job->description, $parser );
+}
+
+sub _bailout {
+    my ( $self, $result ) = @_;
+    my $explanation = $result->explanation;
+    die "FAILED--Further testing stopped"
+      . ( $explanation ? ": $explanation\n" : ".\n" );
+}
+
+sub _aggregate_parallel {
+    my ( $self, $aggregate, $scheduler ) = @_;
+
+    my $jobs = $self->jobs;
+    my $mux  = $self->_construct( $self->multiplexer_class );
+
+    RESULT: {
+
+        # Keep multiplexer topped up
+        FILL:
+        while ( $mux->parsers < $jobs ) {
+            my $job = $scheduler->get_job;
+
+            # If we hit a spinner stop filling and start running.
+            last FILL if !defined $job || $job->is_spinner;
+
+            my ( $parser, $session ) = $self->make_parser($job);
+            $mux->add( $parser, [ $session, $job ] );
+        }
+
+        if ( my ( $parser, $stash, $result ) = $mux->next ) {
+            my ( $session, $job ) = @$stash;
+            if ( defined $result ) {
+                $session->result($result);
+                $self->_bailout($result) if $result->is_bailout;
+            }
+            else {
+
+                # End of parser. Automatically removed from the mux.
+                $self->finish_parser( $parser, $session );
+                $self->_after_test( $aggregate, $job, $parser );
+                $job->finish;
+            }
+            redo RESULT;
+        }
+    }
+
+    return;
+}
+
+sub _aggregate_single {
+    my ( $self, $aggregate, $scheduler ) = @_;
+
+    JOB:
+    while ( my $job = $scheduler->get_job ) {
+        next JOB if $job->is_spinner;
+
+        my ( $parser, $session ) = $self->make_parser($job);
+
+        while ( defined( my $result = $parser->next ) ) {
+            $session->result($result);
+            if ( $result->is_bailout ) {
+
+                # Keep reading until input is exhausted in the hope
+                # of allowing any pending diagnostics to show up.
+                1 while $parser->next;
+                $self->_bailout($result);
+            }
+        }
+
+        $self->finish_parser( $parser, $session );
+        $self->_after_test( $aggregate, $job, $parser );
+        $job->finish;
+    }
+
+    return;
+}
+
+=head3 C<aggregate_tests>
+
+  $harness->aggregate_tests( $aggregate, @tests );
+
+Run the named tests and display a summary of result. Tests will be run
+in the order found.
+
+Test results will be added to the supplied L<TAP::Parser::Aggregator>.
+C<aggregate_tests> may be called multiple times to run several sets of
+tests. Multiple C<Test::Harness> instances may be used to pass results
+to a single aggregator so that different parts of a complex test suite
+may be run using different C<TAP::Harness> settings. This is useful, for
+example, in the case where some tests should run in parallel but others
+are unsuitable for parallel execution.
+
+    my $formatter   = TAP::Formatter::Console->new;
+    my $ser_harness = TAP::Harness->new( { formatter => $formatter } );
+    my $par_harness = TAP::Harness->new(
+        {   formatter => $formatter,
+            jobs      => 9
+        }
+    );
+    my $aggregator = TAP::Parser::Aggregator->new;
+
+    $aggregator->start();
+    $ser_harness->aggregate_tests( $aggregator, @ser_tests );
+    $par_harness->aggregate_tests( $aggregator, @par_tests );
+    $aggregator->stop();
+    $formatter->summary($aggregator);
+
+Note that for simpler testing requirements it will often be possible to
+replace the above code with a single call to C<runtests>.
+
+Each element of the C<@tests> array is either:
+
+=over
+
+=item * the source name of a test to run
+
+=item * a reference to a [ source name, display name ] array
+
+=back
+
+In the case of a perl test suite, typically I<source names> are simply the file
+names of the test scripts to run.
+
+When you supply a separate display name it becomes possible to run a
+test more than once; the display name is effectively the alias by which
+the test is known inside the harness. The harness doesn't care if it
+runs the same test more than once when each invocation uses a
+different name.
+
+=cut
+
+sub aggregate_tests {
+    my ( $self, $aggregate, @tests ) = @_;
+
+    my $jobs      = $self->jobs;
+    my $scheduler = $self->make_scheduler(@tests);
+
+    # #12458
+    local $ENV{HARNESS_IS_VERBOSE} = 1
+      if $self->formatter->verbosity > 0;
+
+    # Formatter gets only names.
+    $self->formatter->prepare( map { $_->description } $scheduler->get_all );
+
+    if ( $self->jobs > 1 ) {
+        $self->_aggregate_parallel( $aggregate, $scheduler );
+    }
+    else {
+        $self->_aggregate_single( $aggregate, $scheduler );
+    }
+
+    return;
+}
+
+sub _add_descriptions {
+    my $self = shift;
+
+    # Turn unwrapped scalars into anonymous arrays and copy the name as
+    # the description for tests that have only a name.
+    return map { @$_ == 1 ? [ $_->[0], $_->[0] ] : $_ }
+      map { 'ARRAY' eq ref $_ ? $_ : [$_] } @_;
+}
+
+=head3 C<make_scheduler>
+
+Called by the harness when it needs to create a
+L<TAP::Parser::Scheduler>. Override in a subclass to provide an
+alternative scheduler. C<make_scheduler> is passed the list of tests
+that was passed to C<aggregate_tests>.
+
+=cut
+
+sub make_scheduler {
+    my ( $self, @tests ) = @_;
+    return $self->_construct(
+        $self->scheduler_class,
+        tests => [ $self->_add_descriptions(@tests) ],
+        rules => $self->rules
+    );
+}
+
+=head3 C<jobs>
+
+Gets or sets the number of concurrent test runs the harness is
+handling.  By default, this value is 1 -- for parallel testing, this
+should be set higher.
+
+=cut
+
+##############################################################################
+
+sub _get_parser_args {
+    my ( $self, $job ) = @_;
+    my $test_prog = $job->filename;
+    my %args      = ();
+
+    $args{sources} = $self->sources if $self->sources;
+
+    my @switches;
+    @switches = $self->lib if $self->lib;
+    push @switches => $self->switches if $self->switches;
+    $args{switches}    = \@switches;
+    $args{spool}       = $self->_open_spool($test_prog);
+    $args{merge}       = $self->merge;
+    $args{ignore_exit} = $self->ignore_exit;
+    $args{version}     = $self->version if $self->version;
+
+    if ( my $exec = $self->exec ) {
+        $args{exec}
+          = ref $exec eq 'CODE'
+          ? $exec->( $self, $test_prog )
+          : [ @$exec, $test_prog ];
+        if ( not defined $args{exec} ) {
+            $args{source} = $test_prog;
+        }
+        elsif ( ( ref( $args{exec} ) || "" ) ne "ARRAY" ) {
+            $args{source} = delete $args{exec};
+        }
+    }
+    else {
+        $args{source} = $test_prog;
+    }
+
+    if ( defined( my $test_args = $self->test_args ) ) {
+
+        if ( ref($test_args) eq 'HASH' ) {
+
+            # different args for each test
+            if ( exists( $test_args->{ $job->description } ) ) {
+                $test_args = $test_args->{ $job->description };
+            }
+            else {
+                $self->_croak( "TAP::Harness Can't find test_args for "
+                      . $job->description );
+            }
+        }
+
+        $args{test_args} = $test_args;
+    }
+
+    return \%args;
+}
+
+=head3 C<make_parser>
+
+Make a new parser and display formatter session. Typically used and/or
+overridden in subclasses.
+
+    my ( $parser, $session ) = $harness->make_parser;
+
+=cut
+
+sub make_parser {
+    my ( $self, $job ) = @_;
+
+    my $args = $self->_get_parser_args($job);
+    $self->_make_callback( 'parser_args', $args, $job->as_array_ref );
+    my $parser = $self->_construct( $self->parser_class, $args );
+
+    $self->_make_callback( 'made_parser', $parser, $job->as_array_ref );
+    my $session = $self->formatter->open_test( $job->description, $parser );
+
+    return ( $parser, $session );
+}
+
+=head3 C<finish_parser>
+
+Terminate use of a parser. Typically used and/or overridden in
+subclasses. The parser isn't destroyed as a result of this.
+
+=cut
+
+sub finish_parser {
+    my ( $self, $parser, $session ) = @_;
+
+    $session->close_test;
+    $self->_close_spool($parser);
+
+    return $parser;
+}
+
+sub _open_spool {
+    my $self = shift;
+    my $test = shift;
+
+    if ( my $spool_dir = $ENV{PERL_TEST_HARNESS_DUMP_TAP} ) {
+
+        my $spool = File::Spec->catfile( $spool_dir, $test );
+
+        # Make the directory
+        my ( $vol, $dir, undef ) = File::Spec->splitpath($spool);
+        my $path = File::Spec->catpath( $vol, $dir, '' );
+        eval { mkpath($path) };
+        $self->_croak($@) if $@;
+
+        my $spool_handle = IO::Handle->new;
+        open( $spool_handle, ">$spool" )
+          or $self->_croak(" Can't write $spool ( $! ) ");
+
+        return $spool_handle;
+    }
+
+    return;
+}
+
+sub _close_spool {
+    my $self = shift;
+    my ($parser) = @_;
+
+    if ( my $spool_handle = $parser->delete_spool ) {
+        close($spool_handle)
+          or $self->_croak(" Error closing TAP spool file( $! ) \n ");
+    }
+
+    return;
+}
+
+sub _croak {
+    my ( $self, $message ) = @_;
+    unless ($message) {
+        $message = $self->_error;
+    }
+    $self->SUPER::_croak($message);
+
+    return;
+}
+
+1;
+
+__END__
+
+##############################################################################
+
+=head1 CONFIGURING
+
+C<TAP::Harness> is designed to be easy to configure.
+
+=head2 Plugins
+
+C<TAP::Parser> plugins let you change the way TAP is I<input> to and I<output>
+from the parser.
+
+L<TAP::Parser::SourceHandler>s handle TAP I<input>.  You can configure them
+and load custom handlers using the C<sources> parameter to L</new>.
+
+L<TAP::Formatter>s handle TAP I<output>.  You can load custom formatters by
+using the C<formatter_class> parameter to L</new>.  To configure a formatter,
+you currently need to instantiate it outside of L<TAP::Harness> and pass it in
+with the C<formatter> parameter to L</new>.  This I<may> be addressed by adding
+a I<formatters> parameter to L</new> in the future.
+
+=head2 C<Module::Build>
+
+L<Module::Build> version C<0.30> supports C<TAP::Harness>.
+
+To load C<TAP::Harness> plugins, you'll need to use the C<tap_harness_args>
+parameter to C<new>, typically from your C<Build.PL>.  For example:
+
+  Module::Build->new(
+      module_name        => 'MyApp',
+      test_file_exts     => [qw(.t .tap .txt)],
+      use_tap_harness    => 1,
+      tap_harness_args   => {
+          sources => {
+              MyCustom => {},
+              File => {
+                  extensions => ['.tap', '.txt'],
+              },
+          },
+          formatter_class => 'TAP::Formatter::HTML',
+      },
+      build_requires     => {
+          'Module::Build' => '0.30',
+          'TAP::Harness'  => '3.18',
+      },
+  )->create_build_script;
+
+See L</new>
+
+=head2 C<ExtUtils::MakeMaker>
+
+L<ExtUtils::MakeMaker> does not support L<TAP::Harness> out-of-the-box.
+
+=head2 C<prove>
+
+L<prove> supports C<TAP::Harness> plugins, and has a plugin system of its
+own.  See L<prove/FORMATTERS>, L<prove/SOURCE HANDLERS> and L<App::Prove>
+for more details.
+
+=head1 WRITING PLUGINS
+
+If you can't configure C<TAP::Harness> to do what you want, and you can't find
+an existing plugin, consider writing one.
+
+The two primary use cases supported by L<TAP::Harness> for plugins are I<input>
+and I<output>:
+
+=over 2
+
+=item Customize how TAP gets into the parser
+
+To do this, you can either extend an existing L<TAP::Parser::SourceHandler>,
+or write your own.  It's a pretty simple API, and they can be loaded and
+configured using the C<sources> parameter to L</new>.
+
+=item Customize how TAP results are output from the parser
+
+To do this, you can either extend an existing L<TAP::Formatter>, or write your
+own.  Writing formatters are a bit more involved than writing a
+I<SourceHandler>, as you'll need to understand the L<TAP::Parser> API.  A
+good place to start is by understanding how L</aggregate_tests> works.
+
+Custom formatters can be loaded configured using the C<formatter_class>
+parameter to L</new>.
+
+=back
+
+=head1 SUBCLASSING
+
+If you can't configure C<TAP::Harness> to do exactly what you want, and writing
+a plugin isn't an option, consider extending it.  It is designed to be (mostly)
+easy to subclass, though the cases when sub-classing is necessary should be few
+and far between.
+
+=head2 Methods
+
+The following methods are ones you may wish to override if you want to
+subclass C<TAP::Harness>.
+
+=over 4
+
+=item L</new>
+
+=item L</runtests>
+
+=item L</summary>
+
+=back
+
+=cut
+
+=head1 REPLACING
+
+If you like the C<prove> utility and L<TAP::Parser> but you want your
+own harness, all you need to do is write one and provide C<new> and
+C<runtests> methods. Then you can use the C<prove> utility like so:
+
+ prove --harness My::Test::Harness
+
+Note that while C<prove> accepts a list of tests (or things to be
+tested), C<new> has a fairly rich set of arguments. You'll probably want
+to read over this code carefully to see how all of them are being used.
+
+=head1 SEE ALSO
+
+L<Test::Harness>
+
+=cut
+
+# vim:ts=4:sw=4:et:sta
diff --git a/lib/5.24.1/TAP/Harness/Beyond.pod b/lib/5.24.1/TAP/Harness/Beyond.pod
new file mode 100644
index 00000000..989e2efc
--- /dev/null
+++ b/lib/5.24.1/TAP/Harness/Beyond.pod
@@ -0,0 +1,426 @@
+=head1 NAME
+
+Test::Harness::Beyond - Beyond make test
+
+=head1 Beyond make test
+
+Test::Harness is responsible for running test scripts, analysing
+their output and reporting success or failure. When I type 
+F<make test> (or F<./Build test>) for a module, Test::Harness is usually
+used to run the tests (not all modules use Test::Harness but the
+majority do).
+
+To start exploring some of the features of Test::Harness I need to
+switch from F<make test> to the F<prove> command (which ships with
+Test::Harness). For the following examples I'll also need a recent
+version of Test::Harness installed; 3.14 is current as I write.
+
+For the examples I'm going to assume that we're working with a
+'normal' Perl module distribution. Specifically I'll assume that
+typing F<make> or F<./Build> causes the built, ready-to-install module
+code to be available below ./blib/lib and ./blib/arch and that
+there's a directory called 't' that contains our tests. Test::Harness
+isn't hardwired to that configuration but it  saves me from explaining
+which files live where for each example.
+
+Back to F<prove>; like F<make test> it runs a test suite - but it
+provides far more control over which tests are executed, in what
+order and how their results are reported. Typically F<make test>
+runs all the test scripts below the 't' directory. To do the same
+thing with prove I type:
+
+  prove -rb t
+
+The switches here are -r to recurse into any directories below 't'
+and -b which adds ./blib/lib and ./blib/arch to Perl's include path
+so that the tests can find the code they will be testing. If I'm
+testing a module of which an earlier version is already installed
+I need to be careful about the include path to make sure I'm not
+running my tests against the installed version rather than the new
+one that I'm working on.
+
+Unlike F<make test>, typing F<prove> doesn't automatically rebuild
+my module. If I forget to make before prove I will be testing against
+older versions of those files - which inevitably leads to confusion.
+I either get into the habit of typing
+
+  make && prove -rb t
+
+or - if I have no XS code that needs to be built I use the modules
+below F<lib> instead
+
+  prove -Ilib -r t
+
+So far I've shown you nothing that F<make test> doesn't do. Let's
+fix that.
+
+=head2 Saved State
+
+If I have failing tests in a test suite that consists of more than
+a handful of scripts and takes more than a few seconds to run it
+rapidly becomes tedious to run the whole test suite repeatedly as
+I track down the problems.
+
+I can tell prove just to run the tests that are failing like this:
+
+  prove -b t/this_fails.t t/so_does_this.t
+
+That speeds things up but I have to make a note of which tests are
+failing and make sure that I run those tests. Instead I can use
+prove's --state switch and have it keep track of failing tests for
+me. First I do a complete run of the test suite and tell prove to
+save the results:
+
+  prove -rb --state=save t
+
+That stores a machine readable summary of the test run in a file
+called '.prove' in the current directory. If I have failures I can
+then run just the failing scripts like this:
+
+  prove -b --state=failed
+
+I can also tell prove to save the results again so that it updates
+its idea of which tests failed:
+
+  prove -b --state=failed,save
+
+As soon as one of my failing tests passes it will be removed from
+the list of failed tests. Eventually I fix them all and prove can
+find no failing tests to run:
+
+  Files=0, Tests=0, 0 wallclock secs ( 0.00 usr + 0.00 sys = 0.00 CPU)
+  Result: NOTESTS
+
+As I work on a particular part of my module it's most likely that
+the tests that cover that code will fail. I'd like to run the whole
+test suite but have it prioritize these 'hot' tests. I can tell
+prove to do this:
+
+  prove -rb --state=hot,save t
+
+All the tests will run but those that failed most recently will be
+run first. If no tests have failed since I started saving state all
+tests will run in their normal order. This combines full test
+coverage with early notification of failures.
+
+The --state switch supports a number of options; for example to run
+failed tests first followed by all remaining tests ordered by the
+timestamps of the test scripts - and save the results - I can use
+
+  prove -rb --state=failed,new,save t
+
+See the prove documentation (type prove --man) for the full list
+of state options.
+
+When I tell prove to save state it writes a file called '.prove'
+('_prove' on Windows) in the current directory. It's a YAML document
+so it's quite easy to write tools of your own that work on the saved
+test state - but the format isn't officially documented so it might
+change without (much) warning in the future.
+
+=head2 Parallel Testing
+
+If my tests take too long to run I may be able to speed them up by
+running multiple test scripts in parallel. This is particularly
+effective if the tests are I/O bound or if I have multiple CPU
+cores. I tell prove to run my tests in parallel like this:
+
+  prove -rb -j 9 t
+
+The -j switch enables parallel testing; the number that follows it
+is the maximum number of tests to run in parallel. Sometimes tests
+that pass when run sequentially will fail when run in parallel. For
+example if two different test scripts use the same temporary file
+or attempt to listen on the same socket I'll have problems running
+them in parallel. If I see unexpected failures I need to check my
+tests to work out which of them are trampling on the same resource
+and rename temporary files or add locks as appropriate.
+
+To get the most performance benefit I want to have the test scripts
+that take the longest to run start first - otherwise I'll be waiting
+for the one test that takes nearly a minute to complete after all
+the others are done. I can use the --state switch to run the tests
+in slowest to fastest order:
+
+  prove -rb -j 9 --state=slow,save t
+
+=head2 Non-Perl Tests
+
+The Test Anything Protocol (http://testanything.org/) isn't just
+for Perl. Just about any language can be used to write tests that
+output TAP. There are TAP based testing libraries for C, C++, PHP,
+Python and many others. If I can't find a TAP library for my language
+of choice it's easy to generate valid TAP. It looks like this:
+
+  1..3 
+  ok 1 - init OK 
+  ok 2 - opened file 
+  not ok 3 - appended to file
+
+The first line is the plan - it specifies the number of tests I'm
+going to run so that it's easy to check that the test script didn't
+exit before running all the expected tests. The following lines are
+the test results - 'ok' for pass, 'not ok' for fail. Each test has
+a number and, optionally, a description. And that's it. Any language
+that can produce output like that on STDOUT can be used to write
+tests.
+
+Recently I've been rekindling a two-decades-old interest in Forth.
+Evidently I have a masochistic streak that even Perl can't satisfy.
+I want to write tests in Forth and run them using prove (you can
+find my gforth TAP experiments at
+https://svn.hexten.net/andy/Forth/Testing/). I can use the --exec
+switch to tell prove to run the tests using gforth like this:
+
+  prove -r --exec gforth t
+
+Alternately, if the language used to write my tests allows a shebang
+line I can use that to specify the interpreter. Here's a test written
+in PHP:
+
+  #!/usr/bin/php 
+  <?php
+    print "1..2\n"; 
+    print "ok 1\n"; 
+    print "not ok 2\n";
+  ?>
+
+If I save that as t/phptest.t the shebang line will ensure that it
+runs correctly along with all my other tests.
+
+=head2 Mixing it up
+
+Subtle interdependencies between test programs can mask problems -
+for example an earlier test may neglect to remove a temporary file
+that affects the behaviour of a later test. To find this kind of
+problem I use the --shuffle and --reverse options to run my tests
+in random or reversed order.
+
+=head2 Rolling My Own
+
+If I need a feature that prove doesn't provide I can easily write my own.
+
+Typically you'll want to change how TAP gets I<input> into and I<output>
+from the parser.  L<App::Prove> supports arbitrary plugins, and L<TAP::Harness>
+supports custom I<formatters> and I<source handlers> that you can load using
+either L<prove> or L<Module::Build>; there are many examples to base mine on.
+For more details see L<App::Prove>, L<TAP::Parser::SourceHandler>, and
+L<TAP::Formatter::Base>.
+
+If writing a plugin is not enough, you can write your own test harness; one of
+the motives for the 3.00 rewrite of Test::Harness was to make it easier to
+subclass and extend.
+
+The Test::Harness module is a compatibility wrapper around TAP::Harness.
+For new applications I should use TAP::Harness directly. As we'll
+see, prove uses TAP::Harness.
+
+When I run prove it processes its arguments, figures out which test
+scripts to run and then passes control to TAP::Harness to run the
+tests, parse, analyse and present the results. By subclassing
+TAP::Harness I can customise many aspects of the test run.
+
+I want to log my test results in a database so I can track them
+over time. To do this I override the summary method in TAP::Harness.
+I start with a simple prototype that dumps the results as a YAML
+document:
+
+  package My::TAP::Harness;
+
+  use base 'TAP::Harness';
+  use YAML;
+
+  sub summary {
+    my ( $self, $aggregate ) = @_; 
+    print Dump( $aggregate );
+    $self->SUPER::summary( $aggregate );
+  }
+
+  1;
+
+I need to tell prove to use my My::TAP::Harness. If My::TAP::Harness
+is on Perl's @INC include path I can
+
+  prove --harness=My::TAP::Harness -rb t
+
+If I don't have My::TAP::Harness installed on @INC I need to provide
+the correct path to perl when I run prove:
+
+  perl -Ilib `which prove` --harness=My::TAP::Harness -rb t
+
+I can incorporate these options into my own version of prove. It's
+pretty simple. Most of the work of prove is handled by App::Prove.
+The important code in prove is just:
+
+  use App::Prove;
+
+  my $app = App::Prove->new; 
+  $app->process_args(@ARGV); 
+  exit( $app->run ? 0 : 1 );
+
+If I write a subclass of App::Prove I can customise any aspect of
+the test runner while inheriting all of prove's behaviour. Here's
+myprove:
+
+  #!/usr/bin/env perl use lib qw( lib );      # Add ./lib to @INC
+  use App::Prove;
+
+  my $app = App::Prove->new;
+
+  # Use custom TAP::Harness subclass
+  $app->harness( 'My::TAP::Harness' );
+
+  $app->process_args( @ARGV ); exit( $app->run ? 0 : 1 );
+
+Now I can run my tests like this
+
+  ./myprove -rb t
+
+=head2 Deeper Customisation
+
+Now that I know how to subclass and replace TAP::Harness I can
+replace any other part of the harness. To do that I need to know
+which classes are responsible for which functionality. Here's a
+brief guided tour; the default class for each component is shown
+in parentheses. Normally any replacements I write will be subclasses
+of these default classes.
+
+When I run my tests TAP::Harness creates a scheduler
+(TAP::Parser::Scheduler) to work out the running order for the
+tests, an aggregator (TAP::Parser::Aggregator) to collect and analyse
+the test results and a formatter (TAP::Formatter::Console) to display
+those results.
+
+If I'm running my tests in parallel there may also be a multiplexer
+(TAP::Parser::Multiplexer) - the component that allows multiple
+tests to run simultaneously.
+
+Once it has created those helpers TAP::Harness starts running the
+tests. For each test it creates a new parser (TAP::Parser) which
+is responsible for running the test script and parsing its output.
+
+To replace any of these components I call one of these harness
+methods with the name of the replacement class:
+
+  aggregator_class 
+  formatter_class 
+  multiplexer_class 
+  parser_class
+  scheduler_class
+
+For example, to replace the aggregator I would
+
+  $harness->aggregator_class( 'My::Aggregator' );
+
+Alternately I can supply the names of my substitute classes to the
+TAP::Harness constructor:
+
+  my $harness = TAP::Harness->new(
+    { aggregator_class => 'My::Aggregator' }
+  );
+
+If I need to reach even deeper into the internals of the harness I
+can replace the classes that TAP::Parser uses to execute test scripts
+and tokenise their output. Before running a test script TAP::Parser
+creates a grammar (TAP::Parser::Grammar) to decode the raw TAP into
+tokens, a result factory (TAP::Parser::ResultFactory) to turn the
+decoded TAP results into objects and, depending on whether it's
+running a test script or reading TAP from a file, scalar or array
+a source or an iterator (TAP::Parser::IteratorFactory).
+
+Each of these objects may be replaced by calling one of these parser
+methods:
+
+  source_class
+  perl_source_class 
+  grammar_class 
+  iterator_factory_class
+  result_factory_class
+
+=head2 Callbacks
+
+As an alternative to subclassing the components I need to change I
+can attach callbacks to the default classes. TAP::Harness exposes
+these callbacks:
+
+  parser_args      Tweak the parameters used to create the parser 
+  made_parser      Just made a new parser 
+  before_runtests  About to run tests 
+  after_runtests   Have run all tests 
+  after_test       Have run an individual test script
+
+TAP::Parser also supports callbacks; bailout, comment, plan, test,
+unknown, version and yaml are called for the corresponding TAP
+result types, ALL is called for all results, ELSE is called for all
+results for which a named callback is not installed and EOF is
+called once at the end of each TAP stream.
+
+To install a callback I pass the name of the callback and a subroutine
+reference to TAP::Harness or TAP::Parser's callback method:
+
+  $harness->callback( after_test => sub {
+    my ( $script, $desc, $parser ) = @_;
+  } );
+
+I can also pass callbacks to the constructor:
+
+  my $harness = TAP::Harness->new({
+    callbacks => {
+	    after_test => sub {
+        my ( $script, $desc, $parser ) = @_; 
+        # Do something interesting here
+	    }
+    }
+  });
+
+When it comes to altering the behaviour of the test harness there's
+more than one way to do it. Which way is best depends on my
+requirements. In general if I only want to observe test execution
+without changing the harness' behaviour (for example to log test
+results to a database) I choose callbacks. If I want to make the
+harness behave differently subclassing gives me more control.
+
+=head2 Parsing TAP
+
+Perhaps I don't need a complete test harness. If I already have a
+TAP test log that I need to parse all I need is TAP::Parser and the
+various classes it depends upon. Here's the code I need to run a
+test and parse its TAP output
+
+  use TAP::Parser;
+
+  my $parser = TAP::Parser->new( { source => 't/simple.t' } );
+  while ( my $result = $parser->next ) {
+    print $result->as_string, "\n";
+  }
+
+Alternately I can pass an open filehandle as source and have the
+parser read from that rather than attempting to run a test script:
+
+  open my $tap, '<', 'tests.tap' 
+    or die "Can't read TAP transcript ($!)\n"; 
+  my $parser = TAP::Parser->new( { source => $tap } );
+  while ( my $result = $parser->next ) {
+    print $result->as_string, "\n";
+  }
+
+This approach is useful if I need to convert my TAP based test
+results into some other representation. See TAP::Convert::TET
+(http://search.cpan.org/dist/TAP-Convert-TET/) for an example of
+this approach.
+
+=head2 Getting Support
+
+The Test::Harness developers hang out on the tapx-dev mailing
+list[1]. For discussion of general, language independent TAP issues
+there's the tap-l[2] list. Finally there's a wiki dedicated to the
+Test Anything Protocol[3]. Contributions to the wiki, patches and
+suggestions are all welcome.
+
+=for comment
+  The URLs in [1] and [2] point to 404 pages. What are currently the
+  correct URLs?
+
+[1] L<http://www.hexten.net/mailman/listinfo/tapx-dev>
+[2] L<http://testanything.org/mailman/listinfo/tap-l>
+[3] L<http://testanything.org/>
diff --git a/lib/5.24.1/TAP/Harness/Env.pm b/lib/5.24.1/TAP/Harness/Env.pm
new file mode 100644
index 00000000..0a328da7
--- /dev/null
+++ b/lib/5.24.1/TAP/Harness/Env.pm
@@ -0,0 +1,215 @@
+package TAP::Harness::Env;
+
+use strict;
+use warnings;
+
+use constant IS_VMS => ( $^O eq 'VMS' );
+use TAP::Object;
+use Text::ParseWords qw/shellwords/;
+
+our $VERSION = '3.36_01';
+
+# Get the parts of @INC which are changed from the stock list AND
+# preserve reordering of stock directories.
+sub _filtered_inc_vms {
+    my @inc = grep { !ref } @INC;    #28567
+
+    # VMS has a 255-byte limit on the length of %ENV entries, so
+    # toss the ones that involve perl_root, the install location
+    @inc = grep { !/perl_root/i } @inc;
+
+    my @default_inc = _default_inc();
+
+    my @new_inc;
+    my %seen;
+    for my $dir (@inc) {
+        next if $seen{$dir}++;
+
+        if ( $dir eq ( $default_inc[0] || '' ) ) {
+            shift @default_inc;
+        }
+        else {
+            push @new_inc, $dir;
+        }
+
+        shift @default_inc while @default_inc and $seen{ $default_inc[0] };
+    }
+    return @new_inc;
+}
+
+# Cache this to avoid repeatedly shelling out to Perl.
+my @inc;
+
+sub _default_inc {
+    return @inc if @inc;
+
+    local $ENV{PERL5LIB};
+    local $ENV{PERLLIB};
+
+    my $perl = $ENV{HARNESS_PERL} || $^X;
+
+    # Avoid using -l for the benefit of Perl 6
+    chomp( @inc = `"$perl" -e "print join qq[\\n], \@INC, q[]"` );
+    return @inc;
+}
+
+sub create {
+	my $package = shift;
+    my %input = %{ shift || {} };
+
+    my @libs         = @{ delete $input{libs}     || [] };
+    my @raw_switches = @{ delete $input{switches} || [] };
+    my @opt
+      = ( @raw_switches, shellwords( $ENV{HARNESS_PERL_SWITCHES} || '' ) );
+    my @switches;
+    while ( my $opt = shift @opt ) {
+        if ( $opt =~ /^ -I (.*) $ /x ) {
+            push @libs, length($1) ? $1 : shift @opt;
+        }
+        else {
+            push @switches, $opt;
+        }
+    }
+
+    # Do things the old way on VMS...
+    push @libs, _filtered_inc_vms() if IS_VMS;
+
+    # If $Verbose isn't numeric default to 1. This helps core.
+    my $verbose
+      = $ENV{HARNESS_VERBOSE}
+      ? $ENV{HARNESS_VERBOSE} !~ /\d/
+          ? 1
+          : $ENV{HARNESS_VERBOSE}
+      : 0;
+
+    my %args = (
+        lib         => \@libs,
+        timer       => $ENV{HARNESS_TIMER} || 0,
+        switches    => \@switches,
+        color       => $ENV{HARNESS_COLOR} || 0,
+        verbosity   => $verbose,
+        ignore_exit => $ENV{HARNESS_IGNORE_EXIT} || 0,
+    );
+
+    my $class = delete $input{harness_class} || $ENV{HARNESS_SUBCLASS} || 'TAP::Harness';
+    if ( defined( my $env_opt = $ENV{HARNESS_OPTIONS} ) ) {
+        for my $opt ( split /:/, $env_opt ) {
+            if ( $opt =~ /^j(\d*)$/ ) {
+                $args{jobs} = $1 || 9;
+            }
+            elsif ( $opt eq 'c' ) {
+                $args{color} = 1;
+            }
+            elsif ( $opt =~ m/^f(.*)$/ ) {
+                my $fmt = $1;
+                $fmt =~ s/-/::/g;
+                $args{formatter_class} = $fmt;
+            }
+            elsif ( $opt =~ m/^a(.*)$/ ) {
+                my $archive = $1;
+                $class = 'TAP::Harness::Archive';
+                $args{archive} = $archive;
+            }
+            else {
+                die "Unknown HARNESS_OPTIONS item: $opt\n";
+            }
+        }
+    }
+    return TAP::Object->_construct($class, { %args, %input });
+}
+
+1;
+
+=head1 NAME
+
+TAP::Harness::Env - Parsing harness related environmental variables where appropriate
+
+=head1 VERSION
+
+Version 3.36
+
+=head1 SYNOPSIS
+
+ my $harness = TAP::Harness::Env->create(\%extra_args)
+
+=head1 DESCRIPTION
+
+This module implements the environmental variables that L<Test::Harness> uses with TAP::Harness, and instantiates the appropriate class with the appropriate arguments.
+
+=head1 METHODS
+
+=over 4
+
+=item * create( \%args )
+
+This function reads the environment and generates an appropriate argument hash from it. If given any arguments in C<%extra_args>, these will override the environmental defaults. In accepts C<harness_class> (which defaults to C<TAP::Harness>), and any argument the harness class accepts.
+
+=back
+
+=head1 ENVIRONMENTAL VARIABLES
+
+=over 4
+
+=item C<HARNESS_PERL_SWITCHES>
+
+Setting this adds perl command line switches to each test file run.
+
+For example, C<HARNESS_PERL_SWITCHES=-T> will turn on taint mode.
+C<HARNESS_PERL_SWITCHES=-MDevel::Cover> will run C<Devel::Cover> for
+each test.
+
+=item C<HARNESS_VERBOSE>
+
+If true, C<TAP::Harness> will output the verbose results of running
+its tests.
+
+=item C<HARNESS_SUBCLASS>
+
+Specifies a TAP::Harness subclass to be used in place of TAP::Harness.
+
+=item C<HARNESS_OPTIONS>
+
+Provide additional options to the harness. Currently supported options are:
+
+=over
+
+=item C<< j<n> >>
+
+Run <n> (default 9) parallel jobs.
+
+=item C<< c >>
+
+Try to color output. See L<TAP::Formatter::Base/"new">.
+
+=item C<< a<file.tgz> >>
+
+Will use L<TAP::Harness::Archive> as the harness class, and save the TAP to
+C<file.tgz>
+
+=item C<< fPackage-With-Dashes >>
+
+Set the formatter_class of the harness being run. Since the C<HARNESS_OPTIONS>
+is seperated by C<:>, we use C<-> instead.
+
+=back
+
+Multiple options may be separated by colons:
+
+    HARNESS_OPTIONS=j9:c make test
+
+=item C<HARNESS_TIMER>
+
+Setting this to true will make the harness display the number of
+milliseconds each test took.  You can also use F<prove>'s C<--timer>
+switch.
+
+=item C<HARNESS_COLOR>
+
+Attempt to produce color output.
+
+=item C<HARNESS_IGNORE_EXIT>
+
+If set to a true value instruct C<TAP::Parser> to ignore exit and wait
+status from test scripts.
+
+=back
diff --git a/lib/5.24.1/TAP/Object.pm b/lib/5.24.1/TAP/Object.pm
new file mode 100644
index 00000000..5195bd7f
--- /dev/null
+++ b/lib/5.24.1/TAP/Object.pm
@@ -0,0 +1,155 @@
+package TAP::Object;
+
+use strict;
+use warnings;
+
+=head1 NAME
+
+TAP::Object - Base class that provides common functionality to all C<TAP::*> modules
+
+=head1 VERSION
+
+Version 3.36
+
+=cut
+
+our $VERSION = '3.36_01';
+
+=head1 SYNOPSIS
+
+    package TAP::Whatever;
+
+    use strict;
+
+    use base 'TAP::Object';
+
+    # new() implementation by TAP::Object
+    sub _initialize {
+        my ( $self, @args) = @_;
+        # initialize your object
+        return $self;
+    }
+
+    # ... later ...
+    my $obj = TAP::Whatever->new(@args);
+
+=head1 DESCRIPTION
+
+C<TAP::Object> provides a default constructor and exception model for all
+C<TAP::*> classes.  Exceptions are raised using L<Carp>.
+
+=head1 METHODS
+
+=head2 Class Methods
+
+=head3 C<new>
+
+Create a new object.  Any arguments passed to C<new> will be passed on to the
+L</_initialize> method.  Returns a new object.
+
+=cut
+
+sub new {
+    my $class = shift;
+    my $self = bless {}, $class;
+    return $self->_initialize(@_);
+}
+
+=head2 Instance Methods
+
+=head3 C<_initialize>
+
+Initializes a new object.  This method is a stub by default, you should override
+it as appropriate.
+
+I<Note:> L</new> expects you to return C<$self> or raise an exception.  See
+L</_croak>, and L<Carp>.
+
+=cut
+
+sub _initialize {
+    return $_[0];
+}
+
+=head3 C<_croak>
+
+Raise an exception using C<croak> from L<Carp>, eg:
+
+    $self->_croak( 'why me?', 'aaarrgh!' );
+
+May also be called as a I<class> method.
+
+    $class->_croak( 'this works too' );
+
+=cut
+
+sub _croak {
+    my $proto = shift;
+    require Carp;
+    Carp::croak(@_);
+    return;
+}
+
+=head3 C<_confess>
+
+Raise an exception using C<confess> from L<Carp>, eg:
+
+    $self->_confess( 'why me?', 'aaarrgh!' );
+
+May also be called as a I<class> method.
+
+    $class->_confess( 'this works too' );
+
+=cut
+
+sub _confess {
+    my $proto = shift;
+    require Carp;
+    Carp::confess(@_);
+    return;
+}
+
+=head3 C<_construct>
+
+Create a new instance of the specified class.
+
+=cut
+
+sub _construct {
+    my ( $self, $class, @args ) = @_;
+
+    $self->_croak("Bad module name $class")
+      unless $class =~ /^ \w+ (?: :: \w+ ) *$/x;
+
+    unless ( $class->can('new') ) {
+        local $@;
+        eval "require $class";
+        $self->_croak("Can't load $class: $@") if $@;
+    }
+
+    return $class->new(@args);
+}
+
+=head3 C<mk_methods>
+
+Create simple getter/setters.
+
+ __PACKAGE__->mk_methods(@method_names);
+
+=cut
+
+sub mk_methods {
+    my ( $class, @methods ) = @_;
+    for my $method_name (@methods) {
+        my $method = "${class}::$method_name";
+        no strict 'refs';
+        *$method = sub {
+            my $self = shift;
+            $self->{$method_name} = shift if @_;
+            return $self->{$method_name};
+        };
+    }
+}
+
+1;
+
diff --git a/lib/5.24.1/TAP/Parser.pm b/lib/5.24.1/TAP/Parser.pm
new file mode 100644
index 00000000..f688c722
--- /dev/null
+++ b/lib/5.24.1/TAP/Parser.pm
@@ -0,0 +1,1931 @@
+package TAP::Parser;
+
+use strict;
+use warnings;
+
+use TAP::Parser::Grammar                   ();
+use TAP::Parser::Result                    ();
+use TAP::Parser::ResultFactory             ();
+use TAP::Parser::Source                    ();
+use TAP::Parser::Iterator                  ();
+use TAP::Parser::IteratorFactory           ();
+use TAP::Parser::SourceHandler::Executable ();
+use TAP::Parser::SourceHandler::Perl       ();
+use TAP::Parser::SourceHandler::File       ();
+use TAP::Parser::SourceHandler::RawTAP     ();
+use TAP::Parser::SourceHandler::Handle     ();
+
+use Carp qw( confess );
+
+use base 'TAP::Base';
+
+=encoding utf8
+
+=head1 NAME
+
+TAP::Parser - Parse L<TAP|Test::Harness::TAP> output
+
+=head1 VERSION
+
+Version 3.36
+
+=cut
+
+our $VERSION = '3.36_01';
+
+my $DEFAULT_TAP_VERSION = 12;
+my $MAX_TAP_VERSION     = 13;
+
+$ENV{TAP_VERSION} = $MAX_TAP_VERSION;
+
+END {
+
+    # For VMS.
+    delete $ENV{TAP_VERSION};
+}
+
+BEGIN {    # making accessors
+    __PACKAGE__->mk_methods(
+        qw(
+          _iterator
+          _spool
+          exec
+          exit
+          is_good_plan
+          plan
+          tests_planned
+          tests_run
+          wait
+          version
+          in_todo
+          start_time
+          end_time
+          start_times
+          end_times
+          skip_all
+          grammar_class
+          result_factory_class
+          iterator_factory_class
+          )
+    );
+
+    sub _stream {    # deprecated
+        my $self = shift;
+        $self->_iterator(@_);
+    }
+}    # done making accessors
+
+=head1 SYNOPSIS
+
+    use TAP::Parser;
+
+    my $parser = TAP::Parser->new( { source => $source } );
+
+    while ( my $result = $parser->next ) {
+        print $result->as_string;
+    }
+
+=head1 DESCRIPTION
+
+C<TAP::Parser> is designed to produce a proper parse of TAP output. For
+an example of how to run tests through this module, see the simple
+harnesses C<examples/>.
+
+There's a wiki dedicated to the Test Anything Protocol:
+
+L<http://testanything.org>
+
+It includes the TAP::Parser Cookbook:
+
+L<http://testanything.org/testing-with-tap/perl/tap::parser-cookbook.html>
+
+=head1 METHODS
+
+=head2 Class Methods
+
+=head3 C<new>
+
+ my $parser = TAP::Parser->new(\%args);
+
+Returns a new C<TAP::Parser> object.
+
+The arguments should be a hashref with I<one> of the following keys:
+
+=over 4
+
+=item * C<source>
+
+I<CHANGED in 3.18>
+
+This is the preferred method of passing input to the constructor.
+
+The C<source> is used to create a L<TAP::Parser::Source> that is passed to the
+L</iterator_factory_class> which in turn figures out how to handle the source and
+creates a <TAP::Parser::Iterator> for it.  The iterator is used by the parser to
+read in the TAP stream.
+
+To configure the I<IteratorFactory> use the C<sources> parameter below.
+
+Note that C<source>, C<tap> and C<exec> are I<mutually exclusive>.
+
+=item * C<tap>
+
+I<CHANGED in 3.18>
+
+The value should be the complete TAP output.
+
+The I<tap> is used to create a L<TAP::Parser::Source> that is passed to the
+L</iterator_factory_class> which in turn figures out how to handle the source and
+creates a <TAP::Parser::Iterator> for it.  The iterator is used by the parser to
+read in the TAP stream.
+
+To configure the I<IteratorFactory> use the C<sources> parameter below.
+
+Note that C<source>, C<tap> and C<exec> are I<mutually exclusive>.
+
+=item * C<exec>
+
+Must be passed an array reference.
+
+The I<exec> array ref is used to create a L<TAP::Parser::Source> that is passed
+to the L</iterator_factory_class> which in turn figures out how to handle the
+source and creates a <TAP::Parser::Iterator> for it.  The iterator is used by
+the parser to read in the TAP stream.
+
+By default the L<TAP::Parser::SourceHandler::Executable> class will create a
+L<TAP::Parser::Iterator::Process> object to handle the source.  This passes the
+array reference strings as command arguments to L<IPC::Open3::open3|IPC::Open3>:
+
+ exec => [ '/usr/bin/ruby', 't/my_test.rb' ]
+
+If any C<test_args> are given they will be appended to the end of the command
+argument list.
+
+To configure the I<IteratorFactory> use the C<sources> parameter below.
+
+Note that C<source>, C<tap> and C<exec> are I<mutually exclusive>.
+
+=back
+
+The following keys are optional.
+
+=over 4
+
+=item * C<sources>
+
+I<NEW to 3.18>.
+
+If set, C<sources> must be a hashref containing the names of the
+L<TAP::Parser::SourceHandler>s to load and/or configure.  The values are a
+hash of configuration that will be accessible to the source handlers via
+L<TAP::Parser::Source/config_for>.
+
+For example:
+
+  sources => {
+    Perl => { exec => '/path/to/custom/perl' },
+    File => { extensions => [ '.tap', '.txt' ] },
+    MyCustom => { some => 'config' },
+  }
+
+This will cause C<TAP::Parser> to pass custom configuration to two of the built-
+in source handlers - L<TAP::Parser::SourceHandler::Perl>,
+L<TAP::Parser::SourceHandler::File> - and attempt to load the C<MyCustom>
+class.  See L<TAP::Parser::IteratorFactory/load_handlers> for more detail.
+
+The C<sources> parameter affects how C<source>, C<tap> and C<exec> parameters
+are handled.
+
+See L<TAP::Parser::IteratorFactory>, L<TAP::Parser::SourceHandler> and subclasses for
+more details.
+
+=item * C<callback>
+
+If present, each callback corresponding to a given result type will be called
+with the result as the argument if the C<run> method is used:
+
+ my %callbacks = (
+     test    => \&test_callback,
+     plan    => \&plan_callback,
+     comment => \&comment_callback,
+     bailout => \&bailout_callback,
+     unknown => \&unknown_callback,
+ );
+
+ my $aggregator = TAP::Parser::Aggregator->new;
+ for my $file ( @test_files ) {
+     my $parser = TAP::Parser->new(
+         {
+             source    => $file,
+             callbacks => \%callbacks,
+         }
+     );
+     $parser->run;
+     $aggregator->add( $file, $parser );
+ }
+
+=item * C<switches>
+
+If using a Perl file as a source, optional switches may be passed which will
+be used when invoking the perl executable.
+
+ my $parser = TAP::Parser->new( {
+     source   => $test_file,
+     switches => [ '-Ilib' ],
+ } );
+
+=item * C<test_args>
+
+Used in conjunction with the C<source> and C<exec> option to supply a reference
+to an C<@ARGV> style array of arguments to pass to the test program.
+
+=item * C<spool>
+
+If passed a filehandle will write a copy of all parsed TAP to that handle.
+
+=item * C<merge>
+
+If false, STDERR is not captured (though it is 'relayed' to keep it
+somewhat synchronized with STDOUT.)
+
+If true, STDERR and STDOUT are the same filehandle.  This may cause
+breakage if STDERR contains anything resembling TAP format, but does
+allow exact synchronization.
+
+Subtleties of this behavior may be platform-dependent and may change in
+the future.
+
+=item * C<grammar_class>
+
+This option was introduced to let you easily customize which I<grammar> class
+the parser should use.  It defaults to L<TAP::Parser::Grammar>.
+
+See also L</make_grammar>.
+
+=item * C<result_factory_class>
+
+This option was introduced to let you easily customize which I<result>
+factory class the parser should use.  It defaults to
+L<TAP::Parser::ResultFactory>.
+
+See also L</make_result>.
+
+=item * C<iterator_factory_class>
+
+I<CHANGED in 3.18>
+
+This option was introduced to let you easily customize which I<iterator>
+factory class the parser should use.  It defaults to
+L<TAP::Parser::IteratorFactory>.
+
+=back
+
+=cut
+
+# new() implementation supplied by TAP::Base
+
+# This should make overriding behaviour of the Parser in subclasses easier:
+sub _default_grammar_class          {'TAP::Parser::Grammar'}
+sub _default_result_factory_class   {'TAP::Parser::ResultFactory'}
+sub _default_iterator_factory_class {'TAP::Parser::IteratorFactory'}
+
+##############################################################################
+
+=head2 Instance Methods
+
+=head3 C<next>
+
+  my $parser = TAP::Parser->new( { source => $file } );
+  while ( my $result = $parser->next ) {
+      print $result->as_string, "\n";
+  }
+
+This method returns the results of the parsing, one result at a time.  Note
+that it is destructive.  You can't rewind and examine previous results.
+
+If callbacks are used, they will be issued before this call returns.
+
+Each result returned is a subclass of L<TAP::Parser::Result>.  See that
+module and related classes for more information on how to use them.
+
+=cut
+
+sub next {
+    my $self = shift;
+    return ( $self->{_iter} ||= $self->_iter )->();
+}
+
+##############################################################################
+
+=head3 C<run>
+
+  $parser->run;
+
+This method merely runs the parser and parses all of the TAP.
+
+=cut
+
+sub run {
+    my $self = shift;
+    while ( defined( my $result = $self->next ) ) {
+
+        # do nothing
+    }
+}
+
+##############################################################################
+
+=head3 C<make_grammar>
+
+Make a new L<TAP::Parser::Grammar> object and return it.  Passes through any
+arguments given.
+
+The C<grammar_class> can be customized, as described in L</new>.
+
+=head3 C<make_result>
+
+Make a new L<TAP::Parser::Result> object using the parser's
+L<TAP::Parser::ResultFactory>, and return it.  Passes through any arguments
+given.
+
+The C<result_factory_class> can be customized, as described in L</new>.
+
+=head3 C<make_iterator_factory>
+
+I<NEW to 3.18>.
+
+Make a new L<TAP::Parser::IteratorFactory> object and return it.  Passes through
+any arguments given.
+
+C<iterator_factory_class> can be customized, as described in L</new>.
+
+=cut
+
+# This should make overriding behaviour of the Parser in subclasses easier:
+sub make_iterator_factory { shift->iterator_factory_class->new(@_); }
+sub make_grammar          { shift->grammar_class->new(@_); }
+sub make_result           { shift->result_factory_class->make_result(@_); }
+
+{
+
+    # of the following, anything beginning with an underscore is strictly
+    # internal and should not be exposed.
+    my %initialize = (
+        version       => $DEFAULT_TAP_VERSION,
+        plan          => '',                    # the test plan (e.g., 1..3)
+        tests_run     => 0,                     # actual current test numbers
+        skipped       => [],                    #
+        todo          => [],                    #
+        passed        => [],                    #
+        failed        => [],                    #
+        actual_failed => [],                    # how many tests really failed
+        actual_passed => [],                    # how many tests really passed
+        todo_passed  => [],    # tests which unexpectedly succeed
+        parse_errors => [],    # perfect TAP should have none
+    );
+
+    # We seem to have this list hanging around all over the place. We could
+    # probably get it from somewhere else to avoid the repetition.
+    my @legal_callback = qw(
+      test
+      version
+      plan
+      comment
+      bailout
+      unknown
+      yaml
+      ALL
+      ELSE
+      EOF
+    );
+
+    my @class_overrides = qw(
+      grammar_class
+      result_factory_class
+      iterator_factory_class
+    );
+
+    sub _initialize {
+        my ( $self, $arg_for ) = @_;
+
+        # everything here is basically designed to convert any TAP source to a
+        # TAP::Parser::Iterator.
+
+        # Shallow copy
+        my %args = %{ $arg_for || {} };
+
+        $self->SUPER::_initialize( \%args, \@legal_callback );
+
+        # get any class overrides out first:
+        for my $key (@class_overrides) {
+            my $default_method = "_default_$key";
+            my $val = delete $args{$key} || $self->$default_method();
+            $self->$key($val);
+        }
+
+        my $iterator = delete $args{iterator};
+        $iterator ||= delete $args{stream};    # deprecated
+        my $tap         = delete $args{tap};
+        my $version     = delete $args{version};
+        my $raw_source  = delete $args{source};
+        my $sources     = delete $args{sources};
+        my $exec        = delete $args{exec};
+        my $merge       = delete $args{merge};
+        my $spool       = delete $args{spool};
+        my $switches    = delete $args{switches};
+        my $ignore_exit = delete $args{ignore_exit};
+        my $test_args   = delete $args{test_args} || [];
+
+        if ( 1 < grep {defined} $iterator, $tap, $raw_source, $exec ) {
+            $self->_croak(
+                "You may only choose one of 'exec', 'tap', 'source' or 'iterator'"
+            );
+        }
+
+        if ( my @excess = sort keys %args ) {
+            $self->_croak("Unknown options: @excess");
+        }
+
+        # convert $tap & $exec to $raw_source equiv.
+        my $type   = '';
+        my $source = TAP::Parser::Source->new;
+        if ($tap) {
+            $type = 'raw TAP';
+            $source->raw( \$tap );
+        }
+        elsif ($exec) {
+            $type = 'exec ' . $exec->[0];
+            $source->raw( { exec => $exec } );
+        }
+        elsif ($raw_source) {
+            $type = 'source ' . ref($raw_source) || $raw_source;
+            $source->raw( ref($raw_source) ? $raw_source : \$raw_source );
+        }
+        elsif ($iterator) {
+            $type = 'iterator ' . ref($iterator);
+        }
+
+        if ( $source->raw ) {
+            my $src_factory = $self->make_iterator_factory($sources);
+            $source->merge($merge)->switches($switches)
+              ->test_args($test_args);
+            $iterator = $src_factory->make_iterator($source);
+        }
+
+        unless ($iterator) {
+            $self->_croak(
+                "PANIC: could not determine iterator for input $type");
+        }
+
+        while ( my ( $k, $v ) = each %initialize ) {
+            $self->{$k} = 'ARRAY' eq ref $v ? [] : $v;
+        }
+
+        $self->version($version) if $version;
+        $self->_iterator($iterator);
+        $self->_spool($spool);
+        $self->ignore_exit($ignore_exit);
+
+        return $self;
+    }
+}
+
+=head1 INDIVIDUAL RESULTS
+
+If you've read this far in the docs, you've seen this:
+
+    while ( my $result = $parser->next ) {
+        print $result->as_string;
+    }
+
+Each result returned is a L<TAP::Parser::Result> subclass, referred to as
+I<result types>.
+
+=head2 Result types
+
+Basically, you fetch individual results from the TAP.  The six types, with
+examples of each, are as follows:
+
+=over 4
+
+=item * Version
+
+ TAP version 12
+
+=item * Plan
+
+ 1..42
+
+=item * Pragma
+
+ pragma +strict
+
+=item * Test
+
+ ok 3 - We should start with some foobar!
+
+=item * Comment
+
+ # Hope we don't use up the foobar.
+
+=item * Bailout
+
+ Bail out!  We ran out of foobar!
+
+=item * Unknown
+
+ ... yo, this ain't TAP! ...
+
+=back
+
+Each result fetched is a result object of a different type.  There are common
+methods to each result object and different types may have methods unique to
+their type.  Sometimes a type method may be overridden in a subclass, but its
+use is guaranteed to be identical.
+
+=head2 Common type methods
+
+=head3 C<type>
+
+Returns the type of result, such as C<comment> or C<test>.
+
+=head3 C<as_string>
+
+Prints a string representation of the token.  This might not be the exact
+output, however.  Tests will have test numbers added if not present, TODO and
+SKIP directives will be capitalized and, in general, things will be cleaned
+up.  If you need the original text for the token, see the C<raw> method.
+
+=head3  C<raw>
+
+Returns the original line of text which was parsed.
+
+=head3 C<is_plan>
+
+Indicates whether or not this is the test plan line.
+
+=head3 C<is_test>
+
+Indicates whether or not this is a test line.
+
+=head3 C<is_comment>
+
+Indicates whether or not this is a comment. Comments will generally only
+appear in the TAP stream if STDERR is merged to STDOUT. See the
+C<merge> option.
+
+=head3 C<is_bailout>
+
+Indicates whether or not this is bailout line.
+
+=head3 C<is_yaml>
+
+Indicates whether or not the current item is a YAML block.
+
+=head3 C<is_unknown>
+
+Indicates whether or not the current line could be parsed.
+
+=head3 C<is_ok>
+
+  if ( $result->is_ok ) { ... }
+
+Reports whether or not a given result has passed.  Anything which is B<not> a
+test result returns true.  This is merely provided as a convenient shortcut
+which allows you to do this:
+
+ my $parser = TAP::Parser->new( { source => $source } );
+ while ( my $result = $parser->next ) {
+     # only print failing results
+     print $result->as_string unless $result->is_ok;
+ }
+
+=head2 C<plan> methods
+
+ if ( $result->is_plan ) { ... }
+
+If the above evaluates as true, the following methods will be available on the
+C<$result> object.
+
+=head3 C<plan>
+
+  if ( $result->is_plan ) {
+     print $result->plan;
+  }
+
+This is merely a synonym for C<as_string>.
+
+=head3 C<directive>
+
+ my $directive = $result->directive;
+
+If a SKIP directive is included with the plan, this method will return it.
+
+ 1..0 # SKIP: why bother?
+
+=head3 C<explanation>
+
+ my $explanation = $result->explanation;
+
+If a SKIP directive was included with the plan, this method will return the
+explanation, if any.
+
+=head2 C<pragma> methods
+
+ if ( $result->is_pragma ) { ... }
+
+If the above evaluates as true, the following methods will be available on the
+C<$result> object.
+
+=head3 C<pragmas>
+
+Returns a list of pragmas each of which is a + or - followed by the
+pragma name.
+
+=head2 C<comment> methods
+
+ if ( $result->is_comment ) { ... }
+
+If the above evaluates as true, the following methods will be available on the
+C<$result> object.
+
+=head3 C<comment>
+
+  if ( $result->is_comment ) {
+      my $comment = $result->comment;
+      print "I have something to say:  $comment";
+  }
+
+=head2 C<bailout> methods
+
+ if ( $result->is_bailout ) { ... }
+
+If the above evaluates as true, the following methods will be available on the
+C<$result> object.
+
+=head3 C<explanation>
+
+  if ( $result->is_bailout ) {
+      my $explanation = $result->explanation;
+      print "We bailed out because ($explanation)";
+  }
+
+If, and only if, a token is a bailout token, you can get an "explanation" via
+this method.  The explanation is the text after the mystical "Bail out!" words
+which appear in the tap output.
+
+=head2 C<unknown> methods
+
+ if ( $result->is_unknown ) { ... }
+
+There are no unique methods for unknown results.
+
+=head2 C<test> methods
+
+ if ( $result->is_test ) { ... }
+
+If the above evaluates as true, the following methods will be available on the
+C<$result> object.
+
+=head3 C<ok>
+
+  my $ok = $result->ok;
+
+Returns the literal text of the C<ok> or C<not ok> status.
+
+=head3 C<number>
+
+  my $test_number = $result->number;
+
+Returns the number of the test, even if the original TAP output did not supply
+that number.
+
+=head3 C<description>
+
+  my $description = $result->description;
+
+Returns the description of the test, if any.  This is the portion after the
+test number but before the directive.
+
+=head3 C<directive>
+
+  my $directive = $result->directive;
+
+Returns either C<TODO> or C<SKIP> if either directive was present for a test
+line.
+
+=head3 C<explanation>
+
+  my $explanation = $result->explanation;
+
+If a test had either a C<TODO> or C<SKIP> directive, this method will return
+the accompanying explanation, if present.
+
+  not ok 17 - 'Pigs can fly' # TODO not enough acid
+
+For the above line, the explanation is I<not enough acid>.
+
+=head3 C<is_ok>
+
+  if ( $result->is_ok ) { ... }
+
+Returns a boolean value indicating whether or not the test passed.  Remember
+that for TODO tests, the test always passes.
+
+B<Note:>  this was formerly C<passed>.  The latter method is deprecated and
+will issue a warning.
+
+=head3 C<is_actual_ok>
+
+  if ( $result->is_actual_ok ) { ... }
+
+Returns a boolean value indicating whether or not the test passed, regardless
+of its TODO status.
+
+B<Note:>  this was formerly C<actual_passed>.  The latter method is deprecated
+and will issue a warning.
+
+=head3 C<is_unplanned>
+
+  if ( $test->is_unplanned ) { ... }
+
+If a test number is greater than the number of planned tests, this method will
+return true.  Unplanned tests will I<always> return false for C<is_ok>,
+regardless of whether or not the test C<has_todo> (see
+L<TAP::Parser::Result::Test> for more information about this).
+
+=head3 C<has_skip>
+
+  if ( $result->has_skip ) { ... }
+
+Returns a boolean value indicating whether or not this test had a SKIP
+directive.
+
+=head3 C<has_todo>
+
+  if ( $result->has_todo ) { ... }
+
+Returns a boolean value indicating whether or not this test had a TODO
+directive.
+
+Note that TODO tests I<always> pass.  If you need to know whether or not
+they really passed, check the C<is_actual_ok> method.
+
+=head3 C<in_todo>
+
+  if ( $parser->in_todo ) { ... }
+
+True while the most recent result was a TODO. Becomes true before the
+TODO result is returned and stays true until just before the next non-
+TODO test is returned.
+
+=head1 TOTAL RESULTS
+
+After parsing the TAP, there are many methods available to let you dig through
+the results and determine what is meaningful to you.
+
+=head2 Individual Results
+
+These results refer to individual tests which are run.
+
+=head3 C<passed>
+
+ my @passed = $parser->passed; # the test numbers which passed
+ my $passed = $parser->passed; # the number of tests which passed
+
+This method lets you know which (or how many) tests passed.  If a test failed
+but had a TODO directive, it will be counted as a passed test.
+
+=cut
+
+sub passed {
+    return @{ $_[0]->{passed} }
+      if ref $_[0]->{passed};
+    return wantarray ? 1 .. $_[0]->{passed} : $_[0]->{passed};
+}
+
+=head3 C<failed>
+
+ my @failed = $parser->failed; # the test numbers which failed
+ my $failed = $parser->failed; # the number of tests which failed
+
+This method lets you know which (or how many) tests failed.  If a test passed
+but had a TODO directive, it will B<NOT> be counted as a failed test.
+
+=cut
+
+sub failed { @{ shift->{failed} } }
+
+=head3 C<actual_passed>
+
+ # the test numbers which actually passed
+ my @actual_passed = $parser->actual_passed;
+
+ # the number of tests which actually passed
+ my $actual_passed = $parser->actual_passed;
+
+This method lets you know which (or how many) tests actually passed,
+regardless of whether or not a TODO directive was found.
+
+=cut
+
+sub actual_passed {
+    return @{ $_[0]->{actual_passed} }
+      if ref $_[0]->{actual_passed};
+    return wantarray ? 1 .. $_[0]->{actual_passed} : $_[0]->{actual_passed};
+}
+*actual_ok = \&actual_passed;
+
+=head3 C<actual_ok>
+
+This method is a synonym for C<actual_passed>.
+
+=head3 C<actual_failed>
+
+ # the test numbers which actually failed
+ my @actual_failed = $parser->actual_failed;
+
+ # the number of tests which actually failed
+ my $actual_failed = $parser->actual_failed;
+
+This method lets you know which (or how many) tests actually failed,
+regardless of whether or not a TODO directive was found.
+
+=cut
+
+sub actual_failed { @{ shift->{actual_failed} } }
+
+##############################################################################
+
+=head3 C<todo>
+
+ my @todo = $parser->todo; # the test numbers with todo directives
+ my $todo = $parser->todo; # the number of tests with todo directives
+
+This method lets you know which (or how many) tests had TODO directives.
+
+=cut
+
+sub todo { @{ shift->{todo} } }
+
+=head3 C<todo_passed>
+
+ # the test numbers which unexpectedly succeeded
+ my @todo_passed = $parser->todo_passed;
+
+ # the number of tests which unexpectedly succeeded
+ my $todo_passed = $parser->todo_passed;
+
+This method lets you know which (or how many) tests actually passed but were
+declared as "TODO" tests.
+
+=cut
+
+sub todo_passed { @{ shift->{todo_passed} } }
+
+##############################################################################
+
+=head3 C<todo_failed>
+
+  # deprecated in favor of 'todo_passed'.  This method was horribly misnamed.
+
+This was a badly misnamed method.  It indicates which TODO tests unexpectedly
+succeeded.  Will now issue a warning and call C<todo_passed>.
+
+=cut
+
+sub todo_failed {
+    warn
+      '"todo_failed" is deprecated.  Please use "todo_passed".  See the docs.';
+    goto &todo_passed;
+}
+
+=head3 C<skipped>
+
+ my @skipped = $parser->skipped; # the test numbers with SKIP directives
+ my $skipped = $parser->skipped; # the number of tests with SKIP directives
+
+This method lets you know which (or how many) tests had SKIP directives.
+
+=cut
+
+sub skipped { @{ shift->{skipped} } }
+
+=head2 Pragmas
+
+=head3 C<pragma>
+
+Get or set a pragma. To get the state of a pragma:
+
+  if ( $p->pragma('strict') ) {
+      # be strict
+  }
+
+To set the state of a pragma:
+
+  $p->pragma('strict', 1); # enable strict mode
+
+=cut
+
+sub pragma {
+    my ( $self, $pragma ) = splice @_, 0, 2;
+
+    return $self->{pragma}->{$pragma} unless @_;
+
+    if ( my $state = shift ) {
+        $self->{pragma}->{$pragma} = 1;
+    }
+    else {
+        delete $self->{pragma}->{$pragma};
+    }
+
+    return;
+}
+
+=head3 C<pragmas>
+
+Get a list of all the currently enabled pragmas:
+
+  my @pragmas_enabled = $p->pragmas;
+
+=cut
+
+sub pragmas { sort keys %{ shift->{pragma} || {} } }
+
+=head2 Summary Results
+
+These results are "meta" information about the total results of an individual
+test program.
+
+=head3 C<plan>
+
+ my $plan = $parser->plan;
+
+Returns the test plan, if found.
+
+=head3 C<good_plan>
+
+Deprecated.  Use C<is_good_plan> instead.
+
+=cut
+
+sub good_plan {
+    warn 'good_plan() is deprecated.  Please use "is_good_plan()"';
+    goto &is_good_plan;
+}
+
+##############################################################################
+
+=head3 C<is_good_plan>
+
+  if ( $parser->is_good_plan ) { ... }
+
+Returns a boolean value indicating whether or not the number of tests planned
+matches the number of tests run.
+
+B<Note:>  this was formerly C<good_plan>.  The latter method is deprecated and
+will issue a warning.
+
+And since we're on that subject ...
+
+=head3 C<tests_planned>
+
+  print $parser->tests_planned;
+
+Returns the number of tests planned, according to the plan.  For example, a
+plan of '1..17' will mean that 17 tests were planned.
+
+=head3 C<tests_run>
+
+  print $parser->tests_run;
+
+Returns the number of tests which actually were run.  Hopefully this will
+match the number of C<< $parser->tests_planned >>.
+
+=head3 C<skip_all>
+
+Returns a true value (actually the reason for skipping) if all tests
+were skipped.
+
+=head3 C<start_time>
+
+Returns the wall-clock time when the Parser was created.
+
+=head3 C<end_time>
+
+Returns the wall-clock time when the end of TAP input was seen.
+
+=head3 C<start_times>
+
+Returns the CPU times (like L<perlfunc/times> when the Parser was created.
+
+=head3 C<end_times>
+
+Returns the CPU times (like L<perlfunc/times> when the end of TAP
+input was seen.
+
+=head3 C<has_problems>
+
+  if ( $parser->has_problems ) {
+      ...
+  }
+
+This is a 'catch-all' method which returns true if any tests have currently
+failed, any TODO tests unexpectedly succeeded, or any parse errors occurred.
+
+=cut
+
+sub has_problems {
+    my $self = shift;
+    return
+         $self->failed
+      || $self->parse_errors
+      || ( !$self->ignore_exit && ( $self->wait || $self->exit ) );
+}
+
+=head3 C<version>
+
+  $parser->version;
+
+Once the parser is done, this will return the version number for the
+parsed TAP. Version numbers were introduced with TAP version 13 so if no
+version number is found version 12 is assumed.
+
+=head3 C<exit>
+
+  $parser->exit;
+
+Once the parser is done, this will return the exit status.  If the parser ran
+an executable, it returns the exit status of the executable.
+
+=head3 C<wait>
+
+  $parser->wait;
+
+Once the parser is done, this will return the wait status.  If the parser ran
+an executable, it returns the wait status of the executable.  Otherwise, this
+merely returns the C<exit> status.
+
+=head2 C<ignore_exit>
+
+  $parser->ignore_exit(1);
+
+Tell the parser to ignore the exit status from the test when determining
+whether the test passed. Normally tests with non-zero exit status are
+considered to have failed even if all individual tests passed. In cases
+where it is not possible to control the exit value of the test script
+use this option to ignore it.
+
+=cut
+
+sub ignore_exit { shift->pragma( 'ignore_exit', @_ ) }
+
+=head3 C<parse_errors>
+
+ my @errors = $parser->parse_errors; # the parser errors
+ my $errors = $parser->parse_errors; # the number of parser_errors
+
+Fortunately, all TAP output is perfect.  In the event that it is not, this
+method will return parser errors.  Note that a junk line which the parser does
+not recognize is C<not> an error.  This allows this parser to handle future
+versions of TAP.  The following are all TAP errors reported by the parser:
+
+=over 4
+
+=item * Misplaced plan
+
+The plan (for example, '1..5'), must only come at the beginning or end of the
+TAP output.
+
+=item * No plan
+
+Gotta have a plan!
+
+=item * More than one plan
+
+ 1..3
+ ok 1 - input file opened
+ not ok 2 - first line of the input valid # todo some data
+ ok 3 read the rest of the file
+ 1..3
+
+Right.  Very funny.  Don't do that.
+
+=item * Test numbers out of sequence
+
+ 1..3
+ ok 1 - input file opened
+ not ok 2 - first line of the input valid # todo some data
+ ok 2 read the rest of the file
+
+That last test line above should have the number '3' instead of '2'.
+
+Note that it's perfectly acceptable for some lines to have test numbers and
+others to not have them.  However, when a test number is found, it must be in
+sequence.  The following is also an error:
+
+ 1..3
+ ok 1 - input file opened
+ not ok - first line of the input valid # todo some data
+ ok 2 read the rest of the file
+
+But this is not:
+
+ 1..3
+ ok  - input file opened
+ not ok - first line of the input valid # todo some data
+ ok 3 read the rest of the file
+
+=back
+
+=cut
+
+sub parse_errors { @{ shift->{parse_errors} } }
+
+sub _add_error {
+    my ( $self, $error ) = @_;
+    push @{ $self->{parse_errors} } => $error;
+    return $self;
+}
+
+sub _make_state_table {
+    my $self = shift;
+    my %states;
+    my %planned_todo = ();
+
+    # These transitions are defaults for all states
+    my %state_globals = (
+        comment => {},
+        bailout => {},
+        yaml    => {},
+        version => {
+            act => sub {
+                $self->_add_error(
+                    'If TAP version is present it must be the first line of output'
+                );
+            },
+        },
+        unknown => {
+            act => sub {
+                my $unk = shift;
+                if ( $self->pragma('strict') ) {
+                    $self->_add_error(
+                        'Unknown TAP token: "' . $unk->raw . '"' );
+                }
+            },
+        },
+        pragma => {
+            act => sub {
+                my ($pragma) = @_;
+                for my $pr ( $pragma->pragmas ) {
+                    if ( $pr =~ /^ ([-+])(\w+) $/x ) {
+                        $self->pragma( $2, $1 eq '+' );
+                    }
+                }
+            },
+        },
+    );
+
+    # Provides default elements for transitions
+    my %state_defaults = (
+        plan => {
+            act => sub {
+                my ($plan) = @_;
+                $self->tests_planned( $plan->tests_planned );
+                $self->plan( $plan->plan );
+                if ( $plan->has_skip ) {
+                    $self->skip_all( $plan->explanation
+                          || '(no reason given)' );
+                }
+
+                $planned_todo{$_}++ for @{ $plan->todo_list };
+            },
+        },
+        test => {
+            act => sub {
+                my ($test) = @_;
+
+                my ( $number, $tests_run )
+                  = ( $test->number, ++$self->{tests_run} );
+
+                # Fake TODO state
+                if ( defined $number && delete $planned_todo{$number} ) {
+                    $test->set_directive('TODO');
+                }
+
+                my $has_todo = $test->has_todo;
+
+                $self->in_todo($has_todo);
+                if ( defined( my $tests_planned = $self->tests_planned ) ) {
+                    if ( $tests_run > $tests_planned ) {
+                        $test->is_unplanned(1);
+                    }
+                }
+
+                if ( defined $number ) {
+                    if ( $number != $tests_run ) {
+                        my $count = $tests_run;
+                        $self->_add_error( "Tests out of sequence.  Found "
+                              . "($number) but expected ($count)" );
+                    }
+                }
+                else {
+                    $test->_number( $number = $tests_run );
+                }
+
+                push @{ $self->{todo} } => $number if $has_todo;
+                push @{ $self->{todo_passed} } => $number
+                  if $test->todo_passed;
+                push @{ $self->{skipped} } => $number
+                  if $test->has_skip;
+
+                push @{ $self->{ $test->is_ok ? 'passed' : 'failed' } } =>
+                  $number;
+                push @{
+                    $self->{
+                        $test->is_actual_ok
+                        ? 'actual_passed'
+                        : 'actual_failed'
+                      }
+                  } => $number;
+            },
+        },
+        yaml => { act => sub { }, },
+    );
+
+    # Each state contains a hash the keys of which match a token type. For
+    # each token
+    # type there may be:
+    #   act      A coderef to run
+    #   goto     The new state to move to. Stay in this state if
+    #            missing
+    #   continue Goto the new state and run the new state for the
+    #            current token
+    %states = (
+        INIT => {
+            version => {
+                act => sub {
+                    my ($version) = @_;
+                    my $ver_num = $version->version;
+                    if ( $ver_num <= $DEFAULT_TAP_VERSION ) {
+                        my $ver_min = $DEFAULT_TAP_VERSION + 1;
+                        $self->_add_error(
+                                "Explicit TAP version must be at least "
+                              . "$ver_min. Got version $ver_num" );
+                        $ver_num = $DEFAULT_TAP_VERSION;
+                    }
+                    if ( $ver_num > $MAX_TAP_VERSION ) {
+                        $self->_add_error(
+                                "TAP specified version $ver_num but "
+                              . "we don't know about versions later "
+                              . "than $MAX_TAP_VERSION" );
+                        $ver_num = $MAX_TAP_VERSION;
+                    }
+                    $self->version($ver_num);
+                    $self->_grammar->set_version($ver_num);
+                },
+                goto => 'PLAN'
+            },
+            plan => { goto => 'PLANNED' },
+            test => { goto => 'UNPLANNED' },
+        },
+        PLAN => {
+            plan => { goto => 'PLANNED' },
+            test => { goto => 'UNPLANNED' },
+        },
+        PLANNED => {
+            test => { goto => 'PLANNED_AFTER_TEST' },
+            plan => {
+                act => sub {
+                    my ($version) = @_;
+                    $self->_add_error(
+                        'More than one plan found in TAP output');
+                },
+            },
+        },
+        PLANNED_AFTER_TEST => {
+            test => { goto => 'PLANNED_AFTER_TEST' },
+            plan => { act  => sub { }, continue => 'PLANNED' },
+            yaml => { goto => 'PLANNED' },
+        },
+        GOT_PLAN => {
+            test => {
+                act => sub {
+                    my ($plan) = @_;
+                    my $line = $self->plan;
+                    $self->_add_error(
+                            "Plan ($line) must be at the beginning "
+                          . "or end of the TAP output" );
+                    $self->is_good_plan(0);
+                },
+                continue => 'PLANNED'
+            },
+            plan => { continue => 'PLANNED' },
+        },
+        UNPLANNED => {
+            test => { goto => 'UNPLANNED_AFTER_TEST' },
+            plan => { goto => 'GOT_PLAN' },
+        },
+        UNPLANNED_AFTER_TEST => {
+            test => { act  => sub { }, continue => 'UNPLANNED' },
+            plan => { act  => sub { }, continue => 'UNPLANNED' },
+            yaml => { goto => 'UNPLANNED' },
+        },
+    );
+
+    # Apply globals and defaults to state table
+    for my $name ( keys %states ) {
+
+        # Merge with globals
+        my $st = { %state_globals, %{ $states{$name} } };
+
+        # Add defaults
+        for my $next ( sort keys %{$st} ) {
+            if ( my $default = $state_defaults{$next} ) {
+                for my $def ( sort keys %{$default} ) {
+                    $st->{$next}->{$def} ||= $default->{$def};
+                }
+            }
+        }
+
+        # Stuff back in table
+        $states{$name} = $st;
+    }
+
+    return \%states;
+}
+
+=head3 C<get_select_handles>
+
+Get an a list of file handles which can be passed to C<select> to
+determine the readiness of this parser.
+
+=cut
+
+sub get_select_handles { shift->_iterator->get_select_handles }
+
+sub _grammar {
+    my $self = shift;
+    return $self->{_grammar} = shift if @_;
+
+    return $self->{_grammar} ||= $self->make_grammar(
+        {   iterator => $self->_iterator,
+            parser   => $self,
+            version  => $self->version
+        }
+    );
+}
+
+sub _iter {
+    my $self        = shift;
+    my $iterator    = $self->_iterator;
+    my $grammar     = $self->_grammar;
+    my $spool       = $self->_spool;
+    my $state       = 'INIT';
+    my $state_table = $self->_make_state_table;
+
+    $self->start_time( $self->get_time );
+    $self->start_times( $self->get_times );
+
+    # Make next_state closure
+    my $next_state = sub {
+        my $token = shift;
+        my $type  = $token->type;
+        TRANS: {
+            my $state_spec = $state_table->{$state}
+              or die "Illegal state: $state";
+
+            if ( my $next = $state_spec->{$type} ) {
+                if ( my $act = $next->{act} ) {
+                    $act->($token);
+                }
+                if ( my $cont = $next->{continue} ) {
+                    $state = $cont;
+                    redo TRANS;
+                }
+                elsif ( my $goto = $next->{goto} ) {
+                    $state = $goto;
+                }
+            }
+            else {
+                confess("Unhandled token type: $type\n");
+            }
+        }
+        return $token;
+    };
+
+    # Handle end of stream - which means either pop a block or finish
+    my $end_handler = sub {
+        $self->exit( $iterator->exit );
+        $self->wait( $iterator->wait );
+        $self->_finish;
+        return;
+    };
+
+    # Finally make the closure that we return. For performance reasons
+    # there are two versions of the returned function: one that handles
+    # callbacks and one that does not.
+    if ( $self->_has_callbacks ) {
+        return sub {
+            my $result = eval { $grammar->tokenize };
+            $self->_add_error($@) if $@;
+
+            if ( defined $result ) {
+                $result = $next_state->($result);
+
+                if ( my $code = $self->_callback_for( $result->type ) ) {
+                    $_->($result) for @{$code};
+                }
+                else {
+                    $self->_make_callback( 'ELSE', $result );
+                }
+
+                $self->_make_callback( 'ALL', $result );
+
+                # Echo TAP to spool file
+                print {$spool} $result->raw, "\n" if $spool;
+            }
+            else {
+                $result = $end_handler->();
+                $self->_make_callback( 'EOF', $self )
+                  unless defined $result;
+            }
+
+            return $result;
+        };
+    }    # _has_callbacks
+    else {
+        return sub {
+            my $result = eval { $grammar->tokenize };
+            $self->_add_error($@) if $@;
+
+            if ( defined $result ) {
+                $result = $next_state->($result);
+
+                # Echo TAP to spool file
+                print {$spool} $result->raw, "\n" if $spool;
+            }
+            else {
+                $result = $end_handler->();
+            }
+
+            return $result;
+        };
+    }    # no callbacks
+}
+
+sub _finish {
+    my $self = shift;
+
+    $self->end_time( $self->get_time );
+    $self->end_times( $self->get_times );
+
+    # Avoid leaks
+    $self->_iterator(undef);
+    $self->_grammar(undef);
+
+    # If we just delete the iter we won't get a fault if it's recreated.
+    # Instead we set it to a sub that returns an infinite
+    # stream of undef. This segfaults on 5.5.4, presumably because
+    # we're still executing the closure that gets replaced and it hasn't
+    # been protected with a refcount.
+    $self->{_iter} = sub {return}
+      if $] >= 5.006;
+
+    # sanity checks
+    if ( !$self->plan ) {
+        $self->_add_error('No plan found in TAP output');
+    }
+    else {
+        $self->is_good_plan(1) unless defined $self->is_good_plan;
+    }
+    if ( $self->tests_run != ( $self->tests_planned || 0 ) ) {
+        $self->is_good_plan(0);
+        if ( defined( my $planned = $self->tests_planned ) ) {
+            my $ran = $self->tests_run;
+            $self->_add_error(
+                "Bad plan.  You planned $planned tests but ran $ran.");
+        }
+    }
+    if ( $self->tests_run != ( $self->passed + $self->failed ) ) {
+
+        # this should never happen
+        my $actual = $self->tests_run;
+        my $passed = $self->passed;
+        my $failed = $self->failed;
+        $self->_croak( "Panic: planned test count ($actual) did not equal "
+              . "sum of passed ($passed) and failed ($failed) tests!" );
+    }
+
+    $self->is_good_plan(0) unless defined $self->is_good_plan;
+
+    unless ( $self->parse_errors ) {
+        # Optimise storage where possible
+        if ( $self->tests_run == @{$self->{passed}} ) {
+            $self->{passed} = $self->tests_run;
+        }
+        if ( $self->tests_run == @{$self->{actual_passed}} ) {
+            $self->{actual_passed} = $self->tests_run;
+        }
+    }
+
+    return $self;
+}
+
+=head3 C<delete_spool>
+
+Delete and return the spool.
+
+  my $fh = $parser->delete_spool;
+
+=cut
+
+sub delete_spool {
+    my $self = shift;
+
+    return delete $self->{_spool};
+}
+
+##############################################################################
+
+=head1 CALLBACKS
+
+As mentioned earlier, a "callback" key may be added to the
+C<TAP::Parser> constructor. If present, each callback corresponding to a
+given result type will be called with the result as the argument if the
+C<run> method is used. The callback is expected to be a subroutine
+reference (or anonymous subroutine) which is invoked with the parser
+result as its argument.
+
+ my %callbacks = (
+     test    => \&test_callback,
+     plan    => \&plan_callback,
+     comment => \&comment_callback,
+     bailout => \&bailout_callback,
+     unknown => \&unknown_callback,
+ );
+
+ my $aggregator = TAP::Parser::Aggregator->new;
+ for my $file ( @test_files ) {
+     my $parser = TAP::Parser->new(
+         {
+             source    => $file,
+             callbacks => \%callbacks,
+         }
+     );
+     $parser->run;
+     $aggregator->add( $file, $parser );
+ }
+
+Callbacks may also be added like this:
+
+ $parser->callback( test => \&test_callback );
+ $parser->callback( plan => \&plan_callback );
+
+The following keys allowed for callbacks. These keys are case-sensitive.
+
+=over 4
+
+=item * C<test>
+
+Invoked if C<< $result->is_test >> returns true.
+
+=item * C<version>
+
+Invoked if C<< $result->is_version >> returns true.
+
+=item * C<plan>
+
+Invoked if C<< $result->is_plan >> returns true.
+
+=item * C<comment>
+
+Invoked if C<< $result->is_comment >> returns true.
+
+=item * C<bailout>
+
+Invoked if C<< $result->is_unknown >> returns true.
+
+=item * C<yaml>
+
+Invoked if C<< $result->is_yaml >> returns true.
+
+=item * C<unknown>
+
+Invoked if C<< $result->is_unknown >> returns true.
+
+=item * C<ELSE>
+
+If a result does not have a callback defined for it, this callback will
+be invoked. Thus, if all of the previous result types are specified as
+callbacks, this callback will I<never> be invoked.
+
+=item * C<ALL>
+
+This callback will always be invoked and this will happen for each
+result after one of the above callbacks is invoked.  For example, if
+L<Term::ANSIColor> is loaded, you could use the following to color your
+test output:
+
+ my %callbacks = (
+     test => sub {
+         my $test = shift;
+         if ( $test->is_ok && not $test->directive ) {
+             # normal passing test
+             print color 'green';
+         }
+         elsif ( !$test->is_ok ) {    # even if it's TODO
+             print color 'white on_red';
+         }
+         elsif ( $test->has_skip ) {
+             print color 'white on_blue';
+
+         }
+         elsif ( $test->has_todo ) {
+             print color 'white';
+         }
+     },
+     ELSE => sub {
+         # plan, comment, and so on (anything which isn't a test line)
+         print color 'black on_white';
+     },
+     ALL => sub {
+         # now print them
+         print shift->as_string;
+         print color 'reset';
+         print "\n";
+     },
+ );
+
+=item * C<EOF>
+
+Invoked when there are no more lines to be parsed. Since there is no
+accompanying L<TAP::Parser::Result> object the C<TAP::Parser> object is
+passed instead.
+
+=back
+
+=head1 TAP GRAMMAR
+
+If you're looking for an EBNF grammar, see L<TAP::Parser::Grammar>.
+
+=head1 BACKWARDS COMPATIBILITY
+
+The Perl-QA list attempted to ensure backwards compatibility with
+L<Test::Harness>.  However, there are some minor differences.
+
+=head2 Differences
+
+=over 4
+
+=item * TODO plans
+
+A little-known feature of L<Test::Harness> is that it supported TODO
+lists in the plan:
+
+ 1..2 todo 2
+ ok 1 - We have liftoff
+ not ok 2 - Anti-gravity device activated
+
+Under L<Test::Harness>, test number 2 would I<pass> because it was
+listed as a TODO test on the plan line. However, we are not aware of
+anyone actually using this feature and hard-coding test numbers is
+discouraged because it's very easy to add a test and break the test
+number sequence. This makes test suites very fragile. Instead, the
+following should be used:
+
+ 1..2
+ ok 1 - We have liftoff
+ not ok 2 - Anti-gravity device activated # TODO
+
+=item * 'Missing' tests
+
+It rarely happens, but sometimes a harness might encounter
+'missing tests:
+
+ ok 1
+ ok 2
+ ok 15
+ ok 16
+ ok 17
+
+L<Test::Harness> would report tests 3-14 as having failed. For the
+C<TAP::Parser>, these tests are not considered failed because they've
+never run. They're reported as parse failures (tests out of sequence).
+
+=back
+
+=head1 SUBCLASSING
+
+If you find you need to provide custom functionality (as you would have using
+L<Test::Harness::Straps>), you're in luck: C<TAP::Parser> and friends are
+designed to be easily plugged-into and/or subclassed.
+
+Before you start, it's important to know a few things:
+
+=over 2
+
+=item 1
+
+All C<TAP::*> objects inherit from L<TAP::Object>.
+
+=item 2
+
+Many C<TAP::*> classes have a I<SUBCLASSING> section to guide you.
+
+=item 3
+
+Note that C<TAP::Parser> is designed to be the central "maker" - ie: it is
+responsible for creating most new objects in the C<TAP::Parser::*> namespace.
+
+This makes it possible for you to have a single point of configuring what
+subclasses should be used, which means that in many cases you'll find
+you only need to sub-class one of the parser's components.
+
+The exception to this rule are I<SourceHandlers> & I<Iterators>, but those are
+both created with customizable I<IteratorFactory>.
+
+=item 4
+
+By subclassing, you may end up overriding undocumented methods.  That's not
+a bad thing per se, but be forewarned that undocumented methods may change
+without warning from one release to the next - we cannot guarantee backwards
+compatibility.  If any I<documented> method needs changing, it will be
+deprecated first, and changed in a later release.
+
+=back
+
+=head2 Parser Components
+
+=head3 Sources
+
+A TAP parser consumes input from a single I<raw source> of TAP, which could come
+from anywhere (a file, an executable, a database, an IO handle, a URI, etc..).
+The source gets bundled up in a L<TAP::Parser::Source> object which gathers some
+meta data about it.  The parser then uses a L<TAP::Parser::IteratorFactory> to
+determine which L<TAP::Parser::SourceHandler> to use to turn the raw source
+into a stream of TAP by way of L</Iterators>.
+
+If you simply want C<TAP::Parser> to handle a new source of TAP you probably
+don't need to subclass C<TAP::Parser> itself.  Rather, you'll need to create a
+new L<TAP::Parser::SourceHandler> class, and just plug it into the parser using
+the I<sources> param to L</new>.  Before you start writing one, read through
+L<TAP::Parser::IteratorFactory> to get a feel for how the system works first.
+
+If you find you really need to use your own iterator factory you can still do
+so without sub-classing C<TAP::Parser> by setting L</iterator_factory_class>.
+
+If you just need to customize the objects on creation, subclass L<TAP::Parser>
+and override L</make_iterator_factory>.
+
+Note that C<make_source> & C<make_perl_source> have been I<DEPRECATED> and
+are now removed.
+
+=head3 Iterators
+
+A TAP parser uses I<iterators> to loop through the I<stream> of TAP read in
+from the I<source> it was given.  There are a few types of Iterators available
+by default, all sub-classes of L<TAP::Parser::Iterator>.  Choosing which
+iterator to use is the responsibility of the I<iterator factory>, though it
+simply delegates to the I<Source Handler> it uses.
+
+If you're writing your own L<TAP::Parser::SourceHandler>, you may need to
+create your own iterators too.  If so you'll need to subclass
+L<TAP::Parser::Iterator>.
+
+Note that L</make_iterator> has been I<DEPRECATED> and is now removed.
+
+=head3 Results
+
+A TAP parser creates L<TAP::Parser::Result>s as it iterates through the
+input I<stream>.  There are quite a few result types available; choosing
+which class to use is the responsibility of the I<result factory>.
+
+To create your own result types you have two options:
+
+=over 2
+
+=item option 1
+
+Subclass L<TAP::Parser::Result> and register your new result type/class with
+the default L<TAP::Parser::ResultFactory>.
+
+=item option 2
+
+Subclass L<TAP::Parser::ResultFactory> itself and implement your own
+L<TAP::Parser::Result> creation logic.  Then you'll need to customize the
+class used by your parser by setting the C<result_factory_class> parameter.
+See L</new> for more details.
+
+=back
+
+If you need to customize the objects on creation, subclass L<TAP::Parser> and
+override L</make_result>.
+
+=head3 Grammar
+
+L<TAP::Parser::Grammar> is the heart of the parser.  It tokenizes the TAP
+input I<stream> and produces results.  If you need to customize its behaviour
+you should probably familiarize yourself with the source first.  Enough
+lecturing.
+
+Subclass L<TAP::Parser::Grammar> and customize your parser by setting the
+C<grammar_class> parameter.  See L</new> for more details.
+
+If you need to customize the objects on creation, subclass L<TAP::Parser> and
+override L</make_grammar>
+
+=head1 ACKNOWLEDGMENTS
+
+All of the following have helped. Bug reports, patches, (im)moral
+support, or just words of encouragement have all been forthcoming.
+
+=over 4
+
+=item * Michael Schwern
+
+=item * Andy Lester
+
+=item * chromatic
+
+=item * GEOFFR
+
+=item * Shlomi Fish
+
+=item * Torsten Schoenfeld
+
+=item * Jerry Gay
+
+=item * Aristotle
+
+=item * Adam Kennedy
+
+=item * Yves Orton
+
+=item * Adrian Howard
+
+=item * Sean & Lil
+
+=item * Andreas J. Koenig
+
+=item * Florian Ragwitz
+
+=item * Corion
+
+=item * Mark Stosberg
+
+=item * Matt Kraai
+
+=item * David Wheeler
+
+=item * Alex Vandiver
+
+=item * Cosimo Streppone
+
+=item * Ville Skyttä
+
+=back
+
+=head1 AUTHORS
+
+Curtis "Ovid" Poe <ovid@cpan.org>
+
+Andy Armstong <andy@hexten.net>
+
+Eric Wilhelm @ <ewilhelm at cpan dot org>
+
+Michael Peters <mpeters at plusthree dot com>
+
+Leif Eriksen <leif dot eriksen at bigpond dot com>
+
+Steve Purkis <spurkis@cpan.org>
+
+Nicholas Clark <nick@ccl4.org>
+
+Lee Johnson <notfadeaway at btinternet dot com>
+
+Philippe Bruhat <book@cpan.org>
+
+=head1 BUGS
+
+Please report any bugs or feature requests to
+C<bug-test-harness@rt.cpan.org>, or through the web interface at
+L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Test-Harness>.
+We will be notified, and then you'll automatically be notified of
+progress on your bug as we make changes.
+
+Obviously, bugs which include patches are best. If you prefer, you can
+patch against bleed by via anonymous checkout of the latest version:
+
+ git clone git://github.com/Perl-Toolchain-Gang/Test-Harness.git
+
+=head1 COPYRIGHT & LICENSE
+
+Copyright 2006-2008 Curtis "Ovid" Poe, all rights reserved.
+
+This program is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+=cut
+
+1;
diff --git a/lib/5.24.1/TAP/Parser/Aggregator.pm b/lib/5.24.1/TAP/Parser/Aggregator.pm
new file mode 100644
index 00000000..94289a44
--- /dev/null
+++ b/lib/5.24.1/TAP/Parser/Aggregator.pm
@@ -0,0 +1,414 @@
+package TAP::Parser::Aggregator;
+
+use strict;
+use warnings;
+use Benchmark;
+
+use base 'TAP::Object';
+
+=head1 NAME
+
+TAP::Parser::Aggregator - Aggregate TAP::Parser results
+
+=head1 VERSION
+
+Version 3.36
+
+=cut
+
+our $VERSION = '3.36_01';
+
+=head1 SYNOPSIS
+
+    use TAP::Parser::Aggregator;
+
+    my $aggregate = TAP::Parser::Aggregator->new;
+    $aggregate->add( 't/00-load.t', $load_parser );
+    $aggregate->add( 't/10-lex.t',  $lex_parser  );
+
+    my $summary = <<'END_SUMMARY';
+    Passed:  %s
+    Failed:  %s
+    Unexpectedly succeeded: %s
+    END_SUMMARY
+    printf $summary,
+           scalar $aggregate->passed,
+           scalar $aggregate->failed,
+           scalar $aggregate->todo_passed;
+
+=head1 DESCRIPTION
+
+C<TAP::Parser::Aggregator> collects parser objects and allows
+reporting/querying their aggregate results.
+
+=head1 METHODS
+
+=head2 Class Methods
+
+=head3 C<new>
+
+ my $aggregate = TAP::Parser::Aggregator->new;
+
+Returns a new C<TAP::Parser::Aggregator> object.
+
+=cut
+
+# new() implementation supplied by TAP::Object
+
+my %SUMMARY_METHOD_FOR;
+
+BEGIN {    # install summary methods
+    %SUMMARY_METHOD_FOR = map { $_ => $_ } qw(
+      failed
+      parse_errors
+      passed
+      skipped
+      todo
+      todo_passed
+      total
+      wait
+      exit
+    );
+    $SUMMARY_METHOD_FOR{total}   = 'tests_run';
+    $SUMMARY_METHOD_FOR{planned} = 'tests_planned';
+
+    for my $method ( keys %SUMMARY_METHOD_FOR ) {
+        next if 'total' eq $method;
+        no strict 'refs';
+        *$method = sub {
+            my $self = shift;
+            return wantarray
+              ? @{ $self->{"descriptions_for_$method"} }
+              : $self->{$method};
+        };
+    }
+}    # end install summary methods
+
+sub _initialize {
+    my ($self) = @_;
+    $self->{parser_for}  = {};
+    $self->{parse_order} = [];
+    for my $summary ( keys %SUMMARY_METHOD_FOR ) {
+        $self->{$summary} = 0;
+        next if 'total' eq $summary;
+        $self->{"descriptions_for_$summary"} = [];
+    }
+    return $self;
+}
+
+##############################################################################
+
+=head2 Instance Methods
+
+=head3 C<add>
+
+  $aggregate->add( $description => $parser );
+
+The C<$description> is usually a test file name (but only by
+convention.)  It is used as a unique identifier (see e.g.
+L<"parsers">.)  Reusing a description is a fatal error.
+
+The C<$parser> is a L<TAP::Parser|TAP::Parser> object.
+
+=cut
+
+sub add {
+    my ( $self, $description, $parser ) = @_;
+    if ( exists $self->{parser_for}{$description} ) {
+        $self->_croak( "You already have a parser for ($description)."
+              . " Perhaps you have run the same test twice." );
+    }
+    push @{ $self->{parse_order} } => $description;
+    $self->{parser_for}{$description} = $parser;
+
+    while ( my ( $summary, $method ) = each %SUMMARY_METHOD_FOR ) {
+
+        # Slightly nasty. Instead we should maybe have 'cooked' accessors
+        # for results that may be masked by the parser.
+        next
+          if ( $method eq 'exit' || $method eq 'wait' )
+          && $parser->ignore_exit;
+
+        if ( my $count = $parser->$method() ) {
+            $self->{$summary} += $count;
+            push @{ $self->{"descriptions_for_$summary"} } => $description;
+        }
+    }
+
+    return $self;
+}
+
+##############################################################################
+
+=head3 C<parsers>
+
+  my $count   = $aggregate->parsers;
+  my @parsers = $aggregate->parsers;
+  my @parsers = $aggregate->parsers(@descriptions);
+
+In scalar context without arguments, this method returns the number of parsers
+aggregated.  In list context without arguments, returns the parsers in the
+order they were added.
+
+If C<@descriptions> is given, these correspond to the keys used in each
+call to the add() method.  Returns an array of the requested parsers (in
+the requested order) in list context or an array reference in scalar
+context.
+
+Requesting an unknown identifier is a fatal error.
+
+=cut
+
+sub parsers {
+    my $self = shift;
+    return $self->_get_parsers(@_) if @_;
+    my $descriptions = $self->{parse_order};
+    my @parsers      = @{ $self->{parser_for} }{@$descriptions};
+
+    # Note:  Because of the way context works, we must assign the parsers to
+    # the @parsers array or else this method does not work as documented.
+    return @parsers;
+}
+
+sub _get_parsers {
+    my ( $self, @descriptions ) = @_;
+    my @parsers;
+    for my $description (@descriptions) {
+        $self->_croak("A parser for ($description) could not be found")
+          unless exists $self->{parser_for}{$description};
+        push @parsers => $self->{parser_for}{$description};
+    }
+    return wantarray ? @parsers : \@parsers;
+}
+
+=head3 C<descriptions>
+
+Get an array of descriptions in the order in which they were added to
+the aggregator.
+
+=cut
+
+sub descriptions { @{ shift->{parse_order} || [] } }
+
+=head3 C<start>
+
+Call C<start> immediately before adding any results to the aggregator.
+Among other times it records the start time for the test run.
+
+=cut
+
+sub start {
+    my $self = shift;
+    $self->{start_time} = Benchmark->new;
+}
+
+=head3 C<stop>
+
+Call C<stop> immediately after adding all test results to the aggregator.
+
+=cut
+
+sub stop {
+    my $self = shift;
+    $self->{end_time} = Benchmark->new;
+}
+
+=head3 C<elapsed>
+
+Elapsed returns a L<Benchmark> object that represents the running time
+of the aggregated tests. In order for C<elapsed> to be valid you must
+call C<start> before running the tests and C<stop> immediately
+afterwards.
+
+=cut
+
+sub elapsed {
+    my $self = shift;
+
+    require Carp;
+    Carp::croak
+      q{Can't call elapsed without first calling start and then stop}
+      unless defined $self->{start_time} && defined $self->{end_time};
+    return timediff( $self->{end_time}, $self->{start_time} );
+}
+
+=head3 C<elapsed_timestr>
+
+Returns a formatted string representing the runtime returned by
+C<elapsed()>.  This lets the caller not worry about Benchmark.
+
+=cut
+
+sub elapsed_timestr {
+    my $self = shift;
+
+    my $elapsed = $self->elapsed;
+
+    return timestr($elapsed);
+}
+
+=head3 C<all_passed>
+
+Return true if all the tests passed and no parse errors were detected.
+
+=cut
+
+sub all_passed {
+    my $self = shift;
+    return
+         $self->total
+      && $self->total == $self->passed
+      && !$self->has_errors;
+}
+
+=head3 C<get_status>
+
+Get a single word describing the status of the aggregated tests.
+Depending on the outcome of the tests returns 'PASS', 'FAIL' or
+'NOTESTS'. This token is understood by L<CPAN::Reporter>.
+
+=cut
+
+sub get_status {
+    my $self = shift;
+
+    my $total  = $self->total;
+    my $passed = $self->passed;
+
+    return
+        ( $self->has_errors || $total != $passed ) ? 'FAIL'
+      : $total ? 'PASS'
+      :          'NOTESTS';
+}
+
+##############################################################################
+
+=head2 Summary methods
+
+Each of the following methods will return the total number of corresponding
+tests if called in scalar context.  If called in list context, returns the
+descriptions of the parsers which contain the corresponding tests (see C<add>
+for an explanation of description.
+
+=over 4
+
+=item * failed
+
+=item * parse_errors
+
+=item * passed
+
+=item * planned
+
+=item * skipped
+
+=item * todo
+
+=item * todo_passed
+
+=item * wait
+
+=item * exit
+
+=back
+
+For example, to find out how many tests unexpectedly succeeded (TODO tests
+which passed when they shouldn't):
+
+ my $count        = $aggregate->todo_passed;
+ my @descriptions = $aggregate->todo_passed;
+
+Note that C<wait> and C<exit> are the totals of the wait and exit
+statuses of each of the tests. These values are totalled only to provide
+a true value if any of them are non-zero.
+
+=cut
+
+##############################################################################
+
+=head3 C<total>
+
+  my $tests_run = $aggregate->total;
+
+Returns the total number of tests run.
+
+=cut
+
+sub total { shift->{total} }
+
+##############################################################################
+
+=head3 C<has_problems>
+
+  if ( $parser->has_problems ) {
+      ...
+  }
+
+Identical to C<has_errors>, but also returns true if any TODO tests
+unexpectedly succeeded.  This is more akin to "warnings".
+
+=cut
+
+sub has_problems {
+    my $self = shift;
+    return $self->todo_passed
+      || $self->has_errors;
+}
+
+##############################################################################
+
+=head3 C<has_errors>
+
+  if ( $parser->has_errors ) {
+      ...
+  }
+
+Returns true if I<any> of the parsers failed.  This includes:
+
+=over 4
+
+=item * Failed tests
+
+=item * Parse errors
+
+=item * Bad exit or wait status
+
+=back
+
+=cut
+
+sub has_errors {
+    my $self = shift;
+    return
+         $self->failed
+      || $self->parse_errors
+      || $self->exit
+      || $self->wait;
+}
+
+##############################################################################
+
+=head3 C<todo_failed>
+
+  # deprecated in favor of 'todo_passed'.  This method was horribly misnamed.
+
+This was a badly misnamed method.  It indicates which TODO tests unexpectedly
+succeeded.  Will now issue a warning and call C<todo_passed>.
+
+=cut
+
+sub todo_failed {
+    warn
+      '"todo_failed" is deprecated.  Please use "todo_passed".  See the docs.';
+    goto &todo_passed;
+}
+
+=head1 See Also
+
+L<TAP::Parser>
+
+L<TAP::Harness>
+
+=cut
+
+1;
diff --git a/lib/5.24.1/TAP/Parser/Grammar.pm b/lib/5.24.1/TAP/Parser/Grammar.pm
new file mode 100644
index 00000000..e4ab7b4e
--- /dev/null
+++ b/lib/5.24.1/TAP/Parser/Grammar.pm
@@ -0,0 +1,584 @@
+package TAP::Parser::Grammar;
+
+use strict;
+use warnings;
+
+use TAP::Parser::ResultFactory   ();
+use TAP::Parser::YAMLish::Reader ();
+
+use base 'TAP::Object';
+
+=head1 NAME
+
+TAP::Parser::Grammar - A grammar for the Test Anything Protocol.
+
+=head1 VERSION
+
+Version 3.36
+
+=cut
+
+our $VERSION = '3.36_01';
+
+=head1 SYNOPSIS
+
+  use TAP::Parser::Grammar;
+  my $grammar = $self->make_grammar({
+    iterator => $tap_parser_iterator,
+    parser   => $tap_parser,
+    version  => 12,
+  });
+
+  my $result = $grammar->tokenize;
+
+=head1 DESCRIPTION
+
+C<TAP::Parser::Grammar> tokenizes lines from a L<TAP::Parser::Iterator> and
+constructs L<TAP::Parser::Result> subclasses to represent the tokens.
+
+Do not attempt to use this class directly.  It won't make sense.  It's mainly
+here to ensure that we will be able to have pluggable grammars when TAP is
+expanded at some future date (plus, this stuff was really cluttering the
+parser).
+
+=head1 METHODS
+
+=head2 Class Methods
+
+=head3 C<new>
+
+  my $grammar = TAP::Parser::Grammar->new({
+      iterator => $iterator,
+      parser   => $parser,
+      version  => $version,
+  });
+
+Returns L<TAP::Parser> grammar object that will parse the TAP stream from the
+specified iterator.  Both C<iterator> and C<parser> are required arguments.
+If C<version> is not set it defaults to C<12> (see L</set_version> for more
+details).
+
+=cut
+
+# new() implementation supplied by TAP::Object
+sub _initialize {
+    my ( $self, $args ) = @_;
+    $self->{iterator} = $args->{iterator};    # TODO: accessor
+    $self->{iterator} ||= $args->{stream};    # deprecated
+    $self->{parser} = $args->{parser};        # TODO: accessor
+    $self->set_version( $args->{version} || 12 );
+    return $self;
+}
+
+my %language_for;
+
+{
+
+    # XXX the 'not' and 'ok' might be on separate lines in VMS ...
+    my $ok  = qr/(?:not )?ok\b/;
+    my $num = qr/\d+/;
+
+    my %v12 = (
+        version => {
+            syntax  => qr/^TAP\s+version\s+(\d+)\s*\z/i,
+            handler => sub {
+                my ( $self, $line ) = @_;
+                my $version = $1;
+                return $self->_make_version_token( $line, $version, );
+            },
+        },
+        plan => {
+            syntax  => qr/^1\.\.(\d+)\s*(.*)\z/,
+            handler => sub {
+                my ( $self, $line ) = @_;
+                my ( $tests_planned, $tail ) = ( $1, $2 );
+                my $explanation = undef;
+                my $skip        = '';
+
+                if ( $tail =~ /^todo((?:\s+\d+)+)/ ) {
+                    my @todo = split /\s+/, _trim($1);
+                    return $self->_make_plan_token(
+                        $line, $tests_planned, 'TODO',
+                        '',    \@todo
+                    );
+                }
+                elsif ( 0 == $tests_planned ) {
+                    $skip = 'SKIP';
+
+                    # If we can't match # SKIP the directive should be undef.
+                    ($explanation) = $tail =~ /^#\s*SKIP\S*\s+(.*)/i;
+                }
+                elsif ( $tail !~ /^\s*$/ ) {
+                    return $self->_make_unknown_token($line);
+                }
+
+                $explanation = '' unless defined $explanation;
+
+                return $self->_make_plan_token(
+                    $line, $tests_planned, $skip,
+                    $explanation, []
+                );
+
+            },
+        },
+
+        # An optimization to handle the most common test lines without
+        # directives.
+        simple_test => {
+            syntax  => qr/^($ok) \ ($num) (?:\ ([^#]+))? \z/x,
+            handler => sub {
+                my ( $self, $line ) = @_;
+                my ( $ok, $num, $desc ) = ( $1, $2, $3 );
+
+                return $self->_make_test_token(
+                    $line, $ok, $num,
+                    $desc
+                );
+            },
+        },
+        test => {
+            syntax  => qr/^($ok) \s* ($num)? \s* (.*) \z/x,
+            handler => sub {
+                my ( $self, $line ) = @_;
+                my ( $ok, $num, $desc ) = ( $1, $2, $3 );
+                my ( $dir, $explanation ) = ( '', '' );
+                if ($desc =~ m/^ ( [^\\\#]* (?: \\. [^\\\#]* )* )
+                       \# \s* (SKIP|TODO) \b \s* (.*) $/ix
+                  )
+                {
+                    ( $desc, $dir, $explanation ) = ( $1, $2, $3 );
+                }
+                return $self->_make_test_token(
+                    $line, $ok, $num, $desc,
+                    $dir,  $explanation
+                );
+            },
+        },
+        comment => {
+            syntax  => qr/^#(.*)/,
+            handler => sub {
+                my ( $self, $line ) = @_;
+                my $comment = $1;
+                return $self->_make_comment_token( $line, $comment );
+            },
+        },
+        bailout => {
+            syntax  => qr/^\s*Bail out!\s*(.*)/,
+            handler => sub {
+                my ( $self, $line ) = @_;
+                my $explanation = $1;
+                return $self->_make_bailout_token(
+                    $line,
+                    $explanation
+                );
+            },
+        },
+    );
+
+    my %v13 = (
+        %v12,
+        plan => {
+            syntax  => qr/^1\.\.(\d+)(?:\s*#\s*SKIP\b(.*))?\z/i,
+            handler => sub {
+                my ( $self, $line ) = @_;
+                my ( $tests_planned, $explanation ) = ( $1, $2 );
+                my $skip
+                  = ( 0 == $tests_planned || defined $explanation )
+                  ? 'SKIP'
+                  : '';
+                $explanation = '' unless defined $explanation;
+                return $self->_make_plan_token(
+                    $line, $tests_planned, $skip,
+                    $explanation, []
+                );
+            },
+        },
+        yaml => {
+            syntax  => qr/^ (\s+) (---.*) $/x,
+            handler => sub {
+                my ( $self, $line ) = @_;
+                my ( $pad, $marker ) = ( $1, $2 );
+                return $self->_make_yaml_token( $pad, $marker );
+            },
+        },
+        pragma => {
+            syntax =>
+              qr/^ pragma \s+ ( [-+] \w+ \s* (?: , \s* [-+] \w+ \s* )* ) $/x,
+            handler => sub {
+                my ( $self, $line ) = @_;
+                my $pragmas = $1;
+                return $self->_make_pragma_token( $line, $pragmas );
+            },
+        },
+    );
+
+    %language_for = (
+        '12' => {
+            tokens => \%v12,
+        },
+        '13' => {
+            tokens => \%v13,
+            setup  => sub {
+                shift->{iterator}->handle_unicode;
+            },
+        },
+    );
+}
+
+##############################################################################
+
+=head2 Instance Methods
+
+=head3 C<set_version>
+
+  $grammar->set_version(13);
+
+Tell the grammar which TAP syntax version to support. The lowest
+supported version is 12. Although 'TAP version' isn't valid version 12
+syntax it is accepted so that higher version numbers may be parsed.
+
+=cut
+
+sub set_version {
+    my $self    = shift;
+    my $version = shift;
+
+    if ( my $language = $language_for{$version} ) {
+        $self->{version} = $version;
+        $self->{tokens}  = $language->{tokens};
+
+        if ( my $setup = $language->{setup} ) {
+            $self->$setup();
+        }
+
+        $self->_order_tokens;
+    }
+    else {
+        require Carp;
+        Carp::croak("Unsupported syntax version: $version");
+    }
+}
+
+# Optimization to put the most frequent tokens first.
+sub _order_tokens {
+    my $self = shift;
+
+    my %copy = %{ $self->{tokens} };
+    my @ordered_tokens = grep {defined}
+      map { delete $copy{$_} } qw( simple_test test comment plan );
+    push @ordered_tokens, values %copy;
+
+    $self->{ordered_tokens} = \@ordered_tokens;
+}
+
+##############################################################################
+
+=head3 C<tokenize>
+
+  my $token = $grammar->tokenize;
+
+This method will return a L<TAP::Parser::Result> object representing the
+current line of TAP.
+
+=cut
+
+sub tokenize {
+    my $self = shift;
+
+    my $line = $self->{iterator}->next;
+    unless ( defined $line ) {
+        delete $self->{parser};    # break circular ref
+        return;
+    }
+
+    my $token;
+
+    for my $token_data ( @{ $self->{ordered_tokens} } ) {
+        if ( $line =~ $token_data->{syntax} ) {
+            my $handler = $token_data->{handler};
+            $token = $self->$handler($line);
+            last;
+        }
+    }
+
+    $token = $self->_make_unknown_token($line) unless $token;
+
+    return $self->{parser}->make_result($token);
+}
+
+##############################################################################
+
+=head3 C<token_types>
+
+  my @types = $grammar->token_types;
+
+Returns the different types of tokens which this grammar can parse.
+
+=cut
+
+sub token_types {
+    my $self = shift;
+    return keys %{ $self->{tokens} };
+}
+
+##############################################################################
+
+=head3 C<syntax_for>
+
+  my $syntax = $grammar->syntax_for($token_type);
+
+Returns a pre-compiled regular expression which will match a chunk of TAP
+corresponding to the token type.  For example (not that you should really pay
+attention to this, C<< $grammar->syntax_for('comment') >> will return
+C<< qr/^#(.*)/ >>.
+
+=cut
+
+sub syntax_for {
+    my ( $self, $type ) = @_;
+    return $self->{tokens}->{$type}->{syntax};
+}
+
+##############################################################################
+
+=head3 C<handler_for>
+
+  my $handler = $grammar->handler_for($token_type);
+
+Returns a code reference which, when passed an appropriate line of TAP,
+returns the lexed token corresponding to that line.  As a result, the basic
+TAP parsing loop looks similar to the following:
+
+ my @tokens;
+ my $grammar = TAP::Grammar->new;
+ LINE: while ( defined( my $line = $parser->_next_chunk_of_tap ) ) {
+     for my $type ( $grammar->token_types ) {
+         my $syntax  = $grammar->syntax_for($type);
+         if ( $line =~ $syntax ) {
+             my $handler = $grammar->handler_for($type);
+             push @tokens => $grammar->$handler($line);
+             next LINE;
+         }
+     }
+     push @tokens => $grammar->_make_unknown_token($line);
+ }
+
+=cut
+
+sub handler_for {
+    my ( $self, $type ) = @_;
+    return $self->{tokens}->{$type}->{handler};
+}
+
+sub _make_version_token {
+    my ( $self, $line, $version ) = @_;
+    return {
+        type    => 'version',
+        raw     => $line,
+        version => $version,
+    };
+}
+
+sub _make_plan_token {
+    my ( $self, $line, $tests_planned, $directive, $explanation, $todo ) = @_;
+
+    if (   $directive eq 'SKIP'
+        && 0 != $tests_planned
+        && $self->{version} < 13 )
+    {
+        warn
+          "Specified SKIP directive in plan but more than 0 tests ($line)\n";
+    }
+
+    return {
+        type          => 'plan',
+        raw           => $line,
+        tests_planned => $tests_planned,
+        directive     => $directive,
+        explanation   => _trim($explanation),
+        todo_list     => $todo,
+    };
+}
+
+sub _make_test_token {
+    my ( $self, $line, $ok, $num, $desc, $dir, $explanation ) = @_;
+    return {
+        ok          => $ok,
+
+        # forcing this to be an integer (and not a string) reduces memory
+        # consumption. RT #84939
+        test_num    => ( defined $num ? 0 + $num : undef ),
+        description => _trim($desc),
+        directive   => ( defined $dir ? uc $dir : '' ),
+        explanation => _trim($explanation),
+        raw         => $line,
+        type        => 'test',
+    };
+}
+
+sub _make_unknown_token {
+    my ( $self, $line ) = @_;
+    return {
+        raw  => $line,
+        type => 'unknown',
+    };
+}
+
+sub _make_comment_token {
+    my ( $self, $line, $comment ) = @_;
+    return {
+        type    => 'comment',
+        raw     => $line,
+        comment => _trim($comment)
+    };
+}
+
+sub _make_bailout_token {
+    my ( $self, $line, $explanation ) = @_;
+    return {
+        type    => 'bailout',
+        raw     => $line,
+        bailout => _trim($explanation)
+    };
+}
+
+sub _make_yaml_token {
+    my ( $self, $pad, $marker ) = @_;
+
+    my $yaml = TAP::Parser::YAMLish::Reader->new;
+
+    my $iterator = $self->{iterator};
+
+    # Construct a reader that reads from our input stripping leading
+    # spaces from each line.
+    my $leader = length($pad);
+    my $strip  = qr{ ^ (\s{$leader}) (.*) $ }x;
+    my @extra  = ($marker);
+    my $reader = sub {
+        return shift @extra if @extra;
+        my $line = $iterator->next;
+        return $2 if $line =~ $strip;
+        return;
+    };
+
+    my $data = $yaml->read($reader);
+
+    # Reconstitute input. This is convoluted. Maybe we should just
+    # record it on the way in...
+    chomp( my $raw = $yaml->get_raw );
+    $raw =~ s/^/$pad/mg;
+
+    return {
+        type => 'yaml',
+        raw  => $raw,
+        data => $data
+    };
+}
+
+sub _make_pragma_token {
+    my ( $self, $line, $pragmas ) = @_;
+    return {
+        type    => 'pragma',
+        raw     => $line,
+        pragmas => [ split /\s*,\s*/, _trim($pragmas) ],
+    };
+}
+
+sub _trim {
+    my $data = shift;
+
+    return '' unless defined $data;
+
+    $data =~ s/^\s+//;
+    $data =~ s/\s+$//;
+    return $data;
+}
+
+1;
+
+=head1 TAP GRAMMAR
+
+B<NOTE:>  This grammar is slightly out of date.  There's still some discussion
+about it and a new one will be provided when we have things better defined.
+
+The L<TAP::Parser> does not use a formal grammar because TAP is essentially a
+stream-based protocol.  In fact, it's quite legal to have an infinite stream.
+For the same reason that we don't apply regexes to streams, we're not using a
+formal grammar here.  Instead, we parse the TAP in lines.
+
+For purposes for forward compatibility, any result which does not match the
+following grammar is currently referred to as
+L<TAP::Parser::Result::Unknown>.  It is I<not> a parse error.
+
+A formal grammar would look similar to the following:
+
+ (*
+     For the time being, I'm cheating on the EBNF by allowing
+     certain terms to be defined by POSIX character classes by
+     using the following syntax:
+
+       digit ::= [:digit:]
+
+     As far as I am aware, that's not valid EBNF.  Sue me.  I
+     didn't know how to write "char" otherwise (Unicode issues).
+     Suggestions welcome.
+ *)
+
+ tap            ::= version? { comment | unknown } leading_plan lines
+                    |
+                    lines trailing_plan {comment}
+
+ version        ::= 'TAP version ' positiveInteger {positiveInteger} "\n"
+
+ leading_plan   ::= plan skip_directive? "\n"
+
+ trailing_plan  ::= plan "\n"
+
+ plan           ::= '1..' nonNegativeInteger
+
+ lines          ::= line {line}
+
+ line           ::= (comment | test | unknown | bailout ) "\n"
+
+ test           ::= status positiveInteger? description? directive?
+
+ status         ::= 'not '? 'ok '
+
+ description    ::= (character - (digit | '#')) {character - '#'}
+
+ directive      ::= todo_directive | skip_directive
+
+ todo_directive ::= hash_mark 'TODO' ' ' {character}
+
+ skip_directive ::= hash_mark 'SKIP' ' ' {character}
+
+ comment        ::= hash_mark {character}
+
+ hash_mark      ::= '#' {' '}
+
+ bailout        ::= 'Bail out!' {character}
+
+ unknown        ::= { (character - "\n") }
+
+ (* POSIX character classes and other terminals *)
+
+ digit              ::= [:digit:]
+ character          ::= ([:print:] - "\n")
+ positiveInteger    ::= ( digit - '0' ) {digit}
+ nonNegativeInteger ::= digit {digit}
+
+=head1 SUBCLASSING
+
+Please see L<TAP::Parser/SUBCLASSING> for a subclassing overview.
+
+If you I<really> want to subclass L<TAP::Parser>'s grammar the best thing to
+do is read through the code.  There's no easy way of summarizing it here.
+
+=head1 SEE ALSO
+
+L<TAP::Object>,
+L<TAP::Parser>,
+L<TAP::Parser::Iterator>,
+L<TAP::Parser::Result>,
+
+=cut
diff --git a/lib/5.24.1/TAP/Parser/Iterator.pm b/lib/5.24.1/TAP/Parser/Iterator.pm
new file mode 100644
index 00000000..93b8a7f5
--- /dev/null
+++ b/lib/5.24.1/TAP/Parser/Iterator.pm
@@ -0,0 +1,162 @@
+package TAP::Parser::Iterator;
+
+use strict;
+use warnings;
+
+use base 'TAP::Object';
+
+=head1 NAME
+
+TAP::Parser::Iterator - Base class for TAP source iterators
+
+=head1 VERSION
+
+Version 3.36
+
+=cut
+
+our $VERSION = '3.36_01';
+
+=head1 SYNOPSIS
+
+  # to subclass:
+  use TAP::Parser::Iterator ();
+  use base 'TAP::Parser::Iterator';
+  sub _initialize {
+    # see TAP::Object...
+  }
+
+  sub next_raw { ... }
+  sub wait     { ... }
+  sub exit     { ... }
+
+=head1 DESCRIPTION
+
+This is a simple iterator base class that defines L<TAP::Parser>'s iterator
+API.  Iterators are typically created from L<TAP::Parser::SourceHandler>s.
+
+=head1 METHODS
+
+=head2 Class Methods
+
+=head3 C<new>
+
+Create an iterator.  Provided by L<TAP::Object>.
+
+=head2 Instance Methods
+
+=head3 C<next>
+
+ while ( my $item = $iter->next ) { ... }
+
+Iterate through it, of course.
+
+=head3 C<next_raw>
+
+B<Note:> this method is abstract and should be overridden.
+
+ while ( my $item = $iter->next_raw ) { ... }
+
+Iterate raw input without applying any fixes for quirky input syntax.
+
+=cut
+
+sub next {
+    my $self = shift;
+    my $line = $self->next_raw;
+
+    # vms nit:  When encountering 'not ok', vms often has the 'not' on a line
+    # by itself:
+    #   not
+    #   ok 1 - 'I hate VMS'
+    if ( defined($line) and $line =~ /^\s*not\s*$/ ) {
+        $line .= ( $self->next_raw || '' );
+    }
+
+    return $line;
+}
+
+sub next_raw {
+    require Carp;
+    my $msg = Carp::longmess('abstract method called directly!');
+    $_[0]->_croak($msg);
+}
+
+=head3 C<handle_unicode>
+
+If necessary switch the input stream to handle unicode. This only has
+any effect for I/O handle based streams.
+
+The default implementation does nothing.
+
+=cut
+
+sub handle_unicode { }
+
+=head3 C<get_select_handles>
+
+Return a list of filehandles that may be used upstream in a select()
+call to signal that this Iterator is ready. Iterators that are not
+handle-based should return an empty list.
+
+The default implementation does nothing.
+
+=cut
+
+sub get_select_handles {
+    return;
+}
+
+=head3 C<wait>
+
+B<Note:> this method is abstract and should be overridden.
+
+ my $wait_status = $iter->wait;
+
+Return the C<wait> status for this iterator.
+
+=head3 C<exit>
+
+B<Note:> this method is abstract and should be overridden.
+
+ my $wait_status = $iter->exit;
+
+Return the C<exit> status for this iterator.
+
+=cut
+
+sub wait {
+    require Carp;
+    my $msg = Carp::longmess('abstract method called directly!');
+    $_[0]->_croak($msg);
+}
+
+sub exit {
+    require Carp;
+    my $msg = Carp::longmess('abstract method called directly!');
+    $_[0]->_croak($msg);
+}
+
+1;
+
+=head1 SUBCLASSING
+
+Please see L<TAP::Parser/SUBCLASSING> for a subclassing overview.
+
+You must override the abstract methods as noted above.
+
+=head2 Example
+
+L<TAP::Parser::Iterator::Array> is probably the easiest example to follow.
+There's not much point repeating it here.
+
+=head1 SEE ALSO
+
+L<TAP::Object>,
+L<TAP::Parser>,
+L<TAP::Parser::Iterator::Array>,
+L<TAP::Parser::Iterator::Stream>,
+L<TAP::Parser::Iterator::Process>,
+
+=cut
+
diff --git a/lib/5.24.1/TAP/Parser/Iterator/Array.pm b/lib/5.24.1/TAP/Parser/Iterator/Array.pm
new file mode 100644
index 00000000..ce7000be
--- /dev/null
+++ b/lib/5.24.1/TAP/Parser/Iterator/Array.pm
@@ -0,0 +1,100 @@
+package TAP::Parser::Iterator::Array;
+
+use strict;
+use warnings;
+
+use base 'TAP::Parser::Iterator';
+
+=head1 NAME
+
+TAP::Parser::Iterator::Array - Iterator for array-based TAP sources
+
+=head1 VERSION
+
+Version 3.36
+
+=cut
+
+our $VERSION = '3.36_01';
+
+=head1 SYNOPSIS
+
+  use TAP::Parser::Iterator::Array;
+  my @data = ('foo', 'bar', baz');
+  my $it   = TAP::Parser::Iterator::Array->new(\@data);
+  my $line = $it->next;
+
+=head1 DESCRIPTION
+
+This is a simple iterator wrapper for arrays of scalar content, used by
+L<TAP::Parser>.  Unless you're writing a plugin or subclassing, you probably
+won't need to use this module directly.
+
+=head1 METHODS
+
+=head2 Class Methods
+
+=head3 C<new>
+
+Create an iterator.  Takes one argument: an C<$array_ref>
+
+=head2 Instance Methods
+
+=head3 C<next>
+
+Iterate through it, of course.
+
+=head3 C<next_raw>
+
+Iterate raw input without applying any fixes for quirky input syntax.
+
+=head3 C<wait>
+
+Get the wait status for this iterator. For an array iterator this will always
+be zero.
+
+=head3 C<exit>
+
+Get the exit status for this iterator. For an array iterator this will always
+be zero.
+
+=cut
+
+# new() implementation supplied by TAP::Object
+
+sub _initialize {
+    my ( $self, $thing ) = @_;
+    chomp @$thing;
+    $self->{idx}   = 0;
+    $self->{array} = $thing;
+    $self->{exit}  = undef;
+    return $self;
+}
+
+sub wait { shift->exit }
+
+sub exit {
+    my $self = shift;
+    return 0 if $self->{idx} >= @{ $self->{array} };
+    return;
+}
+
+sub next_raw {
+    my $self = shift;
+    return $self->{array}->[ $self->{idx}++ ];
+}
+
+1;
+
+=head1 ATTRIBUTION
+
+Originally ripped off from L<Test::Harness>.
+
+=head1 SEE ALSO
+
+L<TAP::Object>,
+L<TAP::Parser>,
+L<TAP::Parser::Iterator>,
+
+=cut
+
diff --git a/lib/5.24.1/TAP/Parser/Iterator/Process.pm b/lib/5.24.1/TAP/Parser/Iterator/Process.pm
new file mode 100644
index 00000000..cf842998
--- /dev/null
+++ b/lib/5.24.1/TAP/Parser/Iterator/Process.pm
@@ -0,0 +1,378 @@
+package TAP::Parser::Iterator::Process;
+
+use strict;
+use warnings;
+
+use Config;
+use IO::Handle;
+
+use base 'TAP::Parser::Iterator';
+
+my $IS_WIN32 = ( $^O =~ /^(MS)?Win32$/ );
+
+=head1 NAME
+
+TAP::Parser::Iterator::Process - Iterator for process-based TAP sources
+
+=head1 VERSION
+
+Version 3.36
+
+=cut
+
+our $VERSION = '3.36_01';
+
+=head1 SYNOPSIS
+
+  use TAP::Parser::Iterator::Process;
+  my %args = (
+   command  => ['python', 'setup.py', 'test'],
+   merge    => 1,
+   setup    => sub { ... },
+   teardown => sub { ... },
+  );
+  my $it   = TAP::Parser::Iterator::Process->new(\%args);
+  my $line = $it->next;
+
+=head1 DESCRIPTION
+
+This is a simple iterator wrapper for executing external processes, used by
+L<TAP::Parser>.  Unless you're writing a plugin or subclassing, you probably
+won't need to use this module directly.
+
+=head1 METHODS
+
+=head2 Class Methods
+
+=head3 C<new>
+
+Create an iterator.  Expects one argument containing a hashref of the form:
+
+   command  => \@command_to_execute
+   merge    => $attempt_merge_stderr_and_stdout?
+   setup    => $callback_to_setup_command
+   teardown => $callback_to_teardown_command
+
+Tries to uses L<IPC::Open3> & L<IO::Select> to communicate with the spawned
+process if they are available.  Falls back onto C<open()>.
+
+=head2 Instance Methods
+
+=head3 C<next>
+
+Iterate through the process output, of course.
+
+=head3 C<next_raw>
+
+Iterate raw input without applying any fixes for quirky input syntax.
+
+=head3 C<wait>
+
+Get the wait status for this iterator's process.
+
+=head3 C<exit>
+
+Get the exit status for this iterator's process.
+
+=cut
+
+{
+
+    no warnings 'uninitialized';
+       # get around a catch22 in the test suite that causes failures on Win32:
+    local $SIG{__DIE__} = undef;
+    eval { require POSIX; &POSIX::WEXITSTATUS(0) };
+    if ($@) {
+        *_wait2exit = sub { $_[1] >> 8 };
+    }
+    else {
+        *_wait2exit = sub { POSIX::WEXITSTATUS( $_[1] ) }
+    }
+}
+
+sub _use_open3 {
+    my $self = shift;
+    return unless $Config{d_fork} || $IS_WIN32;
+    for my $module (qw( IPC::Open3 IO::Select )) {
+        eval "use $module";
+        return if $@;
+    }
+    return 1;
+}
+
+{
+    my $got_unicode;
+
+    sub _get_unicode {
+        return $got_unicode if defined $got_unicode;
+        eval 'use Encode qw(decode_utf8);';
+        $got_unicode = $@ ? 0 : 1;
+
+    }
+}
+
+# new() implementation supplied by TAP::Object
+
+sub _initialize {
+    my ( $self, $args ) = @_;
+
+    my @command = @{ delete $args->{command} || [] }
+      or die "Must supply a command to execute";
+
+    $self->{command} = [@command];
+
+    # Private. Used to frig with chunk size during testing.
+    my $chunk_size = delete $args->{_chunk_size} || 65536;
+
+    my $merge = delete $args->{merge};
+    my ( $pid, $err, $sel );
+
+    if ( my $setup = delete $args->{setup} ) {
+        $setup->(@command);
+    }
+
+    my $out = IO::Handle->new;
+
+    if ( $self->_use_open3 ) {
+
+        # HOTPATCH {{{
+        my $xclose = \&IPC::Open3::xclose;
+        no warnings;
+        local *IPC::Open3::xclose = sub {
+            my $fh = shift;
+            no strict 'refs';
+            return if ( fileno($fh) == fileno(STDIN) );
+            $xclose->($fh);
+        };
+
+        # }}}
+
+        if ($IS_WIN32) {
+            $err = $merge ? '' : '>&STDERR';
+            eval {
+                $pid = open3(
+                    '<&STDIN', $out, $merge ? '' : $err,
+                    @command
+                );
+            };
+            die "Could not execute (@command): $@" if $@;
+            if ( $] >= 5.006 ) {
+                binmode($out, ":crlf");
+            }
+        }
+        else {
+            $err = $merge ? '' : IO::Handle->new;
+            eval { $pid = open3( '<&STDIN', $out, $err, @command ); };
+            die "Could not execute (@command): $@" if $@;
+            $sel = $merge ? undef : IO::Select->new( $out, $err );
+        }
+    }
+    else {
+        $err = '';
+        my $command
+          = join( ' ', map { $_ =~ /\s/ ? qq{"$_"} : $_ } @command );
+        open( $out, "$command|" )
+          or die "Could not execute ($command): $!";
+    }
+
+    $self->{out}        = $out;
+    $self->{err}        = $err;
+    $self->{sel}        = $sel;
+    $self->{pid}        = $pid;
+    $self->{exit}       = undef;
+    $self->{chunk_size} = $chunk_size;
+
+    if ( my $teardown = delete $args->{teardown} ) {
+        $self->{teardown} = sub {
+            $teardown->(@command);
+        };
+    }
+
+    return $self;
+}
+
+=head3 C<handle_unicode>
+
+Upgrade the input stream to handle UTF8.
+
+=cut
+
+sub handle_unicode {
+    my $self = shift;
+
+    if ( $self->{sel} ) {
+        if ( _get_unicode() ) {
+
+            # Make sure our iterator has been constructed and...
+            my $next = $self->{_next} ||= $self->_next;
+
+            # ...wrap it to do UTF8 casting
+            $self->{_next} = sub {
+                my $line = $next->();
+                return decode_utf8($line) if defined $line;
+                return;
+            };
+        }
+    }
+    else {
+        if ( $] >= 5.008 ) {
+            eval 'binmode($self->{out}, ":utf8")';
+        }
+    }
+
+}
+
+##############################################################################
+
+sub wait { shift->{wait} }
+sub exit { shift->{exit} }
+
+sub _next {
+    my $self = shift;
+
+    if ( my $out = $self->{out} ) {
+        if ( my $sel = $self->{sel} ) {
+            my $err        = $self->{err};
+            my @buf        = ();
+            my $partial    = '';                    # Partial line
+            my $chunk_size = $self->{chunk_size};
+            return sub {
+                return shift @buf if @buf;
+
+                READ:
+                while ( my @ready = $sel->can_read ) {
+                    for my $fh (@ready) {
+                        my $got = sysread $fh, my ($chunk), $chunk_size;
+
+                        if ( $got == 0 ) {
+                            $sel->remove($fh);
+                        }
+                        elsif ( $fh == $err ) {
+                            print STDERR $chunk;    # echo STDERR
+                        }
+                        else {
+                            $chunk   = $partial . $chunk;
+                            $partial = '';
+
+                            # Make sure we have a complete line
+                            unless ( substr( $chunk, -1, 1 ) eq "\n" ) {
+                                my $nl = rindex $chunk, "\n";
+                                if ( $nl == -1 ) {
+                                    $partial = $chunk;
+                                    redo READ;
+                                }
+                                else {
+                                    $partial = substr( $chunk, $nl + 1 );
+                                    $chunk = substr( $chunk, 0, $nl );
+                                }
+                            }
+
+                            push @buf, split /\n/, $chunk;
+                            return shift @buf if @buf;
+                        }
+                    }
+                }
+
+                # Return partial last line
+                if ( length $partial ) {
+                    my $last = $partial;
+                    $partial = '';
+                    return $last;
+                }
+
+                $self->_finish;
+                return;
+            };
+        }
+        else {
+            return sub {
+                if ( defined( my $line = <$out> ) ) {
+                    chomp $line;
+                    return $line;
+                }
+                $self->_finish;
+                return;
+            };
+        }
+    }
+    else {
+        return sub {
+            $self->_finish;
+            return;
+        };
+    }
+}
+
+sub next_raw {
+    my $self = shift;
+    return ( $self->{_next} ||= $self->_next )->();
+}
+
+sub _finish {
+    my $self = shift;
+
+    my $status = $?;
+
+    # Avoid circular refs
+    $self->{_next} = sub {return}
+      if $] >= 5.006;
+
+    # If we have a subprocess we need to wait for it to terminate
+    if ( defined $self->{pid} ) {
+        if ( $self->{pid} == waitpid( $self->{pid}, 0 ) ) {
+            $status = $?;
+        }
+    }
+
+    ( delete $self->{out} )->close if $self->{out};
+
+    # If we have an IO::Select we also have an error handle to close.
+    if ( $self->{sel} ) {
+        ( delete $self->{err} )->close;
+        delete $self->{sel};
+    }
+    else {
+        $status = $?;
+    }
+
+    # Sometimes we get -1 on Windows. Presumably that means status not
+    # available.
+    $status = 0 if $IS_WIN32 && $status == -1;
+
+    $self->{wait} = $status;
+    $self->{exit} = $self->_wait2exit($status);
+
+    if ( my $teardown = $self->{teardown} ) {
+        $teardown->();
+    }
+
+    return $self;
+}
+
+=head3 C<get_select_handles>
+
+Return a list of filehandles that may be used upstream in a select()
+call to signal that this Iterator is ready. Iterators that are not
+handle based should return an empty list.
+
+=cut
+
+sub get_select_handles {
+    my $self = shift;
+    return grep $_, ( $self->{out}, $self->{err} );
+}
+
+1;
+
+=head1 ATTRIBUTION
+
+Originally ripped off from L<Test::Harness>.
+
+=head1 SEE ALSO
+
+L<TAP::Object>,
+L<TAP::Parser>,
+L<TAP::Parser::Iterator>,
+
+=cut
+
diff --git a/lib/5.24.1/TAP/Parser/Iterator/Stream.pm b/lib/5.24.1/TAP/Parser/Iterator/Stream.pm
new file mode 100644
index 00000000..f9852796
--- /dev/null
+++ b/lib/5.24.1/TAP/Parser/Iterator/Stream.pm
@@ -0,0 +1,106 @@
+package TAP::Parser::Iterator::Stream;
+
+use strict;
+use warnings;
+
+use base 'TAP::Parser::Iterator';
+
+=head1 NAME
+
+TAP::Parser::Iterator::Stream - Iterator for filehandle-based TAP sources
+
+=head1 VERSION
+
+Version 3.36
+
+=cut
+
+our $VERSION = '3.36_01';
+
+=head1 SYNOPSIS
+
+  use TAP::Parser::Iterator::Stream;
+  open( TEST, 'test.tap' );
+  my $it   = TAP::Parser::Iterator::Stream->new(\*TEST);
+  my $line = $it->next;
+
+=head1 DESCRIPTION
+
+This is a simple iterator wrapper for reading from filehandles, used by
+L<TAP::Parser>.  Unless you're writing a plugin or subclassing, you probably
+won't need to use this module directly.
+
+=head1 METHODS
+
+=head2 Class Methods
+
+=head3 C<new>
+
+Create an iterator.  Expects one argument containing a filehandle.
+
+=cut
+
+# new() implementation supplied by TAP::Object
+
+sub _initialize {
+    my ( $self, $thing ) = @_;
+    $self->{fh} = $thing;
+    return $self;
+}
+
+=head2 Instance Methods
+
+=head3 C<next>
+
+Iterate through it, of course.
+
+=head3 C<next_raw>
+
+Iterate raw input without applying any fixes for quirky input syntax.
+
+=head3 C<wait>
+
+Get the wait status for this iterator. Always returns zero.
+
+=head3 C<exit>
+
+Get the exit status for this iterator. Always returns zero.
+
+=cut
+
+sub wait { shift->exit }
+sub exit { shift->{fh} ? () : 0 }
+
+sub next_raw {
+    my $self = shift;
+    my $fh   = $self->{fh};
+
+    if ( defined( my $line = <$fh> ) ) {
+        chomp $line;
+        return $line;
+    }
+    else {
+        $self->_finish;
+        return;
+    }
+}
+
+sub _finish {
+    my $self = shift;
+    close delete $self->{fh};
+}
+
+1;
+
+=head1 ATTRIBUTION
+
+Originally ripped off from L<Test::Harness>.
+
+=head1 SEE ALSO
+
+L<TAP::Object>,
+L<TAP::Parser>,
+L<TAP::Parser::Iterator>,
+
+=cut
+
diff --git a/lib/5.24.1/TAP/Parser/IteratorFactory.pm b/lib/5.24.1/TAP/Parser/IteratorFactory.pm
new file mode 100644
index 00000000..7a80031b
--- /dev/null
+++ b/lib/5.24.1/TAP/Parser/IteratorFactory.pm
@@ -0,0 +1,337 @@
+package TAP::Parser::IteratorFactory;
+
+use strict;
+use warnings;
+
+use Carp qw( confess );
+use File::Basename qw( fileparse );
+
+use base 'TAP::Object';
+
+use constant handlers => [];
+
+=head1 NAME
+
+TAP::Parser::IteratorFactory - Figures out which SourceHandler objects to use for a given Source
+
+=head1 VERSION
+
+Version 3.36
+
+=cut
+
+our $VERSION = '3.36_01';
+
+=head1 SYNOPSIS
+
+  use TAP::Parser::IteratorFactory;
+  my $factory = TAP::Parser::IteratorFactory->new({ %config });
+  my $iterator  = $factory->make_iterator( $filename );
+
+=head1 DESCRIPTION
+
+This is a factory class that takes a L<TAP::Parser::Source> and runs it through all the
+registered L<TAP::Parser::SourceHandler>s to see which one should handle the source.
+
+If you're a plugin author, you'll be interested in how to L</register_handler>s,
+how L</detect_source> works.
+
+=head1 METHODS
+
+=head2 Class Methods
+
+=head3 C<new>
+
+Creates a new factory class:
+
+  my $sf = TAP::Parser::IteratorFactory->new( $config );
+
+C<$config> is optional.  If given, sets L</config> and calls L</load_handlers>.
+
+=cut
+
+sub _initialize {
+    my ( $self, $config ) = @_;
+    $self->config( $config || {} )->load_handlers;
+    return $self;
+}
+
+=head3 C<register_handler>
+
+Registers a new L<TAP::Parser::SourceHandler> with this factory.
+
+  __PACKAGE__->register_handler( $handler_class );
+
+=head3 C<handlers>
+
+List of handlers that have been registered.
+
+=cut
+
+sub register_handler {
+    my ( $class, $dclass ) = @_;
+
+    confess("$dclass must implement can_handle & make_iterator methods!")
+      unless UNIVERSAL::can( $dclass, 'can_handle' )
+          && UNIVERSAL::can( $dclass, 'make_iterator' );
+
+    my $handlers = $class->handlers;
+    push @{$handlers}, $dclass
+      unless grep { $_ eq $dclass } @{$handlers};
+
+    return $class;
+}
+
+##############################################################################
+
+=head2 Instance Methods
+
+=head3 C<config>
+
+ my $cfg = $sf->config;
+ $sf->config({ Perl => { %config } });
+
+Chaining getter/setter for the configuration of the available source handlers.
+This is a hashref keyed on handler class whose values contain config to be passed
+onto the handlers during detection & creation.  Class names may be fully qualified
+or abbreviated, eg:
+
+  # these are equivalent
+  $sf->config({ 'TAP::Parser::SourceHandler::Perl' => { %config } });
+  $sf->config({ 'Perl' => { %config } });
+
+=cut
+
+sub config {
+    my $self = shift;
+    return $self->{config} unless @_;
+    unless ( 'HASH' eq ref $_[0] ) {
+        $self->_croak('Argument to &config must be a hash reference');
+    }
+    $self->{config} = shift;
+    return $self;
+}
+
+sub _last_handler {
+    my $self = shift;
+    return $self->{last_handler} unless @_;
+    $self->{last_handler} = shift;
+    return $self;
+}
+
+sub _testing {
+    my $self = shift;
+    return $self->{testing} unless @_;
+    $self->{testing} = shift;
+    return $self;
+}
+
+##############################################################################
+
+=head3 C<load_handlers>
+
+ $sf->load_handlers;
+
+Loads the handler classes defined in L</config>.  For example, given a config:
+
+  $sf->config({
+    MySourceHandler => { some => 'config' },
+  });
+
+C<load_handlers> will attempt to load the C<MySourceHandler> class by looking in
+C<@INC> for it in this order:
+
+  TAP::Parser::SourceHandler::MySourceHandler
+  MySourceHandler
+
+C<croak>s on error.
+
+=cut
+
+sub load_handlers {
+    my ($self) = @_;
+    for my $handler ( keys %{ $self->config } ) {
+        my $sclass = $self->_load_handler($handler);
+
+        # TODO: store which class we loaded anywhere?
+    }
+    return $self;
+}
+
+sub _load_handler {
+    my ( $self, $handler ) = @_;
+
+    my @errors;
+    for my $dclass ( "TAP::Parser::SourceHandler::$handler", $handler ) {
+        return $dclass
+          if UNIVERSAL::can( $dclass, 'can_handle' )
+              && UNIVERSAL::can( $dclass, 'make_iterator' );
+
+        eval "use $dclass";
+        if ( my $e = $@ ) {
+            push @errors, $e;
+            next;
+        }
+
+        return $dclass
+          if UNIVERSAL::can( $dclass, 'can_handle' )
+              && UNIVERSAL::can( $dclass, 'make_iterator' );
+        push @errors,
+          "handler '$dclass' does not implement can_handle & make_iterator";
+    }
+
+    $self->_croak(
+        "Cannot load handler '$handler': " . join( "\n", @errors ) );
+}
+
+##############################################################################
+
+=head3 C<make_iterator>
+
+  my $iterator = $src_factory->make_iterator( $source );
+
+Given a L<TAP::Parser::Source>, finds the most suitable L<TAP::Parser::SourceHandler>
+to use to create a L<TAP::Parser::Iterator> (see L</detect_source>).  Dies on error.
+
+=cut
+
+sub make_iterator {
+    my ( $self, $source ) = @_;
+
+    $self->_croak('no raw source defined!') unless defined $source->raw;
+
+    $source->config( $self->config )->assemble_meta;
+
+    # is the raw source already an object?
+    return $source->raw
+      if ( $source->meta->{is_object}
+        && UNIVERSAL::isa( $source->raw, 'TAP::Parser::SourceHandler' ) );
+
+    # figure out what kind of source it is
+    my $sd_class = $self->detect_source($source);
+    $self->_last_handler($sd_class);
+
+    return if $self->_testing;
+
+    # create it
+    my $iterator = $sd_class->make_iterator($source);
+
+    return $iterator;
+}
+
+=head3 C<detect_source>
+
+Given a L<TAP::Parser::Source>, detects what kind of source it is and
+returns I<one> L<TAP::Parser::SourceHandler> (the most confident one).  Dies
+on error.
+
+The detection algorithm works something like this:
+
+  for (@registered_handlers) {
+    # ask them how confident they are about handling this source
+    $confidence{$handler} = $handler->can_handle( $source )
+  }
+  # choose the most confident handler
+
+Ties are handled by choosing the first handler.
+
+=cut
+
+sub detect_source {
+    my ( $self, $source ) = @_;
+
+    confess('no raw source ref defined!') unless defined $source->raw;
+
+    # find a list of handlers that can handle this source:
+    my %handlers;
+    for my $dclass ( @{ $self->handlers } ) {
+        my $confidence = $dclass->can_handle($source);
+
+        # warn "handler: $dclass: $confidence\n";
+        $handlers{$dclass} = $confidence if $confidence;
+    }
+
+    if ( !%handlers ) {
+
+        # use Data::Dump qw( pp );
+        # warn pp( $meta );
+
+        # error: can't detect source
+        my $raw_source_short = substr( ${ $source->raw }, 0, 50 );
+        confess("Cannot detect source of '$raw_source_short'!");
+        return;
+    }
+
+    # if multiple handlers can handle it, choose the most confident one
+    my @handlers = (
+        map    {$_}
+          sort { $handlers{$a} cmp $handlers{$b} }
+          keys %handlers
+    );
+
+    # this is really useful for debugging handlers:
+    if ( $ENV{TAP_HARNESS_SOURCE_FACTORY_VOTES} ) {
+        warn(
+            "votes: ",
+            join( ', ', map {"$_: $handlers{$_}"} @handlers ),
+            "\n"
+        );
+    }
+
+    # return 1st
+    return pop @handlers;
+}
+
+1;
+
+__END__
+
+=head1 SUBCLASSING
+
+Please see L<TAP::Parser/SUBCLASSING> for a subclassing overview.
+
+=head2 Example
+
+If we've done things right, you'll probably want to write a new source,
+rather than sub-classing this (see L<TAP::Parser::SourceHandler> for that).
+
+But in case you find the need to...
+
+  package MyIteratorFactory;
+
+  use strict;
+
+  use base 'TAP::Parser::IteratorFactory';
+
+  # override source detection algorithm
+  sub detect_source {
+    my ($self, $raw_source_ref, $meta) = @_;
+    # do detective work, using $meta and whatever else...
+  }
+
+  1;
+
+=head1 AUTHORS
+
+Steve Purkis
+
+=head1 ATTRIBUTION
+
+Originally ripped off from L<Test::Harness>.
+
+Moved out of L<TAP::Parser> & converted to a factory class to support
+extensible TAP source detective work by Steve Purkis.
+
+=head1 SEE ALSO
+
+L<TAP::Object>,
+L<TAP::Parser>,
+L<TAP::Parser::SourceHandler>,
+L<TAP::Parser::SourceHandler::File>,
+L<TAP::Parser::SourceHandler::Perl>,
+L<TAP::Parser::SourceHandler::RawTAP>,
+L<TAP::Parser::SourceHandler::Handle>,
+L<TAP::Parser::SourceHandler::Executable>
+
+=cut
+
diff --git a/lib/5.24.1/TAP/Parser/Multiplexer.pm b/lib/5.24.1/TAP/Parser/Multiplexer.pm
new file mode 100644
index 00000000..55701f84
--- /dev/null
+++ b/lib/5.24.1/TAP/Parser/Multiplexer.pm
@@ -0,0 +1,194 @@
+package TAP::Parser::Multiplexer;
+
+use strict;
+use warnings;
+
+use IO::Select;
+
+use base 'TAP::Object';
+
+use constant IS_WIN32 => $^O =~ /^(MS)?Win32$/;
+use constant IS_VMS => $^O eq 'VMS';
+use constant SELECT_OK => !( IS_VMS || IS_WIN32 );
+
+=head1 NAME
+
+TAP::Parser::Multiplexer - Multiplex multiple TAP::Parsers
+
+=head1 VERSION
+
+Version 3.36
+
+=cut
+
+our $VERSION = '3.36_01';
+
+=head1 SYNOPSIS
+
+    use TAP::Parser::Multiplexer;
+
+    my $mux = TAP::Parser::Multiplexer->new;
+    $mux->add( $parser1, $stash1 );
+    $mux->add( $parser2, $stash2 );
+    while ( my ( $parser, $stash, $result ) = $mux->next ) {
+        # do stuff
+    }
+
+=head1 DESCRIPTION
+
+C<TAP::Parser::Multiplexer> gathers input from multiple TAP::Parsers.
+Internally it calls select on the input file handles for those parsers
+to wait for one or more of them to have input available.
+
+See L<TAP::Harness> for an example of its use.
+
+=head1 METHODS
+
+=head2 Class Methods
+
+=head3 C<new>
+
+    my $mux = TAP::Parser::Multiplexer->new;
+
+Returns a new C<TAP::Parser::Multiplexer> object.
+
+=cut
+
+# new() implementation supplied by TAP::Object
+
+sub _initialize {
+    my $self = shift;
+    $self->{select} = IO::Select->new;
+    $self->{avid}   = [];                # Parsers that can't select
+    $self->{count}  = 0;
+    return $self;
+}
+
+##############################################################################
+
+=head2 Instance Methods
+
+=head3 C<add>
+
+  $mux->add( $parser, $stash );
+
+Add a TAP::Parser to the multiplexer. C<$stash> is an optional opaque
+reference that will be returned from C<next> along with the parser and
+the next result.
+
+=cut
+
+sub add {
+    my ( $self, $parser, $stash ) = @_;
+
+    if ( SELECT_OK && ( my @handles = $parser->get_select_handles ) ) {
+        my $sel = $self->{select};
+
+        # We have to turn handles into file numbers here because by
+        # the time we want to remove them from our IO::Select they
+        # will already have been closed by the iterator.
+        my @filenos = map { fileno $_ } @handles;
+        for my $h (@handles) {
+            $sel->add( [ $h, $parser, $stash, @filenos ] );
+        }
+
+        $self->{count}++;
+    }
+    else {
+        push @{ $self->{avid} }, [ $parser, $stash ];
+    }
+}
+
+=head3 C<parsers>
+
+  my $count   = $mux->parsers;
+
+Returns the number of parsers. Parsers are removed from the multiplexer
+when their input is exhausted.
+
+=cut
+
+sub parsers {
+    my $self = shift;
+    return $self->{count} + scalar @{ $self->{avid} };
+}
+
+sub _iter {
+    my $self = shift;
+
+    my $sel   = $self->{select};
+    my $avid  = $self->{avid};
+    my @ready = ();
+
+    return sub {
+
+        # Drain all the non-selectable parsers first
+        if (@$avid) {
+            my ( $parser, $stash ) = @{ $avid->[0] };
+            my $result = $parser->next;
+            shift @$avid unless defined $result;
+            return ( $parser, $stash, $result );
+        }
+
+        unless (@ready) {
+            return unless $sel->count;
+            @ready = $sel->can_read;
+        }
+
+        my ( $h, $parser, $stash, @handles ) = @{ shift @ready };
+        my $result = $parser->next;
+
+        unless ( defined $result ) {
+            $sel->remove(@handles);
+            $self->{count}--;
+
+            # Force another can_read - we may now have removed a handle
+            # thought to have been ready.
+            @ready = ();
+        }
+
+        return ( $parser, $stash, $result );
+    };
+}
+
+=head3 C<next>
+
+Return a result from the next available parser. Returns a list
+containing the parser from which the result came, the stash that
+corresponds with that parser and the result.
+
+    my ( $parser, $stash, $result ) = $mux->next;
+
+If C<$result> is undefined the corresponding parser has reached the end
+of its input (and will automatically be removed from the multiplexer).
+
+When all parsers are exhausted an empty list will be returned.
+
+    if ( my ( $parser, $stash, $result ) = $mux->next ) {
+        if ( ! defined $result ) {
+            # End of this parser
+        }
+        else {
+            # Process result
+        }
+    }
+    else {
+        # All parsers finished
+    }
+
+=cut
+
+sub next {
+    my $self = shift;
+    return ( $self->{_iter} ||= $self->_iter )->();
+}
+
+=head1 See Also
+
+L<TAP::Parser>
+
+L<TAP::Harness>
+
+=cut
+
+1;
diff --git a/lib/5.24.1/TAP/Parser/Result.pm b/lib/5.24.1/TAP/Parser/Result.pm
new file mode 100644
index 00000000..270a24a6
--- /dev/null
+++ b/lib/5.24.1/TAP/Parser/Result.pm
@@ -0,0 +1,297 @@
+package TAP::Parser::Result;
+
+use strict;
+use warnings;
+
+use base 'TAP::Object';
+
+BEGIN {
+
+    # make is_* methods
+    my @attrs = qw( plan pragma test comment bailout version unknown yaml );
+    no strict 'refs';
+    for my $token (@attrs) {
+        my $method = "is_$token";
+        *$method = sub { return $token eq shift->type };
+    }
+}
+
+##############################################################################
+
+=head1 NAME
+
+TAP::Parser::Result - Base class for TAP::Parser output objects
+
+=head1 VERSION
+
+Version 3.36
+
+=cut
+
+our $VERSION = '3.36_01';
+
+=head1 SYNOPSIS
+
+  # abstract class - not meant to be used directly
+  # see TAP::Parser::ResultFactory for preferred usage
+
+  # directly:
+  use TAP::Parser::Result;
+  my $token  = {...};
+  my $result = TAP::Parser::Result->new( $token );
+
+=head2 DESCRIPTION
+
+This is a simple base class used by L<TAP::Parser> to store objects that
+represent the current bit of test output data from TAP (usually a single
+line).  Unless you're subclassing, you probably won't need to use this module
+directly.
+
+=head2 METHODS
+
+=head3 C<new>
+
+  # see TAP::Parser::ResultFactory for preferred usage
+
+  # to use directly:
+  my $result = TAP::Parser::Result->new($token);
+
+Returns an instance the appropriate class for the test token passed in.
+
+=cut
+
+# new() implementation provided by TAP::Object
+
+sub _initialize {
+    my ( $self, $token ) = @_;
+    if ($token) {
+
+       # assign to a hash slice to make a shallow copy of the token.
+       # I guess we could assign to the hash as (by default) there are not
+       # contents, but that seems less helpful if someone wants to subclass us
+        @{$self}{ keys %$token } = values %$token;
+    }
+    return $self;
+}
+
+##############################################################################
+
+=head2 Boolean methods
+
+The following methods all return a boolean value and are to be overridden in
+the appropriate subclass.
+
+=over 4
+
+=item * C<is_plan>
+
+Indicates whether or not this is the test plan line.
+
+ 1..3
+
+=item * C<is_pragma>
+
+Indicates whether or not this is a pragma line.
+
+ pragma +strict
+
+=item * C<is_test>
+
+Indicates whether or not this is a test line.
+
+ ok 1 Is OK!
+
+=item * C<is_comment>
+
+Indicates whether or not this is a comment.
+
+ # this is a comment
+
+=item * C<is_bailout>
+
+Indicates whether or not this is bailout line.
+
+ Bail out! We're out of dilithium crystals.
+
+=item * C<is_version>
+
+Indicates whether or not this is a TAP version line.
+
+ TAP version 4
+
+=item * C<is_unknown>
+
+Indicates whether or not the current line could be parsed.
+
+ ... this line is junk ...
+
+=item * C<is_yaml>
+
+Indicates whether or not this is a YAML chunk.
+
+=back
+
+=cut
+
+##############################################################################
+
+=head3 C<raw>
+
+  print $result->raw;
+
+Returns the original line of text which was parsed.
+
+=cut
+
+sub raw { shift->{raw} }
+
+##############################################################################
+
+=head3 C<type>
+
+  my $type = $result->type;
+
+Returns the "type" of a token, such as C<comment> or C<test>.
+
+=cut
+
+sub type { shift->{type} }
+
+##############################################################################
+
+=head3 C<as_string>
+
+  print $result->as_string;
+
+Prints a string representation of the token.  This might not be the exact
+output, however.  Tests will have test numbers added if not present, TODO and
+SKIP directives will be capitalized and, in general, things will be cleaned
+up.  If you need the original text for the token, see the C<raw> method.
+
+=cut
+
+sub as_string { shift->{raw} }
+
+##############################################################################
+
+=head3 C<is_ok>
+
+  if ( $result->is_ok ) { ... }
+
+Reports whether or not a given result has passed.  Anything which is B<not> a
+test result returns true.  This is merely provided as a convenient shortcut.
+
+=cut
+
+sub is_ok {1}
+
+##############################################################################
+
+=head3 C<passed>
+
+Deprecated.  Please use C<is_ok> instead.
+
+=cut
+
+sub passed {
+    warn 'passed() is deprecated.  Please use "is_ok()"';
+    shift->is_ok;
+}
+
+##############################################################################
+
+=head3 C<has_directive>
+
+  if ( $result->has_directive ) {
+     ...
+  }
+
+Indicates whether or not the given result has a TODO or SKIP directive.
+
+=cut
+
+sub has_directive {
+    my $self = shift;
+    return ( $self->has_todo || $self->has_skip );
+}
+
+##############################################################################
+
+=head3 C<has_todo>
+
+ if ( $result->has_todo ) {
+     ...
+ }
+
+Indicates whether or not the given result has a TODO directive.
+
+=cut
+
+sub has_todo { 'TODO' eq ( shift->{directive} || '' ) }
+
+##############################################################################
+
+=head3 C<has_skip>
+
+ if ( $result->has_skip ) {
+     ...
+ }
+
+Indicates whether or not the given result has a SKIP directive.
+
+=cut
+
+sub has_skip { 'SKIP' eq ( shift->{directive} || '' ) }
+
+=head3 C<set_directive>
+
+Set the directive associated with this token. Used internally to fake
+TODO tests.
+
+=cut
+
+sub set_directive {
+    my ( $self, $dir ) = @_;
+    $self->{directive} = $dir;
+}
+
+1;
+
+=head1 SUBCLASSING
+
+Please see L<TAP::Parser/SUBCLASSING> for a subclassing overview.
+
+Remember: if you want your subclass to be automatically used by the parser,
+you'll have to register it with L<TAP::Parser::ResultFactory/register_type>.
+
+If you're creating a completely new result I<type>, you'll probably need to
+subclass L<TAP::Parser::Grammar> too, or else it'll never get used.
+
+=head2 Example
+
+  package MyResult;
+
+  use strict;
+
+  use base 'TAP::Parser::Result';
+
+  # register with the factory:
+  TAP::Parser::ResultFactory->register_type( 'my_type' => __PACKAGE__ );
+
+  sub as_string { 'My results all look the same' }
+
+=head1 SEE ALSO
+
+L<TAP::Object>,
+L<TAP::Parser>,
+L<TAP::Parser::ResultFactory>,
+L<TAP::Parser::Result::Bailout>,
+L<TAP::Parser::Result::Comment>,
+L<TAP::Parser::Result::Plan>,
+L<TAP::Parser::Result::Pragma>,
+L<TAP::Parser::Result::Test>,
+L<TAP::Parser::Result::Unknown>,
+L<TAP::Parser::Result::Version>,
+L<TAP::Parser::Result::YAML>,
+
+=cut
diff --git a/lib/5.24.1/TAP/Parser/Result/Bailout.pm b/lib/5.24.1/TAP/Parser/Result/Bailout.pm
new file mode 100644
index 00000000..d5c7e8cf
--- /dev/null
+++ b/lib/5.24.1/TAP/Parser/Result/Bailout.pm
@@ -0,0 +1,62 @@
+package TAP::Parser::Result::Bailout;
+
+use strict;
+use warnings;
+
+use base 'TAP::Parser::Result';
+
+=head1 NAME
+
+TAP::Parser::Result::Bailout - Bailout result token.
+
+=head1 VERSION
+
+Version 3.36
+
+=cut
+
+our $VERSION = '3.36_01';
+
+=head1 DESCRIPTION
+
+This is a subclass of L<TAP::Parser::Result>.  A token of this class will be
+returned if a bail out line is encountered.
+
+ 1..5
+ ok 1 - woo hooo!
+ Bail out! Well, so much for "woo hooo!"
+
+=head1 OVERRIDDEN METHODS
+
+Mainly listed here to shut up the pitiful screams of the pod coverage tests.
+They keep me awake at night.
+
+=over 4
+
+=item * C<as_string>
+
+=back
+
+=cut
+
+##############################################################################
+
+=head2 Instance Methods
+
+=head3 C<explanation>
+
+  if ( $result->is_bailout ) {
+      my $explanation = $result->explanation;
+      print "We bailed out because ($explanation)";
+  }
+
+If, and only if, a token is a bailout token, you can get an "explanation" via
+this method.  The explanation is the text after the mystical "Bail out!" words
+which appear in the tap output.
+
+=cut
+
+sub explanation { shift->{bailout} }
+sub as_string   { shift->{bailout} }
+
+1;
diff --git a/lib/5.24.1/TAP/Parser/Result/Comment.pm b/lib/5.24.1/TAP/Parser/Result/Comment.pm
new file mode 100644
index 00000000..a5196344
--- /dev/null
+++ b/lib/5.24.1/TAP/Parser/Result/Comment.pm
@@ -0,0 +1,60 @@
+package TAP::Parser::Result::Comment;
+
+use strict;
+use warnings;
+
+use base 'TAP::Parser::Result';
+
+=head1 NAME
+
+TAP::Parser::Result::Comment - Comment result token.
+
+=head1 VERSION
+
+Version 3.36
+
+=cut
+
+our $VERSION = '3.36_01';
+
+=head1 DESCRIPTION
+
+This is a subclass of L<TAP::Parser::Result>.  A token of this class will be
+returned if a comment line is encountered.
+
+ 1..1
+ ok 1 - woo hooo!
+ # this is a comment
+
+=head1 OVERRIDDEN METHODS
+
+Mainly listed here to shut up the pitiful screams of the pod coverage tests.
+They keep me awake at night.
+
+=over 4
+
+=item * C<as_string>
+
+Note that this method merely returns the comment preceded by a '# '.
+
+=back
+
+=cut
+
+##############################################################################
+
+=head2 Instance Methods
+
+=head3 C<comment> 
+
+  if ( $result->is_comment ) {
+      my $comment = $result->comment;
+      print "I have something to say:  $comment";
+  }
+
+=cut
+
+sub comment   { shift->{comment} }
+sub as_string { shift->{raw} }
+
+1;
diff --git a/lib/5.24.1/TAP/Parser/Result/Plan.pm b/lib/5.24.1/TAP/Parser/Result/Plan.pm
new file mode 100644
index 00000000..0b2b3362
--- /dev/null
+++ b/lib/5.24.1/TAP/Parser/Result/Plan.pm
@@ -0,0 +1,119 @@
+package TAP::Parser::Result::Plan;
+
+use strict;
+use warnings;
+
+use base 'TAP::Parser::Result';
+
+=head1 NAME
+
+TAP::Parser::Result::Plan - Plan result token.
+
+=head1 VERSION
+
+Version 3.36
+
+=cut
+
+our $VERSION = '3.36_01';
+
+=head1 DESCRIPTION
+
+This is a subclass of L<TAP::Parser::Result>.  A token of this class will be
+returned if a plan line is encountered.
+
+ 1..1
+ ok 1 - woo hooo!
+
+C<1..1> is the plan.  Gotta have a plan.
+
+=head1 OVERRIDDEN METHODS
+
+Mainly listed here to shut up the pitiful screams of the pod coverage tests.
+They keep me awake at night.
+
+=over 4
+
+=item * C<as_string>
+
+=item * C<raw>
+
+=back
+
+=cut
+
+##############################################################################
+
+=head2 Instance Methods
+
+=head3 C<plan> 
+
+  if ( $result->is_plan ) {
+     print $result->plan;
+  }
+
+This is merely a synonym for C<as_string>.
+
+=cut
+
+sub plan { '1..' . shift->{tests_planned} }
+
+##############################################################################
+
+=head3 C<tests_planned>
+
+  my $planned = $result->tests_planned;
+
+Returns the number of tests planned.  For example, a plan of C<1..17> will
+cause this method to return '17'.
+
+=cut
+
+sub tests_planned { shift->{tests_planned} }
+
+##############################################################################
+
+=head3 C<directive>
+
+ my $directive = $plan->directive; 
+
+If a SKIP directive is included with the plan, this method will return it.
+
+ 1..0 # SKIP: why bother?
+
+=cut
+
+sub directive { shift->{directive} }
+
+##############################################################################
+
+=head3 C<has_skip>
+
+  if ( $result->has_skip ) { ... }
+
+Returns a boolean value indicating whether or not this test has a SKIP
+directive.
+
+=head3 C<explanation>
+
+ my $explanation = $plan->explanation;
+
+If a SKIP directive was included with the plan, this method will return the
+explanation, if any.
+
+=cut
+
+sub explanation { shift->{explanation} }
+
+=head3 C<todo_list>
+
+  my $todo = $result->todo_list;
+  for ( @$todo ) {
+      ...
+  }
+
+=cut
+
+sub todo_list { shift->{todo_list} }
+
+1;
diff --git a/lib/5.24.1/TAP/Parser/Result/Pragma.pm b/lib/5.24.1/TAP/Parser/Result/Pragma.pm
new file mode 100644
index 00000000..40380e7c
--- /dev/null
+++ b/lib/5.24.1/TAP/Parser/Result/Pragma.pm
@@ -0,0 +1,62 @@
+package TAP::Parser::Result::Pragma;
+
+use strict;
+use warnings;
+
+use base 'TAP::Parser::Result';
+
+=head1 NAME
+
+TAP::Parser::Result::Pragma - TAP pragma token.
+
+=head1 VERSION
+
+Version 3.36
+
+=cut
+
+our $VERSION = '3.36_01';
+
+=head1 DESCRIPTION
+
+This is a subclass of L<TAP::Parser::Result>.  A token of this class will be
+returned if a pragma is encountered.
+
+ TAP version 13
+ pragma +strict, -foo
+
+Pragmas are only supported from TAP version 13 onwards.
+
+=head1 OVERRIDDEN METHODS
+
+Mainly listed here to shut up the pitiful screams of the pod coverage tests.
+They keep me awake at night.
+
+=over 4
+
+=item * C<as_string>
+
+=item * C<raw>
+
+=back
+
+=cut
+
+##############################################################################
+
+=head2 Instance Methods
+
+=head3 C<pragmas> 
+
+if ( $result->is_pragma ) {
+    @pragmas = $result->pragmas;
+}
+
+=cut
+
+sub pragmas {
+    my @pragmas = @{ shift->{pragmas} };
+    return wantarray ? @pragmas : \@pragmas;
+}
+
+1;
diff --git a/lib/5.24.1/TAP/Parser/Result/Test.pm b/lib/5.24.1/TAP/Parser/Result/Test.pm
new file mode 100644
index 00000000..46b63e9e
--- /dev/null
+++ b/lib/5.24.1/TAP/Parser/Result/Test.pm
@@ -0,0 +1,271 @@
+package TAP::Parser::Result::Test;
+
+use strict;
+use warnings;
+
+use base 'TAP::Parser::Result';
+
+=head1 NAME
+
+TAP::Parser::Result::Test - Test result token.
+
+=head1 VERSION
+
+Version 3.36
+
+=cut
+
+our $VERSION = '3.36_01';
+
+=head1 DESCRIPTION
+
+This is a subclass of L<TAP::Parser::Result>.  A token of this class will be
+returned if a test line is encountered.
+
+ 1..1
+ ok 1 - woo hooo!
+
+=head1 OVERRIDDEN METHODS
+
+This class is the workhorse of the L<TAP::Parser> system.  Most TAP lines will
+be test lines and if C<< $result->is_test >>, then you have a bunch of methods
+at your disposal.
+
+=head2 Instance Methods
+
+=cut
+
+##############################################################################
+
+=head3 C<ok>
+
+  my $ok = $result->ok;
+
+Returns the literal text of the C<ok> or C<not ok> status.
+
+=cut
+
+sub ok { shift->{ok} }
+
+##############################################################################
+
+=head3 C<number>
+
+  my $test_number = $result->number;
+
+Returns the number of the test, even if the original TAP output did not supply
+that number.
+
+=cut
+
+sub number { shift->{test_num} }
+
+sub _number {
+    my ( $self, $number ) = @_;
+    $self->{test_num} = $number;
+}
+
+##############################################################################
+
+=head3 C<description>
+
+  my $description = $result->description;
+
+Returns the description of the test, if any.  This is the portion after the
+test number but before the directive.
+
+=cut
+
+sub description { shift->{description} }
+
+##############################################################################
+
+=head3 C<directive>
+
+  my $directive = $result->directive;
+
+Returns either C<TODO> or C<SKIP> if either directive was present for a test
+line.
+
+=cut
+
+sub directive { shift->{directive} }
+
+##############################################################################
+
+=head3 C<explanation>
+
+  my $explanation = $result->explanation;
+
+If a test had either a C<TODO> or C<SKIP> directive, this method will return
+the accompanying explanation, if present.
+
+  not ok 17 - 'Pigs can fly' # TODO not enough acid
+
+For the above line, the explanation is I<not enough acid>.
+
+=cut
+
+sub explanation { shift->{explanation} }
+
+##############################################################################
+
+=head3 C<is_ok>
+
+  if ( $result->is_ok ) { ... }
+
+Returns a boolean value indicating whether or not the test passed.  Remember
+that for TODO tests, the test always passes.
+
+If the test is unplanned, this method will always return false.  See
+C<is_unplanned>.
+
+=cut
+
+sub is_ok {
+    my $self = shift;
+
+    return if $self->is_unplanned;
+
+    # TODO directives reverse the sense of a test.
+    return $self->has_todo ? 1 : $self->ok !~ /not/;
+}
+
+##############################################################################
+
+=head3 C<is_actual_ok>
+
+  if ( $result->is_actual_ok ) { ... }
+
+Returns a boolean value indicating whether or not the test passed, regardless
+of its TODO status.
+
+=cut
+
+sub is_actual_ok {
+    my $self = shift;
+    return $self->{ok} !~ /not/;
+}
+
+##############################################################################
+
+=head3 C<actual_passed>
+
+Deprecated.  Please use C<is_actual_ok> instead.
+
+=cut
+
+sub actual_passed {
+    warn 'actual_passed() is deprecated.  Please use "is_actual_ok()"';
+    goto &is_actual_ok;
+}
+
+##############################################################################
+
+=head3 C<todo_passed>
+
+  if ( $test->todo_passed ) {
+     # test unexpectedly succeeded
+  }
+
+If this is a TODO test and an 'ok' line, this method returns true.
+Otherwise, it will always return false (regardless of passing status on
+non-todo tests).
+
+This is used to track which tests unexpectedly succeeded.
+
+=cut
+
+sub todo_passed {
+    my $self = shift;
+    return $self->has_todo && $self->is_actual_ok;
+}
+
+##############################################################################
+
+=head3 C<todo_failed>
+
+  # deprecated in favor of 'todo_passed'.  This method was horribly misnamed.
+
+This was a badly misnamed method.  It indicates which TODO tests unexpectedly
+succeeded.  Will now issue a warning and call C<todo_passed>.
+
+=cut
+
+sub todo_failed {
+    warn 'todo_failed() is deprecated.  Please use "todo_passed()"';
+    goto &todo_passed;
+}
+
+##############################################################################
+
+=head3 C<has_skip>
+
+  if ( $result->has_skip ) { ... }
+
+Returns a boolean value indicating whether or not this test has a SKIP
+directive.
+
+=head3 C<has_todo>
+
+  if ( $result->has_todo ) { ... }
+
+Returns a boolean value indicating whether or not this test has a TODO
+directive.
+
+=head3 C<as_string>
+
+  print $result->as_string;
+
+This method prints the test as a string.  It will probably be similar, but
+not necessarily identical, to the original test line.  Directives are
+capitalized, some whitespace may be trimmed and a test number will be added if
+it was not present in the original line.  If you need the original text of the
+test line, use the C<raw> method.
+
+=cut
+
+sub as_string {
+    my $self   = shift;
+    my $string = $self->ok . " " . $self->number;
+    if ( my $description = $self->description ) {
+        $string .= " $description";
+    }
+    if ( my $directive = $self->directive ) {
+        my $explanation = $self->explanation;
+        $string .= " # $directive $explanation";
+    }
+    return $string;
+}
+
+##############################################################################
+
+=head3 C<is_unplanned>
+
+  if ( $test->is_unplanned ) { ... }
+  $test->is_unplanned(1);
+
+If a test number is greater than the number of planned tests, this method will
+return true.  Unplanned tests will I<always> return false for C<is_ok>,
+regardless of whether or not the test C<has_todo>.
+
+Note that if tests have a trailing plan, it is not possible to set this
+property for unplanned tests as we do not know it's unplanned until the plan
+is reached:
+
+  print <<'END';
+  ok 1
+  ok 2
+  1..1
+  END
+
+=cut
+
+sub is_unplanned {
+    my $self = shift;
+    return ( $self->{unplanned} || '' ) unless @_;
+    $self->{unplanned} = !!shift;
+    return $self;
+}
+
+1;
diff --git a/lib/5.24.1/TAP/Parser/Result/Unknown.pm b/lib/5.24.1/TAP/Parser/Result/Unknown.pm
new file mode 100644
index 00000000..89935239
--- /dev/null
+++ b/lib/5.24.1/TAP/Parser/Result/Unknown.pm
@@ -0,0 +1,48 @@
+package TAP::Parser::Result::Unknown;
+
+use strict;
+use warnings;
+
+use base 'TAP::Parser::Result';
+
+=head1 NAME
+
+TAP::Parser::Result::Unknown - Unknown result token.
+
+=head1 VERSION
+
+Version 3.36
+
+=cut
+
+our $VERSION = '3.36_01';
+
+=head1 DESCRIPTION
+
+This is a subclass of L<TAP::Parser::Result>.  A token of this class will be
+returned if the parser does not recognize the token line.  For example:
+
+ 1..5
+ VERSION 7
+ ok 1 - woo hooo!
+ ... woo hooo! is cool!
+
+In the above "TAP", the second and fourth lines will generate "Unknown"
+tokens.
+
+=head1 OVERRIDDEN METHODS
+
+Mainly listed here to shut up the pitiful screams of the pod coverage tests.
+They keep me awake at night.
+
+=over 4
+
+=item * C<as_string>
+
+=item * C<raw>
+
+=back
+
+=cut
+
+1;
diff --git a/lib/5.24.1/TAP/Parser/Result/Version.pm b/lib/5.24.1/TAP/Parser/Result/Version.pm
new file mode 100644
index 00000000..28bab595
--- /dev/null
+++ b/lib/5.24.1/TAP/Parser/Result/Version.pm
@@ -0,0 +1,62 @@
+package TAP::Parser::Result::Version;
+
+use strict;
+use warnings;
+
+use base 'TAP::Parser::Result';
+
+=head1 NAME
+
+TAP::Parser::Result::Version - TAP syntax version token.
+
+=head1 VERSION
+
+Version 3.36
+
+=cut
+
+our $VERSION = '3.36_01';
+
+=head1 DESCRIPTION
+
+This is a subclass of L<TAP::Parser::Result>.  A token of this class will be
+returned if a version line is encountered.
+
+ TAP version 13
+ ok 1
+ not ok 2
+
+The first version of TAP to include an explicit version number is 13.
+
+=head1 OVERRIDDEN METHODS
+
+Mainly listed here to shut up the pitiful screams of the pod coverage tests.
+They keep me awake at night.
+
+=over 4
+
+=item * C<as_string>
+
+=item * C<raw>
+
+=back
+
+=cut
+
+##############################################################################
+
+=head2 Instance Methods
+
+=head3 C<version> 
+
+  if ( $result->is_version ) {
+     print $result->version;
+  }
+
+This is merely a synonym for C<as_string>.
+
+=cut
+
+sub version { shift->{version} }
+
+1;
diff --git a/lib/5.24.1/TAP/Parser/Result/YAML.pm b/lib/5.24.1/TAP/Parser/Result/YAML.pm
new file mode 100644
index 00000000..e93b4378
--- /dev/null
+++ b/lib/5.24.1/TAP/Parser/Result/YAML.pm
@@ -0,0 +1,61 @@
+package TAP::Parser::Result::YAML;
+
+use strict;
+use warnings;
+
+use base 'TAP::Parser::Result';
+
+=head1 NAME
+
+TAP::Parser::Result::YAML - YAML result token.
+
+=head1 VERSION
+
+Version 3.36
+
+=cut
+
+our $VERSION = '3.36_01';
+
+=head1 DESCRIPTION
+
+This is a subclass of L<TAP::Parser::Result>.  A token of this class will be
+returned if a YAML block is encountered.
+
+ 1..1
+ ok 1 - woo hooo!
+
+C<1..1> is the plan.  Gotta have a plan.
+
+=head1 OVERRIDDEN METHODS
+
+Mainly listed here to shut up the pitiful screams of the pod coverage tests.
+They keep me awake at night.
+
+=over 4
+
+=item * C<as_string>
+
+=item * C<raw>
+
+=back
+
+=cut
+
+##############################################################################
+
+=head2 Instance Methods
+
+=head3 C<data> 
+
+  if ( $result->is_yaml ) {
+     print $result->data;
+  }
+
+Return the parsed YAML data for this result
+
+=cut
+
+sub data { shift->{data} }
+
+1;
diff --git a/lib/5.24.1/TAP/Parser/ResultFactory.pm b/lib/5.24.1/TAP/Parser/ResultFactory.pm
new file mode 100644
index 00000000..c45074d0
--- /dev/null
+++ b/lib/5.24.1/TAP/Parser/ResultFactory.pm
@@ -0,0 +1,183 @@
+package TAP::Parser::ResultFactory;
+
+use strict;
+use warnings;
+
+use TAP::Parser::Result::Bailout ();
+use TAP::Parser::Result::Comment ();
+use TAP::Parser::Result::Plan    ();
+use TAP::Parser::Result::Pragma  ();
+use TAP::Parser::Result::Test    ();
+use TAP::Parser::Result::Unknown ();
+use TAP::Parser::Result::Version ();
+use TAP::Parser::Result::YAML    ();
+
+use base 'TAP::Object';
+
+##############################################################################
+
+=head1 NAME
+
+TAP::Parser::ResultFactory - Factory for creating TAP::Parser output objects
+
+=head1 SYNOPSIS
+
+  use TAP::Parser::ResultFactory;
+  my $token   = {...};
+  my $factory = TAP::Parser::ResultFactory->new;
+  my $result  = $factory->make_result( $token );
+
+=head1 VERSION
+
+Version 3.36
+
+=cut
+
+our $VERSION = '3.36_01';
+
+=head2 DESCRIPTION
+
+This is a simple factory class which returns a L<TAP::Parser::Result> subclass
+representing the current bit of test data from TAP (usually a single line).
+It is used primarily by L<TAP::Parser::Grammar>.  Unless you're subclassing,
+you probably won't need to use this module directly.
+
+=head2 METHODS
+
+=head2 Class Methods
+
+=head3 C<new>
+
+Creates a new factory class.
+I<Note:> You currently don't need to instantiate a factory in order to use it.
+
+=head3 C<make_result>
+
+Returns an instance the appropriate class for the test token passed in.
+
+  my $result = TAP::Parser::ResultFactory->make_result($token);
+
+Can also be called as an instance method.
+
+=cut
+
+sub make_result {
+    my ( $proto, $token ) = @_;
+    my $type = $token->{type};
+    return $proto->class_for($type)->new($token);
+}
+
+=head3 C<class_for>
+
+Takes one argument: C<$type>.  Returns the class for this $type, or C<croak>s
+with an error.
+
+=head3 C<register_type>
+
+Takes two arguments: C<$type>, C<$class>
+
+This lets you override an existing type with your own custom type, or register
+a completely new type, eg:
+
+  # create a custom result type:
+  package MyResult;
+  use strict;
+  use base 'TAP::Parser::Result';
+
+  # register with the factory:
+  TAP::Parser::ResultFactory->register_type( 'my_type' => __PACKAGE__ );
+
+  # use it:
+  my $r = TAP::Parser::ResultFactory->( { type => 'my_type' } );
+
+Your custom type should then be picked up automatically by the L<TAP::Parser>.
+
+=cut
+
+our %CLASS_FOR = (
+	plan    => 'TAP::Parser::Result::Plan',
+	pragma  => 'TAP::Parser::Result::Pragma',
+	test    => 'TAP::Parser::Result::Test',
+	comment => 'TAP::Parser::Result::Comment',
+	bailout => 'TAP::Parser::Result::Bailout',
+	version => 'TAP::Parser::Result::Version',
+	unknown => 'TAP::Parser::Result::Unknown',
+	yaml    => 'TAP::Parser::Result::YAML',
+);
+
+sub class_for {
+    my ( $class, $type ) = @_;
+
+    # return target class:
+    return $CLASS_FOR{$type} if exists $CLASS_FOR{$type};
+
+    # or complain:
+    require Carp;
+    Carp::croak("Could not determine class for result type '$type'");
+}
+
+sub register_type {
+    my ( $class, $type, $rclass ) = @_;
+
+    # register it blindly, assume they know what they're doing
+    $CLASS_FOR{$type} = $rclass;
+    return $class;
+}
+
+1;
+
+=head1 SUBCLASSING
+
+Please see L<TAP::Parser/SUBCLASSING> for a subclassing overview.
+
+There are a few things to bear in mind when creating your own
+C<ResultFactory>:
+
+=over 4
+
+=item 1
+
+The factory itself is never instantiated (this I<may> change in the future).
+This means that C<_initialize> is never called.
+
+=item 2
+
+C<TAP::Parser::Result-E<gt>new> is never called, $tokens are reblessed.
+This I<will> change in a future version!
+
+=item 3
+
+L<TAP::Parser::Result> subclasses will register themselves with
+L<TAP::Parser::ResultFactory> directly:
+
+  package MyFooResult;
+  TAP::Parser::ResultFactory->register_type( foo => __PACKAGE__ );
+
+Of course, it's up to you to decide whether or not to ignore them.
+
+=back
+
+=head2 Example
+
+  package MyResultFactory;
+
+  use strict;
+
+  use MyResult;
+
+  use base 'TAP::Parser::ResultFactory';
+
+  # force all results to be 'MyResult'
+  sub class_for {
+    return 'MyResult';
+  }
+
+  1;
+
+=head1 SEE ALSO
+
+L<TAP::Parser>,
+L<TAP::Parser::Result>,
+L<TAP::Parser::Grammar>
+
+=cut
diff --git a/lib/5.24.1/TAP/Parser/Scheduler.pm b/lib/5.24.1/TAP/Parser/Scheduler.pm
new file mode 100644
index 00000000..2eea054d
--- /dev/null
+++ b/lib/5.24.1/TAP/Parser/Scheduler.pm
@@ -0,0 +1,448 @@
+package TAP::Parser::Scheduler;
+
+use strict;
+use warnings;
+
+use Carp;
+use TAP::Parser::Scheduler::Job;
+use TAP::Parser::Scheduler::Spinner;
+
+=head1 NAME
+
+TAP::Parser::Scheduler - Schedule tests during parallel testing
+
+=head1 VERSION
+
+Version 3.36
+
+=cut
+
+our $VERSION = '3.36_01';
+
+=head1 SYNOPSIS
+
+    use TAP::Parser::Scheduler;
+
+=head1 DESCRIPTION
+
+=head1 METHODS
+
+=head2 Class Methods
+
+=head3 C<new>
+
+    my $sched = TAP::Parser::Scheduler->new(tests => \@tests);
+    my $sched = TAP::Parser::Scheduler->new(
+        tests => [ ['t/test_name.t','Test Description'], ... ],
+        rules => \%rules,
+    );
+
+Given 'tests' and optional 'rules' as input, returns a new
+C<TAP::Parser::Scheduler> object.  Each member of C<@tests> should be either a
+a test file name, or a two element arrayref, where the first element is a test
+file name, and the second element is a test description. By default, we'll use
+the test name as the description.
+
+The optional C<rules> attribute provides direction on which tests should be run
+in parallel and which should be run sequentially. If no rule data structure is
+provided, a default data structure is used which makes every test eligible to
+be run in parallel:
+
+    { par => '**' },
+
+The rules data structure is documented more in the next section.
+
+=head2 Rules data structure
+
+The "C<rules>" data structure is the the heart of the scheduler. It allows you
+to express simple rules like "run all tests in sequence" or "run all tests in
+parallel except these five tests.". However, the rules structure also supports
+glob-style pattern matching and recursive definitions, so you can also express
+arbitarily complicated patterns.
+
+The rule must only have one top level key: either 'par' for "parallel" or 'seq'
+for "sequence".
+
+Values must be either strings with possible glob-style matching, or arrayrefs
+of strings or hashrefs which follow this pattern recursively.
+
+Every element in an arrayref directly below a 'par' key is eligible to be run
+in parallel, while vavalues directly below a 'seq' key must be run in sequence.
+
+=head3 Rules examples
+
+Here are some examples:
+
+    # All tests be run in parallel (the default rule)
+    { par => '**' },
+
+    # Run all tests in sequence, except those starting with "p"
+    { par => 't/p*.t' },
+
+    # Run all tests in parallel, except those starting with "p"
+    {
+        seq => [
+                  { seq => 't/p*.t' },
+                  { par => '**'     },
+               ],
+    }
+
+    # Run some  startup tests in sequence, then some parallel tests than some
+    # teardown tests in sequence.
+    {
+        seq => [
+            { seq => 't/startup/*.t' },
+            { par => ['t/a/*.t','t/b/*.t','t/c/*.t'], }
+            { seq => 't/shutdown/*.t' },
+        ],
+    },
+
+
+=head3 Rules resolution
+
+=over 4
+
+=item * By default, all tests are eligible to be run in parallel. Specifying any of your own rules removes this one.
+
+=item * "First match wins". The first rule that matches a test will be the one that applies.
+
+=item * Any test which does not match a rule will be run in sequence at the end of the run.
+
+=item * The existence of a rule does not imply selecting a test. You must still specify the tests to run.
+
+=item * Specifying a rule to allow tests to run in parallel does not make the run in parallel. You still need specify the number of parallel C<jobs> in your Harness object.
+
+=back
+
+=head3 Glob-style pattern matching for rules
+
+We implement our own glob-style pattern matching. Here are the patterns it supports:
+
+    ** is any number of characters, including /, within a pathname
+    * is zero or more characters within a filename/directory name
+    ? is exactly one character within a filename/directory name
+    {foo,bar,baz} is any of foo, bar or baz.
+    \ is an escape character
+
+=cut
+
+sub new {
+    my $class = shift;
+
+    croak "Need a number of key, value pairs" if @_ % 2;
+
+    my %args  = @_;
+    my $tests = delete $args{tests} || croak "Need a 'tests' argument";
+    my $rules = delete $args{rules} || { par => '**' };
+
+    croak "Unknown arg(s): ", join ', ', sort keys %args
+      if keys %args;
+
+    # Turn any simple names into a name, description pair. TODO: Maybe
+    # construct jobs here?
+    my $self = bless {}, $class;
+
+    $self->_set_rules( $rules, $tests );
+
+    return $self;
+}
+
+# Build the scheduler data structure.
+#
+# SCHEDULER-DATA ::= JOB
+#                ||  ARRAY OF ARRAY OF SCHEDULER-DATA
+#
+# The nested arrays are the key to scheduling. The outer array contains
+# a list of things that may be executed in parallel. Whenever an
+# eligible job is sought any element of the outer array that is ready to
+# execute can be selected. The inner arrays represent sequential
+# execution. They can only proceed when the first job is ready to run.
+
+sub _set_rules {
+    my ( $self, $rules, $tests ) = @_;
+
+    # Convert all incoming tests to job objects. 
+    # If no test description is provided use the file name as the description. 
+    my @tests = map { TAP::Parser::Scheduler::Job->new(@$_) }
+      map { 'ARRAY' eq ref $_ ? $_ : [ $_, $_ ] } @$tests;
+    my $schedule = $self->_rule_clause( $rules, \@tests );
+
+    # If any tests are left add them as a sequential block at the end of
+    # the run.
+    $schedule = [ [ $schedule, @tests ] ] if @tests;
+
+    $self->{schedule} = $schedule;
+}
+
+sub _rule_clause {
+    my ( $self, $rule, $tests ) = @_;
+    croak 'Rule clause must be a hash'
+      unless 'HASH' eq ref $rule;
+
+    my @type = keys %$rule;
+    croak 'Rule clause must have exactly one key'
+      unless @type == 1;
+
+    my %handlers = (
+        par => sub {
+            [ map { [$_] } @_ ];
+        },
+        seq => sub { [ [@_] ] },
+    );
+
+    my $handler = $handlers{ $type[0] }
+      || croak 'Unknown scheduler type: ', $type[0];
+    my $val = $rule->{ $type[0] };
+
+    return $handler->(
+        map {
+            'HASH' eq ref $_
+              ? $self->_rule_clause( $_, $tests )
+              : $self->_expand( $_, $tests )
+          } 'ARRAY' eq ref $val ? @$val : $val
+    );
+}
+
+sub _glob_to_regexp {
+    my ( $self, $glob ) = @_;
+    my $nesting;
+    my $pattern;
+
+    while (1) {
+        if ( $glob =~ /\G\*\*/gc ) {
+
+            # ** is any number of characters, including /, within a pathname
+            $pattern .= '.*?';
+        }
+        elsif ( $glob =~ /\G\*/gc ) {
+
+            # * is zero or more characters within a filename/directory name
+            $pattern .= '[^/]*';
+        }
+        elsif ( $glob =~ /\G\?/gc ) {
+
+            # ? is exactly one character within a filename/directory name
+            $pattern .= '[^/]';
+        }
+        elsif ( $glob =~ /\G\{/gc ) {
+
+            # {foo,bar,baz} is any of foo, bar or baz.
+            $pattern .= '(?:';
+            ++$nesting;
+        }
+        elsif ( $nesting and $glob =~ /\G,/gc ) {
+
+            # , is only special inside {}
+            $pattern .= '|';
+        }
+        elsif ( $nesting and $glob =~ /\G\}/gc ) {
+
+            # } that matches { is special. But unbalanced } are not.
+            $pattern .= ')';
+            --$nesting;
+        }
+        elsif ( $glob =~ /\G(\\.)/gc ) {
+
+            # A quoted literal
+            $pattern .= $1;
+        }
+        elsif ( $glob =~ /\G([\},])/gc ) {
+
+            # Sometimes meta characters
+            $pattern .= '\\' . $1;
+        }
+        else {
+
+            # Eat everything that is not a meta character.
+            $glob =~ /\G([^{?*\\\},]*)/gc;
+            $pattern .= quotemeta $1;
+        }
+        return $pattern if pos $glob == length $glob;
+    }
+}
+
+sub _expand {
+    my ( $self, $name, $tests ) = @_;
+
+    my $pattern = $self->_glob_to_regexp($name);
+    $pattern = qr/^ $pattern $/x;
+    my @match = ();
+
+    for ( my $ti = 0; $ti < @$tests; $ti++ ) {
+        if ( $tests->[$ti]->filename =~ $pattern ) {
+            push @match, splice @$tests, $ti, 1;
+            $ti--;
+        }
+    }
+
+    return @match;
+}
+
+=head2 Instance Methods
+
+=head3 C<get_all>
+
+Get a list of all remaining tests.
+
+=cut
+
+sub get_all {
+    my $self = shift;
+    my @all  = $self->_gather( $self->{schedule} );
+    $self->{count} = @all;
+    @all;
+}
+
+sub _gather {
+    my ( $self, $rule ) = @_;
+    return unless defined $rule;
+    return $rule unless 'ARRAY' eq ref $rule;
+    return map { defined() ? $self->_gather($_) : () } map {@$_} @$rule;
+}
+
+=head3 C<get_job>
+
+Return the next available job as L<TAP::Parser::Scheduler::Job> object or
+C<undef> if none are available. Returns a L<TAP::Parser::Scheduler::Spinner> if
+the scheduler still has pending jobs but none are available to run right now.
+
+=cut
+
+sub get_job {
+    my $self = shift;
+    $self->{count} ||= $self->get_all;
+    my @jobs = $self->_find_next_job( $self->{schedule} );
+    if (@jobs) {
+        --$self->{count};
+        return $jobs[0];
+    }
+
+    return TAP::Parser::Scheduler::Spinner->new
+      if $self->{count};
+
+    return;
+}
+
+sub _not_empty {
+    my $ar = shift;
+    return 1 unless 'ARRAY' eq ref $ar;
+    for (@$ar) {
+        return 1 if _not_empty($_);
+    }
+    return;
+}
+
+sub _is_empty { !_not_empty(@_) }
+
+sub _find_next_job {
+    my ( $self, $rule ) = @_;
+
+    my @queue = ();
+    my $index = 0;
+    while ( $index < @$rule ) {
+        my $seq = $rule->[$index];
+
+        # Prune any exhausted items.
+        shift @$seq while @$seq && _is_empty( $seq->[0] );
+        if (@$seq) {
+            if ( defined $seq->[0] ) {
+                if ( 'ARRAY' eq ref $seq->[0] ) {
+                    push @queue, $seq;
+                }
+                else {
+                    my $job = splice @$seq, 0, 1, undef;
+                    $job->on_finish( sub { shift @$seq } );
+                    return $job;
+                }
+            }
+            ++$index;
+        }
+        else {
+
+            # Remove the empty sub-array from the array
+            splice @$rule, $index, 1;
+        }
+    }
+
+    for my $seq (@queue) {
+        if ( my @jobs = $self->_find_next_job( $seq->[0] ) ) {
+            return @jobs;
+        }
+    }
+
+    return;
+}
+
+=head3 C<as_string>
+
+Return a human readable representation of the scheduling tree.
+For example:
+
+    my @tests = (qw{
+        t/startup/foo.t 
+        t/shutdown/foo.t
+    
+        t/a/foo.t t/b/foo.t t/c/foo.t t/d/foo.t
+    });
+    my $sched = TAP::Parser::Scheduler->new(
+        tests => \@tests,
+        rules => {
+            seq => [
+                { seq => 't/startup/*.t' },
+                { par => ['t/a/*.t','t/b/*.t','t/c/*.t'] },
+                { seq => 't/shutdown/*.t' },
+            ],
+        },
+    );
+
+Produces:
+
+    par:
+      seq:
+        par:
+          seq:
+            par:
+              seq:
+                't/startup/foo.t'
+            par:
+              seq:
+                't/a/foo.t'
+              seq:
+                't/b/foo.t'
+              seq:
+                't/c/foo.t'
+            par:
+              seq:
+                't/shutdown/foo.t'
+        't/d/foo.t'
+
+
+=cut
+
+
+sub as_string {
+    my $self = shift;
+    return $self->_as_string( $self->{schedule} );
+}
+
+sub _as_string {
+    my ( $self, $rule, $depth ) = ( shift, shift, shift || 0 );
+    my $pad    = ' ' x 2;
+    my $indent = $pad x $depth;
+    if ( !defined $rule ) {
+        return "$indent(undef)\n";
+    }
+    elsif ( 'ARRAY' eq ref $rule ) {
+        return unless @$rule;
+        my $type = ( 'par', 'seq' )[ $depth % 2 ];
+        return join(
+            '', "$indent$type:\n",
+            map { $self->_as_string( $_, $depth + 1 ) } @$rule
+        );
+    }
+    else {
+        return "$indent'" . $rule->filename . "'\n";
+    }
+}
+
+1;
diff --git a/lib/5.24.1/TAP/Parser/Scheduler/Job.pm b/lib/5.24.1/TAP/Parser/Scheduler/Job.pm
new file mode 100644
index 00000000..c5bb3544
--- /dev/null
+++ b/lib/5.24.1/TAP/Parser/Scheduler/Job.pm
@@ -0,0 +1,127 @@
+package TAP::Parser::Scheduler::Job;
+
+use strict;
+use warnings;
+use Carp;
+
+=head1 NAME
+
+TAP::Parser::Scheduler::Job - A single testing job.
+
+=head1 VERSION
+
+Version 3.36
+
+=cut
+
+our $VERSION = '3.36_01';
+
+=head1 SYNOPSIS
+
+    use TAP::Parser::Scheduler::Job;
+
+=head1 DESCRIPTION
+
+Represents a single test 'job'.
+
+=head1 METHODS
+
+=head2 Class Methods
+
+=head3 C<new>
+
+    my $job = TAP::Parser::Scheduler::Job->new(
+        $filename, $description
+    );
+
+Given the filename and description of a test as scalars, returns a new
+L<TAP::Parser::Scheduler::Job> object.
+
+=cut
+
+sub new {
+    my ( $class, $name, $desc, @ctx ) = @_;
+    return bless {
+        filename    => $name,
+        description => $desc,
+        @ctx ? ( context => \@ctx ) : (),
+    }, $class;
+}
+
+=head2 Instance Methods
+
+=head3 C<on_finish>
+
+    $self->on_finish(\&method).
+
+Register a closure to be called when this job is destroyed. The callback
+will be passed the C<TAP::Parser::Scheduler::Job> object as it's only argument.
+
+=cut
+
+sub on_finish {
+    my ( $self, $cb ) = @_;
+    $self->{on_finish} = $cb;
+}
+
+=head3 C<finish>
+
+   $self->finish;
+
+Called when a job is complete to unlock it. If a callback has been registered
+with C<on_finish>, it calls it. Otherwise, it does nothing. 
+
+=cut
+
+sub finish {
+    my $self = shift;
+    if ( my $cb = $self->{on_finish} ) {
+        $cb->($self);
+    }
+}
+
+=head2 Attributes
+
+  $self->filename;
+  $self->description;
+  $self->context;
+
+These are all "getters" which return the data set for these attributes during object construction.
+
+
+=head3 C<filename>
+
+=head3 C<description>
+
+=head3 C<context>
+
+=cut
+
+sub filename    { shift->{filename} }
+sub description { shift->{description} }
+sub context     { @{ shift->{context} || [] } }
+
+=head3 C<as_array_ref>
+
+For backwards compatibility in callbacks.
+
+=cut
+
+sub as_array_ref {
+    my $self = shift;
+    return [ $self->filename, $self->description, $self->{context} ||= [] ];
+}
+
+=head3 C<is_spinner>
+
+  $self->is_spinner;
+
+Returns false indicating that this is a real job rather than a
+'spinner'. Spinners are returned when the scheduler still has pending
+jobs but can't (because of locking) return one right now.
+
+=cut
+
+sub is_spinner {0}
+
+1;
diff --git a/lib/5.24.1/TAP/Parser/Scheduler/Spinner.pm b/lib/5.24.1/TAP/Parser/Scheduler/Spinner.pm
new file mode 100644
index 00000000..768ade96
--- /dev/null
+++ b/lib/5.24.1/TAP/Parser/Scheduler/Spinner.pm
@@ -0,0 +1,61 @@
+package TAP::Parser::Scheduler::Spinner;
+
+use strict;
+use warnings;
+use Carp;
+
+=head1 NAME
+
+TAP::Parser::Scheduler::Spinner - A no-op job.
+
+=head1 VERSION
+
+Version 3.36
+
+=cut
+
+our $VERSION = '3.36_01';
+
+=head1 SYNOPSIS
+
+    use TAP::Parser::Scheduler::Spinner;
+
+=head1 DESCRIPTION
+
+A no-op job. Returned by C<TAP::Parser::Scheduler> as an instruction to
+the harness to spin (keep executing tests) while the scheduler can't
+return a real job.
+
+=head1 METHODS
+
+=head2 Class Methods
+
+=head3 C<new>
+
+    my $job = TAP::Parser::Scheduler::Spinner->new;
+
+Ignores any arguments and returns a new C<TAP::Parser::Scheduler::Spinner> object.
+
+=cut
+
+sub new { bless {}, shift }
+
+=head2 Instance Methods
+
+=head3 C<is_spinner>
+
+Returns true indicating that is a 'spinner' job. Spinners are returned
+when the scheduler still has pending jobs but can't (because of locking)
+return one right now.
+
+=cut
+
+sub is_spinner {1}
+
+=head1 SEE ALSO
+
+L<TAP::Parser::Scheduler>, L<TAP::Parser::Scheduler::Job>
+
+=cut
+
+1;
diff --git a/lib/5.24.1/TAP/Parser/Source.pm b/lib/5.24.1/TAP/Parser/Source.pm
new file mode 100644
index 00000000..1b4c2110
--- /dev/null
+++ b/lib/5.24.1/TAP/Parser/Source.pm
@@ -0,0 +1,381 @@
+package TAP::Parser::Source;
+
+use strict;
+use warnings;
+
+use File::Basename qw( fileparse );
+use base 'TAP::Object';
+
+use constant BLK_SIZE => 512;
+
+=head1 NAME
+
+TAP::Parser::Source - a TAP source & meta data about it
+
+=head1 VERSION
+
+Version 3.36
+
+=cut
+
+our $VERSION = '3.36_01';
+
+=head1 SYNOPSIS
+
+  use TAP::Parser::Source;
+  my $source = TAP::Parser::Source->new;
+  $source->raw( \'reference to raw TAP source' )
+         ->config( \%config )
+         ->merge( $boolean )
+         ->switches( \@switches )
+         ->test_args( \@args )
+         ->assemble_meta;
+
+  do { ... } if $source->meta->{is_file};
+  # see assemble_meta for a full list of data available
+
+=head1 DESCRIPTION
+
+A TAP I<source> is something that produces a stream of TAP for the parser to
+consume, such as an executable file, a text file, an archive, an IO handle, a
+database, etc.  C<TAP::Parser::Source>s encapsulate these I<raw> sources, and
+provide some useful meta data about them.  They are used by
+L<TAP::Parser::SourceHandler>s, which do whatever is required to produce &
+capture a stream of TAP from the I<raw> source, and package it up in a
+L<TAP::Parser::Iterator> for the parser to consume.
+
+Unless you're writing a new L<TAP::Parser::SourceHandler>, a plugin or
+subclassing L<TAP::Parser>, you probably won't need to use this module directly.
+
+=head1 METHODS
+
+=head2 Class Methods
+
+=head3 C<new>
+
+ my $source = TAP::Parser::Source->new;
+
+Returns a new C<TAP::Parser::Source> object.
+
+=cut
+
+# new() implementation supplied by TAP::Object
+
+sub _initialize {
+    my ($self) = @_;
+    $self->meta(   {} );
+    $self->config( {} );
+    return $self;
+}
+
+##############################################################################
+
+=head2 Instance Methods
+
+=head3 C<raw>
+
+  my $raw = $source->raw;
+  $source->raw( $some_value );
+
+Chaining getter/setter for the raw TAP source.  This is a reference, as it may
+contain large amounts of data (eg: raw TAP).
+
+=head3 C<meta>
+
+  my $meta = $source->meta;
+  $source->meta({ %some_value });
+
+Chaining getter/setter for meta data about the source.  This defaults to an
+empty hashref.  See L</assemble_meta> for more info.
+
+=head3 C<has_meta>
+
+True if the source has meta data.
+
+=head3 C<config>
+
+  my $config = $source->config;
+  $source->config({ %some_value });
+
+Chaining getter/setter for the source's configuration, if any has been provided
+by the user.  How it's used is up to you.  This defaults to an empty hashref.
+See L</config_for> for more info.
+
+=head3 C<merge>
+
+  my $merge = $source->merge;
+  $source->config( $bool );
+
+Chaining getter/setter for the flag that dictates whether STDOUT and STDERR
+should be merged (where appropriate).  Defaults to undef.
+
+=head3 C<switches>
+
+  my $switches = $source->switches;
+  $source->config([ @switches ]);
+
+Chaining getter/setter for the list of command-line switches that should be
+passed to the source (where appropriate).  Defaults to undef.
+
+=head3 C<test_args>
+
+  my $test_args = $source->test_args;
+  $source->config([ @test_args ]);
+
+Chaining getter/setter for the list of command-line arguments that should be
+passed to the source (where appropriate).  Defaults to undef.
+
+=cut
+
+sub raw {
+    my $self = shift;
+    return $self->{raw} unless @_;
+    $self->{raw} = shift;
+    return $self;
+}
+
+sub meta {
+    my $self = shift;
+    return $self->{meta} unless @_;
+    $self->{meta} = shift;
+    return $self;
+}
+
+sub has_meta {
+    return scalar %{ shift->meta } ? 1 : 0;
+}
+
+sub config {
+    my $self = shift;
+    return $self->{config} unless @_;
+    $self->{config} = shift;
+    return $self;
+}
+
+sub merge {
+    my $self = shift;
+    return $self->{merge} unless @_;
+    $self->{merge} = shift;
+    return $self;
+}
+
+sub switches {
+    my $self = shift;
+    return $self->{switches} unless @_;
+    $self->{switches} = shift;
+    return $self;
+}
+
+sub test_args {
+    my $self = shift;
+    return $self->{test_args} unless @_;
+    $self->{test_args} = shift;
+    return $self;
+}
+
+=head3 C<assemble_meta>
+
+  my $meta = $source->assemble_meta;
+
+Gathers meta data about the L</raw> source, stashes it in L</meta> and returns
+it as a hashref.  This is done so that the L<TAP::Parser::SourceHandler>s don't
+have to repeat common checks.  Currently this includes:
+
+    is_scalar => $bool,
+    is_hash   => $bool,
+    is_array  => $bool,
+
+    # for scalars:
+    length => $n
+    has_newlines => $bool
+
+    # only done if the scalar looks like a filename
+    is_file => $bool,
+    is_dir  => $bool,
+    is_symlink => $bool,
+    file => {
+        # only done if the scalar looks like a filename
+        basename => $string, # including ext
+        dir      => $string,
+        ext      => $string,
+        lc_ext   => $string,
+        # system checks
+        exists  => $bool,
+        stat    => [ ... ], # perldoc -f stat
+        empty   => $bool,
+        size    => $n,
+        text    => $bool,
+        binary  => $bool,
+        read    => $bool,
+        write   => $bool,
+        execute => $bool,
+        setuid  => $bool,
+        setgid  => $bool,
+        sticky  => $bool,
+        is_file => $bool,
+        is_dir  => $bool,
+        is_symlink => $bool,
+        # only done if the file's a symlink
+        lstat      => [ ... ], # perldoc -f lstat
+        # only done if the file's a readable text file
+        shebang => $first_line,
+    }
+
+  # for arrays:
+  size => $n,
+
+=cut
+
+sub assemble_meta {
+    my ($self) = @_;
+
+    return $self->meta if $self->has_meta;
+
+    my $meta = $self->meta;
+    my $raw  = $self->raw;
+
+    # rudimentary is object test - if it's blessed it'll
+    # inherit from UNIVERSAL
+    $meta->{is_object} = UNIVERSAL::isa( $raw, 'UNIVERSAL' ) ? 1 : 0;
+
+    if ( $meta->{is_object} ) {
+        $meta->{class} = ref($raw);
+    }
+    else {
+        my $ref = lc( ref($raw) );
+        $meta->{"is_$ref"} = 1;
+    }
+
+    if ( $meta->{is_scalar} ) {
+        my $source = $$raw;
+        $meta->{length} = length($$raw);
+        $meta->{has_newlines} = $$raw =~ /\n/ ? 1 : 0;
+
+        # only do file checks if it looks like a filename
+        if ( !$meta->{has_newlines} and $meta->{length} < 1024 ) {
+            my $file = {};
+            $file->{exists} = -e $source ? 1 : 0;
+            if ( $file->{exists} ) {
+                $meta->{file} = $file;
+
+                # avoid extra system calls (see `perldoc -f -X`)
+                $file->{stat}    = [ stat(_) ];
+                $file->{empty}   = -z _ ? 1 : 0;
+                $file->{size}    = -s _;
+                $file->{text}    = -T _ ? 1 : 0;
+                $file->{binary}  = -B _ ? 1 : 0;
+                $file->{read}    = -r _ ? 1 : 0;
+                $file->{write}   = -w _ ? 1 : 0;
+                $file->{execute} = -x _ ? 1 : 0;
+                $file->{setuid}  = -u _ ? 1 : 0;
+                $file->{setgid}  = -g _ ? 1 : 0;
+                $file->{sticky}  = -k _ ? 1 : 0;
+
+                $meta->{is_file} = $file->{is_file} = -f _ ? 1 : 0;
+                $meta->{is_dir}  = $file->{is_dir}  = -d _ ? 1 : 0;
+
+                # symlink check requires another system call
+                $meta->{is_symlink} = $file->{is_symlink}
+                  = -l $source ? 1 : 0;
+                if ( $file->{is_symlink} ) {
+                    $file->{lstat} = [ lstat(_) ];
+                }
+
+                # put together some common info about the file
+                ( $file->{basename}, $file->{dir}, $file->{ext} )
+                  = map { defined $_ ? $_ : '' }
+                  fileparse( $source, qr/\.[^.]*/ );
+                $file->{lc_ext} = lc( $file->{ext} );
+                $file->{basename} .= $file->{ext} if $file->{ext};
+
+                if ( !$file->{is_dir} && $file->{read} ) {
+                    eval { $file->{shebang} = $self->shebang($$raw); };
+                    if ( my $e = $@ ) {
+                        warn $e;
+                    }
+                }
+            }
+        }
+    }
+    elsif ( $meta->{is_array} ) {
+        $meta->{size} = $#$raw + 1;
+    }
+    elsif ( $meta->{is_hash} ) {
+        ;    # do nothing
+    }
+
+    return $meta;
+}
+
+=head3 C<shebang>
+
+Get the shebang line for a script file.
+
+  my $shebang = TAP::Parser::Source->shebang( $some_script );
+
+May be called as a class method
+
+=cut
+
+{
+
+    # Global shebang cache.
+    my %shebang_for;
+
+    sub _read_shebang {
+        my ( $class, $file ) = @_;
+        open my $fh, '<', $file or die "Can't read $file: $!\n";
+
+        # Might be a binary file - so read a fixed number of bytes.
+        my $got = read $fh, my ($buf), BLK_SIZE;
+        defined $got or die "I/O error: $!\n";
+        return $1 if $buf =~ /(.*)/;
+        return;
+    }
+
+    sub shebang {
+        my ( $class, $file ) = @_;
+        $shebang_for{$file} = $class->_read_shebang($file)
+          unless exists $shebang_for{$file};
+        return $shebang_for{$file};
+    }
+}
+
+=head3 C<config_for>
+
+  my $config = $source->config_for( $class );
+
+Returns L</config> for the $class given.  Class names may be fully qualified
+or abbreviated, eg:
+
+  # these are equivalent
+  $source->config_for( 'Perl' );
+  $source->config_for( 'TAP::Parser::SourceHandler::Perl' );
+
+If a fully qualified $class is given, its abbreviated version is checked first.
+
+=cut
+
+sub config_for {
+    my ( $self, $class ) = @_;
+    my ($abbrv_class) = ( $class =~ /(?:\:\:)?(\w+)$/ );
+    my $config = $self->config->{$abbrv_class} || $self->config->{$class};
+    return $config;
+}
+
+1;
+
+__END__
+
+=head1 AUTHORS
+
+Steve Purkis.
+
+=head1 SEE ALSO
+
+L<TAP::Object>,
+L<TAP::Parser>,
+L<TAP::Parser::IteratorFactory>,
+L<TAP::Parser::SourceHandler>
+
+=cut
diff --git a/lib/5.24.1/TAP/Parser/SourceHandler.pm b/lib/5.24.1/TAP/Parser/SourceHandler.pm
new file mode 100644
index 00000000..e2d1cf96
--- /dev/null
+++ b/lib/5.24.1/TAP/Parser/SourceHandler.pm
@@ -0,0 +1,191 @@
+package TAP::Parser::SourceHandler;
+
+use strict;
+use warnings;
+
+use TAP::Parser::Iterator ();
+use base 'TAP::Object';
+
+=head1 NAME
+
+TAP::Parser::SourceHandler - Base class for different TAP source handlers
+
+=head1 VERSION
+
+Version 3.36
+
+=cut
+
+our $VERSION = '3.36_01';
+
+=head1 SYNOPSIS
+
+  # abstract class - don't use directly!
+  # see TAP::Parser::IteratorFactory for general usage
+
+  # must be sub-classed for use
+  package MySourceHandler;
+  use base 'TAP::Parser::SourceHandler';
+  sub can_handle    { return $confidence_level }
+  sub make_iterator { return $iterator }
+
+  # see example below for more details
+
+=head1 DESCRIPTION
+
+This is an abstract base class for L<TAP::Parser::Source> handlers / handlers.
+
+A C<TAP::Parser::SourceHandler> does whatever is necessary to produce & capture
+a stream of TAP from the I<raw> source, and package it up in a
+L<TAP::Parser::Iterator> for the parser to consume.
+
+C<SourceHandlers> must implement the I<source detection & handling> interface
+used by L<TAP::Parser::IteratorFactory>.  At 2 methods, the interface is pretty
+simple: L</can_handle> and L</make_source>.
+
+Unless you're writing a new L<TAP::Parser::SourceHandler>, a plugin, or
+subclassing L<TAP::Parser>, you probably won't need to use this module directly.
+
+=head1 METHODS
+
+=head2 Class Methods
+
+=head3 C<can_handle>
+
+I<Abstract method>.
+
+  my $vote = $class->can_handle( $source );
+
+C<$source> is a L<TAP::Parser::Source>.
+
+Returns a number between C<0> & C<1> reflecting how confidently the raw source
+can be handled.  For example, C<0> means the source cannot handle it, C<0.5>
+means it may be able to, and C<1> means it definitely can.  See
+L<TAP::Parser::IteratorFactory/detect_source> for details on how this is used.
+
+=cut
+
+sub can_handle {
+    my ( $class, $args ) = @_;
+    $class->_croak(
+        "Abstract method 'can_handle' not implemented for $class!");
+    return;
+}
+
+=head3 C<make_iterator>
+
+I<Abstract method>.
+
+  my $iterator = $class->make_iterator( $source );
+
+C<$source> is a L<TAP::Parser::Source>.
+
+Returns a new L<TAP::Parser::Iterator> object for use by the L<TAP::Parser>.
+C<croak>s on error.
+
+=cut
+
+sub make_iterator {
+    my ( $class, $args ) = @_;
+    $class->_croak(
+        "Abstract method 'make_iterator' not implemented for $class!");
+    return;
+}
+1;
+
+__END__
+
+=head1 SUBCLASSING
+
+Please see L<TAP::Parser/SUBCLASSING> for a subclassing overview, and any
+of the subclasses that ship with this module as an example.  What follows is
+a quick overview.
+
+Start by familiarizing yourself with L<TAP::Parser::Source> and
+L<TAP::Parser::IteratorFactory>.  L<TAP::Parser::SourceHandler::RawTAP> is
+the easiest sub-class to use as an example.
+
+It's important to point out that if you want your subclass to be automatically
+used by L<TAP::Parser> you'll have to and make sure it gets loaded somehow.
+If you're using L<prove> you can write an L<App::Prove> plugin.  If you're
+using L<TAP::Parser> or L<TAP::Harness> directly (e.g. through a custom script,
+L<ExtUtils::MakeMaker>, or L<Module::Build>) you can use the C<config> option
+which will cause L<TAP::Parser::IteratorFactory/load_sources> to load your
+subclass).
+
+Don't forget to register your class with
+L<TAP::Parser::IteratorFactory/register_handler>.
+
+=head2 Example
+
+  package MySourceHandler;
+
+  use strict;
+
+  use MySourceHandler; # see TAP::Parser::SourceHandler
+  use TAP::Parser::IteratorFactory;
+
+  use base 'TAP::Parser::SourceHandler';
+
+  TAP::Parser::IteratorFactory->register_handler( __PACKAGE__ );
+
+  sub can_handle {
+      my ( $class, $src ) = @_;
+      my $meta   = $src->meta;
+      my $config = $src->config_for( $class );
+
+      if ($config->{accept_all}) {
+          return 1.0;
+      } elsif (my $file = $meta->{file}) {
+          return 0.0 unless $file->{exists};
+          return 1.0 if $file->{lc_ext} eq '.tap';
+          return 0.9 if $file->{shebang} && $file->{shebang} =~ /^#!.+tap/;
+          return 0.5 if $file->{text};
+          return 0.1 if $file->{binary};
+      } elsif ($meta->{scalar}) {
+          return 0.8 if $$raw_source_ref =~ /\d\.\.\d/;
+          return 0.6 if $meta->{has_newlines};
+      } elsif ($meta->{array}) {
+          return 0.8 if $meta->{size} < 5;
+          return 0.6 if $raw_source_ref->[0] =~ /foo/;
+          return 0.5;
+      } elsif ($meta->{hash}) {
+          return 0.6 if $raw_source_ref->{foo};
+          return 0.2;
+      }
+
+      return 0;
+  }
+
+  sub make_iterator {
+      my ($class, $source) = @_;
+      # this is where you manipulate the source and
+      # capture the stream of TAP in an iterator
+      # either pick a TAP::Parser::Iterator::* or write your own...
+      my $iterator = TAP::Parser::Iterator::Array->new([ 'foo', 'bar' ]);
+      return $iterator;
+  }
+
+  1;
+
+=head1 AUTHORS
+
+TAPx Developers.
+
+Source detection stuff added by Steve Purkis
+
+=head1 SEE ALSO
+
+L<TAP::Object>,
+L<TAP::Parser>,
+L<TAP::Parser::Source>,
+L<TAP::Parser::Iterator>,
+L<TAP::Parser::IteratorFactory>,
+L<TAP::Parser::SourceHandler::Executable>,
+L<TAP::Parser::SourceHandler::Perl>,
+L<TAP::Parser::SourceHandler::File>,
+L<TAP::Parser::SourceHandler::Handle>,
+L<TAP::Parser::SourceHandler::RawTAP>
+
+=cut
+
diff --git a/lib/5.24.1/TAP/Parser/SourceHandler/Executable.pm b/lib/5.24.1/TAP/Parser/SourceHandler/Executable.pm
new file mode 100644
index 00000000..a4df5dab
--- /dev/null
+++ b/lib/5.24.1/TAP/Parser/SourceHandler/Executable.pm
@@ -0,0 +1,184 @@
+package TAP::Parser::SourceHandler::Executable;
+
+use strict;
+use warnings;
+
+use TAP::Parser::IteratorFactory   ();
+use TAP::Parser::Iterator::Process ();
+
+use base 'TAP::Parser::SourceHandler';
+
+TAP::Parser::IteratorFactory->register_handler(__PACKAGE__);
+
+=head1 NAME
+
+TAP::Parser::SourceHandler::Executable - Stream output from an executable TAP source
+
+=head1 VERSION
+
+Version 3.36
+
+=cut
+
+our $VERSION = '3.36_01';
+
+=head1 SYNOPSIS
+
+  use TAP::Parser::Source;
+  use TAP::Parser::SourceHandler::Executable;
+
+  my $source = TAP::Parser::Source->new->raw(['/usr/bin/ruby', 'mytest.rb']);
+  $source->assemble_meta;
+
+  my $class = 'TAP::Parser::SourceHandler::Executable';
+  my $vote  = $class->can_handle( $source );
+  my $iter  = $class->make_iterator( $source );
+
+=head1 DESCRIPTION
+
+This is an I<executable> L<TAP::Parser::SourceHandler> - it has 2 jobs:
+
+1. Figure out if the L<TAP::Parser::Source> it's given is an executable
+   command (L</can_handle>).
+
+2. Creates an iterator for executable commands (L</make_iterator>).
+
+Unless you're writing a plugin or subclassing L<TAP::Parser>, you
+probably won't need to use this module directly.
+
+=head1 METHODS
+
+=head2 Class Methods
+
+=head3 C<can_handle>
+
+  my $vote = $class->can_handle( $source );
+
+Only votes if $source looks like an executable file. Casts the
+following votes:
+
+  0.9  if it's a hash with an 'exec' key
+  0.8  if it's a .bat file
+  0.75 if it's got an execute bit set
+
+=cut
+
+sub can_handle {
+    my ( $class, $src ) = @_;
+    my $meta = $src->meta;
+
+    if ( $meta->{is_file} ) {
+        my $file = $meta->{file};
+
+        return 0.85 if $file->{execute} && $file->{binary};
+        return 0.8 if $file->{lc_ext} eq '.bat';
+        return 0.25 if $file->{execute};
+    }
+    elsif ( $meta->{is_hash} ) {
+        return 0.9 if $src->raw->{exec};
+    }
+
+    return 0;
+}
+
+=head3 C<make_iterator>
+
+  my $iterator = $class->make_iterator( $source );
+
+Returns a new L<TAP::Parser::Iterator::Process> for the source.
+C<$source-E<gt>raw> must be in one of the following forms:
+
+  { exec => [ @exec ] }
+
+  [ @exec ]
+
+  $file
+
+C<croak>s on error.
+
+=cut
+
+sub make_iterator {
+    my ( $class, $source ) = @_;
+    my $meta = $source->meta;
+
+    my @command;
+    if ( $meta->{is_hash} ) {
+        @command = @{ $source->raw->{exec} || [] };
+    }
+    elsif ( $meta->{is_scalar} ) {
+        @command = ${ $source->raw };
+    }
+    elsif ( $meta->{is_array} ) {
+        @command = @{ $source->raw };
+    }
+
+    $class->_croak('No command found in $source->raw!') unless @command;
+
+    $class->_autoflush( \*STDOUT );
+    $class->_autoflush( \*STDERR );
+
+    push @command, @{ $source->test_args || [] };
+
+    return $class->iterator_class->new(
+        {   command => \@command,
+            merge   => $source->merge
+        }
+    );
+}
+
+=head3 C<iterator_class>
+
+The class of iterator to use, override if you're sub-classing.  Defaults
+to L<TAP::Parser::Iterator::Process>.
+
+=cut
+
+use constant iterator_class => 'TAP::Parser::Iterator::Process';
+
+# Turns on autoflush for the handle passed
+sub _autoflush {
+    my ( $class, $flushed ) = @_;
+    my $old_fh = select $flushed;
+    $| = 1;
+    select $old_fh;
+}
+
+1;
+
+=head1 SUBCLASSING
+
+Please see L<TAP::Parser/SUBCLASSING> for a subclassing overview.
+
+=head2 Example
+
+  package MyRubySourceHandler;
+
+  use strict;
+
+  use Carp qw( croak );
+  use TAP::Parser::SourceHandler::Executable;
+
+  use base 'TAP::Parser::SourceHandler::Executable';
+
+  # expect $handler->(['mytest.rb', 'cmdline', 'args']);
+  sub make_iterator {
+    my ($self, $source) = @_;
+    my @test_args = @{ $source->test_args };
+    my $rb_file   = $test_args[0];
+    croak("error: Ruby file '$rb_file' not found!") unless (-f $rb_file);
+    return $self->SUPER::raw_source(['/usr/bin/ruby', @test_args]);
+  }
+
+=head1 SEE ALSO
+
+L<TAP::Object>,
+L<TAP::Parser>,
+L<TAP::Parser::IteratorFactory>,
+L<TAP::Parser::SourceHandler>,
+L<TAP::Parser::SourceHandler::Perl>,
+L<TAP::Parser::SourceHandler::File>,
+L<TAP::Parser::SourceHandler::Handle>,
+L<TAP::Parser::SourceHandler::RawTAP>
+
+=cut
diff --git a/lib/5.24.1/TAP/Parser/SourceHandler/File.pm b/lib/5.24.1/TAP/Parser/SourceHandler/File.pm
new file mode 100644
index 00000000..30187a02
--- /dev/null
+++ b/lib/5.24.1/TAP/Parser/SourceHandler/File.pm
@@ -0,0 +1,135 @@
+package TAP::Parser::SourceHandler::File;
+
+use strict;
+use warnings;
+
+use TAP::Parser::IteratorFactory  ();
+use TAP::Parser::Iterator::Stream ();
+
+use base 'TAP::Parser::SourceHandler';
+
+TAP::Parser::IteratorFactory->register_handler(__PACKAGE__);
+
+=head1 NAME
+
+TAP::Parser::SourceHandler::File - Stream TAP from a text file.
+
+=head1 VERSION
+
+Version 3.36
+
+=cut
+
+our $VERSION = '3.36_01';
+
+=head1 SYNOPSIS
+
+  use TAP::Parser::Source;
+  use TAP::Parser::SourceHandler::File;
+
+  my $source = TAP::Parser::Source->new->raw( \'file.tap' );
+  $source->assemble_meta;
+
+  my $class = 'TAP::Parser::SourceHandler::File';
+  my $vote  = $class->can_handle( $source );
+  my $iter  = $class->make_iterator( $source );
+
+=head1 DESCRIPTION
+
+This is a I<raw TAP stored in a file> L<TAP::Parser::SourceHandler> - it has 2 jobs:
+
+1. Figure out if the I<raw> source it's given is a file containing raw TAP
+output.  See L<TAP::Parser::IteratorFactory> for more details.
+
+2. Takes raw TAP from the text file given, and converts into an iterator.
+
+Unless you're writing a plugin or subclassing L<TAP::Parser>, you probably
+won't need to use this module directly.
+
+=head1 METHODS
+
+=head2 Class Methods
+
+=head3 C<can_handle>
+
+  my $vote = $class->can_handle( $source );
+
+Only votes if $source looks like a regular file.  Casts the following votes:
+
+  0.9 if it's a .tap file
+  0.9 if it has an extension matching any given in user config.
+
+=cut
+
+sub can_handle {
+    my ( $class, $src ) = @_;
+    my $meta   = $src->meta;
+    my $config = $src->config_for($class);
+
+    return 0 unless $meta->{is_file};
+    my $file = $meta->{file};
+    return 0.9 if $file->{lc_ext} eq '.tap';
+
+    if ( my $exts = $config->{extensions} ) {
+        return 0.9 if grep { lc($_) eq $file->{lc_ext} } @$exts;
+    }
+
+    return 0;
+}
+
+=head3 C<make_iterator>
+
+  my $iterator = $class->make_iterator( $source );
+
+Returns a new L<TAP::Parser::Iterator::Stream> for the source.  C<croak>s
+on error.
+
+=cut
+
+sub make_iterator {
+    my ( $class, $source ) = @_;
+
+    $class->_croak('$source->raw must be a scalar ref')
+      unless $source->meta->{is_scalar};
+
+    my $file = ${ $source->raw };
+    my $fh;
+    open( $fh, '<', $file )
+      or $class->_croak("error opening TAP source file '$file': $!");
+    return $class->iterator_class->new($fh);
+}
+
+=head3 C<iterator_class>
+
+The class of iterator to use, override if you're sub-classing.  Defaults
+to L<TAP::Parser::Iterator::Stream>.
+
+=cut
+
+use constant iterator_class => 'TAP::Parser::Iterator::Stream';
+
+1;
+
+__END__
+
+=head1 CONFIGURATION
+
+  {
+   extensions => [ @case_insensitive_exts_to_match ]
+  }
+
+=head1 SUBCLASSING
+
+Please see L<TAP::Parser/SUBCLASSING> for a subclassing overview.
+
+=head1 SEE ALSO
+
+L<TAP::Object>,
+L<TAP::Parser>,
+L<TAP::Parser::SourceHandler>,
+L<TAP::Parser::SourceHandler::Executable>,
+L<TAP::Parser::SourceHandler::Perl>,
+L<TAP::Parser::SourceHandler::Handle>,
+L<TAP::Parser::SourceHandler::RawTAP>
+
+=cut
diff --git a/lib/5.24.1/TAP/Parser/SourceHandler/Handle.pm b/lib/5.24.1/TAP/Parser/SourceHandler/Handle.pm
new file mode 100644
index 00000000..05b8dcb5
--- /dev/null
+++ b/lib/5.24.1/TAP/Parser/SourceHandler/Handle.pm
@@ -0,0 +1,124 @@
+package TAP::Parser::SourceHandler::Handle;
+
+use strict;
+use warnings;
+
+use TAP::Parser::IteratorFactory  ();
+use TAP::Parser::Iterator::Stream ();
+
+use base 'TAP::Parser::SourceHandler';
+
+TAP::Parser::IteratorFactory->register_handler(__PACKAGE__);
+
+=head1 NAME
+
+TAP::Parser::SourceHandler::Handle - Stream TAP from an IO::Handle or a GLOB.
+
+=head1 VERSION
+
+Version 3.36
+
+=cut
+
+our $VERSION = '3.36_01';
+
+=head1 SYNOPSIS
+
+  use TAP::Parser::Source;
+  use TAP::Parser::SourceHandler::Executable;
+
+  my $source = TAP::Parser::Source->new->raw( \*TAP_FILE );
+  $source->assemble_meta;
+
+  my $class = 'TAP::Parser::SourceHandler::Handle';
+  my $vote  = $class->can_handle( $source );
+  my $iter  = $class->make_iterator( $source );
+
+=head1 DESCRIPTION
+
+This is a I<raw TAP stored in an IO Handle> L<TAP::Parser::SourceHandler> class.  It
+has 2 jobs:
+
+1. Figure out if the L<TAP::Parser::Source> it's given is an L<IO::Handle> or
+GLOB containing raw TAP output (L</can_handle>).
+
+2. Creates an iterator for IO::Handle's & globs (L</make_iterator>).
+
+Unless you're writing a plugin or subclassing L<TAP::Parser>, you probably
+won't need to use this module directly.
+
+=head1 METHODS
+
+=head2 Class Methods
+
+=head3 C<can_handle>
+
+  my $vote = $class->can_handle( $source );
+
+Casts the following votes:
+
+  0.9 if $source is an IO::Handle
+  0.8 if $source is a glob
+
+=cut
+
+sub can_handle {
+    my ( $class, $src ) = @_;
+    my $meta = $src->meta;
+
+    return 0.9
+      if $meta->{is_object}
+          && UNIVERSAL::isa( $src->raw, 'IO::Handle' );
+
+    return 0.8 if $meta->{is_glob};
+
+    return 0;
+}
+
+=head3 C<make_iterator>
+
+  my $iterator = $class->make_iterator( $source );
+
+Returns a new L<TAP::Parser::Iterator::Stream> for the source.
+
+=cut
+
+sub make_iterator {
+    my ( $class, $source ) = @_;
+
+    $class->_croak('$source->raw must be a glob ref or an IO::Handle')
+      unless $source->meta->{is_glob}
+          || UNIVERSAL::isa( $source->raw, 'IO::Handle' );
+
+    return $class->iterator_class->new( $source->raw );
+}
+
+=head3 C<iterator_class>
+
+The class of iterator to use, override if you're sub-classing.  Defaults
+to L<TAP::Parser::Iterator::Stream>.
+
+=cut
+
+use constant iterator_class => 'TAP::Parser::Iterator::Stream';
+
+1;
+
+=head1 SUBCLASSING
+
+Please see L<TAP::Parser/SUBCLASSING> for a subclassing overview.
+
+=head1 SEE ALSO
+
+L<TAP::Object>,
+L<TAP::Parser>,
+L<TAP::Parser::Iterator>,
+L<TAP::Parser::Iterator::Stream>,
+L<TAP::Parser::IteratorFactory>,
+L<TAP::Parser::SourceHandler>,
+L<TAP::Parser::SourceHandler::Executable>,
+L<TAP::Parser::SourceHandler::Perl>,
+L<TAP::Parser::SourceHandler::File>,
+L<TAP::Parser::SourceHandler::RawTAP>
+
+=cut
diff --git a/lib/5.24.1/TAP/Parser/SourceHandler/Perl.pm b/lib/5.24.1/TAP/Parser/SourceHandler/Perl.pm
new file mode 100644
index 00000000..7d238cd6
--- /dev/null
+++ b/lib/5.24.1/TAP/Parser/SourceHandler/Perl.pm
@@ -0,0 +1,370 @@
+package TAP::Parser::SourceHandler::Perl;
+
+use strict;
+use warnings;
+use Config;
+
+use constant IS_WIN32 => ( $^O =~ /^(MS)?Win32$/ );
+use constant IS_VMS => ( $^O eq 'VMS' );
+
+use TAP::Parser::IteratorFactory           ();
+use TAP::Parser::Iterator::Process         ();
+use Text::ParseWords qw(shellwords);
+
+use base 'TAP::Parser::SourceHandler::Executable';
+
+TAP::Parser::IteratorFactory->register_handler(__PACKAGE__);
+
+=head1 NAME
+
+TAP::Parser::SourceHandler::Perl - Stream TAP from a Perl executable
+
+=head1 VERSION
+
+Version 3.36
+
+=cut
+
+our $VERSION = '3.36_01';
+
+=head1 SYNOPSIS
+
+  use TAP::Parser::Source;
+  use TAP::Parser::SourceHandler::Perl;
+
+  my $source = TAP::Parser::Source->new->raw( \'script.pl' );
+  $source->assemble_meta;
+
+  my $class = 'TAP::Parser::SourceHandler::Perl';
+  my $vote  = $class->can_handle( $source );
+  my $iter  = $class->make_iterator( $source );
+
+=head1 DESCRIPTION
+
+This is a I<Perl> L<TAP::Parser::SourceHandler> - it has 2 jobs:
+
+1. Figure out if the L<TAP::Parser::Source> it's given is actually a Perl
+script (L</can_handle>).
+
+2. Creates an iterator for Perl sources (L</make_iterator>).
+
+Unless you're writing a plugin or subclassing L<TAP::Parser>, you probably
+won't need to use this module directly.
+
+=head1 METHODS
+
+=head2 Class Methods
+
+=head3 C<can_handle>
+
+  my $vote = $class->can_handle( $source );
+
+Only votes if $source looks like a file.  Casts the following votes:
+
+  0.9  if it has a shebang ala "#!...perl"
+  0.75 if it has any shebang
+  0.8  if it's a .t file
+  0.9  if it's a .pl file
+  0.75 if it's in a 't' directory
+  0.25 by default (backwards compat)
+
+=cut
+
+sub can_handle {
+    my ( $class, $source ) = @_;
+    my $meta = $source->meta;
+
+    return 0 unless $meta->{is_file};
+    my $file = $meta->{file};
+
+    if ( my $shebang = $file->{shebang} ) {
+        return 0.9 if $shebang =~ /^#!.*\bperl/;
+
+        # We favour Perl as the interpreter for any shebang to preserve
+        # previous semantics: we used to execute everything via Perl and
+        # relied on it to pass the shebang off to the appropriate
+        # interpreter.
+        return 0.3;
+    }
+
+    return 0.8 if $file->{lc_ext} eq '.t';    # vote higher than Executable
+    return 0.9 if $file->{lc_ext} eq '.pl';
+
+    return 0.75 if $file->{dir} =~ /^t\b/;    # vote higher than Executable
+
+    # backwards compat, always vote:
+    return 0.25;
+}
+
+=head3 C<make_iterator>
+
+  my $iterator = $class->make_iterator( $source );
+
+Constructs & returns a new L<TAP::Parser::Iterator::Process> for the source.
+Assumes C<$source-E<gt>raw> contains a reference to the perl script.  C<croak>s
+if the file could not be found.
+
+The command to run is built as follows:
+
+  $perl @switches $perl_script @test_args
+
+The perl command to use is determined by L</get_perl>.  The command generated
+is guaranteed to preserve:
+
+  PERL5LIB
+  PERL5OPT
+  Taint Mode, if set in the script's shebang
+
+I<Note:> the command generated will I<not> respect any shebang line defined in
+your Perl script.  This is only a problem if you have compiled a custom version
+of Perl or if you want to use a specific version of Perl for one test and a
+different version for another, for example:
+
+  #!/path/to/a/custom_perl --some --args
+  #!/usr/local/perl-5.6/bin/perl -w
+
+Currently you need to write a plugin to get around this.
+
+=cut
+
+sub _autoflush_stdhandles {
+    my ($class) = @_;
+
+    $class->_autoflush( \*STDOUT );
+    $class->_autoflush( \*STDERR );
+}
+
+sub make_iterator {
+    my ( $class, $source ) = @_;
+    my $meta        = $source->meta;
+    my $perl_script = ${ $source->raw };
+
+    $class->_croak("Cannot find ($perl_script)") unless $meta->{is_file};
+
+    # TODO: does this really need to be done here?
+    $class->_autoflush_stdhandles;
+
+    my ( $libs, $switches )
+      = $class->_mangle_switches(
+        $class->_filter_libs( $class->_switches($source) ) );
+
+    $class->_run( $source, $libs, $switches );
+}
+
+
+sub _has_taint_switch {
+    my( $class, $switches ) = @_;
+
+    my $has_taint = grep { $_ eq "-T" || $_ eq "-t" } @{$switches};
+    return $has_taint ? 1 : 0;
+}
+
+sub _mangle_switches {
+    my ( $class, $libs, $switches ) = @_;
+
+    # Taint mode ignores environment variables so we must retranslate
+    # PERL5LIB as -I switches and place PERL5OPT on the command line
+    # in order that it be seen.
+    if ( $class->_has_taint_switch($switches) ) {
+        my @perl5lib = defined $ENV{PERL5LIB} ? split /$Config{path_sep}/, $ENV{PERL5LIB} : ();
+        return (
+            $libs,
+            [   @{$switches},
+                $class->_libs2switches([@$libs, @perl5lib]),
+                defined $ENV{PERL5OPT} ? shellwords( $ENV{PERL5OPT} ) : ()
+            ],
+        );
+    }
+
+    return ( $libs, $switches );
+}
+
+sub _filter_libs {
+    my ( $class, @switches ) = @_;
+
+    my $path_sep = $Config{path_sep};
+    my $path_re  = qr{$path_sep};
+
+    # Filter out any -I switches to be handled as libs later.
+    #
+    # Nasty kludge. It might be nicer if we got the libs separately
+    # although at least this way we find any -I switches that were
+    # supplied other then as explicit libs.
+    #
+    # We filter out any names containing colons because they will break
+    # PERL5LIB
+    my @libs;
+    my @filtered_switches;
+    for (@switches) {
+        if ( !/$path_re/ && m/ ^ ['"]? -I ['"]? (.*?) ['"]? $ /x ) {
+            push @libs, $1;
+        }
+        else {
+            push @filtered_switches, $_;
+        }
+    }
+
+    return \@libs, \@filtered_switches;
+}
+
+sub _iterator_hooks {
+    my ( $class, $source, $libs, $switches ) = @_;
+
+    my $setup = sub {
+        if ( @{$libs} and !$class->_has_taint_switch($switches) ) {
+            $ENV{PERL5LIB} = join(
+                $Config{path_sep}, grep {defined} @{$libs},
+                $ENV{PERL5LIB}
+            );
+        }
+    };
+
+    # VMS environment variables aren't guaranteed to reset at the end of
+    # the process, so we need to put PERL5LIB back.
+    my $previous = $ENV{PERL5LIB};
+    my $teardown = sub {
+        if ( defined $previous ) {
+            $ENV{PERL5LIB} = $previous;
+        }
+        else {
+            delete $ENV{PERL5LIB};
+        }
+    };
+
+    return ( $setup, $teardown );
+}
+
+sub _run {
+    my ( $class, $source, $libs, $switches ) = @_;
+
+    my @command = $class->_get_command_for_switches( $source, $switches )
+      or $class->_croak("No command found!");
+
+    my ( $setup, $teardown ) = $class->_iterator_hooks( $source, $libs, $switches );
+
+    return $class->_create_iterator( $source, \@command, $setup, $teardown );
+}
+
+sub _create_iterator {
+    my ( $class, $source, $command, $setup, $teardown ) = @_;
+
+    return TAP::Parser::Iterator::Process->new(
+        {   command  => $command,
+            merge    => $source->merge,
+            setup    => $setup,
+            teardown => $teardown,
+        }
+    );
+}
+
+sub _get_command_for_switches {
+    my ( $class, $source, $switches ) = @_;
+    my $file    = ${ $source->raw };
+    my @args    = @{ $source->test_args || [] };
+    my $command = $class->get_perl;
+
+   # XXX don't need to quote if we treat the parts as atoms (except maybe vms)
+   #$file = qq["$file"] if ( $file =~ /\s/ ) && ( $file !~ /^".*"$/ );
+    my @command = ( $command, @{$switches}, $file, @args );
+    return @command;
+}
+
+sub _libs2switches {
+    my $class = shift;
+    return map {"-I$_"} grep {$_} @{ $_[0] };
+}
+
+=head3 C<get_taint>
+
+Decode any taint switches from a Perl shebang line.
+
+  # $taint will be 't'
+  my $taint = TAP::Parser::SourceHandler::Perl->get_taint( '#!/usr/bin/perl -t' );
+
+  # $untaint will be undefined
+  my $untaint = TAP::Parser::SourceHandler::Perl->get_taint( '#!/usr/bin/perl' );
+
+=cut
+
+sub get_taint {
+    my ( $class, $shebang ) = @_;
+    return
+      unless defined $shebang
+          && $shebang =~ /^#!.*\bperl.*\s-\w*([Tt]+)/;
+    return $1;
+}
+
+sub _switches {
+    my ( $class, $source ) = @_;
+    my $file     = ${ $source->raw };
+    my @switches = @{ $source->switches || [] };
+    my $shebang  = $source->meta->{file}->{shebang};
+    return unless defined $shebang;
+
+    my $taint = $class->get_taint($shebang);
+    push @switches, "-$taint" if defined $taint;
+
+    # Quote the argument if we're VMS, since VMS will downcase anything
+    # not quoted.
+    if (IS_VMS) {
+        for (@switches) {
+            $_ = qq["$_"];
+        }
+    }
+
+    return @switches;
+}
+
+=head3 C<get_perl>
+
+Gets the version of Perl currently running the test suite.
+
+=cut
+
+sub get_perl {
+    my $class = shift;
+    return $ENV{HARNESS_PERL} if defined $ENV{HARNESS_PERL};
+    return qq["$^X"] if IS_WIN32 && ( $^X =~ /[^\w\.\/\\]/ );
+    return $^X;
+}
+
+1;
+
+__END__
+
+=head1 SUBCLASSING
+
+Please see L<TAP::Parser/SUBCLASSING> for a subclassing overview.
+
+=head2 Example
+
+  package MyPerlSourceHandler;
+
+  use strict;
+
+  use TAP::Parser::SourceHandler::Perl;
+
+  use base 'TAP::Parser::SourceHandler::Perl';
+
+  # use the version of perl from the shebang line in the test file
+  sub get_perl {
+      my $self = shift;
+      if (my $shebang = $self->shebang( $self->{file} )) {
+          $shebang =~ /^#!(.*\bperl.*?)(?:(?:\s)|(?:$))/;
+	  return $1 if $1;
+      }
+      return $self->SUPER::get_perl(@_);
+  }
+
+=head1 SEE ALSO
+
+L<TAP::Object>,
+L<TAP::Parser>,
+L<TAP::Parser::IteratorFactory>,
+L<TAP::Parser::SourceHandler>,
+L<TAP::Parser::SourceHandler::Executable>,
+L<TAP::Parser::SourceHandler::File>,
+L<TAP::Parser::SourceHandler::Handle>,
+L<TAP::Parser::SourceHandler::RawTAP>
+
+=cut
diff --git a/lib/5.24.1/TAP/Parser/SourceHandler/RawTAP.pm b/lib/5.24.1/TAP/Parser/SourceHandler/RawTAP.pm
new file mode 100644
index 00000000..6dfc815c
--- /dev/null
+++ b/lib/5.24.1/TAP/Parser/SourceHandler/RawTAP.pm
@@ -0,0 +1,130 @@
+package TAP::Parser::SourceHandler::RawTAP;
+
+use strict;
+use warnings;
+
+use TAP::Parser::IteratorFactory ();
+use TAP::Parser::Iterator::Array ();
+
+use base 'TAP::Parser::SourceHandler';
+
+TAP::Parser::IteratorFactory->register_handler(__PACKAGE__);
+
+=head1 NAME
+
+TAP::Parser::SourceHandler::RawTAP - Stream output from raw TAP in a scalar/array ref.
+
+=head1 VERSION
+
+Version 3.36
+
+=cut
+
+our $VERSION = '3.36_01';
+
+=head1 SYNOPSIS
+
+  use TAP::Parser::Source;
+  use TAP::Parser::SourceHandler::RawTAP;
+
+  my $source = TAP::Parser::Source->new->raw( \"1..1\nok 1\n" );
+  $source->assemble_meta;
+
+  my $class = 'TAP::Parser::SourceHandler::RawTAP';
+  my $vote  = $class->can_handle( $source );
+  my $iter  = $class->make_iterator( $source );
+
+=head1 DESCRIPTION
+
+This is a I<raw TAP output> L<TAP::Parser::SourceHandler> - it has 2 jobs:
+
+1. Figure out if the L<TAP::Parser::Source> it's given is raw TAP output
+(L</can_handle>).
+
+2. Creates an iterator for raw TAP output (L</make_iterator>).
+
+Unless you're writing a plugin or subclassing L<TAP::Parser>, you probably
+won't need to use this module directly.
+
+=head1 METHODS
+
+=head2 Class Methods
+
+=head3 C<can_handle>
+
+  my $vote = $class->can_handle( $source );
+
+Only votes if $source is an array, or a scalar with newlines.  Casts the
+following votes:
+
+  0.9  if it's a scalar with '..' in it
+  0.7  if it's a scalar with 'ok' in it
+  0.3  if it's just a scalar with newlines
+  0.5  if it's an array
+
+=cut
+
+sub can_handle {
+    my ( $class, $src ) = @_;
+    my $meta = $src->meta;
+
+    return 0 if $meta->{file};
+    if ( $meta->{is_scalar} ) {
+        return 0 unless $meta->{has_newlines};
+        return 0.9 if ${ $src->raw } =~ /\d\.\.\d/;
+        return 0.7 if ${ $src->raw } =~ /ok/;
+        return 0.3;
+    }
+    elsif ( $meta->{is_array} ) {
+        return 0.5;
+    }
+    return 0;
+}
+
+=head3 C<make_iterator>
+
+  my $iterator = $class->make_iterator( $source );
+
+Returns a new L<TAP::Parser::Iterator::Array> for the source.
+C<$source-E<gt>raw> must be an array ref, or a scalar ref.
+
+C<croak>s on error.
+
+=cut
+
+sub make_iterator {
+    my ( $class, $src ) = @_;
+    my $meta = $src->meta;
+
+    my $tap_array;
+    if ( $meta->{is_scalar} ) {
+        $tap_array = [ split "\n" => ${ $src->raw } ];
+    }
+    elsif ( $meta->{is_array} ) {
+        $tap_array = $src->raw;
+    }
+
+    $class->_croak('No raw TAP found in $source->raw')
+      unless scalar $tap_array;
+
+    return TAP::Parser::Iterator::Array->new($tap_array);
+}
+
+1;
+
+=head1 SUBCLASSING
+
+Please see L<TAP::Parser/SUBCLASSING> for a subclassing overview.
+
+=head1 SEE ALSO
+
+L<TAP::Object>,
+L<TAP::Parser>,
+L<TAP::Parser::IteratorFactory>,
+L<TAP::Parser::SourceHandler>,
+L<TAP::Parser::SourceHandler::Executable>,
+L<TAP::Parser::SourceHandler::Perl>,
+L<TAP::Parser::SourceHandler::File>,
+L<TAP::Parser::SourceHandler::Handle>
+
+=cut
diff --git a/lib/5.24.1/TAP/Parser/YAMLish/Reader.pm b/lib/5.24.1/TAP/Parser/YAMLish/Reader.pm
new file mode 100644
index 00000000..3381fa11
--- /dev/null
+++ b/lib/5.24.1/TAP/Parser/YAMLish/Reader.pm
@@ -0,0 +1,332 @@
+package TAP::Parser::YAMLish::Reader;
+
+use strict;
+use warnings;
+
+use base 'TAP::Object';
+
+our $VERSION = '3.36_01';
+
+# TODO:
+#   Handle blessed object syntax
+
+# Printable characters for escapes
+my %UNESCAPES = (
+    z => "\x00", a => "\x07", t    => "\x09",
+    n => "\x0a", v => "\x0b", f    => "\x0c",
+    r => "\x0d", e => "\x1b", '\\' => '\\',
+);
+
+my $QQ_STRING    = qr{ " (?:\\. | [^"])* " }x;
+my $HASH_LINE    = qr{ ^ ($QQ_STRING|\S+) \s* : \s* (?: (.+?) \s* )? $ }x;
+my $IS_HASH_KEY  = qr{ ^ [\w\'\"] }x;
+my $IS_END_YAML  = qr{ ^ \.\.\. \s* $ }x;
+my $IS_QQ_STRING = qr{ ^ $QQ_STRING $ }x;
+
+# new() implementation supplied by TAP::Object
+
+sub read {
+    my $self = shift;
+    my $obj  = shift;
+
+    die "Must have a code reference to read input from"
+      unless ref $obj eq 'CODE';
+
+    $self->{reader}  = $obj;
+    $self->{capture} = [];
+
+    # Prime the reader
+    $self->_next;
+    return unless $self->{next};
+
+    my $doc = $self->_read;
+
+    # The terminator is mandatory otherwise we'd consume a line from the
+    # iterator that doesn't belong to us. If we want to remove this
+    # restriction we'll have to implement look-ahead in the iterators.
+    # Which might not be a bad idea.
+    my $dots = $self->_peek;
+    die "Missing '...' at end of YAMLish"
+      unless defined $dots
+          and $dots =~ $IS_END_YAML;
+
+    delete $self->{reader};
+    delete $self->{next};
+
+    return $doc;
+}
+
+sub get_raw { join( "\n", grep defined, @{ shift->{capture} || [] } ) . "\n" }
+
+sub _peek {
+    my $self = shift;
+    return $self->{next} unless wantarray;
+    my $line = $self->{next};
+    $line =~ /^ (\s*) (.*) $ /x;
+    return ( $2, length $1 );
+}
+
+sub _next {
+    my $self = shift;
+    die "_next called with no reader"
+      unless $self->{reader};
+    my $line = $self->{reader}->();
+    $self->{next} = $line;
+    push @{ $self->{capture} }, $line;
+}
+
+sub _read {
+    my $self = shift;
+
+    my $line = $self->_peek;
+
+    # Do we have a document header?
+    if ( $line =~ /^ --- (?: \s* (.+?)? \s* )? $/x ) {
+        $self->_next;
+
+        return $self->_read_scalar($1) if defined $1;    # Inline?
+
+        my ( $next, $indent ) = $self->_peek;
+
+        if ( $next =~ /^ - /x ) {
+            return $self->_read_array($indent);
+        }
+        elsif ( $next =~ $IS_HASH_KEY ) {
+            return $self->_read_hash( $next, $indent );
+        }
+        elsif ( $next =~ $IS_END_YAML ) {
+            die "Premature end of YAMLish";
+        }
+        else {
+            die "Unsupported YAMLish syntax: '$next'";
+        }
+    }
+    else {
+        die "YAMLish document header not found";
+    }
+}
+
+# Parse a double quoted string
+sub _read_qq {
+    my $self = shift;
+    my $str  = shift;
+
+    unless ( $str =~ s/^ " (.*?) " $/$1/x ) {
+        die "Internal: not a quoted string";
+    }
+
+    $str =~ s/\\"/"/gx;
+    $str =~ s/ \\ ( [tartan\\favez] | x([0-9a-fA-F]{2}) ) 
+                 / (length($1) > 1) ? pack("H2", $2) : $UNESCAPES{$1} /gex;
+    return $str;
+}
+
+# Parse a scalar string to the actual scalar
+sub _read_scalar {
+    my $self   = shift;
+    my $string = shift;
+
+    return undef if $string eq '~';
+    return {} if $string eq '{}';
+    return [] if $string eq '[]';
+
+    if ( $string eq '>' || $string eq '|' ) {
+
+        my ( $line, $indent ) = $self->_peek;
+        die "Multi-line scalar content missing" unless defined $line;
+
+        my @multiline = ($line);
+
+        while (1) {
+            $self->_next;
+            my ( $next, $ind ) = $self->_peek;
+            last if $ind < $indent;
+
+            my $pad = $string eq '|' ? ( ' ' x ( $ind - $indent ) ) : '';
+            push @multiline, $pad . $next;
+        }
+
+        return join( ( $string eq '>' ? ' ' : "\n" ), @multiline ) . "\n";
+    }
+
+    if ( $string =~ /^ ' (.*) ' $/x ) {
+        ( my $rv = $1 ) =~ s/''/'/g;
+        return $rv;
+    }
+
+    if ( $string =~ $IS_QQ_STRING ) {
+        return $self->_read_qq($string);
+    }
+
+    if ( $string =~ /^['"]/ ) {
+
+        # A quote with folding... we don't support that
+        die __PACKAGE__ . " does not support multi-line quoted scalars";
+    }
+
+    # Regular unquoted string
+    return $string;
+}
+
+sub _read_nested {
+    my $self = shift;
+
+    my ( $line, $indent ) = $self->_peek;
+
+    if ( $line =~ /^ -/x ) {
+        return $self->_read_array($indent);
+    }
+    elsif ( $line =~ $IS_HASH_KEY ) {
+        return $self->_read_hash( $line, $indent );
+    }
+    else {
+        die "Unsupported YAMLish syntax: '$line'";
+    }
+}
+
+# Parse an array
+sub _read_array {
+    my ( $self, $limit ) = @_;
+
+    my $ar = [];
+
+    while (1) {
+        my ( $line, $indent ) = $self->_peek;
+        last
+          if $indent < $limit
+              || !defined $line
+              || $line =~ $IS_END_YAML;
+
+        if ( $indent > $limit ) {
+            die "Array line over-indented";
+        }
+
+        if ( $line =~ /^ (- \s+) \S+ \s* : (?: \s+ | $ ) /x ) {
+            $indent += length $1;
+            $line =~ s/-\s+//;
+            push @$ar, $self->_read_hash( $line, $indent );
+        }
+        elsif ( $line =~ /^ - \s* (.+?) \s* $/x ) {
+            die "Unexpected start of YAMLish" if $line =~ /^---/;
+            $self->_next;
+            push @$ar, $self->_read_scalar($1);
+        }
+        elsif ( $line =~ /^ - \s* $/x ) {
+            $self->_next;
+            push @$ar, $self->_read_nested;
+        }
+        elsif ( $line =~ $IS_HASH_KEY ) {
+            $self->_next;
+            push @$ar, $self->_read_hash( $line, $indent, );
+        }
+        else {
+            die "Unsupported YAMLish syntax: '$line'";
+        }
+    }
+
+    return $ar;
+}
+
+sub _read_hash {
+    my ( $self, $line, $limit ) = @_;
+
+    my $indent;
+    my $hash = {};
+
+    while (1) {
+        die "Badly formed hash line: '$line'"
+          unless $line =~ $HASH_LINE;
+
+        my ( $key, $value ) = ( $self->_read_scalar($1), $2 );
+        $self->_next;
+
+        if ( defined $value ) {
+            $hash->{$key} = $self->_read_scalar($value);
+        }
+        else {
+            $hash->{$key} = $self->_read_nested;
+        }
+
+        ( $line, $indent ) = $self->_peek;
+        last
+          if $indent < $limit
+              || !defined $line
+              || $line =~ $IS_END_YAML;
+    }
+
+    return $hash;
+}
+
+1;
+
+__END__
+
+=pod
+
+=head1 NAME
+
+TAP::Parser::YAMLish::Reader - Read YAMLish data from iterator
+
+=head1 VERSION
+
+Version 3.36
+
+=head1 SYNOPSIS
+
+=head1 DESCRIPTION
+
+Note that parts of this code were derived from L<YAML::Tiny> with the
+permission of Adam Kennedy.
+
+=head1 METHODS
+
+=head2 Class Methods
+
+=head3 C<new>
+
+The constructor C<new> creates and returns an empty
+C<TAP::Parser::YAMLish::Reader> object.
+
+ my $reader = TAP::Parser::YAMLish::Reader->new; 
+
+=head2 Instance Methods
+
+=head3 C<read>
+
+ my $got = $reader->read($iterator);
+
+Read YAMLish from a L<TAP::Parser::Iterator> and return the data structure it
+represents.
+
+=head3 C<get_raw>
+
+ my $source = $reader->get_source;
+
+Return the raw YAMLish source from the most recent C<read>.
+
+=head1 AUTHOR
+
+Andy Armstrong, <andy@hexten.net>
+
+Adam Kennedy wrote L<YAML::Tiny> which provided the template and many of
+the YAML matching regular expressions for this module.
+
+=head1 SEE ALSO
+
+L<YAML::Tiny>, L<YAML>, L<YAML::Syck>, L<Config::Tiny>, L<CSS::Tiny>,
+L<http://use.perl.org/~Alias/journal/29427>
+
+=head1 COPYRIGHT
+
+Copyright 2007-2011 Andy Armstrong.
+
+Portions copyright 2006-2008 Adam Kennedy.
+
+This program is free software; you can redistribute
+it and/or modify it under the same terms as Perl itself.
+
+The full text of the license can be found in the
+LICENSE file included with this module.
+
+=cut
+
diff --git a/lib/5.24.1/TAP/Parser/YAMLish/Writer.pm b/lib/5.24.1/TAP/Parser/YAMLish/Writer.pm
new file mode 100644
index 00000000..4897aa88
--- /dev/null
+++ b/lib/5.24.1/TAP/Parser/YAMLish/Writer.pm
@@ -0,0 +1,254 @@
+package TAP::Parser::YAMLish::Writer;
+
+use strict;
+use warnings;
+
+use base 'TAP::Object';
+
+our $VERSION = '3.36_01';
+
+my $ESCAPE_CHAR = qr{ [ \x00-\x1f \" ] }x;
+my $ESCAPE_KEY  = qr{ (?: ^\W ) | $ESCAPE_CHAR }x;
+
+my @UNPRINTABLE = qw(
+  z    x01  x02  x03  x04  x05  x06  a
+  x08  t    n    v    f    r    x0e  x0f
+  x10  x11  x12  x13  x14  x15  x16  x17
+  x18  x19  x1a  e    x1c  x1d  x1e  x1f
+);
+
+# new() implementation supplied by TAP::Object
+
+sub write {
+    my $self = shift;
+
+    die "Need something to write"
+      unless @_;
+
+    my $obj = shift;
+    my $out = shift || \*STDOUT;
+
+    die "Need a reference to something I can write to"
+      unless ref $out;
+
+    $self->{writer} = $self->_make_writer($out);
+
+    $self->_write_obj( '---', $obj );
+    $self->_put('...');
+
+    delete $self->{writer};
+}
+
+sub _make_writer {
+    my $self = shift;
+    my $out  = shift;
+
+    my $ref = ref $out;
+
+    if ( 'CODE' eq $ref ) {
+        return $out;
+    }
+    elsif ( 'ARRAY' eq $ref ) {
+        return sub { push @$out, shift };
+    }
+    elsif ( 'SCALAR' eq $ref ) {
+        return sub { $$out .= shift() . "\n" };
+    }
+    elsif ( 'GLOB' eq $ref || 'IO::Handle' eq $ref ) {
+        return sub { print $out shift(), "\n" };
+    }
+
+    die "Can't write to $out";
+}
+
+sub _put {
+    my $self = shift;
+    $self->{writer}->( join '', @_ );
+}
+
+sub _enc_scalar {
+    my $self = shift;
+    my $val  = shift;
+    my $rule = shift;
+
+    return '~' unless defined $val;
+
+    if ( $val =~ /$rule/ ) {
+        $val =~ s/\\/\\\\/g;
+        $val =~ s/"/\\"/g;
+        $val =~ s/ ( [\x00-\x1f] ) / '\\' . $UNPRINTABLE[ ord($1) ] /gex;
+        return qq{"$val"};
+    }
+
+    if ( length($val) == 0 or $val =~ /\s/ ) {
+        $val =~ s/'/''/;
+        return "'$val'";
+    }
+
+    return $val;
+}
+
+sub _write_obj {
+    my $self   = shift;
+    my $prefix = shift;
+    my $obj    = shift;
+    my $indent = shift || 0;
+
+    if ( my $ref = ref $obj ) {
+        my $pad = '  ' x $indent;
+        if ( 'HASH' eq $ref ) {
+            if ( keys %$obj ) {
+                $self->_put($prefix);
+                for my $key ( sort keys %$obj ) {
+                    my $value = $obj->{$key};
+                    $self->_write_obj(
+                        $pad . $self->_enc_scalar( $key, $ESCAPE_KEY ) . ':',
+                        $value, $indent + 1
+                    );
+                }
+            }
+            else {
+                $self->_put( $prefix, ' {}' );
+            }
+        }
+        elsif ( 'ARRAY' eq $ref ) {
+            if (@$obj) {
+                $self->_put($prefix);
+                for my $value (@$obj) {
+                    $self->_write_obj(
+                        $pad . '-', $value,
+                        $indent + 1
+                    );
+                }
+            }
+            else {
+                $self->_put( $prefix, ' []' );
+            }
+        }
+        else {
+            die "Don't know how to encode $ref";
+        }
+    }
+    else {
+        $self->_put( $prefix, ' ', $self->_enc_scalar( $obj, $ESCAPE_CHAR ) );
+    }
+}
+
+1;
+
+__END__
+
+=pod
+
+=head1 NAME
+
+TAP::Parser::YAMLish::Writer - Write YAMLish data
+
+=head1 VERSION
+
+Version 3.36
+
+=head1 SYNOPSIS
+
+    use TAP::Parser::YAMLish::Writer;
+    
+    my $data = {
+        one => 1,
+        two => 2,
+        three => [ 1, 2, 3 ],
+    };
+    
+    my $yw = TAP::Parser::YAMLish::Writer->new;
+    
+    # Write to an array...
+    $yw->write( $data, \@some_array );
+    
+    # ...an open file handle...
+    $yw->write( $data, $some_file_handle );
+    
+    # ...a string ...
+    $yw->write( $data, \$some_string );
+    
+    # ...or a closure
+    $yw->write( $data, sub {
+        my $line = shift;
+        print "$line\n";
+    } );
+
+=head1 DESCRIPTION
+
+Encodes a scalar, hash reference or array reference as YAMLish.
+
+=head1 METHODS
+
+=head2 Class Methods
+
+=head3 C<new>
+
+ my $writer = TAP::Parser::YAMLish::Writer->new;
+
+The constructor C<new> creates and returns an empty
+C<TAP::Parser::YAMLish::Writer> object.
+
+=head2 Instance Methods
+
+=head3 C<write>
+
+ $writer->write($obj, $output );
+
+Encode a scalar, hash reference or array reference as YAML.
+
+    my $writer = sub {
+        my $line = shift;
+        print SOMEFILE "$line\n";
+    };
+    
+    my $data = {
+        one => 1,
+        two => 2,
+        three => [ 1, 2, 3 ],
+    };
+    
+    my $yw = TAP::Parser::YAMLish::Writer->new;
+    $yw->write( $data, $writer );
+
+
+The C< $output > argument may be:
+
+=over
+
+=item * a reference to a scalar to append YAML to
+
+=item * the handle of an open file
+
+=item * a reference to an array into which YAML will be pushed
+
+=item * a code reference
+
+=back
+
+If you supply a code reference the subroutine will be called once for
+each line of output with the line as its only argument. Passed lines
+will have no trailing newline.
+
+=head1 AUTHOR
+
+Andy Armstrong, <andy@hexten.net>
+
+=head1 SEE ALSO
+
+L<YAML::Tiny>, L<YAML>, L<YAML::Syck>, L<Config::Tiny>, L<CSS::Tiny>,
+L<http://use.perl.org/~Alias/journal/29427>
+
+=head1 COPYRIGHT
+
+Copyright 2007-2011 Andy Armstrong.
+
+This program is free software; you can redistribute
+it and/or modify it under the same terms as Perl itself.
+
+The full text of the license can be found in the
+LICENSE file included with this module.
+
+=cut
+
diff --git a/lib/5.24.1/Term/ANSIColor.pm b/lib/5.24.1/Term/ANSIColor.pm
new file mode 100644
index 00000000..ace4d471
--- /dev/null
+++ b/lib/5.24.1/Term/ANSIColor.pm
@@ -0,0 +1,1226 @@
+# Term::ANSIColor -- Color screen output using ANSI escape sequences.
+#
+# Copyright 1996, 1997, 1998, 2000, 2001, 2002, 2005, 2006, 2008, 2009, 2010,
+#     2011, 2012, 2013, 2014, 2015 Russ Allbery <rra@cpan.org>
+# Copyright 1996 Zenin
+# Copyright 2012 Kurt Starsinic <kstarsinic@gmail.com>
+#
+# This program is free software; you may redistribute it and/or modify it
+# under the same terms as Perl itself.
+#
+# PUSH/POP support submitted 2007 by openmethods.com voice solutions
+#
+# Ah, September, when the sysadmins turn colors and fall off the trees....
+#                               -- Dave Van Domelen
+
+##############################################################################
+# Modules and declarations
+##############################################################################
+
+package Term::ANSIColor;
+
+use 5.006;
+use strict;
+use warnings;
+
+use Carp qw(croak);
+use Exporter ();
+
+# use Exporter plus @ISA instead of use base for 5.6 compatibility.
+## no critic (ClassHierarchies::ProhibitExplicitISA)
+
+# Declare variables that should be set in BEGIN for robustness.
+## no critic (Modules::ProhibitAutomaticExportation)
+our (@EXPORT, @EXPORT_OK, %EXPORT_TAGS, @ISA, $VERSION);
+
+# We use autoloading, which sets this variable to the name of the called sub.
+our $AUTOLOAD;
+
+# Set $VERSION and everything export-related in a BEGIN block for robustness
+# against circular module loading (not that we load any modules, but
+# consistency is good).
+BEGIN {
+    $VERSION = '4.04';
+
+    # All of the basic supported constants, used in %EXPORT_TAGS.
+    my @colorlist = qw(
+      CLEAR           RESET             BOLD            DARK
+      FAINT           ITALIC            UNDERLINE       UNDERSCORE
+      BLINK           REVERSE           CONCEALED
+
+      BLACK           RED               GREEN           YELLOW
+      BLUE            MAGENTA           CYAN            WHITE
+      ON_BLACK        ON_RED            ON_GREEN        ON_YELLOW
+      ON_BLUE         ON_MAGENTA        ON_CYAN         ON_WHITE
+
+      BRIGHT_BLACK    BRIGHT_RED        BRIGHT_GREEN    BRIGHT_YELLOW
+      BRIGHT_BLUE     BRIGHT_MAGENTA    BRIGHT_CYAN     BRIGHT_WHITE
+      ON_BRIGHT_BLACK ON_BRIGHT_RED     ON_BRIGHT_GREEN ON_BRIGHT_YELLOW
+      ON_BRIGHT_BLUE  ON_BRIGHT_MAGENTA ON_BRIGHT_CYAN  ON_BRIGHT_WHITE
+    );
+
+    # 256-color constants, used in %EXPORT_TAGS.
+    my @colorlist256 = (
+        (map { ("ANSI$_", "ON_ANSI$_") } 0 .. 15),
+        (map { ("GREY$_", "ON_GREY$_") } 0 .. 23),
+    );
+    for my $r (0 .. 5) {
+        for my $g (0 .. 5) {
+            push(@colorlist256, map { ("RGB$r$g$_", "ON_RGB$r$g$_") } 0 .. 5);
+        }
+    }
+
+    # Exported symbol configuration.
+    @ISA         = qw(Exporter);
+    @EXPORT      = qw(color colored);
+    @EXPORT_OK   = qw(uncolor colorstrip colorvalid coloralias);
+    %EXPORT_TAGS = (
+        constants    => \@colorlist,
+        constants256 => \@colorlist256,
+        pushpop      => [@colorlist, qw(PUSHCOLOR POPCOLOR LOCALCOLOR)],
+    );
+    Exporter::export_ok_tags('pushpop', 'constants256');
+}
+
+##############################################################################
+# Package variables
+##############################################################################
+
+# If this is set, any color changes will implicitly push the current color
+# onto the stack and then pop it at the end of the constant sequence, just as
+# if LOCALCOLOR were used.
+our $AUTOLOCAL;
+
+# Caller sets this to force a reset at the end of each constant sequence.
+our $AUTORESET;
+
+# Caller sets this to force colors to be reset at the end of each line.
+our $EACHLINE;
+
+##############################################################################
+# Internal data structures
+##############################################################################
+
+# This module does quite a bit of initialization at the time it is first
+# loaded, primarily to set up the package-global %ATTRIBUTES hash.  The
+# entries for 256-color names are easier to handle programmatically, and
+# custom colors are also imported from the environment if any are set.
+
+# All basic supported attributes, including aliases.
+#<<<
+our %ATTRIBUTES = (
+    'clear'          => 0,
+    'reset'          => 0,
+    'bold'           => 1,
+    'dark'           => 2,
+    'faint'          => 2,
+    'italic'         => 3,
+    'underline'      => 4,
+    'underscore'     => 4,
+    'blink'          => 5,
+    'reverse'        => 7,
+    'concealed'      => 8,
+
+    'black'          => 30,   'on_black'          => 40,
+    'red'            => 31,   'on_red'            => 41,
+    'green'          => 32,   'on_green'          => 42,
+    'yellow'         => 33,   'on_yellow'         => 43,
+    'blue'           => 34,   'on_blue'           => 44,
+    'magenta'        => 35,   'on_magenta'        => 45,
+    'cyan'           => 36,   'on_cyan'           => 46,
+    'white'          => 37,   'on_white'          => 47,
+
+    'bright_black'   => 90,   'on_bright_black'   => 100,
+    'bright_red'     => 91,   'on_bright_red'     => 101,
+    'bright_green'   => 92,   'on_bright_green'   => 102,
+    'bright_yellow'  => 93,   'on_bright_yellow'  => 103,
+    'bright_blue'    => 94,   'on_bright_blue'    => 104,
+    'bright_magenta' => 95,   'on_bright_magenta' => 105,
+    'bright_cyan'    => 96,   'on_bright_cyan'    => 106,
+    'bright_white'   => 97,   'on_bright_white'   => 107,
+);
+#>>>
+
+# Generating the 256-color codes involves a lot of codes and offsets that are
+# not helped by turning them into constants.
+
+# The first 16 256-color codes are duplicates of the 16 ANSI colors,
+# included for completeness.
+for my $code (0 .. 15) {
+    $ATTRIBUTES{"ansi$code"}    = "38;5;$code";
+    $ATTRIBUTES{"on_ansi$code"} = "48;5;$code";
+}
+
+# 256-color RGB colors.  Red, green, and blue can each be values 0 through 5,
+# and the resulting 216 colors start with color 16.
+for my $r (0 .. 5) {
+    for my $g (0 .. 5) {
+        for my $b (0 .. 5) {
+            my $code = 16 + (6 * 6 * $r) + (6 * $g) + $b;
+            $ATTRIBUTES{"rgb$r$g$b"}    = "38;5;$code";
+            $ATTRIBUTES{"on_rgb$r$g$b"} = "48;5;$code";
+        }
+    }
+}
+
+# The last 256-color codes are 24 shades of grey.
+for my $n (0 .. 23) {
+    my $code = $n + 232;
+    $ATTRIBUTES{"grey$n"}    = "38;5;$code";
+    $ATTRIBUTES{"on_grey$n"} = "48;5;$code";
+}
+
+# Reverse lookup.  Alphabetically first name for a sequence is preferred.
+our %ATTRIBUTES_R;
+for my $attr (reverse sort keys %ATTRIBUTES) {
+    $ATTRIBUTES_R{ $ATTRIBUTES{$attr} } = $attr;
+}
+
+# Import any custom colors set in the environment.
+our %ALIASES;
+if (exists $ENV{ANSI_COLORS_ALIASES}) {
+    my $spec = $ENV{ANSI_COLORS_ALIASES};
+    $spec =~ s{\s+}{}xmsg;
+
+    # Error reporting here is an interesting question.  Use warn rather than
+    # carp because carp would report the line of the use or require, which
+    # doesn't help anyone understand what's going on, whereas seeing this code
+    # will be more helpful.
+    ## no critic (ErrorHandling::RequireCarping)
+    for my $definition (split m{,}xms, $spec) {
+        my ($new, $old) = split m{=}xms, $definition, 2;
+        if (!$new || !$old) {
+            warn qq{Bad color mapping "$definition"};
+        } else {
+            my $result = eval { coloralias($new, $old) };
+            if (!$result) {
+                my $error = $@;
+                $error =~ s{ [ ] at [ ] .* }{}xms;
+                warn qq{$error in "$definition"};
+            }
+        }
+    }
+}
+
+# Stores the current color stack maintained by PUSHCOLOR and POPCOLOR.  This
+# is global and therefore not threadsafe.
+our @COLORSTACK;
+
+##############################################################################
+# Implementation (constant form)
+##############################################################################
+
+# Time to have fun!  We now want to define the constant subs, which are named
+# the same as the attributes above but in all caps.  Each constant sub needs
+# to act differently depending on whether $AUTORESET is set.  Without
+# autoreset:
+#
+#     BLUE "text\n"  ==>  "\e[34mtext\n"
+#
+# If $AUTORESET is set, we should instead get:
+#
+#     BLUE "text\n"  ==>  "\e[34mtext\n\e[0m"
+#
+# The sub also needs to handle the case where it has no arguments correctly.
+# Maintaining all of this as separate subs would be a major nightmare, as well
+# as duplicate the %ATTRIBUTES hash, so instead we define an AUTOLOAD sub to
+# define the constant subs on demand.  To do that, we check the name of the
+# called sub against the list of attributes, and if it's an all-caps version
+# of one of them, we define the sub on the fly and then run it.
+#
+# If the environment variable ANSI_COLORS_DISABLED is set to a true value,
+# just return the arguments without adding any escape sequences.  This is to
+# make it easier to write scripts that also work on systems without any ANSI
+# support, like Windows consoles.
+#
+## no critic (ClassHierarchies::ProhibitAutoloading)
+## no critic (Subroutines::RequireArgUnpacking)
+sub AUTOLOAD {
+    my ($sub, $attr) = $AUTOLOAD =~ m{ \A ([\w:]*::([[:upper:]\d_]+)) \z }xms;
+
+    # Check if we were called with something that doesn't look like an
+    # attribute.
+    if (!($attr && defined($ATTRIBUTES{ lc $attr }))) {
+        croak("undefined subroutine &$AUTOLOAD called");
+    }
+
+    # If colors are disabled, just return the input.  Do this without
+    # installing a sub for (marginal, unbenchmarked) speed.
+    if ($ENV{ANSI_COLORS_DISABLED}) {
+        return join(q{}, @_);
+    }
+
+    # We've untainted the name of the sub.
+    $AUTOLOAD = $sub;
+
+    # Figure out the ANSI string to set the desired attribute.
+    my $escape = "\e[" . $ATTRIBUTES{ lc $attr } . 'm';
+
+    # Save the current value of $@.  We can't just use local since we want to
+    # restore it before dispatching to the newly-created sub.  (The caller may
+    # be colorizing output that includes $@.)
+    my $eval_err = $@;
+
+    # Generate the constant sub, which should still recognize some of our
+    # package variables.  Use string eval to avoid a dependency on
+    # Sub::Install, even though it makes it somewhat less readable.
+    ## no critic (BuiltinFunctions::ProhibitStringyEval)
+    ## no critic (ValuesAndExpressions::ProhibitImplicitNewlines)
+    my $eval_result = eval qq{
+        sub $AUTOLOAD {
+            if (\$ENV{ANSI_COLORS_DISABLED}) {
+                return join(q{}, \@_);
+            } elsif (\$AUTOLOCAL && \@_) {
+                return PUSHCOLOR('$escape') . join(q{}, \@_) . POPCOLOR;
+            } elsif (\$AUTORESET && \@_) {
+                return '$escape' . join(q{}, \@_) . "\e[0m";
+            } else {
+                return '$escape' . join(q{}, \@_);
+            }
+        }
+        1;
+    };
+
+    # Failure is an internal error, not a problem with the caller.
+    ## no critic (ErrorHandling::RequireCarping)
+    if (!$eval_result) {
+        die "failed to generate constant $attr: $@";
+    }
+
+    # Restore $@.
+    ## no critic (Variables::RequireLocalizedPunctuationVars)
+    $@ = $eval_err;
+
+    # Dispatch to the newly-created sub.
+    ## no critic (References::ProhibitDoubleSigils)
+    goto &$AUTOLOAD;
+}
+## use critic (Subroutines::RequireArgUnpacking)
+
+# Append a new color to the top of the color stack and return the top of
+# the stack.
+#
+# $text - Any text we're applying colors to, with color escapes prepended
+#
+# Returns: The text passed in
+sub PUSHCOLOR {
+    my (@text) = @_;
+    my $text = join(q{}, @text);
+
+    # Extract any number of color-setting escape sequences from the start of
+    # the string.
+    my ($color) = $text =~ m{ \A ( (?:\e\[ [\d;]+ m)+ ) }xms;
+
+    # If we already have a stack, append these escapes to the set from the top
+    # of the stack.  This way, each position in the stack stores the complete
+    # enabled colors for that stage, at the cost of some potential
+    # inefficiency.
+    if (@COLORSTACK) {
+        $color = $COLORSTACK[-1] . $color;
+    }
+
+    # Push the color onto the stack.
+    push(@COLORSTACK, $color);
+    return $text;
+}
+
+# Pop the color stack and return the new top of the stack (or reset, if
+# the stack is empty).
+#
+# @text - Any text we're applying colors to
+#
+# Returns: The concatenation of @text prepended with the new stack color
+sub POPCOLOR {
+    my (@text) = @_;
+    pop(@COLORSTACK);
+    if (@COLORSTACK) {
+        return $COLORSTACK[-1] . join(q{}, @text);
+    } else {
+        return RESET(@text);
+    }
+}
+
+# Surround arguments with a push and a pop.  The effect will be to reset the
+# colors to whatever was on the color stack before this sequence of colors was
+# applied.
+#
+# @text - Any text we're applying colors to
+#
+# Returns: The concatenation of the text and the proper color reset sequence.
+sub LOCALCOLOR {
+    my (@text) = @_;
+    return PUSHCOLOR(join(q{}, @text)) . POPCOLOR();
+}
+
+##############################################################################
+# Implementation (attribute string form)
+##############################################################################
+
+# Return the escape code for a given set of color attributes.
+#
+# @codes - A list of possibly space-separated color attributes
+#
+# Returns: The escape sequence setting those color attributes
+#          undef if no escape sequences were given
+#  Throws: Text exception for any invalid attribute
+sub color {
+    my (@codes) = @_;
+    @codes = map { split } @codes;
+
+    # Return the empty string if colors are disabled.
+    if ($ENV{ANSI_COLORS_DISABLED}) {
+        return q{};
+    }
+
+    # Build the attribute string from semicolon-separated numbers.
+    my $attribute = q{};
+    for my $code (@codes) {
+        $code = lc($code);
+        if (defined($ATTRIBUTES{$code})) {
+            $attribute .= $ATTRIBUTES{$code} . q{;};
+        } elsif (defined($ALIASES{$code})) {
+            $attribute .= $ALIASES{$code} . q{;};
+        } else {
+            croak("Invalid attribute name $code");
+        }
+    }
+
+    # We added one too many semicolons for simplicity.  Remove the last one.
+    chop($attribute);
+
+    # Return undef if there were no attributes.
+    return ($attribute ne q{}) ? "\e[${attribute}m" : undef;
+}
+
+# Return a list of named color attributes for a given set of escape codes.
+# Escape sequences can be given with or without enclosing "\e[" and "m".  The
+# empty escape sequence '' or "\e[m" gives an empty list of attrs.
+#
+# There is one special case.  256-color codes start with 38 or 48, followed by
+# a 5 and then the 256-color code.
+#
+# @escapes - A list of escape sequences or escape sequence numbers
+#
+# Returns: An array of attribute names corresponding to those sequences
+#  Throws: Text exceptions on invalid escape sequences or unknown colors
+sub uncolor {
+    my (@escapes) = @_;
+    my (@nums, @result);
+
+    # Walk the list of escapes and build a list of attribute numbers.
+    for my $escape (@escapes) {
+        $escape =~ s{ \A \e\[ }{}xms;
+        $escape =~ s{ m \z }   {}xms;
+        my ($attrs) = $escape =~ m{ \A ((?:\d+;)* \d*) \z }xms;
+        if (!defined($attrs)) {
+            croak("Bad escape sequence $escape");
+        }
+
+        # Pull off 256-color codes (38;5;n or 48;5;n) as a unit.
+        push(@nums, $attrs =~ m{ ( 0*[34]8;0*5;\d+ | \d+ ) (?: ; | \z ) }xmsg);
+    }
+
+    # Now, walk the list of numbers and convert them to attribute names.
+    # Strip leading zeroes from any of the numbers.  (xterm, at least, allows
+    # leading zeroes to be added to any number in an escape sequence.)
+    for my $num (@nums) {
+        $num =~ s{ ( \A | ; ) 0+ (\d) }{$1$2}xmsg;
+        my $name = $ATTRIBUTES_R{$num};
+        if (!defined($name)) {
+            croak("No name for escape sequence $num");
+        }
+        push(@result, $name);
+    }
+
+    # Return the attribute names.
+    return @result;
+}
+
+# Given a string and a set of attributes, returns the string surrounded by
+# escape codes to set those attributes and then clear them at the end of the
+# string.  The attributes can be given either as an array ref as the first
+# argument or as a list as the second and subsequent arguments.
+#
+# If $EACHLINE is set, insert a reset before each occurrence of the string
+# $EACHLINE and the starting attribute code after the string $EACHLINE, so
+# that no attribute crosses line delimiters (this is often desirable if the
+# output is to be piped to a pager or some other program).
+#
+# $first - An anonymous array of attributes or the text to color
+# @rest  - The text to color or the list of attributes
+#
+# Returns: The text, concatenated if necessary, surrounded by escapes to set
+#          the desired colors and reset them afterwards
+#  Throws: Text exception on invalid attributes
+sub colored {
+    my ($first, @rest) = @_;
+    my ($string, @codes);
+    if (ref($first) && ref($first) eq 'ARRAY') {
+        @codes = @{$first};
+        $string = join(q{}, @rest);
+    } else {
+        $string = $first;
+        @codes  = @rest;
+    }
+
+    # Return the string unmolested if colors are disabled.
+    if ($ENV{ANSI_COLORS_DISABLED}) {
+        return $string;
+    }
+
+    # Find the attribute string for our colors.
+    my $attr = color(@codes);
+
+    # If $EACHLINE is defined, split the string on line boundaries, suppress
+    # empty segments, and then colorize each of the line sections.
+    if (defined($EACHLINE)) {
+        my @text = map { ($_ ne $EACHLINE) ? $attr . $_ . "\e[0m" : $_ }
+          grep { length > 0 }
+          split(m{ (\Q$EACHLINE\E) }xms, $string);
+        return join(q{}, @text);
+    } else {
+        return $attr . $string . "\e[0m";
+    }
+}
+
+# Define a new color alias, or return the value of an existing alias.
+#
+# $alias - The color alias to define
+# $color - The standard color the alias will correspond to (optional)
+#
+# Returns: The standard color value of the alias
+#          undef if one argument was given and the alias was not recognized
+#  Throws: Text exceptions for invalid alias names, attempts to use a
+#          standard color name as an alias, or an unknown standard color name
+sub coloralias {
+    my ($alias, $color) = @_;
+    if (!defined($color)) {
+        if (!exists $ALIASES{$alias}) {
+            return;
+        } else {
+            return $ATTRIBUTES_R{ $ALIASES{$alias} };
+        }
+    }
+    if ($alias !~ m{ \A [\w._-]+ \z }xms) {
+        croak(qq{Invalid alias name "$alias"});
+    } elsif ($ATTRIBUTES{$alias}) {
+        croak(qq{Cannot alias standard color "$alias"});
+    } elsif (!exists $ATTRIBUTES{$color}) {
+        croak(qq{Invalid attribute name "$color"});
+    }
+    $ALIASES{$alias} = $ATTRIBUTES{$color};
+    return $color;
+}
+
+# Given a string, strip the ANSI color codes out of that string and return the
+# result.  This removes only ANSI color codes, not movement codes and other
+# escape sequences.
+#
+# @string - The list of strings to sanitize
+#
+# Returns: (array)  The strings stripped of ANSI color escape sequences
+#          (scalar) The same, concatenated
+sub colorstrip {
+    my (@string) = @_;
+    for my $string (@string) {
+        $string =~ s{ \e\[ [\d;]* m }{}xmsg;
+    }
+    return wantarray ? @string : join(q{}, @string);
+}
+
+# Given a list of color attributes (arguments for color, for instance), return
+# true if they're all valid or false if any of them are invalid.
+#
+# @codes - A list of color attributes, possibly space-separated
+#
+# Returns: True if all the attributes are valid, false otherwise.
+sub colorvalid {
+    my (@codes) = @_;
+    @codes = map { split(q{ }, lc) } @codes;
+    for my $code (@codes) {
+        if (!(defined($ATTRIBUTES{$code}) || defined($ALIASES{$code}))) {
+            return;
+        }
+    }
+    return 1;
+}
+
+##############################################################################
+# Module return value and documentation
+##############################################################################
+
+# Ensure we evaluate to true.
+1;
+__END__
+
+=head1 NAME
+
+Term::ANSIColor - Color screen output using ANSI escape sequences
+
+=for stopwords
+cyan colorize namespace runtime TMTOWTDI cmd.exe cmd.exe. 4nt.exe. 4nt.exe
+command.com NT ESC Delvare SSH OpenSSH aixterm ECMA-048 Fraktur overlining
+Zenin reimplemented Allbery PUSHCOLOR POPCOLOR LOCALCOLOR openmethods.com
+openmethods.com. grey ATTR urxvt mistyped prepending Bareword filehandle
+Cygwin Starsinic aterm rxvt CPAN RGB Solarized Whitespace alphanumerics
+undef
+
+=head1 SYNOPSIS
+
+    use Term::ANSIColor;
+    print color('bold blue');
+    print "This text is bold blue.\n";
+    print color('reset');
+    print "This text is normal.\n";
+    print colored("Yellow on magenta.", 'yellow on_magenta'), "\n";
+    print "This text is normal.\n";
+    print colored(['yellow on_magenta'], 'Yellow on magenta.', "\n");
+    print colored(['red on_bright_yellow'], 'Red on bright yellow.', "\n");
+    print colored(['bright_red on_black'], 'Bright red on black.', "\n");
+    print "\n";
+
+    # Map escape sequences back to color names.
+    use Term::ANSIColor 1.04 qw(uncolor);
+    my $names = uncolor('01;31');
+    print join(q{ }, @{$names}), "\n";
+
+    # Strip all color escape sequences.
+    use Term::ANSIColor 2.01 qw(colorstrip);
+    print colorstrip("\e[1mThis is bold\e[0m"), "\n";
+
+    # Determine whether a color is valid.
+    use Term::ANSIColor 2.02 qw(colorvalid);
+    my $valid = colorvalid('blue bold', 'on_magenta');
+    print "Color string is ", $valid ? "valid\n" : "invalid\n";
+
+    # Create new aliases for colors.
+    use Term::ANSIColor 4.00 qw(coloralias);
+    coloralias('alert', 'red');
+    print "Alert is ", coloralias('alert'), "\n";
+    print colored("This is in red.", 'alert'), "\n";
+
+    use Term::ANSIColor qw(:constants);
+    print BOLD, BLUE, "This text is in bold blue.\n", RESET;
+
+    use Term::ANSIColor qw(:constants);
+    {
+        local $Term::ANSIColor::AUTORESET = 1;
+        print BOLD BLUE "This text is in bold blue.\n";
+        print "This text is normal.\n";
+    }
+
+    use Term::ANSIColor 2.00 qw(:pushpop);
+    print PUSHCOLOR RED ON_GREEN "This text is red on green.\n";
+    print PUSHCOLOR BRIGHT_BLUE "This text is bright blue on green.\n";
+    print RESET BRIGHT_BLUE "This text is just bright blue.\n";
+    print POPCOLOR "Back to red on green.\n";
+    print LOCALCOLOR GREEN ON_BLUE "This text is green on blue.\n";
+    print "This text is red on green.\n";
+    {
+        local $Term::ANSIColor::AUTOLOCAL = 1;
+        print ON_BLUE "This text is red on blue.\n";
+        print "This text is red on green.\n";
+    }
+    print POPCOLOR "Back to whatever we started as.\n";
+
+=head1 DESCRIPTION
+
+This module has two interfaces, one through color() and colored() and the
+other through constants.  It also offers the utility functions uncolor(),
+colorstrip(), colorvalid(), and coloralias(), which have to be explicitly
+imported to be used (see L</SYNOPSIS>).
+
+See L</COMPATIBILITY> for the versions of Term::ANSIColor that introduced
+particular features and the versions of Perl that included them.
+
+=head2 Supported Colors
+
+Terminal emulators that support color divide into three types: ones that
+support only eight colors, ones that support sixteen, and ones that
+support 256.  This module provides the ANSI escape codes for all of them.
+These colors are referred to as ANSI colors 0 through 7 (normal), 8
+through 15 (16-color), and 16 through 255 (256-color).
+
+Unfortunately, interpretation of colors 0 through 7 often depends on
+whether the emulator supports eight colors or sixteen colors.  Emulators
+that only support eight colors (such as the Linux console) will display
+colors 0 through 7 with normal brightness and ignore colors 8 through 15,
+treating them the same as white.  Emulators that support 16 colors, such
+as gnome-terminal, normally display colors 0 through 7 as dim or darker
+versions and colors 8 through 15 as normal brightness.  On such emulators,
+the "normal" white (color 7) usually is shown as pale grey, requiring
+bright white (15) to be used to get a real white color.  Bright black
+usually is a dark grey color, although some terminals display it as pure
+black.  Some sixteen-color terminal emulators also treat normal yellow
+(color 3) as orange or brown, and bright yellow (color 11) as yellow.
+
+Following the normal convention of sixteen-color emulators, this module
+provides a pair of attributes for each color.  For every normal color (0
+through 7), the corresponding bright color (8 through 15) is obtained by
+prepending the string C<bright_> to the normal color name.  For example,
+C<red> is color 1 and C<bright_red> is color 9.  The same applies for
+background colors: C<on_red> is the normal color and C<on_bright_red> is
+the bright color.  Capitalize these strings for the constant interface.
+
+For 256-color emulators, this module additionally provides C<ansi0>
+through C<ansi15>, which are the same as colors 0 through 15 in
+sixteen-color emulators but use the 256-color escape syntax, C<grey0>
+through C<grey23> ranging from nearly black to nearly white, and a set of
+RGB colors.  The RGB colors are of the form C<rgbI<RGB>> where I<R>, I<G>,
+and I<B> are numbers from 0 to 5 giving the intensity of red, green, and
+blue.  C<on_> variants of all of these colors are also provided.  These
+colors may be ignored completely on non-256-color terminals or may be
+misinterpreted and produce random behavior.  Additional attributes such as
+blink, italic, or bold may not work with the 256-color palette.
+
+There is unfortunately no way to know whether the current emulator
+supports more than eight colors, which makes the choice of colors
+difficult.  The most conservative choice is to use only the regular
+colors, which are at least displayed on all emulators.  However, they will
+appear dark in sixteen-color terminal emulators, including most common
+emulators in UNIX X environments.  If you know the display is one of those
+emulators, you may wish to use the bright variants instead.  Even better,
+offer the user a way to configure the colors for a given application to
+fit their terminal emulator.
+
+=head2 Function Interface
+
+The function interface uses attribute strings to describe the colors and
+text attributes to assign to text.  The recognized non-color attributes
+are clear, reset, bold, dark, faint, italic, underline, underscore, blink,
+reverse, and concealed.  Clear and reset (reset to default attributes),
+dark and faint (dim and saturated), and underline and underscore are
+equivalent, so use whichever is the most intuitive to you.
+
+Note that not all attributes are supported by all terminal types, and some
+terminals may not support any of these sequences.  Dark and faint, italic,
+blink, and concealed in particular are frequently not implemented.
+
+The recognized normal foreground color attributes (colors 0 to 7) are:
+
+  black  red  green  yellow  blue  magenta  cyan  white
+
+The corresponding bright foreground color attributes (colors 8 to 15) are:
+
+  bright_black  bright_red      bright_green  bright_yellow
+  bright_blue   bright_magenta  bright_cyan   bright_white
+
+The recognized normal background color attributes (colors 0 to 7) are:
+
+  on_black  on_red      on_green  on yellow
+  on_blue   on_magenta  on_cyan   on_white
+
+The recognized bright background color attributes (colors 8 to 15) are:
+
+  on_bright_black  on_bright_red      on_bright_green  on_bright_yellow
+  on_bright_blue   on_bright_magenta  on_bright_cyan   on_bright_white
+
+For 256-color terminals, the recognized foreground colors are:
+
+  ansi0 .. ansi15
+  grey0 .. grey23
+
+plus C<rgbI<RGB>> for I<R>, I<G>, and I<B> values from 0 to 5, such as
+C<rgb000> or C<rgb515>.  Similarly, the recognized background colors are:
+
+  on_ansi0 .. on_ansi15
+  on_grey0 .. on_grey23
+
+plus C<on_rgbI<RGB>> for I<R>, I<G>, and I<B> values from 0 to 5.
+
+For any of the above listed attributes, case is not significant.
+
+Attributes, once set, last until they are unset (by printing the attribute
+C<clear> or C<reset>).  Be careful to do this, or otherwise your attribute
+will last after your script is done running, and people get very annoyed
+at having their prompt and typing changed to weird colors.
+
+=over 4
+
+=item color(ATTR[, ATTR ...])
+
+color() takes any number of strings as arguments and considers them to be
+space-separated lists of attributes.  It then forms and returns the escape
+sequence to set those attributes.  It doesn't print it out, just returns
+it, so you'll have to print it yourself if you want to.  This is so that
+you can save it as a string, pass it to something else, send it to a file
+handle, or do anything else with it that you might care to.  color()
+throws an exception if given an invalid attribute.
+
+=item colored(STRING, ATTR[, ATTR ...])
+
+=item colored(ATTR-REF, STRING[, STRING...])
+
+As an aid in resetting colors, colored() takes a scalar as the first
+argument and any number of attribute strings as the second argument and
+returns the scalar wrapped in escape codes so that the attributes will be
+set as requested before the string and reset to normal after the string.
+Alternately, you can pass a reference to an array as the first argument,
+and then the contents of that array will be taken as attributes and color
+codes and the remainder of the arguments as text to colorize.
+
+Normally, colored() just puts attribute codes at the beginning and end of
+the string, but if you set $Term::ANSIColor::EACHLINE to some string, that
+string will be considered the line delimiter and the attribute will be set
+at the beginning of each line of the passed string and reset at the end of
+each line.  This is often desirable if the output contains newlines and
+you're using background colors, since a background color that persists
+across a newline is often interpreted by the terminal as providing the
+default background color for the next line.  Programs like pagers can also
+be confused by attributes that span lines.  Normally you'll want to set
+$Term::ANSIColor::EACHLINE to C<"\n"> to use this feature.
+
+=item uncolor(ESCAPE)
+
+uncolor() performs the opposite translation as color(), turning escape
+sequences into a list of strings corresponding to the attributes being set
+by those sequences.
+
+=item colorstrip(STRING[, STRING ...])
+
+colorstrip() removes all color escape sequences from the provided strings,
+returning the modified strings separately in array context or joined
+together in scalar context.  Its arguments are not modified.
+
+=item colorvalid(ATTR[, ATTR ...])
+
+colorvalid() takes attribute strings the same as color() and returns true
+if all attributes are known and false otherwise.
+
+=item coloralias(ALIAS[, ATTR])
+
+If ATTR is specified, coloralias() sets up an alias of ALIAS for the
+standard color ATTR.  From that point forward, ALIAS can be passed into
+color(), colored(), and colorvalid() and will have the same meaning as
+ATTR.  One possible use of this facility is to give more meaningful names
+to the 256-color RGB colors.  Only alphanumerics, C<.>, C<_>, and C<-> are
+allowed in alias names.
+
+If ATTR is not specified, coloralias() returns the standard color name to
+which ALIAS is aliased, if any, or undef if ALIAS does not exist.
+
+This is the same facility used by the ANSI_COLORS_ALIASES environment
+variable (see L</ENVIRONMENT> below) but can be used at runtime, not just
+when the module is loaded.
+
+Later invocations of coloralias() with the same ALIAS will override
+earlier aliases.  There is no way to remove an alias.
+
+Aliases have no effect on the return value of uncolor().
+
+B<WARNING>: Aliases are global and affect all callers in the same process.
+There is no way to set an alias limited to a particular block of code or a
+particular object.
+
+=back
+
+=head2 Constant Interface
+
+Alternately, if you import C<:constants>, you can use the following
+constants directly:
+
+  CLEAR           RESET             BOLD            DARK
+  FAINT           ITALIC            UNDERLINE       UNDERSCORE
+  BLINK           REVERSE           CONCEALED
+
+  BLACK           RED               GREEN           YELLOW
+  BLUE            MAGENTA           CYAN            WHITE
+  BRIGHT_BLACK    BRIGHT_RED        BRIGHT_GREEN    BRIGHT_YELLOW
+  BRIGHT_BLUE     BRIGHT_MAGENTA    BRIGHT_CYAN     BRIGHT_WHITE
+
+  ON_BLACK        ON_RED            ON_GREEN        ON_YELLOW
+  ON_BLUE         ON_MAGENTA        ON_CYAN         ON_WHITE
+  ON_BRIGHT_BLACK ON_BRIGHT_RED     ON_BRIGHT_GREEN ON_BRIGHT_YELLOW
+  ON_BRIGHT_BLUE  ON_BRIGHT_MAGENTA ON_BRIGHT_CYAN  ON_BRIGHT_WHITE
+
+These are the same as color('attribute') and can be used if you prefer
+typing:
+
+    print BOLD BLUE ON_WHITE "Text", RESET, "\n";
+
+to
+
+    print colored ("Text", 'bold blue on_white'), "\n";
+
+(Note that the newline is kept separate to avoid confusing the terminal as
+described above since a background color is being used.)
+
+If you import C<:constants256>, you can use the following constants
+directly:
+
+  ANSI0 .. ANSI15
+  GREY0 .. GREY23
+
+  RGBXYZ (for X, Y, and Z values from 0 to 5, like RGB000 or RGB515)
+
+  ON_ANSI0 .. ON_ANSI15
+  ON_GREY0 .. ON_GREY23
+
+  ON_RGBXYZ (for X, Y, and Z values from 0 to 5)
+
+Note that C<:constants256> does not include the other constants, so if you
+want to mix both, you need to include C<:constants> as well.  You may want
+to explicitly import at least C<RESET>, as in:
+
+    use Term::ANSIColor 4.00 qw(RESET :constants256);
+
+When using the constants, if you don't want to have to remember to add the
+C<, RESET> at the end of each print line, you can set
+$Term::ANSIColor::AUTORESET to a true value.  Then, the display mode will
+automatically be reset if there is no comma after the constant.  In other
+words, with that variable set:
+
+    print BOLD BLUE "Text\n";
+
+will reset the display mode afterward, whereas:
+
+    print BOLD, BLUE, "Text\n";
+
+will not.  If you are using background colors, you will probably want to
+either use say() (in newer versions of Perl) or print the newline with a
+separate print statement to avoid confusing the terminal.
+
+If $Term::ANSIColor::AUTOLOCAL is set (see below), it takes precedence
+over $Term::ANSIColor::AUTORESET, and the latter is ignored.
+
+The subroutine interface has the advantage over the constants interface in
+that only two subroutines are exported into your namespace, versus
+thirty-eight in the constants interface.  On the flip side, the constants
+interface has the advantage of better compile time error checking, since
+misspelled names of colors or attributes in calls to color() and colored()
+won't be caught until runtime whereas misspelled names of constants will
+be caught at compile time.  So, pollute your namespace with almost two
+dozen subroutines that you may not even use that often, or risk a silly
+bug by mistyping an attribute.  Your choice, TMTOWTDI after all.
+
+=head2 The Color Stack
+
+You can import C<:pushpop> and maintain a stack of colors using PUSHCOLOR,
+POPCOLOR, and LOCALCOLOR.  PUSHCOLOR takes the attribute string that
+starts its argument and pushes it onto a stack of attributes.  POPCOLOR
+removes the top of the stack and restores the previous attributes set by
+the argument of a prior PUSHCOLOR.  LOCALCOLOR surrounds its argument in a
+PUSHCOLOR and POPCOLOR so that the color resets afterward.
+
+If $Term::ANSIColor::AUTOLOCAL is set, each sequence of color constants
+will be implicitly preceded by LOCALCOLOR.  In other words, the following:
+
+    {
+        local $Term::ANSIColor::AUTOLOCAL = 1;
+        print BLUE "Text\n";
+    }
+
+is equivalent to:
+
+    print LOCALCOLOR BLUE "Text\n";
+
+If $Term::ANSIColor::AUTOLOCAL is set, it takes precedence over
+$Term::ANSIColor::AUTORESET, and the latter is ignored.
+
+When using PUSHCOLOR, POPCOLOR, and LOCALCOLOR, it's particularly
+important to not put commas between the constants.
+
+    print PUSHCOLOR BLUE "Text\n";
+
+will correctly push BLUE onto the top of the stack.
+
+    print PUSHCOLOR, BLUE, "Text\n";    # wrong!
+
+will not, and a subsequent pop won't restore the correct attributes.
+PUSHCOLOR pushes the attributes set by its argument, which is normally a
+string of color constants.  It can't ask the terminal what the current
+attributes are.
+
+=head1 DIAGNOSTICS
+
+=over 4
+
+=item Bad color mapping %s
+
+(W) The specified color mapping from ANSI_COLORS_ALIASES is not valid and
+could not be parsed.  It was ignored.
+
+=item Bad escape sequence %s
+
+(F) You passed an invalid ANSI escape sequence to uncolor().
+
+=item Bareword "%s" not allowed while "strict subs" in use
+
+(F) You probably mistyped a constant color name such as:
+
+    $Foobar = FOOBAR . "This line should be blue\n";
+
+or:
+
+    @Foobar = FOOBAR, "This line should be blue\n";
+
+This will only show up under use strict (another good reason to run under
+use strict).
+
+=item Cannot alias standard color %s
+
+(F) The alias name passed to coloralias() matches a standard color name.
+Standard color names cannot be aliased.
+
+=item Cannot alias standard color %s in %s
+
+(W) The same, but in ANSI_COLORS_ALIASES.  The color mapping was ignored.
+
+=item Invalid alias name %s
+
+(F) You passed an invalid alias name to coloralias().  Alias names must
+consist only of alphanumerics, C<.>, C<->, and C<_>.
+
+=item Invalid alias name %s in %s
+
+(W) You specified an invalid alias name on the left hand of the equal sign
+in a color mapping in ANSI_COLORS_ALIASES.  The color mapping was ignored.
+
+=item Invalid attribute name %s
+
+(F) You passed an invalid attribute name to color(), colored(), or
+coloralias().
+
+=item Invalid attribute name %s in %s
+
+(W) You specified an invalid attribute name on the right hand of the equal
+sign in a color mapping in ANSI_COLORS_ALIASES.  The color mapping was
+ignored.
+
+=item Name "%s" used only once: possible typo
+
+(W) You probably mistyped a constant color name such as:
+
+    print FOOBAR "This text is color FOOBAR\n";
+
+It's probably better to always use commas after constant names in order to
+force the next error.
+
+=item No comma allowed after filehandle
+
+(F) You probably mistyped a constant color name such as:
+
+    print FOOBAR, "This text is color FOOBAR\n";
+
+Generating this fatal compile error is one of the main advantages of using
+the constants interface, since you'll immediately know if you mistype a
+color name.
+
+=item No name for escape sequence %s
+
+(F) The ANSI escape sequence passed to uncolor() contains escapes which
+aren't recognized and can't be translated to names.
+
+=back
+
+=head1 ENVIRONMENT
+
+=over 4
+
+=item ANSI_COLORS_ALIASES
+
+This environment variable allows the user to specify custom color aliases
+that will be understood by color(), colored(), and colorvalid().  None of
+the other functions will be affected, and no new color constants will be
+created.  The custom colors are aliases for existing color names; no new
+escape sequences can be introduced.  Only alphanumerics, C<.>, C<_>, and
+C<-> are allowed in alias names.
+
+The format is:
+
+    ANSI_COLORS_ALIASES='newcolor1=oldcolor1,newcolor2=oldcolor2'
+
+Whitespace is ignored.
+
+For example the L<Solarized|http://ethanschoonover.com/solarized> colors
+can be mapped with:
+
+    ANSI_COLORS_ALIASES='\
+        base00=bright_yellow, on_base00=on_bright_yellow,\
+        base01=bright_green,  on_base01=on_bright_green, \
+        base02=black,         on_base02=on_black,        \
+        base03=bright_black,  on_base03=on_bright_black, \
+        base0=bright_blue,    on_base0=on_bright_blue,   \
+        base1=bright_cyan,    on_base1=on_bright_cyan,   \
+        base2=white,          on_base2=on_white,         \
+        base3=bright_white,   on_base3=on_bright_white,  \
+        orange=bright_red,    on_orange=on_bright_red,   \
+        violet=bright_magenta,on_violet=on_bright_magenta'
+
+This environment variable is read and applied when the Term::ANSIColor
+module is loaded and is then subsequently ignored.  Changes to
+ANSI_COLORS_ALIASES after the module is loaded will have no effect.  See
+coloralias() for an equivalent facility that can be used at runtime.
+
+=item ANSI_COLORS_DISABLED
+
+If this environment variable is set to a true value, all of the functions
+defined by this module (color(), colored(), and all of the constants not
+previously used in the program) will not output any escape sequences and
+instead will just return the empty string or pass through the original
+text as appropriate.  This is intended to support easy use of scripts
+using this module on platforms that don't support ANSI escape sequences.
+
+=back
+
+=head1 COMPATIBILITY
+
+Term::ANSIColor was first included with Perl in Perl 5.6.0.
+
+The uncolor() function and support for ANSI_COLORS_DISABLED were added in
+Term::ANSIColor 1.04, included in Perl 5.8.0.
+
+Support for dark was added in Term::ANSIColor 1.08, included in Perl
+5.8.4.
+
+The color stack, including the C<:pushpop> import tag, PUSHCOLOR,
+POPCOLOR, LOCALCOLOR, and the $Term::ANSIColor::AUTOLOCAL variable, was
+added in Term::ANSIColor 2.00, included in Perl 5.10.1.
+
+colorstrip() was added in Term::ANSIColor 2.01 and colorvalid() was added
+in Term::ANSIColor 2.02, both included in Perl 5.11.0.
+
+Support for colors 8 through 15 (the C<bright_> variants) was added in
+Term::ANSIColor 3.00, included in Perl 5.13.3.
+
+Support for italic was added in Term::ANSIColor 3.02, included in Perl
+5.17.1.
+
+Support for colors 16 through 256 (the C<ansi>, C<rgb>, and C<grey>
+colors), the C<:constants256> import tag, the coloralias() function, and
+support for the ANSI_COLORS_ALIASES environment variable were added in
+Term::ANSIColor 4.00, included in Perl 5.17.8.
+
+$Term::ANSIColor::AUTOLOCAL was changed to take precedence over
+$Term::ANSIColor::AUTORESET, rather than the other way around, in
+Term::ANSIColor 4.00, included in Perl 5.17.8.
+
+=head1 RESTRICTIONS
+
+It would be nice if one could leave off the commas around the constants
+entirely and just say:
+
+    print BOLD BLUE ON_WHITE "Text\n" RESET;
+
+but the syntax of Perl doesn't allow this.  You need a comma after the
+string.  (Of course, you may consider it a bug that commas between all the
+constants aren't required, in which case you may feel free to insert
+commas unless you're using $Term::ANSIColor::AUTORESET or
+PUSHCOLOR/POPCOLOR.)
+
+For easier debugging, you may prefer to always use the commas when not
+setting $Term::ANSIColor::AUTORESET or PUSHCOLOR/POPCOLOR so that you'll
+get a fatal compile error rather than a warning.
+
+It's not possible to use this module to embed formatting and color
+attributes using Perl formats.  They replace the escape character with a
+space (as documented in L<perlform(1)>), resulting in garbled output from
+the unrecognized attribute.  Even if there were a way around that problem,
+the format doesn't know that the non-printing escape sequence is
+zero-length and would incorrectly format the output.  For formatted output
+using color or other attributes, either use sprintf() instead or use
+formline() and then add the color or other attributes after formatting and
+before output.
+
+=head1 NOTES
+
+The codes generated by this module are standard terminal control codes,
+complying with ECMA-048 and ISO 6429 (generally referred to as "ANSI
+color" for the color codes).  The non-color control codes (bold, dark,
+italic, underline, and reverse) are part of the earlier ANSI X3.64
+standard for control sequences for video terminals and peripherals.
+
+Note that not all displays are ISO 6429-compliant, or even X3.64-compliant
+(or are even attempting to be so).  This module will not work as expected
+on displays that do not honor these escape sequences, such as cmd.exe,
+4nt.exe, and command.com under either Windows NT or Windows 2000.  They
+may just be ignored, or they may display as an ESC character followed by
+some apparent garbage.
+
+Jean Delvare provided the following table of different common terminal
+emulators and their support for the various attributes and others have
+helped me flesh it out:
+
+              clear    bold     faint   under    blink   reverse  conceal
+ ------------------------------------------------------------------------
+ xterm         yes      yes      no      yes      yes      yes      yes
+ linux         yes      yes      yes    bold      yes      yes      no
+ rxvt          yes      yes      no      yes  bold/black   yes      no
+ dtterm        yes      yes      yes     yes    reverse    yes      yes
+ teraterm      yes    reverse    no      yes    rev/red    yes      no
+ aixterm      kinda   normal     no      yes      no       yes      yes
+ PuTTY         yes     color     no      yes      no       yes      no
+ Windows       yes      no       no      no       no       yes      no
+ Cygwin SSH    yes      yes      no     color    color    color     yes
+ Terminal.app  yes      yes      no      yes      yes      yes      yes
+
+Windows is Windows telnet, Cygwin SSH is the OpenSSH implementation under
+Cygwin on Windows NT, and Mac Terminal is the Terminal application in Mac
+OS X.  Where the entry is other than yes or no, that emulator displays the
+given attribute as something else instead.  Note that on an aixterm, clear
+doesn't reset colors; you have to explicitly set the colors back to what
+you want.  More entries in this table are welcome.
+
+Support for code 3 (italic) is rare and therefore not mentioned in that
+table.  It is not believed to be fully supported by any of the terminals
+listed, although it's displayed as green in the Linux console, but it is
+reportedly supported by urxvt.
+
+Note that codes 6 (rapid blink) and 9 (strike-through) are specified in
+ANSI X3.64 and ECMA-048 but are not commonly supported by most displays
+and emulators and therefore aren't supported by this module at the present
+time.  ECMA-048 also specifies a large number of other attributes,
+including a sequence of attributes for font changes, Fraktur characters,
+double-underlining, framing, circling, and overlining.  As none of these
+attributes are widely supported or useful, they also aren't currently
+supported by this module.
+
+Most modern X terminal emulators support 256 colors.  Known to not support
+those colors are aterm, rxvt, Terminal.app, and TTY/VC.
+
+=head1 AUTHORS
+
+Original idea (using constants) by Zenin, reimplemented using subs by Russ
+Allbery <rra@cpan.org>, and then combined with the original idea by
+Russ with input from Zenin.  256-color support is based on work by Kurt
+Starsinic.  Russ Allbery now maintains this module.
+
+PUSHCOLOR, POPCOLOR, and LOCALCOLOR were contributed by openmethods.com
+voice solutions.
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright 1996 Zenin
+
+Copyright 1996, 1997, 1998, 2000, 2001, 2002, 2005, 2006, 2008, 2009, 2010,
+2011, 2012, 2013, 2014, 2015 Russ Allbery <rra@cpan.org>
+
+Copyright 2012 Kurt Starsinic <kstarsinic@gmail.com>
+
+This program is free software; you may redistribute it and/or modify it
+under the same terms as Perl itself.
+
+=head1 SEE ALSO
+
+The CPAN module L<Term::ExtendedColor> provides a different and more
+comprehensive interface for 256-color emulators that may be more
+convenient.  The CPAN module L<Win32::Console::ANSI> provides ANSI color
+(and other escape sequence) support in the Win32 Console environment.
+
+ECMA-048 is available on-line (at least at the time of this writing) at
+L<http://www.ecma-international.org/publications/standards/Ecma-048.htm>.
+
+ISO 6429 is available from ISO for a charge; the author of this module
+does not own a copy of it.  Since the source material for ISO 6429 was
+ECMA-048 and the latter is available for free, there seems little reason
+to obtain the ISO standard.
+
+The 256-color control sequences are documented at
+L<http://invisible-island.net/xterm/ctlseqs/ctlseqs.html> (search for
+256-color).
+
+The current version of this module is always available from its web site
+at L<http://www.eyrie.org/~eagle/software/ansicolor/>.  It is also part of
+the Perl core distribution as of 5.6.0.
+
+=cut
diff --git a/lib/5.24.1/Term/Cap.pm b/lib/5.24.1/Term/Cap.pm
new file mode 100644
index 00000000..12d8299a
--- /dev/null
+++ b/lib/5.24.1/Term/Cap.pm
@@ -0,0 +1,772 @@
+package Term::Cap;
+
+# Since the debugger uses Term::ReadLine which uses Term::Cap, we want
+# to load as few modules as possible.  This includes Carp.pm.
+sub carp
+{
+    require Carp;
+    goto &Carp::carp;
+}
+
+sub croak
+{
+    require Carp;
+    goto &Carp::croak;
+}
+
+use strict;
+
+use vars qw($VERSION $VMS_TERMCAP);
+use vars qw($termpat $state $first $entry);
+
+$VERSION = '1.17';
+
+# TODO:
+# support Berkeley DB termcaps
+# force $FH into callers package?
+# keep $FH in object at Tgetent time?
+
+=head1 NAME
+
+Term::Cap - Perl termcap interface
+
+=head1 SYNOPSIS
+
+    require Term::Cap;
+    $terminal = Tgetent Term::Cap { TERM => undef, OSPEED => $ospeed };
+    $terminal->Trequire(qw/ce ku kd/);
+    $terminal->Tgoto('cm', $col, $row, $FH);
+    $terminal->Tputs('dl', $count, $FH);
+    $terminal->Tpad($string, $count, $FH);
+
+=head1 DESCRIPTION
+
+These are low-level functions to extract and use capabilities from
+a terminal capability (termcap) database.
+
+More information on the terminal capabilities will be found in the
+termcap manpage on most Unix-like systems.
+
+=head2 METHODS
+
+The output strings for B<Tputs> are cached for counts of 1 for performance.
+B<Tgoto> and B<Tpad> do not cache.  C<$self-E<gt>{_xx}> is the raw termcap
+data and C<$self-E<gt>{xx}> is the cached version.
+
+    print $terminal->Tpad($self->{_xx}, 1);
+
+B<Tgoto>, B<Tputs>, and B<Tpad> return the string and will also
+output the string to $FH if specified.
+
+
+=cut
+
+# Preload the default VMS termcap.
+# If a different termcap is required then the text of one can be supplied
+# in $Term::Cap::VMS_TERMCAP before Tgetent is called.
+
+if ( $^O eq 'VMS' )
+{
+    chomp( my @entry = <DATA> );
+    $VMS_TERMCAP = join '', @entry;
+}
+
+# Returns a list of termcap files to check.
+
+sub termcap_path
+{    ## private
+    my @termcap_path;
+
+    # $TERMCAP, if it's a filespec
+    push( @termcap_path, $ENV{TERMCAP} )
+      if (
+        ( exists $ENV{TERMCAP} )
+        && (
+            ( $^O eq 'os2' || $^O eq 'MSWin32' || $^O eq 'dos' )
+            ? $ENV{TERMCAP} =~ /^[a-z]:[\\\/]/is
+            : $ENV{TERMCAP} =~ /^\//s
+        )
+      );
+    if ( ( exists $ENV{TERMPATH} ) && ( $ENV{TERMPATH} ) )
+    {
+
+        # Add the users $TERMPATH
+        push( @termcap_path, split( /(:|\s+)/, $ENV{TERMPATH} ) );
+    }
+    else
+    {
+
+        # Defaults
+        push( @termcap_path,
+            exists $ENV{'HOME'} ? $ENV{'HOME'} . '/.termcap' : undef,
+            '/etc/termcap', '/usr/share/misc/termcap', );
+    }
+
+    # return the list of those termcaps that exist
+    return grep { defined $_ && -f $_ } @termcap_path;
+}
+
+=over 4
+
+=item B<Tgetent>
+
+Returns a blessed object reference which the user can
+then use to send the control strings to the terminal using B<Tputs>
+and B<Tgoto>.
+
+The function extracts the entry of the specified terminal
+type I<TERM> (defaults to the environment variable I<TERM>) from the
+database.
+
+It will look in the environment for a I<TERMCAP> variable.  If
+found, and the value does not begin with a slash, and the terminal
+type name is the same as the environment string I<TERM>, the
+I<TERMCAP> string is used instead of reading a termcap file.  If
+it does begin with a slash, the string is used as a path name of
+the termcap file to search.  If I<TERMCAP> does not begin with a
+slash and name is different from I<TERM>, B<Tgetent> searches the
+files F<$HOME/.termcap>, F</etc/termcap>, and F</usr/share/misc/termcap>,
+in that order, unless the environment variable I<TERMPATH> exists,
+in which case it specifies a list of file pathnames (separated by
+spaces or colons) to be searched B<instead>.  Whenever multiple
+files are searched and a tc field occurs in the requested entry,
+the entry it names must be found in the same file or one of the
+succeeding files.  If there is a C<:tc=...:> in the I<TERMCAP>
+environment variable string it will continue the search in the
+files as above.
+
+The extracted termcap entry is available in the object
+as C<$self-E<gt>{TERMCAP}>.
+
+It takes a hash reference as an argument with two optional keys:
+
+=over 2
+
+=item OSPEED
+
+The terminal output bit rate (often mistakenly called the baud rate)
+for this terminal - if not set a warning will be generated
+and it will be defaulted to 9600.  I<OSPEED> can be specified as
+either a POSIX termios/SYSV termio speeds (where 9600 equals 9600) or
+an old DSD-style speed ( where 13 equals 9600).
+
+
+=item TERM
+
+The terminal type whose termcap entry will be used - if not supplied it will
+default to $ENV{TERM}: if that is not set then B<Tgetent> will croak.
+
+=back
+
+It calls C<croak> on failure.
+
+=cut
+
+sub Tgetent
+{    ## public -- static method
+    my $class = shift;
+    my ($self) = @_;
+
+    $self = {} unless defined $self;
+    bless $self, $class;
+
+    my ( $term, $cap, $search, $field, $max, $tmp_term, $TERMCAP );
+    local ( $termpat, $state, $first, $entry );    # used inside eval
+    local $_;
+
+    # Compute PADDING factor from OSPEED (to be used by Tpad)
+    if ( !$self->{OSPEED} )
+    {
+        if ($^W)
+        {
+            carp "OSPEED was not set, defaulting to 9600";
+        }
+        $self->{OSPEED} = 9600;
+    }
+    if ( $self->{OSPEED} < 16 )
+    {
+
+        # delays for old style speeds
+        my @pad = (
+            0,    200, 133.3, 90.9, 74.3, 66.7, 50, 33.3,
+            16.7, 8.3, 5.5,   4.1,  2,    1,    .5, .2
+        );
+        $self->{PADDING} = $pad[ $self->{OSPEED} ];
+    }
+    else
+    {
+        $self->{PADDING} = 10000 / $self->{OSPEED};
+    }
+
+    unless ( $self->{TERM} )
+    {
+       if ( $ENV{TERM} )
+       {
+         $self->{TERM} =  $ENV{TERM} ;
+       }
+       else
+       {
+          if ( $^O eq 'MSWin32' )
+          {
+             $self->{TERM} =  'dumb';
+          }
+          else
+          {
+             croak "TERM not set";
+          }
+       }
+    }
+
+    $term = $self->{TERM};    # $term is the term type we are looking for
+
+    # $tmp_term is always the next term (possibly :tc=...:) we are looking for
+    $tmp_term = $self->{TERM};
+
+    # protect any pattern metacharacters in $tmp_term
+    $termpat = $tmp_term;
+    $termpat =~ s/(\W)/\\$1/g;
+
+    my $foo = ( exists $ENV{TERMCAP} ? $ENV{TERMCAP} : '' );
+
+    # $entry is the extracted termcap entry
+    if ( ( $foo !~ m:^/:s ) && ( $foo =~ m/(^|\|)${termpat}[:|]/s ) )
+    {
+        $entry = $foo;
+    }
+
+    my @termcap_path = termcap_path();
+
+    if ( !@termcap_path && !$entry )
+    {
+
+        # last resort--fake up a termcap from terminfo
+        local $ENV{TERM} = $term;
+
+        if ( $^O eq 'VMS' )
+        {
+            $entry = $VMS_TERMCAP;
+        }
+        else
+        {
+            if ( grep { -x "$_/infocmp" } split /:/, $ENV{PATH} )
+            {
+                eval {
+                    my $tmp = `infocmp -C 2>/dev/null`;
+                    $tmp =~ s/^#.*\n//gm;    # remove comments
+                    if (   ( $tmp !~ m%^/%s )
+                        && ( $tmp =~ /(^|\|)${termpat}[:|]/s ) )
+                    {
+                        $entry = $tmp;
+                    }
+                };
+                warn "Can't run infocmp to get a termcap entry: $@" if $@;
+            }
+            else
+            {
+               # this is getting desperate now
+               if ( $self->{TERM} eq 'dumb' )
+               {
+                  $entry = 'dumb|80-column dumb tty::am::co#80::bl=^G:cr=^M:do=^J:sf=^J:';
+               }
+            }
+        }
+    }
+
+    croak "Can't find a valid termcap file" unless @termcap_path || $entry;
+
+    $state = 1;    # 0 == finished
+                   # 1 == next file
+                   # 2 == search again
+
+    $first = 0;    # first entry (keeps term name)
+
+    $max = 32;     # max :tc=...:'s
+
+    if ($entry)
+    {
+
+        # ok, we're starting with $TERMCAP
+        $first++;    # we're the first entry
+                     # do we need to continue?
+        if ( $entry =~ s/:tc=([^:]+):/:/ )
+        {
+            $tmp_term = $1;
+
+            # protect any pattern metacharacters in $tmp_term
+            $termpat = $tmp_term;
+            $termpat =~ s/(\W)/\\$1/g;
+        }
+        else
+        {
+            $state = 0;    # we're already finished
+        }
+    }
+
+    # This is eval'ed inside the while loop for each file
+    $search = q{
+	while (<TERMCAP>) {
+	    next if /^\\t/ || /^#/;
+	    if ($_ =~ m/(^|\\|)${termpat}[:|]/o) {
+		chomp;
+		s/^[^:]*:// if $first++;
+		$state = 0;
+		while ($_ =~ s/\\\\$//) {
+		    defined(my $x = <TERMCAP>) or last;
+		    $_ .= $x; chomp;
+		}
+		last;
+	    }
+	}
+	defined $entry or $entry = '';
+	$entry .= $_ if $_;
+    };
+
+    while ( $state != 0 )
+    {
+        if ( $state == 1 )
+        {
+
+            # get the next TERMCAP
+            $TERMCAP = shift @termcap_path
+              || croak "failed termcap lookup on $tmp_term";
+        }
+        else
+        {
+
+            # do the same file again
+            # prevent endless recursion
+            $max-- || croak "failed termcap loop at $tmp_term";
+            $state = 1;    # ok, maybe do a new file next time
+        }
+
+        open( TERMCAP, "< $TERMCAP\0" ) || croak "open $TERMCAP: $!";
+        eval $search;
+        die $@ if $@;
+        close TERMCAP;
+
+        # If :tc=...: found then search this file again
+        $entry =~ s/:tc=([^:]+):/:/ && ( $tmp_term = $1, $state = 2 );
+
+        # protect any pattern metacharacters in $tmp_term
+        $termpat = $tmp_term;
+        $termpat =~ s/(\W)/\\$1/g;
+    }
+
+    croak "Can't find $term" if $entry eq '';
+    $entry =~ s/:+\s*:+/:/g;    # cleanup $entry
+    $entry =~ s/:+/:/g;         # cleanup $entry
+    $self->{TERMCAP} = $entry;  # save it
+                                # print STDERR "DEBUG: $entry = ", $entry, "\n";
+
+    # Precompile $entry into the object
+    $entry =~ s/^[^:]*://;
+    foreach $field ( split( /:[\s:\\]*/, $entry ) )
+    {
+        if ( defined $field && $field =~ /^(\w{2,})$/ )
+        {
+            $self->{ '_' . $field } = 1 unless defined $self->{ '_' . $1 };
+
+            # print STDERR "DEBUG: flag $1\n";
+        }
+        elsif ( defined $field && $field =~ /^(\w{2,})\@/ )
+        {
+            $self->{ '_' . $1 } = "";
+
+            # print STDERR "DEBUG: unset $1\n";
+        }
+        elsif ( defined $field && $field =~ /^(\w{2,})#(.*)/ )
+        {
+            $self->{ '_' . $1 } = $2 unless defined $self->{ '_' . $1 };
+
+            # print STDERR "DEBUG: numeric $1 = $2\n";
+        }
+        elsif ( defined $field && $field =~ /^(\w{2,})=(.*)/ )
+        {
+
+            # print STDERR "DEBUG: string $1 = $2\n";
+            next if defined $self->{ '_' . ( $cap = $1 ) };
+            $_ = $2;
+            if ( ord('A') == 193 )
+            {
+               s/\\E/\047/g;
+               s/\\(\d\d\d)/pack('c',oct($1) & 0177)/eg;
+               s/\\n/\n/g;
+               s/\\r/\r/g;
+               s/\\t/\t/g;
+               s/\\b/\b/g;
+               s/\\f/\f/g;
+               s/\\\^/\337/g;
+               s/\^\?/\007/g;
+               s/\^(.)/pack('c',ord($1) & 31)/eg;
+               s/\\(.)/$1/g;
+               s/\337/^/g;
+            }
+            else
+            {
+               s/\\E/\033/g;
+               s/\\(\d\d\d)/pack('c',oct($1) & 0177)/eg;
+               s/\\n/\n/g;
+               s/\\r/\r/g;
+               s/\\t/\t/g;
+               s/\\b/\b/g;
+               s/\\f/\f/g;
+               s/\\\^/\377/g;
+               s/\^\?/\177/g;
+               s/\^(.)/pack('c',ord($1) & 31)/eg;
+               s/\\(.)/$1/g;
+               s/\377/^/g;
+            }
+            $self->{ '_' . $cap } = $_;
+        }
+
+        # else { carp "junk in $term ignored: $field"; }
+    }
+    $self->{'_pc'} = "\0" unless defined $self->{'_pc'};
+    $self->{'_bc'} = "\b" unless defined $self->{'_bc'};
+    $self;
+}
+
+# $terminal->Tpad($string, $cnt, $FH);
+
+=item B<Tpad>
+
+Outputs a literal string with appropriate padding for the current terminal.
+
+It takes three arguments:
+
+=over 2
+
+=item B<$string>
+
+The literal string to be output.  If it starts with a number and an optional
+'*' then the padding will be increased by an amount relative to this number,
+if the '*' is present then this amount will be multiplied by $cnt.  This part
+of $string is removed before output/
+
+=item B<$cnt>
+
+Will be used to modify the padding applied to string as described above.
+
+=item B<$FH>
+
+An optional filehandle (or IO::Handle ) that output will be printed to.
+
+=back
+
+The padded $string is returned.
+
+=cut
+
+sub Tpad
+{    ## public
+    my $self = shift;
+    my ( $string, $cnt, $FH ) = @_;
+    my ( $decr, $ms );
+
+    if ( defined $string && $string =~ /(^[\d.]+)(\*?)(.*)$/ )
+    {
+        $ms = $1;
+        $ms *= $cnt if $2;
+        $string = $3;
+        $decr   = $self->{PADDING};
+        if ( $decr > .1 )
+        {
+            $ms += $decr / 2;
+            $string .= $self->{'_pc'} x ( $ms / $decr );
+        }
+    }
+    print $FH $string if $FH;
+    $string;
+}
+
+# $terminal->Tputs($cap, $cnt, $FH);
+
+=item B<Tputs>
+
+Output the string for the given capability padded as appropriate without
+any parameter substitution.
+
+It takes three arguments:
+
+=over 2
+
+=item B<$cap>
+
+The capability whose string is to be output.
+
+=item B<$cnt>
+
+A count passed to Tpad to modify the padding applied to the output string.
+If $cnt is zero or one then the resulting string will be cached.
+
+=item B<$FH>
+
+An optional filehandle (or IO::Handle ) that output will be printed to.
+
+=back
+
+The appropriate string for the capability will be returned.
+
+=cut
+
+sub Tputs
+{    ## public
+    my $self = shift;
+    my ( $cap, $cnt, $FH ) = @_;
+    my $string;
+
+    $cnt = 0 unless $cnt;
+
+    if ( $cnt > 1 )
+    {
+        $string = Tpad( $self, $self->{ '_' . $cap }, $cnt );
+    }
+    else
+    {
+
+        # cache result because Tpad can be slow
+        unless ( exists $self->{$cap} )
+        {
+            $self->{$cap} =
+              exists $self->{"_$cap"}
+              ? Tpad( $self, $self->{"_$cap"}, 1 )
+              : undef;
+        }
+        $string = $self->{$cap};
+    }
+    print $FH $string if $FH;
+    $string;
+}
+
+# $terminal->Tgoto($cap, $col, $row, $FH);
+
+=item B<Tgoto>
+
+B<Tgoto> decodes a cursor addressing string with the given parameters.
+
+There are four arguments:
+
+=over 2
+
+=item B<$cap>
+
+The name of the capability to be output.
+
+=item B<$col>
+
+The first value to be substituted in the output string ( usually the column
+in a cursor addressing capability )
+
+=item B<$row>
+
+The second value to be substituted in the output string (usually the row
+in cursor addressing capabilities)
+
+=item B<$FH>
+
+An optional filehandle (or IO::Handle ) to which the output string will be
+printed.
+
+=back
+
+Substitutions are made with $col and $row in the output string with the
+following sprintf() line formats:
+
+ %%   output `%'
+ %d   output value as in printf %d
+ %2   output value as in printf %2d
+ %3   output value as in printf %3d
+ %.   output value as in printf %c
+ %+x  add x to value, then do %.
+
+ %>xy if value > x then add y, no output
+ %r   reverse order of two parameters, no output
+ %i   increment by one, no output
+ %B   BCD (16*(value/10)) + (value%10), no output
+
+ %n   exclusive-or all parameters with 0140 (Datamedia 2500)
+ %D   Reverse coding (value - 2*(value%16)), no output (Delta Data)
+
+The output string will be returned.
+
+=cut
+
+sub Tgoto
+{    ## public
+    my $self = shift;
+    my ( $cap, $code, $tmp, $FH ) = @_;
+    my $string = $self->{ '_' . $cap };
+    my $result = '';
+    my $after  = '';
+    my $online = 0;
+    my @tmp    = ( $tmp, $code );
+    my $cnt    = $code;
+
+    while ( $string =~ /^([^%]*)%(.)(.*)/ )
+    {
+        $result .= $1;
+        $code   = $2;
+        $string = $3;
+        if ( $code eq 'd' )
+        {
+            $result .= sprintf( "%d", shift(@tmp) );
+        }
+        elsif ( $code eq '.' )
+        {
+            $tmp = shift(@tmp);
+            if ( $tmp == 0 || $tmp == 4 || $tmp == 10 )
+            {
+                if ($online)
+                {
+                    ++$tmp, $after .= $self->{'_up'} if $self->{'_up'};
+                }
+                else
+                {
+                    ++$tmp, $after .= $self->{'_bc'};
+                }
+            }
+            $result .= sprintf( "%c", $tmp );
+            $online = !$online;
+        }
+        elsif ( $code eq '+' )
+        {
+            $result .= sprintf( "%c", shift(@tmp) + ord($string) );
+            $string = substr( $string, 1, 99 );
+            $online = !$online;
+        }
+        elsif ( $code eq 'r' )
+        {
+            ( $code, $tmp ) = @tmp;
+            @tmp = ( $tmp, $code );
+            $online = !$online;
+        }
+        elsif ( $code eq '>' )
+        {
+            ( $code, $tmp, $string ) = unpack( "CCa99", $string );
+            if ( $tmp[0] > $code )
+            {
+                $tmp[0] += $tmp;
+            }
+        }
+        elsif ( $code eq '2' )
+        {
+            $result .= sprintf( "%02d", shift(@tmp) );
+            $online = !$online;
+        }
+        elsif ( $code eq '3' )
+        {
+            $result .= sprintf( "%03d", shift(@tmp) );
+            $online = !$online;
+        }
+        elsif ( $code eq 'i' )
+        {
+            ( $code, $tmp ) = @tmp;
+            @tmp = ( $code + 1, $tmp + 1 );
+        }
+        else
+        {
+            return "OOPS";
+        }
+    }
+    $string = Tpad( $self, $result . $string . $after, $cnt );
+    print $FH $string if $FH;
+    $string;
+}
+
+# $terminal->Trequire(qw/ce ku kd/);
+
+=item B<Trequire>
+
+Takes a list of capabilities as an argument and will croak if one is not
+found.
+
+=cut
+
+sub Trequire
+{    ## public
+    my $self = shift;
+    my ( $cap, @undefined );
+    foreach $cap (@_)
+    {
+        push( @undefined, $cap )
+          unless defined $self->{ '_' . $cap } && $self->{ '_' . $cap };
+    }
+    croak "Terminal does not support: (@undefined)" if @undefined;
+}
+
+=back
+
+=head1 EXAMPLES
+
+    use Term::Cap;
+
+    # Get terminal output speed
+    require POSIX;
+    my $termios = new POSIX::Termios;
+    $termios->getattr;
+    my $ospeed = $termios->getospeed;
+
+    # Old-style ioctl code to get ospeed:
+    #     require 'ioctl.pl';
+    #     ioctl(TTY,$TIOCGETP,$sgtty);
+    #     ($ispeed,$ospeed) = unpack('cc',$sgtty);
+
+    # allocate and initialize a terminal structure
+    $terminal = Tgetent Term::Cap { TERM => undef, OSPEED => $ospeed };
+
+    # require certain capabilities to be available
+    $terminal->Trequire(qw/ce ku kd/);
+
+    # Output Routines, if $FH is undefined these just return the string
+
+    # Tgoto does the % expansion stuff with the given args
+    $terminal->Tgoto('cm', $col, $row, $FH);
+
+    # Tputs doesn't do any % expansion.
+    $terminal->Tputs('dl', $count = 1, $FH);
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright 1995-2015 (c) perl5 porters.
+
+This software is free software and can be modified and distributed under
+the same terms as Perl itself.
+
+Please see the file README in the Perl source distribution for details of
+the Perl license.
+
+=head1 AUTHOR
+
+This module is part of the core Perl distribution and is also maintained
+for CPAN by Jonathan Stowe <jns@gellyfish.co.uk>.
+
+The code is hosted on Github: https://github.com/jonathanstowe/Term-Cap
+please feel free to fork, submit patches etc, etc there.
+
+=head1 SEE ALSO
+
+termcap(5)
+
+=cut
+
+# Below is a default entry for systems where there are terminals but no
+# termcap
+1;
+__DATA__
+vt220|vt200|DEC VT220 in vt100 emulation mode:
+am:mi:xn:xo:
+co#80:li#24:
+RA=\E[?7l:SA=\E[?7h:
+ac=kkllmmjjnnwwqquuttvvxx:ae=\E(B:al=\E[L:as=\E(0:
+bl=^G:cd=\E[J:ce=\E[K:cl=\E[H\E[2J:cm=\E[%i%d;%dH:
+cr=^M:cs=\E[%i%d;%dr:dc=\E[P:dl=\E[M:do=\E[B:
+ei=\E[4l:ho=\E[H:im=\E[4h:
+is=\E[1;24r\E[24;1H:
+nd=\E[C:
+kd=\E[B::kl=\E[D:kr=\E[C:ku=\E[A:le=^H:
+mb=\E[5m:md=\E[1m:me=\E[m:mr=\E[7m:
+kb=\0177:
+r2=\E>\E[24;1H\E[?3l\E[?4l\E[?5l\E[?7h\E[?8h\E=:rc=\E8:
+sc=\E7:se=\E[27m:sf=\ED:so=\E[7m:sr=\EM:ta=^I:
+ue=\E[24m:up=\E[A:us=\E[4m:ve=\E[?25h:vi=\E[?25l:
+
diff --git a/lib/5.24.1/Term/Complete.pm b/lib/5.24.1/Term/Complete.pm
new file mode 100644
index 00000000..4d0e79eb
--- /dev/null
+++ b/lib/5.24.1/Term/Complete.pm
@@ -0,0 +1,188 @@
+package Term::Complete;
+require 5.000;
+require Exporter;
+
+use strict;
+our @ISA = qw(Exporter);
+our @EXPORT = qw(Complete);
+our $VERSION = '1.403';
+
+#      @(#)complete.pl,v1.2            (me@anywhere.EBay.Sun.COM) 09/23/91
+
+=head1 NAME
+
+Term::Complete - Perl word completion module
+
+=head1 SYNOPSIS
+
+    $input = Complete('prompt_string', \@completion_list);
+    $input = Complete('prompt_string', @completion_list);
+
+=head1 DESCRIPTION
+
+This routine provides word completion on the list of words in
+the array (or array ref).
+
+The tty driver is put into raw mode and restored using an operating
+system specific command, in UNIX-like environments C<stty>.
+
+The following command characters are defined:
+
+=over 4
+
+=item E<lt>tabE<gt>
+
+Attempts word completion.
+Cannot be changed.
+
+=item ^D
+
+Prints completion list.
+Defined by I<$Term::Complete::complete>.
+
+=item ^U
+
+Erases the current input.
+Defined by I<$Term::Complete::kill>.
+
+=item E<lt>delE<gt>, E<lt>bsE<gt>
+
+Erases one character.
+Defined by I<$Term::Complete::erase1> and I<$Term::Complete::erase2>.
+
+=back
+
+=head1 DIAGNOSTICS
+
+Bell sounds when word completion fails.
+
+=head1 BUGS
+
+The completion character E<lt>tabE<gt> cannot be changed.
+
+=head1 AUTHOR
+
+Wayne Thompson
+
+=cut
+
+our($complete, $kill, $erase1, $erase2, $tty_raw_noecho, $tty_restore, $stty, $tty_safe_restore);
+our($tty_saved_state) = '';
+CONFIG: {
+    $complete = "\004";
+    $kill     = "\025";
+    $erase1 =   "\177";
+    $erase2 =   "\010";
+    foreach my $s (qw(/bin/stty /usr/bin/stty)) {
+	if (-x $s) {
+	    $tty_raw_noecho = "$s raw -echo";
+	    $tty_restore    = "$s -raw echo";
+	    $tty_safe_restore = $tty_restore;
+	    $stty = $s;
+	    last;
+	}
+    }
+}
+
+sub Complete {
+    my($prompt, @cmp_lst, $cmp, $test, $l, @match);
+    my ($return, $r) = ("", 0);
+
+    $return = "";
+    $r      = 0;
+
+    $prompt = shift;
+    if (ref $_[0] || $_[0] =~ /^\*/) {
+	@cmp_lst = sort @{$_[0]};
+    }
+    else {
+	@cmp_lst = sort(@_);
+    }
+
+    # Attempt to save the current stty state, to be restored later
+    if (defined $stty && defined $tty_saved_state && $tty_saved_state eq '') {
+	$tty_saved_state = qx($stty -g 2>/dev/null);
+	if ($?) {
+	    # stty -g not supported
+	    $tty_saved_state = undef;
+	}
+	else {
+	    $tty_saved_state =~ s/\s+$//g;
+	    $tty_restore = qq($stty "$tty_saved_state" 2>/dev/null);
+	}
+    }
+    system $tty_raw_noecho if defined $tty_raw_noecho;
+    LOOP: {
+        local $_;
+        print($prompt, $return);
+        while (($_ = getc(STDIN)) ne "\r") {
+            CASE: {
+                # (TAB) attempt completion
+                $_ eq "\t" && do {
+                    @match = grep(/^\Q$return/, @cmp_lst);
+                    unless ($#match < 0) {
+                        $l = length($test = shift(@match));
+                        foreach $cmp (@match) {
+                            until (substr($cmp, 0, $l) eq substr($test, 0, $l)) {
+                                $l--;
+                            }
+                        }
+                        print("\a");
+                        print($test = substr($test, $r, $l - $r));
+                        $r = length($return .= $test);
+                    }
+                    last CASE;
+                };
+
+                # (^D) completion list
+                $_ eq $complete && do {
+                    print(join("\r\n", '', grep(/^\Q$return/, @cmp_lst)), "\r\n");
+                    redo LOOP;
+                };
+
+                # (^U) kill
+                $_ eq $kill && do {
+                    if ($r) {
+                        $r	= 0;
+			$return	= "";
+                        print("\r\n");
+                        redo LOOP;
+                    }
+                    last CASE;
+                };
+
+                # (DEL) || (BS) erase
+                ($_ eq $erase1 || $_ eq $erase2) && do {
+                    if($r) {
+                        print("\b \b");
+                        chop($return);
+                        $r--;
+                    }
+                    last CASE;
+                };
+
+                # printable char
+                ord >= ord(" ") && do {
+                    $return .= $_;
+                    $r++;
+                    print;
+                    last CASE;
+                };
+            }
+        }
+    }
+
+    # system $tty_restore if defined $tty_restore;
+    if (defined $tty_saved_state && defined $tty_restore && defined $tty_safe_restore)
+    {
+	system $tty_restore;
+	if ($?) {
+	    # tty_restore caused error
+	    system $tty_safe_restore;
+	}
+    }
+    print("\n");
+    $return;
+}
+
+1;
diff --git a/lib/5.24.1/Term/ReadLine.pm b/lib/5.24.1/Term/ReadLine.pm
new file mode 100644
index 00000000..db089479
--- /dev/null
+++ b/lib/5.24.1/Term/ReadLine.pm
@@ -0,0 +1,481 @@
+=head1 NAME
+
+Term::ReadLine - Perl interface to various C<readline> packages.
+If no real package is found, substitutes stubs instead of basic functions.
+
+=head1 SYNOPSIS
+
+  use Term::ReadLine;
+  my $term = Term::ReadLine->new('Simple Perl calc');
+  my $prompt = "Enter your arithmetic expression: ";
+  my $OUT = $term->OUT || \*STDOUT;
+  while ( defined ($_ = $term->readline($prompt)) ) {
+    my $res = eval($_);
+    warn $@ if $@;
+    print $OUT $res, "\n" unless $@;
+    $term->addhistory($_) if /\S/;
+  }
+
+=head1 DESCRIPTION
+
+This package is just a front end to some other packages. It's a stub to
+set up a common interface to the various ReadLine implementations found on
+CPAN (under the C<Term::ReadLine::*> namespace).
+
+=head1 Minimal set of supported functions
+
+All the supported functions should be called as methods, i.e., either as 
+
+  $term = Term::ReadLine->new('name');
+
+or as 
+
+  $term->addhistory('row');
+
+where $term is a return value of Term::ReadLine-E<gt>new().
+
+=over 12
+
+=item C<ReadLine>
+
+returns the actual package that executes the commands. Among possible
+values are C<Term::ReadLine::Gnu>, C<Term::ReadLine::Perl>,
+C<Term::ReadLine::Stub>.
+
+=item C<new>
+
+returns the handle for subsequent calls to following
+functions. Argument is the name of the application. Optionally can be
+followed by two arguments for C<IN> and C<OUT> filehandles. These
+arguments should be globs.
+
+=item C<readline>
+
+gets an input line, I<possibly> with actual C<readline>
+support. Trailing newline is removed. Returns C<undef> on C<EOF>.
+
+=item C<addhistory>
+
+adds the line to the history of input, from where it can be used if
+the actual C<readline> is present.
+
+=item C<IN>, C<OUT>
+
+return the filehandles for input and output or C<undef> if C<readline>
+input and output cannot be used for Perl.
+
+=item C<MinLine>
+
+If argument is specified, it is an advice on minimal size of line to
+be included into history.  C<undef> means do not include anything into
+history. Returns the old value.
+
+=item C<findConsole>
+
+returns an array with two strings that give most appropriate names for
+files for input and output using conventions C<"E<lt>$in">, C<"E<gt>out">.
+
+=item Attribs
+
+returns a reference to a hash which describes internal configuration
+of the package. Names of keys in this hash conform to standard
+conventions with the leading C<rl_> stripped.
+
+=item C<Features>
+
+Returns a reference to a hash with keys being features present in
+current implementation. Several optional features are used in the
+minimal interface: C<appname> should be present if the first argument
+to C<new> is recognized, and C<minline> should be present if
+C<MinLine> method is not dummy.  C<autohistory> should be present if
+lines are put into history automatically (maybe subject to
+C<MinLine>), and C<addhistory> if C<addhistory> method is not dummy.
+
+If C<Features> method reports a feature C<attribs> as present, the
+method C<Attribs> is not dummy.
+
+=back
+
+=head1 Additional supported functions
+
+Actually C<Term::ReadLine> can use some other package, that will
+support a richer set of commands.
+
+All these commands are callable via method interface and have names
+which conform to standard conventions with the leading C<rl_> stripped.
+
+The stub package included with the perl distribution allows some
+additional methods: 
+
+=over 12
+
+=item C<tkRunning>
+
+makes Tk event loop run when waiting for user input (i.e., during
+C<readline> method).
+
+=item C<event_loop>
+
+Registers call-backs to wait for user input (i.e., during C<readline>
+method).  This supersedes tkRunning.
+
+The first call-back registered is the call back for waiting.  It is
+expected that the callback will call the current event loop until
+there is something waiting to get on the input filehandle.  The parameter
+passed in is the return value of the second call back.
+
+The second call-back registered is the call back for registration.  The
+input filehandle (often STDIN, but not necessarily) will be passed in.
+
+For example, with AnyEvent:
+
+  $term->event_loop(sub {
+    my $data = shift;
+    $data->[1] = AE::cv();
+    $data->[1]->recv();
+  }, sub {
+    my $fh = shift;
+    my $data = [];
+    $data->[0] = AE::io($fh, 0, sub { $data->[1]->send() });
+    $data;
+  });
+
+The second call-back is optional if the call back is registered prior to
+the call to $term-E<gt>readline.
+
+Deregistration is done in this case by calling event_loop with C<undef>
+as its parameter:
+
+    $term->event_loop(undef);
+
+This will cause the data array ref to be removed, allowing normal garbage
+collection to clean it up.  With AnyEvent, that will cause $data->[0] to
+be cleaned up, and AnyEvent will automatically cancel the watcher at that
+time.  If another loop requires more than that to clean up a file watcher,
+that will be up to the caller to handle.
+
+=item C<ornaments>
+
+makes the command line stand out by using termcap data.  The argument
+to C<ornaments> should be 0, 1, or a string of a form
+C<"aa,bb,cc,dd">.  Four components of this string should be names of
+I<terminal capacities>, first two will be issued to make the prompt
+standout, last two to make the input line standout.
+
+=item C<newTTY>
+
+takes two arguments which are input filehandle and output filehandle.
+Switches to use these filehandles.
+
+=back
+
+One can check whether the currently loaded ReadLine package supports
+these methods by checking for corresponding C<Features>.
+
+=head1 EXPORTS
+
+None
+
+=head1 ENVIRONMENT
+
+The environment variable C<PERL_RL> governs which ReadLine clone is
+loaded. If the value is false, a dummy interface is used. If the value
+is true, it should be tail of the name of the package to use, such as
+C<Perl> or C<Gnu>.  
+
+As a special case, if the value of this variable is space-separated,
+the tail might be used to disable the ornaments by setting the tail to
+be C<o=0> or C<ornaments=0>.  The head should be as described above, say
+
+If the variable is not set, or if the head of space-separated list is
+empty, the best available package is loaded.
+
+  export "PERL_RL=Perl o=0" # Use Perl ReadLine sans ornaments
+  export "PERL_RL= o=0"     # Use best available ReadLine sans ornaments
+
+(Note that processing of C<PERL_RL> for ornaments is in the discretion of the 
+particular used C<Term::ReadLine::*> package).
+
+=cut
+
+use strict;
+
+package Term::ReadLine::Stub;
+our @ISA = qw'Term::ReadLine::Tk Term::ReadLine::TermCap';
+
+$DB::emacs = $DB::emacs;	# To pacify -w
+our @rl_term_set;
+*rl_term_set = \@Term::ReadLine::TermCap::rl_term_set;
+
+sub PERL_UNICODE_STDIN () { 0x0001 }
+
+sub ReadLine {'Term::ReadLine::Stub'}
+sub readline {
+  my $self = shift;
+  my ($in,$out,$str) = @$self;
+  my $prompt = shift;
+  print $out $rl_term_set[0], $prompt, $rl_term_set[1], $rl_term_set[2]; 
+  $self->register_Tk 
+     if not $Term::ReadLine::registered and $Term::ReadLine::toloop;
+  #$str = scalar <$in>;
+  $str = $self->get_line;
+  utf8::upgrade($str)
+      if (${^UNICODE} & PERL_UNICODE_STDIN || defined ${^ENCODING}) &&
+         utf8::valid($str);
+  print $out $rl_term_set[3]; 
+  # bug in 5.000: chomping empty string creates length -1:
+  chomp $str if defined $str;
+  $str;
+}
+sub addhistory {}
+
+sub findConsole {
+    my $console;
+    my $consoleOUT;
+
+    if ($^O ne 'MSWin32' and -e "/dev/tty") {
+	$console = "/dev/tty";
+    } elsif ($^O eq 'MSWin32' or $^O eq 'msys' or -e "con") {
+       $console = 'CONIN$';
+       $consoleOUT = 'CONOUT$';
+    } elsif ($^O eq 'VMS') {
+	$console = "sys\$command";
+    } elsif ($^O eq 'os2' && !$DB::emacs) {
+	$console = "/dev/con";
+    } else {
+	$console = undef;
+    }
+
+    $consoleOUT = $console unless defined $consoleOUT;
+    $console = "&STDIN" unless defined $console;
+    if ($console eq "/dev/tty" && !open(my $fh, "<", $console)) {
+      $console = "&STDIN";
+      undef($consoleOUT);
+    }
+    if (!defined $consoleOUT) {
+      $consoleOUT = defined fileno(STDERR) && $^O ne 'MSWin32' ? "&STDERR" : "&STDOUT";
+    }
+    ($console,$consoleOUT);
+}
+
+sub new {
+  die "method new called with wrong number of arguments" 
+    unless @_==2 or @_==4;
+  #local (*FIN, *FOUT);
+  my ($FIN, $FOUT, $ret);
+  if (@_==2) {
+    my($console, $consoleOUT) = $_[0]->findConsole;
+
+
+    # the Windows CONIN$ needs GENERIC_WRITE mode to allow
+    # a SetConsoleMode() if we end up using Term::ReadKey
+    open FIN, (  $^O eq 'MSWin32' && $console eq 'CONIN$' ) ? "+<$console" :
+                                                              "<$console";
+    open FOUT,">$consoleOUT";
+
+    #OUT->autoflush(1);		# Conflicts with debugger?
+    my $sel = select(FOUT);
+    $| = 1;				# for DB::OUT
+    select($sel);
+    $ret = bless [\*FIN, \*FOUT];
+  } else {			# Filehandles supplied
+    $FIN = $_[2]; $FOUT = $_[3];
+    #OUT->autoflush(1);		# Conflicts with debugger?
+    my $sel = select($FOUT);
+    $| = 1;				# for DB::OUT
+    select($sel);
+    $ret = bless [$FIN, $FOUT];
+  }
+  if ($ret->Features->{ornaments} 
+      and not ($ENV{PERL_RL} and $ENV{PERL_RL} =~ /\bo\w*=0/)) {
+    local $Term::ReadLine::termcap_nowarn = 1;
+    $ret->ornaments(1);
+  }
+  return $ret;
+}
+
+sub newTTY {
+  my ($self, $in, $out) = @_;
+  $self->[0] = $in;
+  $self->[1] = $out;
+  my $sel = select($out);
+  $| = 1;				# for DB::OUT
+  select($sel);
+}
+
+sub IN { shift->[0] }
+sub OUT { shift->[1] }
+sub MinLine { undef }
+sub Attribs { {} }
+
+my %features = (tkRunning => 1, ornaments => 1, 'newTTY' => 1);
+sub Features { \%features }
+
+#sub get_line {
+#  my $self = shift;
+#  my $in = $self->IN;
+#  local ($/) = "\n";
+#  return scalar <$in>;
+#}
+
+package Term::ReadLine;		# So late to allow the above code be defined?
+
+our $VERSION = '1.15';
+
+my ($which) = exists $ENV{PERL_RL} ? split /\s+/, $ENV{PERL_RL} : undef;
+if ($which) {
+  if ($which =~ /\bgnu\b/i){
+    eval "use Term::ReadLine::Gnu;";
+  } elsif ($which =~ /\bperl\b/i) {
+    eval "use Term::ReadLine::Perl;";
+  } elsif ($which =~ /^(Stub|TermCap|Tk)$/) {
+    # it is already in memory to avoid false exception as seen in:
+    # PERL_RL=Stub perl -e'$SIG{__DIE__} = sub { print @_ }; require Term::ReadLine'
+  } else {
+    eval "use Term::ReadLine::$which;";
+  }
+} elsif (defined $which and $which ne '') {	# Defined but false
+  # Do nothing fancy
+} else {
+  eval "use Term::ReadLine::Gnu; 1" or eval "use Term::ReadLine::EditLine; 1" or eval "use Term::ReadLine::Perl; 1";
+}
+
+#require FileHandle;
+
+# To make possible switch off RL in debugger: (Not needed, work done
+# in debugger).
+our @ISA;
+if (defined &Term::ReadLine::Gnu::readline) {
+  @ISA = qw(Term::ReadLine::Gnu Term::ReadLine::Stub);
+} elsif (defined &Term::ReadLine::EditLine::readline) {
+  @ISA = qw(Term::ReadLine::EditLine Term::ReadLine::Stub);
+} elsif (defined &Term::ReadLine::Perl::readline) {
+  @ISA = qw(Term::ReadLine::Perl Term::ReadLine::Stub);
+} elsif (defined $which && defined &{"Term::ReadLine::$which\::readline"}) {
+  @ISA = "Term::ReadLine::$which";
+} else {
+  @ISA = qw(Term::ReadLine::Stub);
+}
+
+package Term::ReadLine::TermCap;
+
+# Prompt-start, prompt-end, command-line-start, command-line-end
+#     -- zero-width beautifies to emit around prompt and the command line.
+our @rl_term_set = ("","","","");
+# string encoded:
+our $rl_term_set = ',,,';
+
+our $terminal;
+sub LoadTermCap {
+  return if defined $terminal;
+  
+  require Term::Cap;
+  $terminal = Tgetent Term::Cap ({OSPEED => 9600}); # Avoid warning.
+}
+
+sub ornaments {
+  shift;
+  return $rl_term_set unless @_;
+  $rl_term_set = shift;
+  $rl_term_set ||= ',,,';
+  $rl_term_set = 'us,ue,md,me' if $rl_term_set eq '1';
+  my @ts = split /,/, $rl_term_set, 4;
+  eval { LoadTermCap };
+  unless (defined $terminal) {
+    warn("Cannot find termcap: $@\n") unless $Term::ReadLine::termcap_nowarn;
+    $rl_term_set = ',,,';
+    return;
+  }
+  @rl_term_set = map {$_ ? $terminal->Tputs($_,1) || '' : ''} @ts;
+  return $rl_term_set;
+}
+
+
+package Term::ReadLine::Tk;
+
+# This package inserts a Tk->fileevent() before the diamond operator.
+# The Tk watcher dispatches Tk events until the filehandle returned by
+# the$term->IN() accessor becomes ready for reading.  It's assumed
+# that the diamond operator will return a line of input immediately at
+# that point.
+
+my ($giveup);
+
+# maybe in the future the Tk-specific aspects will be removed.
+sub Tk_loop{
+    if (ref $Term::ReadLine::toloop)
+    {
+        $Term::ReadLine::toloop->[0]->($Term::ReadLine::toloop->[2]);
+    }
+    else
+    {
+        Tk::DoOneEvent(0) until $giveup;
+        $giveup = 0;
+    }
+};
+
+sub register_Tk {
+    my $self = shift;
+    unless ($Term::ReadLine::registered++)
+    {
+        if (ref $Term::ReadLine::toloop)
+        {
+            $Term::ReadLine::toloop->[2] = $Term::ReadLine::toloop->[1]->($self->IN) if $Term::ReadLine::toloop->[1];
+        }
+        else
+        {
+            Tk->fileevent($self->IN,'readable',sub { $giveup = 1});
+        }
+    }
+};
+
+sub tkRunning {
+  $Term::ReadLine::toloop = $_[1] if @_ > 1;
+  $Term::ReadLine::toloop;
+}
+
+sub event_loop {
+    shift;
+
+    # T::RL::Gnu and T::RL::Perl check that this exists, if not,
+    # it doesn't call the loop.  Those modules will need to be
+    # fixed before this can be removed.
+    if (not defined &Tk::DoOneEvent)
+    {
+        *Tk::DoOneEvent = sub {
+            die "what?"; # this shouldn't be called.
+        }
+    }
+
+    # store the callback in toloop, again so that other modules will
+    # recognise it and call us for the loop.
+    $Term::ReadLine::toloop = [ @_ ] if @_ > 0; # 0 because we shifted off $self.
+    $Term::ReadLine::toloop;
+}
+
+sub PERL_UNICODE_STDIN () { 0x0001 }
+
+sub get_line {
+  my $self = shift;
+  my ($in,$out,$str) = @$self;
+
+  if ($Term::ReadLine::toloop) {
+    $self->register_Tk if not $Term::ReadLine::registered;
+    $self->Tk_loop;
+  }
+
+  local ($/) = "\n";
+  $str = <$in>;
+
+  utf8::upgrade($str)
+      if (${^UNICODE} & PERL_UNICODE_STDIN || defined ${^ENCODING}) &&
+         utf8::valid($str);
+  print $out $rl_term_set[3];
+  # bug in 5.000: chomping empty string creates length -1:
+  chomp $str if defined $str;
+
+  $str;
+}
+
+1;
+
diff --git a/lib/5.24.1/Test.pm b/lib/5.24.1/Test.pm
new file mode 100644
index 00000000..3350517e
--- /dev/null
+++ b/lib/5.24.1/Test.pm
@@ -0,0 +1,986 @@
+
+require 5.004;
+package Test;
+
+use strict;
+
+use Carp;
+use vars (qw($VERSION @ISA @EXPORT @EXPORT_OK $ntest $TestLevel), #public-ish
+          qw($TESTOUT $TESTERR %Program_Lines $told_about_diff
+             $ONFAIL %todo %history $planned @FAILDETAIL) #private-ish
+         );
+
+# In case a test is run in a persistent environment.
+sub _reset_globals {
+    %todo       = ();
+    %history    = ();
+    @FAILDETAIL = ();
+    $ntest      = 1;
+    $TestLevel  = 0;		# how many extra stack frames to skip
+    $planned    = 0;
+}
+
+$VERSION = '1.28_01';
+require Exporter;
+@ISA=('Exporter');
+
+@EXPORT    = qw(&plan &ok &skip);
+@EXPORT_OK = qw($ntest $TESTOUT $TESTERR);
+
+$|=1;
+$TESTOUT = *STDOUT{IO};
+$TESTERR = *STDERR{IO};
+
+# Use of this variable is strongly discouraged.  It is set mainly to
+# help test coverage analyzers know which test is running.
+$ENV{REGRESSION_TEST} = $0;
+
+
+=head1 NAME
+
+Test - provides a simple framework for writing test scripts
+
+=head1 SYNOPSIS
+
+  use strict;
+  use Test;
+
+  # use a BEGIN block so we print our plan before MyModule is loaded
+  BEGIN { plan tests => 14, todo => [3,4] }
+
+  # load your module...
+  use MyModule;
+
+  # Helpful notes.  All note-lines must start with a "#".
+  print "# I'm testing MyModule version $MyModule::VERSION\n";
+
+  ok(0); # failure
+  ok(1); # success
+
+  ok(0); # ok, expected failure (see todo list, above)
+  ok(1); # surprise success!
+
+  ok(0,1);             # failure: '0' ne '1'
+  ok('broke','fixed'); # failure: 'broke' ne 'fixed'
+  ok('fixed','fixed'); # success: 'fixed' eq 'fixed'
+  ok('fixed',qr/x/);   # success: 'fixed' =~ qr/x/
+
+  ok(sub { 1+1 }, 2);  # success: '2' eq '2'
+  ok(sub { 1+1 }, 3);  # failure: '2' ne '3'
+
+  my @list = (0,0);
+  ok @list, 3, "\@list=".join(',',@list);      #extra notes
+  ok 'segmentation fault', '/(?i)success/';    #regex match
+
+  skip(
+    $^O =~ m/MSWin/ ? "Skip if MSWin" : 0,  # whether to skip
+    $foo, $bar  # arguments just like for ok(...)
+  );
+  skip(
+    $^O =~ m/MSWin/ ? 0 : "Skip unless MSWin",  # whether to skip
+    $foo, $bar  # arguments just like for ok(...)
+  );
+
+=head1 DESCRIPTION
+
+This module simplifies the task of writing test files for Perl modules,
+such that their output is in the format that
+L<Test::Harness|Test::Harness> expects to see.
+
+=head1 QUICK START GUIDE
+
+To write a test for your new (and probably not even done) module, create
+a new file called F<t/test.t> (in a new F<t> directory). If you have
+multiple test files, to test the "foo", "bar", and "baz" feature sets,
+then feel free to call your files F<t/foo.t>, F<t/bar.t>, and
+F<t/baz.t>
+
+=head2 Functions
+
+This module defines three public functions, C<plan(...)>, C<ok(...)>,
+and C<skip(...)>.  By default, all three are exported by
+the C<use Test;> statement.
+
+=over 4
+
+=item C<plan(...)>
+
+     BEGIN { plan %theplan; }
+
+This should be the first thing you call in your test script.  It
+declares your testing plan, how many there will be, if any of them
+should be allowed to fail, and so on.
+
+Typical usage is just:
+
+     use Test;
+     BEGIN { plan tests => 23 }
+
+These are the things that you can put in the parameters to plan:
+
+=over
+
+=item C<tests =E<gt> I<number>>
+
+The number of tests in your script.
+This means all ok() and skip() calls.
+
+=item C<todo =E<gt> [I<1,5,14>]>
+
+A reference to a list of tests which are allowed to fail.
+See L</TODO TESTS>.
+
+=item C<onfail =E<gt> sub { ... }>
+
+=item C<onfail =E<gt> \&some_sub>
+
+A subroutine reference to be run at the end of the test script, if
+any of the tests fail.  See L</ONFAIL>.
+
+=back
+
+You must call C<plan(...)> once and only once.  You should call it
+in a C<BEGIN {...}> block, like so:
+
+     BEGIN { plan tests => 23 }
+
+=cut
+
+sub plan {
+    croak "Test::plan(%args): odd number of arguments" if @_ & 1;
+    croak "Test::plan(): should not be called more than once" if $planned;
+
+    local($\, $,);   # guard against -l and other things that screw with
+                     # print
+
+    _reset_globals();
+
+    _read_program( (caller)[1] );
+
+    my $max=0;
+    while (@_) {
+	my ($k,$v) = splice(@_, 0, 2);
+	if ($k =~ /^test(s)?$/) { $max = $v; }
+	elsif ($k eq 'todo' or
+	       $k eq 'failok') { for (@$v) { $todo{$_}=1; }; }
+	elsif ($k eq 'onfail') {
+	    ref $v eq 'CODE' or croak "Test::plan(onfail => $v): must be CODE";
+	    $ONFAIL = $v;
+	}
+	else { carp "Test::plan(): skipping unrecognized directive '$k'" }
+    }
+    my @todo = sort { $a <=> $b } keys %todo;
+    if (@todo) {
+	print $TESTOUT "1..$max todo ".join(' ', @todo).";\n";
+    } else {
+	print $TESTOUT "1..$max\n";
+    }
+    ++$planned;
+    print $TESTOUT "# Running under perl version $] for $^O",
+      (chr(65) eq 'A') ? "\n" : " in a non-ASCII world\n";
+
+    print $TESTOUT "# Win32::BuildNumber ", &Win32::BuildNumber(), "\n"
+      if defined(&Win32::BuildNumber) and defined &Win32::BuildNumber();
+
+    print $TESTOUT "# MacPerl version $MacPerl::Version\n"
+      if defined $MacPerl::Version;
+
+    printf $TESTOUT
+      "# Current time local: %s\n# Current time GMT:   %s\n",
+      scalar(localtime($^T)), scalar(gmtime($^T));
+
+    print $TESTOUT "# Using Test.pm version $VERSION\n";
+
+    # Retval never used:
+    return undef;
+}
+
+sub _read_program {
+  my($file) = shift;
+  return unless defined $file and length $file
+    and -e $file and -f _ and -r _;
+  open(SOURCEFILE, "<$file") || return;
+  $Program_Lines{$file} = [<SOURCEFILE>];
+  close(SOURCEFILE);
+
+  foreach my $x (@{$Program_Lines{$file}})
+   { $x =~ tr/\cm\cj\n\r//d }
+
+  unshift @{$Program_Lines{$file}}, '';
+  return 1;
+}
+
+=begin _private
+
+=item B<_to_value>
+
+  my $value = _to_value($input);
+
+Converts an C<ok> parameter to its value.  Typically this just means
+running it, if it's a code reference.  You should run all inputted
+values through this.
+
+=cut
+
+sub _to_value {
+    my ($v) = @_;
+    return ref $v eq 'CODE' ? $v->() : $v;
+}
+
+sub _quote {
+    my $str = $_[0];
+    return "<UNDEF>" unless defined $str;
+    $str =~ s/\\/\\\\/g;
+    $str =~ s/"/\\"/g;
+    $str =~ s/\a/\\a/g;
+    $str =~ s/[\b]/\\b/g;
+    $str =~ s/\e/\\e/g;
+    $str =~ s/\f/\\f/g;
+    $str =~ s/\n/\\n/g;
+    $str =~ s/\r/\\r/g;
+    $str =~ s/\t/\\t/g;
+    if (defined $^V && $^V ge v5.6) {
+        $str =~ s/([[:cntrl:]])(?!\d)/sprintf('\\%o',ord($1))/eg;
+        $str =~ s/([[:^print:]])/sprintf('\\x%02X',ord($1))/eg;
+        $str =~ s/([[:^ascii:]])/sprintf('\\x{%X}',ord($1))/eg;
+    }
+    elsif (ord("A") == 65) {
+        $str =~ s/([\0-\037])(?!\d)/sprintf('\\%o',ord($1))/eg;
+        $str =~ s/([\0-\037\177-\377])/sprintf('\\x%02X',ord($1))/eg;
+        $str =~ s/([^\0-\176])/sprintf('\\x{%X}',ord($1))/eg;
+    }
+    else { # Assuming EBCDIC on this ancient Perl
+
+        # The controls except for one are 0-\077, so almost all controls on
+        # EBCDIC platforms will be expressed in octal, instead of just the C0
+        # ones.
+        $str =~ s/([\0-\077])(?!\d)/sprintf('\\%o',ord($1))/eg;
+        $str =~ s/([\0-\077])/sprintf('\\x%02X',ord($1))/eg;
+
+        $str =~ s/([^\0-\xFF])/sprintf('\\x{%X}',ord($1))/eg;
+
+        # What remains to be escaped are the non-ASCII-range characters,
+        # including the one control that isn't in the 0-077 range.
+        # (We don't escape further any ASCII printables.)
+        $str =~ s<[^ !"\$\%#'()*+,\-./0123456789:;\<=\>?\@ABCDEFGHIJKLMNOPQRSTUVWXYZ\[\\\]^_`abcdefghijklmnopqrstuvwxyz{|}~]><sprintf('\\x%02X',ord($1))>eg;
+    }
+    #if( $_[1] ) {
+    #  substr( $str , 218-3 ) = "..."
+    #   if length($str) >= 218 and !$ENV{PERL_TEST_NO_TRUNC};
+    #}
+    return qq("$str");
+}
+
+
+=end _private
+
+=item C<ok(...)>
+
+  ok(1 + 1 == 2);
+  ok($have, $expect);
+  ok($have, $expect, $diagnostics);
+
+This function is the reason for C<Test>'s existence.  It's
+the basic function that
+handles printing "C<ok>" or "C<not ok>", along with the
+current test number.  (That's what C<Test::Harness> wants to see.)
+
+In its most basic usage, C<ok(...)> simply takes a single scalar
+expression.  If its value is true, the test passes; if false,
+the test fails.  Examples:
+
+    # Examples of ok(scalar)
+
+    ok( 1 + 1 == 2 );           # ok if 1 + 1 == 2
+    ok( $foo =~ /bar/ );        # ok if $foo contains 'bar'
+    ok( baz($x + $y) eq 'Armondo' );    # ok if baz($x + $y) returns
+                                        # 'Armondo'
+    ok( @a == @b );             # ok if @a and @b are the same
+                                # length
+
+The expression is evaluated in scalar context.  So the following will
+work:
+
+    ok( @stuff );                       # ok if @stuff has any
+                                        # elements
+    ok( !grep !defined $_, @stuff );    # ok if everything in @stuff
+                                        # is defined.
+
+A special case is if the expression is a subroutine reference (in either
+C<sub {...}> syntax or C<\&foo> syntax).  In
+that case, it is executed and its value (true or false) determines if
+the test passes or fails.  For example,
+
+    ok( sub {   # See whether sleep works at least passably
+      my $start_time = time;
+      sleep 5;
+      time() - $start_time  >= 4
+    });
+
+In its two-argument form, C<ok(I<arg1>, I<arg2>)> compares the two
+scalar values to see if they match.  They match if both are undefined,
+or if I<arg2> is a regex that matches I<arg1>, or if they compare equal
+with C<eq>.
+
+    # Example of ok(scalar, scalar)
+
+    ok( "this", "that" );               # not ok, 'this' ne 'that'
+    ok( "", undef );                    # not ok, "" is defined
+
+The second argument is considered a regex if it is either a regex
+object or a string that looks like a regex.  Regex objects are
+constructed with the qr// operator in recent versions of perl.  A
+string is considered to look like a regex if its first and last
+characters are "/", or if the first character is "m"
+and its second and last characters are both the
+same non-alphanumeric non-whitespace character.  These regexp
+
+Regex examples:
+
+    ok( 'JaffO', '/Jaff/' );    # ok, 'JaffO' =~ /Jaff/
+    ok( 'JaffO', 'm|Jaff|' );   # ok, 'JaffO' =~ m|Jaff|
+    ok( 'JaffO', qr/Jaff/ );    # ok, 'JaffO' =~ qr/Jaff/;
+    ok( 'JaffO', '/(?i)jaff/ ); # ok, 'JaffO' =~ /jaff/i;
+
+If either (or both!) is a subroutine reference, it is run and used
+as the value for comparing.  For example:
+
+    ok sub {
+        open(OUT, ">x.dat") || die $!;
+        print OUT "\x{e000}";
+        close OUT;
+        my $bytecount = -s 'x.dat';
+        unlink 'x.dat' or warn "Can't unlink : $!";
+        return $bytecount;
+      },
+      4
+    ;
+
+The above test passes two values to C<ok(arg1, arg2)> -- the first 
+a coderef, and the second is the number 4.  Before C<ok> compares them,
+it calls the coderef, and uses its return value as the real value of
+this parameter. Assuming that C<$bytecount> returns 4, C<ok> ends up
+testing C<4 eq 4>.  Since that's true, this test passes.
+
+Finally, you can append an optional third argument, in
+C<ok(I<arg1>,I<arg2>, I<note>)>, where I<note> is a string value that
+will be printed if the test fails.  This should be some useful
+information about the test, pertaining to why it failed, and/or
+a description of the test.  For example:
+
+    ok( grep($_ eq 'something unique', @stuff), 1,
+        "Something that should be unique isn't!\n".
+        '@stuff = '.join ', ', @stuff
+      );
+
+Unfortunately, a note cannot be used with the single argument
+style of C<ok()>.  That is, if you try C<ok(I<arg1>, I<note>)>, then
+C<Test> will interpret this as C<ok(I<arg1>, I<arg2>)>, and probably
+end up testing C<I<arg1> eq I<arg2>> -- and that's not what you want!
+
+All of the above special cases can occasionally cause some
+problems.  See L</BUGS and CAVEATS>.
+
+=cut
+
+# A past maintainer of this module said:
+# <<ok(...)'s special handling of subroutine references is an unfortunate
+#   "feature" that can't be removed due to compatibility.>>
+#
+
+sub ok ($;$$) {
+    croak "ok: plan before you test!" if !$planned;
+
+    local($\,$,);   # guard against -l and other things that screw with
+                    # print
+
+    my ($pkg,$file,$line) = caller($TestLevel);
+    my $repetition = ++$history{"$file:$line"};
+    my $context = ("$file at line $line".
+		   ($repetition > 1 ? " fail \#$repetition" : ''));
+
+    # Are we comparing two values?
+    my $compare = 0;
+
+    my $ok=0;
+    my $result = _to_value(shift);
+    my ($expected, $isregex, $regex);
+    if (@_ == 0) {
+	$ok = $result;
+    } else {
+        $compare = 1;
+	$expected = _to_value(shift);
+	if (!defined $expected) {
+	    $ok = !defined $result;
+	} elsif (!defined $result) {
+	    $ok = 0;
+	} elsif (ref($expected) eq 'Regexp') {
+	    $ok = $result =~ /$expected/;
+            $regex = $expected;
+	} elsif (($regex) = ($expected =~ m,^ / (.+) / $,sx) or
+	    (undef, $regex) = ($expected =~ m,^ m([^\w\s]) (.+) \1 $,sx)) {
+	    $ok = $result =~ /$regex/;
+	} else {
+	    $ok = $result eq $expected;
+	}
+    }
+    my $todo = $todo{$ntest};
+    if ($todo and $ok) {
+	$context .= ' TODO?!' if $todo;
+	print $TESTOUT "ok $ntest # ($context)\n";
+    } else {
+        # Issuing two seperate prints() causes problems on VMS.
+        if (!$ok) {
+            print $TESTOUT "not ok $ntest\n";
+        }
+	else {
+            print $TESTOUT "ok $ntest\n";
+        }
+
+        $ok or _complain($result, $expected,
+        {
+          'repetition' => $repetition, 'package' => $pkg,
+          'result' => $result, 'todo' => $todo,
+          'file' => $file, 'line' => $line,
+          'context' => $context, 'compare' => $compare,
+          @_ ? ('diagnostic' =>  _to_value(shift)) : (),
+        });
+
+    }
+    ++ $ntest;
+    $ok;
+}
+
+
+sub _complain {
+    my($result, $expected, $detail) = @_;
+    $$detail{expected} = $expected if defined $expected;
+
+    # Get the user's diagnostic, protecting against multi-line
+    # diagnostics.
+    my $diag = $$detail{diagnostic};
+    $diag =~ s/\n/\n#/g if defined $diag;
+
+    my $out = $$detail{todo} ? $TESTOUT : $TESTERR;
+    $$detail{context} .= ' *TODO*' if $$detail{todo};
+    if (!$$detail{compare}) {
+        if (!$diag) {
+            print $out "# Failed test $ntest in $$detail{context}\n";
+        } else {
+            print $out "# Failed test $ntest in $$detail{context}: $diag\n";
+        }
+    } else {
+        my $prefix = "Test $ntest";
+
+        print $out "# $prefix got: " . _quote($result) .
+                       " ($$detail{context})\n";
+        $prefix = ' ' x (length($prefix) - 5);
+        my $expected_quoted = (defined $$detail{regex})
+         ?  'qr{'.($$detail{regex}).'}'  :  _quote($expected);
+
+        print $out "# $prefix Expected: $expected_quoted",
+           $diag ? " ($diag)" : (), "\n";
+
+        _diff_complain( $result, $expected, $detail, $prefix )
+          if defined($expected) and 2 < ($expected =~ tr/\n//);
+    }
+
+    if(defined $Program_Lines{ $$detail{file} }[ $$detail{line} ]) {
+        print $out
+          "#  $$detail{file} line $$detail{line} is: $Program_Lines{ $$detail{file} }[ $$detail{line} ]\n"
+         if $Program_Lines{ $$detail{file} }[ $$detail{line} ]
+          =~ m/[^\s\#\(\)\{\}\[\]\;]/;  # Otherwise it's uninformative
+
+        undef $Program_Lines{ $$detail{file} }[ $$detail{line} ];
+         # So we won't repeat it.
+    }
+
+    push @FAILDETAIL, $detail;
+    return;
+}
+
+
+
+sub _diff_complain {
+    my($result, $expected, $detail, $prefix) = @_;
+    return _diff_complain_external(@_) if $ENV{PERL_TEST_DIFF};
+    return _diff_complain_algdiff(@_)
+      if eval {
+          local @INC = @INC;
+          pop @INC if $INC[-1] eq '.';
+          require Algorithm::Diff; Algorithm::Diff->VERSION(1.15);
+          1;
+      };
+
+    $told_about_diff++ or print $TESTERR <<"EOT";
+# $prefix   (Install the Algorithm::Diff module to have differences in multiline
+# $prefix    output explained.  You might also set the PERL_TEST_DIFF environment
+# $prefix    variable to run a diff program on the output.)
+EOT
+    ;
+    return;
+}
+
+
+
+sub _diff_complain_external {
+    my($result, $expected, $detail, $prefix) = @_;
+    my $diff = $ENV{PERL_TEST_DIFF} || die "WHAAAA?";
+
+    require File::Temp;
+    my($got_fh, $got_filename) = File::Temp::tempfile("test-got-XXXXX");
+    my($exp_fh, $exp_filename) = File::Temp::tempfile("test-exp-XXXXX");
+    unless ($got_fh && $exp_fh) {
+      warn "Can't get tempfiles";
+      return;
+    }
+
+    print $got_fh $result;
+    print $exp_fh $expected;
+    if (close($got_fh) && close($exp_fh)) {
+        my $diff_cmd = "$diff $exp_filename $got_filename";
+        print $TESTERR "#\n# $prefix $diff_cmd\n";
+        if (open(DIFF, "$diff_cmd |")) {
+            local $_;
+            while (<DIFF>) {
+                print $TESTERR "# $prefix $_";
+            }
+            close(DIFF);
+        }
+        else {
+            warn "Can't run diff: $!";
+        }
+    } else {
+        warn "Can't write to tempfiles: $!";
+    }
+    unlink($got_filename);
+    unlink($exp_filename);
+    return;
+}
+
+
+
+sub _diff_complain_algdiff {
+    my($result, $expected, $detail, $prefix) = @_;
+
+    my @got = split(/^/, $result);
+    my @exp = split(/^/, $expected);
+
+    my $diff_kind;
+    my @diff_lines;
+
+    my $diff_flush = sub {
+        return unless $diff_kind;
+
+        my $count_lines = @diff_lines;
+        my $s = $count_lines == 1 ? "" : "s";
+        my $first_line = $diff_lines[0][0] + 1;
+
+        print $TESTERR "# $prefix ";
+        if ($diff_kind eq "GOT") {
+            print $TESTERR "Got $count_lines extra line$s at line $first_line:\n";
+            for my $i (@diff_lines) {
+                print $TESTERR "# $prefix  + " . _quote($got[$i->[0]]) . "\n";
+            }
+        } elsif ($diff_kind eq "EXP") {
+            if ($count_lines > 1) {
+                my $last_line = $diff_lines[-1][0] + 1;
+                print $TESTERR "Lines $first_line-$last_line are";
+            }
+            else {
+                print $TESTERR "Line $first_line is";
+            }
+            print $TESTERR " missing:\n";
+            for my $i (@diff_lines) {
+                print $TESTERR "# $prefix  - " . _quote($exp[$i->[1]]) . "\n";
+            }
+        } elsif ($diff_kind eq "CH") {
+            if ($count_lines > 1) {
+                my $last_line = $diff_lines[-1][0] + 1;
+                print $TESTERR "Lines $first_line-$last_line are";
+            }
+            else {
+                print $TESTERR "Line $first_line is";
+            }
+            print $TESTERR " changed:\n";
+            for my $i (@diff_lines) {
+                print $TESTERR "# $prefix  - " . _quote($exp[$i->[1]]) . "\n";
+                print $TESTERR "# $prefix  + " . _quote($got[$i->[0]]) . "\n";
+            }
+        }
+
+        # reset
+        $diff_kind = undef;
+        @diff_lines = ();
+    };
+
+    my $diff_collect = sub {
+        my $kind = shift;
+        &$diff_flush() if $diff_kind && $diff_kind ne $kind;
+        $diff_kind = $kind;
+        push(@diff_lines, [@_]);
+    };
+
+
+    Algorithm::Diff::traverse_balanced(
+        \@got, \@exp,
+        {
+            DISCARD_A => sub { &$diff_collect("GOT", @_) },
+            DISCARD_B => sub { &$diff_collect("EXP", @_) },
+            CHANGE    => sub { &$diff_collect("CH",  @_) },
+            MATCH     => sub { &$diff_flush() },
+        },
+    );
+    &$diff_flush();
+
+    return;
+}
+
+
+
+
+#~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~
+
+
+=item C<skip(I<skip_if_true>, I<args...>)>
+
+This is used for tests that under some conditions can be skipped.  It's
+basically equivalent to:
+
+  if( $skip_if_true ) {
+    ok(1);
+  } else {
+    ok( args... );
+  }
+
+...except that the C<ok(1)> emits not just "C<ok I<testnum>>" but
+actually "C<ok I<testnum> # I<skip_if_true_value>>".
+
+The arguments after the I<skip_if_true> are what is fed to C<ok(...)> if
+this test isn't skipped.
+
+Example usage:
+
+  my $if_MSWin =
+    $^O =~ m/MSWin/ ? 'Skip if under MSWin' : '';
+
+  # A test to be skipped if under MSWin (i.e., run except under
+  # MSWin)
+  skip($if_MSWin, thing($foo), thing($bar) );
+
+Or, going the other way:
+
+  my $unless_MSWin =
+    $^O =~ m/MSWin/ ? '' : 'Skip unless under MSWin';
+
+  # A test to be skipped unless under MSWin (i.e., run only under
+  # MSWin)
+  skip($unless_MSWin, thing($foo), thing($bar) );
+
+The tricky thing to remember is that the first parameter is true if
+you want to I<skip> the test, not I<run> it; and it also doubles as a
+note about why it's being skipped. So in the first codeblock above, read
+the code as "skip if MSWin -- (otherwise) test whether C<thing($foo)> is
+C<thing($bar)>" or for the second case, "skip unless MSWin...".
+
+Also, when your I<skip_if_reason> string is true, it really should (for
+backwards compatibility with older Test.pm versions) start with the
+string "Skip", as shown in the above examples.
+
+Note that in the above cases, C<thing($foo)> and C<thing($bar)>
+I<are> evaluated -- but as long as the C<skip_if_true> is true,
+then we C<skip(...)> just tosses out their value (i.e., not
+bothering to treat them like values to C<ok(...)>.  But if
+you need to I<not> eval the arguments when skipping the
+test, use
+this format:
+
+  skip( $unless_MSWin,
+    sub {
+      # This code returns true if the test passes.
+      # (But it doesn't even get called if the test is skipped.)
+      thing($foo) eq thing($bar)
+    }
+  );
+
+or even this, which is basically equivalent:
+
+  skip( $unless_MSWin,
+    sub { thing($foo) }, sub { thing($bar) }
+  );
+
+That is, both are like this:
+
+  if( $unless_MSWin ) {
+    ok(1);  # but it actually appends "# $unless_MSWin"
+            #  so that Test::Harness can tell it's a skip
+  } else {
+    # Not skipping, so actually call and evaluate...
+    ok( sub { thing($foo) }, sub { thing($bar) } );
+  }
+
+=cut
+
+sub skip ($;$$$) {
+    local($\, $,);   # guard against -l and other things that screw with
+                     # print
+
+    my $whyskip = _to_value(shift);
+    if (!@_ or $whyskip) {
+	$whyskip = '' if $whyskip =~ m/^\d+$/;
+        $whyskip =~ s/^[Ss]kip(?:\s+|$)//;  # backwards compatibility, old
+                                            # versions required the reason
+                                            # to start with 'skip'
+        # We print in one shot for VMSy reasons.
+        my $ok = "ok $ntest # skip";
+        $ok .= " $whyskip" if length $whyskip;
+        $ok .= "\n";
+        print $TESTOUT $ok;
+        ++ $ntest;
+        return 1;
+    } else {
+        # backwards compatibility (I think).  skip() used to be
+        # called like ok(), which is weird.  I haven't decided what to do with
+        # this yet.
+#        warn <<WARN if $^W;
+#This looks like a skip() using the very old interface.  Please upgrade to
+#the documented interface as this has been deprecated.
+#WARN
+
+	local($TestLevel) = $TestLevel+1;  #to ignore this stack frame
+        return &ok(@_);
+    }
+}
+
+=back
+
+=cut
+
+END {
+    $ONFAIL->(\@FAILDETAIL) if @FAILDETAIL && $ONFAIL;
+}
+
+1;
+__END__
+
+=head1 TEST TYPES
+
+=over 4
+
+=item * NORMAL TESTS
+
+These tests are expected to succeed.  Usually, most or all of your tests
+are in this category.  If a normal test doesn't succeed, then that
+means that something is I<wrong>.
+
+=item * SKIPPED TESTS
+
+The C<skip(...)> function is for tests that might or might not be
+possible to run, depending
+on the availability of platform-specific features.  The first argument
+should evaluate to true (think "yes, please skip") if the required
+feature is I<not> available.  After the first argument, C<skip(...)> works
+exactly the same way as C<ok(...)> does.
+
+=item * TODO TESTS
+
+TODO tests are designed for maintaining an B<executable TODO list>.
+These tests are I<expected to fail.>  If a TODO test does succeed,
+then the feature in question shouldn't be on the TODO list, now
+should it?
+
+Packages should NOT be released with succeeding TODO tests.  As soon
+as a TODO test starts working, it should be promoted to a normal test,
+and the newly working feature should be documented in the release
+notes or in the change log.
+
+=back
+
+=head1 ONFAIL
+
+  BEGIN { plan test => 4, onfail => sub { warn "CALL 911!" } }
+
+Although test failures should be enough, extra diagnostics can be
+triggered at the end of a test run.  C<onfail> is passed an array ref
+of hash refs that describe each test failure.  Each hash will contain
+at least the following fields: C<package>, C<repetition>, and
+C<result>.  (You shouldn't rely on any other fields being present.)  If the test
+had an expected value or a diagnostic (or "note") string, these will also be
+included.
+
+The I<optional> C<onfail> hook might be used simply to print out the
+version of your package and/or how to report problems.  It might also
+be used to generate extremely sophisticated diagnostics for a
+particularly bizarre test failure.  However it's not a panacea.  Core
+dumps or other unrecoverable errors prevent the C<onfail> hook from
+running.  (It is run inside an C<END> block.)  Besides, C<onfail> is
+probably over-kill in most cases.  (Your test code should be simpler
+than the code it is testing, yes?)
+
+
+=head1 BUGS and CAVEATS
+
+=over
+
+=item *
+
+C<ok(...)>'s special handing of strings which look like they might be
+regexes can also cause unexpected behavior.  An innocent:
+
+    ok( $fileglob, '/path/to/some/*stuff/' );
+
+will fail, since Test.pm considers the second argument to be a regex!
+The best bet is to use the one-argument form:
+
+    ok( $fileglob eq '/path/to/some/*stuff/' );
+
+=item *
+
+C<ok(...)>'s use of string C<eq> can sometimes cause odd problems
+when comparing
+numbers, especially if you're casting a string to a number:
+
+    $foo = "1.0";
+    ok( $foo, 1 );      # not ok, "1.0" ne 1
+
+Your best bet is to use the single argument form:
+
+    ok( $foo == 1 );    # ok "1.0" == 1
+
+=item *
+
+As you may have inferred from the above documentation and examples,
+C<ok>'s prototype is C<($;$$)> (and, incidentally, C<skip>'s is
+C<($;$$$)>). This means, for example, that you can do C<ok @foo, @bar>
+to compare the I<size> of the two arrays. But don't be fooled into
+thinking that C<ok @foo, @bar> means a comparison of the contents of two
+arrays -- you're comparing I<just> the number of elements of each. It's
+so easy to make that mistake in reading C<ok @foo, @bar> that you might
+want to be very explicit about it, and instead write C<ok scalar(@foo),
+scalar(@bar)>.
+
+=item *
+
+This almost definitely doesn't do what you expect:
+
+     ok $thingy->can('some_method');
+
+Why?  Because C<can> returns a coderef to mean "yes it can (and the
+method is this...)", and then C<ok> sees a coderef and thinks you're
+passing a function that you want it to call and consider the truth of
+the result of!  I.e., just like:
+
+     ok $thingy->can('some_method')->();
+
+What you probably want instead is this:
+
+     ok $thingy->can('some_method') && 1;
+
+If the C<can> returns false, then that is passed to C<ok>.  If it
+returns true, then the larger expression S<< C<<
+$thingy->can('some_method') && 1 >> >> returns 1, which C<ok> sees as
+a simple signal of success, as you would expect.
+
+
+=item *
+
+The syntax for C<skip> is about the only way it can be, but it's still
+quite confusing.  Just start with the above examples and you'll
+be okay.
+
+Moreover, users may expect this:
+
+  skip $unless_mswin, foo($bar), baz($quux);
+
+to not evaluate C<foo($bar)> and C<baz($quux)> when the test is being
+skipped.  But in reality, they I<are> evaluated, but C<skip> just won't
+bother comparing them if C<$unless_mswin> is true.
+
+You could do this:
+
+  skip $unless_mswin, sub{foo($bar)}, sub{baz($quux)};
+
+But that's not terribly pretty.  You may find it simpler or clearer in
+the long run to just do things like this:
+
+  if( $^O =~ m/MSWin/ ) {
+    print "# Yay, we're under $^O\n";
+    ok foo($bar), baz($quux);
+    ok thing($whatever), baz($stuff);
+    ok blorp($quux, $whatever);
+    ok foo($barzbarz), thang($quux);
+  } else {
+    print "# Feh, we're under $^O.  Watch me skip some tests...\n";
+    for(1 .. 4) { skip "Skip unless under MSWin" }
+  }
+
+But be quite sure that C<ok> is called exactly as many times in the
+first block as C<skip> is called in the second block.
+
+=back
+
+
+=head1 ENVIRONMENT
+
+If C<PERL_TEST_DIFF> environment variable is set, it will be used as a
+command for comparing unexpected multiline results.  If you have GNU
+diff installed, you might want to set C<PERL_TEST_DIFF> to C<diff -u>.
+If you don't have a suitable program, you might install the
+C<Text::Diff> module and then set C<PERL_TEST_DIFF> to be C<perl
+-MText::Diff -e 'print diff(@ARGV)'>.  If C<PERL_TEST_DIFF> isn't set
+but the C<Algorithm::Diff> module is available, then it will be used
+to show the differences in multiline results.
+
+=for comment
+If C<PERL_TEST_NO_TRUNC> is set, then the initial "Got 'something' but
+expected 'something_else'" readings for long multiline output values aren't
+truncated at about the 230th column, as they normally could be in some
+cases.  Normally you won't need to use this, unless you were carefully
+parsing the output of your test programs.
+
+
+=head1 NOTE
+
+A past developer of this module once said that it was no longer being
+actively developed.  However, rumors of its demise were greatly
+exaggerated.  Feedback and suggestions are quite welcome.
+
+Be aware that the main value of this module is its simplicity.  Note
+that there are already more ambitious modules out there, such as
+L<Test::More> and L<Test::Unit>.
+
+Some earlier versions of this module had docs with some confusing
+typos in the description of C<skip(...)>.
+
+
+=head1 SEE ALSO
+
+L<Test::Harness>
+
+L<Test::Simple>, L<Test::More>, L<Devel::Cover>
+
+L<Test::Builder> for building your own testing library.
+
+L<Test::Unit> is an interesting XUnit-style testing library.
+
+L<Test::Inline> lets you embed tests in code.
+
+
+=head1 AUTHOR
+
+Copyright (c) 1998-2000 Joshua Nathaniel Pritikin. 
+
+Copyright (c) 2001-2002 Michael G. Schwern.
+
+Copyright (c) 2002-2004 Sean M. Burke.
+
+Current maintainer: Jesse Vincent. E<lt>jesse@bestpractical.comE<gt>
+
+This package is free software and is provided "as is" without express
+or implied warranty.  It may be used, redistributed and/or modified
+under the same terms as Perl itself.
+
+=cut
+
+# "Your mistake was a hidden intention."
+#  -- /Oblique Strategies/,  Brian Eno and Peter Schmidt
diff --git a/lib/5.24.1/Test/Builder.pm b/lib/5.24.1/Test/Builder.pm
new file mode 100644
index 00000000..a8e7bd95
--- /dev/null
+++ b/lib/5.24.1/Test/Builder.pm
@@ -0,0 +1,2672 @@
+package Test::Builder;
+
+use 5.006;
+use strict;
+use warnings;
+
+our $VERSION = '1.001014';
+$VERSION = eval $VERSION;    ## no critic (BuiltinFunctions::ProhibitStringyEval)
+
+BEGIN {
+    if( $] < 5.008 ) {
+        require Test::Builder::IO::Scalar;
+    }
+}
+
+
+# Make Test::Builder thread-safe for ithreads.
+BEGIN {
+    use Config;
+    # Load threads::shared when threads are turned on.
+    # 5.8.0's threads are so busted we no longer support them.
+    if( $] >= 5.008001 && $Config{useithreads} && $INC{'threads.pm'} ) {
+        require threads::shared;
+
+        # Hack around YET ANOTHER threads::shared bug.  It would
+        # occasionally forget the contents of the variable when sharing it.
+        # So we first copy the data, then share, then put our copy back.
+        *share = sub (\[$@%]) {
+            my $type = ref $_[0];
+            my $data;
+
+            if( $type eq 'HASH' ) {
+                %$data = %{ $_[0] };
+            }
+            elsif( $type eq 'ARRAY' ) {
+                @$data = @{ $_[0] };
+            }
+            elsif( $type eq 'SCALAR' ) {
+                $$data = ${ $_[0] };
+            }
+            else {
+                die( "Unknown type: " . $type );
+            }
+
+            $_[0] = &threads::shared::share( $_[0] );
+
+            if( $type eq 'HASH' ) {
+                %{ $_[0] } = %$data;
+            }
+            elsif( $type eq 'ARRAY' ) {
+                @{ $_[0] } = @$data;
+            }
+            elsif( $type eq 'SCALAR' ) {
+                ${ $_[0] } = $$data;
+            }
+            else {
+                die( "Unknown type: " . $type );
+            }
+
+            return $_[0];
+        };
+    }
+    # 5.8.0's threads::shared is busted when threads are off
+    # and earlier Perls just don't have that module at all.
+    else {
+        *share = sub { return $_[0] };
+        *lock  = sub { 0 };
+    }
+}
+
+=head1 NAME
+
+Test::Builder - Backend for building test libraries
+
+=head1 SYNOPSIS
+
+  package My::Test::Module;
+  use base 'Test::Builder::Module';
+
+  my $CLASS = __PACKAGE__;
+
+  sub ok {
+      my($test, $name) = @_;
+      my $tb = $CLASS->builder;
+
+      $tb->ok($test, $name);
+  }
+
+
+=head1 DESCRIPTION
+
+L<Test::Simple> and L<Test::More> have proven to be popular testing modules,
+but they're not always flexible enough.  Test::Builder provides a
+building block upon which to write your own test libraries I<which can
+work together>.
+
+=head2 Construction
+
+=over 4
+
+=item B<new>
+
+  my $Test = Test::Builder->new;
+
+Returns a Test::Builder object representing the current state of the
+test.
+
+Since you only run one test per program C<new> always returns the same
+Test::Builder object.  No matter how many times you call C<new()>, you're
+getting the same object.  This is called a singleton.  This is done so that
+multiple modules share such global information as the test counter and
+where test output is going.
+
+If you want a completely new Test::Builder object different from the
+singleton, use C<create>.
+
+=cut
+
+our $Test = Test::Builder->new;
+
+sub new {
+    my($class) = shift;
+    $Test ||= $class->create;
+    return $Test;
+}
+
+=item B<create>
+
+  my $Test = Test::Builder->create;
+
+Ok, so there can be more than one Test::Builder object and this is how
+you get it.  You might use this instead of C<new()> if you're testing
+a Test::Builder based module, but otherwise you probably want C<new>.
+
+B<NOTE>: the implementation is not complete.  C<level>, for example, is
+still shared amongst B<all> Test::Builder objects, even ones created using
+this method.  Also, the method name may change in the future.
+
+=cut
+
+sub create {
+    my $class = shift;
+
+    my $self = bless {}, $class;
+    $self->reset;
+
+    return $self;
+}
+
+
+# Copy an object, currently a shallow.
+# This does *not* bless the destination.  This keeps the destructor from
+# firing when we're just storing a copy of the object to restore later.
+sub _copy {
+    my($src, $dest) = @_;
+
+    %$dest = %$src;
+    _share_keys($dest);
+
+    return;
+}
+
+
+=item B<child>
+
+  my $child = $builder->child($name_of_child);
+  $child->plan( tests => 4 );
+  $child->ok(some_code());
+  ...
+  $child->finalize;
+
+Returns a new instance of C<Test::Builder>.  Any output from this child will
+be indented four spaces more than the parent's indentation.  When done, the
+C<finalize> method I<must> be called explicitly.
+
+Trying to create a new child with a previous child still active (i.e.,
+C<finalize> not called) will C<croak>.
+
+Trying to run a test when you have an open child will also C<croak> and cause
+the test suite to fail.
+
+=cut
+
+sub child {
+    my( $self, $name ) = @_;
+
+    if( $self->{Child_Name} ) {
+        $self->croak("You already have a child named ($self->{Child_Name}) running");
+    }
+
+    my $parent_in_todo = $self->in_todo;
+
+    # Clear $TODO for the child.
+    my $orig_TODO = $self->find_TODO(undef, 1, undef);
+
+    my $class = ref $self;
+    my $child = $class->create;
+
+    # Add to our indentation
+    $child->_indent( $self->_indent . '    ' );
+
+    # Make the child use the same outputs as the parent
+    for my $method (qw(output failure_output todo_output)) {
+        $child->$method( $self->$method );
+    }
+
+    # Ensure the child understands if they're inside a TODO
+    if( $parent_in_todo ) {
+        $child->failure_output( $self->todo_output );
+    }
+
+    # This will be reset in finalize. We do this here lest one child failure
+    # cause all children to fail.
+    $child->{Child_Error} = $?;
+    $?                    = 0;
+    $child->{Parent}      = $self;
+    $child->{Parent_TODO} = $orig_TODO;
+    $child->{Name}        = $name || "Child of " . $self->name;
+    $self->{Child_Name}   = $child->name;
+    return $child;
+}
+
+
+=item B<subtest>
+
+    $builder->subtest($name, \&subtests, @args);
+
+See documentation of C<subtest> in Test::More.  
+
+C<subtest> also, and optionally, accepts arguments which will be passed to the
+subtests reference.
+
+=cut
+
+sub subtest {
+    my $self = shift;
+    my($name, $subtests, @args) = @_;
+
+    if ('CODE' ne ref $subtests) {
+        $self->croak("subtest()'s second argument must be a code ref");
+    }
+
+    # Turn the child into the parent so anyone who has stored a copy of
+    # the Test::Builder singleton will get the child.
+    my $error;
+    my $child;
+    my $parent = {};
+    {
+        # child() calls reset() which sets $Level to 1, so we localize
+        # $Level first to limit the scope of the reset to the subtest.
+        local $Test::Builder::Level = $Test::Builder::Level + 1;
+
+        # Store the guts of $self as $parent and turn $child into $self.
+        $child  = $self->child($name);
+        _copy($self,  $parent);
+        _copy($child, $self);
+
+        my $run_the_subtests = sub {
+            # Add subtest name for clarification of starting point
+            $self->note("Subtest: $name");
+            $subtests->(@args);
+            $self->done_testing unless $self->_plan_handled;
+            1;
+        };
+
+        if( !eval { $run_the_subtests->() } ) {
+            $error = $@;
+        }
+    }
+
+    # Restore the parent and the copied child.
+    _copy($self,   $child);
+    _copy($parent, $self);
+
+    # Restore the parent's $TODO
+    $self->find_TODO(undef, 1, $child->{Parent_TODO});
+
+    # Die *after* we restore the parent.
+    die $error if $error and !eval { $error->isa('Test::Builder::Exception') };
+
+    local $Test::Builder::Level = $Test::Builder::Level + 1;
+    my $finalize = $child->finalize;
+
+    $self->BAIL_OUT($child->{Bailed_Out_Reason}) if $child->{Bailed_Out};
+
+    return $finalize;
+}
+
+=begin _private
+
+=item B<_plan_handled>
+
+    if ( $Test->_plan_handled ) { ... }
+
+Returns true if the developer has explicitly handled the plan via:
+
+=over 4
+
+=item * Explicitly setting the number of tests
+
+=item * Setting 'no_plan'
+
+=item * Set 'skip_all'.
+
+=back
+
+This is currently used in subtests when we implicitly call C<< $Test->done_testing >>
+if the developer has not set a plan.
+
+=end _private
+
+=cut
+
+sub _plan_handled {
+    my $self = shift;
+    return $self->{Have_Plan} || $self->{No_Plan} || $self->{Skip_All};
+}
+
+
+=item B<finalize>
+
+  my $ok = $child->finalize;
+
+When your child is done running tests, you must call C<finalize> to clean up
+and tell the parent your pass/fail status.
+
+Calling C<finalize> on a child with open children will C<croak>.
+
+If the child falls out of scope before C<finalize> is called, a failure
+diagnostic will be issued and the child is considered to have failed.
+
+No attempt to call methods on a child after C<finalize> is called is
+guaranteed to succeed.
+
+Calling this on the root builder is a no-op.
+
+=cut
+
+sub finalize {
+    my $self = shift;
+
+    return unless $self->parent;
+    if( $self->{Child_Name} ) {
+        $self->croak("Can't call finalize() with child ($self->{Child_Name}) active");
+    }
+
+    local $? = 0;     # don't fail if $subtests happened to set $? nonzero
+    $self->_ending;
+
+    # XXX This will only be necessary for TAP envelopes (we think)
+    #$self->_print( $self->is_passing ? "PASS\n" : "FAIL\n" );
+
+    local $Test::Builder::Level = $Test::Builder::Level + 1;
+    my $ok = 1;
+    $self->parent->{Child_Name} = undef;
+    unless ($self->{Bailed_Out}) {
+        if ( $self->{Skip_All} ) {
+            $self->parent->skip($self->{Skip_All}, $self->name);
+        }
+        elsif ( not @{ $self->{Test_Results} } ) {
+            $self->parent->ok( 0, sprintf q[No tests run for subtest "%s"], $self->name );
+        }
+        else {
+            $self->parent->ok( $self->is_passing, $self->name );
+        }
+    }
+    $? = $self->{Child_Error};
+    delete $self->{Parent};
+
+    return $self->is_passing;
+}
+
+sub _indent      {
+    my $self = shift;
+
+    if( @_ ) {
+        $self->{Indent} = shift;
+    }
+
+    return $self->{Indent};
+}
+
+=item B<parent>
+
+ if ( my $parent = $builder->parent ) {
+     ...
+ }
+
+Returns the parent C<Test::Builder> instance, if any.  Only used with child
+builders for nested TAP.
+
+=cut
+
+sub parent { shift->{Parent} }
+
+=item B<name>
+
+ diag $builder->name;
+
+Returns the name of the current builder.  Top level builders default to C<$0>
+(the name of the executable).  Child builders are named via the C<child>
+method.  If no name is supplied, will be named "Child of $parent->name".
+
+=cut
+
+sub name { shift->{Name} }
+
+sub DESTROY {
+    my $self = shift;
+    if ( $self->parent and $$ == $self->{Original_Pid} ) {
+        my $name = $self->name;
+        $self->diag(<<"FAIL");
+Child ($name) exited without calling finalize()
+FAIL
+        $self->parent->{In_Destroy} = 1;
+        $self->parent->ok(0, $name);
+    }
+}
+
+=item B<reset>
+
+  $Test->reset;
+
+Reinitializes the Test::Builder singleton to its original state.
+Mostly useful for tests run in persistent environments where the same
+test might be run multiple times in the same process.
+
+=cut
+
+our $Level;
+
+sub reset {    ## no critic (Subroutines::ProhibitBuiltinHomonyms)
+    my($self) = @_;
+
+    # We leave this a global because it has to be localized and localizing
+    # hash keys is just asking for pain.  Also, it was documented.
+    $Level = 1;
+
+    $self->{Name}         = $0;
+    $self->is_passing(1);
+    $self->{Ending}       = 0;
+    $self->{Have_Plan}    = 0;
+    $self->{No_Plan}      = 0;
+    $self->{Have_Output_Plan} = 0;
+    $self->{Done_Testing} = 0;
+
+    $self->{Original_Pid} = $$;
+    $self->{Child_Name}   = undef;
+    $self->{Indent}     ||= '';
+
+    $self->{Curr_Test} = 0;
+    $self->{Test_Results} = &share( [] );
+
+    $self->{Exported_To}    = undef;
+    $self->{Expected_Tests} = 0;
+
+    $self->{Skip_All} = 0;
+
+    $self->{Use_Nums} = 1;
+
+    $self->{No_Header} = 0;
+    $self->{No_Ending} = 0;
+
+    $self->{Todo}       = undef;
+    $self->{Todo_Stack} = [];
+    $self->{Start_Todo} = 0;
+    $self->{Opened_Testhandles} = 0;
+
+    $self->_share_keys;
+    $self->_dup_stdhandles;
+
+    return;
+}
+
+
+# Shared scalar values are lost when a hash is copied, so we have
+# a separate method to restore them.
+# Shared references are retained across copies.
+sub _share_keys {
+    my $self = shift;
+
+    share( $self->{Curr_Test} );
+
+    return;
+}
+
+
+=back
+
+=head2 Setting up tests
+
+These methods are for setting up tests and declaring how many there
+are.  You usually only want to call one of these methods.
+
+=over 4
+
+=item B<plan>
+
+  $Test->plan('no_plan');
+  $Test->plan( skip_all => $reason );
+  $Test->plan( tests => $num_tests );
+
+A convenient way to set up your tests.  Call this and Test::Builder
+will print the appropriate headers and take the appropriate actions.
+
+If you call C<plan()>, don't call any of the other methods below.
+
+If a child calls "skip_all" in the plan, a C<Test::Builder::Exception> is
+thrown.  Trap this error, call C<finalize()> and don't run any more tests on
+the child.
+
+ my $child = $Test->child('some child');
+ eval { $child->plan( $condition ? ( skip_all => $reason ) : ( tests => 3 )  ) };
+ if ( eval { $@->isa('Test::Builder::Exception') } ) {
+    $child->finalize;
+    return;
+ }
+ # run your tests
+
+=cut
+
+my %plan_cmds = (
+    no_plan     => \&no_plan,
+    skip_all    => \&skip_all,
+    tests       => \&_plan_tests,
+);
+
+sub plan {
+    my( $self, $cmd, $arg ) = @_;
+
+    return unless $cmd;
+
+    local $Level = $Level + 1;
+
+    $self->croak("You tried to plan twice") if $self->{Have_Plan};
+
+    if( my $method = $plan_cmds{$cmd} ) {
+        local $Level = $Level + 1;
+        $self->$method($arg);
+    }
+    else {
+        my @args = grep { defined } ( $cmd, $arg );
+        $self->croak("plan() doesn't understand @args");
+    }
+
+    return 1;
+}
+
+
+sub _plan_tests {
+    my($self, $arg) = @_;
+
+    if($arg) {
+        local $Level = $Level + 1;
+        return $self->expected_tests($arg);
+    }
+    elsif( !defined $arg ) {
+        $self->croak("Got an undefined number of tests");
+    }
+    else {
+        $self->croak("You said to run 0 tests");
+    }
+
+    return;
+}
+
+=item B<expected_tests>
+
+    my $max = $Test->expected_tests;
+    $Test->expected_tests($max);
+
+Gets/sets the number of tests we expect this test to run and prints out
+the appropriate headers.
+
+=cut
+
+sub expected_tests {
+    my $self = shift;
+    my($max) = @_;
+
+    if(@_) {
+        $self->croak("Number of tests must be a positive integer.  You gave it '$max'")
+          unless $max =~ /^\+?\d+$/;
+
+        $self->{Expected_Tests} = $max;
+        $self->{Have_Plan}      = 1;
+
+        $self->_output_plan($max) unless $self->no_header;
+    }
+    return $self->{Expected_Tests};
+}
+
+=item B<no_plan>
+
+  $Test->no_plan;
+
+Declares that this test will run an indeterminate number of tests.
+
+=cut
+
+sub no_plan {
+    my($self, $arg) = @_;
+
+    $self->carp("no_plan takes no arguments") if $arg;
+
+    $self->{No_Plan}   = 1;
+    $self->{Have_Plan} = 1;
+
+    return 1;
+}
+
+=begin private
+
+=item B<_output_plan>
+
+  $tb->_output_plan($max);
+  $tb->_output_plan($max, $directive);
+  $tb->_output_plan($max, $directive => $reason);
+
+Handles displaying the test plan.
+
+If a C<$directive> and/or C<$reason> are given they will be output with the
+plan.  So here's what skipping all tests looks like:
+
+    $tb->_output_plan(0, "SKIP", "Because I said so");
+
+It sets C<< $tb->{Have_Output_Plan} >> and will croak if the plan was already
+output.
+
+=end private
+
+=cut
+
+sub _output_plan {
+    my($self, $max, $directive, $reason) = @_;
+
+    $self->carp("The plan was already output") if $self->{Have_Output_Plan};
+
+    my $plan = "1..$max";
+    $plan .= " # $directive" if defined $directive;
+    $plan .= " $reason"      if defined $reason;
+
+    $self->_print("$plan\n");
+
+    $self->{Have_Output_Plan} = 1;
+
+    return;
+}
+
+
+=item B<done_testing>
+
+  $Test->done_testing();
+  $Test->done_testing($num_tests);
+
+Declares that you are done testing, no more tests will be run after this point.
+
+If a plan has not yet been output, it will do so.
+
+$num_tests is the number of tests you planned to run.  If a numbered
+plan was already declared, and if this contradicts, a failing test
+will be run to reflect the planning mistake.  If C<no_plan> was declared,
+this will override.
+
+If C<done_testing()> is called twice, the second call will issue a
+failing test.
+
+If C<$num_tests> is omitted, the number of tests run will be used, like
+no_plan.
+
+C<done_testing()> is, in effect, used when you'd want to use C<no_plan>, but
+safer. You'd use it like so:
+
+    $Test->ok($a == $b);
+    $Test->done_testing();
+
+Or to plan a variable number of tests:
+
+    for my $test (@tests) {
+        $Test->ok($test);
+    }
+    $Test->done_testing(scalar @tests);
+
+=cut
+
+sub done_testing {
+    my($self, $num_tests) = @_;
+
+    # If done_testing() specified the number of tests, shut off no_plan.
+    if( defined $num_tests ) {
+        $self->{No_Plan} = 0;
+    }
+    else {
+        $num_tests = $self->current_test;
+    }
+
+    if( $self->{Done_Testing} ) {
+        my($file, $line) = @{$self->{Done_Testing}}[1,2];
+        $self->ok(0, "done_testing() was already called at $file line $line");
+        return;
+    }
+
+    $self->{Done_Testing} = [caller];
+
+    if( $self->expected_tests && $num_tests != $self->expected_tests ) {
+        $self->ok(0, "planned to run @{[ $self->expected_tests ]} ".
+                     "but done_testing() expects $num_tests");
+    }
+    else {
+        $self->{Expected_Tests} = $num_tests;
+    }
+
+    $self->_output_plan($num_tests) unless $self->{Have_Output_Plan};
+
+    $self->{Have_Plan} = 1;
+
+    # The wrong number of tests were run
+    $self->is_passing(0) if $self->{Expected_Tests} != $self->{Curr_Test};
+
+    # No tests were run
+    $self->is_passing(0) if $self->{Curr_Test} == 0;
+
+    return 1;
+}
+
+
+=item B<has_plan>
+
+  $plan = $Test->has_plan
+
+Find out whether a plan has been defined. C<$plan> is either C<undef> (no plan
+has been set), C<no_plan> (indeterminate # of tests) or an integer (the number
+of expected tests).
+
+=cut
+
+sub has_plan {
+    my $self = shift;
+
+    return( $self->{Expected_Tests} ) if $self->{Expected_Tests};
+    return('no_plan') if $self->{No_Plan};
+    return(undef);
+}
+
+=item B<skip_all>
+
+  $Test->skip_all;
+  $Test->skip_all($reason);
+
+Skips all the tests, using the given C<$reason>.  Exits immediately with 0.
+
+=cut
+
+sub skip_all {
+    my( $self, $reason ) = @_;
+
+    $self->{Skip_All} = $self->parent ? $reason : 1;
+
+    $self->_output_plan(0, "SKIP", $reason) unless $self->no_header;
+    if ( $self->parent ) {
+        die bless {} => 'Test::Builder::Exception';
+    }
+    exit(0);
+}
+
+=item B<exported_to>
+
+  my $pack = $Test->exported_to;
+  $Test->exported_to($pack);
+
+Tells Test::Builder what package you exported your functions to.
+
+This method isn't terribly useful since modules which share the same
+Test::Builder object might get exported to different packages and only
+the last one will be honored.
+
+=cut
+
+sub exported_to {
+    my( $self, $pack ) = @_;
+
+    if( defined $pack ) {
+        $self->{Exported_To} = $pack;
+    }
+    return $self->{Exported_To};
+}
+
+=back
+
+=head2 Running tests
+
+These actually run the tests, analogous to the functions in Test::More.
+
+They all return true if the test passed, false if the test failed.
+
+C<$name> is always optional.
+
+=over 4
+
+=item B<ok>
+
+  $Test->ok($test, $name);
+
+Your basic test.  Pass if C<$test> is true, fail if $test is false.  Just
+like Test::Simple's C<ok()>.
+
+=cut
+
+sub ok {
+    my( $self, $test, $name ) = @_;
+
+    if ( $self->{Child_Name} and not $self->{In_Destroy} ) {
+        $name = 'unnamed test' unless defined $name;
+        $self->is_passing(0);
+        $self->croak("Cannot run test ($name) with active children");
+    }
+    # $test might contain an object which we don't want to accidentally
+    # store, so we turn it into a boolean.
+    $test = $test ? 1 : 0;
+
+    lock $self->{Curr_Test};
+    $self->{Curr_Test}++;
+
+    # In case $name is a string overloaded object, force it to stringify.
+    $self->_unoverload_str( \$name );
+
+    $self->diag(<<"ERR") if defined $name and $name =~ /^[\d\s]+$/;
+    You named your test '$name'.  You shouldn't use numbers for your test names.
+    Very confusing.
+ERR
+
+    # Capture the value of $TODO for the rest of this ok() call
+    # so it can more easily be found by other routines.
+    my $todo    = $self->todo();
+    my $in_todo = $self->in_todo;
+    local $self->{Todo} = $todo if $in_todo;
+
+    $self->_unoverload_str( \$todo );
+
+    my $out;
+    my $result = &share( {} );
+
+    unless($test) {
+        $out .= "not ";
+        @$result{ 'ok', 'actual_ok' } = ( ( $self->in_todo ? 1 : 0 ), 0 );
+    }
+    else {
+        @$result{ 'ok', 'actual_ok' } = ( 1, $test );
+    }
+
+    $out .= "ok";
+    $out .= " $self->{Curr_Test}" if $self->use_numbers;
+
+    if( defined $name ) {
+        $name =~ s|#|\\#|g;    # # in a name can confuse Test::Harness.
+        $out .= " - $name";
+        $result->{name} = $name;
+    }
+    else {
+        $result->{name} = '';
+    }
+
+    if( $self->in_todo ) {
+        $out .= " # TODO $todo";
+        $result->{reason} = $todo;
+        $result->{type}   = 'todo';
+    }
+    else {
+        $result->{reason} = '';
+        $result->{type}   = '';
+    }
+
+    $self->{Test_Results}[ $self->{Curr_Test} - 1 ] = $result;
+    $out .= "\n";
+
+    $self->_print($out);
+
+    unless($test) {
+        my $msg = $self->in_todo ? "Failed (TODO)" : "Failed";
+        $self->_print_to_fh( $self->_diag_fh, "\n" ) if $ENV{HARNESS_ACTIVE};
+
+        my( undef, $file, $line ) = $self->caller;
+        if( defined $name ) {
+            $self->diag(qq[  $msg test '$name'\n]);
+            $self->diag(qq[  at $file line $line.\n]);
+        }
+        else {
+            $self->diag(qq[  $msg test at $file line $line.\n]);
+        }
+    }
+
+    $self->is_passing(0) unless $test || $self->in_todo;
+
+    # Check that we haven't violated the plan
+    $self->_check_is_passing_plan();
+
+    return $test ? 1 : 0;
+}
+
+
+# Check that we haven't yet violated the plan and set
+# is_passing() accordingly
+sub _check_is_passing_plan {
+    my $self = shift;
+
+    my $plan = $self->has_plan;
+    return unless defined $plan;        # no plan yet defined
+    return unless $plan !~ /\D/;        # no numeric plan
+    $self->is_passing(0) if $plan < $self->{Curr_Test};
+}
+
+
+sub _unoverload {
+    my $self = shift;
+    my $type = shift;
+
+    $self->_try(sub { require overload; }, die_on_fail => 1);
+
+    foreach my $thing (@_) {
+        if( $self->_is_object($$thing) ) {
+            if( my $string_meth = overload::Method( $$thing, $type ) ) {
+                $$thing = $$thing->$string_meth();
+            }
+        }
+    }
+
+    return;
+}
+
+sub _is_object {
+    my( $self, $thing ) = @_;
+
+    return $self->_try( sub { ref $thing && $thing->isa('UNIVERSAL') } ) ? 1 : 0;
+}
+
+sub _unoverload_str {
+    my $self = shift;
+
+    return $self->_unoverload( q[""], @_ );
+}
+
+sub _unoverload_num {
+    my $self = shift;
+
+    $self->_unoverload( '0+', @_ );
+
+    for my $val (@_) {
+        next unless $self->_is_dualvar($$val);
+        $$val = $$val + 0;
+    }
+
+    return;
+}
+
+# This is a hack to detect a dualvar such as $!
+sub _is_dualvar {
+    my( $self, $val ) = @_;
+
+    # Objects are not dualvars.
+    return 0 if ref $val;
+
+    no warnings 'numeric';
+    my $numval = $val + 0;
+    return ($numval != 0 and $numval ne $val ? 1 : 0);
+}
+
+=item B<is_eq>
+
+  $Test->is_eq($got, $expected, $name);
+
+Like Test::More's C<is()>.  Checks if C<$got eq $expected>.  This is the
+string version.
+
+C<undef> only ever matches another C<undef>.
+
+=item B<is_num>
+
+  $Test->is_num($got, $expected, $name);
+
+Like Test::More's C<is()>.  Checks if C<$got == $expected>.  This is the
+numeric version.
+
+C<undef> only ever matches another C<undef>.
+
+=cut
+
+sub is_eq {
+    my( $self, $got, $expect, $name ) = @_;
+    local $Level = $Level + 1;
+
+    if( !defined $got || !defined $expect ) {
+        # undef only matches undef and nothing else
+        my $test = !defined $got && !defined $expect;
+
+        $self->ok( $test, $name );
+        $self->_is_diag( $got, 'eq', $expect ) unless $test;
+        return $test;
+    }
+
+    return $self->cmp_ok( $got, 'eq', $expect, $name );
+}
+
+sub is_num {
+    my( $self, $got, $expect, $name ) = @_;
+    local $Level = $Level + 1;
+
+    if( !defined $got || !defined $expect ) {
+        # undef only matches undef and nothing else
+        my $test = !defined $got && !defined $expect;
+
+        $self->ok( $test, $name );
+        $self->_is_diag( $got, '==', $expect ) unless $test;
+        return $test;
+    }
+
+    return $self->cmp_ok( $got, '==', $expect, $name );
+}
+
+sub _diag_fmt {
+    my( $self, $type, $val ) = @_;
+
+    if( defined $$val ) {
+        if( $type eq 'eq' or $type eq 'ne' ) {
+            # quote and force string context
+            $$val = "'$$val'";
+        }
+        else {
+            # force numeric context
+            $self->_unoverload_num($val);
+        }
+    }
+    else {
+        $$val = 'undef';
+    }
+
+    return;
+}
+
+sub _is_diag {
+    my( $self, $got, $type, $expect ) = @_;
+
+    $self->_diag_fmt( $type, $_ ) for \$got, \$expect;
+
+    local $Level = $Level + 1;
+    return $self->diag(<<"DIAGNOSTIC");
+         got: $got
+    expected: $expect
+DIAGNOSTIC
+
+}
+
+sub _isnt_diag {
+    my( $self, $got, $type ) = @_;
+
+    $self->_diag_fmt( $type, \$got );
+
+    local $Level = $Level + 1;
+    return $self->diag(<<"DIAGNOSTIC");
+         got: $got
+    expected: anything else
+DIAGNOSTIC
+}
+
+=item B<isnt_eq>
+
+  $Test->isnt_eq($got, $dont_expect, $name);
+
+Like L<Test::More>'s C<isnt()>.  Checks if C<$got ne $dont_expect>.  This is
+the string version.
+
+=item B<isnt_num>
+
+  $Test->isnt_num($got, $dont_expect, $name);
+
+Like L<Test::More>'s C<isnt()>.  Checks if C<$got ne $dont_expect>.  This is
+the numeric version.
+
+=cut
+
+sub isnt_eq {
+    my( $self, $got, $dont_expect, $name ) = @_;
+    local $Level = $Level + 1;
+
+    if( !defined $got || !defined $dont_expect ) {
+        # undef only matches undef and nothing else
+        my $test = defined $got || defined $dont_expect;
+
+        $self->ok( $test, $name );
+        $self->_isnt_diag( $got, 'ne' ) unless $test;
+        return $test;
+    }
+
+    return $self->cmp_ok( $got, 'ne', $dont_expect, $name );
+}
+
+sub isnt_num {
+    my( $self, $got, $dont_expect, $name ) = @_;
+    local $Level = $Level + 1;
+
+    if( !defined $got || !defined $dont_expect ) {
+        # undef only matches undef and nothing else
+        my $test = defined $got || defined $dont_expect;
+
+        $self->ok( $test, $name );
+        $self->_isnt_diag( $got, '!=' ) unless $test;
+        return $test;
+    }
+
+    return $self->cmp_ok( $got, '!=', $dont_expect, $name );
+}
+
+=item B<like>
+
+  $Test->like($thing, qr/$regex/, $name);
+  $Test->like($thing, '/$regex/', $name);
+
+Like L<Test::More>'s C<like()>.  Checks if $thing matches the given C<$regex>.
+
+=item B<unlike>
+
+  $Test->unlike($thing, qr/$regex/, $name);
+  $Test->unlike($thing, '/$regex/', $name);
+
+Like L<Test::More>'s C<unlike()>.  Checks if $thing B<does not match> the
+given C<$regex>.
+
+=cut
+
+sub like {
+    my( $self, $thing, $regex, $name ) = @_;
+
+    local $Level = $Level + 1;
+    return $self->_regex_ok( $thing, $regex, '=~', $name );
+}
+
+sub unlike {
+    my( $self, $thing, $regex, $name ) = @_;
+
+    local $Level = $Level + 1;
+    return $self->_regex_ok( $thing, $regex, '!~', $name );
+}
+
+=item B<cmp_ok>
+
+  $Test->cmp_ok($thing, $type, $that, $name);
+
+Works just like L<Test::More>'s C<cmp_ok()>.
+
+    $Test->cmp_ok($big_num, '!=', $other_big_num);
+
+=cut
+
+my %numeric_cmps = map { ( $_, 1 ) } ( "<", "<=", ">", ">=", "==", "!=", "<=>" );
+
+# Bad, these are not comparison operators. Should we include more?
+my %cmp_ok_bl = map { ( $_, 1 ) } ( "=", "+=", ".=", "x=", "^=", "|=", "||=", "&&=", "...");
+
+sub cmp_ok {
+    my( $self, $got, $type, $expect, $name ) = @_;
+
+    if ($cmp_ok_bl{$type}) {
+        $self->croak("$type is not a valid comparison operator in cmp_ok()");
+    }
+
+    my ($test, $succ);
+    my $error;
+    {
+        ## no critic (BuiltinFunctions::ProhibitStringyEval)
+
+        local( $@, $!, $SIG{__DIE__} );    # isolate eval
+
+        my($pack, $file, $line) = $self->caller();
+
+        # This is so that warnings come out at the caller's level
+        $succ = eval qq[
+#line $line "(eval in cmp_ok) $file"
+\$test = (\$got $type \$expect);
+1;
+];
+        $error = $@;
+    }
+    local $Level = $Level + 1;
+    my $ok = $self->ok( $test, $name );
+
+    # Treat overloaded objects as numbers if we're asked to do a
+    # numeric comparison.
+    my $unoverload
+      = $numeric_cmps{$type}
+      ? '_unoverload_num'
+      : '_unoverload_str';
+
+    $self->diag(<<"END") unless $succ;
+An error occurred while using $type:
+------------------------------------
+$error
+------------------------------------
+END
+
+    unless($ok) {
+        $self->$unoverload( \$got, \$expect );
+
+        if( $type =~ /^(eq|==)$/ ) {
+            $self->_is_diag( $got, $type, $expect );
+        }
+        elsif( $type =~ /^(ne|!=)$/ ) {
+            $self->_isnt_diag( $got, $type );
+        }
+        else {
+            $self->_cmp_diag( $got, $type, $expect );
+        }
+    }
+    return $ok;
+}
+
+sub _cmp_diag {
+    my( $self, $got, $type, $expect ) = @_;
+
+    $got    = defined $got    ? "'$got'"    : 'undef';
+    $expect = defined $expect ? "'$expect'" : 'undef';
+
+    local $Level = $Level + 1;
+    return $self->diag(<<"DIAGNOSTIC");
+    $got
+        $type
+    $expect
+DIAGNOSTIC
+}
+
+sub _caller_context {
+    my $self = shift;
+
+    my( $pack, $file, $line ) = $self->caller(1);
+
+    my $code = '';
+    $code .= "#line $line $file\n" if defined $file and defined $line;
+
+    return $code;
+}
+
+=back
+
+
+=head2 Other Testing Methods
+
+These are methods which are used in the course of writing a test but are not themselves tests.
+
+=over 4
+
+=item B<BAIL_OUT>
+
+    $Test->BAIL_OUT($reason);
+
+Indicates to the L<Test::Harness> that things are going so badly all
+testing should terminate.  This includes running any additional test
+scripts.
+
+It will exit with 255.
+
+=cut
+
+sub BAIL_OUT {
+    my( $self, $reason ) = @_;
+
+    $self->{Bailed_Out} = 1;
+
+    if ($self->parent) {
+        $self->{Bailed_Out_Reason} = $reason;
+        $self->no_ending(1);
+        die bless {} => 'Test::Builder::Exception';
+    }
+
+    $self->_print("Bail out!  $reason");
+    exit 255;
+}
+
+=for deprecated
+BAIL_OUT() used to be BAILOUT()
+
+=cut
+
+{
+    no warnings 'once';
+    *BAILOUT = \&BAIL_OUT;
+}
+
+=item B<skip>
+
+    $Test->skip;
+    $Test->skip($why);
+
+Skips the current test, reporting C<$why>.
+
+=cut
+
+sub skip {
+    my( $self, $why, $name ) = @_;
+    $why ||= '';
+    $name = '' unless defined $name;
+    $self->_unoverload_str( \$why );
+
+    lock( $self->{Curr_Test} );
+    $self->{Curr_Test}++;
+
+    $self->{Test_Results}[ $self->{Curr_Test} - 1 ] = &share(
+        {
+            'ok'      => 1,
+            actual_ok => 1,
+            name      => $name,
+            type      => 'skip',
+            reason    => $why,
+        }
+    );
+
+    my $out = "ok";
+    $out .= " $self->{Curr_Test}" if $self->use_numbers;
+    $out .= " # skip";
+    $out .= " $why"               if length $why;
+    $out .= "\n";
+
+    $self->_print($out);
+
+    return 1;
+}
+
+=item B<todo_skip>
+
+  $Test->todo_skip;
+  $Test->todo_skip($why);
+
+Like C<skip()>, only it will declare the test as failing and TODO.  Similar
+to
+
+    print "not ok $tnum # TODO $why\n";
+
+=cut
+
+sub todo_skip {
+    my( $self, $why ) = @_;
+    $why ||= '';
+
+    lock( $self->{Curr_Test} );
+    $self->{Curr_Test}++;
+
+    $self->{Test_Results}[ $self->{Curr_Test} - 1 ] = &share(
+        {
+            'ok'      => 1,
+            actual_ok => 0,
+            name      => '',
+            type      => 'todo_skip',
+            reason    => $why,
+        }
+    );
+
+    my $out = "not ok";
+    $out .= " $self->{Curr_Test}" if $self->use_numbers;
+    $out .= " # TODO & SKIP $why\n";
+
+    $self->_print($out);
+
+    return 1;
+}
+
+=begin _unimplemented
+
+=item B<skip_rest>
+
+  $Test->skip_rest;
+  $Test->skip_rest($reason);
+
+Like C<skip()>, only it skips all the rest of the tests you plan to run
+and terminates the test.
+
+If you're running under C<no_plan>, it skips once and terminates the
+test.
+
+=end _unimplemented
+
+=back
+
+
+=head2 Test building utility methods
+
+These methods are useful when writing your own test methods.
+
+=over 4
+
+=item B<maybe_regex>
+
+  $Test->maybe_regex(qr/$regex/);
+  $Test->maybe_regex('/$regex/');
+
+This method used to be useful back when Test::Builder worked on Perls
+before 5.6 which didn't have qr//.  Now its pretty useless.
+
+Convenience method for building testing functions that take regular
+expressions as arguments.
+
+Takes a quoted regular expression produced by C<qr//>, or a string
+representing a regular expression.
+
+Returns a Perl value which may be used instead of the corresponding
+regular expression, or C<undef> if its argument is not recognised.
+
+For example, a version of C<like()>, sans the useful diagnostic messages,
+could be written as:
+
+  sub laconic_like {
+      my ($self, $thing, $regex, $name) = @_;
+      my $usable_regex = $self->maybe_regex($regex);
+      die "expecting regex, found '$regex'\n"
+          unless $usable_regex;
+      $self->ok($thing =~ m/$usable_regex/, $name);
+  }
+
+=cut
+
+sub maybe_regex {
+    my( $self, $regex ) = @_;
+    my $usable_regex = undef;
+
+    return $usable_regex unless defined $regex;
+
+    my( $re, $opts );
+
+    # Check for qr/foo/
+    if( _is_qr($regex) ) {
+        $usable_regex = $regex;
+    }
+    # Check for '/foo/' or 'm,foo,'
+    elsif(( $re, $opts )        = $regex =~ m{^ /(.*)/ (\w*) $ }sx              or
+          ( undef, $re, $opts ) = $regex =~ m,^ m([^\w\s]) (.+) \1 (\w*) $,sx
+    )
+    {
+        $usable_regex = length $opts ? "(?$opts)$re" : $re;
+    }
+
+    return $usable_regex;
+}
+
+sub _is_qr {
+    my $regex = shift;
+
+    # is_regexp() checks for regexes in a robust manner, say if they're
+    # blessed.
+    return re::is_regexp($regex) if defined &re::is_regexp;
+    return ref $regex eq 'Regexp';
+}
+
+sub _regex_ok {
+    my( $self, $thing, $regex, $cmp, $name ) = @_;
+
+    my $ok           = 0;
+    my $usable_regex = $self->maybe_regex($regex);
+    unless( defined $usable_regex ) {
+        local $Level = $Level + 1;
+        $ok = $self->ok( 0, $name );
+        $self->diag("    '$regex' doesn't look much like a regex to me.");
+        return $ok;
+    }
+
+    {
+        my $test;
+        my $context = $self->_caller_context;
+
+        {
+            ## no critic (BuiltinFunctions::ProhibitStringyEval)
+
+            local( $@, $!, $SIG{__DIE__} );    # isolate eval
+
+            # No point in issuing an uninit warning, they'll see it in the diagnostics
+            no warnings 'uninitialized';
+
+            $test = eval $context . q{$test = $thing =~ /$usable_regex/ ? 1 : 0};
+        }
+
+        $test = !$test if $cmp eq '!~';
+
+        local $Level = $Level + 1;
+        $ok = $self->ok( $test, $name );
+    }
+
+    unless($ok) {
+        $thing = defined $thing ? "'$thing'" : 'undef';
+        my $match = $cmp eq '=~' ? "doesn't match" : "matches";
+
+        local $Level = $Level + 1;
+        $self->diag( sprintf <<'DIAGNOSTIC', $thing, $match, $regex );
+                  %s
+    %13s '%s'
+DIAGNOSTIC
+
+    }
+
+    return $ok;
+}
+
+# I'm not ready to publish this.  It doesn't deal with array return
+# values from the code or context.
+
+=begin private
+
+=item B<_try>
+
+    my $return_from_code          = $Test->try(sub { code });
+    my($return_from_code, $error) = $Test->try(sub { code });
+
+Works like eval BLOCK except it ensures it has no effect on the rest
+of the test (ie. C<$@> is not set) nor is effected by outside
+interference (ie. C<$SIG{__DIE__}>) and works around some quirks in older
+Perls.
+
+C<$error> is what would normally be in C<$@>.
+
+It is suggested you use this in place of eval BLOCK.
+
+=cut
+
+sub _try {
+    my( $self, $code, %opts ) = @_;
+
+    my $error;
+    my $return;
+    {
+        local $!;               # eval can mess up $!
+        local $@;               # don't set $@ in the test
+        local $SIG{__DIE__};    # don't trip an outside DIE handler.
+        $return = eval { $code->() };
+        $error = $@;
+    }
+
+    die $error if $error and $opts{die_on_fail};
+
+    return wantarray ? ( $return, $error ) : $return;
+}
+
+=end private
+
+
+=item B<is_fh>
+
+    my $is_fh = $Test->is_fh($thing);
+
+Determines if the given C<$thing> can be used as a filehandle.
+
+=cut
+
+sub is_fh {
+    my $self     = shift;
+    my $maybe_fh = shift;
+    return 0 unless defined $maybe_fh;
+
+    return 1 if ref $maybe_fh  eq 'GLOB';    # its a glob ref
+    return 1 if ref \$maybe_fh eq 'GLOB';    # its a glob
+
+    return eval { $maybe_fh->isa("IO::Handle") } ||
+           eval { tied($maybe_fh)->can('TIEHANDLE') };
+}
+
+=back
+
+
+=head2 Test style
+
+
+=over 4
+
+=item B<level>
+
+    $Test->level($how_high);
+
+How far up the call stack should C<$Test> look when reporting where the
+test failed.
+
+Defaults to 1.
+
+Setting L<$Test::Builder::Level> overrides.  This is typically useful
+localized:
+
+    sub my_ok {
+        my $test = shift;
+
+        local $Test::Builder::Level = $Test::Builder::Level + 1;
+        $TB->ok($test);
+    }
+
+To be polite to other functions wrapping your own you usually want to increment C<$Level> rather than set it to a constant.
+
+=cut
+
+sub level {
+    my( $self, $level ) = @_;
+
+    if( defined $level ) {
+        $Level = $level;
+    }
+    return $Level;
+}
+
+=item B<use_numbers>
+
+    $Test->use_numbers($on_or_off);
+
+Whether or not the test should output numbers.  That is, this if true:
+
+  ok 1
+  ok 2
+  ok 3
+
+or this if false
+
+  ok
+  ok
+  ok
+
+Most useful when you can't depend on the test output order, such as
+when threads or forking is involved.
+
+Defaults to on.
+
+=cut
+
+sub use_numbers {
+    my( $self, $use_nums ) = @_;
+
+    if( defined $use_nums ) {
+        $self->{Use_Nums} = $use_nums;
+    }
+    return $self->{Use_Nums};
+}
+
+=item B<no_diag>
+
+    $Test->no_diag($no_diag);
+
+If set true no diagnostics will be printed.  This includes calls to
+C<diag()>.
+
+=item B<no_ending>
+
+    $Test->no_ending($no_ending);
+
+Normally, Test::Builder does some extra diagnostics when the test
+ends.  It also changes the exit code as described below.
+
+If this is true, none of that will be done.
+
+=item B<no_header>
+
+    $Test->no_header($no_header);
+
+If set to true, no "1..N" header will be printed.
+
+=cut
+
+foreach my $attribute (qw(No_Header No_Ending No_Diag)) {
+    my $method = lc $attribute;
+
+    my $code = sub {
+        my( $self, $no ) = @_;
+
+        if( defined $no ) {
+            $self->{$attribute} = $no;
+        }
+        return $self->{$attribute};
+    };
+
+    no strict 'refs';    ## no critic
+    *{ __PACKAGE__ . '::' . $method } = $code;
+}
+
+=back
+
+=head2 Output
+
+Controlling where the test output goes.
+
+It's ok for your test to change where STDOUT and STDERR point to,
+Test::Builder's default output settings will not be affected.
+
+=over 4
+
+=item B<diag>
+
+    $Test->diag(@msgs);
+
+Prints out the given C<@msgs>.  Like C<print>, arguments are simply
+appended together.
+
+Normally, it uses the C<failure_output()> handle, but if this is for a
+TODO test, the C<todo_output()> handle is used.
+
+Output will be indented and marked with a # so as not to interfere
+with test output.  A newline will be put on the end if there isn't one
+already.
+
+We encourage using this rather than calling print directly.
+
+Returns false.  Why?  Because C<diag()> is often used in conjunction with
+a failing test (C<ok() || diag()>) it "passes through" the failure.
+
+    return ok(...) || diag(...);
+
+=for blame transfer
+Mark Fowler <mark@twoshortplanks.com>
+
+=cut
+
+sub diag {
+    my $self = shift;
+
+    $self->_print_comment( $self->_diag_fh, @_ );
+}
+
+=item B<note>
+
+    $Test->note(@msgs);
+
+Like C<diag()>, but it prints to the C<output()> handle so it will not
+normally be seen by the user except in verbose mode.
+
+=cut
+
+sub note {
+    my $self = shift;
+
+    $self->_print_comment( $self->output, @_ );
+}
+
+sub _diag_fh {
+    my $self = shift;
+
+    local $Level = $Level + 1;
+    return $self->in_todo ? $self->todo_output : $self->failure_output;
+}
+
+sub _print_comment {
+    my( $self, $fh, @msgs ) = @_;
+
+    return if $self->no_diag;
+    return unless @msgs;
+
+    # Prevent printing headers when compiling (i.e. -c)
+    return if $^C;
+
+    # Smash args together like print does.
+    # Convert undef to 'undef' so its readable.
+    my $msg = join '', map { defined($_) ? $_ : 'undef' } @msgs;
+
+    # Escape the beginning, _print will take care of the rest.
+    $msg =~ s/^/# /;
+
+    local $Level = $Level + 1;
+    $self->_print_to_fh( $fh, $msg );
+
+    return 0;
+}
+
+=item B<explain>
+
+    my @dump = $Test->explain(@msgs);
+
+Will dump the contents of any references in a human readable format.
+Handy for things like...
+
+    is_deeply($have, $want) || diag explain $have;
+
+or
+
+    is_deeply($have, $want) || note explain $have;
+
+=cut
+
+sub explain {
+    my $self = shift;
+
+    return map {
+        ref $_
+          ? do {
+            $self->_try(sub { require Data::Dumper }, die_on_fail => 1);
+
+            my $dumper = Data::Dumper->new( [$_] );
+            $dumper->Indent(1)->Terse(1);
+            $dumper->Sortkeys(1) if $dumper->can("Sortkeys");
+            $dumper->Dump;
+          }
+          : $_
+    } @_;
+}
+
+=begin _private
+
+=item B<_print>
+
+    $Test->_print(@msgs);
+
+Prints to the C<output()> filehandle.
+
+=end _private
+
+=cut
+
+sub _print {
+    my $self = shift;
+    return $self->_print_to_fh( $self->output, @_ );
+}
+
+sub _print_to_fh {
+    my( $self, $fh, @msgs ) = @_;
+
+    # Prevent printing headers when only compiling.  Mostly for when
+    # tests are deparsed with B::Deparse
+    return if $^C;
+
+    my $msg = join '', @msgs;
+    my $indent = $self->_indent;
+
+    local( $\, $", $, ) = ( undef, ' ', '' );
+
+    # Escape each line after the first with a # so we don't
+    # confuse Test::Harness.
+    $msg =~ s{\n(?!\z)}{\n$indent# }sg;
+
+    # Stick a newline on the end if it needs it.
+    $msg .= "\n" unless $msg =~ /\n\z/;
+
+    return print $fh $indent, $msg;
+}
+
+=item B<output>
+
+=item B<failure_output>
+
+=item B<todo_output>
+
+    my $filehandle = $Test->output;
+    $Test->output($filehandle);
+    $Test->output($filename);
+    $Test->output(\$scalar);
+
+These methods control where Test::Builder will print its output.
+They take either an open C<$filehandle>, a C<$filename> to open and write to
+or a C<$scalar> reference to append to.  It will always return a C<$filehandle>.
+
+B<output> is where normal "ok/not ok" test output goes.
+
+Defaults to STDOUT.
+
+B<failure_output> is where diagnostic output on test failures and
+C<diag()> goes.  It is normally not read by Test::Harness and instead is
+displayed to the user.
+
+Defaults to STDERR.
+
+C<todo_output> is used instead of C<failure_output()> for the
+diagnostics of a failing TODO test.  These will not be seen by the
+user.
+
+Defaults to STDOUT.
+
+=cut
+
+sub output {
+    my( $self, $fh ) = @_;
+
+    if( defined $fh ) {
+        $self->{Out_FH} = $self->_new_fh($fh);
+    }
+    return $self->{Out_FH};
+}
+
+sub failure_output {
+    my( $self, $fh ) = @_;
+
+    if( defined $fh ) {
+        $self->{Fail_FH} = $self->_new_fh($fh);
+    }
+    return $self->{Fail_FH};
+}
+
+sub todo_output {
+    my( $self, $fh ) = @_;
+
+    if( defined $fh ) {
+        $self->{Todo_FH} = $self->_new_fh($fh);
+    }
+    return $self->{Todo_FH};
+}
+
+sub _new_fh {
+    my $self = shift;
+    my($file_or_fh) = shift;
+
+    my $fh;
+    if( $self->is_fh($file_or_fh) ) {
+        $fh = $file_or_fh;
+    }
+    elsif( ref $file_or_fh eq 'SCALAR' ) {
+        # Scalar refs as filehandles was added in 5.8.
+        if( $] >= 5.008 ) {
+            open $fh, ">>", $file_or_fh
+              or $self->croak("Can't open scalar ref $file_or_fh: $!");
+        }
+        # Emulate scalar ref filehandles with a tie.
+        else {
+            $fh = Test::Builder::IO::Scalar->new($file_or_fh)
+              or $self->croak("Can't tie scalar ref $file_or_fh");
+        }
+    }
+    else {
+        open $fh, ">", $file_or_fh
+          or $self->croak("Can't open test output log $file_or_fh: $!");
+        _autoflush($fh);
+    }
+
+    return $fh;
+}
+
+sub _autoflush {
+    my($fh) = shift;
+    my $old_fh = select $fh;
+    $| = 1;
+    select $old_fh;
+
+    return;
+}
+
+my( $Testout, $Testerr );
+
+sub _dup_stdhandles {
+    my $self = shift;
+
+    $self->_open_testhandles;
+
+    # Set everything to unbuffered else plain prints to STDOUT will
+    # come out in the wrong order from our own prints.
+    _autoflush($Testout);
+    _autoflush( \*STDOUT );
+    _autoflush($Testerr);
+    _autoflush( \*STDERR );
+
+    $self->reset_outputs;
+
+    return;
+}
+
+sub _open_testhandles {
+    my $self = shift;
+
+    return if $self->{Opened_Testhandles};
+
+    # We dup STDOUT and STDERR so people can change them in their
+    # test suites while still getting normal test output.
+    open( $Testout, ">&STDOUT" ) or die "Can't dup STDOUT:  $!";
+    open( $Testerr, ">&STDERR" ) or die "Can't dup STDERR:  $!";
+
+    $self->_copy_io_layers( \*STDOUT, $Testout );
+    $self->_copy_io_layers( \*STDERR, $Testerr );
+
+    $self->{Opened_Testhandles} = 1;
+
+    return;
+}
+
+sub _copy_io_layers {
+    my( $self, $src, $dst ) = @_;
+
+    $self->_try(
+        sub {
+            require PerlIO;
+            my @src_layers = PerlIO::get_layers($src);
+
+            _apply_layers($dst, @src_layers) if @src_layers;
+        }
+    );
+
+    return;
+}
+
+sub _apply_layers {
+    my ($fh, @layers) = @_;
+    my %seen;
+    my @unique = grep { $_ ne 'unix' and !$seen{$_}++ } @layers;
+    binmode($fh, join(":", "", "raw", @unique));
+}
+
+
+=item reset_outputs
+
+  $tb->reset_outputs;
+
+Resets all the output filehandles back to their defaults.
+
+=cut
+
+sub reset_outputs {
+    my $self = shift;
+
+    $self->output        ($Testout);
+    $self->failure_output($Testerr);
+    $self->todo_output   ($Testout);
+
+    return;
+}
+
+=item carp
+
+  $tb->carp(@message);
+
+Warns with C<@message> but the message will appear to come from the
+point where the original test function was called (C<< $tb->caller >>).
+
+=item croak
+
+  $tb->croak(@message);
+
+Dies with C<@message> but the message will appear to come from the
+point where the original test function was called (C<< $tb->caller >>).
+
+=cut
+
+sub _message_at_caller {
+    my $self = shift;
+
+    local $Level = $Level + 1;
+    my( $pack, $file, $line ) = $self->caller;
+    return join( "", @_ ) . " at $file line $line.\n";
+}
+
+sub carp {
+    my $self = shift;
+    return warn $self->_message_at_caller(@_);
+}
+
+sub croak {
+    my $self = shift;
+    return die $self->_message_at_caller(@_);
+}
+
+
+=back
+
+
+=head2 Test Status and Info
+
+=over 4
+
+=item B<current_test>
+
+    my $curr_test = $Test->current_test;
+    $Test->current_test($num);
+
+Gets/sets the current test number we're on.  You usually shouldn't
+have to set this.
+
+If set forward, the details of the missing tests are filled in as 'unknown'.
+if set backward, the details of the intervening tests are deleted.  You
+can erase history if you really want to.
+
+=cut
+
+sub current_test {
+    my( $self, $num ) = @_;
+
+    lock( $self->{Curr_Test} );
+    if( defined $num ) {
+        $self->{Curr_Test} = $num;
+
+        # If the test counter is being pushed forward fill in the details.
+        my $test_results = $self->{Test_Results};
+        if( $num > @$test_results ) {
+            my $start = @$test_results ? @$test_results : 0;
+            for( $start .. $num - 1 ) {
+                $test_results->[$_] = &share(
+                    {
+                        'ok'      => 1,
+                        actual_ok => undef,
+                        reason    => 'incrementing test number',
+                        type      => 'unknown',
+                        name      => undef
+                    }
+                );
+            }
+        }
+        # If backward, wipe history.  Its their funeral.
+        elsif( $num < @$test_results ) {
+            $#{$test_results} = $num - 1;
+        }
+    }
+    return $self->{Curr_Test};
+}
+
+=item B<is_passing>
+
+   my $ok = $builder->is_passing;
+
+Indicates if the test suite is currently passing.
+
+More formally, it will be false if anything has happened which makes
+it impossible for the test suite to pass.  True otherwise.
+
+For example, if no tests have run C<is_passing()> will be true because
+even though a suite with no tests is a failure you can add a passing
+test to it and start passing.
+
+Don't think about it too much.
+
+=cut
+
+sub is_passing {
+    my $self = shift;
+
+    if( @_ ) {
+        $self->{Is_Passing} = shift;
+    }
+
+    return $self->{Is_Passing};
+}
+
+
+=item B<summary>
+
+    my @tests = $Test->summary;
+
+A simple summary of the tests so far.  True for pass, false for fail.
+This is a logical pass/fail, so todos are passes.
+
+Of course, test #1 is $tests[0], etc...
+
+=cut
+
+sub summary {
+    my($self) = shift;
+
+    return map { $_->{'ok'} } @{ $self->{Test_Results} };
+}
+
+=item B<details>
+
+    my @tests = $Test->details;
+
+Like C<summary()>, but with a lot more detail.
+
+    $tests[$test_num - 1] = 
+            { 'ok'       => is the test considered a pass?
+              actual_ok  => did it literally say 'ok'?
+              name       => name of the test (if any)
+              type       => type of test (if any, see below).
+              reason     => reason for the above (if any)
+            };
+
+'ok' is true if Test::Harness will consider the test to be a pass.
+
+'actual_ok' is a reflection of whether or not the test literally
+printed 'ok' or 'not ok'.  This is for examining the result of 'todo'
+tests.
+
+'name' is the name of the test.
+
+'type' indicates if it was a special test.  Normal tests have a type
+of ''.  Type can be one of the following:
+
+    skip        see skip()
+    todo        see todo()
+    todo_skip   see todo_skip()
+    unknown     see below
+
+Sometimes the Test::Builder test counter is incremented without it
+printing any test output, for example, when C<current_test()> is changed.
+In these cases, Test::Builder doesn't know the result of the test, so
+its type is 'unknown'.  These details for these tests are filled in.
+They are considered ok, but the name and actual_ok is left C<undef>.
+
+For example "not ok 23 - hole count # TODO insufficient donuts" would
+result in this structure:
+
+    $tests[22] =    # 23 - 1, since arrays start from 0.
+      { ok        => 1,   # logically, the test passed since its todo
+        actual_ok => 0,   # in absolute terms, it failed
+        name      => 'hole count',
+        type      => 'todo',
+        reason    => 'insufficient donuts'
+      };
+
+=cut
+
+sub details {
+    my $self = shift;
+    return @{ $self->{Test_Results} };
+}
+
+=item B<todo>
+
+    my $todo_reason = $Test->todo;
+    my $todo_reason = $Test->todo($pack);
+
+If the current tests are considered "TODO" it will return the reason,
+if any.  This reason can come from a C<$TODO> variable or the last call
+to C<todo_start()>.
+
+Since a TODO test does not need a reason, this function can return an
+empty string even when inside a TODO block.  Use C<< $Test->in_todo >>
+to determine if you are currently inside a TODO block.
+
+C<todo()> is about finding the right package to look for C<$TODO> in.  It's
+pretty good at guessing the right package to look at.  It first looks for
+the caller based on C<$Level + 1>, since C<todo()> is usually called inside
+a test function.  As a last resort it will use C<exported_to()>.
+
+Sometimes there is some confusion about where C<todo()> should be looking
+for the C<$TODO> variable.  If you want to be sure, tell it explicitly
+what $pack to use.
+
+=cut
+
+sub todo {
+    my( $self, $pack ) = @_;
+
+    return $self->{Todo} if defined $self->{Todo};
+
+    local $Level = $Level + 1;
+    my $todo = $self->find_TODO($pack);
+    return $todo if defined $todo;
+
+    return '';
+}
+
+=item B<find_TODO>
+
+    my $todo_reason = $Test->find_TODO();
+    my $todo_reason = $Test->find_TODO($pack);
+
+Like C<todo()> but only returns the value of C<$TODO> ignoring
+C<todo_start()>.
+
+Can also be used to set C<$TODO> to a new value while returning the
+old value:
+
+    my $old_reason = $Test->find_TODO($pack, 1, $new_reason);
+
+=cut
+
+sub find_TODO {
+    my( $self, $pack, $set, $new_value ) = @_;
+
+    $pack = $pack || $self->caller(1) || $self->exported_to;
+    return unless $pack;
+
+    no strict 'refs';    ## no critic
+    my $old_value = ${ $pack . '::TODO' };
+    $set and ${ $pack . '::TODO' } = $new_value;
+    return $old_value;
+}
+
+=item B<in_todo>
+
+    my $in_todo = $Test->in_todo;
+
+Returns true if the test is currently inside a TODO block.
+
+=cut
+
+sub in_todo {
+    my $self = shift;
+
+    local $Level = $Level + 1;
+    return( defined $self->{Todo} || $self->find_TODO ) ? 1 : 0;
+}
+
+=item B<todo_start>
+
+    $Test->todo_start();
+    $Test->todo_start($message);
+
+This method allows you declare all subsequent tests as TODO tests, up until
+the C<todo_end> method has been called.
+
+The C<TODO:> and C<$TODO> syntax is generally pretty good about figuring out
+whether or not we're in a TODO test.  However, often we find that this is not
+possible to determine (such as when we want to use C<$TODO> but
+the tests are being executed in other packages which can't be inferred
+beforehand).
+
+Note that you can use this to nest "todo" tests
+
+ $Test->todo_start('working on this');
+ # lots of code
+ $Test->todo_start('working on that');
+ # more code
+ $Test->todo_end;
+ $Test->todo_end;
+
+This is generally not recommended, but large testing systems often have weird
+internal needs.
+
+We've tried to make this also work with the TODO: syntax, but it's not
+guaranteed and its use is also discouraged:
+
+ TODO: {
+     local $TODO = 'We have work to do!';
+     $Test->todo_start('working on this');
+     # lots of code
+     $Test->todo_start('working on that');
+     # more code
+     $Test->todo_end;
+     $Test->todo_end;
+ }
+
+Pick one style or another of "TODO" to be on the safe side.
+
+=cut
+
+sub todo_start {
+    my $self = shift;
+    my $message = @_ ? shift : '';
+
+    $self->{Start_Todo}++;
+    if( $self->in_todo ) {
+        push @{ $self->{Todo_Stack} } => $self->todo;
+    }
+    $self->{Todo} = $message;
+
+    return;
+}
+
+=item C<todo_end>
+
+ $Test->todo_end;
+
+Stops running tests as "TODO" tests.  This method is fatal if called without a
+preceding C<todo_start> method call.
+
+=cut
+
+sub todo_end {
+    my $self = shift;
+
+    if( !$self->{Start_Todo} ) {
+        $self->croak('todo_end() called without todo_start()');
+    }
+
+    $self->{Start_Todo}--;
+
+    if( $self->{Start_Todo} && @{ $self->{Todo_Stack} } ) {
+        $self->{Todo} = pop @{ $self->{Todo_Stack} };
+    }
+    else {
+        delete $self->{Todo};
+    }
+
+    return;
+}
+
+=item B<caller>
+
+    my $package = $Test->caller;
+    my($pack, $file, $line) = $Test->caller;
+    my($pack, $file, $line) = $Test->caller($height);
+
+Like the normal C<caller()>, except it reports according to your C<level()>.
+
+C<$height> will be added to the C<level()>.
+
+If C<caller()> winds up off the top of the stack it report the highest context.
+
+=cut
+
+sub caller {    ## no critic (Subroutines::ProhibitBuiltinHomonyms)
+    my( $self, $height ) = @_;
+    $height ||= 0;
+
+    my $level = $self->level + $height + 1;
+    my @caller;
+    do {
+        @caller = CORE::caller( $level );
+        $level--;
+    } until @caller;
+    return wantarray ? @caller : $caller[0];
+}
+
+=back
+
+=cut
+
+=begin _private
+
+=over 4
+
+=item B<_sanity_check>
+
+  $self->_sanity_check();
+
+Runs a bunch of end of test sanity checks to make sure reality came
+through ok.  If anything is wrong it will die with a fairly friendly
+error message.
+
+=cut
+
+#'#
+sub _sanity_check {
+    my $self = shift;
+
+    $self->_whoa( $self->{Curr_Test} < 0, 'Says here you ran a negative number of tests!' );
+    $self->_whoa( $self->{Curr_Test} != @{ $self->{Test_Results} },
+        'Somehow you got a different number of results than tests ran!' );
+
+    return;
+}
+
+=item B<_whoa>
+
+  $self->_whoa($check, $description);
+
+A sanity check, similar to C<assert()>.  If the C<$check> is true, something
+has gone horribly wrong.  It will die with the given C<$description> and
+a note to contact the author.
+
+=cut
+
+sub _whoa {
+    my( $self, $check, $desc ) = @_;
+    if($check) {
+        local $Level = $Level + 1;
+        $self->croak(<<"WHOA");
+WHOA!  $desc
+This should never happen!  Please contact the author immediately!
+WHOA
+    }
+
+    return;
+}
+
+=item B<_my_exit>
+
+  _my_exit($exit_num);
+
+Perl seems to have some trouble with exiting inside an C<END> block.
+5.6.1 does some odd things.  Instead, this function edits C<$?>
+directly.  It should B<only> be called from inside an C<END> block.
+It doesn't actually exit, that's your job.
+
+=cut
+
+sub _my_exit {
+    $? = $_[0];    ## no critic (Variables::RequireLocalizedPunctuationVars)
+
+    return 1;
+}
+
+=back
+
+=end _private
+
+=cut
+
+sub _ending {
+    my $self = shift;
+    return if $self->no_ending;
+    return if $self->{Ending}++;
+
+    my $real_exit_code = $?;
+
+    # Don't bother with an ending if this is a forked copy.  Only the parent
+    # should do the ending.
+    if( $self->{Original_Pid} != $$ ) {
+        return;
+    }
+
+    # Ran tests but never declared a plan or hit done_testing
+    if( !$self->{Have_Plan} and $self->{Curr_Test} ) {
+        $self->is_passing(0);
+        $self->diag("Tests were run but no plan was declared and done_testing() was not seen.");
+
+        if($real_exit_code) {
+            $self->diag(<<"FAIL");
+Looks like your test exited with $real_exit_code just after $self->{Curr_Test}.
+FAIL
+            $self->is_passing(0);
+            _my_exit($real_exit_code) && return;
+        }
+
+        # But if the tests ran, handle exit code.
+        my $test_results = $self->{Test_Results};
+        if(@$test_results) {
+            my $num_failed = grep !$_->{'ok'}, @{$test_results}[ 0 .. $self->{Curr_Test} - 1 ];
+            if ($num_failed > 0) {
+
+                my $exit_code = $num_failed <= 254 ? $num_failed : 254;
+                _my_exit($exit_code) && return;
+            }
+        }
+        _my_exit(254) && return;
+    }
+
+    # Exit if plan() was never called.  This is so "require Test::Simple"
+    # doesn't puke.
+    if( !$self->{Have_Plan} ) {
+        return;
+    }
+
+    # Don't do an ending if we bailed out.
+    if( $self->{Bailed_Out} ) {
+        $self->is_passing(0);
+        return;
+    }
+    # Figure out if we passed or failed and print helpful messages.
+    my $test_results = $self->{Test_Results};
+    if(@$test_results) {
+        # The plan?  We have no plan.
+        if( $self->{No_Plan} ) {
+            $self->_output_plan($self->{Curr_Test}) unless $self->no_header;
+            $self->{Expected_Tests} = $self->{Curr_Test};
+        }
+
+        # Auto-extended arrays and elements which aren't explicitly
+        # filled in with a shared reference will puke under 5.8.0
+        # ithreads.  So we have to fill them in by hand. :(
+        my $empty_result = &share( {} );
+        for my $idx ( 0 .. $self->{Expected_Tests} - 1 ) {
+            $test_results->[$idx] = $empty_result
+              unless defined $test_results->[$idx];
+        }
+
+        my $num_failed = grep !$_->{'ok'}, @{$test_results}[ 0 .. $self->{Curr_Test} - 1 ];
+
+        my $num_extra = $self->{Curr_Test} - $self->{Expected_Tests};
+
+        if( $num_extra != 0 ) {
+            my $s = $self->{Expected_Tests} == 1 ? '' : 's';
+            $self->diag(<<"FAIL");
+Looks like you planned $self->{Expected_Tests} test$s but ran $self->{Curr_Test}.
+FAIL
+            $self->is_passing(0);
+        }
+
+        if($num_failed) {
+            my $num_tests = $self->{Curr_Test};
+            my $s = $num_failed == 1 ? '' : 's';
+
+            my $qualifier = $num_extra == 0 ? '' : ' run';
+
+            $self->diag(<<"FAIL");
+Looks like you failed $num_failed test$s of $num_tests$qualifier.
+FAIL
+            $self->is_passing(0);
+        }
+
+        if($real_exit_code) {
+            $self->diag(<<"FAIL");
+Looks like your test exited with $real_exit_code just after $self->{Curr_Test}.
+FAIL
+            $self->is_passing(0);
+            _my_exit($real_exit_code) && return;
+        }
+
+        my $exit_code;
+        if($num_failed) {
+            $exit_code = $num_failed <= 254 ? $num_failed : 254;
+        }
+        elsif( $num_extra != 0 ) {
+            $exit_code = 255;
+        }
+        else {
+            $exit_code = 0;
+        }
+
+        _my_exit($exit_code) && return;
+    }
+    elsif( $self->{Skip_All} ) {
+        _my_exit(0) && return;
+    }
+    elsif($real_exit_code) {
+        $self->diag(<<"FAIL");
+Looks like your test exited with $real_exit_code before it could output anything.
+FAIL
+        $self->is_passing(0);
+        _my_exit($real_exit_code) && return;
+    }
+    else {
+        $self->diag("No tests run!\n");
+        $self->is_passing(0);
+        _my_exit(255) && return;
+    }
+
+    $self->is_passing(0);
+    $self->_whoa( 1, "We fell off the end of _ending()" );
+}
+
+END {
+    $Test->_ending if defined $Test;
+}
+
+=head1 EXIT CODES
+
+If all your tests passed, Test::Builder will exit with zero (which is
+normal).  If anything failed it will exit with how many failed.  If
+you run less (or more) tests than you planned, the missing (or extras)
+will be considered failures.  If no tests were ever run Test::Builder
+will throw a warning and exit with 255.  If the test died, even after
+having successfully completed all its tests, it will still be
+considered a failure and will exit with 255.
+
+So the exit codes are...
+
+    0                   all tests successful
+    255                 test died or all passed but wrong # of tests run
+    any other number    how many failed (including missing or extras)
+
+If you fail more than 254 tests, it will be reported as 254.
+
+=head1 THREADS
+
+In perl 5.8.1 and later, Test::Builder is thread-safe.  The test
+number is shared amongst all threads.  This means if one thread sets
+the test number using C<current_test()> they will all be effected.
+
+While versions earlier than 5.8.1 had threads they contain too many
+bugs to support.
+
+Test::Builder is only thread-aware if threads.pm is loaded I<before>
+Test::Builder.
+
+=head1 MEMORY
+
+An informative hash, accessible via C<details()>, is stored for each
+test you perform.  So memory usage will scale linearly with each test
+run. Although this is not a problem for most test suites, it can
+become an issue if you do large (hundred thousands to million)
+combinatorics tests in the same run.
+
+In such cases, you are advised to either split the test file into smaller
+ones, or use a reverse approach, doing "normal" (code) compares and
+triggering C<fail()> should anything go unexpected.
+
+Future versions of Test::Builder will have a way to turn history off.
+
+
+=head1 EXAMPLES
+
+CPAN can provide the best examples.  L<Test::Simple>, L<Test::More>,
+L<Test::Exception> and L<Test::Differences> all use Test::Builder.
+
+=head1 SEE ALSO
+
+L<Test::Simple>, L<Test::More>, L<Test::Harness>
+
+=head1 AUTHORS
+
+Original code by chromatic, maintained by Michael G Schwern
+E<lt>schwern@pobox.comE<gt>
+
+=head1 MAINTAINERS
+
+=over 4
+
+=item Chad Granum E<lt>exodist@cpan.orgE<gt>
+
+=back
+
+=head1 COPYRIGHT
+
+Copyright 2002-2008 by chromatic E<lt>chromatic@wgz.orgE<gt> and
+                       Michael G Schwern E<lt>schwern@pobox.comE<gt>.
+
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+See F<http://www.perl.com/perl/misc/Artistic.html>
+
+=cut
+
+1;
+
diff --git a/lib/5.24.1/Test/Builder/IO/Scalar.pm b/lib/5.24.1/Test/Builder/IO/Scalar.pm
new file mode 100644
index 00000000..54700c42
--- /dev/null
+++ b/lib/5.24.1/Test/Builder/IO/Scalar.pm
@@ -0,0 +1,658 @@
+package Test::Builder::IO::Scalar;
+
+
+=head1 NAME
+
+Test::Builder::IO::Scalar - A copy of IO::Scalar for Test::Builder
+
+=head1 DESCRIPTION
+
+This is a copy of L<IO::Scalar> which ships with L<Test::Builder> to
+support scalar references as filehandles on Perl 5.6.  Newer
+versions of Perl simply use C<open()>'s built in support.
+
+L<Test::Builder> can not have dependencies on other modules without
+careful consideration, so its simply been copied into the distribution.
+
+=head1 COPYRIGHT and LICENSE
+
+This file came from the "IO-stringy" Perl5 toolkit.
+
+Copyright (c) 1996 by Eryq.  All rights reserved.
+Copyright (c) 1999,2001 by ZeeGee Software Inc.  All rights reserved.
+
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+
+=cut
+
+# This is copied code, I don't care.
+##no critic
+
+use Carp;
+use strict;
+use vars qw($VERSION @ISA);
+use IO::Handle;
+
+use 5.005;
+
+### The package version, both in 1.23 style *and* usable by MakeMaker:
+$VERSION = "2.113";
+
+### Inheritance:
+@ISA = qw(IO::Handle);
+
+#==============================
+
+=head2 Construction
+
+=over 4
+
+=cut
+
+#------------------------------
+
+=item new [ARGS...]
+
+I<Class method.>
+Return a new, unattached scalar handle.
+If any arguments are given, they're sent to open().
+
+=cut
+
+sub new {
+    my $proto = shift;
+    my $class = ref($proto) || $proto;
+    my $self = bless \do { local *FH }, $class;
+    tie *$self, $class, $self;
+    $self->open(@_);   ### open on anonymous by default
+    $self;
+}
+sub DESTROY {
+    shift->close;
+}
+
+#------------------------------
+
+=item open [SCALARREF]
+
+I<Instance method.>
+Open the scalar handle on a new scalar, pointed to by SCALARREF.
+If no SCALARREF is given, a "private" scalar is created to hold
+the file data.
+
+Returns the self object on success, undefined on error.
+
+=cut
+
+sub open {
+    my ($self, $sref) = @_;
+
+    ### Sanity:
+    defined($sref) or do {my $s = ''; $sref = \$s};
+    (ref($sref) eq "SCALAR") or croak "open() needs a ref to a scalar";
+
+    ### Setup:
+    *$self->{Pos} = 0;          ### seek position
+    *$self->{SR}  = $sref;      ### scalar reference
+    $self;
+}
+
+#------------------------------
+
+=item opened
+
+I<Instance method.>
+Is the scalar handle opened on something?
+
+=cut
+
+sub opened {
+    *{shift()}->{SR};
+}
+
+#------------------------------
+
+=item close
+
+I<Instance method.>
+Disassociate the scalar handle from its underlying scalar.
+Done automatically on destroy.
+
+=cut
+
+sub close {
+    my $self = shift;
+    %{*$self} = ();
+    1;
+}
+
+=back
+
+=cut
+
+
+
+#==============================
+
+=head2 Input and output
+
+=over 4
+
+=cut
+
+
+#------------------------------
+
+=item flush
+
+I<Instance method.>
+No-op, provided for OO compatibility.
+
+=cut
+
+sub flush { "0 but true" }
+
+#------------------------------
+
+=item getc
+
+I<Instance method.>
+Return the next character, or undef if none remain.
+
+=cut
+
+sub getc {
+    my $self = shift;
+
+    ### Return undef right away if at EOF; else, move pos forward:
+    return undef if $self->eof;
+    substr(${*$self->{SR}}, *$self->{Pos}++, 1);
+}
+
+#------------------------------
+
+=item getline
+
+I<Instance method.>
+Return the next line, or undef on end of string.
+Can safely be called in an array context.
+Currently, lines are delimited by "\n".
+
+=cut
+
+sub getline {
+    my $self = shift;
+
+    ### Return undef right away if at EOF:
+    return undef if $self->eof;
+
+    ### Get next line:
+    my $sr = *$self->{SR};
+    my $i  = *$self->{Pos};	        ### Start matching at this point.
+
+    ### Minimal impact implementation!
+    ### We do the fast fast thing (no regexps) if using the
+    ### classic input record separator.
+
+    ### Case 1: $/ is undef: slurp all...
+    if    (!defined($/)) {
+	*$self->{Pos} = length $$sr;
+        return substr($$sr, $i);
+    }
+
+    ### Case 2: $/ is "\n": zoom zoom zoom...
+    elsif ($/ eq "\012") {
+
+        ### Seek ahead for "\n"... yes, this really is faster than regexps.
+        my $len = length($$sr);
+        for (; $i < $len; ++$i) {
+           last if ord (substr ($$sr, $i, 1)) == 10;
+        }
+
+        ### Extract the line:
+        my $line;
+        if ($i < $len) {                ### We found a "\n":
+            $line = substr ($$sr, *$self->{Pos}, $i - *$self->{Pos} + 1);
+            *$self->{Pos} = $i+1;            ### Remember where we finished up.
+        }
+        else {                          ### No "\n"; slurp the remainder:
+            $line = substr ($$sr, *$self->{Pos}, $i - *$self->{Pos});
+            *$self->{Pos} = $len;
+        }
+        return $line;
+    }
+
+    ### Case 3: $/ is ref to int. Do fixed-size records.
+    ###        (Thanks to Dominique Quatravaux.)
+    elsif (ref($/)) {
+        my $len = length($$sr);
+		my $i = ${$/} + 0;
+		my $line = substr ($$sr, *$self->{Pos}, $i);
+		*$self->{Pos} += $i;
+        *$self->{Pos} = $len if (*$self->{Pos} > $len);
+		return $line;
+    }
+
+    ### Case 4: $/ is either "" (paragraphs) or something weird...
+    ###         This is Graham's general-purpose stuff, which might be
+    ###         a tad slower than Case 2 for typical data, because
+    ###         of the regexps.
+    else {
+        pos($$sr) = $i;
+
+	### If in paragraph mode, skip leading lines (and update i!):
+        length($/) or
+	    (($$sr =~ m/\G\n*/g) and ($i = pos($$sr)));
+
+        ### If we see the separator in the buffer ahead...
+        if (length($/)
+	    ?  $$sr =~ m,\Q$/\E,g          ###   (ordinary sep) TBD: precomp!
+            :  $$sr =~ m,\n\n,g            ###   (a paragraph)
+            ) {
+            *$self->{Pos} = pos $$sr;
+            return substr($$sr, $i, *$self->{Pos}-$i);
+        }
+        ### Else if no separator remains, just slurp the rest:
+        else {
+            *$self->{Pos} = length $$sr;
+            return substr($$sr, $i);
+        }
+    }
+}
+
+#------------------------------
+
+=item getlines
+
+I<Instance method.>
+Get all remaining lines.
+It will croak() if accidentally called in a scalar context.
+
+=cut
+
+sub getlines {
+    my $self = shift;
+    wantarray or croak("can't call getlines in scalar context!");
+    my ($line, @lines);
+    push @lines, $line while (defined($line = $self->getline));
+    @lines;
+}
+
+#------------------------------
+
+=item print ARGS...
+
+I<Instance method.>
+Print ARGS to the underlying scalar.
+
+B<Warning:> this continues to always cause a seek to the end
+of the string, but if you perform seek()s and tell()s, it is
+still safer to explicitly seek-to-end before subsequent print()s.
+
+=cut
+
+sub print {
+    my $self = shift;
+    *$self->{Pos} = length(${*$self->{SR}} .= join('', @_) . (defined($\) ? $\ : ""));
+    1;
+}
+sub _unsafe_print {
+    my $self = shift;
+    my $append = join('', @_) . $\;
+    ${*$self->{SR}} .= $append;
+    *$self->{Pos}   += length($append);
+    1;
+}
+sub _old_print {
+    my $self = shift;
+    ${*$self->{SR}} .= join('', @_) . $\;
+    *$self->{Pos} = length(${*$self->{SR}});
+    1;
+}
+
+
+#------------------------------
+
+=item read BUF, NBYTES, [OFFSET]
+
+I<Instance method.>
+Read some bytes from the scalar.
+Returns the number of bytes actually read, 0 on end-of-file, undef on error.
+
+=cut
+
+sub read {
+    my $self = $_[0];
+    my $n    = $_[2];
+    my $off  = $_[3] || 0;
+
+    my $read = substr(${*$self->{SR}}, *$self->{Pos}, $n);
+    $n = length($read);
+    *$self->{Pos} += $n;
+    ($off ? substr($_[1], $off) : $_[1]) = $read;
+    return $n;
+}
+
+#------------------------------
+
+=item write BUF, NBYTES, [OFFSET]
+
+I<Instance method.>
+Write some bytes to the scalar.
+
+=cut
+
+sub write {
+    my $self = $_[0];
+    my $n    = $_[2];
+    my $off  = $_[3] || 0;
+
+    my $data = substr($_[1], $off, $n);
+    $n = length($data);
+    $self->print($data);
+    return $n;
+}
+
+#------------------------------
+
+=item sysread BUF, LEN, [OFFSET]
+
+I<Instance method.>
+Read some bytes from the scalar.
+Returns the number of bytes actually read, 0 on end-of-file, undef on error.
+
+=cut
+
+sub sysread {
+  my $self = shift;
+  $self->read(@_);
+}
+
+#------------------------------
+
+=item syswrite BUF, NBYTES, [OFFSET]
+
+I<Instance method.>
+Write some bytes to the scalar.
+
+=cut
+
+sub syswrite {
+  my $self = shift;
+  $self->write(@_);
+}
+
+=back
+
+=cut
+
+
+#==============================
+
+=head2 Seeking/telling and other attributes
+
+=over 4
+
+=cut
+
+
+#------------------------------
+
+=item autoflush
+
+I<Instance method.>
+No-op, provided for OO compatibility.
+
+=cut
+
+sub autoflush {}
+
+#------------------------------
+
+=item binmode
+
+I<Instance method.>
+No-op, provided for OO compatibility.
+
+=cut
+
+sub binmode {}
+
+#------------------------------
+
+=item clearerr
+
+I<Instance method.>  Clear the error and EOF flags.  A no-op.
+
+=cut
+
+sub clearerr { 1 }
+
+#------------------------------
+
+=item eof
+
+I<Instance method.>  Are we at end of file?
+
+=cut
+
+sub eof {
+    my $self = shift;
+    (*$self->{Pos} >= length(${*$self->{SR}}));
+}
+
+#------------------------------
+
+=item seek OFFSET, WHENCE
+
+I<Instance method.>  Seek to a given position in the stream.
+
+=cut
+
+sub seek {
+    my ($self, $pos, $whence) = @_;
+    my $eofpos = length(${*$self->{SR}});
+
+    ### Seek:
+    if    ($whence == 0) { *$self->{Pos} = $pos }             ### SEEK_SET
+    elsif ($whence == 1) { *$self->{Pos} += $pos }            ### SEEK_CUR
+    elsif ($whence == 2) { *$self->{Pos} = $eofpos + $pos}    ### SEEK_END
+    else                 { croak "bad seek whence ($whence)" }
+
+    ### Fixup:
+    if (*$self->{Pos} < 0)       { *$self->{Pos} = 0 }
+    if (*$self->{Pos} > $eofpos) { *$self->{Pos} = $eofpos }
+    return 1;
+}
+
+#------------------------------
+
+=item sysseek OFFSET, WHENCE
+
+I<Instance method.> Identical to C<seek OFFSET, WHENCE>, I<q.v.>
+
+=cut
+
+sub sysseek {
+    my $self = shift;
+    $self->seek (@_);
+}
+
+#------------------------------
+
+=item tell
+
+I<Instance method.>
+Return the current position in the stream, as a numeric offset.
+
+=cut
+
+sub tell { *{shift()}->{Pos} }
+
+#------------------------------
+
+=item  use_RS [YESNO]
+
+I<Instance method.>
+B<Deprecated and ignored.>
+Obey the current setting of $/, like IO::Handle does?
+Default is false in 1.x, but cold-welded true in 2.x and later.
+
+=cut
+
+sub use_RS {
+    my ($self, $yesno) = @_;
+    carp "use_RS is deprecated and ignored; \$/ is always consulted\n";
+ }
+
+#------------------------------
+
+=item setpos POS
+
+I<Instance method.>
+Set the current position, using the opaque value returned by C<getpos()>.
+
+=cut
+
+sub setpos { shift->seek($_[0],0) }
+
+#------------------------------
+
+=item getpos
+
+I<Instance method.>
+Return the current position in the string, as an opaque object.
+
+=cut
+
+*getpos = \&tell;
+
+
+#------------------------------
+
+=item sref
+
+I<Instance method.>
+Return a reference to the underlying scalar.
+
+=cut
+
+sub sref { *{shift()}->{SR} }
+
+
+#------------------------------
+# Tied handle methods...
+#------------------------------
+
+# Conventional tiehandle interface:
+sub TIEHANDLE {
+    ((defined($_[1]) && UNIVERSAL::isa($_[1], __PACKAGE__))
+     ? $_[1]
+     : shift->new(@_));
+}
+sub GETC      { shift->getc(@_) }
+sub PRINT     { shift->print(@_) }
+sub PRINTF    { shift->print(sprintf(shift, @_)) }
+sub READ      { shift->read(@_) }
+sub READLINE  { wantarray ? shift->getlines(@_) : shift->getline(@_) }
+sub WRITE     { shift->write(@_); }
+sub CLOSE     { shift->close(@_); }
+sub SEEK      { shift->seek(@_); }
+sub TELL      { shift->tell(@_); }
+sub EOF       { shift->eof(@_); }
+
+#------------------------------------------------------------
+
+1;
+
+__END__
+
+
+
+=back
+
+=cut
+
+
+=head1 WARNINGS
+
+Perl's TIEHANDLE spec was incomplete prior to 5.005_57;
+it was missing support for C<seek()>, C<tell()>, and C<eof()>.
+Attempting to use these functions with an IO::Scalar will not work
+prior to 5.005_57. IO::Scalar will not have the relevant methods
+invoked; and even worse, this kind of bug can lie dormant for a while.
+If you turn warnings on (via C<$^W> or C<perl -w>),
+and you see something like this...
+
+    attempt to seek on unopened filehandle
+
+...then you are probably trying to use one of these functions
+on an IO::Scalar with an old Perl.  The remedy is to simply
+use the OO version; e.g.:
+
+    $SH->seek(0,0);    ### GOOD: will work on any 5.005
+    seek($SH,0,0);     ### WARNING: will only work on 5.005_57 and beyond
+
+
+=head1 VERSION
+
+$Id: Scalar.pm,v 1.6 2005/02/10 21:21:53 dfs Exp $
+
+
+=head1 AUTHORS
+
+=head2 Primary Maintainer
+
+David F. Skoll (F<dfs@roaringpenguin.com>).
+
+=head2 Principal author
+
+Eryq (F<eryq@zeegee.com>).
+President, ZeeGee Software Inc (F<http://www.zeegee.com>).
+
+
+=head2 Other contributors
+
+The full set of contributors always includes the folks mentioned
+in L<IO::Stringy/"CHANGE LOG">.  But just the same, special
+thanks to the following individuals for their invaluable contributions
+(if I've forgotten or misspelled your name, please email me!):
+
+I<Andy Glew,>
+for contributing C<getc()>.
+
+I<Brandon Browning,>
+for suggesting C<opened()>.
+
+I<David Richter,>
+for finding and fixing the bug in C<PRINTF()>.
+
+I<Eric L. Brine,>
+for his offset-using read() and write() implementations.
+
+I<Richard Jones,>
+for his patches to massively improve the performance of C<getline()>
+and add C<sysread> and C<syswrite>.
+
+I<B. K. Oxley (binkley),>
+for stringification and inheritance improvements,
+and sundry good ideas.
+
+I<Doug Wilson,>
+for the IO::Handle inheritance and automatic tie-ing.
+
+
+=head1 SEE ALSO
+
+L<IO::String>, which is quite similar but which was designed
+more-recently and with an IO::Handle-like interface in mind,
+so you could mix OO- and native-filehandle usage without using tied().
+
+I<Note:> as of version 2.x, these classes all work like
+their IO::Handle counterparts, so we have comparable
+functionality to IO::String.
+
+=cut
+
diff --git a/lib/5.24.1/Test/Builder/Module.pm b/lib/5.24.1/Test/Builder/Module.pm
new file mode 100644
index 00000000..2322d8a9
--- /dev/null
+++ b/lib/5.24.1/Test/Builder/Module.pm
@@ -0,0 +1,173 @@
+package Test::Builder::Module;
+
+use strict;
+
+use Test::Builder 1.00;
+
+require Exporter;
+our @ISA = qw(Exporter);
+
+our $VERSION = '1.001014';
+$VERSION = eval $VERSION;      ## no critic (BuiltinFunctions::ProhibitStringyEval)
+
+
+=head1 NAME
+
+Test::Builder::Module - Base class for test modules
+
+=head1 SYNOPSIS
+
+  # Emulates Test::Simple
+  package Your::Module;
+
+  my $CLASS = __PACKAGE__;
+
+  use base 'Test::Builder::Module';
+  @EXPORT = qw(ok);
+
+  sub ok ($;$) {
+      my $tb = $CLASS->builder;
+      return $tb->ok(@_);
+  }
+  
+  1;
+
+
+=head1 DESCRIPTION
+
+This is a superclass for L<Test::Builder>-based modules.  It provides a
+handful of common functionality and a method of getting at the underlying
+L<Test::Builder> object.
+
+
+=head2 Importing
+
+Test::Builder::Module is a subclass of L<Exporter> which means your
+module is also a subclass of Exporter.  @EXPORT, @EXPORT_OK, etc...
+all act normally.
+
+A few methods are provided to do the C<< use Your::Module tests => 23 >> part
+for you.
+
+=head3 import
+
+Test::Builder::Module provides an C<import()> method which acts in the
+same basic way as L<Test::More>'s, setting the plan and controlling
+exporting of functions and variables.  This allows your module to set
+the plan independent of L<Test::More>.
+
+All arguments passed to C<import()> are passed onto 
+C<< Your::Module->builder->plan() >> with the exception of 
+C<< import =>[qw(things to import)] >>.
+
+    use Your::Module import => [qw(this that)], tests => 23;
+
+says to import the functions C<this()> and C<that()> as well as set the plan
+to be 23 tests.
+
+C<import()> also sets the C<exported_to()> attribute of your builder to be
+the caller of the C<import()> function.
+
+Additional behaviors can be added to your C<import()> method by overriding
+C<import_extra()>.
+
+=cut
+
+sub import {
+    my($class) = shift;
+
+    # Don't run all this when loading ourself.
+    return 1 if $class eq 'Test::Builder::Module';
+
+    my $test = $class->builder;
+
+    my $caller = caller;
+
+    $test->exported_to($caller);
+
+    $class->import_extra( \@_ );
+    my(@imports) = $class->_strip_imports( \@_ );
+
+    $test->plan(@_);
+
+    $class->export_to_level( 1, $class, @imports );
+}
+
+sub _strip_imports {
+    my $class = shift;
+    my $list  = shift;
+
+    my @imports = ();
+    my @other   = ();
+    my $idx     = 0;
+    while( $idx <= $#{$list} ) {
+        my $item = $list->[$idx];
+
+        if( defined $item and $item eq 'import' ) {
+            push @imports, @{ $list->[ $idx + 1 ] };
+            $idx++;
+        }
+        else {
+            push @other, $item;
+        }
+
+        $idx++;
+    }
+
+    @$list = @other;
+
+    return @imports;
+}
+
+=head3 import_extra
+
+    Your::Module->import_extra(\@import_args);
+
+C<import_extra()> is called by C<import()>.  It provides an opportunity for you
+to add behaviors to your module based on its import list.
+
+Any extra arguments which shouldn't be passed on to C<plan()> should be
+stripped off by this method.
+
+See L<Test::More> for an example of its use.
+
+B<NOTE> This mechanism is I<VERY ALPHA AND LIKELY TO CHANGE> as it
+feels like a bit of an ugly hack in its current form.
+
+=cut
+
+sub import_extra { }
+
+=head2 Builder
+
+Test::Builder::Module provides some methods of getting at the underlying
+Test::Builder object.
+
+=head3 builder
+
+  my $builder = Your::Class->builder;
+
+This method returns the L<Test::Builder> object associated with Your::Class.
+It is not a constructor so you can call it as often as you like.
+
+This is the preferred way to get the L<Test::Builder> object.  You should
+I<not> get it via C<< Test::Builder->new >> as was previously
+recommended.
+
+The object returned by C<builder()> may change at runtime so you should
+call C<builder()> inside each function rather than store it in a global.
+
+  sub ok {
+      my $builder = Your::Class->builder;
+
+      return $builder->ok(@_);
+  }
+
+
+=cut
+
+sub builder {
+    return Test::Builder->new;
+}
+
+1;
diff --git a/lib/5.24.1/Test/Builder/Tester.pm b/lib/5.24.1/Test/Builder/Tester.pm
new file mode 100644
index 00000000..b0554b89
--- /dev/null
+++ b/lib/5.24.1/Test/Builder/Tester.pm
@@ -0,0 +1,620 @@
+package Test::Builder::Tester;
+
+use strict;
+our $VERSION = "1.28";
+
+use Test::Builder 0.99;
+use Symbol;
+use Carp;
+
+=head1 NAME
+
+Test::Builder::Tester - test testsuites that have been built with
+Test::Builder
+
+=head1 SYNOPSIS
+
+    use Test::Builder::Tester tests => 1;
+    use Test::More;
+
+    test_out("not ok 1 - foo");
+    test_fail(+1);
+    fail("foo");
+    test_test("fail works");
+
+=head1 DESCRIPTION
+
+A module that helps you test testing modules that are built with
+L<Test::Builder>.
+
+The testing system is designed to be used by performing a three step
+process for each test you wish to test.  This process starts with using
+C<test_out> and C<test_err> in advance to declare what the testsuite you
+are testing will output with L<Test::Builder> to stdout and stderr.
+
+You then can run the test(s) from your test suite that call
+L<Test::Builder>.  At this point the output of L<Test::Builder> is
+safely captured by L<Test::Builder::Tester> rather than being
+interpreted as real test output.
+
+The final stage is to call C<test_test> that will simply compare what you
+predeclared to what L<Test::Builder> actually outputted, and report the
+results back with a "ok" or "not ok" (with debugging) to the normal
+output.
+
+=cut
+
+####
+# set up testing
+####
+
+my $t = Test::Builder->new;
+
+###
+# make us an exporter
+###
+
+use Exporter;
+our @ISA = qw(Exporter);
+
+our @EXPORT = qw(test_out test_err test_fail test_diag test_test line_num);
+
+sub import {
+    my $class = shift;
+    my(@plan) = @_;
+
+    my $caller = caller;
+
+    $t->exported_to($caller);
+    $t->plan(@plan);
+
+    my @imports = ();
+    foreach my $idx ( 0 .. $#plan ) {
+        if( $plan[$idx] eq 'import' ) {
+            @imports = @{ $plan[ $idx + 1 ] };
+            last;
+        }
+    }
+
+    __PACKAGE__->export_to_level( 1, __PACKAGE__, @imports );
+}
+
+###
+# set up file handles
+###
+
+# create some private file handles
+my $output_handle = gensym;
+my $error_handle  = gensym;
+
+# and tie them to this package
+my $out = tie *$output_handle, "Test::Builder::Tester::Tie", "STDOUT";
+my $err = tie *$error_handle,  "Test::Builder::Tester::Tie", "STDERR";
+
+####
+# exported functions
+####
+
+# for remembering that we're testing and where we're testing at
+my $testing = 0;
+my $testing_num;
+my $original_is_passing;
+
+# remembering where the file handles were originally connected
+my $original_output_handle;
+my $original_failure_handle;
+my $original_todo_handle;
+
+my $original_harness_env;
+
+# function that starts testing and redirects the filehandles for now
+sub _start_testing {
+    # even if we're running under Test::Harness pretend we're not
+    # for now.  This needed so Test::Builder doesn't add extra spaces
+    $original_harness_env = $ENV{HARNESS_ACTIVE} || 0;
+    $ENV{HARNESS_ACTIVE} = 0;
+
+    # remember what the handles were set to
+    $original_output_handle  = $t->output();
+    $original_failure_handle = $t->failure_output();
+    $original_todo_handle    = $t->todo_output();
+
+    # switch out to our own handles
+    $t->output($output_handle);
+    $t->failure_output($error_handle);
+    $t->todo_output($output_handle);
+
+    # clear the expected list
+    $out->reset();
+    $err->reset();
+
+    # remember that we're testing
+    $testing     = 1;
+    $testing_num = $t->current_test;
+    $t->current_test(0);
+    $original_is_passing  = $t->is_passing;
+    $t->is_passing(1);
+
+    # look, we shouldn't do the ending stuff
+    $t->no_ending(1);
+}
+
+=head2 Functions
+
+These are the six methods that are exported as default.
+
+=over 4
+
+=item test_out
+
+=item test_err
+
+Procedures for predeclaring the output that your test suite is
+expected to produce until C<test_test> is called.  These procedures
+automatically assume that each line terminates with "\n".  So
+
+   test_out("ok 1","ok 2");
+
+is the same as
+
+   test_out("ok 1\nok 2");
+
+which is even the same as
+
+   test_out("ok 1");
+   test_out("ok 2");
+
+Once C<test_out> or C<test_err> (or C<test_fail> or C<test_diag>) have
+been called, all further output from L<Test::Builder> will be
+captured by L<Test::Builder::Tester>.  This means that you will not
+be able perform further tests to the normal output in the normal way
+until you call C<test_test> (well, unless you manually meddle with the
+output filehandles)
+
+=cut
+
+sub test_out {
+    # do we need to do any setup?
+    _start_testing() unless $testing;
+
+    $out->expect(@_);
+}
+
+sub test_err {
+    # do we need to do any setup?
+    _start_testing() unless $testing;
+
+    $err->expect(@_);
+}
+
+=item test_fail
+
+Because the standard failure message that L<Test::Builder> produces
+whenever a test fails will be a common occurrence in your test error
+output, and because it has changed between Test::Builder versions, rather
+than forcing you to call C<test_err> with the string all the time like
+so
+
+    test_err("# Failed test ($0 at line ".line_num(+1).")");
+
+C<test_fail> exists as a convenience function that can be called
+instead.  It takes one argument, the offset from the current line that
+the line that causes the fail is on.
+
+    test_fail(+1);
+
+This means that the example in the synopsis could be rewritten
+more simply as:
+
+   test_out("not ok 1 - foo");
+   test_fail(+1);
+   fail("foo");
+   test_test("fail works");
+
+=cut
+
+sub test_fail {
+    # do we need to do any setup?
+    _start_testing() unless $testing;
+
+    # work out what line we should be on
+    my( $package, $filename, $line ) = caller;
+    $line = $line + ( shift() || 0 );    # prevent warnings
+
+    # expect that on stderr
+    $err->expect("#     Failed test ($filename at line $line)");
+}
+
+=item test_diag
+
+As most of the remaining expected output to the error stream will be
+created by L<Test::Builder>'s C<diag> function, L<Test::Builder::Tester>
+provides a convenience function C<test_diag> that you can use instead of
+C<test_err>.
+
+The C<test_diag> function prepends comment hashes and spacing to the
+start and newlines to the end of the expected output passed to it and
+adds it to the list of expected error output.  So, instead of writing
+
+   test_err("# Couldn't open file");
+
+you can write
+
+   test_diag("Couldn't open file");
+
+Remember that L<Test::Builder>'s diag function will not add newlines to
+the end of output and test_diag will. So to check
+
+   Test::Builder->new->diag("foo\n","bar\n");
+
+You would do
+
+  test_diag("foo","bar")
+
+without the newlines.
+
+=cut
+
+sub test_diag {
+    # do we need to do any setup?
+    _start_testing() unless $testing;
+
+    # expect the same thing, but prepended with "#     "
+    local $_;
+    $err->expect( map { "# $_" } @_ );
+}
+
+=item test_test
+
+Actually performs the output check testing the tests, comparing the
+data (with C<eq>) that we have captured from L<Test::Builder> against
+what was declared with C<test_out> and C<test_err>.
+
+This takes name/value pairs that effect how the test is run.
+
+=over
+
+=item title (synonym 'name', 'label')
+
+The name of the test that will be displayed after the C<ok> or C<not
+ok>.
+
+=item skip_out
+
+Setting this to a true value will cause the test to ignore if the
+output sent by the test to the output stream does not match that
+declared with C<test_out>.
+
+=item skip_err
+
+Setting this to a true value will cause the test to ignore if the
+output sent by the test to the error stream does not match that
+declared with C<test_err>.
+
+=back
+
+As a convenience, if only one argument is passed then this argument
+is assumed to be the name of the test (as in the above examples.)
+
+Once C<test_test> has been run test output will be redirected back to
+the original filehandles that L<Test::Builder> was connected to
+(probably STDOUT and STDERR,) meaning any further tests you run
+will function normally and cause success/errors for L<Test::Harness>.
+
+=cut
+
+sub test_test {
+    # decode the arguments as described in the pod
+    my $mess;
+    my %args;
+    if( @_ == 1 ) {
+        $mess = shift
+    }
+    else {
+        %args = @_;
+        $mess = $args{name} if exists( $args{name} );
+        $mess = $args{title} if exists( $args{title} );
+        $mess = $args{label} if exists( $args{label} );
+    }
+
+    # er, are we testing?
+    croak "Not testing.  You must declare output with a test function first."
+      unless $testing;
+
+    # okay, reconnect the test suite back to the saved handles
+    $t->output($original_output_handle);
+    $t->failure_output($original_failure_handle);
+    $t->todo_output($original_todo_handle);
+
+    # restore the test no, etc, back to the original point
+    $t->current_test($testing_num);
+    $testing = 0;
+    $t->is_passing($original_is_passing);
+
+    # re-enable the original setting of the harness
+    $ENV{HARNESS_ACTIVE} = $original_harness_env;
+
+    # check the output we've stashed
+    unless( $t->ok( ( $args{skip_out} || $out->check ) &&
+                    ( $args{skip_err} || $err->check ), $mess ) 
+    )
+    {
+        # print out the diagnostic information about why this
+        # test failed
+
+        local $_;
+
+        $t->diag( map { "$_\n" } $out->complaint )
+          unless $args{skip_out} || $out->check;
+
+        $t->diag( map { "$_\n" } $err->complaint )
+          unless $args{skip_err} || $err->check;
+    }
+}
+
+=item line_num
+
+A utility function that returns the line number that the function was
+called on.  You can pass it an offset which will be added to the
+result.  This is very useful for working out the correct text of
+diagnostic functions that contain line numbers.
+
+Essentially this is the same as the C<__LINE__> macro, but the
+C<line_num(+3)> idiom is arguably nicer.
+
+=cut
+
+sub line_num {
+    my( $package, $filename, $line ) = caller;
+    return $line + ( shift() || 0 );    # prevent warnings
+}
+
+=back
+
+In addition to the six exported functions there exists one
+function that can only be accessed with a fully qualified function
+call.
+
+=over 4
+
+=item color
+
+When C<test_test> is called and the output that your tests generate
+does not match that which you declared, C<test_test> will print out
+debug information showing the two conflicting versions.  As this
+output itself is debug information it can be confusing which part of
+the output is from C<test_test> and which was the original output from
+your original tests.  Also, it may be hard to spot things like
+extraneous whitespace at the end of lines that may cause your test to
+fail even though the output looks similar.
+
+To assist you C<test_test> can colour the background of the debug
+information to disambiguate the different types of output. The debug
+output will have its background coloured green and red.  The green
+part represents the text which is the same between the executed and
+actual output, the red shows which part differs.
+
+The C<color> function determines if colouring should occur or not.
+Passing it a true or false value will enable or disable colouring
+respectively, and the function called with no argument will return the
+current setting.
+
+To enable colouring from the command line, you can use the
+L<Text::Builder::Tester::Color> module like so:
+
+   perl -Mlib=Text::Builder::Tester::Color test.t
+
+Or by including the L<Test::Builder::Tester::Color> module directly in
+the PERL5LIB.
+
+=cut
+
+my $color;
+
+sub color {
+    $color = shift if @_;
+    $color;
+}
+
+=back
+
+=head1 BUGS
+
+Calls C<< Test::Builder->no_ending >> turning off the ending tests.
+This is needed as otherwise it will trip out because we've run more
+tests than we strictly should have and it'll register any failures we
+had that we were testing for as real failures.
+
+The color function doesn't work unless L<Term::ANSIColor> is
+compatible with your terminal.
+
+Bugs (and requests for new features) can be reported to the author
+though the CPAN RT system:
+L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Test-Builder-Tester>
+
+=head1 AUTHOR
+
+Copyright Mark Fowler E<lt>mark@twoshortplanks.comE<gt> 2002, 2004.
+
+Some code taken from L<Test::More> and L<Test::Catch>, written by
+Michael G Schwern E<lt>schwern@pobox.comE<gt>.  Hence, those parts
+Copyright Micheal G Schwern 2001.  Used and distributed with
+permission.
+
+This program is free software; you can redistribute it
+and/or modify it under the same terms as Perl itself.
+
+=head1 MAINTAINERS
+
+=over 4
+
+=item Chad Granum E<lt>exodist@cpan.orgE<gt>
+
+=back
+
+=head1 NOTES
+
+Thanks to Richard Clamp E<lt>richardc@unixbeard.netE<gt> for letting
+me use his testing system to try this module out on.
+
+=head1 SEE ALSO
+
+L<Test::Builder>, L<Test::Builder::Tester::Color>, L<Test::More>.
+
+=cut
+
+1;
+
+####################################################################
+# Helper class that is used to remember expected and received data
+
+package Test::Builder::Tester::Tie;
+
+##
+# add line(s) to be expected
+
+sub expect {
+    my $self = shift;
+
+    my @checks = @_;
+    foreach my $check (@checks) {
+        $check = $self->_account_for_subtest($check);
+        $check = $self->_translate_Failed_check($check);
+        push @{ $self->{wanted} }, ref $check ? $check : "$check\n";
+    }
+}
+
+sub _account_for_subtest {
+    my( $self, $check ) = @_;
+
+    # Since we ship with Test::Builder, calling a private method is safe...ish.
+    return ref($check) ? $check : $t->_indent . $check;
+}
+
+sub _translate_Failed_check {
+    my( $self, $check ) = @_;
+
+    if( $check =~ /\A(.*)#     (Failed .*test) \((.*?) at line (\d+)\)\Z(?!\n)/ ) {
+        $check = "/\Q$1\E#\\s+\Q$2\E.*?\\n?.*?\Qat $3\E line \Q$4\E.*\\n?/";
+    }
+
+    return $check;
+}
+
+##
+# return true iff the expected data matches the got data
+
+sub check {
+    my $self = shift;
+
+    # turn off warnings as these might be undef
+    local $^W = 0;
+
+    my @checks = @{ $self->{wanted} };
+    my $got    = $self->{got};
+    foreach my $check (@checks) {
+        $check = "\Q$check\E" unless( $check =~ s,^/(.*)/$,$1, or ref $check );
+        return 0 unless $got =~ s/^$check//;
+    }
+
+    return length $got == 0;
+}
+
+##
+# a complaint message about the inputs not matching (to be
+# used for debugging messages)
+
+sub complaint {
+    my $self   = shift;
+    my $type   = $self->type;
+    my $got    = $self->got;
+    my $wanted = join '', @{ $self->wanted };
+
+    # are we running in colour mode?
+    if(Test::Builder::Tester::color) {
+        # get color
+        eval { require Term::ANSIColor };
+        unless($@) {
+            # colours
+
+            my $green = Term::ANSIColor::color("black") . Term::ANSIColor::color("on_green");
+            my $red   = Term::ANSIColor::color("black") . Term::ANSIColor::color("on_red");
+            my $reset = Term::ANSIColor::color("reset");
+
+            # work out where the two strings start to differ
+            my $char = 0;
+            $char++ while substr( $got, $char, 1 ) eq substr( $wanted, $char, 1 );
+
+            # get the start string and the two end strings
+            my $start = $green . substr( $wanted, 0, $char );
+            my $gotend    = $red . substr( $got,    $char ) . $reset;
+            my $wantedend = $red . substr( $wanted, $char ) . $reset;
+
+            # make the start turn green on and off
+            $start =~ s/\n/$reset\n$green/g;
+
+            # make the ends turn red on and off
+            $gotend    =~ s/\n/$reset\n$red/g;
+            $wantedend =~ s/\n/$reset\n$red/g;
+
+            # rebuild the strings
+            $got    = $start . $gotend;
+            $wanted = $start . $wantedend;
+        }
+    }
+
+    return "$type is:\n" . "$got\nnot:\n$wanted\nas expected";
+}
+
+##
+# forget all expected and got data
+
+sub reset {
+    my $self = shift;
+    %$self = (
+        type   => $self->{type},
+        got    => '',
+        wanted => [],
+    );
+}
+
+sub got {
+    my $self = shift;
+    return $self->{got};
+}
+
+sub wanted {
+    my $self = shift;
+    return $self->{wanted};
+}
+
+sub type {
+    my $self = shift;
+    return $self->{type};
+}
+
+###
+# tie interface
+###
+
+sub PRINT {
+    my $self = shift;
+    $self->{got} .= join '', @_;
+}
+
+sub TIEHANDLE {
+    my( $class, $type ) = @_;
+
+    my $self = bless { type => $type }, $class;
+
+    $self->reset;
+
+    return $self;
+}
+
+sub READ     { }
+sub READLINE { }
+sub GETC     { }
+sub FILENO   { }
+
+1;
diff --git a/lib/5.24.1/Test/Builder/Tester/Color.pm b/lib/5.24.1/Test/Builder/Tester/Color.pm
new file mode 100644
index 00000000..9a89310f
--- /dev/null
+++ b/lib/5.24.1/Test/Builder/Tester/Color.pm
@@ -0,0 +1,51 @@
+package Test::Builder::Tester::Color;
+
+use strict;
+our $VERSION = "1.290001";
+
+require Test::Builder::Tester;
+
+
+=head1 NAME
+
+Test::Builder::Tester::Color - turn on colour in Test::Builder::Tester
+
+=head1 SYNOPSIS
+
+   When running a test script
+
+     perl -MTest::Builder::Tester::Color test.t
+
+=head1 DESCRIPTION
+
+Importing this module causes the subroutine color in Test::Builder::Tester
+to be called with a true value causing colour highlighting to be turned
+on in debug output.
+
+The sole purpose of this module is to enable colour highlighting
+from the command line.
+
+=cut
+
+sub import {
+    Test::Builder::Tester::color(1);
+}
+
+=head1 AUTHOR
+
+Copyright Mark Fowler E<lt>mark@twoshortplanks.comE<gt> 2002.
+
+This program is free software; you can redistribute it
+and/or modify it under the same terms as Perl itself.
+
+=head1 BUGS
+
+This module will have no effect unless Term::ANSIColor is installed.
+
+=head1 SEE ALSO
+
+L<Test::Builder::Tester>, L<Term::ANSIColor>
+
+=cut
+
+1;
diff --git a/lib/5.24.1/Test/Harness.pm b/lib/5.24.1/Test/Harness.pm
new file mode 100644
index 00000000..fe9d3049
--- /dev/null
+++ b/lib/5.24.1/Test/Harness.pm
@@ -0,0 +1,616 @@
+package Test::Harness;
+
+use 5.006;
+
+use strict;
+use warnings;
+
+use constant IS_WIN32 => ( $^O =~ /^(MS)?Win32$/ );
+use constant IS_VMS => ( $^O eq 'VMS' );
+
+use TAP::Harness                     ();
+use TAP::Parser::Aggregator          ();
+use TAP::Parser::Source              ();
+use TAP::Parser::SourceHandler::Perl ();
+
+use Text::ParseWords qw(shellwords);
+
+use Config;
+use base 'Exporter';
+
+# $ML $Last_ML_Print
+
+BEGIN {
+    eval q{use Time::HiRes 'time'};
+    our $has_time_hires = !$@;
+}
+
+=head1 NAME
+
+Test::Harness - Run Perl standard test scripts with statistics
+
+=head1 VERSION
+
+Version 3.36
+
+=cut
+
+our $VERSION = '3.36_01';
+
+# Backwards compatibility for exportable variable names.
+*verbose  = *Verbose;
+*switches = *Switches;
+*debug    = *Debug;
+
+$ENV{HARNESS_ACTIVE}  = 1;
+$ENV{HARNESS_VERSION} = $VERSION;
+
+END {
+
+    # For VMS.
+    delete $ENV{HARNESS_ACTIVE};
+    delete $ENV{HARNESS_VERSION};
+}
+
+our @EXPORT    = qw(&runtests);
+our @EXPORT_OK = qw(&execute_tests $verbose $switches);
+
+our $Verbose = $ENV{HARNESS_VERBOSE} || 0;
+our $Debug   = $ENV{HARNESS_DEBUG}   || 0;
+our $Switches = '-w';
+our $Columns = $ENV{HARNESS_COLUMNS} || $ENV{COLUMNS} || 80;
+$Columns--;    # Some shells have trouble with a full line of text.
+our $Timer      = $ENV{HARNESS_TIMER}       || 0;
+our $Color      = $ENV{HARNESS_COLOR}       || 0;
+our $IgnoreExit = $ENV{HARNESS_IGNORE_EXIT} || 0;
+
+=head1 SYNOPSIS
+
+  use Test::Harness;
+
+  runtests(@test_files);
+
+=head1 DESCRIPTION
+
+Although, for historical reasons, the L<Test::Harness> distribution
+takes its name from this module it now exists only to provide
+L<TAP::Harness> with an interface that is somewhat backwards compatible
+with L<Test::Harness> 2.xx. If you're writing new code consider using
+L<TAP::Harness> directly instead.
+
+Emulation is provided for C<runtests> and C<execute_tests> but the
+pluggable 'Straps' interface that previous versions of L<Test::Harness>
+supported is not reproduced here. Straps is now available as a stand
+alone module: L<Test::Harness::Straps>.
+
+See L<TAP::Parser>, L<TAP::Harness> for the main documentation for this
+distribution.
+
+=head1 FUNCTIONS
+
+The following functions are available.
+
+=head2 runtests( @test_files )
+
+This runs all the given I<@test_files> and divines whether they passed
+or failed based on their output to STDOUT (details above).  It prints
+out each individual test which failed along with a summary report and
+a how long it all took.
+
+It returns true if everything was ok.  Otherwise it will C<die()> with
+one of the messages in the DIAGNOSTICS section.
+
+=cut
+
+sub _has_taint {
+    my $test = shift;
+    return TAP::Parser::SourceHandler::Perl->get_taint(
+        TAP::Parser::Source->shebang($test) );
+}
+
+sub _aggregate {
+    my ( $harness, $aggregate, @tests ) = @_;
+
+    # Don't propagate to our children
+    local $ENV{HARNESS_OPTIONS};
+
+    _apply_extra_INC($harness);
+    _aggregate_tests( $harness, $aggregate, @tests );
+}
+
+# Make sure the child sees all the extra junk in @INC
+sub _apply_extra_INC {
+    my $harness = shift;
+
+    $harness->callback(
+        parser_args => sub {
+            my ( $args, $test ) = @_;
+            push @{ $args->{switches} }, map {"-I$_"} _filtered_inc();
+        }
+    );
+}
+
+sub _aggregate_tests {
+    my ( $harness, $aggregate, @tests ) = @_;
+    $aggregate->start();
+    $harness->aggregate_tests( $aggregate, @tests );
+    $aggregate->stop();
+
+}
+
+sub runtests {
+    my @tests = @_;
+
+    # shield against -l
+    local ( $\, $, );
+
+    my $harness   = _new_harness();
+    my $aggregate = TAP::Parser::Aggregator->new();
+
+    _aggregate( $harness, $aggregate, @tests );
+
+    $harness->formatter->summary($aggregate);
+
+    my $total  = $aggregate->total;
+    my $passed = $aggregate->passed;
+    my $failed = $aggregate->failed;
+
+    my @parsers = $aggregate->parsers;
+
+    my $num_bad = 0;
+    for my $parser (@parsers) {
+        $num_bad++ if $parser->has_problems;
+    }
+
+    die(sprintf(
+            "Failed %d/%d test programs. %d/%d subtests failed.\n",
+            $num_bad, scalar @parsers, $failed, $total
+        )
+    ) if $num_bad;
+
+    return $total && $total == $passed;
+}
+
+sub _canon {
+    my @list   = sort { $a <=> $b } @_;
+    my @ranges = ();
+    my $count  = scalar @list;
+    my $pos    = 0;
+
+    while ( $pos < $count ) {
+        my $end = $pos + 1;
+        $end++ while $end < $count && $list[$end] <= $list[ $end - 1 ] + 1;
+        push @ranges, ( $end == $pos + 1 )
+          ? $list[$pos]
+          : join( '-', $list[$pos], $list[ $end - 1 ] );
+        $pos = $end;
+    }
+
+    return join( ' ', @ranges );
+}
+
+sub _new_harness {
+    my $sub_args = shift || {};
+
+    my ( @lib, @switches );
+    my @opt = map { shellwords($_) } grep { defined } $Switches, $ENV{HARNESS_PERL_SWITCHES};
+    while ( my $opt = shift @opt ) {
+        if ( $opt =~ /^ -I (.*) $ /x ) {
+            push @lib, length($1) ? $1 : shift @opt;
+        }
+        else {
+            push @switches, $opt;
+        }
+    }
+
+    # Do things the old way on VMS...
+    push @lib, _filtered_inc() if IS_VMS;
+
+    # If $Verbose isn't numeric default to 1. This helps core.
+    my $verbosity = ( $Verbose ? ( $Verbose !~ /\d/ ) ? 1 : $Verbose : 0 );
+
+    my $args = {
+        timer       => $Timer,
+        directives  => our $Directives,
+        lib         => \@lib,
+        switches    => \@switches,
+        color       => $Color,
+        verbosity   => $verbosity,
+        ignore_exit => $IgnoreExit,
+    };
+
+    $args->{stdout} = $sub_args->{out}
+      if exists $sub_args->{out};
+
+    my $class = $ENV{HARNESS_SUBCLASS} || 'TAP::Harness';
+    if ( defined( my $env_opt = $ENV{HARNESS_OPTIONS} ) ) {
+        for my $opt ( split /:/, $env_opt ) {
+            if ( $opt =~ /^j(\d*)$/ ) {
+                $args->{jobs} = $1 || 9;
+            }
+            elsif ( $opt eq 'c' ) {
+                $args->{color} = 1;
+            }
+            elsif ( $opt =~ m/^f(.*)$/ ) {
+                my $fmt = $1;
+                $fmt =~ s/-/::/g;
+                $args->{formatter_class} = $fmt;
+            }
+            elsif ( $opt =~ m/^a(.*)$/ ) {
+                my $archive = $1;
+                $class = "TAP::Harness::Archive";
+                $args->{archive} = $archive;
+            }
+            else {
+                die "Unknown HARNESS_OPTIONS item: $opt\n";
+            }
+        }
+    }
+
+    return TAP::Harness->_construct( $class, $args );
+}
+
+# Get the parts of @INC which are changed from the stock list AND
+# preserve reordering of stock directories.
+sub _filtered_inc {
+    my @inc = grep { !ref } @INC;    #28567
+
+    if (IS_VMS) {
+
+        # VMS has a 255-byte limit on the length of %ENV entries, so
+        # toss the ones that involve perl_root, the install location
+        @inc = grep !/perl_root/i, @inc;
+
+    }
+    elsif (IS_WIN32) {
+
+        # Lose any trailing backslashes in the Win32 paths
+        s/[\\\/]+$// for @inc;
+    }
+
+    my @default_inc = _default_inc();
+
+    my @new_inc;
+    my %seen;
+    for my $dir (@inc) {
+        next if $seen{$dir}++;
+
+        if ( $dir eq ( $default_inc[0] || '' ) ) {
+            shift @default_inc;
+        }
+        else {
+            push @new_inc, $dir;
+        }
+
+        shift @default_inc while @default_inc and $seen{ $default_inc[0] };
+    }
+
+    return @new_inc;
+}
+
+{
+
+    # Cache this to avoid repeatedly shelling out to Perl.
+    my @inc;
+
+    sub _default_inc {
+        return @inc if @inc;
+
+        local $ENV{PERL5LIB};
+        local $ENV{PERLLIB};
+
+        my $perl = $ENV{HARNESS_PERL} || $^X;
+
+        # Avoid using -l for the benefit of Perl 6
+        chomp( @inc = `"$perl" -e "print join qq[\\n], \@INC, q[]"` );
+        return @inc;
+    }
+}
+
+sub _check_sequence {
+    my @list = @_;
+    my $prev;
+    while ( my $next = shift @list ) {
+        return if defined $prev && $next <= $prev;
+        $prev = $next;
+    }
+
+    return 1;
+}
+
+sub execute_tests {
+    my %args = @_;
+
+    my $harness   = _new_harness( \%args );
+    my $aggregate = TAP::Parser::Aggregator->new();
+
+    my %tot = (
+        bonus       => 0,
+        max         => 0,
+        ok          => 0,
+        bad         => 0,
+        good        => 0,
+        files       => 0,
+        tests       => 0,
+        sub_skipped => 0,
+        todo        => 0,
+        skipped     => 0,
+        bench       => undef,
+    );
+
+    # Install a callback so we get to see any plans the
+    # harness executes.
+    $harness->callback(
+        made_parser => sub {
+            my $parser = shift;
+            $parser->callback(
+                plan => sub {
+                    my $plan = shift;
+                    if ( $plan->directive eq 'SKIP' ) {
+                        $tot{skipped}++;
+                    }
+                }
+            );
+        }
+    );
+
+    _aggregate( $harness, $aggregate, @{ $args{tests} } );
+
+    $tot{bench} = $aggregate->elapsed;
+    my @tests = $aggregate->descriptions;
+
+    # TODO: Work out the circumstances under which the files
+    # and tests totals can differ.
+    $tot{files} = $tot{tests} = scalar @tests;
+
+    my %failedtests = ();
+    my %todo_passed = ();
+
+    for my $test (@tests) {
+        my ($parser) = $aggregate->parsers($test);
+
+        my @failed = $parser->failed;
+
+        my $wstat         = $parser->wait;
+        my $estat         = $parser->exit;
+        my $planned       = $parser->tests_planned;
+        my @errors        = $parser->parse_errors;
+        my $passed        = $parser->passed;
+        my $actual_passed = $parser->actual_passed;
+
+        my $ok_seq = _check_sequence( $parser->actual_passed );
+
+        # Duplicate exit, wait status semantics of old version
+        $estat ||= '' unless $wstat;
+        $wstat ||= '';
+
+        $tot{max} += ( $planned || 0 );
+        $tot{bonus} += $parser->todo_passed;
+        $tot{ok} += $passed > $actual_passed ? $passed : $actual_passed;
+        $tot{sub_skipped} += $parser->skipped;
+        $tot{todo}        += $parser->todo;
+
+        if ( @failed || $estat || @errors ) {
+            $tot{bad}++;
+
+            my $huh_planned = $planned ? undef : '??';
+            my $huh_errors  = $ok_seq  ? undef : '??';
+
+            $failedtests{$test} = {
+                'canon' => $huh_planned
+                  || $huh_errors
+                  || _canon(@failed)
+                  || '??',
+                'estat'  => $estat,
+                'failed' => $huh_planned
+                  || $huh_errors
+                  || scalar @failed,
+                'max' => $huh_planned || $planned,
+                'name'  => $test,
+                'wstat' => $wstat
+            };
+        }
+        else {
+            $tot{good}++;
+        }
+
+        my @todo = $parser->todo_passed;
+        if (@todo) {
+            $todo_passed{$test} = {
+                'canon'  => _canon(@todo),
+                'estat'  => $estat,
+                'failed' => scalar @todo,
+                'max'    => scalar $parser->todo,
+                'name'   => $test,
+                'wstat'  => $wstat
+            };
+        }
+    }
+
+    return ( \%tot, \%failedtests, \%todo_passed );
+}
+
+=head2 execute_tests( tests => \@test_files, out => \*FH )
+
+Runs all the given C<@test_files> (just like C<runtests()>) but
+doesn't generate the final report.  During testing, progress
+information will be written to the currently selected output
+filehandle (usually C<STDOUT>), or to the filehandle given by the
+C<out> parameter.  The I<out> is optional.
+
+Returns a list of two values, C<$total> and C<$failed>, describing the
+results.  C<$total> is a hash ref summary of all the tests run.  Its
+keys and values are this:
+
+    bonus           Number of individual todo tests unexpectedly passed
+    max             Number of individual tests ran
+    ok              Number of individual tests passed
+    sub_skipped     Number of individual tests skipped
+    todo            Number of individual todo tests
+
+    files           Number of test files ran
+    good            Number of test files passed
+    bad             Number of test files failed
+    tests           Number of test files originally given
+    skipped         Number of test files skipped
+
+If C<< $total->{bad} == 0 >> and C<< $total->{max} > 0 >>, you've
+got a successful test.
+
+C<$failed> is a hash ref of all the test scripts that failed.  Each key
+is the name of a test script, each value is another hash representing
+how that script failed.  Its keys are these:
+
+    name        Name of the test which failed
+    estat       Script's exit value
+    wstat       Script's wait status
+    max         Number of individual tests
+    failed      Number which failed
+    canon       List of tests which failed (as string).
+
+C<$failed> should be empty if everything passed.
+
+=cut
+
+1;
+__END__
+
+=head1 EXPORT
+
+C<&runtests> is exported by C<Test::Harness> by default.
+
+C<&execute_tests>, C<$verbose>, C<$switches> and C<$debug> are
+exported upon request.
+
+=head1 ENVIRONMENT VARIABLES THAT TAP::HARNESS::COMPATIBLE SETS
+
+C<Test::Harness> sets these before executing the individual tests.
+
+=over 4
+
+=item C<HARNESS_ACTIVE>
+
+This is set to a true value.  It allows the tests to determine if they
+are being executed through the harness or by any other means.
+
+=item C<HARNESS_VERSION>
+
+This is the version of C<Test::Harness>.
+
+=back
+
+=head1 ENVIRONMENT VARIABLES THAT AFFECT TEST::HARNESS
+
+=over 4
+
+=item C<HARNESS_PERL_SWITCHES>
+
+Setting this adds perl command line switches to each test file run.
+
+For example, C<HARNESS_PERL_SWITCHES=-T> will turn on taint mode.
+C<HARNESS_PERL_SWITCHES=-MDevel::Cover> will run C<Devel::Cover> for
+each test.
+
+C<-w> is always set.  You can turn this off in the test with C<BEGIN {
+$^W = 0 }>.
+
+=item C<HARNESS_TIMER>
+
+Setting this to true will make the harness display the number of
+milliseconds each test took.  You can also use F<prove>'s C<--timer>
+switch.
+
+=item C<HARNESS_VERBOSE>
+
+If true, C<Test::Harness> will output the verbose results of running
+its tests.  Setting C<$Test::Harness::verbose> will override this,
+or you can use the C<-v> switch in the F<prove> utility.
+
+=item C<HARNESS_OPTIONS>
+
+Provide additional options to the harness. Currently supported options are:
+
+=over
+
+=item C<< j<n> >>
+
+Run <n> (default 9) parallel jobs.
+
+=item C<< c >>
+
+Try to color output. See L<TAP::Formatter::Base/"new">.
+
+=item C<< a<file.tgz> >>
+
+Will use L<TAP::Harness::Archive> as the harness class, and save the TAP to
+C<file.tgz>
+
+=item C<< fPackage-With-Dashes >>
+
+Set the formatter_class of the harness being run. Since the C<HARNESS_OPTIONS>
+is seperated by C<:>, we use C<-> instead.
+
+=back
+
+Multiple options may be separated by colons:
+
+    HARNESS_OPTIONS=j9:c make test
+
+=item C<HARNESS_SUBCLASS>
+
+Specifies a TAP::Harness subclass to be used in place of TAP::Harness.
+
+=item C<HARNESS_SUMMARY_COLOR_SUCCESS>
+
+Determines the L<Term::ANSIColor> for the summary in case it is successful.
+This color defaults to C<'green'>.
+
+=item C<HARNESS_SUMMARY_COLOR_FAIL>
+
+Determines the L<Term::ANSIColor> for the failure in case it is successful.
+This color defaults to C<'red'>.
+
+=back
+
+=head1 Taint Mode
+
+Normally when a Perl program is run in taint mode the contents of the
+C<PERL5LIB> environment variable do not appear in C<@INC>.
+
+Because C<PERL5LIB> is often used during testing to add build
+directories to C<@INC> C<Test::Harness> passes the names of any
+directories found in C<PERL5LIB> as -I switches. The net effect of this
+is that C<PERL5LIB> is honoured even in taint mode.
+
+=head1 SEE ALSO
+
+L<TAP::Harness>
+
+=head1 BUGS
+
+Please report any bugs or feature requests to
+C<bug-test-harness at rt.cpan.org>, or through the web interface at
+L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Test-Harness>.  I will be 
+notified, and then you'll automatically be notified of progress on your bug 
+as I make changes.
+
+=head1 AUTHORS
+
+Andy Armstrong  C<< <andy@hexten.net> >>
+
+L<Test::Harness> 2.64 (maintained by Andy Lester and on which this
+module is based) has this attribution:
+
+    Either Tim Bunce or Andreas Koenig, we don't know. What we know for
+    sure is, that it was inspired by Larry Wall's F<TEST> script that came
+    with perl distributions for ages. Numerous anonymous contributors
+    exist.  Andreas Koenig held the torch for many years, and then
+    Michael G Schwern.
+
+=head1 LICENCE AND COPYRIGHT
+
+Copyright (c) 2007-2011, Andy Armstrong C<< <andy@hexten.net> >>. All rights reserved.
+
+This module is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself. See L<perlartistic>.
+
diff --git a/lib/5.24.1/Test/More.pm b/lib/5.24.1/Test/More.pm
new file mode 100644
index 00000000..4bab267f
--- /dev/null
+++ b/lib/5.24.1/Test/More.pm
@@ -0,0 +1,1948 @@
+package Test::More;
+
+use 5.006;
+use strict;
+use warnings;
+
+#---- perlcritic exemptions. ----#
+
+# We use a lot of subroutine prototypes
+## no critic (Subroutines::ProhibitSubroutinePrototypes)
+
+# Can't use Carp because it might cause C<use_ok()> to accidentally succeed
+# even though the module being used forgot to use Carp.  Yes, this
+# actually happened.
+sub _carp {
+    my( $file, $line ) = ( caller(1) )[ 1, 2 ];
+    return warn @_, " at $file line $line\n";
+}
+
+our $VERSION = '1.001014';
+$VERSION = eval $VERSION;    ## no critic (BuiltinFunctions::ProhibitStringyEval)
+
+use Test::Builder::Module 0.99;
+our @ISA    = qw(Test::Builder::Module);
+our @EXPORT = qw(ok use_ok require_ok
+  is isnt like unlike is_deeply
+  cmp_ok
+  skip todo todo_skip
+  pass fail
+  eq_array eq_hash eq_set
+  $TODO
+  plan
+  done_testing
+  can_ok isa_ok new_ok
+  diag note explain
+  subtest
+  BAIL_OUT
+);
+
+=head1 NAME
+
+Test::More - yet another framework for writing test scripts
+
+=head1 SYNOPSIS
+
+  use Test::More tests => 23;
+  # or
+  use Test::More skip_all => $reason;
+  # or
+  use Test::More;   # see done_testing()
+
+  require_ok( 'Some::Module' );
+
+  # Various ways to say "ok"
+  ok($got eq $expected, $test_name);
+
+  is  ($got, $expected, $test_name);
+  isnt($got, $expected, $test_name);
+
+  # Rather than print STDERR "# here's what went wrong\n"
+  diag("here's what went wrong");
+
+  like  ($got, qr/expected/, $test_name);
+  unlike($got, qr/expected/, $test_name);
+
+  cmp_ok($got, '==', $expected, $test_name);
+
+  is_deeply($got_complex_structure, $expected_complex_structure, $test_name);
+
+  SKIP: {
+      skip $why, $how_many unless $have_some_feature;
+
+      ok( foo(),       $test_name );
+      is( foo(42), 23, $test_name );
+  };
+
+  TODO: {
+      local $TODO = $why;
+
+      ok( foo(),       $test_name );
+      is( foo(42), 23, $test_name );
+  };
+
+  can_ok($module, @methods);
+  isa_ok($object, $class);
+
+  pass($test_name);
+  fail($test_name);
+
+  BAIL_OUT($why);
+
+  # UNIMPLEMENTED!!!
+  my @status = Test::More::status;
+
+
+=head1 DESCRIPTION
+
+B<STOP!> If you're just getting started writing tests, have a look at
+L<Test::Simple> first.  This is a drop in replacement for Test::Simple
+which you can switch to once you get the hang of basic testing.
+
+The purpose of this module is to provide a wide range of testing
+utilities.  Various ways to say "ok" with better diagnostics,
+facilities to skip tests, test future features and compare complicated
+data structures.  While you can do almost anything with a simple
+C<ok()> function, it doesn't provide good diagnostic output.
+
+
+=head2 I love it when a plan comes together
+
+Before anything else, you need a testing plan.  This basically declares
+how many tests your script is going to run to protect against premature
+failure.
+
+The preferred way to do this is to declare a plan when you C<use Test::More>.
+
+  use Test::More tests => 23;
+
+There are cases when you will not know beforehand how many tests your
+script is going to run.  In this case, you can declare your tests at
+the end.
+
+  use Test::More;
+
+  ... run your tests ...
+
+  done_testing( $number_of_tests_run );
+
+Sometimes you really don't know how many tests were run, or it's too
+difficult to calculate.  In which case you can leave off
+$number_of_tests_run.
+
+In some cases, you'll want to completely skip an entire testing script.
+
+  use Test::More skip_all => $skip_reason;
+
+Your script will declare a skip with the reason why you skipped and
+exit immediately with a zero (success).  See L<Test::Harness> for
+details.
+
+If you want to control what functions Test::More will export, you
+have to use the 'import' option.  For example, to import everything
+but 'fail', you'd do:
+
+  use Test::More tests => 23, import => ['!fail'];
+
+Alternatively, you can use the C<plan()> function.  Useful for when you
+have to calculate the number of tests.
+
+  use Test::More;
+  plan tests => keys %Stuff * 3;
+
+or for deciding between running the tests at all:
+
+  use Test::More;
+  if( $^O eq 'MacOS' ) {
+      plan skip_all => 'Test irrelevant on MacOS';
+  }
+  else {
+      plan tests => 42;
+  }
+
+=cut
+
+sub plan {
+    my $tb = Test::More->builder;
+
+    return $tb->plan(@_);
+}
+
+# This implements "use Test::More 'no_diag'" but the behavior is
+# deprecated.
+sub import_extra {
+    my $class = shift;
+    my $list  = shift;
+
+    my @other = ();
+    my $idx   = 0;
+    while( $idx <= $#{$list} ) {
+        my $item = $list->[$idx];
+
+        if( defined $item and $item eq 'no_diag' ) {
+            $class->builder->no_diag(1);
+        }
+        else {
+            push @other, $item;
+        }
+
+        $idx++;
+    }
+
+    @$list = @other;
+
+    return;
+}
+
+=over 4
+
+=item B<done_testing>
+
+    done_testing();
+    done_testing($number_of_tests);
+
+If you don't know how many tests you're going to run, you can issue
+the plan when you're done running tests.
+
+$number_of_tests is the same as C<plan()>, it's the number of tests you
+expected to run.  You can omit this, in which case the number of tests
+you ran doesn't matter, just the fact that your tests ran to
+conclusion.
+
+This is safer than and replaces the "no_plan" plan.
+
+=back
+
+=cut
+
+sub done_testing {
+    my $tb = Test::More->builder;
+    $tb->done_testing(@_);
+}
+
+=head2 Test names
+
+By convention, each test is assigned a number in order.  This is
+largely done automatically for you.  However, it's often very useful to
+assign a name to each test.  Which would you rather see:
+
+  ok 4
+  not ok 5
+  ok 6
+
+or
+
+  ok 4 - basic multi-variable
+  not ok 5 - simple exponential
+  ok 6 - force == mass * acceleration
+
+The later gives you some idea of what failed.  It also makes it easier
+to find the test in your script, simply search for "simple
+exponential".
+
+All test functions take a name argument.  It's optional, but highly
+suggested that you use it.
+
+=head2 I'm ok, you're not ok.
+
+The basic purpose of this module is to print out either "ok #" or "not
+ok #" depending on if a given test succeeded or failed.  Everything
+else is just gravy.
+
+All of the following print "ok" or "not ok" depending on if the test
+succeeded or failed.  They all also return true or false,
+respectively.
+
+=over 4
+
+=item B<ok>
+
+  ok($got eq $expected, $test_name);
+
+This simply evaluates any expression (C<$got eq $expected> is just a
+simple example) and uses that to determine if the test succeeded or
+failed.  A true expression passes, a false one fails.  Very simple.
+
+For example:
+
+    ok( $exp{9} == 81,                   'simple exponential' );
+    ok( Film->can('db_Main'),            'set_db()' );
+    ok( $p->tests == 4,                  'saw tests' );
+    ok( !grep(!defined $_, @items),      'all items defined' );
+
+(Mnemonic:  "This is ok.")
+
+$test_name is a very short description of the test that will be printed
+out.  It makes it very easy to find a test in your script when it fails
+and gives others an idea of your intentions.  $test_name is optional,
+but we B<very> strongly encourage its use.
+
+Should an C<ok()> fail, it will produce some diagnostics:
+
+    not ok 18 - sufficient mucus
+    #   Failed test 'sufficient mucus'
+    #   in foo.t at line 42.
+
+This is the same as L<Test::Simple>'s C<ok()> routine.
+
+=cut
+
+sub ok ($;$) {
+    my( $test, $name ) = @_;
+    my $tb = Test::More->builder;
+
+    return $tb->ok( $test, $name );
+}
+
+=item B<is>
+
+=item B<isnt>
+
+  is  ( $got, $expected, $test_name );
+  isnt( $got, $expected, $test_name );
+
+Similar to C<ok()>, C<is()> and C<isnt()> compare their two arguments
+with C<eq> and C<ne> respectively and use the result of that to
+determine if the test succeeded or failed.  So these:
+
+    # Is the ultimate answer 42?
+    is( ultimate_answer(), 42,          "Meaning of Life" );
+
+    # $foo isn't empty
+    isnt( $foo, '',     "Got some foo" );
+
+are similar to these:
+
+    ok( ultimate_answer() eq 42,        "Meaning of Life" );
+    ok( $foo ne '',     "Got some foo" );
+
+C<undef> will only ever match C<undef>.  So you can test a value
+against C<undef> like this:
+
+    is($not_defined, undef, "undefined as expected");
+
+(Mnemonic:  "This is that."  "This isn't that.")
+
+So why use these?  They produce better diagnostics on failure.  C<ok()>
+cannot know what you are testing for (beyond the name), but C<is()> and
+C<isnt()> know what the test was and why it failed.  For example this
+test:
+
+    my $foo = 'waffle';  my $bar = 'yarblokos';
+    is( $foo, $bar,   'Is foo the same as bar?' );
+
+Will produce something like this:
+
+    not ok 17 - Is foo the same as bar?
+    #   Failed test 'Is foo the same as bar?'
+    #   in foo.t at line 139.
+    #          got: 'waffle'
+    #     expected: 'yarblokos'
+
+So you can figure out what went wrong without rerunning the test.
+
+You are encouraged to use C<is()> and C<isnt()> over C<ok()> where possible,
+however do not be tempted to use them to find out if something is
+true or false!
+
+  # XXX BAD!
+  is( exists $brooklyn{tree}, 1, 'A tree grows in Brooklyn' );
+
+This does not check if C<exists $brooklyn{tree}> is true, it checks if
+it returns 1.  Very different.  Similar caveats exist for false and 0.
+In these cases, use C<ok()>.
+
+  ok( exists $brooklyn{tree},    'A tree grows in Brooklyn' );
+
+A simple call to C<isnt()> usually does not provide a strong test but there
+are cases when you cannot say much more about a value than that it is
+different from some other value:
+
+  new_ok $obj, "Foo";
+
+  my $clone = $obj->clone;
+  isa_ok $obj, "Foo", "Foo->clone";
+
+  isnt $obj, $clone, "clone() produces a different object";
+
+For those grammatical pedants out there, there's an C<isn't()>
+function which is an alias of C<isnt()>.
+
+=cut
+
+sub is ($$;$) {
+    my $tb = Test::More->builder;
+
+    return $tb->is_eq(@_);
+}
+
+sub isnt ($$;$) {
+    my $tb = Test::More->builder;
+
+    return $tb->isnt_eq(@_);
+}
+
+*isn't = \&isnt;
+# ' to unconfuse syntax higlighters
+
+=item B<like>
+
+  like( $got, qr/expected/, $test_name );
+
+Similar to C<ok()>, C<like()> matches $got against the regex C<qr/expected/>.
+
+So this:
+
+    like($got, qr/expected/, 'this is like that');
+
+is similar to:
+
+    ok( $got =~ m/expected/, 'this is like that');
+
+(Mnemonic "This is like that".)
+
+The second argument is a regular expression.  It may be given as a
+regex reference (i.e. C<qr//>) or (for better compatibility with older
+perls) as a string that looks like a regex (alternative delimiters are
+currently not supported):
+
+    like( $got, '/expected/', 'this is like that' );
+
+Regex options may be placed on the end (C<'/expected/i'>).
+
+Its advantages over C<ok()> are similar to that of C<is()> and C<isnt()>.  Better
+diagnostics on failure.
+
+=cut
+
+sub like ($$;$) {
+    my $tb = Test::More->builder;
+
+    return $tb->like(@_);
+}
+
+=item B<unlike>
+
+  unlike( $got, qr/expected/, $test_name );
+
+Works exactly as C<like()>, only it checks if $got B<does not> match the
+given pattern.
+
+=cut
+
+sub unlike ($$;$) {
+    my $tb = Test::More->builder;
+
+    return $tb->unlike(@_);
+}
+
+=item B<cmp_ok>
+
+  cmp_ok( $got, $op, $expected, $test_name );
+
+Halfway between C<ok()> and C<is()> lies C<cmp_ok()>.  This allows you
+to compare two arguments using any binary perl operator.  The test
+passes if the comparison is true and fails otherwise.
+
+    # ok( $got eq $expected );
+    cmp_ok( $got, 'eq', $expected, 'this eq that' );
+
+    # ok( $got == $expected );
+    cmp_ok( $got, '==', $expected, 'this == that' );
+
+    # ok( $got && $expected );
+    cmp_ok( $got, '&&', $expected, 'this && that' );
+    ...etc...
+
+Its advantage over C<ok()> is when the test fails you'll know what $got
+and $expected were:
+
+    not ok 1
+    #   Failed test in foo.t at line 12.
+    #     '23'
+    #         &&
+    #     undef
+
+It's also useful in those cases where you are comparing numbers and
+C<is()>'s use of C<eq> will interfere:
+
+    cmp_ok( $big_hairy_number, '==', $another_big_hairy_number );
+
+It's especially useful when comparing greater-than or smaller-than 
+relation between values:
+
+    cmp_ok( $some_value, '<=', $upper_limit );
+
+
+=cut
+
+sub cmp_ok($$$;$) {
+    my $tb = Test::More->builder;
+
+    return $tb->cmp_ok(@_);
+}
+
+=item B<can_ok>
+
+  can_ok($module, @methods);
+  can_ok($object, @methods);
+
+Checks to make sure the $module or $object can do these @methods
+(works with functions, too).
+
+    can_ok('Foo', qw(this that whatever));
+
+is almost exactly like saying:
+
+    ok( Foo->can('this') && 
+        Foo->can('that') && 
+        Foo->can('whatever') 
+      );
+
+only without all the typing and with a better interface.  Handy for
+quickly testing an interface.
+
+No matter how many @methods you check, a single C<can_ok()> call counts
+as one test.  If you desire otherwise, use:
+
+    foreach my $meth (@methods) {
+        can_ok('Foo', $meth);
+    }
+
+=cut
+
+sub can_ok ($@) {
+    my( $proto, @methods ) = @_;
+    my $class = ref $proto || $proto;
+    my $tb = Test::More->builder;
+
+    unless($class) {
+        my $ok = $tb->ok( 0, "->can(...)" );
+        $tb->diag('    can_ok() called with empty class or reference');
+        return $ok;
+    }
+
+    unless(@methods) {
+        my $ok = $tb->ok( 0, "$class->can(...)" );
+        $tb->diag('    can_ok() called with no methods');
+        return $ok;
+    }
+
+    my @nok = ();
+    foreach my $method (@methods) {
+        $tb->_try( sub { $proto->can($method) } ) or push @nok, $method;
+    }
+
+    my $name = (@methods == 1) ? "$class->can('$methods[0]')" :
+                                 "$class->can(...)"           ;
+
+    my $ok = $tb->ok( !@nok, $name );
+
+    $tb->diag( map "    $class->can('$_') failed\n", @nok );
+
+    return $ok;
+}
+
+=item B<isa_ok>
+
+  isa_ok($object,   $class, $object_name);
+  isa_ok($subclass, $class, $object_name);
+  isa_ok($ref,      $type,  $ref_name);
+
+Checks to see if the given C<< $object->isa($class) >>.  Also checks to make
+sure the object was defined in the first place.  Handy for this sort
+of thing:
+
+    my $obj = Some::Module->new;
+    isa_ok( $obj, 'Some::Module' );
+
+where you'd otherwise have to write
+
+    my $obj = Some::Module->new;
+    ok( defined $obj && $obj->isa('Some::Module') );
+
+to safeguard against your test script blowing up.
+
+You can also test a class, to make sure that it has the right ancestor:
+
+    isa_ok( 'Vole', 'Rodent' );
+
+It works on references, too:
+
+    isa_ok( $array_ref, 'ARRAY' );
+
+The diagnostics of this test normally just refer to 'the object'.  If
+you'd like them to be more specific, you can supply an $object_name
+(for example 'Test customer').
+
+=cut
+
+sub isa_ok ($$;$) {
+    my( $thing, $class, $thing_name ) = @_;
+    my $tb = Test::More->builder;
+
+    my $whatami;
+    if( !defined $thing ) {
+        $whatami = 'undef';
+    }
+    elsif( ref $thing ) {
+        $whatami = 'reference';
+
+        local($@,$!);
+        require Scalar::Util;
+        if( Scalar::Util::blessed($thing) ) {
+            $whatami = 'object';
+        }
+    }
+    else {
+        $whatami = 'class';
+    }
+
+    # We can't use UNIVERSAL::isa because we want to honor isa() overrides
+    my( $rslt, $error ) = $tb->_try( sub { $thing->isa($class) } );
+
+    if($error) {
+        die <<WHOA unless $error =~ /^Can't (locate|call) method "isa"/;
+WHOA! I tried to call ->isa on your $whatami and got some weird error.
+Here's the error.
+$error
+WHOA
+    }
+
+    # Special case for isa_ok( [], "ARRAY" ) and like
+    if( $whatami eq 'reference' ) {
+        $rslt = UNIVERSAL::isa($thing, $class);
+    }
+
+    my($diag, $name);
+    if( defined $thing_name ) {
+        $name = "'$thing_name' isa '$class'";
+        $diag = defined $thing ? "'$thing_name' isn't a '$class'" : "'$thing_name' isn't defined";
+    }
+    elsif( $whatami eq 'object' ) {
+        my $my_class = ref $thing;
+        $thing_name = qq[An object of class '$my_class'];
+        $name = "$thing_name isa '$class'";
+        $diag = "The object of class '$my_class' isn't a '$class'";
+    }
+    elsif( $whatami eq 'reference' ) {
+        my $type = ref $thing;
+        $thing_name = qq[A reference of type '$type'];
+        $name = "$thing_name isa '$class'";
+        $diag = "The reference of type '$type' isn't a '$class'";
+    }
+    elsif( $whatami eq 'undef' ) {
+        $thing_name = 'undef';
+        $name = "$thing_name isa '$class'";
+        $diag = "$thing_name isn't defined";
+    }
+    elsif( $whatami eq 'class' ) {
+        $thing_name = qq[The class (or class-like) '$thing'];
+        $name = "$thing_name isa '$class'";
+        $diag = "$thing_name isn't a '$class'";
+    }
+    else {
+        die;
+    }
+
+    my $ok;
+    if($rslt) {
+        $ok = $tb->ok( 1, $name );
+    }
+    else {
+        $ok = $tb->ok( 0, $name );
+        $tb->diag("    $diag\n");
+    }
+
+    return $ok;
+}
+
+=item B<new_ok>
+
+  my $obj = new_ok( $class );
+  my $obj = new_ok( $class => \@args );
+  my $obj = new_ok( $class => \@args, $object_name );
+
+A convenience function which combines creating an object and calling
+C<isa_ok()> on that object.
+
+It is basically equivalent to:
+
+    my $obj = $class->new(@args);
+    isa_ok $obj, $class, $object_name;
+
+If @args is not given, an empty list will be used.
+
+This function only works on C<new()> and it assumes C<new()> will return
+just a single object which isa C<$class>.
+
+=cut
+
+sub new_ok {
+    my $tb = Test::More->builder;
+    $tb->croak("new_ok() must be given at least a class") unless @_;
+
+    my( $class, $args, $object_name ) = @_;
+
+    $args ||= [];
+
+    my $obj;
+    my( $success, $error ) = $tb->_try( sub { $obj = $class->new(@$args); 1 } );
+    if($success) {
+        local $Test::Builder::Level = $Test::Builder::Level + 1;
+        isa_ok $obj, $class, $object_name;
+    }
+    else {
+        $class = 'undef' if !defined $class;
+        $tb->ok( 0, "$class->new() died" );
+        $tb->diag("    Error was:  $error");
+    }
+
+    return $obj;
+}
+
+=item B<subtest>
+
+    subtest $name => \&code;
+
+C<subtest()> runs the &code as its own little test with its own plan and
+its own result.  The main test counts this as a single test using the
+result of the whole subtest to determine if its ok or not ok.
+
+For example...
+
+  use Test::More tests => 3;
+ 
+  pass("First test");
+
+  subtest 'An example subtest' => sub {
+      plan tests => 2;
+
+      pass("This is a subtest");
+      pass("So is this");
+  };
+
+  pass("Third test");
+
+This would produce.
+
+  1..3
+  ok 1 - First test
+      # Subtest: An example subtest
+      1..2
+      ok 1 - This is a subtest
+      ok 2 - So is this
+  ok 2 - An example subtest
+  ok 3 - Third test
+
+A subtest may call C<skip_all>.  No tests will be run, but the subtest is
+considered a skip.
+
+  subtest 'skippy' => sub {
+      plan skip_all => 'cuz I said so';
+      pass('this test will never be run');
+  };
+
+Returns true if the subtest passed, false otherwise.
+
+Due to how subtests work, you may omit a plan if you desire.  This adds an
+implicit C<done_testing()> to the end of your subtest.  The following two
+subtests are equivalent:
+
+  subtest 'subtest with implicit done_testing()', sub {
+      ok 1, 'subtests with an implicit done testing should work';
+      ok 1, '... and support more than one test';
+      ok 1, '... no matter how many tests are run';
+  };
+
+  subtest 'subtest with explicit done_testing()', sub {
+      ok 1, 'subtests with an explicit done testing should work';
+      ok 1, '... and support more than one test';
+      ok 1, '... no matter how many tests are run';
+      done_testing();
+  };
+
+=cut
+
+sub subtest {
+    my ($name, $subtests) = @_;
+
+    my $tb = Test::More->builder;
+    return $tb->subtest(@_);
+}
+
+=item B<pass>
+
+=item B<fail>
+
+  pass($test_name);
+  fail($test_name);
+
+Sometimes you just want to say that the tests have passed.  Usually
+the case is you've got some complicated condition that is difficult to
+wedge into an C<ok()>.  In this case, you can simply use C<pass()> (to
+declare the test ok) or fail (for not ok).  They are synonyms for
+C<ok(1)> and C<ok(0)>.
+
+Use these very, very, very sparingly.
+
+=cut
+
+sub pass (;$) {
+    my $tb = Test::More->builder;
+
+    return $tb->ok( 1, @_ );
+}
+
+sub fail (;$) {
+    my $tb = Test::More->builder;
+
+    return $tb->ok( 0, @_ );
+}
+
+=back
+
+
+=head2 Module tests
+
+Sometimes you want to test if a module, or a list of modules, can
+successfully load.  For example, you'll often want a first test which
+simply loads all the modules in the distribution to make sure they
+work before going on to do more complicated testing.
+
+For such purposes we have C<use_ok> and C<require_ok>.
+
+=over 4
+
+=item B<require_ok>
+
+   require_ok($module);
+   require_ok($file);
+
+Tries to C<require> the given $module or $file.  If it loads
+successfully, the test will pass.  Otherwise it fails and displays the
+load error.
+
+C<require_ok> will guess whether the input is a module name or a
+filename.
+
+No exception will be thrown if the load fails.
+
+    # require Some::Module
+    require_ok "Some::Module";
+
+    # require "Some/File.pl";
+    require_ok "Some/File.pl";
+
+    # stop testing if any of your modules will not load
+    for my $module (@module) {
+        require_ok $module or BAIL_OUT "Can't load $module";
+    }
+
+=cut
+
+sub require_ok ($) {
+    my($module) = shift;
+    my $tb = Test::More->builder;
+
+    my $pack = caller;
+
+    # Try to determine if we've been given a module name or file.
+    # Module names must be barewords, files not.
+    $module = qq['$module'] unless _is_module_name($module);
+
+    my $code = <<REQUIRE;
+package $pack;
+require $module;
+1;
+REQUIRE
+
+    my( $eval_result, $eval_error ) = _eval($code);
+    my $ok = $tb->ok( $eval_result, "require $module;" );
+
+    unless($ok) {
+        chomp $eval_error;
+        $tb->diag(<<DIAGNOSTIC);
+    Tried to require '$module'.
+    Error:  $eval_error
+DIAGNOSTIC
+
+    }
+
+    return $ok;
+}
+
+sub _is_module_name {
+    my $module = shift;
+
+    # Module names start with a letter.
+    # End with an alphanumeric.
+    # The rest is an alphanumeric or ::
+    $module =~ s/\b::\b//g;
+
+    return $module =~ /^[a-zA-Z]\w*$/ ? 1 : 0;
+}
+
+
+=item B<use_ok>
+
+   BEGIN { use_ok($module); }
+   BEGIN { use_ok($module, @imports); }
+
+Like C<require_ok>, but it will C<use> the $module in question and
+only loads modules, not files.
+
+If you just want to test a module can be loaded, use C<require_ok>.
+
+If you just want to load a module in a test, we recommend simply using
+C<use> directly.  It will cause the test to stop.
+
+It's recommended that you run C<use_ok()> inside a BEGIN block so its
+functions are exported at compile-time and prototypes are properly
+honored.
+
+If @imports are given, they are passed through to the use.  So this:
+
+   BEGIN { use_ok('Some::Module', qw(foo bar)) }
+
+is like doing this:
+
+   use Some::Module qw(foo bar);
+
+Version numbers can be checked like so:
+
+   # Just like "use Some::Module 1.02"
+   BEGIN { use_ok('Some::Module', 1.02) }
+
+Don't try to do this:
+
+   BEGIN {
+       use_ok('Some::Module');
+
+       ...some code that depends on the use...
+       ...happening at compile time...
+   }
+
+because the notion of "compile-time" is relative.  Instead, you want:
+
+  BEGIN { use_ok('Some::Module') }
+  BEGIN { ...some code that depends on the use... }
+
+If you want the equivalent of C<use Foo ()>, use a module but not
+import anything, use C<require_ok>.
+
+  BEGIN { require_ok "Foo" }
+
+=cut
+
+sub use_ok ($;@) {
+    my( $module, @imports ) = @_;
+    @imports = () unless @imports;
+    my $tb = Test::More->builder;
+
+    my( $pack, $filename, $line ) = caller;
+    $filename =~ y/\n\r/_/; # so it doesn't run off the "#line $line $f" line
+
+    my $code;
+    if( @imports == 1 and $imports[0] =~ /^\d+(?:\.\d+)?$/ ) {
+        # probably a version check.  Perl needs to see the bare number
+        # for it to work with non-Exporter based modules.
+        $code = <<USE;
+package $pack;
+
+#line $line $filename
+use $module $imports[0];
+1;
+USE
+    }
+    else {
+        $code = <<USE;
+package $pack;
+
+#line $line $filename
+use $module \@{\$args[0]};
+1;
+USE
+    }
+
+    my( $eval_result, $eval_error ) = _eval( $code, \@imports );
+    my $ok = $tb->ok( $eval_result, "use $module;" );
+
+    unless($ok) {
+        chomp $eval_error;
+        $@ =~ s{^BEGIN failed--compilation aborted at .*$}
+                {BEGIN failed--compilation aborted at $filename line $line.}m;
+        $tb->diag(<<DIAGNOSTIC);
+    Tried to use '$module'.
+    Error:  $eval_error
+DIAGNOSTIC
+
+    }
+
+    return $ok;
+}
+
+sub _eval {
+    my( $code, @args ) = @_;
+
+    # Work around oddities surrounding resetting of $@ by immediately
+    # storing it.
+    my( $sigdie, $eval_result, $eval_error );
+    {
+        local( $@, $!, $SIG{__DIE__} );    # isolate eval
+        $eval_result = eval $code;              ## no critic (BuiltinFunctions::ProhibitStringyEval)
+        $eval_error  = $@;
+        $sigdie      = $SIG{__DIE__} || undef;
+    }
+    # make sure that $code got a chance to set $SIG{__DIE__}
+    $SIG{__DIE__} = $sigdie if defined $sigdie;
+
+    return( $eval_result, $eval_error );
+}
+
+
+=back
+
+
+=head2 Complex data structures
+
+Not everything is a simple eq check or regex.  There are times you
+need to see if two data structures are equivalent.  For these
+instances Test::More provides a handful of useful functions.
+
+B<NOTE> I'm not quite sure what will happen with filehandles.
+
+=over 4
+
+=item B<is_deeply>
+
+  is_deeply( $got, $expected, $test_name );
+
+Similar to C<is()>, except that if $got and $expected are references, it
+does a deep comparison walking each data structure to see if they are
+equivalent.  If the two structures are different, it will display the
+place where they start differing.
+
+C<is_deeply()> compares the dereferenced values of references, the
+references themselves (except for their type) are ignored.  This means
+aspects such as blessing and ties are not considered "different".
+
+C<is_deeply()> currently has very limited handling of function reference
+and globs.  It merely checks if they have the same referent.  This may
+improve in the future.
+
+L<Test::Differences> and L<Test::Deep> provide more in-depth functionality
+along these lines.
+
+=cut
+
+our( @Data_Stack, %Refs_Seen );
+my $DNE = bless [], 'Does::Not::Exist';
+
+sub _dne {
+    return ref $_[0] eq ref $DNE;
+}
+
+## no critic (Subroutines::RequireArgUnpacking)
+sub is_deeply {
+    my $tb = Test::More->builder;
+
+    unless( @_ == 2 or @_ == 3 ) {
+        my $msg = <<'WARNING';
+is_deeply() takes two or three args, you gave %d.
+This usually means you passed an array or hash instead 
+of a reference to it
+WARNING
+        chop $msg;    # clip off newline so carp() will put in line/file
+
+        _carp sprintf $msg, scalar @_;
+
+        return $tb->ok(0);
+    }
+
+    my( $got, $expected, $name ) = @_;
+
+    $tb->_unoverload_str( \$expected, \$got );
+
+    my $ok;
+    if( !ref $got and !ref $expected ) {    # neither is a reference
+        $ok = $tb->is_eq( $got, $expected, $name );
+    }
+    elsif( !ref $got xor !ref $expected ) {    # one's a reference, one isn't
+        $ok = $tb->ok( 0, $name );
+        $tb->diag( _format_stack({ vals => [ $got, $expected ] }) );
+    }
+    else {                                     # both references
+        local @Data_Stack = ();
+        if( _deep_check( $got, $expected ) ) {
+            $ok = $tb->ok( 1, $name );
+        }
+        else {
+            $ok = $tb->ok( 0, $name );
+            $tb->diag( _format_stack(@Data_Stack) );
+        }
+    }
+
+    return $ok;
+}
+
+sub _format_stack {
+    my(@Stack) = @_;
+
+    my $var       = '$FOO';
+    my $did_arrow = 0;
+    foreach my $entry (@Stack) {
+        my $type = $entry->{type} || '';
+        my $idx = $entry->{'idx'};
+        if( $type eq 'HASH' ) {
+            $var .= "->" unless $did_arrow++;
+            $var .= "{$idx}";
+        }
+        elsif( $type eq 'ARRAY' ) {
+            $var .= "->" unless $did_arrow++;
+            $var .= "[$idx]";
+        }
+        elsif( $type eq 'REF' ) {
+            $var = "\${$var}";
+        }
+    }
+
+    my @vals = @{ $Stack[-1]{vals} }[ 0, 1 ];
+    my @vars = ();
+    ( $vars[0] = $var ) =~ s/\$FOO/     \$got/;
+    ( $vars[1] = $var ) =~ s/\$FOO/\$expected/;
+
+    my $out = "Structures begin differing at:\n";
+    foreach my $idx ( 0 .. $#vals ) {
+        my $val = $vals[$idx];
+        $vals[$idx]
+          = !defined $val ? 'undef'
+          : _dne($val)    ? "Does not exist"
+          : ref $val      ? "$val"
+          :                 "'$val'";
+    }
+
+    $out .= "$vars[0] = $vals[0]\n";
+    $out .= "$vars[1] = $vals[1]\n";
+
+    $out =~ s/^/    /msg;
+    return $out;
+}
+
+sub _type {
+    my $thing = shift;
+
+    return '' if !ref $thing;
+
+    for my $type (qw(Regexp ARRAY HASH REF SCALAR GLOB CODE)) {
+        return $type if UNIVERSAL::isa( $thing, $type );
+    }
+
+    return '';
+}
+
+=back
+
+
+=head2 Diagnostics
+
+If you pick the right test function, you'll usually get a good idea of
+what went wrong when it failed.  But sometimes it doesn't work out
+that way.  So here we have ways for you to write your own diagnostic
+messages which are safer than just C<print STDERR>.
+
+=over 4
+
+=item B<diag>
+
+  diag(@diagnostic_message);
+
+Prints a diagnostic message which is guaranteed not to interfere with
+test output.  Like C<print> @diagnostic_message is simply concatenated
+together.
+
+Returns false, so as to preserve failure.
+
+Handy for this sort of thing:
+
+    ok( grep(/foo/, @users), "There's a foo user" ) or
+        diag("Since there's no foo, check that /etc/bar is set up right");
+
+which would produce:
+
+    not ok 42 - There's a foo user
+    #   Failed test 'There's a foo user'
+    #   in foo.t at line 52.
+    # Since there's no foo, check that /etc/bar is set up right.
+
+You might remember C<ok() or diag()> with the mnemonic C<open() or
+die()>.
+
+B<NOTE> The exact formatting of the diagnostic output is still
+changing, but it is guaranteed that whatever you throw at it won't
+interfere with the test.
+
+=item B<note>
+
+  note(@diagnostic_message);
+
+Like C<diag()>, except the message will not be seen when the test is run
+in a harness.  It will only be visible in the verbose TAP stream.
+
+Handy for putting in notes which might be useful for debugging, but
+don't indicate a problem.
+
+    note("Tempfile is $tempfile");
+
+=cut
+
+sub diag {
+    return Test::More->builder->diag(@_);
+}
+
+sub note {
+    return Test::More->builder->note(@_);
+}
+
+=item B<explain>
+
+  my @dump = explain @diagnostic_message;
+
+Will dump the contents of any references in a human readable format.
+Usually you want to pass this into C<note> or C<diag>.
+
+Handy for things like...
+
+    is_deeply($have, $want) || diag explain $have;
+
+or
+
+    note explain \%args;
+    Some::Class->method(%args);
+
+=cut
+
+sub explain {
+    return Test::More->builder->explain(@_);
+}
+
+=back
+
+
+=head2 Conditional tests
+
+Sometimes running a test under certain conditions will cause the
+test script to die.  A certain function or method isn't implemented
+(such as C<fork()> on MacOS), some resource isn't available (like a 
+net connection) or a module isn't available.  In these cases it's
+necessary to skip tests, or declare that they are supposed to fail
+but will work in the future (a todo test).
+
+For more details on the mechanics of skip and todo tests see
+L<Test::Harness>.
+
+The way Test::More handles this is with a named block.  Basically, a
+block of tests which can be skipped over or made todo.  It's best if I
+just show you...
+
+=over 4
+
+=item B<SKIP: BLOCK>
+
+  SKIP: {
+      skip $why, $how_many if $condition;
+
+      ...normal testing code goes here...
+  }
+
+This declares a block of tests that might be skipped, $how_many tests
+there are, $why and under what $condition to skip them.  An example is
+the easiest way to illustrate:
+
+    SKIP: {
+        eval { require HTML::Lint };
+
+        skip "HTML::Lint not installed", 2 if $@;
+
+        my $lint = new HTML::Lint;
+        isa_ok( $lint, "HTML::Lint" );
+
+        $lint->parse( $html );
+        is( $lint->errors, 0, "No errors found in HTML" );
+    }
+
+If the user does not have HTML::Lint installed, the whole block of
+code I<won't be run at all>.  Test::More will output special ok's
+which Test::Harness interprets as skipped, but passing, tests.
+
+It's important that $how_many accurately reflects the number of tests
+in the SKIP block so the # of tests run will match up with your plan.
+If your plan is C<no_plan> $how_many is optional and will default to 1.
+
+It's perfectly safe to nest SKIP blocks.  Each SKIP block must have
+the label C<SKIP>, or Test::More can't work its magic.
+
+You don't skip tests which are failing because there's a bug in your
+program, or for which you don't yet have code written.  For that you
+use TODO.  Read on.
+
+=cut
+
+## no critic (Subroutines::RequireFinalReturn)
+sub skip {
+    my( $why, $how_many ) = @_;
+    my $tb = Test::More->builder;
+
+    unless( defined $how_many ) {
+        # $how_many can only be avoided when no_plan is in use.
+        _carp "skip() needs to know \$how_many tests are in the block"
+          unless $tb->has_plan eq 'no_plan';
+        $how_many = 1;
+    }
+
+    if( defined $how_many and $how_many =~ /\D/ ) {
+        _carp
+          "skip() was passed a non-numeric number of tests.  Did you get the arguments backwards?";
+        $how_many = 1;
+    }
+
+    for( 1 .. $how_many ) {
+        $tb->skip($why);
+    }
+
+    no warnings 'exiting';
+    last SKIP;
+}
+
+=item B<TODO: BLOCK>
+
+    TODO: {
+        local $TODO = $why if $condition;
+
+        ...normal testing code goes here...
+    }
+
+Declares a block of tests you expect to fail and $why.  Perhaps it's
+because you haven't fixed a bug or haven't finished a new feature:
+
+    TODO: {
+        local $TODO = "URI::Geller not finished";
+
+        my $card = "Eight of clubs";
+        is( URI::Geller->your_card, $card, 'Is THIS your card?' );
+
+        my $spoon;
+        URI::Geller->bend_spoon;
+        is( $spoon, 'bent',    "Spoon bending, that's original" );
+    }
+
+With a todo block, the tests inside are expected to fail.  Test::More
+will run the tests normally, but print out special flags indicating
+they are "todo".  L<Test::Harness> will interpret failures as being ok.
+Should anything succeed, it will report it as an unexpected success.
+You then know the thing you had todo is done and can remove the
+TODO flag.
+
+The nice part about todo tests, as opposed to simply commenting out a
+block of tests, is it's like having a programmatic todo list.  You know
+how much work is left to be done, you're aware of what bugs there are,
+and you'll know immediately when they're fixed.
+
+Once a todo test starts succeeding, simply move it outside the block.
+When the block is empty, delete it.
+
+
+=item B<todo_skip>
+
+    TODO: {
+        todo_skip $why, $how_many if $condition;
+
+        ...normal testing code...
+    }
+
+With todo tests, it's best to have the tests actually run.  That way
+you'll know when they start passing.  Sometimes this isn't possible.
+Often a failing test will cause the whole program to die or hang, even
+inside an C<eval BLOCK> with and using C<alarm>.  In these extreme
+cases you have no choice but to skip over the broken tests entirely.
+
+The syntax and behavior is similar to a C<SKIP: BLOCK> except the
+tests will be marked as failing but todo.  L<Test::Harness> will
+interpret them as passing.
+
+=cut
+
+sub todo_skip {
+    my( $why, $how_many ) = @_;
+    my $tb = Test::More->builder;
+
+    unless( defined $how_many ) {
+        # $how_many can only be avoided when no_plan is in use.
+        _carp "todo_skip() needs to know \$how_many tests are in the block"
+          unless $tb->has_plan eq 'no_plan';
+        $how_many = 1;
+    }
+
+    for( 1 .. $how_many ) {
+        $tb->todo_skip($why);
+    }
+
+    no warnings 'exiting';
+    last TODO;
+}
+
+=item When do I use SKIP vs. TODO?
+
+B<If it's something the user might not be able to do>, use SKIP.
+This includes optional modules that aren't installed, running under
+an OS that doesn't have some feature (like C<fork()> or symlinks), or maybe
+you need an Internet connection and one isn't available.
+
+B<If it's something the programmer hasn't done yet>, use TODO.  This
+is for any code you haven't written yet, or bugs you have yet to fix,
+but want to put tests in your testing script (always a good idea).
+
+
+=back
+
+
+=head2 Test control
+
+=over 4
+
+=item B<BAIL_OUT>
+
+    BAIL_OUT($reason);
+
+Indicates to the harness that things are going so badly all testing
+should terminate.  This includes the running of any additional test scripts.
+
+This is typically used when testing cannot continue such as a critical
+module failing to compile or a necessary external utility not being
+available such as a database connection failing.
+
+The test will exit with 255.
+
+For even better control look at L<Test::Most>.
+
+=cut
+
+sub BAIL_OUT {
+    my $reason = shift;
+    my $tb     = Test::More->builder;
+
+    $tb->BAIL_OUT($reason);
+}
+
+=back
+
+
+=head2 Discouraged comparison functions
+
+The use of the following functions is discouraged as they are not
+actually testing functions and produce no diagnostics to help figure
+out what went wrong.  They were written before C<is_deeply()> existed
+because I couldn't figure out how to display a useful diff of two
+arbitrary data structures.
+
+These functions are usually used inside an C<ok()>.
+
+    ok( eq_array(\@got, \@expected) );
+
+C<is_deeply()> can do that better and with diagnostics.  
+
+    is_deeply( \@got, \@expected );
+
+They may be deprecated in future versions.
+
+=over 4
+
+=item B<eq_array>
+
+  my $is_eq = eq_array(\@got, \@expected);
+
+Checks if two arrays are equivalent.  This is a deep check, so
+multi-level structures are handled correctly.
+
+=cut
+
+#'#
+sub eq_array {
+    local @Data_Stack = ();
+    _deep_check(@_);
+}
+
+sub _eq_array {
+    my( $a1, $a2 ) = @_;
+
+    if( grep _type($_) ne 'ARRAY', $a1, $a2 ) {
+        warn "eq_array passed a non-array ref";
+        return 0;
+    }
+
+    return 1 if $a1 eq $a2;
+
+    my $ok = 1;
+    my $max = $#$a1 > $#$a2 ? $#$a1 : $#$a2;
+    for( 0 .. $max ) {
+        my $e1 = $_ > $#$a1 ? $DNE : $a1->[$_];
+        my $e2 = $_ > $#$a2 ? $DNE : $a2->[$_];
+
+        next if _equal_nonrefs($e1, $e2);
+
+        push @Data_Stack, { type => 'ARRAY', idx => $_, vals => [ $e1, $e2 ] };
+        $ok = _deep_check( $e1, $e2 );
+        pop @Data_Stack if $ok;
+
+        last unless $ok;
+    }
+
+    return $ok;
+}
+
+sub _equal_nonrefs {
+    my( $e1, $e2 ) = @_;
+
+    return if ref $e1 or ref $e2;
+
+    if ( defined $e1 ) {
+        return 1 if defined $e2 and $e1 eq $e2;
+    }
+    else {
+        return 1 if !defined $e2;
+    }
+
+    return;
+}
+
+sub _deep_check {
+    my( $e1, $e2 ) = @_;
+    my $tb = Test::More->builder;
+
+    my $ok = 0;
+
+    # Effectively turn %Refs_Seen into a stack.  This avoids picking up
+    # the same referenced used twice (such as [\$a, \$a]) to be considered
+    # circular.
+    local %Refs_Seen = %Refs_Seen;
+
+    {
+        $tb->_unoverload_str( \$e1, \$e2 );
+
+        # Either they're both references or both not.
+        my $same_ref = !( !ref $e1 xor !ref $e2 );
+        my $not_ref = ( !ref $e1 and !ref $e2 );
+
+        if( defined $e1 xor defined $e2 ) {
+            $ok = 0;
+        }
+        elsif( !defined $e1 and !defined $e2 ) {
+            # Shortcut if they're both undefined.
+            $ok = 1;
+        }
+        elsif( _dne($e1) xor _dne($e2) ) {
+            $ok = 0;
+        }
+        elsif( $same_ref and( $e1 eq $e2 ) ) {
+            $ok = 1;
+        }
+        elsif($not_ref) {
+            push @Data_Stack, { type => '', vals => [ $e1, $e2 ] };
+            $ok = 0;
+        }
+        else {
+            if( $Refs_Seen{$e1} ) {
+                return $Refs_Seen{$e1} eq $e2;
+            }
+            else {
+                $Refs_Seen{$e1} = "$e2";
+            }
+
+            my $type = _type($e1);
+            $type = 'DIFFERENT' unless _type($e2) eq $type;
+
+            if( $type eq 'DIFFERENT' ) {
+                push @Data_Stack, { type => $type, vals => [ $e1, $e2 ] };
+                $ok = 0;
+            }
+            elsif( $type eq 'ARRAY' ) {
+                $ok = _eq_array( $e1, $e2 );
+            }
+            elsif( $type eq 'HASH' ) {
+                $ok = _eq_hash( $e1, $e2 );
+            }
+            elsif( $type eq 'REF' ) {
+                push @Data_Stack, { type => $type, vals => [ $e1, $e2 ] };
+                $ok = _deep_check( $$e1, $$e2 );
+                pop @Data_Stack if $ok;
+            }
+            elsif( $type eq 'SCALAR' ) {
+                push @Data_Stack, { type => 'REF', vals => [ $e1, $e2 ] };
+                $ok = _deep_check( $$e1, $$e2 );
+                pop @Data_Stack if $ok;
+            }
+            elsif($type) {
+                push @Data_Stack, { type => $type, vals => [ $e1, $e2 ] };
+                $ok = 0;
+            }
+            else {
+                _whoa( 1, "No type in _deep_check" );
+            }
+        }
+    }
+
+    return $ok;
+}
+
+sub _whoa {
+    my( $check, $desc ) = @_;
+    if($check) {
+        die <<"WHOA";
+WHOA!  $desc
+This should never happen!  Please contact the author immediately!
+WHOA
+    }
+}
+
+=item B<eq_hash>
+
+  my $is_eq = eq_hash(\%got, \%expected);
+
+Determines if the two hashes contain the same keys and values.  This
+is a deep check.
+
+=cut
+
+sub eq_hash {
+    local @Data_Stack = ();
+    return _deep_check(@_);
+}
+
+sub _eq_hash {
+    my( $a1, $a2 ) = @_;
+
+    if( grep _type($_) ne 'HASH', $a1, $a2 ) {
+        warn "eq_hash passed a non-hash ref";
+        return 0;
+    }
+
+    return 1 if $a1 eq $a2;
+
+    my $ok = 1;
+    my $bigger = keys %$a1 > keys %$a2 ? $a1 : $a2;
+    foreach my $k ( keys %$bigger ) {
+        my $e1 = exists $a1->{$k} ? $a1->{$k} : $DNE;
+        my $e2 = exists $a2->{$k} ? $a2->{$k} : $DNE;
+
+        next if _equal_nonrefs($e1, $e2);
+
+        push @Data_Stack, { type => 'HASH', idx => $k, vals => [ $e1, $e2 ] };
+        $ok = _deep_check( $e1, $e2 );
+        pop @Data_Stack if $ok;
+
+        last unless $ok;
+    }
+
+    return $ok;
+}
+
+=item B<eq_set>
+
+  my $is_eq = eq_set(\@got, \@expected);
+
+Similar to C<eq_array()>, except the order of the elements is B<not>
+important.  This is a deep check, but the irrelevancy of order only
+applies to the top level.
+
+    ok( eq_set(\@got, \@expected) );
+
+Is better written:
+
+    is_deeply( [sort @got], [sort @expected] );
+
+B<NOTE> By historical accident, this is not a true set comparison.
+While the order of elements does not matter, duplicate elements do.
+
+B<NOTE> C<eq_set()> does not know how to deal with references at the top
+level.  The following is an example of a comparison which might not work:
+
+    eq_set([\1, \2], [\2, \1]);
+
+L<Test::Deep> contains much better set comparison functions.
+
+=cut
+
+sub eq_set {
+    my( $a1, $a2 ) = @_;
+    return 0 unless @$a1 == @$a2;
+
+    no warnings 'uninitialized';
+
+    # It really doesn't matter how we sort them, as long as both arrays are
+    # sorted with the same algorithm.
+    #
+    # Ensure that references are not accidentally treated the same as a
+    # string containing the reference.
+    #
+    # Have to inline the sort routine due to a threading/sort bug.
+    # See [rt.cpan.org 6782]
+    #
+    # I don't know how references would be sorted so we just don't sort
+    # them.  This means eq_set doesn't really work with refs.
+    return eq_array(
+        [ grep( ref, @$a1 ), sort( grep( !ref, @$a1 ) ) ],
+        [ grep( ref, @$a2 ), sort( grep( !ref, @$a2 ) ) ],
+    );
+}
+
+=back
+
+
+=head2 Extending and Embedding Test::More
+
+Sometimes the Test::More interface isn't quite enough.  Fortunately,
+Test::More is built on top of L<Test::Builder> which provides a single,
+unified backend for any test library to use.  This means two test
+libraries which both use <Test::Builder> B<can> be used together in the
+same program>.
+
+If you simply want to do a little tweaking of how the tests behave,
+you can access the underlying L<Test::Builder> object like so:
+
+=over 4
+
+=item B<builder>
+
+    my $test_builder = Test::More->builder;
+
+Returns the L<Test::Builder> object underlying Test::More for you to play
+with.
+
+
+=back
+
+
+=head1 EXIT CODES
+
+If all your tests passed, L<Test::Builder> will exit with zero (which is
+normal).  If anything failed it will exit with how many failed.  If
+you run less (or more) tests than you planned, the missing (or extras)
+will be considered failures.  If no tests were ever run L<Test::Builder>
+will throw a warning and exit with 255.  If the test died, even after
+having successfully completed all its tests, it will still be
+considered a failure and will exit with 255.
+
+So the exit codes are...
+
+    0                   all tests successful
+    255                 test died or all passed but wrong # of tests run
+    any other number    how many failed (including missing or extras)
+
+If you fail more than 254 tests, it will be reported as 254.
+
+B<NOTE>  This behavior may go away in future versions.
+
+
+=head1 COMPATIBILITY
+
+Test::More works with Perls as old as 5.8.1.
+
+Thread support is not very reliable before 5.10.1, but that's
+because threads are not very reliable before 5.10.1.
+
+Although Test::More has been a core module in versions of Perl since 5.6.2, Test::More has evolved since then, and not all of the features you're used to will be present in the shipped version of Test::More. If you are writing a module, don't forget to indicate in your package metadata the minimum version of Test::More that you require. For instance, if you want to use C<done_testing()> but want your test script to run on Perl 5.10.0, you will need to explicitly require Test::More > 0.88.
+
+Key feature milestones include:
+
+=over 4
+
+=item subtests
+
+Subtests were released in Test::More 0.94, which came with Perl 5.12.0. Subtests did not implicitly call C<done_testing()> until 0.96; the first Perl with that fix was Perl 5.14.0 with 0.98.
+
+=item C<done_testing()>
+
+This was released in Test::More 0.88 and first shipped with Perl in 5.10.1 as part of Test::More 0.92. 
+
+=item C<cmp_ok()>
+
+Although C<cmp_ok()> was introduced in 0.40, 0.86 fixed an important bug to make it safe for overloaded objects; the fixed first shipped with Perl in 5.10.1 as part of Test::More 0.92.
+
+=item C<new_ok()> C<note()> and C<explain()>
+
+These were was released in Test::More 0.82, and first shipped with Perl in 5.10.1 as part of Test::More 0.92. 
+
+=back
+
+There is a full version history in the Changes file, and the Test::More versions included as core can be found using L<Module::CoreList>:
+
+    $ corelist -a Test::More
+
+
+=head1 CAVEATS and NOTES
+
+=over 4
+
+=item utf8 / "Wide character in print"
+
+If you use utf8 or other non-ASCII characters with Test::More you
+might get a "Wide character in print" warning.  Using
+C<< binmode STDOUT, ":utf8" >> will not fix it.
+L<Test::Builder> (which powers
+Test::More) duplicates STDOUT and STDERR.  So any changes to them,
+including changing their output disciplines, will not be seem by
+Test::More.
+
+One work around is to apply encodings to STDOUT and STDERR as early
+as possible and before Test::More (or any other Test module) loads.
+
+    use open ':std', ':encoding(utf8)';
+    use Test::More;
+
+A more direct work around is to change the filehandles used by
+L<Test::Builder>.
+
+    my $builder = Test::More->builder;
+    binmode $builder->output,         ":encoding(utf8)";
+    binmode $builder->failure_output, ":encoding(utf8)";
+    binmode $builder->todo_output,    ":encoding(utf8)";
+
+
+=item Overloaded objects
+
+String overloaded objects are compared B<as strings> (or in C<cmp_ok()>'s
+case, strings or numbers as appropriate to the comparison op).  This
+prevents Test::More from piercing an object's interface allowing
+better blackbox testing.  So if a function starts returning overloaded
+objects instead of bare strings your tests won't notice the
+difference.  This is good.
+
+However, it does mean that functions like C<is_deeply()> cannot be used to
+test the internals of string overloaded objects.  In this case I would
+suggest L<Test::Deep> which contains more flexible testing functions for
+complex data structures.
+
+
+=item Threads
+
+Test::More will only be aware of threads if C<use threads> has been done
+I<before> Test::More is loaded.  This is ok:
+
+    use threads;
+    use Test::More;
+
+This may cause problems:
+
+    use Test::More
+    use threads;
+
+5.8.1 and above are supported.  Anything below that has too many bugs.
+
+=back
+
+
+=head1 HISTORY
+
+This is a case of convergent evolution with Joshua Pritikin's L<Test>
+module.  I was largely unaware of its existence when I'd first
+written my own C<ok()> routines.  This module exists because I can't
+figure out how to easily wedge test names into Test's interface (along
+with a few other problems).
+
+The goal here is to have a testing utility that's simple to learn,
+quick to use and difficult to trip yourself up with while still
+providing more flexibility than the existing Test.pm.  As such, the
+names of the most common routines are kept tiny, special cases and
+magic side-effects are kept to a minimum.  WYSIWYG.
+
+
+=head1 SEE ALSO
+
+=head2
+
+=head2 ALTERNATIVES
+
+L<Test::Simple> if all this confuses you and you just want to write
+some tests.  You can upgrade to Test::More later (it's forward
+compatible).
+
+L<Test::Legacy> tests written with Test.pm, the original testing
+module, do not play well with other testing libraries.  Test::Legacy
+emulates the Test.pm interface and does play well with others.
+
+=head2 TESTING FRAMEWORKS
+
+L<Fennec> The Fennec framework is a testers toolbox. It uses L<Test::Builder>
+under the hood. It brings enhancements for forking, defining state, and
+mocking. Fennec enhances several modules to work better together than they
+would if you loaded them individually on your own.
+
+L<Fennec::Declare> Provides enhanced (L<Devel::Declare>) syntax for Fennec.
+
+=head2 ADDITIONAL LIBRARIES
+
+L<Test::Differences> for more ways to test complex data structures.
+And it plays well with Test::More.
+
+L<Test::Class> is like xUnit but more perlish.
+
+L<Test::Deep> gives you more powerful complex data structure testing.
+
+L<Test::Inline> shows the idea of embedded testing.
+
+L<Mock::Quick> The ultimate mocking library. Easily spawn objects defined on
+the fly. Can also override, block, or reimplement packages as needed.
+
+L<Test::FixtureBuilder> Quickly define fixture data for unit tests.
+
+=head2 OTHER COMPONENTS
+
+L<Test::Harness> is the test runner and output interpreter for Perl.
+It's the thing that powers C<make test> and where the C<prove> utility
+comes from.
+
+=head2 BUNDLES
+
+L<Bundle::Test> installs a whole bunch of useful test modules.
+
+L<Test::Most> Most commonly needed test functions and features.
+
+=head1 AUTHORS
+
+Michael G Schwern E<lt>schwern@pobox.comE<gt> with much inspiration
+from Joshua Pritikin's Test module and lots of help from Barrie
+Slaymaker, Tony Bowden, blackstar.co.uk, chromatic, Fergal Daly and
+the perl-qa gang.
+
+=head1 MAINTAINERS
+
+=over 4
+
+=item Chad Granum E<lt>exodist@cpan.orgE<gt>
+
+=back
+
+
+=head1 BUGS
+
+See F<http://rt.cpan.org> to report and view bugs.
+
+
+=head1 SOURCE
+
+The source code repository for Test::More can be found at
+F<http://github.com/Test-More/test-more/>.
+
+
+=head1 COPYRIGHT
+
+Copyright 2001-2008 by Michael G Schwern E<lt>schwern@pobox.comE<gt>.
+
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+See F<http://www.perl.com/perl/misc/Artistic.html>
+
+=cut
+
+1;
diff --git a/lib/5.24.1/Test/Simple.pm b/lib/5.24.1/Test/Simple.pm
new file mode 100644
index 00000000..56457b40
--- /dev/null
+++ b/lib/5.24.1/Test/Simple.pm
@@ -0,0 +1,221 @@
+package Test::Simple;
+
+use 5.006;
+
+use strict;
+
+our $VERSION = '1.001014';
+$VERSION = eval $VERSION;    ## no critic (BuiltinFunctions::ProhibitStringyEval)
+
+use Test::Builder::Module 0.99;
+our @ISA    = qw(Test::Builder::Module);
+our @EXPORT = qw(ok);
+
+my $CLASS = __PACKAGE__;
+
+=head1 NAME
+
+Test::Simple - Basic utilities for writing tests.
+
+=head1 SYNOPSIS
+
+  use Test::Simple tests => 1;
+
+  ok( $foo eq $bar, 'foo is bar' );
+
+
+=head1 DESCRIPTION
+
+** If you are unfamiliar with testing B<read L<Test::Tutorial> first!> **
+
+This is an extremely simple, extremely basic module for writing tests
+suitable for CPAN modules and other pursuits.  If you wish to do more
+complicated testing, use the Test::More module (a drop-in replacement
+for this one).
+
+The basic unit of Perl testing is the ok.  For each thing you want to
+test your program will print out an "ok" or "not ok" to indicate pass
+or fail.  You do this with the C<ok()> function (see below).
+
+The only other constraint is you must pre-declare how many tests you
+plan to run.  This is in case something goes horribly wrong during the
+test and your test program aborts, or skips a test or whatever.  You
+do this like so:
+
+    use Test::Simple tests => 23;
+
+You must have a plan.
+
+
+=over 4
+
+=item B<ok>
+
+  ok( $foo eq $bar, $name );
+  ok( $foo eq $bar );
+
+C<ok()> is given an expression (in this case C<$foo eq $bar>).  If it's
+true, the test passed.  If it's false, it didn't.  That's about it.
+
+C<ok()> prints out either "ok" or "not ok" along with a test number (it
+keeps track of that for you).
+
+  # This produces "ok 1 - Hell not yet frozen over" (or not ok)
+  ok( get_temperature($hell) > 0, 'Hell not yet frozen over' );
+
+If you provide a $name, that will be printed along with the "ok/not
+ok" to make it easier to find your test when if fails (just search for
+the name).  It also makes it easier for the next guy to understand
+what your test is for.  It's highly recommended you use test names.
+
+All tests are run in scalar context.  So this:
+
+    ok( @stuff, 'I have some stuff' );
+
+will do what you mean (fail if stuff is empty)
+
+=cut
+
+sub ok ($;$) {    ## no critic (Subroutines::ProhibitSubroutinePrototypes)
+    return $CLASS->builder->ok(@_);
+}
+
+=back
+
+Test::Simple will start by printing number of tests run in the form
+"1..M" (so "1..5" means you're going to run 5 tests).  This strange
+format lets L<Test::Harness> know how many tests you plan on running in
+case something goes horribly wrong.
+
+If all your tests passed, Test::Simple will exit with zero (which is
+normal).  If anything failed it will exit with how many failed.  If
+you run less (or more) tests than you planned, the missing (or extras)
+will be considered failures.  If no tests were ever run Test::Simple
+will throw a warning and exit with 255.  If the test died, even after
+having successfully completed all its tests, it will still be
+considered a failure and will exit with 255.
+
+So the exit codes are...
+
+    0                   all tests successful
+    255                 test died or all passed but wrong # of tests run
+    any other number    how many failed (including missing or extras)
+
+If you fail more than 254 tests, it will be reported as 254.
+
+This module is by no means trying to be a complete testing system.
+It's just to get you started.  Once you're off the ground its
+recommended you look at L<Test::More>.
+
+
+=head1 EXAMPLE
+
+Here's an example of a simple .t file for the fictional Film module.
+
+    use Test::Simple tests => 5;
+
+    use Film;  # What you're testing.
+
+    my $btaste = Film->new({ Title    => 'Bad Taste',
+                             Director => 'Peter Jackson',
+                             Rating   => 'R',
+                             NumExplodingSheep => 1
+                           });
+    ok( defined($btaste) && ref $btaste eq 'Film',     'new() works' );
+
+    ok( $btaste->Title      eq 'Bad Taste',     'Title() get'    );
+    ok( $btaste->Director   eq 'Peter Jackson', 'Director() get' );
+    ok( $btaste->Rating     eq 'R',             'Rating() get'   );
+    ok( $btaste->NumExplodingSheep == 1,        'NumExplodingSheep() get' );
+
+It will produce output like this:
+
+    1..5
+    ok 1 - new() works
+    ok 2 - Title() get
+    ok 3 - Director() get
+    not ok 4 - Rating() get
+    #   Failed test 'Rating() get'
+    #   in t/film.t at line 14.
+    ok 5 - NumExplodingSheep() get
+    # Looks like you failed 1 tests of 5
+
+Indicating the Film::Rating() method is broken.
+
+
+=head1 CAVEATS
+
+Test::Simple will only report a maximum of 254 failures in its exit
+code.  If this is a problem, you probably have a huge test script.
+Split it into multiple files.  (Otherwise blame the Unix folks for
+using an unsigned short integer as the exit status).
+
+Because VMS's exit codes are much, much different than the rest of the
+universe, and perl does horrible mangling to them that gets in my way,
+it works like this on VMS.
+
+    0     SS$_NORMAL        all tests successful
+    4     SS$_ABORT         something went wrong
+
+Unfortunately, I can't differentiate any further.
+
+
+=head1 NOTES
+
+Test::Simple is B<explicitly> tested all the way back to perl 5.6.0.
+
+Test::Simple is thread-safe in perl 5.8.1 and up.
+
+=head1 HISTORY
+
+This module was conceived while talking with Tony Bowden in his
+kitchen one night about the problems I was having writing some really
+complicated feature into the new Testing module.  He observed that the
+main problem is not dealing with these edge cases but that people hate
+to write tests B<at all>.  What was needed was a dead simple module
+that took all the hard work out of testing and was really, really easy
+to learn.  Paul Johnson simultaneously had this idea (unfortunately,
+he wasn't in Tony's kitchen).  This is it.
+
+
+=head1 SEE ALSO
+
+=over 4
+
+=item L<Test::More>
+
+More testing functions!  Once you outgrow Test::Simple, look at
+L<Test::More>.  Test::Simple is 100% forward compatible with L<Test::More>
+(i.e. you can just use L<Test::More> instead of Test::Simple in your
+programs and things will still work).
+
+=back
+
+Look in L<Test::More>'s SEE ALSO for more testing modules.
+
+
+=head1 AUTHORS
+
+Idea by Tony Bowden and Paul Johnson, code by Michael G Schwern
+E<lt>schwern@pobox.comE<gt>, wardrobe by Calvin Klein.
+
+=head1 MAINTAINERS
+
+=over 4
+
+=item Chad Granum E<lt>exodist@cpan.orgE<gt>
+
+=back
+
+=head1 COPYRIGHT
+
+Copyright 2001-2008 by Michael G Schwern E<lt>schwern@pobox.comE<gt>.
+
+This program is free software; you can redistribute it and/or 
+modify it under the same terms as Perl itself.
+
+See F<http://www.perl.com/perl/misc/Artistic.html>
+
+=cut
+
+1;
diff --git a/lib/5.24.1/Test/Tester.pm b/lib/5.24.1/Test/Tester.pm
new file mode 100644
index 00000000..a5f1ccfd
--- /dev/null
+++ b/lib/5.24.1/Test/Tester.pm
@@ -0,0 +1,652 @@
+use strict;
+
+package Test::Tester;
+
+BEGIN
+{
+	if (*Test::Builder::new{CODE})
+	{
+		warn "You should load Test::Tester before Test::Builder (or anything that loads Test::Builder)" 
+	}
+}
+
+use Test::Builder;
+use Test::Tester::CaptureRunner;
+use Test::Tester::Delegate;
+
+require Exporter;
+
+use vars qw( @ISA @EXPORT $VERSION );
+
+$VERSION = "0.114";
+@EXPORT = qw( run_tests check_tests check_test cmp_results show_space );
+@ISA = qw( Exporter );
+
+my $Test = Test::Builder->new;
+my $Capture = Test::Tester::Capture->new;
+my $Delegator = Test::Tester::Delegate->new;
+$Delegator->{Object} = $Test;
+
+my $runner = Test::Tester::CaptureRunner->new;
+
+my $want_space = $ENV{TESTTESTERSPACE};
+
+sub show_space
+{
+	$want_space = 1;
+}
+
+my $colour = '';
+my $reset = '';
+
+if (my $want_colour = $ENV{TESTTESTERCOLOUR} || $ENV{TESTTESTERCOLOUR})
+{
+	if (eval "require Term::ANSIColor")
+	{
+		my ($f, $b) = split(",", $want_colour);
+		$colour = Term::ANSIColor::color($f).Term::ANSIColor::color("on_$b");
+		$reset = Term::ANSIColor::color("reset");
+	}
+
+}
+
+sub new_new
+{
+	return $Delegator;
+}
+
+sub capture
+{
+	return Test::Tester::Capture->new;
+}
+
+sub fh
+{
+	# experiment with capturing output, I don't like it
+	$runner = Test::Tester::FHRunner->new;
+
+	return $Test;
+}
+
+sub find_run_tests
+{
+	my $d = 1;
+	my $found = 0;
+	while ((not $found) and (my ($sub) = (caller($d))[3]) )
+	{
+#		print "$d: $sub\n";
+		$found = ($sub eq "Test::Tester::run_tests");
+		$d++;
+	}
+
+#	die "Didn't find 'run_tests' in caller stack" unless $found;
+	return $d;
+}
+
+sub run_tests
+{
+	local($Delegator->{Object}) = $Capture;
+
+	$runner->run_tests(@_);
+
+	return ($runner->get_premature, $runner->get_results);
+}
+
+sub check_test
+{
+	my $test = shift;
+	my $expect = shift;
+	my $name = shift;
+	$name = "" unless defined($name);
+
+	@_ = ($test, [$expect], $name);
+	goto &check_tests;
+}
+
+sub check_tests
+{
+	my $test = shift;
+	my $expects = shift;
+	my $name = shift;
+	$name = "" unless defined($name);
+
+	my ($prem, @results) = eval { run_tests($test, $name) };
+
+	$Test->ok(! $@, "Test '$name' completed") || $Test->diag($@);
+	$Test->ok(! length($prem), "Test '$name' no premature diagnostication") ||
+		$Test->diag("Before any testing anything, your tests said\n$prem");
+
+	local $Test::Builder::Level = $Test::Builder::Level + 1;
+	cmp_results(\@results, $expects, $name);
+	return ($prem, @results);
+}
+
+sub cmp_field
+{
+	my ($result, $expect, $field, $desc) = @_;
+
+	if (defined $expect->{$field})
+	{
+		$Test->is_eq($result->{$field}, $expect->{$field},
+			"$desc compare $field");
+	}
+}
+
+sub cmp_result
+{
+	my ($result, $expect, $name) = @_;
+
+	my $sub_name = $result->{name};
+	$sub_name = "" unless defined($name);
+
+	my $desc = "subtest '$sub_name' of '$name'";
+
+	{
+		local $Test::Builder::Level = $Test::Builder::Level + 1;
+
+		cmp_field($result, $expect, "ok", $desc);
+
+		cmp_field($result, $expect, "actual_ok", $desc);
+
+		cmp_field($result, $expect, "type", $desc);
+
+		cmp_field($result, $expect, "reason", $desc);
+
+		cmp_field($result, $expect, "name", $desc);
+	}
+
+	# if we got no depth then default to 1
+	my $depth = 1;
+	if (exists $expect->{depth})
+	{
+		$depth = $expect->{depth};
+	}
+
+	# if depth was explicitly undef then don't test it
+	if (defined $depth)
+	{
+		$Test->is_eq($result->{depth}, $depth, "checking depth") ||
+			$Test->diag('You need to change $Test::Builder::Level');
+	}
+
+	if (defined(my $exp = $expect->{diag}))
+	{
+		# if there actually is some diag then put a \n on the end if it's not
+		# there already
+
+		$exp .= "\n" if (length($exp) and $exp !~ /\n$/);
+		if (not $Test->ok($result->{diag} eq $exp,
+			"subtest '$sub_name' of '$name' compare diag")
+		)
+		{
+			my $got = $result->{diag};
+			my $glen = length($got);
+			my $elen = length($exp);
+			for ($got, $exp)
+			{
+				my @lines = split("\n", $_);
+	 			$_ = join("\n", map {
+					if ($want_space)
+					{
+						$_ = $colour.escape($_).$reset;
+					}
+					else
+					{
+						"'$colour$_$reset'"
+					}
+				} @lines);
+			}
+
+			$Test->diag(<<EOM);
+Got diag ($glen bytes):
+$got
+Expected diag ($elen bytes):
+$exp
+EOM
+
+		}
+	}
+}
+
+sub escape
+{
+	my $str = shift;
+	my $res = '';
+	for my $char (split("", $str))
+	{
+		my $c = ord($char);
+		if(($c>32 and $c<125) or $c == 10)
+		{
+			$res .= $char;
+		}
+		else
+		{
+			$res .= sprintf('\x{%x}', $c)
+		}
+	}
+	return $res;
+}
+
+sub cmp_results
+{
+	my ($results, $expects, $name) = @_;
+
+	$Test->is_num(scalar @$results, scalar @$expects, "Test '$name' result count");
+
+	for (my $i = 0; $i < @$expects; $i++)
+	{
+		my $expect = $expects->[$i];
+		my $result = $results->[$i];
+
+		local $Test::Builder::Level = $Test::Builder::Level + 1;
+		cmp_result($result, $expect, $name);
+	}
+}
+
+######## nicked from Test::More
+sub plan {
+	my(@plan) = @_;
+
+	my $caller = caller;
+
+	$Test->exported_to($caller);
+
+	my @imports = ();
+	foreach my $idx (0..$#plan) {
+		if( $plan[$idx] eq 'import' ) {
+			my($tag, $imports) = splice @plan, $idx, 2;
+			@imports = @$imports;
+			last;
+		}
+	}
+
+	$Test->plan(@plan);
+
+	__PACKAGE__->_export_to_level(1, __PACKAGE__, @imports);
+}
+
+sub import {
+	my($class) = shift;
+		{
+			no warnings 'redefine';
+			*Test::Builder::new = \&new_new;
+		}
+	goto &plan;
+}
+
+sub _export_to_level
+{
+        my $pkg = shift;
+	my $level = shift;
+	(undef) = shift;	# redundant arg
+	my $callpkg = caller($level);
+	$pkg->export($callpkg, @_);
+}
+
+
+############
+
+1;
+
+__END__
+
+=head1 NAME
+
+Test::Tester - Ease testing test modules built with Test::Builder
+
+=head1 SYNOPSIS
+
+  use Test::Tester tests => 6;
+
+  use Test::MyStyle;
+
+  check_test(
+    sub {
+      is_mystyle_eq("this", "that", "not eq");
+    },
+    {
+      ok => 0, # expect this to fail
+      name => "not eq",
+      diag => "Expected: 'this'\nGot: 'that'",
+    }
+  );
+
+or
+
+  use Test::Tester;
+
+  use Test::More tests => 3;
+  use Test::MyStyle;
+
+  my ($premature, @results) = run_tests(
+    sub {
+      is_database_alive("dbname");
+    }
+  );
+
+  # now use Test::More::like to check the diagnostic output
+
+  like($results[0]->{diag}, "/^Database ping took \\d+ seconds$"/, "diag");
+
+=head1 DESCRIPTION
+
+If you have written a test module based on Test::Builder then Test::Tester
+allows you to test it with the minimum of effort.
+
+=head1 HOW TO USE (THE EASY WAY)
+
+From version 0.08 Test::Tester no longer requires you to included anything
+special in your test modules. All you need to do is
+
+  use Test::Tester;
+
+in your test script B<before> any other Test::Builder based modules and away
+you go.
+
+Other modules based on Test::Builder can be used to help with the
+testing.  In fact you can even use functions from your module to test
+other functions from the same module (while this is possible it is
+probably not a good idea, if your module has bugs, then
+using it to test itself may give the wrong answers).
+
+The easiest way to test is to do something like
+
+  check_test(
+    sub { is_mystyle_eq("this", "that", "not eq") },
+    {
+      ok => 0, # we expect the test to fail
+      name => "not eq",
+      diag => "Expected: 'this'\nGot: 'that'",
+    }
+  );
+
+this will execute the is_mystyle_eq test, capturing it's results and
+checking that they are what was expected.
+
+You may need to examine the test results in a more flexible way, for
+example, the diagnostic output may be quite long or complex or it may involve
+something that you cannot predict in advance like a timestamp. In this case
+you can get direct access to the test results:
+
+  my ($premature, @results) = run_tests(
+    sub {
+      is_database_alive("dbname");
+    }
+  );
+
+  like($result[0]->{diag}, "/^Database ping took \\d+ seconds$"/, "diag");
+
+
+We cannot predict how long the database ping will take so we use
+Test::More's like() test to check that the diagnostic string is of the right
+form.
+
+=head1 HOW TO USE (THE HARD WAY)
+
+I<This is here for backwards compatibility only>
+
+Make your module use the Test::Tester::Capture object instead of the
+Test::Builder one. How to do this depends on your module but assuming that
+your module holds the Test::Builder object in $Test and that all your test
+routines access it through $Test then providing a function something like this
+
+  sub set_builder
+  {
+    $Test = shift;
+  }
+
+should allow your test scripts to do
+
+  Test::YourModule::set_builder(Test::Tester->capture);
+
+and after that any tests inside your module will captured.
+
+=head1 TEST RESULTS
+
+The result of each test is captured in a hash. These hashes are the same as
+the hashes returned by Test::Builder->details but with a couple of extra
+fields.
+
+These fields are documented in L<Test::Builder> in the details() function
+
+=over 2
+
+=item ok
+
+Did the test pass?
+
+=item actual_ok
+
+Did the test really pass? That is, did the pass come from
+Test::Builder->ok() or did it pass because it was a TODO test?
+
+=item name
+
+The name supplied for the test.
+
+=item type
+
+What kind of test? Possibilities include, skip, todo etc. See
+L<Test::Builder> for more details.
+
+=item reason
+
+The reason for the skip, todo etc. See L<Test::Builder> for more details.
+
+=back
+
+These fields are exclusive to Test::Tester.
+
+=over 2
+
+=item diag
+
+Any diagnostics that were output for the test. This only includes
+diagnostics output B<after> the test result is declared.
+
+Note that Test::Builder ensures that any diagnostics end in a \n and
+it in earlier versions of Test::Tester it was essential that you have
+the final \n in your expected diagnostics. From version 0.10 onwards,
+Test::Tester will add the \n if you forgot it. It will not add a \n if
+you are expecting no diagnostics. See below for help tracking down
+hard to find space and tab related problems.
+
+=item depth
+
+This allows you to check that your test module is setting the correct value
+for $Test::Builder::Level and thus giving the correct file and line number
+when a test fails. It is calculated by looking at caller() and
+$Test::Builder::Level. It should count how many subroutines there are before
+jumping into the function you are testing. So for example in
+
+  run_tests( sub { my_test_function("a", "b") } );
+
+the depth should be 1 and in
+
+  sub deeper { my_test_function("a", "b") }
+
+  run_tests(sub { deeper() });
+
+depth should be 2, that is 1 for the sub {} and one for deeper(). This
+might seem a little complex but if your tests look like the simple
+examples in this doc then you don't need to worry as the depth will
+always be 1 and that's what Test::Tester expects by default.
+
+B<Note>: if you do not specify a value for depth in check_test() then it
+automatically compares it against 1, if you really want to skip the depth
+test then pass in undef.
+
+B<Note>: depth will not be correctly calculated for tests that run from a
+signal handler or an END block or anywhere else that hides the call stack.
+
+=back
+
+Some of Test::Tester's functions return arrays of these hashes, just
+like Test::Builder->details. That is, the hash for the first test will
+be array element 1 (not 0). Element 0 will not be a hash it will be a
+string which contains any diagnostic output that came before the first
+test. This should usually be empty, if it's not, it means something
+output diagnostics before any test results showed up.
+
+=head1 SPACES AND TABS
+
+Appearances can be deceptive, especially when it comes to emptiness. If you
+are scratching your head trying to work out why Test::Tester is saying that
+your diagnostics are wrong when they look perfectly right then the answer is
+probably whitespace. From version 0.10 on, Test::Tester surrounds the
+expected and got diag values with single quotes to make it easier to spot
+trailing whitesapce. So in this example
+
+  # Got diag (5 bytes):
+  # 'abcd '
+  # Expected diag (4 bytes):
+  # 'abcd'
+
+it is quite clear that there is a space at the end of the first string.
+Another way to solve this problem is to use colour and inverse video on an
+ANSI terminal, see below COLOUR below if you want this.
+
+Unfortunately this is sometimes not enough, neither colour nor quotes will
+help you with problems involving tabs, other non-printing characters and
+certain kinds of problems inherent in Unicode. To deal with this, you can
+switch Test::Tester into a mode whereby all "tricky" characters are shown as
+\{xx}. Tricky characters are those with ASCII code less than 33 or higher
+than 126. This makes the output more difficult to read but much easier to
+find subtle differences between strings. To turn on this mode either call
+show_space() in your test script or set the TESTTESTERSPACE environment
+variable to be a true value. The example above would then look like
+
+  # Got diag (5 bytes):
+  # abcd\x{20}
+  # Expected diag (4 bytes):
+  # abcd
+
+=head1 COLOUR
+
+If you prefer to use colour as a means of finding tricky whitespace
+characters then you can set the TESTTESTCOLOUR environment variable to a
+comma separated pair of colours, the first for the foreground, the second
+for the background. For example "white,red" will print white text on a red
+background. This requires the Term::ANSIColor module. You can specify any
+colour that would be acceptable to the Term::ANSIColor::color function.
+
+If you spell colour differently, that's no problem. The TESTTESTERCOLOR
+variable also works (if both are set then the British spelling wins out).
+
+=head1 EXPORTED FUNCTIONS
+
+=head3 ($premature, @results) = run_tests(\&test_sub)
+
+\&test_sub is a reference to a subroutine.
+
+run_tests runs the subroutine in $test_sub and captures the results of any
+tests inside it. You can run more than 1 test inside this subroutine if you
+like.
+
+$premature is a string containing any diagnostic output from before
+the first test.
+
+@results is an array of test result hashes.
+
+=head3 cmp_result(\%result, \%expect, $name)
+
+\%result is a ref to a test result hash.
+
+\%expect is a ref to a hash of expected values for the test result.
+
+cmp_result compares the result with the expected values. If any differences
+are found it outputs diagnostics. You may leave out any field from the
+expected result and cmp_result will not do the comparison of that field.
+
+=head3 cmp_results(\@results, \@expects, $name)
+
+\@results is a ref to an array of test results.
+
+\@expects is a ref to an array of hash refs.
+
+cmp_results checks that the results match the expected results and if any
+differences are found it outputs diagnostics. It first checks that the
+number of elements in \@results and \@expects is the same. Then it goes
+through each result checking it against the expected result as in
+cmp_result() above.
+
+=head3 ($premature, @results) = check_tests(\&test_sub, \@expects, $name)
+
+\&test_sub is a reference to a subroutine.
+
+\@expect is a ref to an array of hash refs which are expected test results.
+
+check_tests combines run_tests and cmp_tests into a single call. It also
+checks if the tests died at any stage.
+
+It returns the same values as run_tests, so you can further examine the test
+results if you need to.
+
+=head3 ($premature, @results) = check_test(\&test_sub, \%expect, $name)
+
+\&test_sub is a reference to a subroutine.
+
+\%expect is a ref to an hash of expected values for the test result.
+
+check_test is a wrapper around check_tests. It combines run_tests and
+cmp_tests into a single call, checking if the test died. It assumes
+that only a single test is run inside \&test_sub and include a test to
+make sure this is true.
+
+It returns the same values as run_tests, so you can further examine the test
+results if you need to.
+
+=head3 show_space()
+
+Turn on the escaping of characters as described in the SPACES AND TABS
+section.
+
+=head1 HOW IT WORKS
+
+Normally, a test module (let's call it Test:MyStyle) calls
+Test::Builder->new to get the Test::Builder object. Test::MyStyle calls
+methods on this object to record information about test results. When
+Test::Tester is loaded, it replaces Test::Builder's new() method with one
+which returns a Test::Tester::Delegate object. Most of the time this object
+behaves as the real Test::Builder object. Any methods that are called are
+delegated to the real Test::Builder object so everything works perfectly.
+However once we go into test mode, the method calls are no longer passed to
+the real Test::Builder object, instead they go to the Test::Tester::Capture
+object. This object seems exactly like the real Test::Builder object,
+except, instead of outputting test results and diagnostics, it just records
+all the information for later analysis.
+
+=head1 CAVEATS
+
+Support for calling Test::Builder->note is minimal. It's implemented
+as an empty stub, so modules that use it will not crash but the calls
+are not recorded for testing purposes like the others. Patches
+welcome.
+
+=head1 SEE ALSO
+
+L<Test::Builder> the source of testing goodness. L<Test::Builder::Tester>
+for an alternative approach to the problem tackled by Test::Tester -
+captures the strings output by Test::Builder. This means you cannot get
+separate access to the individual pieces of information and you must predict
+B<exactly> what your test will output.
+
+=head1 AUTHOR
+
+This module is copyright 2005 Fergal Daly <fergal@esatclear.ie>, some parts
+are based on other people's work.
+
+Plan handling lifted from Test::More. written by Michael G Schwern
+<schwern@pobox.com>.
+
+Test::Tester::Capture is a cut down and hacked up version of Test::Builder.
+Test::Builder was written by chromatic <chromatic@wgz.org> and Michael G
+Schwern <schwern@pobox.com>.
+
+=head1 LICENSE
+
+Under the same license as Perl itself
+
+See http://www.perl.com/perl/misc/Artistic.html
+
+=cut
diff --git a/lib/5.24.1/Test/Tester/Capture.pm b/lib/5.24.1/Test/Tester/Capture.pm
new file mode 100644
index 00000000..00e12e64
--- /dev/null
+++ b/lib/5.24.1/Test/Tester/Capture.pm
@@ -0,0 +1,231 @@
+use strict;
+
+package Test::Tester::Capture;
+
+use Test::Builder;
+
+use vars qw( @ISA );
+@ISA = qw( Test::Builder );
+
+# Make Test::Tester::Capture thread-safe for ithreads.
+BEGIN {
+	use Config;
+	if( $] >= 5.008 && $Config{useithreads} ) {
+		require threads::shared;
+		threads::shared->import;
+	}
+	else {
+		*share = sub { 0 };
+		*lock  = sub { 0 };
+	}
+}
+
+my $Curr_Test = 0;      share($Curr_Test);
+my @Test_Results = ();  share(@Test_Results);
+my $Prem_Diag = {diag => ""};	 share($Curr_Test);
+
+sub new
+{
+  # Test::Tester::Capgture::new used to just return __PACKAGE__
+  # because Test::Builder::new enforced it's singleton nature by
+  # return __PACKAGE__. That has since changed, Test::Builder::new now
+  # returns a blessed has and around version 0.78, Test::Builder::todo
+  # started wanting to modify $self. To cope with this, we now return
+  # a blessed hash. This is a short-term hack, the correct thing to do
+  # is to detect which style of Test::Builder we're dealing with and
+  # act appropriately.
+
+  my $class = shift;
+  return bless {}, $class;
+}
+
+sub ok {
+	my($self, $test, $name) = @_;
+
+	# $test might contain an object which we don't want to accidentally
+	# store, so we turn it into a boolean.
+	$test = $test ? 1 : 0;
+
+	lock $Curr_Test;
+	$Curr_Test++;
+
+	my($pack, $file, $line) = $self->caller;
+
+	my $todo = $self->todo($pack);
+
+	my $result = {};
+	share($result);
+
+	unless( $test ) {
+		@$result{ 'ok', 'actual_ok' } = ( ( $todo ? 1 : 0 ), 0 );
+	}
+	else {
+		@$result{ 'ok', 'actual_ok' } = ( 1, $test );
+	}
+
+	if( defined $name ) {
+		$name =~ s|#|\\#|g;	 # # in a name can confuse Test::Harness.
+		$result->{name} = $name;
+	}
+	else {
+		$result->{name} = '';
+	}
+
+	if( $todo ) {
+		my $what_todo = $todo;
+		$result->{reason} = $what_todo;
+		$result->{type}   = 'todo';
+	}
+	else {
+		$result->{reason} = '';
+		$result->{type}   = '';
+	}
+
+	$Test_Results[$Curr_Test-1] = $result;
+
+	unless( $test ) {
+		my $msg = $todo ? "Failed (TODO)" : "Failed";
+		$result->{fail_diag} = ("	$msg test ($file at line $line)\n");
+	} 
+
+	$result->{diag} = "";
+	$result->{_level} = $Test::Builder::Level;
+	$result->{_depth} = Test::Tester::find_run_tests();
+
+	return $test ? 1 : 0;
+}
+
+sub skip {
+	my($self, $why) = @_;
+	$why ||= '';
+
+	lock($Curr_Test);
+	$Curr_Test++;
+
+	my %result;
+	share(%result);
+	%result = (
+		'ok'	  => 1,
+		actual_ok => 1,
+		name	  => '',
+		type	  => 'skip',
+		reason	=> $why,
+		diag    => "",
+		_level   => $Test::Builder::Level,
+		_depth => Test::Tester::find_run_tests(),
+	);
+	$Test_Results[$Curr_Test-1] = \%result;
+
+	return 1;
+}
+
+sub todo_skip {
+	my($self, $why) = @_;
+	$why ||= '';
+
+	lock($Curr_Test);
+	$Curr_Test++;
+
+	my %result;
+	share(%result);
+	%result = (
+		'ok'	  => 1,
+		actual_ok => 0,
+		name	  => '',
+		type	  => 'todo_skip',
+		reason	=> $why,
+		diag    => "",
+		_level   => $Test::Builder::Level,
+		_depth => Test::Tester::find_run_tests(),
+	);
+
+	$Test_Results[$Curr_Test-1] = \%result;
+
+	return 1;
+}
+
+sub diag {
+	my($self, @msgs) = @_;
+	return unless @msgs;
+
+	# Prevent printing headers when compiling (i.e. -c)
+	return if $^C;
+
+	# Escape each line with a #.
+	foreach (@msgs) {
+		$_ = 'undef' unless defined;
+	}
+
+	push @msgs, "\n" unless $msgs[-1] =~ /\n\Z/;
+
+	my $result = $Curr_Test ? $Test_Results[$Curr_Test - 1] : $Prem_Diag;
+
+	$result->{diag} .= join("", @msgs);
+
+	return 0;
+}
+
+sub details {
+	return @Test_Results;
+}
+
+
+# Stub. Feel free to send me a patch to implement this.
+sub note {
+}
+
+sub explain {
+	return Test::Builder::explain(@_);
+}
+
+sub premature
+{
+	return $Prem_Diag->{diag};
+}
+
+sub current_test
+{
+	if (@_ > 1)
+	{
+		die "Don't try to change the test number!";
+	}
+	else
+	{
+		return $Curr_Test;
+	}
+}
+
+sub reset
+{
+	$Curr_Test = 0;
+	@Test_Results = ();
+	$Prem_Diag = {diag => ""};
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+Test::Tester::Capture - Help testing test modules built with Test::Builder
+
+=head1 DESCRIPTION
+
+This is a subclass of Test::Builder that overrides many of the methods so
+that they don't output anything. It also keeps track of it's own set of test
+results so that you can use Test::Builder based modules to perform tests on
+other Test::Builder based modules.
+
+=head1 AUTHOR
+
+Most of the code here was lifted straight from Test::Builder and then had
+chunks removed by Fergal Daly <fergal@esatclear.ie>.
+
+=head1 LICENSE
+
+Under the same license as Perl itself
+
+See http://www.perl.com/perl/misc/Artistic.html
+
+=cut
diff --git a/lib/5.24.1/Test/Tester/CaptureRunner.pm b/lib/5.24.1/Test/Tester/CaptureRunner.pm
new file mode 100644
index 00000000..f14a4c14
--- /dev/null
+++ b/lib/5.24.1/Test/Tester/CaptureRunner.pm
@@ -0,0 +1,76 @@
+# $Header: /home/fergal/my/cvs/Test-Tester/lib/Test/Tester/CaptureRunner.pm,v 1.3 2003/03/05 01:07:55 fergal Exp $
+use strict;
+
+package Test::Tester::CaptureRunner;
+
+use Test::Tester::Capture;
+require Exporter;
+
+sub new
+{
+	my $pkg = shift;
+	my $self = bless {}, $pkg;
+	return $self;
+}
+
+sub run_tests
+{
+	my $self = shift;
+
+	my $test = shift;
+
+	capture()->reset;
+
+	$self->{StartLevel} = $Test::Builder::Level;
+	&$test();
+}
+
+sub get_results
+{
+	my $self = shift;
+	my @results = capture()->details;
+
+	my $start = $self->{StartLevel};
+	foreach my $res (@results)
+	{
+		next if defined $res->{depth};
+		my $depth = $res->{_depth} - $res->{_level} - $start - 3;
+#		print "my $depth = $res->{_depth} - $res->{_level} - $start - 1\n";
+		$res->{depth} = $depth;
+	}
+
+	return @results;
+}
+
+sub get_premature
+{
+	return capture()->premature;
+}
+
+sub capture
+{
+	return Test::Tester::Capture->new;
+}
+
+__END__
+
+=head1 NAME
+
+Test::Tester::CaptureRunner - Help testing test modules built with Test::Builder
+
+=head1 DESCRIPTION
+
+This stuff if needed to allow me to play with other ways of monitoring the
+test results.
+
+=head1 AUTHOR
+
+Copyright 2003 by Fergal Daly <fergal@esatclear.ie>.
+
+=head1 LICENSE
+
+Under the same license as Perl itself
+
+See http://www.perl.com/perl/misc/Artistic.html
+
+=cut
diff --git a/lib/5.24.1/Test/Tester/Delegate.pm b/lib/5.24.1/Test/Tester/Delegate.pm
new file mode 100644
index 00000000..7ddb921c
--- /dev/null
+++ b/lib/5.24.1/Test/Tester/Delegate.pm
@@ -0,0 +1,32 @@
+use strict;
+use warnings;
+
+package Test::Tester::Delegate;
+
+use vars '$AUTOLOAD';
+
+sub new
+{
+	my $pkg = shift;
+
+	my $obj = shift;
+	my $self = bless {}, $pkg;
+
+	return $self;
+}
+
+sub AUTOLOAD
+{
+	my ($sub) = $AUTOLOAD =~ /.*::(.*?)$/;
+
+	return if $sub eq "DESTROY";
+
+	my $obj = $_[0]->{Object};
+
+	my $ref = $obj->can($sub);
+	shift(@_);
+	unshift(@_, $obj);
+	goto &$ref;
+}
+
+1;
diff --git a/lib/5.24.1/Test/Tutorial.pod b/lib/5.24.1/Test/Tutorial.pod
new file mode 100644
index 00000000..a71a9c1b
--- /dev/null
+++ b/lib/5.24.1/Test/Tutorial.pod
@@ -0,0 +1,618 @@
+=head1 NAME
+
+Test::Tutorial - A tutorial about writing really basic tests
+
+=head1 DESCRIPTION
+
+
+I<AHHHHHHH!!!!  NOT TESTING!  Anything but testing!
+Beat me, whip me, send me to Detroit, but don't make
+me write tests!>
+
+I<*sob*>
+
+I<Besides, I don't know how to write the damned things.>
+
+
+Is this you?  Is writing tests right up there with writing
+documentation and having your fingernails pulled out?  Did you open up
+a test and read
+
+    ######## We start with some black magic
+
+and decide that's quite enough for you?
+
+It's ok.  That's all gone now.  We've done all the black magic for
+you.  And here are the tricks...
+
+
+=head2 Nuts and bolts of testing.
+
+Here's the most basic test program.
+
+    #!/usr/bin/perl -w
+
+    print "1..1\n";
+
+    print 1 + 1 == 2 ? "ok 1\n" : "not ok 1\n";
+
+Because 1 + 1 is 2, it prints:
+
+    1..1
+    ok 1
+
+What this says is: C<1..1> "I'm going to run one test." [1] C<ok 1>
+"The first test passed".  And that's about all magic there is to
+testing.  Your basic unit of testing is the I<ok>.  For each thing you
+test, an C<ok> is printed.  Simple.  L<Test::Harness> interprets your test
+results to determine if you succeeded or failed (more on that later).
+
+Writing all these print statements rapidly gets tedious.  Fortunately,
+there's L<Test::Simple>.  It has one function, C<ok()>.
+
+    #!/usr/bin/perl -w
+
+    use Test::Simple tests => 1;
+
+    ok( 1 + 1 == 2 );
+
+That does the same thing as the previous code.  C<ok()> is the backbone
+of Perl testing, and we'll be using it instead of roll-your-own from
+here on.  If C<ok()> gets a true value, the test passes.  False, it
+fails.
+
+    #!/usr/bin/perl -w
+
+    use Test::Simple tests => 2;
+    ok( 1 + 1 == 2 );
+    ok( 2 + 2 == 5 );
+
+From that comes:
+
+    1..2
+    ok 1
+    not ok 2
+    #     Failed test (test.pl at line 5)
+    # Looks like you failed 1 tests of 2.
+
+C<1..2> "I'm going to run two tests."  This number is a I<plan>. It helps to
+ensure your test program ran all the way through and didn't die or skip some
+tests.  C<ok 1> "The first test passed."  C<not ok 2> "The second test failed".
+Test::Simple helpfully prints out some extra commentary about your tests.
+
+It's not scary.  Come, hold my hand.  We're going to give an example
+of testing a module.  For our example, we'll be testing a date
+library, L<Date::ICal>.  It's on CPAN, so download a copy and follow
+along. [2]
+
+
+=head2 Where to start?
+
+This is the hardest part of testing, where do you start?  People often get
+overwhelmed at the apparent enormity of the task of testing a whole module.
+The best place to start is at the beginning.  L<Date::ICal> is an
+object-oriented module, and that means you start by making an object.  Test
+C<new()>.
+
+    #!/usr/bin/perl -w
+
+    # assume these two lines are in all subsequent examples
+    use strict;
+    use warnings;
+
+    use Test::Simple tests => 2;
+
+    use Date::ICal;
+
+    my $ical = Date::ICal->new;         # create an object
+    ok( defined $ical );                # check that we got something
+    ok( $ical->isa('Date::ICal') );     # and it's the right class
+
+Run that and you should get:
+
+    1..2
+    ok 1
+    ok 2
+
+Congratulations! You've written your first useful test.
+
+
+=head2 Names
+
+That output isn't terribly descriptive, is it?  When you have two tests you can
+figure out which one is #2, but what if you have 102 tests?
+
+Each test can be given a little descriptive name as the second
+argument to C<ok()>.
+
+    use Test::Simple tests => 2;
+
+    ok( defined $ical,              'new() returned something' );
+    ok( $ical->isa('Date::ICal'),   "  and it's the right class" );
+
+Now you'll see:
+
+    1..2
+    ok 1 - new() returned something
+    ok 2 -   and it's the right class
+
+
+=head2 Test the manual
+
+The simplest way to build up a decent testing suite is to just test what
+the manual says it does. [3] Let's pull something out of the
+L<Date::ICal/SYNOPSIS> and test that all its bits work.
+
+    #!/usr/bin/perl -w
+
+    use Test::Simple tests => 8;
+
+    use Date::ICal;
+
+    $ical = Date::ICal->new( year => 1964, month => 10, day => 16,
+                             hour => 16,   min   => 12, sec => 47,
+                             tz   => '0530' );
+
+    ok( defined $ical,            'new() returned something' );
+    ok( $ical->isa('Date::ICal'), "  and it's the right class" );
+    ok( $ical->sec   == 47,       '  sec()'   );
+    ok( $ical->min   == 12,       '  min()'   );
+    ok( $ical->hour  == 16,       '  hour()'  );
+    ok( $ical->day   == 17,       '  day()'   );
+    ok( $ical->month == 10,       '  month()' );
+    ok( $ical->year  == 1964,     '  year()'  );
+
+Run that and you get:
+
+    1..8
+    ok 1 - new() returned something
+    ok 2 -   and it's the right class
+    ok 3 -   sec()
+    ok 4 -   min()
+    ok 5 -   hour()
+    not ok 6 -   day()
+    #     Failed test (- at line 16)
+    ok 7 -   month()
+    ok 8 -   year()
+    # Looks like you failed 1 tests of 8.
+
+Whoops, a failure! [4] L<Test::Simple> helpfully lets us know on what line the
+failure occurred, but not much else.  We were supposed to get 17, but we
+didn't.  What did we get??  Dunno.  You could re-run the test in the debugger
+or throw in some print statements to find out.
+
+Instead, switch from L<Test::Simple> to L<Test::More>.  L<Test::More>
+does everything L<Test::Simple> does, and more!  In fact, L<Test::More> does
+things I<exactly> the way L<Test::Simple> does.  You can literally swap
+L<Test::Simple> out and put L<Test::More> in its place.  That's just what
+we're going to do.
+
+L<Test::More> does more than L<Test::Simple>.  The most important difference at
+this point is it provides more informative ways to say "ok".  Although you can
+write almost any test with a generic C<ok()>, it can't tell you what went
+wrong.  The C<is()> function lets us declare that something is supposed to be
+the same as something else:
+
+    use Test::More tests => 8;
+
+    use Date::ICal;
+
+    $ical = Date::ICal->new( year => 1964, month => 10, day => 16,
+                             hour => 16,   min   => 12, sec => 47,
+                             tz   => '0530' );
+
+    ok( defined $ical,            'new() returned something' );
+    ok( $ical->isa('Date::ICal'), "  and it's the right class" );
+    is( $ical->sec,     47,       '  sec()'   );
+    is( $ical->min,     12,       '  min()'   );
+    is( $ical->hour,    16,       '  hour()'  );
+    is( $ical->day,     17,       '  day()'   );
+    is( $ical->month,   10,       '  month()' );
+    is( $ical->year,    1964,     '  year()'  );
+
+"Is C<< $ical->sec >> 47?"  "Is C<< $ical->min >> 12?"  With C<is()> in place,
+you get more information:
+
+    1..8
+    ok 1 - new() returned something
+    ok 2 -   and it's the right class
+    ok 3 -   sec()
+    ok 4 -   min()
+    ok 5 -   hour()
+    not ok 6 -   day()
+    #     Failed test (- at line 16)
+    #          got: '16'
+    #     expected: '17'
+    ok 7 -   month()
+    ok 8 -   year()
+    # Looks like you failed 1 tests of 8.
+
+Aha. C<< $ical->day >> returned 16, but we expected 17.  A
+quick check shows that the code is working fine, we made a mistake
+when writing the tests.  Change it to:
+
+    is( $ical->day,     16,       '  day()'   );
+
+... and everything works.
+
+Any time you're doing a "this equals that" sort of test, use C<is()>.
+It even works on arrays.  The test is always in scalar context, so you
+can test how many elements are in an array this way. [5]
+
+    is( @foo, 5, 'foo has 5 elements' );
+
+
+=head2 Sometimes the tests are wrong
+
+This brings up a very important lesson.  Code has bugs.  Tests are
+code.  Ergo, tests have bugs.  A failing test could mean a bug in the
+code, but don't discount the possibility that the test is wrong.
+
+On the flip side, don't be tempted to prematurely declare a test
+incorrect just because you're having trouble finding the bug.
+Invalidating a test isn't something to be taken lightly, and don't use
+it as a cop out to avoid work.
+
+
+=head2 Testing lots of values
+
+We're going to be wanting to test a lot of dates here, trying to trick
+the code with lots of different edge cases.  Does it work before 1970?
+After 2038?  Before 1904?  Do years after 10,000 give it trouble?
+Does it get leap years right?  We could keep repeating the code above,
+or we could set up a little try/expect loop.
+
+    use Test::More tests => 32;
+    use Date::ICal;
+
+    my %ICal_Dates = (
+            # An ICal string     And the year, month, day
+            #                    hour, minute and second we expect.
+            '19971024T120000' =>    # from the docs.
+                                [ 1997, 10, 24, 12,  0,  0 ],
+            '20390123T232832' =>    # after the Unix epoch
+                                [ 2039,  1, 23, 23, 28, 32 ],
+            '19671225T000000' =>    # before the Unix epoch
+                                [ 1967, 12, 25,  0,  0,  0 ],
+            '18990505T232323' =>    # before the MacOS epoch
+                                [ 1899,  5,  5, 23, 23, 23 ],
+    );
+
+
+    while( my($ical_str, $expect) = each %ICal_Dates ) {
+        my $ical = Date::ICal->new( ical => $ical_str );
+
+        ok( defined $ical,            "new(ical => '$ical_str')" );
+        ok( $ical->isa('Date::ICal'), "  and it's the right class" );
+
+        is( $ical->year,    $expect->[0],     '  year()'  );
+        is( $ical->month,   $expect->[1],     '  month()' );
+        is( $ical->day,     $expect->[2],     '  day()'   );
+        is( $ical->hour,    $expect->[3],     '  hour()'  );
+        is( $ical->min,     $expect->[4],     '  min()'   );
+        is( $ical->sec,     $expect->[5],     '  sec()'   );
+    }
+
+Now we can test bunches of dates by just adding them to
+C<%ICal_Dates>.  Now that it's less work to test with more dates, you'll
+be inclined to just throw more in as you think of them.
+Only problem is, every time we add to that we have to keep adjusting
+the L<< use Test::More tests => ## >> line.  That can rapidly get
+annoying.  There are ways to make this work better.
+
+First, we can calculate the plan dynamically using the C<plan()>
+function.
+
+    use Test::More;
+    use Date::ICal;
+
+    my %ICal_Dates = (
+        ...same as before...
+    );
+
+    # For each key in the hash we're running 8 tests.
+    plan tests => keys(%ICal_Dates) * 8;
+
+    ...and then your tests...
+
+To be even more flexible, use C<done_testing>.  This means we're just
+running some tests, don't know how many. [6]
+
+    use Test::More;   # instead of tests => 32
+
+    ... # tests here
+
+    done_testing();   # reached the end safely
+
+If you don't specify a plan, L<Test::More> expects to see C<done_testing()>
+before your program exits. It will warn you if you forget it. You can give
+C<done_testing()> an optional number of tests you expected to run, and if the
+number ran differs, L<Test::More> will give you another kind of warning.
+
+
+=head2 Informative names
+
+Take a look at the line:
+
+    ok( defined $ical,            "new(ical => '$ical_str')" );
+
+We've added more detail about what we're testing and the ICal string
+itself we're trying out to the name.  So you get results like:
+
+    ok 25 - new(ical => '19971024T120000')
+    ok 26 -   and it's the right class
+    ok 27 -   year()
+    ok 28 -   month()
+    ok 29 -   day()
+    ok 30 -   hour()
+    ok 31 -   min()
+    ok 32 -   sec()
+
+If something in there fails, you'll know which one it was and that
+will make tracking down the problem easier.  Try to put a bit of
+debugging information into the test names.
+
+Describe what the tests test, to make debugging a failed test easier
+for you or for the next person who runs your test.
+
+
+=head2 Skipping tests
+
+Poking around in the existing Date::ICal tests, I found this in
+F<t/01sanity.t> [7]
+
+    #!/usr/bin/perl -w
+
+    use Test::More tests => 7;
+    use Date::ICal;
+
+    # Make sure epoch time is being handled sanely.
+    my $t1 = Date::ICal->new( epoch => 0 );
+    is( $t1->epoch, 0,          "Epoch time of 0" );
+
+    # XXX This will only work on unix systems.
+    is( $t1->ical, '19700101Z', "  epoch to ical" );
+
+    is( $t1->year,  1970,       "  year()"  );
+    is( $t1->month, 1,          "  month()" );
+    is( $t1->day,   1,          "  day()"   );
+
+    # like the tests above, but starting with ical instead of epoch
+    my $t2 = Date::ICal->new( ical => '19700101Z' );
+    is( $t2->ical, '19700101Z', "Start of epoch in ICal notation" );
+
+    is( $t2->epoch, 0,          "  and back to ICal" );
+
+The beginning of the epoch is different on most non-Unix operating systems [8].
+Even though Perl smooths out the differences for the most part, certain ports
+do it differently.  MacPerl is one off the top of my head. [9]  Rather than
+putting a comment in the test and hoping someone will read the test while
+debugging the failure, we can explicitly say it's never going to work and skip
+the test.
+
+    use Test::More tests => 7;
+    use Date::ICal;
+
+    # Make sure epoch time is being handled sanely.
+    my $t1 = Date::ICal->new( epoch => 0 );
+    is( $t1->epoch, 0,          "Epoch time of 0" );
+
+    SKIP: {
+        skip('epoch to ICal not working on Mac OS', 6)
+            if $^O eq 'MacOS';
+
+        is( $t1->ical, '19700101Z', "  epoch to ical" );
+
+        is( $t1->year,  1970,       "  year()"  );
+        is( $t1->month, 1,          "  month()" );
+        is( $t1->day,   1,          "  day()"   );
+
+        # like the tests above, but starting with ical instead of epoch
+        my $t2 = Date::ICal->new( ical => '19700101Z' );
+        is( $t2->ical, '19700101Z', "Start of epoch in ICal notation" );
+
+        is( $t2->epoch, 0,          "  and back to ICal" );
+    }
+
+A little bit of magic happens here.  When running on anything but MacOS, all
+the tests run normally.  But when on MacOS, C<skip()> causes the entire
+contents of the SKIP block to be jumped over.  It never runs.  Instead,
+C<skip()> prints special output that tells L<Test::Harness> that the tests have
+been skipped.
+
+    1..7
+    ok 1 - Epoch time of 0
+    ok 2 # skip epoch to ICal not working on MacOS
+    ok 3 # skip epoch to ICal not working on MacOS
+    ok 4 # skip epoch to ICal not working on MacOS
+    ok 5 # skip epoch to ICal not working on MacOS
+    ok 6 # skip epoch to ICal not working on MacOS
+    ok 7 # skip epoch to ICal not working on MacOS
+
+This means your tests won't fail on MacOS.  This means fewer emails
+from MacPerl users telling you about failing tests that you know will
+never work.  You've got to be careful with skip tests.  These are for
+tests which don't work and I<never will>.  It is not for skipping
+genuine bugs (we'll get to that in a moment).
+
+The tests are wholly and completely skipped. [10]  This will work.
+
+    SKIP: {
+        skip("I don't wanna die!");
+
+        die, die, die, die, die;
+    }
+
+
+=head2 Todo tests
+
+While thumbing through the L<Date::ICal> man page, I came across this:
+
+   ical
+
+       $ical_string = $ical->ical;
+
+   Retrieves, or sets, the date on the object, using any
+   valid ICal date/time string.
+
+"Retrieves or sets".  Hmmm. I didn't see a test for using C<ical()> to set
+the date in the Date::ICal test suite.  So I wrote one:
+
+    use Test::More tests => 1;
+    use Date::ICal;
+
+    my $ical = Date::ICal->new;
+    $ical->ical('20201231Z');
+    is( $ical->ical, '20201231Z',   'Setting via ical()' );
+
+Run that. I saw:
+
+    1..1
+    not ok 1 - Setting via ical()
+    #     Failed test (- at line 6)
+    #          got: '20010814T233649Z'
+    #     expected: '20201231Z'
+    # Looks like you failed 1 tests of 1.
+
+Whoops!  Looks like it's unimplemented.  Assume you don't have the time to fix
+this. [11] Normally, you'd just comment out the test and put a note in a todo
+list somewhere.  Instead, explicitly state "this test will fail" by wrapping it
+in a C<TODO> block:
+
+    use Test::More tests => 1;
+
+    TODO: {
+        local $TODO = 'ical($ical) not yet implemented';
+
+        my $ical = Date::ICal->new;
+        $ical->ical('20201231Z');
+
+        is( $ical->ical, '20201231Z',   'Setting via ical()' );
+    }
+
+Now when you run, it's a little different:
+
+    1..1
+    not ok 1 - Setting via ical() # TODO ical($ical) not yet implemented
+    #          got: '20010822T201551Z'
+    #     expected: '20201231Z'
+
+L<Test::More> doesn't say "Looks like you failed 1 tests of 1".  That '#
+TODO' tells L<Test::Harness> "this is supposed to fail" and it treats a
+failure as a successful test.  You can write tests even before
+you've fixed the underlying code.
+
+If a TODO test passes, L<Test::Harness> will report it "UNEXPECTEDLY
+SUCCEEDED".  When that happens, remove the TODO block with C<local $TODO> and
+turn it into a real test.
+
+
+=head2 Testing with taint mode.
+
+Taint mode is a funny thing.  It's the globalest of all global
+features.  Once you turn it on, it affects I<all> code in your program
+and I<all> modules used (and all the modules they use).  If a single
+piece of code isn't taint clean, the whole thing explodes.  With that
+in mind, it's very important to ensure your module works under taint
+mode.
+
+It's very simple to have your tests run under taint mode.  Just throw
+a C<-T> into the C<#!> line.  L<Test::Harness> will read the switches
+in C<#!> and use them to run your tests.
+
+    #!/usr/bin/perl -Tw
+
+    ...test normally here...
+
+When you say C<make test> it will run with taint mode on.
+
+
+=head1 FOOTNOTES
+
+=over 4
+
+=item 1
+
+The first number doesn't really mean anything, but it has to be 1.
+It's the second number that's important.
+
+=item 2
+
+For those following along at home, I'm using version 1.31.  It has
+some bugs, which is good -- we'll uncover them with our tests.
+
+=item 3
+
+You can actually take this one step further and test the manual
+itself.  Have a look at L<Test::Inline> (formerly L<Pod::Tests>).
+
+=item 4
+
+Yes, there's a mistake in the test suite.  What!  Me, contrived?
+
+=item 5
+
+We'll get to testing the contents of lists later.
+
+=item 6
+
+But what happens if your test program dies halfway through?!  Since we
+didn't say how many tests we're going to run, how can we know it
+failed?  No problem, L<Test::More> employs some magic to catch that death
+and turn the test into a failure, even if every test passed up to that
+point.
+
+=item 7
+
+I cleaned it up a little.
+
+=item 8
+
+Most Operating Systems record time as the number of seconds since a
+certain date.  This date is the beginning of the epoch.  Unix's starts
+at midnight January 1st, 1970 GMT.
+
+=item 9
+
+MacOS's epoch is midnight January 1st, 1904.  VMS's is midnight,
+November 17th, 1858, but vmsperl emulates the Unix epoch so it's not a
+problem.
+
+=item 10
+
+As long as the code inside the SKIP block at least compiles.  Please
+don't ask how.  No, it's not a filter.
+
+=item 11
+
+Do NOT be tempted to use TODO tests as a way to avoid fixing simple
+bugs!
+
+=back
+
+=head1 AUTHORS
+
+Michael G Schwern E<lt>schwern@pobox.comE<gt> and the perl-qa dancers!
+
+=head1 MAINTAINERS
+
+=over 4
+
+=item Chad Granum E<lt>exodist@cpan.orgE<gt>
+
+=back
+
+=head1 COPYRIGHT
+
+Copyright 2001 by Michael G Schwern E<lt>schwern@pobox.comE<gt>.
+
+This documentation is free; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+Irrespective of its distribution, all code examples in these files
+are hereby placed into the public domain.  You are permitted and
+encouraged to use this code in your own programs for fun
+or for profit as you see fit.  A simple comment in the code giving
+credit would be courteous but is not required.
+
+=cut
diff --git a/lib/5.24.1/Test/use/ok.pm b/lib/5.24.1/Test/use/ok.pm
new file mode 100644
index 00000000..87d7cc52
--- /dev/null
+++ b/lib/5.24.1/Test/use/ok.pm
@@ -0,0 +1,62 @@
+package Test::use::ok;
+use 5.005;
+$Test::use::ok::VERSION = '0.16';
+
+__END__
+
+=head1 NAME
+
+Test::use::ok - Alternative to Test::More::use_ok
+
+=head1 SYNOPSIS
+
+    use ok 'Some::Module';
+
+=head1 DESCRIPTION
+
+According to the B<Test::More> documentation, it is recommended to run
+C<use_ok()> inside a C<BEGIN> block, so functions are exported at
+compile-time and prototypes are properly honored.
+
+That is, instead of writing this:
+
+    use_ok( 'Some::Module' );
+    use_ok( 'Other::Module' );
+
+One should write this:
+
+    BEGIN { use_ok( 'Some::Module' ); }
+    BEGIN { use_ok( 'Other::Module' ); }
+
+However, people often either forget to add C<BEGIN>, or mistakenly group
+C<use_ok> with other tests in a single C<BEGIN> block, which can create subtle
+differences in execution order.
+
+With this module, simply change all C<use_ok> in test scripts to C<use ok>,
+and they will be executed at C<BEGIN> time.  The explicit space after C<use>
+makes it clear that this is a single compile-time action.
+
+=head1 SEE ALSO
+
+L<Test::More>
+
+=head1 MAINTAINER
+
+=over 4
+
+=item Chad Granum E<lt>exodist@cpan.orgE<gt>
+
+=back
+
+=encoding utf8
+
+=head1 CC0 1.0 Universal
+
+To the extent possible under law, �鳳 has waived all copyright and related
+or neighboring rights to L<Test-use-ok>.
+
+This work is published from Taiwan.
+
+L<http://creativecommons.org/publicdomain/zero/1.0>
+
+=cut
diff --git a/lib/5.24.1/Text/Abbrev.pm b/lib/5.24.1/Text/Abbrev.pm
new file mode 100644
index 00000000..3c179697
--- /dev/null
+++ b/lib/5.24.1/Text/Abbrev.pm
@@ -0,0 +1,84 @@
+package Text::Abbrev;
+require 5.005;		# Probably works on earlier versions too.
+require Exporter;
+
+our $VERSION = '1.02';
+
+=head1 NAME
+
+Text::Abbrev - abbrev - create an abbreviation table from a list
+
+=head1 SYNOPSIS
+
+    use Text::Abbrev;
+    abbrev $hashref, LIST
+
+
+=head1 DESCRIPTION
+
+Stores all unambiguous truncations of each element of LIST
+as keys in the associative array referenced by C<$hashref>.
+The values are the original list elements.
+
+=head1 EXAMPLE
+
+    $hashref = abbrev qw(list edit send abort gripe);
+
+    %hash = abbrev qw(list edit send abort gripe);
+
+    abbrev $hashref, qw(list edit send abort gripe);
+
+    abbrev(*hash, qw(list edit send abort gripe));
+
+=cut
+
+@ISA = qw(Exporter);
+@EXPORT = qw(abbrev);
+
+# Usage:
+#	abbrev \%foo, LIST;
+#	...
+#	$long = $foo{$short};
+
+sub abbrev {
+    my ($word, $hashref, $glob, %table, $returnvoid);
+
+    @_ or return;   # So we don't autovivify onto @_ and trigger warning
+    if (ref($_[0])) {           # hash reference preferably
+      $hashref = shift;
+      $returnvoid = 1;
+    } elsif (ref \$_[0] eq 'GLOB') {  # is actually a glob (deprecated)
+      $hashref = \%{shift()};
+      $returnvoid = 1;
+    }
+    %{$hashref} = ();
+
+    WORD: foreach $word (@_) {
+        for (my $len = (length $word) - 1; $len > 0; --$len) {
+	    my $abbrev = substr($word,0,$len);
+	    my $seen = ++$table{$abbrev};
+	    if ($seen == 1) {	    # We're the first word so far to have
+	    			    # this abbreviation.
+	        $hashref->{$abbrev} = $word;
+	    } elsif ($seen == 2) {  # We're the second word to have this
+	    			    # abbreviation, so we can't use it.
+	        delete $hashref->{$abbrev};
+	    } else {		    # We're the third word to have this
+	    			    # abbreviation, so skip to the next word.
+	        next WORD;
+	    }
+	}
+    }
+    # Non-abbreviations always get entered, even if they aren't unique
+    foreach $word (@_) {
+        $hashref->{$word} = $word;
+    }
+    return if $returnvoid;
+    if (wantarray) {
+      %{$hashref};
+    } else {
+      $hashref;
+    }
+}
+
+1;
diff --git a/lib/5.24.1/Text/Balanced.pm b/lib/5.24.1/Text/Balanced.pm
new file mode 100644
index 00000000..f1a5780a
--- /dev/null
+++ b/lib/5.24.1/Text/Balanced.pm
@@ -0,0 +1,2281 @@
+package Text::Balanced;
+
+# EXTRACT VARIOUSLY DELIMITED TEXT SEQUENCES FROM STRINGS.
+# FOR FULL DOCUMENTATION SEE Balanced.pod
+
+use 5.005;
+use strict;
+use Exporter ();
+use SelfLoader;
+
+use vars qw { $VERSION @ISA %EXPORT_TAGS };
+BEGIN {
+	$VERSION     = '2.03';
+	@ISA         = 'Exporter';
+	%EXPORT_TAGS = (
+		ALL => [ qw{
+			&extract_delimited
+			&extract_bracketed
+			&extract_quotelike
+			&extract_codeblock
+			&extract_variable
+			&extract_tagged
+			&extract_multiple
+			&gen_delimited_pat
+			&gen_extract_tagged
+			&delimited_pat
+		} ],
+	);
+}
+
+Exporter::export_ok_tags('ALL');
+
+# PROTOTYPES
+
+sub _match_bracketed($$$$$$);
+sub _match_variable($$);
+sub _match_codeblock($$$$$$$);
+sub _match_quotelike($$$$);
+
+# HANDLE RETURN VALUES IN VARIOUS CONTEXTS
+
+sub _failmsg {
+	my ($message, $pos) = @_;
+	$@ = bless {
+		error => $message,
+		pos   => $pos,
+	}, 'Text::Balanced::ErrorMsg';
+}
+
+sub _fail {
+	my ($wantarray, $textref, $message, $pos) = @_;
+	_failmsg $message, $pos if $message;
+	return (undef, $$textref, undef) if $wantarray;
+	return undef;
+}
+
+sub _succeed {
+	$@ = undef;
+	my ($wantarray,$textref) = splice @_, 0, 2;
+	my ($extrapos, $extralen) = @_ > 18
+		? splice(@_, -2, 2)
+		: (0, 0);
+	my ($startlen, $oppos) = @_[5,6];
+	my $remainderpos = $_[2];
+	if ( $wantarray ) {
+		my @res;
+		while (my ($from, $len) = splice @_, 0, 2) {
+			push @res, substr($$textref, $from, $len);
+		}
+		if ( $extralen ) { # CORRECT FILLET
+			my $extra = substr($res[0], $extrapos-$oppos, $extralen, "\n");
+			$res[1] = "$extra$res[1]";
+			eval { substr($$textref,$remainderpos,0) = $extra;
+			       substr($$textref,$extrapos,$extralen,"\n")} ;
+				#REARRANGE HERE DOC AND FILLET IF POSSIBLE
+			pos($$textref) = $remainderpos-$extralen+1; # RESET \G
+		} else {
+			pos($$textref) = $remainderpos;		    # RESET \G
+		}
+		return @res;
+	} else {
+		my $match = substr($$textref,$_[0],$_[1]);
+		substr($match,$extrapos-$_[0]-$startlen,$extralen,"") if $extralen;
+		my $extra = $extralen
+			? substr($$textref, $extrapos, $extralen)."\n" : "";
+		eval {substr($$textref,$_[4],$_[1]+$_[5])=$extra} ;	#CHOP OUT PREFIX & MATCH, IF POSSIBLE
+		pos($$textref) = $_[4];				# RESET \G
+		return $match;
+	}
+}
+
+# BUILD A PATTERN MATCHING A SIMPLE DELIMITED STRING
+
+sub gen_delimited_pat($;$)  # ($delimiters;$escapes)
+{
+	my ($dels, $escs) = @_;
+	return "" unless $dels =~ /\S/;
+	$escs = '\\' unless $escs;
+	$escs .= substr($escs,-1) x (length($dels)-length($escs));
+	my @pat = ();
+	my $i;
+	for ($i=0; $i<length $dels; $i++)
+	{
+		my $del = quotemeta substr($dels,$i,1);
+		my $esc = quotemeta substr($escs,$i,1);
+		if ($del eq $esc)
+		{
+			push @pat, "$del(?:[^$del]*(?:(?:$del$del)[^$del]*)*)$del";
+		}
+		else
+		{
+			push @pat, "$del(?:[^$esc$del]*(?:$esc.[^$esc$del]*)*)$del";
+		}
+	}
+	my $pat = join '|', @pat;
+	return "(?:$pat)";
+}
+
+*delimited_pat = \&gen_delimited_pat;
+
+# THE EXTRACTION FUNCTIONS
+
+sub extract_delimited (;$$$$)
+{
+	my $textref = defined $_[0] ? \$_[0] : \$_;
+	my $wantarray = wantarray;
+	my $del  = defined $_[1] ? $_[1] : qq{\'\"\`};
+	my $pre  = defined $_[2] ? $_[2] : '\s*';
+	my $esc  = defined $_[3] ? $_[3] : qq{\\};
+	my $pat = gen_delimited_pat($del, $esc);
+	my $startpos = pos $$textref || 0;
+	return _fail($wantarray, $textref, "Not a delimited pattern", 0)
+		unless $$textref =~ m/\G($pre)($pat)/gc;
+	my $prelen = length($1);
+	my $matchpos = $startpos+$prelen;
+	my $endpos = pos $$textref;
+	return _succeed $wantarray, $textref,
+			$matchpos, $endpos-$matchpos,		# MATCH
+			$endpos,   length($$textref)-$endpos,	# REMAINDER
+			$startpos, $prelen;			# PREFIX
+}
+
+sub extract_bracketed (;$$$)
+{
+	my $textref = defined $_[0] ? \$_[0] : \$_;
+	my $ldel = defined $_[1] ? $_[1] : '{([<';
+	my $pre  = defined $_[2] ? $_[2] : '\s*';
+	my $wantarray = wantarray;
+	my $qdel = "";
+	my $quotelike;
+	$ldel =~ s/'//g and $qdel .= q{'};
+	$ldel =~ s/"//g and $qdel .= q{"};
+	$ldel =~ s/`//g and $qdel .= q{`};
+	$ldel =~ s/q//g and $quotelike = 1;
+	$ldel =~ tr/[](){}<>\0-\377/[[(({{<</ds;
+	my $rdel = $ldel;
+	unless ($rdel =~ tr/[({</])}>/)
+        {
+		return _fail $wantarray, $textref,
+			     "Did not find a suitable bracket in delimiter: \"$_[1]\"",
+			     0;
+	}
+	my $posbug = pos;
+	$ldel = join('|', map { quotemeta $_ } split('', $ldel));
+	$rdel = join('|', map { quotemeta $_ } split('', $rdel));
+	pos = $posbug;
+
+	my $startpos = pos $$textref || 0;
+	my @match = _match_bracketed($textref,$pre, $ldel, $qdel, $quotelike, $rdel);
+
+	return _fail ($wantarray, $textref) unless @match;
+
+	return _succeed ( $wantarray, $textref,
+			  $match[2], $match[5]+2,	# MATCH
+			  @match[8,9],			# REMAINDER
+			  @match[0,1],			# PREFIX
+			);
+}
+
+sub _match_bracketed($$$$$$)	# $textref, $pre, $ldel, $qdel, $quotelike, $rdel
+{
+	my ($textref, $pre, $ldel, $qdel, $quotelike, $rdel) = @_;
+	my ($startpos, $ldelpos, $endpos) = (pos $$textref = pos $$textref||0);
+	unless ($$textref =~ m/\G$pre/gc)
+	{
+		_failmsg "Did not find prefix: /$pre/", $startpos;
+		return;
+	}
+
+	$ldelpos = pos $$textref;
+
+	unless ($$textref =~ m/\G($ldel)/gc)
+	{
+		_failmsg "Did not find opening bracket after prefix: \"$pre\"",
+		         pos $$textref;
+		pos $$textref = $startpos;
+		return;
+	}
+
+	my @nesting = ( $1 );
+	my $textlen = length $$textref;
+	while (pos $$textref < $textlen)
+	{
+		next if $$textref =~ m/\G\\./gcs;
+
+		if ($$textref =~ m/\G($ldel)/gc)
+		{
+			push @nesting, $1;
+		}
+		elsif ($$textref =~ m/\G($rdel)/gc)
+		{
+			my ($found, $brackettype) = ($1, $1);
+			if ($#nesting < 0)
+			{
+				_failmsg "Unmatched closing bracket: \"$found\"",
+					 pos $$textref;
+				pos $$textref = $startpos;
+			        return;
+			}
+			my $expected = pop(@nesting);
+			$expected =~ tr/({[</)}]>/;
+			if ($expected ne $brackettype)
+			{
+				_failmsg qq{Mismatched closing bracket: expected "$expected" but found "$found"},
+					 pos $$textref;
+				pos $$textref = $startpos;
+			        return;
+			}
+			last if $#nesting < 0;
+		}
+		elsif ($qdel && $$textref =~ m/\G([$qdel])/gc)
+		{
+			$$textref =~ m/\G[^\\$1]*(?:\\.[^\\$1]*)*(\Q$1\E)/gsc and next;
+			_failmsg "Unmatched embedded quote ($1)",
+				 pos $$textref;
+			pos $$textref = $startpos;
+			return;
+		}
+		elsif ($quotelike && _match_quotelike($textref,"",1,0))
+		{
+			next;
+		}
+
+		else { $$textref =~ m/\G(?:[a-zA-Z0-9]+|.)/gcs }
+	}
+	if ($#nesting>=0)
+	{
+		_failmsg "Unmatched opening bracket(s): "
+				. join("..",@nesting)."..",
+		         pos $$textref;
+		pos $$textref = $startpos;
+		return;
+	}
+
+	$endpos = pos $$textref;
+	
+	return (
+		$startpos,  $ldelpos-$startpos,		# PREFIX
+		$ldelpos,   1,				# OPENING BRACKET
+		$ldelpos+1, $endpos-$ldelpos-2,		# CONTENTS
+		$endpos-1,  1,				# CLOSING BRACKET
+		$endpos,    length($$textref)-$endpos,	# REMAINDER
+	       );
+}
+
+sub _revbracket($)
+{
+	my $brack = reverse $_[0];
+	$brack =~ tr/[({</])}>/;
+	return $brack;
+}
+
+my $XMLNAME = q{[a-zA-Z_:][a-zA-Z0-9_:.-]*};
+
+sub extract_tagged (;$$$$$) # ($text, $opentag, $closetag, $pre, \%options)
+{
+	my $textref = defined $_[0] ? \$_[0] : \$_;
+	my $ldel    = $_[1];
+	my $rdel    = $_[2];
+	my $pre     = defined $_[3] ? $_[3] : '\s*';
+	my %options = defined $_[4] ? %{$_[4]} : ();
+	my $omode   = defined $options{fail} ? $options{fail} : '';
+	my $bad     = ref($options{reject}) eq 'ARRAY' ? join('|', @{$options{reject}})
+		    : defined($options{reject})	       ? $options{reject}
+		    :					 ''
+		    ;
+	my $ignore  = ref($options{ignore}) eq 'ARRAY' ? join('|', @{$options{ignore}})
+		    : defined($options{ignore})	       ? $options{ignore}
+		    :					 ''
+		    ;
+
+	if (!defined $ldel) { $ldel = '<\w+(?:' . gen_delimited_pat(q{'"}) . '|[^>])*>'; }
+	$@ = undef;
+
+	my @match = _match_tagged($textref, $pre, $ldel, $rdel, $omode, $bad, $ignore);
+
+	return _fail(wantarray, $textref) unless @match;
+	return _succeed wantarray, $textref,
+			$match[2], $match[3]+$match[5]+$match[7],	# MATCH
+			@match[8..9,0..1,2..7];				# REM, PRE, BITS
+}
+
+sub _match_tagged	# ($$$$$$$)
+{
+	my ($textref, $pre, $ldel, $rdel, $omode, $bad, $ignore) = @_;
+	my $rdelspec;
+
+	my ($startpos, $opentagpos, $textpos, $parapos, $closetagpos, $endpos) = ( pos($$textref) = pos($$textref)||0 );
+
+	unless ($$textref =~ m/\G($pre)/gc)
+	{
+		_failmsg "Did not find prefix: /$pre/", pos $$textref;
+		goto failed;
+	}
+
+	$opentagpos = pos($$textref);
+
+	unless ($$textref =~ m/\G$ldel/gc)
+	{
+		_failmsg "Did not find opening tag: /$ldel/", pos $$textref;
+		goto failed;
+	}
+
+	$textpos = pos($$textref);
+
+	if (!defined $rdel)
+	{
+		$rdelspec = substr($$textref, $-[0], $+[0] - $-[0]);
+		unless ($rdelspec =~ s/\A([[(<{]+)($XMLNAME).*/ quotemeta "$1\/$2". _revbracket($1) /oes)
+		{
+			_failmsg "Unable to construct closing tag to match: $rdel",
+				 pos $$textref;
+			goto failed;
+		}
+	}
+	else
+	{
+		$rdelspec = eval "qq{$rdel}" || do {
+			my $del;
+			for (qw,~ ! ^ & * ) _ + - = } ] : " ; ' > . ? / | ',)
+				{ next if $rdel =~ /\Q$_/; $del = $_; last }
+			unless ($del) {
+				use Carp;
+				croak "Can't interpolate right delimiter $rdel"
+			}
+			eval "qq$del$rdel$del";
+		};
+	}
+
+	while (pos($$textref) < length($$textref))
+	{
+		next if $$textref =~ m/\G\\./gc;
+
+		if ($$textref =~ m/\G(\n[ \t]*\n)/gc )
+		{
+			$parapos = pos($$textref) - length($1)
+				unless defined $parapos;
+		}
+		elsif ($$textref =~ m/\G($rdelspec)/gc )
+		{
+			$closetagpos = pos($$textref)-length($1);
+			goto matched;
+		}
+		elsif ($ignore && $$textref =~ m/\G(?:$ignore)/gc)
+		{
+			next;
+		}
+		elsif ($bad && $$textref =~ m/\G($bad)/gcs)
+		{
+			pos($$textref) -= length($1);	# CUT OFF WHATEVER CAUSED THE SHORTNESS
+			goto short if ($omode eq 'PARA' || $omode eq 'MAX');
+			_failmsg "Found invalid nested tag: $1", pos $$textref;
+			goto failed;
+		}
+		elsif ($$textref =~ m/\G($ldel)/gc)
+		{
+			my $tag = $1;
+			pos($$textref) -= length($tag);	# REWIND TO NESTED TAG
+			unless (_match_tagged(@_))	# MATCH NESTED TAG
+			{
+				goto short if $omode eq 'PARA' || $omode eq 'MAX';
+				_failmsg "Found unbalanced nested tag: $tag",
+					 pos $$textref;
+				goto failed;
+			}
+		}
+		else { $$textref =~ m/./gcs }
+	}
+
+short:
+	$closetagpos = pos($$textref);
+	goto matched if $omode eq 'MAX';
+	goto failed unless $omode eq 'PARA';
+
+	if (defined $parapos) { pos($$textref) = $parapos }
+	else		      { $parapos = pos($$textref) }
+
+	return (
+		$startpos,    $opentagpos-$startpos,		# PREFIX
+		$opentagpos,  $textpos-$opentagpos,		# OPENING TAG
+		$textpos,     $parapos-$textpos,		# TEXT
+		$parapos,     0,				# NO CLOSING TAG
+		$parapos,     length($$textref)-$parapos,	# REMAINDER
+	       );
+	
+matched:
+	$endpos = pos($$textref);
+	return (
+		$startpos,    $opentagpos-$startpos,		# PREFIX
+		$opentagpos,  $textpos-$opentagpos,		# OPENING TAG
+		$textpos,     $closetagpos-$textpos,		# TEXT
+		$closetagpos, $endpos-$closetagpos,		# CLOSING TAG
+		$endpos,      length($$textref)-$endpos,	# REMAINDER
+	       );
+
+failed:
+	_failmsg "Did not find closing tag", pos $$textref unless $@;
+	pos($$textref) = $startpos;
+	return;
+}
+
+sub extract_variable (;$$)
+{
+	my $textref = defined $_[0] ? \$_[0] : \$_;
+	return ("","","") unless defined $$textref;
+	my $pre  = defined $_[1] ? $_[1] : '\s*';
+
+	my @match = _match_variable($textref,$pre);
+
+	return _fail wantarray, $textref unless @match;
+
+	return _succeed wantarray, $textref,
+			@match[2..3,4..5,0..1];		# MATCH, REMAINDER, PREFIX
+}
+
+sub _match_variable($$)
+{
+#  $#
+#  $^
+#  $$
+	my ($textref, $pre) = @_;
+	my $startpos = pos($$textref) = pos($$textref)||0;
+	unless ($$textref =~ m/\G($pre)/gc)
+	{
+		_failmsg "Did not find prefix: /$pre/", pos $$textref;
+		return;
+	}
+	my $varpos = pos($$textref);
+        unless ($$textref =~ m{\G\$\s*(?!::)(\d+|[][&`'+*./|,";%=~:?!\@<>()-]|\^[a-z]?)}gci)
+	{
+	    unless ($$textref =~ m/\G((\$#?|[*\@\%]|\\&)+)/gc)
+	    {
+		_failmsg "Did not find leading dereferencer", pos $$textref;
+		pos $$textref = $startpos;
+		return;
+	    }
+	    my $deref = $1;
+
+	    unless ($$textref =~ m/\G\s*(?:::|')?(?:[_a-z]\w*(?:::|'))*[_a-z]\w*/gci
+	    	or _match_codeblock($textref, "", '\{', '\}', '\{', '\}', 0)
+		or $deref eq '$#' or $deref eq '$$' )
+	    {
+		_failmsg "Bad identifier after dereferencer", pos $$textref;
+		pos $$textref = $startpos;
+		return;
+	    }
+	}
+
+	while (1)
+	{
+		next if $$textref =~ m/\G\s*(?:->)?\s*[{]\w+[}]/gc;
+		next if _match_codeblock($textref,
+					 qr/\s*->\s*(?:[_a-zA-Z]\w+\s*)?/,
+					 qr/[({[]/, qr/[)}\]]/,
+					 qr/[({[]/, qr/[)}\]]/, 0);
+		next if _match_codeblock($textref,
+					 qr/\s*/, qr/[{[]/, qr/[}\]]/,
+					 qr/[{[]/, qr/[}\]]/, 0);
+		next if _match_variable($textref,'\s*->\s*');
+		next if $$textref =~ m/\G\s*->\s*\w+(?![{([])/gc;
+		last;
+	}
+	
+	my $endpos = pos($$textref);
+	return ($startpos, $varpos-$startpos,
+		$varpos,   $endpos-$varpos,
+		$endpos,   length($$textref)-$endpos
+		);
+}
+
+sub extract_codeblock (;$$$$$)
+{
+	my $textref = defined $_[0] ? \$_[0] : \$_;
+	my $wantarray = wantarray;
+	my $ldel_inner = defined $_[1] ? $_[1] : '{';
+	my $pre        = defined $_[2] ? $_[2] : '\s*';
+	my $ldel_outer = defined $_[3] ? $_[3] : $ldel_inner;
+	my $rd         = $_[4];
+	my $rdel_inner = $ldel_inner;
+	my $rdel_outer = $ldel_outer;
+	my $posbug = pos;
+	for ($ldel_inner, $ldel_outer) { tr/[]()<>{}\0-\377/[[((<<{{/ds }
+	for ($rdel_inner, $rdel_outer) { tr/[]()<>{}\0-\377/]]))>>}}/ds }
+	for ($ldel_inner, $ldel_outer, $rdel_inner, $rdel_outer)
+	{
+		$_ = '('.join('|',map { quotemeta $_ } split('',$_)).')'
+	}
+	pos = $posbug;
+
+	my @match = _match_codeblock($textref, $pre,
+				     $ldel_outer, $rdel_outer,
+				     $ldel_inner, $rdel_inner,
+				     $rd);
+	return _fail($wantarray, $textref) unless @match;
+	return _succeed($wantarray, $textref,
+			@match[2..3,4..5,0..1]	# MATCH, REMAINDER, PREFIX
+		       );
+
+}
+
+sub _match_codeblock($$$$$$$)
+{
+	my ($textref, $pre, $ldel_outer, $rdel_outer, $ldel_inner, $rdel_inner, $rd) = @_;
+	my $startpos = pos($$textref) = pos($$textref) || 0;
+	unless ($$textref =~ m/\G($pre)/gc)
+	{
+		_failmsg qq{Did not match prefix /$pre/ at"} .
+			    substr($$textref,pos($$textref),20) .
+			    q{..."},
+		         pos $$textref;
+		return; 
+	}
+	my $codepos = pos($$textref);
+	unless ($$textref =~ m/\G($ldel_outer)/gc)	# OUTERMOST DELIMITER
+	{
+		_failmsg qq{Did not find expected opening bracket at "} .
+			     substr($$textref,pos($$textref),20) .
+			     q{..."},
+		         pos $$textref;
+		pos $$textref = $startpos;
+		return;
+	}
+	my $closing = $1;
+	   $closing =~ tr/([<{/)]>}/;
+	my $matched;
+	my $patvalid = 1;
+	while (pos($$textref) < length($$textref))
+	{
+		$matched = '';
+		if ($rd && $$textref =~ m#\G(\Q(?)\E|\Q(s?)\E|\Q(s)\E)#gc)
+		{
+			$patvalid = 0;
+			next;
+		}
+
+		if ($$textref =~ m/\G\s*#.*/gc)
+		{
+			next;
+		}
+
+		if ($$textref =~ m/\G\s*($rdel_outer)/gc)
+		{
+			unless ($matched = ($closing && $1 eq $closing) )
+			{
+				next if $1 eq '>';	# MIGHT BE A "LESS THAN"
+				_failmsg q{Mismatched closing bracket at "} .
+					     substr($$textref,pos($$textref),20) .
+					     qq{...". Expected '$closing'},
+					 pos $$textref;
+			}
+			last;
+		}
+
+		if (_match_variable($textref,'\s*') ||
+		    _match_quotelike($textref,'\s*',$patvalid,$patvalid) )
+		{
+			$patvalid = 0;
+			next;
+		}
+
+
+		# NEED TO COVER MANY MORE CASES HERE!!!
+		if ($$textref =~ m#\G\s*(?!$ldel_inner)
+					( [-+*x/%^&|.]=?
+					| [!=]~
+					| =(?!>)
+					| (\*\*|&&|\|\||<<|>>)=?
+					| split|grep|map|return
+					| [([]
+					)#gcx)
+		{
+			$patvalid = 1;
+			next;
+		}
+
+		if ( _match_codeblock($textref, '\s*', $ldel_inner, $rdel_inner, $ldel_inner, $rdel_inner, $rd) )
+		{
+			$patvalid = 1;
+			next;
+		}
+
+		if ($$textref =~ m/\G\s*$ldel_outer/gc)
+		{
+			_failmsg q{Improperly nested codeblock at "} .
+				     substr($$textref,pos($$textref),20) .
+				     q{..."},
+				 pos $$textref;
+			last;
+		}
+
+		$patvalid = 0;
+		$$textref =~ m/\G\s*(\w+|[-=>]>|.|\Z)/gc;
+	}
+	continue { $@ = undef }
+
+	unless ($matched)
+	{
+		_failmsg 'No match found for opening bracket', pos $$textref
+			unless $@;
+		return;
+	}
+
+	my $endpos = pos($$textref);
+	return ( $startpos, $codepos-$startpos,
+		 $codepos, $endpos-$codepos,
+		 $endpos,  length($$textref)-$endpos,
+	       );
+}
+
+
+my %mods   = (
+		'none'	=> '[cgimsox]*',
+		'm'	=> '[cgimsox]*',
+		's'	=> '[cegimsox]*',
+		'tr'	=> '[cds]*',
+		'y'	=> '[cds]*',
+		'qq'	=> '',
+		'qx'	=> '',
+		'qw'	=> '',
+		'qr'	=> '[imsx]*',
+		'q'	=> '',
+	     );
+
+sub extract_quotelike (;$$)
+{
+	my $textref = $_[0] ? \$_[0] : \$_;
+	my $wantarray = wantarray;
+	my $pre  = defined $_[1] ? $_[1] : '\s*';
+
+	my @match = _match_quotelike($textref,$pre,1,0);
+	return _fail($wantarray, $textref) unless @match;
+	return _succeed($wantarray, $textref,
+			$match[2], $match[18]-$match[2],	# MATCH
+			@match[18,19],				# REMAINDER
+			@match[0,1],				# PREFIX
+			@match[2..17],				# THE BITS
+			@match[20,21],				# ANY FILLET?
+		       );
+};
+
+sub _match_quotelike($$$$)	# ($textref, $prepat, $allow_raw_match)
+{
+	my ($textref, $pre, $rawmatch, $qmark) = @_;
+
+	my ($textlen,$startpos,
+	    $oppos,
+	    $preld1pos,$ld1pos,$str1pos,$rd1pos,
+	    $preld2pos,$ld2pos,$str2pos,$rd2pos,
+	    $modpos) = ( length($$textref), pos($$textref) = pos($$textref) || 0 );
+
+	unless ($$textref =~ m/\G($pre)/gc)
+	{
+		_failmsg qq{Did not find prefix /$pre/ at "} .
+			     substr($$textref, pos($$textref), 20) .
+			     q{..."},
+		         pos $$textref;
+		return; 
+	}
+	$oppos = pos($$textref);
+
+	my $initial = substr($$textref,$oppos,1);
+
+	if ($initial && $initial =~ m|^[\"\'\`]|
+		     || $rawmatch && $initial =~ m|^/|
+		     || $qmark && $initial =~ m|^\?|)
+	{
+		unless ($$textref =~ m/ \Q$initial\E [^\\$initial]* (\\.[^\\$initial]*)* \Q$initial\E /gcsx)
+		{
+			_failmsg qq{Did not find closing delimiter to match '$initial' at "} .
+				     substr($$textref, $oppos, 20) .
+				     q{..."},
+				 pos $$textref;
+			pos $$textref = $startpos;
+			return;
+		}
+		$modpos= pos($$textref);
+		$rd1pos = $modpos-1;
+
+		if ($initial eq '/' || $initial eq '?') 
+		{
+			$$textref =~ m/\G$mods{none}/gc
+		}
+
+		my $endpos = pos($$textref);
+		return (
+			$startpos,	$oppos-$startpos,	# PREFIX
+			$oppos,		0,			# NO OPERATOR
+			$oppos,		1,			# LEFT DEL
+			$oppos+1,	$rd1pos-$oppos-1,	# STR/PAT
+			$rd1pos,	1,			# RIGHT DEL
+			$modpos,	0,			# NO 2ND LDEL
+			$modpos,	0,			# NO 2ND STR
+			$modpos,	0,			# NO 2ND RDEL
+			$modpos,	$endpos-$modpos,	# MODIFIERS
+			$endpos, 	$textlen-$endpos,	# REMAINDER
+		       );
+	}
+
+	unless ($$textref =~ m{\G(\b(?:m|s|qq|qx|qw|q|qr|tr|y)\b(?=\s*\S)|<<)}gc)
+	{
+		_failmsg q{No quotelike operator found after prefix at "} .
+			     substr($$textref, pos($$textref), 20) .
+			     q{..."},
+		         pos $$textref;
+		pos $$textref = $startpos;
+		return;
+	}
+
+	my $op = $1;
+	$preld1pos = pos($$textref);
+	if ($op eq '<<') {
+		$ld1pos = pos($$textref);
+		my $label;
+		if ($$textref =~ m{\G([A-Za-z_]\w*)}gc) {
+			$label = $1;
+		}
+		elsif ($$textref =~ m{ \G ' ([^'\\]* (?:\\.[^'\\]*)*) '
+				     | \G " ([^"\\]* (?:\\.[^"\\]*)*) "
+				     | \G ` ([^`\\]* (?:\\.[^`\\]*)*) `
+				     }gcsx) {
+			$label = $+;
+		}
+		else {
+			$label = "";
+		}
+		my $extrapos = pos($$textref);
+		$$textref =~ m{.*\n}gc;
+		$str1pos = pos($$textref)--;
+		unless ($$textref =~ m{.*?\n(?=\Q$label\E\n)}gc) {
+			_failmsg qq{Missing here doc terminator ('$label') after "} .
+				     substr($$textref, $startpos, 20) .
+				     q{..."},
+				 pos $$textref;
+			pos $$textref = $startpos;
+			return;
+		}
+		$rd1pos = pos($$textref);
+        $$textref =~ m{\Q$label\E\n}gc;
+		$ld2pos = pos($$textref);
+		return (
+			$startpos,	$oppos-$startpos,	# PREFIX
+			$oppos,		length($op),		# OPERATOR
+			$ld1pos,	$extrapos-$ld1pos,	# LEFT DEL
+			$str1pos,	$rd1pos-$str1pos,	# STR/PAT
+			$rd1pos,	$ld2pos-$rd1pos,	# RIGHT DEL
+			$ld2pos,	0,			# NO 2ND LDEL
+			$ld2pos,	0,                	# NO 2ND STR
+			$ld2pos,	0,	                # NO 2ND RDEL
+			$ld2pos,	0,                      # NO MODIFIERS
+			$ld2pos,	$textlen-$ld2pos,	# REMAINDER
+			$extrapos,      $str1pos-$extrapos,	# FILLETED BIT
+		       );
+	}
+
+	$$textref =~ m/\G\s*/gc;
+	$ld1pos = pos($$textref);
+	$str1pos = $ld1pos+1;
+
+	unless ($$textref =~ m/\G(\S)/gc)	# SHOULD USE LOOKAHEAD
+	{
+		_failmsg "No block delimiter found after quotelike $op",
+		         pos $$textref;
+		pos $$textref = $startpos;
+		return;
+	}
+	pos($$textref) = $ld1pos;	# HAVE TO DO THIS BECAUSE LOOKAHEAD BROKEN
+	my ($ldel1, $rdel1) = ("\Q$1","\Q$1");
+	if ($ldel1 =~ /[[(<{]/)
+	{
+		$rdel1 =~ tr/[({</])}>/;
+		defined(_match_bracketed($textref,"",$ldel1,"","",$rdel1))
+		|| do { pos $$textref = $startpos; return };
+        $ld2pos = pos($$textref);
+        $rd1pos = $ld2pos-1;
+	}
+	else
+	{
+		$$textref =~ /\G$ldel1[^\\$ldel1]*(\\.[^\\$ldel1]*)*$ldel1/gcs
+		|| do { pos $$textref = $startpos; return };
+        $ld2pos = $rd1pos = pos($$textref)-1;
+	}
+
+	my $second_arg = $op =~ /s|tr|y/ ? 1 : 0;
+	if ($second_arg)
+	{
+		my ($ldel2, $rdel2);
+		if ($ldel1 =~ /[[(<{]/)
+		{
+			unless ($$textref =~ /\G\s*(\S)/gc)	# SHOULD USE LOOKAHEAD
+			{
+				_failmsg "Missing second block for quotelike $op",
+					 pos $$textref;
+				pos $$textref = $startpos;
+				return;
+			}
+			$ldel2 = $rdel2 = "\Q$1";
+			$rdel2 =~ tr/[({</])}>/;
+		}
+		else
+		{
+			$ldel2 = $rdel2 = $ldel1;
+		}
+		$str2pos = $ld2pos+1;
+
+		if ($ldel2 =~ /[[(<{]/)
+		{
+			pos($$textref)--;	# OVERCOME BROKEN LOOKAHEAD 
+			defined(_match_bracketed($textref,"",$ldel2,"","",$rdel2))
+			|| do { pos $$textref = $startpos; return };
+		}
+		else
+		{
+			$$textref =~ /[^\\$ldel2]*(\\.[^\\$ldel2]*)*$ldel2/gcs
+			|| do { pos $$textref = $startpos; return };
+		}
+		$rd2pos = pos($$textref)-1;
+	}
+	else
+	{
+		$ld2pos = $str2pos = $rd2pos = $rd1pos;
+	}
+
+	$modpos = pos $$textref;
+
+	$$textref =~ m/\G($mods{$op})/gc;
+	my $endpos = pos $$textref;
+
+	return (
+		$startpos,	$oppos-$startpos,	# PREFIX
+		$oppos,		length($op),		# OPERATOR
+		$ld1pos,	1,			# LEFT DEL
+		$str1pos,	$rd1pos-$str1pos,	# STR/PAT
+		$rd1pos,	1,			# RIGHT DEL
+		$ld2pos,	$second_arg,		# 2ND LDEL (MAYBE)
+		$str2pos,	$rd2pos-$str2pos,	# 2ND STR (MAYBE)
+		$rd2pos,	$second_arg,		# 2ND RDEL (MAYBE)
+		$modpos,	$endpos-$modpos,	# MODIFIERS
+		$endpos,	$textlen-$endpos,	# REMAINDER
+	       );
+}
+
+my $def_func = [
+	sub { extract_variable($_[0], '') },
+	sub { extract_quotelike($_[0],'') },
+	sub { extract_codeblock($_[0],'{}','') },
+];
+
+sub extract_multiple (;$$$$)	# ($text, $functions_ref, $max_fields, $ignoreunknown)
+{
+	my $textref = defined($_[0]) ? \$_[0] : \$_;
+	my $posbug = pos;
+	my ($lastpos, $firstpos);
+	my @fields = ();
+
+	#for ($$textref)
+	{
+		my @func = defined $_[1] ? @{$_[1]} : @{$def_func};
+		my $max  = defined $_[2] && $_[2]>0 ? $_[2] : 1_000_000_000;
+		my $igunk = $_[3];
+
+		pos $$textref ||= 0;
+
+		unless (wantarray)
+		{
+			use Carp;
+			carp "extract_multiple reset maximal count to 1 in scalar context"
+				if $^W && defined($_[2]) && $max > 1;
+			$max = 1
+		}
+
+		my $unkpos;
+		my $func;
+		my $class;
+
+		my @class;
+		foreach $func ( @func )
+		{
+			if (ref($func) eq 'HASH')
+			{
+				push @class, (keys %$func)[0];
+				$func = (values %$func)[0];
+			}
+			else
+			{
+				push @class, undef;
+			}
+		}
+
+		FIELD: while (pos($$textref) < length($$textref))
+		{
+			my ($field, $rem);
+			my @bits;
+			foreach my $i ( 0..$#func )
+			{
+				my $pref;
+				$func = $func[$i];
+				$class = $class[$i];
+				$lastpos = pos $$textref;
+				if (ref($func) eq 'CODE')
+					{ ($field,$rem,$pref) = @bits = $func->($$textref) }
+				elsif (ref($func) eq 'Text::Balanced::Extractor')
+					{ @bits = $field = $func->extract($$textref) }
+				elsif( $$textref =~ m/\G$func/gc )
+					{ @bits = $field = defined($1)
+                                ? $1
+                                : substr($$textref, $-[0], $+[0] - $-[0])
+                    }
+				$pref ||= "";
+				if (defined($field) && length($field))
+				{
+					if (!$igunk) {
+						$unkpos = $lastpos
+							if length($pref) && !defined($unkpos);
+						if (defined $unkpos)
+						{
+							push @fields, substr($$textref, $unkpos, $lastpos-$unkpos).$pref;
+							$firstpos = $unkpos unless defined $firstpos;
+							undef $unkpos;
+							last FIELD if @fields == $max;
+						}
+					}
+					push @fields, $class
+						? bless (\$field, $class)
+						: $field;
+					$firstpos = $lastpos unless defined $firstpos;
+					$lastpos = pos $$textref;
+					last FIELD if @fields == $max;
+					next FIELD;
+				}
+			}
+			if ($$textref =~ /\G(.)/gcs)
+			{
+				$unkpos = pos($$textref)-1
+					unless $igunk || defined $unkpos;
+			}
+		}
+		
+		if (defined $unkpos)
+		{
+			push @fields, substr($$textref, $unkpos);
+			$firstpos = $unkpos unless defined $firstpos;
+			$lastpos = length $$textref;
+		}
+		last;
+	}
+
+	pos $$textref = $lastpos;
+	return @fields if wantarray;
+
+	$firstpos ||= 0;
+	eval { substr($$textref,$firstpos,$lastpos-$firstpos)="";
+	       pos $$textref = $firstpos };
+	return $fields[0];
+}
+
+sub gen_extract_tagged # ($opentag, $closetag, $pre, \%options)
+{
+	my $ldel    = $_[0];
+	my $rdel    = $_[1];
+	my $pre     = defined $_[2] ? $_[2] : '\s*';
+	my %options = defined $_[3] ? %{$_[3]} : ();
+	my $omode   = defined $options{fail} ? $options{fail} : '';
+	my $bad     = ref($options{reject}) eq 'ARRAY' ? join('|', @{$options{reject}})
+		    : defined($options{reject})	       ? $options{reject}
+		    :					 ''
+		    ;
+	my $ignore  = ref($options{ignore}) eq 'ARRAY' ? join('|', @{$options{ignore}})
+		    : defined($options{ignore})	       ? $options{ignore}
+		    :					 ''
+		    ;
+
+	if (!defined $ldel) { $ldel = '<\w+(?:' . gen_delimited_pat(q{'"}) . '|[^>])*>'; }
+
+	my $posbug = pos;
+	for ($ldel, $pre, $bad, $ignore) { $_ = qr/$_/ if $_ }
+	pos = $posbug;
+
+	my $closure = sub
+	{
+		my $textref = defined $_[0] ? \$_[0] : \$_;
+		my @match = Text::Balanced::_match_tagged($textref, $pre, $ldel, $rdel, $omode, $bad, $ignore);
+
+		return _fail(wantarray, $textref) unless @match;
+		return _succeed wantarray, $textref,
+				$match[2], $match[3]+$match[5]+$match[7],	# MATCH
+				@match[8..9,0..1,2..7];				# REM, PRE, BITS
+	};
+
+	bless $closure, 'Text::Balanced::Extractor';
+}
+
+package Text::Balanced::Extractor;
+
+sub extract($$)	# ($self, $text)
+{
+	&{$_[0]}($_[1]);
+}
+
+package Text::Balanced::ErrorMsg;
+
+use overload '""' => sub { "$_[0]->{error}, detected at offset $_[0]->{pos}" };
+
+1;
+
+__END__
+
+=pod
+
+=head1 NAME
+
+Text::Balanced - Extract delimited text sequences from strings.
+
+=head1 SYNOPSIS
+
+ use Text::Balanced qw (
+			extract_delimited
+			extract_bracketed
+			extract_quotelike
+			extract_codeblock
+			extract_variable
+			extract_tagged
+			extract_multiple
+			gen_delimited_pat
+			gen_extract_tagged
+		       );
+
+ # Extract the initial substring of $text that is delimited by
+ # two (unescaped) instances of the first character in $delim.
+
+	($extracted, $remainder) = extract_delimited($text,$delim);
+
+
+ # Extract the initial substring of $text that is bracketed
+ # with a delimiter(s) specified by $delim (where the string
+ # in $delim contains one or more of '(){}[]<>').
+
+	($extracted, $remainder) = extract_bracketed($text,$delim);
+
+
+ # Extract the initial substring of $text that is bounded by
+ # an XML tag.
+
+	($extracted, $remainder) = extract_tagged($text);
+
+
+ # Extract the initial substring of $text that is bounded by
+ # a C<BEGIN>...C<END> pair. Don't allow nested C<BEGIN> tags
+
+	($extracted, $remainder) =
+		extract_tagged($text,"BEGIN","END",undef,{bad=>["BEGIN"]});
+
+
+ # Extract the initial substring of $text that represents a
+ # Perl "quote or quote-like operation"
+
+	($extracted, $remainder) = extract_quotelike($text);
+
+
+ # Extract the initial substring of $text that represents a block
+ # of Perl code, bracketed by any of character(s) specified by $delim
+ # (where the string $delim contains one or more of '(){}[]<>').
+
+	($extracted, $remainder) = extract_codeblock($text,$delim);
+
+
+ # Extract the initial substrings of $text that would be extracted by
+ # one or more sequential applications of the specified functions
+ # or regular expressions
+
+	@extracted = extract_multiple($text,
+				      [ \&extract_bracketed,
+					\&extract_quotelike,
+					\&some_other_extractor_sub,
+					qr/[xyz]*/,
+					'literal',
+				      ]);
+
+# Create a string representing an optimized pattern (a la Friedl)
+# that matches a substring delimited by any of the specified characters
+# (in this case: any type of quote or a slash)
+
+	$patstring = gen_delimited_pat(q{'"`/});
+
+# Generate a reference to an anonymous sub that is just like extract_tagged
+# but pre-compiled and optimized for a specific pair of tags, and consequently
+# much faster (i.e. 3 times faster). It uses qr// for better performance on
+# repeated calls, so it only works under Perl 5.005 or later.
+
+	$extract_head = gen_extract_tagged('<HEAD>','</HEAD>');
+
+	($extracted, $remainder) = $extract_head->($text);
+
+=head1 DESCRIPTION
+
+The various C<extract_...> subroutines may be used to
+extract a delimited substring, possibly after skipping a
+specified prefix string. By default, that prefix is
+optional whitespace (C</\s*/>), but you can change it to whatever
+you wish (see below).
+
+The substring to be extracted must appear at the
+current C<pos> location of the string's variable
+(or at index zero, if no C<pos> position is defined).
+In other words, the C<extract_...> subroutines I<don't>
+extract the first occurrence of a substring anywhere
+in a string (like an unanchored regex would). Rather,
+they extract an occurrence of the substring appearing
+immediately at the current matching position in the
+string (like a C<\G>-anchored regex would).
+
+=head2 General behaviour in list contexts
+
+In a list context, all the subroutines return a list, the first three
+elements of which are always:
+
+=over 4
+
+=item [0]
+
+The extracted string, including the specified delimiters.
+If the extraction fails C<undef> is returned.
+
+=item [1]
+
+The remainder of the input string (i.e. the characters after the
+extracted string). On failure, the entire string is returned.
+
+=item [2]
+
+The skipped prefix (i.e. the characters before the extracted string).
+On failure, C<undef> is returned.
+
+=back 
+
+Note that in a list context, the contents of the original input text (the first
+argument) are not modified in any way. 
+
+However, if the input text was passed in a variable, that variable's
+C<pos> value is updated to point at the first character after the
+extracted text. That means that in a list context the various
+subroutines can be used much like regular expressions. For example:
+
+	while ( $next = (extract_quotelike($text))[0] )
+	{
+		# process next quote-like (in $next)
+	}
+
+=head2 General behaviour in scalar and void contexts
+
+In a scalar context, the extracted string is returned, having first been
+removed from the input text. Thus, the following code also processes
+each quote-like operation, but actually removes them from $text:
+
+	while ( $next = extract_quotelike($text) )
+	{
+		# process next quote-like (in $next)
+	}
+
+Note that if the input text is a read-only string (i.e. a literal),
+no attempt is made to remove the extracted text.
+
+In a void context the behaviour of the extraction subroutines is
+exactly the same as in a scalar context, except (of course) that the
+extracted substring is not returned.
+
+=head2 A note about prefixes
+
+Prefix patterns are matched without any trailing modifiers (C</gimsox> etc.)
+This can bite you if you're expecting a prefix specification like
+'.*?(?=<H1>)' to skip everything up to the first <H1> tag. Such a prefix
+pattern will only succeed if the <H1> tag is on the current line, since
+. normally doesn't match newlines.
+
+To overcome this limitation, you need to turn on /s matching within
+the prefix pattern, using the C<(?s)> directive: '(?s).*?(?=<H1>)'
+
+=head2 C<extract_delimited>
+
+The C<extract_delimited> function formalizes the common idiom
+of extracting a single-character-delimited substring from the start of
+a string. For example, to extract a single-quote delimited string, the
+following code is typically used:
+
+	($remainder = $text) =~ s/\A('(\\.|[^'])*')//s;
+	$extracted = $1;
+
+but with C<extract_delimited> it can be simplified to:
+
+	($extracted,$remainder) = extract_delimited($text, "'");
+
+C<extract_delimited> takes up to four scalars (the input text, the
+delimiters, a prefix pattern to be skipped, and any escape characters)
+and extracts the initial substring of the text that
+is appropriately delimited. If the delimiter string has multiple
+characters, the first one encountered in the text is taken to delimit
+the substring.
+The third argument specifies a prefix pattern that is to be skipped
+(but must be present!) before the substring is extracted.
+The final argument specifies the escape character to be used for each
+delimiter.
+
+All arguments are optional. If the escape characters are not specified,
+every delimiter is escaped with a backslash (C<\>).
+If the prefix is not specified, the
+pattern C<'\s*'> - optional whitespace - is used. If the delimiter set
+is also not specified, the set C</["'`]/> is used. If the text to be processed
+is not specified either, C<$_> is used.
+
+In list context, C<extract_delimited> returns a array of three
+elements, the extracted substring (I<including the surrounding
+delimiters>), the remainder of the text, and the skipped prefix (if
+any). If a suitable delimited substring is not found, the first
+element of the array is the empty string, the second is the complete
+original text, and the prefix returned in the third element is an
+empty string.
+
+In a scalar context, just the extracted substring is returned. In
+a void context, the extracted substring (and any prefix) are simply
+removed from the beginning of the first argument.
+
+Examples:
+
+	# Remove a single-quoted substring from the very beginning of $text:
+
+		$substring = extract_delimited($text, "'", '');
+
+	# Remove a single-quoted Pascalish substring (i.e. one in which
+	# doubling the quote character escapes it) from the very
+	# beginning of $text:
+
+		$substring = extract_delimited($text, "'", '', "'");
+
+	# Extract a single- or double- quoted substring from the
+	# beginning of $text, optionally after some whitespace
+	# (note the list context to protect $text from modification):
+
+		($substring) = extract_delimited $text, q{"'};
+
+	# Delete the substring delimited by the first '/' in $text:
+
+		$text = join '', (extract_delimited($text,'/','[^/]*')[2,1];
+
+Note that this last example is I<not> the same as deleting the first
+quote-like pattern. For instance, if C<$text> contained the string:
+
+	"if ('./cmd' =~ m/$UNIXCMD/s) { $cmd = $1; }"
+	
+then after the deletion it would contain:
+
+	"if ('.$UNIXCMD/s) { $cmd = $1; }"
+
+not:
+
+	"if ('./cmd' =~ ms) { $cmd = $1; }"
+	
+See L<"extract_quotelike"> for a (partial) solution to this problem.
+
+=head2 C<extract_bracketed>
+
+Like C<"extract_delimited">, the C<extract_bracketed> function takes
+up to three optional scalar arguments: a string to extract from, a delimiter
+specifier, and a prefix pattern. As before, a missing prefix defaults to
+optional whitespace and a missing text defaults to C<$_>. However, a missing
+delimiter specifier defaults to C<'{}()[]E<lt>E<gt>'> (see below).
+
+C<extract_bracketed> extracts a balanced-bracket-delimited
+substring (using any one (or more) of the user-specified delimiter
+brackets: '(..)', '{..}', '[..]', or '<..>'). Optionally it will also
+respect quoted unbalanced brackets (see below).
+
+A "delimiter bracket" is a bracket in list of delimiters passed as
+C<extract_bracketed>'s second argument. Delimiter brackets are
+specified by giving either the left or right (or both!) versions
+of the required bracket(s). Note that the order in which
+two or more delimiter brackets are specified is not significant.
+
+A "balanced-bracket-delimited substring" is a substring bounded by
+matched brackets, such that any other (left or right) delimiter
+bracket I<within> the substring is also matched by an opposite
+(right or left) delimiter bracket I<at the same level of nesting>. Any
+type of bracket not in the delimiter list is treated as an ordinary
+character.
+
+In other words, each type of bracket specified as a delimiter must be
+balanced and correctly nested within the substring, and any other kind of
+("non-delimiter") bracket in the substring is ignored.
+
+For example, given the string:
+
+	$text = "{ an '[irregularly :-(] {} parenthesized >:-)' string }";
+
+then a call to C<extract_bracketed> in a list context:
+
+	@result = extract_bracketed( $text, '{}' );
+
+would return:
+
+	( "{ an '[irregularly :-(] {} parenthesized >:-)' string }" , "" , "" )
+
+since both sets of C<'{..}'> brackets are properly nested and evenly balanced.
+(In a scalar context just the first element of the array would be returned. In
+a void context, C<$text> would be replaced by an empty string.)
+
+Likewise the call in:
+
+	@result = extract_bracketed( $text, '{[' );
+
+would return the same result, since all sets of both types of specified
+delimiter brackets are correctly nested and balanced.
+
+However, the call in:
+
+	@result = extract_bracketed( $text, '{([<' );
+
+would fail, returning:
+
+	( undef , "{ an '[irregularly :-(] {} parenthesized >:-)' string }"  );
+
+because the embedded pairs of C<'(..)'>s and C<'[..]'>s are "cross-nested" and
+the embedded C<'E<gt>'> is unbalanced. (In a scalar context, this call would
+return an empty string. In a void context, C<$text> would be unchanged.)
+
+Note that the embedded single-quotes in the string don't help in this
+case, since they have not been specified as acceptable delimiters and are
+therefore treated as non-delimiter characters (and ignored).
+
+However, if a particular species of quote character is included in the
+delimiter specification, then that type of quote will be correctly handled.
+for example, if C<$text> is:
+
+	$text = '<A HREF=">>>>">link</A>';
+
+then
+
+	@result = extract_bracketed( $text, '<">' );
+
+returns:
+
+	( '<A HREF=">>>>">', 'link</A>', "" )
+
+as expected. Without the specification of C<"> as an embedded quoter:
+
+	@result = extract_bracketed( $text, '<>' );
+
+the result would be:
+
+	( '<A HREF=">', '>>>">link</A>', "" )
+
+In addition to the quote delimiters C<'>, C<">, and C<`>, full Perl quote-like
+quoting (i.e. q{string}, qq{string}, etc) can be specified by including the
+letter 'q' as a delimiter. Hence:
+
+	@result = extract_bracketed( $text, '<q>' );
+
+would correctly match something like this:
+
+	$text = '<leftop: conj /and/ conj>';
+
+See also: C<"extract_quotelike"> and C<"extract_codeblock">.
+
+=head2 C<extract_variable>
+
+C<extract_variable> extracts any valid Perl variable or
+variable-involved expression, including scalars, arrays, hashes, array
+accesses, hash look-ups, method calls through objects, subroutine calls
+through subroutine references, etc.
+
+The subroutine takes up to two optional arguments:
+
+=over 4
+
+=item 1.
+
+A string to be processed (C<$_> if the string is omitted or C<undef>)
+
+=item 2.
+
+A string specifying a pattern to be matched as a prefix (which is to be
+skipped). If omitted, optional whitespace is skipped.
+
+=back
+
+On success in a list context, an array of 3 elements is returned. The
+elements are:
+
+=over 4
+
+=item [0]
+
+the extracted variable, or variablish expression
+
+=item [1]
+
+the remainder of the input text,
+
+=item [2]
+
+the prefix substring (if any),
+
+=back
+
+On failure, all of these values (except the remaining text) are C<undef>.
+
+In a scalar context, C<extract_variable> returns just the complete
+substring that matched a variablish expression. C<undef> is returned on
+failure. In addition, the original input text has the returned substring
+(and any prefix) removed from it.
+
+In a void context, the input text just has the matched substring (and
+any specified prefix) removed.
+
+
+=head2 C<extract_tagged>
+
+C<extract_tagged> extracts and segments text between (balanced)
+specified tags. 
+
+The subroutine takes up to five optional arguments:
+
+=over 4
+
+=item 1.
+
+A string to be processed (C<$_> if the string is omitted or C<undef>)
+
+=item 2.
+
+A string specifying a pattern to be matched as the opening tag.
+If the pattern string is omitted (or C<undef>) then a pattern
+that matches any standard XML tag is used.
+
+=item 3.
+
+A string specifying a pattern to be matched at the closing tag. 
+If the pattern string is omitted (or C<undef>) then the closing
+tag is constructed by inserting a C</> after any leading bracket
+characters in the actual opening tag that was matched (I<not> the pattern
+that matched the tag). For example, if the opening tag pattern
+is specified as C<'{{\w+}}'> and actually matched the opening tag 
+C<"{{DATA}}">, then the constructed closing tag would be C<"{{/DATA}}">.
+
+=item 4.
+
+A string specifying a pattern to be matched as a prefix (which is to be
+skipped). If omitted, optional whitespace is skipped.
+
+=item 5.
+
+A hash reference containing various parsing options (see below)
+
+=back
+
+The various options that can be specified are:
+
+=over 4
+
+=item C<reject =E<gt> $listref>
+
+The list reference contains one or more strings specifying patterns
+that must I<not> appear within the tagged text.
+
+For example, to extract
+an HTML link (which should not contain nested links) use:
+
+        extract_tagged($text, '<A>', '</A>', undef, {reject => ['<A>']} );
+
+=item C<ignore =E<gt> $listref>
+
+The list reference contains one or more strings specifying patterns
+that are I<not> be be treated as nested tags within the tagged text
+(even if they would match the start tag pattern).
+
+For example, to extract an arbitrary XML tag, but ignore "empty" elements:
+
+        extract_tagged($text, undef, undef, undef, {ignore => ['<[^>]*/>']} );
+
+(also see L<"gen_delimited_pat"> below).
+
+=item C<fail =E<gt> $str>
+
+The C<fail> option indicates the action to be taken if a matching end
+tag is not encountered (i.e. before the end of the string or some
+C<reject> pattern matches). By default, a failure to match a closing
+tag causes C<extract_tagged> to immediately fail.
+
+However, if the string value associated with <reject> is "MAX", then
+C<extract_tagged> returns the complete text up to the point of failure.
+If the string is "PARA", C<extract_tagged> returns only the first paragraph
+after the tag (up to the first line that is either empty or contains
+only whitespace characters).
+If the string is "", the the default behaviour (i.e. failure) is reinstated.
+
+For example, suppose the start tag "/para" introduces a paragraph, which then
+continues until the next "/endpara" tag or until another "/para" tag is
+encountered:
+
+        $text = "/para line 1\n\nline 3\n/para line 4";
+
+        extract_tagged($text, '/para', '/endpara', undef,
+                                {reject => '/para', fail => MAX );
+
+        # EXTRACTED: "/para line 1\n\nline 3\n"
+
+Suppose instead, that if no matching "/endpara" tag is found, the "/para"
+tag refers only to the immediately following paragraph:
+
+        $text = "/para line 1\n\nline 3\n/para line 4";
+
+        extract_tagged($text, '/para', '/endpara', undef,
+                        {reject => '/para', fail => MAX );
+
+        # EXTRACTED: "/para line 1\n"
+
+Note that the specified C<fail> behaviour applies to nested tags as well.
+
+=back
+
+On success in a list context, an array of 6 elements is returned. The elements are:
+
+=over 4
+
+=item [0]
+
+the extracted tagged substring (including the outermost tags),
+
+=item [1]
+
+the remainder of the input text,
+
+=item [2]
+
+the prefix substring (if any),
+
+=item [3]
+
+the opening tag
+
+=item [4]
+
+the text between the opening and closing tags
+
+=item [5]
+
+the closing tag (or "" if no closing tag was found)
+
+=back
+
+On failure, all of these values (except the remaining text) are C<undef>.
+
+In a scalar context, C<extract_tagged> returns just the complete
+substring that matched a tagged text (including the start and end
+tags). C<undef> is returned on failure. In addition, the original input
+text has the returned substring (and any prefix) removed from it.
+
+In a void context, the input text just has the matched substring (and
+any specified prefix) removed.
+
+=head2 C<gen_extract_tagged>
+
+(Note: This subroutine is only available under Perl5.005)
+
+C<gen_extract_tagged> generates a new anonymous subroutine which
+extracts text between (balanced) specified tags. In other words,
+it generates a function identical in function to C<extract_tagged>.
+
+The difference between C<extract_tagged> and the anonymous
+subroutines generated by
+C<gen_extract_tagged>, is that those generated subroutines:
+
+=over 4
+
+=item * 
+
+do not have to reparse tag specification or parsing options every time
+they are called (whereas C<extract_tagged> has to effectively rebuild
+its tag parser on every call);
+
+=item *
+
+make use of the new qr// construct to pre-compile the regexes they use
+(whereas C<extract_tagged> uses standard string variable interpolation 
+to create tag-matching patterns).
+
+=back
+
+The subroutine takes up to four optional arguments (the same set as
+C<extract_tagged> except for the string to be processed). It returns
+a reference to a subroutine which in turn takes a single argument (the text to
+be extracted from).
+
+In other words, the implementation of C<extract_tagged> is exactly
+equivalent to:
+
+        sub extract_tagged
+        {
+                my $text = shift;
+                $extractor = gen_extract_tagged(@_);
+                return $extractor->($text);
+        }
+
+(although C<extract_tagged> is not currently implemented that way, in order
+to preserve pre-5.005 compatibility).
+
+Using C<gen_extract_tagged> to create extraction functions for specific tags 
+is a good idea if those functions are going to be called more than once, since
+their performance is typically twice as good as the more general-purpose
+C<extract_tagged>.
+
+
+=head2 C<extract_quotelike>
+
+C<extract_quotelike> attempts to recognize, extract, and segment any
+one of the various Perl quotes and quotelike operators (see
+L<perlop(3)>) Nested backslashed delimiters, embedded balanced bracket
+delimiters (for the quotelike operators), and trailing modifiers are
+all caught. For example, in:
+
+        extract_quotelike 'q # an octothorpe: \# (not the end of the q!) #'
+        
+        extract_quotelike '  "You said, \"Use sed\"."  '
+
+        extract_quotelike ' s{([A-Z]{1,8}\.[A-Z]{3})} /\L$1\E/; '
+
+        extract_quotelike ' tr/\\\/\\\\/\\\//ds; '
+
+the full Perl quotelike operations are all extracted correctly.
+
+Note too that, when using the /x modifier on a regex, any comment
+containing the current pattern delimiter will cause the regex to be
+immediately terminated. In other words:
+
+        'm /
+                (?i)            # CASE INSENSITIVE
+                [a-z_]          # LEADING ALPHABETIC/UNDERSCORE
+                [a-z0-9]*       # FOLLOWED BY ANY NUMBER OF ALPHANUMERICS
+           /x'
+
+will be extracted as if it were:
+
+        'm /
+                (?i)            # CASE INSENSITIVE
+                [a-z_]          # LEADING ALPHABETIC/'
+
+This behaviour is identical to that of the actual compiler.
+
+C<extract_quotelike> takes two arguments: the text to be processed and
+a prefix to be matched at the very beginning of the text. If no prefix 
+is specified, optional whitespace is the default. If no text is given,
+C<$_> is used.
+
+In a list context, an array of 11 elements is returned. The elements are:
+
+=over 4
+
+=item [0]
+
+the extracted quotelike substring (including trailing modifiers),
+
+=item [1]
+
+the remainder of the input text,
+
+=item [2]
+
+the prefix substring (if any),
+
+=item [3]
+
+the name of the quotelike operator (if any),
+
+=item [4]
+
+the left delimiter of the first block of the operation,
+
+=item [5]
+
+the text of the first block of the operation
+(that is, the contents of
+a quote, the regex of a match or substitution or the target list of a
+translation),
+
+=item [6]
+
+the right delimiter of the first block of the operation,
+
+=item [7]
+
+the left delimiter of the second block of the operation
+(that is, if it is a C<s>, C<tr>, or C<y>),
+
+=item [8]
+
+the text of the second block of the operation 
+(that is, the replacement of a substitution or the translation list
+of a translation),
+
+=item [9]
+
+the right delimiter of the second block of the operation (if any),
+
+=item [10]
+
+the trailing modifiers on the operation (if any).
+
+=back
+
+For each of the fields marked "(if any)" the default value on success is
+an empty string.
+On failure, all of these values (except the remaining text) are C<undef>.
+
+In a scalar context, C<extract_quotelike> returns just the complete substring
+that matched a quotelike operation (or C<undef> on failure). In a scalar or
+void context, the input text has the same substring (and any specified
+prefix) removed.
+
+Examples:
+
+        # Remove the first quotelike literal that appears in text
+
+                $quotelike = extract_quotelike($text,'.*?');
+
+        # Replace one or more leading whitespace-separated quotelike
+        # literals in $_ with "<QLL>"
+
+                do { $_ = join '<QLL>', (extract_quotelike)[2,1] } until $@;
+
+
+        # Isolate the search pattern in a quotelike operation from $text
+
+                ($op,$pat) = (extract_quotelike $text)[3,5];
+                if ($op =~ /[ms]/)
+                {
+                        print "search pattern: $pat\n";
+                }
+                else
+                {
+                        print "$op is not a pattern matching operation\n";
+                }
+
+=head2 C<extract_quotelike> and "here documents"
+
+C<extract_quotelike> can successfully extract "here documents" from an input
+string, but with an important caveat in list contexts.
+
+Unlike other types of quote-like literals, a here document is rarely
+a contiguous substring. For example, a typical piece of code using
+here document might look like this:
+
+        <<'EOMSG' || die;
+        This is the message.
+        EOMSG
+        exit;
+
+Given this as an input string in a scalar context, C<extract_quotelike>
+would correctly return the string "<<'EOMSG'\nThis is the message.\nEOMSG",
+leaving the string " || die;\nexit;" in the original variable. In other words,
+the two separate pieces of the here document are successfully extracted and
+concatenated.
+
+In a list context, C<extract_quotelike> would return the list
+
+=over 4
+
+=item [0]
+
+"<<'EOMSG'\nThis is the message.\nEOMSG\n" (i.e. the full extracted here document,
+including fore and aft delimiters),
+
+=item [1]
+
+" || die;\nexit;" (i.e. the remainder of the input text, concatenated),
+
+=item [2]
+
+"" (i.e. the prefix substring -- trivial in this case),
+
+=item [3]
+
+"<<" (i.e. the "name" of the quotelike operator)
+
+=item [4]
+
+"'EOMSG'" (i.e. the left delimiter of the here document, including any quotes),
+
+=item [5]
+
+"This is the message.\n" (i.e. the text of the here document),
+
+=item [6]
+
+"EOMSG" (i.e. the right delimiter of the here document),
+
+=item [7..10]
+
+"" (a here document has no second left delimiter, second text, second right
+delimiter, or trailing modifiers).
+
+=back
+
+However, the matching position of the input variable would be set to
+"exit;" (i.e. I<after> the closing delimiter of the here document),
+which would cause the earlier " || die;\nexit;" to be skipped in any
+sequence of code fragment extractions.
+
+To avoid this problem, when it encounters a here document whilst
+extracting from a modifiable string, C<extract_quotelike> silently
+rearranges the string to an equivalent piece of Perl:
+
+        <<'EOMSG'
+        This is the message.
+        EOMSG
+        || die;
+        exit;
+
+in which the here document I<is> contiguous. It still leaves the
+matching position after the here document, but now the rest of the line
+on which the here document starts is not skipped.
+
+To prevent <extract_quotelike> from mucking about with the input in this way
+(this is the only case where a list-context C<extract_quotelike> does so),
+you can pass the input variable as an interpolated literal:
+
+        $quotelike = extract_quotelike("$var");
+
+=head2 C<extract_codeblock>
+
+C<extract_codeblock> attempts to recognize and extract a balanced
+bracket delimited substring that may contain unbalanced brackets
+inside Perl quotes or quotelike operations. That is, C<extract_codeblock>
+is like a combination of C<"extract_bracketed"> and
+C<"extract_quotelike">.
+
+C<extract_codeblock> takes the same initial three parameters as C<extract_bracketed>:
+a text to process, a set of delimiter brackets to look for, and a prefix to
+match first. It also takes an optional fourth parameter, which allows the
+outermost delimiter brackets to be specified separately (see below).
+
+Omitting the first argument (input text) means process C<$_> instead.
+Omitting the second argument (delimiter brackets) indicates that only C<'{'> is to be used.
+Omitting the third argument (prefix argument) implies optional whitespace at the start.
+Omitting the fourth argument (outermost delimiter brackets) indicates that the
+value of the second argument is to be used for the outermost delimiters.
+
+Once the prefix an dthe outermost opening delimiter bracket have been
+recognized, code blocks are extracted by stepping through the input text and
+trying the following alternatives in sequence:
+
+=over 4
+
+=item 1.
+
+Try and match a closing delimiter bracket. If the bracket was the same
+species as the last opening bracket, return the substring to that
+point. If the bracket was mismatched, return an error.
+
+=item 2.
+
+Try to match a quote or quotelike operator. If found, call
+C<extract_quotelike> to eat it. If C<extract_quotelike> fails, return
+the error it returned. Otherwise go back to step 1.
+
+=item 3.
+
+Try to match an opening delimiter bracket. If found, call
+C<extract_codeblock> recursively to eat the embedded block. If the
+recursive call fails, return an error. Otherwise, go back to step 1.
+
+=item 4.
+
+Unconditionally match a bareword or any other single character, and
+then go back to step 1.
+
+=back
+
+Examples:
+
+        # Find a while loop in the text
+
+                if ($text =~ s/.*?while\s*\{/{/)
+                {
+                        $loop = "while " . extract_codeblock($text);
+                }
+
+        # Remove the first round-bracketed list (which may include
+        # round- or curly-bracketed code blocks or quotelike operators)
+
+                extract_codeblock $text, "(){}", '[^(]*';
+
+
+The ability to specify a different outermost delimiter bracket is useful
+in some circumstances. For example, in the Parse::RecDescent module,
+parser actions which are to be performed only on a successful parse
+are specified using a C<E<lt>defer:...E<gt>> directive. For example:
+
+        sentence: subject verb object
+                        <defer: {$::theVerb = $item{verb}} >
+
+Parse::RecDescent uses C<extract_codeblock($text, '{}E<lt>E<gt>')> to extract the code
+within the C<E<lt>defer:...E<gt>> directive, but there's a problem.
+
+A deferred action like this:
+
+                        <defer: {if ($count>10) {$count--}} >
+
+will be incorrectly parsed as:
+
+                        <defer: {if ($count>
+
+because the "less than" operator is interpreted as a closing delimiter.
+
+But, by extracting the directive using
+S<C<extract_codeblock($text, '{}', undef, 'E<lt>E<gt>')>>
+the '>' character is only treated as a delimited at the outermost
+level of the code block, so the directive is parsed correctly.
+
+=head2 C<extract_multiple>
+
+The C<extract_multiple> subroutine takes a string to be processed and a 
+list of extractors (subroutines or regular expressions) to apply to that string.
+
+In an array context C<extract_multiple> returns an array of substrings
+of the original string, as extracted by the specified extractors.
+In a scalar context, C<extract_multiple> returns the first
+substring successfully extracted from the original string. In both
+scalar and void contexts the original string has the first successfully
+extracted substring removed from it. In all contexts
+C<extract_multiple> starts at the current C<pos> of the string, and
+sets that C<pos> appropriately after it matches.
+
+Hence, the aim of of a call to C<extract_multiple> in a list context
+is to split the processed string into as many non-overlapping fields as
+possible, by repeatedly applying each of the specified extractors
+to the remainder of the string. Thus C<extract_multiple> is
+a generalized form of Perl's C<split> subroutine.
+
+The subroutine takes up to four optional arguments:
+
+=over 4
+
+=item 1.
+
+A string to be processed (C<$_> if the string is omitted or C<undef>)
+
+=item 2.
+
+A reference to a list of subroutine references and/or qr// objects and/or
+literal strings and/or hash references, specifying the extractors
+to be used to split the string. If this argument is omitted (or
+C<undef>) the list:
+
+        [
+                sub { extract_variable($_[0], '') },
+                sub { extract_quotelike($_[0],'') },
+                sub { extract_codeblock($_[0],'{}','') },
+        ]
+
+is used.
+
+=item 3.
+
+An number specifying the maximum number of fields to return. If this
+argument is omitted (or C<undef>), split continues as long as possible.
+
+If the third argument is I<N>, then extraction continues until I<N> fields
+have been successfully extracted, or until the string has been completely 
+processed.
+
+Note that in scalar and void contexts the value of this argument is 
+automatically reset to 1 (under C<-w>, a warning is issued if the argument 
+has to be reset).
+
+=item 4.
+
+A value indicating whether unmatched substrings (see below) within the
+text should be skipped or returned as fields. If the value is true,
+such substrings are skipped. Otherwise, they are returned.
+
+=back
+
+The extraction process works by applying each extractor in
+sequence to the text string.
+
+If the extractor is a subroutine it is called in a list context and is
+expected to return a list of a single element, namely the extracted
+text. It may optionally also return two further arguments: a string
+representing the text left after extraction (like $' for a pattern
+match), and a string representing any prefix skipped before the
+extraction (like $` in a pattern match). Note that this is designed
+to facilitate the use of other Text::Balanced subroutines with
+C<extract_multiple>. Note too that the value returned by an extractor
+subroutine need not bear any relationship to the corresponding substring
+of the original text (see examples below).
+
+If the extractor is a precompiled regular expression or a string,
+it is matched against the text in a scalar context with a leading
+'\G' and the gc modifiers enabled. The extracted value is either
+$1 if that variable is defined after the match, or else the
+complete match (i.e. $&).
+
+If the extractor is a hash reference, it must contain exactly one element.
+The value of that element is one of the
+above extractor types (subroutine reference, regular expression, or string).
+The key of that element is the name of a class into which the successful
+return value of the extractor will be blessed.
+
+If an extractor returns a defined value, that value is immediately
+treated as the next extracted field and pushed onto the list of fields.
+If the extractor was specified in a hash reference, the field is also
+blessed into the appropriate class, 
+
+If the extractor fails to match (in the case of a regex extractor), or returns an empty list or an undefined value (in the case of a subroutine extractor), it is
+assumed to have failed to extract.
+If none of the extractor subroutines succeeds, then one
+character is extracted from the start of the text and the extraction
+subroutines reapplied. Characters which are thus removed are accumulated and
+eventually become the next field (unless the fourth argument is true, in which
+case they are discarded).
+
+For example, the following extracts substrings that are valid Perl variables:
+
+        @fields = extract_multiple($text,
+                                   [ sub { extract_variable($_[0]) } ],
+                                   undef, 1);
+
+This example separates a text into fields which are quote delimited,
+curly bracketed, and anything else. The delimited and bracketed
+parts are also blessed to identify them (the "anything else" is unblessed):
+
+        @fields = extract_multiple($text,
+                   [
+                        { Delim => sub { extract_delimited($_[0],q{'"}) } },
+                        { Brack => sub { extract_bracketed($_[0],'{}') } },
+                   ]);
+
+This call extracts the next single substring that is a valid Perl quotelike
+operator (and removes it from $text):
+
+        $quotelike = extract_multiple($text,
+                                      [
+                                        sub { extract_quotelike($_[0]) },
+                                      ], undef, 1);
+
+Finally, here is yet another way to do comma-separated value parsing:
+
+        @fields = extract_multiple($csv_text,
+                                  [
+                                        sub { extract_delimited($_[0],q{'"}) },
+                                        qr/([^,]+)(.*)/,
+                                  ],
+                                  undef,1);
+
+The list in the second argument means:
+I<"Try and extract a ' or " delimited string, otherwise extract anything up to a comma...">.
+The undef third argument means:
+I<"...as many times as possible...">,
+and the true value in the fourth argument means
+I<"...discarding anything else that appears (i.e. the commas)">.
+
+If you wanted the commas preserved as separate fields (i.e. like split
+does if your split pattern has capturing parentheses), you would
+just make the last parameter undefined (or remove it).
+
+=head2 C<gen_delimited_pat>
+
+The C<gen_delimited_pat> subroutine takes a single (string) argument and
+   > builds a Friedl-style optimized regex that matches a string delimited
+by any one of the characters in the single argument. For example:
+
+        gen_delimited_pat(q{'"})
+
+returns the regex:
+
+        (?:\"(?:\\\"|(?!\").)*\"|\'(?:\\\'|(?!\').)*\')
+
+Note that the specified delimiters are automatically quotemeta'd.
+
+A typical use of C<gen_delimited_pat> would be to build special purpose tags
+for C<extract_tagged>. For example, to properly ignore "empty" XML elements
+(which might contain quoted strings):
+
+        my $empty_tag = '<(' . gen_delimited_pat(q{'"}) . '|.)+/>';
+
+        extract_tagged($text, undef, undef, undef, {ignore => [$empty_tag]} );
+
+C<gen_delimited_pat> may also be called with an optional second argument,
+which specifies the "escape" character(s) to be used for each delimiter.
+For example to match a Pascal-style string (where ' is the delimiter
+and '' is a literal ' within the string):
+
+        gen_delimited_pat(q{'},q{'});
+
+Different escape characters can be specified for different delimiters.
+For example, to specify that '/' is the escape for single quotes
+and '%' is the escape for double quotes:
+
+        gen_delimited_pat(q{'"},q{/%});
+
+If more delimiters than escape chars are specified, the last escape char
+is used for the remaining delimiters.
+If no escape char is specified for a given specified delimiter, '\' is used.
+
+=head2 C<delimited_pat>
+
+Note that C<gen_delimited_pat> was previously called C<delimited_pat>.
+That name may still be used, but is now deprecated.
+        
+
+=head1 DIAGNOSTICS
+
+In a list context, all the functions return C<(undef,$original_text)>
+on failure. In a scalar context, failure is indicated by returning C<undef>
+(in this case the input text is not modified in any way).
+
+In addition, on failure in I<any> context, the C<$@> variable is set.
+Accessing C<$@-E<gt>{error}> returns one of the error diagnostics listed
+below.
+Accessing C<$@-E<gt>{pos}> returns the offset into the original string at
+which the error was detected (although not necessarily where it occurred!)
+Printing C<$@> directly produces the error message, with the offset appended.
+On success, the C<$@> variable is guaranteed to be C<undef>.
+
+The available diagnostics are:
+
+=over 4
+
+=item  C<Did not find a suitable bracket: "%s">
+
+The delimiter provided to C<extract_bracketed> was not one of
+C<'()[]E<lt>E<gt>{}'>.
+
+=item  C<Did not find prefix: /%s/>
+
+A non-optional prefix was specified but wasn't found at the start of the text.
+
+=item  C<Did not find opening bracket after prefix: "%s">
+
+C<extract_bracketed> or C<extract_codeblock> was expecting a
+particular kind of bracket at the start of the text, and didn't find it.
+
+=item  C<No quotelike operator found after prefix: "%s">
+
+C<extract_quotelike> didn't find one of the quotelike operators C<q>,
+C<qq>, C<qw>, C<qx>, C<s>, C<tr> or C<y> at the start of the substring
+it was extracting.
+
+=item  C<Unmatched closing bracket: "%c">
+
+C<extract_bracketed>, C<extract_quotelike> or C<extract_codeblock> encountered
+a closing bracket where none was expected.
+
+=item  C<Unmatched opening bracket(s): "%s">
+
+C<extract_bracketed>, C<extract_quotelike> or C<extract_codeblock> ran 
+out of characters in the text before closing one or more levels of nested
+brackets.
+
+=item C<Unmatched embedded quote (%s)>
+
+C<extract_bracketed> attempted to match an embedded quoted substring, but
+failed to find a closing quote to match it.
+
+=item C<Did not find closing delimiter to match '%s'>
+
+C<extract_quotelike> was unable to find a closing delimiter to match the
+one that opened the quote-like operation.
+
+=item  C<Mismatched closing bracket: expected "%c" but found "%s">
+
+C<extract_bracketed>, C<extract_quotelike> or C<extract_codeblock> found
+a valid bracket delimiter, but it was the wrong species. This usually
+indicates a nesting error, but may indicate incorrect quoting or escaping.
+
+=item  C<No block delimiter found after quotelike "%s">
+
+C<extract_quotelike> or C<extract_codeblock> found one of the
+quotelike operators C<q>, C<qq>, C<qw>, C<qx>, C<s>, C<tr> or C<y>
+without a suitable block after it.
+
+=item C<Did not find leading dereferencer>
+
+C<extract_variable> was expecting one of '$', '@', or '%' at the start of
+a variable, but didn't find any of them.
+
+=item C<Bad identifier after dereferencer>
+
+C<extract_variable> found a '$', '@', or '%' indicating a variable, but that
+character was not followed by a legal Perl identifier.
+
+=item C<Did not find expected opening bracket at %s>
+
+C<extract_codeblock> failed to find any of the outermost opening brackets
+that were specified.
+
+=item C<Improperly nested codeblock at %s>
+
+A nested code block was found that started with a delimiter that was specified
+as being only to be used as an outermost bracket.
+
+=item  C<Missing second block for quotelike "%s">
+
+C<extract_codeblock> or C<extract_quotelike> found one of the
+quotelike operators C<s>, C<tr> or C<y> followed by only one block.
+
+=item C<No match found for opening bracket>
+
+C<extract_codeblock> failed to find a closing bracket to match the outermost
+opening bracket.
+
+=item C<Did not find opening tag: /%s/>
+
+C<extract_tagged> did not find a suitable opening tag (after any specified
+prefix was removed).
+
+=item C<Unable to construct closing tag to match: /%s/>
+
+C<extract_tagged> matched the specified opening tag and tried to
+modify the matched text to produce a matching closing tag (because
+none was specified). It failed to generate the closing tag, almost
+certainly because the opening tag did not start with a
+bracket of some kind.
+
+=item C<Found invalid nested tag: %s>
+
+C<extract_tagged> found a nested tag that appeared in the "reject" list
+(and the failure mode was not "MAX" or "PARA").
+
+=item C<Found unbalanced nested tag: %s>
+
+C<extract_tagged> found a nested opening tag that was not matched by a
+corresponding nested closing tag (and the failure mode was not "MAX" or "PARA").
+
+=item C<Did not find closing tag>
+
+C<extract_tagged> reached the end of the text without finding a closing tag
+to match the original opening tag (and the failure mode was not
+"MAX" or "PARA").
+
+=back
+
+=head1 AUTHOR
+
+Damian Conway (damian@conway.org)
+
+=head1 BUGS AND IRRITATIONS
+
+There are undoubtedly serious bugs lurking somewhere in this code, if
+only because parts of it give the impression of understanding a great deal
+more about Perl than they really do. 
+
+Bug reports and other feedback are most welcome.
+
+=head1 COPYRIGHT
+
+Copyright 1997 - 2001 Damian Conway. All Rights Reserved.
+
+Some (minor) parts copyright 2009 Adam Kennedy.
+
+This module is free software. It may be used, redistributed
+and/or modified under the same terms as Perl itself.
+
+=cut
diff --git a/lib/5.24.1/Text/ParseWords.pm b/lib/5.24.1/Text/ParseWords.pm
new file mode 100644
index 00000000..87f9c70a
--- /dev/null
+++ b/lib/5.24.1/Text/ParseWords.pm
@@ -0,0 +1,303 @@
+package Text::ParseWords;
+
+use strict;
+require 5.006;
+our $VERSION = "3.30";
+
+
+use Exporter;
+our @ISA = qw(Exporter);
+our @EXPORT = qw(shellwords quotewords nested_quotewords parse_line);
+our @EXPORT_OK = qw(old_shellwords);
+our $PERL_SINGLE_QUOTE;
+
+
+sub shellwords {
+    my (@lines) = @_;
+    my @allwords;
+
+    foreach my $line (@lines) {
+	$line =~ s/^\s+//;
+	my @words = parse_line('\s+', 0, $line);
+	pop @words if (@words and !defined $words[-1]);
+	return() unless (@words || !length($line));
+	push(@allwords, @words);
+    }
+    return(@allwords);
+}
+
+
+
+sub quotewords {
+    my($delim, $keep, @lines) = @_;
+    my($line, @words, @allwords);
+
+    foreach $line (@lines) {
+	@words = parse_line($delim, $keep, $line);
+	return() unless (@words || !length($line));
+	push(@allwords, @words);
+    }
+    return(@allwords);
+}
+
+
+
+sub nested_quotewords {
+    my($delim, $keep, @lines) = @_;
+    my($i, @allwords);
+
+    for ($i = 0; $i < @lines; $i++) {
+	@{$allwords[$i]} = parse_line($delim, $keep, $lines[$i]);
+	return() unless (@{$allwords[$i]} || !length($lines[$i]));
+    }
+    return(@allwords);
+}
+
+
+
+sub parse_line {
+    my($delimiter, $keep, $line) = @_;
+    my($word, @pieces);
+
+    no warnings 'uninitialized';	# we will be testing undef strings
+
+    while (length($line)) {
+        # This pattern is optimised to be stack conservative on older perls.
+        # Do not refactor without being careful and testing it on very long strings.
+        # See Perl bug #42980 for an example of a stack busting input.
+        $line =~ s/^
+                    (?: 
+                        # double quoted string
+                        (")                             # $quote
+                        ((?>[^\\"]*(?:\\.[^\\"]*)*))"   # $quoted 
+		    |	# --OR--
+                        # singe quoted string
+                        (')                             # $quote
+                        ((?>[^\\']*(?:\\.[^\\']*)*))'   # $quoted
+                    |   # --OR--
+                        # unquoted string
+		        (                               # $unquoted 
+                            (?:\\.|[^\\"'])*?           
+                        )		
+                        # followed by
+		        (                               # $delim
+                            \Z(?!\n)                    # EOL
+                        |   # --OR--
+                            (?-x:$delimiter)            # delimiter
+                        |   # --OR--                    
+                            (?!^)(?=["'])               # a quote
+                        )  
+		    )//xs or return;		# extended layout                  
+        my ($quote, $quoted, $unquoted, $delim) = (($1 ? ($1,$2) : ($3,$4)), $5, $6);
+
+
+	return() unless( defined($quote) || length($unquoted) || length($delim));
+
+        if ($keep) {
+	    $quoted = "$quote$quoted$quote";
+	}
+        else {
+	    $unquoted =~ s/\\(.)/$1/sg;
+	    if (defined $quote) {
+		$quoted =~ s/\\(.)/$1/sg if ($quote eq '"');
+		$quoted =~ s/\\([\\'])/$1/g if ( $PERL_SINGLE_QUOTE && $quote eq "'");
+            }
+	}
+        $word .= substr($line, 0, 0);	# leave results tainted
+        $word .= defined $quote ? $quoted : $unquoted;
+ 
+        if (length($delim)) {
+            push(@pieces, $word);
+            push(@pieces, $delim) if ($keep eq 'delimiters');
+            undef $word;
+        }
+        if (!length($line)) {
+            push(@pieces, $word);
+	}
+    }
+    return(@pieces);
+}
+
+
+
+sub old_shellwords {
+
+    # Usage:
+    #	use ParseWords;
+    #	@words = old_shellwords($line);
+    #	or
+    #	@words = old_shellwords(@lines);
+    #	or
+    #	@words = old_shellwords();	# defaults to $_ (and clobbers it)
+
+    no warnings 'uninitialized';	# we will be testing undef strings
+    local *_ = \join('', @_) if @_;
+    my (@words, $snippet);
+
+    s/\A\s+//;
+    while ($_ ne '') {
+	my $field = substr($_, 0, 0);	# leave results tainted
+	for (;;) {
+	    if (s/\A"(([^"\\]|\\.)*)"//s) {
+		($snippet = $1) =~ s#\\(.)#$1#sg;
+	    }
+	    elsif (/\A"/) {
+		require Carp;
+		Carp::carp("Unmatched double quote: $_");
+		return();
+	    }
+	    elsif (s/\A'(([^'\\]|\\.)*)'//s) {
+		($snippet = $1) =~ s#\\(.)#$1#sg;
+	    }
+	    elsif (/\A'/) {
+		require Carp;
+		Carp::carp("Unmatched single quote: $_");
+		return();
+	    }
+	    elsif (s/\A\\(.?)//s) {
+		$snippet = $1;
+	    }
+	    elsif (s/\A([^\s\\'"]+)//) {
+		$snippet = $1;
+	    }
+	    else {
+		s/\A\s+//;
+		last;
+	    }
+	    $field .= $snippet;
+	}
+	push(@words, $field);
+    }
+    return @words;
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+Text::ParseWords - parse text into an array of tokens or array of arrays
+
+=head1 SYNOPSIS
+
+  use Text::ParseWords;
+  @lists = nested_quotewords($delim, $keep, @lines);
+  @words = quotewords($delim, $keep, @lines);
+  @words = shellwords(@lines);
+  @words = parse_line($delim, $keep, $line);
+  @words = old_shellwords(@lines); # DEPRECATED!
+
+=head1 DESCRIPTION
+
+The &nested_quotewords() and &quotewords() functions accept a delimiter 
+(which can be a regular expression)
+and a list of lines and then breaks those lines up into a list of
+words ignoring delimiters that appear inside quotes.  &quotewords()
+returns all of the tokens in a single long list, while &nested_quotewords()
+returns a list of token lists corresponding to the elements of @lines.
+&parse_line() does tokenizing on a single string.  The &*quotewords()
+functions simply call &parse_line(), so if you're only splitting
+one line you can call &parse_line() directly and save a function
+call.
+
+The $keep argument is a boolean flag.  If true, then the tokens are
+split on the specified delimiter, but all other characters (including
+quotes and backslashes) are kept in the tokens.  If $keep is false then the
+&*quotewords() functions remove all quotes and backslashes that are
+not themselves backslash-escaped or inside of single quotes (i.e.,
+&quotewords() tries to interpret these characters just like the Bourne
+shell).  NB: these semantics are significantly different from the
+original version of this module shipped with Perl 5.000 through 5.004.
+As an additional feature, $keep may be the keyword "delimiters" which
+causes the functions to preserve the delimiters in each string as
+tokens in the token lists, in addition to preserving quote and
+backslash characters.
+
+&shellwords() is written as a special case of &quotewords(), and it
+does token parsing with whitespace as a delimiter-- similar to most
+Unix shells.
+
+=head1 EXAMPLES
+
+The sample program:
+
+  use Text::ParseWords;
+  @words = quotewords('\s+', 0, q{this   is "a test" of\ quotewords \"for you});
+  $i = 0;
+  foreach (@words) {
+      print "$i: <$_>\n";
+      $i++;
+  }
+
+produces:
+
+  0: <this>
+  1: <is>
+  2: <a test>
+  3: <of quotewords>
+  4: <"for>
+  5: <you>
+
+demonstrating:
+
+=over 4
+
+=item 0Z<>
+
+a simple word
+
+=item 1Z<>
+
+multiple spaces are skipped because of our $delim
+
+=item 2Z<>
+
+use of quotes to include a space in a word
+
+=item 3Z<>
+
+use of a backslash to include a space in a word
+
+=item 4Z<>
+
+use of a backslash to remove the special meaning of a double-quote
+
+=item 5Z<>
+
+another simple word (note the lack of effect of the
+backslashed double-quote)
+
+=back
+
+Replacing C<quotewords('\s+', 0, q{this   is...})>
+with C<shellwords(q{this   is...})>
+is a simpler way to accomplish the same thing.
+
+=head1 SEE ALSO
+
+L<Text::CSV> - for parsing CSV files
+
+=head1 AUTHORS
+
+Maintainer: Alexandr Ciornii <alexchornyATgmail.com>.
+
+Previous maintainer: Hal Pomeranz <pomeranz@netcom.com>, 1994-1997 (Original
+author unknown).  Much of the code for &parse_line() (including the
+primary regexp) from Joerk Behrends <jbehrends@multimediaproduzenten.de>.
+
+Examples section another documentation provided by John Heidemann 
+<johnh@ISI.EDU>
+
+Bug reports, patches, and nagging provided by lots of folks-- thanks
+everybody!  Special thanks to Michael Schwern <schwern@envirolink.org>
+for assuring me that a &nested_quotewords() would be useful, and to 
+Jeff Friedl <jfriedl@yahoo-inc.com> for telling me not to worry about
+error-checking (sort of-- you had to be there).
+
+=head1 COPYRIGHT AND LICENSE
+
+This library is free software; you may redistribute and/or modify it
+under the same terms as Perl itself.
+
+=cut
diff --git a/lib/5.24.1/Text/Tabs.pm b/lib/5.24.1/Text/Tabs.pm
new file mode 100644
index 00000000..07fe2b8b
--- /dev/null
+++ b/lib/5.24.1/Text/Tabs.pm
@@ -0,0 +1,192 @@
+package Text::Tabs;
+
+require Exporter;
+
+@ISA = (Exporter);
+@EXPORT = qw(expand unexpand $tabstop);
+
+use vars qw($VERSION $SUBVERSION $tabstop $debug);
+$VERSION = 2013.0523;
+$SUBVERSION = 'modern';
+
+use strict;
+
+use 5.010_000;
+
+BEGIN	{
+	$tabstop = 8;
+	$debug = 0;
+}
+
+my $CHUNK = qr/\X/;
+
+sub _xlen (_) { scalar(() = $_[0] =~ /$CHUNK/g) } 
+sub _xpos (_) { _xlen( substr( $_[0], 0, pos($_[0]) ) ) }
+
+sub expand {
+	my @l;
+	my $pad;
+	for ( @_ ) {
+		my $s = '';
+		for (split(/^/m, $_, -1)) {
+			my $offs = 0;
+			s{\t}{
+			    # this works on both 5.10 and 5.11
+				$pad = $tabstop - (_xlen(${^PREMATCH}) + $offs) % $tabstop;
+			    # this works on 5.11, but fails on 5.10
+				#XXX# $pad = $tabstop - (_xpos() + $offs) % $tabstop;
+				$offs += $pad - 1;
+				" " x $pad;
+			}peg;
+			$s .= $_;
+		}
+		push(@l, $s);
+	}
+	return @l if wantarray;
+	return $l[0];
+}
+
+sub unexpand
+{
+	my (@l) = @_;
+	my @e;
+	my $x;
+	my $line;
+	my @lines;
+	my $lastbit;
+	my $ts_as_space = " " x $tabstop;
+	for $x (@l) {
+		@lines = split("\n", $x, -1);
+		for $line (@lines) {
+			$line = expand($line);
+			@e = split(/(${CHUNK}{$tabstop})/,$line,-1);
+			$lastbit = pop(@e);
+			$lastbit = '' 
+				unless defined $lastbit;
+			$lastbit = "\t"
+				if $lastbit eq $ts_as_space;
+			for $_ (@e) {
+				if ($debug) {
+					my $x = $_;
+					$x =~ s/\t/^I\t/gs;
+					print "sub on '$x'\n";
+				}
+				s/  +$/\t/;
+			}
+			$line = join('',@e, $lastbit);
+		}
+		$x = join("\n", @lines);
+	}
+	return @l if wantarray;
+	return $l[0];
+}
+
+1;
+__END__
+
+sub expand
+{
+	my (@l) = @_;
+	for $_ (@l) {
+		1 while s/(^|\n)([^\t\n]*)(\t+)/
+			$1. $2 . (" " x 
+				($tabstop * length($3)
+				- (length($2) % $tabstop)))
+			/sex;
+	}
+	return @l if wantarray;
+	return $l[0];
+}
+
+
+=head1 NAME
+
+Text::Tabs - expand and unexpand tabs like unix expand(1) and unexpand(1)
+
+=head1 SYNOPSIS
+
+  use Text::Tabs;
+
+  $tabstop = 4;  # default = 8
+  @lines_without_tabs = expand(@lines_with_tabs);
+  @lines_with_tabs = unexpand(@lines_without_tabs);
+
+=head1 DESCRIPTION
+
+Text::Tabs does most of what the unix utilities expand(1) and unexpand(1) 
+do.  Given a line with tabs in it, C<expand> replaces those tabs with
+the appropriate number of spaces.  Given a line with or without tabs in
+it, C<unexpand> adds tabs when it can save bytes by doing so, 
+like the C<unexpand -a> command.  
+
+Unlike the old unix utilities, this module correctly accounts for
+any Unicode combining characters (such as diacriticals) that may occur
+in each line for both expansion and unexpansion.  These are overstrike
+characters that do not increment the logical position.  Make sure
+you have the appropriate Unicode settings enabled.
+
+=head1 EXPORTS
+
+The following are exported:
+
+=over 4
+
+=item expand
+
+=item unexpand
+
+=item $tabstop
+
+The C<$tabstop> variable controls how many column positions apart each
+tabstop is.  The default is 8.
+
+Please note that C<local($tabstop)> doesn't do the right thing and if you want
+to use C<local> to override C<$tabstop>, you need to use
+C<local($Text::Tabs::tabstop)>.
+
+=back
+
+=head1 EXAMPLE
+
+  #!perl
+  # unexpand -a
+  use Text::Tabs;
+
+  while (<>) {
+    print unexpand $_;
+  }
+
+Instead of the shell's C<expand> command, use:
+
+  perl -MText::Tabs -n -e 'print expand $_'
+
+Instead of the shell's C<unexpand -a> command, use:
+
+  perl -MText::Tabs -n -e 'print unexpand $_'
+
+=head1 SUBVERSION
+
+This module comes in two flavors: one for modern perls (5.10 and above)
+and one for ancient obsolete perls.  The version for modern perls has
+support for Unicode.  The version for old perls does not.  You can tell
+which version you have installed by looking at C<$Text::Tabs::SUBVERSION>:
+it is C<old> for obsolete perls and C<modern> for current perls.
+
+This man page is for the version for modern perls and so that's probably
+what you've got.
+
+=head1 BUGS
+
+Text::Tabs handles only tabs (C<"\t">) and combining characters (C</\pM/>).  It doesn't
+count backwards for backspaces (C<"\t">), omit other non-printing control characters (C</\pC/>),
+or otherwise deal with any other zero-, half-, and full-width characters.
+
+=head1 LICENSE
+
+Copyright (C) 1996-2002,2005,2006 David Muir Sharnoff.  
+Copyright (C) 2005 Aristotle Pagaltzis 
+Copyright (C) 2012-2013 Google, Inc.
+This module may be modified, used, copied, and redistributed at your own risk.
+Although allowed by the preceding license, please do not publicly
+redistribute modified versions of this code with the name "Text::Tabs"
+unless it passes the unmodified Text::Tabs test suite.
diff --git a/lib/5.24.1/Text/Wrap.pm b/lib/5.24.1/Text/Wrap.pm
new file mode 100644
index 00000000..db0d15f6
--- /dev/null
+++ b/lib/5.24.1/Text/Wrap.pm
@@ -0,0 +1,300 @@
+package Text::Wrap;
+
+use warnings::register;
+require Exporter;
+
+@ISA = qw(Exporter);
+@EXPORT = qw(wrap fill);
+@EXPORT_OK = qw($columns $break $huge);
+
+$VERSION = 2013.0523;
+$SUBVERSION = 'modern';
+
+use 5.010_000;
+
+use vars qw($VERSION $SUBVERSION $columns $debug $break $huge $unexpand $tabstop $separator $separator2);
+use strict;
+
+BEGIN	{
+	$columns = 76;  # <= screen width
+	$debug = 0;
+	$break = '(?=\s)\X';
+	$huge = 'wrap'; # alternatively: 'die' or 'overflow'
+	$unexpand = 1;
+	$tabstop = 8;
+	$separator = "\n";
+	$separator2 = undef;
+}
+
+my $CHUNK = qr/\X/;
+
+sub _xlen(_) { scalar(() = $_[0] =~ /$CHUNK/g) }
+
+sub _xpos(_) { _xlen( substr( $_[0], 0, pos($_[0]) ) ) }
+
+use Text::Tabs qw(expand unexpand);
+
+sub wrap
+{
+	my ($ip, $xp, @t) = @_;
+
+	local($Text::Tabs::tabstop) = $tabstop;
+	my $r = "";
+	my $tail = pop(@t);
+	my $t = expand(join("", (map { /\s+\z/ ? ( $_ ) : ($_, ' ') } @t), $tail));
+	my $lead = $ip;
+	my $nll = $columns - _xlen(expand($xp)) - 1;
+	if ($nll <= 0 && $xp ne '') {
+		my $nc = _xlen(expand($xp)) + 2;
+		warnings::warnif "Increasing \$Text::Wrap::columns from $columns to $nc to accommodate length of subsequent tab";
+		$columns = $nc;
+		$nll = 1;
+	}
+	my $ll = $columns - _xlen(expand($ip)) - 1;
+	$ll = 0 if $ll < 0;
+	my $nl = "";
+	my $remainder = "";
+
+	use re 'taint';
+
+	pos($t) = 0;
+	while ($t !~ /\G(?:$break)*\Z/gc) {
+		if ($t =~ /\G((?:(?=[^\n])\X){0,$ll})($break|\n+|\z)/xmgc) {
+			$r .= $unexpand 
+				? unexpand($nl . $lead . $1)
+				: $nl . $lead . $1;
+			$remainder = $2;
+		} elsif ($huge eq 'wrap' && $t =~ /\G((?:(?=[^\n])\X){$ll})/gc) {
+			$r .= $unexpand 
+				? unexpand($nl . $lead . $1)
+				: $nl . $lead . $1;
+			$remainder = defined($separator2) ? $separator2 : $separator;
+		} elsif ($huge eq 'overflow' && $t =~ /\G((?:(?=[^\n])\X)*?)($break|\n+|\z)/xmgc) {
+			$r .= $unexpand 
+				? unexpand($nl . $lead . $1)
+				: $nl . $lead . $1;
+			$remainder = $2;
+		} elsif ($huge eq 'die') {
+			die "couldn't wrap '$t'";
+		} elsif ($columns < 2) {
+			warnings::warnif "Increasing \$Text::Wrap::columns from $columns to 2";
+			$columns = 2;
+			return ($ip, $xp, @t);
+		} else {
+			die "This shouldn't happen";
+		}
+			
+		$lead = $xp;
+		$ll = $nll;
+		$nl = defined($separator2)
+			? ($remainder eq "\n"
+				? "\n"
+				: $separator2)
+			: $separator;
+	}
+	$r .= $remainder;
+
+	print "-----------$r---------\n" if $debug;
+
+	print "Finish up with '$lead'\n" if $debug;
+
+	my($opos) = pos($t);
+
+	$r .= $lead . substr($t, pos($t), length($t) - pos($t))
+		if pos($t) ne length($t);
+
+	print "-----------$r---------\n" if $debug;;
+
+	return $r;
+}
+
+sub fill 
+{
+	my ($ip, $xp, @raw) = @_;
+	my @para;
+	my $pp;
+
+	for $pp (split(/\n\s+/, join("\n",@raw))) {
+		$pp =~ s/\s+/ /g;
+		my $x = wrap($ip, $xp, $pp);
+		push(@para, $x);
+	}
+
+	# if paragraph_indent is the same as line_indent, 
+	# separate paragraphs with blank lines
+
+	my $ps = ($ip eq $xp) ? "\n\n" : "\n";
+	return join ($ps, @para);
+}
+
+1;
+__END__
+
+=head1 NAME
+
+Text::Wrap - line wrapping to form simple paragraphs
+
+=head1 SYNOPSIS 
+
+B<Example 1>
+
+	use Text::Wrap;
+
+	$initial_tab = "\t";	# Tab before first line
+	$subsequent_tab = "";	# All other lines flush left
+
+	print wrap($initial_tab, $subsequent_tab, @text);
+	print fill($initial_tab, $subsequent_tab, @text);
+
+	$lines = wrap($initial_tab, $subsequent_tab, @text);
+
+	@paragraphs = fill($initial_tab, $subsequent_tab, @text);
+
+B<Example 2>
+
+	use Text::Wrap qw(wrap $columns $huge);
+
+	$columns = 132;		# Wrap at 132 characters
+	$huge = 'die';
+	$huge = 'wrap';
+	$huge = 'overflow';
+
+B<Example 3>
+
+	use Text::Wrap;
+
+	$Text::Wrap::columns = 72;
+	print wrap('', '', @text);
+
+=head1 DESCRIPTION
+
+C<Text::Wrap::wrap()> is a very simple paragraph formatter.  It formats a
+single paragraph at a time by breaking lines at word boundaries.
+Indentation is controlled for the first line (C<$initial_tab>) and
+all subsequent lines (C<$subsequent_tab>) independently.  Please note: 
+C<$initial_tab> and C<$subsequent_tab> are the literal strings that will
+be used: it is unlikely you would want to pass in a number.
+
+C<Text::Wrap::fill()> is a simple multi-paragraph formatter.  It formats
+each paragraph separately and then joins them together when it's done.  It
+will destroy any whitespace in the original text.  It breaks text into
+paragraphs by looking for whitespace after a newline.  In other respects,
+it acts like wrap().
+
+C<wrap()> compresses trailing whitespace into one newline, and C<fill()>
+deletes all trailing whitespace.
+
+Both C<wrap()> and C<fill()> return a single string.
+
+Unlike the old Unix fmt(1) utility, this module correctly accounts for
+any Unicode combining characters (such as diacriticals) that may occur
+in each line for both expansion and unexpansion.  These are overstrike
+characters that do not increment the logical position.  Make sure
+you have the appropriate Unicode settings enabled.
+
+=head1 OVERRIDES
+
+C<Text::Wrap::wrap()> has a number of variables that control its behavior.
+Because other modules might be using C<Text::Wrap::wrap()> it is suggested
+that you leave these variables alone!  If you can't do that, then 
+use C<local($Text::Wrap::VARIABLE) = YOURVALUE> when you change the
+values so that the original value is restored.  This C<local()> trick
+will not work if you import the variable into your own namespace.
+
+Lines are wrapped at C<$Text::Wrap::columns> columns (default value: 76).
+C<$Text::Wrap::columns> should be set to the full width of your output
+device.  In fact, every resulting line will have length of no more than
+C<$columns - 1>.
+
+It is possible to control which characters terminate words by
+modifying C<$Text::Wrap::break>. Set this to a string such as
+C<'[\s:]'> (to break before spaces or colons) or a pre-compiled regexp
+such as C<qr/[\s']/> (to break before spaces or apostrophes). The
+default is simply C<'\s'>; that is, words are terminated by spaces.
+(This means, among other things, that trailing punctuation  such as
+full stops or commas stay with the word they are "attached" to.)
+Setting C<$Text::Wrap::break> to a regular expression that doesn't
+eat any characters (perhaps just a forward look-ahead assertion) will
+cause warnings.
+
+Beginner note: In example 2, above C<$columns> is imported into
+the local namespace, and set locally.  In example 3,
+C<$Text::Wrap::columns> is set in its own namespace without importing it.
+
+C<Text::Wrap::wrap()> starts its work by expanding all the tabs in its
+input into spaces.  The last thing it does it to turn spaces back
+into tabs.  If you do not want tabs in your results, set 
+C<$Text::Wrap::unexpand> to a false value.  Likewise if you do not
+want to use 8-character tabstops, set C<$Text::Wrap::tabstop> to
+the number of characters you do want for your tabstops.
+
+If you want to separate your lines with something other than C<\n>
+then set C<$Text::Wrap::separator> to your preference.  This replaces
+all newlines with C<$Text::Wrap::separator>.  If you just want to 
+preserve existing newlines but add new breaks with something else, set
+C<$Text::Wrap::separator2> instead.
+
+When words that are longer than C<$columns> are encountered, they
+are broken up.  C<wrap()> adds a C<"\n"> at column C<$columns>.
+This behavior can be overridden by setting C<$huge> to
+'die' or to 'overflow'.  When set to 'die', large words will cause
+C<die()> to be called.  When set to 'overflow', large words will be
+left intact.  
+
+Historical notes: 'die' used to be the default value of
+C<$huge>.  Now, 'wrap' is the default value.
+
+=head1 EXAMPLES
+
+Code:
+
+  print wrap("\t","",<<END);
+  This is a bit of text that forms 
+  a normal book-style indented paragraph
+  END
+
+Result:
+
+  "	This is a bit of text that forms
+  a normal book-style indented paragraph   
+  "
+
+Code:
+
+  $Text::Wrap::columns=20;
+  $Text::Wrap::separator="|";
+  print wrap("","","This is a bit of text that forms a normal book-style paragraph");
+
+Result:
+
+  "This is a bit of|text that forms a|normal book-style|paragraph"
+
+=head1 SUBVERSION
+
+This module comes in two flavors: one for modern perls (5.10 and above)
+and one for ancient obsolete perls.  The version for modern perls has
+support for Unicode.  The version for old perls does not.  You can tell
+which version you have installed by looking at C<$Text::Wrap::SUBVERSION>:
+it is C<old> for obsolete perls and C<modern> for current perls.
+
+This man page is for the version for modern perls and so that's probably
+what you've got.
+
+=head1 SEE ALSO
+
+For correct handling of East Asian half- and full-width characters, 
+see L<Text::WrapI18N>.  For more detailed controls: L<Text::Format>.
+
+=head1 AUTHOR
+
+David Muir Sharnoff <cpan@dave.sharnoff.org> with help from Tim Pierce and
+many many others.  
+
+=head1 LICENSE
+
+Copyright (C) 1996-2009 David Muir Sharnoff.  
+Copyright (C) 2012-2013 Google, Inc.
+This module may be modified, used, copied, and redistributed at your own risk.
+Although allowed by the preceding license, please do not publicly
+redistribute modified versions of this code with the name "Text::Wrap"
+unless it passes the unmodified Text::Wrap test suite.
diff --git a/lib/5.24.1/Thread.pm b/lib/5.24.1/Thread.pm
new file mode 100644
index 00000000..dbe0719b
--- /dev/null
+++ b/lib/5.24.1/Thread.pm
@@ -0,0 +1,273 @@
+package Thread;
+
+use strict;
+use warnings;
+no warnings 'redefine';
+
+our $VERSION = '3.04';
+$VERSION = eval $VERSION;
+
+BEGIN {
+    use Config;
+    if (! $Config{useithreads}) {
+        die("This Perl not built to support threads\n");
+    }
+}
+
+use threads 'yield';
+use threads::shared;
+
+require Exporter;
+our @ISA = qw(Exporter threads);
+our @EXPORT = qw(cond_wait cond_broadcast cond_signal);
+our @EXPORT_OK = qw(async yield);
+
+sub async (&;@) { return Thread->new(shift); }
+
+sub done { return ! shift->is_running(); }
+
+sub eval  { die("'eval' not implemented with 'ithreads'\n"); };
+sub flags { die("'flags' not implemented with 'ithreads'\n"); };
+
+1;
+
+__END__
+
+=head1 NAME
+
+Thread - Manipulate threads in Perl (for old code only)
+
+=head1 DEPRECATED
+
+The C<Thread> module served as the frontend to the old-style thread model,
+called I<5005threads>, that was introduced in release 5.005.  That model was
+deprecated, and has been removed in version 5.10.
+
+For old code and interim backwards compatibility, the C<Thread> module has
+been reworked to function as a frontend for the new interpreter threads
+(I<ithreads>) model.  However, some previous functionality is not available.
+Further, the data sharing models between the two thread models are completely
+different, and anything to do with data sharing has to be thought differently.
+With I<ithreads>, you must explicitly C<share()> variables between the
+threads.
+
+You are strongly encouraged to migrate any existing threaded code to the new
+model (i.e., use the C<threads> and C<threads::shared> modules) as soon as
+possible.
+
+=head1 HISTORY
+
+In Perl 5.005, the thread model was that all data is implicitly shared, and
+shared access to data has to be explicitly synchronized.  This model is called
+I<5005threads>.
+
+In Perl 5.6, a new model was introduced in which all is was thread local and
+shared access to data has to be explicitly declared.  This model is called
+I<ithreads>, for "interpreter threads".
+
+In Perl 5.6, the I<ithreads> model was not available as a public API; only as
+an internal API that was available for extension writers, and to implement
+fork() emulation on Win32 platforms.
+
+In Perl 5.8, the I<ithreads> model became available through the C<threads>
+module, and the I<5005threads> model was deprecated.
+
+In Perl 5.10, the I<5005threads> model was removed from the Perl interpreter.
+
+=head1 SYNOPSIS
+
+    use Thread qw(:DEFAULT async yield);
+
+    my $t = Thread->new(\&start_sub, @start_args);
+
+    $result = $t->join;
+    $t->detach;
+
+    if ($t->done) {
+        $t->join;
+    }
+
+    if($t->equal($another_thread)) {
+        # ...
+    }
+
+    yield();
+
+    my $tid = Thread->self->tid;
+
+    lock($scalar);
+    lock(@array);
+    lock(%hash);
+
+    my @list = Thread->list;
+
+=head1 DESCRIPTION
+
+The C<Thread> module provides multithreading support for Perl.
+
+=head1 FUNCTIONS
+
+=over 8
+
+=item $thread = Thread->new(\&start_sub)
+
+=item $thread = Thread->new(\&start_sub, LIST)
+
+C<new> starts a new thread of execution in the referenced subroutine. The
+optional list is passed as parameters to the subroutine. Execution
+continues in both the subroutine and the code after the C<new> call.
+
+C<Thread-&gt;new> returns a thread object representing the newly created
+thread.
+
+=item lock VARIABLE
+
+C<lock> places a lock on a variable until the lock goes out of scope.
+
+If the variable is locked by another thread, the C<lock> call will
+block until it's available.  C<lock> is recursive, so multiple calls
+to C<lock> are safe--the variable will remain locked until the
+outermost lock on the variable goes out of scope.
+
+Locks on variables only affect C<lock> calls--they do I<not> affect normal
+access to a variable. (Locks on subs are different, and covered in a bit.)
+If you really, I<really> want locks to block access, then go ahead and tie
+them to something and manage this yourself.  This is done on purpose.
+While managing access to variables is a good thing, Perl doesn't force
+you out of its living room...
+
+If a container object, such as a hash or array, is locked, all the
+elements of that container are not locked. For example, if a thread
+does a C<lock @a>, any other thread doing a C<lock($a[12])> won't
+block.
+
+Finally, C<lock> will traverse up references exactly I<one> level.
+C<lock(\$a)> is equivalent to C<lock($a)>, while C<lock(\\$a)> is not.
+
+=item async BLOCK;
+
+C<async> creates a thread to execute the block immediately following
+it.  This block is treated as an anonymous sub, and so must have a
+semi-colon after the closing brace. Like C<Thread-&gt;new>, C<async>
+returns a thread object.
+
+=item Thread->self
+
+The C<Thread-E<gt>self> function returns a thread object that represents
+the thread making the C<Thread-E<gt>self> call.
+
+=item Thread->list
+
+Returns a list of all non-joined, non-detached Thread objects.
+
+=item cond_wait VARIABLE
+
+The C<cond_wait> function takes a B<locked> variable as
+a parameter, unlocks the variable, and blocks until another thread
+does a C<cond_signal> or C<cond_broadcast> for that same locked
+variable. The variable that C<cond_wait> blocked on is relocked
+after the C<cond_wait> is satisfied.  If there are multiple threads
+C<cond_wait>ing on the same variable, all but one will reblock waiting
+to re-acquire the lock on the variable.  (So if you're only using
+C<cond_wait> for synchronization, give up the lock as soon as
+possible.)
+
+=item cond_signal VARIABLE
+
+The C<cond_signal> function takes a locked variable as a parameter and
+unblocks one thread that's C<cond_wait>ing on that variable. If more than
+one thread is blocked in a C<cond_wait> on that variable, only one (and
+which one is indeterminate) will be unblocked.
+
+If there are no threads blocked in a C<cond_wait> on the variable,
+the signal is discarded.
+
+=item cond_broadcast VARIABLE
+
+The C<cond_broadcast> function works similarly to C<cond_signal>.
+C<cond_broadcast>, though, will unblock B<all> the threads that are
+blocked in a C<cond_wait> on the locked variable, rather than only
+one.
+
+=item yield
+
+The C<yield> function allows another thread to take control of the
+CPU. The exact results are implementation-dependent.
+
+=back
+
+=head1 METHODS
+
+=over 8
+
+=item join
+
+C<join> waits for a thread to end and returns any values the thread
+exited with.  C<join> will block until the thread has ended, though
+it won't block if the thread has already terminated.
+
+If the thread being C<join>ed C<die>d, the error it died with will
+be returned at this time. If you don't want the thread performing
+the C<join> to die as well, you should either wrap the C<join> in
+an C<eval> or use the C<eval> thread method instead of C<join>.
+
+=item detach
+
+C<detach> tells a thread that it is never going to be joined i.e.
+that all traces of its existence can be removed once it stops running.
+Errors in detached threads will not be visible anywhere - if you want
+to catch them, you should use $SIG{__DIE__} or something like that.
+
+=item equal
+
+C<equal> tests whether two thread objects represent the same thread and
+returns true if they do.
+
+=item tid
+
+The C<tid> method returns the tid of a thread. The tid is
+a monotonically increasing integer assigned when a thread is
+created. The main thread of a program will have a tid of zero,
+while subsequent threads will have tids assigned starting with one.
+
+=item done
+
+The C<done> method returns true if the thread you're checking has
+finished, and false otherwise.
+
+=back
+
+=head1 DEFUNCT
+
+The following were implemented with I<5005threads>, but are no longer
+available with I<ithreads>.
+
+=over 8
+
+=item lock(\&sub)
+
+With 5005threads, you could also C<lock> a sub such that any calls to that sub
+from another thread would block until the lock was released.
+
+Also, subroutines could be declared with the C<:locked> attribute which would
+serialize access to the subroutine, but allowed different threads
+non-simultaneous access.
+
+=item eval
+
+The C<eval> method wrapped an C<eval> around a C<join>, and so waited for a
+thread to exit, passing along any values the thread might have returned and
+placing any errors into C<$@>.
+
+=item flags
+
+The C<flags> method returned the flags for the thread - an integer value
+corresponding to the internal flags for the thread.
+
+=back
+
+=head1 SEE ALSO
+
+L<threads>, L<threads::shared>, L<Thread::Queue>, L<Thread::Semaphore>
+
+=cut
diff --git a/lib/5.24.1/Thread/Queue.pm b/lib/5.24.1/Thread/Queue.pm
new file mode 100644
index 00000000..2f87eed9
--- /dev/null
+++ b/lib/5.24.1/Thread/Queue.pm
@@ -0,0 +1,637 @@
+package Thread::Queue;
+
+use strict;
+use warnings;
+
+our $VERSION = '3.09';
+$VERSION = eval $VERSION;
+
+use threads::shared 1.21;
+use Scalar::Util 1.10 qw(looks_like_number blessed reftype refaddr);
+
+# Carp errors from threads::shared calls should complain about caller
+our @CARP_NOT = ("threads::shared");
+
+# Create a new queue possibly pre-populated with items
+sub new
+{
+    my $class = shift;
+    my @queue :shared = map { shared_clone($_) } @_;
+    my %self :shared = ( 'queue' => \@queue );
+    return bless(\%self, $class);
+}
+
+# Add items to the tail of a queue
+sub enqueue
+{
+    my $self = shift;
+    lock(%$self);
+
+    if ($$self{'ENDED'}) {
+        require Carp;
+        Carp::croak("'enqueue' method called on queue that has been 'end'ed");
+    }
+
+    # Block if queue size exceeds any specified limit
+    my $queue = $$self{'queue'};
+    cond_wait(%$self) while ($$self{'LIMIT'} && (@$queue >= $$self{'LIMIT'}));
+
+    # Add items to queue, and then signal other threads
+    push(@$queue, map { shared_clone($_) } @_)
+        and cond_signal(%$self);
+}
+
+# Set or return the max. size for a queue
+sub limit : lvalue
+{
+    my $self = shift;
+    lock(%$self);
+    $$self{'LIMIT'};
+}
+
+# Return a count of the number of items on a queue
+sub pending
+{
+    my $self = shift;
+    lock(%$self);
+    return if ($$self{'ENDED'} && ! @{$$self{'queue'}});
+    return scalar(@{$$self{'queue'}});
+}
+
+# Indicate that no more data will enter the queue
+sub end
+{
+    my $self = shift;
+    lock(%$self);
+    # No more data is coming
+    $$self{'ENDED'} = 1;
+    # Try to release at least one blocked thread
+    cond_signal(%$self);
+}
+
+# Return 1 or more items from the head of a queue, blocking if needed
+sub dequeue
+{
+    my $self = shift;
+    lock(%$self);
+    my $queue = $$self{'queue'};
+
+    my $count = @_ ? $self->_validate_count(shift) : 1;
+
+    # Wait for requisite number of items
+    cond_wait(%$self) while ((@$queue < $count) && ! $$self{'ENDED'});
+    cond_signal(%$self) if ((@$queue >= $count) || $$self{'ENDED'});
+
+    # If no longer blocking, try getting whatever is left on the queue
+    return $self->dequeue_nb($count) if ($$self{'ENDED'});
+
+    # Return single item
+    return shift(@$queue) if ($count == 1);
+
+    # Return multiple items
+    my @items;
+    push(@items, shift(@$queue)) for (1..$count);
+    return @items;
+}
+
+# Return items from the head of a queue with no blocking
+sub dequeue_nb
+{
+    my $self = shift;
+    lock(%$self);
+    my $queue = $$self{'queue'};
+
+    my $count = @_ ? $self->_validate_count(shift) : 1;
+
+    # Return single item
+    return shift(@$queue) if ($count == 1);
+
+    # Return multiple items
+    my @items;
+    for (1..$count) {
+        last if (! @$queue);
+        push(@items, shift(@$queue));
+    }
+    return @items;
+}
+
+# Return items from the head of a queue, blocking if needed up to a timeout
+sub dequeue_timed
+{
+    my $self = shift;
+    lock(%$self);
+    my $queue = $$self{'queue'};
+
+    # Timeout may be relative or absolute
+    my $timeout = @_ ? $self->_validate_timeout(shift) : -1;
+    # Convert to an absolute time for use with cond_timedwait()
+    if ($timeout < 32000000) {   # More than one year
+        $timeout += time();
+    }
+
+    my $count = @_ ? $self->_validate_count(shift) : 1;
+
+    # Wait for requisite number of items, or until timeout
+    while ((@$queue < $count) && ! $$self{'ENDED'}) {
+        last if (! cond_timedwait(%$self, $timeout));
+    }
+    cond_signal(%$self) if ((@$queue >= $count) || $$self{'ENDED'});
+
+    # Get whatever we need off the queue if available
+    return $self->dequeue_nb($count);
+}
+
+# Return an item without removing it from a queue
+sub peek
+{
+    my $self = shift;
+    lock(%$self);
+    my $index = @_ ? $self->_validate_index(shift) : 0;
+    return $$self{'queue'}[$index];
+}
+
+# Insert items anywhere into a queue
+sub insert
+{
+    my $self = shift;
+    lock(%$self);
+
+    if ($$self{'ENDED'}) {
+        require Carp;
+        Carp::croak("'insert' method called on queue that has been 'end'ed");
+    }
+
+    my $queue = $$self{'queue'};
+
+    my $index = $self->_validate_index(shift);
+
+    return if (! @_);   # Nothing to insert
+
+    # Support negative indices
+    if ($index < 0) {
+        $index += @$queue;
+        if ($index < 0) {
+            $index = 0;
+        }
+    }
+
+    # Dequeue items from $index onward
+    my @tmp;
+    while (@$queue > $index) {
+        unshift(@tmp, pop(@$queue))
+    }
+
+    # Add new items to the queue
+    push(@$queue, map { shared_clone($_) } @_);
+
+    # Add previous items back onto the queue
+    push(@$queue, @tmp);
+
+    # Soup's up
+    cond_signal(%$self);
+}
+
+# Remove items from anywhere in a queue
+sub extract
+{
+    my $self = shift;
+    lock(%$self);
+    my $queue = $$self{'queue'};
+
+    my $index = @_ ? $self->_validate_index(shift) : 0;
+    my $count = @_ ? $self->_validate_count(shift) : 1;
+
+    # Support negative indices
+    if ($index < 0) {
+        $index += @$queue;
+        if ($index < 0) {
+            $count += $index;
+            return if ($count <= 0);            # Beyond the head of the queue
+            return $self->dequeue_nb($count);  # Extract from the head
+        }
+    }
+
+    # Dequeue items from $index+$count onward
+    my @tmp;
+    while (@$queue > ($index+$count)) {
+        unshift(@tmp, pop(@$queue))
+    }
+
+    # Extract desired items
+    my @items;
+    unshift(@items, pop(@$queue)) while (@$queue > $index);
+
+    # Add back any removed items
+    push(@$queue, @tmp);
+
+    # Return single item
+    return $items[0] if ($count == 1);
+
+    # Return multiple items
+    return @items;
+}
+
+### Internal Methods ###
+
+# Check value of the requested index
+sub _validate_index
+{
+    my $self = shift;
+    my $index = shift;
+
+    if (! defined($index) ||
+        ! looks_like_number($index) ||
+        (int($index) != $index))
+    {
+        require Carp;
+        my ($method) = (caller(1))[3];
+        my $class_name = ref($self);
+        $method =~ s/$class_name\:://;
+        $index = 'undef' if (! defined($index));
+        Carp::croak("Invalid 'index' argument ($index) to '$method' method");
+    }
+
+    return $index;
+};
+
+# Check value of the requested count
+sub _validate_count
+{
+    my $self = shift;
+    my $count = shift;
+
+    if (! defined($count) ||
+        ! looks_like_number($count) ||
+        (int($count) != $count) ||
+        ($count < 1))
+    {
+        require Carp;
+        my ($method) = (caller(1))[3];
+        my $class_name = ref($self);
+        $method =~ s/$class_name\:://;
+        $count = 'undef' if (! defined($count));
+        Carp::croak("Invalid 'count' argument ($count) to '$method' method");
+    }
+
+    return $count;
+};
+
+# Check value of the requested timeout
+sub _validate_timeout
+{
+    my $self = shift;
+    my $timeout = shift;
+
+    if (! defined($timeout) ||
+        ! looks_like_number($timeout))
+    {
+        require Carp;
+        my ($method) = (caller(1))[3];
+        my $class_name = ref($self);
+        $method =~ s/$class_name\:://;
+        $timeout = 'undef' if (! defined($timeout));
+        Carp::croak("Invalid 'timeout' argument ($timeout) to '$method' method");
+    }
+
+    return $timeout;
+};
+
+1;
+
+=head1 NAME
+
+Thread::Queue - Thread-safe queues
+
+=head1 VERSION
+
+This document describes Thread::Queue version 3.09
+
+=head1 SYNOPSIS
+
+    use strict;
+    use warnings;
+
+    use threads;
+    use Thread::Queue;
+
+    my $q = Thread::Queue->new();    # A new empty queue
+
+    # Worker thread
+    my $thr = threads->create(
+        sub {
+            # Thread will loop until no more work
+            while (defined(my $item = $q->dequeue())) {
+                # Do work on $item
+                ...
+            }
+        }
+    );
+
+    # Send work to the thread
+    $q->enqueue($item1, ...);
+    # Signal that there is no more work to be sent
+    $q->end();
+    # Join up with the thread when it finishes
+    $thr->join();
+
+    ...
+
+    # Count of items in the queue
+    my $left = $q->pending();
+
+    # Non-blocking dequeue
+    if (defined(my $item = $q->dequeue_nb())) {
+        # Work on $item
+    }
+
+    # Blocking dequeue with 5-second timeout
+    if (defined(my $item = $q->dequeue_timed(5))) {
+        # Work on $item
+    }
+
+    # Set a size for a queue
+    $q->limit = 5;
+
+    # Get the second item in the queue without dequeuing anything
+    my $item = $q->peek(1);
+
+    # Insert two items into the queue just behind the head
+    $q->insert(1, $item1, $item2);
+
+    # Extract the last two items on the queue
+    my ($item1, $item2) = $q->extract(-2, 2);
+
+=head1 DESCRIPTION
+
+This module provides thread-safe FIFO queues that can be accessed safely by
+any number of threads.
+
+Any data types supported by L<threads::shared> can be passed via queues:
+
+=over
+
+=item Ordinary scalars
+
+=item Array refs
+
+=item Hash refs
+
+=item Scalar refs
+
+=item Objects based on the above
+
+=back
+
+Ordinary scalars are added to queues as they are.
+
+If not already thread-shared, the other complex data types will be cloned
+(recursively, if needed, and including any C<bless>ings and read-only
+settings) into thread-shared structures before being placed onto a queue.
+
+For example, the following would cause L<Thread::Queue> to create a empty,
+shared array reference via C<&shared([])>, copy the elements 'foo', 'bar'
+and 'baz' from C<@ary> into it, and then place that shared reference onto
+the queue:
+
+ my @ary = qw/foo bar baz/;
+ $q->enqueue(\@ary);
+
+However, for the following, the items are already shared, so their references
+are added directly to the queue, and no cloning takes place:
+
+ my @ary :shared = qw/foo bar baz/;
+ $q->enqueue(\@ary);
+
+ my $obj = &shared({});
+ $$obj{'foo'} = 'bar';
+ $$obj{'qux'} = 99;
+ bless($obj, 'My::Class');
+ $q->enqueue($obj);
+
+See L</"LIMITATIONS"> for caveats related to passing objects via queues.
+
+=head1 QUEUE CREATION
+
+=over
+
+=item ->new()
+
+Creates a new empty queue.
+
+=item ->new(LIST)
+
+Creates a new queue pre-populated with the provided list of items.
+
+=back
+
+=head1 BASIC METHODS
+
+The following methods deal with queues on a FIFO basis.
+
+=over
+
+=item ->enqueue(LIST)
+
+Adds a list of items onto the end of the queue.
+
+=item ->dequeue()
+
+=item ->dequeue(COUNT)
+
+Removes the requested number of items (default is 1) from the head of the
+queue, and returns them.  If the queue contains fewer than the requested
+number of items, then the thread will be blocked until the requisite number
+of items are available (i.e., until other threads C<enqueue> more items).
+
+=item ->dequeue_nb()
+
+=item ->dequeue_nb(COUNT)
+
+Removes the requested number of items (default is 1) from the head of the
+queue, and returns them.  If the queue contains fewer than the requested
+number of items, then it immediately (i.e., non-blocking) returns whatever
+items there are on the queue.  If the queue is empty, then C<undef> is
+returned.
+
+=item ->dequeue_timed(TIMEOUT)
+
+=item ->dequeue_timed(TIMEOUT, COUNT)
+
+Removes the requested number of items (default is 1) from the head of the
+queue, and returns them.  If the queue contains fewer than the requested
+number of items, then the thread will be blocked until the requisite number of
+items are available, or until the timeout is reached.  If the timeout is
+reached, it returns whatever items there are on the queue, or C<undef> if the
+queue is empty.
+
+The timeout may be a number of seconds relative to the current time (e.g., 5
+seconds from when the call is made), or may be an absolute timeout in I<epoch>
+seconds the same as would be used with
+L<cond_timedwait()|threads::shared/"cond_timedwait VARIABLE, ABS_TIMEOUT">.
+Fractional seconds (e.g., 2.5 seconds) are also supported (to the extent of
+the underlying implementation).
+
+If C<TIMEOUT> is missing, C<undef>, or less than or equal to 0, then this call
+behaves the same as C<dequeue_nb>.
+
+=item ->pending()
+
+Returns the number of items still in the queue.  Returns C<undef> if the queue
+has been ended (see below), and there are no more items in the queue.
+
+=item ->limit
+
+Sets the size of the queue.  If set, calls to C<enqueue()> will block until
+the number of pending items in the queue drops below the C<limit>.  The
+C<limit> does not prevent enqueuing items beyond that count:
+
+ my $q = Thread::Queue->new(1, 2);
+ $q->limit = 4;
+ $q->enqueue(3, 4, 5);   # Does not block
+ $q->enqueue(6);         # Blocks until at least 2 items are
+                         # dequeued
+ my $size = $q->limit;   # Returns the current limit (may return
+                         # 'undef')
+ $q->limit = 0;          # Queue size is now unlimited
+
+=item ->end()
+
+Declares that no more items will be added to the queue.
+
+All threads blocking on C<dequeue()> calls will be unblocked with any
+remaining items in the queue and/or C<undef> being returned.  Any subsequent
+calls to C<dequeue()> will behave like C<dequeue_nb()>.
+
+Once ended, no more items may be placed in the queue.
+
+=back
+
+=head1 ADVANCED METHODS
+
+The following methods can be used to manipulate items anywhere in a queue.
+
+To prevent the contents of a queue from being modified by another thread
+while it is being examined and/or changed, L<lock|threads::shared/"lock
+VARIABLE"> the queue inside a local block:
+
+ {
+     lock($q);   # Keep other threads from changing the queue's contents
+     my $item = $q->peek();
+     if ($item ...) {
+         ...
+     }
+ }
+ # Queue is now unlocked
+
+=over
+
+=item ->peek()
+
+=item ->peek(INDEX)
+
+Returns an item from the queue without dequeuing anything.  Defaults to the
+the head of queue (at index position 0) if no index is specified.  Negative
+index values are supported as with L<arrays|perldata/"Subscripts"> (i.e., -1
+is the end of the queue, -2 is next to last, and so on).
+
+If no items exists at the specified index (i.e., the queue is empty, or the
+index is beyond the number of items on the queue), then C<undef> is returned.
+
+Remember, the returned item is not removed from the queue, so manipulating a
+C<peek>ed at reference affects the item on the queue.
+
+=item ->insert(INDEX, LIST)
+
+Adds the list of items to the queue at the specified index position (0
+is the head of the list).  Any existing items at and beyond that position are
+pushed back past the newly added items:
+
+ $q->enqueue(1, 2, 3, 4);
+ $q->insert(1, qw/foo bar/);
+ # Queue now contains:  1, foo, bar, 2, 3, 4
+
+Specifying an index position greater than the number of items in the queue
+just adds the list to the end.
+
+Negative index positions are supported:
+
+ $q->enqueue(1, 2, 3, 4);
+ $q->insert(-2, qw/foo bar/);
+ # Queue now contains:  1, 2, foo, bar, 3, 4
+
+Specifying a negative index position greater than the number of items in the
+queue adds the list to the head of the queue.
+
+=item ->extract()
+
+=item ->extract(INDEX)
+
+=item ->extract(INDEX, COUNT)
+
+Removes and returns the specified number of items (defaults to 1) from the
+specified index position in the queue (0 is the head of the queue).  When
+called with no arguments, C<extract> operates the same as C<dequeue_nb>.
+
+This method is non-blocking, and will return only as many items as are
+available to fulfill the request:
+
+ $q->enqueue(1, 2, 3, 4);
+ my $item  = $q->extract(2)     # Returns 3
+                                # Queue now contains:  1, 2, 4
+ my @items = $q->extract(1, 3)  # Returns (2, 4)
+                                # Queue now contains:  1
+
+Specifying an index position greater than the number of items in the
+queue results in C<undef> or an empty list being returned.
+
+ $q->enqueue('foo');
+ my $nada = $q->extract(3)      # Returns undef
+ my @nada = $q->extract(1, 3)   # Returns ()
+
+Negative index positions are supported.  Specifying a negative index position
+greater than the number of items in the queue may return items from the head
+of the queue (similar to C<dequeue_nb>) if the count overlaps the head of the
+queue from the specified position (i.e. if queue size + index + count is
+greater than zero):
+
+ $q->enqueue(qw/foo bar baz/);
+ my @nada = $q->extract(-6, 2);  # Returns ()      - (3+(-6)+2) <= 0
+ my @some = $q->extract(-6, 4);  # Returns (foo)   - (3+(-6)+4) > 0
+                                 # Queue now contains:  bar, baz
+ my @rest = $q->extract(-3, 4);  # Returns (bar, baz) -
+                                 #                   (2+(-3)+4) > 0
+
+=back
+
+=head1 NOTES
+
+Queues created by L<Thread::Queue> can be used in both threaded and
+non-threaded applications.
+
+=head1 LIMITATIONS
+
+Passing objects on queues may not work if the objects' classes do not support
+sharing.  See L<threads::shared/"BUGS AND LIMITATIONS"> for more.
+
+Passing array/hash refs that contain objects may not work for Perl prior to
+5.10.0.
+
+=head1 SEE ALSO
+
+Thread::Queue Discussion Forum on CPAN:
+L<http://www.cpanforum.com/dist/Thread-Queue>
+
+L<threads>, L<threads::shared>
+
+Sample code in the I<examples> directory of this distribution on CPAN.
+
+=head1 MAINTAINER
+
+Jerry D. Hedden, S<E<lt>jdhedden AT cpan DOT orgE<gt>>
+
+=head1 LICENSE
+
+This program is free software; you can redistribute it and/or modify it under
+the same terms as Perl itself.
+
+=cut
diff --git a/lib/5.24.1/Thread/Semaphore.pm b/lib/5.24.1/Thread/Semaphore.pm
new file mode 100644
index 00000000..d940d031
--- /dev/null
+++ b/lib/5.24.1/Thread/Semaphore.pm
@@ -0,0 +1,235 @@
+package Thread::Semaphore;
+
+use strict;
+use warnings;
+
+our $VERSION = '2.12';
+$VERSION = eval $VERSION;
+
+use threads::shared;
+use Scalar::Util 1.10 qw(looks_like_number);
+
+# Predeclarations for internal functions
+my ($validate_arg);
+
+# Create a new semaphore optionally with specified count (count defaults to 1)
+sub new {
+    my $class = shift;
+
+    my $val :shared = 1;
+    if (@_) {
+        $val = shift;
+        if (! defined($val) ||
+            ! looks_like_number($val) ||
+            (int($val) != $val))
+        {
+            require Carp;
+            $val = 'undef' if (! defined($val));
+            Carp::croak("Semaphore initializer is not an integer: $val");
+        }
+    }
+
+    return bless(\$val, $class);
+}
+
+# Decrement a semaphore's count (decrement amount defaults to 1)
+sub down {
+    my $sema = shift;
+    my $dec = @_ ? $validate_arg->(shift) : 1;
+
+    lock($$sema);
+    cond_wait($$sema) until ($$sema >= $dec);
+    $$sema -= $dec;
+}
+
+# Decrement a semaphore's count only if count >= decrement value
+#  (decrement amount defaults to 1)
+sub down_nb {
+    my $sema = shift;
+    my $dec = @_ ? $validate_arg->(shift) : 1;
+
+    lock($$sema);
+    my $ok = ($$sema >= $dec);
+    $$sema -= $dec if $ok;
+    return $ok;
+}
+
+# Decrement a semaphore's count even if the count goes below 0
+#  (decrement amount defaults to 1)
+sub down_force {
+    my $sema = shift;
+    my $dec = @_ ? $validate_arg->(shift) : 1;
+
+    lock($$sema);
+    $$sema -= $dec;
+}
+
+# Increment a semaphore's count (increment amount defaults to 1)
+sub up {
+    my $sema = shift;
+    my $inc = @_ ? $validate_arg->(shift) : 1;
+
+    lock($$sema);
+    ($$sema += $inc) > 0 and cond_broadcast($$sema);
+}
+
+### Internal Functions ###
+
+# Validate method argument
+$validate_arg = sub {
+    my $arg = shift;
+
+    if (! defined($arg) ||
+        ! looks_like_number($arg) ||
+        (int($arg) != $arg) ||
+        ($arg < 1))
+    {
+        require Carp;
+        my ($method) = (caller(1))[3];
+        $method =~ s/Thread::Semaphore:://;
+        $arg = 'undef' if (! defined($arg));
+        Carp::croak("Argument to semaphore method '$method' is not a positive integer: $arg");
+    }
+
+    return $arg;
+};
+
+1;
+
+=head1 NAME
+
+Thread::Semaphore - Thread-safe semaphores
+
+=head1 VERSION
+
+This document describes Thread::Semaphore version 2.12
+
+=head1 SYNOPSIS
+
+    use Thread::Semaphore;
+    my $s = Thread::Semaphore->new();
+    $s->down();   # Also known as the semaphore P operation.
+    # The guarded section is here
+    $s->up();     # Also known as the semaphore V operation.
+
+    # Decrement the semaphore only if it would immediately succeed.
+    if ($s->down_nb()) {
+        # The guarded section is here
+        $s->up();
+    }
+
+    # Forcefully decrement the semaphore even if its count goes below 0.
+    $s->down_force();
+
+    # The default value for semaphore operations is 1
+    my $s = Thread::Semaphore->new($initial_value);
+    $s->down($down_value);
+    $s->up($up_value);
+    if ($s->down_nb($down_value)) {
+        ...
+        $s->up($up_value);
+    }
+    $s->down_force($down_value);
+
+=head1 DESCRIPTION
+
+Semaphores provide a mechanism to regulate access to resources.  Unlike
+locks, semaphores aren't tied to particular scalars, and so may be used to
+control access to anything you care to use them for.
+
+Semaphores don't limit their values to zero and one, so they can be used to
+control access to some resource that there may be more than one of (e.g.,
+filehandles).  Increment and decrement amounts aren't fixed at one either,
+so threads can reserve or return multiple resources at once.
+
+=head1 METHODS
+
+=over 8
+
+=item ->new()
+
+=item ->new(NUMBER)
+
+C<new> creates a new semaphore, and initializes its count to the specified
+number (which must be an integer).  If no number is specified, the
+semaphore's count defaults to 1.
+
+=item ->down()
+
+=item ->down(NUMBER)
+
+The C<down> method decreases the semaphore's count by the specified number
+(which must be an integer >= 1), or by one if no number is specified.
+
+If the semaphore's count would drop below zero, this method will block
+until such time as the semaphore's count is greater than or equal to the
+amount you're C<down>ing the semaphore's count by.
+
+This is the semaphore "P operation" (the name derives from the Dutch
+word "pak", which means "capture" -- the semaphore operations were
+named by the late Dijkstra, who was Dutch).
+
+=item ->down_nb()
+
+=item ->down_nb(NUMBER)
+
+The C<down_nb> method attempts to decrease the semaphore's count by the
+specified number (which must be an integer >= 1), or by one if no number
+is specified.
+
+If the semaphore's count would drop below zero, this method will return
+I<false>, and the semaphore's count remains unchanged.  Otherwise, the
+semaphore's count is decremented and this method returns I<true>.
+
+=item ->down_force()
+
+=item ->down_force(NUMBER)
+
+The C<down_force> method decreases the semaphore's count by the specified
+number (which must be an integer >= 1), or by one if no number is specified.
+This method does not block, and may cause the semaphore's count to drop
+below zero.
+
+=item ->up()
+
+=item ->up(NUMBER)
+
+The C<up> method increases the semaphore's count by the number specified
+(which must be an integer >= 1), or by one if no number is specified.
+
+This will unblock any thread that is blocked trying to C<down> the
+semaphore if the C<up> raises the semaphore's count above the amount that
+the C<down> is trying to decrement it by.  For example, if three threads
+are blocked trying to C<down> a semaphore by one, and another thread C<up>s
+the semaphore by two, then two of the blocked threads (which two is
+indeterminate) will become unblocked.
+
+This is the semaphore "V operation" (the name derives from the Dutch
+word "vrij", which means "release").
+
+=back
+
+=head1 NOTES
+
+Semaphores created by L<Thread::Semaphore> can be used in both threaded and
+non-threaded applications.  This allows you to write modules and packages
+that potentially make use of semaphores, and that will function in either
+environment.
+
+=head1 SEE ALSO
+
+Thread::Semaphore Discussion Forum on CPAN:
+L<http://www.cpanforum.com/dist/Thread-Semaphore>
+
+L<threads>, L<threads::shared>
+
+=head1 MAINTAINER
+
+Jerry D. Hedden, S<E<lt>jdhedden AT cpan DOT orgE<gt>>
+
+=head1 LICENSE
+
+This program is free software; you can redistribute it and/or modify it under
+the same terms as Perl itself.
+
+=cut
diff --git a/lib/5.24.1/Tie/Array.pm b/lib/5.24.1/Tie/Array.pm
new file mode 100644
index 00000000..e0516a2f
--- /dev/null
+++ b/lib/5.24.1/Tie/Array.pm
@@ -0,0 +1,284 @@
+package Tie::Array;
+
+use 5.006_001;
+use strict;
+use Carp;
+our $VERSION = '1.06';
+
+# Pod documentation after __END__ below.
+
+sub DESTROY { }
+sub EXTEND  { }
+sub UNSHIFT { scalar shift->SPLICE(0,0,@_) }
+sub SHIFT { shift->SPLICE(0,1) }
+sub CLEAR   { shift->STORESIZE(0) }
+
+sub PUSH
+{
+ my $obj = shift;
+ my $i   = $obj->FETCHSIZE;
+ $obj->STORE($i++, shift) while (@_);
+}
+
+sub POP
+{
+ my $obj = shift;
+ my $newsize = $obj->FETCHSIZE - 1;
+ my $val;
+ if ($newsize >= 0)
+  {
+   $val = $obj->FETCH($newsize);
+   $obj->STORESIZE($newsize);
+  }
+ $val;
+}
+
+sub SPLICE {
+    my $obj = shift;
+    my $sz  = $obj->FETCHSIZE;
+    my $off = (@_) ? shift : 0;
+    $off += $sz if ($off < 0);
+    my $len = (@_) ? shift : $sz - $off;
+    $len += $sz - $off if $len < 0;
+    my @result;
+    for (my $i = 0; $i < $len; $i++) {
+        push(@result,$obj->FETCH($off+$i));
+    }
+    $off = $sz if $off > $sz;
+    $len -= $off + $len - $sz if $off + $len > $sz;
+    if (@_ > $len) {
+        # Move items up to make room
+        my $d = @_ - $len;
+        my $e = $off+$len;
+        $obj->EXTEND($sz+$d);
+        for (my $i=$sz-1; $i >= $e; $i--) {
+            my $val = $obj->FETCH($i);
+            $obj->STORE($i+$d,$val);
+        }
+    }
+    elsif (@_ < $len) {
+        # Move items down to close the gap
+        my $d = $len - @_;
+        my $e = $off+$len;
+        for (my $i=$off+$len; $i < $sz; $i++) {
+            my $val = $obj->FETCH($i);
+            $obj->STORE($i-$d,$val);
+        }
+        $obj->STORESIZE($sz-$d);
+    }
+    for (my $i=0; $i < @_; $i++) {
+        $obj->STORE($off+$i,$_[$i]);
+    }
+    return wantarray ? @result : pop @result;
+}
+
+sub EXISTS {
+    my $pkg = ref $_[0];
+    croak "$pkg doesn't define an EXISTS method";
+}
+
+sub DELETE {
+    my $pkg = ref $_[0];
+    croak "$pkg doesn't define a DELETE method";
+}
+
+package Tie::StdArray;
+use vars qw(@ISA);
+@ISA = 'Tie::Array';
+
+sub TIEARRAY  { bless [], $_[0] }
+sub FETCHSIZE { scalar @{$_[0]} }
+sub STORESIZE { $#{$_[0]} = $_[1]-1 }
+sub STORE     { $_[0]->[$_[1]] = $_[2] }
+sub FETCH     { $_[0]->[$_[1]] }
+sub CLEAR     { @{$_[0]} = () }
+sub POP       { pop(@{$_[0]}) }
+sub PUSH      { my $o = shift; push(@$o,@_) }
+sub SHIFT     { shift(@{$_[0]}) }
+sub UNSHIFT   { my $o = shift; unshift(@$o,@_) }
+sub EXISTS    { exists $_[0]->[$_[1]] }
+sub DELETE    { delete $_[0]->[$_[1]] }
+
+sub SPLICE
+{
+ my $ob  = shift;
+ my $sz  = $ob->FETCHSIZE;
+ my $off = @_ ? shift : 0;
+ $off   += $sz if $off < 0;
+ my $len = @_ ? shift : $sz-$off;
+ return splice(@$ob,$off,$len,@_);
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+Tie::Array - base class for tied arrays
+
+=head1 SYNOPSIS
+
+    package Tie::NewArray;
+    use Tie::Array;
+    @ISA = ('Tie::Array');
+
+    # mandatory methods
+    sub TIEARRAY { ... }
+    sub FETCH { ... }
+    sub FETCHSIZE { ... }
+
+    sub STORE { ... }       # mandatory if elements writeable
+    sub STORESIZE { ... }   # mandatory if elements can be added/deleted
+    sub EXISTS { ... }      # mandatory if exists() expected to work
+    sub DELETE { ... }      # mandatory if delete() expected to work
+
+    # optional methods - for efficiency
+    sub CLEAR { ... }
+    sub PUSH { ... }
+    sub POP { ... }
+    sub SHIFT { ... }
+    sub UNSHIFT { ... }
+    sub SPLICE { ... }
+    sub EXTEND { ... }
+    sub DESTROY { ... }
+
+    package Tie::NewStdArray;
+    use Tie::Array;
+
+    @ISA = ('Tie::StdArray');
+
+    # all methods provided by default
+
+    package main;
+
+    $object = tie @somearray,'Tie::NewArray';
+    $object = tie @somearray,'Tie::StdArray';
+    $object = tie @somearray,'Tie::NewStdArray';
+
+
+
+=head1 DESCRIPTION
+
+This module provides methods for array-tying classes. See
+L<perltie> for a list of the functions required in order to tie an array
+to a package. The basic B<Tie::Array> package provides stub C<DESTROY>,
+and C<EXTEND> methods that do nothing, stub C<DELETE> and C<EXISTS>
+methods that croak() if the delete() or exists() builtins are ever called
+on the tied array, and implementations of C<PUSH>, C<POP>, C<SHIFT>,
+C<UNSHIFT>, C<SPLICE> and C<CLEAR> in terms of basic C<FETCH>, C<STORE>,
+C<FETCHSIZE>, C<STORESIZE>.
+
+The B<Tie::StdArray> package provides efficient methods required for tied arrays
+which are implemented as blessed references to an "inner" perl array.
+It inherits from B<Tie::Array>, and should cause tied arrays to behave exactly
+like standard arrays, allowing for selective overloading of methods.
+
+For developers wishing to write their own tied arrays, the required methods
+are briefly defined below. See the L<perltie> section for more detailed
+descriptive, as well as example code:
+
+=over 4
+
+=item TIEARRAY classname, LIST
+
+The class method is invoked by the command C<tie @array, classname>. Associates
+an array instance with the specified class. C<LIST> would represent
+additional arguments (along the lines of L<AnyDBM_File> and compatriots) needed
+to complete the association. The method should return an object of a class which
+provides the methods below.
+
+=item STORE this, index, value
+
+Store datum I<value> into I<index> for the tied array associated with
+object I<this>. If this makes the array larger then
+class's mapping of C<undef> should be returned for new positions.
+
+=item FETCH this, index
+
+Retrieve the datum in I<index> for the tied array associated with
+object I<this>.
+
+=item FETCHSIZE this
+
+Returns the total number of items in the tied array associated with
+object I<this>. (Equivalent to C<scalar(@array)>).
+
+=item STORESIZE this, count
+
+Sets the total number of items in the tied array associated with
+object I<this> to be I<count>. If this makes the array larger then
+class's mapping of C<undef> should be returned for new positions.
+If the array becomes smaller then entries beyond count should be
+deleted.
+
+=item EXTEND this, count
+
+Informative call that array is likely to grow to have I<count> entries.
+Can be used to optimize allocation. This method need do nothing.
+
+=item EXISTS this, key
+
+Verify that the element at index I<key> exists in the tied array I<this>.
+
+The B<Tie::Array> implementation is a stub that simply croaks.
+
+=item DELETE this, key
+
+Delete the element at index I<key> from the tied array I<this>.
+
+The B<Tie::Array> implementation is a stub that simply croaks.
+
+=item CLEAR this
+
+Clear (remove, delete, ...) all values from the tied array associated with
+object I<this>.
+
+=item DESTROY this
+
+Normal object destructor method.
+
+=item PUSH this, LIST
+
+Append elements of LIST to the array.
+
+=item POP this
+
+Remove last element of the array and return it.
+
+=item SHIFT this
+
+Remove the first element of the array (shifting other elements down)
+and return it.
+
+=item UNSHIFT this, LIST
+
+Insert LIST elements at the beginning of the array, moving existing elements
+up to make room.
+
+=item SPLICE this, offset, length, LIST
+
+Perform the equivalent of C<splice> on the array.
+
+I<offset> is optional and defaults to zero, negative values count back
+from the end of the array.
+
+I<length> is optional and defaults to rest of the array.
+
+I<LIST> may be empty.
+
+Returns a list of the original I<length> elements at I<offset>.
+
+=back
+
+=head1 CAVEATS
+
+There is no support at present for tied @ISA. There is a potential conflict
+between magic entries needed to notice setting of @ISA, and those needed to
+implement 'tie'.
+
+=head1 AUTHOR
+
+Nick Ing-Simmons E<lt>nik@tiuk.ti.comE<gt>
+
+=cut
diff --git a/lib/5.24.1/Tie/File.pm b/lib/5.24.1/Tie/File.pm
new file mode 100644
index 00000000..d546b81f
--- /dev/null
+++ b/lib/5.24.1/Tie/File.pm
@@ -0,0 +1,2638 @@
+
+package Tie::File;
+require 5.005;
+use Carp ':DEFAULT', 'confess';
+use POSIX 'SEEK_SET';
+use Fcntl 'O_CREAT', 'O_RDWR', 'LOCK_EX', 'LOCK_SH', 'O_WRONLY', 'O_RDONLY';
+sub O_ACCMODE () { O_RDONLY | O_RDWR | O_WRONLY }
+
+
+$VERSION = "1.02";
+my $DEFAULT_MEMORY_SIZE = 1<<21;    # 2 megabytes
+my $DEFAULT_AUTODEFER_THRESHHOLD = 3; # 3 records
+my $DEFAULT_AUTODEFER_FILELEN_THRESHHOLD = 65536; # 16 disk blocksful
+
+my %good_opt = map {$_ => 1, "-$_" => 1}
+                 qw(memory dw_size mode recsep discipline 
+                    autodefer autochomp autodefer_threshhold concurrent);
+
+sub TIEARRAY {
+  if (@_ % 2 != 0) {
+    croak "usage: tie \@array, $_[0], filename, [option => value]...";
+  }
+  my ($pack, $file, %opts) = @_;
+
+  # transform '-foo' keys into 'foo' keys
+  for my $key (keys %opts) {
+    unless ($good_opt{$key}) {
+      croak("$pack: Unrecognized option '$key'\n");
+    }
+    my $okey = $key;
+    if ($key =~ s/^-+//) {
+      $opts{$key} = delete $opts{$okey};
+    }
+  }
+
+  if ($opts{concurrent}) {
+    croak("$pack: concurrent access not supported yet\n");
+  }
+
+  unless (defined $opts{memory}) {
+    # default is the larger of the default cache size and the 
+    # deferred-write buffer size (if specified)
+    $opts{memory} = $DEFAULT_MEMORY_SIZE;
+    $opts{memory} = $opts{dw_size}
+      if defined $opts{dw_size} && $opts{dw_size} > $DEFAULT_MEMORY_SIZE;
+    # Dora Winifred Read
+  }
+  $opts{dw_size} = $opts{memory} unless defined $opts{dw_size};
+  if ($opts{dw_size} > $opts{memory}) {
+      croak("$pack: dw_size may not be larger than total memory allocation\n");
+  }
+  # are we in deferred-write mode?
+  $opts{defer} = 0 unless defined $opts{defer};
+  $opts{deferred} = {};         # no records are presently deferred
+  $opts{deferred_s} = 0;        # count of total bytes in ->{deferred}
+  $opts{deferred_max} = -1;     # empty
+
+  # What's a good way to arrange that this class can be overridden?
+  $opts{cache} = Tie::File::Cache->new($opts{memory});
+
+  # autodeferment is enabled by default
+  $opts{autodefer} = 1 unless defined $opts{autodefer};
+  $opts{autodeferring} = 0;     # but is not initially active
+  $opts{ad_history} = [];
+  $opts{autodefer_threshhold} = $DEFAULT_AUTODEFER_THRESHHOLD
+    unless defined $opts{autodefer_threshhold};
+  $opts{autodefer_filelen_threshhold} = $DEFAULT_AUTODEFER_FILELEN_THRESHHOLD
+    unless defined $opts{autodefer_filelen_threshhold};
+
+  $opts{offsets} = [0];
+  $opts{filename} = $file;
+  unless (defined $opts{recsep}) { 
+    $opts{recsep} = _default_recsep();
+  }
+  $opts{recseplen} = length($opts{recsep});
+  if ($opts{recseplen} == 0) {
+    croak "Empty record separator not supported by $pack";
+  }
+
+  $opts{autochomp} = 1 unless defined $opts{autochomp};
+
+  $opts{mode} = O_CREAT|O_RDWR unless defined $opts{mode};
+  $opts{rdonly} = (($opts{mode} & O_ACCMODE) == O_RDONLY);
+  $opts{sawlastrec} = undef;
+
+  my $fh;
+
+  if (UNIVERSAL::isa($file, 'GLOB')) {
+    # We use 1 here on the theory that some systems 
+    # may not indicate failure if we use 0.
+    # MSWin32 does not indicate failure with 0, but I don't know if
+    # it will indicate failure with 1 or not.
+    unless (seek $file, 1, SEEK_SET) {
+      croak "$pack: your filehandle does not appear to be seekable";
+    }
+    seek $file, 0, SEEK_SET;    # put it back
+    $fh = $file;                # setting binmode is the user's problem
+  } elsif (ref $file) {
+    croak "usage: tie \@array, $pack, filename, [option => value]...";
+  } else {
+    # $fh = \do { local *FH };  # XXX this is buggy
+    if ($] < 5.006) {
+	# perl 5.005 and earlier don't autovivify filehandles
+	require Symbol;
+	$fh = Symbol::gensym();
+    }
+    sysopen $fh, $file, $opts{mode}, 0666 or return;
+    binmode $fh;
+    ++$opts{ourfh};
+  }
+  { my $ofh = select $fh; $| = 1; select $ofh } # autoflush on write
+  if (defined $opts{discipline} && $] >= 5.006) {
+    # This avoids a compile-time warning under 5.005
+    eval 'binmode($fh, $opts{discipline})';
+    croak $@ if $@ =~ /unknown discipline/i;
+    die if $@;
+  }
+  $opts{fh} = $fh;
+
+  bless \%opts => $pack;
+}
+
+sub FETCH {
+  my ($self, $n) = @_;
+  my $rec;
+
+  # check the defer buffer
+  $rec = $self->{deferred}{$n} if exists $self->{deferred}{$n};
+  $rec = $self->_fetch($n) unless defined $rec;
+
+  # inlined _chomp1
+  substr($rec, - $self->{recseplen}) = ""
+    if defined $rec && $self->{autochomp};
+  $rec;
+}
+
+# Chomp many records in-place; return nothing useful
+sub _chomp {
+  my $self = shift;
+  return unless $self->{autochomp};
+  if ($self->{autochomp}) {
+    for (@_) {
+      next unless defined;
+      substr($_, - $self->{recseplen}) = "";
+    }
+  }
+}
+
+# Chomp one record in-place; return modified record
+sub _chomp1 {
+  my ($self, $rec) = @_;
+  return $rec unless $self->{autochomp};
+  return unless defined $rec;
+  substr($rec, - $self->{recseplen}) = "";
+  $rec;
+}
+
+sub _fetch {
+  my ($self, $n) = @_;
+
+  # check the record cache
+  { my $cached = $self->{cache}->lookup($n);
+    return $cached if defined $cached;
+  }
+
+  if ($#{$self->{offsets}} < $n) {
+    return if $self->{eof};  # request for record beyond end of file
+    my $o = $self->_fill_offsets_to($n);
+    # If it's still undefined, there is no such record, so return 'undef'
+    return unless defined $o;
+  }
+
+  my $fh = $self->{FH};
+  $self->_seek($n);             # we can do this now that offsets is populated
+  my $rec = $self->_read_record;
+
+# If we happen to have just read the first record, check to see if
+# the length of the record matches what 'tell' says.  If not, Tie::File
+# won't work, and should drop dead.
+#
+#  if ($n == 0 && defined($rec) && tell($self->{fh}) != length($rec)) {
+#    if (defined $self->{discipline}) {
+#      croak "I/O discipline $self->{discipline} not supported";
+#    } else {
+#      croak "File encoding not supported";
+#    }
+#  }
+
+  $self->{cache}->insert($n, $rec) if defined $rec && not $self->{flushing};
+  $rec;
+}
+
+sub STORE {
+  my ($self, $n, $rec) = @_;
+  die "STORE called from _check_integrity!" if $DIAGNOSTIC;
+
+  $self->_fixrecs($rec);
+
+  if ($self->{autodefer}) {
+    $self->_annotate_ad_history($n);
+  }
+
+  return $self->_store_deferred($n, $rec) if $self->_is_deferring;
+
+
+  # We need this to decide whether the new record will fit
+  # It incidentally populates the offsets table 
+  # Note we have to do this before we alter the cache
+  # 20020324 Wait, but this DOES alter the cache.  TODO BUG?
+  my $oldrec = $self->_fetch($n);
+
+  if (not defined $oldrec) {
+    # We're storing a record beyond the end of the file
+    $self->_extend_file_to($n+1);
+    $oldrec = $self->{recsep};
+  }
+#  return if $oldrec eq $rec;    # don't bother
+  my $len_diff = length($rec) - length($oldrec);
+
+  # length($oldrec) here is not consistent with text mode  TODO XXX BUG
+  $self->_mtwrite($rec, $self->{offsets}[$n], length($oldrec));
+  $self->_oadjust([$n, 1, $rec]);
+  $self->{cache}->update($n, $rec);
+}
+
+sub _store_deferred {
+  my ($self, $n, $rec) = @_;
+  $self->{cache}->remove($n);
+  my $old_deferred = $self->{deferred}{$n};
+
+  if (defined $self->{deferred_max} && $n > $self->{deferred_max}) {
+    $self->{deferred_max} = $n;
+  }
+  $self->{deferred}{$n} = $rec;
+
+  my $len_diff = length($rec);
+  $len_diff -= length($old_deferred) if defined $old_deferred;
+  $self->{deferred_s} += $len_diff;
+  $self->{cache}->adj_limit(-$len_diff);
+  if ($self->{deferred_s} > $self->{dw_size}) {
+    $self->_flush;
+  } elsif ($self->_cache_too_full) {
+    $self->_cache_flush;
+  }
+}
+
+# Remove a single record from the deferred-write buffer without writing it
+# The record need not be present
+sub _delete_deferred {
+  my ($self, $n) = @_;
+  my $rec = delete $self->{deferred}{$n};
+  return unless defined $rec;
+
+  if (defined $self->{deferred_max} 
+      && $n == $self->{deferred_max}) {
+    undef $self->{deferred_max};
+  }
+
+  $self->{deferred_s} -= length $rec;
+  $self->{cache}->adj_limit(length $rec);
+}
+
+sub FETCHSIZE {
+  my $self = shift;
+  my $n = $self->{eof} ? $#{$self->{offsets}} : $self->_fill_offsets;
+
+  my $top_deferred = $self->_defer_max;
+  $n = $top_deferred+1 if defined $top_deferred && $n < $top_deferred+1;
+  $n;
+}
+
+sub STORESIZE {
+  my ($self, $len) = @_;
+
+  if ($self->{autodefer}) {
+    $self->_annotate_ad_history('STORESIZE');
+  }
+
+  my $olen = $self->FETCHSIZE;
+  return if $len == $olen;      # Woo-hoo!
+
+  # file gets longer
+  if ($len > $olen) {
+    if ($self->_is_deferring) {
+      for ($olen .. $len-1) {
+        $self->_store_deferred($_, $self->{recsep});
+      }
+    } else {
+      $self->_extend_file_to($len);
+    }
+    return;
+  }
+
+  # file gets shorter
+  if ($self->_is_deferring) {
+    # TODO maybe replace this with map-plus-assignment?
+    for (grep $_ >= $len, keys %{$self->{deferred}}) {
+      $self->_delete_deferred($_);
+    }
+    $self->{deferred_max} = $len-1;
+  }
+
+  $self->_seek($len);
+  $self->_chop_file;
+  $#{$self->{offsets}} = $len;
+#  $self->{offsets}[0] = 0;      # in case we just chopped this
+
+  $self->{cache}->remove(grep $_ >= $len, $self->{cache}->ckeys);
+}
+
+### OPTIMIZE ME
+### It should not be necessary to do FETCHSIZE
+### Just seek to the end of the file.
+sub PUSH {
+  my $self = shift;
+  $self->SPLICE($self->FETCHSIZE, scalar(@_), @_);
+
+  # No need to return:
+  #  $self->FETCHSIZE;  # because av.c takes care of this for me
+}
+
+sub POP {
+  my $self = shift;
+  my $size = $self->FETCHSIZE;
+  return if $size == 0;
+#  print STDERR "# POPPITY POP POP POP\n";
+  scalar $self->SPLICE($size-1, 1);
+}
+
+sub SHIFT {
+  my $self = shift;
+  scalar $self->SPLICE(0, 1);
+}
+
+sub UNSHIFT {
+  my $self = shift;
+  $self->SPLICE(0, 0, @_);
+  # $self->FETCHSIZE; # av.c takes care of this for me
+}
+
+sub CLEAR {
+  my $self = shift;
+
+  if ($self->{autodefer}) {
+    $self->_annotate_ad_history('CLEAR');
+  }
+
+  $self->_seekb(0);
+  $self->_chop_file;
+    $self->{cache}->set_limit($self->{memory});
+    $self->{cache}->empty;
+  @{$self->{offsets}} = (0);
+  %{$self->{deferred}}= ();
+    $self->{deferred_s} = 0;
+    $self->{deferred_max} = -1;
+}
+
+sub EXTEND {
+  my ($self, $n) = @_;
+
+  # No need to pre-extend anything in this case
+  return if $self->_is_deferring;
+
+  $self->_fill_offsets_to($n);
+  $self->_extend_file_to($n);
+}
+
+sub DELETE {
+  my ($self, $n) = @_;
+
+  if ($self->{autodefer}) {
+    $self->_annotate_ad_history('DELETE');
+  }
+
+  my $lastrec = $self->FETCHSIZE-1;
+  my $rec = $self->FETCH($n);
+  $self->_delete_deferred($n) if $self->_is_deferring;
+  if ($n == $lastrec) {
+    $self->_seek($n);
+    $self->_chop_file;
+    $#{$self->{offsets}}--;
+    $self->{cache}->remove($n);
+    # perhaps in this case I should also remove trailing null records?
+    # 20020316
+    # Note that delete @a[-3..-1] deletes the records in the wrong order,
+    # so we only chop the very last one out of the file.  We could repair this
+    # by tracking deleted records inside the object.
+  } elsif ($n < $lastrec) {
+    $self->STORE($n, "");
+  }
+  $rec;
+}
+
+sub EXISTS {
+  my ($self, $n) = @_;
+  return 1 if exists $self->{deferred}{$n};
+  $n < $self->FETCHSIZE;
+}
+
+sub SPLICE {
+  my $self = shift;
+
+  if ($self->{autodefer}) {
+    $self->_annotate_ad_history('SPLICE');
+  }
+
+  $self->_flush if $self->_is_deferring; # move this up?
+  if (wantarray) {
+    $self->_chomp(my @a = $self->_splice(@_));
+    @a;
+  } else {
+    $self->_chomp1(scalar $self->_splice(@_));
+  }
+}
+
+sub DESTROY {
+  my $self = shift;
+  $self->flush if $self->_is_deferring;
+  $self->{cache}->delink if defined $self->{cache}; # break circular link
+  if ($self->{fh} and $self->{ourfh}) {
+      delete $self->{ourfh};
+      close delete $self->{fh};
+  }
+}
+
+sub _splice {
+  my ($self, $pos, $nrecs, @data) = @_;
+  my @result;
+
+  $pos = 0 unless defined $pos;
+
+  # Deal with negative and other out-of-range positions
+  # Also set default for $nrecs 
+  {
+    my $oldsize = $self->FETCHSIZE;
+    $nrecs = $oldsize unless defined $nrecs;
+    my $oldpos = $pos;
+
+    if ($pos < 0) {
+      $pos += $oldsize;
+      if ($pos < 0) {
+        croak "Modification of non-creatable array value attempted, " .
+              "subscript $oldpos";
+      }
+    }
+
+    if ($pos > $oldsize) {
+      return unless @data;
+      $pos = $oldsize;          # This is what perl does for normal arrays
+    }
+
+    # The manual is very unclear here
+    if ($nrecs < 0) {
+      $nrecs = $oldsize - $pos + $nrecs;
+      $nrecs = 0 if $nrecs < 0;
+    }
+
+    # nrecs is too big---it really means "until the end"
+    # 20030507
+    if ($nrecs + $pos > $oldsize) {
+      $nrecs = $oldsize - $pos;
+    }
+  }
+
+  $self->_fixrecs(@data);
+  my $data = join '', @data;
+  my $datalen = length $data;
+  my $oldlen = 0;
+
+  # compute length of data being removed
+  for ($pos .. $pos+$nrecs-1) {
+    last unless defined $self->_fill_offsets_to($_);
+    my $rec = $self->_fetch($_);
+    last unless defined $rec;
+    push @result, $rec;
+
+    # Why don't we just use length($rec) here?
+    # Because that record might have come from the cache.  _splice
+    # might have been called to flush out the deferred-write records,
+    # and in this case length($rec) is the length of the record to be
+    # *written*, not the length of the actual record in the file.  But
+    # the offsets are still true. 20020322
+    $oldlen += $self->{offsets}[$_+1] - $self->{offsets}[$_]
+      if defined $self->{offsets}[$_+1];
+  }
+  $self->_fill_offsets_to($pos+$nrecs);
+
+  # Modify the file
+  $self->_mtwrite($data, $self->{offsets}[$pos], $oldlen);
+  # Adjust the offsets table
+  $self->_oadjust([$pos, $nrecs, @data]);
+
+  { # Take this read cache stuff out into a separate function
+    # You made a half-attempt to put it into _oadjust.  
+    # Finish something like that up eventually.
+    # STORE also needs to do something similarish
+
+    # update the read cache, part 1
+    # modified records
+    for ($pos .. $pos+$nrecs-1) {
+      my $new = $data[$_-$pos];
+      if (defined $new) {
+        $self->{cache}->update($_, $new);
+      } else {
+        $self->{cache}->remove($_);
+      }
+    }
+    
+    # update the read cache, part 2
+    # moved records - records past the site of the change
+    # need to be renumbered
+    # Maybe merge this with the previous block?
+    {
+      my @oldkeys = grep $_ >= $pos + $nrecs, $self->{cache}->ckeys;
+      my @newkeys = map $_-$nrecs+@data, @oldkeys;
+      $self->{cache}->rekey(\@oldkeys, \@newkeys);
+    }
+
+    # Now there might be too much data in the cache, if we spliced out
+    # some short records and spliced in some long ones.  If so, flush
+    # the cache.
+    $self->_cache_flush;
+  }
+
+  # Yes, the return value of 'splice' *is* actually this complicated
+  wantarray ? @result : @result ? $result[-1] : undef;
+}
+
+
+# write data into the file
+# $data is the data to be written.
+# it should be written at position $pos, and should overwrite
+# exactly $len of the following bytes.  
+# Note that if length($data) > $len, the subsequent bytes will have to 
+# be moved up, and if length($data) < $len, they will have to
+# be moved down
+sub _twrite {
+  my ($self, $data, $pos, $len) = @_;
+
+  unless (defined $pos) {
+    die "\$pos was undefined in _twrite";
+  }
+
+  my $len_diff = length($data) - $len;
+
+  if ($len_diff == 0) {          # Woo-hoo!
+    my $fh = $self->{fh};
+    $self->_seekb($pos);
+    $self->_write_record($data);
+    return;                     # well, that was easy.
+  }
+
+  # the two records are of different lengths
+  # our strategy here: rewrite the tail of the file,
+  # reading ahead one buffer at a time
+  # $bufsize is required to be at least as large as the data we're overwriting
+  my $bufsize = _bufsize($len_diff);
+  my ($writepos, $readpos) = ($pos, $pos+$len);
+  my $next_block;
+  my $more_data;
+
+  # Seems like there ought to be a way to avoid the repeated code
+  # and the special case here.  The read(1) is also a little weird.
+  # Think about this.
+  do {
+    $self->_seekb($readpos);
+    my $br = read $self->{fh}, $next_block, $bufsize;
+    $more_data = read $self->{fh}, my($dummy), 1;
+    $self->_seekb($writepos);
+    $self->_write_record($data);
+    $readpos += $br;
+    $writepos += length $data;
+    $data = $next_block;
+  } while $more_data;
+  $self->_seekb($writepos);
+  $self->_write_record($next_block);
+
+  # There might be leftover data at the end of the file
+  $self->_chop_file if $len_diff < 0;
+}
+
+# _iwrite(D, S, E)
+# Insert text D at position S.
+# Let C = E-S-|D|.  If C < 0; die.  
+# Data in [S,S+C) is copied to [S+D,S+D+C) = [S+D,E).
+# Data in [S+C = E-D, E) is returned.  Data in [E, oo) is untouched.
+#
+# In a later version, don't read the entire intervening area into
+# memory at once; do the copying block by block.
+sub _iwrite {
+  my $self = shift;
+  my ($D, $s, $e) = @_;
+  my $d = length $D;
+  my $c = $e-$s-$d;
+  local *FH = $self->{fh};
+  confess "Not enough space to insert $d bytes between $s and $e"
+    if $c < 0;
+  confess "[$s,$e) is an invalid insertion range" if $e < $s;
+
+  $self->_seekb($s);
+  read FH, my $buf, $e-$s;
+
+  $D .= substr($buf, 0, $c, "");
+
+  $self->_seekb($s);
+  $self->_write_record($D);
+
+  return $buf;
+}
+
+# Like _twrite, but the data-pos-len triple may be repeated; you may
+# write several chunks.  All the writing will be done in
+# one pass.   Chunks SHALL be in ascending order and SHALL NOT overlap.
+sub _mtwrite {
+  my $self = shift;
+  my $unwritten = "";
+  my $delta = 0;
+
+  @_ % 3 == 0 
+    or die "Arguments to _mtwrite did not come in groups of three";
+
+  while (@_) {
+    my ($data, $pos, $len) = splice @_, 0, 3;
+    my $end = $pos + $len;  # The OLD end of the segment to be replaced
+    $data = $unwritten . $data;
+    $delta -= length($unwritten);
+    $unwritten  = "";
+    $pos += $delta;             # This is where the data goes now
+    my $dlen = length $data;
+    $self->_seekb($pos);
+    if ($len >= $dlen) {        # the data will fit
+      $self->_write_record($data);
+      $delta += ($dlen - $len); # everything following moves down by this much
+      $data = ""; # All the data in the buffer has been written
+    } else {                    # won't fit
+      my $writable = substr($data, 0, $len - $delta, "");
+      $self->_write_record($writable);
+      $delta += ($dlen - $len); # everything following moves down by this much
+    } 
+
+    # At this point we've written some but maybe not all of the data.
+    # There might be a gap to close up, or $data might still contain a
+    # bunch of unwritten data that didn't fit.
+    my $ndlen = length $data;
+    if ($delta == 0) {
+      $self->_write_record($data);
+    } elsif ($delta < 0) {
+      # upcopy (close up gap)
+      if (@_) {
+        $self->_upcopy($end, $end + $delta, $_[1] - $end);  
+      } else {
+        $self->_upcopy($end, $end + $delta);  
+      }
+    } else {
+      # downcopy (insert data that didn't fit; replace this data in memory
+      # with _later_ data that doesn't fit)
+      if (@_) {
+        $unwritten = $self->_downcopy($data, $end, $_[1] - $end);
+      } else {
+        # Make the file longer to accommodate the last segment that doesn't
+        $unwritten = $self->_downcopy($data, $end);
+      }
+    }
+  }
+}
+
+# Copy block of data of length $len from position $spos to position $dpos
+# $dpos must be <= $spos
+#
+# If $len is undefined, go all the way to the end of the file
+# and then truncate it ($spos - $dpos bytes will be removed)
+sub _upcopy {
+  my $blocksize = 8192;
+  my ($self, $spos, $dpos, $len) = @_;
+  if ($dpos > $spos) {
+    die "source ($spos) was upstream of destination ($dpos) in _upcopy";
+  } elsif ($dpos == $spos) {
+    return;
+  }
+
+  while (! defined ($len) || $len > 0) {
+    my $readsize = ! defined($len) ? $blocksize
+               : $len > $blocksize ? $blocksize
+               : $len;
+      
+    my $fh = $self->{fh};
+    $self->_seekb($spos);
+    my $bytes_read = read $fh, my($data), $readsize;
+    $self->_seekb($dpos);
+    if ($data eq "") { 
+      $self->_chop_file;
+      last;
+    }
+    $self->_write_record($data);
+    $spos += $bytes_read;
+    $dpos += $bytes_read;
+    $len -= $bytes_read if defined $len;
+  }
+}
+
+# Write $data into a block of length $len at position $pos,
+# moving everything in the block forwards to make room.
+# Instead of writing the last length($data) bytes from the block
+# (because there isn't room for them any longer) return them.
+#
+# Undefined $len means 'until the end of the file'
+sub _downcopy {
+  my $blocksize = 8192;
+  my ($self, $data, $pos, $len) = @_;
+  my $fh = $self->{fh};
+
+  while (! defined $len || $len > 0) {
+    my $readsize = ! defined($len) ? $blocksize 
+      : $len > $blocksize? $blocksize : $len;
+    $self->_seekb($pos);
+    read $fh, my($old), $readsize;
+    my $last_read_was_short = length($old) < $readsize;
+    $data .= $old;
+    my $writable;
+    if ($last_read_was_short) {
+      # If last read was short, then $data now contains the entire rest
+      # of the file, so there's no need to write only one block of it
+      $writable = $data;
+      $data = "";
+    } else {
+      $writable = substr($data, 0, $readsize, "");
+    }
+    last if $writable eq "";
+    $self->_seekb($pos);
+    $self->_write_record($writable);
+    last if $last_read_was_short && $data eq "";
+    $len -= $readsize if defined $len;
+    $pos += $readsize;
+  }
+  return $data;
+}
+
+# Adjust the object data structures following an '_mtwrite'
+# Arguments are
+#  [$pos, $nrecs, @length]  items
+# indicating that $nrecs records were removed at $recpos (a record offset)
+# and replaced with records of length @length...
+# Arguments guarantee that $recpos is strictly increasing.
+# No return value
+sub _oadjust {
+  my $self = shift;
+  my $delta = 0;
+  my $delta_recs = 0;
+  my $prev_end = -1;
+  my %newkeys;
+
+  for (@_) {
+    my ($pos, $nrecs, @data) = @$_;
+    $pos += $delta_recs;
+
+    # Adjust the offsets of the records after the previous batch up
+    # to the first new one of this batch
+    for my $i ($prev_end+2 .. $pos - 1) {
+      $self->{offsets}[$i] += $delta;
+      $newkey{$i} = $i + $delta_recs;
+    }
+
+    $prev_end = $pos + @data - 1; # last record moved on this pass 
+
+    # Remove the offsets for the removed records;
+    # replace with the offsets for the inserted records
+    my @newoff = ($self->{offsets}[$pos] + $delta);
+    for my $i (0 .. $#data) {
+      my $newlen = length $data[$i];
+      push @newoff, $newoff[$i] + $newlen;
+      $delta += $newlen;
+    }
+
+    for my $i ($pos .. $pos+$nrecs-1) {
+      last if $i+1 > $#{$self->{offsets}};
+      my $oldlen = $self->{offsets}[$i+1] - $self->{offsets}[$i];
+      $delta -= $oldlen;
+    }
+
+#    # also this data has changed, so update it in the cache
+#    for (0 .. $#data) {
+#      $self->{cache}->update($pos + $_, $data[$_]);
+#    }
+#    if ($delta_recs) {
+#      my @oldkeys = grep $_ >= $pos + @data, $self->{cache}->ckeys;
+#      my @newkeys = map $_ + $delta_recs, @oldkeys;
+#      $self->{cache}->rekey(\@oldkeys, \@newkeys);
+#    }
+
+    # replace old offsets with new
+    splice @{$self->{offsets}}, $pos, $nrecs+1, @newoff;
+    # What if we just spliced out the end of the offsets table?
+    # shouldn't we clear $self->{eof}?   Test for this XXX BUG TODO
+
+    $delta_recs += @data - $nrecs; # net change in total number of records
+  }
+
+  # The trailing records at the very end of the file
+  if ($delta) {
+    for my $i ($prev_end+2 .. $#{$self->{offsets}}) {
+      $self->{offsets}[$i] += $delta;
+    }
+  }
+
+  # If we scrubbed out all known offsets, regenerate the trivial table
+  # that knows that the file does indeed start at 0.
+  $self->{offsets}[0] = 0 unless @{$self->{offsets}};
+  # If the file got longer, the offsets table is no longer complete
+  # $self->{eof} = 0 if $delta_recs > 0;
+
+  # Now there might be too much data in the cache, if we spliced out
+  # some short records and spliced in some long ones.  If so, flush
+  # the cache.
+  $self->_cache_flush;
+}
+
+# If a record does not already end with the appropriate terminator
+# string, append one.
+sub _fixrecs {
+  my $self = shift;
+  for (@_) {
+    $_ = "" unless defined $_;
+    $_ .= $self->{recsep}
+      unless substr($_, - $self->{recseplen}) eq $self->{recsep};
+  }
+}
+
+
+################################################################
+#
+# Basic read, write, and seek
+#
+
+# seek to the beginning of record #$n
+# Assumes that the offsets table is already correctly populated
+#
+# Note that $n=-1 has a special meaning here: It means the start of
+# the last known record; this may or may not be the very last record
+# in the file, depending on whether the offsets table is fully populated.
+#
+sub _seek {
+  my ($self, $n) = @_;
+  my $o = $self->{offsets}[$n];
+  defined($o)
+    or confess("logic error: undefined offset for record $n");
+  seek $self->{fh}, $o, SEEK_SET
+    or confess "Couldn't seek filehandle: $!";  # "Should never happen."
+}
+
+# seek to byte $b in the file
+sub _seekb {
+  my ($self, $b) = @_;
+  seek $self->{fh}, $b, SEEK_SET
+    or die "Couldn't seek filehandle: $!";  # "Should never happen."
+}
+
+# populate the offsets table up to the beginning of record $n
+# return the offset of record $n
+sub _fill_offsets_to {
+  my ($self, $n) = @_;
+
+  return $self->{offsets}[$n] if $self->{eof};
+
+  my $fh = $self->{fh};
+  local *OFF = $self->{offsets};
+  my $rec;
+
+  until ($#OFF >= $n) {
+    $self->_seek(-1);           # tricky -- see comment at _seek
+    $rec = $self->_read_record;
+    if (defined $rec) {
+      push @OFF, int(tell $fh);  # Tels says that int() saves memory here
+    } else {
+      $self->{eof} = 1;
+      return;                   # It turns out there is no such record
+    }
+  }
+
+  # we have now read all the records up to record n-1,
+  # so we can return the offset of record n
+  $OFF[$n];
+}
+
+sub _fill_offsets {
+  my ($self) = @_;
+
+  my $fh = $self->{fh};
+  local *OFF = $self->{offsets};
+
+  $self->_seek(-1);           # tricky -- see comment at _seek
+
+  # Tels says that inlining read_record() would make this loop
+  # five times faster. 20030508
+  while ( defined $self->_read_record()) {
+    # int() saves us memory here
+    push @OFF, int(tell $fh);
+  }
+
+  $self->{eof} = 1;
+  $#OFF;
+}
+
+# assumes that $rec is already suitably terminated
+sub _write_record {
+  my ($self, $rec) = @_;
+  my $fh = $self->{fh};
+  local $\ = "";
+  print $fh $rec
+    or die "Couldn't write record: $!";  # "Should never happen."
+#  $self->{_written} += length($rec);
+}
+
+sub _read_record {
+  my $self = shift;
+  my $rec;
+  { local $/ = $self->{recsep};
+    my $fh = $self->{fh};
+    $rec = <$fh>;
+  }
+  return unless defined $rec;
+  if (substr($rec, -$self->{recseplen}) ne $self->{recsep}) {
+    # improperly terminated final record --- quietly fix it.
+#    my $ac = substr($rec, -$self->{recseplen});
+#    $ac =~ s/\n/\\n/g;
+    $self->{sawlastrec} = 1;
+    unless ($self->{rdonly}) {
+      local $\ = "";
+      my $fh = $self->{fh};
+      print $fh $self->{recsep};
+    }
+    $rec .= $self->{recsep};
+  }
+#  $self->{_read} += length($rec) if defined $rec;
+  $rec;
+}
+
+sub _rw_stats {
+  my $self = shift;
+  @{$self}{'_read', '_written'};
+}
+
+################################################################
+#
+# Read cache management
+
+sub _cache_flush {
+  my ($self) = @_;
+  $self->{cache}->reduce_size_to($self->{memory} - $self->{deferred_s});
+}
+
+sub _cache_too_full {
+  my $self = shift;
+  $self->{cache}->bytes + $self->{deferred_s} >= $self->{memory};
+}
+
+################################################################
+#
+# File custodial services
+#
+
+
+# We have read to the end of the file and have the offsets table
+# entirely populated.  Now we need to write a new record beyond
+# the end of the file.  We prepare for this by writing
+# empty records into the file up to the position we want
+#
+# assumes that the offsets table already contains the offset of record $n,
+# if it exists, and extends to the end of the file if not.
+sub _extend_file_to {
+  my ($self, $n) = @_;
+  $self->_seek(-1);             # position after the end of the last record
+  my $pos = $self->{offsets}[-1];
+
+  # the offsets table has one entry more than the total number of records
+  my $extras = $n - $#{$self->{offsets}};
+
+  # Todo : just use $self->{recsep} x $extras here?
+  while ($extras-- > 0) {
+    $self->_write_record($self->{recsep});
+    push @{$self->{offsets}}, int(tell $self->{fh});
+  }
+}
+
+# Truncate the file at the current position
+sub _chop_file {
+  my $self = shift;
+  truncate $self->{fh}, tell($self->{fh});
+}
+
+
+# compute the size of a buffer suitable for moving
+# all the data in a file forward $n bytes
+# ($n may be negative)
+# The result should be at least $n.
+sub _bufsize {
+  my $n = shift;
+  return 8192 if $n <= 0;
+  my $b = $n & ~8191;
+  $b += 8192 if $n & 8191;
+  $b;
+}
+
+################################################################
+#
+# Miscellaneous public methods
+#
+
+# Lock the file
+sub flock {
+  my ($self, $op) = @_;
+  unless (@_ <= 3) {
+    my $pack = ref $self;
+    croak "Usage: $pack\->flock([OPERATION])";
+  }
+  my $fh = $self->{fh};
+  $op = LOCK_EX unless defined $op;
+  my $locked = flock $fh, $op;
+
+  if ($locked && ($op & (LOCK_EX | LOCK_SH))) {
+    # If you're locking the file, then presumably it's because
+    # there might have been a write access by another process.
+    # In that case, the read cache contents and the offsets table
+    # might be invalid, so discard them.  20030508
+    $self->{offsets} = [0];
+    $self->{cache}->empty;
+  }
+
+  $locked;
+}
+
+# Get/set autochomp option
+sub autochomp {
+  my $self = shift;
+  if (@_) {
+    my $old = $self->{autochomp};
+    $self->{autochomp} = shift;
+    $old;
+  } else {
+    $self->{autochomp};
+  }
+}
+
+# Get offset table entries; returns offset of nth record
+sub offset {
+  my ($self, $n) = @_;
+
+  if ($#{$self->{offsets}} < $n) {
+    return if $self->{eof};     # request for record beyond the end of file
+    my $o = $self->_fill_offsets_to($n);
+    # If it's still undefined, there is no such record, so return 'undef'
+    return unless defined $o;
+   }
+
+  $self->{offsets}[$n];
+}
+
+sub discard_offsets {
+  my $self = shift;
+  $self->{offsets} = [0];
+}
+
+################################################################
+#
+# Matters related to deferred writing
+#
+
+# Defer writes
+sub defer {
+  my $self = shift;
+  $self->_stop_autodeferring;
+  @{$self->{ad_history}} = ();
+  $self->{defer} = 1;
+}
+
+# Flush deferred writes
+#
+# This could be better optimized to write the file in one pass, instead
+# of one pass per block of records.  But that will require modifications
+# to _twrite, so I should have a good _twrite test suite first.
+sub flush {
+  my $self = shift;
+
+  $self->_flush;
+  $self->{defer} = 0;
+}
+
+sub _old_flush {
+  my $self = shift;
+  my @writable = sort {$a<=>$b} (keys %{$self->{deferred}});
+
+  while (@writable) {
+    # gather all consecutive records from the front of @writable
+    my $first_rec = shift @writable;
+    my $last_rec = $first_rec+1;
+    ++$last_rec, shift @writable while @writable && $last_rec == $writable[0];
+    --$last_rec;
+    $self->_fill_offsets_to($last_rec);
+    $self->_extend_file_to($last_rec);
+    $self->_splice($first_rec, $last_rec-$first_rec+1, 
+                   @{$self->{deferred}}{$first_rec .. $last_rec});
+  }
+
+  $self->_discard;               # clear out defered-write-cache
+}
+
+sub _flush {
+  my $self = shift;
+  my @writable = sort {$a<=>$b} (keys %{$self->{deferred}});
+  my @args;
+  my @adjust;
+
+  while (@writable) {
+    # gather all consecutive records from the front of @writable
+    my $first_rec = shift @writable;
+    my $last_rec = $first_rec+1;
+    ++$last_rec, shift @writable while @writable && $last_rec == $writable[0];
+    --$last_rec;
+    my $end = $self->_fill_offsets_to($last_rec+1);
+    if (not defined $end) {
+      $self->_extend_file_to($last_rec);
+      $end = $self->{offsets}[$last_rec];
+    }
+    my ($start) = $self->{offsets}[$first_rec];
+    push @args,
+         join("", @{$self->{deferred}}{$first_rec .. $last_rec}), # data
+         $start,                                                  # position
+         $end-$start;                                             # length
+    push @adjust, [$first_rec, # starting at this position...
+                   $last_rec-$first_rec+1,  # this many records...
+                   # are replaced with these...
+                   @{$self->{deferred}}{$first_rec .. $last_rec},
+                  ];
+  }
+
+  $self->_mtwrite(@args);  # write multiple record groups
+  $self->_discard;               # clear out defered-write-cache
+  $self->_oadjust(@adjust);
+}
+
+# Discard deferred writes and disable future deferred writes
+sub discard {
+  my $self = shift;
+  $self->_discard;
+  $self->{defer} = 0;
+}
+
+# Discard deferred writes, but retain old deferred writing mode
+sub _discard {
+  my $self = shift;
+  %{$self->{deferred}} = ();
+  $self->{deferred_s}  = 0;
+  $self->{deferred_max}  = -1;
+  $self->{cache}->set_limit($self->{memory});
+}
+
+# Deferred writing is enabled, either explicitly ($self->{defer})
+# or automatically ($self->{autodeferring})
+sub _is_deferring {
+  my $self = shift;
+  $self->{defer} || $self->{autodeferring};
+}
+
+# The largest record number of any deferred record
+sub _defer_max {
+  my $self = shift;
+  return $self->{deferred_max} if defined $self->{deferred_max};
+  my $max = -1;
+  for my $key (keys %{$self->{deferred}}) {
+    $max = $key if $key > $max;
+  }
+  $self->{deferred_max} = $max;
+  $max;
+}
+
+################################################################
+#
+# Matters related to autodeferment
+#
+
+# Get/set autodefer option
+sub autodefer {
+  my $self = shift;
+  if (@_) {
+    my $old = $self->{autodefer};
+    $self->{autodefer} = shift;
+    if ($old) {
+      $self->_stop_autodeferring;
+      @{$self->{ad_history}} = ();
+    }
+    $old;
+  } else {
+    $self->{autodefer};
+  }
+}
+
+# The user is trying to store record #$n Record that in the history,
+# and then enable (or disable) autodeferment if that seems useful.
+# Note that it's OK for $n to be a non-number, as long as the function
+# is prepared to deal with that.  Nobody else looks at the ad_history.
+#
+# Now, what does the ad_history mean, and what is this function doing?
+# Essentially, the idea is to enable autodeferring when we see that the
+# user has made three consecutive STORE calls to three consecutive records.
+# ("Three" is actually ->{autodefer_threshhold}.)
+# A STORE call for record #$n inserts $n into the autodefer history,
+# and if the history contains three consecutive records, we enable 
+# autodeferment.  An ad_history of [X, Y] means that the most recent
+# STOREs were for records X, X+1, ..., Y, in that order.  
+#
+# Inserting a nonconsecutive number erases the history and starts over.
+#
+# Performing a special operation like SPLICE erases the history.
+#
+# There's one special case: CLEAR means that CLEAR was just called.
+# In this case, we prime the history with [-2, -1] so that if the next
+# write is for record 0, autodeferring goes on immediately.  This is for
+# the common special case of "@a = (...)".
+#
+sub _annotate_ad_history {
+  my ($self, $n) = @_;
+  return unless $self->{autodefer}; # feature is disabled
+  return if $self->{defer};     # already in explicit defer mode
+  return unless $self->{offsets}[-1] >= $self->{autodefer_filelen_threshhold};
+
+  local *H = $self->{ad_history};
+  if ($n eq 'CLEAR') {
+    @H = (-2, -1);              # prime the history with fake records
+    $self->_stop_autodeferring;
+  } elsif ($n =~ /^\d+$/) {
+    if (@H == 0) {
+      @H =  ($n, $n);
+    } else {                    # @H == 2
+      if ($H[1] == $n-1) {      # another consecutive record
+        $H[1]++;
+        if ($H[1] - $H[0] + 1 >= $self->{autodefer_threshhold}) {
+          $self->{autodeferring} = 1;
+        }
+      } else {                  # nonconsecutive- erase and start over
+        @H = ($n, $n);
+        $self->_stop_autodeferring;
+      }
+    }
+  } else {                      # SPLICE or STORESIZE or some such
+    @H = ();
+    $self->_stop_autodeferring;
+  }
+}
+
+# If autodeferring was enabled, cut it out and discard the history
+sub _stop_autodeferring {
+  my $self = shift;
+  if ($self->{autodeferring}) {
+    $self->_flush;
+  }
+  $self->{autodeferring} = 0;
+}
+
+################################################################
+
+
+# This is NOT a method.  It is here for two reasons:
+#  1. To factor a fairly complicated block out of the constructor
+#  2. To provide access for the test suite, which need to be sure
+#     files are being written properly.
+sub _default_recsep {
+  my $recsep = $/;
+  if ($^O eq 'MSWin32') {       # Dos too?
+    # Windows users expect files to be terminated with \r\n
+    # But $/ is set to \n instead
+    # Note that this also transforms \n\n into \r\n\r\n.
+    # That is a feature.
+    $recsep =~ s/\n/\r\n/g;
+  }
+  $recsep;
+}
+
+# Utility function for _check_integrity
+sub _ci_warn {
+  my $msg = shift;
+  $msg =~ s/\n/\\n/g;
+  $msg =~ s/\r/\\r/g;
+  print "# $msg\n";
+}
+
+# Given a file, make sure the cache is consistent with the
+# file contents and the internal data structures are consistent with
+# each other.  Returns true if everything checks out, false if not
+#
+# The $file argument is no longer used.  It is retained for compatibility
+# with the existing test suite.
+sub _check_integrity {
+  my ($self, $file, $warn) = @_;
+  my $rsl = $self->{recseplen};
+  my $rs  = $self->{recsep};
+  my $good = 1; 
+  local *_;                     # local $_ does not work here
+  local $DIAGNOSTIC = 1;
+
+  if (not defined $rs) {
+    _ci_warn("recsep is undef!");
+    $good = 0;
+  } elsif ($rs eq "") {
+    _ci_warn("recsep is empty!");
+    $good = 0;
+  } elsif ($rsl != length $rs) {
+    my $ln = length $rs;
+    _ci_warn("recsep <$rs> has length $ln, should be $rsl");
+    $good = 0;
+  }
+
+  if (not defined $self->{offsets}[0]) {
+    _ci_warn("offset 0 is missing!");
+    $good = 0;
+
+  } elsif ($self->{offsets}[0] != 0) {
+    _ci_warn("rec 0: offset <$self->{offsets}[0]> s/b 0!");
+    $good = 0;
+  }
+
+  my $cached = 0;
+  {
+    local *F = $self->{fh};
+    seek F, 0, SEEK_SET;
+    local $. = 0;
+    local $/ = $rs;
+
+    while (<F>) {
+      my $n = $. - 1;
+      my $cached = $self->{cache}->_produce($n);
+      my $offset = $self->{offsets}[$.];
+      my $ao = tell F;
+      if (defined $offset && $offset != $ao) {
+        _ci_warn("rec $n: offset <$offset> actual <$ao>");
+        $good = 0;
+      }
+      if (defined $cached && $_ ne $cached && ! $self->{deferred}{$n}) {
+        $good = 0;
+        _ci_warn("rec $n: cached <$cached> actual <$_>");
+      }
+      if (defined $cached && substr($cached, -$rsl) ne $rs) {
+        $good = 0;
+        _ci_warn("rec $n in the cache is missing the record separator");
+      }
+      if (! defined $offset && $self->{eof}) {
+        $good = 0;
+        _ci_warn("The offset table was marked complete, but it is missing " .
+                 "element $.");
+      }
+    }
+    if (@{$self->{offsets}} > $.+1) {
+        $good = 0;
+        my $n = @{$self->{offsets}};
+        _ci_warn("The offset table has $n items, but the file has only $.");
+    }
+
+    my $deferring = $self->_is_deferring;
+    for my $n ($self->{cache}->ckeys) {
+      my $r = $self->{cache}->_produce($n);
+      $cached += length($r);
+      next if $n+1 <= $.;         # checked this already
+      _ci_warn("spurious caching of record $n");
+      $good = 0;
+    }
+    my $b = $self->{cache}->bytes;
+    if ($cached != $b) {
+      _ci_warn("cache size is $b, should be $cached");
+      $good = 0;
+    }
+  }
+
+  # That cache has its own set of tests
+  $good = 0 unless $self->{cache}->_check_integrity;
+
+  # Now let's check the deferbuffer
+  # Unless deferred writing is enabled, it should be empty
+  if (! $self->_is_deferring && %{$self->{deferred}}) {
+    _ci_warn("deferred writing disabled, but deferbuffer nonempty");
+    $good = 0;
+  }
+
+  # Any record in the deferbuffer should *not* be present in the readcache
+  my $deferred_s = 0;
+  while (my ($n, $r) = each %{$self->{deferred}}) {
+    $deferred_s += length($r);
+    if (defined $self->{cache}->_produce($n)) {
+      _ci_warn("record $n is in the deferbuffer *and* the readcache");
+      $good = 0;
+    }
+    if (substr($r, -$rsl) ne $rs) {
+      _ci_warn("rec $n in the deferbuffer is missing the record separator");
+      $good = 0;
+    }
+  }
+
+  # Total size of deferbuffer should match internal total
+  if ($deferred_s != $self->{deferred_s}) {
+    _ci_warn("buffer size is $self->{deferred_s}, should be $deferred_s");
+    $good = 0;
+  }
+
+  # Total size of deferbuffer should not exceed the specified limit
+  if ($deferred_s > $self->{dw_size}) {
+    _ci_warn("buffer size is $self->{deferred_s} which exceeds the limit " .
+             "of $self->{dw_size}");
+    $good = 0;
+  }
+
+  # Total size of cached data should not exceed the specified limit
+  if ($deferred_s + $cached > $self->{memory}) {
+    my $total = $deferred_s + $cached;
+    _ci_warn("total stored data size is $total which exceeds the limit " .
+             "of $self->{memory}");
+    $good = 0;
+  }
+
+  # Stuff related to autodeferment
+  if (!$self->{autodefer} && @{$self->{ad_history}}) {
+    _ci_warn("autodefer is disabled, but ad_history is nonempty");
+    $good = 0;
+  }
+  if ($self->{autodeferring} && $self->{defer}) {
+    _ci_warn("both autodeferring and explicit deferring are active");
+    $good = 0;
+  }
+  if (@{$self->{ad_history}} == 0) {
+    # That's OK, no additional tests required
+  } elsif (@{$self->{ad_history}} == 2) {
+    my @non_number = grep !/^-?\d+$/, @{$self->{ad_history}};
+    if (@non_number) {
+      my $msg;
+      { local $" = ')(';
+        $msg = "ad_history contains non-numbers (@{$self->{ad_history}})";
+      }
+      _ci_warn($msg);
+      $good = 0;
+    } elsif ($self->{ad_history}[1] < $self->{ad_history}[0]) {
+      _ci_warn("ad_history has nonsensical values @{$self->{ad_history}}");
+      $good = 0;
+    }
+  } else {
+    _ci_warn("ad_history has bad length <@{$self->{ad_history}}>");
+    $good = 0;
+  }
+
+  $good;
+}
+
+################################################################
+#
+# Tie::File::Cache
+#
+# Read cache
+
+package Tie::File::Cache;
+$Tie::File::Cache::VERSION = $Tie::File::VERSION;
+use Carp ':DEFAULT', 'confess';
+
+sub HEAP () { 0 }
+sub HASH () { 1 }
+sub MAX  () { 2 }
+sub BYTES() { 3 }
+#sub STAT () { 4 } # Array with request statistics for each record
+#sub MISS () { 5 } # Total number of cache misses
+#sub REQ  () { 6 } # Total number of cache requests 
+use strict 'vars';
+
+sub new {
+  my ($pack, $max) = @_;
+  local *_;
+  croak "missing argument to ->new" unless defined $max;
+  my $self = [];
+  bless $self => $pack;
+  @$self = (Tie::File::Heap->new($self), {}, $max, 0);
+  $self;
+}
+
+sub adj_limit {
+  my ($self, $n) = @_;
+  $self->[MAX] += $n;
+}
+
+sub set_limit {
+  my ($self, $n) = @_;
+  $self->[MAX] = $n;
+}
+
+# For internal use only
+# Will be called by the heap structure to notify us that a certain 
+# piece of data has moved from one heap element to another.
+# $k is the hash key of the item
+# $n is the new index into the heap at which it is stored
+# If $n is undefined, the item has been removed from the heap.
+sub _heap_move {
+  my ($self, $k, $n) = @_;
+  if (defined $n) {
+    $self->[HASH]{$k} = $n;
+  } else {
+    delete $self->[HASH]{$k};
+  }
+}
+
+sub insert {
+  my ($self, $key, $val) = @_;
+  local *_;
+  croak "missing argument to ->insert" unless defined $key;
+  unless (defined $self->[MAX]) {
+    confess "undefined max" ;
+  }
+  confess "undefined val" unless defined $val;
+  return if length($val) > $self->[MAX];
+
+#  if ($self->[STAT]) {
+#    $self->[STAT][$key] = 1;
+#    return;
+#  }
+
+  my $oldnode = $self->[HASH]{$key};
+  if (defined $oldnode) {
+    my $oldval = $self->[HEAP]->set_val($oldnode, $val);
+    $self->[BYTES] -= length($oldval);
+  } else {
+    $self->[HEAP]->insert($key, $val);
+  }
+  $self->[BYTES] += length($val);
+  $self->flush if $self->[BYTES] > $self->[MAX];
+}
+
+sub expire {
+  my $self = shift;
+  my $old_data = $self->[HEAP]->popheap;
+  return unless defined $old_data;
+  $self->[BYTES] -= length $old_data;
+  $old_data;
+}
+
+sub remove {
+  my ($self, @keys) = @_;
+  my @result;
+
+#  if ($self->[STAT]) {
+#    for my $key (@keys) {
+#      $self->[STAT][$key] = 0;
+#    }
+#    return;
+#  }
+
+  for my $key (@keys) {
+    next unless exists $self->[HASH]{$key};
+    my $old_data = $self->[HEAP]->remove($self->[HASH]{$key});
+    $self->[BYTES] -= length $old_data;
+    push @result, $old_data;
+  }
+  @result;
+}
+
+sub lookup {
+  my ($self, $key) = @_;
+  local *_;
+  croak "missing argument to ->lookup" unless defined $key;
+
+#  if ($self->[STAT]) {
+#    $self->[MISS]++  if $self->[STAT][$key]++ == 0;
+#    $self->[REQ]++;
+#    my $hit_rate = 1 - $self->[MISS] / $self->[REQ];
+#    # Do some testing to determine this threshhold
+#    $#$self = STAT - 1 if $hit_rate > 0.20; 
+#  }
+
+  if (exists $self->[HASH]{$key}) {
+    $self->[HEAP]->lookup($self->[HASH]{$key});
+  } else {
+    return;
+  }
+}
+
+# For internal use only
+sub _produce {
+  my ($self, $key) = @_;
+  my $loc = $self->[HASH]{$key};
+  return unless defined $loc;
+  $self->[HEAP][$loc][2];
+}
+
+# For internal use only
+sub _promote {
+  my ($self, $key) = @_;
+  $self->[HEAP]->promote($self->[HASH]{$key});
+}
+
+sub empty {
+  my ($self) = @_;
+  %{$self->[HASH]} = ();
+    $self->[BYTES] = 0;
+    $self->[HEAP]->empty;
+#  @{$self->[STAT]} = ();
+#    $self->[MISS] = 0;
+#    $self->[REQ] = 0;
+}
+
+sub is_empty {
+  my ($self) = @_;
+  keys %{$self->[HASH]} == 0;
+}
+
+sub update {
+  my ($self, $key, $val) = @_;
+  local *_;
+  croak "missing argument to ->update" unless defined $key;
+  if (length($val) > $self->[MAX]) {
+    my ($oldval) = $self->remove($key);
+    $self->[BYTES] -= length($oldval) if defined $oldval;
+  } elsif (exists $self->[HASH]{$key}) {
+    my $oldval = $self->[HEAP]->set_val($self->[HASH]{$key}, $val);
+    $self->[BYTES] += length($val);
+    $self->[BYTES] -= length($oldval) if defined $oldval;
+  } else {
+    $self->[HEAP]->insert($key, $val);
+    $self->[BYTES] += length($val);
+  }
+  $self->flush;
+}
+
+sub rekey {
+  my ($self, $okeys, $nkeys) = @_;
+  local *_;
+  my %map;
+  @map{@$okeys} = @$nkeys;
+  croak "missing argument to ->rekey" unless defined $nkeys;
+  croak "length mismatch in ->rekey arguments" unless @$nkeys == @$okeys;
+  my %adjusted;                 # map new keys to heap indices
+  # You should be able to cut this to one loop TODO XXX
+  for (0 .. $#$okeys) {
+    $adjusted{$nkeys->[$_]} = delete $self->[HASH]{$okeys->[$_]};
+  }
+  while (my ($nk, $ix) = each %adjusted) {
+    # @{$self->[HASH]}{keys %adjusted} = values %adjusted;
+    $self->[HEAP]->rekey($ix, $nk);
+    $self->[HASH]{$nk} = $ix;
+  }
+}
+
+sub ckeys {
+  my $self = shift;
+  my @a = keys %{$self->[HASH]};
+  @a;
+}
+
+# Return total amount of cached data
+sub bytes {
+  my $self = shift;
+  $self->[BYTES];
+}
+
+# Expire oldest item from cache until cache size is smaller than $max
+sub reduce_size_to {
+  my ($self, $max) = @_;
+  until ($self->[BYTES] <= $max) {
+    # Note that Tie::File::Cache::expire has been inlined here
+    my $old_data = $self->[HEAP]->popheap;
+    return unless defined $old_data;
+    $self->[BYTES] -= length $old_data;
+  }
+}
+
+# Why not just $self->reduce_size_to($self->[MAX])?
+# Try this when things stabilize   TODO XXX
+# If the cache is too full, expire the oldest records
+sub flush {
+  my $self = shift;
+  $self->reduce_size_to($self->[MAX]) if $self->[BYTES] > $self->[MAX];
+}
+
+# For internal use only
+sub _produce_lru {
+  my $self = shift;
+  $self->[HEAP]->expire_order;
+}
+
+BEGIN { *_ci_warn = \&Tie::File::_ci_warn }
+
+sub _check_integrity {          # For CACHE
+  my $self = shift;
+  my $good = 1;
+
+  # Test HEAP
+  $self->[HEAP]->_check_integrity or $good = 0;
+
+  # Test HASH
+  my $bytes = 0;
+  for my $k (keys %{$self->[HASH]}) {
+    if ($k ne '0' && $k !~ /^[1-9][0-9]*$/) {
+      $good = 0;
+      _ci_warn "Cache hash key <$k> is non-numeric";
+    }
+
+    my $h = $self->[HASH]{$k};
+    if (! defined $h) {
+      $good = 0;
+      _ci_warn "Heap index number for key $k is undefined";
+    } elsif ($h == 0) {
+      $good = 0;
+      _ci_warn "Heap index number for key $k is zero";
+    } else {
+      my $j = $self->[HEAP][$h];
+      if (! defined $j) {
+        $good = 0;
+        _ci_warn "Heap contents key $k (=> $h) are undefined";
+      } else {
+        $bytes += length($j->[2]);
+        if ($k ne $j->[1]) {
+          $good = 0;
+          _ci_warn "Heap contents key $k (=> $h) is $j->[1], should be $k";
+        }
+      }
+    }
+  }
+
+  # Test BYTES
+  if ($bytes != $self->[BYTES]) {
+    $good = 0;
+    _ci_warn "Total data in cache is $bytes, expected $self->[BYTES]";
+  }
+
+  # Test MAX
+  if ($bytes > $self->[MAX]) {
+    $good = 0;
+    _ci_warn "Total data in cache is $bytes, exceeds maximum $self->[MAX]";
+  }
+
+  return $good;
+}
+
+sub delink {
+  my $self = shift;
+  $self->[HEAP] = undef;        # Bye bye heap
+}
+
+################################################################
+#
+# Tie::File::Heap
+#
+# Heap data structure for use by cache LRU routines
+
+package Tie::File::Heap;
+use Carp ':DEFAULT', 'confess';
+$Tie::File::Heap::VERSION = $Tie::File::Cache::VERSION;
+sub SEQ () { 0 };
+sub KEY () { 1 };
+sub DAT () { 2 };
+
+sub new {
+  my ($pack, $cache) = @_;
+  die "$pack: Parent cache object $cache does not support _heap_move method"
+    unless eval { $cache->can('_heap_move') };
+  my $self = [[0,$cache,0]];
+  bless $self => $pack;
+}
+
+# Allocate a new sequence number, larger than all previously allocated numbers
+sub _nseq {
+  my $self = shift;
+  $self->[0][0]++;
+}
+
+sub _cache {
+  my $self = shift;
+  $self->[0][1];
+}
+
+sub _nelts {
+  my $self = shift;
+  $self->[0][2];
+}
+
+sub _nelts_inc {
+  my $self = shift;
+  ++$self->[0][2];
+}  
+
+sub _nelts_dec {
+  my $self = shift;
+  --$self->[0][2];
+}  
+
+sub is_empty {
+  my $self = shift;
+  $self->_nelts == 0;
+}
+
+sub empty {
+  my $self = shift;
+  $#$self = 0;
+  $self->[0][2] = 0;
+  $self->[0][0] = 0;            # might as well reset the sequence numbers
+}
+
+# notify the parent cache object that we moved something
+sub _heap_move {
+  my $self = shift;
+  $self->_cache->_heap_move(@_);
+}
+
+# Insert a piece of data into the heap with the indicated sequence number.
+# The item with the smallest sequence number is always at the top.
+# If no sequence number is specified, allocate a new one and insert the
+# item at the bottom.
+sub insert {
+  my ($self, $key, $data, $seq) = @_;
+  $seq = $self->_nseq unless defined $seq;
+  $self->_insert_new([$seq, $key, $data]);
+}
+
+# Insert a new, fresh item at the bottom of the heap
+sub _insert_new {
+  my ($self, $item) = @_;
+  my $i = @$self;
+  $i = int($i/2) until defined $self->[$i/2];
+  $self->[$i] = $item;
+  $self->[0][1]->_heap_move($self->[$i][KEY], $i);
+  $self->_nelts_inc;
+}
+
+# Insert [$data, $seq] pair at or below item $i in the heap.
+# If $i is omitted, default to 1 (the top element.)
+sub _insert {
+  my ($self, $item, $i) = @_;
+#  $self->_check_loc($i) if defined $i;
+  $i = 1 unless defined $i;
+  until (! defined $self->[$i]) {
+    if ($self->[$i][SEQ] > $item->[SEQ]) { # inserted item is older
+      ($self->[$i], $item) = ($item, $self->[$i]);
+      $self->[0][1]->_heap_move($self->[$i][KEY], $i);
+    }
+    # If either is undefined, go that way.  Otherwise, choose at random
+    my $dir;
+    $dir = 0 if !defined $self->[2*$i];
+    $dir = 1 if !defined $self->[2*$i+1];
+    $dir = int(rand(2)) unless defined $dir;
+    $i = 2*$i + $dir;
+  }
+  $self->[$i] = $item;
+  $self->[0][1]->_heap_move($self->[$i][KEY], $i);
+  $self->_nelts_inc;
+}
+
+# Remove the item at node $i from the heap, moving child items upwards.
+# The item with the smallest sequence number is always at the top.
+# Moving items upwards maintains this condition.
+# Return the removed item.  Return undef if there was no item at node $i.
+sub remove {
+  my ($self, $i) = @_;
+  $i = 1 unless defined $i;
+  my $top = $self->[$i];
+  return unless defined $top;
+  while (1) {
+    my $ii;
+    my ($L, $R) = (2*$i, 2*$i+1);
+
+    # If either is undefined, go the other way.
+    # Otherwise, go towards the smallest.
+    last unless defined $self->[$L] || defined $self->[$R];
+    $ii = $R if not defined $self->[$L];
+    $ii = $L if not defined $self->[$R];
+    unless (defined $ii) {
+      $ii = $self->[$L][SEQ] < $self->[$R][SEQ] ? $L : $R;
+    }
+
+    $self->[$i] = $self->[$ii]; # Promote child to fill vacated spot
+    $self->[0][1]->_heap_move($self->[$i][KEY], $i);
+    $i = $ii; # Fill new vacated spot
+  }
+  $self->[0][1]->_heap_move($top->[KEY], undef);
+  undef $self->[$i];
+  $self->_nelts_dec;
+  return $top->[DAT];
+}
+
+sub popheap {
+  my $self = shift;
+  $self->remove(1);
+}
+
+# set the sequence number of the indicated item to a higher number
+# than any other item in the heap, and bubble the item down to the
+# bottom.
+sub promote {
+  my ($self, $n) = @_;
+#  $self->_check_loc($n);
+  $self->[$n][SEQ] = $self->_nseq;
+  my $i = $n;
+  while (1) {
+    my ($L, $R) = (2*$i, 2*$i+1);
+    my $dir;
+    last unless defined $self->[$L] || defined $self->[$R];
+    $dir = $R unless defined $self->[$L];
+    $dir = $L unless defined $self->[$R];
+    unless (defined $dir) {
+      $dir = $self->[$L][SEQ] < $self->[$R][SEQ] ? $L : $R;
+    }
+    @{$self}[$i, $dir] = @{$self}[$dir, $i];
+    for ($i, $dir) {
+      $self->[0][1]->_heap_move($self->[$_][KEY], $_) if defined $self->[$_];
+    }
+    $i = $dir;
+  }
+}
+
+# Return item $n from the heap, promoting its LRU status
+sub lookup {
+  my ($self, $n) = @_;
+#  $self->_check_loc($n);
+  my $val = $self->[$n];
+  $self->promote($n);
+  $val->[DAT];
+}
+
+
+# Assign a new value for node $n, promoting it to the bottom of the heap
+sub set_val {
+  my ($self, $n, $val) = @_;
+#  $self->_check_loc($n);
+  my $oval = $self->[$n][DAT];
+  $self->[$n][DAT] = $val;
+  $self->promote($n);
+  return $oval;
+}
+
+# The hash key has changed for an item;
+# alter the heap's record of the hash key
+sub rekey {
+  my ($self, $n, $new_key) = @_;
+#  $self->_check_loc($n);
+  $self->[$n][KEY] = $new_key;
+}
+
+sub _check_loc {
+  my ($self, $n) = @_;
+  unless (1 || defined $self->[$n]) {
+    confess "_check_loc($n) failed";
+  }
+}
+
+BEGIN { *_ci_warn = \&Tie::File::_ci_warn }
+
+sub _check_integrity {
+  my $self = shift;
+  my $good = 1;
+  my %seq;
+
+  unless (eval {$self->[0][1]->isa("Tie::File::Cache")}) {
+    _ci_warn "Element 0 of heap corrupt";
+    $good = 0;
+  }
+  $good = 0 unless $self->_satisfies_heap_condition(1);
+  for my $i (2 .. $#{$self}) {
+    my $p = int($i/2);          # index of parent node
+    if (defined $self->[$i] && ! defined $self->[$p]) {
+      _ci_warn "Element $i of heap defined, but parent $p isn't";
+      $good = 0;
+    }
+
+    if (defined $self->[$i]) {
+      if ($seq{$self->[$i][SEQ]}) {
+        my $seq = $self->[$i][SEQ];
+        _ci_warn "Nodes $i and $seq{$seq} both have SEQ=$seq";
+        $good = 0;
+      } else {
+        $seq{$self->[$i][SEQ]} = $i;
+      }
+    }
+  }
+
+  return $good;
+}
+
+sub _satisfies_heap_condition {
+  my $self = shift;
+  my $n = shift || 1;
+  my $good = 1;
+  for (0, 1) {
+    my $c = $n*2 + $_;
+    next unless defined $self->[$c];
+    if ($self->[$n][SEQ] >= $self->[$c]) {
+      _ci_warn "Node $n of heap does not predate node $c";
+      $good = 0 ;
+    }
+    $good = 0 unless $self->_satisfies_heap_condition($c);
+  }
+  return $good;
+}
+
+# Return a list of all the values, sorted by expiration order
+sub expire_order {
+  my $self = shift;
+  my @nodes = sort {$a->[SEQ] <=> $b->[SEQ]} $self->_nodes;
+  map { $_->[KEY] } @nodes;
+}
+
+sub _nodes {
+  my $self = shift;
+  my $i = shift || 1;
+  return unless defined $self->[$i];
+  ($self->[$i], $self->_nodes($i*2), $self->_nodes($i*2+1));
+}
+
+"Cogito, ergo sum.";  # don't forget to return a true value from the file
+
+__END__
+
+=head1 NAME
+
+Tie::File - Access the lines of a disk file via a Perl array
+
+=head1 SYNOPSIS
+
+ # This file documents Tie::File version 0.98
+ use Tie::File;
+
+ tie @array, 'Tie::File', filename or die ...;
+
+ $array[13] = 'blah';     # line 13 of the file is now 'blah'
+ print $array[42];        # display line 42 of the file
+
+ $n_recs = @array;        # how many records are in the file?
+ $#array -= 2;            # chop two records off the end
+
+
+ for (@array) {
+   s/PERL/Perl/g;        # Replace PERL with Perl everywhere in the file
+ }
+
+ # These are just like regular push, pop, unshift, shift, and splice
+ # Except that they modify the file in the way you would expect
+
+ push @array, new recs...;
+ my $r1 = pop @array;
+ unshift @array, new recs...;
+ my $r2 = shift @array;
+ @old_recs = splice @array, 3, 7, new recs...;
+
+ untie @array;            # all finished
+
+
+=head1 DESCRIPTION
+
+C<Tie::File> represents a regular text file as a Perl array.  Each
+element in the array corresponds to a record in the file.  The first
+line of the file is element 0 of the array; the second line is element
+1, and so on.
+
+The file is I<not> loaded into memory, so this will work even for
+gigantic files.
+
+Changes to the array are reflected in the file immediately.
+
+Lazy people and beginners may now stop reading the manual.
+
+=head2 C<recsep>
+
+What is a 'record'?  By default, the meaning is the same as for the
+C<E<lt>...E<gt>> operator: It's a string terminated by C<$/>, which is
+probably C<"\n">.  (Minor exception: on DOS and Win32 systems, a
+'record' is a string terminated by C<"\r\n">.)  You may change the
+definition of "record" by supplying the C<recsep> option in the C<tie>
+call:
+
+	tie @array, 'Tie::File', $file, recsep => 'es';
+
+This says that records are delimited by the string C<es>.  If the file
+contained the following data:
+
+	Curse these pesky flies!\n
+
+then the C<@array> would appear to have four elements:
+
+	"Curse th"
+	"e p"
+	"ky fli"
+	"!\n"
+
+An undefined value is not permitted as a record separator.  Perl's
+special "paragraph mode" semantics (E<agrave> la C<$/ = "">) are not
+emulated.
+
+Records read from the tied array do not have the record separator
+string on the end; this is to allow
+
+	$array[17] .= "extra";
+
+to work as expected.
+
+(See L<"autochomp">, below.)  Records stored into the array will have
+the record separator string appended before they are written to the
+file, if they don't have one already.  For example, if the record
+separator string is C<"\n">, then the following two lines do exactly
+the same thing:
+
+	$array[17] = "Cherry pie";
+	$array[17] = "Cherry pie\n";
+
+The result is that the contents of line 17 of the file will be
+replaced with "Cherry pie"; a newline character will separate line 17
+from line 18.  This means that this code will do nothing:
+
+	chomp $array[17];
+
+Because the C<chomp>ed value will have the separator reattached when
+it is written back to the file.  There is no way to create a file
+whose trailing record separator string is missing.
+
+Inserting records that I<contain> the record separator string is not
+supported by this module.  It will probably produce a reasonable
+result, but what this result will be may change in a future version.
+Use 'splice' to insert records or to replace one record with several.
+
+=head2 C<autochomp>
+
+Normally, array elements have the record separator removed, so that if
+the file contains the text
+
+	Gold
+	Frankincense
+	Myrrh
+
+the tied array will appear to contain C<("Gold", "Frankincense",
+"Myrrh")>.  If you set C<autochomp> to a false value, the record
+separator will not be removed.  If the file above was tied with
+
+	tie @gifts, "Tie::File", $gifts, autochomp => 0;
+
+then the array C<@gifts> would appear to contain C<("Gold\n",
+"Frankincense\n", "Myrrh\n")>, or (on Win32 systems) C<("Gold\r\n",
+"Frankincense\r\n", "Myrrh\r\n")>.
+
+=head2 C<mode>
+
+Normally, the specified file will be opened for read and write access,
+and will be created if it does not exist.  (That is, the flags
+C<O_RDWR | O_CREAT> are supplied in the C<open> call.)  If you want to
+change this, you may supply alternative flags in the C<mode> option.
+See L<Fcntl> for a listing of available flags.
+For example:
+
+	# open the file if it exists, but fail if it does not exist
+	use Fcntl 'O_RDWR';
+	tie @array, 'Tie::File', $file, mode => O_RDWR;
+
+	# create the file if it does not exist
+	use Fcntl 'O_RDWR', 'O_CREAT';
+	tie @array, 'Tie::File', $file, mode => O_RDWR | O_CREAT;
+
+	# open an existing file in read-only mode
+	use Fcntl 'O_RDONLY';
+	tie @array, 'Tie::File', $file, mode => O_RDONLY;
+
+Opening the data file in write-only or append mode is not supported.
+
+=head2 C<memory>
+
+This is an upper limit on the amount of memory that C<Tie::File> will
+consume at any time while managing the file.  This is used for two
+things: managing the I<read cache> and managing the I<deferred write
+buffer>.
+
+Records read in from the file are cached, to avoid having to re-read
+them repeatedly.  If you read the same record twice, the first time it
+will be stored in memory, and the second time it will be fetched from
+the I<read cache>.  The amount of data in the read cache will not
+exceed the value you specified for C<memory>.  If C<Tie::File> wants
+to cache a new record, but the read cache is full, it will make room
+by expiring the least-recently visited records from the read cache.
+
+The default memory limit is 2Mib.  You can adjust the maximum read
+cache size by supplying the C<memory> option.  The argument is the
+desired cache size, in bytes.
+
+ # I have a lot of memory, so use a large cache to speed up access
+ tie @array, 'Tie::File', $file, memory => 20_000_000;
+
+Setting the memory limit to 0 will inhibit caching; records will be
+fetched from disk every time you examine them.
+
+The C<memory> value is not an absolute or exact limit on the memory
+used.  C<Tie::File> objects contains some structures besides the read
+cache and the deferred write buffer, whose sizes are not charged
+against C<memory>. 
+
+The cache itself consumes about 310 bytes per cached record, so if
+your file has many short records, you may want to decrease the cache
+memory limit, or else the cache overhead may exceed the size of the
+cached data.
+
+
+=head2 C<dw_size>
+
+(This is an advanced feature.  Skip this section on first reading.)
+
+If you use deferred writing (See L<"Deferred Writing">, below) then
+data you write into the array will not be written directly to the
+file; instead, it will be saved in the I<deferred write buffer> to be
+written out later.  Data in the deferred write buffer is also charged
+against the memory limit you set with the C<memory> option.
+
+You may set the C<dw_size> option to limit the amount of data that can
+be saved in the deferred write buffer.  This limit may not exceed the
+total memory limit.  For example, if you set C<dw_size> to 1000 and
+C<memory> to 2500, that means that no more than 1000 bytes of deferred
+writes will be saved up.  The space available for the read cache will
+vary, but it will always be at least 1500 bytes (if the deferred write
+buffer is full) and it could grow as large as 2500 bytes (if the
+deferred write buffer is empty.)
+
+If you don't specify a C<dw_size>, it defaults to the entire memory
+limit.
+
+=head2 Option Format
+
+C<-mode> is a synonym for C<mode>.  C<-recsep> is a synonym for
+C<recsep>.  C<-memory> is a synonym for C<memory>.  You get the
+idea.
+
+=head1 Public Methods
+
+The C<tie> call returns an object, say C<$o>.  You may call
+
+	$rec = $o->FETCH($n);
+	$o->STORE($n, $rec);
+
+to fetch or store the record at line C<$n>, respectively; similarly
+the other tied array methods.  (See L<perltie> for details.)  You may
+also call the following methods on this object:
+
+=head2 C<flock>
+
+	$o->flock(MODE)
+
+will lock the tied file.  C<MODE> has the same meaning as the second
+argument to the Perl built-in C<flock> function; for example
+C<LOCK_SH> or C<LOCK_EX | LOCK_NB>.  (These constants are provided by
+the C<use Fcntl ':flock'> declaration.)
+
+C<MODE> is optional; the default is C<LOCK_EX>.
+
+C<Tie::File> maintains an internal table of the byte offset of each
+record it has seen in the file.  
+
+When you use C<flock> to lock the file, C<Tie::File> assumes that the
+read cache is no longer trustworthy, because another process might
+have modified the file since the last time it was read.  Therefore, a
+successful call to C<flock> discards the contents of the read cache
+and the internal record offset table.
+
+C<Tie::File> promises that the following sequence of operations will
+be safe:
+
+	my $o = tie @array, "Tie::File", $filename;
+	$o->flock;
+
+In particular, C<Tie::File> will I<not> read or write the file during
+the C<tie> call.  (Exception: Using C<mode =E<gt> O_TRUNC> will, of
+course, erase the file during the C<tie> call.  If you want to do this
+safely, then open the file without C<O_TRUNC>, lock the file, and use
+C<@array = ()>.)
+
+The best way to unlock a file is to discard the object and untie the
+array.  It is probably unsafe to unlock the file without also untying
+it, because if you do, changes may remain unwritten inside the object.
+That is why there is no shortcut for unlocking.  If you really want to
+unlock the file prematurely, you know what to do; if you don't know
+what to do, then don't do it.
+
+All the usual warnings about file locking apply here.  In particular,
+note that file locking in Perl is B<advisory>, which means that
+holding a lock will not prevent anyone else from reading, writing, or
+erasing the file; it only prevents them from getting another lock at
+the same time.  Locks are analogous to green traffic lights: If you
+have a green light, that does not prevent the idiot coming the other
+way from plowing into you sideways; it merely guarantees to you that
+the idiot does not also have a green light at the same time.
+
+=head2 C<autochomp>
+
+	my $old_value = $o->autochomp(0);    # disable autochomp option
+	my $old_value = $o->autochomp(1);    #  enable autochomp option
+
+	my $ac = $o->autochomp();   # recover current value
+
+See L<"autochomp">, above.
+
+=head2 C<defer>, C<flush>, C<discard>, and C<autodefer>
+
+See L<"Deferred Writing">, below.
+
+=head2 C<offset>
+
+	$off = $o->offset($n);
+
+This method returns the byte offset of the start of the C<$n>th record
+in the file.  If there is no such record, it returns an undefined
+value.
+
+=head1 Tying to an already-opened filehandle
+
+If C<$fh> is a filehandle, such as is returned by C<IO::File> or one
+of the other C<IO> modules, you may use:
+
+	tie @array, 'Tie::File', $fh, ...;
+
+Similarly if you opened that handle C<FH> with regular C<open> or
+C<sysopen>, you may use:
+
+	tie @array, 'Tie::File', \*FH, ...;
+
+Handles that were opened write-only won't work.  Handles that were
+opened read-only will work as long as you don't try to modify the
+array.  Handles must be attached to seekable sources of data---that
+means no pipes or sockets.  If C<Tie::File> can detect that you
+supplied a non-seekable handle, the C<tie> call will throw an
+exception.  (On Unix systems, it can detect this.)
+
+Note that Tie::File will only close any filehandles that it opened
+internally.  If you passed it a filehandle as above, you "own" the
+filehandle, and are responsible for closing it after you have untied
+the @array.
+
+=head1 Deferred Writing
+
+(This is an advanced feature.  Skip this section on first reading.)
+
+Normally, modifying a C<Tie::File> array writes to the underlying file
+immediately.  Every assignment like C<$a[3] = ...> rewrites as much of
+the file as is necessary; typically, everything from line 3 through
+the end will need to be rewritten.  This is the simplest and most
+transparent behavior.  Performance even for large files is reasonably
+good.
+
+However, under some circumstances, this behavior may be excessively
+slow.  For example, suppose you have a million-record file, and you
+want to do:
+
+	for (@FILE) {
+	  $_ = "> $_";
+	}
+
+The first time through the loop, you will rewrite the entire file,
+from line 0 through the end.  The second time through the loop, you
+will rewrite the entire file from line 1 through the end.  The third
+time through the loop, you will rewrite the entire file from line 2 to
+the end.  And so on.
+
+If the performance in such cases is unacceptable, you may defer the
+actual writing, and then have it done all at once.  The following loop
+will perform much better for large files:
+
+	(tied @a)->defer;
+	for (@a) {
+	  $_ = "> $_";
+	}
+	(tied @a)->flush;
+
+If C<Tie::File>'s memory limit is large enough, all the writing will
+done in memory.  Then, when you call C<-E<gt>flush>, the entire file
+will be rewritten in a single pass.
+
+(Actually, the preceding discussion is something of a fib.  You don't
+need to enable deferred writing to get good performance for this
+common case, because C<Tie::File> will do it for you automatically
+unless you specifically tell it not to.  See L<"Autodeferring">,
+below.)
+
+Calling C<-E<gt>flush> returns the array to immediate-write mode.  If
+you wish to discard the deferred writes, you may call C<-E<gt>discard>
+instead of C<-E<gt>flush>.  Note that in some cases, some of the data
+will have been written already, and it will be too late for
+C<-E<gt>discard> to discard all the changes.  Support for
+C<-E<gt>discard> may be withdrawn in a future version of C<Tie::File>.
+
+Deferred writes are cached in memory up to the limit specified by the
+C<dw_size> option (see above).  If the deferred-write buffer is full
+and you try to write still more deferred data, the buffer will be
+flushed.  All buffered data will be written immediately, the buffer
+will be emptied, and the now-empty space will be used for future
+deferred writes.
+
+If the deferred-write buffer isn't yet full, but the total size of the
+buffer and the read cache would exceed the C<memory> limit, the oldest
+records will be expired from the read cache until the total size is
+under the limit.
+
+C<push>, C<pop>, C<shift>, C<unshift>, and C<splice> cannot be
+deferred.  When you perform one of these operations, any deferred data
+is written to the file and the operation is performed immediately.
+This may change in a future version.
+
+If you resize the array with deferred writing enabled, the file will
+be resized immediately, but deferred records will not be written.
+This has a surprising consequence: C<@a = (...)> erases the file
+immediately, but the writing of the actual data is deferred.  This
+might be a bug.  If it is a bug, it will be fixed in a future version.
+
+=head2 Autodeferring
+
+C<Tie::File> tries to guess when deferred writing might be helpful,
+and to turn it on and off automatically. 
+
+	for (@a) {
+	  $_ = "> $_";
+	}
+
+In this example, only the first two assignments will be done
+immediately; after this, all the changes to the file will be deferred
+up to the user-specified memory limit.
+
+You should usually be able to ignore this and just use the module
+without thinking about deferring.  However, special applications may
+require fine control over which writes are deferred, or may require
+that all writes be immediate.  To disable the autodeferment feature,
+use
+
+	(tied @o)->autodefer(0);
+
+or
+
+       	tie @array, 'Tie::File', $file, autodefer => 0;
+
+
+Similarly, C<-E<gt>autodefer(1)> re-enables autodeferment, and 
+C<-E<gt>autodefer()> recovers the current value of the autodefer setting.
+
+
+=head1 CONCURRENT ACCESS TO FILES
+
+Caching and deferred writing are inappropriate if you want the same
+file to be accessed simultaneously from more than one process.  Other
+optimizations performed internally by this module are also
+incompatible with concurrent access.  A future version of this module will
+support a C<concurrent =E<gt> 1> option that enables safe concurrent access.
+
+Previous versions of this documentation suggested using C<memory
+=E<gt> 0> for safe concurrent access.  This was mistaken.  Tie::File
+will not support safe concurrent access before version 0.96.
+
+=head1 CAVEATS
+
+(That's Latin for 'warnings'.)
+
+=over 4
+
+=item *
+
+Reasonable effort was made to make this module efficient.  Nevertheless,
+changing the size of a record in the middle of a large file will
+always be fairly slow, because everything after the new record must be
+moved.
+
+=item *
+
+The behavior of tied arrays is not precisely the same as for regular
+arrays.  For example:
+
+	# This DOES print "How unusual!"
+	undef $a[10];  print "How unusual!\n" if defined $a[10];
+
+C<undef>-ing a C<Tie::File> array element just blanks out the
+corresponding record in the file.  When you read it back again, you'll
+get the empty string, so the supposedly-C<undef>'ed value will be
+defined.  Similarly, if you have C<autochomp> disabled, then
+
+	# This DOES print "How unusual!" if 'autochomp' is disabled
+	undef $a[10];
+        print "How unusual!\n" if $a[10];
+
+Because when C<autochomp> is disabled, C<$a[10]> will read back as
+C<"\n"> (or whatever the record separator string is.)  
+
+There are other minor differences, particularly regarding C<exists>
+and C<delete>, but in general, the correspondence is extremely close.
+
+=item *
+
+I have supposed that since this module is concerned with file I/O,
+almost all normal use of it will be heavily I/O bound.  This means
+that the time to maintain complicated data structures inside the
+module will be dominated by the time to actually perform the I/O.
+When there was an opportunity to spend CPU time to avoid doing I/O, I
+usually tried to take it.
+
+=item *
+
+You might be tempted to think that deferred writing is like
+transactions, with C<flush> as C<commit> and C<discard> as
+C<rollback>, but it isn't, so don't.
+
+=item *
+
+There is a large memory overhead for each record offset and for each
+cache entry: about 310 bytes per cached data record, and about 21 bytes
+per offset table entry.
+
+The per-record overhead will limit the maximum number of records you
+can access per file. Note that I<accessing> the length of the array
+via C<$x = scalar @tied_file> accesses B<all> records and stores their
+offsets.  The same for C<foreach (@tied_file)>, even if you exit the
+loop early.
+
+=back
+
+=head1 SUBCLASSING
+
+This version promises absolutely nothing about the internals, which
+may change without notice.  A future version of the module will have a
+well-defined and stable subclassing API.
+
+=head1 WHAT ABOUT C<DB_File>?
+
+People sometimes point out that L<DB_File> will do something similar,
+and ask why C<Tie::File> module is necessary.
+
+There are a number of reasons that you might prefer C<Tie::File>.
+A list is available at C<http://perl.plover.com/TieFile/why-not-DB_File>.
+
+=head1 AUTHOR
+
+Mark Jason Dominus
+
+To contact the author, send email to: C<mjd-perl-tiefile+@plover.com>
+
+To receive an announcement whenever a new version of this module is
+released, send a blank email message to
+C<mjd-perl-tiefile-subscribe@plover.com>.
+
+The most recent version of this module, including documentation and
+any news of importance, will be available at
+
+	http://perl.plover.com/TieFile/
+
+
+=head1 LICENSE
+
+C<Tie::File> version 0.96 is copyright (C) 2003 Mark Jason Dominus.
+
+This library is free software; you may redistribute it and/or modify
+it under the same terms as Perl itself.
+
+These terms are your choice of any of (1) the Perl Artistic Licence,
+or (2) version 2 of the GNU General Public License as published by the
+Free Software Foundation, or (3) any later version of the GNU General
+Public License.
+
+This library is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with this library program; it should be in the file C<COPYING>.
+If not, write to the Free Software Foundation, Inc., 51 Franklin Street,
+Fifth Floor, Boston, MA  02110-1301, USA
+
+For licensing inquiries, contact the author at:
+
+	Mark Jason Dominus
+	255 S. Warnock St.
+	Philadelphia, PA 19107
+
+=head1 WARRANTY
+
+C<Tie::File> version 0.98 comes with ABSOLUTELY NO WARRANTY.
+For details, see the license.
+
+=head1 THANKS
+
+Gigantic thanks to Jarkko Hietaniemi, for agreeing to put this in the
+core when I hadn't written it yet, and for generally being helpful,
+supportive, and competent.  (Usually the rule is "choose any one.")
+Also big thanks to Abhijit Menon-Sen for all of the same things.
+
+Special thanks to Craig Berry and Peter Prymmer (for VMS portability
+help), Randy Kobes (for Win32 portability help), Clinton Pierce and
+Autrijus Tang (for heroic eleventh-hour Win32 testing above and beyond
+the call of duty), Michael G Schwern (for testing advice), and the
+rest of the CPAN testers (for testing generally).
+
+Special thanks to Tels for suggesting several speed and memory
+optimizations.
+
+Additional thanks to:
+Edward Avis /
+Mattia Barbon /
+Tom Christiansen /
+Gerrit Haase /
+Gurusamy Sarathy /
+Jarkko Hietaniemi (again) /
+Nikola Knezevic /
+John Kominetz /
+Nick Ing-Simmons /
+Tassilo von Parseval /
+H. Dieter Pearcey /
+Slaven Rezic /
+Eric Roode /
+Peter Scott /
+Peter Somu /
+Autrijus Tang (again) /
+Tels (again) /
+Juerd Waalboer /
+Todd Rinaldo
+
+=head1 TODO
+
+More tests.  (Stuff I didn't think of yet.)
+
+Paragraph mode?
+
+Fixed-length mode.  Leave-blanks mode.
+
+Maybe an autolocking mode?
+
+For many common uses of the module, the read cache is a liability.
+For example, a program that inserts a single record, or that scans the
+file once, will have a cache hit rate of zero.  This suggests a major
+optimization: The cache should be initially disabled.  Here's a hybrid
+approach: Initially, the cache is disabled, but the cache code
+maintains statistics about how high the hit rate would be *if* it were
+enabled.  When it sees the hit rate get high enough, it enables
+itself.  The STAT comments in this code are the beginning of an
+implementation of this.
+
+Record locking with fcntl()?  Then the module might support an undo
+log and get real transactions.  What a tour de force that would be.
+
+Keeping track of the highest cached record. This would allow reads-in-a-row
+to skip the cache lookup faster (if reading from 1..N with empty cache at
+start, the last cached value will be always N-1).
+
+More tests.
+
+=cut
+
diff --git a/lib/5.24.1/Tie/Handle.pm b/lib/5.24.1/Tie/Handle.pm
new file mode 100644
index 00000000..4e92f75a
--- /dev/null
+++ b/lib/5.24.1/Tie/Handle.pm
@@ -0,0 +1,201 @@
+package Tie::Handle;
+
+use 5.006_001;
+our $VERSION = '4.2';
+
+# Tie::StdHandle used to be inside Tie::Handle.  For backwards compatibility
+# loading Tie::Handle has to make Tie::StdHandle available.
+use Tie::StdHandle;
+
+=head1 NAME
+
+Tie::Handle - base class definitions for tied handles
+
+=head1 SYNOPSIS
+
+    package NewHandle;
+    require Tie::Handle;
+
+    @ISA = qw(Tie::Handle);
+
+    sub READ { ... }		# Provide a needed method
+    sub TIEHANDLE { ... }	# Overrides inherited method
+
+
+    package main;
+
+    tie *FH, 'NewHandle';
+
+=head1 DESCRIPTION
+
+This module provides some skeletal methods for handle-tying classes. See
+L<perltie> for a list of the functions required in tying a handle to a package.
+The basic B<Tie::Handle> package provides a C<new> method, as well as methods
+C<TIEHANDLE>, C<PRINT>, C<PRINTF> and C<GETC>. 
+
+For developers wishing to write their own tied-handle classes, the methods
+are summarized below. The L<perltie> section not only documents these, but
+has sample code as well:
+
+=over 4
+
+=item TIEHANDLE classname, LIST
+
+The method invoked by the command C<tie *glob, classname>. Associates a new
+glob instance with the specified class. C<LIST> would represent additional
+arguments (along the lines of L<AnyDBM_File> and compatriots) needed to
+complete the association.
+
+=item WRITE this, scalar, length, offset
+
+Write I<length> bytes of data from I<scalar> starting at I<offset>.
+
+=item PRINT this, LIST
+
+Print the values in I<LIST>
+
+=item PRINTF this, format, LIST
+
+Print the values in I<LIST> using I<format>
+
+=item READ this, scalar, length, offset
+
+Read I<length> bytes of data into I<scalar> starting at I<offset>.
+
+=item READLINE this
+
+Read a single line
+
+=item GETC this
+
+Get a single character
+
+=item CLOSE this
+
+Close the handle
+
+=item OPEN this, filename
+
+(Re-)open the handle
+
+=item BINMODE this
+
+Specify content is binary
+
+=item EOF this
+
+Test for end of file.
+
+=item TELL this
+
+Return position in the file.
+
+=item SEEK this, offset, whence
+
+Position the file.
+
+Test for end of file.
+
+=item DESTROY this
+
+Free the storage associated with the tied handle referenced by I<this>.
+This is rarely needed, as Perl manages its memory quite well. But the
+option exists, should a class wish to perform specific actions upon the
+destruction of an instance.
+
+=back
+
+=head1 MORE INFORMATION
+
+The L<perltie> section contains an example of tying handles.
+
+=head1 COMPATIBILITY
+
+This version of Tie::Handle is neither related to nor compatible with
+the Tie::Handle (3.0) module available on CPAN. It was due to an
+accident that two modules with the same name appeared. The namespace
+clash has been cleared in favor of this module that comes with the
+perl core in September 2000 and accordingly the version number has
+been bumped up to 4.0.
+
+=cut
+
+use Carp;
+use warnings::register;
+
+sub new {
+    my $pkg = shift;
+    $pkg->TIEHANDLE(@_);
+}
+
+# "Grandfather" the new, a la Tie::Hash
+
+sub TIEHANDLE {
+    my $pkg = shift;
+    if (defined &{"{$pkg}::new"}) {
+	warnings::warnif("WARNING: calling ${pkg}->new since ${pkg}->TIEHANDLE is missing");
+	$pkg->new(@_);
+    }
+    else {
+	croak "$pkg doesn't define a TIEHANDLE method";
+    }
+}
+
+sub PRINT {
+    my $self = shift;
+    if($self->can('WRITE') != \&WRITE) {
+	my $buf = join(defined $, ? $, : "",@_);
+	$buf .= $\ if defined $\;
+	$self->WRITE($buf,length($buf),0);
+    }
+    else {
+	croak ref($self)," doesn't define a PRINT method";
+    }
+}
+
+sub PRINTF {
+    my $self = shift;
+    
+    if($self->can('WRITE') != \&WRITE) {
+	my $buf = sprintf(shift,@_);
+	$self->WRITE($buf,length($buf),0);
+    }
+    else {
+	croak ref($self)," doesn't define a PRINTF method";
+    }
+}
+
+sub READLINE {
+    my $pkg = ref $_[0];
+    croak "$pkg doesn't define a READLINE method";
+}
+
+sub GETC {
+    my $self = shift;
+    
+    if($self->can('READ') != \&READ) {
+	my $buf;
+	$self->READ($buf,1);
+	return $buf;
+    }
+    else {
+	croak ref($self)," doesn't define a GETC method";
+    }
+}
+
+sub READ {
+    my $pkg = ref $_[0];
+    croak "$pkg doesn't define a READ method";
+}
+
+sub WRITE {
+    my $pkg = ref $_[0];
+    croak "$pkg doesn't define a WRITE method";
+}
+
+sub CLOSE {
+    my $pkg = ref $_[0];
+    croak "$pkg doesn't define a CLOSE method";
+}
+
+1;
diff --git a/lib/5.24.1/Tie/Hash.pm b/lib/5.24.1/Tie/Hash.pm
new file mode 100644
index 00000000..89a6181a
--- /dev/null
+++ b/lib/5.24.1/Tie/Hash.pm
@@ -0,0 +1,270 @@
+package Tie::Hash;
+
+our $VERSION = '1.05';
+
+=head1 NAME
+
+Tie::Hash, Tie::StdHash, Tie::ExtraHash - base class definitions for tied hashes
+
+=head1 SYNOPSIS
+
+    package NewHash;
+    require Tie::Hash;
+
+    @ISA = qw(Tie::Hash);
+
+    sub DELETE { ... }		# Provides needed method
+    sub CLEAR { ... }		# Overrides inherited method
+
+
+    package NewStdHash;
+    require Tie::Hash;
+
+    @ISA = qw(Tie::StdHash);
+
+    # All methods provided by default, define
+    # only those needing overrides
+    # Accessors access the storage in %{$_[0]};
+    # TIEHASH should return a reference to the actual storage
+    sub DELETE { ... }
+
+    package NewExtraHash;
+    require Tie::Hash;
+
+    @ISA = qw(Tie::ExtraHash);
+
+    # All methods provided by default, define 
+    # only those needing overrides
+    # Accessors access the storage in %{$_[0][0]};
+    # TIEHASH should return an array reference with the first element
+    # being the reference to the actual storage 
+    sub DELETE { 
+      $_[0][1]->('del', $_[0][0], $_[1]); # Call the report writer
+      delete $_[0][0]->{$_[1]};		  #  $_[0]->SUPER::DELETE($_[1])
+    }
+
+
+    package main;
+
+    tie %new_hash, 'NewHash';
+    tie %new_std_hash, 'NewStdHash';
+    tie %new_extra_hash, 'NewExtraHash',
+	sub {warn "Doing \U$_[1]\E of $_[2].\n"};
+
+=head1 DESCRIPTION
+
+This module provides some skeletal methods for hash-tying classes. See
+L<perltie> for a list of the functions required in order to tie a hash
+to a package. The basic B<Tie::Hash> package provides a C<new> method, as well
+as methods C<TIEHASH>, C<EXISTS> and C<CLEAR>. The B<Tie::StdHash> and
+B<Tie::ExtraHash> packages
+provide most methods for hashes described in L<perltie> (the exceptions
+are C<UNTIE> and C<DESTROY>).  They cause tied hashes to behave exactly like standard hashes,
+and allow for selective overwriting of methods.  B<Tie::Hash> grandfathers the
+C<new> method: it is used if C<TIEHASH> is not defined
+in the case a class forgets to include a C<TIEHASH> method.
+
+For developers wishing to write their own tied hashes, the required methods
+are briefly defined below. See the L<perltie> section for more detailed
+descriptive, as well as example code:
+
+=over 4
+
+=item TIEHASH classname, LIST
+
+The method invoked by the command C<tie %hash, classname>. Associates a new
+hash instance with the specified class. C<LIST> would represent additional
+arguments (along the lines of L<AnyDBM_File> and compatriots) needed to
+complete the association.
+
+=item STORE this, key, value
+
+Store datum I<value> into I<key> for the tied hash I<this>.
+
+=item FETCH this, key
+
+Retrieve the datum in I<key> for the tied hash I<this>.
+
+=item FIRSTKEY this
+
+Return the first key in the hash.
+
+=item NEXTKEY this, lastkey
+
+Return the next key in the hash.
+
+=item EXISTS this, key
+
+Verify that I<key> exists with the tied hash I<this>.
+
+The B<Tie::Hash> implementation is a stub that simply croaks.
+
+=item DELETE this, key
+
+Delete the key I<key> from the tied hash I<this>.
+
+=item CLEAR this
+
+Clear all values from the tied hash I<this>.
+
+=item SCALAR this
+
+Returns what evaluating the hash in scalar context yields.
+
+B<Tie::Hash> does not implement this method (but B<Tie::StdHash>
+and B<Tie::ExtraHash> do).
+
+=back
+
+=head1 Inheriting from B<Tie::StdHash>
+
+The accessor methods assume that the actual storage for the data in the tied
+hash is in the hash referenced by C<tied(%tiedhash)>.  Thus overwritten
+C<TIEHASH> method should return a hash reference, and the remaining methods
+should operate on the hash referenced by the first argument:
+
+  package ReportHash;
+  our @ISA = 'Tie::StdHash';
+
+  sub TIEHASH  {
+    my $storage = bless {}, shift;
+    warn "New ReportHash created, stored in $storage.\n";
+    $storage
+  }
+  sub STORE    {
+    warn "Storing data with key $_[1] at $_[0].\n";
+    $_[0]{$_[1]} = $_[2]
+  }
+
+
+=head1 Inheriting from B<Tie::ExtraHash>
+
+The accessor methods assume that the actual storage for the data in the tied
+hash is in the hash referenced by C<(tied(%tiedhash))-E<gt>[0]>.  Thus overwritten
+C<TIEHASH> method should return an array reference with the first
+element being a hash reference, and the remaining methods should operate on the
+hash C<< %{ $_[0]->[0] } >>:
+
+  package ReportHash;
+  our @ISA = 'Tie::ExtraHash';
+
+  sub TIEHASH  {
+    my $class = shift;
+    my $storage = bless [{}, @_], $class;
+    warn "New ReportHash created, stored in $storage.\n";
+    $storage;
+  }
+  sub STORE    {
+    warn "Storing data with key $_[1] at $_[0].\n";
+    $_[0][0]{$_[1]} = $_[2]
+  }
+
+The default C<TIEHASH> method stores "extra" arguments to tie() starting
+from offset 1 in the array referenced by C<tied(%tiedhash)>; this is the
+same storage algorithm as in TIEHASH subroutine above.  Hence, a typical
+package inheriting from B<Tie::ExtraHash> does not need to overwrite this
+method.
+
+=head1 C<SCALAR>, C<UNTIE> and C<DESTROY>
+
+The methods C<UNTIE> and C<DESTROY> are not defined in B<Tie::Hash>,
+B<Tie::StdHash>, or B<Tie::ExtraHash>.  Tied hashes do not require
+presence of these methods, but if defined, the methods will be called in
+proper time, see L<perltie>.
+
+C<SCALAR> is only defined in B<Tie::StdHash> and B<Tie::ExtraHash>.
+
+If needed, these methods should be defined by the package inheriting from
+B<Tie::Hash>, B<Tie::StdHash>, or B<Tie::ExtraHash>. See L<perltie/"SCALAR">
+to find out what happens when C<SCALAR> does not exist.
+
+=head1 MORE INFORMATION
+
+The packages relating to various DBM-related implementations (F<DB_File>,
+F<NDBM_File>, etc.) show examples of general tied hashes, as does the
+L<Config> module. While these do not utilize B<Tie::Hash>, they serve as
+good working examples.
+
+=cut
+
+use Carp;
+use warnings::register;
+
+sub new {
+    my $pkg = shift;
+    $pkg->TIEHASH(@_);
+}
+
+# Grandfather "new"
+
+sub TIEHASH {
+    my $pkg = shift;
+    my $pkg_new = $pkg -> can ('new');
+
+    if ($pkg_new and $pkg ne __PACKAGE__) {
+        my $my_new = __PACKAGE__ -> can ('new');
+        if ($pkg_new == $my_new) {  
+            #
+            # Prevent recursion
+            #
+            croak "$pkg must define either a TIEHASH() or a new() method";
+        }
+
+	warnings::warnif ("WARNING: calling ${pkg}->new since " .
+                          "${pkg}->TIEHASH is missing");
+	$pkg -> new (@_);
+    }
+    else {
+	croak "$pkg doesn't define a TIEHASH method";
+    }
+}
+
+sub EXISTS {
+    my $pkg = ref $_[0];
+    croak "$pkg doesn't define an EXISTS method";
+}
+
+sub CLEAR {
+    my $self = shift;
+    my $key = $self->FIRSTKEY(@_);
+    my @keys;
+
+    while (defined $key) {
+	push @keys, $key;
+	$key = $self->NEXTKEY(@_, $key);
+    }
+    foreach $key (@keys) {
+	$self->DELETE(@_, $key);
+    }
+}
+
+# The Tie::StdHash package implements standard perl hash behaviour.
+# It exists to act as a base class for classes which only wish to
+# alter some parts of their behaviour.
+
+package Tie::StdHash;
+# @ISA = qw(Tie::Hash);		# would inherit new() only
+
+sub TIEHASH  { bless {}, $_[0] }
+sub STORE    { $_[0]->{$_[1]} = $_[2] }
+sub FETCH    { $_[0]->{$_[1]} }
+sub FIRSTKEY { my $a = scalar keys %{$_[0]}; each %{$_[0]} }
+sub NEXTKEY  { each %{$_[0]} }
+sub EXISTS   { exists $_[0]->{$_[1]} }
+sub DELETE   { delete $_[0]->{$_[1]} }
+sub CLEAR    { %{$_[0]} = () }
+sub SCALAR   { scalar %{$_[0]} }
+
+package Tie::ExtraHash;
+
+sub TIEHASH  { my $p = shift; bless [{}, @_], $p }
+sub STORE    { $_[0][0]{$_[1]} = $_[2] }
+sub FETCH    { $_[0][0]{$_[1]} }
+sub FIRSTKEY { my $a = scalar keys %{$_[0][0]}; each %{$_[0][0]} }
+sub NEXTKEY  { each %{$_[0][0]} }
+sub EXISTS   { exists $_[0][0]->{$_[1]} }
+sub DELETE   { delete $_[0][0]->{$_[1]} }
+sub CLEAR    { %{$_[0][0]} = () }
+sub SCALAR   { scalar %{$_[0][0]} }
+
+1;
diff --git a/lib/5.24.1/Tie/Memoize.pm b/lib/5.24.1/Tie/Memoize.pm
new file mode 100644
index 00000000..dbe14428
--- /dev/null
+++ b/lib/5.24.1/Tie/Memoize.pm
@@ -0,0 +1,128 @@
+use strict;
+package Tie::Memoize;
+use Tie::Hash;
+our @ISA = 'Tie::ExtraHash';
+our $VERSION = '1.1';
+
+our $exists_token = \undef;
+
+sub croak {require Carp; goto &Carp::croak}
+
+# Format: [0: STORAGE, 1: EXISTS-CACHE, 2: FETCH_function;
+#	   3: EXISTS_function, 4: DATA, 5: EXISTS_different ]
+
+sub FETCH {
+  my ($h,$key) = ($_[0][0], $_[1]);
+  my $res = $h->{$key};
+  return $res if defined $res;	# Shortcut if accessible
+  return $res if exists $h->{$key}; # Accessible, but undef
+  my $cache = $_[0][1]{$key};
+  return if defined $cache and not $cache; # Known to not exist
+  my @res = $_[0][2]->($key, $_[0][4]);	# Autoload
+  $_[0][1]{$key} = 0, return unless @res; # Cache non-existence
+  delete $_[0][1]{$key};	# Clear existence cache, not needed any more
+  $_[0][0]{$key} = $res[0];	# Store data and return
+}
+
+sub EXISTS   {
+  my ($a,$key) = (shift, shift);
+  return 1 if exists $a->[0]{$key}; # Have data
+  my $cache = $a->[1]{$key};
+  return $cache if defined $cache; # Existence cache
+  my @res = $a->[3]($key,$a->[4]);
+  $a->[1]{$key} = 0, return unless @res; # Cache non-existence
+  # Now we know it exists
+  return ($a->[1]{$key} = 1) if $a->[5]; # Only existence reported
+  # Now know the value
+  $a->[0]{$key} = $res[0];    # Store data
+  return 1
+}
+
+sub TIEHASH  {
+  croak 'syntax: tie %hash, \'Tie::AutoLoad\', \&fetch_subr' if @_ < 2;
+  croak 'syntax: tie %hash, \'Tie::AutoLoad\', \&fetch_subr, $data, \&exists_subr, \%data_cache, \%existence_cache' if @_ > 6;
+  push @_, undef if @_ < 3;	# Data
+  push @_, $_[1] if @_ < 4;	# exists
+  push @_, {} while @_ < 6;	# initial value and caches
+  bless [ @_[4,5,1,3,2], $_[1] ne $_[3]], $_[0]
+}
+
+1;
+
+=head1 NAME
+
+Tie::Memoize - add data to hash when needed
+
+=head1 SYNOPSIS
+
+  require Tie::Memoize;
+  tie %hash, 'Tie::Memoize',
+      \&fetch,			# The rest is optional
+      $DATA, \&exists,
+      {%ini_value}, {%ini_existence};
+
+=head1 DESCRIPTION
+
+This package allows a tied hash to autoload its values on the first access,
+and to use the cached value on the following accesses.
+
+Only read-accesses (via fetching the value or C<exists>) result in calls to
+the functions; the modify-accesses are performed as on a normal hash.
+
+The required arguments during C<tie> are the hash, the package, and
+the reference to the C<FETCH>ing function.  The optional arguments are
+an arbitrary scalar $data, the reference to the C<EXISTS> function,
+and initial values of the hash and of the existence cache.
+
+Both the C<FETCH>ing function and the C<EXISTS> functions have the
+same signature: the arguments are C<$key, $data>; $data is the same
+value as given as argument during tie()ing.  Both functions should
+return an empty list if the value does not exist.  If C<EXISTS>
+function is different from the C<FETCH>ing function, it should return
+a TRUE value on success.  The C<FETCH>ing function should return the
+intended value if the key is valid.
+
+=head1 Inheriting from B<Tie::Memoize>
+
+The structure of the tied() data is an array reference with elements
+
+  0:  cache of known values
+  1:  cache of known existence of keys
+  2:  FETCH  function
+  3:  EXISTS function
+  4:  $data
+
+The rest is for internal usage of this package.  In particular, if
+TIEHASH is overwritten, it should call SUPER::TIEHASH.
+
+=head1 EXAMPLE
+
+  sub slurp {
+    my ($key, $dir) = shift;
+    open my $h, '<', "$dir/$key" or return;
+    local $/; <$h>			# slurp it all
+  }
+  sub exists { my ($key, $dir) = shift; return -f "$dir/$key" }
+
+  tie %hash, 'Tie::Memoize', \&slurp, $directory, \&exists,
+      { fake_file1 => $content1, fake_file2 => $content2 },
+      { pretend_does_not_exists => 0, known_to_exist => 1 };
+
+This example treats the slightly modified contents of $directory as a
+hash.  The modifications are that the keys F<fake_file1> and
+F<fake_file2> fetch values $content1 and $content2, and
+F<pretend_does_not_exists> will never be accessed.  Additionally, the
+existence of F<known_to_exist> is never checked (so if it does not
+exists when its content is needed, the user of %hash may be confused).
+
+=head1 BUGS
+
+FIRSTKEY and NEXTKEY methods go through the keys which were already read,
+not all the possible keys of the hash.
+
+=head1 AUTHOR
+
+Ilya Zakharevich L<mailto:perl-module-hash-memoize@ilyaz.org>.
+
+=cut
+
diff --git a/lib/5.24.1/Tie/RefHash.pm b/lib/5.24.1/Tie/RefHash.pm
new file mode 100644
index 00000000..ed72abc9
--- /dev/null
+++ b/lib/5.24.1/Tie/RefHash.pm
@@ -0,0 +1,279 @@
+package Tie::RefHash;
+
+use vars qw/$VERSION/;
+
+$VERSION = "1.39";
+
+use 5.005;
+
+=head1 NAME
+
+Tie::RefHash - use references as hash keys
+
+=head1 SYNOPSIS
+
+    require 5.004;
+    use Tie::RefHash;
+    tie HASHVARIABLE, 'Tie::RefHash', LIST;
+    tie HASHVARIABLE, 'Tie::RefHash::Nestable', LIST;
+
+    untie HASHVARIABLE;
+
+=head1 DESCRIPTION
+
+This module provides the ability to use references as hash keys if you
+first C<tie> the hash variable to this module.  Normally, only the
+keys of the tied hash itself are preserved as references; to use
+references as keys in hashes-of-hashes, use Tie::RefHash::Nestable,
+included as part of Tie::RefHash.
+
+It is implemented using the standard perl TIEHASH interface.  Please
+see the C<tie> entry in perlfunc(1) and perltie(1) for more information.
+
+The Nestable version works by looking for hash references being stored
+and converting them to tied hashes so that they too can have
+references as keys.  This will happen without warning whenever you
+store a reference to one of your own hashes in the tied hash.
+
+=head1 EXAMPLE
+
+    use Tie::RefHash;
+    tie %h, 'Tie::RefHash';
+    $a = [];
+    $b = {};
+    $c = \*main;
+    $d = \"gunk";
+    $e = sub { 'foo' };
+    %h = ($a => 1, $b => 2, $c => 3, $d => 4, $e => 5);
+    $a->[0] = 'foo';
+    $b->{foo} = 'bar';
+    for (keys %h) {
+       print ref($_), "\n";
+    }
+
+    tie %h, 'Tie::RefHash::Nestable';
+    $h{$a}->{$b} = 1;
+    for (keys %h, keys %{$h{$a}}) {
+       print ref($_), "\n";
+    }
+
+=head1 THREAD SUPPORT
+
+L<Tie::RefHash> fully supports threading using the C<CLONE> method.
+
+=head1 STORABLE SUPPORT
+
+L<Storable> hooks are provided for semantically correct serialization and
+cloning of tied refhashes.
+
+=head1 RELIC SUPPORT
+
+This version of Tie::RefHash seems to no longer work with 5.004. This has not
+been throughly investigated. Patches welcome ;-)
+
+=head1 LICENSE
+
+This program is free software; you can redistribute it and/or modify it under
+the same terms as Perl itself
+
+=head1 MAINTAINER
+
+Yuval Kogman E<lt>nothingmuch@woobling.orgE<gt>
+
+=head1 AUTHOR
+
+Gurusamy Sarathy        gsar@activestate.com
+
+'Nestable' by Ed Avis   ed@membled.com
+
+=head1 SEE ALSO
+
+perl(1), perlfunc(1), perltie(1)
+
+=cut
+
+use Tie::Hash;
+use vars '@ISA';
+@ISA = qw(Tie::Hash);
+use strict;
+use Carp qw/croak/;
+
+BEGIN {
+  local $@;
+  # determine whether we need to take care of threads
+  use Config ();
+  my $usethreads = $Config::Config{usethreads}; # && exists $INC{"threads.pm"}
+  *_HAS_THREADS = $usethreads ? sub () { 1 } : sub () { 0 };
+  *_HAS_SCALAR_UTIL = eval { require Scalar::Util; 1 } ? sub () { 1 } : sub () { 0 };
+  *_HAS_WEAKEN = defined(&Scalar::Util::weaken) ? sub () { 1 } : sub () { 0 };
+}
+
+BEGIN {
+  # create a refaddr function
+
+  local $@;
+
+  if ( _HAS_SCALAR_UTIL ) {
+    Scalar::Util->import("refaddr");
+  } else {
+    require overload;
+
+    *refaddr = sub {
+      if ( overload::StrVal($_[0]) =~ /\( 0x ([a-zA-Z0-9]+) \)$/x) {
+          return $1;
+      } else {
+        die "couldn't parse StrVal: " . overload::StrVal($_[0]);
+      }
+    };
+  }
+}
+
+my (@thread_object_registry, $count); # used by the CLONE method to rehash the keys after their refaddr changed
+
+sub TIEHASH {
+  my $c = shift;
+  my $s = [];
+  bless $s, $c;
+  while (@_) {
+    $s->STORE(shift, shift);
+  }
+
+  if (_HAS_THREADS ) {
+
+    if ( _HAS_WEAKEN ) {
+      # remember the object so that we can rekey it on CLONE
+      push @thread_object_registry, $s;
+      # but make this a weak reference, so that there are no leaks
+      Scalar::Util::weaken( $thread_object_registry[-1] );
+
+      if ( ++$count > 1000 ) {
+        # this ensures we don't fill up with a huge array dead weakrefs
+        @thread_object_registry = grep { defined } @thread_object_registry;
+        $count = 0;
+      }
+    } else {
+      $count++; # used in the warning
+    }
+  }
+
+  return $s;
+}
+
+my $storable_format_version = join("/", __PACKAGE__, "0.01");
+
+sub STORABLE_freeze {
+  my ( $self, $is_cloning ) = @_;
+  my ( $refs, $reg ) = @$self;
+  return ( $storable_format_version, [ values %$refs ], $reg || {} );
+}
+
+sub STORABLE_thaw {
+  my ( $self, $is_cloning, $version, $refs, $reg ) = @_;
+  croak "incompatible versions of Tie::RefHash between freeze and thaw"
+    unless $version eq $storable_format_version;
+
+  @$self = ( {}, $reg );
+  $self->_reindex_keys( $refs );
+}
+
+sub CLONE {
+  my $pkg = shift;
+
+  if ( $count and not _HAS_WEAKEN ) {
+    warn "Tie::RefHash is not threadsafe without Scalar::Util::weaken";
+  }
+
+  # when the thread has been cloned all the objects need to be updated.
+  # dead weakrefs are undefined, so we filter them out
+  @thread_object_registry = grep { defined && do { $_->_reindex_keys; 1 } } @thread_object_registry;
+  $count = 0; # we just cleaned up
+}
+
+sub _reindex_keys {
+  my ( $self, $extra_keys ) = @_;
+  # rehash all the ref keys based on their new StrVal
+  %{ $self->[0] } = map { refaddr($_->[0]) => $_ } (values(%{ $self->[0] }), @{ $extra_keys || [] });
+}
+
+sub FETCH {
+  my($s, $k) = @_;
+  if (ref $k) {
+      my $kstr = refaddr($k);
+      if (defined $s->[0]{$kstr}) {
+        $s->[0]{$kstr}[1];
+      }
+      else {
+        undef;
+      }
+  }
+  else {
+      $s->[1]{$k};
+  }
+}
+
+sub STORE {
+  my($s, $k, $v) = @_;
+  if (ref $k) {
+    $s->[0]{refaddr($k)} = [$k, $v];
+  }
+  else {
+    $s->[1]{$k} = $v;
+  }
+  $v;
+}
+
+sub DELETE {
+  my($s, $k) = @_;
+  (ref $k)
+    ? (delete($s->[0]{refaddr($k)}) || [])->[1]
+    : delete($s->[1]{$k});
+}
+
+sub EXISTS {
+  my($s, $k) = @_;
+  (ref $k) ? exists($s->[0]{refaddr($k)}) : exists($s->[1]{$k});
+}
+
+sub FIRSTKEY {
+  my $s = shift;
+  keys %{$s->[0]};  # reset iterator
+  keys %{$s->[1]};  # reset iterator
+  $s->[2] = 0;      # flag for iteration, see NEXTKEY
+  $s->NEXTKEY;
+}
+
+sub NEXTKEY {
+  my $s = shift;
+  my ($k, $v);
+  if (!$s->[2]) {
+    if (($k, $v) = each %{$s->[0]}) {
+      return $v->[0];
+    }
+    else {
+      $s->[2] = 1;
+    }
+  }
+  return each %{$s->[1]};
+}
+
+sub CLEAR {
+  my $s = shift;
+  $s->[2] = 0;
+  %{$s->[0]} = ();
+  %{$s->[1]} = ();
+}
+
+package Tie::RefHash::Nestable;
+use vars '@ISA';
+@ISA = 'Tie::RefHash';
+
+sub STORE {
+  my($s, $k, $v) = @_;
+  if (ref($v) eq 'HASH' and not tied %$v) {
+      my @elems = %$v;
+      tie %$v, ref($s), @elems;
+  }
+  $s->SUPER::STORE($k, $v);
+}
+
+1;
diff --git a/lib/5.24.1/Tie/Scalar.pm b/lib/5.24.1/Tie/Scalar.pm
new file mode 100644
index 00000000..50b97018
--- /dev/null
+++ b/lib/5.24.1/Tie/Scalar.pm
@@ -0,0 +1,164 @@
+package Tie::Scalar;
+
+our $VERSION = '1.04';
+
+=head1 NAME
+
+Tie::Scalar, Tie::StdScalar - base class definitions for tied scalars
+
+=head1 SYNOPSIS
+
+    package NewScalar;
+    require Tie::Scalar;
+
+    @ISA = qw(Tie::Scalar);
+
+    sub FETCH { ... }		# Provide a needed method
+    sub TIESCALAR { ... }	# Overrides inherited method
+
+
+    package NewStdScalar;
+    require Tie::Scalar;
+
+    @ISA = qw(Tie::StdScalar);
+
+    # All methods provided by default, so define
+    # only what needs be overridden
+    sub FETCH { ... }
+
+
+    package main;
+
+    tie $new_scalar, 'NewScalar';
+    tie $new_std_scalar, 'NewStdScalar';
+
+=head1 DESCRIPTION
+
+This module provides some skeletal methods for scalar-tying classes. See
+L<perltie> for a list of the functions required in tying a scalar to a
+package. The basic B<Tie::Scalar> package provides a C<new> method, as well
+as methods C<TIESCALAR>, C<FETCH> and C<STORE>. The B<Tie::StdScalar>
+package provides all the methods specified in  L<perltie>. It inherits from
+B<Tie::Scalar> and causes scalars tied to it to behave exactly like the
+built-in scalars, allowing for selective overloading of methods. The C<new>
+method is provided as a means of grandfathering, for classes that forget to
+provide their own C<TIESCALAR> method.
+
+For developers wishing to write their own tied-scalar classes, the methods
+are summarized below. The L<perltie> section not only documents these, but
+has sample code as well:
+
+=over 4
+
+=item TIESCALAR classname, LIST
+
+The method invoked by the command C<tie $scalar, classname>. Associates a new
+scalar instance with the specified class. C<LIST> would represent additional
+arguments (along the lines of L<AnyDBM_File> and compatriots) needed to
+complete the association.
+
+=item FETCH this
+
+Retrieve the value of the tied scalar referenced by I<this>.
+
+=item STORE this, value
+
+Store data I<value> in the tied scalar referenced by I<this>.
+
+=item DESTROY this
+
+Free the storage associated with the tied scalar referenced by I<this>.
+This is rarely needed, as Perl manages its memory quite well. But the
+option exists, should a class wish to perform specific actions upon the
+destruction of an instance.
+
+=back
+
+=head2 Tie::Scalar vs Tie::StdScalar
+
+C<< Tie::Scalar >> provides all the necessary methods, but one should realize
+they do not do anything useful. Calling C<< Tie::Scalar::FETCH >> or 
+C<< Tie::Scalar::STORE >> results in a (trappable) croak. And if you inherit
+from C<< Tie::Scalar >>, you I<must> provide either a C<< new >> or a
+C<< TIESCALAR >> method. 
+
+If you are looking for a class that does everything for you you don't
+define yourself, use the C<< Tie::StdScalar >> class, not the
+C<< Tie::Scalar >> one.
+
+=head1 MORE INFORMATION
+
+The L<perltie> section uses a good example of tying scalars by associating
+process IDs with priority.
+
+=cut
+
+use Carp;
+use warnings::register;
+
+sub new {
+    my $pkg = shift;
+    $pkg->TIESCALAR(@_);
+}
+
+# "Grandfather" the new, a la Tie::Hash
+
+sub TIESCALAR {
+    my $pkg = shift;
+    my $pkg_new = $pkg -> can ('new');
+
+    if ($pkg_new and $pkg ne __PACKAGE__) {
+        my $my_new = __PACKAGE__ -> can ('new');
+        if ($pkg_new == $my_new) {  
+            #
+            # Prevent recursion
+            #
+            croak "$pkg must define either a TIESCALAR() or a new() method";
+        }
+
+	warnings::warnif ("WARNING: calling ${pkg}->new since " .
+                          "${pkg}->TIESCALAR is missing");
+	$pkg -> new (@_);
+    }
+    else {
+	croak "$pkg doesn't define a TIESCALAR method";
+    }
+}
+
+sub FETCH {
+    my $pkg = ref $_[0];
+    croak "$pkg doesn't define a FETCH method";
+}
+
+sub STORE {
+    my $pkg = ref $_[0];
+    croak "$pkg doesn't define a STORE method";
+}
+
+#
+# The Tie::StdScalar package provides scalars that behave exactly like
+# Perl's built-in scalars. Good base to inherit from, if you're only going to
+# tweak a small bit.
+#
+package Tie::StdScalar;
+@ISA = qw(Tie::Scalar);
+
+sub TIESCALAR {
+    my $class = shift;
+    my $instance = @_ ? shift : undef;
+    return bless \$instance => $class;
+}
+
+sub FETCH {
+    return ${$_[0]};
+}
+
+sub STORE {
+    ${$_[0]} = $_[1];
+}
+
+sub DESTROY {
+    undef ${$_[0]};
+}
+
+1;
diff --git a/lib/5.24.1/Tie/StdHandle.pm b/lib/5.24.1/Tie/StdHandle.pm
new file mode 100644
index 00000000..0c58b706
--- /dev/null
+++ b/lib/5.24.1/Tie/StdHandle.pm
@@ -0,0 +1,72 @@
+package Tie::StdHandle; 
+
+use strict;
+
+use Tie::Handle;
+use vars qw(@ISA $VERSION);
+@ISA = 'Tie::Handle';
+$VERSION = '4.4';
+
+=head1 NAME
+
+Tie::StdHandle - base class definitions for tied handles
+
+=head1 SYNOPSIS
+
+    package NewHandle;
+    require Tie::Handle;
+
+    @ISA = qw(Tie::Handle);
+
+    sub READ { ... }		# Provide a needed method
+    sub TIEHANDLE { ... }	# Overrides inherited method
+
+
+    package main;
+
+    tie *FH, 'NewHandle';
+
+=head1 DESCRIPTION
+
+The B<Tie::StdHandle> package provide most methods for file handles described
+in L<perltie> (the exceptions are C<UNTIE> and C<DESTROY>).  It causes tied
+file handles to behave exactly like standard file handles and allow for
+selective overwriting of methods.
+
+=cut
+
+sub TIEHANDLE 
+{
+ my $class = shift;
+ my $fh    = \do { local *HANDLE};
+ bless $fh,$class;
+ $fh->OPEN(@_) if (@_);
+ return $fh;
+}
+
+sub EOF     { eof($_[0]) }
+sub TELL    { tell($_[0]) }
+sub FILENO  { fileno($_[0]) }
+sub SEEK    { seek($_[0],$_[1],$_[2]) }
+sub CLOSE   { close($_[0]) }
+sub BINMODE { binmode($_[0]) }
+
+sub OPEN
+{
+ $_[0]->CLOSE if defined($_[0]->FILENO);
+ @_ == 2 ? open($_[0], $_[1]) : open($_[0], $_[1], $_[2]);
+}
+
+sub READ     { &CORE::read(shift, \shift, @_) }
+sub READLINE { my $fh = $_[0]; <$fh> }
+sub GETC     { getc($_[0]) }
+
+sub WRITE
+{
+ my $fh = $_[0];
+ local $\; # don't print any line terminator
+ print $fh substr($_[1], $_[3], $_[2]);
+}
+
+
+1;
diff --git a/lib/5.24.1/Tie/SubstrHash.pm b/lib/5.24.1/Tie/SubstrHash.pm
new file mode 100644
index 00000000..476dd686
--- /dev/null
+++ b/lib/5.24.1/Tie/SubstrHash.pm
@@ -0,0 +1,215 @@
+package Tie::SubstrHash;
+
+our $VERSION = '1.00';
+
+=head1 NAME
+
+Tie::SubstrHash - Fixed-table-size, fixed-key-length hashing
+
+=head1 SYNOPSIS
+
+    require Tie::SubstrHash;
+
+    tie %myhash, 'Tie::SubstrHash', $key_len, $value_len, $table_size;
+
+=head1 DESCRIPTION
+
+The B<Tie::SubstrHash> package provides a hash-table-like interface to
+an array of determinate size, with constant key size and record size.
+
+Upon tying a new hash to this package, the developer must specify the
+size of the keys that will be used, the size of the value fields that the
+keys will index, and the size of the overall table (in terms of key-value
+pairs, not size in hard memory). I<These values will not change for the
+duration of the tied hash>. The newly-allocated hash table may now have
+data stored and retrieved. Efforts to store more than C<$table_size>
+elements will result in a fatal error, as will efforts to store a value
+not exactly C<$value_len> characters in length, or reference through a
+key not exactly C<$key_len> characters in length. While these constraints
+may seem excessive, the result is a hash table using much less internal
+memory than an equivalent freely-allocated hash table.
+
+=head1 CAVEATS
+
+Because the current implementation uses the table and key sizes for the
+hashing algorithm, there is no means by which to dynamically change the
+value of any of the initialization parameters.
+
+The hash does not support exists().
+
+=cut
+
+use Carp;
+
+sub TIEHASH {
+    my $pack = shift;
+    my ($klen, $vlen, $tsize) = @_;
+    my $rlen = 1 + $klen + $vlen;
+    $tsize = [$tsize,
+	      findgteprime($tsize * 1.1)]; # Allow 10% empty.
+    local $self = bless ["\0", $klen, $vlen, $tsize, $rlen, 0, -1];
+    $$self[0] x= $rlen * $tsize->[1];
+    $self;
+}
+
+sub CLEAR {
+    local($self) = @_;
+    $$self[0] = "\0" x ($$self[4] * $$self[3]->[1]);
+    $$self[5] =  0;
+    $$self[6] = -1;
+}
+
+sub FETCH {
+    local($self,$key) = @_;
+    local($klen, $vlen, $tsize, $rlen) = @$self[1..4];
+    &hashkey;
+    for (;;) {
+	$offset = $hash * $rlen;
+	$record = substr($$self[0], $offset, $rlen);
+	if (ord($record) == 0) {
+	    return undef;
+	}
+	elsif (ord($record) == 1) {
+	}
+	elsif (substr($record, 1, $klen) eq $key) {
+	    return substr($record, 1+$klen, $vlen);
+	}
+	&rehash;
+    }
+}
+
+sub STORE {
+    local($self,$key,$val) = @_;
+    local($klen, $vlen, $tsize, $rlen) = @$self[1..4];
+    croak("Table is full ($tsize->[0] elements)") if $$self[5] > $tsize->[0];
+    croak(qq/Value "$val" is not $vlen characters long/)
+	if length($val) != $vlen;
+    my $writeoffset;
+
+    &hashkey;
+    for (;;) {
+	$offset = $hash * $rlen;
+	$record = substr($$self[0], $offset, $rlen);
+	if (ord($record) == 0) {
+	    $record = "\2". $key . $val;
+	    die "panic" unless length($record) == $rlen;
+	    $writeoffset = $offset unless defined $writeoffset;
+	    substr($$self[0], $writeoffset, $rlen) = $record;
+	    ++$$self[5];
+	    return;
+	}
+	elsif (ord($record) == 1) {
+	    $writeoffset = $offset unless defined $writeoffset;
+	}
+	elsif (substr($record, 1, $klen) eq $key) {
+	    $record = "\2". $key . $val;
+	    die "panic" unless length($record) == $rlen;
+	    substr($$self[0], $offset, $rlen) = $record;
+	    return;
+	}
+	&rehash;
+    }
+}
+
+sub DELETE {
+    local($self,$key) = @_;
+    local($klen, $vlen, $tsize, $rlen) = @$self[1..4];
+    &hashkey;
+    for (;;) {
+	$offset = $hash * $rlen;
+	$record = substr($$self[0], $offset, $rlen);
+	if (ord($record) == 0) {
+	    return undef;
+	}
+	elsif (ord($record) == 1) {
+	}
+	elsif (substr($record, 1, $klen) eq $key) {
+	    substr($$self[0], $offset, 1) = "\1";
+	    return substr($record, 1+$klen, $vlen);
+	    --$$self[5];
+	}
+	&rehash;
+    }
+}
+
+sub FIRSTKEY {
+    local($self) = @_;
+    $$self[6] = -1;
+    &NEXTKEY;
+}
+
+sub NEXTKEY {
+    local($self) = @_;
+    local($klen, $vlen, $tsize, $rlen, $entries, $iterix) = @$self[1..6];
+    for (++$iterix; $iterix < $tsize->[1]; ++$iterix) {
+	next unless substr($$self[0], $iterix * $rlen, 1) eq "\2";
+	$$self[6] = $iterix;
+	return substr($$self[0], $iterix * $rlen + 1, $klen);
+    }
+    $$self[6] = -1;
+    undef;
+}
+
+sub EXISTS {
+    croak "Tie::SubstrHash does not support exists()";
+}
+
+sub hashkey {
+    croak(qq/Key "$key" is not $klen characters long/)
+	if length($key) != $klen;
+    $hash = 2;
+    for (unpack('C*', $key)) {
+	$hash = $hash * 33 + $_;
+	&_hashwrap if $hash >= 1e13;
+    }
+    &_hashwrap if $hash >= $tsize->[1];
+    $hash = 1 unless $hash;
+    $hashbase = $hash;
+}
+
+sub _hashwrap {
+    $hash -= int($hash / $tsize->[1]) * $tsize->[1];
+}
+
+sub rehash {
+    $hash += $hashbase;
+    $hash -= $tsize->[1] if $hash >= $tsize->[1];
+}
+
+# using POSIX::ceil() would be too heavy, and not all platforms have it.
+sub ceil {
+    my $num = shift;
+    $num = int($num + 1) unless $num == int $num;
+    return $num;
+}
+
+# See:
+#
+# http://www-groups.dcs.st-andrews.ac.uk/~history/HistTopics/Prime_numbers.html
+#
+
+sub findgteprime { # find the smallest prime integer greater than or equal to
+    use integer;
+
+    my $num = ceil(shift);
+    return 2 if $num <= 2;
+
+    $num++ unless $num % 2;
+    my $i;
+    my $sqrtnum = int sqrt $num;
+    my $sqrtnumsquared = $sqrtnum * $sqrtnum;
+
+  NUM:
+    for (;; $num += 2) {
+	if ($sqrtnumsquared < $num) {
+	    $sqrtnum++;
+	    $sqrtnumsquared = $sqrtnum * $sqrtnum;
+	}
+        for ($i = 3; $i <= $sqrtnum; $i += 2) {
+            next NUM unless $num % $i;
+        }
+        return $num;
+    }
+}
+
+1;
diff --git a/lib/5.24.1/Time/Local.pm b/lib/5.24.1/Time/Local.pm
new file mode 100644
index 00000000..ecdedef3
--- /dev/null
+++ b/lib/5.24.1/Time/Local.pm
@@ -0,0 +1,384 @@
+package Time::Local;
+
+require Exporter;
+use Carp;
+use Config;
+use strict;
+
+use vars qw( $VERSION @ISA @EXPORT @EXPORT_OK );
+$VERSION   = '1.2300';
+
+@ISA       = qw( Exporter );
+@EXPORT    = qw( timegm timelocal );
+@EXPORT_OK = qw( timegm_nocheck timelocal_nocheck );
+
+my @MonthDays = ( 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 );
+
+# Determine breakpoint for rolling century
+my $ThisYear    = ( localtime() )[5];
+my $Breakpoint  = ( $ThisYear + 50 ) % 100;
+my $NextCentury = $ThisYear - $ThisYear % 100;
+$NextCentury += 100 if $Breakpoint < 50;
+my $Century = $NextCentury - 100;
+my $SecOff  = 0;
+
+my ( %Options, %Cheat );
+
+use constant SECS_PER_MINUTE => 60;
+use constant SECS_PER_HOUR   => 3600;
+use constant SECS_PER_DAY    => 86400;
+
+my $MaxDay;
+if ($] < 5.012000) {
+    my $MaxInt;
+    if ( $^O eq 'MacOS' ) {
+        # time_t is unsigned...
+        $MaxInt = ( 1 << ( 8 * $Config{ivsize} ) ) - 1;
+    }
+    else {
+        $MaxInt = ( ( 1 << ( 8 * $Config{ivsize} - 2 ) ) - 1 ) * 2 + 1;
+    }
+
+    $MaxDay = int( ( $MaxInt - ( SECS_PER_DAY / 2 ) ) / SECS_PER_DAY ) - 1;
+}
+else {
+    # recent localtime()'s limit is the year 2**31
+    $MaxDay = 365 * (2**31);
+}
+
+# Determine the EPOC day for this machine
+my $Epoc = 0;
+if ( $^O eq 'vos' ) {
+    # work around posix-977 -- VOS doesn't handle dates in the range
+    # 1970-1980.
+    $Epoc = _daygm( 0, 0, 0, 1, 0, 70, 4, 0 );
+}
+elsif ( $^O eq 'MacOS' ) {
+    $MaxDay *=2 if $^O eq 'MacOS';  # time_t unsigned ... quick hack?
+    # MacOS time() is seconds since 1 Jan 1904, localtime
+    # so we need to calculate an offset to apply later
+    $Epoc = 693901;
+    $SecOff = timelocal( localtime(0)) - timelocal( gmtime(0) ) ;
+    $Epoc += _daygm( gmtime(0) );
+}
+else {
+    $Epoc = _daygm( gmtime(0) );
+}
+
+%Cheat = ();    # clear the cache as epoc has changed
+
+sub _daygm {
+
+    # This is written in such a byzantine way in order to avoid
+    # lexical variables and sub calls, for speed
+    return $_[3] + (
+        $Cheat{ pack( 'ss', @_[ 4, 5 ] ) } ||= do {
+            my $month = ( $_[4] + 10 ) % 12;
+            my $year  = $_[5] + 1900 - int($month / 10);
+
+            ( ( 365 * $year )
+              + int( $year / 4 )
+              - int( $year / 100 )
+              + int( $year / 400 )
+              + int( ( ( $month * 306 ) + 5 ) / 10 )
+            )
+            - $Epoc;
+        }
+    );
+}
+
+sub _timegm {
+    my $sec =
+        $SecOff + $_[0] + ( SECS_PER_MINUTE * $_[1] ) + ( SECS_PER_HOUR * $_[2] );
+
+    return $sec + ( SECS_PER_DAY * &_daygm );
+}
+
+sub timegm {
+    my ( $sec, $min, $hour, $mday, $month, $year ) = @_;
+
+    if ( $year >= 1000 ) {
+        $year -= 1900;
+    }
+    elsif ( $year < 100 and $year >= 0 ) {
+        $year += ( $year > $Breakpoint ) ? $Century : $NextCentury;
+    }
+
+    unless ( $Options{no_range_check} ) {
+        croak "Month '$month' out of range 0..11"
+            if $month > 11
+            or $month < 0;
+
+    my $md = $MonthDays[$month];
+        ++$md
+            if $month == 1 && _is_leap_year( $year + 1900 );
+
+        croak "Day '$mday' out of range 1..$md"  if $mday > $md or $mday < 1;
+        croak "Hour '$hour' out of range 0..23"  if $hour > 23  or $hour < 0;
+        croak "Minute '$min' out of range 0..59" if $min > 59   or $min < 0;
+        croak "Second '$sec' out of range 0..59" if $sec >= 60  or $sec < 0;
+    }
+
+    my $days = _daygm( undef, undef, undef, $mday, $month, $year );
+
+    unless ($Options{no_range_check} or abs($days) < $MaxDay) {
+        my $msg = '';
+        $msg .= "Day too big - $days > $MaxDay\n" if $days > $MaxDay;
+
+        $year += 1900;
+        $msg .=  "Cannot handle date ($sec, $min, $hour, $mday, $month, $year)";
+
+        croak $msg;
+    }
+
+    return $sec
+           + $SecOff
+           + ( SECS_PER_MINUTE * $min )
+           + ( SECS_PER_HOUR * $hour )
+           + ( SECS_PER_DAY * $days );
+}
+
+sub _is_leap_year {
+    return 0 if $_[0] % 4;
+    return 1 if $_[0] % 100;
+    return 0 if $_[0] % 400;
+
+    return 1;
+}
+
+sub timegm_nocheck {
+    local $Options{no_range_check} = 1;
+    return &timegm;
+}
+
+sub timelocal {
+    my $ref_t = &timegm;
+    my $loc_for_ref_t = _timegm( localtime($ref_t) );
+
+    my $zone_off = $loc_for_ref_t - $ref_t
+        or return $loc_for_ref_t;
+
+    # Adjust for timezone
+    my $loc_t = $ref_t - $zone_off;
+
+    # Are we close to a DST change or are we done
+    my $dst_off = $ref_t - _timegm( localtime($loc_t) );
+
+    # If this evaluates to true, it means that the value in $loc_t is
+    # the _second_ hour after a DST change where the local time moves
+    # backward.
+    if ( ! $dst_off &&
+         ( ( $ref_t - SECS_PER_HOUR ) - _timegm( localtime( $loc_t - SECS_PER_HOUR ) ) < 0 )
+       ) {
+        return $loc_t - SECS_PER_HOUR;
+    }
+
+    # Adjust for DST change
+    $loc_t += $dst_off;
+
+    return $loc_t if $dst_off > 0;
+
+    # If the original date was a non-extent gap in a forward DST jump,
+    # we should now have the wrong answer - undo the DST adjustment
+    my ( $s, $m, $h ) = localtime($loc_t);
+    $loc_t -= $dst_off if $s != $_[0] || $m != $_[1] || $h != $_[2];
+
+    return $loc_t;
+}
+
+sub timelocal_nocheck {
+    local $Options{no_range_check} = 1;
+    return &timelocal;
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+Time::Local - efficiently compute time from local and GMT time
+
+=head1 SYNOPSIS
+
+    $time = timelocal( $sec, $min, $hour, $mday, $mon, $year );
+    $time = timegm( $sec, $min, $hour, $mday, $mon, $year );
+
+=head1 DESCRIPTION
+
+This module provides functions that are the inverse of built-in perl
+functions C<localtime()> and C<gmtime()>. They accept a date as a
+six-element array, and return the corresponding C<time(2)> value in
+seconds since the system epoch (Midnight, January 1, 1970 GMT on Unix,
+for example). This value can be positive or negative, though POSIX
+only requires support for positive values, so dates before the
+system's epoch may not work on all operating systems.
+
+It is worth drawing particular attention to the expected ranges for
+the values provided. The value for the day of the month is the actual
+day (ie 1..31), while the month is the number of months since January
+(0..11). This is consistent with the values returned from
+C<localtime()> and C<gmtime()>.
+
+=head1 FUNCTIONS
+
+=head2 C<timelocal()> and C<timegm()>
+
+This module exports two functions by default, C<timelocal()> and
+C<timegm()>.
+
+The C<timelocal()> and C<timegm()> functions perform range checking on
+the input $sec, $min, $hour, $mday, and $mon values by default.
+
+=head2 C<timelocal_nocheck()> and C<timegm_nocheck()>
+
+If you are working with data you know to be valid, you can speed your
+code up by using the "nocheck" variants, C<timelocal_nocheck()> and
+C<timegm_nocheck()>. These variants must be explicitly imported.
+
+    use Time::Local 'timelocal_nocheck';
+
+    # The 365th day of 1999
+    print scalar localtime timelocal_nocheck( 0, 0, 0, 365, 0, 99 );
+
+If you supply data which is not valid (month 27, second 1,000) the
+results will be unpredictable (so don't do that).
+
+=head2 Year Value Interpretation
+
+Strictly speaking, the year should be specified in a form consistent
+with C<localtime()>, i.e. the offset from 1900. In order to make the
+interpretation of the year easier for humans, however, who are more
+accustomed to seeing years as two-digit or four-digit values, the
+following conventions are followed:
+
+=over 4
+
+=item *
+
+Years greater than 999 are interpreted as being the actual year,
+rather than the offset from 1900. Thus, 1964 would indicate the year
+Martin Luther King won the Nobel prize, not the year 3864.
+
+=item *
+
+Years in the range 100..999 are interpreted as offset from 1900, so
+that 112 indicates 2012. This rule also applies to years less than
+zero (but see note below regarding date range).
+
+=item *
+
+Years in the range 0..99 are interpreted as shorthand for years in the
+rolling "current century," defined as 50 years on either side of the
+current year. Thus, today, in 1999, 0 would refer to 2000, and 45 to
+2045, but 55 would refer to 1955. Twenty years from now, 55 would
+instead refer to 2055. This is messy, but matches the way people
+currently think about two digit dates. Whenever possible, use an
+absolute four digit year instead.
+
+=back
+
+The scheme above allows interpretation of a wide range of dates,
+particularly if 4-digit years are used.
+
+=head2 Limits of time_t
+
+On perl versions older than 5.12.0, the range of dates that can be
+actually be handled depends on the size of C<time_t> (usually a signed
+integer) on the given platform. Currently, this is 32 bits for most
+systems, yielding an approximate range from Dec 1901 to Jan 2038.
+
+Both C<timelocal()> and C<timegm()> croak if given dates outside the
+supported range.
+
+As of version 5.12.0, perl has stopped using the underlying time
+library of the operating system it's running on and has its own
+implementation of those routines with a safe range of at least
++/ 2**52 (about 142 million years).
+
+=head2 Ambiguous Local Times (DST)
+
+Because of DST changes, there are many time zones where the same local
+time occurs for two different GMT times on the same day. For example,
+in the "Europe/Paris" time zone, the local time of 2001-10-28 02:30:00
+can represent either 2001-10-28 00:30:00 GMT, B<or> 2001-10-28
+01:30:00 GMT.
+
+When given an ambiguous local time, the timelocal() function should
+always return the epoch for the I<earlier> of the two possible GMT
+times.
+
+=head2 Non-Existent Local Times (DST)
+
+When a DST change causes a locale clock to skip one hour forward,
+there will be an hour's worth of local times that don't exist. Again,
+for the "Europe/Paris" time zone, the local clock jumped from
+2001-03-25 01:59:59 to 2001-03-25 03:00:00.
+
+If the C<timelocal()> function is given a non-existent local time, it
+will simply return an epoch value for the time one hour later.
+
+=head2 Negative Epoch Values
+
+On perl version 5.12.0 and newer, negative epoch values are fully
+supported.
+
+On older versions of perl, negative epoch (C<time_t>) values, which
+are not officially supported by the POSIX standards, are known not to
+work on some systems. These include MacOS (pre-OSX) and Win32.
+
+On systems which do support negative epoch values, this module should
+be able to cope with dates before the start of the epoch, down the
+minimum value of time_t for the system.
+
+=head1 IMPLEMENTATION
+
+These routines are quite efficient and yet are always guaranteed to
+agree with C<localtime()> and C<gmtime()>. We manage this by caching
+the start times of any months we've seen before. If we know the start
+time of the month, we can always calculate any time within the month.
+The start times are calculated using a mathematical formula. Unlike
+other algorithms that do multiple calls to C<gmtime()>.
+
+The C<timelocal()> function is implemented using the same cache. We
+just assume that we're translating a GMT time, and then fudge it when
+we're done for the timezone and daylight savings arguments. Note that
+the timezone is evaluated for each date because countries occasionally
+change their official timezones. Assuming that C<localtime()> corrects
+for these changes, this routine will also be correct.
+
+=head1 BUGS
+
+The whole scheme for interpreting two-digit years can be considered a
+bug.
+
+=head1 SUPPORT
+
+Support for this module is provided via the datetime@perl.org email
+list. See http://lists.perl.org/ for more details.
+
+Please submit bugs to the CPAN RT system at
+http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Time-Local or via email
+at bug-time-local@rt.cpan.org.
+
+=head1 COPYRIGHT
+
+Copyright (c) 1997-2003 Graham Barr, 2003-2007 David Rolsky.  All
+rights reserved.  This program is free software; you can redistribute
+it and/or modify it under the same terms as Perl itself.
+
+The full text of the license can be found in the LICENSE file included
+with this module.
+
+=head1 AUTHOR
+
+This module is based on a Perl 4 library, timelocal.pl, that was
+included with Perl 4.036, and was most likely written by Tom
+Christiansen.
+
+The current version was written by Graham Barr.
+
+It is now being maintained separately from the Perl core by Dave
+Rolsky, <autarch@urth.org>.
+
+=cut
diff --git a/lib/5.24.1/Time/gmtime.pm b/lib/5.24.1/Time/gmtime.pm
new file mode 100644
index 00000000..eb5b371a
--- /dev/null
+++ b/lib/5.24.1/Time/gmtime.pm
@@ -0,0 +1,91 @@
+package Time::gmtime;
+use strict;
+use 5.006_001;
+
+use Time::tm;
+
+our(@ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS, $VERSION);
+BEGIN { 
+    use Exporter   ();
+    @ISA         = qw(Exporter Time::tm);
+    @EXPORT      = qw(gmtime gmctime);
+    @EXPORT_OK   = qw(  
+			$tm_sec $tm_min $tm_hour $tm_mday 
+			$tm_mon $tm_year $tm_wday $tm_yday 
+			$tm_isdst
+		    );
+    %EXPORT_TAGS = ( FIELDS => [ @EXPORT_OK, @EXPORT ] );
+    $VERSION     = 1.03;
+}
+use vars      @EXPORT_OK;
+
+sub populate (@) {
+    return unless @_;
+    my $tmob = Time::tm->new();
+    @$tmob = (
+		$tm_sec, $tm_min, $tm_hour, $tm_mday, 
+		$tm_mon, $tm_year, $tm_wday, $tm_yday, 
+		$tm_isdst )
+	    = @_;
+    return $tmob;
+} 
+
+sub gmtime (;$)    { populate CORE::gmtime(@_ ? shift : time)}
+sub gmctime (;$)   { scalar   CORE::gmtime(@_ ? shift : time)} 
+
+1;
+__END__
+
+=head1 NAME
+
+Time::gmtime - by-name interface to Perl's built-in gmtime() function
+
+=head1 SYNOPSIS
+
+ use Time::gmtime;
+ $gm = gmtime();
+ printf "The day in Greenwich is %s\n", 
+    (qw(Sun Mon Tue Wed Thu Fri Sat Sun))[ $gm->wday() ];
+
+ use Time::gmtime qw(:FIELDS);
+ gmtime();
+ printf "The day in Greenwich is %s\n", 
+    (qw(Sun Mon Tue Wed Thu Fri Sat Sun))[ $tm_wday ];
+
+ $now = gmctime();
+
+ use Time::gmtime;
+ use File::stat;
+ $date_string = gmctime(stat($file)->mtime);
+
+=head1 DESCRIPTION
+
+This module's default exports override the core gmtime() function,
+replacing it with a version that returns "Time::tm" objects.
+This object has methods that return the similarly named structure field
+name from the C's tm structure from F<time.h>; namely sec, min, hour,
+mday, mon, year, wday, yday, and isdst.
+
+You may also import all the structure fields directly into your namespace
+as regular variables using the :FIELDS import tag.  (Note that this
+still overrides your core functions.)  Access these fields as variables
+named with a preceding C<tm_> in front their method names.  Thus,
+C<$tm_obj-E<gt>mday()> corresponds to $tm_mday if you import the fields.
+
+The gmctime() function provides a way of getting at the 
+scalar sense of the original CORE::gmtime() function.
+
+To access this functionality without the core overrides,
+pass the C<use> an empty import list, and then access
+function functions with their full qualified names.
+On the other hand, the built-ins are still available
+via the C<CORE::> pseudo-package.
+
+=head1 NOTE
+
+While this class is currently implemented using the Class::Struct
+module to build a struct-like class, you shouldn't rely upon this.
+
+=head1 AUTHOR
+
+Tom Christiansen
diff --git a/lib/5.24.1/Time/localtime.pm b/lib/5.24.1/Time/localtime.pm
new file mode 100644
index 00000000..c3d9fb36
--- /dev/null
+++ b/lib/5.24.1/Time/localtime.pm
@@ -0,0 +1,86 @@
+package Time::localtime;
+use strict;
+use 5.006_001;
+
+use Time::tm;
+
+our(@ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS, $VERSION);
+BEGIN {
+    use Exporter   ();
+    @ISA         = qw(Exporter Time::tm);
+    @EXPORT      = qw(localtime ctime);
+    @EXPORT_OK   = qw(  
+			$tm_sec $tm_min $tm_hour $tm_mday 
+			$tm_mon $tm_year $tm_wday $tm_yday 
+			$tm_isdst
+		    );
+    %EXPORT_TAGS = ( FIELDS => [ @EXPORT_OK, @EXPORT ] );
+    $VERSION     = 1.02;
+}
+use vars      @EXPORT_OK;
+
+sub populate (@) {
+    return unless @_;
+    my $tmob = Time::tm->new();
+    @$tmob = (
+		$tm_sec, $tm_min, $tm_hour, $tm_mday, 
+		$tm_mon, $tm_year, $tm_wday, $tm_yday, 
+		$tm_isdst )
+	    = @_;
+    return $tmob;
+} 
+
+sub localtime (;$) { populate CORE::localtime(@_ ? shift : time)}
+sub ctime (;$)     { scalar   CORE::localtime(@_ ? shift : time) } 
+
+1;
+
+__END__
+
+=head1 NAME
+
+Time::localtime - by-name interface to Perl's built-in localtime() function
+
+=head1 SYNOPSIS
+
+ use Time::localtime;
+ printf "Year is %d\n", localtime->year() + 1900;
+
+ $now = ctime();
+
+ use Time::localtime;
+ use File::stat;
+ $date_string = ctime(stat($file)->mtime);
+
+=head1 DESCRIPTION
+
+This module's default exports override the core localtime() function,
+replacing it with a version that returns "Time::tm" objects.
+This object has methods that return the similarly named structure field
+name from the C's tm structure from F<time.h>; namely sec, min, hour,
+mday, mon, year, wday, yday, and isdst.
+
+You may also import all the structure fields directly into your namespace
+as regular variables using the :FIELDS import tag.  (Note that this still
+overrides your core functions.)  Access these fields as
+variables named with a preceding C<tm_> in front their method names.
+Thus, C<$tm_obj-E<gt>mday()> corresponds to $tm_mday if you import
+the fields.
+
+The ctime() function provides a way of getting at the 
+scalar sense of the original CORE::localtime() function.
+
+To access this functionality without the core overrides,
+pass the C<use> an empty import list, and then access
+function functions with their full qualified names.
+On the other hand, the built-ins are still available
+via the C<CORE::> pseudo-package.
+
+=head1 NOTE
+
+While this class is currently implemented using the Class::Struct
+module to build a struct-like class, you shouldn't rely upon this.
+
+=head1 AUTHOR
+
+Tom Christiansen
diff --git a/lib/5.24.1/Time/tm.pm b/lib/5.24.1/Time/tm.pm
new file mode 100644
index 00000000..2c308ebb
--- /dev/null
+++ b/lib/5.24.1/Time/tm.pm
@@ -0,0 +1,33 @@
+package Time::tm;
+use strict;
+
+our $VERSION = '1.00';
+
+use Class::Struct qw(struct);
+struct('Time::tm' => [
+     map { $_ => '$' } qw{ sec min hour mday mon year wday yday isdst }
+]);
+
+1;
+__END__
+
+=head1 NAME
+
+Time::tm - internal object used by Time::gmtime and Time::localtime
+
+=head1 SYNOPSIS
+
+Don't use this module directly.
+
+=head1 DESCRIPTION
+
+This module is used internally as a base class by Time::localtime And
+Time::gmtime functions.  It creates a Time::tm struct object which is
+addressable just like's C's tm structure from F<time.h>; namely with sec,
+min, hour, mday, mon, year, wday, yday, and isdst.
+
+This class is an internal interface only. 
+
+=head1 AUTHOR
+
+Tom Christiansen
diff --git a/lib/5.24.1/UNIVERSAL.pm b/lib/5.24.1/UNIVERSAL.pm
new file mode 100644
index 00000000..12800fb5
--- /dev/null
+++ b/lib/5.24.1/UNIVERSAL.pm
@@ -0,0 +1,203 @@
+package UNIVERSAL;
+
+our $VERSION = '1.13';
+
+# UNIVERSAL should not contain any extra subs/methods beyond those
+# that it exists to define. The existence of import() below is a historical
+# accident that can't be fixed without breaking code.
+
+# Make sure that even though the import method is called, it doesn't do
+# anything unless called on UNIVERSAL.
+sub import {
+    return unless $_[0] eq __PACKAGE__;
+    return unless @_ > 1;
+    require Carp;
+    Carp::croak("UNIVERSAL does not export anything");
+}
+
+1;
+__END__
+
+=head1 NAME
+
+UNIVERSAL - base class for ALL classes (blessed references)
+
+=head1 SYNOPSIS
+
+    $is_io    = $fd->isa("IO::Handle");
+    $is_io    = Class->isa("IO::Handle");
+
+    $does_log = $obj->DOES("Logger");
+    $does_log = Class->DOES("Logger");
+
+    $sub      = $obj->can("print");
+    $sub      = Class->can("print");
+
+    $sub      = eval { $ref->can("fandango") };
+    $ver      = $obj->VERSION;
+
+    # but never do this!
+    $is_io    = UNIVERSAL::isa($fd, "IO::Handle");
+    $sub      = UNIVERSAL::can($obj, "print");
+
+=head1 DESCRIPTION
+
+C<UNIVERSAL> is the base class from which all blessed references inherit.
+See L<perlobj>.
+
+C<UNIVERSAL> provides the following methods:
+
+=over 4
+
+=item C<< $obj->isa( TYPE ) >>
+
+=item C<< CLASS->isa( TYPE ) >>
+
+=item C<< eval { VAL->isa( TYPE ) } >>
+
+Where
+
+=over 4
+
+=item C<TYPE>
+
+is a package name
+
+=item C<$obj>
+
+is a blessed reference or a package name
+
+=item C<CLASS>
+
+is a package name
+
+=item C<VAL>
+
+is any of the above or an unblessed reference
+
+=back
+
+When used as an instance or class method (C<< $obj->isa( TYPE ) >>),
+C<isa> returns I<true> if $obj is blessed into package C<TYPE> or
+inherits from package C<TYPE>.
+
+When used as a class method (C<< CLASS->isa( TYPE ) >>, sometimes
+referred to as a static method), C<isa> returns I<true> if C<CLASS>
+inherits from (or is itself) the name of the package C<TYPE> or
+inherits from package C<TYPE>.
+
+If you're not sure what you have (the C<VAL> case), wrap the method call in an
+C<eval> block to catch the exception if C<VAL> is undefined.
+
+If you want to be sure that you're calling C<isa> as a method, not a class,
+check the invocand with C<blessed> from L<Scalar::Util> first:
+
+  use Scalar::Util 'blessed';
+
+  if ( blessed( $obj ) && $obj->isa("Some::Class") ) {
+      ...
+  }
+
+=item C<< $obj->DOES( ROLE ) >>
+
+=item C<< CLASS->DOES( ROLE ) >>
+
+C<DOES> checks if the object or class performs the role C<ROLE>.  A role is a
+named group of specific behavior (often methods of particular names and
+signatures), similar to a class, but not necessarily a complete class by
+itself.  For example, logging or serialization may be roles.
+
+C<DOES> and C<isa> are similar, in that if either is true, you know that the
+object or class on which you call the method can perform specific behavior.
+However, C<DOES> is different from C<isa> in that it does not care I<how> the
+invocand performs the operations, merely that it does.  (C<isa> of course
+mandates an inheritance relationship.  Other relationships include aggregation,
+delegation, and mocking.)
+
+By default, classes in Perl only perform the C<UNIVERSAL> role, as well as the
+role of all classes in their inheritance.  In other words, by default C<DOES>
+responds identically to C<isa>.
+
+There is a relationship between roles and classes, as each class implies the
+existence of a role of the same name.  There is also a relationship between
+inheritance and roles, in that a subclass that inherits from an ancestor class
+implicitly performs any roles its parent performs.  Thus you can use C<DOES> in
+place of C<isa> safely, as it will return true in all places where C<isa> will
+return true (provided that any overridden C<DOES> I<and> C<isa> methods behave
+appropriately).
+
+=item C<< $obj->can( METHOD ) >>
+
+=item C<< CLASS->can( METHOD ) >>
+
+=item C<< eval { VAL->can( METHOD ) } >>
+
+C<can> checks if the object or class has a method called C<METHOD>. If it does,
+then it returns a reference to the sub.  If it does not, then it returns
+I<undef>.  This includes methods inherited or imported by C<$obj>, C<CLASS>, or
+C<VAL>.
+
+C<can> cannot know whether an object will be able to provide a method through
+AUTOLOAD (unless the object's class has overridden C<can> appropriately), so a
+return value of I<undef> does not necessarily mean the object will not be able
+to handle the method call. To get around this some module authors use a forward
+declaration (see L<perlsub>) for methods they will handle via AUTOLOAD. For
+such 'dummy' subs, C<can> will still return a code reference, which, when
+called, will fall through to the AUTOLOAD. If no suitable AUTOLOAD is provided,
+calling the coderef will cause an error.
+
+You may call C<can> as a class (static) method or an object method.
+
+Again, the same rule about having a valid invocand applies -- use an C<eval>
+block or C<blessed> if you need to be extra paranoid.
+
+=item C<VERSION ( [ REQUIRE ] )>
+
+C<VERSION> will return the value of the variable C<$VERSION> in the
+package the object is blessed into. If C<REQUIRE> is given then
+it will do a comparison and die if the package version is not
+greater than or equal to C<REQUIRE>, or if either C<$VERSION> or C<REQUIRE>
+is not a "lax" version number (as defined by the L<version> module).
+
+The return from C<VERSION> will actually be the stringified version object
+using the package C<$VERSION> scalar, which is guaranteed to be equivalent
+but may not be precisely the contents of the C<$VERSION> scalar.  If you want
+the actual contents of C<$VERSION>, use C<$CLASS::VERSION> instead.
+
+C<VERSION> can be called as either a class (static) method or an object
+method.
+
+=back
+
+=head1 WARNINGS
+
+B<NOTE:> C<can> directly uses Perl's internal code for method lookup, and
+C<isa> uses a very similar method and cache-ing strategy. This may cause
+strange effects if the Perl code dynamically changes @ISA in any package.
+
+You may add other methods to the UNIVERSAL class via Perl or XS code.
+You do not need to C<use UNIVERSAL> to make these methods
+available to your program (and you should not do so).
+
+=head1 EXPORTS
+
+None.
+
+Previous versions of this documentation suggested using C<isa> as
+a function to determine the type of a reference:
+
+  $yes = UNIVERSAL::isa($h, "HASH");
+  $yes = UNIVERSAL::isa("Foo", "Bar");
+
+The problem is that this code would I<never> call an overridden C<isa> method in
+any class.  Instead, use C<reftype> from L<Scalar::Util> for the first case:
+
+  use Scalar::Util 'reftype';
+
+  $yes = reftype( $h ) eq "HASH";
+
+and the method form of C<isa> for the second:
+
+  $yes = Foo->isa("Bar");
+
+=cut
diff --git a/lib/5.24.1/Unicode/Collate/CJK/Big5.pm b/lib/5.24.1/Unicode/Collate/CJK/Big5.pm
new file mode 100644
index 00000000..63999976
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/CJK/Big5.pm
@@ -0,0 +1,1376 @@
+package Unicode::Collate::CJK::Big5;
+
+use 5.006;
+use strict;
+use warnings;
+
+our $VERSION = '1.14';
+
+my %u2p;
+my $wt = 0x8000;
+
+while (<DATA>) {
+    last if /^__END__/;
+    my @c = split;
+    for my $c (@c) {
+	next if !$c;
+	$u2p{hex($c)} = $wt;
+	$wt++;
+    }
+}
+
+sub weightBig5 {
+    my $u = shift;
+    return exists $u2p{$u} ? $u2p{$u} : undef;
+}
+
+1;
+__DATA__
+5159 515B 515E 515D 5161 5163 55E7 74E9 7CCE 4E00
+4E59 4E01 4E03 4E43 4E5D 4E86 4E8C 4EBA 513F 5165
+516B 51E0 5200 5201 529B 5315 5341 535C 53C8 4E09
+4E0B 4E08 4E0A 4E2B 4E38 51E1 4E45 4E48 4E5F 4E5E
+4E8E 4EA1 5140 5203 52FA 5343 53C9 53E3 571F 58EB
+5915 5927 5973 5B50 5B51 5B53 5BF8 5C0F 5C22 5C38
+5C71 5DDD 5DE5 5DF1 5DF2 5DF3 5DFE 5E72 5EFE 5F0B
+5F13 624D 4E11 4E10 4E0D 4E2D 4E30 4E39 4E4B 5C39
+4E88 4E91 4E95 4E92 4E94 4EA2 4EC1 4EC0 4EC3 4EC6
+4EC7 4ECD 4ECA 4ECB 4EC4 5143 5141 5167 516D 516E
+516C 5197 51F6 5206 5207 5208 52FB 52FE 52FF 5316
+5339 5348 5347 5345 535E 5384 53CB 53CA 53CD 58EC
+5929 592B 592A 592D 5B54 5C11 5C24 5C3A 5C6F 5DF4
+5E7B 5EFF 5F14 5F15 5FC3 6208 6236 624B 624E 652F
+6587 6597 65A4 65B9 65E5 66F0 6708 6728 6B20 6B62
+6B79 6BCB 6BD4 6BDB 6C0F 6C34 706B 722A 7236 723B
+7247 7259 725B 72AC 738B 4E19 4E16 4E15 4E14 4E18
+4E3B 4E4D 4E4F 4E4E 4EE5 4ED8 4ED4 4ED5 4ED6 4ED7
+4EE3 4EE4 4ED9 4EDE 5145 5144 5189 518A 51AC 51F9
+51FA 51F8 520A 52A0 529F 5305 5306 5317 531D 4EDF
+534A 5349 5361 5360 536F 536E 53BB 53EF 53E4 53F3
+53EC 53EE 53E9 53E8 53FC 53F8 53F5 53EB 53E6 53EA
+53F2 53F1 53F0 53E5 53ED 53FB 56DB 56DA 5916 592E
+5931 5974 5976 5B55 5B83 5C3C 5DE8 5DE7 5DE6 5E02
+5E03 5E73 5E7C 5F01 5F18 5F17 5FC5 620A 6253 6254
+6252 6251 65A5 65E6 672E 672C 672A 672B 672D 6B63
+6BCD 6C11 6C10 6C38 6C41 6C40 6C3E 72AF 7384 7389
+74DC 74E6 7518 751F 7528 7529 7530 7531 7532 7533
+758B 767D 76AE 76BF 76EE 77DB 77E2 77F3 793A 79BE
+7A74 7ACB 4E1E 4E1F 4E52 4E53 4E69 4E99 4EA4 4EA6
+4EA5 4EFF 4F09 4F19 4F0A 4F15 4F0D 4F10 4F11 4F0F
+4EF2 4EF6 4EFB 4EF0 4EF3 4EFD 4F01 4F0B 5149 5147
+5146 5148 5168 5171 518D 51B0 5217 5211 5212 520E
+5216 52A3 5308 5321 5320 5370 5371 5409 540F 540C
+540A 5410 5401 540B 5404 5411 540D 5408 5403 540E
+5406 5412 56E0 56DE 56DD 5733 5730 5728 572D 572C
+572F 5729 5919 591A 5937 5938 5984 5978 5983 597D
+5979 5982 5981 5B57 5B58 5B87 5B88 5B85 5B89 5BFA
+5C16 5C79 5DDE 5E06 5E76 5E74 5F0F 5F1B 5FD9 5FD6
+620E 620C 620D 6210 6263 625B 6258 6536 65E9 65E8
+65EC 65ED 66F2 66F3 6709 673D 6734 6731 6735 6B21
+6B64 6B7B 6C16 6C5D 6C57 6C59 6C5F 6C60 6C50 6C55
+6C61 6C5B 6C4D 6C4E 7070 725F 725D 767E 7AF9 7C73
+7CF8 7F36 7F8A 7FBD 8001 8003 800C 8012 8033 807F
+8089 808B 808C 81E3 81EA 81F3 81FC 820C 821B 821F
+826E 8272 827E 866B 8840 884C 8863 897F 9621 4E32
+4EA8 4F4D 4F4F 4F47 4F57 4F5E 4F34 4F5B 4F55 4F30
+4F50 4F51 4F3D 4F3A 4F38 4F43 4F54 4F3C 4F46 4F63
+4F5C 4F60 4F2F 4F4E 4F36 4F59 4F5D 4F48 4F5A 514C
+514B 514D 5175 51B6 51B7 5225 5224 5229 522A 5228
+52AB 52A9 52AA 52AC 5323 5373 5375 541D 542D 541E
+543E 5426 544E 5427 5446 5443 5433 5448 5442 541B
+5429 544A 5439 543B 5438 542E 5435 5436 5420 543C
+5440 5431 542B 541F 542C 56EA 56F0 56E4 56EB 574A
+5751 5740 574D 5747 574E 573E 5750 574F 573B 58EF
+593E 599D 5992 59A8 599E 59A3 5999 5996 598D 59A4
+5993 598A 59A5 5B5D 5B5C 5B5A 5B5B 5B8C 5B8B 5B8F
+5C2C 5C40 5C41 5C3F 5C3E 5C90 5C91 5C94 5C8C 5DEB
+5E0C 5E8F 5E87 5E8A 5EF7 5F04 5F1F 5F64 5F62 5F77
+5F79 5FD8 5FCC 5FD7 5FCD 5FF1 5FEB 5FF8 5FEA 6212
+6211 6284 6297 6296 6280 6276 6289 626D 628A 627C
+627E 6279 6273 6292 626F 6298 626E 6295 6293 6291
+6286 6539 653B 6538 65F1 66F4 675F 674E 674F 6750
+6751 675C 6756 675E 6749 6746 6760 6753 6757 6B65
+6BCF 6C42 6C5E 6C99 6C81 6C88 6C89 6C85 6C9B 6C6A
+6C7A 6C90 6C70 6C8C 6C68 6C96 6C92 6C7D 6C83 6C72
+6C7E 6C74 6C86 6C76 6C8D 6C94 6C98 6C82 7076 707C
+707D 7078 7262 7261 7260 72C4 72C2 7396 752C 752B
+7537 7538 7682 76EF 77E3 79C1 79C0 79BF 7A76 7CFB
+7F55 8096 8093 809D 8098 809B 809A 80B2 826F 8292
+828B 828D 898B 89D2 8A00 8C37 8C46 8C55 8C9D 8D64
+8D70 8DB3 8EAB 8ECA 8F9B 8FB0 8FC2 8FC6 8FC5 8FC4
+5DE1 9091 90A2 90AA 90A6 90A3 9149 91C6 91CC 9632
+962E 9631 962A 962C 4E26 4E56 4E73 4E8B 4E9B 4E9E
+4EAB 4EAC 4F6F 4F9D 4F8D 4F73 4F7F 4F6C 4F9B 4F8B
+4F86 4F83 4F70 4F75 4F88 4F69 4F7B 4F96 4F7E 4F8F
+4F91 4F7A 5154 5152 5155 5169 5177 5176 5178 51BD
+51FD 523B 5238 5237 523A 5230 522E 5236 5241 52BE
+52BB 5352 5354 5353 5351 5366 5377 5378 5379 53D6
+53D4 53D7 5473 5475 5496 5478 5495 5480 547B 5477
+5484 5492 5486 547C 5490 5471 5476 548C 549A 5462
+5468 548B 547D 548E 56FA 5783 5777 576A 5769 5761
+5766 5764 577C 591C 5949 5947 5948 5944 5954 59BE
+59BB 59D4 59B9 59AE 59D1 59C6 59D0 59CD 59CB 59D3
+59CA 59AF 59B3 59D2 59C5 5B5F 5B64 5B63 5B97 5B9A
+5B98 5B9C 5B99 5B9B 5C1A 5C48 5C45 5C46 5CB7 5CA1
+5CB8 5CA9 5CAB 5CB1 5CB3 5E18 5E1A 5E16 5E15 5E1B
+5E11 5E78 5E9A 5E97 5E9C 5E95 5E96 5EF6 5F26 5F27
+5F29 5F80 5F81 5F7F 5F7C 5FDD 5FE0 5FFD 5FF5 5FFF
+600F 6014 602F 6035 6016 602A 6015 6021 6027 6029
+602B 601B 6216 6215 623F 623E 6240 627F 62C9 62CC
+62C4 62BF 62C2 62B9 62D2 62DB 62AB 62D3 62D4 62CB
+62C8 62A8 62BD 62BC 62D0 62D9 62C7 62CD 62B5 62DA
+62B1 62D8 62D6 62D7 62C6 62AC 62CE 653E 65A7 65BC
+65FA 6614 6613 660C 6606 6602 660E 6600 660F 6615
+660A 6607 670D 670B 676D 678B 6795 6771 679C 6773
+6777 6787 679D 6797 676F 6770 677F 6789 677E 6790
+6775 679A 6793 677C 676A 6772 6B23 6B66 6B67 6B7F
+6C13 6C1B 6CE3 6CE8 6CF3 6CB1 6CCC 6CE5 6CB3 6CBD
+6CBE 6CBC 6CE2 6CAB 6CD5 6CD3 6CB8 6CC4 6CB9 6CC1
+6CAE 6CD7 6CC5 6CF1 6CBF 6CBB 6CE1 6CDB 6CCA 6CAC
+6CEF 6CDC 6CD6 6CE0 7095 708E 7092 708A 7099 722C
+722D 7238 7248 7267 7269 72C0 72CE 72D9 72D7 72D0
+73A9 73A8 739F 73AB 73A5 753D 759D 7599 759A 7684
+76C2 76F2 76F4 77E5 77FD 793E 7940 7941 79C9 79C8
+7A7A 7A79 7AFA 7CFE 7F54 7F8C 7F8B 8005 80BA 80A5
+80A2 80B1 80A1 80AB 80A9 80B4 80AA 80AF 81E5 81FE
+820D 82B3 829D 8299 82AD 82BD 829F 82B9 82B1 82AC
+82A5 82AF 82B8 82A3 82B0 82BE 82B7 864E 8671 521D
+8868 8ECB 8FCE 8FD4 8FD1 90B5 90B8 90B1 90B6 91C7
+91D1 9577 9580 961C 9640 963F 963B 9644 9642 96B9
+96E8 9752 975E 4E9F 4EAD 4EAE 4FE1 4FB5 4FAF 4FBF
+4FE0 4FD1 4FCF 4FDD 4FC3 4FB6 4FD8 4FDF 4FCA 4FD7
+4FAE 4FD0 4FC4 4FC2 4FDA 4FCE 4FDE 4FB7 5157 5192
+5191 51A0 524E 5243 524A 524D 524C 524B 5247 52C7
+52C9 52C3 52C1 530D 5357 537B 539A 53DB 54AC 54C0
+54A8 54CE 54C9 54B8 54A6 54B3 54C7 54C2 54BD 54AA
+54C1 54C4 54C8 54AF 54AB 54B1 54BB 54A9 54A7 54BF
+56FF 5782 578B 57A0 57A3 57A2 57CE 57AE 5793 5955
+5951 594F 594E 5950 59DC 59D8 59FF 59E3 59E8 5A03
+59E5 59EA 59DA 59E6 5A01 59FB 5B69 5BA3 5BA6 5BA4
+5BA2 5BA5 5C01 5C4E 5C4F 5C4D 5C4B 5CD9 5CD2 5DF7
+5E1D 5E25 5E1F 5E7D 5EA0 5EA6 5EFA 5F08 5F2D 5F65
+5F88 5F85 5F8A 5F8B 5F87 5F8C 5F89 6012 601D 6020
+6025 600E 6028 604D 6070 6068 6062 6046 6043 606C
+606B 606A 6064 6241 62DC 6316 6309 62FC 62ED 6301
+62EE 62FD 6307 62F1 62F7 62EF 62EC 62FE 62F4 6311
+6302 653F 6545 65AB 65BD 65E2 6625 662D 6620 6627
+662F 661F 6628 6631 6624 66F7 67FF 67D3 67F1 67D4
+67D0 67EC 67B6 67AF 67F5 67E9 67EF 67C4 67D1 67B4
+67DA 67E5 67B8 67CF 67DE 67F3 67B0 67D9 67E2 67DD
+67D2 6B6A 6B83 6B86 6BB5 6BD2 6BD7 6C1F 6CC9 6D0B
+6D32 6D2A 6D41 6D25 6D0C 6D31 6D1E 6D17 6D3B 6D3D
+6D3E 6D36 6D1B 6CF5 6D39 6D27 6D38 6D29 6D2E 6D35
+6D0E 6D2B 70AB 70BA 70B3 70AC 70AF 70AD 70B8 70AE
+70A4 7230 7272 726F 7274 72E9 72E0 72E1 73B7 73CA
+73BB 73B2 73CD 73C0 73B3 751A 752D 754F 754C 754E
+754B 75AB 75A4 75A5 75A2 75A3 7678 7686 7687 7688
+76C8 76C6 76C3 76C5 7701 76F9 76F8 7709 770B 76FE
+76FC 7707 77DC 7802 7814 780C 780D 7946 7949 7948
+7947 79B9 79BA 79D1 79D2 79CB 7A7F 7A81 7AFF 7AFD
+7C7D 7D02 7D05 7D00 7D09 7D07 7D04 7D06 7F38 7F8E
+7FBF 8004 8010 800D 8011 8036 80D6 80E5 80DA 80C3
+80C4 80CC 80E1 80DB 80CE 80DE 80E4 80DD 81F4 8222
+82E7 8303 8305 82E3 82DB 82E6 8304 82E5 8302 8309
+82D2 82D7 82F1 8301 82DC 82D4 82D1 82DE 82D3 82DF
+82EF 8306 8650 8679 867B 867A 884D 886B 8981 89D4
+8A08 8A02 8A03 8C9E 8CA0 8D74 8D73 8DB4 8ECD 8ECC
+8FF0 8FE6 8FE2 8FEA 8FE5 8FED 8FEB 8FE4 8FE8 90CA
+90CE 90C1 90C3 914B 914A 91CD 9582 9650 964B 964C
+964D 9762 9769 97CB 97ED 97F3 9801 98A8 98DB 98DF
+9996 9999 4E58 4EB3 500C 500D 5023 4FEF 5026 5025
+4FF8 5029 5016 5006 503C 501F 501A 5012 5011 4FFA
+5000 5014 5028 4FF1 5021 500B 5019 5018 4FF3 4FEE
+502D 502A 4FFE 502B 5009 517C 51A4 51A5 51A2 51CD
+51CC 51C6 51CB 5256 525C 5254 525B 525D 532A 537F
+539F 539D 53DF 54E8 5510 5501 5537 54FC 54E5 54F2
+5506 54FA 5514 54E9 54ED 54E1 5509 54EE 54EA 54E6
+5527 5507 54FD 550F 5703 5704 57C2 57D4 57CB 57C3
+5809 590F 5957 5958 595A 5A11 5A18 5A1C 5A1F 5A1B
+5A13 59EC 5A20 5A23 5A29 5A25 5A0C 5A09 5B6B 5C58
+5BB0 5BB3 5BB6 5BB4 5BAE 5BB5 5BB9 5BB8 5C04 5C51
+5C55 5C50 5CED 5CFD 5CFB 5CEA 5CE8 5CF0 5CF6 5D01
+5CF4 5DEE 5E2D 5E2B 5EAB 5EAD 5EA7 5F31 5F92 5F91
+5F90 6059 6063 6065 6050 6055 606D 6069 606F 6084
+609F 609A 608D 6094 608C 6085 6096 6247 62F3 6308
+62FF 634E 633E 632F 6355 6342 6346 634F 6349 633A
+6350 633D 632A 632B 6328 634D 634C 6548 6549 6599
+65C1 65C5 6642 6649 664F 6643 6652 664C 6645 6641
+66F8 6714 6715 6717 6821 6838 6848 6846 6853 6839
+6842 6854 6829 68B3 6817 684C 6851 683D 67F4 6850
+6840 683C 6843 682A 6845 6813 6818 6841 6B8A 6B89
+6BB7 6C23 6C27 6C28 6C26 6C24 6CF0 6D6A 6D95 6D88
+6D87 6D66 6D78 6D77 6D59 6D93 6D6C 6D89 6D6E 6D5A
+6D74 6D69 6D8C 6D8A 6D79 6D85 6D65 6D94 70CA 70D8
+70E4 70D9 70C8 70CF 7239 7279 72FC 72F9 72FD 72F8
+72F7 7386 73ED 7409 73EE 73E0 73EA 73DE 7554 755D
+755C 755A 7559 75BE 75C5 75C7 75B2 75B3 75BD 75BC
+75B9 75C2 75B8 768B 76B0 76CA 76CD 76CE 7729 771F
+7720 7728 77E9 7830 7827 7838 781D 7834 7837 7825
+782D 7820 781F 7832 7955 7950 7960 795F 7956 795E
+795D 7957 795A 79E4 79E3 79E7 79DF 79E6 79E9 79D8
+7A84 7A88 7AD9 7B06 7B11 7C89 7D21 7D17 7D0B 7D0A
+7D20 7D22 7D14 7D10 7D15 7D1A 7D1C 7D0D 7D19 7D1B
+7F3A 7F5F 7F94 7FC5 7FC1 8006 8018 8015 8019 8017
+803D 803F 80F1 8102 80F0 8105 80ED 80F4 8106 80F8
+80F3 8108 80FD 810A 80FC 80EF 81ED 81EC 8200 8210
+822A 822B 8228 822C 82BB 832B 8352 8354 834A 8338
+8350 8349 8335 8334 834F 8332 8339 8336 8317 8340
+8331 8328 8343 8654 868A 86AA 8693 86A4 86A9 868C
+86A3 869C 8870 8877 8881 8882 887D 8879 8A18 8A10
+8A0E 8A0C 8A15 8A0A 8A17 8A13 8A16 8A0F 8A11 8C48
+8C7A 8C79 8CA1 8CA2 8D77 8EAC 8ED2 8ED4 8ECF 8FB1
+9001 9006 8FF7 9000 8FFA 8FF4 9003 8FFD 9005 8FF8
+9095 90E1 90DD 90E2 9152 914D 914C 91D8 91DD 91D7
+91DC 91D9 9583 9662 9663 9661 965B 965D 9664 9658
+965E 96BB 98E2 99AC 9AA8 9AD8 9B25 9B32 9B3C 4E7E
+507A 507D 505C 5047 5043 504C 505A 5049 5065 5076
+504E 5055 5075 5074 5077 504F 500F 506F 506D 515C
+5195 51F0 526A 526F 52D2 52D9 52D8 52D5 5310 530F
+5319 533F 5340 533E 53C3 66FC 5546 556A 5566 5544
+555E 5561 5543 554A 5531 5556 554F 5555 552F 5564
+5538 552E 555C 552C 5563 5533 5541 5557 5708 570B
+5709 57DF 5805 580A 5806 57E0 57E4 57FA 5802 5835
+57F7 57F9 5920 5962 5A36 5A41 5A49 5A66 5A6A 5A40
+5A3C 5A62 5A5A 5A46 5A4A 5B70 5BC7 5BC5 5BC4 5BC2
+5BBF 5BC6 5C09 5C08 5C07 5C60 5C5C 5C5D 5D07 5D06
+5D0E 5D1B 5D16 5D22 5D11 5D29 5D14 5D19 5D24 5D27
+5D17 5DE2 5E38 5E36 5E33 5E37 5EB7 5EB8 5EB6 5EB5
+5EBE 5F35 5F37 5F57 5F6C 5F69 5F6B 5F97 5F99 5F9E
+5F98 5FA1 5FA0 5F9C 607F 60A3 6089 60A0 60A8 60CB
+60B4 60E6 60BD 60C5 60BB 60B5 60DC 60BC 60D8 60D5
+60C6 60DF 60B8 60DA 60C7 621A 621B 6248 63A0 63A7
+6372 6396 63A2 63A5 6377 6367 6398 63AA 6371 63A9
+6389 6383 639B 636B 63A8 6384 6388 6399 63A1 63AC
+6392 638F 6380 637B 6369 6368 637A 655D 6556 6551
+6559 6557 555F 654F 6558 6555 6554 659C 659B 65AC
+65CF 65CB 65CC 65CE 665D 665A 6664 6668 6666 665E
+66F9 52D7 671B 6881 68AF 68A2 6893 68B5 687F 6876
+68B1 68A7 6897 68B0 6883 68C4 68AD 6886 6885 6894
+689D 68A8 689F 68A1 6882 6B32 6BBA 6BEB 6BEC 6C2B
+6D8E 6DBC 6DF3 6DD9 6DB2 6DE1 6DCC 6DE4 6DFB 6DFA
+6E05 6DC7 6DCB 6DAF 6DD1 6DAE 6DDE 6DF9 6DB8 6DF7
+6DF5 6DC5 6DD2 6E1A 6DB5 6DDA 6DEB 6DD8 6DEA 6DF1
+6DEE 6DE8 6DC6 6DC4 6DAA 6DEC 6DBF 6DE6 70F9 7109
+710A 70FD 70EF 723D 727D 7281 731C 731B 7316 7313
+7319 7387 7405 740A 7403 7406 73FE 740D 74E0 74F6
+74F7 751C 7522 7565 7566 7562 7570 758F 75D4 75D5
+75B5 75CA 75CD 768E 76D4 76D2 76DB 7737 773E 773C
+7736 7738 773A 786B 7843 784E 7965 7968 796D 79FB
+7A92 7A95 7B20 7B28 7B1B 7B2C 7B26 7B19 7B1E 7B2E
+7C92 7C97 7C95 7D46 7D43 7D71 7D2E 7D39 7D3C 7D40
+7D30 7D33 7D44 7D2F 7D42 7D32 7D31 7F3D 7F9E 7F9A
+7FCC 7FCE 7FD2 801C 804A 8046 812F 8116 8123 812B
+8129 8130 8124 8202 8235 8237 8236 8239 838E 839E
+8398 8378 83A2 8396 83BD 83AB 8392 838A 8393 8389
+83A0 8377 837B 837C 8386 83A7 8655 5F6A 86C7 86C0
+86B6 86C4 86B5 86C6 86CB 86B1 86AF 86C9 8853 889E
+8888 88AB 8892 8896 888D 888B 8993 898F 8A2A 8A1D
+8A23 8A25 8A31 8A2D 8A1F 8A1B 8A22 8C49 8C5A 8CA9
+8CAC 8CAB 8CA8 8CAA 8CA7 8D67 8D66 8DBE 8DBA 8EDB
+8EDF 9019 900D 901A 9017 9023 901F 901D 9010 9015
+901E 9020 900F 9022 9016 901B 9014 90E8 90ED 90FD
+9157 91CE 91F5 91E6 91E3 91E7 91ED 91E9 9589 966A
+9675 9673 9678 9670 9674 9676 9677 966C 96C0 96EA
+96E9 7AE0 7ADF 9802 9803 9B5A 9CE5 9E75 9E7F 9EA5
+9EBB 50A2 508D 5085 5099 5091 5080 5096 5098 509A
+6700 51F1 5272 5274 5275 5269 52DE 52DD 52DB 535A
+53A5 557B 5580 55A7 557C 558A 559D 5598 5582 559C
+55AA 5594 5587 558B 5583 55B3 55AE 559F 553E 55B2
+559A 55BB 55AC 55B1 557E 5589 55AB 5599 570D 582F
+582A 5834 5824 5830 5831 5821 581D 5820 58F9 58FA
+5960 5A77 5A9A 5A7F 5A92 5A9B 5AA7 5B73 5B71 5BD2
+5BCC 5BD3 5BD0 5C0A 5C0B 5C31 5D4C 5D50 5D34 5D47
+5DFD 5E45 5E3D 5E40 5E43 5E7E 5ECA 5EC1 5EC2 5EC4
+5F3C 5F6D 5FA9 5FAA 5FA8 60D1 60E1 60B2 60B6 60E0
+611C 6123 60FA 6115 60F0 60FB 60F4 6168 60F1 610E
+60F6 6109 6100 6112 621F 6249 63A3 638C 63CF 63C0
+63E9 63C9 63C6 63CD 63D2 63E3 63D0 63E1 63D6 63ED
+63EE 6376 63F4 63EA 63DB 6452 63DA 63F9 655E 6566
+6562 6563 6591 6590 65AF 666E 6670 6674 6676 666F
+6691 667A 667E 6677 66FE 66FF 671F 671D 68FA 68D5
+68E0 68D8 68D7 6905 68DF 68F5 68EE 68E7 68F9 68D2
+68F2 68E3 68CB 68CD 690D 6912 690E 68C9 68DA 696E
+68FB 6B3E 6B3A 6B3D 6B98 6B96 6BBC 6BEF 6C2E 6C2F
+6C2C 6E2F 6E38 6E54 6E21 6E32 6E67 6E4A 6E20 6E25
+6E23 6E1B 6E5B 6E58 6E24 6E56 6E6E 6E2D 6E26 6E6F
+6E34 6E4D 6E3A 6E2C 6E43 6E1D 6E3E 6ECB 6E89 6E19
+6E4E 6E63 6E44 6E72 6E69 6E5F 7119 711A 7126 7130
+7121 7136 716E 711C 724C 7284 7280 7336 7325 7334
+7329 743A 742A 7433 7422 7425 7435 7436 7434 742F
+741B 7426 7428 7525 7526 756B 756A 75E2 75DB 75E3
+75D9 75D8 75DE 75E0 767B 767C 7696 7693 76B4 76DC
+774F 77ED 785D 786C 786F 7A0D 7A08 7A0B 7A05 7A00
+7A98 7A97 7A96 7AE5 7AE3 7B49 7B56 7B46 7B50 7B52
+7B54 7B4D 7B4B 7B4F 7B51 7C9F 7CA5 7D5E 7D50 7D68
+7D55 7D2B 7D6E 7D72 7D61 7D66 7D62 7D70 7D73 5584
+7FD4 7FD5 800B 8052 8085 8155 8154 814B 8151 814E
+8139 8146 813E 814C 8153 8174 8212 821C 83E9 8403
+83F8 840D 83E0 83C5 840B 83C1 83EF 83F1 83F4 8457
+840A 83F0 840C 83CC 83FD 83F2 83CA 8438 840E 8404
+83DC 8407 83D4 83DF 865B 86DF 86D9 86ED 86D4 86DB
+86E4 86D0 86DE 8857 88C1 88C2 88B1 8983 8996 8A3B
+8A60 8A55 8A5E 8A3C 8A41 8A54 8A5B 8A50 8A46 8A34
+8A3A 8A36 8A56 8C61 8C82 8CAF 8CBC 8CB3 8CBD 8CC1
+8CBB 8CC0 8CB4 8CB7 8CB6 8CBF 8CB8 8D8A 8D85 8D81
+8DCE 8DDD 8DCB 8DDA 8DD1 8DCC 8DDB 8DC6 8EFB 8EF8
+8EFC 8F9C 902E 9035 9031 9038 9032 9036 9102 90F5
+9109 90FE 9163 9165 91CF 9214 9215 9223 9209 921E
+920D 9210 9207 9211 9594 958F 958B 9591 9593 9592
+958E 968A 968E 968B 967D 9685 9686 968D 9672 9684
+96C1 96C5 96C4 96C6 96C7 96EF 96F2 97CC 9805 9806
+9808 98E7 98EA 98EF 98E9 98F2 98ED 99AE 99AD 9EC3
+9ECD 9ED1 4E82 50AD 50B5 50B2 50B3 50C5 50BE 50AC
+50B7 50BB 50AF 50C7 527F 5277 527D 52DF 52E6 52E4
+52E2 52E3 532F 55DF 55E8 55D3 55E6 55CE 55DC 55C7
+55D1 55E3 55E4 55EF 55DA 55E1 55C5 55C6 55E5 55C9
+5712 5713 585E 5851 5858 5857 585A 5854 586B 584C
+586D 584A 5862 5852 584B 5967 5AC1 5AC9 5ACC 5ABE
+5ABD 5ABC 5AB3 5AC2 5AB2 5D69 5D6F 5E4C 5E79 5EC9
+5EC8 5F12 5F59 5FAC 5FAE 611A 610F 6148 611F 60F3
+611B 60F9 6101 6108 614E 614C 6144 614D 613E 6134
+6127 610D 6106 6137 6221 6222 6413 643E 641E 642A
+642D 643D 642C 640F 641C 6414 640D 6436 6416 6417
+6406 656C 659F 65B0 6697 6689 6687 6688 6696 6684
+6698 668D 6703 6994 696D 695A 6977 6960 6954 6975
+6930 6982 694A 6968 696B 695E 6953 6979 6986 695D
+6963 695B 6B47 6B72 6BC0 6BBF 6BD3 6BFD 6EA2 6EAF
+6ED3 6EB6 6EC2 6E90 6E9D 6EC7 6EC5 6EA5 6E98 6EBC
+6EBA 6EAB 6ED1 6E96 6E9C 6EC4 6ED4 6EAA 6EA7 6EB4
+714E 7159 7169 7164 7149 7167 715C 716C 7166 714C
+7165 715E 7146 7168 7156 723A 7252 7337 7345 733F
+733E 746F 745A 7455 745F 745E 7441 743F 7459 745B
+745C 7576 7578 7600 75F0 7601 75F2 75F1 75FA 75FF
+75F4 75F3 76DE 76DF 775B 776B 7766 775E 7763 7779
+776A 776C 775C 7765 7768 7762 77EE 788E 78B0 7897
+7898 788C 7889 787C 7891 7893 787F 797A 797F 7981
+842C 79BD 7A1C 7A1A 7A20 7A14 7A1F 7A1E 7A9F 7AA0
+7B77 7BC0 7B60 7B6E 7B67 7CB1 7CB3 7CB5 7D93 7D79
+7D91 7D81 7D8F 7D5B 7F6E 7F69 7F6A 7F72 7FA9 7FA8
+7FA4 8056 8058 8086 8084 8171 8170 8178 8165 816E
+8173 816B 8179 817A 8166 8205 8247 8482 8477 843D
+8431 8475 8466 846B 8449 846C 845B 843C 8435 8461
+8463 8469 846D 8446 865E 865C 865F 86F9 8713 8708
+8707 8700 86FE 86FB 8702 8703 8706 870A 8859 88DF
+88D4 88D9 88DC 88D8 88DD 88E1 88CA 88D5 88D2 899C
+89E3 8A6B 8A72 8A73 8A66 8A69 8A70 8A87 8A7C 8A63
+8AA0 8A71 8A85 8A6D 8A62 8A6E 8A6C 8A79 8A7B 8A3E
+8A68 8C62 8C8A 8C89 8CCA 8CC7 8CC8 8CC4 8CB2 8CC3
+8CC2 8CC5 8DE1 8DDF 8DE8 8DEF 8DF3 8DFA 8DEA 8DE4
+8DE6 8EB2 8F03 8F09 8EFE 8F0A 8F9F 8FB2 904B 904A
+9053 9042 9054 903C 9055 9050 9047 904F 904E 904D
+9051 903E 9041 9112 9117 916C 916A 9169 91C9 9237
+9257 9238 923D 9240 923E 925B 924B 9264 9251 9234
+9249 924D 9245 9239 923F 925A 9598 9698 9694 9695
+96CD 96CB 96C9 96CA 96F7 96FB 96F9 96F6 9756 9774
+9776 9810 9811 9813 980A 9812 980C 98FC 98F4 98FD
+98FE 99B3 99B1 99B4 9AE1 9CE9 9E82 9F0E 9F13 9F20
+50E7 50EE 50E5 50D6 50ED 50DA 50D5 50CF 50D1 50F1
+50CE 50E9 5162 51F3 5283 5282 5331 53AD 55FE 5600
+561B 5617 55FD 5614 5606 5609 560D 560E 55F7 5616
+561F 5608 5610 55F6 5718 5716 5875 587E 5883 5893
+588A 5879 5885 587D 58FD 5925 5922 5924 596A 5969
+5AE1 5AE6 5AE9 5AD7 5AD6 5AD8 5AE3 5B75 5BDE 5BE7
+5BE1 5BE5 5BE6 5BE8 5BE2 5BE4 5BDF 5C0D 5C62 5D84
+5D87 5E5B 5E63 5E55 5E57 5E54 5ED3 5ED6 5F0A 5F46
+5F70 5FB9 6147 613F 614B 6177 6162 6163 615F 615A
+6158 6175 622A 6487 6458 6454 64A4 6478 645F 647A
+6451 6467 6434 646D 647B 6572 65A1 65D7 65D6 66A2
+66A8 669D 699C 69A8 6995 69C1 69AE 69D3 69CB 699B
+69B7 69BB 69AB 69B4 69D0 69CD 69AD 69CC 69A6 69C3
+69A3 6B49 6B4C 6C33 6F33 6F14 6EFE 6F13 6EF4 6F29
+6F3E 6F20 6F2C 6F0F 6F02 6F22 6EFF 6EEF 6F06 6F31
+6F38 6F32 6F23 6F15 6F2B 6F2F 6F88 6F2A 6EEC 6F01
+6EF2 6ECC 6EF7 7194 7199 717D 718A 7184 7192 723E
+7292 7296 7344 7350 7464 7463 746A 7470 746D 7504
+7591 7627 760D 760B 7609 7613 76E1 76E3 7784 777D
+777F 7761 78C1 789F 78A7 78B3 78A9 78A3 798E 798F
+798D 7A2E 7A31 7AAA 7AA9 7AED 7AEF 7BA1 7B95 7B8B
+7B75 7B97 7B9D 7B94 7B8F 7BB8 7B87 7B84 7CB9 7CBD
+7CBE 7DBB 7DB0 7D9C 7DBD 7DBE 7DA0 7DCA 7DB4 7DB2
+7DB1 7DBA 7DA2 7DBF 7DB5 7DB8 7DAD 7DD2 7DC7 7DAC
+7F70 7FE0 7FE1 7FDF 805E 805A 8087 8150 8180 818F
+8188 818A 817F 8182 81E7 81FA 8207 8214 821E 824B
+84C9 84BF 84C6 84C4 8499 849E 84B2 849C 84CB 84B8
+84C0 84D3 8490 84BC 84D1 84CA 873F 871C 873B 8722
+8725 8734 8718 8755 8737 8729 88F3 8902 88F4 88F9
+88F8 88FD 88E8 891A 88EF 8AA6 8A8C 8A9E 8AA3 8A8D
+8AA1 8A93 8AA4 8AAA 8AA5 8AA8 8A98 8A91 8A9A 8AA7
+8C6A 8C8D 8C8C 8CD3 8CD1 8CD2 8D6B 8D99 8D95 8DFC
+8F14 8F12 8F15 8F13 8FA3 9060 9058 905C 9063 9059
+905E 9062 905D 905B 9119 9118 911E 9175 9178 9177
+9174 9278 9280 9285 9298 9296 927B 9293 929C 92A8
+927C 9291 95A1 95A8 95A9 95A3 95A5 95A4 9699 969C
+969B 96CC 96D2 9700 977C 9785 97F6 9817 9818 98AF
+98B1 9903 9905 990C 9909 99C1 9AAF 9AB0 9AE6 9B41
+9B42 9CF4 9CF6 9CF3 9EBC 9F3B 9F4A 5104 5100 50FB
+50F5 50F9 5102 5108 5109 5105 51DC 5287 5288 5289
+528D 528A 52F0 53B2 562E 563B 5639 5632 563F 5634
+5629 5653 564E 5657 5674 5636 562F 5630 5880 589F
+589E 58B3 589C 58AE 58A9 58A6 596D 5B09 5AFB 5B0B
+5AF5 5B0C 5B08 5BEE 5BEC 5BE9 5BEB 5C64 5C65 5D9D
+5D94 5E62 5E5F 5E61 5EE2 5EDA 5EDF 5EDD 5EE3 5EE0
+5F48 5F71 5FB7 5FB5 6176 6167 616E 615D 6155 6182
+617C 6170 616B 617E 61A7 6190 61AB 618E 61AC 619A
+61A4 6194 61AE 622E 6469 646F 6479 649E 64B2 6488
+6490 64B0 64A5 6493 6495 64A9 6492 64AE 64AD 64AB
+649A 64AC 6499 64A2 64B3 6575 6577 6578 66AE 66AB
+66B4 66B1 6A23 6A1F 69E8 6A01 6A1E 6A19 69FD 6A21
+6A13 6A0A 69F3 6A02 6A05 69ED 6A11 6B50 6B4E 6BA4
+6BC5 6BC6 6F3F 6F7C 6F84 6F51 6F66 6F54 6F86 6F6D
+6F5B 6F78 6F6E 6F8E 6F7A 6F70 6F64 6F97 6F58 6ED5
+6F6F 6F60 6F5F 719F 71AC 71B1 71A8 7256 729B 734E
+7357 7469 748B 7483 747E 7480 757F 7620 7629 761F
+7624 7626 7621 7622 769A 76BA 76E4 778E 7787 778C
+7791 778B 78CB 78C5 78BA 78CA 78BE 78D5 78BC 78D0
+7A3F 7A3C 7A40 7A3D 7A37 7A3B 7AAF 7AAE 7BAD 7BB1
+7BC4 7BB4 7BC6 7BC7 7BC1 7BA0 7BCC 7CCA 7DE0 7DF4
+7DEF 7DFB 7DD8 7DEC 7DDD 7DE8 7DE3 7DDA 7DDE 7DE9
+7D9E 7DD9 7DF2 7DF9 7F75 7F77 7FAF 7FE9 8026 819B
+819C 819D 81A0 819A 8198 8517 853D 851A 84EE 852C
+852D 8513 8511 8523 8521 8514 84EC 8525 84FF 8506
+8782 8774 8776 8760 8766 8778 8768 8759 8757 874C
+8753 885B 885D 8910 8907 8912 8913 8915 890A 8ABC
+8AD2 8AC7 8AC4 8A95 8ACB 8AF8 8AB2 8AC9 8AC2 8ABF
+8AB0 8AD6 8ACD 8AB6 8AB9 8ADB 8C4C 8C4E 8C6C 8CE0
+8CDE 8CE6 8CE4 8CEC 8CED 8CE2 8CE3 8CDC 8CEA 8CE1
+8D6D 8D9F 8DA3 8E2B 8E10 8E1D 8E22 8E0F 8E29 8E1F
+8E21 8E1E 8EBA 8F1D 8F1B 8F1F 8F29 8F26 8F2A 8F1C
+8F1E 8F25 9069 906E 9068 906D 9077 9130 912D 9127
+9131 9187 9189 918B 9183 92C5 92BB 92B7 92EA 92AC
+92E4 92C1 92B3 92BC 92D2 92C7 92F0 92B2 95AD 95B1
+9704 9706 9707 9709 9760 978D 978B 978F 9821 982B
+981C 98B3 990A 9913 9912 9918 99DD 99D0 99DF 99DB
+99D1 99D5 99D2 99D9 9AB7 9AEE 9AEF 9B27 9B45 9B44
+9B77 9B6F 9D06 9D09 9D03 9EA9 9EBE 9ECE 58A8 9F52
+5112 5118 5114 5110 5115 5180 51AA 51DD 5291 5293
+52F3 5659 566B 5679 5669 5664 5678 566A 5668 5665
+5671 566F 566C 5662 5676 58C1 58BE 58C7 58C5 596E
+5B1D 5B34 5B78 5BF0 5C0E 5F4A 61B2 6191 61A9 618A
+61CD 61B6 61BE 61CA 61C8 6230 64C5 64C1 64CB 64BB
+64BC 64DA 64C4 64C7 64C2 64CD 64BF 64D2 64D4 64BE
+6574 66C6 66C9 66B9 66C4 66C7 66B8 6A3D 6A38 6A3A
+6A59 6A6B 6A58 6A39 6A44 6A62 6A61 6A4B 6A47 6A35
+6A5F 6A48 6B59 6B77 6C05 6FC2 6FB1 6FA1 6FC3 6FA4
+6FC1 6FA7 6FB3 6FC0 6FB9 6FB6 6FA6 6FA0 6FB4 71BE
+71C9 71D0 71D2 71C8 71D5 71B9 71CE 71D9 71DC 71C3
+71C4 7368 749C 74A3 7498 749F 749E 74E2 750C 750D
+7634 7638 763A 76E7 76E5 77A0 779E 779F 77A5 78E8
+78DA 78EC 78E7 79A6 7A4D 7A4E 7A46 7A4C 7A4B 7ABA
+7BD9 7C11 7BC9 7BE4 7BDB 7BE1 7BE9 7BE6 7CD5 7CD6
+7E0A 7E11 7E08 7E1B 7E23 7E1E 7E1D 7E09 7E10 7F79
+7FB2 7FF0 7FF1 7FEE 8028 81B3 81A9 81A8 81FB 8208
+8258 8259 854A 8559 8548 8568 8569 8543 8549 856D
+856A 855E 8783 879F 879E 87A2 878D 8861 892A 8932
+8925 892B 8921 89AA 89A6 8AE6 8AFA 8AEB 8AF1 8B00
+8ADC 8AE7 8AEE 8AFE 8B01 8B02 8AF7 8AED 8AF3 8AF6
+8AFC 8C6B 8C6D 8C93 8CF4 8E44 8E31 8E34 8E42 8E39
+8E35 8F3B 8F2F 8F38 8F33 8FA8 8FA6 9075 9074 9078
+9072 907C 907A 9134 9192 9320 9336 92F8 9333 932F
+9322 92FC 932B 9304 931A 9310 9326 9321 9315 932E
+9319 95BB 96A7 96A8 96AA 96D5 970E 9711 9716 970D
+9713 970F 975B 975C 9766 9798 9830 9838 983B 9837
+982D 9839 9824 9910 9928 991E 991B 9921 991A 99ED
+99E2 99F1 9AB8 9ABC 9AFB 9AED 9B28 9B91 9D15 9D23
+9D26 9D28 9D12 9D1B 9ED8 9ED4 9F8D 9F9C 512A 511F
+5121 5132 52F5 568E 5680 5690 5685 5687 568F 58D5
+58D3 58D1 58CE 5B30 5B2A 5B24 5B7A 5C37 5C68 5DBC
+5DBA 5DBD 5DB8 5E6B 5F4C 5FBD 61C9 61C2 61C7 61E6
+61CB 6232 6234 64CE 64CA 64D8 64E0 64F0 64E6 64EC
+64F1 64E2 64ED 6582 6583 66D9 66D6 6A80 6A94 6A84
+6AA2 6A9C 6ADB 6AA3 6A7E 6A97 6A90 6AA0 6B5C 6BAE
+6BDA 6C08 6FD8 6FF1 6FDF 6FE0 6FDB 6FE4 6FEB 6FEF
+6F80 6FEC 6FE1 6FE9 6FD5 6FEE 6FF0 71E7 71DF 71EE
+71E6 71E5 71ED 71EC 71F4 71E0 7235 7246 7370 7372
+74A9 74B0 74A6 74A8 7646 7642 764C 76EA 77B3 77AA
+77B0 77AC 77A7 77AD 77EF 78F7 78FA 78F4 78EF 7901
+79A7 79AA 7A57 7ABF 7C07 7C0D 7BFE 7BF7 7C0C 7BE0
+7CE0 7CDC 7CDE 7CE2 7CDF 7CD9 7CDD 7E2E 7E3E 7E46
+7E37 7E32 7E43 7E2B 7E3D 7E31 7E45 7E41 7E34 7E39
+7E48 7E35 7E3F 7E2F 7F44 7FF3 7FFC 8071 8072 8070
+806F 8073 81C6 81C3 81BA 81C2 81C0 81BF 81BD 81C9
+81BE 81E8 8209 8271 85AA 8584 857E 859C 8591 8594
+85AF 859B 8587 85A8 858A 8667 87C0 87D1 87B3 87D2
+87C6 87AB 87BB 87BA 87C8 87CB 893B 8936 8944 8938
+893D 89AC 8B0E 8B17 8B19 8B1B 8B0A 8B20 8B1D 8B04
+8B10 8C41 8C3F 8C73 8CFA 8CFD 8CFC 8CF8 8CFB 8DA8
+8E49 8E4B 8E48 8E4A 8F44 8F3E 8F42 8F45 8F3F 907F
+907D 9084 9081 9082 9080 9139 91A3 919E 919C 934D
+9382 9328 9375 934A 9365 934B 9318 937E 936C 935B
+9370 935A 9354 95CA 95CB 95CC 95C8 95C6 96B1 96B8
+96D6 971C 971E 97A0 97D3 9846 98B6 9935 9A01 99FF
+9BAE 9BAB 9BAA 9BAD 9D3B 9D3F 9E8B 9ECF 9EDE 9EDC
+9EDD 9EDB 9F3E 9F4B 53E2 5695 56AE 58D9 58D8 5B38
+5F5D 61E3 6233 64F4 64F2 64FE 6506 64FA 64FB 64F7
+65B7 66DC 6726 6AB3 6AAC 6AC3 6ABB 6AB8 6AC2 6AAE
+6AAF 6B5F 6B78 6BAF 7009 700B 6FFE 7006 6FFA 7011
+700F 71FB 71FC 71FE 71F8 7377 7375 74A7 74BF 7515
+7656 7658 7652 77BD 77BF 77BB 77BC 790E 79AE 7A61
+7A62 7A60 7AC4 7AC5 7C2B 7C27 7C2A 7C1E 7C23 7C21
+7CE7 7E54 7E55 7E5E 7E5A 7E61 7E52 7E59 7F48 7FF9
+7FFB 8077 8076 81CD 81CF 820A 85CF 85A9 85CD 85D0
+85C9 85B0 85BA 85B9 85A6 87EF 87EC 87F2 87E0 8986
+89B2 89F4 8B28 8B39 8B2C 8B2B 8C50 8D05 8E59 8E63
+8E66 8E64 8E5F 8E55 8EC0 8F49 8F4D 9087 9083 9088
+91AB 91AC 91D0 9394 938A 9396 93A2 93B3 93AE 93AC
+93B0 9398 939A 9397 95D4 95D6 95D0 95D5 96E2 96DC
+96D9 96DB 96DE 9724 97A3 97A6 97AD 97F9 984D 984F
+984C 984E 9853 98BA 993E 993F 993D 992E 99A5 9A0E
+9AC1 9B03 9B06 9B4F 9B4E 9B4D 9BCA 9BC9 9BFD 9BC8
+9BC0 9D51 9D5D 9D60 9EE0 9F15 9F2C 5133 56A5 58DE
+58DF 58E2 5BF5 9F90 5EEC 61F2 61F7 61F6 61F5 6500
+650F 66E0 66DD 6AE5 6ADD 6ADA 6AD3 701B 701F 7028
+701A 701D 7015 7018 7206 720D 7258 72A2 7378 737A
+74BD 74CA 74E3 7587 7586 765F 7661 77C7 7919 79B1
+7A6B 7A69 7C3E 7C3F 7C38 7C3D 7C37 7C40 7E6B 7E6D
+7E79 7E69 7E6A 7F85 7E73 7FB6 7FB9 7FB8 81D8 85E9
+85DD 85EA 85D5 85E4 85E5 85F7 87FB 8805 880D 87F9
+87FE 8960 895F 8956 895E 8B41 8B5C 8B58 8B49 8B5A
+8B4E 8B4F 8B46 8B59 8D08 8D0A 8E7C 8E72 8E87 8E76
+8E6C 8E7A 8E74 8F54 8F4E 8FAD 908A 908B 91B1 91AE
+93E1 93D1 93DF 93C3 93C8 93DC 93DD 93D6 93E2 93CD
+93D8 93E4 93D7 93E8 95DC 96B4 96E3 972A 9727 9761
+97DC 97FB 985E 9858 985B 98BC 9945 9949 9A16 9A19
+9B0D 9BE8 9BE7 9BD6 9BDB 9D89 9D61 9D72 9D6A 9D6C
+9E92 9E97 9E93 9EB4 52F8 56A8 56B7 56B6 56B4 56BC
+58E4 5B40 5B43 5B7D 5BF6 5DC9 61F8 61FA 6518 6514
+6519 66E6 6727 6AEC 703E 7030 7032 7210 737B 74CF
+7662 7665 7926 792A 792C 792B 7AC7 7AF6 7C4C 7C43
+7C4D 7CEF 7CF0 8FAE 7E7D 7E7C 7E82 7F4C 8000 81DA
+8266 85FB 85F9 8611 85FA 8606 860B 8607 860A 8814
+8815 8964 89BA 89F8 8B70 8B6C 8B66 8B6F 8B5F 8B6B
+8D0F 8D0D 8E89 8E81 8E85 8E82 91B4 91CB 9418 9403
+93FD 95E1 9730 98C4 9952 9951 99A8 9A2B 9A30 9A37
+9A35 9C13 9C0D 9E79 9EB5 9EE8 9F2F 9F5F 9F63 9F61
+5137 5138 56C1 56C0 56C2 5914 5C6C 5DCD 61FC 61FE
+651D 651C 6595 66E9 6AFB 6B04 6AFA 6BB2 704C 721B
+72A7 74D6 74D4 7669 77D3 7C50 7E8F 7E8C 7FBC 8617
+862D 861A 8823 8822 8821 881F 896A 896C 89BD 8B74
+8B77 8B7D 8D13 8E8A 8E8D 8E8B 8F5F 8FAF 91BA 942E
+9433 9435 943A 9438 9432 942B 95E2 9738 9739 9732
+97FF 9867 9865 9957 9A45 9A43 9A40 9A3E 9ACF 9B54
+9B51 9C2D 9C25 9DAF 9DB4 9DC2 9DB8 9E9D 9EEF 9F19
+9F5C 9F66 9F67 513C 513B 56C8 56CA 56C9 5B7F 5DD4
+5DD2 5F4E 61FF 6524 6B0A 6B61 7051 7058 7380 74E4
+758A 766E 766C 79B3 7C60 7C5F 807E 807D 81DF 8972
+896F 89FC 8B80 8D16 8D17 8E91 8E93 8F61 9148 9444
+9451 9452 973D 973E 97C3 97C1 986B 9955 9A55 9A4D
+9AD2 9B1A 9C49 9C31 9C3E 9C3B 9DD3 9DD7 9F34 9F6C
+9F6A 9F94 56CC 5DD6 6200 6523 652B 652A 66EC 6B10
+74DA 7ACA 7C64 7C63 7C65 7E93 7E96 7E94 81E2 8638
+863F 8831 8B8A 9090 908F 9463 9460 9464 9768 986F
+995C 9A5A 9A5B 9A57 9AD3 9AD4 9AD1 9C54 9C57 9C56
+9DE5 9E9F 9EF4 56D1 58E9 652C 705E 7671 7672 77D7
+7F50 7F88 8836 8839 8862 8B93 8B92 8B96 8277 8D1B
+91C0 946A 9742 9748 9744 97C6 9870 9A5F 9B22 9B58
+9C5F 9DF9 9DFA 9E7C 9E7D 9F07 9F77 9F72 5EF3 6B16
+7063 7C6C 7C6E 883B 89C0 8EA1 91C1 9472 9470 9871
+995E 9AD6 9B23 9ECC 7064 77DA 8B9A 9477 97C9 9A62
+9A65 7E9C 8B9C 8EAA 91C5 947D 947E 947C 9C77 9C78
+9EF7 8C54 947F 9E1A 7228 9A6A 9B31 9E1B 9E1E 7C72
+4E42 4E5C 51F5 531A 5382 4E07 4E0C 4E47 4E8D 56D7
+5C6E 5F73 4E0F 5187 4E0E 4E2E 4E93 4EC2 4EC9 4EC8
+5198 52FC 536C 53B9 5720 5903 592C 5C10 5DFF 65E1
+6BB3 6BCC 6C14 723F 4E31 4E3C 4EE8 4EDC 4EE9 4EE1
+4EDD 4EDA 520C 531C 534C 5722 5723 5917 592F 5B81
+5B84 5C12 5C3B 5C74 5C73 5E04 5E80 5E82 5FC9 6209
+6250 6C15 6C36 6C43 6C3F 6C3B 72AE 72B0 738A 79B8
+808A 961E 4F0E 4F18 4F2C 4EF5 4F14 4EF1 4F00 4EF7
+4F08 4F1D 4F02 4F05 4F22 4F13 4F04 4EF4 4F12 51B1
+5213 5209 5210 52A6 5322 531F 534D 538A 5407 56E1
+56DF 572E 572A 5734 593C 5980 597C 5985 597B 597E
+5977 597F 5B56 5C15 5C25 5C7C 5C7A 5C7B 5C7E 5DDF
+5E75 5E84 5F02 5F1A 5F74 5FD5 5FD4 5FCF 625C 625E
+6264 6261 6266 6262 6259 6260 625A 6265 65EF 65EE
+673E 6739 6738 673B 673A 673F 673C 6733 6C18 6C46
+6C52 6C5C 6C4F 6C4A 6C54 6C4B 6C4C 7071 725E 72B4
+72B5 738E 752A 767F 7A75 7F51 8278 827C 8280 827D
+827F 864D 897E 9099 9097 9098 909B 9094 9622 9624
+9620 9623 4F56 4F3B 4F62 4F49 4F53 4F64 4F3E 4F67
+4F52 4F5F 4F41 4F58 4F2D 4F33 4F3F 4F61 518F 51B9
+521C 521E 5221 52AD 52AE 5309 5363 5372 538E 538F
+5430 5437 542A 5454 5445 5419 541C 5425 5418 543D
+544F 5441 5428 5424 5447 56EE 56E7 56E5 5741 5745
+574C 5749 574B 5752 5906 5940 59A6 5998 59A0 5997
+598E 59A2 5990 598F 59A7 59A1 5B8E 5B92 5C28 5C2A
+5C8D 5C8F 5C88 5C8B 5C89 5C92 5C8A 5C86 5C93 5C95
+5DE0 5E0A 5E0E 5E8B 5E89 5E8C 5E88 5E8D 5F05 5F1D
+5F78 5F76 5FD2 5FD1 5FD0 5FED 5FE8 5FEE 5FF3 5FE1
+5FE4 5FE3 5FFA 5FEF 5FF7 5FFB 6000 5FF4 623A 6283
+628C 628E 628F 6294 6287 6271 627B 627A 6270 6281
+6288 6277 627D 6272 6274 6537 65F0 65F4 65F3 65F2
+65F5 6745 6747 6759 6755 674C 6748 675D 674D 675A
+674B 6BD0 6C19 6C1A 6C78 6C67 6C6B 6C84 6C8B 6C8F
+6C71 6C6F 6C69 6C9A 6C6D 6C87 6C95 6C9C 6C66 6C73
+6C65 6C7B 6C8E 7074 707A 7263 72BF 72BD 72C3 72C6
+72C1 72BA 72C5 7395 7397 7393 7394 7392 753A 7539
+7594 7595 7681 793D 8034 8095 8099 8090 8092 809C
+8290 828F 8285 828E 8291 8293 828A 8283 8284 8C78
+8FC9 8FBF 909F 90A1 90A5 909E 90A7 90A0 9630 9628
+962F 962D 4E33 4F98 4F7C 4F85 4F7D 4F80 4F87 4F76
+4F74 4F89 4F84 4F77 4F4C 4F97 4F6A 4F9A 4F79 4F81
+4F78 4F90 4F9C 4F94 4F9E 4F92 4F82 4F95 4F6B 4F6E
+519E 51BC 51BE 5235 5232 5233 5246 5231 52BC 530A
+530B 533C 5392 5394 5487 547F 5481 5491 5482 5488
+546B 547A 547E 5465 546C 5474 5466 548D 546F 5461
+5460 5498 5463 5467 5464 56F7 56F9 576F 5772 576D
+576B 5771 5770 5776 5780 5775 577B 5773 5774 5762
+5768 577D 590C 5945 59B5 59BA 59CF 59CE 59B2 59CC
+59C1 59B6 59BC 59C3 59D6 59B1 59BD 59C0 59C8 59B4
+59C7 5B62 5B65 5B93 5B95 5C44 5C47 5CAE 5CA4 5CA0
+5CB5 5CAF 5CA8 5CAC 5C9F 5CA3 5CAD 5CA2 5CAA 5CA7
+5C9D 5CA5 5CB6 5CB0 5CA6 5E17 5E14 5E19 5F28 5F22
+5F23 5F24 5F54 5F82 5F7E 5F7D 5FDE 5FE5 602D 6026
+6019 6032 600B 6034 600A 6017 6033 601A 601E 602C
+6022 600D 6010 602E 6013 6011 600C 6009 601C 6214
+623D 62AD 62B4 62D1 62BE 62AA 62B6 62CA 62AE 62B3
+62AF 62BB 62A9 62B0 62B8 653D 65A8 65BB 6609 65FC
+6604 6612 6608 65FB 6603 660B 660D 6605 65FD 6611
+6610 66F6 670A 6785 676C 678E 6792 6776 677B 6798
+6786 6784 6774 678D 678C 677A 679F 6791 6799 6783
+677D 6781 6778 6779 6794 6B25 6B80 6B7E 6BDE 6C1D
+6C93 6CEC 6CEB 6CEE 6CD9 6CB6 6CD4 6CAD 6CE7 6CB7
+6CD0 6CC2 6CBA 6CC3 6CC6 6CED 6CF2 6CD2 6CDD 6CB4
+6C8A 6C9D 6C80 6CDE 6CC0 6D30 6CCD 6CC7 6CB0 6CF9
+6CCF 6CE9 6CD1 7094 7098 7085 7093 7086 7084 7091
+7096 7082 709A 7083 726A 72D6 72CB 72D8 72C9 72DC
+72D2 72D4 72DA 72CC 72D1 73A4 73A1 73AD 73A6 73A2
+73A0 73AC 739D 74DD 74E8 753F 7540 753E 758C 7598
+76AF 76F3 76F1 76F0 76F5 77F8 77FC 77F9 77FB 77FA
+77F7 7942 793F 79C5 7A78 7A7B 7AFB 7C75 7CFD 8035
+808F 80AE 80A3 80B8 80B5 80AD 8220 82A0 82C0 82AB
+829A 8298 829B 82B5 82A7 82AE 82BC 829E 82BA 82B4
+82A8 82A1 82A9 82C2 82A4 82C3 82B6 82A2 8670 866F
+866D 866E 8C56 8FD2 8FCB 8FD3 8FCD 8FD6 8FD5 8FD7
+90B2 90B4 90AF 90B3 90B0 9639 963D 963C 963A 9643
+4FCD 4FC5 4FD3 4FB2 4FC9 4FCB 4FC1 4FD4 4FDC 4FD9
+4FBB 4FB3 4FDB 4FC7 4FD6 4FBA 4FC0 4FB9 4FEC 5244
+5249 52C0 52C2 533D 537C 5397 5396 5399 5398 54BA
+54A1 54AD 54A5 54CF 54C3 830D 54B7 54AE 54D6 54B6
+54C5 54C6 54A0 5470 54BC 54A2 54BE 5472 54DE 54B0
+57B5 579E 579F 57A4 578C 5797 579D 579B 5794 5798
+578F 5799 57A5 579A 5795 58F4 590D 5953 59E1 59DE
+59EE 5A00 59F1 59DD 59FA 59FD 59FC 59F6 59E4 59F2
+59F7 59DB 59E9 59F3 59F5 59E0 59FE 59F4 59ED 5BA8
+5C4C 5CD0 5CD8 5CCC 5CD7 5CCB 5CDB 5CDE 5CDA 5CC9
+5CC7 5CCA 5CD6 5CD3 5CD4 5CCF 5CC8 5CC6 5CCE 5CDF
+5CF8 5DF9 5E21 5E22 5E23 5E20 5E24 5EB0 5EA4 5EA2
+5E9B 5EA3 5EA5 5F07 5F2E 5F56 5F86 6037 6039 6054
+6072 605E 6045 6053 6047 6049 605B 604C 6040 6042
+605F 6024 6044 6058 6066 606E 6242 6243 62CF 630D
+630B 62F5 630E 6303 62EB 62F9 630F 630C 62F8 62F6
+6300 6313 6314 62FA 6315 62FB 62F0 6541 6543 65AA
+65BF 6636 6621 6632 6635 661C 6626 6622 6633 662B
+663A 661D 6634 6639 662E 670F 6710 67C1 67F2 67C8
+67BA 67DC 67BB 67F8 67D8 67C0 67B7 67C5 67EB 67E4
+67DF 67B5 67CD 67B3 67F7 67F6 67EE 67E3 67C2 67B9
+67CE 67E7 67F0 67B2 67FC 67C6 67ED 67CC 67AE 67E6
+67DB 67FA 67C9 67CA 67C3 67EA 67CB 6B28 6B82 6B84
+6BB6 6BD6 6BD8 6BE0 6C20 6C21 6D28 6D34 6D2D 6D1F
+6D3C 6D3F 6D12 6D0A 6CDA 6D33 6D04 6D19 6D3A 6D1A
+6D11 6D00 6D1D 6D42 6D01 6D18 6D37 6D03 6D0F 6D40
+6D07 6D20 6D2C 6D08 6D22 6D09 6D10 70B7 709F 70BE
+70B1 70B0 70A1 70B4 70B5 70A9 7241 7249 724A 726C
+7270 7273 726E 72CA 72E4 72E8 72EB 72DF 72EA 72E6
+72E3 7385 73CC 73C2 73C8 73C5 73B9 73B6 73B5 73B4
+73EB 73BF 73C7 73BE 73C3 73C6 73B8 73CB 74EC 74EE
+752E 7547 7548 75A7 75AA 7679 76C4 7708 7703 7704
+7705 770A 76F7 76FB 76FA 77E7 77E8 7806 7811 7812
+7805 7810 780F 780E 7809 7803 7813 794A 794C 794B
+7945 7944 79D5 79CD 79CF 79D6 79CE 7A80 7A7E 7AD1
+7B00 7B01 7C7A 7C78 7C79 7C7F 7C80 7C81 7D03 7D08
+7D01 7F58 7F91 7F8D 7FBE 8007 800E 800F 8014 8037
+80D8 80C7 80E0 80D1 80C8 80C2 80D0 80C5 80E3 80D9
+80DC 80CA 80D5 80C9 80CF 80D7 80E6 80CD 81FF 8221
+8294 82D9 82FE 82F9 8307 82E8 8300 82D5 833A 82EB
+82D6 82F4 82EC 82E1 82F2 82F5 830C 82FB 82F6 82F0
+82EA 82E4 82E0 82FA 82F3 82ED 8677 8674 867C 8673
+8841 884E 8867 886A 8869 89D3 8A04 8A07 8D72 8FE3
+8FE1 8FEE 8FE0 90F1 90BD 90BF 90D5 90C5 90BE 90C7
+90CB 90C8 91D4 91D3 9654 964F 9651 9653 964A 964E
+501E 5005 5007 5013 5022 5030 501B 4FF5 4FF4 5033
+5037 502C 4FF6 4FF7 5017 501C 5020 5027 5035 502F
+5031 500E 515A 5194 5193 51CA 51C4 51C5 51C8 51CE
+5261 525A 5252 525E 525F 5255 5262 52CD 530E 539E
+5526 54E2 5517 5512 54E7 54F3 54E4 551A 54FF 5504
+5508 54EB 5511 5505 54F1 550A 54FB 54F7 54F8 54E0
+550E 5503 550B 5701 5702 57CC 5832 57D5 57D2 57BA
+57C6 57BD 57BC 57B8 57B6 57BF 57C7 57D0 57B9 57C1
+590E 594A 5A19 5A16 5A2D 5A2E 5A15 5A0F 5A17 5A0A
+5A1E 5A33 5B6C 5BA7 5BAD 5BAC 5C03 5C56 5C54 5CEC
+5CFF 5CEE 5CF1 5CF7 5D00 5CF9 5E29 5E28 5EA8 5EAE
+5EAA 5EAC 5F33 5F30 5F67 605D 605A 6067 6041 60A2
+6088 6080 6092 6081 609D 6083 6095 609B 6097 6087
+609C 608E 6219 6246 62F2 6310 6356 632C 6344 6345
+6336 6343 63E4 6339 634B 634A 633C 6329 6341 6334
+6358 6354 6359 632D 6347 6333 635A 6351 6338 6357
+6340 6348 654A 6546 65C6 65C3 65C4 65C2 664A 665F
+6647 6651 6712 6713 681F 681A 6849 6832 6833 683B
+684B 684F 6816 6831 681C 6835 682B 682D 682F 684E
+6844 6834 681D 6812 6814 6826 6828 682E 684D 683A
+6825 6820 6B2C 6B2F 6B2D 6B31 6B34 6B6D 8082 6B88
+6BE6 6BE4 6BE8 6BE3 6BE2 6BE7 6C25 6D7A 6D63 6D64
+6D76 6D0D 6D61 6D92 6D58 6D62 6D6D 6D6F 6D91 6D8D
+6DEF 6D7F 6D86 6D5E 6D67 6D60 6D97 6D70 6D7C 6D5F
+6D82 6D98 6D2F 6D68 6D8B 6D7E 6D80 6D84 6D16 6D83
+6D7B 6D7D 6D75 6D90 70DC 70D3 70D1 70DD 70CB 7F39
+70E2 70D7 70D2 70DE 70E0 70D4 70CD 70C5 70C6 70C7
+70DA 70CE 70E1 7242 7278 7277 7276 7300 72FA 72F4
+72FE 72F6 72F3 72FB 7301 73D3 73D9 73E5 73D6 73BC
+73E7 73E3 73E9 73DC 73D2 73DB 73D4 73DD 73DA 73D7
+73D8 73E8 74DE 74DF 74F4 74F5 7521 755B 755F 75B0
+75C1 75BB 75C4 75C0 75BF 75B6 75BA 768A 76C9 771D
+771B 7710 7713 7712 7723 7711 7715 7719 771A 7722
+7727 7823 782C 7822 7835 782F 7828 782E 782B 7821
+7829 7833 782A 7831 7954 795B 794F 795C 7953 7952
+7951 79EB 79EC 79E0 79EE 79ED 79EA 79DC 79DE 79DD
+7A86 7A89 7A85 7A8B 7A8C 7A8A 7A87 7AD8 7B10 7B04
+7B13 7B05 7B0F 7B08 7B0A 7B0E 7B09 7B12 7C84 7C91
+7C8A 7C8C 7C88 7C8D 7C85 7D1E 7D1D 7D11 7D0E 7D18
+7D16 7D13 7D1F 7D12 7D0F 7D0C 7F5C 7F61 7F5E 7F60
+7F5D 7F5B 7F96 7F92 7FC3 7FC2 7FC0 8016 803E 8039
+80FA 80F2 80F9 80F5 8101 80FB 8100 8201 822F 8225
+8333 832D 8344 8319 8351 8325 8356 833F 8341 8326
+831C 8322 8342 834E 831B 832A 8308 833C 834D 8316
+8324 8320 8337 832F 8329 8347 8345 834C 8353 831E
+832C 834B 8327 8348 8653 8652 86A2 86A8 8696 868D
+8691 869E 8687 8697 8686 868B 869A 8685 86A5 8699
+86A1 86A7 8695 8698 868E 869D 8690 8694 8843 8844
+886D 8875 8876 8872 8880 8871 887F 886F 8883 887E
+8874 887C 8A12 8C47 8C57 8C7B 8CA4 8CA3 8D76 8D78
+8DB5 8DB7 8DB6 8ED1 8ED3 8FFE 8FF5 9002 8FFF 8FFB
+9004 8FFC 8FF6 90D6 90E0 90D9 90DA 90E3 90DF 90E5
+90D8 90DB 90D7 90DC 90E4 9150 914E 914F 91D5 91E2
+91DA 965C 965F 96BC 98E3 9ADF 9B2F 4E7F 5070 506A
+5061 505E 5060 5053 504B 505D 5072 5048 504D 5041
+505B 504A 5062 5015 5045 505F 5069 506B 5063 5064
+5046 5040 506E 5073 5057 5051 51D0 526B 526D 526C
+526E 52D6 52D3 532D 539C 5575 5576 553C 554D 5550
+5534 552A 5551 5562 5536 5535 5530 5552 5545 550C
+5532 5565 554E 5539 5548 552D 553B 5540 554B 570A
+5707 57FB 5814 57E2 57F6 57DC 57F4 5800 57ED 57FD
+5808 57F8 580B 57F3 57CF 5807 57EE 57E3 57F2 57E5
+57EC 57E1 580E 57FC 5810 57E7 5801 580C 57F1 57E9
+57F0 580D 5804 595C 5A60 5A58 5A55 5A67 5A5E 5A38
+5A35 5A6D 5A50 5A5F 5A65 5A6C 5A53 5A64 5A57 5A43
+5A5D 5A52 5A44 5A5B 5A48 5A8E 5A3E 5A4D 5A39 5A4C
+5A70 5A69 5A47 5A51 5A56 5A42 5A5C 5B72 5B6E 5BC1
+5BC0 5C59 5D1E 5D0B 5D1D 5D1A 5D20 5D0C 5D28 5D0D
+5D26 5D25 5D0F 5D30 5D12 5D23 5D1F 5D2E 5E3E 5E34
+5EB1 5EB4 5EB9 5EB2 5EB3 5F36 5F38 5F9B 5F96 5F9F
+608A 6090 6086 60BE 60B0 60BA 60D3 60D4 60CF 60E4
+60D9 60DD 60C8 60B1 60DB 60B7 60CA 60BF 60C3 60CD
+60C0 6332 6365 638A 6382 637D 63BD 639E 63AD 639D
+6397 63AB 638E 636F 6387 6390 636E 63AF 6375 639C
+636D 63AE 637C 63A4 633B 639F 6378 6385 6381 6391
+638D 6370 6553 65CD 6665 6661 665B 6659 665C 6662
+6718 6879 6887 6890 689C 686D 686E 68AE 68AB 6956
+686F 68A3 68AC 68A9 6875 6874 68B2 688F 6877 6892
+687C 686B 6872 68AA 6880 6871 687E 689B 6896 688B
+68A0 6889 68A4 6878 687B 6891 688C 688A 687D 6B36
+6B33 6B37 6B38 6B91 6B8F 6B8D 6B8E 6B8C 6C2A 6DC0
+6DAB 6DB4 6DB3 6E74 6DAC 6DE9 6DE2 6DB7 6DF6 6DD4
+6E00 6DC8 6DE0 6DDF 6DD6 6DBE 6DE5 6DDC 6DDD 6DDB
+6DF4 6DCA 6DBD 6DED 6DF0 6DBA 6DD5 6DC2 6DCF 6DC9
+6DD0 6DF2 6DD3 6DFD 6DD7 6DCD 6DE3 6DBB 70FA 710D
+70F7 7117 70F4 710C 70F0 7104 70F3 7110 70FC 70FF
+7106 7113 7100 70F8 70F6 710B 7102 710E 727E 727B
+727C 727F 731D 7317 7307 7311 7318 730A 7308 72FF
+730F 731E 7388 73F6 73F8 73F5 7404 7401 73FD 7407
+7400 73FA 73FC 73FF 740C 740B 73F4 7408 7564 7563
+75CE 75D2 75CF 75CB 75CC 75D1 75D0 768F 7689 76D3
+7739 772F 772D 7731 7732 7734 7733 773D 7725 773B
+7735 7848 7852 7849 784D 784A 784C 7826 7845 7850
+7964 7967 7969 796A 7963 796B 7961 79BB 79FA 79F8
+79F6 79F7 7A8F 7A94 7A90 7B35 7B47 7B34 7B25 7B30
+7B22 7B24 7B33 7B18 7B2A 7B1D 7B31 7B2B 7B2D 7B2F
+7B32 7B38 7B1A 7B23 7C94 7C98 7C96 7CA3 7D35 7D3D
+7D38 7D36 7D3A 7D45 7D2C 7D29 7D41 7D47 7D3E 7D3F
+7D4A 7D3B 7D28 7F63 7F95 7F9C 7F9D 7F9B 7FCA 7FCB
+7FCD 7FD0 7FD1 7FC7 7FCF 7FC9 801F 801E 801B 8047
+8043 8048 8118 8125 8119 811B 812D 811F 812C 811E
+8121 8115 8127 811D 8122 8211 8238 8233 823A 8234
+8232 8274 8390 83A3 83A8 838D 837A 8373 83A4 8374
+838F 8381 8395 8399 8375 8394 83A9 837D 8383 838C
+839D 839B 83AA 838B 837E 83A5 83AF 8388 8397 83B0
+837F 83A6 8387 83AE 8376 839A 8659 8656 86BF 86B7
+86C2 86C1 86C5 86BA 86B0 86C8 86B9 86B3 86B8 86CC
+86B4 86BB 86BC 86C3 86BD 86BE 8852 8889 8895 88A8
+88A2 88AA 889A 8891 88A1 889F 8898 88A7 8899 889B
+8897 88A4 88AC 888C 8893 888E 8982 89D6 89D9 89D5
+8A30 8A27 8A2C 8A1E 8C39 8C3B 8C5C 8C5D 8C7D 8CA5
+8D7D 8D7B 8D79 8DBC 8DC2 8DB9 8DBF 8DC1 8ED8 8EDE
+8EDD 8EDC 8ED7 8EE0 8EE1 9024 900B 9011 901C 900C
+9021 90EF 90EA 90F0 90F4 90F2 90F3 90D4 90EB 90EC
+90E9 9156 9158 915A 9153 9155 91EC 91F4 91F1 91F3
+91F8 91E4 91F9 91EA 91EB 91F7 91E8 91EE 957A 9586
+9588 967C 966D 966B 9671 966F 96BF 976A 9804 98E5
+9997 509B 5095 5094 509E 508B 50A3 5083 508C 508E
+509D 5068 509C 5092 5082 5087 515F 51D4 5312 5311
+53A4 53A7 5591 55A8 55A5 55AD 5577 5645 55A2 5593
+5588 558F 55B5 5581 55A3 5592 55A4 557D 558C 55A6
+557F 5595 55A1 558E 570C 5829 5837 5819 581E 5827
+5823 5828 57F5 5848 5825 581C 581B 5833 583F 5836
+582E 5839 5838 582D 582C 583B 5961 5AAF 5A94 5A9F
+5A7A 5AA2 5A9E 5A78 5AA6 5A7C 5AA5 5AAC 5A95 5AAE
+5A37 5A84 5A8A 5A97 5A83 5A8B 5AA9 5A7B 5A7D 5A8C
+5A9C 5A8F 5A93 5A9D 5BEA 5BCD 5BCB 5BD4 5BD1 5BCA
+5BCE 5C0C 5C30 5D37 5D43 5D6B 5D41 5D4B 5D3F 5D35
+5D51 5D4E 5D55 5D33 5D3A 5D52 5D3D 5D31 5D59 5D42
+5D39 5D49 5D38 5D3C 5D32 5D36 5D40 5D45 5E44 5E41
+5F58 5FA6 5FA5 5FAB 60C9 60B9 60CC 60E2 60CE 60C4
+6114 60F2 610A 6116 6105 60F5 6113 60F8 60FC 60FE
+60C1 6103 6118 611D 6110 60FF 6104 610B 624A 6394
+63B1 63B0 63CE 63E5 63E8 63EF 63C3 649D 63F3 63CA
+63E0 63F6 63D5 63F2 63F5 6461 63DF 63BE 63DD 63DC
+63C4 63D8 63D3 63C2 63C7 63CC 63CB 63C8 63F0 63D7
+63D9 6532 6567 656A 6564 655C 6568 6565 658C 659D
+659E 65AE 65D0 65D2 667C 666C 667B 6680 6671 6679
+666A 6672 6701 690C 68D3 6904 68DC 692A 68EC 68EA
+68F1 690F 68D6 68F7 68EB 68E4 68F6 6913 6910 68F3
+68E1 6907 68CC 6908 6970 68B4 6911 68EF 68C6 6914
+68F8 68D0 68FD 68FC 68E8 690B 690A 6917 68CE 68C8
+68DD 68DE 68E6 68F4 68D1 6906 68D4 68E9 6915 6925
+68C7 6B39 6B3B 6B3F 6B3C 6B94 6B97 6B99 6B95 6BBD
+6BF0 6BF2 6BF3 6C30 6DFC 6E46 6E47 6E1F 6E49 6E88
+6E3C 6E3D 6E45 6E62 6E2B 6E3F 6E41 6E5D 6E73 6E1C
+6E33 6E4B 6E40 6E51 6E3B 6E03 6E2E 6E5E 6E68 6E5C
+6E61 6E31 6E28 6E60 6E71 6E6B 6E39 6E22 6E30 6E53
+6E65 6E27 6E78 6E64 6E77 6E55 6E79 6E52 6E66 6E35
+6E36 6E5A 7120 711E 712F 70FB 712E 7131 7123 7125
+7122 7132 711F 7128 713A 711B 724B 725A 7288 7289
+7286 7285 728B 7312 730B 7330 7322 7331 7333 7327
+7332 732D 7326 7323 7335 730C 742E 742C 7430 742B
+7416 741A 7421 742D 7431 7424 7423 741D 7429 7420
+7432 74FB 752F 756F 756C 75E7 75DA 75E1 75E6 75DD
+75DF 75E4 75D7 7695 7692 76DA 7746 7747 7744 774D
+7745 774A 774E 774B 774C 77DE 77EC 7860 7864 7865
+785C 786D 7871 786A 786E 7870 7869 7868 785E 7862
+7974 7973 7972 7970 7A02 7A0A 7A03 7A0C 7A04 7A99
+7AE6 7AE4 7B4A 7B3B 7B44 7B48 7B4C 7B4E 7B40 7B58
+7B45 7CA2 7C9E 7CA8 7CA1 7D58 7D6F 7D63 7D53 7D56
+7D67 7D6A 7D4F 7D6D 7D5C 7D6B 7D52 7D54 7D69 7D51
+7D5F 7D4E 7F3E 7F3F 7F65 7F66 7FA2 7FA0 7FA1 7FD7
+8051 804F 8050 80FE 80D4 8143 814A 8152 814F 8147
+813D 814D 813A 81E6 81EE 81F7 81F8 81F9 8204 823C
+823D 823F 8275 833B 83CF 83F9 8423 83C0 83E8 8412
+83E7 83E4 83FC 83F6 8410 83C6 83C8 83EB 83E3 83BF
+8401 83DD 83E5 83D8 83FF 83E1 83CB 83CE 83D6 83F5
+83C9 8409 840F 83DE 8411 8406 83C2 83F3 83D5 83FA
+83C7 83D1 83EA 8413 83C3 83EC 83EE 83C4 83FB 83D7
+83E2 841B 83DB 83FE 86D8 86E2 86E6 86D3 86E3 86DA
+86EA 86DD 86EB 86DC 86EC 86E9 86D7 86E8 86D1 8848
+8856 8855 88BA 88D7 88B9 88B8 88C0 88BE 88B6 88BC
+88B7 88BD 88B2 8901 88C9 8995 8998 8997 89DD 89DA
+89DB 8A4E 8A4D 8A39 8A59 8A40 8A57 8A58 8A44 8A45
+8A52 8A48 8A51 8A4A 8A4C 8A4F 8C5F 8C81 8C80 8CBA
+8CBE 8CB0 8CB9 8CB5 8D84 8D80 8D89 8DD8 8DD3 8DCD
+8DC7 8DD6 8DDC 8DCF 8DD5 8DD9 8DC8 8DD7 8DC5 8EEF
+8EF7 8EFA 8EF9 8EE6 8EEE 8EE5 8EF5 8EE7 8EE8 8EF6
+8EEB 8EF1 8EEC 8EF4 8EE9 902D 9034 902F 9106 912C
+9104 90FF 90FC 9108 90F9 90FB 9101 9100 9107 9105
+9103 9161 9164 915F 9162 9160 9201 920A 9225 9203
+921A 9226 920F 920C 9200 9212 91FF 91FD 9206 9204
+9227 9202 921C 9224 9219 9217 9205 9216 957B 958D
+958C 9590 9687 967E 9688 9689 9683 9680 96C2 96C8
+96C3 96F1 96F0 976C 9770 976E 9807 98A9 98EB 9CE6
+9EF9 4E83 4E84 4EB6 50BD 50BF 50C6 50AE 50C4 50CA
+50B4 50C8 50C2 50B0 50C1 50BA 50B1 50CB 50C9 50B6
+50B8 51D7 527A 5278 527B 527C 55C3 55DB 55CC 55D0
+55CB 55CA 55DD 55C0 55D4 55C4 55E9 55BF 55D2 558D
+55CF 55D5 55E2 55D6 55C8 55F2 55CD 55D9 55C2 5714
+5853 5868 5864 584F 584D 5849 586F 5855 584E 585D
+5859 5865 585B 583D 5863 5871 58FC 5AC7 5AC4 5ACB
+5ABA 5AB8 5AB1 5AB5 5AB0 5ABF 5AC8 5ABB 5AC6 5AB7
+5AC0 5ACA 5AB4 5AB6 5ACD 5AB9 5A90 5BD6 5BD8 5BD9
+5C1F 5C33 5D71 5D63 5D4A 5D65 5D72 5D6C 5D5E 5D68
+5D67 5D62 5DF0 5E4F 5E4E 5E4A 5E4D 5E4B 5EC5 5ECC
+5EC6 5ECB 5EC7 5F40 5FAF 5FAD 60F7 6149 614A 612B
+6145 6136 6132 612E 6146 612F 614F 6129 6140 6220
+9168 6223 6225 6224 63C5 63F1 63EB 6410 6412 6409
+6420 6424 6433 6443 641F 6415 6418 6439 6437 6422
+6423 640C 6426 6430 6428 6441 6435 642F 640A 641A
+6440 6425 6427 640B 63E7 641B 642E 6421 640E 656F
+6592 65D3 6686 668C 6695 6690 668B 668A 6699 6694
+6678 6720 6966 695F 6938 694E 6962 6971 693F 6945
+696A 6939 6942 6957 6959 697A 6948 6949 6935 696C
+6933 693D 6965 68F0 6978 6934 6969 6940 696F 6944
+6976 6958 6941 6974 694C 693B 694B 6937 695C 694F
+6951 6932 6952 692F 697B 693C 6B46 6B45 6B43 6B42
+6B48 6B41 6B9B 6BFB 6BFC 6BF9 6BF7 6BF8 6E9B 6ED6
+6EC8 6E8F 6EC0 6E9F 6E93 6E94 6EA0 6EB1 6EB9 6EC6
+6ED2 6EBD 6EC1 6E9E 6EC9 6EB7 6EB0 6ECD 6EA6 6ECF
+6EB2 6EBE 6EC3 6EDC 6ED8 6E99 6E92 6E8E 6E8D 6EA4
+6EA1 6EBF 6EB3 6ED0 6ECA 6E97 6EAE 6EA3 7147 7154
+7152 7163 7160 7141 715D 7162 7172 7178 716A 7161
+7142 7158 7143 714B 7170 715F 7150 7153 7144 714D
+715A 724F 728D 728C 7291 7290 728E 733C 7342 733B
+733A 7340 734A 7349 7444 744A 744B 7452 7451 7457
+7440 744F 7450 744E 7442 7446 744D 7454 74E1 74FF
+74FE 74FD 751D 7579 7577 6983 75EF 760F 7603 75F7
+75FE 75FC 75F9 75F8 7610 75FB 75F6 75ED 75F5 75FD
+7699 76B5 76DD 7755 775F 7760 7752 7756 775A 7769
+7767 7754 7759 776D 77E0 7887 789A 7894 788F 7884
+7895 7885 7886 78A1 7883 7879 7899 7880 7896 787B
+797C 7982 797D 7979 7A11 7A18 7A19 7A12 7A17 7A15
+7A22 7A13 7A1B 7A10 7AA3 7AA2 7A9E 7AEB 7B66 7B64
+7B6D 7B74 7B69 7B72 7B65 7B73 7B71 7B70 7B61 7B78
+7B76 7B63 7CB2 7CB4 7CAF 7D88 7D86 7D80 7D8D 7D7F
+7D85 7D7A 7D8E 7D7B 7D83 7D7C 7D8C 7D94 7D84 7D7D
+7D92 7F6D 7F6B 7F67 7F68 7F6C 7FA6 7FA5 7FA7 7FDB
+7FDC 8021 8164 8160 8177 815C 8169 815B 8162 8172
+6721 815E 8176 8167 816F 8144 8161 821D 8249 8244
+8240 8242 8245 84F1 843F 8456 8476 8479 848F 848D
+8465 8451 8440 8486 8467 8430 844D 847D 845A 8459
+8474 8473 845D 8507 845E 8437 843A 8434 847A 8443
+8478 8432 8445 8429 83D9 844B 842F 8442 842D 845F
+8470 8439 844E 844C 8452 846F 84C5 848E 843B 8447
+8436 8433 8468 847E 8444 842B 8460 8454 846E 8450
+870B 8704 86F7 870C 86FA 86D6 86F5 874D 86F8 870E
+8709 8701 86F6 870D 8705 88D6 88CB 88CD 88CE 88DE
+88DB 88DA 88CC 88D0 8985 899B 89DF 89E5 89E4 89E1
+89E0 89E2 89DC 89E6 8A76 8A86 8A7F 8A61 8A3F 8A77
+8A82 8A84 8A75 8A83 8A81 8A74 8A7A 8C3C 8C4B 8C4A
+8C65 8C64 8C66 8C86 8C84 8C85 8CCC 8D68 8D69 8D91
+8D8C 8D8E 8D8F 8D8D 8D93 8D94 8D90 8D92 8DF0 8DE0
+8DEC 8DF1 8DEE 8DD0 8DE9 8DE3 8DE2 8DE7 8DF2 8DEB
+8DF4 8F06 8EFF 8F01 8F00 8F05 8F07 8F08 8F02 8F0B
+9052 903F 9044 9049 903D 9110 910D 910F 9111 9116
+9114 910B 910E 916E 916F 9248 9252 9230 923A 9266
+9233 9265 925E 9283 922E 924A 9246 926D 926C 924F
+9260 9267 926F 9236 9261 9270 9231 9254 9263 9250
+9272 924E 9253 924C 9256 9232 959F 959C 959E 959B
+9692 9693 9691 9697 96CE 96FA 96FD 96F8 96F5 9773
+9777 9778 9772 980F 980D 980E 98AC 98F6 98F9 99AF
+99B2 99B0 99B5 9AAD 9AAB 9B5B 9CEA 9CED 9CE7 9E80
+9EFD 50E6 50D4 50D7 50E8 50F3 50DB 50EA 50DD 50E4
+50D3 50EC 50F0 50EF 50E3 50E0 51D8 5280 5281 52E9
+52EB 5330 53AC 5627 5615 560C 5612 55FC 560F 561C
+5601 5613 5602 55FA 561D 5604 55FF 55F9 5889 587C
+5890 5898 5886 5881 587F 5874 588B 587A 5887 5891
+588E 5876 5882 5888 587B 5894 588F 58FE 596B 5ADC
+5AEE 5AE5 5AD5 5AEA 5ADA 5AED 5AEB 5AF3 5AE2 5AE0
+5ADB 5AEC 5ADE 5ADD 5AD9 5AE8 5ADF 5B77 5BE0 5BE3
+5C63 5D82 5D80 5D7D 5D86 5D7A 5D81 5D77 5D8A 5D89
+5D88 5D7E 5D7C 5D8D 5D79 5D7F 5E58 5E59 5E53 5ED8
+5ED1 5ED7 5ECE 5EDC 5ED5 5ED9 5ED2 5ED4 5F44 5F43
+5F6F 5FB6 612C 6128 6141 615E 6171 6173 6152 6153
+6172 616C 6180 6174 6154 617A 615B 6165 613B 616A
+6161 6156 6229 6227 622B 642B 644D 645B 645D 6474
+6476 6472 6473 647D 6475 6466 64A6 644E 6482 645E
+645C 644B 6453 6460 6450 647F 643F 646C 646B 6459
+6465 6477 6573 65A0 66A1 66A0 669F 6705 6704 6722
+69B1 69B6 69C9 69A0 69CE 6996 69B0 69AC 69BC 6991
+6999 698E 69A7 698D 69A9 69BE 69AF 69BF 69C4 69BD
+69A4 69D4 69B9 69CA 699A 69CF 69B3 6993 69AA 69A1
+699E 69D9 6997 6990 69C2 69B5 69A5 69C6 6B4A 6B4D
+6B4B 6B9E 6B9F 6BA0 6BC3 6BC4 6BFE 6ECE 6EF5 6EF1
+6F03 6F25 6EF8 6F37 6EFB 6F2E 6F09 6F4E 6F19 6F1A
+6F27 6F18 6F3B 6F12 6EED 6F0A 6F36 6F73 6EF9 6EEE
+6F2D 6F40 6F30 6F3C 6F35 6EEB 6F07 6F0E 6F43 6F05
+6EFD 6EF6 6F39 6F1C 6EFC 6F3A 6F1F 6F0D 6F1E 6F08
+6F21 7187 7190 7189 7180 7185 7182 718F 717B 7186
+7181 7197 7244 7253 7297 7295 7293 7343 734D 7351
+734C 7462 7473 7471 7475 7472 7467 746E 7500 7502
+7503 757D 7590 7616 7608 760C 7615 7611 760A 7614
+76B8 7781 777C 7785 7782 776E 7780 776F 777E 7783
+78B2 78AA 78B4 78AD 78A8 787E 78AB 789E 78A5 78A0
+78AC 78A2 78A4 7998 798A 798B 7996 7995 7994 7993
+7997 7988 7992 7990 7A2B 7A4A 7A30 7A2F 7A28 7A26
+7AA8 7AAB 7AAC 7AEE 7B88 7B9C 7B8A 7B91 7B90 7B96
+7B8D 7B8C 7B9B 7B8E 7B85 7B98 5284 7B99 7BA4 7B82
+7CBB 7CBF 7CBC 7CBA 7DA7 7DB7 7DC2 7DA3 7DAA 7DC1
+7DC0 7DC5 7D9D 7DCE 7DC4 7DC6 7DCB 7DCC 7DAF 7DB9
+7D96 7DBC 7D9F 7DA6 7DAE 7DA9 7DA1 7DC9 7F73 7FE2
+7FE3 7FE5 7FDE 8024 805D 805C 8189 8186 8183 8187
+818D 818C 818B 8215 8497 84A4 84A1 849F 84BA 84CE
+84C2 84AC 84AE 84AB 84B9 84B4 84C1 84CD 84AA 849A
+84B1 84D0 849D 84A7 84BB 84A2 8494 84C7 84CC 849B
+84A9 84AF 84A8 84D6 8498 84B6 84CF 84A0 84D7 84D4
+84D2 84DB 84B0 8491 8661 8733 8723 8728 876B 8740
+872E 871E 8721 8719 871B 8743 872C 8741 873E 8746
+8720 8732 872A 872D 873C 8712 873A 8731 8735 8742
+8726 8727 8738 8724 871A 8730 8711 88F7 88E7 88F1
+88F2 88FA 88FE 88EE 88FC 88F6 88FB 88F0 88EC 88EB
+899D 89A1 899F 899E 89E9 89EB 89E8 8AAB 8A99 8A8B
+8A92 8A8F 8A96 8C3D 8C68 8C69 8CD5 8CCF 8CD7 8D96
+8E09 8E02 8DFF 8E0D 8DFD 8E0A 8E03 8E07 8E06 8E05
+8DFE 8E00 8E04 8F10 8F11 8F0E 8F0D 9123 911C 9120
+9122 911F 911D 911A 9124 9121 911B 917A 9172 9179
+9173 92A5 92A4 9276 929B 927A 92A0 9294 92AA 928D
+92A6 929A 92AB 9279 9297 927F 92A3 92EE 928E 9282
+9295 92A2 927D 9288 92A1 928A 9286 928C 9299 92A7
+927E 9287 92A9 929D 928B 922D 969E 96A1 96FF 9758
+977D 977A 977E 9783 9780 9782 977B 9784 9781 977F
+97CE 97CD 9816 98AD 98AE 9902 9900 9907 999D 999C
+99C3 99B9 99BB 99BA 99C2 99BD 99C7 9AB1 9AE3 9AE7
+9B3E 9B3F 9B60 9B61 9B5F 9CF1 9CF2 9CF5 9EA7 50FF
+5103 5130 50F8 5106 5107 50F6 50FE 510B 510C 50FD
+510A 528B 528C 52F1 52EF 5648 5642 564C 5635 5641
+564A 5649 5646 5658 565A 5640 5633 563D 562C 563E
+5638 562A 563A 571A 58AB 589D 58B1 58A0 58A3 58AF
+58AC 58A5 58A1 58FF 5AFF 5AF4 5AFD 5AF7 5AF6 5B03
+5AF8 5B02 5AF9 5B01 5B07 5B05 5B0F 5C67 5D99 5D97
+5D9F 5D92 5DA2 5D93 5D95 5DA0 5D9C 5DA1 5D9A 5D9E
+5E69 5E5D 5E60 5E5C 7DF3 5EDB 5EDE 5EE1 5F49 5FB2
+618B 6183 6179 61B1 61B0 61A2 6189 619B 6193 61AF
+61AD 619F 6192 61AA 61A1 618D 6166 61B3 622D 646E
+6470 6496 64A0 6485 6497 649C 648F 648B 648A 648C
+64A3 649F 6468 64B1 6498 6576 657A 6579 657B 65B2
+65B3 66B5 66B0 66A9 66B2 66B7 66AA 66AF 6A00 6A06
+6A17 69E5 69F8 6A15 69F1 69E4 6A20 69FF 69EC 69E2
+6A1B 6A1D 69FE 6A27 69F2 69EE 6A14 69F7 69E7 6A40
+6A08 69E6 69FB 6A0D 69FC 69EB 6A09 6A04 6A18 6A25
+6A0F 69F6 6A26 6A07 69F4 6A16 6B51 6BA5 6BA3 6BA2
+6BA6 6C01 6C00 6BFF 6C02 6F41 6F26 6F7E 6F87 6FC6
+6F92 6F8D 6F89 6F8C 6F62 6F4F 6F85 6F5A 6F96 6F76
+6F6C 6F82 6F55 6F72 6F52 6F50 6F57 6F94 6F93 6F5D
+6F00 6F61 6F6B 6F7D 6F67 6F90 6F53 6F8B 6F69 6F7F
+6F95 6F63 6F77 6F6A 6F7B 71B2 71AF 719B 71B0 71A0
+719A 71A9 71B5 719D 71A5 719E 71A4 71A1 71AA 719C
+71A7 71B3 7298 729A 7358 7352 735E 735F 7360 735D
+735B 7361 735A 7359 7362 7487 7489 748A 7486 7481
+747D 7485 7488 747C 7479 7508 7507 757E 7625 761E
+7619 761D 761C 7623 761A 7628 761B 769C 769D 769E
+769B 778D 778F 7789 7788 78CD 78BB 78CF 78CC 78D1
+78CE 78D4 78C8 78C3 78C4 78C9 799A 79A1 79A0 799C
+79A2 799B 6B76 7A39 7AB2 7AB4 7AB3 7BB7 7BCB 7BBE
+7BAC 7BCE 7BAF 7BB9 7BCA 7BB5 7CC5 7CC8 7CCC 7CCB
+7DF7 7DDB 7DEA 7DE7 7DD7 7DE1 7E03 7DFA 7DE6 7DF6
+7DF1 7DF0 7DEE 7DDF 7F76 7FAC 7FB0 7FAD 7FED 7FEB
+7FEA 7FEC 7FE6 7FE8 8064 8067 81A3 819F 819E 8195
+81A2 8199 8197 8216 824F 8253 8252 8250 824E 8251
+8524 853B 850F 8500 8529 850E 8509 850D 851F 850A
+8527 851C 84FB 852B 84FA 8508 850C 84F4 852A 84F2
+8515 84F7 84EB 84F3 84FC 8512 84EA 84E9 8516 84FE
+8528 851D 852E 8502 84FD 851E 84F6 8531 8526 84E7
+84E8 84F0 84EF 84F9 8518 8520 8530 850B 8519 852F
+8662 8756 8763 8764 8777 87E1 8773 8758 8754 875B
+8752 8761 875A 8751 875E 876D 876A 8750 874E 875F
+875D 876F 876C 877A 876E 875C 8765 874F 877B 8775
+8762 8767 8769 885A 8905 890C 8914 890B 8917 8918
+8919 8906 8916 8911 890E 8909 89A2 89A4 89A3 89ED
+89F0 89EC 8ACF 8AC6 8AB8 8AD3 8AD1 8AD4 8AD5 8ABB
+8AD7 8ABE 8AC0 8AC5 8AD8 8AC3 8ABA 8ABD 8AD9 8C3E
+8C4D 8C8F 8CE5 8CDF 8CD9 8CE8 8CDA 8CDD 8CE7 8DA0
+8D9C 8DA1 8D9B 8E20 8E23 8E25 8E24 8E2E 8E15 8E1B
+8E16 8E11 8E19 8E26 8E27 8E14 8E12 8E18 8E13 8E1C
+8E17 8E1A 8F2C 8F24 8F18 8F1A 8F20 8F23 8F16 8F17
+9073 9070 906F 9067 906B 912F 912B 9129 912A 9132
+9126 912E 9185 9186 918A 9181 9182 9184 9180 92D0
+92C3 92C4 92C0 92D9 92B6 92CF 92F1 92DF 92D8 92E9
+92D7 92DD 92CC 92EF 92C2 92E8 92CA 92C8 92CE 92E6
+92CD 92D5 92C9 92E0 92DE 92E7 92D1 92D3 92B5 92E1
+92C6 92B4 957C 95AC 95AB 95AE 95B0 96A4 96A2 96D3
+9705 9708 9702 975A 978A 978E 9788 97D0 97CF 981E
+981D 9826 9829 9828 9820 981B 9827 98B2 9908 98FA
+9911 9914 9916 9917 9915 99DC 99CD 99CF 99D3 99D4
+99CE 99C9 99D6 99D8 99CB 99D7 99CC 9AB3 9AEC 9AEB
+9AF3 9AF2 9AF1 9B46 9B43 9B67 9B74 9B71 9B66 9B76
+9B75 9B70 9B68 9B64 9B6C 9CFC 9CFA 9CFD 9CFF 9CF7
+9D07 9D00 9CF9 9CFB 9D08 9D05 9D04 9E83 9ED3 9F0F
+9F10 511C 5113 5117 511A 5111 51DE 5334 53E1 5670
+5660 566E 5673 5666 5663 566D 5672 565E 5677 571C
+571B 58C8 58BD 58C9 58BF 58BA 58C2 58BC 58C6 5B17
+5B19 5B1B 5B21 5B14 5B13 5B10 5B16 5B28 5B1A 5B20
+5B1E 5BEF 5DAC 5DB1 5DA9 5DA7 5DB5 5DB0 5DAE 5DAA
+5DA8 5DB2 5DAD 5DAF 5DB4 5E67 5E68 5E66 5E6F 5EE9
+5EE7 5EE6 5EE8 5EE5 5F4B 5FBC 619D 61A8 6196 61C5
+61B4 61C6 61C1 61CC 61BA 61BF 61B8 618C 64D7 64D6
+64D0 64CF 64C9 64BD 6489 64C3 64DB 64F3 64D9 6533
+657F 657C 65A2 66C8 66BE 66C0 66CA 66CB 66CF 66BD
+66BB 66BA 66CC 6723 6A34 6A66 6A49 6A67 6A32 6A68
+6A3E 6A5D 6A6D 6A76 6A5B 6A51 6A28 6A5A 6A3B 6A3F
+6A41 6A6A 6A64 6A50 6A4F 6A54 6A6F 6A69 6A60 6A3C
+6A5E 6A56 6A55 6A4D 6A4E 6A46 6B55 6B54 6B56 6BA7
+6BAA 6BAB 6BC8 6BC7 6C04 6C03 6C06 6FAD 6FCB 6FA3
+6FC7 6FBC 6FCE 6FC8 6F5E 6FC4 6FBD 6F9E 6FCA 6FA8
+7004 6FA5 6FAE 6FBA 6FAC 6FAA 6FCF 6FBF 6FB8 6FA2
+6FC9 6FAB 6FCD 6FAF 6FB2 6FB0 71C5 71C2 71BF 71B8
+71D6 71C0 71C1 71CB 71D4 71CA 71C7 71CF 71BD 71D8
+71BC 71C6 71DA 71DB 729D 729E 7369 7366 7367 736C
+7365 736B 736A 747F 749A 74A0 7494 7492 7495 74A1
+750B 7580 762F 762D 7631 763D 7633 763C 7635 7632
+7630 76BB 76E6 779A 779D 77A1 779C 779B 77A2 77A3
+7795 7799 7797 78DD 78E9 78E5 78EA 78DE 78E3 78DB
+78E1 78E2 78ED 78DF 78E0 79A4 7A44 7A48 7A47 7AB6
+7AB8 7AB5 7AB1 7AB7 7BDE 7BE3 7BE7 7BDD 7BD5 7BE5
+7BDA 7BE8 7BF9 7BD4 7BEA 7BE2 7BDC 7BEB 7BD8 7BDF
+7CD2 7CD4 7CD7 7CD0 7CD1 7E12 7E21 7E17 7E0C 7E1F
+7E20 7E13 7E0E 7E1C 7E15 7E1A 7E22 7E0B 7E0F 7E16
+7E0D 7E14 7E25 7E24 7F43 7F7B 7F7C 7F7A 7FB1 7FEF
+802A 8029 806C 81B1 81A6 81AE 81B9 81B5 81AB 81B0
+81AC 81B4 81B2 81B7 81A7 81F2 8255 8256 8257 8556
+8545 856B 854D 8553 8561 8558 8540 8546 8564 8541
+8562 8544 8551 8547 8563 853E 855B 8571 854E 856E
+8575 8555 8567 8560 858C 8566 855D 8554 8565 856C
+8663 8665 8664 879B 878F 8797 8793 8792 8788 8781
+8796 8798 8779 8787 87A3 8785 8790 8791 879D 8784
+8794 879C 879A 8789 891E 8926 8930 892D 892E 8927
+8931 8922 8929 8923 892F 892C 891F 89F1 8AE0 8AE2
+8AF2 8AF4 8AF5 8ADD 8B14 8AE4 8ADF 8AF0 8AC8 8ADE
+8AE1 8AE8 8AFF 8AEF 8AFB 8C91 8C92 8C90 8CF5 8CEE
+8CF1 8CF0 8CF3 8D6C 8D6E 8DA5 8DA7 8E33 8E3E 8E38
+8E40 8E45 8E36 8E3C 8E3D 8E41 8E30 8E3F 8EBD 8F36
+8F2E 8F35 8F32 8F39 8F37 8F34 9076 9079 907B 9086
+90FA 9133 9135 9136 9193 9190 9191 918D 918F 9327
+931E 9308 931F 9306 930F 937A 9338 933C 931B 9323
+9312 9301 9346 932D 930E 930D 92CB 931D 92FA 9325
+9313 92F9 92F7 9334 9302 9324 92FF 9329 9339 9335
+932A 9314 930C 930B 92FE 9309 9300 92FB 9316 95BC
+95CD 95BE 95B9 95BA 95B6 95BF 95B5 95BD 96A9 96D4
+970B 9712 9710 9799 9797 9794 97F0 97F8 9835 982F
+9832 9924 991F 9927 9929 999E 99EE 99EC 99E5 99E4
+99F0 99E3 99EA 99E9 99E7 9AB9 9ABF 9AB4 9ABB 9AF6
+9AFA 9AF9 9AF7 9B33 9B80 9B85 9B87 9B7C 9B7E 9B7B
+9B82 9B93 9B92 9B90 9B7A 9B95 9B7D 9B88 9D25 9D17
+9D20 9D1E 9D14 9D29 9D1D 9D18 9D22 9D10 9D19 9D1F
+9E88 9E86 9E87 9EAE 9EAD 9ED5 9ED6 9EFA 9F12 9F3D
+5126 5125 5122 5124 5120 5129 52F4 5693 568C 568D
+5686 5684 5683 567E 5682 567F 5681 58D6 58D4 58CF
+58D2 5B2D 5B25 5B32 5B23 5B2C 5B27 5B26 5B2F 5B2E
+5B7B 5BF1 5BF2 5DB7 5E6C 5E6A 5FBE 5FBB 61C3 61B5
+61BC 61E7 61E0 61E5 61E4 61E8 61DE 64EF 64E9 64E3
+64EB 64E4 64E8 6581 6580 65B6 65DA 66D2 6A8D 6A96
+6A81 6AA5 6A89 6A9F 6A9B 6AA1 6A9E 6A87 6A93 6A8E
+6A95 6A83 6AA8 6AA4 6A91 6A7F 6AA6 6A9A 6A85 6A8C
+6A92 6B5B 6BAD 6C09 6FCC 6FA9 6FF4 6FD4 6FE3 6FDC
+6FED 6FE7 6FE6 6FDE 6FF2 6FDD 6FE2 6FE8 71E1 71F1
+71E8 71F2 71E4 71F0 71E2 7373 736E 736F 7497 74B2
+74AB 7490 74AA 74AD 74B1 74A5 74AF 7510 7511 7512
+750F 7584 7643 7648 7649 7647 76A4 76E9 77B5 77AB
+77B2 77B7 77B6 77B4 77B1 77A8 77F0 78F3 78FD 7902
+78FB 78FC 78F2 7905 78F9 78FE 7904 79AB 79A8 7A5C
+7A5B 7A56 7A58 7A54 7A5A 7ABE 7AC0 7AC1 7C05 7C0F
+7BF2 7C00 7BFF 7BFB 7C0E 7BF4 7C0B 7BF3 7C02 7C09
+7C03 7C01 7BF8 7BFD 7C06 7BF0 7BF1 7C10 7C0A 7CE8
+7E2D 7E3C 7E42 7E33 9848 7E38 7E2A 7E49 7E40 7E47
+7E29 7E4C 7E30 7E3B 7E36 7E44 7E3A 7F45 7F7F 7F7E
+7F7D 7FF4 7FF2 802C 81BB 81C4 81CC 81CA 81C5 81C7
+81BC 81E9 825B 825A 825C 8583 8580 858F 85A7 8595
+85A0 858B 85A3 857B 85A4 859A 859E 8577 857C 8589
+85A1 857A 8578 8557 858E 8596 8586 858D 8599 859D
+8581 85A2 8582 8588 8585 8579 8576 8598 8590 859F
+8668 87BE 87AA 87AD 87C5 87B0 87AC 87B9 87B5 87BC
+87AE 87C9 87C3 87C2 87CC 87B7 87AF 87C4 87CA 87B4
+87B6 87BF 87B8 87BD 87DE 87B2 8935 8933 893C 893E
+8941 8952 8937 8942 89AD 89AF 89AE 89F2 89F3 8B1E
+8B18 8B16 8B11 8B05 8B0B 8B22 8B0F 8B12 8B15 8B07
+8B0D 8B08 8B06 8B1C 8B13 8B1A 8C4F 8C70 8C72 8C71
+8C6F 8C95 8C94 8CF9 8D6F 8E4E 8E4D 8E53 8E50 8E4C
+8E47 8F43 8F40 9085 907E 9138 919A 91A2 919B 9199
+919F 91A1 919D 91A0 93A1 9383 93AF 9364 9356 9347
+937C 9358 935C 9376 9349 9350 9351 9360 936D 938F
+934C 936A 9379 9357 9355 9352 934F 9371 9377 937B
+9361 935E 9363 9367 9380 934E 9359 95C7 95C0 95C9
+95C3 95C5 95B7 96AE 96B0 96AC 9720 971F 9718 971D
+9719 979A 97A1 979C 979E 979D 97D5 97D4 97F1 9841
+9844 984A 9849 9845 9843 9925 992B 992C 992A 9933
+9932 992F 992D 9931 9930 9998 99A3 99A1 9A02 99FA
+99F4 99F7 99F9 99F8 99F6 99FB 99FD 99FE 99FC 9A03
+9ABE 9AFE 9AFD 9B01 9AFC 9B48 9B9A 9BA8 9B9E 9B9B
+9BA6 9BA1 9BA5 9BA4 9B86 9BA2 9BA0 9BAF 9D33 9D41
+9D67 9D36 9D2E 9D2F 9D31 9D38 9D30 9D45 9D42 9D43
+9D3E 9D37 9D40 9D3D 7FF5 9D2D 9E8A 9E89 9E8D 9EB0
+9EC8 9EDA 9EFB 9EFF 9F24 9F23 9F22 9F54 9FA0 5131
+512D 512E 5698 569C 5697 569A 569D 5699 5970 5B3C
+5C69 5C6A 5DC0 5E6D 5E6E 61D8 61DF 61ED 61EE 61F1
+61EA 61F0 61EB 61D6 61E9 64FF 6504 64FD 64F8 6501
+6503 64FC 6594 65DB 66DA 66DB 66D8 6AC5 6AB9 6ABD
+6AE1 6AC6 6ABA 6AB6 6AB7 6AC7 6AB4 6AAD 6B5E 6BC9
+6C0B 7007 700C 700D 7001 7005 7014 700E 6FFF 7000
+6FFB 7026 6FFC 6FF7 700A 7201 71FF 71F9 7203 71FD
+7376 74B8 74C0 74B5 74C1 74BE 74B6 74BB 74C2 7514
+7513 765C 7664 7659 7650 7653 7657 765A 76A6 76BD
+76EC 77C2 77BA 78FF 790C 7913 7914 7909 7910 7912
+7911 79AD 79AC 7A5F 7C1C 7C29 7C19 7C20 7C1F 7C2D
+7C1D 7C26 7C28 7C22 7C25 7C30 7E5C 7E50 7E56 7E63
+7E58 7E62 7E5F 7E51 7E60 7E57 7E53 7FB5 7FB3 7FF7
+7FF8 8075 81D1 81D2 81D0 825F 825E 85B4 85C6 85C0
+85C3 85C2 85B3 85B5 85BD 85C7 85C4 85BF 85CB 85CE
+85C8 85C5 85B1 85B6 85D2 8624 85B8 85B7 85BE 8669
+87E7 87E6 87E2 87DB 87EB 87EA 87E5 87DF 87F3 87E4
+87D4 87DC 87D3 87ED 87D8 87E3 87A4 87D7 87D9 8801
+87F4 87E8 87DD 8953 894B 894F 894C 8946 8950 8951
+8949 8B2A 8B27 8B23 8B33 8B30 8B35 8B47 8B2F 8B3C
+8B3E 8B31 8B25 8B37 8B26 8B36 8B2E 8B24 8B3B 8B3D
+8B3A 8C42 8C75 8C99 8C98 8C97 8CFE 8D04 8D02 8D00
+8E5C 8E62 8E60 8E57 8E56 8E5E 8E65 8E67 8E5B 8E5A
+8E61 8E5D 8E69 8E54 8F46 8F47 8F48 8F4B 9128 913A
+913B 913E 91A8 91A5 91A7 91AF 91AA 93B5 938C 9392
+93B7 939B 939D 9389 93A7 938E 93AA 939E 93A6 9395
+9388 9399 939F 938D 93B1 9391 93B2 93A4 93A8 93B4
+93A3 93A5 95D2 95D3 95D1 96B3 96D7 96DA 5DC2 96DF
+96D8 96DD 9723 9722 9725 97AC 97AE 97A8 97AB 97A4
+97AA 97A2 97A5 97D7 97D9 97D6 97D8 97FA 9850 9851
+9852 98B8 9941 993C 993A 9A0F 9A0B 9A09 9A0D 9A04
+9A11 9A0A 9A05 9A07 9A06 9AC0 9ADC 9B08 9B04 9B05
+9B29 9B35 9B4A 9B4C 9B4B 9BC7 9BC6 9BC3 9BBF 9BC1
+9BB5 9BB8 9BD3 9BB6 9BC4 9BB9 9BBD 9D5C 9D53 9D4F
+9D4A 9D5B 9D4B 9D59 9D56 9D4C 9D57 9D52 9D54 9D5F
+9D58 9D5A 9E8E 9E8C 9EDF 9F01 9F00 9F16 9F25 9F2B
+9F2A 9F29 9F28 9F4C 9F55 5134 5135 5296 52F7 53B4
+56AB 56AD 56A6 56A7 56AA 56AC 58DA 58DD 58DB 5912
+5B3D 5B3E 5B3F 5DC3 5E70 5FBF 61FB 6507 6510 650D
+6509 650C 650E 6584 65DE 65DD 66DE 6AE7 6AE0 6ACC
+6AD1 6AD9 6ACB 6ADF 6ADC 6AD0 6AEB 6ACF 6ACD 6ADE
+6B60 6BB0 6C0C 7019 7027 7020 7016 702B 7021 7022
+7023 7029 7017 7024 701C 702A 720C 720A 7207 7202
+7205 72A5 72A6 72A4 72A3 72A1 74CB 74C5 74B7 74C3
+7516 7660 77C9 77CA 77C4 77F1 791D 791B 7921 791C
+7917 791E 79B0 7A67 7A68 7C33 7C3C 7C39 7C2C 7C3B
+7CEC 7CEA 7E76 7E75 7E78 7E70 7E77 7E6F 7E7A 7E72
+7E74 7E68 7F4B 7F4A 7F83 7F86 7FB7 7FFD 7FFE 8078
+81D7 81D5 8264 8261 8263 85EB 85F1 85ED 85D9 85E1
+85E8 85DA 85D7 85EC 85F2 85F8 85D8 85DF 85E3 85DC
+85D1 85F0 85E6 85EF 85DE 85E2 8800 87FA 8803 87F6
+87F7 8809 880C 880B 8806 87FC 8808 87FF 880A 8802
+8962 895A 895B 8957 8961 895C 8958 895D 8959 8988
+89B7 89B6 89F6 8B50 8B48 8B4A 8B40 8B53 8B56 8B54
+8B4B 8B55 8B51 8B42 8B52 8B57 8C43 8C77 8C76 8C9A
+8D06 8D07 8D09 8DAC 8DAA 8DAD 8DAB 8E6D 8E78 8E73
+8E6A 8E6F 8E7B 8EC2 8F52 8F51 8F4F 8F50 8F53 8FB4
+9140 913F 91B0 91AD 93DE 93C7 93CF 93C2 93DA 93D0
+93F9 93EC 93CC 93D9 93A9 93E6 93CA 93D4 93EE 93E3
+93D5 93C4 93CE 93C0 93D2 93E7 957D 95DA 95DB 96E1
+9729 972B 972C 9728 9726 97B3 97B7 97B6 97DD 97DE
+97DF 985C 9859 985D 9857 98BF 98BD 98BB 98BE 9948
+9947 9943 99A6 99A7 9A1A 9A15 9A25 9A1D 9A24 9A1B
+9A22 9A20 9A27 9A23 9A1E 9A1C 9A14 9AC2 9B0B 9B0A
+9B0E 9B0C 9B37 9BEA 9BEB 9BE0 9BDE 9BE4 9BE6 9BE2
+9BF0 9BD4 9BD7 9BEC 9BDC 9BD9 9BE5 9BD5 9BE1 9BDA
+9D77 9D81 9D8A 9D84 9D88 9D71 9D80 9D78 9D86 9D8B
+9D8C 9D7D 9D6B 9D74 9D75 9D70 9D69 9D85 9D73 9D7B
+9D82 9D6F 9D79 9D7F 9D87 9D68 9E94 9E91 9EC0 9EFC
+9F2D 9F40 9F41 9F4D 9F56 9F57 9F58 5337 56B2 56B5
+56B3 58E3 5B45 5DC6 5DC7 5EEE 5EEF 5FC0 5FC1 61F9
+6517 6516 6515 6513 65DF 66E8 66E3 66E4 6AF3 6AF0
+6AEA 6AE8 6AF9 6AF1 6AEE 6AEF 703C 7035 702F 7037
+7034 7031 7042 7038 703F 703A 7039 7040 703B 7033
+7041 7213 7214 72A8 737D 737C 74BA 76AB 76AA 76BE
+76ED 77CC 77CE 77CF 77CD 77F2 7925 7923 7927 7928
+7924 7929 79B2 7A6E 7A6C 7A6D 7AF7 7C49 7C48 7C4A
+7C47 7C45 7CEE 7E7B 7E7E 7E81 7E80 7FBA 7FFF 8079
+81DB 81D9 820B 8268 8269 8622 85FF 8601 85FE 861B
+8600 85F6 8604 8609 8605 860C 85FD 8819 8810 8811
+8817 8813 8816 8963 8966 89B9 89F7 8B60 8B6A 8B5D
+8B68 8B63 8B65 8B67 8B6D 8DAE 8E86 8E88 8E84 8F59
+8F56 8F57 8F55 8F58 8F5A 908D 9143 9141 91B7 91B5
+91B2 91B3 940B 9413 93FB 9420 940F 9414 93FE 9415
+9410 9428 9419 940D 93F5 9400 93F7 9407 940E 9416
+9412 93FA 9409 93F8 940A 93FF 93FC 940C 93F6 9411
+9406 95DE 95E0 95DF 972E 972F 97B9 97BB 97FD 97FE
+9860 9862 9863 985F 98C1 98C2 9950 994E 9959 994C
+994B 9953 9A32 9A34 9A31 9A2C 9A2A 9A36 9A29 9A2E
+9A38 9A2D 9AC7 9ACA 9AC6 9B10 9B12 9B11 9C0B 9C08
+9BF7 9C05 9C12 9BF8 9C40 9C07 9C0E 9C06 9C17 9C14
+9C09 9D9F 9D99 9DA4 9D9D 9D92 9D98 9D90 9D9B 9DA0
+9D94 9D9C 9DAA 9D97 9DA1 9D9A 9DA2 9DA8 9D9E 9DA3
+9DBF 9DA9 9D96 9DA6 9DA7 9E99 9E9B 9E9A 9EE5 9EE4
+9EE7 9EE6 9F30 9F2E 9F5B 9F60 9F5E 9F5D 9F59 9F91
+513A 5139 5298 5297 56C3 56BD 56BE 5B48 5B47 5DCB
+5DCF 5EF1 61FD 651B 6B02 6AFC 6B03 6AF8 6B00 7043
+7044 704A 7048 7049 7045 7046 721D 721A 7219 737E
+7517 766A 77D0 792D 7931 792F 7C54 7C53 7CF2 7E8A
+7E87 7E88 7E8B 7E86 7E8D 7F4D 7FBB 8030 81DD 8618
+862A 8626 861F 8623 861C 8619 8627 862E 8621 8620
+8629 861E 8625 8829 881D 881B 8820 8824 881C 882B
+884A 896D 8969 896E 896B 89FA 8B79 8B78 8B45 8B7A
+8B7B 8D10 8D14 8DAF 8E8E 8E8C 8F5E 8F5B 8F5D 9146
+9144 9145 91B9 943F 943B 9436 9429 943D 943C 9430
+9439 942A 9437 942C 9440 9431 95E5 95E4 95E3 9735
+973A 97BF 97E1 9864 98C9 98C6 98C0 9958 9956 9A39
+9A3D 9A46 9A44 9A42 9A41 9A3A 9A3F 9ACD 9B15 9B17
+9B18 9B16 9B3A 9B52 9C2B 9C1D 9C1C 9C2C 9C23 9C28
+9C29 9C24 9C21 9DB7 9DB6 9DBC 9DC1 9DC7 9DCA 9DCF
+9DBE 9DC5 9DC3 9DBB 9DB5 9DCE 9DB9 9DBA 9DAC 9DC8
+9DB1 9DAD 9DCC 9DB3 9DCD 9DB2 9E7A 9E9C 9EEB 9EEE
+9EED 9F1B 9F18 9F1A 9F31 9F4E 9F65 9F64 9F92 4EB9
+56C6 56C5 56CB 5971 5B4B 5B4C 5DD5 5DD1 5EF2 6521
+6520 6526 6522 6B0B 6B08 6B09 6C0D 7055 7056 7057
+7052 721E 721F 72A9 737F 74D8 74D5 74D9 74D7 766D
+76AD 7935 79B4 7A70 7A71 7C57 7C5C 7C59 7C5B 7C5A
+7CF4 7CF1 7E91 7F4F 7F87 81DE 826B 8634 8635 8633
+862C 8632 8636 882C 8828 8826 882A 8825 8971 89BF
+89BE 89FB 8B7E 8B84 8B82 8B86 8B85 8B7F 8D15 8E95
+8E94 8E9A 8E92 8E90 8E96 8E97 8F60 8F62 9147 944C
+9450 944A 944B 944F 9447 9445 9448 9449 9446 973F
+97E3 986A 9869 98CB 9954 995B 9A4E 9A53 9A54 9A4C
+9A4F 9A48 9A4A 9A49 9A52 9A50 9AD0 9B19 9B2B 9B3B
+9B56 9B55 9C46 9C48 9C3F 9C44 9C39 9C33 9C41 9C3C
+9C37 9C34 9C32 9C3D 9C36 9DDB 9DD2 9DDE 9DDA 9DCB
+9DD0 9DDC 9DD1 9DDF 9DE9 9DD9 9DD8 9DD6 9DF5 9DD5
+9DDD 9EB6 9EF0 9F35 9F33 9F32 9F42 9F6B 9F95 9FA2
+513D 5299 58E8 58E7 5972 5B4D 5DD8 882F 5F4F 6201
+6203 6204 6529 6525 6596 66EB 6B11 6B12 6B0F 6BCA
+705B 705A 7222 7382 7381 7383 7670 77D4 7C67 7C66
+7E95 826C 863A 8640 8639 863C 8631 863B 863E 8830
+8832 882E 8833 8976 8974 8973 89FE 8B8C 8B8E 8B8B
+8B88 8C45 8D19 8E98 8F64 8F63 91BC 9462 9455 945D
+9457 945E 97C4 97C5 9800 9A56 9A59 9B1E 9B1F 9B20
+9C52 9C58 9C50 9C4A 9C4D 9C4B 9C55 9C59 9C4C 9C4E
+9DFB 9DF7 9DEF 9DE3 9DEB 9DF8 9DE4 9DF6 9DE1 9DEE
+9DE6 9DF2 9DF0 9DE2 9DEC 9DF4 9DF3 9DE8 9DED 9EC2
+9ED0 9EF2 9EF3 9F06 9F1C 9F38 9F37 9F36 9F43 9F4F
+9F71 9F70 9F6E 9F6F 56D3 56CD 5B4E 5C6D 652D 66ED
+66EE 6B13 705F 7061 705D 7060 7223 74DB 74E5 77D5
+7938 79B7 79B6 7C6A 7E97 7F89 826D 8643 8838 8837
+8835 884B 8B94 8B95 8E9E 8E9F 8EA0 8E9D 91BE 91BD
+91C2 946B 9468 9469 96E5 9746 9743 9747 97C7 97E5
+9A5E 9AD5 9B59 9C63 9C67 9C66 9C62 9C5E 9C60 9E02
+9DFE 9E07 9E03 9E06 9E05 9E00 9E01 9E09 9DFF 9DFD
+9E04 9EA0 9F1E 9F46 9F74 9F75 9F76 56D4 652E 65B8
+6B18 6B19 6B17 6B1A 7062 7226 72AA 77D8 77D9 7939
+7C69 7C6B 7CF6 7E9A 7E98 7E9B 7E99 81E0 81E1 8646
+8647 8648 8979 897A 897C 897B 89FF 8B98 8B99 8EA5
+8EA4 8EA3 946E 946D 946F 9471 9473 9749 9872 995F
+9C68 9C6E 9C6D 9E0B 9E0D 9E10 9E0F 9E12 9E11 9EA1
+9EF5 9F09 9F47 9F78 9F7B 9F7A 9F79 571E 7066 7C6F
+883C 8DB2 8EA6 91C3 9474 9478 9476 9475 9A60 9C74
+9C73 9C71 9C75 9E14 9E13 9EF6 9F0A 9FA4 7068 7065
+7CF7 866A 883E 883D 883F 8B9E 8C9C 8EA9 8EC9 974B
+9873 9874 98CC 9961 99AB 9A64 9A66 9A67 9B24 9E15
+9E17 9F48 6207 6B1E 7227 864C 8EA8 9482 9480 9481
+9A69 9A68 9B2E 9E19 7229 864B 8B9F 9483 9C79 9EB7
+7675 9A6B 9C7A 9E1D 7069 706A 9EA4 9F7E 9F49 9F98
+__END__
+
+=head1 NAME
+
+Unicode::Collate::CJK::Big5 - weighting CJK Unified Ideographs
+for Unicode::Collate
+
+=head1 SYNOPSIS
+
+    use Unicode::Collate;
+    use Unicode::Collate::CJK::Big5;
+
+    my $collator = Unicode::Collate->new(
+        overrideCJK => \&Unicode::Collate::CJK::Big5::weightBig5
+    );
+
+=head1 DESCRIPTION
+
+C<Unicode::Collate::CJK::Big5> provides C<weightBig5()>,
+that is adequate for C<overrideCJK> of C<Unicode::Collate>
+and makes tailoring of CJK Unified Ideographs in the order
+of CLDR's big5han ordering.
+
+=head1 SEE ALSO
+
+=over 4
+
+=item CLDR - Unicode Common Locale Data Repository
+
+L<http://cldr.unicode.org/>
+
+=item Unicode Locale Data Markup Language (LDML) - UTS #35
+
+L<http://www.unicode.org/reports/tr35/>
+
+=item L<Unicode::Collate>
+
+=item L<Unicode::Collate::Locale>
+
+=back
+
+=cut
diff --git a/lib/5.24.1/Unicode/Collate/CJK/GB2312.pm b/lib/5.24.1/Unicode/Collate/CJK/GB2312.pm
new file mode 100644
index 00000000..f33eb693
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/CJK/GB2312.pm
@@ -0,0 +1,753 @@
+package Unicode::Collate::CJK::GB2312;
+
+use 5.006;
+use strict;
+use warnings;
+
+our $VERSION = '1.14';
+
+my %u2p;
+my $wt = 0x8000;
+
+while (<DATA>) {
+    last if /^__END__/;
+    my @c = split;
+    for my $c (@c) {
+	next if !$c;
+	$u2p{hex($c)} = $wt;
+	$wt++;
+    }
+}
+
+sub weightGB2312 {
+    my $u = shift;
+    return exists $u2p{$u} ? $u2p{$u} : undef;
+}
+
+1;
+__DATA__
+554A 963F 57C3 6328 54CE 5509 54C0 7691 764C 853C
+77EE 827E 788D 7231 9698 978D 6C28 5B89 4FFA 6309
+6697 5CB8 80FA 6848 80AE 6602 76CE 51F9 6556 71AC
+7FF1 8884 50B2 5965 61CA 6FB3 82AD 634C 6252 53ED
+5427 7B06 516B 75A4 5DF4 62D4 8DCB 9776 628A 8019
+575D 9738 7F62 7238 767D 67CF 767E 6446 4F70 8D25
+62DC 7A17 6591 73ED 642C 6273 822C 9881 677F 7248
+626E 62CC 4F34 74E3 534A 529E 7ECA 90A6 5E2E 6886
+699C 8180 7ED1 68D2 78C5 868C 9551 508D 8C24 82DE
+80DE 5305 8912 5265 8584 96F9 4FDD 5821 9971 5B9D
+62B1 62A5 66B4 8C79 9C8D 7206 676F 7891 60B2 5351
+5317 8F88 80CC 8D1D 94A1 500D 72C8 5907 60EB 7119
+88AB 5954 82EF 672C 7B28 5D29 7EF7 752D 6CF5 8E66
+8FF8 903C 9F3B 6BD4 9119 7B14 5F7C 78A7 84D6 853D
+6BD5 6BD9 6BD6 5E01 5E87 75F9 95ED 655D 5F0A 5FC5
+8F9F 58C1 81C2 907F 965B 97AD 8FB9 7F16 8D2C 6241
+4FBF 53D8 535E 8FA8 8FA9 8FAB 904D 6807 5F6A 8198
+8868 9CD6 618B 522B 762A 5F6C 658C 6FD2 6EE8 5BBE
+6448 5175 51B0 67C4 4E19 79C9 997C 70B3 75C5 5E76
+73BB 83E0 64AD 62E8 94B5 6CE2 535A 52C3 640F 94C2
+7B94 4F2F 5E1B 8236 8116 818A 6E24 6CCA 9A73 6355
+535C 54FA 8865 57E0 4E0D 5E03 6B65 7C3F 90E8 6016
+64E6 731C 88C1 6750 624D 8D22 776C 8E29 91C7 5F69
+83DC 8521 9910 53C2 8695 6B8B 60ED 60E8 707F 82CD
+8231 4ED3 6CA7 85CF 64CD 7CD9 69FD 66F9 8349 5395
+7B56 4FA7 518C 6D4B 5C42 8E6D 63D2 53C9 832C 8336
+67E5 78B4 643D 5BDF 5C94 5DEE 8BE7 62C6 67F4 8C7A
+6400 63BA 8749 998B 8C17 7F20 94F2 4EA7 9610 98A4
+660C 7316 573A 5C1D 5E38 957F 507F 80A0 5382 655E
+7545 5531 5021 8D85 6284 949E 671D 5632 6F6E 5DE2
+5435 7092 8F66 626F 64A4 63A3 5F7B 6F88 90F4 81E3
+8FB0 5C18 6668 5FF1 6C89 9648 8D81 886C 6491 79F0
+57CE 6A59 6210 5448 4E58 7A0B 60E9 6F84 8BDA 627F
+901E 9A8B 79E4 5403 75F4 6301 5319 6C60 8FDF 5F1B
+9A70 803B 9F7F 4F88 5C3A 8D64 7FC5 65A5 70BD 5145
+51B2 866B 5D07 5BA0 62BD 916C 7574 8E0C 7A20 6101
+7B79 4EC7 7EF8 7785 4E11 81ED 521D 51FA 6A71 53A8
+8E87 9504 96CF 6EC1 9664 695A 7840 50A8 77D7 6410
+89E6 5904 63E3 5DDD 7A7F 693D 4F20 8239 5598 4E32
+75AE 7A97 5E62 5E8A 95EF 521B 5439 708A 6376 9524
+5782 6625 693F 9187 5507 6DF3 7EAF 8822 6233 7EF0
+75B5 8328 78C1 96CC 8F9E 6148 74F7 8BCD 6B64 523A
+8D50 6B21 806A 8471 56F1 5306 4ECE 4E1B 51D1 7C97
+918B 7C07 4FC3 8E7F 7BE1 7A9C 6467 5D14 50AC 8106
+7601 7CB9 6DEC 7FE0 6751 5B58 5BF8 78CB 64AE 6413
+63AA 632B 9519 642D 8FBE 7B54 7629 6253 5927 5446
+6B79 50A3 6234 5E26 6B86 4EE3 8D37 888B 5F85 902E
+6020 803D 62C5 4E39 5355 90F8 63B8 80C6 65E6 6C2E
+4F46 60EE 6DE1 8BDE 5F39 86CB 5F53 6321 515A 8361
+6863 5200 6363 8E48 5012 5C9B 7977 5BFC 5230 7A3B
+60BC 9053 76D7 5FB7 5F97 7684 8E6C 706F 767B 7B49
+77AA 51F3 9093 5824 4F4E 6EF4 8FEA 654C 7B1B 72C4
+6DA4 7FDF 5AE1 62B5 5E95 5730 8482 7B2C 5E1D 5F1F
+9012 7F14 98A0 6382 6EC7 7898 70B9 5178 975B 57AB
+7535 4F43 7538 5E97 60E6 5960 6DC0 6BBF 7889 53FC
+96D5 51CB 5201 6389 540A 9493 8C03 8DCC 7239 789F
+8776 8FED 8C0D 53E0 4E01 76EF 53EE 9489 9876 9F0E
+952D 5B9A 8BA2 4E22 4E1C 51AC 8463 61C2 52A8 680B
+4F97 606B 51BB 6D1E 515C 6296 6597 9661 8C46 9017
+75D8 90FD 7763 6BD2 728A 72EC 8BFB 5835 7779 8D4C
+675C 9540 809A 5EA6 6E21 5992 7AEF 77ED 953B 6BB5
+65AD 7F0E 5806 5151 961F 5BF9 58A9 5428 8E72 6566
+987F 56E4 949D 76FE 9041 6387 54C6 591A 593A 579B
+8EB2 6735 8DFA 8235 5241 60F0 5815 86FE 5CE8 9E45
+4FC4 989D 8BB9 5A25 6076 5384 627C 904F 9102 997F
+6069 800C 513F 8033 5C14 9975 6D31 4E8C 8D30 53D1
+7F5A 7B4F 4F10 4E4F 9600 6CD5 73D0 85E9 5E06 756A
+7FFB 6A0A 77FE 9492 7E41 51E1 70E6 53CD 8FD4 8303
+8D29 72AF 996D 6CDB 574A 82B3 65B9 80AA 623F 9632
+59A8 4EFF 8BBF 7EBA 653E 83F2 975E 5561 98DE 80A5
+532A 8BFD 5420 80BA 5E9F 6CB8 8D39 82AC 915A 5429
+6C1B 5206 7EB7 575F 711A 6C7E 7C89 594B 4EFD 5FFF
+6124 7CAA 4E30 5C01 67AB 8702 5CF0 950B 98CE 75AF
+70FD 9022 51AF 7F1D 8BBD 5949 51E4 4F5B 5426 592B
+6577 80A4 5B75 6276 62C2 8F90 5E45 6C1F 7B26 4F0F
+4FD8 670D 6D6E 6DAA 798F 88B1 5F17 752B 629A 8F85
+4FEF 91DC 65A7 812F 8151 5E9C 8150 8D74 526F 8986
+8D4B 590D 5085 4ED8 961C 7236 8179 8D1F 5BCC 8BA3
+9644 5987 7F1A 5490 5676 560E 8BE5 6539 6982 9499
+76D6 6E89 5E72 7518 6746 67D1 7AFF 809D 8D76 611F
+79C6 6562 8D63 5188 521A 94A2 7F38 809B 7EB2 5C97
+6E2F 6760 7BD9 768B 9AD8 818F 7F94 7CD5 641E 9550
+7A3F 544A 54E5 6B4C 6401 6208 9E3D 80F3 7599 5272
+9769 845B 683C 86E4 9601 9694 94EC 4E2A 5404 7ED9
+6839 8DDF 8015 66F4 5E9A 7FB9 57C2 803F 6897 5DE5
+653B 529F 606D 9F9A 4F9B 8EAC 516C 5BAB 5F13 5DE9
+6C5E 62F1 8D21 5171 94A9 52FE 6C9F 82DF 72D7 57A2
+6784 8D2D 591F 8F9C 83C7 5495 7B8D 4F30 6CBD 5B64
+59D1 9F13 53E4 86CA 9AA8 8C37 80A1 6545 987E 56FA
+96C7 522E 74DC 5250 5BE1 6302 8902 4E56 62D0 602A
+68FA 5173 5B98 51A0 89C2 7BA1 9986 7F50 60EF 704C
+8D2F 5149 5E7F 901B 7470 89C4 572D 7845 5F52 9F9F
+95FA 8F68 9B3C 8BE1 7678 6842 67DC 8DEA 8D35 523D
+8F8A 6EDA 68CD 9505 90ED 56FD 679C 88F9 8FC7 54C8
+9AB8 5B69 6D77 6C26 4EA5 5BB3 9A87 9163 61A8 90AF
+97E9 542B 6DB5 5BD2 51FD 558A 7F55 7FF0 64BC 634D
+65F1 61BE 608D 710A 6C57 6C49 592F 676D 822A 58D5
+568E 8C6A 6BEB 90DD 597D 8017 53F7 6D69 5475 559D
+8377 83CF 6838 79BE 548C 4F55 5408 76D2 8C89 9602
+6CB3 6DB8 8D6B 8910 9E64 8D3A 563F 9ED1 75D5 5F88
+72E0 6068 54FC 4EA8 6A2A 8861 6052 8F70 54C4 70D8
+8679 9E3F 6D2A 5B8F 5F18 7EA2 5589 4FAF 7334 543C
+539A 5019 540E 547C 4E4E 5FFD 745A 58F6 846B 80E1
+8774 72D0 7CCA 6E56 5F27 864E 552C 62A4 4E92 6CAA
+6237 82B1 54D7 534E 733E 6ED1 753B 5212 5316 8BDD
+69D0 5F8A 6000 6DEE 574F 6B22 73AF 6853 8FD8 7F13
+6362 60A3 5524 75EA 8C62 7115 6DA3 5BA6 5E7B 8352
+614C 9EC4 78FA 8757 7C27 7687 51F0 60F6 714C 6643
+5E4C 604D 8C0E 7070 6325 8F89 5FBD 6062 86D4 56DE
+6BC1 6094 6167 5349 60E0 6666 8D3F 79FD 4F1A 70E9
+6C47 8BB3 8BF2 7ED8 8364 660F 5A5A 9B42 6D51 6DF7
+8C41 6D3B 4F19 706B 83B7 6216 60D1 970D 8D27 7978
+51FB 573E 57FA 673A 7578 7A3D 79EF 7B95 808C 9965
+8FF9 6FC0 8BA5 9E21 59EC 7EE9 7F09 5409 6781 68D8
+8F91 7C4D 96C6 53CA 6025 75BE 6C72 5373 5AC9 7EA7
+6324 51E0 810A 5DF1 84DF 6280 5180 5B63 4F0E 796D
+5242 60B8 6D4E 5BC4 5BC2 8BA1 8BB0 65E2 5FCC 9645
+5993 7EE7 7EAA 5609 67B7 5939 4F73 5BB6 52A0 835A
+988A 8D3E 7532 94BE 5047 7A3C 4EF7 67B6 9A7E 5AC1
+6B7C 76D1 575A 5C16 7B3A 95F4 714E 517C 80A9 8270
+5978 7F04 8327 68C0 67EC 78B1 7877 62E3 6361 7B80
+4FED 526A 51CF 8350 69DB 9274 8DF5 8D31 89C1 952E
+7BAD 4EF6 5065 8230 5251 996F 6E10 6E85 6DA7 5EFA
+50F5 59DC 5C06 6D46 6C5F 7586 848B 6868 5956 8BB2
+5320 9171 964D 8549 6912 7901 7126 80F6 4EA4 90CA
+6D47 9A84 5A07 56BC 6405 94F0 77EB 4FA5 811A 72E1
+89D2 997A 7F34 7EDE 527F 6559 9175 8F7F 8F83 53EB
+7A96 63ED 63A5 7686 79F8 8857 9636 622A 52AB 8282
+6854 6770 6377 776B 7AED 6D01 7ED3 89E3 59D0 6212
+85C9 82A5 754C 501F 4ECB 75A5 8BEB 5C4A 5DFE 7B4B
+65A4 91D1 4ECA 6D25 895F 7D27 9526 4EC5 8C28 8FDB
+9773 664B 7981 8FD1 70EC 6D78 5C3D 52B2 8346 5162
+830E 775B 6676 9CB8 4EAC 60CA 7CBE 7CB3 7ECF 4E95
+8B66 666F 9888 9759 5883 656C 955C 5F84 75C9 9756
+7ADF 7ADE 51C0 70AF 7A98 63EA 7A76 7EA0 7396 97ED
+4E45 7078 4E5D 9152 53A9 6551 65E7 81FC 8205 548E
+5C31 759A 97A0 62D8 72D9 75BD 5C45 9A79 83CA 5C40
+5480 77E9 4E3E 6CAE 805A 62D2 636E 5DE8 5177 8DDD
+8E1E 952F 4FF1 53E5 60E7 70AC 5267 6350 9E43 5A1F
+5026 7737 5377 7EE2 6485 652B 6289 6398 5014 7235
+89C9 51B3 8BC0 7EDD 5747 83CC 94A7 519B 541B 5CFB
+4FCA 7AE3 6D5A 90E1 9A8F 5580 5496 5361 54AF 5F00
+63E9 6977 51EF 6168 520A 582A 52D8 574E 780D 770B
+5EB7 6177 7CE0 625B 6297 4EA2 7095 8003 62F7 70E4
+9760 5777 82DB 67EF 68F5 78D5 9897 79D1 58F3 54B3
+53EF 6E34 514B 523B 5BA2 8BFE 80AF 5543 57A6 6073
+5751 542D 7A7A 6050 5B54 63A7 62A0 53E3 6263 5BC7
+67AF 54ED 7A9F 82E6 9177 5E93 88E4 5938 57AE 630E
+8DE8 80EF 5757 7B77 4FA9 5FEB 5BBD 6B3E 5321 7B50
+72C2 6846 77FF 7736 65F7 51B5 4E8F 76D4 5CBF 7AA5
+8475 594E 9B41 5080 9988 6127 6E83 5764 6606 6346
+56F0 62EC 6269 5ED3 9614 5783 62C9 5587 8721 814A
+8FA3 5566 83B1 6765 8D56 84DD 5A6A 680F 62E6 7BEE
+9611 5170 6F9C 8C30 63FD 89C8 61D2 7F06 70C2 6EE5
+7405 6994 72FC 5ECA 90CE 6717 6D6A 635E 52B3 7262
+8001 4F6C 59E5 916A 70D9 6D9D 52D2 4E50 96F7 956D
+857E 78CA 7D2F 5121 5792 64C2 808B 7C7B 6CEA 68F1
+695E 51B7 5398 68A8 7281 9ECE 7BF1 72F8 79BB 6F13
+7406 674E 91CC 9CA4 793C 8389 8354 540F 6817 4E3D
+5389 52B1 783E 5386 5229 5088 4F8B 4FD0 75E2 7ACB
+7C92 6CA5 96B6 529B 7483 54E9 4FE9 8054 83B2 8FDE
+9570 5EC9 601C 6D9F 5E18 655B 8138 94FE 604B 70BC
+7EC3 7CAE 51C9 6881 7CB1 826F 4E24 8F86 91CF 667E
+4EAE 8C05 64A9 804A 50DA 7597 71CE 5BE5 8FBD 6F66
+4E86 6482 9563 5ED6 6599 5217 88C2 70C8 52A3 730E
+7433 6797 78F7 9716 4E34 90BB 9CDE 6DCB 51DB 8D41
+541D 62CE 73B2 83F1 96F6 9F84 94C3 4F36 7F9A 51CC
+7075 9675 5CAD 9886 53E6 4EE4 6E9C 7409 69B4 786B
+998F 7559 5218 7624 6D41 67F3 516D 9F99 804B 5499
+7B3C 7ABF 9686 5784 62E2 9647 697C 5A04 6402 7BD3
+6F0F 964B 82A6 5362 9885 5E90 7089 63B3 5364 864F
+9C81 9E93 788C 9732 8DEF 8D42 9E7F 6F5E 7984 5F55
+9646 622E 9A74 5415 94DD 4FA3 65C5 5C65 5C61 7F15
+8651 6C2F 5F8B 7387 6EE4 7EFF 5CE6 631B 5B6A 6EE6
+5375 4E71 63A0 7565 62A1 8F6E 4F26 4ED1 6CA6 7EB6
+8BBA 841D 87BA 7F57 903B 9523 7BA9 9AA1 88F8 843D
+6D1B 9A86 7EDC 5988 9EBB 739B 7801 8682 9A6C 9A82
+561B 5417 57CB 4E70 9EA6 5356 8FC8 8109 7792 9992
+86EE 6EE1 8513 66FC 6162 6F2B 8C29 8292 832B 76F2
+6C13 5FD9 83BD 732B 8305 951A 6BDB 77DB 94C6 536F
+8302 5192 5E3D 8C8C 8D38 4E48 73AB 679A 6885 9176
+9709 7164 6CA1 7709 5A92 9541 6BCF 7F8E 6627 5BD0
+59B9 5A9A 95E8 95F7 4EEC 840C 8499 6AAC 76DF 9530
+731B 68A6 5B5F 772F 919A 9761 7CDC 8FF7 8C1C 5F25
+7C73 79D8 89C5 6CCC 871C 5BC6 5E42 68C9 7720 7EF5
+5195 514D 52C9 5A29 7F05 9762 82D7 63CF 7784 85D0
+79D2 6E3A 5E99 5999 8511 706D 6C11 62BF 76BF 654F
+60AF 95FD 660E 879F 9E23 94ED 540D 547D 8C2C 6478
+6479 8611 6A21 819C 78E8 6469 9B54 62B9 672B 83AB
+58A8 9ED8 6CAB 6F20 5BDE 964C 8C0B 725F 67D0 62C7
+7261 4EA9 59C6 6BCD 5893 66AE 5E55 52DF 6155 6728
+76EE 7766 7267 7A46 62FF 54EA 5450 94A0 90A3 5A1C
+7EB3 6C16 4E43 5976 8010 5948 5357 7537 96BE 56CA
+6320 8111 607C 95F9 6DD6 5462 9981 5185 5AE9 80FD
+59AE 9713 502A 6CE5 5C3C 62DF 4F60 533F 817B 9006
+6EBA 852B 62C8 5E74 78BE 64B5 637B 5FF5 5A18 917F
+9E1F 5C3F 634F 8042 5B7D 556E 954A 954D 6D85 60A8
+67E0 72DE 51DD 5B81 62E7 6CDE 725B 626D 94AE 7EBD
+8113 6D53 519C 5F04 5974 52AA 6012 5973 6696 8650
+759F 632A 61E6 7CEF 8BFA 54E6 6B27 9E25 6BB4 85D5
+5455 5076 6CA4 556A 8DB4 722C 5E15 6015 7436 62CD
+6392 724C 5F98 6E43 6D3E 6500 6F58 76D8 78D0 76FC
+7554 5224 53DB 4E53 5E9E 65C1 802A 80D6 629B 5486
+5228 70AE 888D 8DD1 6CE1 5478 80DA 57F9 88F4 8D54
+966A 914D 4F69 6C9B 55B7 76C6 7830 62A8 70F9 6F8E
+5F6D 84EC 68DA 787C 7BF7 81A8 670B 9E4F 6367 78B0
+576F 7812 9739 6279 62AB 5288 7435 6BD7 5564 813E
+75B2 76AE 5339 75DE 50FB 5C41 8B6C 7BC7 504F 7247
+9A97 98D8 6F02 74E2 7968 6487 77A5 62FC 9891 8D2B
+54C1 8058 4E52 576A 82F9 840D 5E73 51ED 74F6 8BC4
+5C4F 5761 6CFC 9887 5A46 7834 9B44 8FEB 7C95 5256
+6251 94FA 4EC6 8386 8461 83E9 84B2 57D4 6734 5703
+666E 6D66 8C31 66DD 7011 671F 6B3A 6816 621A 59BB
+4E03 51C4 6F06 67D2 6C8F 5176 68CB 5947 6B67 7566
+5D0E 8110 9F50 65D7 7948 7941 9A91 8D77 5C82 4E5E
+4F01 542F 5951 780C 5668 6C14 8FC4 5F03 6C7D 6CE3
+8BAB 6390 6070 6D3D 7275 6266 948E 94C5 5343 8FC1
+7B7E 4EDF 8C26 4E7E 9ED4 94B1 94B3 524D 6F5C 9063
+6D45 8C34 5811 5D4C 6B20 6B49 67AA 545B 8154 7F8C
+5899 8537 5F3A 62A2 6A47 9539 6572 6084 6865 77A7
+4E54 4FA8 5DE7 9798 64AC 7FD8 5CED 4FCF 7A8D 5207
+8304 4E14 602F 7A83 94A6 4FB5 4EB2 79E6 7434 52E4
+82B9 64D2 79BD 5BDD 6C81 9752 8F7B 6C22 503E 537F
+6E05 64CE 6674 6C30 60C5 9877 8BF7 5E86 743C 7A77
+79CB 4E18 90B1 7403 6C42 56DA 914B 6CC5 8D8B 533A
+86C6 66F2 8EAF 5C48 9A71 6E20 53D6 5A36 9F8B 8DA3
+53BB 5708 98A7 6743 919B 6CC9 5168 75CA 62F3 72AC
+5238 529D 7F3A 7094 7638 5374 9E4A 69B7 786E 96C0
+88D9 7FA4 7136 71C3 5189 67D3 74E4 58E4 6518 56B7
+8BA9 9976 6270 7ED5 60F9 70ED 58EC 4EC1 4EBA 5FCD
+97E7 4EFB 8BA4 5203 598A 7EAB 6254 4ECD 65E5 620E
+8338 84C9 8363 878D 7194 6EB6 5BB9 7ED2 5197 63C9
+67D4 8089 8339 8815 5112 5B7A 5982 8FB1 4E73 6C5D
+5165 8925 8F6F 962E 854A 745E 9510 95F0 6DA6 82E5
+5F31 6492 6D12 8428 816E 9CC3 585E 8D5B 4E09 53C1
+4F1E 6563 6851 55D3 4E27 6414 9A9A 626B 5AC2 745F
+8272 6DA9 68EE 50E7 838E 7802 6740 5239 6C99 7EB1
+50BB 5565 715E 7B5B 6652 73CA 82EB 6749 5C71 5220
+717D 886B 95EA 9655 64C5 8D61 81B3 5584 6C55 6247
+7F2E 5892 4F24 5546 8D4F 664C 4E0A 5C1A 88F3 68A2
+634E 7A0D 70E7 828D 52FA 97F6 5C11 54E8 90B5 7ECD
+5962 8D4A 86C7 820C 820D 8D66 6444 5C04 6151 6D89
+793E 8BBE 7837 7533 547B 4F38 8EAB 6DF1 5A20 7EC5
+795E 6C88 5BA1 5A76 751A 80BE 614E 6E17 58F0 751F
+7525 7272 5347 7EF3 7701 76DB 5269 80DC 5723 5E08
+5931 72EE 65BD 6E7F 8BD7 5C38 8671 5341 77F3 62FE
+65F6 4EC0 98DF 8680 5B9E 8BC6 53F2 77E2 4F7F 5C4E
+9A76 59CB 5F0F 793A 58EB 4E16 67FF 4E8B 62ED 8A93
+901D 52BF 662F 55DC 566C 9002 4ED5 4F8D 91CA 9970
+6C0F 5E02 6043 5BA4 89C6 8BD5 6536 624B 9996 5B88
+5BFF 6388 552E 53D7 7626 517D 852C 67A2 68B3 6B8A
+6292 8F93 53D4 8212 6DD1 758F 4E66 8D4E 5B70 719F
+85AF 6691 66D9 7F72 8700 9ECD 9F20 5C5E 672F 8FF0
+6811 675F 620D 7AD6 5885 5EB6 6570 6F31 6055 5237
+800D 6454 8870 7529 5E05 6813 62F4 971C 53CC 723D
+8C01 6C34 7761 7A0E 542E 77AC 987A 821C 8BF4 7855
+6714 70C1 65AF 6495 5636 601D 79C1 53F8 4E1D 6B7B
+8086 5BFA 55E3 56DB 4F3A 4F3C 9972 5DF3 677E 8038
+6002 9882 9001 5B8B 8BBC 8BF5 641C 8258 64DE 55FD
+82CF 9165 4FD7 7D20 901F 7C9F 50F3 5851 6EAF 5BBF
+8BC9 8083 9178 849C 7B97 867D 968B 968F 7EE5 9AD3
+788E 5C81 7A57 9042 96A7 795F 5B59 635F 7B0B 84D1
+68AD 5506 7F29 7410 7D22 9501 6240 584C 4ED6 5B83
+5979 5854 736D 631E 8E4B 8E0F 80CE 82D4 62AC 53F0
+6CF0 915E 592A 6001 6C70 574D 644A 8D2A 762B 6EE9
+575B 6A80 75F0 6F6D 8C2D 8C08 5766 6BEF 8892 78B3
+63A2 53F9 70AD 6C64 5858 642A 5802 68E0 819B 5510
+7CD6 5018 8EBA 6DCC 8D9F 70EB 638F 6D9B 6ED4 7EE6
+8404 6843 9003 6DD8 9676 8BA8 5957 7279 85E4 817E
+75BC 8A8A 68AF 5254 8E22 9511 63D0 9898 8E44 557C
+4F53 66FF 568F 60D5 6D95 5243 5C49 5929 6DFB 586B
+7530 751C 606C 8214 8146 6311 6761 8FE2 773A 8DF3
+8D34 94C1 5E16 5385 542C 70C3 6C40 5EF7 505C 4EAD
+5EAD 633A 8247 901A 6850 916E 77B3 540C 94DC 5F64
+7AE5 6876 6345 7B52 7EDF 75DB 5077 6295 5934 900F
+51F8 79C3 7A81 56FE 5F92 9014 6D82 5C60 571F 5410
+5154 6E4D 56E2 63A8 9893 817F 8715 892A 9000 541E
+5C6F 81C0 62D6 6258 8131 9E35 9640 9A6E 9A7C 692D
+59A5 62D3 553E 6316 54C7 86D9 6D3C 5A03 74E6 889C
+6B6A 5916 8C4C 5F2F 6E7E 73A9 987D 4E38 70F7 5B8C
+7897 633D 665A 7696 60CB 5B9B 5A49 4E07 8155 6C6A
+738B 4EA1 6789 7F51 5F80 65FA 671B 5FD8 5984 5A01
+5DCD 5FAE 5371 97E6 8FDD 6845 56F4 552F 60DF 4E3A
+6F4D 7EF4 82C7 840E 59D4 4F1F 4F2A 5C3E 7EAC 672A
+851A 5473 754F 80C3 5582 9B4F 4F4D 6E2D 8C13 5C09
+6170 536B 761F 6E29 868A 6587 95FB 7EB9 543B 7A33
+7D0A 95EE 55E1 7FC1 74EE 631D 8717 6DA1 7A9D 6211
+65A1 5367 63E1 6C83 5DEB 545C 94A8 4E4C 6C61 8BEC
+5C4B 65E0 829C 68A7 543E 5434 6BCB 6B66 4E94 6342
+5348 821E 4F0D 4FAE 575E 620A 96FE 6664 7269 52FF
+52A1 609F 8BEF 6614 7199 6790 897F 7852 77FD 6670
+563B 5438 9521 727A 7A00 606F 5E0C 6089 819D 5915
+60DC 7184 70EF 6EAA 6C50 7280 6A84 88AD 5E2D 4E60
+5AB3 559C 94E3 6D17 7CFB 9699 620F 7EC6 778E 867E
+5323 971E 8F96 6687 5CE1 4FA0 72ED 4E0B 53A6 590F
+5413 6380 9528 5148 4ED9 9C9C 7EA4 54B8 8D24 8854
+8237 95F2 6D8E 5F26 5ACC 663E 9669 73B0 732E 53BF
+817A 9985 7FA1 5BAA 9677 9650 7EBF 76F8 53A2 9576
+9999 7BB1 8944 6E58 4E61 7FD4 7965 8BE6 60F3 54CD
+4EAB 9879 5DF7 6A61 50CF 5411 8C61 8427 785D 9704
+524A 54EE 56A3 9500 6D88 5BB5 6DC6 6653 5C0F 5B5D
+6821 8096 5578 7B11 6548 6954 4E9B 6B47 874E 978B
+534F 631F 643A 90AA 659C 80C1 8C10 5199 68B0 5378
+87F9 61C8 6CC4 6CFB 8C22 5C51 85AA 82AF 950C 6B23
+8F9B 65B0 5FFB 5FC3 4FE1 8845 661F 8165 7329 60FA
+5174 5211 578B 5F62 90A2 884C 9192 5E78 674F 6027
+59D3 5144 51F6 80F8 5308 6C79 96C4 718A 4F11 4FEE
+7F9E 673D 55C5 9508 79C0 8896 7EE3 589F 620C 9700
+865A 5618 987B 5F90 8BB8 84C4 9157 53D9 65ED 5E8F
+755C 6064 7D6E 5A7F 7EEA 7EED 8F69 55A7 5BA3 60AC
+65CB 7384 9009 7663 7729 7EDA 9774 859B 5B66 7A74
+96EA 8840 52CB 718F 5FAA 65EC 8BE2 5BFB 9A6F 5DE1
+6B89 6C5B 8BAD 8BAF 900A 8FC5 538B 62BC 9E26 9E2D
+5440 4E2B 82BD 7259 869C 5D16 8859 6DAF 96C5 54D1
+4E9A 8BB6 7109 54BD 9609 70DF 6DF9 76D0 4E25 7814
+8712 5CA9 5EF6 8A00 989C 960E 708E 6CBF 5944 63A9
+773C 884D 6F14 8273 5830 71D5 538C 781A 96C1 5501
+5F66 7130 5BB4 8C1A 9A8C 6B83 592E 9E2F 79E7 6768
+626C 4F6F 75A1 7F8A 6D0B 9633 6C27 4EF0 75D2 517B
+6837 6F3E 9080 8170 5996 7476 6447 5C27 9065 7A91
+8C23 59DA 54AC 8200 836F 8981 8000 6930 564E 8036
+7237 91CE 51B6 4E5F 9875 6396 4E1A 53F6 66F3 814B
+591C 6DB2 4E00 58F9 533B 63D6 94F1 4F9D 4F0A 8863
+9890 5937 9057 79FB 4EEA 80F0 7591 6C82 5B9C 59E8
+5F5D 6905 8681 501A 5DF2 4E59 77E3 4EE5 827A 6291
+6613 9091 5C79 4EBF 5F79 81C6 9038 8084 75AB 4EA6
+88D4 610F 6BC5 5FC6 4E49 76CA 6EA2 8BE3 8BAE 8C0A
+8BD1 5F02 7FFC 7FCC 7ECE 8335 836B 56E0 6BB7 97F3
+9634 59FB 541F 94F6 6DEB 5BC5 996E 5C39 5F15 9690
+5370 82F1 6A31 5A74 9E70 5E94 7F28 83B9 8424 8425
+8367 8747 8FCE 8D62 76C8 5F71 9896 786C 6620 54DF
+62E5 4F63 81C3 75C8 5EB8 96CD 8E0A 86F9 548F 6CF3
+6D8C 6C38 607F 52C7 7528 5E7D 4F18 60A0 5FE7 5C24
+7531 90AE 94C0 72B9 6CB9 6E38 9149 6709 53CB 53F3
+4F51 91C9 8BF1 53C8 5E7C 8FC2 6DE4 4E8E 76C2 6986
+865E 611A 8206 4F59 4FDE 903E 9C7C 6109 6E1D 6E14
+9685 4E88 5A31 96E8 4E0E 5C7F 79B9 5B87 8BED 7FBD
+7389 57DF 828B 90C1 5401 9047 55BB 5CEA 5FA1 6108
+6B32 72F1 80B2 8A89 6D74 5BD3 88D5 9884 8C6B 9A6D
+9E33 6E0A 51A4 5143 57A3 8881 539F 63F4 8F95 56ED
+5458 5706 733F 6E90 7F18 8FDC 82D1 613F 6028 9662
+66F0 7EA6 8D8A 8DC3 94A5 5CB3 7CA4 6708 60A6 9605
+8018 4E91 90E7 5300 9668 5141 8FD0 8574 915D 6655
+97F5 5B55 531D 7838 6742 683D 54C9 707E 5BB0 8F7D
+518D 5728 54B1 6512 6682 8D5E 8D43 810F 846C 906D
+7CDF 51FF 85FB 67A3 65E9 6FA1 86A4 8E81 566A 9020
+7682 7076 71E5 8D23 62E9 5219 6CFD 8D3C 600E 589E
+618E 66FE 8D60 624E 55B3 6E23 672D 8F67 94E1 95F8
+7728 6805 69A8 548B 4E4D 70B8 8BC8 6458 658B 5B85
+7A84 503A 5BE8 77BB 6BE1 8A79 7C98 6CBE 76CF 65A9
+8F97 5D2D 5C55 8638 6808 5360 6218 7AD9 6E5B 7EFD
+6A1F 7AE0 5F70 6F33 5F20 638C 6DA8 6756 4E08 5E10
+8D26 4ED7 80C0 7634 969C 62DB 662D 627E 6CBC 8D75
+7167 7F69 5146 8087 53EC 906E 6298 54F2 86F0 8F99
+8005 9517 8517 8FD9 6D59 73CD 659F 771F 7504 7827
+81FB 8D1E 9488 4FA6 6795 75B9 8BCA 9707 632F 9547
+9635 84B8 6323 7741 5F81 72F0 4E89 6014 6574 62EF
+6B63 653F 5E27 75C7 90D1 8BC1 829D 679D 652F 5431
+8718 77E5 80A2 8102 6C41 4E4B 7EC7 804C 76F4 690D
+6B96 6267 503C 4F84 5740 6307 6B62 8DBE 53EA 65E8
+7EB8 5FD7 631A 63B7 81F3 81F4 7F6E 5E1C 5CD9 5236
+667A 79E9 7A1A 8D28 7099 75D4 6EDE 6CBB 7A92 4E2D
+76C5 5FE0 949F 8877 7EC8 79CD 80BF 91CD 4EF2 4F17
+821F 5468 5DDE 6D32 8BCC 7CA5 8F74 8098 5E1A 5492
+76B1 5B99 663C 9AA4 73E0 682A 86DB 6731 732A 8BF8
+8BDB 9010 7AF9 70DB 716E 62C4 77A9 5631 4E3B 8457
+67F1 52A9 86C0 8D2E 94F8 7B51 4F4F 6CE8 795D 9A7B
+6293 722A 62FD 4E13 7816 8F6C 64B0 8D5A 7BC6 6869
+5E84 88C5 5986 649E 58EE 72B6 690E 9525 8FFD 8D58
+5760 7F00 8C06 51C6 6349 62D9 5353 684C 7422 8301
+914C 5544 7740 707C 6D4A 5179 54A8 8D44 59FF 6ECB
+6DC4 5B5C 7D2B 4ED4 7C7D 6ED3 5B50 81EA 6E0D 5B57
+9B03 68D5 8E2A 5B97 7EFC 603B 7EB5 90B9 8D70 594F
+63CD 79DF 8DB3 5352 65CF 7956 8BC5 963B 7EC4 94BB
+7E82 5634 9189 6700 7F6A 5C0A 9075 6628 5DE6 4F50
+67DE 505A 4F5C 5750 5EA7 E2D8 E2D9 E2DA E2DB E2DC
+4E8D 4E0C 5140 4E10 5EFF 5345 4E15 4E98 4E1E 9B32
+5B6C 5669 4E28 79BA 4E3F 5315 4E47 592D 723B 536E
+6C10 56DF 80E4 9997 6BD3 777E 9F17 4E36 4E9F 9F10
+4E5C 4E69 4E93 8288 5B5B 556C 560F 4EC4 538D 539D
+53A3 53A5 53AE 9765 8D5D 531A 53F5 5326 532E 533E
+8D5C 5366 5363 5202 5208 520E 522D 5233 523F 5240
+524C 525E 5261 525C 84AF 527D 5282 5281 5290 5293
+5182 7F54 4EBB 4EC3 4EC9 4EC2 4EE8 4EE1 4EEB 4EDE
+4F1B 4EF3 4F22 4F64 4EF5 4F25 4F27 4F09 4F2B 4F5E
+4F67 6538 4F5A 4F5D 4F5F 4F57 4F32 4F3D 4F76 4F74
+4F91 4F89 4F83 4F8F 4F7E 4F7B 4FAA 4F7C 4FAC 4F94
+4FE6 4FE8 4FEA 4FC5 4FDA 4FE3 4FDC 4FD1 4FDF 4FF8
+5029 504C 4FF3 502C 500F 502E 502D 4FFE 501C 500C
+5025 5028 507E 5043 5055 5048 504E 506C 507B 50A5
+50A7 50A9 50BA 50D6 5106 50ED 50EC 50E6 50EE 5107
+510B 4EDD 6C3D 4F58 4F65 4FCE 9FA0 6C46 7C74 516E
+5DFD 9EC9 9998 5181 5914 52F9 530D 8A07 5310 51EB
+5919 5155 4EA0 5156 4EB3 886E 88A4 4EB5 8114 88D2
+7980 5B34 8803 7FB8 51AB 51B1 51BD 51BC 51C7 5196
+51A2 51A5 8BA0 8BA6 8BA7 8BAA 8BB4 8BB5 8BB7 8BC2
+8BC3 8BCB 8BCF 8BCE 8BD2 8BD3 8BD4 8BD6 8BD8 8BD9
+8BDC 8BDF 8BE0 8BE4 8BE8 8BE9 8BEE 8BF0 8BF3 8BF6
+8BF9 8BFC 8BFF 8C00 8C02 8C04 8C07 8C0C 8C0F 8C11
+8C12 8C14 8C15 8C16 8C19 8C1B 8C18 8C1D 8C1F 8C20
+8C21 8C25 8C27 8C2A 8C2B 8C2E 8C2F 8C32 8C33 8C35
+8C36 5369 537A 961D 9622 9621 9631 962A 963D 963C
+9642 9649 9654 965F 9667 966C 9672 9674 9688 968D
+9697 96B0 9097 909B 909D 9099 90AC 90A1 90B4 90B3
+90B6 90BA 90B8 90B0 90CF 90C5 90BE 90D0 90C4 90C7
+90D3 90E6 90E2 90DC 90D7 90DB 90EB 90EF 90FE 9104
+9122 911E 9123 9131 912F 9139 9143 9146 520D 5942
+52A2 52AC 52AD 52BE 54FF 52D0 52D6 52F0 53DF 71EE
+77CD 5EF4 51F5 51FC 9B2F 53B6 5F01 755A 5DEF 574C
+57A9 57A1 587E 58BC 58C5 58D1 5729 572C 572A 5733
+5739 572E 572F 575C 573B 5742 5769 5785 576B 5786
+577C 577B 5768 576D 5776 5773 57AD 57A4 578C 57B2
+57CF 57A7 57B4 5793 57A0 57D5 57D8 57DA 57D9 57D2
+57B8 57F4 57EF 57F8 57E4 57DD 580B 580D 57FD 57ED
+5800 581E 5819 5844 5820 5865 586C 5881 5889 589A
+5880 99A8 9F19 61FF 8279 827D 827F 828F 828A 82A8
+8284 828E 8291 8297 8299 82AB 82B8 82BE 82B0 82C8
+82CA 82E3 8298 82B7 82AE 82CB 82CC 82C1 82A9 82B4
+82A1 82AA 829F 82C4 82CE 82A4 82E1 8309 82F7 82E4
+830F 8307 82DC 82F4 82D2 82D8 830C 82FB 82D3 8311
+831A 8306 8314 8315 82E0 82D5 831C 8351 835B 835C
+8308 8392 833C 8334 8331 839B 835E 832F 834F 8347
+8343 835F 8340 8317 8360 832D 833A 8333 8366 8365
+8368 831B 8369 836C 836A 836D 836E 83B0 8378 83B3
+83B4 83A0 83AA 8393 839C 8385 837C 83B6 83A9 837D
+83B8 837B 8398 839E 83A8 83BA 83BC 83C1 8401 83E5
+83D8 5807 8418 840B 83DD 83FD 83D6 841C 8438 8411
+8406 83D4 83DF 840F 8403 83F8 83F9 83EA 83C5 83C0
+8426 83F0 83E1 845C 8451 845A 8459 8473 8487 8488
+847A 8489 8478 843C 8446 8469 8476 848C 848E 8431
+846D 84C1 84CD 84D0 84E6 84BD 84D3 84CA 84BF 84BA
+84E0 84A1 84B9 84B4 8497 84E5 84E3 850C 750D 8538
+84F0 8539 851F 853A 8556 853B 84FF 84FC 8559 8548
+8568 8564 855E 857A 77A2 8543 8572 857B 85A4 85A8
+8587 858F 8579 85AE 859C 8585 85B9 85B7 85B0 85D3
+85C1 85DC 85FF 8627 8605 8629 8616 863C 5EFE 5F08
+593C 5941 8037 5955 595A 5958 530F 5C22 5C25 5C2C
+5C34 624C 626A 629F 62BB 62CA 62DA 62D7 62EE 6322
+62F6 6339 634B 6343 63AD 63F6 6371 637A 638E 63B4
+636D 63AC 638A 6369 63AE 63BC 63F2 63F8 63E0 63FF
+63C4 63DE 63CE 6452 63C6 63BE 6445 6441 640B 641B
+6420 640C 6426 6421 645E 6484 646D 6496 647A 64B7
+64B8 6499 64BA 64C0 64D0 64D7 64E4 64E2 6509 6525
+652E 5F0B 5FD2 7519 5F11 535F 53F1 53FD 53E9 53E8
+53FB 5412 5416 5406 544B 5452 5453 5454 5456 5443
+5421 5457 5459 5423 5432 5482 5494 5477 5471 5464
+549A 549B 5484 5476 5466 549D 54D0 54AD 54C2 54B4
+54D2 54A7 54A6 54D3 54D4 5472 54A3 54D5 54BB 54BF
+54CC 54D9 54DA 54DC 54A9 54AA 54A4 54DD 54CF 54DE
+551B 54E7 5520 54FD 5514 54F3 5522 5523 550F 5511
+5527 552A 5567 558F 55B5 5549 556D 5541 5555 553F
+5550 553C 5537 5556 5575 5576 5577 5533 5530 555C
+558B 55D2 5583 55B1 55B9 5588 5581 559F 557E 55D6
+5591 557B 55DF 55BD 55BE 5594 5599 55EA 55F7 55C9
+561F 55D1 55EB 55EC 55D4 55E6 55DD 55C4 55EF 55E5
+55F2 55F3 55CC 55CD 55E8 55F5 55E4 8F94 561E 5608
+560C 5601 5624 5623 55FE 5600 5627 562D 5658 5639
+5657 562C 564D 5662 5659 565C 564C 5654 5686 5664
+5671 566B 567B 567C 5685 5693 56AF 56D4 56D7 56DD
+56E1 56F5 56EB 56F9 56FF 5704 570A 5709 571C 5E0F
+5E19 5E14 5E11 5E31 5E3B 5E3C 5E37 5E44 5E54 5E5B
+5E5E 5E61 5C8C 5C7A 5C8D 5C90 5C96 5C88 5C98 5C99
+5C91 5C9A 5C9C 5CB5 5CA2 5CBD 5CAC 5CAB 5CB1 5CA3
+5CC1 5CB7 5CC4 5CD2 5CE4 5CCB 5CE5 5D02 5D03 5D27
+5D26 5D2E 5D24 5D1E 5D06 5D1B 5D58 5D3E 5D34 5D3D
+5D6C 5D5B 5D6F 5D5D 5D6B 5D4B 5D4A 5D69 5D74 5D82
+5D99 5D9D 8C73 5DB7 5DC5 5F73 5F77 5F82 5F87 5F89
+5F8C 5F95 5F99 5F9C 5FA8 5FAD 5FB5 5FBC 8862 5F61
+72AD 72B0 72B4 72B7 72B8 72C3 72C1 72CE 72CD 72D2
+72E8 72EF 72E9 72F2 72F4 72F7 7301 72F3 7303 72FA
+72FB 7317 7313 7321 730A 731E 731D 7315 7322 7339
+7325 732C 7338 7331 7350 734D 7357 7360 736C 736F
+737E 821B 5925 98E7 5924 5902 9963 9967 9968 9969
+996A 996B 996C 9974 9977 997D 9980 9984 9987 998A
+998D 9990 9991 9993 9994 9995 5E80 5E91 5E8B 5E96
+5EA5 5EA0 5EB9 5EB5 5EBE 5EB3 8D53 5ED2 5ED1 5EDB
+5EE8 5EEA 81BA 5FC4 5FC9 5FD6 5FCF 6003 5FEE 6004
+5FE1 5FE4 5FFE 6005 6006 5FEA 5FED 5FF8 6019 6035
+6026 601B 600F 600D 6029 602B 600A 603F 6021 6078
+6079 607B 607A 6042 606A 607D 6096 609A 60AD 609D
+6083 6092 608C 609B 60EC 60BB 60B1 60DD 60D8 60C6
+60DA 60B4 6120 6126 6115 6123 60F4 6100 610E 612B
+614A 6175 61AC 6194 61A7 61B7 61D4 61F5 5FDD 96B3
+95E9 95EB 95F1 95F3 95F5 95F6 95FC 95FE 9603 9604
+9606 9608 960A 960B 960C 960D 960F 9612 9615 9616
+9617 9619 961A 4E2C 723F 6215 6C35 6C54 6C5C 6C4A
+6CA3 6C85 6C90 6C94 6C8C 6C68 6C69 6C74 6C76 6C86
+6CA9 6CD0 6CD4 6CAD 6CF7 6CF8 6CF1 6CD7 6CB2 6CE0
+6CD6 6CFA 6CEB 6CEE 6CB1 6CD3 6CEF 6CFE 6D39 6D27
+6D0C 6D43 6D48 6D07 6D04 6D19 6D0E 6D2B 6D4D 6D2E
+6D35 6D1A 6D4F 6D52 6D54 6D33 6D91 6D6F 6D9E 6DA0
+6D5E 6D93 6D94 6D5C 6D60 6D7C 6D63 6E1A 6DC7 6DC5
+6DDE 6E0E 6DBF 6DE0 6E11 6DE6 6DDD 6DD9 6E16 6DAB
+6E0C 6DAE 6E2B 6E6E 6E4E 6E6B 6EB2 6E5F 6E86 6E53
+6E54 6E32 6E25 6E44 6EDF 6EB1 6E98 6EE0 6F2D 6EE2
+6EA5 6EA7 6EBD 6EBB 6EB7 6ED7 6EB4 6ECF 6E8F 6EC2
+6E9F 6F62 6F46 6F47 6F24 6F15 6EF9 6F2F 6F36 6F4B
+6F74 6F2A 6F09 6F29 6F89 6F8D 6F8C 6F78 6F72 6F7C
+6F7A 6FD1 6FC9 6FA7 6FB9 6FB6 6FC2 6FE1 6FEE 6FDE
+6FE0 6FEF 701A 7023 701B 7039 7035 704F 705E 5B80
+5B84 5B95 5B93 5BA5 5BB8 752F 9A9E 6434 5BE4 5BEE
+8930 5BF0 8E47 8B07 8FB6 8FD3 8FD5 8FE5 8FEE 8FE4
+8FE9 8FE6 8FF3 8FE8 9005 9004 900B 9026 9011 900D
+9016 9021 9035 9036 902D 902F 9044 9051 9052 9050
+9068 9058 9062 905B 66B9 9074 907D 9082 9088 9083
+908B 5F50 5F57 5F56 5F58 5C3B 54AB 5C50 5C59 5B71
+5C63 5C66 7FBC 5F2A 5F29 5F2D 8274 5F3C 9B3B 5C6E
+5981 5983 598D 59A9 59AA 59A3 5997 59CA 59AB 599E
+59A4 59D2 59B2 59AF 59D7 59BE 5A05 5A06 59DD 5A08
+59E3 59D8 59F9 5A0C 5A09 5A32 5A34 5A11 5A23 5A13
+5A40 5A67 5A4A 5A55 5A3C 5A62 5A75 80EC 5AAA 5A9B
+5A77 5A7A 5ABE 5AEB 5AB2 5AD2 5AD4 5AB8 5AE0 5AE3
+5AF1 5AD6 5AE6 5AD8 5ADC 5B09 5B17 5B16 5B32 5B37
+5B40 5C15 5C1C 5B5A 5B65 5B73 5B51 5B53 5B62 9A75
+9A77 9A78 9A7A 9A7F 9A7D 9A80 9A81 9A85 9A88 9A8A
+9A90 9A92 9A93 9A96 9A98 9A9B 9A9C 9A9D 9A9F 9AA0
+9AA2 9AA3 9AA5 9AA7 7E9F 7EA1 7EA3 7EA5 7EA8 7EA9
+7EAD 7EB0 7EBE 7EC0 7EC1 7EC2 7EC9 7ECB 7ECC 7ED0
+7ED4 7ED7 7EDB 7EE0 7EE1 7EE8 7EEB 7EEE 7EEF 7EF1
+7EF2 7F0D 7EF6 7EFA 7EFB 7EFE 7F01 7F02 7F03 7F07
+7F08 7F0B 7F0C 7F0F 7F11 7F12 7F17 7F19 7F1C 7F1B
+7F1F 7F21 7F22 7F23 7F24 7F25 7F26 7F27 7F2A 7F2B
+7F2C 7F2D 7F2F 7F30 7F31 7F32 7F33 7F35 5E7A 757F
+5DDB 753E 9095 738E 7391 73AE 73A2 739F 73CF 73C2
+73D1 73B7 73B3 73C0 73C9 73C8 73E5 73D9 987C 740A
+73E9 73E7 73DE 73BA 73F2 740F 742A 745B 7426 7425
+7428 7430 742E 742C 741B 741A 7441 745C 7457 7455
+7459 7477 746D 747E 749C 748E 7480 7481 7487 748B
+749E 74A8 74A9 7490 74A7 74D2 74BA 97EA 97EB 97EC
+674C 6753 675E 6748 6769 67A5 6787 676A 6773 6798
+67A7 6775 67A8 679E 67AD 678B 6777 677C 67F0 6809
+67D8 680A 67E9 67B0 680C 67D9 67B5 67DA 67B3 67DD
+6800 67C3 67B8 67E2 680E 67C1 67FD 6832 6833 6860
+6861 684E 6862 6844 6864 6883 681D 6855 6866 6841
+6867 6840 683E 684A 6849 6829 68B5 688F 6874 6877
+6893 686B 68C2 696E 68FC 691F 6920 68F9 6924 68F0
+690B 6901 6957 68E3 6910 6971 6939 6960 6942 695D
+6984 696B 6980 6998 6978 6934 69CC 6987 6988 69CE
+6989 6966 6963 6979 699B 69A7 69BB 69AB 69AD 69D4
+69B1 69C1 69CA 69DF 6995 69E0 698D 69FF 6A2F 69ED
+6A17 6A18 6A65 69F2 6A44 6A3E 6AA0 6A50 6A5B 6A35
+6A8E 6A79 6A3D 6A28 6A58 6A7C 6A91 6A90 6AA9 6A97
+6AAB 7337 7352 6B81 6B82 6B87 6B84 6B92 6B93 6B8D
+6B9A 6B9B 6BA1 6BAA 8F6B 8F6D 8F71 8F72 8F73 8F75
+8F76 8F78 8F77 8F79 8F7A 8F7C 8F7E 8F81 8F82 8F84
+8F87 8F8B 8F8D 8F8E 8F8F 8F98 8F9A 8ECE 620B 6217
+621B 621F 6222 6221 6225 6224 622C 81E7 74EF 74F4
+74FF 750F 7511 7513 6534 65EE 65EF 65F0 660A 6619
+6772 6603 6615 6600 7085 66F7 661D 6634 6631 6636
+6635 8006 665F 6654 6641 664F 6656 6661 6657 6677
+6684 668C 66A7 669D 66BE 66DB 66DC 66E6 66E9 8D32
+8D33 8D36 8D3B 8D3D 8D40 8D45 8D46 8D48 8D49 8D47
+8D4D 8D55 8D59 89C7 89CA 89CB 89CC 89CE 89CF 89D0
+89D1 726E 729F 725D 7266 726F 727E 727F 7284 728B
+728D 728F 7292 6308 6332 63B0 643F 64D8 8004 6BEA
+6BF3 6BFD 6BF5 6BF9 6C05 6C07 6C06 6C0D 6C15 6C18
+6C19 6C1A 6C21 6C29 6C24 6C2A 6C32 6535 6555 656B
+724D 7252 7256 7230 8662 5216 809F 809C 8093 80BC
+670A 80BD 80B1 80AB 80AD 80B4 80B7 80E7 80E8 80E9
+80EA 80DB 80C2 80C4 80D9 80CD 80D7 6710 80DD 80EB
+80F1 80F4 80ED 810D 810E 80F2 80FC 6715 8112 8C5A
+8136 811E 812C 8118 8132 8148 814C 8153 8174 8159
+815A 8171 8160 8169 817C 817D 816D 8167 584D 5AB5
+8188 8182 8191 6ED5 81A3 81AA 81CC 6726 81CA 81BB
+81C1 81A6 6B24 6B37 6B39 6B43 6B46 6B59 98D1 98D2
+98D3 98D5 98D9 98DA 6BB3 5F40 6BC2 89F3 6590 9F51
+6593 65BC 65C6 65C4 65C3 65CC 65CE 65D2 65D6 7080
+709C 7096 709D 70BB 70C0 70B7 70AB 70B1 70E8 70CA
+7110 7113 7116 712F 7131 7173 715C 7168 7145 7172
+714A 7178 717A 7198 71B3 71B5 71A8 71A0 71E0 71D4
+71E7 71F9 721D 7228 706C 7118 7166 71B9 623E 623D
+6243 6248 6249 793B 7940 7946 7949 795B 795C 7953
+795A 7962 7957 7960 796F 7967 797A 7985 798A 799A
+79A7 79B3 5FD1 5FD0 603C 605D 605A 6067 6041 6059
+6063 60AB 6106 610D 615D 61A9 619D 61CB 61D1 6206
+8080 807F 6C93 6CF6 6DFC 77F6 77F8 7800 7809 7817
+7818 7811 65AB 782D 781C 781D 7839 783A 783B 781F
+783C 7825 782C 7823 7829 784E 786D 7856 7857 7826
+7850 7847 784C 786A 789B 7893 789A 7887 789C 78A1
+78A3 78B2 78B9 78A5 78D4 78D9 78C9 78EC 78F2 7905
+78F4 7913 7924 791E 7934 9F9B 9EF9 9EFB 9EFC 76F1
+7704 770D 76F9 7707 7708 771A 7722 7719 772D 7726
+7735 7738 7750 7751 7747 7743 775A 7768 7762 7765
+777F 778D 777D 7780 778C 7791 779F 77A0 77B0 77B5
+77BD 753A 7540 754E 754B 7548 755B 7572 7579 7583
+7F58 7F61 7F5F 8A48 7F68 7F74 7F71 7F79 7F81 7F7E
+76CD 76E5 8832 9485 9486 9487 948B 948A 948C 948D
+948F 9490 9494 9497 9495 949A 949B 949C 94A3 94A4
+94AB 94AA 94AD 94AC 94AF 94B0 94B2 94B4 94B6 94B7
+94B8 94B9 94BA 94BC 94BD 94BF 94C4 94C8 94C9 94CA
+94CB 94CC 94CD 94CE 94D0 94D1 94D2 94D5 94D6 94D7
+94D9 94D8 94DB 94DE 94DF 94E0 94E2 94E4 94E5 94E7
+94E8 94EA 94E9 94EB 94EE 94EF 94F3 94F4 94F5 94F7
+94F9 94FC 94FD 94FF 9503 9502 9506 9507 9509 950A
+950D 950E 950F 9512 9513 9514 9515 9516 9518 951B
+951D 951E 951F 9522 952A 952B 9529 952C 9531 9532
+9534 9536 9537 9538 953C 953E 953F 9542 9535 9544
+9545 9546 9549 954C 954E 954F 9552 9553 9554 9556
+9557 9558 9559 955B 955E 955F 955D 9561 9562 9564
+9565 9566 9567 9568 9569 956A 956B 956C 956F 9571
+9572 9573 953A 77E7 77EC 96C9 79D5 79ED 79E3 79EB
+7A06 5D47 7A03 7A02 7A1E 7A14 7A39 7A37 7A51 9ECF
+99A5 7A70 7688 768E 7693 7699 76A4 74DE 74E0 752C
+9E20 9E22 9E28 9E29 9E2A 9E2B 9E2C 9E32 9E31 9E36
+9E38 9E37 9E39 9E3A 9E3E 9E41 9E42 9E44 9E46 9E47
+9E48 9E49 9E4B 9E4C 9E4E 9E51 9E55 9E57 9E5A 9E5B
+9E5C 9E5E 9E63 9E66 9E67 9E68 9E69 9E6A 9E6B 9E6C
+9E71 9E6D 9E73 7592 7594 7596 75A0 759D 75AC 75A3
+75B3 75B4 75B8 75C4 75B1 75B0 75C3 75C2 75D6 75CD
+75E3 75E8 75E6 75E4 75EB 75E7 7603 75F1 75FC 75FF
+7610 7600 7605 760C 7617 760A 7625 7618 7615 7619
+761B 763C 7622 7620 7640 762D 7630 763F 7635 7643
+763E 7633 764D 765E 7654 765C 7656 766B 766F 7FCA
+7AE6 7A78 7A79 7A80 7A86 7A88 7A95 7AA6 7AA0 7AAC
+7AA8 7AAD 7AB3 8864 8869 8872 887D 887F 8882 88A2
+88C6 88B7 88BC 88C9 88E2 88CE 88E3 88E5 88F1 891A
+88FC 88E8 88FE 88F0 8921 8919 8913 891B 890A 8934
+892B 8936 8941 8966 897B 758B 80E5 76B2 76B4 77DC
+8012 8014 8016 801C 8020 8022 8025 8026 8027 8029
+8028 8031 800B 8035 8043 8046 804D 8052 8069 8071
+8983 9878 9880 9883 9889 988C 988D 988F 9894 989A
+989B 989E 989F 98A1 98A2 98A5 98A6 864D 8654 866C
+866E 867F 867A 867C 867B 86A8 868D 868B 86AC 869D
+86A7 86A3 86AA 8693 86A9 86B6 86C4 86B5 86CE 86B0
+86BA 86B1 86AF 86C9 86CF 86B4 86E9 86F1 86F2 86ED
+86F3 86D0 8713 86DE 86F4 86DF 86D8 86D1 8703 8707
+86F8 8708 870A 870D 8709 8723 873B 871E 8725 872E
+871A 873E 8748 8734 8731 8729 8737 873F 8782 8722
+877D 877E 877B 8760 8770 874C 876E 878B 8753 8763
+877C 8764 8759 8765 8793 87AF 87A8 87D2 87C6 8788
+8785 87AD 8797 8783 87AB 87E5 87AC 87B5 87B3 87CB
+87D3 87BD 87D1 87C0 87CA 87DB 87EA 87E0 87EE 8816
+8813 87FE 880A 881B 8821 8839 883C 7F36 7F42 7F44
+7F45 8210 7AFA 7AFD 7B08 7B03 7B04 7B15 7B0A 7B2B
+7B0F 7B47 7B38 7B2A 7B19 7B2E 7B31 7B20 7B25 7B24
+7B33 7B3E 7B1E 7B58 7B5A 7B45 7B75 7B4C 7B5D 7B60
+7B6E 7B7B 7B62 7B72 7B71 7B90 7BA6 7BA7 7BB8 7BAC
+7B9D 7BA8 7B85 7BAA 7B9C 7BA2 7BAB 7BB4 7BD1 7BC1
+7BCC 7BDD 7BDA 7BE5 7BE6 7BEA 7C0C 7BFE 7BFC 7C0F
+7C16 7C0B 7C1F 7C2A 7C26 7C38 7C41 7C40 81FE 8201
+8202 8204 81EC 8844 8221 8222 8223 822D 822F 8228
+822B 8238 823B 8233 8234 823E 8244 8249 824B 824F
+825A 825F 8268 887E 8885 8888 88D8 88DF 895E 7F9D
+7F9F 7FA7 7FAF 7FB0 7FB2 7C7C 6549 7C91 7C9D 7C9C
+7C9E 7CA2 7CB2 7CBC 7CBD 7CC1 7CC7 7CCC 7CCD 7CC8
+7CC5 7CD7 7CE8 826E 66A8 7FBF 7FCE 7FD5 7FE5 7FE1
+7FE6 7FE9 7FEE 7FF3 7CF8 7D77 7DA6 7DAE 7E47 7E9B
+9EB8 9EB4 8D73 8D84 8D94 8D91 8DB1 8D67 8D6D 8C47
+8C49 914A 9150 914E 914F 9164 9162 9161 9170 9169
+916F 917D 917E 9172 9174 9179 918C 9185 9190 918D
+9191 91A2 91A3 91AA 91AD 91AE 91AF 91B5 91B4 91BA
+8C55 9E7E 8DB8 8DEB 8E05 8E59 8E69 8DB5 8DBF 8DBC
+8DBA 8DC4 8DD6 8DD7 8DDA 8DDE 8DCE 8DCF 8DDB 8DC6
+8DEC 8DF7 8DF8 8DE3 8DF9 8DFB 8DE4 8E09 8DFD 8E14
+8E1D 8E1F 8E2C 8E2E 8E23 8E2F 8E3A 8E40 8E39 8E35
+8E3D 8E31 8E49 8E41 8E42 8E51 8E52 8E4A 8E70 8E76
+8E7C 8E6F 8E74 8E85 8E8F 8E94 8E90 8E9C 8E9E 8C78
+8C82 8C8A 8C85 8C98 8C94 659B 89D6 89DE 89DA 89DC
+89E5 89EB 89EF 8A3E 8B26 9753 96E9 96F3 96EF 9706
+9701 9708 970F 970E 972A 972D 9730 973E 9F80 9F83
+9F85 9F86 9F87 9F88 9F89 9F8A 9F8C 9EFE 9F0B 9F0D
+96B9 96BC 96BD 96CE 96D2 77BF 96E0 928E 92AE 92C8
+933E 936A 93CA 938F 943E 946B 9C7F 9C82 9C85 9C86
+9C87 9C88 7A23 9C8B 9C8E 9C90 9C91 9C92 9C94 9C95
+9C9A 9C9B 9C9E 9C9F 9CA0 9CA1 9CA2 9CA3 9CA5 9CA6
+9CA7 9CA8 9CA9 9CAB 9CAD 9CAE 9CB0 9CB1 9CB2 9CB3
+9CB4 9CB5 9CB6 9CB7 9CBA 9CBB 9CBC 9CBD 9CC4 9CC5
+9CC6 9CC7 9CCA 9CCB 9CCC 9CCD 9CCE 9CCF 9CD0 9CD3
+9CD4 9CD5 9CD7 9CD8 9CD9 9CDC 9CDD 9CDF 9CE2 977C
+9785 9791 9792 9794 97AF 97AB 97A3 97B2 97B4 9AB1
+9AB0 9AB7 9E58 9AB6 9ABA 9ABC 9AC1 9AC0 9AC5 9AC2
+9ACB 9ACC 9AD1 9B45 9B43 9B47 9B49 9B48 9B4D 9B51
+98E8 990D 992E 9955 9954 9ADF 9AE1 9AE6 9AEF 9AEB
+9AFB 9AED 9AF9 9B08 9B0F 9B13 9B1F 9B23 9EBD 9EBE
+7E3B 9E82 9E87 9E88 9E8B 9E92 93D6 9E9D 9E9F 9EDB
+9EDC 9EDD 9EE0 9EDF 9EE2 9EE9 9EE7 9EE5 9EEA 9EEF
+9F22 9F2C 9F2F 9F39 9F37 9F3D 9F3E 9F44
+__END__
+
+=head1 NAME
+
+Unicode::Collate::CJK::GB2312 - weighting CJK Unified Ideographs
+for Unicode::Collate
+
+=head1 SYNOPSIS
+
+    use Unicode::Collate;
+    use Unicode::Collate::CJK::GB2312;
+
+    my $collator = Unicode::Collate->new(
+        overrideCJK => \&Unicode::Collate::CJK::GB2312::weightGB2312
+    );
+
+=head1 DESCRIPTION
+
+C<Unicode::Collate::CJK::GB2312> provides C<weightGB2312()>,
+that is adequate for C<overrideCJK> of C<Unicode::Collate>
+and makes tailoring of CJK Unified Ideographs in the order
+of CLDR's gb2312han ordering.
+
+=head1 CAVEAT
+
+The gb2312han ordering includes 5 code points in private use area
+(E2D8..E2DC), that can't utilize C<weightGB2312()> for collation.
+For them, use C<entry> instead.
+
+=head1 SEE ALSO
+
+=over 4
+
+=item CLDR - Unicode Common Locale Data Repository
+
+L<http://cldr.unicode.org/>
+
+=item Unicode Locale Data Markup Language (LDML) - UTS #35
+
+L<http://www.unicode.org/reports/tr35/>
+
+=item L<Unicode::Collate>
+
+=item L<Unicode::Collate::Locale>
+
+=back
+
+=cut
diff --git a/lib/5.24.1/Unicode/Collate/CJK/JISX0208.pm b/lib/5.24.1/Unicode/Collate/CJK/JISX0208.pm
new file mode 100644
index 00000000..492496b6
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/CJK/JISX0208.pm
@@ -0,0 +1,697 @@
+package Unicode::Collate::CJK::JISX0208;
+
+use 5.006;
+use strict;
+use warnings;
+
+our $VERSION = '1.14';
+
+my %u2p;
+my $wt = 0x8000;
+
+while (<DATA>) {
+    last if /^__END__/;
+    my @c = split;
+    for my $c (@c) {
+	next if !$c;
+	$u2p{hex($c)} = $wt;
+	$wt++;
+    }
+}
+
+sub weightJISX0208 {
+    my $u = shift;
+    return exists $u2p{$u} ? $u2p{$u} : undef;
+}
+
+1;
+__DATA__
+4E9C 5516 5A03 963F 54C0 611B 6328 59F6 9022 8475
+831C 7A50 60AA 63E1 6E25 65ED 8466 82A6 9BF5 6893
+5727 65A1 6271 5B9B 59D0 867B 98F4 7D62 7DBE 9B8E
+6216 7C9F 88B7 5B89 5EB5 6309 6697 6848 95C7 978D
+674F 4EE5 4F0A 4F4D 4F9D 5049 56F2 5937 59D4 5A01
+5C09 60DF 610F 6170 6613 6905 70BA 754F 7570 79FB
+7DAD 7DEF 80C3 840E 8863 8B02 9055 907A 533B 4E95
+4EA5 57DF 80B2 90C1 78EF 4E00 58F1 6EA2 9038 7A32
+8328 828B 9C2F 5141 5370 54BD 54E1 56E0 59FB 5F15
+98F2 6DEB 80E4 852D 9662 9670 96A0 97FB 540B 53F3
+5B87 70CF 7FBD 8FC2 96E8 536F 9D5C 7ABA 4E11 7893
+81FC 6E26 5618 5504 6B1D 851A 9C3B 59E5 53A9 6D66
+74DC 958F 5642 4E91 904B 96F2 834F 990C 53E1 55B6
+5B30 5F71 6620 66F3 6804 6C38 6CF3 6D29 745B 76C8
+7A4E 9834 82F1 885B 8A60 92ED 6DB2 75AB 76CA 99C5
+60A6 8B01 8D8A 95B2 698E 53AD 5186 5712 5830 5944
+5BB4 5EF6 6028 63A9 63F4 6CBF 6F14 708E 7114 7159
+71D5 733F 7E01 8276 82D1 8597 9060 925B 9D1B 5869
+65BC 6C5A 7525 51F9 592E 5965 5F80 5FDC 62BC 65FA
+6A2A 6B27 6BB4 738B 7FC1 8956 9D2C 9D0E 9EC4 5CA1
+6C96 837B 5104 5C4B 61B6 81C6 6876 7261 4E59 4FFA
+5378 6069 6E29 7A4F 97F3 4E0B 5316 4EEE 4F55 4F3D
+4FA1 4F73 52A0 53EF 5609 590F 5AC1 5BB6 5BE1 79D1
+6687 679C 67B6 6B4C 6CB3 706B 73C2 798D 79BE 7A3C
+7B87 82B1 82DB 8304 8377 83EF 83D3 8766 8AB2 5629
+8CA8 8FE6 904E 971E 868A 4FC4 5CE8 6211 7259 753B
+81E5 82BD 86FE 8CC0 96C5 9913 99D5 4ECB 4F1A 89E3
+56DE 584A 58CA 5EFB 5FEB 602A 6094 6062 61D0 6212
+62D0 6539 9B41 6666 68B0 6D77 7070 754C 7686 7D75
+82A5 87F9 958B 968E 8C9D 51F1 52BE 5916 54B3 5BB3
+5D16 6168 6982 6DAF 788D 84CB 8857 8A72 93A7 9AB8
+6D6C 99A8 86D9 57A3 67FF 86CE 920E 5283 5687 5404
+5ED3 62E1 64B9 683C 6838 6BBB 7372 78BA 7A6B 899A
+89D2 8D6B 8F03 90ED 95A3 9694 9769 5B66 5CB3 697D
+984D 984E 639B 7B20 6A2B 6A7F 68B6 9C0D 6F5F 5272
+559D 6070 62EC 6D3B 6E07 6ED1 845B 8910 8F44 4E14
+9C39 53F6 691B 6A3A 9784 682A 515C 7AC3 84B2 91DC
+938C 565B 9D28 6822 8305 8431 7CA5 5208 82C5 74E6
+4E7E 4F83 51A0 5BD2 520A 52D8 52E7 5DFB 559A 582A
+59E6 5B8C 5B98 5BDB 5E72 5E79 60A3 611F 6163 61BE
+63DB 6562 67D1 6853 68FA 6B3E 6B53 6C57 6F22 6F97
+6F45 74B0 7518 76E3 770B 7AFF 7BA1 7C21 7DE9 7F36
+7FF0 809D 8266 839E 89B3 8ACC 8CAB 9084 9451 9593
+9591 95A2 9665 97D3 9928 8218 4E38 542B 5CB8 5DCC
+73A9 764C 773C 5CA9 7FEB 8D0B 96C1 9811 9854 9858
+4F01 4F0E 5371 559C 5668 57FA 5947 5B09 5BC4 5C90
+5E0C 5E7E 5FCC 63EE 673A 65D7 65E2 671F 68CB 68C4
+6A5F 5E30 6BC5 6C17 6C7D 757F 7948 5B63 7A00 7D00
+5FBD 898F 8A18 8CB4 8D77 8ECC 8F1D 98E2 9A0E 9B3C
+4E80 507D 5100 5993 5B9C 622F 6280 64EC 6B3A 72A0
+7591 7947 7FA9 87FB 8ABC 8B70 63AC 83CA 97A0 5409
+5403 55AB 6854 6A58 8A70 7827 6775 9ECD 5374 5BA2
+811A 8650 9006 4E18 4E45 4EC7 4F11 53CA 5438 5BAE
+5F13 6025 6551 673D 6C42 6C72 6CE3 7078 7403 7A76
+7AAE 7B08 7D1A 7CFE 7D66 65E7 725B 53BB 5C45 5DE8
+62D2 62E0 6319 6E20 865A 8A31 8DDD 92F8 6F01 79A6
+9B5A 4EA8 4EAB 4EAC 4F9B 4FA0 50D1 5147 7AF6 5171
+51F6 5354 5321 537F 53EB 55AC 5883 5CE1 5F37 5F4A
+602F 6050 606D 631F 6559 6A4B 6CC1 72C2 72ED 77EF
+80F8 8105 8208 854E 90F7 93E1 97FF 9957 9A5A 4EF0
+51DD 5C2D 6681 696D 5C40 66F2 6975 7389 6850 7C81
+50C5 52E4 5747 5DFE 9326 65A4 6B23 6B3D 7434 7981
+79BD 7B4B 7DCA 82B9 83CC 887F 895F 8B39 8FD1 91D1
+541F 9280 4E5D 5036 53E5 533A 72D7 7396 77E9 82E6
+8EAF 99C6 99C8 99D2 5177 611A 865E 55B0 7A7A 5076
+5BD3 9047 9685 4E32 6ADB 91E7 5C51 5C48 6398 7A9F
+6C93 9774 8F61 7AAA 718A 9688 7C82 6817 7E70 6851
+936C 52F2 541B 85AB 8A13 7FA4 8ECD 90E1 5366 8888
+7941 4FC2 50BE 5211 5144 5553 572D 73EA 578B 5951
+5F62 5F84 6075 6176 6167 61A9 63B2 643A 656C 666F
+6842 6E13 7566 7A3D 7CFB 7D4C 7D99 7E4B 7F6B 830E
+834A 86CD 8A08 8A63 8B66 8EFD 981A 9D8F 82B8 8FCE
+9BE8 5287 621F 6483 6FC0 9699 6841 5091 6B20 6C7A
+6F54 7A74 7D50 8840 8A23 6708 4EF6 5039 5026 5065
+517C 5238 5263 55A7 570F 5805 5ACC 5EFA 61B2 61F8
+62F3 6372 691C 6A29 727D 72AC 732E 7814 786F 7D79
+770C 80A9 898B 8B19 8CE2 8ED2 9063 9375 967A 9855
+9A13 9E78 5143 539F 53B3 5E7B 5F26 6E1B 6E90 7384
+73FE 7D43 8237 8A00 8AFA 9650 4E4E 500B 53E4 547C
+56FA 59D1 5B64 5DF1 5EAB 5F27 6238 6545 67AF 6E56
+72D0 7CCA 88B4 80A1 80E1 83F0 864E 8A87 8DE8 9237
+96C7 9867 9F13 4E94 4E92 4F0D 5348 5449 543E 5A2F
+5F8C 5FA1 609F 68A7 6A8E 745A 7881 8A9E 8AA4 8B77
+9190 4E5E 9BC9 4EA4 4F7C 4FAF 5019 5016 5149 516C
+529F 52B9 52FE 539A 53E3 5411 540E 5589 5751 57A2
+597D 5B54 5B5D 5B8F 5DE5 5DE7 5DF7 5E78 5E83 5E9A
+5EB7 5F18 6052 614C 6297 62D8 63A7 653B 6602 6643
+66F4 676D 6821 6897 69CB 6C5F 6D2A 6D69 6E2F 6E9D
+7532 7687 786C 7A3F 7CE0 7D05 7D18 7D5E 7DB1 8015
+8003 80AF 80B1 8154 818F 822A 8352 884C 8861 8B1B
+8CA2 8CFC 90CA 9175 9271 783F 92FC 95A4 964D 9805
+9999 9AD8 9D3B 525B 52AB 53F7 5408 58D5 62F7 6FE0
+8C6A 8F5F 9EB9 514B 523B 544A 56FD 7A40 9177 9D60
+9ED2 7344 6F09 8170 7511 5FFD 60DA 9AA8 72DB 8FBC
+6B64 9803 4ECA 56F0 5764 58BE 5A5A 6068 61C7 660F
+6606 6839 68B1 6DF7 75D5 7D3A 826E 9B42 4E9B 4F50
+53C9 5506 5D6F 5DE6 5DEE 67FB 6C99 7473 7802 8A50
+9396 88DF 5750 5EA7 632B 50B5 50AC 518D 6700 54C9
+585E 59BB 5BB0 5F69 624D 63A1 683D 6B73 6E08 707D
+91C7 7280 7815 7826 796D 658E 7D30 83DC 88C1 8F09
+969B 5264 5728 6750 7F6A 8CA1 51B4 5742 962A 583A
+698A 80B4 54B2 5D0E 57FC 7895 9DFA 4F5C 524A 548B
+643E 6628 6714 67F5 7A84 7B56 7D22 932F 685C 9BAD
+7B39 5319 518A 5237 5BDF 62F6 64AE 64E6 672D 6BBA
+85A9 96D1 7690 9BD6 634C 9306 9BAB 76BF 6652 4E09
+5098 53C2 5C71 60E8 6492 6563 685F 71E6 73CA 7523
+7B97 7E82 8695 8B83 8CDB 9178 9910 65AC 66AB 6B8B
+4ED5 4ED4 4F3A 4F7F 523A 53F8 53F2 55E3 56DB 58EB
+59CB 59C9 59FF 5B50 5C4D 5E02 5E2B 5FD7 601D 6307
+652F 5B5C 65AF 65BD 65E8 679D 6B62 6B7B 6C0F 7345
+7949 79C1 7CF8 7D19 7D2B 80A2 8102 81F3 8996 8A5E
+8A69 8A66 8A8C 8AEE 8CC7 8CDC 96CC 98FC 6B6F 4E8B
+4F3C 4F8D 5150 5B57 5BFA 6148 6301 6642 6B21 6ECB
+6CBB 723E 74BD 75D4 78C1 793A 800C 8033 81EA 8494
+8F9E 6C50 9E7F 5F0F 8B58 9D2B 7AFA 8EF8 5B8D 96EB
+4E03 53F1 57F7 5931 5AC9 5BA4 6089 6E7F 6F06 75BE
+8CEA 5B9F 8500 7BE0 5072 67F4 829D 5C61 854A 7E1E
+820E 5199 5C04 6368 8D66 659C 716E 793E 7D17 8005
+8B1D 8ECA 906E 86C7 90AA 501F 52FA 5C3A 6753 707C
+7235 914C 91C8 932B 82E5 5BC2 5F31 60F9 4E3B 53D6
+5B88 624B 6731 6B8A 72E9 73E0 7A2E 816B 8DA3 9152
+9996 5112 53D7 546A 5BFF 6388 6A39 7DAC 9700 56DA
+53CE 5468 5B97 5C31 5DDE 4FEE 6101 62FE 6D32 79C0
+79CB 7D42 7E4D 7FD2 81ED 821F 8490 8846 8972 8B90
+8E74 8F2F 9031 914B 916C 96C6 919C 4EC0 4F4F 5145
+5341 5F93 620E 67D4 6C41 6E0B 7363 7E26 91CD 9283
+53D4 5919 5BBF 6DD1 795D 7E2E 7C9B 587E 719F 51FA
+8853 8FF0 4FCA 5CFB 6625 77AC 7AE3 821C 99FF 51C6
+5FAA 65EC 696F 6B89 6DF3 6E96 6F64 76FE 7D14 5DE1
+9075 9187 9806 51E6 521D 6240 6691 66D9 6E1A 5EB6
+7DD2 7F72 66F8 85AF 85F7 8AF8 52A9 53D9 5973 5E8F
+5F90 6055 92E4 9664 50B7 511F 52DD 5320 5347 53EC
+54E8 5546 5531 5617 5968 59BE 5A3C 5BB5 5C06 5C0F
+5C11 5C1A 5E84 5E8A 5EE0 5F70 627F 6284 62DB 638C
+6377 6607 660C 662D 6676 677E 68A2 6A1F 6A35 6CBC
+6D88 6E09 6E58 713C 7126 7167 75C7 7701 785D 7901
+7965 79F0 7AE0 7B11 7CA7 7D39 8096 83D6 848B 8549
+885D 88F3 8A1F 8A3C 8A54 8A73 8C61 8CDE 91A4 9266
+937E 9418 969C 9798 4E0A 4E08 4E1E 4E57 5197 5270
+57CE 5834 58CC 5B22 5E38 60C5 64FE 6761 6756 6D44
+72B6 7573 7A63 84B8 8B72 91B8 9320 5631 57F4 98FE
+62ED 690D 6B96 71ED 7E54 8077 8272 89E6 98DF 8755
+8FB1 5C3B 4F38 4FE1 4FB5 5507 5A20 5BDD 5BE9 5FC3
+614E 632F 65B0 664B 68EE 699B 6D78 6DF1 7533 75B9
+771F 795E 79E6 7D33 81E3 82AF 85AA 89AA 8A3A 8EAB
+8F9B 9032 91DD 9707 4EBA 4EC1 5203 5875 58EC 5C0B
+751A 5C3D 814E 8A0A 8FC5 9663 976D 7B25 8ACF 9808
+9162 56F3 53A8 9017 5439 5782 5E25 63A8 6C34 708A
+7761 7C8B 7FE0 8870 9042 9154 9310 9318 968F 745E
+9AC4 5D07 5D69 6570 67A2 8DA8 96DB 636E 6749 6919
+83C5 9817 96C0 88FE 6F84 647A 5BF8 4E16 702C 755D
+662F 51C4 5236 52E2 59D3 5F81 6027 6210 653F 6574
+661F 6674 68F2 6816 6B63 6E05 7272 751F 76DB 7CBE
+8056 58F0 88FD 897F 8AA0 8A93 8ACB 901D 9192 9752
+9759 6589 7A0E 8106 96BB 5E2D 60DC 621A 65A5 6614
+6790 77F3 7A4D 7C4D 7E3E 810A 8CAC 8D64 8DE1 8E5F
+78A9 5207 62D9 63A5 6442 6298 8A2D 7A83 7BC0 8AAC
+96EA 7D76 820C 8749 4ED9 5148 5343 5360 5BA3 5C02
+5C16 5DDD 6226 6247 64B0 6813 6834 6CC9 6D45 6D17
+67D3 6F5C 714E 717D 65CB 7A7F 7BAD 7DDA 7E4A 7FA8
+817A 821B 8239 85A6 8A6E 8CCE 8DF5 9078 9077 92AD
+9291 9583 9BAE 524D 5584 6F38 7136 5168 7985 7E55
+81B3 7CCE 564C 5851 5CA8 63AA 66FE 66FD 695A 72D9
+758F 758E 790E 7956 79DF 7C97 7D20 7D44 8607 8A34
+963B 9061 9F20 50E7 5275 53CC 53E2 5009 55AA 58EE
+594F 723D 5B8B 5C64 531D 60E3 60F3 635C 6383 633F
+63BB 64CD 65E9 66F9 5DE3 69CD 69FD 6F15 71E5 4E89
+75E9 76F8 7A93 7CDF 7DCF 7D9C 8061 8349 8358 846C
+84BC 85FB 88C5 8D70 9001 906D 9397 971C 9A12 50CF
+5897 618E 81D3 8535 8D08 9020 4FC3 5074 5247 5373
+606F 6349 675F 6E2C 8DB3 901F 4FD7 5C5E 8CCA 65CF
+7D9A 5352 8896 5176 63C3 5B58 5B6B 5C0A 640D 6751
+905C 4ED6 591A 592A 6C70 8A51 553E 5815 59A5 60F0
+6253 67C1 8235 6955 9640 99C4 9A28 4F53 5806 5BFE
+8010 5CB1 5E2F 5F85 6020 614B 6234 66FF 6CF0 6EDE
+80CE 817F 82D4 888B 8CB8 9000 902E 968A 9EDB 9BDB
+4EE3 53F0 5927 7B2C 918D 984C 9DF9 6EDD 7027 5353
+5544 5B85 6258 629E 62D3 6CA2 6FEF 7422 8A17 9438
+6FC1 8AFE 8338 51E7 86F8 53EA 53E9 4F46 9054 8FB0
+596A 8131 5DFD 7AEA 8FBF 68DA 8C37 72F8 9C48 6A3D
+8AB0 4E39 5358 5606 5766 62C5 63A2 65E6 6B4E 6DE1
+6E5B 70AD 77ED 7AEF 7BAA 7DBB 803D 80C6 86CB 8A95
+935B 56E3 58C7 5F3E 65AD 6696 6A80 6BB5 7537 8AC7
+5024 77E5 5730 5F1B 6065 667A 6C60 75F4 7A1A 7F6E
+81F4 8718 9045 99B3 7BC9 755C 7AF9 7B51 84C4 9010
+79E9 7A92 8336 5AE1 7740 4E2D 4EF2 5B99 5FE0 62BD
+663C 67F1 6CE8 866B 8877 8A3B 914E 92F3 99D0 6A17
+7026 732A 82E7 8457 8CAF 4E01 5146 51CB 558B 5BF5
+5E16 5E33 5E81 5F14 5F35 5F6B 5FB4 61F2 6311 66A2
+671D 6F6E 7252 753A 773A 8074 8139 8178 8776 8ABF
+8ADC 8D85 8DF3 929A 9577 9802 9CE5 52C5 6357 76F4
+6715 6C88 73CD 8CC3 93AE 9673 6D25 589C 690E 69CC
+8FFD 939A 75DB 901A 585A 6802 63B4 69FB 4F43 6F2C
+67D8 8FBB 8526 7DB4 9354 693F 6F70 576A 58F7 5B2C
+7D2C 722A 540A 91E3 9DB4 4EAD 4F4E 505C 5075 5243
+8C9E 5448 5824 5B9A 5E1D 5E95 5EAD 5EF7 5F1F 608C
+62B5 633A 63D0 68AF 6C40 7887 798E 7A0B 7DE0 8247
+8A02 8AE6 8E44 9013 90B8 912D 91D8 9F0E 6CE5 6458
+64E2 6575 6EF4 7684 7B1B 9069 93D1 6EBA 54F2 5FB9
+64A4 8F4D 8FED 9244 5178 586B 5929 5C55 5E97 6DFB
+7E8F 751C 8CBC 8EE2 985B 70B9 4F1D 6BBF 6FB1 7530
+96FB 514E 5410 5835 5857 59AC 5C60 5F92 6597 675C
+6E21 767B 83DF 8CED 9014 90FD 934D 7825 783A 52AA
+5EA6 571F 5974 6012 5012 515A 51AC 51CD 5200 5510
+5854 5858 5957 5B95 5CF6 5D8B 60BC 6295 642D 6771
+6843 68BC 68DF 76D7 6DD8 6E6F 6D9B 706F 71C8 5F53
+75D8 7977 7B49 7B54 7B52 7CD6 7D71 5230 8463 8569
+85E4 8A0E 8B04 8C46 8E0F 9003 900F 9419 9676 982D
+9A30 95D8 50CD 52D5 540C 5802 5C0E 61A7 649E 6D1E
+77B3 7AE5 80F4 8404 9053 9285 5CE0 9D07 533F 5F97
+5FB3 6D9C 7279 7763 79BF 7BE4 6BD2 72EC 8AAD 6803
+6A61 51F8 7A81 6934 5C4A 9CF6 82EB 5BC5 9149 701E
+5678 5C6F 60C7 6566 6C8C 8C5A 9041 9813 5451 66C7
+920D 5948 90A3 5185 4E4D 51EA 8599 8B0E 7058 637A
+934B 6962 99B4 7E04 7577 5357 6960 8EDF 96E3 6C5D
+4E8C 5C3C 5F10 8FE9 5302 8CD1 8089 8679 5EFF 65E5
+4E73 5165 5982 5C3F 97EE 4EFB 598A 5FCD 8A8D 6FE1
+79B0 7962 5BE7 8471 732B 71B1 5E74 5FF5 637B 649A
+71C3 7C98 4E43 5EFC 4E4B 57DC 56A2 60A9 6FC3 7D0D
+80FD 8133 81BF 8FB2 8997 86A4 5DF4 628A 64AD 8987
+6777 6CE2 6D3E 7436 7834 5A46 7F75 82AD 99AC 4FF3
+5EC3 62DD 6392 6557 676F 76C3 724C 80CC 80BA 8F29
+914D 500D 57F9 5A92 6885 6973 7164 72FD 8CB7 58F2
+8CE0 966A 9019 877F 79E4 77E7 8429 4F2F 5265 535A
+62CD 67CF 6CCA 767D 7B94 7C95 8236 8584 8FEB 66DD
+6F20 7206 7E1B 83AB 99C1 9EA6 51FD 7BB1 7872 7BB8
+8087 7B48 6AE8 5E61 808C 7551 7560 516B 9262 6E8C
+767A 9197 9AEA 4F10 7F70 629C 7B4F 95A5 9CE9 567A
+5859 86E4 96BC 4F34 5224 534A 53CD 53DB 5E06 642C
+6591 677F 6C3E 6C4E 7248 72AF 73ED 7554 7E41 822C
+85E9 8CA9 7BC4 91C6 7169 9812 98EF 633D 6669 756A
+76E4 78D0 8543 86EE 532A 5351 5426 5983 5E87 5F7C
+60B2 6249 6279 62AB 6590 6BD4 6CCC 75B2 76AE 7891
+79D8 7DCB 7F77 80A5 88AB 8AB9 8CBB 907F 975E 98DB
+6A0B 7C38 5099 5C3E 5FAE 6787 6BD8 7435 7709 7F8E
+9F3B 67CA 7A17 5339 758B 9AED 5F66 819D 83F1 8098
+5F3C 5FC5 7562 7B46 903C 6867 59EB 5A9B 7D10 767E
+8B2C 4FF5 5F6A 6A19 6C37 6F02 74E2 7968 8868 8A55
+8C79 5EDF 63CF 75C5 79D2 82D7 9328 92F2 849C 86ED
+9C2D 54C1 5F6C 658C 6D5C 7015 8CA7 8CD3 983B 654F
+74F6 4E0D 4ED8 57E0 592B 5A66 5BCC 51A8 5E03 5E9C
+6016 6276 6577 65A7 666E 6D6E 7236 7B26 8150 819A
+8299 8B5C 8CA0 8CE6 8D74 961C 9644 4FAE 64AB 6B66
+821E 8461 856A 90E8 5C01 6953 98A8 847A 8557 4F0F
+526F 5FA9 5E45 670D 798F 8179 8907 8986 6DF5 5F17
+6255 6CB8 4ECF 7269 9B92 5206 543B 5674 58B3 61A4
+626E 711A 596E 7C89 7CDE 7D1B 96F0 6587 805E 4E19
+4F75 5175 5840 5E63 5E73 5F0A 67C4 4E26 853D 9589
+965B 7C73 9801 50FB 58C1 7656 78A7 5225 77A5 8511
+7B86 504F 5909 7247 7BC7 7DE8 8FBA 8FD4 904D 4FBF
+52C9 5A29 5F01 97AD 4FDD 8217 92EA 5703 6355 6B69
+752B 88DC 8F14 7A42 52DF 5893 6155 620A 66AE 6BCD
+7C3F 83E9 5023 4FF8 5305 5446 5831 5949 5B9D 5CF0
+5CEF 5D29 5E96 62B1 6367 653E 65B9 670B 6CD5 6CE1
+70F9 7832 7E2B 80DE 82B3 840C 84EC 8702 8912 8A2A
+8C4A 90A6 92D2 98FD 9CF3 9D6C 4E4F 4EA1 508D 5256
+574A 59A8 5E3D 5FD8 5FD9 623F 66B4 671B 67D0 68D2
+5192 7D21 80AA 81A8 8B00 8C8C 8CBF 927E 9632 5420
+982C 5317 50D5 535C 58A8 64B2 6734 7267 7766 7A46
+91E6 52C3 6CA1 6B86 5800 5E4C 5954 672C 7FFB 51E1
+76C6 6469 78E8 9B54 9EBB 57CB 59B9 6627 679A 6BCE
+54E9 69D9 5E55 819C 6795 9BAA 67FE 9C52 685D 4EA6
+4FE3 53C8 62B9 672B 6CAB 8FC4 4FAD 7E6D 9EBF 4E07
+6162 6E80 6F2B 8513 5473 672A 9B45 5DF3 7B95 5CAC
+5BC6 871C 6E4A 84D1 7A14 8108 5999 7C8D 6C11 7720
+52D9 5922 7121 725F 77DB 9727 9D61 690B 5A7F 5A18
+51A5 540D 547D 660E 76DF 8FF7 9298 9CF4 59EA 725D
+6EC5 514D 68C9 7DBF 7DEC 9762 9EBA 6478 6A21 8302
+5984 5B5F 6BDB 731B 76F2 7DB2 8017 8499 5132 6728
+9ED9 76EE 6762 52FF 9905 5C24 623B 7C7E 8CB0 554F
+60B6 7D0B 9580 5301 4E5F 51B6 591C 723A 8036 91CE
+5F25 77E2 5384 5F79 7D04 85AC 8A33 8E8D 9756 67F3
+85AE 9453 6109 6108 6CB9 7652 8AED 8F38 552F 4F51
+512A 52C7 53CB 5BA5 5E7D 60A0 6182 63D6 6709 67DA
+6E67 6D8C 7336 7337 7531 7950 88D5 8A98 904A 9091
+90F5 96C4 878D 5915 4E88 4F59 4E0E 8A89 8F3F 9810
+50AD 5E7C 5996 5BB9 5EB8 63DA 63FA 64C1 66DC 694A
+69D8 6D0B 6EB6 7194 7528 7AAF 7F8A 8000 8449 84C9
+8981 8B21 8E0A 9065 967D 990A 617E 6291 6B32 6C83
+6D74 7FCC 7FFC 6DC0 7F85 87BA 88F8 6765 83B1 983C
+96F7 6D1B 7D61 843D 916A 4E71 5375 5D50 6B04 6FEB
+85CD 862D 89A7 5229 540F 5C65 674E 68A8 7406 7483
+75E2 88CF 88E1 91CC 96E2 9678 5F8B 7387 7ACB 844E
+63A0 7565 5289 6D41 6E9C 7409 7559 786B 7C92 9686
+7ADC 9F8D 4FB6 616E 65C5 865C 4E86 4EAE 50DA 4E21
+51CC 5BEE 6599 6881 6DBC 731F 7642 77AD 7A1C 7CE7
+826F 8AD2 907C 91CF 9675 9818 529B 7DD1 502B 5398
+6797 6DCB 71D0 7433 81E8 8F2A 96A3 9C57 9E9F 7460
+5841 6D99 7D2F 985E 4EE4 4F36 4F8B 51B7 52B1 5DBA
+601C 73B2 793C 82D3 9234 96B7 96F6 970A 9E97 9F62
+66A6 6B74 5217 52A3 70C8 88C2 5EC9 604B 6190 6F23
+7149 7C3E 7DF4 806F 84EE 9023 932C 5442 9B6F 6AD3
+7089 8CC2 8DEF 9732 52B4 5A41 5ECA 5F04 6717 697C
+6994 6D6A 6F0F 7262 72FC 7BED 8001 807E 874B 90CE
+516D 9E93 7984 808B 9332 8AD6 502D 548C 8A71 6B6A
+8CC4 8107 60D1 67A0 9DF2 4E99 4E98 9C10 8A6B 85C1
+8568 6900 6E7E 7897 8155 5F0C 4E10 4E15 4E2A 4E31
+4E36 4E3C 4E3F 4E42 4E56 4E58 4E82 4E85 8C6B 4E8A
+8212 5F0D 4E8E 4E9E 4E9F 4EA0 4EA2 4EB0 4EB3 4EB6
+4ECE 4ECD 4EC4 4EC6 4EC2 4ED7 4EDE 4EED 4EDF 4EF7
+4F09 4F5A 4F30 4F5B 4F5D 4F57 4F47 4F76 4F88 4F8F
+4F98 4F7B 4F69 4F70 4F91 4F6F 4F86 4F96 5118 4FD4
+4FDF 4FCE 4FD8 4FDB 4FD1 4FDA 4FD0 4FE4 4FE5 501A
+5028 5014 502A 5025 5005 4F1C 4FF6 5021 5029 502C
+4FFE 4FEF 5011 5006 5043 5047 6703 5055 5050 5048
+505A 5056 506C 5078 5080 509A 5085 50B4 50B2 50C9
+50CA 50B3 50C2 50D6 50DE 50E5 50ED 50E3 50EE 50F9
+50F5 5109 5101 5102 5116 5115 5114 511A 5121 513A
+5137 513C 513B 513F 5140 5152 514C 5154 5162 7AF8
+5169 516A 516E 5180 5182 56D8 518C 5189 518F 5191
+5193 5195 5196 51A4 51A6 51A2 51A9 51AA 51AB 51B3
+51B1 51B2 51B0 51B5 51BD 51C5 51C9 51DB 51E0 8655
+51E9 51ED 51F0 51F5 51FE 5204 520B 5214 520E 5227
+522A 522E 5233 5239 524F 5244 524B 524C 525E 5254
+526A 5274 5269 5273 527F 527D 528D 5294 5292 5271
+5288 5291 8FA8 8FA7 52AC 52AD 52BC 52B5 52C1 52CD
+52D7 52DE 52E3 52E6 98ED 52E0 52F3 52F5 52F8 52F9
+5306 5308 7538 530D 5310 530F 5315 531A 5323 532F
+5331 5333 5338 5340 5346 5345 4E17 5349 534D 51D6
+535E 5369 536E 5918 537B 5377 5382 5396 53A0 53A6
+53A5 53AE 53B0 53B6 53C3 7C12 96D9 53DF 66FC 71EE
+53EE 53E8 53ED 53FA 5401 543D 5440 542C 542D 543C
+542E 5436 5429 541D 544E 548F 5475 548E 545F 5471
+5477 5470 5492 547B 5480 5476 5484 5490 5486 54C7
+54A2 54B8 54A5 54AC 54C4 54C8 54A8 54AB 54C2 54A4
+54BE 54BC 54D8 54E5 54E6 550F 5514 54FD 54EE 54ED
+54FA 54E2 5539 5540 5563 554C 552E 555C 5545 5556
+5557 5538 5533 555D 5599 5580 54AF 558A 559F 557B
+557E 5598 559E 55AE 557C 5583 55A9 5587 55A8 55DA
+55C5 55DF 55C4 55DC 55E4 55D4 5614 55F7 5616 55FE
+55FD 561B 55F9 564E 5650 71DF 5634 5636 5632 5638
+566B 5664 562F 566C 566A 5686 5680 568A 56A0 5694
+568F 56A5 56AE 56B6 56B4 56C2 56BC 56C1 56C3 56C0
+56C8 56CE 56D1 56D3 56D7 56EE 56F9 5700 56FF 5704
+5709 5708 570B 570D 5713 5718 5716 55C7 571C 5726
+5737 5738 574E 573B 5740 574F 5769 57C0 5788 5761
+577F 5789 5793 57A0 57B3 57A4 57AA 57B0 57C3 57C6
+57D4 57D2 57D3 580A 57D6 57E3 580B 5819 581D 5872
+5821 5862 584B 5870 6BC0 5852 583D 5879 5885 58B9
+589F 58AB 58BA 58DE 58BB 58B8 58AE 58C5 58D3 58D1
+58D7 58D9 58D8 58E5 58DC 58E4 58DF 58EF 58FA 58F9
+58FB 58FC 58FD 5902 590A 5910 591B 68A6 5925 592C
+592D 5932 5938 593E 7AD2 5955 5950 594E 595A 5958
+5962 5960 5967 596C 5969 5978 5981 599D 4F5E 4FAB
+59A3 59B2 59C6 59E8 59DC 598D 59D9 59DA 5A25 5A1F
+5A11 5A1C 5A09 5A1A 5A40 5A6C 5A49 5A35 5A36 5A62
+5A6A 5A9A 5ABC 5ABE 5ACB 5AC2 5ABD 5AE3 5AD7 5AE6
+5AE9 5AD6 5AFA 5AFB 5B0C 5B0B 5B16 5B32 5AD0 5B2A
+5B36 5B3E 5B43 5B45 5B40 5B51 5B55 5B5A 5B5B 5B65
+5B69 5B70 5B73 5B75 5B78 6588 5B7A 5B80 5B83 5BA6
+5BB8 5BC3 5BC7 5BC9 5BD4 5BD0 5BE4 5BE6 5BE2 5BDE
+5BE5 5BEB 5BF0 5BF6 5BF3 5C05 5C07 5C08 5C0D 5C13
+5C20 5C22 5C28 5C38 5C39 5C41 5C46 5C4E 5C53 5C50
+5C4F 5B71 5C6C 5C6E 4E62 5C76 5C79 5C8C 5C91 5C94
+599B 5CAB 5CBB 5CB6 5CBC 5CB7 5CC5 5CBE 5CC7 5CD9
+5CE9 5CFD 5CFA 5CED 5D8C 5CEA 5D0B 5D15 5D17 5D5C
+5D1F 5D1B 5D11 5D14 5D22 5D1A 5D19 5D18 5D4C 5D52
+5D4E 5D4B 5D6C 5D73 5D76 5D87 5D84 5D82 5DA2 5D9D
+5DAC 5DAE 5DBD 5D90 5DB7 5DBC 5DC9 5DCD 5DD3 5DD2
+5DD6 5DDB 5DEB 5DF2 5DF5 5E0B 5E1A 5E19 5E11 5E1B
+5E36 5E37 5E44 5E43 5E40 5E4E 5E57 5E54 5E5F 5E62
+5E64 5E47 5E75 5E76 5E7A 9EBC 5E7F 5EA0 5EC1 5EC2
+5EC8 5ED0 5ECF 5ED6 5EE3 5EDD 5EDA 5EDB 5EE2 5EE1
+5EE8 5EE9 5EEC 5EF1 5EF3 5EF0 5EF4 5EF8 5EFE 5F03
+5F09 5F5D 5F5C 5F0B 5F11 5F16 5F29 5F2D 5F38 5F41
+5F48 5F4C 5F4E 5F2F 5F51 5F56 5F57 5F59 5F61 5F6D
+5F73 5F77 5F83 5F82 5F7F 5F8A 5F88 5F91 5F87 5F9E
+5F99 5F98 5FA0 5FA8 5FAD 5FBC 5FD6 5FFB 5FE4 5FF8
+5FF1 5FDD 60B3 5FFF 6021 6060 6019 6010 6029 600E
+6031 601B 6015 602B 6026 600F 603A 605A 6041 606A
+6077 605F 604A 6046 604D 6063 6043 6064 6042 606C
+606B 6059 6081 608D 60E7 6083 609A 6084 609B 6096
+6097 6092 60A7 608B 60E1 60B8 60E0 60D3 60B4 5FF0
+60BD 60C6 60B5 60D8 614D 6115 6106 60F6 60F7 6100
+60F4 60FA 6103 6121 60FB 60F1 610D 610E 6147 613E
+6128 6127 614A 613F 613C 612C 6134 613D 6142 6144
+6173 6177 6158 6159 615A 616B 6174 616F 6165 6171
+615F 615D 6153 6175 6199 6196 6187 61AC 6194 619A
+618A 6191 61AB 61AE 61CC 61CA 61C9 61F7 61C8 61C3
+61C6 61BA 61CB 7F79 61CD 61E6 61E3 61F6 61FA 61F4
+61FF 61FD 61FC 61FE 6200 6208 6209 620D 620C 6214
+621B 621E 6221 622A 622E 6230 6232 6233 6241 624E
+625E 6263 625B 6260 6268 627C 6282 6289 627E 6292
+6293 6296 62D4 6283 6294 62D7 62D1 62BB 62CF 62FF
+62C6 64D4 62C8 62DC 62CC 62CA 62C2 62C7 629B 62C9
+630C 62EE 62F1 6327 6302 6308 62EF 62F5 6350 633E
+634D 641C 634F 6396 638E 6380 63AB 6376 63A3 638F
+6389 639F 63B5 636B 6369 63BE 63E9 63C0 63C6 63E3
+63C9 63D2 63F6 63C4 6416 6434 6406 6413 6426 6436
+651D 6417 6428 640F 6467 646F 6476 644E 652A 6495
+6493 64A5 64A9 6488 64BC 64DA 64D2 64C5 64C7 64BB
+64D8 64C2 64F1 64E7 8209 64E0 64E1 62AC 64E3 64EF
+652C 64F6 64F4 64F2 64FA 6500 64FD 6518 651C 6505
+6524 6523 652B 6534 6535 6537 6536 6538 754B 6548
+6556 6555 654D 6558 655E 655D 6572 6578 6582 6583
+8B8A 659B 659F 65AB 65B7 65C3 65C6 65C1 65C4 65CC
+65D2 65DB 65D9 65E0 65E1 65F1 6772 660A 6603 65FB
+6773 6635 6636 6634 661C 664F 6644 6649 6641 665E
+665D 6664 6667 6668 665F 6662 6670 6683 6688 668E
+6689 6684 6698 669D 66C1 66B9 66C9 66BE 66BC 66C4
+66B8 66D6 66DA 66E0 663F 66E6 66E9 66F0 66F5 66F7
+670F 6716 671E 6726 6727 9738 672E 673F 6736 6741
+6738 6737 6746 675E 6760 6759 6763 6764 6789 6770
+67A9 677C 676A 678C 678B 67A6 67A1 6785 67B7 67EF
+67B4 67EC 67B3 67E9 67B8 67E4 67DE 67DD 67E2 67EE
+67B9 67CE 67C6 67E7 6A9C 681E 6846 6829 6840 684D
+6832 684E 68B3 682B 6859 6863 6877 687F 689F 688F
+68AD 6894 689D 689B 6883 6AAE 68B9 6874 68B5 68A0
+68BA 690F 688D 687E 6901 68CA 6908 68D8 6922 6926
+68E1 690C 68CD 68D4 68E7 68D5 6936 6912 6904 68D7
+68E3 6925 68F9 68E0 68EF 6928 692A 691A 6923 6921
+68C6 6979 6977 695C 6978 696B 6954 697E 696E 6939
+6974 693D 6959 6930 6961 695E 695D 6981 696A 69B2
+69AE 69D0 69BF 69C1 69D3 69BE 69CE 5BE8 69CA 69DD
+69BB 69C3 69A7 6A2E 6991 69A0 699C 6995 69B4 69DE
+69E8 6A02 6A1B 69FF 6B0A 69F9 69F2 69E7 6A05 69B1
+6A1E 69ED 6A14 69EB 6A0A 6A12 6AC1 6A23 6A13 6A44
+6A0C 6A72 6A36 6A78 6A47 6A62 6A59 6A66 6A48 6A38
+6A22 6A90 6A8D 6AA0 6A84 6AA2 6AA3 6A97 8617 6ABB
+6AC3 6AC2 6AB8 6AB3 6AAC 6ADE 6AD1 6ADF 6AAA 6ADA
+6AEA 6AFB 6B05 8616 6AFA 6B12 6B16 9B31 6B1F 6B38
+6B37 76DC 6B39 98EE 6B47 6B43 6B49 6B50 6B59 6B54
+6B5B 6B5F 6B61 6B78 6B79 6B7F 6B80 6B84 6B83 6B8D
+6B98 6B95 6B9E 6BA4 6BAA 6BAB 6BAF 6BB2 6BB1 6BB3
+6BB7 6BBC 6BC6 6BCB 6BD3 6BDF 6BEC 6BEB 6BF3 6BEF
+9EBE 6C08 6C13 6C14 6C1B 6C24 6C23 6C5E 6C55 6C62
+6C6A 6C82 6C8D 6C9A 6C81 6C9B 6C7E 6C68 6C73 6C92
+6C90 6CC4 6CF1 6CD3 6CBD 6CD7 6CC5 6CDD 6CAE 6CB1
+6CBE 6CBA 6CDB 6CEF 6CD9 6CEA 6D1F 884D 6D36 6D2B
+6D3D 6D38 6D19 6D35 6D33 6D12 6D0C 6D63 6D93 6D64
+6D5A 6D79 6D59 6D8E 6D95 6FE4 6D85 6DF9 6E15 6E0A
+6DB5 6DC7 6DE6 6DB8 6DC6 6DEC 6DDE 6DCC 6DE8 6DD2
+6DC5 6DFA 6DD9 6DE4 6DD5 6DEA 6DEE 6E2D 6E6E 6E2E
+6E19 6E72 6E5F 6E3E 6E23 6E6B 6E2B 6E76 6E4D 6E1F
+6E43 6E3A 6E4E 6E24 6EFF 6E1D 6E38 6E82 6EAA 6E98
+6EC9 6EB7 6ED3 6EBD 6EAF 6EC4 6EB2 6ED4 6ED5 6E8F
+6EA5 6EC2 6E9F 6F41 6F11 704C 6EEC 6EF8 6EFE 6F3F
+6EF2 6F31 6EEF 6F32 6ECC 6F3E 6F13 6EF7 6F86 6F7A
+6F78 6F81 6F80 6F6F 6F5B 6FF3 6F6D 6F82 6F7C 6F58
+6F8E 6F91 6FC2 6F66 6FB3 6FA3 6FA1 6FA4 6FB9 6FC6
+6FAA 6FDF 6FD5 6FEC 6FD4 6FD8 6FF1 6FEE 6FDB 7009
+700B 6FFA 7011 7001 700F 6FFE 701B 701A 6F74 701D
+7018 701F 7030 703E 7032 7051 7063 7099 7092 70AF
+70F1 70AC 70B8 70B3 70AE 70DF 70CB 70DD 70D9 7109
+70FD 711C 7119 7165 7155 7188 7166 7162 714C 7156
+716C 718F 71FB 7184 7195 71A8 71AC 71D7 71B9 71BE
+71D2 71C9 71D4 71CE 71E0 71EC 71E7 71F5 71FC 71F9
+71FF 720D 7210 721B 7228 722D 722C 7230 7232 723B
+723C 723F 7240 7246 724B 7258 7274 727E 7282 7281
+7287 7292 7296 72A2 72A7 72B9 72B2 72C3 72C6 72C4
+72CE 72D2 72E2 72E0 72E1 72F9 72F7 500F 7317 730A
+731C 7316 731D 7334 732F 7329 7325 733E 734E 734F
+9ED8 7357 736A 7368 7370 7378 7375 737B 737A 73C8
+73B3 73CE 73BB 73C0 73E5 73EE 73DE 74A2 7405 746F
+7425 73F8 7432 743A 7455 743F 745F 7459 7441 745C
+7469 7470 7463 746A 7476 747E 748B 749E 74A7 74CA
+74CF 74D4 73F1 74E0 74E3 74E7 74E9 74EE 74F2 74F0
+74F1 74F8 74F7 7504 7503 7505 750C 750E 750D 7515
+7513 751E 7526 752C 753C 7544 754D 754A 7549 755B
+7546 755A 7569 7564 7567 756B 756D 7578 7576 7586
+7587 7574 758A 7589 7582 7594 759A 759D 75A5 75A3
+75C2 75B3 75C3 75B5 75BD 75B8 75BC 75B1 75CD 75CA
+75D2 75D9 75E3 75DE 75FE 75FF 75FC 7601 75F0 75FA
+75F2 75F3 760B 760D 7609 761F 7627 7620 7621 7622
+7624 7634 7630 763B 7647 7648 7646 765C 7658 7661
+7662 7668 7669 766A 7667 766C 7670 7672 7676 7678
+767C 7680 7683 7688 768B 768E 7696 7693 7699 769A
+76B0 76B4 76B8 76B9 76BA 76C2 76CD 76D6 76D2 76DE
+76E1 76E5 76E7 76EA 862F 76FB 7708 7707 7704 7729
+7724 771E 7725 7726 771B 7737 7738 7747 775A 7768
+776B 775B 7765 777F 777E 7779 778E 778B 7791 77A0
+779E 77B0 77B6 77B9 77BF 77BC 77BD 77BB 77C7 77CD
+77D7 77DA 77DC 77E3 77EE 77FC 780C 7812 7926 7820
+792A 7845 788E 7874 7886 787C 789A 788C 78A3 78B5
+78AA 78AF 78D1 78C6 78CB 78D4 78BE 78BC 78C5 78CA
+78EC 78E7 78DA 78FD 78F4 7907 7912 7911 7919 792C
+792B 7940 7960 7957 795F 795A 7955 7953 797A 797F
+798A 799D 79A7 9F4B 79AA 79AE 79B3 79B9 79BA 79C9
+79D5 79E7 79EC 79E1 79E3 7A08 7A0D 7A18 7A19 7A20
+7A1F 7980 7A31 7A3B 7A3E 7A37 7A43 7A57 7A49 7A61
+7A62 7A69 9F9D 7A70 7A79 7A7D 7A88 7A97 7A95 7A98
+7A96 7AA9 7AC8 7AB0 7AB6 7AC5 7AC4 7ABF 9083 7AC7
+7ACA 7ACD 7ACF 7AD5 7AD3 7AD9 7ADA 7ADD 7AE1 7AE2
+7AE6 7AED 7AF0 7B02 7B0F 7B0A 7B06 7B33 7B18 7B19
+7B1E 7B35 7B28 7B36 7B50 7B7A 7B04 7B4D 7B0B 7B4C
+7B45 7B75 7B65 7B74 7B67 7B70 7B71 7B6C 7B6E 7B9D
+7B98 7B9F 7B8D 7B9C 7B9A 7B8B 7B92 7B8F 7B5D 7B99
+7BCB 7BC1 7BCC 7BCF 7BB4 7BC6 7BDD 7BE9 7C11 7C14
+7BE6 7BE5 7C60 7C00 7C07 7C13 7BF3 7BF7 7C17 7C0D
+7BF6 7C23 7C27 7C2A 7C1F 7C37 7C2B 7C3D 7C4C 7C43
+7C54 7C4F 7C40 7C50 7C58 7C5F 7C64 7C56 7C65 7C6C
+7C75 7C83 7C90 7CA4 7CAD 7CA2 7CAB 7CA1 7CA8 7CB3
+7CB2 7CB1 7CAE 7CB9 7CBD 7CC0 7CC5 7CC2 7CD8 7CD2
+7CDC 7CE2 9B3B 7CEF 7CF2 7CF4 7CF6 7CFA 7D06 7D02
+7D1C 7D15 7D0A 7D45 7D4B 7D2E 7D32 7D3F 7D35 7D46
+7D73 7D56 7D4E 7D72 7D68 7D6E 7D4F 7D63 7D93 7D89
+7D5B 7D8F 7D7D 7D9B 7DBA 7DAE 7DA3 7DB5 7DC7 7DBD
+7DAB 7E3D 7DA2 7DAF 7DDC 7DB8 7D9F 7DB0 7DD8 7DDD
+7DE4 7DDE 7DFB 7DF2 7DE1 7E05 7E0A 7E23 7E21 7E12
+7E31 7E1F 7E09 7E0B 7E22 7E46 7E66 7E3B 7E35 7E39
+7E43 7E37 7E32 7E3A 7E67 7E5D 7E56 7E5E 7E59 7E5A
+7E79 7E6A 7E69 7E7C 7E7B 7E83 7DD5 7E7D 8FAE 7E7F
+7E88 7E89 7E8C 7E92 7E90 7E93 7E94 7E96 7E8E 7E9B
+7E9C 7F38 7F3A 7F45 7F4C 7F4D 7F4E 7F50 7F51 7F55
+7F54 7F58 7F5F 7F60 7F68 7F69 7F67 7F78 7F82 7F86
+7F83 7F88 7F87 7F8C 7F94 7F9E 7F9D 7F9A 7FA3 7FAF
+7FB2 7FB9 7FAE 7FB6 7FB8 8B71 7FC5 7FC6 7FCA 7FD5
+7FD4 7FE1 7FE6 7FE9 7FF3 7FF9 98DC 8006 8004 800B
+8012 8018 8019 801C 8021 8028 803F 803B 804A 8046
+8052 8058 805A 805F 8062 8068 8073 8072 8070 8076
+8079 807D 807F 8084 8086 8085 809B 8093 809A 80AD
+5190 80AC 80DB 80E5 80D9 80DD 80C4 80DA 80D6 8109
+80EF 80F1 811B 8129 8123 812F 814B 968B 8146 813E
+8153 8151 80FC 8171 816E 8165 8166 8174 8183 8188
+818A 8180 8182 81A0 8195 81A4 81A3 815F 8193 81A9
+81B0 81B5 81BE 81B8 81BD 81C0 81C2 81BA 81C9 81CD
+81D1 81D9 81D8 81C8 81DA 81DF 81E0 81E7 81FA 81FB
+81FE 8201 8202 8205 8207 820A 820D 8210 8216 8229
+822B 8238 8233 8240 8259 8258 825D 825A 825F 8264
+8262 8268 826A 826B 822E 8271 8277 8278 827E 828D
+8292 82AB 829F 82BB 82AC 82E1 82E3 82DF 82D2 82F4
+82F3 82FA 8393 8303 82FB 82F9 82DE 8306 82DC 8309
+82D9 8335 8334 8316 8332 8331 8340 8339 8350 8345
+832F 832B 8317 8318 8385 839A 83AA 839F 83A2 8396
+8323 838E 8387 838A 837C 83B5 8373 8375 83A0 8389
+83A8 83F4 8413 83EB 83CE 83FD 8403 83D8 840B 83C1
+83F7 8407 83E0 83F2 840D 8422 8420 83BD 8438 8506
+83FB 846D 842A 843C 855A 8484 8477 846B 84AD 846E
+8482 8469 8446 842C 846F 8479 8435 84CA 8462 84B9
+84BF 849F 84D9 84CD 84BB 84DA 84D0 84C1 84C6 84D6
+84A1 8521 84FF 84F4 8517 8518 852C 851F 8515 8514
+84FC 8540 8563 8558 8548 8541 8602 854B 8555 8580
+85A4 8588 8591 858A 85A8 856D 8594 859B 85EA 8587
+859C 8577 857E 8590 85C9 85BA 85CF 85B9 85D0 85D5
+85DD 85E5 85DC 85F9 860A 8613 860B 85FE 85FA 8606
+8622 861A 8630 863F 864D 4E55 8654 865F 8667 8671
+8693 86A3 86A9 86AA 868B 868C 86B6 86AF 86C4 86C6
+86B0 86C9 8823 86AB 86D4 86DE 86E9 86EC 86DF 86DB
+86EF 8712 8706 8708 8700 8703 86FB 8711 8709 870D
+86F9 870A 8734 873F 8737 873B 8725 8729 871A 8760
+875F 8778 874C 874E 8774 8757 8768 876E 8759 8753
+8763 876A 8805 87A2 879F 8782 87AF 87CB 87BD 87C0
+87D0 96D6 87AB 87C4 87B3 87C7 87C6 87BB 87EF 87F2
+87E0 880F 880D 87FE 87F6 87F7 880E 87D2 8811 8816
+8815 8822 8821 8831 8836 8839 8827 883B 8844 8842
+8852 8859 885E 8862 886B 8881 887E 889E 8875 887D
+88B5 8872 8882 8897 8892 88AE 8899 88A2 888D 88A4
+88B0 88BF 88B1 88C3 88C4 88D4 88D8 88D9 88DD 88F9
+8902 88FC 88F4 88E8 88F2 8904 890C 890A 8913 8943
+891E 8925 892A 892B 8941 8944 893B 8936 8938 894C
+891D 8960 895E 8966 8964 896D 896A 896F 8974 8977
+897E 8983 8988 898A 8993 8998 89A1 89A9 89A6 89AC
+89AF 89B2 89BA 89BD 89BF 89C0 89DA 89DC 89DD 89E7
+89F4 89F8 8A03 8A16 8A10 8A0C 8A1B 8A1D 8A25 8A36
+8A41 8A5B 8A52 8A46 8A48 8A7C 8A6D 8A6C 8A62 8A85
+8A82 8A84 8AA8 8AA1 8A91 8AA5 8AA6 8A9A 8AA3 8AC4
+8ACD 8AC2 8ADA 8AEB 8AF3 8AE7 8AE4 8AF1 8B14 8AE0
+8AE2 8AF7 8ADE 8ADB 8B0C 8B07 8B1A 8AE1 8B16 8B10
+8B17 8B20 8B33 97AB 8B26 8B2B 8B3E 8B28 8B41 8B4C
+8B4F 8B4E 8B49 8B56 8B5B 8B5A 8B6B 8B5F 8B6C 8B6F
+8B74 8B7D 8B80 8B8C 8B8E 8B92 8B93 8B96 8B99 8B9A
+8C3A 8C41 8C3F 8C48 8C4C 8C4E 8C50 8C55 8C62 8C6C
+8C78 8C7A 8C82 8C89 8C85 8C8A 8C8D 8C8E 8C94 8C7C
+8C98 621D 8CAD 8CAA 8CBD 8CB2 8CB3 8CAE 8CB6 8CC8
+8CC1 8CE4 8CE3 8CDA 8CFD 8CFA 8CFB 8D04 8D05 8D0A
+8D07 8D0F 8D0D 8D10 9F4E 8D13 8CCD 8D14 8D16 8D67
+8D6D 8D71 8D73 8D81 8D99 8DC2 8DBE 8DBA 8DCF 8DDA
+8DD6 8DCC 8DDB 8DCB 8DEA 8DEB 8DDF 8DE3 8DFC 8E08
+8E09 8DFF 8E1D 8E1E 8E10 8E1F 8E42 8E35 8E30 8E34
+8E4A 8E47 8E49 8E4C 8E50 8E48 8E59 8E64 8E60 8E2A
+8E63 8E55 8E76 8E72 8E7C 8E81 8E87 8E85 8E84 8E8B
+8E8A 8E93 8E91 8E94 8E99 8EAA 8EA1 8EAC 8EB0 8EC6
+8EB1 8EBE 8EC5 8EC8 8ECB 8EDB 8EE3 8EFC 8EFB 8EEB
+8EFE 8F0A 8F05 8F15 8F12 8F19 8F13 8F1C 8F1F 8F1B
+8F0C 8F26 8F33 8F3B 8F39 8F45 8F42 8F3E 8F4C 8F49
+8F46 8F4E 8F57 8F5C 8F62 8F63 8F64 8F9C 8F9F 8FA3
+8FAD 8FAF 8FB7 8FDA 8FE5 8FE2 8FEA 8FEF 9087 8FF4
+9005 8FF9 8FFA 9011 9015 9021 900D 901E 9016 900B
+9027 9036 9035 9039 8FF8 904F 9050 9051 9052 900E
+9049 903E 9056 9058 905E 9068 906F 9076 96A8 9072
+9082 907D 9081 9080 908A 9089 908F 90A8 90AF 90B1
+90B5 90E2 90E4 6248 90DB 9102 9112 9119 9132 9130
+914A 9156 9158 9163 9165 9169 9173 9172 918B 9189
+9182 91A2 91AB 91AF 91AA 91B5 91B4 91BA 91C0 91C1
+91C9 91CB 91D0 91D6 91DF 91E1 91DB 91FC 91F5 91F6
+921E 91FF 9214 922C 9215 9211 925E 9257 9245 9249
+9264 9248 9295 923F 924B 9250 929C 9296 9293 929B
+925A 92CF 92B9 92B7 92E9 930F 92FA 9344 932E 9319
+9322 931A 9323 933A 9335 933B 935C 9360 937C 936E
+9356 93B0 93AC 93AD 9394 93B9 93D6 93D7 93E8 93E5
+93D8 93C3 93DD 93D0 93C8 93E4 941A 9414 9413 9403
+9407 9410 9436 942B 9435 9421 943A 9441 9452 9444
+945B 9460 9462 945E 946A 9229 9470 9475 9477 947D
+945A 947C 947E 9481 947F 9582 9587 958A 9594 9596
+9598 9599 95A0 95A8 95A7 95AD 95BC 95BB 95B9 95BE
+95CA 6FF6 95C3 95CD 95CC 95D5 95D4 95D6 95DC 95E1
+95E5 95E2 9621 9628 962E 962F 9642 964C 964F 964B
+9677 965C 965E 965D 965F 9666 9672 966C 968D 9698
+9695 9697 96AA 96A7 96B1 96B2 96B0 96B4 96B6 96B8
+96B9 96CE 96CB 96C9 96CD 894D 96DC 970D 96D5 96F9
+9704 9706 9708 9713 970E 9711 970F 9716 9719 9724
+972A 9730 9739 973D 973E 9744 9746 9748 9742 9749
+975C 9760 9764 9766 9768 52D2 976B 9771 9779 9785
+977C 9781 977A 9786 978B 978F 9790 979C 97A8 97A6
+97A3 97B3 97B4 97C3 97C6 97C8 97CB 97DC 97ED 9F4F
+97F2 7ADF 97F6 97F5 980F 980C 9838 9824 9821 9837
+983D 9846 984F 984B 986B 986F 9870 9871 9874 9873
+98AA 98AF 98B1 98B6 98C4 98C3 98C6 98E9 98EB 9903
+9909 9912 9914 9918 9921 991D 991E 9924 9920 992C
+992E 993D 993E 9942 9949 9945 9950 994B 9951 9952
+994C 9955 9997 9998 99A5 99AD 99AE 99BC 99DF 99DB
+99DD 99D8 99D1 99ED 99EE 99F1 99F2 99FB 99F8 9A01
+9A0F 9A05 99E2 9A19 9A2B 9A37 9A45 9A42 9A40 9A43
+9A3E 9A55 9A4D 9A5B 9A57 9A5F 9A62 9A65 9A64 9A69
+9A6B 9A6A 9AAD 9AB0 9ABC 9AC0 9ACF 9AD1 9AD3 9AD4
+9ADE 9ADF 9AE2 9AE3 9AE6 9AEF 9AEB 9AEE 9AF4 9AF1
+9AF7 9AFB 9B06 9B18 9B1A 9B1F 9B22 9B23 9B25 9B27
+9B28 9B29 9B2A 9B2E 9B2F 9B32 9B44 9B43 9B4F 9B4D
+9B4E 9B51 9B58 9B74 9B93 9B83 9B91 9B96 9B97 9B9F
+9BA0 9BA8 9BB4 9BC0 9BCA 9BB9 9BC6 9BCF 9BD1 9BD2
+9BE3 9BE2 9BE4 9BD4 9BE1 9C3A 9BF2 9BF1 9BF0 9C15
+9C14 9C09 9C13 9C0C 9C06 9C08 9C12 9C0A 9C04 9C2E
+9C1B 9C25 9C24 9C21 9C30 9C47 9C32 9C46 9C3E 9C5A
+9C60 9C67 9C76 9C78 9CE7 9CEC 9CF0 9D09 9D08 9CEB
+9D03 9D06 9D2A 9D26 9DAF 9D23 9D1F 9D44 9D15 9D12
+9D41 9D3F 9D3E 9D46 9D48 9D5D 9D5E 9D64 9D51 9D50
+9D59 9D72 9D89 9D87 9DAB 9D6F 9D7A 9D9A 9DA4 9DA9
+9DB2 9DC4 9DC1 9DBB 9DB8 9DBA 9DC6 9DCF 9DC2 9DD9
+9DD3 9DF8 9DE6 9DED 9DEF 9DFD 9E1A 9E1B 9E1E 9E75
+9E79 9E7D 9E81 9E88 9E8B 9E8C 9E92 9E95 9E91 9E9D
+9EA5 9EA9 9EB8 9EAA 9EAD 9761 9ECC 9ECE 9ECF 9ED0
+9ED4 9EDC 9EDE 9EDD 9EE0 9EE5 9EE8 9EEF 9EF4 9EF6
+9EF7 9EF9 9EFB 9EFC 9EFD 9F07 9F08 76B7 9F15 9F21
+9F2C 9F3E 9F4A 9F52 9F54 9F63 9F5F 9F60 9F61 9F66
+9F67 9F6C 9F6A 9F77 9F72 9F76 9F95 9F9C 9FA0 582F
+69C7 9059 7464 51DC 7199
+__END__
+
+=head1 NAME
+
+Unicode::Collate::CJK::JISX0208 - weighting JIS KANJI for Unicode::Collate
+
+=head1 SYNOPSIS
+
+    use Unicode::Collate;
+    use Unicode::Collate::CJK::JISX0208;
+
+    my $collator = Unicode::Collate->new(
+        overrideCJK => \&Unicode::Collate::CJK::JISX0208::weightJISX0208
+    );
+
+=head1 DESCRIPTION
+
+C<Unicode::Collate::CJK::JISX0208> provides C<weightJISX0208()>,
+that is adequate for C<overrideCJK> of C<Unicode::Collate>
+and makes tailoring of 6355 kanji (CJK Unified Ideographs)
+in the JIS X 0208 order.
+
+=head1 SEE ALSO
+
+=over 4
+
+=item L<Unicode::Collate>
+
+=item L<Unicode::Collate::Locale>
+
+=back
+
+=cut
diff --git a/lib/5.24.1/Unicode/Collate/CJK/Korean.pm b/lib/5.24.1/Unicode/Collate/CJK/Korean.pm
new file mode 100644
index 00000000..04ef6763
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/CJK/Korean.pm
@@ -0,0 +1,1560 @@
+package Unicode::Collate::CJK::Korean;
+
+use 5.006;
+use strict;
+use warnings;
+
+our $VERSION = '1.14';
+
+my %jamo2prim = (
+    '1100', 0x376F,   '1101', 0x3770,   '1102', 0x3771,   '1103', 0x3772,
+    '1105', 0x3774,   '1106', 0x3775,   '1107', 0x3776,   '1109', 0x3778,
+    '110A', 0x3779,   '110B', 0x377A,   '110C', 0x377B,   '110E', 0x377D,
+    '110F', 0x377E,   '1110', 0x377F,   '1111', 0x3780,   '1112', 0x3781,
+    '1161', 0x37ED,   '1162', 0x37EE,   '1163', 0x37EF,   '1165', 0x37F1,
+    '1166', 0x37F2,   '1167', 0x37F3,   '1168', 0x37F4,   '1169', 0x37F5,
+    '116A', 0x37F6,   '116B', 0x37F7,   '116C', 0x37F8,   '116D', 0x37F9,
+    '116E', 0x37FA,   '116F', 0x37FB,   '1170', 0x37FC,   '1171', 0x37FD,
+    '1172', 0x37FE,   '1173', 0x37FF,   '1174', 0x3800,   '1175', 0x3801,
+    '11A8', 0x384B,   '11AB', 0x384E,   '11AF', 0x3852,   '11B7', 0x385A,
+    '11B8', 0x385B,   '11BC', 0x385F,   '11BD', 0x3860,
+); # for DUCET v7.0.0
+
+my(%u2e, $prim, $wt);
+while (<DATA>) {
+    last if /^__END__/;
+    my @c = split;
+    if (@c == 1 && $c[0] =~ /^[A-D]/) { # hangul
+	$c[0] =~ s/^.*://;
+	$prim = [ map $jamo2prim{$_}, split /-/, $c[0] ];
+	$wt = 0x20;
+    } else { # ideographs
+	for my $c (@c) {
+	    next if !$c;
+	    $wt++;
+	    $u2e{hex($c)} = [ $wt, @$prim ];
+	}
+    }
+}
+
+sub weightKorean {
+    my $u = shift;
+    return undef if !exists $u2e{$u};
+    my @a = @{ $u2e{$u} };
+    my $s = shift @a;
+    my $p = shift @a;
+    return([ $p, $s, 0x2, $u ], @a);
+}
+
+1;
+
+# DATA format
+# hangul syllable:jamo-jamo(-jamo)
+# equiv. ideographs
+
+__DATA__
+AC00:1100-1161
+4F3D 4F73 5047 50F9 52A0 53EF 5475 54E5 5609 5AC1
+5BB6 6687 67B6 67B7 67EF 6B4C 73C2 75C2 7A3C 82DB
+8304 8857 8888 8A36 8CC8 8DCF 8EFB 8FE6 99D5 4EEE
+50A2 5496 54FF 5777 5B8A 659D 698E 6A9F 73C8 7B33
+801E 8238 846D 8B0C
+AC01:1100-1161-11A8
+523B 5374 5404 606A 6164 6BBC 73CF 811A 89BA 89D2
+95A3 537B 54AF 57C6 6409 64F1 6877
+AC04:1100-1161-11AB
+4F83 520A 58BE 5978 59E6 5E72 5E79 61C7 63C0 6746
+67EC 687F 6F97 764E 770B 78F5 7A08 7AFF 7C21 809D
+826E 8271 8AEB 9593 5058 6173 681E 69A6 7395 79C6
+831B 884E 8D76 8FC0 9F66
+AC08:1100-1161-11AF
+4E6B 559D 66F7 6E34 78A3 7AED 845B 8910 874E 97A8
+5676 696C 79F8 7FAF 880D 9DA1
+AC10:1100-1161-11B7
+52D8 574E 582A 5D4C 611F 61BE 6221 6562 67D1 6A44
+6E1B 7518 75B3 76E3 77B0 7D3A 90AF 9451 9452 9F95
+5769 57F3 5D41 5F07 61A8 64BC 6B3F 6B5B 6CD4 6DE6
+6F89 77D9 8F57 9163 9E7B
+AC11:1100-1161-11B8
+5323 5CAC 7532 80DB 9240 9598 97D0
+AC15:1100-1161-11BC
+525B 5808 59DC 5CA1 5D17 5EB7 5F3A 5F4A 6177 6C5F
+757A 7586 7CE0 7D73 7DB1 7F8C 8154 8221 8591 8941
+8B1B 92FC 964D 9C47 508B 50F5 58C3 5FFC 625B 6760
+6A7F 6BAD 77FC 7A45 7E48 7F61 7F97 7FAB 8333 8C47
+97C1
+AC1C:1100-1162
+4ECB 4EF7 500B 51F1 584F 6137 613E 6168 6539 69EA
+6F11 75A5 7686 76D6 7B87 82A5 84CB 93A7 958B 5274
+5303 63E9 69E9 73A0 78D5 95D3
+AC1D:1100-1162-11A8
+5580 5BA2
+AC31:1100-1162-11BC
+5751 7CB3 7FB9 785C 8CE1 93D7
+AC39:1100-1163-11A8
+91B5
+AC70:1100-1165
+5028 53BB 5C45 5DE8 62D2 636E 64DA 64E7 6E20 70AC
+795B 8DDD 8E1E 907D 9245 92F8 547F 661B 79EC 7B65
+7C67 80E0 8152 82E3 8392 8556 8627 88AA 88FE 99CF
+AC74:1100-1165-11AB
+4E7E 4EF6 5065 5DFE 5EFA 6106 6957 8171 8654 8E47
+9375 9A2B 63F5 728D 7777 8930 8B07 97AC
+AC78:1100-1165-11AF
+4E5E 5091 6770 6840 4E6C 6705 69A4
+AC80:1100-1165-11B7
+5109 528D 5292 6AA2 77BC 9210 9ED4 64BF 82A1
+AC81:1100-1165-11B8
+52AB 602F 8FF2 5226 5227
+AC8C:1100-1166
+5048 61A9 63ED
+ACA9:1100-1167-11A8
+64CA 683C 6A84 6FC0 8188 89A1 9694 630C 6BC4 95C3
+9ABC 9B32 9D03
+ACAC:1100-1167-11AB
+5805 727D 72AC 7504 7D79 7E6D 80A9 898B 8B74 9063
+9D51 6A2B 72F7 754E 7B67 7E33 7E7E 7F82 8832 9C39
+ACB0:1100-1167-11AF
+6289 6C7A 6F54 7D50 7F3A 8A23 73A6 89D6 95CB
+ACB8:1100-1167-11B7
+517C 614A 7B9D 8B19 9257 938C 5094 55DB 5C92 62D1
+6B49 7E11 84B9 9EDA 9F38
+ACBD:1100-1167-11BC
+4EAC 4FD3 501E 50BE 5106 52C1 52CD 537F 5770 5883
+5E9A 5F91 6176 61AC 64CE 656C 666F 66BB 66F4 6897
+6D87 7085 70F1 749F 74A5 74CA 75D9 786C 78EC 7ADF
+7AF6 7D45 7D93 8015 803F 811B 8396 8B66 8F15 9015
+93E1 9803 9838 9A5A 9BE8 518F 5244 54FD 60F8 61BC
+6243 6AA0 7162 712D 71B2 754A 7AF8 7D86 9848 7F44
+8927 8B26 99C9 9BC1 9EE5
+ACC4:1100-1168
+4FC2 5553 583A 5951 5B63 5C46 60B8 6212 6842 68B0
+68E8 6EAA 754C 7678 78CE 7A3D 7CFB 7E6B 7E7C 8A08
+8AA1 8C3F 968E 9DC4 5826 70D3 7608 798A 7B53 7DAE
+7E18 7F7D 846A 858A 96DE 9AFB
+ACE0:1100-1169
+53E4 53E9 544A 5471 56FA 59D1 5B64 5C3B 5EAB 62F7
+6537 6545 6572 66A0 67AF 69C1 6CBD 75FC 7690 777E
+7A3F 7F94 8003 80A1 818F 82E6 82FD 83F0 85C1 8831
+88B4 8AA5 8F9C 932E 96C7 9867 9AD8 9F13 4F30 51C5
+5233 5859 6772 6832 69C0 69F9 6ADC 726F 768B 76EC
+77BD 7A01 7B8D 7BD9 7CD5 7F5F 7F96 7FFA 80EF 89DA
+8A41 90DC 9164 9237 9760 9D23 9DF1
+ACE1:1100-1169-11A8
+54ED 659B 66F2 688F 7A40 8C37 9D60 56B3 69F2 7E20
+89F3 8F42
+ACE4:1100-1169-11AB
+56F0 5764 5D11 6606 68B1 68CD 6EFE 7428 889E 9BE4
+5803 5D10 6083 6346 7DC4 886E 88CD 890C 9315 95AB
+9AE1 9D7E 9DA4 9F6B
+ACE8:1100-1169-11AF
+6C68 9AA8 6430 69BE 77FB 9DBB
+ACF5:1100-1169-11BC
+4F9B 516C 5171 529F 5B54 5DE5 6050 606D 62F1 63A7
+653B 73D9 7A7A 86A3 8CA2 978F 5025 5D06 60BE 6831
+69D3 7B9C 86E9 86EC 8D1B 8DEB 91ED 9F94
+ACF6:1100-1169-11BD
+4E32
+ACFC:1100-116A
+5BE1 6208 679C 74DC 79D1 83D3 8A87 8AB2 8DE8 904E
+934B 9846 4F89 581D 5925 5938 64BE 7313 7A1E 7AA0
+874C 88F9 8E1D 9299 9A0D
+ACFD:1100-116A-11A8
+5ED3 69E8 85FF 90ED 6901 7668 8EA9 970D 97B9
+AD00:1100-116A-11AB
+51A0 5B98 5BEC 6163 68FA 6B3E 704C 742F 74D8 7BA1
+7F50 83C5 89C0 8CAB 95DC 9928 4E31 6DAB 721F 76E5
+797C 7ABE 7B66 7DB0 8F28 9327 9475 96DA 9874 9AD6
+9E1B
+AD04:1100-116A-11AF
+522E 605D 62EC 9002 4F78 681D 7B48 8052 9AFA 9D30
+AD11:1100-116A-11BC
+4F8A 5149 5321 58D9 5EE3 66E0 6D38 709A 72C2 73D6
+7B50 80F1 945B 6047 6844 6846 720C 7377 78FA 7D56
+7E8A 832A 8A86 8A91
+AD18:1100-116B
+5366 639B 7F6B 54BC 6302 7F63 8A7F
+AD34:1100-116C
+4E56 5080 584A 58DE 602A 6127 62D0 69D0 9B41 5ABF
+5EE5 6060 7470 749D 84AF 8958
+AD35:1100-116C-11A8
+9998
+AD49:1100-116C-11BC
+5B8F 7D18 80B1 8F5F 6D64 89E5 8A07 958E
+AD50:1100-116D
+4EA4 50D1 54AC 55AC 5B0C 5DA0 5DE7 652A 654E 6821
+6A4B 72E1 768E 77EF 7D5E 7FF9 81A0 854E 86DF 8F03
+8F4E 90CA 9903 9A55 9BAB 4F7C 5604 5610 566D 5699
+59E3 618D 649F 6648 669E 69B7 78FD 7A96 8DAB 8E7B
+9278 9AB9 9D41 9F69
+AD6C:1100-116E
+4E18 4E45 4E5D 4EC7 4FF1 5177 52FE 5340 53E3 53E5
+548E 5614 5775 57A2 5BC7 5D87 5ED0 61FC 62D8 6551
+67B8 67E9 69CB 6B50 6BC6 6BEC 6C42 6E9D 7078 72D7
+7396 7403 77BF 77E9 7A76 7D7F 8009 81FC 8205 820A
+82DF 8862 8B33 8CFC 8EC0 9011 90B1 9264 92B6 99D2
+9A45 9CE9 9DD7 9F9C 4F49 4F5D 4FC5 50B4 5193 52AC
+5336 53B9 53F4 5778 59E4 5ABE 5AD7 5C68 5CA3 5F40
+6235 6263 6344 6406 6473 662B 6998 6F1A 7486 750C
+759A 75C0 766F 7A9B 7AB6 7BDD 7CD7 80CA 849F 86AF
+88D8 89AF 8A6C 9058 91E6 97DD 97ED 97EE 98B6 99C8
+9B2E 9DC7 9E1C
+AD6D:1100-116E-11A8
+570B 5C40 83CA 97A0 97AB 9EB4 530A 63AC 8DFC 9EAF
+AD70:1100-116E-11AB
+541B 7A98 7FA4 88D9 8ECD 90E1 6343 687E 76B8
+AD74:1100-116E-11AF
+5800 5C48 6398 7A9F 5014 5D1B 6DC8 8A58
+AD81:1100-116E-11BC
+5BAE 5F13 7A79 7AAE 828E 8EAC 8EB3
+AD8C:1100-116F-11AB
+5026 5238 52F8 5377 5708 62F3 6372 6B0A 6DC3 7737
+52CC 60D3 68EC 7760 7DA3 8737
+AD90:1100-116F-11AF
+53A5 7357 8568 8E76 95D5
+ADA4:1100-1170
+673A 6AC3 6F70 8A6D 8ECC 994B 4F79 51E0 5282 5331
+6192 6485 6A3B 6C3F 7C0B 7E62 8DEA 95E0 993D 9E82
+ADC0:1100-1171
+6677 6B78 8CB4 9B3C
+ADDC:1100-1172
+53EB 572D 594E 63C6 69FB 73EA 7845 7ABA 7AC5 7CFE
+8475 898F 8D73 9035 95A8 5232 5AE2 5B00 5DCB 668C
+694F 6A1B 6F59 777D 7CFA 866C 866F 8DEC 90BD 95DA
+980D 9997
+ADE0:1100-1172-11AB
+52FB 5747 7547 7B60 83CC 921E 56F7 9E8F
+ADE4:1100-1172-11AF
+6A58
+ADF9:1100-1173-11A8
+514B 524B 5287 621F 68D8 6975 9699 4E9F 5C05 5C50
+90C4
+ADFC:1100-1173-11AB
+50C5 52A4 52E4 61C3 65A4 6839 69FF 747E 7B4B 82B9
+83EB 89B2 8B39 8FD1 9949 537A 53AA 5890 5DF9 5ED1
+6F0C 89D4 8DDF 91FF 9773
+AE08:1100-1173-11B7
+4ECA 5997 64D2 6611 6A8E 7434 7981 79BD 82A9 887E
+887F 895F 9326 552B 5664 5D94 7B12 9EC5
+AE09:1100-1173-11B8
+4F0B 53CA 6025 6271 6C72 7D1A 7D66 573E 5C8C 7680
+790F 7B08 82A8
+AE0D:1100-1173-11BC
+4E98 5162 77DC 80AF 4E99 6B91
+AE30:1100-1175
+4F01 4F0E 5176 5180 55DC 5668 573B 57FA 57FC 5914
+5947 5993 5BC4 5C90 5D0E 5DF1 5E7E 5FCC 6280 65D7
+65E3 671E 671F 675E 68CB 68C4 6A5F 6B3A 6C23 6C7D
+6C82 6DC7 7398 7426 742A 7482 74A3 7578 757F 7881
+78EF 7941 7947 7948 797A 7B95 7D00 7DBA 7F88 8006
+802D 808C 8A18 8B4F 8C48 8D77 9321 9324 98E2 9951
+9A0E 9A0F 9A65 9E92 50DB 525E 588D 5C7A 5E8B 5F03
+5FEE 612D 638E 6532 65C2 66A3 66C1 68CA 6B67 7081
+7309 79A8 7DA5 7DA6 7F87 80B5 82AA 82B0 8604 8641
+871D 87E3 8989 89AC 8DC2 9691 980E 9B10 9C2D 9ED6
+AE34:1100-1175-11AB
+7DCA
+AE38:1100-1175-11AF
+4F76 5409 62EE 6854 59DE 86E3
+AE40:1100-1175-11B7
+91D1
+B07D:1101-1175-11A8
+55AB
+B098:1102-1161
+513A 5A1C 61E6 62CF 62FF 90A3 6310 632A 689B 7CE5
+7CEF
+B099:1102-1161-11A8
+8AFE
+B09C:1102-1161-11AB
+6696 7156 96E3 5044 7157 8D67 992A
+B0A0:1102-1161-11AF
+634F 637A
+B0A8:1102-1161-11B7
+5357 678F 6960 6E73 7537 5583 67DF
+B0A9:1102-1161-11B8
+7D0D 8872
+B0AD:1102-1161-11BC
+56CA 5A18 66E9
+B0B4:1102-1162
+4E43 5167 5948 67F0 8010 5302 5976 5B2D 8FFA 9F10
+B140:1102-1167
+5973
+B141:1102-1167-11A8
+60C4
+B144:1102-1167-11AB
+5E74 649A 79CA 78BE
+B150:1102-1167-11B7
+5FF5 606C 62C8 637B
+B155:1102-1167-11BC
+5BE7 5BD7 4F5E 511C 5680 6FD8
+B178:1102-1169
+52AA 5974 5F29 6012 7459 99D1 5476 5B65 5CF1 7331
+7B2F 81D1
+B18D:1102-1169-11BC
+6FC3 81BF 8FB2 5102 5665 7A60 91B2
+B1CC:1102-116C
+60F1 8166 9912
+B1E8:1102-116D
+5C3F 5ACB 5B32 6DD6 78E0 88CA 9403
+B204:1102-116E
+5542 8028
+B208:1102-116E-11AB
+5AE9
+B20C:1102-116E-11AF
+8A25 5436 80AD
+B274:1102-1172
+677B 7D10 5FF8 9775
+B275:1102-1172-11A8
+8844
+B2A5:1102-1173-11BC
+80FD
+B2C8:1102-1175
+5C3C 6CE5 5462 6029 67C5 7962 79B0 81A9
+B2C9:1102-1175-11A8
+533F 6EBA 6635 66B1
+B2E4:1103-1161
+591A 8336 7239
+B2E8:1103-1161-11AB
+4E39 4EB6 4F46 55AE 5718 58C7 5F56 65B7 65E6 6A80
+6BB5 6E4D 77ED 7AEF 7C1E 7DDE 86CB 8892 9132 935B
+6171 62C5 6934 6F19 7649 8011 80C6 8176 8711
+B2EC:1103-1161-11AF
+64BB 6FBE 737A 75B8 9054 59B2 601B 95E5 977C 97C3
+B2F4:1103-1161-11B7
+5556 574D 61BA 64D4 66C7 6DE1 6E5B 6F6D 6FB9 75F0
+8043 81BD 8541 8983 8AC7 8B5A 931F 510B 5557 5649
+58B0 58DC 6BEF 79AB 7F4E 859D 90EF 9EEE 9EF5
+B2F5:1103-1161-11B8
+6C93 7553 7B54 8E0F 905D
+B2F9:1103-1161-11BC
+5510 5802 5858 5E62 6207 649E 68E0 7576 7CD6 87B3
+9EE8 5018 513B 515A 642A 6A94 6E8F 746D 74AB 77A0
+7911 87F7 8960 8B9C 93DC 943A 9933 9939
+B300:1103-1162
+4EE3 5788 576E 5927 5C0D 5CB1 5E36 5F85 6234 64E1
+73B3 81FA 888B 8CB8 968A 9EDB 5113 61DF 65F2 6C4F
+7893 9413
+B301:1103-1162-11A8
+5B85
+B355:1103-1165-11A8
+5FB7 60B3
+B3C4:1103-1169
+5012 5200 5230 5716 5835 5857 5C0E 5C60 5CF6 5D8B
+5EA6 5F92 60BC 6311 6389 6417 6843 68F9 6AC2 6DD8
+6E21 6ED4 6FE4 71FE 76DC 7779 79B1 7A3B 8404 89A9
+8CED 8DF3 8E48 9003 9014 9053 90FD 934D 9676 97DC
+53E8 58D4 5F22 5FC9 6146 638F 642F 64E3 6AAE 6D2E
+6D82 7A0C 83DF 9174 95CD 9780 97B1 9955 9F17
+B3C5:1103-1169-11A8
+6BD2 7006 7258 72A2 7368 7763 79BF 7BE4 7E9B 8B80
+6ADD 9EF7
+B3C8:1103-1169-11AB
+58A9 60C7 6566 65FD 66BE 6C8C 711E 71C9 8C5A 9813
+5F34 6F61 8E89
+B3CC:1103-1169-11AF
+4E6D 7A81 5484 5817
+B3D9:1103-1169-11BC
+4EDD 51AC 51CD 52D5 540C 61A7 6771 6850 68DF 6D1E
+6F7C 75BC 77B3 7AE5 80F4 8463 9285 4F97 50EE 54C3
+578C 5CD2 5F64 6723 6A66 6DB7 825F 82F3 833C 856B
+8740 932C 9B97
+B450:1103-116E
+515C 6597 675C 6793 75D8 7AC7 8373 8C46 9017 982D
+6296 6581 809A 8130 86AA 8839 9661
+B454:1103-116E-11AB
+5C6F 81C0 829A 9041 906F 920D 7A80 8FCD
+B458:1103-116E-11AF
+4E67
+B4DD:1103-1173-11A8
+5F97
+B4F1:1103-1173-11BC
+5D9D 6A59 71C8 767B 7B49 85E4 8B04 9127 9A30 51F3
+58B1 6ED5 78F4 7C50 7E22 87A3 9419
+B77C:1105-1161
+5587 61F6 7669 7F85 863F 87BA 88F8 908F 502E 56C9
+66EA 7630 7822 81DD 947C 9A3E 9A58
+B77D:1105-1161-11A8
+6D1B 70D9 73DE 7D61 843D 916A 99F1 55E0 7296
+B780:1105-1161-11AB
+4E82 5375 6B04 6B12 703E 721B 862D 9E1E 5B3E 5E71
+6514 7053 8974 947E 95CC
+B784:1105-1161-11AF
+524C 8FA3 57D2 8FA2
+B78C:1105-1161-11B7
+5D50 64E5 652C 6B16 6FEB 7C43 7E9C 85CD 8964 89BD
+5A6A 60CF
+B78D:1105-1161-11B8
+62C9 81D8 881F 945E
+B791:1105-1161-11BC
+5ECA 6717 6D6A 72FC 7405 746F 8782 90DE 6994 7860
+7A02 83A8 870B 95AC
+B798:1105-1162
+4F86 5D0D 5FA0 840A 6DF6 9A0B
+B7AD:1105-1162-11BC
+51B7
+B7B5:1105-1163-11A8
+63A0 7565 7567
+B7C9:1105-1163-11BC
+4EAE 5006 5169 51C9 6881 6A11 7CAE 7CB1 7CE7 826F
+8AD2 8F1B 91CF 55A8 60A2 690B 6DBC 8E09 9B4E
+B824:1105-1167
+4FB6 5137 52F5 5442 5EEC 616E 623E 65C5 6ADA 6FFE
+792A 85DC 8823 95AD 9A62 9A6A 9E97 9ECE 5122 53B2
+5533 68A0 7658 7CF2 8182 81DA 8821 908C 9462
+B825:1105-1167-11A8
+529B 66C6 6B77 701D 792B 8F62 9742 650A 6ADF 6AEA
+7667 8F63 9148
+B828:1105-1167-11AB
+6190 6200 6523 6F23 7149 7489 7DF4 806F 84EE 8F26
+9023 934A 5B4C 695D 6E45 81E0 93C8 9C0A 9C31
+B82C:1105-1167-11AF
+51BD 5217 52A3 6D0C 70C8 88C2 6312 6369 98B2
+B834:1105-1167-11B7
+5EC9 6582 6BAE 6FC2 7C3E 5969 7032 78CF
+B835:1105-1167-11B8
+7375 8E90 9B23
+B839:1105-1167-11BC
+4EE4 4F36 56F9 5CBA 5DBA 601C 73B2 7B2D 7F9A 7FCE
+8046 901E 9234 96F6 9748 9818 9F61 53E6 5464 59C8
+5CAD 6624 6B1E 6CE0 79E2 82D3 86C9 8EE8 9D12 9E77
+B840:1105-1168
+4F8B 6FA7 79AE 91B4 96B7 96B8 9C67
+B85C:1105-1169
+52DE 6488 64C4 6AD3 6F5E 7018 7210 76E7 8001 8606
+865C 8DEF 8F05 9732 9B6F 9DFA 9E75 58DA 6EF7 7388
+7646 7A82 826A 826B 8F64 942A 946A 9871 9AD7 9C78
+9E15
+B85D:1105-1169-11A8
+788C 797F 7DA0 83C9 9304 9E7F 9E93 5725 5F54 6DE5
+6F09 7C0F 8F46 9A04
+B860:1105-1169-11AB
+8AD6
+B871:1105-1169-11BC
+58DF 5F04 6727 7027 74CF 7C60 807E 5131 650F 66E8
+7931 8622 96B4 9F8E
+B8B0:1105-116C
+5121 7028 7262 78CA 8CC2 8CDA 8CF4 96F7 6502 790C
+7927 7C5F 7E87 7F4D 8012 857E 8A84 9179 9842
+B8CC:1105-116D
+4E86 50DA 5BEE 5ED6 6599 71CE 7642 77AD 804A 84FC
+907C 9B27 5639 5AFD 64A9 66B8 6F66 7360 7E5A 818B
+91AA 9410 98C2 98C9
+B8E1:1105-116D-11BC
+9F8D 9F92
+B8E8:1105-116E
+58D8 5A41 5C62 6A13 6DDA 6F0F 763B 7D2F 7E37 851E
+8938 93E4 964B 50C2 560D 5D81 617A 802C 87BB 9ACF
+B958:1105-1172
+5289 65D2 67F3 69B4 6D41 6E9C 700F 7409 7460 7559
+7624 786B 8B2C 985E 6A4A 7E32 7E8D 905B 9DB9
+B959:1105-1172-11A8
+516D 622E 9678 52E0
+B95C:1105-1172-11AB
+4F96 502B 5D19 6DEA 7DB8 8F2A 6384
+B960:1105-1172-11AF
+5F8B 6144 6817 5D42 6EA7
+B96D:1105-1172-11BC
+9686 7643 7ABF
+B975:1105-1173-11A8
+52D2 808B 6CD0
+B984:1105-1173-11B7
+51DC 51DB 5EE9 6F9F
+B989:1105-1173-11BC
+51CC 695E 7A1C 7DBE 83F1 9675 5030 8506
+B9AC:1105-1175
+4FDA 5229 5398 540F 550E 5C65 60A7 674E 68A8 6D6C
+7281 72F8 7406 7483 75E2 7C6C 7F79 7FB8 8389 88CF
+88E1 91CC 91D0 96E2 9BC9 4FD0 527A 54E9 5AE0 6D96
+6F13 79BB 8385 870A 87AD 8C8D 9090 9B51 9ED0
+B9B0:1105-1175-11AB
+541D 6F7E 71D0 7498 85FA 8EAA 96A3 9C57 9E9F 5D99
+608B 735C 78F7 7CA6 7CBC 7E57 8E99 8F54 9130 93FB
+9A4E
+B9BC:1105-1175-11B7
+6797 6DCB 7433 81E8 9716 75F3
+B9BD:1105-1175-11B8
+782C 7ACB 7B20 7C92 5CA6
+B9C8:1106-1161
+6469 746A 75F2 78BC 78E8 99AC 9B54 9EBB 5298 5ABD
+879E 87C7 9EBD 9EBF
+B9C9:1106-1161-11A8
+5BDE 5E55 6F20 819C 83AB 9088 7799 93CC
+B9CC:1106-1161-11AB
+4E07 534D 5A29 5DD2 5F4E 6162 633D 6669 66FC 6EFF
+6F2B 7063 779E 842C 8513 883B 8F13 9945 9C3B 5881
+5ADA 5E54 7E35 8B3E 8E63 93CB 93DD 9B18
+B9D0:1106-1161-11AF
+551C 62B9 672B 6CAB 8309 896A 977A 5E15 79E3
+B9DD:1106-1161-11BC
+4EA1 5984 5FD8 5FD9 671B 7DB2 7F54 8292 832B 83BD
+8F1E 9099 60D8 6C52 6F2D 83BE 87D2 9B4D
+B9E4:1106-1162
+57CB 59B9 5A92 5BD0 6627 679A 6885 6BCF 7164 7F75
+8CB7 8CE3 9081 9B45 5446 6973 6CAC 73AB 771B 82FA
+8393 9176 9709
+B9E5:1106-1162-11A8
+8108 8C8A 964C 9A40 9EA5 8109 8C83 8C98
+B9F9:1106-1162-11BC
+5B5F 6C13 731B 76F2 76DF 840C 511A 750D 753F 867B
+BA71:1106-1167-11A8
+51AA 8993 5E4E 7CF8
+BA74:1106-1167-11AB
+514D 5195 52C9 68C9 6C94 7704 7720 7DBF 7DEC 9762
+9EB5 4FDB 6E4E 7CC6 7DDC 9EAA
+BA78:1106-1167-11AF
+6EC5 8511 7BFE 884A
+BA85:1106-1167-11BC
+51A5 540D 547D 660E 669D 6927 6E9F 76BF 7791 8317
+84C2 879F 9169 9298 9CF4 6D3A
+BA8C:1106-1168
+8882
+BAA8:1106-1169
+4FAE 5192 52DF 59C6 5E3D 6155 6478 6479 66AE 67D0
+6A21 6BCD 6BDB 725F 7261 7441 7738 77DB 8017 82BC
+8305 8B00 8B28 8C8C 4F94 59E5 5AA2 5AEB 6048 65C4
+7683 770A 7C8D 7CE2 8004 8765 87CA 927E 9AE6
+BAA9:1106-1169-11A8
+6728 6C90 7267 76EE 7766 7A46 9DA9 51E9 82DC
+BAB0:1106-1169-11AF
+6B7F 6C92
+BABD:1106-1169-11BC
+5922 6726 8499 5E6A 61DE 66DA 6E95 6FDB 77A2 77C7
+8268 96FA 9E0F
+BB18:1106-116D
+536F 5893 5999 5EDF 63CF 6634 6773 6E3A 732B 7AD7
+82D7 9328 6DFC 7707 85D0 8C93
+BB34:1106-116E
+52D9 5DEB 61AE 61CB 620A 62C7 64AB 65E0 6959 6B66
+6BCB 7121 73F7 755D 7E46 821E 8302 856A 8AA3 8CBF
+9727 9D61 511B 5638 5EE1 81B4 9A16
+BB35:1106-116E-11A8
+58A8 9ED8 563F
+BB38:1106-116E-11AB
+5011 520E 543B 554F 6587 6C76 7D0A 7D0B 805E 868A
+9580 96EF 5301 6097 61E3 6286 636B 7086 748A
+BB3C:1106-116E-11AF
+52FF 6C95 7269
+BBF8:1106-1175
+5473 5A9A 5C3E 5D4B 5F4C 5FAE 672A 68B6 6963 6E3C
+6E44 7709 7C73 7F8E 8587 8B0E 8FF7 9761 9EF4 4EB9
+5A13 5A84 5ABA 5F25 5F2D 6549 7030 737C 7CDC 7E3B
+82FF 863C 9E8B
+BBFC:1106-1175-11AB
+5CB7 60B6 610D 61AB 654F 65FB 65FC 6C11 6CEF 739F
+73C9 7DE1 9594 5FDE 5FDF 668B 6E63 7DCD 7F60 82E0
+95A9 9C35 9EFD
+BC00:1106-1175-11AF
+5BC6 871C 8B10 6A12 6EF5
+BC15:1107-1161-11A8
+525D 535A 62CD 640F 64B2 6734 6A38 6CCA 73C0 749E
+7B94 7C95 7E1B 818A 8236 8584 8FEB 96F9 99C1 4EB3
+6B02 7254 939B 99EE 9AC6
+BC18:1107-1161-11AB
+4F34 534A 53CD 53DB 62CC 642C 6500 6591 69C3 6CEE
+6F58 73ED 7554 7622 76E4 76FC 78D0 78FB 792C 7D46
+822C 87E0 8FD4 9812 98EF 5ABB 6273 642B 653D 670C
+80D6 878C 9816
+BC1C:1107-1161-11AF
+52C3 62D4 64A5 6E24 6F51 767C 8DCB 91B1 9262 9AEE
+9B43 54F1 6D61 8116 9238 9D53
+BC29:1107-1161-11BC
+5023 508D 574A 59A8 5C28 5E47 5F77 623F 653E 65B9
+65C1 6609 678B 699C 6EC2 78C5 7D21 80AA 8180 822B
+82B3 84A1 868C 8A2A 8B17 90A6 9632 9F90 4EFF 5396
+5E6B 5FAC 6412 65CA 6886 7253 823D 8783 938A 9AE3
+9B74
+BC30:1107-1162
+500D 4FF3 57F9 5F98 62DC 6392 676F 6E43 7119 76C3
+80CC 80DA 88F4 88F5 8919 8CE0 8F29 914D 966A 574F
+576F 6252 7432 84D3
+BC31:1107-1162-11A8
+4F2F 4F70 5E1B 67CF 6822 767D 767E 9B44 7CA8
+BC88:1107-1165-11AB
+5E61 6A0A 7169 71D4 756A 7E41 8543 85E9 98DC 7E59
+7FFB 81B0 8629 88A2
+BC8C:1107-1165-11AF
+4F10 7B4F 7F70 95A5 6A43 7F78
+BC94:1107-1165-11B7
+51E1 5E06 68B5 6C3E 6C4E 6CDB 72AF 7BC4 8303 7B35
+8A09 98BF
+BC95:1107-1165-11B8
+6CD5 743A
+BCBD:1107-1167-11A8
+50FB 5288 58C1 64D8 6A97 74A7 7656 78A7 8617 95E2
+9739 64D7 7513 7588 895E 9DFF 9F0A
+BCC0:1107-1167-11AB
+535E 5F01 8B8A 8FA8 8FAF 908A 5FED 6283 7C69 8FAE
+8141 8CC6 99E2 9ABF 9D18
+BCC4:1107-1167-11AF
+5225 77A5 9C49 9F08 5F46 9DE9
+BCD1:1107-1167-11BC
+4E19 5002 5175 5C5B 5E77 661E 663A 67C4 68C5 70B3
+7501 75C5 79C9 7ADD 8F27 9920 9A08 4E26 5840 7D63
+7F3E 8FF8 9235 92F2 927C
+BCF4:1107-1169
+4FDD 5821 5831 5BF6 666E 6B65 6D11 6E7A 6F7D 73E4
+752B 83E9 88DC 8913 8B5C 8F14 4FCC 76D9 7C20 8446
+974C 9D07 9EFC
+BCF5:1107-1169-11A8
+4F0F 50D5 5310 535C 5B93 5FA9 670D 798F 8179 832F
+8514 8907 8986 8F39 8F3B 99A5 9C12 58A3 5E5E 6251
+6FEE 7B99 83D4 8760 876E 9D69
+BCF8:1107-1169-11AB
+672C
+BCFC:1107-1169-11AF
+4E76
+BD09:1107-1169-11BC
+4FF8 5949 5C01 5CEF 5CF0 6367 68D2 70FD 71A2 742B
+7E2B 84EC 8702 9022 92D2 9CF3 4E30 5906 7BF7 7D98
+83F6 9D0C
+BD80:1107-116E
+4E0D 4ED8 4FEF 5085 5256 526F 5426 5490 57E0 592B
+5A66 5B5A 5B75 5BCC 5E9C 6276 6577 65A7 6D6E 6EA5
+7236 7B26 7C3F 7F36 8150 8151 819A 8240 8299 83A9
+8A03 8CA0 8CE6 8CFB 8D74 8DBA 90E8 91DC 961C 9644
+99D9 9CE7 4EC6 4FD8 5A8D 6294 62CA 638A 6874 6991
+6DAA 739E 7954 7B5F 7F58 7F66 80D5 82A3 82FB 8500
+86A8 8709 889D 88D2 8DD7 9207 982B 9B92 9EA9
+BD81:1107-116E-11A8
+5317
+BD84:1107-116E-11AB
+5206 5429 5674 58B3 5954 596E 5FFF 61A4 626E 6610
+6C7E 711A 76C6 7C89 7CDE 7D1B 82AC 8CC1 96F0 4F53
+574C 5E09 678C 68FB 68FC 6C1B 6E53 6FC6 7287 755A
+780F 7B28 80A6 81B9 8561 8F52 9EFA 9F22
+BD88:1107-116E-11AF
+4F5B 5F17 5F7F 62C2 5CAA 7953 7D31 8274 8300 97CD
+9AF4 9EFB
+BD95:1107-116E-11BC
+5D29 670B 68DA 787C 7E43 9D6C 580B 6F30 9B05
+BE44:1107-1175
+4E15 5099 5315 532A 5351 5983 5A62 5E87 60B2 618A
+6249 6279 6590 6787 69A7 6BD4 6BD6 6BD7 6BD8 6CB8
+7435 75FA 7812 7891 79D5 79D8 7C83 7DCB 7FE1 80A5
+813E 81C2 83F2 871A 88E8 8AB9 8B6C 8CBB 9119 975E
+98DB 9F3B 4EF3 4FFE 5255 572E 57E4 59A3 5C41 5EB3
+60B1 68D0 6911 6C98 6DDD 6DE0 6FDE 72C9 72D2 75DE
+75F9 7765 7955 7BE6 7D15 7F86 8153 8298 82BE 8406
+84D6 868D 8C94 8D14 8F61 90B3 90EB 959F 9674 970F
+97B4 9A11 9A1B 9AC0 9F19
+BE48:1107-1175-11AB
+56AC 5B2A 5F6C 658C 6AB3 6BAF 6D5C 6FF1 7015 725D
+73AD 8CA7 8CD3 983B 5110 64EF 77C9 7E7D 81CF 860B
+8C73 90A0 944C 9726 9870 9B02 9B22
+BE59:1107-1175-11BC
+6191 6C37 8058 9A01 51B0 51ED 51F4 5A09
+C0AC:1109-1161
+4E4D 4E8B 4E9B 4ED5 4F3A 4F3C 4F7F 4FDF 50FF 53F2
+53F8 5506 55E3 56DB 58EB 5962 5A11 5BEB 5BFA 5C04
+5DF3 5E2B 5F99 601D 6368 659C 65AF 67F6 67FB 68AD
+6B7B 6C99 6CD7 6E23 7009 7345 7802 793E 7940 7960
+79C1 7BE9 7D17 7D72 8086 820D 838E 84D1 86C7 88DF
+8A50 8A5E 8B1D 8CDC 8D66 8FAD 90AA 98FC 99DF 9E9D
+509E 525A 5378 548B 59D2 6942 69AD 6C5C 75E7 76B6
+7AE2 7B25 7F37 8721 8997 99DB 9B66 9BCA 9C24
+C0AD:1109-1161-11A8
+524A 6714 69CA 720D 84B4 9460
+C0B0:1109-1161-11AB
+5098 522A 5C71 6563 6C55 73CA 7523 759D 7B97 849C
+9178 9730 5277 59CD 5B7F 6A75 6F78 6F98 72FB 7E56
+8A15 93DF 958A 6BFF
+C0B4:1109-1161-11AF
+4E77 6492 6BBA 715E 85A9
+C0BC:1109-1161-11B7
+4E09 6749 68EE 6E17 829F 8518 886B 7CDD 91E4 9B16
+C0BD:1109-1161-11B8
+63F7 6F81 9212 98AF 5345 553C 6B43 7FE3 9364 9705
+970E
+C0C1:1109-1161-11BC
+4E0A 50B7 50CF 511F 5546 55AA 5617 5B40 5C19 5CE0
+5E38 5E8A 5EA0 5EC2 60F3 6851 6A61 6E58 723D 7240
+72C0 76F8 7965 7BB1 7FD4 88F3 89F4 8A73 8C61 8CDE
+971C 587D 5F9C 664C 6BA4 751E 7DD7 939F 9859 9B3A
+C0C8:1109-1162
+585E 74BD 8CFD 9C13
+C0C9:1109-1162-11A8
+55C7 7A61 7D22 8272 69ED 6FC7 7012
+C0DD:1109-1162-11BC
+7272 751F 7525 7B19 771A 924E
+C11C:1109-1165
+5885 58FB 5DBC 5E8F 5EB6 5F90 6055 6292 637F 654D
+6691 66D9 66F8 6816 68F2 7280 745E 7B6E 7D6E 7DD6
+7F72 80E5 8212 85AF 897F 8A93 901D 92E4 9ECD 9F20
+566C 5A7F 63DF 6495 6E51 6FA8 7D13 8021 82A7 924F
+C11D:1109-1165-11A8
+5915 596D 5E2D 60DC 6614 6673 6790 6C50 6DC5 6F5F
+77F3 78A9 84C6 91CB 932B 6670 77FD 814A 8203 8725
+9250 9F2B
+C120:1109-1165-11AB
+4ED9 50CA 5148 5584 5B0B 5BA3 6247 657E 65CB 6E32
+717D 7401 7444 7487 74BF 766C 79AA 7DDA 7E55 7FA8
+817A 81B3 8239 861A 87EC 8A75 8DE3 9078 9291 9425
+994D 9BAE 58A1 5AD9 5C1F 5C20 5C73 6103 6B5A 71AF
+7B45 7DAB 8B54 8B71 93C7 9A38 9C53 9C7B
+C124:1109-1165-11AF
+5368 5C51 6954 6CC4 6D29 6E2B 820C 859B 893B 8A2D
+8AAA 96EA 9F67 5070 5A9F 63F2 66AC 7207 789F 7A27
+7D32
+C12C:1109-1165-11B7
+5261 66B9 6BB2 7E96 87FE 8D0D 9583 965D 5B45 61B8
+647B 7752 8B6B 929B 97F1
+C12D:1109-1165-11B8
+651D 6D89 71EE 56C1 61FE 7044 8076 8EA1 9477 9873
+C131:1109-1165-11BC
+57CE 59D3 5BAC 6027 60FA 6210 661F 665F 7329 73F9
+76DB 7701 7B6C 8056 8072 8165 8AA0 9192 7446 9A02
+C138:1109-1166
+4E16 52E2 6B72 6D17 7A05 7B39 7D30 8CB0 5E28 6D12
+7E50 86FB
+C18C:1109-1169
+53EC 562F 5851 5BB5 5C0F 5C11 5DE2 6240 6383 6414
+662D 68B3 6CBC 6D88 6EAF 701F 70A4 71D2 7526 758F
+758E 7619 7B11 7BE0 7C2B 7D20 7D39 852C 856D 8607
+8A34 900D 9061 90B5 92B7 97F6 9A37 4F4B 4FCF 5372
+55C9 57FD 5850 612C 634E 6A14 6CDD 7B71 7BBE 7E45
+7FDB 8186 8258 86F8 8E08 9165 9704 9B48 9BB9 9C3A
+C18D:1109-1169-11A8
+4FD7 5C6C 675F 6D91 7C9F 7E8C 8B16 8D16 901F 6D2C
+906C
+C190:1109-1169-11AB
+5B6B 5DFD 640D 84C0 905C 98E1 98E7 98F1
+C194:1109-1169-11AF
+7387 7AA3 87C0
+C1A1:1109-1169-11BC
+5B8B 609A 677E 6DDE 8A1F 8AA6 9001 980C 67D7 7AE6
+9B06
+C1C4:1109-116B
+5237 7051 788E 9396 60E2 66EC 7463
+C1E0:1109-116C
+8870 91D7
+C218:1109-116E
+4FEE 53D7 55FD 56DA 5782 58FD 5AC2 5B88 5CAB 5CC0
+5E25 6101 620D 624B 6388 641C 6536 6578 6A39 6B8A
+6C34 6D19 6F31 71E7 72E9 7378 7407 74B2 7626 7761
+79C0 7A57 7AEA 7CB9 7D8F 7DAC 7E61 7F9E 8129 8331
+8490 84DA 85EA 8896 8AB0 8B90 8F38 9042 9083 916C
+9296 92B9 968B 96A7 96A8 96D6 9700 9808 9996 9AD3
+9B1A 53DF 552E 5ECB 666C 6BB3 6CC5 6EB2 6FC9 775F
+7762 778D 795F 7C54 813A 8184 81B8 8B8E 8C4E 9672
+98BC 9948
+C219:1109-116E-11A8
+53D4 587E 5919 5B70 5BBF 6DD1 6F5A 719F 7421 74B9
+8085 83FD 4FF6 500F 5135 5A4C 6A5A 9A4C 9DEB
+C21C:1109-116E-11AB
+5DE1 5F87 5FAA 6042 65EC 6812 696F 6A53 6B89 6D35
+6DF3 73E3 76FE 77AC 7B4D 7D14 8123 821C 8340 84F4
+8563 8A62 8AC4 9187 931E 9806 99B4 4F9A 72E5 76F9
+7734 7D03 80AB 99E8 9B0A 9D89
+C220:1109-116E-11AF
+620C 8853 8FF0 9265 7D49
+C22D:1109-116E-11BC
+5D07 5D27 5D69 83D8
+C26C:1109-1171
+5005 6DEC 7120
+C2AC:1109-1173-11AF
+745F 819D 8768 8671
+C2B5:1109-1173-11B8
+6FD5 62FE 7FD2 8936 8972 6174 71A0 96B0
+C2B9:1109-1173-11BC
+4E1E 4E58 50E7 52DD 5347 627F 6607 7E69 8805 965E
+584D 9B19
+C2DC:1109-1175
+4F8D 5319 5636 59CB 5AA4 5C38 5C4E 5C4D 5E02 5F11
+6043 65BD 662F 6642 67BE 67F4 731C 77E2 793A 7FC5
+8494 84CD 8996 8A66 8A69 8AE1 8C55 8C7A 5072 5155
+53AE 557B 5852 5EDD 67B2 67F9 6F8C 7DE6 7FE4 8ADF
+8AF0 8C49 91C3 9349 984B
+C2DD:1109-1175-11A8
+57F4 5BD4 5F0F 606F 62ED 690D 6B96 6E5C 7184 7BD2
+8755 8B58 8EFE 98DF 98FE 55B0 5AB3 683B
+C2E0:1109-1175-11AB
+4F38 4F81 4FE1 547B 5A20 5BB8 613C 65B0 6668 71FC
+7533 795E 7D33 814E 81E3 8398 85AA 85CE 8703 8A0A
+8EAB 8F9B 8FC5 54C2 567A 56DF 59FA 6C5B 77E7 8124
+8D10 9823 99EA
+C2E4:1109-1175-11AF
+5931 5BA4 5BE6 6089 87CB 98CB
+C2EC:1109-1175-11B7
+5BE9 5C0B 5FC3 6C81 6DF1 700B 751A 82AF 8AF6 68A3
+6F6F 71D6 845A 9414 9C4F
+C2ED:1109-1175-11B8
+4EC0 5341 8FBB
+C30D:110A-1161-11BC
+96D9
+C528:110A-1175
+6C0F
+C544:110B-1161
+4E9E 4FC4 5152 555E 5A25 5CE8 6211 7259 82BD 83AA
+86FE 8859 8A1D 963F 96C5 9913 9D09 9D5D 4E2B 54E6
+5A3F 5A40 5CE9 75B4 7811 7B0C 8FD3 930F 9D5E
+C545:110B-1161-11A8
+580A 5CB3 5DBD 5E44 60E1 6115 63E1 6A02 6E25 9102
+9354 984E 9C10 9F77 5053 537E 54A2 5594 5669 816D
+843C 89A8 8AE4 9D9A 9F76
+C548:110B-1161-11AB
+5B89 5CB8 6309 664F 6848 773C 96C1 978D 9854 9B9F
+6849 72B4 8D0B 9D08
+C54C:110B-1161-11AF
+65A1 8B01 8ECB 95BC 560E 621E 63E0 7A75 8A10 904F
+981E 9D36
+C554:110B-1161-11B7
+5535 5CA9 5DD6 5EB5 6697 764C 83F4 95C7 557D 5A95
+5D53 667B 8164 844A 84ED 8AF3 9837 99A3 9EEF
+C555:110B-1161-11B8
+58D3 62BC 72CE 9D28
+C559:110B-1161-11BC
+4EF0 592E 600F 663B 6B83 79E7 9D26 536C 5771 6CF1
+76CE 9785
+C560:110B-1162
+5393 54C0 57C3 5D16 611B 66D6 6DAF 788D 827E 9698
+9744 50FE 5509 5540 566F 5A2D 5D15 6328 6371 6B38
+6F04 7343 769A 775A 77B9 78D1 7919 8586 85F9 9749
+9A03
+C561:110B-1162-11A8
+5384 627C 6396 6DB2 7E0A 814B 984D 545D 6239 6424
+9628
+C575:110B-1162-11BC
+6AFB 7F4C 9DAF 9E1A 56B6 5AC8 7F43 9DEA
+C57C:110B-1163
+4E5F 503B 51B6 591C 60F9 63F6 6930 723A 8036 91CE
+57DC
+C57D:110B-1163-11A8
+5F31 7D04 82E5 846F 84BB 85E5 8E8D 721A 79B4 7BDB
+7C65 9470 9C2F 9DB8 9FA0
+C591:110B-1163-11BC
+4F6F 58E4 5B43 6059 63DA 6518 656D 6698 694A 6A23
+6D0B 7001 716C 75D2 760D 79B3 7A70 7F8A 8944 8B93
+91C0 967D 990A 5F89 6F3E 703C 70CA 7662 773B 8618
+8F30 9472 98BA 9A64
+C5B4:110B-1165
+5704 5FA1 65BC 6F01 7600 79A6 8A9E 99AD 9B5A 9F6C
+5709 6554 6DE4 98EB
+C5B5:110B-1165-11A8
+5104 61B6 6291 6A8D 81C6 7E76
+C5B8:110B-1165-11AB
+5043 5830 5F66 7109 8A00 8AFA 50BF 533D 5AE3 8B9E
+9122 9F34 9F39
+C5BC:110B-1165-11AF
+5B7C 8616 81EC
+C5C4:110B-1165-11B7
+4FFA 513C 56B4 5944 63A9 6DF9 5D26 5E7F 66EE 7F68
+9183 95B9
+C5C5:110B-1165-11B8
+5DAA 696D 5DAB 9134
+C5D0:110B-1166
+605A 66C0
+C5D4:110B-1166-11AB
+5186
+C5EC:110B-1167
+4E88 4F59 5982 6B5F 6C5D 74B5 7916 8207 8245 8339
+8F3F 8F5D 9918 8201
+C5ED:110B-1167-11A8
+4EA6 57DF 5F79 6613 75AB 7E79 8B6F 9006 9A5B 5DA7
+61CC 6DE2 95BE
+C5F0:110B-1167-11AB
+56A5 5827 59F8 5A1F 5BB4 5EF6 6350 633B 693D 6C87
+6CBF 6D8E 6D93 6DF5 6F14 70DF 7136 7159 71C3 71D5
+784F 786F 7B75 7DE3 7E2F 884D 8EDF 925B 9CF6 5157
+56E6 57CF 5B3F 6081 63BE 66E3 6ADE 6E37 81D9 839A
+8735 8815 8B8C 9DF0
+C5F4:110B-1167-11AF
+6085 6D85 71B1 95B1 564E
+C5FC:110B-1167-11B7
+53AD 67D3 708E 7130 7430 8276 82D2 95BB 9AE5 9E7D
+5189 5869 61D5 624A 6ABF 6AB6 704E 7069 91C5 995C
+9B58 9EF6
+C5FD:110B-1167-11B8
+66C4 71C1 8449 66C5 7180 7217 9768
+C601:110B-1167-11BC
+584B 5DB8 5F71 6620 668E 6979 69AE 6C38 6CF3 6E36
+6F41 6FDA 701B 702F 7150 71DF 7370 745B 74D4 76C8
+7A4E 7E93 82F1 8A60 8FCE 9348 9719 548F 5B34 5B30
+6D67 6FF4 766D 78A4 7E08 8811 8D0F 90E2 97FA
+C608:110B-1168
+4E42 502A 5208 53E1 66F3 6C6D 6FCA 730A 777F 7A62
+82AE 85DD 8602 88D4 8A63 8B7D 8C6B 92B3 9713 9810
+56C8 5ADB 62FD 639C 6798 7369 7768 7796 7E44 7FF3
+82C5 854A 854B 8589 868B 873A 9BE2 9DD6 9E91
+C624:110B-1169
+4E94 4F0D 4FC9 50B2 5348 543E 5433 55DA 5862 58BA
+5967 5A1B 5BE4 609F 61CA 6556 65FF 6664 68A7 6C5A
+6FB3 70CF 71AC 7352 7B7D 8708 8AA4 9C32 9F07 4EF5
+4FE3 5514 55F7 5641 572C 5AAA 5AEF 5FE4 6160 6342
+6C59 7AB9 8071 8323 8956 8B37 8FC3 8FD5 9068 93CA
+93D6 96A9 9A41 9F2F
+C625:110B-1169-11A8
+5C4B 6C83 7344 7389 923A
+C628:110B-1169-11AB
+6EAB 7465 761F 7A69 7E15 860A 5ABC 614D 6637 6C33
+7185 8580 8F40 919E 97DE 9942 9C2E
+C62C:110B-1169-11AF
+5140 55E2 8183
+C639:110B-1169-11BC
+58C5 64C1 74EE 7515 7670 7FC1 9095 96CD 9954 5581
+5EF1 6EC3 7655 79BA 7F4B 84CA 96DD 9852
+C640:110B-116A
+6E26 74E6 7AA9 7AAA 81E5 86D9 8778 8A1B 54C7 56EE
+5A50 6799 6D3C 7327 7A8A 8435 8B4C
+C644:110B-116A-11AB
+5A49 5B8C 5B9B 68A1 6900 6D63 73A9 7413 742C 7897
+7DE9 7FEB 8118 8155 839E 8C4C 962E 9811 5213 57B8
+59A7 5C8F 5FE8 60CB 6DB4 76CC
+C648:110B-116A-11AF
+66F0
+C655:110B-116A-11BC
+5F80 65FA 6789 6C6A 738B 5C2B 7007 8FEC
+C65C:110B-116B
+502D 5A03 6B6A 77EE 5AA7
+C678:110B-116C
+5916 5D6C 5DCD 7325 754F 504E 5D34 5D54 6E28 7168
+78A8 78C8 8075 9697
+C694:110B-116D
+50E5 51F9 582F 592D 5996 59DA 5BE5 5DA2 62D7 6416
+6493 64FE 66DC 6A48 71FF 7464 7A88 7AAF 7E47 7E5E
+8000 8170 87EF 8981 8B20 9059 9080 9952 5060 5593
+5773 589D 5B08 5E7A 5FAD 5FBC 6B80 6F86 7945 7A7E
+7A85 8558 9076 9DC2
+C695:110B-116D-11A8
+617E 6B32 6D74 7E1F 8925 8FB1 6EBD 84D0
+C6A9:110B-116D-11BC
+4FD1 50AD 5197 52C7 57C7 5889 5BB9 5EB8 6142 6995
+6D8C 6E67 6EB6 7194 7462 7528 752C 8073 8338 84C9
+8E0A 9394 93DE 509B 5B82 5D71 6175 6183 69E6 7867
+8202 86F9 8E34
+C6B0:110B-116E
+4E8E 4F51 5076 512A 53C8 53CB 53F3 5B87 5BD3 5C24
+611A 6182 65F4 725B 7397 7440 76C2 7950 7991 79B9
+7D06 7FBD 828B 85D5 865E 8FC2 9047 90F5 91EA 9685
+96E8 96E9 4E8F 4EB4 4FC1 504A 5401 5823 5D4E 5EBD
+6745 75A3 76F1 7AFD 8026 8030 8B23 8E3D 935D 9E80
+9E8C 9F72
+C6B1:110B-116E-11A8
+52D6 5F67 65ED 6631 682F 715C 7A36 90C1 980A 71E0
+C6B4:110B-116E-11AB
+4E91 6A52 6B9E 6F90 7189 8018 82B8 8553 904B 9695
+96F2 97FB 60F2 6C84 7BD4 7D1C 9723 97F5
+C6B8:110B-116E-11AF
+851A 9B31 4E90
+C6C5:110B-116E-11BC
+718A 96C4
+C6D0:110B-116F-11AB
+5143 539F 54E1 5713 5712 57A3 5A9B 5AC4 5BC3 6028
+613F 63F4 6C85 6D39 6E72 6E90 7230 733F 7457 82D1
+8881 8F45 9060 9662 9858 9D1B 51A4 571C 676C 6965
+7328 7DA9 82AB 8597 873F 8B1C 92FA 9A35 9D77 9EFF
+C6D4:110B-116F-11AF
+6708 8D8A 925E 5216 7CA4
+C704:110B-1171
+4F4D 5049 50DE 5371 570D 59D4 5A01 5C09 6170 6690
+6E2D 7232 744B 7DEF 80C3 840E 8466 853F 875F 885B
+8918 8B02 9055 97CB 9B4F 559F 5E43 7152 71A8 75FF
+8473 885E 8AC9 9036 95C8 97D9 97E1 9927 9AAA
+C720:110B-1172
+4E73 4F91 5112 516A 552F 55A9 5B7A 5BA5 5E7C 5E7D
+5EBE 60A0 60DF 6108 6109 63C4 6538 6709 67D4 67DA
+6961 6962 6CB9 6D27 6E38 6FE1 7336 7337 745C 7531
+7652 7DAD 81FE 8438 88D5 8A98 8ADB 8AED 8E30 8E42
+904A 903E 907A 9149 91C9 936E 5198 5466 56FF 58DD
+5E37 63C9 65BF 6CD1 7256 7609 7610 7AAC 7AB3 7C72
+7CC5 7DCC 8174 83A0 8555 8564 86B0 86B4 8764 8915
+8B89 900C 97A3 9BAA 9EDD 9F2C 9FA5
+C721:110B-1172-11A8
+5809 6BD3 8089 80B2 5125
+C724:110B-1172-11AB
+5141 596B 5C39 6F64 73A7 80E4 8D07 9217 958F 6600
+92C6
+C728:110B-1172-11AF
+807F 6F4F 77DE
+C735:110B-1172-11BC
+620E 701C 7D68 878D 72E8
+C740:110B-1173-11AB
+57A0 6069 6147 6BB7 8ABE 9280 96B1 542C 569A 5701
+57BD 6196 6ABC 6EB5 72FA 73E2 766E 8A14 911E 9F57
+C744:110B-1173-11AF
+4E59 9CE6
+C74C:110B-1173-11B7
+541F 6DEB 852D 9670 97F3 98EE 5591 5D1F 5ED5 6114
+972A
+C74D:110B-1173-11B8
+63D6 6CE3 9091 6092 6339 6D65
+C751:110B-1173-11BC
+51DD 61C9 81BA 9DF9
+C758:110B-1174
+4F9D 501A 5100 5B9C 610F 61FF 64EC 6905 6BC5 7591
+77E3 7FA9 8264 858F 87FB 8863 8ABC 8B70 91AB 5117
+51D2 5293 5DB7 6B39 6F2A 7317 7912 8798 9950
+C774:110B-1175
+4E8C 4EE5 4F0A 5937 59E8 5DF2 5F1B 5F5B 6021 723E
+73E5 7570 75CD 79FB 800C 8033 8084 82E1 8351 8CBD
+8CB3 9087 98F4 990C 54BF 5768 5C14 5F5D 682E 6D1F
+73C6 8A11 8A51 8FE4 96B6
+C775:110B-1175-11A8
+7037 76CA 7FCA 7FCC 7FFC 8B1A 5F0B 71A4 9DC1
+C778:110B-1175-11AB
+4EBA 4EC1 5203 5370 54BD 56E0 59FB 5BC5 5F15 5FCD
+6E6E 7D6A 8335 8693 8A8D 976D 9777 4EDE 5819 5924
+5A63 6268 6C24 6D07 798B 7C7E 82A2 88C0
+C77C:110B-1175-11AF
+4E00 4F5A 4F7E 58F9 65E5 6EA2 9038 93B0 99B9 6CC6
+8EFC
+C784:110B-1175-11B7
+4EFB 58EC 598A 59D9 6041 7A14 834F 8CC3 7D4D 887D
+928B 98EA
+C785:110B-1175-11B8
+5165 5344 5EFF
+C789:110B-1175-11BC
+4ECD 5269 5B55 82BF 5AB5
+C790:110C-1161
+4ED4 523A 54A8 59C9 59FF 5B50 5B57 5B5C 6063 6148
+6ECB 7099 716E 7386 74F7 75B5 78C1 7D2B 8005 81EA
+8328 8517 85C9 8AEE 8CC7 96CC 5470 5B28 5B56 5B76
+67D8 6CDA 7278 7725 7726 7CA2 8014 80FE 8308 8332
+83BF 8678 89DC 8A3E 8CB2 8D6D 93A1 983F 9AED 9B93
+9DBF 9DD3
+C791:110C-1161-11A8
+4F5C 52FA 56BC 65AB 6628 707C 70B8 7235 7DBD 828D
+914C 96C0 9D72 5C9D 600D 65B1 67DE 6C4B 712F 72B3
+788F
+C794:110C-1161-11AB
+5B71 68E7 6B98 6F7A 76DE 5257 6214 9A4F
+C7A0:110C-1161-11B7
+5C91 66AB 6F5B 7BB4 7C2A 8836 6D94 6F5C 6FF3
+C7A1:110C-1161-11B8
+96DC 5361 56C3 7728 78FC 894D
+C7A5:110C-1161-11BC
+4E08 4ED7 5320 5834 58BB 58EF 596C 5C07 5E33 5E84
+5F35 638C 66B2 6756 6A1F 6AA3 6B0C 6F3F 7246 7350
+748B 7AE0 7CA7 8178 81DF 81E7 838A 846C 8523 8594
+85CF 88DD 8D13 91AC 9577 969C 50BD 5958 599D 5B19
+5D82 5EE7 6215 6F33 7242 7634 7CDA 7F98 8407 88C5
+8CEC 9123 93D8 9926 9E9E
+C7AC:110C-1162
+518D 54C9 5728 5BB0 624D 6750 683D 6893 6E3D 6ED3
+707D 7E21 88C1 8CA1 8F09 9F4B 9F4E 5908 5D3D 6257
+699F 707E 7E94
+C7C1:110C-1162-11BC
+722D 7B8F 8ACD 931A 5D22 7319 7424 9397
+C800:110C-1165
+4F47 4F4E 5132 5480 59D0 5E95 62B5 6775 696E 6A17
+6CAE 6E1A 72D9 732A 75BD 7BB8 7D35 82E7 83F9 8457
+85F7 8A5B 8CAF 8E87 9019 90B8 96CE 9F5F 5B81 5CA8
+677C 67E2 6C10 6F74 7026 7274 7F5D 7F9D 82F4 86C6
+889B 891A 89DD 8A46 8C6C 967C
+C801:110C-1165-11A8
+52E3 540A 5AE1 5BC2 6458 6575 6EF4 72C4 7684 7A4D
+7B1B 7C4D 7E3E 7FDF 837B 8B2B 8CCA 8D64 8DE1 8E5F
+8FEA 8FF9 9069 93D1 6A00 78E7 7CF4 83C2 89BF 9016
+99B0
+C804:110C-1165-11AB
+4F43 4F7A 50B3 5168 5178 524D 526A 5861 587C 5960
+5C08 5C55 5EDB 609B 6230 6813 6BBF 6C08 6FB1 714E
+7420 7530 7538 7551 7672 7B4C 7B8B 7BAD 7BC6 7E8F
+8A6E 8F3E 8F49 923F 9293 9322 942B 96FB 985A 986B
+991E 542E 56C0 5AE5 5C47 5DD3 6229 63C3 65C3 6834
+69C7 6E54 6FB6 724B 7471 750E 754B 7560 75CA 765C
+78DA 7C5B 7FB6 7FE6 8146 819E 8343 8E94 8F07 9085
+913D 92D1 932A 975B 9766 9853 98E6 9930 9B0B 9C63
+9E07
+C808:110C-1165-11AF
+5207 622A 6298 6D59 7664 7ACA 7BC0 7D76 5C8A 6662
+7A83
+C810:110C-1165-11B7
+5360 5CBE 5E97 6F38 70B9 7C98 9711 9B8E 9EDE 4F54
+588A 73B7 7B18 7C1F 82EB 852A 86C5 8998 98AD 9ECF
+C811:110C-1165-11B8
+63A5 647A 8776 6904 696A 8728 8DD5 8E40 9C08
+C815:110C-1165-11BC
+4E01 4E95 4EAD 505C 5075 5448 59C3 5B9A 5E40 5EAD
+5EF7 5F81 60C5 633A 653F 6574 65CC 6676 6678 67FE
+6968 6A89 6B63 6C40 6DC0 6DE8 6E1F 6E5E 701E 70A1
+738E 73FD 753A 775B 7887 798E 7A0B 7A7D 7CBE 7D8E
+8247 8A02 8AEA 8C9E 912D 914A 91D8 9266 92CC 9320
+9706 9756 975C 9802 9F0E 4F42 53EE 5A67 5A77 6014
+639F 686F 6883 68D6 706F 73F5 7594 7B73 839B 8A3C
+9049 9172 92E5 975A
+C81C:110C-1166
+5236 5291 557C 5824 5E1D 5F1F 608C 63D0 68AF 6FDF
+796D 7B2C 81CD 85BA 88FD 8AF8 8E44 918D 9664 969B
+973D 984C 9F4A 5115 5A23 64E0 7318 7445 7747 7994
+7A0A 7DF9 8E36 8E4F 8E8B 9357 9684 97F2 9BA7 9BF7
+C870:110C-1169
+4FCE 5146 51CB 52A9 5632 5F14 5F6B 63AA 64CD 65E9
+6641 66FA 66F9 671D 689D 68D7 69FD 6F15 6F6E 7167
+71E5 722A 74AA 773A 7956 795A 79DF 7A20 7A95 7C97
+7CDF 7D44 7E70 8087 85FB 86A4 8A54 8ABF 8D99 8E81
+9020 906D 91E3 963B 96D5 9CE5 4F7B 50AE 5201 539D
+5608 566A 5B25 5F82 61C6 627E 6B82 6FA1 7431 7681
+7967 7AC8 7B0A 7CD9 7CF6 7D69 7D5B 80D9 81CA 825A
+8526 8729 8A82 8B5F 921F 929A 92FD 9BDB 9D70 9F02
+C871:110C-1169-11A8
+65CF 7C07 8DB3 93C3 762F
+C874:110C-1169-11AB
+5B58 5C0A 62F5
+C878:110C-1169-11AF
+5352 62D9 731D
+C885:110C-1169-11BC
+5027 5B97 5F9E 60B0 616B 68D5 6DD9 742E 7A2E 7D42
+7D9C 7E31 816B 8E2A 8E35 937E 9418 4F00 6152 67CA
+6936 6A05 747D 7607 7CBD 87BD 8E64
+C88C:110C-116A
+4F50 5750 5DE6 5EA7 632B 5249 75E4 839D 9AFD
+C8C4:110C-116C
+7F6A
+C8FC:110C-116E
+4E3B 4F4F 4F8F 505A 59DD 80C4 546A 5468 55FE 594F
+5B99 5DDE 5EDA 665D 6731 67F1 682A 6CE8 6D32 6E4A
+6F8D 70B7 73E0 7587 7C4C 7D02 7D2C 7DA2 821F 86DB
+8A3B 8A85 8D70 8E8A 8F33 9031 914E 9152 9444 99D0
+4E1F 4F9C 5114 5C0C 5E6C 62C4 7843 7C52 8098 8160
+851F 86C0 88EF 8A4B 8CD9 8D8E 8F08 9052 9252 970C
+9714 9F04
+C8FD:110C-116E-11A8
+7AF9 7CA5
+C900:110C-116E-11AB
+4FCA 5101 51C6 57C8 5BEF 5CFB 6659 6A3D 6D5A 6E96
+6FEC 710C 756F 7AE3 8822 9021 9075 96CB 99FF 5642
+57FB 58AB 60F7 6499 76B4 7DA7 7F47 8E06 8E72 940F
+96BC 9915 9C52 9D54
+C904:110C-116E-11AF
+8301 4E7C
+C911:110C-116E-11BC
+4E2D 4EF2 8846 91CD 773E
+C989:110C-1173-11A8
+537D 5373 559E
+C990:110C-1173-11AF
+6ADB 9A2D
+C999:110C-1173-11B8
+696B 6C41 847A 6A9D 857A
+C99D:110C-1173-11BC
+589E 618E 66FE 62EF 70DD 7511 75C7 7E52 84B8 8B49
+8D08 5D92 77F0 7F7E
+C9C0:110C-1175
+4E4B 53EA 54AB 5730 5740 5FD7 6301 6307 646F 652F
+65E8 667A 679D 67B3 6B62 6C60 6C9A 6F2C 77E5 7825
+7949 7957 7D19 80A2 8102 81F3 829D 82B7 8718 8A8C
+8D04 8DBE 9072 577B 5880 627A 69B0 6CDC 75E3 79EA
+7BEA 8210 8E1F 8E93 8EF9 962F 9BA8 9DD9
+C9C1:110C-1175-11A8
+76F4 7A19 7A37 7E54 8077 799D
+C9C4:110C-1175-11AB
+5507 55D4 5875 632F 6422 6649 664B 686D 699B 6B84
+6D25 6EB1 73CD 7468 74A1 755B 75B9 76E1 771E 778B
+79E6 7E09 7E1D 81FB 852F 8897 8A3A 8CD1 8EEB 8FB0
+9032 93AD 9663 9673 9707 4FB2 5118 73D2 7A39 84C1
+87B4 8D81 9241 9B12
+C9C8:110C-1175-11AF
+4F84 53F1 59EA 5AC9 5E19 684E 74C6 75BE 79E9 7A92
+81A3 86ED 8CEA 8DCC 8FED 57A4 7D70 84BA 90C5 9455
+C9D0:110C-1175-11B7
+659F 6715 9D06
+C9D1:110C-1175-11B8
+57F7 6F57 7DDD 8F2F 93F6 96C6 54A0 6222
+C9D5:110C-1175-11BC
+5FB5 61F2 6F84 6F82 7013 7665 77AA
+CC28:110E-1161
+4E14 4F98 501F 53C9 55DF 5D6F 5DEE 6B21 6B64 78CB
+7B9A 8E49 8ECA 906E 4F7D 5056 5953 5C94 5FA3 69CE
+7473 7868
+CC29:110E-1161-11A8
+6349 643E 7740 7A84 932F 947F 9F6A 6233 64C9 65B2
+CC2C:110E-1161-11AB
+64B0 6FAF 71E6 74A8 74DA 7AC4 7C12 7E82 7CB2 7E98
+8B9A 8D0A 947D 9910 994C 5127 5139 5297 5DD1 6522
+6B11 7228 8DB2
+CC30:110E-1161-11AF
+5239 5BDF 64E6 672D 7D2E 624E 62F6
+CC38:110E-1161-11B7
+50ED 53C3 5879 6158 6159 61FA 65AC 7AD9 8B92 8B96
+5133 53C5 5D84 5DC9 615A 61AF 6519 69E7 6B03 6BDA
+8B56 93E8 9471 995E 9A42 9EF2
+CC3D:110E-1161-11BC
+5009 5021 5275 5531 5A3C 5EE0 5F70 6134 655E 660C
+6636 66A2 69CD 6EC4 6F32 7316 7621 7A93 8139 8259
+83D6 84BC 5000 5096 51D4 5231 60B5 60DD 6227 6436
+6919 6C05 7472 7A97 7ABB 8E4C 92F9 9306 95B6 9B2F
+9DAC
+CC44:110E-1162
+50B5 57F0 5BC0 5BE8 5F69 63A1 7826 7DB5 83DC 8521
+91C7 91F5 68CC 831D
+CC45:110E-1162-11A8
+518A 67F5 7B56 8CAC 5616 5E58 78D4 7B27 7C00 86B1
+CC98:110E-1165
+51C4 59BB 60BD 8655 6DD2 840B 8904 89B7 90EA
+CC99:110E-1165-11A8
+501C 5254 5C3A 617D 621A 62D3 64F2 65A5 6ECC 7620
+810A 8E60 965F 96BB 544E 5767 5849 60D5 6357 646D
+8734 8DD6 8E91
+CC9C:110E-1165-11AB
+4EDF 5343 5598 5929 5DDD 64C5 6CC9 6DFA 7394 7A7F
+821B 85A6 8CE4 8E10 9077 91E7 95E1 9621 97C6 4FF4
+5029 50E2 5103 6D0A 6FFA 74E9 7946 7C81 81F6 828A
+831C 8350 84A8 8546 8695 8FBF 975D
+CCA0:110E-1165-11AF
+51F8 54F2 5586 5FB9 64A4 6F88 7DB4 8F1F 8F4D 9435
+525F 555C 57D1 60D9 6387 6B60 9295 9323 98FB 992E
+CCA8:110E-1165-11B7
+50C9 5C16 6CBE 6DFB 751B 77BB 7C3D 7C64 8A79 8AC2
+5E68 5FDD 60C9 6A90 6AFC 7038 7C37 895C
+CCA9:110E-1165-11B8
+581E 59BE 5E16 6377 7252 758A 776B 8ADC 8CBC 8F12
+5022 546B 558B 6017 893A
+CCAD:110E-1165-11BC
+5EF3 6674 6DF8 807D 83C1 8ACB 9751 9BD6 51CA 570A
+873B 9D84
+CCB4:110E-1166
+5243 66FF 6D95 6EEF 7DE0 8AE6 902E 905E 9AD4 568F
+5F58 68E3 6BA2 780C 8482 8515 855E 8EC6 9746 9AF0
+CD08:110E-1169
+521D 527F 54E8 6194 6284 62DB 68A2 6912 695A 6A35
+7092 7126 785D 7901 790E 79D2 7A0D 8096 8278 82D5
+8349 8549 8C82 8D85 9162 918B 91AE 5062 50EC 52AD
+52E6 564D 5AF6 5CA7 5CED 5D95 600A 6084 6100 676A
+71CB 7D83 8016 8A9A 8B59 8DA0 8EFA 8FE2 9214 936B
+936C 9798 9866 9AEB 9DE6 9F60
+CD09:110E-1169-11A8
+4FC3 56D1 71ED 77D7 8700 89F8 66EF 7225 77DA 85A5
+8E85 9AD1
+CD0C:110E-1169-11AB
+5BF8 5FD6 6751 90A8 540B
+CD1D:110E-1169-11BC
+53E2 585A 5BF5 60A4 6181 6460 7E3D 8070 8525 9283
+8471 84EF 93E6 9A18 9A44
+CD2C:110E-116A-11AF
+64AE
+CD5C:110E-116C
+50AC 5D14 6700 562C 6467 69B1 6F3C 7480 78EA 7E17
+8127
+CD94:110E-116E
+589C 62BD 63A8 690E 6978 6A1E 6E6B 76BA 79CB 82BB
+8429 8ACF 8DA8 8FFD 9112 914B 919C 9310 9318 939A
+96DB 9A36 9C0D 50E6 557E 5A35 5E1A 60C6 6376 63EB
+6425 7503 7633 9F9D 7B92 7BA0 7C09 7E0B 7E10 84AD
+966C 96B9 97A6 9A05 9B4B 9C0C 9D7B 9D96 9DB5 9E84
+9EA4
+CD95:110E-116E-11A8
+4E11 755C 795D 7AFA 7B51 7BC9 7E2E 84C4 8E59 8E74
+8EF8 9010 59AF 8233 8C56 8E5C 9F00
+CD98:110E-116E-11AB
+6625 693F 7443
+CD9C:110E-116E-11AF
+51FA 672E 9EDC 79EB
+CDA9:110E-116E-11BC
+5145 5FE0 6C96 87F2 885D 8877 51B2 5FE1 73EB
+CDCC:110E-1170
+60B4 81B5 8403 8D05 60F4 63E3 75A9 7601 9847
+CDE8:110E-1171
+53D6 5439 5634 5A36 5C31 708A 7FE0 805A 8106 81ED
+8DA3 9189 9A5F 9DF2 51A3 6A47 6BF3
+CE21:110E-1173-11A8
+5074 4EC4 53A0 60FB 6E2C 5EC1 6603
+CE35:110E-1173-11BC
+5C64
+CE58:110E-1175
+4F88 5024 55E4 5CD9 5E5F 6065 6894 6CBB 6DC4 71BE
+75D4 75F4 7661 7A1A 7A49 7DC7 7DFB 7F6E 81F4 86A9
+8F1C 96C9 99B3 9F52 536E 54C6 5BD8 5DF5 7564 75D3
+7D7A 83D1 8599 892B 8C78 8DF1 9319 9624 9BD4 9D19
+9D1F 9D44
+CE59:110E-1175-11A8
+5247 52C5 98ED 6555
+CE5C:110E-1175-11AB
+89AA 6AEC 85FD 896F 9F54
+CE60:110E-1175-11AF
+4E03 67D2 6F06
+CE68:110E-1175-11B7
+4FB5 5BE2 6795 6C88 6D78 741B 7827 91DD 937C 5BD6
+5FF1 6939 6C89 90F4 92DF 99F8
+CE69:110E-1175-11B8
+87C4
+CE6D:110E-1175-11BC
+79E4 7A31
+CF8C:110F-116B
+5FEB 5672 592C
+D0C0:1110-1161
+4ED6 54A4 553E 58AE 59A5 60F0 6253 62D6 6736 6955
+8235 9640 99B1 99DD 4F57 579E 62D5 67C1 6A62 6CB1
+8A6B 8DCE 8EB1 99DE 9B80 9D15 9F09
+D0C1:1110-1161-11A8
+502C 5353 5544 577C 6258 64E2 666B 67DD 6FC1 6FEF
+7422 7438 8A17 9438 62C6 6A50 6CB0 6DBF 77FA 7C5C
+8600 8E14 9034
+D0C4:1110-1161-11AB
+5451 5606 5766 5F48 619A 6B4E 7058 70AD 7DBB 8A95
+61BB 6524 6BAB 7671 9A52
+D0C8:1110-1161-11AF
+596A 812B 4FBB
+D0D0:1110-1161-11B7
+63A2 7708 803D 8CAA 55FF 5FD0 9156
+D0D1:1110-1161-11B8
+5854 642D 69BB 509D 584C 6428
+D0D5:1110-1161-11BC
+5B95 5E11 6E6F 8569 71D9 76EA 78AD 862F
+D0DC:1110-1162
+514C 53F0 592A 6020 614B 6B86 6C70 6CF0 7B1E 80CE
+82D4 8DC6 90B0 98B1 57ED 5A27 5B61 62AC 8FE8 99C4
+99D8
+D0DD:1110-1162-11A8
+64C7 6FA4
+D0F1:1110-1162-11BC
+6491 6490 725A
+D130:1110-1165
+6504
+D1A0:1110-1169
+514E 5410 571F 8A0E
+D1A4:1110-1169-11AB
+564B 5678 74F2
+D1B5:1110-1169-11BC
+615F 6876 75DB 7B52 7D71 901A 606B 6A0B 7B69
+D1F4:1110-116C
+5806 69CC 817F 892A 9000 9839 96A4
+D22C:1110-116E
+5078 5957 59AC 6295 900F 9B2A 5992 6E1D 9AB0
+D241:1110-116E-11BC
+4F5F
+D2B9:1110-1173-11A8
+615D 7279 5FD2
+D2C8:1110-1173-11B7
+95D6
+D30C:1111-1161
+5761 5A46 5DF4 628A 64AD 64FA 6777 6CE2 6D3E 722C
+7436 7834 7F77 82AD 8DDB 9817 53F5 5991 5CA5 6015
+705E 7238 73BB 76A4 7B06 7C38 8019 83E0 8469 9131
+D310:1111-1161-11AB
+5224 5742 677F 7248 74E3 8CA9 8FA6 9211 962A 6C74
+D314:1111-1161-11AF
+516B 53ED 634C 6733 6C43
+D328:1111-1162
+4F69 5504 6096 6557 6C9B 6D7F 724C 72FD 7A17 8987
+8C9D 5B5B 65C6 73EE 9708 9738
+D33D:1111-1162-11BC
+5F6D 6F8E 70F9 81A8 7830 794A 87DA 87DB
+D345:1111-1163-11A8
+610E
+D3B8:1111-1167-11AB
+4FBF 504F 6241 7247 7BC7 7DE8 7FE9 904D 97AD 9A19
+533E 5FA7 60FC 7DF6 8251 8439 8759 890A 8ADE
+D3C4:1111-1167-11B7
+8CB6 782D 7A86
+D3C9:1111-1167-11BC
+576A 5E73 67B0 840D 8A55 6026 62A8 6CD9 82F9 84F1
+9B83
+D3D0:1111-1168
+5420 5B16 5E63 5EE2 5F0A 6583 80BA 853D 9589 965B
+655D 72F4 7358 7648
+D3EC:1111-1169
+4F48 5305 530D 530F 5486 54FA 5703 5E03 6016 629B
+62B1 6355 6CE1 6D66 75B1 7832 80DE 812F 82DE 8461
+84B2 888D 8912 900B 92EA 98FD 9B91 5124 5E96 6661
+66D3 70AE 70B0 8216 8AA7 924B 9784 9914 9BC6
+D3ED:1111-1169-11A8
+5E45 66B4 66DD 7011 7206
+D45C:1111-116D
+4FF5 527D 5F6A 6153 6753 6A19 6F02 74E2 7968 8868
+8C79 98C7 98C4 9A43 50C4 52E1 560C 5AD6 647D 6B8D
+719B 7E39 88F1 93E2 9463 9ADF 9C3E
+D488:1111-116E-11B7
+54C1 7A1F 7980
+D48D:1111-116E-11BC
+6953 8AF7 8C4A 98A8 99AE 760B 8451
+D53C:1111-1175
+5F7C 62AB 75B2 76AE 88AB 907F 9642 8A56 8F9F 9781
+9AF2
+D53D:1111-1175-11A8
+8177
+D544:1111-1175-11AF
+5339 5F3C 5FC5 6CCC 73CC 7562 758B 7B46 82FE 999D
+4F56 5487 6EED 7BF3 7F7C 84FD 89F1 8E55 97B8 97E0
+99DC 9D6F
+D54D:1111-1175-11B8
+4E4F 903C 506A
+D558:1112-1161
+4E0B 4F55 53A6 590F 5EC8 6630 6CB3 7455 8377 8766
+8CC0 9050 971E 9C15 5440 5687 5C88 61D7 7146 7615
+7F45 935C
+D559:1112-1161-11A8
+58D1 5B78 8650 8B14 9DB4 72E2 7627 76AC 786E 90DD
+9DFD
+D55C:1112-1161-11AB
+5BD2 6068 608D 65F1 6C57 6F22 6FA3 701A 7F55 7FF0
+9591 9592 9650 97D3 50E9 5AFA 5AFB 634D 66B5 9588
+99FB 9DF3 9F3E
+D560:1112-1161-11AF
+5272 8F44 778E
+D568:1112-1161-11B7
+51FD 542B 54B8 5563 558A 6ABB 6DB5 7DD8 8266 929C
+9677 9E79 839F 83E1 8AF4 8F5E 95DE
+D569:1112-1161-11B8
+5408 54C8 76D2 86E4 95A4 95D4 965C 530C 55D1 67D9
+69BC 6E98 76CD 90C3
+D56D:1112-1161-11BC
+4EA2 4F09 59EE 5AE6 5DF7 6052 6297 676D 6841 6C86
+6E2F 7F38 809B 822A 9805 592F 6046 7095 7F3F 980F
+D574:1112-1162
+4EA5 5055 54B3 5793 595A 5B69 5BB3 61C8 6977 6D77
+7023 87F9 89E3 8A72 8AE7 9082 99ED 9AB8 548D 5DB0
+5EE8 6B2C 736C 744E 75CE 85A4 91A2 9826 9BAD
+D575:1112-1162-11A8
+52BE 6838 7FEE 8988
+D589:1112-1162-11BC
+5016 5E78 674F 8347 884C 60BB
+D5A5:1112-1163-11BC
+4EAB 5411 56AE 73E6 9115 97FF 9909 9957 9999 858C
+D5C8:1112-1165
+5653 589F 865B 8A31 6B54
+D5CC:1112-1165-11AB
+61B2 6AF6 737B 8ED2 5DDA 5E70 6507
+D5D0:1112-1165-11AF
+6B47
+D5D8:1112-1165-11B7
+96AA 9A57 5DAE 736B 7381
+D601:1112-1167-11A8
+5955 7200 8D6B 9769 5F08 6D2B 7131 9B29
+D604:1112-1167-11AB
+4FD4 5CF4 5F26 61F8 665B 6CEB 70AB 7384 73B9 73FE
+7729 774D 7D43 7D62 7E23 8237 8852 8CE2 9249 986F
+5107 5B1B 6621 7404 75C3 770C 7E6F 7FFE 8706 8AA2
+92D7 99FD
+D608:1112-1167-11AF
+5B51 7A74 8840 9801 7D5C 8D90
+D610:1112-1167-11B7
+5ACC
+D611:1112-1167-11B8
+4FE0 5354 593E 5CFD 633E 6D79 72F9 8105 8107 83A2
+92CF 9830 5327 53F6 57C9 604A 608F 611C 7BCB
+D615:1112-1167-11BC
+4EA8 5144 5211 578B 5F62 6CC2 6ECE 7005 7050 70AF
+7192 73E9 7469 834A 87A2 8861 9008 90A2 93A3 99A8
+5910 5A19 8A57 8FE5 9658
+D61C:1112-1168
+516E 5F57 60E0 6167 66B3 8559 8E4A 91AF 978B 5092
+5612 5BED 5FAF 69E5 76FB 8B11 8B7F
+D638:1112-1169
+4E4E 4E92 547C 58D5 58FA 597D 5CB5 5F27 6236 6248
+660A 6667 6BEB 6D69 6DCF 6E56 6EF8 6F94 6FE0 6FE9
+705D 72D0 7425 745A 74E0 7693 795C 7CCA 7E1E 80E1
+82A6 846B 84BF 864E 865F 8774 8B77 8C6A 93AC 9800
+9865 512B 51B1 5637 5AED 5AEE 6019 6C8D 6EC8 6EEC
+7292 7322 769C 769E 7B8E 8055 9190 992C 9B0D
+D639:1112-1169-11A8
+60D1 6216 9177
+D63C:1112-1169-11AB
+5A5A 660F 6DF7 6E3E 743F 9B42 5702 60DB 6EB7 711C
+95BD
+D640:1112-1169-11AF
+5FFD 60DA 7B0F 56EB
+D64D:1112-1169-11BC
+54C4 5F18 6C5E 6CD3 6D2A 70D8 7D05 8679 8A0C 9D3B
+664E 6F92 7BCA 9277 9B28
+D654:1112-116A
+5316 548C 5B05 6A3A 706B 7575 798D 79BE 82B1 83EF
+8A71 8B41 8CA8 9774 4FF0 5629 5A72 64ED 756B 9A4A
+9FA2
+D655:1112-116A-11A8
+64F4 652B 78BA 78BB 7A6B 77CD 77E1 792D 944A
+D658:1112-116A-11AB
+4E38 559A 5950 5BA6 5E7B 60A3 63DB 6B61 6665 6853
+6E19 7165 74B0 7D08 9084 9A69 9C25 5BF0 61FD 64D0
+74DB 7696 7746 7D59 8C62 8F58 9370 9436 9B1F
+D65C:1112-116A-11AF
+6D3B 6ED1 733E 8C41 95CA 86DE
+D669:1112-116A-11BC
+51F0 5E4C 5FA8 604D 60F6 6130 614C 6643 6644 69A5
+6CC1 6E5F 6EC9 6F62 714C 749C 7687 7BC1 7C27 8352
+8757 9051 968D 9EC3 55A4 5A93 6033 745D 8093 8CBA
+93A4
+D68C:1112-116C
+532F 56DE 5EFB 5F8A 6062 6094 61F7 6666 6703 6A9C
+6DEE 6FAE 7070 736A 7E6A 81BE 8334 86D4 8AA8 8CC4
+4F6A 6803 6D04 6ED9 76D4 8A7C 8FF4 982E 9C60
+D68D:1112-116C-11A8
+5283 7372 5684
+D6A1:1112-116C-11BC
+5B96 6A6B 9404 6F8B 921C 9ECC
+D6A8:1112-116D
+54EE 5686 5B5D 6548 6585 66C9 689F 6D8D 6DC6 723B
+80B4 9175 9A4D 509A 56C2 5D24 6BBD 7187 769B 8653
+991A
+D6C4:1112-116E
+4FAF 5019 539A 540E 543C 5589 55C5 5E3F 5F8C 673D
+7166 73DD 9005 543D 55A3 5795 5820 6DB8 7334 7BCC
+8A61 8B43 9157 9931
+D6C8:1112-116E-11AB
+52DB 52F3 5864 58CE 7104 718F 71FB 85B0 8A13 6688
+66DB 720B 736F 7E81 8477 9442
+D6CC:1112-116E-11AF
+6B3B
+D6D9:1112-116E-11BC
+85A8
+D6E4:1112-116F-11AB
+55A7 6684 714A 8431 70DC 8AE0 8AFC
+D6FC:1112-1170
+5349 5599 6BC1 71EC 8294 866B 867A
+D718:1112-1171
+5F59 5FBD 63EE 6689 7147 8AF1 8F1D 9EBE 649D 7FEC
+D734:1112-1172
+4F11 643A 70CB 7566 8667 54BB 64D5 96B3 9AF9 9D42
+D73C:1112-1172-11AF
+6064 8B4E 9DF8 5379
+D749:1112-1172-11BC
+5147 51F6 5308 6D36 80F8 605F 80F7
+D751:1112-1173-11A8
+9ED1
+D754:1112-1173-11AB
+6615 6B23 7098 75D5 5F88 5FFB 6380 712E 8A22 91C1
+D758:1112-1173-11AF
+5403 5C79 7D07 8A16 4EE1 6C54 7599 8FC4 9F55
+D760:1112-1173-11B7
+6B20 6B3D 6B46 5EDE
+D761:1112-1173-11B8
+5438 6070 6D3D 7FD5 564F 6B59 6F5D 7FD6
+D765:1112-1173-11BC
+8208
+D76C:1112-1174
+50D6 51DE 559C 566B 56CD 59EC 5B09 5E0C 6199 6198
+6231 665E 66E6 7199 71B9 71BA 72A7 79A7 7A00 7FB2
+54A5 550F 563B 6095 6232 66BF 6B37 71F9 7214 8C68
+993C
+D790:1112-1175-11AF
+8A70 72B5 7E88 896D 9821 9EE0
+__END__
+
+=head1 NAME
+
+Unicode::Collate::CJK::Korean - weighting CJK Unified Ideographs
+for Unicode::Collate
+
+=head1 SYNOPSIS
+
+    use Unicode::Collate;
+    use Unicode::Collate::CJK::Korean;
+
+    my $collator = Unicode::Collate->new(
+        overrideCJK => \&Unicode::Collate::CJK::Korean::weightKorean
+    );
+
+=head1 DESCRIPTION
+
+C<Unicode::Collate::CJK::Korean> provides C<weightKorean()>,
+that is adequate for C<overrideCJK> of C<Unicode::Collate>
+and makes tailoring of CJK Unified Ideographs in the order
+of CLDR's Korean ordering.
+
+=head1 SEE ALSO
+
+=over 4
+
+=item CLDR - Unicode Common Locale Data Repository
+
+L<http://cldr.unicode.org/>
+
+=item Unicode Locale Data Markup Language (LDML) - UTS #35
+
+L<http://www.unicode.org/reports/tr35/>
+
+=item L<Unicode::Collate>
+
+=item L<Unicode::Collate::Locale>
+
+=back
+
+=cut
diff --git a/lib/5.24.1/Unicode/Collate/CJK/Pinyin.pm b/lib/5.24.1/Unicode/Collate/CJK/Pinyin.pm
new file mode 100644
index 00000000..5abe6505
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/CJK/Pinyin.pm
@@ -0,0 +1,3042 @@
+package Unicode::Collate::CJK::Pinyin;
+
+use 5.006;
+use strict;
+use warnings;
+
+our $VERSION = '1.14';
+
+my %u2p;
+my $wt = 0x8000;
+
+while (<DATA>) {
+    last if /^__END__/;
+    my @c = split;
+    for my $c (@c) {
+	next if !$c;
+	$u2p{hex($c)} = $wt if $c !~ /-/;
+	$wt++;
+    }
+}
+
+sub weightPinyin {
+    my $u = shift;
+    return exists $u2p{$u} ? $u2p{$u} : undef;
+}
+
+1;
+__DATA__
+FDD0-0041
+963F 5475 9515
+55C4
+554A
+54CE 54C0 5509 57C3 5A2D 6328 6B38 6EBE 55F3 92B0
+953F 566F 9384
+5540 6371 7691 6EB0 560A 6571 6573 769A 764C 9A03
+6BD0 6639 5A3E 77EE 853C 8EB7 6FED 85F9 972D 9744
+827E 4F0C 7231 7839 784B 9698 55CC 5867 5AD2 611B
+788D 53C6 66A7 7477 95A1 50FE 58D2 5B21 61D3 8586
+9D31 61DD 66D6 74A6 9932 76A7 77B9 99A4 7919 8B6A
+8B7A 9440 9749
+9C6B
+5B89 4F92 5CD6 6849 6C28 5EB5 83F4 8C19 5A95 843B
+844A 75F7 8164 9E4C 84ED 8A9D 978C 978D 76E6 8AF3
+99A3 76EB 9D6A 97FD 9D95
+73B5 557D 96F8 5111
+57B5 4FFA 5535 57EF 94F5 968C 63DE 7F6F 92A8
+72B4 5CB8 6309 6D1D 834C 6848 80FA 8C7B 5813 5A69
+667B 6697 930C 95C7 9B9F 9EEF
+80AE 9AAF
+536C 5C87 6602 663B
+678A 76CE 91A0
+51F9 67EA 688E 8EEA 720A
+6556 53AB 969E 55F7 55F8 5D85 5ED2 6EF6 7353 851C
+9068 646E 71AC 7352 7488 78DD 7FF1 8071 87AF 8B37
+8B38 7FFA 9CCC 93D6 9C32 9DD4 9F07
+629D 82BA 62D7 8884 957A 5AAA 5ABC 8956
+5C99 6277 5773 5787 5CB0 50B2 5961 5965 5967 5AEF
+6160 9A9C 96A9 58BA 5DB4 61CA 6FB3 64D9 93CA 9A41
+7FF6
+FDD0-0042
+516B 4EC8 6252 6733 7390 593F 5C9C 82AD 5CC7 67ED
+75A4 54F5 5DFC 634C 7C91 7F93 8686 91DB 91DF 8C5D
+9C83
+53D0 72AE 629C 577A 59AD 62D4 8307 70A6 7679 80C8
+83DD 8A59 8DCB 8EF7 98B0 9B43 58A2 9F25
+628A 94AF 9200 9776
+575D 5F1D 7238 57BB 8019 8DC1 9C85 9C8C 9B8A 8987
+77F2 9738 58E9 705E 6B1B
+5DF4 53ED 5427 7B06 7D26 7F62 9B5E 7F77
+6300 63B0 64D8
+767D
+767E 4F70 67CF 6822 636D 74F8 7CA8 7D54 6446 64FA
+896C
+5E8D 62DD 8D25 62DC 6557 7308 7A17 86FD 7CBA 8D01
+97DB
+7AE1 85AD
+6273 653D 73ED 822C 9881 6591 642C 6592 9812 7622
+9CFB 878C 8929 764D 8FAC
+962A 5742 5C85 6604 677F 7248 74EA 94A3 7C84 8228
+9211 8742 9B6C 95C6
+529E 534A 4F34 5762 59C5 6011 62CC 7ECA 67C8 79DA
+6E74 7D46 9261 977D 8FA6 74E3
+626E 8781
+90A6 57B9 5E2E 6360 6886 6D5C 90AB 5E47 5E5A 7E0D
+5E6B 97A4
+7ED1 7D81 699C 7253 8180 9AC8
+73A4 868C 508D 68D2 68D3 8C24 585D 6412 7A16 84A1
+872F 78C5 9551 8255 8B17 938A
+52F9 5305 5B62 82DE 67B9 80DE 7B23 7172 9F85 8554
+8912 8943 95C1 9F59
+7A87 5AD1 96F9 8584
+5B9D 6009 9971 4FDD 9E28 5BB2 73E4 5821 5822 5AAC
+8446 5BDA 98FD 8913 99C2 9CF5 7DE5 9D07 8CF2 5BF3
+5BF6 974C
+52FD 62A5 62B1 8C79 8DB5 94C7 83E2 86AB 888C 5831
+924B 9C8D 9764 9AB2 66B4 9AF1 8663 9B91 5124 66D3
+7206 5FC1 9464 9E14
+4F68 85F5
+9642 5351 676F 76C3 686E 60B2 63F9 6911 7986 7891
+9E4E 9303 85E3 9D6F
+5317 9273
+8D1D 5B5B 72C8 8C9D 90B6 5907 6601 726C 82DD 80CC
+90E5 94A1 4FFB 500D 6096 72FD 88AB 505D 5079 6896
+73FC 9101 5099 50C3 60EB 7119 7432 8EF0 8F88 6102
+789A 84D3 7295 8919 8A96 9781 9AB3 8F29 92C7 618A
+7CD2 97B4 943E
+5457 5504 7999
+5954 6CCD 8D32 681F 7287 951B 931B
+672C 82EF 5959 755A 7FC9 694D
+574B 574C 5034 6379 6873 6E00 7B28 9029 64AA 7356
+8F3D
+4F3B 794A 595F 5D29 7D63 958D 50B0 5D6D 75ED 5623
+7DB3
+752D
+57C4 57F2 7EF7 83F6 7423 742B 7E43 979B
+6CF5 8FF8 902C 5874 750F 955A 8E66 93F0 882F
+63FC
+5C44 506A 6BF4 903C 6945 8C4D 8795 9D56 9CBE 939E
+9C0F
+8378 9F3B
+5315 6BD4 5936 673C 4F4A 5421 59A3 6C98 7595 5F7C
+67C0 79D5 4FFE 7B14 7C83 822D 555A 7B46 9119 7B84
+805B 8C8F
+5E01 5FC5 6BD5 95ED 4F56 5752 5E87 8BD0 90B2 59BC
+602D 6036 6788 7540 82FE 54D4 67F2 6BD6 73CC 75AA
+835C 965B 6BD9 72F4 7562 7B13 7C8A 8890 94CB 5A62
+5EB3 655D 6890 8406 9587 9589 581B 5F3B 5F3C 610A
+610E 6E62 7695 7B5A 8A56 8CB1 8CC1 8D51 55F6 5F43
+6ED7 6EED 714F 75F9 75FA 7764 8177 84D6 84FD 870C
+88E8 8DF8 924D 959F 98F6 5E63 5F0A 719A 7359 78A7
+7B85 7B86 7DBC 853D 912A 999D 6F77 7358 7F7C 99DC
+9AF2 58C1 5B16 5EE6 7BE6 7BF3 7E2A 859C 89F1 907F
+9B85 6583 6FDE 81C2 8E55 9AC0 5970 74A7 9128 93CE
+9946 7E74 895E 8963 97B8 97E0 9B53 8E83 8E84 9A46
+8D14 9434 9DDD 9DE9 9F0A
+5302 841E 5E64 8945 5B36
+8FB9 8FBA 782D 7B3E 63D9 7335 7F16 7178 7251 7502
+7BAF 7DE8 8759 9089 937D 9CCA 908A 97AD 9BFE 9BFF
+7C69
+8D2C 6241 7A86 533E 8CB6 60FC 8439 78A5 7A28 890A
+7CC4 9D18 85CA
+535E 5F01 5325 5FED 6283 6C73 6C74 82C4 91C6 53D8
+73A3 4FBF 5909 662A 898D 5FA7 7F0F 904D 959E 8FA1
+7DF6 8251 8FA7 8FA8 8FA9 8FAB 8FAE 8FAF 8B8A
+5CC5 709E
+706C 6753 6807 98D1 9A89 9ADF 6DF2 5F6A 730B 813F
+98A9 5882 5E56 647D 6EEE 8508 98AE 9AA0 6A19 719B
+8198 762D 78E6 9556 98D9 98DA 5126 98B7 700C 85E8
+8B24 7202 81D5 8D06 93E2 7A6E 9573 98C6 98C7 98C8
+9A43 9463 9A6B
+8868 5A4A 88F1 8AD8 893E 9336 6AA6
+4FF5 9CD4 9C3E
+98CA
+618B 87DE 9CD6 9C49 9F08 864C 9F9E
+5225 522B 5487 8382 86C2 5FB6 8952 8E69
+762A 765F
+5F46
+6C43 90A0 73A2 780F 5BBE 5F6C 68B9 50A7 658C 6915
+6EE8 7F24 69DF 7478 8C69 8CD3 8CD4 9554 5110 6FD2
+6FF1 8668 8C73 6AB3 74B8 7015 9726 7E7D 944C 986E
+6448 6BA1 8191 9AE9 64EF 9B02 6BAF 81CF 9ACC 9B13
+9AD5 9B22
+6C1E 6FF5
+51AB 4ECC 4ED2 6C37 51B0 5175 63A4
+4E19 90B4 9643 6032 62A6 79C9 82EA 661E 663A 67C4
+70B3 997C 772A 7A89 86C3 6452 7980 7A1F 9235 927C
+9905 9920 979E
+5E76 4E26 4F75 5E77 5EB0 5002 6824 75C5 7ADD 504B
+50A1 5BCE 68C5 8A81 9BA9 9750
+57AA 9786 92F2
+7676 5E17 62E8 6CE2 7677 73BB 525D 5265 54F1 76CB
+7835 889A 94B5 997D 7D34 7F3D 83E0 88B0 7886 9262
+50E0 5D93 64A5 64AD 9911 9B81 8E73 9A4B 9C4D
+4EE2 4F2F 72BB 8091 9A73 5E1B 72DB 74DD 82E9 4FBC
+52C3 80C9 90E3 4EB3 632C 6D61 74DF 79E1 88AF 94B9
+94C2 8116 8236 88B9 535A 6E24 8467 9E41 613D 640F
+733C 9238 9251 998E 50F0 717F 7254 7B94 824A 8514
+999B 99C1 8E23 92CD 9548 999E 99EE 894F 8C70 5697
+61EA 7921 7C19 939B 993A 9D53 72A6 9AC6 9AC9 6B02
+896E 7934 946E
+8DDB 7BA5 7C38
+5B79 6A97 7CEA 8B52 8617
+535C 5575 8421 818A
+5CEC 5EAF 900B 6661 923D 8AA7
+9CEA 8F50 91AD
+535F 8865 54FA 6355 55B8 88DC 9D4F
+4E0D 5E03 4F48 5425 6B65 5498 6016 62AA 6B68 6B69
+67E8 949A 52CF 57D4 57D7 6091 6357 8379 90E8 94B8
+57E0 74FF 8500 8E04 90F6 9914 7BF0 9922 7C3F
+FDD0-0043
+5693 64E6 6503
+7924
+906A 56C3
+5072 5A47 731C
+624D 72B2 6750 8D22 8CA1 88C1 6EA8 7E94
+6BDD 91C7 5038 554B 5BC0 5F69 63A1 776C 8DF4 7DB5
+8E29
+57F0 83DC 68CC 8521 7E29
+53C2 53C3 53C4 98E1 9A96 53C5 55B0 6E4C 50AA 5B20
+9910 9A42
+6B8B 8695 60ED 6B98 615A 8745 6159 5B31 8836 883A
+60E8 6701 6158 61AF 7A47 7BF8 9EEA 9EF2
+707F 63BA 5B71 7CB2 647B 6FAF 8592 71E6 74A8 8B32
+510F 7218
+4ED3 4EFA 4F27 6CA7 82CD 9E27 5009 8231 5096 5D62
+6EC4 734A 84BC 8259 87A5 9DAC
+85CF 9476
+8CF6
+6FF8 7F49 6B0C
+64A1 64CD 7CD9
+66FA 66F9 5608 5D86 6F15 84F8 69FD 893F 825A 87AC
+93EA
+8278 8349 613A 61C6 9A32
+808F 9135 8959
+8279
+518A 518C 4FA7 5395 607B 62FA 6D4B 6547 755F 5074
+53A0 7B27 7CA3 8417 5EC1 60FB 6E2C 7B56 8434 7B5E
+7B74 84DB 5884 7BA3 61A1 7C0E
+5D7E
+5C91 6D94 7B12 68A3
+66FD 564C
+5C42 66FE 5C64 5D92 7AF2 9A53
+8E6D
+53C9 6260 6748 809E 81FF 633F 505B 55CF 63D2 63F7
+9987 929F 9538 8256 7580 9364 9937
+79C5 579E 67E5 832C 8336 5D56 643D 7339 976B 69CE
+8A67 5BDF 78B4 6AAB
+8869 8E45 9572 9454
+597C 6C4A 5C94 4F98 8BE7 59F9 5DEE 7D01 8A6B
+8286 62C6 9497 91F5
+4FAA 67F4 8C7A 7961 558D 5115 9F5C
+831D
+867F 8883 8A0D 7625 8806 56C6
+8FBF 89C7 68B4 6400 8998 88E7 9246 92D3 5E68 895C
+6519
+5A75 8C17 68CE 6E79 7985 998B 7158 7F20 50DD 7351
+8749 8A97 92CB 5103 5B0B 5EDB 6F79 6F7A 7DFE 6FB6
+78DB 79AA 6BDA 913D 9561 700D 87EC 5133 5296 87FE
+9141 56B5 5DC9 703A 6B03 7E8F 7E92 8E94 9575 826C
+8B92 9471 995E
+4EA7 522C 65F5 4E33 65BA 6D50 5257 8C04 5574 7522
+7523 94F2 9610 8487 5277 5D7C 644C 6EFB 563D 5E5D
+8546 8AC2 95B3 9AA3 71C0 7C05 5181 7E5F 8B42 8FB4
+93DF 95E1 56C5 705B 8B87
+5FCF 785F 6472 61F4 98A4 61FA 7FBC 97C2 986B
+58E5
+4F25 660C 5000 5A3C 6DD0 7316 83D6 960A 667F 7429
+88EE 9520 9329 95B6 9CB3 9BE7 9F1A
+4EE7 514F 80A0 82CC 9578 5C1D 507F 5E38 5F9C 74FA
+8407 751E 8178 5617 5872 5AE6 747A 8193 92FF 511F
+5690 9CBF 93DB 9C68
+5382 573A 6636 60DD 5834 50D8 53B0 5EE0 6C05 92F9
+6005 739A 7545 5021 9B2F 5531 60B5 713B 7452 66A2
+757C 8AAF 97D4
+655E 6919 87D0
+6284 5F28 600A 6B29 949E 8A2C 712F 8D85 9214 52E6
+724A 6641 5DE2 5DE3 671D 911B 9F0C 6F05 5632 6A14
+6F6E 7AB2 7F7A 8F48 9F02 8B3F
+5435 7092 7727 7123 717C 9EA8 5DD0
+4EE6 4EEF 8016 89D8
+8F66 4F21 8ECA 4FE5 7817 5513 8397 7868 86FC
+626F 5056 64A6
+5C6E 5F7B 577C 8FE0 70E2 8045 63A3 7869 9819 5FB9
+64A4 6F88 52F6 77AE 7221
+62BB 90F4 6375 741B 55D4 7D9D 778B 8AC3 8CDD 7E1D
+8B13
+5C18 81E3 5FF1 6C88 6C89 8FB0 9648 8FE7 831E 5BB8
+8380 8390 9673 6550 8A26 8C0C 8ED9 6116 63E8 9202
+7141 852F 5875 6A04 760E 9703 87B4 8AF6 85BC 9E8E
+66DF 9DD0
+8DBB 7876 789C 588B 5926 78E3 8E38 9356 8D02 91A6
+886C 75A2 9F80 8D81 8D82 6987 9F53 512C 9F54 512D
+56AB 8C36 6AEC 896F 8B96
+70E5 6668
+9637 6CDF 67FD 722F 68E6 6D7E 7424 79F0 5041 86CF
+6E5E 725A 8D6A 50DC 6186 645A 7A31 9757 6490 6491
+7DFD 6A55 77A0 8D6C 9833 6A89 7AC0 7A6A 87F6 93F3
+93FF 9953
+4E1E 6210 673E 5448 627F 67A8 8BDA 90D5 4E57 57CE
+5A0D 5BAC 5CF8 6D06 837F 4E58 57D5 6330 665F 73F9
+8100 6381 73F5 7880 7A9A 812D 94D6 5818 60E9 68D6
+6909 7A0B 7B6C 7D7E 88CE 584D 5856 6E97 8AA0 757B
+9172 92EE 6195 6F82 6F84 6A59 6A99 7013 61F2 9A2C
+4FB1 5F8E 609C 901E 9A8B 5EB1 7748 9A01
+79E4
+9BCE
+5403 4F99 54E7 5F68 80F5 86A9 9E31 74FB 7735 7B1E
+55AB 8A35 55E4 5AB8 645B 75F4 7D7A 5644 779D 8ABA
+87AD 9D1F 7661 9B51 9F5D 5F72 9ED0
+5F1B 6C60 9A70 8FDF 577B 5CBB 830C 6301 7AFE 834E
+6B6D 86B3 8D7F 7B42 8CBE 9045 8D8D 905F 99B3 7B8E
+5880 6F26 8E1F 9072 7BEA 8B18
+5C3A 53FA 544E 4F88 5376 9F7F 5791 80E3 6065 7C8E
+803B 8687 88B3 6B3C 6B6F 88B2 88ED 9279 892B 9F52
+5F73 53F1 65A5 6758 707B 8D64 996C 62B6 52C5 605C
+70BD 52D1 7FC4 7FC5 6555 70FE 75D3 557B 6E41 7873
+98ED 50BA 75F8 815F 8DEE 9253 96F4 618F 7608 7FE4
+906B 9290 6157 761B 7FE8 71BE 61D8 8DA9 994E 9D92
+9DD8
+599B 9EB6
+5145 51B2 5FE1 6C96 833A 6D7A 73EB 7FC0 8202 5603
+644F 5FB8 6183 61A7 885D 7F7F 825F 8E56
+866B 5D07 5D08 9680 8908 7DDF 8769 87F2 721E
+5BA0 57EB 5BF5
+94F3 63F0 9283
+62BD 5A64 640A 7633 7BD8 72A8 72AB
+4EC7 601E 4FE6 5E31 6826 60C6 7D2C 7EF8 83D7 6906
+7574 7D52 6101 7697 7A20 7B79 88EF 9167 7DA2 8E0C
+5114 96D4 568B 5B26 5E6C 61E4 85B5 71FD 96E0 7587
+7C4C 8E8A 91BB 8B8E 8B90
+4E11 4E12 541C 677B 677D 4FB4 5062 7785 919C 77C1
+9B57
+81ED 81F0 905A 6BA0
+916C
+51FA 5C80 521D 6474 6A17 8C99 9F63
+520D 9664 82BB 53A8 6EC1 84A2 8C60 9504 5AB0 8021
+84AD 870D 8D8E 924F 96CF 7293 854F 5EDA 7BE8 92E4
+6A71 5E6E 6AC9 85F8 8E87 96DB 6AE5 8E70 9DB5 8E95
+51E6 6775 7840 6918 50A8 696E 891A 6FCB 5132 6A9A
+790E 9F6D 9E00 9F7C
+4E8D 5904 7ACC 6035 62C0 7ECC 8C56 67F7 6B2A 7AD0
+4FF6 654A 755C 57F1 73FF 7D40 8655 5097 7421 9110
+6410 6EC0 84EB 89E6 8E00 95A6 510A 563C 8AD4 61B7
+65B6 6B5C 81C5 9EDC 89F8 77D7
+695A 698B 6A7B 74B4 87F5
+6B3B 6B58
+63E3 640B
+8197
+555C 562C 81AA 8E39
+5DDB 5DDD 6C1A 7A7F 5276 732D 744F
+4F1D 4F20 8221 8229 8239 570C 9044 50B3 693D 66B7
+7BC5 8F32
+821B 8348 5598 6B42 50E2 8E33
+6C4C 4E32 7394 948F 91E7 8CD7 9DA8
+5205 75AE 7A93 7A97 724E 6450 7255 7621 7ABB
+5E8A 7240 5647 5E62
+95EF 50B8 6464 78E2 95D6
+521B 6006 5231 524F 5259 51D4 5275 6134
+5439 708A
+5782 5015 57C0 9672 6376 83D9 6425 68F0 690E 8144
+69CC 9524 7BA0 9318 939A 9840
+9FA1
+65FE 6776 6625 8405 583E 5A8B 6699 693F 7443 7BBA
+877D 6A41 8F34 81A5 6AC4 9C06 9D9E
+7EAF 9659 5507 6D71 7D14 83BC 6DF3 8123 6E7B 7289
+6EE3 8493 6F18 84F4 9187 9195 931E 9BD9
+5046 8436 60F7 7776 8CF0 8822
+9E51 9D89
+9034 8E14 6233
+8FB6 8FB5 5A15 5A16 5A7C 60D9 6DB0 7EF0 814F 8F8D
+916B 7DBD 8DA0 8F1F 9F8A 64C9 78ED 7E5B 6B60 56BD
+9F6A 9461
+5472 75B5 8D7C 8D80 5068 8DD0 7E12 9AB4 9ACA 8800
+9F79
+8BCD 73C1 5790 67CC 7960 8308 8328 5832 74F7 8A5E
+8F9D 6148 7506 8F9E 78C1 96CC 9E5A 7CCD 8FA4 98FA
+9908 5B28 6FE8 858B 9D1C 7920 8FAD 9DBF 9DC0
+6B64 4F4C 6CDA 73BC 7689 7D2A 9B86
+673F 6B21 4F3A 4F7D 523A 523E 5E9B 8326 6828 83BF
+7D58 86D3 8D50 8786 8CDC
+5306 56EA 56F1 82C1 5FE9 679E 6031 60A4 68C7 7127
+8471 6F17 8061 84EF 8525 9AA2 66B0 6A05 6A2C 719C
+747D 7481 7DEB 8066 806A 71EA 779B 7BF5 8070 87CC
+936F 7E71 93E6 9A18 9A44
+4ECE 4E1B 5F93 5A43 5B6E 5F96 5F9E 60B0 6DD9 742E
+6152 6F0E 6F40 6F68 8AB4 8CE8 8CE9 6A37 85C2 53E2
+7047 6B09 721C
+6181 8B25
+8310
+51D1 6E4A 8160 8F8F 8F33
+7C97 89D5 9E81 9E84 9EA4
+5F82 6B82
+4FC3 731D 8128 9162 7604 851F 8A8E 8D97 5648 61B1
+8E27 918B 762F 7C07 7E2C 8E59 9F00 8E74 8E75 9863
+6C46 64BA 92D1 9569 8E7F 651B 8EA5 9479
+6AD5 5DD1 6B11 7A73
+7A9C 6BA9 71B6 7BE1 7C12 7AC4 7228
+5D14 50AC 51D7 7F1E 5894 5D89 615B 6467 69B1 7355
+69EF 78EA 7E17 93D9
+6F3C 7480 8DA1 76A0
+4F1C 5FF0 75A9 5005 7C8B 7D23 7FC6 8103 8106 5550
+555B 60B4 6DEC 8403 6BF3 7120 813A 7601 7CB9 7DB7
+7FE0 81B5 81AC 6FE2 7AC1 894A 9847 81CE
+4E7C
+90A8 6751 76B4 8E06 6F8A 7AF4
+5B58 4F9F 62F5
+520C 5FD6
+5BF8 540B 7C7F
+6413 7473 9073 78CB 64AE 8E49 919D
+8658 5D6F 5D73 75E4 7749 77EC 84AB 8516 9E7E 9142
+9E7A 8EA6
+811E
+5249 5252 539D 590E 632B 839D 83A1 63AA 902A 65AE
+68E4 9509 84CC 9519 6B75 92BC 932F
+FDD0-0044
+5491 54D2 8037 8345 7B1A 55D2 642D 8921 5660 6498
+939D
+8FBE 8FD6 547E 59B2 601B 6C93 709F 7F8D 8359 7557
+5273 5312 7563 7B2A 9039 7B54 8A5A 9054 9618 977C
+8598 9791 87FD 9389 8E82 943D 97C3 9F96 9F98
+6253
+5927 6C4F 7714
+57AF 7629 58B6 71F5 7E68
+5446 5454 7343 61DB
+6B79 902E 50A3
+4EE3 8F6A 5788 5CB1 5E12 7519 7ED0 8FE8 9A80 5E26
+5F85 6020 67CB 6B86 73B3 8D37 5E2F 8ED1 57ED 5E36
+7D3F 888B 8EDA 8CB8 8EE9 7447 5ED7 53C7 66C3 7DFF
+9D0F 6234 825C 9EDB 7C24 8E5B 703B 9734 8976 9EF1
+9746
+9B98
+4E39 5989 5355 62C5 5358 7708 7803 803C 803D 90F8
+8043 8EAD 55AE 5A85 6B9A 7605 5330 7BAA 891D 9132
+9815 510B 52EF 64D4 6BAB 7514 7649 894C 7C1E 8078
+4F14 5210 628C 73AC 74ED 80C6 8874 75B8 7D1E 63B8
+8D55 4EB6 64A2 64A3 6FB8 9ED5 81BD 9EEE
+65E6 4F46 5E0E 6C8A 72DA 8BDE 67E6 758D 5556 5557
+5F39 60EE 6DE1 840F 86CB 557F 5F3E 6C2E 8145 8711
+89DB 7A9E 8A95 50E4 5649 99BE 9AE7 563E 5F48 619A
+61BA 66BA 6FB9 79AB 84DE 99F3 9D20 765A 56AA 7E75
+8D09 972E 994F
+6CF9
+5F53 73F0 88C6 7B5C 7576 5679 6FA2 74AB 8960 7C39
+8261 87F7
+6321 515A 8C20 64CB 8B61 9EE8 6529 7059 6B13 8B9C
+6C39 51FC 5735 5B95 7800 57B1 8361 6863 83EA 5A78
+6113 74FD 903F 5D63 96FC 6F52 78AD 5105 778A 8569
+8DA4 58CB 6A94 7497 76EA 7911 7C1C 862F 95E3
+94DB 943A
+5200 5202 53E8 5FC9 6737 6C18 8220 91D6 9C7D 9B5B
+636F
+5BFC 5C9B 5CF6 6363 7977 7982 6417 969D 5D8B 5D8C
+5C0E 96AF 58D4 5DB9 64E3 8E48 79B1
+5230 5012 60BC 7118 76D7 83FF 76DC 9053 7A32 7B8C
+7FE2 5675 7A3B 885C 6AA4 885F 71FE 7FFF 8EC7 74D9
+7E9B
+5C76 9666 6921 69DD
+561A
+6074 6DC2 60EA 68CF 951D 5FB3 5FB7 9340
+5730 7684 5F97 8126
+6265 627D
+706F 767B 8C4B 5654 5B01 71C8 7492 7AF3 7C26 89B4
+8E6C
+6729 7B49 6225
+9093 51F3 9127 96A5 58B1 5D9D 77AA 78F4 956B 6AC8
+9419
+8260
+6C10 4EFE 4F4E 5943 5F7D 889B 7F9D 9684 5824 8D86
+6EF4 6A00 955D 78FE 9349 97AE
+5EF8 72C4 7C74 82D6 8FEA 5519 654C 6DA4 837B 6891
+7B1B 89CC 976E 6ECC 99B0 9AE2 5600 5AE1 7FDF 850B
+8510 9814 6575 7BF4 5681 85E1 8C74 8E62 9B04 93D1
+7CF4 89BF 9E10
+538E 5758 8BCB 90B8 963A 5467 5E95 5F24 62B5 62DE
+830B 67E2 7274 7825 57DE 638B 83E7 89DD 8A46 8EE7
+805C 9AB6
+5754 5F1F 65F3 6755 7393 601F 4FE4 5E1D 57CA 5A23
+9012 9013 5059 5547 5572 688A 710D 73F6 7731 7976
+7B2C 83C2 8C1B 91F1 5A82 68E3 6E27 7747 7F14 8482
+50C0 7998 8163 905E 926A 5891 58AC 6455 78B2 8515
+8743 9070 6178 750B 7DE0 5DB3 8AE6 8E36 87AE
+9BF3
+55F2
+7538 6541 6382 508E 53A7 5D6E 6EC7 69C7 69D9 7628
+98A0 8E4E 5DC5 985A 985B 766B 5DD3 5DD4 6527 7672
+9F7B
+5178 594C 70B9 5A70 7320 655F 8DD5 7898 84A7 8547
+8E2E 9EDE 56B8
+7535 4F43 963D 576B 5E97 57AB 6242 73B7 94BF 5A5D
+60E6 6DC0 5960 7414 6BBF 8714 96FB 588A 58C2 6A42
+6A5D 6FB1 975B 765C 7C1F 9A54
+6923
+5201 53FC 6C48 866D 51CB 595D 5F34 5F6B 86C1 7431
+8C82 7889 9CED 6BA6 7797 96D5 9B89 9CB7 9F26 9BDB
+9D70
+625A 5C4C
+5F14 4F04 540A 9493 7A8E 8A0B 8C03 6389 91E3 94DE
+94EB 7AE8 84E7 92B1 96FF 9B61 8ABF 7639 7AB5 92FD
+85CB 9443
+7C13
+7239 8DCC 893A
+82F5 8FED 57A4 5CCC 604E 6315 6633 7ED6 80C5 74DE
+7723 621C 8C0D 558B 581E 60F5 63F2 7573 7D70 800B
+81F7 8A44 8D83 957B 53E0 6B9C 7243 7252 5D7D 789F
+8728 890B 8253 8776 8ADC 8E40 9CBD 66E1 7589 9C08
+758A 6C0E
+54CB 800A 7730
+5E49 7582
+4E01 4EC3 53EE 5E04 738E 7594 76EF 9489 8035 8670
+914A 91D8 976A
+5975 9876 9802 9F0E 5D7F 9F11 6FCE 85A1 9424
+8BA2 5FCA 9964 77F4 5B9A 8A02 98E3 5576 94E4 6917
+815A 7887 952D 78A0 874A 92CC 9320 78F8 9841
+8423 8062
+4E1F 4E22 94E5 92A9
+4E1C 51AC 549A 5CBD 6771 82F3 6638 6C21 5032 9E2B
+57EC 5A3B 5D20 5D2C 6DB7 7B17 83C4 5F9A 6C2D 8740
+9D24 9F15 9BDF 9D87
+8463 58A5 5B1E 61C2 7BBD 856B 8ACC
+52A8 51BB 4F97 578C 59DB 5CD2 606B 630F 680B 6D1E
+80E8 8FF5 51CD 6219 80F4 52D5 7850 68DF 6E69 7D67
+8156 50CD 99E7 9718
+9B97 9DAB
+543A 5517 90FD 515C 5160 8538 6A77 7BFC
+9627 6296 6793 67A1 9661 551E 86AA 9204
+6597 8C46 90D6 6D62 8373 9017 997E 9B25 68AA 6BED
+8130 9158 75D8 9597 7AA6 9B26 9916 65A3 95D8 7AC7
+9B2A 9B2D 9B2C
+4E67 8254
+53BE 5262 9607 561F 7763 918F 95CD
+6BD2 72EC 6D9C 8BFB 6E0E 691F 724D 728A 78A1 88FB
+8AAD 8773 7368 9316 51DF 5335 5B3B 7006 6ADD 6BB0
+7258 72A2 74C4 76BE 9A33 9EE9 8B80 8C44 8D15 97E3
+9AD1 945F 97C7 97E5 9EF7 8B9F
+7B03 5835 5E3E 743D 8D4C 7779 89A9 8CED 7BE4
+828F 5992 675C 809A 59AC 5EA6 8370 79FA 6E21 976F
+9540 8799 6BAC 934D 7C35 8827 8839
+8011 5073 526C 5A8F 7AEF 890D 9374
+77ED
+6BB5 65AD 5845 7F0E 846E 6934 7145 7456 8176 78AB
+953B 7DDE 6BC8 7C16 935B 65B7 8E96 7C6A
+8968
+5796 5806 5860 5D5F 75FD 78D3 9D2D 941C
+9827
+961F 5BF9 514A 514C 5151 5BFE 794B 603C 966E 968A
+7893 7D90 5C0D 619E 619D 6FE7 85B1 9566 61DF 7029
+8B48 9413
+5428 60C7 6566 8733 58A9 58AA 64B4 7364 5678 6489
+6A54 729C 7905 8E72 8E7E 9A50
+76F9 8DB8 8E89
+4F05 56E4 5E89 6C8C 7096 76FE 7818 9007 949D 987F
+9041 920D 696F 9813 906F 6F61 71C9 8E32
+78B7
+591A 591B 5484 54C6 7553 525F 5D1C 6387 6560 6BF2
+88F0 5689
+593A 94CE 526B 6553 655A 55A5 60B3 656A 75E5 922C
+596A 51D9 8E31 9BB5 9438
+6736 54DA 579B 579C 6305 6306 57F5 7F0D 692F 8D93
+8EB1 8EB2 619C 7D9E 4EB8 937A 8EC3 56B2 5972
+5234 5241 964A 964F 9973 5C2E 67C1 67EE 70A8 6857
+5815 8235 60F0 8DE2 8DE5 8DFA 98FF 58AE 5D9E 58AF
+9D7D
+6735 67A4
+FDD0-0045
+59B8 59BF 5A3F 5A40 5C59 94B6 75FE
+8BB9 542A 56EE 8FD7 4FC4 5A25 5CE8 5CE9 6D90 83AA
+73F4 8A1B 7692 774B 920B 9507 9E45 86FE 78C0 8A90
+981F 989D 9B64 96B2 984D 9D5D 9D5E 8B4C 9C2A
+6799 7808 980B 5641 9A00
+5384 5C75 6239 6B7A 5C8B 9628 5443 627C 82CA 9638
+545D 7810 8F6D 54A2 54B9 57A9 59F6 5CC9 530E 6076
+7828 8685 997F 5054 537E 580A 60AA 63A0 7565 7846
+8C14 8EDB 9102 960F 582E 5D3F 60E1 6115 6E42 843C
+8C5F 8EF6 904C 904F 922A 5EC5 6424 6439 7427 816D
+8A7B 50EB 8741 9537 9B65 9E57 855A 981E 989A 9913
+5669 89A8 8AE4 95BC 9929 8C96 9354 9CC4 6B5E 984E
+7918 6AEE 9C10 9D9A 8B8D 9F43 9469 9F76 9C77
+64DC 9D48
+8BF6 8A92
+5940 6069 84BD 717E
+5CCE
+6441
+97A5
+513F 800C 5150 4F95 5152 9651 5CCF 6D0F 834B 682D
+80F9 5532 88BB 9E38 7CAB 804F 8F00 9C95 96AD 9AF5
+9B9E 9D2F 8F5C
+53BC 5C12 5C13 5C14 8033 8FE9 6D31 9975 682E 6BE6
+73E5 94D2 723E 990C 99EC 85BE 9087 8DB0
+4E8C 5F0D 5F10 4F74 5235 54A1 8D30 8CAE 8848 8CB3
+8A80 927A 6A32
+FDD0-0046
+53D1 6CB7 767A 50A0 767C 9166 5F42 91B1
+4E4F 4F10 59C2 57A1 6D4C 75BA 7F5A 8337 9600 6830
+781D 7B4F 7782 7F70 95A5 7F78 6A43 85C5
+4F71 6CD5 704B
+73D0 743A 9AEA 855F 9AEE
+9345
+5E06 8A09 756A 52EB 5643 5B0F 5E61 61A3 8543 65D9
+65DB 7E59 7FFB 85E9 8F53 98BF 7C53 98DC 9C55
+51E1 51E2 51E3 5FDB 674B 67C9 77FE 7C75 9492 70E6
+8227 7B32 68E5 6E22 7169 7DD0 58A6 6A0A 6A4E 71D4
+74A0 81B0 85A0 7E41 894E 7FB3 8E6F 702A 703F 792C
+8629 9407 9422 881C 9DED
+53CD 6255 8FD4 91E9
+6C3E 72AF 597F 6C4E 6CDB 996D 8303 8D29 7548 8ED3
+5A4F 68B5 76D5 7B35 8CA9 8EEC 98EF 98F0 6EFC 5B0E
+7BC4
+8224
+531A 65B9 90A1 6C78 82B3 678B 7265 94AB 6DD3 8684
+9201 9D0B
+9632 59A8 623F 80AA 57C5 9C82 9B74 9C1F
+4EFF 8BBF 5F77 7EBA 6609 6618 74EC 7706 5023 65CA
+7D21 822B 8A2A 9AE3 9DAD
+653E 8DBD
+574A 580F 933A
+98DE 5983 975E 98DB 5561 5A53 6E04 7EEF 83F2 6249
+7306 975F 88F6 7DCB 871A 970F 9CB1 9925 99A1 9A11
+9A1B 98DD
+80A5 6DDD 8153 8730 87E6
+670F 532A 8BFD 595C 60B1 6590 68D0 69A7 7FE1 855C
+8AB9 7BDA
+5420 82BE 5E9F 676E 6CB8 72D2 80BA 6632 80C7 8D39
+4FF7 5255 539E 75BF 966B 5C5D 8409 5EC3 8CBB 75F1
+9544 5EE2 66CA 7648 9F23 6FF7 6AE0 9BE1 9428 9745
+5A54 6683
+5206 5429 5E09 7EB7 82AC 6610 6C1B 54DB 886F 517A
+7D1B 7FC2 515D 68FB 8A1C 915A 9216 96F0 6706 71D3
+9934 9959
+575F 59A2 5C8E 6C7E 670C 678C 7083 80A6 7F92 86A0
+86A1 68A4 68FC 711A 84B6 999A 96AB 58B3 5E69 6FC6
+8561 9B75 6A68 71CC 8C6E 9F22 7FB5 9F16 8C76 8F52
+943C 99A9 9EC2
+7C89 9EFA
+4EFD 5F05 594B 5FFF 79CE 507E 6124 7CAA 50E8 61A4
+596E 81B9 7CDE 9CBC 7035 9C5D
+7AD5 8EAE
+4E30 98CE 4EF9 51E8 51EC 59A6 6CA3 6CA8 51EE 67AB
+5C01 75AF 76FD 781C 98A8 5CEF 5CF0 5051 687B 70FD
+5D36 7326 8451 950B 6953 728E 8702 760B 78B8 50FC
+7BC8 9137 92D2 6A92 95CF 8C50 93E0 9146 5BF7 7043
+8634 973B 882D 974A 98CC 9EB7
+51AF 5906 6340 6D72 9022 5838 99AE 6453 6F28 7D98
+8242
+8BBD 8982 552A 8AF7
+51E4 5949 752E 4FF8 6E57 7128 7148 7F1D 8D57 9CEF
+9CF3 9D0C 7E2B 8CF5
+7412 6E84 93BD 8615
+8985
+4ECF 5772
+68BB
+7D11 88E6
+7F36 5426 599A 7F39 7F3B 6B95 96EC 9D00
+4F15 909E 544B 598B 59C7 739E 80A4 6024 67CE 7806
+8342 886D 57BA 5A10 5C03 8374 65C9 7D28 8DBA 9EB8
+75E1 7A03 8DD7 9207 7B5F 7D92 911C 5B75 8C67 6577
+819A 9CFA 9EA9 7CD0 9EAC 9EB1 61EF
+4E40 5DFF 5F17 4F0F 51EB 7536 4F5B 51B9 521C 5B5A
+6276 8299 82A3 5488 5CAA 5F7F 602B 62C2 670D 678E
+6CED 7EC2 7ECB 82FB 8300 4FD8 5798 67EB 6C1F 6D11
+70A5 73B8 7549 7550 7953 7F58 832F 90DB 97E8 54F9
+683F 6D6E 7829 83A9 86A8 5310 6874 6DAA 70F0 7408
+7B26 7B30 7D31 7D3C 7FC7 8274 83D4 8659 5E45 68F4
+7D65 7F66 844D 798F 7CB0 7D8D 8240 8709 8F90 9258
+925C 98AB 9CE7 6991 7A2A 7B99 97CD 5E5E 6F93 8760
+9AF4 9D14 8AE8 8E3E 8F3B 9B84 7641 8946 9EFB 9D69
+9D9D
+5452 629A 4E76 5E9C 5F23 62CA 65A7 4FCC 4FDB 80D5
+90D9 9CEC 4FEF 91DC 91E1 636C 8F85 7124 76D9 8151
+6ECF 8705 8150 8F14 5638 64A8 64AB 982B 9B34 7C20
+9EFC
+961D 7236 8BA3 4ED8 5987 8D1F 9644 577F 7ACE 961C
+9A78 590D 5CCA 7954 8A03 8CA0 8D74 86A5 889D 965A
+5069 51A8 526F 5A66 86B9 5A8D 5BCC 5FA9 79FF 842F
+86D7 8A42 8D4B 5711 6931 7F1A 8179 9C8B 8907 8914
+8D59 7DEE 8567 875C 876E 8CE6 99D9 5B14 7E1B 8F39
+9B92 8CFB 9351 9362 9CC6 8986 99A5 9C12
+592B 752B 5490 88B1 915C 5085 6928 8984 79A3 9BB2
+FDD0-0047
+65EE 5477 560E 5620
+9486 5C1C 5676 9337
+5C15 738D
+5C2C 9B40
+4F85 8BE5 90C2 9654 5793 59DF 5CD0 8344 6650 8D45
+7561 7974 7D6F 8A72 8C65 8CC5
+5FCB 6539 7D60
+4E10 4E62 5303 5304 9623 675A 9499 76D6 6461 6E89
+8462 9223 9691 6224 6982 69E9 84CB 8CCC 6F11 69EA
+74C2
+7518 5FD3 8289 8FC0 653C 6746 7395 809D 5769 6CD4
+77F8 82F7 4E79 67D1 7AFF 75B3 9150 4E7E 7C93 4E81
+51F2 5C32 5C34 7B78 6F27 9CF1 5C36 5C37 9B50
+4EE0 625E 76AF 79C6 8866 8D76 6562 687F 7B34 7A08
+611F 6F89 8D95 6A44 64C0 7C33 9C14 9CE1 9C64
+5E72 65F0 6C75 76F0 7EC0 501D 51CE 6DE6 7D3A 8A4C
+9AAD 5E79 69A6 6A8A 8D11 8D63 8D1B 7068
+5188 7F53 51AE 521A 6760 7EB2 809B 5CA1 7268 7598
+77FC 7F38 94A2 525B 7F61 5808 6386 91ED 68E1 7285
+583D 7DB1 7F41 92FC 93A0
+5C97 5D17 6E2F
+7135 7B7B 69D3 6205 6206
+768B 7F94 7F99 9AD8 7690 9AD9 81EF 6EDC 69D4 777E
+818F 69F9 6A70 7BD9 7CD5 993B 6ADC 9DCE 9F1B 9DF1
+5930 6772 83D2 641E 7F1F 66A0 69C0 69C1 7A3E 7A3F
+9550 7E1E 85C1 6ABA 85F3
+543F 544A 52C2 53DD 8BF0 90DC 796E 7970 9506 7170
+7B76 799E 8AA5 92EF
+97DF
+6208 4EE1 572A 72B5 7EA5 6213 8090 726B 7599 54AF
+7271 54E5 80F3 88BC 9E3D 5272 6401 6ED2 6228 6B4C
+9D10 9D1A 64F1 8B0C 9D3F 93B6
+5444 4F6E 530C 630C 8316 9601 9769 654B 683C 9B32
+6105 81F5 845B 86D2 88D3 9694 55DD 5865 6EC6 89E1
+643F 69C5 8188 95A3 95A4 7366 9549 9788 97D0 9ABC
+8AFD 8F35 9BAF 97DA 8F55 97B7 9A14
+54FF 8238
+4E2A 5404 867C 500B 784C 94EC 55F0 7B87
+5F41 6ACA
+7ED9 7D66
+6839 8DDF
+54CF
+826E
+4E98 4E99 831B 63EF
+522F 5E9A 754A 6D6D 8015 83EE 6404 713F 7D5A 8D53
+9E52 7DEA 7E06 7FAE 8CE1 7FB9 9D8A
+90E0 54FD 57C2 5CFA 632D 7EE0 803F 8384 6897 7D86
+9CA0 9ABE 9BC1
+66F4 5829 6685
+63B6 6929
+5DE5 5F13 516C 53B7 529F 653B 675B 4F9B 739C 7CFC
+80B1 5BAB 5BAE 606D 8EAC 9F9A 5311 5868 5E4A 6129
+89E5 8EB3 7195 78BD 9AF8 89F5 9F8F 9F94
+5EFE 5DE9 6C5E 62F1 62F2 6831 73D9 8F01 92DB 978F
+5171 8D21 7FBE 551D 8CA2 83BB
+86A3 6150
+52FE 4F5D 6C9F 94A9 88A7 7F11 920E 6E9D 9264 7DF1
+8920 7BDD 97B2 97DD
+82B6 5CA3 72D7 82DF 67B8 73BD 8007 8009 7B31 8008
+86BC 8C7F
+5778 6784 8BDF 8D2D 57A2 59E4 8329 5193 591F 5920
+8A3D 5ABE 5F40 6406 8A6C 9058 96CA 69CB 7179 89CF
+6480 89AF 8CFC
+4F30 5471 59D1 5B64 6CBD 6CD2 82FD 67E7 8F71 5502
+7F5B 9E2A 7B1F 83F0 86C4 89DA 8EF1 8EF2 8F9C 9164
+9232 7B8D 7B9B 5AF4 6A6D 9B95 9D23
+9DBB
+5903 53E4 6262 6C69 8BC2 8C37 80A1 726F 9AA8 5503
+7F5F 7F96 94B4 5552 6DC8 8135 86CA 86CC 5C33 6132
+84C7 8A41 9989 9E44 69BE 6BC2 9237 9F13 9F14 560F
+6996 76B7 9E58 7A40 7E0E 7CD3 85A3 6FF2 76BC 81CC
+8F42 9936 7014 76EC 77BD 8831
+56FA 6545 51C5 987E 580C 5D13 5D2E 688F 727F 68DD
+797B 96C7 75FC 7A12 9522 50F1 932E 9CB4 9BDD 9867
+5495 5CE0 9027 50A6 83C7 7BD0
+74DC 522E 80CD 681D 9E39 6B44 7171 8052 8D8F 5280
+7DFA 8E3B 92BD 98B3 9D30 9A27
+518E 53E7 5250 526E 5BE1
+5366 576C 8BD6 6302 5569 639B 7F63 7D53 7F6B 8902
+8A7F
+98AA
+4E56 63B4 6451
+62D0 67B4 67FA 7B89
+592C 53CF 602A 6060
+5173 89C2 5B98 51A0 898C 500C 68FA 8484 7AA4 95A2
+761D 764F 89B3 95D7 9CCF 95DC 9C25 89C0 9C5E
+839E 9986 742F 75EF 7B66 7BA1 8F28 8218 9327 9928
+9CE4
+6BCC 4E31 8D2F 6CF4 60BA 60EF 63BC 6DAB 8CAB 60B9
+797C 6163 645C 6F45 9066 6A0C 76E5 7F46 96DA 93C6
+704C 721F 74D8 77D4 7936 9E73 7F50 9475 9C79 9E1B
+5149 706E 4F8A 7097 709B 54A3 5799 59EF 6D38 832A
+6844 70E1 80F1 50D9 8F04 92A7 9EC6
+5E7F 5E83 72B7 5EE3 7377 81E9
+4FC7 73D6 901B 81E6 6497
+709A 6B1F
+5F52 572D 59AB 9F9F 89C4 90BD 7688 8325 95FA 5E30
+73EA 80FF 4E80 5080 7845 7A90 88BF 898F 5AAF 5EC6
+691D 7470 90CC 5AE2 646B 95A8 9C91 5B00 69FB 69FC
+879D 749D 81AD 9BAD 9F9C 5DC2 6B78 9B36 9A29 74CC
+9B39 6AF7
+5B84 6C3F 6739 8F68 5E8B 4F79 5326 8BE1 9652 579D
+59FD 6051 6531 7678 8ECC 9B3C 5EAA 796A 532D 6677
+6E40 86EB 89E4 8A6D 53AC 77A1 7C0B 87E1
+6530 523D 523F 660B 67DC 7094 8D35 6842 6867 7324
+7B40 8CB4 84D5 8DEA 5331 528A 528C 5DA1 648C 69F6
+6A9C 77B6 79AC 7C02 6AC3 7650 8958 9CDC 97BC 9C56
+9C65
+6922
+4E28 886E 60C3 7EF2 889E 88AC 8F8A 6EDA 84D8 6EFE
+7DC4 8509 78D9 8F25 9CA7 9B8C 9BC0
+68CD 7754 7774 74AD 8B34
+5459 54BC 57DA 90ED 581D 5D1E 921B 9505 588E 7611
+5613 5F49 6FC4 8748 934B 5F4D 87C8
+56EF 56F6 56FB 56FD 5700 570B 5E3C 8158 5E57 6156
+6F0D 805D 852E 8195 8662 9998
+679C 60C8 6DC9 7313 83D3 9983 6901 69E8 7CBF 7DB6
+873E 88F9 8F20 9301 991C 9439
+8FC7 904E
+556F
+FDD0-0048
+54C8 94EA
+86E4
+5964
+4E37
+548D 54B3 55E8
+8FD8 5B69 9826 9AB8 9084
+6D77 80F2 70F8 917C 91A2
+4EA5 598E 9A87 5BB3 6C26 55D0 9900 99ED 995A
+5870 56A1
+4F44 70B6 9878 86B6 9163 9807 5AE8 8C3D 61A8 99A0
+6B5B 9F3E
+9097 542B 90AF 51FD 5481 80A3 51FE 8677 5505 5705
+5A22 6D5B 5D21 6657 6892 6DB5 7113 7400 5BD2 5D45
+97E9 751D 7B68 872C 6F8F 92E1 9B7D 97D3
+4E06 5388 7F55 6D6B 558A 850A 961A 8C43 9B2B
+6C49 5C7D 6C57 95EC 65F1 5CBE 54FB 57BE 608D 634D
+6D86 7302 839F 6658 6665 710A 83E1 91EC 9588 7694
+7745 50BC 86FF 9894 99AF 6496 6F22 872D 8C8B 66B5
+71AF 92B2 92CE 61BE 64BC 7FF0 8792 9837 9844 99FB
+8B40 96D7 701A 862B 9DBE
+516F 7233
+592F
+82C0 8FD2 65BB 676D 7ED7 73E9 7B10 822A 86A2 9883
+8CA5 7B55 7D4E 980F 9B67
+6C86
+57B3
+8320 84BF 5686 8585 85A7
+6BDC 869D 6BEB 6903 55E5 7346 8C89 5651 7354 8C6A
+5637 734B 8AD5 512B 568E 58D5 6FE0 7C47 8814 8B79
+597D 90DD
+53F7 660A 6626 79CF 54E0 5CFC 604F 608E 6D69 8017
+6667 6DCF 5090 7693 9117 6EC8 8055 865F 66A4 66AD
+6F94 769C 769E 66CD 76A1 8583 76A5 93AC 98A2 704F
+9865 9C1D 705D
+7AD3
+8BC3 62B2 6B31 559D 8A36 55EC 881A
+79BE 5408 4F55 52BE 5392 548A 548C 59C0 6CB3 90C3
+5CC6 66F7 67C7 72E2 76C7 7C7A 7D07 9602 9978 54EC
+6546 6838 76C9 76CD 8377 555D 6DB8 6E2E 76D2 79F4
+83CF 8402 86B5 9F81 60D2 8A38 988C 6941 6BFC 6F95
+8A65 8C88 8F05 924C 9616 9C84 7186 9E56 9EA7 981C
+7BD5 7FEE 879B 9B7A 7909 95D4 97A8 9F55 8988 9DA1
+76AC 9449 9FA2
+4F6B 578E 8D3A 8894 7103 8CC0 55C3 7142 788B 7187
+8910 8D6B 9E64 7A52 7FEF 58D1 764B 8B1E 7200 9DAE
+9DB4 974E 9E16 974F
+7CAD 974D
+9ED2 9ED1 563F 6F76
+62EB 75D5 978E
+4F77 5F88 72E0 8A6A
+6068
+4EA8 54FC 6099 5548 811D
+59EE 6046 6052 6841 70C6 80FB 9E3B 6A2A 6A6B 8861
+9D34 8605 9445
+583C
+6DA5 9D46
+5677
+53FF 543D 544D 7074 8F70 54C4 8A07 70D8 8EE3 63C8
+6E39 7122 7861 8C3E 85A8 8F37 569D 9367 8F5F
+4EDC 5F18 5985 7EA2 5430 5B8F 6C6F 7392 7EAE 95F3
+5B96 6CD3 82F0 57AC 5A02 6D2A 7AD1 7D05 836D 8679
+5CF5 6D64 7D18 7FC3 803E 7854 7D2D 8C39 9E3F 6E31
+7AE4 7CA0 8452 8453 921C 958E 7D8B 7FDD 8C3C 6F42
+9277 9783 9B5F 92D0 5F4B 857B 9710 9EC9 971F 9D3B
+9ECC
+664E 55CA
+8BA7 8A0C 95A7 6494 6F8B 6F92 92BE 95C2 9B28
+9F41
+4FAF 77E6 9107 5589 5E3F 7334 8454 760A 777A 7BCC
+7CC7 7FED 9ABA 7FF5 936D 9931 9BF8
+543C 72BC
+540E 90C8 539A 5795 5F8C 6D09 9005 5820 8C5E 9C8E
+9C98 9B9C 9C5F
+5019
+4E6F 5322 864D 547C 5780 5FFD 6612 66F6 6CD8 82F8
+6057 70C0 8F77 532B 553F 60DA 6DF4 8656 8EE4 5611
+5BE3 6EF9 96D0 5E60 622F 6B51 81B4 8B3C
+56EB 6287 5F27 72D0 74F3 80E1 58F6 96BA 58F7 659B
+7100 5596 58FA 5AA9 6430 6E56 7322 7D57 846B 695C
+7173 745A 561D 851B 9E55 69F2 7BB6 8774 885A 9B71
+7E20 879C 9190 9836 89F3 9378 992C 9D60 702B 9B0D
+9C17 9D98 9DA6
+4E55 6C7B 864E 6D52 4FFF 8400 7425 865D 6EF8
+4E65 4E92 5F16 6236 6237 6238 51B1 51B4 8290 5E0D
+62A4 6C8D 6CAA 5CB5 6019 623D 6608 6791 6018 795C
+7B0F 5A5F 6248 74E0 695B 55C0 7D94 9120 96FD 5AED
+5AEE 6462 6EEC 8530 69F4 71A9 9CF8 7C04 9359 569B
+9E71 8B77 9CE0 97C4 9800 9C6F 9E0C
+4E4E 7C90 552C 7CCA 933F 9BF1
+82B1 82B2 54D7 5629 848A 9335
+534E 59E1 9A85 83EF 91EA 91EB 94E7 6ED1 733E 6433
+64B6 78C6 8550 8796 92D8 8B41 93F5 9A4A 9DE8
+5316 5212 593B 6779 753B 8BDD 5D0B 6866 5A73 756B
+5B05 7575 89DF 8A71 5283 6466 6A3A 5AFF 69EC 6F85
+8AE3 9ECA 7E63 8219 8B6E
+57D6 5A72 691B 7874 7CC0 748D 8AAE
+6000 5F8A 6DEE 69D0 8922 8E1D 61D0 8931 61F7 7024
+6AF0 8032 8639
+574F 54B6 8AD9 58CA 58DE 863E
+72BF 6B53 9D05 9D4D 9144 56BE 61FD 737E 8B99 8C9B
+9A69
+73AF 90C7 5CD8 6D39 72DF 8341 6853 8408 8411 5BCF
+7D59 96C8 7D84 7FA6 8C86 926E 953E 571C 5B1B 5BF0
+6FB4 7F33 961B 74B0 8C72 9370 956E 9E6E 7CEB 7E6F
+8F58 9436 95E4 9B1F 74DB
+7F13 7DE9 650C
+5E7B 5942 8092 5950 5BA6 5524 6362 6D63 6DA3 70C9
+60A3 6899 7115 902D 559A 559B 5D48 610C 63DB 6E19
+75EA 7746 7165 744D 8C62 6F36 7613 69F5 9CA9 64D0
+6FA3 85E7 9BC7 9C00
+6B22 77A3 6B61
+5DDF 8093 8352 8841 671A 5843 614C
+7687 505F 51F0 968D 9EC4 55A4 582D 5A93 5D32 5FA8
+60F6 6E5F 845F 9051 9EC3 697B 714C 745D 58B4 6F62
+735A 953D 71BF 749C 7BC1 7BCA 824E 8757 7640 78FA
+7A54 8AFB 7C27 87E5 9360 992D 9CC7 8DAA 97F9 9404
+9A1C 5164 9C09 9C51 9DEC
+6033 604D 70BE 5BBA 6644 595B 8C0E 5E4C 8A64 7180
+8B0A 6ACE
+6130 6EC9 69A5 66C2 769D 93A4 76A9
+6643 7E28
+7070 8BD9 54B4 6062 62FB 6325 6D03 867A 8886 6656
+70E3 73F2 8C57 5A4E 5A88 63EE 7FDA 8F89 9693 6689
+694E 7147 7988 8A7C 5E51 7773 8918 5645 649D 5655
+7FEC 8F1D 9EBE 5FBD 96B3 7008 8633 9C34
+56D8 56DE 56EC 4F6A 5EFB 5EFD 605B 6D04 8334 8FF4
+70E0 8698 9025 75D0 86D4 86D5 8716 9BB0
+6094 6BC0 6BC1 6BC7 6A93 71EC 8B6D
+5349 6C47 4F1A 8BB3 6CCB 54D5 6D4D 7ED8 8294 835F
+8BF2 605A 6075 70E9 8D3F 5F57 6666 79FD 5599 60E0
+6E4F 7D75 7F0B 7FD9 9613 532F 5F59 5F5A 6703 6ED9
+8A6F 8CC4 9892 50E1 5612 7623 8527 8AA8 571A 5BED
+6167 6193 66B3 69E5 6F53 8559 5666 5B12 5FBB 6A5E
+6BA8 6FAE 6FCA 7369 8588 8589 8AF1 982E 71F4 74AF
+7BF2 85F1 992F 5696 77BA 7A62 7E62 87EA 6AD8 7E6A
+7FFD 8B53 5136 93F8 95E0 5B48 942C 9767 8B7F 986A
+5C77 7073 74A4 61F3
+660F 662C 8364 5A5A 60DB 6DBD 960D 68D4 6B99 8477
+7767 776F 95BD
+5FF6 6D51 68A1 9984 581A 6E3E 743F 9B42 991B 7E49
+8F4B 9F32
+9BF6
+8BE8 4FD2 5031 5702 638D 6DF7 711D 6EB7 6141 89E8
+8AE2
+5419 5268 8020 952A 5290 5684 9343 8C41 6509 9A1E
+4F78 6D3B 79EE 79F3
+706B 4F19 90A9 94AC 9225 6F37 5925
+6C8E 6216 8D27 549F 7809 4FF0 6347 7713 83B7 9584
+639D 7978 8CA8 60D1 65E4 6947 6E71 798D 84A6 596F
+6FE9 7372 970D 6AB4 8B0B 77C6 7A6B 956C 56AF 7016
+802F 8267 85FF 8816 56BF 66E4 81DB 7668 77D0 944A
+9743
+FDD0-004A
+4E0C 8BA5 51FB 5209 53FD 9965 4E69 520F 573E 673A
+7391 808C 82A8 77F6 9E21 6785 54AD 59EB 8FF9 525E
+5527 59EC 5C50 79EF 7B04 98E2 57FA 7EE9 559E 5D46
+5D47 6567 671E 7284 7B53 7F09 8D4D 52E3 55D8 7578
+7A18 8DE1 8DFB 9CEE 50DF 6BC4 7B95 9288 5630 69E3
+757F 7A3D 7DDD 89ED 8CEB 8EB8 9F51 58BC 6A5F 6FC0
+74A3 79A8 7A4D 8940 9324 96AE 64CA 78EF 7C0A 7E3E
+7F81 8CF7 913F 6AC5 802D 8E5F 96DE 8B4F 97F2 9D8F
+8B64 9416 9951 8E8B 97BF 9DC4 9F4E 7F87 8640 9447
+8989 9459 9F4F 7F88 9E04 898A
+4EBC 53CA 4F0B 5409 5C8C 5F76 5FE3 6C72 7EA7 5373
+6781 7680 4E9F 4F76 8BD8 90C6 9491 537D 59DE 6025
+72E4 768D 7B08 7D1A 63E4 75BE 810A 89D9 506E 5359
+5EB4 710F 8C3B 6222 68D8 6975 6B9B 6E52 96C6 5849
+5AC9 6131 696B 84BA 8D8C 69C9 799D 8024 818C 92A1
+5DAF 6483 6F57 6FC8 7620 7BBF 8540 857A 8E16 9E61
+6A76 6A9D 878F 64EE 85C9 894B 8E50 9353 8265 7C4D
+8F5A 93F6 9735 9DBA 9DD1 96E6 96E7
+51E0 5DF1 4E2E 5980 72B1 6CF2 866E 6324 638E 9C7E
+5E7E 621F 9218 5D74 9E82 9B62 64A0 64E0 7A56 87E3
+9B55
+5F50 5F51 65E1 8BA1 8BB0 4F0E 7EAA 5756 5993 5FCC
+6280 82B0 9645 5242 5B63 54DC 578D 5CDC 65E2 6D0E
+6D4E 7D00 830D 8324 8360 8A08 5264 7D12 7EE7 89CA
+8A18 5048 5BC2 5BC4 5F9B 60B8 65E3 689E 6E08 796D
+5848 60CE 81EE 846A 8507 517E 75F5 7D99 84DF 88DA
+8900 969B 9B3E 66A8 6F03 6F08 7A29 7A4A 8A8B 8DFD
+9701 9C9A 66A9 7A37 8AC5 9CAB 5180 5291 66C1 7A44
+858A 9AFB 568C 6A95 6FDF 7E4B 7F7D 85BA 89AC 6AB5
+9D4B 9F4C 61FB 7660 7A67 860E 9AA5 9BDA 7031 7E7C
+862E 9C40 863B 973D 9C36 9C3F 9C6D 9A65
+4EBD 8F91 6A2D 8F2F 5EED 766A
+52A0 4E6B 5939 4F3D 593E 62B8 4F73 62C1 6CC7 8304
+8FE6 67B7 6BE0 6D43 73C8 57C9 5BB6 6D79 75C2 689C
+7B33 801E 8888 50A2 7333 846D 8DCF 728C 8175 926B
+5609 927F 9553 8C6D 8C91 93B5 9E9A
+573F 5FE6 6274 90CF 835A 90DF 550A 605D 83A2 621B
+88B7 94D7 621E 86F1 88CC 988A 86FA 8DF2 9782 9904
+92CF 982C 9830 9D36 9D4A
+7532 4EEE 5CAC 53DA 73BE 80DB 659A 8D3E 94BE 5047
+5A7D 5FA6 659D 6935 8CC8 9240 698E 69DA 7615 6A9F
+4EF7 9A7E 67B6 5AC1 5E4F 69A2 50F9 99D5
+7A3C 7CD8
+620B 5978 5C16 5E75 575A 6B7C 95F4 51BF 6214 73AA
+80A9 8270 59E6 59E7 517C 76D1 5042 5805 60E4 730F
+7B3A 83C5 83FA 8C5C 6E54 724B 728D 7F04 844C 9593
+641B 6937 693E 714E 744A 7777 788A 7F23 84B9 8C63
+76E3 7B8B 6A2B 719E 7DD8 8551 8573 9CA3 9CFD 9E63
+71B8 7BEF 7E11 8271 97AC 9930 99A2 9E89 7010 97AF
+9CD2 791B 89B8 9D73 7038 9427 6AFC 6BB2 9DBC 97C0
+9C39 56CF 8643 946F 97C9
+56DD 62E3 67A7 4FED 67EC 8327 5039 6338 6361 7B15
+51CF 526A 6898 68C0 6E55 8DBC 583F 63C0 63C3 691C
+6E1B 7751 7877 88E5 8A43 950F 5F3F 6695 7450 7B67
+7B80 7D78 8C2B 6229 622C 78B1 5109 7FE6 64BF 6AA2
+85C6 8947 8949 8B07 8E47 77BC 7906 7C21 7E6D 8B2D
+9B0B 9C0E 9E78 703D 8812 9417 5297 9E7B 7C5B 8B7E
+897A 9E7C
+89C1 4EF6 898B 5EFA 996F 5251 6D0A 726E 8350 8D31
+4FF4 5065 5263 682B 6DA7 73D4 8230 5271 5FA4 6E10
+88B8 8C0F 91FC 5BCB 65D4 6957 6BFD 6E85 8171 81F6
+8465 8DF5 8CCE 9274 952E 50ED 6997 6F38 852A 528D
+528E 6F97 7BAD 7CCB 8AD3 8CE4 8D9D 8E10 8E3A 5292
+5294 85A6 8AEB 92FB 9375 991E 77B7 78F5 87B9 9373
+64F6 6FFA 7E5D 7033 89B5 93E9 8266 8B7C 8F5E 9431
+9451 9452 946C 9473
+5F45 58B9 6A7A 7900 6BB1
+6C5F 59DC 5C06 8333 6D46 7555 8C47 5C07 8441 757A
+646A 7FDE 50F5 6F3F 8780 58C3 7F30 8591 6A7F 6BAD
+87BF 9CC9 7585 7913 7586 7E6E 97C1 9C42
+8BB2 5956 6868 508B 848B 5968 596C 8523 69F3 734E
+8029 8199 8B1B 985C
+531E 5905 5F1C 964D 6D1A 7EDB 5F36 88B6 7D73 9171
+52E5 6EF0 5D79 647E 5F4A 729F 7CE1 91A4 7CE8 91AC
+8B3D
+5320 6762 6AE4
+827D 8281 4EA4 90CA 59E3 5A07 5CE7 6D47 832D 832E
+9A84 80F6 6912 7126 86DF 8DE4 50EC 5604 8660 9C9B
+5B0C 5D95 5DA3 618D 6F86 81A0 8549 71CB 81B2 7901
+7A5A 9BAB 9D41 9E6A 7C25 87ED 8F47 940E 9DCD 9A55
+9DE6 9DEE
+81EB 89D2 4F7C 4FA5 6054 6322 72E1 7EDE 997A 6341
+6648 70C4 768E 77EB 811A 94F0 6405 6E6B 7D5E 527F
+656B 6E6C 714D 8173 8CCB 50E5 6477 669E 8E0B 9278
+9903 510C 528B 5FBA 649F 64B9 96A6 5FBC 61BF 657D
+657F 71DE 7F34 66D2 74AC 77EF 76A6 87DC 7E73 8B51
+5B42 652A 705A 9C4E
+53EB 544C 5CE4 630D 8A06 73D3 7A8C 8F7F 8F83 654E
+6559 7A96 6ED8 8F03 5602 5626 65A0 6F16 9175 564D
+5DA0 6F50 566D 5B13 7365 85E0 8DAD 8F4E 91AE 8B65
+76AD 91C2
+9D64 6AF5 7E90
+9636 7596 7686 63A5 63B2 75CE 79F8 83E8 968E 5588
+55DF 5826 5A98 5AC5 63ED 6904 6E5D 813B 8857 716F
+7A2D 64D1 8754 7664 8B2F 9D9B
+5369 536A 5B51 5C10 8282 8BA6 5226 5227 52AB 5C8A
+6605 523C 52BC 6770 758C 8871 62EE 6D01 7ED3 8FFC
+5022 6840 83AD 8A10 507C 5A55 5D28 6377 88BA 5091
+55BC 7D50 7D5C 9889 5D65 696C 6976 6ED0 776B 7BC0
+8710 874D 8A70 9263 9B5D 622A 69A4 78A3 7AED 84F5
+9C92 6F54 7FAF 8AB1 8E15 978A 5E6F 937B 9B9A 5DC0
+6AED 881E 8818 883D
+6BD1 5A8E 89E3 89E7 98F7 6A9E
+4E2F 4ECB 5424 5C95 5E8E 6212 82A5 5C46 5C4A 73A0
+754C 754D 75A5 780E 8878 8BEB 501F 6088 86A7 5FA3
+583A 6950 743E 86F6 9AB1 7297 8AA1 892F 9B6A 9385
+8EA4
+59D0 685D
+5DFE 4ECA 65A4 9485 5153 91D1 6D25 77DC 8355 887F
+89D4 57D0 73D2 7D1F 60CD 583B 7B4B 91FF 5D9C 9E76
+9EC5 895F
+4EC5 5C3D 4FAD 537A 5DF9 7D27 5807 83EB 50C5 53AA
+8C28 9526 5AE4 5ED1 6F0C 76E1 7DCA 84F3 9991 69FF
+747E 5118 9326 8B39 9949
+4F12 52A4 52B2 5997 8FD1 8FDB 6783 52C1 6D55 8369
+6649 664B 6D78 70EC 8D46 552B 740E 7972 9032 5BD6
+6422 6E8D 7981 7F19 9773 5890 669C 7468 50F8 51DA
+6B4F 6BA3 74A1 89D0 5664 6FC5 7E09 8CEE 568D 5B27
+6FDC 85CE 71FC 74B6 89B2 8D10 9F7D
+91D2 781B 743B 58D7
+5755 5759 5DE0 4EAC 6CFE 7ECF 830E 4EB0 79D4 8346
+834A 6D87 8396 5A5B 60CA 65CC 65CD 7304 7D4C 83C1
+6676 7A09 8148 844F 7CB3 7D93 5162 7CBE 8059 9CB8
+9D5B 9BE8 9D81 9D84 9E96 9F31 9A5A 9EA0
+4E95 4E3C 9631 522D 5753 5B91 6C6B 6C6C 80BC 5244
+7A7D 9888 666F 5106 981A 5E5C 61AC 61BC 66BB 71DB
+749F 74A5 9838 87FC 8B66
+598C 51C0 5F2A 5F84 8FF3 4FD3 5A59 6D44 80EB 501E
+51C8 5F33 5F91 75C9 7ADE 9015 5A67 6871 68B7 6DE8
+7AEB 811B 7ADF 656C 75D9 7AE7 9753 50B9 9756 5883
+734D 8AA9 8E01 9759 975A 66D4 955C 975C 6FEA 701E
+93E1 7AF6 7AF8
+775B 6A78 71DD
+5182 518B 5770 6243 57DB 7D45 99C9 99EB 860F 8614
+518F 56E7 6CC2 7085 8FE5 4FB0 70AF 9008 6D7B 70F1
+715A 7A98 988E 7D97 50D2 715B 71B2 6F83 8927
+4E29 52FC 7EA0 673B 725E 7A76 7CFA 9E20 7CFE 8D73
+9604 841B 557E 63C2 63EA 63EB 9CE9 644E 6A1B 9B0F
+9B2E
+4E5D 4E45 4E46 4E63 597A 7078 7396 820F 97ED 7D24
+9152 9579 97EE
+531B 65E7 81FC 548E 759A 67E9 67FE 5003 6344 6855
+5313 53A9 6551 5AA8 5C31 5EC4 5ED0 8205 50E6 5ECF
+6166 6BA7 820A 9E6B 5336 9BE6 9E94 9F68 9DF2
+6C63 6766 6B0D
+51E5 521F 6285 530A 5C45 62D8 6CC3 72D9 82F4 9A79
+6336 75BD 75C0 7717 7820 7F5D 9671 5A35 5A6E 5D0C
+63AC 68AE 6DBA 83F9 6910 741A 8152 8D84 8DD4 9514
+88FE 96CE 824D 871B 8E18 8E19 92E6 99D2 9B88 9D21
+97A0 97AB 9D8B
+5C40 6CE6 4FB7 72CA 6854 6BE9 5579 5A45 6DD7 7117
+83CA 90F9 6908 6BF1 6E68 7291 8F02 50EA 7CB7 8DFC
+95B0 8ACA 8D9C 8EB9 6A58 6A8B 99F6 9D59 8E6B 9D74
+5DC8 861C 9DAA 9F33 9A67
+5480 5F06 6CAE 4E3E 8392 6319 6907 7B65 6989 6998
+849F 9F83 8065 8209 8E3D 64E7 6AF8 9F5F 6B05
+5DE8 53E5 4E6C 5DEA 8BB5 59D6 5CA0 6007 62D2 6D30
+82E3 90AD 5177 6010 601A 62E0 661B 6B6B 70AC 79EC
+949C 4FF1 5028 5036 51A3 5267 7C94 801F 86B7 8893
+57E7 57FE 60E7 636E 8A4E 8DDD 728B 8DD9 9245 98D3
+8661 8C66 952F 5BE0 6133 7AAD 805A 99CF 5287 52EE
+5C66 8E1E 9B94 58C9 61C5 64DA 6FBD 7AB6 907D 92F8
+5C68 98B6 8C97 7C34 8E86 91B5 61FC 943B
+77E9 7220 8977
+59E2 5A1F 6350 6D93 7106 74F9 8127 88D0 9E43 52EC
+954C 93B8 9D51 942B 8832
+5377 545F 5E23 57CD 6372 83E4 9529 81C7 9308
+5946 52B5 5DFB 5026 52CC 684A 72F7 7EE2 96BD 6DC3
+7737 9104 774A 7D6D 7F65 96CB 7760 7D79 98EC 617B
+8528 990B 7367 7E33 7F82
+5658 6485 64A7 5C69 8E7B
+4E85 5B52 5B53 51B3 5214 6C12 8BC0 5F21 6289 6C7A
+82B5 6CEC 73A6 73A8 6317 73CF 75A6 7804 7EDD 8673
+89C9 5014 6354 6B2E 8697 5D1B 6398 658D 6877 6B8C
+8990 89D6 8A23 8D7D 8DB9 902B 5095 53A5 7133 7D55
+7D76 899A 8D89 920C 5282 52EA 7474 8C32 99C3 5DA5
+61B0 71A6 7234 7357 761A 855D 8568 9D02 9D03 5671
+61A0 6A5B 6A5C 7235 81C4 9562 87E8 87E9 5C6B 7211
+8B4E 8E76 8E77 9D8C 5337 56BC 77CD 89BA 940D 941D
+721D 89FC 5F4F 6204 652B 7383 9DE2 6B14 77E1 9FA3
+8C9C 8EA9 9481
+519B 541B 5747 6C6E 59F0 8880 8ECD 94A7 8399 8690
+687E 76B2 83CC 921E 7885 76B8 76B9 89A0 9281 929E
+9CAA 9E87 9355 9BB6 9E8F 9E95
+5441 4FCA 90E1 9656 57C8 5CFB 6343 6D5A 9982 9A8F
+6659 710C 73FA 68DE 756F 7AE3 5101 7B98 7B9F 8720
+5BEF 61CF 9915 71C7 6FEC 99FF 9D54 9D58 6508 651F
+FDD0-004B
+5494 5496 5580 8849 64D6
+5361 4F67 80E9 9272
+57B0 88C3
+5F00 5952 63E9 950E 958B 9426
+51EF 5240 57B2 607A 95FF 94E0 51F1 5274 5605 6168
+8488 584F 5D66 6137 6977 8F06 669F 9534 9347 93A7
+95D3 98BD
+5FFE 708C 708F 6B2C 70D7 52D3 6112 613E 938E
+520A 681E 52D8 9F9B 582A 5D41 6221 9F95
+519A 574E 4F83 780D 83B0 5058 57F3 60C2 6B3F 586A
+6B41 69DB 8F21 6ABB 9851 7AF7 8F57
+770B 884E 5D01 5888 77B0 78E1 95DE 77D9
+5FFC 95F6 780A 7C87 5EB7 5ADD 5D7B 6177 6F2E 69FA
+7A45 7CE0 8EBF 93EE 9C47
+625B 6443
+4EA2 4F09 531F 909F 56E5 6297 72BA 7095 94AA 9227
+958C
+5C3B 9ADB
+4E02 6537 8003 62F7 6D18 6832 70E4 7A01 9C93 71FA
+94D0 7292 92AC 9760 9BB3 9BCC
+533C 82DB 67EF 7241 73C2 79D1 80E2 8F72 75B4 7822
+8DB7 68F5 842A 8EFB 988F 55D1 6415 7290 7A1E 7AA0
+9233 69BC 8596 9897 6A16 778C 78D5 874C 9312 9198
+9846 9AC1 791A
+58F3 63E2 6BBC 7FD7
+53EF 5777 5CA2 70A3 6E07 5D51 6564 6E34 5DB1 790D
+514B 523B 524B 52C0 52CA 5BA2 606A 5A14 5C05 8BFE
+5801 6C2A 9A92 7F02 6119 6E98 951E 78A6 7DD9 8250
+8AB2 790A 9A0D
+5D59
+808E 80AF 80BB 57A6 6073 5543 8C64 9F88 58BE 9339
+61C7 9F66
+63AF 88C9 8903
+52A5 962C 542D 5751 5994 6333 7841 727C 785C 94FF
+787B 647C 8A99 92B5 935E 93D7
+7A7A 5025 57EA 5D06 60BE 6DB3 787F 7B9C 9313 9D7C
+5B54 6050
+63A7 979A
+8EBB
+62A0 82A4 770D 527E 5F44 6473 7798
+53E3 52B6
+53E9 6263 6542 51A6 5BBC 5BC7 91E6 7A9B 7B58 6EF1
+8532 853B 7789 7C06 9DC7
+625D 5233 77FB 90C0 67AF 80D0 54ED 684D 5800 5D2B
+5710 8DCD 7A9F 9AB7 9BAC
+72DC 82E6
+5E93 4FC8 7ED4 5EAB 79D9 8DB6 7105 88B4 55BE 7D5D
+88E4 7614 9177 5EE4 8932 56B3
+5938 59F1 8A87
+4F89 54B5 57AE 9299
+630E 80EF 8DE8 9ABB
+823F
+84AF 64D3
+5DDC 51F7 5757 5FEB 4FA9 90D0 54D9 72EF 810D 584A
+7B77 9C99 5108 58A4 9136 5672 5EE5 736A 81BE 65DD
+7CE9 9C60
+5726
+5BBD 5BDB 5BEC 81D7 9ACB 9AD6
+6B35 6B3E 6B40 7ABE
+7ABD 9467
+5321 52BB 8BD3 90BC 5329 54D0 6047 6D2D 6846 7844
+7B50 8A86 8EED
+5FF9 6282 72C2 8BF3 8ED6 8A91 9D5F
+593C 5123 61ED
+535D 909D 5739 7EA9 51B5 65F7 5CB2 6CC1 77FF 663F
+8D36 7716 7736 7D56 8CBA 8EE6 9271 913A 58D9 9ECB
+61EC 66E0 720C 8E80 77CC 7926 7A6C 7E8A 945B
+783F 7D4B 7B7A
+4E8F 5232 5CBF 609D 76D4 7AA5 8067 7ABA 8667 985D
+95DA 5DCB 862C
+594E 6646 9035 9108 9697 9804 9997 55B9 63C6 8475
+9A99 6223 668C 694F 6951 9B41 777D 8770 982F 6AC6
+85C8 9368 9377 9A24 5914 8637 5DD9 8641 72AA 8EA8
+7143 8DEC 980D 8E5E
+5C2F 532E 6B33 559F 5ABF 6126 6127 6E83 8143 8489
+9988 7786 5633 5B07 6192 6F70 7BD1 8069 806D 8562
+6A3B 8B09 993D 7C23 8075 7C44 9400 994B 944E
+5764 6606 5803 5A6B 5D10 5D11 665C 7311 83CE 88C8
+711C 7428 9AE0 88E9 8C87 951F 9AE1 9E4D 872B 890C
+9AE8 747B 918C 9315 9CB2 9A09 9BE4 9D7E 9DA4
+6083 6346 9603 58F8 68B1 7975 7871 7A07 88CD 58FC
+7A1B 7D91 95AB 95B8 9F6B
+56F0 6D83 774F
+5812 5C21 6F49 71B4
+6269 62E1 62EC 6304 6870 7B48 843F 8440 86DE 9614
+5ED3 9822 9AFA 64F4 6FF6 95CA 979F 61D6 9729 97B9
+9B20
+97D5
+FDD0-004C
+5783 62C9 67C6 7FCB 83C8 641A 908B
+65EF 524C 782C 63E6 78D6
+5587 85DE
+814A 63E7 694B 760C 8721 874B 8FA2 8FA3 8772 81C8
+650B 7209 81D8 9B0E 74CE 9574 9BFB 881F 945E
+5566 6E82 97A1 56B9
+6765 4F86 4FEB 5008 5D03 5F95 6D9E 83B1 90F2 5A61
+5D0D 5EB2 5FA0 68BE 6DF6 730D 840A 9028 68F6 741C
+7B59 94FC 7B82 9338 9A0B 9BE0 9D86 9EB3
+553B 8D49 7750 775E 8D56 8CDA 6FD1 8CF4 983C 9842
+765E 9D63 7028 702C 7C41 85FE 6AF4 7669 8970 7C5F
+5170 5C9A 62E6 680F 5A6A 60CF 5D50 847B 9611 84DD
+8C30 53B1 6F9C 8934 5116 6593 7BEE 61E2 71E3 71F7
+85CD 8955 9567 95CC 74BC 8964 8B4B 5E71 6514 703E
+7046 7C43 7E7F 862D 6595 6B04 7937 8974 56D2 7061
+7C63 6B17 8B95 8E9D 9484 97CA
+89C8 6D68 63FD 7F06 6984 6F24 7F71 9182 58C8 61D2
+89A7 64E5 5B3E 61F6 5B44 89BD 5B4F 652C 7060 56D5
+6B16 9872 7E9C
+70C2 6EE5 71D7 5682 6FEB 7201 721B 74D3 7224 946D
+7CF7
+7226 897D
+5577
+52C6 90CE 90DE 6B34 72FC 9606 5ACF 5ECA 658F 6879
+7405 84C8 6994 746F 7860 7A02 9512 7B64 8246 870B
+8782 8EB4 92C3 93AF 99FA
+6717 6716 70FA 5871 84E2 6A03 8A8F 6724
+57CC 5D00 6D6A 83A8 8497 95AC
+5525 90D2
+635E 6488
+52B3 52B4 7262 7A82 54F0 5520 5D02 6D76 52DE 75E8
+94F9 50D7 562E 5D97 61A5 7646 78F1 7C29 87E7 91AA
+9412 985F 9ADD
+8002 8001 4F6C 54BE 59E5 6045 72EB 8356 6833 94D1
+92A0 6F66 6A51 8F51
+6D9D 70D9 8022 916A 5AEA 61A6 6F87 8EBC 6A6F 802E
+8EC2
+73EF 7853 7CA9 86EF 6725 9BB1
+808B
+4EC2 961E 4E50 53FB 5FC7 6250 6C3B 827B 738F 6CD0
+7AFB 7833 697D 97F7 6A02 7C15 9CD3 9C33
+4E86 9979 990E
+52D2
+96F7 5AD8 7F27 8502 757E 64C2 6A91 7E32 790C 956D
+6AD1 74C3 7FB8 7927 7E8D 7F4D 8632 881D 9433 8F60
+513D 58E8 9458 9741 8646 6B19 7E9D 9F3A
+53BD 8012 8BD4 5792 7D6B 8142 50AB 8A84 6A0F 78CA
+854C 78E5 857E 5121 58D8 7657 85DF 6AD0 7928 7045
+863D 8B84 9478 9E13
+6CEA 6D21 7C7B 6D99 6DDA 7D2F 9179 9287 981B 982A
+9311 6502 98A3 985E 7E87 8631 79B7
+5841 561E 9C69
+5D1A 5844 68F1 695E 7890 7A1C 8F18 8590
+51B7
+5030 580E 6123 7756 8E1C
+5215 675D 5398 5253 79BB 8372 9A8A 60A1 68A8 68A9
+68B8 7281 740D 7C9A 83DE 55B1 68C3 7282 9E42 527A
+6F13 775D 7B63 7F21 8243 84E0 870A 5AE0 5B77 6A06
+7483 76E0 8C8D 7CCE 853E 8935 92EB 9CA1 9ECE 7BF1
+7E2D 7F79 9305 87CD 8B27 91A8 569F 85DC 908C 91D0
+96E2 6584 74C8 93EB 9BEC 9D79 9EE7 56C4 6521 7055
+863A 8821 9A39 5B4B 5EF2 5299 9457 7A72 7C6C 7E9A
+9A6A 9C7A 9E1D
+793C 91CC 4FDA 5CDB 5CE2 5A0C 5CF2 6D6C 9026 7406
+9502 7CB4 88CF 8C4A 92F0 9CA4 5163 6FA7 79AE 9BC9
+87F8 91B4 9CE2 9090 9C67 6B1A
+529B 5386 5389 5C74 7ACB 540F 6738 4E3D 5229 52B1
+5456 575C 6CA5 82C8 4F8B 5CA6 623E 67A5 6CB4 75A0
+82D9 96B6 4FD0 4FEA 680E 75AC 7805 8318 8354 8D72
+8F79 90E6 550E 60A7 6817 681B 6D96 7301 73D5 783A
+783E 79DD 8385 8389 5533 5A6F 7B20 7C92 7C9D 8137
+86B8 86CE 5088 51D3 53A4 68D9 75E2 86E0 8A48 8DDE
+96F3 53AF 585B 6144 642E 6EA7 849A 849E 925D 9CE8
+53B2 66A6 6B74 746E 7D9F 8727 8777 52F5 66C6 6B77
+7BE5 96B7 9D17 5DC1 6FFF 7658 78FF 96B8 9B01 512E
+66DE 6AD4 7204 72A1 79B2 8807 9398 56A6 58E2 650A
+6ADF 701D 74C5 77CB 792A 85F6 9E97 6AEA 720F 74D1
+76AA 76ED 792B 7CF2 8823 5137 7667 7930 882B 9148
+9DC5 9E9C 56C7 6526 89FB 8E92 8F62 6B10
+8B88 8F63 652D 74E5 9742 9C71 9C73 974B
+674E 6803 54E9 5A33 72F8 88E1 6AAA 9BCF
+4FE9 5006
+5941 8FDE 5E18 601C 6D9F 83B2 9023 68BF 8054 88E2
+4EB7 55F9 5EC9 6169 6E93 6F23 84EE 5332 5969 69E4
+7191 899D 5286 5333 5652 5AFE 6190 78CF 806B 8933
+9CA2 6FC2 6FD3 7E3A 7FF4 806E 8595 878A 6AE3 71EB
+806F 81C1 8B30 8E65 938C 9570 7C3E 880A 9B11 942E
+9C31 7C62 7C68
+655B 740F 8138 88E3 6459 7489 8539 5B1A 6582 81C9
+913B 895D 7FB7 861E
+7EC3 70BC 604B 6D70 6B93 50C6 581C 5AA1 6E45 8430
+94FE 695D 7149 7453 6F4B 7DF4 6FB0 932C 6BAE 934A
+93C8 7032 861D 9C0A 6200 7E9E
+8068
+826F 4FCD 51C9 6881 6DBC 690B 8F8C 7CAE 7CB1 589A
+7DA1 8E09 6A11 8F2C 7CE7
+4E21 4E24 5169 5521 5562 639A 813C 88F2 7DC9 873D
+9B49 9B4E
+4EAE 54F4 60A2 8C05 8F86 55A8 667E 6E78 91CF 8F0C
+8AD2 8F1B 9344
+7177 7C17
+64A9 8E7D
+8FBD 7597 804A 50DA 5BE5 5D7A 6180 6F3B 818B 5639
+5AFD 5BEE 5D9A 5D9B 6579 7360 7F2D 907C 66B8 71CE
+7499 81AB 7642 9E69 5C6A 5EEB 7C1D 7E5A 87DF 8C42
+8CFF 8E58 9410 9ACE 85D4 98C9 9DEF
+53FE 948C 91D5 911D 84FC 61AD 77AD 66E2 957D 7212
+5C25 5C26 7093 6599 5C1E 5ED6 6482 7AB7 9563
+720E
+5217 52A3 51BD 52BD 59F4 6312 6D0C 8322 8FFE 54F7
+57D2 57D3 6835 6D56 70C8 6369 730E 811F 86DA 88C2
+716D 7759 8057 8D94 5DE4 98B2 5120 9BA4 9D37 64F8
+7375 72A3 8E90 9B1B 9B23 9C72
+6BDF 54A7 6318 70EE 731F
+62CE
+53B8 90BB 6797 4E34 51A7 77DD 5549 5D0A 6DCB 667D
+7433 7CA6 75F3 7884 7B96 7CBC 9130 96A3 5D99 6F7E
+735C 9074 65B4 66BD 71D0 7498 8F9A 9716 77B5 78F7
+81E8 7E57 7FF7 9E90 8F54 58E3 7036 93FB 9CDE 9A4E
+9C57 9E9F
+83FB 4E83 51DB 51DC 649B 5EE9 5EEA 61CD 61D4 6F9F
+6A81 6AA9 765B 765D
+541D 6061 608B 8D41 711B 8CC3 50EF 853A 6A49 7510
+81A6 95B5 7584 85FA 8E78 8E8F 8E99 8EAA 8F65
+3007 5222 7075 56F9 577D 590C 59C8 5CBA 5F7E 6CE0
+72D1 82D3 6624 670E 67C3 73B2 74F4 51CC 768A 7831
+79E2 7ADB 94C3 9675 9E30 5A48 6395 68C2 6DE9 740C
+7B2D 7D37 7EEB 7F9A 7FCE 8046 8232 83F1 86C9 8851
+797E 8A45 8DC9 8EE8 88EC 9234 959D 96F6 9F84 7DBE
+8506 970A 99D6 6FAA 8576 9302 9B7F 9CAE 9D12 9E77
+71EF 971B 971D 9F62 9143 9BEA 5B41 8626 9F61 6AFA
+91BD 9748 6B1E 7227 9EA2 9F97
+963E 5CAD 888A 9886 9818 5DBA
+4EE4 53E6 5464 70A9
+4F36 84E4 9717 702E
+6E9C 7198 8E53
+5218 6CA0 7544 6D4F 6D41 7559 65C8 7409 7571 786B
+88D7 5AB9 5D67 65D2 84A5 84C5 905B 998F 9A9D 69B4
+7460 98D7 5289 746C 7624 78C2 954F 99E0 9E60 6A4A
+74A2 7581 9560 7645 87C9 99F5 56A0 61F0 700F 85F0
+938F 93A6 9E8D 93D0 98C0 9A2E 98C5 9C21 9DB9 9A51
+67F3 6801 73CB 687A 7EFA 950D 925A 98F9 7DB9 71AE
+7F76 92F6 6A6E 5B3C 7F80
+516D 7542 7FCF 586F 5EC7 6F91 78DF 9E68 9724 993E
+96E1 9402 98C2 9B38 9DDA
+685E
+56D6
+9F99 5C78 5499 6CF7 830F 663D 680A 73D1 80E7 772C
+783B 7ADC 7B3C 804B 9686 6E70 6EDD 5D90 6F0B 856F
+7643 7BED 9F8D 56A8 5DC3 5DC4 7027 7C3C 8622 93E7
+9733 66E8 6727 6AF3 7216 74CF 77D3 7931 7932 8971
+9F92 7C60 807E 882A 882C 8C45 8E98 9468 9747 9A61
+9E17
+9647 5784 5785 62E2 7BE2 5131 96B4 58DF 58E0 650F
+7AC9 9F93
+54E2 6335 6887 5FBF 8D1A
+69DE 7ABF
+779C
+5245 5A04 507B 5A41 6E87 848C 50C2 697C 5ED4 617A
+6F0A 851E 9071 6A13 71A1 8027 877C 802C 825B 87BB
+8B31 8EC1 9AC5 97BB 9ACF
+5D5D 6402 587F 5D81 645F 750A 7BD3 7C0D
+964B 5C5A 6F0F 7618 9542 763A 763B 93E4
+55BD 560D
+565C 64B8
+5362 5E90 82A6 5786 6CF8 7089 680C 80EA 8F73 9E2C
+7388 823B 9885 9C88 9B72 76E7 6ADA 56A7 58DA 5EEC
+650E 7018 7379 74B7 8606 66E5 6AE8 7210 74D0 81DA
+77D1 7C5A 7E91 7F4F 826B 8826 8F64 946A 9871 9AD7
+9C78 9E15 9EF8
+5364 864F 63B3 9E75 7875 9C81 865C 5877 6EF7 84FE
+6A10 9B6F 64C4 6A79 78E0 9565 5695 64FC 7002 6AD3
+6C0C 8263 93C0 826A 942A 9465
+5725 752A 9646 4F93 5774 5F54 5F55 5CCD 52CE 8D42
+8F82 9678 5A3D 6DD5 6DE5 6E0C 7849 83C9 902F 9E7F
+6902 742D 7984 797F 50C7 5279 52E0 76DD 7769 788C
+7A11 8CC2 8DEF 5876 5ED8 645D 6F09 7B93 7CB6 850D
+622E 6A1A 719D 8194 89EE 8DA2 8E1B 8F98 9181 6F5E
+7A4B 8557 9304 9332 9334 7490 7C0F 87B0 7C36 8E57
+8F46 9A04 9E6D 7C2C 93D5 9BE5 9D66 9D71 9E93 93F4
+9732 9A3C 7C59 8642 9DFA
+67A6 822E 9229 6F9B 6C07
+9A74 90D8 95FE 6988 95AD 99BF 6C00 81A2 85D8 9DDC
+9A62
+5415 5442 4FA3 4FB6 6314 635B 634B 65C5 68A0 7963
+7A06 94DD 5C61 7D7D 7F15 5C62 8182 891B 92C1 5C65
+8190 8938 5122 7A5E 7E37 7A6D
+5BFD 578F 5F8B 8651 7387 7EFF 5D42 6C2F 844E 6EE4
+7DA0 7DD1 616E 7BBB 819F 52F4 7E42 6FFE 6AD6 7208
+9462
+7112
+5A08 5B6A 5CE6 631B 683E 9E3E 8114 6EE6 92AE 9D49
+571D 5971 5B4C 5B7F 5DD2 6523 66EB 6B12 7053 7F89
+81E0 571E 7064 864A 947E 7674 7675 9E1E
+5375
+4E71 91E0 4E82
+7567 950A 7A24 5719 92DD 92E2 64FD
+62A1 6384
+4ED1 4F26 56F5 6CA6 7EB6 4F96 8F6E 502B 966F 5707
+5A68 5D18 5D19 60C0 6DEA 83D5 68C6 8140 7DB8 8726
+8E1A 8F2A 9300 9BE9
+57E8 7896 7A10 8023
+8BBA 6EA3 8AD6
+78EE
+7F57 5570 9831 56C9
+7F56 7321 8136 841D 903B 6924 8161 8999 9523 7BA9
+9AA1 9559 87BA 7F85 89B6 93CD 5138 89BC 9A3E 651E
+7380 863F 908F 6B0F 9A58 9E01 7C6E 947C 9960
+5246 502E 84CF 88F8 8EB6 7630 8803 81DD 66EA 7673
+6CFA 5CC8 6D1B 7EDC 8366 9A86 6D1C 73DE 7866 7B3F
+7D61 843D 55E0 645E 6F2F 7296 927B 96D2 99F1 9BA5
+9D3C 9D45 6FFC 7E99
+FDD0-004D
+5463
+5988 5B56 5ABD 5B24 5B37
+9EBB 75F2 8534 7298 87C7
+9A6C 739B 7801 8682 99AC 6EA4 746A 78BC 879E 93B7
+9C22 9DCC
+72B8 6769 7943 9581 9A82 551B 508C 7341 7770 561C
+69AA 79A1 7F75 99E1 7923 9B15
+4E87 5417 55CE 9064 561B 5AF2 87C6
+57CB 85B6 973E
+4E70 836C 8CB7 562A 8552 9DF6
+52A2 8FC8 4F45 58F2 9EA6 5356 8109 8108 9EA5 8847
+52F1 8CE3 9081 9721 9722
+5ADA 989F
+59CF 6097 86EE 50C8 8C29 6172 9992 6A20 7792 779E
+9794 8B3E 9945 9CD7 9862 9B17 9B18 9C3B 883B
+5C58 6E80 774C 6EE1 6EFF 87A8 8954 87CE 93CB 77D5
+66FC 9124 5881 5E54 6162 6471 6F2B 734C 7F26 8504
+8513 69FE 71B3 6FB7 9558 7E35 93DD
+8630
+7264
+9099 5402 5FD9 6C52 8292 5C28 6757 6767 6C13 76F2
+607E 7B00 832B 54E4 5A0F 5EAC 6D5D 72F5 727B 786D
+91EF 94D3 75DD 86D6 92E9 99F9
+83BD 83BE 7865 833B 58FE 6F2D 87D2 880E
+732B 8C93
+6BDB 77DB 6786 7266 8305 8306 65C4 7F5E 515E 6E35
+8EDE 9155 5825 951A 5AF9 9AE6 6C02 729B 8765 9AF3
+9328 87CA 9D9C
+5187 536F 5918 4E6E 623C 5CC1 6CD6 6634 94C6 7B37
+84E9
+5183 7683 82BC 5190 8302 5192 67D5 770A 8D38 8004
+88A4 8992 5AA2 5E3D 843A 8CBF 911A 6117 6693 6959
+6BF7 7441 7780 8C8C 912E 8750 61CB
+4E48 9EBC 5692 6FF9 569C 7666
+5445 5746 6C92 6CA1 679A 73AB 82FA 6802 7709 5A12
+8104 8393 6885 73FB 8122 90FF 5833 5A92 5D4B 6E44
+6E48 7338 7742 847F 6963 6973 7164 7442 7996 587A
+69D1 9176 9545 9E5B 92C2 9709 7A48 5FBE 9387 77C0
+6517 862A 9DA5 9EF4
+6BCE 6BCF 51C2 7F8E 6334 6D7C 5A84 5D44 6E3C 5ABA
+815C 9541 5B0D 71D8 9382 9EE3
+59B9 62BA 6CAC 65C0 6627 7959 8882 771B 5A9A 5BD0
+75D7 8DCA 9B3D 715D 7778 97CE 9B45 7BC3 875E
+8EBE
+95E8 626A 73A7 9494 9580 9585 636B 83DB 748A 9346
+4EB9 864B
+95F7 7116 60B6 66AA 71DC 61D1 61E3
+4EEC 5011 691A
+753F 867B 51A1 8394 840C 8420 76DF 8499 750D 511A
+6A57 77A2 8544 8771 9133 9138 5E6A 61DE 6FDB 66DA
+6726 6AAC 6C0B 77C7 791E 9BCD 9E72 8268 8609 77D2
+973F 9740 995B 986D 9F06 9E0F
+52D0 731B 74FE 9530 824B 8722 61DC 7374 9333 61F5
+8813 9BED
+5B5F 68A6 5922 6E95 5923 9725
+63B9 64DD
+54AA 772F 7787
+519E 5F25 7F59 7962 8FF7 7315 8C1C 84BE 8A78 8B0E
+919A 5F4C 64DF 7CDC 7E3B 9E8A 9E8B 79B0 9761 7030
+737C 9E9B 957E 6202 6520 74D5 863C 7222 91BE 91BF
+9E0D 91C4
+7C73 8288 4F8E 6CB5 7F8B 5F2D 6D23 6549 772B 8112
+6E33 845E 851D 92A4 6FD4 5B4A 7056
+5196 7CF8 6C68 6C95 5B93 6CCC 89C5 5CDA 7955 5BBB
+79D8 5BC6 6DE7 6DFF 8993 8994 5E42 8C27 5853 5E4E
+899B 5627 6993 6EF5 6F1E 7190 8524 871C 9F0F 51AA
+6A12 5E66 6FD7 85CC 8B10 6AC1 7C1A 7F83
+5B80 8287 7720 5A42 7EF5 5A94 68C9 7DBF 7DDC 81F1
+8752 5B35 6AB0 6ACB 77C8 77CA 77CF
+4E0F 6C45 514D 6C94 9EFE 52C9 7704 5A29 506D 5195
+52D4 6E11 5595 6110 6E4E 7F05 8442 7D7B 817C 9EFD
+7DEC 9EAB 6FA0 9BB8
+9763 9762 7CC6 9EAA 9EBA 9EB5
+55B5
+82D7 5A8C 63CF 7784 9E4B 7DE2 9D93 9C59
+676A 7707 79D2 6DFC 6E3A 7F08 7BCE 7DF2 85D0 9088
+5999 5E99 7385 7AD7 5EBF 5EDF
+4E5C 5400 54A9 54F6 5B6D
+706D 70D5 8995 6423 6EC5 8511 858E 9D13 5E6D 61F1
+7BFE 6AD7 881B 884A 9456 9C74
+6C11 59C4 5CB7 5FDE 600B 65FB 65FC 82E0 73C9 76FF
+7807 7F60 5D0F 636A 7418 7F17 656F 7449 75FB 7888
+9231 7DCD 7DE1 9309 9D16 9372
+76BF 51BA 5221 95F5 62BF 6CEF 52C4 6543 95FD 60AF
+654F 7B22 60FD 6E63 9594 610D 668B 95A9 50F6 615C
+61AB 6F63 7C22 9CD8 8820 9C35
+578A 7B3D
+540D 660E 9E23 6D3A 7700 8317 51A5 6719 7733 94ED
+910D 5AC7 6E9F 733D 84C2 669D 69A0 9298 9CF4 7791
+879F 89AD
+4F72 59F3 51D5 614F 9169
+547D 6927 8A7A
+63B5
+8C2C 8B2C
+6478
+8C1F 5AEB 998D 6479 6A21 819C 9EBD 6469 6A45 78E8
+7CE2 8B28 56A4 64F5 9943 56A9 56B0 8611 9ACD 9B54
+5298 995D
+62B9 61E1
+672B 52B0 573D 59BA 5E13 6B7E 6B7F 6B81 6CAB 8309
+964C 5E1E 6629 67BA 551C 768C 771C 773F 781E 79E3
+8388 83AB 773D 7C96 7D48 6E50 86E8 8C83 55FC 587B
+5BDE 6F20 734F 84E6 8C8A 66AF 9286 977A 5AFC 9ED9
+763C 7790 7799 9546 9B69 58A8 9ED8 700E 8B29 8C98
+85E6 87D4 93CC 7205 9A40 7933 7E86 8031
+5E85 603D 5C1B 9B79 9EBF
+54DE
+725F 4F94 52BA 6048 6D20 7738 8C0B 86D1 7F2A 8E0E
+927E 8B00 77B4 7E46 936A 9D3E 9EB0
+67D0
+6BEA 6C01 58B2
+6BCD 4EA9 7261 5776 59C6 5CD4 7273 7546 7552 80DF
+755D 755E 782A 756E 9267 8E07
+6728 4EEB 6730 76EE 6C90 72C7 7091 7267 82DC 6BE3
+83AF 869E 94BC 52DF 96EE 5893 5E55 5E59 6154 6958
+7766 926C 6155 66AE 8252 9702 7A46 7E38 97AA
+51E9 62C7
+FDD0-004E
+55EF
+62CF 62FF 6310 55F1 954E 93BF
+4E78 54EA 96EB
+90A3 59A0 7EB3 80AD 5A1C 8872 94A0 7D0D 88A6 637A
+7B1D 8C7D 8EDC 8C80 9209 84B3 9779 9B76
+8149 718B 6468 5B7B
+4E43 5976 827F 6C16 7593 59B3 5EFC 8FFA 5037 91E2
+5B2D
+5948 67F0 800F 8010 8418 6E3F 9F10 8926 879A 933C
+56E1
+7537 678F 67AC 4FBD 5357 67DF 5A1A 7558 83AE 96BE
+5583 6694 6960 8AF5 96E3
+8D67 63C7 6E73 8433 8169 877B 6201
+5A7B
+9056
+56D4
+4E6A 56A2 8B68 56CA 8830 9B1E 9995 6B1C 9962
+64C3 66E9 652E 7062
+513E 9F49
+5B6C
+5476 6013 6320 5CF1 7847 94D9 7331 86F2 8A49 7899
+6493 5DA9 61B9 87EF 5912 8B4A 9403 5DCE
+57B4 607C 60A9 8111 5318 5816 60F1 5AD0 7459 8166
+78AF 7376 737F
+95F9 5A65 6DD6 9599 9B27 81D1
+8133
+7592 8BB7 6290 7732 8A25
+5436 5450 5462
+5A1E 9981 812E 8147 9912 9BBE 9BD8
+5167 5185 6C1D 9317
+6041 5AE9 5AF0
+80FD
+59AE
+5C3C 576D 6029 6CE5 7C7E 502A 5C54 79DC 90F3 94CC
+57FF 5A57 6DE3 730A 86AD 68FF 8DDC 815D 8063 873A
+89EC 8C8E 8F17 9713 9CB5 9BD3 9BE2 9E91 9F6F 81E1
+4F31 4F60 62DF 62B3 72D4 82E8 67C5 65CE 6672 5B74
+922E 999C 5117 511E 96AC 64EC 85BF 6AB7 807B
+5C70 6C3C 4F32 8FE1 6635 80D2 9006 533F 7724 5804
+60C4 5ADF 6135 6EBA 7768 817B 66B1 7E0C 8ABD 81A9
+5B3A
+88AE
+62C8 852B
+5E74 79CA 79E5 9C87 9B8E 9CB6 9ECF 9BF0
+6D8A 637B 6DF0 713E 8DC8 8F87 8F97 649A 64B5 78BE
+8F26 7C10 8E4D 6506 8E68 8E8E
+5344 5EFF 5FF5 59E9 5538 57DD 824C 9F30
+54D6 9D47
+5B22 5B43
+917F 91B8 91C0
+5A18
+9E1F 8311 8885 9CE5 5ACB 88CA 8526 6A22 5B1D 892D
+5B32
+5C3F 8132
+634F 63D1
+82F6
+5E07 573C 67BF 9667 6D85 75C6 8042 81EC 556E 60D7
+83CD 9689 55A6 655C 6E7C 55EB 5D72 8E02 565B 6470
+69F7 8E17 954A 954D 5DAD 7BDE 81F2 931C 989E 8E51
+5699 8076 93B3 95D1 5B7C 5B7D 6AF1 7C4B 8616 56C1
+9F67 7CF1 7CF5 8825 9448 56D3 8B98 8EA1 9477 9873
+9480
+5DD5
+56DC 60A8
+62F0
+810C
+5B81 549B 62E7 72DE 82E7 67E0 804D 5BCD 5BD5 752F
+5BD7 5BDC 5BE7 511C 51DD 5680 5B23 64F0 7370 85B4
+6AB8 8079 944F 9B21 9E0B
+6A63 77C3
+4F5E 4FAB 6CDE 6FD8
+6F9D
+599E
+725B 6C7C
+5FF8 626D 72C3 7EBD 7084 94AE 7D10 83A5 9215 9775
+8842
+725C
+519C 4FAC 54DD 6D53 8113 79FE 8FB2 5102 8FB3 5665
+6FC3 857D 6A82 71F6 79AF 81BF 7A60 895B 91B2 6B01
+7E77
+5F04 630A 7651 9F48
+7FBA
+5542
+69C8 8028 7373 6ABD 9392 941E 8B73
+5974 5B65 9A7D 7B2F 99D1
+4F2E 52AA 5F29 782E 80EC
+6012 5089 6419
+5973 9495 7C79 91F9
+6C91 6067 6712 8844
+597B
+6E1C 6696 7156 7157 992A
+759F 8650 7878 7627
+9EC1
+90CD 632A 689B 50A9 513A
+6A60
+8BFA 558F 63BF 903D 611E 6426 9518 643B 6992 7A2C
+8AFE 8E43 7CD1 61E6 61E7 7CE5 7A64 7CEF
+FDD0-004F
+5594 5662
+54E6
+7B7D
+8BB4 6CA4 6B27 6BB4 74EF 9E25 5878 6F1A 6B50 6BC6
+71B0 750C 9D0E 6AD9 8B33 93C2 9DD7
+8192 9F75
+5418 5455 5076 8162 5614 8026 8545 85D5
+6004 616A
+85F2
+FDD0-0050
+5991 7685 8DB4 8225 556A 8469
+6777 722C 63B1 7436 7B62 6F56
+5E0A 5E15 6015 8899
+62CD
+4FF3 5F98 6392 7305 68D1 724C 8F2B 7C30 7C32 72A4
+5EF9
+54CC 6D3E 6E43 848E 9383
+7705 7819 7568 6F58 6500
+723F 6D00 76D8 8DD8 5ABB 5E4B 84B0 642B 69C3 76E4
+78D0 7E0F 78FB 8E52 700A 87E0 8E63 939C 97B6
+51B8 5224 6C9C 62DA 6CEE 708D 53DB 7249 76FC 7554
+8041 88A2 8A4A 6EBF 9816 92EC 897B 947B
+9D65
+4E53 6C97 80EE 96F1 6EC2 8196 9736
+5390 5E9E 5396 9004 65C1 823D 5ACE 5FAC 8783 9CD1
+9F8E 9F90
+55D9 802A 89AB
+7090 80A8 80D6
+629B 62CB 812C
+5228 5486 5789 5E96 72CD 70B0 722E 888D 530F 8EF3
+9784 9E83 9E85
+8DD1
+5945 6CE1 70AE 75B1 76B0 7832 9EAD 791F 792E
+8422 891C
+5478 600C 80A7 67F8 80DA 8843 9185
+962B 966A 57F9 6BF0 8D54 952B 88F4 88F5 8CE0 99CD
+4FD6
+4F02 6C9B 4F69 5E14 59F5 65BE 65C6 6D7F 73EE 914D
+7B29 8F94 99B7 5D8F 9708 8F61
+84DC
+55B7 5674 6B55
+74EB 76C6 6E53 8450
+5460 7FF8
+55AF
+5309 6026 62A8 6072 7830 6888 70F9 7851 8EEF 959B
+6F30 562D 6F8E 78DE
+8283 670B 6337 7AFC 5017 8391 580B 5F38 5F6D 68DA
+6916 5873 787C 7A1D 84EC 9E4F 69F0 6A25 71A2 6189
+8F23 7BE3 81A8 930B 97F8 9AFC 87DA 87DB 9B05 7E84
+97FC 9D6C 9A2F 9B14 945D
+6367 6DCE 768F 527B
+63BD 692A 78B0 8E2B
+7BF7
+4E15 4F13 4F3E 6279 7EB0 90B3 576F 62AB 62B7 708B
+72C9 7812 6082 79DB 79E0 7D15 94CD 65C7 7FCD 801A
+8C7E 9208 921A 9239 925F 9294 5288 78C7 99D3 9AEC
+567C 930D 9B7E 9B8D 61B5 7914 7915 9739
+76AE 9630 8298 5CAF 6787 6BDE 72D3 80B6 6BD7 6BD8
+75B2 868D 90EB 9674 5564 57E4 5D25 86BD 86BE 8C7C
+7137 7435 813E 8157 9C8F 7F74 818D 8731 9B6E 58C0
+7BFA 87B7 8C94 9D67 7F86 6707 9F19
+5339 5E80 758B 4EF3 572E 82C9 8134 75DE 92A2 8AC0
+9D04 64D7 567D 7656 56AD
+5C41 6DE0 6E12 63CA 91FD 5AB2 5AD3 7765 8F9F 6F4E
+7A2B 50FB 6FBC 568A 7513 7588 8B6C 95E2 9DFF 9E0A
+698C
+56E8 504F 5AA5 728F 7BC7 7FE9 9342 9DA3
+9A88 80FC 8141 6944 6969 8CC6 8DF0 8ADA 9ABF 8E41
+99E2 9A08
+8991 8C1D 8CB5 8ADE
+7247 9A97 9A17 9A19
+9B78
+527D 6153 7F25 98D8 65DA 7FF2 87B5 72A5 98C3 98C4
+9B52
+5AD6 74E2 7AC2 85B8 95DD
+6B8D 5F6F 779F 7BFB 7E39 91A5 76AB 9860
+7968 50C4 52E1 560C 5FB1 6F02
+6C15 6487 6486 66BC 77A5
+4E3F 82E4 9405
+5AF3
+59D8 62FC 7917 7A66 99AA 9A5E
+73AD 8D2B 5A26 8CA7 7415 5AD4 9891 983B 5B2A 7371
+85B2 56AC 77C9 8819 98A6 9870
+54C1 6980
+725D 6C56 8058
+4E52 7539 4FDC 5A09 6D84 782F 8060 8275 7AEE 9829
+5E73 8BC4 51ED 546F 576A 6CD9 82F9 90F1 5C4F 5E21
+67B0 6D34 73B6 80D3 8353 74F6 5C5B 5E32 6DDC 840D
+86B2 5E48 7129 7501 7F3E 84F1 86E2 8A55 8EFF 9C86
+51F4 617F 7BB3 8F27 6191 9B83 6A98 7C08 860B
+5CBC 5840
+948B 5761 5CA5 6CCA 9887 6E8C 9255 9817 93FA
+5A46 5619 8522 9131 76A4 8B08 6AC7
+53F5 5C00 94B7 7B38 99CA
+5CB6 7087 8FEB 6540 6622 6D26 73C0 70DE 7834 7836
+91D9 7C95 84AA 9B44 9197
+6CFC 6872 6F51
+5256 5A1D
+6294 6299 634A 638A 88D2 7B81 9307
+5485 54E3 5A44 7283 5ECD
+4EC6 6534 6251 9660 5657 64B2 6F7D 64C8 9BC6
+530D 8386 812F 83E9 83D0 8461 84B1 84B2 50D5 917A
+58A3 735B 749E 6FEE 77A8 7A59 9564 8965 7E80 93F7
+5724 6734 5703 6D66 70F3 666E 6EA5 8C31 8AE9 6A38
+6C06 6A8F 9568 8B5C 8E7C 9420
+94FA 8216 8217 92EA 7011 66DD
+5DEC 5DED 99C7 8D0C
+FDD0-0051
+4E03 8FC9 6C8F 59BB 67D2 501B 51C4 6816 6864 90EA
+5A38 60BD 687C 6DD2 840B 6532 671F 68F2 6B3A 86E3
+50DB 5601 617D 69BF 6F06 7DC0 617C 69ED 8AC6 8AFF
+970B 8E4A 9B4C 93DA 9D88
+4E93 7941 9F50 573B 5C90 5C93 5FEF 82AA 4E9D 5176
+5947 6589 6B67 7541 7947 7948 80B5 4FDF 75A7 7AD2
+5258 658A 65C2 8006 8110 8691 8694 869A 9880 57FC
+5D0E 5E3A 6391 6DC7 7309 7566 8401 8415 8DC2 8EDD
+91EE 9A90 9A91 68CA 68CB 7426 742A 797A 86F4 612D
+7881 7895 951C 980E 9B3F 65D7 7CB8 7DA5 7DA6 7DA8
+871D 871E 9F4A 7482 79A5 8572 8E11 9321 9CAF 61E0
+6FDD 85C4 6AB1 6AC0 81CD 9A0E 9A0F 9CCD 8604 9BD5
+9D78 9D80 9E92 7E83 8269 8810 9B10 9C2D 7382 9EA1
+4E5E 9094 4F01 5C7A 5C82 8291 542F 5447 675E 7398
+76C0 5518 8C48 8D77 5553 5554 5A4D 555F 7EEE 6675
+68E8 7DAE 7DBA 8AEC 95D9
+6C14 8BAB 5FD4 6C17 6C54 8FC4 5F03 6C7D 77F5 829E
+546E 6CE3 7081 76F5 54A0 5951 780C 6814 6C23 8A16
+552D 6B2B 5921 68C4 6E46 6E47 847A 789B 6456 66A3
+7508 78B6 5650 6187 5668 61A9 78DC 78E7 78E9 7F4A
+87FF 9F1C
+7F3C 621A 6E0F 8904 7DD5 87A7 7C2F 7C31 7C4F
+6390 845C
+62E4
+8DD2 9160
+5736 51BE 5E22 6070 6D3D 6B8E 7848 6118 9AC2
+9790
+5343 4EDF 9621 5731 5732 5977 6266 6C58 828A 8FC1
+4F65 5C8D 6744 6C67 74E9 833E 6B26 81E4 948E 62EA
+7275 7C81 515B 60AD 8688 8C38 94C5 5A5C 5B6F 727D
+91FA 6394 8C26 9206 96C3 50C9 6106 7B7E 925B 9A9E
+9E50 6173 6434 6481 7B9E 8AD0 9077 8930 8B19 9845
+6AB6 6510 6511 6ACF 7C3D 9D6E 5B45 6513 9A2B 9B1D
+9B1C 7C64 97C6
+4EF1 5C92 5FF4 6272 62D1 524D 94A4 6B6C 8654 94B1
+94B3 63AE 63F5 8EE1 5A8A 9210 976C 9257 5898 69A9
+7B9D 92AD 6F5B 6F5C 7FAC 8541 6A6C 9322 9ED4 9EDA
+9A1D 6FF3 9A1A 704A 9C2C
+51F5 6D45 80B7 6DFA 8125 55DB 5D70 9063 69CF 8181
+8738 8C34 7F31 7E7E 8B74
+6B20 520B 82A1 4FD4 831C 5029 6093 5811 5094 5D4C
+68C8 6920 614A 7698 84A8 5879 6B49 7DAA 8533 5119
+69E7 7BCF 8F24 7BDF 58CD 7E34 9C1C
+7ACF 9386 93F2 7C56 9453
+545B 7F8C 6215 6217 65A8 67AA 73B1 7F97 7310 8DC4
+690C 6EAC 8154 55C6 8723 9516 5D88 6227 69CD 7244
+7472 7FAB 9535 7BEC 9306 8B12 8E4C 956A 8E61 9397
+93D8
+4E2C 5F37 5F3A 5899 5AF1 8537 6A2F 6F12 8503 58BB
+5B19 5EE7 8594 6AA3 7246 8262 8620
+62A2 7F9F 6436 7FA5 588F 7E48 8941 7E66 93F9
+709D 5534 7197 7FBB
+55F4 7347
+6084 7857 90FB 5D6A 8DF7 9121 9125 5281 6572 6BC3
+8E0D 9539 589D 981D 9AB9 58BD 5E67 6A47 71C6 7F32
+78FD 936B 936C 7E51 8DAC 8E7A 9430
+4E54 4FA8 834D 835E 6865 785A 83EC 55AC 50D1 8C2F
+563A 5AF6 6194 854E 9792 6A35 6A4B 7644 77A7 7904
+85EE 8DAB 9408 97BD 9866
+5DE7 91E5 6100 9ADC
+4FCF 8BEE 9657 5CED 5E29 7A8D 6BBB 7FD8 8A9A 9ADA
+50FA 64AC 64BD 9798 97D2 7AC5 7FF9 8B59 8E88
+69D7 729E
+767F 807A
+4E14
+5207 59BE 602F 90C4 5327 7A83 608F 6308 6D2F 60EC
+6DC1 7B21 611C 86EA 6705 7BA7 7DC1 9532 7BCB 8E25
+7A55 85D2 9365 9BDC 9411 7ACA
+82C6 503F 5AAB 7C61
+4EB2 4FB5 94A6 887E 9A8E 5A87 5D5A 6B3D 7D85 8A9B
+5D94 89AA 9849 99F8 9BBC 5BF4
+5E88 82A9 82B9 57C1 73E1 79E6 8039 83E6 8699 6366
+83F3 7434 7439 79BD 9219 96C2 52E4 55EA 5AC0 6EB1
+9772 616C 5659 64D2 65B3 9CF9 61C4 6A8E 6FBF 763D
+8793 61C3 8804 9B35 9D6D
+5745 6611 7B09 68AB 8D7E 5BD1 9513 5BDD 5BE2 92DF
+87BC
+5422 5423 628B 6C81 551A 83E3 63FF 6407 64B3 7019
+85FD
+72C5 9751 9752 6C22 8F7B 503E 537F 90EC 570A 57E5
+5BC8 6C2B 6DF8 6E05 50BE 873B 8F15 9CAD 944B
+591D 7520 5260 52CD 60C5 6B91 6674 68FE 6C30 845D
+6692 64CF 6A08 64CE 6AA0 9EE5
+82D8 9877 8BF7 5EBC 9803 5ECE 6F00 8ACB 6ABE
+5E86 51CA 6385 6BB8 7883 7B90 9758 6176 78D8 78EC
+7F44 8B26
+7858 6AE6
+828E 5314
+536D 909B 5B86 7A77 7A79 8315 684F 7B3B 7B47 8D79
+60F8 712A 712D 743C 823C 86E9 86EC 7162 7758 8DEB
+928E 778F 7AAE 511D 618C 6A69 749A 85D1 74CA 7AC6
+85ED 74D7
+718D
+4E18 4E20 90B1 5775 6058 79CB 79CC 86AF 5A9D 8429
+6978 84F2 9E59 7BCD 7DE7 8775 7A50 8DA5 9CC5 87D7
+97A6 97A7 9C0C 9C0D 9D96 8824 9F9D
+53F4 56DA 624F 72B0 738C 6C53 808D 6C42 866C 6CC5
+866F 4FC5 89D3 8A04 8A05 914B 91D3 5512 6D57 7D0C
+838D 900E 9011 91DA 6882 6B8F 6BEC 7403 8D47 5D37
+5DEF 6E1E 6E6D 76B3 76DA 9052 716A 7D7F 86F7 88D8
+5DF0 89E9 8CD5 7486 8764 92B6 9194 9B82 9F3D 9BC4
+9C3D
+641D 7CD7
+91FB 8612
+533A 66F2 4F39 4F49 5324 5C96 8BCE 9639 9A71 5765
+5C48 5CA8 5CB4 62BE 6D40 795B 80E0 88AA 5340 7D36
+86C6 8EAF 7B41 7CAC 86D0 8A58 8D8B 5D87 6188 99C6
+657A 8AB3 957C 99C8 9EB9 9AF7 9B7C 8DA8 9EAF 89B0
+8EC0 9EB4 9EE2 89BB 9A45 9C38 9C4B
+4F62 52AC 65AA 6710 80CA 83C3 9E32 6DED 6E20 7D47
+7FD1 844B 8EE5 8556 7496 78F2 87B6 9D1D 74A9 87DD
+77BF 9F29 8627 5FC2 7048 6235 6B0B 6C0D 7C67 81DE
+766F 8837 8862 8EA3 883C 947A 9E1C
+53D6 7AD8 5A36 8A53 7AEC 877A 9F8B 9F72
+53BA 53BB 521E 547F 551F 801D 9612 89D1 8DA3 95B4
+9EAE 95C3 89B7 9F01
+8FF2 8850
+5CD1 5F2E 606E 609B 5708 570F 68EC 99E9 9409
+5168 6743 4F7A 8BE0 59FE 6CC9 6D24 8343 62F3 7277
+8F81 5573 57E2 5A58 60D3 75CA 7842 94E8 6E76 7288
+7B4C 7D5F 8472 643C 7454 89E0 8A6E 8DE7 8F07 8737
+9293 6A29 8E21 7E13 919B 9CC8 9B08 9A21 5B49 5DCF
+9C01 6B0A 9F64 8838 98A7 9874
+72AC 6C71 754E 70C7 7EFB 7DA3 8647
+529D 5238 7276 52E7 97CF 52F8
+72AD 6926 697E 95CE
+7F3A 849B 9619
+7638
+5374 537B 57C6 5D05 5BC9 60AB 7437 96C0 785E 786E
+9615 5859 6409 76B5 788F 6128 69B7 58A7 6164 78BA
+78BB 8D9E 71E9 95CB 7910 95D5 704D 792D
+9E4A 9D72
+590B 56F7 5CEE 9021
+5BAD 5E2C 88D9 7FA3 7FA4 88E0
+FDD0-0052
+5465 80B0 887B 8887 86A6 88A1 86BA 7136 9AE5 562B
+9AEF 71C3 7E4E
+5184 5189 59CC 82D2 67D3 73C3 5AA3 6A6A
+8485
+7A63 5134 52F7 703C 737D 8618 79B3 74E4 7A70 8E9F
+9B24
+58CC 56B7 58E4 6518 7219 7E95
+8BA9 61F9 8B72 8B93
+5A06 835B 9976 6861 5B08 8558 6A48 8953 9952
+6270 96A2 64FE
+7ED5 9076 7E5E
+60F9
+70ED 71B1
+4EBA 4EBB 4EC1 58EC 5FC8 6732 5FCE 79C2 82A2 9213
+9B5C 928B 9D40
+5FCD 834F 6820 6823 8375 79F9 68EF 7A14
+5203 5204 8BA4 4EDE 4EED 8BB1 4EFB 5C7B 5C83 6268
+7EAB 598A 6752 7263 7EB4 8095 8F6B 97E7 996A 59D9
+794D 7D09 887D 7D1D 8A12 8ED4 6895 88B5 8EE0 7D4D
+814D 845A 976D 9771 97CC 98EA 8A8D 9901
+7D9B 8EB5
+6254
+4ECD 8FB8 793D 967E
+82BF
+65E5 9A72 56F8 91F0 9224 99B9
+8338
+620E 809C 6804 72E8 7ED2 8319 8363 5BB9 6BE7 70FF
+5AB6 5D58 6411 7D68 7FA2 5AC6 5D64 6408 69B5 6EB6
+84C9 6995 69AE 7194 7462 7A41 7E19 877E 8923 9555
+878D 878E 99E5 9AF6 5B2B 5DB8 7203 9394 5DC6 701C
+66E7 8811
+5197 5B82 5748 5087 8EF5 6C04
+9D27
+7A43
+53B9 79B8 67D4 5A83 63C9 6E18 8447 7163 7448 7CC5
+875A 8E42 8F2E 9352 97A3 74C7 9A25 9C07 9D94
+7C88 697A 97D6
+8089 5B8D 816C
+909A 5982 4F9E 5E24 8339 6847 88BD 94F7 6E2A 7B4E
+8498 92A3 8560 8761 5112 9D11 5685 5B2C 5B7A 6FE1
+85B7 9D3D 66D8 71F8 8966 8815 98A5 91B9 986C 9C6C
+6C5D 8097 4E73 8FB1 910F 64E9
+5165 6D33 55D5 5AB7 6EBD 7F1B 84D0 8925 7E1F
+6256 8FBC 6741 9CF0 5DBF
+633C
+5827 648B 58D6
+962E 670A 8F6F 800E 5044 8EDF 5A86 744C 789D 7DDB
+8F2D 74C0 791D
+5A51 6875 7524 7DCC 8564
+854A 854B 6A64 7E60 8602 8603
+6C6D 82AE 6798 868B 9510 745E 8739 777F 92B3 92ED
+53E1 58E1
+77A4
+95F0 6DA6 958F 95A0 6F64 6A4D 81B6
+637C
+53D2 82E5 504C 5F31 9100 6E03 712B 6949 84BB 7BAC
+7BDB 7207 9C19 9C2F 9DB8
+5D76
+FDD0-0053
+4EE8 6331 6332 6492
+6D12 8A2F 9778 6F75 7051 8EA0
+5345 6CE7 98D2 810E 8428 9212 644B 99BA 98AF 85A9
+6AD2 8644
+96A1
+6BE2 6122 63CC 585E 6BF8 816E 567B 9CC3 984B 9C13
+55EE 8D5B 50FF 8CFD 7C3A
+5625
+4E09 5F0E 53C1 6BF5 6BFF 7299 9B16
+4ED0 4F1E 5098 7CC1 7CC2 9993 7CDD 7CE3 7CE4 7E56
+93D2 93FE 9730 994A
+4FD5 5E34 60B7 6563 9590
+58ED 6BF6 5381 6A75
+6852 6851
+55D3 6421 78C9 892C 98A1 939F 9859
+4E27 55AA
+69E1
+63BB 6145 6414 6E9E 9A9A 7F2B 7E45 81CA 9CCB 9A12
+9A37 9C20 9C62
+626B 6383 5AC2
+57FD 7619 6C09 77C2 9ADE
+87A6
+95AA
+8272 6D13 681C 6DA9 556C 94EF 96ED 6B6E 7417 55C7
+745F 6B70 92AB 6F81 61CE 64CC 6FC7 7637 7A51 6F80
+74B1 7012 7A61 7E6C 8F56 93FC 8B45 98CB
+6E0B 6FCF 7A6F
+68EE 692E 69EE 8942
+50E7 9B19
+6740 6C99 7EB1 4E77 5239 524E 7802 5526 6BBA 7300
+7C86 7D17 838E 686C 6BEE 94E9 75E7 7870 715E 8531
+88DF 699D 6A27 9B66 9CA8 93A9 9BCA 9BCB
+50BB 510D
+503D 553C 5551 5565 5E39 8410 53A6 55A2 5EC8 6B43
+7FDC 7B91 7FE3 95AF 970E
+7E4C
+7B5B 917E 7BE9 7C01 7C1B 91C3
+7E7A
+6652 95B7 66EC
+5C71 5F61 9096 5220 522A 6749 829F 59CD 59D7 82EB
+886B 9490 57CF 633B 67F5 72E6 73CA 8222 75C1 8120
+8ED5 7B18 8DDA 527C 6427 5607 5E53 717D 6F78 6F98
+6A86 7E3F 81BB 9BC5 7FB4 7FB6
+95EA 9655 965D 9583 6671 7154 7752 718C 89A2
+8BAA 6C55 759D 5261 6247 8A15 8D78 639E 91E4 5093
+5584 928F 9A9F 50D0 912F 58A0 58A1 6F6C 7F2E 5B17
+64C5 6A3F 6B5A 81B3 78F0 8B06 8D61 7E55 87EE 87FA
+8B71 8D0D 9425 994D 9A38 9CDD 7057 9C53 9C54
+5738 6763 958A 657E
+4F24 6B87 5546 89DE 50B7 5892 616F 6EF3 6F21 850F
+6BA4 71B5 87AA 89F4 8B2A 9B3A
+57A7 6244 664C 8D4F 8CDE 8D18 945C
+4E04 4E0A 5C19 5C1A 6066 7EF1 7DD4 979D
+4EE9 88F3
+5F30 634E 70E7 83A6 68A2 713C 7A0D 65D3 7B72 8244
+86F8 8F0E 71D2 98B5 9AFE 9BB9
+52FA 828D 82D5 67D6 73BF 7AF0 97F6
+5C11
+52AD 5372 90B5 7ECD 54E8 5A0B 8891 7D39 7744 7DA4
+6F72
+8571
+5962 731E 8D4A 756C 7572 8F0B 8CD2 8CD6 6AA8
+820C 4F58 8675 86C7 86E5
+820D 6368
+538D 8BBE 793E 5399 5C04 6D89 6DBB 6E09 8A2D 8D66
+5F3D 6151 6442 6444 6EE0 6174 6475 850E 6B59 8802
+97D8 9A07 61FE 651D 7044 9E9D 6B07
+820E
+7533 5C7E 625F 4F38 8EAB 4F81 547B 59BD 7C76 7EC5
+8BDC 59FA 67DB 6C20 73C5 7A7C 7C78 5A20 5CF7 7521
+7712 7837 8398 6552 6DF1 7D33 515F 68FD 8460 88D1
+8A37 84E1 8A75 7527 8518 71CA 8593 99EA 9CB9 66D1
+9D62 9BF5 9C3A
+4EC0 751A 795E
+90A5 5F1E 5BA1 77E4 54C2 77E7 5BB7 8C02 8C09 5A76
+6E16 8A20 5BE9 8AD7 9823 9B6B 66CB 9825 77AB 5B38
+700B 89BE 8B85
+80BE 4FBA 661A 80C2 6D81 7718 6E17 7973 8124 814E
+613C 614E 6939 7606 7F67 8703 8704 6EF2 92E0 762E
+5814 698A 9C30
+5347 751F 9629 544F 58F0 6598 6607 6CE9 72CC 82FC
+680D 6B85 7272 73C4 965E 9679 7B19 6E66 713A 7525
+924E 8072 9F2A 9D7F
+7EF3 61B4 7E69 8B5D
+7701 771A 5057 6E3B
+5723 80DC 6660 5270 76DB 5269 52DD 8CB9 5D4A 741E
+8056 58AD 69BA 8542 8CF8
+7AD4 66FB 6A73
+5C38 5931 5E08 545E 8671 8BD7 90BF 9E24 5C4D 65BD
+6D49 72EE 5E2B 7D41 91F6 6E64 6E7F 8479 921F 6EAE
+6EBC 7345 8492 84CD 8A69 9247 9248 7461 9CF2 8768
+9CFE 8937 9CBA 6FD5 9366 9BF4 9C24 9DB3 8979
+5341 9963 77F3 8FBB 4E6D 65F6 5B9E 5B9F 65F9 98E0
+59FC 5CD5 70BB 794F 8680 98DF 57D8 6642 83B3 5BD4
+6E5C 9048 5852 6EA1 8494 9250 5BE6 69AF 8755 9CA5
+9F2B 9F2D 9C23
+53F2 77E2 4E68 8C55 4F7F 59CB 9A76 5158 5BA9 5C4E
+7B36 9242 99DB
+58EB 6C0F 793B 4E17 4E16 4ED5 5E02 793A 4F3C 534B
+5F0F 5FD5 4E8A 53D3 623A 4E8B 4F8D 52BF 5469 67F9
+89C6 8BD5 9970 519F 5BA4 6040 6043 62ED 662F 6630
+67BE 67FF 7702 8D33 9002 683B 70D2 770E 7721 8210
+8F7C 901D 94C8 8996 8C49 91C8 5A9E 5D3C 5F11 5FA5
+63D3 8C25 8CB0 91CA 52E2 55DC 5F12 7757 7B6E 89E2
+8A66 8EFE 9230 9243 98FE 8213 8A93 9069 927D 596D
+92B4 9919 991D 566C 5B15 6FA8 8ADF 8AE1 907E 87AB
+8B1A 7C2D 896B 91CB
+4F66 7ACD 8BC6 62FE 5319 5D75 6981 7176 7BD2 9B96
+7C42 8B58 9C18
+53CE 6536
+624B 5B88 57A8 9996 824F
+5BFF 53D7 72E9 517D 552E 6388 6DAD 7EF6 75E9 58FD
+5900 7626 7DAC 7378 93C9
+624C 7363
+4E66 6BB3 5C17 6292 7EBE 53D4 6778 67A2 964E 59DD
+500F 5010 66F8 6B8A 7D13 6393 68B3 6DD1 7102 83FD
+8ED7 9103 758E 758F 8212 6445 6BF9 7D80 8F93 7479
+8DFE 8E08 6A1E 852C 8F38 6A7E 9B9B 5135 6504 9D68
+79EB 5A4C 5B70 8D4E 587E 719F 74B9 8D16
+9F21 5C5E 6691 668F 9ECD 7F72 8700 9F20 6F7B 85A5
+85AF 66D9 7659 85F7 8961 8969 5C6C 9483
+672E 672F 620D 675F 6CAD 8FF0 4FB8 51C1 54B0 6037
+6811 7AD6 8357 6055 6352 5EB6 5EBB 7D49 8481 8853
+9683 5C0C 88CB 6570 7AEA 8167 9265 5885 6F31 6F44
+6578 6F8D 8C4E 6A39 6FD6 9330 93E3 9D90 866A
+702D 7CEC 8834 9C6A 9C70
+5237 5530
+800D
+8A9C
+8870 6454
+7529
+5E05 5E25 87C0 535B
+95E9 62F4 9582 6813
+6DAE 8168
+53CC 971C 96D9 5B40 9AA6 5B47 9A3B 6B06 7935 9DDE
+9E74 826D 9A66 9E18
+723D 587D 6161 6F3A 6A09 7E14
+7040
+93EF
+8C01 813D 8AB0
+6C34
+5E28 6D97 6D9A 7971 7A05 7A0E 88DE 7761 7793
+6C35 6C3A 9596
+542E
+987A 821C 9806 8563 6A53 779A 77AC 9B0A
+8BF4 54FE 8AAA 8AAC
+5981 70C1 6714 94C4 6B36 7855 77DF 6420 84B4 69CA
+7361 78A9 7BBE 9399 720D 9460
+53B6 7E9F 4E1D 53F8 7CF9 79C1 549D 6CC0 601D 8652
+9E36 5AA4 65AF 7D72 7F0C 86F3 6952 7997 9270 98D4
+51D8 53AE 69B9 79A0 7F73 8724 9536 5636 565D 5EDD
+6495 6F8C 78C3 7DE6 856C 92D6 71CD 8784 87D6 87F4
+98B8 9A26 9401 9DE5 9F36 7C6D
+6B7B
+5DF3 4E96 56DB 5BFA 6C5C 4F40 5155 59D2 6CE4 7940
+4FA1 5B60 676B 6CD7 9972 9A77 5A30 67F6 726D 6D0D
+6D98 8082 98E4 7B25 801C 91F2 7AE2 8997 55E3 8086
+8C84 9236 923B 98FC 79A9 99DF 857C 5129 7003
+4FEC 6056 92AF
+5FEA 677E 6780 5A00 67D7 502F 51C7 5D27 5EBA 68A5
+6DDE 83D8 5D69 7879 8719 61BD 6FCD 6AA7 9376 9B06
+6002 609A 8038 7AE6 50B1 612F 6964 5D77 616B 8073
+99F7
+8BBC 5B8B 8BF5 9001 9882 8A1F 980C 8AA6 9938
+67A9 93B9
+635C 910B 55D6 5EC0 5ECB 641C 6EB2 7340 8490 84C3
+998A 6449 98D5 6457 953C 8258 878B 9199 93AA 993F
+98BC 98BE 9A2A
+53DC 53DF 5081 55FE 778D 64DE 85AE 64FB 85EA 6AE2
+7C54
+8184 7636
+55FD
+82CF 7526 9165 7A23 7AA3 7A4C 8607 8613 6AEF 56CC
+4FD7
+738A 5919 6CDD 8083 6D2C 6D91 73DF 7D20 83A4 901F
+5BBF 6880 6B90 7C9B 9A95 5083 7C9F 8C21 55C9 5850
+5851 5ACA 612B 6EAF 6EB8 8085 9061 9E54 50F3 612C
+69A1 8186 850C 89EB 8D9A 906C 619F 6A0E 6A15 6F65
+78BF 92C9 9917 6F5A 7E24 6A5A 749B 7C0C 85D7 8B16
+8E5C 9A4C 9C50 9DEB
+8BC9 8A34 9BC2
+72FB 75E0 9178
+5334
+7958 7B07 7B6D 849C 7B97
+590A 6535 8295 867D 5020 54F8 6D7D 837D 837E 772D
+8470 6ED6 7762 7D8F 71A3 6FC9 9796 96D6
+7EE5 968B 968F 9040 96A8 74CD
+7021 81B8 9AC4 9AD3
+4E97 5C81 7815 795F 8C07 57E3 5D57 9042 6B72 6B73
+716B 775F 788E 96A7 5B18 6FBB 7A42 8AB6 8CE5 6A96
+71E7 74B2 79AD 6A85 7A57 7A5F 7E40 895A 9083 65DE
+7E50 7E78 8B62 9406 9429 97E2
+5B59 72F2 836A 5B6B 98E7 640E 733B 84C0 98F1 69C2
+8575 859E
+635F 7B0B 96BC 7B4D 640D 69AB 7BB0 7C28 93A8 9DBD
+5506 5A11 838F 509E 686B 68AD 7743 55CD 7FA7 84D1
+644D 7F29 8D96 7C11 7C14 7E2E 9AFF 9BBB
+6240 4E7A 5522 7D22 7410 60E2 9501 55E9 669B 6E91
+7463 8928 7485 9388 938D 9396 93BB 93C1
+9024 6EB9 8736
+7411 55E6
+FDD0-0054
+4ED6 5B83 5979 7260 7942 8DBF 94CA 584C 6999 6EBB
+891F 5683 95E7
+8E79
+5854 6E9A 5896 736D 9CCE 737A 9C28
+4EA3 62D3 631E 72E7 95FC 5D09 6DBE 6428 8DF6 905D
+9062 69BB 6BFE 79A2 64BB 6FBE 8ABB 8E0F 6A7D 9314
+6FCC 8E4B 979C 9B99 95D2 97B3 56BA 95E5 8B76 8EA2
+4FA4 549C
+56FC 5B61 80CE
+51AD 53F0 65F2 90B0 576E 62AC 82D4 67B1 70B1 70B2
+83ED 8DC6 9C90 7B88 81FA 98B1 99D8 5113 9B90 5B2F
+64E1 85B9 6AAF 7C49
+592A 5933 5FF2 6C70 6001 80BD 949B 6CF0 8226 915E
+9226 6E99 614B 71E4
+7C8F
+574D 62A9 8D2A 6039 75D1 8211 8CAA 644A 6EE9 762B
+64F9 6524 7058 7671
+575B 6619 5013 8C08 90EF 5A52 60D4 8983 6983 75F0
+952C 8C2D 58B0 58B5 619B 6F6D 8AC7 9188 58C7 66C7
+71C2 931F 9924 6A80 78F9 9843 7F48 85EB 58DC 8B5A
+8C9A 91B0 8B60 7F4E
+5FD0 5766 8892 94BD 83FC 6BEF 926D 55FF 61B3 61BB
+9193 74AE 8962
+53F9 70AD 57EE 63A2 509D 6E60 50CB 5606 78B3 8215
+6B4E 8CE7
+6C64 5763 94F4 6E6F 5621 8025 528F 7FB0 876A 859A
+9557 8E5A 93DC 940B 97BA 9F1E
+9967 5510 5802 508F 557A 68E0 910C 5858 642A 6E8F
+84CE 969A 69B6 6F1F 717B 746D 799F 8185 6A18 78C4
+7CC3 819B 6A56 7BD6 7CD6 8797 8E3C 7CDB 87B3 8D6F
+91A3 9933 9395 9939 95DB 9944 9DB6
+4F16 5E11 5018 5052 6DCC 50A5 8EBA 954B 93B2 513B
+6203 66ED 7223 77D8 9482
+70EB 6465 8D9F 71D9
+5932 5F22 6D9B 7EE6 638F 7D5B 8A5C 5ACD 5E4D 6146
+642F 6ED4 69C4 746B 97EC 98F8 7E1A 7E27 6FE4 8B1F
+8F41 97B1 97DC 9955
+530B 8FEF 54B7 6D2E 9003 6843 9676 5555 68BC 6DD8
+7EF9 8404 7979 88EA 7DAF 872A 9780 9184 9789 92FE
+932D 99E3 6AAE 9940 9A0A 9F17
+8BA8 8A0E
+5957
+5FD1 5FD2 7279 8CA3 86AE 94FD 615D 92F1 87A3 87D8
+71A5 81AF 9F1F
+75BC 75CB 5E50 817E 8A8A 6F1B 6ED5 9086 7E22 99E6
+8B04 512F 85E4 9A30 7C50 9C27 7C58 9A63
+972F
+8645
+5254 68AF 9511 8E22 64FF 9DC8 9DC9
+82D0 5397 8351 7EE8 504D 557C 5D39 60FF 63D0 7A0A
+7F07 7F64 9046 9E48 55C1 7445 7D88 78AE 8906 5FB2
+6F3D 7DF9 855B 876D 92BB 9898 8DA7 8E44 918D 8B15
+8E4F 9357 9CC0 9D3A 984C 9BB7 9D5C 9A20 9BF7 9D97
+9D99 79B5 9DE4
+4F53 632E 8EB0 9AB5 9BA7 8EC6 9AD4
+623B 8FCF 5243 6711 6D1F 501C 608C 6D95 9016 6090
+60D5 63A6 9037 60D6 63E5 66FF 6974 88FC 8905 6B52
+6BA2 9AF0 8599 568F 9B00 5694 74CB 7C4A 8DAF
+5C49 5C5C 7B39 5D5C
+5929 5172 5A56 6DFB 915F 9754 9EC7 975D
+7530 5C47 6CBA 606C 754B 7551 76F7 80CB 7560 751B
+751C 83FE 6E49 5861 586B 6437 923F 9617 7DC2 78CC
+7AB4 74B3 95D0 9DC6 9DCF
+5FDD 6B84 500E 553A 60BF 6DDF 666A 7420 8146 89CD
+75F6 7753 8214 9902 89A5 8CDF 932A 9369 9766
+63AD 777C 821A
+78B5 9D2B
+65EB 4F7B 5EA3 604C 6311 7967 804E
+8280 6761 5CA7 5CB9 8FE2 7952 689D 7B24 8414 84DA
+84E8 8D92 9F86 6A24 8729 92DA 9797 9AEB 9CA6 9BC8
+93A5 9F60 9C37
+5BA8 6640 6713 8101 7A95 8A82 65A2 7AB1 5B25
+773A 7C9C 7D69 899C 8DF3 7CF6
+87A9
+5E16 6017 8D34 841C 8051 8CBC
+94C1 86C8 50E3 9295 92E8 9D29 9421 9435 9A56
+546B 98FB 992E
+5385 5E81 6C40 827C 542C 753A 8013 539B 70C3 686F
+70F4 7D8E 9793 8074 807C 5EF0 807D 5EF3
+9092 5EF7 4EAD 5EAD 839B 505C 5A77 5D49 6E1F 7B73
+8476 8713 695F 69B3 95AE 9706 8064 874F 8AEA 9F2E
+5722 753C 4FB9 5A17 633A 6D8F 6883 70F6 73FD 8121
+8247 988B 8A94 9832
+56F2 70B5 901A 75CC 55F5 84EA
+4EDD 540C 4F5F 5F64 5CC2 5E9D 54C3 5CDD 72EA 833C
+664D 6850 6D75 70D4 783C 8692 772E 79F1 94DC 7AE5
+7CA1 7B69 8A77 8D68 916E 9256 50EE 52ED 9275 9285
+9907 9C96 6F7C 735E 66C8 6723 6A66 6C03 71D1 729D
+81A7 77B3 9BA6
+7EDF 6345 6876 7B52 7D71 7D82 6A0B
+6078 75DB 8855 615F 6185
+5077 5078 5A7E 5AAE 92C0 936E
+4EA0 5934 6295 9AB0 7DF0 982D
+59B5 94AD 7D0F 6568 98F3 9EC8 8623
+900F 7D89
+51F8 5B8A 79BF 79C3 6022 7A81 550B 6D8B 6378 5817
+6E65 75DC 8456 5D80 92F5 9D5A 9F35
+56F3 56FE 51C3 5CF9 5EA9 5F92 6087 6348 837C 9014
+5C60 688C 83DF 63EC 7A0C 5715 5857 5D5E 760F 7B61
+816F 84A4 922F 5716 5717 5EDC 6F73 8DFF 9174 999F
+934E 99FC 9D4C 9D9F 9DCB 9DF5
+571F 5721 5410 948D 91F7
+514E 8FCC 5154 580D 9D75
+6C62 6D82 83B5
+6E4D 732F 7153 8C92
+56E2 56E3 629F 5278 5718 6171 6476 6F19 69EB 7BFF
+6AB2 93C4 7CF0 9DD2 9DFB
+7583
+5F56 6E6A 8916
+63A8 84F7 85EC
+5F1A 9893 96A4 5C35 9839 983A 983D 9B4B 7A68 8608
+8E6A
+4FC0 817F 50D3 8E46 9ABD
+4FBB 9000 5A27 717A 86FB 8715 892A 99FE
+541E 5451 6D92 554D 671C 711E 564B 66BE 9ED7
+5C6F 5749 5FF3 829A 9968 8C58 8C5A 8ED8 98E9 9C80
+9B68 9715 81C0 81CB
+6C3D 757D
+65FD
+4E47 4EDB 8BAC 6258 6261 6C51 9966 6754 4F82 5483
+62D5 62D6 6CB0 6329 635D 838C 88A5 8A17 6DB6 812B
+8131 98E5 9B60 9A5D
+9A6E 4F57 9640 9641 5768 5CAE 6CB1 6CB2 72CF 8FF1
+7823 7824 8889 9E35 7D3D 5836 8DCE 9161 78A2 99B1
+69D6 99C4 99DE 6A50 9B80 9D15 9F27 9A28 9F0D 9A52
+9F09
+5F75 59A5 5EB9 5AA0 692D 6955 5AF7 6A62 9D4E 9B0C
+9C16
+67DD 6BE4 553E 841A 8DC5 6BFB 7BA8 8600 7C5C
+9A7C 99DD
+FDD0-0057
+7A75 52B8 6316 6D3C 5A32 7556 7A8A 5AA7 55D7 86D9
+6432 6E9B 6F25 7AAA 9F03 6528
+5A03
+74E6 4F64 90B7 5493
+889C 8049 55E2 817D 8183 896A 97C8 97E4
+5C72 74F2 54C7
+6B6A 558E 7AF5
+5D34
+5916 591E 9861
+5F2F 525C 5A60 5E35 5846 6E7E 873F 6F6B 8C4C 5F4E
+58EA 7063
+4E38 5213 6C4D 7EA8 8284 5B8C 5C8F 628F 73A9 7D08
+6356 987D 70F7 7413 9811 7FEB
+5B9B 5007 550D 633D 76CC 57E6 5A49 60CB 665A 689A
+7EFE 8118 83C0 8416 6669 667C 6900 742C 7696 7579
+7755 7897 7DA9 7DB0 8F13 8E20 92C4 92D4
+4E07 534D 5350 59A7 5FE8 6365 8115 8CA6 842C 8155
+8F10 6FAB 858D 933D 87C3 8D03 93AB 8D0E
+909C 6764 7B02
+5C23 5C2A 5C2B 6C6A 5C29
+4EA1 4EBE 5166 738B 4EFC 5F7A 83A3 869F
+7F52 7F51 5F80 5F83 7F54 5F8D 60D8 83F5 6680 68E2
+86E7 8F8B 7DB2 8744 8AB7 8F1E 7007 9B4D
+5984 5FD8 8FCB 65FA 76F3 671B 6722
+6789 7139
+5371 5A01 70D3 504E 840E 9036 9687 9688 55B4 5A99
+6104 63CB 63FB 6E28 8468 8473 5FAE 6933 6972 6EA6
+7168 8A74 8732 875B 89A3 8587 71F0 9CC2 5DCD 9C03
+9C04
+56D7 97E6 5729 56F4 5E0F 6CA9 8FDD 95F1 5CD7 5CDE
+6D08 97CB 6845 6DA0 552F 5E37 60DF 7859 7EF4 55A1
+570D 5A81 5D6C 5E43 6E4B 6E88 741F 9055 6F4D 7DAD
+84F6 912C 6F59 6F7F 78D1 9180 6FF0 934F 95C8 9BA0
+7653 89B9 72A9 973A 6B08
+5383 4F1F 4F2A 5C3E 7EAC 829B 82C7 59D4 709C 73AE
+6D27 5A13 5C57 6D58 8371 8BFF 5049 507D 5D23 68B6
+75CF 784A 9AA9 5D54 5FAB 6107 7325 8466 848D 9AAA
+9AAB 6690 6932 7152 744B 75FF 8172 8249 97EA 50DE
+64B1 78C8 9C94 5BEA 7DEF 853F 8AC9 8E13 97D1 9820
+85B3 5130 6FFB 9361 9BAA 58DD 7022 97D9 98B9 97E1
+8624 6596
+536B 4E3A 672A 4F4D 5473 82FF 70BA 754F 80C3 53DE
+8ECE 5C09 83CB 8C13 5582 5AA6 6E2D 7232 715F 78A8
+851A 873C 6170 71AD 729A 7DED 885B 61C0 748F 7F7B
+885E 8B02 9927 9B87 87B1 893D 9935 9B4F 85EF 8F4A
+93CF 9728 9CDA 8636 9956 8B86 8E97 8B8F 8E9B
+6364 7140 732C 589B 7E05 875F 5DB6
+6637 586D 6E29 6985 6B9F 6EAB 7465 8F92 761F 8570
+8C71 8F3C 8F40 9CC1 97B0 9C1B 9C2E
+5301 6587 5F63 7EB9 82A0 7086 739F 95FB 7D0B 8689
+868A 73F3 960C 741D 96EF 7612 805E 99BC 9B70 9CFC
+9D0D 87A1 95BA 95BF 87C1 95C5 9F24 95E6
+520E 543B 5FDF 6286 5461 80B3 7D0A 687D 8117 7A33
+7A4F 7A69
+95EE 598F 6C76 83AC 554F 6E02 63FE 6435 9850 74BA
+545A 922B 93BE
+7FC1 55E1 6EC3 9E5F 8789 9393 9DB2
+52DC 5963 5855 5D61 84CA 66A1 7788 806C
+74EE 8579 7515 7F4B 9F46
+631D 502D 6DA1 83B4 5529 6DB9 6E26 7327 8435 7A9D
+7AA9 8717 64BE 8778 8E12
+6211 5A50 6370
+4EF4 6C83 809F 5367 6782 81E5 5053 637E 6DB4 5A89
+5E44 63E1 6E25 7125 786A 6943 815B 65A1 7783 64ED
+6FE3 74C1 81D2 96D8 9F8C 9F77
+4E4C 572C 5F19 6C59 6C5A 6C61 90AC 545C 5DEB 6747
+5C4B 6D3F 8BEC 94A8 70CF 526D 7A8F 9114 55DA 6B4D
+8AA3 7BBC 8790 9D2E 93A2 9C1E
+65E0 6BCB 5433 5434 543E 5449 829C 90DA 5514 5A2A
+6D16 6D6F 8323 8381 68A7 73F8 7966 7121 94FB 9E40
+7991 8708 8A88 856A 7491 87F1 9BC3 9D50 8B55 9F2F
+9DE1
+4E94 5348 4EF5 59A9 5E91 5FE4 6003 65FF 6B66 739D
+4FAE 4FC9 5035 6342 554E 5A2C 727E 73F7 6440 7894
+9E49 7193 7466 821E 5AF5 5EE1 61AE 6F55 511B 6A46
+7512 9D61 8E8C
+5140 52FF 620A 9622 4F06 5C7C 6264 575E 5C89 674C
+82B4 8FD5 5FE2 7269 77F9 537C 6544 8BEF 609E 609F
+60AE 7C85 901C 6664 7110 5A7A 5D4D 75E6 9696 9770
+9A9B 5862 5966 5D68 6EA9 96FA 96FE 5BE4 7183 8AA4
+9E5C 907B 92C8 7AB9 971A 9F3F 9727 9F40 8601 9A16
+9DA9
+4E44 52A1 4F0D 52D9 933B
+FDD0-0058
+5915 516E 5438 5FDA 6271 6C50 8980 5E0C 6278 5365
+6614 6790 7A78 80B8 80B9 4FD9 5F86 6038 6053 90D7
+997B 550F 595A 5C56 6095 6C25 6D60 727A 72F6 8383
+553D 6089 60DC 637F 665E 6878 6B37 6DC5 70EF 7101
+7108 740B 7852 83E5 8D65 91F8 5092 60C1 6670 6673
+711F 712C 7280 774E 7A00 7C9E 7FD5 823E 910E 5380
+5D60 5FAF 6EAA 7699 84A0 9521 50D6 69BD 7155 7184
+7188 7199 7DC6 8725 8C68 990F 563B 564F 5B06 5B09
+5DB2 6F5D 761C 78CE 819D 51DE 6199 6A28 6A40 71B9
+71BA 71BB 7AB8 7E18 7FB2 8785 8787 932B 71E8 77A6
+87CB 8C3F 8C40 8C6F 8C95 7CE6 7E65 96DF 9D57 89F9
+8B46 91AF 93ED 96B5 5DC7 66E6 7214 72A7 9145 89FD
+9F37 8835 9E02 89FF 9474
+4E60 90CB 5E2D 7FD2 88AD 89CB 5AB3 693A 84B5 84C6
+5D8D 6F1D 89A1 8D98 69E2 8582 96B0 6A84 8B35 93B4
+972B 9CDB 98C1 9A31 9A3D 8972 9C3C 9A68
+67B2 6D17 73BA 5F99 94E3 559C 8448 8478 9222 9268
+9269 5C63 6F07 84F0 6198 66BF 6B56 79A7 8AF0 58D0
+7E30 8B11 87E2 8E5D 74BD 56CD 9C5A 77D6 8EA7
+5338 534C 620F 5C43 7CFB 9969 546C 5FE5 602C 77FD
+7EC6 4FC2 54A5 6044 76FB 90E4 6B2F 7EE4 7D30 91F3
+960B 55BA 691E 7FD6 8203 8204 8D87 9699 6140 6ECA
+798A 7D8C 8D69 969F 588D 7182 7294 7A27 6F5F 6F99
+856E 89A4 6231 9ED6 6232 78F6 8669 993C 9B29 7E6B
+56B1 95DF 973C 5C6D 884B
+897F 606F 6E13 6A72 72A0 7902 9BD1
+8672 75A8 867E 8C3A 5084 9595 7146 7175 98AC 778E
+8766 9C15
+5323 4FA0 72CE 4FE0 5CE1 67D9 70A0 72ED 965C 5CFD
+70DA 72F9 73E8 796B 7856 7FC8 823A 967F 7864 9050
+656E 6687 7455 7B6A 821D 78AC 8F96 78CD 7E00 8578
+7E16 8D6E 9B7B 8F44 935C 971E 938B 9EE0 9A22 9DB7
+959C
+4E05 4E0B 4E64 5413 759C 590F 7771 5687 61D7 7F45
+93BC 5913 93EC
+5737 68BA 6E8A
+4EDA 5C73 5148 597E 7EA4 4F61 5FFA 6C19 6774 7946
+79C8 82EE 67AE 7C7C 73D7 83B6 6380 8A2E 94E6 8DF9
+9170 9528 50CA 5615 929B 9C9C 66B9 97EF 5B10 61B8
+859F 9341 893C 97F1 9BAE 8E6E 99A6 5EEF 6515 7E8E
+9DB1 8973 8E9A 7E96 9C7B
+4F2D 95F2 59B6 5F26 8D24 54B8 550C 6326 6D8E 80D8
+5A34 5A39 5A71 7D43 8237 86BF 8854 5563 75EB 86DD
+9591 9592 9E47 5ACC 8858 7509 929C 5AFA 5AFB 61AA
+648F 6F96 7A34 8AB8 8CE2 71C5 8AF4 8F31 918E 7647
+764E 77AF 85D6 7925 9E79 9E99 8D12 9DF3 9DF4 9DFC
+51BC 72DD 663E 9669 5D04 6BE8 70CD 7303 86AC 967A
+8D7B 7B45 5C1F 5C20 641F 7992 8DE3 9291 7BB2 96AA
+5DAE 736B 736E 85D3 934C 71F9 9855 5E70 6507 6AF6
+861A 8B63 7381 97C5 986F 7066
+4F23 53BF 549E 5C98 82CB 73B0 7EBF 81FD 9650 59ED
+5BAA 770C 9665 54EF 57B7 5A0A 5A28 5CF4 6D80 83A7
+9677 665B 73FE 784D 9985 774D 7D64 7F10 7FA1 732E
+7CAF 7FA8 817A 8706 50E9 50F4 7DAB 8AA2 648A 7DDA
+92E7 61B2 6A4C 7E23 930E 9921 58CF 8C4F 9EB2 7017
+81D4 737B 7CEE 9F38
+4ED9 50F2 7E4A 9466
+4E61 8297 76F8 9999 90F7 53A2 554C 9109 910A 5EC2
+6E58 7F03 8459 9115 7A25 858C 7BB1 7DD7 81B7 8944
+5FC0 9AA7 9E98 6B00 74D6 9576 9472 9A64
+74E8 4F6D 8BE6 5EA0 6819 7965 7D74 7FD4 8A73 8DED
+4EAB 4EAF 54CD 9977 6651 98E8 60F3 9284 9909 9C9E
+66CF 8801 9B9D 9BD7 97FF 9957 995F 9C76
+5411 59E0 5DF7 8683 9879 73E6 8C61 5842 7F3F 842B
+8856 9805 50CF 52E8 5D91 9297 6A61 8950 56AE 87D3
+95C0 940C 9C4C
+697F 9C5C
+7071 7072 547A 67AD 4FBE 54D3 67B5 9A81 54EE 5BAF
+5BB5 5EA8 6D88 7EE1 8653 900D 9E2E 5A4B 689F 7107
+7307 8427 75DA 75DF 785D 7863 7A99 7FDB 8437 9500
+63F1 7D83 560B 5610 6B4A 6F47 7BAB 8E03 5635 61A2
+7362 92B7 9704 5F47 81AE 856D 9B48 9D1E 7A58 7C18
+85C3 87C2 87CF 9D35 56A3 701F 7C2B 87F0 9AC7 6AF9
+56BB 56C2 9AD0 8828 9A4D 6BCA 8648
+6D28 7B05 90E9 5D24 6DC6 8A24 6BBD 7B4A 8AB5
+5C0F 6653 6681 7B71 7B7F 769B 66C9 7BE0 8B0F 76A2
+5B5D 8096 52B9 54B2 4FF2 6548 6821 6D8D 7B11 5578
+509A 6569 8A68 5628 8A9F 562F 6B57 71BD 97A9 6585
+6586
+6077 6EE7
+4E9B 63F3 7332 6954 6B47 874E 880D
+52A6 534F 65EA 90AA 5354 80C1 57A5 594A 5CEB 604A
+62F9 631F 633E 8105 8107 887A 5055 659C 8C10 7FD3
+55CB 6136 643A 744E 7D8A 7181 818E 52F0 64B7 64D5
+7DF3 7F2C 8762 978B 9821 8AE7 71F2 64F7 97B5 896D
+651C 7E88 8B97 9FA4
+5199 51A9 5BEB 85DB
+4F33 707A 6CC4 6CFB 7944 7EC1 7F37 5378 6D29 70A7
+5368 5A0E 5C51 5C53 505E 5070 5FA2 68B0 70F2 710E
+79BC 7D32 4EB5 5A9F 5C5F 6E2B 7D4F 7D6C 8C22 50C1
+586E 698D 69AD 8909 5667 5C67 66AC 7DE4 5DB0 5EE8
+61C8 6FA5 736C 7CCF 85A2 85A4 9082 97F0 71EE 893B
+8B1D 99F4 7009 97A2 7023 7215 7E72 87F9 880F 9F58
+9F5B 9F65 9F42 8E9E
+810B 5911
+5FC3 90A4 59A1 5FFB 82AF 8F9B 6615 677A 6B23 7098
+76FA 4FFD 60DE 8A22 920A 950C 65B0 6B46 5EDE 92C5
+5B1C 85AA 99A8 946B 99AB
+6794 8951 9414
+4F08
+9620 4F29 56DF 5B5E 4FE1 8ED0 812A 8845 8A2B 712E
+7161 99B8 9856 820B 91C1
+5FC4 567A
+661F 57B6 9A8D 60FA 7329 714B 7446 8165 86F5 89EA
+7BB5 7BC2 9B8F 66D0 89F2 935F 9A02 76A8 9BF9
+5211 884C 90A2 5F62 9649 4F80 90C9 578B 6D10 8365
+9498 9658 5A19 784E 94CF 9203 6ECE 9276 9292 92DE
+7772 9192 64E4
+5174 674F 59D3 5E78 6027 8347 5016 8395 5A5E 60BB
+6DAC 7DC8 8208 5B39 81D6
+54D8 88C4 8B03
+51F6 5144 5147 5308 8BBB 5FF7 6C79 54C5 605F 6D36
+80F7 80F8 8A29 8A7E 8CEF
+96C4 718A
+713D
+8BC7 7138 8A57 5910 657B
+4F11 4FE2 4FEE 54BB 5EA5 70CB 70CC 7F9E 8129 8119
+9E3A 81F9 8C85 9990 6A07 929D 9AE4 9AF9 9380 9D42
+93C5 9948 9C43 98CD
+82EC
+673D 6EEB 7D87 7CD4
+79C0 5CAB 5CC0 73DB 7EE3 8896 7407 9508 55C5 6EB4
+7493 890E 890F 92B9 8791 7E4D 7E61 93E5 93FD 9F45
+9BB4
+5401 620C 65F4 759E 76F1 6B28 80E5 987B 6647 8A0F
+987C 8657 865A 8C1E 5AAD 5E41 63DF 6E51 865B 88C7
+9808 6948 7AA2 980A 5618 589F 9700 9B46 5653 5B03
+6B54 7E03 8566 8751 8ADD 8B43 7E7B 9B56 9A49 9450
+9B1A
+4FC6 5F90 84A3
+8BB8 5474 59C1 8BE9 5194 6829 73DD 5066 8A31 668A
+8A61 7A30 9126 7CC8 9191 76E8
+65ED 4F35 5E8F 6C7F 82A7 4F90 5379 6034 6C80 53D9
+6064 662B 6D2B 57BF 6B30 6B88 70C5 73EC 52D6 654D
+6558 52D7 70FC 7EEA 7EED 9157 55A3 58FB 5A7F 6702
+6E86 7D6E 8A39 6149 7166 84C4 8CC9 69D2 6F35 6F4A
+76E2 7781 7DD2 805F 928A 735D 7A38 7DD6 9B63 85C7
+77B2 85DA 7E8C 9C6E
+8053 7D9A 84FF
+5405 8F69 660D 5BA3 5F32 8ED2 688B 8C16 55A7 5847
+5A97 6103 610B 63CE 8431 8432 6684 714A 7444 84D2
+777B 5107 79A4 7BAE 7E07 7FE7 8756 92D7 61C1 857F
+8AE0 8AFC 9379 99FD 77CE 7FFE 85FC 8610 8809 8B5E
+7384 73B9 75C3 60AC 65CB 7401 8701 5AD9 6F29 66B6
+7487 6A88 74BF 61F8
+54BA 9009 6645 70DC 9078 9848 7663 766C
+6030 6CEB 6621 70AB 7EDA 7729 88A8 94C9 7404 7734
+8852 6E32 7D62 6965 6966 9249 78B9 8519 955F 9799
+98B4 7E3C 7E4F 93C7 8B82 8D19
+9C1A
+524A 75B6 8486 9774 859B 8FA5 8FAA 97BE
+7A74 6588 4E74 5B66 5CA4 5CC3 8313 6CF6 8895 9E34
+8E05 58C6 5B78 5DA8 6FA9 71E2 89F7 96E4 9DFD
+96EA 9CD5 9C48
+8840 5437 5779 72D8 6856 8C11 8D90 8B14 7025
+81A4 6A30 825D 8F4C
+5743 52CB 57D9 7104 52DB 5864 718F 7AA8 8512 52F2
+52F3 85AB 99E8 58CE 736F 85B0 66DB 71FB 81D0 77C4
+860D 58E6 7E81 91BA
+5EF5 5BFB 65EC 5DE1 9A6F 674A 7543 8BE2 5CCB 6042
+6D35 6D54 7D03 8340 8368 6812 686A 6BE5 73E3 5071
+5C0B 5FAA 63D7 69C6 6F43 8A62 99B4 9129 9C9F 565A
+6F6F 6533 6A33 71D6 7495 87F3 9C4F 9C58 7065
+5342 8BAF 4F28 6C5B 8FC5 4F9A 5DFA 5F87 72E5 8FFF
+900A 6B89 8A0A 8A19 595E 5DFD 6BBE 7A04 905C 613B
+8CD0 5640 6F60 8548 9D55 720B 9868 9442
+8BAD 8A13 5691
+FDD0-0059
+4E2B 5727 538B 5416 5E98 62BC 6792 57AD 9E26 6860
+9E2D 57E1 5B72 690F 9D09 930F 9D28 58D3 9D76 941A
+7259 4F22 5391 5C88 82BD 5393 73A1 740A 7B0C 869C
+5810 5D15 5D16 6DAF 731A 7458 775A 8859 6F04 9F56
+538A 5E8C 54D1 5516 555E 75D6 96C5 7602 8565
+529C 5720 8F67 4E9A 897E 8BB6 4E9C 72BD 8FD3 4E9E
+8ECB 5A05 631C 7811 4FF9 6C29 5A6D 6397 8A1D 94D4
+63E0 6C2C 7330 8050 5714 7A0F 7AAB 9F7E
+4E5B 5440
+6079 5266 70DF 73DA 80ED 5063 5571 5D26 6DCA 6DF9
+7109 7111 83F8 9609 6E6E 7312 814C 7159 787D 9122
+5AE3 6F39 9183 95B9 5B2E 61E8 7BF6 61D5 81D9 9EEB
+8BA0 5EF6 4E25 598D 82AB 8A00 5CA9 6616 6CBF 708E
+90D4 59F8 5A2B 72FF 7814 839A 5A2E 76D0 7402 784F
+9586 960E 5D52 5D53 6E7A 7B75 7D96 8712 5869 63C5
+694C 8A7D 789E 8505 989C 53B3 8664 95BB 6A90 984F
+9854 56B4 58DB 5DCC 7C37 6AE9 9EEC 58E7 5B4D 5DD7
+5DD6 7939 9E7D 9EA3
+5935 6281 6C87 4E75 5156 5944 4FE8 5157 533D 5F07
+884D 5043 53A3 63A9 773C 8412 90FE 9153 5D43 611D
+624A 63DC 68EA 6E30 6E37 7430 9043 9692 693C 7F68
+88FA 6F14 8917 5D96 622D 8758 9B47 565E 8EBD 7E2F
+6ABF 9A13 9EE1 53B4 7517 9C0B 9DA0 9EE4 9F5E 9F91
+513C 9EED 9869 9F34 5DD8 5DDA 66EE 9B58 9F39 9F74
+9EF6
+538C 95EB 599F 89C3 726A 54BD 59F2 5F65 5F66 781A
+5501 5BB4 664F 70FB 8273 898E 9A8C 5050 7114 8C1A
+9681 55AD 5830 6565 7130 7131 786F 8455 96C1 50BF
+693B 6E8E 6EDF 9CEB 53AD 5895 66A5 917D 5B0A 8C33
+990D 9D08 71C4 71D5 8AFA 8D5D 9B33 66D5 9D33 9140
+9A10 56A5 5B3F 8276 8D0B 66E3 7213 91B6 9A34 9DC3
+7054 8D17 89FE 8B8C 91BC 995C 9A57 9DF0 8277 704E
+91C5 9A60 7067 8B9E 8C53 8C54 7069
+8A01 7196 6A2E 8EC5 6B15
+592E 5489 59CE 62B0 6CF1 6B83 80E6 770F 79E7 9E2F
+9260 96F5 9785 9D26
+626C 7F8A 9626 9633 65F8 6768 7080 98CF 4F6F 52B7
+6C1C 75A1 9496 579F 5F89 661C 6D0B 7F8F 70CA 73DC
+773B 967D 5D35 5D38 63DA 86D8 656D 6698 694A 716C
+7993 760D 8AF9 8F30 935A 9D39 98BA 940A 9C11 9737
+9E09
+4EF0 4F52 5771 5C9F 517B 67CD 70B4 6C27 75D2 7D3B
+509F 6967 8EEE 6143 6C31 8746 990A 99DA 61E9 6501
+7662
+600F 6059 6837 7F95 8A47 69D8 6F3E 6A23 7001
+594D 7FAA 7922
+5E7A 592D 5406 5996 6796 6B80 7945 8A1E 5593 847D
+6946 8170 9D01 9080
+723B 5C27 5C2D 80B4 579A 59DA 5CE3 8F7A 5004 70D1
+73E7 7A91 509C 582F 63FA 8C23 8EFA 55C2 5AB1 5FAD
+612E 6416 6447 733A 9059 9065 669A 69A3 7464 7476
+929A 98D6 9906 5DA2 5DA4 7AAF 7AB0 991A 7E47 8B20
+8B21 9390 9CD0 98BB 8628 908E 9864 9C29
+4EF8 5B8E 5C86 62AD 6773 72D5 82ED 54AC 67FC 7711
+7A85 7A88 8200 5060 5A79 5D3E 6E94 84D4 699A 9D22
+9F3C 95C4 9A15 9F69 9DD5
+7A7E 836F 8981 94A5 888E 7A94 7B44 846F 8A4F 718E
+899E 977F 735F 9E5E 85AC 66DC 71FF 825E 85E5 77C5
+8000 7E85 9DC2 8B91 9470
+503B 6396 6930 668D 564E 6F71 882E
+8036 6353 63F6 94D8 91FE 92E3 9381 64E8
+4E5F 5414 51B6 57DC 91CE 5622 6F1C 58C4
+4E1A 53F6 66F3 9875 66F5 90BA 591C 62B4 4EB1 67BC
+9801 6654 67BD 70E8 5558 6DB2 8C12 5828 6B97 814B
+8449 9113 58B7 696A 696D 998C 50F7 66C4 66C5 6B4B
+71C1 64DB 76A3 77B1 9134 9765 5DAA 5DAB 6FB2 8B01
+9923 5688 64EB 66D7 77B8 9371 64EA 7217 790F 9391
+9941 9D7A 9437 9768 9A5C 9E08
+7237 4EAA 723A
+4E00 4E4A 5F0C 4F0A 8863 533B 541A 58F1 4F9D 794E
+54BF 6D22 6098 7317 90FC 94F1 58F9 63D6 6B39 86DC
+7995 5ADB 6F2A 7A26 92A5 5B04 566B 5901 747F 9E65
+7E44 6AB9 6BC9 91AB 9EDF 8B69 9DD6 9EF3
+4E41 4EEA 531C 572F 5937 8FC6 519D 5B90 6C82 8BD2
+4F87 6021 6CB6 72CB 886A 8FE4 9974 54A6 59E8 5CD3
+605E 62F8 67C2 73C6 74F5 8D3B 8FFB 5BA7 5DF8 5F2C
+6245 6818 684B 7719 80F0 8898 8A11 8CA4 75CD 79FB
+801B 8413 51D2 7FA0 86E6 8A51 8A52 8CBD 9057 5A90
+6686 6938 8A83 8DE0 9809 9890 98F4 7591 5100 71AA
+7BB7 907A 5DAC 5F5B 5F5C 8794 9824 5BF2 5DB7 7C03
+984A 5F5D 5F5E 8B3B 93D4 89FA 8B89 9E03
+4E59 5DF2 4EE5 9487 4F41 653A 77E3 8094 82E1 82E2
+5EA1 8223 8681 91D4 501A 6246 7B16 9018 914F 506F
+5D3A 65D1 6905 926F 9CE6 88FF 65D6 8E26 8F22 657C
+8798 6AA5 7912 8264 87FB 9857 8F59 9F6E
+4E42 4E49 4EBF 5F0B 5208 5FC6 827A 808A 8BAE 4EA6
+4F07 5C79 5F02 8285 4F3F 4F5A 52AE 5453 5744 5F79
+6291 6759 8034 82C5 8BD1 9091 4F7E 546D 5479 5CC4
+6008 603F 6613 678D 6B25 6CC6 7088 79C7 7ECE 8BE3
+9A7F 4FCB 5955 5E1F 5E20 5F08 67BB 6D02 6D42 73B4
+75AB 7FBF 8875 8F76 5508 57BC 6092 6339 6359 6827
+683A 6B2D 6D65 6D73 76CA 88A3 8C0A 966D 52DA 57F6
+57F8 60A5 639C 6BB9 7570 785B 7F9B 7FCA 7FCC 8A32
+8A33 8C59 8C5B 9038 91F4 96BF 5E46 6561 6679 68ED
+6B94 6E59 7132 86E1 8A4D 8DC7 8EFC 9220 9AAE 4E84
+517F 610F 6EA2 7348 75EC 776A 7AE9 7F22 7FA9 8084
+88D4 88DB 8A63 52E9 5AD5 5ED9 698F 6F69 7617 8189
+84FA 8734 977E 99C5 5104 648E 69F8 6BC5
+71A0 71A4 71BC 761E 8ABC 9552 9E5D 9E62 9ED3 5293
+571B 58BF 5B11 5B1F 5DA7 61B6 61CC 66C0 6BAA 6FBA
+71DA 7631 7796 7A53 7E0A 8257 858F 87A0 8939 5BF1
+6581 66CE 6A8D 6B5D 71E1 71F1 7FF3 7FFC 81C6 8CF9
+9BA8 7654 85D9 85DD 8D00 93B0 9571 7E76 7E79 8C77
+972C 9BE3 9D82 9D83 7037 8619 8B6F 8B70 91B3 91B7
+9950 56C8 943F 9DC1 9DCA 61FF 897C 9A5B 9DE7 8649
+9DFE 8B9B 9F78
+8FB7 5307 8864 5B9C 7569 841F 692C 9D8D 7C4E
+56D9 56E0 9625 9634 4F8C 5794 59FB 6D07 8335 836B
+97F3 9A83 6836 6BB7 6C24 9670 51D0 79F5 88C0 94DF
+967B 9682 5591 5819 5A63 6114 7B43 7D6A 6B45 6EB5
+798B 852D 6147 647F 7616 92A6 7DF8 9787 8AF2 9712
+99F0 567E 95C9 9720 97FE
+5198 4E51 541F 72BE 82C2 65A6 70CE 57A0 6CFF 5701
+5CFE 72FA 73E2 8376 8A14 8A1A 5A6C 5BC5 5D1F 5D2F
+6DEB 8A21 94F6 921D 9F82 6EDB 7892 911E 5924 8529
+9280 5656 6BA5 748C 8ABE 569A 6AAD 87EB 972A 9F57
+9DE3
+4E5A 5EF4 5C39 5F15 5432 996E 8693 8D7A 9690 6DFE
+920F 98F2 96A0 9777 98EE 6704 8F11 78E4 8D9B 6A83
+763E 96B1 5DBE 6FE5 6FE6 87BE 861F 6AFD 766E 8B94
+5370 831A 6D15 80E4 57BD 5837 6E5A 730C 5ED5 8491
+9173 616D 764A 6196 6197 9BA3 61DA 6ABC
+7C8C
+5E94 5FDC 82F1 5040 685C 83BA 5568 5A74 5A96 6E36
+7EEC 6720 7150 745B 5AC8 78A4 9533 5624 6484 7507
+7DD3 7F28 7F42 8767 8CCF 6A31 748E 7F43 892E 9348
+9719 9D2C 9E66 5B30 61C9 81BA 97FA 7516 9E70 9D91
+9DA7 56B6 5B46 5B7E 6516 7F4C 8621 8B4D 6AFB 74D4
+792F 8B7B 9DAF 944D 7E93 8833 9DEA 9DF9 9E0E 9E1A
+76C1 8FCE 8314 76C8 8367 83B9 55B6 8424 8425 8426
+86CD 6E81 6E8B 843E 50CC 584B 6979 6EE2 84E5 6F46
+7192 7469 877F 5B34 71DF 7E08 87A2 6FD9 6FDA 6FF4
+85C0 89AE 8B0D 8D62 7005 93A3 650D 701B 7020 702F
+6AFF 7034 8D0F 7C5D 7C6F
+77E8 90E2 6D67 68AC 988D 9895 9896 646C 5F71 6F41
+7484 763F 7A4E 9834 5DCA 5EEE 766D
+6620 668E 786C 5AB5 81A1 565F 9795 941B 9C66
+73F1 6125 8747 7E04 651A 8805 7050 705C 8EC8
+54DF 5537 55B2
+4F63 62E5 75C8 9095 5EB8 50AD 55C8 9118 96CD 5889
+5ADE 6175 6EFD 69E6 5670 58C5 64C1 6FAD 90FA 955B
+81C3 7655 96DD 93DE 9CD9 5EF1 7049 9954 9C45 9DDB
+7670
+5581 63D8 7245 9899 9852 9C2B
+6C38 752C 548F 6CF3 4FD1 52C7 52C8 6810 57C7 6080
+67E1 6D8C 607F 509B 60E5 6111 6E67 7867 8A60 584E
+5D71 5F6E 6139 86F9 6142 8E0A 799C 9CAC 8E34 9BD2
+7528 82DA 919F
+603A 783D
+4F18 5FE7 6538 5466 602E 6CD1 5E7D 900C 60A0 9E80
+6EFA 6182 512A 913E 5698 7000 6ACC 7E8B 8030
+5C22 5C24 7531 6C8B 72B9 90AE 6CB9 80AC 6023 65BF
+75A3 5CF3 6D5F 79DE 839C 83B8 90F5 94C0 5064 86B0
+8A27 9030 6E38 7336 904A 9C7F 6962 7337 923E 9C89
+8F0F 99C0 8555 8763 9B77 8F36 9B8B 6AFE
+6709 4E23 5363 82C3 9149 7F91 5EAE 682F 7F90 83A0
+6884 8048 811C 94D5 6E75 7989 870F 92AA 69F1 7256
+9EDD 61EE
+53C8 53F3 5E7C 4F51 4F91 72D6 7CFF 54CA 56FF 59F7
+5BA5 5CDF 67DA 7270 7950 8BF1 8FF6 5500 86B4 4EB4
+8C81 91C9 916D 8A98 9F2C
+53CB 5B67 848F 7257
+625C 7EA1 8FC2 8FC3 7A7B 9653 7D06 8676 5539 6DE4
+76D3 6BFA 7600 7B8A
+4E90 4E8E 9098 4F03 4F59 59A4 6275 6745 6B24 7397
+7399 65BC 76C2 81FE 8867 9C7C 4E7B 4FDE 516A 79BA
+7AFD 8201 8330 5A1B 5A2F 5A31 6859 72F3 8C00 9151
+9980 6E14 8438 9685 96E9 9B5A 5823 582C 5D33 5D4E
+5D5B 6109 63C4 6970 6E1D 6E61 756D 7862 8174 842E
+903E 9AAC 611A 65D5 6961 6986 6B48 724F 745C 8245
+865E 89CE 6F01 776E 7AAC 8206 8915 6B76 7FAD 854D
+8753 8ADB 96D3 9918 5B29 6F9E 89A6 8E30 6B5F 74B5
+87B8 8F3F 935D 8B23 9AC3 9BBD 65DF 7C45 9A1F 861B
+9C05 9DE0 9E06
+4E0E 4E88 4F1B 5B87 5C7F 7FBD 96E8 4FC1 4FE3 79B9
+8BED 5704 5CFF 7964 504A 532C 5709 5EBE 6554 9105
+659E 842D 50B4 5BD9 6940 7440 7610 8207 8A9E 7AB3
+92D9 9828 9F89 5673 5DBC 61D9 8C90 6594 9E8C 860C
+9F6C
+8080 7389 9A6D 572B 807F 828B 828C 59AA 5FEC 996B
+80B2 90C1 6631 72F1 79D7 831F 4FFC 5CEA 5F67 6D74
+7821 94B0 9884 5590 57DF 5809 6086 60D0 6B32 6DE2
+6DEF 8C15 9033 9608 5585 55A9 55BB 5A80 5BD3 5EBD
+5FA1 68DB 68DC 68EB 7134 7419 77DE 7872 88D5 9047
+98EB 99AD 9E46 6108 6EEA 715C 7A22 7F6D 8248 84AE
+84E3 8A89 923A 9810 5AD7 5D8E 622B 6BD3 7344 7609
+7DCE 871F 872E 8F0D 9289 564A 617E 6F4F 7A36 84F9
+8581 8C6B 9079 92CA 9CFF 6FA6 71CF 71E0 8577 8AED
+9325 95BE 9D25 9D2A 5125 7907 79A6 9B4A 9E6C 7652
+7916 791C 7A65 7BFD 7E58 91A7 9D52 6AF2 9947 8B7D
+8F5D 942D 9731 6B0E 9A48 9B3B 7C5E 9C4A 9DF8 9E12
+6B1D 9FA5 8EC9 9B30 9B31 706A 7C72 7229
+6327 8362 6F9A 9BF2
+56E6 9E22 5248 51A4 6081 7722 9E33 5BC3 6E01 6E06
+6E0A 6E15 60CC 6DF5 847E 68E9 84AC 870E 88F7 9E53
+7BA2 9CF6 8735 99CC 9D1B 5B3D 9D77 7041 9F18 9F1D
+5143 5186 8D20 90A7 5458 56ED 6C85 676C 57A3 7230
+8C9F 539F 54E1 5706 7B0E 8696 8881 53A1 570E 63F4
+6E72 7328 7F18 8312 9F0B 5712 5713 586C 5AB4 5AC4
+6E90 6E92 733F 7342 849D 699E 69AC 8F95 7DE3 7E01
+875D 876F 9B6D 6A7C 7FB1 8597 8788 8B1C 8F45 9EFF
+93B1 6ADE 908D 9A35 9DA2 9DB0 53B5
+8FDC 76F6 903A 9060 92FA
+5917 8099 59B4 82D1 6028 9662 57B8 884F 5086 5A9B
+63BE 7457 7990 613F 88EB 8911 8924 566E 9858
+915B 9228
+66F0 66F1 7EA6 7D04 7BB9 77F1 5F5F 5F60
+6708 6209 5216 599C 5C84 6288 793F 5CB3 73A5 6071
+6085 60A6 868E 868F 8ECF 94BA 9605 6373 8DC0 8DC3
+7CA4 8D8A 9205 7CB5 925E 95B1 95B2 5B33 6A3E 7BD7
+5DBD 9FA0 7C46 7039 8625 9EE6 721A 79B4 8E8D 7C65
+9E11 7C70 9E19
+6655 7F0A 8480 6688 6C32 7174 8495 6C33 596B 8779
+7E15 8D5F 9835 99A7 8D07
+4E91 52FB 5300 56E9 5998 6C84 7EAD 82B8 6600 7547
+7703 79D0 90E7 6DA2 7D1C 8018 803A 9116 96F2 612A
+6EB3 7B60 7B7C 84B7 69B2 7189 6F90 8553 92C6 6A52
+7BD4 7E1C 9942
+5141 962D 593D 628E 72C1 9668 837A 6B92 5597 9217
+9695 6B9E 891E 99BB 78D2 8CF1 9723 9F73
+5B55 8FD0 679F 90D3 607D 9106 915D 508A 60F2 6120
+904B 614D 816A 97EB 97F5 7185 71A8 7DF7 7DFC 8574
+8580 9196 919E 992B 85F4 97D7 97DE 860A 97FB
+62A3 7E67
+FDD0-005A
+5E00 531D 6C9E 8FCA 5482 62F6 7D25 7D2E 9254 9B73
+81DC 81E2
+6742 7838 507A 5592 97F4 96D1 5DBB 78FC 894D 96DC
+56CB 56D0 96E5
+548B
+707D 707E 753E 54C9 683D 70D6 83D1 6E3D 7775 8CF3
+5BB0 5D3D
+518D 5728 6257 4FA2 6D05 8F7D 50A4 8F09 9168 510E
+7E21
+5142 7CCC 7C2A 7C2E 9415 941F
+54B1
+661D 6CAF 685A 5BC1 63DD 5646 648D 5127 6505 6512
+5139 6522 8DB1 7938 8DB2
+6682 66AB 8CDB 8D5E 933E 913C 6FFD 8E54 74C9 8D0A
+93E8 74D2 9147 7052 8B83 74DA 79B6 8978 8B9A 9961
+5328 7242 7F98 8D43 8CCD 81E7 8535 8CD8 8D13 9AD2
+8D1C
+9A75 99D4
+5958 5F09 810F 585F 846C 92BA 81D3 81DF
+50AE 906D 7CDF 8E67 91A9
+51FF 947F
+65E9 67A3 86A4 68D7 6FA1 74AA 85BB 7E70 85FB
+7076 7681 7682 5515 5523 9020 688D 55BF 6165 8241
+566A 7C09 71E5 7AC3 8B5F 8DAE 8E81 7AC8
+6806
+5219 629E 6CA2 62E9 6CCE 6CFD 8D23 8FEE 5247 835D
+5536 5567 5E3B 7B2E 8234 8CAC 6EAD 77E0 5616 5AE7
+5E58 7BA6 6A0D 8ACE 8D5C 64C7 6FA4 769F 7794 7C00
+790B 8957 8B2E 8CFE 880C 9F5A 9F70 9E05
+5928 4EC4 5E82 6C44 6603 6617 6351 5D31
+4F2C 8536
+8D3C 621D 8CCA 9C97 9BFD 8808 9C02 9C61
+600E
+8C2E 8B56 8B5B
+56CE
+5897 912B 589E 618E 7F2F 6A67 71B7 7494 77F0 78F3
+7F7E 7E52 8B44
+9503 92E5 7511 8D60 8D08
+9C5B
+624E 5412 62AF 5953 6313 67E4 67FB 54F3 5067 55B3
+63F8 6E23 6942 5284 6463 76B6 6A1D 89F0 76BB 8B47
+9F44 9F47
+672D 7534 95F8 86BB 94E1 7160 7250 9598 7B9A 802B
+9358 8B57
+538F 62C3 82F2 7728 781F 6429 9C8A 9C9D 8E37 9B93
+9BBA
+4E4D 7079 8BC8 54A4 67DE 6805 70B8 5BB1 75C4 86B1
+6EA0 8A50 643E 69A8 9705 91A1
+635A 658B 658E 6458 69B8 9F4B
+5B85 6AA1
+7A84 9259
+503A 7826 50B5 5BE8 7635
+5908 7C82
+6CBE 6BE1 65C3 6834 7C98 86C5 98E6 60C9 8A40 8D88
+8A79 959A 8C35 5661 5DA6 859D 9085 9711 6C08 6C0A
+77BB 9E6F 65DC 8B6B 9958 9CE3 9A59 9B59 9C63 9E07
+8B9D
+65A9 98D0 5C55 76CF 5D2D 65AC 692B 7416 640C 76DE
+5D83 5D84 6990 98AD 5AF8 9186 6A4F 8F3E 9EF5
+5360 4F54 6218 6808 685F 7AD9 5061 7EFD 83DA 68E7
+6E5B 6226 7DBB 5D98 8F1A 6230 8665 8666 89B1 8F4F
+8B67 8638 9A4F
+5F20 5F35 7AE0 50BD 9123 5887 5ADC 5F70 615E 6F33
+7350 7CBB 8501 9067 66B2 6A1F 748B 9926 87D1 9A3F
+9C46 9E9E
+4EC9 957F 9577 6DA8 638C 6F32 7903
+4E08 4ED7 6259 5E10 6756 80C0 8D26 5E33 6DB1 8139
+75EE 969C 5D82 5E5B 8CEC 762C 7634 7795
+7C80 5E65 93F1 9423
+4F4B 948A 59B1 5DF6 62DB 662D 76C4 91D7 5541 924A
+99CB 7ABC 9363 76BD
+722A 627E 6CBC 7475
+53EC 5146 8BCF 679B 5797 70A4 72E3 8D75 7B0A 8081
+65D0 68F9 8A54 7167 7F69 8087 8088 8D99 66CC 71F3
+9BA1 6AC2 77BE 7F84
+722B 7F40
+8707 55FB 5AEC 906E
+5387 6298 6B7D 77FA 7813 7C77 8674 54F2 57D1 7C8D
+88A9 5560 608A 6662 6663 8F84 5586 86F0 8A5F 8C2A
+99B2 647A 8F12 78D4 8F19 92B8 8F99 87C4 569E 8B2B
+8B3A 9BBF 8F4D 8B81 8B8B
+8005 4E7D 556B 7987 9517 8D6D 8936 8975
+8FD9 67D8 6D59 9019 6DDB 6A1C 6F6A 9E67 87C5 9DD3
+7740 8457 8517
+8D1E 9488 4FA6 6D48 73CD 73CE 80D7 8C9E 5E2A 6815
+6862 771E 771F 7827 796F 91DD 5075 686D 9159 5BCA
+8474 9049 5AC3 6438 659F 6968 7349 7504 798E 8496
+84C1 9241 9755 699B 6B9D 7467 78AA 799B 6F67 7BB4
+6A3C 6FB5 81FB 85BD 9331 8F43 937C 7C48 9C75
+8BCA 62AE 6795 5F2B 6623 8F78 5C52 755B 75B9 7715
+8897 7D3E 8044 88D6 8A3A 8EEB 7D7C 7F1C 7A39 99D7
+7E25 9B12 9EF0
+5733 9635 7EBC 753D 4FB2 630B 9663 9E29 632F 6715
+681A 7D16 7739 8D48 9156 5866 63D5 6576 7471 8AAB
+8CD1 9547 9707 9D06 93AD 93AE
+8419 92F4
+4E89 4F42 59C3 5F81 6014 722D 8BE4 57E9 5CE5 6323
+70A1 72F0 70DD 7710 94B2 5D1D 5D22 6399 7319 7741
+8047 94EE 5A9C 63C1 7B5D 5FB0 84B8 775C 8E2D 9266
+5FB4 7B8F 931A 5FB5 7BDC 9B07 9BD6 7665
+6C36 628D 7CFD 62EF 639F 6678 6138 649C 6574
+6B63 8BC1 90D1 5E27 653F 75C7 5E40 8A3C 5863 8ACD
+912D 9D0A 8B49
+51E7
+4E4B 652F 536E 6C41 829D 5431 5DF5 6C65 5767 679D
+6CDC 77E5 7EC7 80A2 6800 7957 79D3 79D6 80D1 80DD
+887C 5001 75B7 796C 79EA 8102 96BB 6894 6220 6925
+81F8 6418 7994 7A19 7D95 69B0 8718 99B6 9CF7 9D32
+9D44 7E54 8635 9F05
+6267 4F84 59B7 76F4 59EA 5024 503C 8040 91DE 57F4
+57F7 6DD4 804C 8CAD 690D 6B96 7286 7983 7D77 8901
+8DD6 55ED 74E1 9244 588C 646D 99BD 5B02 6179 6F10
+8E2F 6A34 81B1 5128 7E36 8077 87D9 8E60 8EC4 8E91
+5902 6B62 53EA 52A7 65E8 962F 5740 5741 5E0B 627A
+6C66 6C9A 7EB8 82B7 603E 62A7 7949 54AB 6049 6307
+67B3 6D14 780B 8879 8F75 6DFD 75BB 7D19 8A28 8DBE
+8EF9 9EF9 916F 85E2 8967
+9624 81F3 8296 5FD7 5FEE 627B 8C78 5236 5394 5781
+5E19 5E1C 6CBB 7099 8D28 8FE3 90C5 5CD9 5EA2 5EA4
+6303 67E3 6809 6D37 7951 965F 5A21 5F8F 631A 664A
+684E 72FE 79E9 81F4 889F 8D3D 8F7E 4E7F 506B 5F9D
+63B7 68BD 6956 7318 7564 75D4 79F2 79F7 7A92 7D29
+7FD0 88A0 89D7 94DA 9E37 5082 5D3B 5F58 667A 6EDE
+75E3 86ED 8EFD 9A98 5BD8 5ECC 6431 6ECD 7A1A 7B6B
+7F6E 8DF1 8F0A 9527 96C9 5886 6EEF 6F4C 7590 88FD
+899F 8A8C 928D 5E5F 6184 646F 71AB 7A3A 81A3 89EF
+8CEA 8E2C 92D5 64F3 65D8 7004 7DFB 99E4 9D19 5295
+61E5 64F2 6ADB 7A49 87B2 61EB 8D04 6ACD 74C6 89F6
+9A2D 9BEF 7929 8C51 9A3A 9A47 8E93 9DD9 9455 8C52
+51EA 4FE7 5F94 8B22
+4E2D 4F00 6C77 5223 5990 5F78 5FE0 6CC8 7082 7EC8
+67CA 76C5 8873 949F 822F 8877 7D42 9221 5E52 8520
+953A 92BF 87A4 87BD 937E 9F28 8E71 9418 7C66
+80BF 79CD 51A2 55A0 5C30 585A 585C 6B71 7144 816B
+7607 7A2E 8E35 7A5C
+4EF2 4F17 5995 72C6 794C 833D 8876 91CD 869B 5045
+773E 5839 5A91 7B57 8846 8AE5
+8FDA
+5DDE 821F 8BCC 4F9C 5468 6D32 8BEA 70D0 73D8 8F80
+90EE 5F9F 63AB 6DCD 77EA 9031 9E3C 558C 7CA5 8D52
+8F08 9282 8CD9 8F16 970C 76E9 8B05 9D43 9A06 8B78
+59AF 8F74 8EF8
+8098 759B 83F7 666D 776D 7B92 9BDE
+7EA3 4F37 546A 5492 5B99 7EC9 5191 54AE 663C 7D02
+80C4 836E 76B1 914E 665D 7C99 8464 8A4B 7503 8A76
+50FD 76BA 99CE 5663 7E10 9AA4 7C40 7C55 7C52 9A5F
+5E1A 70BF 99F2
+6731 52AF 4F8F 8BDB 90BE 6D19 8331 682A 73E0 8BF8
+732A 7843 79FC 88BE 94E2 7D51 86DB 8A85 8DE6 69E0
+6F74 876B 9296 6A65 8AF8 8C6C 99EF 9BA2 9D38 7026
+6AEB 6AE7 9BFA 9F04 8829
+7AF9 6CCF 7AFA 70A2 7B01 833F 70DB 7A8B 9010 7B1C
+8233 7603 7BC9 71ED 880B 8E85 9C41 5B4E 705F 66EF
+6B18 7225 883E
+4E36 4E3B 5B94 62C4 7F5C 967C 6E1A 716E 7151 8A5D
+5631 6FD0 9E88 77A9 529A 56D1 65B8 77DA
+4F2B 4F47 4F4F 52A9 7EBB 82CE 577E 677C 6CE8 8D2E
+8FEC 9A7B 58F4 67F1 6BB6 70B7 795D 75B0 771D 782B
+7969 7ADA 8387 7D35 7D38 7F9C 86C0 5D40 7B51 8A3B
+8CAF 8DD3 8EF4 94F8 7B6F 9252 99B5 7BB8 7FE5 6A26
+92F3 99D0 7BEB 9714 9E86 9444
+58B8
+6293 6A9B 81BC 7C3B 9AFD
+62FD
+8DE9
+4E13 53C0 5C02 7816 5C08 911F 587C 5AE5 747C 750E
+78D7 819E 989B 78DA 8AEF 87E4 9853 9C44
+8F6C 5B68 8EE2 7AF1 8F49
+7077 556D 581F 8483 7451 815E 50CE 8D5A 64B0 7BC6
+9994 7BF9 8948 8CFA 8B54 994C 56C0 7C51
+5986 5E84 599D 8358 5A24 6869 838A 6889 6E77 7CA7
+88C5 88DD 6A01 7CDA
+58EE 58EF 72B6 72C0 58F5 710B 6F34 649E 6207
+5E92
+96B9 8FFD 9A93 9525 9310 9A05 9D7B
+6C9D
+5760 6858 7B0D 5A37 60F4 7500 7F12 7577 787E 8187
+589C 8D58 7E0B 8AC8 918A 9323 991F 7908 8D05 8B75
+8F5B 9446
+7F00 7DB4
+5B92 8FCD 80AB 7A80 8C06 8AC4 8860
+51C6 57FB 6E96 7DA7
+8A30 7A15
+51D6
+5353 62D9 70AA 502C 6349 684C 68C1 6DBF 68F3 7A5B
+7A71 883F
+5734 5F74 6C4B 72B3 707C 53D5 59B0 8301 65AB 6D4A
+4E35 6D5E 70F5 8BFC 914C 5544 5545 5A3A 68B2 65B1
+666B 6913 7438 787A 7AA1 7F6C 64AF 64C6 65B2 69D5
+799A 8AC1 8AD1 92DC 6FC1 7BE7 64E2 6580 65B5 6FEF
+6AE1 8B36 956F 942F 9D6B 7042 8817 9432 7C57 9DDF
+7C71
+5285
+7AA7
+4E72 5B5C 830A 5179 54A8 59D5 59FF 8332 6825 7386
+7D0E 8D40 8D44 6DC4 79F6 7F01 8C18 55DE 5B73 5D6B
+6914 6E7D 6ECB 7CA2 8458 8F8E 9111 5B76 798C 89DC
+8A3E 8CB2 8CC7 8D91 9531 7A35 7DC7 922D 9543 9F87
+8F1C 9F12 6FAC 8AEE 8DA6 8F3A 9319 9AED 9CBB 937F
+93A1 74BE 983F 983E 9BD4 9D85 9F4D 9C26
+84FB
+4ED4 5407 59C9 59CA 674D 77F7 79C4 80CF 5470 79ED
+7C7D 8014 8678 7B2B 6893 91E8 5559 7D2B 6ED3 8A3F
+699F
+5B57 81EA 8293 8321 5033 525A 6063 7278 6E0D 7725
+7726 80D4 80FE 6F2C
+5B50 5D30 6A74
+5B97 5027 7EFC 9A94 582B 5D4F 5D55 60FE 68D5 7323
+8159 847C 6721 6936 5D78 7A2F 7D9C 7DC3 71A7 7DF5
+7FEA 876C 8E28 8E2A 78EB 9350 8C75 8E64 9A0C 9B03
+9A23 9B09 9B37 9BEE 9BFC 9441
+603B 506C 6374 60E3 6121 63D4 6403 50AF 84D7 6460
+7DCF 7E02 7E3D 93D3
+7EB5 662E 75AD 500A 7314 7882 7CBD 7CC9 7632 7E26
+931D 7E31 7CED
+6F48
+90B9 9A7A 8BF9 90F0 966C 83C6 68F7 68F8 9112 7B83
+7DC5 8ACF 9139 9CB0 9BEB 9EC0 9A36 9F71 9F7A
+8D71 8D70
+594F 63CD 6971
+9BD0
+79DF 8445 84A9
+5346 8DB3 5352 54EB 5D12 5D2A 65CF 50B6 7BA4 8E24
+8E3F 955E 93C3
+8BC5 963B 7EC4 4FCE 723C 73C7 7956 7D44 8A5B 977B
+93BA
+94BB 8E9C 947D
+7E64 7F35 7E82 7E89 7C6B 7E98
+6525 945A
+539C 6718 55FA 6A36 87D5 7E97
+5D8A 5634 5DB5 567F 74BB
+682C 7D4A 9154 6700 666C 797D 7A21 7F6A 8FA0 69DC
+917B 855E 9189 6A87 92F7 930A 6A8C
+67A0 7A5D
+5C0A 58AB 58FF 5D9F 9075 6A3D 7E5C 7F47 940F 9CDF
+9C52 9DF7
+50D4 5642 6499 8B50
+6358 928C
+9D8E
+6628 79E8 838B 637D 690A 7422 7A13 7B70 923C
+5DE6 4F50 5528 7E53
+4F5C 5750 963C 5C9D 5C9E 600D 4FB3 795A 80D9 5511
+5EA7 888F 505A 8443 8444 98F5 7CF3
+5497 84D9
+__END__
+
+=head1 NAME
+
+Unicode::Collate::CJK::Pinyin - weighting CJK Unified Ideographs
+for Unicode::Collate
+
+=head1 SYNOPSIS
+
+    use Unicode::Collate;
+    use Unicode::Collate::CJK::Pinyin;
+
+    my $collator = Unicode::Collate->new(
+        overrideCJK => \&Unicode::Collate::CJK::Pinyin::weightPinyin
+    );
+
+=head1 DESCRIPTION
+
+C<Unicode::Collate::CJK::Pinyin> provides C<weightPinyin()>,
+that is adequate for C<overrideCJK> of C<Unicode::Collate>
+and makes tailoring of CJK Unified Ideographs in the order
+of CLDR's pinyin ordering.
+
+=head1 CAVEAT
+
+The pinyin ordering includes some characters that are not
+CJK Unified Ideographs and can't utilize C<weightPinyin()>
+for collation. For them, use C<entry> instead.
+
+=head1 SEE ALSO
+
+=over 4
+
+=item CLDR - Unicode Common Locale Data Repository
+
+L<http://cldr.unicode.org/>
+
+=item Unicode Locale Data Markup Language (LDML) - UTS #35
+
+L<http://www.unicode.org/reports/tr35/>
+
+=item L<Unicode::Collate>
+
+=item L<Unicode::Collate::Locale>
+
+=back
+
+=cut
diff --git a/lib/5.24.1/Unicode/Collate/CJK/Stroke.pm b/lib/5.24.1/Unicode/Collate/CJK/Stroke.pm
new file mode 100644
index 00000000..e40e6910
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/CJK/Stroke.pm
@@ -0,0 +1,2531 @@
+package Unicode::Collate::CJK::Stroke;
+
+use 5.006;
+use strict;
+use warnings;
+
+our $VERSION = '1.14';
+
+my %u2p;
+my $wt = 0x8000;
+
+while (<DATA>) {
+    last if /^__END__/;
+    my @c = split;
+    for my $c (@c) {
+	next if !$c;
+	$u2p{hex($c)} = $wt if $c !~ /-/;
+	$wt++;
+    }
+}
+
+sub weightStroke {
+    my $u = shift;
+    return exists $u2p{$u} ? $u2p{$u} : undef;
+}
+
+1;
+__DATA__
+FDD0-2801
+4E00 4E28 4E36 4E3F 4E40 4E41 2E84 4E59 4E5A 4E5B
+200CA 200CB 200CC 200CD 200D1 4E85 2010C 3006 3007 3021
+3025 303B
+FDD0-2802
+4E01 4E02 4E03 4E04 4E05 4E06 4E29 4E37 4E42 4E43
+4E44 20086 20087 2008A 4E5C 4E5D 4E86 2010E 4E8C 4EA0
+4EBA 4EBB 513F 5165 516B 2E86 5182 5196 51AB 2E87
+51E0 51F5 2E88 5200 5201 5202 529B 52F9 5315 531A
+5338 5341 2E8A 535C 5369 5382 53B6 2E80 53C8 5DDC
+8BA0 2ECF 2ED6 28E0F 3022 3024 3026
+FDD0-2803
+4E07 4E08 4E09 4E0A 4E0B 4E0C 4E90 5344 3404 4E2A
+4E2B 4E38 4E49 4E45 4E46 4E47 4E48 4E4A 4E5E 4E5F
+4E60 4E87 4E8D 4E8E 4E8F 4EA1 4EBC 4EBD 4EBE 4EBF
+5140 5166 51E1 51E2 51E3 5203 5204 529C 52FA 5342
+5343 353E 536A 536B 53C9 53E3 56D7 571F 58EB 5902
+590A 5915 5927 5928 5973 5B50 5B51 5B52 5B53 5B80
+5BF8 2E8C 2E8D 5C0F 5C22 21BC1 21BC2 5C38 5C6E 5C71
+5DDB 5DDD 21FE8 5DE5 5DF1 5DF2 5DF3 5DFE 5E72 4E61
+5E7A 5E7F 5EF4 5EFE 5F0B 5F13 2E95 5F50 5F51 5F61
+5F73 5FC4 624C 624D 6C35 72AD 7E9F 2EBE 8279 2ECC
+95E8 961D 98DE 9963 9A6C 3005 3023 3027
+FDD0-2804
+4E0D 4E0E 4E0F 4E10 4E11 4E12 4E13 4E2D 4E2E 4E2F
+4E30 4E39 4E3A 4E4B 4E4C 5C39 4E63 4E64 4E65 4E66
+4E88 4E91 4E92 4E93 4E94 4E95 4E96 4EA2 4EA3 4EC0
+4EC1 4EC2 4EC3 4EC4 4EC5 4EC6 4EC7 4EC8 4EC9 4ECA
+4ECB 4ECC 4ECD 4ECE 4ECF 4ED0 4ED1 4ED2 4ED3 5141
+5142 5143 5167 516C 516D 516E 516F 5183 5184 5185
+5186 5187 5188 34C1 5197 5198 51E4 20630 51F6 20676
+5205 5206 5207 5208 529D 529E 52FB 52FC 52FD 52FE
+52FF 5300 5301 5302 352B 5316 5339 533A 3539 5345
+5346 5347 5348 535D 535E 536C 5383 5384 5385 5386
+53B7 53B8 53B9 53CA 53CB 53CC 53CD 53CE 5720 5721
+2123C 58EC 5903 5929 592A 592B 592C 592D 5B54 5C10
+5C11 5C23 5C24 5C3A 5C6F 4E62 5C72 5DF4
+5DFF 5E00 5E01 5E7B 5EFF 5F00 5F0C 5F14 5F15 5F16
+5FC3 5FC6 6208 6236 6237 6238 624B 624E 22A66 652F
+6534 6535 6587 6597 65A4 65B9 65E0 65E1 2E9C 65E5
+66F0 2E9D 6708 6728 6729 233B4 6B20 6B62 6B79 6BB3
+6BCB 6BCC 6BD4 6BDB 6C0F 6C14 6C34 706B 706C 2EA5
+722A 722B 7236 723B 4E2C 723F 7247 3E26 7259 2EA7
+725B 725C 72AC 738B 248E9 793B 25605 7F53 8002 8080
+2EBC 89C1 8BA1 8BA2 8BA3 8BA4 8BA5 8D1D 8F66 2ECD
+8FB6 95E9 97E6 98CE 3028 3029
+FDD0-2805
+4E17 3400 4E14 4E15 4E16 4E18 4E19 4E1A 4E1B 4E1C
+4E1D 4E31 4E3B 4E3C 4E4D 4E4E 4E4F 4E50 20094 4E67
+4E97 3430 3431 3432 3433 3434 3435 3436 3437 4ED4
+4ED5 4ED6 4ED7 4ED8 4ED9 4EDA 4EDB 4EDC 4EDD 4EDE
+4EDF 4EE0 4EE1 4EE2 4EE3 4EE4 4EE5 4EE6 4EE7 4EE8
+4EE9 4EEA 4EEB 4EEC 4EED 201A9 201AB 5144 5145 34B0
+5170 5189 518A 518B 518C 20547 5199 519A 51AC 51AD
+51AE 51AF 51E5 51E6 51E7 51F7 51F8 51F9 51FA 51FB
+5209 520A 520B 520C 520D 529F 52A0 52A1 52A2 5303
+5304 5305 5306 5307 5317 531B 531C 531D 531E 5349
+534A 534C 535F 5360 5361 5362 536D 536E 536F 20A11
+5387 5388 5389 53BA 53BB 53BC 53CF 53D0 53D1 53E4
+53E5 53E6 53E7 53E8 53E9 53EA 53EB 53EC
+53ED 53EE 53EF 53F0 53F1 53F2 53F3 53F4 53F5 53F6
+53F7 53F8 53F9 53FA 53FB 53FC 53FD 53FE 20BA8 20BA9
+56D8 56D9 56DA 56DB 56DC 3626 5722 5723 5724 5725
+5726 5727 58ED 5904 5916 5917 5918 592E 592F 5930
+5931 5932 5933 5934 5974 5975 5976 5B55 5B81 5B82
+5B83 5B84 5BF9 5C12 5C13 5C14 5C15 5C3B 5C3C 5C73
+5C74 5C75 5C76 5C77 5DE6 5DE7 5DE8 3832 3833 5E02
+5E03 5E04 5E05 5E73 5E7C 5E80 5E81 5E82 5E83 5F01
+5F0D 5F17 5F18 5F52 38FA 5FC5 5FC7 5FC9 5FCA 225AF
+6209 620A 620B 6239 6250 6251 6252 6253 6254 6255
+6256 624F 65A5 65E6 65E7 2313D 66F1 672A 672B 672C
+672D 672E 672F 6730 6B63 6B7A 6BCD 6C10 6C11 6C15
+6C3A 6C36 6C37 6C38 6C39 6C3B 6C3E 6C3F
+6C40 6C41 6C43 6C44 6C45 6C47 6C48 6C49 706D 72AE
+72AF 72B0 7384 7389 738A 738C 738D 74DC 74E6 7518
+751F 7528 7529 7530 7531 7532 7533 7534 7535 2EAA
+758B 24D13 7592 7676 767D 76AE 76BF 76EE 77DB 77E2
+77F3 2EAC 793A 79B8 79BE 7A74 7ACB 7EA0 7F52 2626A
+2626B 808A 827A 8864 27607 8BA6 8BA7 8BA8 8BA9 8BAA
+8BAB 8BAC 8BAD 8BAE 8BAF 8BB0 8BB1 8F67 8FB7 9092
+9093 9485 957F 95EA 961E 961F 9964 9965 9A6D 9E1F
+9F99
+FDD0-2806
+3401 4E1E 4E1F 4E20 4E21 4E22 4E51 4E52 4E53 4E54
+4E68 4E69 4E6A 4E6B 4E6C 4E6D 4E6E 4E6F 4E70 4E89
+4E98 4E99 4E9A 342B 4EA4 4EA5 4EA6 4EA7 3438 3439
+343B 343F 3440 4EEE 4EEF 4EF0 4EF1 4EF2 4EF3 4EF4
+4EF5 4EF6 4EF7 4EF8 4EF9 4EFA 4EFB 4EFC 4EFD 4EFE
+4EFF 4F00 4F01 4F02 4F03 4F04 4F05 4F06 4F07 4F08
+4F09 4F0A 4F0B 4F0C 4F0D 4F0E 4F0F 4F10 4F11 4F12
+4F13 4F14 4F15 4F16 4F17 4F18 4F19 4F1A 4F1B 4F1C
+4F1D 4F1E 4F1F 4F20 4F21 4F22 4F23 4F24 4F25 4F26
+4F27 4F28 4F29 4F2A 4F2B 4F2C 4F64 201C1 201D4 5146
+5147 5148 5149 514A 5168 6C3D 5171 5172 5173 5174
+518D 518E 519B 519C 51B0 51B1 51B2 51B3 51B4 205B3
+51E8 51E9 51EA 51EB 51FC 520E 520F 5210
+5211 5212 5213 5214 5215 5216 5217 5218 5219 521A
+521B 52A3 52A4 52A5 52A6 52A7 52A8 5308 531F 5320
+5321 5322 353B 534B 534D 534E 534F 5350 5370 5371
+3542 538A 538B 538C 538D 53BD 53BE 53D2 3566 53FF
+5400 5401 5402 5403 5404 5405 5406 5407 5408 5409
+540A 540B 540C 540D 540E 540F 5410 5411 5412 5413
+5414 5415 5416 5417 20BBF 20BC6 56DD 56DE 56DF 56E0
+56E1 56E2 56E3 5728 5729 572A 572B 572C 572D 572E
+572F 5730 5731 5732 5733 5734 5735 5736 5737 5738
+5739 573A 2124F 58EE 5905 5919 591A 591B 5935 5936
+5937 5938 5939 593A 593B 593C 36A5 5977 5978 5979
+597A 597B 597C 597D 597E 597F 5980 5981 5982 5983
+5984 5985 5986 5987 5988 216B8 216BA 5B56
+5B57 5B58 5B59 21944 5B85 5B86 5B87 5B88 5B89 5BFA
+5BFB 5BFC 5C16 5C17 5C18 5C25 5C26 5C27 5C3D 21C2A
+5C70 5C78 5C79 5C7A 5C7B 5C7C 5C7D 5C7E 5C7F 5C80
+5C81 5C82 5C83 21D46 5DDE 5DDF 5DE9 5DEA 3834 3835
+3836 5E06 5E07 5E08 5E74 5E75 5E76 5E84 5E85 5E86
+5EF5 5F02 5F0E 5F0F 5F10 5F19 5F1A 5F1B 5F1C 5F53
+5F74 5F75 5FC8 5FCB 5FCF 5FD3 5FD4 5FD5 5FD6 5FD9
+5FDA 5FDB 225BE 620C 620D 620E 620F 6210 6257 6258
+6259 625A 625B 625C 625D 625E 6260 6261 6262 6263
+6264 6265 6266 6267 6268 6269 626A 626B 626C 625F
+6530 6536 6537 65E8 65E9 65EA 65EB 65EC 65ED 65EE
+65EF 3B30 66F2 66F3 6709 3B41 6731 6732 6733 6734
+6735 6736 6737 6738 6739 673A 673B 673C
+673D 673E 673F 6740 6741 6742 6743 6B21 6B22 6B64
+6B7B 6BCE 6BD5 6C12 6C16 6C17 6C18 6C3C 6C46 6C4A
+6C4B 6C4C 6C4D 6C4E 6C4F 6C50 6C51 6C52 6C53 6C54
+6C55 6C57 6C58 6C59 6C5A 6C5B 6C5C 6C5D 6C5F 6C60
+6C61 6C62 6C63 6C64 6C77 706E 706F 7070 7071 7072
+7073 7237 725D 725E 725F 72B1 72B2 72B3 72B4 72B5
+72B7 72B8 24725 3EA8 3EA9 3EAA 738E 738F 7390 7391
+752A 7536 767E 767F 2EAE 793C 7A75 7AF9 7C73 7CF8
+7CF9 7EA1 7EA2 7EA3 7EA4 7EA5 7EA6 7EA7 7EA8 7EA9
+7EAA 7EAB 7F36 7F51 2EB6 7F8A 2634B 2634C 7FBD 8001
+8003 800C 8012 8033 807F 26612 8089 808B 808C 808D
+808E 81E3 81EA 81F3 81FC 26951 820C 821B 821F 826E
+8272 8278 827B 827C 827D 827E 827F 8280
+8281 8282 864D 866B 8840 884C 8863 897E 897F 8980
+89C2 8BB2 8BB3 8BB4 8BB5 8BB6 8BB7 8BB8 8BB9 8BBA
+8BBB 8BBC 8BBD 8BBE 8BBF 8BC0 8D1E 8D1F 8D20 8D71
+8F68 8FB8 8FB9 8FBA 8FBB 8FBC 8FBD 9094 9096 9097
+9098 9099 909A 909B 909C 909D 9486 9487 95EB 95EC
+95ED 95EE 95EF 9620 9621 9622 9623 9624 9875 9966
+9967 9A6E 9A6F 9A70 9F50
+FDD0-2807
+4E23 4E24 4E25 4E3D 20021 4E32 20068 4E55 4E71 4E72
+4E8A 20118 4E9C 4EA8 4EA9 4EAA 3446 4F2D 4F2E 4F2F
+4F30 4F31 4F32 4F33 4F34 4F35 4F36 4F37 4F38 4F39
+4F3A 4F3B 4F3C 4F3D 4F3E 4F3F 4F40 4F41 4F42 4F43
+4F44 4F45 4F46 4F47 4F48 4F49 4F4A 4F4B 4F4D 4F4E
+4F4F 4F50 4F51 4F52 4F53 4F54 4F55 4F56 4F57 4F58
+4F59 4F5A 4F5B 4F5C 4F5D 4F5E 4F5F 4F60 4F61 4F62
+4F63 4F65 4F66 4F67 4F68 201F2 514B 514C 514D 514E
+514F 5150 5151 34B3 5175 518F 519D 34C8 51B5 51B6
+51B7 51B8 51B9 51BA 51BB 51EC 34DF 521C 521D 521E
+521F 5220 5221 5222 5223 5224 5225 5226 5227 5228
+5229 522A 522B 522C 522D 52A9 52AA 52AB 52AC 52AD
+52AE 52AF 52B0 52B1 52B2 52B3 52B4 5309
+208D5 3530 5323 5324 5325 3537 533B 5363 5364 5372
+5373 5374 5375 538E 538F 5390 5391 53BF 53D3 356D
+3570 3572 5418 5419 541A 541B 541C 541D 541E 541F
+5420 5421 5422 5423 5424 5425 5426 5427 5428 5429
+542A 542B 542C 542D 542E 542F 5430 5431 5432 5433
+5434 5435 5436 5437 5438 5439 543A 543B 543C 543D
+543E 543F 5440 5441 5442 5443 5444 5445 5446 5447
+5448 5449 544A 544B 544C 544D 544E 544F 5450 5451
+5452 5453 5454 5455 5456 5457 5458 5459 545A 545B
+545C 20BCB 20BE2 20BEB 20BFB 20BFF 56E4 56E5 56E6 56E7
+56E8 56E9 56EA 56EB 56EC 56ED 56EE 56EF 56F0 56F1
+56F2 56F3 56F4 56F5 3629 362B 362D 362E 3630 573B
+573C 573D 573E 573F 5740 5741 5742 5743
+5744 5745 5746 5747 5748 5749 574A 574B 574C 574D
+574E 574F 5750 5751 5752 5753 5754 5755 5756 5757
+5758 5759 575A 575B 575C 575D 575E 575F 5760 2127C
+58EF 58F0 58F1 58F2 58F3 5906 590B 593D 593E 593F
+5940 5941 5942 36AA 36AC 5989 598A 598B 598C 598E
+598F 5990 5991 5992 5993 5994 5995 5996 5997 5998
+5999 599A 599B 599C 599D 599E 599F 59A0 59A1 59A2
+59A3 59A4 59A5 59A6 59A7 59A8 59A9 59AA 59AB 216C0
+216C1 216C2 216D3 216D5 5B5A 5B5B 5B5C 5B5D 5B5E 5B8A
+5B8B 5B8C 5B8D 5B8E 5B8F 5B90 5B91 5B92 5BFD 5BFE
+5BFF 5C28 5C29 5C2A 5C2B 5C2C 5C3E 5C3F 5C40 5C41
+5C42 5C43 5C84 5C85 5C86 5C87 5C88 5C89 5C8A 5C8B
+5C8C 5C8E 5C8F 5C90 5C91 5C92 5C93 5C94
+5C95 5C96 5C97 5C98 5C99 5C9A 5C9B 5C9C 5C8D 5DE0
+5DEB 5DF5 3837 3838 3839 383B 5E09 5E0A 5E0B 5E0C
+5E0D 5E0E 5E0F 5E10 5E87 5E88 5E89 5E8A 5E8B 5E8C
+5E8D 5E8E 5E8F 5E90 5E91 5E92 5E93 5E94 5EF7 5F03
+5F04 5F05 5F1D 5F1E 5F1F 5F20 223BD 5F62 5F63 5F64
+5F76 5F77 5F78 5F79 5F7A 5F7B 3900 5FCC 5FCD 5FCE
+5FD0 5FD1 5FD2 5FD7 5FD8 5FDC 3908 5FDF 5FE1 5FE3
+5FE4 5FE6 5FE7 5FE8 5FEA 5FEB 5FEC 5FED 5FEE 5FEF
+5FF0 5FF1 5FF2 5FF3 5FF4 5FF6 5FF7 5FF8 5FF9 5FFA
+5FFB 5FFC 5FFE 6000 6003 6004 6005 6006 6211 6212
+6213 22993 623A 623B 623C 39D1 626D 626E 626F 6270
+6271 6272 6273 6274 6275 6276 6277 6279 627A 627B
+627C 627D 627E 6280 6281 6282 6283 6284
+6285 6286 6287 6288 6289 628A 628B 628C 628D 628E
+628F 6290 6291 6292 6293 6294 6295 6296 6297 6298
+6299 629A 629B 629C 629D 629E 629F 62A0 62A1 62A2
+62A3 62A4 62A5 6278 6538 6539 653A 653B 653C 22EEF
+6588 6598 65F0 65F1 65F2 65F3 65F4 65F5 65F6 65F7
+65F8 66F4 66F5 3B42 3B43 3B44 3B45 3B46 6744 6745
+6746 6747 6748 6749 674A 674B 674C 674D 674E 674F
+6750 6751 6752 6753 6754 6755 6756 6757 6758 6759
+675A 675B 675C 675D 675E 675F 6760 6761 6762 6763
+6764 6765 6766 6767 6768 6769 6781 233CC 6B24 3C50
+6B65 6B7C 239C2 6BCF 6BD0 23AEE 6BDC 6BDD 6C19 6C1A
+6C42 6C56 6C5E 6C65 6C66 6C67 6C68 6C69 6C6A 6C6B
+6C6D 6C6E 6C6F 6C70 6C71 6C72 6C73 6C74
+6C75 6C76 6C78 6C79 6C7A 6C7B 6C7C 6C7D 6C7E 6C7F
+6C81 6C82 6C83 6C84 6C85 6C86 6C87 6C88 6C89 6C8B
+6C8C 6C8D 6C8E 6C8F 6C90 6C91 6C92 6C94 6C95 6C96
+6C98 6C99 6C9A 6C9B 6C9C 6C9E 6C9F 6CA0 6CA1 6CA2
+6CA3 6CA4 6CA5 6CA6 6CA7 6CA8 6CA9 6CAA 23C99 23C9A
+23C9B 3DA5 7074 7075 7076 7077 7078 7079 707A 707B
+707C 707D 707E 707F 7080 7260 7261 7262 7263 7264
+24618 72B6 72B9 72BA 72BB 72BC 72BD 72BE 72BF 72C1
+72C2 72C3 72C4 72C5 72C6 72C7 72C8 2472F 3EAD 7392
+7393 7394 7395 7396 7397 7398 7399 739A 739B 248F0
+248F1 248F2 248F3 74E7 752B 752C 3F55 7537 7538 7539
+753A 753C 7593 7594 7595 7596 7597 7680 7681 7682
+7683 76C0 76C1 76EF 77E3 77F4 77F5 77F6
+25419 793D 4126 79BF 79C0 79C1 79C2 79C3 7A76 7A77
+7ACC 7ACD 7CFA 7CFB 7EB6 7EAC 7EAD 7EAE 7EAF 7EB0
+7EB1 7EB2 7EB3 7EB4 7EB5 7EB7 7EB8 7EB9 7EBA 7EBB
+7EBC 7EBD 7EBE 7F55 8034 8090 8091 8092 8093 8094
+8095 8096 8097 8098 8099 809A 809B 809C 809D 809E
+809F 80A0 81EB 826F 8283 8284 8285 8286 8287 8288
+8289 828A 828B 828C 828D 828E 828F 8290 8291 8292
+8293 8295 8296 8297 26B05 26B0A 866C 2760C 898B 89C3
+2EC6 89D2 278B2 8A00 8A01 8BC1 8BC2 8BC3 8BC4 8BC5
+8BC6 8BC7 8BC8 8BC9 8BCA 8BCB 8BCC 8BCD 8BCE 8BCF
+8BD0 8BD1 8BD2 8C37 8C46 8C55 8C78 8C9D 8D21 8D22
+8D64 8D70 2ECA 8DB3 8EAB 8ECA 8F69 8F6A 8F6B 8F9B
+8FB0 8FB5 5DE1 8FBE 8FBF 8FC0 8FC1 8FC2
+8FC3 8FC4 8FC5 8FC6 8FC7 8FC8 8FC9 28468 2846C 28473
+9091 909E 909F 90A0 90A1 90A2 90A3 90A4 90A5 90A6
+90A7 90A8 90A9 90AA 90AC 286AA 286AB 9149 91C6 91CC
+9488 9489 948A 948B 948C 95F0 95F1 95F2 95F3 95F4
+95F5 95F6 95F7 9625 9626 9627 9628 9629 962A 962B
+962C 962D 962E 962F 9630 9631 9632 9633 9634 9635
+9636 28E36 28E39 97E7 98CF 9968 9969 996A 996B 996C
+996D 996E 9A71 9A72 9A73 9A74 9E20 9E21 9EA6 9F9F
+FDD0-2808
+4E26 4E27 4E33 4E56 4E73 4E74 4E75 4E76 4E77 4E78
+200EE 4E8B 4E9B 4E9D 4E9E 4E9F 342D 4EAB 4EAC 4F4C
+344C 3450 4F69 4F6A 4F6B 4F6C 4F6D 4F6E 4F6F 4F70
+4F71 4F72 4F73 4F74 4F75 4F76 4F77 4F78 4F79 4F7A
+4F7B 4F7C 4F7D 4F7E 4F7F 4F80 4F81 4F82 4F83 4F84
+4F85 4F86 4F87 4F88 4F89 4F8A 4F8B 4F8C 4F8D 4F8E
+4F8F 4F90 4F91 4F92 4F93 4F94 4F95 4F96 4F97 4F98
+4F99 4F9A 4F9B 4F9C 4F9D 4F9E 4F9F 4FA0 4FA1 4FA2
+4FA3 4FA4 4FA5 4FA6 4FA7 4FA8 4FA9 4FAA 4FAB 4FAC
+4FAD 20204 2020C 20214 5152 5153 5154 5155 5156 20487
+5169 5176 5177 5178 5190 519E 51BC 51BD 51BE 51BF
+51C0 205C3 51ED 51EE 51EF 51FD 34E4 522E 522F 5230
+5231 5232 5233 5234 5235 5236 5237 5238
+5239 523A 523B 523C 523D 523E 523F 5240 5241 5242
+2070E 5246 351A 52B5 52B6 52B7 52B8 52B9 52BA 52BB
+52BC 52BD 52BE 52BF 52C6 530A 530B 530C 20916 5326
+533C 5351 5352 5353 5354 5355 5356 5365 5366 5367
+209E7 5376 5377 5378 5379 537A 5392 5393 5394 5395
+20A50 53C0 53C1 53C2 53D4 53D5 53D6 53D7 53D8 3577
+3578 545D 545E 545F 5460 5461 5462 5463 5464 5465
+5466 5467 5468 5469 546A 546B 546C 546D 546E 546F
+5471 5473 5474 5475 5476 5477 5478 5479 547A 547B
+547C 547D 547E 547F 5480 5481 5482 5483 5484 5485
+5486 5487 5488 5489 548A 548B 548C 548D 548E 548F
+5490 5491 5492 5493 5494 5495 5496 5497 5498 5499
+549A 549B 549C 549D 20C0B 20C0D 20C20 20C34
+20C3A 20C3B 20C41 20C42 20C43 3620 56F6 56F7 56F8 56F9
+56FA 56FB 56FC 56FD 56FE 3631 3632 3633 3634 3635
+5761 5762 5763 5764 5765 5766 5767 5768 5769 576A
+576B 576C 576D 576E 576F 5770 5771 5772 5773 5774
+5775 5776 5777 5778 5779 577A 577B 577C 577D 577E
+577F 5780 5781 5782 5783 5784 5785 5786 5787 5788
+5789 578A 212A8 212A9 212B0 5907 590C 591C 591D 5943
+5944 5945 5946 5947 5948 5949 594B 594C 594D 2160A
+5954 36B0 36B1 36B5 36B9 36BC 36C1 59AC 59AD 59AE
+59AF 59B0 59B1 59B2 59B3 59B4 59B5 59B6 59B7 59B8
+59B9 59BA 59BB 59BC 59BD 59BE 59BF 59C0 59C1 59C2
+59C3 59C4 59C5 59C6 59C7 59C8 59C9 59CA 59CB 59CC
+59CD 59CE 59CF 59D0 59D1 59D2 59D3 59D4
+59D6 59D7 216DF 216E6 216E7 216E8 216FA 216FB 216FC 216FE
+3740 5B5F 5B60 5B61 5B62 5B63 5B64 5B65 5B66 5B67
+21958 5B93 5B94 5B95 5B96 5B97 5B98 5B99 5B9A 5B9B
+5B9C 5B9D 5B9E 5B9F 5BA0 5BA1 219DB 5C00 5C19 5C1A
+5C2D 5C44 5C45 5C46 5C47 5C48 5C49 5C4A 37B9 37BE
+5C9D 5C9E 5C9F 5CA0 5CA1 5CA2 5CA3 5CA4 5CA5 5CA6
+5CA7 5CA8 5CA9 5CAA 5CAB 5CAC 5CAD 5CAE 5CAF 5CB0
+5CB1 5CB2 5CB3 5CB4 5CB5 5CB6 5CB7 5CB8 5CB9 5CBA
+5CBB 5CBC 5CBD 5CBE 5CBF 5CC0 5CC1 5CC2 5CC3 5CC4
+5CC5 21D90 3830 5DF6 5E11 5E12 5E13 5E14 5E15 5E16
+5E17 5E18 5E19 5E1A 5E1B 5E1C 2207E 5E77 5E78 5E98
+5E95 5E96 5E97 5E99 5E9A 5E9C 5E9D 5E9E 5E9F 5EF6
+38A0 5EF8 5EF9 5F06 5F21 5F22 5F23 5F24
+5F25 5F26 5F27 5F28 5F29 5F2A 223D0 5F54 5F55 38CC
+2248B 5F7C 5F7D 5F7E 5F7F 5F80 5F81 5F82 5F83 5F84
+5FDD 5FDE 5FE0 5FE2 5FE5 5FE9 5FF5 5FFD 5FFF 6001
+6002 3914 6007 6008 6009 600A 600B 600C 600D 600F
+6010 6011 6013 6014 6015 6016 6017 6019 601A 601B
+601C 601E 601F 6021 6022 6026 6027 6029 602A 602B
+602C 602D 602E 602F 6030 6032 6033 6034 6035 6036
+603A 603D 603E 603F 2261B 2261C 2262B 6214 6215 6216
+6217 623D 623E 623F 6240 627F 39D4 39D5 39D9 39DA
+39DC 39DD 39DE 39DF 62A6 62A7 62A8 62A9 62AA 62AB
+62AC 62AD 62AE 62AF 62B0 62B1 62B2 62B3 62B4 62B5
+62B6 62B7 62B8 62B9 62BA 62BB 62BC 62BD 62BE 62BF
+62C0 62C1 62C2 62C3 62C4 62C5 62C6 62C7
+62C8 62C9 62CA 62CB 62CC 62CD 62CE 62D0 62D1 62D2
+62D3 62D4 62D5 62D6 62D7 62D8 62D9 62DA 62DB 62DD
+62DE 62DF 62E0 62E1 62E2 62E3 62E4 62E5 62E6 62E7
+62E8 62E9 22ACF 22AD5 3A81 653D 653E 6589 23044 65A6
+65A7 65A8 65A9 65BA 65BB 65BC 230DA 65F9 65FA 65FB
+65FC 65FD 65FE 65FF 6600 6601 6602 6603 6604 6605
+6606 6607 6608 6609 660A 660B 660C 660D 660E 660F
+6610 6611 6612 6613 6614 6615 6616 6617 6618 6619
+66F6 3B33 670A 670B 670C 670D 3B47 3B48 3B49 3B4A
+3B4B 3B4C 3B4D 3B4E 3B4F 3B50 676A 676B 676C 676D
+676E 676F 6770 6771 6772 6773 6774 6775 6776 6777
+6778 6779 677A 677B 677C 677D 677E 677F 6780 6782
+6783 6784 6785 6786 6787 6788 6789 678A
+678B 678C 678D 678E 678F 6790 6791 6792 6793 6794
+6795 6796 6797 6798 6799 679A 679B 679C 679D 679E
+679F 67A0 67A1 67A2 67A3 67A4 67A5 67A6 67A7 67A8
+67A9 67AA 67AB 67AC 67AD 233DE 233E6 233F4 233F5 233F9
+233FA 233FE 23400 67F9 3C20 6B23 6B25 6B26 6B27 6B66
+6B67 6B68 6B69 6B7D 6B7E 6B7F 6B80 6B81 6BB4 6BD1
+6BDE 6BDF 6C13 6C1B 6C1C 6C1D 6C6C 6C80 6C8A 6C93
+6C9D 3CCB 3CCD 3CD1 6CAB 6CAC 6CAD 6CAE 6CB0 6CB1
+6CB2 6CB3 6CB4 6CB5 6CB6 6CB7 6CB8 6CB9 6CBA 6CBB
+6CBC 6CBD 6CBE 6CBF 6CC0 6CC1 6CC2 6CC3 6CC4 6CC5
+6CC6 6CC7 6CC8 6CCA 6CCB 6CCC 6CCD 6CCE 6CCF 6CD0
+6CD1 6CD2 6CD3 6CD4 6CD5 6CD6 6CD7 6CD8 6CD9 6CDB
+6CDC 6CDD 6CDE 6CDF 6CE0 6CE1 6CE2 6CE3
+6CE4 6CE5 6CE6 6CE7 6CE8 6CE9 6CEA 6CEB 6CEC 6CED
+6CEE 6CEF 6CF1 6CF2 6CF3 6CF7 6CF8 6CF9 6CFA 6CFB
+6CFC 6CFD 6CFE 23CB5 23CB7 23CC7 23CC8 23CC9 6D30 7087
+7081 7082 7083 7084 7085 7086 7088 7089 708A 708B
+708C 708D 708E 708F 7090 7091 7092 7093 7094 7095
+7096 7097 7098 7099 709A 709B 709C 709D 709E 241A3
+241A4 241A5 241AC 241B5 722C 722D 7238 7240 7248 3E2F
+7265 7266 7267 7268 7269 726A 726B 726C 2462A 72C0
+3E62 3E69 72C9 72CB 72CC 72CD 72CE 72CF 72D0 72D1
+72D2 72D3 72D4 72D5 72D6 72D7 72D8 72D9 72DA 72DB
+72DC 72DD 72DE 739C 739D 739E 739F 73A0 73A1 73A2
+73A3 73A4 73A5 73A6 73A7 73A8 73A9 73AA 73AB 73AC
+73AD 73AE 73AF 73B0 73B1 248FB 248FF 24900
+24901 2490C 74DD 74E8 74E9 7519 753B 753D 753E 753F
+7540 7541 7542 7543 7544 7545 758C 7598 7599 759A
+759B 759C 759D 759E 759F 75A0 75A1 7677 7684 76AF
+76C2 76F0 76F1 76F2 76F3 76F4 76F5 77E4 77E5 77F7
+77F8 77F9 77FA 77FB 77FC 77FD 77FE 77FF 7800 7801
+25425 793E 793F 7940 7941 7942 7943 79C4 79C5 79C6
+79C7 79C8 79C9 79CA 4192 7A78 7A79 7A7A 7A7B 41C4
+7ACE 7ACF 7AFA 7AFB 7C74 7C75 7C76 42B5 7CFC 7CFD
+7CFE 7CFF 7EBF 7EC0 7EC1 7EC2 7EC3 7EC4 7EC5 7EC6
+7EC7 7EC8 7EC9 7ECA 7ECB 7ECC 7ECD 7ECE 7ECF 7ED0
+7F37 7F54 7F56 7F57 7F59 7F8B 7F8C 8005 8013 8035
+8083 808F 43D9 80A1 80A2 80A3 80A4 80A5 80A6 80A7
+80A8 80A9 80AA 80AB 80AC 80AD 80AE 80AF
+80B0 80B1 80B2 80B3 80B4 80B5 80B6 80B7 80B8 80B9
+80BA 80BB 80BC 80BD 80BE 80BF 80C0 80C1 81E4 81E5
+81FD 81FE 820D 820E 820F 8220 8270 8298 8299 829A
+829B 829C 829D 829E 829F 82A0 82A1 82A2 82A3 82A4
+82A5 82A6 82A7 82A8 82A9 82AA 82AB 82AC 82AD 82AE
+82AF 82B0 82B1 82B2 82B3 82B4 82B5 82B6 82B7 82B8
+82B9 82BA 82BC 82BD 82BE 82C0 82C1 82C2 82C3 82C4
+82C5 82C6 82C7 82C8 82C9 82CA 82CB 82CC 82CD 82CE
+82CF 833E 26B13 26B15 26B28 82BF 864E 864F 866D 866E
+866F 8670 8671 8672 275E0 8865 8868 89C4 89C5 8BD3
+8BD4 8BD5 8BD6 8BD7 8BD8 8BD9 8BDA 8BDB 8BDC 8BDD
+8BDE 8BDF 8BE0 8BE1 8BE2 8BE3 8BE4 8BE5 8BE6 8BE7
+8BE8 8BE9 8C56 8D23 8D24 8D25 8D26 8D27
+8D28 8D29 8D2A 8D2B 8D2C 8D2D 8D2E 8D2F 8ECB 8F6C
+8F6D 8F6E 8F6F 8F70 8FCA 8FCB 8FCC 8FCD 8FCE 8FCF
+8FD0 8FD1 8FD2 8FD3 8FD4 8FD5 8FD6 8FD7 8FD8 8FD9
+8FDA 8FDB 8FDC 8FDD 8FDE 8FDF 8FEC FA24 28482 90AD
+90AE 90AF 90B0 90B1 90B2 90B3 90B4 90B5 90B6 90B7
+90B8 90B9 90BA 90BB 286BC 91C7 91D1 91D2 948D 948E
+948F 9490 9491 9492 9493 9494 9495 9496 9497 9577
+9578 9580 95F8 95F9 961C 9637 9638 9639 963A 963B
+963C 963D 963E 963F 9640 9641 9642 9643 9644 9645
+9646 9647 9648 9649 96B6 96B9 2ED7 96E8 9751 9752
+975E 9763 9876 9877 996F 9970 9971 9972 9973 9974
+9A75 9A76 9A77 9A78 9A79 9A7A 9A7B 9A7C 9A7D 9A7E
+9A7F 9A80 9C7C 9E22 9E23 9E24 9EFE 9F21
+9F7F
+FDD0-2809
+4E34 4E3E 4E57 3420 4E79 4E7A 4E7B 4E7C 4EAD 4EAE
+4EAF 4EB0 4EB1 4EB2 4FAE 4FAF 4FB0 4FB1 4FB2 4FB3
+4FB4 4FB5 4FB6 4FB7 4FB8 4FB9 4FBA 4FBB 4FBC 4FBD
+4FBE 4FBF 4FC0 4FC1 4FC2 4FC3 4FC4 4FC5 4FC6 4FC7
+4FC8 4FC9 4FCA 4FCB 4FCC 4FCD 4FCE 4FCF 4FD0 4FD1
+4FD2 4FD3 4FD4 4FD5 4FD6 4FD7 4FD8 4FD9 4FDA 4FDB
+4FDC 4FDD 4FDE 4FDF 4FE0 4FE1 4FE2 4FE3 4FE4 4FE5
+4FE6 4FE7 4FE8 4FE9 4FEA 4FEB 4FEC 4FED 2025B 5157
+5158 5159 2048E 516A 5179 517B 5191 5192 519F 51A0
+51C1 51C2 51C3 205CA 205D0 205D5 51FE 5243 5244 5245
+5247 5248 5249 524A 524B 524C 524D 524E 524F 5250
+5251 52C0 52C1 52C2 52C3 52C4 52C5 52C7 52C8 52C9
+52CA 52CB 530D 5327 5328 5329 533D 5357
+5358 537B 537C 537D 5396 5397 5398 5399 539A 539B
+53D9 53DA 53DB 53DC 53DD 5470 5472 3584 549E 549F
+54A0 54A1 54A2 54A3 54A4 54A5 54A6 54A7 54A8 54A9
+54AA 54AB 54AC 54AD 54AE 54AF 54B0 54B1 54B2 54B3
+54B4 54B5 54B6 54B7 54B8 54B9 54BA 54BB 54BC 54BD
+54BE 54BF 54C0 54C1 54C2 54C3 54C4 54C5 54C6 54C7
+54C8 54C9 54CA 54CB 54CC 54CD 54CE 54CF 54D0 54D1
+54D2 54D3 54D4 54D5 54D6 54D7 54D8 54D9 54DA 54DB
+54DC 54DD 54DE 54DF 20C53 20C65 20C77 20C78 20C7C 20C8D
+20C96 20C9C 3622 56FF 5700 211D9 3636 3637 3638 3639
+363B 363E 578B 578C 578D 578E 578F 5790 5791 5792
+5793 5794 5795 5796 5797 5798 5799 579A 579B 579C
+579D 579E 579F 57A0 57A1 57A2 57A3 57A4
+57A5 57A6 57A7 57A8 57A9 57AA 57AB 57AC 57AD 57AE
+57AF 57B0 57B1 57B2 57B3 57B4 57B5 57CE 212E3 58F4
+58F5 5908 5909 590D 369A 594E 594F 5950 5951 5952
+5953 5955 5956 21613 21619 59D5 36C3 36C4 36C5 36C7
+36C8 598D 59D8 59D9 59DA 59DB 59DC 59DD 59DE 59DF
+59E0 59E1 59E2 59E3 59E4 59E5 59E6 59E7 59E8 59E9
+59EA 59EB 59ED 59EE 59EF 59F0 59F1 59F2 59F3 59F4
+59F5 59F6 59F7 59F8 59F9 59FA 59FB 59FC 59FD 59FE
+59FF 5A00 5A01 5A02 5A03 5A05 5A06 5A07 5A08 2170D
+21710 21726 5A0D 5B68 5B69 5B6A 5BA2 5BA3 5BA4 5BA5
+5BA6 5BA8 5BA9 5BAA 5BAB 219F3 5C01 5C02 5C06 5C1B
+5C1C 5C1D 5C2E 5C2F 5C4B 5C4C 5C4D 5C4E 5C4F 5CC6
+5CC7 5CC8 5CC9 5CCA 5CCB 5CCC 5CCD 5CCE
+5CCF 5CD0 5CD1 5CD2 5CD3 5CD4 5CD5 5CD6 5CD7 5CD8
+5CD9 5CDA 5CDB 5CDC 5CDD 5CDE 5CDF 5CE0 5CE1 5CE2
+5CE3 5CE4 5CE5 5CE6 5CE7 21DB6 21DBA 21DCA 21DD1 5CF8
+5DEC 5DED 5DF7 5DF8 5DF9 5DFA 5DFB 5E1D 5E1E 5E1F
+5E20 5E21 5E22 5E23 5E24 5E25 5E26 5E27 2209A 5E7D
+5E9B 5EA0 5EA1 5EA2 5EA3 5EA4 5EA5 5EA6 22208 5EB0
+5EFA 5EFB 5EFC 22321 22325 5F07 5F08 5F2B 5F2C 5F2D
+5F2E 5F2F 223D7 5F56 5F65 5F66 5F85 5F86 5F87 5F88
+5F89 5F8A 5F8B 5F8C 5F8D 5F94 600E 6012 6018 601D
+6020 6023 6024 6025 6028 6031 6037 6038 6039 603B
+603C 3922 3926 3927 392D 6040 6042 6043 6044 6045
+6046 6047 6048 6049 604A 604C 604D 604E 6051 6052
+6053 6054 6057 6058 605B 605C 605E 605F
+6060 6061 6062 6064 6066 6068 606A 606B 606C 606E
+6070 6071 6072 6078 6079 607A 607B 607C 607D 22668
+6218 6241 6242 6243 39D8 62CF 62DC 39E1 39E2 39E5
+39E6 62EA 62EB 62EC 62ED 62EE 62EF 62F0 62F1 62F4
+62F5 62F6 62F7 62F8 62F9 62FA 62FB 62FC 62FD 62FE
+6300 6301 6302 6303 6304 6305 6306 6307 6309 630A
+630B 630C 630D 630E 630F 6311 6312 6313 6314 6315
+6316 6317 6318 631C 631D 631E 631F 6320 6321 6322
+6323 6324 6325 6326 6327 22AE6 22AE8 22B0E 22B22 6531
+653F 3A83 3A84 3A85 6540 6541 6542 6543 6544 6545
+3ABC 3ABD 65AA 65AB 3AC6 65BD 65BE 65BF 65C0 65E2
+3ADE 3AE0 661A 661B 661C 661D 661E 661F 6620 6621
+6622 6623 6624 6625 6626 6627 6628 6629
+662A 662B 662C 662D 662E 662F 6630 6631 6632 6633
+6634 6635 6636 6637 6638 6639 663A 663B 663C 663D
+663E 663F 2317D 23182 66F7 670E 670F 6710 6711 3B51
+3B52 3B53 3B54 3B55 3B56 3B57 67AE 67AF 67B0 67B1
+67B2 67B3 67B4 67B5 67B6 67B7 67B8 67B9 67BA 67BB
+67BC 67BE 67BF 67C0 67C1 67C2 67C3 67C4 67C5 67C6
+67C7 67C8 67C9 67CA 67CB 67CC 67CD 67CE 67CF 67D0
+67D1 67D2 67D3 67D4 67D5 67D6 67D7 67D8 67D9 67DA
+67DB 67DC 67DD 67DE 67DF 67E0 67E2 67E3 67E4 67E5
+67E6 67E7 67E8 67E9 67EA 67EB 67EC 67ED 67EE 67EF
+67F0 67F1 67F2 67F3 67F5 67F6 67F7 67F8 67FA 67FB
+67FC 67FD 67FE 67FF 6800 6801 6802 6803 6804 6805
+6806 6807 6808 6809 680A 680B 680C 680D
+680E 680F 6810 6811 6852 3C26 6B28 6B29 6B2A 3C54
+6B6A 6B6B 6B82 6B83 6B84 6B85 6B86 6B87 6BB5 6BB6
+6BD2 3C8B 6BD6 6BD7 6BD8 6BE0 6BE1 23B5A 6C1E 6C1F
+6C20 6C21 6C22 6C97 6CAF 6CC9 6CF4 6CF6 3CD6 3CDC
+6CDA 6CFF 6D00 6D01 6D02 6D03 6D04 6D05 6D06 6D07
+6D08 6D09 6D0A 6D0B 6D0C 6D0E 6D0F 6D10 6D11 6D12
+6D13 6D14 6D15 6D17 6D18 6D19 6D1A 6D1B 6D1D 6D1E
+6D1F 6D20 6D21 6D22 6D23 6D24 6D25 6D26 6D27 6D28
+6D29 6D2A 6D2B 6D2C 6D2D 6D2E 6D31 6D32 6D33 6D34
+6D35 6D36 6D37 6D38 6D39 6D3A 6D3B 6D3C 6D3D 6D3E
+6D3F 6D40 6D41 6D42 6D43 6D44 6D45 6D47 6D48 6D49
+6D4A 6D4B 6D4C 6D4D 6D4E 6D4F 6D50 6D51 6D52 6D53
+6D54 6D55 23CFC 23CFD 23CFE 23CFF 3DAD 709F
+70A0 70A1 70A2 70A3 70A4 70A5 70A6 70A7 70A8 70A9
+70AA 70AB 70AC 70AD 70AE 70AF 70B0 70B1 70B2 70B3
+70B4 70B5 70B6 70B7 70B8 70B9 70BA 70BB 70BC 70BD
+70BE 70BF 70C0 70C1 70C2 70C3 241CD 241E2 722E 722F
+7230 24505 723C 7241 7249 724A 726D 726E 726F 7270
+7271 7272 7273 7274 7275 72CA 72DF 72E0 72E1 72E2
+72E3 72E4 72E5 72E6 72E7 72E8 72E9 72EA 72EB 72EC
+72ED 72EE 72EF 72F0 72F1 72F2 2478F 7385 3EB1 73B2
+73B3 73B4 73B5 73B6 73B7 73B8 73B9 73BB 73BD 73BE
+73BF 73C0 73C1 73C2 73C3 73C4 73C5 73C6 73C7 73C8
+73C9 73CA 73CB 73CC 73CD 73CE 73CF 73D0 73D1 24916
+24917 24919 2492F 24933 24934 74EA 74EB 74EC 74ED 74EE
+74EF 74F0 74F1 74F2 751A 7520 752D 752E
+3F58 3F59 7546 7547 7548 7549 754A 754B 754C 754D
+754E 754F 7550 7551 7552 7553 3F7C 75A2 75A3 75A4
+75A5 75A6 75A7 75A8 75A9 75AA 75AB 75AC 75AD 75AE
+75AF 75BA 7678 7679 767A 7685 7686 7687 7688 76C3
+76C4 76C5 76C6 76C7 76C8 401D 76F6 76F7 76F8 76F9
+76FA 76FB 76FC 76FD 76FE 76FF 7700 7701 7702 7703
+7704 7705 7706 7707 7708 7709 770A 770B 770C 770D
+2512B 77DC 77E6 77E7 77E8 409A 6CF5 7802 7803 7804
+7805 7806 7807 7808 7809 780A 780B 780C 780D 780E
+780F 7810 7811 7812 7813 7814 7815 7816 7817 7818
+7819 781A 781B 781C 2542F 25430 4100 7944 7945 7946
+7947 7948 7949 794A 794B 794C 794D 794E 89C6 25635
+79B9 79BA 4132 79CB 79CC 79CD 79CE 79CF
+79D0 79D1 79D2 79D3 79D4 79D5 79D6 79D7 25772 4195
+7A7C 7A7D 7A7E 7A7F 7A80 7A81 7A82 7A83 25946 7AD0
+7AD1 7AD2 7AD3 7AD4 7AD5 7AD6 7AD7 7AFC 7AFD 7AFE
+7AFF 7B00 7B01 7B02 7B03 25AE9 427A 5A04 7C77 7C78
+7C79 7C7A 7C7B 7C7C 7C7D 7C7E 7C7F 7C80 7C81 7C82
+42B6 42B7 42B9 7D00 7D01 7D02 7D03 7D04 7D05 7D06
+7D07 7D08 7D09 7ED1 7ED2 7ED3 7ED4 7ED5 7ED6 7ED7
+7ED8 7ED9 7EDA 7EDB 7EDC 7EDD 7EDE 7EDF 4342 7F38
+7F58 7F5A 7F8D 7F8E 7F8F 7F91 26351 7FBE 7FBF 263F5
+263F8 8007 800D 800E 800F 8010 8011 8014 8036 8037
+43DF 80C2 80C3 80C4 80C5 80C6 80C7 80C8 80C9 80CA
+80CB 80CC 80CD 80CE 80CF 80D0 80D1 80D2 80D3 80D5
+80D6 80D7 80D8 80D9 80DA 80DB 80DC 80DD
+80DE 80DF 80E0 80E1 80E2 80E3 80E4 80E5 80E6 80E7
+80E8 80E9 80EA 80EB 8109 81F4 81FF 8221 8222 8223
+8224 8294 82D0 82D1 82D2 82D3 82D4 82D5 82D6 82D7
+82D8 82D9 82DA 82DB 82DC 82DD 82DE 82DF 82E0 82E1
+82E2 82E3 82E4 82E5 82E6 82E7 82E8 82E9 82EA 82EB
+82EC 82ED 82EE 82EF 82F0 82F1 82F2 82F3 82F4 82F5
+82F6 82F7 82F8 82F9 82FA 82FB 82FC 82FD 82FE 82FF
+8300 8301 8302 8303 8304 8305 8306 8307 8309 830A
+830B 830C 830D 830E 830F 8310 8311 8313 8314 8315
+26B50 26B51 26B52 26B53 26B5B 833A 8650 8673 8674 8675
+8676 8677 8678 8679 867A 867B 867C 867D 867E 867F
+8680 8681 8682 8683 460F 8841 8842 884D 884E 275E4
+8866 8867 8869 886A 886B 886C 27632 27639
+8981 898C 89C7 89C8 89C9 89D3 89D4 8A02 8A03 8A04
+8A05 8A06 8A07 8A08 8BEA 8BEB 8BEC 8BED 8BEE 8BEF
+8BF0 8BF1 8BF2 8BF3 8BF4 8BF5 8BF6 8C9E 8C9F 8CA0
+8D30 8D31 8D32 8D33 8D34 8D35 8D36 8D37 8D38 8D39
+8D3A 8D3B 8D72 8D73 8D74 8D75 8DB4 8ECC 8ECD 8F71
+8F72 8F73 8F74 8F75 8F76 8F77 8F78 8F79 8F7A 8F7B
+8FE0 8FE1 8FE2 8FE3 8FE4 8FE5 8FE6 8FE7 8FE8 8FE9
+8FEA 8FEB 8FED 8FEE 8FEF 8FF0 8FF1 8FF2 8FF3 90BC
+90BD 90BE 90BF 90C0 90C1 90C2 90C3 90C4 90C5 90C6
+90C7 90C8 90C9 90CA 90CB 90CD 90CE 90CF 90D0 90D1
+90D3 90D5 286D8 286E6 90F1 914A 914B 91CD 91D3 91D4
+9498 9499 949A 949B 949C 949D 949E 949F 94A0 94A1
+94A2 94A3 94A4 94A5 94A6 94A7 94A8 94A9
+94AA 94AB 94AC 94AD 94AE 94AF 9581 9582 95FA 95FB
+95FC 95FD 95FE 95FF 9600 9601 9602 964A 964B 964C
+964D 964E 964F 9650 9651 9652 9653 9654 9655 28E65
+28E66 9762 9769 97CB 97E8 97ED 97F3 9801 9878 9879
+987A 987B 98A8 98D0 98D1 98D2 98DB 2EDE 98DF 98E0
+9975 9976 9977 9978 9979 997A 997B 997C 9996 29810
+9999 9A81 9A82 9A83 9A84 9A85 9A86 9A87 9A88 9A89
+2EE3 9CEC 9E25 9E26 9E27 9E28 9E29
+FDD0-280A
+2003E 4E35 4E58 4E7D 4EB3 3465 3466 4FEE 4FEF 4FF0
+4FF1 4FF2 4FF3 4FF4 4FF5 4FF6 4FF7 4FF8 4FF9 4FFA
+4FFB 4FFC 4FFD 4FFE 4FFF 5000 5001 5002 5003 5004
+5005 5006 5007 5008 5009 500A 500B 500C 500D 500E
+500F 5010 5011 5012 5013 5014 5015 5016 5017 5018
+5019 501A 501B 501C 501D 501E 501F 5020 5021 5022
+5023 5024 5025 5026 5027 5028 5029 502A 502B 502C
+502D 502E 502F 5030 5031 5032 5033 5034 5035 5036
+5037 5038 5039 503A 503B 503C 503D 503E 503F 20274
+20275 20299 2029E 202A0 5056 515A 515B 20491 20492 517A
+517C 5193 5194 51A1 51A2 51A3 51A4 51A5 51A6 51A7
+2058E 51C4 51C5 51C6 51C7 51C8 51C9 51CA 51CB 51CC
+51CD 51CE 205DF 205E0 20656 5252 5253 5254
+5255 5256 5257 5258 5259 525A 525B 525C 525D 525E
+525F 5260 5261 5262 5263 5264 5265 5266 5267 20731
+52CC 52CD 52CE 52CF 52D0 52D1 20873 530E 532A 532B
+537F 539C 539D 539E 539F 8652 53DE 53DF 3597 3598
+54E0 54E1 54E2 54E3 54E4 54E5 54E6 54E7 54E8 54E9
+54EA 54EB 54EC 54ED 54EE 54EF 54F0 54F1 54F2 54F3
+54F4 54F5 54F6 54F7 54F8 54F9 54FA 54FB 54FC 54FD
+54FE 54FF 5500 5501 5502 5503 5504 5505 5506 5507
+5508 5509 550A 550B 550D 550E 550F 5510 5511 5512
+5513 5514 5515 5516 5517 5518 5519 551A 551B 551C
+551D 551E 551F 5520 5521 5522 5523 5524 5525 5526
+5527 20CB5 20CB8 20CCF 20CD3 20CD4 20CD5 20CD6 20CDD 20CED
+20CFF 20D15 3623 5701 5702 5703 5704 5705
+5706 57B6 57B7 57B8 57B9 57BA 57BB 57BC 57BD 57BE
+57BF 57C0 57C1 57C2 57C3 57C4 57C5 57C6 57C7 57C8
+57C9 57CA 57CB 57CC 57CD 57CF 57D0 57D1 57D2 57D3
+57D4 57D5 57D6 57D7 57D8 57D9 57DA 57DB FA0F 212FE
+21302 21303 21304 21305 5832 58F6 590E 590F 591E 21596
+594A 5957 5958 5959 595A 36CE 36D1 36D3 36D4 36D6
+36DD 36E1 36E2 59EC 5A09 5A0A 5A0B 5A0C 5A0E 5A0F
+5A10 5A11 5A12 5A13 5A14 5A15 5A16 5A17 5A18 5A19
+5A1A 5A1B 5A1C 5A1D 5A1E 5A1F 5A20 5A21 5A22 5A23
+5A24 5A25 5A26 5A27 5A28 5A29 5A2A 5A2D 5A2E 5A2F
+5A30 5A31 5A32 5A33 5A34 2173A 2173B 2173C 21757 3743
+5B6B 5B6C 5B6D 2196A 5BA7 5BAC 5BAD 5BAE 5BAF 5BB0
+5BB1 5BB2 5BB3 5BB4 5BB5 5BB6 5BB7 5BB8
+5BB9 5BBA 5BBB 5BBC 5BBD 5BBE 5C03 5C04 5C05 3797
+5C50 5C51 5C52 5C53 5C54 5C55 5C56 5C57 5C58 21C70
+5CE8 5CE9 5CEA 5CEB 5CEC 5CED 5CEE 5CEF 5CF0 5CF1
+5CF2 5CF3 5CF4 5CF5 5CF6 5CF7 5CF9 5CFA 5CFB 5CFC
+5CFD 5CFE 5CFF 5D00 5D01 5D02 5D03 5D04 5D05 21DEB
+21DF9 382B 5DEE 5DFC 5E28 5E29 5E2A 5E2B 5E2C 5E2D
+5E2E 5E2F 5E30 5E31 220C7 221C3 5EA7 5EA8 5EA9 5EAA
+5EAB 5EAC 5EAD 5EAE 5EAF 5EFD 5F09 5F30 5F31 5F32
+5F33 5F67 5F68 22491 5F8E 5F8F 5F90 5F91 5F92 5F93
+5F95 224ED 3920 392B 6041 604B 604F 6050 6055 6056
+6059 605A 605D 6063 6065 6067 6069 606D 606F 6073
+6074 6075 6076 6077 3931 3933 3934 3936 3937 3938
+3939 607E 6080 6081 6082 6083 6084 6085
+6087 6088 608B 608C 608D 608E 608F 6091 6092 6093
+6094 6095 6096 6097 6099 609A 609B 609C 609D 609E
+609F 60A2 60A6 60A7 60A9 60AD 60AE 60AF 2267A 22696
+22698 6219 6244 6245 6246 6247 39EC 62F2 62F3 62FF
+6308 6310 6319 631A 631B 39F8 6328 6329 632A 632B
+632C 632D 632E 632F 6330 6331 6333 6334 6335 6336
+6337 6338 6339 633A 633C 633D 633E 633F 6340 6341
+6342 6343 6344 6345 6346 6347 6348 6349 634A 634B
+634C 634D 634E 634F 6350 6351 6352 6353 6354 6355
+6356 6357 6358 6359 635A 635B 635C 635D 635E 635F
+6360 6361 6362 6363 6364 22B3F 22B43 22B6A 63E4 3A87
+3A88 3A89 6546 6547 6548 6549 654A 654B 654C 2304B
+658A 658B 6599 659A 3AC9 65C1 65C2 65C3
+65C4 65C5 65C6 65CA 6640 6641 6642 6643 6644 6645
+6646 6647 6648 6649 664A 664B 664C 664D 664E 664F
+6650 6651 6652 6653 6654 6655 6656 231A4 231A5 665F
+6660 66F8 66FA 66FB 3B34 3B35 6712 6713 6714 6715
+6717 67BD 67E1 67F4 3B58 3B59 3B5A 3B5B 3B5C 3B5D
+3B5E 3B5F 3B60 3B61 3B62 3B63 3B64 3B65 3B66 3B67
+6812 6813 6814 6815 6816 6817 6818 6819 681A 681B
+681C 681D 681E 681F 6820 6821 6822 6823 6824 6825
+6826 6827 6828 6829 682A 682B 682C 682D 682E 682F
+6830 6831 6832 6833 6834 6835 6836 6837 6838 6839
+683A 683B 683C 683D 683E 683F 6840 6841 6842 6843
+6844 6845 6846 6847 6848 6849 684A 684B 684C 684D
+684E 684F 6850 6851 6853 6854 6855 6856
+6857 6858 6859 685A 685B 685C 685D 685E 685F 6860
+6861 6862 6863 6864 6865 6866 6867 6868 6869 686A
+2343F 23450 2346F 23472 6B2B 6B2C 6B2D 6B2E 6B2F 6B30
+6B31 6B34 6B6C 6B6D 3C61 6B88 6B89 6B8A 6B8B 6BB7
+6BD9 6BE2 6BE3 6BE4 6BE5 6BE6 6BE7 6BE8 6BE9 6BEA
+6C23 6C24 6C25 6C26 6C27 6C28 6C29 6CF0 6D1C 6D2F
+6D46 3CEF 6D0D 6D16 6D56 6D57 6D58 6D59 6D5A 6D5B
+6D5C 6D5D 6D5E 6D5F 6D60 6D61 6D62 6D63 6D64 6D65
+6D66 6D67 6D68 6D69 6D6A 6D6B 6D6C 6D6D 6D6E 6D6F
+6D70 6D71 6D72 6D73 6D74 6D75 6D76 6D77 6D78 6D79
+6D7A 6D7B 6D7C 6D7D 6D7E 6D7F 6D80 6D81 6D82 6D83
+6D84 6D85 6D86 6D87 6D88 6D89 6D8A 6D8B 6D8C 6D8D
+6D8F 6D90 6D91 6D92 6D93 6D94 6D95 6D96
+6D97 6D98 6D9A 6D9B 6D9C 6D9D 6D9E 6D9F 6DA0 6DA1
+6DA2 6DA3 6DA4 6DA5 6DA6 6DA7 6DA8 6DA9 23D40 23D5B
+3DB4 70C4 70C5 70C6 70C7 70C8 70C9 70CA 70CB 70CC
+70CD 70CE 70CF 70D0 70D1 70D2 70D3 70D4 70D5 70D6
+70D7 70D8 70D9 70DA 70DB 70DC 70DD 70DE 70DF 70E0
+70E1 70E2 70E3 70E4 70E5 70E6 70E7 70E8 70E9 70EA
+70EB 70EC 70ED 70EE 241FC 2421B 7231 7239 7242 24578
+3E20 7276 7277 7278 7279 727A 3E74 72F3 72F4 72F5
+72F6 72F7 72F8 72F9 72FA 72FB 72FC 72FD 72FE 7300
+7301 7302 7303 7386 3EB8 73BA 73BC 3EBF 3EC2 3EC7
+73D2 73D3 73D4 73D5 73D6 73D7 73D8 73D9 73DA 73DB
+73DC 73DD 73DE 73DF 73E0 73E1 73E2 73E3 73E4 73E5
+73E6 73E7 73E8 73E9 73EA 73EB 73EC 73ED
+73EE 73EF 73F0 73F1 73F2 7409 2493E 2493F 24940 24941
+24942 24943 73F9 74DE 74DF 74F3 74F4 74F5 7521 7554
+7555 7556 7557 7558 7559 755A 755B 755C 755D 755E
+755F 758D 75B0 75B1 75B2 75B3 75B4 75B6 75B7 75B8
+75B9 75BB 75BC 75BD 75BE 75BF 75C0 75C1 75C2 75C3
+75C4 75C5 75C6 75C7 75C8 75C9 7560 768A 768B 768C
+768D 24F5C 3FED 76B0 76B1 4000 76C9 76CA 76CB 76CC
+76CD 76CE 76CF 76D0 76D1 25052 4026 770E 770F 7710
+7711 7712 7713 7714 7715 7716 7717 7718 7719 771A
+771B 771C 771D 771E 771F 7720 7721 7722 7723 7724
+7727 7728 7729 772A 772B 772C 773F 25148 77DD 77E9
+40A8 781D 781E 781F 7820 7821 7822 7823 7824 7825
+7827 7828 7829 782A 782B 782C 782D 782E
+782F 7830 7831 7832 7833 7834 7835 7836 7837 7838
+7839 783A 783B 783C 783D 783E 783F 7840 7841 25446
+2546C 2546E 4103 794F 7950 7951 7952 7953 7954 7955
+7956 7957 7958 7959 795A 795B 795C 795D 795E 795F
+7960 7962 25651 2573D 79D8 79D9 79DA 79DB 79DC 79DD
+79DE 79DF 79E0 79E1 79E2 79E3 79E4 79E5 79E6 79E7
+79E8 79E9 79EA 79EB 79EC 79ED 79EE 79EF 79F0 7A84
+7A85 7A86 7A87 7A88 7A89 7A8A 7A8B 7A8C 7A8D 7A8E
+25956 41CA 7AD8 7AD9 7ADA 7ADB 7ADC 7ADD 7ADE 41D7
+41DB 7B05 7B06 7B07 7B08 7B09 7B0A 7B0B 7B0C 7B0D
+7B0E 7B0F 7B10 7B11 7B12 7B13 7B14 7B15 7B04 7C83
+7C84 7C85 7C86 7C87 7C88 7C89 7C8A 7C8B 7C8C 7C8D
+7C8E 7C8F 7C90 7C91 42BC 7D0A 7D0B 7D0C
+7D0D 7D0E 7D0F 7D10 7D11 7D12 7D13 7D14 7D15 7D16
+7D17 7D18 7D19 7D1A 7D1B 7D1C 7D1D 7D1E 7D1F 7D20
+7D21 7D22 7D23 7D24 7D25 7D26 7D27 7EE0 7EE1 7EE2
+7EE3 7EE4 7EE5 7EE6 7EE7 7EE8 4343 7F39 7F3A 7F3C
+7F5B 7F5C 7F5D 7F5E 7F5F 7F60 7F61 7F62 7F90 7F92
+7F93 7F94 7F96 7F97 7F98 7F99 7FC0 7FC1 7FC2 7FC3
+7FC4 7FC5 7FC6 26402 26410 26411 26412 8004 8006 800A
+8015 8016 8017 8018 8019 8038 8039 803A 803B 803C
+803D 803E 803F 8040 8041 8042 8081 8082 43ED 80ED
+80EE 80EF 80F0 80F1 80F2 80F3 80F4 80F5 80F6 80F7
+80F8 80F9 80FA 80FB 80FC 80FD 80FF 8100 8101 8102
+8103 8104 8105 8106 8107 8108 810A 810B 810C 810D
+810E 810F 8110 8111 8112 8113 266AF 266B1
+266B5 81EC 81ED 26939 8200 8201 8210 4465 8225 8226
+8227 8228 8229 822A 822B 822C 822D 822E 822F 8230
+8231 8273 449F 44A0 44A2 82BB 8308 8316 8317 8318
+8319 831A 831B 831C 831E 831F 8320 8321 8322 8324
+8325 8326 8327 8328 8329 832A 832B 832C 832D 832E
+832F 8330 8331 8332 8333 8334 8335 8336 8337 8338
+8339 833C 833D 833F 8340 8341 8342 8343 8344 8345
+8347 8348 8349 834A 834B 834C 834D 834E 834F 8350
+8351 8352 8354 8355 8356 8357 8358 835A 835B 835C
+835D 835E 835F 8360 8361 8362 8363 8364 8365 8366
+8367 8368 8369 836A 836C 836D 836E 836F 26B75 26B82
+26B96 26B97 26B9D 26BB3 8353 8651 8653 8654 8684 8685
+8686 8687 8689 868A 868B 868C 868D 868E
+868F 8690 8691 8692 8693 8694 8695 8696 8697 8698
+8699 869A 869B 869C 869D 869E 869F 86A0 86A1 86A2
+86A3 86A4 86A5 86A6 86A7 86A8 86A9 86AA 86AC 8843
+8844 4615 884F 886D 886E 886F 8870 8871 8872 8873
+8874 8875 8876 8877 8878 8879 887A 887B 887C 887D
+887E 887F 8880 8881 8882 8883 8884 8885 8886 8887
+27655 27656 27657 898D 898E 89CA 8A09 8A0A 8A0B 8A0C
+8A0D 8A0E 8A0F 8A10 8A11 8A12 8A13 8A14 8A15 8A16
+8A17 8A18 8A19 8A1A 27967 8BF7 8BF8 8BF9 8BFA 8BFB
+8BFC 8BFD 8BFE 8BFF 8C00 8C01 8C02 8C03 8C04 8C05
+8C06 8C07 8C08 8C09 8C0A 8C38 8C47 8C48 8C57 8C79
+8C7A 8C7B 8CA1 8CA2 8CA3 8CA4 27D2F 8D3C 8D3D 8D3E
+8D3F 8D40 8D41 8D42 8D43 8D44 8D45 8D46
+4798 8D76 8D77 8D78 47D5 8DB5 8DB6 8DB7 8DB8 8EAC
+8ECE 8ECF 8ED0 8ED1 8ED2 8ED3 8ED4 8ED5 8F7C 8F7D
+8F7E 8F7F 8F80 8F81 8F82 8F83 8FB1 8FF4 8FF5 8FF6
+8FF7 8FF8 8FF9 8FFA 8FFB 8FFC 8FFD 8FFE 8FFF 9000
+9001 9002 9003 9004 9005 9006 9007 9008 9009 900A
+9095 90D6 90D7 90D8 90D9 90DA 90DB 90DC 90DD 90DE
+90DF 90E0 90E1 90E2 90E3 90E4 90E5 90E6 90E7 914C
+914D 914E 914F 9150 9151 9152 91D5 91D6 91D7 91D8
+91D9 91DA 91DB 91DC 91DD 91DE 91DF 91E0 91E1 91E2
+94B0 94B1 94B2 94B3 94B4 94B5 94B6 94B7 94B8 94B9
+94BA 94BB 94BC 94BD 94BE 94BF 94C0 94C1 94C2 94C3
+94C4 94C5 94C6 94C7 94C8 94C9 94CA 94CB 94CC 94CD
+94CE 9583 9584 9585 28CCA 28CCD 9603 9604
+9605 9606 9656 9657 9658 9659 965B 965C 965D 965E
+965F 9660 9661 9662 9663 9664 9665 9666 9667 9668
+9669 965A 28E97 96BA 96BB 96BC 96BD 96BE 987C 987D
+987E 987F 9880 9881 9882 9883 9884 98E2 98E3 98E4
+997D 997E 997F 9980 9981 9982 99AC 9A8A 9A8B 9A8C
+9A8D 9A8E 9A8F 9AA8 9AD8 9ADF 9B25 9B2F 9B32 9B3C
+9C7D 9E2A 9E2B 9E2C 9E2D 9E2E 9E2F 9E30 9E31 9E32
+9E33 9E34 9E35 9E36 9F80
+FDD0-280B
+3422 4E7E 4E7F 4E80 3464 5040 5041 5042 5043 5044
+5045 5046 5047 5048 5049 504A 504B 504C 504D 504E
+504F 5050 5051 5052 5053 5054 5055 5057 5058 5059
+505A 505B 505C 505D 505E 505F 5060 5061 5062 5063
+5064 5065 5066 5067 5069 506A 506B 506C 506D 506E
+506F 5070 5071 5072 5073 5074 5075 5076 5077 5078
+5079 507A 507B 507C 507D 507E 507F 202B7 202BF 202C0
+202E5 515C 515D 515E 517D 34BC 5195 51A8 51CF 51D0
+51D1 205EB 51F0 5268 526A 526B 526C 526D 526E 526F
+5270 5271 5276 20779 3520 52D2 52D3 52D4 52D5 52D6
+52D8 52D9 52DA 530F 5310 5313 352D 5318 5319 3531
+532C 532D 532E 533E 533F 5340 5359 5368 537E 53A0
+53A1 53A2 53A3 53A9 53C3 53C4 550C 35A1
+35A5 35AD 5528 5529 552A 552B 552C 552D 552E 552F
+5530 5531 5532 5533 5534 5535 5536 5537 5538 5539
+553A 553B 553C 553D 553E 553F 5540 5541 5542 5543
+5544 5545 5546 5547 5548 5549 554A 554B 554C 554D
+554E 554F 5550 5551 5552 5553 5554 5555 5556 5557
+5558 555A 555B 555C 555D 555E 5560 5561 5562 5563
+5564 5565 5566 5567 5568 5569 556A 556C 556D 556E
+556F 5570 5571 5572 5573 5574 5575 5576 5577 5578
+5579 20D28 20D31 20D32 20D46 20D47 20D48 20D49 20D4C 20D4D
+20D4E 20D6F 20D71 20D74 20D7C 20D7E 20D7F 20D96 20D9C 20DA7
+20DB2 556B 55B6 5707 5708 5709 570A 570B 570F 3647
+3648 3649 57DC 57DD 57DE 57DF 57E0 57E1 57E2 57E3
+57E4 57E5 57E6 57E7 57E8 57E9 57EB 57EC
+57ED 57EE 57EF 57F0 57F1 57F2 57F3 57F4 57F5 57F6
+57F7 57F8 57F9 57FA 57FB 57FC 57FD 57FE 57FF 5800
+5801 5802 5803 5804 5805 5806 5807 5808 5809 580A
+580B 580C 580D 580E 580F 5810 5811 5812 5813 5814
+5815 21336 2133A 57EA 5835 58F7 58F8 591F 5920 595B
+595C 595D 595E 2163E 595F 5962 5A2B 5A3D 36E5 36E6
+5A2C 5A35 5A36 5A37 5A38 5A39 5A3A 5A3B 5A3C 5A3E
+5A3F 5A40 5A41 5A42 5A43 5A44 5A45 5A46 5A47 5A48
+5A49 5A4A 5A4B 5A4C 5A4D 5A4E 5A4F 5A50 5A51 5A52
+5A53 5A54 5A55 5A56 5A57 5A58 5A59 5A5A 5A5B 5A5C
+5A5D 5A5E 5A5F 5A60 5A61 5A62 5A63 5A64 5A65 5A66
+5A67 5A68 5A69 5A6A 5A6B 5A6C 5A6D 5A6E 5A6F 5A70
+5A71 5A72 5A73 5A74 5A75 5A76 2176C 2176D
+2176E 2176F 21770 21771 21773 21774 5A8E 5B6E 5B6F 5B70
+5B72 5BBF 5BC0 5BC1 5BC2 5BC3 5BC4 5BC5 5BC6 5BC7
+5BC8 5BC9 21A2D 21A34 5C07 5C08 5C09 5C59 5C5A 5C5B
+5C5C 5C5D 5C60 5D06 5D07 5D08 5D09 5D0A 5D0B 5D0C
+5D0D 5D0E 5D0F 5D10 5D11 5D12 5D13 5D14 5D15 5D16
+5D17 5D18 5D19 5D1A 5D1B 5D1C 5D1D 5D1E 5D1F 5D20
+5D21 5D22 5D23 5D24 5D25 5D26 5D27 5D28 5D29 5D2A
+5D2B 5D2C 5D2D 5D2E 5D2F 5D30 21E1C 21E37 21E3D 5DE2
+5DE3 3831 5E32 5E33 5E34 5E35 5E36 5E37 5E38 5E39
+5E3A 5E3B 5E3C 5E3E 5EB1 5EB2 5EB3 5EB4 5EB5 5EB6
+5EB7 5EB8 5EB9 5EBA 5EBB 5EBC 5EBE 5F34 5F35 5F36
+5F37 5F38 5F39 223FA 5F57 5F69 5F6B 5F6C 5F96 5F97
+5F98 5F99 5F9B 5F9C 5F9D 5F9E 5F9F 5FA0
+5FA1 5FA2 5FA3 5FA4 22513 2251B 3930 3932 3935 393B
+607F 6086 6089 608A 6090 6098 60A0 60A1 60A3 60A4
+60A5 60A8 60AA 60AB 60AC 393F 394D 60B0 60B1 60B4
+60B5 60B7 60B8 60BA 60BB 60BC 60BD 60BE 60BF 60C0
+60C2 60C3 60C5 60C6 60C7 60C8 60CA 60CB 60CD 60CF
+60D0 60D3 60D4 60D5 60D7 60D8 60D9 60DA 60DB 60DC
+60DD 60DE 60DF 60E4 60E6 60E7 60E8 60EC 60ED 60EE
+60EF 226F4 226F5 226F6 22712 22714 2271B 2271F 621A 621B
+621C 621D 6248 6332 633B 39FB 39FE 3A00 3A01 3A02
+3A03 3A04 3A06 6365 6366 6367 6368 6369 636A 636B
+636C 636D 636E 636F 6370 6371 6372 6373 6374 6375
+6376 6377 6378 6379 637A 637B 637C 637D 637E 637F
+6380 6381 6382 6383 6384 6385 6386 6387
+6388 6389 638A 638B 638D 638E 638F 6390 6391 6392
+6393 6395 6396 6397 6398 6399 639A 639B 639C 639D
+639E 639F 63A0 63A1 63A2 63A4 63A5 63A6 63A7 63A8
+63A9 63AA 63AB 63AC 63AD 63AE 63AF 63B3 63B4 63B5
+63B6 63B7 63B8 63B9 63BA 63BB 63BC 63BD 22BCA 22BCE
+63B2 3A8A 3A8B 3A8C 3A8D 3A8E 555F 654D 654E 654F
+6550 6551 6552 6553 6554 6555 6556 6557 6558 6559
+655A 655B 655D 658D 658E 658F 659B 659C 65AC 65AD
+3ACB 65C7 65C8 65C9 65CB 65CC 65CD 65CE 65CF 65E3
+3AF0 3AF2 52D7 6657 6658 6659 665A 665B 665C 665D
+665E 6661 6662 6663 6664 6665 6666 6667 6668 6669
+66FD 231B3 231C8 231C9 66F9 66FC 3B36 3B37 6716 6718
+6719 671A 671B 3B68 3B69 3B6A 3B6B 3B6C
+3B6D 3B6E 3B6F 3B70 3B71 3B72 3B73 3B74 3B75 3B77
+686B 686C 686D 686E 686F 6870 6871 6872 6873 6874
+6875 6876 6877 6878 6879 687A 687B 687C 687D 687E
+687F 6880 6881 6882 6883 6884 6885 6886 6887 6888
+6889 688A 688B 688C 688D 688E 688F 6890 6891 6892
+6893 6894 6895 6896 6897 6898 6899 689A 689B 689C
+689D 689E 689F 68A0 68A1 68A2 68A3 68A4 68A5 68A6
+68A7 68A8 68A9 68AA 68AB 68AC 68AD 68AE 68AF 68B0
+68B1 68B2 68B3 68B5 68B6 68B7 68B8 68B9 68BA 68BB
+68BC 68BD 68BE 68BF 68C0 68C1 68C2 6956 3C2F 6B32
+6B33 6B35 6B36 6B37 6B38 3C62 6B8C 6B8D 6B8E 6B8F
+6B90 6B91 6B92 6B93 6BB8 6BB9 6BBA 6BBB 6BEB 6BEC
+6BED 6BEE 6C2A 6C2B 23C63 3CEB 6D8E 3D00
+3D04 6D99 6DAA 6DAB 6DAC 6DAD 6DAE 6DAF 6DB0 6DB1
+6DB2 6DB3 6DB4 6DB5 6DB6 6DB7 6DB8 6DB9 6DBA 6DBB
+6DBC 6DBD 6DBE 6DBF 6DC0 6DC1 6DC2 6DC3 6DC4 6DC5
+6DC6 6DC7 6DC8 6DC9 6DCA 6DCB 6DCC 6DCD 6DCE 6DCF
+6DD0 6DD1 6DD2 6DD3 6DD4 6DD5 6DD6 6DD7 6DD8 6DD9
+6DDA 6DDB 6DDC 6DDD 6DDE 6DDF 6DE0 6DE1 6DE2 6DE3
+6DE4 6DE5 6DE6 6DE7 6DE8 6DE9 6DEA 6DEB 6DEC 6DED
+6DEE 6DEF 6DF0 6DF1 6DF2 6DF3 6DF4 6DF5 6DF6 6DF7
+6DF8 6DF9 6DFA 6DFB 6DFD 6DFF 6E00 6E01 6E02 6E04
+6E05 6E06 6E07 6E08 6E09 6E0A 6E0B 6E0C 6E0D 6E0E
+6E0F 6E10 6E11 6E12 6E13 6E14 6E15 6E16 6E17 6E1A
+6E74 23D7E 23D8F 23DB6 23DB7 23DB8 23DB9 23DBA 23DBB 23DBC
+23DBD 23DE3 23DF8 3DBF 70EF 70F0 70F1 70F2
+70F3 70F4 70F5 70F6 70F7 70F8 70F9 70FA 70FC 70FD
+70FE 70FF 7100 7101 7102 7103 7104 7105 7106 7107
+7108 7109 710A 710B 710C 710D 710E 710F 7110 7111
+7112 7113 7115 7116 7117 7118 2424B 24256 24259 7114
+723D 3E3A 3E3C 3E3E 3E40 727B 727C 727D 727E 727F
+7281 24665 72FF 7304 7305 7307 7308 7309 730A 730D
+730E 730F 7310 7311 7313 7314 7315 7316 7317 7318
+7319 731A 731B 731C 731D 731E 731F 7320 7321 732A
+7387 7388 3ECA 3ECC 3ED0 73F3 73F4 73F5 73F6 73F8
+73FA 73FB 73FC 73FD 73FE 73FF 7400 7401 7402 7403
+7404 7405 7406 7407 7408 740A 740B 740C 740D 740E
+740F 7410 7411 7412 7413 24962 24963 24974 24975 24976
+3F0E 74E0 3F26 74F6 74F7 74F8 751B 751C
+7522 7523 7561 7562 7563 7564 7565 7566 7567 7569
+7570 75B5 75CA 75CB 75CC 75CD 75CE 75CF 75D0 75D1
+75D2 75D3 75D4 75D5 75D6 7689 768E 768F 7690 7691
+76B2 4001 4002 76D2 76D3 76D4 76D5 76D6 76D7 76D8
+76DB 7725 7726 772D 772E 772F 7730 7731 7732 7733
+7734 7735 7736 7737 7738 7739 773A 773B 773C 773D
+773E 7741 2517D 2517E 7740 77EA 77EB 7826 7842 7843
+7844 7845 7846 7847 7848 7849 784A 784B 784C 784D
+784E 784F 7850 7851 7852 7853 7854 7855 7856 7857
+7858 7859 785A 785B 7961 4104 7963 7964 7965 7967
+7968 7969 796A 796B 796C 796D 796E 796F 8996 25683
+79BB 413B 4141 4143 4145 79F1 79F2 79F3 79F4 79F5
+79F6 79F7 79F8 79F9 79FA 79FB 79FC 79FD
+79FE 7A06 7A8F 7A90 7A91 7A92 7A93 7A94 7A95 7A9A
+7AE1 7B16 7B17 7B18 7B19 7B1A 7B1B 7B1C 7B1D 7B1E
+7B1F 7B20 7B21 7B22 7B23 7B24 7B25 7B26 7B27 7B28
+7B29 7B2A 7B2B 7B2C 7B2D 7B2E 7B2F 7B30 7B31 7B32
+7B33 7B34 7B35 7B36 7B37 7B38 7B39 7B3A 7B3B 7B3C
+7B3D 7B3E 7568 7C92 7C93 7C94 7C95 7C96 7C97 7C98
+7C99 7C9A 7C9B 7C9C 7C9D 7CA3 25E49 7D28 7D29 7D2C
+7D2D 7D2E 7D2F 7D30 7D31 7D32 7D33 7D34 7D35 7D36
+7D37 7D38 7D39 7D3A 7D3B 7D3C 7D3D 7D3E 7D3F 7D40
+7D41 7D42 7D43 7D44 7D45 7D46 7D47 7D48 7D49 7D4A
+7D4B 7D4C 25FE1 25FE2 7EE9 7EEA 7EEB 7EEC 7EED 7EEE
+7EEF 7EF0 7EF1 7EF2 7EF3 7EF4 7EF5 7EF6 7EF7 7EF8
+7EF9 7EFA 7EFB 7EFC 7EFD 7EFE 7EFF 7F00
+7F01 4344 4345 7F3B 7F3D 7F63 7F95 7F9A 7F9B 7F9C
+7F9D 7F9E 7F9F 7FC7 7FC8 7FC9 7FCA 7FCB 7FCC 7FCD
+7FCE 7FCF 7FD0 7FD1 7FD2 8008 8009 801A 801B 801C
+801D 801E 801F 8043 8044 8045 8046 8047 8048 8049
+804A 804B 804C 804D 80EC 43F2 8115 8116 8117 8118
+8119 811A 811B 811C 811D 811E 811F 8121 8122 8123
+8124 8125 8126 8127 8128 8129 812A 812B 812C 812D
+812E 812F 8130 8131 8132 8133 8134 8135 8136 8137
+8138 266DA 266E8 266FC 2690E 8202 8211 8232 8233 8234
+8235 8236 8237 8238 8239 823A 823B 26A2D 26A2E 8274
+8359 836B 831D 8323 8370 8371 8372 8373 8374 8375
+8376 8377 8378 8379 837A 837B 837C 837D 837E 837F
+8380 8381 8382 8383 8384 8385 8386 8387
+8388 8389 838A 838B 838C 838D 838E 838F 8390 8391
+8392 8393 8394 8395 8396 8397 8398 8399 839B 839C
+839D 839E 839F 83A0 83A1 83A2 83A3 83A4 83A5 83A6
+83A7 83A8 83A9 83AA 83AB 83AC 83AE 83AF 83B0 83B1
+83B2 83B3 83B4 83B5 83B6 83B7 83B8 83B9 83BA 83BC
+83BD 26BC0 26BF7 26C21 83AD 5F6A 8655 8656 8657 8658
+8659 865A 86AB 86AD 86AE 86AF 86B0 86B1 86B2 86B3
+86B4 86B5 86B6 86B7 86B8 86B9 86BA 86BB 86BC 86BD
+86BE 86BF 86C0 86C1 86C2 86C3 86C4 86C5 86C6 86C7
+86C8 86C9 86CA 86CB 86CC 86CD 86CE 86CF FA21 27280
+27285 2728B 8845 8850 8851 8852 8853 8854 4626 8888
+8889 888A 888B 888C 888D 888E 888F 8890 8891 8892
+8893 8894 8895 8896 8897 8898 8899 889A
+889B 889C 889D 889E 889F 88A0 88A1 88A2 88A3 88A4
+88A5 88A6 88A7 88A8 88A9 88AA 88AB 88AC 88AD 88AE
+88B0 88AF 8982 467A 898F 8990 8991 8992 8993 8994
+89CB 89D5 89D6 89D7 89D8 89D9 278C8 46BC 8A1B 8A1C
+8A1D 8A1E 8A1F 8A20 8A21 8A22 8A23 8A24 8A25 8A26
+8A27 8A28 8A29 8A2A 8A2B 8A2C 8A2D 8A2E 8A2F 8A30
+8A31 8A32 8A33 2797A 8C0B 8C0C 8C0D 8C0E 8C0F 8C10
+8C11 8C12 8C13 8C14 8C15 8C16 8C17 8C18 8C19 8C1A
+8C1B 8C1C 8C1D 8C1E 8C39 8C3A 8C3B 8C49 4746 4747
+8C58 8C59 8C5A 8C5B 8C5C 8C5D 8C7C 8C7D 8CA5 8CA6
+8CA7 8CA8 8CA9 8CAA 8CAB 8CAC 8CAD 8CAE 8D47 8D48
+8D49 8D4A 8D65 8D66 8D67 479B 8D79 8D7A 8D7B 8D7C
+8D7D 8D7E 8D7F FA23 8DB9 8DBA 8DBB 8DBD
+8DBE 8DBF 8DC0 8DC1 8DC2 8DC3 8DC4 8EAD 8EAE 8EAF
+28218 2821A 4846 4847 4848 4849 484A 8ED6 8ED7 8ED8
+8ED9 8EDA 8EDB 8EDC 8EDD 8EDE 8EDF 8EE0 8EE1 8EE2
+8EE3 282CD 8F84 8F85 8F86 489B 900B 900C 900D 900E
+900F 9010 9011 9012 9013 9014 9015 9016 9017 9018
+9019 901A 901B 901C 901D 901E 901F 9020 9021 9022
+9023 9024 9025 9026 9027 28501 90AB 90D4 90E8 90E9
+90EA 90EB 90EC 90ED 90EE 90EF 90F0 90F2 90F3 90F4
+90F7 90F8 90FD 2870F 28713 48ED 9153 9154 9155 9156
+9157 9158 9159 915A 915B 915C 915D 915E 28804 91C8
+91CE 91E3 91E4 91E5 91E6 91E7 91E8 91E9 91EA 91EB
+91EC 91ED 91EE 91EF 91F0 91F1 91F2 91F3 91F4 91F5
+91F6 91F7 91F8 91F9 91FA 91FB 91FC 28948
+28949 94CF 94D0 94D1 94D2 94D3 94D4 94D5 94D6 94D7
+94D8 94D9 94DA 94DB 94DC 94DD 94DE 94DF 94E0 94E1
+94E2 94E3 94E4 94E5 94E6 94E7 94E8 94E9 94EA 94EB
+94EC 94ED 94EE 94EF 94F0 94F1 94F2 94F3 94F4 94F5
+94F6 94F7 9579 957A 9586 9587 9588 9589 958A 28CD2
+9607 9608 9609 960A 960B 960C 960D 960E 960F 9610
+966A 966B 966C 966D 966E 966F 9670 9671 9673 9674
+9675 9676 9677 9678 9679 967A 967C 28EAC 28EB2 28EB3
+96BF 96C0 96E9 96EA 96EB 291D5 291EB 976A 7ADF 7AE0
+9802 9803 9804 9885 9886 9887 9888 98E1 98E5 98E6
+9983 9984 9985 9986 9997 9A90 9A91 9A92 9A93 9A94
+9A95 9A96 9AD9 9B5A 9C7E 9CE5 9E37 9E38 9E39 9E3A
+9E3B 9E3C 9E3D 9E3E 9E3F 9E75 9E7F 9EA5
+9EB8 9EBB 9ED2 9F81 9F9A 9F9B
+FDD0-280C
+20046 4E81 4EB4 4EB5 5068 3473 347A 5080 5081 5082
+5083 5084 5085 5086 5087 5088 5089 508A 508B 508C
+508D 508E 508F 5090 5091 5092 5093 5094 5095 5096
+5097 5098 5099 509A 509B 509C 509D 509E 509F 50A0
+50A1 50A2 50A3 50A4 50A5 50A6 50A7 50A8 50A9 2030A
+20325 515F 5160 204A3 6700 51D2 51D3 51D4 51D5 51D6
+51F1 51F2 51FF 34FB 5269 5272 5273 5274 5275 52DB
+52DC 52DD 52DE 5311 5312 20923 20954 3538 535A 53A4
+53A5 53A6 53A7 53A8 53C5 35BF 35C1 35C4 35C5 35C7
+35CA 35CE 5559 557A 557B 557C 557D 557E 557F 5580
+5581 5582 5583 5584 5585 5586 5587 5588 5589 558A
+558B 558C 558E 558F 5590 5591 5592 5593 5594 5595
+5596 5597 5598 5599 559A 559B 559C 559D
+559E 559F 55A0 55A1 55A2 55A3 55A4 55A5 55A6 55A7
+55A8 55A9 55AA 55AB 55AC 55AD 55AE 55AF 55B0 55B1
+55B2 55B3 55B4 55B5 55B7 55B8 55B9 55BA 55BB 55BC
+55BD 55BE 5645 20DC8 20E04 20E09 20E0A 20E0D 20E0E 20E0F
+20E10 20E11 20E16 20E1D 55DE 570C 570D 570E 5710 364E
+5816 5817 5818 5819 581A 581B 581C 581D 581E 581F
+5820 5821 5822 5823 5824 5825 5826 5827 5828 5829
+582A 582B 582C 582D 582E 582F 5830 5831 5833 5834
+5836 5837 5838 5839 583A 583B 583C 583E 583F 5840
+5841 5842 5844 5845 5846 5847 5848 21375 21376 2138E
+21398 2139C 58F9 58FA 58FB 5921 5960 5961 5963 5964
+5965 36F5 3700 3701 3703 3704 5A77 5A78 5A79 5A7A
+5A7B 5A7C 5A7D 5A7E 5A7F 5A80 5A81 5A82
+5A83 5A84 5A85 5A86 5A87 5A88 5A89 5A8A 5A8B 5A8C
+5A8D 5A8F 5A91 5A92 5A93 5A94 5A95 5A96 5A97 5A98
+5A99 5A9A 5A9B 5A9C 5A9D 5A9E 5A9F 5AA0 5AA1 5AA2
+5AA3 5AA4 5AA5 5AA6 5AA7 5AA8 5AA9 5AAA 5AAB 5AAC
+5AAD 5AAE 5AAF 5ACF 217AB 217B0 217B1 217B2 217B3 217B4
+217B5 217C3 217C7 217D9 217DA 217DB 217DC 217DF 5B71 2197C
+21980 5B73 3762 5BCA 5BCB 5BCC 5BCD 5BCE 5BCF 5BD0
+5BD1 5BD2 5BD3 5BD4 5BD5 5BEA 21A45 21A4B 5C0A 5C0B
+5C0C 5C1E 5C30 5C31 5C5E 5C5F 5C61 21CA2 21CA5 5D31
+5D32 5D33 5D34 5D35 5D36 5D37 5D38 5D39 5D3A 5D3B
+5D3C 5D3D 5D3E 5D3F 5D40 5D41 5D42 5D43 5D44 5D45
+5D46 5D47 5D48 5D49 5D4B 5D4C 5D4D 5D4E 5D4F 5D50
+5D51 5D52 5D53 5D54 5D55 5D56 5D57 5D58
+5D59 5D5A 5D5B 5D5C 5D5D FA11 21E89 21EA4 21EA8 5D6B
+382D 5DEF 5DFD 22045 22049 5E3D 5E3F 5E40 5E41 5E42
+5E43 5E44 5E45 5E46 5E47 5E49 220FC 5E48 5E7E 5EBD
+5EBF 5EC0 5EC1 5EC2 5EC3 5ECA 5EC4 5F11 5F3A 5F3B
+5F3C 5F3D 5F3E 5F58 5F6D 5F9A 5FA5 5FA6 5FA7 5FA8
+5FA9 5FAA 5FAB 22530 60B2 60B3 60B6 60B9 60C1 60C4
+60C9 60CC 60CE 60D1 60D2 60D6 60E0 60E1 60E2 60E3
+60E5 60E9 60EA 60EB 3961 3962 3965 60F0 60F1 60F2
+60F4 60F5 60F6 60F8 60FA 60FB 60FC 60FD 60FE 60FF
+6100 6103 6104 6105 6107 6109 610A 610B 610C 610E
+6110 6111 6112 6113 6114 6115 6116 6118 611C 611D
+611E 6120 6121 6122 6123 6124 6125 6126 6168 2272A
+22775 22781 39B8 621E 621F 6249 624A 638C
+6394 63A3 63B0 63B1 3A17 3A18 63BE 63BF 63C0 63C1
+63C2 63C3 63C4 63C6 63C7 63C8 63C9 63CA 63CB 63CC
+63CD 63CE 63CF 63D0 63D1 63D2 63D3 63D4 63D5 63D6
+63D7 63D8 63D9 63DA 63DB 63DC 63DD 63DE 63DF 63E0
+63E1 63E2 63E3 63E5 63E6 63E8 63E9 63EA 63EC 63ED
+63EE 63EF 63F0 63F2 63F3 63F4 63F5 63F6 63F7 63F8
+63F9 63FA 63FB 63FC 63FD 63FE 63FF 6400 6401 6402
+6403 6404 6405 6452 22C26 22C27 22C38 22C4C 22C51 22C55
+6461 6532 3A8F 3A90 3A97 655C 655E 655F 6560 6561
+6562 6563 6564 6565 6566 6567 6568 6569 656A 22F74
+658C 6590 6591 3AB8 659D 2307D 2307E 659E 3AC0 65AE
+65AF 65B1 65D0 65D1 23103 3AFB 3B00 666A 666B 666C
+666D 666E 666F 6670 6671 6672 6673 6674
+6675 6676 6677 6679 667A 667B 667C 667D 667E 667F
+6680 6681 6682 6683 6691 231F7 231F8 231F9 2320F 66FE
+66FF 6701 6702 3B38 671C 671D 671E 671F 68B4 3B76
+3B78 3B79 3B7A 3B7B 3B7C 3B7D 3B7E 3B7F 3B80 68C3
+68C4 68C5 68C6 68C7 68C8 68C9 68CA 68CB 68CC 68CD
+68CE 68CF 68D0 68D1 68D2 68D3 68D4 68D5 68D6 68D7
+68D8 68D9 68DA 68DB 68DC 68DD 68DE 68DF 68E0 68E1
+68E2 68E3 68E4 68E5 68E6 68E7 68E8 68E9 68EA 68EB
+68EC 68ED 68EE 68EF 68F0 68F1 68F2 68F3 68F4 68F5
+68F6 68F7 68F8 68F9 68FA 68FB 68FC 68FD 68FE 68FF
+6900 6901 6902 6903 6904 6905 6906 6907 6908 6909
+690A 690B 690C 690D 690E 690F 6910 6911 6912 6913
+6914 6915 6916 6917 6918 6919 691A 691B
+691C 691D 691E 691F 6920 6921 6922 6923 6924 6925
+6926 6927 6928 6929 692A 692B 692C 692D 692E 234E5
+23519 23530 696E 6970 6B39 6B3A 6B3B 6B3C 6B3D 6B3E
+6B3F 6B6E 6B6F 3C64 3C66 3C68 3C69 6B94 6B95 6B96
+6B97 6B98 6B99 6B9A 6BBC 6BBD 6BBE 6BEF 6BF0 6BF1
+6BF2 6BF3 6BF4 6BF5 6BF6 6C2C 6C2D 6C2E 6C2F 6C30
+6DFC 6DFE 3D13 3D1D 3D20 3D22 6E03 6E18 6E19 6E1B
+6E1C 6E1D 6E1E 6E1F 6E20 6E21 6E22 6E23 6E24 6E25
+6E26 6E27 6E28 6E29 6E2A 6E2B 6E2C 6E2D 6E2E 6E2F
+6E30 6E31 6E32 6E33 6E34 6E35 6E36 6E37 6E38 6E39
+6E3A 6E3B 6E3C 6E3D 6E3E 6E3F 6E40 6E41 6E42 6E43
+6E44 6E45 6E46 6E47 6E48 6E49 6E4A 6E4B 6E4C 6E4D
+6E4E 6E4F 6E50 6E51 6E52 6E53 6E54 6E55
+6E56 6E57 6E58 6E59 6E5A 6E5B 6E5C 6E5D 6E5E 6E5F
+6E60 6E61 6E62 6E63 6E64 6E65 6E66 6E67 6E68 6E69
+6E6A 6E6B 6E6D 6E6E 6E6F 6E70 6E71 6E72 6E73 6E75
+6E76 6E77 6E78 6E79 6E7A 6E7B 6E7C 6E7D 6E7E 6E7F
+6E80 6E81 6E82 6E83 6E84 6E85 6E86 6E87 6E88 6E89
+6E8A 6E8B 6E8C 6ECB 6EDE 23E11 23E2C 23E2D 23E2E 23E2F
+23E30 23E31 23E39 70FB 3DC6 3DC7 3DC9 3DCC 3DCD 7119
+711A 711B 711C 711D 711E 711F 7120 7121 7122 7123
+7124 7125 7126 7127 7128 7129 712A 712B 712C 712D
+712E 712F 7130 7131 7132 7133 7134 7135 7136 7137
+7138 7139 713A 713B 713C 713D 713E 713F 7140 716E
+24276 24277 24278 24284 24293 24295 242A5 7232 724B 724C
+724D 245C8 725A 3E43 7280 7282 7283 7284
+7285 7286 7287 7288 7289 728A 728B 24674 7306 730B
+730C 7312 732B 7322 7323 7324 7325 7326 7327 7328
+7329 732C 732D 732F 7330 7331 7332 7333 7334 7335
+7336 7338 7339 247E0 3ED1 3ED6 3EDA 3EDB 73F7 7414
+7415 7416 7417 7418 7419 741A 741B 741C 741D 741F
+7420 7421 7422 7423 7424 7425 7426 7428 7429 742A
+742B 742C 742D 742E 742F 7430 7431 7432 7433 7434
+7435 7436 7437 7438 7439 743A 743B 743C 2497B 2497F
+24982 24988 24989 2498A 2498B 2498C 2498D 2498E 2498F 24994
+249A4 249A7 249A9 249AB 249AC 249AD 74F9 74FA 74FB 74FC
+7524 7525 7526 752F 24C09 756A 756B 756C 756D 756E
+756F 7572 7573 7574 7571 758E 758F 3F93 3F98 75D7
+75D8 75D9 75DA 75DB 75DC 75DD 75DE 75DF
+75E0 75E1 75E2 75E3 75E4 75E5 75E6 75E7 75E8 75E9
+75EA 75EB 24DB8 767B 767C 7692 7693 7694 7695 7696
+76B3 76B4 4003 76D9 76DA 76DC 4039 4040 7742 7743
+7744 7745 7746 7747 7748 7749 774A 774B 774C 774D
+774E 774F 7750 7751 77DE 77DF 77EC 77ED 785C 785D
+785E 785F 7860 7861 7862 7863 7864 7865 7866 7867
+7868 7869 786A 786B 786C 786D 786E 786F 7870 7871
+7872 7873 7874 7875 7876 7877 4109 7966 7970 7971
+7972 7973 7974 7975 7976 7977 7978 7984 25695 79BC
+79FF 7A00 7A01 7A02 7A03 7A04 7A05 7A07 7A08 7A09
+7A0A 7A0B 7A0C 7A0D 7A0E 257C7 7A96 7A97 7A98 7A99
+7A9B 7A9C 7A9D 7AE2 7AE3 7AE4 7AE5 7AE6 7AE7 41ED
+41EE 41EF 7B3F 7B40 7B41 7B42 7B43 7B44
+7B45 7B46 7B47 7B48 7B49 7B4A 7B4B 7B4C 7B4D 7B4E
+7B4F 7B50 7B51 7B52 7B53 7B54 7B55 7B56 7B57 7B58
+7B59 7B5A 7B5B 7B5C 7B5D 7B6C 4283 7C9E 7C9F 7CA0
+7CA1 7CA2 7CA4 7CA5 7CA6 7CA7 7CA8 7CA9 7CAA 7CAB
+7CAC 7CAD 7D2A 7D2B 7D4D 7D4E 7D4F 7D50 7D51 7D52
+7D53 7D54 7D55 7D56 7D57 7D58 7D59 7D5A 7D5C 7D5D
+7D5E 7D5F 7D60 7D61 7D62 7D63 7D64 7D65 7D66 7D67
+7D68 7D69 7D6A 7D6B 7D6C 7D6D 7D6E 7D6F 7D70 7D71
+7D72 7D73 7D74 7D75 7D76 7D77 7D7E 433B 7F02 7F03
+7F04 7F05 7F06 7F07 7F08 7F09 7F0A 7F0B 7F0C 7F0D
+7F0E 7F0F 7F10 7F11 7F12 7F13 7F14 7F15 7F16 7F17
+7F18 7F3E 7F3F 7F40 7F64 7F65 7F66 436E 436F 7FA0
+7FA1 7FA2 7FD3 7FD4 7FD5 7FD6 7FD7 7FD8
+7FD9 7FDA 800B 8020 804E 804F 8050 8051 8052 8053
+8054 8060 26572 80D4 80FE 8114 8120 3B39 4400 4401
+4402 8139 813A 813B 813C 813D 813E 813F 8140 8141
+8142 8143 8144 8145 8146 8147 8148 8149 814A 814B
+814C 814D 814E 814F 8151 8152 8153 8154 8155 8156
+8157 8158 8159 815A 26716 26741 8174 81E6 81EE 81EF
+81F0 26911 81F5 81F6 81F7 81F8 81F9 8203 8204 8212
+821C 823C 823D 823E 823F 26A34 8275 44B0 44B7 44C0
+8312 833B 8346 839A 83BE 83BF 83C0 83C1 83C2 83C3
+83C4 83C5 83C6 83C7 83C8 83C9 83CA 83CB 83CC 83CD
+83CE 83CF 83D0 83D1 83D2 83D3 83D4 83D5 83D6 83D7
+83D8 83DA 83DB 83DC 83DD 83DE 83DF 83E0 83E1 83E2
+83E3 83E4 83E5 83E6 83E7 83E8 83E9 83EA
+83EB 83EC 83ED 83EE 83EF 83F0 83F1 83F2 83F3 83F4
+83F5 83F6 83F7 83F8 83F9 83FA 83FB 83FC 83FD 83FE
+83FF 8400 8401 8402 8403 8404 8405 8406 8407 8408
+8409 840A 840B 840C 840D 840E 840F 8410 8411 8412
+8413 8414 8415 8416 8417 8418 8419 841A 841B 841C
+841D 841E 841F 8420 8421 8422 8423 8424 8426 8427
+8457 26C40 26C7E 26C7F 26C80 26C81 26C82 26CA4 26CB7 26CB8
+26CBD 26CC0 8438 865B 865D 45AD 45AF 8688 86D0 86D1
+86D2 86D3 86D4 86D5 86D7 86D8 86D9 86DA 86DB 86DC
+86DD 86DE 86DF 86E0 86E1 86E2 86E3 86E4 86E5 86E6
+86E7 86E8 86E9 86EA 86EB 86EC 86ED 86EE 86EF 86F0
+86F1 86F2 86F3 86F4 272B2 272B6 8846 8847 8848 8849
+8855 8856 8857 88B1 88B2 88B3 88B4 88B5
+88B6 88B7 88B8 88B9 88BA 88BB 88BC 88BD 88BE 88BF
+88C0 88C1 88C2 88C3 88C4 88C5 88C6 88C7 88C8 88C9
+88D7 27694 8901 8983 8984 8999 8995 8997 8998 899A
+89CC 89CD 89DA 89DB 89DD 89DE 46CF 46D0 8A34 8A35
+8A36 8A37 8A38 8A39 8A3A 8A3B 8A3C 8A3D 8A40 8A41
+8A42 8A43 8A44 8A45 8A46 8A47 8A48 8A49 8A4A 8A4B
+8A4C 8A4D 8A4E 8A4F 8A50 8A51 8A52 8A53 8A54 8A55
+8A56 8A57 8A58 8A59 8A5A 8A5B 8A5C 8A5D 8A5E 8A5F
+8A60 279A0 8C1F 8C20 8C21 8C22 8C23 8C24 8C25 8C26
+8C27 4748 8C5E 8C5F 8C60 8C61 8C7E 8C7F 8C80 8C81
+8C82 8C83 8CAF 8CB0 8CB1 8CB3 8CB4 8CB5 8CB6 8CB7
+8CB8 8CB9 8CBA 8CBB 8CBC 8CBD 8CBE 8CBF 8CC0 8CC1
+27D53 27D54 8D4B 8D4C 8D4D 8D4E 8D4F 8D50
+8D51 8D52 8D53 8D54 8D55 47A1 47A3 8D80 8D81 8D82
+8D83 8D84 8D85 8D86 8D87 8D88 8D89 8D8A 8D8B 47ED
+8DC5 8DC6 8DC7 8DC8 8DC9 8DCA 8DCB 8DCC 8DCD 8DCE
+8DCF 8DD1 8DD2 8DD3 8DD4 8DD5 8DD6 8DD7 8DD8 8DD9
+8DDA 8DDB 8DDC 8DDD 8DDE 8DF5 27FF9 28002 28009 8EB0
+4852 8EE4 8EE5 8EE6 8EE7 8EE8 8EE9 8EEA 8EEB 8EEC
+8EEE 8EEF 8EF0 8EF1 8EF2 8EF3 8EF4 8EF5 8EF6 8EF7
+8EF8 8EF9 8EFA 8EFB 8EFC 8EFD 282E2 8F87 8F88 8F89
+8F8A 8F8B 8F8C 8F8D 8F8E 8F9C 8F9D 28412 9028 9029
+902A 902B 902C 902D 902E 902F 9030 9031 9032 9033
+9034 9035 9036 9037 9038 9039 903A 903B 2853C 2853D
+90F5 48D0 90F9 90FB 90FC 90FE 90FF 9100 9101 9102
+9103 9104 9105 9106 9107 9108 9109 910A
+912C 48F3 915F 9160 9161 9162 9163 9164 9165 91C9
+91CA 91CF 491E 4920 91FD 91FE 91FF 9200 9201 9202
+9203 9204 9205 9206 9207 9208 9209 920A 920B 920C
+920D 920E 920F 9210 9211 9212 9213 9214 9215 9216
+9217 9218 9219 921A 921B 921C 921D 921E 921F 9220
+9221 9222 9223 9224 9225 9226 9227 9228 9229 922A
+922B 922C 28956 28964 94F8 94F9 94FA 94FB 94FC 94FD
+94FE 94FF 9500 9501 9502 9503 9504 9505 9506 9507
+9508 9509 950A 950B 950C 950D 950E 950F 9510 9511
+9512 9513 9514 9515 957B 958B 958C 958D 958E 958F
+9590 9591 9592 9593 9594 9595 9596 9597 9611 9612
+9613 9614 9615 9672 967B 967D 967E 967F 9680 9681
+9682 9683 9684 9685 9686 9687 9688 9689
+968A 968B 968C 968D 968E 9690 28ED9 28EE7 96C1 96C2
+96C3 96C4 96C5 96C6 96C7 96C8 96EC 96ED 96EE 96EF
+96F0 96F1 96F2 96F3 29088 2908B 9753 9754 975F 976B
+976C 976D 976E 976F 9770 9771 97CC 97E9 9805 9806
+9807 9808 9889 988A 988B 988C 988D 988E 988F 98A9
+98AA 2959E 98D3 98E7 98E8 98E9 98EA 98EB 98ED 98EF
+98F0 98F2 9987 9988 998A 998B 99AD 99AE 9A97 9A98
+9A99 9A9A 9A9B 9AA9 9AE0 9C7F 9C80 9C81 9C82 9C83
+9CE6 9E40 9E41 9E42 9E43 9E44 9E45 9E46 9E47 9E48
+9EC3 9EC4 9ECD 9ED1 9EF9 9F0B 9F82
+FDD0-280D
+4E82 4E83 4E84 4EB6 4EB7 347D 347E 50AA 50AB 50AC
+50AD 50AE 50AF 50B0 50B1 50B2 50B3 50B4 50B5 50B6
+50B7 50B8 50B9 50BA 50BB 50BC 50BD 50BE 50BF 50C0
+50C1 50C2 50C3 50C4 50C5 50C6 50C7 50C8 50C9 50CA
+50CB 50CC 50CD 20341 20345 20346 20347 203B5 5161 517E
+517F 51D7 5277 5278 5279 527A 527B 527C 527D 527E
+527F 52DF 52E0 52E1 52E2 52E3 52E4 52E5 52E6 52E7
+3532 3533 3534 532F 5380 5381 53AA 53AB 53AF 53E0
+FA0E 35D2 35D6 35DB 35DD 35E0 558D 55BF 55C0 55C1
+55C2 55C3 55C4 55C5 55C6 55C7 55C8 55C9 55CA 55CB
+55CC 55CD 55CE 55CF 55D0 55D1 55D2 55D3 55D4 55D5
+55D6 55D7 55D8 55D9 55DA 55DB 55DC 55DD 55DF 55E0
+55E1 55E2 55E3 55E4 55E5 55E6 55E7 55E8
+55E9 55EA 55EB 55EC 55ED 55EE 55EF 55F0 55F1 55F2
+55F3 55F4 55F5 20E4C 20E6D 20E73 20E75 20E76 20E77 20E78
+20E79 20E7A 20E7B 20E8C 20E96 20E98 20E9D 20EA2 20EAA 20EAB
+20EAC 20EB6 5711 5712 5713 5714 5715 365F 583D 5843
+5849 584A 584B 584C 584D 584E 584F 5850 5851 5852
+5853 5854 5855 5856 5857 5858 5859 585A 585B 585C
+585D 585E 585F 5860 5861 5862 5863 5864 5865 5866
+5867 5868 5869 586A 586B 586C 586D 586E 586F 5870
+5871 213C5 213C6 58FC 5966 5967 5968 21661 3708 370A
+370D 5A90 5AB0 5AB1 5AB2 5AB3 5AB4 5AB5 5AB6 5AB7
+5AB8 5AB9 5ABA 5ABB 5ABC 5ABD 5ABE 5ABF 5AC0 5AC1
+5AC2 5AC3 5AC4 5AC5 5AC6 5AC7 5AC8 5AC9 5ACA 5ACB
+5ACC 5ACD 5ACE 5AD0 5AD1 5AD2 5AD3 5AD4
+217EF 217F5 217F6 217F8 217F9 217FA 217FB 217FC 5B74 21983
+21988 5B76 3766 5BD6 5BD7 5BD8 5BD9 5BDA 5BDB 5BDC
+5BDD 5C1F 5C20 5C32 5C33 5C34 21CAC 37F2 37F8 5D4A
+5D5E 5D5F 5D60 5D61 5D62 5D63 5D64 5D65 5D66 5D67
+5D68 5D69 5D6A 5D6C 5D6D 5D6E 5D6F 5D70 5D71 5D72
+5D73 5D74 5D75 5D76 21EC8 21ED5 5DF0 5E4A 5E4B 5E4C
+5E4D 5E4E 5E4F 5E79 5EC5 5EC6 5EC7 5EC8 5EC9 5ECB
+5ECC 2227C 5F12 5F3F 5F40 5F41 5F42 5F59 5F5A 22465
+5F6E 5FAC 5FAD 5FAE 5FAF 5FB0 3963 3964 3966 60F3
+60F7 60F9 6101 6102 6106 6108 610D 610F 6117 6119
+611A 611B 611F 6127 6129 612A 612B 612D 612E 612F
+6130 6131 6132 6134 6135 6136 6137 6139 613A 613C
+613D 613E 6140 6143 6144 6145 6146 6149
+614A 614C 614D 614E 614F 6151 227B4 227B5 227CD 6226
+6220 6221 6222 6223 6224 6225 63E7 63EB 63F1 3A20
+3A23 3A26 3A29 3A2A 6406 6407 6408 6409 640A 640B
+640C 640D 640E 640F 6410 6411 6412 6413 6414 6415
+6416 6417 6418 6419 641A 641B 641C 641D 641E 641F
+6420 6421 6422 6423 6424 6425 6426 6427 6428 6429
+642A 642C 642D 642E 642F 6430 6432 6433 6435 6436
+6437 6438 6439 643A 643C 643D 643E 6440 6441 6442
+6443 6444 6445 6446 6447 6448 6449 644A 22C62 22C88
+22C9B 22CA1 22CA9 22CB2 63C5 6431 656D 656B 656C 656E
+656F 6570 6592 295B0 659F 65B0 65D2 65D3 65D4 65D5
+65E4 6678 3B01 3B02 3B03 3B04 3B05 3B06 3B07 3B08
+3B09 3B0A 3B0B 3B0C 6684 6685 6686 6687
+6688 6689 668A 668B 668C 668D 668E 668F 6690 6692
+6693 6694 6695 6696 6697 6698 6699 23225 2322F 23231
+23232 23233 23234 6703 6720 6721 3B96 3B99 692F 6930
+6931 6932 6933 6934 6935 6936 6937 6938 6939 693A
+693B 693C 693D 693E 693F 6940 6941 6942 6943 6944
+6945 6946 6947 6948 6949 694A 694B 694C 694D 694E
+694F 6950 6951 6952 6953 6954 6955 6957 6958 6959
+695A 695B 695C 695D 695E 695F 6960 6961 6962 6963
+6964 6965 6966 6967 6968 6969 696A 696B 696C 696D
+696F 6971 6972 6973 6974 6975 6976 6977 6978 6979
+697A 697B 697C 697D 697E 697F 6980 6981 6982 6983
+6984 6985 6986 6987 6988 6989 698B 698C 6994 6998
+FA13 2355A 23567 23595 23599 2359C 3C3C 3C3E
+6B40 6B41 6B42 6B43 6B44 6B45 6B46 6B47 6B48 6B71
+6B72 6B73 3C6E 6B9B 6B9C 6BBF 6BC0 6BC1 6BC2 23AA7
+6BD3 6BF7 6BF8 6BF9 6BFA 6BFB 6BFC 6BFD 6C31 6E6C
+3D26 3D32 3D33 3D3B 6E8D 6E8E 6E8F 6E90 6E91 6E92
+6E93 6E94 6E95 6E96 6E97 6E98 6E99 6E9A 6E9B 6E9C
+6E9D 6E9E 6E9F 6EA0 6EA1 6EA2 6EA3 6EA4 6EA5 6EA6
+6EA7 6EA8 6EA9 6EAA 6EAB 6EAC 6EAD 6EAE 6EAF 6EB0
+6EB1 6EB2 6EB3 6EB4 6EB5 6EB6 6EB7 6EB8 6EB9 6EBA
+6EBB 6EBC 6EBD 6EBE 6EBF 6EC0 6EC1 6EC2 6EC3 6EC4
+6EC5 6EC6 6EC7 6EC8 6EC9 6ECA 6ECD 6ECF 6ED0 6ED1
+6ED2 6ED3 6ED4 6ED6 6ED7 6ED8 6ED9 6EDB 6EDC 6EDD
+6EDF 6EE0 6EE1 6EE2 6EE3 6EE4 6EE5 6EE6 6EE7 6EE8
+6EE9 6EEA 6F13 23E88 23E89 23E8A 23E8B 23EB9
+23EBF 6EDA 3BA1 3DD3 3DDB 7141 7142 7143 7144 7145
+7146 7147 7148 7149 714A 714B 714C 714D 714E 714F
+7150 7151 7152 7153 7154 7156 7157 7158 7159 715A
+715C 715D 715E 715F 7160 7161 7162 7163 7164 7165
+7166 7167 7168 7169 716A 716B 716C 716D 716F 7170
+7171 7172 7173 7174 7175 7176 7177 7178 717A 242C1
+242C9 242CA 242EE 242FA 24521 723A 7243 724E 724F 7250
+7251 7252 3E48 728C 728D 728E 728F 7290 7291 24697
+732E 7337 7341 733A 733B 733C 733D 733E 733F 7340
+7342 7345 7346 7347 7348 7349 734A 24812 24823 3ED7
+7427 3EDE 3EE1 3EE2 741E 743D 743E 743F 7440 7441
+7442 7443 7444 7445 7446 7447 7448 7449 744A 744B
+744C 744D 744E 744F 7450 7451 7452 7453
+7454 7455 7456 7457 7458 7459 745A 745B 745C 745D
+745E 745F 249B7 249B8 249B9 249BA 249BB 249C5 249D0 249DA
+249DE 249DF 249E3 249E5 746F 74E1 74FD 74FE 74FF 7501
+751D 751E 3F63 7575 7576 7577 7578 7579 757A 24C9E
+24C9F 75EC 75ED 75EE 75EF 75F0 75F1 75F2 75F3 75F4
+75F5 75F6 75F7 75F8 75F9 75FA 75FB 75FC 75FD 75FE
+75FF 7600 7601 7602 7603 7604 7605 7606 24DEA 24DEB
+760F 7610 7697 7698 7699 24F82 24F86 76B5 4004 76DD
+76DE 76DF 4045 7752 7753 7754 7755 7756 7757 7758
+7759 775A 775B 775C 775D 775E 775F 7760 7762 7763
+7764 7765 7766 7767 7768 7769 776A 776B 776C 776D
+251CD 251E3 251E6 251E7 7761 7779 77E0 77EE 40BB 40BF
+7878 7879 787A 787B 787C 787D 787F 7880
+7881 7882 7883 7884 7885 7886 7887 7888 7889 788A
+788B 788C 788D 788E 788F 7890 7891 7892 7893 7894
+7895 7896 7897 7898 7899 789A 789B 789C 78B0 410E
+7979 797A 797B 797C 797D 797E 797F 7980 7981 7982
+7983 7985 7986 79BD 842C 7A0F 7A10 7A11 7A12 7A13
+7A14 7A15 7A16 7A17 7A18 7A19 7A1A 7A1B 7A1C 7A1D
+7A1E 7A1F 7A20 7A21 7A22 7A23 7A24 7A25 257DF 257E0
+257E1 7A9E 7A9F 7AA0 7AA1 7AA2 7AA3 7AA4 7AA5 7AA6
+7AA7 259AC 41CF 7AE8 7AE9 7AEA 7AEB 25A95 41F8 41F9
+41FB 41FC 41FD 41FE 41FF 4200 7B5E 7B5F 7B60 7B61
+7B62 7B63 7B64 7B65 7B66 7B67 7B68 7B69 7B6A 7B6B
+7B6D 7B6E 7B6F 7B70 7B71 7B72 7B73 7B74 7B76 7B77
+7B78 7B79 7B7A 7B7B 7B7C 7B7D 7B7E 7B7F
+7B80 7BC0 25B74 25B89 428C 7CAE 7CAF 7CB0 7CB1 7CB2
+7CB3 7CB4 7CB5 7CC0 25E81 25E82 25E83 7D5B 7D78 7D79
+7D7A 7D7B 7D7C 7D7D 7D7F 7D80 7D81 7D82 7D83 7D84
+7D85 7D86 7D87 7D88 7D89 7D8A 7D8B 7D8C 7D8D 7D8E
+7D8F 7D90 7D91 7D92 7D93 7D94 7D95 7D97 7D98 7D99
+7D9A 7D9B 26029 7F19 7F1A 7F1B 7F1C 7F1D 7F1E 7F1F
+7F20 7F21 7F22 7F23 7F24 7F67 7F68 7F69 7F6A 7F6B
+7F6C 7F6D 7F6E 7F72 262D0 7FA3 7FA4 7FA5 7FA6 7FA7
+7FA8 7FA9 7FAA 7FDB 7FDC 7FDD 8021 8022 8055 8056
+8057 8058 8084 8085 8086 4413 5E50 815B 815C 815D
+815E 815F 8160 8161 8162 8163 8164 8165 8166 8167
+8168 8169 816A 816B 816C 816D 816E 816F 8170 8171
+8172 8173 8175 8176 8177 8178 8179 817A
+817B 817C 817D 817E 8205 821D 8240 8241 8242 8243
+8244 8245 8246 8247 8248 8249 26A42 44C5 44CE 83BB
+83D9 8425 8428 8429 842A 842B 842D 842E 842F 8430
+8431 8432 8433 8434 8435 8436 8437 8439 843A 843B
+843C 843D 843E 843F 8440 8441 8442 8443 8444 8445
+8446 8447 8448 8449 844A 844B 844C 844D 844E 844F
+8450 8451 8452 8453 8454 8455 8456 8458 8459 845A
+845B 845C 845D 845E 845F 8460 8461 8462 8463 8464
+8465 8466 8467 8468 8469 846A 846B 846C 846D 846E
+846F 8470 8471 8472 8473 8474 8475 8476 8477 8478
+8479 847A 847B 847C 847D 847E 847F 8480 8481 8482
+8483 8484 8485 8486 8487 8488 8489 848B 848C 848D
+848E 848F 26CC3 26CD1 26D22 26D23 26D24 26D25
+26D26 26D27 26D28 26D29 26D2A 26D51 84C5 84C8 84F1 8507
+865C 865E 865F 86D6 86F5 86F6 86F7 86F8 86F9 86FA
+86FB 86FC 86FD 86FE 86FF 8700 8701 8702 8703 8704
+8705 8706 8707 8708 8709 870A 870B 870C 870D 870E
+870F 8710 8713 8714 8715 8716 8717 8746 272E6 874D
+8858 8859 88CA 88CB 88CC 88CD 88CE 88CF 88D0 88D1
+88D2 88D3 88D4 88D5 88D6 88D8 88D9 88DA 88DB 88DC
+88DD 88DE 88DF 88E0 88E1 88E3 88E4 88E5 8985 4680
+899B 899C 89CE 89DC 89DF 89E0 89E1 89E2 89E3 89E4
+89E5 89E6 89E7 8A3E 8A3F 8A61 8A62 8A63 8A64 8A65
+8A66 8A67 8A68 8A69 8A6A 8A6B 8A6C 8A6D 8A6E 8A6F
+8A70 8A71 8A72 8A73 8A74 8A75 8A76 8A77 8A78 8A79
+8A7A 8A7B 8A7C 8A7D 8A7E 8A7F 8A80 8A81
+8A82 8A83 8A84 8A85 8A86 8A87 8A88 8A89 8A8A 8AA0
+279DD 8C28 8C29 8C2A 8C2B 8C2C 8C3C 8C4A 8C4B 8C62
+8C63 8C64 8C65 8C66 8C84 8C85 8C86 8C87 8C88 8C89
+8C8A 8CB2 8CC2 8CC3 8CC4 8CC5 8CC6 8CC7 8CC8 8CC9
+8CCA 8CCB 8CCC 8CCD 8CCE 27D66 27D73 27D84 8D56 8D57
+8D68 8D69 8D6A 47A6 8D8C 8D8D 8D8E 8D8F 8D90 8D91
+8D92 8D93 8D94 8DD0 8DBC 8DDF 8DE0 8DE1 8DE2 8DE3
+8DE4 8DE5 8DE6 8DE7 8DE8 8DE9 8DEA 8DEB 8DEC 8DED
+8DEE 8DEF 8DF0 8DF1 8DF2 8DF3 8DF4 8DF6 8DF7 8DF8
+8DF9 8DFA 8DFB 2801E 28023 28024 4837 8EB1 8EB2 8EED
+8EFE 8EFF 8F00 8F01 8F02 8F03 8F04 8F05 8F06 8F07
+8F08 8F09 8F0A 8F0B 8F0C 8F8F 8F90 8F91 8F92 8F93
+8F94 8F9E 8F9F 8FA0 8FB2 903C 903D 903E
+903F 9040 9041 9042 9043 9044 9045 9046 9047 9048
+9049 904A 904B 904C 904D 904E 904F 9050 9051 9052
+9053 9054 9055 9056 9057 2856C 90CC 910B 910C 910D
+910E 910F 9110 9111 9112 9113 9114 9115 9116 9117
+9166 9167 9168 9169 916A 916B 916C 916D 916E 916F
+9170 9171 2882B 922E 922F 9230 9231 9232 9233 9234
+9235 9236 9237 9238 9239 923A 923B 923C 923D 923E
+923F 9240 9241 9242 9243 9244 9245 9246 9247 9248
+9249 924A 924B 924C 924D 924E 924F 9250 9251 9252
+9253 9254 9255 9256 9257 9258 9259 925A 925B 925C
+925D 925E 925F 9260 9261 9262 9263 9264 9265 9266
+9267 9268 9269 926A 926B 926C 926D 926E 926F 9270
+9271 9272 9273 9274 928F 28968 2896C 2897E
+9516 9517 9518 9519 951A 951B 951C 951D 951E 951F
+9520 9521 9522 9523 9524 9525 9526 9527 9528 9529
+952A 952B 952C 952D 952E 952F 9530 9531 4989 9598
+9599 959A 959B 959C 959D 959E 959F 95A0 9616 9617
+9618 9619 968F 49DF 9691 9692 9693 9694 9695 9696
+9697 9698 FA29 96C9 96CA 96CB 96CD 96CE 96CF 96F4
+96F5 96F6 96F7 96F8 96F9 96FA 96FB 96FC 96FD 96FE
+29093 9755 9756 9772 9773 9774 9775 9776 9777 9778
+9779 97EA 97EB 97EE 97F4 97F5 9809 4AB4 980A 980B
+980C 980D 980E 980F 9810 9811 9812 9813 9890 9891
+9892 9893 9894 9895 9896 98AB 98AC 98D4 4B26 98EC
+98EE 98F1 98F3 98F4 98F5 98F6 98F7 98F9 98FB 98FC
+98FD 98FE 98FF 9989 998C 998D 998E 998F
+9990 999A 99AF 99B0 99B1 99B2 99B3 99B4 99B5 9A9C
+9A9D 9A9E 9A9F 9AAA 9AAB 9AAC 9AAD 9AAE 29A28 9AE1
+9AE2 9B3D 9B5B 9B5C 9B5D 9B5E 9C84 9C85 9C86 9C87
+9C88 9C89 9C8A 9C8B 9C8C 9C8D 9C8E 9C8F 9C90 9CE7
+9CE8 9CE9 9CEA 9CEB 9CED 9CEE 9CEF 9CF0 9E49 9E4A
+9E4B 9E4C 9E4D 9E4E 9E4F 9E50 9E51 9E52 9E53 9E54
+9E80 9E81 9E82 2A2FF 9EFD 9F0C 9F0E 9F13 9F14 9F20
+9F83 9F84 9F85 9F86
+FDD0-280E
+2004E 221A1 50CE 50CF 50D0 50D1 50D2 50D3 50D4 50D5
+50D6 50D7 50D8 50D9 50DA 50DB 50DC 50DD 50DE 50DF
+50E0 50E1 50E2 50E3 50E4 50E5 50E6 50E7 50E8 50E9
+50EA 50EB 50EC 50ED 50EE 50EF 50F0 50F1 50F3 50F4
+50F7 2037E 2037F 20380 203A0 203A7 50F2 5162 51A9 51D8
+51F3 51F4 3500 3504 3506 5280 5281 5282 5283 5284
+3522 52E8 52E9 52EA 52EB 52EC 52ED 3535 5330 5331
+5332 3551 53AC 53AD 53AE 53B0 53C6 20B0D 3561 55F6
+55F7 55F8 55F9 55FA 55FB 55FC 55FD 55FE 55FF 5600
+5601 5602 5603 5604 5605 5606 5607 5608 5609 560A
+560B 560C 560D 560E 560F 5610 5611 5612 5613 5614
+5615 5616 5617 5618 5619 561A 561B 561C 561D 561E
+5621 5622 5623 5624 5625 5626 5627 5651
+20ED7 20ED8 20EDD 20EF8 20EF9 20EFA 20EFB 20F1D 20F26 20F2D
+20F2E 20F30 20F31 20F3B 20F4C 561F 5628 5716 5717 5718
+5719 3665 3666 5872 5873 5874 5875 5876 5877 5878
+5879 587A 587B 587C 587D 587E 587F 5881 5882 5883
+5884 5885 5886 5887 5888 5889 588A 588B 588C 588D
+588E 588F 5890 5891 5892 5893 5894 5895 5896 5897
+5898 5899 589A 589B 213ED 213FE 21413 21416 58AD 58FD
+58FE 5910 5922 5923 5924 5925 5969 596A 596B 596C
+371C 371E 3720 3722 5AD5 5AD6 5AD7 5AD8 5AD9 5ADA
+5ADB 5ADC 5ADD 5ADE 5ADF 5AE0 5AE1 5AE2 5AE3 5AE4
+5AE5 5AE6 5AE7 5AE8 5AE9 5AEA 5AEB 5AEC 5AED 5AEE
+5AEF 5AF0 5AF1 5AF2 21820 21828 21829 2182A 2182D 21839
+2183A 2183B 21840 21845 5AF3 5B75 5B77 21996
+5BDE 5BDF 5BE0 5BE1 5BE2 5BE3 5BE4 5BE5 5BE6 5BE7
+5BE8 5C0D 5C21 5C62 5C63 37FB 3800 3801 3804 5D77
+5D78 5D79 5D7A 5D7B 5D7C 5D7D 5D7E 5D7F 5D80 5D81
+5D82 5D83 5D84 5D85 5D86 5D87 5D88 5D89 5D8A 5D8B
+5D8C 5D8D 5D8E 5E51 5E52 5E53 5E54 5E55 5E56 5E57
+5E58 5E59 5E5B 2212A 5E63 5ECD 5ECE 5ECF 5ED0 5ED1
+5ED2 5ED3 5ED4 5ED5 5ED6 5ED7 5ED8 5ED9 5EDC 5F0A
+38C3 5F43 5F44 5F45 5F46 38D1 5F6F 5F70 5FB1 5FB3
+5FB4 22554 5FB6 6128 612C 6133 6138 613B 613F 6141
+6142 6147 6148 614B 6150 3980 6152 6153 6154 6156
+6158 615A 615B 615E 615F 6160 6161 6162 6163 6165
+6169 616A 616C 616F 6171 6172 6173 6174 6175 6177
+617A 617B 617D 6180 6181 6186 6188 22803
+6227 6228 6229 622A 622B 622C 642B 6434 643B 643F
+3A2F 3A31 3A32 3A33 3A34 3A35 3A36 3A37 3A38 3A39
+644B 644C 644D 644E 644F 6450 6451 6453 6454 6455
+6457 6458 6459 645A 645B 645C 645D 645E 645F 6460
+6462 6463 6464 6465 6466 6467 646A 646B 646C 646D
+6471 6472 6473 6474 6475 6476 6477 6478 647A 647B
+647C 647D 647E 647F 6481 6482 6484 6487 22CB7 22CC2
+22CC6 22CC9 22D07 22D08 22D12 6456 64A6 6571 6572 6573
+65A0 65A1 65B2 230B7 65D6 65D7 3B0D 3B0E 3B0F 3B10
+669A 669B 669C 669D 669E 669F 66A0 66A1 66A2 66A3
+66A4 66A5 66A6 66A7 66A8 23262 6704 6705 3B3A 3B3B
+6722 3BBC 698A 698D 698E 698F 6990 6991 6992 6993
+6995 6996 6997 6999 699A 699B 699C 699D
+699E 699F 69A0 69A1 69A2 69A3 69A4 69A5 69A6 69A7
+69A8 69A9 69AA 69AB 69AC 69AD 69AE 69AF 69B0 69B1
+69B2 69B3 69B4 69B5 69B6 69B7 69B8 69B9 69BA 69BB
+69BC 69BD 69BE 69BF 69C0 69C1 69C2 69C3 69C4 69C5
+69C6 69C7 69C8 69C9 69CA 69CB 69CC 69CD 69CE 69CF
+69D0 69D1 69D2 69D3 69D4 69D5 69D6 69D7 69D8 69D9
+69DA 69DB 69DC 69DD 69DE 69DF 69E0 69E1 6A2E FA14
+235CD 235CE 235CF 235F3 23600 6A03 6B49 6B4A 6B4B 6B4C
+6B4D 6B70 6B74 6B9D 6B9E 6B9F 6BA0 6BA1 6BC3 6BC4
+23AFA 6BFE 6C32 6C33 6ECE 3D3D 3D46 6ECC 6EEB 6EEC
+6EED 6EEE 6EEF 6EF0 6EF1 6EF2 6EF3 6EF4 6EF5 6EF6
+6EF7 6EF8 6EF9 6EFA 6EFB 6EFC 6EFD 6EFE 6EFF 6F01
+6F02 6F03 6F04 6F05 6F06 6F07 6F08 6F09
+6F0A 6F0C 6F0D 6F0E 6F0F 6F11 6F12 6F14 6F15 6F16
+6F17 6F18 6F19 6F1A 6F1B 6F1C 6F1D 6F1E 6F1F 6F20
+6F21 6F22 6F23 6F24 6F25 6F27 6F28 6F29 6F2A 6F2B
+6F2C 6F2D 6F2E 6F2F 6F30 6F31 6F32 6F33 6F34 6F35
+6F36 6F37 6F38 6F39 6F3A 6F3B 6F3C 6F3E 6F40 6F42
+6F43 6F44 6F45 6F46 6F47 6F48 6F49 6F4A 6F4B 6F4C
+6F4D 23ED7 23EF7 23EF8 23EF9 23EFA 23EFB 23EFC 23F35 23F41
+6F4E 6F73 7155 715B 3DE7 3DE8 7179 717B 717C 717D
+717E 717F 7180 7181 7182 7183 7184 7185 7186 7187
+7188 7189 718A 718B 718C 718D 718E 718F 7190 7191
+7192 7193 7194 7195 7196 7197 7198 7199 84B8 2430D
+2431A 24334 24348 7233 723E 7244 3E22 7253 7254 7292
+7293 7294 7295 7296 7297 7353 7343 7344
+734C 734D 734F 7350 7351 7352 7354 7355 3EE7 3EE9
+7460 7461 7462 7463 7464 7465 7466 7467 7468 746A
+746B 746D 746E 7470 7471 7472 7473 7474 7475 7476
+7477 7478 249EC 249ED 249F6 249F7 249F8 249F9 249FB 24A0E
+24A12 24A13 7500 7502 7503 7504 7505 7506 24B6E 7527
+757B 757C 757D 7590 7591 7607 7608 7609 760A 760B
+760C 760D 760E 7611 7612 7613 7614 7615 7616 7617
+7618 7627 76B6 76B7 76B8 76B9 76E0 76E1 76E2 76E3
+4053 776E 776F 7770 7771 7772 7773 7774 7775 7776
+7777 7778 777A 777B 777C 777D 777E 777F 7780 7781
+7782 7783 7784 7785 7786 25220 25221 40C8 787E 789D
+789E 789F 78A0 78A1 78A2 78A3 78A4 78A5 78A6 78A7
+78A8 78A9 78AA 78AB 78AC 78AD 78AE 78AF
+78B1 78B2 78B3 78B4 78B5 78B6 78B7 78B8 78B9 78C1
+7987 7988 7989 798A 798B 798C 798D 798E 798F 7990
+7991 7992 7993 7994 7995 7996 7997 7998 7999 4167
+7A26 7A27 7A28 7A29 7A2A 7A2B 7A2C 7A2D 7A2E 7A2F
+7A30 7A31 7A32 7A33 7A4A 7A35 7AA8 7AA9 7AAA 7AAB
+7AAC 7AAD 259CC 7AEC 7AED 7AEF 7AF0 25A9C 7AEE 7B75
+4201 4202 4203 4204 4205 4206 4207 4208 4209 420A
+420B 420C 420D 7B81 7B82 7B83 7B84 7B85 7B86 7B87
+7B88 7B89 7B8A 7B8B 7B8C 7B8D 7B8E 7B8F 7B90 7B91
+7B92 7B93 7B94 7B95 7B96 7B97 7B98 7B99 7B9A 7B9B
+7B9C 7B9D 7B9E 7B9F 7BA0 7BA1 7BA2 7BA3 7BA4 7BA5
+7BA6 7BA7 7BA8 7BA9 7BAA 7BAB 25BB3 25BB4 25BC6 7BB8
+7CB6 7CB7 7CB8 7CB9 7CBA 7CBB 7CBC 7CBD
+7CBE 7CBF 7CC1 25EA6 25EBC 7D96 7DD0 42E8 42E9 42EC
+42ED 42F1 7D9C 7D9D 7D9E 7D9F 7DA0 7DA1 7DA2 7DA3
+7DA4 7DA5 7DA6 7DA7 7DA8 7DA9 7DAA 7DAB 7DAC 7DAD
+7DAE 7DAF 7DB0 7DB1 7DB2 7DB3 7DB4 7DB5 7DB6 7DB7
+7DB8 7DB9 7DBA 7DBB 7DBC 7DBD 7DBE 7DBF 7DC0 7DC1
+7DC2 7DC3 7DC4 7DC5 7DC6 7DC7 7DC8 7DC9 7DCA 7DCB
+7DCC 7DCD 7DCE 7DCF 7DD1 7DD2 7DD4 7DD5 26048 26064
+7F25 7F26 7F27 7F28 7F29 7F2A 7F2B 7F41 7F42 7F6F
+7F70 7F71 7F73 7F74 7FAB 7FDE 7FDF 7FE0 7FE1 7FE2
+7FE3 7FE4 2644A 7FE5 8023 8024 8025 43BA 8059 805A
+805B 805C 805D 805E 805F 8061 8062 8063 265A0 8087
+8088 8150 4420 4425 4426 817F 8180 8181 8182 8183
+8184 8185 8186 8187 8188 8189 818A 818B
+818C 818D 818E 818F 8191 26799 267B3 267B4 267CC 81E7
+81FA 8207 8213 8214 8215 821E 824A 824B 824C 824D
+26A51 26A52 44DD 44DF 44E4 44E9 44EA 44EB 44EC 8490
+8491 8492 8493 8494 8495 8496 8497 8498 8499 849A
+849B 849C 849D 849E 849F 84A0 84A1 84A2 84A3 84A4
+84A5 84A6 84A7 84A8 84A9 84AA 84AB 84AC 84AD 84AE
+84AF 84B0 84B1 84B2 84B3 84B4 84B5 84B6 84B7 84B9
+84BA 84BB 84BC 84BD 84BE 84BF 84C0 84C1 84C2 84C3
+84C4 84C6 84C7 84C9 84CA 84CB 84CC 84CD 84CE 84CF
+84D0 84D1 84D2 84D3 84D4 84D5 84D6 84D7 84D8 84D9
+84DA 84DB 84DC 84DD 84DF 84E1 84E2 84E3 84E4 84E6
+26D74 26DA0 26DA1 26DA2 26DA3 26DA4 26DA5 26DA6 26DA7 26DAE
+26DDC 26DEA 26DEB 26DF0 84E5 8660 8661 271CD
+8711 8712 872B 8718 8719 871A 871B 871C 871D 871E
+871F 8720 8721 8722 8723 8724 8725 8726 8727 8728
+8729 872A 872C 872D 872E 872F 8730 8731 8732 8733
+8734 8735 8736 8737 8738 8739 873A 873B 873C 873D
+873E 873F 8740 8741 8742 8743 8744 8745 8747 8748
+8749 874A 874B 8755 876B 88E2 463B 88E7 88E8 88E9
+88EA 88EB 88EC 88ED 88EE 88EF 88F0 88F1 88F2 88F3
+88F4 88F5 88F6 88F7 88F8 88F9 88FA 88FB 88FC 88FD
+88FE 88FF 8900 8902 8903 8904 891A 899D 899E 899F
+89A0 89A1 89CF 89E8 89E9 89EA 89EB 8A8B 8A8C 8A8D
+8A8E 8A8F 8A90 8A91 8A92 8A93 8A94 8A96 8A97 8A98
+8A99 8A9A 8A9B 8A9C 8A9D 8A9E 8A9F 8AA1 8AA2 8AA3
+8AA4 8AA5 8AA6 8AA7 8AA8 8AA9 8AAA 8AAB
+8AAC 8AAD 8AAE 279FD 27A0A 27A0E 8C2D 8C2E 8C2F 8C30
+8C31 8C32 8C3D 8C67 8C68 8C69 8C6A 8C8B 8C8C 8C8D
+3562 8CCF 8CD0 8CD1 8CD2 8CD3 8CD4 8CD5 8CD6 8CD7
+8CD8 27D8F 27D98 8D58 8D59 8D5A 8D5B 8D6B 8D95 8D96
+8D97 8D98 8D99 8D9A 47F4 8DFC 8DFD 8DFE 8DFF 8E00
+8E01 8E02 8E03 8E04 8E05 8E06 8E07 8E08 8E09 8E0A
+8E0B 8E0C 8E0D 8E0E 28048 8EB3 8EB4 8EB5 8F0D 8F0E
+8F0F 8F10 8F11 8F12 8F13 8F14 8F15 28306 28318 8F95
+8F96 8F97 8FA1 8FA2 8FA3 9058 9059 905A 905B 905C
+905D 905E 905F 9060 9061 9062 9063 9064 9065 90D2
+9118 9119 911A 911B 911C 911D 911E 911F 9120 9121
+9122 9123 9124 9125 48FA 9172 9173 9174 9175 9176
+9177 9178 9179 917A 917B 917C 917D 917E
+917F 922D 4924 4925 4926 492A 9275 9276 9277 9278
+9279 927A 927B 927D 927E 927F 9280 9281 9282 9283
+9284 9285 9286 9287 9288 9289 928A 928B 928C 928D
+928E 9290 9291 9292 9293 9294 9295 9296 9297 9298
+9299 929A 929B 929C 929D 929E 929F 92A0 92A1 92A2
+92A3 92A4 92A5 92A6 92A7 92A8 92A9 92AA 92AB 92AC
+92AD 92AE 92AF 92B0 92B1 28989 289A8 289AA 289AB 92EE
+927C 9532 9533 9534 9535 9536 9537 9538 9539 953A
+953B 953C 953D 953E 953F 9540 9541 9542 9543 9544
+9545 95A1 95A2 95A3 95A4 95A5 95A6 95A7 95A8 95A9
+95AA 961A 9699 969A 969B 969C 969D 969E 969F 96A0
+96A1 96CC 96D0 96D1 96D2 28FC5 4A0F 96FF 9700 9701
+290AF 290B0 290B1 9757 9758 9759 9764 977A
+977B 977C 977D 977E 977F 9780 9781 9782 9783 9784
+9785 9786 97CD 97CE 97EC 97F6 97F7 2941D 9819 4AB8
+9814 9815 9816 9817 9818 981A 9897 4AFF 4B00 98AD
+98AE 98AF 98B0 98B1 295B8 98D6 98D5 98D7 4B2C 98F8
+9900 9901 9902 9903 9904 9905 9906 9907 9909 990C
+990E 990F 9991 9992 4B6F 999B 999C 999D 4B7B 4B7E
+99B6 99B7 99B8 99B9 99BA 99BB 99BC 99BD 99BE 99BF
+99C0 99C1 99C2 99C3 99C4 99C5 99C6 99C7 9AA0 9AA1
+9AA2 4BC8 9AAF 9AB0 9AB1 9ADA 9AE3 9AE4 9AE5 9AE6
+9AE7 9AE8 9AE9 9AEA 29B05 29B0E 9B26 9B3E 9B3F 9B40
+9B41 9B42 29CAD 9B5F 9B60 9B61 9B62 29D5A 9C91 9C92
+9C93 9C94 9C95 9C96 9C97 9C98 9C99 9C9A 9C9B 9C9C
+9C9D 9C9E 9C9F 9CF1 9CF2 9CF3 9CF4 9CF5
+9CF6 9E55 9E56 9E57 9E59 9E5A 9E5B 9E5C 9EA7 9EBC
+9EBD 9F3B 9F4A 9F87 9F88
+FDD0-280F
+3493 3496 3498 50F5 50F6 50F8 50F9 50FA 50FB 50FC
+50FD 50FE 50FF 5100 5101 5102 5103 5104 5105 5106
+5107 5108 5109 510A 510B 510C 510D 510E 510F 203C9
+203CB 5130 51D9 51DA 51DB 51DC 20611 5285 5286 5287
+5288 5289 528A 528B 528C 528D 528E 528F 52EE 52EF
+52F0 52F1 52F2 5314 5333 53B1 53B2 20AB4 3559 53C7
+5653 35F1 35F2 35F3 5620 5629 562A 562B 562C 562D
+562E 562F 5630 5631 5632 5633 5634 5635 5636 5637
+5638 5639 563A 563B 563C 563D 563E 563F 5640 5641
+5642 5643 5644 5646 5647 5648 5649 564A 564B 564C
+564D 564E 564F 5650 5652 5654 5656 5657 5658 5659
+565A 565B 565C 565D 5674 20F64 20F8D 20F90 20FAD 20FB4
+20FB5 20FB6 20FBC 21014 571A 5880 589C 589D
+589E 589F 58A0 58A1 58A2 58A3 58A4 58A5 58A6 58A7
+58A9 58AA 58AB 58AC 58AE 58AF 58B0 58B1 58B2 58B3
+58B4 58B5 58B6 58B7 58B8 58B9 21424 2143F 21452 21454
+21455 58FF 5900 21577 5926 596D 3723 3725 3726 5AF4
+5AF5 5AF6 5AF7 5AF8 5AF9 5AFA 5AFB 5AFC 5AFD 5AFE
+5AFF 5B00 5B01 5B02 5B03 5B04 5B05 5B06 5B07 5B08
+5B09 5B0A 5B0B 5B0C 5B0D 5B0E 5B0F 21852 2185E 21861
+21862 21863 21864 21877 2187B 21883 21884 21885 376F 5BE9
+5BEB 5BEC 5BED 5BEE 5C0E 21B44 5C35 37A0 5C64 5C65
+5C66 5C67 380F 5D8F 5D90 5D91 5D92 5D93 5D94 5D95
+5D96 5D97 5D98 5D99 5D9A 5D9B 5D9C 5D9D 5D9E 5D9F
+5DA0 5DA1 5DA2 5DA3 5DA4 5DA5 21F0F 21F15 5DE4 3861
+5E5A 5E5C 5E5D 5E5E 5E5F 5E60 5E61 5E62
+5E64 5E65 5E69 5EDA 5EDB 5EDD 5EDE 5EDF 5EE0 5EE1
+5EE2 5EE3 5EE4 5F47 5F48 5F49 5F71 5FB2 5FB5 5FB7
+5FB8 5FB9 5FBA 6155 6157 6159 615C 615D 6164 6166
+6167 616B 616E 6170 6176 6178 6179 617C 617E 617F
+6182 6183 6184 6185 6187 3989 398A 3992 616D 6189
+618B 618D 618E 618F 6190 6192 6193 6194 6195 6198
+619A 619B 619C 619E 619F 61A1 61A2 61A3 61A4 61A6
+61A7 61AA 61AB 61AC 61AD 61AE 61AF 61B0 61B1 61B3
+2285F 22860 22871 622D 622E 622F 3A3C 6468 6469 646E
+646F 6470 6479 6480 6483 3A4B 6485 6486 6488 648A
+648B 648C 648D 648E 648F 6490 6491 6492 6493 6494
+6495 6496 6497 6498 6499 649A 649B 649C 649D 649E
+649F 64A0 64A1 64A2 64A3 64A4 64A5 64A7
+64A8 64A9 64AA 64AB 64AC 64AD 64AE 64AF 64B0 64B1
+64B2 64B3 64B4 64B5 64B6 64B7 64B8 64B9 64BA 64C6
+22D44 22D4C 22D67 6575 6576 6577 6578 6579 657A 657B
+22FCC 65B3 230BC 3B11 3B12 3B13 3B14 3B15 3B16 66A9
+66AA 66AB 66AC 66AD 66AE 66AF 66B0 66B1 66B2 66B3
+66B4 66B5 66B6 66B7 23281 2328A 66BC 3B3C 3B3D 3B3E
+81A4 69E9 3BBE 3BC2 3BC4 69E2 69E3 69E4 69E5 69E6
+69E7 69E8 69EA 69EB 69EC 69ED 69EE 69EF 69F0 69F1
+69F2 69F3 69F4 69F5 69F6 69F7 69F8 69F9 69FA 69FB
+69FC 69FD 69FE 69FF 6A00 6A01 6A02 6A04 6A05 6A06
+6A07 6A08 6A09 6A0A 6A0B 6A0C 6A0D 6A0E 6A0F 6A10
+6A11 6A12 6A13 6A14 6A15 6A16 6A17 6A18 6A19 6A1A
+6A1B 6A1C 6A1D 6A1E 6A1F 6A20 6A21 6A22
+6A23 6A24 6A25 6A26 6A27 6A29 6A2A 6A2B 6A2C 6A2D
+6A2F 6A30 6A31 6A65 2361A 2363C 23640 23659 2365F 23677
+6B4E 6B4F 6B50 6B51 6B52 6B53 6B75 6B76 3C73 3C74
+6BA2 6BA3 6BA4 6BA5 6BA6 6BC5 6BC6 6BFF 6C00 6C01
+6C02 6ED5 6F00 6F10 6F26 6F3F 6F41 3D4C 3D4E 3D51
+6F0B 6F3D 6F4F 6F50 6F51 6F52 6F53 6F54 6F55 6F56
+6F57 6F58 6F59 6F5A 6F5B 6F5C 6F5D 6F5F 6F60 6F61
+6F62 6F63 6F64 6F65 6F66 6F67 6F68 6F69 6F6A 6F6B
+6F6C 6F6D 6F6E 6F6F 6F70 6F71 6F72 6F74 6F75 6F76
+6F77 6F78 6F79 6F7A 6F7B 6F7C 6F7D 6F7E 6F7F 6F81
+6F82 6F84 6F85 6F86 6F87 6F88 6F89 6F8A 6F8B 6F8C
+6F8D 6F8E 6F8F 6F90 6F91 6F92 6F93 6F94 6F95 6F96
+6F97 6F98 6F9A 6F9B 6F9C 6F9D 6FD0 23F4A
+23F7F 23F80 23F81 23F82 23F8F 23FB4 23FB7 6FC6 71A6 3DEB
+719A 719B 719C 719D 719E 719F 71A0 71A1 71A2 71A3
+71A4 71A5 71A7 71A8 71A9 71AA 71AB 71AC 71AD 71AE
+71AF 71B0 71B1 71B2 71B3 71B4 71B5 9ED9 24362 24363
+24364 24365 2438C 24396 2439C 5655 7234 7245 7255 7256
+7257 7298 7299 729A 729B 246D4 734E 734B 7356 7357
+7358 7359 735A 735B 735C 735D 735E 735F 7360 7361
+7362 7364 24882 7469 746C 3EEB 3EF0 3EF3 3EF4 7479
+747A 747B 747C 747D 747E 7480 7481 7482 7483 7484
+7485 7486 7487 7488 7489 748A 748B 748C 748E 7493
+24A15 24A21 24A22 24A23 24A24 24A25 24A26 24A27 24A28 24A29
+24A2A 24A3E 7507 7508 7509 3F53 24BF5 757E 757F 761F
+3FB7 3FC0 7619 761A 761B 761C 761D 761E
+7620 7621 7622 7623 7624 7625 7626 7628 7629 762A
+762B 24E3B 24E50 3FE5 769A 769B 769C 769D 769E 24F97
+24F9A 76BA 76E4 4057 7787 7788 7789 778A 778B 778C
+778D 778E 778F 7790 7791 7792 7793 25250 78BA 78BB
+78BC 78BD 78BE 78BF 78C0 78C2 78C3 78C4 78C5 78C6
+78C7 78C8 78C9 78CA 78CB 78CC 78CD 78CE 78CF 78D0
+78D1 78D2 78D3 78D4 78D5 78D7 78D8 78D9 78E4 25531
+25535 2553F 799A 799B 799C 799D 799E 799F 79A0 79A1
+79A2 79A3 256E3 416C 416E 4175 7A34 7A36 7A37 7A38
+7A39 7A3A 7A3B 7A3C 7A3D 7A3E 7A3F 7A40 7A41 7A42
+7A43 25857 7AAE 7AAF 7AB0 7AB1 7AB2 7AB3 7AB4 420E
+420F 4210 4211 4212 4213 4214 4215 421A 421C 4220
+4222 4223 4226 4229 7BAC 7BAD 7BAE 7BAF
+7BB0 7BB1 7BB2 7BB3 7BB4 7BB5 7BB6 7BB7 7BB9 7BBA
+7BBB 7BBC 7BBD 7BBE 7BBF 7BC1 7BC2 7BC3 7BC4 7BC5
+7BC6 7BC7 7BC8 7BCA 7BCB 7BCC 7BCD 7BCE 7BCF 7BD0
+7BD1 7BD2 7BD3 25BE4 25BE8 25C01 25C06 4294 7CC2 7CC3
+7CC4 7CC5 7CC6 7CC7 7CC8 7CC9 7CCA 7CCB 7CCC 7CCD
+7CCE 25ED7 25ED8 42F4 42FB 42FC 4300 4301 4304 7DD3
+7DD6 7DD7 7DD8 7DD9 7DDA 7DDB 7DDC 7DDD 7DDE 7DDF
+7DE0 7DE1 7DE2 7DE3 7DE4 7DE5 7DE6 7DE7 7DE8 7DE9
+7DEA 7DEB 7DEC 7DED 7DEE 7DEF 7DF0 7DF1 7DF2 7DF3
+7DF4 7DF5 7DF6 7DF7 7DF8 7DF9 7DFA 7DFB 7DFC 7DFD
+7DFE 7DFF 7E00 7E01 7E02 7E03 7E04 7E05 7E06 7E07
+26083 26097 260A4 260A5 433E 7F2C 7F2D 7F2E 7F2F 7F75
+7F76 7F77 7F78 7FAC 7FAD 7FAE 7FAF 7FB0
+7FE6 7FE7 7FE8 7FE9 7FEA 7FEB 7FEC 7FED 26469 43AC
+8026 8027 8064 8065 8066 8067 8068 8069 806A 806B
+265AD 442D 4433 4434 8192 8193 8194 8195 8196 8197
+8198 8199 819A 819B 819C 819D 819E 819F 81A0 81A1
+81A2 81A3 81F1 8216 8217 447A 824E 824F 8250 8251
+8252 8253 8254 44F4 848A 84E0 84E7 84E8 84E9 84EA
+84EB 84EC 84ED 84EE 84EF 84F0 84F2 84F3 84F4 84F5
+84F6 84F7 84F8 84F9 84FA 84FB 84FC 84FD 84FE 84FF
+8500 8501 8502 8503 8504 8505 8506 8508 8509 850A
+850B 850C 850D 850E 850F 8510 8511 8512 8513 8514
+8515 8516 8517 8518 8519 851A 851B 851C 851D 851E
+851F 8520 8521 8522 8523 8524 8525 8526 8527 8528
+8529 852A 852B 852C 852D 852E 852F 8530
+8531 8532 8533 8534 8535 8536 8537 8538 8539 853A
+853B 853C 26E00 26E05 26E07 26E12 26E42 26E43 26E44 26E45
+26E6E 26E72 26E77 26E84 853D 854F 8662 874C 874E 874F
+8750 8751 8752 8753 8754 8756 8757 8758 8759 875A
+875B 875C 875D 875E 875F 8760 8761 8762 8763 8764
+8765 8766 8767 8768 8769 876A 876C 876D 876E 876F
+8770 8771 8772 8773 8774 8775 8776 8777 8778 877A
+877B 877C 877D 877E 877F 8780 87E1 2739A 8782 885A
+885B 885C 885D 275FD 4645 4646 88E6 8905 8906 8907
+8908 8909 890A 890B 890C 890D 890E 890F 8910 8911
+8912 8913 8914 8915 8916 8917 8918 8919 891B 891C
+891D 2770F 89A2 89A3 89A4 89A5 27858 89A9 89D0 89D1
+89EC 89ED 89EE 89EF 89F0 8A95 46F5 8AAF
+8AB0 8AB1 8AB2 8AB3 8AB4 8AB5 8AB6 8AB7 8AB8 8AB9
+8ABA 8ABB 8ABC 8ABD 8ABE 8ABF 8AC0 8AC1 8AC2 8AC3
+8AC4 8AC5 8AC6 8AC7 8AC8 8AC9 8ACA 8ACB 8ACC 8ACD
+8ACE 8ACF 8AD0 8AD1 8AD2 8AD3 8AD4 8AD5 8AD6 8AD7
+8AD8 8AD9 8ADA 8AE9 27A3E 27A53 27A59 8ADB 8AF8 8C33
+8C34 8C35 8C3E 8C4C 8C4D 8C4E 27BF4 8C6C 8C8E 8C8F
+477C 8CD9 8CDA 8CDB 8CDC 8CDD 8CDE 8CDF 8CE0 8CE1
+8CE2 8CE3 8CE4 8CE5 8CE6 8CE7 8CE8 8CE9 8CEA 8CEB
+8CEC 8CED 8D5C 8D6D 47B6 8D9B 8D9C 8D9D 8D9E 8D9F
+8DA0 8DA1 8DA2 8DA3 8DA4 4800 4801 480B 8E0F 8E10
+8E11 8E12 8E13 8E14 8E15 8E16 8E17 8E18 8E19 8E1A
+8E1B 8E1C 8E1D 8E1E 8E1F 8E20 8E21 8E22 8E23 8E24
+8E25 8E26 8E27 8E28 8E29 8E2A 8E2C 8E2D
+8E2E 8E2F 8E3A 28083 28090 8E2B 8E37 8EB6 8EB7 8EB8
+8EB9 8EBA 8EBB 8EBC 28256 485D 8F16 8F17 8F18 8F19
+8F1A 8F1B 8F1C 8F1D 8F1E 8F1F 8F20 8F21 8F22 8F23
+8F24 8F25 8F26 8F27 8F28 8F29 8F2A 8F2B 8F2C 2832F
+2833A 8F98 8FA4 8FB3 9066 9067 9068 9069 906A 906B
+906C 906D 906E 906F 9070 9071 9073 9077 90F6 48DD
+9126 9127 9129 912A 912B 912D 912E 912F 9130 9131
+9132 9180 9181 9182 9183 9184 9185 9186 9187 9188
+9189 918A 918B 918C 492D 92B2 92B3 92B4 92B5 92B6
+92B7 92B8 92B9 92BA 92BB 92BC 92BD 92BE 92BF 92C0
+92C1 92C2 92C3 92C4 92C5 92C6 92C7 92C8 92C9 92CA
+92CC 92CD 92CE 92CF 92D0 92D1 92D2 92D3 92D4 92D5
+92D6 92D7 92D8 92D9 92DA 92DB 92DC 92DD
+92DE 92DF 92E0 92E1 92E2 92E3 92E4 92E5 92E6 92E7
+92E8 92E9 92EA 92EB 92EC 92ED 92EF 92F0 92F1 92F2
+92F3 92F4 92F5 92F6 FA27 289B8 289BC 289C0 289DC 289DE
+289E1 289E3 289E4 9546 9547 9548 9549 954A 954B 954C
+954D 954E 954F 9550 9551 9552 9553 9554 9555 957C
+95AB 95AC 95AD 95AE 95AF 95B0 95B1 95B2 95B3 95B4
+28D34 49E5 96A2 96A3 96A4 96A5 96D3 9702 9703 9704
+9705 9706 9707 9708 9709 970A 290C0 975A 9760 9765
+9787 9788 9789 978A 978B 978C 978D 978E 978F 9790
+9791 9792 97CF 97D0 97D1 97EF 29420 981B 981C 981D
+981E 981F 9820 9821 9822 9823 9826 9827 9828 9829
+982A 982B 982C 9898 9899 989A 989B 989C 989D 98B2
+98B3 98D8 4B37 98FA 9908 990A 990B 990D
+9911 9912 9913 9914 9915 9916 9917 9918 9919 9993
+9994 99C8 99C9 99CA 99CB 99CC 99CD 99CE 99CF 99D0
+99D1 99D2 99D3 99D4 99D5 99D6 99D7 99D8 99D9 99DA
+99DB 99DC 99DD 99DE 99DF 99E0 298A4 9AA3 9AB2 9AB3
+9AB4 9AB5 9AB6 9AB7 9ADB 9AEB 9AEC 9AEE 9AEF 9AF0
+9AF1 9AF2 9AF3 9AF4 9B27 4C20 9B43 9B44 9B45 9B46
+4C3B 4C3E 9B63 9B64 9B65 9B66 9B67 9B68 9B69 9B6A
+9B6B 9B6C 9B6D 9B6E 9B6F 9B70 9B71 9B72 9B73 9B74
+9B75 9B76 9B77 9B78 9B79 29D7C 9CA0 9CA1 9CA2 9CA3
+9CA4 9CA5 9CA6 9CA7 9CA8 9CA9 9CAA 9CAB 9CAC 4CAE
+4CB0 4CB7 9CF7 9CF8 9CF9 9CFA 9CFB 9CFC 9CFD 9CFE
+9CFF 9D00 9D01 9D02 9D03 9D04 9D05 9D06 9D07 9D08
+9D09 9D0B 9D0C 9D0D 9D0E 29FB7 9E58 9E5D
+9E5E 9E5F 9E60 9E61 9E62 9E63 9E64 9E76 9E83 9E84
+2A293 9EA8 9EA9 9EAA 9EAB 9EB9 9EBE 9ECE 58A8 9ED3
+9F0F 9F10 9F11 9F51 9F52 9F89 9F8A
+FDD0-2810
+4EB8 5110 5111 5112 5113 5114 5115 5116 5117 5118
+5119 511A 511B 511C 511D 511E 512B 203F5 203FC 5163
+204FC 5180 51AA 51DD 51DE 20615 5290 5291 5292 5293
+5294 52F3 5334 53E1 35FB 35FE 3600 3601 3602 3603
+3604 565E 565F 5660 5661 5662 5663 5664 5665 5666
+5667 5668 5669 566A 566B 566C 566D 566E 566F 5670
+5671 5672 5673 5675 5676 5677 5678 5679 567A 567B
+567C 20FDF 20FEA 20FEB 20FEC 20FED 2101D 2101E 571B 571C
+58BA 58BB 58BC 58BD 58BE 58BF 58C0 58C1 58C2 58C3
+58C4 58C5 58C6 58C7 58C8 58C9 58CA 58CB 58CC 5901
+596E 596F 372B 372C 372D 5B10 5B11 5B12 5B13 5B14
+5B15 5B16 5B17 5B18 5B19 5B1A 5B1B 5B1C 5B1D 5B1E
+5B1F 5B20 5B21 5B22 5B34 2189E 2189F 218A0
+218A1 218A2 218BE 218BF 5B28 5B78 5B79 5BEF 5BF0 5DA6
+5DA7 5DA8 5DA9 5DAA 5DAB 5DAC 5DAD 5DAE 5DAF 5DB0
+5DB1 5DB2 5DB3 5DB4 5DB5 5DB6 3862 3863 3864 5E66
+5E67 5E68 2215B 5E6F 5EE5 5EE6 5EE7 5EE8 5EE9 5EEA
+5F4A 5F4B 5F5B 5F5C 22471 224B0 5FBB 5FBC 618A 618C
+6191 6196 6197 6199 619D 61A0 61A5 61A8 61A9 61B2
+3999 61B4 61B6 61B7 61B8 61B9 61BA 61BD 61BE 61BF
+61C0 61C1 61C4 61C5 61C6 61C8 61CA 61CC 61CD 61CE
+61CF 61D0 61D2 61D3 61D4 228AD 228C1 61BB 6231 6230
+6489 3A52 3A54 3A57 64BB 64BC 64BD 64BE 64BF 64C0
+64C1 64C2 64C3 64C4 64C5 64C7 64C8 64C9 64CB 64CC
+64CD 64CF 64D0 64D1 64D2 64D3 64D4 64D5 64D6 64D7
+64D9 64DA 64DB 64DC 64DD 64DE 22D8D 22D95
+22DA0 22DA3 22DA4 22DB7 64F3 6533 6574 657C 657D 657E
+657F 22FE3 6593 65A2 65B4 65D8 65D9 3B17 3B18 3B19
+3B1A 3B1B 3B1C 3B1D 3B1E 3B1F 66B8 66B9 66BA 66BB
+66BD 66BE 66BF 66C0 66C1 66C2 66C3 66C4 66C5 66C6
+66C7 66C8 66C9 66CA 66CB 66CC 66CD 23289 232AB 232AC
+232AD 66CF 3B31 6706 3B3F 6723 6724 6725 6A28 6A74
+3BD7 3BDD 6A32 6A33 6A34 6A35 6A36 6A37 6A38 6A39
+6A3A 6A3B 6A3C 6A3D 6A3E 6A3F 6A40 6A41 6A42 6A43
+6A44 6A45 6A46 6A47 6A48 6A49 6A4A 6A4B 6A4C 6A4D
+6A4E 6A4F 6A50 6A51 6A52 6A53 6A54 6A55 6A56 6A57
+6A58 6A59 6A5A 6A5B 6A5C 6A5D 6A5E 6A5F 6A60 6A61
+6A62 6A63 6A64 6A66 6A67 6A68 6A69 6A6A 6A6B 6A6C
+6A6D 6A6E 6A6F 6A70 6A71 6A72 6A73 6A75
+6A76 6A77 6A78 6A79 6A7A 6A7B 6A7C 236A6 236AD 236BA
+236DF 236EE 6B54 6B55 6B56 6B57 6B58 6B59 6B5A 6B77
+6BA7 6BA8 6BA9 6BAA 6BAB 6BC7 6BC8 6C03 6C04 6C05
+6C06 6C07 6F5E 6F83 3D5F 3D62 3D65 3D69 3D6A 6F99
+6F9E 6F9F 6FA0 6FA1 6FA2 6FA3 6FA4 6FA5 6FA6 6FA7
+6FA8 6FAA 6FAB 6FAC 6FAD 6FAE 6FAF 6FB0 6FB1 6FB2
+6FB3 6FB4 6FB5 6FB6 6FB7 6FB8 6FB9 6FBA 6FBB 6FBC
+6FBD 6FBE 6FBF 6FC0 6FC1 6FC2 6FC3 6FC4 6FC5 6FC7
+6FC8 6FC9 6FCA 6FCB 6FCD 6FCE 6FCF 6FD1 6FD2 6FD3
+6FD6 23FC5 23FEB 23FEC 23FED 23FEE 23FEF 23FF0 24011 7004
+3DF3 3DF7 3DFC 3DFD 71B6 71B7 71B8 71B9 71BA 71BB
+71BC 71BD 71BE 71BF 71C0 71C1 71C2 71C3 71C4 71C5
+71C6 71C7 71C8 71C9 71CA 71CB 71CC 71CD
+71CE 71CF 71D0 71D1 71D2 71D3 71D4 71D5 71D6 71D7
+71D8 71D9 71DA 71DB 71DC 71DD 71DE 243BD 243C1 243E9
+243EA 243F2 729C 729D 729E 729F 7363 7365 7366 7367
+7368 7369 736A 736B 736C 736D 747F 3EFC 748D 748F
+7491 7492 7494 7495 7496 7498 7499 749A 749B 749C
+749D 749E 749F 74A0 74A1 74A3 74A4 24A42 24A45 24A4A
+24A4E 24A4F 24A50 24A51 24A5D 24A65 24A66 24A67 74A2 74E2
+750A 750B 750C 750D 750E 7580 7581 7582 24CC9 762C
+762D 762E 762F 7630 7631 7632 7633 7634 7635 7636
+7637 7638 7639 763A 763B 763C 763D 763E 763F 764A
+769F 76A0 76A1 76BB 76E5 76E6 76E7 2509D 4062 4065
+406A 7794 7795 7796 7797 7798 7799 779A 779B 779C
+779D 779E 779F 77A0 77A1 77A2 77A3 25299
+77A5 78D6 78DC 40D8 78DA 78DB 78DD 78DE 78DF 78E0
+78E1 78E2 78E3 78E5 78E6 78E7 78E8 78E9 78EA 78EB
+78EC 78ED 78EE 2555B 2555C 2555D 2555E 25562 25565 25566
+79A4 79A5 79A6 79A9 256F6 7A44 7A45 7A46 7A47 7A48
+7A4B 7A4C 7A4D 7A4E 7A4F 7A50 7A51 7A52 2585D 25872
+7A53 41B2 7AB5 7AB6 7AB7 7AB8 7AB9 7ABA 7ABB 7ABC
+7ABD 7AF1 25AAE 422A 422B 422D 422E 4230 4231 4232
+7BC9 7BD4 7BD5 7BD6 7BD7 7BD8 7BD9 7BDA 7BDB 7BDC
+7BDD 7BDE 7BDF 7BE0 7BE1 7BE2 7BE3 7BE4 7BE5 7BE6
+7BE7 7BE8 7BE9 7BEA 7BEB 7BEC 7BED 7BEE 7BEF 7C11
+25C21 25C4A 25C65 7BF9 4A00 7CCF 7CD0 7CD1 7CD2 7CD3
+7CD4 7CD5 7CD6 7CD7 7CD8 7E08 7E09 7E0A 7E0B 7E0C
+7E0D 7E0E 7E0F 7E10 7E11 7E12 7E13 7E14
+7E15 7E16 7E17 7E18 7E19 7E1A 7E1B 7E1C 7E1D 7E1E
+7E1F 7E20 7E21 7E22 7E23 7E24 7E25 7E26 7E27 7E28
+7F30 7F31 7F32 7F33 7F34 7F43 7F79 7F7A 7F7B 7F7C
+7FB1 7FB2 7FEE 7FEF 7FF0 7FF1 8028 8029 802A 26512
+43C1 806C 806D 265BF 806E 8190 443B 81A6 81A7 81A8
+81A9 81AA 81AB 81AC 81AD 81AE 81AF 81B0 81B1 81B2
+81B3 81B4 81B5 81B6 2681C 2686E 81B7 81B9 81F2 81FB
+8208 8206 8209 8218 8255 8256 8257 8258 8259 4500
+4503 4504 4509 450B 84DE 853E 853F 8540 8541 8542
+8543 8544 8545 8546 8547 8548 8549 854A 854B 854C
+854D 854E 8550 8551 8552 8553 8554 8555 8556 8558
+8559 855A 855B 855C 855D 855E 855F 8560 8561 8562
+8563 8564 8565 8566 8567 8568 8569 856A
+856B 856C 856D 856E 856F 8570 8571 8572 8573 8574
+8575 26E99 26ED0 26ED1 26ED2 26ED3 26ED4 26ED5 26ED6 26ED7
+26F26 858C 8663 8664 8665 8666 45DD 8779 8781 8783
+8784 8785 8786 8787 8788 8789 878A 878B 878C 878D
+878E 878F 8790 8791 8792 8793 8794 8795 8796 8797
+8798 8799 879A 879B 879C 879D 879E 879F 87A0 87A1
+87A2 87A3 87A4 87A5 87A6 87A7 87A8 87A9 4617 885E
+885F 8860 8861 275FE 464F 891E 891F 8920 8921 8922
+8923 8924 8925 8926 8927 8928 8929 892A 892B 892C
+892D 892E 892F 8930 8931 8932 8934 27735 27736 27741
+89A6 89A7 89A8 89AA 27870 89F1 8ADC 8ADD 8ADE 8ADF
+8AE0 8AE1 8AE2 8AE3 8AE4 8AE5 8AE6 8AE7 8AE8 8AEA
+8AEB 8AEC 8AED 8AEE 8AEF 8AF0 8AF1 8AF2
+8AF3 8AF4 8AF5 8AF6 8AF7 8AF9 8AFA 8AFB 8AFC 8AFD
+8AFE 8AFF 8B00 8B01 8B02 8B03 27A79 27A84 8B14 474E
+8C6B 8C6D 8C6E 8C90 8C91 8C92 8C93 8CEE 8CEF 8CF0
+8CF1 8CF2 8CF3 8CF4 8CF5 27DBD 8D5D 8D5E 8D5F 8D60
+8D6C 8D6E 8DA5 8DA6 8DA7 8E30 8E31 8E32 8E33 8E34
+8E35 8E36 8E38 8E39 8E3B 8E3C 8E3D 8E3E 8E3F 8E40
+8E41 8E42 8E43 8E44 8E45 280BD 280BE 8EBD 8EBE 8F2D
+8F2E 8F2F 8F30 8F31 8F32 8F33 8F34 8F35 8F36 8F37
+8F38 8F39 8F3A 8F3B 8F3C 28365 8F99 8F9A 8FA5 8FA6
+8FA7 8FA8 8FA9 8FAA 48AD 9072 9074 9075 9076 9078
+9079 907A 907B 907C 9086 285E8 285F4 28600 90FA 9133
+9134 9135 9136 9137 4900 4906 918D 918E 918F 9190
+9191 9192 9193 9194 9195 9196 9197 92CB
+4935 92F7 92F8 92F9 92FA 92FB 92FC 92FD 92FE 92FF
+9300 9301 9302 9303 9304 9305 9306 9307 9308 9309
+930A 930B 930C 930D 930E 930F 9310 9311 9312 9313
+9314 9315 9316 9317 9318 9319 931A 931B 931C 931D
+931E 931F 9320 9321 9322 9323 9324 9325 9326 9327
+9329 932A 932B 932C 932D 932E 932F 9330 9331 9332
+9333 9334 9335 9336 9337 9338 9339 933A 933B 933C
+933D 933E 933F 9340 9341 9342 9343 9344 9345 9346
+9348 FA28 289E7 289E8 289F9 289FA 289FB 289FC 28A0F 28A16
+28A25 28A29 937A 9556 9557 9558 9559 955A 955B 955C
+955D 955E 955F 9560 49A1 49A7 95B5 95B6 95B8 95B9
+95BA 95BB 95BC 95BD 95BE 95BF 95C1 95C2 95CD 961B
+49E7 96A6 96A7 96A8 96A9 96AA 96AB 96B7
+96D4 96D5 4A1D 970B 970C 970D 970E 970F 9710 9711
+9712 9713 9714 9715 9716 9717 290E4 290E5 290EC 290ED
+975B 975C 9766 9793 9794 9795 9796 9797 9798 9799
+97D2 97F0 97F8 9824 9825 982D 982E 982F 9830 9831
+9832 9833 9834 9835 9836 9837 9838 9839 983A 983B
+983C 983D 294D0 294D9 294DA 989E 989F 98A0 98A1 98B4
+98B5 295D7 98D9 98DA 9910 991D 991A 991B 991C 991E
+991F 9920 9921 9922 9923 9924 9926 9927 9928 9929
+29720 9934 999E 999F 99A0 99E1 99E2 99E3 99E4 99E5
+99E6 99E7 99E8 99E9 99EA 99EB 99EC 99ED 99EE 99EF
+99F0 99F1 99F2 298D1 9AB8 9AB9 9ABA 9ABB 9ABC 29A4D
+9ABF 9AED 9AF5 9AF6 9AF7 9AF8 9AF9 9AFA 9AFB 9B07
+9B28 9B33 9B47 4C49 9B7A 9B7B 9B7C 9B7D
+9B7E 9B7F 9B80 9B81 9B82 9B83 9B84 9B85 9B87 9B88
+9B89 9B8A 9B8B 9B8C 9B8D 9B8E 9B8F 9B90 9B91 9B92
+9B93 9B94 9B95 9B96 9B97 9B98 9BA3 29D98 29D9B 9CAD
+9CAE 9CAF 9CB0 9CB1 9CB2 9CB3 9CB4 9CB5 9CB6 9CB7
+9CB8 9CB9 9CBA 9CBB 9D0A 9D0F 9D10 9D11 9D12 9D13
+9D14 9D15 9D16 9D17 9D18 9D19 9D1A 9D1B 9D1D 9D1E
+9D1F 9D20 9D21 9D22 9D23 9D24 9D25 9D26 9D27 9D28
+9D29 9D2A 9D2B 9D2C 29FDE 9E65 9E66 9E67 9E68 9E77
+9E7E 9E85 9E86 9E87 9E88 2A29F 4D34 9EAC 9EAD 9EAE
+9EBA 9EC5 9EC6 9ED4 9ED5 9ED6 9ED7 9ED8 9EFA 9F12
+9F3C 9F3D 9F53 9F8D 9F9C
+FDD0-2811
+511F 5120 5121 5122 5123 5124 5125 5126 5127 5128
+5129 512A 512C 20413 20414 2041F 5132 51DF 20619 2061A
+5295 3525 3526 52F4 52F5 52F6 5335 3553 53B3 20B8F
+567D 567E 567F 5680 5681 5682 5683 5684 5685 5686
+5687 5688 5689 568A 568B 568C 568D 568E 568F 5690
+5691 5692 5693 2104F 2105C 2106F 21075 21076 21077 21078
+2107B 21088 367A 58CD 58CE 58CF 58D0 58D1 58D2 58D3
+58D4 58D5 58D6 58D7 2148A 21497 21692 5B23 5B24 5B25
+5B26 5B27 5B29 5B2A 5B2B 5B2C 5B2D 5B2E 5B2F 5B30
+5B31 5B32 5B33 5B35 5B36 5B37 218D1 218D6 218D7 218D8
+218D9 5B7A 5B7B 5BF1 5BF2 5C36 5C37 5C68 3819 5DB7
+5DB8 5DB9 5DBA 5DBC 5DBD 5DBE 5DBF 21F6A 5DBB 3865
+3866 5E6A 5E6B 5E6C 5F4C 5FBD 5FBE 2258D
+61B5 61BC 61C2 61C3 61C7 61C9 61CB 61D1 61D7 61D9
+61DA 61DB 61DC 61DD 61DE 61E0 61E1 61E2 61E4 61E5
+61E6 61E7 61E8 228F7 6232 6234 64CA 64CE 64D8 3A5C
+3A5E 64DF 64E0 64E1 64E2 64E3 64E4 64E6 64E8 64E9
+64EB 64EC 64ED 64EE 64EF 64F0 64F1 22DEE 6580 6581
+6582 6583 65A3 65B5 65B6 65DA 3B20 3B21 3B22 66CE
+66D0 66D1 66D2 66D3 66D4 66D5 66D6 66D7 66DA 232D2
+66D9 3B32 3B40 3BEC 3BF2 3BF3 3BF4 6A7D 6A7E 6A7F
+6A80 6A81 6A82 6A83 6A84 6A85 6A86 6A87 6A88 6A89
+6A8A 6A8B 6A8C 6A8D 6A8E 6A8F 6A90 6A91 6A92 6A93
+6A94 6A95 6A96 6A97 6A98 6A99 6A9A 6A9B 6A9C 6A9D
+6A9E 6A9F 6AA0 6AA1 6AA2 6AA3 6AA4 6AA5 6AA6 6AA7
+6AA8 6AA9 6AAA 23703 23716 23720 2372D 2372F
+2373F 6ADB 3C46 6B5B 6B5C 6B5D 6BAC 6BAD 6BAE 6BDA
+6C08 6C09 6C0A 6FA9 6FCC 3D6F 3D73 3D75 6F80 6FD4
+6FD5 6FD7 6FD8 6FD9 6FDA 6FDB 6FDC 6FDD 6FDE 6FDF
+6FE0 6FE1 6FE2 6FE3 6FE4 6FE5 6FE6 6FE7 6FE8 6FE9
+6FEA 6FEB 6FEC 6FED 6FEE 6FEF 6FF0 6FF1 6FF2 6FF4
+6FF5 6FF6 6FF8 23FC0 24039 2403A 2403B 2403C 2403D 24057
+3E00 3E01 3E02 71DF 71E0 71E1 71E2 71E3 71E4 71E5
+71E6 71E7 71E8 71E9 71EA 71EB 71EC 71ED 71EE 71EF
+71F0 71F1 71F2 71F3 71F4 71F5 71F6 71F7 243F8 24404
+7235 7246 3E55 72A0 736E 736F 7370 7371 7372 7373
+7374 3EFA 7490 7497 3EFF 3F00 3F01 74A5 74A6 74A8
+74A9 74AA 74AB 74AC 74AD 74AE 74AF 74B0 74B1 74B2
+74B3 74B4 24A71 24A77 24A78 24A79 24A7A 3F3F
+750F 7510 7511 7512 7583 7584 24CD9 7640 7641 7642
+7643 7644 7645 7646 7647 7648 7649 764B 764C 764D
+764E 24EA5 24EA7 76A2 76A3 76A4 76A5 76BC 4009 76E8
+76E9 76EA 406F 4071 77A4 77A6 77A7 77A8 77A9 77AA
+77AB 77AC 77AD 77AE 77AF 77B0 77B1 77B2 77B3 77B4
+77B5 77B6 77B7 252C7 77EF 77F0 40DF 78EF 78F0 78F1
+78F2 78F3 78F4 78F5 78F6 78F7 78F8 78F9 78FA 78FB
+78FC 78FD 78FE 78FF 7900 7901 7902 7903 7904 7905
+25581 25584 2558F 79A7 79A8 79AA 79AB 25706 417F 7A49
+7A54 7A55 7A56 7A57 7A58 7A59 7A5A 7A5B 7A5C 7A5D
+7A5E 41B9 7ABE 7ABF 7AC0 7AC1 7AC2 7AF2 7AF3 7AF4
+25AAF 7C15 423B 4240 4241 4242 4243 4244 4245 7BF0
+7BF1 7BF2 7BF3 7BF4 7BF5 7BF6 7BF7 7BF8
+7BFA 7BFB 7BFC 7BFD 7BFE 7BFF 7C00 7C01 7C02 7C03
+7C04 7C05 7C06 7C07 7C08 7C09 7C0A 7C0B 7C0C 7C0D
+7C0E 7C0F 7C10 7C12 7C13 7C14 7C16 7C17 25C91 25CA4
+25CC0 7C18 42A2 7CD9 7CDA 7CDB 7CDC 7CDD 7CDE 7CDF
+7CE0 7CE1 7CE2 7CE8 7E29 7E2A 7E2B 7E2C 7E2D 7E2E
+7E2F 7E30 7E31 7E32 7E33 7E34 7E35 7E36 7E37 7E38
+7E39 7E3A 7E3B 7E3C 7E3D 7E3E 7E3F 7E40 7E41 7E42
+7E43 7E44 7E45 7E46 7E47 7E49 7E4A 7E4C 7E4D 26102
+26121 7E48 7F44 7F45 7F46 7F7D 7F7E 7F7F 7F81 263BE
+7FF2 7FF3 7FF4 7FF5 7FF6 7FFC 26484 26488 26489 802B
+802C 806F 8070 8071 8072 8073 8074 26626 81A5 81B8
+81BA 81BB 81BC 81BD 81BE 81BF 81C0 81C1 81C2 81C3
+81C4 81C5 81C6 81C7 81C8 81C9 81CA 81CC
+26846 2685E 81E8 81E9 269F2 825A 825B 825C 825D 8271
+4516 451D 4520 4526 4527 8557 8576 8577 8578 8579
+857A 857B 857C 857D 857E 857F 8580 8581 8582 8583
+8584 8585 8586 8587 8588 8589 858A 858B 858D 858E
+858F 8590 8591 8592 8593 8594 8595 8596 8597 8598
+8599 859A 859B 859C 859D 859E 859F 85A0 85A1 85A2
+85A3 85A4 85A5 85A6 85A7 85A8 85AA 85AB 85AC 85AE
+26F73 26F74 26F9F 26FA1 85AD 85AF 8667 8668 45E9 45EE
+87AA 87AB 87AC 87AD 87AE 87AF 87B0 87B1 87B2 87B3
+87B4 87B5 87B6 87B7 87B8 87B9 87BA 87BB 87BC 87BD
+87BE 87BF 87C0 87C1 87C2 87C3 87C4 87C5 87C6 87C7
+87C8 87C9 87CA 87CB 87CC 87CD 87CE 87CF 87D0 87D1
+87D2 27422 87DE 465B 8933 8935 8936 8937
+8938 8939 893A 893B 893C 893D 893E 893F 8940 8941
+8942 8943 8944 8945 8954 8952 2775E 89AB 89AC 89AD
+89AE 89AF 89F2 89F3 27924 4700 8B04 8B05 8B06 8B07
+8B08 8B09 8B0A 8B0B 8B0C 8B0D 8B0E 8B0F 8B10 8B11
+8B12 8B13 8B15 8B16 8B17 8B18 8B19 8B1A 8B1B 8B1C
+8B1D 8B1E 8B1F 8B20 8B21 8B22 27ABD 27ABE 4726 8C3F
+8C40 8C41 8C4F 8C6F 8C70 8C71 8C72 8C73 8C94 8C95
+8C96 8CF6 8CF7 8CF8 8CF9 8CFA 8CFB 8CFC 8CFD 27DDC
+8D61 8D62 8D6F 8DA8 8E46 8E47 8E48 8E49 8E4A 8E4B
+8E4C 8E4D 8E4E 8E4F 8E50 8E51 8E52 8E53 280E8 280E9
+280F4 8F3D 8F3E 8F3F 8F40 8F41 8F42 8F43 8F44 8F45
+2836D 2837D 8FAB 48AE 907D 907E 907F 9080 9081 9082
+9083 9084 9085 9089 2860B 9138 9139 9198
+9199 919A 919B 919C 919D 919E 919F 91A0 91A1 91A2
+91A3 91A4 28933 493C 9328 9347 9349 934A 934B 934C
+934D 934E 934F 9350 9351 9352 9353 9354 9355 9356
+9357 9358 9359 935A 935B 935C 935D 935E 935F 9360
+9361 9362 9363 9364 9365 9366 9367 9368 9369 936A
+936B 936C 936D 936E 936F 9370 9371 9372 9373 9374
+9375 9376 9377 9378 9379 937B 937C 937D 937E 937F
+9380 9381 9382 9383 9384 9385 9386 9387 28A32 28A36
+28A44 28A45 28A46 28A47 28A48 28A49 28A4A 28A4B 28A59 28A5A
+28A81 28A82 28A83 93A1 93AF 9561 9562 9563 9564 9565
+9566 9567 9568 9569 956A 956B 95C0 95B7 95C3 95C4
+95C5 95C6 95C7 95C8 95C9 95CA 95CB 95CC 95CE 95CF
+96AC 96AD 96AE 96AF 96B0 96B1 96B2 96B8
+4A01 4A02 96D6 4A24 9718 9719 971A 971B 971C 971D
+971E 971F 9720 2910D 29110 9721 4A4A 979A 979B 979C
+979D 979E 979F 97A0 97A1 97D3 97D4 97D5 97F1 4AD1
+9840 9841 9842 9843 9844 9845 9846 9847 9848 9849
+984A 294E5 294E7 4B10 98B6 98B7 295E9 295F4 4B20 9925
+992A 992B 992C 992D 992F 9930 9931 9932 9933 9935
+9937 29732 9942 9946 9998 4B70 4B72 99A1 99A2 99A3
+4B8E 4B90 99F4 99F5 99F6 99F7 99F8 99F9 99FA 99FB
+99FC 99FD 99FE 99FF 9A00 9A01 9A02 9A03 298EA 99F3
+9AA4 9ABD 9ABE 9AFC 9AFD 9AFE 9AFF 9B00 9B01 9B02
+9B34 9B48 9B49 9B86 4C4B 4C4C 4C4D 9B99 9B9A 9B9B
+9B9C 9B9D 9B9E 9B9F 9BA0 9BA1 9BA2 9BA4 9BA5 9BA6
+9BA7 9BA8 9BA9 9BAA 9BAB 9BAC 9BAD 9BAE
+9BAF 9BB0 9BB1 9BB2 9BB3 9BB4 9BBA 9BCE 9CBC 9CBD
+9CBF 9CC0 9CC1 9CC2 9CC3 9CC4 9CC5 9CC6 9CC7 9CC8
+9CC9 9CCA 9CCB 9CBE 9D1C 4CCD 4CD4 9D2D 9D2E 9D2F
+9D30 9D31 9D32 9D33 9D34 9D35 9D36 9D37 9D38 9D39
+9D3A 9D3B 9D3C 9D3D 9D3E 9D3F 9D40 9D41 9D42 9D43
+9D44 9D45 9D46 9D47 9D48 9D49 2A014 9D67 9E69 9E6A
+9E6B 9E6C 9E89 9E8A 9E8B 2A2B2 9EAF 9EB0 9EC7 9EC8
+9EC9 9ECF 9EDA 9EDB 9EDC 9EDD 9EDE 2A434 9EFB 9EFF
+9F22 9F23 9F24 9F3E 9F3F 9F4B 2A5C6 9F54 9F62 9F8B
+9F8C 9FA0
+FDD0-2812
+512D 512E 512F 5131 34AF 204FE 5181 205A5 20AC2 53E2
+3609 5694 5695 5696 5697 5698 5699 569A 569B 569C
+569D 569E 569F 56A0 56A1 56A2 56A3 56A4 21096 2109D
+210B4 210BF 210C0 210C1 210C7 210C8 210C9 210CF 210D3 56AE
+58D8 58D9 214B6 5911 5913 5970 3730 3731 5B38 5B3A
+5B3B 5B3C 218FA 5C69 5C6A 5DC0 5DC1 5DC2 5E6D 5E6E
+5EEB 5F4D 5F5D 5F5E 399B 61D5 61D6 61D8 61DF 61E3
+39A1 61E9 61EA 61EB 61ED 61EE 61F0 61F1 61F3 61F4
+6233 64E7 64EA 3A61 3A66 3A67 64E5 64F2 64F4 64F5
+64F6 64F7 64F8 64F9 64FA 64FB 64FC 64FD 64FE 64FF
+6501 6502 6503 6504 6505 6506 22E0D 3AAB 8D01 23066
+6594 2308E 65B7 65DB 3B23 3B24 3B25 3B26 3B27 3B28
+66D8 66DB 66DC 232E0 232E1 6726 6AAB 6AAC
+6AAD 6AAE 6AAF 6AB0 6AB1 6AB2 6AB3 6AB4 6AB5 6AB6
+6AB7 6AB8 6AB9 6ABA 6ABB 6ABC 6ABD 6ABE 6ABF 6AC0
+6AC1 6AC2 6AC3 6AC4 6AC5 6AC6 6AC7 6AC8 6AC9 6ACA
+23766 23781 6AE1 6AED 6B5E 6B5F 6B78 6BAF 6BC9 6C0B
+6FF7 3D7D 6FF9 6FFA 6FFB 6FFC 6FFD 6FFE 6FFF 7000
+7001 7002 7003 7005 7006 7007 7008 7009 700A 700B
+700C 700D 700E 700F 7010 7011 7012 7013 7014 24085
+2408B 2408C 2408D 24091 7026 3E04 71F8 71F9 71FA 71FB
+71FC 71FD 71FE 71FF 7200 7201 7203 24435 24436 269A8
+7375 7376 7377 74A7 74B5 74B6 74B8 74B9 74BB 74BC
+74BE 74BF 74C0 74C1 74C2 24A8C 24A93 24A94 24A95 24A96
+24AA4 24AA5 24AA6 24AA7 7513 7514 7515 7585 764F 7650
+7651 7652 7653 7654 7655 7656 7657 7658
+7659 765A 765B 765C 765D 765E 7664 76A6 76A7 76A8
+24FA9 3FF9 76BD 76EB 76EC 77B8 77B9 77BA 77BB 77BC
+77BD 77BE 77BF 77C0 77C1 77C2 252D8 7906 7907 7908
+7909 790A 790B 790C 790D 790E 790F 7910 7911 7912
+7913 7914 7915 7916 4120 79AC 79AD 79AE 79AF 7A5F
+7A60 7A61 7A62 7A63 258C8 7AC4 7AC5 7AF5 424E 4255
+7C19 7C1A 7C1B 7C1C 7C1D 7C1E 7C1F 7C20 7C21 7C22
+7C23 7C24 7C25 7C26 7C27 7C28 7C29 7C2A 7C2B 7C2D
+7C2E 7C2F 7C30 7C31 7C32 25CC1 25CFE 25D20 42A6 7CE3
+7CE4 7CE5 7CE6 7CE7 25F1A 4318 7E4E 7E4F 7E50 7E51
+7E52 7E53 7E54 7E55 7E56 7E57 7E58 7E59 7E5A 7E5B
+7E5C 7E5D 7E5E 7E5F 7E60 7E61 7E62 7E63 7E64 7E65
+7E67 7E71 26159 2615A 2615B 2615C 7F47 7F48
+7F49 26258 7F80 7F82 7FB3 7FB4 7FB5 4397 7FF7 7FF8
+7FF9 7FFA 7FFB 2648D 26498 802D 802E 8075 8076 8077
+4443 4444 4445 81CD 81CE 81CF 81D0 81D1 81D2 81D3
+26888 820A 8219 825E 825F 8260 448F 452E 4533 453B
+453D 453F 4540 4543 4544 85A9 85B0 85B1 85B2 85B3
+85B4 85B5 85B6 85B7 85B8 85B9 85BA 85BB 85BC 85BD
+85BE 85BF 85C0 85C1 85C2 85C3 85C4 85C5 85C6 85C7
+85C8 85C9 85CA 85CB 85CC 85CD 85CE 85CF 85D0 85D2
+85D3 26FBE 26FDE 26FDF 2700E 459B 8669 87D7 87D3 87D4
+87D6 87D8 87D9 87DA 87DB 87DC 87DD 87DF 87E0 87E2
+87E3 87E4 87E5 87E6 87E7 87E8 87E9 87EA 87EB 87EC
+87ED 87EE 87EF 87F0 87F1 87F2 87F3 87F4 87F5 880E
+27450 27484 27486 8946 8947 8948 8949 894A
+894B 894C 894D 894E 894F 8950 8951 8953 8955 27784
+27785 8986 468D 89B0 89B1 89B2 89B3 89F4 9D64 8B23
+8B24 8B25 8B26 8B27 8B28 8B29 8B2A 8B2B 8B2C 8B2D
+8B2E 8B2F 8B30 8B31 8B32 8B33 8B34 8B35 8B36 8B37
+8B38 8B39 8B3A 8B3B 8B3C 8B3D 8B3E 27AF4 8B47 8C42
+8C50 8C74 8C75 8C97 8C98 8C99 8CFE 8CFF 8D00 8D02
+8D03 8D04 8D05 8DA9 4820 8E54 8E55 8E56 8E57 8E58
+8E59 8E5A 8E5B 8E5C 8E5D 8E5E 8E5F 8E60 8E61 8E62
+8E63 8E64 8E65 8E66 8E67 8E6E 8E80 2812E 8E69 8EBF
+8EC0 8EC1 2827C 4871 8F46 8F47 8F48 8F49 8F4A 8F4B
+8F4C 2838A 8FAC 9087 9088 28625 9128 913A 913B 913C
+913D 913E 91A5 91A6 91A7 91A8 91A9 91AA 91AB 91AC
+91D0 493E 4944 4945 4947 9388 9389 938A
+938B 938C 938D 938E 938F 9390 9391 9392 9393 9394
+9395 9396 9397 9398 9399 939A 939B 939C 939D 939E
+939F 93A0 93A2 93A3 93A4 93A5 93A6 93A7 93A8 93AA
+93AB 93AC 93AD 93AE 93B0 93B1 93B2 93B3 93B4 93B5
+93B6 93B7 93B8 93B9 93BA 93BB 93BC 93BD 93BE 93BF
+28A9A 28A9B 28A9C 28AC0 28AC6 28ACB 28ACC 28ACE 956C 956D
+956E 956F 9570 9571 95D0 95D1 95D2 95D3 95D4 95D5
+95D6 95D7 95D8 28D99 96B3 4A03 96D7 96D8 96D9 96DA
+96DB 96DC 96DD 96DE 96DF 96E0 96E2 4A26 9722 9723
+9724 9725 975D 97A2 97A3 97A4 97A5 97A6 97A7 97A8
+97A9 97AA 97AB 97AC 97AD 97AE 97AF 97B0 4A96 97D6
+97D7 97D8 97D9 97DA 97F9 97FA 29433 983F 983E 984B
+984C 984D 984E 984F 9850 9851 9852 9853
+9854 9855 98A2 98A3 98B8 98B9 98BA 4B49 4B4B 4B4C
+992E 9936 9938 9939 993A 993B 993C 993D 993E 993F
+9940 9941 99A4 99A5 4B93 4B96 4B97 9A04 9A05 9A06
+9A07 9A08 9A09 9A0A 9A0B 9A0C 9A0D 9A0E 9A0F 9A10
+9A11 9A12 9A13 298F1 29903 29905 9AC0 9AC1 9ADC 4C00
+4C01 9B03 9B04 9B05 9B06 9B08 9B29 9B35 9B36 4C26
+9B4A 9B4B 9B4C 9B4D 9B4E 9B4F 9BB5 9BB6 9BB7 9BB8
+9BB9 9BBB 9BBC 9BBD 9BBE 9BBF 9BC0 9BC1 9BC2 9BC3
+9BC4 9BC6 9BC7 9BC8 9BC9 9BCA 9BCB 9BCC 9BCD 9BCF
+9BD0 9BD1 9BD2 9BD3 9BFD 29DF6 9CCC 9CCD 9CCE 9CCF
+9CD0 9CD1 9CD2 9D4A 9D4B 9D4C 9D4D 9D4E 9D4F 9D50
+9D51 9D52 9D53 9D54 9D55 9D56 9D57 9D58 9D59 9D5A
+9D5B 9D5C 9D5D 9D5E 9D5F 9D60 9D62 9D63
+9D65 9E6D 9E6E 9E6F 9E70 4D26 9E8C 9E8D 9E8E 9E8F
+9E90 2A2B4 2A2B6 2A2BA 2A2BD 4D36 9EB1 9EB2 9EBF 9ECA
+9ECB 9EDF 9EE0 9EE1 9F00 9F01 9F02 9F15 9F16 9F25
+9F26 9F27 9F28 9F29 9F2A 9F2B 9F2C 9F4C 9F55 9F8E
+FDD0-2813
+3426 34A3 5133 5134 5135 5296 52F7 52F8 5336 53B4
+58E1 56A5 56A6 56A7 56A8 56A9 56AA 56AB 56AC 56AD
+56AF 56B0 210E4 210F4 210F5 210F6 58DA 58DB 58DC 58DD
+58DE 58DF 58E0 58E2 5912 5B3D 3732 3733 3734 3735
+5B39 5B3E 5B3F 21903 21904 21905 5B7C 5BF3 5BF4 5BF5
+5C6B 3820 3822 5DC3 5DC4 5DC5 21F9E 21FA1 5E70 22173
+5EEC 5EED 9F90 5F5F 5FBF 61EC 61EF 61F2 61F5 61F6
+61F7 22926 22939 61FB 6500 6507 6508 6509 650A 650B
+650C 650D 650E 650F 6510 6512 22E36 22E42 6584 65DC
+65DD 65DE 3B29 3B2A 66DD 66DE 66DF 66E0 66E1 66E2
+3C00 3C01 3C02 3C04 6ACB 6ACC 6ACD 6ACE 6ACF 6AD0
+6AD1 6AD2 6AD3 6AD4 6AD5 6AD6 6AD7 6AD8 6AD9 6ADA
+6ADC 6ADD 6ADE 6ADF 6AE0 6AE2 6AE3 6AE4
+6AE5 6AE6 6AEB 237A2 237BC 237C2 6AE7 6B60 6BB0 6BB1
+23ADB 6C0C 3D85 3D8A 6FF3 7015 7016 7017 7018 7019
+701A 701B 701C 701D 701E 701F 7020 7021 7022 7023
+7024 7025 7027 7028 7029 702B 702C 702D 702E 240C9
+240E1 7202 3E06 7204 7205 7206 7207 7208 7209 720A
+720C 720D 720E 7215 2445A 2445B 7258 72A1 72A2 72A3
+72A4 72A5 72A6 7378 7379 737A 74B7 74BD 3F04 3F06
+74C3 74C4 74C5 74C6 74C7 74C8 74C9 74CA 74CB 24AB1
+24AB2 24AB3 24ABA 24ABB 24ABC 74E3 7516 7586 7587 765F
+7660 7661 7663 76A9 2502C 77C3 77C4 77C5 77C6 77C7
+77C8 77C9 77CA 2530E 25311 25313 77F1 7917 7918 7919
+791A 791B 791C 791D 791E 791F 7920 7921 255B9 79B0
+79B1 2571D 7A64 7A65 7A66 7A67 7A68 7A69
+7A6A 7A6B 258E1 7AC6 7C2C 424F 4260 7C33 7C34 7C35
+7C36 7C37 7C38 7C39 7C3A 7C3B 7C3C 7C3D 7C3E 7C3F
+7C40 7C41 7C42 25D30 25D43 7CE9 7CEA 7CEB 7CEC 7CED
+25F4B 4320 7E4B 7E66 7E68 7E69 7E6A 7E6B 7E6C 7E6D
+7E6E 7E6F 7E70 7E72 7E73 7E74 7E75 7E76 7E77 7E78
+7E79 7E7A 7F35 7F4A 7F4B 7F83 7F84 7F85 7F86 7FB6
+7FB7 7FB8 7FB9 7FFD 7FFE 8078 81CB 4446 81D4 81D5
+81D7 81D8 2688A 26893 26926 820B 821A 8261 8262 8263
+8264 8265 8276 4545 4546 4551 FA1F 85D1 85D5 85D6
+85D7 85D8 85D9 85DA 85DB 85DC 85DD 85DE 85DF 85E0
+85E1 85E2 85E3 85E4 85E5 85E6 85E7 85E8 85E9 85EA
+85EB 85EC 85ED 85EF 85F0 85F1 85F2 85F3 85F4 85F5
+2704B 27052 27053 85F7 85F8 8801 87D5 87F6
+87F7 87F8 87F9 87FA 87FB 87FC 87FD 87FE 87FF 8800
+8802 8803 8804 8805 8806 8807 8808 8809 880A 880B
+880C 880D 880F 881E 8956 8957 8958 8959 895A 895B
+895C 895D 895E 895F 8960 8961 8962 8987 8988 89B4
+89B5 89B6 89B7 89B8 89F5 89F6 8B3F 8B40 8B41 8B42
+8B43 8B44 8B46 8B48 8B49 8B4A 8B4B 8B4C 8B4E 8B4F
+8B50 8B51 8B52 8B53 8B54 8B55 8B56 8B57 8B58 8B59
+8B5A 8B5B 8B5C 27B06 27B0B 27B18 8C36 8C43 8C77 8C76
+8C9A 8D06 8D07 8D08 8D09 8D0A 8D0B 8D0C 8DAA 8DAB
+8DAC 8DAD 4826 8E68 8E6A 8E6B 8E6C 8E6D 8E6F 8E70
+8E71 8E72 8E73 8E74 8E75 8E76 8E77 8E78 8E79 8E7A
+8E7B 8E7C 8E7D 8E7E 8E7F 2814F 2815D 2816F 8E87 8EC2
+8EC3 8EC4 8EC5 8F4D 8F4E 8F4F 8F50 8F51
+8F52 8F53 8F54 8FAD 8FB4 908A 908B 908C 2863B 913F
+9140 9142 4911 91AD 91AE 91AF 91B0 91B1 4949 4951
+4953 93A9 93C0 93C1 93C2 93C3 93C4 93C5 93C6 93C7
+93C8 93C9 93CA 93CB 93CC 93CD 93CE 93CF 93D0 93D1
+93D2 93D3 93D4 93D5 93D6 93D7 93D8 93D9 93DA 93DB
+93DC 93DD 93DE 93DF 93E0 93E1 93E2 93E3 93E4 93E5
+93E6 93E7 93E8 93E9 93EA 93EB 93EC 93ED 93EE 93EF
+93F0 93F1 93F2 93F9 28ADE 28ADF 28AE0 28AE1 28AE2 28AE3
+28AE5 28AEA 28AFC 28B0C 9572 957D 95D9 95DA 95DB 95DC
+95DD 96B4 4A04 96E1 96E3 9726 9727 9728 9729 972A
+972B 972C 972D 2913C 2914D 2915B 9761 97B1 97B2 97B3
+97B4 97B5 97B6 97B7 97DC 97DD 97DE 97DF 97F2 97FB
+97FC 4AE4 9856 9857 9858 9859 985A 985B
+985C 985D 985E 98A4 4B19 98BB 98BC 98BD 98BE 98BF
+98C0 4B53 9943 9944 9945 9947 9948 9949 99A6 99A7
+29857 4B9D 9A14 9A15 9A16 9A17 9A18 9A19 9A1A 9A1B
+9A1C 9A1D 9A1E 9A1F 9A20 9A21 9A22 9A23 9A24 9A25
+9A26 9A27 9A28 2992F 9AA5 9AC2 9AC3 9AC5 4C04 4C07
+9B09 9B0A 9B0B 9B0C 9B0D 9B0E 9B0F 9B37 9BC5 4C5B
+9BD4 9BD5 9BD6 9BD7 9BD8 9BD9 9BDA 9BDB 9BDC 9BDD
+9BDE 9BDF 9BE0 9BE1 9BE2 9BE3 9BE4 9BE5 9BE6 9BE7
+9BE8 9BE9 9BEA 9BEB 9BEC 9BED 9BEE 9BEF 9BF0 9BF1
+9BF2 9BF3 9BF4 9BF5 29E06 29E2D 9BFA 9CD3 9CD4 9CD5
+9CD6 9CD7 9CD8 9CD9 9CDA 9CDB 9D61 4CE1 9D66 9D68
+9D69 9D6A 9D6B 9D6C 9D6D 9D6E 9D6F 9D70 9D71 9D72
+9D73 9D74 9D75 9D76 9D77 9D78 9D79 9D7A
+9D7B 9D7C 9D7D 9D7E 9D7F 9D80 9D81 9D82 9D83 9D84
+9D85 9D86 9D87 9D88 9D89 9D8A 9D8B 9D8C 9D8D 9D8E
+9D8F 9D91 2A087 9E71 9E72 9E78 9E91 9E92 9E93 9E94
+9E95 9E96 9E97 9EB3 9EB4 9EC0 4D4C 9EE2 9EE3 9EFC
+9F03 9F04 9F17 9F2D 9F40 9F41 9F4D 9F56 9F57 9F58
+9F8F 2A6A9
+FDD0-2814
+34A5 5136 5337 56B1 56B2 56B3 56B4 56B5 56B6 56B7
+56B8 56B9 2112F 56BC 58E3 58E4 58E5 214E8 3736 3737
+3738 5B40 5B41 5B42 5B43 5B44 5B45 5B46 21910 21911
+21912 21915 5B7D 5B7E 5BF6 5DC6 5DC7 5DC8 5DC9 5DCA
+5DCC 5E71 2217A 5EEE 5EEF 5EF0 5FC0 5FC1 39A4 61F8
+61F9 61FA 2294F 3A70 6513 6514 6515 6516 6517 6518
+6519 651A 6585 6586 65DF 3B2B 66E3 66E4 66E5 66E6
+66E7 66E8 23300 6727 3C09 3C0A 3C0D 3C11 6AE8 6AE9
+6AEA 6AEC 6AEE 6AEF 6AF0 6AF1 6AF2 6AF3 6AF4 6AF5
+6AF6 237D5 237D6 237D7 6AF9 702A 3D8F 3D91 702F 7030
+7031 7032 7033 7034 7035 7036 7037 7038 7039 703A
+703B 703C 703D 703E 703F 7040 7041 24104 7042 3E0A
+720B 720F 7210 7211 7212 7213 7214 7216
+7217 7218 24473 24487 24488 72A7 72A8 24706 737B 737C
+737D 74BA 74CC 74CD 74CE 74CF 74D0 74D1 74D2 24AC0
+24AC7 7588 7589 7662 7665 7666 76AA 76AB 3FFA 76BE
+76ED 77CB 77CC 77CD 77CE 77CF 77F2 7922 7923 7924
+7925 7926 7927 7928 7929 792A 792B 792C 79B2 7A6C
+7A6D 7A6E 7A6F 7AC7 7AF6 7AF7 7C43 7C44 7C45 7C46
+7C47 7C48 7C49 7C4A 7C4B 7C4C 7C4D 7C4E 7C4F 7C55
+42AE 7CEE 7CEF 7CF0 4326 7E7B 7E7C 7E7D 7E7E 7E7F
+7E80 7E81 7E82 7E83 261AD 261AE 261B2 7F4C 26335 7FBA
+7FFF 8000 802F 8079 807A 807B 807C 81D6 81D9 81DA
+81DB 81DC 269B5 8266 8267 8268 8269 4552 4554 4555
+4557 455C 8624 85EE 85F6 85F9 85FA 85FB 85FC 85FD
+85FE 85FF 8600 8601 8602 8603 8604 8605
+8606 8607 8608 8609 860A 860B 860C 860D 860E 860F
+8610 8611 8613 8614 8622 27088 270AD 270AE 270AF 8612
+861B 8630 4600 4601 8810 8811 8812 8813 8814 8815
+8816 8817 8818 8819 8963 8964 8965 8966 8967 8968
+89B9 89BA 89BB 89F7 89F8 89F9 4713 4718 8B4D 8B5D
+8B5E 8B5F 8B60 8B61 8B62 8B63 8B64 8B65 8B66 8B67
+8B68 8B69 8B6A 8B6B 8B6C 8B6D 8B6E 8B6F 8B70 8B71
+8B72 27B38 27B39 27B3A 8C51 27C12 8D0D 8D0E 8D0F 8DAE
+8E81 8E82 8E83 8E84 8E85 8E86 8E88 8E89 28189 8EC6
+8F55 8F56 8F57 8F58 8F59 8F5A 8FAE 908D 9141 9143
+91B2 91B3 91B4 91B5 91B6 91B7 91B8 91CB 93F3 93F5
+93F6 93F7 93F8 93FA 93FB 93FC 93FD 93FE 93FF 9400
+9401 9402 9403 9404 9405 9406 9407 9408
+9409 940A 940B 940C 940D 940E 940F 9410 9411 9412
+9413 9414 9415 9416 9417 9418 9419 941A 941B 941C
+941D 941E 941F 9420 9421 9422 9423 9424 9425 9426
+9427 9428 28B13 28B21 28B22 28B2B 28B2C 28B2D 28B2F 28B46
+28B4C 28B4E 28B50 942F 943C 9573 9574 95DE 95DF 95E0
+95E1 28DB9 96B5 972E 972F 9730 9731 9733 9734 2915E
+29170 4A4B 97B8 97B9 97BA 97BB 97DB 97E0 97FD 97FE
+97FF 985F 9860 9861 9862 9863 98A5 98C1 98C2 98C3
+98C4 994A 994B 994C 994D 994E 9950 9951 9952 9953
+9959 99A8 9A29 9A2A 9A2B 9A2C 9A2D 9A2E 9A2F 9A30
+9A31 9A32 9A33 9A34 9A35 9A36 9A37 9A38 29947 29948
+29949 2995D 2996A 9AA6 9AA7 9AC4 9AC6 9AC7 9AC8 9AC9
+9ACA 9ACB 9ACC 9B10 9B11 9B12 9B13 9B2A
+9B38 9B50 9BFB 4C6D 9BF6 9BF7 9BF8 9BF9 9BFC 9BFE
+9BFF 9C00 9C01 9C02 9C03 9C04 9C05 9C06 9C07 9C08
+9C09 9C0A 9C0B 9C0C 9C0D 9C0E 9C0F 9C10 9C11 9C12
+9C13 9C14 9C15 9C16 9C17 9C18 9C19 9C1A 9C1B 9C20
+29E68 9C40 9CDC 9CDD 9CDE 9CDF 4CED 9D90 9D92 9D93
+9D94 9D95 9D96 9D97 9D98 9D99 9D9A 9D9B 9D9C 9D9D
+9D9E 9D9F 9DA0 9DA1 9DA2 9DA3 9DA4 9DA5 9DA6 9DA7
+9DA8 9DA9 9DAA 9DAB 2A0B9 2A0E1 2A0ED 2A0F3 2A0F8 9DBF
+9E79 9E98 9E99 9E9A 9E9B 9EB5 9EC1 2A3A9 4D4D 9EE4
+9EE5 9EE6 9EE7 9EE8 9EE9 9EEA 2A45B 9F0D 9F2E 9F2F
+9F30 2A5CB 9F59 9F5A 9F5B 9F5D 9F5E 9F5F 9F60 9F61
+9F63 9F91
+FDD0-2815
+34A7 5137 5138 5139 513A 5164 5297 5298 2082C 535B
+56BA 56BB 56BD 56BE 56BF 56C0 56C1 56C2 56C3 56C4
+56CD 2113B 2113D 21145 21148 2114F 58E6 214FD 5914 3739
+5B47 5B48 5B49 2191C 5BF7 5C6C 5DCB 3826 5DCD 5DCF
+5DD0 5EF1 5FC2 61FC 61FD 61FE 6511 651B 651C 651D
+22E78 6595 66E9 2330A 6707 3C15 6AF8 6AFA 6AFB 6AFC
+6AFD 6AFE 6AFF 6B00 6B01 6B02 6B03 6B04 6B05 6B0C
+6BB2 7043 7044 7045 7046 7047 7048 7049 704A 704B
+704C 704D 704F 7050 2410F 24119 3E0D 7219 721A 721B
+244B9 721D 737E 74D3 74D4 74D6 24ACA 24AD1 7517 3FD7
+7667 7668 7669 766A 766B 76AC 24FB8 77D0 77D1 77D2
+77D3 792D 792E 792F 7930 7931 7932 7933 7934 255D5
+255DB 25725 25903 7AC3 7AC8 7AC9 7C56 426A
+7C50 7C51 7C52 7C53 7C54 7CF2 7E84 7E85 7E86 7E87
+7E88 7E89 7E8A 7E8B 7E8C 7E8D 7E8E 7E8F 7E90 7F4D
+7FBB 7FBC 8030 81DD 826A 4562 85D4 8615 8616 8617
+8618 8619 861A 861C 861D 861E 861F 8620 8621 8623
+8625 8626 8627 8628 8629 862A 862B 862D 862E 862F
+270CD 270F8 27109 2710C 4602 881A 881B 881C 881D 881F
+8820 8821 8822 8823 8824 8829 882B 884A 8969 896A
+896B 896C 896D 896E 89BC 89BD 89FA 8B45 8B73 8B74
+8B75 8B76 8B77 8B78 8B79 8B7A 8B7B 8B7C 8B7D 27B48
+8D10 8D11 8D12 8D13 8D14 8D63 8DAF 8DB0 8E8A 8E8B
+8E8C 8E8D 8E8E 8E8F 281AF 281BC 8EC7 8F5B 8F5C 8F5D
+8F5E 8F5F 8FAF 908E 9144 9145 9146 91B9 91BA 91BB
+4965 93F4 9429 942A 942B 942C 942D 942E
+9430 9431 9432 9433 9434 9435 9436 9437 9438 9439
+943A 943B 943D 943E 943F 9440 9441 28B63 28B64 28B65
+28B66 28B6C 28B8F 95E2 95E3 95E4 95E5 95E6 96E4 9732
+9735 9736 9737 9738 9739 973A 973B 9767 97BC 97BD
+97BE 97BF 97E1 97E2 2943F 9864 9865 9866 9867 9868
+98A6 98C5 98C6 98C7 98C8 98C9 98CA 98DC 994F 9956
+9957 9958 99A9 9A39 9A3A 9A3B 9A3C 9A3D 9A3E 9A3F
+9A40 9A41 9A42 9A43 9A44 9A45 9A46 9A47 9ACD 9ACE
+9ACF 9B14 9B15 9B16 9B17 9B18 9B39 9B3A 9B51 9B52
+9B53 9B54 4C7D 9C1C 9C1D 9C1E 9C1F 9C21 9C22 9C23
+9C24 9C25 9C26 9C27 9C28 9C29 9C2A 9C2B 9C2C 9C2D
+9C2E 9C2F 9C30 29EAC 4CA3 4CA4 9CE0 9CE1 9CE2 9CE3
+9DAC 9DAD 9DAE 9DAF 9DB0 9DB1 9DB2 9DB3
+9DB4 9DB5 9DB6 9DB7 9DB8 9DB9 9DBA 9DBB 9DBC 9DBD
+9DBE 9DC0 9DC1 9DC2 9DC3 9DC4 9DC5 9DC6 9DC7 9DC8
+9DC9 9DCA 9DCC 9DCD 9DCE 9DCF 2A0FE 2A107 2A123 9E7A
+9E7B 9E9C 9E9D 4D4E 9EEB 9EEC 9EED 9EEE 9EEF 9F05
+9F18 9F19 9F1A 9F1B 9F31 9F4E 9F5C 9F64 9F65 9F66
+9F67 9F68 9F69 2A601 9F92 9F9D 9FA1
+FDD0-2816
+4EB9 513B 513C 20465 20979 3618 56C5 56C6 56C7 56C8
+56C9 56CA 56CB 56CE 571D 5971 373A 5B4A 5B4B 5B4C
+21922 21927 5B7F 5DCE 5DD1 5DD2 5DD3 5DD4 5DD5 5DD7
+5EF2 5F4E 5F72 61FF 6202 22967 2296B 6235 651E 651F
+6520 6521 6522 6524 6526 6527 22E8B 23033 3B2C 3B2D
+3C18 6AF7 6B06 6B07 6B08 6B09 6B0A 6B0B 6B0D 6B0E
+6B61 6C0D 7051 7052 7054 7055 7056 7057 7058 2413F
+24140 24144 721C 721E 721F 7220 72A9 737F 7380 74D5
+74D7 74D8 74D9 74E4 758A 766C 766D 766E 24F0E 76AD
+7935 255E0 79B3 79B4 7A70 7A71 7ACA 7AF8 7C57 7C58
+7C59 7C5A 7C5B 7C5C 7C5D 7C5F 7C60 7C61 7CF1 7CF4
+432B 7E91 7E92 261DD 7F4E 7F4F 26261 7F87 8031 8032
+807D 807E 81DE 81DF 269FA 826B 4567 456A
+862C 8632 8633 8634 8635 8636 8637 2710D 27126 27127
+4606 8825 8826 8827 8828 882A 882C 896F 8970 8971
+8972 89BE 89BF 2789D 89FB 89FC 4720 8B7E 8B7F 8B80
+8B81 8B82 8B83 8B84 8B85 8B86 8C44 8D15 8D16 8D17
+8D18 8E90 8E91 8E92 8E93 8E94 8E95 8E96 8E97 8E9A
+8F60 8F61 8F62 9147 9148 496A 496D 9442 9443 9444
+9445 9446 9447 9448 9449 944A 944B 944C 944D 944E
+944F 9450 9451 9452 9453 9454 9467 28B99 28B9C 28B9D
+9575 9576 957E 95E7 973C 973D 973E 973F 9740 2919C
+97C0 97C1 97C2 97C3 97E3 9869 986A 986B 98CB 9954
+9955 995A 995B 297D4 9A48 9A49 9A4A 9A4B 9A4C 9A4D
+9A4E 9A4F 9A50 9A51 9A52 9A53 9A54 9A55 2999D 9AD0
+9AD2 9ADD 9B1D 4C0E 9B19 9B1A 9B1B 9B1C
+29BD5 9B2B 9B3B 9B55 9B56 4C81 9C31 9C32 9C33 9C34
+9C35 9C36 9C37 9C38 9C39 9C3A 9C3B 9C3C 9C3D 9C3E
+9C3F 9C41 9C42 9C43 9C44 9C45 9C46 9C47 9C48 9DE0
+29EC3 9C49 9CE4 9DCB 9DD0 9DD1 9DD2 9DD3 9DD4 9DD5
+9DD6 9DD7 9DD8 9DD9 9DDA 9DDB 9DDC 9DDD 9DDE 9DDF
+2A133 2A134 2A150 9DE9 9DF5 9E73 9E74 9E9E 2A2DF 9EB6
+9ED0 9EF0 9EF1 9F32 9F33 9F34 9F35 9F42 4D9C 9F6A
+9F6B 9F6C 9F93 9F94 9F95 9FA2
+FDD0-2817
+513D 5299 529A 20ACD 361A 56CC 56CF 56D0 58E7 58E8
+21582 5972 5B4D 5DD6 5DD8 5DDA 5F4F 6200 6201 6203
+6204 6523 3A77 6525 6528 6529 652A 652B 6596 3B2E
+66EA 66EB 66EC 6B0F 6B10 6B11 6B12 2383A 6BCA 7053
+7059 705A 705B 705C 2414E 24155 24156 24157 2415C 2415F
+7221 7222 244BC 244CE 244D3 244D6 7381 7382 7383 74DA
+24ADF 766F 7670 77D4 7936 7937 79B5 7C5E 4274 7C62
+7C63 7C64 7C65 7C66 7C67 7C68 7CF5 7E93 7E94 7E95
+7E96 81E2 268C7 826C 4577 8631 8638 8639 863A 863B
+863C 863D 863E 863F 8640 8641 2721B 8834 882D 882E
+882F 8830 8831 8832 8833 8973 8974 8976 8989 89FD
+89FE 8B87 8B88 8B89 8B8A 8B8B 8B8C 8B8D 8B8E 8B8F
+8B90 8C45 8D19 8D1A 8DB1 8E98 8E99 8E9B
+8E9C 2829B 8F63 8F64 908F 9090 91BC 4972 9455 9456
+9457 9458 9459 945A 945B 945C 945D 945E 945F 9460
+9461 9462 9463 9464 9465 9466 28BC2 28BC5 28BD4 28BD7
+28BD9 28BDA 4A35 9741 291A8 9768 97C4 97C5 9800 986C
+986D 986E 986F 98A7 995C 99AA 9A56 9A57 9A58 9A59
+9A5A 9A5B 9A5C 9AD1 9AD3 9AD4 9ADE 9B1E 9B1F 9B20
+9C4A 9C4B 9C4C 9C4D 9C4E 9C4F 9C50 9C51 9C52 9C53
+9C54 9C55 9C56 9C57 9C58 9C59 9C5A 9C5B 29EF8 9C6A
+4D00 9DE1 9DE2 9DE3 9DE4 9DE5 9DE6 9DE7 9DE8 9DEA
+9DEB 9DEC 9DED 9DEE 9DEF 9DF0 9DF1 9DF2 9DF3 9DF4
+9DF6 9DF7 9DF8 9DFB 9DFC 2A192 2A193 2A1AB 9E9F 9EC2
+9EF2 9EF3 9EF4 9F06 9F07 9F1C 9F36 9F37 9F38 9F39
+9F43 9F44 9F4F 9F6D 9F6E 9F6F 9F70 9F71
+2A632
+FDD0-2818
+513E 204D7 56D1 56D2 56D3 21180 3681 58E9 5B4E 5B4F
+5C6D 5DD9 22980 652C 652D 66ED 66EE 6B13 6B14 6B15
+705D 705E 705F 7060 7061 7223 74DB 74E5 7671 7672
+24FC2 77D5 77D7 77D6 40FA 7938 79B6 79B7 7A73 7A72
+4276 7C6A 7E97 7F50 7F88 7F89 826D 8277 8643 8645
+27164 27165 8835 8836 8837 8838 8839 883A 884B 8862
+8975 8977 277CC 8B91 8B92 8B93 8B94 8B95 8B96 8D1B
+8E9D 8E9E 8E9F 8EA0 8EC8 91BD 91BE 91BF 91C0 91C2
+9468 9469 946A 946B 946C 28BE7 28BE8 28BE9 28BEA 28BEB
+28BEC 28BF5 96E5 96E6 9742 9743 9744 9745 9746 9747
+9748 97C6 97C7 97C8 97E4 97E5 29448 9870 995D 9A5D
+9A5E 9A5F 9AD5 9B21 9B22 9B2C 9B2D 9B57 9B58 9B59
+29D3E 9C5C 9C5D 9C5E 9C5F 9C60 9C61 9C62
+9C63 9C64 9C65 9C66 9C67 9C69 9C6B 29F23 9C70 9DFA
+4D09 9DF9 9DFD 9DFE 9DFF 9E00 9E01 9E02 9E03 9E04
+9E05 9E06 9E07 9E08 9E09 9E0A 2A1B4 9E7C 9E7D 9EA0
+9F1E 9F45 9F46 9F72 9F73 9F74 9F75 9F76 9F77
+FDD0-2819
+56D4 56D5 21187 58EA 5EF3 6205 6206 652E 65B8 3B2F
+66EF 6B16 6B17 6B18 6B19 6B1A 6B1B 6B1D 7062 7063
+7224 7225 7226 72AA 24D06 77D8 77D9 77E1 7939 7C69
+7C6B 7C6C 7C6D 7C6E 7CF6 7E98 7E99 7E9A 7E9B 81E0
+81E1 8642 8646 8647 8648 8649 883B 27574 8978 8979
+897A 897B 897C 898A 89C0 89FF 8B97 8B98 8B99 8C52
+8C9B 8D1C 27E4D 8EA1 8EA2 8EA3 8EA4 8EA5 91C1 946D
+946E 946F 9470 9471 9472 9473 28BFF 28C03 9749 9871
+9872 995E 995F 9995 4BBD 299C3 299C9 9AD6 9B23 9C68
+9C6C 9C6D 9C6E 9C6F 29F30 9E0B 9E0C 9E0D 9E0E 9E0F
+9E10 9E11 9E12 2A1DF 9EA1 9ECC 9EF5 9F08 9F09 9F1D
+9F1F 9F47 9F78 9F79 9F7A 9F7B 2A64A 9FA3
+FDD0-281A
+3536 571E 373B 5F60 6B1C 6C0E 704E 7064 7066 24AE2
+7673 77DA 7C6F 7C70 25E0E 7CF3 8644 866A 883C 8B9A
+8B9B 27E4F 8DB2 8EA6 8EA7 91C3 91C4 9474 9475 9476
+9477 9478 9479 947A 28C09 28C1C 28C1D 974A 97C9 4BBE
+9A60 9A61 9A62 9A63 9A65 9AD7 9C71 9C72 9C73 9C74
+9C75 9C76 9E13 9E14 2A1F5 9EF6 9F0A 2A65B 9FA4 9FA5
+FDD0-281B
+7065 7067 7068 24177 2417A 72AB 7CF7 7E9C 7E9D 864A
+883D 883E 883F 897D 8B9C 8B9D 8B9E 8C53 8C9C 8EA9
+8EAA 8EC9 8F65 91C5 947B 947C 947D 947E 28C23 28C26
+974B 974C 974D 974E 9873 9874 98CC 98CD 98DD 9960
+9961 99AB 9A64 9A66 9A67 9B24 9B2E 9B30 9C77 9C78
+9E15 9E16 9E17 9EF7 9F48
+FDD0-281C
+56D6 6207 22EB3 2331F 6B1E 6B1F 7227 24AE9 3FDC 7674
+27175 864C 8C54 8EA8 28207 947F 9480 9481 9482 28C2B
+28C30 96E7 4BC0 9A68 9A69 9E18 9E19 9E1A 2A220 9EA2
+9EF8 9F3A 9F7C 9F7D 9F9E
+FDD0-281D
+7228 7E9E 864B 8B9F 4979 9483 9484 974F 9A6A 9B31
+9C79 9E1B 9E1C 9EB7
+FDD0-281E
+53B5 7675 4190 7C71 4585 28C39 97CA 9962 9A6B 29C73
+9C7A 9E1D 9E1E 2A233 4D91
+FDD0-281F
+7069 275A3 4D10 9EA3
+FDD0-2820
+706A 7C72 28C3B 9F96
+FDD0-2821
+2193B 7229 9C7B 9EA4 9F97
+FDD0-2823
+9F7E
+FDD0-2824
+9F49
+FDD0-2827
+9750
+FDD0-2830
+9F98
+__END__
+
+=head1 NAME
+
+Unicode::Collate::CJK::Stroke - weighting CJK Unified Ideographs
+for Unicode::Collate
+
+=head1 SYNOPSIS
+
+    use Unicode::Collate;
+    use Unicode::Collate::CJK::Stroke;
+
+    my $collator = Unicode::Collate->new(
+        overrideCJK => \&Unicode::Collate::CJK::Stroke::weightStroke
+    );
+
+=head1 DESCRIPTION
+
+C<Unicode::Collate::CJK::Stroke> provides C<weightStroke()>,
+that is adequate for C<overrideCJK> of C<Unicode::Collate>
+and makes tailoring of CJK Unified Ideographs in the order
+of CLDR's stroke ordering.
+
+=head1 CAVEAT
+
+The stroke ordering includes some characters that are not
+CJK Unified Ideographs and can't utilize C<weightStroke()>
+for collation. For them, use C<entry> instead.
+
+=head1 SEE ALSO
+
+=over 4
+
+=item CLDR - Unicode Common Locale Data Repository
+
+L<http://cldr.unicode.org/>
+
+=item Unicode Locale Data Markup Language (LDML) - UTS #35
+
+L<http://www.unicode.org/reports/tr35/>
+
+=item L<Unicode::Collate>
+
+=item L<Unicode::Collate::Locale>
+
+=back
+
+=cut
diff --git a/lib/5.24.1/Unicode/Collate/CJK/Zhuyin.pm b/lib/5.24.1/Unicode/Collate/CJK/Zhuyin.pm
new file mode 100644
index 00000000..13e4dc04
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/CJK/Zhuyin.pm
@@ -0,0 +1,3177 @@
+package Unicode::Collate::CJK::Zhuyin;
+
+use 5.006;
+use strict;
+use warnings;
+
+our $VERSION = '1.14';
+
+my %u2p;
+my $wt = 0x8000;
+
+while (<DATA>) {
+    last if /^__END__/;
+    my @c = split;
+    for my $c (@c) {
+	next if !$c;
+	$u2p{hex($c)} = $wt if $c !~ /-/;
+	$wt++;
+    }
+}
+
+sub weightZhuyin {
+    my $u = shift;
+    return exists $u2p{$u} ? $u2p{$u} : undef;
+}
+
+1;
+__DATA__
+FDD0-3105
+516B 4EC8 6252 6733 7390 593F 5C9C 82AD 5CC7 67ED
+75A4 54F5 5DFC 634C 7C91 7F93 8686 91DB 91DF 3B6D
+8C5D 9C83 4C3E
+53D0 72AE 629C 577A 59AD 62D4 70A6 7679 80C8 8307
+83DD 8A59 8DCB 8EF7 98B0 58A2 9B43 9F25
+628A 94AF 9200 9776
+575D 5F1D 7238 57BB 8019 8DC1 9C85 9C8C 43AC 9B8A
+8987 77F2 9738 58E9 705E 6B1B
+5DF4 53ED 5427 7B06 7D26 7F62 9B5E 7F77
+7676 5E17 62E8 6CE2 7677 73BB 525D 5265 54F1 76CB
+7835 94B5 997D 7D34 7F3D 889A 88B0 83E0 7886 9262
+50E0 5D93 64A5 64AD 9911 9B81 8E73 9A4B 9C4D
+4EE2 4F2F 72BB 8091 9A73 5E1B 72DB 74DD 4FBC 52C3
+80C9 82E9 4EB3 632C 6D61 74DF 79E1 90E3 94B9 94C2
+3A8D 3DBF 3E40 3F0E 8116 8236 88AF 535A 6E24 88B9
+9E41 613D 640F 733C 8467 9238 9251 998E 50F0 3B0D
+717F 7254 7B94 824A 4B6F 999B 99C1 8514 8E23 92CD
+9548 464F 294D0 999E 99EE 8C70 2836D 5697 61EA 3A67
+3B27 7C19 894F 939B 993A 9D53 72A6 7921 9AC6 9AC9
+6B02 7934 896E 946E
+8DDB 7BA5 7C38
+5B79 6A97 7CEA 8B52 8617
+2E8A 535C 5575 8421 818A
+6300 63B0 64D8
+767D
+767E 4F70 67CF 6822 636D 74F8 7CA8 7D54 6446 64FA
+896C
+5E8D 62DD 8D25 62DC 6557 7308 7A17 86FD 7CBA 3525
+8D01 97DB
+7AE1 85AD
+5351 676F 9642 76C3 686E 60B2 63F9 6911 7891 7986
+9E4E 9303 85E3 9D6F
+5317 3933 9273
+8D1D 5B5B 72C8 8C9D 5907 6601 726C 90B6 80CC 82DD
+94A1 4FFB 500D 36DD 6096 72FD 90E5 505D 5079 3AF2
+6896 73FC 88AB 5099 60EB 7119 7432 8EF0 8F88 9101
+50C3 6102 3ED7 789A 3E22 7295 84D3 8A96 9781 8919
+8F29 92C7 9AB3 618A 7CD2 97B4 943E
+5457 5504 7999
+52F9 5305 5B62 67B9 80DE 82DE 7B23 7172 9F85 8912
+8554 95C1 8943 9F59
+7A87 5AD1 96F9 420F 8584 2688A 3FFA
+5B9D 6009 9971 4FDD 9E28 5BB2 73E4 5821 5822 5AAC
+5BDA 8446 98FD 99C2 9CF5 7DE5 8913 9D07 8CF2 4B4B
+5BF3 5BF6 28C26 974C 4D10 28C3B
+52FD 62A5 62B1 8C79 8DB5 94C7 86AB 888C 5831 83E2
+924B 9C8D 9764 66B4 9AB2 9AF1 8663 9B91 5124 66D3
+7206 5FC1 9464 9E14
+4F68 85F5
+6273 653D 73ED 822C 9881 6591 642C 6592 9812 7622
+9CFB 4232 878C 8929 764D 8FAC
+5742 5C85 962A 6604 677F 7248 74EA 94A3 7C84 8228
+9211 8742 9B6C 95C6
+529E 534A 4F34 5762 59C5 6011 62CC 7ECA 67C8 79DA
+6E74 7D46 9261 977D 8FA6 74E3
+626E 8781
+5954 6CCD 8D32 681F 7287 951B 931B
+672C 82EF 5959 755A 7FC9 694D
+574B 574C 5034 6379 6873 6E00 7B28 26BC0 9029 64AA
+7356 8F3D
+90A6 57B9 5E2E 6360 6D5C 6886 90AB 5E47 5E5A 7E0D
+5E6B 97A4
+7ED1 7D81 699C 7253 8180 9AC8
+3B4B 73A4 868C 508D 68D2 68D3 8C24 585D 6412 7A16
+84A1 872F 78C5 9551 8255 8B17 938A
+4F3B 794A 595F 5D29 7D63 958D 50B0 5D6D 75ED 5623
+7DB3
+752D
+57C4 57F2 7EF7 7423 742B 83F6 7E43 979B
+6CF5 8FF8 902C 5874 955A 750F 295F4 4B70 8E66 93F0
+882F
+63FC
+5C44 506A 6BF4 6945 903C 8C4D 8795 9CBE 939E 9D56
+9C0F
+8378 9F3B
+5315 6BD4 3832 5936 673C 4F4A 5421 59A3 6C98 7595
+5F7C 67C0 79D5 4FFE 7B14 7C83 822D 555A 3A8F 7B46
+7B84 805B 9119 8C8F
+5E01 5FC5 6BD5 95ED 4F56 3629 5752 5E87 8BD0 3620
+59BC 602D 6036 39D9 6788 7540 90B2 54D4 67F2 6BD6
+73CC 75AA 82FE 6BD9 72F4 7B13 7C8A 835C 94CB 965B
+5A62 5EB3 655D 6890 7562 8890 9587 9589 581B 5F3B
+5F3C 610A 610E 6E62 7695 7B5A 8406 8A56 8CB1 8CC1
+8D51 6ED7 714F 75F9 75FA 7764 8177 870C 8DF8 924D
+959F 98F6 55F6 5E63 5F0A 5F43 6EED 78A7 7B85 7B86
+7DBC 84D6 88E8 999D 6F77 719A 7358 7359 3EEB 84FD
+853D 480B 912A 99DC 9AF2 58C1 5B16 5EE6 3D65 7BE6
+7F7C 89F1 9B85 6583 6FDE 7BF3 7E2A 81C2 859C 907F
+9946 5970 74A7 8E55 9128 9AC0 7E74 895E 93CE 4557
+8963 8E83 8E84 97B8 97E0 8D14 9434 9A46 9B53 9DDD
+9DE9 9F0A
+5302 841E 5E64 5B36 8945
+618B 87DE 9CD6 9C49 9F08 864C 9F9E
+5225 522B 5487 43DF 8382 86C2 5FB6 8952 8E69
+762A 765F 3FDC
+5F46 4318
+706C 6753 6807 98D1 9A89 9ADF 6DF2 5F6A 730B 813F
+98A9 5882 5E56 647D 6EEE 98AE 9AA0 6A19 719B 8198
+8508 762D 78E6 9556 98D9 98DA 5126 98B7 700C 8B24
+7202 81D5 85E8 8D06 93E2 7A6E 9573 98C6 98C7 98C8
+9A43 9463 4BBD 9A6B
+8868 5A4A 88F1 8AD8 9336 6AA6 893E
+4FF5 9CD4 9C3E
+98CA
+8FB9 8FBA 782D 7B3E 63D9 7335 7F16 7178 7251 7502
+7BAF 7DE8 8759 9089 937D 9CCA 97AD 908A 9BFE 9BFF
+7C69
+8D2C 6241 7A86 533E 60FC 8CB6 8439 78A5 7A28 7CC4
+890A 9D18 85CA
+535E 5F01 5325 5FED 6283 6C73 6C74 91C6 53D8 73A3
+82C4 4FBF 5909 662A 3B53 898D 5FA7 7F0F 904D 959E
+8FA1 7DF6 8251 8FA7 8FA8 8FA9 8FAB 8FAE 8FAF 8B8A
+5CC5 709E
+6C43 90A0 73A2 780F 5BBE 5F6C 68B9 50A7 658C 6915
+6EE8 3EDE 7F24 69DF 7478 8C69 8CD3 8CD4 9554 5110
+6FD2 6FF1 8668 8C73 6AB3 74B8 7015 9726 7E7D 944C
+986E
+6448 6BA1 8191 9AE9 64EF 9B02 6BAF 81CF 9ACC 9B13
+9AD5 9B22
+6C1E 6FF5
+51AB 4ECC 4ED2 6C37 51B0 5175 63A4
+4E19 6032 62A6 79C9 90B4 9643 661E 663A 67C4 70B3
+82EA 997C 772A 7A89 3A00 86C3 6452 7980 7A1F 9235
+927C 9905 9920 979E
+5E76 34C8 4E26 4F75 5E77 5EB0 5002 6824 75C5 7ADD
+504B 50A1 5BCE 68C5 8A81 9BA9 9750
+57AA 9786 92F2
+5CEC 5EAF 6661 900B 923D 8AA7
+9CEA 8F50 91AD
+535F 248F0 8865 54FA 6355 55B8 88DC 9D4F
+4E0D 5E03 4F48 5425 6B65 5498 3635 6016 62AA 6B68
+6B69 3CCD 67E8 949A 52CF 57D4 57D7 6091 6357 94B8
+57E0 8379 90E8 74FF 8E04 8500 90F6 9914 9922 7BF0
+7C3F
+FDD0-3106
+5991 25419 241B5 7685 8DB4 8225 556A 8469
+6777 722C 63B1 7436 7B62 6F56
+5E0A 5E15 6015 8899
+948B 5761 5CA5 6CCA 9887 6E8C 9255 9817 93FA
+5A46 5619 8522 9131 76A4 8B08 6AC7
+53F5 5C00 94B7 7B38 99CA
+5CB6 7087 6540 6622 6D26 73C0 8FEB 70DE 7834 7836
+91D9 7C95 84AA 9B44 9197 4A96
+6CFC 6872 6F51
+62CD
+4FF3 5F98 6392 7305 68D1 724C 8F2B 7C30 7C32 72A4
+5EF9
+54CC 6D3E 3B5B 6E43 848E 9383
+5478 36B0 600C 80A7 67F8 80DA 8843 9185
+962B 57F9 966A 6BF0 8D54 952B 88F4 88F5 8CE0 99CD
+4FD6
+4F02 6C9B 4F69 5E14 59F5 65BE 65C6 6D7F 73EE 914D
+7B29 4283 8F94 99B7 5D8F 9708 8F61
+84DC
+629B 62CB 812C
+5228 5486 5789 5E96 72CD 70B0 722E 530F 888D 8EF3
+9784 9E83 9E85
+8DD1
+5945 6CE1 70AE 75B1 76B0 7832 9EAD 791F 792E
+8422 891C
+5256 5A1D
+6294 6299 634A 638A 88D2 7B81 9307
+5485 54E3 5A44 7283 5ECD
+3434 7705 7819 7568 6F58 6500
+723F 6D00 76D8 8DD8 5ABB 5E4B 642B 69C3 84B0 76E4
+78D0 7E0F 78FB 8E52 23066 700A 87E0 8E63 939C 97B6
+51B8 5224 6C9C 62DA 6CEE 708D 53DB 7249 76FC 7554
+8041 88A2 8A4A 6EBF 9816 92EC 897B 947B
+9D65
+55B7 5674 6B55
+74EB 76C6 6E53 8450
+5460 7FF8
+55AF
+4E53 6C97 80EE 96F1 6EC2 8196 4A26 9736
+5390 5E9E 5396 65C1 9004 823D 5ACE 5FAC 249ED 8783
+9CD1 9F8E 9F90
+55D9 802A 89AB
+7090 80A8 80D6
+5309 36C1 6026 62A8 6072 39F8 7830 6888 70F9 7851
+8EEF 959B 6F30 562D 6F8E 78DE
+8283 670B 7AFC 5017 6337 580B 5F38 8391 5F6D 68DA
+6916 787C 7A1D 9E4F 5873 6189 69F0 6A25 71A2 84EC
+28083 8F23 7BE3 81A8 930B 97F8 9AFC 87DA 87DB 9B05
+4D36 97FC 9D6C 9A2F 7E84 9B14 945D
+6367 6DCE 768F 527B
+63BD 692A 78B0 8E2B
+7BF7
+4E15 4F13 4F3E 6279 7EB0 576F 62AB 62B7 708B 72C9
+90B3 7812 20731 6082 79DB 79E0 7D15 94CD 65C7 7FCD
+801A 8C7E 9208 921A 9239 925F 9294 5288 78C7 99D3
+9AEC 567C 930D 9B7E 9B8D 61B5 7914 7915 9739
+76AE 34DF 9630 5CAF 6787 6BDE 72D3 80B6 8298 6BD7
+6BD8 75B2 868D 5564 57E4 5D25 26A2D 86BD 86BE 8C7C
+2821A 90EB 9674 7137 7435 813E 8157 9C8F 7F74 818D
+8731 9B6E 58C0 7BFA 87B7 8C94 9D67 7F86 6707 9F19
+5339 5E80 758B 4EF3 572E 82C9 8134 75DE 92A2 8AC0
+9D04 64D7 567D 7656 4C26 56AD
+5C41 6DE0 6E12 63CA 91FD 5AB2 5AD3 7765 8F9F 6F4E
+7A2B 50FB 6FBC 568A 7513 4444 7588 8B6C 95E2 9DFF
+9E0A
+698C
+6C15 6487 22CC2 6486 66BC 77A5
+4E3F 82E4 9405
+5AF3
+527D 6153 7F25 98D8 65DA 7FF2 87B5 72A5 98C3 98C4
+9B52
+5AD6 74E2 7AC2 85B8 95DD
+6B8D 5F6F 779F 7BFB 7E39 91A5 76AB 9860
+7968 50C4 52E1 560C 5FB1 6F02 3B13
+56E8 504F 5AA5 728F 7BC7 7FE9 9342 9DA3
+9A88 80FC 8141 6944 6969 8CC6 8DF0 8ADA 8E41 99E2
+9ABF 9A08
+8991 8C1D 8CB5 8ADE
+7247 9A97 9A17 9A19
+9B78
+59D8 62FC 3866 7917 7A66 99AA 9A5E
+73AD 8D2B 5A26 8CA7 7415 5AD4 9891 983B 5B2A 7371
+85B2 56AC 77C9 8819 98A6 9870
+54C1 6980
+725D 6C56 8058
+4E52 7539 4FDC 5A09 6D84 782F 8060 8275 7AEE 9829
+29A4D
+5E73 8BC4 51ED 546F 576A 6CD9 5C4F 5E21 67B0 6D34
+73B6 80D3 82F9 90F1 3EB8 3EC2 8353 5C5B 5E32 6DDC
+74F6 86B2 5E48 7129 7F3E 840D 86E2 8A55 7501 84F1
+8EFF 9C86 51F4 4202 617F 7BB3 8F27 6191 9B83 6A98
+7C08 860B
+5CBC 5840
+4EC6 6534 6251 9660 5657 64B2 6F7D 64C8 9BC6
+3EAA 530D 812F 8386 83D0 83E9 8461 50D5 84B1 84B2
+917A 58A3 735B 749E 6FEE 77A8 7A59 423B 9564 258C8
+7E80 8965 93F7
+5724 6734 5703 6D66 70F3 666E 6EA5 8C31 8AE9 6A38
+6C06 6A8F 9568 8B5C 8E7C 9420
+94FA 8216 8217 92EA 3B25 7011 66DD
+5DEC 5DED 99C7 8D0C
+FDD0-3107
+5463
+5988 5B56 5ABD 5B24 5B37
+9EBB 75F2 7298 8534 87C7
+9A6C 3437 739B 7801 8682 99AC 6EA4 746A 78BC 879E
+93B7 9C22 9DCC
+72B8 6769 7943 9581 9A82 551B 508C 7341 561C 3A38
+69AA 7770 79A1 7F75 372B 99E1 7923 9B15
+4E87 5417 55CE 561B 5AF2 9064 87C6
+6478
+8C1F 998D 5AEB 9EBD 6469 6479 6A21 819C 6A45 78E8
+7CE2 56A4 64F5 8B28 56A9 56B0 9943 8611 5298 9ACD
+9B54 40FA 995D
+62B9 61E1 4A4B
+672B 52B0 573D 59BA 5E13 6B7E 6B7F 6B81 6CAB 248FB
+5E1E 6629 67BA 8309 964C 551C 768C 771C 773F 781E
+79E3 773D 7C96 7D48 8388 83AB 6E50 86E8 8C83 8C8A
+55FC 587B 5BDE 6F20 734F 84E6 9286 977A 5AFC 66AF
+3C73 9ED9 7790 9546 9B69 58A8 763C 7799 9ED8 700E
+87D4 8B29 8C98 7205 85E6 93CC 7933 7E86 9A40 8031
+5E85 603D 5C1B 9B79 9EBF
+4E48 9EBC 5692 569C 6FF9 7666
+57CB 3725 85B6 973E
+4E70 836C 8CB7 562A 8552 9DF6
+52A2 4F45 58F2 8FC8 9EA6 5356 8109 8108 9EA5 8847
+52F1 8CE3 9081 9721 9722 2A133
+5445 5746 6C92 6CA1 679A 73AB 6802 7709 82FA 5A12
+8104 6885 73FB 8122 8393 5833 5A92 5D4B 6E44 6E48
+7338 7742 90FF 6963 6973 7164 7442 847F 587A 69D1
+7996 9176 9545 9E5B 92C2 9709 7A48 5FBE 9387 77C0
+6517 9DA5 862A 9EF4
+6BCE 6BCF 51C2 7F8E 6334 6D7C 5A84 5D44 6E3C 5ABA
+815C 9541 5B0D 71D8 9382 9EE3
+59B9 62BA 6CAC 65C0 6627 3B51 771B 7959 8882 5A9A
+5BD0 75D7 8DCA 715D 9B3D 7778 97CE 7BC3 875E 9B45
+8EBE
+732B 8C93
+6BDB 77DB 6786 7266 8305 8306 65C4 7F5E 515E 8EDE
+9155 5825 6E35 28968 951A 9AE6 5AF9 6C02 729B 8765
+9AF3 87CA 9328 9D9C
+5187 536F 5918 4E6E 623C 36B9 5CC1 6CD6 6634 94C6
+7B37 84E9
+5183 7683 5190 82BC 5192 67D5 770A 8302 8D38 8004
+88A4 8992 5AA2 5E3D 8CBF 6117 6693 6959 6BF7 7441
+843A 7780 8C8C 911A 8750 912E 61CB
+54DE
+725F 4F94 52BA 3B4C 6048 6D20 7738 8C0B 86D1 7F2A
+8E0E 927E 8B00 77B4 7E46 936A 9D3E 9EB0
+67D0 26CD1
+5ADA 989F
+59CF 6097 34BC 86EE 50C8 8C29 6172 9992 6A20 7792
+779E 9794 25C91 8B3E 9945 9CD7 9862 9B17 9B18 9C3B
+883B
+5C58 6E80 774C 6EE1 6EFF 87A8 87CE 8954 93CB 77D5
+66FC 3B05 5881 5E54 6162 6471 6F2B 734C 7F26 9124
+69FE 71B3 8504 8513 3862 6FB7 9558 7E35 93DD 2914D
+4555 2414E
+8630
+95E8 626A 73A7 9494 9580 9585 636B 83DB 748A 9346
+4EB9 864B
+95F7 7116 60B6 66AA 71DC 61D1 61E3
+4EEC 5011 691A
+7264
+5402 5FD9 6C52 9099 5C28 6757 6767 8292 6C13 76F2
+7B00 54E4 5A0F 5EAC 3936 607E 6D5D 72F5 832B 727B
+3ECA 91EF 94D3 75DD 786D 86D6 420D 23677 92E9 99F9
+29DF6
+83BD 7865 833B 83BE 58FE 6F2D 3B12 87D2 880E
+753F 867B 51A1 8394 840C 8420 4004 76DF 8499 8771
+511A 6A57 750D 77A2 8544 9133 5E6A 61DE 66DA 6FDB
+9138 6726 6AAC 6C0B 4443 4445 9BCD 77C7 791E 9E72
+8268 8609 77D2 973F 9740 995B 986D 9F06 9E0F
+52D0 731B 74FE 4045 9530 824B 8722 9333 61DC 7374
+61F5 9BED 8813
+5B5F 20D7C 68A6 6E95 5922 5923 44DD 9725 3734
+63B9 64DD
+54AA 772F 7787
+519E 5F25 7F59 7962 8FF7 7315 8C1C 8A78 84BE 5F4C
+64DF 7CDC 7E3B 8B0E 919A 9E8A 9E8B 79B0 9761 3737
+7030 737C 9E9B 6202 6520 74D5 957E 7222 4577 863C
+91BE 91BF 9E0D 91C4
+7C73 8288 4F8E 6CB5 7F8B 5F2D 6D23 6549 772B 8112
+6E33 845E 92A4 851D 6FD4 5B4A 7056
+5196 7CF8 6C68 6C95 5B93 6CCC 89C5 5CDA 5BBB 7955
+79D8 5BC6 6DE7 6DFF 8993 8994 5E42 8C27 5853 5E4E
+3A20 899B 5627 6993 6EF5 6F1E 7190 871C 6A12 8524
+9F0F 51AA 5E66 6FD7 8B10 6AC1 7C1A 85CC 7F83
+4E5C 5400 54A9 54F6 5B6D
+706D 70D5 8995 6423 6EC5 8511 9D13 7BFE 858E 5E6D
+61F1 6AD7 881B 884A 9456 9C74
+55B5
+82D7 3464 5A8C 63CF 9E4B 7784 7DE2 9D93 9C59
+676A 7707 79D2 6DFC 6E3A 7F08 7BCE 7DF2 85D0 9088
+5999 5E99 7385 7AD7 5EBF 5EDF
+8C2C 8B2C
+5B80 8287 7720 5A42 7EF5 5A94 68C9 7DBF 7DDC 81F1
+8752 5B35 6AB0 6ACB 77C8 77CA 77CF
+4E0F 6C45 514D 6C94 9EFE 52C9 7704 5A29 3743 506D
+5195 52D4 6E11 5595 6110 6E4E 7F05 7D7B 817C 8442
+9EFD 3EF0 7DEC 9EAB 6FA0 9BB8
+9763 9762 7CC6 9EAA 9EBA 9EB5
+6C11 59C4 5CB7 5FDE 600B 65FB 65FC 73C9 76FF 7807
+82E0 7F60 5D0F 636A 7418 7F17 656F 7449 75FB 7888
+9231 7DCD 4AB8 7DE1 9309 9D16 9372
+76BF 51BA 5221 95F5 62BF 6CEF 52C4 6543 95FD 60AF
+654F 7B22 60FD 6E63 9594 610D 3B06 668B 95A9 50F6
+615C 61AB 6F63 7C22 2704B 9CD8 8820 9C35 2A134
+578A 7B3D
+540D 660E 9E23 6D3A 7700 51A5 8317 6719 7733 94ED
+5AC7 6E9F 733D 910D 669D 69A0 84C2 9298 9CF4 7791
+879F 89AD 4AE4
+4F72 59F3 51D5 614F 9169
+547D 6927 8A7A
+63B5
+6BEA 58B2 6C01
+6BCD 4EA9 7261 5776 59C6 5CD4 7273 7546 7552 80DF
+755D 755E 782A 756E 27FF9 20E96 9267 8E07
+6728 4EEB 6730 76EE 6C90 72C7 7091 7267 82DC 6BE3
+869E 94BC 83AF 96EE 52DF 3708 6958 7766 926C 5893
+5E55 5E59 6154 6155 66AE 8252 9702 7A46 7E38 97AA
+51E9 62C7
+FDD0-3108
+53D1 6CB7 767A 50A0 767C 5F42 9166 91B1
+4E4F 4F10 59C2 57A1 6D4C 75BA 7F5A 9600 6830 781D
+8337 7B4F 7782 7F70 95A5 7F78 6A43 85C5
+4F71 6CD5 704B
+73D0 743A 9AEA 9AEE 855F 27B0B
+9345
+4ECF 5772
+68BB
+98DE 5983 975E 98DB 5561 5A53 6E04 7EEF 291EB 6249
+7306 83F2 975F 7DCB 871A 88F6 970F 9CB1 9925 99A1
+9A11 9A1B 98DD
+80A5 6DDD 8153 4208 8730 87E6
+670F 532A 8BFD 595C 60B1 6590 68D0 69A7 7FE1 8AB9
+7BDA 855C 2913C
+5420 5E9F 676E 6CB8 72D2 80BA 82BE 6632 80C7 8D39
+4FF7 5255 539E 75BF 5C5D 966B 5EC3 3E43 8409 8CBB
+75F1 9544 5EE2 66CA 4935 7648 9F23 6FF7 4C01 6AE0
+9BE1 9428 9745
+5A54 6683
+7D11 88E6
+7F36 5426 599A 7F39 7F3B 6B95 96EC 9D00
+5E06 8A09 756A 52EB 5643 5B0F 5E61 61A3 65D9 8543
+65DB 7E59 7FFB 85E9 8F53 98BF 7C53 98DC 9C55
+51E1 51E2 51E3 3836 5FDB 674B 77FE 7C75 9492 67C9
+70E6 8227 7B32 68E5 6E22 7169 7DD0 58A6 6A0A 6A4E
+71D4 74A0 81B0 7E41 85A0 7FB3 894E 8E6F 702A 703F
+792C 9407 9422 8629 881C 9DED
+53CD 6255 8FD4 484A 91E9
+201A9 6C3E 72AF 597F 6C4E 996D 6CDB 8D29 7548 8303
+4000 8ED3 5A4F 68B5 3D00 76D5 7B35 8CA9 8EEC 98EF
+98F0 6EFC 5B0E 7BC4
+8224
+5206 5429 5E09 7EB7 6610 6C1B 82AC 54DB 517A 7D1B
+7FC2 886F 515D 8A1C 915A 68FB 9216 96F0 3B1F 6706
+71D3 9934 9959
+575F 59A2 5C8E 6C7E 670C 678C 7083 80A6 7F92 86A0
+86A1 68A4 68FC 711A 999A 84B6 58B3 5E69 6FC6 9B75
+6A68 71CC 8561 8C6E 96AB 9F22 7FB5 9F16 8C76 8F52
+943C 99A9 9EC2
+7C89 9EFA
+4EFD 5F05 594B 5FFF 79CE 507E 6124 7CAA 50E8 61A4
+596E 81B9 7CDE 9CBC 7035 9C5D
+7AD5 8EAE
+531A 65B9 6C78 90A1 678B 7265 82B3 94AB 8684 6DD3
+9201 9D0B
+59A8 9632 623F 80AA 57C5 9C82 9B74 9C1F
+4EFF 8BBF 5F77 7EBA 6609 6618 74EC 7706 5023 65CA
+7D21 822B 8A2A 9AE3 9DAD
+653E 8DBD
+574A 580F 933A
+4E30 98CE 4EF9 51E8 51EC 59A6 6CA3 6CA8 51EE 67AB
+5C01 75AF 76FD 781C 98A8 36D4 5CEF 5CF0 44A0 5051
+687B 70FD 5D36 7326 950B 6953 728E 8451 8702 760B
+78B8 50FC 7BC8 92D2 9137 6A92 95CF 8C50 93E0 34A5
+5BF7 3826 7043 9146 973B 8634 882D 974A 98CC 9EB7
+51AF 5906 6340 6D72 9022 5838 99AE 7D98 8242 3980
+6453 6F28 3D6F
+8BBD 552A 8982 8AF7
+51E4 5949 752E 4FF8 6E57 7128 7148 7F1D 8D57 9CEF
+9CF3 9D0C 8CF5 7E2B
+7412 6E84 93BD 8615
+8985
+4F15 544B 598B 909E 59C7 739E 80A4 6024 67CE 7806
+57BA 5A10 5C03 8342 886D 65C9 3B6A 7D28 8374 8DBA
+9EB8 75E1 7A03 8DD7 9207 7B5F 7D92 5B75 8C67 911C
+6577 819A 9CFA 9EA9 7CD0 9EAC 9EB1 61EF
+4E40 5DFF 5F17 4F0F 51EB 7536 4F5B 51B9 521C 5B5A
+6276 5488 5CAA 5F7F 602B 62C2 670D 678E 6CED 7EC2
+7ECB 8299 82A3 4FD8 5798 3A84 67EB 6C1F 6D11 70A5
+73B8 7549 7550 7F58 82FB 8300 97E8 54F9 683F 6D6E
+7829 7953 832F 86A8 90DB 5310 6874 6DAA 70F0 7408
+7B26 7B30 7D31 7D3C 7FC7 8274 83A9 8659 5E45 68F4
+7D65 7F66 83D4 7CB0 7D8D 8240 844D 8709 8F90 9258
+925C 98AB 9CE7 6991 798F 7A2A 7B99 97CD 5E5E 6F93
+8760 9AF4 8AE8 8E3E 8F3B 9B84 9D14 7641 29732 9EFB
+8946 9D69 9D9D
+5452 629A 4E76 5E9C 5F23 62CA 65A7 4FCC 4FDB 80D5
+9CEC 4FEF 90D9 91DC 91E1 636C 8F85 7124 76D9 8151
+6ECF 8705 42E8 8150 8F14 5638 64A8 64AB 982B 9B34
+7C20 9EFC
+2ECF 2ED6 961D 7236 8BA3 4ED8 5987 8D1F 577F 3914
+7ACE 961C 9644 9A78 590D 5CCA 8A03 8CA0 8D74 3931
+7954 86A5 965A 5069 51A8 526F 5A66 86B9 889D 5A8D
+5BCC 5FA9 3DC6 79FF 86D7 8A42 8D4B 5711 6931 7F1A
+8179 842F 9C8B 8D59 4B7B 3B3C 7DEE 875C 876E 8907
+8914 8CE6 99D9 5B14 7E1B 8567 8F39 9B92 8CFB 9351
+9362 9CC6 8986 99A5 4600 9C12 204D7
+592B 752B 5490 915C 5085 6928 88B1 8984 79A3 9BB2
+FDD0-3109
+5491 54D2 8037 8345 7B1A 55D2 642D 2143F 6498 5660
+265BF 8921 939D
+8FBE 547E 59B2 601B 6C93 8FD6 709F 7F8D 7557 7563
+7B2A 8359 5273 5312 7B54 8A5A 9039 9054 9618 977C
+9791 8598 9389 87FD 8E82 943D 97C3 9F96 9F98
+6253
+5927 6C4F 7714
+57AF 58B6 7629 71F5 7E68
+561A
+392B 6074 6DC2 60EA 68CF 951D 5FB3 5FB7 9340
+5730 7684 5F97 8126
+5446 5454 7343 61DB
+6B79 50A3 902E
+3432 4EE3 8F6A 20C3A 5788 5CB1 5E12 7519 7ED0 9A80
+5E26 5F85 6020 67CB 6B86 73B3 8D37 8FE8 5E2F 8ED1
+57ED 5E36 7D3F 888B 8EDA 3ED6 8CB8 8EE9 7447 5ED7
+4206 53C7 3BC2 7DFF 66C3 9D0F 6234 26102 825C 9EDB
+7C24 8E5B 703B 9734 9EF1 8976 9746
+9B98
+2E88 5200 5202 53E8 5FC9 6737 6C18 8220 91D6 9C7D
+9B5B
+636F
+5BFC 5C9B 5CF6 6363 7977 6417 7982 3800 5D8B 5D8C
+3A36 969D 5C0E 58D4 5DB9 64E3 8E48 96AF 79B1
+5230 5012 60BC 7118 76D7 76DC 83FF 9053 7A32 7B8C
+7FE2 7A3B 885C 5675 885F 6AA4 71FE 4326 7FFF 8EC7
+74D9 7E9B
+5C76 9666 6921 69DD
+543A 5517 515C 90FD 5160 8538 6A77 7BFC
+6296 9627 6793 67A1 551E 86AA 9661 9204
+6597 8C46 6D62 90D6 997E 9B25 68AA 6BED 8130 8373
+9017 9158 75D8 9597 7AA6 4B26 9B26 9916 65A3 2109D
+95D8 4546 7AC7 9B2A 9B2C 9B2D
+4E67 8254
+4E39 5989 5355 62C5 5358 7708 7803 803C 803D 449F
+8043 8EAD 90F8 55AE 5A85 6B9A 7605 5330 7BAA 9815
+510B 52EF 891D 9132 64D4 6BAB 7649 7514 7C1E 894C
+8078
+4F14 5210 628C 73AC 74ED 80C6 75B8 7D1E 8874 63B8
+8D55 4EB6 64A2 64A3 6FB8 9ED5 81BD 9EEE
+65E6 4F46 5E0E 6C8A 72DA 8BDE 67E6 758D 5556 5557
+5F39 60EE 6DE1 86CB 557F 5F3E 6C2E 8145 840F 89DB
+35D6 7A9E 50E4 8711 99BE 9AE7 563E 5649 5F48 619A
+8A95 61BA 66BA 6FB9 84DE 9D20 79AB 99F3 765A 56AA
+7E75 8D09 972E 994F 4A35
+6CF9
+6265 627D
+5F53 73F0 7B5C 88C6 7576 5679 6FA2 74AB 7C39 8261
+87F7 8960
+6321 515A 8C20 64CB 8B61 9EE8 6529 7059 6B13 8B9C
+6C39 51FC 5735 5B95 7800 57B1 6863 8361 5A78 6113
+83EA 5D63 74FD 903F 96FC 78AD 5105 6F52 778A 8DA4
+58CB 8569 6A94 7497 76EA 7911 7C1C 862F 95E3
+94DB 943A
+706F 767B 8C4B 5654 5B01 71C8 7492 7AF3 7C26 89B4
+8E6C
+6729 7B49 6225
+9093 51F3 58B1 5D9D 9127 96A5 77AA 78F4 956B 6AC8
+9419
+8260
+6C10 4EFE 4F4E 5943 5F7D 7F9D 889B 5824 8D86 9684
+6EF4 6A00 955D 78FE 9349 97AE
+72C4 5EF8 7C74 82D6 8FEA 5519 654C 6DA4 6891 7B1B
+837B 89CC 976E 99B0 9AE2 5600 5AE1 6ECC 7FDF 9814
+6575 850B 8510 4A00 5681 7BF4 4A24 8C74 8E62 9B04
+85E1 93D1 42AE 7CF4 89BF 9E10
+538E 5758 8BCB 5467 5E95 5F24 62B5 62DE 90B8 963A
+67E2 7274 830B 7825 57DE 638B 3B7D 83E7 89DD 8A46
+8EE7 805C 9AB6
+5754 5F1F 65F3 6755 7393 601F 4FE4 5E1D 57CA 5A23
+5059 5547 5572 688A 710D 73F6 7731 7B2C 8C1B 9012
+9013 91F1 5A82 68E3 6E27 7747 7976 7F14 83C2 50C0
+8163 8482 926A 5891 6455 78B2 7998 8743 905E 58AC
+6178 7DE0 8515 9070 5DB3 750B 8AE6 8E36 87AE
+9BF3
+55F2
+7239 8DCC 893A
+57A4 5CCC 604E 6315 6633 7ED6 80C5 82F5 8FED 74DE
+7723 621C 43F2 8C0D 558B 581E 60F5 63F2 7573 7D70
+800B 81F7 8A44 8D83 957B 53E0 6B9C 7243 7252 5D7D
+789F 8728 8253 8776 890B 22DA3 8ADC 8E40 9CBD 3B2A
+66E1 7589 9C08 758A 6C0E
+54CB 800A 7730
+5E49 7582
+5201 53FC 6C48 866D 51CB 595D 5F34 5F6B 86C1 7431
+8C82 7889 9CED 6BA6 7797 96D5 9B89 9CB7 9F26 9BDB
+9D70
+625A 5C4C
+5F14 4F04 540A 9493 7A8E 8A0B 8C03 6389 91E3 94DE
+94EB 7AE8 92B1 96FF 9B61 84E7 8ABF 7639 7AB5 92FD
+85CB 9443
+7C13
+4E1F 4E22 20C8D 94E5 92A9
+7538 6541 20DA7 6382 508E 53A7 5D6E 6EC7 69C7 69D9
+7628 98A0 8E4E 5DC5 985A 985B 766B 5DD3 5DD4 6527
+7672 9F7B
+5178 594C 70B9 5A70 7320 4344 655F 8DD5 7898 84A7
+8E2E 8547 9EDE 56B8
+7535 4F43 576B 5E97 963D 57AB 6242 73B7 94BF 5A5D
+60E6 6DC0 5960 7414 6BBF 8714 96FB 588A 58C2 6A42
+6A5D 6FB1 975B 24A71 765C 7C1F 9A54
+6923
+4E01 4EC3 53EE 5E04 738E 7594 76EF 9489 8035 8670
+914A 91D8 976A
+5975 9876 9802 3AC0 9F0E 5D7F 9F11 6FCE 85A1 9424
+8BA2 5FCA 9964 77F4 5B9A 8A02 98E3 5576 94E4 6917
+815A 7887 952D 78A0 874A 92CC 9320 78F8 9841
+8423 8062
+53BE 21C2A 5262 9607 7763 561F 918F 95CD
+6BD2 72EC 6D9C 8BFB 6E0E 691F 3C69 724D 728A 78A1
+88FB 8AAD 8773 7368 9316 51DF 5335 5B3B 7006 6ADD
+6BB0 7258 72A2 74C4 76BE 9A33 9EE9 8B80 8C44 8D15
+97E3 945F 9AD1 97C7 97E5 9EF7 8B9F
+7B03 5835 5E3E 8D4C 743D 7779 89A9 8CED 7BE4
+5992 675C 809A 828F 59AC 5EA6 79FA 8370 6E21 976F
+9540 29D5A 8799 6BAC 934D 7C35 8827 8839
+591A 591B 5484 54C6 7553 525F 5D1C 6387 6560 6BF2
+88F0 5689
+593A 94CE 526B 6553 655A 55A5 60B3 656A 75E5 922C
+596A 51D9 8E31 9BB5 9438
+6736 54DA 579B 579C 6305 6306 57F5 7F0D 692F 8D93
+8EB1 8EB2 7D9E 492A 619C 4EB8 937A 8EC3 56B2 5972
+5234 5241 9973 5C2E 67C1 67EE 70A8 964A 964F 6857
+5815 8235 60F0 8DE2 8DE5 8DFA 98FF 3EE7 58AE 58AF
+5D9E 9D7D
+6735 67A4
+5796 5806 5860 5D5F 75FD 78D3 9D2D 941C
+3A03 9827
+5BF9 961F 514A 514C 5151 5BFE 603C 794B 966E 968A
+7893 41CF 7D90 5C0D 619E 619D 6FE7 9566 61DF 3B23
+85B1 7029 8B48 8968 9413
+8011 5073 526C 5A8F 7AEF 890D 9374
+22B43 77ED
+6BB5 65AD 5845 7F0E 6934 7145 7456 8176 846E 78AB
+953B 7DDE 6BC8 7C16 935B 65B7 8E96 7C6A
+5428 60C7 6566 8733 58A9 58AA 64B4 7364 5678 6489
+6A54 729C 7905 453B 8E72 8E7E 9A50
+233B4 76F9 8DB8 8E89
+4F05 56E4 5E89 6C8C 7096 76FE 7818 949D 9007 987F
+920D 696F 9041 9813 6F61 906F 71C9 8E32
+78B7
+4E1C 51AC 549A 36B5 5CBD 6771 6638 6C21 82F3 5032
+9E2B 57EC 5A3B 5D20 5D2C 6DB7 7B17 5F9A 6C2D 83C4
+29093 8740 9D24 9F15 9BDF 9D87
+3A02 8463 58A5 7BBD 8ACC 5B1E 23FC5 856B 61C2
+52A8 51BB 4F97 578C 59DB 5CD2 606B 630F 680B 6D1E
+80E8 51CD 6219 80F4 8FF5 52D5 7850 68DF 6E69 7D67
+8156 50CD 99E7 9718
+9B97 9DAB
+FDD0-310A
+4ED6 5B83 5979 7260 7942 94CA 8DBF 584C 6EBB 6999
+891F 5683 95E7
+8E79
+5854 6E9A 5896 35F3 736D 9CCE 737A 9C28
+4EA3 62D3 631E 72E7 95FC 20D32 36E5 5D09 6DBE 3B7C
+6428 40BF 8DF6 69BB 6BFE 420B 905D 9062 3493 79A2
+8ABB 8E0F 64BB 6FBE 9314 6A7D 6FCC 8E4B 979C 9B99
+3FF9 95D2 97B3 56BA 8B76 95E5 2A601 8EA2
+4FA4 549C
+5FD1 5FD2 7279 8CA3 86AE 94FD 615D 92F1 87A3 87D8
+56FC 5B61 80CE
+51AD 53F0 65F2 576E 62AC 90B0 67B1 70B1 70B2 82D4
+83ED 8DC6 3B03 9C90 7B88 81FA 98B1 421A 99D8 5113
+9B90 5B2F 64E1 3E00 6AAF 85B9 7C49
+592A 5933 5FF2 6C70 6001 80BD 949B 6CF0 8226 48ED
+915E 9226 6E99 614B 71E4
+7C8F
+5932 5F22 6D9B 7EE6 638F 8A5C 5ACD 5E4D 6146 642F
+6ED4 7D5B 69C4 746B 97EC 98F8 4231 7E1A 7E27 6FE4
+8B1F 8F41 493E 97B1 97DC 9955
+530B 54B7 6D2E 8FEF 6843 9003 5555 68BC 6DD8 413B
+7EF9 9676 8404 7979 7DAF 872A 88EA 9780 9184 9789
+92FE 932D 99E3 6AAE 9940 9A0A 9F17
+8BA8 8A0E
+5957
+5077 5078 5A7E 5AAE 92C0 936E
+4EA0 5934 6295 9AB0 7DF0 982D
+59B5 94AD 7D0F 3A97 6568 98F3 9EC8 8623
+900F 7D89
+574D 3631 62A9 8D2A 6039 75D1 8211 8CAA 644A 6EE9
+762B 64F9 6524 7058 7671
+575B 212A8 6619 5013 8C08 5A52 60D4 90EF 8983 6983
+75F0 952C 8C2D 58B0 58B5 619B 6F6D 8AC7 9188 58C7
+66C7 71C2 931F 9924 6A80 78F9 9843 7F48 58DC 85EB
+8B5A 8C9A 91B0 8B60 7F4E
+5FD0 5766 43D9 94BD 8892 6BEF 83FC 47A1 926D 55FF
+61B3 61BB 9193 74AE 8962
+53F9 70AD 57EE 63A2 509D 6E60 50CB 5606 78B3 8215
+6B4E 8CE7
+6C64 5763 94F4 6E6F 5621 8025 528F 7FB0 876A 47B6
+4800 9557 859A 8E5A 93DC 940B 97BA 9F1E
+9967 5510 5802 508F 557A 3B7B 68E0 347D 5858 370D
+642A 6E8F 910C 69B6 6F1F 717B 746D 8185 84CE 969A
+6A18 2365F 78C4 799F 7CC3 819B 6A56 7BD6 7CD6 8797
+8E3C 7CDB 87B3 8D6F 91A3 9933 424E 9395 9939 95DB
+9944 28189 9DB6
+4F16 5E11 5018 5052 6DCC 50A5 8EBA 954B 93B2 513B
+6203 66ED 7223 77D8 9482
+70EB 6465 8D9F 71D9
+71A5 81AF 9F1F
+75BC 75CB 5E50 817E 8A8A 6F1B 6ED5 7E22 9086 99E6
+8B04 512F 85E4 9A30 7C50 9C27 7C58 9A63
+972F
+8645
+5254 68AF 3538 9511 8E22 64FF 9DC8 9DC9
+5397 82D0 7EE8 8351 504D 557C 5D39 60FF 63D0 7A0A
+7F07 7F64 9E48 55C1 7445 7D88 9046 78AE 5FB2 6F3D
+7DF9 876D 8906 92BB 9898 855B 8DA7 8E44 918D 8B15
+8E4F 9357 9CC0 9D3A 984C 9BB7 9D5C 9A20 9BF7 9D97
+9D99 79B5 9DE4
+4F53 632E 8EB0 9AB5 9BA7 8EC6 9AD4
+623B 239C2 8FCF 5243 6711 6D1F 501C 608C 6D95 6090
+60D5 63A6 9016 60D6 63E5 66FF 9037 6974 88FC 6B52
+6BA2 8905 9AF0 3B31 568F 8599 9B00 5694 74CB 7C4A
+8DAF 4D91
+5C49 5C5C 7B39 5D5C
+5E16 6017 8D34 8051 841C 8CBC
+94C1 86C8 50E3 9295 92E8 9D29 9421 9435 9A56
+546B 98FB 4D34 992E
+65EB 4F7B 5EA3 604C 6311 7967 3B38 804E
+8280 6761 5CA7 5CB9 8FE2 7952 689D 7B24 8414 47ED
+8D92 9F86 84DA 8729 6A24 84E8 92DA 9AEB 9CA6 9797
+93A5 9BC8 9F60 9C37
+5BA8 6640 6713 3E20 8101 7A95 8A82 4837 7AB1 65A2
+5B25
+773A 7C9C 7D69 899C 8DF3 7CF6
+87A9
+5929 5172 5A56 6DFB 915F 9754 42EC 3B32 9EC7 975D
+7530 5C47 6CBA 606C 754B 7551 76F7 80CB 7560 751B
+751C 6E49 83FE 4852 5861 586B 6437 923F 9617 7DC2
+78CC 7AB4 74B3 95D0 9DC6 9DCF
+5FDD 6B84 500E 35AD 553A 3649 60BF 6DDF 666A 7420
+8146 89CD 75F6 7753 8214 9902 89A5 8CDF 932A 9766
+9369
+3401 63AD 777C 821A
+78B5 9D2B
+5385 5E81 6C40 827C 542C 753A 8013 539B 70C3 686F
+70F4 7D8E 42FC 9793 8074 5EF0 807C 807D 5EF3
+9092 5EF7 4EAD 5EAD 505C 839B 5A77 5D49 6E1F 695F
+7B73 8476 8713 69B3 8064 874F 95AE 9706 8AEA 9F2E
+2123C 5722 753C 4FB9 5A17 633A 6D8F 6883 70F6 73FD
+8121 988B 8247 8A94 9832 2A2B6
+51F8 5B8A 79BF 79C3 6022 7A81 550B 6D8B 6378 5817
+6E65 75DC 8456 5D80 92F5 9D5A 9F35
+56F3 56FE 51C3 5CF9 5EA9 5F92 6087 6348 5C60 688C
+3ECC 837C 9014 63EC 3B78 7A0C 83DF 5715 5857 5D5E
+23225 760F 7B61 816F 922F 5716 5717 5EDC 6F73 84A4
+8DFF 9174 48DD 999F 934E 99FC 9D4C 9D9F 9DCB 9DF5
+571F 5721 5410 948D 91F7
+514E 5154 8FCC 580D 9D75
+6C62 6D82 83B5
+4E47 4EDB 8BAC 6258 6261 6C51 9966 6754 4F82 5483
+62D5 62D6 6CB0 6329 635D 8A17 6DB6 812B 8131 838C
+88A5 98E5 9B60 9A5D
+9A6E 4F57 5768 5CAE 6CB1 6CB2 72CF 9640 9641 8FF1
+7823 7824 9E35 7D3D 8889 5836 8DCE 9161 99B1 69D6
+78A2 4B7E 99C4 99DE 6A50 9B80 9D15 9F27 9A28 9F0D
+9A52 9F09
+5F75 59A5 5EB9 5AA0 692D 6955 5AF7 6A62 9D4E 9B0C
+9C16
+67DD 6BE4 553E 841A 8DC5 6BFB 7BA8 8600 7C5C
+9A7C 99DD
+63A8 84F7 85EC
+5F1A 4003 9893 5C35 96A4 9839 983A 983D 9B4B 7A68
+8E6A 8608 3FD7
+4FC0 50D3 817F 8E46 9ABD
+4FBB 5A27 9000 717A 86FB 8715 892A 99FE
+6E4D 732F 7153 474E 8C92 4D4E
+56E2 56E3 629F 5278 5718 6171 6476 6F19 69EB 7BFF
+6AB2 93C4 7CF0 9DD2 9DFB
+7583
+5F56 6E6A 8916
+541E 5451 6D92 554D 671C 711E 564B 66BE 3B3F 9ED7
+5C6F 5749 5FF3 9968 829A 8C58 8C5A 8ED8 98E9 9C80
+9B68 3A54 9715 81C0 81CB
+6C3D 757D
+65FD
+56F2 70B5 75CC 901A 55F5 84EA
+4EDD 540C 4F5F 5F64 5CC2 5E9D 54C3 5CDD 72EA 664D
+6850 6D75 70D4 783C 833C 8692 772E 79F1 94DC 7AE5
+7CA1 26A34 7B69 8A77 8D68 916E 9256 50EE 52ED 9275
+9285 9907 9C96 6F7C 735E 66C8 6723 6A66 6C03 71D1
+729D 81A7 3F3F 77B3 9BA6 2648D 4D00
+7EDF 6345 3A8C 6876 7B52 7D71 7D82 6A0B
+6078 75DB 8855 615F 6185
+FDD0-310B
+55EF
+62CF 62FF 6310 55F1 954E 93BF
+4E78 54EA 96EB
+59A0 7EB3 90A3 80AD 94A0 5A1C 7D0D 8872 637A 7B1D
+25E49 88A6 8C7D 8EDC 8C80 9209 9779 84B3 24E3B 9B76
+422B
+7592 8BB7 6290 7732 8A25
+5436 5450 5462
+8149 718B 6468 5B7B
+4E43 5976 6C16 827F 7593 59B3 5EFC 5037 8FFA 91E2
+5B2D
+5948 67F0 800F 8010 217AB 6E3F 8418 9F10 879A 8926
+933C
+5A1E 9981 812E 8147 9912 9BBE 9BD8
+5167 5185 343B 6C1D 9317
+5B6C
+5476 6013 6320 5CF1 7847 94D9 7331 86F2 8A49 7899
+6493 5DA9 61B9 87EF 5912 8B4A 9403 5DCE
+57B4 607C 60A9 8111 5318 5816 60F1 5AD0 7459 8166
+78AF 4700 7376 737F
+95F9 5A65 6DD6 9599 9B27 81D1
+8133
+7FBA
+5542
+69C8 8028 7373 6ABD 9392 941E 8B73
+56E1
+7537 678F 67AC 4FBD 5357 67DF 5A1A 7558 96BE 83AE
+5583 6694 6960 8AF5 96E3 27574
+8D67 63C7 6E73 8169 8433 4212 877B 6201
+266DA 5A7B 3B2E
+9056
+6041 5AE9 5AF0
+56D4
+4E6A 56A2 8B68 56CA 8830 9B1E 9995 6B1C 9962
+64C3 66E9 652E 7062
+513E 9F49
+80FD
+20E4C 28D99
+59AE
+5C3C 576D 37BE 6029 6CE5 7C7E 502A 5C54 79DC 94CC
+57FF 5A57 6DE3 730A 86AD 4626 90F3 68FF 249A4 46CF
+8DDC 815D 8063 873A 89EC 8C8E 8F17 9713 9CB5 9BD3
+9BE2 9E91 9F6F 81E1
+4F31 4F60 62B3 62DF 72D4 67C5 82E8 65CE 6672 5B74
+922E 999C 5117 511E 64EC 96AC 6AB7 85BF 807B
+5C70 6C3C 4F32 23CB7 6635 80D2 8FE1 7724 9006 533F
+5804 60C4 6135 6EBA 7768 817B 5ADF 66B1 8ABD 4065
+7E0C 81A9 5B3A 2A65B
+88AE
+634F 63D1
+82F6
+5E07 26612 573C 67BF 6D85 75C6 8042 81EC 9667 556E
+60D7 55A6 655C 6E7C 83CD 9689 55EB 5D72 8E02 565B
+6470 69F7 8E17 954A 954D 5DAD 7BDE 81F2 931C 989E
+8E51 5699 8076 93B3 95D1 5B7C 3738 5B7D 6AF1 7C4B
+56C1 8616 9F67 23033 7CF1 8825 9448 7CF5 56D3 8B98
+8EA1 9477 9873 9480 4BC0
+5DD5
+9E1F 8311 3B64 8885 9CE5 5ACB 88CA 6A22 8526 5B1D
+892D 5B32 3735
+5C3F 8132
+599E
+2EA7 725B 6C7C
+5FF8 626D 72C3 7EBD 7084 94AE 7D10 83A5 9215 9775
+8842 42F4
+725C
+62C8 852B
+5E74 79CA 79E5 9C87 9B8E 9CB6 9ECF 9BF0
+6D8A 637B 6DF0 713E 8DC8 8F87 8F97 649A 64B5 78BE
+8F26 7C10 8E4D 6506 8E68 8E8E
+5344 5EFF 5FF5 59E9 5538 57DD 824C 9F30
+54D6 9D47
+56DC 60A8 42FB
+62F0
+810C
+5B22 5B43
+917F 91B8 91C0
+5A18
+5B81 549B 62E7 72DE 67E0 82E7 804D 5BCD 5BD5 752F
+5BD7 5BDC 5BE7 511C 51DD 5680 5B23 64F0 7370 6AB8
+85B4 8079 27B48 944F 9B21 9E0B
+6A63 77C3
+4F5E 4FAB 6CDE 6FD8
+6F9D
+5974 5B65 9A7D 7B2F 99D1
+4F2E 52AA 5F29 782E 80EC
+6012 5089 6419
+90CD 632A 689B 50A9 513A
+6A60
+8BFA 558F 611E 2272A 63BF 6426 903D 9518 643B 6992
+7A2C 7CD1 8AFE 8E43 61E6 61E7 7CE5 7A64 7CEF
+597B
+6E1C 3B09 6696 7156 7157 992A
+9EC1
+519C 4FAC 54DD 6D53 8113 79FE 8FB2 5102 8FB3 5665
+6FC3 6A82 71F6 81BF 857D 79AF 7A60 895B 91B2 6B01
+7E77
+5F04 630A 7651 9F48
+5973 9495 7C79 91F9
+6C91 6067 6712 8844 46BC
+759F 8650 7878 7627
+FDD0-310C
+5783 62C9 67C6 7FCB 83C8 641A 908B
+65EF 524C 782C 63E6 78D6
+5587 85DE
+814A 63E7 694B 760C 8721 874B 8FA2 8FA3 8772 81C8
+650B 7209 81D8 9B0E 74CE 9574 9BFB 881F 945E
+5566 6E82 97A1 56B9
+56D6
+808B
+4EC2 3539 4E50 53FB 5FC7 6250 6C3B 961E 738F 827B
+6CD0 7AFB 7833 697D 97F7 6A02 7C15 39A1 9CD3 9C33
+4E86 9979 990E
+6765 4F86 4FEB 5008 5D03 5F95 6D9E 5A61 5D0D 5EB2
+5FA0 68BE 6DF6 730D 83B1 90F2 68F6 741C 7B59 840A
+9028 94FC 7B82 42F1 28090 9338 9A0B 9BE0 9D86 9EB3
+553B 8D49 7750 775E 8D56 8CDA 6FD1 8CF4 983C 9842
+21096 765E 9D63 7028 702C 7C41 6AF4 3E0A 85FE 7669
+7C5F 8970
+52D2
+96F7 5AD8 7F27 757E 8502 64C2 3D62 6A91 7E32 790C
+956D 6AD1 74C3 7FB8 7927 7E8D 7F4D 881D 9433 8632
+8F60 513D 58E8 9458 9741 6B19 8646 7E9D 9F3A
+53BD 8012 8BD4 5792 7D6B 8142 50AB 8A84 6A0F 78CA
+78E5 854C 5121 4242 857E 58D8 3D7D 7657 6AD0 85DF
+7928 7045 8B84 863D 9478 9E13
+6CEA 6D21 7C7B 6D99 6DDA 7D2F 28024 9179 9287 981B
+982A 9311 48AE 6502 98A3 985E 426A 7E87 8631 79B7
+5841 561E 9C69
+635E 6488
+52B3 52B4 7262 7A82 54F0 5520 5D02 6D76 52DE 75E8
+94F9 50D7 562E 37A0 5D97 61A5 24A42 7646 78F1 7C29
+87E7 91AA 9412 985F 9ADD
+8002 8001 4F6C 54BE 59E5 6045 72EB 6833 8356 94D1
+41ED 92A0 6F66 6A51 8F51
+6D9D 70D9 8022 916A 5AEA 61A6 6F87 8EBC 6A6F 802E
+8EC2
+73EF 7853 266E8 7CA9 86EF 6725 9BB1
+779C
+5245 5A04 507B 5A41 6E87 50C2 697C 848C 5ED4 617A
+6F0A 6A13 71A1 8027 851E 877C 9071 802C 825B 87BB
+8B31 8EC1 9AC5 97BB 9ACF
+5D5D 6402 587F 5D81 645F 7BD3 750A 7C0D
+3537 964B 5C5A 6F0F 7618 9542 763A 763B 93E4
+55BD 560D
+5170 5C9A 62E6 680F 5A6A 60CF 5D50 9611 847B 84DD
+8C30 53B1 6F9C 5116 6593 7BEE 8934 61E2 71E3 71F7
+9567 95CC 74BC 85CD 8955 8B4B 2814F 5E71 6514 703E
+7C43 7E7F 8964 6595 6B04 7046 862D 7937 7C63 8974
+56D2 7061 8B95 8E9D 6B17 9484 97CA
+89C8 6D68 36E6 63FD 7F06 6984 6F24 7F71 9182 58C8
+61D2 89A7 3A5C 64E5 5B3E 61F6 5B44 89BD 432B 5B4F
+652C 7060 56D5 6B16 9872 7E9C
+70C2 6EE5 71D7 5682 6FEB 7201 721B 74D3 7224 946D
+7CF7
+7226 897D
+5577
+52C6 90CE 6B34 72FC 90DE 9606 658F 6879 3C62 7405
+5ACF 5ECA 7860 7A02 9512 6994 746F 7B64 8246 84C8
+870B 8EB4 8782 92C3 93AF 99FA
+6717 6716 70FA 365F 5871 6A03 84E2 8A8F 3BBE 6724
+57CC 5D00 6D6A 3AF0 83A8 20E98 8497 95AC
+5525 90D2
+3604
+5D1A 5844 68F1 695E 7890 7A1C 8F18 4244 8590
+51B7
+5030 580E 6123 7756 8E1C
+5215 675D 5398 5253 9A8A 60A1 68A8 68A9 68B8 7281
+740D 79BB 7C9A 8372 55B1 68C3 3D1D 7282 83DE 9E42
+527A 6F13 3E48 775D 7B63 7F21 8243 870A 20ED7 20F1D
+5AE0 5B77 76E0 8C8D 3992 6A06 7483 7CCE 84E0 92EB
+9CA1 9ECE 7F79 853E 26E99 9305 7BF1 7E2D 4527 87CD
+8935 569F 8B27 91A8 91D0 96E2 6584 3C00 74C8 85DC
+908C 93EB 9BEC 9D79 9EE7 56C4 8821 9A39 5B4B 5EF2
+6521 7055 5299 863A 9457 7A72 7C6C 7E9A 9A6A 9C7A
+9E1D
+793C 91CC 4FDA 5CDB 5CE2 5A0C 5CF2 6D6C 7406 9026
+9502 7CB4 88CF 8C4A 92F0 9CA4 5163 6FA7 79AE 9BC9
+87F8 91B4 9CE2 9090 9C67 6B1A
+529B 5386 5389 5C74 7ACB 540F 6738 4E3D 5229 52B1
+5456 575C 6CA5 4F8B 3578 5CA6 623E 67A5 6CB4 75A0
+82C8 96B6 4FD0 4FEA 3926 680E 75AC 7805 82D9 8D72
+8F79 3466 550E 60A7 6817 681B 6D96 7301 73D5 783A
+783E 79DD 8318 8354 90E6 5533 5A6F 7B20 7C92 7C9D
+8137 8385 8389 86B8 86CE 5088 51D3 53A4 68D9 75E2
+86E0 8A48 8DDE 96F3 53AF 585B 6144 642E 6EA7 925D
+9CE8 3B0F 66A6 6B74 746E 7D9F 849A 849E 8727 53B2
+8777 66C6 6B77 7BE5 4509 96B7 29D98 9D17 52F5 3EFA
+78FF 96B8 9B01 512E 5DC1 6FFF 7658 9398 56A6 58E2
+650A 66DE 6AD4 6ADF 701D 7204 72A1 74C5 8807 9E97
+6AEA 720F 74D1 76AA 76ED 77CB 792A 792B 79B2 85F6
+34A7 5137 7667 7930 7CF2 8823 882B 9DC5 9E9C 56C7
+6526 2789D 89FB 8E92 8F62 9148 6B10 8B88 2829B 8F63
+652D 74E5 9742 299C3 9C71 9C73 974B
+674E 6803 54E9 5A33 72F8 88E1 6AAA 9BCF
+4FE9 5006
+5217 52A3 51BD 52BD 39DC 59F4 6312 6D0C 54F7 57D2
+57D3 3920 3B5E 6835 6D56 70C8 8322 8FFE 6369 3B69
+730E 811F 86DA 88C2 716D 7759 8057 8D94 5DE4 98B2
+5120 9BA4 9D37 64F8 7375 72A3 8E90 9B1B 3B2F 9B23
+9C72
+6BDF 54A7 6318 70EE 731F
+64A9 8E7D
+8FBD 7597 804A 50DA 5BE5 5D7A 6180 6F3B 818B 5639
+5AFD 5BEE 5D9A 5D9B 6579 7360 7F2D 66B8 71CE 7499
+81AB 907C 3D73 7642 9E69 5C6A 5EEB 7C1D 7E5A 87DF
+8C42 8CFF 8E58 9410 85D4 98C9 9ACE 9DEF
+53FE 4126 948C 91D5 911D 61AD 84FC 77AD 66E2 957D
+7212
+5C25 5C26 7093 6599 5C1E 5ED6 6482 7AB7 9563
+720E
+6E9C 7198 8E53
+5218 6CA0 7544 6D41 6D4F 7409 7559 65C8 7571 786B
+88D7 28EE7 5AB9 5D67 65D2 84C5 998F 9A9D 69B4 7460
+84A5 905B 98D7 5289 746C 7624 78C2 954F 99E0 9E60
+6A4A 74A2 7581 9560 7645 87C9 295E9 99F5 56A0 61F0
+700F 938F 93A6 9E8D 85F0 93D0 98C0 9A2E 98C5 9C21
+9DB9 9A51
+39D5 67F3 6801 73CB 687A 7EFA 950D 925A 98F9 7DB9
+71AE 7F76 92F6 6A6E 5B3C 7F80
+516D 7542 7FCF 586F 5EC7 6F91 78DF 9E68 9724 993E
+96E1 9402 98C2 9B38 9DDA
+685E
+5941 5E18 601C 8FDE 6D9F 68BF 83B2 467A 9023 8054
+4EB7 5EC9 6E93 5332 55F9 5969 6169 6F23 7191 88E2
+899D 5286 5333 5652 5AFE 6190 69E4 78CF 806B 84EE
+9CA2 6FC2 6FD3 806E 878A 71EB 7E3A 7FF4 806F 81C1
+8595 8933 8B30 8E65 938C 9570 6AE3 7C3E 880A 9B11
+4965 942E 9C31 7C62 7C68
+655B 740F 8138 88E3 6459 7489 8539 5B1A 6582 3BEC
+81C9 913B 7FB7 895D 861E
+7EC3 70BC 604B 6D70 6B93 581C 3703 5AA1 3C68 6E45
+94FE 50C6 695D 7149 7453 8430 6F4B 7DF4 6FB0 932C
+6BAE 934A 93C8 3D91 7032 9C0A 861D 6200 373B 7E9E
+8068
+62CE
+53B8 6797 90BB 4E34 51A7 77DD 5549 5D0A 6DCB 667D
+7433 7CA6 75F3 7884 7B96 7CBC 5D99 6F7E 735C 9130
+96A3 65B4 66BD 71D0 7498 8F9A 9074 9716 77B5 78F7
+81E8 7E57 7FF7 9E90 8F54 58E3 7036 93FB 9CDE 9A4E
+9C57 9E9F
+342D 3A06 83FB 4E83 51DB 51DC 649B 5EE9 5EEA 61CD
+61D4 6F9F 6A81 6AA9 765B 765D
+541D 6061 608B 8D41 711B 8CC3 50EF 853A 6A49 81A6
+95B5 7510 7584 8E78 85FA 8E8F 8E99 8EAA 8F65
+826F 4FCD 51C9 6881 6DBC 690B 8F8C 7CAE 7CB1 589A
+7DA1 8E09 6A11 8F2C 7CE7
+4E21 4E24 34B3 5169 5521 5562 639A 813C 7DC9 873D
+88F2 9B49 9B4E
+4EAE 54F4 60A2 8C05 8F86 55A8 667E 6E78 91CF 8F0C
+8AD2 8F1B 9344
+7177 7C17
+3007 5222 7075 56F9 577D 590C 59C8 5CBA 5F7E 6CE0
+72D1 6624 670E 67C3 73B2 82D3 51CC 74F4 768A 7831
+79E2 7ADB 94C3 9E30 5A48 6395 68C2 6DE9 740C 7B2D
+7D37 7EEB 4345 7F9A 7FCE 8046 8232 86C9 8851 9675
+83F1 8A45 8DC9 8EE8 797E 9234 959D 96F6 9F84 420A
+7DBE 88EC 8506 970A 99D6 6FAA 9302 9B7F 9CAE 9D12
+9E77 3B21 71EF 4241 4516 8576 971B 971D 9F62 9BEA
+5B41 9143 9F61 6AFA 8626 91BD 9748 2331F 6B1E 7227
+24AE9 9EA2 4585 9F97
+5CAD 963E 888A 9886 9818 5DBA
+4EE4 53E6 5464 70A9
+4F36 84E4 9717 702E
+565C 64B8
+5362 5E90 5786 6CF8 7089 82A6 3B54 680C 80EA 8F73
+9E2C 7388 823B 9885 9C88 9B72 76E7 56A7 58DA 3820
+5EEC 650E 6ADA 7018 7379 74B7 66E5 6AE8 7210 74D0
+81DA 8606 77D1 7C5A 7E91 7F4F 826B 8826 8F64 946A
+9871 9AD7 9C78 9E15 9EF8
+5364 864F 63B3 9E75 7875 9C81 865C 5877 6EF7 6A10
+84FE 9B6F 64C4 6A79 78E0 9565 5695 64FC 7002 6AD3
+6C0C 8263 93C0 826A 942A 9465
+5725 752A 4F93 5774 5F54 5F55 9646 5CCD 52CE 8D42
+8F82 5A3D 6DD5 6DE5 6E0C 7849 9678 9E7F 3A90 6902
+742D 7984 4402 83C9 902F 50C7 5279 52E0 76DD 7769
+788C 797F 7A11 8CC2 8DEF 5876 5ED8 645D 6F09 7B93
+7CB6 21014 622E 6A1A 719D 8194 850D 89EE 8DA2 8E1B
+8F98 9181 3BDD 6F5E 7A4B 9304 9332 9334 7490 7C0F
+8557 87B0 8E57 8F46 9A04 298F1 9E6D 7C2C 7C36 93D5
+9BE5 9D66 9D71 9E93 93F4 9732 9A3C 7C59 9DFA 8642
+67A6 822E 9229 6F9B 6C07
+7F57 5570 9831 56C9
+7F56 7321 8136 6924 841D 8999 903B 8161 9523 7BA9
+9AA1 9559 87BA 7F85 89B6 93CD 5138 89BC 9A3E 21922
+651E 7380 6B0F 268C7 863F 908F 9A58 9E01 7C6E 947C
+9960
+5246 502E 84CF 88F8 8EB6 7630 3A61 3C01 8803 81DD
+66EA 7673
+6CFA 5CC8 6D1B 7EDC 9A86 6D1C 73DE 8366 7866 7B3F
+7D61 55E0 843D 645E 6F2F 7296 927B 96D2 99F1 9BA5
+9D3C 9D45 6FFC 277CC 7E99
+5A08 5B6A 5CE6 631B 683E 9E3E 8114 6EE6 92AE 9D49
+571D 5971 5B4C 5B7F 5DD2 6523 66EB 6B12 7053 7F89
+81E0 571E 7064 864A 947E 7674 7675 9E1E
+5375
+4E71 91E0 4E82
+62A1 6384
+4ED1 4F26 56F5 6CA6 7EB6 4F96 8F6E 502B 5707 5A68
+5D18 5D19 60C0 6DEA 966F 68C6 3DCD 8140 83D5 4201
+7DB8 8726 8E1A 8F2A 9300 9BE9
+57E8 7896 7A10 8023
+8BBA 6EA3 8AD6
+78EE
+9F99 5C78 5499 6CF7 663D 680A 73D1 80E7 830F 772C
+783B 7ADC 7B3C 804B 6E70 9686 6EDD 20F90 5D90 6F0B
+3863 7BED 856F 9F8D 7643 56A8 5DC3 5DC4 7027 7C3C
+93E7 66E8 6727 3C0D 6AF3 7216 74CF 8622 9733 77D3
+7931 7932 9F92 7C60 807E 882A 882C 8971 8C45 8E98
+9468 9747 4BBE 9A61 9E17
+5784 5785 62E2 9647 3D33 7BE2 5131 58DF 58E0 650F
+96B4 7AC9 9F93
+54E2 6335 6887 5FBF 8D1A
+69DE 7ABF
+9A74 95FE 90D8 6988 99BF 6C00 81A2 95AD 85D8 9DDC
+9A62
+5415 5442 4FA3 4FB6 6314 36CE 634B 635B 65C5 3B5A
+68A0 7963 7A06 94DD 5C61 7F15 7D7D 5C62 8182 5C65
+891B 92C1 8190 5122 7A5E 7E37 8938 7A6D
+5BFD 578F 5F8B 8651 7387 7EFF 20DC8 5D42 6C2F 6EE4
+844E 7DA0 7DD1 616E 7BBB 819F 52F4 7E42 6FFE 6AD6
+7208 9462
+7112
+7567 950A 7A24 3500 5719 3A3C 92DD 92E2 64FD
+FDD0-310D
+65EE 5477 560E 5620
+9486 5C1C 5676 9337
+5C15 738D
+5C2C 9B40
+6208 4EE1 572A 72B5 7EA5 20BEB 6213 8090 726B 7599
+54AF 7271 54E5 80F3 9E3D 5272 6401 88BC 20E9D 6ED2
+6228 6B4C 29FB7 9D10 9D1A 64F1 8B0C 9D3F 93B6
+5444 3837 4F6E 530C 630C 9601 9769 654B 3B58 683C
+8316 9B32 6105 81F5 86D2 55DD 5865 6EC6 845B 88D3
+89E1 9694 643F 69C5 8188 95A3 95A4 4213 9549 9788
+97D0 7366 8AFD 8F35 9ABC 9BAF 97DA 97B7 9A14 4601
+8F55
+54FF 8238
+4E2A 5404 867C 500B 784C 94EC 55F0 7B87
+5F41 6ACA
+4F85 8BE5 5793 59DF 5CD0 90C2 9654 6650 8344 8D45
+7561 7974 7D6F 8A72 8C65 8CC5
+5FCB 6539 7D60
+4E10 4E62 5303 5304 9623 675A 9499 76D6 6461 6E89
+9223 6224 6982 8462 8CCC 9691 6F11 84CB 3562 69E9
+69EA 74C2
+7ED9 7D66
+768B 7F94 7F99 9AD8 7690 2690E 9AD9 81EF 6EDC 69D4
+777E 818F 69F9 6A70 7BD9 7CD5 993B 6ADC 9DCE 9F1B
+9DF1
+5930 6772 83D2 641E 7F1F 66A0 69C0 69C1 3D46 7A3E
+7A3F 9550 7E1E 6ABA 85C1 85F3
+543F 544A 52C2 53DD 8BF0 90DC 796E 7970 9506 7170
+7B76 8AA5 799E 92EF
+97DF
+52FE 4F5D 6C9F 94A9 88A7 7F11 920E 6E9D 9264 7DF1
+7BDD 8920 97B2 97DD
+5CA3 72D7 82B6 67B8 73BD 8007 82DF 7B31 8008 8009
+86BC 8C7F
+5778 6784 8BDF 8D2D 57A2 59E4 5193 8329 591F 5920
+8A3D 5ABE 5F40 6406 8A6C 96CA 69CB 7179 89CF 9058
+6480 89AF 8CFC
+7518 5FD3 653C 6746 3DA5 7395 809D 8289 8FC0 5769
+6CD4 77F8 4E79 67D1 7AFF 82F7 75B3 9150 4E7E 7C93
+4E81 51F2 5C32 5C34 7B78 6F27 9CF1 5C36 5C37 9B50
+4EE0 625E 76AF 79C6 8866 8D76 687F 7B34 6562 7A08
+611F 8D95 6F89 64C0 6A44 7C33 9C14 9CE1 9C64
+5E72 65F0 6C75 76F0 7EC0 501D 51CE 6DE6 7D3A 8A4C
+5E79 9AAD 69A6 6A8A 8D11 8D63 8D1B 7068
+6839 8DDF
+54CF
+826E
+4E98 4E99 831B 63EF
+5188 7F53 51AE 521A 6760 7EB2 809B 5CA1 3B4E 7268
+7598 77FC 7F38 94A2 525B 7F61 5808 6386 91ED 68E1
+7285 583D 7DB1 7F41 92FC 93A0
+5C97 3F58 5D17 6E2F
+7135 7B7B 69D3 6205 6206
+522F 5E9A 754A 6D6D 3E74 8015 6404 713F 7D5A 83EE
+8D53 9E52 7DEA 7E06 7FAE 8CE1 7FB9 9D8A
+54FD 57C2 5CFA 632D 7EE0 803F 90E0 231B3 6897 8384
+3F98 7D86 4304 9CA0 9ABE 9BC1
+66F4 5829 6685 4C4D 4C6D
+63B6 6929
+4F30 5471 59D1 5B64 6CBD 6CD2 67E7 82FD 8F71 5502
+7F5B 9E2A 7B1F 86C4 83F0 89DA 8EF1 8EF2 8F9C 9164
+9232 7B8D 7B9B 5AF4 6A6D 443B 9B95 9D23
+9DBB
+5903 53E4 6262 6C69 8BC2 8C37 80A1 726F 2EE3 5503
+4026 7F5F 7F96 94B4 9AA8 5552 6DC8 8135 86CA 86CC
+8A41 9E44 5C33 6132 6BC2 9237 9989 9F13 9F14 560F
+6996 69BE 76B7 84C7 7A40 9E58 7CD3 7E0E 6FF2 76BC
+81CC 85A3 8F42 7014 76EC 77BD 9936 4D9C 8831
+56FA 6545 51C5 987E 580C 5D13 5D2E 688F 727F 68DD
+96C7 75FC 797B 7A12 9522 50F1 932E 9CB4 9BDD 9867
+5495 5CE0 9027 50A6 83C7 7BD0
+74DC 522E 80CD 681D 20D6F 9E39 8052 44B7 6B44 7171
+8D8F 5280 7DFA 92BD 98B3 8E3B 9D30 9A27
+53E7 518E 5250 526E 5BE1 4211
+5366 576C 8BD6 6302 5569 639B 7F63 7D53 7F6B 8A7F
+8902
+98AA
+5459 54BC 57DA 5D1E 90ED 581D 921B 9505 5613 588E
+7611 8748 5F49 35FB 6FC4 87C8 934B 5F4D
+56EF 56F6 56FB 56FD 5700 570B 5E3C 8158 5E57 6156
+6F0D 805D 8195 852E 8662 9998 27C12 4190
+679C 60C8 6DC9 7313 9983 6901 83D3 7CBF 7DB6 873E
+88F9 69E8 8F20 9301 991C 9439
+8FC7 904E
+556F
+4E56 63B4 6451
+62D0 67B4 67FA 27285 7B89
+592C 53CF 602A 39D4 6060
+5F52 572D 59AB 9F9F 89C4 7688 90BD 95FA 5E30 73EA
+80FF 8325 4E80 7845 4145 7A90 898F 5080 5AAF 691D
+88BF 5EC6 90CC 5AE2 646B 7470 95A8 9C91 5B00 69FB
+69FC 749D 81AD 879D 9F9C 9BAD 5DC2 6B78 9B36 74CC
+9A29 9B39 6AF7
+5B84 6C3F 6739 8F68 5E8B 4F79 5326 8BE1 20C53 579D
+59FD 6051 6531 7678 8ECC 9652 5EAA 9B3C 532D 796A
+6677 6E40 436F 86EB 3533 89E4 8A6D 53AC 3A33 4925
+87E1 77A1 7C0B
+6530 523D 523F 660B 7094 67DC 8D35 3A88 6842 6867
+7324 7B40 8CB4 8DEA 5331 84D5 528A 528C 5DA1 648C
+69F6 4210 4434 6A9C 77B6 7C02 6AC3 7650 79AC 8958
+9CDC 97BC 9C56 9C65
+6922
+5173 89C2 5B98 51A0 898C 500C 20D28 68FA 7AA4 8484
+95A2 761D 764F 89B3 95D7 9CCF 95DC 9C25 9C5E 89C0
+839E 9986 742F 75EF 7B66 7BA1 8F28 8218 9327 9928
+9CE4
+6BCC 4E31 8D2F 6CF4 60BA 60EF 63BC 6DAB 8CAB 60B9
+3D26 3BA1 797C 6163 645C 6F45 6A0C 9066 76E5 7F46
+465B 96DA 93C6 704C 721F 74D8 9E73 77D4 7936 7F50
+9475 9C79 9E1B
+4E28 200CC 886E 60C3 7EF2 889E 88AC 8F8A 6EDA 6EFE
+7DC4 84D8 78D9 8509 8F25 9CA7 25566 9B8C 9BC0
+68CD 7754 3665 7774 74AD 8B34
+5149 706E 4F8A 7097 709B 54A3 5799 59EF 6D38 6844
+70E1 80F1 832A 8F04 50D9 92A7 9EC6 299C9
+5E7F 5E83 72B7 5EE3 81E9 7377 2A1F5
+4FC7 73D6 901B 81E6 6497 29448
+709A 6B1F
+5DE5 5F13 516C 53B7 529F 653B 675B 4F9B 739C 7CFC
+80B1 5BAB 5BAE 606D 8EAC 9F9A 5311 5868 5E4A 6129
+89E5 7195 8EB3 78BD 9AF8 4CCD 89F5 9F8F 9F94
+5EFE 5DE9 6C5E 62F1 39EC 62F2 3B5F 6831 73D9 3F26
+8F01 92DB 978F 4C4B
+5171 8D21 7FBE 551D 8CA2 83BB 3536
+86A3 6150
+FDD0-310E
+5494 5496 5580 8849 64D6
+5361 4F67 80E9 9272
+57B0 88C3
+533C 3E2F 22208 67EF 7241 73C2 79D1 80E2 82DB 8F72
+75B4 7822 8DB7 68F5 8EFB 988F 55D1 6415 7290 7A1E
+7AA0 842A 9233 69BC 4426 9897 6A16 778C 78D5 4300
+874C 9312 8596 9198 9846 9AC1 791A
+58F3 63E2 6BBC 7FD7
+53EF 5777 37B9 5CA2 3ABC 70A3 6E07 5D51 6564 6E34
+5DB1 790D
+514B 523B 524B 52C0 52CA 5BA2 606A 20CED 5A14 5C05
+8BFE 20DB2 5801 6C2A 9A92 7F02 6119 6E98 951E 78A6
+7DD9 8250 8AB2 790A 9A0D 2A0ED
+5D59
+5F00 5952 63E9 950E 958B 4924 9426
+51EF 5240 57B2 607A 95FF 94E0 51F1 5274 6168 584F
+5D66 6137 6977 8488 8F06 5605 669F 9534 4057 9347
+93A7 95D3 98BD
+5FFE 708C 708F 6B2C 70D7 52D3 6112 613E 938E
+5C3B 9ADB
+4E02 6537 8003 62F7 6D18 6832 70E4 7A01 9C93 71FA
+94D0 7292 92AC 9760 9BB3 9BCC
+62A0 26B05 82A4 770D 527E 5F44 6473 7798 4071
+53E3 24618 52B6
+53E9 6263 6542 51A6 5BBC 5BC7 3C2F 91E6 7A9B 7B58
+6EF1 7789 8532 853B 7C06 9DC7
+520A 681E 52D8 9F9B 582A 5D41 6221 9F95
+519A 574E 4F83 780D 5058 57F3 60C2 83B0 6B3F 586A
+6B41 69DB 8F21 6ABB 9851 7AF7 8F57
+770B 884E 5D01 5888 78E1 77B0 95DE 77D9
+808E 80AF 80BB 57A6 6073 5543 8C64 9F88 58BE 9339
+61C7 9F66
+63AF 88C9 8903
+5FFC 95F6 780A 7C87 5EB7 21413 5ADD 5D7B 6177 6F2E
+69FA 7A45 41B2 7CE0 8EBF 93EE 9C47
+625B 6443
+4849
+4EA2 4F09 531F 56E5 6297 72BA 909F 7095 94AA 9227
+958C
+52A5 542D 5751 5994 962C 6333 7841 727C 785C 94FF
+787B 647C 8A99 92B5 40D8 935E 93D7
+625D 5233 77FB 67AF 80D0 90C0 54ED 684D 5800 5D2B
+35C4 5710 8DCD 7A9F 9AB7 26846 9BAC
+72DC 82E6
+3838 5E93 4FC8 7ED4 5EAB 79D9 8DB6 7105 55BE 7D5D
+88B4 88E4 7614 9177 5EE4 8932 56B3
+5938 59F1 8A87
+4F89 54B5 57AE 9299
+3404 630E 80EF 8DE8 9ABB
+823F
+6269 62E1 62EC 6304 6870 7B48 86DE 9614 843F 8440
+5ED3 9822 9AFA 6FF6 95CA 979F 61D6 64F4 9729 97B9
+9B20
+97D5
+39DF 84AF 64D3
+5DDC 51F7 5757 5FEB 4FA9 54D9 72EF 90D0 810D 584A
+3C6E 7B77 9C99 5108 58A4 5672 5EE5 736A 9136 81BE
+65DD 7CE9 9C60
+5726
+4E8F 5232 5CBF 609D 76D4 7AA5 8067 7ABA 8667 95DA
+985D 5DCB 862C
+594E 6646 9804 9997 55B9 63C6 45AF 9035 9108 9A99
+6223 668C 694F 6951 8475 9697 777D 9B41 8770 4906
+982F 367A 9368 9377 6AC6 85C8 9A24 5914 8637 8641
+5DD9 2A1B4 72AA 8EA8
+7143 8DEC 980D 8E5E
+5C2F 532E 6B33 559F 6126 6E83 8143 9988 5ABF 6127
+8489 7786 5633 5B07 6192 6F70 7BD1 8069 4646 6A3B
+806D 8562 8B09 7C23 8075 993D 7C44 9400 994B 944E
+4C0E
+5BBD 5BDB 5BEC 81D7 9ACB 9AD6
+6B35 6B3E 6B40 7ABE 4540
+7ABD 9467
+5764 6606 5803 5A6B 5D10 5D11 665C 7311 711C 7428
+83CE 88C8 9AE0 8C87 951F 9AE1 9E4D 872B 88E9 9AE8
+747B 890C 918C 9315 9CB2 9A09 9BE4 9D7E 9DA4
+6083 6346 9603 58F8 68B1 7871 7975 7A07 58FC 7A1B
+7D91 88CD 95AB 95B8 9F6B
+56F0 6D83 3AFB 774F
+5812 5C21 6F49 71B4
+5321 344C 52BB 8BD3 5329 54D0 6047 6D2D 90BC 6846
+7844 7B50 44B0 8A86 8EED
+5FF9 6282 72C2 8BF3 8ED6 8A91 9D5F
+593C 5123 61ED
+535D 5739 7EA9 909D 51B5 65F7 5CB2 6CC1 77FF 663F
+8D36 7716 7736 7D56 8CBA 8EE6 9271 58D9 8E80 913A
+9ECB 61EC 66E0 720C 77CC 7926 7A6C 7E8A 945B
+783F 7D4B 7B7A
+7A7A 369A 5025 57EA 5D06 60BE 6DB3 787F 7B9C 9313
+9D7C
+5B54 233FA 6050
+63A7 26048 979A
+8EBB
+FDD0-310F
+5677
+54C8 94EA
+86E4
+5964
+4E37
+8BC3 62B2 6B31 559D 8A36 55EC 881A
+79BE 5408 4F55 52BE 5392 548A 548C 59C0 6CB3 5CC6
+3A83 66F7 67C7 72E2 76C7 7C7A 7D07 90C3 9602 9978
+54EC 3A89 6546 6838 76C9 76CD 555D 3B71 6DB8 76D2
+79F4 8377 86B5 9F81 60D2 6E2E 83CF 8402 8A38 988C
+6941 6BFC 8A65 8C88 47A6 8F05 924C 9616 9C84 3561
+7186 9E56 9EA7 6F95 3FE5 981C 7BD5 7FEE 879B 9B7A
+7909 95D4 97A8 9F55 8988 9DA1 76AC 9449 9FA2
+4F6B 578E 8D3A 7103 8894 8CC0 55C3 7142 788B 7187
+8D6B 3D51 8910 9E64 3B1E 7A52 7FEF 58D1 764B 8B1E
+7200 9DAE 9DB4 974E 9E16 974F
+7CAD 974D
+548D 54B3 55E8
+8FD8 5B69 9826 9AB8 9084
+6D77 80F2 70F8 917C 91A2
+4EA5 598E 39E1 9A87 5BB3 6C26 55D0 9900 99ED 26926
+995A
+5870 56A1
+9ED2 9ED1 563F 6F76 28B46
+8320 84BF 5686 8585 85A7
+6BDC 869D 6BEB 6903 55E5 7346 8C89 5651 7354 8C6A
+295B8 5637 3B14 734B 8AD5 512B 568E 58D5 3819 6FE0
+7C47 8814 8B79
+597D 90DD
+53F7 36AA 3740 660A 6626 79CF 54E0 5CFC 604F 608E
+6D69 8017 6667 3B36 6DCF 5090 7693 6EC8 8055 865F
+9117 66A4 66AD 6F94 769C 769E 66CD 76A1 76A5 8583
+93AC 98A2 704F 9865 9C1D 705D
+7AD3
+9F41
+4FAF 3927 77E6 5589 5E3F 7334 9107 3B0B 8454 760A
+777A 7BCC 7CC7 7FED 9ABA 7FF5 936D 9931 9BF8
+543C 72BC
+540E 539A 5795 5F8C 6D09 90C8 9005 5820 8C5E 9C8E
+9C98 9B9C 9C5F
+5019
+4F44 70B6 9878 3937 86B6 9163 9807 5AE8 8C3D 61A8
+99A0 6B5B 9F3E
+9097 542B 51FD 5481 80A3 90AF 51FE 8677 5505 5705
+5A22 6D5B 5D21 6657 6892 6DB5 7113 7400 5BD2 5D45
+3B80 97E9 751D 7B68 4204 872C 6F8F 92E1 9B7D 97D3
+4E06 5388 7F55 6D6B 558A 961A 850A 3E01 8C43 9B2B
+361A
+6C49 5C7D 6C57 95EC 65F1 5CBE 54FB 57BE 608D 634D
+6D86 7302 3A8B 6658 6665 710A 839F 91EC 9588 7694
+7745 83E1 50BC 86FF 9894 99AF 6F22 872D 8C8B 6496
+66B5 71AF 92B2 92CE 61BE 64BC 24CC9 7FF0 8792 9837
+9844 99FB 96D7 701A 8B40 862B 9DBE
+516F 7233
+62EB 75D5 978E
+4F77 5F88 72E0 8A6A
+6068
+592F 3C20
+65BB 676D 82C0 8FD2 7ED7 73E9 7B10 822A 86A2 4615
+9883 8CA5 7B55 7D4E 980F 28048 9B67
+6C86
+57B3
+4EA8 54FC 6099 5548 811D
+3530 59EE 6046 6052 6841 70C6 80FB 9E3B 6A2A 6A6B
+8861 9D34 8605 9445
+583C
+6DA5 9D46
+4E6F 5322 864D 547C 5780 5FFD 6612 66F6 6CD8 6057
+70C0 82F8 8F77 532B 553F 60DA 39FE 6DF4 8656 8EE4
+5611 5BE3 6EF9 44E4 96D0 5E60 622F 6B51 27A53 81B4
+8B3C
+56EB 6287 5F27 72D0 80E1 58F6 74F3 96BA 20D31 58F7
+659B 7100 35C5 5596 58FA 5AA9 6E56 7322 7D57 6430
+695C 7173 745A 846B 561D 2430D 9E55 69F2 7BB6 851B
+8774 885A 9B71 7E20 879C 9190 9836 89F3 9378 992C
+4B4C 9D60 702B 9B0D 9C17 9D98 9DA6
+4E55 6C7B 864E 6D52 4FFF 7425 8400 865D 6EF8
+4E65 4E92 5F16 6236 6237 6238 3E26 51B1 51B4 5E0D
+62A4 6C8D 6CAA 8290 5CB5 6019 623D 6608 6791 6018
+795C 7B0F 5A5F 6248 74E0 55C0 695B 7D94 96FD 5AED
+5AEE 6462 6EEC 9120 69F4 71A9 8530 9CF8 7C04 9359
+569B 9E71 8B77 9CE0 97C4 9800 9C6F 9E0C
+4E4E 7C90 552C 7CCA 933F 9BF1
+82B1 82B2 54D7 5629 848A 9335
+534E 3572 3B49 59E1 9A85 91EA 91EB 94E7 83EF 6433
+6ED1 733E 380F 398A 64B6 78C6 92D8 8550 8796 8B41
+93F5 9A4A 9DE8
+5316 5212 3566 593B 3577 6779 753B 8BDD 6866 5A73
+5D0B 756B 7575 89DF 8A71 5283 6466 5AFF 5B05 69EC
+6F85 6A3A 8AE3 7E63 8219 9ECA 8B6E
+57D6 5A72 691B 7874 7CC0 8AAE 748D
+5419 5268 8020 952A 5290 9343 5684 8C41 6509 9A1E
+4F78 6D3B 79EE 79F3
+706B 4F19 90A9 94AC 9225 5925 6F37
+6C8E 6216 8D27 549F 7809 4100 4FF0 6347 7713 9584
+20D7E 639D 83B7 8CA8 60D1 6E71 7978 65E4 6947 3A2F
+798D 84A6 35F2 596F 970D 6FE9 7372 8B0B 6AB4 956C
+56AF 7016 77C6 7A6B 4C5B 66E4 802F 81DB 8267 85FF
+8816 56BF 7668 77D0 944A 9743
+6000 5F8A 6DEE 69D0 8E1D 61D0 8922 8931 3733 3822
+61F7 7024 6AF0 8032 8639
+574F 54B6 8AD9 58CA 58DE 863E
+7070 39D1 8BD9 54B4 6062 62FB 6325 6D03 867A 6656
+70E3 73F2 8886 8C57 5A4E 5645 5A88 63EE 3DC7 7FDA
+8F89 6689 694E 7147 8A7C 9693 5E51 7773 7988 649D
+5655 7FEC 8918 8F1D 9EBE 5FBD 7008 96B3 8633 9C34
+56D8 56DE 56EC 4F6A 5EFB 605B 6D04 5EFD 70E0 8334
+8698 8FF4 75D0 9025 86D4 86D5 8716 9BB0
+6094 6BC0 6BC1 26799 6BC7 6A93 71EC 8B6D
+5349 6C47 4F1A 8BB3 6CCB 54D5 21726 6D4D 7ED8 8294
+8BF2 605A 6075 70E9 835F 8D3F 5F57 6666 79FD 5599
+60E0 6E4F 7D75 7F0B 7FD9 9613 532F 5F59 5F5A 3963
+6703 6ED9 8A6F 8CC4 9892 50E1 5612 3A39 8AA8 571A
+5BED 6167 6193 66B3 69E5 6F53 7623 8527 49E5 5666
+5B12 5FBB 6A5E 6BA8 6FAE 6FCA 7369 8559 8AF1 982E
+71F4 74AF 7BF2 8588 8589 992F 5696 77BA 7A62 7E62
+87EA 3B29 6AD8 7E6A 7FFD 85F1 8B53 5136 93F8 95E0
+5B48 942C 9767 8B7F 986A
+5C77 7073 74A4 61F3
+72BF 6B53 9D05 3E55 9D4D 56BE 61FD 737E 9144 8B99
+8C9B 9A69
+73AF 5CD8 6D39 72DF 90C7 6853 8341 5BCF 7D59 8408
+8411 96C8 7D84 7FA6 8C86 926E 953E 571C 5B1B 5BF0
+6FB4 7F33 49A1 961B 74B0 8C72 9370 956E 9E6E 7CEB
+7E6F 8F58 9436 95E4 9B1F 74DB 4D09
+7F13 4220 7DE9 650C
+5E7B 5942 8092 5950 5BA6 5524 6362 6D63 6DA3 70C9
+60A3 6899 7115 559A 559B 5D48 610C 63DB 6E19 75EA
+7746 902D 3B07 3B0A 7165 744D 8C62 6F36 7613 69F5
+9CA9 64D0 6FA3 9BC7 85E7 9C00
+6B22 77A3 6B61
+660F 662C 8364 5A5A 60DB 6DBD 960D 68D4 6B99 7767
+8477 776F 95BD
+5FF6 6D51 68A1 9984 581A 6E3E 743F 9B42 991B 7E49
+8F4B 4B9D 9F32
+9BF6
+8BE8 4FD2 5031 5702 638D 6DF7 711D 6EB7 6141 89E8
+8AE2
+5DDF 3835 8093 8841 8352 671A 5843 614C 3B3B
+7687 505F 51F0 55A4 582D 5A93 5D32 5FA8 60F6 6E5F
+968D 9EC3 9EC4 697B 714C 745D 845F 9051 953D 58B4
+6F62 735A 7BC1 7BCA 824E 8757 71BF 749C 8AFB 7640
+78FA 417F 7A54 9360 992D 9CC7 7C27 87E5 97F9 8DAA
+9A1C 9404 9C09 5164 9C51 9DEC
+6033 604D 70BE 5BBA 6644 595B 8C0E 5E4C 8A64 7180
+4420 8B0A 6ACE
+6130 3A2A 6EC9 69A5 769D 66C2 93A4 76A9
+6643 7E28
+53FF 543D 544D 7074 8F70 54C4 8A07 70D8 8EE3 63C8
+6E39 7122 7861 8C3E 29420 8F37 85A8 9367 569D 8F5F
+4EDC 5F18 5985 7EA2 5430 5B8F 6C6F 7392 7EAE 95F3
+5B96 6CD3 57AC 5A02 6D2A 7AD1 427A 7D05 82F0 8679
+5CF5 6D64 7D18 7FC3 803E 836D 7854 7D2D 8C39 9E3F
+6E31 7AE4 7CA0 921C 958E 7D8B 7FDD 8452 8453 8C3C
+6F42 28306 9277 9783 9B5F 92D0 5F4B 9710 857B 971F
+9D3B 9EC9 2410F 9ECC
+664E 3B34 55CA
+8BA7 8A0C 95A7 6494 6F8B 6F92 92BE 95C2 9B28
+FDD0-3110
+4E0C 22A66 8BA5 51FB 5209 53FD 9965 4E69 520F 673A
+7391 808C 573E 77F6 9E21 6785 82A8 54AD 59EB 525E
+5527 59EC 5C50 79EF 7B04 8FF9 98E2 57FA 7EE9 559E
+5D46 5D47 6567 671E 7284 7B53 7F09 8D4D 52E3 55D8
+7578 7A18 8DE1 8DFB 9CEE 50DF 20F3B 6BC4 7B95 9288
+5630 69E3 757F 7A3D 7DDD 89ED 8CEB 8EB8 9F51 58BC
+6A5F 6FC0 74A3 7A4D 9324 64CA 78EF 79A8 7C0A 7E3E
+7F81 8940 8CF7 96AE 6AC5 802D 8E5F 96DE 8B4F 913F
+97F2 9D8F 8B64 9416 9951 8E8B 97BF 9DC4 9F4E 7F87
+9447 8640 8989 9459 9F4F 7F88 9E04 898A
+4EBC 53CA 4F0B 5409 7EA7 5373 5C8C 5F76 5FE3 6781
+6C72 7680 4E9F 4F76 8BD8 9491 537D 59DE 6025 72E4
+90C6 63E4 75BE 768D 7B08 7D1A 810A 4798 506E 5359
+5EB4 3B72 710F 89D9 8C3B 35CA 68D8 6E52 96C6 5849
+5AC9 6131 6222 696B 6975 6B9B 8D8C 69C9 8024 818C
+84BA 92A1 35F1 6483 6F57 7620 799D 7BBF 8E16 9E61
+5DAF 6A76 6FC8 8540 878F 64EE 6A9D 857A 8E50 9353
+85C9 894B 8265 7C4D 8F5A 93F6 4CED 9735 9DBA 9DD1
+96E6 96E7
+51E0 5DF1 4E2E 5980 72B1 6CF2 866E 6324 638E 9C7E
+5E7E 39B8 621F 9218 5D74 9E82 9B62 64A0 64E0 7A56
+87E3 9B55
+2E95 5F50 5F51 65E1 8BA1 8BB0 4F0E 7EAA 5756 5993
+5FCC 6280 5242 5B63 82B0 9645 54DC 578D 5CDC 65E2
+6D0E 6D4E 7D00 830D 8A08 5264 7D12 7EE7 8324 8360
+89CA 8A18 5048 5BC2 5BC4 3831 5F9B 394D 60B8 65E3
+689E 6E08 796D 5848 60CE 3ED1 4400 81EE 517E 75F5
+7D99 846A 8507 88DA 66A8 6F03 6F08 7A29 7A4A 84DF
+8900 8A8B 8DFD 969B 9701 9B3E 9C9A 66A9 7A37 8AC5
+9CAB 5180 5291 66C1 7A44 9AFB 568C 6A95 6FDF 7F7D
+858A 89AC 6AB5 3E04 85BA 9D4B 9F4C 61FB 7660 7A67
+7E4B 9AA5 9BDA 7031 7E7C 860E 29949 9C40 862E 973D
+9C36 9C3F 863B 9C6D 9A65
+4EBD 8F91 6A2D 8F2F 5EED 766A
+52A0 4E6B 5939 4F3D 593E 4F73 62B8 62C1 6CC7 3E62
+67B7 6BE0 6D43 73C8 8304 8FE6 57C9 5BB6 6D79 75C2
+689C 7B33 801E 8888 50A2 7333 8DCF 20EA2 728C 8175
+846D 926B 5609 927F 9553 8C6D 8C91 29D9B 93B5 4552
+9E9A
+573F 5FE6 6274 90CF 550A 605D 835A 90DF 621B 83A2
+94D7 621E 86F1 88B7 988A 3B96 86FA 88CC 8DF2 9782
+9904 92CF 982C 9830 9D36 9D4A
+7532 4EEE 5CAC 53DA 73BE 80DB 659A 8D3E 94BE 5047
+5A7D 5FA6 659D 6935 8CC8 9240 698E 69DA 7615 6A9F
+4EF7 9A7E 67B6 22C4C 5AC1 5E4F 69A2 50F9 99D5
+7A3C 7CD8
+7596 9636 7686 63A5 63B2 23D8F 75CE 79F8 5588 5826
+5A98 63ED 6904 6E5D 813B 83E8 8857 968E 55DF 5AC5
+716F 40C8 7A2D 8754 64D1 7664 8B2F 9D9B
+5369 536A 5B51 5C10 8BA6 8282 5226 5227 52AB 5C8A
+523C 351A 52BC 6605 6770 758C 3636 36C3 62EE 6D01
+7ED3 5022 6840 8871 8A10 8FFC 507C 5A55 5D28 6377
+83AD 5091 55BC 3A17 4039 7D50 7D5C 88BA 9889 5D65
+3A29 696C 6976 6ED0 776B 7BC0 8710 874D 8A70 9263
+9B5D 622A 69A4 78A3 7AED 26D74 9C92 6F54 7FAF 84F5
+8AB1 8E15 978A 5E6F 937B 9B9A 5DC0 6AED 881E 8818
+883D
+6BD1 5A8E 89E3 89E7 98F7 6A9E
+4E2F 4ECB 5424 5C95 3839 5E8E 6212 5C46 5C4A 73A0
+82A5 754C 754D 75A5 780E 8BEB 501F 6088 86A7 8878
+5FA3 583A 6950 743E 86F6 7297 8AA1 9AB1 9B6A 892F
+9385 8EA4
+59D0 685D
+4EA4 827D 8281 59E3 5A07 5CE7 6D47 90CA 9A84 80F6
+832D 832E 6912 7126 86DF 8DE4 50EC 5604 213ED 8660
+9C9B 5B0C 5D95 5DA3 618D 6F86 81A0 71CB 81B2 8549
+7901 7A5A 9BAB 9D41 9E6A 7C25 87ED 8F47 940E 9DCD
+9A55 9DE6 9DEE
+3B42 81EB 89D2 4F7C 4FA5 6054 6322 72E1 7EDE 997A
+6341 6648 70C4 768E 77EB 811A 94F0 6405 6E6B 7D5E
+527F 656B 6E6C 714D 8173 8CCB 50E5 6477 669E 8E0B
+9278 9903 510C 528B 5FBA 649F 64B9 5FBC 61BF 657D
+657F 71DE 7F34 96A6 66D2 74AC 77EF 76A6 87DC 7E73
+8B51 5B42 3A70 27088 652A 705A 9C4E
+53EB 544C 5CE4 630D 8A06 73D3 7A8C 8F7F 8F83 654E
+6559 7A96 3C3E 6ED8 8F03 5602 5626 65A0 6F16 9175
+564D 5DA0 6F50 566D 5B13 7365 85E0 8DAD 8F4E 91AE
+8B65 3B2D 76AD 91C2
+9D64 6AF5 7E90
+4E29 52FC 7EA0 673B 725E 7A76 7CFA 9E20 7CFE 8D73
+28CCA 9604 557E 63C2 63EA 841B 63EB 9CE9 644E 6A1B
+9B0F 9B2E
+4E5D 4E45 4E46 4E63 597A 7078 7396 820F 97ED 7D24
+9152 9579 97EE
+531B 65E7 3EA9 81FC 548E 759A 4192 67E9 67FE 5003
+6344 6855 5313 53A9 6551 5AA8 5C31 5EC4 8205 50E6
+5ECF 5ED0 6166 6BA7 9E6B 820A 5336 9BE6 9E94 9F68
+9DF2
+6C63 6766 6B0D
+620B 5978 5C16 5E75 575A 6B7C 95F4 51BF 6214 73AA
+80A9 8270 59E6 59E7 517C 76D1 5042 5805 60E4 3B74
+730F 7B3A 8C5C 6E54 724B 7F04 83C5 83FA 9593 641B
+6937 693E 714E 728D 744A 788A 7F23 844C 8C63 76E3
+7777 7B8B 84B9 6A2B 719E 7DD8 9CA3 9CFD 9E63 71B8
+2585D 7BEF 7E11 8551 8573 8271 9930 99A2 9E89 7010
+97AC 97AF 9CD2 791B 4320 89B8 9D73 7038 9427 6AFC
+6BB2 9DBC 97C0 9C39 56CF 8643 946F 97C9
+56DD 62E3 67A7 4FED 67EC 5039 6338 6361 7B15 8327
+51CF 526A 6898 68C0 583F 63C0 63C3 691C 6E1B 6E55
+7751 7877 8A43 950F 5F3F 6695 7450 7B67 7B80 7D78
+88E5 8C2B 8DBC 6229 622C 3A35 78B1 5109 7FE6 64BF
+6AA2 2372D 8B07 8E47 77BC 7906 7C21 85C6 8947 8949
+8B2D 7E6D 9B0B 9E78 703D 8812 9417 9C0E 5297 9E7B
+7C5B 8B7E 9E7C 897A
+89C1 4EF6 898B 996F 5251 5EFA 6D0A 726E 8D31 4FF4
+5263 682B 6DA7 73D4 8230 8350 5065 5271 5FA4 6E10
+8C0F 91FC 5BCB 6E85 81F6 88B8 8DF5 65D4 6957 6BFD
+249E3 8171 8465 8CCE 9274 952E 50ED 3A34 6997 6F38
+528D 528E 3D4E 6F97 7BAD 7CCB 852A 8AD3 8CE4 8D9D
+8E10 8E3A 5292 5294 8AEB 92FB 991E 77B7 78F5 85A6
+87B9 9373 9375 64F6 6FFA 7E5D 3C04 89B5 93E9 7033
+8266 8B7C 8F5E 9431 9451 9452 946C 9473
+5F45 58B9 6A7A 7900 6BB1
+5DFE 4ECA 65A4 9485 5153 91D1 6D25 77DC 89D4 57D0
+73D2 7D1F 8355 887F 60CD 583B 7B4B 91FF 5D9C 9E76
+9EC5 895F
+4EC5 5C3D 4FAD 537A 5DF9 7D27 5807 83EB 50C5 53AA
+8C28 9526 5AE4 5ED1 6F0C 76E1 7DCA 9991 69FF 747E
+84F3 5118 9326 8B39 9949
+4F12 52A4 52B2 5997 6783 8FD1 8FDB 52C1 6D55 6649
+664B 6D78 70EC 8369 8D46 552B 740E 7972 9032 5BD6
+6422 6E8D 7981 7F19 9773 5890 3A37 3B10 669C 7468
+50F8 51DA 6B4F 6BA3 89D0 5664 3B1C 6FC5 74A1 7E09
+8CEE 568D 5B27 3BF2 6FDC 71FC 74B6 85CE 89B2 8D10
+9F7D
+91D2 781B 743B 58D7
+6C5F 59DC 5C06 6D46 7555 8333 8C47 5C07 757A 8441
+646A 7FDE 50F5 6F3F 8780 58C3 7F30 6A7F 6BAD 8591
+87BF 9CC9 7585 7913 7586 7E6E 97C1 9C42
+8BB2 5956 6868 508B 5968 848B 596C 69F3 734E 8199
+8523 8029 4243 8B1B 985C
+531E 5905 5F1C 6D1A 7EDB 964D 5F36 7D73 88B6 52E5
+9171 5D79 647E 6EF0 5F4A 236A6 729F 7CE1 7CE8 91A4
+8B3D 91AC
+5320 6762 6AE4
+5755 5759 5DE0 4EAC 6CFE 7ECF 4EB0 79D4 830E 6D87
+834A 5A5B 60CA 65CC 65CD 7304 7D4C 8396 6676 7A09
+8148 8346 83C1 7CB3 7D93 844F 5162 7CBE 8059 9CB8
+9D5B 9BE8 9D81 9D84 9E96 9F31 9A5A 9EA0
+4E95 4E3C 522D 362B 5753 5B91 6C6B 9631 6C6C 80BC
+5244 7A7D 9888 666F 981A 5106 5E5C 61AC 66BB 71DB
+749F 9838 61BC 74A5 87FC 4718 8B66
+598C 51C0 5F2A 5F84 4FD3 205CA 6D44 80EB 8FF3 501E
+51C8 5F33 5F91 75C9 7ADE 5A59 5A67 6871 68B7 6DE8
+811B 9015 291D5 7ADF 75D9 7AE7 9753 50B9 656C 3B0C
+7AEB 9756 5883 734D 8AA9 8E01 9759 477C 975A 955C
+975C 66D4 6FEA 701E 93E1 7AF6 7AF8
+775B 6A78 71DD
+51E5 521F 6285 530A 5C45 62D8 6CC3 72D9 9A79 82F4
+6336 75BD 75C0 7717 7820 7F5D 5A35 5A6E 5D0C 63AC
+68AE 6DBA 9671 6910 741A 8152 83F9 8D84 8DD4 9514
+96CE 824D 871B 88FE 8E18 8E19 92E6 99D2 9B88 9D21
+97A0 97AB 9D8B
+26951 5C40 3632 6CE6 4FB7 72CA 6854 6BE9 5579 5A45
+6DD7 7117 6908 6BF1 6E68 83CA 90F9 7291 8F02 50EA
+7CB7 8DFC 8ACA 8D9C 8EB9 95B0 6A58 6A8B 99F6 4CD4
+9D59 8E6B 9D74 5DC8 9DAA 861C 9F33 9A67
+5480 5F06 6CAE 4E3E 6319 8392 6907 6989 6998 7B65
+9F83 849F 8065 8209 8E3D 64E7 9F5F 6AF8 6B05
+53E5 5DE8 4E6C 5DEA 8BB5 5177 59D6 5CA0 6007 6010
+601A 62D2 62E0 6D30 90AD 661B 6B6B 70AC 82E3 949C
+4FF1 5028 5036 51A3 5267 79EC 57E7 57FE 60E7 636E
+7C94 801F 86B7 8893 728B 8A4E 8DD9 8DDD 98D3 8C66
+9245 952F 5BE0 6133 7AAD 805A 8661 5287 52EE 5C66
+8E1E 99CF 58C9 61C5 64DA 6FBD 7AB6 422E 92F8 9B94
+5C68 907D 98B6 8C97 7C34 8E86 91B5 61FC 943B 3B2C
+77E9 7220 8977
+5658 6485 64A7 5C69 8E7B
+4E85 2010C 5B52 5B53 51B3 5214 6C12 8BC0 6289 6C7A
+5F21 3B48 6CEC 73A6 73A8 82B5 6317 73CF 75A6 7804
+7EDD 8673 89C9 5014 6354 6B2E 8697 5D1B 6398 658D
+6877 6B8C 8990 89D6 8A23 8D7D 8DB9 4848 5095 53A5
+3B7E 7133 7D55 7D76 899A 8D89 902B 920C 37F2 5282
+3522 52EA 7474 8C32 99C3 5DA5 61B0 71A6 7234 7357
+761A 9D02 9D03 5671 61A0 6A5B 6A5C 855D 8568 7235
+81C4 9562 87E8 87E9 5C6B 8B4E 8E76 8E77 9D8C 5337
+56BC 7211 77CD 89BA 940D 941D 721D 89FC 5F4F 6204
+652B 7383 9DE2 6B14 77E1 9FA3 28C1C 8C9C 8EA9 9481
+59E2 5A1F 6350 6D93 7106 8127 74F9 9E43 88D0 52EC
+48FA 954C 93B8 9D51 942B 8832
+5377 545F 5E23 57CD 6372 83E4 9529 3DF7 9308 81C7
+52B5 5946 5DFB 5026 52CC 684A 72F7 7EE2 96BD 6DC3
+7737 774A 7D6D 7F65 45AD 9104 7760 7D79 96CB 98EC
+21840 617B 8528 990B 7367 7E33 7F82
+519B 208D5 541B 5747 36AC 6C6E 59F0 8ECD 94A7 8690
+8880 687E 76B2 8399 83CC 921E 7885 76B8 76B9 89A0
+9281 929E 9CAA 9E87 9355 9BB6 9E8F 9E95
+5441 4FCA 3F59 57C8 5CFB 6343 6D5A 90E1 9656 9982
+9A8F 35A5 6659 710C 73FA 2797A 347A 68DE 756F 7AE3
+3766 41F9 7B98 7B9F 8720 28318 5101 3559 9915 5BEF
+61CF 71C7 6FEC 99FF 9D54 9D58 6508 4551 651F
+2E86 5182 518B 5770 6243 57DB 7D45 99C9 99EB 860F
+8614
+518F 56E7 38A0 6CC2 7085 4FB0 70AF 8FE5 6D7B 9008
+70F1 489B 7A98 988E 715A 7D97 50D2 715B 71B2 6F83
+8927
+FDD0-3111
+4E03 6C8F 8FC9 59BB 67D2 501B 51C4 6816 6864 5A38
+60BD 687C 6DD2 90EA 6532 671F 68F2 6B3A 3C66 840B
+86E3 50DB 5601 617D 69BF 6F06 7DC0 617C 69ED 25250
+8AC6 8AFF 970B 45E9 8E4A 3B24 9B4C 4953 93DA 9D88
+4E93 9F50 573B 5C90 5C93 5FEF 4E9D 5176 5947 6589
+6B67 7541 7941 80B5 82AA 4FDF 75A7 7947 7948 7AD2
+5258 658A 65C2 8006 8110 8691 8694 869A 9880 57FC
+5D0E 5E3A 6391 6DC7 7309 7566 8DC2 8EDD 91EE 9A90
+9A91 68CA 68CB 7426 742A 8401 8415 86F4 612D 7881
+7895 797A 44C5 951C 980E 65D7 7CB8 7DA5 7DA6 7DA8
+44EB 871D 871E 9B3F 9F4A 7482 8E11 79A5 8572 9321
+9CAF 61E0 6FDD 2A5C6 6AB1 6AC0 24A8C 81CD 85C4 9A0E
+9A0F 9CCD 4C07 9BD5 9D78 9D80 9E92 7E83 8269 8604
+8810 9B10 9C2D 7382 9EA1
+4E5E 4F01 5C7A 5C82 9094 542F 5447 675E 7398 76C0
+8291 5518 8C48 8D77 5553 5554 5A4D 555F 7EEE 6675
+68E8 410E 7DAE 7DBA 8AEC 95D9
+6C14 8BAB 5FD4 6C17 6C54 5F03 6C7D 77F5 8FC4 546E
+6CE3 7081 76F5 829E 54A0 5951 780C 6814 6B2B 6C23
+8A16 552D 5921 68C4 6E46 6E47 789B 847A 6456 66A3
+78B6 5650 6187 7508 27858 5668 61A9 78DC 78E7 78E9
+468D 7F4A 87FF 9F1C
+7F3C 621A 6E0F 7DD5 8904 87A7 7C2F 7C31 7C4F
+6390 845C
+62E4
+8DD2 9160
+5736 51BE 34E4 5E22 6070 6D3D 6B8E 7848 6118 9AC2
+9790
+767F 21D90 49A7 807A
+4E14
+5207 59BE 602F 5327 7A83 90C4 20CB5 608F 6308 6D2F
+3932 60EC 6DC1 7B21 611C 86EA 3966 6705 7BA7 7DC1
+9532 21424 7BCB 8E25 7A55 9365 85D2 9BDC 9411 7ACA
+2383A
+82C6 503F 5AAB 7C61
+6084 7857 90FB 5D6A 8DF7 5281 6572 6BC3 8E0D 9121
+9125 9539 589D 981D 58BD 5E67 22FE3 6A47 71C6 7F32
+9AB9 78FD 936B 936C 7E51 8DAC 8E7A 9430
+4E54 4FA8 6865 834D 835E 785A 55AC 83EC 50D1 8C2F
+563A 5AF6 376F 6194 9792 6A35 6A4B 854E 7644 4009
+77A7 7904 4397 8DAB 85EE 9408 97BD 9866 2710D
+5DE7 91E5 6100 9ADC
+4FCF 8BEE 5CED 5E29 7A8D 9657 6BBB 7FD8 8A9A 9ADA
+50FA 64AC 64BD 9798 97D2 7AC5 7FF9 8B59 8E88 3681
+69D7 729E
+3400 4E18 4E20 20C0B 5775 36B1 3CCB 90B1 6058 79CB
+79CC 86AF 5A9D 6978 8429 9E59 7BCD 7DE7 84F2 8775
+7A50 8DA5 4A02 9CC5 87D7 97A6 97A7 9C0C 9C0D 9D96
+8824 9F9D
+53F4 56DA 624F 72B0 738C 6C53 808D 6C42 866C 6CC5
+42B5 866F 4FC5 89D3 8A04 8A05 914B 91D3 5512 3797
+3939 3B5D 6D57 7D0C 91DA 6882 6B8F 6BEC 7403 838D
+8D47 900E 9011 5D37 5DEF 3962 6E1E 6E6D 76B3 76DA
+5DF0 716A 7D7F 86F7 88D8 9052 89E9 8CD5 7486 8764
+92B6 9194 9B82 9F3D 9BC4 9C3D
+641D 7CD7
+91FB 8612
+5343 4EDF 5731 5732 5977 6266 6C58 9621 4F65 5C8D
+6744 6C67 828A 8FC1 6B26 74E9 81E4 833E 948E 62EA
+7275 7C81 515B 60AD 8C38 94C5 5A5C 5B6F 727D 91FA
+6394 8688 8C26 9206 96C3 50C9 6106 7B7E 925B 9A9E
+9E50 6173 6434 6481 7B9E 8AD0 9077 8930 8B19 9845
+6AB6 6510 6ACF 7C3D 9D6E 5B45 6513 9A2B 6511 9B1D
+9B1C 3A77 7C64 97C6
+4EF1 5C92 5FF4 6272 62D1 524D 94A4 6B6C 8654 94B1
+94B3 63AE 8EE1 5A8A 63F5 9210 976C 9257 5898 69A9
+7B9D 92AD 6F5B 6F5C 7FAC 6A6C 8541 9322 9ED4 9EDA
+6FF3 9A1A 9A1D 704A 9C2C
+51F5 80B7 6D45 6DFA 8125 55DB 5D70 69CF 8181 8738
+9063 8C34 7F31 7E7E 8B74
+6B20 520B 3438 82A1 4FD4 5029 6093 831C 5811 5094
+5D4C 68C8 6920 614A 7698 5879 371E 37FB 6B49 7DAA
+84A8 69E7 7BCF 8533 8F24 5119 7BDF 58CD 7E34 4945
+9C1C
+7ACF 9386 93F2 7C56 9453
+4EB2 4FB5 94A6 887E 9A8E 5A87 5D5A 6B3D 7D85 8A9B
+5D94 89AA 9849 99F8 9BBC 5BF4
+3626 5E88 3A81 82A9 82B9 57C1 73E1 79E6 8039 8699
+6366 7434 7439 83E6 83F3 9219 96C2 52E4 55EA 5AC0
+6EB1 79BD 9772 616C 5659 65B3 9CF9 61C4 3A52 64D2
+6FBF 763D 8793 61C3 6A8E 9B35 8804 9D6D
+5745 6611 7B09 68AB 8D7E 5BD1 9513 5BDD 5BE2 92DF
+87BC
+5422 5423 3908 628B 6C81 551A 63FF 83E3 29088 6407
+64B3 421C 7019 85FD
+545B 6215 6217 65A8 67AA 73B1 7F8C 7F97 7310 8DC4
+690C 8154 55C6 6EAC 9516 5D88 6227 69CD 7244 7472
+7FAB 8723 9535 7BEC 9306 8B12 8E4C 956A 8E61 9397
+93D8
+4E2C 5F37 5F3A 5899 5AF1 6F12 6A2F 8503 8537 58BB
+5B19 5EE7 6AA3 7246 8594 8262 8620
+62A2 7F9F 6436 7FA5 588F 7E48 8941 7E66 93F9
+709D 5534 7197 7FBB
+55F4 7347
+72C5 9751 9752 6C22 8F7B 503E 537F 570A 57E5 5BC8
+6C2B 6DF8 6E05 90EC 50BE 873B 8F15 4A1D 9CAD 944B
+591D 7520 5260 52CD 60C5 6B91 6674 68FE 6C30 6692
+845D 6A08 64CF 64CE 3BF3 6AA0 9EE5
+9877 82D8 8BF7 5EBC 9803 5ECE 6F00 3DEB 8ACB 6ABE
+5E86 51CA 6385 6BB8 7883 7B90 9758 6176 78D8 78EC
+7F44 8B26
+7858 6AE6
+533A 66F2 4F39 4F49 5324 5C96 8BCE 9A71 5765 5C48
+5CA8 5CB4 62BE 9639 3B55 6D40 80E0 795B 5340 7D36
+86C6 88AA 8EAF 7B41 7CAC 86D0 8A58 8D8B 5D87 6188
+420C 99C6 657A 8AB3 957C 99C8 9EB9 9AF7 9B7C 8DA8
+9EAF 89B0 8EC0 9EB4 9EE2 89BB 9A45 9C38 9C4B
+4F62 52AC 65AA 6710 80CA 9E32 6DED 7D47 7FD1 6E20
+83C3 8EE5 844B 24A0E 7496 8556 9D1D 74A9 78F2 87B6
+77BF 87DD 9F29 3739 5FC2 7048 8627 6235 6B0B 6C0D
+81DE 766F 7C67 8837 8862 8EA3 883C 947A 9E1C
+53D6 7AD8 5A36 8A53 7AEC 877A 9F8B 9F72
+53BA 53BB 521E 547F 3C26 551F 801D 9612 89D1 8DA3
+95B4 9EAE 95C3 9F01 89B7
+8FF2 8850
+7F3A 9619 849B
+7638
+5374 537B 57C6 5D05 5BC9 60AB 96C0 7437 785E 786E
+9615 5859 6409 76B5 788F 6128 69B7 58A7 6164 78BA
+78BB 8D9E 71E9 95CB 7910 95D5 704D 792D
+9E4A 9D72
+5CD1 5F2E 606E 609B 5708 570F 68EC 99E9 9409
+34B0 5168 6743 4F7A 8BE0 59FE 6CC9 6D24 62F3 7277
+8343 8F81 5573 57E2 5A58 60D3 75CA 7842 94E8 6E76
+7288 7B4C 7D5F 643C 7454 8472 89E0 8A6E 8DE7 8F07
+8737 9293 6A29 8E21 7E13 919B 9CC8 9B08 9A21 9C01
+5B49 5DCF 9F64 6B0A 98A7 8838 9874
+21FE8 72AC 6C71 754E 70C7 7EFB 7DA3 8647
+529D 5238 7276 52E7 97CF 52F8
+72AD 6926 697E 95CE
+590B 56F7 5CEE 9021
+5BAD 5E2C 3A8A 7FA3 7FA4 88D9 88E0
+828E 5314
+536D 5B86 909B 7A77 7A79 8315 684F 4143 7B3B 8D79
+60F8 712A 712D 743C 7B47 823C 86E9 86EC 21983 7162
+7758 8DEB 928E 778F 7AAE 511D 618C 6A69 749A 74CA
+7AC6 85D1 85ED 74D7
+718D
+FDD0-3112
+5915 516E 5FDA 6C50 8980 5438 5E0C 6271 6278 5365
+6614 6790 7A78 80B8 80B9 4FD9 5F86 6038 6053 997B
+550F 595A 36D3 5C56 6095 6C25 6D60 727A 72F6 90D7
+553D 6089 60DC 637F 665E 6878 6B37 6DC5 70EF 7101
+7108 740B 7852 8383 8D65 91F8 5092 60C1 6670 6673
+3C64 711F 712C 7280 774E 7A00 7C9E 7FD5 823E 83E5
+5380 5D60 5FAF 6EAA 7699 910E 9521 50D6 69BD 7155
+7184 7188 7199 7DC6 84A0 8725 8C68 990F 563B 564F
+5B06 5B09 6F5D 3FB7 761C 78CE 819D 51DE 20615 5DB2
+6199 3B1B 6A28 6A40 71B9 71BA 71BB 7AB8 7E18 7FB2
+8785 8787 932B 3C46 71E8 406F 77A6 87CB 8C3F 8C40
+8C6F 8C95 7CE6 7E65 96DF 9D57 8B46 91AF 93ED 5DC7
+66E6 7214 72A7 89F9 96B5 9145 89FD 9F37 8835 9E02
+89FF 9474
+4E60 90CB 5E2D 7FD2 88AD 89CB 5AB3 693A 3804 5D8D
+6F1D 84B5 84C6 89A1 8D98 69E2 3A57 6A84 8582 96B0
+8B35 93B4 972B 9CDB 98C1 9A31 9A3D 8972 9C3C 9A68
+67B2 6D17 73BA 5F99 94E3 559C 9222 8448 8478 9268
+9269 5C63 6F07 6198 84F0 66BF 6B56 8AF0 58D0 79A7
+7E30 8B11 87E2 8E5D 74BD 56CD 9C5A 77D6 8EA7
+5338 534C 620F 5C43 7CFB 9969 546C 5FE5 602C 77FD
+7EC6 4FC2 54A5 6044 76FB 3938 3B61 6B2F 7EE4 90E4
+7D30 91F3 960B 55BA 691E 7FD6 8203 8204 8D87 6140
+6ECA 7D8C 8D69 588D 7182 7294 798A 7A27 9699 969F
+6F5F 89A4 6231 6F99 422A 856E 9ED6 6232 78F6 4B8E
+8669 993C 9B29 7E6B 56B1 95DF 3E0D 973C 5C6D 884B
+897F 606F 6E13 6A72 72A0 7902 9BD1
+8672 75A8 867E 3520 8C3A 5084 9595 7146 7175 98AC
+271CD 778E 8766 9C15
+5323 4FA0 72CE 4FE0 5CE1 67D9 70A0 72ED 5CFD 70DA
+72F9 73E8 965C 7856 796B 7FC8 823A 35C7 7864 967F
+656E 6687 7455 7B6A 821D 9050 78AC 8F96 78CD 7E00
+7E16 8D6E 9B7B 8578 8F44 935C 971E 938B 9EE0 9A22
+9DB7
+959C
+4E05 4E0B 4E64 5413 759C 590F 3648 7771 5687 61D7
+7F45 5913 93BC 93EC
+5737 68BA 6E8A
+4E9B 3C54 63F3 7332 6954 6B47 874E 880D
+52A6 534F 65EA 90AA 5354 80C1 57A5 604A 62F9 631F
+594A 5CEB 633E 8105 8107 887A 5055 659C 3B68 8C10
+35BF 7FD3 55CB 6136 643A 744E 7D8A 26CC3 3666 7181
+818E 52F0 64B7 7DF3 7F2C 8762 978B 9821 64D5 8AE7
+71F2 3A66 64F7 97B5 651C 7E88 896D 8B97 9FA4
+5199 51A9 5BEB 85DB
+4F33 707A 5378 6CC4 6CFB 7EC1 7F37 6D29 70A7 7944
+5A0E 5C51 5C53 22B3F 505E 5070 5368 5FA2 68B0 70F2
+710E 7D32 4EB5 5A9F 5C5F 6E2B 245C8 79BC 7D4F 7D6C
+8C22 50C1 586E 698D 69AD 3D3D 5C67 66AC 7DE4 8909
+5667 5DB0 5EE8 61C8 6FA5 736C 7CCF 27735 97F0 71EE
+85A2 85A4 893B 8B1D 9082 99F4 7009 97A2 7023 7215
+424F 7E72 87F9 880F 9F58 9F5B 9F65 9F42 8E9E
+810B 5911
+7071 7072 547A 67AD 4FBE 54D3 67B5 9A81 54EE 5BAF
+5BB5 5EA8 6D88 7EE1 8653 9E2E 5A4B 689F 7107 7307
+900D 75DA 75DF 785D 7863 7A99 8427 9500 63F1 7D83
+7FDB 8437 560B 5610 6B4A 6F47 7BAB 8E03 5635 5F47
+61A2 3A4B 7362 92B7 9704 81AE 856D 9D1E 7A58 7C18
+87C2 87CF 9B48 9D35 56A3 7C2B 85C3 87F0 701F 6AF9
+24473 9AC7 56BB 56C2 8828 9A4D 9AD0 6BCA 8648
+6D28 3B35 7B05 5D24 6DC6 8A24 90E9 6BBD 7B4A 8AB5
+2E8C 2E8D 5C0F 6653 6681 7B71 7B7F 769B 66C9 7BE0
+76A2 8B0F
+5B5D 8096 52B9 54B2 4FF2 6548 6821 6D8D 7B11 5578
+509A 6569 35DB 8A68 5628 8A9F 562F 6B57 71BD 97A9
+6585 6586 4567
+6077 6EE7
+4F11 4FE2 54BB 5EA5 3CDC 4FEE 70CB 70CC 7F9E 8119
+8129 9E3A 81F9 8C85 9990 929D 9AE4 6A07 9AF9 9380
+9D42 93C5 9948 9C43 98CD
+82EC
+673D 7D87 6EEB 7CD4
+79C0 5CAB 5CC0 73DB 7EE3 7407 8896 9508 55C5 6EB4
+7493 890E 890F 92B9 8791 7E4D 7E61 93E5 93FD 9F45
+9BB4
+353E 4EDA 5C73 5148 597E 7EA4 4F61 5FFA 6C19 6774
+79C8 67AE 7946 7C7C 82EE 73D7 6380 83B6 8A2E 94E6
+23519 50CA 8DF9 9170 9528 5615 929B 9C9C 97EF 5B10
+61B8 66B9 9341 859F 893C 97F1 9BAE 8E6E 99A6 4D4C
+5EEF 6515 7E8E 9DB1 8E9A 7E96 8973 9C7B
+4F2D 95F2 59B6 5F26 8D24 54B8 6326 80D8 5A34 550C
+5563 5A39 5A71 6D8E 7D43 8237 86BF 8854 3B79 75EB
+86DD 9591 9592 9E47 5ACC 8858 929C 5AFA 5AFB 61AA
+648F 6F96 7509 7A34 8AB8 8CE2 3BD7 3D6A 71C5 8AF4
+8F31 918E 7647 764E 77AF 85D6 3C0A 7925 4554 9E79
+9E99 8D12 9DF3 9DF4 9DFC
+51BC 72DD 39E5 663E 5D04 3B60 6BE8 70CD 7303 86AC
+9669 8D7B 967A 7B45 5C1F 5C20 641F 8DE3 3B0E 7992
+9291 7BB2 5DAE 736B 96AA 736E 934C 71F9 85D3 9855
+5E70 6507 6AF6 8B63 861A 4606 496A 7381 97C5 986F
+7066
+4F23 53BF 5C98 2070E 73B0 7EBF 81FD 82CB 549E 59ED
+5BAA 770C 9650 54EF 57B7 5A0A 5A28 5CF4 3A87 6D80
+9665 665B 73FE 784D 83A7 9677 9985 774D 7D64 7F10
+7FA1 732E 7CAF 7FA8 817A 8706 49DF 50E9 50F4 21416
+7DAB 8AA2 648A 7DDA 92E7 61B2 3B17 6A4C 7E23 930E
+9921 58CF 8C4F 493C 9EB2 7017 81D4 737B 7CEE 9F38
+4ED9 50F2 7E4A 9466
+5FC3 59A1 5FFB 8F9B 90A4 6615 677A 6B23 7098 82AF
+76FA 4FFD 3B62 60DE 8A22 920A 950C 65B0 6B46 5EDE
+92C5 5B1C 85AA 99A8 946B 99AB
+6794 3726 8951 9414
+4F08
+3430 4F29 56DF 9620 5B5E 3B44 248F2 4FE1 8ED0 812A
+8845 8A2B 712E 7161 99B8 820B 9856 91C1
+5FC4 567A
+4E61 8297 76F8 9999 53A2 554C 90F7 5EC2 6E58 7F03
+9109 910A 7A25 8459 9115 7BB1 7DD7 81B7 858C 8944
+5FC0 9AA7 9E98 6B00 74D6 9576 9472 9A64
+4F6D 74E8 8BE6 5EA0 6819 7965 7D74 7FD4 8A73 8DED
+4EAB 4EAF 54CD 9977 6651 98E8 60F3 9284 9909 9C9E
+66CF 9B9D 8801 9BD7 97FF 9957 995F 9C76
+5411 59E0 5DF7 8683 9879 73E6 5842 7F3F 8856 8C61
+9805 842B 50CF 52E8 9297 5D91 6A61 95C0 56AE 87D3
+8950 940C 9C4C
+697F 9C5C
+661F 57B6 9A8D 60FA 7329 714B 7446 8165 86F5 89EA
+7BB5 7BC2 9B8F 66D0 89F2 935F 9A02 76A8 9BF9
+5211 884C 5F62 90A2 4F80 9649 578B 6D10 90C9 9498
+5A19 8365 9658 784E 94CF 9203 6ECE 9276 9292 92DE
+3A18 7772 9192 64E4
+5174 674F 59D3 5E78 6027 5016 8347 5A5E 60BB 6DAC
+8395 7DC8 8208 5B39 81D6
+54D8 88C4 8B03
+5401 620C 65F4 759E 76F1 6B28 80E5 987B 6647 8A0F
+987C 8657 865A 8C1E 5AAD 5E41 63DF 6E51 247E0 865B
+88C7 9808 6948 7AA2 980A 5618 9700 5653 589F 5B03
+7E03 8751 9B46 6B54 8566 8ADD 8B43 7E7B 9450 9A49
+9B1A 9B56
+4FC6 5F90 84A3
+8BB8 5474 59C1 8BE9 5194 6829 73DD 5066 8A31 668A
+8A61 7A30 7CC8 9126 9191 76E8
+65ED 4F35 5E8F 6C7F 4F90 5379 6034 6C80 82A7 53D9
+6064 662B 6D2B 460F 57BF 6B30 6B88 70C5 73EC 52D6
+654D 6558 52D7 70FC 7EEA 7EED 9157 55A3 58FB 5A7F
+6702 6E86 7D6E 8A39 6149 7166 8CC9 69D2 6F35 6F4A
+76E2 7781 7DD2 805F 84C4 928A 735D 7A38 7DD6 9B63
+77B2 85C7 85DA 7E8C 9C6E
+8053 7D9A 84FF
+524A 75B6 3EE1 8486 9774 35FE 8FA5 8FAA 859B 97BE
+7A74 6588 4E74 5B66 5CA4 5CC3 6CF6 8313 9E34 8895
+8E05 58C6 5B78 5DA8 6FA9 71E2 3D85 89F7 96E4 9DFD
+96EA 9CD5 9C48
+8840 3570 5437 5779 72D8 6856 8C11 8D90 8B14 7025
+81A4 6A30 825D 8F4C
+5405 8F69 660D 5BA3 5F32 8ED2 688B 8C16 55A7 5847
+5A97 6103 610B 63CE 6684 714A 7444 8431 8432 777B
+84D2 5107 7BAE 7E07 7FE7 8756 92D7 61C1 79A4 8AE0
+8AFC 857F 9379 99FD 7FFE 8809 77CE 85FC 8610 8B5E
+7384 73B9 3623 75C3 60AC 65CB 7401 8701 5AD9 6F29
+66B6 7487 4062 6A88 74BF 61F8
+54BA 6645 70DC 9009 3535 9078 9848 7663 766C
+6030 6CEB 39E6 6621 70AB 7EDA 7729 94C9 7404 7734
+8852 88A8 6E32 7D62 6965 6966 9249 78B9 8519 955F
+9799 98B4 7E3C 7E4F 93C7 8B82 8D19
+9C1A
+5743 52CB 57D9 7104 52DB 5864 718F 7AA8 52F2 8512
+52F3 99E8 58CE 736F 85AB 66DB 71FB 81D0 85B0 77C4
+7E81 860D 58E6 91BA
+5BFB 5EF5 65EC 9A6F 674A 5DE1 7543 8BE2 5CCB 6042
+6D35 6D54 7D03 6812 686A 6BE5 73E3 8340 8368 5071
+3704 5C0B 5FAA 63D7 295B0 8A62 99B4 69C6 6F43 9C9F
+565A 3D4C 6F6F 9129 6533 6A33 71D6 7495 87F3 9C4F
+9C58 7065
+5342 8BAF 4F28 6C5B 8FC5 4F9A 5DFA 5F87 72E5 6B89
+8A0A 8A19 8FFF 900A 595E 5DFD 6BBE 7A04 613B 8CD0
+905C 5640 6F60 8548 9D55 720B 9868 9442
+8BAD 8A13 5691
+51F6 5144 342B 5147 5308 8BBB 5FF7 6C79 54C5 605F
+6D36 80F7 80F8 8A29 8A7E 8CEF
+96C4 718A
+713D
+8BC7 7138 8A57 5910 657B 22FCC
+FDD0-3113
+4E4B 652F 536E 6C41 5431 5DF5 6C65 5767 679D 6CDC
+77E5 7EC7 80A2 829D 6800 79D3 79D6 80D1 80DD 5001
+75B7 7957 79EA 8102 887C 96BB 6894 796C 6925 81F8
+6220 6418 7A19 7D95 69B0 7994 8718 99B6 3BC4 9CF7
+9D32 9D44 7E54 9F05 8635
+6267 4F84 59B7 76F4 59EA 5024 503C 8040 91DE 57F4
+57F7 21E1C 6DD4 804C 8CAD 690D 6B96 7286 7D77 8901
+8DD6 55ED 74E1 7983 9244 588C 646D 99BD 5B02 6179
+6F10 8E2F 6A34 81B1 5128 7E36 8077 87D9 8E60 8EC4
+8E91
+5902 6B62 53EA 52A7 65E8 5740 5741 5E0B 627A 6C66
+6C9A 7EB8 962F 603E 62A7 23CB5 82B7 54AB 6049 6307
+67B3 6D14 780B 7949 8F75 75BB 41DB 7D19 8879 6DFD
+8A28 8DBE 8EF9 4920 9EF9 916F 85E2 8967
+81F3 9624 5FD7 5FEE 627B 8296 8C78 28468 5236 5394
+5781 5E19 5E1C 6CBB 7099 8D28 5CD9 5EA2 5EA4 6303
+67E3 6809 6D37 81F4 8FE3 90C5 5A21 5F8F 2267A 631A
+664A 684E 72FE 7951 79E9 8D3D 8F7E 965F 4E7F 506B
+202B7 5F9D 3A01 63B7 68BD 6956 7318 7564 75D4 79F2
+79F7 7A92 7D29 7FD0 889F 88A0 89D7 94DA 9E37 5082
+21376 5D3B 5F58 667A 6EDE 75E3 86ED 8EFD 9A98 5BD8
+5ECC 6431 6ECD 7A1A 7B6B 7F6E 8DF1 8F0A 9527 96C9
+5886 21839 6EEF 6F4C 7590 43BA 88FD 899F 8A8C 928D
+5E5F 6184 646F 71AB 7A3A 7DFB 442D 81A3 89EF 8CEA
+8E2C 92D5 64F3 65D8 7004 99E4 9D19 5295 61E5 6ADB
+7A49 4245 87B2 3609 3731 61EB 64F2 8D04 6ACD 74C6
+89F6 9BEF 7929 8C51 9A2D 9A3A 9A47 8E93 9DD9 9455
+8C52
+51EA 4FE7 5F94 8B22
+624E 5412 62AF 5953 6313 67E4 67FB 54F3 5067 55B3
+63F8 6E23 6942 5284 6463 76B6 6A1D 89F0 76BB 8B47
+9F44 9F47
+672D 7534 95F8 86BB 94E1 7160 7250 9598 7B9A 802B
+9358 8B57
+538F 62C3 82F2 7728 781F 6429 9C8A 9C9D 8E37 9B93
+9BBA 4562
+4E4D 7079 8BC8 54A4 67DE 6805 70B8 5BB1 75C4 86B1
+8A50 643E 6EA0 69A8 27A0A 9705 91A1
+8707 55FB 5AEC 906E
+5387 6298 6B7D 77FA 7813 7C77 8674 54F2 57D1 3B59
+7C8D 5560 608A 6662 6663 3B6F 88A9 8F84 5586 86F0
+8A5F 41FD 8C2A 99B2 647A 8F12 78D4 8F19 92B8 8F99
+87C4 569E 8B2B 8B3A 9BBF 8F4D 8B81 8B8B
+8005 4E7D 556B 9517 7987 8D6D 8936 8975
+8FD9 67D8 6D59 6DDB 9019 6A1C 6F6A 9E67 87C5 4826
+9DD3
+7740 8457 8517
+635A 658B 658E 6458 69B8 451D 9F4B 29C73
+5B85 6AA1
+7A84 9259
+503A 7826 50B5 5BE8 7635
+5908 7C82
+4F4B 948A 59B1 5DF6 62DB 662D 76C4 91D7 5541 924A
+99CB 7ABC 9363 76BD
+722A 627E 6CBC 7475 4203
+53EC 5146 8BCF 679B 5797 70A4 72E3 8D75 7B0A 8081
+65D0 68F9 436E 8A54 7167 7F69 4207 8087 8088 8D99
+66CC 71F3 9BA1 6AC2 77BE 7F84
+2EA5 722B 7F40
+5DDE 821F 8BCC 4F9C 5468 6D32 8BEA 70D0 73D8 8F80
+5F9F 3A04 63AB 6DCD 77EA 90EE 9E3C 558C 7CA5 8D52
+9031 8F08 44DF 9282 8CD9 8F16 970C 76E9 8B05 9D43
+9A06 8B78
+59AF 8F74 8EF8
+8098 759B 666D 83F7 776D 7B92 9BDE
+7EA3 4F37 546A 5492 5B99 7EC9 5191 54AE 663C 7D02
+80C4 76B1 836E 914E 665D 7C99 3473 8A4B 8464 8A76
+7503 50FD 76BA 99CE 5663 243F2 7E10 9AA4 7C40 7C55
+7C52 9A5F
+5E1A 70BF 99F2
+6CBE 6BE1 65C3 6834 7C98 86C5 98E6 60C9 8A40 8D88
+8A79 959A 8C35 5661 5DA6 9711 6C08 6C0A 859D 9085
+77BB 9E6F 65DC 8B6B 9958 9CE3 9A59 9B59 9C63 9E07
+8B9D
+65A9 98D0 5C55 76CF 5D2D 65AC 382D 692B 7416 370A
+640C 76DE 5D83 5D84 6990 98AD 5AF8 9186 6A4F 406A
+8F3E 28AC0 27B06 2217A 9EF5
+5360 4F54 6218 6808 685F 7AD9 5061 7EFD 68E7 6E5B
+83DA 6226 7DBB 5D98 8F1A 6230 8665 8666 89B1 8F4F
+8B67 29947 9A4F 8638
+8D1E 3630 9488 4FA6 6D48 73CD 73CE 80D7 8C9E 3598
+5E2A 6815 6862 771E 771F 7827 91DD 5075 686D 796F
+9159 5BCA 5AC3 21EC8 6438 659F 6968 7349 8474 9049
+9241 9755 699B 6B9D 7467 7504 78AA 798E 8496 84C1
+6F67 799B 7BB4 6A3C 6FB5 81FB 9331 8F43 937C 85BD
+7C48 9C75
+3431 8BCA 62AE 6795 5F2B 6623 8F78 5C52 755B 75B9
+7715 7D3E 8044 8897 8A3A 8EEB 7D7C 7F1C 88D6 4AB4
+7A39 99D7 7E25 9B12 9EF0
+5733 7EBC 9635 753D 4FB2 630B 42B6 9E29 632F 6715
+681A 7D16 9663 7739 8D48 9156 63D5 5866 7471 8AAB
+8CD1 47F4 6576 9547 9707 9D06 93AD 93AE
+8419 92F4
+5F20 5F35 7AE0 50BD 5887 5ADC 5F70 22554 615E 6F33
+7350 7CBB 9123 66B2 6A1F 24364 748B 8501 9067 9926
+87D1 9A3F 9C46 9E9E
+4EC9 957F 9577 6DA8 638C 6F32 7903
+4E08 4ED7 6259 5E10 6756 80C0 8D26 5E33 6DB1 8139
+75EE 5D82 5E5B 969C 8CEC 762C 7634 7795
+7C80 5E65 93F1 9423
+4E89 4F42 59C3 5F81 6014 722D 8BE4 20C9C 5CE5 6323
+70A1 72F0 70DD 7710 94B2 57E9 5D1D 5D22 6399 7319
+7741 8047 28713 94EE 5A9C 63C1 7B5D 3B39 5FB0 775C
+9266 5FB4 84B8 7B8F 5FB5 8E2D 7BDC 931A 9B07 9BD6
+7665
+6C36 628D 7CFD 62EF 639F 6678 6138 649C 6574
+6B63 8BC1 5E27 653F 90D1 75C7 5E40 8A3C 5863 40BB
+27D84 4223 8ACD 912D 9D0A 8B49 496D
+51E7
+6731 52AF 4F8F 8BDB 6D19 90BE 682A 73E0 8331 8BF8
+732A 7843 79FC 94E2 7D51 86DB 88BE 8A85 8DE6 69E0
+876B 9296 6A65 6F74 8AF8 8C6C 99EF 9BA2 9D38 7026
+6AEB 6AE7 9BFA 9F04 8829
+7AF9 6CCF 7AFA 70A2 7B01 70DB 7A8B 833F 7B1C 8233
+9010 7603 7BC9 71ED 880B 8E85 9C41 5B4E 705F 66EF
+6B18 7225 883E
+4E36 4E3B 20C0D 5B94 62C4 7F5C 6E1A 967C 716E 8A5D
+7151 5631 6FD0 9E88 77A9 529A 56D1 65B8 77DA
+4F2B 4F47 4F4F 52A9 7EBB 577E 677C 6CE8 82CE 8D2E
+8FEC 9A7B 58F4 67F1 6BB6 70B7 75B0 771D 782B 795D
+7ADA 7969 7D35 7D38 7F9C 8387 86C0 5D40 7B51 8A3B
+8CAF 8DD3 8EF4 94F8 7B6F 9252 99B5 7BB8 7FE5 6A26
+92F3 99D0 7BEB 9714 9E86 9444
+58B8
+6293 6A9B 81BC 9AFD 7C3B
+5353 62D9 70AA 502C 6349 684C 68C1 6DBF 68F3 7A5B
+25F1A 4B93 7A71 883F
+5734 5F74 6C4B 72B3 707C 53D5 59B0 65AB 6D4A 8301
+4E35 6D5E 8BFC 914C 5544 5545 5A3A 39FB 3B6C 68B2
+70F5 65B1 666B 6913 7438 4401 251CD 787A 7AA1 7F6C
+65B2 69D5 64AF 64C6 799A 4175 8AC1 8AD1 92DC 6FC1
+7BE7 289E7 64E2 6580 65B5 6FEF 243F8 6AE1 8B36 956F
+9D6B 7042 8817 942F 9432 7C57 9DDF 7C71
+5285
+7AA7
+62FD
+8DE9
+96B9 8FFD 9A93 9525 9310 9A05 9D7B
+6C9D
+5760 6858 7B0D 5A37 60F4 7F12 7577 7500 787E 8187
+8D58 589C 8AC8 918A 7E0B 9323 991F 7908 8D05 8B75
+8F5B 9446
+7F00 7DB4
+4E13 53C0 5C02 7816 5C08 587C 5AE5 911F 747C 78D7
+819E 989B 750E 78DA 8AEF 87E4 9853 9C44
+8F6C 5B68 8EE2 7AF1 4871 8F49
+7077 556D 581F 7451 815E 8483 50CE 8D5A 64B0 7BC6
+9994 7BF9 8CFA 8948 8B54 994C 56C0 7C51
+5B92 80AB 8FCD 7A80 8C06 8AC4 8860
+51C6 57FB 6E96 7DA7
+8A30 7A15
+51D6
+5986 5E84 599D 5A24 6869 8358 6889 838A 6E77 7CA7
+88C5 88DD 6A01 7CDA
+58EE 58EF 72B6 72C0 58F5 710B 6F34 649E 6207
+5E92
+4E2D 4F00 6C77 5223 5990 5F78 5FE0 6CC8 7082 7EC8
+26B15 67CA 76C5 949F 41D7 822F 8873 8877 7D42 9221
+5E52 953A 8520 92BF 87A4 87BD 937E 9F28 8E71 9418
+2915E 7C66
+80BF 79CD 51A2 55A0 5C30 585A 585C 6B71 7144 816B
+7607 7A2E 8E35 7A5C
+4EF2 4F17 5995 72C6 794C 91CD 833D 869B 8876 5045
+773E 5839 5A91 7B57 8846 8AE5
+8FDA
+FDD0-3114
+5403 4F99 54E7 5F68 80F5 86A9 9E31 7735 7B1E 55AB
+74FB 8A35 55E4 5AB8 75F4 7D7A 645B 5644 8ABA 779D
+9D1F 87AD 7661 9F5D 9B51 5F72 9ED0
+5F1B 6C60 9A70 577B 5CBB 8FDF 6301 7AFE 830C 6B6D
+834E 86B3 8D7F 7B42 8CBE 8D8D 9045 99B3 7B8E 905F
+5880 6F26 8E1F 7BEA 9072 8B18 28A32
+5C3A 53FA 544E 4F88 5376 9F7F 5791 80E3 6065 3DB4
+7C8E 42BC 803B 8687 6B3C 6B6F 88B2 88B3 88ED 9279
+9F52 892B
+5F73 53F1 65A5 6758 707B 8D64 996C 62B6 52C5 605C
+70BD 52D1 7FC4 7FC5 6555 70FE 75D3 557B 3961 6E41
+7873 98ED 50BA 75F8 815F 8DEE 9253 96F4 7608 7FE4
+9290 6157 618F 761B 7FE8 906B 71BE 61D8 8DA9 4820
+994E 9D92 9DD8
+599B 9EB6
+53C9 6260 6748 2472F 809E 81FF 633F 505B 63D2 63F7
+9987 55CF 929F 9538 7580 8256 9364 9937
+79C5 579E 67E5 832C 8336 5D56 7339 976B 643D 8A67
+5BDF 69CE 78B4 25ED7 6AAB 297D4
+8869 8E45 9572 9454
+597C 6C4A 5C94 4F98 8BE7 59F9 7D01 5DEE 47D5 8A6B
+8F66 4F21 8ECA 4FE5 7817 5513 8397 7868 86FC
+626F 5056 47A3 64A6
+5C6E 5F7B 577C 8FE0 3934 70E2 3FED 352D 8045 63A3
+7869 9819 5FB9 64A4 6F88 3B1A 52F6 77AE 4720 7221
+8286 62C6 9497 91F5
+4FAA 67F4 8C7A 7961 558D 5115 9F5C
+831D
+867F 8883 8A0D 7625 8806 56C6
+6284 2207E 5F28 600A 6B29 949E 8A2C 712F 24674 8D85
+9214 52E6 4AFF
+724A 6641 5DE2 5DE3 671D 9F0C 6F05 911B 5632 6A14
+6F6E 7AB2 7F7A 8F48 9F02 8B3F
+5435 7092 7727 7123 717C 9EA8 5DD0
+4EE6 4EEF 8016 89D8
+62BD 5A64 640A 7633 7BD8 72A8 72AB
+4EC7 601E 4FE6 5E31 6826 60C6 7D2C 7EF8 6906 7574
+7D52 83D7 6101 7697 7A20 7B79 9167 7DA2 88EF 8E0C
+5114 96D4 568B 5B26 5E6C 61E4 71FD 85B5 96E0 7587
+7C4C 8E8A 91BB 8B8E 8B90
+4E11 4E12 541C 677B 677D 4FB4 5062 7785 919C 77C1
+9B57
+81ED 81F0 6BA0 905A
+916C
+8FBF 89C7 6400 68B4 8998 9246 88E7 92D3 5E68 895C
+6519
+5A75 8C17 68CE 6E79 998B 7158 7985 7F20 50DD 7351
+8749 8A97 5103 5B0B 5EDB 6F79 6F7A 7DFE 6FB6 78DB
+92CB 6BDA 79AA 9561 700D 87EC 913D 5133 5296 87FE
+56B5 5DC9 703A 9141 6B03 7E8F 7E92 8E94 9575 826C
+8B92 9471 995E
+4EA7 522C 65F5 4E33 65BA 6D50 5257 8C04 5574 7522
+7523 94F2 9610 5277 8487 5D7C 644C 6EFB 563D 5E5D
+8AC2 95B3 9AA3 71C0 8546 7C05 5181 7E5F 8B42 8FB4
+93DF 95E1 56C5 705B 8B87
+5FCF 785F 3B04 6472 61F4 98A4 61FA 7FBC 97C2 986B
+58E5
+62BB 6375 90F4 741B 55D4 7D9D 778B 8AC3 8CDD 7E1D
+8B13
+5C18 81E3 5FF1 6C88 6C89 8FB0 9648 8FE7 5BB8 831E
+6550 8380 8390 8A26 8C0C 8ED9 9673 6116 63E8 9202
+7141 5875 760E 6A04 852F 9703 8AF6 87B4 85BC 9E8E
+66DF 9DD0
+8DBB 7876 789C 588B 5926 78E3 8E38 9356 8D02 91A6
+75A2 886C 9F80 8D81 8D82 6987 9F53 512C 9F54 512D
+56AB 8C36 6AEC 896F 8B96
+70E5 6668
+4F25 660C 5000 5A3C 6DD0 7316 960A 667F 7429 83D6
+9520 88EE 9329 95B6 9CB3 4B96 9BE7 2A087 9F1A
+4EE7 514F 80A0 82CC 9578 5C1D 507F 5E38 5F9C 74FA
+8407 751E 8178 5617 5872 5AE6 747A 8193 92FF 511F
+5690 9CBF 93DB 9C68
+5382 573A 6636 60DD 5834 50D8 53B0 5EE0 6C05 92F9
+6005 739A 7545 5021 9B2F 5531 60B5 713B 7452 66A2
+757C 8AAF 97D4
+655E 6919 87D0
+6CDF 9637 67FD 722F 6D7E 79F0 5041 86CF 36F5 68E6
+6E5E 725A 7424 8D6A 50DC 6186 645A 7A31 9757 6490
+6491 7DFD 6A55 77A0 8D6C 9833 6A89 7AC0 7A6A 87F6
+93F3 93FF 9953
+4E1E 6210 673E 5448 627F 67A8 8BDA 4E57 57CE 5A0D
+5CF8 6D06 90D5 4E58 57D5 5BAC 6330 665F 73F9 8100
+6381 73F5 7A9A 812D 837F 94D6 5818 60E9 68D6 6909
+7A0B 7B6C 7D7E 584D 5856 6E97 7880 41F8 88CE 8AA0
+757B 9172 92EE 6195 6F82 6F84 6A59 6A99 7013 61F2
+2815D 9A2C
+4FB1 5F8E 609C 9A8B 5EB1 901E 7748 9A01
+79E4
+9BCE
+51FA 5C80 521D 6474 6A17 8C99 9F63
+520D 82BB 9664 53A8 8C60 9504 5AB0 6EC1 8021 870D
+8D8E 924F 96CF 3551 7293 84A2 84AD 3861 5EDA 854F
+92E4 6A71 7BE8 5E6E 6AC9 96DB 6AE5 85F8 8E70 8E87
+9DB5 8E95
+51E6 6775 7840 50A8 6918 696E 891A 6FCB 5132 6A9A
+790E 9F6D 9E00 9F7C
+4E8D 5904 7ACC 6035 62C0 7ECC 8C56 67F7 6B2A 7AD0
+4FF6 654A 755C 3647 57F1 73FF 7D40 8655 5097 7421
+6410 6EC0 89E6 9110 8E00 95A6 510A 563C 84EB 8AD4
+61B7 65B6 6B5C 81C5 9EDC 89F8 77D7
+695A 698B 6A7B 74B4 87F5
+6B3B 6B58
+9034 8E14 6233
+2ECC 2ECD 8FB6 8FB5 3C8B 5A15 5A16 60D9 6DB0 7EF0
+5A7C 814F 8F8D 44CE 916B 7DBD 8DA0 8F1F 9F8A 64C9
+78ED 7E5B 6B60 56BD 9F6A 9461
+63E3 640B
+8197
+555C 562C 81AA 8E39
+5439 708A
+5782 5015 57C0 6376 68F0 690E 8144 9672 6425 83D9
+9524 69CC 7BA0 9318 9840 939A
+9FA1
+5DDB 5DDD 6C1A 7A7F 5276 732D 744F
+4F1D 4F20 8221 8229 8239 570C 50B3 693D 9044 66B7
+7BC5 8F32
+821B 8348 5598 6B42 50E2 8E33
+6C4C 4E32 7394 948F 91E7 8CD7 9DA8
+65FE 6776 6625 583E 5A8B 8405 6699 693F 7443 7BBA
+877D 6A41 8F34 81A5 6AC4 9C06 9D9E 2A0B9
+7EAF 5507 6D71 7D14 9659 6DF3 8123 83BC 6E7B 7289
+6EE3 6F18 8493 84F4 9187 9195 931E 9BD9
+5046 60F7 8436 7776 8CF0 8822
+9E51 9D89
+5205 75AE 7A93 7A97 724E 6450 7255 7621 7ABB
+5E8A 7240 5647 5E62
+95EF 50B8 6464 78E2 95D6
+521B 6006 5231 524F 5259 51D4 5275 6134
+5145 51B2 5FE1 6C96 833A 6D7A 73EB 7FC0 8202 5603
+644F 5FB8 6183 61A7 885D 41B9 7F7F 825F 8E56
+866B 5D07 5D08 9680 7DDF 8769 8908 87F2 721E
+5BA0 57EB 205A5 5BF5
+94F3 63F0 9283
+FDD0-3115
+5C38 5931 5E08 545E 8671 8BD7 9E24 5C4D 65BD 6D49
+72EE 90BF 5E2B 7D41 91F6 6E64 6E7F 921F 6EAE 6EBC
+7345 8479 8A69 9247 9248 7461 8492 84CD 9CF2 8768
+9CFE 27A79 9CBA 6FD5 26488 8937 9366 2A014 9BF4 9C24
+9DB3 8979
+5341 9963 77F3 4E6D 8FBB 65F6 20C34 5B9E 5B9F 65F9
+59FC 5CD5 70BB 8680 98DF 98E0 57D8 6642 794F 83B3
+5BD4 6E5C 5852 6EA1 9048 9250 5BE6 69AF 8494 8755
+4215 9CA5 9F2B 9F2D 9C23
+53F2 77E2 4E68 8C55 4F7F 59CB 9A76 5158 5BA9 5C4E
+7B36 9242 99DB
+58EB 6C0F 793B 4E17 4E16 4ED5 5E02 2EAC 793A 534B
+5F0F 5FD5 2EAE 4E8A 4F3C 53D3 623A 4E8B 4F8D 52BF
+5469 67F9 8BD5 9970 519F 5BA4 6040 6043 62ED 662F
+6630 67BE 67FF 7702 89C6 8D33 683B 70D2 770E 7721
+8210 8F7C 9002 94C8 8996 8C49 901D 91C8 5A9E 5D3C
+5F11 5FA5 63D3 8C25 8CB0 91CA 52E2 55DC 5F12 7757
+7B6E 89E2 8A66 8EFE 9230 9243 98FE 8213 8A93 927D
+596D 9069 492D 92B4 9919 566C 5B15 6FA8 8ADF 8AE1
+991D 87AB 8B1A 907E 7C2D 91CB 896B
+4F66 7ACD 8BC6 62FE 5319 5D75 6981 7176 7BD2 9B96
+7C42 8B58 9C18
+6740 6C99 7EB1 4E77 5239 524E 7802 5526 7300 7C86
+7D17 686C 6BBA 6BEE 3E3A 838E 94E9 75E7 7870 715E
+88DF 699D 6A27 8531 9B66 9CA8 9BCA 9BCB 93A9
+50BB 510D
+503D 553C 5551 5565 5E39 53A6 55A2 8410 5EC8 3C3C
+6B43 7FDC 4209 7B91 7FE3 95AF 970E
+7E4C
+5962 731E 8D4A 756C 7572 8F0B 8CD2 8CD6 6AA8
+820C 4F58 8675 86C7 86E5 27D73
+820D 6368 4B37
+538D 8BBE 793E 5399 5C04 6D89 6DBB 6E09 8A2D 8D66
+5F3D 6151 6442 6444 6EE0 6174 6475 850E 6B59 97D8
+9A07 8802 4713 61FE 651D 7044 9E9D 6B07
+820E
+3D13 7B5B 917E 7BE9 7C01 7C1B 91C3
+7E7A
+6652 3B20 95B7 66EC
+5F30 634E 70E7 68A2 83A6 713C 7A0D 65D3 7B72 8244
+86F8 8F0E 71D2 4230 98B5 9AFE 9BB9
+52FA 828D 67D6 73BF 82D5 7AF0 97F6
+5C11 28218 4520
+52AD 5372 7ECD 90B5 54E8 5A0B 7D39 8891 7744 7DA4
+6F72
+8571
+53CE 6536
+624B 5B88 57A8 9996 824F
+5BFF 53D7 72E9 517D 552E 6388 6DAD 7EF6 75E9 58FD
+7DAC 5900 7626 46F5 7378 93C9
+624C 7363
+5C71 5F61 9096 5220 522A 6749 59CD 59D7 829F 9490
+67F5 72E6 73CA 8222 82EB 886B 57CF 75C1 8ED5 633B
+7B18 8120 8DDA 527C 6427 5607 5E53 717D 6F78 6F98
+6A86 7E3F 81BB 7FB4 7FB6 9BC5 3C11
+27A3E
+95EA 9655 9583 965D 3A8E 6671 7154 7752 718C 89A2
+8BAA 6C55 38CC 759D 5261 6247 8A15 8D78 639E 91E4
+5093 5584 928F 9A9F 50D0 58A0 58A1 6F6C 25531 7F2E
+912F 5B17 64C5 6A3F 6B5A 81B3 4C49 78F0 8B06 8D61
+4120 7E55 87EE 4947 87FA 8B71 8D0D 9425 994D 9A38
+9CDD 7057 9C53 9C54
+5738 6763 958A 657E
+7533 5C7E 625F 4F38 8EAB 4F81 547B 59BD 7C76 7EC5
+8BDC 59FA 67DB 6C20 73C5 7A7C 7C78 5A20 5CF7 7521
+7712 7837 6552 6DF1 7D33 8398 515F 68FD 8A37 8460
+88D1 8A75 20EDD 7527 84E1 8518 71CA 99EA 9CB9 66D1
+8593 9D62 9BF5 9C3A
+4EC0 751A 795E 4C20
+5F1E 90A5 5BA1 77E4 54C2 77E7 5BB7 8C02 8C09 5A76
+6E16 8A20 5BE9 8AD7 9823 9B6B 66CB 9825 77AB 5B38
+700B 3C02 89BE 8B85
+80BE 4FBA 661A 80C2 6D81 7718 6E17 8124 7973 814E
+613C 614E 6939 7606 7F67 8703 8704 6EF2 92E0 762E
+5814 698A 9C30
+4F24 6B87 5546 89DE 50B7 5892 616F 6EF3 6F21 6BA4
+71B5 850F 87AA 89F4 8B2A 9B3A
+57A7 6244 664C 8D4F 8CDE 8D18 945C
+4E04 4E0A 5C19 5C1A 6066 7EF1 7DD4 979D
+4EE9 88F3
+5347 751F 544F 58F0 6598 9629 6607 6CE9 72CC 680D
+6B85 7272 73C4 82FC 3C61 965E 7B19 9679 6E66 713A
+7525 924E 8072 9F2A 9D7F
+7EF3 61B4 7E69 8B5D
+7701 771A 5057 6E3B
+5723 80DC 6660 5270 76DB 5269 52DD 8CB9 5D4A 741E
+8056 58AD 69BA 8542 8CF8
+7AD4 66FB 6A73
+4E66 6BB3 5C17 6292 7EBE 3450 53D4 6778 67A2 59DD
+964E 500F 5010 66F8 6B8A 7D13 6393 68B3 6DD1 7102
+8ED7 758E 758F 8212 83FD 9103 6445 6BF9 7D80 8F93
+8DFE 8E08 6A1E 7479 852C 8F38 6A7E 9B9B 6504 5135
+9D68
+79EB 5A4C 5B70 8D4E 587E 719F 74B9 8D16
+9F21 5C5E 6691 9ECD 668F 7F72 8700 9F20 6F7B 66D9
+3EFF 85A5 85AF 7659 85F7 8961 5C6C 8969 9483
+672E 672F 620D 675F 6CAD 4FB8 51C1 54B0 6037 6811
+7AD6 8FF0 6055 6352 8357 5EB6 5EBB 7D49 8853 5C0C
+9683 6570 7AEA 8167 8481 88CB 9265 5885 6F31 6F44
+6578 6F8D 8C4E 6A39 6FD6 9330 4240 93E3 9D90 866A
+702D 7CEC 8834 9C6A 9C70
+5237 5530
+800D
+8A9C
+8BF4 54FE 8AAA 8AAC
+5981 70C1 6714 94C4 6B36 7855 77DF 6420 69CA 78A9
+84B4 7361 7BBE 26097 9399 720D 9460
+8870 6454 2812E
+7529
+5E05 5E25 2361A 87C0 535B
+8C01 813D 8AB0
+6C34
+5E28 6D97 6D9A 7971 7A05 7A0E 7761 88DE 7793
+6C35 6C3A 9596
+95E9 62F4 9582 6813
+6DAE 8168
+542E
+987A 821C 9806 6A53 779A 8563 77AC 9B0A
+53CC 971C 96D9 5B40 9AA6 5B47 9A3B 6B06 7935 9DDE
+9E74 4276 826D 9A66 9E18
+723D 587D 6161 6F3A 6A09 7E14 45EE
+7040
+93EF
+FDD0-3116
+2E9C 65E5 9A72 56F8 91F0 9224 99B9
+60F9
+70ED 71B1
+5A06 9976 6861 835B 5B08 6A48 8558 8953 9952
+6270 96A2 64FE
+7ED5 9076 7E5E
+53B9 79B8 67D4 5A83 63C9 6E18 7163 7448 4413 8447
+7CC5 875A 8E42 8F2E 9352 97A3 74C7 9A25 9C07 9D94
+7C88 697A 97D6
+2EBC 8089 5B8D 816C
+5465 80B0 86A6 887B 8887 86BA 88A1 7136 9AE5 562B
+3723 9AEF 71C3 7E4E 4533
+5184 5189 59CC 67D3 73C3 82D2 5AA3 6A6A
+8485
+4EBA 4EBB 4EC1 58EC 5FC8 6732 5FCE 79C2 82A2 9213
+9B5C 928B 433E 9D40
+5FCD 6820 6823 834F 79F9 8375 68EF 7A14
+5203 5204 8BA4 4EDE 4EED 8BB1 4EFB 5C7B 5C83 3834
+6268 7EAB 2EB6 2634C 598A 6752 7263 7EB4 8095 8F6B
+97E7 996A 59D9 794D 7D09 7D1D 887D 8A12 8ED4 6895
+3E3E 8EE0 41EE 7D4D 814D 88B5 976D 9771 97CC 98EA
+845A 8A8D 9901
+7D9B 8EB5
+7A63 5134 52F7 703C 737D 8618 74E4 79B3 7A70 4274
+8E9F 9B24
+58CC 56B7 58E4 6518 7219 7E95
+8BA9 61F9 8B72 8B93
+6254
+4ECD 20BA8 3B41 8FB8 793D 3EB1 967E
+82BF
+633C
+5982 909A 4F9E 5E24 6847 8339 94F7 6E2A 7B4E 88BD
+8498 92A3 8761 5112 8560 9D11 5685 5B2C 5B7A 6FE1
+9D3D 66D8 71F8 85B7 8815 8966 98A5 91B9 986C 9C6C
+6C5D 8097 4E73 8FB1 910F 64E9
+5165 6D33 55D5 5AB7 6EBD 7F1B 84D0 7E1F 8925
+6256 6741 8FBC 9CF0 5DBF
+637C
+53D2 82E5 5F31 504C 6E03 712B 9100 6949 84BB 7BAC
+7BDB 7207 9C19 9C2F 9DB8
+5D76
+5A51 6875 7524 7DCC 8564 4B10
+6A64 854A 854B 7E60 8602 8603
+6C6D 6798 82AE 4132 868B 9510 745E 777F 8739 92B3
+92ED 53E1 289E8 3AAB 58E1
+5827 648B 58D6
+962E 670A 8F6F 800E 5044 8EDF 5A86 744C 789D 7DDB
+44F4 8F2D 74C0 791D
+77A4
+95F0 6DA6 958F 95A0 6F64 6A4D 81B6
+8338
+620E 809C 6804 72E8 7ED2 5BB9 3B5C 6BE7 8319 8363
+70FF 4846 5D58 41EF 7D68 7FA2 5AB6 5AC6 5D64 6408
+6411 6EB6 38D1 6995 69AE 69B5 7194 7462 84C9 7A41
+877E 9555 7E19 878D 878E 8923 99E5 9AF6 5B2B 5DB8
+7203 9394 701C 5DC6 66E7 8811 2A0FE
+5197 5B82 5748 22AE8 5087 8EF5 6C04
+9D27
+7A43
+FDD0-3117
+4E72 5B5C 5179 54A8 59D5 59FF 830A 6825 7386 7D0E
+8332 8D40 8D44 6DC4 79F6 7F01 8C18 55DE 5B73 5D6B
+6914 6E7D 6ECB 7CA2 8F8E 5B76 8458 89DC 8A3E 8CB2
+8CC7 8D91 9111 9531 798C 7A35 7DC7 922D 9543 9F87
+8F1C 6FAC 8AEE 8DA6 8F3A 9319 9AED 9CBB 9F12 937F
+93A1 74BE 983F 983E 9BD4 9D85 9F4D 2A5CB 9C26
+84FB
+20094 4ED4 5407 674D 3EAD 59C9 59CA 77F7 79C4 5470
+7C7D 8014 80CF 8678 79ED 6893 7B2B 91E8 5559 7D2B
+6ED3 8A3F 699F
+5B57 81EA 8293 39D8 5033 525A 6063 7278 8321 6E0D
+7725 7726 80D4 80FE 6F2C 3C74
+5B50 5D30 6A74
+5E00 531D 6C9E 5482 8FCA 62F6 7D25 7D2E 9254 9B73
+81DC 81E2
+6742 7838 507A 5592 97F4 96D1 22D8D 5DBB 78FC 894D
+96DC 56CB 56D0 96E5
+548B
+5219 629E 6CA2 62E9 6CCE 6CFD 8D23 5247 8FEE 835D
+5536 5567 5E3B 7B2E 8234 8CAC 6EAD 77E0 5616 5AE7
+5E58 7BA6 6A0D 8ACE 8D5C 64C7 6FA4 769F 7794 7C00
+790B 8B2E 8CFE 880C 8957 9F5A 456A 9F70 9E05
+5928 4EC4 5E82 6C44 6603 6617 6351 5D31
+4F2C 8536
+707D 707E 753E 54C9 683D 70D6 6E3D 83D1 7775 8CF3
+5BB0 5D3D 43C1
+518D 5728 6257 4FA2 6D05 8F7D 50A4 8F09 9168 510E
+7E21
+8D3C 621D 8CCA 9C97 9BFD 8808 9C02 9C61
+50AE 906D 7CDF 8E67 91A9
+51FF 947F
+65E9 67A3 86A4 68D7 6FA1 74AA 85BB 7E70 85FB
+7076 7681 7682 5515 5523 688D 9020 55BF 8241 6165
+566A 71E5 7C09 8B5F 8DAE 8E81 7AC3 7AC8
+6806
+90B9 9A7A 8BF9 90F0 966C 68F7 68F8 83C6 9112 7B83
+7DC5 8ACF 9CB0 9139 9BEB 9EC0 9A36 9F71 9F7A
+8D71 8D70
+594F 63CD 6971 3D75
+9BD0
+5142 7CCC 7C2A 7C2E 9415 941F
+54B1
+661D 6CAF 685A 5BC1 3CEB 63DD 5646 648D 5127 6505
+6512 5139 6522 8DB1 7938 8DB2
+6682 3506 66AB 8CDB 8D5E 933E 6FFD 8E54 913C 74C9
+8D0A 93E8 74D2 373A 7052 8B83 9147 74DA 79B6 8978
+8B9A 9961
+600E
+8C2E 8B56 8B5B
+56CE
+5328 7242 7F98 8D43 8CCD 81E7 8CD8 8535 8D13 9AD2
+8D1C
+9A75 99D4
+3638 5958 5F09 810F 585F 846C 92BA 81D3 81DF
+5897 589E 618E 7F2F 912B 6A67 71B7 7494 77F0 78F3
+7F7E 7E52 8B44
+9503 92E5 8D60 7511 8D08
+9C5B
+79DF 8445 84A9
+5346 8DB3 5352 54EB 5D12 5D2A 65CF 50B6 7BA4 8E24
+8E3F 955E 93C3
+8BC5 7EC4 963B 4FCE 723C 73C7 7956 7D44 8A5B 977B
+4503
+93BA
+6628 79E8 637D 838B 690A 7422 7A13 7B70 923C
+20087 5DE6 4F50 5528 7E53
+4F5C 5750 3634 5C9D 5C9E 600D 963C 4FB3 80D9 5511
+5EA7 795A 505A 3930 3B6E 888F 8443 8444 98F5 3600
+7CF3
+5497 84D9
+539C 6718 3B70 55FA 6A36 87D5 7E97
+5D8A 5634 5DB5 567F 74BB
+682C 7D4A 9154 6700 666C 797D 7A21 7F6A 8FA0 69DC
+917B 9189 855E 92F7 930A 6A87 6A8C
+67A0 7A5D
+94BB 28256 8E9C 947D
+7E64 7F35 7E82 7E89 7C6B 7E98
+6525 945A
+5C0A 58AB 58FF 5D9F 6A3D 9075 7E5C 7F47 940F 9CDF
+9C52 9DF7
+50D4 5642 6499 453F 8B50
+6358 928C
+9D8E
+5B97 5027 7EFC 9A94 582B 5D4F 5D55 60FE 68D5 7323
+8159 6721 6936 847C 5D78 4053 7A2F 7D9C 7DC3 71A7
+4226 7DF5 7FEA 876C 8E28 8E2A 78EB 9350 8C75 8E64
+9A0C 9B03 9A23 9B09 9B37 9BEE 9BFC 9441
+603B 506C 6374 60E3 6121 63D4 6403 50AF 3DD3 6460
+7DCF 84D7 7E02 7E3D 93D3
+7EB5 662E 75AD 500A 7314 7882 7CBD 7CC9 7632 7E26
+931D 7E31 7CED
+6F48
+FDD0-3118
+5472 75B5 8D7C 5068 8D80 8DD0 29A28 9AB4 7E12 8800
+9ACA 9F79
+8BCD 3639 5790 67CC 73C1 5832 7960 8308 8328 3935
+74F7 46D0 8A5E 8F9D 8F9E 6148 7506 78C1 96CC 4A0F
+9E5A 7CCD 8FA4 98FA 9908 3602 5B28 6FE8 858B 9D1C
+7920 8FAD 9DBF 9DC0
+6B64 4F4C 6CDA 73BC 7689 7D2A 9B86
+673F 6B21 4F3A 4F7D 523A 523E 5E9B 6828 8326 7D58
+83BF 86D3 8D50 8CDC 8786 3A5E
+5693 64E6 6503
+7924
+906A 56C3
+518A 518C 4FA7 5395 607B 62FA 6D4B 6547 755F 5074
+53A0 7B27 7CA3 5EC1 60FB 6E2C 7B56 8417 7B5E 7B74
+8434 5884 3A32 7BA3 84DB 61A1 25C21 7C0E
+5072 5A47 731C
+624D 72B2 6750 8D22 8CA1 88C1 6EA8 7E94
+6BDD 91C7 5038 554B 5BC0 5F69 63A1 776C 8DF4 7DB5
+8E29
+57F0 68CC 83DC 8521 7E29
+64A1 64CD 7CD9
+66FA 66F9 5608 5D86 6F15 69FD 84F8 25562 825A 87AC
+893F 93EA
+8278 8349 613A 61C6 9A32
+808F 9135 8959
+2EBE 8279
+51D1 6E4A 8160 8F8F 8F33
+53C2 53C3 53C4 98E1 9A96 53C5 55B0 6E4C 50AA 5B20
+9910 9A42
+6B8B 8695 60ED 6B98 615A 8745 6159 45DD 5B31 8836
+883A
+60E8 6701 6158 61AF 7A47 7BF8 9EEA 9EF2
+707F 36D1 63BA 5B71 7CB2 647B 6FAF 71E6 74A8 8592
+8B32
+510F 7218
+5D7E
+5C91 6D94 7B12 68A3
+4ED3 4EFA 4F27 6CA7 82CD 9E27 5009 8231 5096 5D62
+6EC4 734A 84BC 8259 87A5 9DAC
+85CF 9476
+416E 8CF6
+6FF8 7F49 6B0C
+66FD 564C
+5C42 66FE 5C64 5D92 3B1D 7AF2 4255 9A53
+8E6D
+7C97 89D5 9E81 9E84 9EA4
+5F82 6B82
+4FC3 731D 8128 9162 7604 8A8E 8D97 5648 61B1 851F
+8E27 918B 762F 7C07 7E2C 8E59 4944 9F00 8E74 8E75
+9863
+6413 7473 64AE 78CB 9073 8E49 919D
+3B6B 8658 75E4 7749 77EC 5D6F 5D73 84AB 8516 9E7E
+9142 9E7A 8EA6
+811E
+5249 5252 539D 590E 632B 63AA 839D 83A1 65AE 68E4
+902A 9509 9519 84CC 6B75 92BC 932F
+5D14 50AC 51D7 7F1E 5894 3720 5D89 615B 6467 69B1
+7355 69EF 78EA 7E17 93D9
+6F3C 7480 8DA1 76A0
+4F1C 5FF0 75A9 5005 7C8B 7D23 7FC6 8103 8106 5550
+555B 60B4 6DEC 6BF3 7120 813A 8403 7601 7CB9 7DB7
+7FE0 81AC 81B5 6FE2 7AC1 9847 81CE 894A
+4E7C
+6C46 64BA 92D1 9569 8E7F 651B 8EA5 9479
+6AD5 5DD1 6B11 7A73
+7A9C 6BA9 71B6 7BE1 7C12 7AC4 7228
+6751 90A8 76B4 8E06 6F8A 7AF4
+5B58 4F9F 62F5
+520C 5FD6
+5BF8 540B 7C7F
+5306 56EA 56F1 5FE9 679E 82C1 6031 60A4 217DF 68C7
+7127 249DA 8471 6F17 8061 9AA2 66B0 6A05 6A2C 719C
+747D 7481 7DEB 8066 806A 84EF 8525 779B 71EA 7BF5
+8070 87CC 936F 7E71 93E6 9A18 9A44
+4ECE 4E1B 5F93 5A43 5B6E 5F96 5F9E 60B0 6DD9 742E
+6152 6F0E 6F40 6F68 8AB4 8CE8 8CE9 6A37 53E2 85C2
+7047 6B09 721C
+6181 8B25
+8310
+FDD0-3119
+53B6 7E9F 4E1D 53F8 3EA8 7CF9 79C1 549D 6CC0 601D
+8652 9E36 5AA4 65AF 7D72 7F0C 86F3 6952 3D32 9270
+98D4 51D8 53AE 69B9 7997 7F73 8724 9536 5636 565D
+21852 5EDD 6495 6F8C 78C3 79A0 25BE8 7DE6 92D6 71CD
+856C 8784 452E 87D6 87F4 98B8 9A26 9401 29170 9DE5
+9F36 7C6D
+6B7B
+5DF3 4E96 56DB 5BFA 6C5C 4F40 4FA1 5155 59D2 5B60
+676B 6CD7 6CE4 7940 9972 9A77 3B52 67F6 726D 5A30
+6D0D 6D98 8082 98E4 7B25 801C 91F2 7AE2 8997 55E3
+8086 8C84 9236 923B 98FC 99DF 79A9 5129 857C 7003
+4FEC 6056 92AF
+4EE8 6331 6332 6492
+6D12 8A2F 9778 6F75 7051 8EA0
+5345 6CE7 98D2 810E 9212 8428 644B 98AF 99BA 85A9
+6AD2 8644
+20BBF 96A1
+95AA
+8272 6D13 681C 6DA9 556C 94EF 6B6E 7417 96ED 55C7
+745F 6B70 92AB 6F81 61CE 64CC 6FC7 7637 7A51 6F80
+74B1 7012 7A61 7E6C 8F56 93FC 8B45 98CB
+6E0B 6FCF 7A6F
+6BE2 6122 63CC 585E 6BF8 816E 567B 9CC3 984B 4C04
+9C13
+4222
+55EE 8D5B 50FF 8CFD 7C3A
+5625
+63BB 9A9A 6145 6414 6E9E 7F2B 7E45 81CA 9CCB 9A12
+9A37 9C20 9C62
+626B 6383 5AC2 4545
+57FD 7619 6C09 77C2 9ADE
+87A6
+635C 5EC0 998A 55D6 5ECB 641C 6449 6EB2 7340 910B
+6457 22CB7 8490 84C3 953C 98D5 422D 8258 878B 9199
+93AA 993F 98BC 98BE 9A2A
+53DC 53DF 5081 55FE 778D 64DE 85AE 64FB 6AE2 85EA
+7C54
+8184 7636
+55FD
+4E09 5F0E 53C1 6BF5 4200 6BFF 7299 9B16
+4ED0 4F1E 5098 7CC1 7CC2 9993 7CDD 7CE3 7CE4 7E56
+93D2 93FE 9730 994A
+4FD5 5E34 60B7 6563 9590
+58ED 6BF6 5381 6A75
+68EE 692E 69EE 8942
+6852 6851
+55D3 6421 78C9 892C 98A1 939F 9859
+4E27 55AA
+69E1
+50E7 448F 9B19
+82CF 7526 9165 7A23 7AA3 7A4C 6AEF 8607 8613 56CC
+4FD7
+738A 5919 6CDD 8083 6D2C 6D91 73DF 7D20 5BBF 6880
+6B90 7C9B 83A4 901F 9A95 5083 7C9F 8C21 55C9 5850
+5851 5ACA 612B 6EAF 6EB8 8085 9E54 50F3 3504 612C
+69A1 8186 89EB 8D9A 9061 619F 6A0E 6A15 6F5A 6F65
+24882 78BF 850C 906C 92C9 9917 3B18 6A5A 749B 7E24
+7C0C 8B16 8E5C 85D7 9A4C 9C50 9DEB
+8BC9 8A34 9BC2
+5506 36D6 5A11 686B 68AD 838F 509E 7743 55CD 7FA7
+644D 7F29 84D1 8D96 7C11 450B 7C14 7E2E 9AFF 9BBB
+6240 4E7A 3ABD 5522 7D22 7410 60E2 9501 55E9 22C62
+6E91 669B 7463 7485 8928 459B 9388 938D 9396 93BB
+93C1
+9024 6EB9 8736
+7411 55E6
+590A 6535 8295 867D 5020 54F8 6D7D 772D 837D 837E
+6ED6 7762 7D8F 8470 71A3 6FC9 9796 96D6
+7EE5 968B 9040 968F 96A8 74CD
+81B8 4B49 7021 9AC4 9AD3
+4E97 5C81 7815 795F 8C07 57E3 5D57 21ED5 6B72 6B73
+716B 775F 788E 9042 7A42 8AB6 8CE5 5B18 6FBB 96A7
+6A85 6A96 71E7 74B2 7A57 7E40 9083 79AD 7A5F 7E50
+65DE 7E78 895A 8B62 9406 9429 97E2
+72FB 75E0 9178
+5334
+7958 7B07 7B6D 7B97 849C
+5B59 72F2 5B6B 836A 98E7 640E 733B 98F1 69C2 84C0
+8575 859E
+635F 7B0B 96BC 7B4D 640D 69AB 7BB0 7C28 93A8 9DBD
+5FEA 677E 6780 5A00 67D7 502F 51C7 5D27 5EBA 68A5
+6DDE 83D8 5D69 7879 8719 61BD 6FCD 290ED 6AA7 9376
+9B06
+6002 609A 8038 7AE6 50B1 612F 3A26 6964 5D77 616B
+8073 99F7
+8BBC 5B8B 8BF5 9001 9882 8A1F 980C 8AA6 9938
+67A9 93B9
+FDD0-311A
+5475 963F 9515
+55C4
+554A
+FDD0-311B
+5594 5662
+54E6
+7B7D
+FDD0-311C
+59B8 59BF 94B6 5A3F 5A40 5C59 75FE
+8BB9 542A 56EE 8FD7 4FC4 5A25 5CE8 5CE9 6D90 73F4
+83AA 8A1B 7692 774B 4109 920B 9507 9E45 86FE 8A90
+78C0 981F 989D 9B64 96B2 984D 9D5D 9D5E 8B4C 21145
+9C2A
+6799 7808 980B 5641 9A00
+5384 5C75 6239 6B7A 5443 5C8B 627C 9628 545D 82CA
+8F6D 9638 54A2 54B9 20C65 57A9 59F6 5CC9 7810 530E
+6076 7828 4465 8685 997F 5054 537E 580A 60AA 63A0
+7565 7846 8C14 8EDB 960F 35C1 582E 5D3F 60E1 6115
+6E42 4748 8C5F 8EF6 9102 922A 5EC5 6424 6439 3B99
+7427 816D 843C 8A7B 904C 904F 50EB 8741 9537 9E57
+981E 989A 9913 9B65 5669 855A 89A8 8AE4 95BC 9929
+8C96 9354 9CC4 6B5E 984E 7918 6AEE 9C10 9D9A 8B8D
+9F43 9469 9F76 9C77
+64DC 9D48
+FDD0-311E
+54C0 54CE 5509 57C3 5A2D 6328 6B38 55F3 6EBE 92B0
+953F 566F 9384
+5540 6371 7691 6EB0 560A 6571 6573 769A 764C 9A03
+6BD0 6639 5A3E 77EE 853C 8EB7 6FED 972D 85F9 9744
+4F0C 827E 3637 7231 7839 784B 35D2 55CC 5867 5AD2
+611B 788D 9698 53C6 66A7 7477 95A1 50FE 416C 5B21
+61D3 58D2 61DD 66D6 74A6 8586 9932 9D31 76A7 77B9
+453D 99A4 7919 8B6A 8B7A 9440 9749
+9C6B
+FDD0-311F
+8BF6 8A92
+FDD0-3120
+51F9 356D 67EA 688E 8EEA 720A
+6556 53AB 55F7 55F8 5D85 5ED2 6EF6 7353 7352 969E
+646E 23281 71AC 7488 851C 9068 78DD 7FF1 8071 87AF
+7FFA 8B37 8B38 9CCC 93D6 9C32 9DD4 9F07
+629D 62D7 82BA 8884 957A 5AAA 5ABC 8956
+362D 5C99 6277 5773 5787 5CB0 5961 5965 50B2 5967
+9A9C 371C 5AEF 6160 22CC6 58BA 5DB4 61CA 64D9 6FB3
+96A9 93CA 9A41
+7FF6
+FDD0-3121
+8BB4 6CA4 6B27 6BB4 74EF 9E25 5878 6F1A 6B50 6BC6
+71B0 9D0E 750C 210BF 8B33 6AD9 93C2 9DD7 4972
+8192 9F75
+20676 5418 5455 5076 8162 5614 3496 8026 8545 85D5
+6004 616A
+85F2
+FDD0-3122
+5B89 4F92 5CD6 6849 6C28 5EB5 4002 8C19 5A95 83F4
+75F7 8164 843B 844A 9E4C 8A9D 84ED 978C 978D 76E6
+8AF3 99A3 76EB 9D6A 97FD 9D95
+73B5 557D 96F8 5111
+57B5 4FFA 5535 57EF 94F5 63DE 968C 7F6F 92A8
+72B4 5CB8 6309 6D1D 6848 80FA 834C 8C7B 5813 5A69
+4141 667B 6697 930C 95C7 9B9F 4B97 9EEF
+FDD0-3123
+5940 6069 217EF 717E 84BD
+5CCE
+6441 4B53
+FDD0-3124
+80AE 9AAF
+536C 5C87 6602 663B 44A2 3B7F
+678A 76CE 91A0
+FDD0-3125
+97A5
+FDD0-3126
+513F 800C 5150 4F95 5152 5CCF 6D0F 9651 682D 80F9
+834B 5532 9E38 7CAB 804F 88BB 8F00 42E9 9C95 9AF5
+96AD 9B9E 9D2F 8F5C
+53BC 5C12 5C13 5C14 8033 6D31 8FE9 9975 682E 6BE6
+73E5 94D2 723E 990C 99EC 85BE 9087 8DB0
+4E8C 5F0D 5F10 4F74 5235 54A1 36C5 8D30 8CAE 8848
+8CB3 8A80 927A 6A32
+FDD0-3127
+4E00 4E4A 5F0C 4F0A 8863 533B 541A 58F1 4F9D 54BF
+20C96 36C4 3CD6 6D22 794E 2343F 6098 7317 94F1 58F9
+63D6 6B39 86DC 90FC 5ADB 6F2A 7995 7A26 92A5 5B04
+566B 5901 747F 9E65 7E44 4AD1 6AB9 6BC9 91AB 9EDF
+8B69 9DD6 9EF3
+4E41 4EEA 531C 572F 5937 519D 5B90 6C82 8BD2 8FC6
+4F87 6021 6CB6 72CB 9974 54A6 59E8 5CD3 5DF8 5F2C
+605E 62F8 67C2 73C6 886A 8D3B 8FE4 5BA7 6245 6818
+684B 3EBF 74F5 7719 80F0 8A11 8CA4 8FFB 75CD 79FB
+801B 8898 51D2 7FA0 8413 86E6 8A51 8A52 8CBD 5A90
+6686 6938 8A83 8DE0 9057 9809 9890 98F4 7591 5100
+71AA 7BB7 5DAC 5F5B 5F5C 8794 907A 9824 5BF2 5DB7
+7C03 984A 294E7 4C4C 5F5D 5F5E 8B3B 93D4 89FA 3C18
+8B89 9E03
+4E59 5DF2 4EE5 9487 4F41 20BCB 653A 77E3 8094 5EA1
+8223 82E1 82E2 8681 91D4 501A 6246 914F 506F 7B16
+9018 5D3A 65D1 6905 9CE6 926F 65D6 88FF 8E26 8F22
+657C 8798 49E7 6AA5 4B72 7912 8264 87FB 9857 8F59
+9F6E
+4E42 20086 4E49 4EBF 5F0B 5208 5FC6 808A 827A 8BAE
+4EA6 3439 4F07 5C79 5F02 4F3F 4F5A 52AE 5453 5744
+5F79 6291 6759 8034 8285 8BD1 9091 4F7E 546D 5479
+5CC4 6008 603F 6613 678D 6B25 3CD1 6CC6 7088 79C7
+7ECE 82C5 8BE3 9A7F 4FCB 5955 5E1F 5E20 5F08 223D7
+67BB 6D02 6D42 73B4 75AB 7FBF 263F8 8F76 3465 5508
+57BC 6092 6339 6359 6827 683A 6B2D 6D65 6D73 76CA
+8875 8C0A 52DA 57F6 57F8 60A5 639C 6BB9 7570 785B
+7F9B 7FCA 7FCC 88A3 8A32 8A33 8C59 8C5B 91F4 966D
+96BF 5E46 6561 6679 68ED 6B94 6E59 7132 2497F 433B
+86E1 8A4D 8DC7 8EFC 9038 9220 4E84 517F 3534 610F
+6EA2 7348 75EC 776A 7AE9 41FC 7F22 7FA9 8084 88D4
+88DB 8A63 9AAE 52E9 5AD5 5ED9 698F 7617 8189 8734
+977E 99C5 5104 3989 648E 69F8 6BC5 6F69 71A0 71A4
+761E 84FA 8ABC 9552 9E5D 9E62 9ED3 5293 3601 571B
+58BF 5B11 5B1F 5DA7 61B6 61CC 66C0 6BAA 3D69 6FBA
+71BC 71DA 7631 7796 7A53 7E0A 8257 87A0 5BF1 6581
+66CE 6A8D 6B5D 71E1 71F1 7FF3 7FFC 81C6 858F 8939
+8CF9 9BA8 7654 8D00 93B0 9571 7E76 7E79 85D9 85DD
+8C77 972C 9BE3 9D82 9D83 39A4 7037 8B6F 8B70 91B3
+91B7 9950 2113B 25725 8619 943F 9DC1 9DCA 56C8 61FF
+9A5B 9DE7 9DFE 8649 897C 9F78 8B9B
+5307 8864 8FB7 5B9C 7569 692C 841F 9D8D 7C4E
+4E2B 5727 538B 5416 5E98 62BC 6792 57AD 9E26 6860
+9E2D 57E1 5B72 690F 9D09 930F 9D28 58D3 9D76 941A
+7259 4F22 5391 5C88 5393 73A1 82BD 7B0C 869C 5810
+5D15 5D16 6DAF 731A 740A 7458 775A 8859 6F04 9F56
+2A632
+24D13 538A 5E8C 54D1 5516 555E 75D6 96C5 7602 279DD
+8565
+529C 5720 8F67 4E9A 897E 8BB6 4E9C 72BD 4E9E 8ECB
+8FD3 5A05 631C 7811 4FF9 6C29 5A6D 6397 8A1D 94D4
+63E0 6C2C 7330 8050 26716 5714 7A0F 7AAB 9F7E
+2E84 4E5B 5440
+54DF 5537 55B2
+503B 6396 668D 6930 564E 6F71 882E
+8036 6353 94D8 63F6 91FE 92E3 64E8 9381
+4E5F 5414 51B6 57DC 91CE 5622 6F1C 58C4
+4E1A 53F6 66F3 9875 66F5 591C 62B4 90BA 4EB1 67BC
+9801 6654 67BD 70E8 35A1 5558 6DB2 8C12 5828 6B97
+814B 696A 696D 8449 9113 998C 50F7 6B4B 58B7 420E
+9765 5DAA 5DAB 64DB 66C4 66C5 6FB2 71C1 2681C 8B01
+9134 9923 5688 64EB 66D7 76A3 77B1 9371 64EA 77B8
+790F 42A6 9391 9941 9D7A 7217 9437 9768 9A5C 9E08
+7237 4EAA 723A
+5E7A 592D 5406 5996 6796 6B80 7945 8A1E 5593 6946
+8170 847D 4301 4645 9D01 9080
+723B 5C27 5C2D 80B4 579A 59DA 5CE3 409A 8F7A 5004
+70D1 73E7 7A91 509C 582F 63FA 8C23 8EFA 347E 55C2
+5AB1 5FAD 612E 6416 6447 733A 3A31 669A 69A3 7464
+7476 9059 9065 929A 98D6 9906 5DA2 5DA4 7AAF 7AB0
+4504 991A 7E47 8B20 8B21 26FBE 9390 9CD0 4B19 98BB
+8628 908E 9864 9C29
+4EF8 5B8E 5C86 62AD 6773 72D5 54AC 67FC 82ED 7711
+7A85 7A88 8200 5060 5A79 5D3E 6E94 699A 84D4 9D22
+9F3C 95C4 9A15 9F69 9DD5
+7A7E 8981 94A5 25052 836F 7A94 888E 7B44 8A4F 846F
+718E 899E 977F 735F 9E5E 25AAF 85AC 66DC 71FF 825E
+77C5 85E5 8000 7E85 9DC2 8B91 9470
+4F18 5FE7 6538 5466 602E 6CD1 5E7D 60A0 900C 9E80
+6EFA 6182 512A 5698 7000 913E 6ACC 7E8B 8030
+5C22 5C24 7531 6C8B 72B9 3F55 233DE 6CB9 80AC 90AE
+6023 65BF 75A3 5CF3 6D5F 79DE 4343 94C0 5064 839C
+83B8 86B0 8A27 6E38 7336 9030 90F5 9C7F 6962 7337
+904A 923E 9C89 8F0F 99C0 8763 9B77 8555 8F36 9B8B
+6AFE
+6709 4E23 5363 9149 82C3 3DAD 7F91 5EAE 682F 7F90
+6884 8048 811C 83A0 94D5 6E75 870F 7989 92AA 4B00
+69F1 7256 9EDD 61EE
+2E80 53C8 53F3 5E7C 4F51 4F91 72D6 7CFF 54CA 56FF
+59F7 5BA5 5CDF 67DA 7270 8BF1 5500 7950 8FF6 4001
+86B4 4EB4 8C81 91C9 916D 8A98 9F2C
+53CB 5B67 848F 7257
+6079 5266 70DF 73DA 80ED 5063 5571 5D26 393F 6DCA
+6DF9 7109 7111 479B 9609 6E6E 7312 814C 83F8 7159
+787D 5AE3 6F39 4167 9122 9183 95B9 5B2E 61E8 7BF6
+61D5 81D9 9EEB
+8BA0 4E25 8A00 5CA9 5EF6 6616 6CBF 708E 82AB 598D
+59F8 7814 5A2E 76D0 5A2B 72FF 7402 784F 90D4 9586
+960E 5D52 5D53 6E7A 839A 5869 63C5 694C 41FE 8A7D
+789E 7B75 7D96 8712 8505 989C 8664 95BB 53B3 6A90
+984F 9854 58DB 7C37 56B4 5DCC 6AE9 9EEC 5DD7 58E7
+5B4D 5DD6 9E7D 7939 9EA3
+5935 6281 6C87 4E75 5156 5944 4FE8 5157 533D 5F07
+884D 5043 53A3 63A9 773C 9153 5D43 611D 624A 63DC
+3B7A 68EA 6E30 6E37 7430 8412 90FE 693C 7F68 9043
+9692 6F14 88FA 5D96 622D 8758 8917 565E 8EBD 9B47
+7E2F 6ABF 9A13 9EE1 53B4 2502C 9C0B 9DA0 9EE4 9F5E
+9F91 7517 9EED 513C 9869 9F34 5DD8 5DDA 9F39 66EE
+9B58 9F74 9EF6
+538C 95EB 599F 89C3 726A 54BD 59F2 5F65 5F66 781A
+5501 5BB4 664F 8273 898E 9A8C 5050 7114 8C1A 55AD
+5830 6565 70FB 7130 7131 786F 9681 96C1 50BF 693B
+6E8E 6EDF 8455 9CEB 53AD 5895 66A5 917D 5B0A 8C33
+290C0 990D 9D08 3DF3 3DFC 71C4 71D5 8AFA 8D5D 48AD
+9B33 66D5 9D33 9A10 56A5 5B3F 8276 8D0B 9140 4A04
+4CE1 3B2B 66E3 7213 91B6 9A34 9DC3 7054 8D17 89FE
+8B8C 91BC 995C 9A57 9DF0 8277 2A64A 704E 9A60 7067
+8B9E 8C53 91C5 8C54 7069
+8A01 6A2E 7196 8EC5 6B15
+56D9 56E0 9625 9634 4F8C 5794 59FB 39E2 6D07 97F3
+9A83 6836 6BB7 6C24 8335 51D0 5A63 4104 79F5 836B
+94DF 9670 5591 5819 6114 7B43 7D6A 88C0 967B 9682
+6B45 6EB5 6147 647F 7616 798B 92A6 7DF8 852D 9787
+8AF2 9712 290EC 99F0 567E 95C9 9720 3D8F 97FE
+5198 4E51 3542 541F 72BE 65A6 82C2 57A0 6CFF 3597
+5701 5CFE 70CE 72FA 73E2 8A14 8A1A 5A6C 5BC5 5D1F
+5D2F 6DEB 8376 8A21 94F6 921D 9F82 6EDB 7892 5924
+911E 9280 5656 6BA5 748C 8529 8ABE 569A 6AAD 87EB
+4D26 972A 9F57 9DE3
+4E5A 200CA 5EF4 5C39 5F15 5432 996E 8693 8D7A 6DFE
+920F 9690 98F2 9777 98EE 6704 8F11 96A0 78E4 8D9B
+763E 5DBE 6A83 6FE5 6FE6 87BE 96B1 6AFD 861F 766E
+8B94
+5370 6D15 80E4 57BD 831A 5837 6E5A 730C 5ED5 8491
+9173 616D 6196 6197 764A 9BA3 3865 61DA 6ABC 4543
+7C8C
+592E 5489 59CE 62B0 6CF1 6B83 80E6 770F 79E7 9E2F
+9260 96F5 9785 9D26
+626C 7F8A 65F8 6768 7080 9626 9633 98CF 4F6F 52B7
+6C1C 75A1 9496 579F 5F89 661C 6D0B 7F8F 70CA 73DC
+26B75 773B 5D35 5D38 63DA 86D8 967D 656D 6698 694A
+716C 760D 7993 3B15 8AF9 8F30 935A 9D39 98BA 940A
+9C11 9737 9E09
+4EF0 4F52 5771 5C9F 517B 67CD 70B4 6C27 75D2 7D3B
+509F 8EEE 6143 6967 6C31 8746 990A 99DA 3526 61E9
+6501 4446 7662
+600F 6059 6837 7F95 8A47 69D8 6F3E 6A23 7001
+594D 7FAA 7922
+5E94 5FDC 82F1 685C 5040 5568 5A74 7EEC 83BA 20E04
+21398 5A96 6E36 48D0 5AC8 6720 7150 745B 5624 6484
+78A4 7F28 7F42 8CCF 9533 6A31 748E 7507 7DD3 8767
+7F43 892E 9348 9D2C 9E66 5B30 61C9 81BA 9719 97FA
+9E70 7516 9D91 56B6 5B46 5B7E 6516 7F4C 8B4D 9DA7
+6AFB 74D4 792F 8621 8B7B 9DAF 944D 7E93 8833 9DEA
+9DF9 9E0E 9E1A
+76C1 8FCE 76C8 8314 8367 55B6 83B9 86CD 2870F 6E81
+6E8B 8424 8426 50CC 584B 6979 6EE2 8425 843E 6F46
+7192 84E5 7469 4294 877F 5B34 7E08 87A2 6FD9 6FDA
+6FF4 71DF 89AE 8B0D 8D62 7005 85C0 93A3 650D 701B
+7020 2294F 702F 7034 8D0F 6AFF 7C5D 7C6F
+77E8 6D67 90E2 68AC 988D 9895 9896 646C 4B2C 5F71
+6F41 7484 763F 7A4E 9834 5DCA 5EEE 766D
+6620 786C 5AB5 668E 81A1 565F 9795 941B 9C66
+73F1 6125 8747 7E04 8805 651A 7050 705C 8EC8
+FDD0-3128
+4E4C 572C 5F19 6C59 6C5A 6C61 545C 5DEB 6747 90AC
+5C4B 6D3F 8BEC 94A8 70CF 526D 7A8F 55DA 9114 6B4D
+8AA3 7BBC 8790 9D2E 93A2 9C1E
+65E0 6BCB 5433 5434 543E 5449 829C 5514 5A2A 6D16
+6D6F 90DA 68A7 73F8 8323 8381 7121 7966 94FB 9E40
+8708 8A88 7991 7491 856A 87F1 9BC3 9D50 8B55 9F2F
+9DE1
+4E94 5348 4EF5 59A9 5E91 5FE4 6003 65FF 3B33 6B66
+739D 4FAE 4FC9 5035 6342 554E 5A2C 727E 73F7 6440
+7894 9E49 7193 7466 821E 5AF5 5EE1 61AE 6F55 511B
+6A46 7512 9D61 8E8C
+5140 52FF 3433 620A 4F06 5C7C 6264 9622 575E 5C89
+674C 5FE2 7269 77F9 82B4 8FD5 537C 6544 8BEF 609E
+609F 60AE 7C85 6664 7110 901C 5A7A 5D4D 75E6 9770
+9A9B 5862 5966 5D68 6EA9 9696 96FA 96FE 5BE4 7183
+8AA4 9E5C 92C8 7AB9 907B 4A01 971A 9F3F 9727 9A16
+9F40 8601 9DA9
+4E44 52A1 4F0D 52D9 933B
+7A75 52B8 6316 6D3C 5A32 7556 7A8A 5AA7 86D9 55D7
+6432 6E9B 6F25 7AAA 9F03 6528
+5A03
+74E6 4F64 5493 39DA 90B7
+8049 889C 55E2 817D 8183 896A 97C8 97E4
+5C72 54C7 74F2
+631D 502D 6DA1 5529 6DB9 83B4 6E26 7327 7A9D 8435
+8717 7AA9 8778 8E12 64BE
+6211 5A50 6370 4C00
+4EF4 6C83 809F 5367 6782 81E5 5053 637E 6DB4 5A89
+5E44 63E1 6E25 7125 786A 6943 815B 65A1 7783 20FDF
+64ED 6FE3 9F8C 74C1 81D2 96D8 9F77
+6B6A 558E 7AF5
+5D34
+5916 20C3B 591E 9861
+5371 5A01 20CFF 70D3 504E 55B4 364E 5A99 6104 63CB
+63FB 6E28 840E 9036 9687 9688 5FAE 6933 6972 6EA6
+7168 8468 8473 8A74 8732 875B 89A3 71F0 8587 9CC2
+9C03 9C04 5DCD
+56D7 97E6 5729 56F4 5E0F 6CA9 95F1 8FDD 5CD7 5CDE
+6D08 97CB 6845 6DA0 552F 5E37 60DF 7859 7EF4 55A1
+570D 5A81 5E43 6E4B 6E88 741F 912C 5D6C 9055 6F4D
+7DAD 6F59 6F7F 78D1 84F6 9180 6FF0 934F 95C8 9BA0
+7653 4260 89B9 973A 6B08 72A9
+5383 4F1F 4F2A 5C3E 7EAC 59D4 3B4F 709C 73AE 829B
+82C7 6D27 5A13 5C57 6D58 8BFF 5049 507D 5D23 68B6
+75CF 784A 8371 5BEA 5D54 5FAB 6107 7325 9AA9 6690
+6932 7152 744B 75FF 41FB 8172 8249 8466 848D 97EA
+9AAA 9AAB 50DE 9C94 5130 64B1 78C8 25BE4 7DEF 8AC9
+8E13 97D1 9820 3B19 853F 285E8 9361 9BAA 6FFB 85B3
+97D9 98B9 58DD 7022 8624 97E1 6596
+536B 4E3A 672A 4F4D 5473 70BA 754F 80C3 82FF 53DE
+8ECE 5C09 8C13 5582 5AA6 6E2D 3DC9 7232 83CB 715F
+78A8 873C 6170 71AD 729A 7DED 851A 885B 61C0 748F
+7F7B 885E 8B02 9927 9B87 87B1 893D 9935 8F4A 9B4F
+85EF 93CF 9728 9CDA 9956 8636 8B86 8E97 4C81 8B8F
+8E9B
+6364 7140 732C 589B 7E05 875F 5DB6
+5F2F 525C 5A60 5E35 5846 6E7E 873F 6F6B 8C4C 5F4E
+58EA 7063
+4E38 5213 6C4D 7EA8 5B8C 5C8F 628F 8284 73A9 7D08
+6356 987D 70F7 7413 9811 4BC8 7FEB
+5B9B 5007 550D 633D 76CC 57E6 5A49 60CB 665A 6669
+689A 7EFE 8118 667C 6900 742C 7696 83C0 8416 7579
+7755 7897 7DA9 7DB0 8F13 8E20 92C4 92D4 4A4A 3736
+4E07 534D 5350 59A7 5FE8 6365 8115 8CA6 8155 842C
+8F10 6FAB 933D 858D 87C3 8D03 93AB 4951 8D0E
+909C 6764 7B02
+6637 6E29 586D 3B08 6985 6EAB 8F92 6B9F 7465 761F
+8570 8F3C 8C71 8F40 9CC1 97B0 29948 9C1B 9C2E
+5301 6587 5F63 7EB9 7086 739F 82A0 95FB 7D0B 8689
+868A 73F3 960C 741D 96EF 7612 805E 99BC 9B70 9CFC
+9D0D 87A1 95BA 95BF 87C1 95C5 9F24 95E6
+520E 543B 5FDF 6286 5461 80B3 7D0A 687D 8117 7A33
+7A4F 7A69
+95EE 598F 6C76 554F 6E02 83AC 63FE 6435 9850 74BA
+545A 922B 93BE
+21BC1 5C23 5C29 5C2A 5C2B 6C6A
+4EA1 4EBE 5166 738B 4EFC 5F7A 869F 83A3
+34C1 7F52 7F51 5F80 5F83 7F54 5F8D 60D8 6680 68E2
+83F5 86E7 8F8B 7DB2 8744 8AB7 8F1E 7007 9B4D
+5984 5FD8 65FA 76F3 8FCB 671B 6722 4911
+6789 7139
+7FC1 55E1 6EC3 9E5F 8789 9393 9DB2
+3622 52DC 5963 5855 5D61 66A1 4425 84CA 7788 806C
+3732
+74EE 8579 7515 7F4B 9F46
+FDD0-3129
+625C 7EA1 8FC2 8FC3 7A7B 7D06 8676 9653 5539 6DE4
+76D3 6BFA 7600 7B8A
+4E90 4E8E 4F03 36A5 3B30 9098 4F59 59A4 6275 6745
+6B24 7397 7399 65BC 76C2 81FE 9C7C 4E7B 4FDE 516A
+79BA 7AFD 4342 8867 5A1B 5A2F 5A31 6859 72F3 8201
+8330 8C00 9151 9980 6E14 96E9 9B5A 5823 582C 5D33
+5D4E 5D5B 3965 6109 63C4 6970 6E1D 6E61 756D 7862
+8174 8438 9685 611A 65D5 3B02 6961 6986 6B48 724F
+745C 8245 842E 865E 89CE 903E 9AAC 6F01 776E 7AAC
+6B76 7FAD 4433 8753 8915 8ADB 96D3 9918 4C3B 6F9E
+8206 854D 89A6 8E30 5B29 87B8 8F3F 935D 28A36 6B5F
+74B5 8B23 9BBD 9A1F 9AC3 65DF 7C45 861B 9C05 4CA3
+9DE0 9E06
+4E0E 4E88 4F1B 5B87 5C7F 7FBD 2ED7 96E8 4FC1 4FE3
+79B9 8BED 5704 5CFF 504A 3531 532C 5709 5EBE 6554
+7964 3762 659E 9105 50B4 5BD9 6940 7440 7610 842D
+38C3 8207 8A9E 7AB3 92D9 9828 9F89 5673 8C90 5DBC
+61D9 399B 6594 9E8C 860C 9F6C
+8080 7389 9A6D 572B 807F 59AA 5FEC 828B 828C 996B
+80B2 3922 6631 72F1 79D7 90C1 4FFC 5CEA 5F67 6D74
+7821 831F 94B0 9884 57DF 5809 5FA1 6086 60D0 6B32
+6DE2 6DEF 8C15 9608 5585 5590 55A9 55BB 5A80 5BD3
+5EBD 68DB 68DC 68EB 7134 7419 77DE 7872 26C40 9033
+98EB 99AD 9E46 6108 6BD3 6EEA 715C 3F63 7A22 7F6D
+8248 88D5 8A89 9047 923A 9810 5AD7 5D8E 622B 7344
+7609 4205 42ED 7DCE 84AE 84E3 871F 872E 463B 8F0D
+9289 564A 617E 6F4F 7A36 84F9 92CA 9CFF 224B0 6FA6
+71CF 79A6 8AED 8C6B 9079 9325 95BE 9D25 9D2A 5125
+2148A 71E0 7BFD 8577 8581 9E6C 7652 7907 7916 7E58
+27450 91A7 9B4A 9D52 791C 7A65 9947 6AF2 9731 8B7D
+8F5D 942D 6B0E 9A48 9B3B 7C5E 9C4A 9DF8 6B1D 9E12
+9FA5 8EC9 9B30 9B31 706A 7C72 7229
+6327 8362 6F9A 9BF2
+66F0 66F1 7EA6 7D04 7BB9 5F5F 77F1 5F60
+2E9D 6708 6209 5216 599C 5C84 6288 216DF 5CB3 73A5
+793F 6071 4195 6085 60A6 868E 868F 8ECF 94BA 9605
+6373 8DC0 8DC3 4847 7CA4 8D8A 9205 7CB5 925E 4926
+95B1 95B2 6A3E 7BD7 5B33 5DBD 294E5 9FA0 3730 3B26
+7039 7C46 9EE6 721A 8625 8E8D 79B4 7C65 9E11 7C70
+9E19
+56E6 9E22 5248 51A4 6081 7722 9E33 5BC3 6DF5 6E01
+6E06 6E0A 6E15 60CC 68E9 3F93 847E 870E 9E53 7BA2
+84AC 8735 88F7 9CF6 485D 99CC 9D1B 5B3D 4949 9D77
+7041 9F18 9F1D
+5143 5186 8D20 5458 56ED 6C85 90A7 676C 57A3 7230
+8C9F 539F 54E1 5706 7B0E 8696 8881 53A1 570E 63F4
+6E72 7328 7F18 8312 9F0B 5712 5713 586C 5AB4 5AC4
+6E90 6E92 733F 7342 699E 69AC 849D 8F95 7DE3 7E01
+875D 876F 9B6D 4CAE 6A7C 7FB1 8788 8597 8B1C 8F45
+9EFF 93B1 6ADE 908D 9A35 9DA2 9DB0 53B5
+8FDC 76F6 903A 9060 92FA
+5917 8099 59B4 3B47 6028 82D1 57B8 884F 9662 5086
+5A9B 63BE 7457 613F 7990 88EB 8911 566E 8924 9858
+915B 9228
+6655 7F0A 6688 7174 8480 596B 6C32 6C33 8495 7E15
+8779 8D5F 9835 8D07 99A7
+4E91 52FB 5300 56E9 5998 6C84 7EAD 6600 82B8 7547
+7703 79D0 6DA2 7D1C 8018 803A 90E7 96F2 612A 6EB3
+7B60 7B7C 9116 69B2 7189 84B7 6F90 92C6 6A52 7BD4
+7E1C 8553 9942
+5141 593D 628E 72C1 962D 9668 6B92 837A 5597 491E
+9217 9695 6B9E 99BB 78D2 891E 8CF1 9723 9F73
+5B55 679F 8FD0 607D 90D3 915D 508A 60F2 6120 9106
+614D 816A 904B 97EB 97F5 7185 71A8 7DF7 7DFC 4CB0
+8574 9196 8580 919E 992B 97D7 85F4 97DE 97FB 860A
+62A3 7E67
+4F63 62E5 75C8 9095 5EB8 50AD 55C8 96CD 5889 5ADE
+6175 6EFD 9118 69E6 5670 58C5 64C1 6FAD 90FA 955B
+81C3 7655 96DD 93DE 9CD9 5EF1 7049 9954 9C45 9DDB
+7670
+5581 63D8 7245 9899 9852 9C2B
+6C38 752C 548F 6CF3 4FD1 52C7 52C8 6810 57C7 6080
+67E1 6D8C 607F 3D04 509B 60E5 6111 6E67 7867 8A60
+584E 5D71 5F6E 6139 86F9 6142 8E0A 799C 9CAC 8E34
+9BD2
+7528 82DA 919F
+603A 783D
+__END__
+
+=head1 NAME
+
+Unicode::Collate::CJK::Zhuyin - weighting CJK Unified Ideographs
+for Unicode::Collate
+
+=head1 SYNOPSIS
+
+    use Unicode::Collate;
+    use Unicode::Collate::CJK::Zhuyin;
+
+    my $collator = Unicode::Collate->new(
+        overrideCJK => \&Unicode::Collate::CJK::Zhuyin::weightZhuyin
+    );
+
+=head1 DESCRIPTION
+
+C<Unicode::Collate::CJK::Zhuyin> provides C<weightZhuyin()>,
+that is adequate for C<overrideCJK> of C<Unicode::Collate>
+and makes tailoring of CJK Unified Ideographs in the order
+of CLDR's zhuyin (bopomofo) ordering.
+
+=head1 CAVEAT
+
+The zhuyin ordering includes some characters that are not
+CJK Unified Ideographs and can't utilize C<weightZhuyin()>
+for collation. For them, use C<entry> instead.
+
+=head1 SEE ALSO
+
+=over 4
+
+=item CLDR - Unicode Common Locale Data Repository
+
+L<http://cldr.unicode.org/>
+
+=item Unicode Locale Data Markup Language (LDML) - UTS #35
+
+L<http://www.unicode.org/reports/tr35/>
+
+=item L<Unicode::Collate>
+
+=item L<Unicode::Collate::Locale>
+
+=back
+
+=cut
diff --git a/lib/5.24.1/Unicode/Collate/Locale/af.pl b/lib/5.24.1/Unicode/Collate/Locale/af.pl
new file mode 100644
index 00000000..1a3a479e
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/af.pl
@@ -0,0 +1,6 @@
++{
+   locale_version => 1.14,
+   entry => <<'ENTRY', # for DUCET v7.0.0
+0149      ; [.1A7D.0020.0009] # LATIN SMALL LETTER N PRECEDED BY APOSTROPHE
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/ar.pl b/lib/5.24.1/Unicode/Collate/Locale/ar.pl
new file mode 100644
index 00000000..cf27cfd5
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/ar.pl
@@ -0,0 +1,15 @@
++{
+   locale_version => 1.14,
+   entry => <<'ENTRY', # for DUCET v7.0.0
+0629      ; [.2025.0021.0002] # ARABIC LETTER TEH MARBUTA
+FE94      ; [.2025.0021.0019] # ARABIC LETTER TEH MARBUTA FINAL FORM
+FE93      ; [.2025.0021.001A] # ARABIC LETTER TEH MARBUTA ISOLATED FORM
+0649      ; [.20C7.0021.0002] # ARABIC LETTER ALEF MAKSURA
+FBE8      ; [.20C7.0021.0017] # ARABIC LETTER UIGHUR KAZAKH KIRGHIZ ALEF MAKSURA INITIAL FORM
+FBE9      ; [.20C7.0021.0018] # ARABIC LETTER UIGHUR KAZAKH KIRGHIZ ALEF MAKSURA MEDIAL FORM
+FEF0      ; [.20C7.0021.0019] # ARABIC LETTER ALEF MAKSURA FINAL FORM
+FEEF      ; [.20C7.0021.001A] # ARABIC LETTER ALEF MAKSURA ISOLATED FORM
+FC90      ; [.20C7.0021.001B] # ARABIC LIGATURE ALEF MAKSURA WITH SUPERSCRIPT ALEF FINAL FORM
+FC5D      ; [.20C7.0021.001C] # ARABIC LIGATURE ALEF MAKSURA WITH SUPERSCRIPT ALEF ISOLATED FORM
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/as.pl b/lib/5.24.1/Unicode/Collate/Locale/as.pl
new file mode 100644
index 00000000..9a869cf6
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/as.pl
@@ -0,0 +1,13 @@
++{
+   locale_version => 1.14,
+   entry => <<'ENTRY', # for DUCET v7.0.0
+0982      ; [.23CC.0020.0002][.FFF1.0000.0000] # BENGALI SIGN ANUSVARA
+0981      ; [.23CC.0020.0002][.FFF2.0000.0000] # BENGALI SIGN CANDRABINDU
+0983      ; [.23CC.0020.0002][.FFF3.0000.0000] # BENGALI SIGN VISARGA
+0994      ; [.23CC.0020.0002][.FFF0.0000.0000] # BENGALI LETTER AU
+09A4 09CD 200D ; [.23DB.0020.0002][.FFF1.0000.0000] # <BENGALI LETTER TA, BENGALI SIGN VIRAMA, ZERO WIDTH JOINER>
+09A3      ; [.23DB.0020.0002][.FFF0.0000.0000] # BENGALI LETTER NNA
+0995 09CD 09B7 ; [.23EE.0020.0002][.FFF1.0000.0000] # <BENGALI LETTER KA, BENGALI SIGN VIRAMA, BENGALI LETTER SSA>
+09B9      ; [.23EE.0020.0002][.FFF0.0000.0000] # BENGALI LETTER HA
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/az.pl b/lib/5.24.1/Unicode/Collate/Locale/az.pl
new file mode 100644
index 00000000..c405fc57
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/az.pl
@@ -0,0 +1,51 @@
++{
+   locale_version => 1.14,
+# schwa doesn't require tailoring
+   entry => <<'ENTRY', # for DUCET v7.0.0
+00E7      ; [.193F.0020.0002] # LATIN SMALL LETTER C WITH CEDILLA
+0063 0327 ; [.193F.0020.0002] # LATIN SMALL LETTER C WITH CEDILLA
+00C7      ; [.193F.0020.0008] # LATIN CAPITAL LETTER C WITH CEDILLA
+0043 0327 ; [.193F.0020.0008] # LATIN CAPITAL LETTER C WITH CEDILLA
+011F      ; [.19B9.0020.0002] # LATIN SMALL LETTER G WITH BREVE
+0067 0306 ; [.19B9.0020.0002] # LATIN SMALL LETTER G WITH BREVE
+011E      ; [.19B9.0020.0008] # LATIN CAPITAL LETTER G WITH BREVE
+0047 0306 ; [.19B9.0020.0008] # LATIN CAPITAL LETTER G WITH BREVE
+0131      ; [.19F5.0020.0002] # LATIN SMALL LETTER DOTLESS I
+0049      ; [.19F5.0020.0008] # LATIN CAPITAL LETTER I
+00CC      ; [.19F5.0020.0008][.0000.0025.0002] # LATIN CAPITAL LETTER I WITH GRAVE
+00CD      ; [.19F5.0020.0008][.0000.0024.0002] # LATIN CAPITAL LETTER I WITH ACUTE
+00CE      ; [.19F5.0020.0008][.0000.0027.0002] # LATIN CAPITAL LETTER I WITH CIRCUMFLEX
+00CF      ; [.19F5.0020.0008][.0000.002B.0002] # LATIN CAPITAL LETTER I WITH DIAERESIS
+012A      ; [.19F5.0020.0008][.0000.0032.0002] # LATIN CAPITAL LETTER I WITH MACRON
+012C      ; [.19F5.0020.0008][.0000.0026.0002] # LATIN CAPITAL LETTER I WITH BREVE
+012E      ; [.19F5.0020.0008][.0000.0031.0002] # LATIN CAPITAL LETTER I WITH OGONEK
+0130      ; [.19F6.0020.0008] # LATIN CAPITAL LETTER I WITH DOT ABOVE
+0049 0307 ; [.19F6.0020.0008] # LATIN CAPITAL LETTER I WITH DOT ABOVE
+00F6      ; [.1AA2.0020.0002] # LATIN SMALL LETTER O WITH DIAERESIS
+006F 0308 ; [.1AA2.0020.0002] # LATIN SMALL LETTER O WITH DIAERESIS
+00D6      ; [.1AA2.0020.0008] # LATIN CAPITAL LETTER O WITH DIAERESIS
+004F 0308 ; [.1AA2.0020.0008] # LATIN CAPITAL LETTER O WITH DIAERESIS
+022B      ; [.1AA2.0020.0002][.0000.0032.0002] # LATIN SMALL LETTER O WITH DIAERESIS AND MACRON
+022A      ; [.1AA2.0020.0008][.0000.0032.0002] # LATIN CAPITAL LETTER O WITH DIAERESIS AND MACRON
+015F      ; [.1B34.0020.0002] # LATIN SMALL LETTER S WITH CEDILLA
+0073 0327 ; [.1B34.0020.0002] # LATIN SMALL LETTER S WITH CEDILLA
+015E      ; [.1B34.0020.0008] # LATIN CAPITAL LETTER S WITH CEDILLA
+0053 0327 ; [.1B34.0020.0008] # LATIN CAPITAL LETTER S WITH CEDILLA
+00FC      ; [.1B78.0020.0002] # LATIN SMALL LETTER U WITH DIAERESIS
+0075 0308 ; [.1B78.0020.0002] # LATIN SMALL LETTER U WITH DIAERESIS
+00DC      ; [.1B78.0020.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS
+0055 0308 ; [.1B78.0020.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS
+01DC      ; [.1B78.0020.0002][.0000.0025.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND GRAVE
+01DB      ; [.1B78.0020.0008][.0000.0025.0002] # LATIN CAPITAL LETTER U WITH DIAERESIS AND GRAVE
+01D8      ; [.1B78.0020.0002][.0000.0024.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND ACUTE
+01D7      ; [.1B78.0020.0008][.0000.0024.0002] # LATIN CAPITAL LETTER U WITH DIAERESIS AND ACUTE
+01D6      ; [.1B78.0020.0002][.0000.0032.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND MACRON
+01D5      ; [.1B78.0020.0008][.0000.0032.0002] # LATIN CAPITAL LETTER U WITH DIAERESIS AND MACRON
+01DA      ; [.1B78.0020.0002][.0000.0028.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND CARON
+01D9      ; [.1B78.0020.0008][.0000.0028.0002] # LATIN CAPITAL LETTER U WITH DIAERESIS AND CARON
+0071      ; [.1A2A.0020.0002] # LATIN SMALL LETTER Q
+0051      ; [.1A2A.0020.0008] # LATIN CAPITAL LETTER Q
+0078      ; [.19DD.0020.0002] # LATIN SMALL LETTER X
+0058      ; [.19DD.0020.0008] # LATIN CAPITAL LETTER X
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/be.pl b/lib/5.24.1/Unicode/Collate/Locale/be.pl
new file mode 100644
index 00000000..adb17e34
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/be.pl
@@ -0,0 +1,43 @@
++{
+   locale_version => 1.14,
+   suppress => [0x0410, 0x0430, 0x04D8, 0x04D9, 0x0413, 0x0433, 0x0415, 0x0435,
+		0x0416, 0x0436, 0x0417, 0x0437, 0x0406, 0x0456, 0x041E, 0x043E,
+		0x04E8, 0x04E9, 0x041A, 0x043A, 0x0427, 0x0447, 0x042B, 0x044B,
+		0x042D, 0x044D, 0x0474, 0x0475],
+   entry => <<'ENTRY', # for DUCET v7.0.0
+0451      ; [.1D29.0020.0002] # CYRILLIC SMALL LETTER IO
+0435 0308 ; [.1D29.0020.0002] # CYRILLIC SMALL LETTER IO
+0401      ; [.1D29.0020.0008] # CYRILLIC CAPITAL LETTER IO
+0415 0308 ; [.1D29.0020.0008] # CYRILLIC CAPITAL LETTER IO
+04D1      ; [.1CE0.0020.0002][.0000.0026.0002] # CYRILLIC SMALL LETTER A WITH BREVE
+04D0      ; [.1CE0.0020.0008][.0000.0026.0002] # CYRILLIC CAPITAL LETTER A WITH BREVE
+04D3      ; [.1CE0.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER A WITH DIAERESIS
+04D2      ; [.1CE0.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER A WITH DIAERESIS
+04DB      ; [.1CEC.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER SCHWA WITH DIAERESIS
+04DA      ; [.1CEC.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER SCHWA WITH DIAERESIS
+0453      ; [.1D00.0020.0002][.0000.0024.0002] # CYRILLIC SMALL LETTER GJE
+0403      ; [.1D00.0020.0008][.0000.0024.0002] # CYRILLIC CAPITAL LETTER GJE
+04D7      ; [.1D28.0020.0002][.0000.0026.0002] # CYRILLIC SMALL LETTER IE WITH BREVE
+04D6      ; [.1D28.0020.0008][.0000.0026.0002] # CYRILLIC CAPITAL LETTER IE WITH BREVE
+04DD      ; [.1D34.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER ZHE WITH DIAERESIS
+04DC      ; [.1D34.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER ZHE WITH DIAERESIS
+04DF      ; [.1D42.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER ZE WITH DIAERESIS
+04DE      ; [.1D42.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER ZE WITH DIAERESIS
+0457      ; [.1D66.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER YI
+0407      ; [.1D66.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER YI
+04E7      ; [.1DC9.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER O WITH DIAERESIS
+04E6      ; [.1DC9.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER O WITH DIAERESIS
+04EB      ; [.1DD1.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER BARRED O WITH DIAERESIS
+04EA      ; [.1DD1.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER BARRED O WITH DIAERESIS
+045C      ; [.1D78.0020.0002][.0000.0024.0002] # CYRILLIC SMALL LETTER KJE
+040C      ; [.1D78.0020.0008][.0000.0024.0002] # CYRILLIC CAPITAL LETTER KJE
+04F5      ; [.1E5E.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER CHE WITH DIAERESIS
+04F4      ; [.1E5E.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER CHE WITH DIAERESIS
+04F9      ; [.1E92.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER YERU WITH DIAERESIS
+04F8      ; [.1E92.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER YERU WITH DIAERESIS
+04ED      ; [.1EA7.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER E WITH DIAERESIS
+04EC      ; [.1EA7.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER E WITH DIAERESIS
+0477      ; [.1EDD.0020.0002][.0000.003C.0002] # CYRILLIC SMALL LETTER IZHITSA WITH DOUBLE GRAVE ACCENT
+0476      ; [.1EDD.0020.0008][.0000.003C.0002] # CYRILLIC CAPITAL LETTER IZHITSA WITH DOUBLE GRAVE ACCENT
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/bg.pl b/lib/5.24.1/Unicode/Collate/Locale/bg.pl
new file mode 100644
index 00000000..b23b6412
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/bg.pl
@@ -0,0 +1,45 @@
++{
+   locale_version => 1.14,
+   suppress => [0x0410, 0x0430, 0x04D8, 0x04D9, 0x0413, 0x0433, 0x0415, 0x0435,
+		0x0416, 0x0436, 0x0417, 0x0437, 0x0406, 0x0456, 0x041E, 0x043E,
+		0x04E8, 0x04E9, 0x041A, 0x043A, 0x0423, 0x0443, 0x0427, 0x0447,
+		0x042B, 0x044B, 0x042D, 0x044D, 0x0474, 0x0475],
+   entry => <<'ENTRY', # for DUCET v7.0.0
+04D1      ; [.1CE0.0020.0002][.0000.0026.0002] # CYRILLIC SMALL LETTER A WITH BREVE
+04D0      ; [.1CE0.0020.0008][.0000.0026.0002] # CYRILLIC CAPITAL LETTER A WITH BREVE
+04D3      ; [.1CE0.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER A WITH DIAERESIS
+04D2      ; [.1CE0.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER A WITH DIAERESIS
+04DB      ; [.1CEC.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER SCHWA WITH DIAERESIS
+04DA      ; [.1CEC.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER SCHWA WITH DIAERESIS
+0453      ; [.1D00.0020.0002][.0000.0024.0002] # CYRILLIC SMALL LETTER GJE
+0403      ; [.1D00.0020.0008][.0000.0024.0002] # CYRILLIC CAPITAL LETTER GJE
+04D7      ; [.1D28.0020.0002][.0000.0026.0002] # CYRILLIC SMALL LETTER IE WITH BREVE
+04D6      ; [.1D28.0020.0008][.0000.0026.0002] # CYRILLIC CAPITAL LETTER IE WITH BREVE
+04DD      ; [.1D34.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER ZHE WITH DIAERESIS
+04DC      ; [.1D34.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER ZHE WITH DIAERESIS
+04DF      ; [.1D42.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER ZE WITH DIAERESIS
+04DE      ; [.1D42.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER ZE WITH DIAERESIS
+0457      ; [.1D66.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER YI
+0407      ; [.1D66.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER YI
+04E7      ; [.1DC9.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER O WITH DIAERESIS
+04E6      ; [.1DC9.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER O WITH DIAERESIS
+04EB      ; [.1DD1.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER BARRED O WITH DIAERESIS
+04EA      ; [.1DD1.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER BARRED O WITH DIAERESIS
+045C      ; [.1D78.0020.0002][.0000.0024.0002] # CYRILLIC SMALL LETTER KJE
+040C      ; [.1D78.0020.0008][.0000.0024.0002] # CYRILLIC CAPITAL LETTER KJE
+045E      ; [.1E0B.0020.0002][.0000.0026.0002] # CYRILLIC SMALL LETTER SHORT U
+040E      ; [.1E0B.0020.0008][.0000.0026.0002] # CYRILLIC CAPITAL LETTER SHORT U
+04F1      ; [.1E0B.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER U WITH DIAERESIS
+04F0      ; [.1E0B.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER U WITH DIAERESIS
+04F3      ; [.1E0B.0020.0002][.0000.002C.0002] # CYRILLIC SMALL LETTER U WITH DOUBLE ACUTE
+04F2      ; [.1E0B.0020.0008][.0000.002C.0002] # CYRILLIC CAPITAL LETTER U WITH DOUBLE ACUTE
+04F5      ; [.1E5E.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER CHE WITH DIAERESIS
+04F4      ; [.1E5E.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER CHE WITH DIAERESIS
+04F9      ; [.1E92.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER YERU WITH DIAERESIS
+04F8      ; [.1E92.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER YERU WITH DIAERESIS
+04ED      ; [.1EA7.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER E WITH DIAERESIS
+04EC      ; [.1EA7.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER E WITH DIAERESIS
+0477      ; [.1EDD.0020.0002][.0000.003C.0002] # CYRILLIC SMALL LETTER IZHITSA WITH DOUBLE GRAVE ACCENT
+0476      ; [.1EDD.0020.0008][.0000.003C.0002] # CYRILLIC CAPITAL LETTER IZHITSA WITH DOUBLE GRAVE ACCENT
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/bn.pl b/lib/5.24.1/Unicode/Collate/Locale/bn.pl
new file mode 100644
index 00000000..d2aacdb6
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/bn.pl
@@ -0,0 +1,9 @@
++{
+   locale_version => 1.14,
+   entry => <<'ENTRY', # for DUCET v7.0.0
+0982      ; [.23CC.0020.0002][.FFF1.0000.0000] # BENGALI SIGN ANUSVARA
+0983      ; [.23CC.0020.0002][.FFF2.0000.0000] # BENGALI SIGN VISARGA
+0981      ; [.23CC.0020.0002][.FFF3.0000.0000] # BENGALI SIGN CANDRABINDU
+0994      ; [.23CC.0020.0002][.FFF0.0000.0000] # BENGALI LETTER AU
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/ca.pl b/lib/5.24.1/Unicode/Collate/Locale/ca.pl
new file mode 100644
index 00000000..f3646535
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/ca.pl
@@ -0,0 +1,18 @@
++{
+   locale_version => 1.14,
+   backwards => 2,
+   entry => <<'ENTRY', # for DUCET v7.0.0
+0063 0068 ; [.193F.0020.0002] # <LATIN SMALL LETTER C, LATIN SMALL LETTER H>
+0063 0048 ; [.193F.0020.0007][.0000.0000.0002] # <LATIN SMALL LETTER C, LATIN CAPITAL LETTER H>
+0043 0068 ; [.193F.0020.0007][.0000.0000.0008] # <LATIN CAPITAL LETTER C, LATIN SMALL LETTER H>
+0043 0048 ; [.193F.0020.0008] # <LATIN CAPITAL LETTER C, LATIN CAPITAL LETTER H>
+006C 006C ; [.1A3C.0020.0002][.0000.0000.0001] # <LATIN SMALL LETTER L, LATIN SMALL LETTER L>
+006C 00B7 006C ; [.1A3C.0020.0002][.0000.0000.0007] # <LATIN SMALL LETTER L, MIDDLE DOT, LATIN SMALL LETTER L>
+006C 004C ; [.1A3C.0020.0007][.0000.0000.0002][.0000.0000.0001] # <LATIN SMALL LETTER L, LATIN CAPITAL LETTER L>
+006C 00B7 004C ; [.1A3C.0020.0007][.0000.0000.0002][.0000.0000.0007] # <LATIN SMALL LETTER L, MIDDLE DOT, LATIN CAPITAL LETTER L>
+004C 006C ; [.1A3C.0020.0007][.0000.0000.0008][.0000.0000.0001] # <LATIN CAPITAL LETTER L, LATIN SMALL LETTER L>
+004C 00B7 006C ; [.1A3C.0020.0007][.0000.0000.0008][.0000.0000.0007] # <LATIN CAPITAL LETTER L, MIDDLE DOT, LATIN SMALL LETTER L>
+004C 004C ; [.1A3C.0020.0008][.0000.0000.0001] # <LATIN CAPITAL LETTER L, LATIN CAPITAL LETTER L>
+004C 00B7 004C ; [.1A3C.0020.0008][.0000.0000.0007] # <LATIN CAPITAL LETTER L, MIDDLE DOT, LATIN CAPITAL LETTER L>
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/cs.pl b/lib/5.24.1/Unicode/Collate/Locale/cs.pl
new file mode 100644
index 00000000..920897c7
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/cs.pl
@@ -0,0 +1,25 @@
++{
+   locale_version => 1.14,
+   entry => <<'ENTRY', # for DUCET v7.0.0
+010D      ; [.193F.0020.0002] # LATIN SMALL LETTER C WITH CARON
+0063 030C ; [.193F.0020.0002] # LATIN SMALL LETTER C WITH CARON
+010C      ; [.193F.0020.0008] # LATIN CAPITAL LETTER C WITH CARON
+0043 030C ; [.193F.0020.0008] # LATIN CAPITAL LETTER C WITH CARON
+0063 0068 ; [.19DD.0020.0002] # <LATIN SMALL LETTER C, LATIN SMALL LETTER H>
+0063 0048 ; [.19DD.0020.0007][.0000.0000.0002] # <LATIN SMALL LETTER C, LATIN CAPITAL LETTER H>
+0043 0068 ; [.19DD.0020.0007][.0000.0000.0008] # <LATIN CAPITAL LETTER C, LATIN SMALL LETTER H>
+0043 0048 ; [.19DD.0020.0008] # <LATIN CAPITAL LETTER C, LATIN CAPITAL LETTER H>
+0159      ; [.1AF6.0020.0002] # LATIN SMALL LETTER R WITH CARON
+0072 030C ; [.1AF6.0020.0002] # LATIN SMALL LETTER R WITH CARON
+0158      ; [.1AF6.0020.0008] # LATIN CAPITAL LETTER R WITH CARON
+0052 030C ; [.1AF6.0020.0008] # LATIN CAPITAL LETTER R WITH CARON
+0161      ; [.1B34.0020.0002] # LATIN SMALL LETTER S WITH CARON
+0073 030C ; [.1B34.0020.0002] # LATIN SMALL LETTER S WITH CARON
+0160      ; [.1B34.0020.0008] # LATIN CAPITAL LETTER S WITH CARON
+0053 030C ; [.1B34.0020.0008] # LATIN CAPITAL LETTER S WITH CARON
+017E      ; [.1BE4.0020.0002] # LATIN SMALL LETTER Z WITH CARON
+007A 030C ; [.1BE4.0020.0002] # LATIN SMALL LETTER Z WITH CARON
+017D      ; [.1BE4.0020.0008] # LATIN CAPITAL LETTER Z WITH CARON
+005A 030C ; [.1BE4.0020.0008] # LATIN CAPITAL LETTER Z WITH CARON
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/cy.pl b/lib/5.24.1/Unicode/Collate/Locale/cy.pl
new file mode 100644
index 00000000..4e5baf6e
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/cy.pl
@@ -0,0 +1,29 @@
++{
+   locale_version => 1.14,
+   entry => <<'ENTRY', # for DUCET v7.0.0
+0063 0068 ; [.193F.0020.0002] # <LATIN SMALL LETTER C, LATIN SMALL LETTER H>
+0043 0068 ; [.193F.0020.0007] # <LATIN CAPITAL LETTER C, LATIN SMALL LETTER H>
+0043 0048 ; [.193F.0020.0008] # <LATIN CAPITAL LETTER C, LATIN CAPITAL LETTER H>
+0064 0064 ; [.1954.0020.0002] # <LATIN SMALL LETTER D, LATIN SMALL LETTER D>
+0044 0064 ; [.1954.0020.0007] # <LATIN CAPITAL LETTER D, LATIN SMALL LETTER D>
+0044 0044 ; [.1954.0020.0008] # <LATIN CAPITAL LETTER D, LATIN CAPITAL LETTER D>
+0066 0066 ; [.19AA.0020.0002] # <LATIN SMALL LETTER F, LATIN SMALL LETTER F>
+0046 0066 ; [.19AA.0020.0007] # <LATIN CAPITAL LETTER F, LATIN SMALL LETTER F>
+0046 0046 ; [.19AA.0020.0008] # <LATIN CAPITAL LETTER F, LATIN CAPITAL LETTER F>
+006E 0067 ; [.19B9.0020.0002] # <LATIN SMALL LETTER N, LATIN SMALL LETTER G>
+004E 0067 ; [.19B9.0020.0007] # <LATIN CAPITAL LETTER N, LATIN SMALL LETTER G>
+004E 0047 ; [.19B9.0020.0008] # <LATIN CAPITAL LETTER N, LATIN CAPITAL LETTER G>
+006C 006C ; [.1A3C.0020.0002] # <LATIN SMALL LETTER L, LATIN SMALL LETTER L>
+004C 006C ; [.1A3C.0020.0007] # <LATIN CAPITAL LETTER L, LATIN SMALL LETTER L>
+004C 004C ; [.1A3C.0020.0008] # <LATIN CAPITAL LETTER L, LATIN CAPITAL LETTER L>
+0070 0068 ; [.1ACF.0020.0002] # <LATIN SMALL LETTER P, LATIN SMALL LETTER H>
+0050 0068 ; [.1ACF.0020.0007] # <LATIN CAPITAL LETTER P, LATIN SMALL LETTER H>
+0050 0048 ; [.1ACF.0020.0008] # <LATIN CAPITAL LETTER P, LATIN CAPITAL LETTER H>
+0072 0068 ; [.1AF6.0020.0002] # <LATIN SMALL LETTER R, LATIN SMALL LETTER H>
+0052 0068 ; [.1AF6.0020.0007] # <LATIN CAPITAL LETTER R, LATIN SMALL LETTER H>
+0052 0048 ; [.1AF6.0020.0008] # <LATIN CAPITAL LETTER R, LATIN CAPITAL LETTER H>
+0074 0068 ; [.1B58.0020.0002] # <LATIN SMALL LETTER T, LATIN SMALL LETTER H>
+0054 0068 ; [.1B58.0020.0007] # <LATIN CAPITAL LETTER T, LATIN SMALL LETTER H>
+0054 0048 ; [.1B58.0020.0008] # <LATIN CAPITAL LETTER T, LATIN CAPITAL LETTER H>
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/da.pl b/lib/5.24.1/Unicode/Collate/Locale/da.pl
new file mode 100644
index 00000000..8dcffab0
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/da.pl
@@ -0,0 +1,78 @@
++{
+   locale_version => 1.14,
+   upper_before_lower => 1,
+   entry => <<'ENTRY', # for DUCET v7.0.0
+0111      ; [.1953.0021.0002] # LATIN SMALL LETTER D WITH STROKE
+0064 0335 ; [.1953.0021.0002] # LATIN SMALL LETTER D WITH STROKE
+0110      ; [.1953.0021.0008] # LATIN CAPITAL LETTER D WITH STROKE
+0044 0335 ; [.1953.0021.0008] # LATIN CAPITAL LETTER D WITH STROKE
+00F0      ; [.1953.0022.0002] # LATIN SMALL LETTER ETH
+1DD9      ; [.1953.0022.0002] # COMBINING LATIN SMALL LETTER ETH
+00D0      ; [.1953.0022.0008] # LATIN CAPITAL LETTER ETH
+00FE      ; [.1B57.0020.0003][.19DC.0020.0003] # LATIN SMALL LETTER THORN
+00DE      ; [.1B57.0020.0009][.19DC.0020.0009] # LATIN CAPITAL LETTER THORN
+00FC      ; [.1BCD.0021.0002] # LATIN SMALL LETTER U WITH DIAERESIS
+0075 0308 ; [.1BCD.0021.0002] # LATIN SMALL LETTER U WITH DIAERESIS
+00DC      ; [.1BCD.0021.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS
+0055 0308 ; [.1BCD.0021.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS
+01DC      ; [.1BCD.0021.0002][.0000.0025.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND GRAVE
+01DB      ; [.1BCD.0021.0008][.0000.0025.0002] # LATIN CAPITAL LETTER U WITH DIAERESIS AND GRAVE
+01D8      ; [.1BCD.0021.0002][.0000.0024.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND ACUTE
+01D7      ; [.1BCD.0021.0008][.0000.0024.0002] # LATIN CAPITAL LETTER U WITH DIAERESIS AND ACUTE
+01D6      ; [.1BCD.0021.0002][.0000.0032.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND MACRON
+01D5      ; [.1BCD.0021.0008][.0000.0032.0002] # LATIN CAPITAL LETTER U WITH DIAERESIS AND MACRON
+01DA      ; [.1BCD.0021.0002][.0000.0028.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND CARON
+01D9      ; [.1BCD.0021.0008][.0000.0028.0002] # LATIN CAPITAL LETTER U WITH DIAERESIS AND CARON
+0171      ; [.1BCD.0022.0002] # LATIN SMALL LETTER U WITH DOUBLE ACUTE
+0075 030B ; [.1BCD.0022.0002] # LATIN SMALL LETTER U WITH DOUBLE ACUTE
+0170      ; [.1BCD.0022.0008] # LATIN CAPITAL LETTER U WITH DOUBLE ACUTE
+0055 030B ; [.1BCD.0022.0008] # LATIN CAPITAL LETTER U WITH DOUBLE ACUTE
+00E6      ; [.1C54.0020.0002] # LATIN SMALL LETTER AE
+1DD4      ; [.1C54.0020.0002] # COMBINING LATIN SMALL LETTER AE
+00C6      ; [.1C54.0020.0008] # LATIN CAPITAL LETTER AE
+1D2D      ; [.1C54.0020.0014] # MODIFIER LETTER CAPITAL AE
+01FD      ; [.1C54.0020.0002][.0000.0024.0002] # LATIN SMALL LETTER AE WITH ACUTE
+01FC      ; [.1C54.0020.0008][.0000.0024.0002] # LATIN CAPITAL LETTER AE WITH ACUTE
+01E3      ; [.1C54.0020.0002][.0000.0032.0002] # LATIN SMALL LETTER AE WITH MACRON
+01E2      ; [.1C54.0020.0008][.0000.0032.0002] # LATIN CAPITAL LETTER AE WITH MACRON
+00E4      ; [.1C54.0021.0002] # LATIN SMALL LETTER A WITH DIAERESIS
+0061 0308 ; [.1C54.0021.0002] # LATIN SMALL LETTER A WITH DIAERESIS
+00C4      ; [.1C54.0021.0008] # LATIN CAPITAL LETTER A WITH DIAERESIS
+0041 0308 ; [.1C54.0021.0008] # LATIN CAPITAL LETTER A WITH DIAERESIS
+01DF      ; [.1C54.0021.0002][.0000.0032.0002] # LATIN SMALL LETTER A WITH DIAERESIS AND MACRON
+01DE      ; [.1C54.0021.0008][.0000.0032.0002] # LATIN CAPITAL LETTER A WITH DIAERESIS AND MACRON
+0119      ; [.1C54.0022.0002] # LATIN SMALL LETTER E WITH OGONEK
+0065 0328 ; [.1C54.0022.0002] # LATIN SMALL LETTER E WITH OGONEK
+0118      ; [.1C54.0022.0008] # LATIN CAPITAL LETTER E WITH OGONEK
+0045 0328 ; [.1C54.0022.0008] # LATIN CAPITAL LETTER E WITH OGONEK
+00F8      ; [.1C55.0020.0002] # LATIN SMALL LETTER O WITH STROKE
+006F 0338 ; [.1C55.0020.0002] # LATIN SMALL LETTER O WITH STROKE
+00D8      ; [.1C55.0020.0008] # LATIN CAPITAL LETTER O WITH STROKE
+004F 0338 ; [.1C55.0020.0008] # LATIN CAPITAL LETTER O WITH STROKE
+01FF      ; [.1C55.0020.0002][.0000.0024.0002] # LATIN SMALL LETTER O WITH STROKE AND ACUTE
+01FE      ; [.1C55.0020.0008][.0000.0024.0002] # LATIN CAPITAL LETTER O WITH STROKE AND ACUTE
+00F6      ; [.1C55.0021.0002] # LATIN SMALL LETTER O WITH DIAERESIS
+006F 0308 ; [.1C55.0021.0002] # LATIN SMALL LETTER O WITH DIAERESIS
+00D6      ; [.1C55.0021.0008] # LATIN CAPITAL LETTER O WITH DIAERESIS
+004F 0308 ; [.1C55.0021.0008] # LATIN CAPITAL LETTER O WITH DIAERESIS
+022B      ; [.1C55.0021.0002][.0000.0032.0002] # LATIN SMALL LETTER O WITH DIAERESIS AND MACRON
+022A      ; [.1C55.0021.0008][.0000.0032.0002] # LATIN CAPITAL LETTER O WITH DIAERESIS AND MACRON
+0151      ; [.1C55.0022.0002] # LATIN SMALL LETTER O WITH DOUBLE ACUTE
+006F 030B ; [.1C55.0022.0002] # LATIN SMALL LETTER O WITH DOUBLE ACUTE
+0150      ; [.1C55.0022.0008] # LATIN CAPITAL LETTER O WITH DOUBLE ACUTE
+004F 030B ; [.1C55.0022.0008] # LATIN CAPITAL LETTER O WITH DOUBLE ACUTE
+0153      ; [.1C55.0023.0002] # LATIN SMALL LIGATURE OE
+0152      ; [.1C55.0023.0008] # LATIN CAPITAL LIGATURE OE
+00E5      ; [.1C56.0020.0002][.0000.0000.0001] # LATIN SMALL LETTER A WITH RING ABOVE
+0061 030A ; [.1C56.0020.0002][.0000.0000.0001] # LATIN SMALL LETTER A WITH RING ABOVE
+00C5      ; [.1C56.0020.0008][.0000.0000.0001] # LATIN CAPITAL LETTER A WITH RING ABOVE
+0041 030A ; [.1C56.0020.0008][.0000.0000.0001] # LATIN CAPITAL LETTER A WITH RING ABOVE
+212B      ; [.1C56.0020.0008][.0000.0000.0001] # ANGSTROM SIGN
+01FB      ; [.1C56.0020.0002][.0000.0000.0001][.0000.0024.0002] # LATIN SMALL LETTER A WITH RING ABOVE AND ACUTE
+01FA      ; [.1C56.0020.0008][.0000.0000.0001][.0000.0024.0002] # LATIN CAPITAL LETTER A WITH RING ABOVE AND ACUTE
+0061 0061 ; [.1C56.0020.0002][.0000.0000.0007] # <LATIN SMALL LETTER A, LATIN SMALL LETTER A>
+0041 0061 ; [.1C56.0020.0007][.0000.0000.0002] # <LATIN CAPITAL LETTER A, LATIN SMALL LETTER A>
+0061 0041 ; [.1C56.0020.0007][.0000.0000.0008] # <LATIN SMALL LETTER A, LATIN CAPITAL LETTER A>
+0041 0041 ; [.1C56.0020.0008][.0000.0000.0007] # <LATIN CAPITAL LETTER A, LATIN CAPITAL LETTER A>
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/de_phone.pl b/lib/5.24.1/Unicode/Collate/Locale/de_phone.pl
new file mode 100644
index 00000000..b253e5c5
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/de_phone.pl
@@ -0,0 +1,29 @@
++{
+   locale_version => 1.14,
+   entry => <<'ENTRY', # for DUCET v7.0.0
+00E4      ; [.190C.0021.0002][.196E.0021.0002] # LATIN SMALL LETTER A WITH DIAERESIS
+0061 0308 ; [.190C.0021.0002][.196E.0021.0002] # LATIN SMALL LETTER A WITH DIAERESIS
+00C4      ; [.190C.0021.0008][.196E.0021.0008] # LATIN CAPITAL LETTER A WITH DIAERESIS
+0041 0308 ; [.190C.0021.0008][.196E.0021.0008] # LATIN CAPITAL LETTER A WITH DIAERESIS
+01DF      ; [.190C.0021.0002][.196E.0021.0002][.0000.0032.0002] # LATIN SMALL LETTER A WITH DIAERESIS AND MACRON
+01DE      ; [.190C.0021.0008][.196E.0021.0008][.0000.0032.0002] # LATIN CAPITAL LETTER A WITH DIAERESIS AND MACRON
+00F6      ; [.1AA1.0021.0002][.196E.0021.0002] # LATIN SMALL LETTER O WITH DIAERESIS
+006F 0308 ; [.1AA1.0021.0002][.196E.0021.0002] # LATIN SMALL LETTER O WITH DIAERESIS
+00D6      ; [.1AA1.0021.0008][.196E.0021.0008] # LATIN CAPITAL LETTER O WITH DIAERESIS
+004F 0308 ; [.1AA1.0021.0008][.196E.0021.0008] # LATIN CAPITAL LETTER O WITH DIAERESIS
+022B      ; [.1AA1.0021.0002][.196E.0021.0002][.0000.0032.0002] # LATIN SMALL LETTER O WITH DIAERESIS AND MACRON
+022A      ; [.1AA1.0021.0008][.196E.0021.0008][.0000.0032.0002] # LATIN CAPITAL LETTER O WITH DIAERESIS AND MACRON
+00FC      ; [.1B77.0021.0002][.196E.0021.0002] # LATIN SMALL LETTER U WITH DIAERESIS
+0075 0308 ; [.1B77.0021.0002][.196E.0021.0002] # LATIN SMALL LETTER U WITH DIAERESIS
+00DC      ; [.1B77.0021.0008][.196E.0021.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS
+0055 0308 ; [.1B77.0021.0008][.196E.0021.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS
+01DC      ; [.1B77.0021.0002][.196E.0021.0002][.0000.0025.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND GRAVE
+01DB      ; [.1B77.0021.0008][.196E.0021.0008][.0000.0025.0002] # LATIN CAPITAL LETTER U WITH DIAERESIS AND GRAVE
+01D8      ; [.1B77.0021.0002][.196E.0021.0002][.0000.0024.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND ACUTE
+01D7      ; [.1B77.0021.0008][.196E.0021.0008][.0000.0024.0002] # LATIN CAPITAL LETTER U WITH DIAERESIS AND ACUTE
+01D6      ; [.1B77.0021.0002][.196E.0021.0002][.0000.0032.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND MACRON
+01D5      ; [.1B77.0021.0008][.196E.0021.0008][.0000.0032.0002] # LATIN CAPITAL LETTER U WITH DIAERESIS AND MACRON
+01DA      ; [.1B77.0021.0002][.196E.0021.0002][.0000.0028.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND CARON
+01D9      ; [.1B77.0021.0008][.196E.0021.0008][.0000.0028.0002] # LATIN CAPITAL LETTER U WITH DIAERESIS AND CARON
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/ee.pl b/lib/5.24.1/Unicode/Collate/Locale/ee.pl
new file mode 100644
index 00000000..c8b79246
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/ee.pl
@@ -0,0 +1,36 @@
++{
+   locale_version => 1.14,
+# d-tail, open-e, f-hook, gamma, eng, open-o, v-hook don't require tailoring
+   entry => <<'ENTRY', # for DUCET v7.0.0
+0302      ; [.0000.0029.0002] # COMBINING CIRCUMFLEX ACCENT
+00E2      ; [.190C.0020.0002][.0000.0029.0002] # LATIN SMALL LETTER A WITH CIRCUMFLEX
+00C2      ; [.190C.0020.0008][.0000.0029.0002] # LATIN CAPITAL LETTER A WITH CIRCUMFLEX
+00EA      ; [.196E.0020.0002][.0000.0029.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX
+00CA      ; [.196E.0020.0008][.0000.0029.0002] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX
+00EE      ; [.19F6.0020.0002][.0000.0029.0002] # LATIN SMALL LETTER I WITH CIRCUMFLEX
+00CE      ; [.19F6.0020.0008][.0000.0029.0002] # LATIN CAPITAL LETTER I WITH CIRCUMFLEX
+00F4      ; [.1AA1.0020.0002][.0000.0029.0002] # LATIN SMALL LETTER O WITH CIRCUMFLEX
+00D4      ; [.1AA1.0020.0008][.0000.0029.0002] # LATIN CAPITAL LETTER O WITH CIRCUMFLEX
+00FB      ; [.1B77.0020.0002][.0000.0029.0002] # LATIN SMALL LETTER U WITH CIRCUMFLEX
+00DB      ; [.1B77.0020.0008][.0000.0029.0002] # LATIN CAPITAL LETTER U WITH CIRCUMFLEX
+0177      ; [.1BCD.0020.0002][.0000.0029.0002] # LATIN SMALL LETTER Y WITH CIRCUMFLEX
+0176      ; [.1BCD.0020.0008][.0000.0029.0002] # LATIN CAPITAL LETTER Y WITH CIRCUMFLEX
+0064 007A ; [.1954.0020.0002] # <LATIN SMALL LETTER D, LATIN SMALL LETTER Z>
+0044 007A ; [.1954.0020.0007] # <LATIN CAPITAL LETTER D, LATIN SMALL LETTER Z>
+0044 005A ; [.1954.0020.0008] # <LATIN CAPITAL LETTER D, LATIN CAPITAL LETTER Z>
+0067 0062 ; [.19B9.0020.0002] # <LATIN SMALL LETTER G, LATIN SMALL LETTER B>
+0047 0062 ; [.19B9.0020.0007] # <LATIN CAPITAL LETTER G, LATIN SMALL LETTER B>
+0047 0042 ; [.19B9.0020.0008] # <LATIN CAPITAL LETTER G, LATIN CAPITAL LETTER B>
+0078      ; [.19DD.0020.0002] # LATIN SMALL LETTER X
+0058      ; [.19DD.0020.0008] # LATIN CAPITAL LETTER X
+006B 0070 ; [.1A2A.0020.0002] # <LATIN SMALL LETTER K, LATIN SMALL LETTER P>
+004B 0070 ; [.1A2A.0020.0007] # <LATIN CAPITAL LETTER K, LATIN SMALL LETTER P>
+004B 0050 ; [.1A2A.0020.0008] # <LATIN CAPITAL LETTER K, LATIN CAPITAL LETTER P>
+006E 0079 ; [.1A7E.0020.0002] # <LATIN SMALL LETTER N, LATIN SMALL LETTER Y>
+004E 0079 ; [.1A7E.0020.0007] # <LATIN CAPITAL LETTER N, LATIN SMALL LETTER Y>
+004E 0059 ; [.1A7E.0020.0008] # <LATIN CAPITAL LETTER N, LATIN CAPITAL LETTER Y>
+0074 0073 ; [.1B58.0020.0002] # <LATIN SMALL LETTER T, LATIN SMALL LETTER S>
+0054 0073 ; [.1B58.0020.0007] # <LATIN CAPITAL LETTER T, LATIN SMALL LETTER S>
+0054 0053 ; [.1B58.0020.0008] # <LATIN CAPITAL LETTER T, LATIN CAPITAL LETTER S>
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/eo.pl b/lib/5.24.1/Unicode/Collate/Locale/eo.pl
new file mode 100644
index 00000000..de2d1075
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/eo.pl
@@ -0,0 +1,29 @@
++{
+   locale_version => 1.14,
+   entry => <<'ENTRY', # for DUCET v7.0.0
+0109      ; [.193F.0020.0002] # LATIN SMALL LETTER C WITH CIRCUMFLEX
+0063 0302 ; [.193F.0020.0002] # LATIN SMALL LETTER C WITH CIRCUMFLEX
+0108      ; [.193F.0020.0008] # LATIN CAPITAL LETTER C WITH CIRCUMFLEX
+0043 0302 ; [.193F.0020.0008] # LATIN CAPITAL LETTER C WITH CIRCUMFLEX
+011D      ; [.19B9.0020.0002] # LATIN SMALL LETTER G WITH CIRCUMFLEX
+0067 0302 ; [.19B9.0020.0002] # LATIN SMALL LETTER G WITH CIRCUMFLEX
+011C      ; [.19B9.0020.0008] # LATIN CAPITAL LETTER G WITH CIRCUMFLEX
+0047 0302 ; [.19B9.0020.0008] # LATIN CAPITAL LETTER G WITH CIRCUMFLEX
+0125      ; [.19DD.0020.0002] # LATIN SMALL LETTER H WITH CIRCUMFLEX
+0068 0302 ; [.19DD.0020.0002] # LATIN SMALL LETTER H WITH CIRCUMFLEX
+0124      ; [.19DD.0020.0008] # LATIN CAPITAL LETTER H WITH CIRCUMFLEX
+0048 0302 ; [.19DD.0020.0008] # LATIN CAPITAL LETTER H WITH CIRCUMFLEX
+0135      ; [.1A11.0020.0002] # LATIN SMALL LETTER J WITH CIRCUMFLEX
+006A 0302 ; [.1A11.0020.0002] # LATIN SMALL LETTER J WITH CIRCUMFLEX
+0134      ; [.1A11.0020.0008] # LATIN CAPITAL LETTER J WITH CIRCUMFLEX
+004A 0302 ; [.1A11.0020.0008] # LATIN CAPITAL LETTER J WITH CIRCUMFLEX
+015D      ; [.1B34.0020.0002] # LATIN SMALL LETTER S WITH CIRCUMFLEX
+0073 0302 ; [.1B34.0020.0002] # LATIN SMALL LETTER S WITH CIRCUMFLEX
+015C      ; [.1B34.0020.0008] # LATIN CAPITAL LETTER S WITH CIRCUMFLEX
+0053 0302 ; [.1B34.0020.0008] # LATIN CAPITAL LETTER S WITH CIRCUMFLEX
+016D      ; [.1B78.0020.0002] # LATIN SMALL LETTER U WITH BREVE
+0075 0306 ; [.1B78.0020.0002] # LATIN SMALL LETTER U WITH BREVE
+016C      ; [.1B78.0020.0008] # LATIN CAPITAL LETTER U WITH BREVE
+0055 0306 ; [.1B78.0020.0008] # LATIN CAPITAL LETTER U WITH BREVE
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/es.pl b/lib/5.24.1/Unicode/Collate/Locale/es.pl
new file mode 100644
index 00000000..fb5e1006
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/es.pl
@@ -0,0 +1,9 @@
++{
+   locale_version => 1.14,
+   entry => <<'ENTRY', # for DUCET v7.0.0
+00F1      ; [.1A7E.0020.0002] # LATIN SMALL LETTER N WITH TILDE
+006E 0303 ; [.1A7E.0020.0002] # LATIN SMALL LETTER N WITH TILDE
+00D1      ; [.1A7E.0020.0008] # LATIN CAPITAL LETTER N WITH TILDE
+004E 0303 ; [.1A7E.0020.0008] # LATIN CAPITAL LETTER N WITH TILDE
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/es_trad.pl b/lib/5.24.1/Unicode/Collate/Locale/es_trad.pl
new file mode 100644
index 00000000..966a69bf
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/es_trad.pl
@@ -0,0 +1,15 @@
++{
+   locale_version => 1.14,
+   entry => <<'ENTRY', # for DUCET v7.0.0
+0063 0068 ; [.193F.0020.0002] # <LATIN SMALL LETTER C, LATIN SMALL LETTER H>
+0043 0068 ; [.193F.0020.0007] # <LATIN CAPITAL LETTER C, LATIN SMALL LETTER H>
+0043 0048 ; [.193F.0020.0008] # <LATIN CAPITAL LETTER C, LATIN CAPITAL LETTER H>
+006C 006C ; [.1A3C.0020.0002] # <LATIN SMALL LETTER L, LATIN SMALL LETTER L>
+004C 006C ; [.1A3C.0020.0007] # <LATIN CAPITAL LETTER L, LATIN SMALL LETTER L>
+004C 004C ; [.1A3C.0020.0008] # <LATIN CAPITAL LETTER L, LATIN CAPITAL LETTER L>
+00F1      ; [.1A7E.0020.0002] # LATIN SMALL LETTER N WITH TILDE
+006E 0303 ; [.1A7E.0020.0002] # LATIN SMALL LETTER N WITH TILDE
+00D1      ; [.1A7E.0020.0008] # LATIN CAPITAL LETTER N WITH TILDE
+004E 0303 ; [.1A7E.0020.0008] # LATIN CAPITAL LETTER N WITH TILDE
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/et.pl b/lib/5.24.1/Unicode/Collate/Locale/et.pl
new file mode 100644
index 00000000..98087690
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/et.pl
@@ -0,0 +1,53 @@
++{
+   locale_version => 1.14,
+   entry => <<'ENTRY', # for DUCET v7.0.0
+0161      ; [.1B54.0020.0002] # LATIN SMALL LETTER S WITH CARON
+0073 030C ; [.1B54.0020.0002] # LATIN SMALL LETTER S WITH CARON
+0160      ; [.1B54.0020.0008] # LATIN CAPITAL LETTER S WITH CARON
+0053 030C ; [.1B54.0020.0008] # LATIN CAPITAL LETTER S WITH CARON
+007A      ; [.1B55.0020.0002] # LATIN SMALL LETTER Z
+005A      ; [.1B55.0020.0008] # LATIN CAPITAL LETTER Z
+017E      ; [.1B56.0020.0002] # LATIN SMALL LETTER Z WITH CARON
+007A 030C ; [.1B56.0020.0002] # LATIN SMALL LETTER Z WITH CARON
+017D      ; [.1B56.0020.0008] # LATIN CAPITAL LETTER Z WITH CARON
+005A 030C ; [.1B56.0020.0008] # LATIN CAPITAL LETTER Z WITH CARON
+0077      ; [.1BA5.0021.0002] # LATIN SMALL LETTER W
+0057      ; [.1BA5.0021.0008] # LATIN CAPITAL LETTER W
+00F5      ; [.1BBD.0020.0002] # LATIN SMALL LETTER O WITH TILDE
+006F 0303 ; [.1BBD.0020.0002] # LATIN SMALL LETTER O WITH TILDE
+00D5      ; [.1BBD.0020.0008] # LATIN CAPITAL LETTER O WITH TILDE
+004F 0303 ; [.1BBD.0020.0008] # LATIN CAPITAL LETTER O WITH TILDE
+1E4D      ; [.1BBD.0020.0002][.0000.0024.0002] # LATIN SMALL LETTER O WITH TILDE AND ACUTE
+1E4C      ; [.1BBD.0020.0008][.0000.0024.0002] # LATIN CAPITAL LETTER O WITH TILDE AND ACUTE
+022D      ; [.1BBD.0020.0002][.0000.0032.0002] # LATIN SMALL LETTER O WITH TILDE AND MACRON
+022C      ; [.1BBD.0020.0008][.0000.0032.0002] # LATIN CAPITAL LETTER O WITH TILDE AND MACRON
+1E4F      ; [.1BBD.0020.0002][.0000.002B.0002] # LATIN SMALL LETTER O WITH TILDE AND DIAERESIS
+1E4E      ; [.1BBD.0020.0008][.0000.002B.0002] # LATIN CAPITAL LETTER O WITH TILDE AND DIAERESIS
+1EE1      ; [.1BBD.0020.0002][.0000.003F.0002] # LATIN SMALL LETTER O WITH HORN AND TILDE
+1EE0      ; [.1BBD.0020.0008][.0000.003F.0002] # LATIN CAPITAL LETTER O WITH HORN AND TILDE
+00E4      ; [.1BBE.0020.0002] # LATIN SMALL LETTER A WITH DIAERESIS
+0061 0308 ; [.1BBE.0020.0002] # LATIN SMALL LETTER A WITH DIAERESIS
+00C4      ; [.1BBE.0020.0008] # LATIN CAPITAL LETTER A WITH DIAERESIS
+0041 0308 ; [.1BBE.0020.0008] # LATIN CAPITAL LETTER A WITH DIAERESIS
+01DF      ; [.1BBE.0020.0002][.0000.0032.0002] # LATIN SMALL LETTER A WITH DIAERESIS AND MACRON
+01DE      ; [.1BBE.0020.0008][.0000.0032.0002] # LATIN CAPITAL LETTER A WITH DIAERESIS AND MACRON
+00F6      ; [.1BBF.0020.0002] # LATIN SMALL LETTER O WITH DIAERESIS
+006F 0308 ; [.1BBF.0020.0002] # LATIN SMALL LETTER O WITH DIAERESIS
+00D6      ; [.1BBF.0020.0008] # LATIN CAPITAL LETTER O WITH DIAERESIS
+004F 0308 ; [.1BBF.0020.0008] # LATIN CAPITAL LETTER O WITH DIAERESIS
+022B      ; [.1BBF.0020.0002][.0000.0032.0002] # LATIN SMALL LETTER O WITH DIAERESIS AND MACRON
+022A      ; [.1BBF.0020.0008][.0000.0032.0002] # LATIN CAPITAL LETTER O WITH DIAERESIS AND MACRON
+00FC      ; [.1BC0.0020.0002] # LATIN SMALL LETTER U WITH DIAERESIS
+0075 0308 ; [.1BC0.0020.0002] # LATIN SMALL LETTER U WITH DIAERESIS
+00DC      ; [.1BC0.0020.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS
+0055 0308 ; [.1BC0.0020.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS
+01DC      ; [.1BC0.0020.0002][.0000.0025.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND GRAVE
+01DB      ; [.1BC0.0020.0008][.0000.0025.0002] # LATIN CAPITAL LETTER U WITH DIAERESIS AND GRAVE
+01D8      ; [.1BC0.0020.0002][.0000.0024.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND ACUTE
+01D7      ; [.1BC0.0020.0008][.0000.0024.0002] # LATIN CAPITAL LETTER U WITH DIAERESIS AND ACUTE
+01D6      ; [.1BC0.0020.0002][.0000.0032.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND MACRON
+01D5      ; [.1BC0.0020.0008][.0000.0032.0002] # LATIN CAPITAL LETTER U WITH DIAERESIS AND MACRON
+01DA      ; [.1BC0.0020.0002][.0000.0028.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND CARON
+01D9      ; [.1BC0.0020.0008][.0000.0028.0002] # LATIN CAPITAL LETTER U WITH DIAERESIS AND CARON
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/fa.pl b/lib/5.24.1/Unicode/Collate/Locale/fa.pl
new file mode 100644
index 00000000..fbd3e28a
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/fa.pl
@@ -0,0 +1,51 @@
++{
+   locale_version => 1.14,
+   entry => <<'ENTRY', # for DUCET v7.0.0
+0650      ; [.0000.0077.0002] # ARABIC KASRA
+064B      ; [.0000.007B.0002] # ARABIC FATHATAN
+064D      ; [.0000.007C.0002] # ARABIC KASRATAN
+064C      ; [.0000.007D.0002] # ARABIC DAMMATAN
+0622      ; [.2014.0020.0002][.FFF1.0000.0000] # ARABIC LETTER ALEF WITH MADDA ABOVE
+0627 0653 ; [.2014.0020.0002][.FFF1.0000.0000] # ARABIC LETTER ALEF WITH MADDA ABOVE
+08AC      ; [.2014.0020.0002][.FFF0.0000.0000] # ARABIC LETTER ROHINGYA YEH
+0671      ; [.2015.0021.0002] # ARABIC LETTER ALEF WASLA
+0621      ; [.2016.0020.0002][.FFF0.0000.0000] # ARABIC LETTER HAMZA
+0623      ; [.2016.0021.0002][.FFF0.0000.0000] # ARABIC LETTER ALEF WITH HAMZA ABOVE
+0627 0654 ; [.2016.0021.0002][.FFF0.0000.0000] # ARABIC LETTER ALEF WITH HAMZA ABOVE
+0672      ; [.2016.0022.0002][.FFF0.0000.0000] # ARABIC LETTER ALEF WITH WAVY HAMZA ABOVE
+0625      ; [.2016.0023.0002][.FFF0.0000.0000] # ARABIC LETTER ALEF WITH HAMZA BELOW
+0627 0655 ; [.2016.0023.0002][.FFF0.0000.0000] # ARABIC LETTER ALEF WITH HAMZA BELOW
+0673      ; [.2016.0024.0002][.FFF0.0000.0000] # ARABIC LETTER ALEF WITH WAVY HAMZA BELOW
+0624      ; [.2016.0025.0002][.FFF0.0000.0000] # ARABIC LETTER WAW WITH HAMZA ABOVE
+0648 0654 ; [.2016.0025.0002][.FFF0.0000.0000] # ARABIC LETTER WAW WITH HAMZA ABOVE
+06CC 0654 ; [.2016.0026.0002][.FFF0.0000.0000] # <ARABIC LETTER FARSI YEH, ARABIC HAMZA ABOVE>
+0649 0654 ; [.2016.0026.0003][.FFF0.0000.0000] # <ARABIC LETTER ALEF MAKSURA, ARABIC HAMZA ABOVE>
+0626      ; [.2016.0026.0004][.FFF0.0000.0000] # ARABIC LETTER YEH WITH HAMZA ABOVE
+064A 0654 ; [.2016.0026.0004][.FFF0.0000.0000] # ARABIC LETTER YEH WITH HAMZA ABOVE
+066E      ; [.2016.0020.0002][.FFF1.0000.0000] # ARABIC LETTER DOTLESS BEH
+06AA      ; [.208B.0021.0002] # ARABIC LETTER SWASH KAF
+06AB      ; [.208B.0022.0002] # ARABIC LETTER KAF WITH RING
+0643      ; [.208B.0023.0002] # ARABIC LETTER KAF
+06AC      ; [.208B.0024.0002] # ARABIC LETTER KAF WITH DOT ABOVE
+06AD      ; [.208B.0025.0002] # ARABIC LETTER NG
+06AE      ; [.208B.0026.0002] # ARABIC LETTER KAF WITH THREE DOTS BELOW
+0647      ; [.20C2.0020.0002][.FFF1.0000.0000] # ARABIC LETTER HEH
+06D5      ; [.20C2.0021.0002][.FFF1.0000.0000] # ARABIC LETTER AE
+06C1      ; [.20C2.0022.0002][.FFF1.0000.0000] # ARABIC LETTER HEH GOAL
+06C2      ; [.20C2.0022.0002][.FFF1.0000.0000][.0000.0083.0002] # ARABIC LETTER HEH GOAL WITH HAMZA ABOVE
+0629      ; [.20C2.0023.0002][.FFF1.0000.0000] # ARABIC LETTER TEH MARBUTA
+06C3      ; [.20C2.0024.0002][.FFF1.0000.0000] # ARABIC LETTER TEH MARBUTA GOAL
+06C0      ; [.20C2.0025.0002][.FFF1.0000.0000] # ARABIC LETTER HEH WITH YEH ABOVE
+06D5 0654 ; [.20C2.0025.0002][.FFF1.0000.0000] # ARABIC LETTER HEH WITH YEH ABOVE
+06BE      ; [.20C2.0026.0002][.FFF1.0000.0000] # ARABIC LETTER HEH DOACHASHMEE
+06CF      ; [.20C2.0020.0002][.FFF0.0000.0000] # ARABIC LETTER WAW WITH DOT ABOVE
+0649      ; [.20C8.0021.0002] # ARABIC LETTER ALEF MAKSURA
+06D2      ; [.20C8.0022.0002] # ARABIC LETTER YEH BARREE
+06D3      ; [.20C8.0022.0002][.0000.0083.0002] # ARABIC LETTER YEH BARREE WITH HAMZA ABOVE
+064A      ; [.20C8.0023.0002] # ARABIC LETTER YEH
+06D0      ; [.20C8.0024.0002] # ARABIC LETTER E
+06D1      ; [.20C8.0025.0002] # ARABIC LETTER YEH WITH THREE DOTS BELOW
+06CD      ; [.20C8.0026.0002] # ARABIC LETTER YEH WITH TAIL
+06CE      ; [.20C8.0027.0002] # ARABIC LETTER YEH WITH SMALL V
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/fi.pl b/lib/5.24.1/Unicode/Collate/Locale/fi.pl
new file mode 100644
index 00000000..a1e6a6b3
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/fi.pl
@@ -0,0 +1,65 @@
++{
+   locale_version => 1.14,
+# in cldr test/fi.xml why x{110}x < xdx though xd < x{110} ?
+   entry => <<'ENTRY', # for DUCET v7.0.0
+0111      ; [.1953.0021.0002][.0000.0039.0002] # LATIN SMALL LETTER D WITH STROKE
+0110      ; [.1953.0021.0008][.0000.0039.0002] # LATIN CAPITAL LETTER D WITH STROKE
+01E5      ; [.19B8.0021.0002][.0000.0039.0002] # LATIN SMALL LETTER G WITH STROKE
+01E4      ; [.19B8.0021.0008][.0000.0039.0002] # LATIN CAPITAL LETTER G WITH STROKE
+014B      ; [.1A7D.0021.0002][.0000.0039.0002] # LATIN SMALL LETTER ENG
+014A      ; [.1A7D.0021.0008][.0000.0039.0002] # LATIN CAPITAL LETTER ENG
+0167      ; [.1B57.0021.0002][.0000.0039.0002] # LATIN SMALL LETTER T WITH STROKE
+0166      ; [.1B57.0021.0008][.0000.0039.0002] # LATIN CAPITAL LETTER T WITH STROKE
+0077      ; [.1BA5.0021.0002] # LATIN SMALL LETTER W
+0057      ; [.1BA5.0021.0008] # LATIN CAPITAL LETTER W
+00FC      ; [.1BCD.0021.0002] # LATIN SMALL LETTER U WITH DIAERESIS
+0075 0308 ; [.1BCD.0021.0002] # LATIN SMALL LETTER U WITH DIAERESIS
+00DC      ; [.1BCD.0021.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS
+0055 0308 ; [.1BCD.0021.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS
+01DC      ; [.1BCD.0021.0002][.0000.0025.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND GRAVE
+01DB      ; [.1BCD.0021.0008][.0000.0025.0002] # LATIN CAPITAL LETTER U WITH DIAERESIS AND GRAVE
+01D8      ; [.1BCD.0021.0002][.0000.0024.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND ACUTE
+01D7      ; [.1BCD.0021.0008][.0000.0024.0002] # LATIN CAPITAL LETTER U WITH DIAERESIS AND ACUTE
+01D6      ; [.1BCD.0021.0002][.0000.0032.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND MACRON
+01D5      ; [.1BCD.0021.0008][.0000.0032.0002] # LATIN CAPITAL LETTER U WITH DIAERESIS AND MACRON
+01DA      ; [.1BCD.0021.0002][.0000.0028.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND CARON
+01D9      ; [.1BCD.0021.0008][.0000.0028.0002] # LATIN CAPITAL LETTER U WITH DIAERESIS AND CARON
+0292      ; [.1BE3.0021.0002][.0000.0039.0002] # LATIN SMALL LETTER EZH
+01B7      ; [.1BE3.0021.0008][.0000.0039.0002] # LATIN CAPITAL LETTER EZH
+01EF      ; [.1BE3.0021.0002][.0000.0039.0002][.0000.0028.0002] # LATIN SMALL LETTER EZH WITH CARON
+01EE      ; [.1BE3.0021.0008][.0000.0039.0002][.0000.0028.0002] # LATIN CAPITAL LETTER EZH WITH CARON
+00E5      ; [.1C54.0020.0002] # LATIN SMALL LETTER A WITH RING ABOVE
+0061 030A ; [.1C54.0020.0002] # LATIN SMALL LETTER A WITH RING ABOVE
+00C5      ; [.1C54.0020.0008] # LATIN CAPITAL LETTER A WITH RING ABOVE
+0041 030A ; [.1C54.0020.0008] # LATIN CAPITAL LETTER A WITH RING ABOVE
+212B      ; [.1C54.0020.0008] # ANGSTROM SIGN
+01FB      ; [.1C54.0020.0002][.0000.0024.0002] # LATIN SMALL LETTER A WITH RING ABOVE AND ACUTE
+01FA      ; [.1C54.0020.0008][.0000.0024.0002] # LATIN CAPITAL LETTER A WITH RING ABOVE AND ACUTE
+00E4      ; [.1C55.0020.0002] # LATIN SMALL LETTER A WITH DIAERESIS
+0061 0308 ; [.1C55.0020.0002] # LATIN SMALL LETTER A WITH DIAERESIS
+00C4      ; [.1C55.0020.0008] # LATIN CAPITAL LETTER A WITH DIAERESIS
+0041 0308 ; [.1C55.0020.0008] # LATIN CAPITAL LETTER A WITH DIAERESIS
+01DF      ; [.1C55.0020.0002][.0000.0032.0002] # LATIN SMALL LETTER A WITH DIAERESIS AND MACRON
+01DE      ; [.1C55.0020.0008][.0000.0032.0002] # LATIN CAPITAL LETTER A WITH DIAERESIS AND MACRON
+00E6      ; [.1C55.0021.0002] # LATIN SMALL LETTER AE
+1DD4      ; [.1C55.0021.0002] # COMBINING LATIN SMALL LETTER AE
+00C6      ; [.1C55.0021.0008] # LATIN CAPITAL LETTER AE
+1D2D      ; [.1C55.0021.0014] # MODIFIER LETTER CAPITAL AE
+01FD      ; [.1C55.0021.0002][.0000.0024.0002] # LATIN SMALL LETTER AE WITH ACUTE
+01FC      ; [.1C55.0021.0008][.0000.0024.0002] # LATIN CAPITAL LETTER AE WITH ACUTE
+01E3      ; [.1C55.0021.0002][.0000.0032.0002] # LATIN SMALL LETTER AE WITH MACRON
+01E2      ; [.1C55.0021.0008][.0000.0032.0002] # LATIN CAPITAL LETTER AE WITH MACRON
+00F6      ; [.1C56.0020.0002] # LATIN SMALL LETTER O WITH DIAERESIS
+006F 0308 ; [.1C56.0020.0002] # LATIN SMALL LETTER O WITH DIAERESIS
+00D6      ; [.1C56.0020.0008] # LATIN CAPITAL LETTER O WITH DIAERESIS
+004F 0308 ; [.1C56.0020.0008] # LATIN CAPITAL LETTER O WITH DIAERESIS
+022B      ; [.1C56.0020.0002][.0000.0032.0002] # LATIN SMALL LETTER O WITH DIAERESIS AND MACRON
+022A      ; [.1C56.0020.0008][.0000.0032.0002] # LATIN CAPITAL LETTER O WITH DIAERESIS AND MACRON
+00F8      ; [.1C56.0021.0002] # LATIN SMALL LETTER O WITH STROKE
+006F 0338 ; [.1C56.0021.0002] # LATIN SMALL LETTER O WITH STROKE
+00D8      ; [.1C56.0021.0008] # LATIN CAPITAL LETTER O WITH STROKE
+004F 0338 ; [.1C56.0021.0008] # LATIN CAPITAL LETTER O WITH STROKE
+01FF      ; [.1C56.0021.0002][.0000.0024.0002] # LATIN SMALL LETTER O WITH STROKE AND ACUTE
+01FE      ; [.1C56.0021.0008][.0000.0024.0002] # LATIN CAPITAL LETTER O WITH STROKE AND ACUTE
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/fi_phone.pl b/lib/5.24.1/Unicode/Collate/Locale/fi_phone.pl
new file mode 100644
index 00000000..93f3df17
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/fi_phone.pl
@@ -0,0 +1,63 @@
++{
+   locale_version => 1.14,
+# in cldr test/fi.xml why x{110}x < xdx though xd < x{110} ?
+   entry => <<'ENTRY', # for DUCET v7.0.0
+0111      ; [.1953.0021.0002][.0000.0039.0002] # LATIN SMALL LETTER D WITH STROKE
+0110      ; [.1953.0021.0008][.0000.0039.0002] # LATIN CAPITAL LETTER D WITH STROKE
+01E5      ; [.19B8.0021.0002][.0000.0039.0002] # LATIN SMALL LETTER G WITH STROKE
+01E4      ; [.19B8.0021.0008][.0000.0039.0002] # LATIN CAPITAL LETTER G WITH STROKE
+014B      ; [.1A7D.0021.0002][.0000.0039.0002] # LATIN SMALL LETTER ENG
+014A      ; [.1A7D.0021.0008][.0000.0039.0002] # LATIN CAPITAL LETTER ENG
+0167      ; [.1B57.0021.0002][.0000.0039.0002] # LATIN SMALL LETTER T WITH STROKE
+0166      ; [.1B57.0021.0008][.0000.0039.0002] # LATIN CAPITAL LETTER T WITH STROKE
+00FC      ; [.1BCD.0021.0002] # LATIN SMALL LETTER U WITH DIAERESIS
+0075 0308 ; [.1BCD.0021.0002] # LATIN SMALL LETTER U WITH DIAERESIS
+00DC      ; [.1BCD.0021.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS
+0055 0308 ; [.1BCD.0021.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS
+01DC      ; [.1BCD.0021.0002][.0000.0025.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND GRAVE
+01DB      ; [.1BCD.0021.0008][.0000.0025.0002] # LATIN CAPITAL LETTER U WITH DIAERESIS AND GRAVE
+01D8      ; [.1BCD.0021.0002][.0000.0024.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND ACUTE
+01D7      ; [.1BCD.0021.0008][.0000.0024.0002] # LATIN CAPITAL LETTER U WITH DIAERESIS AND ACUTE
+01D6      ; [.1BCD.0021.0002][.0000.0032.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND MACRON
+01D5      ; [.1BCD.0021.0008][.0000.0032.0002] # LATIN CAPITAL LETTER U WITH DIAERESIS AND MACRON
+01DA      ; [.1BCD.0021.0002][.0000.0028.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND CARON
+01D9      ; [.1BCD.0021.0008][.0000.0028.0002] # LATIN CAPITAL LETTER U WITH DIAERESIS AND CARON
+0292      ; [.1BE3.0021.0002][.0000.0039.0002] # LATIN SMALL LETTER EZH
+01B7      ; [.1BE3.0021.0008][.0000.0039.0002] # LATIN CAPITAL LETTER EZH
+01EF      ; [.1BE3.0021.0002][.0000.0039.0002][.0000.0028.0002] # LATIN SMALL LETTER EZH WITH CARON
+01EE      ; [.1BE3.0021.0008][.0000.0039.0002][.0000.0028.0002] # LATIN CAPITAL LETTER EZH WITH CARON
+00E5      ; [.1C54.0020.0002] # LATIN SMALL LETTER A WITH RING ABOVE
+0061 030A ; [.1C54.0020.0002] # LATIN SMALL LETTER A WITH RING ABOVE
+00C5      ; [.1C54.0020.0008] # LATIN CAPITAL LETTER A WITH RING ABOVE
+0041 030A ; [.1C54.0020.0008] # LATIN CAPITAL LETTER A WITH RING ABOVE
+212B      ; [.1C54.0020.0008] # ANGSTROM SIGN
+01FB      ; [.1C54.0020.0002][.0000.0024.0002] # LATIN SMALL LETTER A WITH RING ABOVE AND ACUTE
+01FA      ; [.1C54.0020.0008][.0000.0024.0002] # LATIN CAPITAL LETTER A WITH RING ABOVE AND ACUTE
+00E4      ; [.1C55.0020.0002] # LATIN SMALL LETTER A WITH DIAERESIS
+0061 0308 ; [.1C55.0020.0002] # LATIN SMALL LETTER A WITH DIAERESIS
+00C4      ; [.1C55.0020.0008] # LATIN CAPITAL LETTER A WITH DIAERESIS
+0041 0308 ; [.1C55.0020.0008] # LATIN CAPITAL LETTER A WITH DIAERESIS
+01DF      ; [.1C55.0020.0002][.0000.0032.0002] # LATIN SMALL LETTER A WITH DIAERESIS AND MACRON
+01DE      ; [.1C55.0020.0008][.0000.0032.0002] # LATIN CAPITAL LETTER A WITH DIAERESIS AND MACRON
+00E6      ; [.1C55.0021.0002] # LATIN SMALL LETTER AE
+1DD4      ; [.1C55.0021.0002] # COMBINING LATIN SMALL LETTER AE
+00C6      ; [.1C55.0021.0008] # LATIN CAPITAL LETTER AE
+1D2D      ; [.1C55.0021.0014] # MODIFIER LETTER CAPITAL AE
+01FD      ; [.1C55.0021.0002][.0000.0024.0002] # LATIN SMALL LETTER AE WITH ACUTE
+01FC      ; [.1C55.0021.0008][.0000.0024.0002] # LATIN CAPITAL LETTER AE WITH ACUTE
+01E3      ; [.1C55.0021.0002][.0000.0032.0002] # LATIN SMALL LETTER AE WITH MACRON
+01E2      ; [.1C55.0021.0008][.0000.0032.0002] # LATIN CAPITAL LETTER AE WITH MACRON
+00F6      ; [.1C56.0020.0002] # LATIN SMALL LETTER O WITH DIAERESIS
+006F 0308 ; [.1C56.0020.0002] # LATIN SMALL LETTER O WITH DIAERESIS
+00D6      ; [.1C56.0020.0008] # LATIN CAPITAL LETTER O WITH DIAERESIS
+004F 0308 ; [.1C56.0020.0008] # LATIN CAPITAL LETTER O WITH DIAERESIS
+022B      ; [.1C56.0020.0002][.0000.0032.0002] # LATIN SMALL LETTER O WITH DIAERESIS AND MACRON
+022A      ; [.1C56.0020.0008][.0000.0032.0002] # LATIN CAPITAL LETTER O WITH DIAERESIS AND MACRON
+00F8      ; [.1C56.0021.0002] # LATIN SMALL LETTER O WITH STROKE
+006F 0338 ; [.1C56.0021.0002] # LATIN SMALL LETTER O WITH STROKE
+00D8      ; [.1C56.0021.0008] # LATIN CAPITAL LETTER O WITH STROKE
+004F 0338 ; [.1C56.0021.0008] # LATIN CAPITAL LETTER O WITH STROKE
+01FF      ; [.1C56.0021.0002][.0000.0024.0002] # LATIN SMALL LETTER O WITH STROKE AND ACUTE
+01FE      ; [.1C56.0021.0008][.0000.0024.0002] # LATIN CAPITAL LETTER O WITH STROKE AND ACUTE
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/fil.pl b/lib/5.24.1/Unicode/Collate/Locale/fil.pl
new file mode 100644
index 00000000..d53d155d
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/fil.pl
@@ -0,0 +1,12 @@
++{
+   locale_version => 1.14,
+   entry => <<'ENTRY', # for DUCET v7.0.0
+00F1      ; [.1A7E.0020.0002] # LATIN SMALL LETTER N WITH TILDE
+006E 0303 ; [.1A7E.0020.0002] # LATIN SMALL LETTER N WITH TILDE
+00D1      ; [.1A7E.0020.0008] # LATIN CAPITAL LETTER N WITH TILDE
+004E 0303 ; [.1A7E.0020.0008] # LATIN CAPITAL LETTER N WITH TILDE
+006E 0067 ; [.1A7F.0020.0002] # <LATIN SMALL LETTER N, LATIN SMALL LETTER G>
+004E 0067 ; [.1A7F.0020.0007] # <LATIN CAPITAL LETTER N, LATIN SMALL LETTER G>
+004E 0047 ; [.1A7F.0020.0008] # <LATIN CAPITAL LETTER N, LATIN CAPITAL LETTER G>
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/fo.pl b/lib/5.24.1/Unicode/Collate/Locale/fo.pl
new file mode 100644
index 00000000..ec79a498
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/fo.pl
@@ -0,0 +1,77 @@
++{
+   locale_version => 1.14,
+   entry => <<'ENTRY', # for DUCET v7.0.0
+0111      ; [.1953.0021.0002] # LATIN SMALL LETTER D WITH STROKE
+0064 0335 ; [.1953.0021.0002] # LATIN SMALL LETTER D WITH STROKE
+0110      ; [.1953.0021.0008] # LATIN CAPITAL LETTER D WITH STROKE
+0044 0335 ; [.1953.0021.0008] # LATIN CAPITAL LETTER D WITH STROKE
+00F0      ; [.1953.0022.0002] # LATIN SMALL LETTER ETH
+1DD9      ; [.1953.0022.0002] # COMBINING LATIN SMALL LETTER ETH
+00D0      ; [.1953.0022.0008] # LATIN CAPITAL LETTER ETH
+00FE      ; [.1B57.0020.0003][.19DC.0020.0003] # LATIN SMALL LETTER THORN
+00DE      ; [.1B57.0020.0009][.19DC.0020.0009] # LATIN CAPITAL LETTER THORN
+00FC      ; [.1BCD.0021.0002] # LATIN SMALL LETTER U WITH DIAERESIS
+0075 0308 ; [.1BCD.0021.0002] # LATIN SMALL LETTER U WITH DIAERESIS
+00DC      ; [.1BCD.0021.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS
+0055 0308 ; [.1BCD.0021.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS
+01DC      ; [.1BCD.0021.0002][.0000.0025.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND GRAVE
+01DB      ; [.1BCD.0021.0008][.0000.0025.0002] # LATIN CAPITAL LETTER U WITH DIAERESIS AND GRAVE
+01D8      ; [.1BCD.0021.0002][.0000.0024.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND ACUTE
+01D7      ; [.1BCD.0021.0008][.0000.0024.0002] # LATIN CAPITAL LETTER U WITH DIAERESIS AND ACUTE
+01D6      ; [.1BCD.0021.0002][.0000.0032.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND MACRON
+01D5      ; [.1BCD.0021.0008][.0000.0032.0002] # LATIN CAPITAL LETTER U WITH DIAERESIS AND MACRON
+01DA      ; [.1BCD.0021.0002][.0000.0028.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND CARON
+01D9      ; [.1BCD.0021.0008][.0000.0028.0002] # LATIN CAPITAL LETTER U WITH DIAERESIS AND CARON
+0171      ; [.1BCD.0022.0002] # LATIN SMALL LETTER U WITH DOUBLE ACUTE
+0075 030B ; [.1BCD.0022.0002] # LATIN SMALL LETTER U WITH DOUBLE ACUTE
+0170      ; [.1BCD.0022.0008] # LATIN CAPITAL LETTER U WITH DOUBLE ACUTE
+0055 030B ; [.1BCD.0022.0008] # LATIN CAPITAL LETTER U WITH DOUBLE ACUTE
+00E6      ; [.1C54.0020.0002] # LATIN SMALL LETTER AE
+1DD4      ; [.1C54.0020.0002] # COMBINING LATIN SMALL LETTER AE
+00C6      ; [.1C54.0020.0008] # LATIN CAPITAL LETTER AE
+1D2D      ; [.1C54.0020.0014] # MODIFIER LETTER CAPITAL AE
+01FD      ; [.1C54.0020.0002][.0000.0024.0002] # LATIN SMALL LETTER AE WITH ACUTE
+01FC      ; [.1C54.0020.0008][.0000.0024.0002] # LATIN CAPITAL LETTER AE WITH ACUTE
+01E3      ; [.1C54.0020.0002][.0000.0032.0002] # LATIN SMALL LETTER AE WITH MACRON
+01E2      ; [.1C54.0020.0008][.0000.0032.0002] # LATIN CAPITAL LETTER AE WITH MACRON
+00E4      ; [.1C54.0021.0002] # LATIN SMALL LETTER A WITH DIAERESIS
+0061 0308 ; [.1C54.0021.0002] # LATIN SMALL LETTER A WITH DIAERESIS
+00C4      ; [.1C54.0021.0008] # LATIN CAPITAL LETTER A WITH DIAERESIS
+0041 0308 ; [.1C54.0021.0008] # LATIN CAPITAL LETTER A WITH DIAERESIS
+01DF      ; [.1C54.0021.0002][.0000.0032.0002] # LATIN SMALL LETTER A WITH DIAERESIS AND MACRON
+01DE      ; [.1C54.0021.0008][.0000.0032.0002] # LATIN CAPITAL LETTER A WITH DIAERESIS AND MACRON
+0119      ; [.1C54.0022.0002] # LATIN SMALL LETTER E WITH OGONEK
+0065 0328 ; [.1C54.0022.0002] # LATIN SMALL LETTER E WITH OGONEK
+0118      ; [.1C54.0022.0008] # LATIN CAPITAL LETTER E WITH OGONEK
+0045 0328 ; [.1C54.0022.0008] # LATIN CAPITAL LETTER E WITH OGONEK
+00F8      ; [.1C55.0020.0002] # LATIN SMALL LETTER O WITH STROKE
+006F 0338 ; [.1C55.0020.0002] # LATIN SMALL LETTER O WITH STROKE
+00D8      ; [.1C55.0020.0008] # LATIN CAPITAL LETTER O WITH STROKE
+004F 0338 ; [.1C55.0020.0008] # LATIN CAPITAL LETTER O WITH STROKE
+01FF      ; [.1C55.0020.0002][.0000.0024.0002] # LATIN SMALL LETTER O WITH STROKE AND ACUTE
+01FE      ; [.1C55.0020.0008][.0000.0024.0002] # LATIN CAPITAL LETTER O WITH STROKE AND ACUTE
+00F6      ; [.1C55.0021.0002] # LATIN SMALL LETTER O WITH DIAERESIS
+006F 0308 ; [.1C55.0021.0002] # LATIN SMALL LETTER O WITH DIAERESIS
+00D6      ; [.1C55.0021.0008] # LATIN CAPITAL LETTER O WITH DIAERESIS
+004F 0308 ; [.1C55.0021.0008] # LATIN CAPITAL LETTER O WITH DIAERESIS
+022B      ; [.1C55.0021.0002][.0000.0032.0002] # LATIN SMALL LETTER O WITH DIAERESIS AND MACRON
+022A      ; [.1C55.0021.0008][.0000.0032.0002] # LATIN CAPITAL LETTER O WITH DIAERESIS AND MACRON
+0151      ; [.1C55.0022.0002] # LATIN SMALL LETTER O WITH DOUBLE ACUTE
+006F 030B ; [.1C55.0022.0002] # LATIN SMALL LETTER O WITH DOUBLE ACUTE
+0150      ; [.1C55.0022.0008] # LATIN CAPITAL LETTER O WITH DOUBLE ACUTE
+004F 030B ; [.1C55.0022.0008] # LATIN CAPITAL LETTER O WITH DOUBLE ACUTE
+0153      ; [.1C55.0023.0002] # LATIN SMALL LIGATURE OE
+0152      ; [.1C55.0023.0008] # LATIN CAPITAL LIGATURE OE
+00E5      ; [.1C56.0020.0002] # LATIN SMALL LETTER A WITH RING ABOVE
+0061 030A ; [.1C56.0020.0002] # LATIN SMALL LETTER A WITH RING ABOVE
+00C5      ; [.1C56.0020.0008] # LATIN CAPITAL LETTER A WITH RING ABOVE
+0041 030A ; [.1C56.0020.0008] # LATIN CAPITAL LETTER A WITH RING ABOVE
+212B      ; [.1C56.0020.0008] # ANGSTROM SIGN
+01FB      ; [.1C56.0020.0002][.0000.0024.0002] # LATIN SMALL LETTER A WITH RING ABOVE AND ACUTE
+01FA      ; [.1C56.0020.0008][.0000.0024.0002] # LATIN CAPITAL LETTER A WITH RING ABOVE AND ACUTE
+0061 0061 ; [.1C56.0020.001C][.0000.0000.0002] # <LATIN SMALL LETTER A, LATIN SMALL LETTER A>
+0061 0041 ; [.1C56.0020.001C][.0000.0000.0008] # <LATIN SMALL LETTER A, LATIN CAPITAL LETTER A>
+0041 0061 ; [.1C56.0020.001D][.0000.0000.0002] # <LATIN CAPITAL LETTER A, LATIN SMALL LETTER A>
+0041 0041 ; [.1C56.0020.001D][.0000.0000.0008] # <LATIN CAPITAL LETTER A, LATIN CAPITAL LETTER A>
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/fr.pl b/lib/5.24.1/Unicode/Collate/Locale/fr.pl
new file mode 100644
index 00000000..8c1a5656
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/fr.pl
@@ -0,0 +1,4 @@
++{
+   locale_version => 1.14,
+   backwards => 2,
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/gu.pl b/lib/5.24.1/Unicode/Collate/Locale/gu.pl
new file mode 100644
index 00000000..037b655b
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/gu.pl
@@ -0,0 +1,9 @@
++{
+   locale_version => 1.14,
+   entry => <<'ENTRY', # for DUCET v7.0.0
+0A82      ; [.2438.0020.0002][.FFF1.0000.0000] # GUJARATI SIGN ANUSVARA
+0A81      ; [.2438.0021.0002][.FFF1.0000.0000] # GUJARATI SIGN CANDRABINDU
+0A83      ; [.2438.0020.0002][.FFF2.0000.0000] # GUJARATI SIGN VISARGA
+0AD0      ; [.2438.0020.0002][.FFF0.0000.0000] # GUJARATI OM
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/ha.pl b/lib/5.24.1/Unicode/Collate/Locale/ha.pl
new file mode 100644
index 00000000..845b7c0c
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/ha.pl
@@ -0,0 +1,16 @@
++{
+   locale_version => 1.14,
+# b-hook, d-hook, k-hook, y-hook don't require tailoring
+   entry => <<'ENTRY', # for DUCET v7.0.0
+0073 0068 ; [.1B34.0020.0002] # <LATIN SMALL LETTER S, LATIN SMALL LETTER H>
+0053 0068 ; [.1B34.0020.0007] # <LATIN CAPITAL LETTER S, LATIN SMALL LETTER H>
+0053 0048 ; [.1B34.0020.0008] # <LATIN CAPITAL LETTER S, LATIN CAPITAL LETTER H>
+0074 0073 ; [.1B58.0020.0002] # <LATIN SMALL LETTER T, LATIN SMALL LETTER S>
+0054 0073 ; [.1B58.0020.0007] # <LATIN CAPITAL LETTER T, LATIN SMALL LETTER S>
+0054 0053 ; [.1B58.0020.0008] # <LATIN CAPITAL LETTER T, LATIN CAPITAL LETTER S>
+02BC 0079 ; [.1BD9.0020.0003] # <MODIFIER LETTER APOSTROPHE, LATIN SMALL LETTER Y>
+02BC 0059 ; [.1BD9.0020.0009] # <MODIFIER LETTER APOSTROPHE, LATIN CAPITAL LETTER Y>
+0027 0079 ; [.1BD9.0020.0004] # <APOSTROPHE, LATIN SMALL LETTER Y>
+0027 0059 ; [.1BD9.0020.000A] # <APOSTROPHE, LATIN CAPITAL LETTER Y>
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/haw.pl b/lib/5.24.1/Unicode/Collate/Locale/haw.pl
new file mode 100644
index 00000000..cb17e77a
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/haw.pl
@@ -0,0 +1,37 @@
++{
+   locale_version => 1.14,
+   entry => <<'ENTRY', # for DUCET v7.0.0
+0065      ; [.190D.0020.0002] # LATIN SMALL LETTER E
+0045      ; [.190D.0020.0008] # LATIN CAPITAL LETTER E
+0069      ; [.190E.0020.0002] # LATIN SMALL LETTER I
+0049      ; [.190E.0020.0008] # LATIN CAPITAL LETTER I
+006F      ; [.190F.0020.0002] # LATIN SMALL LETTER O
+004F      ; [.190F.0020.0008] # LATIN CAPITAL LETTER O
+0075      ; [.1910.0020.0002] # LATIN SMALL LETTER U
+0055      ; [.1910.0020.0008] # LATIN CAPITAL LETTER U
+0068      ; [.1911.0020.0002] # LATIN SMALL LETTER H
+0048      ; [.1911.0020.0008] # LATIN CAPITAL LETTER H
+006B      ; [.1912.0020.0002] # LATIN SMALL LETTER K
+004B      ; [.1912.0020.0008] # LATIN CAPITAL LETTER K
+212A      ; [.1912.0020.0008] # KELVIN SIGN
+006C      ; [.1913.0020.0002] # LATIN SMALL LETTER L
+004C      ; [.1913.0020.0008] # LATIN CAPITAL LETTER L
+006D      ; [.1914.0020.0002] # LATIN SMALL LETTER M
+004D      ; [.1914.0020.0008] # LATIN CAPITAL LETTER M
+006E      ; [.1915.0020.0002] # LATIN SMALL LETTER N
+004E      ; [.1915.0020.0008] # LATIN CAPITAL LETTER N
+0070      ; [.1916.0020.0002] # LATIN SMALL LETTER P
+0050      ; [.1916.0020.0008] # LATIN CAPITAL LETTER P
+0077      ; [.1917.0020.0002] # LATIN SMALL LETTER W
+0057      ; [.1917.0020.0008] # LATIN CAPITAL LETTER W
+02BB      ; [.1918.0020.0002] # MODIFIER LETTER TURNED COMMA
+0113      ; [.190D.0020.0002][.0000.0032.0002] # LATIN SMALL LETTER E WITH MACRON
+0112      ; [.190D.0020.0008][.0000.0032.0002] # LATIN CAPITAL LETTER E WITH MACRON
+012B      ; [.190E.0020.0002][.0000.0032.0002] # LATIN SMALL LETTER I WITH MACRON
+012A      ; [.190E.0020.0008][.0000.0032.0002] # LATIN CAPITAL LETTER I WITH MACRON
+014D      ; [.190F.0020.0002][.0000.0032.0002] # LATIN SMALL LETTER O WITH MACRON
+014C      ; [.190F.0020.0008][.0000.0032.0002] # LATIN CAPITAL LETTER O WITH MACRON
+016B      ; [.1910.0020.0002][.0000.0032.0002] # LATIN SMALL LETTER U WITH MACRON
+016A      ; [.1910.0020.0008][.0000.0032.0002] # LATIN CAPITAL LETTER U WITH MACRON
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/hi.pl b/lib/5.24.1/Unicode/Collate/Locale/hi.pl
new file mode 100644
index 00000000..1fab20c2
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/hi.pl
@@ -0,0 +1,9 @@
++{
+   locale_version => 1.14,
+   entry => <<'ENTRY', # for DUCET v7.0.0
+0902      ; [.235B.0020.0002][.FFF1.0000.0000] # DEVANAGARI SIGN ANUSVARA
+0901      ; [.235B.0021.0002][.FFF1.0000.0000] # DEVANAGARI SIGN CANDRABINDU
+0903      ; [.235B.0020.0002][.FFF2.0000.0000] # DEVANAGARI SIGN VISARGA
+0950      ; [.235B.0020.0002][.FFF0.0000.0000] # DEVANAGARI OM
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/hr.pl b/lib/5.24.1/Unicode/Collate/Locale/hr.pl
new file mode 100644
index 00000000..e7d29d61
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/hr.pl
@@ -0,0 +1,48 @@
++{
+   locale_version => 1.14,
+   entry => <<'ENTRY', # for DUCET v7.0.0
+010D      ; [.193F.0020.0002] # LATIN SMALL LETTER C WITH CARON
+0063 030C ; [.193F.0020.0002] # LATIN SMALL LETTER C WITH CARON
+010C      ; [.193F.0020.0008] # LATIN CAPITAL LETTER C WITH CARON
+0043 030C ; [.193F.0020.0008] # LATIN CAPITAL LETTER C WITH CARON
+0107      ; [.1940.0020.0002] # LATIN SMALL LETTER C WITH ACUTE
+0063 0301 ; [.1940.0020.0002] # LATIN SMALL LETTER C WITH ACUTE
+0063 0341 ; [.1940.0020.0002] # LATIN SMALL LETTER C WITH ACUTE
+0106      ; [.1940.0020.0008] # LATIN CAPITAL LETTER C WITH ACUTE
+0043 0301 ; [.1940.0020.0008] # LATIN CAPITAL LETTER C WITH ACUTE
+0043 0341 ; [.1940.0020.0008] # LATIN CAPITAL LETTER C WITH ACUTE
+0064 017E ; [.1954.0020.0002] # <LATIN SMALL LETTER D, LATIN SMALL LETTER Z WITH CARON>
+01C6      ; [.1954.0020.0003] # LATIN SMALL LETTER DZ WITH CARON
+0044 017E ; [.1954.0020.0007][.0000.0000.0001] # <LATIN CAPITAL LETTER D, LATIN SMALL LETTER Z WITH CARON>
+01C5      ; [.1954.0020.0007][.0000.0000.0007] # LATIN CAPITAL LETTER D WITH SMALL LETTER Z WITH CARON
+0044 017D ; [.1954.0020.0008] # <LATIN CAPITAL LETTER D, LATIN CAPITAL LETTER Z WITH CARON>
+01C4      ; [.1954.0020.0009] # LATIN CAPITAL LETTER DZ WITH CARON
+0064 007A 030C ; [.1954.0020.0002] # <LATIN SMALL LETTER D, LATIN SMALL LETTER Z, COMBINING CARON>
+0044 007A 030C ; [.1954.0020.0007][.0000.0000.0001] # <LATIN CAPITAL LETTER D, LATIN SMALL LETTER Z, COMBINING CARON>
+0044 005A 030C ; [.1954.0020.0008] # <LATIN CAPITAL LETTER D, LATIN CAPITAL LETTER Z, COMBINING CARON>
+0111      ; [.1955.0020.0002] # LATIN SMALL LETTER D WITH STROKE
+0064 0335 ; [.1955.0020.0002] # LATIN SMALL LETTER D WITH STROKE
+0110      ; [.1955.0020.0008] # LATIN CAPITAL LETTER D WITH STROKE
+0044 0335 ; [.1955.0020.0008] # LATIN CAPITAL LETTER D WITH STROKE
+006C 006A ; [.1A3C.0020.0002] # <LATIN SMALL LETTER L, LATIN SMALL LETTER J>
+01C9      ; [.1A3C.0020.0003] # LATIN SMALL LETTER LJ
+004C 006A ; [.1A3C.0020.0007][.0000.0000.0001] # <LATIN CAPITAL LETTER L, LATIN SMALL LETTER J>
+01C8      ; [.1A3C.0020.0007][.0000.0000.0007] # LATIN CAPITAL LETTER L WITH SMALL LETTER J
+004C 004A ; [.1A3C.0020.0008] # <LATIN CAPITAL LETTER L, LATIN CAPITAL LETTER J>
+01C7      ; [.1A3C.0020.0009] # LATIN CAPITAL LETTER LJ
+006E 006A ; [.1A7E.0020.0002] # <LATIN SMALL LETTER N, LATIN SMALL LETTER J>
+01CC      ; [.1A7E.0020.0003] # LATIN SMALL LETTER NJ
+004E 006A ; [.1A7E.0020.0007][.0000.0000.0001] # <LATIN CAPITAL LETTER N, LATIN SMALL LETTER J>
+01CB      ; [.1A7E.0020.0007][.0000.0000.0007] # LATIN CAPITAL LETTER N WITH SMALL LETTER J
+004E 004A ; [.1A7E.0020.0008] # <LATIN CAPITAL LETTER N, LATIN CAPITAL LETTER J>
+01CA      ; [.1A7E.0020.0009] # LATIN CAPITAL LETTER NJ
+0161      ; [.1B34.0020.0002] # LATIN SMALL LETTER S WITH CARON
+0073 030C ; [.1B34.0020.0002] # LATIN SMALL LETTER S WITH CARON
+0160      ; [.1B34.0020.0008] # LATIN CAPITAL LETTER S WITH CARON
+0053 030C ; [.1B34.0020.0008] # LATIN CAPITAL LETTER S WITH CARON
+017E      ; [.1BE4.0020.0002] # LATIN SMALL LETTER Z WITH CARON
+007A 030C ; [.1BE4.0020.0002] # LATIN SMALL LETTER Z WITH CARON
+017D      ; [.1BE4.0020.0008] # LATIN CAPITAL LETTER Z WITH CARON
+005A 030C ; [.1BE4.0020.0008] # LATIN CAPITAL LETTER Z WITH CARON
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/hu.pl b/lib/5.24.1/Unicode/Collate/Locale/hu.pl
new file mode 100644
index 00000000..62b6707e
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/hu.pl
@@ -0,0 +1,151 @@
++{
+   locale_version => 1.14,
+   entry => <<'ENTRY', # for DUCET v7.0.0
+0063 0073 ; [.193F.0020.0002] # <LATIN SMALL LETTER C, LATIN SMALL LETTER S>
+0063 0053 ; [.193F.0020.0007][.0000.0000.0002] # <LATIN SMALL LETTER C, LATIN CAPITAL LETTER S>
+0043 0073 ; [.193F.0020.0007][.0000.0000.0008] # <LATIN CAPITAL LETTER C, LATIN SMALL LETTER S>
+0043 0053 ; [.193F.0020.0008] # <LATIN CAPITAL LETTER C, LATIN CAPITAL LETTER S>
+0064 007A ; [.1954.0020.0002] # <LATIN SMALL LETTER D, LATIN SMALL LETTER Z>
+0064 005A ; [.1954.0020.0007][.0000.0000.0002] # <LATIN SMALL LETTER D, LATIN CAPITAL LETTER Z>
+0044 007A ; [.1954.0020.0007][.0000.0000.0008] # <LATIN CAPITAL LETTER D, LATIN SMALL LETTER Z>
+0044 005A ; [.1954.0020.0008] # <LATIN CAPITAL LETTER D, LATIN CAPITAL LETTER Z>
+0064 007A 0073 ; [.1955.0020.0002] # <LATIN SMALL LETTER D, LATIN SMALL LETTER Z, LATIN SMALL LETTER S>
+0064 007A 0053 ; [.1955.0020.0007][.0000.0000.0002][.0000.0000.0002] # <LATIN SMALL LETTER D, LATIN SMALL LETTER Z, LATIN CAPITAL LETTER S>
+0064 005A 0073 ; [.1955.0020.0007][.0000.0000.0002][.0000.0000.0007] # <LATIN SMALL LETTER D, LATIN CAPITAL LETTER Z, LATIN SMALL LETTER S>
+0064 005A 0053 ; [.1955.0020.0007][.0000.0000.0002][.0000.0000.0008] # <LATIN SMALL LETTER D, LATIN CAPITAL LETTER Z, LATIN CAPITAL LETTER S>
+0044 007A 0073 ; [.1955.0020.0007][.0000.0000.0008][.0000.0000.0002] # <LATIN CAPITAL LETTER D, LATIN SMALL LETTER Z, LATIN SMALL LETTER S>
+0044 007A 0053 ; [.1955.0020.0007][.0000.0000.0008][.0000.0000.0007] # <LATIN CAPITAL LETTER D, LATIN SMALL LETTER Z, LATIN CAPITAL LETTER S>
+0044 005A 0073 ; [.1955.0020.0007][.0000.0000.0008][.0000.0000.0008] # <LATIN CAPITAL LETTER D, LATIN CAPITAL LETTER Z, LATIN SMALL LETTER S>
+0044 005A 0053 ; [.1955.0020.0008] # <LATIN CAPITAL LETTER D, LATIN CAPITAL LETTER Z, LATIN CAPITAL LETTER S>
+0067 0079 ; [.19B9.0020.0002] # <LATIN SMALL LETTER G, LATIN SMALL LETTER Y>
+0067 0059 ; [.19B9.0020.0007][.0000.0000.0002] # <LATIN SMALL LETTER G, LATIN CAPITAL LETTER Y>
+0047 0079 ; [.19B9.0020.0007][.0000.0000.0008] # <LATIN CAPITAL LETTER G, LATIN SMALL LETTER Y>
+0047 0059 ; [.19B9.0020.0008] # <LATIN CAPITAL LETTER G, LATIN CAPITAL LETTER Y>
+006C 0079 ; [.1A3C.0020.0002] # <LATIN SMALL LETTER L, LATIN SMALL LETTER Y>
+006C 0059 ; [.1A3C.0020.0007][.0000.0000.0002] # <LATIN SMALL LETTER L, LATIN CAPITAL LETTER Y>
+004C 0079 ; [.1A3C.0020.0007][.0000.0000.0008] # <LATIN CAPITAL LETTER L, LATIN SMALL LETTER Y>
+004C 0059 ; [.1A3C.0020.0008] # <LATIN CAPITAL LETTER L, LATIN CAPITAL LETTER Y>
+006E 0079 ; [.1A7E.0020.0002] # <LATIN SMALL LETTER N, LATIN SMALL LETTER Y>
+006E 0059 ; [.1A7E.0020.0007][.0000.0000.0002] # <LATIN SMALL LETTER N, LATIN CAPITAL LETTER Y>
+004E 0079 ; [.1A7E.0020.0007][.0000.0000.0008] # <LATIN CAPITAL LETTER N, LATIN SMALL LETTER Y>
+004E 0059 ; [.1A7E.0020.0008] # <LATIN CAPITAL LETTER N, LATIN CAPITAL LETTER Y>
+0073 007A ; [.1B34.0020.0002] # <LATIN SMALL LETTER S, LATIN SMALL LETTER Z>
+0073 005A ; [.1B34.0020.0007][.0000.0000.0002] # <LATIN SMALL LETTER S, LATIN CAPITAL LETTER Z>
+0053 007A ; [.1B34.0020.0007][.0000.0000.0008] # <LATIN CAPITAL LETTER S, LATIN SMALL LETTER Z>
+0053 005A ; [.1B34.0020.0008] # <LATIN CAPITAL LETTER S, LATIN CAPITAL LETTER Z>
+0074 0079 ; [.1B58.0020.0002] # <LATIN SMALL LETTER T, LATIN SMALL LETTER Y>
+0074 0059 ; [.1B58.0020.0007][.0000.0000.0002] # <LATIN SMALL LETTER T, LATIN CAPITAL LETTER Y>
+0054 0079 ; [.1B58.0020.0007][.0000.0000.0008] # <LATIN CAPITAL LETTER T, LATIN SMALL LETTER Y>
+0054 0059 ; [.1B58.0020.0008] # <LATIN CAPITAL LETTER T, LATIN CAPITAL LETTER Y>
+007A 0073 ; [.1BE4.0020.0002] # <LATIN SMALL LETTER Z, LATIN SMALL LETTER S>
+007A 0053 ; [.1BE4.0020.0007][.0000.0000.0002] # <LATIN SMALL LETTER Z, LATIN CAPITAL LETTER S>
+005A 0073 ; [.1BE4.0020.0007][.0000.0000.0008] # <LATIN CAPITAL LETTER Z, LATIN SMALL LETTER S>
+005A 0053 ; [.1BE4.0020.0008] # <LATIN CAPITAL LETTER Z, LATIN CAPITAL LETTER S>
+00F6      ; [.1AA2.0020.0002] # LATIN SMALL LETTER O WITH DIAERESIS
+006F 0308 ; [.1AA2.0020.0002] # LATIN SMALL LETTER O WITH DIAERESIS
+00D6      ; [.1AA2.0020.0008] # LATIN CAPITAL LETTER O WITH DIAERESIS
+004F 0308 ; [.1AA2.0020.0008] # LATIN CAPITAL LETTER O WITH DIAERESIS
+022B      ; [.1AA2.0020.0002][.0000.0032.0002] # LATIN SMALL LETTER O WITH DIAERESIS AND MACRON
+022A      ; [.1AA2.0020.0008][.0000.0032.0002] # LATIN CAPITAL LETTER O WITH DIAERESIS AND MACRON
+0151      ; [.1AA2.0021.0002] # LATIN SMALL LETTER O WITH DOUBLE ACUTE
+006F 030B ; [.1AA2.0021.0002] # LATIN SMALL LETTER O WITH DOUBLE ACUTE
+0150      ; [.1AA2.0021.0008] # LATIN CAPITAL LETTER O WITH DOUBLE ACUTE
+004F 030B ; [.1AA2.0021.0008] # LATIN CAPITAL LETTER O WITH DOUBLE ACUTE
+00FC      ; [.1B78.0020.0002] # LATIN SMALL LETTER U WITH DIAERESIS
+0075 0308 ; [.1B78.0020.0002] # LATIN SMALL LETTER U WITH DIAERESIS
+00DC      ; [.1B78.0020.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS
+0055 0308 ; [.1B78.0020.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS
+01DC      ; [.1B78.0020.0002][.0000.0025.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND GRAVE
+01DB      ; [.1B78.0020.0008][.0000.0025.0002] # LATIN CAPITAL LETTER U WITH DIAERESIS AND GRAVE
+01D8      ; [.1B78.0020.0002][.0000.0024.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND ACUTE
+01D7      ; [.1B78.0020.0008][.0000.0024.0002] # LATIN CAPITAL LETTER U WITH DIAERESIS AND ACUTE
+01D6      ; [.1B78.0020.0002][.0000.0032.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND MACRON
+01D5      ; [.1B78.0020.0008][.0000.0032.0002] # LATIN CAPITAL LETTER U WITH DIAERESIS AND MACRON
+01DA      ; [.1B78.0020.0002][.0000.0028.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND CARON
+01D9      ; [.1B78.0020.0008][.0000.0028.0002] # LATIN CAPITAL LETTER U WITH DIAERESIS AND CARON
+0171      ; [.1B78.0021.0002] # LATIN SMALL LETTER U WITH DOUBLE ACUTE
+0075 030B ; [.1B78.0021.0002] # LATIN SMALL LETTER U WITH DOUBLE ACUTE
+0170      ; [.1B78.0021.0008] # LATIN CAPITAL LETTER U WITH DOUBLE ACUTE
+0055 030B ; [.1B78.0021.0008] # LATIN CAPITAL LETTER U WITH DOUBLE ACUTE
+0063 0063 0073 ; [.193F.0020.0002][.193F.0020.0002] # <LATIN SMALL LETTER C, LATIN SMALL LETTER C, LATIN SMALL LETTER S>
+0063 0063 0053 ; [.193F.0020.0002][.193F.0020.0007][.0000.0000.0002] # <LATIN SMALL LETTER C, LATIN SMALL LETTER C, LATIN CAPITAL LETTER S>
+0063 0043 0073 ; [.193F.0020.0002][.193F.0020.0007][.0000.0000.0008] # <LATIN SMALL LETTER C, LATIN CAPITAL LETTER C, LATIN SMALL LETTER S>
+0063 0043 0053 ; [.193F.0020.0002][.193F.0020.0008] # <LATIN SMALL LETTER C, LATIN CAPITAL LETTER C, LATIN CAPITAL LETTER S>
+0043 0063 0073 ; [.193F.0020.0008][.193F.0020.0002] # <LATIN CAPITAL LETTER C, LATIN SMALL LETTER C, LATIN SMALL LETTER S>
+0043 0063 0053 ; [.193F.0020.0008][.193F.0020.0007][.0000.0000.0002] # <LATIN CAPITAL LETTER C, LATIN SMALL LETTER C, LATIN CAPITAL LETTER S>
+0043 0043 0073 ; [.193F.0020.0008][.193F.0020.0007][.0000.0000.0008] # <LATIN CAPITAL LETTER C, LATIN CAPITAL LETTER C, LATIN SMALL LETTER S>
+0043 0043 0053 ; [.193F.0020.0008][.193F.0020.0008] # <LATIN CAPITAL LETTER C, LATIN CAPITAL LETTER C, LATIN CAPITAL LETTER S>
+0064 0064 007A ; [.1954.0020.0002][.1954.0020.0002] # <LATIN SMALL LETTER D, LATIN SMALL LETTER D, LATIN SMALL LETTER Z>
+0064 0064 005A ; [.1954.0020.0002][.1954.0020.0007][.0000.0000.0002] # <LATIN SMALL LETTER D, LATIN SMALL LETTER D, LATIN CAPITAL LETTER Z>
+0064 0044 007A ; [.1954.0020.0002][.1954.0020.0007][.0000.0000.0008] # <LATIN SMALL LETTER D, LATIN CAPITAL LETTER D, LATIN SMALL LETTER Z>
+0064 0044 005A ; [.1954.0020.0002][.1954.0020.0008] # <LATIN SMALL LETTER D, LATIN CAPITAL LETTER D, LATIN CAPITAL LETTER Z>
+0044 0064 007A ; [.1954.0020.0008][.1954.0020.0002] # <LATIN CAPITAL LETTER D, LATIN SMALL LETTER D, LATIN SMALL LETTER Z>
+0044 0064 005A ; [.1954.0020.0008][.1954.0020.0007][.0000.0000.0002] # <LATIN CAPITAL LETTER D, LATIN SMALL LETTER D, LATIN CAPITAL LETTER Z>
+0044 0044 007A ; [.1954.0020.0008][.1954.0020.0007][.0000.0000.0008] # <LATIN CAPITAL LETTER D, LATIN CAPITAL LETTER D, LATIN SMALL LETTER Z>
+0044 0044 005A ; [.1954.0020.0008][.1954.0020.0008] # <LATIN CAPITAL LETTER D, LATIN CAPITAL LETTER D, LATIN CAPITAL LETTER Z>
+0064 0064 007A 0073 ; [.1955.0020.0002][.1955.0020.0002] # <LATIN SMALL LETTER D, LATIN SMALL LETTER D, LATIN SMALL LETTER Z, LATIN SMALL LETTER S>
+0064 0064 007A 0053 ; [.1955.0020.0002][.1955.0020.0007][.0000.0000.0002][.0000.0000.0002] # <LATIN SMALL LETTER D, LATIN SMALL LETTER D, LATIN SMALL LETTER Z, LATIN CAPITAL LETTER S>
+0064 0064 005A 0073 ; [.1955.0020.0002][.1955.0020.0007][.0000.0000.0002][.0000.0000.0007] # <LATIN SMALL LETTER D, LATIN SMALL LETTER D, LATIN CAPITAL LETTER Z, LATIN SMALL LETTER S>
+0064 0064 005A 0053 ; [.1955.0020.0002][.1955.0020.0007][.0000.0000.0002][.0000.0000.0008] # <LATIN SMALL LETTER D, LATIN SMALL LETTER D, LATIN CAPITAL LETTER Z, LATIN CAPITAL LETTER S>
+0064 0044 007A 0073 ; [.1955.0020.0002][.1955.0020.0007][.0000.0000.0008][.0000.0000.0002] # <LATIN SMALL LETTER D, LATIN CAPITAL LETTER D, LATIN SMALL LETTER Z, LATIN SMALL LETTER S>
+0064 0044 007A 0053 ; [.1955.0020.0002][.1955.0020.0007][.0000.0000.0008][.0000.0000.0007] # <LATIN SMALL LETTER D, LATIN CAPITAL LETTER D, LATIN SMALL LETTER Z, LATIN CAPITAL LETTER S>
+0064 0044 005A 0073 ; [.1955.0020.0002][.1955.0020.0007][.0000.0000.0008][.0000.0000.0008] # <LATIN SMALL LETTER D, LATIN CAPITAL LETTER D, LATIN CAPITAL LETTER Z, LATIN SMALL LETTER S>
+0064 0044 005A 0053 ; [.1955.0020.0002][.1955.0020.0008] # <LATIN SMALL LETTER D, LATIN CAPITAL LETTER D, LATIN CAPITAL LETTER Z, LATIN CAPITAL LETTER S>
+0044 0064 007A 0073 ; [.1955.0020.0008][.1955.0020.0002] # <LATIN CAPITAL LETTER D, LATIN SMALL LETTER D, LATIN SMALL LETTER Z, LATIN SMALL LETTER S>
+0044 0064 007A 0053 ; [.1955.0020.0008][.1955.0020.0007][.0000.0000.0002][.0000.0000.0002] # <LATIN CAPITAL LETTER D, LATIN SMALL LETTER D, LATIN SMALL LETTER Z, LATIN CAPITAL LETTER S>
+0044 0064 005A 0073 ; [.1955.0020.0008][.1955.0020.0007][.0000.0000.0002][.0000.0000.0007] # <LATIN CAPITAL LETTER D, LATIN SMALL LETTER D, LATIN CAPITAL LETTER Z, LATIN SMALL LETTER S>
+0044 0064 005A 0053 ; [.1955.0020.0008][.1955.0020.0007][.0000.0000.0002][.0000.0000.0008] # <LATIN CAPITAL LETTER D, LATIN SMALL LETTER D, LATIN CAPITAL LETTER Z, LATIN CAPITAL LETTER S>
+0044 0044 007A 0073 ; [.1955.0020.0008][.1955.0020.0007][.0000.0000.0008][.0000.0000.0002] # <LATIN CAPITAL LETTER D, LATIN CAPITAL LETTER D, LATIN SMALL LETTER Z, LATIN SMALL LETTER S>
+0044 0044 007A 0053 ; [.1955.0020.0008][.1955.0020.0007][.0000.0000.0008][.0000.0000.0007] # <LATIN CAPITAL LETTER D, LATIN CAPITAL LETTER D, LATIN SMALL LETTER Z, LATIN CAPITAL LETTER S>
+0044 0044 005A 0073 ; [.1955.0020.0008][.1955.0020.0007][.0000.0000.0008][.0000.0000.0008] # <LATIN CAPITAL LETTER D, LATIN CAPITAL LETTER D, LATIN CAPITAL LETTER Z, LATIN SMALL LETTER S>
+0044 0044 005A 0053 ; [.1955.0020.0008][.1955.0020.0008] # <LATIN CAPITAL LETTER D, LATIN CAPITAL LETTER D, LATIN CAPITAL LETTER Z, LATIN CAPITAL LETTER S>
+0067 0067 0079 ; [.19B9.0020.0002][.19B9.0020.0002] # <LATIN SMALL LETTER G, LATIN SMALL LETTER G, LATIN SMALL LETTER Y>
+0067 0067 0059 ; [.19B9.0020.0002][.19B9.0020.0007][.0000.0000.0002] # <LATIN SMALL LETTER G, LATIN SMALL LETTER G, LATIN CAPITAL LETTER Y>
+0067 0047 0079 ; [.19B9.0020.0002][.19B9.0020.0007][.0000.0000.0008] # <LATIN SMALL LETTER G, LATIN CAPITAL LETTER G, LATIN SMALL LETTER Y>
+0067 0047 0059 ; [.19B9.0020.0002][.19B9.0020.0008] # <LATIN SMALL LETTER G, LATIN CAPITAL LETTER G, LATIN CAPITAL LETTER Y>
+0047 0067 0079 ; [.19B9.0020.0008][.19B9.0020.0002] # <LATIN CAPITAL LETTER G, LATIN SMALL LETTER G, LATIN SMALL LETTER Y>
+0047 0067 0059 ; [.19B9.0020.0008][.19B9.0020.0007][.0000.0000.0002] # <LATIN CAPITAL LETTER G, LATIN SMALL LETTER G, LATIN CAPITAL LETTER Y>
+0047 0047 0079 ; [.19B9.0020.0008][.19B9.0020.0007][.0000.0000.0008] # <LATIN CAPITAL LETTER G, LATIN CAPITAL LETTER G, LATIN SMALL LETTER Y>
+0047 0047 0059 ; [.19B9.0020.0008][.19B9.0020.0008] # <LATIN CAPITAL LETTER G, LATIN CAPITAL LETTER G, LATIN CAPITAL LETTER Y>
+006C 006C 0079 ; [.1A3C.0020.0002][.1A3C.0020.0002] # <LATIN SMALL LETTER L, LATIN SMALL LETTER L, LATIN SMALL LETTER Y>
+006C 006C 0059 ; [.1A3C.0020.0002][.1A3C.0020.0007][.0000.0000.0002] # <LATIN SMALL LETTER L, LATIN SMALL LETTER L, LATIN CAPITAL LETTER Y>
+006C 004C 0079 ; [.1A3C.0020.0002][.1A3C.0020.0007][.0000.0000.0008] # <LATIN SMALL LETTER L, LATIN CAPITAL LETTER L, LATIN SMALL LETTER Y>
+006C 004C 0059 ; [.1A3C.0020.0002][.1A3C.0020.0008] # <LATIN SMALL LETTER L, LATIN CAPITAL LETTER L, LATIN CAPITAL LETTER Y>
+004C 006C 0079 ; [.1A3C.0020.0008][.1A3C.0020.0002] # <LATIN CAPITAL LETTER L, LATIN SMALL LETTER L, LATIN SMALL LETTER Y>
+004C 006C 0059 ; [.1A3C.0020.0008][.1A3C.0020.0007][.0000.0000.0002] # <LATIN CAPITAL LETTER L, LATIN SMALL LETTER L, LATIN CAPITAL LETTER Y>
+004C 004C 0079 ; [.1A3C.0020.0008][.1A3C.0020.0007][.0000.0000.0008] # <LATIN CAPITAL LETTER L, LATIN CAPITAL LETTER L, LATIN SMALL LETTER Y>
+004C 004C 0059 ; [.1A3C.0020.0008][.1A3C.0020.0008] # <LATIN CAPITAL LETTER L, LATIN CAPITAL LETTER L, LATIN CAPITAL LETTER Y>
+006E 006E 0079 ; [.1A7E.0020.0002][.1A7E.0020.0002] # <LATIN SMALL LETTER N, LATIN SMALL LETTER N, LATIN SMALL LETTER Y>
+006E 006E 0059 ; [.1A7E.0020.0002][.1A7E.0020.0007][.0000.0000.0002] # <LATIN SMALL LETTER N, LATIN SMALL LETTER N, LATIN CAPITAL LETTER Y>
+006E 004E 0079 ; [.1A7E.0020.0002][.1A7E.0020.0007][.0000.0000.0008] # <LATIN SMALL LETTER N, LATIN CAPITAL LETTER N, LATIN SMALL LETTER Y>
+006E 004E 0059 ; [.1A7E.0020.0002][.1A7E.0020.0008] # <LATIN SMALL LETTER N, LATIN CAPITAL LETTER N, LATIN CAPITAL LETTER Y>
+004E 006E 0079 ; [.1A7E.0020.0008][.1A7E.0020.0002] # <LATIN CAPITAL LETTER N, LATIN SMALL LETTER N, LATIN SMALL LETTER Y>
+004E 006E 0059 ; [.1A7E.0020.0008][.1A7E.0020.0007][.0000.0000.0002] # <LATIN CAPITAL LETTER N, LATIN SMALL LETTER N, LATIN CAPITAL LETTER Y>
+004E 004E 0079 ; [.1A7E.0020.0008][.1A7E.0020.0007][.0000.0000.0008] # <LATIN CAPITAL LETTER N, LATIN CAPITAL LETTER N, LATIN SMALL LETTER Y>
+004E 004E 0059 ; [.1A7E.0020.0008][.1A7E.0020.0008] # <LATIN CAPITAL LETTER N, LATIN CAPITAL LETTER N, LATIN CAPITAL LETTER Y>
+0073 0073 007A ; [.1B34.0020.0002][.1B34.0020.0002] # <LATIN SMALL LETTER S, LATIN SMALL LETTER S, LATIN SMALL LETTER Z>
+0073 0073 005A ; [.1B34.0020.0002][.1B34.0020.0007][.0000.0000.0002] # <LATIN SMALL LETTER S, LATIN SMALL LETTER S, LATIN CAPITAL LETTER Z>
+0073 0053 007A ; [.1B34.0020.0002][.1B34.0020.0007][.0000.0000.0008] # <LATIN SMALL LETTER S, LATIN CAPITAL LETTER S, LATIN SMALL LETTER Z>
+0073 0053 005A ; [.1B34.0020.0002][.1B34.0020.0008] # <LATIN SMALL LETTER S, LATIN CAPITAL LETTER S, LATIN CAPITAL LETTER Z>
+0053 0073 007A ; [.1B34.0020.0008][.1B34.0020.0002] # <LATIN CAPITAL LETTER S, LATIN SMALL LETTER S, LATIN SMALL LETTER Z>
+0053 0073 005A ; [.1B34.0020.0008][.1B34.0020.0007][.0000.0000.0002] # <LATIN CAPITAL LETTER S, LATIN SMALL LETTER S, LATIN CAPITAL LETTER Z>
+0053 0053 007A ; [.1B34.0020.0008][.1B34.0020.0007][.0000.0000.0008] # <LATIN CAPITAL LETTER S, LATIN CAPITAL LETTER S, LATIN SMALL LETTER Z>
+0053 0053 005A ; [.1B34.0020.0008][.1B34.0020.0008] # <LATIN CAPITAL LETTER S, LATIN CAPITAL LETTER S, LATIN CAPITAL LETTER Z>
+0074 0074 0079 ; [.1B58.0020.0002][.1B58.0020.0002] # <LATIN SMALL LETTER T, LATIN SMALL LETTER T, LATIN SMALL LETTER Y>
+0074 0074 0059 ; [.1B58.0020.0002][.1B58.0020.0007][.0000.0000.0002] # <LATIN SMALL LETTER T, LATIN SMALL LETTER T, LATIN CAPITAL LETTER Y>
+0074 0054 0079 ; [.1B58.0020.0002][.1B58.0020.0007][.0000.0000.0008] # <LATIN SMALL LETTER T, LATIN CAPITAL LETTER T, LATIN SMALL LETTER Y>
+0074 0054 0059 ; [.1B58.0020.0002][.1B58.0020.0008] # <LATIN SMALL LETTER T, LATIN CAPITAL LETTER T, LATIN CAPITAL LETTER Y>
+0054 0074 0079 ; [.1B58.0020.0008][.1B58.0020.0002] # <LATIN CAPITAL LETTER T, LATIN SMALL LETTER T, LATIN SMALL LETTER Y>
+0054 0074 0059 ; [.1B58.0020.0008][.1B58.0020.0007][.0000.0000.0002] # <LATIN CAPITAL LETTER T, LATIN SMALL LETTER T, LATIN CAPITAL LETTER Y>
+0054 0054 0079 ; [.1B58.0020.0008][.1B58.0020.0007][.0000.0000.0008] # <LATIN CAPITAL LETTER T, LATIN CAPITAL LETTER T, LATIN SMALL LETTER Y>
+0054 0054 0059 ; [.1B58.0020.0008][.1B58.0020.0008] # <LATIN CAPITAL LETTER T, LATIN CAPITAL LETTER T, LATIN CAPITAL LETTER Y>
+007A 007A 0073 ; [.1BE4.0020.0002][.1BE4.0020.0002] # <LATIN SMALL LETTER Z, LATIN SMALL LETTER Z, LATIN SMALL LETTER S>
+007A 007A 0053 ; [.1BE4.0020.0002][.1BE4.0020.0007][.0000.0000.0002] # <LATIN SMALL LETTER Z, LATIN SMALL LETTER Z, LATIN CAPITAL LETTER S>
+007A 005A 0073 ; [.1BE4.0020.0002][.1BE4.0020.0007][.0000.0000.0008] # <LATIN SMALL LETTER Z, LATIN CAPITAL LETTER Z, LATIN SMALL LETTER S>
+007A 005A 0053 ; [.1BE4.0020.0002][.1BE4.0020.0008] # <LATIN SMALL LETTER Z, LATIN CAPITAL LETTER Z, LATIN CAPITAL LETTER S>
+005A 007A 0073 ; [.1BE4.0020.0008][.1BE4.0020.0002] # <LATIN CAPITAL LETTER Z, LATIN SMALL LETTER Z, LATIN SMALL LETTER S>
+005A 007A 0053 ; [.1BE4.0020.0008][.1BE4.0020.0007][.0000.0000.0002] # <LATIN CAPITAL LETTER Z, LATIN SMALL LETTER Z, LATIN CAPITAL LETTER S>
+005A 005A 0073 ; [.1BE4.0020.0008][.1BE4.0020.0007][.0000.0000.0008] # <LATIN CAPITAL LETTER Z, LATIN CAPITAL LETTER Z, LATIN SMALL LETTER S>
+005A 005A 0053 ; [.1BE4.0020.0008][.1BE4.0020.0008] # <LATIN CAPITAL LETTER Z, LATIN CAPITAL LETTER Z, LATIN CAPITAL LETTER S>
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/hy.pl b/lib/5.24.1/Unicode/Collate/Locale/hy.pl
new file mode 100644
index 00000000..2b5e06d7
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/hy.pl
@@ -0,0 +1,9 @@
++{
+   locale_version => 1.14,
+   entry => <<'ENTRY', # for DUCET v7.0.0
+0587      ; [.1FBD.0020.0002][.FFF1.0000.0000] # ARMENIAN SMALL LIGATURE ECH YIWN
+0584      ; [.1FBD.0020.0002][.FFF0.0000.0000] # ARMENIAN SMALL LETTER KEH
+0535 0582 ; [.1FBD.0020.0008][.FFF1.0000.0000] # <ARMENIAN CAPITAL LETTER ECH, ARMENIAN SMALL LETTER YIWN>
+0554      ; [.1FBD.0020.0008][.FFF0.0000.0000] # ARMENIAN CAPITAL LETTER KEH
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/ig.pl b/lib/5.24.1/Unicode/Collate/Locale/ig.pl
new file mode 100644
index 00000000..518cd522
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/ig.pl
@@ -0,0 +1,54 @@
++{
+   locale_version => 1.14,
+   entry => <<'ENTRY', # for DUCET v7.0.0
+0063 0068 ; [.1926.0020.0002] # <LATIN SMALL LETTER C, LATIN SMALL LETTER H>
+0043 0068 ; [.1926.0020.0007] # <LATIN CAPITAL LETTER C, LATIN SMALL LETTER H>
+0043 0048 ; [.1926.0020.0008] # <LATIN CAPITAL LETTER C, LATIN CAPITAL LETTER H>
+0067 0062 ; [.19B9.0020.0002] # <LATIN SMALL LETTER G, LATIN SMALL LETTER B>
+0047 0062 ; [.19B9.0020.0007] # <LATIN CAPITAL LETTER G, LATIN SMALL LETTER B>
+0047 0042 ; [.19B9.0020.0008] # <LATIN CAPITAL LETTER G, LATIN CAPITAL LETTER B>
+0067 0068 ; [.19BA.0020.0002] # <LATIN SMALL LETTER G, LATIN SMALL LETTER H>
+0047 0068 ; [.19BA.0020.0007] # <LATIN CAPITAL LETTER G, LATIN SMALL LETTER H>
+0047 0048 ; [.19BA.0020.0008] # <LATIN CAPITAL LETTER G, LATIN CAPITAL LETTER H>
+0067 0077 ; [.19BB.0020.0002] # <LATIN SMALL LETTER G, LATIN SMALL LETTER W>
+0047 0077 ; [.19BB.0020.0007] # <LATIN CAPITAL LETTER G, LATIN SMALL LETTER W>
+0047 0057 ; [.19BB.0020.0008] # <LATIN CAPITAL LETTER G, LATIN CAPITAL LETTER W>
+1ECB      ; [.19F7.0020.0002] # LATIN SMALL LETTER I WITH DOT BELOW
+0069 0323 ; [.19F7.0020.0002] # LATIN SMALL LETTER I WITH DOT BELOW
+1ECA      ; [.19F7.0020.0008] # LATIN CAPITAL LETTER I WITH DOT BELOW
+0049 0323 ; [.19F7.0020.0008] # LATIN CAPITAL LETTER I WITH DOT BELOW
+006B 0070 ; [.1A2A.0020.0002] # <LATIN SMALL LETTER K, LATIN SMALL LETTER P>
+004B 0070 ; [.1A2A.0020.0007] # <LATIN CAPITAL LETTER K, LATIN SMALL LETTER P>
+004B 0050 ; [.1A2A.0020.0008] # <LATIN CAPITAL LETTER K, LATIN CAPITAL LETTER P>
+006B 0077 ; [.1A2B.0020.0002] # <LATIN SMALL LETTER K, LATIN SMALL LETTER W>
+004B 0077 ; [.1A2B.0020.0007] # <LATIN CAPITAL LETTER K, LATIN SMALL LETTER W>
+004B 0057 ; [.1A2B.0020.0008] # <LATIN CAPITAL LETTER K, LATIN CAPITAL LETTER W>
+1E45      ; [.1A7E.0020.0002] # LATIN SMALL LETTER N WITH DOT ABOVE
+006E 0307 ; [.1A7E.0020.0002] # LATIN SMALL LETTER N WITH DOT ABOVE
+1E44      ; [.1A7E.0020.0008] # LATIN CAPITAL LETTER N WITH DOT ABOVE
+004E 0307 ; [.1A7E.0020.0008] # LATIN CAPITAL LETTER N WITH DOT ABOVE
+006E 0077 ; [.1A7F.0020.0002] # <LATIN SMALL LETTER N, LATIN SMALL LETTER W>
+004E 0077 ; [.1A7F.0020.0007] # <LATIN CAPITAL LETTER N, LATIN SMALL LETTER W>
+004E 0057 ; [.1A7F.0020.0008] # <LATIN CAPITAL LETTER N, LATIN CAPITAL LETTER W>
+006E 0079 ; [.1A80.0020.0002] # <LATIN SMALL LETTER N, LATIN SMALL LETTER Y>
+004E 0079 ; [.1A80.0020.0007] # <LATIN CAPITAL LETTER N, LATIN SMALL LETTER Y>
+004E 0059 ; [.1A80.0020.0008] # <LATIN CAPITAL LETTER N, LATIN CAPITAL LETTER Y>
+1ECD      ; [.1AA2.0020.0002] # LATIN SMALL LETTER O WITH DOT BELOW
+006F 0323 ; [.1AA2.0020.0002] # LATIN SMALL LETTER O WITH DOT BELOW
+1ECC      ; [.1AA2.0020.0008] # LATIN CAPITAL LETTER O WITH DOT BELOW
+004F 0323 ; [.1AA2.0020.0008] # LATIN CAPITAL LETTER O WITH DOT BELOW
+1ED9      ; [.1AA2.0020.0002][.0000.0027.0002] # LATIN SMALL LETTER O WITH CIRCUMFLEX AND DOT BELOW
+1ED8      ; [.1AA2.0020.0008][.0000.0027.0002] # LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND DOT BELOW
+1EE3      ; [.1AA2.0020.0002][.0000.003F.0002] # LATIN SMALL LETTER O WITH HORN AND DOT BELOW
+1EE2      ; [.1AA2.0020.0008][.0000.003F.0002] # LATIN CAPITAL LETTER O WITH HORN AND DOT BELOW
+0073 0068 ; [.1B34.0020.0002] # <LATIN SMALL LETTER S, LATIN SMALL LETTER H>
+0053 0068 ; [.1B34.0020.0007] # <LATIN CAPITAL LETTER S, LATIN SMALL LETTER H>
+0053 0048 ; [.1B34.0020.0008] # <LATIN CAPITAL LETTER S, LATIN CAPITAL LETTER H>
+1EE5      ; [.1B78.0020.0002] # LATIN SMALL LETTER U WITH DOT BELOW
+0075 0323 ; [.1B78.0020.0002] # LATIN SMALL LETTER U WITH DOT BELOW
+1EE4      ; [.1B78.0020.0008] # LATIN CAPITAL LETTER U WITH DOT BELOW
+0055 0323 ; [.1B78.0020.0008] # LATIN CAPITAL LETTER U WITH DOT BELOW
+1EF1      ; [.1B78.0020.0002][.0000.003F.0002] # LATIN SMALL LETTER U WITH HORN AND DOT BELOW
+1EF0      ; [.1B78.0020.0008][.0000.003F.0002] # LATIN CAPITAL LETTER U WITH HORN AND DOT BELOW
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/is.pl b/lib/5.24.1/Unicode/Collate/Locale/is.pl
new file mode 100644
index 00000000..16d2491f
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/is.pl
@@ -0,0 +1,81 @@
++{
+   locale_version => 1.14,
+   entry => <<'ENTRY', # for DUCET v7.0.0
+00E1      ; [.1924.0020.0002] # LATIN SMALL LETTER A WITH ACUTE
+0061 0301 ; [.1924.0020.0002] # LATIN SMALL LETTER A WITH ACUTE
+0061 0341 ; [.1924.0020.0002] # LATIN SMALL LETTER A WITH ACUTE
+00C1      ; [.1924.0020.0008] # LATIN CAPITAL LETTER A WITH ACUTE
+0041 0301 ; [.1924.0020.0008] # LATIN CAPITAL LETTER A WITH ACUTE
+0041 0341 ; [.1924.0020.0008] # LATIN CAPITAL LETTER A WITH ACUTE
+0111      ; [.1953.0021.0002] # LATIN SMALL LETTER D WITH STROKE
+0064 0335 ; [.1953.0021.0002] # LATIN SMALL LETTER D WITH STROKE
+0110      ; [.1953.0021.0008] # LATIN CAPITAL LETTER D WITH STROKE
+0044 0335 ; [.1953.0021.0008] # LATIN CAPITAL LETTER D WITH STROKE
+00F0      ; [.1954.0020.0002] # LATIN SMALL LETTER ETH
+1DD9      ; [.1954.0020.0002] # COMBINING LATIN SMALL LETTER ETH
+00D0      ; [.1954.0020.0008] # LATIN CAPITAL LETTER ETH
+00E9      ; [.19A8.0020.0002] # LATIN SMALL LETTER E WITH ACUTE
+0065 0301 ; [.19A8.0020.0002] # LATIN SMALL LETTER E WITH ACUTE
+0065 0341 ; [.19A8.0020.0002] # LATIN SMALL LETTER E WITH ACUTE
+00C9      ; [.19A8.0020.0008] # LATIN CAPITAL LETTER E WITH ACUTE
+0045 0301 ; [.19A8.0020.0008] # LATIN CAPITAL LETTER E WITH ACUTE
+0045 0341 ; [.19A8.0020.0008] # LATIN CAPITAL LETTER E WITH ACUTE
+00ED      ; [.1A0F.0020.0002] # LATIN SMALL LETTER I WITH ACUTE
+0069 0301 ; [.1A0F.0020.0002] # LATIN SMALL LETTER I WITH ACUTE
+0069 0341 ; [.1A0F.0020.0002] # LATIN SMALL LETTER I WITH ACUTE
+00CD      ; [.1A0F.0020.0008] # LATIN CAPITAL LETTER I WITH ACUTE
+0049 0301 ; [.1A0F.0020.0008] # LATIN CAPITAL LETTER I WITH ACUTE
+0049 0341 ; [.1A0F.0020.0008] # LATIN CAPITAL LETTER I WITH ACUTE
+00F3      ; [.1ACD.0020.0002] # LATIN SMALL LETTER O WITH ACUTE
+006F 0301 ; [.1ACD.0020.0002] # LATIN SMALL LETTER O WITH ACUTE
+006F 0341 ; [.1ACD.0020.0002] # LATIN SMALL LETTER O WITH ACUTE
+00D3      ; [.1ACD.0020.0008] # LATIN CAPITAL LETTER O WITH ACUTE
+004F 0301 ; [.1ACD.0020.0008] # LATIN CAPITAL LETTER O WITH ACUTE
+004F 0341 ; [.1ACD.0020.0008] # LATIN CAPITAL LETTER O WITH ACUTE
+00FA      ; [.1BA4.0020.0002] # LATIN SMALL LETTER U WITH ACUTE
+0075 0301 ; [.1BA4.0020.0002] # LATIN SMALL LETTER U WITH ACUTE
+0075 0341 ; [.1BA4.0020.0002] # LATIN SMALL LETTER U WITH ACUTE
+00DA      ; [.1BA4.0020.0008] # LATIN CAPITAL LETTER U WITH ACUTE
+0055 0301 ; [.1BA4.0020.0008] # LATIN CAPITAL LETTER U WITH ACUTE
+0055 0341 ; [.1BA4.0020.0008] # LATIN CAPITAL LETTER U WITH ACUTE
+00FD      ; [.1BE2.0020.0002] # LATIN SMALL LETTER Y WITH ACUTE
+0079 0301 ; [.1BE2.0020.0002] # LATIN SMALL LETTER Y WITH ACUTE
+0079 0341 ; [.1BE2.0020.0002] # LATIN SMALL LETTER Y WITH ACUTE
+00DD      ; [.1BE2.0020.0008] # LATIN CAPITAL LETTER Y WITH ACUTE
+0059 0301 ; [.1BE2.0020.0008] # LATIN CAPITAL LETTER Y WITH ACUTE
+0059 0341 ; [.1BE2.0020.0008] # LATIN CAPITAL LETTER Y WITH ACUTE
+00E6      ; [.1C54.0020.0002] # LATIN SMALL LETTER AE
+1DD4      ; [.1C54.0020.0002] # COMBINING LATIN SMALL LETTER AE
+00C6      ; [.1C54.0020.0008] # LATIN CAPITAL LETTER AE
+1D2D      ; [.1C54.0020.0014] # MODIFIER LETTER CAPITAL AE
+01FD      ; [.1C54.0020.0002][.0000.0024.0002] # LATIN SMALL LETTER AE WITH ACUTE
+01FC      ; [.1C54.0020.0008][.0000.0024.0002] # LATIN CAPITAL LETTER AE WITH ACUTE
+01E3      ; [.1C54.0020.0002][.0000.0032.0002] # LATIN SMALL LETTER AE WITH MACRON
+01E2      ; [.1C54.0020.0008][.0000.0032.0002] # LATIN CAPITAL LETTER AE WITH MACRON
+00E4      ; [.1C54.0021.0002] # LATIN SMALL LETTER A WITH DIAERESIS
+0061 0308 ; [.1C54.0021.0002] # LATIN SMALL LETTER A WITH DIAERESIS
+00C4      ; [.1C54.0021.0008] # LATIN CAPITAL LETTER A WITH DIAERESIS
+0041 0308 ; [.1C54.0021.0008] # LATIN CAPITAL LETTER A WITH DIAERESIS
+01DF      ; [.1C54.0021.0002][.0000.0032.0002] # LATIN SMALL LETTER A WITH DIAERESIS AND MACRON
+01DE      ; [.1C54.0021.0008][.0000.0032.0002] # LATIN CAPITAL LETTER A WITH DIAERESIS AND MACRON
+00F6      ; [.1C55.0020.0002] # LATIN SMALL LETTER O WITH DIAERESIS
+006F 0308 ; [.1C55.0020.0002] # LATIN SMALL LETTER O WITH DIAERESIS
+00D6      ; [.1C55.0020.0008] # LATIN CAPITAL LETTER O WITH DIAERESIS
+004F 0308 ; [.1C55.0020.0008] # LATIN CAPITAL LETTER O WITH DIAERESIS
+022B      ; [.1C55.0020.0002][.0000.0032.0002] # LATIN SMALL LETTER O WITH DIAERESIS AND MACRON
+022A      ; [.1C55.0020.0008][.0000.0032.0002] # LATIN CAPITAL LETTER O WITH DIAERESIS AND MACRON
+00F8      ; [.1C55.0021.0002] # LATIN SMALL LETTER O WITH STROKE
+006F 0338 ; [.1C55.0021.0002] # LATIN SMALL LETTER O WITH STROKE
+00D8      ; [.1C55.0021.0008] # LATIN CAPITAL LETTER O WITH STROKE
+004F 0338 ; [.1C55.0021.0008] # LATIN CAPITAL LETTER O WITH STROKE
+01FF      ; [.1C55.0021.0002][.0000.0024.0002] # LATIN SMALL LETTER O WITH STROKE AND ACUTE
+01FE      ; [.1C55.0021.0008][.0000.0024.0002] # LATIN CAPITAL LETTER O WITH STROKE AND ACUTE
+00E5      ; [.1C56.0020.0002] # LATIN SMALL LETTER A WITH RING ABOVE
+0061 030A ; [.1C56.0020.0002] # LATIN SMALL LETTER A WITH RING ABOVE
+00C5      ; [.1C56.0020.0008] # LATIN CAPITAL LETTER A WITH RING ABOVE
+0041 030A ; [.1C56.0020.0008] # LATIN CAPITAL LETTER A WITH RING ABOVE
+212B      ; [.1C56.0020.0008] # ANGSTROM SIGN
+01FB      ; [.1C56.0020.0002][.0000.0024.0002] # LATIN SMALL LETTER A WITH RING ABOVE AND ACUTE
+01FA      ; [.1C56.0020.0008][.0000.0024.0002] # LATIN CAPITAL LETTER A WITH RING ABOVE AND ACUTE
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/ja.pl b/lib/5.24.1/Unicode/Collate/Locale/ja.pl
new file mode 100644
index 00000000..5cc9358b
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/ja.pl
@@ -0,0 +1,1938 @@
+use Unicode::Collate::CJK::JISX0208;
++{
+   locale_version => 1.14,
+   overrideCJK => \&Unicode::Collate::CJK::JISX0208::weightJISX0208,
+   entry => <<'ENTRY', # for DUCET v7.0.0
+30A1      ; [.38D4.0020.000F.0002] # KATAKANA LETTER SMALL A
+30A2      ; [.38D4.0020.0011.0002] # KATAKANA LETTER A
+30A3      ; [.38D5.0020.000F.0002] # KATAKANA LETTER SMALL I
+30A4      ; [.38D5.0020.0011.0002] # KATAKANA LETTER I
+30A5      ; [.38D6.0020.000F.0002] # KATAKANA LETTER SMALL U
+30A6      ; [.38D6.0020.0011.0002] # KATAKANA LETTER U
+30A7      ; [.38D8.0020.000F.0002] # KATAKANA LETTER SMALL E
+30A8      ; [.38D8.0020.0011.0002] # KATAKANA LETTER E
+30A9      ; [.38D9.0020.000F.0002] # KATAKANA LETTER SMALL O
+30AA      ; [.38D9.0020.0011.0002] # KATAKANA LETTER O
+30AB      ; [.38DA.0020.0011.0002] # KATAKANA LETTER KA
+30AC      ; [.38DA.0020.0011.0002][.0000.0037.0002] # KATAKANA LETTER GA
+30AD      ; [.38DB.0020.0011.0002] # KATAKANA LETTER KI
+30AE      ; [.38DB.0020.0011.0002][.0000.0037.0002] # KATAKANA LETTER GI
+30AF      ; [.38DC.0020.0011.0002] # KATAKANA LETTER KU
+30B0      ; [.38DC.0020.0011.0002][.0000.0037.0002] # KATAKANA LETTER GU
+30B1      ; [.38DD.0020.0011.0002] # KATAKANA LETTER KE
+30B2      ; [.38DD.0020.0011.0002][.0000.0037.0002] # KATAKANA LETTER GE
+30B3      ; [.38DE.0020.0011.0002] # KATAKANA LETTER KO
+30B4      ; [.38DE.0020.0011.0002][.0000.0037.0002] # KATAKANA LETTER GO
+30B5      ; [.38DF.0020.0011.0002] # KATAKANA LETTER SA
+30B6      ; [.38DF.0020.0011.0002][.0000.0037.0002] # KATAKANA LETTER ZA
+30B7      ; [.38E0.0020.0011.0002] # KATAKANA LETTER SI
+30B8      ; [.38E0.0020.0011.0002][.0000.0037.0002] # KATAKANA LETTER ZI
+30B9      ; [.38E1.0020.0011.0002] # KATAKANA LETTER SU
+30BA      ; [.38E1.0020.0011.0002][.0000.0037.0002] # KATAKANA LETTER ZU
+30BB      ; [.38E2.0020.0011.0002] # KATAKANA LETTER SE
+30BC      ; [.38E2.0020.0011.0002][.0000.0037.0002] # KATAKANA LETTER ZE
+30BD      ; [.38E3.0020.0011.0002] # KATAKANA LETTER SO
+30BE      ; [.38E3.0020.0011.0002][.0000.0037.0002] # KATAKANA LETTER ZO
+30BF      ; [.38E4.0020.0011.0002] # KATAKANA LETTER TA
+30C0      ; [.38E4.0020.0011.0002][.0000.0037.0002] # KATAKANA LETTER DA
+30C1      ; [.38E5.0020.0011.0002] # KATAKANA LETTER TI
+30C2      ; [.38E5.0020.0011.0002][.0000.0037.0002] # KATAKANA LETTER DI
+30C3      ; [.38E6.0020.000F.0002] # KATAKANA LETTER SMALL TU
+30C4      ; [.38E6.0020.0011.0002] # KATAKANA LETTER TU
+30C5      ; [.38E6.0020.0011.0002][.0000.0037.0002] # KATAKANA LETTER DU
+30C6      ; [.38E7.0020.0011.0002] # KATAKANA LETTER TE
+30C7      ; [.38E7.0020.0011.0002][.0000.0037.0002] # KATAKANA LETTER DE
+30C8      ; [.38E8.0020.0011.0002] # KATAKANA LETTER TO
+30C9      ; [.38E8.0020.0011.0002][.0000.0037.0002] # KATAKANA LETTER DO
+30CA      ; [.38E9.0020.0011.0002] # KATAKANA LETTER NA
+30CB      ; [.38EA.0020.0011.0002] # KATAKANA LETTER NI
+30CC      ; [.38EB.0020.0011.0002] # KATAKANA LETTER NU
+30CD      ; [.38EC.0020.0011.0002] # KATAKANA LETTER NE
+30CE      ; [.38ED.0020.0011.0002] # KATAKANA LETTER NO
+30CF      ; [.38EE.0020.0011.0002] # KATAKANA LETTER HA
+30D0      ; [.38EE.0020.0011.0002][.0000.0037.0002] # KATAKANA LETTER BA
+30D1      ; [.38EE.0020.0011.0002][.0000.0038.0002] # KATAKANA LETTER PA
+30D2      ; [.38EF.0020.0011.0002] # KATAKANA LETTER HI
+30D3      ; [.38EF.0020.0011.0002][.0000.0037.0002] # KATAKANA LETTER BI
+30D4      ; [.38EF.0020.0011.0002][.0000.0038.0002] # KATAKANA LETTER PI
+30D5      ; [.38F0.0020.0011.0002] # KATAKANA LETTER HU
+30D6      ; [.38F0.0020.0011.0002][.0000.0037.0002] # KATAKANA LETTER BU
+30D7      ; [.38F0.0020.0011.0002][.0000.0038.0002] # KATAKANA LETTER PU
+30D8      ; [.38F1.0020.0011.0002] # KATAKANA LETTER HE
+30D9      ; [.38F1.0020.0011.0002][.0000.0037.0002] # KATAKANA LETTER BE
+30DA      ; [.38F1.0020.0011.0002][.0000.0038.0002] # KATAKANA LETTER PE
+30DB      ; [.38F2.0020.0011.0002] # KATAKANA LETTER HO
+30DC      ; [.38F2.0020.0011.0002][.0000.0037.0002] # KATAKANA LETTER BO
+30DD      ; [.38F2.0020.0011.0002][.0000.0038.0002] # KATAKANA LETTER PO
+30DE      ; [.38F3.0020.0011.0002] # KATAKANA LETTER MA
+30DF      ; [.38F4.0020.0011.0002] # KATAKANA LETTER MI
+30E0      ; [.38F5.0020.0011.0002] # KATAKANA LETTER MU
+30E1      ; [.38F6.0020.0011.0002] # KATAKANA LETTER ME
+30E2      ; [.38F7.0020.0011.0002] # KATAKANA LETTER MO
+30E3      ; [.38F8.0020.000F.0002] # KATAKANA LETTER SMALL YA
+30E4      ; [.38F8.0020.0011.0002] # KATAKANA LETTER YA
+30E5      ; [.38F9.0020.000F.0002] # KATAKANA LETTER SMALL YU
+30E6      ; [.38F9.0020.0011.0002] # KATAKANA LETTER YU
+30E7      ; [.38FB.0020.000F.0002] # KATAKANA LETTER SMALL YO
+30E8      ; [.38FB.0020.0011.0002] # KATAKANA LETTER YO
+30E9      ; [.38FC.0020.0011.0002] # KATAKANA LETTER RA
+30EA      ; [.38FD.0020.0011.0002] # KATAKANA LETTER RI
+30EB      ; [.38FE.0020.0011.0002] # KATAKANA LETTER RU
+30EC      ; [.38FF.0020.0011.0002] # KATAKANA LETTER RE
+30ED      ; [.3900.0020.0011.0002] # KATAKANA LETTER RO
+30EE      ; [.3901.0020.000F.0002] # KATAKANA LETTER SMALL WA
+30EF      ; [.3901.0020.0011.0002] # KATAKANA LETTER WA
+30F0      ; [.3902.0020.0011.0002] # KATAKANA LETTER WI
+30F1      ; [.3903.0020.0011.0002] # KATAKANA LETTER WE
+30F2      ; [.3904.0020.0011.0002] # KATAKANA LETTER WO
+30F3      ; [.3905.0020.0011.0002] # KATAKANA LETTER N
+30F4      ; [.38D6.0020.0011.0002][.0000.0037.0002] # KATAKANA LETTER VU
+30F5      ; [.38DA.0020.000F.0002] # KATAKANA LETTER SMALL KA
+30F6      ; [.38DD.0020.000F.0002] # KATAKANA LETTER SMALL KE
+30F7      ; [.3901.0020.0011.0002][.0000.0037.0002] # KATAKANA LETTER VA
+30F8      ; [.3902.0020.0011.0002][.0000.0037.0002] # KATAKANA LETTER VI
+30F9      ; [.3903.0020.0011.0002][.0000.0037.0002] # KATAKANA LETTER VE
+30FA      ; [.3904.0020.0011.0002][.0000.0037.0002] # KATAKANA LETTER VO
+30FD      ; [.18D5.0020.0002.0002] # KATAKANA ITERATION MARK
+30FE      ; [.18D5.0020.0002.0002][.0000.0037.0002] # KATAKANA VOICED ITERATION MARK
+3041      ; [.38D4.0020.000F.0001] # HIRAGANA LETTER SMALL A
+3042      ; [.38D4.0020.0011.0001] # HIRAGANA LETTER A
+3043      ; [.38D5.0020.000F.0001] # HIRAGANA LETTER SMALL I
+3044      ; [.38D5.0020.0011.0001] # HIRAGANA LETTER I
+3045      ; [.38D6.0020.000F.0001] # HIRAGANA LETTER SMALL U
+3046      ; [.38D6.0020.0011.0001] # HIRAGANA LETTER U
+3047      ; [.38D8.0020.000F.0001] # HIRAGANA LETTER SMALL E
+3048      ; [.38D8.0020.0011.0001] # HIRAGANA LETTER E
+3049      ; [.38D9.0020.000F.0001] # HIRAGANA LETTER SMALL O
+304A      ; [.38D9.0020.0011.0001] # HIRAGANA LETTER O
+304B      ; [.38DA.0020.0011.0001] # HIRAGANA LETTER KA
+304C      ; [.38DA.0020.0011.0001][.0000.0037.0002] # HIRAGANA LETTER GA
+304D      ; [.38DB.0020.0011.0001] # HIRAGANA LETTER KI
+304E      ; [.38DB.0020.0011.0001][.0000.0037.0002] # HIRAGANA LETTER GI
+304F      ; [.38DC.0020.0011.0001] # HIRAGANA LETTER KU
+3050      ; [.38DC.0020.0011.0001][.0000.0037.0002] # HIRAGANA LETTER GU
+3051      ; [.38DD.0020.0011.0001] # HIRAGANA LETTER KE
+3052      ; [.38DD.0020.0011.0001][.0000.0037.0002] # HIRAGANA LETTER GE
+3053      ; [.38DE.0020.0011.0001] # HIRAGANA LETTER KO
+3054      ; [.38DE.0020.0011.0001][.0000.0037.0002] # HIRAGANA LETTER GO
+3055      ; [.38DF.0020.0011.0001] # HIRAGANA LETTER SA
+3056      ; [.38DF.0020.0011.0001][.0000.0037.0002] # HIRAGANA LETTER ZA
+3057      ; [.38E0.0020.0011.0001] # HIRAGANA LETTER SI
+3058      ; [.38E0.0020.0011.0001][.0000.0037.0002] # HIRAGANA LETTER ZI
+3059      ; [.38E1.0020.0011.0001] # HIRAGANA LETTER SU
+305A      ; [.38E1.0020.0011.0001][.0000.0037.0002] # HIRAGANA LETTER ZU
+305B      ; [.38E2.0020.0011.0001] # HIRAGANA LETTER SE
+305C      ; [.38E2.0020.0011.0001][.0000.0037.0002] # HIRAGANA LETTER ZE
+305D      ; [.38E3.0020.0011.0001] # HIRAGANA LETTER SO
+305E      ; [.38E3.0020.0011.0001][.0000.0037.0002] # HIRAGANA LETTER ZO
+305F      ; [.38E4.0020.0011.0001] # HIRAGANA LETTER TA
+3060      ; [.38E4.0020.0011.0001][.0000.0037.0002] # HIRAGANA LETTER DA
+3061      ; [.38E5.0020.0011.0001] # HIRAGANA LETTER TI
+3062      ; [.38E5.0020.0011.0001][.0000.0037.0002] # HIRAGANA LETTER DI
+3063      ; [.38E6.0020.000F.0001] # HIRAGANA LETTER SMALL TU
+3064      ; [.38E6.0020.0011.0001] # HIRAGANA LETTER TU
+3065      ; [.38E6.0020.0011.0001][.0000.0037.0002] # HIRAGANA LETTER DU
+3066      ; [.38E7.0020.0011.0001] # HIRAGANA LETTER TE
+3067      ; [.38E7.0020.0011.0001][.0000.0037.0002] # HIRAGANA LETTER DE
+3068      ; [.38E8.0020.0011.0001] # HIRAGANA LETTER TO
+3069      ; [.38E8.0020.0011.0001][.0000.0037.0002] # HIRAGANA LETTER DO
+306A      ; [.38E9.0020.0011.0001] # HIRAGANA LETTER NA
+306B      ; [.38EA.0020.0011.0001] # HIRAGANA LETTER NI
+306C      ; [.38EB.0020.0011.0001] # HIRAGANA LETTER NU
+306D      ; [.38EC.0020.0011.0001] # HIRAGANA LETTER NE
+306E      ; [.38ED.0020.0011.0001] # HIRAGANA LETTER NO
+306F      ; [.38EE.0020.0011.0001] # HIRAGANA LETTER HA
+3070      ; [.38EE.0020.0011.0001][.0000.0037.0002] # HIRAGANA LETTER BA
+3071      ; [.38EE.0020.0011.0001][.0000.0038.0002] # HIRAGANA LETTER PA
+3072      ; [.38EF.0020.0011.0001] # HIRAGANA LETTER HI
+3073      ; [.38EF.0020.0011.0001][.0000.0037.0002] # HIRAGANA LETTER BI
+3074      ; [.38EF.0020.0011.0001][.0000.0038.0002] # HIRAGANA LETTER PI
+3075      ; [.38F0.0020.0011.0001] # HIRAGANA LETTER HU
+3076      ; [.38F0.0020.0011.0001][.0000.0037.0002] # HIRAGANA LETTER BU
+3077      ; [.38F0.0020.0011.0001][.0000.0038.0002] # HIRAGANA LETTER PU
+3078      ; [.38F1.0020.0011.0001] # HIRAGANA LETTER HE
+3079      ; [.38F1.0020.0011.0001][.0000.0037.0002] # HIRAGANA LETTER BE
+307A      ; [.38F1.0020.0011.0001][.0000.0038.0002] # HIRAGANA LETTER PE
+307B      ; [.38F2.0020.0011.0001] # HIRAGANA LETTER HO
+307C      ; [.38F2.0020.0011.0001][.0000.0037.0002] # HIRAGANA LETTER BO
+307D      ; [.38F2.0020.0011.0001][.0000.0038.0002] # HIRAGANA LETTER PO
+307E      ; [.38F3.0020.0011.0001] # HIRAGANA LETTER MA
+307F      ; [.38F4.0020.0011.0001] # HIRAGANA LETTER MI
+3080      ; [.38F5.0020.0011.0001] # HIRAGANA LETTER MU
+3081      ; [.38F6.0020.0011.0001] # HIRAGANA LETTER ME
+3082      ; [.38F7.0020.0011.0001] # HIRAGANA LETTER MO
+3083      ; [.38F8.0020.000F.0001] # HIRAGANA LETTER SMALL YA
+3084      ; [.38F8.0020.0011.0001] # HIRAGANA LETTER YA
+3085      ; [.38F9.0020.000F.0001] # HIRAGANA LETTER SMALL YU
+3086      ; [.38F9.0020.0011.0001] # HIRAGANA LETTER YU
+3087      ; [.38FB.0020.000F.0001] # HIRAGANA LETTER SMALL YO
+3088      ; [.38FB.0020.0011.0001] # HIRAGANA LETTER YO
+3089      ; [.38FC.0020.0011.0001] # HIRAGANA LETTER RA
+308A      ; [.38FD.0020.0011.0001] # HIRAGANA LETTER RI
+308B      ; [.38FE.0020.0011.0001] # HIRAGANA LETTER RU
+308C      ; [.38FF.0020.0011.0001] # HIRAGANA LETTER RE
+308D      ; [.3900.0020.0011.0001] # HIRAGANA LETTER RO
+308E      ; [.3901.0020.000F.0001] # HIRAGANA LETTER SMALL WA
+308F      ; [.3901.0020.0011.0001] # HIRAGANA LETTER WA
+3090      ; [.3902.0020.0011.0001] # HIRAGANA LETTER WI
+3091      ; [.3903.0020.0011.0001] # HIRAGANA LETTER WE
+3092      ; [.3904.0020.0011.0001] # HIRAGANA LETTER WO
+3093      ; [.3905.0020.0011.0001] # HIRAGANA LETTER N
+3094      ; [.38D6.0020.0011.0001][.0000.0037.0002] # HIRAGANA LETTER VU
+3095      ; [.38DA.0020.000F.0001] # HIRAGANA LETTER SMALL KA
+3096      ; [.38DD.0020.000F.0001] # HIRAGANA LETTER SMALL KE
+309D      ; [.18D5.0020.0002.0001] # HIRAGANA ITERATION MARK
+309E      ; [.18D5.0020.0002.0001][.0000.0037.0002] # HIRAGANA VOICED ITERATION MARK
+3000      ; [*0209.0020.0002] # IDEOGRAPHIC SPACE
+FF01      ; [*025F.0020.0002] # FULLWIDTH EXCLAMATION MARK
+FF02      ; [*02FF.0020.0002] # FULLWIDTH QUOTATION MARK
+FF03      ; [*038B.0020.0002] # FULLWIDTH NUMBER SIGN
+FF04      ; [.18D8.0020.0002] # FULLWIDTH DOLLAR SIGN
+FF05      ; [*038C.0020.0002] # FULLWIDTH PERCENT SIGN
+FF06      ; [*0389.0020.0002] # FULLWIDTH AMPERSAND
+FF07      ; [*02F8.0020.0002] # FULLWIDTH APOSTROPHE
+FF08      ; [*030A.0020.0002] # FULLWIDTH LEFT PARENTHESIS
+FF09      ; [*030B.0020.0002] # FULLWIDTH RIGHT PARENTHESIS
+FF0A      ; [*0382.0020.0002] # FULLWIDTH ASTERISK
+FF0B      ; [*05D6.0020.0002] # FULLWIDTH PLUS SIGN
+FF0C      ; [*0221.0020.0002] # FULLWIDTH COMMA
+FF0D      ; [*020D.0020.0002] # FULLWIDTH HYPHEN-MINUS
+FF0E      ; [*0274.0020.0002] # FULLWIDTH FULL STOP
+FF0F      ; [*0387.0020.0002] # FULLWIDTH SOLIDUS
+FF10      ; [.1902.0020.0002] # FULLWIDTH DIGIT ZERO
+FF11      ; [.1903.0020.0002] # FULLWIDTH DIGIT ONE
+FF12      ; [.1904.0020.0002] # FULLWIDTH DIGIT TWO
+FF13      ; [.1905.0020.0002] # FULLWIDTH DIGIT THREE
+FF14      ; [.1906.0020.0002] # FULLWIDTH DIGIT FOUR
+FF15      ; [.1907.0020.0002] # FULLWIDTH DIGIT FIVE
+FF16      ; [.1908.0020.0002] # FULLWIDTH DIGIT SIX
+FF17      ; [.1909.0020.0002] # FULLWIDTH DIGIT SEVEN
+FF18      ; [.190A.0020.0002] # FULLWIDTH DIGIT EIGHT
+FF19      ; [.190B.0020.0002] # FULLWIDTH DIGIT NINE
+FF1A      ; [*0238.0020.0002] # FULLWIDTH COLON
+FF1B      ; [*0233.0020.0002] # FULLWIDTH SEMICOLON
+FF1C      ; [*05DA.0020.0002] # FULLWIDTH LESS-THAN SIGN
+FF1D      ; [*05DB.0020.0002] # FULLWIDTH EQUALS SIGN
+FF1E      ; [*05DC.0020.0002] # FULLWIDTH GREATER-THAN SIGN
+FF1F      ; [*0264.0020.0002] # FULLWIDTH QUESTION MARK
+FF20      ; [*0381.0020.0002] # FULLWIDTH COMMERCIAL AT
+FF21      ; [.190C.0020.0008] # FULLWIDTH LATIN CAPITAL LETTER A
+FF22      ; [.1925.0020.0008] # FULLWIDTH LATIN CAPITAL LETTER B
+FF23      ; [.193E.0020.0008] # FULLWIDTH LATIN CAPITAL LETTER C
+FF24      ; [.1953.0020.0008] # FULLWIDTH LATIN CAPITAL LETTER D
+FF25      ; [.196E.0020.0008] # FULLWIDTH LATIN CAPITAL LETTER E
+FF26      ; [.19A9.0020.0008] # FULLWIDTH LATIN CAPITAL LETTER F
+FF27      ; [.19B8.0020.0008] # FULLWIDTH LATIN CAPITAL LETTER G
+FF28      ; [.19DC.0020.0008] # FULLWIDTH LATIN CAPITAL LETTER H
+FF29      ; [.19F6.0020.0008] # FULLWIDTH LATIN CAPITAL LETTER I
+FF2A      ; [.1A10.0020.0008] # FULLWIDTH LATIN CAPITAL LETTER J
+FF2B      ; [.1A29.0020.0008] # FULLWIDTH LATIN CAPITAL LETTER K
+FF2C      ; [.1A3B.0020.0008] # FULLWIDTH LATIN CAPITAL LETTER L
+FF2D      ; [.1A6E.0020.0008] # FULLWIDTH LATIN CAPITAL LETTER M
+FF2E      ; [.1A7D.0020.0008] # FULLWIDTH LATIN CAPITAL LETTER N
+FF2F      ; [.1AA1.0020.0008] # FULLWIDTH LATIN CAPITAL LETTER O
+FF30      ; [.1ACE.0020.0008] # FULLWIDTH LATIN CAPITAL LETTER P
+FF31      ; [.1AE3.0020.0008] # FULLWIDTH LATIN CAPITAL LETTER Q
+FF32      ; [.1AF5.0020.0008] # FULLWIDTH LATIN CAPITAL LETTER R
+FF33      ; [.1B33.0020.0008] # FULLWIDTH LATIN CAPITAL LETTER S
+FF34      ; [.1B57.0020.0008] # FULLWIDTH LATIN CAPITAL LETTER T
+FF35      ; [.1B77.0020.0008] # FULLWIDTH LATIN CAPITAL LETTER U
+FF36      ; [.1BA5.0020.0008] # FULLWIDTH LATIN CAPITAL LETTER V
+FF37      ; [.1BB7.0020.0008] # FULLWIDTH LATIN CAPITAL LETTER W
+FF38      ; [.1BC1.0020.0008] # FULLWIDTH LATIN CAPITAL LETTER X
+FF39      ; [.1BCD.0020.0008] # FULLWIDTH LATIN CAPITAL LETTER Y
+FF3A      ; [.1BE3.0020.0008] # FULLWIDTH LATIN CAPITAL LETTER Z
+FF3B      ; [*030C.0020.0002] # FULLWIDTH LEFT SQUARE BRACKET
+FF3C      ; [*02F8.0020.0002] # FULLWIDTH REVERSE SOLIDUS
+FF3D      ; [*030D.0020.0002] # FULLWIDTH RIGHT SQUARE BRACKET
+FF3E      ; [*0449.0020.0002] # FULLWIDTH CIRCUMFLEX ACCENT
+FF3F      ; [*020B.0020.0002] # FULLWIDTH LOW LINE
+FF40      ; [*0446.0020.0002] # FULLWIDTH GRAVE ACCENT
+FF41      ; [.190C.0020.0002] # FULLWIDTH LATIN SMALL LETTER A
+FF42      ; [.1925.0020.0002] # FULLWIDTH LATIN SMALL LETTER B
+FF43      ; [.193E.0020.0002] # FULLWIDTH LATIN SMALL LETTER C
+FF44      ; [.1953.0020.0002] # FULLWIDTH LATIN SMALL LETTER D
+FF45      ; [.196E.0020.0002] # FULLWIDTH LATIN SMALL LETTER E
+FF46      ; [.19A9.0020.0002] # FULLWIDTH LATIN SMALL LETTER F
+FF47      ; [.19B8.0020.0002] # FULLWIDTH LATIN SMALL LETTER G
+FF48      ; [.19DC.0020.0002] # FULLWIDTH LATIN SMALL LETTER H
+FF49      ; [.19F6.0020.0002] # FULLWIDTH LATIN SMALL LETTER I
+FF4A      ; [.1A10.0020.0002] # FULLWIDTH LATIN SMALL LETTER J
+FF4B      ; [.1A29.0020.0002] # FULLWIDTH LATIN SMALL LETTER K
+FF4C      ; [.1A3B.0020.0002] # FULLWIDTH LATIN SMALL LETTER L
+FF4D      ; [.1A6E.0020.0002] # FULLWIDTH LATIN SMALL LETTER M
+FF4E      ; [.1A7D.0020.0002] # FULLWIDTH LATIN SMALL LETTER N
+FF4F      ; [.1AA1.0020.0002] # FULLWIDTH LATIN SMALL LETTER O
+FF50      ; [.1ACE.0020.0002] # FULLWIDTH LATIN SMALL LETTER P
+FF51      ; [.1AE3.0020.0002] # FULLWIDTH LATIN SMALL LETTER Q
+FF52      ; [.1AF5.0020.0002] # FULLWIDTH LATIN SMALL LETTER R
+FF53      ; [.1B33.0020.0002] # FULLWIDTH LATIN SMALL LETTER S
+FF54      ; [.1B57.0020.0002] # FULLWIDTH LATIN SMALL LETTER T
+FF55      ; [.1B77.0020.0002] # FULLWIDTH LATIN SMALL LETTER U
+FF56      ; [.1BA5.0020.0002] # FULLWIDTH LATIN SMALL LETTER V
+FF57      ; [.1BB7.0020.0002] # FULLWIDTH LATIN SMALL LETTER W
+FF58      ; [.1BC1.0020.0002] # FULLWIDTH LATIN SMALL LETTER X
+FF59      ; [.1BCD.0020.0002] # FULLWIDTH LATIN SMALL LETTER Y
+FF5A      ; [.1BE3.0020.0002] # FULLWIDTH LATIN SMALL LETTER Z
+FF5B      ; [*030E.0020.0002] # FULLWIDTH LEFT CURLY BRACKET
+FF5C      ; [*05DE.0020.0002] # FULLWIDTH VERTICAL LINE
+FF5D      ; [*030F.0020.0002] # FULLWIDTH RIGHT CURLY BRACKET
+FF5E      ; [*05E0.0020.0002] # FULLWIDTH TILDE
+FF5F      ; [*0320.0020.0002] # FULLWIDTH LEFT WHITE PARENTHESIS
+FF60      ; [*0321.0020.0002] # FULLWIDTH RIGHT WHITE PARENTHESIS
+FF61      ; [*0287.0020.0002] # HALFWIDTH IDEOGRAPHIC FULL STOP
+FF62      ; [*0366.0020.0002] # HALFWIDTH LEFT CORNER BRACKET
+FF63      ; [*0367.0020.0002] # HALFWIDTH RIGHT CORNER BRACKET
+FF64      ; [*0230.0020.0002] # HALFWIDTH IDEOGRAPHIC COMMA
+FF65      ; [*0220.0020.0002] # HALFWIDTH KATAKANA MIDDLE DOT
+FF66      ; [.3904.0020.0011.0002] # HALFWIDTH KATAKANA LETTER WO
+FF67      ; [.38D4.0020.000F.0002] # HALFWIDTH KATAKANA LETTER SMALL A
+FF68      ; [.38D5.0020.000F.0002] # HALFWIDTH KATAKANA LETTER SMALL I
+FF69      ; [.38D6.0020.000F.0002] # HALFWIDTH KATAKANA LETTER SMALL U
+FF6A      ; [.38D8.0020.000F.0002] # HALFWIDTH KATAKANA LETTER SMALL E
+FF6B      ; [.38D9.0020.000F.0002] # HALFWIDTH KATAKANA LETTER SMALL O
+FF6C      ; [.38F8.0020.000F.0002] # HALFWIDTH KATAKANA LETTER SMALL YA
+FF6D      ; [.38F9.0020.000F.0002] # HALFWIDTH KATAKANA LETTER SMALL YU
+FF6E      ; [.38FB.0020.000F.0002] # HALFWIDTH KATAKANA LETTER SMALL YO
+FF6F      ; [.38E6.0020.000F.0002] # HALFWIDTH KATAKANA LETTER SMALL TU
+FF70      ; [.18D4.0020.0002] # HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK
+FF71      ; [.38D4.0020.0011.0002] # HALFWIDTH KATAKANA LETTER A
+FF72      ; [.38D5.0020.0011.0002] # HALFWIDTH KATAKANA LETTER I
+FF73      ; [.38D6.0020.0011.0002] # HALFWIDTH KATAKANA LETTER U
+FF74      ; [.38D8.0020.0011.0002] # HALFWIDTH KATAKANA LETTER E
+FF75      ; [.38D9.0020.0011.0002] # HALFWIDTH KATAKANA LETTER O
+FF76      ; [.38DA.0020.0011.0002] # HALFWIDTH KATAKANA LETTER KA
+FF77      ; [.38DB.0020.0011.0002] # HALFWIDTH KATAKANA LETTER KI
+FF78      ; [.38DC.0020.0011.0002] # HALFWIDTH KATAKANA LETTER KU
+FF79      ; [.38DD.0020.0011.0002] # HALFWIDTH KATAKANA LETTER KE
+FF7A      ; [.38DE.0020.0011.0002] # HALFWIDTH KATAKANA LETTER KO
+FF7B      ; [.38DF.0020.0011.0002] # HALFWIDTH KATAKANA LETTER SA
+FF7C      ; [.38E0.0020.0011.0002] # HALFWIDTH KATAKANA LETTER SI
+FF7D      ; [.38E1.0020.0011.0002] # HALFWIDTH KATAKANA LETTER SU
+FF7E      ; [.38E2.0020.0011.0002] # HALFWIDTH KATAKANA LETTER SE
+FF7F      ; [.38E3.0020.0011.0002] # HALFWIDTH KATAKANA LETTER SO
+FF80      ; [.38E4.0020.0011.0002] # HALFWIDTH KATAKANA LETTER TA
+FF81      ; [.38E5.0020.0011.0002] # HALFWIDTH KATAKANA LETTER TI
+FF82      ; [.38E6.0020.0011.0002] # HALFWIDTH KATAKANA LETTER TU
+FF83      ; [.38E7.0020.0011.0002] # HALFWIDTH KATAKANA LETTER TE
+FF84      ; [.38E8.0020.0011.0002] # HALFWIDTH KATAKANA LETTER TO
+FF85      ; [.38E9.0020.0011.0002] # HALFWIDTH KATAKANA LETTER NA
+FF86      ; [.38EA.0020.0011.0002] # HALFWIDTH KATAKANA LETTER NI
+FF87      ; [.38EB.0020.0011.0002] # HALFWIDTH KATAKANA LETTER NU
+FF88      ; [.38EC.0020.0011.0002] # HALFWIDTH KATAKANA LETTER NE
+FF89      ; [.38ED.0020.0011.0002] # HALFWIDTH KATAKANA LETTER NO
+FF8A      ; [.38EE.0020.0011.0002] # HALFWIDTH KATAKANA LETTER HA
+FF8B      ; [.38EF.0020.0011.0002] # HALFWIDTH KATAKANA LETTER HI
+FF8C      ; [.38F0.0020.0011.0002] # HALFWIDTH KATAKANA LETTER HU
+FF8D      ; [.38F1.0020.0011.0002] # HALFWIDTH KATAKANA LETTER HE
+FF8E      ; [.38F2.0020.0011.0002] # HALFWIDTH KATAKANA LETTER HO
+FF8F      ; [.38F3.0020.0011.0002] # HALFWIDTH KATAKANA LETTER MA
+FF90      ; [.38F4.0020.0011.0002] # HALFWIDTH KATAKANA LETTER MI
+FF91      ; [.38F5.0020.0011.0002] # HALFWIDTH KATAKANA LETTER MU
+FF92      ; [.38F6.0020.0011.0002] # HALFWIDTH KATAKANA LETTER ME
+FF93      ; [.38F7.0020.0011.0002] # HALFWIDTH KATAKANA LETTER MO
+FF94      ; [.38F8.0020.0011.0002] # HALFWIDTH KATAKANA LETTER YA
+FF95      ; [.38F9.0020.0011.0002] # HALFWIDTH KATAKANA LETTER YU
+FF96      ; [.38FB.0020.0011.0002] # HALFWIDTH KATAKANA LETTER YO
+FF97      ; [.38FC.0020.0011.0002] # HALFWIDTH KATAKANA LETTER RA
+FF98      ; [.38FD.0020.0011.0002] # HALFWIDTH KATAKANA LETTER RI
+FF99      ; [.38FE.0020.0011.0002] # HALFWIDTH KATAKANA LETTER RU
+FF9A      ; [.38FF.0020.0011.0002] # HALFWIDTH KATAKANA LETTER RE
+FF9B      ; [.3900.0020.0011.0002] # HALFWIDTH KATAKANA LETTER RO
+FF9C      ; [.3901.0020.0011.0002] # HALFWIDTH KATAKANA LETTER WA
+FF9D      ; [.3905.0020.0011.0002] # HALFWIDTH KATAKANA LETTER N
+FF9E      ; [.0000.0037.0002] # HALFWIDTH KATAKANA VOICED SOUND MARK
+FF9F      ; [.0000.0038.0002] # HALFWIDTH KATAKANA SEMI-VOICED SOUND MARK
+FFE0      ; [.18D7.0020.0002] # FULLWIDTH CENT SIGN
+FFE1      ; [.18D9.0020.0002] # FULLWIDTH POUND SIGN
+FFE2      ; [*05DD.0020.0002] # FULLWIDTH NOT SIGN
+FFE3      ; [*0209.0020.0002] # FULLWIDTH MACRON
+FFE4      ; [*05DF.0020.0002] # FULLWIDTH BROKEN BAR
+FFE5      ; [.18DA.0020.0002] # FULLWIDTH YEN SIGN
+FFE6      ; [.18ED.0020.0002] # FULLWIDTH WON SIGN
+FFE8      ; [*07D6.0020.0002] # HALFWIDTH FORMS LIGHT VERTICAL
+FFE9      ; [*055C.0020.0002] # HALFWIDTH LEFTWARDS ARROW
+FFEA      ; [*055E.0020.0002] # HALFWIDTH UPWARDS ARROW
+FFEB      ; [*055D.0020.0002] # HALFWIDTH RIGHTWARDS ARROW
+FFEC      ; [*055F.0020.0002] # HALFWIDTH DOWNWARDS ARROW
+FFED      ; [*0874.0020.0002] # HALFWIDTH BLACK SQUARE
+FFEE      ; [*089F.0020.0002] # HALFWIDTH WHITE CIRCLE
+30A1 30FC ; [.38D4.0020.000F.0002][.38D4.0020.0007.0002] # <KATAKANA LETTER SMALL A, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF67 30FC ; [.38D4.0020.000F.0002][.38D4.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER SMALL A, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF67 FF70 ; [.38D4.0020.000F.0002][.38D4.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER SMALL A, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3041 30FC ; [.38D4.0020.000F.0001][.38D4.0020.0007.0002] # <HIRAGANA LETTER SMALL A, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30A2 30FC ; [.38D4.0020.0011.0002][.38D4.0020.0007.0002] # <KATAKANA LETTER A, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF71 30FC ; [.38D4.0020.0011.0002][.38D4.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER A, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF71 FF70 ; [.38D4.0020.0011.0002][.38D4.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER A, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3042 30FC ; [.38D4.0020.0011.0001][.38D4.0020.0007.0002] # <HIRAGANA LETTER A, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30AB 30FC ; [.38DA.0020.0011.0002][.38D4.0020.0007.0002] # <KATAKANA LETTER KA, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF76 30FC ; [.38DA.0020.0011.0002][.38D4.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER KA, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF76 FF70 ; [.38DA.0020.0011.0002][.38D4.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER KA, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+304B 30FC ; [.38DA.0020.0011.0001][.38D4.0020.0007.0002] # <HIRAGANA LETTER KA, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30AC 30FC ; [.38DA.0020.0011.0002][.0000.0037.0002][.38D4.0020.0007.0002] # <KATAKANA LETTER GA, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30AB 3099 30FC ; [.38DA.0020.0011.0002][.0000.0037.0002][.38D4.0020.0007.0002] # <KATAKANA LETTER KA, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF76 FF9E 30FC ; [.38DA.0020.0011.0002][.0000.0037.0002][.38D4.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER KA, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF76 FF9E FF70 ; [.38DA.0020.0011.0002][.0000.0037.0002][.38D4.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER KA, HALFWIDTH KATAKANA VOICED SOUND MARK, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+304C 30FC ; [.38DA.0020.0011.0001][.0000.0037.0002][.38D4.0020.0007.0002] # <HIRAGANA LETTER GA, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+304B 3099 30FC ; [.38DA.0020.0011.0001][.0000.0037.0002][.38D4.0020.0007.0002] # <HIRAGANA LETTER KA, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30B5 30FC ; [.38DF.0020.0011.0002][.38D4.0020.0007.0002] # <KATAKANA LETTER SA, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF7B 30FC ; [.38DF.0020.0011.0002][.38D4.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER SA, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF7B FF70 ; [.38DF.0020.0011.0002][.38D4.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER SA, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3055 30FC ; [.38DF.0020.0011.0001][.38D4.0020.0007.0002] # <HIRAGANA LETTER SA, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30B6 30FC ; [.38DF.0020.0011.0002][.0000.0037.0002][.38D4.0020.0007.0002] # <KATAKANA LETTER ZA, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30B5 3099 30FC ; [.38DF.0020.0011.0002][.0000.0037.0002][.38D4.0020.0007.0002] # <KATAKANA LETTER SA, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF7B FF9E 30FC ; [.38DF.0020.0011.0002][.0000.0037.0002][.38D4.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER SA, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF7B FF9E FF70 ; [.38DF.0020.0011.0002][.0000.0037.0002][.38D4.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER SA, HALFWIDTH KATAKANA VOICED SOUND MARK, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3056 30FC ; [.38DF.0020.0011.0001][.0000.0037.0002][.38D4.0020.0007.0002] # <HIRAGANA LETTER ZA, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3055 3099 30FC ; [.38DF.0020.0011.0001][.0000.0037.0002][.38D4.0020.0007.0002] # <HIRAGANA LETTER SA, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30BF 30FC ; [.38E4.0020.0011.0002][.38D4.0020.0007.0002] # <KATAKANA LETTER TA, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF80 30FC ; [.38E4.0020.0011.0002][.38D4.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER TA, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF80 FF70 ; [.38E4.0020.0011.0002][.38D4.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER TA, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+305F 30FC ; [.38E4.0020.0011.0001][.38D4.0020.0007.0002] # <HIRAGANA LETTER TA, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30C0 30FC ; [.38E4.0020.0011.0002][.0000.0037.0002][.38D4.0020.0007.0002] # <KATAKANA LETTER DA, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30BF 3099 30FC ; [.38E4.0020.0011.0002][.0000.0037.0002][.38D4.0020.0007.0002] # <KATAKANA LETTER TA, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF80 FF9E 30FC ; [.38E4.0020.0011.0002][.0000.0037.0002][.38D4.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER TA, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF80 FF9E FF70 ; [.38E4.0020.0011.0002][.0000.0037.0002][.38D4.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER TA, HALFWIDTH KATAKANA VOICED SOUND MARK, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3060 30FC ; [.38E4.0020.0011.0001][.0000.0037.0002][.38D4.0020.0007.0002] # <HIRAGANA LETTER DA, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+305F 3099 30FC ; [.38E4.0020.0011.0001][.0000.0037.0002][.38D4.0020.0007.0002] # <HIRAGANA LETTER TA, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30CA 30FC ; [.38E9.0020.0011.0002][.38D4.0020.0007.0002] # <KATAKANA LETTER NA, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF85 30FC ; [.38E9.0020.0011.0002][.38D4.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER NA, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF85 FF70 ; [.38E9.0020.0011.0002][.38D4.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER NA, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+306A 30FC ; [.38E9.0020.0011.0001][.38D4.0020.0007.0002] # <HIRAGANA LETTER NA, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30CF 30FC ; [.38EE.0020.0011.0002][.38D4.0020.0007.0002] # <KATAKANA LETTER HA, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF8A 30FC ; [.38EE.0020.0011.0002][.38D4.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER HA, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF8A FF70 ; [.38EE.0020.0011.0002][.38D4.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER HA, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+306F 30FC ; [.38EE.0020.0011.0001][.38D4.0020.0007.0002] # <HIRAGANA LETTER HA, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30D0 30FC ; [.38EE.0020.0011.0002][.0000.0037.0002][.38D4.0020.0007.0002] # <KATAKANA LETTER BA, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30CF 3099 30FC ; [.38EE.0020.0011.0002][.0000.0037.0002][.38D4.0020.0007.0002] # <KATAKANA LETTER HA, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF8A FF9E 30FC ; [.38EE.0020.0011.0002][.0000.0037.0002][.38D4.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER HA, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF8A FF9E FF70 ; [.38EE.0020.0011.0002][.0000.0037.0002][.38D4.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER HA, HALFWIDTH KATAKANA VOICED SOUND MARK, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3070 30FC ; [.38EE.0020.0011.0001][.0000.0037.0002][.38D4.0020.0007.0002] # <HIRAGANA LETTER BA, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+306F 3099 30FC ; [.38EE.0020.0011.0001][.0000.0037.0002][.38D4.0020.0007.0002] # <HIRAGANA LETTER HA, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30D1 30FC ; [.38EE.0020.0011.0002][.0000.0038.0002][.38D4.0020.0007.0002] # <KATAKANA LETTER PA, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30CF 309A 30FC ; [.38EE.0020.0011.0002][.0000.0038.0002][.38D4.0020.0007.0002] # <KATAKANA LETTER HA, COMBINING KATAKANA-HIRAGANA SEMI-VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF8A FF9F 30FC ; [.38EE.0020.0011.0002][.0000.0038.0002][.38D4.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER HA, HALFWIDTH KATAKANA SEMI-VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF8A FF9F FF70 ; [.38EE.0020.0011.0002][.0000.0038.0002][.38D4.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER HA, HALFWIDTH KATAKANA SEMI-VOICED SOUND MARK, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3071 30FC ; [.38EE.0020.0011.0001][.0000.0038.0002][.38D4.0020.0007.0002] # <HIRAGANA LETTER PA, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+306F 309A 30FC ; [.38EE.0020.0011.0001][.0000.0038.0002][.38D4.0020.0007.0002] # <HIRAGANA LETTER HA, COMBINING KATAKANA-HIRAGANA SEMI-VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30DE 30FC ; [.38F3.0020.0011.0002][.38D4.0020.0007.0002] # <KATAKANA LETTER MA, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF8F 30FC ; [.38F3.0020.0011.0002][.38D4.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER MA, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF8F FF70 ; [.38F3.0020.0011.0002][.38D4.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER MA, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+307E 30FC ; [.38F3.0020.0011.0001][.38D4.0020.0007.0002] # <HIRAGANA LETTER MA, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30E3 30FC ; [.38F8.0020.000F.0002][.38D4.0020.0007.0002] # <KATAKANA LETTER SMALL YA, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF6C 30FC ; [.38F8.0020.000F.0002][.38D4.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER SMALL YA, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF6C FF70 ; [.38F8.0020.000F.0002][.38D4.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER SMALL YA, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3083 30FC ; [.38F8.0020.000F.0001][.38D4.0020.0007.0002] # <HIRAGANA LETTER SMALL YA, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30E4 30FC ; [.38F8.0020.0011.0002][.38D4.0020.0007.0002] # <KATAKANA LETTER YA, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF94 30FC ; [.38F8.0020.0011.0002][.38D4.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER YA, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF94 FF70 ; [.38F8.0020.0011.0002][.38D4.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER YA, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3084 30FC ; [.38F8.0020.0011.0001][.38D4.0020.0007.0002] # <HIRAGANA LETTER YA, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30E9 30FC ; [.38FC.0020.0011.0002][.38D4.0020.0007.0002] # <KATAKANA LETTER RA, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF97 30FC ; [.38FC.0020.0011.0002][.38D4.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER RA, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF97 FF70 ; [.38FC.0020.0011.0002][.38D4.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER RA, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3089 30FC ; [.38FC.0020.0011.0001][.38D4.0020.0007.0002] # <HIRAGANA LETTER RA, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30EE 30FC ; [.3901.0020.000F.0002][.38D4.0020.0007.0002] # <KATAKANA LETTER SMALL WA, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+308E 30FC ; [.3901.0020.000F.0001][.38D4.0020.0007.0002] # <HIRAGANA LETTER SMALL WA, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30EF 30FC ; [.3901.0020.0011.0002][.38D4.0020.0007.0002] # <KATAKANA LETTER WA, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF9C 30FC ; [.3901.0020.0011.0002][.38D4.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER WA, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF9C FF70 ; [.3901.0020.0011.0002][.38D4.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER WA, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+308F 30FC ; [.3901.0020.0011.0001][.38D4.0020.0007.0002] # <HIRAGANA LETTER WA, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30F7 30FC ; [.3901.0020.0011.0002][.0000.0037.0002][.38D4.0020.0007.0002] # <KATAKANA LETTER VA, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30EF 3099 30FC ; [.3901.0020.0011.0002][.0000.0037.0002][.38D4.0020.0007.0002] # <KATAKANA LETTER WA, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF9C FF9E 30FC ; [.3901.0020.0011.0002][.0000.0037.0002][.38D4.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER WA, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF9C FF9E FF70 ; [.3901.0020.0011.0002][.0000.0037.0002][.38D4.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER WA, HALFWIDTH KATAKANA VOICED SOUND MARK, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30F5 30FC ; [.38DA.0020.000F.0002][.38D4.0020.0007.0002] # <KATAKANA LETTER SMALL KA, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3095 30FC ; [.38DA.0020.000F.0001][.38D4.0020.0007.0002] # <HIRAGANA LETTER SMALL KA, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+31F5 30FC ; [.38EE.0020.000F][.38D4.0020.0007.0002] # <KATAKANA LETTER SMALL HA, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+31FB 30FC ; [.38FC.0020.000F][.38D4.0020.0007.0002] # <KATAKANA LETTER SMALL RA, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30A3 30FC ; [.38D5.0020.000F.0002][.38D5.0020.0007.0002] # <KATAKANA LETTER SMALL I, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF68 30FC ; [.38D5.0020.000F.0002][.38D5.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER SMALL I, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF68 FF70 ; [.38D5.0020.000F.0002][.38D5.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER SMALL I, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3043 30FC ; [.38D5.0020.000F.0001][.38D5.0020.0007.0002] # <HIRAGANA LETTER SMALL I, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30A4 30FC ; [.38D5.0020.0011.0002][.38D5.0020.0007.0002] # <KATAKANA LETTER I, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF72 30FC ; [.38D5.0020.0011.0002][.38D5.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER I, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF72 FF70 ; [.38D5.0020.0011.0002][.38D5.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER I, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3044 30FC ; [.38D5.0020.0011.0001][.38D5.0020.0007.0002] # <HIRAGANA LETTER I, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30AD 30FC ; [.38DB.0020.0011.0002][.38D5.0020.0007.0002] # <KATAKANA LETTER KI, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF77 30FC ; [.38DB.0020.0011.0002][.38D5.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER KI, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF77 FF70 ; [.38DB.0020.0011.0002][.38D5.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER KI, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+304D 30FC ; [.38DB.0020.0011.0001][.38D5.0020.0007.0002] # <HIRAGANA LETTER KI, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30AE 30FC ; [.38DB.0020.0011.0002][.0000.0037.0002][.38D5.0020.0007.0002] # <KATAKANA LETTER GI, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30AD 3099 30FC ; [.38DB.0020.0011.0002][.0000.0037.0002][.38D5.0020.0007.0002] # <KATAKANA LETTER KI, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF77 FF9E 30FC ; [.38DB.0020.0011.0002][.0000.0037.0002][.38D5.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER KI, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF77 FF9E FF70 ; [.38DB.0020.0011.0002][.0000.0037.0002][.38D5.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER KI, HALFWIDTH KATAKANA VOICED SOUND MARK, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+304E 30FC ; [.38DB.0020.0011.0001][.0000.0037.0002][.38D5.0020.0007.0002] # <HIRAGANA LETTER GI, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+304D 3099 30FC ; [.38DB.0020.0011.0001][.0000.0037.0002][.38D5.0020.0007.0002] # <HIRAGANA LETTER KI, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30B7 30FC ; [.38E0.0020.0011.0002][.38D5.0020.0007.0002] # <KATAKANA LETTER SI, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF7C 30FC ; [.38E0.0020.0011.0002][.38D5.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER SI, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF7C FF70 ; [.38E0.0020.0011.0002][.38D5.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER SI, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3057 30FC ; [.38E0.0020.0011.0001][.38D5.0020.0007.0002] # <HIRAGANA LETTER SI, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30B8 30FC ; [.38E0.0020.0011.0002][.0000.0037.0002][.38D5.0020.0007.0002] # <KATAKANA LETTER ZI, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30B7 3099 30FC ; [.38E0.0020.0011.0002][.0000.0037.0002][.38D5.0020.0007.0002] # <KATAKANA LETTER SI, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF7C FF9E 30FC ; [.38E0.0020.0011.0002][.0000.0037.0002][.38D5.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER SI, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF7C FF9E FF70 ; [.38E0.0020.0011.0002][.0000.0037.0002][.38D5.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER SI, HALFWIDTH KATAKANA VOICED SOUND MARK, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3058 30FC ; [.38E0.0020.0011.0001][.0000.0037.0002][.38D5.0020.0007.0002] # <HIRAGANA LETTER ZI, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3057 3099 30FC ; [.38E0.0020.0011.0001][.0000.0037.0002][.38D5.0020.0007.0002] # <HIRAGANA LETTER SI, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30C1 30FC ; [.38E5.0020.0011.0002][.38D5.0020.0007.0002] # <KATAKANA LETTER TI, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF81 30FC ; [.38E5.0020.0011.0002][.38D5.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER TI, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF81 FF70 ; [.38E5.0020.0011.0002][.38D5.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER TI, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3061 30FC ; [.38E5.0020.0011.0001][.38D5.0020.0007.0002] # <HIRAGANA LETTER TI, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30C2 30FC ; [.38E5.0020.0011.0002][.0000.0037.0002][.38D5.0020.0007.0002] # <KATAKANA LETTER DI, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30C1 3099 30FC ; [.38E5.0020.0011.0002][.0000.0037.0002][.38D5.0020.0007.0002] # <KATAKANA LETTER TI, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF81 FF9E 30FC ; [.38E5.0020.0011.0002][.0000.0037.0002][.38D5.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER TI, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF81 FF9E FF70 ; [.38E5.0020.0011.0002][.0000.0037.0002][.38D5.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER TI, HALFWIDTH KATAKANA VOICED SOUND MARK, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3062 30FC ; [.38E5.0020.0011.0001][.0000.0037.0002][.38D5.0020.0007.0002] # <HIRAGANA LETTER DI, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3061 3099 30FC ; [.38E5.0020.0011.0001][.0000.0037.0002][.38D5.0020.0007.0002] # <HIRAGANA LETTER TI, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30CB 30FC ; [.38EA.0020.0011.0002][.38D5.0020.0007.0002] # <KATAKANA LETTER NI, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF86 30FC ; [.38EA.0020.0011.0002][.38D5.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER NI, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF86 FF70 ; [.38EA.0020.0011.0002][.38D5.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER NI, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+306B 30FC ; [.38EA.0020.0011.0001][.38D5.0020.0007.0002] # <HIRAGANA LETTER NI, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30D2 30FC ; [.38EF.0020.0011.0002][.38D5.0020.0007.0002] # <KATAKANA LETTER HI, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF8B 30FC ; [.38EF.0020.0011.0002][.38D5.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER HI, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF8B FF70 ; [.38EF.0020.0011.0002][.38D5.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER HI, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3072 30FC ; [.38EF.0020.0011.0001][.38D5.0020.0007.0002] # <HIRAGANA LETTER HI, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30D3 30FC ; [.38EF.0020.0011.0002][.0000.0037.0002][.38D5.0020.0007.0002] # <KATAKANA LETTER BI, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30D2 3099 30FC ; [.38EF.0020.0011.0002][.0000.0037.0002][.38D5.0020.0007.0002] # <KATAKANA LETTER HI, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF8B FF9E 30FC ; [.38EF.0020.0011.0002][.0000.0037.0002][.38D5.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER HI, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF8B FF9E FF70 ; [.38EF.0020.0011.0002][.0000.0037.0002][.38D5.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER HI, HALFWIDTH KATAKANA VOICED SOUND MARK, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3073 30FC ; [.38EF.0020.0011.0001][.0000.0037.0002][.38D5.0020.0007.0002] # <HIRAGANA LETTER BI, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3072 3099 30FC ; [.38EF.0020.0011.0001][.0000.0037.0002][.38D5.0020.0007.0002] # <HIRAGANA LETTER HI, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30D4 30FC ; [.38EF.0020.0011.0002][.0000.0038.0002][.38D5.0020.0007.0002] # <KATAKANA LETTER PI, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30D2 309A 30FC ; [.38EF.0020.0011.0002][.0000.0038.0002][.38D5.0020.0007.0002] # <KATAKANA LETTER HI, COMBINING KATAKANA-HIRAGANA SEMI-VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF8B FF9F 30FC ; [.38EF.0020.0011.0002][.0000.0038.0002][.38D5.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER HI, HALFWIDTH KATAKANA SEMI-VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF8B FF9F FF70 ; [.38EF.0020.0011.0002][.0000.0038.0002][.38D5.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER HI, HALFWIDTH KATAKANA SEMI-VOICED SOUND MARK, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3074 30FC ; [.38EF.0020.0011.0001][.0000.0038.0002][.38D5.0020.0007.0002] # <HIRAGANA LETTER PI, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3072 309A 30FC ; [.38EF.0020.0011.0001][.0000.0038.0002][.38D5.0020.0007.0002] # <HIRAGANA LETTER HI, COMBINING KATAKANA-HIRAGANA SEMI-VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30DF 30FC ; [.38F4.0020.0011.0002][.38D5.0020.0007.0002] # <KATAKANA LETTER MI, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF90 30FC ; [.38F4.0020.0011.0002][.38D5.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER MI, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF90 FF70 ; [.38F4.0020.0011.0002][.38D5.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER MI, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+307F 30FC ; [.38F4.0020.0011.0001][.38D5.0020.0007.0002] # <HIRAGANA LETTER MI, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30EA 30FC ; [.38FD.0020.0011.0002][.38D5.0020.0007.0002] # <KATAKANA LETTER RI, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF98 30FC ; [.38FD.0020.0011.0002][.38D5.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER RI, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF98 FF70 ; [.38FD.0020.0011.0002][.38D5.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER RI, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+308A 30FC ; [.38FD.0020.0011.0001][.38D5.0020.0007.0002] # <HIRAGANA LETTER RI, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30F0 30FC ; [.3902.0020.0011.0002][.38D5.0020.0007.0002] # <KATAKANA LETTER WI, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3090 30FC ; [.3902.0020.0011.0001][.38D5.0020.0007.0002] # <HIRAGANA LETTER WI, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30F8 30FC ; [.3902.0020.0011.0002][.0000.0037.0002][.38D5.0020.0007.0002] # <KATAKANA LETTER VI, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30F0 3099 30FC ; [.3902.0020.0011.0002][.0000.0037.0002][.38D5.0020.0007.0002] # <KATAKANA LETTER WI, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+31F1 30FC ; [.38E0.0020.000F][.38D5.0020.0007.0002] # <KATAKANA LETTER SMALL SI, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+31F6 30FC ; [.38EF.0020.000F][.38D5.0020.0007.0002] # <KATAKANA LETTER SMALL HI, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+31FC 30FC ; [.38FD.0020.000F][.38D5.0020.0007.0002] # <KATAKANA LETTER SMALL RI, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30A5 30FC ; [.38D6.0020.000F.0002][.38D6.0020.0007.0002] # <KATAKANA LETTER SMALL U, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF69 30FC ; [.38D6.0020.000F.0002][.38D6.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER SMALL U, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF69 FF70 ; [.38D6.0020.000F.0002][.38D6.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER SMALL U, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3045 30FC ; [.38D6.0020.000F.0001][.38D6.0020.0007.0002] # <HIRAGANA LETTER SMALL U, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30A6 30FC ; [.38D6.0020.0011.0002][.38D6.0020.0007.0002] # <KATAKANA LETTER U, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF73 30FC ; [.38D6.0020.0011.0002][.38D6.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER U, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF73 FF70 ; [.38D6.0020.0011.0002][.38D6.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER U, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3046 30FC ; [.38D6.0020.0011.0001][.38D6.0020.0007.0002] # <HIRAGANA LETTER U, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30AF 30FC ; [.38DC.0020.0011.0002][.38D6.0020.0007.0002] # <KATAKANA LETTER KU, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF78 30FC ; [.38DC.0020.0011.0002][.38D6.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER KU, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF78 FF70 ; [.38DC.0020.0011.0002][.38D6.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER KU, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+304F 30FC ; [.38DC.0020.0011.0001][.38D6.0020.0007.0002] # <HIRAGANA LETTER KU, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30B0 30FC ; [.38DC.0020.0011.0002][.0000.0037.0002][.38D6.0020.0007.0002] # <KATAKANA LETTER GU, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30AF 3099 30FC ; [.38DC.0020.0011.0002][.0000.0037.0002][.38D6.0020.0007.0002] # <KATAKANA LETTER KU, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF78 FF9E 30FC ; [.38DC.0020.0011.0002][.0000.0037.0002][.38D6.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER KU, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF78 FF9E FF70 ; [.38DC.0020.0011.0002][.0000.0037.0002][.38D6.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER KU, HALFWIDTH KATAKANA VOICED SOUND MARK, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3050 30FC ; [.38DC.0020.0011.0001][.0000.0037.0002][.38D6.0020.0007.0002] # <HIRAGANA LETTER GU, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+304F 3099 30FC ; [.38DC.0020.0011.0001][.0000.0037.0002][.38D6.0020.0007.0002] # <HIRAGANA LETTER KU, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30B9 30FC ; [.38E1.0020.0011.0002][.38D6.0020.0007.0002] # <KATAKANA LETTER SU, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF7D 30FC ; [.38E1.0020.0011.0002][.38D6.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER SU, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF7D FF70 ; [.38E1.0020.0011.0002][.38D6.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER SU, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3059 30FC ; [.38E1.0020.0011.0001][.38D6.0020.0007.0002] # <HIRAGANA LETTER SU, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30BA 30FC ; [.38E1.0020.0011.0002][.0000.0037.0002][.38D6.0020.0007.0002] # <KATAKANA LETTER ZU, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30B9 3099 30FC ; [.38E1.0020.0011.0002][.0000.0037.0002][.38D6.0020.0007.0002] # <KATAKANA LETTER SU, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF7D FF9E 30FC ; [.38E1.0020.0011.0002][.0000.0037.0002][.38D6.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER SU, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF7D FF9E FF70 ; [.38E1.0020.0011.0002][.0000.0037.0002][.38D6.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER SU, HALFWIDTH KATAKANA VOICED SOUND MARK, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+305A 30FC ; [.38E1.0020.0011.0001][.0000.0037.0002][.38D6.0020.0007.0002] # <HIRAGANA LETTER ZU, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3059 3099 30FC ; [.38E1.0020.0011.0001][.0000.0037.0002][.38D6.0020.0007.0002] # <HIRAGANA LETTER SU, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30C3 30FC ; [.38E6.0020.000F.0002][.38D6.0020.0007.0002] # <KATAKANA LETTER SMALL TU, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF6F 30FC ; [.38E6.0020.000F.0002][.38D6.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER SMALL TU, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF6F FF70 ; [.38E6.0020.000F.0002][.38D6.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER SMALL TU, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3063 30FC ; [.38E6.0020.000F.0001][.38D6.0020.0007.0002] # <HIRAGANA LETTER SMALL TU, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30C4 30FC ; [.38E6.0020.0011.0002][.38D6.0020.0007.0002] # <KATAKANA LETTER TU, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF82 30FC ; [.38E6.0020.0011.0002][.38D6.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER TU, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF82 FF70 ; [.38E6.0020.0011.0002][.38D6.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER TU, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3064 30FC ; [.38E6.0020.0011.0001][.38D6.0020.0007.0002] # <HIRAGANA LETTER TU, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30C5 30FC ; [.38E6.0020.0011.0002][.0000.0037.0002][.38D6.0020.0007.0002] # <KATAKANA LETTER DU, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30C4 3099 30FC ; [.38E6.0020.0011.0002][.0000.0037.0002][.38D6.0020.0007.0002] # <KATAKANA LETTER TU, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF82 FF9E 30FC ; [.38E6.0020.0011.0002][.0000.0037.0002][.38D6.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER TU, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF82 FF9E FF70 ; [.38E6.0020.0011.0002][.0000.0037.0002][.38D6.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER TU, HALFWIDTH KATAKANA VOICED SOUND MARK, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3065 30FC ; [.38E6.0020.0011.0001][.0000.0037.0002][.38D6.0020.0007.0002] # <HIRAGANA LETTER DU, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3064 3099 30FC ; [.38E6.0020.0011.0001][.0000.0037.0002][.38D6.0020.0007.0002] # <HIRAGANA LETTER TU, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30CC 30FC ; [.38EB.0020.0011.0002][.38D6.0020.0007.0002] # <KATAKANA LETTER NU, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF87 30FC ; [.38EB.0020.0011.0002][.38D6.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER NU, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF87 FF70 ; [.38EB.0020.0011.0002][.38D6.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER NU, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+306C 30FC ; [.38EB.0020.0011.0001][.38D6.0020.0007.0002] # <HIRAGANA LETTER NU, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30D5 30FC ; [.38F0.0020.0011.0002][.38D6.0020.0007.0002] # <KATAKANA LETTER HU, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF8C 30FC ; [.38F0.0020.0011.0002][.38D6.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER HU, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF8C FF70 ; [.38F0.0020.0011.0002][.38D6.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER HU, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3075 30FC ; [.38F0.0020.0011.0001][.38D6.0020.0007.0002] # <HIRAGANA LETTER HU, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30D6 30FC ; [.38F0.0020.0011.0002][.0000.0037.0002][.38D6.0020.0007.0002] # <KATAKANA LETTER BU, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30D5 3099 30FC ; [.38F0.0020.0011.0002][.0000.0037.0002][.38D6.0020.0007.0002] # <KATAKANA LETTER HU, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF8C FF9E 30FC ; [.38F0.0020.0011.0002][.0000.0037.0002][.38D6.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER HU, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF8C FF9E FF70 ; [.38F0.0020.0011.0002][.0000.0037.0002][.38D6.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER HU, HALFWIDTH KATAKANA VOICED SOUND MARK, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3076 30FC ; [.38F0.0020.0011.0001][.0000.0037.0002][.38D6.0020.0007.0002] # <HIRAGANA LETTER BU, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3075 3099 30FC ; [.38F0.0020.0011.0001][.0000.0037.0002][.38D6.0020.0007.0002] # <HIRAGANA LETTER HU, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30D7 30FC ; [.38F0.0020.0011.0002][.0000.0038.0002][.38D6.0020.0007.0002] # <KATAKANA LETTER PU, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30D5 309A 30FC ; [.38F0.0020.0011.0002][.0000.0038.0002][.38D6.0020.0007.0002] # <KATAKANA LETTER HU, COMBINING KATAKANA-HIRAGANA SEMI-VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF8C FF9F 30FC ; [.38F0.0020.0011.0002][.0000.0038.0002][.38D6.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER HU, HALFWIDTH KATAKANA SEMI-VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF8C FF9F FF70 ; [.38F0.0020.0011.0002][.0000.0038.0002][.38D6.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER HU, HALFWIDTH KATAKANA SEMI-VOICED SOUND MARK, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3077 30FC ; [.38F0.0020.0011.0001][.0000.0038.0002][.38D6.0020.0007.0002] # <HIRAGANA LETTER PU, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3075 309A 30FC ; [.38F0.0020.0011.0001][.0000.0038.0002][.38D6.0020.0007.0002] # <HIRAGANA LETTER HU, COMBINING KATAKANA-HIRAGANA SEMI-VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30E0 30FC ; [.38F5.0020.0011.0002][.38D6.0020.0007.0002] # <KATAKANA LETTER MU, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF91 30FC ; [.38F5.0020.0011.0002][.38D6.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER MU, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF91 FF70 ; [.38F5.0020.0011.0002][.38D6.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER MU, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3080 30FC ; [.38F5.0020.0011.0001][.38D6.0020.0007.0002] # <HIRAGANA LETTER MU, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30E5 30FC ; [.38F9.0020.000F.0002][.38D6.0020.0007.0002] # <KATAKANA LETTER SMALL YU, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF6D 30FC ; [.38F9.0020.000F.0002][.38D6.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER SMALL YU, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF6D FF70 ; [.38F9.0020.000F.0002][.38D6.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER SMALL YU, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3085 30FC ; [.38F9.0020.000F.0001][.38D6.0020.0007.0002] # <HIRAGANA LETTER SMALL YU, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30E6 30FC ; [.38F9.0020.0011.0002][.38D6.0020.0007.0002] # <KATAKANA LETTER YU, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF95 30FC ; [.38F9.0020.0011.0002][.38D6.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER YU, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF95 FF70 ; [.38F9.0020.0011.0002][.38D6.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER YU, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3086 30FC ; [.38F9.0020.0011.0001][.38D6.0020.0007.0002] # <HIRAGANA LETTER YU, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30EB 30FC ; [.38FE.0020.0011.0002][.38D6.0020.0007.0002] # <KATAKANA LETTER RU, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF99 30FC ; [.38FE.0020.0011.0002][.38D6.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER RU, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF99 FF70 ; [.38FE.0020.0011.0002][.38D6.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER RU, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+308B 30FC ; [.38FE.0020.0011.0001][.38D6.0020.0007.0002] # <HIRAGANA LETTER RU, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30F4 30FC ; [.38D6.0020.0011.0002][.0000.0037.0002][.38D6.0020.0007.0002] # <KATAKANA LETTER VU, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30A6 3099 30FC ; [.38D6.0020.0011.0002][.0000.0037.0002][.38D6.0020.0007.0002] # <KATAKANA LETTER U, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF73 FF9E 30FC ; [.38D6.0020.0011.0002][.0000.0037.0002][.38D6.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER U, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF73 FF9E FF70 ; [.38D6.0020.0011.0002][.0000.0037.0002][.38D6.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER U, HALFWIDTH KATAKANA VOICED SOUND MARK, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3094 30FC ; [.38D6.0020.0011.0001][.0000.0037.0002][.38D6.0020.0007.0002] # <HIRAGANA LETTER VU, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3046 3099 30FC ; [.38D6.0020.0011.0001][.0000.0037.0002][.38D6.0020.0007.0002] # <HIRAGANA LETTER U, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+31F0 30FC ; [.38DC.0020.000F][.38D6.0020.0007.0002] # <KATAKANA LETTER SMALL KU, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+31F2 30FC ; [.38E1.0020.000F][.38D6.0020.0007.0002] # <KATAKANA LETTER SMALL SU, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+31F4 30FC ; [.38EB.0020.000F][.38D6.0020.0007.0002] # <KATAKANA LETTER SMALL NU, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+31F7 30FC ; [.38F0.0020.000F][.38D6.0020.0007.0002] # <KATAKANA LETTER SMALL HU, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+31FA 30FC ; [.38F5.0020.000F][.38D6.0020.0007.0002] # <KATAKANA LETTER SMALL MU, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+31FD 30FC ; [.38FE.0020.000F][.38D6.0020.0007.0002] # <KATAKANA LETTER SMALL RU, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30A7 30FC ; [.38D8.0020.000F.0002][.38D8.0020.0007.0002] # <KATAKANA LETTER SMALL E, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF6A 30FC ; [.38D8.0020.000F.0002][.38D8.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER SMALL E, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF6A FF70 ; [.38D8.0020.000F.0002][.38D8.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER SMALL E, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3047 30FC ; [.38D8.0020.000F.0001][.38D8.0020.0007.0002] # <HIRAGANA LETTER SMALL E, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30A8 30FC ; [.38D8.0020.0011.0002][.38D8.0020.0007.0002] # <KATAKANA LETTER E, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF74 30FC ; [.38D8.0020.0011.0002][.38D8.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER E, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF74 FF70 ; [.38D8.0020.0011.0002][.38D8.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER E, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3048 30FC ; [.38D8.0020.0011.0001][.38D8.0020.0007.0002] # <HIRAGANA LETTER E, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30B1 30FC ; [.38DD.0020.0011.0002][.38D8.0020.0007.0002] # <KATAKANA LETTER KE, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF79 30FC ; [.38DD.0020.0011.0002][.38D8.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER KE, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF79 FF70 ; [.38DD.0020.0011.0002][.38D8.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER KE, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3051 30FC ; [.38DD.0020.0011.0001][.38D8.0020.0007.0002] # <HIRAGANA LETTER KE, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30B2 30FC ; [.38DD.0020.0011.0002][.0000.0037.0002][.38D8.0020.0007.0002] # <KATAKANA LETTER GE, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30B1 3099 30FC ; [.38DD.0020.0011.0002][.0000.0037.0002][.38D8.0020.0007.0002] # <KATAKANA LETTER KE, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF79 FF9E 30FC ; [.38DD.0020.0011.0002][.0000.0037.0002][.38D8.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER KE, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF79 FF9E FF70 ; [.38DD.0020.0011.0002][.0000.0037.0002][.38D8.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER KE, HALFWIDTH KATAKANA VOICED SOUND MARK, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3052 30FC ; [.38DD.0020.0011.0001][.0000.0037.0002][.38D8.0020.0007.0002] # <HIRAGANA LETTER GE, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3051 3099 30FC ; [.38DD.0020.0011.0001][.0000.0037.0002][.38D8.0020.0007.0002] # <HIRAGANA LETTER KE, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30BB 30FC ; [.38E2.0020.0011.0002][.38D8.0020.0007.0002] # <KATAKANA LETTER SE, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF7E 30FC ; [.38E2.0020.0011.0002][.38D8.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER SE, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF7E FF70 ; [.38E2.0020.0011.0002][.38D8.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER SE, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+305B 30FC ; [.38E2.0020.0011.0001][.38D8.0020.0007.0002] # <HIRAGANA LETTER SE, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30BC 30FC ; [.38E2.0020.0011.0002][.0000.0037.0002][.38D8.0020.0007.0002] # <KATAKANA LETTER ZE, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30BB 3099 30FC ; [.38E2.0020.0011.0002][.0000.0037.0002][.38D8.0020.0007.0002] # <KATAKANA LETTER SE, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF7E FF9E 30FC ; [.38E2.0020.0011.0002][.0000.0037.0002][.38D8.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER SE, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF7E FF9E FF70 ; [.38E2.0020.0011.0002][.0000.0037.0002][.38D8.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER SE, HALFWIDTH KATAKANA VOICED SOUND MARK, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+305C 30FC ; [.38E2.0020.0011.0001][.0000.0037.0002][.38D8.0020.0007.0002] # <HIRAGANA LETTER ZE, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+305B 3099 30FC ; [.38E2.0020.0011.0001][.0000.0037.0002][.38D8.0020.0007.0002] # <HIRAGANA LETTER SE, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30C6 30FC ; [.38E7.0020.0011.0002][.38D8.0020.0007.0002] # <KATAKANA LETTER TE, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF83 30FC ; [.38E7.0020.0011.0002][.38D8.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER TE, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF83 FF70 ; [.38E7.0020.0011.0002][.38D8.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER TE, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3066 30FC ; [.38E7.0020.0011.0001][.38D8.0020.0007.0002] # <HIRAGANA LETTER TE, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30C7 30FC ; [.38E7.0020.0011.0002][.0000.0037.0002][.38D8.0020.0007.0002] # <KATAKANA LETTER DE, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30C6 3099 30FC ; [.38E7.0020.0011.0002][.0000.0037.0002][.38D8.0020.0007.0002] # <KATAKANA LETTER TE, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF83 FF9E 30FC ; [.38E7.0020.0011.0002][.0000.0037.0002][.38D8.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER TE, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF83 FF9E FF70 ; [.38E7.0020.0011.0002][.0000.0037.0002][.38D8.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER TE, HALFWIDTH KATAKANA VOICED SOUND MARK, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3067 30FC ; [.38E7.0020.0011.0001][.0000.0037.0002][.38D8.0020.0007.0002] # <HIRAGANA LETTER DE, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3066 3099 30FC ; [.38E7.0020.0011.0001][.0000.0037.0002][.38D8.0020.0007.0002] # <HIRAGANA LETTER TE, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30CD 30FC ; [.38EC.0020.0011.0002][.38D8.0020.0007.0002] # <KATAKANA LETTER NE, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF88 30FC ; [.38EC.0020.0011.0002][.38D8.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER NE, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF88 FF70 ; [.38EC.0020.0011.0002][.38D8.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER NE, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+306D 30FC ; [.38EC.0020.0011.0001][.38D8.0020.0007.0002] # <HIRAGANA LETTER NE, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30D8 30FC ; [.38F1.0020.0011.0002][.38D8.0020.0007.0002] # <KATAKANA LETTER HE, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF8D 30FC ; [.38F1.0020.0011.0002][.38D8.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER HE, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF8D FF70 ; [.38F1.0020.0011.0002][.38D8.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER HE, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3078 30FC ; [.38F1.0020.0011.0001][.38D8.0020.0007.0002] # <HIRAGANA LETTER HE, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30D9 30FC ; [.38F1.0020.0011.0002][.0000.0037.0002][.38D8.0020.0007.0002] # <KATAKANA LETTER BE, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30D8 3099 30FC ; [.38F1.0020.0011.0002][.0000.0037.0002][.38D8.0020.0007.0002] # <KATAKANA LETTER HE, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF8D FF9E 30FC ; [.38F1.0020.0011.0002][.0000.0037.0002][.38D8.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER HE, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF8D FF9E FF70 ; [.38F1.0020.0011.0002][.0000.0037.0002][.38D8.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER HE, HALFWIDTH KATAKANA VOICED SOUND MARK, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3079 30FC ; [.38F1.0020.0011.0001][.0000.0037.0002][.38D8.0020.0007.0002] # <HIRAGANA LETTER BE, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3078 3099 30FC ; [.38F1.0020.0011.0001][.0000.0037.0002][.38D8.0020.0007.0002] # <HIRAGANA LETTER HE, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30DA 30FC ; [.38F1.0020.0011.0002][.0000.0038.0002][.38D8.0020.0007.0002] # <KATAKANA LETTER PE, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30D8 309A 30FC ; [.38F1.0020.0011.0002][.0000.0038.0002][.38D8.0020.0007.0002] # <KATAKANA LETTER HE, COMBINING KATAKANA-HIRAGANA SEMI-VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF8D FF9F 30FC ; [.38F1.0020.0011.0002][.0000.0038.0002][.38D8.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER HE, HALFWIDTH KATAKANA SEMI-VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF8D FF9F FF70 ; [.38F1.0020.0011.0002][.0000.0038.0002][.38D8.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER HE, HALFWIDTH KATAKANA SEMI-VOICED SOUND MARK, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+307A 30FC ; [.38F1.0020.0011.0001][.0000.0038.0002][.38D8.0020.0007.0002] # <HIRAGANA LETTER PE, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3078 309A 30FC ; [.38F1.0020.0011.0001][.0000.0038.0002][.38D8.0020.0007.0002] # <HIRAGANA LETTER HE, COMBINING KATAKANA-HIRAGANA SEMI-VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30E1 30FC ; [.38F6.0020.0011.0002][.38D8.0020.0007.0002] # <KATAKANA LETTER ME, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF92 30FC ; [.38F6.0020.0011.0002][.38D8.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER ME, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF92 FF70 ; [.38F6.0020.0011.0002][.38D8.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER ME, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3081 30FC ; [.38F6.0020.0011.0001][.38D8.0020.0007.0002] # <HIRAGANA LETTER ME, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30EC 30FC ; [.38FF.0020.0011.0002][.38D8.0020.0007.0002] # <KATAKANA LETTER RE, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF9A 30FC ; [.38FF.0020.0011.0002][.38D8.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER RE, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF9A FF70 ; [.38FF.0020.0011.0002][.38D8.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER RE, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+308C 30FC ; [.38FF.0020.0011.0001][.38D8.0020.0007.0002] # <HIRAGANA LETTER RE, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30F1 30FC ; [.3903.0020.0011.0002][.38D8.0020.0007.0002] # <KATAKANA LETTER WE, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3091 30FC ; [.3903.0020.0011.0001][.38D8.0020.0007.0002] # <HIRAGANA LETTER WE, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30F9 30FC ; [.3903.0020.0011.0002][.0000.0037.0002][.38D8.0020.0007.0002] # <KATAKANA LETTER VE, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30F1 3099 30FC ; [.3903.0020.0011.0002][.0000.0037.0002][.38D8.0020.0007.0002] # <KATAKANA LETTER WE, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30F6 30FC ; [.38DD.0020.000F.0002][.38D8.0020.0007.0002] # <KATAKANA LETTER SMALL KE, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3096 30FC ; [.38DD.0020.000F.0001][.38D8.0020.0007.0002] # <HIRAGANA LETTER SMALL KE, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+31F8 30FC ; [.38F1.0020.000F][.38D8.0020.0007.0002] # <KATAKANA LETTER SMALL HE, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+31FE 30FC ; [.38FF.0020.000F][.38D8.0020.0007.0002] # <KATAKANA LETTER SMALL RE, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30A9 30FC ; [.38D9.0020.000F.0002][.38D9.0020.0007.0002] # <KATAKANA LETTER SMALL O, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF6B 30FC ; [.38D9.0020.000F.0002][.38D9.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER SMALL O, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF6B FF70 ; [.38D9.0020.000F.0002][.38D9.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER SMALL O, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3049 30FC ; [.38D9.0020.000F.0001][.38D9.0020.0007.0002] # <HIRAGANA LETTER SMALL O, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30AA 30FC ; [.38D9.0020.0011.0002][.38D9.0020.0007.0002] # <KATAKANA LETTER O, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF75 30FC ; [.38D9.0020.0011.0002][.38D9.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER O, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF75 FF70 ; [.38D9.0020.0011.0002][.38D9.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER O, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+304A 30FC ; [.38D9.0020.0011.0001][.38D9.0020.0007.0002] # <HIRAGANA LETTER O, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30B3 30FC ; [.38DE.0020.0011.0002][.38D9.0020.0007.0002] # <KATAKANA LETTER KO, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF7A 30FC ; [.38DE.0020.0011.0002][.38D9.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER KO, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF7A FF70 ; [.38DE.0020.0011.0002][.38D9.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER KO, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3053 30FC ; [.38DE.0020.0011.0001][.38D9.0020.0007.0002] # <HIRAGANA LETTER KO, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30B4 30FC ; [.38DE.0020.0011.0002][.0000.0037.0002][.38D9.0020.0007.0002] # <KATAKANA LETTER GO, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30B3 3099 30FC ; [.38DE.0020.0011.0002][.0000.0037.0002][.38D9.0020.0007.0002] # <KATAKANA LETTER KO, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF7A FF9E 30FC ; [.38DE.0020.0011.0002][.0000.0037.0002][.38D9.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER KO, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF7A FF9E FF70 ; [.38DE.0020.0011.0002][.0000.0037.0002][.38D9.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER KO, HALFWIDTH KATAKANA VOICED SOUND MARK, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3054 30FC ; [.38DE.0020.0011.0001][.0000.0037.0002][.38D9.0020.0007.0002] # <HIRAGANA LETTER GO, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3053 3099 30FC ; [.38DE.0020.0011.0001][.0000.0037.0002][.38D9.0020.0007.0002] # <HIRAGANA LETTER KO, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30BD 30FC ; [.38E3.0020.0011.0002][.38D9.0020.0007.0002] # <KATAKANA LETTER SO, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF7F 30FC ; [.38E3.0020.0011.0002][.38D9.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER SO, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF7F FF70 ; [.38E3.0020.0011.0002][.38D9.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER SO, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+305D 30FC ; [.38E3.0020.0011.0001][.38D9.0020.0007.0002] # <HIRAGANA LETTER SO, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30BE 30FC ; [.38E3.0020.0011.0002][.0000.0037.0002][.38D9.0020.0007.0002] # <KATAKANA LETTER ZO, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30BD 3099 30FC ; [.38E3.0020.0011.0002][.0000.0037.0002][.38D9.0020.0007.0002] # <KATAKANA LETTER SO, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF7F FF9E 30FC ; [.38E3.0020.0011.0002][.0000.0037.0002][.38D9.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER SO, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF7F FF9E FF70 ; [.38E3.0020.0011.0002][.0000.0037.0002][.38D9.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER SO, HALFWIDTH KATAKANA VOICED SOUND MARK, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+305E 30FC ; [.38E3.0020.0011.0001][.0000.0037.0002][.38D9.0020.0007.0002] # <HIRAGANA LETTER ZO, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+305D 3099 30FC ; [.38E3.0020.0011.0001][.0000.0037.0002][.38D9.0020.0007.0002] # <HIRAGANA LETTER SO, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30C8 30FC ; [.38E8.0020.0011.0002][.38D9.0020.0007.0002] # <KATAKANA LETTER TO, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF84 30FC ; [.38E8.0020.0011.0002][.38D9.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER TO, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF84 FF70 ; [.38E8.0020.0011.0002][.38D9.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER TO, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3068 30FC ; [.38E8.0020.0011.0001][.38D9.0020.0007.0002] # <HIRAGANA LETTER TO, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30C9 30FC ; [.38E8.0020.0011.0002][.0000.0037.0002][.38D9.0020.0007.0002] # <KATAKANA LETTER DO, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30C8 3099 30FC ; [.38E8.0020.0011.0002][.0000.0037.0002][.38D9.0020.0007.0002] # <KATAKANA LETTER TO, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF84 FF9E 30FC ; [.38E8.0020.0011.0002][.0000.0037.0002][.38D9.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER TO, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF84 FF9E FF70 ; [.38E8.0020.0011.0002][.0000.0037.0002][.38D9.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER TO, HALFWIDTH KATAKANA VOICED SOUND MARK, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3069 30FC ; [.38E8.0020.0011.0001][.0000.0037.0002][.38D9.0020.0007.0002] # <HIRAGANA LETTER DO, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3068 3099 30FC ; [.38E8.0020.0011.0001][.0000.0037.0002][.38D9.0020.0007.0002] # <HIRAGANA LETTER TO, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30CE 30FC ; [.38ED.0020.0011.0002][.38D9.0020.0007.0002] # <KATAKANA LETTER NO, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF89 30FC ; [.38ED.0020.0011.0002][.38D9.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER NO, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF89 FF70 ; [.38ED.0020.0011.0002][.38D9.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER NO, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+306E 30FC ; [.38ED.0020.0011.0001][.38D9.0020.0007.0002] # <HIRAGANA LETTER NO, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30DB 30FC ; [.38F2.0020.0011.0002][.38D9.0020.0007.0002] # <KATAKANA LETTER HO, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF8E 30FC ; [.38F2.0020.0011.0002][.38D9.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER HO, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF8E FF70 ; [.38F2.0020.0011.0002][.38D9.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER HO, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+307B 30FC ; [.38F2.0020.0011.0001][.38D9.0020.0007.0002] # <HIRAGANA LETTER HO, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30DC 30FC ; [.38F2.0020.0011.0002][.0000.0037.0002][.38D9.0020.0007.0002] # <KATAKANA LETTER BO, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30DB 3099 30FC ; [.38F2.0020.0011.0002][.0000.0037.0002][.38D9.0020.0007.0002] # <KATAKANA LETTER HO, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF8E FF9E 30FC ; [.38F2.0020.0011.0002][.0000.0037.0002][.38D9.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER HO, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF8E FF9E FF70 ; [.38F2.0020.0011.0002][.0000.0037.0002][.38D9.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER HO, HALFWIDTH KATAKANA VOICED SOUND MARK, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+307C 30FC ; [.38F2.0020.0011.0001][.0000.0037.0002][.38D9.0020.0007.0002] # <HIRAGANA LETTER BO, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+307B 3099 30FC ; [.38F2.0020.0011.0001][.0000.0037.0002][.38D9.0020.0007.0002] # <HIRAGANA LETTER HO, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30DD 30FC ; [.38F2.0020.0011.0002][.0000.0038.0002][.38D9.0020.0007.0002] # <KATAKANA LETTER PO, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30DB 309A 30FC ; [.38F2.0020.0011.0002][.0000.0038.0002][.38D9.0020.0007.0002] # <KATAKANA LETTER HO, COMBINING KATAKANA-HIRAGANA SEMI-VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF8E FF9F 30FC ; [.38F2.0020.0011.0002][.0000.0038.0002][.38D9.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER HO, HALFWIDTH KATAKANA SEMI-VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF8E FF9F FF70 ; [.38F2.0020.0011.0002][.0000.0038.0002][.38D9.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER HO, HALFWIDTH KATAKANA SEMI-VOICED SOUND MARK, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+307D 30FC ; [.38F2.0020.0011.0001][.0000.0038.0002][.38D9.0020.0007.0002] # <HIRAGANA LETTER PO, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+307B 309A 30FC ; [.38F2.0020.0011.0001][.0000.0038.0002][.38D9.0020.0007.0002] # <HIRAGANA LETTER HO, COMBINING KATAKANA-HIRAGANA SEMI-VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30E2 30FC ; [.38F7.0020.0011.0002][.38D9.0020.0007.0002] # <KATAKANA LETTER MO, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF93 30FC ; [.38F7.0020.0011.0002][.38D9.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER MO, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF93 FF70 ; [.38F7.0020.0011.0002][.38D9.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER MO, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3082 30FC ; [.38F7.0020.0011.0001][.38D9.0020.0007.0002] # <HIRAGANA LETTER MO, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30E7 30FC ; [.38FB.0020.000F.0002][.38D9.0020.0007.0002] # <KATAKANA LETTER SMALL YO, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF6E 30FC ; [.38FB.0020.000F.0002][.38D9.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER SMALL YO, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF6E FF70 ; [.38FB.0020.000F.0002][.38D9.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER SMALL YO, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3087 30FC ; [.38FB.0020.000F.0001][.38D9.0020.0007.0002] # <HIRAGANA LETTER SMALL YO, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30E8 30FC ; [.38FB.0020.0011.0002][.38D9.0020.0007.0002] # <KATAKANA LETTER YO, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF96 30FC ; [.38FB.0020.0011.0002][.38D9.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER YO, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF96 FF70 ; [.38FB.0020.0011.0002][.38D9.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER YO, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3088 30FC ; [.38FB.0020.0011.0001][.38D9.0020.0007.0002] # <HIRAGANA LETTER YO, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30ED 30FC ; [.3900.0020.0011.0002][.38D9.0020.0007.0002] # <KATAKANA LETTER RO, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF9B 30FC ; [.3900.0020.0011.0002][.38D9.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER RO, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF9B FF70 ; [.3900.0020.0011.0002][.38D9.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER RO, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+308D 30FC ; [.3900.0020.0011.0001][.38D9.0020.0007.0002] # <HIRAGANA LETTER RO, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30F2 30FC ; [.3904.0020.0011.0002][.38D9.0020.0007.0002] # <KATAKANA LETTER WO, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF66 30FC ; [.3904.0020.0011.0002][.38D9.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER WO, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF66 FF70 ; [.3904.0020.0011.0002][.38D9.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER WO, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+3092 30FC ; [.3904.0020.0011.0001][.38D9.0020.0007.0002] # <HIRAGANA LETTER WO, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30FA 30FC ; [.3904.0020.0011.0002][.0000.0037.0002][.38D9.0020.0007.0002] # <KATAKANA LETTER VO, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30F2 3099 30FC ; [.3904.0020.0011.0002][.0000.0037.0002][.38D9.0020.0007.0002] # <KATAKANA LETTER WO, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF66 FF9E 30FC ; [.3904.0020.0011.0002][.0000.0037.0002][.38D9.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER WO, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+FF66 FF9E FF70 ; [.3904.0020.0011.0002][.0000.0037.0002][.38D9.0020.0007.0002] # <HALFWIDTH KATAKANA LETTER WO, HALFWIDTH KATAKANA VOICED SOUND MARK, HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+31F3 30FC ; [.38E8.0020.000F][.38D9.0020.0007.0002] # <KATAKANA LETTER SMALL TO, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+31F9 30FC ; [.38F2.0020.000F][.38D9.0020.0007.0002] # <KATAKANA LETTER SMALL HO, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+31FF 30FC ; [.3900.0020.000F][.38D9.0020.0007.0002] # <KATAKANA LETTER SMALL RO, KATAKANA-HIRAGANA PROLONGED SOUND MARK>
+30A1 30FD ; [.38D4.0020.000F.0002][.38D4.0020.0010.0002] # <KATAKANA LETTER SMALL A, KATAKANA ITERATION MARK>
+FF67 30FD ; [.38D4.0020.000F.0002][.38D4.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER SMALL A, KATAKANA ITERATION MARK>
+3041 309D ; [.38D4.0020.000F.0001][.38D4.0020.0010.0002] # <HIRAGANA LETTER SMALL A, HIRAGANA ITERATION MARK>
+30A2 30FD ; [.38D4.0020.0011.0002][.38D4.0020.0010.0002] # <KATAKANA LETTER A, KATAKANA ITERATION MARK>
+FF71 30FD ; [.38D4.0020.0011.0002][.38D4.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER A, KATAKANA ITERATION MARK>
+3042 309D ; [.38D4.0020.0011.0001][.38D4.0020.0010.0002] # <HIRAGANA LETTER A, HIRAGANA ITERATION MARK>
+30A3 30FD ; [.38D5.0020.000F.0002][.38D5.0020.0010.0002] # <KATAKANA LETTER SMALL I, KATAKANA ITERATION MARK>
+FF68 30FD ; [.38D5.0020.000F.0002][.38D5.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER SMALL I, KATAKANA ITERATION MARK>
+3043 309D ; [.38D5.0020.000F.0001][.38D5.0020.0010.0002] # <HIRAGANA LETTER SMALL I, HIRAGANA ITERATION MARK>
+30A4 30FD ; [.38D5.0020.0011.0002][.38D5.0020.0010.0002] # <KATAKANA LETTER I, KATAKANA ITERATION MARK>
+FF72 30FD ; [.38D5.0020.0011.0002][.38D5.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER I, KATAKANA ITERATION MARK>
+3044 309D ; [.38D5.0020.0011.0001][.38D5.0020.0010.0002] # <HIRAGANA LETTER I, HIRAGANA ITERATION MARK>
+30A5 30FD ; [.38D6.0020.000F.0002][.38D6.0020.0010.0002] # <KATAKANA LETTER SMALL U, KATAKANA ITERATION MARK>
+FF69 30FD ; [.38D6.0020.000F.0002][.38D6.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER SMALL U, KATAKANA ITERATION MARK>
+3045 309D ; [.38D6.0020.000F.0001][.38D6.0020.0010.0002] # <HIRAGANA LETTER SMALL U, HIRAGANA ITERATION MARK>
+30A5 30FE ; [.38D6.0020.000F.0002][.38D6.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER SMALL U, KATAKANA VOICED ITERATION MARK>
+FF69 30FE ; [.38D6.0020.000F.0002][.38D6.0020.0010.0002][.0000.0037.0002] # <HALFWIDTH KATAKANA LETTER SMALL U, KATAKANA VOICED ITERATION MARK>
+3045 309E ; [.38D6.0020.000F.0001][.38D6.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER SMALL U, HIRAGANA VOICED ITERATION MARK>
+30A6 30FD ; [.38D6.0020.0011.0002][.38D6.0020.0010.0002] # <KATAKANA LETTER U, KATAKANA ITERATION MARK>
+FF73 30FD ; [.38D6.0020.0011.0002][.38D6.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER U, KATAKANA ITERATION MARK>
+3046 309D ; [.38D6.0020.0011.0001][.38D6.0020.0010.0002] # <HIRAGANA LETTER U, HIRAGANA ITERATION MARK>
+30A6 30FE ; [.38D6.0020.0011.0002][.38D6.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER U, KATAKANA VOICED ITERATION MARK>
+FF73 30FE ; [.38D6.0020.0011.0002][.38D6.0020.0010.0002][.0000.0037.0002] # <HALFWIDTH KATAKANA LETTER U, KATAKANA VOICED ITERATION MARK>
+3046 309E ; [.38D6.0020.0011.0001][.38D6.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER U, HIRAGANA VOICED ITERATION MARK>
+30A7 30FD ; [.38D8.0020.000F.0002][.38D8.0020.0010.0002] # <KATAKANA LETTER SMALL E, KATAKANA ITERATION MARK>
+FF6A 30FD ; [.38D8.0020.000F.0002][.38D8.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER SMALL E, KATAKANA ITERATION MARK>
+3047 309D ; [.38D8.0020.000F.0001][.38D8.0020.0010.0002] # <HIRAGANA LETTER SMALL E, HIRAGANA ITERATION MARK>
+30A8 30FD ; [.38D8.0020.0011.0002][.38D8.0020.0010.0002] # <KATAKANA LETTER E, KATAKANA ITERATION MARK>
+FF74 30FD ; [.38D8.0020.0011.0002][.38D8.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER E, KATAKANA ITERATION MARK>
+3048 309D ; [.38D8.0020.0011.0001][.38D8.0020.0010.0002] # <HIRAGANA LETTER E, HIRAGANA ITERATION MARK>
+30A9 30FD ; [.38D9.0020.000F.0002][.38D9.0020.0010.0002] # <KATAKANA LETTER SMALL O, KATAKANA ITERATION MARK>
+FF6B 30FD ; [.38D9.0020.000F.0002][.38D9.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER SMALL O, KATAKANA ITERATION MARK>
+3049 309D ; [.38D9.0020.000F.0001][.38D9.0020.0010.0002] # <HIRAGANA LETTER SMALL O, HIRAGANA ITERATION MARK>
+30AA 30FD ; [.38D9.0020.0011.0002][.38D9.0020.0010.0002] # <KATAKANA LETTER O, KATAKANA ITERATION MARK>
+FF75 30FD ; [.38D9.0020.0011.0002][.38D9.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER O, KATAKANA ITERATION MARK>
+304A 309D ; [.38D9.0020.0011.0001][.38D9.0020.0010.0002] # <HIRAGANA LETTER O, HIRAGANA ITERATION MARK>
+30AB 30FD ; [.38DA.0020.0011.0002][.38DA.0020.0010.0002] # <KATAKANA LETTER KA, KATAKANA ITERATION MARK>
+FF76 30FD ; [.38DA.0020.0011.0002][.38DA.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER KA, KATAKANA ITERATION MARK>
+304B 309D ; [.38DA.0020.0011.0001][.38DA.0020.0010.0002] # <HIRAGANA LETTER KA, HIRAGANA ITERATION MARK>
+30AB 30FE ; [.38DA.0020.0011.0002][.38DA.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER KA, KATAKANA VOICED ITERATION MARK>
+FF76 30FE ; [.38DA.0020.0011.0002][.38DA.0020.0010.0002][.0000.0037.0002] # <HALFWIDTH KATAKANA LETTER KA, KATAKANA VOICED ITERATION MARK>
+304B 309E ; [.38DA.0020.0011.0001][.38DA.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER KA, HIRAGANA VOICED ITERATION MARK>
+30AC 30FD ; [.38DA.0020.0011.0002][.0000.0037.0002][.38DA.0020.0010.0002] # <KATAKANA LETTER GA, KATAKANA ITERATION MARK>
+30AB 3099 30FD ; [.38DA.0020.0011.0002][.0000.0037.0002][.38DA.0020.0010.0002] # <KATAKANA LETTER KA, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA ITERATION MARK>
+FF76 FF9E 30FD ; [.38DA.0020.0011.0002][.0000.0037.0002][.38DA.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER KA, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA ITERATION MARK>
+304C 309D ; [.38DA.0020.0011.0001][.0000.0037.0002][.38DA.0020.0010.0002] # <HIRAGANA LETTER GA, HIRAGANA ITERATION MARK>
+304B 3099 309D ; [.38DA.0020.0011.0001][.0000.0037.0002][.38DA.0020.0010.0002] # <HIRAGANA LETTER KA, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, HIRAGANA ITERATION MARK>
+30AC 30FE ; [.38DA.0020.0011.0002][.0000.0037.0002][.38DA.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER GA, KATAKANA VOICED ITERATION MARK>
+30AB 3099 30FE ; [.38DA.0020.0011.0002][.0000.0037.0002][.38DA.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER KA, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA VOICED ITERATION MARK>
+FF76 FF9E 30FE ; [.38DA.0020.0011.0002][.0000.0037.0002][.38DA.0020.0010.0002][.0000.0037.0002] # <HALFWIDTH KATAKANA LETTER KA, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA VOICED ITERATION MARK>
+304C 309E ; [.38DA.0020.0011.0001][.0000.0037.0002][.38DA.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER GA, HIRAGANA VOICED ITERATION MARK>
+304B 3099 309E ; [.38DA.0020.0011.0001][.0000.0037.0002][.38DA.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER KA, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, HIRAGANA VOICED ITERATION MARK>
+30AD 30FD ; [.38DB.0020.0011.0002][.38DB.0020.0010.0002] # <KATAKANA LETTER KI, KATAKANA ITERATION MARK>
+FF77 30FD ; [.38DB.0020.0011.0002][.38DB.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER KI, KATAKANA ITERATION MARK>
+304D 309D ; [.38DB.0020.0011.0001][.38DB.0020.0010.0002] # <HIRAGANA LETTER KI, HIRAGANA ITERATION MARK>
+30AD 30FE ; [.38DB.0020.0011.0002][.38DB.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER KI, KATAKANA VOICED ITERATION MARK>
+FF77 30FE ; [.38DB.0020.0011.0002][.38DB.0020.0010.0002][.0000.0037.0002] # <HALFWIDTH KATAKANA LETTER KI, KATAKANA VOICED ITERATION MARK>
+304D 309E ; [.38DB.0020.0011.0001][.38DB.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER KI, HIRAGANA VOICED ITERATION MARK>
+30AE 30FD ; [.38DB.0020.0011.0002][.0000.0037.0002][.38DB.0020.0010.0002] # <KATAKANA LETTER GI, KATAKANA ITERATION MARK>
+30AD 3099 30FD ; [.38DB.0020.0011.0002][.0000.0037.0002][.38DB.0020.0010.0002] # <KATAKANA LETTER KI, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA ITERATION MARK>
+FF77 FF9E 30FD ; [.38DB.0020.0011.0002][.0000.0037.0002][.38DB.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER KI, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA ITERATION MARK>
+304E 309D ; [.38DB.0020.0011.0001][.0000.0037.0002][.38DB.0020.0010.0002] # <HIRAGANA LETTER GI, HIRAGANA ITERATION MARK>
+304D 3099 309D ; [.38DB.0020.0011.0001][.0000.0037.0002][.38DB.0020.0010.0002] # <HIRAGANA LETTER KI, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, HIRAGANA ITERATION MARK>
+30AE 30FE ; [.38DB.0020.0011.0002][.0000.0037.0002][.38DB.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER GI, KATAKANA VOICED ITERATION MARK>
+30AD 3099 30FE ; [.38DB.0020.0011.0002][.0000.0037.0002][.38DB.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER KI, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA VOICED ITERATION MARK>
+FF77 FF9E 30FE ; [.38DB.0020.0011.0002][.0000.0037.0002][.38DB.0020.0010.0002][.0000.0037.0002] # <HALFWIDTH KATAKANA LETTER KI, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA VOICED ITERATION MARK>
+304E 309E ; [.38DB.0020.0011.0001][.0000.0037.0002][.38DB.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER GI, HIRAGANA VOICED ITERATION MARK>
+304D 3099 309E ; [.38DB.0020.0011.0001][.0000.0037.0002][.38DB.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER KI, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, HIRAGANA VOICED ITERATION MARK>
+30AF 30FD ; [.38DC.0020.0011.0002][.38DC.0020.0010.0002] # <KATAKANA LETTER KU, KATAKANA ITERATION MARK>
+FF78 30FD ; [.38DC.0020.0011.0002][.38DC.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER KU, KATAKANA ITERATION MARK>
+304F 309D ; [.38DC.0020.0011.0001][.38DC.0020.0010.0002] # <HIRAGANA LETTER KU, HIRAGANA ITERATION MARK>
+30AF 30FE ; [.38DC.0020.0011.0002][.38DC.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER KU, KATAKANA VOICED ITERATION MARK>
+FF78 30FE ; [.38DC.0020.0011.0002][.38DC.0020.0010.0002][.0000.0037.0002] # <HALFWIDTH KATAKANA LETTER KU, KATAKANA VOICED ITERATION MARK>
+304F 309E ; [.38DC.0020.0011.0001][.38DC.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER KU, HIRAGANA VOICED ITERATION MARK>
+30B0 30FD ; [.38DC.0020.0011.0002][.0000.0037.0002][.38DC.0020.0010.0002] # <KATAKANA LETTER GU, KATAKANA ITERATION MARK>
+30AF 3099 30FD ; [.38DC.0020.0011.0002][.0000.0037.0002][.38DC.0020.0010.0002] # <KATAKANA LETTER KU, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA ITERATION MARK>
+FF78 FF9E 30FD ; [.38DC.0020.0011.0002][.0000.0037.0002][.38DC.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER KU, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA ITERATION MARK>
+3050 309D ; [.38DC.0020.0011.0001][.0000.0037.0002][.38DC.0020.0010.0002] # <HIRAGANA LETTER GU, HIRAGANA ITERATION MARK>
+304F 3099 309D ; [.38DC.0020.0011.0001][.0000.0037.0002][.38DC.0020.0010.0002] # <HIRAGANA LETTER KU, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, HIRAGANA ITERATION MARK>
+30B0 30FE ; [.38DC.0020.0011.0002][.0000.0037.0002][.38DC.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER GU, KATAKANA VOICED ITERATION MARK>
+30AF 3099 30FE ; [.38DC.0020.0011.0002][.0000.0037.0002][.38DC.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER KU, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA VOICED ITERATION MARK>
+FF78 FF9E 30FE ; [.38DC.0020.0011.0002][.0000.0037.0002][.38DC.0020.0010.0002][.0000.0037.0002] # <HALFWIDTH KATAKANA LETTER KU, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA VOICED ITERATION MARK>
+3050 309E ; [.38DC.0020.0011.0001][.0000.0037.0002][.38DC.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER GU, HIRAGANA VOICED ITERATION MARK>
+304F 3099 309E ; [.38DC.0020.0011.0001][.0000.0037.0002][.38DC.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER KU, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, HIRAGANA VOICED ITERATION MARK>
+30B1 30FD ; [.38DD.0020.0011.0002][.38DD.0020.0010.0002] # <KATAKANA LETTER KE, KATAKANA ITERATION MARK>
+FF79 30FD ; [.38DD.0020.0011.0002][.38DD.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER KE, KATAKANA ITERATION MARK>
+3051 309D ; [.38DD.0020.0011.0001][.38DD.0020.0010.0002] # <HIRAGANA LETTER KE, HIRAGANA ITERATION MARK>
+30B1 30FE ; [.38DD.0020.0011.0002][.38DD.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER KE, KATAKANA VOICED ITERATION MARK>
+FF79 30FE ; [.38DD.0020.0011.0002][.38DD.0020.0010.0002][.0000.0037.0002] # <HALFWIDTH KATAKANA LETTER KE, KATAKANA VOICED ITERATION MARK>
+3051 309E ; [.38DD.0020.0011.0001][.38DD.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER KE, HIRAGANA VOICED ITERATION MARK>
+30B2 30FD ; [.38DD.0020.0011.0002][.0000.0037.0002][.38DD.0020.0010.0002] # <KATAKANA LETTER GE, KATAKANA ITERATION MARK>
+30B1 3099 30FD ; [.38DD.0020.0011.0002][.0000.0037.0002][.38DD.0020.0010.0002] # <KATAKANA LETTER KE, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA ITERATION MARK>
+FF79 FF9E 30FD ; [.38DD.0020.0011.0002][.0000.0037.0002][.38DD.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER KE, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA ITERATION MARK>
+3052 309D ; [.38DD.0020.0011.0001][.0000.0037.0002][.38DD.0020.0010.0002] # <HIRAGANA LETTER GE, HIRAGANA ITERATION MARK>
+3051 3099 309D ; [.38DD.0020.0011.0001][.0000.0037.0002][.38DD.0020.0010.0002] # <HIRAGANA LETTER KE, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, HIRAGANA ITERATION MARK>
+30B2 30FE ; [.38DD.0020.0011.0002][.0000.0037.0002][.38DD.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER GE, KATAKANA VOICED ITERATION MARK>
+30B1 3099 30FE ; [.38DD.0020.0011.0002][.0000.0037.0002][.38DD.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER KE, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA VOICED ITERATION MARK>
+FF79 FF9E 30FE ; [.38DD.0020.0011.0002][.0000.0037.0002][.38DD.0020.0010.0002][.0000.0037.0002] # <HALFWIDTH KATAKANA LETTER KE, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA VOICED ITERATION MARK>
+3052 309E ; [.38DD.0020.0011.0001][.0000.0037.0002][.38DD.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER GE, HIRAGANA VOICED ITERATION MARK>
+3051 3099 309E ; [.38DD.0020.0011.0001][.0000.0037.0002][.38DD.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER KE, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, HIRAGANA VOICED ITERATION MARK>
+30B3 30FD ; [.38DE.0020.0011.0002][.38DE.0020.0010.0002] # <KATAKANA LETTER KO, KATAKANA ITERATION MARK>
+FF7A 30FD ; [.38DE.0020.0011.0002][.38DE.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER KO, KATAKANA ITERATION MARK>
+3053 309D ; [.38DE.0020.0011.0001][.38DE.0020.0010.0002] # <HIRAGANA LETTER KO, HIRAGANA ITERATION MARK>
+30B3 30FE ; [.38DE.0020.0011.0002][.38DE.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER KO, KATAKANA VOICED ITERATION MARK>
+FF7A 30FE ; [.38DE.0020.0011.0002][.38DE.0020.0010.0002][.0000.0037.0002] # <HALFWIDTH KATAKANA LETTER KO, KATAKANA VOICED ITERATION MARK>
+3053 309E ; [.38DE.0020.0011.0001][.38DE.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER KO, HIRAGANA VOICED ITERATION MARK>
+30B4 30FD ; [.38DE.0020.0011.0002][.0000.0037.0002][.38DE.0020.0010.0002] # <KATAKANA LETTER GO, KATAKANA ITERATION MARK>
+30B3 3099 30FD ; [.38DE.0020.0011.0002][.0000.0037.0002][.38DE.0020.0010.0002] # <KATAKANA LETTER KO, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA ITERATION MARK>
+FF7A FF9E 30FD ; [.38DE.0020.0011.0002][.0000.0037.0002][.38DE.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER KO, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA ITERATION MARK>
+3054 309D ; [.38DE.0020.0011.0001][.0000.0037.0002][.38DE.0020.0010.0002] # <HIRAGANA LETTER GO, HIRAGANA ITERATION MARK>
+3053 3099 309D ; [.38DE.0020.0011.0001][.0000.0037.0002][.38DE.0020.0010.0002] # <HIRAGANA LETTER KO, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, HIRAGANA ITERATION MARK>
+30B4 30FE ; [.38DE.0020.0011.0002][.0000.0037.0002][.38DE.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER GO, KATAKANA VOICED ITERATION MARK>
+30B3 3099 30FE ; [.38DE.0020.0011.0002][.0000.0037.0002][.38DE.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER KO, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA VOICED ITERATION MARK>
+FF7A FF9E 30FE ; [.38DE.0020.0011.0002][.0000.0037.0002][.38DE.0020.0010.0002][.0000.0037.0002] # <HALFWIDTH KATAKANA LETTER KO, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA VOICED ITERATION MARK>
+3054 309E ; [.38DE.0020.0011.0001][.0000.0037.0002][.38DE.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER GO, HIRAGANA VOICED ITERATION MARK>
+3053 3099 309E ; [.38DE.0020.0011.0001][.0000.0037.0002][.38DE.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER KO, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, HIRAGANA VOICED ITERATION MARK>
+30B5 30FD ; [.38DF.0020.0011.0002][.38DF.0020.0010.0002] # <KATAKANA LETTER SA, KATAKANA ITERATION MARK>
+FF7B 30FD ; [.38DF.0020.0011.0002][.38DF.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER SA, KATAKANA ITERATION MARK>
+3055 309D ; [.38DF.0020.0011.0001][.38DF.0020.0010.0002] # <HIRAGANA LETTER SA, HIRAGANA ITERATION MARK>
+30B5 30FE ; [.38DF.0020.0011.0002][.38DF.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER SA, KATAKANA VOICED ITERATION MARK>
+FF7B 30FE ; [.38DF.0020.0011.0002][.38DF.0020.0010.0002][.0000.0037.0002] # <HALFWIDTH KATAKANA LETTER SA, KATAKANA VOICED ITERATION MARK>
+3055 309E ; [.38DF.0020.0011.0001][.38DF.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER SA, HIRAGANA VOICED ITERATION MARK>
+30B6 30FD ; [.38DF.0020.0011.0002][.0000.0037.0002][.38DF.0020.0010.0002] # <KATAKANA LETTER ZA, KATAKANA ITERATION MARK>
+30B5 3099 30FD ; [.38DF.0020.0011.0002][.0000.0037.0002][.38DF.0020.0010.0002] # <KATAKANA LETTER SA, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA ITERATION MARK>
+FF7B FF9E 30FD ; [.38DF.0020.0011.0002][.0000.0037.0002][.38DF.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER SA, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA ITERATION MARK>
+3056 309D ; [.38DF.0020.0011.0001][.0000.0037.0002][.38DF.0020.0010.0002] # <HIRAGANA LETTER ZA, HIRAGANA ITERATION MARK>
+3055 3099 309D ; [.38DF.0020.0011.0001][.0000.0037.0002][.38DF.0020.0010.0002] # <HIRAGANA LETTER SA, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, HIRAGANA ITERATION MARK>
+30B6 30FE ; [.38DF.0020.0011.0002][.0000.0037.0002][.38DF.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER ZA, KATAKANA VOICED ITERATION MARK>
+30B5 3099 30FE ; [.38DF.0020.0011.0002][.0000.0037.0002][.38DF.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER SA, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA VOICED ITERATION MARK>
+FF7B FF9E 30FE ; [.38DF.0020.0011.0002][.0000.0037.0002][.38DF.0020.0010.0002][.0000.0037.0002] # <HALFWIDTH KATAKANA LETTER SA, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA VOICED ITERATION MARK>
+3056 309E ; [.38DF.0020.0011.0001][.0000.0037.0002][.38DF.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER ZA, HIRAGANA VOICED ITERATION MARK>
+3055 3099 309E ; [.38DF.0020.0011.0001][.0000.0037.0002][.38DF.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER SA, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, HIRAGANA VOICED ITERATION MARK>
+30B7 30FD ; [.38E0.0020.0011.0002][.38E0.0020.0010.0002] # <KATAKANA LETTER SI, KATAKANA ITERATION MARK>
+FF7C 30FD ; [.38E0.0020.0011.0002][.38E0.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER SI, KATAKANA ITERATION MARK>
+3057 309D ; [.38E0.0020.0011.0001][.38E0.0020.0010.0002] # <HIRAGANA LETTER SI, HIRAGANA ITERATION MARK>
+30B7 30FE ; [.38E0.0020.0011.0002][.38E0.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER SI, KATAKANA VOICED ITERATION MARK>
+FF7C 30FE ; [.38E0.0020.0011.0002][.38E0.0020.0010.0002][.0000.0037.0002] # <HALFWIDTH KATAKANA LETTER SI, KATAKANA VOICED ITERATION MARK>
+3057 309E ; [.38E0.0020.0011.0001][.38E0.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER SI, HIRAGANA VOICED ITERATION MARK>
+30B8 30FD ; [.38E0.0020.0011.0002][.0000.0037.0002][.38E0.0020.0010.0002] # <KATAKANA LETTER ZI, KATAKANA ITERATION MARK>
+30B7 3099 30FD ; [.38E0.0020.0011.0002][.0000.0037.0002][.38E0.0020.0010.0002] # <KATAKANA LETTER SI, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA ITERATION MARK>
+FF7C FF9E 30FD ; [.38E0.0020.0011.0002][.0000.0037.0002][.38E0.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER SI, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA ITERATION MARK>
+3058 309D ; [.38E0.0020.0011.0001][.0000.0037.0002][.38E0.0020.0010.0002] # <HIRAGANA LETTER ZI, HIRAGANA ITERATION MARK>
+3057 3099 309D ; [.38E0.0020.0011.0001][.0000.0037.0002][.38E0.0020.0010.0002] # <HIRAGANA LETTER SI, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, HIRAGANA ITERATION MARK>
+30B8 30FE ; [.38E0.0020.0011.0002][.0000.0037.0002][.38E0.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER ZI, KATAKANA VOICED ITERATION MARK>
+30B7 3099 30FE ; [.38E0.0020.0011.0002][.0000.0037.0002][.38E0.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER SI, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA VOICED ITERATION MARK>
+FF7C FF9E 30FE ; [.38E0.0020.0011.0002][.0000.0037.0002][.38E0.0020.0010.0002][.0000.0037.0002] # <HALFWIDTH KATAKANA LETTER SI, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA VOICED ITERATION MARK>
+3058 309E ; [.38E0.0020.0011.0001][.0000.0037.0002][.38E0.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER ZI, HIRAGANA VOICED ITERATION MARK>
+3057 3099 309E ; [.38E0.0020.0011.0001][.0000.0037.0002][.38E0.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER SI, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, HIRAGANA VOICED ITERATION MARK>
+30B9 30FD ; [.38E1.0020.0011.0002][.38E1.0020.0010.0002] # <KATAKANA LETTER SU, KATAKANA ITERATION MARK>
+FF7D 30FD ; [.38E1.0020.0011.0002][.38E1.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER SU, KATAKANA ITERATION MARK>
+3059 309D ; [.38E1.0020.0011.0001][.38E1.0020.0010.0002] # <HIRAGANA LETTER SU, HIRAGANA ITERATION MARK>
+30B9 30FE ; [.38E1.0020.0011.0002][.38E1.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER SU, KATAKANA VOICED ITERATION MARK>
+FF7D 30FE ; [.38E1.0020.0011.0002][.38E1.0020.0010.0002][.0000.0037.0002] # <HALFWIDTH KATAKANA LETTER SU, KATAKANA VOICED ITERATION MARK>
+3059 309E ; [.38E1.0020.0011.0001][.38E1.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER SU, HIRAGANA VOICED ITERATION MARK>
+30BA 30FD ; [.38E1.0020.0011.0002][.0000.0037.0002][.38E1.0020.0010.0002] # <KATAKANA LETTER ZU, KATAKANA ITERATION MARK>
+30B9 3099 30FD ; [.38E1.0020.0011.0002][.0000.0037.0002][.38E1.0020.0010.0002] # <KATAKANA LETTER SU, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA ITERATION MARK>
+FF7D FF9E 30FD ; [.38E1.0020.0011.0002][.0000.0037.0002][.38E1.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER SU, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA ITERATION MARK>
+305A 309D ; [.38E1.0020.0011.0001][.0000.0037.0002][.38E1.0020.0010.0002] # <HIRAGANA LETTER ZU, HIRAGANA ITERATION MARK>
+3059 3099 309D ; [.38E1.0020.0011.0001][.0000.0037.0002][.38E1.0020.0010.0002] # <HIRAGANA LETTER SU, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, HIRAGANA ITERATION MARK>
+30BA 30FE ; [.38E1.0020.0011.0002][.0000.0037.0002][.38E1.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER ZU, KATAKANA VOICED ITERATION MARK>
+30B9 3099 30FE ; [.38E1.0020.0011.0002][.0000.0037.0002][.38E1.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER SU, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA VOICED ITERATION MARK>
+FF7D FF9E 30FE ; [.38E1.0020.0011.0002][.0000.0037.0002][.38E1.0020.0010.0002][.0000.0037.0002] # <HALFWIDTH KATAKANA LETTER SU, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA VOICED ITERATION MARK>
+305A 309E ; [.38E1.0020.0011.0001][.0000.0037.0002][.38E1.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER ZU, HIRAGANA VOICED ITERATION MARK>
+3059 3099 309E ; [.38E1.0020.0011.0001][.0000.0037.0002][.38E1.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER SU, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, HIRAGANA VOICED ITERATION MARK>
+30BB 30FD ; [.38E2.0020.0011.0002][.38E2.0020.0010.0002] # <KATAKANA LETTER SE, KATAKANA ITERATION MARK>
+FF7E 30FD ; [.38E2.0020.0011.0002][.38E2.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER SE, KATAKANA ITERATION MARK>
+305B 309D ; [.38E2.0020.0011.0001][.38E2.0020.0010.0002] # <HIRAGANA LETTER SE, HIRAGANA ITERATION MARK>
+30BB 30FE ; [.38E2.0020.0011.0002][.38E2.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER SE, KATAKANA VOICED ITERATION MARK>
+FF7E 30FE ; [.38E2.0020.0011.0002][.38E2.0020.0010.0002][.0000.0037.0002] # <HALFWIDTH KATAKANA LETTER SE, KATAKANA VOICED ITERATION MARK>
+305B 309E ; [.38E2.0020.0011.0001][.38E2.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER SE, HIRAGANA VOICED ITERATION MARK>
+30BC 30FD ; [.38E2.0020.0011.0002][.0000.0037.0002][.38E2.0020.0010.0002] # <KATAKANA LETTER ZE, KATAKANA ITERATION MARK>
+30BB 3099 30FD ; [.38E2.0020.0011.0002][.0000.0037.0002][.38E2.0020.0010.0002] # <KATAKANA LETTER SE, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA ITERATION MARK>
+FF7E FF9E 30FD ; [.38E2.0020.0011.0002][.0000.0037.0002][.38E2.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER SE, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA ITERATION MARK>
+305C 309D ; [.38E2.0020.0011.0001][.0000.0037.0002][.38E2.0020.0010.0002] # <HIRAGANA LETTER ZE, HIRAGANA ITERATION MARK>
+305B 3099 309D ; [.38E2.0020.0011.0001][.0000.0037.0002][.38E2.0020.0010.0002] # <HIRAGANA LETTER SE, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, HIRAGANA ITERATION MARK>
+30BC 30FE ; [.38E2.0020.0011.0002][.0000.0037.0002][.38E2.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER ZE, KATAKANA VOICED ITERATION MARK>
+30BB 3099 30FE ; [.38E2.0020.0011.0002][.0000.0037.0002][.38E2.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER SE, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA VOICED ITERATION MARK>
+FF7E FF9E 30FE ; [.38E2.0020.0011.0002][.0000.0037.0002][.38E2.0020.0010.0002][.0000.0037.0002] # <HALFWIDTH KATAKANA LETTER SE, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA VOICED ITERATION MARK>
+305C 309E ; [.38E2.0020.0011.0001][.0000.0037.0002][.38E2.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER ZE, HIRAGANA VOICED ITERATION MARK>
+305B 3099 309E ; [.38E2.0020.0011.0001][.0000.0037.0002][.38E2.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER SE, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, HIRAGANA VOICED ITERATION MARK>
+30BD 30FD ; [.38E3.0020.0011.0002][.38E3.0020.0010.0002] # <KATAKANA LETTER SO, KATAKANA ITERATION MARK>
+FF7F 30FD ; [.38E3.0020.0011.0002][.38E3.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER SO, KATAKANA ITERATION MARK>
+305D 309D ; [.38E3.0020.0011.0001][.38E3.0020.0010.0002] # <HIRAGANA LETTER SO, HIRAGANA ITERATION MARK>
+30BD 30FE ; [.38E3.0020.0011.0002][.38E3.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER SO, KATAKANA VOICED ITERATION MARK>
+FF7F 30FE ; [.38E3.0020.0011.0002][.38E3.0020.0010.0002][.0000.0037.0002] # <HALFWIDTH KATAKANA LETTER SO, KATAKANA VOICED ITERATION MARK>
+305D 309E ; [.38E3.0020.0011.0001][.38E3.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER SO, HIRAGANA VOICED ITERATION MARK>
+30BE 30FD ; [.38E3.0020.0011.0002][.0000.0037.0002][.38E3.0020.0010.0002] # <KATAKANA LETTER ZO, KATAKANA ITERATION MARK>
+30BD 3099 30FD ; [.38E3.0020.0011.0002][.0000.0037.0002][.38E3.0020.0010.0002] # <KATAKANA LETTER SO, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA ITERATION MARK>
+FF7F FF9E 30FD ; [.38E3.0020.0011.0002][.0000.0037.0002][.38E3.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER SO, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA ITERATION MARK>
+305E 309D ; [.38E3.0020.0011.0001][.0000.0037.0002][.38E3.0020.0010.0002] # <HIRAGANA LETTER ZO, HIRAGANA ITERATION MARK>
+305D 3099 309D ; [.38E3.0020.0011.0001][.0000.0037.0002][.38E3.0020.0010.0002] # <HIRAGANA LETTER SO, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, HIRAGANA ITERATION MARK>
+30BE 30FE ; [.38E3.0020.0011.0002][.0000.0037.0002][.38E3.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER ZO, KATAKANA VOICED ITERATION MARK>
+30BD 3099 30FE ; [.38E3.0020.0011.0002][.0000.0037.0002][.38E3.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER SO, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA VOICED ITERATION MARK>
+FF7F FF9E 30FE ; [.38E3.0020.0011.0002][.0000.0037.0002][.38E3.0020.0010.0002][.0000.0037.0002] # <HALFWIDTH KATAKANA LETTER SO, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA VOICED ITERATION MARK>
+305E 309E ; [.38E3.0020.0011.0001][.0000.0037.0002][.38E3.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER ZO, HIRAGANA VOICED ITERATION MARK>
+305D 3099 309E ; [.38E3.0020.0011.0001][.0000.0037.0002][.38E3.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER SO, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, HIRAGANA VOICED ITERATION MARK>
+30BF 30FD ; [.38E4.0020.0011.0002][.38E4.0020.0010.0002] # <KATAKANA LETTER TA, KATAKANA ITERATION MARK>
+FF80 30FD ; [.38E4.0020.0011.0002][.38E4.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER TA, KATAKANA ITERATION MARK>
+305F 309D ; [.38E4.0020.0011.0001][.38E4.0020.0010.0002] # <HIRAGANA LETTER TA, HIRAGANA ITERATION MARK>
+30BF 30FE ; [.38E4.0020.0011.0002][.38E4.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER TA, KATAKANA VOICED ITERATION MARK>
+FF80 30FE ; [.38E4.0020.0011.0002][.38E4.0020.0010.0002][.0000.0037.0002] # <HALFWIDTH KATAKANA LETTER TA, KATAKANA VOICED ITERATION MARK>
+305F 309E ; [.38E4.0020.0011.0001][.38E4.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER TA, HIRAGANA VOICED ITERATION MARK>
+30C0 30FD ; [.38E4.0020.0011.0002][.0000.0037.0002][.38E4.0020.0010.0002] # <KATAKANA LETTER DA, KATAKANA ITERATION MARK>
+30BF 3099 30FD ; [.38E4.0020.0011.0002][.0000.0037.0002][.38E4.0020.0010.0002] # <KATAKANA LETTER TA, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA ITERATION MARK>
+FF80 FF9E 30FD ; [.38E4.0020.0011.0002][.0000.0037.0002][.38E4.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER TA, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA ITERATION MARK>
+3060 309D ; [.38E4.0020.0011.0001][.0000.0037.0002][.38E4.0020.0010.0002] # <HIRAGANA LETTER DA, HIRAGANA ITERATION MARK>
+305F 3099 309D ; [.38E4.0020.0011.0001][.0000.0037.0002][.38E4.0020.0010.0002] # <HIRAGANA LETTER TA, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, HIRAGANA ITERATION MARK>
+30C0 30FE ; [.38E4.0020.0011.0002][.0000.0037.0002][.38E4.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER DA, KATAKANA VOICED ITERATION MARK>
+30BF 3099 30FE ; [.38E4.0020.0011.0002][.0000.0037.0002][.38E4.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER TA, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA VOICED ITERATION MARK>
+FF80 FF9E 30FE ; [.38E4.0020.0011.0002][.0000.0037.0002][.38E4.0020.0010.0002][.0000.0037.0002] # <HALFWIDTH KATAKANA LETTER TA, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA VOICED ITERATION MARK>
+3060 309E ; [.38E4.0020.0011.0001][.0000.0037.0002][.38E4.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER DA, HIRAGANA VOICED ITERATION MARK>
+305F 3099 309E ; [.38E4.0020.0011.0001][.0000.0037.0002][.38E4.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER TA, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, HIRAGANA VOICED ITERATION MARK>
+30C1 30FD ; [.38E5.0020.0011.0002][.38E5.0020.0010.0002] # <KATAKANA LETTER TI, KATAKANA ITERATION MARK>
+FF81 30FD ; [.38E5.0020.0011.0002][.38E5.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER TI, KATAKANA ITERATION MARK>
+3061 309D ; [.38E5.0020.0011.0001][.38E5.0020.0010.0002] # <HIRAGANA LETTER TI, HIRAGANA ITERATION MARK>
+30C1 30FE ; [.38E5.0020.0011.0002][.38E5.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER TI, KATAKANA VOICED ITERATION MARK>
+FF81 30FE ; [.38E5.0020.0011.0002][.38E5.0020.0010.0002][.0000.0037.0002] # <HALFWIDTH KATAKANA LETTER TI, KATAKANA VOICED ITERATION MARK>
+3061 309E ; [.38E5.0020.0011.0001][.38E5.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER TI, HIRAGANA VOICED ITERATION MARK>
+30C2 30FD ; [.38E5.0020.0011.0002][.0000.0037.0002][.38E5.0020.0010.0002] # <KATAKANA LETTER DI, KATAKANA ITERATION MARK>
+30C1 3099 30FD ; [.38E5.0020.0011.0002][.0000.0037.0002][.38E5.0020.0010.0002] # <KATAKANA LETTER TI, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA ITERATION MARK>
+FF81 FF9E 30FD ; [.38E5.0020.0011.0002][.0000.0037.0002][.38E5.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER TI, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA ITERATION MARK>
+3062 309D ; [.38E5.0020.0011.0001][.0000.0037.0002][.38E5.0020.0010.0002] # <HIRAGANA LETTER DI, HIRAGANA ITERATION MARK>
+3061 3099 309D ; [.38E5.0020.0011.0001][.0000.0037.0002][.38E5.0020.0010.0002] # <HIRAGANA LETTER TI, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, HIRAGANA ITERATION MARK>
+30C2 30FE ; [.38E5.0020.0011.0002][.0000.0037.0002][.38E5.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER DI, KATAKANA VOICED ITERATION MARK>
+30C1 3099 30FE ; [.38E5.0020.0011.0002][.0000.0037.0002][.38E5.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER TI, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA VOICED ITERATION MARK>
+FF81 FF9E 30FE ; [.38E5.0020.0011.0002][.0000.0037.0002][.38E5.0020.0010.0002][.0000.0037.0002] # <HALFWIDTH KATAKANA LETTER TI, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA VOICED ITERATION MARK>
+3062 309E ; [.38E5.0020.0011.0001][.0000.0037.0002][.38E5.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER DI, HIRAGANA VOICED ITERATION MARK>
+3061 3099 309E ; [.38E5.0020.0011.0001][.0000.0037.0002][.38E5.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER TI, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, HIRAGANA VOICED ITERATION MARK>
+30C3 30FD ; [.38E6.0020.000F.0002][.38E6.0020.0010.0002] # <KATAKANA LETTER SMALL TU, KATAKANA ITERATION MARK>
+FF6F 30FD ; [.38E6.0020.000F.0002][.38E6.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER SMALL TU, KATAKANA ITERATION MARK>
+3063 309D ; [.38E6.0020.000F.0001][.38E6.0020.0010.0002] # <HIRAGANA LETTER SMALL TU, HIRAGANA ITERATION MARK>
+30C3 30FE ; [.38E6.0020.000F.0002][.38E6.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER SMALL TU, KATAKANA VOICED ITERATION MARK>
+FF6F 30FE ; [.38E6.0020.000F.0002][.38E6.0020.0010.0002][.0000.0037.0002] # <HALFWIDTH KATAKANA LETTER SMALL TU, KATAKANA VOICED ITERATION MARK>
+3063 309E ; [.38E6.0020.000F.0001][.38E6.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER SMALL TU, HIRAGANA VOICED ITERATION MARK>
+30C4 30FD ; [.38E6.0020.0011.0002][.38E6.0020.0010.0002] # <KATAKANA LETTER TU, KATAKANA ITERATION MARK>
+FF82 30FD ; [.38E6.0020.0011.0002][.38E6.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER TU, KATAKANA ITERATION MARK>
+3064 309D ; [.38E6.0020.0011.0001][.38E6.0020.0010.0002] # <HIRAGANA LETTER TU, HIRAGANA ITERATION MARK>
+30C4 30FE ; [.38E6.0020.0011.0002][.38E6.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER TU, KATAKANA VOICED ITERATION MARK>
+FF82 30FE ; [.38E6.0020.0011.0002][.38E6.0020.0010.0002][.0000.0037.0002] # <HALFWIDTH KATAKANA LETTER TU, KATAKANA VOICED ITERATION MARK>
+3064 309E ; [.38E6.0020.0011.0001][.38E6.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER TU, HIRAGANA VOICED ITERATION MARK>
+30C5 30FD ; [.38E6.0020.0011.0002][.0000.0037.0002][.38E6.0020.0010.0002] # <KATAKANA LETTER DU, KATAKANA ITERATION MARK>
+30C4 3099 30FD ; [.38E6.0020.0011.0002][.0000.0037.0002][.38E6.0020.0010.0002] # <KATAKANA LETTER TU, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA ITERATION MARK>
+FF82 FF9E 30FD ; [.38E6.0020.0011.0002][.0000.0037.0002][.38E6.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER TU, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA ITERATION MARK>
+3065 309D ; [.38E6.0020.0011.0001][.0000.0037.0002][.38E6.0020.0010.0002] # <HIRAGANA LETTER DU, HIRAGANA ITERATION MARK>
+3064 3099 309D ; [.38E6.0020.0011.0001][.0000.0037.0002][.38E6.0020.0010.0002] # <HIRAGANA LETTER TU, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, HIRAGANA ITERATION MARK>
+30C5 30FE ; [.38E6.0020.0011.0002][.0000.0037.0002][.38E6.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER DU, KATAKANA VOICED ITERATION MARK>
+30C4 3099 30FE ; [.38E6.0020.0011.0002][.0000.0037.0002][.38E6.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER TU, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA VOICED ITERATION MARK>
+FF82 FF9E 30FE ; [.38E6.0020.0011.0002][.0000.0037.0002][.38E6.0020.0010.0002][.0000.0037.0002] # <HALFWIDTH KATAKANA LETTER TU, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA VOICED ITERATION MARK>
+3065 309E ; [.38E6.0020.0011.0001][.0000.0037.0002][.38E6.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER DU, HIRAGANA VOICED ITERATION MARK>
+3064 3099 309E ; [.38E6.0020.0011.0001][.0000.0037.0002][.38E6.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER TU, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, HIRAGANA VOICED ITERATION MARK>
+30C6 30FD ; [.38E7.0020.0011.0002][.38E7.0020.0010.0002] # <KATAKANA LETTER TE, KATAKANA ITERATION MARK>
+FF83 30FD ; [.38E7.0020.0011.0002][.38E7.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER TE, KATAKANA ITERATION MARK>
+3066 309D ; [.38E7.0020.0011.0001][.38E7.0020.0010.0002] # <HIRAGANA LETTER TE, HIRAGANA ITERATION MARK>
+30C6 30FE ; [.38E7.0020.0011.0002][.38E7.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER TE, KATAKANA VOICED ITERATION MARK>
+FF83 30FE ; [.38E7.0020.0011.0002][.38E7.0020.0010.0002][.0000.0037.0002] # <HALFWIDTH KATAKANA LETTER TE, KATAKANA VOICED ITERATION MARK>
+3066 309E ; [.38E7.0020.0011.0001][.38E7.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER TE, HIRAGANA VOICED ITERATION MARK>
+30C7 30FD ; [.38E7.0020.0011.0002][.0000.0037.0002][.38E7.0020.0010.0002] # <KATAKANA LETTER DE, KATAKANA ITERATION MARK>
+30C6 3099 30FD ; [.38E7.0020.0011.0002][.0000.0037.0002][.38E7.0020.0010.0002] # <KATAKANA LETTER TE, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA ITERATION MARK>
+FF83 FF9E 30FD ; [.38E7.0020.0011.0002][.0000.0037.0002][.38E7.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER TE, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA ITERATION MARK>
+3067 309D ; [.38E7.0020.0011.0001][.0000.0037.0002][.38E7.0020.0010.0002] # <HIRAGANA LETTER DE, HIRAGANA ITERATION MARK>
+3066 3099 309D ; [.38E7.0020.0011.0001][.0000.0037.0002][.38E7.0020.0010.0002] # <HIRAGANA LETTER TE, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, HIRAGANA ITERATION MARK>
+30C7 30FE ; [.38E7.0020.0011.0002][.0000.0037.0002][.38E7.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER DE, KATAKANA VOICED ITERATION MARK>
+30C6 3099 30FE ; [.38E7.0020.0011.0002][.0000.0037.0002][.38E7.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER TE, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA VOICED ITERATION MARK>
+FF83 FF9E 30FE ; [.38E7.0020.0011.0002][.0000.0037.0002][.38E7.0020.0010.0002][.0000.0037.0002] # <HALFWIDTH KATAKANA LETTER TE, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA VOICED ITERATION MARK>
+3067 309E ; [.38E7.0020.0011.0001][.0000.0037.0002][.38E7.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER DE, HIRAGANA VOICED ITERATION MARK>
+3066 3099 309E ; [.38E7.0020.0011.0001][.0000.0037.0002][.38E7.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER TE, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, HIRAGANA VOICED ITERATION MARK>
+30C8 30FD ; [.38E8.0020.0011.0002][.38E8.0020.0010.0002] # <KATAKANA LETTER TO, KATAKANA ITERATION MARK>
+FF84 30FD ; [.38E8.0020.0011.0002][.38E8.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER TO, KATAKANA ITERATION MARK>
+3068 309D ; [.38E8.0020.0011.0001][.38E8.0020.0010.0002] # <HIRAGANA LETTER TO, HIRAGANA ITERATION MARK>
+30C8 30FE ; [.38E8.0020.0011.0002][.38E8.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER TO, KATAKANA VOICED ITERATION MARK>
+FF84 30FE ; [.38E8.0020.0011.0002][.38E8.0020.0010.0002][.0000.0037.0002] # <HALFWIDTH KATAKANA LETTER TO, KATAKANA VOICED ITERATION MARK>
+3068 309E ; [.38E8.0020.0011.0001][.38E8.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER TO, HIRAGANA VOICED ITERATION MARK>
+30C9 30FD ; [.38E8.0020.0011.0002][.0000.0037.0002][.38E8.0020.0010.0002] # <KATAKANA LETTER DO, KATAKANA ITERATION MARK>
+30C8 3099 30FD ; [.38E8.0020.0011.0002][.0000.0037.0002][.38E8.0020.0010.0002] # <KATAKANA LETTER TO, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA ITERATION MARK>
+FF84 FF9E 30FD ; [.38E8.0020.0011.0002][.0000.0037.0002][.38E8.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER TO, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA ITERATION MARK>
+3069 309D ; [.38E8.0020.0011.0001][.0000.0037.0002][.38E8.0020.0010.0002] # <HIRAGANA LETTER DO, HIRAGANA ITERATION MARK>
+3068 3099 309D ; [.38E8.0020.0011.0001][.0000.0037.0002][.38E8.0020.0010.0002] # <HIRAGANA LETTER TO, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, HIRAGANA ITERATION MARK>
+30C9 30FE ; [.38E8.0020.0011.0002][.0000.0037.0002][.38E8.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER DO, KATAKANA VOICED ITERATION MARK>
+30C8 3099 30FE ; [.38E8.0020.0011.0002][.0000.0037.0002][.38E8.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER TO, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA VOICED ITERATION MARK>
+FF84 FF9E 30FE ; [.38E8.0020.0011.0002][.0000.0037.0002][.38E8.0020.0010.0002][.0000.0037.0002] # <HALFWIDTH KATAKANA LETTER TO, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA VOICED ITERATION MARK>
+3069 309E ; [.38E8.0020.0011.0001][.0000.0037.0002][.38E8.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER DO, HIRAGANA VOICED ITERATION MARK>
+3068 3099 309E ; [.38E8.0020.0011.0001][.0000.0037.0002][.38E8.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER TO, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, HIRAGANA VOICED ITERATION MARK>
+30CA 30FD ; [.38E9.0020.0011.0002][.38E9.0020.0010.0002] # <KATAKANA LETTER NA, KATAKANA ITERATION MARK>
+FF85 30FD ; [.38E9.0020.0011.0002][.38E9.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER NA, KATAKANA ITERATION MARK>
+306A 309D ; [.38E9.0020.0011.0001][.38E9.0020.0010.0002] # <HIRAGANA LETTER NA, HIRAGANA ITERATION MARK>
+30CB 30FD ; [.38EA.0020.0011.0002][.38EA.0020.0010.0002] # <KATAKANA LETTER NI, KATAKANA ITERATION MARK>
+FF86 30FD ; [.38EA.0020.0011.0002][.38EA.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER NI, KATAKANA ITERATION MARK>
+306B 309D ; [.38EA.0020.0011.0001][.38EA.0020.0010.0002] # <HIRAGANA LETTER NI, HIRAGANA ITERATION MARK>
+30CC 30FD ; [.38EB.0020.0011.0002][.38EB.0020.0010.0002] # <KATAKANA LETTER NU, KATAKANA ITERATION MARK>
+FF87 30FD ; [.38EB.0020.0011.0002][.38EB.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER NU, KATAKANA ITERATION MARK>
+306C 309D ; [.38EB.0020.0011.0001][.38EB.0020.0010.0002] # <HIRAGANA LETTER NU, HIRAGANA ITERATION MARK>
+30CD 30FD ; [.38EC.0020.0011.0002][.38EC.0020.0010.0002] # <KATAKANA LETTER NE, KATAKANA ITERATION MARK>
+FF88 30FD ; [.38EC.0020.0011.0002][.38EC.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER NE, KATAKANA ITERATION MARK>
+306D 309D ; [.38EC.0020.0011.0001][.38EC.0020.0010.0002] # <HIRAGANA LETTER NE, HIRAGANA ITERATION MARK>
+30CE 30FD ; [.38ED.0020.0011.0002][.38ED.0020.0010.0002] # <KATAKANA LETTER NO, KATAKANA ITERATION MARK>
+FF89 30FD ; [.38ED.0020.0011.0002][.38ED.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER NO, KATAKANA ITERATION MARK>
+306E 309D ; [.38ED.0020.0011.0001][.38ED.0020.0010.0002] # <HIRAGANA LETTER NO, HIRAGANA ITERATION MARK>
+30CF 30FD ; [.38EE.0020.0011.0002][.38EE.0020.0010.0002] # <KATAKANA LETTER HA, KATAKANA ITERATION MARK>
+FF8A 30FD ; [.38EE.0020.0011.0002][.38EE.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER HA, KATAKANA ITERATION MARK>
+306F 309D ; [.38EE.0020.0011.0001][.38EE.0020.0010.0002] # <HIRAGANA LETTER HA, HIRAGANA ITERATION MARK>
+30CF 30FE ; [.38EE.0020.0011.0002][.38EE.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER HA, KATAKANA VOICED ITERATION MARK>
+FF8A 30FE ; [.38EE.0020.0011.0002][.38EE.0020.0010.0002][.0000.0037.0002] # <HALFWIDTH KATAKANA LETTER HA, KATAKANA VOICED ITERATION MARK>
+306F 309E ; [.38EE.0020.0011.0001][.38EE.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER HA, HIRAGANA VOICED ITERATION MARK>
+30D0 30FD ; [.38EE.0020.0011.0002][.0000.0037.0002][.38EE.0020.0010.0002] # <KATAKANA LETTER BA, KATAKANA ITERATION MARK>
+30CF 3099 30FD ; [.38EE.0020.0011.0002][.0000.0037.0002][.38EE.0020.0010.0002] # <KATAKANA LETTER HA, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA ITERATION MARK>
+FF8A FF9E 30FD ; [.38EE.0020.0011.0002][.0000.0037.0002][.38EE.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER HA, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA ITERATION MARK>
+3070 309D ; [.38EE.0020.0011.0001][.0000.0037.0002][.38EE.0020.0010.0002] # <HIRAGANA LETTER BA, HIRAGANA ITERATION MARK>
+306F 3099 309D ; [.38EE.0020.0011.0001][.0000.0037.0002][.38EE.0020.0010.0002] # <HIRAGANA LETTER HA, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, HIRAGANA ITERATION MARK>
+30D0 30FE ; [.38EE.0020.0011.0002][.0000.0037.0002][.38EE.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER BA, KATAKANA VOICED ITERATION MARK>
+30CF 3099 30FE ; [.38EE.0020.0011.0002][.0000.0037.0002][.38EE.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER HA, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA VOICED ITERATION MARK>
+FF8A FF9E 30FE ; [.38EE.0020.0011.0002][.0000.0037.0002][.38EE.0020.0010.0002][.0000.0037.0002] # <HALFWIDTH KATAKANA LETTER HA, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA VOICED ITERATION MARK>
+3070 309E ; [.38EE.0020.0011.0001][.0000.0037.0002][.38EE.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER BA, HIRAGANA VOICED ITERATION MARK>
+306F 3099 309E ; [.38EE.0020.0011.0001][.0000.0037.0002][.38EE.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER HA, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, HIRAGANA VOICED ITERATION MARK>
+30D1 30FD ; [.38EE.0020.0011.0002][.0000.0038.0002][.38EE.0020.0010.0002] # <KATAKANA LETTER PA, KATAKANA ITERATION MARK>
+30CF 309A 30FD ; [.38EE.0020.0011.0002][.0000.0038.0002][.38EE.0020.0010.0002] # <KATAKANA LETTER HA, COMBINING KATAKANA-HIRAGANA SEMI-VOICED SOUND MARK, KATAKANA ITERATION MARK>
+FF8A FF9F 30FD ; [.38EE.0020.0011.0002][.0000.0038.0002][.38EE.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER HA, HALFWIDTH KATAKANA SEMI-VOICED SOUND MARK, KATAKANA ITERATION MARK>
+3071 309D ; [.38EE.0020.0011.0001][.0000.0038.0002][.38EE.0020.0010.0002] # <HIRAGANA LETTER PA, HIRAGANA ITERATION MARK>
+306F 309A 309D ; [.38EE.0020.0011.0001][.0000.0038.0002][.38EE.0020.0010.0002] # <HIRAGANA LETTER HA, COMBINING KATAKANA-HIRAGANA SEMI-VOICED SOUND MARK, HIRAGANA ITERATION MARK>
+30D1 30FE ; [.38EE.0020.0011.0002][.0000.0038.0002][.38EE.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER PA, KATAKANA VOICED ITERATION MARK>
+30CF 309A 30FE ; [.38EE.0020.0011.0002][.0000.0038.0002][.38EE.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER HA, COMBINING KATAKANA-HIRAGANA SEMI-VOICED SOUND MARK, KATAKANA VOICED ITERATION MARK>
+FF8A FF9F 30FE ; [.38EE.0020.0011.0002][.0000.0038.0002][.38EE.0020.0010.0002][.0000.0037.0002] # <HALFWIDTH KATAKANA LETTER HA, HALFWIDTH KATAKANA SEMI-VOICED SOUND MARK, KATAKANA VOICED ITERATION MARK>
+3071 309E ; [.38EE.0020.0011.0001][.0000.0038.0002][.38EE.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER PA, HIRAGANA VOICED ITERATION MARK>
+306F 309A 309E ; [.38EE.0020.0011.0001][.0000.0038.0002][.38EE.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER HA, COMBINING KATAKANA-HIRAGANA SEMI-VOICED SOUND MARK, HIRAGANA VOICED ITERATION MARK>
+30D2 30FD ; [.38EF.0020.0011.0002][.38EF.0020.0010.0002] # <KATAKANA LETTER HI, KATAKANA ITERATION MARK>
+FF8B 30FD ; [.38EF.0020.0011.0002][.38EF.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER HI, KATAKANA ITERATION MARK>
+3072 309D ; [.38EF.0020.0011.0001][.38EF.0020.0010.0002] # <HIRAGANA LETTER HI, HIRAGANA ITERATION MARK>
+30D2 30FE ; [.38EF.0020.0011.0002][.38EF.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER HI, KATAKANA VOICED ITERATION MARK>
+FF8B 30FE ; [.38EF.0020.0011.0002][.38EF.0020.0010.0002][.0000.0037.0002] # <HALFWIDTH KATAKANA LETTER HI, KATAKANA VOICED ITERATION MARK>
+3072 309E ; [.38EF.0020.0011.0001][.38EF.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER HI, HIRAGANA VOICED ITERATION MARK>
+30D3 30FD ; [.38EF.0020.0011.0002][.0000.0037.0002][.38EF.0020.0010.0002] # <KATAKANA LETTER BI, KATAKANA ITERATION MARK>
+30D2 3099 30FD ; [.38EF.0020.0011.0002][.0000.0037.0002][.38EF.0020.0010.0002] # <KATAKANA LETTER HI, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA ITERATION MARK>
+FF8B FF9E 30FD ; [.38EF.0020.0011.0002][.0000.0037.0002][.38EF.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER HI, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA ITERATION MARK>
+3073 309D ; [.38EF.0020.0011.0001][.0000.0037.0002][.38EF.0020.0010.0002] # <HIRAGANA LETTER BI, HIRAGANA ITERATION MARK>
+3072 3099 309D ; [.38EF.0020.0011.0001][.0000.0037.0002][.38EF.0020.0010.0002] # <HIRAGANA LETTER HI, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, HIRAGANA ITERATION MARK>
+30D3 30FE ; [.38EF.0020.0011.0002][.0000.0037.0002][.38EF.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER BI, KATAKANA VOICED ITERATION MARK>
+30D2 3099 30FE ; [.38EF.0020.0011.0002][.0000.0037.0002][.38EF.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER HI, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA VOICED ITERATION MARK>
+FF8B FF9E 30FE ; [.38EF.0020.0011.0002][.0000.0037.0002][.38EF.0020.0010.0002][.0000.0037.0002] # <HALFWIDTH KATAKANA LETTER HI, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA VOICED ITERATION MARK>
+3073 309E ; [.38EF.0020.0011.0001][.0000.0037.0002][.38EF.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER BI, HIRAGANA VOICED ITERATION MARK>
+3072 3099 309E ; [.38EF.0020.0011.0001][.0000.0037.0002][.38EF.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER HI, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, HIRAGANA VOICED ITERATION MARK>
+30D4 30FD ; [.38EF.0020.0011.0002][.0000.0038.0002][.38EF.0020.0010.0002] # <KATAKANA LETTER PI, KATAKANA ITERATION MARK>
+30D2 309A 30FD ; [.38EF.0020.0011.0002][.0000.0038.0002][.38EF.0020.0010.0002] # <KATAKANA LETTER HI, COMBINING KATAKANA-HIRAGANA SEMI-VOICED SOUND MARK, KATAKANA ITERATION MARK>
+FF8B FF9F 30FD ; [.38EF.0020.0011.0002][.0000.0038.0002][.38EF.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER HI, HALFWIDTH KATAKANA SEMI-VOICED SOUND MARK, KATAKANA ITERATION MARK>
+3074 309D ; [.38EF.0020.0011.0001][.0000.0038.0002][.38EF.0020.0010.0002] # <HIRAGANA LETTER PI, HIRAGANA ITERATION MARK>
+3072 309A 309D ; [.38EF.0020.0011.0001][.0000.0038.0002][.38EF.0020.0010.0002] # <HIRAGANA LETTER HI, COMBINING KATAKANA-HIRAGANA SEMI-VOICED SOUND MARK, HIRAGANA ITERATION MARK>
+30D4 30FE ; [.38EF.0020.0011.0002][.0000.0038.0002][.38EF.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER PI, KATAKANA VOICED ITERATION MARK>
+30D2 309A 30FE ; [.38EF.0020.0011.0002][.0000.0038.0002][.38EF.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER HI, COMBINING KATAKANA-HIRAGANA SEMI-VOICED SOUND MARK, KATAKANA VOICED ITERATION MARK>
+FF8B FF9F 30FE ; [.38EF.0020.0011.0002][.0000.0038.0002][.38EF.0020.0010.0002][.0000.0037.0002] # <HALFWIDTH KATAKANA LETTER HI, HALFWIDTH KATAKANA SEMI-VOICED SOUND MARK, KATAKANA VOICED ITERATION MARK>
+3074 309E ; [.38EF.0020.0011.0001][.0000.0038.0002][.38EF.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER PI, HIRAGANA VOICED ITERATION MARK>
+3072 309A 309E ; [.38EF.0020.0011.0001][.0000.0038.0002][.38EF.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER HI, COMBINING KATAKANA-HIRAGANA SEMI-VOICED SOUND MARK, HIRAGANA VOICED ITERATION MARK>
+30D5 30FD ; [.38F0.0020.0011.0002][.38F0.0020.0010.0002] # <KATAKANA LETTER HU, KATAKANA ITERATION MARK>
+FF8C 30FD ; [.38F0.0020.0011.0002][.38F0.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER HU, KATAKANA ITERATION MARK>
+3075 309D ; [.38F0.0020.0011.0001][.38F0.0020.0010.0002] # <HIRAGANA LETTER HU, HIRAGANA ITERATION MARK>
+30D5 30FE ; [.38F0.0020.0011.0002][.38F0.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER HU, KATAKANA VOICED ITERATION MARK>
+FF8C 30FE ; [.38F0.0020.0011.0002][.38F0.0020.0010.0002][.0000.0037.0002] # <HALFWIDTH KATAKANA LETTER HU, KATAKANA VOICED ITERATION MARK>
+3075 309E ; [.38F0.0020.0011.0001][.38F0.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER HU, HIRAGANA VOICED ITERATION MARK>
+30D6 30FD ; [.38F0.0020.0011.0002][.0000.0037.0002][.38F0.0020.0010.0002] # <KATAKANA LETTER BU, KATAKANA ITERATION MARK>
+30D5 3099 30FD ; [.38F0.0020.0011.0002][.0000.0037.0002][.38F0.0020.0010.0002] # <KATAKANA LETTER HU, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA ITERATION MARK>
+FF8C FF9E 30FD ; [.38F0.0020.0011.0002][.0000.0037.0002][.38F0.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER HU, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA ITERATION MARK>
+3076 309D ; [.38F0.0020.0011.0001][.0000.0037.0002][.38F0.0020.0010.0002] # <HIRAGANA LETTER BU, HIRAGANA ITERATION MARK>
+3075 3099 309D ; [.38F0.0020.0011.0001][.0000.0037.0002][.38F0.0020.0010.0002] # <HIRAGANA LETTER HU, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, HIRAGANA ITERATION MARK>
+30D6 30FE ; [.38F0.0020.0011.0002][.0000.0037.0002][.38F0.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER BU, KATAKANA VOICED ITERATION MARK>
+30D5 3099 30FE ; [.38F0.0020.0011.0002][.0000.0037.0002][.38F0.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER HU, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA VOICED ITERATION MARK>
+FF8C FF9E 30FE ; [.38F0.0020.0011.0002][.0000.0037.0002][.38F0.0020.0010.0002][.0000.0037.0002] # <HALFWIDTH KATAKANA LETTER HU, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA VOICED ITERATION MARK>
+3076 309E ; [.38F0.0020.0011.0001][.0000.0037.0002][.38F0.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER BU, HIRAGANA VOICED ITERATION MARK>
+3075 3099 309E ; [.38F0.0020.0011.0001][.0000.0037.0002][.38F0.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER HU, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, HIRAGANA VOICED ITERATION MARK>
+30D7 30FD ; [.38F0.0020.0011.0002][.0000.0038.0002][.38F0.0020.0010.0002] # <KATAKANA LETTER PU, KATAKANA ITERATION MARK>
+30D5 309A 30FD ; [.38F0.0020.0011.0002][.0000.0038.0002][.38F0.0020.0010.0002] # <KATAKANA LETTER HU, COMBINING KATAKANA-HIRAGANA SEMI-VOICED SOUND MARK, KATAKANA ITERATION MARK>
+FF8C FF9F 30FD ; [.38F0.0020.0011.0002][.0000.0038.0002][.38F0.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER HU, HALFWIDTH KATAKANA SEMI-VOICED SOUND MARK, KATAKANA ITERATION MARK>
+3077 309D ; [.38F0.0020.0011.0001][.0000.0038.0002][.38F0.0020.0010.0002] # <HIRAGANA LETTER PU, HIRAGANA ITERATION MARK>
+3075 309A 309D ; [.38F0.0020.0011.0001][.0000.0038.0002][.38F0.0020.0010.0002] # <HIRAGANA LETTER HU, COMBINING KATAKANA-HIRAGANA SEMI-VOICED SOUND MARK, HIRAGANA ITERATION MARK>
+30D7 30FE ; [.38F0.0020.0011.0002][.0000.0038.0002][.38F0.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER PU, KATAKANA VOICED ITERATION MARK>
+30D5 309A 30FE ; [.38F0.0020.0011.0002][.0000.0038.0002][.38F0.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER HU, COMBINING KATAKANA-HIRAGANA SEMI-VOICED SOUND MARK, KATAKANA VOICED ITERATION MARK>
+FF8C FF9F 30FE ; [.38F0.0020.0011.0002][.0000.0038.0002][.38F0.0020.0010.0002][.0000.0037.0002] # <HALFWIDTH KATAKANA LETTER HU, HALFWIDTH KATAKANA SEMI-VOICED SOUND MARK, KATAKANA VOICED ITERATION MARK>
+3077 309E ; [.38F0.0020.0011.0001][.0000.0038.0002][.38F0.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER PU, HIRAGANA VOICED ITERATION MARK>
+3075 309A 309E ; [.38F0.0020.0011.0001][.0000.0038.0002][.38F0.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER HU, COMBINING KATAKANA-HIRAGANA SEMI-VOICED SOUND MARK, HIRAGANA VOICED ITERATION MARK>
+30D8 30FD ; [.38F1.0020.0011.0002][.38F1.0020.0010.0002] # <KATAKANA LETTER HE, KATAKANA ITERATION MARK>
+FF8D 30FD ; [.38F1.0020.0011.0002][.38F1.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER HE, KATAKANA ITERATION MARK>
+3078 309D ; [.38F1.0020.0011.0001][.38F1.0020.0010.0002] # <HIRAGANA LETTER HE, HIRAGANA ITERATION MARK>
+30D8 30FE ; [.38F1.0020.0011.0002][.38F1.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER HE, KATAKANA VOICED ITERATION MARK>
+FF8D 30FE ; [.38F1.0020.0011.0002][.38F1.0020.0010.0002][.0000.0037.0002] # <HALFWIDTH KATAKANA LETTER HE, KATAKANA VOICED ITERATION MARK>
+3078 309E ; [.38F1.0020.0011.0001][.38F1.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER HE, HIRAGANA VOICED ITERATION MARK>
+30D9 30FD ; [.38F1.0020.0011.0002][.0000.0037.0002][.38F1.0020.0010.0002] # <KATAKANA LETTER BE, KATAKANA ITERATION MARK>
+30D8 3099 30FD ; [.38F1.0020.0011.0002][.0000.0037.0002][.38F1.0020.0010.0002] # <KATAKANA LETTER HE, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA ITERATION MARK>
+FF8D FF9E 30FD ; [.38F1.0020.0011.0002][.0000.0037.0002][.38F1.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER HE, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA ITERATION MARK>
+3079 309D ; [.38F1.0020.0011.0001][.0000.0037.0002][.38F1.0020.0010.0002] # <HIRAGANA LETTER BE, HIRAGANA ITERATION MARK>
+3078 3099 309D ; [.38F1.0020.0011.0001][.0000.0037.0002][.38F1.0020.0010.0002] # <HIRAGANA LETTER HE, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, HIRAGANA ITERATION MARK>
+30D9 30FE ; [.38F1.0020.0011.0002][.0000.0037.0002][.38F1.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER BE, KATAKANA VOICED ITERATION MARK>
+30D8 3099 30FE ; [.38F1.0020.0011.0002][.0000.0037.0002][.38F1.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER HE, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA VOICED ITERATION MARK>
+FF8D FF9E 30FE ; [.38F1.0020.0011.0002][.0000.0037.0002][.38F1.0020.0010.0002][.0000.0037.0002] # <HALFWIDTH KATAKANA LETTER HE, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA VOICED ITERATION MARK>
+3079 309E ; [.38F1.0020.0011.0001][.0000.0037.0002][.38F1.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER BE, HIRAGANA VOICED ITERATION MARK>
+3078 3099 309E ; [.38F1.0020.0011.0001][.0000.0037.0002][.38F1.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER HE, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, HIRAGANA VOICED ITERATION MARK>
+30DA 30FD ; [.38F1.0020.0011.0002][.0000.0038.0002][.38F1.0020.0010.0002] # <KATAKANA LETTER PE, KATAKANA ITERATION MARK>
+30D8 309A 30FD ; [.38F1.0020.0011.0002][.0000.0038.0002][.38F1.0020.0010.0002] # <KATAKANA LETTER HE, COMBINING KATAKANA-HIRAGANA SEMI-VOICED SOUND MARK, KATAKANA ITERATION MARK>
+FF8D FF9F 30FD ; [.38F1.0020.0011.0002][.0000.0038.0002][.38F1.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER HE, HALFWIDTH KATAKANA SEMI-VOICED SOUND MARK, KATAKANA ITERATION MARK>
+307A 309D ; [.38F1.0020.0011.0001][.0000.0038.0002][.38F1.0020.0010.0002] # <HIRAGANA LETTER PE, HIRAGANA ITERATION MARK>
+3078 309A 309D ; [.38F1.0020.0011.0001][.0000.0038.0002][.38F1.0020.0010.0002] # <HIRAGANA LETTER HE, COMBINING KATAKANA-HIRAGANA SEMI-VOICED SOUND MARK, HIRAGANA ITERATION MARK>
+30DA 30FE ; [.38F1.0020.0011.0002][.0000.0038.0002][.38F1.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER PE, KATAKANA VOICED ITERATION MARK>
+30D8 309A 30FE ; [.38F1.0020.0011.0002][.0000.0038.0002][.38F1.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER HE, COMBINING KATAKANA-HIRAGANA SEMI-VOICED SOUND MARK, KATAKANA VOICED ITERATION MARK>
+FF8D FF9F 30FE ; [.38F1.0020.0011.0002][.0000.0038.0002][.38F1.0020.0010.0002][.0000.0037.0002] # <HALFWIDTH KATAKANA LETTER HE, HALFWIDTH KATAKANA SEMI-VOICED SOUND MARK, KATAKANA VOICED ITERATION MARK>
+307A 309E ; [.38F1.0020.0011.0001][.0000.0038.0002][.38F1.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER PE, HIRAGANA VOICED ITERATION MARK>
+3078 309A 309E ; [.38F1.0020.0011.0001][.0000.0038.0002][.38F1.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER HE, COMBINING KATAKANA-HIRAGANA SEMI-VOICED SOUND MARK, HIRAGANA VOICED ITERATION MARK>
+30DB 30FD ; [.38F2.0020.0011.0002][.38F2.0020.0010.0002] # <KATAKANA LETTER HO, KATAKANA ITERATION MARK>
+FF8E 30FD ; [.38F2.0020.0011.0002][.38F2.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER HO, KATAKANA ITERATION MARK>
+307B 309D ; [.38F2.0020.0011.0001][.38F2.0020.0010.0002] # <HIRAGANA LETTER HO, HIRAGANA ITERATION MARK>
+30DB 30FE ; [.38F2.0020.0011.0002][.38F2.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER HO, KATAKANA VOICED ITERATION MARK>
+FF8E 30FE ; [.38F2.0020.0011.0002][.38F2.0020.0010.0002][.0000.0037.0002] # <HALFWIDTH KATAKANA LETTER HO, KATAKANA VOICED ITERATION MARK>
+307B 309E ; [.38F2.0020.0011.0001][.38F2.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER HO, HIRAGANA VOICED ITERATION MARK>
+30DC 30FD ; [.38F2.0020.0011.0002][.0000.0037.0002][.38F2.0020.0010.0002] # <KATAKANA LETTER BO, KATAKANA ITERATION MARK>
+30DB 3099 30FD ; [.38F2.0020.0011.0002][.0000.0037.0002][.38F2.0020.0010.0002] # <KATAKANA LETTER HO, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA ITERATION MARK>
+FF8E FF9E 30FD ; [.38F2.0020.0011.0002][.0000.0037.0002][.38F2.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER HO, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA ITERATION MARK>
+307C 309D ; [.38F2.0020.0011.0001][.0000.0037.0002][.38F2.0020.0010.0002] # <HIRAGANA LETTER BO, HIRAGANA ITERATION MARK>
+307B 3099 309D ; [.38F2.0020.0011.0001][.0000.0037.0002][.38F2.0020.0010.0002] # <HIRAGANA LETTER HO, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, HIRAGANA ITERATION MARK>
+30DC 30FE ; [.38F2.0020.0011.0002][.0000.0037.0002][.38F2.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER BO, KATAKANA VOICED ITERATION MARK>
+30DB 3099 30FE ; [.38F2.0020.0011.0002][.0000.0037.0002][.38F2.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER HO, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA VOICED ITERATION MARK>
+FF8E FF9E 30FE ; [.38F2.0020.0011.0002][.0000.0037.0002][.38F2.0020.0010.0002][.0000.0037.0002] # <HALFWIDTH KATAKANA LETTER HO, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA VOICED ITERATION MARK>
+307C 309E ; [.38F2.0020.0011.0001][.0000.0037.0002][.38F2.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER BO, HIRAGANA VOICED ITERATION MARK>
+307B 3099 309E ; [.38F2.0020.0011.0001][.0000.0037.0002][.38F2.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER HO, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, HIRAGANA VOICED ITERATION MARK>
+30DD 30FD ; [.38F2.0020.0011.0002][.0000.0038.0002][.38F2.0020.0010.0002] # <KATAKANA LETTER PO, KATAKANA ITERATION MARK>
+30DB 309A 30FD ; [.38F2.0020.0011.0002][.0000.0038.0002][.38F2.0020.0010.0002] # <KATAKANA LETTER HO, COMBINING KATAKANA-HIRAGANA SEMI-VOICED SOUND MARK, KATAKANA ITERATION MARK>
+FF8E FF9F 30FD ; [.38F2.0020.0011.0002][.0000.0038.0002][.38F2.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER HO, HALFWIDTH KATAKANA SEMI-VOICED SOUND MARK, KATAKANA ITERATION MARK>
+307D 309D ; [.38F2.0020.0011.0001][.0000.0038.0002][.38F2.0020.0010.0002] # <HIRAGANA LETTER PO, HIRAGANA ITERATION MARK>
+307B 309A 309D ; [.38F2.0020.0011.0001][.0000.0038.0002][.38F2.0020.0010.0002] # <HIRAGANA LETTER HO, COMBINING KATAKANA-HIRAGANA SEMI-VOICED SOUND MARK, HIRAGANA ITERATION MARK>
+30DD 30FE ; [.38F2.0020.0011.0002][.0000.0038.0002][.38F2.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER PO, KATAKANA VOICED ITERATION MARK>
+30DB 309A 30FE ; [.38F2.0020.0011.0002][.0000.0038.0002][.38F2.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER HO, COMBINING KATAKANA-HIRAGANA SEMI-VOICED SOUND MARK, KATAKANA VOICED ITERATION MARK>
+FF8E FF9F 30FE ; [.38F2.0020.0011.0002][.0000.0038.0002][.38F2.0020.0010.0002][.0000.0037.0002] # <HALFWIDTH KATAKANA LETTER HO, HALFWIDTH KATAKANA SEMI-VOICED SOUND MARK, KATAKANA VOICED ITERATION MARK>
+307D 309E ; [.38F2.0020.0011.0001][.0000.0038.0002][.38F2.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER PO, HIRAGANA VOICED ITERATION MARK>
+307B 309A 309E ; [.38F2.0020.0011.0001][.0000.0038.0002][.38F2.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER HO, COMBINING KATAKANA-HIRAGANA SEMI-VOICED SOUND MARK, HIRAGANA VOICED ITERATION MARK>
+30DE 30FD ; [.38F3.0020.0011.0002][.38F3.0020.0010.0002] # <KATAKANA LETTER MA, KATAKANA ITERATION MARK>
+FF8F 30FD ; [.38F3.0020.0011.0002][.38F3.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER MA, KATAKANA ITERATION MARK>
+307E 309D ; [.38F3.0020.0011.0001][.38F3.0020.0010.0002] # <HIRAGANA LETTER MA, HIRAGANA ITERATION MARK>
+30DF 30FD ; [.38F4.0020.0011.0002][.38F4.0020.0010.0002] # <KATAKANA LETTER MI, KATAKANA ITERATION MARK>
+FF90 30FD ; [.38F4.0020.0011.0002][.38F4.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER MI, KATAKANA ITERATION MARK>
+307F 309D ; [.38F4.0020.0011.0001][.38F4.0020.0010.0002] # <HIRAGANA LETTER MI, HIRAGANA ITERATION MARK>
+30E0 30FD ; [.38F5.0020.0011.0002][.38F5.0020.0010.0002] # <KATAKANA LETTER MU, KATAKANA ITERATION MARK>
+FF91 30FD ; [.38F5.0020.0011.0002][.38F5.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER MU, KATAKANA ITERATION MARK>
+3080 309D ; [.38F5.0020.0011.0001][.38F5.0020.0010.0002] # <HIRAGANA LETTER MU, HIRAGANA ITERATION MARK>
+30E1 30FD ; [.38F6.0020.0011.0002][.38F6.0020.0010.0002] # <KATAKANA LETTER ME, KATAKANA ITERATION MARK>
+FF92 30FD ; [.38F6.0020.0011.0002][.38F6.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER ME, KATAKANA ITERATION MARK>
+3081 309D ; [.38F6.0020.0011.0001][.38F6.0020.0010.0002] # <HIRAGANA LETTER ME, HIRAGANA ITERATION MARK>
+30E2 30FD ; [.38F7.0020.0011.0002][.38F7.0020.0010.0002] # <KATAKANA LETTER MO, KATAKANA ITERATION MARK>
+FF93 30FD ; [.38F7.0020.0011.0002][.38F7.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER MO, KATAKANA ITERATION MARK>
+3082 309D ; [.38F7.0020.0011.0001][.38F7.0020.0010.0002] # <HIRAGANA LETTER MO, HIRAGANA ITERATION MARK>
+30E3 30FD ; [.38F8.0020.000F.0002][.38F8.0020.0010.0002] # <KATAKANA LETTER SMALL YA, KATAKANA ITERATION MARK>
+FF6C 30FD ; [.38F8.0020.000F.0002][.38F8.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER SMALL YA, KATAKANA ITERATION MARK>
+3083 309D ; [.38F8.0020.000F.0001][.38F8.0020.0010.0002] # <HIRAGANA LETTER SMALL YA, HIRAGANA ITERATION MARK>
+30E4 30FD ; [.38F8.0020.0011.0002][.38F8.0020.0010.0002] # <KATAKANA LETTER YA, KATAKANA ITERATION MARK>
+FF94 30FD ; [.38F8.0020.0011.0002][.38F8.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER YA, KATAKANA ITERATION MARK>
+3084 309D ; [.38F8.0020.0011.0001][.38F8.0020.0010.0002] # <HIRAGANA LETTER YA, HIRAGANA ITERATION MARK>
+30E5 30FD ; [.38F9.0020.000F.0002][.38F9.0020.0010.0002] # <KATAKANA LETTER SMALL YU, KATAKANA ITERATION MARK>
+FF6D 30FD ; [.38F9.0020.000F.0002][.38F9.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER SMALL YU, KATAKANA ITERATION MARK>
+3085 309D ; [.38F9.0020.000F.0001][.38F9.0020.0010.0002] # <HIRAGANA LETTER SMALL YU, HIRAGANA ITERATION MARK>
+30E6 30FD ; [.38F9.0020.0011.0002][.38F9.0020.0010.0002] # <KATAKANA LETTER YU, KATAKANA ITERATION MARK>
+FF95 30FD ; [.38F9.0020.0011.0002][.38F9.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER YU, KATAKANA ITERATION MARK>
+3086 309D ; [.38F9.0020.0011.0001][.38F9.0020.0010.0002] # <HIRAGANA LETTER YU, HIRAGANA ITERATION MARK>
+30E7 30FD ; [.38FB.0020.000F.0002][.38FB.0020.0010.0002] # <KATAKANA LETTER SMALL YO, KATAKANA ITERATION MARK>
+FF6E 30FD ; [.38FB.0020.000F.0002][.38FB.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER SMALL YO, KATAKANA ITERATION MARK>
+3087 309D ; [.38FB.0020.000F.0001][.38FB.0020.0010.0002] # <HIRAGANA LETTER SMALL YO, HIRAGANA ITERATION MARK>
+30E8 30FD ; [.38FB.0020.0011.0002][.38FB.0020.0010.0002] # <KATAKANA LETTER YO, KATAKANA ITERATION MARK>
+FF96 30FD ; [.38FB.0020.0011.0002][.38FB.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER YO, KATAKANA ITERATION MARK>
+3088 309D ; [.38FB.0020.0011.0001][.38FB.0020.0010.0002] # <HIRAGANA LETTER YO, HIRAGANA ITERATION MARK>
+30E9 30FD ; [.38FC.0020.0011.0002][.38FC.0020.0010.0002] # <KATAKANA LETTER RA, KATAKANA ITERATION MARK>
+FF97 30FD ; [.38FC.0020.0011.0002][.38FC.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER RA, KATAKANA ITERATION MARK>
+3089 309D ; [.38FC.0020.0011.0001][.38FC.0020.0010.0002] # <HIRAGANA LETTER RA, HIRAGANA ITERATION MARK>
+30EA 30FD ; [.38FD.0020.0011.0002][.38FD.0020.0010.0002] # <KATAKANA LETTER RI, KATAKANA ITERATION MARK>
+FF98 30FD ; [.38FD.0020.0011.0002][.38FD.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER RI, KATAKANA ITERATION MARK>
+308A 309D ; [.38FD.0020.0011.0001][.38FD.0020.0010.0002] # <HIRAGANA LETTER RI, HIRAGANA ITERATION MARK>
+30EB 30FD ; [.38FE.0020.0011.0002][.38FE.0020.0010.0002] # <KATAKANA LETTER RU, KATAKANA ITERATION MARK>
+FF99 30FD ; [.38FE.0020.0011.0002][.38FE.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER RU, KATAKANA ITERATION MARK>
+308B 309D ; [.38FE.0020.0011.0001][.38FE.0020.0010.0002] # <HIRAGANA LETTER RU, HIRAGANA ITERATION MARK>
+30EC 30FD ; [.38FF.0020.0011.0002][.38FF.0020.0010.0002] # <KATAKANA LETTER RE, KATAKANA ITERATION MARK>
+FF9A 30FD ; [.38FF.0020.0011.0002][.38FF.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER RE, KATAKANA ITERATION MARK>
+308C 309D ; [.38FF.0020.0011.0001][.38FF.0020.0010.0002] # <HIRAGANA LETTER RE, HIRAGANA ITERATION MARK>
+30ED 30FD ; [.3900.0020.0011.0002][.3900.0020.0010.0002] # <KATAKANA LETTER RO, KATAKANA ITERATION MARK>
+FF9B 30FD ; [.3900.0020.0011.0002][.3900.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER RO, KATAKANA ITERATION MARK>
+308D 309D ; [.3900.0020.0011.0001][.3900.0020.0010.0002] # <HIRAGANA LETTER RO, HIRAGANA ITERATION MARK>
+30EE 30FD ; [.3901.0020.000F.0002][.3901.0020.0010.0002] # <KATAKANA LETTER SMALL WA, KATAKANA ITERATION MARK>
+308E 309D ; [.3901.0020.000F.0001][.3901.0020.0010.0002] # <HIRAGANA LETTER SMALL WA, HIRAGANA ITERATION MARK>
+30EE 30FE ; [.3901.0020.000F.0002][.3901.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER SMALL WA, KATAKANA VOICED ITERATION MARK>
+308E 309E ; [.3901.0020.000F.0001][.3901.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER SMALL WA, HIRAGANA VOICED ITERATION MARK>
+30EF 30FD ; [.3901.0020.0011.0002][.3901.0020.0010.0002] # <KATAKANA LETTER WA, KATAKANA ITERATION MARK>
+FF9C 30FD ; [.3901.0020.0011.0002][.3901.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER WA, KATAKANA ITERATION MARK>
+308F 309D ; [.3901.0020.0011.0001][.3901.0020.0010.0002] # <HIRAGANA LETTER WA, HIRAGANA ITERATION MARK>
+30EF 30FE ; [.3901.0020.0011.0002][.3901.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER WA, KATAKANA VOICED ITERATION MARK>
+FF9C 30FE ; [.3901.0020.0011.0002][.3901.0020.0010.0002][.0000.0037.0002] # <HALFWIDTH KATAKANA LETTER WA, KATAKANA VOICED ITERATION MARK>
+308F 309E ; [.3901.0020.0011.0001][.3901.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER WA, HIRAGANA VOICED ITERATION MARK>
+30F0 30FD ; [.3902.0020.0011.0002][.3902.0020.0010.0002] # <KATAKANA LETTER WI, KATAKANA ITERATION MARK>
+3090 309D ; [.3902.0020.0011.0001][.3902.0020.0010.0002] # <HIRAGANA LETTER WI, HIRAGANA ITERATION MARK>
+30F0 30FE ; [.3902.0020.0011.0002][.3902.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER WI, KATAKANA VOICED ITERATION MARK>
+3090 309E ; [.3902.0020.0011.0001][.3902.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER WI, HIRAGANA VOICED ITERATION MARK>
+30F1 30FD ; [.3903.0020.0011.0002][.3903.0020.0010.0002] # <KATAKANA LETTER WE, KATAKANA ITERATION MARK>
+3091 309D ; [.3903.0020.0011.0001][.3903.0020.0010.0002] # <HIRAGANA LETTER WE, HIRAGANA ITERATION MARK>
+30F1 30FE ; [.3903.0020.0011.0002][.3903.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER WE, KATAKANA VOICED ITERATION MARK>
+3091 309E ; [.3903.0020.0011.0001][.3903.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER WE, HIRAGANA VOICED ITERATION MARK>
+30F2 30FD ; [.3904.0020.0011.0002][.3904.0020.0010.0002] # <KATAKANA LETTER WO, KATAKANA ITERATION MARK>
+FF66 30FD ; [.3904.0020.0011.0002][.3904.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER WO, KATAKANA ITERATION MARK>
+3092 309D ; [.3904.0020.0011.0001][.3904.0020.0010.0002] # <HIRAGANA LETTER WO, HIRAGANA ITERATION MARK>
+30F2 30FE ; [.3904.0020.0011.0002][.3904.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER WO, KATAKANA VOICED ITERATION MARK>
+FF66 30FE ; [.3904.0020.0011.0002][.3904.0020.0010.0002][.0000.0037.0002] # <HALFWIDTH KATAKANA LETTER WO, KATAKANA VOICED ITERATION MARK>
+3092 309E ; [.3904.0020.0011.0001][.3904.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER WO, HIRAGANA VOICED ITERATION MARK>
+30F3 30FD ; [.3905.0020.0011.0002][.3905.0020.0010.0002] # <KATAKANA LETTER N, KATAKANA ITERATION MARK>
+FF9D 30FD ; [.3905.0020.0011.0002][.3905.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER N, KATAKANA ITERATION MARK>
+3093 309D ; [.3905.0020.0011.0001][.3905.0020.0010.0002] # <HIRAGANA LETTER N, HIRAGANA ITERATION MARK>
+30F4 30FD ; [.38D6.0020.0011.0002][.0000.0037.0002][.38D6.0020.0010.0002] # <KATAKANA LETTER VU, KATAKANA ITERATION MARK>
+30A6 3099 30FD ; [.38D6.0020.0011.0002][.0000.0037.0002][.38D6.0020.0010.0002] # <KATAKANA LETTER U, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA ITERATION MARK>
+FF73 FF9E 30FD ; [.38D6.0020.0011.0002][.0000.0037.0002][.38D6.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER U, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA ITERATION MARK>
+3094 309D ; [.38D6.0020.0011.0001][.0000.0037.0002][.38D6.0020.0010.0002] # <HIRAGANA LETTER VU, HIRAGANA ITERATION MARK>
+3046 3099 309D ; [.38D6.0020.0011.0001][.0000.0037.0002][.38D6.0020.0010.0002] # <HIRAGANA LETTER U, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, HIRAGANA ITERATION MARK>
+30F4 30FE ; [.38D6.0020.0011.0002][.0000.0037.0002][.38D6.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER VU, KATAKANA VOICED ITERATION MARK>
+30A6 3099 30FE ; [.38D6.0020.0011.0002][.0000.0037.0002][.38D6.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER U, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA VOICED ITERATION MARK>
+FF73 FF9E 30FE ; [.38D6.0020.0011.0002][.0000.0037.0002][.38D6.0020.0010.0002][.0000.0037.0002] # <HALFWIDTH KATAKANA LETTER U, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA VOICED ITERATION MARK>
+3094 309E ; [.38D6.0020.0011.0001][.0000.0037.0002][.38D6.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER VU, HIRAGANA VOICED ITERATION MARK>
+3046 3099 309E ; [.38D6.0020.0011.0001][.0000.0037.0002][.38D6.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER U, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, HIRAGANA VOICED ITERATION MARK>
+30F5 30FD ; [.38DA.0020.000F.0002][.38DA.0020.0010.0002] # <KATAKANA LETTER SMALL KA, KATAKANA ITERATION MARK>
+3095 309D ; [.38DA.0020.000F.0001][.38DA.0020.0010.0002] # <HIRAGANA LETTER SMALL KA, HIRAGANA ITERATION MARK>
+30F5 30FE ; [.38DA.0020.000F.0002][.38DA.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER SMALL KA, KATAKANA VOICED ITERATION MARK>
+3095 309E ; [.38DA.0020.000F.0001][.38DA.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER SMALL KA, HIRAGANA VOICED ITERATION MARK>
+30F6 30FD ; [.38DD.0020.000F.0002][.38DD.0020.0010.0002] # <KATAKANA LETTER SMALL KE, KATAKANA ITERATION MARK>
+3096 309D ; [.38DD.0020.000F.0001][.38DD.0020.0010.0002] # <HIRAGANA LETTER SMALL KE, HIRAGANA ITERATION MARK>
+30F6 30FE ; [.38DD.0020.000F.0002][.38DD.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER SMALL KE, KATAKANA VOICED ITERATION MARK>
+3096 309E ; [.38DD.0020.000F.0001][.38DD.0020.0010.0002][.0000.0037.0002] # <HIRAGANA LETTER SMALL KE, HIRAGANA VOICED ITERATION MARK>
+30F7 30FD ; [.3901.0020.0011.0002][.0000.0037.0002][.3901.0020.0010.0002] # <KATAKANA LETTER VA, KATAKANA ITERATION MARK>
+30EF 3099 30FD ; [.3901.0020.0011.0002][.0000.0037.0002][.3901.0020.0010.0002] # <KATAKANA LETTER WA, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA ITERATION MARK>
+FF9C FF9E 30FD ; [.3901.0020.0011.0002][.0000.0037.0002][.3901.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER WA, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA ITERATION MARK>
+30F7 30FE ; [.3901.0020.0011.0002][.0000.0037.0002][.3901.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER VA, KATAKANA VOICED ITERATION MARK>
+30EF 3099 30FE ; [.3901.0020.0011.0002][.0000.0037.0002][.3901.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER WA, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA VOICED ITERATION MARK>
+FF9C FF9E 30FE ; [.3901.0020.0011.0002][.0000.0037.0002][.3901.0020.0010.0002][.0000.0037.0002] # <HALFWIDTH KATAKANA LETTER WA, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA VOICED ITERATION MARK>
+30F8 30FD ; [.3902.0020.0011.0002][.0000.0037.0002][.3902.0020.0010.0002] # <KATAKANA LETTER VI, KATAKANA ITERATION MARK>
+30F0 3099 30FD ; [.3902.0020.0011.0002][.0000.0037.0002][.3902.0020.0010.0002] # <KATAKANA LETTER WI, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA ITERATION MARK>
+30F8 30FE ; [.3902.0020.0011.0002][.0000.0037.0002][.3902.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER VI, KATAKANA VOICED ITERATION MARK>
+30F0 3099 30FE ; [.3902.0020.0011.0002][.0000.0037.0002][.3902.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER WI, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA VOICED ITERATION MARK>
+30F9 30FD ; [.3903.0020.0011.0002][.0000.0037.0002][.3903.0020.0010.0002] # <KATAKANA LETTER VE, KATAKANA ITERATION MARK>
+30F1 3099 30FD ; [.3903.0020.0011.0002][.0000.0037.0002][.3903.0020.0010.0002] # <KATAKANA LETTER WE, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA ITERATION MARK>
+30F9 30FE ; [.3903.0020.0011.0002][.0000.0037.0002][.3903.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER VE, KATAKANA VOICED ITERATION MARK>
+30F1 3099 30FE ; [.3903.0020.0011.0002][.0000.0037.0002][.3903.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER WE, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA VOICED ITERATION MARK>
+30FA 30FD ; [.3904.0020.0011.0002][.0000.0037.0002][.3904.0020.0010.0002] # <KATAKANA LETTER VO, KATAKANA ITERATION MARK>
+30F2 3099 30FD ; [.3904.0020.0011.0002][.0000.0037.0002][.3904.0020.0010.0002] # <KATAKANA LETTER WO, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA ITERATION MARK>
+FF66 FF9E 30FD ; [.3904.0020.0011.0002][.0000.0037.0002][.3904.0020.0010.0002] # <HALFWIDTH KATAKANA LETTER WO, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA ITERATION MARK>
+30FA 30FE ; [.3904.0020.0011.0002][.0000.0037.0002][.3904.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER VO, KATAKANA VOICED ITERATION MARK>
+30F2 3099 30FE ; [.3904.0020.0011.0002][.0000.0037.0002][.3904.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER WO, COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK, KATAKANA VOICED ITERATION MARK>
+FF66 FF9E 30FE ; [.3904.0020.0011.0002][.0000.0037.0002][.3904.0020.0010.0002][.0000.0037.0002] # <HALFWIDTH KATAKANA LETTER WO, HALFWIDTH KATAKANA VOICED SOUND MARK, KATAKANA VOICED ITERATION MARK>
+31F0 30FD ; [.38DC.0020.000F][.38DC.0020.0010.0002] # <KATAKANA LETTER SMALL KU, KATAKANA ITERATION MARK>
+31F0 30FE ; [.38DC.0020.000F][.38DC.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER SMALL KU, KATAKANA VOICED ITERATION MARK>
+31F1 30FD ; [.38E0.0020.000F][.38E0.0020.0010.0002] # <KATAKANA LETTER SMALL SI, KATAKANA ITERATION MARK>
+31F1 30FE ; [.38E0.0020.000F][.38E0.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER SMALL SI, KATAKANA VOICED ITERATION MARK>
+31F2 30FD ; [.38E1.0020.000F][.38E1.0020.0010.0002] # <KATAKANA LETTER SMALL SU, KATAKANA ITERATION MARK>
+31F2 30FE ; [.38E1.0020.000F][.38E1.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER SMALL SU, KATAKANA VOICED ITERATION MARK>
+31F3 30FD ; [.38E8.0020.000F][.38E8.0020.0010.0002] # <KATAKANA LETTER SMALL TO, KATAKANA ITERATION MARK>
+31F3 30FE ; [.38E8.0020.000F][.38E8.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER SMALL TO, KATAKANA VOICED ITERATION MARK>
+31F4 30FD ; [.38EB.0020.000F][.38EB.0020.0010.0002] # <KATAKANA LETTER SMALL NU, KATAKANA ITERATION MARK>
+31F5 30FD ; [.38EE.0020.000F][.38EE.0020.0010.0002] # <KATAKANA LETTER SMALL HA, KATAKANA ITERATION MARK>
+31F5 30FE ; [.38EE.0020.000F][.38EE.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER SMALL HA, KATAKANA VOICED ITERATION MARK>
+31F6 30FD ; [.38EF.0020.000F][.38EF.0020.0010.0002] # <KATAKANA LETTER SMALL HI, KATAKANA ITERATION MARK>
+31F6 30FE ; [.38EF.0020.000F][.38EF.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER SMALL HI, KATAKANA VOICED ITERATION MARK>
+31F7 30FD ; [.38F0.0020.000F][.38F0.0020.0010.0002] # <KATAKANA LETTER SMALL HU, KATAKANA ITERATION MARK>
+31F7 30FE ; [.38F0.0020.000F][.38F0.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER SMALL HU, KATAKANA VOICED ITERATION MARK>
+31F8 30FD ; [.38F1.0020.000F][.38F1.0020.0010.0002] # <KATAKANA LETTER SMALL HE, KATAKANA ITERATION MARK>
+31F8 30FE ; [.38F1.0020.000F][.38F1.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER SMALL HE, KATAKANA VOICED ITERATION MARK>
+31F9 30FD ; [.38F2.0020.000F][.38F2.0020.0010.0002] # <KATAKANA LETTER SMALL HO, KATAKANA ITERATION MARK>
+31F9 30FE ; [.38F2.0020.000F][.38F2.0020.0010.0002][.0000.0037.0002] # <KATAKANA LETTER SMALL HO, KATAKANA VOICED ITERATION MARK>
+31FA 30FD ; [.38F5.0020.000F][.38F5.0020.0010.0002] # <KATAKANA LETTER SMALL MU, KATAKANA ITERATION MARK>
+31FB 30FD ; [.38FC.0020.000F][.38FC.0020.0010.0002] # <KATAKANA LETTER SMALL RA, KATAKANA ITERATION MARK>
+31FC 30FD ; [.38FD.0020.000F][.38FD.0020.0010.0002] # <KATAKANA LETTER SMALL RI, KATAKANA ITERATION MARK>
+31FD 30FD ; [.38FE.0020.000F][.38FE.0020.0010.0002] # <KATAKANA LETTER SMALL RU, KATAKANA ITERATION MARK>
+31FE 30FD ; [.38FF.0020.000F][.38FF.0020.0010.0002] # <KATAKANA LETTER SMALL RE, KATAKANA ITERATION MARK>
+31FF 30FD ; [.3900.0020.000F][.3900.0020.0010.0002] # <KATAKANA LETTER SMALL RO, KATAKANA ITERATION MARK>
+F967      ; [.8961.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F967
+FA70      ; [.89AD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA70
+F905      ; [.828D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F905
+2F801     ; [.81B4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F801
+F95E      ; [.8709.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F95E
+F91B      ; [.8BA0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F91B
+F9BA      ; [.8B1E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9BA
+F977      ; [.8B1F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F977
+F9FD      ; [.84DF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9FD
+F9A8      ; [.8B44.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9A8
+F92D      ; [.8BC8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F92D
+F9B5      ; [.8B46.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9B5
+FA30      ; [.897B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA30
+2F805     ; [.897B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F805
+F965      ; [.89C3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F965
+F9D4      ; [.8B34.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9D4
+2F809     ; [.8926.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F809
+2F80B     ; [.8699.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F80B
+F9BB      ; [.8B20.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9BB
+FA31      ; [.866B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA31
+2F80A     ; [.866B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F80A
+FA0C      ; [.8C0C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA0C
+FA74      ; [.84E1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA74
+FA32      ; [.8A6F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA32
+2F80E     ; [.8A6F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F80E
+2F80F     ; [.8C0F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F80F
+FA72      ; [.8651.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA72
+F978      ; [.8C12.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F978
+F9D1      ; [.8B7C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9D1
+2F811     ; [.8284.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F811
+FA75      ; [.8C15.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA75
+2F815     ; [.83D1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F815
+2F8D2     ; [.8A0A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8D2
+2F8D3     ; [.8C1D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8D3
+2F817     ; [.856C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F817
+2F818     ; [.8C1F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F818
+2F81A     ; [.87F4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F81A
+FA71      ; [.8C29.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA71
+2F81B     ; [.8C29.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F81B
+F92E      ; [.8B47.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F92E
+F979      ; [.8C2C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F979
+F955      ; [.8B22.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F955
+F954      ; [.98D1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F954
+2F81D     ; [.8C33.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F81D
+2F81E     ; [.85B0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F81E
+FA00      ; [.8619.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA00
+2F850     ; [.8619.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F850
+F99C      ; [.8B56.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F99C
+F9DD      ; [.8AFD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9DD
+F9FF      ; [.8432.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9FF
+2F820     ; [.839C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F820
+2F822     ; [.815D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F822
+F9C7      ; [.8B10.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9C7
+F98A      ; [.8B32.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F98A
+F99D      ; [.8B57.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F99D
+FA76      ; [.8AAB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA76
+2F825     ; [.8AAB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F825
+FA33      ; [.89C4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA33
+2F826     ; [.89C4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F826
+F952      ; [.9789.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F952
+F92F      ; [.8C59.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F92F
+FA34      ; [.8263.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA34
+2F827     ; [.8263.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F827
+F97F      ; [.8C5F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F97F
+FA77      ; [.84A2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA77
+2F828     ; [.84A2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F828
+2F829     ; [.89DC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F829
+2F82A     ; [.8C62.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F82A
+F963      ; [.8A15.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F963
+2F82B     ; [.8A15.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F82B
+F9EB      ; [.8832.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9EB
+2F82C     ; [.8C73.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F82C
+FA35      ; [.890B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA35
+2F82D     ; [.890B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F82D
+2F82E     ; [.88BF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F82E
+2F82F     ; [.86A3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F82F
+F91C      ; [.8AF6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F91C
+2F831     ; [.823D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F831
+2F832     ; [.823D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F832
+2F833     ; [.823D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F833
+F96B      ; [.8C84.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F96B
+2F836     ; [.820F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F836
+2F837     ; [.8C87.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F837
+F906      ; [.827A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F906
+2F839     ; [.823E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F839
+2F83A     ; [.847F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F83A
+F9DE      ; [.8AFE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9DE
+F9ED      ; [.8C97.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9ED
+2F83D     ; [.8210.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F83D
+F980      ; [.8B65.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F980
+2F83E     ; [.879F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F83E
+2F83F     ; [.84C5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F83F
+2F840     ; [.8CA8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F840
+F99E      ; [.8055.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F99E
+2F842     ; [.87F7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F842
+2F843     ; [.82AD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F843
+2F844     ; [.8CC0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F844
+2F845     ; [.864E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F845
+2F846     ; [.864E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F846
+F90B      ; [.8CD7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F90B
+FA7A      ; [.8CCA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA7A
+2F847     ; [.8CCA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F847
+FA36      ; [.815E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA36
+FA78      ; [.815E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA78
+2F848     ; [.81FF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F848
+FA37      ; [.870B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA37
+2F84C     ; [.870B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F84C
+FA38      ; [.81C6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA38
+2F84F     ; [.8999.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F84F
+F9A9      ; [.8D08.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9A9
+2F84B     ; [.8D12.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F84B
+2F855     ; [.82B0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F855
+2F852     ; [.856E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F852
+2F853     ; [.8580.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F853
+2F857     ; [.89DE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F857
+FA39      ; [.89A8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA39
+FA10      ; [.8784.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA10
+FA7C      ; [.8784.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA7C
+F96C      ; [.83D4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F96C
+FA3A      ; [.8A18.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA3A
+FA7D      ; [.899A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA7D
+F94A      ; [.8D4A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F94A
+F942      ; [.8D4E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F942
+2F851     ; [.8671.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F851
+2F85A     ; [.88B5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F85A
+2F85B     ; [.8792.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F85B
+2F85D     ; [.86BA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F85D
+2F85E     ; [.8A5B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F85E
+FA7E      ; [.809F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA7E
+F90C      ; [.8853.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F90C
+F909      ; [.82B1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F909
+FA7F      ; [.8A24.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA7F
+2F85F     ; [.8D66.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F85F
+F981      ; [.851C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F981
+FA80      ; [.8D83.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA80
+2F866     ; [.8965.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F866
+2F86A     ; [.8D99.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F86A
+2F86B     ; [.8D99.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F86B
+FA04      ; [.86EB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA04
+2F86D     ; [.8DAD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F86D
+F95F      ; [.887C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F95F
+F9AA      ; [.887C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9AA
+2F86F     ; [.887C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F86F
+F9BC      ; [.8B23.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9BC
+2F870     ; [.8DBA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F870
+2F872     ; [.84BE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F872
+2F873     ; [.8530.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F873
+2F875     ; [.8DC1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F875
+F9BD      ; [.8873.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9BD
+2F877     ; [.87E0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F877
+FA3B      ; [.8675.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA3B
+F9DF      ; [.8AFF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9DF
+FA3C      ; [.8DCD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA3C
+2F878     ; [.8DCD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F878
+F9D5      ; [.8DEE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9D5
+F921      ; [.8AF7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F921
+F9AB      ; [.8B49.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9AB
+2F881     ; [.8509.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F881
+2F884     ; [.8700.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F884
+2F886     ; [.8A02.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F886
+F98E      ; [.8880.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F98E
+FA01      ; [.87EE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA01
+2F88D     ; [.8513.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F88D
+F9A2      ; [.8B5A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9A2
+F928      ; [.8B6E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F928
+2F88E     ; [.8B6E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F88E
+FA0B      ; [.8140.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA0B
+F982      ; [.8E30.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F982
+2F890     ; [.8E36.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F890
+F943      ; [.8B6F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F943
+2F874     ; [.880B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F874
+2F899     ; [.82B2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F899
+FA84      ; [.83D7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA84
+2F89A     ; [.875D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F89A
+F9D8      ; [.8B0A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9D8
+F966      ; [.8989.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F966
+FA85      ; [.8E5A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA85
+2F89D     ; [.8877.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F89D
+2F89E     ; [.843F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F89E
+F9A3      ; [.8881.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9A3
+F960      ; [.87F1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F960
+F9AC      ; [.8B4A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9AC
+FA6B      ; [.82B4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA6B
+2F8A0     ; [.8E80.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8A0
+FA3D      ; [.8114.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA3D
+2F8A3     ; [.8114.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8A3
+2F8A5     ; [.884A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8A5
+FA86      ; [.8E95.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA86
+F9B9      ; [.8E8C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9B9
+FA88      ; [.8AA3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA88
+F9D9      ; [.8EAF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9D9
+2F8A6     ; [.8465.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8A6
+2F8A7     ; [.835F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8A7
+2F8A9     ; [.835F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8A9
+FA87      ; [.8596.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA87
+2F8A8     ; [.8596.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8A8
+FA3E      ; [.812D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA3E
+FA3F      ; [.869B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA3F
+FA89      ; [.869B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA89
+2F8AB     ; [.869B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8AB
+F98F      ; [.8B5C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F98F
+2F8AD     ; [.899B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8AD
+2F8AC     ; [.82EC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8AC
+FA40      ; [.875F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA40
+FA8B      ; [.875F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA8B
+2F8B0     ; [.875F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8B0
+F90D      ; [.8ED5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F90D
+2F8B1     ; [.8ED5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8B1
+F990      ; [.8EDC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F990
+2F8B2     ; [.85ED.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8B2
+2F8B3     ; [.8EE2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8B3
+F9D2      ; [.8EE6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9D2
+FA8C      ; [.86D2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA8C
+2F8B5     ; [.89E5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8B5
+F925      ; [.8F09.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F925
+F95B      ; [.8EFE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F95B
+FA02      ; [.86EE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA02
+2F8B6     ; [.8EF8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8B6
+F973      ; [.84CB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F973
+2F8B9     ; [.8903.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8B9
+2F8B7     ; [.8F12.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8B7
+2F8BB     ; [.8495.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8BB
+F9A4      ; [.8882.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9A4
+2F8BC     ; [.867A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8BC
+F975      ; [.8B0E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F975
+2F8C1     ; [.80A3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8C1
+FA8D      ; [.8F2B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA8D
+FA8E      ; [.8F15.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA8E
+2F8C3     ; [.8A29.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8C3
+F991      ; [.8883.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F991
+FA41      ; [.895F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA41
+2F8C8     ; [.895F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8C8
+FA90      ; [.8F64.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA90
+2F8C9     ; [.82BA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8C9
+F969      ; [.8F6B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F969
+F9BE      ; [.8B24.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9BE
+F983      ; [.8B1C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F983
+FA42      ; [.81D2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA42
+F9E0      ; [.8036.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E0
+2F8CD     ; [.8F89.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8CD
+FA12      ; [.85F1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA12
+FA91      ; [.85F1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA91
+F9C5      ; [.8F94.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9C5
+FA43      ; [.8510.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA43
+2F8CF     ; [.8510.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8CF
+FA06      ; [.8A06.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA06
+F901      ; [.8366.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F901
+2F8CC     ; [.8516.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8CC
+2F8D4     ; [.83D2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8D4
+F929      ; [.8B70.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F929
+FA92      ; [.8B70.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA92
+2F8D8     ; [.8B70.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8D8
+FA93      ; [.8A07.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA93
+2F8D9     ; [.8A07.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8D9
+F9E1      ; [.8B00.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E1
+2F8DC     ; [.84A4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8DC
+FA94      ; [.8576.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA94
+2F8DB     ; [.8FB7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8DB
+2F8E0     ; [.8FC5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8E0
+F9F4      ; [.8B36.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9F4
+F9C9      ; [.8A9F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9C9
+F9DA      ; [.829B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9DA
+F97A      ; [.8B25.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F97A
+FA44      ; [.88B0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA44
+2F8E2     ; [.88B0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8E2
+F9E2      ; [.8B01.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E2
+F914      ; [.9037.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F914
+F95C      ; [.9037.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F95C
+F9BF      ; [.9037.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9BF
+F94C      ; [.9048.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F94C
+F931      ; [.8B67.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F931
+2F8ED     ; [.828E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8ED
+F91D      ; [.8AF8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F91D
+2F8EF     ; [.8468.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8EF
+2F8F1     ; [.907B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8F1
+FA95      ; [.9080.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA95
+F970      ; [.840F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F970
+FA96      ; [.840F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA96
+2F8F5     ; [.840F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8F5
+2F8F6     ; [.8145.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8F6
+2F8FA     ; [.88F5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8FA
+F972      ; [.8777.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F972
+2F8FC     ; [.80A5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8FC
+F968      ; [.8916.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F968
+F9E3      ; [.87BA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E3
+F915      ; [.8AF1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F915
+FA05      ; [.8829.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA05
+2F900     ; [.889A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F900
+F9CA      ; [.8B11.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9CA
+FA97      ; [.8B11.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA97
+2F902     ; [.8B11.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F902
+2F903     ; [.836D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F903
+F92A      ; [.8B73.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F92A
+FA45      ; [.811D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA45
+2F901     ; [.811D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F901
+2F904     ; [.859C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F904
+2F905     ; [.90D2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F905
+F9F5      ; [.8B37.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9F5
+F9D6      ; [.90E5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9D6
+2F90E     ; [.90D3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F90E
+FA46      ; [.8512.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA46
+2F908     ; [.836E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F908
+2F909     ; [.90E8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F909
+F9CB      ; [.8B12.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9CB
+F9EC      ; [.87C3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9EC
+FA99      ; [.8469.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA99
+2F90B     ; [.8469.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F90B
+F904      ; [.8163.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F904
+F94E      ; [.8B74.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F94E
+FA47      ; [.8198.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA47
+FA9A      ; [.8198.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA9A
+F992      ; [.8B5D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F992
+2F90F     ; [.8763.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F90F
+2F912     ; [.912F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F912
+F922      ; [.8AF9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F922
+F984      ; [.913F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F984
+2F915     ; [.9140.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F915
+FA9B      ; [.8847.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA9B
+2F914     ; [.8847.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F914
+2F835     ; [.811E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F835
+2F918     ; [.83DD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F918
+F9FB      ; [.914B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9FB
+2F91A     ; [.8713.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F91A
+F99F      ; [.8B58.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F99F
+F916      ; [.9156.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F916
+F993      ; [.8B5E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F993
+FA48      ; [.8498.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA48
+FA9C      ; [.8498.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA9C
+F9C0      ; [.916F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9C0
+F9EE      ; [.8B38.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9EE
+F932      ; [.9178.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F932
+F91E      ; [.9179.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F91E
+2F920     ; [.917A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F920
+FA9E      ; [.84A6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA9E
+2F921     ; [.84A6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F921
+F946      ; [.8B75.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F946
+2F924     ; [.83DF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F924
+FA9F      ; [.88F7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA9F
+F92B      ; [.8B76.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F92B
+FA16      ; [.874F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA16
+FAA0      ; [.874F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAA0
+F9A7      ; [.91AE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9A7
+2F928     ; [.91B0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F928
+F961      ; [.8B0B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F961
+F9DB      ; [.8B0B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9DB
+2F929     ; [.80C1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F929
+F9AD      ; [.8B4B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9AD
+F917      ; [.91B8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F917
+F9E4      ; [.8B02.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E4
+F9CC      ; [.8B13.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9CC
+FA4A      ; [.86F1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA4A
+2F92F     ; [.91C5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F92F
+F9AE      ; [.91C6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9AE
+2F932     ; [.91CF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F932
+FAA3      ; [.8103.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAA3
+F9CD      ; [.8B14.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9CD
+F976      ; [.8B0F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F976
+F962      ; [.803A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F962
+2F938     ; [.803A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F938
+F9E5      ; [.8B04.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E5
+FAA5      ; [.921B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAA5
+F9C1      ; [.8B28.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9C1
+F90E      ; [.922C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F90E
+FA17      ; [.8094.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA17
+FAA6      ; [.8094.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAA6
+FAA7      ; [.85F8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAA7
+F933      ; [.924A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F933
+FAA8      ; [.8775.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAA8
+2F940     ; [.8775.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F940
+F96D      ; [.854D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F96D
+2F945     ; [.9253.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F945
+2F946     ; [.85A0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F946
+2F947     ; [.85A0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F947
+FAAA      ; [.873E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAAA
+2F94A     ; [.9263.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F94A
+F9CE      ; [.8B15.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9CE
+F93B      ; [.9281.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F93B
+2F94F     ; [.9281.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F94F
+FA4B      ; [.8919.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA4B
+F947      ; [.928D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F947
+F985      ; [.927A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F985
+FA18      ; [.8B4C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA18
+FA4C      ; [.8499.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA4C
+FA4E      ; [.81DC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA4E
+FA4D      ; [.844C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA4D
+FA4F      ; [.8AB9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA4F
+FA50      ; [.8661.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA50
+2F953     ; [.8661.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F953
+FA51      ; [.84F0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA51
+FA19      ; [.85A1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA19
+FA1A      ; [.8550.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA1A
+F93C      ; [.92A1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F93C
+FA52      ; [.80ED.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA52
+FA53      ; [.87AE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA53
+FA1B      ; [.898C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA1B
+2F956     ; [.898C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F956
+F9B6      ; [.92A7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9B6
+F956      ; [.8B2A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F956
+FA54      ; [.839F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA54
+2F959     ; [.839F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F959
+2F95B     ; [.80D5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F95B
+FA55      ; [.8840.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA55
+F9F7      ; [.8B0C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9F7
+F9F8      ; [.8157.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9F8
+FA56      ; [.8620.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA56
+FAAD      ; [.8620.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAAD
+2F962     ; [.930B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F962
+2F963     ; [.8734.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F963
+F9A6      ; [.8B5F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9A6
+F944      ; [.9312.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F944
+F9F9      ; [.8B16.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9F9
+FA1D      ; [.85F9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA1D
+2F966     ; [.9341.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F966
+FA03      ; [.8811.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA03
+F97B      ; [.8B2B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F97B
+2F96A     ; [.81DF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F96A
+F9CF      ; [.8940.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9CF
+F96A      ; [.8402.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F96A
+F94F      ; [.8B42.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F94F
+FAAF      ; [.9360.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAAF
+2F96C     ; [.935D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F96C
+F957      ; [.801C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F957
+2F96E     ; [.9368.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F96E
+F996      ; [.8B60.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F996
+FA57      ; [.8B60.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA57
+FAB0      ; [.8B60.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAB0
+FA58      ; [.9380.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA58
+F950      ; [.9389.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F950
+FA59      ; [.88FA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA59
+FA5A      ; [.8515.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA5A
+F9E6      ; [.8ED1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E6
+F90F      ; [.8AEA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F90F
+F9AF      ; [.93C1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9AF
+FA1E      ; [.8066.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA1E
+F934      ; [.8B78.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F934
+FA5B      ; [.849B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA5B
+FAB2      ; [.849B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAB2
+2F97A     ; [.849B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F97A
+F9B0      ; [.93E1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9B0
+F997      ; [.8B61.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F997
+2F97F     ; [.93EA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F97F
+F945      ; [.8B79.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F945
+F953      ; [.8B7F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F953
+2F8D6     ; [.93F5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8D6
+2F982     ; [.8048.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F982
+2F985     ; [.9409.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F985
+F926      ; [.942A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F926
+F9F6      ; [.8B3A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9F6
+FA5C      ; [.84D2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA5C
+2F893     ; [.9433.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F893
+2F98B     ; [.9433.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F98B
+FA6D      ; [.81B3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA6D
+F97C      ; [.8B2C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F97C
+2F990     ; [.8051.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F990
+2F991     ; [.848E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F991
+2F993     ; [.80F1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F993
+2F994     ; [.89F0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F994
+2F995     ; [.8105.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F995
+F974      ; [.84AA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F974
+2F998     ; [.84AA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F998
+2F996     ; [.827F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F996
+2F99C     ; [.9478.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F99C
+F9FE      ; [.873C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9FE
+FAB3      ; [.8380.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAB3
+2F99D     ; [.9493.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F99D
+2F9A1     ; [.81FB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9A1
+2F9A2     ; [.8270.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9A2
+2F9A3     ; [.83E5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9A3
+FAB4      ; [.80F5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAB4
+F958      ; [.8936.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F958
+F918      ; [.8AF3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F918
+F96E      ; [.8ADA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F96E
+FA5F      ; [.8751.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA5F
+2F99F     ; [.8751.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F99F
+F999      ; [.8B62.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F999
+F9C2      ; [.94BE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9C2
+F923      ; [.8AFA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F923
+F9F0      ; [.94E4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9F0
+F935      ; [.94E5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F935
+F91F      ; [.8AFB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F91F
+F910      ; [.94E9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F910
+2F9B3     ; [.8209.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9B3
+F936      ; [.8B1D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F936
+2F9B4     ; [.8B1D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9B4
+2F9B5     ; [.94EE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9B5
+2F9B7     ; [.94F2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9B7
+F911      ; [.8AEB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F911
+FA08      ; [.8381.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA08
+2F9C4     ; [.8040.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9C4
+F9A0      ; [.8B59.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9A0
+F9E7      ; [.8B05.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E7
+F9E8      ; [.8B06.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E8
+F912      ; [.8AEC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F912
+FA60      ; [.8165.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA60
+FAB6      ; [.9576.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAB6
+F924      ; [.9580.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F924
+FAB7      ; [.898F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAB7
+FA0A      ; [.82FA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA0A
+FA61      ; [.8454.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA61
+FAB8      ; [.8454.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAB8
+2F9CF     ; [.85FE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9CF
+FAB9      ; [.876B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAB9
+FABB      ; [.8600.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FABB
+F97D      ; [.8B2D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F97D
+F941      ; [.8B81.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F941
+FABE      ; [.8AA6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FABE
+2F9D0     ; [.8AA6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9D0
+FA22      ; [.8519.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA22
+FABA      ; [.8519.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FABA
+F95D      ; [.86F5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F95D
+FABD      ; [.86F5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FABD
+FA62      ; [.8097.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA62
+FABC      ; [.8097.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FABC
+FA63      ; [.8273.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA63
+FABF      ; [.8273.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FABF
+F9FC      ; [.8478.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9FC
+F95A      ; [.95E2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F95A
+FAC0      ; [.8F6E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAC0
+2F9D1     ; [.8F6E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9D1
+F900      ; [.95ED.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F900
+2F9D2     ; [.95F1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9D2
+2F9D4     ; [.81AA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9D4
+2F9D5     ; [.9608.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9D5
+F948      ; [.8B69.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F948
+F903      ; [.9607.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F903
+FA64      ; [.895D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA64
+FA65      ; [.869E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA65
+FAC1      ; [.869E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAC1
+2F9D7     ; [.81E4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9D7
+2F9DA     ; [.9629.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9DA
+F937      ; [.8B6A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F937
+F902      ; [.849D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F902
+F998      ; [.966D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F998
+F9D7      ; [.8B3B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9D7
+FAC2      ; [.8AA7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAC2
+2F9DF     ; [.8AA7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9DF
+FA07      ; [.966F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA07
+F98D      ; [.967A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F98D
+2F98D     ; [.8474.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F98D
+F971      ; [.86FD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F971
+F99A      ; [.8B63.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F99A
+FA25      ; [.804E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA25
+FA67      ; [.804E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA67
+FAC3      ; [.96A7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAC3
+F9C3      ; [.8B2E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9C3
+F913      ; [.96AE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F913
+F92C      ; [.8B7B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F92C
+FA26      ; [.87E9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA26
+F919      ; [.8AF4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F919
+F9B7      ; [.96CC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9B7
+F9E9      ; [.8B07.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E9
+F97E      ; [.8B2F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F97E
+F90A      ; [.8275.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F90A
+F9B1      ; [.8B4E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9B1
+2F9EE     ; [.8124.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9EE
+F986      ; [.9739.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F986
+F9C6      ; [.974C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9C6
+F951      ; [.9751.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F951
+FA09      ; [.838C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA09
+F959      ; [.8B30.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F959
+F9D3      ; [.8B09.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9D3
+F9DC      ; [.8B17.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9DC
+F9F1      ; [.8B3C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9F1
+FA2F      ; [.8B4F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA2F
+F9B8      ; [.9765.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9B8
+F9EA      ; [.8B08.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9EA
+FA68      ; [.8864.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA68
+FAC7      ; [.8864.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAC7
+F9B2      ; [.8B50.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9B2
+F949      ; [.8AF0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F949
+F938      ; [.8B6B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F938
+F9B3      ; [.9781.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9B3
+FA1C      ; [.8A9E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA1C
+FAC8      ; [.8A9E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAC8
+FA69      ; [.8254.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA69
+FACA      ; [.8254.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FACA
+F9B4      ; [.8B31.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9B4
+FA6A      ; [.895E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA6A
+FACC      ; [.895E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FACC
+F9D0      ; [.8B43.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9D0
+2FA02     ; [.81E7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA02
+FA2A      ; [.8902.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA2A
+FA2B      ; [.845D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA2B
+FA2C      ; [.81B2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA2C
+F91A      ; [.97E3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F91A
+F987      ; [.97FD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F987
+F939      ; [.8B66.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F939
+F9F2      ; [.8B3D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9F2
+FA2D      ; [.8798.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA2D
+F93A      ; [.83F8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F93A
+F920      ; [.9890.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F920
+F940      ; [.8476.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F940
+F988      ; [.8B52.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F988
+F9F3      ; [.8B3E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9F3
+2FA15     ; [.8A2C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA15
+F989      ; [.98A3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F989
+2FA17     ; [.98B1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA17
+2FA1C     ; [.892E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA1C
+F9C4      ; [.8B19.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9C4
+F907      ; [.98CB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F907
+F908      ; [.98CB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F908
+FACE      ; [.98CB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FACE
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/kk.pl b/lib/5.24.1/Unicode/Collate/Locale/kk.pl
new file mode 100644
index 00000000..4d605ba2
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/kk.pl
@@ -0,0 +1,53 @@
++{
+   locale_version => 1.14,
+   suppress => [0x0410, 0x0430, 0x04D8, 0x04D9, 0x0413, 0x0433, 0x0415, 0x0435,
+		0x0416, 0x0436, 0x0417, 0x0437, 0x0406, 0x0456, 0x041E, 0x043E,
+		0x04E8, 0x04E9, 0x041A, 0x043A, 0x0423, 0x0443, 0x0427, 0x0447,
+		0x042B, 0x044B, 0x042D, 0x044D, 0x0474, 0x0475],
+   entry => <<'ENTRY', # for DUCET v7.0.0
+0451      ; [.1D29.0020.0002] # CYRILLIC SMALL LETTER IO
+0435 0308 ; [.1D29.0020.0002] # CYRILLIC SMALL LETTER IO
+0401      ; [.1D29.0020.0008] # CYRILLIC CAPITAL LETTER IO
+0415 0308 ; [.1D29.0020.0008] # CYRILLIC CAPITAL LETTER IO
+04AF      ; [.1E20.0020.0002] # CYRILLIC SMALL LETTER STRAIGHT U
+04AE      ; [.1E20.0020.0008] # CYRILLIC CAPITAL LETTER STRAIGHT U
+0456      ; [.1E99.0020.0002] # CYRILLIC SMALL LETTER BYELORUSSIAN-UKRAINIAN I
+0406      ; [.1E99.0020.0008] # CYRILLIC CAPITAL LETTER BYELORUSSIAN-UKRAINIAN I
+04D1      ; [.1CE0.0020.0002][.0000.0026.0002] # CYRILLIC SMALL LETTER A WITH BREVE
+04D0      ; [.1CE0.0020.0008][.0000.0026.0002] # CYRILLIC CAPITAL LETTER A WITH BREVE
+04D3      ; [.1CE0.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER A WITH DIAERESIS
+04D2      ; [.1CE0.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER A WITH DIAERESIS
+04DB      ; [.1CEC.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER SCHWA WITH DIAERESIS
+04DA      ; [.1CEC.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER SCHWA WITH DIAERESIS
+0453      ; [.1D00.0020.0002][.0000.0024.0002] # CYRILLIC SMALL LETTER GJE
+0403      ; [.1D00.0020.0008][.0000.0024.0002] # CYRILLIC CAPITAL LETTER GJE
+04D7      ; [.1D28.0020.0002][.0000.0026.0002] # CYRILLIC SMALL LETTER IE WITH BREVE
+04D6      ; [.1D28.0020.0008][.0000.0026.0002] # CYRILLIC CAPITAL LETTER IE WITH BREVE
+04DD      ; [.1D34.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER ZHE WITH DIAERESIS
+04DC      ; [.1D34.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER ZHE WITH DIAERESIS
+04DF      ; [.1D42.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER ZE WITH DIAERESIS
+04DE      ; [.1D42.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER ZE WITH DIAERESIS
+0457      ; [.1E99.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER YI
+0407      ; [.1E99.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER YI
+04E7      ; [.1DC9.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER O WITH DIAERESIS
+04E6      ; [.1DC9.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER O WITH DIAERESIS
+04EB      ; [.1DD1.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER BARRED O WITH DIAERESIS
+04EA      ; [.1DD1.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER BARRED O WITH DIAERESIS
+045C      ; [.1D78.0020.0002][.0000.0024.0002] # CYRILLIC SMALL LETTER KJE
+040C      ; [.1D78.0020.0008][.0000.0024.0002] # CYRILLIC CAPITAL LETTER KJE
+045E      ; [.1E0B.0020.0002][.0000.0026.0002] # CYRILLIC SMALL LETTER SHORT U
+040E      ; [.1E0B.0020.0008][.0000.0026.0002] # CYRILLIC CAPITAL LETTER SHORT U
+04F1      ; [.1E0B.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER U WITH DIAERESIS
+04F0      ; [.1E0B.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER U WITH DIAERESIS
+04F3      ; [.1E0B.0020.0002][.0000.002C.0002] # CYRILLIC SMALL LETTER U WITH DOUBLE ACUTE
+04F2      ; [.1E0B.0020.0008][.0000.002C.0002] # CYRILLIC CAPITAL LETTER U WITH DOUBLE ACUTE
+04F5      ; [.1E5E.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER CHE WITH DIAERESIS
+04F4      ; [.1E5E.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER CHE WITH DIAERESIS
+04F9      ; [.1E92.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER YERU WITH DIAERESIS
+04F8      ; [.1E92.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER YERU WITH DIAERESIS
+04ED      ; [.1EA7.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER E WITH DIAERESIS
+04EC      ; [.1EA7.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER E WITH DIAERESIS
+0477      ; [.1EDD.0020.0002][.0000.003C.0002] # CYRILLIC SMALL LETTER IZHITSA WITH DOUBLE GRAVE ACCENT
+0476      ; [.1EDD.0020.0008][.0000.003C.0002] # CYRILLIC CAPITAL LETTER IZHITSA WITH DOUBLE GRAVE ACCENT
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/kl.pl b/lib/5.24.1/Unicode/Collate/Locale/kl.pl
new file mode 100644
index 00000000..9cd73f4d
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/kl.pl
@@ -0,0 +1,75 @@
++{
+   locale_version => 1.14,
+   entry => <<'ENTRY', # for DUCET v7.0.0
+0111      ; [.1953.0021.0002] # LATIN SMALL LETTER D WITH STROKE
+0064 0335 ; [.1953.0021.0002] # LATIN SMALL LETTER D WITH STROKE
+0110      ; [.1953.0021.0008] # LATIN CAPITAL LETTER D WITH STROKE
+0044 0335 ; [.1953.0021.0008] # LATIN CAPITAL LETTER D WITH STROKE
+00F0      ; [.1953.0022.0002] # LATIN SMALL LETTER ETH
+1DD9      ; [.1953.0022.0002] # COMBINING LATIN SMALL LETTER ETH
+00D0      ; [.1953.0022.0008] # LATIN CAPITAL LETTER ETH
+0138      ; [.1AE3.0021.0002] # LATIN SMALL LETTER KRA
+004B 0027 ; [.1AE3.0021.0008] # <LATIN CAPITAL LETTER K, APOSTROPHE>
+00FE      ; [.1B57.0020.0003][.19DC.0020.0003] # LATIN SMALL LETTER THORN
+00DE      ; [.1B57.0020.0009][.19DC.0020.0009] # LATIN CAPITAL LETTER THORN
+00FC      ; [.1BCD.0021.0002] # LATIN SMALL LETTER U WITH DIAERESIS
+0075 0308 ; [.1BCD.0021.0002] # LATIN SMALL LETTER U WITH DIAERESIS
+00DC      ; [.1BCD.0021.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS
+0055 0308 ; [.1BCD.0021.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS
+01DC      ; [.1BCD.0021.0002][.0000.0025.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND GRAVE
+01DB      ; [.1BCD.0021.0008][.0000.0025.0002] # LATIN CAPITAL LETTER U WITH DIAERESIS AND GRAVE
+01D8      ; [.1BCD.0021.0002][.0000.0024.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND ACUTE
+01D7      ; [.1BCD.0021.0008][.0000.0024.0002] # LATIN CAPITAL LETTER U WITH DIAERESIS AND ACUTE
+01D6      ; [.1BCD.0021.0002][.0000.0032.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND MACRON
+01D5      ; [.1BCD.0021.0008][.0000.0032.0002] # LATIN CAPITAL LETTER U WITH DIAERESIS AND MACRON
+01DA      ; [.1BCD.0021.0002][.0000.0028.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND CARON
+01D9      ; [.1BCD.0021.0008][.0000.0028.0002] # LATIN CAPITAL LETTER U WITH DIAERESIS AND CARON
+0171      ; [.1BCD.0022.0002] # LATIN SMALL LETTER U WITH DOUBLE ACUTE
+0075 030B ; [.1BCD.0022.0002] # LATIN SMALL LETTER U WITH DOUBLE ACUTE
+0170      ; [.1BCD.0022.0008] # LATIN CAPITAL LETTER U WITH DOUBLE ACUTE
+0055 030B ; [.1BCD.0022.0008] # LATIN CAPITAL LETTER U WITH DOUBLE ACUTE
+00E6      ; [.1C54.0020.0002] # LATIN SMALL LETTER AE
+1DD4      ; [.1C54.0020.0002] # COMBINING LATIN SMALL LETTER AE
+00C6      ; [.1C54.0020.0008] # LATIN CAPITAL LETTER AE
+1D2D      ; [.1C54.0020.0014] # MODIFIER LETTER CAPITAL AE
+01FD      ; [.1C54.0020.0002][.0000.0024.0002] # LATIN SMALL LETTER AE WITH ACUTE
+01FC      ; [.1C54.0020.0008][.0000.0024.0002] # LATIN CAPITAL LETTER AE WITH ACUTE
+01E3      ; [.1C54.0020.0002][.0000.0032.0002] # LATIN SMALL LETTER AE WITH MACRON
+01E2      ; [.1C54.0020.0008][.0000.0032.0002] # LATIN CAPITAL LETTER AE WITH MACRON
+00E4      ; [.1C54.0021.0002] # LATIN SMALL LETTER A WITH DIAERESIS
+0061 0308 ; [.1C54.0021.0002] # LATIN SMALL LETTER A WITH DIAERESIS
+00C4      ; [.1C54.0021.0008] # LATIN CAPITAL LETTER A WITH DIAERESIS
+0041 0308 ; [.1C54.0021.0008] # LATIN CAPITAL LETTER A WITH DIAERESIS
+01DF      ; [.1C54.0021.0002][.0000.0032.0002] # LATIN SMALL LETTER A WITH DIAERESIS AND MACRON
+01DE      ; [.1C54.0021.0008][.0000.0032.0002] # LATIN CAPITAL LETTER A WITH DIAERESIS AND MACRON
+0119      ; [.1C54.0022.0002] # LATIN SMALL LETTER E WITH OGONEK
+0065 0328 ; [.1C54.0022.0002] # LATIN SMALL LETTER E WITH OGONEK
+0118      ; [.1C54.0022.0008] # LATIN CAPITAL LETTER E WITH OGONEK
+0045 0328 ; [.1C54.0022.0008] # LATIN CAPITAL LETTER E WITH OGONEK
+00F8      ; [.1C55.0020.0002] # LATIN SMALL LETTER O WITH STROKE
+006F 0338 ; [.1C55.0020.0002] # LATIN SMALL LETTER O WITH STROKE
+00D8      ; [.1C55.0020.0008] # LATIN CAPITAL LETTER O WITH STROKE
+004F 0338 ; [.1C55.0020.0008] # LATIN CAPITAL LETTER O WITH STROKE
+01FF      ; [.1C55.0020.0002][.0000.0024.0002] # LATIN SMALL LETTER O WITH STROKE AND ACUTE
+01FE      ; [.1C55.0020.0008][.0000.0024.0002] # LATIN CAPITAL LETTER O WITH STROKE AND ACUTE
+00F6      ; [.1C55.0021.0002] # LATIN SMALL LETTER O WITH DIAERESIS
+006F 0308 ; [.1C55.0021.0002] # LATIN SMALL LETTER O WITH DIAERESIS
+00D6      ; [.1C55.0021.0008] # LATIN CAPITAL LETTER O WITH DIAERESIS
+004F 0308 ; [.1C55.0021.0008] # LATIN CAPITAL LETTER O WITH DIAERESIS
+022B      ; [.1C55.0021.0002][.0000.0032.0002] # LATIN SMALL LETTER O WITH DIAERESIS AND MACRON
+022A      ; [.1C55.0021.0008][.0000.0032.0002] # LATIN CAPITAL LETTER O WITH DIAERESIS AND MACRON
+0151      ; [.1C55.0022.0002] # LATIN SMALL LETTER O WITH DOUBLE ACUTE
+006F 030B ; [.1C55.0022.0002] # LATIN SMALL LETTER O WITH DOUBLE ACUTE
+0150      ; [.1C55.0022.0008] # LATIN CAPITAL LETTER O WITH DOUBLE ACUTE
+004F 030B ; [.1C55.0022.0008] # LATIN CAPITAL LETTER O WITH DOUBLE ACUTE
+0153      ; [.1C55.0023.0002] # LATIN SMALL LIGATURE OE
+0152      ; [.1C55.0023.0008] # LATIN CAPITAL LIGATURE OE
+00E5      ; [.1C56.0020.0002] # LATIN SMALL LETTER A WITH RING ABOVE
+0061 030A ; [.1C56.0020.0002] # LATIN SMALL LETTER A WITH RING ABOVE
+00C5      ; [.1C56.0020.0008] # LATIN CAPITAL LETTER A WITH RING ABOVE
+0041 030A ; [.1C56.0020.0008] # LATIN CAPITAL LETTER A WITH RING ABOVE
+212B      ; [.1C56.0020.0008] # ANGSTROM SIGN
+01FB      ; [.1C56.0020.0002][.0000.0024.0002] # LATIN SMALL LETTER A WITH RING ABOVE AND ACUTE
+01FA      ; [.1C56.0020.0008][.0000.0024.0002] # LATIN CAPITAL LETTER A WITH RING ABOVE AND ACUTE
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/kn.pl b/lib/5.24.1/Unicode/Collate/Locale/kn.pl
new file mode 100644
index 00000000..1f1f9e7a
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/kn.pl
@@ -0,0 +1,10 @@
++{
+   locale_version => 1.14,
+   entry => <<'ENTRY', # for DUCET v7.0.0
+0C82      ; [.2549.0020.0002][.FFF1.0000.0000] # KANNADA SIGN ANUSVARA
+0C83      ; [.2549.0020.0002][.FFF2.0000.0000] # KANNADA SIGN VISARGA
+0CF1      ; [.2549.0020.0002][.FFF3.0000.0000] # KANNADA SIGN JIHVAMULIYA
+0CF2      ; [.2549.0020.0002][.FFF4.0000.0000] # KANNADA SIGN UPADHMANIYA
+0C94      ; [.2549.0020.0002][.FFF0.0000.0000] # KANNADA LETTER AU
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/ko.pl b/lib/5.24.1/Unicode/Collate/Locale/ko.pl
new file mode 100644
index 00000000..049f4958
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/ko.pl
@@ -0,0 +1,647 @@
+use Unicode::Collate::CJK::Korean;
++{
+   locale_version => 1.14,
+   overrideCJK => \&Unicode::Collate::CJK::Korean::weightKorean,
+   entry => <<'ENTRY', # for DUCET v7.0.0
+F967      ; [.3776.0021.0002.4E0D][.37FA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F967
+FA70      ; [.3776.0032.0002.4E26][.37F3.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA70
+F905      ; [.376F.0021.0002.4E32][.37F5.0020.0002][.3860.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F905
+2F801     ; [.3781.0021.0002.4E38][.37F6.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F801
+F95E      ; [.3772.0021.0002.4E39][.37ED.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F95E
+F91B      ; [.3774.0021.0002.4E82][.37ED.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F91B
+F9BA      ; [.3774.0021.0002.4E86][.37F9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9BA
+F977      ; [.3774.0021.0002.4EAE][.37EF.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F977
+F9FD      ; [.3778.0021.0002.4EC0][.3801.0020.0002][.385B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9FD
+F9A8      ; [.3774.0021.0002.4EE4][.37F3.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9A8
+F92D      ; [.3774.0021.0002.4F86][.37EE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F92D
+F9B5      ; [.3774.0021.0002.4F8B][.37F4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9B5
+FA30      ; [.3775.0021.0002.4FAE][.37F5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA30
+2F805     ; [.3775.0021.0002.4FAE][.37F5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F805
+2F806     ; [.377F.0023.0002.4FBB][.37ED.0020.0002][.3852.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F806
+F965      ; [.3780.0021.0002.4FBF][.37F3.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F965
+2F807     ; [.3776.0022.0002.5002][.37F3.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F807
+F9D4      ; [.3774.0022.0002.502B][.37FE.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9D4
+2F809     ; [.3776.0022.0002.5099][.3801.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F809
+2F80B     ; [.3778.0023.0002.50CF][.37ED.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F80B
+F9BB      ; [.3774.0022.0002.50DA][.37F9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9BB
+FA31      ; [.3778.0023.0002.50E7][.37FF.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA31
+2F80A     ; [.3778.0023.0002.50E7][.37FF.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F80A
+FA0C      ; [.377A.0021.0002.5140][.37F5.0020.0002][.3852.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA0C
+FA74      ; [.377D.0021.0002.5145][.37FA.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA74
+FA32      ; [.3775.0021.0002.514D][.37F3.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA32
+2F80E     ; [.3775.0021.0002.514D][.37F3.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F80E
+2F814     ; [.3771.0022.0002.5167][.37EE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F814
+FA72      ; [.377B.0024.0002.5168][.37F1.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA72
+F978      ; [.3774.0023.0002.5169][.37EF.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F978
+F9D1      ; [.3774.0021.0002.516D][.37FE.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9D1
+2F811     ; [.376F.0026.0002.5177][.37FA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F811
+FA75      ; [.376F.0024.0002.5180][.3801.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA75
+2F815     ; [.377B.0021.0002.518D][.37EE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F815
+2F8D2     ; [.3775.0022.0002.5192][.37F5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8D2
+2F8D3     ; [.3775.0022.0002.5195][.37F3.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8D3
+2F817     ; [.377A.0023.0002.5197][.37F9.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F817
+2F818     ; [.377A.003B.0002.51A4][.37FB.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F818
+2F81A     ; [.3772.0022.0002.51AC][.37F5.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F81A
+F92E      ; [.3774.0021.0002.51B7][.37EE.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F92E
+F979      ; [.3774.0024.0002.51C9][.37EF.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F979
+F955      ; [.3774.0021.0002.51CC][.37FF.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F955
+F954      ; [.3774.0021.0002.51DC][.37FF.0020.0002][.385A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F954
+FA15      ; [.3781.0022.0002.51DE][.3800.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA15
+2F81E     ; [.377A.0023.0002.5203][.3801.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F81E
+FA00      ; [.377B.0021.0002.5207][.37F1.0020.0002][.3852.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA00
+2F850     ; [.377B.0021.0002.5207][.37F1.0020.0002][.3852.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F850
+F99C      ; [.3774.0022.0002.5217][.37F3.0020.0002][.3852.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F99C
+F9DD      ; [.3774.0022.0002.5229][.3801.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9DD
+F9FF      ; [.377B.0022.0002.523A][.37ED.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9FF
+2F820     ; [.376F.0021.0002.523B][.37ED.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F820
+2F822     ; [.3781.0021.0002.5272][.37ED.0020.0002][.3852.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F822
+2F823     ; [.3778.002D.0002.5277][.37ED.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F823
+F9C7      ; [.3774.0021.0002.5289][.37FE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9C7
+F98A      ; [.3774.0021.0002.529B][.37F3.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F98A
+F99D      ; [.3774.0023.0002.52A3][.37F3.0020.0002][.3852.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F99D
+FA76      ; [.377A.0024.0002.52C7][.37F9.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA76
+2F825     ; [.377A.0024.0002.52C7][.37F9.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F825
+FA33      ; [.3775.0023.0002.52C9][.37F3.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA33
+2F826     ; [.3775.0023.0002.52C9][.37F3.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F826
+F952      ; [.3774.0021.0002.52D2][.37FF.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F952
+F92F      ; [.3774.0021.0002.52DE][.37F5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F92F
+FA34      ; [.376F.0023.0002.52E4][.37FF.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA34
+2F827     ; [.376F.0023.0002.52E4][.37FF.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F827
+F97F      ; [.3774.0023.0002.52F5][.37F3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F97F
+FA77      ; [.377B.0022.0002.52FA][.37ED.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA77
+2F828     ; [.377B.0022.0002.52FA][.37ED.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F828
+2F829     ; [.3780.0022.0002.5305][.37F5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F829
+F963      ; [.3776.0021.0002.5317][.37FA.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F963
+2F82B     ; [.3776.0021.0002.5317][.37FA.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F82B
+F9EB      ; [.3771.0021.0002.533F][.3801.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9EB
+2F82C     ; [.3781.0021.0002.5349][.37FC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F82C
+FA35      ; [.3776.0025.0002.5351][.3801.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA35
+2F82D     ; [.3776.0025.0002.5351][.3801.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F82D
+2F82E     ; [.3776.0022.0002.535A][.37ED.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F82E
+2F82F     ; [.377B.0022.0002.5373][.37FF.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F82F
+F91C      ; [.3774.0022.0002.5375][.37ED.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F91C
+2F830     ; [.377B.0021.0002.537D][.37FF.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F830
+2F831     ; [.376F.0028.0002.537F][.37F3.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F831
+2F832     ; [.376F.0028.0002.537F][.37F3.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F832
+2F833     ; [.376F.0028.0002.537F][.37F3.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F833
+F96B      ; [.377D.0022.0002.53C3][.37ED.0020.0002][.385A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F96B
+2F836     ; [.376F.0022.0002.53CA][.37FF.0020.0002][.385B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F836
+2F837     ; [.3778.005E.0002.53DF][.37FA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F837
+F906      ; [.376F.002A.0002.53E5][.37FA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F906
+2F839     ; [.376F.0021.0002.53EB][.37FE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F839
+2F83A     ; [.377B.0022.0002.53F1][.3801.0020.0002][.3852.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F83A
+F9DE      ; [.3774.0024.0002.540F][.3801.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9DE
+F9ED      ; [.3774.0021.0002.541D][.3801.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9ED
+2F83D     ; [.3781.0021.0002.5438][.37FF.0020.0002][.385B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F83D
+F980      ; [.3774.0024.0002.5442][.37F3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F980
+2F83E     ; [.377B.0026.0002.5448][.37F1.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F83E
+2F83F     ; [.377B.0028.0002.5468][.37FA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F83F
+2F840     ; [.377A.0031.0002.54A2][.37ED.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F840
+F99E      ; [.377A.0025.0002.54BD][.3801.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F99E
+2F842     ; [.3772.0021.0002.5510][.37ED.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F842
+2F843     ; [.376F.0022.0002.5553][.37F4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F843
+2F844     ; [.3781.0024.0002.5563][.37ED.0020.0002][.385A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F844
+2F845     ; [.3778.0024.0002.5584][.37F1.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F845
+2F846     ; [.3778.0024.0002.5584][.37F1.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F846
+F90B      ; [.3774.0021.0002.5587][.37ED.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F90B
+FA7A      ; [.3781.0022.0002.5599][.37FC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA7A
+2F847     ; [.3781.0022.0002.5599][.37FC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F847
+FA36      ; [.376F.0022.0002.559D][.37ED.0020.0002][.3852.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA36
+FA78      ; [.376F.0022.0002.559D][.37ED.0020.0002][.3852.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA78
+2F848     ; [.3770.0021.0002.55AB][.3801.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F848
+FA7B      ; [.377A.0022.0002.55E2][.37F5.0020.0002][.3852.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA7B
+FA37      ; [.377F.0022.0002.5606][.37ED.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA37
+2F84C     ; [.377F.0022.0002.5606][.37ED.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F84C
+FA38      ; [.376F.0026.0002.5668][.3801.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA38
+2F84F     ; [.3776.0023.0002.5674][.37FA.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F84F
+F9A9      ; [.3774.0023.0002.56F9][.37F3.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9A9
+2F84B     ; [.3772.0024.0002.5716][.37F5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F84B
+2F855     ; [.3781.0024.0002.578B][.37F3.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F855
+2F852     ; [.3778.0021.0002.57CE][.37F1.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F852
+2F853     ; [.3778.0021.0002.57F4][.3801.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F853
+2F857     ; [.3776.0023.0002.5831][.37F5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F857
+FA39      ; [.3776.0033.0002.5840][.37F3.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA39
+FA10      ; [.377D.0022.0002.585A][.37F5.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA10
+FA7C      ; [.377D.0022.0002.585A][.37F5.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA7C
+F96C      ; [.3778.0021.0002.585E][.37EE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F96C
+FA3A      ; [.3775.0021.0002.58A8][.37FA.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA3A
+FA7D      ; [.3776.0024.0002.58B3][.37FA.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA7D
+F94A      ; [.3774.0021.0002.58D8][.37FA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F94A
+F942      ; [.3774.0021.0002.58DF][.37F5.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F942
+2F85C     ; [.3776.0032.0002.5906][.37F5.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F85C
+2F85D     ; [.3772.0021.0002.591A][.37ED.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F85D
+2F85E     ; [.3775.0021.0002.5922][.37F5.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F85E
+FA7E      ; [.377A.0024.0002.5944][.37F1.0020.0002][.385A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA7E
+F90C      ; [.3771.0023.0002.5948][.37EE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F90C
+F909      ; [.376F.0024.0002.5951][.37F4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F909
+FA7F      ; [.3776.0025.0002.5954][.37FA.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA7F
+2F85F     ; [.3778.0030.0002.5962][.37ED.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F85F
+F981      ; [.3771.0021.0002.5973][.37F3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F981
+2F862     ; [.3781.0026.0002.59EC][.3800.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F862
+2F863     ; [.377A.002C.0002.5A1B][.37F5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F863
+2F864     ; [.377F.0030.0002.5A27][.37EE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F864
+FA80      ; [.3776.0027.0002.5A62][.3801.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA80
+2F866     ; [.3776.002B.0002.5A66][.37FA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F866
+2F986     ; [.377A.0025.0002.5AB5][.3801.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F986
+2F869     ; [.377A.0041.0002.5B08][.37F9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F869
+FA81      ; [.377B.003C.0002.5B28][.37ED.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA81
+2F86A     ; [.3774.0029.0002.5B3E][.37ED.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F86A
+2F86B     ; [.3774.0029.0002.5B3E][.37ED.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F86B
+FA04      ; [.3772.0021.0002.5B85][.37EE.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA04
+2F86D     ; [.377A.0029.0002.5BC3][.37FB.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F86D
+2F86E     ; [.377D.003B.0002.5BD8][.3801.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F86E
+F95F      ; [.3771.0021.0002.5BE7][.37F3.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F95F
+F9AA      ; [.3771.0021.0002.5BE7][.37F3.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9AA
+2F86F     ; [.3771.0021.0002.5BE7][.37F3.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F86F
+F9BC      ; [.3774.0023.0002.5BEE][.37F9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9BC
+F9BD      ; [.3771.0021.0002.5C3F][.37F9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9BD
+2F877     ; [.3772.0028.0002.5C60][.37F5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F877
+F94B      ; [.3774.0023.0002.5C62][.37FA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F94B
+FA3B      ; [.377D.0021.0002.5C64][.37FF.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA3B
+F9DF      ; [.3774.0026.0002.5C65][.3801.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9DF
+2F879     ; [.3778.002A.0002.5CC0][.37FA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F879
+F9D5      ; [.3774.0023.0002.5D19][.37FE.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9D5
+F921      ; [.3774.0021.0002.5D50][.37ED.0020.0002][.385A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F921
+F9AB      ; [.3774.0025.0002.5DBA][.37F3.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9AB
+2F881     ; [.3778.0021.0002.5DE1][.37FA.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F881
+2F882     ; [.3778.0027.0002.5DE2][.37F5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F882
+2F884     ; [.3778.0022.0002.5DFD][.37F5.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F884
+2F885     ; [.3778.0029.0002.5E28][.37F2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F885
+2F886     ; [.3775.0025.0002.5E3D][.37F5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F886
+F98E      ; [.3771.0021.0002.5E74][.37F3.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F98E
+FA01      ; [.3772.002B.0002.5EA6][.37F5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA01
+2F88C     ; [.3776.0052.0002.5EB3][.3801.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F88C
+2F88D     ; [.3778.0025.0002.5EB6][.37F1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F88D
+F9A2      ; [.3774.0021.0002.5EC9][.37F3.0020.0002][.385A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9A2
+F928      ; [.3774.0021.0002.5ECA][.37ED.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F928
+2F88E     ; [.3774.0021.0002.5ECA][.37ED.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F88E
+FA0B      ; [.376F.0021.0002.5ED3][.37F6.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA0B
+F982      ; [.3774.0025.0002.5EEC][.37F3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F982
+F943      ; [.3774.0022.0002.5F04][.37F5.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F943
+2F894     ; [.3772.004B.0002.5F22][.37F5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F894
+2F895     ; [.3772.004B.0002.5F22][.37F5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F895
+2F899     ; [.3781.0025.0002.5F62][.37F3.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F899
+FA84      ; [.377D.0025.0002.5F69][.37EE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA84
+2F89A     ; [.377B.0027.0002.5F6B][.37F5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F89A
+F9D8      ; [.3774.0021.0002.5F8B][.37FE.0020.0002][.3852.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9D8
+F966      ; [.3776.0026.0002.5FA9][.37F5.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F966
+FA85      ; [.377A.0043.0002.5FAD][.37F9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA85
+2F89D     ; [.377A.002A.0002.5FCD][.3801.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F89D
+2F89E     ; [.377B.0026.0002.5FD7][.3801.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F89E
+F9A3      ; [.3771.0021.0002.5FF5][.37F3.0020.0002][.385A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9A3
+F960      ; [.3771.0024.0002.6012][.37F5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F960
+F9AC      ; [.3774.0026.0002.601C][.37F3.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9AC
+2F8A0     ; [.377A.0042.0002.6081][.37F3.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8A0
+FA3D      ; [.3781.0026.0002.6094][.37F8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA3D
+2F8A3     ; [.3781.0026.0002.6094][.37F8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8A3
+2F8A5     ; [.3772.0022.0002.60C7][.37F5.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8A5
+FA86      ; [.3775.002D.0002.60D8][.37ED.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA86
+F9B9      ; [.377A.0025.0002.60E1][.37ED.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9B9
+FA88      ; [.377A.002E.0002.6108][.37FE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA88
+F9D9      ; [.3774.0022.0002.6144][.37FE.0020.0002][.3852.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9D9
+2F8A6     ; [.377B.002A.0002.6148][.37ED.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8A6
+2F8A7     ; [.3781.0027.0002.614C][.37F6.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8A7
+2F8A9     ; [.3781.0027.0002.614C][.37F6.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8A9
+FA8A      ; [.377A.0047.0002.6160][.37F5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA8A
+FA3E      ; [.376F.0028.0002.6168][.37EE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA3E
+2F8AA     ; [.3774.0031.0002.617A][.37FA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8AA
+FA3F      ; [.377B.0022.0002.618E][.37FF.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA3F
+FA89      ; [.377B.0022.0002.618E][.37FF.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA89
+2F8AB     ; [.377B.0022.0002.618E][.37FF.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8AB
+F98F      ; [.3774.0021.0002.6190][.37F3.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F98F
+2F8AD     ; [.3776.0028.0002.61A4][.37FA.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8AD
+2F8AE     ; [.377D.0030.0002.61AF][.37ED.0020.0002][.385A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8AE
+2F8AC     ; [.3781.0021.0002.61B2][.37F1.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8AC
+2F8AF     ; [.3775.0025.0002.61DE][.37F5.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8AF
+FA40      ; [.377B.0022.0002.61F2][.3801.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA40
+FA8B      ; [.377B.0022.0002.61F2][.3801.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA8B
+2F8B0     ; [.377B.0022.0002.61F2][.3801.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8B0
+F90D      ; [.3774.0022.0002.61F6][.37ED.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F90D
+2F8B1     ; [.3774.0022.0002.61F6][.37ED.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8B1
+F990      ; [.3774.0022.0002.6200][.37F3.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F990
+2F8B2     ; [.3778.0026.0002.6210][.37F1.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8B2
+F9D2      ; [.3774.0022.0002.622E][.37FE.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9D2
+FA8C      ; [.3772.0029.0002.6234][.37EE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA8C
+2F8B5     ; [.3780.002B.0002.62B1][.37F5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8B5
+F925      ; [.3774.0021.0002.62C9][.37ED.0020.0002][.385B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F925
+F95B      ; [.3771.0024.0002.62CF][.37ED.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F95B
+FA02      ; [.377D.0026.0002.62D3][.37F1.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA02
+2F8B6     ; [.3776.0022.0002.62D4][.37ED.0020.0002][.3852.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8B6
+F973      ; [.3778.0022.0002.62FE][.37FF.0020.0002][.385B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F973
+2F8B9     ; [.3775.0027.0002.633D][.37ED.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8B9
+2F8B7     ; [.377A.0027.0002.6350][.37F3.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8B7
+2F8BB     ; [.3778.0039.0002.6368][.37ED.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8BB
+F9A4      ; [.3771.0024.0002.637B][.37F3.0020.0002][.385A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9A4
+2F8BC     ; [.3778.0029.0002.6383][.37F5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8BC
+F975      ; [.3774.0021.0002.63A0][.37EF.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F975
+2F8C1     ; [.377A.0025.0002.63A9][.37F1.0020.0002][.385A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8C1
+FA8D      ; [.377A.0030.0002.63C4][.37FE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA8D
+FA8E      ; [.3778.0030.0002.641C][.37FA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA8E
+2F8BF     ; [.377B.0025.0002.6422][.3801.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8BF
+2F8C3     ; [.3775.0021.0002.6469][.37ED.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8C3
+F991      ; [.3771.0022.0002.649A][.37F3.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F991
+2F8C5     ; [.3781.0029.0002.649D][.37FD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8C5
+F930      ; [.3774.0023.0002.64C4][.37F5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F930
+FA41      ; [.3775.0025.0002.654F][.3801.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA41
+2F8C8     ; [.3775.0025.0002.654F][.3801.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8C8
+FA90      ; [.377A.0030.0002.6556][.37F5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA90
+2F8C9     ; [.376F.0030.0002.656C][.37F3.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8C9
+F969      ; [.3778.0032.0002.6578][.37FA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F969
+F9BE      ; [.3774.0025.0002.6599][.37F9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9BE
+F983      ; [.3774.0028.0002.65C5][.37F3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F983
+2F8CB     ; [.376F.0035.0002.65E3][.3801.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8CB
+F9E0      ; [.377A.0024.0002.6613][.37F3.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E0
+2F8CD     ; [.377B.0026.0002.6649][.3801.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8CD
+FA12      ; [.377D.0022.0002.6674][.37F1.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA12
+FA91      ; [.377D.0022.0002.6674][.37F1.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA91
+F9C5      ; [.3781.002A.0002.6688][.37FA.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9C5
+FA43      ; [.3778.002B.0002.6691][.37F1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA43
+2F8CF     ; [.3778.002B.0002.6691][.37F1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8CF
+FA06      ; [.3780.0022.0002.66B4][.37F5.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA06
+F98B      ; [.3774.0022.0002.66C6][.37F3.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F98B
+F901      ; [.376F.0033.0002.66F4][.37F3.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F901
+2F8CC     ; [.3778.002D.0002.66F8][.37F1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8CC
+2F8D4     ; [.377D.0023.0002.6700][.37F8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8D4
+F929      ; [.3774.0022.0002.6717][.37ED.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F929
+FA92      ; [.3774.0022.0002.6717][.37ED.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA92
+2F8D8     ; [.3774.0022.0002.6717][.37ED.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8D8
+FA93      ; [.3775.0025.0002.671B][.37ED.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA93
+2F8D9     ; [.3775.0025.0002.671B][.37ED.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8D9
+F9E1      ; [.3774.0028.0002.674E][.3801.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E1
+2F8DC     ; [.3780.0025.0002.6753][.37F9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8DC
+FA94      ; [.377B.002E.0002.6756][.37ED.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA94
+2F8DB     ; [.376F.0038.0002.675E][.3801.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8DB
+F9C8      ; [.3771.0021.0002.677B][.37FE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9C8
+F9F4      ; [.3774.0021.0002.6797][.3801.0020.0002][.385A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9F4
+F9C9      ; [.3774.0023.0002.67F3][.37FE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9C9
+F9DA      ; [.3774.0023.0002.6817][.37FE.0020.0002][.3852.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9DA
+F97A      ; [.3774.0025.0002.6881][.37EF.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F97A
+FA44      ; [.3775.0027.0002.6885][.37EE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA44
+2F8E2     ; [.3775.0027.0002.6885][.37EE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8E2
+F9E2      ; [.3774.0029.0002.68A8][.3801.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E2
+2F8E8     ; [.3778.0062.0002.6942][.37ED.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8E8
+2F8EA     ; [.376F.002A.0002.69EA][.37EE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8EA
+F914      ; [.377A.0028.0002.6A02][.37ED.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F914
+F95C      ; [.377A.0028.0002.6A02][.37ED.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F95C
+F9BF      ; [.377A.0028.0002.6A02][.37ED.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9BF
+F94C      ; [.3774.0024.0002.6A13][.37FA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F94C
+F931      ; [.3774.0024.0002.6AD3][.37F5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F931
+2F8ED     ; [.377B.0021.0002.6ADB][.37FF.0020.0002][.3852.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8ED
+F91D      ; [.3774.0023.0002.6B04][.37ED.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F91D
+2F8EF     ; [.377D.0028.0002.6B21][.37ED.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8EF
+2F8F1     ; [.3781.0025.0002.6B54][.37F1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8F1
+2F8F3     ; [.3778.0023.0002.6B72][.37F2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8F3
+F98C      ; [.3774.0023.0002.6B77][.37F3.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F98C
+F9A5      ; [.3774.0023.0002.6BAE][.37F3.0020.0002][.385A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9A5
+F970      ; [.3778.0023.0002.6BBA][.37ED.0020.0002][.3852.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F970
+FA96      ; [.3778.0023.0002.6BBA][.37ED.0020.0002][.3852.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA96
+2F8F5     ; [.3778.0023.0002.6BBA][.37ED.0020.0002][.3852.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8F5
+2F8FA     ; [.3776.0025.0002.6C4E][.37F1.0020.0002][.385A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8FA
+F972      ; [.377D.0024.0002.6C88][.3801.0020.0002][.385A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F972
+2F8FC     ; [.377A.002B.0002.6CBF][.37F3.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8FC
+F968      ; [.3780.0024.0002.6CCC][.3801.0020.0002][.3852.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F968
+F9E3      ; [.3771.0022.0002.6CE5][.3801.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E3
+F915      ; [.3774.0021.0002.6D1B][.37ED.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F915
+FA05      ; [.3772.002A.0002.6D1E][.37F5.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA05
+2F900     ; [.3780.0029.0002.6D3E][.37ED.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F900
+F9CA      ; [.3774.0025.0002.6D41][.37FE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9CA
+FA97      ; [.3774.0025.0002.6D41][.37FE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA97
+2F902     ; [.3774.0025.0002.6D41][.37FE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F902
+2F903     ; [.3781.002E.0002.6D69][.37F5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F903
+F92A      ; [.3774.0023.0002.6D6A][.37ED.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F92A
+FA45      ; [.3781.002A.0002.6D77][.37EE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA45
+2F901     ; [.3781.002A.0002.6D77][.37EE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F901
+2F904     ; [.377D.0025.0002.6D78][.3801.0020.0002][.385A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F904
+2F905     ; [.377A.0022.0002.6D85][.37F3.0020.0002][.3852.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F905
+F9F5      ; [.3774.0022.0002.6DCB][.3801.0020.0002][.385A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9F5
+F94D      ; [.3774.0025.0002.6DDA][.37FA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F94D
+F9D6      ; [.3774.0024.0002.6DEA][.37FE.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9D6
+2F90E     ; [.377A.0026.0002.6DF9][.37F1.0020.0002][.385A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F90E
+FA46      ; [.377B.002C.0002.6E1A][.37F1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA46
+2F908     ; [.3781.002B.0002.6E2F][.37ED.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F908
+2F909     ; [.377A.002B.0002.6E6E][.3801.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F909
+F9CB      ; [.3774.0026.0002.6E9C][.37FE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9CB
+F9EC      ; [.3771.0022.0002.6EBA][.3801.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9EC
+FA99      ; [.377B.002B.0002.6ECB][.37ED.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA99
+2F90B     ; [.377B.002B.0002.6ECB][.37ED.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F90B
+F904      ; [.3781.0022.0002.6ED1][.37F6.0020.0002][.3852.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F904
+F94E      ; [.3774.0026.0002.6F0F][.37FA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F94E
+FA47      ; [.3781.0026.0002.6F22][.37ED.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA47
+FA9A      ; [.3781.0026.0002.6F22][.37ED.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA9A
+F992      ; [.3774.0024.0002.6F23][.37F3.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F992
+2F90F     ; [.377B.0033.0002.6F6E][.37F5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F90F
+2F912     ; [.3776.003C.0002.6FC6][.37FA.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F912
+F922      ; [.3774.0025.0002.6FEB][.37ED.0020.0002][.385A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F922
+F984      ; [.3774.002A.0002.6FFE][.37F3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F984
+2F915     ; [.377A.002D.0002.701B][.37F3.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F915
+FA9B      ; [.377B.003D.0002.701E][.37F1.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA9B
+2F914     ; [.377B.003D.0002.701E][.37F1.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F914
+2F835     ; [.3781.002D.0002.7070][.37F8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F835
+2F918     ; [.377B.002B.0002.707D][.37EE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F918
+F9FB      ; [.377B.002C.0002.7099][.37ED.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9FB
+2F91A     ; [.377F.0028.0002.70AD][.37ED.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F91A
+F99F      ; [.3774.0025.0002.70C8][.37F3.0020.0002][.3852.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F99F
+F916      ; [.3774.0022.0002.70D9][.37ED.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F916
+F993      ; [.3774.0025.0002.7149][.37F3.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F993
+FA48      ; [.377B.002D.0002.716E][.37ED.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA48
+FA9C      ; [.377B.002D.0002.716E][.37ED.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA9C
+F9C0      ; [.3774.0026.0002.71CE][.37F9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9C0
+F9EE      ; [.3774.0023.0002.71D0][.3801.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9EE
+F932      ; [.3774.0027.0002.7210][.37F5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F932
+F91E      ; [.3774.0026.0002.721B][.37ED.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F91E
+2F920     ; [.377D.0036.0002.7228][.37ED.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F920
+FA9E      ; [.377B.0028.0002.7235][.37ED.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA9E
+2F921     ; [.377B.0028.0002.7235][.37ED.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F921
+F946      ; [.3774.0023.0002.7262][.37F8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F946
+2F924     ; [.3778.0030.0002.7280][.37F1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F924
+FA9F      ; [.3776.0027.0002.72AF][.37F1.0020.0002][.385A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA9F
+F9FA      ; [.3778.0035.0002.72C0][.37ED.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9FA
+F92B      ; [.3774.0024.0002.72FC][.37ED.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F92B
+FA16      ; [.377B.002E.0002.732A][.37F1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA16
+FAA0      ; [.377B.002E.0002.732A][.37F1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAA0
+F9A7      ; [.3774.0021.0002.7375][.37F3.0020.0002][.385B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9A7
+2F928     ; [.3772.0023.0002.737A][.37ED.0020.0002][.3852.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F928
+F961      ; [.3778.0021.0002.7387][.37F5.0020.0002][.3852.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F961
+F9DB      ; [.3778.0021.0002.7387][.37F5.0020.0002][.3852.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9DB
+2F929     ; [.377A.0025.0002.738B][.37F6.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F929
+F9AD      ; [.3774.0027.0002.73B2][.37F3.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9AD
+F917      ; [.3774.0023.0002.73DE][.37ED.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F917
+F9E4      ; [.3774.002D.0002.7406][.3801.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E4
+F9CC      ; [.3774.0028.0002.7409][.37FE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9CC
+FA4A      ; [.377F.002B.0002.7422][.37ED.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA4A
+2F92F     ; [.377A.003D.0002.745C][.37FE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F92F
+F9AE      ; [.3781.002D.0002.7469][.37F3.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9AE
+FAA1      ; [.377B.0057.0002.7471][.37F1.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAA1
+2F930     ; [.377B.0057.0002.7471][.37F1.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F930
+F994      ; [.3774.0026.0002.7489][.37F3.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F994
+F9EF      ; [.3774.0024.0002.7498][.3801.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9EF
+2F932     ; [.376F.003A.0002.74CA][.37F3.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F932
+F9CD      ; [.3774.002A.0002.7559][.37FE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9CD
+F976      ; [.3774.0022.0002.7565][.37EF.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F976
+F962      ; [.377A.002C.0002.7570][.3801.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F962
+2F938     ; [.377A.002C.0002.7570][.3801.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F938
+F9E5      ; [.3774.002F.0002.75E2][.3801.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E5
+2F93A     ; [.377A.0059.0002.7610][.37FE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F93A
+FAA5      ; [.377A.0023.0002.761F][.37F5.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAA5
+F9C1      ; [.3774.0027.0002.7642][.37F9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9C1
+F90E      ; [.3774.0023.0002.7669][.37ED.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F90E
+FA17      ; [.377A.0022.0002.76CA][.3801.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA17
+FAA6      ; [.377A.0022.0002.76CA][.3801.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAA6
+FAA7      ; [.3778.002B.0002.76DB][.37F1.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAA7
+F933      ; [.3774.0028.0002.76E7][.37F5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F933
+FAA8      ; [.377B.0021.0002.76F4][.3801.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAA8
+2F940     ; [.377B.0021.0002.76F4][.3801.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F940
+F96D      ; [.3778.002C.0002.7701][.37F1.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F96D
+2F945     ; [.377B.0033.0002.771E][.3801.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F945
+FAAA      ; [.377D.0023.0002.7740][.37ED.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAAA
+2F94A     ; [.377B.0034.0002.778B][.3801.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F94A
+F9CE      ; [.3774.002C.0002.786B][.37FE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9CE
+F93B      ; [.3774.0021.0002.788C][.37F5.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F93B
+2F94F     ; [.3774.0021.0002.788C][.37F5.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F94F
+FA4B      ; [.3776.0038.0002.7891][.3801.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA4B
+F947      ; [.3774.0024.0002.78CA][.37F8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F947
+F964      ; [.3776.0032.0002.78FB][.37ED.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F964
+F985      ; [.3774.002B.0002.792A][.37F3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F985
+FA4C      ; [.3778.0046.0002.793E][.37ED.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA4C
+FA4E      ; [.376F.004C.0002.7948][.3801.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA4E
+FA4D      ; [.377B.0035.0002.7949][.3801.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA4D
+FA4F      ; [.377A.0032.0002.7950][.37FA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA4F
+FA50      ; [.377B.0039.0002.7956][.37F5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA50
+2F953     ; [.377B.0039.0002.7956][.37F5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F953
+FA51      ; [.377D.0023.0002.795D][.37FA.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA51
+FA19      ; [.3778.002C.0002.795E][.3801.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA19
+FA1A      ; [.3778.0037.0002.7965][.37ED.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA1A
+F93C      ; [.3774.0022.0002.797F][.37F5.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F93C
+FA52      ; [.3781.0027.0002.798D][.37F6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA52
+FA53      ; [.377B.0044.0002.798E][.37F1.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA53
+FA1B      ; [.3776.0028.0002.798F][.37F5.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA1B
+2F956     ; [.3776.0028.0002.798F][.37F5.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F956
+F9B6      ; [.3774.0023.0002.79AE][.37F4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9B6
+F995      ; [.3771.0023.0002.79CA][.37F3.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F995
+2F957     ; [.377D.0024.0002.79EB][.37FA.0020.0002][.3852.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F957
+F956      ; [.3774.0023.0002.7A1C][.37FF.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F956
+FA54      ; [.376F.0025.0002.7A40][.37F5.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA54
+2F959     ; [.376F.0025.0002.7A40][.37F5.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F959
+FA55      ; [.3772.0022.0002.7A81][.37F5.0020.0002][.3852.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA55
+F9F7      ; [.3774.0022.0002.7ACB][.3801.0020.0002][.385B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9F7
+F9F8      ; [.3774.0023.0002.7B20][.3801.0020.0002][.385B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9F8
+FA56      ; [.377B.0027.0002.7BC0][.37F1.0020.0002][.3852.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA56
+FAAD      ; [.377B.0027.0002.7BC0][.37F1.0020.0002][.3852.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAAD
+2F962     ; [.377B.003D.0002.7BC6][.37F1.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F962
+2F963     ; [.377D.0026.0002.7BC9][.37FA.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F963
+F9A6      ; [.3774.0025.0002.7C3E][.37F3.0020.0002][.385A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9A6
+F944      ; [.3774.0026.0002.7C60][.37F5.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F944
+F9F9      ; [.3774.0024.0002.7C92][.3801.0020.0002][.385B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9F9
+FA1D      ; [.377B.0047.0002.7CBE][.37F1.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA1D
+FA03      ; [.3772.0029.0002.7CD6][.37ED.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA03
+F97B      ; [.3774.0029.0002.7CE7][.37EF.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F97B
+2F96A     ; [.376F.004F.0002.7D00][.3801.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F96A
+F9CF      ; [.3771.0022.0002.7D10][.37FE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9CF
+F96A      ; [.3778.0023.0002.7D22][.37EE.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F96A
+F94F      ; [.3774.0028.0002.7D2F][.37FA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F94F
+FAAF      ; [.377B.0063.0002.7D5B][.37F5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAAF
+2F96C     ; [.3776.0034.0002.7D63][.37F3.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F96C
+F93D      ; [.3774.0023.0002.7DA0][.37F5.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F93D
+F957      ; [.3774.0024.0002.7DBE][.37FF.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F957
+2F96E     ; [.377D.0030.0002.7DC7][.3801.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F96E
+F996      ; [.3774.0027.0002.7DF4][.37F3.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F996
+FA57      ; [.3774.0027.0002.7DF4][.37F3.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA57
+FAB0      ; [.3774.0027.0002.7DF4][.37F3.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAB0
+FA58      ; [.377B.0036.0002.7E09][.3801.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA58
+F950      ; [.3774.0029.0002.7E37][.37FA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F950
+FA59      ; [.3776.0026.0002.7E41][.37F1.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA59
+2F970     ; [.3778.0052.0002.7E45][.37F5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F970
+FAB1      ; [.3776.0035.0002.7F3E][.37F3.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAB1
+FA5A      ; [.3778.0035.0002.7F72][.37F1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA5A
+F9E6      ; [.3774.0031.0002.7F79][.3801.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E6
+F90F      ; [.3774.0024.0002.7F85][.37ED.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F90F
+F9AF      ; [.3774.0029.0002.7F9A][.37F3.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9AF
+FA1E      ; [.377A.0036.0002.7FBD][.37FA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA1E
+2F979     ; [.376F.005A.0002.7FFA][.37F5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F979
+F934      ; [.3774.0029.0002.8001][.37F5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F934
+FA5B      ; [.377B.0033.0002.8005][.37ED.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA5B
+FAB2      ; [.377B.0033.0002.8005][.37ED.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAB2
+2F97A     ; [.377B.0033.0002.8005][.37ED.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F97A
+F9B0      ; [.3774.002B.0002.8046][.37F3.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9B0
+F997      ; [.3774.0028.0002.806F][.37F3.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F997
+2F97F     ; [.377D.0028.0002.8070][.37F5.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F97F
+F945      ; [.3774.0027.0002.807E][.37F5.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F945
+F953      ; [.3774.0022.0002.808B][.37FF.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F953
+2F8D6     ; [.3771.0023.0002.80AD][.37FA.0020.0002][.3852.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8D6
+2F982     ; [.377A.0024.0002.80B2][.37FE.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F982
+2F985     ; [.3776.003F.0002.813E][.3801.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F985
+F926      ; [.3774.0022.0002.81D8][.37ED.0020.0002][.385B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F926
+F9F6      ; [.3774.0024.0002.81E8][.3801.0020.0002][.385A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9F6
+FA5C      ; [.377D.002A.0002.81ED][.37FD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA5C
+2F893     ; [.377A.002E.0002.8201][.37F3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F893
+2F98B     ; [.377A.002E.0002.8201][.37F3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F98B
+F97C      ; [.3774.002A.0002.826F][.37EF.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F97C
+2F990     ; [.377A.0037.0002.828B][.37FA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F990
+2F991     ; [.377B.003B.0002.829D][.3801.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F991
+2F993     ; [.3781.0029.0002.82B1][.37F6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F993
+2F994     ; [.3776.0035.0002.82B3][.37ED.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F994
+2F995     ; [.377A.0029.0002.82BD][.37ED.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F995
+F974      ; [.377A.0023.0002.82E5][.37EF.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F974
+2F998     ; [.377A.0023.0002.82E5][.37EF.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F998
+2F996     ; [.376F.003A.0002.82E6][.37F5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F996
+2F999     ; [.377D.002E.0002.831D][.37EE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F999
+2F99C     ; [.377A.004C.0002.8323][.37F5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F99C
+F9FE      ; [.3772.0022.0002.8336][.37ED.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9FE
+FAB3      ; [.3781.0034.0002.8352][.37F6.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAB3
+2F99D     ; [.3775.002A.0002.83BD][.37ED.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F99D
+F93E      ; [.3774.0024.0002.83C9][.37F5.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F93E
+2F9A1     ; [.376F.0023.0002.83CA][.37FA.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9A1
+2F9A2     ; [.376F.0025.0002.83CC][.37FE.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9A2
+2F9A3     ; [.377D.0029.0002.83DC][.37EE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9A3
+FAB4      ; [.3781.002A.0002.83EF][.37F6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAB4
+F958      ; [.3774.0025.0002.83F1][.37FF.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F958
+F918      ; [.3774.0025.0002.843D][.37ED.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F918
+F96E      ; [.377A.0023.0002.8449][.37F3.0020.0002][.385B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F96E
+FA5F      ; [.377B.0034.0002.8457][.37F1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA5F
+2F99F     ; [.377B.0034.0002.8457][.37F1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F99F
+F999      ; [.3774.0029.0002.84EE][.37F3.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F999
+2F9A8     ; [.3780.002A.0002.84F1][.37F3.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9A8
+F9C2      ; [.3774.002A.0002.84FC][.37F9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9C2
+2F9AC     ; [.377A.0062.0002.8564][.37FE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9AC
+F923      ; [.3774.0028.0002.85CD][.37ED.0020.0002][.385A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F923
+F9F0      ; [.3774.0025.0002.85FA][.3801.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9F0
+F935      ; [.3774.002A.0002.8606][.37F5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F935
+F91F      ; [.3774.0027.0002.862D][.37ED.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F91F
+F910      ; [.3774.0025.0002.863F][.37ED.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F910
+2F9B3     ; [.3781.0023.0002.8650][.37ED.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9B3
+F936      ; [.3774.002B.0002.865C][.37F5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F936
+2F9B4     ; [.3774.002B.0002.865C][.37F5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9B4
+2F9B5     ; [.3781.0025.0002.8667][.37FE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9B5
+2F9B7     ; [.377D.0034.0002.86A9][.3801.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9B7
+2F9BC     ; [.377B.0026.0002.8728][.37F1.0020.0002][.385B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9BC
+F911      ; [.3774.0026.0002.87BA][.37ED.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F911
+F927      ; [.3774.0023.0002.881F][.37ED.0020.0002][.385B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F927
+FA08      ; [.3781.0025.0002.884C][.37EE.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA08
+2F9C4     ; [.377A.0030.0002.8863][.3800.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9C4
+F9A0      ; [.3774.0026.0002.88C2][.37F3.0020.0002][.3852.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9A0
+F9E7      ; [.3774.0034.0002.88CF][.3801.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E7
+F9E8      ; [.3774.0035.0002.88E1][.3801.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E8
+F912      ; [.3774.0027.0002.88F8][.37ED.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F912
+FA60      ; [.376F.0028.0002.8910][.37ED.0020.0002][.3852.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA60
+FAB6      ; [.376F.0034.0002.8941][.37ED.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAB6
+F924      ; [.3774.0029.0002.8964][.37ED.0020.0002][.385A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F924
+FAB7      ; [.3776.002D.0002.8986][.37F5.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAB7
+FA0A      ; [.376F.0028.0002.898B][.37F3.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA0A
+FA61      ; [.3778.0037.0002.8996][.3801.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA61
+FAB8      ; [.3778.0037.0002.8996][.3801.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAB8
+2F9CF     ; [.3778.0031.0002.8AA0][.37F1.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9CF
+F96F      ; [.3778.002B.0002.8AAA][.37F1.0020.0002][.3852.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F96F
+F9A1      ; [.3778.002B.0002.8AAA][.37F1.0020.0002][.3852.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9A1
+FAB9      ; [.377B.0046.0002.8ABF][.37F5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAB9
+FABB      ; [.377D.0026.0002.8ACB][.37F1.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FABB
+F97D      ; [.3774.002B.0002.8AD2][.37EF.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F97D
+F941      ; [.3774.0021.0002.8AD6][.37F5.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F941
+FABE      ; [.377A.0046.0002.8AED][.37FE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FABE
+2F9D0     ; [.377A.0046.0002.8AED][.37FE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9D0
+FA22      ; [.377B.0030.0002.8AF8][.37F2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA22
+FABA      ; [.377B.0030.0002.8AF8][.37F2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FABA
+F95D      ; [.3771.0021.0002.8AFE][.37ED.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F95D
+FABD      ; [.3771.0021.0002.8AFE][.37ED.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FABD
+FA62      ; [.377A.0022.0002.8B01][.37ED.0020.0002][.3852.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA62
+FABC      ; [.377A.0022.0002.8B01][.37ED.0020.0002][.3852.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FABC
+FA63      ; [.376F.002D.0002.8B39][.37FF.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA63
+FABF      ; [.376F.002D.0002.8B39][.37FF.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FABF
+F9FC      ; [.3778.002C.0002.8B58][.3801.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9FC
+F95A      ; [.3772.002A.0002.8B80][.37F5.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F95A
+FAC0      ; [.3776.0023.0002.8B8A][.37F3.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAC0
+2F9D1     ; [.3776.0023.0002.8B8A][.37F3.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9D1
+F900      ; [.376F.0057.0002.8C48][.3801.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F900
+2F9D2     ; [.3778.003B.0002.8C55][.3801.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9D2
+2F9D4     ; [.376F.002E.0002.8CAB][.37F6.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9D4
+2F9D5     ; [.3776.0032.0002.8CC1][.37FA.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9D5
+F948      ; [.3774.0025.0002.8CC2][.37F8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F948
+F903      ; [.376F.0039.0002.8CC8][.37ED.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F903
+FA64      ; [.3776.002D.0002.8CD3][.3801.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA64
+FA65      ; [.377B.002B.0002.8D08][.37FF.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA65
+FAC1      ; [.377B.002B.0002.8D08][.37FF.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAC1
+2F9D6     ; [.376F.0039.0002.8D1B][.37F5.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9D6
+2F9D7     ; [.376F.0058.0002.8D77][.3801.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9D7
+2F9DA     ; [.3776.0027.0002.8DCB][.37ED.0020.0002][.3852.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9DA
+F937      ; [.3774.002C.0002.8DEF][.37F5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F937
+F902      ; [.377D.002D.0002.8ECA][.37ED.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F902
+F998      ; [.3774.002A.0002.8F26][.37F3.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F998
+F9D7      ; [.3774.0026.0002.8F2A][.37FE.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9D7
+FAC2      ; [.3778.004F.0002.8F38][.37FA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAC2
+2F9DF     ; [.3778.004F.0002.8F38][.37FA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9DF
+FA07      ; [.3776.002F.0002.8F3B][.37F5.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA07
+F98D      ; [.3774.0026.0002.8F62][.37F3.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F98D
+F971      ; [.377B.003E.0002.8FB0][.3801.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F971
+F99A      ; [.3774.002B.0002.9023][.37F3.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F99A
+FA25      ; [.377A.0027.0002.9038][.3801.0020.0002][.3852.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA25
+FA67      ; [.377A.0027.0002.9038][.3801.0020.0002][.3852.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA67
+FAC3      ; [.377B.0041.0002.9072][.3801.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAC3
+F9C3      ; [.3774.002B.0002.907C][.37F9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9C3
+F913      ; [.3774.0028.0002.908F][.37ED.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F913
+FA2E      ; [.3774.0028.0002.90DE][.37ED.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA2E
+FA26      ; [.3772.0045.0002.90FD][.37F5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA26
+F919      ; [.3774.0026.0002.916A][.37ED.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F919
+F9B7      ; [.3774.0024.0002.91B4][.37F4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9B7
+F9E9      ; [.3774.0036.0002.91CC][.3801.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E9
+F97E      ; [.3774.002D.0002.91CF][.37EF.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F97E
+F90A      ; [.376F.0021.0002.91D1][.3801.0020.0002][.385A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F90A
+F9B1      ; [.3774.002D.0002.9234][.37F3.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9B1
+2F9E7     ; [.3776.002F.0002.9238][.37ED.0020.0002][.3852.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9E7
+2F9EA     ; [.3776.0039.0002.927C][.37F3.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9EA
+2F9E8     ; [.3781.003F.0002.92D7][.37F3.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9E8
+F93F      ; [.3774.0025.0002.9304][.37F5.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F93F
+F99B      ; [.3774.002C.0002.934A][.37F3.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F99B
+2F9EE     ; [.376F.0033.0002.958B][.37EE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9EE
+F986      ; [.3774.002E.0002.95AD][.37F3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F986
+F9C6      ; [.377A.0031.0002.962E][.37F6.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9C6
+F951      ; [.3774.002D.0002.964B][.37FA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F951
+FA09      ; [.376F.0037.0002.964D][.37ED.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA09
+F959      ; [.3774.0026.0002.9675][.37FF.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F959
+F9D3      ; [.3774.0023.0002.9678][.37FE.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9D3
+FAC6      ; [.377B.004E.0002.967C][.37F1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAC6
+F9DC      ; [.3774.0021.0002.9686][.37FE.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9DC
+F9F1      ; [.3774.0027.0002.96A3][.3801.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9F1
+FA2F      ; [.3774.0025.0002.96B7][.37F4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA2F
+F9B8      ; [.3774.0026.0002.96B8][.37F4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9B8
+F9EA      ; [.3774.0038.0002.96E2][.3801.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9EA
+FA68      ; [.3771.0023.0002.96E3][.37ED.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA68
+FAC7      ; [.3771.0023.0002.96E3][.37ED.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAC7
+F9B2      ; [.3774.002E.0002.96F6][.37F3.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9B2
+F949      ; [.3774.0028.0002.96F7][.37F8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F949
+2F9F5     ; [.377A.0031.0002.9723][.37FA.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9F5
+F938      ; [.3774.002E.0002.9732][.37F5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F938
+F9B3      ; [.3774.002F.0002.9748][.37F3.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9B3
+FA1C      ; [.377B.0054.0002.9756][.37F1.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA1C
+FAC8      ; [.377B.0054.0002.9756][.37F1.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAC8
+2F9FA     ; [.3780.0034.0002.97E0][.3801.0020.0002][.3852.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9FA
+FA69      ; [.3781.0026.0002.97FF][.37EF.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA69
+FACA      ; [.3781.0026.0002.97FF][.37EF.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FACA
+F9B4      ; [.3774.0030.0002.9818][.37F3.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9B4
+FA6A      ; [.3776.002E.0002.983B][.3801.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA6A
+FACC      ; [.3776.002E.0002.983B][.3801.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FACC
+F9D0      ; [.3774.002E.0002.985E][.37FE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9D0
+2FA02     ; [.376F.005B.0002.98E2][.3801.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA02
+FA2A      ; [.3776.0039.0002.98EF][.37ED.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA2A
+FA2B      ; [.3778.005A.0002.98FC][.37ED.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA2B
+FA2C      ; [.376F.0030.0002.9928][.37F6.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA2C
+F91A      ; [.3774.0027.0002.99F1][.37ED.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F91A
+F987      ; [.3774.0030.0002.9A6A][.37F3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F987
+FACD      ; [.377B.004C.0002.9B12][.3801.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FACD
+2FA0A     ; [.377B.004C.0002.9B12][.3801.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA0A
+F939      ; [.3774.002F.0002.9B6F][.37F5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F939
+F9F2      ; [.3774.0028.0002.9C57][.3801.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9F2
+FA2D      ; [.3781.0025.0002.9DB4][.37ED.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA2D
+F93A      ; [.3774.0030.0002.9DFA][.37F5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F93A
+F920      ; [.3774.0028.0002.9E1E][.37ED.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F920
+F940      ; [.3774.0026.0002.9E7F][.37F5.0020.0002][.384B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F940
+F988      ; [.3774.0031.0002.9E97][.37F3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F988
+F9F3      ; [.3774.0029.0002.9E9F][.3801.0020.0002][.384E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9F3
+2FA15     ; [.3775.0028.0002.9EBB][.37ED.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA15
+F989      ; [.3774.0032.0002.9ECE][.37F3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F989
+2FA1C     ; [.3776.004A.0002.9F3B][.3801.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA1C
+F9C4      ; [.3774.0021.0002.9F8D][.37F9.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9C4
+FAD9      ; [.3774.002E.0002.9F8E][.37F5.0020.0002][.385F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAD9
+F907      ; [.376F.0056.0002.9F9C][.37FA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F907
+F908      ; [.376F.0056.0002.9F9C][.37FA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F908
+FACE      ; [.376F.0056.0002.9F9C][.37FA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FACE
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/kok.pl b/lib/5.24.1/Unicode/Collate/Locale/kok.pl
new file mode 100644
index 00000000..a49d361d
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/kok.pl
@@ -0,0 +1,13 @@
++{
+   locale_version => 1.14,
+   entry => <<'ENTRY', # for DUCET v7.0.0
+0902      ; [.235B.0020.0002][.FFF1.0000.0000] # DEVANAGARI SIGN ANUSVARA
+0901      ; [.235B.0021.0002][.FFF1.0000.0000] # DEVANAGARI SIGN CANDRABINDU
+0903      ; [.235B.0020.0002][.FFF2.0000.0000] # DEVANAGARI SIGN VISARGA
+0950      ; [.235B.0020.0002][.FFF0.0000.0000] # DEVANAGARI OM
+0933      ; [.239D.0020.0002][.FFF1.0000.0000] # DEVANAGARI LETTER LLA
+0934      ; [.239D.0020.0002][.FFF1.0000.0000][.0000.00BC.0002] # DEVANAGARI LETTER LLLA
+0915 094D 0937 ; [.239D.0020.0002][.FFF2.0000.0000] # <DEVANAGARI LETTER KA, DEVANAGARI SIGN VIRAMA, DEVANAGARI LETTER SSA>
+0939      ; [.239D.0020.0002][.FFF0.0000.0000] # DEVANAGARI LETTER HA
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/ln.pl b/lib/5.24.1/Unicode/Collate/Locale/ln.pl
new file mode 100644
index 00000000..694e8369
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/ln.pl
@@ -0,0 +1,12 @@
++{
+   locale_version => 1.14,
+   entry => <<'ENTRY', # for DUCET v7.0.0
+025B      ; [.196F.0020.0002] # LATIN SMALL LETTER OPEN E
+0190      ; [.196F.0020.0008] # LATIN CAPITAL LETTER OPEN E
+2107      ; [.196F.0020.000A] # EULER CONSTANT
+1D4B      ; [.196F.0020.0014] # MODIFIER LETTER SMALL OPEN E
+0254      ; [.1AA1.0021.0002] # LATIN SMALL LETTER OPEN O
+0186      ; [.1AA1.0021.0008] # LATIN CAPITAL LETTER OPEN O
+1D53      ; [.1AA1.0021.0014] # MODIFIER LETTER SMALL OPEN O
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/lt.pl b/lib/5.24.1/Unicode/Collate/Locale/lt.pl
new file mode 100644
index 00000000..a4630fea
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/lt.pl
@@ -0,0 +1,48 @@
++{
+   locale_version => 1.14,
+# in cldr test/lt.xml why I-dot-acute > I-dot though i-dot-acute < i-dot ?
+   entry => <<'ENTRY', # for DUCET v7.0.0
+0049 0307 ; [.19F6.0020.0008][.0000.002E.0002] # <LATIN CAPITAL LETTER I, COMBINING DOT ABOVE>
+0307 0300 ; [.0000.0025.0002] # <COMBINING DOT ABOVE, COMBINING GRAVE ACCENT>
+0307 0301 ; [.0000.0024.0002] # <COMBINING DOT ABOVE, COMBINING ACUTE ACCENT>
+0307 0303 ; [.0000.002D.0002] # <COMBINING DOT ABOVE, COMBINING TILDE>
+0105      ; [.190C.0021.0002] # LATIN SMALL LETTER A WITH OGONEK
+0061 0328 ; [.190C.0021.0002] # LATIN SMALL LETTER A WITH OGONEK
+0104      ; [.190C.0021.0008] # LATIN CAPITAL LETTER A WITH OGONEK
+0041 0328 ; [.190C.0021.0008] # LATIN CAPITAL LETTER A WITH OGONEK
+010D      ; [.193F.0020.0002] # LATIN SMALL LETTER C WITH CARON
+0063 030C ; [.193F.0020.0002] # LATIN SMALL LETTER C WITH CARON
+010C      ; [.193F.0020.0008] # LATIN CAPITAL LETTER C WITH CARON
+0043 030C ; [.193F.0020.0008] # LATIN CAPITAL LETTER C WITH CARON
+0119      ; [.196E.0021.0002] # LATIN SMALL LETTER E WITH OGONEK
+0065 0328 ; [.196E.0021.0002] # LATIN SMALL LETTER E WITH OGONEK
+0118      ; [.196E.0021.0008] # LATIN CAPITAL LETTER E WITH OGONEK
+0045 0328 ; [.196E.0021.0008] # LATIN CAPITAL LETTER E WITH OGONEK
+0117      ; [.196E.0022.0002] # LATIN SMALL LETTER E WITH DOT ABOVE
+0065 0307 ; [.196E.0022.0002] # LATIN SMALL LETTER E WITH DOT ABOVE
+0116      ; [.196E.0022.0008] # LATIN CAPITAL LETTER E WITH DOT ABOVE
+0045 0307 ; [.196E.0022.0008] # LATIN CAPITAL LETTER E WITH DOT ABOVE
+012F      ; [.19F6.0021.0002] # LATIN SMALL LETTER I WITH OGONEK
+0069 0328 ; [.19F6.0021.0002] # LATIN SMALL LETTER I WITH OGONEK
+012E      ; [.19F6.0021.0008] # LATIN CAPITAL LETTER I WITH OGONEK
+0049 0328 ; [.19F6.0021.0008] # LATIN CAPITAL LETTER I WITH OGONEK
+0079      ; [.19F6.0022.0002] # LATIN SMALL LETTER Y
+0059      ; [.19F6.0022.0008] # LATIN CAPITAL LETTER Y
+0161      ; [.1B34.0020.0002] # LATIN SMALL LETTER S WITH CARON
+0073 030C ; [.1B34.0020.0002] # LATIN SMALL LETTER S WITH CARON
+0160      ; [.1B34.0020.0008] # LATIN CAPITAL LETTER S WITH CARON
+0053 030C ; [.1B34.0020.0008] # LATIN CAPITAL LETTER S WITH CARON
+0173      ; [.1B77.0021.0002] # LATIN SMALL LETTER U WITH OGONEK
+0075 0328 ; [.1B77.0021.0002] # LATIN SMALL LETTER U WITH OGONEK
+0172      ; [.1B77.0021.0008] # LATIN CAPITAL LETTER U WITH OGONEK
+0055 0328 ; [.1B77.0021.0008] # LATIN CAPITAL LETTER U WITH OGONEK
+016B      ; [.1B77.0022.0002] # LATIN SMALL LETTER U WITH MACRON
+0075 0304 ; [.1B77.0022.0002] # LATIN SMALL LETTER U WITH MACRON
+016A      ; [.1B77.0022.0008] # LATIN CAPITAL LETTER U WITH MACRON
+0055 0304 ; [.1B77.0022.0008] # LATIN CAPITAL LETTER U WITH MACRON
+017E      ; [.1BE4.0020.0002] # LATIN SMALL LETTER Z WITH CARON
+007A 030C ; [.1BE4.0020.0002] # LATIN SMALL LETTER Z WITH CARON
+017D      ; [.1BE4.0020.0008] # LATIN CAPITAL LETTER Z WITH CARON
+005A 030C ; [.1BE4.0020.0008] # LATIN CAPITAL LETTER Z WITH CARON
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/lv.pl b/lib/5.24.1/Unicode/Collate/Locale/lv.pl
new file mode 100644
index 00000000..ebd25078
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/lv.pl
@@ -0,0 +1,37 @@
++{
+   locale_version => 1.14,
+   entry => <<'ENTRY', # for DUCET v7.0.0
+010D      ; [.1952.0020.0002] # LATIN SMALL LETTER C WITH CARON
+0063 030C ; [.1952.0020.0002] # LATIN SMALL LETTER C WITH CARON
+010C      ; [.1952.0020.0008] # LATIN CAPITAL LETTER C WITH CARON
+0043 030C ; [.1952.0020.0008] # LATIN CAPITAL LETTER C WITH CARON
+0123      ; [.19DB.0020.0002] # LATIN SMALL LETTER G WITH CEDILLA
+0067 0327 ; [.19DB.0020.0002] # LATIN SMALL LETTER G WITH CEDILLA
+0122      ; [.19DB.0020.0008] # LATIN CAPITAL LETTER G WITH CEDILLA
+0047 0327 ; [.19DB.0020.0008] # LATIN CAPITAL LETTER G WITH CEDILLA
+0137      ; [.1A3A.0020.0002] # LATIN SMALL LETTER K WITH CEDILLA
+006B 0327 ; [.1A3A.0020.0002] # LATIN SMALL LETTER K WITH CEDILLA
+0136      ; [.1A3A.0020.0008] # LATIN CAPITAL LETTER K WITH CEDILLA
+004B 0327 ; [.1A3A.0020.0008] # LATIN CAPITAL LETTER K WITH CEDILLA
+013C      ; [.1A6D.0020.0002] # LATIN SMALL LETTER L WITH CEDILLA
+006C 0327 ; [.1A6D.0020.0002] # LATIN SMALL LETTER L WITH CEDILLA
+013B      ; [.1A6D.0020.0008] # LATIN CAPITAL LETTER L WITH CEDILLA
+004C 0327 ; [.1A6D.0020.0008] # LATIN CAPITAL LETTER L WITH CEDILLA
+0146      ; [.1AA0.0020.0002] # LATIN SMALL LETTER N WITH CEDILLA
+006E 0327 ; [.1AA0.0020.0002] # LATIN SMALL LETTER N WITH CEDILLA
+0145      ; [.1AA0.0020.0008] # LATIN CAPITAL LETTER N WITH CEDILLA
+004E 0327 ; [.1AA0.0020.0008] # LATIN CAPITAL LETTER N WITH CEDILLA
+0157      ; [.1B32.0020.0002] # LATIN SMALL LETTER R WITH CEDILLA
+0072 0327 ; [.1B32.0020.0002] # LATIN SMALL LETTER R WITH CEDILLA
+0156      ; [.1B32.0020.0008] # LATIN CAPITAL LETTER R WITH CEDILLA
+0052 0327 ; [.1B32.0020.0008] # LATIN CAPITAL LETTER R WITH CEDILLA
+0161      ; [.1B56.0020.0002] # LATIN SMALL LETTER S WITH CARON
+0073 030C ; [.1B56.0020.0002] # LATIN SMALL LETTER S WITH CARON
+0160      ; [.1B56.0020.0008] # LATIN CAPITAL LETTER S WITH CARON
+0053 030C ; [.1B56.0020.0008] # LATIN CAPITAL LETTER S WITH CARON
+017E      ; [.1BFF.0020.0002] # LATIN SMALL LETTER Z WITH CARON
+007A 030C ; [.1BFF.0020.0002] # LATIN SMALL LETTER Z WITH CARON
+017D      ; [.1BFF.0020.0008] # LATIN CAPITAL LETTER Z WITH CARON
+005A 030C ; [.1BFF.0020.0008] # LATIN CAPITAL LETTER Z WITH CARON
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/mk.pl b/lib/5.24.1/Unicode/Collate/Locale/mk.pl
new file mode 100644
index 00000000..16efe353
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/mk.pl
@@ -0,0 +1,45 @@
++{
+   locale_version => 1.14,
+   suppress => [0x0410, 0x0430, 0x04D8, 0x04D9, 0x0415, 0x0435, 0x0416, 0x0436,
+		0x0417, 0x0437, 0x0418, 0x0438, 0x0406, 0x0456, 0x041E, 0x043E,
+		0x04E8, 0x04E9, 0x0423, 0x0443, 0x0427, 0x0447, 0x042B, 0x044B,
+		0x042D, 0x044D, 0x0474, 0x0475],
+   entry => <<'ENTRY', # for DUCET v7.0.0
+04D1      ; [.1CE0.0020.0002][.0000.0026.0002] # CYRILLIC SMALL LETTER A WITH BREVE
+04D0      ; [.1CE0.0020.0008][.0000.0026.0002] # CYRILLIC CAPITAL LETTER A WITH BREVE
+04D3      ; [.1CE0.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER A WITH DIAERESIS
+04D2      ; [.1CE0.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER A WITH DIAERESIS
+04DB      ; [.1CEC.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER SCHWA WITH DIAERESIS
+04DA      ; [.1CEC.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER SCHWA WITH DIAERESIS
+04D7      ; [.1D28.0020.0002][.0000.0026.0002] # CYRILLIC SMALL LETTER IE WITH BREVE
+04D6      ; [.1D28.0020.0008][.0000.0026.0002] # CYRILLIC CAPITAL LETTER IE WITH BREVE
+04DD      ; [.1D34.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER ZHE WITH DIAERESIS
+04DC      ; [.1D34.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER ZHE WITH DIAERESIS
+04DF      ; [.1D42.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER ZE WITH DIAERESIS
+04DE      ; [.1D42.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER ZE WITH DIAERESIS
+04E5      ; [.1D5A.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER I WITH DIAERESIS
+04E4      ; [.1D5A.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER I WITH DIAERESIS
+0457      ; [.1D66.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER YI
+0407      ; [.1D66.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER YI
+0439      ; [.1D5A.0020.0002][.0000.0026.0002] # CYRILLIC SMALL LETTER SHORT I
+0419      ; [.1D5A.0020.0008][.0000.0026.0002] # CYRILLIC CAPITAL LETTER SHORT I
+04E7      ; [.1DC9.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER O WITH DIAERESIS
+04E6      ; [.1DC9.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER O WITH DIAERESIS
+04EB      ; [.1DD1.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER BARRED O WITH DIAERESIS
+04EA      ; [.1DD1.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER BARRED O WITH DIAERESIS
+045E      ; [.1E0B.0020.0002][.0000.0026.0002] # CYRILLIC SMALL LETTER SHORT U
+040E      ; [.1E0B.0020.0008][.0000.0026.0002] # CYRILLIC CAPITAL LETTER SHORT U
+04F1      ; [.1E0B.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER U WITH DIAERESIS
+04F0      ; [.1E0B.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER U WITH DIAERESIS
+04F3      ; [.1E0B.0020.0002][.0000.002C.0002] # CYRILLIC SMALL LETTER U WITH DOUBLE ACUTE
+04F2      ; [.1E0B.0020.0008][.0000.002C.0002] # CYRILLIC CAPITAL LETTER U WITH DOUBLE ACUTE
+04F5      ; [.1E5E.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER CHE WITH DIAERESIS
+04F4      ; [.1E5E.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER CHE WITH DIAERESIS
+04F9      ; [.1E92.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER YERU WITH DIAERESIS
+04F8      ; [.1E92.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER YERU WITH DIAERESIS
+04ED      ; [.1EA7.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER E WITH DIAERESIS
+04EC      ; [.1EA7.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER E WITH DIAERESIS
+0477      ; [.1EDD.0020.0002][.0000.003C.0002] # CYRILLIC SMALL LETTER IZHITSA WITH DOUBLE GRAVE ACCENT
+0476      ; [.1EDD.0020.0008][.0000.003C.0002] # CYRILLIC CAPITAL LETTER IZHITSA WITH DOUBLE GRAVE ACCENT
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/ml.pl b/lib/5.24.1/Unicode/Collate/Locale/ml.pl
new file mode 100644
index 00000000..ad26fb75
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/ml.pl
@@ -0,0 +1,23 @@
++{
+   locale_version => 1.14,
+   entry => <<'ENTRY', # for DUCET v7.0.0
+0D3D      ; [.0000.00C0.0002] # MALAYALAM SIGN AVAGRAHA
+0D57      ; [.25C8.0020.0002] # MALAYALAM AU LENGTH MARK
+0D4C      ; [.25C8.0020.0003] # MALAYALAM VOWEL SIGN AU
+0D46 0D57 ; [.25C8.0020.0003] # MALAYALAM VOWEL SIGN AU
+0D15 0D4D 200D ; [.2593.0020.0002][.25CA.0021.0002] # <MALAYALAM LETTER KA, MALAYALAM SIGN VIRAMA, ZERO WIDTH JOINER>
+0D7F      ; [.2593.0020.0003][.25CA.0021.0002] # MALAYALAM LETTER CHILLU K
+0D23 0D4D 200D ; [.25A1.0020.0002][.25CA.0021.0002] # <MALAYALAM LETTER NNA, MALAYALAM SIGN VIRAMA, ZERO WIDTH JOINER>
+0D7A      ; [.25A1.0020.0003][.25CA.0021.0002] # MALAYALAM LETTER CHILLU NN
+0D28 0D4D 200D ; [.25A6.0020.0002][.25CA.0021.0002] # <MALAYALAM LETTER NA, MALAYALAM SIGN VIRAMA, ZERO WIDTH JOINER>
+0D7B      ; [.25A6.0020.0003][.25CA.0021.0002] # MALAYALAM LETTER CHILLU N
+0D30 0D4D 200D ; [.25AE.0020.0002][.25CA.0021.0002] # <MALAYALAM LETTER RA, MALAYALAM SIGN VIRAMA, ZERO WIDTH JOINER>
+0D7C      ; [.25AE.0020.0003][.25CA.0021.0002] # MALAYALAM LETTER CHILLU RR
+0D32 0D4D 200D ; [.25AF.0020.0002][.25CA.0021.0002] # <MALAYALAM LETTER LA, MALAYALAM SIGN VIRAMA, ZERO WIDTH JOINER>
+0D7D      ; [.25AF.0020.0003][.25CA.0021.0002] # MALAYALAM LETTER CHILLU L
+0D33 0D4D 200D ; [.25B5.0020.0002][.25CA.0021.0002] # <MALAYALAM LETTER LLA, MALAYALAM SIGN VIRAMA, ZERO WIDTH JOINER>
+0D7E      ; [.25B5.0020.0003][.25CA.0021.0002] # MALAYALAM LETTER CHILLU LL
+0D02      ; [.25AC.0020.0002][.25CA.0021.0002] # MALAYALAM SIGN ANUSVARA
+0D7B 0D4D ; [.25A6.0020.0002][.25CA.0020.0003] # <MALAYALAM LETTER CHILLU N, MALAYALAM SIGN VIRAMA>
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/mr.pl b/lib/5.24.1/Unicode/Collate/Locale/mr.pl
new file mode 100644
index 00000000..44ca45a0
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/mr.pl
@@ -0,0 +1,14 @@
++{
+   locale_version => 1.14,
+   entry => <<'ENTRY', # for DUCET v7.0.0
+0902      ; [.235B.0020.0002][.FFF1.0000.0000] # DEVANAGARI SIGN ANUSVARA
+0901      ; [.235B.0021.0002][.FFF1.0000.0000] # DEVANAGARI SIGN CANDRABINDU
+0903      ; [.235B.0020.0002][.FFF2.0000.0000] # DEVANAGARI SIGN VISARGA
+0950      ; [.235B.0020.0002][.FFF0.0000.0000] # DEVANAGARI OM
+0933      ; [.239D.0020.0002][.FFF1.0000.0000] # DEVANAGARI LETTER LLA
+0934      ; [.239D.0020.0002][.FFF1.0000.0000][.0000.00BC.0002] # DEVANAGARI LETTER LLLA
+0915 094D 0937 ; [.239D.0020.0002][.FFF2.0000.0000] # <DEVANAGARI LETTER KA, DEVANAGARI SIGN VIRAMA, DEVANAGARI LETTER SSA>
+091C 094D 091E ; [.239D.0020.0002][.FFF3.0000.0000] # <DEVANAGARI LETTER JA, DEVANAGARI SIGN VIRAMA, DEVANAGARI LETTER NYA>
+0939      ; [.239D.0020.0002][.FFF0.0000.0000] # DEVANAGARI LETTER HA
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/mt.pl b/lib/5.24.1/Unicode/Collate/Locale/mt.pl
new file mode 100644
index 00000000..38d14dc3
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/mt.pl
@@ -0,0 +1,31 @@
++{
+   locale_version => 1.14,
+   upper_before_lower => 1,
+   entry => <<'ENTRY', # for DUCET v7.0.0
+010B      ; [.193D.0020.0002] # LATIN SMALL LETTER C WITH DOT ABOVE
+0063 0307 ; [.193D.0020.0002] # LATIN SMALL LETTER C WITH DOT ABOVE
+010A      ; [.193D.0020.0008] # LATIN CAPITAL LETTER C WITH DOT ABOVE
+0043 0307 ; [.193D.0020.0008] # LATIN CAPITAL LETTER C WITH DOT ABOVE
+0121      ; [.19B7.0020.0002] # LATIN SMALL LETTER G WITH DOT ABOVE
+0067 0307 ; [.19B7.0020.0002] # LATIN SMALL LETTER G WITH DOT ABOVE
+0120      ; [.19B7.0020.0008] # LATIN CAPITAL LETTER G WITH DOT ABOVE
+0047 0307 ; [.19B7.0020.0008] # LATIN CAPITAL LETTER G WITH DOT ABOVE
+0067 0127 ; [.19DB.0020.0002] # <LATIN SMALL LETTER G, LATIN SMALL LETTER H WITH STROKE>
+0067 0126 ; [.19DB.0020.0007][.0000.0000.0002] # <LATIN SMALL LETTER G, LATIN CAPITAL LETTER H WITH STROKE>
+0047 0127 ; [.19DB.0020.0007][.0000.0000.0008] # <LATIN CAPITAL LETTER G, LATIN SMALL LETTER H WITH STROKE>
+0047 0126 ; [.19DB.0020.0008] # <LATIN CAPITAL LETTER G, LATIN CAPITAL LETTER H WITH STROKE>
+0067 0068 0335 ; [.19DB.0020.0002] # <LATIN SMALL LETTER G, LATIN SMALL LETTER H, COMBINING SHORT STROKE OVERLAY>
+0067 0048 0335 ; [.19DB.0020.0007][.0000.0000.0002] # <LATIN SMALL LETTER G, LATIN CAPITAL LETTER H, COMBINING SHORT STROKE OVERLAY>
+0047 0068 0335 ; [.19DB.0020.0007][.0000.0000.0008] # <LATIN CAPITAL LETTER G, LATIN SMALL LETTER H, COMBINING SHORT STROKE OVERLAY>
+0047 0048 0335 ; [.19DB.0020.0008] # <LATIN CAPITAL LETTER G, LATIN CAPITAL LETTER H, COMBINING SHORT STROKE OVERLAY>
+0127      ; [.19F5.0020.0002] # LATIN SMALL LETTER H WITH STROKE
+0068 0335 ; [.19F5.0020.0002] # LATIN SMALL LETTER H WITH STROKE
+210F      ; [.19F5.0020.0002] # PLANCK CONSTANT OVER TWO PI
+0126      ; [.19F5.0020.0008] # LATIN CAPITAL LETTER H WITH STROKE
+0048 0335 ; [.19F5.0020.0008] # LATIN CAPITAL LETTER H WITH STROKE
+017C      ; [.1BE2.0020.0002] # LATIN SMALL LETTER Z WITH DOT ABOVE
+007A 0307 ; [.1BE2.0020.0002] # LATIN SMALL LETTER Z WITH DOT ABOVE
+017B      ; [.1BE2.0020.0008] # LATIN CAPITAL LETTER Z WITH DOT ABOVE
+005A 0307 ; [.1BE2.0020.0008] # LATIN CAPITAL LETTER Z WITH DOT ABOVE
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/nb.pl b/lib/5.24.1/Unicode/Collate/Locale/nb.pl
new file mode 100644
index 00000000..6306b814
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/nb.pl
@@ -0,0 +1,76 @@
++{
+   locale_version => 1.14,
+   entry => <<'ENTRY', # for DUCET v7.0.0
+0111      ; [.1953.0021.0002] # LATIN SMALL LETTER D WITH STROKE
+0064 0335 ; [.1953.0021.0002] # LATIN SMALL LETTER D WITH STROKE
+0110      ; [.1953.0021.0008] # LATIN CAPITAL LETTER D WITH STROKE
+0044 0335 ; [.1953.0021.0008] # LATIN CAPITAL LETTER D WITH STROKE
+00F0      ; [.1953.0022.0002] # LATIN SMALL LETTER ETH
+1DD9      ; [.1953.0022.0002] # COMBINING LATIN SMALL LETTER ETH
+00D0      ; [.1953.0022.0008] # LATIN CAPITAL LETTER ETH
+00FE      ; [.1B57.0020.0003][.19DC.0020.0003] # LATIN SMALL LETTER THORN
+00DE      ; [.1B57.0020.0009][.19DC.0020.0009] # LATIN CAPITAL LETTER THORN
+00FC      ; [.1BCD.0021.0002] # LATIN SMALL LETTER U WITH DIAERESIS
+0075 0308 ; [.1BCD.0021.0002] # LATIN SMALL LETTER U WITH DIAERESIS
+00DC      ; [.1BCD.0021.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS
+0055 0308 ; [.1BCD.0021.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS
+01DC      ; [.1BCD.0021.0002][.0000.0025.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND GRAVE
+01DB      ; [.1BCD.0021.0008][.0000.0025.0002] # LATIN CAPITAL LETTER U WITH DIAERESIS AND GRAVE
+01D8      ; [.1BCD.0021.0002][.0000.0024.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND ACUTE
+01D7      ; [.1BCD.0021.0008][.0000.0024.0002] # LATIN CAPITAL LETTER U WITH DIAERESIS AND ACUTE
+01D6      ; [.1BCD.0021.0002][.0000.0032.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND MACRON
+01D5      ; [.1BCD.0021.0008][.0000.0032.0002] # LATIN CAPITAL LETTER U WITH DIAERESIS AND MACRON
+01DA      ; [.1BCD.0021.0002][.0000.0028.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND CARON
+01D9      ; [.1BCD.0021.0008][.0000.0028.0002] # LATIN CAPITAL LETTER U WITH DIAERESIS AND CARON
+0171      ; [.1BCD.0022.0002] # LATIN SMALL LETTER U WITH DOUBLE ACUTE
+0075 030B ; [.1BCD.0022.0002] # LATIN SMALL LETTER U WITH DOUBLE ACUTE
+0170      ; [.1BCD.0022.0008] # LATIN CAPITAL LETTER U WITH DOUBLE ACUTE
+0055 030B ; [.1BCD.0022.0008] # LATIN CAPITAL LETTER U WITH DOUBLE ACUTE
+00E6      ; [.1C54.0020.0002] # LATIN SMALL LETTER AE
+1DD4      ; [.1C54.0020.0002] # COMBINING LATIN SMALL LETTER AE
+00C6      ; [.1C54.0020.0008] # LATIN CAPITAL LETTER AE
+1D2D      ; [.1C54.0020.0014] # MODIFIER LETTER CAPITAL AE
+01FD      ; [.1C54.0020.0002][.0000.0024.0002] # LATIN SMALL LETTER AE WITH ACUTE
+01FC      ; [.1C54.0020.0008][.0000.0024.0002] # LATIN CAPITAL LETTER AE WITH ACUTE
+01E3      ; [.1C54.0020.0002][.0000.0032.0002] # LATIN SMALL LETTER AE WITH MACRON
+01E2      ; [.1C54.0020.0008][.0000.0032.0002] # LATIN CAPITAL LETTER AE WITH MACRON
+00E4      ; [.1C54.0021.0002] # LATIN SMALL LETTER A WITH DIAERESIS
+0061 0308 ; [.1C54.0021.0002] # LATIN SMALL LETTER A WITH DIAERESIS
+00C4      ; [.1C54.0021.0008] # LATIN CAPITAL LETTER A WITH DIAERESIS
+0041 0308 ; [.1C54.0021.0008] # LATIN CAPITAL LETTER A WITH DIAERESIS
+01DF      ; [.1C54.0021.0002][.0000.0032.0002] # LATIN SMALL LETTER A WITH DIAERESIS AND MACRON
+01DE      ; [.1C54.0021.0008][.0000.0032.0002] # LATIN CAPITAL LETTER A WITH DIAERESIS AND MACRON
+0119      ; [.1C54.0022.0002] # LATIN SMALL LETTER E WITH OGONEK
+0065 0328 ; [.1C54.0022.0002] # LATIN SMALL LETTER E WITH OGONEK
+0118      ; [.1C54.0022.0008] # LATIN CAPITAL LETTER E WITH OGONEK
+0045 0328 ; [.1C54.0022.0008] # LATIN CAPITAL LETTER E WITH OGONEK
+00F8      ; [.1C55.0020.0002] # LATIN SMALL LETTER O WITH STROKE
+006F 0338 ; [.1C55.0020.0002] # LATIN SMALL LETTER O WITH STROKE
+00D8      ; [.1C55.0020.0008] # LATIN CAPITAL LETTER O WITH STROKE
+004F 0338 ; [.1C55.0020.0008] # LATIN CAPITAL LETTER O WITH STROKE
+01FF      ; [.1C55.0020.0002][.0000.0024.0002] # LATIN SMALL LETTER O WITH STROKE AND ACUTE
+01FE      ; [.1C55.0020.0008][.0000.0024.0002] # LATIN CAPITAL LETTER O WITH STROKE AND ACUTE
+00F6      ; [.1C55.0021.0002] # LATIN SMALL LETTER O WITH DIAERESIS
+006F 0308 ; [.1C55.0021.0002] # LATIN SMALL LETTER O WITH DIAERESIS
+00D6      ; [.1C55.0021.0008] # LATIN CAPITAL LETTER O WITH DIAERESIS
+004F 0308 ; [.1C55.0021.0008] # LATIN CAPITAL LETTER O WITH DIAERESIS
+022B      ; [.1C55.0021.0002][.0000.0032.0002] # LATIN SMALL LETTER O WITH DIAERESIS AND MACRON
+022A      ; [.1C55.0021.0008][.0000.0032.0002] # LATIN CAPITAL LETTER O WITH DIAERESIS AND MACRON
+0151      ; [.1C55.0022.0002] # LATIN SMALL LETTER O WITH DOUBLE ACUTE
+006F 030B ; [.1C55.0022.0002] # LATIN SMALL LETTER O WITH DOUBLE ACUTE
+0150      ; [.1C55.0022.0008] # LATIN CAPITAL LETTER O WITH DOUBLE ACUTE
+004F 030B ; [.1C55.0022.0008] # LATIN CAPITAL LETTER O WITH DOUBLE ACUTE
+0153      ; [.1C55.0023.0002] # LATIN SMALL LIGATURE OE
+0152      ; [.1C55.0023.0008] # LATIN CAPITAL LIGATURE OE
+00E5      ; [.1C56.0020.0002] # LATIN SMALL LETTER A WITH RING ABOVE
+0061 030A ; [.1C56.0020.0002] # LATIN SMALL LETTER A WITH RING ABOVE
+00C5      ; [.1C56.0020.0008] # LATIN CAPITAL LETTER A WITH RING ABOVE
+0041 030A ; [.1C56.0020.0008] # LATIN CAPITAL LETTER A WITH RING ABOVE
+212B      ; [.1C56.0020.0008] # ANGSTROM SIGN
+01FB      ; [.1C56.0020.0002][.0000.0024.0002] # LATIN SMALL LETTER A WITH RING ABOVE AND ACUTE
+01FA      ; [.1C56.0020.0008][.0000.0024.0002] # LATIN CAPITAL LETTER A WITH RING ABOVE AND ACUTE
+0061 0061 ; [.1C56.0021.0002] # <LATIN SMALL LETTER A, LATIN SMALL LETTER A>
+0041 0061 ; [.1C56.0021.0007] # <LATIN CAPITAL LETTER A, LATIN SMALL LETTER A>
+0041 0041 ; [.1C56.0021.0008] # <LATIN CAPITAL LETTER A, LATIN CAPITAL LETTER A>
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/nn.pl b/lib/5.24.1/Unicode/Collate/Locale/nn.pl
new file mode 100644
index 00000000..6306b814
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/nn.pl
@@ -0,0 +1,76 @@
++{
+   locale_version => 1.14,
+   entry => <<'ENTRY', # for DUCET v7.0.0
+0111      ; [.1953.0021.0002] # LATIN SMALL LETTER D WITH STROKE
+0064 0335 ; [.1953.0021.0002] # LATIN SMALL LETTER D WITH STROKE
+0110      ; [.1953.0021.0008] # LATIN CAPITAL LETTER D WITH STROKE
+0044 0335 ; [.1953.0021.0008] # LATIN CAPITAL LETTER D WITH STROKE
+00F0      ; [.1953.0022.0002] # LATIN SMALL LETTER ETH
+1DD9      ; [.1953.0022.0002] # COMBINING LATIN SMALL LETTER ETH
+00D0      ; [.1953.0022.0008] # LATIN CAPITAL LETTER ETH
+00FE      ; [.1B57.0020.0003][.19DC.0020.0003] # LATIN SMALL LETTER THORN
+00DE      ; [.1B57.0020.0009][.19DC.0020.0009] # LATIN CAPITAL LETTER THORN
+00FC      ; [.1BCD.0021.0002] # LATIN SMALL LETTER U WITH DIAERESIS
+0075 0308 ; [.1BCD.0021.0002] # LATIN SMALL LETTER U WITH DIAERESIS
+00DC      ; [.1BCD.0021.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS
+0055 0308 ; [.1BCD.0021.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS
+01DC      ; [.1BCD.0021.0002][.0000.0025.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND GRAVE
+01DB      ; [.1BCD.0021.0008][.0000.0025.0002] # LATIN CAPITAL LETTER U WITH DIAERESIS AND GRAVE
+01D8      ; [.1BCD.0021.0002][.0000.0024.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND ACUTE
+01D7      ; [.1BCD.0021.0008][.0000.0024.0002] # LATIN CAPITAL LETTER U WITH DIAERESIS AND ACUTE
+01D6      ; [.1BCD.0021.0002][.0000.0032.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND MACRON
+01D5      ; [.1BCD.0021.0008][.0000.0032.0002] # LATIN CAPITAL LETTER U WITH DIAERESIS AND MACRON
+01DA      ; [.1BCD.0021.0002][.0000.0028.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND CARON
+01D9      ; [.1BCD.0021.0008][.0000.0028.0002] # LATIN CAPITAL LETTER U WITH DIAERESIS AND CARON
+0171      ; [.1BCD.0022.0002] # LATIN SMALL LETTER U WITH DOUBLE ACUTE
+0075 030B ; [.1BCD.0022.0002] # LATIN SMALL LETTER U WITH DOUBLE ACUTE
+0170      ; [.1BCD.0022.0008] # LATIN CAPITAL LETTER U WITH DOUBLE ACUTE
+0055 030B ; [.1BCD.0022.0008] # LATIN CAPITAL LETTER U WITH DOUBLE ACUTE
+00E6      ; [.1C54.0020.0002] # LATIN SMALL LETTER AE
+1DD4      ; [.1C54.0020.0002] # COMBINING LATIN SMALL LETTER AE
+00C6      ; [.1C54.0020.0008] # LATIN CAPITAL LETTER AE
+1D2D      ; [.1C54.0020.0014] # MODIFIER LETTER CAPITAL AE
+01FD      ; [.1C54.0020.0002][.0000.0024.0002] # LATIN SMALL LETTER AE WITH ACUTE
+01FC      ; [.1C54.0020.0008][.0000.0024.0002] # LATIN CAPITAL LETTER AE WITH ACUTE
+01E3      ; [.1C54.0020.0002][.0000.0032.0002] # LATIN SMALL LETTER AE WITH MACRON
+01E2      ; [.1C54.0020.0008][.0000.0032.0002] # LATIN CAPITAL LETTER AE WITH MACRON
+00E4      ; [.1C54.0021.0002] # LATIN SMALL LETTER A WITH DIAERESIS
+0061 0308 ; [.1C54.0021.0002] # LATIN SMALL LETTER A WITH DIAERESIS
+00C4      ; [.1C54.0021.0008] # LATIN CAPITAL LETTER A WITH DIAERESIS
+0041 0308 ; [.1C54.0021.0008] # LATIN CAPITAL LETTER A WITH DIAERESIS
+01DF      ; [.1C54.0021.0002][.0000.0032.0002] # LATIN SMALL LETTER A WITH DIAERESIS AND MACRON
+01DE      ; [.1C54.0021.0008][.0000.0032.0002] # LATIN CAPITAL LETTER A WITH DIAERESIS AND MACRON
+0119      ; [.1C54.0022.0002] # LATIN SMALL LETTER E WITH OGONEK
+0065 0328 ; [.1C54.0022.0002] # LATIN SMALL LETTER E WITH OGONEK
+0118      ; [.1C54.0022.0008] # LATIN CAPITAL LETTER E WITH OGONEK
+0045 0328 ; [.1C54.0022.0008] # LATIN CAPITAL LETTER E WITH OGONEK
+00F8      ; [.1C55.0020.0002] # LATIN SMALL LETTER O WITH STROKE
+006F 0338 ; [.1C55.0020.0002] # LATIN SMALL LETTER O WITH STROKE
+00D8      ; [.1C55.0020.0008] # LATIN CAPITAL LETTER O WITH STROKE
+004F 0338 ; [.1C55.0020.0008] # LATIN CAPITAL LETTER O WITH STROKE
+01FF      ; [.1C55.0020.0002][.0000.0024.0002] # LATIN SMALL LETTER O WITH STROKE AND ACUTE
+01FE      ; [.1C55.0020.0008][.0000.0024.0002] # LATIN CAPITAL LETTER O WITH STROKE AND ACUTE
+00F6      ; [.1C55.0021.0002] # LATIN SMALL LETTER O WITH DIAERESIS
+006F 0308 ; [.1C55.0021.0002] # LATIN SMALL LETTER O WITH DIAERESIS
+00D6      ; [.1C55.0021.0008] # LATIN CAPITAL LETTER O WITH DIAERESIS
+004F 0308 ; [.1C55.0021.0008] # LATIN CAPITAL LETTER O WITH DIAERESIS
+022B      ; [.1C55.0021.0002][.0000.0032.0002] # LATIN SMALL LETTER O WITH DIAERESIS AND MACRON
+022A      ; [.1C55.0021.0008][.0000.0032.0002] # LATIN CAPITAL LETTER O WITH DIAERESIS AND MACRON
+0151      ; [.1C55.0022.0002] # LATIN SMALL LETTER O WITH DOUBLE ACUTE
+006F 030B ; [.1C55.0022.0002] # LATIN SMALL LETTER O WITH DOUBLE ACUTE
+0150      ; [.1C55.0022.0008] # LATIN CAPITAL LETTER O WITH DOUBLE ACUTE
+004F 030B ; [.1C55.0022.0008] # LATIN CAPITAL LETTER O WITH DOUBLE ACUTE
+0153      ; [.1C55.0023.0002] # LATIN SMALL LIGATURE OE
+0152      ; [.1C55.0023.0008] # LATIN CAPITAL LIGATURE OE
+00E5      ; [.1C56.0020.0002] # LATIN SMALL LETTER A WITH RING ABOVE
+0061 030A ; [.1C56.0020.0002] # LATIN SMALL LETTER A WITH RING ABOVE
+00C5      ; [.1C56.0020.0008] # LATIN CAPITAL LETTER A WITH RING ABOVE
+0041 030A ; [.1C56.0020.0008] # LATIN CAPITAL LETTER A WITH RING ABOVE
+212B      ; [.1C56.0020.0008] # ANGSTROM SIGN
+01FB      ; [.1C56.0020.0002][.0000.0024.0002] # LATIN SMALL LETTER A WITH RING ABOVE AND ACUTE
+01FA      ; [.1C56.0020.0008][.0000.0024.0002] # LATIN CAPITAL LETTER A WITH RING ABOVE AND ACUTE
+0061 0061 ; [.1C56.0021.0002] # <LATIN SMALL LETTER A, LATIN SMALL LETTER A>
+0041 0061 ; [.1C56.0021.0007] # <LATIN CAPITAL LETTER A, LATIN SMALL LETTER A>
+0041 0041 ; [.1C56.0021.0008] # <LATIN CAPITAL LETTER A, LATIN CAPITAL LETTER A>
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/nso.pl b/lib/5.24.1/Unicode/Collate/Locale/nso.pl
new file mode 100644
index 00000000..d3c1d6bf
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/nso.pl
@@ -0,0 +1,37 @@
++{
+   locale_version => 1.14,
+   entry => <<'ENTRY', # for DUCET v7.0.0
+00EA      ; [.196F.0020.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX
+0065 0302 ; [.196F.0020.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX
+00CA      ; [.196F.0020.0008] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX
+0045 0302 ; [.196F.0020.0008] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX
+1EC1      ; [.196F.0020.0002][.0000.0025.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND GRAVE
+1EC0      ; [.196F.0020.0008][.0000.0025.0002] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND GRAVE
+1EBF      ; [.196F.0020.0002][.0000.0024.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND ACUTE
+1EBE      ; [.196F.0020.0008][.0000.0024.0002] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND ACUTE
+1EC5      ; [.196F.0020.0002][.0000.002D.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND TILDE
+1EC4      ; [.196F.0020.0008][.0000.002D.0002] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND TILDE
+1EC3      ; [.196F.0020.0002][.0000.003B.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND HOOK ABOVE
+1EC2      ; [.196F.0020.0008][.0000.003B.0002] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND HOOK ABOVE
+1EC7      ; [.196F.0020.0002][.0000.0042.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND DOT BELOW
+1EC6      ; [.196F.0020.0008][.0000.0042.0002] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND DOT BELOW
+00F4      ; [.1AA2.0020.0002] # LATIN SMALL LETTER O WITH CIRCUMFLEX
+006F 0302 ; [.1AA2.0020.0002] # LATIN SMALL LETTER O WITH CIRCUMFLEX
+00D4      ; [.1AA2.0020.0008] # LATIN CAPITAL LETTER O WITH CIRCUMFLEX
+004F 0302 ; [.1AA2.0020.0008] # LATIN CAPITAL LETTER O WITH CIRCUMFLEX
+1ED3      ; [.1AA2.0020.0002][.0000.0025.0002] # LATIN SMALL LETTER O WITH CIRCUMFLEX AND GRAVE
+1ED2      ; [.1AA2.0020.0008][.0000.0025.0002] # LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND GRAVE
+1ED1      ; [.1AA2.0020.0002][.0000.0024.0002] # LATIN SMALL LETTER O WITH CIRCUMFLEX AND ACUTE
+1ED0      ; [.1AA2.0020.0008][.0000.0024.0002] # LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND ACUTE
+1ED7      ; [.1AA2.0020.0002][.0000.002D.0002] # LATIN SMALL LETTER O WITH CIRCUMFLEX AND TILDE
+1ED6      ; [.1AA2.0020.0008][.0000.002D.0002] # LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND TILDE
+1ED5      ; [.1AA2.0020.0002][.0000.003B.0002] # LATIN SMALL LETTER O WITH CIRCUMFLEX AND HOOK ABOVE
+1ED4      ; [.1AA2.0020.0008][.0000.003B.0002] # LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND HOOK ABOVE
+1ED9      ; [.1AA2.0020.0002][.0000.0042.0002] # LATIN SMALL LETTER O WITH CIRCUMFLEX AND DOT BELOW
+1ED8      ; [.1AA2.0020.0008][.0000.0042.0002] # LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND DOT BELOW
+0161      ; [.1B34.0020.0002] # LATIN SMALL LETTER S WITH CARON
+0073 030C ; [.1B34.0020.0002] # LATIN SMALL LETTER S WITH CARON
+0160      ; [.1B34.0020.0008] # LATIN CAPITAL LETTER S WITH CARON
+0053 030C ; [.1B34.0020.0008] # LATIN CAPITAL LETTER S WITH CARON
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/om.pl b/lib/5.24.1/Unicode/Collate/Locale/om.pl
new file mode 100644
index 00000000..5c7196ce
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/om.pl
@@ -0,0 +1,22 @@
++{
+   locale_version => 1.14,
+   entry => <<'ENTRY', # for DUCET v7.0.0
+0063 0068 ; [.1BE4.0020.0002] # <LATIN SMALL LETTER C, LATIN SMALL LETTER H>
+0043 0068 ; [.1BE4.0020.0007] # <LATIN CAPITAL LETTER C, LATIN SMALL LETTER H>
+0043 0048 ; [.1BE4.0020.0008] # <LATIN CAPITAL LETTER C, LATIN CAPITAL LETTER H>
+0064 0068 ; [.1BE5.0020.0002] # <LATIN SMALL LETTER D, LATIN SMALL LETTER H>
+0044 0068 ; [.1BE5.0020.0007] # <LATIN CAPITAL LETTER D, LATIN SMALL LETTER H>
+0044 0048 ; [.1BE5.0020.0008] # <LATIN CAPITAL LETTER D, LATIN CAPITAL LETTER H>
+006B 0068 ; [.1BE6.0020.0002] # <LATIN SMALL LETTER K, LATIN SMALL LETTER H>
+004B 0068 ; [.1BE6.0020.0007] # <LATIN CAPITAL LETTER K, LATIN SMALL LETTER H>
+004B 0048 ; [.1BE6.0020.0008] # <LATIN CAPITAL LETTER K, LATIN CAPITAL LETTER H>
+006E 0079 ; [.1BE7.0020.0002] # <LATIN SMALL LETTER N, LATIN SMALL LETTER Y>
+004E 0079 ; [.1BE7.0020.0007] # <LATIN CAPITAL LETTER N, LATIN SMALL LETTER Y>
+004E 0059 ; [.1BE7.0020.0008] # <LATIN CAPITAL LETTER N, LATIN CAPITAL LETTER Y>
+0070 0068 ; [.1BE8.0020.0002] # <LATIN SMALL LETTER P, LATIN SMALL LETTER H>
+0050 0068 ; [.1BE8.0020.0007] # <LATIN CAPITAL LETTER P, LATIN SMALL LETTER H>
+0050 0048 ; [.1BE8.0020.0008] # <LATIN CAPITAL LETTER P, LATIN CAPITAL LETTER H>
+0073 0068 ; [.1BE9.0020.0002] # <LATIN SMALL LETTER S, LATIN SMALL LETTER H>
+0053 0068 ; [.1BE9.0020.0007] # <LATIN CAPITAL LETTER S, LATIN SMALL LETTER H>
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/or.pl b/lib/5.24.1/Unicode/Collate/Locale/or.pl
new file mode 100644
index 00000000..fa34f4cc
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/or.pl
@@ -0,0 +1,12 @@
++{
+   locale_version => 1.14,
+   entry => <<'ENTRY', # for DUCET v7.0.0
+0B01      ; [.2489.0020.0002][.FFF1.0000.0000] # ORIYA SIGN CANDRABINDU
+0B02      ; [.2489.0020.0002][.FFF2.0000.0000] # ORIYA SIGN ANUSVARA
+0B03      ; [.2489.0020.0002][.FFF3.0000.0000] # ORIYA SIGN VISARGA
+0B14      ; [.2489.0020.0002][.FFF0.0000.0000] # ORIYA LETTER AU
+0B15 0B4D 0B37 ; [.24AD.0020.0002][.FFF1.0000.0000] # <ORIYA LETTER KA, ORIYA SIGN VIRAMA, ORIYA LETTER SSA>
+0B39      ; [.24AD.0020.0002][.FFF0.0000.0000] # ORIYA LETTER HA
+0B5F      ; [.24A3.0021.0002] # ORIYA LETTER YYA
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/pa.pl b/lib/5.24.1/Unicode/Collate/Locale/pa.pl
new file mode 100644
index 00000000..1f53ce33
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/pa.pl
@@ -0,0 +1,27 @@
++{
+   locale_version => 1.14,
+   entry => <<'ENTRY', # for DUCET v7.0.0
+0A71      ; [.0000.00BD.0002] # GURMUKHI ADDAK
+0A03      ; [.0000.00BC.0002] # GURMUKHI SIGN VISARGA
+0A70      ; [.0000.00BE.0002] # GURMUKHI TIPPI
+0A02      ; [.0000.00BF.0002] # GURMUKHI SIGN BINDI
+0A01      ; [.0000.00C0.0002] # GURMUKHI SIGN ADAK BINDI
+0A3C      ; [.0000.00C1.0002] # GURMUKHI SIGN NUKTA
+0A33      ; [.242B.0020.0002][.0000.00C1.0002] # GURMUKHI LETTER LLA
+0A36      ; [.240C.0020.0002][.0000.00C1.0002] # GURMUKHI LETTER SHA
+0A59      ; [.2410.0020.0002][.0000.00C1.0002] # GURMUKHI LETTER KHHA
+0A5A      ; [.2411.0020.0002][.0000.00C1.0002] # GURMUKHI LETTER GHHA
+0A5B      ; [.2416.0020.0002][.0000.00C1.0002] # GURMUKHI LETTER ZA
+0A5E      ; [.2424.0020.0002][.0000.00C1.0002] # GURMUKHI LETTER FA
+0A4D      ; [.242E.0020.0002] # GURMUKHI SIGN VIRAMA
+0A3E      ; [.242F.0020.0002] # GURMUKHI VOWEL SIGN AA
+0A3F      ; [.2430.0020.0002] # GURMUKHI VOWEL SIGN I
+0A40      ; [.2431.0020.0002] # GURMUKHI VOWEL SIGN II
+0A41      ; [.2432.0020.0002] # GURMUKHI VOWEL SIGN U
+0A42      ; [.2433.0020.0002] # GURMUKHI VOWEL SIGN UU
+0A47      ; [.2434.0020.0002] # GURMUKHI VOWEL SIGN EE
+0A48      ; [.2435.0020.0002] # GURMUKHI VOWEL SIGN AI
+0A4B      ; [.2436.0020.0002] # GURMUKHI VOWEL SIGN OO
+0A4C      ; [.2437.0020.0002] # GURMUKHI VOWEL SIGN AU
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/pl.pl b/lib/5.24.1/Unicode/Collate/Locale/pl.pl
new file mode 100644
index 00000000..90b839fb
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/pl.pl
@@ -0,0 +1,51 @@
++{
+   locale_version => 1.14,
+   entry => <<'ENTRY', # for DUCET v7.0.0
+0105      ; [.190D.0020.0002] # LATIN SMALL LETTER A WITH OGONEK
+0061 0328 ; [.190D.0020.0002] # LATIN SMALL LETTER A WITH OGONEK
+0104      ; [.190D.0020.0008] # LATIN CAPITAL LETTER A WITH OGONEK
+0041 0328 ; [.190D.0020.0008] # LATIN CAPITAL LETTER A WITH OGONEK
+0107      ; [.193F.0020.0002] # LATIN SMALL LETTER C WITH ACUTE
+0063 0301 ; [.193F.0020.0002] # LATIN SMALL LETTER C WITH ACUTE
+0063 0341 ; [.193F.0020.0002] # LATIN SMALL LETTER C WITH ACUTE
+0106      ; [.193F.0020.0008] # LATIN CAPITAL LETTER C WITH ACUTE
+0043 0301 ; [.193F.0020.0008] # LATIN CAPITAL LETTER C WITH ACUTE
+0043 0341 ; [.193F.0020.0008] # LATIN CAPITAL LETTER C WITH ACUTE
+0119      ; [.196F.0020.0002] # LATIN SMALL LETTER E WITH OGONEK
+0065 0328 ; [.196F.0020.0002] # LATIN SMALL LETTER E WITH OGONEK
+0118      ; [.196F.0020.0008] # LATIN CAPITAL LETTER E WITH OGONEK
+0045 0328 ; [.196F.0020.0008] # LATIN CAPITAL LETTER E WITH OGONEK
+0142      ; [.1A3C.0020.0002] # LATIN SMALL LETTER L WITH STROKE
+006C 0335 ; [.1A3C.0020.0002] # LATIN SMALL LETTER L WITH STROKE
+0141      ; [.1A3C.0020.0008] # LATIN CAPITAL LETTER L WITH STROKE
+004C 0335 ; [.1A3C.0020.0008] # LATIN CAPITAL LETTER L WITH STROKE
+0144      ; [.1A7E.0020.0002] # LATIN SMALL LETTER N WITH ACUTE
+006E 0301 ; [.1A7E.0020.0002] # LATIN SMALL LETTER N WITH ACUTE
+006E 0341 ; [.1A7E.0020.0002] # LATIN SMALL LETTER N WITH ACUTE
+0143      ; [.1A7E.0020.0008] # LATIN CAPITAL LETTER N WITH ACUTE
+004E 0301 ; [.1A7E.0020.0008] # LATIN CAPITAL LETTER N WITH ACUTE
+004E 0341 ; [.1A7E.0020.0008] # LATIN CAPITAL LETTER N WITH ACUTE
+00F3      ; [.1AA2.0020.0002] # LATIN SMALL LETTER O WITH ACUTE
+006F 0301 ; [.1AA2.0020.0002] # LATIN SMALL LETTER O WITH ACUTE
+006F 0341 ; [.1AA2.0020.0002] # LATIN SMALL LETTER O WITH ACUTE
+00D3      ; [.1AA2.0020.0008] # LATIN CAPITAL LETTER O WITH ACUTE
+004F 0301 ; [.1AA2.0020.0008] # LATIN CAPITAL LETTER O WITH ACUTE
+004F 0341 ; [.1AA2.0020.0008] # LATIN CAPITAL LETTER O WITH ACUTE
+015B      ; [.1B34.0020.0002] # LATIN SMALL LETTER S WITH ACUTE
+0073 0301 ; [.1B34.0020.0002] # LATIN SMALL LETTER S WITH ACUTE
+0073 0341 ; [.1B34.0020.0002] # LATIN SMALL LETTER S WITH ACUTE
+015A      ; [.1B34.0020.0008] # LATIN CAPITAL LETTER S WITH ACUTE
+0053 0301 ; [.1B34.0020.0008] # LATIN CAPITAL LETTER S WITH ACUTE
+0053 0341 ; [.1B34.0020.0008] # LATIN CAPITAL LETTER S WITH ACUTE
+017A      ; [.1BE4.0020.0002] # LATIN SMALL LETTER Z WITH ACUTE
+007A 0301 ; [.1BE4.0020.0002] # LATIN SMALL LETTER Z WITH ACUTE
+007A 0341 ; [.1BE4.0020.0002] # LATIN SMALL LETTER Z WITH ACUTE
+0179      ; [.1BE4.0020.0008] # LATIN CAPITAL LETTER Z WITH ACUTE
+005A 0301 ; [.1BE4.0020.0008] # LATIN CAPITAL LETTER Z WITH ACUTE
+005A 0341 ; [.1BE4.0020.0008] # LATIN CAPITAL LETTER Z WITH ACUTE
+017C      ; [.1BE5.0020.0002] # LATIN SMALL LETTER Z WITH DOT ABOVE
+007A 0307 ; [.1BE5.0020.0002] # LATIN SMALL LETTER Z WITH DOT ABOVE
+017B      ; [.1BE5.0020.0008] # LATIN CAPITAL LETTER Z WITH DOT ABOVE
+005A 0307 ; [.1BE5.0020.0008] # LATIN CAPITAL LETTER Z WITH DOT ABOVE
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/ro.pl b/lib/5.24.1/Unicode/Collate/Locale/ro.pl
new file mode 100644
index 00000000..8d1ec1ee
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/ro.pl
@@ -0,0 +1,53 @@
++{
+   locale_version => 1.14,
+   entry => <<'ENTRY', # for DUCET v7.0.0
+0103      ; [.190D.0020.0002] # LATIN SMALL LETTER A WITH BREVE
+0061 0306 ; [.190D.0020.0002] # LATIN SMALL LETTER A WITH BREVE
+0102      ; [.190D.0020.0008] # LATIN CAPITAL LETTER A WITH BREVE
+0041 0306 ; [.190D.0020.0008] # LATIN CAPITAL LETTER A WITH BREVE
+1EB1      ; [.190D.0020.0002][.0000.0025.0002] # LATIN SMALL LETTER A WITH BREVE AND GRAVE
+1EB0      ; [.190D.0020.0008][.0000.0025.0002] # LATIN CAPITAL LETTER A WITH BREVE AND GRAVE
+1EAF      ; [.190D.0020.0002][.0000.0024.0002] # LATIN SMALL LETTER A WITH BREVE AND ACUTE
+1EAE      ; [.190D.0020.0008][.0000.0024.0002] # LATIN CAPITAL LETTER A WITH BREVE AND ACUTE
+1EB5      ; [.190D.0020.0002][.0000.002D.0002] # LATIN SMALL LETTER A WITH BREVE AND TILDE
+1EB4      ; [.190D.0020.0008][.0000.002D.0002] # LATIN CAPITAL LETTER A WITH BREVE AND TILDE
+1EB3      ; [.190D.0020.0002][.0000.003B.0002] # LATIN SMALL LETTER A WITH BREVE AND HOOK ABOVE
+1EB2      ; [.190D.0020.0008][.0000.003B.0002] # LATIN CAPITAL LETTER A WITH BREVE AND HOOK ABOVE
+1EB7      ; [.190D.0020.0002][.0000.0042.0002] # LATIN SMALL LETTER A WITH BREVE AND DOT BELOW
+1EB6      ; [.190D.0020.0008][.0000.0042.0002] # LATIN CAPITAL LETTER A WITH BREVE AND DOT BELOW
+00E2      ; [.190E.0020.0002] # LATIN SMALL LETTER A WITH CIRCUMFLEX
+0061 0302 ; [.190E.0020.0002] # LATIN SMALL LETTER A WITH CIRCUMFLEX
+00C2      ; [.190E.0020.0008] # LATIN CAPITAL LETTER A WITH CIRCUMFLEX
+0041 0302 ; [.190E.0020.0008] # LATIN CAPITAL LETTER A WITH CIRCUMFLEX
+1EA7      ; [.190E.0020.0002][.0000.0025.0002] # LATIN SMALL LETTER A WITH CIRCUMFLEX AND GRAVE
+1EA6      ; [.190E.0020.0008][.0000.0025.0002] # LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND GRAVE
+1EA5      ; [.190E.0020.0002][.0000.0024.0002] # LATIN SMALL LETTER A WITH CIRCUMFLEX AND ACUTE
+1EA4      ; [.190E.0020.0008][.0000.0024.0002] # LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND ACUTE
+1EAB      ; [.190E.0020.0002][.0000.002D.0002] # LATIN SMALL LETTER A WITH CIRCUMFLEX AND TILDE
+1EAA      ; [.190E.0020.0008][.0000.002D.0002] # LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND TILDE
+1EA9      ; [.190E.0020.0002][.0000.003B.0002] # LATIN SMALL LETTER A WITH CIRCUMFLEX AND HOOK ABOVE
+1EA8      ; [.190E.0020.0008][.0000.003B.0002] # LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND HOOK ABOVE
+1EAD      ; [.190E.0020.0002][.0000.0042.0002] # LATIN SMALL LETTER A WITH CIRCUMFLEX AND DOT BELOW
+1EAC      ; [.190E.0020.0008][.0000.0042.0002] # LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND DOT BELOW
+00EE      ; [.19F7.0020.0002] # LATIN SMALL LETTER I WITH CIRCUMFLEX
+0069 0302 ; [.19F7.0020.0002] # LATIN SMALL LETTER I WITH CIRCUMFLEX
+00CE      ; [.19F7.0020.0008] # LATIN CAPITAL LETTER I WITH CIRCUMFLEX
+0049 0302 ; [.19F7.0020.0008] # LATIN CAPITAL LETTER I WITH CIRCUMFLEX
+015F      ; [.1B34.0020.0002] # LATIN SMALL LETTER S WITH CEDILLA
+0073 0327 ; [.1B34.0020.0002] # LATIN SMALL LETTER S WITH CEDILLA
+0219      ; [.1B34.0020.0002] # LATIN SMALL LETTER S WITH COMMA BELOW
+0073 0326 ; [.1B34.0020.0002] # LATIN SMALL LETTER S WITH COMMA BELOW
+015E      ; [.1B34.0020.0008] # LATIN CAPITAL LETTER S WITH CEDILLA
+0053 0327 ; [.1B34.0020.0008] # LATIN CAPITAL LETTER S WITH CEDILLA
+0218      ; [.1B34.0020.0008] # LATIN CAPITAL LETTER S WITH COMMA BELOW
+0053 0326 ; [.1B34.0020.0008] # LATIN CAPITAL LETTER S WITH COMMA BELOW
+0163      ; [.1B58.0020.0002] # LATIN SMALL LETTER T WITH CEDILLA
+0074 0327 ; [.1B58.0020.0002] # LATIN SMALL LETTER T WITH CEDILLA
+021B      ; [.1B58.0020.0002] # LATIN SMALL LETTER T WITH COMMA BELOW
+0074 0326 ; [.1B58.0020.0002] # LATIN SMALL LETTER T WITH COMMA BELOW
+0162      ; [.1B58.0020.0008] # LATIN CAPITAL LETTER T WITH CEDILLA
+0054 0327 ; [.1B58.0020.0008] # LATIN CAPITAL LETTER T WITH CEDILLA
+021A      ; [.1B58.0020.0008] # LATIN CAPITAL LETTER T WITH COMMA BELOW
+0054 0326 ; [.1B58.0020.0008] # LATIN CAPITAL LETTER T WITH COMMA BELOW
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/ru.pl b/lib/5.24.1/Unicode/Collate/Locale/ru.pl
new file mode 100644
index 00000000..b23b6412
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/ru.pl
@@ -0,0 +1,45 @@
++{
+   locale_version => 1.14,
+   suppress => [0x0410, 0x0430, 0x04D8, 0x04D9, 0x0413, 0x0433, 0x0415, 0x0435,
+		0x0416, 0x0436, 0x0417, 0x0437, 0x0406, 0x0456, 0x041E, 0x043E,
+		0x04E8, 0x04E9, 0x041A, 0x043A, 0x0423, 0x0443, 0x0427, 0x0447,
+		0x042B, 0x044B, 0x042D, 0x044D, 0x0474, 0x0475],
+   entry => <<'ENTRY', # for DUCET v7.0.0
+04D1      ; [.1CE0.0020.0002][.0000.0026.0002] # CYRILLIC SMALL LETTER A WITH BREVE
+04D0      ; [.1CE0.0020.0008][.0000.0026.0002] # CYRILLIC CAPITAL LETTER A WITH BREVE
+04D3      ; [.1CE0.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER A WITH DIAERESIS
+04D2      ; [.1CE0.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER A WITH DIAERESIS
+04DB      ; [.1CEC.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER SCHWA WITH DIAERESIS
+04DA      ; [.1CEC.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER SCHWA WITH DIAERESIS
+0453      ; [.1D00.0020.0002][.0000.0024.0002] # CYRILLIC SMALL LETTER GJE
+0403      ; [.1D00.0020.0008][.0000.0024.0002] # CYRILLIC CAPITAL LETTER GJE
+04D7      ; [.1D28.0020.0002][.0000.0026.0002] # CYRILLIC SMALL LETTER IE WITH BREVE
+04D6      ; [.1D28.0020.0008][.0000.0026.0002] # CYRILLIC CAPITAL LETTER IE WITH BREVE
+04DD      ; [.1D34.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER ZHE WITH DIAERESIS
+04DC      ; [.1D34.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER ZHE WITH DIAERESIS
+04DF      ; [.1D42.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER ZE WITH DIAERESIS
+04DE      ; [.1D42.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER ZE WITH DIAERESIS
+0457      ; [.1D66.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER YI
+0407      ; [.1D66.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER YI
+04E7      ; [.1DC9.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER O WITH DIAERESIS
+04E6      ; [.1DC9.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER O WITH DIAERESIS
+04EB      ; [.1DD1.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER BARRED O WITH DIAERESIS
+04EA      ; [.1DD1.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER BARRED O WITH DIAERESIS
+045C      ; [.1D78.0020.0002][.0000.0024.0002] # CYRILLIC SMALL LETTER KJE
+040C      ; [.1D78.0020.0008][.0000.0024.0002] # CYRILLIC CAPITAL LETTER KJE
+045E      ; [.1E0B.0020.0002][.0000.0026.0002] # CYRILLIC SMALL LETTER SHORT U
+040E      ; [.1E0B.0020.0008][.0000.0026.0002] # CYRILLIC CAPITAL LETTER SHORT U
+04F1      ; [.1E0B.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER U WITH DIAERESIS
+04F0      ; [.1E0B.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER U WITH DIAERESIS
+04F3      ; [.1E0B.0020.0002][.0000.002C.0002] # CYRILLIC SMALL LETTER U WITH DOUBLE ACUTE
+04F2      ; [.1E0B.0020.0008][.0000.002C.0002] # CYRILLIC CAPITAL LETTER U WITH DOUBLE ACUTE
+04F5      ; [.1E5E.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER CHE WITH DIAERESIS
+04F4      ; [.1E5E.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER CHE WITH DIAERESIS
+04F9      ; [.1E92.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER YERU WITH DIAERESIS
+04F8      ; [.1E92.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER YERU WITH DIAERESIS
+04ED      ; [.1EA7.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER E WITH DIAERESIS
+04EC      ; [.1EA7.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER E WITH DIAERESIS
+0477      ; [.1EDD.0020.0002][.0000.003C.0002] # CYRILLIC SMALL LETTER IZHITSA WITH DOUBLE GRAVE ACCENT
+0476      ; [.1EDD.0020.0008][.0000.003C.0002] # CYRILLIC CAPITAL LETTER IZHITSA WITH DOUBLE GRAVE ACCENT
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/sa.pl b/lib/5.24.1/Unicode/Collate/Locale/sa.pl
new file mode 100644
index 00000000..44ca45a0
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/sa.pl
@@ -0,0 +1,14 @@
++{
+   locale_version => 1.14,
+   entry => <<'ENTRY', # for DUCET v7.0.0
+0902      ; [.235B.0020.0002][.FFF1.0000.0000] # DEVANAGARI SIGN ANUSVARA
+0901      ; [.235B.0021.0002][.FFF1.0000.0000] # DEVANAGARI SIGN CANDRABINDU
+0903      ; [.235B.0020.0002][.FFF2.0000.0000] # DEVANAGARI SIGN VISARGA
+0950      ; [.235B.0020.0002][.FFF0.0000.0000] # DEVANAGARI OM
+0933      ; [.239D.0020.0002][.FFF1.0000.0000] # DEVANAGARI LETTER LLA
+0934      ; [.239D.0020.0002][.FFF1.0000.0000][.0000.00BC.0002] # DEVANAGARI LETTER LLLA
+0915 094D 0937 ; [.239D.0020.0002][.FFF2.0000.0000] # <DEVANAGARI LETTER KA, DEVANAGARI SIGN VIRAMA, DEVANAGARI LETTER SSA>
+091C 094D 091E ; [.239D.0020.0002][.FFF3.0000.0000] # <DEVANAGARI LETTER JA, DEVANAGARI SIGN VIRAMA, DEVANAGARI LETTER NYA>
+0939      ; [.239D.0020.0002][.FFF0.0000.0000] # DEVANAGARI LETTER HA
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/se.pl b/lib/5.24.1/Unicode/Collate/Locale/se.pl
new file mode 100644
index 00000000..f693e93d
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/se.pl
@@ -0,0 +1,150 @@
++{
+   locale_version => 1.14,
+# eng, g-stroke, t-stroke don't require tailoring
+   entry => <<'ENTRY', # for DUCET v7.0.0
+00E1      ; [.1924.0020.0002] # LATIN SMALL LETTER A WITH ACUTE
+0061 0301 ; [.1924.0020.0002] # LATIN SMALL LETTER A WITH ACUTE
+0061 0341 ; [.1924.0020.0002] # LATIN SMALL LETTER A WITH ACUTE
+00C1      ; [.1924.0020.0008] # LATIN CAPITAL LETTER A WITH ACUTE
+0041 0301 ; [.1924.0020.0008] # LATIN CAPITAL LETTER A WITH ACUTE
+0041 0341 ; [.1924.0020.0008] # LATIN CAPITAL LETTER A WITH ACUTE
+010D      ; [.1950.0020.0002] # LATIN SMALL LETTER C WITH CARON
+0063 030C ; [.1950.0020.0002] # LATIN SMALL LETTER C WITH CARON
+010C      ; [.1950.0020.0008] # LATIN CAPITAL LETTER C WITH CARON
+0043 030C ; [.1950.0020.0008] # LATIN CAPITAL LETTER C WITH CARON
+0292      ; [.1951.0020.0002] # LATIN SMALL LETTER EZH
+01B7      ; [.1951.0020.0008] # LATIN CAPITAL LETTER EZH
+01EF      ; [.1952.0020.0002] # LATIN SMALL LETTER EZH WITH CARON
+0292 030C ; [.1952.0020.0002] # LATIN SMALL LETTER EZH WITH CARON
+01EE      ; [.1952.0020.0008] # LATIN CAPITAL LETTER EZH WITH CARON
+01B7 030C ; [.1952.0020.0008] # LATIN CAPITAL LETTER EZH WITH CARON
+0111      ; [.196D.0020.0002] # LATIN SMALL LETTER D WITH STROKE
+0064 0335 ; [.196D.0020.0002] # LATIN SMALL LETTER D WITH STROKE
+0110      ; [.196D.0020.0008] # LATIN CAPITAL LETTER D WITH STROKE
+0044 0335 ; [.196D.0020.0008] # LATIN CAPITAL LETTER D WITH STROKE
+00F0      ; [.196D.0021.0002] # LATIN SMALL LETTER ETH
+1DD9      ; [.196D.0021.0002] # COMBINING LATIN SMALL LETTER ETH
+00D0      ; [.196D.0021.0008] # LATIN CAPITAL LETTER ETH
+01E7      ; [.19C4.0020.0002] # LATIN SMALL LETTER G WITH CARON
+0067 030C ; [.19C4.0020.0002] # LATIN SMALL LETTER G WITH CARON
+01E6      ; [.19C4.0020.0008] # LATIN CAPITAL LETTER G WITH CARON
+0047 030C ; [.19C4.0020.0008] # LATIN CAPITAL LETTER G WITH CARON
+01E9      ; [.1A3A.0020.0002] # LATIN SMALL LETTER K WITH CARON
+006B 030C ; [.1A3A.0020.0002] # LATIN SMALL LETTER K WITH CARON
+01E8      ; [.1A3A.0020.0008] # LATIN CAPITAL LETTER K WITH CARON
+004B 030C ; [.1A3A.0020.0008] # LATIN CAPITAL LETTER K WITH CARON
+0144      ; [.1A9C.0021.0002] # LATIN SMALL LETTER N WITH ACUTE
+006E 0301 ; [.1A9C.0021.0002] # LATIN SMALL LETTER N WITH ACUTE
+006E 0341 ; [.1A9C.0021.0002] # LATIN SMALL LETTER N WITH ACUTE
+0143      ; [.1A9C.0021.0008] # LATIN CAPITAL LETTER N WITH ACUTE
+004E 0301 ; [.1A9C.0021.0008] # LATIN CAPITAL LETTER N WITH ACUTE
+004E 0341 ; [.1A9C.0021.0008] # LATIN CAPITAL LETTER N WITH ACUTE
+00F1      ; [.1A9C.0022.0002] # LATIN SMALL LETTER N WITH TILDE
+006E 0303 ; [.1A9C.0022.0002] # LATIN SMALL LETTER N WITH TILDE
+00D1      ; [.1A9C.0022.0008] # LATIN CAPITAL LETTER N WITH TILDE
+004E 0303 ; [.1A9C.0022.0008] # LATIN CAPITAL LETTER N WITH TILDE
+0161      ; [.1B56.0020.0002] # LATIN SMALL LETTER S WITH CARON
+0073 030C ; [.1B56.0020.0002] # LATIN SMALL LETTER S WITH CARON
+0160      ; [.1B56.0020.0008] # LATIN CAPITAL LETTER S WITH CARON
+0053 030C ; [.1B56.0020.0008] # LATIN CAPITAL LETTER S WITH CARON
+00FE      ; [.1B5C.0021.0002] # LATIN SMALL LETTER THORN
+00DE      ; [.1B5C.0021.0008] # LATIN CAPITAL LETTER THORN
+00FC      ; [.1BCD.0021.0002] # LATIN SMALL LETTER U WITH DIAERESIS
+0075 0308 ; [.1BCD.0021.0002] # LATIN SMALL LETTER U WITH DIAERESIS
+00DC      ; [.1BCD.0021.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS
+0055 0308 ; [.1BCD.0021.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS
+01DC      ; [.1BCD.0021.0002][.0000.0025.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND GRAVE
+01DB      ; [.1BCD.0021.0008][.0000.0025.0002] # LATIN CAPITAL LETTER U WITH DIAERESIS AND GRAVE
+01D8      ; [.1BCD.0021.0002][.0000.0024.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND ACUTE
+01D7      ; [.1BCD.0021.0008][.0000.0024.0002] # LATIN CAPITAL LETTER U WITH DIAERESIS AND ACUTE
+01D6      ; [.1BCD.0021.0002][.0000.0032.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND MACRON
+01D5      ; [.1BCD.0021.0008][.0000.0032.0002] # LATIN CAPITAL LETTER U WITH DIAERESIS AND MACRON
+01DA      ; [.1BCD.0021.0002][.0000.0028.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND CARON
+01D9      ; [.1BCD.0021.0008][.0000.0028.0002] # LATIN CAPITAL LETTER U WITH DIAERESIS AND CARON
+0171      ; [.1BCD.0022.0002] # LATIN SMALL LETTER U WITH DOUBLE ACUTE
+0075 030B ; [.1BCD.0022.0002] # LATIN SMALL LETTER U WITH DOUBLE ACUTE
+0170      ; [.1BCD.0022.0008] # LATIN CAPITAL LETTER U WITH DOUBLE ACUTE
+0055 030B ; [.1BCD.0022.0008] # LATIN CAPITAL LETTER U WITH DOUBLE ACUTE
+017E      ; [.1C50.0020.0002] # LATIN SMALL LETTER Z WITH CARON
+007A 030C ; [.1C50.0020.0002] # LATIN SMALL LETTER Z WITH CARON
+017D      ; [.1C50.0020.0008] # LATIN CAPITAL LETTER Z WITH CARON
+005A 030C ; [.1C50.0020.0008] # LATIN CAPITAL LETTER Z WITH CARON
+00F8      ; [.1C51.0020.0002] # LATIN SMALL LETTER O WITH STROKE
+006F 0338 ; [.1C51.0020.0002] # LATIN SMALL LETTER O WITH STROKE
+00D8      ; [.1C51.0020.0008] # LATIN CAPITAL LETTER O WITH STROKE
+004F 0338 ; [.1C51.0020.0008] # LATIN CAPITAL LETTER O WITH STROKE
+01FF      ; [.1C51.0020.0002][.0000.0024.0002] # LATIN SMALL LETTER O WITH STROKE AND ACUTE
+01FE      ; [.1C51.0020.0008][.0000.0024.0002] # LATIN CAPITAL LETTER O WITH STROKE AND ACUTE
+0153      ; [.1C51.0021.0002] # LATIN SMALL LIGATURE OE
+0152      ; [.1C51.0021.0008] # LATIN CAPITAL LIGATURE OE
+00E6      ; [.1C52.0020.0002] # LATIN SMALL LETTER AE
+1DD4      ; [.1C52.0020.0002] # COMBINING LATIN SMALL LETTER AE
+00C6      ; [.1C52.0020.0008] # LATIN CAPITAL LETTER AE
+1D2D      ; [.1C52.0020.0014] # MODIFIER LETTER CAPITAL AE
+01FD      ; [.1C52.0020.0002][.0000.0024.0002] # LATIN SMALL LETTER AE WITH ACUTE
+01FC      ; [.1C52.0020.0008][.0000.0024.0002] # LATIN CAPITAL LETTER AE WITH ACUTE
+01E3      ; [.1C52.0020.0002][.0000.0032.0002] # LATIN SMALL LETTER AE WITH MACRON
+01E2      ; [.1C52.0020.0008][.0000.0032.0002] # LATIN CAPITAL LETTER AE WITH MACRON
+00E5      ; [.1C54.0020.0002] # LATIN SMALL LETTER A WITH RING ABOVE
+0061 030A ; [.1C54.0020.0002] # LATIN SMALL LETTER A WITH RING ABOVE
+00C5      ; [.1C54.0020.0008] # LATIN CAPITAL LETTER A WITH RING ABOVE
+0041 030A ; [.1C54.0020.0008] # LATIN CAPITAL LETTER A WITH RING ABOVE
+212B      ; [.1C54.0020.0008] # ANGSTROM SIGN
+01FB      ; [.1C54.0020.0002][.0000.0024.0002] # LATIN SMALL LETTER A WITH RING ABOVE AND ACUTE
+01FA      ; [.1C54.0020.0008][.0000.0024.0002] # LATIN CAPITAL LETTER A WITH RING ABOVE AND ACUTE
+0227      ; [.1C54.0021.0002] # LATIN SMALL LETTER A WITH DOT ABOVE
+0061 0307 ; [.1C54.0021.0002] # LATIN SMALL LETTER A WITH DOT ABOVE
+0226      ; [.1C54.0021.0008] # LATIN CAPITAL LETTER A WITH DOT ABOVE
+0041 0307 ; [.1C54.0021.0008] # LATIN CAPITAL LETTER A WITH DOT ABOVE
+00E4      ; [.1C55.0020.0002] # LATIN SMALL LETTER A WITH DIAERESIS
+0061 0308 ; [.1C55.0020.0002] # LATIN SMALL LETTER A WITH DIAERESIS
+00C4      ; [.1C55.0020.0008] # LATIN CAPITAL LETTER A WITH DIAERESIS
+0041 0308 ; [.1C55.0020.0008] # LATIN CAPITAL LETTER A WITH DIAERESIS
+01DF      ; [.1C55.0020.0002][.0000.0032.0002] # LATIN SMALL LETTER A WITH DIAERESIS AND MACRON
+01DE      ; [.1C55.0020.0008][.0000.0032.0002] # LATIN CAPITAL LETTER A WITH DIAERESIS AND MACRON
+00E3      ; [.1C55.0021.0002] # LATIN SMALL LETTER A WITH TILDE
+0061 0303 ; [.1C55.0021.0002] # LATIN SMALL LETTER A WITH TILDE
+00C3      ; [.1C55.0021.0008] # LATIN CAPITAL LETTER A WITH TILDE
+0041 0303 ; [.1C55.0021.0008] # LATIN CAPITAL LETTER A WITH TILDE
+00F6      ; [.1C56.0020.0002] # LATIN SMALL LETTER O WITH DIAERESIS
+006F 0308 ; [.1C56.0020.0002] # LATIN SMALL LETTER O WITH DIAERESIS
+00D6      ; [.1C56.0020.0008] # LATIN CAPITAL LETTER O WITH DIAERESIS
+004F 0308 ; [.1C56.0020.0008] # LATIN CAPITAL LETTER O WITH DIAERESIS
+022B      ; [.1C56.0020.0002][.0000.0032.0002] # LATIN SMALL LETTER O WITH DIAERESIS AND MACRON
+022A      ; [.1C56.0020.0008][.0000.0032.0002] # LATIN CAPITAL LETTER O WITH DIAERESIS AND MACRON
+0151      ; [.1C56.0021.0002] # LATIN SMALL LETTER O WITH DOUBLE ACUTE
+006F 030B ; [.1C56.0021.0002] # LATIN SMALL LETTER O WITH DOUBLE ACUTE
+0150      ; [.1C56.0021.0008] # LATIN CAPITAL LETTER O WITH DOUBLE ACUTE
+004F 030B ; [.1C56.0021.0008] # LATIN CAPITAL LETTER O WITH DOUBLE ACUTE
+00F5      ; [.1C56.0022.0002] # LATIN SMALL LETTER O WITH TILDE
+006F 0303 ; [.1C56.0022.0002] # LATIN SMALL LETTER O WITH TILDE
+00D5      ; [.1C56.0022.0008] # LATIN CAPITAL LETTER O WITH TILDE
+004F 0303 ; [.1C56.0022.0008] # LATIN CAPITAL LETTER O WITH TILDE
+1E4D      ; [.1C56.0022.0002][.0000.0024.0002] # LATIN SMALL LETTER O WITH TILDE AND ACUTE
+1E4C      ; [.1C56.0022.0008][.0000.0024.0002] # LATIN CAPITAL LETTER O WITH TILDE AND ACUTE
+022D      ; [.1C56.0022.0002][.0000.0032.0002] # LATIN SMALL LETTER O WITH TILDE AND MACRON
+022C      ; [.1C56.0022.0008][.0000.0032.0002] # LATIN CAPITAL LETTER O WITH TILDE AND MACRON
+1E4F      ; [.1C56.0022.0002][.0000.002B.0002] # LATIN SMALL LETTER O WITH TILDE AND DIAERESIS
+1E4E      ; [.1C56.0022.0008][.0000.002B.0002] # LATIN CAPITAL LETTER O WITH TILDE AND DIAERESIS
+1EE1      ; [.1C56.0022.0002][.0000.003F.0002] # LATIN SMALL LETTER O WITH HORN AND TILDE
+1EE0      ; [.1C56.0022.0008][.0000.003F.0002] # LATIN CAPITAL LETTER O WITH HORN AND TILDE
+00F4      ; [.1C56.0023.0002] # LATIN SMALL LETTER O WITH CIRCUMFLEX
+006F 0302 ; [.1C56.0023.0002] # LATIN SMALL LETTER O WITH CIRCUMFLEX
+00D4      ; [.1C56.0023.0008] # LATIN CAPITAL LETTER O WITH CIRCUMFLEX
+004F 0302 ; [.1C56.0023.0008] # LATIN CAPITAL LETTER O WITH CIRCUMFLEX
+1ED3      ; [.1C56.0023.0002][.0000.0025.0002] # LATIN SMALL LETTER O WITH CIRCUMFLEX AND GRAVE
+1ED2      ; [.1C56.0023.0008][.0000.0025.0002] # LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND GRAVE
+1ED1      ; [.1C56.0023.0002][.0000.0024.0002] # LATIN SMALL LETTER O WITH CIRCUMFLEX AND ACUTE
+1ED0      ; [.1C56.0023.0008][.0000.0024.0002] # LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND ACUTE
+1ED7      ; [.1C56.0023.0002][.0000.002D.0002] # LATIN SMALL LETTER O WITH CIRCUMFLEX AND TILDE
+1ED6      ; [.1C56.0023.0008][.0000.002D.0002] # LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND TILDE
+1ED5      ; [.1C56.0023.0002][.0000.003B.0002] # LATIN SMALL LETTER O WITH CIRCUMFLEX AND HOOK ABOVE
+1ED4      ; [.1C56.0023.0008][.0000.003B.0002] # LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND HOOK ABOVE
+1ED9      ; [.1C56.0023.0002][.0000.0042.0002] # LATIN SMALL LETTER O WITH CIRCUMFLEX AND DOT BELOW
+1ED8      ; [.1C56.0023.0008][.0000.0042.0002] # LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND DOT BELOW
+01EB      ; [.1C56.0024.0002] # LATIN SMALL LETTER O WITH OGONEK
+006F 0328 ; [.1C56.0024.0002] # LATIN SMALL LETTER O WITH OGONEK
+01EA      ; [.1C56.0024.0008] # LATIN CAPITAL LETTER O WITH OGONEK
+004F 0328 ; [.1C56.0024.0008] # LATIN CAPITAL LETTER O WITH OGONEK
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/si.pl b/lib/5.24.1/Unicode/Collate/Locale/si.pl
new file mode 100644
index 00000000..24e7ff8e
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/si.pl
@@ -0,0 +1,10 @@
++{
+   locale_version => 1.14,
+   entry => <<'ENTRY', # for DUCET v7.0.0
+0D82      ; [.25DC.0020.0002][.FFF1.0000.0000] # SINHALA SIGN ANUSVARAYA
+0D83      ; [.25DC.0020.0002][.FFF2.0000.0000] # SINHALA SIGN VISARGAYA
+0D96      ; [.25DC.0020.0002][.FFF0.0000.0000] # SINHALA LETTER AUYANNA
+0DA5      ; [.25E7.0020.0002] # SINHALA LETTER TAALUJA SANYOOGA NAAKSIKYAYA
+0DA4      ; [.25E8.0020.0002] # SINHALA LETTER TAALUJA NAASIKYAYA
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/si_dict.pl b/lib/5.24.1/Unicode/Collate/Locale/si_dict.pl
new file mode 100644
index 00000000..708d2b41
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/si_dict.pl
@@ -0,0 +1,9 @@
++{
+   locale_version => 1.14,
+   entry => <<'ENTRY', # for DUCET v7.0.0
+0D82      ; [.25DC.0020.0002][.FFF1.0000.0000] # SINHALA SIGN ANUSVARAYA
+0D83      ; [.25DC.0020.0002][.FFF2.0000.0000] # SINHALA SIGN VISARGAYA
+0D96      ; [.25DC.0020.0002][.FFF0.0000.0000] # SINHALA LETTER AUYANNA
+0DA5      ; [.25E5.0020.0002][.2617.0020.0002][.25E7.0021.0002] # SINHALA LETTER TAALUJA SANYOOGA NAAKSIKYAYA
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/sk.pl b/lib/5.24.1/Unicode/Collate/Locale/sk.pl
new file mode 100644
index 00000000..89f5de15
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/sk.pl
@@ -0,0 +1,45 @@
++{
+   locale_version => 1.14,
+   entry => <<'ENTRY', # for DUCET v7.0.0
+00E4      ; [.190D.0020.0002] # LATIN SMALL LETTER A WITH DIAERESIS
+0061 0308 ; [.190D.0020.0002] # LATIN SMALL LETTER A WITH DIAERESIS
+00C4      ; [.190D.0020.0008] # LATIN CAPITAL LETTER A WITH DIAERESIS
+0041 0308 ; [.190D.0020.0008] # LATIN CAPITAL LETTER A WITH DIAERESIS
+01DF      ; [.190D.0020.0002][.0000.0032.0002] # LATIN SMALL LETTER A WITH DIAERESIS AND MACRON
+01DE      ; [.190D.0020.0008][.0000.0032.0002] # LATIN CAPITAL LETTER A WITH DIAERESIS AND MACRON
+010D      ; [.193F.0020.0002] # LATIN SMALL LETTER C WITH CARON
+0063 030C ; [.193F.0020.0002] # LATIN SMALL LETTER C WITH CARON
+010C      ; [.193F.0020.0008] # LATIN CAPITAL LETTER C WITH CARON
+0043 030C ; [.193F.0020.0008] # LATIN CAPITAL LETTER C WITH CARON
+0063 0068 ; [.19DD.0020.0002] # <LATIN SMALL LETTER C, LATIN SMALL LETTER H>
+0063 0048 ; [.19DD.0020.0007][.0000.0000.0002] # <LATIN SMALL LETTER C, LATIN CAPITAL LETTER H>
+0043 0068 ; [.19DD.0020.0007][.0000.0000.0008] # <LATIN CAPITAL LETTER C, LATIN SMALL LETTER H>
+0043 0048 ; [.19DD.0020.0008] # <LATIN CAPITAL LETTER C, LATIN CAPITAL LETTER H>
+00F4      ; [.1AA2.0020.0002] # LATIN SMALL LETTER O WITH CIRCUMFLEX
+006F 0302 ; [.1AA2.0020.0002] # LATIN SMALL LETTER O WITH CIRCUMFLEX
+00D4      ; [.1AA2.0020.0008] # LATIN CAPITAL LETTER O WITH CIRCUMFLEX
+004F 0302 ; [.1AA2.0020.0008] # LATIN CAPITAL LETTER O WITH CIRCUMFLEX
+1ED3      ; [.1AA2.0020.0002][.0000.0025.0002] # LATIN SMALL LETTER O WITH CIRCUMFLEX AND GRAVE
+1ED2      ; [.1AA2.0020.0008][.0000.0025.0002] # LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND GRAVE
+1ED1      ; [.1AA2.0020.0002][.0000.0024.0002] # LATIN SMALL LETTER O WITH CIRCUMFLEX AND ACUTE
+1ED0      ; [.1AA2.0020.0008][.0000.0024.0002] # LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND ACUTE
+1ED7      ; [.1AA2.0020.0002][.0000.002D.0002] # LATIN SMALL LETTER O WITH CIRCUMFLEX AND TILDE
+1ED6      ; [.1AA2.0020.0008][.0000.002D.0002] # LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND TILDE
+1ED5      ; [.1AA2.0020.0002][.0000.003B.0002] # LATIN SMALL LETTER O WITH CIRCUMFLEX AND HOOK ABOVE
+1ED4      ; [.1AA2.0020.0008][.0000.003B.0002] # LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND HOOK ABOVE
+1ED9      ; [.1AA2.0020.0002][.0000.0042.0002] # LATIN SMALL LETTER O WITH CIRCUMFLEX AND DOT BELOW
+1ED8      ; [.1AA2.0020.0008][.0000.0042.0002] # LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND DOT BELOW
+0159      ; [.1AF6.0020.0002] # LATIN SMALL LETTER R WITH CARON
+0072 030C ; [.1AF6.0020.0002] # LATIN SMALL LETTER R WITH CARON
+0158      ; [.1AF6.0020.0008] # LATIN CAPITAL LETTER R WITH CARON
+0052 030C ; [.1AF6.0020.0008] # LATIN CAPITAL LETTER R WITH CARON
+0161      ; [.1B34.0020.0002] # LATIN SMALL LETTER S WITH CARON
+0073 030C ; [.1B34.0020.0002] # LATIN SMALL LETTER S WITH CARON
+0160      ; [.1B34.0020.0008] # LATIN CAPITAL LETTER S WITH CARON
+0053 030C ; [.1B34.0020.0008] # LATIN CAPITAL LETTER S WITH CARON
+017E      ; [.1BE4.0020.0002] # LATIN SMALL LETTER Z WITH CARON
+007A 030C ; [.1BE4.0020.0002] # LATIN SMALL LETTER Z WITH CARON
+017D      ; [.1BE4.0020.0008] # LATIN CAPITAL LETTER Z WITH CARON
+005A 030C ; [.1BE4.0020.0008] # LATIN CAPITAL LETTER Z WITH CARON
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/sl.pl b/lib/5.24.1/Unicode/Collate/Locale/sl.pl
new file mode 100644
index 00000000..979e890f
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/sl.pl
@@ -0,0 +1,17 @@
++{
+   locale_version => 1.14,
+   entry => <<'ENTRY', # for DUCET v7.0.0
+010D      ; [.193F.0020.0002] # LATIN SMALL LETTER C WITH CARON
+0063 030C ; [.193F.0020.0002] # LATIN SMALL LETTER C WITH CARON
+010C      ; [.193F.0020.0008] # LATIN CAPITAL LETTER C WITH CARON
+0043 030C ; [.193F.0020.0008] # LATIN CAPITAL LETTER C WITH CARON
+0161      ; [.1B34.0020.0002] # LATIN SMALL LETTER S WITH CARON
+0073 030C ; [.1B34.0020.0002] # LATIN SMALL LETTER S WITH CARON
+0160      ; [.1B34.0020.0008] # LATIN CAPITAL LETTER S WITH CARON
+0053 030C ; [.1B34.0020.0008] # LATIN CAPITAL LETTER S WITH CARON
+017E      ; [.1BE4.0020.0002] # LATIN SMALL LETTER Z WITH CARON
+007A 030C ; [.1BE4.0020.0002] # LATIN SMALL LETTER Z WITH CARON
+017D      ; [.1BE4.0020.0008] # LATIN CAPITAL LETTER Z WITH CARON
+005A 030C ; [.1BE4.0020.0008] # LATIN CAPITAL LETTER Z WITH CARON
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/sq.pl b/lib/5.24.1/Unicode/Collate/Locale/sq.pl
new file mode 100644
index 00000000..b8d243b5
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/sq.pl
@@ -0,0 +1,49 @@
++{
+   locale_version => 1.14,
+   entry => <<'ENTRY', # for DUCET v7.0.0
+00E7      ; [.1952.0020.0002] # LATIN SMALL LETTER C WITH CEDILLA
+0063 0327 ; [.1952.0020.0002] # LATIN SMALL LETTER C WITH CEDILLA
+00C7      ; [.1952.0020.0008] # LATIN CAPITAL LETTER C WITH CEDILLA
+0043 0327 ; [.1952.0020.0008] # LATIN CAPITAL LETTER C WITH CEDILLA
+0064 0068 ; [.196D.0020.0002] # <LATIN SMALL LETTER D, LATIN SMALL LETTER H>
+0064 0048 ; [.196D.0020.0007][.0000.0000.0002] # <LATIN SMALL LETTER D, LATIN CAPITAL LETTER H>
+0044 0068 ; [.196D.0020.0007][.0000.0000.0008] # <LATIN CAPITAL LETTER D, LATIN SMALL LETTER H>
+0044 0048 ; [.196D.0020.0008] # <LATIN CAPITAL LETTER D, LATIN CAPITAL LETTER H>
+00EB      ; [.19A8.0020.0002] # LATIN SMALL LETTER E WITH DIAERESIS
+0065 0308 ; [.19A8.0020.0002] # LATIN SMALL LETTER E WITH DIAERESIS
+00CB      ; [.19A8.0020.0008] # LATIN CAPITAL LETTER E WITH DIAERESIS
+0045 0308 ; [.19A8.0020.0008] # LATIN CAPITAL LETTER E WITH DIAERESIS
+0067 006A ; [.19DB.0020.0002] # <LATIN SMALL LETTER G, LATIN SMALL LETTER J>
+0067 004A ; [.19DB.0020.0007][.0000.0000.0002] # <LATIN SMALL LETTER G, LATIN CAPITAL LETTER J>
+0047 006A ; [.19DB.0020.0007][.0000.0000.0008] # <LATIN CAPITAL LETTER G, LATIN SMALL LETTER J>
+0047 004A ; [.19DB.0020.0008] # <LATIN CAPITAL LETTER G, LATIN CAPITAL LETTER J>
+006C 006C ; [.1A6D.0020.0002] # <LATIN SMALL LETTER L, LATIN SMALL LETTER L>
+006C 004C ; [.1A6D.0020.0007][.0000.0000.0002] # <LATIN SMALL LETTER L, LATIN CAPITAL LETTER L>
+004C 006C ; [.1A6D.0020.0007][.0000.0000.0008] # <LATIN CAPITAL LETTER L, LATIN SMALL LETTER L>
+004C 004C ; [.1A6D.0020.0008] # <LATIN CAPITAL LETTER L, LATIN CAPITAL LETTER L>
+006E 006A ; [.1AA0.0020.0002] # <LATIN SMALL LETTER N, LATIN SMALL LETTER J>
+006E 004A ; [.1AA0.0020.0007][.0000.0000.0002] # <LATIN SMALL LETTER N, LATIN CAPITAL LETTER J>
+004E 006A ; [.1AA0.0020.0007][.0000.0000.0008] # <LATIN CAPITAL LETTER N, LATIN SMALL LETTER J>
+004E 004A ; [.1AA0.0020.0008] # <LATIN CAPITAL LETTER N, LATIN CAPITAL LETTER J>
+0072 0072 ; [.1B32.0020.0002] # <LATIN SMALL LETTER R, LATIN SMALL LETTER R>
+0072 0052 ; [.1B32.0020.0007][.0000.0000.0002] # <LATIN SMALL LETTER R, LATIN CAPITAL LETTER R>
+0052 0072 ; [.1B32.0020.0007][.0000.0000.0008] # <LATIN CAPITAL LETTER R, LATIN SMALL LETTER R>
+0052 0052 ; [.1B32.0020.0008] # <LATIN CAPITAL LETTER R, LATIN CAPITAL LETTER R>
+0073 0068 ; [.1B56.0020.0002] # <LATIN SMALL LETTER S, LATIN SMALL LETTER H>
+0073 0048 ; [.1B56.0020.0007][.0000.0000.0002] # <LATIN SMALL LETTER S, LATIN CAPITAL LETTER H>
+0053 0068 ; [.1B56.0020.0007][.0000.0000.0008] # <LATIN CAPITAL LETTER S, LATIN SMALL LETTER H>
+0053 0048 ; [.1B56.0020.0008] # <LATIN CAPITAL LETTER S, LATIN CAPITAL LETTER H>
+0074 0068 ; [.1B76.0020.0002] # <LATIN SMALL LETTER T, LATIN SMALL LETTER H>
+0074 0048 ; [.1B76.0020.0007][.0000.0000.0002] # <LATIN SMALL LETTER T, LATIN CAPITAL LETTER H>
+0054 0068 ; [.1B76.0020.0007][.0000.0000.0008] # <LATIN CAPITAL LETTER T, LATIN SMALL LETTER H>
+0054 0048 ; [.1B76.0020.0008] # <LATIN CAPITAL LETTER T, LATIN CAPITAL LETTER H>
+0078 0068 ; [.1BCC.0020.0002] # <LATIN SMALL LETTER X, LATIN SMALL LETTER H>
+0078 0048 ; [.1BCC.0020.0007][.0000.0000.0002] # <LATIN SMALL LETTER X, LATIN CAPITAL LETTER H>
+0058 0068 ; [.1BCC.0020.0007][.0000.0000.0008] # <LATIN CAPITAL LETTER X, LATIN SMALL LETTER H>
+0058 0048 ; [.1BCC.0020.0008] # <LATIN CAPITAL LETTER X, LATIN CAPITAL LETTER H>
+007A 0068 ; [.1BFF.0020.0002] # <LATIN SMALL LETTER Z, LATIN SMALL LETTER H>
+007A 0048 ; [.1BFF.0020.0007][.0000.0000.0002] # <LATIN SMALL LETTER Z, LATIN CAPITAL LETTER H>
+005A 0068 ; [.1BFF.0020.0007][.0000.0000.0008] # <LATIN CAPITAL LETTER Z, LATIN SMALL LETTER H>
+005A 0048 ; [.1BFF.0020.0008] # <LATIN CAPITAL LETTER Z, LATIN CAPITAL LETTER H>
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/sr.pl b/lib/5.24.1/Unicode/Collate/Locale/sr.pl
new file mode 100644
index 00000000..8b829e19
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/sr.pl
@@ -0,0 +1,49 @@
++{
+   locale_version => 1.14,
+   suppress => [0x0410, 0x0430, 0x04D8, 0x04D9, 0x0413, 0x0433, 0x0415, 0x0435,
+		0x0416, 0x0436, 0x0417, 0x0437, 0x0418, 0x0438, 0x0406, 0x0456,
+		0x041E, 0x043E, 0x04E8, 0x04E9, 0x041A, 0x043A, 0x0423, 0x0443,
+		0x0427, 0x0447, 0x042B, 0x044B, 0x042D, 0x044D, 0x0474, 0x0475],
+   entry => <<'ENTRY', # for DUCET v7.0.0
+04D1      ; [.1CE0.0020.0002][.0000.0026.0002] # CYRILLIC SMALL LETTER A WITH BREVE
+04D0      ; [.1CE0.0020.0008][.0000.0026.0002] # CYRILLIC CAPITAL LETTER A WITH BREVE
+04D3      ; [.1CE0.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER A WITH DIAERESIS
+04D2      ; [.1CE0.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER A WITH DIAERESIS
+04DB      ; [.1CEC.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER SCHWA WITH DIAERESIS
+04DA      ; [.1CEC.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER SCHWA WITH DIAERESIS
+0453      ; [.1D00.0020.0002][.0000.0024.0002] # CYRILLIC SMALL LETTER GJE
+0403      ; [.1D00.0020.0008][.0000.0024.0002] # CYRILLIC CAPITAL LETTER GJE
+04D7      ; [.1D28.0020.0002][.0000.0026.0002] # CYRILLIC SMALL LETTER IE WITH BREVE
+04D6      ; [.1D28.0020.0008][.0000.0026.0002] # CYRILLIC CAPITAL LETTER IE WITH BREVE
+04DD      ; [.1D34.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER ZHE WITH DIAERESIS
+04DC      ; [.1D34.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER ZHE WITH DIAERESIS
+04DF      ; [.1D42.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER ZE WITH DIAERESIS
+04DE      ; [.1D42.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER ZE WITH DIAERESIS
+04E5      ; [.1D5A.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER I WITH DIAERESIS
+04E4      ; [.1D5A.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER I WITH DIAERESIS
+0457      ; [.1D66.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER YI
+0407      ; [.1D66.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER YI
+0439      ; [.1D5A.0020.0002][.0000.0026.0002] # CYRILLIC SMALL LETTER SHORT I
+0419      ; [.1D5A.0020.0008][.0000.0026.0002] # CYRILLIC CAPITAL LETTER SHORT I
+04E7      ; [.1DC9.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER O WITH DIAERESIS
+04E6      ; [.1DC9.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER O WITH DIAERESIS
+04EB      ; [.1DD1.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER BARRED O WITH DIAERESIS
+04EA      ; [.1DD1.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER BARRED O WITH DIAERESIS
+045C      ; [.1D78.0020.0002][.0000.0024.0002] # CYRILLIC SMALL LETTER KJE
+040C      ; [.1D78.0020.0008][.0000.0024.0002] # CYRILLIC CAPITAL LETTER KJE
+045E      ; [.1E0B.0020.0002][.0000.0026.0002] # CYRILLIC SMALL LETTER SHORT U
+040E      ; [.1E0B.0020.0008][.0000.0026.0002] # CYRILLIC CAPITAL LETTER SHORT U
+04F1      ; [.1E0B.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER U WITH DIAERESIS
+04F0      ; [.1E0B.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER U WITH DIAERESIS
+04F3      ; [.1E0B.0020.0002][.0000.002C.0002] # CYRILLIC SMALL LETTER U WITH DOUBLE ACUTE
+04F2      ; [.1E0B.0020.0008][.0000.002C.0002] # CYRILLIC CAPITAL LETTER U WITH DOUBLE ACUTE
+04F5      ; [.1E5E.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER CHE WITH DIAERESIS
+04F4      ; [.1E5E.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER CHE WITH DIAERESIS
+04F9      ; [.1E92.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER YERU WITH DIAERESIS
+04F8      ; [.1E92.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER YERU WITH DIAERESIS
+04ED      ; [.1EA7.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER E WITH DIAERESIS
+04EC      ; [.1EA7.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER E WITH DIAERESIS
+0477      ; [.1EDD.0020.0002][.0000.003C.0002] # CYRILLIC SMALL LETTER IZHITSA WITH DOUBLE GRAVE ACCENT
+0476      ; [.1EDD.0020.0008][.0000.003C.0002] # CYRILLIC CAPITAL LETTER IZHITSA WITH DOUBLE GRAVE ACCENT
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/sv.pl b/lib/5.24.1/Unicode/Collate/Locale/sv.pl
new file mode 100644
index 00000000..5fe73703
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/sv.pl
@@ -0,0 +1,89 @@
++{
+   locale_version => 1.14,
+   entry => <<'ENTRY', # for DUCET v7.0.0
+0111      ; [.1953.0021.0002] # LATIN SMALL LETTER D WITH STROKE
+0064 0335 ; [.1953.0021.0002] # LATIN SMALL LETTER D WITH STROKE
+0110      ; [.1953.0021.0008] # LATIN CAPITAL LETTER D WITH STROKE
+0044 0335 ; [.1953.0021.0008] # LATIN CAPITAL LETTER D WITH STROKE
+00F0      ; [.1953.0022.0002] # LATIN SMALL LETTER ETH
+1DD9      ; [.1953.0022.0002] # COMBINING LATIN SMALL LETTER ETH
+00D0      ; [.1953.0022.0008] # LATIN CAPITAL LETTER ETH
+00FE      ; [.1B57.0020.0003][.19DC.0020.0003] # LATIN SMALL LETTER THORN
+00DE      ; [.1B57.0020.0009][.19DC.0020.0009] # LATIN CAPITAL LETTER THORN
+0077      ; [.1BA5.0021.0002] # LATIN SMALL LETTER W
+0057      ; [.1BA5.0021.0008] # LATIN CAPITAL LETTER W
+00FC      ; [.1BCD.0021.0002] # LATIN SMALL LETTER U WITH DIAERESIS
+0075 0308 ; [.1BCD.0021.0002] # LATIN SMALL LETTER U WITH DIAERESIS
+00DC      ; [.1BCD.0021.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS
+0055 0308 ; [.1BCD.0021.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS
+01DC      ; [.1BCD.0021.0002][.0000.0025.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND GRAVE
+01DB      ; [.1BCD.0021.0008][.0000.0025.0002] # LATIN CAPITAL LETTER U WITH DIAERESIS AND GRAVE
+01D8      ; [.1BCD.0021.0002][.0000.0024.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND ACUTE
+01D7      ; [.1BCD.0021.0008][.0000.0024.0002] # LATIN CAPITAL LETTER U WITH DIAERESIS AND ACUTE
+01D6      ; [.1BCD.0021.0002][.0000.0032.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND MACRON
+01D5      ; [.1BCD.0021.0008][.0000.0032.0002] # LATIN CAPITAL LETTER U WITH DIAERESIS AND MACRON
+01DA      ; [.1BCD.0021.0002][.0000.0028.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND CARON
+01D9      ; [.1BCD.0021.0008][.0000.0028.0002] # LATIN CAPITAL LETTER U WITH DIAERESIS AND CARON
+0171      ; [.1BCD.0022.0002] # LATIN SMALL LETTER U WITH DOUBLE ACUTE
+0075 030B ; [.1BCD.0022.0002] # LATIN SMALL LETTER U WITH DOUBLE ACUTE
+0170      ; [.1BCD.0022.0008] # LATIN CAPITAL LETTER U WITH DOUBLE ACUTE
+0055 030B ; [.1BCD.0022.0008] # LATIN CAPITAL LETTER U WITH DOUBLE ACUTE
+00E5      ; [.1C54.0020.0002] # LATIN SMALL LETTER A WITH RING ABOVE
+0061 030A ; [.1C54.0020.0002] # LATIN SMALL LETTER A WITH RING ABOVE
+00C5      ; [.1C54.0020.0008] # LATIN CAPITAL LETTER A WITH RING ABOVE
+0041 030A ; [.1C54.0020.0008] # LATIN CAPITAL LETTER A WITH RING ABOVE
+212B      ; [.1C54.0020.0008] # ANGSTROM SIGN
+01FB      ; [.1C54.0020.0002][.0000.0024.0002] # LATIN SMALL LETTER A WITH RING ABOVE AND ACUTE
+01FA      ; [.1C54.0020.0008][.0000.0024.0002] # LATIN CAPITAL LETTER A WITH RING ABOVE AND ACUTE
+00E4      ; [.1C55.0020.0002] # LATIN SMALL LETTER A WITH DIAERESIS
+0061 0308 ; [.1C55.0020.0002] # LATIN SMALL LETTER A WITH DIAERESIS
+00C4      ; [.1C55.0020.0008] # LATIN CAPITAL LETTER A WITH DIAERESIS
+0041 0308 ; [.1C55.0020.0008] # LATIN CAPITAL LETTER A WITH DIAERESIS
+01DF      ; [.1C55.0020.0002][.0000.0032.0002] # LATIN SMALL LETTER A WITH DIAERESIS AND MACRON
+01DE      ; [.1C55.0020.0008][.0000.0032.0002] # LATIN CAPITAL LETTER A WITH DIAERESIS AND MACRON
+00E6      ; [.1C55.0021.0002] # LATIN SMALL LETTER AE
+1DD4      ; [.1C55.0021.0002] # COMBINING LATIN SMALL LETTER AE
+00C6      ; [.1C55.0021.0008] # LATIN CAPITAL LETTER AE
+1D2D      ; [.1C55.0021.0014] # MODIFIER LETTER CAPITAL AE
+01FD      ; [.1C55.0021.0002][.0000.0024.0002] # LATIN SMALL LETTER AE WITH ACUTE
+01FC      ; [.1C55.0021.0008][.0000.0024.0002] # LATIN CAPITAL LETTER AE WITH ACUTE
+01E3      ; [.1C55.0021.0002][.0000.0032.0002] # LATIN SMALL LETTER AE WITH MACRON
+01E2      ; [.1C55.0021.0008][.0000.0032.0002] # LATIN CAPITAL LETTER AE WITH MACRON
+0119      ; [.1C55.0022.0002] # LATIN SMALL LETTER E WITH OGONEK
+0065 0328 ; [.1C55.0022.0002] # LATIN SMALL LETTER E WITH OGONEK
+0118      ; [.1C55.0022.0008] # LATIN CAPITAL LETTER E WITH OGONEK
+0045 0328 ; [.1C55.0022.0008] # LATIN CAPITAL LETTER E WITH OGONEK
+00F6      ; [.1C56.0020.0002] # LATIN SMALL LETTER O WITH DIAERESIS
+006F 0308 ; [.1C56.0020.0002] # LATIN SMALL LETTER O WITH DIAERESIS
+00D6      ; [.1C56.0020.0008] # LATIN CAPITAL LETTER O WITH DIAERESIS
+004F 0308 ; [.1C56.0020.0008] # LATIN CAPITAL LETTER O WITH DIAERESIS
+022B      ; [.1C56.0020.0002][.0000.0032.0002] # LATIN SMALL LETTER O WITH DIAERESIS AND MACRON
+022A      ; [.1C56.0020.0008][.0000.0032.0002] # LATIN CAPITAL LETTER O WITH DIAERESIS AND MACRON
+00F8      ; [.1C56.0021.0002] # LATIN SMALL LETTER O WITH STROKE
+006F 0338 ; [.1C56.0021.0002] # LATIN SMALL LETTER O WITH STROKE
+00D8      ; [.1C56.0021.0008] # LATIN CAPITAL LETTER O WITH STROKE
+004F 0338 ; [.1C56.0021.0008] # LATIN CAPITAL LETTER O WITH STROKE
+01FF      ; [.1C56.0021.0002][.0000.0024.0002] # LATIN SMALL LETTER O WITH STROKE AND ACUTE
+01FE      ; [.1C56.0021.0008][.0000.0024.0002] # LATIN CAPITAL LETTER O WITH STROKE AND ACUTE
+0151      ; [.1C56.0022.0002] # LATIN SMALL LETTER O WITH DOUBLE ACUTE
+006F 030B ; [.1C56.0022.0002] # LATIN SMALL LETTER O WITH DOUBLE ACUTE
+0150      ; [.1C56.0022.0008] # LATIN CAPITAL LETTER O WITH DOUBLE ACUTE
+004F 030B ; [.1C56.0022.0008] # LATIN CAPITAL LETTER O WITH DOUBLE ACUTE
+0153      ; [.1C56.0023.0002] # LATIN SMALL LIGATURE OE
+0152      ; [.1C56.0023.0008] # LATIN CAPITAL LIGATURE OE
+00F4      ; [.1C56.0024.0002] # LATIN SMALL LETTER O WITH CIRCUMFLEX
+006F 0302 ; [.1C56.0024.0002] # LATIN SMALL LETTER O WITH CIRCUMFLEX
+00D4      ; [.1C56.0024.0008] # LATIN CAPITAL LETTER O WITH CIRCUMFLEX
+004F 0302 ; [.1C56.0024.0008] # LATIN CAPITAL LETTER O WITH CIRCUMFLEX
+1ED3      ; [.1C56.0024.0002][.0000.0025.0002] # LATIN SMALL LETTER O WITH CIRCUMFLEX AND GRAVE
+1ED2      ; [.1C56.0024.0008][.0000.0025.0002] # LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND GRAVE
+1ED1      ; [.1C56.0024.0002][.0000.0024.0002] # LATIN SMALL LETTER O WITH CIRCUMFLEX AND ACUTE
+1ED0      ; [.1C56.0024.0008][.0000.0024.0002] # LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND ACUTE
+1ED7      ; [.1C56.0024.0002][.0000.002D.0002] # LATIN SMALL LETTER O WITH CIRCUMFLEX AND TILDE
+1ED6      ; [.1C56.0024.0008][.0000.002D.0002] # LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND TILDE
+1ED5      ; [.1C56.0024.0002][.0000.003B.0002] # LATIN SMALL LETTER O WITH CIRCUMFLEX AND HOOK ABOVE
+1ED4      ; [.1C56.0024.0008][.0000.003B.0002] # LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND HOOK ABOVE
+1ED9      ; [.1C56.0024.0002][.0000.0042.0002] # LATIN SMALL LETTER O WITH CIRCUMFLEX AND DOT BELOW
+1ED8      ; [.1C56.0024.0008][.0000.0042.0002] # LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND DOT BELOW
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/sv_refo.pl b/lib/5.24.1/Unicode/Collate/Locale/sv_refo.pl
new file mode 100644
index 00000000..336054ea
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/sv_refo.pl
@@ -0,0 +1,87 @@
++{
+   locale_version => 1.14,
+   entry => <<'ENTRY', # for DUCET v7.0.0
+0111      ; [.1953.0021.0002] # LATIN SMALL LETTER D WITH STROKE
+0064 0335 ; [.1953.0021.0002] # LATIN SMALL LETTER D WITH STROKE
+0110      ; [.1953.0021.0008] # LATIN CAPITAL LETTER D WITH STROKE
+0044 0335 ; [.1953.0021.0008] # LATIN CAPITAL LETTER D WITH STROKE
+00F0      ; [.1953.0022.0002] # LATIN SMALL LETTER ETH
+1DD9      ; [.1953.0022.0002] # COMBINING LATIN SMALL LETTER ETH
+00D0      ; [.1953.0022.0008] # LATIN CAPITAL LETTER ETH
+00FE      ; [.1B57.0020.0003][.19DC.0020.0003] # LATIN SMALL LETTER THORN
+00DE      ; [.1B57.0020.0009][.19DC.0020.0009] # LATIN CAPITAL LETTER THORN
+00FC      ; [.1BCD.0021.0002] # LATIN SMALL LETTER U WITH DIAERESIS
+0075 0308 ; [.1BCD.0021.0002] # LATIN SMALL LETTER U WITH DIAERESIS
+00DC      ; [.1BCD.0021.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS
+0055 0308 ; [.1BCD.0021.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS
+01DC      ; [.1BCD.0021.0002][.0000.0025.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND GRAVE
+01DB      ; [.1BCD.0021.0008][.0000.0025.0002] # LATIN CAPITAL LETTER U WITH DIAERESIS AND GRAVE
+01D8      ; [.1BCD.0021.0002][.0000.0024.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND ACUTE
+01D7      ; [.1BCD.0021.0008][.0000.0024.0002] # LATIN CAPITAL LETTER U WITH DIAERESIS AND ACUTE
+01D6      ; [.1BCD.0021.0002][.0000.0032.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND MACRON
+01D5      ; [.1BCD.0021.0008][.0000.0032.0002] # LATIN CAPITAL LETTER U WITH DIAERESIS AND MACRON
+01DA      ; [.1BCD.0021.0002][.0000.0028.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND CARON
+01D9      ; [.1BCD.0021.0008][.0000.0028.0002] # LATIN CAPITAL LETTER U WITH DIAERESIS AND CARON
+0171      ; [.1BCD.0022.0002] # LATIN SMALL LETTER U WITH DOUBLE ACUTE
+0075 030B ; [.1BCD.0022.0002] # LATIN SMALL LETTER U WITH DOUBLE ACUTE
+0170      ; [.1BCD.0022.0008] # LATIN CAPITAL LETTER U WITH DOUBLE ACUTE
+0055 030B ; [.1BCD.0022.0008] # LATIN CAPITAL LETTER U WITH DOUBLE ACUTE
+00E5      ; [.1C54.0020.0002] # LATIN SMALL LETTER A WITH RING ABOVE
+0061 030A ; [.1C54.0020.0002] # LATIN SMALL LETTER A WITH RING ABOVE
+00C5      ; [.1C54.0020.0008] # LATIN CAPITAL LETTER A WITH RING ABOVE
+0041 030A ; [.1C54.0020.0008] # LATIN CAPITAL LETTER A WITH RING ABOVE
+212B      ; [.1C54.0020.0008] # ANGSTROM SIGN
+01FB      ; [.1C54.0020.0002][.0000.0024.0002] # LATIN SMALL LETTER A WITH RING ABOVE AND ACUTE
+01FA      ; [.1C54.0020.0008][.0000.0024.0002] # LATIN CAPITAL LETTER A WITH RING ABOVE AND ACUTE
+00E4      ; [.1C55.0020.0002] # LATIN SMALL LETTER A WITH DIAERESIS
+0061 0308 ; [.1C55.0020.0002] # LATIN SMALL LETTER A WITH DIAERESIS
+00C4      ; [.1C55.0020.0008] # LATIN CAPITAL LETTER A WITH DIAERESIS
+0041 0308 ; [.1C55.0020.0008] # LATIN CAPITAL LETTER A WITH DIAERESIS
+01DF      ; [.1C55.0020.0002][.0000.0032.0002] # LATIN SMALL LETTER A WITH DIAERESIS AND MACRON
+01DE      ; [.1C55.0020.0008][.0000.0032.0002] # LATIN CAPITAL LETTER A WITH DIAERESIS AND MACRON
+00E6      ; [.1C55.0021.0002] # LATIN SMALL LETTER AE
+1DD4      ; [.1C55.0021.0002] # COMBINING LATIN SMALL LETTER AE
+00C6      ; [.1C55.0021.0008] # LATIN CAPITAL LETTER AE
+1D2D      ; [.1C55.0021.0014] # MODIFIER LETTER CAPITAL AE
+01FD      ; [.1C55.0021.0002][.0000.0024.0002] # LATIN SMALL LETTER AE WITH ACUTE
+01FC      ; [.1C55.0021.0008][.0000.0024.0002] # LATIN CAPITAL LETTER AE WITH ACUTE
+01E3      ; [.1C55.0021.0002][.0000.0032.0002] # LATIN SMALL LETTER AE WITH MACRON
+01E2      ; [.1C55.0021.0008][.0000.0032.0002] # LATIN CAPITAL LETTER AE WITH MACRON
+0119      ; [.1C55.0022.0002] # LATIN SMALL LETTER E WITH OGONEK
+0065 0328 ; [.1C55.0022.0002] # LATIN SMALL LETTER E WITH OGONEK
+0118      ; [.1C55.0022.0008] # LATIN CAPITAL LETTER E WITH OGONEK
+0045 0328 ; [.1C55.0022.0008] # LATIN CAPITAL LETTER E WITH OGONEK
+00F6      ; [.1C56.0020.0002] # LATIN SMALL LETTER O WITH DIAERESIS
+006F 0308 ; [.1C56.0020.0002] # LATIN SMALL LETTER O WITH DIAERESIS
+00D6      ; [.1C56.0020.0008] # LATIN CAPITAL LETTER O WITH DIAERESIS
+004F 0308 ; [.1C56.0020.0008] # LATIN CAPITAL LETTER O WITH DIAERESIS
+022B      ; [.1C56.0020.0002][.0000.0032.0002] # LATIN SMALL LETTER O WITH DIAERESIS AND MACRON
+022A      ; [.1C56.0020.0008][.0000.0032.0002] # LATIN CAPITAL LETTER O WITH DIAERESIS AND MACRON
+00F8      ; [.1C56.0021.0002] # LATIN SMALL LETTER O WITH STROKE
+006F 0338 ; [.1C56.0021.0002] # LATIN SMALL LETTER O WITH STROKE
+00D8      ; [.1C56.0021.0008] # LATIN CAPITAL LETTER O WITH STROKE
+004F 0338 ; [.1C56.0021.0008] # LATIN CAPITAL LETTER O WITH STROKE
+01FF      ; [.1C56.0021.0002][.0000.0024.0002] # LATIN SMALL LETTER O WITH STROKE AND ACUTE
+01FE      ; [.1C56.0021.0008][.0000.0024.0002] # LATIN CAPITAL LETTER O WITH STROKE AND ACUTE
+0151      ; [.1C56.0022.0002] # LATIN SMALL LETTER O WITH DOUBLE ACUTE
+006F 030B ; [.1C56.0022.0002] # LATIN SMALL LETTER O WITH DOUBLE ACUTE
+0150      ; [.1C56.0022.0008] # LATIN CAPITAL LETTER O WITH DOUBLE ACUTE
+004F 030B ; [.1C56.0022.0008] # LATIN CAPITAL LETTER O WITH DOUBLE ACUTE
+0153      ; [.1C56.0023.0002] # LATIN SMALL LIGATURE OE
+0152      ; [.1C56.0023.0008] # LATIN CAPITAL LIGATURE OE
+00F4      ; [.1C56.0024.0002] # LATIN SMALL LETTER O WITH CIRCUMFLEX
+006F 0302 ; [.1C56.0024.0002] # LATIN SMALL LETTER O WITH CIRCUMFLEX
+00D4      ; [.1C56.0024.0008] # LATIN CAPITAL LETTER O WITH CIRCUMFLEX
+004F 0302 ; [.1C56.0024.0008] # LATIN CAPITAL LETTER O WITH CIRCUMFLEX
+1ED3      ; [.1C56.0024.0002][.0000.0025.0002] # LATIN SMALL LETTER O WITH CIRCUMFLEX AND GRAVE
+1ED2      ; [.1C56.0024.0008][.0000.0025.0002] # LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND GRAVE
+1ED1      ; [.1C56.0024.0002][.0000.0024.0002] # LATIN SMALL LETTER O WITH CIRCUMFLEX AND ACUTE
+1ED0      ; [.1C56.0024.0008][.0000.0024.0002] # LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND ACUTE
+1ED7      ; [.1C56.0024.0002][.0000.002D.0002] # LATIN SMALL LETTER O WITH CIRCUMFLEX AND TILDE
+1ED6      ; [.1C56.0024.0008][.0000.002D.0002] # LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND TILDE
+1ED5      ; [.1C56.0024.0002][.0000.003B.0002] # LATIN SMALL LETTER O WITH CIRCUMFLEX AND HOOK ABOVE
+1ED4      ; [.1C56.0024.0008][.0000.003B.0002] # LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND HOOK ABOVE
+1ED9      ; [.1C56.0024.0002][.0000.0042.0002] # LATIN SMALL LETTER O WITH CIRCUMFLEX AND DOT BELOW
+1ED8      ; [.1C56.0024.0008][.0000.0042.0002] # LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND DOT BELOW
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/ta.pl b/lib/5.24.1/Unicode/Collate/Locale/ta.pl
new file mode 100644
index 00000000..8bfd19e0
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/ta.pl
@@ -0,0 +1,55 @@
++{
+   locale_version => 1.14,
+   entry => <<'ENTRY', # for DUCET v7.0.0
+0B82      ; [.24CC.0020.0002][.FFF0.0000.0000] # TAMIL SIGN ANUSVARA
+0B83      ; [.24CC.0020.0002][.FFF1.0000.0000] # TAMIL SIGN VISARGA
+0B95 0BCD 0BB7 0BCD ; [.24E3.0020.0002][.FFF2.0000.0000] # <TAMIL LETTER KA, TAMIL SIGN VIRAMA, TAMIL LETTER SSA, TAMIL SIGN VIRAMA>
+0B95 0BCD 0BB7 ; [.24E3.0020.0002][.FFF3.0000.0000] # <TAMIL LETTER KA, TAMIL SIGN VIRAMA, TAMIL LETTER SSA>
+0B95 0BCD ; [.24CD.0020.0002][.FFF0.0000.0000] # <TAMIL LETTER KA, TAMIL SIGN VIRAMA>
+0B95      ; [.24CD.0020.0002][.FFF1.0000.0000] # TAMIL LETTER KA
+0B99 0BCD ; [.24CE.0020.0002][.FFF0.0000.0000] # <TAMIL LETTER NGA, TAMIL SIGN VIRAMA>
+0B99      ; [.24CE.0020.0002][.FFF1.0000.0000] # TAMIL LETTER NGA
+0B9A 0BCD ; [.24CF.0020.0002][.FFF0.0000.0000] # <TAMIL LETTER CA, TAMIL SIGN VIRAMA>
+0B9A      ; [.24CF.0020.0002][.FFF1.0000.0000] # TAMIL LETTER CA
+0B9E 0BCD ; [.24D0.0020.0002][.FFF0.0000.0000] # <TAMIL LETTER NYA, TAMIL SIGN VIRAMA>
+0B9E      ; [.24D0.0020.0002][.FFF1.0000.0000] # TAMIL LETTER NYA
+0B9F 0BCD ; [.24D1.0020.0002][.FFF0.0000.0000] # <TAMIL LETTER TTA, TAMIL SIGN VIRAMA>
+0B9F      ; [.24D1.0020.0002][.FFF1.0000.0000] # TAMIL LETTER TTA
+0BA3 0BCD ; [.24D2.0020.0002][.FFF0.0000.0000] # <TAMIL LETTER NNA, TAMIL SIGN VIRAMA>
+0BA3      ; [.24D2.0020.0002][.FFF1.0000.0000] # TAMIL LETTER NNA
+0BA4 0BCD ; [.24D3.0020.0002][.FFF0.0000.0000] # <TAMIL LETTER TA, TAMIL SIGN VIRAMA>
+0BA4      ; [.24D3.0020.0002][.FFF1.0000.0000] # TAMIL LETTER TA
+0BA8 0BCD ; [.24D4.0020.0002][.FFF0.0000.0000] # <TAMIL LETTER NA, TAMIL SIGN VIRAMA>
+0BA8      ; [.24D4.0020.0002][.FFF1.0000.0000] # TAMIL LETTER NA
+0BAA 0BCD ; [.24D5.0020.0002][.FFF0.0000.0000] # <TAMIL LETTER PA, TAMIL SIGN VIRAMA>
+0BAA      ; [.24D5.0020.0002][.FFF1.0000.0000] # TAMIL LETTER PA
+0BAE 0BCD ; [.24D6.0020.0002][.FFF0.0000.0000] # <TAMIL LETTER MA, TAMIL SIGN VIRAMA>
+0BAE      ; [.24D6.0020.0002][.FFF1.0000.0000] # TAMIL LETTER MA
+0BAF 0BCD ; [.24D7.0020.0002][.FFF0.0000.0000] # <TAMIL LETTER YA, TAMIL SIGN VIRAMA>
+0BAF      ; [.24D7.0020.0002][.FFF1.0000.0000] # TAMIL LETTER YA
+0BB0 0BCD ; [.24D8.0020.0002][.FFF0.0000.0000] # <TAMIL LETTER RA, TAMIL SIGN VIRAMA>
+0BB0      ; [.24D8.0020.0002][.FFF1.0000.0000] # TAMIL LETTER RA
+0BB2 0BCD ; [.24D9.0020.0002][.FFF0.0000.0000] # <TAMIL LETTER LA, TAMIL SIGN VIRAMA>
+0BB2      ; [.24D9.0020.0002][.FFF1.0000.0000] # TAMIL LETTER LA
+0BB5 0BCD ; [.24DA.0020.0002][.FFF0.0000.0000] # <TAMIL LETTER VA, TAMIL SIGN VIRAMA>
+0BB5      ; [.24DA.0020.0002][.FFF1.0000.0000] # TAMIL LETTER VA
+0BB4 0BCD ; [.24DB.0020.0002][.FFF0.0000.0000] # <TAMIL LETTER LLLA, TAMIL SIGN VIRAMA>
+0BB4      ; [.24DB.0020.0002][.FFF1.0000.0000] # TAMIL LETTER LLLA
+0BB3 0BCD ; [.24DC.0020.0002][.FFF0.0000.0000] # <TAMIL LETTER LLA, TAMIL SIGN VIRAMA>
+0BB3      ; [.24DC.0020.0002][.FFF1.0000.0000] # TAMIL LETTER LLA
+0BB1 0BCD ; [.24DD.0020.0002][.FFF0.0000.0000] # <TAMIL LETTER RRA, TAMIL SIGN VIRAMA>
+0BB1      ; [.24DD.0020.0002][.FFF1.0000.0000] # TAMIL LETTER RRA
+0BA9 0BCD ; [.24DE.0020.0002][.FFF0.0000.0000] # <TAMIL LETTER NNNA, TAMIL SIGN VIRAMA>
+0BA9      ; [.24DE.0020.0002][.FFF1.0000.0000] # TAMIL LETTER NNNA
+0B9C 0BCD ; [.24DF.0020.0002][.FFF0.0000.0000] # <TAMIL LETTER JA, TAMIL SIGN VIRAMA>
+0B9C      ; [.24DF.0020.0002][.FFF1.0000.0000] # TAMIL LETTER JA
+0BB6 0BCD ; [.24E0.0020.0002][.FFF0.0000.0000] # <TAMIL LETTER SHA, TAMIL SIGN VIRAMA>
+0BB6      ; [.24E0.0020.0002][.FFF1.0000.0000] # TAMIL LETTER SHA
+0BB7 0BCD ; [.24E1.0020.0002][.FFF0.0000.0000] # <TAMIL LETTER SSA, TAMIL SIGN VIRAMA>
+0BB7      ; [.24E1.0020.0002][.FFF1.0000.0000] # TAMIL LETTER SSA
+0BB8 0BCD ; [.24E2.0020.0002][.FFF0.0000.0000] # <TAMIL LETTER SA, TAMIL SIGN VIRAMA>
+0BB8      ; [.24E2.0020.0002][.FFF1.0000.0000] # TAMIL LETTER SA
+0BB9 0BCD ; [.24E3.0020.0002][.FFF0.0000.0000] # <TAMIL LETTER HA, TAMIL SIGN VIRAMA>
+0BB9      ; [.24E3.0020.0002][.FFF1.0000.0000] # TAMIL LETTER HA
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/te.pl b/lib/5.24.1/Unicode/Collate/Locale/te.pl
new file mode 100644
index 00000000..93c55546
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/te.pl
@@ -0,0 +1,9 @@
++{
+   locale_version => 1.14,
+   entry => <<'ENTRY', # for DUCET v7.0.0
+0C01      ; [.2500.0020.0002][.FFF1.0000.0000] # TELUGU SIGN CANDRABINDU
+0C02      ; [.2500.0020.0002][.FFF2.0000.0000] # TELUGU SIGN ANUSVARA
+0C03      ; [.2500.0020.0002][.FFF3.0000.0000] # TELUGU SIGN VISARGA
+0C14      ; [.2500.0020.0002][.FFF0.0000.0000] # TELUGU LETTER AU
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/th.pl b/lib/5.24.1/Unicode/Collate/Locale/th.pl
new file mode 100644
index 00000000..4c27713a
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/th.pl
@@ -0,0 +1,23 @@
++{
+   locale_version => 1.14,
+   variable => 'shifted',
+   alternate => 'shifted',
+   entry => <<'ENTRY', # for DUCET v7.0.0
+0E2F      ; [*03D3.0020.0002][*FFF0.0000.0000] # THAI CHARACTER PAIYANNOI
+0E5A      ; [*03D3.0020.0002][*FFF1.0000.0000] # THAI CHARACTER ANGKHANKHU
+0E46      ; [*03D4.0020.0002][*FFF1.0000.0000] # THAI CHARACTER MAIYAMOK
+0E5B      ; [*03D4.0020.0002][*FFF0.0000.0000] # THAI CHARACTER KHOMUT
+0E4C      ; [.0000.00CA.0002] # THAI CHARACTER THANTHAKHAT
+0E47      ; [.0000.00CB.0002] # THAI CHARACTER MAITAIKHU
+0E48      ; [.0000.00CC.0002] # THAI CHARACTER MAI EK
+0E49      ; [.0000.00CD.0002] # THAI CHARACTER MAI THO
+0E4A      ; [.0000.00CE.0002] # THAI CHARACTER MAI TRI
+0E4B      ; [.0000.00CF.0002] # THAI CHARACTER MAI CHATTAWA
+0E4D      ; [.29CB.0020.0002] # THAI CHARACTER NIKHAHIT
+0E45      ; [.29CE.0020.0003] # THAI CHARACTER LAKKHANGYAO
+0E4D 0E32 ; [.29CE.0020.0002][.29CB.0020.0003] # THAI CHARACTER SARA AM
+0E33      ; [.29CE.0020.0002][.29CB.0020.0004] # THAI CHARACTER SARA AM
+0E45 0E4D ; [.29CB.0020.0002][.29CE.0020.0004] # <THAI CHARACTER LAKKHANGYAO, THAI CHARACTER NIKHAHIT>
+0E3A      ; [.29DC.0020.0002] # THAI CHARACTER PHINTHU
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/tn.pl b/lib/5.24.1/Unicode/Collate/Locale/tn.pl
new file mode 100644
index 00000000..d3c1d6bf
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/tn.pl
@@ -0,0 +1,37 @@
++{
+   locale_version => 1.14,
+   entry => <<'ENTRY', # for DUCET v7.0.0
+00EA      ; [.196F.0020.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX
+0065 0302 ; [.196F.0020.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX
+00CA      ; [.196F.0020.0008] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX
+0045 0302 ; [.196F.0020.0008] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX
+1EC1      ; [.196F.0020.0002][.0000.0025.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND GRAVE
+1EC0      ; [.196F.0020.0008][.0000.0025.0002] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND GRAVE
+1EBF      ; [.196F.0020.0002][.0000.0024.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND ACUTE
+1EBE      ; [.196F.0020.0008][.0000.0024.0002] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND ACUTE
+1EC5      ; [.196F.0020.0002][.0000.002D.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND TILDE
+1EC4      ; [.196F.0020.0008][.0000.002D.0002] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND TILDE
+1EC3      ; [.196F.0020.0002][.0000.003B.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND HOOK ABOVE
+1EC2      ; [.196F.0020.0008][.0000.003B.0002] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND HOOK ABOVE
+1EC7      ; [.196F.0020.0002][.0000.0042.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND DOT BELOW
+1EC6      ; [.196F.0020.0008][.0000.0042.0002] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND DOT BELOW
+00F4      ; [.1AA2.0020.0002] # LATIN SMALL LETTER O WITH CIRCUMFLEX
+006F 0302 ; [.1AA2.0020.0002] # LATIN SMALL LETTER O WITH CIRCUMFLEX
+00D4      ; [.1AA2.0020.0008] # LATIN CAPITAL LETTER O WITH CIRCUMFLEX
+004F 0302 ; [.1AA2.0020.0008] # LATIN CAPITAL LETTER O WITH CIRCUMFLEX
+1ED3      ; [.1AA2.0020.0002][.0000.0025.0002] # LATIN SMALL LETTER O WITH CIRCUMFLEX AND GRAVE
+1ED2      ; [.1AA2.0020.0008][.0000.0025.0002] # LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND GRAVE
+1ED1      ; [.1AA2.0020.0002][.0000.0024.0002] # LATIN SMALL LETTER O WITH CIRCUMFLEX AND ACUTE
+1ED0      ; [.1AA2.0020.0008][.0000.0024.0002] # LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND ACUTE
+1ED7      ; [.1AA2.0020.0002][.0000.002D.0002] # LATIN SMALL LETTER O WITH CIRCUMFLEX AND TILDE
+1ED6      ; [.1AA2.0020.0008][.0000.002D.0002] # LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND TILDE
+1ED5      ; [.1AA2.0020.0002][.0000.003B.0002] # LATIN SMALL LETTER O WITH CIRCUMFLEX AND HOOK ABOVE
+1ED4      ; [.1AA2.0020.0008][.0000.003B.0002] # LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND HOOK ABOVE
+1ED9      ; [.1AA2.0020.0002][.0000.0042.0002] # LATIN SMALL LETTER O WITH CIRCUMFLEX AND DOT BELOW
+1ED8      ; [.1AA2.0020.0008][.0000.0042.0002] # LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND DOT BELOW
+0161      ; [.1B34.0020.0002] # LATIN SMALL LETTER S WITH CARON
+0073 030C ; [.1B34.0020.0002] # LATIN SMALL LETTER S WITH CARON
+0160      ; [.1B34.0020.0008] # LATIN CAPITAL LETTER S WITH CARON
+0053 030C ; [.1B34.0020.0008] # LATIN CAPITAL LETTER S WITH CARON
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/to.pl b/lib/5.24.1/Unicode/Collate/Locale/to.pl
new file mode 100644
index 00000000..ca33252f
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/to.pl
@@ -0,0 +1,62 @@
++{
+   locale_version => 1.14,
+   entry => <<'ENTRY', # for DUCET v7.0.0
+006E 0067 ; [.1A7E.0020.0002] # <LATIN SMALL LETTER N, LATIN SMALL LETTER G>
+004E 0067 ; [.1A7E.0020.0007] # <LATIN CAPITAL LETTER N, LATIN SMALL LETTER G>
+004E 0047 ; [.1A7E.0020.0008] # <LATIN CAPITAL LETTER N, LATIN CAPITAL LETTER G>
+014B      ; [.1A7E.0020.001C] # LATIN SMALL LETTER ENG
+014A      ; [.1A7E.0020.001D] # LATIN CAPITAL LETTER ENG
+02BB      ; [.1BE4.0020.0002] # MODIFIER LETTER TURNED COMMA
+02BD      ; [.1BE4.0020.0003] # MODIFIER LETTER REVERSED COMMA
+00E1      ; [.190C.0021.0002] # LATIN SMALL LETTER A WITH ACUTE
+0061 0301 ; [.190C.0021.0002] # LATIN SMALL LETTER A WITH ACUTE
+0061 0341 ; [.190C.0021.0002] # LATIN SMALL LETTER A WITH ACUTE
+00C1      ; [.190C.0021.0008] # LATIN CAPITAL LETTER A WITH ACUTE
+0041 0301 ; [.190C.0021.0008] # LATIN CAPITAL LETTER A WITH ACUTE
+0041 0341 ; [.190C.0021.0008] # LATIN CAPITAL LETTER A WITH ACUTE
+0101      ; [.190C.0022.0002] # LATIN SMALL LETTER A WITH MACRON
+0061 0304 ; [.190C.0022.0002] # LATIN SMALL LETTER A WITH MACRON
+0100      ; [.190C.0022.0008] # LATIN CAPITAL LETTER A WITH MACRON
+0041 0304 ; [.190C.0022.0008] # LATIN CAPITAL LETTER A WITH MACRON
+00E9      ; [.196E.0021.0002] # LATIN SMALL LETTER E WITH ACUTE
+0065 0301 ; [.196E.0021.0002] # LATIN SMALL LETTER E WITH ACUTE
+0065 0341 ; [.196E.0021.0002] # LATIN SMALL LETTER E WITH ACUTE
+00C9      ; [.196E.0021.0008] # LATIN CAPITAL LETTER E WITH ACUTE
+0045 0301 ; [.196E.0021.0008] # LATIN CAPITAL LETTER E WITH ACUTE
+0045 0341 ; [.196E.0021.0008] # LATIN CAPITAL LETTER E WITH ACUTE
+0113      ; [.196E.0022.0002] # LATIN SMALL LETTER E WITH MACRON
+0065 0304 ; [.196E.0022.0002] # LATIN SMALL LETTER E WITH MACRON
+0112      ; [.196E.0022.0008] # LATIN CAPITAL LETTER E WITH MACRON
+0045 0304 ; [.196E.0022.0008] # LATIN CAPITAL LETTER E WITH MACRON
+00ED      ; [.19F6.0021.0002] # LATIN SMALL LETTER I WITH ACUTE
+0069 0301 ; [.19F6.0021.0002] # LATIN SMALL LETTER I WITH ACUTE
+0069 0341 ; [.19F6.0021.0002] # LATIN SMALL LETTER I WITH ACUTE
+00CD      ; [.19F6.0021.0008] # LATIN CAPITAL LETTER I WITH ACUTE
+0049 0301 ; [.19F6.0021.0008] # LATIN CAPITAL LETTER I WITH ACUTE
+0049 0341 ; [.19F6.0021.0008] # LATIN CAPITAL LETTER I WITH ACUTE
+012B      ; [.19F6.0022.0002] # LATIN SMALL LETTER I WITH MACRON
+0069 0304 ; [.19F6.0022.0002] # LATIN SMALL LETTER I WITH MACRON
+012A      ; [.19F6.0022.0008] # LATIN CAPITAL LETTER I WITH MACRON
+0049 0304 ; [.19F6.0022.0008] # LATIN CAPITAL LETTER I WITH MACRON
+00F3      ; [.1AA1.0021.0002] # LATIN SMALL LETTER O WITH ACUTE
+006F 0301 ; [.1AA1.0021.0002] # LATIN SMALL LETTER O WITH ACUTE
+006F 0341 ; [.1AA1.0021.0002] # LATIN SMALL LETTER O WITH ACUTE
+00D3      ; [.1AA1.0021.0008] # LATIN CAPITAL LETTER O WITH ACUTE
+004F 0301 ; [.1AA1.0021.0008] # LATIN CAPITAL LETTER O WITH ACUTE
+004F 0341 ; [.1AA1.0021.0008] # LATIN CAPITAL LETTER O WITH ACUTE
+014D      ; [.1AA1.0022.0002] # LATIN SMALL LETTER O WITH MACRON
+006F 0304 ; [.1AA1.0022.0002] # LATIN SMALL LETTER O WITH MACRON
+014C      ; [.1AA1.0022.0008] # LATIN CAPITAL LETTER O WITH MACRON
+004F 0304 ; [.1AA1.0022.0008] # LATIN CAPITAL LETTER O WITH MACRON
+00FA      ; [.1B77.0021.0002] # LATIN SMALL LETTER U WITH ACUTE
+0075 0301 ; [.1B77.0021.0002] # LATIN SMALL LETTER U WITH ACUTE
+0075 0341 ; [.1B77.0021.0002] # LATIN SMALL LETTER U WITH ACUTE
+00DA      ; [.1B77.0021.0008] # LATIN CAPITAL LETTER U WITH ACUTE
+0055 0301 ; [.1B77.0021.0008] # LATIN CAPITAL LETTER U WITH ACUTE
+0055 0341 ; [.1B77.0021.0008] # LATIN CAPITAL LETTER U WITH ACUTE
+016B      ; [.1B77.0022.0002] # LATIN SMALL LETTER U WITH MACRON
+0075 0304 ; [.1B77.0022.0002] # LATIN SMALL LETTER U WITH MACRON
+016A      ; [.1B77.0022.0008] # LATIN CAPITAL LETTER U WITH MACRON
+0055 0304 ; [.1B77.0022.0008] # LATIN CAPITAL LETTER U WITH MACRON
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/tr.pl b/lib/5.24.1/Unicode/Collate/Locale/tr.pl
new file mode 100644
index 00000000..5eb59581
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/tr.pl
@@ -0,0 +1,46 @@
++{
+   locale_version => 1.14,
+   entry => <<'ENTRY', # for DUCET v7.0.0
+00E7      ; [.193F.0020.0002] # LATIN SMALL LETTER C WITH CEDILLA
+0063 0327 ; [.193F.0020.0002] # LATIN SMALL LETTER C WITH CEDILLA
+00C7      ; [.193F.0020.0008] # LATIN CAPITAL LETTER C WITH CEDILLA
+0043 0327 ; [.193F.0020.0008] # LATIN CAPITAL LETTER C WITH CEDILLA
+011F      ; [.19B9.0020.0002] # LATIN SMALL LETTER G WITH BREVE
+0067 0306 ; [.19B9.0020.0002] # LATIN SMALL LETTER G WITH BREVE
+011E      ; [.19B9.0020.0008] # LATIN CAPITAL LETTER G WITH BREVE
+0047 0306 ; [.19B9.0020.0008] # LATIN CAPITAL LETTER G WITH BREVE
+0131      ; [.19F5.0020.0002] # LATIN SMALL LETTER DOTLESS I
+0049      ; [.19F5.0020.0008] # LATIN CAPITAL LETTER I
+00CC      ; [.19F5.0020.0008][.0000.0025.0002] # LATIN CAPITAL LETTER I WITH GRAVE
+00CD      ; [.19F5.0020.0008][.0000.0024.0002] # LATIN CAPITAL LETTER I WITH ACUTE
+00CE      ; [.19F5.0020.0008][.0000.0027.0002] # LATIN CAPITAL LETTER I WITH CIRCUMFLEX
+00CF      ; [.19F5.0020.0008][.0000.002B.0002] # LATIN CAPITAL LETTER I WITH DIAERESIS
+012A      ; [.19F5.0020.0008][.0000.0032.0002] # LATIN CAPITAL LETTER I WITH MACRON
+012C      ; [.19F5.0020.0008][.0000.0026.0002] # LATIN CAPITAL LETTER I WITH BREVE
+012E      ; [.19F5.0020.0008][.0000.0031.0002] # LATIN CAPITAL LETTER I WITH OGONEK
+0130      ; [.19F6.0020.0008] # LATIN CAPITAL LETTER I WITH DOT ABOVE
+0049 0307 ; [.19F6.0020.0008] # LATIN CAPITAL LETTER I WITH DOT ABOVE
+00F6      ; [.1AA2.0020.0002] # LATIN SMALL LETTER O WITH DIAERESIS
+006F 0308 ; [.1AA2.0020.0002] # LATIN SMALL LETTER O WITH DIAERESIS
+00D6      ; [.1AA2.0020.0008] # LATIN CAPITAL LETTER O WITH DIAERESIS
+004F 0308 ; [.1AA2.0020.0008] # LATIN CAPITAL LETTER O WITH DIAERESIS
+022B      ; [.1AA2.0020.0002][.0000.0032.0002] # LATIN SMALL LETTER O WITH DIAERESIS AND MACRON
+022A      ; [.1AA2.0020.0008][.0000.0032.0002] # LATIN CAPITAL LETTER O WITH DIAERESIS AND MACRON
+015F      ; [.1B34.0020.0002] # LATIN SMALL LETTER S WITH CEDILLA
+0073 0327 ; [.1B34.0020.0002] # LATIN SMALL LETTER S WITH CEDILLA
+015E      ; [.1B34.0020.0008] # LATIN CAPITAL LETTER S WITH CEDILLA
+0053 0327 ; [.1B34.0020.0008] # LATIN CAPITAL LETTER S WITH CEDILLA
+00FC      ; [.1B78.0020.0002] # LATIN SMALL LETTER U WITH DIAERESIS
+0075 0308 ; [.1B78.0020.0002] # LATIN SMALL LETTER U WITH DIAERESIS
+00DC      ; [.1B78.0020.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS
+0055 0308 ; [.1B78.0020.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS
+01DC      ; [.1B78.0020.0002][.0000.0025.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND GRAVE
+01DB      ; [.1B78.0020.0008][.0000.0025.0002] # LATIN CAPITAL LETTER U WITH DIAERESIS AND GRAVE
+01D8      ; [.1B78.0020.0002][.0000.0024.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND ACUTE
+01D7      ; [.1B78.0020.0008][.0000.0024.0002] # LATIN CAPITAL LETTER U WITH DIAERESIS AND ACUTE
+01D6      ; [.1B78.0020.0002][.0000.0032.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND MACRON
+01D5      ; [.1B78.0020.0008][.0000.0032.0002] # LATIN CAPITAL LETTER U WITH DIAERESIS AND MACRON
+01DA      ; [.1B78.0020.0002][.0000.0028.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND CARON
+01D9      ; [.1B78.0020.0008][.0000.0028.0002] # LATIN CAPITAL LETTER U WITH DIAERESIS AND CARON
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/uk.pl b/lib/5.24.1/Unicode/Collate/Locale/uk.pl
new file mode 100644
index 00000000..844e836e
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/uk.pl
@@ -0,0 +1,45 @@
++{
+   locale_version => 1.14,
+   suppress => [0x0410, 0x0430, 0x04D8, 0x04D9, 0x0413, 0x0433, 0x0415, 0x0435,
+		0x0416, 0x0436, 0x0417, 0x0437, 0x041E, 0x043E, 0x04E8, 0x04E9,
+		0x041A, 0x043A, 0x0423, 0x0443, 0x0427, 0x0447, 0x042B, 0x044B,
+		0x042D, 0x044D, 0x0474, 0x0475],
+   entry => <<'ENTRY', # for DUCET v7.0.0
+0491      ; [.1D01.0020.0002] # CYRILLIC SMALL LETTER GHE WITH UPTURN
+0490      ; [.1D01.0020.0008] # CYRILLIC CAPITAL LETTER GHE WITH UPTURN
+04D1      ; [.1CE0.0020.0002][.0000.0026.0002] # CYRILLIC SMALL LETTER A WITH BREVE
+04D0      ; [.1CE0.0020.0008][.0000.0026.0002] # CYRILLIC CAPITAL LETTER A WITH BREVE
+04D3      ; [.1CE0.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER A WITH DIAERESIS
+04D2      ; [.1CE0.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER A WITH DIAERESIS
+04DB      ; [.1CEC.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER SCHWA WITH DIAERESIS
+04DA      ; [.1CEC.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER SCHWA WITH DIAERESIS
+0453      ; [.1D00.0020.0002][.0000.0024.0002] # CYRILLIC SMALL LETTER GJE
+0403      ; [.1D00.0020.0008][.0000.0024.0002] # CYRILLIC CAPITAL LETTER GJE
+04D7      ; [.1D28.0020.0002][.0000.0026.0002] # CYRILLIC SMALL LETTER IE WITH BREVE
+04D6      ; [.1D28.0020.0008][.0000.0026.0002] # CYRILLIC CAPITAL LETTER IE WITH BREVE
+04DD      ; [.1D34.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER ZHE WITH DIAERESIS
+04DC      ; [.1D34.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER ZHE WITH DIAERESIS
+04DF      ; [.1D42.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER ZE WITH DIAERESIS
+04DE      ; [.1D42.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER ZE WITH DIAERESIS
+04E7      ; [.1DC9.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER O WITH DIAERESIS
+04E6      ; [.1DC9.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER O WITH DIAERESIS
+04EB      ; [.1DD1.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER BARRED O WITH DIAERESIS
+04EA      ; [.1DD1.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER BARRED O WITH DIAERESIS
+045C      ; [.1D78.0020.0002][.0000.0024.0002] # CYRILLIC SMALL LETTER KJE
+040C      ; [.1D78.0020.0008][.0000.0024.0002] # CYRILLIC CAPITAL LETTER KJE
+045E      ; [.1E0B.0020.0002][.0000.0026.0002] # CYRILLIC SMALL LETTER SHORT U
+040E      ; [.1E0B.0020.0008][.0000.0026.0002] # CYRILLIC CAPITAL LETTER SHORT U
+04F1      ; [.1E0B.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER U WITH DIAERESIS
+04F0      ; [.1E0B.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER U WITH DIAERESIS
+04F3      ; [.1E0B.0020.0002][.0000.002C.0002] # CYRILLIC SMALL LETTER U WITH DOUBLE ACUTE
+04F2      ; [.1E0B.0020.0008][.0000.002C.0002] # CYRILLIC CAPITAL LETTER U WITH DOUBLE ACUTE
+04F5      ; [.1E5E.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER CHE WITH DIAERESIS
+04F4      ; [.1E5E.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER CHE WITH DIAERESIS
+04F9      ; [.1E92.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER YERU WITH DIAERESIS
+04F8      ; [.1E92.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER YERU WITH DIAERESIS
+04ED      ; [.1EA7.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER E WITH DIAERESIS
+04EC      ; [.1EA7.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER E WITH DIAERESIS
+0477      ; [.1EDD.0020.0002][.0000.003C.0002] # CYRILLIC SMALL LETTER IZHITSA WITH DOUBLE GRAVE ACCENT
+0476      ; [.1EDD.0020.0008][.0000.003C.0002] # CYRILLIC CAPITAL LETTER IZHITSA WITH DOUBLE GRAVE ACCENT
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/ur.pl b/lib/5.24.1/Unicode/Collate/Locale/ur.pl
new file mode 100644
index 00000000..b248e1ca
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/ur.pl
@@ -0,0 +1,89 @@
++{
+   locale_version => 1.14,
+   entry => <<'ENTRY', # for DUCET v7.0.0
+0623      ; [.2015.0021.0002] # ARABIC LETTER ALEF WITH HAMZA ABOVE
+0627 0654 ; [.2015.0021.0002] # ARABIC LETTER ALEF WITH HAMZA ABOVE
+0622      ; [.2016.0020.0002][.FFC0.0000.0000] # ARABIC LETTER ALEF WITH MADDA ABOVE
+0627 0653 ; [.2016.0020.0002][.FFC0.0000.0000] # ARABIC LETTER ALEF WITH MADDA ABOVE
+0628      ; [.2016.0020.0002][.FFC1.0000.0000] # ARABIC LETTER BEH
+0628 06BE ; [.2016.0020.0002][.FFC2.0000.0000] # <ARABIC LETTER BEH, ARABIC LETTER HEH DOACHASHMEE>
+067E      ; [.2016.0020.0002][.FFC3.0000.0000] # ARABIC LETTER PEH
+067E 06BE ; [.2016.0020.0002][.FFC4.0000.0000] # <ARABIC LETTER PEH, ARABIC LETTER HEH DOACHASHMEE>
+062A      ; [.2016.0020.0002][.FFC5.0000.0000] # ARABIC LETTER TEH
+062A 06BE ; [.2016.0020.0002][.FFC6.0000.0000] # <ARABIC LETTER TEH, ARABIC LETTER HEH DOACHASHMEE>
+0679      ; [.2016.0020.0002][.FFC7.0000.0000] # ARABIC LETTER TTEH
+0679 06BE ; [.2016.0020.0002][.FFC8.0000.0000] # <ARABIC LETTER TTEH, ARABIC LETTER HEH DOACHASHMEE>
+062B      ; [.2016.0020.0002][.FFC9.0000.0000] # ARABIC LETTER THEH
+062C      ; [.2016.0020.0002][.FFCA.0000.0000] # ARABIC LETTER JEEM
+062C 06BE ; [.2016.0020.0002][.FFCB.0000.0000] # <ARABIC LETTER JEEM, ARABIC LETTER HEH DOACHASHMEE>
+0686      ; [.2016.0020.0002][.FFCC.0000.0000] # ARABIC LETTER TCHEH
+0686 06BE ; [.2016.0020.0002][.FFCD.0000.0000] # <ARABIC LETTER TCHEH, ARABIC LETTER HEH DOACHASHMEE>
+062D      ; [.2016.0020.0002][.FFCE.0000.0000] # ARABIC LETTER HAH
+062E      ; [.2016.0020.0002][.FFCF.0000.0000] # ARABIC LETTER KHAH
+062F      ; [.2016.0020.0002][.FFD0.0000.0000] # ARABIC LETTER DAL
+062F 06BE ; [.2016.0020.0002][.FFD1.0000.0000] # <ARABIC LETTER DAL, ARABIC LETTER HEH DOACHASHMEE>
+0688      ; [.2016.0020.0002][.FFD2.0000.0000] # ARABIC LETTER DDAL
+0688 06BE ; [.2016.0020.0002][.FFD3.0000.0000] # <ARABIC LETTER DDAL, ARABIC LETTER HEH DOACHASHMEE>
+0630      ; [.2016.0020.0002][.FFD4.0000.0000] # ARABIC LETTER THAL
+0631      ; [.2016.0020.0002][.FFD5.0000.0000] # ARABIC LETTER REH
+0631 06BE ; [.2016.0020.0002][.FFD6.0000.0000] # <ARABIC LETTER REH, ARABIC LETTER HEH DOACHASHMEE>
+0691      ; [.2016.0020.0002][.FFD7.0000.0000] # ARABIC LETTER RREH
+0691 06BE ; [.2016.0020.0002][.FFD8.0000.0000] # <ARABIC LETTER RREH, ARABIC LETTER HEH DOACHASHMEE>
+0632      ; [.2016.0020.0002][.FFD9.0000.0000] # ARABIC LETTER ZAIN
+0698      ; [.2016.0020.0002][.FFDA.0000.0000] # ARABIC LETTER JEH
+0633      ; [.2016.0020.0002][.FFDB.0000.0000] # ARABIC LETTER SEEN
+0634      ; [.2016.0020.0002][.FFDC.0000.0000] # ARABIC LETTER SHEEN
+0635      ; [.2016.0020.0002][.FFDD.0000.0000] # ARABIC LETTER SAD
+0636      ; [.2016.0020.0002][.FFDE.0000.0000] # ARABIC LETTER DAD
+0637      ; [.2016.0020.0002][.FFDF.0000.0000] # ARABIC LETTER TAH
+0638      ; [.2016.0020.0002][.FFE0.0000.0000] # ARABIC LETTER ZAH
+0639      ; [.2016.0020.0002][.FFE1.0000.0000] # ARABIC LETTER AIN
+063A      ; [.2016.0020.0002][.FFE2.0000.0000] # ARABIC LETTER GHAIN
+0641      ; [.2016.0020.0002][.FFE3.0000.0000] # ARABIC LETTER FEH
+0642      ; [.2016.0020.0002][.FFE4.0000.0000] # ARABIC LETTER QAF
+06A9      ; [.2016.0020.0002][.FFE5.0000.0000] # ARABIC LETTER KEHEH
+06A9 06BE ; [.2016.0020.0002][.FFE6.0000.0000] # <ARABIC LETTER KEHEH, ARABIC LETTER HEH DOACHASHMEE>
+06AF      ; [.2016.0020.0002][.FFE7.0000.0000] # ARABIC LETTER GAF
+06AF 06BE ; [.2016.0020.0002][.FFE8.0000.0000] # <ARABIC LETTER GAF, ARABIC LETTER HEH DOACHASHMEE>
+0644      ; [.2016.0020.0002][.FFE9.0000.0000] # ARABIC LETTER LAM
+0644 06BE ; [.2016.0020.0002][.FFEA.0000.0000] # <ARABIC LETTER LAM, ARABIC LETTER HEH DOACHASHMEE>
+0645      ; [.2016.0020.0002][.FFEB.0000.0000] # ARABIC LETTER MEEM
+0645 06BE ; [.2016.0020.0002][.FFEC.0000.0000] # <ARABIC LETTER MEEM, ARABIC LETTER HEH DOACHASHMEE>
+0646      ; [.2016.0020.0002][.FFED.0000.0000] # ARABIC LETTER NOON
+0646 06BE ; [.2016.0020.0002][.FFEE.0000.0000] # <ARABIC LETTER NOON, ARABIC LETTER HEH DOACHASHMEE>
+06BA      ; [.2016.0020.0002][.FFEF.0000.0000] # ARABIC LETTER NOON GHUNNA
+06BA 06BE ; [.2016.0020.0002][.FFF0.0000.0000] # <ARABIC LETTER NOON GHUNNA, ARABIC LETTER HEH DOACHASHMEE>
+0648      ; [.2016.0020.0002][.FFF1.0000.0000] # ARABIC LETTER WAW
+0624      ; [.2016.0021.0002][.FFF1.0000.0000] # ARABIC LETTER WAW WITH HAMZA ABOVE
+0648 0654 ; [.2016.0021.0002][.FFF1.0000.0000] # ARABIC LETTER WAW WITH HAMZA ABOVE
+0648 06BE ; [.2016.0020.0002][.FFF2.0000.0000] # <ARABIC LETTER WAW, ARABIC LETTER HEH DOACHASHMEE>
+06C1      ; [.2016.0020.0002][.FFF3.0000.0000] # ARABIC LETTER HEH GOAL
+06C2      ; [.2016.0021.0002][.FFF3.0000.0000] # ARABIC LETTER HEH GOAL WITH HAMZA ABOVE
+06C1 0654 ; [.2016.0021.0002][.FFF3.0000.0000] # ARABIC LETTER HEH GOAL WITH HAMZA ABOVE
+06BE      ; [.2016.0020.0002][.FFF4.0000.0000] # ARABIC LETTER HEH DOACHASHMEE
+06C3      ; [.2016.0020.0002][.FFF5.0000.0000] # ARABIC LETTER TEH MARBUTA GOAL
+0621      ; [.2016.0020.0002][.FFF6.0000.0000] # ARABIC LETTER HAMZA
+06CC      ; [.2016.0020.0002][.FFF7.0000.0000] # ARABIC LETTER FARSI YEH
+0626      ; [.2016.0021.0002][.FFF7.0000.0000] # ARABIC LETTER YEH WITH HAMZA ABOVE
+064A 0654 ; [.2016.0021.0002][.FFF7.0000.0000] # ARABIC LETTER YEH WITH HAMZA ABOVE
+06CC 06BE ; [.2016.0020.0002][.FFF8.0000.0000] # <ARABIC LETTER FARSI YEH, ARABIC LETTER HEH DOACHASHMEE>
+06D2      ; [.2016.0020.0002][.FFF9.0000.0000] # ARABIC LETTER YEH BARREE
+06D3      ; [.2016.0021.0002][.FFF9.0000.0000] # ARABIC LETTER YEH BARREE WITH HAMZA ABOVE
+06D2 0654 ; [.2016.0021.0002][.FFF9.0000.0000] # ARABIC LETTER YEH BARREE WITH HAMZA ABOVE
+066E      ; [.2016.0020.0002][.FFFA.0000.0000] # ARABIC LETTER DOTLESS BEH
+0652      ; [.0000.0074.0002] # ARABIC SUKUN
+064E      ; [.0000.0075.0002] # ARABIC FATHA
+0650      ; [.0000.0076.0002] # ARABIC KASRA
+064F      ; [.0000.0077.0002] # ARABIC DAMMA
+0670      ; [.0000.0078.0002] # ARABIC LETTER SUPERSCRIPT ALEF
+0656      ; [.0000.0079.0002] # ARABIC SUBSCRIPT ALEF
+0657      ; [.0000.007A.0002] # ARABIC INVERTED DAMMA
+064B      ; [.0000.007B.0002] # ARABIC FATHATAN
+064D      ; [.0000.007C.0002] # ARABIC KASRATAN
+064C      ; [.0000.007D.0002] # ARABIC DAMMATAN
+0654      ; [.0000.007E.0002] # ARABIC HAMZA ABOVE
+0651      ; [.0000.007F.0002] # ARABIC SHADDA
+0658      ; [.0000.0080.0002] # ARABIC MARK NOON GHUNNA
+0653      ; [.0000.0081.0002] # ARABIC MADDAH ABOVE
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/vi.pl b/lib/5.24.1/Unicode/Collate/Locale/vi.pl
new file mode 100644
index 00000000..9c99d49b
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/vi.pl
@@ -0,0 +1,220 @@
++{
+   locale_version => 1.14,
+# 0306 is not a Vietnamese tone, just to avoid \x{306} eq. to something.
+   entry => <<'ENTRY', # for DUCET v7.0.0
+0309      ; [.0000.0026.0002][.0000.00F0.0000] # COMBINING HOOK ABOVE
+1EA3      ; [.190C.0020.0002][.0000.0026.0002][.0000.00F0.0000] # LATIN SMALL LETTER A WITH HOOK ABOVE
+1EA2      ; [.190C.0020.0008][.0000.0026.0002][.0000.00F0.0000] # LATIN CAPITAL LETTER A WITH HOOK ABOVE
+1EBB      ; [.196E.0020.0002][.0000.0026.0002][.0000.00F0.0000] # LATIN SMALL LETTER E WITH HOOK ABOVE
+1EBA      ; [.196E.0020.0008][.0000.0026.0002][.0000.00F0.0000] # LATIN CAPITAL LETTER E WITH HOOK ABOVE
+1EC9      ; [.19F6.0020.0002][.0000.0026.0002][.0000.00F0.0000] # LATIN SMALL LETTER I WITH HOOK ABOVE
+1EC8      ; [.19F6.0020.0008][.0000.0026.0002][.0000.00F0.0000] # LATIN CAPITAL LETTER I WITH HOOK ABOVE
+1ECF      ; [.1AA1.0020.0002][.0000.0026.0002][.0000.00F0.0000] # LATIN SMALL LETTER O WITH HOOK ABOVE
+1ECE      ; [.1AA1.0020.0008][.0000.0026.0002][.0000.00F0.0000] # LATIN CAPITAL LETTER O WITH HOOK ABOVE
+1EE7      ; [.1B77.0020.0002][.0000.0026.0002][.0000.00F0.0000] # LATIN SMALL LETTER U WITH HOOK ABOVE
+1EE6      ; [.1B77.0020.0008][.0000.0026.0002][.0000.00F0.0000] # LATIN CAPITAL LETTER U WITH HOOK ABOVE
+1EF7      ; [.1BCD.0020.0002][.0000.0026.0002][.0000.00F0.0000] # LATIN SMALL LETTER Y WITH HOOK ABOVE
+1EF6      ; [.1BCD.0020.0008][.0000.0026.0002][.0000.00F0.0000] # LATIN CAPITAL LETTER Y WITH HOOK ABOVE
+0303      ; [.0000.0026.0002][.0000.00F1.0000] # COMBINING TILDE
+00E3      ; [.190C.0020.0002][.0000.0026.0002][.0000.00F1.0000] # LATIN SMALL LETTER A WITH TILDE
+00C3      ; [.190C.0020.0008][.0000.0026.0002][.0000.00F1.0000] # LATIN CAPITAL LETTER A WITH TILDE
+1EBD      ; [.196E.0020.0002][.0000.0026.0002][.0000.00F1.0000] # LATIN SMALL LETTER E WITH TILDE
+1EBC      ; [.196E.0020.0008][.0000.0026.0002][.0000.00F1.0000] # LATIN CAPITAL LETTER E WITH TILDE
+0129      ; [.19F6.0020.0002][.0000.0026.0002][.0000.00F1.0000] # LATIN SMALL LETTER I WITH TILDE
+0128      ; [.19F6.0020.0008][.0000.0026.0002][.0000.00F1.0000] # LATIN CAPITAL LETTER I WITH TILDE
+00F5      ; [.1AA1.0020.0002][.0000.0026.0002][.0000.00F1.0000] # LATIN SMALL LETTER O WITH TILDE
+00D5      ; [.1AA1.0020.0008][.0000.0026.0002][.0000.00F1.0000] # LATIN CAPITAL LETTER O WITH TILDE
+0169      ; [.1B77.0020.0002][.0000.0026.0002][.0000.00F1.0000] # LATIN SMALL LETTER U WITH TILDE
+0168      ; [.1B77.0020.0008][.0000.0026.0002][.0000.00F1.0000] # LATIN CAPITAL LETTER U WITH TILDE
+1EF9      ; [.1BCD.0020.0002][.0000.0026.0002][.0000.00F1.0000] # LATIN SMALL LETTER Y WITH TILDE
+1EF8      ; [.1BCD.0020.0008][.0000.0026.0002][.0000.00F1.0000] # LATIN CAPITAL LETTER Y WITH TILDE
+0301      ; [.0000.0026.0002][.0000.00F2.0000] # COMBINING ACUTE ACCENT
+00E1      ; [.190C.0020.0002][.0000.0026.0002][.0000.00F2.0000] # LATIN SMALL LETTER A WITH ACUTE
+00C1      ; [.190C.0020.0008][.0000.0026.0002][.0000.00F2.0000] # LATIN CAPITAL LETTER A WITH ACUTE
+00E9      ; [.196E.0020.0002][.0000.0026.0002][.0000.00F2.0000] # LATIN SMALL LETTER E WITH ACUTE
+00C9      ; [.196E.0020.0008][.0000.0026.0002][.0000.00F2.0000] # LATIN CAPITAL LETTER E WITH ACUTE
+00ED      ; [.19F6.0020.0002][.0000.0026.0002][.0000.00F2.0000] # LATIN SMALL LETTER I WITH ACUTE
+00CD      ; [.19F6.0020.0008][.0000.0026.0002][.0000.00F2.0000] # LATIN CAPITAL LETTER I WITH ACUTE
+00F3      ; [.1AA1.0020.0002][.0000.0026.0002][.0000.00F2.0000] # LATIN SMALL LETTER O WITH ACUTE
+00D3      ; [.1AA1.0020.0008][.0000.0026.0002][.0000.00F2.0000] # LATIN CAPITAL LETTER O WITH ACUTE
+00FA      ; [.1B77.0020.0002][.0000.0026.0002][.0000.00F2.0000] # LATIN SMALL LETTER U WITH ACUTE
+00DA      ; [.1B77.0020.0008][.0000.0026.0002][.0000.00F2.0000] # LATIN CAPITAL LETTER U WITH ACUTE
+00FD      ; [.1BCD.0020.0002][.0000.0026.0002][.0000.00F2.0000] # LATIN SMALL LETTER Y WITH ACUTE
+00DD      ; [.1BCD.0020.0008][.0000.0026.0002][.0000.00F2.0000] # LATIN CAPITAL LETTER Y WITH ACUTE
+0341      ; [.0000.0026.0002][.0000.00F2.0000] # COMBINING ACUTE TONE MARK
+0323      ; [.0000.0026.0002][.0000.00F3.0000] # COMBINING DOT BELOW
+1EA1      ; [.190C.0020.0002][.0000.0026.0002][.0000.00F3.0000] # LATIN SMALL LETTER A WITH DOT BELOW
+1EA0      ; [.190C.0020.0008][.0000.0026.0002][.0000.00F3.0000] # LATIN CAPITAL LETTER A WITH DOT BELOW
+1EB9      ; [.196E.0020.0002][.0000.0026.0002][.0000.00F3.0000] # LATIN SMALL LETTER E WITH DOT BELOW
+1EB8      ; [.196E.0020.0008][.0000.0026.0002][.0000.00F3.0000] # LATIN CAPITAL LETTER E WITH DOT BELOW
+1ECB      ; [.19F6.0020.0002][.0000.0026.0002][.0000.00F3.0000] # LATIN SMALL LETTER I WITH DOT BELOW
+1ECA      ; [.19F6.0020.0008][.0000.0026.0002][.0000.00F3.0000] # LATIN CAPITAL LETTER I WITH DOT BELOW
+1ECD      ; [.1AA1.0020.0002][.0000.0026.0002][.0000.00F3.0000] # LATIN SMALL LETTER O WITH DOT BELOW
+1ECC      ; [.1AA1.0020.0008][.0000.0026.0002][.0000.00F3.0000] # LATIN CAPITAL LETTER O WITH DOT BELOW
+1EE5      ; [.1B77.0020.0002][.0000.0026.0002][.0000.00F3.0000] # LATIN SMALL LETTER U WITH DOT BELOW
+1EE4      ; [.1B77.0020.0008][.0000.0026.0002][.0000.00F3.0000] # LATIN CAPITAL LETTER U WITH DOT BELOW
+1EF5      ; [.1BCD.0020.0002][.0000.0026.0002][.0000.00F3.0000] # LATIN SMALL LETTER Y WITH DOT BELOW
+1EF4      ; [.1BCD.0020.0008][.0000.0026.0002][.0000.00F3.0000] # LATIN CAPITAL LETTER Y WITH DOT BELOW
+0306      ; [.0000.0026.0002][.0000.00F4.0000] # COMBINING BREVE
+0115      ; [.196E.0020.0002][.0000.0026.0002][.0000.00F4.0000] # LATIN SMALL LETTER E WITH BREVE
+0114      ; [.196E.0020.0008][.0000.0026.0002][.0000.00F4.0000] # LATIN CAPITAL LETTER E WITH BREVE
+012D      ; [.19F6.0020.0002][.0000.0026.0002][.0000.00F4.0000] # LATIN SMALL LETTER I WITH BREVE
+012C      ; [.19F6.0020.0008][.0000.0026.0002][.0000.00F4.0000] # LATIN CAPITAL LETTER I WITH BREVE
+014F      ; [.1AA1.0020.0002][.0000.0026.0002][.0000.00F4.0000] # LATIN SMALL LETTER O WITH BREVE
+014E      ; [.1AA1.0020.0008][.0000.0026.0002][.0000.00F4.0000] # LATIN CAPITAL LETTER O WITH BREVE
+016D      ; [.1B77.0020.0002][.0000.0026.0002][.0000.00F4.0000] # LATIN SMALL LETTER U WITH BREVE
+016C      ; [.1B77.0020.0008][.0000.0026.0002][.0000.00F4.0000] # LATIN CAPITAL LETTER U WITH BREVE
+0103      ; [.190D.0020.0002] # LATIN SMALL LETTER A WITH BREVE
+0061 0306 ; [.190D.0020.0002] # LATIN SMALL LETTER A WITH BREVE
+0102      ; [.190D.0020.0008] # LATIN CAPITAL LETTER A WITH BREVE
+0041 0306 ; [.190D.0020.0008] # LATIN CAPITAL LETTER A WITH BREVE
+1EB1      ; [.190D.0020.0002][.0000.0025.0002] # LATIN SMALL LETTER A WITH BREVE AND GRAVE
+1EB0      ; [.190D.0020.0008][.0000.0025.0002] # LATIN CAPITAL LETTER A WITH BREVE AND GRAVE
+1EAF      ; [.190D.0020.0002][.0000.0026.0002][.0000.00F2.0000] # LATIN SMALL LETTER A WITH BREVE AND ACUTE
+1EAE      ; [.190D.0020.0008][.0000.0026.0002][.0000.00F2.0000] # LATIN CAPITAL LETTER A WITH BREVE AND ACUTE
+1EB5      ; [.190D.0020.0002][.0000.0026.0002][.0000.00F1.0000] # LATIN SMALL LETTER A WITH BREVE AND TILDE
+1EB4      ; [.190D.0020.0008][.0000.0026.0002][.0000.00F1.0000] # LATIN CAPITAL LETTER A WITH BREVE AND TILDE
+1EB3      ; [.190D.0020.0002][.0000.0026.0002][.0000.00F0.0000] # LATIN SMALL LETTER A WITH BREVE AND HOOK ABOVE
+1EB2      ; [.190D.0020.0008][.0000.0026.0002][.0000.00F0.0000] # LATIN CAPITAL LETTER A WITH BREVE AND HOOK ABOVE
+1EB7      ; [.190D.0020.0002][.0000.0026.0002][.0000.00F3.0000] # LATIN SMALL LETTER A WITH BREVE AND DOT BELOW
+1EB6      ; [.190D.0020.0008][.0000.0026.0002][.0000.00F3.0000] # LATIN CAPITAL LETTER A WITH BREVE AND DOT BELOW
+00E2      ; [.190E.0020.0002] # LATIN SMALL LETTER A WITH CIRCUMFLEX
+0061 0302 ; [.190E.0020.0002] # LATIN SMALL LETTER A WITH CIRCUMFLEX
+00C2      ; [.190E.0020.0008] # LATIN CAPITAL LETTER A WITH CIRCUMFLEX
+0041 0302 ; [.190E.0020.0008] # LATIN CAPITAL LETTER A WITH CIRCUMFLEX
+1EA7      ; [.190E.0020.0002][.0000.0025.0002] # LATIN SMALL LETTER A WITH CIRCUMFLEX AND GRAVE
+1EA6      ; [.190E.0020.0008][.0000.0025.0002] # LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND GRAVE
+1EA5      ; [.190E.0020.0002][.0000.0026.0002][.0000.00F2.0000] # LATIN SMALL LETTER A WITH CIRCUMFLEX AND ACUTE
+1EA4      ; [.190E.0020.0008][.0000.0026.0002][.0000.00F2.0000] # LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND ACUTE
+1EAB      ; [.190E.0020.0002][.0000.0026.0002][.0000.00F1.0000] # LATIN SMALL LETTER A WITH CIRCUMFLEX AND TILDE
+1EAA      ; [.190E.0020.0008][.0000.0026.0002][.0000.00F1.0000] # LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND TILDE
+1EA9      ; [.190E.0020.0002][.0000.0026.0002][.0000.00F0.0000] # LATIN SMALL LETTER A WITH CIRCUMFLEX AND HOOK ABOVE
+1EA8      ; [.190E.0020.0008][.0000.0026.0002][.0000.00F0.0000] # LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND HOOK ABOVE
+1EAD      ; [.190E.0020.0002][.0000.0026.0002][.0000.00F3.0000] # LATIN SMALL LETTER A WITH CIRCUMFLEX AND DOT BELOW
+1EAC      ; [.190E.0020.0008][.0000.0026.0002][.0000.00F3.0000] # LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND DOT BELOW
+0111      ; [.1954.0020.0002] # LATIN SMALL LETTER D WITH STROKE
+0064 0335 ; [.1954.0020.0002] # LATIN SMALL LETTER D WITH STROKE
+0110      ; [.1954.0020.0008] # LATIN CAPITAL LETTER D WITH STROKE
+0044 0335 ; [.1954.0020.0008] # LATIN CAPITAL LETTER D WITH STROKE
+00EA      ; [.196F.0020.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX
+0065 0302 ; [.196F.0020.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX
+00CA      ; [.196F.0020.0008] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX
+0045 0302 ; [.196F.0020.0008] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX
+1EC1      ; [.196F.0020.0002][.0000.0025.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND GRAVE
+1EC0      ; [.196F.0020.0008][.0000.0025.0002] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND GRAVE
+1EBF      ; [.196F.0020.0002][.0000.0026.0002][.0000.00F2.0000] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND ACUTE
+1EBE      ; [.196F.0020.0008][.0000.0026.0002][.0000.00F2.0000] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND ACUTE
+1EC5      ; [.196F.0020.0002][.0000.0026.0002][.0000.00F1.0000] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND TILDE
+1EC4      ; [.196F.0020.0008][.0000.0026.0002][.0000.00F1.0000] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND TILDE
+1EC3      ; [.196F.0020.0002][.0000.0026.0002][.0000.00F0.0000] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND HOOK ABOVE
+1EC2      ; [.196F.0020.0008][.0000.0026.0002][.0000.00F0.0000] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND HOOK ABOVE
+1EC7      ; [.196F.0020.0002][.0000.0026.0002][.0000.00F3.0000] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND DOT BELOW
+1EC6      ; [.196F.0020.0008][.0000.0026.0002][.0000.00F3.0000] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND DOT BELOW
+00F4      ; [.1AA2.0020.0002] # LATIN SMALL LETTER O WITH CIRCUMFLEX
+006F 0302 ; [.1AA2.0020.0002] # LATIN SMALL LETTER O WITH CIRCUMFLEX
+00D4      ; [.1AA2.0020.0008] # LATIN CAPITAL LETTER O WITH CIRCUMFLEX
+004F 0302 ; [.1AA2.0020.0008] # LATIN CAPITAL LETTER O WITH CIRCUMFLEX
+1ED3      ; [.1AA2.0020.0002][.0000.0025.0002] # LATIN SMALL LETTER O WITH CIRCUMFLEX AND GRAVE
+1ED2      ; [.1AA2.0020.0008][.0000.0025.0002] # LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND GRAVE
+1ED1      ; [.1AA2.0020.0002][.0000.0026.0002][.0000.00F2.0000] # LATIN SMALL LETTER O WITH CIRCUMFLEX AND ACUTE
+1ED0      ; [.1AA2.0020.0008][.0000.0026.0002][.0000.00F2.0000] # LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND ACUTE
+1ED7      ; [.1AA2.0020.0002][.0000.0026.0002][.0000.00F1.0000] # LATIN SMALL LETTER O WITH CIRCUMFLEX AND TILDE
+1ED6      ; [.1AA2.0020.0008][.0000.0026.0002][.0000.00F1.0000] # LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND TILDE
+1ED5      ; [.1AA2.0020.0002][.0000.0026.0002][.0000.00F0.0000] # LATIN SMALL LETTER O WITH CIRCUMFLEX AND HOOK ABOVE
+1ED4      ; [.1AA2.0020.0008][.0000.0026.0002][.0000.00F0.0000] # LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND HOOK ABOVE
+1ED9      ; [.1AA2.0020.0002][.0000.0026.0002][.0000.00F3.0000] # LATIN SMALL LETTER O WITH CIRCUMFLEX AND DOT BELOW
+1ED8      ; [.1AA2.0020.0008][.0000.0026.0002][.0000.00F3.0000] # LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND DOT BELOW
+01A1      ; [.1AA3.0020.0002] # LATIN SMALL LETTER O WITH HORN
+006F 031B ; [.1AA3.0020.0002] # LATIN SMALL LETTER O WITH HORN
+01A0      ; [.1AA3.0020.0008] # LATIN CAPITAL LETTER O WITH HORN
+004F 031B ; [.1AA3.0020.0008] # LATIN CAPITAL LETTER O WITH HORN
+1EDD      ; [.1AA3.0020.0002][.0000.0025.0002] # LATIN SMALL LETTER O WITH HORN AND GRAVE
+1EDC      ; [.1AA3.0020.0008][.0000.0025.0002] # LATIN CAPITAL LETTER O WITH HORN AND GRAVE
+1EDB      ; [.1AA3.0020.0002][.0000.0026.0002][.0000.00F2.0000] # LATIN SMALL LETTER O WITH HORN AND ACUTE
+1EDA      ; [.1AA3.0020.0008][.0000.0026.0002][.0000.00F2.0000] # LATIN CAPITAL LETTER O WITH HORN AND ACUTE
+1EE1      ; [.1AA3.0020.0002][.0000.0026.0002][.0000.00F1.0000] # LATIN SMALL LETTER O WITH HORN AND TILDE
+1EE0      ; [.1AA3.0020.0008][.0000.0026.0002][.0000.00F1.0000] # LATIN CAPITAL LETTER O WITH HORN AND TILDE
+1EDF      ; [.1AA3.0020.0002][.0000.0026.0002][.0000.00F0.0000] # LATIN SMALL LETTER O WITH HORN AND HOOK ABOVE
+1EDE      ; [.1AA3.0020.0008][.0000.0026.0002][.0000.00F0.0000] # LATIN CAPITAL LETTER O WITH HORN AND HOOK ABOVE
+1EE3      ; [.1AA3.0020.0002][.0000.0026.0002][.0000.00F3.0000] # LATIN SMALL LETTER O WITH HORN AND DOT BELOW
+1EE2      ; [.1AA3.0020.0008][.0000.0026.0002][.0000.00F3.0000] # LATIN CAPITAL LETTER O WITH HORN AND DOT BELOW
+01B0      ; [.1B78.0020.0002] # LATIN SMALL LETTER U WITH HORN
+0075 031B ; [.1B78.0020.0002] # LATIN SMALL LETTER U WITH HORN
+01AF      ; [.1B78.0020.0008] # LATIN CAPITAL LETTER U WITH HORN
+0055 031B ; [.1B78.0020.0008] # LATIN CAPITAL LETTER U WITH HORN
+1EEB      ; [.1B78.0020.0002][.0000.0025.0002] # LATIN SMALL LETTER U WITH HORN AND GRAVE
+1EEA      ; [.1B78.0020.0008][.0000.0025.0002] # LATIN CAPITAL LETTER U WITH HORN AND GRAVE
+1EE9      ; [.1B78.0020.0002][.0000.0026.0002][.0000.00F2.0000] # LATIN SMALL LETTER U WITH HORN AND ACUTE
+1EE8      ; [.1B78.0020.0008][.0000.0026.0002][.0000.00F2.0000] # LATIN CAPITAL LETTER U WITH HORN AND ACUTE
+1EEF      ; [.1B78.0020.0002][.0000.0026.0002][.0000.00F1.0000] # LATIN SMALL LETTER U WITH HORN AND TILDE
+1EEE      ; [.1B78.0020.0008][.0000.0026.0002][.0000.00F1.0000] # LATIN CAPITAL LETTER U WITH HORN AND TILDE
+1EED      ; [.1B78.0020.0002][.0000.0026.0002][.0000.00F0.0000] # LATIN SMALL LETTER U WITH HORN AND HOOK ABOVE
+1EEC      ; [.1B78.0020.0008][.0000.0026.0002][.0000.00F0.0000] # LATIN CAPITAL LETTER U WITH HORN AND HOOK ABOVE
+1EF1      ; [.1B78.0020.0002][.0000.0026.0002][.0000.00F3.0000] # LATIN SMALL LETTER U WITH HORN AND DOT BELOW
+1EF0      ; [.1B78.0020.0008][.0000.0026.0002][.0000.00F3.0000] # LATIN CAPITAL LETTER U WITH HORN AND DOT BELOW
+1EA1 0306 ; [.190D.0020.0002][.0000.0026.0002][.0000.00F3.0000] # <LATIN SMALL LETTER A WITH DOT BELOW, COMBINING BREVE>
+1EA0 0306 ; [.190D.0020.0008][.0000.0026.0002][.0000.00F3.0000] # <LATIN CAPITAL LETTER A WITH DOT BELOW, COMBINING BREVE>
+1EA1 0302 ; [.190E.0020.0002][.0000.0026.0002][.0000.00F3.0000] # <LATIN SMALL LETTER A WITH DOT BELOW, COMBINING CIRCUMFLEX ACCENT>
+1EA0 0302 ; [.190E.0020.0008][.0000.0026.0002][.0000.00F3.0000] # <LATIN CAPITAL LETTER A WITH DOT BELOW, COMBINING CIRCUMFLEX ACCENT>
+1EB9 0302 ; [.196F.0020.0002][.0000.0026.0002][.0000.00F3.0000] # <LATIN SMALL LETTER E WITH DOT BELOW, COMBINING CIRCUMFLEX ACCENT>
+1EB8 0302 ; [.196F.0020.0008][.0000.0026.0002][.0000.00F3.0000] # <LATIN CAPITAL LETTER E WITH DOT BELOW, COMBINING CIRCUMFLEX ACCENT>
+1ECD 0302 ; [.1AA2.0020.0002][.0000.0026.0002][.0000.00F3.0000] # <LATIN SMALL LETTER O WITH DOT BELOW, COMBINING CIRCUMFLEX ACCENT>
+1ECC 0302 ; [.1AA2.0020.0008][.0000.0026.0002][.0000.00F3.0000] # <LATIN CAPITAL LETTER O WITH DOT BELOW, COMBINING CIRCUMFLEX ACCENT>
+00F2 031B ; [.1AA3.0020.0002][.0000.0025.0002] # <LATIN SMALL LETTER O WITH GRAVE, COMBINING HORN>
+1ECF 031B ; [.1AA3.0020.0002][.0000.0026.0002][.0000.00F0.0000] # <LATIN SMALL LETTER O WITH HOOK ABOVE, COMBINING HORN>
+00F5 031B ; [.1AA3.0020.0002][.0000.0026.0002][.0000.00F1.0000] # <LATIN SMALL LETTER O WITH TILDE, COMBINING HORN>
+00F3 031B ; [.1AA3.0020.0002][.0000.0026.0002][.0000.00F2.0000] # <LATIN SMALL LETTER O WITH ACUTE, COMBINING HORN>
+1ECD 031B ; [.1AA3.0020.0002][.0000.0026.0002][.0000.00F3.0000] # <LATIN SMALL LETTER O WITH DOT BELOW, COMBINING HORN>
+00D2 031B ; [.1AA3.0020.0008][.0000.0025.0002] # <LATIN CAPITAL LETTER O WITH GRAVE, COMBINING HORN>
+1ECE 031B ; [.1AA3.0020.0008][.0000.0026.0002][.0000.00F0.0000] # <LATIN CAPITAL LETTER O WITH HOOK ABOVE, COMBINING HORN>
+00D5 031B ; [.1AA3.0020.0008][.0000.0026.0002][.0000.00F1.0000] # <LATIN CAPITAL LETTER O WITH TILDE, COMBINING HORN>
+00D3 031B ; [.1AA3.0020.0008][.0000.0026.0002][.0000.00F2.0000] # <LATIN CAPITAL LETTER O WITH ACUTE, COMBINING HORN>
+1ECC 031B ; [.1AA3.0020.0008][.0000.0026.0002][.0000.00F3.0000] # <LATIN CAPITAL LETTER O WITH DOT BELOW, COMBINING HORN>
+00F9 031B ; [.1B78.0020.0002][.0000.0025.0002] # <LATIN SMALL LETTER U WITH GRAVE, COMBINING HORN>
+1EE7 031B ; [.1B78.0020.0002][.0000.0026.0002][.0000.00F0.0000] # <LATIN SMALL LETTER U WITH HOOK ABOVE, COMBINING HORN>
+0169 031B ; [.1B78.0020.0002][.0000.0026.0002][.0000.00F1.0000] # <LATIN SMALL LETTER U WITH TILDE, COMBINING HORN>
+00FA 031B ; [.1B78.0020.0002][.0000.0026.0002][.0000.00F2.0000] # <LATIN SMALL LETTER U WITH ACUTE, COMBINING HORN>
+1EE5 031B ; [.1B78.0020.0002][.0000.0026.0002][.0000.00F3.0000] # <LATIN SMALL LETTER U WITH DOT BELOW, COMBINING HORN>
+00D9 031B ; [.1B78.0020.0008][.0000.0025.0002] # <LATIN CAPITAL LETTER U WITH GRAVE, COMBINING HORN>
+1EE6 031B ; [.1B78.0020.0008][.0000.0026.0002][.0000.00F0.0000] # <LATIN CAPITAL LETTER U WITH HOOK ABOVE, COMBINING HORN>
+0168 031B ; [.1B78.0020.0008][.0000.0026.0002][.0000.00F1.0000] # <LATIN CAPITAL LETTER U WITH TILDE, COMBINING HORN>
+00DA 031B ; [.1B78.0020.0008][.0000.0026.0002][.0000.00F2.0000] # <LATIN CAPITAL LETTER U WITH ACUTE, COMBINING HORN>
+1EE4 031B ; [.1B78.0020.0008][.0000.0026.0002][.0000.00F3.0000] # <LATIN CAPITAL LETTER U WITH DOT BELOW, COMBINING HORN>
+0061 0323 0306 ; [.190D.0020.0002][.0000.0026.0002][.0000.00F3.0000] # <LATIN SMALL LETTER A, COMBINING DOT BELOW, COMBINING BREVE>
+0041 0323 0306 ; [.190D.0020.0008][.0000.0026.0002][.0000.00F3.0000] # <LATIN CAPITAL LETTER A, COMBINING DOT BELOW, COMBINING BREVE>
+0061 0323 0302 ; [.190E.0020.0002][.0000.0026.0002][.0000.00F3.0000] # <LATIN SMALL LETTER A, COMBINING DOT BELOW, COMBINING CIRCUMFLEX ACCENT>
+0041 0323 0302 ; [.190E.0020.0008][.0000.0026.0002][.0000.00F3.0000] # <LATIN CAPITAL LETTER A, COMBINING DOT BELOW, COMBINING CIRCUMFLEX ACCENT>
+0065 0323 0302 ; [.196F.0020.0002][.0000.0026.0002][.0000.00F3.0000] # <LATIN SMALL LETTER E, COMBINING DOT BELOW, COMBINING CIRCUMFLEX ACCENT>
+0045 0323 0302 ; [.196F.0020.0008][.0000.0026.0002][.0000.00F3.0000] # <LATIN CAPITAL LETTER E, COMBINING DOT BELOW, COMBINING CIRCUMFLEX ACCENT>
+006F 0323 0302 ; [.1AA2.0020.0002][.0000.0026.0002][.0000.00F3.0000] # <LATIN SMALL LETTER O, COMBINING DOT BELOW, COMBINING CIRCUMFLEX ACCENT>
+004F 0323 0302 ; [.1AA2.0020.0008][.0000.0026.0002][.0000.00F3.0000] # <LATIN CAPITAL LETTER O, COMBINING DOT BELOW, COMBINING CIRCUMFLEX ACCENT>
+006F 0300 031B ; [.1AA3.0020.0002][.0000.0025.0002] # <LATIN SMALL LETTER O, COMBINING GRAVE ACCENT, COMBINING HORN>
+006F 0340 031B ; [.1AA3.0020.0002][.0000.0025.0002] # <LATIN SMALL LETTER O, COMBINING GRAVE TONE MARK, COMBINING HORN>
+006F 0309 031B ; [.1AA3.0020.0002][.0000.0026.0002][.0000.00F0.0000] # <LATIN SMALL LETTER O, COMBINING HOOK ABOVE, COMBINING HORN>
+006F 0303 031B ; [.1AA3.0020.0002][.0000.0026.0002][.0000.00F1.0000] # <LATIN SMALL LETTER O, COMBINING TILDE, COMBINING HORN>
+006F 0301 031B ; [.1AA3.0020.0002][.0000.0026.0002][.0000.00F2.0000] # <LATIN SMALL LETTER O, COMBINING ACUTE ACCENT, COMBINING HORN>
+006F 0341 031B ; [.1AA3.0020.0002][.0000.0026.0002][.0000.00F2.0000] # <LATIN SMALL LETTER O, COMBINING ACUTE TONE MARK, COMBINING HORN>
+006F 0323 031B ; [.1AA3.0020.0002][.0000.0026.0002][.0000.00F3.0000] # <LATIN SMALL LETTER O, COMBINING DOT BELOW, COMBINING HORN>
+004F 0300 031B ; [.1AA3.0020.0008][.0000.0025.0002] # <LATIN CAPITAL LETTER O, COMBINING GRAVE ACCENT, COMBINING HORN>
+004F 0340 031B ; [.1AA3.0020.0008][.0000.0025.0002] # <LATIN CAPITAL LETTER O, COMBINING GRAVE TONE MARK, COMBINING HORN>
+004F 0309 031B ; [.1AA3.0020.0008][.0000.0026.0002][.0000.00F0.0000] # <LATIN CAPITAL LETTER O, COMBINING HOOK ABOVE, COMBINING HORN>
+004F 0303 031B ; [.1AA3.0020.0008][.0000.0026.0002][.0000.00F1.0000] # <LATIN CAPITAL LETTER O, COMBINING TILDE, COMBINING HORN>
+004F 0301 031B ; [.1AA3.0020.0008][.0000.0026.0002][.0000.00F2.0000] # <LATIN CAPITAL LETTER O, COMBINING ACUTE ACCENT, COMBINING HORN>
+004F 0341 031B ; [.1AA3.0020.0008][.0000.0026.0002][.0000.00F2.0000] # <LATIN CAPITAL LETTER O, COMBINING ACUTE TONE MARK, COMBINING HORN>
+004F 0323 031B ; [.1AA3.0020.0008][.0000.0026.0002][.0000.00F3.0000] # <LATIN CAPITAL LETTER O, COMBINING DOT BELOW, COMBINING HORN>
+0075 0300 031B ; [.1B78.0020.0002][.0000.0025.0002] # <LATIN SMALL LETTER U, COMBINING GRAVE ACCENT, COMBINING HORN>
+0075 0340 031B ; [.1B78.0020.0002][.0000.0025.0002] # <LATIN SMALL LETTER U, COMBINING GRAVE TONE MARK, COMBINING HORN>
+0075 0309 031B ; [.1B78.0020.0002][.0000.0026.0002][.0000.00F0.0000] # <LATIN SMALL LETTER U, COMBINING HOOK ABOVE, COMBINING HORN>
+0075 0303 031B ; [.1B78.0020.0002][.0000.0026.0002][.0000.00F1.0000] # <LATIN SMALL LETTER U, COMBINING TILDE, COMBINING HORN>
+0075 0301 031B ; [.1B78.0020.0002][.0000.0026.0002][.0000.00F2.0000] # <LATIN SMALL LETTER U, COMBINING ACUTE ACCENT, COMBINING HORN>
+0075 0341 031B ; [.1B78.0020.0002][.0000.0026.0002][.0000.00F2.0000] # <LATIN SMALL LETTER U, COMBINING ACUTE TONE MARK, COMBINING HORN>
+0075 0323 031B ; [.1B78.0020.0002][.0000.0026.0002][.0000.00F3.0000] # <LATIN SMALL LETTER U, COMBINING DOT BELOW, COMBINING HORN>
+0055 0300 031B ; [.1B78.0020.0008][.0000.0025.0002] # <LATIN CAPITAL LETTER U, COMBINING GRAVE ACCENT, COMBINING HORN>
+0055 0340 031B ; [.1B78.0020.0008][.0000.0025.0002] # <LATIN CAPITAL LETTER U, COMBINING GRAVE TONE MARK, COMBINING HORN>
+0055 0309 031B ; [.1B78.0020.0008][.0000.0026.0002][.0000.00F0.0000] # <LATIN CAPITAL LETTER U, COMBINING HOOK ABOVE, COMBINING HORN>
+0055 0303 031B ; [.1B78.0020.0008][.0000.0026.0002][.0000.00F1.0000] # <LATIN CAPITAL LETTER U, COMBINING TILDE, COMBINING HORN>
+0055 0301 031B ; [.1B78.0020.0008][.0000.0026.0002][.0000.00F2.0000] # <LATIN CAPITAL LETTER U, COMBINING ACUTE ACCENT, COMBINING HORN>
+0055 0341 031B ; [.1B78.0020.0008][.0000.0026.0002][.0000.00F2.0000] # <LATIN CAPITAL LETTER U, COMBINING ACUTE TONE MARK, COMBINING HORN>
+0055 0323 031B ; [.1B78.0020.0008][.0000.0026.0002][.0000.00F3.0000] # <LATIN CAPITAL LETTER U, COMBINING DOT BELOW, COMBINING HORN>
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/wae.pl b/lib/5.24.1/Unicode/Collate/Locale/wae.pl
new file mode 100644
index 00000000..42fcc2a2
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/wae.pl
@@ -0,0 +1,24 @@
++{
+   locale_version => 1.14,
+   entry => <<'ENTRY', # for DUCET v7.0.0
+0061 0061 ; [.190C.0020.0002][.0000.0024.0002] # <LATIN SMALL LETTER A, LATIN SMALL LETTER A>
+00E4 00E4 ; [.190C.0020.0002][.0000.002D.0002] # <LATIN SMALL LETTER A WITH DIAERESIS, LATIN SMALL LETTER A WITH DIAERESIS>
+00E4 0061 0308 ; [.190C.0020.0002][.0000.002D.0002] # <LATIN SMALL LETTER A WITH DIAERESIS, LATIN SMALL LETTER A, COMBINING DIAERESIS>
+0061 0308 00E4 ; [.190C.0020.0002][.0000.002D.0002] # <LATIN SMALL LETTER A, COMBINING DIAERESIS, LATIN SMALL LETTER A WITH DIAERESIS>
+0061 0308 0061 0308 ; [.190C.0020.0002][.0000.002D.0002] # <LATIN SMALL LETTER A, COMBINING DIAERESIS, LATIN SMALL LETTER A, COMBINING DIAERESIS>
+0065 0065 ; [.196E.0020.0002][.0000.0024.0002] # <LATIN SMALL LETTER E, LATIN SMALL LETTER E>
+0069 0069 ; [.19F6.0020.0002][.0000.0024.0002] # <LATIN SMALL LETTER I, LATIN SMALL LETTER I>
+006F 006F ; [.1AA1.0020.0002][.0000.0024.0002] # <LATIN SMALL LETTER O, LATIN SMALL LETTER O>
+00F6 00F6 ; [.1AA1.0020.0002][.0000.002D.0002] # <LATIN SMALL LETTER O WITH DIAERESIS, LATIN SMALL LETTER O WITH DIAERESIS>
+00F6 006F 0308 ; [.1AA1.0020.0002][.0000.002D.0002] # <LATIN SMALL LETTER O WITH DIAERESIS, LATIN SMALL LETTER O, COMBINING DIAERESIS>
+006F 0308 00F6 ; [.1AA1.0020.0002][.0000.002D.0002] # <LATIN SMALL LETTER O, COMBINING DIAERESIS, LATIN SMALL LETTER O WITH DIAERESIS>
+006F 0308 006F 0308 ; [.1AA1.0020.0002][.0000.002D.0002] # <LATIN SMALL LETTER O, COMBINING DIAERESIS, LATIN SMALL LETTER O, COMBINING DIAERESIS>
+0063 0068 ; [.193E.0020.0002][.0000.0028.0002] # <LATIN SMALL LETTER C, LATIN SMALL LETTER H>
+0073 0063 0068 ; [.1B33.0020.0002][.0000.0028.0002] # <LATIN SMALL LETTER S, LATIN SMALL LETTER C, LATIN SMALL LETTER H>
+0075 0075 ; [.1B77.0020.0002][.0000.0024.0002] # <LATIN SMALL LETTER U, LATIN SMALL LETTER U>
+00FC 00FC ; [.1B77.0020.0002][.0000.002D.0002] # <LATIN SMALL LETTER U WITH DIAERESIS, LATIN SMALL LETTER U WITH DIAERESIS>
+00FC 0075 0308 ; [.1B77.0020.0002][.0000.002D.0002] # <LATIN SMALL LETTER U WITH DIAERESIS, LATIN SMALL LETTER U, COMBINING DIAERESIS>
+0075 0308 00FC ; [.1B77.0020.0002][.0000.002D.0002] # <LATIN SMALL LETTER U, COMBINING DIAERESIS, LATIN SMALL LETTER U WITH DIAERESIS>
+0075 0308 0075 0308 ; [.1B77.0020.0002][.0000.002D.0002] # <LATIN SMALL LETTER U, COMBINING DIAERESIS, LATIN SMALL LETTER U, COMBINING DIAERESIS>
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/wo.pl b/lib/5.24.1/Unicode/Collate/Locale/wo.pl
new file mode 100644
index 00000000..dcc94fed
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/wo.pl
@@ -0,0 +1,32 @@
++{
+   locale_version => 1.14,
+# eng doesn't require tailoring
+   entry => <<'ENTRY', # for DUCET v7.0.0
+00E0      ; [.190D.0020.0002] # LATIN SMALL LETTER A WITH GRAVE
+0061 0300 ; [.190D.0020.0002] # LATIN SMALL LETTER A WITH GRAVE
+0061 0340 ; [.190D.0020.0002] # LATIN SMALL LETTER A WITH GRAVE
+00C0      ; [.190D.0020.0008] # LATIN CAPITAL LETTER A WITH GRAVE
+0041 0300 ; [.190D.0020.0008] # LATIN CAPITAL LETTER A WITH GRAVE
+0041 0340 ; [.190D.0020.0008] # LATIN CAPITAL LETTER A WITH GRAVE
+00E9      ; [.196F.0020.0002] # LATIN SMALL LETTER E WITH ACUTE
+0065 0301 ; [.196F.0020.0002] # LATIN SMALL LETTER E WITH ACUTE
+0065 0341 ; [.196F.0020.0002] # LATIN SMALL LETTER E WITH ACUTE
+00C9      ; [.196F.0020.0008] # LATIN CAPITAL LETTER E WITH ACUTE
+0045 0301 ; [.196F.0020.0008] # LATIN CAPITAL LETTER E WITH ACUTE
+0045 0341 ; [.196F.0020.0008] # LATIN CAPITAL LETTER E WITH ACUTE
+00EB      ; [.1970.0020.0002] # LATIN SMALL LETTER E WITH DIAERESIS
+0065 0308 ; [.1970.0020.0002] # LATIN SMALL LETTER E WITH DIAERESIS
+00CB      ; [.1970.0020.0008] # LATIN CAPITAL LETTER E WITH DIAERESIS
+0045 0308 ; [.1970.0020.0008] # LATIN CAPITAL LETTER E WITH DIAERESIS
+00F1      ; [.1A7E.0020.0002] # LATIN SMALL LETTER N WITH TILDE
+006E 0303 ; [.1A7E.0020.0002] # LATIN SMALL LETTER N WITH TILDE
+00D1      ; [.1A7E.0020.0008] # LATIN CAPITAL LETTER N WITH TILDE
+004E 0303 ; [.1A7E.0020.0008] # LATIN CAPITAL LETTER N WITH TILDE
+00F3      ; [.1AA2.0020.0002] # LATIN SMALL LETTER O WITH ACUTE
+006F 0301 ; [.1AA2.0020.0002] # LATIN SMALL LETTER O WITH ACUTE
+006F 0341 ; [.1AA2.0020.0002] # LATIN SMALL LETTER O WITH ACUTE
+00D3      ; [.1AA2.0020.0008] # LATIN CAPITAL LETTER O WITH ACUTE
+004F 0301 ; [.1AA2.0020.0008] # LATIN CAPITAL LETTER O WITH ACUTE
+004F 0341 ; [.1AA2.0020.0008] # LATIN CAPITAL LETTER O WITH ACUTE
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/yo.pl b/lib/5.24.1/Unicode/Collate/Locale/yo.pl
new file mode 100644
index 00000000..977dc8f2
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/yo.pl
@@ -0,0 +1,26 @@
++{
+   locale_version => 1.14,
+   entry => <<'ENTRY', # for DUCET v7.0.0
+1EB9      ; [.196F.0020.0002] # LATIN SMALL LETTER E WITH DOT BELOW
+0065 0323 ; [.196F.0020.0002] # LATIN SMALL LETTER E WITH DOT BELOW
+1EB8      ; [.196F.0020.0008] # LATIN CAPITAL LETTER E WITH DOT BELOW
+0045 0323 ; [.196F.0020.0008] # LATIN CAPITAL LETTER E WITH DOT BELOW
+1EC7      ; [.196F.0020.0002][.0000.0027.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND DOT BELOW
+1EC6      ; [.196F.0020.0008][.0000.0027.0002] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND DOT BELOW
+0067 0062 ; [.19B9.0020.0002] # <LATIN SMALL LETTER G, LATIN SMALL LETTER B>
+0047 0062 ; [.19B9.0020.0007] # <LATIN CAPITAL LETTER G, LATIN SMALL LETTER B>
+0047 0042 ; [.19B9.0020.0008] # <LATIN CAPITAL LETTER G, LATIN CAPITAL LETTER B>
+1ECD      ; [.1AA2.0020.0002] # LATIN SMALL LETTER O WITH DOT BELOW
+006F 0323 ; [.1AA2.0020.0002] # LATIN SMALL LETTER O WITH DOT BELOW
+1ECC      ; [.1AA2.0020.0008] # LATIN CAPITAL LETTER O WITH DOT BELOW
+004F 0323 ; [.1AA2.0020.0008] # LATIN CAPITAL LETTER O WITH DOT BELOW
+1ED9      ; [.1AA2.0020.0002][.0000.0027.0002] # LATIN SMALL LETTER O WITH CIRCUMFLEX AND DOT BELOW
+1ED8      ; [.1AA2.0020.0008][.0000.0027.0002] # LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND DOT BELOW
+1EE3      ; [.1AA2.0020.0002][.0000.003F.0002] # LATIN SMALL LETTER O WITH HORN AND DOT BELOW
+1EE2      ; [.1AA2.0020.0008][.0000.003F.0002] # LATIN CAPITAL LETTER O WITH HORN AND DOT BELOW
+1E63      ; [.1B34.0020.0002] # LATIN SMALL LETTER S WITH DOT BELOW
+0073 0323 ; [.1B34.0020.0002] # LATIN SMALL LETTER S WITH DOT BELOW
+1E62      ; [.1B34.0020.0008] # LATIN CAPITAL LETTER S WITH DOT BELOW
+0053 0323 ; [.1B34.0020.0008] # LATIN CAPITAL LETTER S WITH DOT BELOW
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/zh.pl b/lib/5.24.1/Unicode/Collate/Locale/zh.pl
new file mode 100644
index 00000000..75cd780f
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/zh.pl
@@ -0,0 +1,211 @@
++{
+   locale_version => 1.14,
+   entry => <<'ENTRY', # for DUCET v7.0.0
+0101      ; [.190C.001C.0002] # LATIN SMALL LETTER A WITH MACRON
+0061 0304 ; [.190C.001C.0002] # LATIN SMALL LETTER A WITH MACRON
+0100      ; [.190C.001C.0008] # LATIN CAPITAL LETTER A WITH MACRON
+0041 0304 ; [.190C.001C.0008] # LATIN CAPITAL LETTER A WITH MACRON
+00E1      ; [.190C.001D.0002] # LATIN SMALL LETTER A WITH ACUTE
+0061 0301 ; [.190C.001D.0002] # LATIN SMALL LETTER A WITH ACUTE
+0061 0341 ; [.190C.001D.0002] # LATIN SMALL LETTER A WITH ACUTE
+00C1      ; [.190C.001D.0008] # LATIN CAPITAL LETTER A WITH ACUTE
+0041 0301 ; [.190C.001D.0008] # LATIN CAPITAL LETTER A WITH ACUTE
+0041 0341 ; [.190C.001D.0008] # LATIN CAPITAL LETTER A WITH ACUTE
+01CE      ; [.190C.001E.0002] # LATIN SMALL LETTER A WITH CARON
+0061 030C ; [.190C.001E.0002] # LATIN SMALL LETTER A WITH CARON
+01CD      ; [.190C.001E.0008] # LATIN CAPITAL LETTER A WITH CARON
+0041 030C ; [.190C.001E.0008] # LATIN CAPITAL LETTER A WITH CARON
+00E0      ; [.190C.001F.0002] # LATIN SMALL LETTER A WITH GRAVE
+0061 0300 ; [.190C.001F.0002] # LATIN SMALL LETTER A WITH GRAVE
+0061 0340 ; [.190C.001F.0002] # LATIN SMALL LETTER A WITH GRAVE
+00C0      ; [.190C.001F.0008] # LATIN CAPITAL LETTER A WITH GRAVE
+0041 0300 ; [.190C.001F.0008] # LATIN CAPITAL LETTER A WITH GRAVE
+0041 0340 ; [.190C.001F.0008] # LATIN CAPITAL LETTER A WITH GRAVE
+0113      ; [.196E.001C.0002] # LATIN SMALL LETTER E WITH MACRON
+0065 0304 ; [.196E.001C.0002] # LATIN SMALL LETTER E WITH MACRON
+0112      ; [.196E.001C.0008] # LATIN CAPITAL LETTER E WITH MACRON
+0045 0304 ; [.196E.001C.0008] # LATIN CAPITAL LETTER E WITH MACRON
+00E9      ; [.196E.001D.0002] # LATIN SMALL LETTER E WITH ACUTE
+0065 0301 ; [.196E.001D.0002] # LATIN SMALL LETTER E WITH ACUTE
+0065 0341 ; [.196E.001D.0002] # LATIN SMALL LETTER E WITH ACUTE
+00C9      ; [.196E.001D.0008] # LATIN CAPITAL LETTER E WITH ACUTE
+0045 0301 ; [.196E.001D.0008] # LATIN CAPITAL LETTER E WITH ACUTE
+0045 0341 ; [.196E.001D.0008] # LATIN CAPITAL LETTER E WITH ACUTE
+011B      ; [.196E.001E.0002] # LATIN SMALL LETTER E WITH CARON
+0065 030C ; [.196E.001E.0002] # LATIN SMALL LETTER E WITH CARON
+011A      ; [.196E.001E.0008] # LATIN CAPITAL LETTER E WITH CARON
+0045 030C ; [.196E.001E.0008] # LATIN CAPITAL LETTER E WITH CARON
+00E8      ; [.196E.001F.0002] # LATIN SMALL LETTER E WITH GRAVE
+0065 0300 ; [.196E.001F.0002] # LATIN SMALL LETTER E WITH GRAVE
+0065 0340 ; [.196E.001F.0002] # LATIN SMALL LETTER E WITH GRAVE
+00C8      ; [.196E.001F.0008] # LATIN CAPITAL LETTER E WITH GRAVE
+0045 0300 ; [.196E.001F.0008] # LATIN CAPITAL LETTER E WITH GRAVE
+0045 0340 ; [.196E.001F.0008] # LATIN CAPITAL LETTER E WITH GRAVE
+00EA 0304 ; [.196E.0021.0002] # <LATIN SMALL LETTER E WITH CIRCUMFLEX, COMBINING MACRON>
+00CA 0304 ; [.196E.0021.0008] # <LATIN CAPITAL LETTER E WITH CIRCUMFLEX, COMBINING MACRON>
+0065 0302 0304 ; [.196E.0021.0002] # <LATIN SMALL LETTER E, COMBINING CIRCUMFLEX ACCENT, COMBINING MACRON>
+0045 0302 0304 ; [.196E.0021.0008] # <LATIN CAPITAL LETTER E, COMBINING CIRCUMFLEX ACCENT, COMBINING MACRON>
+1EBF      ; [.196E.0022.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND ACUTE
+0065 0302 0301 ; [.196E.0022.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND ACUTE
+0065 0302 0341 ; [.196E.0022.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND ACUTE
+1EBE      ; [.196E.0022.0008] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND ACUTE
+0045 0302 0301 ; [.196E.0022.0008] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND ACUTE
+0045 0302 0341 ; [.196E.0022.0008] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND ACUTE
+00EA 0301 ; [.196E.0022.0002] # <LATIN SMALL LETTER E WITH CIRCUMFLEX, COMBINING ACUTE ACCENT>
+00EA 0341 ; [.196E.0022.0002] # <LATIN SMALL LETTER E WITH CIRCUMFLEX, COMBINING ACUTE TONE MARK>
+00CA 0301 ; [.196E.0022.0008] # <LATIN CAPITAL LETTER E WITH CIRCUMFLEX, COMBINING ACUTE ACCENT>
+00CA 0341 ; [.196E.0022.0008] # <LATIN CAPITAL LETTER E WITH CIRCUMFLEX, COMBINING ACUTE TONE MARK>
+00EA 030C ; [.196E.0023.0002] # <LATIN SMALL LETTER E WITH CIRCUMFLEX, COMBINING CARON>
+00CA 030C ; [.196E.0023.0008] # <LATIN CAPITAL LETTER E WITH CIRCUMFLEX, COMBINING CARON>
+0065 0302 030C ; [.196E.0023.0002] # <LATIN SMALL LETTER E, COMBINING CIRCUMFLEX ACCENT, COMBINING CARON>
+0045 0302 030C ; [.196E.0023.0008] # <LATIN CAPITAL LETTER E, COMBINING CIRCUMFLEX ACCENT, COMBINING CARON>
+1EC1      ; [.196E.0024.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND GRAVE
+0065 0302 0300 ; [.196E.0024.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND GRAVE
+0065 0302 0340 ; [.196E.0024.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND GRAVE
+1EC0      ; [.196E.0024.0008] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND GRAVE
+0045 0302 0300 ; [.196E.0024.0008] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND GRAVE
+0045 0302 0340 ; [.196E.0024.0008] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND GRAVE
+00EA 0300 ; [.196E.0024.0002] # <LATIN SMALL LETTER E WITH CIRCUMFLEX, COMBINING GRAVE ACCENT>
+00EA 0340 ; [.196E.0024.0002] # <LATIN SMALL LETTER E WITH CIRCUMFLEX, COMBINING GRAVE TONE MARK>
+00CA 0300 ; [.196E.0024.0008] # <LATIN CAPITAL LETTER E WITH CIRCUMFLEX, COMBINING GRAVE ACCENT>
+00CA 0340 ; [.196E.0024.0008] # <LATIN CAPITAL LETTER E WITH CIRCUMFLEX, COMBINING GRAVE TONE MARK>
+00EA      ; [.196E.0025.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX
+0065 0302 ; [.196E.0025.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX
+00CA      ; [.196E.0025.0008] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX
+0045 0302 ; [.196E.0025.0008] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX
+1EC5      ; [.196E.0025.0002][.0000.002D.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND TILDE
+1EC4      ; [.196E.0025.0008][.0000.002D.0002] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND TILDE
+1EC3      ; [.196E.0025.0002][.0000.003B.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND HOOK ABOVE
+1EC2      ; [.196E.0025.0008][.0000.003B.0002] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND HOOK ABOVE
+1EC7      ; [.196E.0025.0002][.0000.0042.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND DOT BELOW
+1EC6      ; [.196E.0025.0008][.0000.0042.0002] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND DOT BELOW
+012B      ; [.19F6.001C.0002] # LATIN SMALL LETTER I WITH MACRON
+0069 0304 ; [.19F6.001C.0002] # LATIN SMALL LETTER I WITH MACRON
+012A      ; [.19F6.001C.0008] # LATIN CAPITAL LETTER I WITH MACRON
+0049 0304 ; [.19F6.001C.0008] # LATIN CAPITAL LETTER I WITH MACRON
+00ED      ; [.19F6.001D.0002] # LATIN SMALL LETTER I WITH ACUTE
+0069 0301 ; [.19F6.001D.0002] # LATIN SMALL LETTER I WITH ACUTE
+0069 0341 ; [.19F6.001D.0002] # LATIN SMALL LETTER I WITH ACUTE
+00CD      ; [.19F6.001D.0008] # LATIN CAPITAL LETTER I WITH ACUTE
+0049 0301 ; [.19F6.001D.0008] # LATIN CAPITAL LETTER I WITH ACUTE
+0049 0341 ; [.19F6.001D.0008] # LATIN CAPITAL LETTER I WITH ACUTE
+01D0      ; [.19F6.001E.0002] # LATIN SMALL LETTER I WITH CARON
+0069 030C ; [.19F6.001E.0002] # LATIN SMALL LETTER I WITH CARON
+01CF      ; [.19F6.001E.0008] # LATIN CAPITAL LETTER I WITH CARON
+0049 030C ; [.19F6.001E.0008] # LATIN CAPITAL LETTER I WITH CARON
+00EC      ; [.19F6.001F.0002] # LATIN SMALL LETTER I WITH GRAVE
+0069 0300 ; [.19F6.001F.0002] # LATIN SMALL LETTER I WITH GRAVE
+0069 0340 ; [.19F6.001F.0002] # LATIN SMALL LETTER I WITH GRAVE
+00CC      ; [.19F6.001F.0008] # LATIN CAPITAL LETTER I WITH GRAVE
+0049 0300 ; [.19F6.001F.0008] # LATIN CAPITAL LETTER I WITH GRAVE
+0049 0340 ; [.19F6.001F.0008] # LATIN CAPITAL LETTER I WITH GRAVE
+006D 0304 ; [.1A6E.001C.0002] # <LATIN SMALL LETTER M, COMBINING MACRON>
+004D 0304 ; [.1A6E.001C.0008] # <LATIN CAPITAL LETTER M, COMBINING MACRON>
+1E3F      ; [.1A6E.001D.0002] # LATIN SMALL LETTER M WITH ACUTE
+006D 0301 ; [.1A6E.001D.0002] # LATIN SMALL LETTER M WITH ACUTE
+006D 0341 ; [.1A6E.001D.0002] # LATIN SMALL LETTER M WITH ACUTE
+1E3E      ; [.1A6E.001D.0008] # LATIN CAPITAL LETTER M WITH ACUTE
+004D 0301 ; [.1A6E.001D.0008] # LATIN CAPITAL LETTER M WITH ACUTE
+004D 0341 ; [.1A6E.001D.0008] # LATIN CAPITAL LETTER M WITH ACUTE
+006D 030C ; [.1A6E.001E.0002] # <LATIN SMALL LETTER M, COMBINING CARON>
+004D 030C ; [.1A6E.001E.0008] # <LATIN CAPITAL LETTER M, COMBINING CARON>
+006D 0300 ; [.1A6E.001F.0002] # <LATIN SMALL LETTER M, COMBINING GRAVE ACCENT>
+006D 0340 ; [.1A6E.001F.0002] # <LATIN SMALL LETTER M, COMBINING GRAVE TONE MARK>
+004D 0300 ; [.1A6E.001F.0008] # <LATIN CAPITAL LETTER M, COMBINING GRAVE ACCENT>
+004D 0340 ; [.1A6E.001F.0008] # <LATIN CAPITAL LETTER M, COMBINING GRAVE TONE MARK>
+006E 0304 ; [.1A7D.001C.0002] # <LATIN SMALL LETTER N, COMBINING MACRON>
+004E 0304 ; [.1A7D.001C.0008] # <LATIN CAPITAL LETTER N, COMBINING MACRON>
+0144      ; [.1A7D.001D.0002] # LATIN SMALL LETTER N WITH ACUTE
+006E 0301 ; [.1A7D.001D.0002] # LATIN SMALL LETTER N WITH ACUTE
+006E 0341 ; [.1A7D.001D.0002] # LATIN SMALL LETTER N WITH ACUTE
+0143      ; [.1A7D.001D.0008] # LATIN CAPITAL LETTER N WITH ACUTE
+004E 0301 ; [.1A7D.001D.0008] # LATIN CAPITAL LETTER N WITH ACUTE
+004E 0341 ; [.1A7D.001D.0008] # LATIN CAPITAL LETTER N WITH ACUTE
+0148      ; [.1A7D.001E.0002] # LATIN SMALL LETTER N WITH CARON
+006E 030C ; [.1A7D.001E.0002] # LATIN SMALL LETTER N WITH CARON
+0147      ; [.1A7D.001E.0008] # LATIN CAPITAL LETTER N WITH CARON
+004E 030C ; [.1A7D.001E.0008] # LATIN CAPITAL LETTER N WITH CARON
+01F9      ; [.1A7D.001F.0002] # LATIN SMALL LETTER N WITH GRAVE
+006E 0300 ; [.1A7D.001F.0002] # LATIN SMALL LETTER N WITH GRAVE
+006E 0340 ; [.1A7D.001F.0002] # LATIN SMALL LETTER N WITH GRAVE
+01F8      ; [.1A7D.001F.0008] # LATIN CAPITAL LETTER N WITH GRAVE
+004E 0300 ; [.1A7D.001F.0008] # LATIN CAPITAL LETTER N WITH GRAVE
+004E 0340 ; [.1A7D.001F.0008] # LATIN CAPITAL LETTER N WITH GRAVE
+014D      ; [.1AA1.001C.0002] # LATIN SMALL LETTER O WITH MACRON
+006F 0304 ; [.1AA1.001C.0002] # LATIN SMALL LETTER O WITH MACRON
+014C      ; [.1AA1.001C.0008] # LATIN CAPITAL LETTER O WITH MACRON
+004F 0304 ; [.1AA1.001C.0008] # LATIN CAPITAL LETTER O WITH MACRON
+00F3      ; [.1AA1.001D.0002] # LATIN SMALL LETTER O WITH ACUTE
+006F 0301 ; [.1AA1.001D.0002] # LATIN SMALL LETTER O WITH ACUTE
+006F 0341 ; [.1AA1.001D.0002] # LATIN SMALL LETTER O WITH ACUTE
+00D3      ; [.1AA1.001D.0008] # LATIN CAPITAL LETTER O WITH ACUTE
+004F 0301 ; [.1AA1.001D.0008] # LATIN CAPITAL LETTER O WITH ACUTE
+004F 0341 ; [.1AA1.001D.0008] # LATIN CAPITAL LETTER O WITH ACUTE
+01D2      ; [.1AA1.001E.0002] # LATIN SMALL LETTER O WITH CARON
+006F 030C ; [.1AA1.001E.0002] # LATIN SMALL LETTER O WITH CARON
+01D1      ; [.1AA1.001E.0008] # LATIN CAPITAL LETTER O WITH CARON
+004F 030C ; [.1AA1.001E.0008] # LATIN CAPITAL LETTER O WITH CARON
+00F2      ; [.1AA1.001F.0002] # LATIN SMALL LETTER O WITH GRAVE
+006F 0300 ; [.1AA1.001F.0002] # LATIN SMALL LETTER O WITH GRAVE
+006F 0340 ; [.1AA1.001F.0002] # LATIN SMALL LETTER O WITH GRAVE
+00D2      ; [.1AA1.001F.0008] # LATIN CAPITAL LETTER O WITH GRAVE
+004F 0300 ; [.1AA1.001F.0008] # LATIN CAPITAL LETTER O WITH GRAVE
+004F 0340 ; [.1AA1.001F.0008] # LATIN CAPITAL LETTER O WITH GRAVE
+016B      ; [.1B77.001C.0002] # LATIN SMALL LETTER U WITH MACRON
+0075 0304 ; [.1B77.001C.0002] # LATIN SMALL LETTER U WITH MACRON
+016A      ; [.1B77.001C.0008] # LATIN CAPITAL LETTER U WITH MACRON
+0055 0304 ; [.1B77.001C.0008] # LATIN CAPITAL LETTER U WITH MACRON
+00FA      ; [.1B77.001D.0002] # LATIN SMALL LETTER U WITH ACUTE
+0075 0301 ; [.1B77.001D.0002] # LATIN SMALL LETTER U WITH ACUTE
+0075 0341 ; [.1B77.001D.0002] # LATIN SMALL LETTER U WITH ACUTE
+00DA      ; [.1B77.001D.0008] # LATIN CAPITAL LETTER U WITH ACUTE
+0055 0301 ; [.1B77.001D.0008] # LATIN CAPITAL LETTER U WITH ACUTE
+0055 0341 ; [.1B77.001D.0008] # LATIN CAPITAL LETTER U WITH ACUTE
+01D4      ; [.1B77.001E.0002] # LATIN SMALL LETTER U WITH CARON
+0075 030C ; [.1B77.001E.0002] # LATIN SMALL LETTER U WITH CARON
+01D3      ; [.1B77.001E.0008] # LATIN CAPITAL LETTER U WITH CARON
+0055 030C ; [.1B77.001E.0008] # LATIN CAPITAL LETTER U WITH CARON
+00F9      ; [.1B77.001F.0002] # LATIN SMALL LETTER U WITH GRAVE
+0075 0300 ; [.1B77.001F.0002] # LATIN SMALL LETTER U WITH GRAVE
+0075 0340 ; [.1B77.001F.0002] # LATIN SMALL LETTER U WITH GRAVE
+00D9      ; [.1B77.001F.0008] # LATIN CAPITAL LETTER U WITH GRAVE
+0055 0300 ; [.1B77.001F.0008] # LATIN CAPITAL LETTER U WITH GRAVE
+0055 0340 ; [.1B77.001F.0008] # LATIN CAPITAL LETTER U WITH GRAVE
+01D6      ; [.1B77.0021.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND MACRON
+0075 0308 0304 ; [.1B77.0021.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND MACRON
+01D5      ; [.1B77.0021.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS AND MACRON
+0055 0308 0304 ; [.1B77.0021.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS AND MACRON
+00FC 0304 ; [.1B77.0021.0002] # <LATIN SMALL LETTER U WITH DIAERESIS, COMBINING MACRON>
+00DC 0304 ; [.1B77.0021.0008] # <LATIN CAPITAL LETTER U WITH DIAERESIS, COMBINING MACRON>
+01D8      ; [.1B77.0022.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND ACUTE
+0075 0308 0301 ; [.1B77.0022.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND ACUTE
+0075 0308 0341 ; [.1B77.0022.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND ACUTE
+01D7      ; [.1B77.0022.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS AND ACUTE
+0055 0308 0301 ; [.1B77.0022.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS AND ACUTE
+0055 0308 0341 ; [.1B77.0022.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS AND ACUTE
+00FC 0301 ; [.1B77.0022.0002] # <LATIN SMALL LETTER U WITH DIAERESIS, COMBINING ACUTE ACCENT>
+00FC 0341 ; [.1B77.0022.0002] # <LATIN SMALL LETTER U WITH DIAERESIS, COMBINING ACUTE TONE MARK>
+00DC 0301 ; [.1B77.0022.0008] # <LATIN CAPITAL LETTER U WITH DIAERESIS, COMBINING ACUTE ACCENT>
+00DC 0341 ; [.1B77.0022.0008] # <LATIN CAPITAL LETTER U WITH DIAERESIS, COMBINING ACUTE TONE MARK>
+01DA      ; [.1B77.0023.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND CARON
+0075 0308 030C ; [.1B77.0023.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND CARON
+01D9      ; [.1B77.0023.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS AND CARON
+0055 0308 030C ; [.1B77.0023.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS AND CARON
+00FC 030C ; [.1B77.0023.0002] # <LATIN SMALL LETTER U WITH DIAERESIS, COMBINING CARON>
+00DC 030C ; [.1B77.0023.0008] # <LATIN CAPITAL LETTER U WITH DIAERESIS, COMBINING CARON>
+01DC      ; [.1B77.0024.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND GRAVE
+0075 0308 0300 ; [.1B77.0024.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND GRAVE
+0075 0308 0340 ; [.1B77.0024.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND GRAVE
+01DB      ; [.1B77.0024.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS AND GRAVE
+0055 0308 0300 ; [.1B77.0024.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS AND GRAVE
+0055 0308 0340 ; [.1B77.0024.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS AND GRAVE
+00FC 0300 ; [.1B77.0024.0002] # <LATIN SMALL LETTER U WITH DIAERESIS, COMBINING GRAVE ACCENT>
+00FC 0340 ; [.1B77.0024.0002] # <LATIN SMALL LETTER U WITH DIAERESIS, COMBINING GRAVE TONE MARK>
+00DC 0300 ; [.1B77.0024.0008] # <LATIN CAPITAL LETTER U WITH DIAERESIS, COMBINING GRAVE ACCENT>
+00DC 0340 ; [.1B77.0024.0008] # <LATIN CAPITAL LETTER U WITH DIAERESIS, COMBINING GRAVE TONE MARK>
+00FC      ; [.1B77.0025.0002] # LATIN SMALL LETTER U WITH DIAERESIS
+0075 0308 ; [.1B77.0025.0002] # LATIN SMALL LETTER U WITH DIAERESIS
+00DC      ; [.1B77.0025.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS
+0055 0308 ; [.1B77.0025.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/zh_big5.pl b/lib/5.24.1/Unicode/Collate/Locale/zh_big5.pl
new file mode 100644
index 00000000..8136f444
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/zh_big5.pl
@@ -0,0 +1,945 @@
+use Unicode::Collate::CJK::Big5;
++{
+   locale_version => 1.14,
+   overrideCJK => \&Unicode::Collate::CJK::Big5::weightBig5,
+   entry => <<'ENTRY', # for DUCET v7.0.0
+0101      ; [.190C.001C.0002] # LATIN SMALL LETTER A WITH MACRON
+0061 0304 ; [.190C.001C.0002] # LATIN SMALL LETTER A WITH MACRON
+0100      ; [.190C.001C.0008] # LATIN CAPITAL LETTER A WITH MACRON
+0041 0304 ; [.190C.001C.0008] # LATIN CAPITAL LETTER A WITH MACRON
+00E1      ; [.190C.001D.0002] # LATIN SMALL LETTER A WITH ACUTE
+0061 0301 ; [.190C.001D.0002] # LATIN SMALL LETTER A WITH ACUTE
+0061 0341 ; [.190C.001D.0002] # LATIN SMALL LETTER A WITH ACUTE
+00C1      ; [.190C.001D.0008] # LATIN CAPITAL LETTER A WITH ACUTE
+0041 0301 ; [.190C.001D.0008] # LATIN CAPITAL LETTER A WITH ACUTE
+0041 0341 ; [.190C.001D.0008] # LATIN CAPITAL LETTER A WITH ACUTE
+01CE      ; [.190C.001E.0002] # LATIN SMALL LETTER A WITH CARON
+0061 030C ; [.190C.001E.0002] # LATIN SMALL LETTER A WITH CARON
+01CD      ; [.190C.001E.0008] # LATIN CAPITAL LETTER A WITH CARON
+0041 030C ; [.190C.001E.0008] # LATIN CAPITAL LETTER A WITH CARON
+00E0      ; [.190C.001F.0002] # LATIN SMALL LETTER A WITH GRAVE
+0061 0300 ; [.190C.001F.0002] # LATIN SMALL LETTER A WITH GRAVE
+0061 0340 ; [.190C.001F.0002] # LATIN SMALL LETTER A WITH GRAVE
+00C0      ; [.190C.001F.0008] # LATIN CAPITAL LETTER A WITH GRAVE
+0041 0300 ; [.190C.001F.0008] # LATIN CAPITAL LETTER A WITH GRAVE
+0041 0340 ; [.190C.001F.0008] # LATIN CAPITAL LETTER A WITH GRAVE
+0113      ; [.196E.001C.0002] # LATIN SMALL LETTER E WITH MACRON
+0065 0304 ; [.196E.001C.0002] # LATIN SMALL LETTER E WITH MACRON
+0112      ; [.196E.001C.0008] # LATIN CAPITAL LETTER E WITH MACRON
+0045 0304 ; [.196E.001C.0008] # LATIN CAPITAL LETTER E WITH MACRON
+00E9      ; [.196E.001D.0002] # LATIN SMALL LETTER E WITH ACUTE
+0065 0301 ; [.196E.001D.0002] # LATIN SMALL LETTER E WITH ACUTE
+0065 0341 ; [.196E.001D.0002] # LATIN SMALL LETTER E WITH ACUTE
+00C9      ; [.196E.001D.0008] # LATIN CAPITAL LETTER E WITH ACUTE
+0045 0301 ; [.196E.001D.0008] # LATIN CAPITAL LETTER E WITH ACUTE
+0045 0341 ; [.196E.001D.0008] # LATIN CAPITAL LETTER E WITH ACUTE
+011B      ; [.196E.001E.0002] # LATIN SMALL LETTER E WITH CARON
+0065 030C ; [.196E.001E.0002] # LATIN SMALL LETTER E WITH CARON
+011A      ; [.196E.001E.0008] # LATIN CAPITAL LETTER E WITH CARON
+0045 030C ; [.196E.001E.0008] # LATIN CAPITAL LETTER E WITH CARON
+00E8      ; [.196E.001F.0002] # LATIN SMALL LETTER E WITH GRAVE
+0065 0300 ; [.196E.001F.0002] # LATIN SMALL LETTER E WITH GRAVE
+0065 0340 ; [.196E.001F.0002] # LATIN SMALL LETTER E WITH GRAVE
+00C8      ; [.196E.001F.0008] # LATIN CAPITAL LETTER E WITH GRAVE
+0045 0300 ; [.196E.001F.0008] # LATIN CAPITAL LETTER E WITH GRAVE
+0045 0340 ; [.196E.001F.0008] # LATIN CAPITAL LETTER E WITH GRAVE
+00EA 0304 ; [.196E.0021.0002] # <LATIN SMALL LETTER E WITH CIRCUMFLEX, COMBINING MACRON>
+00CA 0304 ; [.196E.0021.0008] # <LATIN CAPITAL LETTER E WITH CIRCUMFLEX, COMBINING MACRON>
+0065 0302 0304 ; [.196E.0021.0002] # <LATIN SMALL LETTER E, COMBINING CIRCUMFLEX ACCENT, COMBINING MACRON>
+0045 0302 0304 ; [.196E.0021.0008] # <LATIN CAPITAL LETTER E, COMBINING CIRCUMFLEX ACCENT, COMBINING MACRON>
+1EBF      ; [.196E.0022.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND ACUTE
+0065 0302 0301 ; [.196E.0022.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND ACUTE
+0065 0302 0341 ; [.196E.0022.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND ACUTE
+1EBE      ; [.196E.0022.0008] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND ACUTE
+0045 0302 0301 ; [.196E.0022.0008] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND ACUTE
+0045 0302 0341 ; [.196E.0022.0008] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND ACUTE
+00EA 0301 ; [.196E.0022.0002] # <LATIN SMALL LETTER E WITH CIRCUMFLEX, COMBINING ACUTE ACCENT>
+00EA 0341 ; [.196E.0022.0002] # <LATIN SMALL LETTER E WITH CIRCUMFLEX, COMBINING ACUTE TONE MARK>
+00CA 0301 ; [.196E.0022.0008] # <LATIN CAPITAL LETTER E WITH CIRCUMFLEX, COMBINING ACUTE ACCENT>
+00CA 0341 ; [.196E.0022.0008] # <LATIN CAPITAL LETTER E WITH CIRCUMFLEX, COMBINING ACUTE TONE MARK>
+00EA 030C ; [.196E.0023.0002] # <LATIN SMALL LETTER E WITH CIRCUMFLEX, COMBINING CARON>
+00CA 030C ; [.196E.0023.0008] # <LATIN CAPITAL LETTER E WITH CIRCUMFLEX, COMBINING CARON>
+0065 0302 030C ; [.196E.0023.0002] # <LATIN SMALL LETTER E, COMBINING CIRCUMFLEX ACCENT, COMBINING CARON>
+0045 0302 030C ; [.196E.0023.0008] # <LATIN CAPITAL LETTER E, COMBINING CIRCUMFLEX ACCENT, COMBINING CARON>
+1EC1      ; [.196E.0024.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND GRAVE
+0065 0302 0300 ; [.196E.0024.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND GRAVE
+0065 0302 0340 ; [.196E.0024.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND GRAVE
+1EC0      ; [.196E.0024.0008] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND GRAVE
+0045 0302 0300 ; [.196E.0024.0008] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND GRAVE
+0045 0302 0340 ; [.196E.0024.0008] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND GRAVE
+00EA 0300 ; [.196E.0024.0002] # <LATIN SMALL LETTER E WITH CIRCUMFLEX, COMBINING GRAVE ACCENT>
+00EA 0340 ; [.196E.0024.0002] # <LATIN SMALL LETTER E WITH CIRCUMFLEX, COMBINING GRAVE TONE MARK>
+00CA 0300 ; [.196E.0024.0008] # <LATIN CAPITAL LETTER E WITH CIRCUMFLEX, COMBINING GRAVE ACCENT>
+00CA 0340 ; [.196E.0024.0008] # <LATIN CAPITAL LETTER E WITH CIRCUMFLEX, COMBINING GRAVE TONE MARK>
+00EA      ; [.196E.0025.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX
+0065 0302 ; [.196E.0025.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX
+00CA      ; [.196E.0025.0008] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX
+0045 0302 ; [.196E.0025.0008] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX
+1EC5      ; [.196E.0025.0002][.0000.002D.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND TILDE
+1EC4      ; [.196E.0025.0008][.0000.002D.0002] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND TILDE
+1EC3      ; [.196E.0025.0002][.0000.003B.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND HOOK ABOVE
+1EC2      ; [.196E.0025.0008][.0000.003B.0002] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND HOOK ABOVE
+1EC7      ; [.196E.0025.0002][.0000.0042.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND DOT BELOW
+1EC6      ; [.196E.0025.0008][.0000.0042.0002] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND DOT BELOW
+012B      ; [.19F6.001C.0002] # LATIN SMALL LETTER I WITH MACRON
+0069 0304 ; [.19F6.001C.0002] # LATIN SMALL LETTER I WITH MACRON
+012A      ; [.19F6.001C.0008] # LATIN CAPITAL LETTER I WITH MACRON
+0049 0304 ; [.19F6.001C.0008] # LATIN CAPITAL LETTER I WITH MACRON
+00ED      ; [.19F6.001D.0002] # LATIN SMALL LETTER I WITH ACUTE
+0069 0301 ; [.19F6.001D.0002] # LATIN SMALL LETTER I WITH ACUTE
+0069 0341 ; [.19F6.001D.0002] # LATIN SMALL LETTER I WITH ACUTE
+00CD      ; [.19F6.001D.0008] # LATIN CAPITAL LETTER I WITH ACUTE
+0049 0301 ; [.19F6.001D.0008] # LATIN CAPITAL LETTER I WITH ACUTE
+0049 0341 ; [.19F6.001D.0008] # LATIN CAPITAL LETTER I WITH ACUTE
+01D0      ; [.19F6.001E.0002] # LATIN SMALL LETTER I WITH CARON
+0069 030C ; [.19F6.001E.0002] # LATIN SMALL LETTER I WITH CARON
+01CF      ; [.19F6.001E.0008] # LATIN CAPITAL LETTER I WITH CARON
+0049 030C ; [.19F6.001E.0008] # LATIN CAPITAL LETTER I WITH CARON
+00EC      ; [.19F6.001F.0002] # LATIN SMALL LETTER I WITH GRAVE
+0069 0300 ; [.19F6.001F.0002] # LATIN SMALL LETTER I WITH GRAVE
+0069 0340 ; [.19F6.001F.0002] # LATIN SMALL LETTER I WITH GRAVE
+00CC      ; [.19F6.001F.0008] # LATIN CAPITAL LETTER I WITH GRAVE
+0049 0300 ; [.19F6.001F.0008] # LATIN CAPITAL LETTER I WITH GRAVE
+0049 0340 ; [.19F6.001F.0008] # LATIN CAPITAL LETTER I WITH GRAVE
+006D 0304 ; [.1A6E.001C.0002] # <LATIN SMALL LETTER M, COMBINING MACRON>
+004D 0304 ; [.1A6E.001C.0008] # <LATIN CAPITAL LETTER M, COMBINING MACRON>
+1E3F      ; [.1A6E.001D.0002] # LATIN SMALL LETTER M WITH ACUTE
+006D 0301 ; [.1A6E.001D.0002] # LATIN SMALL LETTER M WITH ACUTE
+006D 0341 ; [.1A6E.001D.0002] # LATIN SMALL LETTER M WITH ACUTE
+1E3E      ; [.1A6E.001D.0008] # LATIN CAPITAL LETTER M WITH ACUTE
+004D 0301 ; [.1A6E.001D.0008] # LATIN CAPITAL LETTER M WITH ACUTE
+004D 0341 ; [.1A6E.001D.0008] # LATIN CAPITAL LETTER M WITH ACUTE
+006D 030C ; [.1A6E.001E.0002] # <LATIN SMALL LETTER M, COMBINING CARON>
+004D 030C ; [.1A6E.001E.0008] # <LATIN CAPITAL LETTER M, COMBINING CARON>
+006D 0300 ; [.1A6E.001F.0002] # <LATIN SMALL LETTER M, COMBINING GRAVE ACCENT>
+006D 0340 ; [.1A6E.001F.0002] # <LATIN SMALL LETTER M, COMBINING GRAVE TONE MARK>
+004D 0300 ; [.1A6E.001F.0008] # <LATIN CAPITAL LETTER M, COMBINING GRAVE ACCENT>
+004D 0340 ; [.1A6E.001F.0008] # <LATIN CAPITAL LETTER M, COMBINING GRAVE TONE MARK>
+006E 0304 ; [.1A7D.001C.0002] # <LATIN SMALL LETTER N, COMBINING MACRON>
+004E 0304 ; [.1A7D.001C.0008] # <LATIN CAPITAL LETTER N, COMBINING MACRON>
+0144      ; [.1A7D.001D.0002] # LATIN SMALL LETTER N WITH ACUTE
+006E 0301 ; [.1A7D.001D.0002] # LATIN SMALL LETTER N WITH ACUTE
+006E 0341 ; [.1A7D.001D.0002] # LATIN SMALL LETTER N WITH ACUTE
+0143      ; [.1A7D.001D.0008] # LATIN CAPITAL LETTER N WITH ACUTE
+004E 0301 ; [.1A7D.001D.0008] # LATIN CAPITAL LETTER N WITH ACUTE
+004E 0341 ; [.1A7D.001D.0008] # LATIN CAPITAL LETTER N WITH ACUTE
+0148      ; [.1A7D.001E.0002] # LATIN SMALL LETTER N WITH CARON
+006E 030C ; [.1A7D.001E.0002] # LATIN SMALL LETTER N WITH CARON
+0147      ; [.1A7D.001E.0008] # LATIN CAPITAL LETTER N WITH CARON
+004E 030C ; [.1A7D.001E.0008] # LATIN CAPITAL LETTER N WITH CARON
+01F9      ; [.1A7D.001F.0002] # LATIN SMALL LETTER N WITH GRAVE
+006E 0300 ; [.1A7D.001F.0002] # LATIN SMALL LETTER N WITH GRAVE
+006E 0340 ; [.1A7D.001F.0002] # LATIN SMALL LETTER N WITH GRAVE
+01F8      ; [.1A7D.001F.0008] # LATIN CAPITAL LETTER N WITH GRAVE
+004E 0300 ; [.1A7D.001F.0008] # LATIN CAPITAL LETTER N WITH GRAVE
+004E 0340 ; [.1A7D.001F.0008] # LATIN CAPITAL LETTER N WITH GRAVE
+014D      ; [.1AA1.001C.0002] # LATIN SMALL LETTER O WITH MACRON
+006F 0304 ; [.1AA1.001C.0002] # LATIN SMALL LETTER O WITH MACRON
+014C      ; [.1AA1.001C.0008] # LATIN CAPITAL LETTER O WITH MACRON
+004F 0304 ; [.1AA1.001C.0008] # LATIN CAPITAL LETTER O WITH MACRON
+00F3      ; [.1AA1.001D.0002] # LATIN SMALL LETTER O WITH ACUTE
+006F 0301 ; [.1AA1.001D.0002] # LATIN SMALL LETTER O WITH ACUTE
+006F 0341 ; [.1AA1.001D.0002] # LATIN SMALL LETTER O WITH ACUTE
+00D3      ; [.1AA1.001D.0008] # LATIN CAPITAL LETTER O WITH ACUTE
+004F 0301 ; [.1AA1.001D.0008] # LATIN CAPITAL LETTER O WITH ACUTE
+004F 0341 ; [.1AA1.001D.0008] # LATIN CAPITAL LETTER O WITH ACUTE
+01D2      ; [.1AA1.001E.0002] # LATIN SMALL LETTER O WITH CARON
+006F 030C ; [.1AA1.001E.0002] # LATIN SMALL LETTER O WITH CARON
+01D1      ; [.1AA1.001E.0008] # LATIN CAPITAL LETTER O WITH CARON
+004F 030C ; [.1AA1.001E.0008] # LATIN CAPITAL LETTER O WITH CARON
+00F2      ; [.1AA1.001F.0002] # LATIN SMALL LETTER O WITH GRAVE
+006F 0300 ; [.1AA1.001F.0002] # LATIN SMALL LETTER O WITH GRAVE
+006F 0340 ; [.1AA1.001F.0002] # LATIN SMALL LETTER O WITH GRAVE
+00D2      ; [.1AA1.001F.0008] # LATIN CAPITAL LETTER O WITH GRAVE
+004F 0300 ; [.1AA1.001F.0008] # LATIN CAPITAL LETTER O WITH GRAVE
+004F 0340 ; [.1AA1.001F.0008] # LATIN CAPITAL LETTER O WITH GRAVE
+016B      ; [.1B77.001C.0002] # LATIN SMALL LETTER U WITH MACRON
+0075 0304 ; [.1B77.001C.0002] # LATIN SMALL LETTER U WITH MACRON
+016A      ; [.1B77.001C.0008] # LATIN CAPITAL LETTER U WITH MACRON
+0055 0304 ; [.1B77.001C.0008] # LATIN CAPITAL LETTER U WITH MACRON
+00FA      ; [.1B77.001D.0002] # LATIN SMALL LETTER U WITH ACUTE
+0075 0301 ; [.1B77.001D.0002] # LATIN SMALL LETTER U WITH ACUTE
+0075 0341 ; [.1B77.001D.0002] # LATIN SMALL LETTER U WITH ACUTE
+00DA      ; [.1B77.001D.0008] # LATIN CAPITAL LETTER U WITH ACUTE
+0055 0301 ; [.1B77.001D.0008] # LATIN CAPITAL LETTER U WITH ACUTE
+0055 0341 ; [.1B77.001D.0008] # LATIN CAPITAL LETTER U WITH ACUTE
+01D4      ; [.1B77.001E.0002] # LATIN SMALL LETTER U WITH CARON
+0075 030C ; [.1B77.001E.0002] # LATIN SMALL LETTER U WITH CARON
+01D3      ; [.1B77.001E.0008] # LATIN CAPITAL LETTER U WITH CARON
+0055 030C ; [.1B77.001E.0008] # LATIN CAPITAL LETTER U WITH CARON
+00F9      ; [.1B77.001F.0002] # LATIN SMALL LETTER U WITH GRAVE
+0075 0300 ; [.1B77.001F.0002] # LATIN SMALL LETTER U WITH GRAVE
+0075 0340 ; [.1B77.001F.0002] # LATIN SMALL LETTER U WITH GRAVE
+00D9      ; [.1B77.001F.0008] # LATIN CAPITAL LETTER U WITH GRAVE
+0055 0300 ; [.1B77.001F.0008] # LATIN CAPITAL LETTER U WITH GRAVE
+0055 0340 ; [.1B77.001F.0008] # LATIN CAPITAL LETTER U WITH GRAVE
+01D6      ; [.1B77.0021.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND MACRON
+0075 0308 0304 ; [.1B77.0021.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND MACRON
+01D5      ; [.1B77.0021.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS AND MACRON
+0055 0308 0304 ; [.1B77.0021.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS AND MACRON
+00FC 0304 ; [.1B77.0021.0002] # <LATIN SMALL LETTER U WITH DIAERESIS, COMBINING MACRON>
+00DC 0304 ; [.1B77.0021.0008] # <LATIN CAPITAL LETTER U WITH DIAERESIS, COMBINING MACRON>
+01D8      ; [.1B77.0022.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND ACUTE
+0075 0308 0301 ; [.1B77.0022.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND ACUTE
+0075 0308 0341 ; [.1B77.0022.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND ACUTE
+01D7      ; [.1B77.0022.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS AND ACUTE
+0055 0308 0301 ; [.1B77.0022.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS AND ACUTE
+0055 0308 0341 ; [.1B77.0022.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS AND ACUTE
+00FC 0301 ; [.1B77.0022.0002] # <LATIN SMALL LETTER U WITH DIAERESIS, COMBINING ACUTE ACCENT>
+00FC 0341 ; [.1B77.0022.0002] # <LATIN SMALL LETTER U WITH DIAERESIS, COMBINING ACUTE TONE MARK>
+00DC 0301 ; [.1B77.0022.0008] # <LATIN CAPITAL LETTER U WITH DIAERESIS, COMBINING ACUTE ACCENT>
+00DC 0341 ; [.1B77.0022.0008] # <LATIN CAPITAL LETTER U WITH DIAERESIS, COMBINING ACUTE TONE MARK>
+01DA      ; [.1B77.0023.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND CARON
+0075 0308 030C ; [.1B77.0023.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND CARON
+01D9      ; [.1B77.0023.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS AND CARON
+0055 0308 030C ; [.1B77.0023.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS AND CARON
+00FC 030C ; [.1B77.0023.0002] # <LATIN SMALL LETTER U WITH DIAERESIS, COMBINING CARON>
+00DC 030C ; [.1B77.0023.0008] # <LATIN CAPITAL LETTER U WITH DIAERESIS, COMBINING CARON>
+01DC      ; [.1B77.0024.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND GRAVE
+0075 0308 0300 ; [.1B77.0024.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND GRAVE
+0075 0308 0340 ; [.1B77.0024.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND GRAVE
+01DB      ; [.1B77.0024.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS AND GRAVE
+0055 0308 0300 ; [.1B77.0024.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS AND GRAVE
+0055 0308 0340 ; [.1B77.0024.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS AND GRAVE
+00FC 0300 ; [.1B77.0024.0002] # <LATIN SMALL LETTER U WITH DIAERESIS, COMBINING GRAVE ACCENT>
+00FC 0340 ; [.1B77.0024.0002] # <LATIN SMALL LETTER U WITH DIAERESIS, COMBINING GRAVE TONE MARK>
+00DC 0300 ; [.1B77.0024.0008] # <LATIN CAPITAL LETTER U WITH DIAERESIS, COMBINING GRAVE ACCENT>
+00DC 0340 ; [.1B77.0024.0008] # <LATIN CAPITAL LETTER U WITH DIAERESIS, COMBINING GRAVE TONE MARK>
+00FC      ; [.1B77.0025.0002] # LATIN SMALL LETTER U WITH DIAERESIS
+0075 0308 ; [.1B77.0025.0002] # LATIN SMALL LETTER U WITH DIAERESIS
+00DC      ; [.1B77.0025.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS
+0055 0308 ; [.1B77.0025.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS
+F967      ; [.804A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F967
+FA70      ; [.82DE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA70
+F905      ; [.81CB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F905
+2F801     ; [.8022.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F801
+F95E      ; [.804D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F95E
+F91B      ; [.8B74.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F91B
+F9BA      ; [.800F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9BA
+F977      ; [.845B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F977
+F9FD      ; [.8057.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9FD
+F9A8      ; [.80B5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9A8
+2F804     ; [.81E1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F804
+FA73      ; [.96AF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA73
+F92D      ; [.82EE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F92D
+F9B5      ; [.82ED.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9B5
+FA30      ; [.846A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA30
+2F805     ; [.846A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F805
+2F806     ; [.981A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F806
+F965      ; [.845F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F965
+F9D4      ; [.8607.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9D4
+2F808     ; [.87B2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F808
+2F809     ; [.89A0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F809
+2F80B     ; [.8D3B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F80B
+F9BB      ; [.8D39.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9BB
+FA31      ; [.8D34.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA31
+2F80A     ; [.8D34.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F80A
+FA0C      ; [.802A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA0C
+FA74      ; [.80B8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA74
+FA32      ; [.81EB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA32
+2F80E     ; [.81EB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F80E
+2F80F     ; [.82FA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F80F
+2F814     ; [.8061.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F814
+FA72      ; [.8142.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA72
+F978      ; [.82FD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F978
+F9D1      ; [.8062.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9D1
+2F811     ; [.82FE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F811
+FA75      ; [.9045.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA75
+2F815     ; [.8144.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F815
+2F8D2     ; [.8473.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8D2
+2F8D3     ; [.87C6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8D3
+2F817     ; [.8065.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F817
+2F818     ; [.860A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F818
+2F81A     ; [.80BC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F81A
+F92E      ; [.81EE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F92E
+F955      ; [.860E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F955
+F954      ; [.8EC0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F954
+FA15      ; [.A8BA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA15
+2F81D     ; [.9524.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F81D
+2F81E     ; [.802B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F81E
+FA00      ; [.8068.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA00
+2F850     ; [.8068.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F850
+F99C      ; [.8146.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F99C
+F9DD      ; [.81F1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9DD
+F9FF      ; [.8306.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9FF
+2F820     ; [.8303.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F820
+2F821     ; [.96CC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F821
+2F822     ; [.89A8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F822
+2F823     ; [.8B81.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F823
+F9C7      ; [.8EC3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9C7
+F98A      ; [.8018.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F98A
+F99D      ; [.814B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F99D
+FA76      ; [.847D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA76
+2F825     ; [.847D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F825
+FA33      ; [.847E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA33
+2F826     ; [.847E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F826
+F952      ; [.87CA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F952
+F92F      ; [.89AC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F92F
+FA34      ; [.8B85.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA34
+2F827     ; [.8B85.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F827
+F97F      ; [.916E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F97F
+FA77      ; [.802C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA77
+2F828     ; [.802C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F828
+2F829     ; [.80C3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F829
+2F82A     ; [.80C4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F82A
+F963      ; [.80C5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F963
+2F82B     ; [.80C5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F82B
+F9EB      ; [.87D1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9EB
+2F82C     ; [.80C9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F82C
+FA35      ; [.8310.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA35
+2F82D     ; [.8310.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F82D
+2F82E     ; [.89AF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F82E
+2F82F     ; [.81F9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F82F
+F91C      ; [.81FA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F91C
+2F831     ; [.8617.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F831
+2F832     ; [.8617.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F832
+2F833     ; [.8617.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F833
+F96B      ; [.87D4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F96B
+2F836     ; [.8075.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F836
+2F837     ; [.861A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F837
+F906      ; [.80DF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F906
+2F839     ; [.80D9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F839
+2F83A     ; [.80DD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F83A
+2F83B     ; [.815E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F83B
+F9DE      ; [.8152.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9DE
+F9ED      ; [.81FB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9ED
+2F83D     ; [.820C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F83D
+F980      ; [.8206.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F980
+2F83E     ; [.8205.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F83E
+2F83F     ; [.832A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F83F
+2F840     ; [.983D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F840
+F99E      ; [.8490.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F99E
+2F842     ; [.861C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F842
+FA79      ; [.87E1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA79
+2F844     ; [.87E8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F844
+2F845     ; [.8AD1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F845
+2F846     ; [.8AD1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F846
+F90B      ; [.89BC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F90B
+FA7A      ; [.89CB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA7A
+2F847     ; [.89CB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F847
+FA36      ; [.89B6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA36
+FA78      ; [.89B6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA78
+2F848     ; [.89CA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F848
+2F849     ; [.89BF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F849
+FA0D      ; [.A137.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA0D
+2F84A     ; [.A146.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F84A
+FA7B      ; [.A140.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA7B
+FA37      ; [.8D4C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA37
+2F84C     ; [.8D4C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F84C
+FA38      ; [.9052.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA38
+2F84F     ; [.8ED2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F84F
+F9A9      ; [.96EA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9A9
+2F84B     ; [.8D57.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F84B
+2F855     ; [.849E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F855
+2F852     ; [.84A2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F852
+2F853     ; [.9C30.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F853
+2F854     ; [.9C49.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F854
+2F857     ; [.89D2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F857
+2F856     ; [.9A14.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F856
+FA10      ; [.8BA0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA10
+FA7C      ; [.8BA0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA7C
+F96C      ; [.8B9C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F96C
+FA3A      ; [.903E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA3A
+2F858     ; [.A65C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F858
+FA7D      ; [.8ED9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA7D
+F94A      ; [.9282.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F94A
+F942      ; [.932E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F942
+2F85C     ; [.960C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F85C
+2F85D     ; [.816B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F85D
+2F85E     ; [.8D62.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F85E
+FA7E      ; [.833B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA7E
+F90C      ; [.833A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F90C
+F909      ; [.84A6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F909
+FA7F      ; [.833C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA7F
+2F85F     ; [.87FB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F85F
+F981      ; [.8034.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F981
+2F865     ; [.84AB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F865
+2F862     ; [.8641.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F862
+2F863     ; [.863F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F863
+FA80      ; [.8803.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA80
+2F866     ; [.87FF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F866
+2F986     ; [.A15F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F986
+2F869     ; [.8EE4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F869
+FA81      ; [.A8D9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA81
+2F86A     ; [.AE41.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F86A
+2F86B     ; [.AE41.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F86B
+FA04      ; [.8179.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA04
+2F86E     ; [.A16E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F86E
+F95F      ; [.8D6F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F95F
+F9AA      ; [.8D6F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9AA
+2F86F     ; [.8D6F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F86F
+F9BC      ; [.8EE5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9BC
+2F875     ; [.803A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F875
+F9BD      ; [.823D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9BD
+2F877     ; [.8811.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F877
+F94B      ; [.8D78.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F94B
+FA3B      ; [.8EE9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA3B
+F9DF      ; [.8EEA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9DF
+FA3C      ; [.952C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA3C
+2F878     ; [.952C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F878
+2F87A     ; [.961C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F87A
+F9D5      ; [.881D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9D5
+2F87C     ; [.9ECC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F87C
+F921      ; [.89E9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F921
+2F87F     ; [.9ECD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F87F
+2F880     ; [.A424.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F880
+2F9F4     ; [.A8E7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9F4
+F9AB      ; [.9180.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9AB
+2F881     ; [.82D0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F881
+2F882     ; [.8821.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F882
+2F884     ; [.89EC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F884
+2F885     ; [.9A3D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F885
+2F886     ; [.89EE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F886
+2F887     ; [.A67A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F887
+F98E      ; [.8181.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F98E
+FA01      ; [.84C9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA01
+2F88B     ; [.9885.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F88B
+2F88C     ; [.9C88.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F88C
+2F88D     ; [.8828.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F88D
+F9A2      ; [.8BB7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9A2
+F928      ; [.89F2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F928
+2F88E     ; [.89F2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F88E
+FA82      ; [.A432.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA82
+FA0B      ; [.8D80.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA0B
+FA83      ; [.A431.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA83
+F982      ; [.9332.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F982
+2F890     ; [.8044.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F890
+F943      ; [.8249.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F943
+2F894     ; [.9729.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F894
+2F895     ; [.9729.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F895
+2F899     ; [.824C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F899
+FA84      ; [.882F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA84
+2F89A     ; [.8830.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F89A
+F9D8      ; [.84D1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9D8
+F966      ; [.89F8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F966
+FA85      ; [.A189.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA85
+2F89D     ; [.8252.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F89D
+2F89E     ; [.8251.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F89E
+F9A3      ; [.8378.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9A3
+F960      ; [.84D5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F960
+F9AC      ; [.9746.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9AC
+2F8A0     ; [.9A4D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8A0
+FA3D      ; [.8675.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA3D
+2F8A3     ; [.8675.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8A3
+2F8A5     ; [.884C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8A5
+FA86      ; [.8846.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA86
+F9B9      ; [.89FC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9B9
+FA88      ; [.8BC5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA88
+F9D9      ; [.8BC8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9D9
+2F8A6     ; [.8BBF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8A6
+2F8A7     ; [.8BC7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8A7
+2F8A9     ; [.8BC7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8A9
+FA87      ; [.8BC6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA87
+2F8A8     ; [.8BC6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8A8
+FA3E      ; [.8A07.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA3E
+2F8AA     ; [.A445.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8AA
+FA3F      ; [.8F07.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA3F
+FA89      ; [.8F07.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA89
+2F8AB     ; [.8F07.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8AB
+F98F      ; [.8F05.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F98F
+2F8AD     ; [.8F0A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8AD
+2F8AE     ; [.A68D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8AE
+2F8AC     ; [.9064.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8AC
+2F8AF     ; [.AB1C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8AF
+FA40      ; [.9333.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA40
+FA8B      ; [.9333.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA8B
+2F8B0     ; [.9333.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8B0
+F90D      ; [.9335.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F90D
+2F8B1     ; [.9335.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8B1
+F990      ; [.94AE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F990
+2F8B2     ; [.8189.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8B2
+2F8B3     ; [.884E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8B3
+F9D2      ; [.8F0D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9D2
+FA8C      ; [.918C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA8C
+2F8B5     ; [.83A2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8B5
+F925      ; [.838C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F925
+F95B      ; [.98A4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F95B
+FA02      ; [.8395.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA02
+2F8B6     ; [.8396.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8B6
+2F8BA     ; [.84E9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8BA
+F973      ; [.84F3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F973
+2F8B9     ; [.8687.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8B9
+2F8B7     ; [.8686.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8B7
+2F8BB     ; [.886B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8BB
+F9A4      ; [.8869.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9A4
+2F8BC     ; [.885D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8BC
+F975      ; [.8850.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F975
+2F8C1     ; [.885B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8C1
+FA8D      ; [.9F18.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA8D
+2F8C0     ; [.A19C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8C0
+2F8BD     ; [.9A60.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8BD
+FA8E      ; [.8BDA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA8E
+2F8BF     ; [.A1AB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8BF
+FA8F      ; [.8A23.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA8F
+2F8C3     ; [.8F0E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8C3
+2F8C6     ; [.A469.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8C6
+F991      ; [.8F1E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F991
+2F8C5     ; [.9F0B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8C5
+F930      ; [.9074.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F930
+FA41      ; [.8873.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA41
+2F8C8     ; [.8873.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8C8
+FA90      ; [.886E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA90
+2F8C9     ; [.8BE1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8C9
+F969      ; [.8F25.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F969
+F9BE      ; [.868F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9BE
+F983      ; [.8691.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F983
+FA42      ; [.84FB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA42
+F9E0      ; [.83AE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E0
+2F8CD     ; [.8693.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8CD
+FA12      ; [.8A2F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA12
+FA91      ; [.8A2F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA91
+F9C5      ; [.8BE7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9C5
+FA43      ; [.8A32.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA43
+2F8CF     ; [.8A32.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8CF
+FA06      ; [.8F28.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA06
+F98B      ; [.907D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F98B
+F901      ; [.8271.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F901
+2F8CC     ; [.869A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8CC
+2F8D4     ; [.89A6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8D4
+F929      ; [.869D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F929
+FA92      ; [.869D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA92
+2F8D8     ; [.869D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8D8
+FA93      ; [.8886.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA93
+2F8D9     ; [.8886.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8D9
+2F8DA     ; [.A2D8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8DA
+F9E1      ; [.8273.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E1
+2F8DC     ; [.827D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8DC
+FA94      ; [.8278.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA94
+2F8DB     ; [.8279.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8DB
+F9C8      ; [.976E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9C8
+2F8E0     ; [.9769.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8E0
+F9F4      ; [.83C3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9F4
+F9C9      ; [.8519.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9C9
+2F8DF     ; [.98ED.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8DF
+F9DA      ; [.86A8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9DA
+2F8E5     ; [.9A80.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8E5
+F97A      ; [.8887.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F97A
+FA44      ; [.8896.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA44
+2F8E2     ; [.8896.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8E2
+F9E2      ; [.8899.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E2
+2F8E6     ; [.9F53.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8E6
+2F8E8     ; [.A1D6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8E8
+2F8E9     ; [.8DB6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8E9
+F914      ; [.8F35.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F914
+F95C      ; [.8F35.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F95C
+F9BF      ; [.8F35.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9BF
+F94C      ; [.8F32.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F94C
+2F8EB     ; [.AB36.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8EB
+F931      ; [.933E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F931
+2F8ED     ; [.91A0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8ED
+F91D      ; [.942D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F91D
+2F8EF     ; [.8199.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8EF
+2F8F1     ; [.A93D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8F1
+2F8F3     ; [.8C01.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8F3
+F98C      ; [.9093.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F98C
+FA95      ; [.8096.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA95
+2F8F4     ; [.A49C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8F4
+F9A5      ; [.91A7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9A5
+F970      ; [.889E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F970
+FA96      ; [.889E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA96
+2F8F5     ; [.889E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8F5
+2F8FA     ; [.81A7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8FA
+2F8FE     ; [.9667.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8FE
+F972      ; [.8285.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F972
+2F8FC     ; [.83EC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8FC
+F968      ; [.83DA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F968
+2F8FD     ; [.979E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8FD
+F9E3      ; [.83DB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E3
+2F8FF     ; [.9ACA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8FF
+F915      ; [.8534.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F915
+FA05      ; [.852E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA05
+2F907     ; [.98FD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F907
+2F900     ; [.8532.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F900
+F9CA      ; [.852A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9CA
+FA97      ; [.852A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA97
+2F902     ; [.852A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F902
+2F903     ; [.86CD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F903
+F92A      ; [.86BF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F92A
+FA45      ; [.86C5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA45
+2F901     ; [.86C5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F901
+2F904     ; [.86C4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F904
+2F905     ; [.86D1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F905
+F9F5      ; [.88AE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9F5
+F94D      ; [.88BB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F94D
+F9D6      ; [.88BE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9D6
+2F90E     ; [.88B3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F90E
+FA46      ; [.88B9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA46
+2F908     ; [.8A5B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F908
+2F909     ; [.8A6A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F909
+F9CB      ; [.8C16.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9CB
+F9EC      ; [.8C12.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9EC
+2F90C     ; [.8C0D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F90C
+FA99      ; [.8A75.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA99
+2F90B     ; [.8A75.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F90B
+F904      ; [.8C14.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F904
+F94E      ; [.8DC3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F94E
+FA47      ; [.8DC5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA47
+FA9A      ; [.8DC5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA9A
+F992      ; [.8DCC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F992
+2F90F     ; [.8F48.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F90F
+2F912     ; [.A6E7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F912
+F922      ; [.91B0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F922
+F984      ; [.929E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F984
+2F915     ; [.933F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F915
+2F913     ; [.AFA4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F913
+2F917     ; [.B08F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F917
+2F835     ; [.81A8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F835
+2F918     ; [.829E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F918
+F9FB      ; [.83FA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9FB
+2F91A     ; [.8543.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F91A
+F99F      ; [.86D8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F99F
+F916      ; [.86D7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F916
+F993      ; [.8C20.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F993
+FA48      ; [.8A84.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA48
+FA9C      ; [.8A84.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA9C
+2F91E     ; [.A719.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F91E
+F9C0      ; [.90AA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9C0
+F9EE      ; [.90A5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9EE
+F932      ; [.93D5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F932
+F91E      ; [.9431.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F91E
+2F920     ; [.951C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F920
+FA9E      ; [.91C2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA9E
+2F921     ; [.91C2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F921
+F946      ; [.82A0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F946
+2F924     ; [.8A88.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F924
+2F925     ; [.A4DB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F925
+FA9F      ; [.810B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA9F
+F9FA      ; [.8401.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9FA
+F92B      ; [.86DC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F92B
+F9A7      ; [.92A8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9A7
+2F928     ; [.934B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F928
+F961      ; [.88D5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F961
+F9DB      ; [.88D5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9DB
+2F929     ; [.80A4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F929
+2F92B     ; [.840A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F92B
+F9AD      ; [.8551.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9AD
+F917      ; [.86E7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F917
+F9E4      ; [.88D9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E4
+F9CC      ; [.86E3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9CC
+FA4A      ; [.8A90.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA4A
+2F92F     ; [.8C3A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F92F
+F9AE      ; [.8F5B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9AE
+FAA1      ; [.A4E3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAA1
+2F930     ; [.A4E3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F930
+2F931     ; [.A72F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F931
+F994      ; [.A72A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F994
+F9EF      ; [.90B2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9EF
+2F932     ; [.934D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F932
+2F936     ; [.97C7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F936
+F9CD      ; [.86EC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9CD
+F976      ; [.88E1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F976
+F962      ; [.88E4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F962
+2F938     ; [.88E4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F938
+F9E5      ; [.8A9D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E5
+2F93A     ; [.A26E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F93A
+FAA4      ; [.A739.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAA4
+FAA5      ; [.8F63.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAA5
+F9C1      ; [.91CB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9C1
+F90E      ; [.9435.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F90E
+FA17      ; [.86F9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA17
+FAA6      ; [.86F9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAA6
+FAA7      ; [.88EE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAA7
+F933      ; [.90BB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F933
+FAA8      ; [.8412.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAA8
+2F940     ; [.8412.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F940
+F96D      ; [.8568.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F96D
+2F946     ; [.86FD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F946
+2F947     ; [.86FD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F947
+FAA9      ; [.9FEB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAA9
+2F948     ; [.9FEB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F948
+2F94A     ; [.8F6F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F94A
+FA9D      ; [.91D2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA9D
+2F94E     ; [.88F7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F94E
+F9CE      ; [.88F5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9CE
+F93B      ; [.8C59.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F93B
+2F94F     ; [.8C59.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F94F
+FA4B      ; [.8C5C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA4B
+F947      ; [.8F73.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F947
+FAAB      ; [.A74A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAAB
+2F950     ; [.A74A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F950
+F964      ; [.AB7A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F964
+F985      ; [.93DB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F985
+FA4C      ; [.8415.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA4C
+FA4E      ; [.8577.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA4E
+FA4D      ; [.8576.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA4D
+FA4F      ; [.870D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA4F
+FA50      ; [.8710.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA50
+2F953     ; [.8710.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F953
+FA51      ; [.8712.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA51
+FA19      ; [.8711.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA19
+FA1A      ; [.88F8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA1A
+F93C      ; [.8C60.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F93C
+FA52      ; [.8DFC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA52
+FA53      ; [.8DFA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA53
+FA1B      ; [.8DFB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA1B
+2F956     ; [.8DFB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F956
+F9B6      ; [.92B4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9B6
+2F957     ; [.9B31.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F957
+F956      ; [.8C64.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F956
+FA54      ; [.8F7A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA54
+2F959     ; [.8F7A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F959
+2F95A     ; [.A517.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F95A
+FA55      ; [.857F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA55
+FAAC      ; [.A9B0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAAC
+F9F7      ; [.8123.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9F7
+2F95F     ; [.A51F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F95F
+F9F8      ; [.88FE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9F8
+FA56      ; [.8C6D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA56
+FAAD      ; [.8C6D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAAD
+2F962     ; [.8F84.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F962
+2F963     ; [.90CE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F963
+F9A6      ; [.9358.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9A6
+F944      ; [.9486.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F944
+F9F9      ; [.8906.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9F9
+FA1D      ; [.8E10.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA1D
+2F966     ; [.A9C2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F966
+FA03      ; [.90D5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA03
+F97B      ; [.92C0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F97B
+2F968     ; [.ABA1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F968
+2F96A     ; [.8585.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F96A
+F9CF      ; [.8729.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9CF
+F96A      ; [.8727.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F96A
+F94F      ; [.8913.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F94F
+FAAF      ; [.8C79.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAAF
+2F96C     ; [.A019.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F96C
+F93D      ; [.8E16.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F93D
+F957      ; [.8E15.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F957
+2F96E     ; [.8E22.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F96E
+F996      ; [.8F8B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F996
+FA57      ; [.8F8B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA57
+FAB0      ; [.8F8B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAB0
+FA58      ; [.90DD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA58
+F950      ; [.91EE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F950
+FA59      ; [.91F5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA59
+2F970     ; [.91F4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F970
+FAB1      ; [.A028.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAB1
+FA5A      ; [.8C7D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA5A
+F9E6      ; [.90DF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E6
+2F976     ; [.A9DD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F976
+F90F      ; [.9363.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F90F
+2F978     ; [.9DAA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F978
+F9AF      ; [.8919.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9AF
+FA1E      ; [.81B1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA1E
+F934      ; [.81B2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F934
+FA5B      ; [.8421.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA5B
+FAB2      ; [.8421.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAB2
+2F97A     ; [.8421.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F97A
+F9B0      ; [.891F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9B0
+F997      ; [.9202.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F997
+2F97F     ; [.9201.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F97F
+F945      ; [.9488.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F945
+F953      ; [.81B9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F953
+2F8D6     ; [.97E3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8D6
+2F982     ; [.82B9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F982
+2F985     ; [.8ADE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F985
+F926      ; [.9368.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F926
+F9F6      ; [.920D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9F6
+FA5C      ; [.874A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA5C
+2F893     ; [.9B73.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F893
+2F98B     ; [.9B73.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F98B
+2F98C     ; [.A042.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F98C
+F97C      ; [.82BA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F97C
+2F990     ; [.82BC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F990
+2F98F     ; [.9698.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F98F
+2F991     ; [.8430.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F991
+2F993     ; [.8436.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F993
+2F994     ; [.842F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F994
+2F995     ; [.8433.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F995
+F974      ; [.85A7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F974
+2F998     ; [.85A7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F998
+2F996     ; [.85A5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F996
+F9FE      ; [.875F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9FE
+FAB3      ; [.8754.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAB3
+2F9A0     ; [.9B92.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9A0
+2F99D     ; [.8932.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F99D
+F93E      ; [.A062.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F93E
+2F9A1     ; [.8AF6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9A1
+2F9A2     ; [.8AF3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9A2
+2F9A3     ; [.8AFA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9A3
+2F99E     ; [.A04E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F99E
+FAB4      ; [.8AEC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAB4
+F958      ; [.8AED.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F958
+F918      ; [.8C93.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F918
+F96E      ; [.8C98.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F96E
+FA5F      ; [.8AEF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA5F
+2F99F     ; [.8AEF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F99F
+F999      ; [.8FA8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F999
+2F9A8     ; [.A2E5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9A8
+2F9A9     ; [.A7A9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9A9
+F9C2      ; [.A7AA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9C2
+2F9AA     ; [.A7AE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9AA
+2F9AC     ; [.A9FC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9AC
+F923      ; [.92D2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F923
+F9F0      ; [.93F0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9F0
+F935      ; [.93F1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F935
+F91F      ; [.943C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F91F
+F910      ; [.94BE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F910
+2F9B3     ; [.85B6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9B3
+F936      ; [.8CA3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F936
+2F9B4     ; [.8CA3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9B4
+2F9B5     ; [.921B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9B5
+2F9B6     ; [.AD63.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9B6
+2F9B7     ; [.876A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9B7
+2F9BA     ; [.A07B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9BA
+2F9B9     ; [.A327.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9B9
+2F9BC     ; [.A587.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9BC
+2F9BD     ; [.A588.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9BD
+FAB5      ; [.AA1E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAB5
+2F9BB     ; [.AA1E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9BB
+F911      ; [.9223.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F911
+2F9C0     ; [.A7C9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9C0
+2F9C1     ; [.AD77.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9C1
+F927      ; [.9441.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F927
+FA08      ; [.81C7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA08
+2F9C4     ; [.81C8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9C4
+F9A0      ; [.8B09.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9A0
+2F9C6     ; [.A08D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9C6
+2F9C7     ; [.A331.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9C7
+F9E8      ; [.8CB7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E8
+F912      ; [.8E56.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F912
+2F9C9     ; [.A5A9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9C9
+FA60      ; [.8FC1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA60
+FAB6      ; [.AC06.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAB6
+F924      ; [.93F7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F924
+FAB7      ; [.92DD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAB7
+FA0A      ; [.82BE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA0A
+FA61      ; [.8B0C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA61
+FAB8      ; [.8B0C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAB8
+2F9CF     ; [.8CC6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9CF
+F96F      ; [.8E63.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F96F
+F9A1      ; [.8E63.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9A1
+FAB9      ; [.8FD1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAB9
+FABB      ; [.8FCC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FABB
+F97D      ; [.8FC8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F97D
+F941      ; [.8FD3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F941
+FABE      ; [.910F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FABE
+2F9D0     ; [.910F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9D0
+FA22      ; [.8FCD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA22
+FABA      ; [.8FCD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FABA
+F95D      ; [.910B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F95D
+FABD      ; [.910B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FABD
+FA62      ; [.910C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA62
+FABC      ; [.910C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FABC
+FA63      ; [.92E1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA63
+FABF      ; [.92E1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FABF
+F9FC      ; [.937B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9FC
+F95A      ; [.948E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F95A
+FAC0      ; [.94C0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAC0
+2F9D1     ; [.94C0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9D1
+F900      ; [.877F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F900
+2F9D2     ; [.82C3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9D2
+2F9D4     ; [.8961.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9D4
+2F9D5     ; [.8B21.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9D5
+F948      ; [.8CDA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F948
+F903      ; [.8CD6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F903
+FA64      ; [.8E6D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA64
+FA65      ; [.9382.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA65
+FAC1      ; [.9382.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAC1
+2F9D6     ; [.94E5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9D6
+2F9D7     ; [.8784.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9D7
+2F9DB     ; [.9E2B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9DB
+2F9DA     ; [.8B2E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9DA
+F937      ; [.8CDF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F937
+2F9DC     ; [.A362.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9DC
+F902      ; [.82C9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F902
+2F9DE     ; [.8787.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9DE
+F998      ; [.8FF7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F998
+F9D7      ; [.8FF8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9D7
+FAC2      ; [.911F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAC2
+2F9DF     ; [.911F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9DF
+FA07      ; [.911D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA07
+F98D      ; [.B17B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F98D
+F971      ; [.82CB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F971
+F99A      ; [.896F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F99A
+FA25      ; [.8B3B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA25
+FA67      ; [.8B3B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA67
+FAC3      ; [.9126.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAC3
+F9C3      ; [.9127.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9C3
+F913      ; [.94C2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F913
+2F9E2     ; [.95D3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9E2
+F92C      ; [.85D2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F92C
+2F9E3     ; [.99C1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9E3
+FA26      ; [.897D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA26
+2F9E4     ; [.A380.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9E4
+2F9E6     ; [.A5E0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9E6
+F919      ; [.8CFE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F919
+FAC4      ; [.AC37.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAC4
+F9B7      ; [.9406.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9B7
+F9E9      ; [.82D8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E9
+F97E      ; [.8B44.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F97E
+F90A      ; [.844C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F90A
+F9B1      ; [.8D0B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9B1
+2F9E7     ; [.8D03.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9E7
+FAC5      ; [.A5E7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAC5
+2F9EA     ; [.8E92.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9EA
+2F9E8     ; [.A850.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9E8
+2F9E9     ; [.A84E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9E9
+F93F      ; [.9133.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F93F
+F99B      ; [.9255.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F99B
+2F9EB     ; [.AF08.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9EB
+2F9EC     ; [.B00B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9EC
+2F9EE     ; [.8B50.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9EE
+F986      ; [.9016.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F986
+2F9F0     ; [.AC62.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9F0
+F9C6      ; [.82DA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9C6
+F951      ; [.85DA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F951
+FA09      ; [.85DC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA09
+F959      ; [.8988.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F959
+F9D3      ; [.898A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9D3
+FAC6      ; [.9E5B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAC6
+F9DC      ; [.8B5A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9DC
+F9B8      ; [.9265.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9B8
+2F9F3     ; [.A10C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9F3
+F9EA      ; [.9304.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9EA
+FA68      ; [.93A2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA68
+FAC7      ; [.93A2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAC7
+F9B2      ; [.8D1D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9B2
+F949      ; [.8D1A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F949
+2F9F5     ; [.ADDE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9F5
+F938      ; [.9459.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F938
+F9B3      ; [.94E9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9B3
+FA1C      ; [.8D1E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA1C
+FAC8      ; [.8D1E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAC8
+FA69      ; [.945A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA69
+FACA      ; [.945A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FACA
+F9B4      ; [.8EA4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9B4
+2FA00     ; [.A87A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA00
+FA6A      ; [.914C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA6A
+FACC      ; [.914C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FACC
+F9D0      ; [.93A8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9D0
+2FA02     ; [.87AA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA02
+FA2A      ; [.8B6B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA2A
+FA2B      ; [.8D27.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA2B
+FA2C      ; [.9152.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA2C
+2FA04     ; [.AAB6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA04
+2FA05     ; [.AF33.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA05
+2FA06     ; [.A624.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA06
+F91A      ; [.9159.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F91A
+2FA07     ; [.AC8F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA07
+F987      ; [.951D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F987
+FACD      ; [.B044.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FACD
+2FA0A     ; [.B044.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA0A
+F939      ; [.9037.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F939
+2FA0B     ; [.B04C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA0B
+F9F2      ; [.94D0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9F2
+2FA0C     ; [.A8A7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA0C
+2FA0F     ; [.ACA6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA0F
+FA2D      ; [.9468.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA2D
+F93A      ; [.94F2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F93A
+F920      ; [.9520.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F920
+F940      ; [.899A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F940
+F988      ; [.93BB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F988
+F9F3      ; [.94D3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9F3
+2FA15     ; [.899C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA15
+F989      ; [.903D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F989
+2FA17     ; [.A116.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA17
+2FA1A     ; [.A8B3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA1A
+2FA1B     ; [.AE29.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA1B
+2FA1C     ; [.8EB5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA1C
+FAD8      ; [.B230.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAD8
+F9C4      ; [.9168.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9C4
+F907      ; [.9169.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F907
+F908      ; [.9169.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F908
+FACE      ; [.9169.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FACE
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/zh_gb.pl b/lib/5.24.1/Unicode/Collate/Locale/zh_gb.pl
new file mode 100644
index 00000000..4d092a1d
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/zh_gb.pl
@@ -0,0 +1,627 @@
+use Unicode::Collate::CJK::GB2312;
++{
+   locale_version => 1.14,
+   overrideCJK => \&Unicode::Collate::CJK::GB2312::weightGB2312,
+   entry => <<'ENTRY', # for DUCET v7.0.0
+0101      ; [.190C.001C.0002] # LATIN SMALL LETTER A WITH MACRON
+0061 0304 ; [.190C.001C.0002] # LATIN SMALL LETTER A WITH MACRON
+0100      ; [.190C.001C.0008] # LATIN CAPITAL LETTER A WITH MACRON
+0041 0304 ; [.190C.001C.0008] # LATIN CAPITAL LETTER A WITH MACRON
+00E1      ; [.190C.001D.0002] # LATIN SMALL LETTER A WITH ACUTE
+0061 0301 ; [.190C.001D.0002] # LATIN SMALL LETTER A WITH ACUTE
+0061 0341 ; [.190C.001D.0002] # LATIN SMALL LETTER A WITH ACUTE
+00C1      ; [.190C.001D.0008] # LATIN CAPITAL LETTER A WITH ACUTE
+0041 0301 ; [.190C.001D.0008] # LATIN CAPITAL LETTER A WITH ACUTE
+0041 0341 ; [.190C.001D.0008] # LATIN CAPITAL LETTER A WITH ACUTE
+01CE      ; [.190C.001E.0002] # LATIN SMALL LETTER A WITH CARON
+0061 030C ; [.190C.001E.0002] # LATIN SMALL LETTER A WITH CARON
+01CD      ; [.190C.001E.0008] # LATIN CAPITAL LETTER A WITH CARON
+0041 030C ; [.190C.001E.0008] # LATIN CAPITAL LETTER A WITH CARON
+00E0      ; [.190C.001F.0002] # LATIN SMALL LETTER A WITH GRAVE
+0061 0300 ; [.190C.001F.0002] # LATIN SMALL LETTER A WITH GRAVE
+0061 0340 ; [.190C.001F.0002] # LATIN SMALL LETTER A WITH GRAVE
+00C0      ; [.190C.001F.0008] # LATIN CAPITAL LETTER A WITH GRAVE
+0041 0300 ; [.190C.001F.0008] # LATIN CAPITAL LETTER A WITH GRAVE
+0041 0340 ; [.190C.001F.0008] # LATIN CAPITAL LETTER A WITH GRAVE
+0113      ; [.196E.001C.0002] # LATIN SMALL LETTER E WITH MACRON
+0065 0304 ; [.196E.001C.0002] # LATIN SMALL LETTER E WITH MACRON
+0112      ; [.196E.001C.0008] # LATIN CAPITAL LETTER E WITH MACRON
+0045 0304 ; [.196E.001C.0008] # LATIN CAPITAL LETTER E WITH MACRON
+00E9      ; [.196E.001D.0002] # LATIN SMALL LETTER E WITH ACUTE
+0065 0301 ; [.196E.001D.0002] # LATIN SMALL LETTER E WITH ACUTE
+0065 0341 ; [.196E.001D.0002] # LATIN SMALL LETTER E WITH ACUTE
+00C9      ; [.196E.001D.0008] # LATIN CAPITAL LETTER E WITH ACUTE
+0045 0301 ; [.196E.001D.0008] # LATIN CAPITAL LETTER E WITH ACUTE
+0045 0341 ; [.196E.001D.0008] # LATIN CAPITAL LETTER E WITH ACUTE
+011B      ; [.196E.001E.0002] # LATIN SMALL LETTER E WITH CARON
+0065 030C ; [.196E.001E.0002] # LATIN SMALL LETTER E WITH CARON
+011A      ; [.196E.001E.0008] # LATIN CAPITAL LETTER E WITH CARON
+0045 030C ; [.196E.001E.0008] # LATIN CAPITAL LETTER E WITH CARON
+00E8      ; [.196E.001F.0002] # LATIN SMALL LETTER E WITH GRAVE
+0065 0300 ; [.196E.001F.0002] # LATIN SMALL LETTER E WITH GRAVE
+0065 0340 ; [.196E.001F.0002] # LATIN SMALL LETTER E WITH GRAVE
+00C8      ; [.196E.001F.0008] # LATIN CAPITAL LETTER E WITH GRAVE
+0045 0300 ; [.196E.001F.0008] # LATIN CAPITAL LETTER E WITH GRAVE
+0045 0340 ; [.196E.001F.0008] # LATIN CAPITAL LETTER E WITH GRAVE
+00EA 0304 ; [.196E.0021.0002] # <LATIN SMALL LETTER E WITH CIRCUMFLEX, COMBINING MACRON>
+00CA 0304 ; [.196E.0021.0008] # <LATIN CAPITAL LETTER E WITH CIRCUMFLEX, COMBINING MACRON>
+0065 0302 0304 ; [.196E.0021.0002] # <LATIN SMALL LETTER E, COMBINING CIRCUMFLEX ACCENT, COMBINING MACRON>
+0045 0302 0304 ; [.196E.0021.0008] # <LATIN CAPITAL LETTER E, COMBINING CIRCUMFLEX ACCENT, COMBINING MACRON>
+1EBF      ; [.196E.0022.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND ACUTE
+0065 0302 0301 ; [.196E.0022.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND ACUTE
+0065 0302 0341 ; [.196E.0022.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND ACUTE
+1EBE      ; [.196E.0022.0008] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND ACUTE
+0045 0302 0301 ; [.196E.0022.0008] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND ACUTE
+0045 0302 0341 ; [.196E.0022.0008] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND ACUTE
+00EA 0301 ; [.196E.0022.0002] # <LATIN SMALL LETTER E WITH CIRCUMFLEX, COMBINING ACUTE ACCENT>
+00EA 0341 ; [.196E.0022.0002] # <LATIN SMALL LETTER E WITH CIRCUMFLEX, COMBINING ACUTE TONE MARK>
+00CA 0301 ; [.196E.0022.0008] # <LATIN CAPITAL LETTER E WITH CIRCUMFLEX, COMBINING ACUTE ACCENT>
+00CA 0341 ; [.196E.0022.0008] # <LATIN CAPITAL LETTER E WITH CIRCUMFLEX, COMBINING ACUTE TONE MARK>
+00EA 030C ; [.196E.0023.0002] # <LATIN SMALL LETTER E WITH CIRCUMFLEX, COMBINING CARON>
+00CA 030C ; [.196E.0023.0008] # <LATIN CAPITAL LETTER E WITH CIRCUMFLEX, COMBINING CARON>
+0065 0302 030C ; [.196E.0023.0002] # <LATIN SMALL LETTER E, COMBINING CIRCUMFLEX ACCENT, COMBINING CARON>
+0045 0302 030C ; [.196E.0023.0008] # <LATIN CAPITAL LETTER E, COMBINING CIRCUMFLEX ACCENT, COMBINING CARON>
+1EC1      ; [.196E.0024.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND GRAVE
+0065 0302 0300 ; [.196E.0024.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND GRAVE
+0065 0302 0340 ; [.196E.0024.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND GRAVE
+1EC0      ; [.196E.0024.0008] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND GRAVE
+0045 0302 0300 ; [.196E.0024.0008] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND GRAVE
+0045 0302 0340 ; [.196E.0024.0008] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND GRAVE
+00EA 0300 ; [.196E.0024.0002] # <LATIN SMALL LETTER E WITH CIRCUMFLEX, COMBINING GRAVE ACCENT>
+00EA 0340 ; [.196E.0024.0002] # <LATIN SMALL LETTER E WITH CIRCUMFLEX, COMBINING GRAVE TONE MARK>
+00CA 0300 ; [.196E.0024.0008] # <LATIN CAPITAL LETTER E WITH CIRCUMFLEX, COMBINING GRAVE ACCENT>
+00CA 0340 ; [.196E.0024.0008] # <LATIN CAPITAL LETTER E WITH CIRCUMFLEX, COMBINING GRAVE TONE MARK>
+00EA      ; [.196E.0025.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX
+0065 0302 ; [.196E.0025.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX
+00CA      ; [.196E.0025.0008] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX
+0045 0302 ; [.196E.0025.0008] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX
+1EC5      ; [.196E.0025.0002][.0000.002D.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND TILDE
+1EC4      ; [.196E.0025.0008][.0000.002D.0002] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND TILDE
+1EC3      ; [.196E.0025.0002][.0000.003B.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND HOOK ABOVE
+1EC2      ; [.196E.0025.0008][.0000.003B.0002] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND HOOK ABOVE
+1EC7      ; [.196E.0025.0002][.0000.0042.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND DOT BELOW
+1EC6      ; [.196E.0025.0008][.0000.0042.0002] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND DOT BELOW
+012B      ; [.19F6.001C.0002] # LATIN SMALL LETTER I WITH MACRON
+0069 0304 ; [.19F6.001C.0002] # LATIN SMALL LETTER I WITH MACRON
+012A      ; [.19F6.001C.0008] # LATIN CAPITAL LETTER I WITH MACRON
+0049 0304 ; [.19F6.001C.0008] # LATIN CAPITAL LETTER I WITH MACRON
+00ED      ; [.19F6.001D.0002] # LATIN SMALL LETTER I WITH ACUTE
+0069 0301 ; [.19F6.001D.0002] # LATIN SMALL LETTER I WITH ACUTE
+0069 0341 ; [.19F6.001D.0002] # LATIN SMALL LETTER I WITH ACUTE
+00CD      ; [.19F6.001D.0008] # LATIN CAPITAL LETTER I WITH ACUTE
+0049 0301 ; [.19F6.001D.0008] # LATIN CAPITAL LETTER I WITH ACUTE
+0049 0341 ; [.19F6.001D.0008] # LATIN CAPITAL LETTER I WITH ACUTE
+01D0      ; [.19F6.001E.0002] # LATIN SMALL LETTER I WITH CARON
+0069 030C ; [.19F6.001E.0002] # LATIN SMALL LETTER I WITH CARON
+01CF      ; [.19F6.001E.0008] # LATIN CAPITAL LETTER I WITH CARON
+0049 030C ; [.19F6.001E.0008] # LATIN CAPITAL LETTER I WITH CARON
+00EC      ; [.19F6.001F.0002] # LATIN SMALL LETTER I WITH GRAVE
+0069 0300 ; [.19F6.001F.0002] # LATIN SMALL LETTER I WITH GRAVE
+0069 0340 ; [.19F6.001F.0002] # LATIN SMALL LETTER I WITH GRAVE
+00CC      ; [.19F6.001F.0008] # LATIN CAPITAL LETTER I WITH GRAVE
+0049 0300 ; [.19F6.001F.0008] # LATIN CAPITAL LETTER I WITH GRAVE
+0049 0340 ; [.19F6.001F.0008] # LATIN CAPITAL LETTER I WITH GRAVE
+006D 0304 ; [.1A6E.001C.0002] # <LATIN SMALL LETTER M, COMBINING MACRON>
+004D 0304 ; [.1A6E.001C.0008] # <LATIN CAPITAL LETTER M, COMBINING MACRON>
+1E3F      ; [.1A6E.001D.0002] # LATIN SMALL LETTER M WITH ACUTE
+006D 0301 ; [.1A6E.001D.0002] # LATIN SMALL LETTER M WITH ACUTE
+006D 0341 ; [.1A6E.001D.0002] # LATIN SMALL LETTER M WITH ACUTE
+1E3E      ; [.1A6E.001D.0008] # LATIN CAPITAL LETTER M WITH ACUTE
+004D 0301 ; [.1A6E.001D.0008] # LATIN CAPITAL LETTER M WITH ACUTE
+004D 0341 ; [.1A6E.001D.0008] # LATIN CAPITAL LETTER M WITH ACUTE
+006D 030C ; [.1A6E.001E.0002] # <LATIN SMALL LETTER M, COMBINING CARON>
+004D 030C ; [.1A6E.001E.0008] # <LATIN CAPITAL LETTER M, COMBINING CARON>
+006D 0300 ; [.1A6E.001F.0002] # <LATIN SMALL LETTER M, COMBINING GRAVE ACCENT>
+006D 0340 ; [.1A6E.001F.0002] # <LATIN SMALL LETTER M, COMBINING GRAVE TONE MARK>
+004D 0300 ; [.1A6E.001F.0008] # <LATIN CAPITAL LETTER M, COMBINING GRAVE ACCENT>
+004D 0340 ; [.1A6E.001F.0008] # <LATIN CAPITAL LETTER M, COMBINING GRAVE TONE MARK>
+006E 0304 ; [.1A7D.001C.0002] # <LATIN SMALL LETTER N, COMBINING MACRON>
+004E 0304 ; [.1A7D.001C.0008] # <LATIN CAPITAL LETTER N, COMBINING MACRON>
+0144      ; [.1A7D.001D.0002] # LATIN SMALL LETTER N WITH ACUTE
+006E 0301 ; [.1A7D.001D.0002] # LATIN SMALL LETTER N WITH ACUTE
+006E 0341 ; [.1A7D.001D.0002] # LATIN SMALL LETTER N WITH ACUTE
+0143      ; [.1A7D.001D.0008] # LATIN CAPITAL LETTER N WITH ACUTE
+004E 0301 ; [.1A7D.001D.0008] # LATIN CAPITAL LETTER N WITH ACUTE
+004E 0341 ; [.1A7D.001D.0008] # LATIN CAPITAL LETTER N WITH ACUTE
+0148      ; [.1A7D.001E.0002] # LATIN SMALL LETTER N WITH CARON
+006E 030C ; [.1A7D.001E.0002] # LATIN SMALL LETTER N WITH CARON
+0147      ; [.1A7D.001E.0008] # LATIN CAPITAL LETTER N WITH CARON
+004E 030C ; [.1A7D.001E.0008] # LATIN CAPITAL LETTER N WITH CARON
+01F9      ; [.1A7D.001F.0002] # LATIN SMALL LETTER N WITH GRAVE
+006E 0300 ; [.1A7D.001F.0002] # LATIN SMALL LETTER N WITH GRAVE
+006E 0340 ; [.1A7D.001F.0002] # LATIN SMALL LETTER N WITH GRAVE
+01F8      ; [.1A7D.001F.0008] # LATIN CAPITAL LETTER N WITH GRAVE
+004E 0300 ; [.1A7D.001F.0008] # LATIN CAPITAL LETTER N WITH GRAVE
+004E 0340 ; [.1A7D.001F.0008] # LATIN CAPITAL LETTER N WITH GRAVE
+014D      ; [.1AA1.001C.0002] # LATIN SMALL LETTER O WITH MACRON
+006F 0304 ; [.1AA1.001C.0002] # LATIN SMALL LETTER O WITH MACRON
+014C      ; [.1AA1.001C.0008] # LATIN CAPITAL LETTER O WITH MACRON
+004F 0304 ; [.1AA1.001C.0008] # LATIN CAPITAL LETTER O WITH MACRON
+00F3      ; [.1AA1.001D.0002] # LATIN SMALL LETTER O WITH ACUTE
+006F 0301 ; [.1AA1.001D.0002] # LATIN SMALL LETTER O WITH ACUTE
+006F 0341 ; [.1AA1.001D.0002] # LATIN SMALL LETTER O WITH ACUTE
+00D3      ; [.1AA1.001D.0008] # LATIN CAPITAL LETTER O WITH ACUTE
+004F 0301 ; [.1AA1.001D.0008] # LATIN CAPITAL LETTER O WITH ACUTE
+004F 0341 ; [.1AA1.001D.0008] # LATIN CAPITAL LETTER O WITH ACUTE
+01D2      ; [.1AA1.001E.0002] # LATIN SMALL LETTER O WITH CARON
+006F 030C ; [.1AA1.001E.0002] # LATIN SMALL LETTER O WITH CARON
+01D1      ; [.1AA1.001E.0008] # LATIN CAPITAL LETTER O WITH CARON
+004F 030C ; [.1AA1.001E.0008] # LATIN CAPITAL LETTER O WITH CARON
+00F2      ; [.1AA1.001F.0002] # LATIN SMALL LETTER O WITH GRAVE
+006F 0300 ; [.1AA1.001F.0002] # LATIN SMALL LETTER O WITH GRAVE
+006F 0340 ; [.1AA1.001F.0002] # LATIN SMALL LETTER O WITH GRAVE
+00D2      ; [.1AA1.001F.0008] # LATIN CAPITAL LETTER O WITH GRAVE
+004F 0300 ; [.1AA1.001F.0008] # LATIN CAPITAL LETTER O WITH GRAVE
+004F 0340 ; [.1AA1.001F.0008] # LATIN CAPITAL LETTER O WITH GRAVE
+016B      ; [.1B77.001C.0002] # LATIN SMALL LETTER U WITH MACRON
+0075 0304 ; [.1B77.001C.0002] # LATIN SMALL LETTER U WITH MACRON
+016A      ; [.1B77.001C.0008] # LATIN CAPITAL LETTER U WITH MACRON
+0055 0304 ; [.1B77.001C.0008] # LATIN CAPITAL LETTER U WITH MACRON
+00FA      ; [.1B77.001D.0002] # LATIN SMALL LETTER U WITH ACUTE
+0075 0301 ; [.1B77.001D.0002] # LATIN SMALL LETTER U WITH ACUTE
+0075 0341 ; [.1B77.001D.0002] # LATIN SMALL LETTER U WITH ACUTE
+00DA      ; [.1B77.001D.0008] # LATIN CAPITAL LETTER U WITH ACUTE
+0055 0301 ; [.1B77.001D.0008] # LATIN CAPITAL LETTER U WITH ACUTE
+0055 0341 ; [.1B77.001D.0008] # LATIN CAPITAL LETTER U WITH ACUTE
+01D4      ; [.1B77.001E.0002] # LATIN SMALL LETTER U WITH CARON
+0075 030C ; [.1B77.001E.0002] # LATIN SMALL LETTER U WITH CARON
+01D3      ; [.1B77.001E.0008] # LATIN CAPITAL LETTER U WITH CARON
+0055 030C ; [.1B77.001E.0008] # LATIN CAPITAL LETTER U WITH CARON
+00F9      ; [.1B77.001F.0002] # LATIN SMALL LETTER U WITH GRAVE
+0075 0300 ; [.1B77.001F.0002] # LATIN SMALL LETTER U WITH GRAVE
+0075 0340 ; [.1B77.001F.0002] # LATIN SMALL LETTER U WITH GRAVE
+00D9      ; [.1B77.001F.0008] # LATIN CAPITAL LETTER U WITH GRAVE
+0055 0300 ; [.1B77.001F.0008] # LATIN CAPITAL LETTER U WITH GRAVE
+0055 0340 ; [.1B77.001F.0008] # LATIN CAPITAL LETTER U WITH GRAVE
+01D6      ; [.1B77.0021.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND MACRON
+0075 0308 0304 ; [.1B77.0021.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND MACRON
+01D5      ; [.1B77.0021.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS AND MACRON
+0055 0308 0304 ; [.1B77.0021.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS AND MACRON
+00FC 0304 ; [.1B77.0021.0002] # <LATIN SMALL LETTER U WITH DIAERESIS, COMBINING MACRON>
+00DC 0304 ; [.1B77.0021.0008] # <LATIN CAPITAL LETTER U WITH DIAERESIS, COMBINING MACRON>
+01D8      ; [.1B77.0022.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND ACUTE
+0075 0308 0301 ; [.1B77.0022.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND ACUTE
+0075 0308 0341 ; [.1B77.0022.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND ACUTE
+01D7      ; [.1B77.0022.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS AND ACUTE
+0055 0308 0301 ; [.1B77.0022.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS AND ACUTE
+0055 0308 0341 ; [.1B77.0022.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS AND ACUTE
+00FC 0301 ; [.1B77.0022.0002] # <LATIN SMALL LETTER U WITH DIAERESIS, COMBINING ACUTE ACCENT>
+00FC 0341 ; [.1B77.0022.0002] # <LATIN SMALL LETTER U WITH DIAERESIS, COMBINING ACUTE TONE MARK>
+00DC 0301 ; [.1B77.0022.0008] # <LATIN CAPITAL LETTER U WITH DIAERESIS, COMBINING ACUTE ACCENT>
+00DC 0341 ; [.1B77.0022.0008] # <LATIN CAPITAL LETTER U WITH DIAERESIS, COMBINING ACUTE TONE MARK>
+01DA      ; [.1B77.0023.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND CARON
+0075 0308 030C ; [.1B77.0023.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND CARON
+01D9      ; [.1B77.0023.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS AND CARON
+0055 0308 030C ; [.1B77.0023.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS AND CARON
+00FC 030C ; [.1B77.0023.0002] # <LATIN SMALL LETTER U WITH DIAERESIS, COMBINING CARON>
+00DC 030C ; [.1B77.0023.0008] # <LATIN CAPITAL LETTER U WITH DIAERESIS, COMBINING CARON>
+01DC      ; [.1B77.0024.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND GRAVE
+0075 0308 0300 ; [.1B77.0024.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND GRAVE
+0075 0308 0340 ; [.1B77.0024.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND GRAVE
+01DB      ; [.1B77.0024.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS AND GRAVE
+0055 0308 0300 ; [.1B77.0024.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS AND GRAVE
+0055 0308 0340 ; [.1B77.0024.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS AND GRAVE
+00FC 0300 ; [.1B77.0024.0002] # <LATIN SMALL LETTER U WITH DIAERESIS, COMBINING GRAVE ACCENT>
+00FC 0340 ; [.1B77.0024.0002] # <LATIN SMALL LETTER U WITH DIAERESIS, COMBINING GRAVE TONE MARK>
+00DC 0300 ; [.1B77.0024.0008] # <LATIN CAPITAL LETTER U WITH DIAERESIS, COMBINING GRAVE ACCENT>
+00DC 0340 ; [.1B77.0024.0008] # <LATIN CAPITAL LETTER U WITH DIAERESIS, COMBINING GRAVE TONE MARK>
+00FC      ; [.1B77.0025.0002] # LATIN SMALL LETTER U WITH DIAERESIS
+0075 0308 ; [.1B77.0025.0002] # LATIN SMALL LETTER U WITH DIAERESIS
+00DC      ; [.1B77.0025.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS
+0055 0308 ; [.1B77.0025.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS
+E2D8      ; [.8EAB.0020.0002] # <unknown>
+E2D9      ; [.8EAC.0020.0002] # <unknown>
+E2DA      ; [.8EAD.0020.0002] # <unknown>
+E2DB      ; [.8EAE.0020.0002] # <unknown>
+E2DC      ; [.8EAF.0020.0002] # <unknown>
+F967      ; [.80D6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F967
+F905      ; [.8185.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F905
+2F801     ; [.8AED.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F801
+F95E      ; [.81D9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F95E
+2F800     ; [.8635.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F800
+F9BA      ; [.8668.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9BA
+F977      ; [.865E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F977
+F9FD      ; [.899D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9FD
+F9A8      ; [.868B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9A8
+2F804     ; [.879A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F804
+F9B5      ; [.863C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9B5
+FA30      ; [.8B4D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA30
+2F805     ; [.8B4D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F805
+F965      ; [.80A0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F965
+2F80B     ; [.8BB2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F80B
+F9BB      ; [.8662.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9BB
+FA31      ; [.893B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA31
+2F80A     ; [.893B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F80A
+FA0C      ; [.8EB2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA0C
+FA74      ; [.815D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA74
+FA32      ; [.873B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA32
+2F80E     ; [.873B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F80E
+2F80F     ; [.8AC8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F80F
+FA72      ; [.88DA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA72
+F9D1      ; [.8696.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9D1
+2F811     ; [.8562.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F811
+FA75      ; [.8484.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA75
+2F815     ; [.8D70.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F815
+2F8D2     ; [.8709.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8D2
+2F8D3     ; [.873A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8D3
+2F817     ; [.890E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F817
+2F818     ; [.8D40.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F818
+2F81A     ; [.823F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F81A
+FA71      ; [.85D7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA71
+2F81B     ; [.85D7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F81B
+F92E      ; [.8623.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F92E
+F979      ; [.8656.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F979
+F955      ; [.8685.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F955
+2F81D     ; [.8FF2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F81D
+2F81E     ; [.88FF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F81E
+FA00      ; [.88A1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA00
+2F850     ; [.88A1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F850
+F99C      ; [.866D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F99C
+F9DD      ; [.863A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9DD
+F9FF      ; [.81A3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9FF
+2F820     ; [.85AD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F820
+2F822     ; [.833D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F822
+F98A      ; [.8643.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F98A
+F99D      ; [.8670.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F99D
+2F992     ; [.860C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F992
+FA76      ; [.8CFB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA76
+2F825     ; [.8CFB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F825
+FA33      ; [.873C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA33
+2F826     ; [.873C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F826
+F952      ; [.8614.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F952
+FA34      ; [.88AB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA34
+2F827     ; [.88AB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F827
+FA77      ; [.8964.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA77
+2F828     ; [.8964.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F828
+2F829     ; [.805B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F829
+2F82A     ; [.81A9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F82A
+F963      ; [.806E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F963
+2F82B     ; [.806E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F82B
+F9EB      ; [.879B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9EB
+2F82C     ; [.8445.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F82C
+FA35      ; [.806D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA35
+2F82D     ; [.806D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F82D
+2F82E     ; [.80C4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F82E
+2F82F     ; [.847B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F82F
+F91C      ; [.86CC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F91C
+2F831     ; [.88B5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F831
+2F832     ; [.88B5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F832
+2F833     ; [.88B5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F833
+2F836     ; [.8477.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F836
+2F837     ; [.8FEE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F837
+F906      ; [.8567.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F906
+2F839     ; [.84F5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F839
+2F83A     ; [.9154.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F83A
+2F83B     ; [.915B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F83B
+F9DE      ; [.8633.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9DE
+F9ED      ; [.867C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9ED
+2F83D     ; [.8B5F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F83D
+2F83E     ; [.8143.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F83E
+2F83F     ; [.8E2F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F83F
+F99E      ; [.8C47.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F99E
+2F842     ; [.8A6D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F842
+FA79      ; [.919C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA79
+2F845     ; [.8953.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F845
+2F846     ; [.8953.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F846
+F90B      ; [.85ED.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F90B
+FA7A      ; [.91B8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA7A
+2F847     ; [.91B8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F847
+FA36      ; [.83D3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA36
+FA78      ; [.83D3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA78
+2F849     ; [.8D92.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F849
+FA38      ; [.886A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA38
+F9A9      ; [.91F1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9A9
+2F855     ; [.8BEC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F855
+2F852     ; [.8140.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F852
+2F853     ; [.9023.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F853
+2F854     ; [.9029.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F854
+F96C      ; [.892A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F96C
+FA3A      ; [.8762.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA3A
+2F851     ; [.8E64.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F851
+2F85D     ; [.8273.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F85D
+FA7E      ; [.8C56.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA7E
+F90C      ; [.8785.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F90C
+F909      ; [.8868.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F909
+FA7F      ; [.8079.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA7F
+2F85F     ; [.896A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F85F
+F981      ; [.87C3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F981
+2F865     ; [.93E3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F865
+2F862     ; [.846E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F862
+FA80      ; [.93F1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA80
+2F986     ; [.95FD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F986
+FA04      ; [.8DA1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA04
+F9BC      ; [.9391.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9BC
+2F872     ; [.89C4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F872
+2F873     ; [.84D0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F873
+2F875     ; [.910F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F875
+F9BD      ; [.87A9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9BD
+2F877     ; [.8AC5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F877
+F9DF      ; [.86BF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9DF
+FA3C      ; [.93CD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA3C
+2F878     ; [.93CD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F878
+2F87A     ; [.9206.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F87A
+2F87F     ; [.922E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F87F
+2F881     ; [.8C2F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F881
+2F882     ; [.812B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F882
+2F884     ; [.8F50.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F884
+2F886     ; [.870A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F886
+F98E      ; [.87A1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F98E
+FA01      ; [.825B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA01
+2F88C     ; [.9293.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F88C
+2F88D     ; [.89E7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F88D
+F9A2      ; [.864B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9A2
+F928      ; [.8607.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F928
+2F88E     ; [.8607.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F88E
+FA82      ; [.9295.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA82
+FA0B      ; [.85E9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA0B
+2F890     ; [.9106.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F890
+F943      ; [.87BF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F943
+2F874     ; [.81E6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F874
+2F899     ; [.8BED.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F899
+FA84      ; [.80E5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA84
+F9D8      ; [.86C4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9D8
+FA85      ; [.9243.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA85
+2F89D     ; [.88FB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F89D
+2F89E     ; [.8E11.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F89E
+F9A3      ; [.87A5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9A3
+F960      ; [.87C2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F960
+F9AC      ; [.864C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9AC
+FA3D      ; [.8443.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA3D
+2F8A3     ; [.8443.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8A3
+FA86      ; [.92C8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA86
+FA88      ; [.8D33.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA88
+2F8A6     ; [.819F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8A6
+2F8A7     ; [.842E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8A7
+2F8A9     ; [.842E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8A9
+FA87      ; [.8984.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA87
+2F8A8     ; [.8984.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8A8
+FA3E      ; [.858F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA3E
+FA3F      ; [.8D8E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA3F
+FA89      ; [.8D8E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA89
+2F8AB     ; [.8D8E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8AB
+2F8B2     ; [.8142.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8B2
+2F8B3     ; [.9554.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8B3
+F9D2      ; [.86B9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9D2
+FA8C      ; [.81CE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA8C
+2F8B5     ; [.8064.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8B5
+F925      ; [.85EC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F925
+FA02      ; [.8ADD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA02
+2F8B6     ; [.802D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8B6
+2F8BA     ; [.8827.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8BA
+F973      ; [.899B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F973
+2F8B9     ; [.8AF1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8B9
+2F8B7     ; [.856B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8B7
+F9A4      ; [.87A4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9A4
+F975      ; [.86CE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F975
+2F8C1     ; [.8C57.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8C1
+FA8D      ; [.9130.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA8D
+FA8E      ; [.8A1A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA8E
+FA8F      ; [.9133.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA8F
+2F8C3     ; [.875D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8C3
+FA41      ; [.874D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA41
+2F8C8     ; [.874D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8C8
+FA90      ; [.801C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA90
+2F8C9     ; [.8537.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8C9
+F9BE      ; [.866C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9BE
+F983      ; [.86BE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F983
+FA42      ; [.848F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA42
+F9E0      ; [.8CB2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E0
+FA12      ; [.88B8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA12
+FA91      ; [.88B8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA91
+FA43      ; [.89D9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA43
+2F8CF     ; [.89D9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8CF
+FA06      ; [.8066.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA06
+F901      ; [.834B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F901
+2F8D4     ; [.8E9F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8D4
+F929      ; [.8609.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F929
+FA92      ; [.8609.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA92
+2F8D8     ; [.8609.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8D8
+FA93      ; [.8B00.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA93
+2F8D9     ; [.8B00.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8D9
+F9E1      ; [.862D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E1
+2F8DC     ; [.94AB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8DC
+FA94      ; [.8DBD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA94
+2F8DB     ; [.94AC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8DB
+F9F4      ; [.8673.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9F4
+F9C9      ; [.8695.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9C9
+F9DA      ; [.8634.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9DA
+F97A      ; [.8657.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F97A
+FA44      ; [.8710.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA44
+2F8E2     ; [.8710.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8E2
+F9E2      ; [.8625.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E2
+2F8E8     ; [.94F8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8E8
+2F8EF     ; [.81A5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8EF
+FA95      ; [.81CC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA95
+F972      ; [.897F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F972
+2F8FC     ; [.8C55.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8FC
+F968      ; [.8733.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F968
+F9E3      ; [.8797.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E3
+F915      ; [.86E0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F915
+FA05      ; [.8247.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA05
+2F900     ; [.87DE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F900
+F9CA      ; [.8694.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9CA
+FA97      ; [.8694.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA97
+2F902     ; [.8694.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F902
+2F903     ; [.83D1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F903
+F92A      ; [.860A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F92A
+FA45      ; [.83AE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA45
+2F901     ; [.83AE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F901
+2F904     ; [.8523.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F904
+2F905     ; [.87B0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F905
+F9F5      ; [.8679.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9F5
+2F90E     ; [.8C4A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F90E
+FA46      ; [.9335.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA46
+2F908     ; [.832A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F908
+2F909     ; [.9345.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F909
+F9CB      ; [.868C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9CB
+F9EC      ; [.879E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9EC
+2F90C     ; [.8216.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F90C
+FA99      ; [.8E7D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA99
+2F90B     ; [.8E7D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F90B
+F904      ; [.8415.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F904
+F94E      ; [.86A4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F94E
+2F90F     ; [.812A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F90F
+2F915     ; [.9382.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F915
+2F913     ; [.9383.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F913
+2F835     ; [.843B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F835
+F9FB      ; [.8E1E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9FB
+2F91A     ; [.8A66.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F91A
+F99F      ; [.866F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F99F
+F916      ; [.8612.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F916
+2F91C     ; [.9638.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F91C
+FA48      ; [.8E46.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA48
+FA9C      ; [.8E46.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA9C
+F9C0      ; [.8664.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9C0
+2F920     ; [.9647.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F920
+FA9E      ; [.8577.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA9E
+2F921     ; [.8577.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F921
+F946      ; [.860D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F946
+2F924     ; [.8B6D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F924
+FA9F      ; [.82A9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA9F
+F92B      ; [.8606.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F92B
+FA16      ; [.8E40.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA16
+FAA0      ; [.8E40.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAA0
+F961      ; [.86C5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F961
+F9DB      ; [.86C5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9DB
+2F929     ; [.8AFA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F929
+F9AD      ; [.867E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9AD
+F917      ; [.9484.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F917
+F9E4      ; [.862C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E4
+F9CC      ; [.868D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9CC
+FA4A      ; [.8E72.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA4A
+2F92F     ; [.9493.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F92F
+FAA3      ; [.8416.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAA3
+2F936     ; [.946F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F936
+F9CD      ; [.8691.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9CD
+F976      ; [.86CF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F976
+F9E5      ; [.863E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E5
+2F93A     ; [.97D4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F93A
+FAA5      ; [.8B24.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAA5
+FA17      ; [.8CC1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA17
+FAA6      ; [.8CC1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAA6
+FAA7      ; [.898D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAA7
+FAA8      ; [.8E04.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAA8
+2F940     ; [.8E04.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F940
+F96D      ; [.898C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F96D
+2F946     ; [.8DDB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F946
+2F947     ; [.8DDB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F947
+FAAA      ; [.8E76.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAAA
+FA9D      ; [.8897.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA9D
+2F94E     ; [.968F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F94E
+F9CE      ; [.868F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9CE
+F93B      ; [.86B0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F93B
+2F94F     ; [.86B0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F94F
+FA4B      ; [.806B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA4B
+F947      ; [.8619.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F947
+FA18      ; [.8630.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA18
+FA4C      ; [.8974.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA4C
+FA4E      ; [.8860.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA4E
+FA4D      ; [.9654.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA4D
+FA50      ; [.8E97.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA50
+2F953     ; [.8E97.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F953
+FA51      ; [.8E54.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA51
+FA19      ; [.897E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA19
+FA1A      ; [.8BAA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA1A
+FA1B      ; [.82F2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA1B
+2F956     ; [.82F2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F956
+2F957     ; [.9779.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F957
+FA55      ; [.8AC0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA55
+F9F7      ; [.863F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9F7
+F9F8      ; [.98CB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9F8
+2F962     ; [.8E5E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F962
+FAAE      ; [.861F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAAE
+F9F9      ; [.8640.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9F9
+FA1D      ; [.852E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA1D
+FA03      ; [.8A6E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA03
+2F968     ; [.9934.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F968
+F96A      ; [.8A40.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F96A
+F94F      ; [.861A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F94F
+FA59      ; [.82A2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA59
+FA5A      ; [.89DB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA5A
+F9E6      ; [.96E1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E6
+F9AF      ; [.8684.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9AF
+FA1E      ; [.8D29.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA1E
+F934      ; [.860E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F934
+FA5B      ; [.8DD4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA5B
+FAB2      ; [.8DD4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAB2
+2F97A     ; [.8DD4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F97A
+F9B0      ; [.9833.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9B0
+F953      ; [.861E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F953
+2F8D6     ; [.95D0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8D6
+2F982     ; [.8D36.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F982
+2F985     ; [.8815.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F985
+FA5C      ; [.816D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA5C
+2F893     ; [.98FF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F893
+2F98B     ; [.98FF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F98B
+2F98C     ; [.9901.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F98C
+F97C      ; [.8659.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F97C
+FA5D      ; [.903A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA5D
+FA5E      ; [.903A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA5E
+2F990     ; [.8D2C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F990
+2F98F     ; [.9042.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F98F
+2F991     ; [.8DF8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F991
+2F993     ; [.8411.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F993
+2F994     ; [.82AD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F994
+2F995     ; [.8C3C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F995
+F974      ; [.8923.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F974
+2F998     ; [.8923.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F998
+2F996     ; [.85C1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F996
+F9FE      ; [.8103.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9FE
+FAB3      ; [.842D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAB3
+2F99A     ; [.8908.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F99A
+2F99D     ; [.8700.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F99D
+2F9A1     ; [.8558.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9A1
+2F9A2     ; [.857D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9A2
+2F9A3     ; [.80E6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9A3
+F958      ; [.867F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F958
+F918      ; [.86DF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F918
+FA5F      ; [.8E4B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA5F
+2F99F     ; [.8E4B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F99F
+F9C2      ; [.90E7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9C2
+2F9AC     ; [.90EB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9AC
+2F9B3     ; [.87C5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9B3
+2F9B7     ; [.985A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9B7
+F911      ; [.86D8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F911
+FA08      ; [.8BEF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA08
+2F9C4     ; [.8C9D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9C4
+F9A0      ; [.866E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9A0
+F912      ; [.86DE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F912
+FA60      ; [.83E1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA60
+FAB6      ; [.981C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAB6
+FAB7      ; [.8301.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAB7
+2F9D2     ; [.996E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9D2
+2F9D7     ; [.8863.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9D7
+2F9DB     ; [.9977.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9DB
+2F9DA     ; [.802E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9DA
+F937      ; [.86B2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F937
+2F98D     ; [.819E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F98D
+F971      ; [.8136.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F971
+FA66      ; [.9396.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA66
+FA25      ; [.8CB8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA25
+FA67      ; [.8CB8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA67
+F92C      ; [.8608.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F92C
+FA26      ; [.824F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA26
+F919      ; [.8611.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F919
+F9B7      ; [.996C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9B7
+F9E9      ; [.862E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E9
+F97E      ; [.865C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F97E
+F90A      ; [.8515.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F90A
+F9C6      ; [.891D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9C6
+F951      ; [.86A5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F951
+FA09      ; [.84DA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA09
+F959      ; [.8687.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F959
+F9DC      ; [.869C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9DC
+F9B2      ; [.8680.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9B2
+F949      ; [.8616.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F949
+F938      ; [.86B1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F938
+FA1C      ; [.853B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA1C
+FAC8      ; [.853B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAC8
+F940      ; [.86B4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F940
+F9F3      ; [.9A5C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9F3
+2FA15     ; [.86E4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA15
+F989      ; [.8627.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F989
+2FA17     ; [.96AE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA17
+2FA18     ; [.99CF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA18
+2FA1C     ; [.8084.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA1C
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/zh_pin.pl b/lib/5.24.1/Unicode/Collate/Locale/zh_pin.pl
new file mode 100644
index 00000000..3562aa11
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/zh_pin.pl
@@ -0,0 +1,1505 @@
+use Unicode::Collate::CJK::Pinyin;
++{
+   locale_version => 1.14,
+   overrideCJK => \&Unicode::Collate::CJK::Pinyin::weightPinyin,
+   entry => <<'ENTRY', # for DUCET v7.0.0
+0101      ; [.190C.001C.0002] # LATIN SMALL LETTER A WITH MACRON
+0061 0304 ; [.190C.001C.0002] # LATIN SMALL LETTER A WITH MACRON
+0100      ; [.190C.001C.0008] # LATIN CAPITAL LETTER A WITH MACRON
+0041 0304 ; [.190C.001C.0008] # LATIN CAPITAL LETTER A WITH MACRON
+00E1      ; [.190C.001D.0002] # LATIN SMALL LETTER A WITH ACUTE
+0061 0301 ; [.190C.001D.0002] # LATIN SMALL LETTER A WITH ACUTE
+0061 0341 ; [.190C.001D.0002] # LATIN SMALL LETTER A WITH ACUTE
+00C1      ; [.190C.001D.0008] # LATIN CAPITAL LETTER A WITH ACUTE
+0041 0301 ; [.190C.001D.0008] # LATIN CAPITAL LETTER A WITH ACUTE
+0041 0341 ; [.190C.001D.0008] # LATIN CAPITAL LETTER A WITH ACUTE
+01CE      ; [.190C.001E.0002] # LATIN SMALL LETTER A WITH CARON
+0061 030C ; [.190C.001E.0002] # LATIN SMALL LETTER A WITH CARON
+01CD      ; [.190C.001E.0008] # LATIN CAPITAL LETTER A WITH CARON
+0041 030C ; [.190C.001E.0008] # LATIN CAPITAL LETTER A WITH CARON
+00E0      ; [.190C.001F.0002] # LATIN SMALL LETTER A WITH GRAVE
+0061 0300 ; [.190C.001F.0002] # LATIN SMALL LETTER A WITH GRAVE
+0061 0340 ; [.190C.001F.0002] # LATIN SMALL LETTER A WITH GRAVE
+00C0      ; [.190C.001F.0008] # LATIN CAPITAL LETTER A WITH GRAVE
+0041 0300 ; [.190C.001F.0008] # LATIN CAPITAL LETTER A WITH GRAVE
+0041 0340 ; [.190C.001F.0008] # LATIN CAPITAL LETTER A WITH GRAVE
+0113      ; [.196E.001C.0002] # LATIN SMALL LETTER E WITH MACRON
+0065 0304 ; [.196E.001C.0002] # LATIN SMALL LETTER E WITH MACRON
+0112      ; [.196E.001C.0008] # LATIN CAPITAL LETTER E WITH MACRON
+0045 0304 ; [.196E.001C.0008] # LATIN CAPITAL LETTER E WITH MACRON
+00E9      ; [.196E.001D.0002] # LATIN SMALL LETTER E WITH ACUTE
+0065 0301 ; [.196E.001D.0002] # LATIN SMALL LETTER E WITH ACUTE
+0065 0341 ; [.196E.001D.0002] # LATIN SMALL LETTER E WITH ACUTE
+00C9      ; [.196E.001D.0008] # LATIN CAPITAL LETTER E WITH ACUTE
+0045 0301 ; [.196E.001D.0008] # LATIN CAPITAL LETTER E WITH ACUTE
+0045 0341 ; [.196E.001D.0008] # LATIN CAPITAL LETTER E WITH ACUTE
+011B      ; [.196E.001E.0002] # LATIN SMALL LETTER E WITH CARON
+0065 030C ; [.196E.001E.0002] # LATIN SMALL LETTER E WITH CARON
+011A      ; [.196E.001E.0008] # LATIN CAPITAL LETTER E WITH CARON
+0045 030C ; [.196E.001E.0008] # LATIN CAPITAL LETTER E WITH CARON
+00E8      ; [.196E.001F.0002] # LATIN SMALL LETTER E WITH GRAVE
+0065 0300 ; [.196E.001F.0002] # LATIN SMALL LETTER E WITH GRAVE
+0065 0340 ; [.196E.001F.0002] # LATIN SMALL LETTER E WITH GRAVE
+00C8      ; [.196E.001F.0008] # LATIN CAPITAL LETTER E WITH GRAVE
+0045 0300 ; [.196E.001F.0008] # LATIN CAPITAL LETTER E WITH GRAVE
+0045 0340 ; [.196E.001F.0008] # LATIN CAPITAL LETTER E WITH GRAVE
+00EA 0304 ; [.196E.0021.0002] # <LATIN SMALL LETTER E WITH CIRCUMFLEX, COMBINING MACRON>
+00CA 0304 ; [.196E.0021.0008] # <LATIN CAPITAL LETTER E WITH CIRCUMFLEX, COMBINING MACRON>
+0065 0302 0304 ; [.196E.0021.0002] # <LATIN SMALL LETTER E, COMBINING CIRCUMFLEX ACCENT, COMBINING MACRON>
+0045 0302 0304 ; [.196E.0021.0008] # <LATIN CAPITAL LETTER E, COMBINING CIRCUMFLEX ACCENT, COMBINING MACRON>
+1EBF      ; [.196E.0022.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND ACUTE
+0065 0302 0301 ; [.196E.0022.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND ACUTE
+0065 0302 0341 ; [.196E.0022.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND ACUTE
+1EBE      ; [.196E.0022.0008] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND ACUTE
+0045 0302 0301 ; [.196E.0022.0008] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND ACUTE
+0045 0302 0341 ; [.196E.0022.0008] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND ACUTE
+00EA 0301 ; [.196E.0022.0002] # <LATIN SMALL LETTER E WITH CIRCUMFLEX, COMBINING ACUTE ACCENT>
+00EA 0341 ; [.196E.0022.0002] # <LATIN SMALL LETTER E WITH CIRCUMFLEX, COMBINING ACUTE TONE MARK>
+00CA 0301 ; [.196E.0022.0008] # <LATIN CAPITAL LETTER E WITH CIRCUMFLEX, COMBINING ACUTE ACCENT>
+00CA 0341 ; [.196E.0022.0008] # <LATIN CAPITAL LETTER E WITH CIRCUMFLEX, COMBINING ACUTE TONE MARK>
+00EA 030C ; [.196E.0023.0002] # <LATIN SMALL LETTER E WITH CIRCUMFLEX, COMBINING CARON>
+00CA 030C ; [.196E.0023.0008] # <LATIN CAPITAL LETTER E WITH CIRCUMFLEX, COMBINING CARON>
+0065 0302 030C ; [.196E.0023.0002] # <LATIN SMALL LETTER E, COMBINING CIRCUMFLEX ACCENT, COMBINING CARON>
+0045 0302 030C ; [.196E.0023.0008] # <LATIN CAPITAL LETTER E, COMBINING CIRCUMFLEX ACCENT, COMBINING CARON>
+1EC1      ; [.196E.0024.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND GRAVE
+0065 0302 0300 ; [.196E.0024.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND GRAVE
+0065 0302 0340 ; [.196E.0024.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND GRAVE
+1EC0      ; [.196E.0024.0008] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND GRAVE
+0045 0302 0300 ; [.196E.0024.0008] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND GRAVE
+0045 0302 0340 ; [.196E.0024.0008] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND GRAVE
+00EA 0300 ; [.196E.0024.0002] # <LATIN SMALL LETTER E WITH CIRCUMFLEX, COMBINING GRAVE ACCENT>
+00EA 0340 ; [.196E.0024.0002] # <LATIN SMALL LETTER E WITH CIRCUMFLEX, COMBINING GRAVE TONE MARK>
+00CA 0300 ; [.196E.0024.0008] # <LATIN CAPITAL LETTER E WITH CIRCUMFLEX, COMBINING GRAVE ACCENT>
+00CA 0340 ; [.196E.0024.0008] # <LATIN CAPITAL LETTER E WITH CIRCUMFLEX, COMBINING GRAVE TONE MARK>
+00EA      ; [.196E.0025.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX
+0065 0302 ; [.196E.0025.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX
+00CA      ; [.196E.0025.0008] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX
+0045 0302 ; [.196E.0025.0008] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX
+1EC5      ; [.196E.0025.0002][.0000.002D.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND TILDE
+1EC4      ; [.196E.0025.0008][.0000.002D.0002] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND TILDE
+1EC3      ; [.196E.0025.0002][.0000.003B.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND HOOK ABOVE
+1EC2      ; [.196E.0025.0008][.0000.003B.0002] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND HOOK ABOVE
+1EC7      ; [.196E.0025.0002][.0000.0042.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND DOT BELOW
+1EC6      ; [.196E.0025.0008][.0000.0042.0002] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND DOT BELOW
+012B      ; [.19F6.001C.0002] # LATIN SMALL LETTER I WITH MACRON
+0069 0304 ; [.19F6.001C.0002] # LATIN SMALL LETTER I WITH MACRON
+012A      ; [.19F6.001C.0008] # LATIN CAPITAL LETTER I WITH MACRON
+0049 0304 ; [.19F6.001C.0008] # LATIN CAPITAL LETTER I WITH MACRON
+00ED      ; [.19F6.001D.0002] # LATIN SMALL LETTER I WITH ACUTE
+0069 0301 ; [.19F6.001D.0002] # LATIN SMALL LETTER I WITH ACUTE
+0069 0341 ; [.19F6.001D.0002] # LATIN SMALL LETTER I WITH ACUTE
+00CD      ; [.19F6.001D.0008] # LATIN CAPITAL LETTER I WITH ACUTE
+0049 0301 ; [.19F6.001D.0008] # LATIN CAPITAL LETTER I WITH ACUTE
+0049 0341 ; [.19F6.001D.0008] # LATIN CAPITAL LETTER I WITH ACUTE
+01D0      ; [.19F6.001E.0002] # LATIN SMALL LETTER I WITH CARON
+0069 030C ; [.19F6.001E.0002] # LATIN SMALL LETTER I WITH CARON
+01CF      ; [.19F6.001E.0008] # LATIN CAPITAL LETTER I WITH CARON
+0049 030C ; [.19F6.001E.0008] # LATIN CAPITAL LETTER I WITH CARON
+00EC      ; [.19F6.001F.0002] # LATIN SMALL LETTER I WITH GRAVE
+0069 0300 ; [.19F6.001F.0002] # LATIN SMALL LETTER I WITH GRAVE
+0069 0340 ; [.19F6.001F.0002] # LATIN SMALL LETTER I WITH GRAVE
+00CC      ; [.19F6.001F.0008] # LATIN CAPITAL LETTER I WITH GRAVE
+0049 0300 ; [.19F6.001F.0008] # LATIN CAPITAL LETTER I WITH GRAVE
+0049 0340 ; [.19F6.001F.0008] # LATIN CAPITAL LETTER I WITH GRAVE
+006D 0304 ; [.1A6E.001C.0002] # <LATIN SMALL LETTER M, COMBINING MACRON>
+004D 0304 ; [.1A6E.001C.0008] # <LATIN CAPITAL LETTER M, COMBINING MACRON>
+1E3F      ; [.1A6E.001D.0002] # LATIN SMALL LETTER M WITH ACUTE
+006D 0301 ; [.1A6E.001D.0002] # LATIN SMALL LETTER M WITH ACUTE
+006D 0341 ; [.1A6E.001D.0002] # LATIN SMALL LETTER M WITH ACUTE
+1E3E      ; [.1A6E.001D.0008] # LATIN CAPITAL LETTER M WITH ACUTE
+004D 0301 ; [.1A6E.001D.0008] # LATIN CAPITAL LETTER M WITH ACUTE
+004D 0341 ; [.1A6E.001D.0008] # LATIN CAPITAL LETTER M WITH ACUTE
+006D 030C ; [.1A6E.001E.0002] # <LATIN SMALL LETTER M, COMBINING CARON>
+004D 030C ; [.1A6E.001E.0008] # <LATIN CAPITAL LETTER M, COMBINING CARON>
+006D 0300 ; [.1A6E.001F.0002] # <LATIN SMALL LETTER M, COMBINING GRAVE ACCENT>
+006D 0340 ; [.1A6E.001F.0002] # <LATIN SMALL LETTER M, COMBINING GRAVE TONE MARK>
+004D 0300 ; [.1A6E.001F.0008] # <LATIN CAPITAL LETTER M, COMBINING GRAVE ACCENT>
+004D 0340 ; [.1A6E.001F.0008] # <LATIN CAPITAL LETTER M, COMBINING GRAVE TONE MARK>
+006E 0304 ; [.1A7D.001C.0002] # <LATIN SMALL LETTER N, COMBINING MACRON>
+004E 0304 ; [.1A7D.001C.0008] # <LATIN CAPITAL LETTER N, COMBINING MACRON>
+0144      ; [.1A7D.001D.0002] # LATIN SMALL LETTER N WITH ACUTE
+006E 0301 ; [.1A7D.001D.0002] # LATIN SMALL LETTER N WITH ACUTE
+006E 0341 ; [.1A7D.001D.0002] # LATIN SMALL LETTER N WITH ACUTE
+0143      ; [.1A7D.001D.0008] # LATIN CAPITAL LETTER N WITH ACUTE
+004E 0301 ; [.1A7D.001D.0008] # LATIN CAPITAL LETTER N WITH ACUTE
+004E 0341 ; [.1A7D.001D.0008] # LATIN CAPITAL LETTER N WITH ACUTE
+0148      ; [.1A7D.001E.0002] # LATIN SMALL LETTER N WITH CARON
+006E 030C ; [.1A7D.001E.0002] # LATIN SMALL LETTER N WITH CARON
+0147      ; [.1A7D.001E.0008] # LATIN CAPITAL LETTER N WITH CARON
+004E 030C ; [.1A7D.001E.0008] # LATIN CAPITAL LETTER N WITH CARON
+01F9      ; [.1A7D.001F.0002] # LATIN SMALL LETTER N WITH GRAVE
+006E 0300 ; [.1A7D.001F.0002] # LATIN SMALL LETTER N WITH GRAVE
+006E 0340 ; [.1A7D.001F.0002] # LATIN SMALL LETTER N WITH GRAVE
+01F8      ; [.1A7D.001F.0008] # LATIN CAPITAL LETTER N WITH GRAVE
+004E 0300 ; [.1A7D.001F.0008] # LATIN CAPITAL LETTER N WITH GRAVE
+004E 0340 ; [.1A7D.001F.0008] # LATIN CAPITAL LETTER N WITH GRAVE
+014D      ; [.1AA1.001C.0002] # LATIN SMALL LETTER O WITH MACRON
+006F 0304 ; [.1AA1.001C.0002] # LATIN SMALL LETTER O WITH MACRON
+014C      ; [.1AA1.001C.0008] # LATIN CAPITAL LETTER O WITH MACRON
+004F 0304 ; [.1AA1.001C.0008] # LATIN CAPITAL LETTER O WITH MACRON
+00F3      ; [.1AA1.001D.0002] # LATIN SMALL LETTER O WITH ACUTE
+006F 0301 ; [.1AA1.001D.0002] # LATIN SMALL LETTER O WITH ACUTE
+006F 0341 ; [.1AA1.001D.0002] # LATIN SMALL LETTER O WITH ACUTE
+00D3      ; [.1AA1.001D.0008] # LATIN CAPITAL LETTER O WITH ACUTE
+004F 0301 ; [.1AA1.001D.0008] # LATIN CAPITAL LETTER O WITH ACUTE
+004F 0341 ; [.1AA1.001D.0008] # LATIN CAPITAL LETTER O WITH ACUTE
+01D2      ; [.1AA1.001E.0002] # LATIN SMALL LETTER O WITH CARON
+006F 030C ; [.1AA1.001E.0002] # LATIN SMALL LETTER O WITH CARON
+01D1      ; [.1AA1.001E.0008] # LATIN CAPITAL LETTER O WITH CARON
+004F 030C ; [.1AA1.001E.0008] # LATIN CAPITAL LETTER O WITH CARON
+00F2      ; [.1AA1.001F.0002] # LATIN SMALL LETTER O WITH GRAVE
+006F 0300 ; [.1AA1.001F.0002] # LATIN SMALL LETTER O WITH GRAVE
+006F 0340 ; [.1AA1.001F.0002] # LATIN SMALL LETTER O WITH GRAVE
+00D2      ; [.1AA1.001F.0008] # LATIN CAPITAL LETTER O WITH GRAVE
+004F 0300 ; [.1AA1.001F.0008] # LATIN CAPITAL LETTER O WITH GRAVE
+004F 0340 ; [.1AA1.001F.0008] # LATIN CAPITAL LETTER O WITH GRAVE
+016B      ; [.1B77.001C.0002] # LATIN SMALL LETTER U WITH MACRON
+0075 0304 ; [.1B77.001C.0002] # LATIN SMALL LETTER U WITH MACRON
+016A      ; [.1B77.001C.0008] # LATIN CAPITAL LETTER U WITH MACRON
+0055 0304 ; [.1B77.001C.0008] # LATIN CAPITAL LETTER U WITH MACRON
+00FA      ; [.1B77.001D.0002] # LATIN SMALL LETTER U WITH ACUTE
+0075 0301 ; [.1B77.001D.0002] # LATIN SMALL LETTER U WITH ACUTE
+0075 0341 ; [.1B77.001D.0002] # LATIN SMALL LETTER U WITH ACUTE
+00DA      ; [.1B77.001D.0008] # LATIN CAPITAL LETTER U WITH ACUTE
+0055 0301 ; [.1B77.001D.0008] # LATIN CAPITAL LETTER U WITH ACUTE
+0055 0341 ; [.1B77.001D.0008] # LATIN CAPITAL LETTER U WITH ACUTE
+01D4      ; [.1B77.001E.0002] # LATIN SMALL LETTER U WITH CARON
+0075 030C ; [.1B77.001E.0002] # LATIN SMALL LETTER U WITH CARON
+01D3      ; [.1B77.001E.0008] # LATIN CAPITAL LETTER U WITH CARON
+0055 030C ; [.1B77.001E.0008] # LATIN CAPITAL LETTER U WITH CARON
+00F9      ; [.1B77.001F.0002] # LATIN SMALL LETTER U WITH GRAVE
+0075 0300 ; [.1B77.001F.0002] # LATIN SMALL LETTER U WITH GRAVE
+0075 0340 ; [.1B77.001F.0002] # LATIN SMALL LETTER U WITH GRAVE
+00D9      ; [.1B77.001F.0008] # LATIN CAPITAL LETTER U WITH GRAVE
+0055 0300 ; [.1B77.001F.0008] # LATIN CAPITAL LETTER U WITH GRAVE
+0055 0340 ; [.1B77.001F.0008] # LATIN CAPITAL LETTER U WITH GRAVE
+01D6      ; [.1B77.0021.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND MACRON
+0075 0308 0304 ; [.1B77.0021.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND MACRON
+01D5      ; [.1B77.0021.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS AND MACRON
+0055 0308 0304 ; [.1B77.0021.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS AND MACRON
+00FC 0304 ; [.1B77.0021.0002] # <LATIN SMALL LETTER U WITH DIAERESIS, COMBINING MACRON>
+00DC 0304 ; [.1B77.0021.0008] # <LATIN CAPITAL LETTER U WITH DIAERESIS, COMBINING MACRON>
+01D8      ; [.1B77.0022.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND ACUTE
+0075 0308 0301 ; [.1B77.0022.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND ACUTE
+0075 0308 0341 ; [.1B77.0022.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND ACUTE
+01D7      ; [.1B77.0022.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS AND ACUTE
+0055 0308 0301 ; [.1B77.0022.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS AND ACUTE
+0055 0308 0341 ; [.1B77.0022.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS AND ACUTE
+00FC 0301 ; [.1B77.0022.0002] # <LATIN SMALL LETTER U WITH DIAERESIS, COMBINING ACUTE ACCENT>
+00FC 0341 ; [.1B77.0022.0002] # <LATIN SMALL LETTER U WITH DIAERESIS, COMBINING ACUTE TONE MARK>
+00DC 0301 ; [.1B77.0022.0008] # <LATIN CAPITAL LETTER U WITH DIAERESIS, COMBINING ACUTE ACCENT>
+00DC 0341 ; [.1B77.0022.0008] # <LATIN CAPITAL LETTER U WITH DIAERESIS, COMBINING ACUTE TONE MARK>
+01DA      ; [.1B77.0023.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND CARON
+0075 0308 030C ; [.1B77.0023.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND CARON
+01D9      ; [.1B77.0023.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS AND CARON
+0055 0308 030C ; [.1B77.0023.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS AND CARON
+00FC 030C ; [.1B77.0023.0002] # <LATIN SMALL LETTER U WITH DIAERESIS, COMBINING CARON>
+00DC 030C ; [.1B77.0023.0008] # <LATIN CAPITAL LETTER U WITH DIAERESIS, COMBINING CARON>
+01DC      ; [.1B77.0024.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND GRAVE
+0075 0308 0300 ; [.1B77.0024.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND GRAVE
+0075 0308 0340 ; [.1B77.0024.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND GRAVE
+01DB      ; [.1B77.0024.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS AND GRAVE
+0055 0308 0300 ; [.1B77.0024.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS AND GRAVE
+0055 0308 0340 ; [.1B77.0024.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS AND GRAVE
+00FC 0300 ; [.1B77.0024.0002] # <LATIN SMALL LETTER U WITH DIAERESIS, COMBINING GRAVE ACCENT>
+00FC 0340 ; [.1B77.0024.0002] # <LATIN SMALL LETTER U WITH DIAERESIS, COMBINING GRAVE TONE MARK>
+00DC 0300 ; [.1B77.0024.0008] # <LATIN CAPITAL LETTER U WITH DIAERESIS, COMBINING GRAVE ACCENT>
+00DC 0340 ; [.1B77.0024.0008] # <LATIN CAPITAL LETTER U WITH DIAERESIS, COMBINING GRAVE TONE MARK>
+00FC      ; [.1B77.0025.0002] # LATIN SMALL LETTER U WITH DIAERESIS
+0075 0308 ; [.1B77.0025.0002] # LATIN SMALL LETTER U WITH DIAERESIS
+00DC      ; [.1B77.0025.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS
+0055 0308 ; [.1B77.0025.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS
+FDD0 0041 ; [.8000.0020.0002] # <noncharacter-FDD0, LATIN CAPITAL LETTER A>
+FDD0 0042 ; [.80C5.0020.0002] # <noncharacter-FDD0, LATIN CAPITAL LETTER B>
+FDD0 0043 ; [.8441.0020.0002] # <noncharacter-FDD0, LATIN CAPITAL LETTER C>
+FDD0 0044 ; [.897D.0020.0002] # <noncharacter-FDD0, LATIN CAPITAL LETTER D>
+FDD0 0045 ; [.8D61.0020.0002] # <noncharacter-FDD0, LATIN CAPITAL LETTER E>
+FDD0 0046 ; [.8E1B.0020.0002] # <noncharacter-FDD0, LATIN CAPITAL LETTER F>
+FDD0 0047 ; [.9089.0020.0002] # <noncharacter-FDD0, LATIN CAPITAL LETTER G>
+FDD0 0048 ; [.93C4.0020.0002] # <noncharacter-FDD0, LATIN CAPITAL LETTER H>
+FDD0 004A ; [.97EC.0020.0002] # <noncharacter-FDD0, LATIN CAPITAL LETTER J>
+FDD0 004B ; [.9E32.0020.0002] # <noncharacter-FDD0, LATIN CAPITAL LETTER K>
+FDD0 004C ; [.A05D.0020.0002] # <noncharacter-FDD0, LATIN CAPITAL LETTER L>
+3007      ; [.A401.0020.0002] # IDEOGRAPHIC NUMBER ZERO
+FDD0 004D ; [.A680.0020.0002] # <noncharacter-FDD0, LATIN CAPITAL LETTER M>
+FDD0 004E ; [.A9A9.0020.0002] # <noncharacter-FDD0, LATIN CAPITAL LETTER N>
+FDD0 004F ; [.AB89.0020.0002] # <noncharacter-FDD0, LATIN CAPITAL LETTER O>
+FDD0 0050 ; [.ABAC.0020.0002] # <noncharacter-FDD0, LATIN CAPITAL LETTER P>
+FDD0 0051 ; [.AE02.0020.0002] # <noncharacter-FDD0, LATIN CAPITAL LETTER Q>
+FDD0 0052 ; [.B1F1.0020.0002] # <noncharacter-FDD0, LATIN CAPITAL LETTER R>
+FDD0 0053 ; [.B337.0020.0002] # <noncharacter-FDD0, LATIN CAPITAL LETTER S>
+FDD0 0054 ; [.B858.0020.0002] # <noncharacter-FDD0, LATIN CAPITAL LETTER T>
+FDD0 0057 ; [.BBD3.0020.0002] # <noncharacter-FDD0, LATIN CAPITAL LETTER W>
+FDD0 0058 ; [.BE4A.0020.0002] # <noncharacter-FDD0, LATIN CAPITAL LETTER X>
+FDD0 0059 ; [.C382.0020.0002] # <noncharacter-FDD0, LATIN CAPITAL LETTER Y>
+FDD0 005A ; [.CB22.0020.0002] # <noncharacter-FDD0, LATIN CAPITAL LETTER Z>
+3220      ; [*030A.0020.0004][.C5CF.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH ONE
+3226      ; [*030A.0020.0004][.AE03.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH SEVEN
+3222      ; [*030A.0020.0004][.B35F.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH THREE
+3228      ; [*030A.0020.0004][.9C92.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH NINE
+3221      ; [*030A.0020.0004][.8E0E.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH TWO
+3224      ; [*030A.0020.0004][.BDF1.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH FIVE
+3239      ; [*030A.0020.0004][.89B6.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH REPRESENT
+323D      ; [*030A.0020.0004][.AE82.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH ENTERPRISE
+3241      ; [*030A.0020.0004][.C1F9.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH REST
+3227      ; [*030A.0020.0004][.80C6.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH EIGHT
+3225      ; [*030A.0020.0004][.A49F.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH SIX
+3238      ; [*030A.0020.0004][.A132.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH LABOR
+3229      ; [*030A.0020.0004][.B57B.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH TEN
+323F      ; [*030A.0020.0004][.C10A.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH ALLIANCE
+3234      ; [*030A.0020.0004][.A8EB.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH NAME
+323A      ; [*030A.0020.0004][.9589.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH CALL
+3223      ; [*030A.0020.0004][.B715.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH FOUR
+322F      ; [*030A.0020.0004][.BB2D.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH EARTH
+323B      ; [*030A.0020.0004][.C304.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH STUDY
+3230      ; [*030A.0020.0004][.B272.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH SUN
+322A      ; [*030A.0020.0004][.CA96.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH MOON
+3232      ; [*030A.0020.0004][.C8D2.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH HAVE
+322D      ; [*030A.0020.0004][.A98A.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH WOOD
+3231      ; [*030A.0020.0004][.CF58.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH STOCK
+322C      ; [*030A.0020.0004][.B6BA.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH WATER
+322B      ; [*030A.0020.0004][.97BC.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH FIRE
+3235      ; [*030A.0020.0004][.B980.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH SPECIAL
+323C      ; [*030A.0020.0004][.999B.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH SUPERVISE
+3233      ; [*030A.0020.0004][.B4AC.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH SOCIETY
+3237      ; [*030A.0020.0004][.CFAD.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH CONGRATULATION
+3240      ; [*030A.0020.0004][.98D6.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH FESTIVAL
+3242      ; [*030A.0020.0004][.D0D4.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH SELF
+3243      ; [*030A.0020.0004][.CE51.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH REACH
+3236      ; [*030A.0020.0004][.844F.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH FINANCIAL
+323E      ; [*030A.0020.0004][.D0A3.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH RESOURCE
+322E      ; [*030A.0020.0004][.9B96.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH METAL
+3358      ; [.1902.0020.0004][.8B60.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR ZERO
+33E9      ; [.1903.0020.0004][.1902.0020.0004][.B272.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TEN
+32C9      ; [.1903.0020.0004][.1902.0020.0004][.CA96.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR OCTOBER
+3362      ; [.1903.0020.0004][.1902.0020.0004][.8B60.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR TEN
+33EA      ; [.1903.0020.0004][.1903.0020.0004][.B272.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY ELEVEN
+32CA      ; [.1903.0020.0004][.1903.0020.0004][.CA96.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR NOVEMBER
+3363      ; [.1903.0020.0004][.1903.0020.0004][.8B60.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR ELEVEN
+33EB      ; [.1903.0020.0004][.1904.0020.0004][.B272.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWELVE
+32CB      ; [.1903.0020.0004][.1904.0020.0004][.CA96.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DECEMBER
+3364      ; [.1903.0020.0004][.1904.0020.0004][.8B60.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR TWELVE
+33EC      ; [.1903.0020.0004][.1905.0020.0004][.B272.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY THIRTEEN
+3365      ; [.1903.0020.0004][.1905.0020.0004][.8B60.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR THIRTEEN
+33ED      ; [.1903.0020.0004][.1906.0020.0004][.B272.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY FOURTEEN
+3366      ; [.1903.0020.0004][.1906.0020.0004][.8B60.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR FOURTEEN
+33EE      ; [.1903.0020.0004][.1907.0020.0004][.B272.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY FIFTEEN
+3367      ; [.1903.0020.0004][.1907.0020.0004][.8B60.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR FIFTEEN
+33EF      ; [.1903.0020.0004][.1908.0020.0004][.B272.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY SIXTEEN
+3368      ; [.1903.0020.0004][.1908.0020.0004][.8B60.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR SIXTEEN
+33F0      ; [.1903.0020.0004][.1909.0020.0004][.B272.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY SEVENTEEN
+3369      ; [.1903.0020.0004][.1909.0020.0004][.8B60.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR SEVENTEEN
+33F1      ; [.1903.0020.0004][.190A.0020.0004][.B272.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY EIGHTEEN
+336A      ; [.1903.0020.0004][.190A.0020.0004][.8B60.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR EIGHTEEN
+33F2      ; [.1903.0020.0004][.190B.0020.0004][.B272.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY NINETEEN
+336B      ; [.1903.0020.0004][.190B.0020.0004][.8B60.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR NINETEEN
+33E0      ; [.1903.0020.0004][.B272.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY ONE
+32C0      ; [.1903.0020.0004][.CA96.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR JANUARY
+3359      ; [.1903.0020.0004][.8B60.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR ONE
+33F3      ; [.1904.0020.0004][.1902.0020.0004][.B272.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY
+336C      ; [.1904.0020.0004][.1902.0020.0004][.8B60.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR TWENTY
+33F4      ; [.1904.0020.0004][.1903.0020.0004][.B272.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY-ONE
+336D      ; [.1904.0020.0004][.1903.0020.0004][.8B60.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR TWENTY-ONE
+33F5      ; [.1904.0020.0004][.1904.0020.0004][.B272.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY-TWO
+336E      ; [.1904.0020.0004][.1904.0020.0004][.8B60.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR TWENTY-TWO
+33F6      ; [.1904.0020.0004][.1905.0020.0004][.B272.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY-THREE
+336F      ; [.1904.0020.0004][.1905.0020.0004][.8B60.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR TWENTY-THREE
+33F7      ; [.1904.0020.0004][.1906.0020.0004][.B272.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY-FOUR
+3370      ; [.1904.0020.0004][.1906.0020.0004][.8B60.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR TWENTY-FOUR
+33F8      ; [.1904.0020.0004][.1907.0020.0004][.B272.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY-FIVE
+33F9      ; [.1904.0020.0004][.1908.0020.0004][.B272.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY-SIX
+33FA      ; [.1904.0020.0004][.1909.0020.0004][.B272.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY-SEVEN
+33FB      ; [.1904.0020.0004][.190A.0020.0004][.B272.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY-EIGHT
+33FC      ; [.1904.0020.0004][.190B.0020.0004][.B272.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY-NINE
+33E1      ; [.1904.0020.0004][.B272.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWO
+32C1      ; [.1904.0020.0004][.CA96.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR FEBRUARY
+335A      ; [.1904.0020.0004][.8B60.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR TWO
+33FD      ; [.1905.0020.0004][.1902.0020.0004][.B272.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY THIRTY
+33FE      ; [.1905.0020.0004][.1903.0020.0004][.B272.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY THIRTY-ONE
+33E2      ; [.1905.0020.0004][.B272.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY THREE
+32C2      ; [.1905.0020.0004][.CA96.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR MARCH
+335B      ; [.1905.0020.0004][.8B60.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR THREE
+33E3      ; [.1906.0020.0004][.B272.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY FOUR
+32C3      ; [.1906.0020.0004][.CA96.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR APRIL
+335C      ; [.1906.0020.0004][.8B60.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR FOUR
+33E4      ; [.1907.0020.0004][.B272.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY FIVE
+32C4      ; [.1907.0020.0004][.CA96.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR MAY
+335D      ; [.1907.0020.0004][.8B60.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR FIVE
+33E5      ; [.1908.0020.0004][.B272.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY SIX
+32C5      ; [.1908.0020.0004][.CA96.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR JUNE
+335E      ; [.1908.0020.0004][.8B60.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR SIX
+33E6      ; [.1909.0020.0004][.B272.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY SEVEN
+32C6      ; [.1909.0020.0004][.CA96.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR JULY
+335F      ; [.1909.0020.0004][.8B60.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR SEVEN
+33E7      ; [.190A.0020.0004][.B272.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY EIGHT
+32C7      ; [.190A.0020.0004][.CA96.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR AUGUST
+3360      ; [.190A.0020.0004][.8B60.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR EIGHT
+33E8      ; [.190B.0020.0004][.B272.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY NINE
+32C8      ; [.190B.0020.0004][.CA96.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR SEPTEMBER
+3361      ; [.190B.0020.0004][.8B60.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR NINE
+1F241     ; [*036C.0020.0004][.B35F.0020.0004][*036D.0020.0004] # TORTOISE SHELL BRACKETED CJK UNIFIED IDEOGRAPH-4E09
+1F242     ; [*036C.0020.0004][.8E0E.0020.0004][*036D.0020.0004] # TORTOISE SHELL BRACKETED CJK UNIFIED IDEOGRAPH-4E8C
+1F247     ; [*036C.0020.0004][.B548.0020.0004][*036D.0020.0004] # TORTOISE SHELL BRACKETED CJK UNIFIED IDEOGRAPH-52DD
+1F243     ; [*036C.0020.0004][.8049.0020.0004][*036D.0020.0004] # TORTOISE SHELL BRACKETED CJK UNIFIED IDEOGRAPH-5B89
+1F245     ; [*036C.0020.0004][.89A6.0020.0004][*036D.0020.0004] # TORTOISE SHELL BRACKETED CJK UNIFIED IDEOGRAPH-6253
+1F248     ; [*036C.0020.0004][.811B.0020.0004][*036D.0020.0004] # TORTOISE SHELL BRACKETED CJK UNIFIED IDEOGRAPH-6557
+1F240     ; [*036C.0020.0004][.81FC.0020.0004][*036D.0020.0004] # TORTOISE SHELL BRACKETED CJK UNIFIED IDEOGRAPH-672C
+1F244     ; [*036C.0020.0004][.8B60.0020.0004][*036D.0020.0004] # TORTOISE SHELL BRACKETED CJK UNIFIED IDEOGRAPH-70B9
+1F246     ; [*036C.0020.0004][.8A91.0020.0004][*036D.0020.0004] # TORTOISE SHELL BRACKETED CJK UNIFIED IDEOGRAPH-76D7
+2F00      ; [.C5CF.0020.0004] # KANGXI RADICAL ONE
+3192      ; [.C5CF.0020.0014] # IDEOGRAPHIC ANNOTATION ONE MARK
+3280      ; [.C5CF.0020.0006] # CIRCLED IDEOGRAPH ONE
+1F229     ; [.C5CF.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-4E00
+319C      ; [.8BE6.0020.0014] # IDEOGRAPHIC ANNOTATION FOURTH MARK
+3286      ; [.AE03.0020.0006] # CIRCLED IDEOGRAPH SEVEN
+3194      ; [.B35F.0020.0014] # IDEOGRAPHIC ANNOTATION THREE MARK
+3282      ; [.B35F.0020.0006] # CIRCLED IDEOGRAPH THREE
+1F22A     ; [.B35F.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-4E09
+3196      ; [.B46D.0020.0014] # IDEOGRAPHIC ANNOTATION TOP MARK
+32A4      ; [.B46D.0020.0006] # CIRCLED IDEOGRAPH HIGH
+3198      ; [.BF75.0020.0014] # IDEOGRAPHIC ANNOTATION BOTTOM MARK
+32A6      ; [.BF75.0020.0006] # CIRCLED IDEOGRAPH LOW
+319B      ; [.8382.0020.0014] # IDEOGRAPHIC ANNOTATION THIRD MARK
+2F01      ; [.937A.0020.0004] # KANGXI RADICAL LINE
+3197      ; [.CECC.0020.0014] # IDEOGRAPHIC ANNOTATION MIDDLE MARK
+32A5      ; [.CECC.0020.0006] # CIRCLED IDEOGRAPH CENTRE
+1F22D     ; [.CECC.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-4E2D
+2F02      ; [.CF8B.0020.0004] # KANGXI RADICAL DOT
+2F03      ; [.AD44.0020.0004] # KANGXI RADICAL SLASH
+2F04      ; [.C643.0020.0004] # KANGXI RADICAL SECOND
+319A      ; [.C643.0020.0014] # IDEOGRAPHIC ANNOTATION SECOND MARK
+3288      ; [.9C92.0020.0006] # CIRCLED IDEOGRAPH NINE
+2F05      ; [.9D9D.0020.0004] # KANGXI RADICAL HOOK
+2F06      ; [.8E0E.0020.0004] # KANGXI RADICAL TWO
+3193      ; [.8E0E.0020.0014] # IDEOGRAPHIC ANNOTATION TWO MARK
+3281      ; [.8E0E.0020.0006] # CIRCLED IDEOGRAPH TWO
+1F214     ; [.8E0E.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-4E8C
+3284      ; [.BDF1.0020.0006] # CIRCLED IDEOGRAPH FIVE
+2F07      ; [.BAE9.0020.0004] # KANGXI RADICAL LID
+1F218     ; [.9A8F.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-4EA4
+2F08      ; [.B22F.0020.0004] # KANGXI RADICAL MAN
+319F      ; [.B22F.0020.0014] # IDEOGRAPHIC ANNOTATION MAN MARK
+32AD      ; [.AE82.0020.0006] # CIRCLED IDEOGRAPH ENTERPRISE
+32A1      ; [.C1F9.0020.0006] # CIRCLED IDEOGRAPH REST
+329D      ; [.C8A5.0020.0006] # CIRCLED IDEOGRAPH EXCELLENT
+2F09      ; [.8DE5.0020.0004] # KANGXI RADICAL LEGS
+2F0A      ; [.B2E8.0020.0004] # KANGXI RADICAL ENTER
+2F0B      ; [.80C6.0020.0004] # KANGXI RADICAL EIGHT
+3287      ; [.80C6.0020.0006] # CIRCLED IDEOGRAPH EIGHT
+3285      ; [.A49F.0020.0006] # CIRCLED IDEOGRAPH SIX
+2F0C      ; [.9C60.0020.0004] # KANGXI RADICAL DOWN BOX
+1F21E     ; [.CB49.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-518D
+2F0D      ; [.A832.0020.0004] # KANGXI RADICAL COVER
+32A2      ; [.C132.0020.0006] # CIRCLED IDEOGRAPH COPY
+2F0E      ; [.837B.0020.0004] # KANGXI RADICAL ICE
+2F0F      ; [.989A.0020.0004] # KANGXI RADICAL TABLE
+2F10      ; [.AF3D.0020.0004] # KANGXI RADICAL OPEN BOX
+2F11      ; [.8A71.0020.0004] # KANGXI RADICAL KNIFE
+1F220     ; [.8779.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-521D
+1F21C     ; [.AF1F.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-524D
+1F239     ; [.9162.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-5272
+2F12      ; [.A237.0020.0004] # KANGXI RADICAL POWER
+3298      ; [.A132.0020.0006] # CIRCLED IDEOGRAPH LABOR
+2F13      ; [.8175.0020.0004] # KANGXI RADICAL WRAP
+2F14      ; [.8238.0020.0004] # KANGXI RADICAL SPOON
+2F15      ; [.8E8F.0020.0004] # KANGXI RADICAL RIGHT OPEN BOX
+2F16      ; [.BF01.0020.0004] # KANGXI RADICAL HIDING ENCLOSURE
+32A9      ; [.C5D4.0020.0006] # CIRCLED IDEOGRAPH MEDICINE
+2F17      ; [.B57B.0020.0004] # KANGXI RADICAL TEN
+3038      ; [.B57B.0020.0004] # HANGZHOU NUMERAL TEN
+3289      ; [.B57B.0020.0006] # CIRCLED IDEOGRAPH TEN
+3039      ; [.AAA8.0020.0004] # HANGZHOU NUMERAL TWENTY
+303A      ; [.B342.0020.0004] # HANGZHOU NUMERAL THIRTY
+32AF      ; [.C10A.0020.0006] # CIRCLED IDEOGRAPH ALLIANCE
+2F18      ; [.8410.0020.0004] # KANGXI RADICAL DIVINATION
+2F19      ; [.9B2A.0020.0004] # KANGXI RADICAL SEAL
+329E      ; [.C7AF.0020.0006] # CIRCLED IDEOGRAPH PRINT
+2F1A      ; [.85AC.0020.0004] # KANGXI RADICAL CLIFF
+2F1B      ; [.B6E4.0020.0004] # KANGXI RADICAL PRIVATE
+2F1C      ; [.C8E8.0020.0004] # KANGXI RADICAL AGAIN
+1F212     ; [.B6A1.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-53CC
+2F1D      ; [.9F2E.0020.0004] # KANGXI RADICAL MOUTH
+1F251     ; [.9ED7.0020.0006] # CIRCLED IDEOGRAPH ACCEPT
+32A8      ; [.C8E9.0020.0006] # CIRCLED IDEOGRAPH RIGHT
+1F22E     ; [.C8E9.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-53F3
+1F234     ; [.9499.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-5408
+3294      ; [.A8EB.0020.0006] # CIRCLED IDEOGRAPH NAME
+1F225     ; [.8816.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-5439
+3244      ; [.BD6F.0020.0006] # CIRCLED IDEOGRAPH QUESTION
+1F23A     ; [.C804.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-55B6
+2F1E      ; [.BC8F.0020.0004] # KANGXI RADICAL ENCLOSURE
+3195      ; [.B715.0020.0014] # IDEOGRAPHIC ANNOTATION FOUR MARK
+3283      ; [.B715.0020.0006] # CIRCLED IDEOGRAPH FOUR
+2F1F      ; [.BB2D.0020.0004] # KANGXI RADICAL EARTH
+328F      ; [.BB2D.0020.0006] # CIRCLED IDEOGRAPH EARTH
+319E      ; [.8AAF.0020.0014] # IDEOGRAPHIC ANNOTATION EARTH MARK
+2F20      ; [.B5A9.0020.0004] # KANGXI RADICAL SCHOLAR
+1F224     ; [.B526.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-58F0
+2F21      ; [.CE2D.0020.0004] # KANGXI RADICAL GO
+2F22      ; [.B7D9.0020.0004] # KANGXI RADICAL GO SLOWLY
+2F23      ; [.BE4B.0020.0004] # KANGXI RADICAL EVENING
+1F215     ; [.8D1C.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-591A
+32B0      ; [.C59A.0020.0006] # CIRCLED IDEOGRAPH NIGHT
+2F24      ; [.89A7.0020.0004] # KANGXI RADICAL BIG
+337D      ; [.89A7.0020.001C][.CDCB.0020.001C] # SQUARE ERA NAME TAISYOU
+319D      ; [.B9F9.0020.0014] # IDEOGRAPHIC ANNOTATION HEAVEN MARK
+1F217     ; [.B9F9.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-5929
+2F25      ; [.AB5E.0020.0004] # KANGXI RADICAL WOMAN
+329B      ; [.AB5E.0020.0006] # CIRCLED IDEOGRAPH FEMALE
+2F26      ; [.D0E1.0020.0004] # KANGXI RADICAL CHILD
+1F211     ; [.D0D3.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-5B57
+32AB      ; [.C304.0020.0006] # CIRCLED IDEOGRAPH STUDY
+2F27      ; [.A858.0020.0004] # KANGXI RADICAL ROOF
+32AA      ; [.D0E4.0020.0006] # CIRCLED IDEOGRAPH RELIGION
+2F28      ; [.8955.0020.0004] # KANGXI RADICAL INCH
+2F29      ; [.C0DE.0020.0004] # KANGXI RADICAL SMALL
+2F2A      ; [.C8AC.0020.0004] # KANGXI RADICAL LAME
+2F2B      ; [.B554.0020.0004] # KANGXI RADICAL CORPSE
+2F2C      ; [.85F7.0020.0004] # KANGXI RADICAL SPROUT
+2F2D      ; [.B3FD.0020.0004] # KANGXI RADICAL MOUNTAIN
+2F2E      ; [.87DC.0020.0004] # KANGXI RADICAL RIVER
+2F2F      ; [.91CB.0020.0004] # KANGXI RADICAL WORK
+32A7      ; [.D19D.0020.0006] # CIRCLED IDEOGRAPH LEFT
+1F22C     ; [.D19D.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-5DE6
+2F30      ; [.989B.0020.0004] # KANGXI RADICAL ONESELF
+2F31      ; [.9B91.0020.0004] # KANGXI RADICAL TURBAN
+2F32      ; [.90EE.0020.0004] # KANGXI RADICAL DRY
+337B      ; [.AD6D.0020.001C][.866D.0020.001C] # SQUARE ERA NAME HEISEI
+2F33      ; [.C50D.0020.0004] # KANGXI RADICAL SHORT THREAD
+3245      ; [.C8EA.0020.0006] # CIRCLED IDEOGRAPH KINDERGARTEN
+2F34      ; [.9307.0020.0004] # KANGXI RADICAL DOTTED CLIFF
+2F35      ; [.C792.0020.0004] # KANGXI RADICAL LONG STRIDE
+2F36      ; [.91E7.0020.0004] # KANGXI RADICAL TWO HANDS
+2F37      ; [.C66C.0020.0004] # KANGXI RADICAL SHOOT
+2F38      ; [.91CC.0020.0004] # KANGXI RADICAL BOW
+2F39      ; [.98AF.0020.0004] # KANGXI RADICAL SNOUT
+2F3A      ; [.B3FE.0020.0004] # KANGXI RADICAL BRISTLE
+2F3B      ; [.86F1.0020.0004] # KANGXI RADICAL STEP
+1F21D     ; [.957C.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-5F8C
+1F250     ; [.8AB1.0020.0006] # CIRCLED IDEOGRAPH ADVANTAGE
+2F3C      ; [.C178.0020.0004] # KANGXI RADICAL HEART
+2F3D      ; [.9153.0020.0004] # KANGXI RADICAL HALBERD
+2F3E      ; [.95D9.0020.0004] # KANGXI RADICAL DOOR
+2F3F      ; [.B60C.0020.0004] # KANGXI RADICAL HAND
+1F210     ; [.B60C.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-624B
+1F231     ; [.89A6.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-6253
+1F227     ; [.BAEB.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-6295
+1F22F     ; [.CE40.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-6307
+1F228     ; [.8420.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-6355
+2F40      ; [.CDDA.0020.0004] # KANGXI RADICAL BRANCH
+2F41      ; [.ADCC.0020.0004] # KANGXI RADICAL RAP
+2F42      ; [.BD44.0020.0004] # KANGXI RADICAL SCRIPT
+3246      ; [.BD44.0020.0006] # CIRCLED IDEOGRAPH SCHOOL
+2F43      ; [.8C5E.0020.0004] # KANGXI RADICAL DIPPER
+1F21B     ; [.A385.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-6599
+2F44      ; [.9B93.0020.0004] # KANGXI RADICAL AXE
+1F21F     ; [.C188.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-65B0
+2F45      ; [.8E90.0020.0004] # KANGXI RADICAL SQUARE
+2F46      ; [.BDD2.0020.0004] # KANGXI RADICAL NOT
+2F47      ; [.B272.0020.0004] # KANGXI RADICAL SUN
+3290      ; [.B272.0020.0006] # CIRCLED IDEOGRAPH SUN
+337E      ; [.A8EC.0020.001C][.CE5C.0020.001C] # SQUARE ERA NAME MEIZI
+1F219     ; [.C83C.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-6620
+337C      ; [.CCD5.0020.001C][.949E.0020.001C] # SQUARE ERA NAME SYOUWA
+2F48      ; [.CA8E.0020.0004] # KANGXI RADICAL SAY
+2F49      ; [.CA96.0020.0004] # KANGXI RADICAL MOON
+328A      ; [.CA96.0020.0006] # CIRCLED IDEOGRAPH MOON
+1F237     ; [.CA96.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-6708
+3292      ; [.C8D2.0020.0006] # CIRCLED IDEOGRAPH HAVE
+1F236     ; [.C8D2.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-6709
+2F4A      ; [.A98A.0020.0004] # KANGXI RADICAL TREE
+328D      ; [.A98A.0020.0006] # CIRCLED IDEOGRAPH WOOD
+3291      ; [.CF58.0020.0006] # CIRCLED IDEOGRAPH STOCK
+337F      ; [.CF58.0020.001C][.B5B3.0020.001C][.9737.0020.001C][.B4AC.0020.001C] # SQUARE CORPORATION
+2F4B      ; [.AF4C.0020.0004] # KANGXI RADICAL LACK
+2F4C      ; [.CE2E.0020.0004] # KANGXI RADICAL STOP
+32A3      ; [.CDCB.0020.0006] # CIRCLED IDEOGRAPH CORRECT
+2F4D      ; [.89B3.0020.0004] # KANGXI RADICAL DEATH
+2F4E      ; [.B623.0020.0004] # KANGXI RADICAL WEAPON
+2F4F      ; [.BDD3.0020.0004] # KANGXI RADICAL DO NOT
+2E9F      ; [.A97A.0020.0004] # CJK RADICAL MOTHER
+2F50      ; [.8239.0020.0004] # KANGXI RADICAL COMPARE
+2F51      ; [.A71D.0020.0004] # KANGXI RADICAL FUR
+2F52      ; [.B5AA.0020.0004] # KANGXI RADICAL CLAN
+2F53      ; [.AE99.0020.0004] # KANGXI RADICAL STEAM
+2F54      ; [.B6BA.0020.0004] # KANGXI RADICAL WATER
+328C      ; [.B6BA.0020.0006] # CIRCLED IDEOGRAPH WATER
+329F      ; [.CFA5.0020.0006] # CIRCLED IDEOGRAPH ATTENTION
+1F235     ; [.A6DD.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-6E80
+1F226     ; [.C445.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-6F14
+2F55      ; [.97BC.0020.0004] # KANGXI RADICAL FIRE
+328B      ; [.97BC.0020.0006] # CIRCLED IDEOGRAPH FIRE
+1F21A     ; [.BDE3.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-7121
+2F56      ; [.CCDE.0020.0004] # KANGXI RADICAL CLAW
+2F57      ; [.9046.0020.0004] # KANGXI RADICAL FATHER
+2F58      ; [.C51B.0020.0004] # KANGXI RADICAL DOUBLE X
+2F59      ; [.ABD3.0020.0004] # KANGXI RADICAL HALF TREE TRUNK
+2F5A      ; [.AD1C.0020.0004] # KANGXI RADICAL SLICE
+2F5B      ; [.C397.0020.0004] # KANGXI RADICAL FANG
+2F5C      ; [.AB21.0020.0004] # KANGXI RADICAL COW
+3295      ; [.B980.0020.0006] # CIRCLED IDEOGRAPH SPECIAL
+2F5D      ; [.B1B4.0020.0004] # KANGXI RADICAL DOG
+2F5E      ; [.C2C8.0020.0004] # KANGXI RADICAL PROFOUND
+2F5F      ; [.C99A.0020.0004] # KANGXI RADICAL JADE
+2F60      ; [.928E.0020.0004] # KANGXI RADICAL MELON
+2F61      ; [.BBE5.0020.0004] # KANGXI RADICAL TILE
+2F62      ; [.90BE.0020.0004] # KANGXI RADICAL SWEET
+2F63      ; [.B523.0020.0004] # KANGXI RADICAL LIFE
+1F222     ; [.B523.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-751F
+2F64      ; [.C894.0020.0004] # KANGXI RADICAL USE
+2F65      ; [.BA01.0020.0004] # KANGXI RADICAL FIELD
+3199      ; [.9955.0020.0014] # IDEOGRAPHIC ANNOTATION FIRST MARK
+1F238     ; [.B4C6.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-7533
+329A      ; [.A9E0.0020.0006] # CIRCLED IDEOGRAPH MALE
+2F66      ; [.ACE2.0020.0004] # KANGXI RADICAL BOLT OF CLOTH
+2F67      ; [.AA2F.0020.0004] # KANGXI RADICAL SICKNESS
+2F68      ; [.83AC.0020.0004] # KANGXI RADICAL DOTTED TENT
+2F69      ; [.810B.0020.0004] # KANGXI RADICAL WHITE
+2F6A      ; [.ACBB.0020.0004] # KANGXI RADICAL SKIN
+2F6B      ; [.A8CF.0020.0004] # KANGXI RADICAL DISH
+32AC      ; [.999B.0020.0006] # CIRCLED IDEOGRAPH SUPERVISE
+2F6C      ; [.A98D.0020.0004] # KANGXI RADICAL EYE
+2F6D      ; [.A71E.0020.0004] # KANGXI RADICAL SPEAR
+2F6E      ; [.B59D.0020.0004] # KANGXI RADICAL ARROW
+2F6F      ; [.B57D.0020.0004] # KANGXI RADICAL STONE
+2F70      ; [.B5B0.0020.0004] # KANGXI RADICAL SPIRIT
+3293      ; [.B4AC.0020.0006] # CIRCLED IDEOGRAPH SOCIETY
+3297      ; [.CFAD.0020.0006] # CIRCLED IDEOGRAPH CONGRATULATION
+1F232     ; [.9BD6.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-7981
+2F71      ; [.B2AC.0020.0004] # KANGXI RADICAL TRACK
+2F72      ; [.9498.0020.0004] # KANGXI RADICAL GRAIN
+3299      ; [.A83C.0020.0006] # CIRCLED IDEOGRAPH SECRET
+2F73      ; [.C301.0020.0004] # KANGXI RADICAL CAVE
+1F233     ; [.9F18.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-7A7A
+2F74      ; [.A23B.0020.0004] # KANGXI RADICAL STAND
+2F75      ; [.CF74.0020.0004] # KANGXI RADICAL BAMBOO
+3247      ; [.CDBB.0020.0006] # CIRCLED IDEOGRAPH KOTO
+2F76      ; [.A821.0020.0004] # KANGXI RADICAL RICE
+2F77      ; [.A833.0020.0004] # KANGXI RADICAL SILK
+1F221     ; [.CEDC.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-7D42
+2F78      ; [.8F9E.0020.0004] # KANGXI RADICAL JAR
+2F79      ; [.BC56.0020.0004] # KANGXI RADICAL NET
+2F7A      ; [.C4C4.0020.0004] # KANGXI RADICAL SHEEP
+2F7B      ; [.C975.0020.0004] # KANGXI RADICAL FEATHER
+2F7C      ; [.A149.0020.0004] # KANGXI RADICAL OLD
+2F7D      ; [.8DE6.0020.0004] # KANGXI RADICAL AND
+2F7E      ; [.A19B.0020.0004] # KANGXI RADICAL PLOW
+2F7F      ; [.8E00.0020.0004] # KANGXI RADICAL EAR
+2F80      ; [.C99D.0020.0004] # KANGXI RADICAL BRUSH
+2F81      ; [.B2C1.0020.0004] # KANGXI RADICAL MEAT
+2F82      ; [.8612.0020.0004] # KANGXI RADICAL MINISTER
+2F83      ; [.D0D4.0020.0004] # KANGXI RADICAL SELF
+2F84      ; [.CE51.0020.0004] # KANGXI RADICAL ARRIVE
+2F85      ; [.9CA1.0020.0004] # KANGXI RADICAL MORTAR
+2F86      ; [.B4A3.0020.0004] # KANGXI RADICAL TONGUE
+2F87      ; [.87EF.0020.0004] # KANGXI RADICAL OPPOSE
+2F88      ; [.CF09.0020.0004] # KANGXI RADICAL BOAT
+2F89      ; [.91A3.0020.0004] # KANGXI RADICAL STOPPING
+2F8A      ; [.B3A0.0020.0004] # KANGXI RADICAL COLOR
+2F8B      ; [.84B1.0020.0004] # KANGXI RADICAL GRASS
+2F8C      ; [.9588.0020.0004] # KANGXI RADICAL TIGER
+2F8D      ; [.872E.0020.0004] # KANGXI RADICAL INSECT
+2F8E      ; [.C317.0020.0004] # KANGXI RADICAL BLOOD
+2F8F      ; [.C1BA.0020.0004] # KANGXI RADICAL WALK ENCLOSURE
+2F90      ; [.C5D3.0020.0004] # KANGXI RADICAL CLOTHES
+2F91      ; [.C3B8.0020.0004] # KANGXI RADICAL WEST
+2F92      ; [.99FE.0020.0004] # KANGXI RADICAL SEE
+2F93      ; [.9AB8.0020.0004] # KANGXI RADICAL HORN
+1F216     ; [.9B6C.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-89E3
+2F94      ; [.C3F5.0020.0004] # KANGXI RADICAL SPEECH
+2F95      ; [.924B.0020.0004] # KANGXI RADICAL VALLEY
+2F96      ; [.8C5F.0020.0004] # KANGXI RADICAL BEAN
+2F97      ; [.B59F.0020.0004] # KANGXI RADICAL PIG
+2F98      ; [.CE56.0020.0004] # KANGXI RADICAL BADGER
+2F99      ; [.81CA.0020.0004] # KANGXI RADICAL SHELL
+3296      ; [.844F.0020.0006] # CIRCLED IDEOGRAPH FINANCIAL
+1F223     ; [.8E87.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-8CA9
+32AE      ; [.D0A3.0020.0006] # CIRCLED IDEOGRAPH RESOURCE
+2F9A      ; [.86F6.0020.0004] # KANGXI RADICAL RED
+2F9B      ; [.D138.0020.0004] # KANGXI RADICAL RUN
+1F230     ; [.D138.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-8D70
+2F9C      ; [.D141.0020.0004] # KANGXI RADICAL FOOT
+2F9D      ; [.B4CA.0020.0004] # KANGXI RADICAL BODY
+2F9E      ; [.85ED.0020.0004] # KANGXI RADICAL CART
+2F9F      ; [.C17D.0020.0004] # KANGXI RADICAL BITTER
+2FA0      ; [.8616.0020.0004] # KANGXI RADICAL MORNING
+2FA1      ; [.8858.0020.0004] # KANGXI RADICAL WALK
+1F22B     ; [.C8C4.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-904A
+329C      ; [.B5EC.0020.0006] # CIRCLED IDEOGRAPH SUITABLE
+2FA2      ; [.C682.0020.0004] # KANGXI RADICAL CITY
+2FA3      ; [.C8D6.0020.0004] # KANGXI RADICAL WINE
+2FA4      ; [.82F0.0020.0004] # KANGXI RADICAL DISTINGUISH
+2FA5      ; [.A21E.0020.0004] # KANGXI RADICAL VILLAGE
+2FA6      ; [.9B96.0020.0004] # KANGXI RADICAL GOLD
+328E      ; [.9B96.0020.0006] # CIRCLED IDEOGRAPH METAL
+2FA7      ; [.CCB5.0020.0004] # KANGXI RADICAL LONG
+2FA8      ; [.A7B4.0020.0004] # KANGXI RADICAL GATE
+2FA9      ; [.904E.0020.0004] # KANGXI RADICAL MOUND
+2FAA      ; [.A24C.0020.0004] # KANGXI RADICAL SLAVE
+2FAB      ; [.D014.0020.0004] # KANGXI RADICAL SHORT TAILED BIRD
+2FAC      ; [.C976.0020.0004] # KANGXI RADICAL RAIN
+2FAD      ; [.B063.0020.0004] # KANGXI RADICAL BLUE
+2FAE      ; [.8EB9.0020.0004] # KANGXI RADICAL WRONG
+2FAF      ; [.A882.0020.0004] # KANGXI RADICAL FACE
+2FB0      ; [.9173.0020.0004] # KANGXI RADICAL LEATHER
+2FB1      ; [.BC9A.0020.0004] # KANGXI RADICAL TANNED LEATHER
+2FB2      ; [.9C9A.0020.0004] # KANGXI RADICAL LEEK
+2FB3      ; [.C745.0020.0004] # KANGXI RADICAL SOUND
+2FB4      ; [.C59E.0020.0004] # KANGXI RADICAL LEAF
+32A0      ; [.C084.0020.0006] # CIRCLED IDEOGRAPH ITEM
+2FB5      ; [.8F57.0020.0004] # KANGXI RADICAL WIND
+2FB6      ; [.8EBA.0020.0004] # KANGXI RADICAL FLY
+2FB7      ; [.B58A.0020.0004] # KANGXI RADICAL EAT
+2FB8      ; [.B60F.0020.0004] # KANGXI RADICAL HEAD
+2FB9      ; [.C044.0020.0004] # KANGXI RADICAL FRAGRANT
+2FBA      ; [.A690.0020.0004] # KANGXI RADICAL HORSE
+2FBB      ; [.924E.0020.0004] # KANGXI RADICAL BONE
+2FBC      ; [.9124.0020.0004] # KANGXI RADICAL TALL
+2FBD      ; [.830C.0020.0004] # KANGXI RADICAL HAIR
+2FBE      ; [.8C65.0020.0004] # KANGXI RADICAL FIGHT
+2FBF      ; [.85BA.0020.0004] # KANGXI RADICAL SACRIFICIAL WINE
+2FC0      ; [.9176.0020.0004] # KANGXI RADICAL CAULDRON
+2FC1      ; [.934D.0020.0004] # KANGXI RADICAL GHOST
+2FC2      ; [.C936.0020.0004] # KANGXI RADICAL FISH
+2FC3      ; [.AABB.0020.0004] # KANGXI RADICAL BIRD
+2FC4      ; [.A552.0020.0004] # KANGXI RADICAL SALT
+2FC5      ; [.A57C.0020.0004] # KANGXI RADICAL DEER
+2FC6      ; [.A6C0.0020.0004] # KANGXI RADICAL WHEAT
+2FC7      ; [.A687.0020.0004] # KANGXI RADICAL HEMP
+2FC8      ; [.96C2.0020.0004] # KANGXI RADICAL YELLOW
+2FC9      ; [.B656.0020.0004] # KANGXI RADICAL MILLET
+2FCA      ; [.94F2.0020.0004] # KANGXI RADICAL BLACK
+2FCB      ; [.CE4C.0020.0004] # KANGXI RADICAL EMBROIDERY
+2FCC      ; [.A87C.0020.0004] # KANGXI RADICAL FROG
+2FCD      ; [.8BF6.0020.0004] # KANGXI RADICAL TRIPOD
+2FCE      ; [.9261.0020.0004] # KANGXI RADICAL DRUM
+2FCF      ; [.B659.0020.0004] # KANGXI RADICAL RAT
+2FD0      ; [.8237.0020.0004] # KANGXI RADICAL NOSE
+2FD1      ; [.AE64.0020.0004] # KANGXI RADICAL EVEN
+2FD2      ; [.86F0.0020.0004] # KANGXI RADICAL TOOTH
+2FD3      ; [.A4C6.0020.0004] # KANGXI RADICAL DRAGON
+2FD4      ; [.9336.0020.0004] # KANGXI RADICAL TURTLE
+2EF3      ; [.9317.0020.0004] # CJK RADICAL C-SIMPLIFIED TURTLE
+2FD5      ; [.CAB5.0020.0004] # KANGXI RADICAL FLUTE
+F967      ; [.8424.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F967
+FA70      ; [.839A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA70
+F905      ; [.87F6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F905
+2F801     ; [.BC07.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F801
+F95E      ; [.89E0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F95E
+2F800     ; [.A23E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F800
+2F802     ; [.C5F5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F802
+F91B      ; [.A613.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F91B
+F9BA      ; [.A17A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9BA
+F977      ; [.A342.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F977
+F9FD      ; [.B4F1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9FD
+2F819     ; [.837C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F819
+F9A8      ; [.A453.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9A8
+2F804     ; [.AA66.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F804
+FA73      ; [.C1BE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA73
+F92D      ; [.A084.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F92D
+F9B5      ; [.A245.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9B5
+FA30      ; [.BDFB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA30
+2F805     ; [.BDFB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F805
+2F806     ; [.BB64.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F806
+F965      ; [.82F3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F965
+2F807     ; [.839E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F807
+F9D4      ; [.A624.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9D4
+2F808     ; [.CB31.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F808
+2F809     ; [.81DD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F809
+2F80B     ; [.C085.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F80B
+F9BB      ; [.A356.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9BB
+FA31      ; [.B3C3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA31
+2F80A     ; [.B3C3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F80A
+FA0C      ; [.BE12.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA0C
+FA74      ; [.871C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA74
+FA32      ; [.A86B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA32
+2F80E     ; [.A86B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F80E
+2F80F     ; [.BB34.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F80F
+2F810     ; [.96DD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F810
+2F814     ; [.AA3E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F814
+FA72      ; [.B186.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA72
+F978      ; [.A338.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F978
+F9D1      ; [.A49F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9D1
+2F811     ; [.9D2C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F811
+FA75      ; [.98F1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA75
+2F815     ; [.CB49.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F815
+2F8D2     ; [.A744.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8D2
+2F8D3     ; [.A872.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8D3
+2F817     ; [.B2A3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F817
+2F818     ; [.CA20.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F818
+2F81A     ; [.8C16.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F81A
+FA71      ; [.9FAC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA71
+2F81B     ; [.9FAC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F81B
+F92E      ; [.A1CE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F92E
+F979      ; [.A329.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F979
+F955      ; [.A412.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F955
+F954      ; [.A3E3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F954
+FA15      ; [.BEA0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA15
+2F81D     ; [.AF3D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F81D
+2F81E     ; [.B244.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F81E
+FA00      ; [.AFFB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA00
+2F850     ; [.AFFB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F850
+F99C      ; [.A38C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F99C
+F9DD      ; [.A23F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9DD
+F9FF      ; [.88A0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9FF
+2F820     ; [.9EE2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F820
+2F821     ; [.A65E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F821
+2F822     ; [.9162.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F822
+2F823     ; [.8564.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F823
+F9C7      ; [.A474.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9C7
+F98A      ; [.A237.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F98A
+F99D      ; [.A38D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F99D
+2F992     ; [.A131.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F992
+FA76      ; [.C87B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA76
+2F825     ; [.C87B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F825
+FA33      ; [.A86E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA33
+2F826     ; [.A86E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F826
+F952      ; [.A17D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F952
+F92F      ; [.A139.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F92F
+FA34      ; [.B039.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA34
+2F827     ; [.B039.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F827
+F97F      ; [.A284.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F97F
+FA77      ; [.B486.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA77
+2F828     ; [.B486.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F828
+2F829     ; [.8176.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F829
+2F82A     ; [.88AB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F82A
+F963      ; [.81C5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F963
+2F82B     ; [.81C5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F82B
+F9EB      ; [.AA7F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9EB
+2F82C     ; [.9735.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F82C
+FA35      ; [.81B8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA35
+2F82D     ; [.81B8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F82D
+2F82E     ; [.83E1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F82E
+2F82F     ; [.9856.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F82F
+F91C      ; [.A610.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F91C
+2F830     ; [.985E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F830
+2F831     ; [.B068.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F831
+2F832     ; [.B068.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F832
+2F833     ; [.B068.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F833
+F96B      ; [.8464.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F96B
+2F836     ; [.984E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F836
+2F837     ; [.B77F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F837
+F906      ; [.9D21.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F906
+2F839     ; [.9AED.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F839
+2F83A     ; [.86F2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F83A
+2F83B     ; [.C50F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F83B
+F9DE      ; [.A23C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9DE
+F9ED      ; [.A3EE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9ED
+2F83D     ; [.BE4D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F83D
+F980      ; [.A5C5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F980
+2F83E     ; [.866F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F83E
+2F83F     ; [.CF0C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F83F
+2F83C     ; [.C009.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F83C
+2F840     ; [.8D98.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F840
+F99E      ; [.C468.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F99E
+2F841     ; [.A8A3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F841
+2F842     ; [.B912.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F842
+2F843     ; [.AE8E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F843
+FA79      ; [.B968.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA79
+2F844     ; [.BFC2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F844
+2F845     ; [.B434.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F845
+2F846     ; [.B434.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F846
+F90B      ; [.A06A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F90B
+FA7A      ; [.9747.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA7A
+2F847     ; [.9747.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F847
+FA36      ; [.9494.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA36
+FA78      ; [.9494.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA78
+2F848     ; [.86B2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F848
+2F849     ; [.CC0F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F849
+FA0D      ; [.95EF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA0D
+2F84A     ; [.C52C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F84A
+FA7B      ; [.BBEB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA7B
+FA37      ; [.B8FC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA37
+2F84C     ; [.B8FC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F84C
+2F84E     ; [.9460.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F84E
+FA38      ; [.AEBB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA38
+2F84F     ; [.AC52.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F84F
+F9A9      ; [.A404.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9A9
+2F84B     ; [.BB20.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F84B
+2F84D     ; [.BB21.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F84D
+2F855     ; [.C1C0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F855
+2F852     ; [.8675.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F852
+2F853     ; [.CE0E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F853
+2F854     ; [.BB35.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F854
+2F857     ; [.81A6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F857
+2F856     ; [.887F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F856
+FA39      ; [.AD95.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA39
+FA10      ; [.CEEE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA10
+FA7C      ; [.CEEE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA7C
+F96C      ; [.B352.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F96C
+FA3A      ; [.A952.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA3A
+2F858     ; [.8B3A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F858
+FA7D      ; [.8F25.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA7D
+F94A      ; [.A1A8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F94A
+F942      ; [.A4EA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F942
+2F851     ; [.D00A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F851
+2F85A     ; [.A6BB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F85A
+2F85B     ; [.95AA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F85B
+2F85C     ; [.8F78.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F85C
+2F85D     ; [.8D1C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F85D
+2F85E     ; [.A7F8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F85E
+FA7E      ; [.C42B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA7E
+F90C      ; [.A9D5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F90C
+F909      ; [.AEA8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F909
+FA7F      ; [.81F5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA7F
+2F85F     ; [.B49A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F85F
+F981      ; [.AB5E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F981
+2F865     ; [.AD48.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F865
+2F862     ; [.9802.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F862
+2F863     ; [.C92A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F863
+2F864     ; [.BB66.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F864
+FA80      ; [.826B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA80
+2F866     ; [.905C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F866
+2F986     ; [.C83F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F986
+2F869     ; [.B221.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F869
+FA81      ; [.888D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA81
+2F86A     ; [.A0ED.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F86A
+2F86B     ; [.A0ED.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F86B
+FA04      ; [.CC49.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA04
+2F86D     ; [.CA24.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F86D
+2F86E     ; [.CE90.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F86E
+F95F      ; [.AB0C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F95F
+F9AA      ; [.AB0C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9AA
+2F86F     ; [.AB0C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F86F
+F9BC      ; [.A35E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9BC
+2F870     ; [.819A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F870
+2F872     ; [.B611.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F872
+2F873     ; [.9A4D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F873
+2F875     ; [.C8AC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F875
+F9BD      ; [.AAC3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9BD
+2F877     ; [.BB13.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F877
+F94B      ; [.A5D3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F94B
+FA3B      ; [.84DD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA3B
+F9DF      ; [.A5D7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9DF
+FA3C      ; [.85F7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA3C
+2F878     ; [.85F7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F878
+2F87A     ; [.AEE6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F87A
+2F879     ; [.C218.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F879
+F9D5      ; [.A629.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9D5
+2F87C     ; [.C438.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F87C
+F921      ; [.A0B9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F921
+2F87F     ; [.D096.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F87F
+2F87E     ; [.8B4E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F87E
+2F880     ; [.8565.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F880
+2F9F4     ; [.BE9B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9F4
+F9AB      ; [.A452.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9AB
+2F881     ; [.C33F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F881
+2F882     ; [.85D2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F882
+2F884     ; [.C372.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F884
+2F885     ; [.B6BB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F885
+2F886     ; [.A74C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F886
+2F887     ; [.8F26.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F887
+F98E      ; [.AA90.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F98E
+FA01      ; [.8CB0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA01
+2F88B     ; [.839D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F88B
+2F88C     ; [.826C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F88C
+2F88D     ; [.B673.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F88D
+F9A2      ; [.A2D5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9A2
+F928      ; [.A10D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F928
+2F88E     ; [.A10D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F88E
+FA82      ; [.8093.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA82
+FA0B      ; [.A051.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA0B
+FA83      ; [.C6DC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA83
+F982      ; [.A537.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F982
+2F890     ; [.91E7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F890
+F943      ; [.AB44.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F943
+2F894     ; [.B94A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F894
+2F895     ; [.B94A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F895
+2F874     ; [.8A3C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F874
+2F899     ; [.C1BC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F899
+FA84      ; [.8458.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA84
+2F89A     ; [.8B8D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F89A
+F9D8      ; [.A5E0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9D8
+2F89C     ; [.8C26.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F89C
+F966      ; [.9060.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F966
+FA85      ; [.C52E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA85
+2F89D     ; [.B23C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F89D
+2F89E     ; [.CE53.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F89E
+F9A3      ; [.AAAA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9A3
+2F89F     ; [.9F9E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F89F
+F960      ; [.AB5B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F960
+F9AC      ; [.A2CC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9AC
+FA6B      ; [.9741.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA6B
+2F8A0     ; [.CA21.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8A0
+FA3D      ; [.972E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA3D
+2F8A3     ; [.972E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8A3
+2F8A5     ; [.8CF7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8A5
+FA86      ; [.BC5B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA86
+F9B9      ; [.8DAF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9B9
+FA88      ; [.C9CE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA88
+F9D9      ; [.A276.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9D9
+2F8A6     ; [.8883.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8A6
+2F8A7     ; [.96B3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8A7
+2F8A9     ; [.96B3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8A9
+FA87      ; [.B516.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA87
+2F8A8     ; [.B516.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8A8
+FA8A      ; [.80BA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA8A
+FA3E      ; [.9E4D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA3E
+2F8AA     ; [.A500.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8AA
+FA3F      ; [.CBF6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA3F
+FA89      ; [.CBF6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA89
+2F8AB     ; [.CBF6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8AB
+F98F      ; [.A2E3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F98F
+2F8AD     ; [.8F40.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8AD
+2F8AE     ; [.847C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8AE
+2F8AC     ; [.C030.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8AC
+2F8AF     ; [.A7D7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8AF
+FA40      ; [.869C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA40
+FA8B      ; [.869C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA8B
+2F8B0     ; [.869C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8B0
+F90D      ; [.A0EE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F90D
+2F8B1     ; [.A0EE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8B1
+F990      ; [.A324.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F990
+2F8B2     ; [.866D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8B2
+2F8B3     ; [.9945.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8B3
+F9D2      ; [.A591.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9D2
+FA8C      ; [.89D5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA8C
+2F8B4     ; [.9F3F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8B4
+2F8B5     ; [.819F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8B5
+F925      ; [.A05F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F925
+F95B      ; [.A9AB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F95B
+FA02      ; [.B86F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA02
+2F8B6     ; [.80E0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8B6
+2F8BA     ; [.AD49.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8BA
+F973      ; [.B600.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F973
+2F8B9     ; [.BC1A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8B9
+2F8B7     ; [.9D69.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8B7
+2F8BB     ; [.B4A9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8BB
+F9A4      ; [.AA99.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9A4
+2F8BC     ; [.B397.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8BC
+F975      ; [.8DA6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F975
+2F8C1     ; [.C433.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8C1
+FA8D      ; [.C93D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA8D
+2F8C0     ; [.C40D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8C0
+2F8BD     ; [.9865.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8BD
+FA8E      ; [.B76C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA8E
+2F8BF     ; [.9BD4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8BF
+FA8F      ; [.8391.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA8F
+2F8C3     ; [.A914.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8C3
+2F8C6     ; [.9AD1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8C6
+2F8C4     ; [.9A82.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8C4
+F991      ; [.AA9F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F991
+2F8C5     ; [.9712.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8C5
+F930      ; [.A55B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F930
+FA41      ; [.A8D9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA41
+2F8C8     ; [.A8D9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8C8
+FA90      ; [.808D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA90
+2F8C9     ; [.9C49.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8C9
+F969      ; [.B682.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F969
+F9BE      ; [.A385.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9BE
+F983      ; [.A5CB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F983
+FA42      ; [.98C1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA42
+2F8CB     ; [.98D3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8CB
+F9E0      ; [.C689.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E0
+2F8CD     ; [.9BCA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8CD
+FA12      ; [.B07B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA12
+FA91      ; [.B07B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA91
+F9C5      ; [.CAC4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9C5
+FA43      ; [.B654.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA43
+2F8CF     ; [.B654.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8CF
+2F8D5     ; [.9BDA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8D5
+FA06      ; [.81AB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA06
+F98B      ; [.A285.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F98B
+F901      ; [.91C6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F901
+2F8CC     ; [.B62E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8CC
+2F8D4     ; [.D171.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8D4
+F929      ; [.A11F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F929
+FA92      ; [.A11F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA92
+2F8D8     ; [.A11F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8D8
+FA93      ; [.BC6C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA93
+2F8D9     ; [.BC6C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8D9
+2F8DA     ; [.D0F0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8DA
+F9E1      ; [.A2BF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E1
+2F8DC     ; [.8308.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8DC
+FA94      ; [.CCBE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA94
+2F8DB     ; [.AE88.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8DB
+F9C8      ; [.876A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9C8
+2F8E0     ; [.97FC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8E0
+F9F4      ; [.A3B8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9F4
+F9C9      ; [.A490.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9C9
+2F8DF     ; [.92B4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8DF
+F9DA      ; [.A259.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9DA
+2F8E5     ; [.81F8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8E5
+2F8E1     ; [.B37D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8E1
+F97A      ; [.A32A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F97A
+FA44      ; [.A76C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA44
+2F8E2     ; [.A76C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8E2
+2F8E4     ; [.808A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8E4
+F9E2      ; [.A1DC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E2
+2F8E6     ; [.D097.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8E6
+2F8E8     ; [.CC12.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8E8
+2F8E9     ; [.C536.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8E9
+2F8EA     ; [.90BC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8EA
+F914      ; [.A176.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F914
+F95C      ; [.A176.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F95C
+F9BF      ; [.A176.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9BF
+F94C      ; [.A504.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F94C
+2F8EB     ; [.B4A2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8EB
+F931      ; [.A562.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F931
+2F8ED     ; [.CEB6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8ED
+F91D      ; [.A0D6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F91D
+2F8EF     ; [.889D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8EF
+2F8F1     ; [.C249.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8F1
+2F8F3     ; [.B7FD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8F3
+F98C      ; [.A286.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F98C
+FA95      ; [.89B3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA95
+2F8F4     ; [.BD36.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8F4
+F9A5      ; [.A31E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9A5
+F970      ; [.B3CD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F970
+FA96      ; [.B3CD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA96
+2F8F5     ; [.B3CD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8F5
+2F8F6     ; [.AFE9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8F6
+2F8FA     ; [.8E7C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8FA
+2F8FE     ; [.AEE8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8FE
+F972      ; [.8614.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F972
+2F8FC     ; [.C3F8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8FC
+F968      ; [.A837.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F968
+2F8FD     ; [.81F6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8FD
+F9E3      ; [.AA4A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E3
+2F8FF     ; [.BDDC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8FF
+F915      ; [.A66A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F915
+FA05      ; [.8C3D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA05
+2F907     ; [.AD78.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F907
+2F900     ; [.ABCA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F900
+F9CA      ; [.A462.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9CA
+FA97      ; [.A462.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA97
+2F902     ; [.A462.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F902
+2F903     ; [.9477.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F903
+F92A      ; [.A129.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F92A
+FA45      ; [.93D2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA45
+2F901     ; [.93D2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F901
+2F904     ; [.9BCC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F904
+2F905     ; [.AACC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F905
+F9F5      ; [.A3BE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9F5
+F94D      ; [.A1B6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F94D
+F9D6      ; [.A62B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9D6
+2F90E     ; [.C3DB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F90E
+FA46      ; [.CF91.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA46
+2F908     ; [.911B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F908
+2F909     ; [.C3E0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F909
+F9CB      ; [.A45B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9CB
+F9EC      ; [.AA85.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9EC
+2F90C     ; [.8B4F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F90C
+FA99      ; [.D099.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA99
+2F90B     ; [.D099.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F90B
+F904      ; [.9618.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F904
+FA98      ; [.C781.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA98
+F94E      ; [.A51A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F94E
+FA47      ; [.942D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA47
+FA9A      ; [.942D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA9A
+F992      ; [.A2D8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F992
+2F90F     ; [.85DA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F90F
+2F912     ; [.8F27.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F912
+F922      ; [.A0FC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F922
+F984      ; [.A5EF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F984
+2F915     ; [.C823.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F915
+FA9B      ; [.9C59.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA9B
+2F914     ; [.9C59.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F914
+2F913     ; [.CAB7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F913
+2F917     ; [.AF3B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F917
+2F835     ; [.96F6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F835
+2F919     ; [.CFEA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F919
+2F918     ; [.CB3D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F918
+F9FB      ; [.CE5D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9FB
+2F91A     ; [.B8F6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F91A
+F99F      ; [.A39A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F99F
+F916      ; [.A157.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F916
+2F91C     ; [.8CCA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F91C
+F993      ; [.A318.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F993
+FA48      ; [.CF92.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA48
+FA9C      ; [.CF92.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA9C
+2F91E     ; [.88BE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F91E
+F9C0      ; [.A366.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9C0
+F9EE      ; [.A3CE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9EE
+F932      ; [.A53F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F932
+F91E      ; [.A0FE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F91E
+2F920     ; [.891A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F920
+FA49      ; [.CCFA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA49
+FA9E      ; [.9DDC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA9E
+2F921     ; [.9DDC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F921
+2F922     ; [.CC22.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F922
+F946      ; [.A133.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F946
+2F924     ; [.BE7F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F924
+2F925     ; [.81E7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F925
+FA9F      ; [.8E7A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA9F
+F9FA      ; [.D00D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9FA
+F92B      ; [.A10A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F92B
+FA16      ; [.CF5B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA16
+FAA0      ; [.CF5B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAA0
+F9A7      ; [.A3AA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9A7
+2F928     ; [.B86C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F928
+F961      ; [.A5E2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F961
+F9DB      ; [.A5E2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9DB
+2F929     ; [.BC50.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F929
+2F92B     ; [.CA9E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F92B
+F9AD      ; [.A410.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9AD
+F917      ; [.A66F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F917
+F9E4      ; [.A226.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E4
+F9CC      ; [.A465.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9CC
+FA4A      ; [.D199.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA4A
+2F92E     ; [.89CF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F92E
+2F92F     ; [.C94D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F92F
+F9AE      ; [.C813.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9AE
+FAA1      ; [.CD92.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAA1
+2F930     ; [.CD92.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F930
+2F931     ; [.B84D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F931
+F994      ; [.A303.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F994
+F9EF      ; [.A3CF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9EF
+2F932     ; [.B0BA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F932
+FAA2      ; [.8884.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAA2
+2F934     ; [.B309.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F934
+FAA3      ; [.9628.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAA3
+2F936     ; [.CB3F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F936
+F9CD      ; [.A463.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9CD
+F976      ; [.8DA7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F976
+F962      ; [.C6B3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F962
+2F938     ; [.C6B3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F938
+F9E5      ; [.A26F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E5
+2F93A     ; [.C98A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F93A
+FAA4      ; [.92C4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAA4
+FAA5      ; [.BD3A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAA5
+F9C1      ; [.A369.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9C1
+F90E      ; [.A0B0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F90E
+FA17      ; [.C6A9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA17
+FAA6      ; [.C6A9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAA6
+FAA7      ; [.B546.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAA7
+F933      ; [.A533.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F933
+FAA8      ; [.CE08.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAA8
+2F940     ; [.CE08.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F940
+F96D      ; [.B53E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F96D
+2F945     ; [.CD43.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F945
+2F946     ; [.CD44.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F946
+2F947     ; [.CD44.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F947
+FAAA      ; [.CD35.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAAA
+FAA9      ; [.9D8B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAA9
+2F948     ; [.9D8B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F948
+2F94A     ; [.860C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F94A
+FA9D      ; [.AFD8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA9D
+2F94E     ; [.C1C6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F94E
+F9CE      ; [.A467.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9CE
+F93B      ; [.A586.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F93B
+2F94F     ; [.A586.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F94F
+FA4B      ; [.81C0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA4B
+F947      ; [.A1A3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F947
+FAAB      ; [.BA14.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAAB
+2F950     ; [.BA14.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F950
+F964      ; [.ABDF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F964
+F985      ; [.A29F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F985
+FA18      ; [.A21D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA18
+FA4C      ; [.B4AC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA4C
+FA4E      ; [.AE35.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA4E
+FA4D      ; [.CE3D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA4D
+FA4F      ; [.C8F6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA4F
+FA50      ; [.D153.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA50
+2F953     ; [.D153.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F953
+FA51      ; [.CFAD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA51
+FA19      ; [.B4F3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA19
+FA1A      ; [.C062.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA1A
+F93C      ; [.A580.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F93C
+FA52      ; [.97D4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA52
+FA53      ; [.CD54.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA53
+FA1B      ; [.900A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA1B
+2F956     ; [.900A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F956
+F9B6      ; [.A22F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9B6
+F995      ; [.AA91.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F995
+2F957     ; [.B64A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F957
+F956      ; [.A1CB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F956
+FA54      ; [.9267.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA54
+2F959     ; [.9267.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F959
+2F95A     ; [.98E8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F95A
+2F95B     ; [.BD69.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F95B
+FA55      ; [.BAFD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA55
+FAAC      ; [.BA57.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAAC
+F9F7      ; [.A23B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9F7
+2F95F     ; [.AD6B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F95F
+F9F8      ; [.A265.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9F8
+FA56      ; [.9B51.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA56
+FAAD      ; [.9B51.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAAD
+2F962     ; [.CFF3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F962
+2F963     ; [.CF80.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F963
+F9A6      ; [.A2F7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9A6
+F944      ; [.A4D9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F944
+FAAE      ; [.A1B4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAAE
+F9F9      ; [.A266.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9F9
+FA1D      ; [.9C0E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA1D
+2F966     ; [.81EF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F966
+FA03      ; [.B929.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA03
+2F969     ; [.B36D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F969
+F97B      ; [.A335.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F97B
+2F968     ; [.9A87.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F968
+2F96A     ; [.98C4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F96A
+F9CF      ; [.AB29.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9CF
+F96A      ; [.B844.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F96A
+F94F      ; [.A1B7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F94F
+FAAF      ; [.B94E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAAF
+2F96C     ; [.8211.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F96C
+F93D      ; [.A5E8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F93D
+F957      ; [.A432.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F957
+2F96E     ; [.D0A7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F96E
+F996      ; [.A31B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F996
+FA57      ; [.A31B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA57
+FAB0      ; [.A31B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAB0
+2F96F     ; [.D113.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F96F
+FA58      ; [.9BE4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA58
+F950      ; [.A5DC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F950
+FA59      ; [.8E69.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA59
+2F970     ; [.B38F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F970
+FAB1      ; [.AD85.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAB1
+FA5A      ; [.B657.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA5A
+F9E6      ; [.A1FD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E6
+2F976     ; [.85DC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F976
+F90F      ; [.A64E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F90F
+2F978     ; [.C504.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F978
+F9AF      ; [.A422.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9AF
+FA1E      ; [.C975.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA1E
+2F979     ; [.80A2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F979
+F934      ; [.A149.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F934
+FA5B      ; [.CD23.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA5B
+FAB2      ; [.CD23.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAB2
+2F97A     ; [.CD23.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F97A
+F9B0      ; [.A424.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9B0
+2F97D     ; [.AD69.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F97D
+F997      ; [.A2F1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F997
+2F97F     ; [.88C7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F97F
+F945      ; [.A4DA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F945
+F953      ; [.A167.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F953
+2F8D6     ; [.A9B7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8D6
+2F982     ; [.C9A3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F982
+2F983     ; [.8934.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F983
+2F985     ; [.ACD1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F985
+F926      ; [.A078.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F926
+F9F6      ; [.A3D4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9F6
+FA5C      ; [.8772.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA5C
+2F893     ; [.C928.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F893
+2F98B     ; [.C928.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F98B
+2F98C     ; [.BF1A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F98C
+FA6D      ; [.92D4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA6D
+F97C      ; [.A327.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F97C
+FA5D      ; [.84B9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA5D
+FA5E      ; [.84B9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA5E
+2F990     ; [.C99E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F990
+2F98F     ; [.AE85.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F98F
+2F991     ; [.CDDD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F991
+2F993     ; [.960B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F993
+2F994     ; [.8E93.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F994
+2F995     ; [.C39B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F995
+F974      ; [.B328.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F974
+2F998     ; [.B328.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F998
+2F996     ; [.9F4F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F996
+2F999     ; [.8519.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F999
+2F99C     ; [.BDDE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F99C
+F9FE      ; [.84F7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9FE
+FAB3      ; [.96AF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAB3
+2F9A0     ; [.AD7B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9A0
+2F99A     ; [.B27F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F99A
+2F99B     ; [.9B40.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F99B
+2F99D     ; [.A713.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F99D
+F93E      ; [.A57A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F93E
+2F9A1     ; [.9CF4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9A1
+2F9A2     ; [.9E06.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9A2
+2F9A3     ; [.845F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9A3
+2F99E     ; [.8B10.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F99E
+FAB4      ; [.9614.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAB4
+F958      ; [.A426.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F958
+F918      ; [.A673.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F918
+F96E      ; [.C5A8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F96E
+FA5F      ; [.CD36.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA5F
+2F99F     ; [.CD36.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F99F
+F999      ; [.A2D9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F999
+2F9A8     ; [.AD86.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9A8
+2F9A9     ; [.9BB8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9A9
+F9C2      ; [.A37C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9C2
+2F9AA     ; [.8966.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9AA
+2F9AC     ; [.B30B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9AC
+F923      ; [.A0C7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F923
+F9F0      ; [.A3FB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9F0
+F935      ; [.A53C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F935
+FA20      ; [.B110.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA20
+F91F      ; [.A0D4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F91F
+F910      ; [.A656.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F910
+2F9B3     ; [.AB6D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9B3
+F936      ; [.A555.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F936
+2F9B4     ; [.A555.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9B4
+2F9B5     ; [.9FD0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9B5
+2F9B6     ; [.BF2F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9B6
+2F9B8     ; [.AEF3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9B8
+2F9B7     ; [.86AD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9B7
+2F9BA     ; [.AD87.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9BA
+2F9B9     ; [.CA2E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9B9
+2F9BC     ; [.8BD5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9BC
+2F9BD     ; [.CF66.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9BD
+FAB5      ; [.CACA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAB5
+2F9BB     ; [.CACA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9BB
+2F9BE     ; [.88A9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9BE
+F911      ; [.A64D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F911
+2F9C0     ; [.9359.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9C0
+2F9C1     ; [.C072.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9C1
+F927      ; [.A07D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F927
+FA08      ; [.C1BA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA08
+2F9C3     ; [.D03A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9C3
+2F9C4     ; [.C5D3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9C4
+F9A0      ; [.A39F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9A0
+F9E7      ; [.A229.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E7
+2F9C6     ; [.A468.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9C6
+2F9C7     ; [.B6C1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9C7
+F9E8      ; [.A2C4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E8
+F912      ; [.A661.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F912
+2F9C9     ; [.C444.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9C9
+FA60      ; [.94E1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA60
+FAB6      ; [.AFA2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAB6
+F924      ; [.A0CC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F924
+FAB7      ; [.907C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAB7
+FA0A      ; [.99FE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA0A
+FA61      ; [.B5D4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA61
+FAB8      ; [.B5D4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAB8
+2F9CF     ; [.8692.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9CF
+F96F      ; [.B6D2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F96F
+F9A1      ; [.B6D2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9A1
+FAB9      ; [.8BAD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAB9
+FABB      ; [.B08C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FABB
+F97D      ; [.A34C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F97D
+F941      ; [.A63B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F941
+FABE      ; [.C9F2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FABE
+2F9D0     ; [.C9F2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9D0
+FA22      ; [.CF69.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA22
+FABA      ; [.CF69.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FABA
+F95D      ; [.AB81.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F95D
+FABD      ; [.AB81.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FABD
+FA62      ; [.C5BB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA62
+FABC      ; [.C5BB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FABC
+FA63      ; [.9BBE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA63
+FABF      ; [.9BBE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FABF
+F9FC      ; [.B608.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9FC
+F95A      ; [.8C98.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F95A
+FAC0      ; [.8304.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAC0
+2F9D1     ; [.8304.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9D1
+F900      ; [.AE8C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F900
+2F9D2     ; [.B59F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9D2
+2F9D4     ; [.92E0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9D4
+2F9D5     ; [.827C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9D5
+F948      ; [.A588.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F948
+F903      ; [.9963.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F903
+FA64      ; [.835E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA64
+FA65      ; [.CC04.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA65
+FAC1      ; [.CC04.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAC1
+2F9D6     ; [.90FE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9D6
+2F9D7     ; [.AE8D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9D7
+2F9DB     ; [.99CD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9DB
+2F9DA     ; [.80E7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9DA
+F937      ; [.A589.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F937
+2F9DC     ; [.AD12.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9DC
+F902      ; [.85ED.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F902
+2F9DE     ; [.B25D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9DE
+F998      ; [.AAA2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F998
+F9D7      ; [.A632.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9D7
+FAC2      ; [.B644.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAC2
+2F9DF     ; [.B644.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9DF
+FA07      ; [.901F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA07
+F98D      ; [.A2B5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F98D
+2F98D     ; [.8885.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F98D
+F971      ; [.8616.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F971
+FA66      ; [.8857.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA66
+F99A      ; [.A2CF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F99A
+FA25      ; [.C6BC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA25
+FA67      ; [.C6BC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA67
+FAC3      ; [.86DA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAC3
+F9C3      ; [.A364.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9C3
+F913      ; [.A657.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F913
+2F9E2     ; [.AE81.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9E2
+F92C      ; [.A107.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F92C
+FA2E      ; [.A108.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA2E
+2F9E3     ; [.AD74.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9E3
+FA26      ; [.8C50.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA26
+2F9E4     ; [.D09D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9E4
+2F9E6     ; [.85D5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9E6
+F919      ; [.A159.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F919
+FAC4      ; [.B778.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAC4
+F9B7      ; [.A232.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9B7
+F9E9      ; [.A21E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E9
+F97E      ; [.A34A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F97E
+F90A      ; [.9B96.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F90A
+F9B1      ; [.A42E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9B1
+2F9E7     ; [.83E8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9E7
+FAC5      ; [.C1CA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAC5
+2F9EA     ; [.8395.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9EA
+2F9E8     ; [.C2BB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9E8
+2F9E9     ; [.961F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9E9
+F93F      ; [.A59D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F93F
+F99B      ; [.A31F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F99B
+2F9EB     ; [.AFA4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9EB
+2F9EC     ; [.CB58.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9EC
+2F9EE     ; [.9E42.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9EE
+F986      ; [.A5BD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F986
+2F9F0     ; [.B3FB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9F0
+F9C6      ; [.B2FA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9C6
+F951      ; [.A518.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F951
+FA09      ; [.9A78.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA09
+F959      ; [.A418.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F959
+F9D3      ; [.A574.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9D3
+FAC6      ; [.CF90.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAC6
+F9DC      ; [.A4BE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9DC
+F9F1      ; [.A3C7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9F1
+FA2F      ; [.A288.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA2F
+F9B8      ; [.A28E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9B8
+2F9F3     ; [.AEFD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9F3
+F9EA      ; [.A206.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9EA
+FA68      ; [.A9EE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA68
+FAC7      ; [.A9EE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAC7
+F9B2      ; [.A430.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9B2
+F949      ; [.A17E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F949
+2F9F5     ; [.CB01.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9F5
+F938      ; [.A5AF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F938
+F9B3      ; [.A448.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9B3
+FA1C      ; [.9C4E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA1C
+FAC8      ; [.9C4E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAC8
+FAC9      ; [.8121.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAC9
+2F9FA     ; [.82B7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9FA
+FA69      ; [.C075.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA69
+FACA      ; [.C075.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FACA
+FACB      ; [.8D88.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FACB
+2F9FE     ; [.8D88.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9FE
+2F9FF     ; [.8D88.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9FF
+F9B4      ; [.A451.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9B4
+2FA00     ; [.AD6C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA00
+FA6A      ; [.AD55.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA6A
+FACC      ; [.AD55.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FACC
+F9D0      ; [.A1BF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9D0
+2FA02     ; [.9806.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA02
+FA2A      ; [.8E89.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA2A
+FA2B      ; [.B734.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA2B
+FA2C      ; [.92D6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA2C
+2FA04     ; [.8DCB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA04
+2FA05     ; [.CACE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA05
+2FA06     ; [.8195.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA06
+F91A      ; [.A67A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F91A
+2FA07     ; [.BB6B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA07
+F987      ; [.A21A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F987
+FACD      ; [.CD7E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FACD
+2FA0A     ; [.CD7E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA0A
+F939      ; [.A55A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F939
+2FA0B     ; [.990A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA0B
+F9F2      ; [.A3DE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9F2
+2FA0C     ; [.99A3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA0C
+2FA0F     ; [.ACDC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA0F
+FA2D      ; [.94EB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA2D
+F93A      ; [.A5B3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F93A
+F920      ; [.A60F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F920
+F940      ; [.A57C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F940
+F988      ; [.A2A1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F988
+F9F3      ; [.A3DF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9F3
+2FA15     ; [.A687.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA15
+F989      ; [.A1FA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F989
+2FA17     ; [.CE4C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA17
+2FA18     ; [.A86D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA18
+2FA19     ; [.CE04.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA19
+2FA1A     ; [.A84E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA1A
+2FA1B     ; [.8F2F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA1B
+2FA1C     ; [.8237.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA1C
+FAD8      ; [.8DD6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAD8
+F9C4      ; [.A4C6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9C4
+FAD9      ; [.AC0A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAD9
+F907      ; [.9336.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F907
+F908      ; [.9336.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F908
+FACE      ; [.9336.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FACE
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/zh_strk.pl b/lib/5.24.1/Unicode/Collate/Locale/zh_strk.pl
new file mode 100644
index 00000000..68d6edf2
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/zh_strk.pl
@@ -0,0 +1,1589 @@
+use Unicode::Collate::CJK::Stroke;
++{
+   locale_version => 1.14,
+   overrideCJK => \&Unicode::Collate::CJK::Stroke::weightStroke,
+   entry => <<'ENTRY', # for DUCET v7.0.0
+0101      ; [.190C.001C.0002] # LATIN SMALL LETTER A WITH MACRON
+0061 0304 ; [.190C.001C.0002] # LATIN SMALL LETTER A WITH MACRON
+0100      ; [.190C.001C.0008] # LATIN CAPITAL LETTER A WITH MACRON
+0041 0304 ; [.190C.001C.0008] # LATIN CAPITAL LETTER A WITH MACRON
+00E1      ; [.190C.001D.0002] # LATIN SMALL LETTER A WITH ACUTE
+0061 0301 ; [.190C.001D.0002] # LATIN SMALL LETTER A WITH ACUTE
+0061 0341 ; [.190C.001D.0002] # LATIN SMALL LETTER A WITH ACUTE
+00C1      ; [.190C.001D.0008] # LATIN CAPITAL LETTER A WITH ACUTE
+0041 0301 ; [.190C.001D.0008] # LATIN CAPITAL LETTER A WITH ACUTE
+0041 0341 ; [.190C.001D.0008] # LATIN CAPITAL LETTER A WITH ACUTE
+01CE      ; [.190C.001E.0002] # LATIN SMALL LETTER A WITH CARON
+0061 030C ; [.190C.001E.0002] # LATIN SMALL LETTER A WITH CARON
+01CD      ; [.190C.001E.0008] # LATIN CAPITAL LETTER A WITH CARON
+0041 030C ; [.190C.001E.0008] # LATIN CAPITAL LETTER A WITH CARON
+00E0      ; [.190C.001F.0002] # LATIN SMALL LETTER A WITH GRAVE
+0061 0300 ; [.190C.001F.0002] # LATIN SMALL LETTER A WITH GRAVE
+0061 0340 ; [.190C.001F.0002] # LATIN SMALL LETTER A WITH GRAVE
+00C0      ; [.190C.001F.0008] # LATIN CAPITAL LETTER A WITH GRAVE
+0041 0300 ; [.190C.001F.0008] # LATIN CAPITAL LETTER A WITH GRAVE
+0041 0340 ; [.190C.001F.0008] # LATIN CAPITAL LETTER A WITH GRAVE
+0113      ; [.196E.001C.0002] # LATIN SMALL LETTER E WITH MACRON
+0065 0304 ; [.196E.001C.0002] # LATIN SMALL LETTER E WITH MACRON
+0112      ; [.196E.001C.0008] # LATIN CAPITAL LETTER E WITH MACRON
+0045 0304 ; [.196E.001C.0008] # LATIN CAPITAL LETTER E WITH MACRON
+00E9      ; [.196E.001D.0002] # LATIN SMALL LETTER E WITH ACUTE
+0065 0301 ; [.196E.001D.0002] # LATIN SMALL LETTER E WITH ACUTE
+0065 0341 ; [.196E.001D.0002] # LATIN SMALL LETTER E WITH ACUTE
+00C9      ; [.196E.001D.0008] # LATIN CAPITAL LETTER E WITH ACUTE
+0045 0301 ; [.196E.001D.0008] # LATIN CAPITAL LETTER E WITH ACUTE
+0045 0341 ; [.196E.001D.0008] # LATIN CAPITAL LETTER E WITH ACUTE
+011B      ; [.196E.001E.0002] # LATIN SMALL LETTER E WITH CARON
+0065 030C ; [.196E.001E.0002] # LATIN SMALL LETTER E WITH CARON
+011A      ; [.196E.001E.0008] # LATIN CAPITAL LETTER E WITH CARON
+0045 030C ; [.196E.001E.0008] # LATIN CAPITAL LETTER E WITH CARON
+00E8      ; [.196E.001F.0002] # LATIN SMALL LETTER E WITH GRAVE
+0065 0300 ; [.196E.001F.0002] # LATIN SMALL LETTER E WITH GRAVE
+0065 0340 ; [.196E.001F.0002] # LATIN SMALL LETTER E WITH GRAVE
+00C8      ; [.196E.001F.0008] # LATIN CAPITAL LETTER E WITH GRAVE
+0045 0300 ; [.196E.001F.0008] # LATIN CAPITAL LETTER E WITH GRAVE
+0045 0340 ; [.196E.001F.0008] # LATIN CAPITAL LETTER E WITH GRAVE
+00EA 0304 ; [.196E.0021.0002] # <LATIN SMALL LETTER E WITH CIRCUMFLEX, COMBINING MACRON>
+00CA 0304 ; [.196E.0021.0008] # <LATIN CAPITAL LETTER E WITH CIRCUMFLEX, COMBINING MACRON>
+0065 0302 0304 ; [.196E.0021.0002] # <LATIN SMALL LETTER E, COMBINING CIRCUMFLEX ACCENT, COMBINING MACRON>
+0045 0302 0304 ; [.196E.0021.0008] # <LATIN CAPITAL LETTER E, COMBINING CIRCUMFLEX ACCENT, COMBINING MACRON>
+1EBF      ; [.196E.0022.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND ACUTE
+0065 0302 0301 ; [.196E.0022.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND ACUTE
+0065 0302 0341 ; [.196E.0022.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND ACUTE
+1EBE      ; [.196E.0022.0008] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND ACUTE
+0045 0302 0301 ; [.196E.0022.0008] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND ACUTE
+0045 0302 0341 ; [.196E.0022.0008] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND ACUTE
+00EA 0301 ; [.196E.0022.0002] # <LATIN SMALL LETTER E WITH CIRCUMFLEX, COMBINING ACUTE ACCENT>
+00EA 0341 ; [.196E.0022.0002] # <LATIN SMALL LETTER E WITH CIRCUMFLEX, COMBINING ACUTE TONE MARK>
+00CA 0301 ; [.196E.0022.0008] # <LATIN CAPITAL LETTER E WITH CIRCUMFLEX, COMBINING ACUTE ACCENT>
+00CA 0341 ; [.196E.0022.0008] # <LATIN CAPITAL LETTER E WITH CIRCUMFLEX, COMBINING ACUTE TONE MARK>
+00EA 030C ; [.196E.0023.0002] # <LATIN SMALL LETTER E WITH CIRCUMFLEX, COMBINING CARON>
+00CA 030C ; [.196E.0023.0008] # <LATIN CAPITAL LETTER E WITH CIRCUMFLEX, COMBINING CARON>
+0065 0302 030C ; [.196E.0023.0002] # <LATIN SMALL LETTER E, COMBINING CIRCUMFLEX ACCENT, COMBINING CARON>
+0045 0302 030C ; [.196E.0023.0008] # <LATIN CAPITAL LETTER E, COMBINING CIRCUMFLEX ACCENT, COMBINING CARON>
+1EC1      ; [.196E.0024.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND GRAVE
+0065 0302 0300 ; [.196E.0024.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND GRAVE
+0065 0302 0340 ; [.196E.0024.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND GRAVE
+1EC0      ; [.196E.0024.0008] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND GRAVE
+0045 0302 0300 ; [.196E.0024.0008] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND GRAVE
+0045 0302 0340 ; [.196E.0024.0008] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND GRAVE
+00EA 0300 ; [.196E.0024.0002] # <LATIN SMALL LETTER E WITH CIRCUMFLEX, COMBINING GRAVE ACCENT>
+00EA 0340 ; [.196E.0024.0002] # <LATIN SMALL LETTER E WITH CIRCUMFLEX, COMBINING GRAVE TONE MARK>
+00CA 0300 ; [.196E.0024.0008] # <LATIN CAPITAL LETTER E WITH CIRCUMFLEX, COMBINING GRAVE ACCENT>
+00CA 0340 ; [.196E.0024.0008] # <LATIN CAPITAL LETTER E WITH CIRCUMFLEX, COMBINING GRAVE TONE MARK>
+00EA      ; [.196E.0025.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX
+0065 0302 ; [.196E.0025.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX
+00CA      ; [.196E.0025.0008] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX
+0045 0302 ; [.196E.0025.0008] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX
+1EC5      ; [.196E.0025.0002][.0000.002D.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND TILDE
+1EC4      ; [.196E.0025.0008][.0000.002D.0002] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND TILDE
+1EC3      ; [.196E.0025.0002][.0000.003B.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND HOOK ABOVE
+1EC2      ; [.196E.0025.0008][.0000.003B.0002] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND HOOK ABOVE
+1EC7      ; [.196E.0025.0002][.0000.0042.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND DOT BELOW
+1EC6      ; [.196E.0025.0008][.0000.0042.0002] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND DOT BELOW
+012B      ; [.19F6.001C.0002] # LATIN SMALL LETTER I WITH MACRON
+0069 0304 ; [.19F6.001C.0002] # LATIN SMALL LETTER I WITH MACRON
+012A      ; [.19F6.001C.0008] # LATIN CAPITAL LETTER I WITH MACRON
+0049 0304 ; [.19F6.001C.0008] # LATIN CAPITAL LETTER I WITH MACRON
+00ED      ; [.19F6.001D.0002] # LATIN SMALL LETTER I WITH ACUTE
+0069 0301 ; [.19F6.001D.0002] # LATIN SMALL LETTER I WITH ACUTE
+0069 0341 ; [.19F6.001D.0002] # LATIN SMALL LETTER I WITH ACUTE
+00CD      ; [.19F6.001D.0008] # LATIN CAPITAL LETTER I WITH ACUTE
+0049 0301 ; [.19F6.001D.0008] # LATIN CAPITAL LETTER I WITH ACUTE
+0049 0341 ; [.19F6.001D.0008] # LATIN CAPITAL LETTER I WITH ACUTE
+01D0      ; [.19F6.001E.0002] # LATIN SMALL LETTER I WITH CARON
+0069 030C ; [.19F6.001E.0002] # LATIN SMALL LETTER I WITH CARON
+01CF      ; [.19F6.001E.0008] # LATIN CAPITAL LETTER I WITH CARON
+0049 030C ; [.19F6.001E.0008] # LATIN CAPITAL LETTER I WITH CARON
+00EC      ; [.19F6.001F.0002] # LATIN SMALL LETTER I WITH GRAVE
+0069 0300 ; [.19F6.001F.0002] # LATIN SMALL LETTER I WITH GRAVE
+0069 0340 ; [.19F6.001F.0002] # LATIN SMALL LETTER I WITH GRAVE
+00CC      ; [.19F6.001F.0008] # LATIN CAPITAL LETTER I WITH GRAVE
+0049 0300 ; [.19F6.001F.0008] # LATIN CAPITAL LETTER I WITH GRAVE
+0049 0340 ; [.19F6.001F.0008] # LATIN CAPITAL LETTER I WITH GRAVE
+006D 0304 ; [.1A6E.001C.0002] # <LATIN SMALL LETTER M, COMBINING MACRON>
+004D 0304 ; [.1A6E.001C.0008] # <LATIN CAPITAL LETTER M, COMBINING MACRON>
+1E3F      ; [.1A6E.001D.0002] # LATIN SMALL LETTER M WITH ACUTE
+006D 0301 ; [.1A6E.001D.0002] # LATIN SMALL LETTER M WITH ACUTE
+006D 0341 ; [.1A6E.001D.0002] # LATIN SMALL LETTER M WITH ACUTE
+1E3E      ; [.1A6E.001D.0008] # LATIN CAPITAL LETTER M WITH ACUTE
+004D 0301 ; [.1A6E.001D.0008] # LATIN CAPITAL LETTER M WITH ACUTE
+004D 0341 ; [.1A6E.001D.0008] # LATIN CAPITAL LETTER M WITH ACUTE
+006D 030C ; [.1A6E.001E.0002] # <LATIN SMALL LETTER M, COMBINING CARON>
+004D 030C ; [.1A6E.001E.0008] # <LATIN CAPITAL LETTER M, COMBINING CARON>
+006D 0300 ; [.1A6E.001F.0002] # <LATIN SMALL LETTER M, COMBINING GRAVE ACCENT>
+006D 0340 ; [.1A6E.001F.0002] # <LATIN SMALL LETTER M, COMBINING GRAVE TONE MARK>
+004D 0300 ; [.1A6E.001F.0008] # <LATIN CAPITAL LETTER M, COMBINING GRAVE ACCENT>
+004D 0340 ; [.1A6E.001F.0008] # <LATIN CAPITAL LETTER M, COMBINING GRAVE TONE MARK>
+006E 0304 ; [.1A7D.001C.0002] # <LATIN SMALL LETTER N, COMBINING MACRON>
+004E 0304 ; [.1A7D.001C.0008] # <LATIN CAPITAL LETTER N, COMBINING MACRON>
+0144      ; [.1A7D.001D.0002] # LATIN SMALL LETTER N WITH ACUTE
+006E 0301 ; [.1A7D.001D.0002] # LATIN SMALL LETTER N WITH ACUTE
+006E 0341 ; [.1A7D.001D.0002] # LATIN SMALL LETTER N WITH ACUTE
+0143      ; [.1A7D.001D.0008] # LATIN CAPITAL LETTER N WITH ACUTE
+004E 0301 ; [.1A7D.001D.0008] # LATIN CAPITAL LETTER N WITH ACUTE
+004E 0341 ; [.1A7D.001D.0008] # LATIN CAPITAL LETTER N WITH ACUTE
+0148      ; [.1A7D.001E.0002] # LATIN SMALL LETTER N WITH CARON
+006E 030C ; [.1A7D.001E.0002] # LATIN SMALL LETTER N WITH CARON
+0147      ; [.1A7D.001E.0008] # LATIN CAPITAL LETTER N WITH CARON
+004E 030C ; [.1A7D.001E.0008] # LATIN CAPITAL LETTER N WITH CARON
+01F9      ; [.1A7D.001F.0002] # LATIN SMALL LETTER N WITH GRAVE
+006E 0300 ; [.1A7D.001F.0002] # LATIN SMALL LETTER N WITH GRAVE
+006E 0340 ; [.1A7D.001F.0002] # LATIN SMALL LETTER N WITH GRAVE
+01F8      ; [.1A7D.001F.0008] # LATIN CAPITAL LETTER N WITH GRAVE
+004E 0300 ; [.1A7D.001F.0008] # LATIN CAPITAL LETTER N WITH GRAVE
+004E 0340 ; [.1A7D.001F.0008] # LATIN CAPITAL LETTER N WITH GRAVE
+014D      ; [.1AA1.001C.0002] # LATIN SMALL LETTER O WITH MACRON
+006F 0304 ; [.1AA1.001C.0002] # LATIN SMALL LETTER O WITH MACRON
+014C      ; [.1AA1.001C.0008] # LATIN CAPITAL LETTER O WITH MACRON
+004F 0304 ; [.1AA1.001C.0008] # LATIN CAPITAL LETTER O WITH MACRON
+00F3      ; [.1AA1.001D.0002] # LATIN SMALL LETTER O WITH ACUTE
+006F 0301 ; [.1AA1.001D.0002] # LATIN SMALL LETTER O WITH ACUTE
+006F 0341 ; [.1AA1.001D.0002] # LATIN SMALL LETTER O WITH ACUTE
+00D3      ; [.1AA1.001D.0008] # LATIN CAPITAL LETTER O WITH ACUTE
+004F 0301 ; [.1AA1.001D.0008] # LATIN CAPITAL LETTER O WITH ACUTE
+004F 0341 ; [.1AA1.001D.0008] # LATIN CAPITAL LETTER O WITH ACUTE
+01D2      ; [.1AA1.001E.0002] # LATIN SMALL LETTER O WITH CARON
+006F 030C ; [.1AA1.001E.0002] # LATIN SMALL LETTER O WITH CARON
+01D1      ; [.1AA1.001E.0008] # LATIN CAPITAL LETTER O WITH CARON
+004F 030C ; [.1AA1.001E.0008] # LATIN CAPITAL LETTER O WITH CARON
+00F2      ; [.1AA1.001F.0002] # LATIN SMALL LETTER O WITH GRAVE
+006F 0300 ; [.1AA1.001F.0002] # LATIN SMALL LETTER O WITH GRAVE
+006F 0340 ; [.1AA1.001F.0002] # LATIN SMALL LETTER O WITH GRAVE
+00D2      ; [.1AA1.001F.0008] # LATIN CAPITAL LETTER O WITH GRAVE
+004F 0300 ; [.1AA1.001F.0008] # LATIN CAPITAL LETTER O WITH GRAVE
+004F 0340 ; [.1AA1.001F.0008] # LATIN CAPITAL LETTER O WITH GRAVE
+016B      ; [.1B77.001C.0002] # LATIN SMALL LETTER U WITH MACRON
+0075 0304 ; [.1B77.001C.0002] # LATIN SMALL LETTER U WITH MACRON
+016A      ; [.1B77.001C.0008] # LATIN CAPITAL LETTER U WITH MACRON
+0055 0304 ; [.1B77.001C.0008] # LATIN CAPITAL LETTER U WITH MACRON
+00FA      ; [.1B77.001D.0002] # LATIN SMALL LETTER U WITH ACUTE
+0075 0301 ; [.1B77.001D.0002] # LATIN SMALL LETTER U WITH ACUTE
+0075 0341 ; [.1B77.001D.0002] # LATIN SMALL LETTER U WITH ACUTE
+00DA      ; [.1B77.001D.0008] # LATIN CAPITAL LETTER U WITH ACUTE
+0055 0301 ; [.1B77.001D.0008] # LATIN CAPITAL LETTER U WITH ACUTE
+0055 0341 ; [.1B77.001D.0008] # LATIN CAPITAL LETTER U WITH ACUTE
+01D4      ; [.1B77.001E.0002] # LATIN SMALL LETTER U WITH CARON
+0075 030C ; [.1B77.001E.0002] # LATIN SMALL LETTER U WITH CARON
+01D3      ; [.1B77.001E.0008] # LATIN CAPITAL LETTER U WITH CARON
+0055 030C ; [.1B77.001E.0008] # LATIN CAPITAL LETTER U WITH CARON
+00F9      ; [.1B77.001F.0002] # LATIN SMALL LETTER U WITH GRAVE
+0075 0300 ; [.1B77.001F.0002] # LATIN SMALL LETTER U WITH GRAVE
+0075 0340 ; [.1B77.001F.0002] # LATIN SMALL LETTER U WITH GRAVE
+00D9      ; [.1B77.001F.0008] # LATIN CAPITAL LETTER U WITH GRAVE
+0055 0300 ; [.1B77.001F.0008] # LATIN CAPITAL LETTER U WITH GRAVE
+0055 0340 ; [.1B77.001F.0008] # LATIN CAPITAL LETTER U WITH GRAVE
+01D6      ; [.1B77.0021.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND MACRON
+0075 0308 0304 ; [.1B77.0021.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND MACRON
+01D5      ; [.1B77.0021.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS AND MACRON
+0055 0308 0304 ; [.1B77.0021.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS AND MACRON
+00FC 0304 ; [.1B77.0021.0002] # <LATIN SMALL LETTER U WITH DIAERESIS, COMBINING MACRON>
+00DC 0304 ; [.1B77.0021.0008] # <LATIN CAPITAL LETTER U WITH DIAERESIS, COMBINING MACRON>
+01D8      ; [.1B77.0022.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND ACUTE
+0075 0308 0301 ; [.1B77.0022.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND ACUTE
+0075 0308 0341 ; [.1B77.0022.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND ACUTE
+01D7      ; [.1B77.0022.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS AND ACUTE
+0055 0308 0301 ; [.1B77.0022.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS AND ACUTE
+0055 0308 0341 ; [.1B77.0022.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS AND ACUTE
+00FC 0301 ; [.1B77.0022.0002] # <LATIN SMALL LETTER U WITH DIAERESIS, COMBINING ACUTE ACCENT>
+00FC 0341 ; [.1B77.0022.0002] # <LATIN SMALL LETTER U WITH DIAERESIS, COMBINING ACUTE TONE MARK>
+00DC 0301 ; [.1B77.0022.0008] # <LATIN CAPITAL LETTER U WITH DIAERESIS, COMBINING ACUTE ACCENT>
+00DC 0341 ; [.1B77.0022.0008] # <LATIN CAPITAL LETTER U WITH DIAERESIS, COMBINING ACUTE TONE MARK>
+01DA      ; [.1B77.0023.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND CARON
+0075 0308 030C ; [.1B77.0023.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND CARON
+01D9      ; [.1B77.0023.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS AND CARON
+0055 0308 030C ; [.1B77.0023.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS AND CARON
+00FC 030C ; [.1B77.0023.0002] # <LATIN SMALL LETTER U WITH DIAERESIS, COMBINING CARON>
+00DC 030C ; [.1B77.0023.0008] # <LATIN CAPITAL LETTER U WITH DIAERESIS, COMBINING CARON>
+01DC      ; [.1B77.0024.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND GRAVE
+0075 0308 0300 ; [.1B77.0024.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND GRAVE
+0075 0308 0340 ; [.1B77.0024.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND GRAVE
+01DB      ; [.1B77.0024.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS AND GRAVE
+0055 0308 0300 ; [.1B77.0024.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS AND GRAVE
+0055 0308 0340 ; [.1B77.0024.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS AND GRAVE
+00FC 0300 ; [.1B77.0024.0002] # <LATIN SMALL LETTER U WITH DIAERESIS, COMBINING GRAVE ACCENT>
+00FC 0340 ; [.1B77.0024.0002] # <LATIN SMALL LETTER U WITH DIAERESIS, COMBINING GRAVE TONE MARK>
+00DC 0300 ; [.1B77.0024.0008] # <LATIN CAPITAL LETTER U WITH DIAERESIS, COMBINING GRAVE ACCENT>
+00DC 0340 ; [.1B77.0024.0008] # <LATIN CAPITAL LETTER U WITH DIAERESIS, COMBINING GRAVE TONE MARK>
+00FC      ; [.1B77.0025.0002] # LATIN SMALL LETTER U WITH DIAERESIS
+0075 0308 ; [.1B77.0025.0002] # LATIN SMALL LETTER U WITH DIAERESIS
+00DC      ; [.1B77.0025.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS
+0055 0308 ; [.1B77.0025.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS
+FDD0 2801 ; [.8000.0020.0002] # <noncharacter-FDD0, BRAILLE PATTERN DOTS-1>
+2E84      ; [.8007.0020.0002] # CJK RADICAL SECOND THREE
+3006      ; [.8012.0020.0002] # IDEOGRAPHIC CLOSING MARK
+3007      ; [.8013.0020.0002] # IDEOGRAPHIC NUMBER ZERO
+3021      ; [.8014.0020.0002] # HANGZHOU NUMERAL ONE
+3025      ; [.8015.0020.0002] # HANGZHOU NUMERAL FIVE
+303B      ; [.8016.0020.0002] # VERTICAL IDEOGRAPHIC ITERATION MARK
+FDD0 2802 ; [.8017.0020.0002] # <noncharacter-FDD0, BRAILLE PATTERN DOTS-2>
+2E86      ; [.8031.0020.0002] # CJK RADICAL BOX
+2E87      ; [.8035.0020.0002] # CJK RADICAL TABLE
+2E88      ; [.8038.0020.0002] # CJK RADICAL KNIFE ONE
+2E8A      ; [.8042.0020.0002] # CJK RADICAL DIVINATION
+2E80      ; [.8047.0020.0002] # CJK RADICAL REPEAT
+2ECF      ; [.804B.0020.0002] # CJK RADICAL CITY
+2ED6      ; [.804C.0020.0002] # CJK RADICAL MOUND TWO
+3022      ; [.804E.0020.0002] # HANGZHOU NUMERAL TWO
+3024      ; [.804F.0020.0002] # HANGZHOU NUMERAL FOUR
+3026      ; [.8050.0020.0002] # HANGZHOU NUMERAL SIX
+FDD0 2803 ; [.8051.0020.0002] # <noncharacter-FDD0, BRAILLE PATTERN DOTS-12>
+2E8C      ; [.808F.0020.0002] # CJK RADICAL SMALL ONE
+2E8D      ; [.8090.0020.0002] # CJK RADICAL SMALL TWO
+2E95      ; [.80A8.0020.0002] # CJK RADICAL SNOUT TWO
+2EBE      ; [.80B3.0020.0002] # CJK RADICAL GRASS ONE
+2ECC      ; [.80B5.0020.0002] # CJK RADICAL SIMPLIFIED WALK
+3005      ; [.80BB.0020.0002] # IDEOGRAPHIC ITERATION MARK
+3023      ; [.80BC.0020.0002] # HANGZHOU NUMERAL THREE
+3027      ; [.80BD.0020.0002] # HANGZHOU NUMERAL SEVEN
+FDD0 2804 ; [.80BE.0020.0002] # <noncharacter-FDD0, BRAILLE PATTERN DOTS-3>
+2E9C      ; [.815B.0020.0002] # CJK RADICAL SUN
+2E9D      ; [.815E.0020.0002] # CJK RADICAL MOON
+2EA5      ; [.8170.0020.0002] # CJK RADICAL PAW TWO
+2EA7      ; [.817A.0020.0002] # CJK RADICAL COW
+2EBC      ; [.8185.0020.0002] # CJK RADICAL MEAT
+2ECD      ; [.818E.0020.0002] # CJK RADICAL WALK ONE
+3028      ; [.8193.0020.0002] # HANGZHOU NUMERAL EIGHT
+3029      ; [.8194.0020.0002] # HANGZHOU NUMERAL NINE
+FDD0 2805 ; [.8195.0020.0002] # <noncharacter-FDD0, BRAILLE PATTERN DOTS-13>
+2EAA      ; [.82B3.0020.0002] # CJK RADICAL BOLT OF CLOTH
+2EAC      ; [.82BF.0020.0002] # CJK RADICAL SPIRIT ONE
+FDD0 2806 ; [.82E7.0020.0002] # <noncharacter-FDD0, BRAILLE PATTERN DOTS-23>
+2EAE      ; [.84B2.0020.0002] # CJK RADICAL BAMBOO
+2EB6      ; [.84C6.0020.0002] # CJK RADICAL SHEEP
+FDD0 2807 ; [.8529.0020.0002] # <noncharacter-FDD0, BRAILLE PATTERN DOTS-123>
+2EC6      ; [.887A.0020.0002] # CJK RADICAL SIMPLIFIED HORN
+2ECA      ; [.889A.0020.0002] # CJK RADICAL FOOT
+FDD0 2808 ; [.88FA.0020.0002] # <noncharacter-FDD0, BRAILLE PATTERN DOTS-4>
+FA24      ; [.8E20.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA24
+2ED7      ; [.8E5B.0020.0002] # CJK RADICAL RAIN
+FDD0 2809 ; [.8E7C.0020.0002] # <noncharacter-FDD0, BRAILLE PATTERN DOTS-14>
+2EDE      ; [.94AC.0020.0002] # CJK RADICAL EAT TWO
+2EE3      ; [.94C3.0020.0002] # CJK RADICAL BONE
+FDD0 280A ; [.94CA.0020.0002] # <noncharacter-FDD0, BRAILLE PATTERN DOTS-24>
+FA0F      ; [.95F1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA0F
+FDD0 280B ; [.9C16.0020.0002] # <noncharacter-FDD0, BRAILLE PATTERN DOTS-124>
+FA21      ; [.A279.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA21
+FA23      ; [.A312.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA23
+FDD0 280C ; [.A41D.0020.0002] # <noncharacter-FDD0, BRAILLE PATTERN DOTS-34>
+FA11      ; [.A5A3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA11
+FDD0 280D ; [.AC7F.0020.0002] # <noncharacter-FDD0, BRAILLE PATTERN DOTS-134>
+FA0E      ; [.ACD0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA0E
+FA13      ; [.AEF8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA13
+FA29      ; [.B3B4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA29
+FDD0 280E ; [.B44A.0020.0002] # <noncharacter-FDD0, BRAILLE PATTERN DOTS-234>
+FA14      ; [.B690.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA14
+FDD0 280F ; [.BB5A.0020.0002] # <noncharacter-FDD0, BRAILLE PATTERN DOTS-1234>
+FA27      ; [.C173.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA27
+FDD0 2810 ; [.C276.0020.0002] # <noncharacter-FDD0, BRAILLE PATTERN DOTS-5>
+FA28      ; [.C748.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA28
+FDD0 2811 ; [.C860.0020.0002] # <noncharacter-FDD0, BRAILLE PATTERN DOTS-15>
+FDD0 2812 ; [.CD3D.0020.0002] # <noncharacter-FDD0, BRAILLE PATTERN DOTS-25>
+FDD0 2813 ; [.D0E6.0020.0002] # <noncharacter-FDD0, BRAILLE PATTERN DOTS-125>
+FA1F      ; [.D23D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA1F
+FDD0 2814 ; [.D41B.0020.0002] # <noncharacter-FDD0, BRAILLE PATTERN DOTS-35>
+FDD0 2815 ; [.D68C.0020.0002] # <noncharacter-FDD0, BRAILLE PATTERN DOTS-135>
+FDD0 2816 ; [.D846.0020.0002] # <noncharacter-FDD0, BRAILLE PATTERN DOTS-235>
+FDD0 2817 ; [.D993.0020.0002] # <noncharacter-FDD0, BRAILLE PATTERN DOTS-1235>
+FDD0 2818 ; [.DA95.0020.0002] # <noncharacter-FDD0, BRAILLE PATTERN DOTS-45>
+FDD0 2819 ; [.DB3D.0020.0002] # <noncharacter-FDD0, BRAILLE PATTERN DOTS-145>
+FDD0 281A ; [.DBB4.0020.0002] # <noncharacter-FDD0, BRAILLE PATTERN DOTS-245>
+FDD0 281B ; [.DBF1.0020.0002] # <noncharacter-FDD0, BRAILLE PATTERN DOTS-1245>
+FDD0 281C ; [.DC29.0020.0002] # <noncharacter-FDD0, BRAILLE PATTERN DOTS-345>
+FDD0 281D ; [.DC4D.0020.0002] # <noncharacter-FDD0, BRAILLE PATTERN DOTS-1345>
+FDD0 281E ; [.DC5C.0020.0002] # <noncharacter-FDD0, BRAILLE PATTERN DOTS-2345>
+FDD0 281F ; [.DC6C.0020.0002] # <noncharacter-FDD0, BRAILLE PATTERN DOTS-12345>
+FDD0 2820 ; [.DC71.0020.0002] # <noncharacter-FDD0, BRAILLE PATTERN DOTS-6>
+FDD0 2821 ; [.DC76.0020.0002] # <noncharacter-FDD0, BRAILLE PATTERN DOTS-16>
+FDD0 2823 ; [.DC7C.0020.0002] # <noncharacter-FDD0, BRAILLE PATTERN DOTS-126>
+FDD0 2824 ; [.DC7E.0020.0002] # <noncharacter-FDD0, BRAILLE PATTERN DOTS-36>
+FDD0 2827 ; [.DC80.0020.0002] # <noncharacter-FDD0, BRAILLE PATTERN DOTS-1236>
+FDD0 2830 ; [.DC82.0020.0002] # <noncharacter-FDD0, BRAILLE PATTERN DOTS-56>
+3220      ; [*030A.0020.0004][.8001.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH ONE
+3226      ; [*030A.0020.0004][.801A.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH SEVEN
+3222      ; [*030A.0020.0004][.8054.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH THREE
+3228      ; [*030A.0020.0004][.8027.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH NINE
+3221      ; [*030A.0020.0004][.802A.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH TWO
+3224      ; [*030A.0020.0004][.80D7.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH FIVE
+3239      ; [*030A.0020.0004][.81C2.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH REPRESENT
+323D      ; [*030A.0020.0004][.831C.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH ENTERPRISE
+3241      ; [*030A.0020.0004][.832C.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH REST
+3227      ; [*030A.0020.0004][.8030.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH EIGHT
+3225      ; [*030A.0020.0004][.80F5.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH SIX
+3238      ; [*030A.0020.0004][.85A8.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH LABOR
+3229      ; [*030A.0020.0004][.8041.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH TEN
+323F      ; [*030A.0020.0004][.899D.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH ALLIANCE
+3234      ; [*030A.0020.0004][.839D.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH NAME
+323A      ; [*030A.0020.0004][.89D5.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH CALL
+3223      ; [*030A.0020.0004][.822D.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH FOUR
+322F      ; [*030A.0020.0004][.8081.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH EARTH
+323B      ; [*030A.0020.0004][.8A8D.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH STUDY
+3230      ; [*030A.0020.0004][.815C.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH SUN
+322A      ; [*030A.0020.0004][.815F.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH MOON
+3232      ; [*030A.0020.0004][.845A.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH HAVE
+322D      ; [*030A.0020.0004][.8160.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH WOOD
+3231      ; [*030A.0020.0004][.979F.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH STOCK
+322C      ; [*030A.0020.0004][.816D.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH WATER
+322B      ; [*030A.0020.0004][.816E.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH FIRE
+3235      ; [*030A.0020.0004][.9895.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH SPECIAL
+323C      ; [*030A.0020.0004][.B79A.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH SUPERVISE
+3233      ; [*030A.0020.0004][.8D2E.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH SOCIETY
+3237      ; [*030A.0020.0004][.9970.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH CONGRATULATION
+3240      ; [*030A.0020.0004][.A100.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH FESTIVAL
+3242      ; [*030A.0020.0004][.84D8.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH SELF
+3243      ; [*030A.0020.0004][.84D9.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH REACH
+3236      ; [*030A.0020.0004][.9B3B.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH FINANCIAL
+323E      ; [*030A.0020.0004][.B2A5.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH RESOURCE
+322E      ; [*030A.0020.0004][.8E33.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH METAL
+3358      ; [.1902.0020.0004][.9216.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR ZERO
+33E9      ; [.1903.0020.0004][.1902.0020.0004][.815C.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TEN
+32C9      ; [.1903.0020.0004][.1902.0020.0004][.815F.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR OCTOBER
+3362      ; [.1903.0020.0004][.1902.0020.0004][.9216.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR TEN
+33EA      ; [.1903.0020.0004][.1903.0020.0004][.815C.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY ELEVEN
+32CA      ; [.1903.0020.0004][.1903.0020.0004][.815F.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR NOVEMBER
+3363      ; [.1903.0020.0004][.1903.0020.0004][.9216.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR ELEVEN
+33EB      ; [.1903.0020.0004][.1904.0020.0004][.815C.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWELVE
+32CB      ; [.1903.0020.0004][.1904.0020.0004][.815F.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DECEMBER
+3364      ; [.1903.0020.0004][.1904.0020.0004][.9216.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR TWELVE
+33EC      ; [.1903.0020.0004][.1905.0020.0004][.815C.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY THIRTEEN
+3365      ; [.1903.0020.0004][.1905.0020.0004][.9216.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR THIRTEEN
+33ED      ; [.1903.0020.0004][.1906.0020.0004][.815C.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY FOURTEEN
+3366      ; [.1903.0020.0004][.1906.0020.0004][.9216.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR FOURTEEN
+33EE      ; [.1903.0020.0004][.1907.0020.0004][.815C.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY FIFTEEN
+3367      ; [.1903.0020.0004][.1907.0020.0004][.9216.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR FIFTEEN
+33EF      ; [.1903.0020.0004][.1908.0020.0004][.815C.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY SIXTEEN
+3368      ; [.1903.0020.0004][.1908.0020.0004][.9216.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR SIXTEEN
+33F0      ; [.1903.0020.0004][.1909.0020.0004][.815C.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY SEVENTEEN
+3369      ; [.1903.0020.0004][.1909.0020.0004][.9216.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR SEVENTEEN
+33F1      ; [.1903.0020.0004][.190A.0020.0004][.815C.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY EIGHTEEN
+336A      ; [.1903.0020.0004][.190A.0020.0004][.9216.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR EIGHTEEN
+33F2      ; [.1903.0020.0004][.190B.0020.0004][.815C.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY NINETEEN
+336B      ; [.1903.0020.0004][.190B.0020.0004][.9216.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR NINETEEN
+33E0      ; [.1903.0020.0004][.815C.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY ONE
+32C0      ; [.1903.0020.0004][.815F.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR JANUARY
+3359      ; [.1903.0020.0004][.9216.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR ONE
+33F3      ; [.1904.0020.0004][.1902.0020.0004][.815C.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY
+336C      ; [.1904.0020.0004][.1902.0020.0004][.9216.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR TWENTY
+33F4      ; [.1904.0020.0004][.1903.0020.0004][.815C.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY-ONE
+336D      ; [.1904.0020.0004][.1903.0020.0004][.9216.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR TWENTY-ONE
+33F5      ; [.1904.0020.0004][.1904.0020.0004][.815C.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY-TWO
+336E      ; [.1904.0020.0004][.1904.0020.0004][.9216.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR TWENTY-TWO
+33F6      ; [.1904.0020.0004][.1905.0020.0004][.815C.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY-THREE
+336F      ; [.1904.0020.0004][.1905.0020.0004][.9216.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR TWENTY-THREE
+33F7      ; [.1904.0020.0004][.1906.0020.0004][.815C.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY-FOUR
+3370      ; [.1904.0020.0004][.1906.0020.0004][.9216.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR TWENTY-FOUR
+33F8      ; [.1904.0020.0004][.1907.0020.0004][.815C.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY-FIVE
+33F9      ; [.1904.0020.0004][.1908.0020.0004][.815C.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY-SIX
+33FA      ; [.1904.0020.0004][.1909.0020.0004][.815C.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY-SEVEN
+33FB      ; [.1904.0020.0004][.190A.0020.0004][.815C.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY-EIGHT
+33FC      ; [.1904.0020.0004][.190B.0020.0004][.815C.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY-NINE
+33E1      ; [.1904.0020.0004][.815C.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWO
+32C1      ; [.1904.0020.0004][.815F.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR FEBRUARY
+335A      ; [.1904.0020.0004][.9216.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR TWO
+33FD      ; [.1905.0020.0004][.1902.0020.0004][.815C.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY THIRTY
+33FE      ; [.1905.0020.0004][.1903.0020.0004][.815C.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY THIRTY-ONE
+33E2      ; [.1905.0020.0004][.815C.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY THREE
+32C2      ; [.1905.0020.0004][.815F.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR MARCH
+335B      ; [.1905.0020.0004][.9216.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR THREE
+33E3      ; [.1906.0020.0004][.815C.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY FOUR
+32C3      ; [.1906.0020.0004][.815F.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR APRIL
+335C      ; [.1906.0020.0004][.9216.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR FOUR
+33E4      ; [.1907.0020.0004][.815C.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY FIVE
+32C4      ; [.1907.0020.0004][.815F.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR MAY
+335D      ; [.1907.0020.0004][.9216.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR FIVE
+33E5      ; [.1908.0020.0004][.815C.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY SIX
+32C5      ; [.1908.0020.0004][.815F.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR JUNE
+335E      ; [.1908.0020.0004][.9216.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR SIX
+33E6      ; [.1909.0020.0004][.815C.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY SEVEN
+32C6      ; [.1909.0020.0004][.815F.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR JULY
+335F      ; [.1909.0020.0004][.9216.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR SEVEN
+33E7      ; [.190A.0020.0004][.815C.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY EIGHT
+32C7      ; [.190A.0020.0004][.815F.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR AUGUST
+3360      ; [.190A.0020.0004][.9216.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR EIGHT
+33E8      ; [.190B.0020.0004][.815C.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY NINE
+32C8      ; [.190B.0020.0004][.815F.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR SEPTEMBER
+3361      ; [.190B.0020.0004][.9216.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR NINE
+1F241     ; [*036C.0020.0004][.8054.0020.0004][*036D.0020.0004] # TORTOISE SHELL BRACKETED CJK UNIFIED IDEOGRAPH-4E09
+1F242     ; [*036C.0020.0004][.802A.0020.0004][*036D.0020.0004] # TORTOISE SHELL BRACKETED CJK UNIFIED IDEOGRAPH-4E8C
+1F247     ; [*036C.0020.0004][.A465.0020.0004][*036D.0020.0004] # TORTOISE SHELL BRACKETED CJK UNIFIED IDEOGRAPH-52DD
+1F243     ; [*036C.0020.0004][.83F0.0020.0004][*036D.0020.0004] # TORTOISE SHELL BRACKETED CJK UNIFIED IDEOGRAPH-5B89
+1F245     ; [*036C.0020.0004][.8277.0020.0004][*036D.0020.0004] # TORTOISE SHELL BRACKETED CJK UNIFIED IDEOGRAPH-6253
+1F248     ; [*036C.0020.0004][.9EDA.0020.0004][*036D.0020.0004] # TORTOISE SHELL BRACKETED CJK UNIFIED IDEOGRAPH-6557
+1F240     ; [*036C.0020.0004][.8283.0020.0004][*036D.0020.0004] # TORTOISE SHELL BRACKETED CJK UNIFIED IDEOGRAPH-672C
+1F244     ; [*036C.0020.0004][.9216.0020.0004][*036D.0020.0004] # TORTOISE SHELL BRACKETED CJK UNIFIED IDEOGRAPH-70B9
+1F246     ; [*036C.0020.0004][.A0BD.0020.0004][*036D.0020.0004] # TORTOISE SHELL BRACKETED CJK UNIFIED IDEOGRAPH-76D7
+2F00      ; [.8001.0020.0004] # KANGXI RADICAL ONE
+3192      ; [.8001.0020.0014] # IDEOGRAPHIC ANNOTATION ONE MARK
+3280      ; [.8001.0020.0006] # CIRCLED IDEOGRAPH ONE
+1F229     ; [.8001.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-4E00
+319C      ; [.8018.0020.0014] # IDEOGRAPHIC ANNOTATION FOURTH MARK
+3286      ; [.801A.0020.0006] # CIRCLED IDEOGRAPH SEVEN
+3194      ; [.8054.0020.0014] # IDEOGRAPHIC ANNOTATION THREE MARK
+3282      ; [.8054.0020.0006] # CIRCLED IDEOGRAPH THREE
+1F22A     ; [.8054.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-4E09
+3196      ; [.8055.0020.0014] # IDEOGRAPHIC ANNOTATION TOP MARK
+32A4      ; [.8055.0020.0006] # CIRCLED IDEOGRAPH HIGH
+3198      ; [.8056.0020.0014] # IDEOGRAPHIC ANNOTATION BOTTOM MARK
+32A6      ; [.8056.0020.0006] # CIRCLED IDEOGRAPH LOW
+319B      ; [.819C.0020.0014] # IDEOGRAPHIC ANNOTATION THIRD MARK
+2F01      ; [.8002.0020.0004] # KANGXI RADICAL LINE
+3197      ; [.80C6.0020.0014] # IDEOGRAPHIC ANNOTATION MIDDLE MARK
+32A5      ; [.80C6.0020.0006] # CIRCLED IDEOGRAPH CENTRE
+1F22D     ; [.80C6.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-4E2D
+2F02      ; [.8003.0020.0004] # KANGXI RADICAL DOT
+2F03      ; [.8004.0020.0004] # KANGXI RADICAL SLASH
+2F04      ; [.8008.0020.0004] # KANGXI RADICAL SECOND
+319A      ; [.8008.0020.0014] # IDEOGRAPHIC ANNOTATION SECOND MARK
+3288      ; [.8027.0020.0006] # CIRCLED IDEOGRAPH NINE
+2F05      ; [.8010.0020.0004] # KANGXI RADICAL HOOK
+2F06      ; [.802A.0020.0004] # KANGXI RADICAL TWO
+3193      ; [.802A.0020.0014] # IDEOGRAPHIC ANNOTATION TWO MARK
+3281      ; [.802A.0020.0006] # CIRCLED IDEOGRAPH TWO
+1F214     ; [.802A.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-4E8C
+3284      ; [.80D7.0020.0006] # CIRCLED IDEOGRAPH FIVE
+2F07      ; [.802B.0020.0004] # KANGXI RADICAL LID
+1F218     ; [.8300.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-4EA4
+2F08      ; [.802C.0020.0004] # KANGXI RADICAL MAN
+319F      ; [.802C.0020.0014] # IDEOGRAPHIC ANNOTATION MAN MARK
+32AD      ; [.831C.0020.0006] # CIRCLED IDEOGRAPH ENTERPRISE
+32A1      ; [.832C.0020.0006] # CIRCLED IDEOGRAPH REST
+329D      ; [.C86C.0020.0006] # CIRCLED IDEOGRAPH EXCELLENT
+2F09      ; [.802E.0020.0004] # KANGXI RADICAL LEGS
+2F0A      ; [.802F.0020.0004] # KANGXI RADICAL ENTER
+2F0B      ; [.8030.0020.0004] # KANGXI RADICAL EIGHT
+3287      ; [.8030.0020.0006] # CIRCLED IDEOGRAPH EIGHT
+3285      ; [.80F5.0020.0006] # CIRCLED IDEOGRAPH SIX
+2F0C      ; [.8032.0020.0004] # KANGXI RADICAL DOWN BOX
+1F21E     ; [.8356.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-518D
+2F0D      ; [.8033.0020.0004] # KANGXI RADICAL COVER
+32A2      ; [.81D8.0020.0006] # CIRCLED IDEOGRAPH COPY
+2F0E      ; [.8034.0020.0004] # KANGXI RADICAL ICE
+2F0F      ; [.8036.0020.0004] # KANGXI RADICAL TABLE
+2F10      ; [.8037.0020.0004] # KANGXI RADICAL OPEN BOX
+2F11      ; [.8039.0020.0004] # KANGXI RADICAL KNIFE
+1F220     ; [.858C.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-521D
+1F21C     ; [.8EE7.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-524D
+1F239     ; [.A45F.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-5272
+2F12      ; [.803C.0020.0004] # KANGXI RADICAL POWER
+3298      ; [.85A8.0020.0006] # CIRCLED IDEOGRAPH LABOR
+2F13      ; [.803D.0020.0004] # KANGXI RADICAL WRAP
+2F14      ; [.803E.0020.0004] # KANGXI RADICAL SPOON
+2F15      ; [.803F.0020.0004] # KANGXI RADICAL RIGHT OPEN BOX
+2F16      ; [.8040.0020.0004] # KANGXI RADICAL HIDING ENCLOSURE
+32A9      ; [.85B0.0020.0006] # CIRCLED IDEOGRAPH MEDICINE
+2F17      ; [.8041.0020.0004] # KANGXI RADICAL TEN
+3038      ; [.8041.0020.0004] # HANGZHOU NUMERAL TEN
+3289      ; [.8041.0020.0006] # CIRCLED IDEOGRAPH TEN
+3039      ; [.8059.0020.0004] # HANGZHOU NUMERAL TWENTY
+303A      ; [.8118.0020.0004] # HANGZHOU NUMERAL THIRTY
+32AF      ; [.899D.0020.0006] # CIRCLED IDEOGRAPH ALLIANCE
+2F18      ; [.8043.0020.0004] # KANGXI RADICAL DIVINATION
+2F19      ; [.8044.0020.0004] # KANGXI RADICAL SEAL
+329E      ; [.8384.0020.0006] # CIRCLED IDEOGRAPH PRINT
+2F1A      ; [.8045.0020.0004] # KANGXI RADICAL CLIFF
+2F1B      ; [.8046.0020.0004] # KANGXI RADICAL PRIVATE
+2F1C      ; [.8048.0020.0004] # KANGXI RADICAL AGAIN
+1F212     ; [.8128.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-53CC
+2F1D      ; [.807F.0020.0004] # KANGXI RADICAL MOUTH
+1F251     ; [.8218.0020.0006] # CIRCLED IDEOGRAPH ACCEPT
+32A8      ; [.821C.0020.0006] # CIRCLED IDEOGRAPH RIGHT
+1F22E     ; [.821C.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-53F3
+1F234     ; [.8398.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-5408
+3294      ; [.839D.0020.0006] # CIRCLED IDEOGRAPH NAME
+1F225     ; [.85E1.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-5439
+3244      ; [.9CC0.0020.0006] # CIRCLED IDEOGRAPH QUESTION
+1F23A     ; [.9CFD.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-55B6
+2F1E      ; [.8080.0020.0004] # KANGXI RADICAL ENCLOSURE
+3195      ; [.822D.0020.0014] # IDEOGRAPHIC ANNOTATION FOUR MARK
+3283      ; [.822D.0020.0006] # CIRCLED IDEOGRAPH FOUR
+2F1F      ; [.8081.0020.0004] # KANGXI RADICAL EARTH
+328F      ; [.8081.0020.0006] # CIRCLED IDEOGRAPH EARTH
+319E      ; [.83B9.0020.0014] # IDEOGRAPHIC ANNOTATION EARTH MARK
+2F20      ; [.8082.0020.0004] # KANGXI RADICAL SCHOLAR
+1F224     ; [.8649.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-58F0
+2F21      ; [.8083.0020.0004] # KANGXI RADICAL GO
+2F22      ; [.8084.0020.0004] # KANGXI RADICAL GO SLOWLY
+2F23      ; [.8085.0020.0004] # KANGXI RADICAL EVENING
+1F215     ; [.83C8.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-591A
+32B0      ; [.8A3E.0020.0006] # CIRCLED IDEOGRAPH NIGHT
+2F24      ; [.8086.0020.0004] # KANGXI RADICAL BIG
+337D      ; [.8086.0020.001C][.8288.0020.001C] # SQUARE ERA NAME TAISYOU
+319D      ; [.8130.0020.0014] # IDEOGRAPHIC ANNOTATION HEAVEN MARK
+1F217     ; [.8130.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-5929
+2F25      ; [.8088.0020.0004] # KANGXI RADICAL WOMAN
+329B      ; [.8088.0020.0006] # CIRCLED IDEOGRAPH FEMALE
+2F26      ; [.8089.0020.0004] # KANGXI RADICAL CHILD
+1F211     ; [.83E8.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-5B57
+32AB      ; [.8A8D.0020.0006] # CIRCLED IDEOGRAPH STUDY
+2F27      ; [.808D.0020.0004] # KANGXI RADICAL ROOF
+32AA      ; [.8A94.0020.0006] # CIRCLED IDEOGRAPH RELIGION
+2F28      ; [.808E.0020.0004] # KANGXI RADICAL INCH
+2F29      ; [.8091.0020.0004] # KANGXI RADICAL SMALL
+2F2A      ; [.8092.0020.0004] # KANGXI RADICAL LAME
+2F2B      ; [.8095.0020.0004] # KANGXI RADICAL CORPSE
+2F2C      ; [.8096.0020.0004] # KANGXI RADICAL SPROUT
+2F2D      ; [.8097.0020.0004] # KANGXI RADICAL MOUNTAIN
+2F2E      ; [.8098.0020.0004] # KANGXI RADICAL RIVER
+2F2F      ; [.809B.0020.0004] # KANGXI RADICAL WORK
+32A7      ; [.8256.0020.0006] # CIRCLED IDEOGRAPH LEFT
+1F22C     ; [.8256.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-5DE6
+2F30      ; [.809C.0020.0004] # KANGXI RADICAL ONESELF
+2F31      ; [.809F.0020.0004] # KANGXI RADICAL TURBAN
+2F32      ; [.80A0.0020.0004] # KANGXI RADICAL DRY
+337B      ; [.825F.0020.001C][.8435.0020.001C] # SQUARE ERA NAME HEISEI
+2F33      ; [.80A2.0020.0004] # KANGXI RADICAL SHORT THREAD
+3245      ; [.8260.0020.0006] # CIRCLED IDEOGRAPH KINDERGARTEN
+2F34      ; [.80A3.0020.0004] # KANGXI RADICAL DOTTED CLIFF
+2F35      ; [.80A4.0020.0004] # KANGXI RADICAL LONG STRIDE
+2F36      ; [.80A5.0020.0004] # KANGXI RADICAL TWO HANDS
+2F37      ; [.80A6.0020.0004] # KANGXI RADICAL SHOOT
+2F38      ; [.80A7.0020.0004] # KANGXI RADICAL BOW
+2F39      ; [.80A9.0020.0004] # KANGXI RADICAL SNOUT
+2F3A      ; [.80AB.0020.0004] # KANGXI RADICAL BRISTLE
+2F3B      ; [.80AC.0020.0004] # KANGXI RADICAL STEP
+1F21D     ; [.9050.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-5F8C
+1F250     ; [.9E0E.0020.0006] # CIRCLED IDEOGRAPH ADVANTAGE
+2F3C      ; [.8149.0020.0004] # KANGXI RADICAL HEART
+2F3D      ; [.814B.0020.0004] # KANGXI RADICAL HALBERD
+2F3E      ; [.814C.0020.0004] # KANGXI RADICAL DOOR
+2F3F      ; [.814F.0020.0004] # KANGXI RADICAL HAND
+1F210     ; [.814F.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-624B
+1F231     ; [.8277.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-6253
+1F227     ; [.873A.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-6295
+1F22F     ; [.90B6.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-6307
+1F228     ; [.9724.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-6355
+2F40      ; [.8152.0020.0004] # KANGXI RADICAL BRANCH
+2F41      ; [.8153.0020.0004] # KANGXI RADICAL RAP
+2F42      ; [.8155.0020.0004] # KANGXI RADICAL SCRIPT
+3246      ; [.8155.0020.0006] # CIRCLED IDEOGRAPH SCHOOL
+2F43      ; [.8156.0020.0004] # KANGXI RADICAL DIPPER
+1F21B     ; [.9745.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-6599
+2F44      ; [.8157.0020.0004] # KANGXI RADICAL AXE
+1F21F     ; [.AE69.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-65B0
+2F45      ; [.8158.0020.0004] # KANGXI RADICAL SQUARE
+2F46      ; [.8159.0020.0004] # KANGXI RADICAL NOT
+2F47      ; [.815C.0020.0004] # KANGXI RADICAL SUN
+3290      ; [.815C.0020.0006] # CIRCLED IDEOGRAPH SUN
+337E      ; [.8BBF.0020.001C][.8C54.0020.001C] # SQUARE ERA NAME MEIZI
+1F219     ; [.90F3.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-6620
+337C      ; [.9100.0020.001C][.89E5.0020.001C] # SQUARE ERA NAME SYOUWA
+2F48      ; [.815D.0020.0004] # KANGXI RADICAL SAY
+2F49      ; [.815F.0020.0004] # KANGXI RADICAL MOON
+328A      ; [.815F.0020.0006] # CIRCLED IDEOGRAPH MOON
+1F237     ; [.815F.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-6708
+3292      ; [.845A.0020.0006] # CIRCLED IDEOGRAPH HAVE
+1F236     ; [.845A.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-6709
+2F4A      ; [.8160.0020.0004] # KANGXI RADICAL TREE
+328D      ; [.8160.0020.0006] # CIRCLED IDEOGRAPH WOOD
+3291      ; [.979F.0020.0006] # CIRCLED IDEOGRAPH STOCK
+337F      ; [.979F.0020.001C][.841D.0020.001C][.8335.0020.001C][.8D2E.0020.001C] # SQUARE CORPORATION
+2F4B      ; [.8163.0020.0004] # KANGXI RADICAL LACK
+2F4C      ; [.8164.0020.0004] # KANGXI RADICAL STOP
+32A3      ; [.8288.0020.0006] # CIRCLED IDEOGRAPH CORRECT
+2F4D      ; [.8165.0020.0004] # KANGXI RADICAL DEATH
+2F4E      ; [.8166.0020.0004] # KANGXI RADICAL WEAPON
+2F4F      ; [.8167.0020.0004] # KANGXI RADICAL DO NOT
+2E9F      ; [.828A.0020.0004] # CJK RADICAL MOTHER
+2F50      ; [.8169.0020.0004] # KANGXI RADICAL COMPARE
+2F51      ; [.816A.0020.0004] # KANGXI RADICAL FUR
+2F52      ; [.816B.0020.0004] # KANGXI RADICAL CLAN
+2F53      ; [.816C.0020.0004] # KANGXI RADICAL STEAM
+2F54      ; [.816D.0020.0004] # KANGXI RADICAL WATER
+328C      ; [.816D.0020.0006] # CIRCLED IDEOGRAPH WATER
+329F      ; [.8C7F.0020.0006] # CIRCLED IDEOGRAPH ATTENTION
+1F235     ; [.A7C6.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-6E80
+1F226     ; [.B6D2.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-6F14
+2F55      ; [.816E.0020.0004] # KANGXI RADICAL FIRE
+328B      ; [.816E.0020.0006] # CIRCLED IDEOGRAPH FIRE
+1F21A     ; [.A7EB.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-7121
+2F56      ; [.8171.0020.0004] # KANGXI RADICAL CLAW
+2F57      ; [.8173.0020.0004] # KANGXI RADICAL FATHER
+2F58      ; [.8174.0020.0004] # KANGXI RADICAL DOUBLE X
+2F59      ; [.8176.0020.0004] # KANGXI RADICAL HALF TREE TRUNK
+2F5A      ; [.8177.0020.0004] # KANGXI RADICAL SLICE
+2F5B      ; [.8179.0020.0004] # KANGXI RADICAL FANG
+2F5C      ; [.817B.0020.0004] # KANGXI RADICAL COW
+3295      ; [.9895.0020.0006] # CIRCLED IDEOGRAPH SPECIAL
+2F5D      ; [.817D.0020.0004] # KANGXI RADICAL DOG
+2F5E      ; [.82A2.0020.0004] # KANGXI RADICAL PROFOUND
+2F5F      ; [.82A3.0020.0004] # KANGXI RADICAL JADE
+2F60      ; [.82A7.0020.0004] # KANGXI RADICAL MELON
+2F61      ; [.82A8.0020.0004] # KANGXI RADICAL TILE
+2F62      ; [.82A9.0020.0004] # KANGXI RADICAL SWEET
+2F63      ; [.82AA.0020.0004] # KANGXI RADICAL LIFE
+1F222     ; [.82AA.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-751F
+2F64      ; [.82AB.0020.0004] # KANGXI RADICAL USE
+2F65      ; [.82AD.0020.0004] # KANGXI RADICAL FIELD
+3199      ; [.82AF.0020.0014] # IDEOGRAPHIC ANNOTATION FIRST MARK
+1F238     ; [.82B0.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-7533
+329A      ; [.8815.0020.0006] # CIRCLED IDEOGRAPH MALE
+2F66      ; [.82B4.0020.0004] # KANGXI RADICAL BOLT OF CLOTH
+2F67      ; [.82B6.0020.0004] # KANGXI RADICAL SICKNESS
+2F68      ; [.82B7.0020.0004] # KANGXI RADICAL DOTTED TENT
+2F69      ; [.82B8.0020.0004] # KANGXI RADICAL WHITE
+2F6A      ; [.82B9.0020.0004] # KANGXI RADICAL SKIN
+2F6B      ; [.82BA.0020.0004] # KANGXI RADICAL DISH
+32AC      ; [.B79A.0020.0006] # CIRCLED IDEOGRAPH SUPERVISE
+2F6C      ; [.82BB.0020.0004] # KANGXI RADICAL EYE
+2F6D      ; [.82BC.0020.0004] # KANGXI RADICAL SPEAR
+2F6E      ; [.82BD.0020.0004] # KANGXI RADICAL ARROW
+2F6F      ; [.82BE.0020.0004] # KANGXI RADICAL STONE
+2F70      ; [.82C0.0020.0004] # KANGXI RADICAL SPIRIT
+3293      ; [.8D2E.0020.0006] # CIRCLED IDEOGRAPH SOCIETY
+3297      ; [.9970.0020.0006] # CIRCLED IDEOGRAPH CONGRATULATION
+1F232     ; [.B0A6.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-7981
+2F71      ; [.82C1.0020.0004] # KANGXI RADICAL TRACK
+2F72      ; [.82C2.0020.0004] # KANGXI RADICAL GRAIN
+3299      ; [.9977.0020.0006] # CIRCLED IDEOGRAPH SECRET
+2F73      ; [.82C3.0020.0004] # KANGXI RADICAL CAVE
+1F233     ; [.8D3E.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-7A7A
+2F74      ; [.82C4.0020.0004] # KANGXI RADICAL STAND
+2F75      ; [.84B5.0020.0004] # KANGXI RADICAL BAMBOO
+3247      ; [.B822.0020.0006] # CIRCLED IDEOGRAPH KOTO
+2F76      ; [.84B6.0020.0004] # KANGXI RADICAL RICE
+2F77      ; [.84B7.0020.0004] # KANGXI RADICAL SILK
+1F221     ; [.A172.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-7D42
+2F78      ; [.84C4.0020.0004] # KANGXI RADICAL JAR
+2F79      ; [.84C5.0020.0004] # KANGXI RADICAL NET
+2F7A      ; [.84C7.0020.0004] # KANGXI RADICAL SHEEP
+2F7B      ; [.84CA.0020.0004] # KANGXI RADICAL FEATHER
+2F7C      ; [.84CB.0020.0004] # KANGXI RADICAL OLD
+2F7D      ; [.84CD.0020.0004] # KANGXI RADICAL AND
+2F7E      ; [.84CE.0020.0004] # KANGXI RADICAL PLOW
+2F7F      ; [.84CF.0020.0004] # KANGXI RADICAL EAR
+2F80      ; [.84D0.0020.0004] # KANGXI RADICAL BRUSH
+2F81      ; [.84D2.0020.0004] # KANGXI RADICAL MEAT
+2F82      ; [.84D7.0020.0004] # KANGXI RADICAL MINISTER
+2F83      ; [.84D8.0020.0004] # KANGXI RADICAL SELF
+2F84      ; [.84D9.0020.0004] # KANGXI RADICAL ARRIVE
+2F85      ; [.84DA.0020.0004] # KANGXI RADICAL MORTAR
+2F86      ; [.84DC.0020.0004] # KANGXI RADICAL TONGUE
+2F87      ; [.84DD.0020.0004] # KANGXI RADICAL OPPOSE
+2F88      ; [.84DE.0020.0004] # KANGXI RADICAL BOAT
+2F89      ; [.84DF.0020.0004] # KANGXI RADICAL STOPPING
+2F8A      ; [.84E0.0020.0004] # KANGXI RADICAL COLOR
+2F8B      ; [.84E1.0020.0004] # KANGXI RADICAL GRASS
+2F8C      ; [.84EA.0020.0004] # KANGXI RADICAL TIGER
+2F8D      ; [.84EB.0020.0004] # KANGXI RADICAL INSECT
+2F8E      ; [.84EC.0020.0004] # KANGXI RADICAL BLOOD
+2F8F      ; [.84ED.0020.0004] # KANGXI RADICAL WALK ENCLOSURE
+2F90      ; [.84EE.0020.0004] # KANGXI RADICAL CLOTHES
+2F91      ; [.84EF.0020.0004] # KANGXI RADICAL WEST
+2F92      ; [.8878.0020.0004] # KANGXI RADICAL SEE
+2F93      ; [.887B.0020.0004] # KANGXI RADICAL HORN
+1F216     ; [.B258.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-89E3
+2F94      ; [.887D.0020.0004] # KANGXI RADICAL SPEECH
+2F95      ; [.8891.0020.0004] # KANGXI RADICAL VALLEY
+2F96      ; [.8892.0020.0004] # KANGXI RADICAL BEAN
+2F97      ; [.8893.0020.0004] # KANGXI RADICAL PIG
+2F98      ; [.8894.0020.0004] # KANGXI RADICAL BADGER
+2F99      ; [.8895.0020.0004] # KANGXI RADICAL SHELL
+3296      ; [.9B3B.0020.0006] # CIRCLED IDEOGRAPH FINANCIAL
+1F223     ; [.A2FD.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-8CA9
+32AE      ; [.B2A5.0020.0006] # CIRCLED IDEOGRAPH RESOURCE
+2F9A      ; [.8898.0020.0004] # KANGXI RADICAL RED
+2F9B      ; [.8899.0020.0004] # KANGXI RADICAL RUN
+1F230     ; [.8899.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-8D70
+2F9C      ; [.889B.0020.0004] # KANGXI RADICAL FOOT
+2F9D      ; [.889C.0020.0004] # KANGXI RADICAL BODY
+2F9E      ; [.889D.0020.0004] # KANGXI RADICAL CART
+2F9F      ; [.88A1.0020.0004] # KANGXI RADICAL BITTER
+2FA0      ; [.88A2.0020.0004] # KANGXI RADICAL MORNING
+2FA1      ; [.88A3.0020.0004] # KANGXI RADICAL WALK
+1F22B     ; [.B30B.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-904A
+329C      ; [.C10A.0020.0006] # CIRCLED IDEOGRAPH SUITABLE
+2FA2      ; [.88B4.0020.0004] # KANGXI RADICAL CITY
+2FA3      ; [.88C5.0020.0004] # KANGXI RADICAL WINE
+2FA4      ; [.88C6.0020.0004] # KANGXI RADICAL DISTINGUISH
+2FA5      ; [.88C7.0020.0004] # KANGXI RADICAL VILLAGE
+2FA6      ; [.8E33.0020.0004] # KANGXI RADICAL GOLD
+328E      ; [.8E33.0020.0006] # CIRCLED IDEOGRAPH METAL
+2FA7      ; [.8E40.0020.0004] # KANGXI RADICAL LONG
+2FA8      ; [.8E42.0020.0004] # KANGXI RADICAL GATE
+2FA9      ; [.8E45.0020.0004] # KANGXI RADICAL MOUND
+2FAA      ; [.8E59.0020.0004] # KANGXI RADICAL SLAVE
+2FAB      ; [.8E5A.0020.0004] # KANGXI RADICAL SHORT TAILED BIRD
+2FAC      ; [.8E5C.0020.0004] # KANGXI RADICAL RAIN
+2FAD      ; [.8E5D.0020.0004] # KANGXI RADICAL BLUE
+2FAE      ; [.8E5F.0020.0004] # KANGXI RADICAL WRONG
+2FAF      ; [.949C.0020.0004] # KANGXI RADICAL FACE
+2FB0      ; [.949D.0020.0004] # KANGXI RADICAL LEATHER
+2FB1      ; [.949E.0020.0004] # KANGXI RADICAL TANNED LEATHER
+2FB2      ; [.94A0.0020.0004] # KANGXI RADICAL LEEK
+2FB3      ; [.94A1.0020.0004] # KANGXI RADICAL SOUND
+2FB4      ; [.94A2.0020.0004] # KANGXI RADICAL LEAF
+32A0      ; [.AC44.0020.0006] # CIRCLED IDEOGRAPH ITEM
+2FB5      ; [.94A7.0020.0004] # KANGXI RADICAL WIND
+2FB6      ; [.94AB.0020.0004] # KANGXI RADICAL FLY
+2FB7      ; [.94AD.0020.0004] # KANGXI RADICAL EAT
+2FB8      ; [.94B7.0020.0004] # KANGXI RADICAL HEAD
+2FB9      ; [.94B9.0020.0004] # KANGXI RADICAL FRAGRANT
+2FBA      ; [.9BF9.0020.0004] # KANGXI RADICAL HORSE
+2FBB      ; [.9C00.0020.0004] # KANGXI RADICAL BONE
+2FBC      ; [.9C01.0020.0004] # KANGXI RADICAL TALL
+2FBD      ; [.9C02.0020.0004] # KANGXI RADICAL HAIR
+2FBE      ; [.9C03.0020.0004] # KANGXI RADICAL FIGHT
+2FBF      ; [.9C04.0020.0004] # KANGXI RADICAL SACRIFICIAL WINE
+2FC0      ; [.9C05.0020.0004] # KANGXI RADICAL CAULDRON
+2FC1      ; [.9C06.0020.0004] # KANGXI RADICAL GHOST
+2FC2      ; [.A408.0020.0004] # KANGXI RADICAL FISH
+2FC3      ; [.A40A.0020.0004] # KANGXI RADICAL BIRD
+2FC4      ; [.A414.0020.0004] # KANGXI RADICAL SALT
+2FC5      ; [.A415.0020.0004] # KANGXI RADICAL DEER
+2FC6      ; [.A416.0020.0004] # KANGXI RADICAL WHEAT
+2FC7      ; [.A418.0020.0004] # KANGXI RADICAL HEMP
+2FC8      ; [.AC78.0020.0004] # KANGXI RADICAL YELLOW
+2FC9      ; [.AC7A.0020.0004] # KANGXI RADICAL MILLET
+2FCA      ; [.AC7B.0020.0004] # KANGXI RADICAL BLACK
+2FCB      ; [.AC7C.0020.0004] # KANGXI RADICAL EMBROIDERY
+2FCC      ; [.B440.0020.0004] # KANGXI RADICAL FROG
+2FCD      ; [.B442.0020.0004] # KANGXI RADICAL TRIPOD
+2FCE      ; [.B443.0020.0004] # KANGXI RADICAL DRUM
+2FCF      ; [.B445.0020.0004] # KANGXI RADICAL RAT
+2FD0      ; [.BB56.0020.0004] # KANGXI RADICAL NOSE
+2FD1      ; [.BB57.0020.0004] # KANGXI RADICAL EVEN
+2FD2      ; [.C273.0020.0004] # KANGXI RADICAL TOOTH
+2FD3      ; [.C85E.0020.0004] # KANGXI RADICAL DRAGON
+2FD4      ; [.C85F.0020.0004] # KANGXI RADICAL TURTLE
+2EF3      ; [.88F9.0020.0004] # CJK RADICAL C-SIMPLIFIED TURTLE
+2FD5      ; [.CD3C.0020.0004] # KANGXI RADICAL FLUTE
+F967      ; [.80BF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F967
+FA70      ; [.88FB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA70
+F905      ; [.852F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F905
+2F801     ; [.805D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F801
+F95E      ; [.80CA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F95E
+2F800     ; [.852D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F800
+2F802     ; [.8006.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F802
+F91B      ; [.AC80.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F91B
+F9BA      ; [.8028.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9BA
+F977      ; [.8E86.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F977
+F9FD      ; [.80DC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9FD
+2F819     ; [.80E8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F819
+F9A8      ; [.81C3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9A8
+2F804     ; [.856D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F804
+FA73      ; [.8928.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA73
+F92D      ; [.892E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F92D
+F9B5      ; [.8933.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9B5
+FA30      ; [.8E8B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA30
+2F805     ; [.8E8B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F805
+2F806     ; [.8E98.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F806
+F965      ; [.8E9C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F965
+2F807     ; [.94E6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F807
+F9D4      ; [.950F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9D4
+2F808     ; [.9C54.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F808
+2F809     ; [.A43E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F809
+2F80B     ; [.B44E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F80B
+F9BB      ; [.B459.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9BB
+FA31      ; [.B466.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA31
+2F80A     ; [.B466.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F80A
+FA0C      ; [.8070.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA0C
+FA74      ; [.81D0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA74
+FA32      ; [.8578.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA32
+2F80E     ; [.8578.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F80E
+2F80F     ; [.895B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F80F
+2F810     ; [.D692.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F810
+2F814     ; [.80F3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F814
+FA72      ; [.8350.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA72
+F978      ; [.895F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F978
+F9D1      ; [.80F5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9D1
+2F811     ; [.8961.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F811
+FA75      ; [.C28C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA75
+2F815     ; [.8356.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F815
+2F8D2     ; [.8ED4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8D2
+2F8D3     ; [.9C63.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8D3
+2F817     ; [.80FF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F817
+2F818     ; [.9535.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F818
+2F81A     ; [.81DA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F81A
+FA71      ; [.8582.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA71
+2F81B     ; [.8582.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F81B
+F92E      ; [.8584.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F92E
+F979      ; [.953F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F979
+F955      ; [.9542.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F955
+F954      ; [.BB7E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F954
+FA15      ; [.C28F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA15
+2F81D     ; [.8037.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F81D
+2F81E     ; [.8075.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F81E
+FA00      ; [.8107.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA00
+2F850     ; [.8107.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F850
+F99C      ; [.836E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F99C
+F9DD      ; [.8598.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9DD
+F9FF      ; [.897C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9FF
+2F820     ; [.897D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F820
+2F821     ; [.8986.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F821
+2F822     ; [.A45F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F822
+2F823     ; [.ACB4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F823
+F9C7      ; [.BB84.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9C7
+F98A      ; [.803C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F98A
+F99D      ; [.8373.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F99D
+2F992     ; [.85A7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F992
+FA76      ; [.8EF2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA76
+2F825     ; [.8EF2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F825
+FA33      ; [.8EF4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA33
+2F826     ; [.8EF4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F826
+F952      ; [.9C76.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F952
+F92F      ; [.A466.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F92F
+FA34      ; [.ACC2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA34
+2F827     ; [.ACC2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F827
+F97F      ; [.C879.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F97F
+FA77      ; [.8078.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA77
+2F828     ; [.8078.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F828
+2F829     ; [.81F1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F829
+2F82A     ; [.81F2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F82A
+F963      ; [.81F4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F963
+2F82B     ; [.81F4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F82B
+F9EB      ; [.9C89.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9EB
+2F82C     ; [.81F9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F82C
+FA35      ; [.899A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA35
+2F82D     ; [.899A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F82D
+2F82E     ; [.A46C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F82E
+2F82F     ; [.85B4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F82F
+F91C      ; [.85B6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F91C
+2F830     ; [.8F00.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F830
+2F831     ; [.9569.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F831
+2F832     ; [.9569.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F832
+2F833     ; [.9569.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F833
+F96B      ; [.9C93.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F96B
+2F836     ; [.8126.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F836
+2F837     ; [.9570.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F837
+F906      ; [.820E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F906
+2F839     ; [.8214.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F839
+2F83A     ; [.821A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F83A
+2F83B     ; [.8396.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F83B
+F9DE      ; [.839F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9DE
+F9ED      ; [.85C5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9ED
+2F83D     ; [.85E0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F83D
+F980      ; [.85EA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F980
+2F83E     ; [.85F0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F83E
+2F83F     ; [.89C3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F83F
+2F83C     ; [.8F0F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F83C
+2F840     ; [.8F13.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F840
+F99E      ; [.8F2E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F99E
+2F841     ; [.9589.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F841
+2F842     ; [.95A2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F842
+2F843     ; [.9CC4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F843
+FA79      ; [.9CC6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA79
+2F844     ; [.9CD2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F844
+2F845     ; [.A485.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F845
+2F846     ; [.A485.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F846
+F90B      ; [.A488.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F90B
+FA7A      ; [.A499.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA7A
+2F847     ; [.A499.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F847
+FA36      ; [.A49D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA36
+FA78      ; [.A49D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA78
+2F848     ; [.A4AB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F848
+2F849     ; [.A4B3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F849
+FA0D      ; [.ACD8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA0D
+2F84A     ; [.ACDA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F84A
+FA7B      ; [.ACF9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA7B
+FA37      ; [.B4AA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA37
+2F84C     ; [.B4AA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F84C
+2F84E     ; [.B4CA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F84E
+FA38      ; [.C2AA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA38
+2F84F     ; [.BBCD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F84F
+F9A9      ; [.8A04.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9A9
+2F84B     ; [.B4DC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F84B
+2F84D     ; [.B4DD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F84D
+2F855     ; [.8F63.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F855
+2F852     ; [.8F8E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F852
+2F853     ; [.9D1E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F853
+2F854     ; [.9D37.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F854
+2F857     ; [.A4EB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F857
+2F856     ; [.95F7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F856
+FA39      ; [.A4F7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA39
+FA10      ; [.AD39.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA10
+FA7C      ; [.AD39.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA7C
+F96C      ; [.AD3D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F96C
+FA3A      ; [.C26D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA3A
+2F858     ; [.BBE8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F858
+FA7D      ; [.BBEE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA7D
+F94A      ; [.CD66.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F94A
+F942      ; [.D106.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F942
+2F851     ; [.83C5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F851
+2F85A     ; [.864B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F85A
+2F85B     ; [.9D44.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F85B
+2F85C     ; [.864D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F85C
+2F85D     ; [.83C8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F85D
+2F85E     ; [.B513.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F85E
+FA7E      ; [.8A41.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA7E
+F90C      ; [.8A45.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F90C
+F909      ; [.8F99.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F909
+FA7F      ; [.8A4B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA7F
+2F85F     ; [.9D4E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F85F
+F981      ; [.8088.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F981
+2F865     ; [.8FA7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F865
+2F862     ; [.960A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F862
+2F863     ; [.961C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F863
+2F864     ; [.9628.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F864
+FA80      ; [.9D80.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA80
+2F866     ; [.9D84.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F866
+2F986     ; [.AD61.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F986
+2F869     ; [.BC16.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F869
+FA81      ; [.C2FB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA81
+2F86A     ; [.D110.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F86A
+2F86B     ; [.D110.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F86B
+FA04      ; [.83EC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA04
+2F86D     ; [.9DA6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F86D
+2F86E     ; [.AD8F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F86E
+F95F      ; [.B554.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F95F
+F9AA      ; [.B554.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9AA
+2F86F     ; [.B554.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F86F
+F9BC      ; [.BC2E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9BC
+2F870     ; [.D116.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F870
+2F872     ; [.868E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F872
+2F873     ; [.8FE9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F873
+2F875     ; [.8092.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F875
+F9BD      ; [.8695.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9BD
+2F877     ; [.9DB7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F877
+F94B      ; [.B558.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F94B
+FA3B      ; [.BC33.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA3B
+F9DF      ; [.BC34.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9DF
+FA3C      ; [.8096.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA3C
+2F878     ; [.8096.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F878
+2F87A     ; [.86B2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F87A
+2F879     ; [.8AD0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F879
+F9D5      ; [.9DCB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9D5
+2F87C     ; [.A589.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F87C
+F921      ; [.A595.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F921
+2F87F     ; [.A5A7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F87F
+2F87E     ; [.ADAD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F87E
+2F880     ; [.B563.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F880
+2F9F4     ; [.C30C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9F4
+F9AB      ; [.C8D1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9AB
+2F881     ; [.88A4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F881
+2F882     ; [.9DE6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F882
+2F884     ; [.A5AA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F884
+2F885     ; [.9681.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F885
+2F886     ; [.A5AD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F886
+2F887     ; [.BC5D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F887
+F98E      ; [.8414.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F98E
+FA01      ; [.9036.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA01
+2F88B     ; [.9038.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F88B
+2F88C     ; [.9DF7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F88C
+2F88D     ; [.9DFA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F88D
+F9A2      ; [.ADC4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9A2
+F928      ; [.A5C1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F928
+2F88E     ; [.A5C1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F88E
+FA82      ; [.B587.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA82
+FA0B      ; [.B588.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA0B
+FA83      ; [.B58E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA83
+F982      ; [.D123.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F982
+2F890     ; [.80A5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F890
+F943      ; [.86D2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F943
+2F894     ; [.8AF8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F894
+2F895     ; [.8AF8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F895
+2F874     ; [.8423.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F874
+2F899     ; [.86D9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F899
+FA84      ; [.9E0A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA84
+2F89A     ; [.9E0B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F89A
+F9D8      ; [.904F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9D8
+2F89C     ; [.A5CB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F89C
+F966      ; [.A5D0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F966
+FA85      ; [.ADD2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA85
+2F89D     ; [.86E4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F89D
+2F89E     ; [.86E9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F89E
+F9A3      ; [.8B15.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9A3
+2F89F     ; [.8702.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F89F
+F960      ; [.9054.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F960
+F9AC      ; [.8B2D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9AC
+FA6B      ; [.96BA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA6B
+2F8A0     ; [.96C6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8A0
+FA3D      ; [.96D5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA3D
+2F8A3     ; [.96D5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8A3
+2F8A5     ; [.9E43.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8A5
+FA86      ; [.9E4E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA86
+F9B9      ; [.A5E1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9B9
+FA88      ; [.ADDF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA88
+F9D9      ; [.ADFC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9D9
+2F8A6     ; [.B5A7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8A6
+2F8A7     ; [.AE01.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8A7
+2F8A9     ; [.AE01.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8A9
+FA87      ; [.AE03.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA87
+2F8A8     ; [.AE03.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8A8
+FA8A      ; [.B5B4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA8A
+FA3E      ; [.A614.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA3E
+2F8AA     ; [.B5C3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8AA
+FA3F      ; [.BC8F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA3F
+FA89      ; [.BC8F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA89
+2F8AB     ; [.BC8F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8AB
+F98F      ; [.BC91.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F98F
+2F8AD     ; [.BC9F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8AD
+2F8AE     ; [.BCA7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8AE
+2F8AC     ; [.C332.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8AC
+2F8AF     ; [.C8EF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8AF
+FA40      ; [.D12A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA40
+FA8B      ; [.D12A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA8B
+2F8B0     ; [.D12A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8B0
+F90D      ; [.D12C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F90D
+2F8B1     ; [.D12C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8B1
+F990      ; [.D9A5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F990
+2F8B2     ; [.8435.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8B2
+2F8B3     ; [.9E66.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8B3
+F9D2      ; [.BCAF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9D2
+FA8C      ; [.C8FA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA8C
+2F8B4     ; [.843C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8B4
+2F8B5     ; [.8B64.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8B5
+F925      ; [.8B7C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F925
+F95B      ; [.9096.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F95B
+FA02      ; [.8B85.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA02
+2F8B6     ; [.8B86.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8B6
+2F8BA     ; [.90AC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8BA
+F973      ; [.90AE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F973
+2F8B9     ; [.970C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8B9
+2F8B7     ; [.971F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8B7
+2F8BB     ; [.9E77.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8BB
+F9A4      ; [.9E8A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9A4
+2F8BC     ; [.9E92.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8BC
+F975      ; [.9EAD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F975
+2F8C1     ; [.9EB5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8C1
+FA8D      ; [.A62A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA8D
+2F8C0     ; [.AE5E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8C0
+2F8BD     ; [.9737.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8BD
+FA8E      ; [.AE2E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA8E
+2F8BF     ; [.AE34.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8BF
+FA8F      ; [.A667.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA8F
+2F8C3     ; [.BCB3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8C3
+2F8C6     ; [.B603.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8C6
+2F8C4     ; [.B609.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8C4
+F991      ; [.BCCE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F991
+2F8C5     ; [.BCD1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8C5
+F930      ; [.C35E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F930
+FA41      ; [.9ED2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA41
+2F8C8     ; [.9ED2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8C8
+FA90      ; [.9ED9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA90
+2F8C9     ; [.AE62.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8C9
+F969      ; [.BCF5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F969
+F9BE      ; [.9745.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9BE
+F983      ; [.974C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F983
+FA42      ; [.90EA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA42
+2F8CB     ; [.9EF0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8CB
+F9E0      ; [.8BC4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E0
+2F8CD     ; [.9758.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8CD
+FA12      ; [.A69D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA12
+FA91      ; [.A69D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA91
+F9C5      ; [.AE80.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9C5
+FA43      ; [.A6AC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA43
+2F8CF     ; [.A6AC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8CF
+2F8D5     ; [.B627.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8D5
+FA06      ; [.BD0D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA06
+F98B      ; [.C39E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F98B
+F901      ; [.875D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F901
+2F8CC     ; [.976A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8CC
+2F8D4     ; [.A454.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8D4
+F929      ; [.9773.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F929
+FA92      ; [.9773.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA92
+2F8D8     ; [.9773.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8D8
+FA93      ; [.9F11.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA93
+2F8D9     ; [.9F11.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8D9
+2F8DA     ; [.AE99.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8DA
+F9E1      ; [.876E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E1
+2F8DC     ; [.8773.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8DC
+FA94      ; [.8776.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA94
+2F8DB     ; [.877E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8DB
+F9C8      ; [.8BEC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9C8
+2F8E0     ; [.8BF5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8E0
+F9F4      ; [.8C07.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9F4
+F9C9      ; [.9164.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9C9
+2F8DF     ; [.9169.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8DF
+F9DA      ; [.978C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9DA
+2F8E5     ; [.9794.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8E5
+2F8E1     ; [.9181.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8E1
+F97A      ; [.9F37.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F97A
+FA44      ; [.9F3B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA44
+2F8E2     ; [.9F3B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8E2
+2F8E4     ; [.9F44.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8E4
+F9E2      ; [.9F5E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E2
+2F8E6     ; [.A716.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8E6
+2F8E8     ; [.AEAF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8E8
+2F8E9     ; [.B650.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8E9
+2F8EA     ; [.BD23.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8EA
+F914      ; [.BD3B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F914
+F95C      ; [.BD3B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F95C
+F9BF      ; [.BD3B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9BF
+F94C      ; [.BD4B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F94C
+2F8EB     ; [.C959.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8EB
+F931      ; [.D157.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F931
+2F8ED     ; [.C962.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8ED
+F91D      ; [.D6D0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F91D
+2F8EF     ; [.846F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8EF
+2F8F1     ; [.C403.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8F1
+2F8F3     ; [.AF0A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8F3
+F98C      ; [.C40A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F98C
+FA95      ; [.8165.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA95
+2F8F4     ; [.B6A0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8F4
+F9A5      ; [.C969.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9A5
+F970      ; [.9F8B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F970
+FA96      ; [.9F8B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA96
+2F8F5     ; [.9F8B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8F5
+2F8F6     ; [.9F8C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8F6
+2F8FA     ; [.847F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8FA
+2F8FE     ; [.879D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8FE
+F972      ; [.87BB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F972
+2F8FC     ; [.8C58.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8FC
+F968      ; [.8C64.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F968
+2F8FD     ; [.8C65.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8FD
+F9E3      ; [.8C7C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E3
+2F8FF     ; [.980A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8FF
+F915      ; [.91C0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F915
+FA05      ; [.91C2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA05
+2F907     ; [.91D6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F907
+2F900     ; [.91E0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F900
+F9CA      ; [.91E3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9CA
+FA97      ; [.91E3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA97
+2F902     ; [.91E3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F902
+2F903     ; [.981E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F903
+F92A      ; [.981F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F92A
+FA45      ; [.982C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA45
+2F901     ; [.982C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F901
+2F904     ; [.982D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F904
+2F905     ; [.983A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F905
+F9F5      ; [.9FBA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9F5
+F94D      ; [.9FC9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F94D
+F9D6      ; [.9FD9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9D6
+2F90E     ; [.9FE8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F90E
+FA46      ; [.A004.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA46
+2F908     ; [.A777.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F908
+2F909     ; [.A7B5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F909
+F9CB      ; [.AF31.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9CB
+F9EC      ; [.AF4F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9EC
+2F90C     ; [.AF5C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F90C
+FA99      ; [.A7D3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA99
+2F90B     ; [.A7D3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F90B
+F904      ; [.AF63.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F904
+FA98      ; [.AF6B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA98
+F94E      ; [.B6CF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F94E
+FA47      ; [.B6E0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA47
+FA9A      ; [.B6E0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA9A
+F992      ; [.B6E1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F992
+2F90F     ; [.BDAD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F90F
+2F912     ; [.BDE2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F912
+F922      ; [.C98A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F922
+F984      ; [.CDED.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F984
+2F915     ; [.D17C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F915
+FA9B      ; [.D17F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA9B
+2F914     ; [.D17F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F914
+2F913     ; [.D488.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F913
+2F917     ; [.D6DB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F917
+2F835     ; [.8497.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F835
+2F919     ; [.87E1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F919
+2F918     ; [.87E7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F918
+F9FB      ; [.8CB0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9FB
+2F91A     ; [.920A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F91A
+F99F      ; [.9864.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F99F
+F916      ; [.9875.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F916
+2F91C     ; [.AF89.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F91C
+F993      ; [.AF8D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F993
+FA48      ; [.A80B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA48
+FA9C      ; [.A80B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA9C
+2F91E     ; [.BDE7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F91E
+F9C0      ; [.C477.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9C0
+F9EE      ; [.C479.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9EE
+F932      ; [.D496.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F932
+F91E      ; [.D6E6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F91E
+2F920     ; [.DC4E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F920
+FA49      ; [.8172.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA49
+FA9E      ; [.C9BB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA9E
+2F921     ; [.C9BB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F921
+2F922     ; [.AFC5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F922
+F946      ; [.87ED.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F946
+2F924     ; [.A81A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F924
+2F925     ; [.B745.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F925
+FA9F      ; [.82A0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA9F
+F9FA      ; [.8CCA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9FA
+F92B      ; [.98A1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F92B
+FA16      ; [.A066.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA16
+FAA0      ; [.A066.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAA0
+F9A7      ; [.CE18.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9A7
+2F928     ; [.D1A8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F928
+F961      ; [.A067.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F961
+F9DB      ; [.A067.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9DB
+2F929     ; [.817E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F929
+2F92B     ; [.8CEB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F92B
+F9AD      ; [.924C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9AD
+F917      ; [.98BB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F917
+F9E4      ; [.A07D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E4
+F9CC      ; [.98D0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9CC
+FA4A      ; [.A852.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA4A
+2F92E     ; [.AFF3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F92E
+2F92F     ; [.B008.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F92F
+F9AE      ; [.BE24.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9AE
+FAA1      ; [.B763.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAA1
+2F930     ; [.B763.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F930
+2F931     ; [.BE35.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F931
+F994      ; [.BE39.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F994
+F9EF      ; [.C4A4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9EF
+2F932     ; [.D1B4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F932
+FAA2      ; [.B77A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAA2
+2F934     ; [.A882.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F934
+FAA3      ; [.8D01.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAA3
+2F936     ; [.8D03.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F936
+F9CD      ; [.98E3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9CD
+F976      ; [.A09D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F976
+F962      ; [.A0A1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F962
+2F938     ; [.A0A1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F938
+F9E5      ; [.A8A0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E5
+2F93A     ; [.B047.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F93A
+FAA4      ; [.BE59.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAA4
+FAA5      ; [.BE52.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAA5
+F9C1      ; [.C9EA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9C1
+F90E      ; [.D6F3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F90E
+FA17      ; [.990E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA17
+FAA6      ; [.990E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAA6
+FAA7      ; [.A0BF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAA7
+F933      ; [.C4E1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F933
+FAA8      ; [.8D1E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAA8
+2F940     ; [.8D1E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F940
+F96D      ; [.92B6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F96D
+2F945     ; [.9928.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F945
+2F946     ; [.9929.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F946
+2F947     ; [.9929.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F947
+FAAA      ; [.A0D7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAAA
+FAA9      ; [.A8C2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAA9
+2F948     ; [.A8C2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F948
+2F94A     ; [.BE77.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F94A
+FA9D      ; [.CA05.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA9D
+2F94E     ; [.A0E7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F94E
+F9CE      ; [.A8DD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9CE
+F93B      ; [.B08B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F93B
+2F94F     ; [.B08B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F94F
+FA4B      ; [.B090.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA4B
+F947      ; [.BE90.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F947
+FAAB      ; [.BE92.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAAB
+2F950     ; [.BE92.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F950
+F964      ; [.CA26.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F964
+F985      ; [.D4C9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F985
+FA18      ; [.84B3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA18
+FA4C      ; [.8D2E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA4C
+FA4E      ; [.92EC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA4E
+FA4D      ; [.92ED.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA4D
+FA4F      ; [.9963.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA4F
+FA50      ; [.9969.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA50
+2F953     ; [.9969.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F953
+FA51      ; [.9970.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA51
+FA19      ; [.9971.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA19
+FA1A      ; [.A0F9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA1A
+F93C      ; [.B0A4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F93C
+FA52      ; [.B7DB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA52
+FA53      ; [.B7DC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA53
+FA1B      ; [.B7DD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA1B
+2F956     ; [.B7DD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F956
+F9B6      ; [.CE6D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9B6
+F995      ; [.8D3A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F995
+2F957     ; [.998A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F957
+F956      ; [.B0BA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F956
+FA54      ; [.BEBC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA54
+2F959     ; [.BEBC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F959
+2F95A     ; [.B7F7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F95A
+2F95B     ; [.C523.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F95B
+FA55      ; [.930C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA55
+FAAC      ; [.BEC4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAAC
+F9F7      ; [.82C4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9F7
+2F95F     ; [.B805.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F95F
+F9F8      ; [.A12C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9F8
+FA56      ; [.B101.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA56
+FAAD      ; [.B101.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAAD
+2F962     ; [.BEEF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F962
+2F963     ; [.C53D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F963
+F9A6      ; [.D1F9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9A6
+F944      ; [.D8B1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F944
+FAAE      ; [.9327.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAAE
+F9F9      ; [.A14C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9F9
+FA1D      ; [.B84B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA1D
+2F966     ; [.C563.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F966
+FA03      ; [.C567.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA03
+2F969     ; [.CE97.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F969
+F97B      ; [.CE9B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F97B
+2F968     ; [.CA8C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F968
+2F96A     ; [.9332.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F96A
+F9CF      ; [.99CE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9CF
+F96A      ; [.99E0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F96A
+F94F      ; [.A15F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F94F
+FAAF      ; [.B111.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAAF
+2F96C     ; [.A95F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F96C
+F93D      ; [.B85B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F93D
+F957      ; [.B879.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F957
+2F96E     ; [.B882.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F96E
+F996      ; [.BF35.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F996
+FA57      ; [.BF35.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA57
+FAB0      ; [.BF35.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAB0
+2F96F     ; [.BF43.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F96F
+FA58      ; [.C56B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA58
+F950      ; [.CA9B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F950
+FA59      ; [.CAA5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA59
+2F970     ; [.CAA9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F970
+FAB1      ; [.A98D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAB1
+FA5A      ; [.B149.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA5A
+F9E6      ; [.C591.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E6
+2F976     ; [.C592.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F976
+F90F      ; [.D220.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F90F
+2F978     ; [.A19D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F978
+F9AF      ; [.A19E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9AF
+FA1E      ; [.84CA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA1E
+2F979     ; [.CEC9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F979
+F934      ; [.84CB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F934
+FA5B      ; [.8D66.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA5B
+FAB2      ; [.8D66.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAB2
+2F97A     ; [.8D66.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F97A
+F9B0      ; [.A1BB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9B0
+2F97D     ; [.A9A9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F97D
+F997      ; [.CAC6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F997
+2F97F     ; [.CAC7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F97F
+F945      ; [.D8C0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F945
+F953      ; [.84D3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F953
+2F8D6     ; [.8D78.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8D6
+2F982     ; [.8D7D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F982
+2F983     ; [.9A39.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F983
+2F985     ; [.A9B8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F985
+F926      ; [.D22E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F926
+F9F6      ; [.CAE3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9F6
+FA5C      ; [.9A4D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA5C
+2F893     ; [.9A50.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F893
+2F98B     ; [.9A50.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F98B
+2F98C     ; [.A9E2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F98C
+FA6D      ; [.C5C0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA6D
+F97C      ; [.885F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F97C
+FA5D      ; [.80B4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA5D
+FA5E      ; [.80B4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA5E
+2F990     ; [.8868.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F990
+2F98F     ; [.886E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F98F
+2F991     ; [.8D9B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F991
+2F993     ; [.8DAF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F993
+2F994     ; [.8DB1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F994
+2F995     ; [.8DBA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F995
+F974      ; [.93A8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F974
+2F998     ; [.93A8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F998
+2F996     ; [.93A9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F996
+2F999     ; [.A1FD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F999
+2F99C     ; [.A1FE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F99C
+F9FE      ; [.9A84.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9FE
+FAB3      ; [.9A9C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAB3
+2F9A0     ; [.9ABD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9A0
+2F99A     ; [.9AAB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F99A
+2F99B     ; [.A24D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F99B
+2F99D     ; [.A249.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F99D
+F93E      ; [.A9FD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F93E
+2F9A1     ; [.A9FE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9A1
+2F9A2     ; [.AA00.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9A2
+2F9A3     ; [.AA0F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9A3
+2F99E     ; [.AA1A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F99E
+FAB4      ; [.AA22.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAB4
+F958      ; [.AA24.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F958
+F918      ; [.B1A9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F918
+F96E      ; [.B1B5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F96E
+FA5F      ; [.AA5A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA5F
+2F99F     ; [.AA5A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F99F
+F999      ; [.BF9A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F999
+2F9A8     ; [.B208.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9A8
+2F9A9     ; [.BF9E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9A9
+F9C2      ; [.BFA7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9C2
+2F9AA     ; [.BFC0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9AA
+2F9AC     ; [.C5F0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9AC
+F923      ; [.CF09.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F923
+F9F0      ; [.D510.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9F0
+F935      ; [.D51C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F935
+FA20      ; [.D52F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA20
+F91F      ; [.D73C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F91F
+F910      ; [.D9F1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F910
+2F9B3     ; [.93DD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9B3
+F936      ; [.B20A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F936
+2F9B4     ; [.B20A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9B4
+2F9B5     ; [.CB2D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9B5
+2F9B6     ; [.CF14.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9B6
+2F9B8     ; [.AA6B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9B8
+2F9B7     ; [.9AE5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9B7
+2F9BA     ; [.AA7D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9BA
+2F9B9     ; [.B227.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9B9
+2F9BC     ; [.B95E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9BC
+2F9BD     ; [.B981.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9BD
+FAB5      ; [.C612.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAB5
+2F9BB     ; [.C612.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9BB
+2F9BE     ; [.C617.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9BE
+F911      ; [.CB41.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F911
+2F9C0     ; [.C027.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9C0
+2F9C1     ; [.D264.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9C1
+F927      ; [.D748.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F927
+FA08      ; [.84ED.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA08
+2F9C3     ; [.C63E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9C3
+2F9C4     ; [.84EE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9C4
+F9A0      ; [.AAAA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9A0
+F9E7      ; [.B239.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E7
+2F9C6     ; [.AAB2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9C6
+2F9C7     ; [.B247.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9C7
+F9E8      ; [.B24A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E8
+F912      ; [.B995.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F912
+2F9C9     ; [.B997.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9C9
+FA60      ; [.C03D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA60
+FAB6      ; [.CB6A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAB6
+F924      ; [.D53F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F924
+FAB7      ; [.CF49.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAB7
+FA0A      ; [.8878.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA0A
+FA61      ; [.A103.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA61
+FAB8      ; [.A103.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAB8
+2F9CF     ; [.B289.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9CF
+F96F      ; [.B9C9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F96F
+F9A1      ; [.B9C9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9A1
+FAB9      ; [.C06A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAB9
+FABB      ; [.C076.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FABB
+F97D      ; [.C07D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F97D
+F941      ; [.C081.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F941
+FABE      ; [.C671.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FABE
+2F9D0     ; [.C671.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9D0
+FA22      ; [.C08B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA22
+FABA      ; [.C08B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FABA
+F95D      ; [.C681.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F95D
+FABD      ; [.C681.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FABD
+FA62      ; [.C684.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA62
+FABC      ; [.C684.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FABC
+FA63      ; [.CF67.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA63
+FABF      ; [.CF67.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FABF
+F9FC      ; [.D2AB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9FC
+F95A      ; [.D8E4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F95A
+FAC0      ; [.DA06.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAC0
+2F9D1     ; [.DA06.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9D1
+F900      ; [.9B36.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F900
+2F9D2     ; [.8893.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9D2
+2F9D4     ; [.A2FF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9D4
+2F9D5     ; [.AB15.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9D5
+F948      ; [.B2A0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F948
+F903      ; [.B2A6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F903
+FA64      ; [.B9E4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA64
+FA65      ; [.D2BA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA65
+FAC1      ; [.D2BA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAC1
+2F9D6     ; [.DADB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9D6
+2F9D7     ; [.9B4D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9D7
+2F9DB     ; [.B2C0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9DB
+2F9DA     ; [.AB38.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9DA
+F937      ; [.B2D1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F937
+2F9DC     ; [.B2D2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9DC
+F902      ; [.889D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F902
+2F9DE     ; [.9B5B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9DE
+F998      ; [.C0FB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F998
+F9D7      ; [.C0FF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9D7
+FAC2      ; [.C6C7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAC2
+2F9DF     ; [.C6C7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9DF
+FA07      ; [.C6CA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA07
+F98D      ; [.D8FB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F98D
+2F98D     ; [.B2F9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F98D
+F971      ; [.88A2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F971
+FA66      ; [.818F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA66
+F99A      ; [.A353.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F99A
+FA25      ; [.AB86.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA25
+FA67      ; [.AB86.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA67
+FAC3      ; [.C6D6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAC3
+F9C3      ; [.C6DE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9C3
+F913      ; [.DA18.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F913
+2F9E2     ; [.850D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9E2
+F92C      ; [.945D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F92C
+FA2E      ; [.9B86.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA2E
+2F9E3     ; [.9465.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9E3
+FA26      ; [.A369.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA26
+2F9E4     ; [.B321.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9E4
+2F9E6     ; [.BA32.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9E6
+F919      ; [.B32C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F919
+FAC4      ; [.CBE1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAC4
+F9B7      ; [.D582.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9B7
+F9E9      ; [.88C7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E9
+F97E      ; [.ABA9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F97E
+F90A      ; [.8E33.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F90A
+F9B1      ; [.B33B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9B1
+2F9E7     ; [.B33F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9E7
+FAC5      ; [.BA52.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAC5
+2F9EA     ; [.BA91.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9EA
+2F9E8     ; [.C154.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9E8
+2F9E9     ; [.C155.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9E9
+F93F      ; [.C705.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F93F
+F99B      ; [.CBF2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F99B
+2F9EB     ; [.D330.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9EB
+2F9EC     ; [.D5A8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9EC
+2F9EE     ; [.ABFD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9EE
+F986      ; [.C18F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F986
+2F9F0     ; [.CC4C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9F0
+F9C6      ; [.88DE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9C6
+F951      ; [.948F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F951
+FA09      ; [.9491.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA09
+F959      ; [.A3DD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F959
+F9D3      ; [.A3E0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9D3
+FAC6      ; [.A3E3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAC6
+F9DC      ; [.AC1A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9DC
+F9F1      ; [.C19A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9F1
+FA2F      ; [.C776.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA2F
+F9B8      ; [.CC60.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9B8
+2F9F3     ; [.AC28.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9F3
+F9EA      ; [.D014.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9EA
+FA68      ; [.D345.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA68
+FAC7      ; [.D345.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAC7
+F9B2      ; [.B3BD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9B2
+F949      ; [.B3BE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F949
+2F9F5     ; [.D017.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9F5
+F938      ; [.D7AA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F938
+F9B3      ; [.DAFA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9B3
+FA1C      ; [.B3C8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA1C
+FAC8      ; [.B3C8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAC8
+FAC9      ; [.D5DE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAC9
+2F9FA     ; [.D5DF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9FA
+FA69      ; [.D5E2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA69
+FACA      ; [.D5E2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FACA
+FACB      ; [.B3D9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FACB
+2F9FE     ; [.B3D9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9FE
+2F9FF     ; [.B3D9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9FF
+F9B4      ; [.BAE3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9B4
+2FA00     ; [.C1C8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA00
+FA6A      ; [.C7A8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA6A
+FACC      ; [.C7A8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FACC
+F9D0      ; [.D369.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9D0
+2FA02     ; [.9BF0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA02
+FA2A      ; [.AC59.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA2A
+FA2B      ; [.B3F7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA2B
+FA2C      ; [.C7C5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA2C
+2FA04     ; [.C7C6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA04
+2FA05     ; [.D37A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA05
+2FA06     ; [.BB13.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA06
+F91A      ; [.C7DC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F91A
+2FA07     ; [.CCB3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA07
+F987      ; [.DC56.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F987
+FACD      ; [.D619.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FACD
+2FA0A     ; [.D619.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA0A
+F939      ; [.C225.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F939
+2FA0B     ; [.D645.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA0B
+F9F2      ; [.DA5D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9F2
+2FA0C     ; [.C247.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA0C
+2FA0F     ; [.CD1A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA0F
+FA2D      ; [.D80D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA2D
+F93A      ; [.DB1F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F93A
+F920      ; [.DC69.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F920
+F940      ; [.A415.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F940
+F988      ; [.D407.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F988
+F9F3      ; [.DA80.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9F3
+2FA15     ; [.A418.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA15
+F989      ; [.C26C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F989
+2FA17     ; [.AC7C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA17
+2FA18     ; [.8E79.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA18
+2FA19     ; [.D834.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA19
+2FA1A     ; [.C26F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA1A
+2FA1B     ; [.D0DA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA1B
+2FA1C     ; [.BB56.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA1C
+FAD8      ; [.DA8C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAD8
+F9C4      ; [.C85E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9C4
+FAD9      ; [.D0E5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAD9
+F907      ; [.C85F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F907
+F908      ; [.C85F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F908
+FACE      ; [.C85F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FACE
+2F81F     ; [.858A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F81F
+2F888     ; [.C311.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F888
+2F8D0     ; [.AE77.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8D0
+2F8CE     ; [.C38A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8CE
+2F8DE     ; [.8BD3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8DE
+2F8EE     ; [.D879.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8EE
+2F90A     ; [.AF20.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F90A
+2F92C     ; [.98A9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F92C
+2F92D     ; [.98A9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F92D
+FAD4      ; [.A8B8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAD4
+2F949     ; [.A8B8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F949
+2F960     ; [.B808.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F960
+2F96D     ; [.BF14.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F96D
+2F8D7     ; [.8D6B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8D7
+2FA0E     ; [.D64A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA0E
+2F8F9     ; [.B6A5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8F9
+FA6C      ; [.AFBE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA6C
+2F93C     ; [.D6F7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F93C
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/Locale/zh_zhu.pl b/lib/5.24.1/Unicode/Collate/Locale/zh_zhu.pl
new file mode 100644
index 00000000..5d235673
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/Locale/zh_zhu.pl
@@ -0,0 +1,1563 @@
+use Unicode::Collate::CJK::Zhuyin;
++{
+   locale_version => 1.14,
+   overrideCJK => \&Unicode::Collate::CJK::Zhuyin::weightZhuyin,
+   entry => <<'ENTRY', # for DUCET v7.0.0
+02C9      ; [.0000.0199.0002] # MODIFIER LETTER MACRON
+02CA      ; [.019A.0020.0002] # MODIFIER LETTER ACUTE ACCENT
+02C7      ; [.019B.0020.0002] # CARON
+02CB      ; [.019C.0020.0002] # MODIFIER LETTER GRAVE ACCENT
+02D9      ; [.019D.0020.0002] # DOT ABOVE
+02EA      ; [.019E.0020.0002] # MODIFIER LETTER YIN DEPARTING TONE MARK
+02EB      ; [.019F.0020.0002] # MODIFIER LETTER YANG DEPARTING TONE MARK
+0101      ; [.190C.001C.0002] # LATIN SMALL LETTER A WITH MACRON
+0061 0304 ; [.190C.001C.0002] # LATIN SMALL LETTER A WITH MACRON
+0100      ; [.190C.001C.0008] # LATIN CAPITAL LETTER A WITH MACRON
+0041 0304 ; [.190C.001C.0008] # LATIN CAPITAL LETTER A WITH MACRON
+00E1      ; [.190C.001D.0002] # LATIN SMALL LETTER A WITH ACUTE
+0061 0301 ; [.190C.001D.0002] # LATIN SMALL LETTER A WITH ACUTE
+0061 0341 ; [.190C.001D.0002] # LATIN SMALL LETTER A WITH ACUTE
+00C1      ; [.190C.001D.0008] # LATIN CAPITAL LETTER A WITH ACUTE
+0041 0301 ; [.190C.001D.0008] # LATIN CAPITAL LETTER A WITH ACUTE
+0041 0341 ; [.190C.001D.0008] # LATIN CAPITAL LETTER A WITH ACUTE
+01CE      ; [.190C.001E.0002] # LATIN SMALL LETTER A WITH CARON
+0061 030C ; [.190C.001E.0002] # LATIN SMALL LETTER A WITH CARON
+01CD      ; [.190C.001E.0008] # LATIN CAPITAL LETTER A WITH CARON
+0041 030C ; [.190C.001E.0008] # LATIN CAPITAL LETTER A WITH CARON
+00E0      ; [.190C.001F.0002] # LATIN SMALL LETTER A WITH GRAVE
+0061 0300 ; [.190C.001F.0002] # LATIN SMALL LETTER A WITH GRAVE
+0061 0340 ; [.190C.001F.0002] # LATIN SMALL LETTER A WITH GRAVE
+00C0      ; [.190C.001F.0008] # LATIN CAPITAL LETTER A WITH GRAVE
+0041 0300 ; [.190C.001F.0008] # LATIN CAPITAL LETTER A WITH GRAVE
+0041 0340 ; [.190C.001F.0008] # LATIN CAPITAL LETTER A WITH GRAVE
+0113      ; [.196E.001C.0002] # LATIN SMALL LETTER E WITH MACRON
+0065 0304 ; [.196E.001C.0002] # LATIN SMALL LETTER E WITH MACRON
+0112      ; [.196E.001C.0008] # LATIN CAPITAL LETTER E WITH MACRON
+0045 0304 ; [.196E.001C.0008] # LATIN CAPITAL LETTER E WITH MACRON
+00E9      ; [.196E.001D.0002] # LATIN SMALL LETTER E WITH ACUTE
+0065 0301 ; [.196E.001D.0002] # LATIN SMALL LETTER E WITH ACUTE
+0065 0341 ; [.196E.001D.0002] # LATIN SMALL LETTER E WITH ACUTE
+00C9      ; [.196E.001D.0008] # LATIN CAPITAL LETTER E WITH ACUTE
+0045 0301 ; [.196E.001D.0008] # LATIN CAPITAL LETTER E WITH ACUTE
+0045 0341 ; [.196E.001D.0008] # LATIN CAPITAL LETTER E WITH ACUTE
+011B      ; [.196E.001E.0002] # LATIN SMALL LETTER E WITH CARON
+0065 030C ; [.196E.001E.0002] # LATIN SMALL LETTER E WITH CARON
+011A      ; [.196E.001E.0008] # LATIN CAPITAL LETTER E WITH CARON
+0045 030C ; [.196E.001E.0008] # LATIN CAPITAL LETTER E WITH CARON
+00E8      ; [.196E.001F.0002] # LATIN SMALL LETTER E WITH GRAVE
+0065 0300 ; [.196E.001F.0002] # LATIN SMALL LETTER E WITH GRAVE
+0065 0340 ; [.196E.001F.0002] # LATIN SMALL LETTER E WITH GRAVE
+00C8      ; [.196E.001F.0008] # LATIN CAPITAL LETTER E WITH GRAVE
+0045 0300 ; [.196E.001F.0008] # LATIN CAPITAL LETTER E WITH GRAVE
+0045 0340 ; [.196E.001F.0008] # LATIN CAPITAL LETTER E WITH GRAVE
+00EA 0304 ; [.196E.0021.0002] # <LATIN SMALL LETTER E WITH CIRCUMFLEX, COMBINING MACRON>
+00CA 0304 ; [.196E.0021.0008] # <LATIN CAPITAL LETTER E WITH CIRCUMFLEX, COMBINING MACRON>
+0065 0302 0304 ; [.196E.0021.0002] # <LATIN SMALL LETTER E, COMBINING CIRCUMFLEX ACCENT, COMBINING MACRON>
+0045 0302 0304 ; [.196E.0021.0008] # <LATIN CAPITAL LETTER E, COMBINING CIRCUMFLEX ACCENT, COMBINING MACRON>
+1EBF      ; [.196E.0022.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND ACUTE
+0065 0302 0301 ; [.196E.0022.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND ACUTE
+0065 0302 0341 ; [.196E.0022.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND ACUTE
+1EBE      ; [.196E.0022.0008] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND ACUTE
+0045 0302 0301 ; [.196E.0022.0008] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND ACUTE
+0045 0302 0341 ; [.196E.0022.0008] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND ACUTE
+00EA 0301 ; [.196E.0022.0002] # <LATIN SMALL LETTER E WITH CIRCUMFLEX, COMBINING ACUTE ACCENT>
+00EA 0341 ; [.196E.0022.0002] # <LATIN SMALL LETTER E WITH CIRCUMFLEX, COMBINING ACUTE TONE MARK>
+00CA 0301 ; [.196E.0022.0008] # <LATIN CAPITAL LETTER E WITH CIRCUMFLEX, COMBINING ACUTE ACCENT>
+00CA 0341 ; [.196E.0022.0008] # <LATIN CAPITAL LETTER E WITH CIRCUMFLEX, COMBINING ACUTE TONE MARK>
+00EA 030C ; [.196E.0023.0002] # <LATIN SMALL LETTER E WITH CIRCUMFLEX, COMBINING CARON>
+00CA 030C ; [.196E.0023.0008] # <LATIN CAPITAL LETTER E WITH CIRCUMFLEX, COMBINING CARON>
+0065 0302 030C ; [.196E.0023.0002] # <LATIN SMALL LETTER E, COMBINING CIRCUMFLEX ACCENT, COMBINING CARON>
+0045 0302 030C ; [.196E.0023.0008] # <LATIN CAPITAL LETTER E, COMBINING CIRCUMFLEX ACCENT, COMBINING CARON>
+1EC1      ; [.196E.0024.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND GRAVE
+0065 0302 0300 ; [.196E.0024.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND GRAVE
+0065 0302 0340 ; [.196E.0024.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND GRAVE
+1EC0      ; [.196E.0024.0008] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND GRAVE
+0045 0302 0300 ; [.196E.0024.0008] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND GRAVE
+0045 0302 0340 ; [.196E.0024.0008] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND GRAVE
+00EA 0300 ; [.196E.0024.0002] # <LATIN SMALL LETTER E WITH CIRCUMFLEX, COMBINING GRAVE ACCENT>
+00EA 0340 ; [.196E.0024.0002] # <LATIN SMALL LETTER E WITH CIRCUMFLEX, COMBINING GRAVE TONE MARK>
+00CA 0300 ; [.196E.0024.0008] # <LATIN CAPITAL LETTER E WITH CIRCUMFLEX, COMBINING GRAVE ACCENT>
+00CA 0340 ; [.196E.0024.0008] # <LATIN CAPITAL LETTER E WITH CIRCUMFLEX, COMBINING GRAVE TONE MARK>
+00EA      ; [.196E.0025.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX
+0065 0302 ; [.196E.0025.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX
+00CA      ; [.196E.0025.0008] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX
+0045 0302 ; [.196E.0025.0008] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX
+1EC5      ; [.196E.0025.0002][.0000.002D.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND TILDE
+1EC4      ; [.196E.0025.0008][.0000.002D.0002] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND TILDE
+1EC3      ; [.196E.0025.0002][.0000.003B.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND HOOK ABOVE
+1EC2      ; [.196E.0025.0008][.0000.003B.0002] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND HOOK ABOVE
+1EC7      ; [.196E.0025.0002][.0000.0042.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND DOT BELOW
+1EC6      ; [.196E.0025.0008][.0000.0042.0002] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND DOT BELOW
+012B      ; [.19F6.001C.0002] # LATIN SMALL LETTER I WITH MACRON
+0069 0304 ; [.19F6.001C.0002] # LATIN SMALL LETTER I WITH MACRON
+012A      ; [.19F6.001C.0008] # LATIN CAPITAL LETTER I WITH MACRON
+0049 0304 ; [.19F6.001C.0008] # LATIN CAPITAL LETTER I WITH MACRON
+00ED      ; [.19F6.001D.0002] # LATIN SMALL LETTER I WITH ACUTE
+0069 0301 ; [.19F6.001D.0002] # LATIN SMALL LETTER I WITH ACUTE
+0069 0341 ; [.19F6.001D.0002] # LATIN SMALL LETTER I WITH ACUTE
+00CD      ; [.19F6.001D.0008] # LATIN CAPITAL LETTER I WITH ACUTE
+0049 0301 ; [.19F6.001D.0008] # LATIN CAPITAL LETTER I WITH ACUTE
+0049 0341 ; [.19F6.001D.0008] # LATIN CAPITAL LETTER I WITH ACUTE
+01D0      ; [.19F6.001E.0002] # LATIN SMALL LETTER I WITH CARON
+0069 030C ; [.19F6.001E.0002] # LATIN SMALL LETTER I WITH CARON
+01CF      ; [.19F6.001E.0008] # LATIN CAPITAL LETTER I WITH CARON
+0049 030C ; [.19F6.001E.0008] # LATIN CAPITAL LETTER I WITH CARON
+00EC      ; [.19F6.001F.0002] # LATIN SMALL LETTER I WITH GRAVE
+0069 0300 ; [.19F6.001F.0002] # LATIN SMALL LETTER I WITH GRAVE
+0069 0340 ; [.19F6.001F.0002] # LATIN SMALL LETTER I WITH GRAVE
+00CC      ; [.19F6.001F.0008] # LATIN CAPITAL LETTER I WITH GRAVE
+0049 0300 ; [.19F6.001F.0008] # LATIN CAPITAL LETTER I WITH GRAVE
+0049 0340 ; [.19F6.001F.0008] # LATIN CAPITAL LETTER I WITH GRAVE
+006D 0304 ; [.1A6E.001C.0002] # <LATIN SMALL LETTER M, COMBINING MACRON>
+004D 0304 ; [.1A6E.001C.0008] # <LATIN CAPITAL LETTER M, COMBINING MACRON>
+1E3F      ; [.1A6E.001D.0002] # LATIN SMALL LETTER M WITH ACUTE
+006D 0301 ; [.1A6E.001D.0002] # LATIN SMALL LETTER M WITH ACUTE
+006D 0341 ; [.1A6E.001D.0002] # LATIN SMALL LETTER M WITH ACUTE
+1E3E      ; [.1A6E.001D.0008] # LATIN CAPITAL LETTER M WITH ACUTE
+004D 0301 ; [.1A6E.001D.0008] # LATIN CAPITAL LETTER M WITH ACUTE
+004D 0341 ; [.1A6E.001D.0008] # LATIN CAPITAL LETTER M WITH ACUTE
+006D 030C ; [.1A6E.001E.0002] # <LATIN SMALL LETTER M, COMBINING CARON>
+004D 030C ; [.1A6E.001E.0008] # <LATIN CAPITAL LETTER M, COMBINING CARON>
+006D 0300 ; [.1A6E.001F.0002] # <LATIN SMALL LETTER M, COMBINING GRAVE ACCENT>
+006D 0340 ; [.1A6E.001F.0002] # <LATIN SMALL LETTER M, COMBINING GRAVE TONE MARK>
+004D 0300 ; [.1A6E.001F.0008] # <LATIN CAPITAL LETTER M, COMBINING GRAVE ACCENT>
+004D 0340 ; [.1A6E.001F.0008] # <LATIN CAPITAL LETTER M, COMBINING GRAVE TONE MARK>
+006E 0304 ; [.1A7D.001C.0002] # <LATIN SMALL LETTER N, COMBINING MACRON>
+004E 0304 ; [.1A7D.001C.0008] # <LATIN CAPITAL LETTER N, COMBINING MACRON>
+0144      ; [.1A7D.001D.0002] # LATIN SMALL LETTER N WITH ACUTE
+006E 0301 ; [.1A7D.001D.0002] # LATIN SMALL LETTER N WITH ACUTE
+006E 0341 ; [.1A7D.001D.0002] # LATIN SMALL LETTER N WITH ACUTE
+0143      ; [.1A7D.001D.0008] # LATIN CAPITAL LETTER N WITH ACUTE
+004E 0301 ; [.1A7D.001D.0008] # LATIN CAPITAL LETTER N WITH ACUTE
+004E 0341 ; [.1A7D.001D.0008] # LATIN CAPITAL LETTER N WITH ACUTE
+0148      ; [.1A7D.001E.0002] # LATIN SMALL LETTER N WITH CARON
+006E 030C ; [.1A7D.001E.0002] # LATIN SMALL LETTER N WITH CARON
+0147      ; [.1A7D.001E.0008] # LATIN CAPITAL LETTER N WITH CARON
+004E 030C ; [.1A7D.001E.0008] # LATIN CAPITAL LETTER N WITH CARON
+01F9      ; [.1A7D.001F.0002] # LATIN SMALL LETTER N WITH GRAVE
+006E 0300 ; [.1A7D.001F.0002] # LATIN SMALL LETTER N WITH GRAVE
+006E 0340 ; [.1A7D.001F.0002] # LATIN SMALL LETTER N WITH GRAVE
+01F8      ; [.1A7D.001F.0008] # LATIN CAPITAL LETTER N WITH GRAVE
+004E 0300 ; [.1A7D.001F.0008] # LATIN CAPITAL LETTER N WITH GRAVE
+004E 0340 ; [.1A7D.001F.0008] # LATIN CAPITAL LETTER N WITH GRAVE
+014D      ; [.1AA1.001C.0002] # LATIN SMALL LETTER O WITH MACRON
+006F 0304 ; [.1AA1.001C.0002] # LATIN SMALL LETTER O WITH MACRON
+014C      ; [.1AA1.001C.0008] # LATIN CAPITAL LETTER O WITH MACRON
+004F 0304 ; [.1AA1.001C.0008] # LATIN CAPITAL LETTER O WITH MACRON
+00F3      ; [.1AA1.001D.0002] # LATIN SMALL LETTER O WITH ACUTE
+006F 0301 ; [.1AA1.001D.0002] # LATIN SMALL LETTER O WITH ACUTE
+006F 0341 ; [.1AA1.001D.0002] # LATIN SMALL LETTER O WITH ACUTE
+00D3      ; [.1AA1.001D.0008] # LATIN CAPITAL LETTER O WITH ACUTE
+004F 0301 ; [.1AA1.001D.0008] # LATIN CAPITAL LETTER O WITH ACUTE
+004F 0341 ; [.1AA1.001D.0008] # LATIN CAPITAL LETTER O WITH ACUTE
+01D2      ; [.1AA1.001E.0002] # LATIN SMALL LETTER O WITH CARON
+006F 030C ; [.1AA1.001E.0002] # LATIN SMALL LETTER O WITH CARON
+01D1      ; [.1AA1.001E.0008] # LATIN CAPITAL LETTER O WITH CARON
+004F 030C ; [.1AA1.001E.0008] # LATIN CAPITAL LETTER O WITH CARON
+00F2      ; [.1AA1.001F.0002] # LATIN SMALL LETTER O WITH GRAVE
+006F 0300 ; [.1AA1.001F.0002] # LATIN SMALL LETTER O WITH GRAVE
+006F 0340 ; [.1AA1.001F.0002] # LATIN SMALL LETTER O WITH GRAVE
+00D2      ; [.1AA1.001F.0008] # LATIN CAPITAL LETTER O WITH GRAVE
+004F 0300 ; [.1AA1.001F.0008] # LATIN CAPITAL LETTER O WITH GRAVE
+004F 0340 ; [.1AA1.001F.0008] # LATIN CAPITAL LETTER O WITH GRAVE
+016B      ; [.1B77.001C.0002] # LATIN SMALL LETTER U WITH MACRON
+0075 0304 ; [.1B77.001C.0002] # LATIN SMALL LETTER U WITH MACRON
+016A      ; [.1B77.001C.0008] # LATIN CAPITAL LETTER U WITH MACRON
+0055 0304 ; [.1B77.001C.0008] # LATIN CAPITAL LETTER U WITH MACRON
+00FA      ; [.1B77.001D.0002] # LATIN SMALL LETTER U WITH ACUTE
+0075 0301 ; [.1B77.001D.0002] # LATIN SMALL LETTER U WITH ACUTE
+0075 0341 ; [.1B77.001D.0002] # LATIN SMALL LETTER U WITH ACUTE
+00DA      ; [.1B77.001D.0008] # LATIN CAPITAL LETTER U WITH ACUTE
+0055 0301 ; [.1B77.001D.0008] # LATIN CAPITAL LETTER U WITH ACUTE
+0055 0341 ; [.1B77.001D.0008] # LATIN CAPITAL LETTER U WITH ACUTE
+01D4      ; [.1B77.001E.0002] # LATIN SMALL LETTER U WITH CARON
+0075 030C ; [.1B77.001E.0002] # LATIN SMALL LETTER U WITH CARON
+01D3      ; [.1B77.001E.0008] # LATIN CAPITAL LETTER U WITH CARON
+0055 030C ; [.1B77.001E.0008] # LATIN CAPITAL LETTER U WITH CARON
+00F9      ; [.1B77.001F.0002] # LATIN SMALL LETTER U WITH GRAVE
+0075 0300 ; [.1B77.001F.0002] # LATIN SMALL LETTER U WITH GRAVE
+0075 0340 ; [.1B77.001F.0002] # LATIN SMALL LETTER U WITH GRAVE
+00D9      ; [.1B77.001F.0008] # LATIN CAPITAL LETTER U WITH GRAVE
+0055 0300 ; [.1B77.001F.0008] # LATIN CAPITAL LETTER U WITH GRAVE
+0055 0340 ; [.1B77.001F.0008] # LATIN CAPITAL LETTER U WITH GRAVE
+01D6      ; [.1B77.0021.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND MACRON
+0075 0308 0304 ; [.1B77.0021.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND MACRON
+01D5      ; [.1B77.0021.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS AND MACRON
+0055 0308 0304 ; [.1B77.0021.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS AND MACRON
+00FC 0304 ; [.1B77.0021.0002] # <LATIN SMALL LETTER U WITH DIAERESIS, COMBINING MACRON>
+00DC 0304 ; [.1B77.0021.0008] # <LATIN CAPITAL LETTER U WITH DIAERESIS, COMBINING MACRON>
+01D8      ; [.1B77.0022.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND ACUTE
+0075 0308 0301 ; [.1B77.0022.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND ACUTE
+0075 0308 0341 ; [.1B77.0022.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND ACUTE
+01D7      ; [.1B77.0022.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS AND ACUTE
+0055 0308 0301 ; [.1B77.0022.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS AND ACUTE
+0055 0308 0341 ; [.1B77.0022.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS AND ACUTE
+00FC 0301 ; [.1B77.0022.0002] # <LATIN SMALL LETTER U WITH DIAERESIS, COMBINING ACUTE ACCENT>
+00FC 0341 ; [.1B77.0022.0002] # <LATIN SMALL LETTER U WITH DIAERESIS, COMBINING ACUTE TONE MARK>
+00DC 0301 ; [.1B77.0022.0008] # <LATIN CAPITAL LETTER U WITH DIAERESIS, COMBINING ACUTE ACCENT>
+00DC 0341 ; [.1B77.0022.0008] # <LATIN CAPITAL LETTER U WITH DIAERESIS, COMBINING ACUTE TONE MARK>
+01DA      ; [.1B77.0023.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND CARON
+0075 0308 030C ; [.1B77.0023.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND CARON
+01D9      ; [.1B77.0023.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS AND CARON
+0055 0308 030C ; [.1B77.0023.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS AND CARON
+00FC 030C ; [.1B77.0023.0002] # <LATIN SMALL LETTER U WITH DIAERESIS, COMBINING CARON>
+00DC 030C ; [.1B77.0023.0008] # <LATIN CAPITAL LETTER U WITH DIAERESIS, COMBINING CARON>
+01DC      ; [.1B77.0024.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND GRAVE
+0075 0308 0300 ; [.1B77.0024.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND GRAVE
+0075 0308 0340 ; [.1B77.0024.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND GRAVE
+01DB      ; [.1B77.0024.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS AND GRAVE
+0055 0308 0300 ; [.1B77.0024.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS AND GRAVE
+0055 0308 0340 ; [.1B77.0024.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS AND GRAVE
+00FC 0300 ; [.1B77.0024.0002] # <LATIN SMALL LETTER U WITH DIAERESIS, COMBINING GRAVE ACCENT>
+00FC 0340 ; [.1B77.0024.0002] # <LATIN SMALL LETTER U WITH DIAERESIS, COMBINING GRAVE TONE MARK>
+00DC 0300 ; [.1B77.0024.0008] # <LATIN CAPITAL LETTER U WITH DIAERESIS, COMBINING GRAVE ACCENT>
+00DC 0340 ; [.1B77.0024.0008] # <LATIN CAPITAL LETTER U WITH DIAERESIS, COMBINING GRAVE TONE MARK>
+00FC      ; [.1B77.0025.0002] # LATIN SMALL LETTER U WITH DIAERESIS
+0075 0308 ; [.1B77.0025.0002] # LATIN SMALL LETTER U WITH DIAERESIS
+00DC      ; [.1B77.0025.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS
+0055 0308 ; [.1B77.0025.0008] # LATIN CAPITAL LETTER U WITH DIAERESIS
+FDD0 3105 ; [.8000.0020.0002] # <noncharacter-FDD0, BOPOMOFO LETTER B>
+2E8A      ; [.80B5.0020.0002] # CJK RADICAL DIVINATION
+FDD0 3106 ; [.83B1.0020.0002] # <noncharacter-FDD0, BOPOMOFO LETTER P>
+FDD0 3107 ; [.8626.0020.0002] # <noncharacter-FDD0, BOPOMOFO LETTER M>
+FDD0 3108 ; [.897F.0020.0002] # <noncharacter-FDD0, BOPOMOFO LETTER F>
+2ECF      ; [.8BC0.0020.0002] # CJK RADICAL CITY
+2ED6      ; [.8BC1.0020.0002] # CJK RADICAL MOUND TWO
+FDD0 3109 ; [.8C0D.0020.0002] # <noncharacter-FDD0, BOPOMOFO LETTER D>
+2E88      ; [.8C86.0020.0002] # CJK RADICAL KNIFE ONE
+FDD0 310A ; [.901F.0020.0002] # <noncharacter-FDD0, BOPOMOFO LETTER T>
+FDD0 310B ; [.93D9.0020.0002] # <noncharacter-FDD0, BOPOMOFO LETTER N>
+2EA7      ; [.9525.0020.0002] # CJK RADICAL COW
+FDD0 310C ; [.95D9.0020.0002] # <noncharacter-FDD0, BOPOMOFO LETTER L>
+3007      ; [.9A41.0020.0002] # IDEOGRAPHIC NUMBER ZERO
+FDD0 310D ; [.9C5F.0020.0002] # <noncharacter-FDD0, BOPOMOFO LETTER G>
+2EE3      ; [.9E0A.0020.0002] # CJK RADICAL BONE
+FDD0 310E ; [.9FD2.0020.0002] # <noncharacter-FDD0, BOPOMOFO LETTER K>
+FDD0 310F ; [.A223.0020.0002] # <noncharacter-FDD0, BOPOMOFO LETTER H>
+FDD0 3110 ; [.A697.0020.0002] # <noncharacter-FDD0, BOPOMOFO LETTER J>
+2E95      ; [.A762.0020.0002] # CJK RADICAL SNOUT TWO
+2E86      ; [.AD18.0020.0002] # CJK RADICAL BOX
+FDD0 3111 ; [.AD38.0020.0002] # <noncharacter-FDD0, BOPOMOFO LETTER Q>
+FDD0 3112 ; [.B164.0020.0002] # <noncharacter-FDD0, BOPOMOFO LETTER X>
+2E8C      ; [.B383.0020.0002] # CJK RADICAL SMALL ONE
+2E8D      ; [.B384.0020.0002] # CJK RADICAL SMALL TWO
+FDD0 3113 ; [.B6E9.0020.0002] # <noncharacter-FDD0, BOPOMOFO LETTER ZH>
+2EA5      ; [.B8AC.0020.0002] # CJK RADICAL PAW TWO
+FDD0 3114 ; [.BBAC.0020.0002] # <noncharacter-FDD0, BOPOMOFO LETTER CH>
+2ECC      ; [.BE9D.0020.0002] # CJK RADICAL SIMPLIFIED WALK
+2ECD      ; [.BE9E.0020.0002] # CJK RADICAL WALK ONE
+FDD0 3115 ; [.BF5A.0020.0002] # <noncharacter-FDD0, BOPOMOFO LETTER SH>
+2EAC      ; [.BFBC.0020.0002] # CJK RADICAL SPIRIT ONE
+2EAE      ; [.BFC1.0020.0002] # CJK RADICAL BAMBOO
+FDD0 3116 ; [.C2A2.0020.0002] # <noncharacter-FDD0, BOPOMOFO LETTER R>
+2E9C      ; [.C2A3.0020.0002] # CJK RADICAL SUN
+2EBC      ; [.C2D3.0020.0002] # CJK RADICAL MEAT
+2EB6      ; [.C311.0020.0002] # CJK RADICAL SHEEP
+FDD0 3117 ; [.C402.0020.0002] # <noncharacter-FDD0, BOPOMOFO LETTER Z>
+FDD0 3118 ; [.C630.0020.0002] # <noncharacter-FDD0, BOPOMOFO LETTER C>
+2EBE      ; [.C6CA.0020.0002] # CJK RADICAL GRASS ONE
+FDD0 3119 ; [.C7F6.0020.0002] # <noncharacter-FDD0, BOPOMOFO LETTER S>
+FDD0 311A ; [.CA13.0020.0002] # <noncharacter-FDD0, BOPOMOFO LETTER A>
+FDD0 311B ; [.CA19.0020.0002] # <noncharacter-FDD0, BOPOMOFO LETTER O>
+FDD0 311C ; [.CA1E.0020.0002] # <noncharacter-FDD0, BOPOMOFO LETTER E>
+FDD0 311E ; [.CAA0.0020.0002] # <noncharacter-FDD0, BOPOMOFO LETTER AI>
+FDD0 311F ; [.CAE8.0020.0002] # <noncharacter-FDD0, BOPOMOFO LETTER EI>
+FDD0 3120 ; [.CAEB.0020.0002] # <noncharacter-FDD0, BOPOMOFO LETTER AU>
+FDD0 3121 ; [.CB2E.0020.0002] # <noncharacter-FDD0, BOPOMOFO LETTER OU>
+FDD0 3122 ; [.CB51.0020.0002] # <noncharacter-FDD0, BOPOMOFO LETTER AN>
+FDD0 3123 ; [.CB8B.0020.0002] # <noncharacter-FDD0, BOPOMOFO LETTER EN>
+FDD0 3124 ; [.CB94.0020.0002] # <noncharacter-FDD0, BOPOMOFO LETTER ANG>
+FDD0 3125 ; [.CBA0.0020.0002] # <noncharacter-FDD0, BOPOMOFO LETTER ENG>
+FDD0 3126 ; [.CBA2.0020.0002] # <noncharacter-FDD0, BOPOMOFO LETTER ER>
+FDD0 3127 ; [.CBDB.0020.0002] # <noncharacter-FDD0, BOPOMOFO LETTER I>
+2E84      ; [.CDB5.0020.0002] # CJK RADICAL SECOND THREE
+2E80      ; [.CEDF.0020.0002] # CJK RADICAL REPEAT
+FDD0 3128 ; [.D16F.0020.0002] # <noncharacter-FDD0, BOPOMOFO LETTER U>
+FDD0 3129 ; [.D403.0020.0002] # <noncharacter-FDD0, BOPOMOFO LETTER IU>
+2ED7      ; [.D47E.0020.0002] # CJK RADICAL RAIN
+2E9D      ; [.D53B.0020.0002] # CJK RADICAL MOON
+3220      ; [*030A.0020.0004][.CBDC.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH ONE
+3226      ; [*030A.0020.0004][.AD39.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH SEVEN
+3222      ; [*030A.0020.0004][.C8DF.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH THREE
+3228      ; [*030A.0020.0004][.A95D.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH NINE
+3221      ; [*030A.0020.0004][.CBCD.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH TWO
+3224      ; [*030A.0020.0004][.D1A9.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH FIVE
+3239      ; [*030A.0020.0004][.8C57.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH REPRESENT
+323D      ; [*030A.0020.0004][.ADC1.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH ENTERPRISE
+3241      ; [*030A.0020.0004][.B3A8.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH REST
+3227      ; [*030A.0020.0004][.8001.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH EIGHT
+3225      ; [*030A.0020.0004][.9953.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH SIX
+3238      ; [*030A.0020.0004][.969E.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH LABOR
+3229      ; [*030A.0020.0004][.BF85.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH TEN
+323F      ; [*030A.0020.0004][.B2BC.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH ALLIANCE
+3234      ; [*030A.0020.0004][.892A.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH NAME
+323A      ; [*030A.0020.0004][.A3B5.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH CALL
+3223      ; [*030A.0020.0004][.C82E.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH FOUR
+322F      ; [*030A.0020.0004][.92EA.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH EARTH
+323B      ; [*030A.0020.0004][.B5F0.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH STUDY
+3230      ; [*030A.0020.0004][.C2A4.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH SUN
+322A      ; [*030A.0020.0004][.D53C.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH MOON
+3232      ; [*030A.0020.0004][.CEC7.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH HAVE
+322D      ; [*030A.0020.0004][.895F.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH WOOD
+3231      ; [*030A.0020.0004][.BA36.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH STOCK
+322C      ; [*030A.0020.0004][.C26E.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH WATER
+322B      ; [*030A.0020.0004][.A48C.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH FIRE
+3235      ; [*030A.0020.0004][.9060.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH SPECIAL
+323C      ; [*030A.0020.0004][.A9B3.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH SUPERVISE
+3233      ; [*030A.0020.0004][.C05E.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH SOCIETY
+3237      ; [*030A.0020.0004][.BA90.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH CONGRATULATION
+3240      ; [*030A.0020.0004][.A78C.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH FESTIVAL
+3242      ; [*030A.0020.0004][.C457.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH SELF
+3243      ; [*030A.0020.0004][.B766.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH REACH
+3236      ; [*030A.0020.0004][.C69F.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH FINANCIAL
+323E      ; [*030A.0020.0004][.C421.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH RESOURCE
+322E      ; [*030A.0020.0004][.AA72.0020.0004][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH METAL
+3358      ; [.1902.0020.0004][.8E99.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR ZERO
+33E9      ; [.1903.0020.0004][.1902.0020.0004][.C2A4.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TEN
+32C9      ; [.1903.0020.0004][.1902.0020.0004][.D53C.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR OCTOBER
+3362      ; [.1903.0020.0004][.1902.0020.0004][.8E99.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR TEN
+33EA      ; [.1903.0020.0004][.1903.0020.0004][.C2A4.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY ELEVEN
+32CA      ; [.1903.0020.0004][.1903.0020.0004][.D53C.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR NOVEMBER
+3363      ; [.1903.0020.0004][.1903.0020.0004][.8E99.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR ELEVEN
+33EB      ; [.1903.0020.0004][.1904.0020.0004][.C2A4.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWELVE
+32CB      ; [.1903.0020.0004][.1904.0020.0004][.D53C.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DECEMBER
+3364      ; [.1903.0020.0004][.1904.0020.0004][.8E99.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR TWELVE
+33EC      ; [.1903.0020.0004][.1905.0020.0004][.C2A4.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY THIRTEEN
+3365      ; [.1903.0020.0004][.1905.0020.0004][.8E99.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR THIRTEEN
+33ED      ; [.1903.0020.0004][.1906.0020.0004][.C2A4.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY FOURTEEN
+3366      ; [.1903.0020.0004][.1906.0020.0004][.8E99.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR FOURTEEN
+33EE      ; [.1903.0020.0004][.1907.0020.0004][.C2A4.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY FIFTEEN
+3367      ; [.1903.0020.0004][.1907.0020.0004][.8E99.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR FIFTEEN
+33EF      ; [.1903.0020.0004][.1908.0020.0004][.C2A4.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY SIXTEEN
+3368      ; [.1903.0020.0004][.1908.0020.0004][.8E99.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR SIXTEEN
+33F0      ; [.1903.0020.0004][.1909.0020.0004][.C2A4.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY SEVENTEEN
+3369      ; [.1903.0020.0004][.1909.0020.0004][.8E99.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR SEVENTEEN
+33F1      ; [.1903.0020.0004][.190A.0020.0004][.C2A4.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY EIGHTEEN
+336A      ; [.1903.0020.0004][.190A.0020.0004][.8E99.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR EIGHTEEN
+33F2      ; [.1903.0020.0004][.190B.0020.0004][.C2A4.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY NINETEEN
+336B      ; [.1903.0020.0004][.190B.0020.0004][.8E99.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR NINETEEN
+33E0      ; [.1903.0020.0004][.C2A4.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY ONE
+32C0      ; [.1903.0020.0004][.D53C.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR JANUARY
+3359      ; [.1903.0020.0004][.8E99.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR ONE
+33F3      ; [.1904.0020.0004][.1902.0020.0004][.C2A4.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY
+336C      ; [.1904.0020.0004][.1902.0020.0004][.8E99.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR TWENTY
+33F4      ; [.1904.0020.0004][.1903.0020.0004][.C2A4.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY-ONE
+336D      ; [.1904.0020.0004][.1903.0020.0004][.8E99.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR TWENTY-ONE
+33F5      ; [.1904.0020.0004][.1904.0020.0004][.C2A4.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY-TWO
+336E      ; [.1904.0020.0004][.1904.0020.0004][.8E99.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR TWENTY-TWO
+33F6      ; [.1904.0020.0004][.1905.0020.0004][.C2A4.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY-THREE
+336F      ; [.1904.0020.0004][.1905.0020.0004][.8E99.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR TWENTY-THREE
+33F7      ; [.1904.0020.0004][.1906.0020.0004][.C2A4.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY-FOUR
+3370      ; [.1904.0020.0004][.1906.0020.0004][.8E99.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR TWENTY-FOUR
+33F8      ; [.1904.0020.0004][.1907.0020.0004][.C2A4.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY-FIVE
+33F9      ; [.1904.0020.0004][.1908.0020.0004][.C2A4.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY-SIX
+33FA      ; [.1904.0020.0004][.1909.0020.0004][.C2A4.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY-SEVEN
+33FB      ; [.1904.0020.0004][.190A.0020.0004][.C2A4.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY-EIGHT
+33FC      ; [.1904.0020.0004][.190B.0020.0004][.C2A4.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY-NINE
+33E1      ; [.1904.0020.0004][.C2A4.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWO
+32C1      ; [.1904.0020.0004][.D53C.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR FEBRUARY
+335A      ; [.1904.0020.0004][.8E99.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR TWO
+33FD      ; [.1905.0020.0004][.1902.0020.0004][.C2A4.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY THIRTY
+33FE      ; [.1905.0020.0004][.1903.0020.0004][.C2A4.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY THIRTY-ONE
+33E2      ; [.1905.0020.0004][.C2A4.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY THREE
+32C2      ; [.1905.0020.0004][.D53C.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR MARCH
+335B      ; [.1905.0020.0004][.8E99.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR THREE
+33E3      ; [.1906.0020.0004][.C2A4.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY FOUR
+32C3      ; [.1906.0020.0004][.D53C.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR APRIL
+335C      ; [.1906.0020.0004][.8E99.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR FOUR
+33E4      ; [.1907.0020.0004][.C2A4.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY FIVE
+32C4      ; [.1907.0020.0004][.D53C.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR MAY
+335D      ; [.1907.0020.0004][.8E99.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR FIVE
+33E5      ; [.1908.0020.0004][.C2A4.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY SIX
+32C5      ; [.1908.0020.0004][.D53C.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR JUNE
+335E      ; [.1908.0020.0004][.8E99.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR SIX
+33E6      ; [.1909.0020.0004][.C2A4.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY SEVEN
+32C6      ; [.1909.0020.0004][.D53C.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR JULY
+335F      ; [.1909.0020.0004][.8E99.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR SEVEN
+33E7      ; [.190A.0020.0004][.C2A4.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY EIGHT
+32C7      ; [.190A.0020.0004][.D53C.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR AUGUST
+3360      ; [.190A.0020.0004][.8E99.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR EIGHT
+33E8      ; [.190B.0020.0004][.C2A4.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY NINE
+32C8      ; [.190B.0020.0004][.D53C.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR SEPTEMBER
+3361      ; [.190B.0020.0004][.8E99.0020.0004] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR NINE
+1F241     ; [*036C.0020.0004][.C8DF.0020.0004][*036D.0020.0004] # TORTOISE SHELL BRACKETED CJK UNIFIED IDEOGRAPH-4E09
+1F242     ; [*036C.0020.0004][.CBCD.0020.0004][*036D.0020.0004] # TORTOISE SHELL BRACKETED CJK UNIFIED IDEOGRAPH-4E8C
+1F247     ; [*036C.0020.0004][.C1CC.0020.0004][*036D.0020.0004] # TORTOISE SHELL BRACKETED CJK UNIFIED IDEOGRAPH-52DD
+1F243     ; [*036C.0020.0004][.CB52.0020.0004][*036D.0020.0004] # TORTOISE SHELL BRACKETED CJK UNIFIED IDEOGRAPH-5B89
+1F245     ; [*036C.0020.0004][.8C38.0020.0004][*036D.0020.0004] # TORTOISE SHELL BRACKETED CJK UNIFIED IDEOGRAPH-6253
+1F248     ; [*036C.0020.0004][.80CD.0020.0004][*036D.0020.0004] # TORTOISE SHELL BRACKETED CJK UNIFIED IDEOGRAPH-6557
+1F240     ; [*036C.0020.0004][.819A.0020.0004][*036D.0020.0004] # TORTOISE SHELL BRACKETED CJK UNIFIED IDEOGRAPH-672C
+1F244     ; [*036C.0020.0004][.8E99.0020.0004][*036D.0020.0004] # TORTOISE SHELL BRACKETED CJK UNIFIED IDEOGRAPH-70B9
+1F246     ; [*036C.0020.0004][.8CA9.0020.0004][*036D.0020.0004] # TORTOISE SHELL BRACKETED CJK UNIFIED IDEOGRAPH-76D7
+2F00      ; [.CBDC.0020.0004] # KANGXI RADICAL ONE
+3192      ; [.CBDC.0020.0014] # IDEOGRAPHIC ANNOTATION ONE MARK
+3280      ; [.CBDC.0020.0006] # CIRCLED IDEOGRAPH ONE
+1F229     ; [.CBDC.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-4E00
+319C      ; [.8EC1.0020.0014] # IDEOGRAPHIC ANNOTATION FOURTH MARK
+3286      ; [.AD39.0020.0006] # CIRCLED IDEOGRAPH SEVEN
+3194      ; [.C8DF.0020.0014] # IDEOGRAPHIC ANNOTATION THREE MARK
+3282      ; [.C8DF.0020.0006] # CIRCLED IDEOGRAPH THREE
+1F22A     ; [.C8DF.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-4E09
+3196      ; [.C19C.0020.0014] # IDEOGRAPHIC ANNOTATION TOP MARK
+32A4      ; [.C19C.0020.0006] # CIRCLED IDEOGRAPH HIGH
+3198      ; [.B2A0.0020.0014] # IDEOGRAPHIC ANNOTATION BOTTOM MARK
+32A6      ; [.B2A0.0020.0006] # CIRCLED IDEOGRAPH LOW
+319B      ; [.8355.0020.0014] # IDEOGRAPHIC ANNOTATION THIRD MARK
+2F01      ; [.9F64.0020.0004] # KANGXI RADICAL LINE
+3197      ; [.BB6D.0020.0014] # IDEOGRAPHIC ANNOTATION MIDDLE MARK
+32A5      ; [.BB6D.0020.0006] # CIRCLED IDEOGRAPH CENTRE
+1F22D     ; [.BB6D.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-4E2D
+2F02      ; [.BA6A.0020.0004] # KANGXI RADICAL DOT
+2F03      ; [.8558.0020.0004] # KANGXI RADICAL SLASH
+2F04      ; [.CC59.0020.0004] # KANGXI RADICAL SECOND
+319A      ; [.CC59.0020.0014] # IDEOGRAPHIC ANNOTATION SECOND MARK
+3288      ; [.A95D.0020.0006] # CIRCLED IDEOGRAPH NINE
+2F05      ; [.AC3C.0020.0004] # KANGXI RADICAL HOOK
+2F06      ; [.CBCD.0020.0004] # KANGXI RADICAL TWO
+3193      ; [.CBCD.0020.0014] # IDEOGRAPHIC ANNOTATION TWO MARK
+3281      ; [.CBCD.0020.0006] # CIRCLED IDEOGRAPH TWO
+1F214     ; [.CBCD.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-4E8C
+3284      ; [.D1A9.0020.0006] # CIRCLED IDEOGRAPH FIVE
+2F07      ; [.90D4.0020.0004] # KANGXI RADICAL LID
+1F218     ; [.A8BE.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-4EA4
+2F08      ; [.C2EF.0020.0004] # KANGXI RADICAL MAN
+319F      ; [.C2EF.0020.0014] # IDEOGRAPHIC ANNOTATION MAN MARK
+32AD      ; [.ADC1.0020.0006] # CIRCLED IDEOGRAPH ENTERPRISE
+32A1      ; [.B3A8.0020.0006] # CIRCLED IDEOGRAPH REST
+329D      ; [.CE97.0020.0006] # CIRCLED IDEOGRAPH EXCELLENT
+2F09      ; [.CBA3.0020.0004] # KANGXI RADICAL LEGS
+2F0A      ; [.C376.0020.0004] # KANGXI RADICAL ENTER
+2F0B      ; [.8001.0020.0004] # KANGXI RADICAL EIGHT
+3287      ; [.8001.0020.0006] # CIRCLED IDEOGRAPH EIGHT
+3285      ; [.9953.0020.0006] # CIRCLED IDEOGRAPH SIX
+2F0C      ; [.AD19.0020.0004] # KANGXI RADICAL DOWN BOX
+1F21E     ; [.C4C2.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-518D
+2F0D      ; [.8867.0020.0004] # KANGXI RADICAL COVER
+32A2      ; [.B2E9.0020.0006] # CIRCLED IDEOGRAPH COPY
+2F0E      ; [.834E.0020.0004] # KANGXI RADICAL ICE
+2F0F      ; [.A74C.0020.0004] # KANGXI RADICAL TABLE
+2F10      ; [.AF59.0020.0004] # KANGXI RADICAL OPEN BOX
+2F11      ; [.8C87.0020.0004] # KANGXI RADICAL KNIFE
+1F220     ; [.BE3B.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-521D
+1F21C     ; [.AF3B.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-524D
+1F239     ; [.9C7B.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-5272
+2F12      ; [.9804.0020.0004] # KANGXI RADICAL POWER
+3298      ; [.969E.0020.0006] # CIRCLED IDEOGRAPH LABOR
+2F13      ; [.811A.0020.0004] # KANGXI RADICAL WRAP
+2F14      ; [.81FC.0020.0004] # KANGXI RADICAL SPOON
+2F15      ; [.8A9F.0020.0004] # KANGXI RADICAL RIGHT OPEN BOX
+2F16      ; [.B224.0020.0004] # KANGXI RADICAL HIDING ENCLOSURE
+32A9      ; [.CBE1.0020.0006] # CIRCLED IDEOGRAPH MEDICINE
+2F17      ; [.BF85.0020.0004] # KANGXI RADICAL TEN
+3038      ; [.BF85.0020.0004] # HANGZHOU NUMERAL TEN
+3289      ; [.BF85.0020.0006] # CIRCLED IDEOGRAPH TEN
+3039      ; [.954F.0020.0004] # HANGZHOU NUMERAL TWENTY
+303A      ; [.C861.0020.0004] # HANGZHOU NUMERAL THIRTY
+32AF      ; [.B2BC.0020.0006] # CIRCLED IDEOGRAPH ALLIANCE
+2F18      ; [.80B6.0020.0004] # KANGXI RADICAL DIVINATION
+2F19      ; [.A84F.0020.0004] # KANGXI RADICAL SEAL
+329E      ; [.D06B.0020.0006] # CIRCLED IDEOGRAPH PRINT
+2F1A      ; [.BDC0.0020.0004] # KANGXI RADICAL CLIFF
+2F1B      ; [.C7F7.0020.0004] # KANGXI RADICAL PRIVATE
+2F1C      ; [.CEE0.0020.0004] # KANGXI RADICAL AGAIN
+1F212     ; [.C28A.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-53CC
+2F1D      ; [.A070.0020.0004] # KANGXI RADICAL MOUTH
+1F251     ; [.A007.0020.0006] # CIRCLED IDEOGRAPH ACCEPT
+32A8      ; [.CEE1.0020.0006] # CIRCLED IDEOGRAPH RIGHT
+1F22E     ; [.CEE1.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-53F3
+1F234     ; [.A232.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-5408
+3294      ; [.892A.0020.0006] # CIRCLED IDEOGRAPH NAME
+1F225     ; [.BEBE.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-5439
+3244      ; [.D3B7.0020.0006] # CIRCLED IDEOGRAPH QUESTION
+1F23A     ; [.D120.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-55B6
+2F1E      ; [.D27D.0020.0004] # KANGXI RADICAL ENCLOSURE
+3195      ; [.C82E.0020.0014] # IDEOGRAPHIC ANNOTATION FOUR MARK
+3283      ; [.C82E.0020.0006] # CIRCLED IDEOGRAPH FOUR
+2F1F      ; [.92EA.0020.0004] # KANGXI RADICAL EARTH
+328F      ; [.92EA.0020.0006] # CIRCLED IDEOGRAPH EARTH
+319E      ; [.8C4B.0020.0014] # IDEOGRAPHIC ANNOTATION EARTH MARK
+2F20      ; [.BFB5.0020.0004] # KANGXI RADICAL SCHOLAR
+1F224     ; [.C1A8.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-58F0
+2F21      ; [.B740.0020.0004] # KANGXI RADICAL GO
+2F22      ; [.C986.0020.0004] # KANGXI RADICAL GO SLOWLY
+2F23      ; [.B165.0020.0004] # KANGXI RADICAL EVENING
+1F215     ; [.8F35.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-591A
+32B0      ; [.CDD7.0020.0006] # CIRCLED IDEOGRAPH NIGHT
+2F24      ; [.8C39.0020.0004] # KANGXI RADICAL BIG
+337D      ; [.8C39.0020.001C][.BA1E.0020.001C] # SQUARE ERA NAME TAISYOU
+319D      ; [.923B.0020.0014] # IDEOGRAPHIC ANNOTATION HEAVEN MARK
+1F217     ; [.923B.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-5929
+2F25      ; [.95CC.0020.0004] # KANGXI RADICAL WOMAN
+329B      ; [.95CC.0020.0006] # CIRCLED IDEOGRAPH FEMALE
+2F26      ; [.C466.0020.0004] # KANGXI RADICAL CHILD
+1F211     ; [.C456.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-5B57
+32AB      ; [.B5F0.0020.0006] # CIRCLED IDEOGRAPH STUDY
+2F27      ; [.88BF.0020.0004] # KANGXI RADICAL ROOF
+32AA      ; [.C5ED.0020.0006] # CIRCLED IDEOGRAPH RELIGION
+2F28      ; [.C7B4.0020.0004] # KANGXI RADICAL INCH
+2F29      ; [.B385.0020.0004] # KANGXI RADICAL SMALL
+2F2A      ; [.CE9E.0020.0004] # KANGXI RADICAL LAME
+2F2B      ; [.BF5B.0020.0004] # KANGXI RADICAL CORPSE
+2F2C      ; [.BC63.0020.0004] # KANGXI RADICAL SPROUT
+2F2D      ; [.C0C5.0020.0004] # KANGXI RADICAL MOUNTAIN
+2F2E      ; [.BED1.0020.0004] # KANGXI RADICAL RIVER
+2F2F      ; [.9F9E.0020.0004] # KANGXI RADICAL WORK
+32A7      ; [.C593.0020.0006] # CIRCLED IDEOGRAPH LEFT
+1F22C     ; [.C593.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-5DE6
+2F30      ; [.A74D.0020.0004] # KANGXI RADICAL ONESELF
+2F31      ; [.AA6D.0020.0004] # KANGXI RADICAL TURBAN
+2F32      ; [.9D7F.0020.0004] # KANGXI RADICAL DRY
+337B      ; [.85BF.0020.001C][.BDFC.0020.001C] # SQUARE ERA NAME HEISEI
+2F33      ; [.CE11.0020.0004] # KANGXI RADICAL SHORT THREAD
+3245      ; [.CEE2.0020.0006] # CIRCLED IDEOGRAPH KINDERGARTEN
+2F34      ; [.9F8F.0020.0004] # KANGXI RADICAL DOTTED CLIFF
+2F35      ; [.D04E.0020.0004] # KANGXI RADICAL LONG STRIDE
+2F36      ; [.9FBB.0020.0004] # KANGXI RADICAL TWO HANDS
+2F37      ; [.CC86.0020.0004] # KANGXI RADICAL SHOOT
+2F38      ; [.9F9F.0020.0004] # KANGXI RADICAL BOW
+2F39      ; [.A763.0020.0004] # KANGXI RADICAL SNOUT
+2F3A      ; [.C0C6.0020.0004] # KANGXI RADICAL BRISTLE
+2F3B      ; [.BBF9.0020.0004] # KANGXI RADICAL STEP
+1F21D     ; [.A30D.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-5F8C
+1F250     ; [.8C4D.0020.0006] # CIRCLED IDEOGRAPH ADVANTAGE
+2F3C      ; [.B4AB.0020.0004] # KANGXI RADICAL HEART
+2F3D      ; [.9C6C.0020.0004] # KANGXI RADICAL HALBERD
+2F3E      ; [.A40C.0020.0004] # KANGXI RADICAL DOOR
+2F3F      ; [.C0AE.0020.0004] # KANGXI RADICAL HAND
+1F210     ; [.C0AE.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-624B
+1F231     ; [.8C38.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-6253
+1F227     ; [.90D6.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-6295
+1F22F     ; [.B753.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-6307
+1F228     ; [.838E.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-6355
+2F40      ; [.B6EB.0020.0004] # KANGXI RADICAL BRANCH
+2F41      ; [.85EC.0020.0004] # KANGXI RADICAL RAP
+2F42      ; [.D38D.0020.0004] # KANGXI RADICAL SCRIPT
+3246      ; [.D38D.0020.0006] # CIRCLED IDEOGRAPH SCHOOL
+2F43      ; [.8CCF.0020.0004] # KANGXI RADICAL DIPPER
+1F21B     ; [.9905.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-6599
+2F44      ; [.AA6F.0020.0004] # KANGXI RADICAL AXE
+1F21F     ; [.B4BC.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-65B0
+2F45      ; [.8AA0.0020.0004] # KANGXI RADICAL SQUARE
+2F46      ; [.D18A.0020.0004] # KANGXI RADICAL NOT
+2F47      ; [.C2A4.0020.0004] # KANGXI RADICAL SUN
+3290      ; [.C2A4.0020.0006] # CIRCLED IDEOGRAPH SUN
+337E      ; [.892B.0020.001C][.B773.0020.001C] # SQUARE ERA NAME MEIZI
+1F219     ; [.D15D.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-6620
+337C      ; [.B884.0020.001C][.A237.0020.001C] # SQUARE ERA NAME SYOUWA
+2F48      ; [.D533.0020.0004] # KANGXI RADICAL SAY
+2F49      ; [.D53C.0020.0004] # KANGXI RADICAL MOON
+328A      ; [.D53C.0020.0006] # CIRCLED IDEOGRAPH MOON
+1F237     ; [.D53C.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-6708
+3292      ; [.CEC7.0020.0006] # CIRCLED IDEOGRAPH HAVE
+1F236     ; [.CEC7.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-6709
+2F4A      ; [.895F.0020.0004] # KANGXI RADICAL TREE
+328D      ; [.895F.0020.0006] # CIRCLED IDEOGRAPH WOOD
+3291      ; [.BA36.0020.0006] # CIRCLED IDEOGRAPH STOCK
+337F      ; [.BA36.0020.001C][.BFBF.0020.001C][.A51A.0020.001C][.C05E.0020.001C] # SQUARE CORPORATION
+2F4B      ; [.AF68.0020.0004] # KANGXI RADICAL LACK
+2F4C      ; [.B741.0020.0004] # KANGXI RADICAL STOP
+32A3      ; [.BA1E.0020.0006] # CIRCLED IDEOGRAPH CORRECT
+2F4D      ; [.8C53.0020.0004] # KANGXI RADICAL DEATH
+2F4E      ; [.C1D9.0020.0004] # KANGXI RADICAL WEAPON
+2F4F      ; [.D18B.0020.0004] # KANGXI RADICAL DO NOT
+2E9F      ; [.894D.0020.0004] # CJK RADICAL MOTHER
+2F50      ; [.81FD.0020.0004] # KANGXI RADICAL COMPARE
+2F51      ; [.8727.0020.0004] # KANGXI RADICAL FUR
+2F52      ; [.BFB6.0020.0004] # KANGXI RADICAL CLAN
+2F53      ; [.ADDA.0020.0004] # KANGXI RADICAL STEAM
+2F54      ; [.C26E.0020.0004] # KANGXI RADICAL WATER
+328C      ; [.C26E.0020.0006] # CIRCLED IDEOGRAPH WATER
+329F      ; [.BA84.0020.0006] # CIRCLED IDEOGRAPH ATTENTION
+1F235     ; [.8793.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-6E80
+1F226     ; [.CF75.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-6F14
+2F55      ; [.A48C.0020.0004] # KANGXI RADICAL FIRE
+328B      ; [.A48C.0020.0006] # CIRCLED IDEOGRAPH FIRE
+1F21A     ; [.D19A.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-7121
+2F56      ; [.B88D.0020.0004] # KANGXI RADICAL CLAW
+2F57      ; [.8BC3.0020.0004] # KANGXI RADICAL FATHER
+2F58      ; [.CE21.0020.0004] # KANGXI RADICAL DOUBLE X
+2F59      ; [.8453.0020.0004] # KANGXI RADICAL HALF TREE TRUNK
+2F5A      ; [.8593.0020.0004] # KANGXI RADICAL SLICE
+2F5B      ; [.CD78.0020.0004] # KANGXI RADICAL FANG
+2F5C      ; [.9526.0020.0004] # KANGXI RADICAL COW
+3295      ; [.9060.0020.0006] # CIRCLED IDEOGRAPH SPECIAL
+2F5D      ; [.B123.0020.0004] # KANGXI RADICAL DOG
+2F5E      ; [.B63A.0020.0004] # KANGXI RADICAL PROFOUND
+2F5F      ; [.D4A7.0020.0004] # KANGXI RADICAL JADE
+2F60      ; [.9E4D.0020.0004] # KANGXI RADICAL MELON
+2F61      ; [.D216.0020.0004] # KANGXI RADICAL TILE
+2F62      ; [.9D4E.0020.0004] # KANGXI RADICAL SWEET
+2F63      ; [.C1A6.0020.0004] # KANGXI RADICAL LIFE
+1F222     ; [.C1A6.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-751F
+2F64      ; [.D68B.0020.0004] # KANGXI RADICAL USE
+2F65      ; [.9245.0020.0004] # KANGXI RADICAL FIELD
+3199      ; [.A814.0020.0014] # IDEOGRAPHIC ANNOTATION FIRST MARK
+1F238     ; [.C125.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-7533
+329A      ; [.9459.0020.0006] # CIRCLED IDEOGRAPH MALE
+2F66      ; [.852E.0020.0004] # KANGXI RADICAL BOLT OF CLOTH
+2F67      ; [.93F9.0020.0004] # KANGXI RADICAL SICKNESS
+2F68      ; [.8046.0020.0004] # KANGXI RADICAL DOTTED TENT
+2F69      ; [.80BD.0020.0004] # KANGXI RADICAL WHITE
+2F6A      ; [.8504.0020.0004] # KANGXI RADICAL SKIN
+2F6B      ; [.890B.0020.0004] # KANGXI RADICAL DISH
+32AC      ; [.A9B3.0020.0006] # CIRCLED IDEOGRAPH SUPERVISE
+2F6C      ; [.8962.0020.0004] # KANGXI RADICAL EYE
+2F6D      ; [.8728.0020.0004] # KANGXI RADICAL SPEAR
+2F6E      ; [.BFA9.0020.0004] # KANGXI RADICAL ARROW
+2F6F      ; [.BF87.0020.0004] # KANGXI RADICAL STONE
+2F70      ; [.BFBD.0020.0004] # KANGXI RADICAL SPIRIT
+3293      ; [.C05E.0020.0006] # CIRCLED IDEOGRAPH SOCIETY
+3297      ; [.BA90.0020.0006] # CIRCLED IDEOGRAPH CONGRATULATION
+1F232     ; [.AAB2.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-7981
+2F71      ; [.C2BD.0020.0004] # KANGXI RADICAL TRACK
+2F72      ; [.A231.0020.0004] # KANGXI RADICAL GRAIN
+3299      ; [.8871.0020.0006] # CIRCLED IDEOGRAPH SECRET
+2F73      ; [.B5ED.0020.0004] # KANGXI RADICAL CAVE
+1F233     ; [.A211.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-7A7A
+2F74      ; [.9808.0020.0004] # KANGXI RADICAL STAND
+2F75      ; [.BA53.0020.0004] # KANGXI RADICAL BAMBOO
+3247      ; [.BA0D.0020.0006] # CIRCLED IDEOGRAPH KOTO
+2F76      ; [.8856.0020.0004] # KANGXI RADICAL RICE
+2F77      ; [.8868.0020.0004] # KANGXI RADICAL SILK
+1F221     ; [.BB7F.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-7D42
+2F78      ; [.89F6.0020.0004] # KANGXI RADICAL JAR
+2F79      ; [.D3D1.0020.0004] # KANGXI RADICAL NET
+2F7A      ; [.D08F.0020.0004] # KANGXI RADICAL SHEEP
+2F7B      ; [.D47D.0020.0004] # KANGXI RADICAL FEATHER
+2F7C      ; [.96B7.0020.0004] # KANGXI RADICAL OLD
+2F7D      ; [.CBA4.0020.0004] # KANGXI RADICAL AND
+2F7E      ; [.966B.0020.0004] # KANGXI RADICAL PLOW
+2F7F      ; [.CBBF.0020.0004] # KANGXI RADICAL EAR
+2F80      ; [.D4AA.0020.0004] # KANGXI RADICAL BRUSH
+2F81      ; [.C2D4.0020.0004] # KANGXI RADICAL MEAT
+2F82      ; [.BD5B.0020.0004] # KANGXI RADICAL MINISTER
+2F83      ; [.C457.0020.0004] # KANGXI RADICAL SELF
+2F84      ; [.B766.0020.0004] # KANGXI RADICAL ARRIVE
+2F85      ; [.A96D.0020.0004] # KANGXI RADICAL MORTAR
+2F86      ; [.C053.0020.0004] # KANGXI RADICAL TONGUE
+2F87      ; [.BEE4.0020.0004] # KANGXI RADICAL OPPOSE
+2F88      ; [.B8B0.0020.0004] # KANGXI RADICAL BOAT
+2F89      ; [.9D94.0020.0004] # KANGXI RADICAL STOPPING
+2F8A      ; [.C870.0020.0004] # KANGXI RADICAL COLOR
+2F8B      ; [.C6C2.0020.0004] # KANGXI RADICAL GRASS
+2F8C      ; [.A3B4.0020.0004] # KANGXI RADICAL TIGER
+2F8D      ; [.BF4A.0020.0004] # KANGXI RADICAL INSECT
+2F8E      ; [.B604.0020.0004] # KANGXI RADICAL BLOOD
+2F8F      ; [.B543.0020.0004] # KANGXI RADICAL WALK ENCLOSURE
+2F90      ; [.CBE0.0020.0004] # KANGXI RADICAL CLOTHES
+2F91      ; [.CD9C.0020.0004] # KANGXI RADICAL WEST
+2F92      ; [.AA1C.0020.0004] # KANGXI RADICAL SEE
+2F93      ; [.A8EB.0020.0004] # KANGXI RADICAL HORN
+1F216     ; [.A898.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-89E3
+2F94      ; [.CF21.0020.0004] # KANGXI RADICAL SPEECH
+2F95      ; [.9E07.0020.0004] # KANGXI RADICAL VALLEY
+2F96      ; [.8CD0.0020.0004] # KANGXI RADICAL BEAN
+2F97      ; [.BFAB.0020.0004] # KANGXI RADICAL PIG
+2F98      ; [.B76C.0020.0004] # KANGXI RADICAL BADGER
+2F99      ; [.80EB.0020.0004] # KANGXI RADICAL SHELL
+3296      ; [.C69F.0020.0006] # CIRCLED IDEOGRAPH FINANCIAL
+1F223     ; [.8A4B.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-8CA9
+32AE      ; [.C421.0020.0006] # CIRCLED IDEOGRAPH RESOURCE
+2F9A      ; [.BBFE.0020.0004] # KANGXI RADICAL RED
+2F9B      ; [.C50C.0020.0004] # KANGXI RADICAL RUN
+1F230     ; [.C50C.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-8D70
+2F9C      ; [.C571.0020.0004] # KANGXI RADICAL FOOT
+2F9D      ; [.C129.0020.0004] # KANGXI RADICAL BODY
+2F9E      ; [.BC58.0020.0004] # KANGXI RADICAL CART
+2F9F      ; [.B4AE.0020.0004] # KANGXI RADICAL BITTER
+2FA0      ; [.BD5F.0020.0004] # KANGXI RADICAL MORNING
+2FA1      ; [.BEA0.0020.0004] # KANGXI RADICAL WALK
+1F22B     ; [.CEBC.0020.001C] # SQUARED CJK UNIFIED IDEOGRAPH-904A
+329C      ; [.BFFC.0020.0006] # CIRCLED IDEOGRAPH SUITABLE
+2FA2      ; [.CC9C.0020.0004] # KANGXI RADICAL CITY
+2FA3      ; [.CECA.0020.0004] # KANGXI RADICAL WINE
+2FA4      ; [.8308.0020.0004] # KANGXI RADICAL DISTINGUISH
+2FA5      ; [.97EB.0020.0004] # KANGXI RADICAL VILLAGE
+2FA6      ; [.AA72.0020.0004] # KANGXI RADICAL GOLD
+328E      ; [.AA72.0020.0006] # CIRCLED IDEOGRAPH METAL
+2FA7      ; [.B9D1.0020.0004] # KANGXI RADICAL LONG
+2FA8      ; [.87B7.0020.0004] # KANGXI RADICAL GATE
+2FA9      ; [.8BCB.0020.0004] # KANGXI RADICAL MOUND
+2FAA      ; [.9819.0020.0004] # KANGXI RADICAL SLAVE
+2FAB      ; [.BAFD.0020.0004] # KANGXI RADICAL SHORT TAILED BIRD
+2FAC      ; [.D47F.0020.0004] # KANGXI RADICAL RAIN
+2FAD      ; [.B01B.0020.0004] # KANGXI RADICAL BLUE
+2FAE      ; [.89A9.0020.0004] # KANGXI RADICAL WRONG
+2FAF      ; [.88EB.0020.0004] # KANGXI RADICAL FACE
+2FB0      ; [.9C8F.0020.0004] # KANGXI RADICAL LEATHER
+2FB1      ; [.D288.0020.0004] # KANGXI RADICAL TANNED LEATHER
+2FB2      ; [.A965.0020.0004] # KANGXI RADICAL LEEK
+2FB3      ; [.CFF8.0020.0004] # KANGXI RADICAL SOUND
+2FB4      ; [.CDDC.0020.0004] # KANGXI RADICAL LEAF
+32A0      ; [.B520.0020.0006] # CIRCLED IDEOGRAPH ITEM
+2FB5      ; [.8AD5.0020.0004] # KANGXI RADICAL WIND
+2FB6      ; [.89AA.0020.0004] # KANGXI RADICAL FLY
+2FB7      ; [.BF93.0020.0004] # KANGXI RADICAL EAT
+2FB8      ; [.C0B1.0020.0004] # KANGXI RADICAL HEAD
+2FB9      ; [.B4E1.0020.0004] # KANGXI RADICAL FRAGRANT
+2FBA      ; [.8637.0020.0004] # KANGXI RADICAL HORSE
+2FBB      ; [.9E10.0020.0004] # KANGXI RADICAL BONE
+2FBC      ; [.9CEC.0020.0004] # KANGXI RADICAL TALL
+2FBD      ; [.82AD.0020.0004] # KANGXI RADICAL HAIR
+2FBE      ; [.8CD4.0020.0004] # KANGXI RADICAL FIGHT
+2FBF      ; [.BDCE.0020.0004] # KANGXI RADICAL SACRIFICIAL WINE
+2FC0      ; [.9C94.0020.0004] # KANGXI RADICAL CAULDRON
+2FC1      ; [.9EF1.0020.0004] # KANGXI RADICAL GHOST
+2FC2      ; [.D436.0020.0004] # KANGXI RADICAL FISH
+2FC3      ; [.9519.0020.0004] # KANGXI RADICAL BIRD
+2FC4      ; [.9AD5.0020.0004] # KANGXI RADICAL SALT
+2FC5      ; [.9AFD.0020.0004] # KANGXI RADICAL DEER
+2FC6      ; [.86CC.0020.0004] # KANGXI RADICAL WHEAT
+2FC7      ; [.862D.0020.0004] # KANGXI RADICAL HEMP
+2FC8      ; [.A607.0020.0004] # KANGXI RADICAL YELLOW
+2FC9      ; [.C20C.0020.0004] # KANGXI RADICAL MILLET
+2FCA      ; [.A2AD.0020.0004] # KANGXI RADICAL BLACK
+2FCB      ; [.B762.0020.0004] # KANGXI RADICAL EMBROIDERY
+2FCC      ; [.88E4.0020.0004] # KANGXI RADICAL FROG
+2FCD      ; [.8ED2.0020.0004] # KANGXI RADICAL TRIPOD
+2FCE      ; [.9E1D.0020.0004] # KANGXI RADICAL DRUM
+2FCF      ; [.C210.0020.0004] # KANGXI RADICAL RAT
+2FD0      ; [.81FB.0020.0004] # KANGXI RADICAL NOSE
+2FD1      ; [.ADA1.0020.0004] # KANGXI RADICAL EVEN
+2FD2      ; [.BBF7.0020.0004] # KANGXI RADICAL TOOTH
+2FD3      ; [.9BE4.0020.0004] # KANGXI RADICAL DRAGON
+2FD4      ; [.9ED7.0020.0004] # KANGXI RADICAL TURTLE
+2EF3      ; [.9EB8.0020.0004] # CJK RADICAL C-SIMPLIFIED TURTLE
+2FD5      ; [.D560.0020.0004] # KANGXI RADICAL FLUTE
+F967      ; [.8392.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F967
+FA70      ; [.836F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA70
+F905      ; [.BEEB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F905
+2F801     ; [.D334.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F801
+F95E      ; [.8CEB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F95E
+2F800     ; [.980B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F800
+2F802     ; [.CC07.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F802
+F91B      ; [.9BA8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F91B
+F9BA      ; [.9615.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9BA
+F977      ; [.9A32.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F977
+F9FD      ; [.C151.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9FD
+2F819     ; [.834F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F819
+F9A8      ; [.9A9B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9A8
+2F804     ; [.94AF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F804
+FA73      ; [.B546.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA73
+F92D      ; [.9619.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F92D
+F9B5      ; [.9811.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9B5
+FA30      ; [.D1B4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA30
+2F805     ; [.D1B4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F805
+2F806     ; [.935A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F806
+F965      ; [.830C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F965
+2F807     ; [.8373.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F807
+F9D4      ; [.9BB2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9D4
+2F808     ; [.C477.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F808
+2F809     ; [.80FF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F809
+2F80B     ; [.B522.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F80B
+F9BB      ; [.98D4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9BB
+FA31      ; [.C90E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA31
+2F80A     ; [.C90E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F80A
+FA0C      ; [.D1CB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA0C
+FA74      ; [.BF37.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA74
+FA32      ; [.88D2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA32
+2F80E     ; [.88D2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F80E
+2F80F     ; [.92F0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F80F
+2F810     ; [.A627.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F810
+2F814     ; [.9422.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F814
+FA72      ; [.B0F4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA72
+F978      ; [.9A28.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F978
+F9D1      ; [.9953.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9D1
+2F811     ; [.ABF3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F811
+FA75      ; [.A7A9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA75
+2F815     ; [.C4C2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F815
+2F8D2     ; [.874F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8D2
+2F8D3     ; [.88DA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8D3
+2F817     ; [.C3F9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F817
+2F818     ; [.D571.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F818
+2F81A     ; [.8FE3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F81A
+FA71      ; [.A1F5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA71
+2F81B     ; [.A1F5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F81B
+F92E      ; [.9793.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F92E
+F979      ; [.9A18.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F979
+F955      ; [.9A51.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F955
+F954      ; [.99F8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F954
+FA15      ; [.B1BC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA15
+2F81D     ; [.AF59.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F81D
+2F81E     ; [.C305.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F81E
+FA00      ; [.AE24.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA00
+2F850     ; [.AE24.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F850
+F99C      ; [.98A1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F99C
+F9DD      ; [.980C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9DD
+F9FF      ; [.C66A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9FF
+2F820     ; [.A014.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F820
+2F821     ; [.9B64.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F821
+2F822     ; [.9C7B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F822
+2F823     ; [.BD2E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F823
+F9C7      ; [.9926.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9C7
+F98A      ; [.9804.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F98A
+F99D      ; [.98A2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F99D
+2F992     ; [.969D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F992
+FA76      ; [.D671.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA76
+2F825     ; [.D671.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F825
+FA33      ; [.88D5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA33
+2F826     ; [.88D5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F826
+F952      ; [.964C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F952
+F92F      ; [.96A5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F92F
+FA34      ; [.AFAD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA34
+2F827     ; [.AFAD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F827
+F97F      ; [.985C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F97F
+FA77      ; [.C096.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA77
+2F828     ; [.C096.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F828
+2F829     ; [.811B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F829
+2F82A     ; [.C7B7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F82A
+F963      ; [.80E5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F963
+2F82B     ; [.80E5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F82B
+F9EB      ; [.94CA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9EB
+2F82C     ; [.A518.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F82C
+FA35      ; [.80D7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA35
+2F82D     ; [.80D7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F82D
+2F82E     ; [.807E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F82E
+2F82F     ; [.A6FF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F82F
+F91C      ; [.9BA5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F91C
+2F830     ; [.A70A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F830
+2F831     ; [.B020.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F831
+2F832     ; [.B020.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F832
+2F833     ; [.B020.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F833
+F96B      ; [.C6D2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F96B
+2F836     ; [.A6FB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F836
+2F837     ; [.C8D2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F837
+F906      ; [.ABEE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F906
+2F839     ; [.A922.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F839
+2F83A     ; [.BBFA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F83A
+2F83B     ; [.CE13.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F83B
+F9DE      ; [.9809.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9DE
+F9ED      ; [.9A03.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9ED
+2F83D     ; [.B16A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F83D
+F980      ; [.9C24.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F980
+2F83E     ; [.BDFE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F83E
+2F83F     ; [.B8B3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F83F
+2F83C     ; [.B473.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F83C
+2F840     ; [.CA56.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F840
+F99E      ; [.CF9A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F99E
+2F841     ; [.8891.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F841
+2F842     ; [.9144.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F842
+2F843     ; [.ADCE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F843
+FA79      ; [.90B6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA79
+2F844     ; [.B415.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F844
+2F845     ; [.C100.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F845
+2F846     ; [.C100.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F846
+F90B      ; [.95E6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F90B
+FA7A      ; [.A52B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA7A
+2F847     ; [.A52B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F847
+FA36      ; [.A22D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA36
+FA78      ; [.A22D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA78
+2F848     ; [.BBB6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F848
+2F849     ; [.B7F6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F849
+FA0D      ; [.A422.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA0D
+2F84A     ; [.CE34.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F84A
+FA7B      ; [.D21D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA7B
+FA37      ; [.912C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA37
+2F84C     ; [.912C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F84C
+2F84E     ; [.A2BD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F84E
+FA38      ; [.ADFD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA38
+2F84F     ; [.847B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F84F
+F9A9      ; [.9A44.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9A9
+2F84B     ; [.92DB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F84B
+2F84D     ; [.92DC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F84D
+2F855     ; [.B548.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F855
+2F852     ; [.BE03.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F852
+2F853     ; [.B720.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F853
+2F854     ; [.92F2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F854
+2F857     ; [.8151.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F857
+2F856     ; [.C642.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F856
+FA39      ; [.85EA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA39
+FA10      ; [.BB92.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA10
+FA7C      ; [.BB92.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA7C
+F96C      ; [.C892.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F96C
+FA3A      ; [.86A0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA3A
+2F858     ; [.8E0D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F858
+FA7D      ; [.8A7A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA7D
+F94A      ; [.9679.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F94A
+F942      ; [.9C0B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F942
+2F851     ; [.BB63.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F851
+2F85A     ; [.86C6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F85A
+2F85B     ; [.A3DA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F85B
+2F85C     ; [.8AFA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F85C
+2F85D     ; [.8F35.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F85D
+2F85E     ; [.882A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F85E
+FA7E      ; [.CF5B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA7E
+F90C      ; [.9410.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F90C
+F909      ; [.ADE9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F909
+FA7F      ; [.8193.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA7F
+2F85F     ; [.C04A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F85F
+F981      ; [.95CC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F981
+2F865     ; [.8598.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F865
+2F862     ; [.A6AD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F862
+2F863     ; [.D42A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F863
+2F864     ; [.935B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F864
+FA80      ; [.8232.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA80
+2F866     ; [.8BDA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F866
+2F986     ; [.D15F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F986
+2F869     ; [.C2B1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F869
+FA81      ; [.C657.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA81
+2F86A     ; [.9741.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F86A
+2F86B     ; [.9741.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F86B
+FA04      ; [.B874.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA04
+2F86D     ; [.D575.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F86D
+2F86E     ; [.B7AB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F86E
+F95F      ; [.9570.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F95F
+F9AA      ; [.9570.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9AA
+2F86F     ; [.9570.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F86F
+F9BC      ; [.98DC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9BC
+2F870     ; [.8143.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F870
+2F872     ; [.C0B3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F872
+2F873     ; [.AAD5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F873
+2F875     ; [.CE9E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F875
+F9BD      ; [.9522.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9BD
+2F877     ; [.92CA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F877
+F94B      ; [.9C34.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F94B
+FA3B      ; [.C71D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA3B
+F9DF      ; [.9C36.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9DF
+FA3C      ; [.BC63.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA3C
+2F878     ; [.BC63.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F878
+2F87A     ; [.AEFF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F87A
+2F879     ; [.B3C8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F879
+F9D5      ; [.9BB6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9D5
+2F87C     ; [.CF66.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F87C
+F921      ; [.970A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F921
+2F87F     ; [.C416.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F87F
+2F87E     ; [.8E87.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F87E
+2F880     ; [.BD30.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F880
+2F9F4     ; [.B1BE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9F4
+F9AB      ; [.9A9A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9AB
+2F881     ; [.B68C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F881
+2F882     ; [.BC98.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F882
+2F884     ; [.B6C0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F884
+2F885     ; [.C26F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F885
+2F886     ; [.8758.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F886
+2F887     ; [.8A7B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F887
+F98E      ; [.9537.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F98E
+FA01      ; [.8F28.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA01
+2F88B     ; [.8372.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F88B
+2F88C     ; [.8233.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F88C
+2F88D     ; [.C22B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F88D
+F9A2      ; [.996E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9A2
+F928      ; [.9766.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F928
+2F88E     ; [.9766.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F88E
+FA82      ; [.CAF7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA82
+FA0B      ; [.A11E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA0B
+FA83      ; [.CCFF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA83
+F982      ; [.9AB9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F982
+2F890     ; [.9FBB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F890
+F943      ; [.95C8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F943
+2F894     ; [.9097.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F894
+2F895     ; [.9097.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F895
+2F874     ; [.8D4C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F874
+2F899     ; [.B544.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F899
+FA84      ; [.C6A8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA84
+2F89A     ; [.8E55.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F89A
+F9D8      ; [.9C41.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9D8
+2F89C     ; [.8FF3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F89C
+F966      ; [.8BDF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F966
+FA85      ; [.CE36.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA85
+2F89D     ; [.C2FD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F89D
+2F89E     ; [.B768.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F89E
+F9A3      ; [.9551.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9A3
+2F89F     ; [.A1E7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F89F
+F960      ; [.958F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F960
+F9AC      ; [.9965.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9AC
+FA6B      ; [.A524.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA6B
+2F8A0     ; [.D572.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8A0
+FA3D      ; [.A510.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA3D
+2F8A3     ; [.A510.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8A3
+2F8A5     ; [.8FBB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8A5
+FA86      ; [.D3D6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA86
+F9B9      ; [.CA70.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9B9
+FA88      ; [.D4DB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA88
+F9D9      ; [.9846.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9D9
+2F8A6     ; [.C64C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8A6
+2F8A7     ; [.A5FA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8A7
+2F8A9     ; [.A5FA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8A9
+FA87      ; [.C178.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA87
+2F8A8     ; [.C178.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8A8
+FA8A      ; [.CB23.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA8A
+FA3E      ; [.A03D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA3E
+2F8AA     ; [.96E1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8AA
+FA3F      ; [.C55C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA3F
+FA89      ; [.C55C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA89
+2F8AB     ; [.C55C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8AB
+F98F      ; [.997C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F98F
+2F8AD     ; [.8A96.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8AD
+2F8AE     ; [.C6EB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8AE
+2F8AC     ; [.B498.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8AC
+2F8AF     ; [.8803.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8AF
+FA40      ; [.BE2C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA40
+FA8B      ; [.BE2C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA8B
+2F8B0     ; [.BE2C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8B0
+F90D      ; [.9742.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F90D
+2F8B1     ; [.9742.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8B1
+F990      ; [.99C4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F990
+2F8B2     ; [.BDFC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8B2
+2F8B3     ; [.A802.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8B3
+F9D2      ; [.9B16.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9D2
+FA8C      ; [.8C7A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA8C
+2F8B4     ; [.A0E3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8B4
+2F8B5     ; [.814B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8B5
+F925      ; [.95DB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F925
+F95B      ; [.93DB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F95B
+FA02      ; [.9037.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA02
+2F8B6     ; [.801D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8B6
+2F8BA     ; [.8599.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8BA
+F973      ; [.C00F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F973
+2F8B9     ; [.D348.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8B9
+2F8B7     ; [.ACA2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8B7
+2F8BB     ; [.C05A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8BB
+F9A4      ; [.9540.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9A4
+2F8BC     ; [.C8AF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8BC
+F975      ; [.CA67.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F975
+2F8C1     ; [.CF63.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8C1
+FA8D      ; [.D43E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA8D
+2F8C0     ; [.CF39.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8C0
+2F8BD     ; [.A70F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8BD
+FA8E      ; [.C8BD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA8E
+2F8BF     ; [.AAB0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8BF
+FA8F      ; [.8365.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA8F
+2F8C3     ; [.865D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8C3
+2F8C6     ; [.A904.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8C6
+2F8C4     ; [.AB0A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8C4
+F991      ; [.9546.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F991
+2F8C5     ; [.A4F3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8C5
+F930      ; [.9ADE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F930
+FA41      ; [.8915.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA41
+2F8C8     ; [.8915.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8C8
+FA90      ; [.CAF2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA90
+2F8C9     ; [.AB74.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8C9
+F969      ; [.C23A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F969
+F9BE      ; [.9905.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9BE
+F983      ; [.9C2B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F983
+FA42      ; [.A775.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA42
+2F8CB     ; [.A789.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8CB
+F9E0      ; [.CCA3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E0
+2F8CD     ; [.AAA5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8CD
+FA12      ; [.B034.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA12
+FA91      ; [.B034.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA91
+F9C5      ; [.D5E6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9C5
+FA43      ; [.C20B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA43
+2F8CF     ; [.C20B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8CF
+2F8D5     ; [.AAB8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8D5
+FA06      ; [.8156.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA06
+F98B      ; [.9855.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F98B
+F901      ; [.9DDE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F901
+2F8CC     ; [.C1E5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8CC
+2F8D4     ; [.C5BD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8D4
+F929      ; [.9775.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F929
+FA92      ; [.9775.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA92
+2F8D8     ; [.9775.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8D8
+FA93      ; [.D3E7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA93
+2F8D9     ; [.D3E7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8D9
+2F8DA     ; [.C5F8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8DA
+F9E1      ; [.9897.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E1
+2F8DC     ; [.82A9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8DC
+FA94      ; [.B9DA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA94
+2F8DB     ; [.ADC7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8DB
+F9C8      ; [.BCDE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9C8
+2F8E0     ; [.A6A7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8E0
+F9F4      ; [.99CA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9F4
+F9C9      ; [.9944.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9C9
+2F8DF     ; [.9EAD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8DF
+F9DA      ; [.9826.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9DA
+2F8E5     ; [.8196.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8E5
+2F8E1     ; [.C902.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8E1
+F97A      ; [.9A19.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F97A
+FA44      ; [.86DF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA44
+2F8E2     ; [.86DF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8E2
+2F8E4     ; [.CAEF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8E4
+F9E2      ; [.979F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E2
+2F8E6     ; [.C417.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8E6
+2F8E8     ; [.B7F9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8E8
+2F8E9     ; [.CE3D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8E9
+2F8EA     ; [.9CE5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8EA
+F914      ; [.9610.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F914
+F95C      ; [.9610.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F95C
+F9BF      ; [.9610.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9BF
+F94C      ; [.96E3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F94C
+2F8EB     ; [.C052.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8EB
+F931      ; [.9AE5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F931
+2F8ED     ; [.B7D3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8ED
+F91D      ; [.9726.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F91D
+2F8EF     ; [.C667.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8EF
+2F8F1     ; [.B58D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8F1
+2F8F3     ; [.C9AB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8F3
+F98C      ; [.9856.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F98C
+FA95      ; [.8C53.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA95
+2F8F4     ; [.D380.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8F4
+F9A5      ; [.99BD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9A5
+F970      ; [.C025.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F970
+FA96      ; [.C025.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA96
+2F8F5     ; [.C025.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8F5
+2F8F6     ; [.AE8A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8F6
+2F8FA     ; [.8A3E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8FA
+2F8FE     ; [.AF01.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8FE
+F972      ; [.BD5D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F972
+2F8FC     ; [.CF25.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8FC
+F968      ; [.886C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F968
+2F8FD     ; [.8194.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8FD
+F9E3      ; [.9490.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E3
+2F8FF     ; [.D193.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8FF
+F915      ; [.9B72.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F915
+FA05      ; [.900E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA05
+2F907     ; [.85C8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F907
+2F900     ; [.83F9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F900
+F9CA      ; [.9912.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9CA
+FA97      ; [.9912.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA97
+2F902     ; [.9912.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F902
+2F903     ; [.A2D9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F903
+F92A      ; [.9781.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F92A
+FA45      ; [.A29A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA45
+2F901     ; [.A29A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F901
+2F904     ; [.AAA7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F904
+2F905     ; [.94E1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F905
+F9F5      ; [.99D1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9F5
+F94D      ; [.9688.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F94D
+F9D6      ; [.9BB8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9D6
+2F90E     ; [.CF08.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F90E
+FA46      ; [.BA70.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA46
+2F908     ; [.9DB6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F908
+2F909     ; [.CF0D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F909
+F9CB      ; [.990C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9CB
+F9EC      ; [.94CE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9EC
+2F90C     ; [.8E88.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F90C
+FA99      ; [.C419.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA99
+2F90B     ; [.C419.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F90B
+F904      ; [.A44F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F904
+FA98      ; [.D03B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA98
+F94E      ; [.96FC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F94E
+FA47      ; [.A368.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA47
+FA9A      ; [.A368.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA9A
+F992      ; [.9974.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F992
+2F90F     ; [.BCA0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F90F
+2F912     ; [.8A7C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F912
+F922      ; [.9751.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F922
+F984      ; [.9C51.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F984
+2F915     ; [.D142.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F915
+FA9B      ; [.AB83.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA9B
+2F914     ; [.AB83.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F914
+2F913     ; [.D563.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F913
+2F917     ; [.AF57.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F917
+2F835     ; [.A4D6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F835
+2F919     ; [.BB35.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F919
+2F918     ; [.C4B5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F918
+F9FB      ; [.B774.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9FB
+2F91A     ; [.9126.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F91A
+F99F      ; [.98B0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F99F
+F916      ; [.96C6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F916
+2F91C     ; [.8FAD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F91C
+F993      ; [.99B6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F993
+FA48      ; [.BA72.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA48
+FA9C      ; [.BA72.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA9C
+2F91E     ; [.C7CA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F91E
+F9C0      ; [.98E3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9C0
+F9EE      ; [.99E0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9EE
+F932      ; [.9AC1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F932
+F91E      ; [.9753.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F91E
+2F920     ; [.C7A8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F920
+FA49      ; [.B8AD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA49
+FA9E      ; [.AC81.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA9E
+2F921     ; [.AC81.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F921
+2F922     ; [.B809.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F922
+F946      ; [.969F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F946
+2F924     ; [.B19A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F924
+2F925     ; [.810B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F925
+FA9F      ; [.8A3C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA9F
+F9FA      ; [.BB66.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9FA
+F92B      ; [.975E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F92B
+FA16      ; [.BA3A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA16
+FAA0      ; [.BA3A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAA0
+F9A7      ; [.98C3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9A7
+2F928     ; [.9034.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F928
+F961      ; [.9C43.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F961
+F9DB      ; [.9C43.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9DB
+2F929     ; [.D3CA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F929
+2F92B     ; [.D544.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F92B
+F9AD      ; [.9A4F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9AD
+F917      ; [.9B76.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F917
+F9E4      ; [.97F2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E4
+F9CC      ; [.9914.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9CC
+FA4A      ; [.C58E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA4A
+2F92E     ; [.8C72.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F92E
+2F92F     ; [.D44E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F92F
+F9AE      ; [.D131.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9AE
+FAA1      ; [.B9AB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAA1
+2F930     ; [.B9AB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F930
+2F931     ; [.C979.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F931
+F994      ; [.999F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F994
+F9EF      ; [.99E1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9EF
+2F932     ; [.B15E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F932
+FAA2      ; [.C64D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAA2
+2F934     ; [.C397.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F934
+FAA3      ; [.A462.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAA3
+2F936     ; [.C4B7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F936
+F9CD      ; [.9915.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9CD
+F976      ; [.CA68.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F976
+F962      ; [.CCD0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F962
+2F938     ; [.CCD0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F938
+F9E5      ; [.983F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E5
+2F93A     ; [.D494.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F93A
+FAA4      ; [.9F2F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAA4
+FAA5      ; [.D382.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAA5
+F9C1      ; [.98E8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9C1
+F90E      ; [.9649.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F90E
+FA17      ; [.CCC7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA17
+FAA6      ; [.CCC7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAA6
+FAA7      ; [.C1CA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAA7
+F933      ; [.9AB5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F933
+FAA8      ; [.B71A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAA8
+2F940     ; [.B71A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F940
+F96D      ; [.C1C2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F96D
+2F945     ; [.B959.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F945
+2F946     ; [.B95A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F946
+2F947     ; [.B95A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F947
+FAAA      ; [.B869.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAAA
+FAA9      ; [.ACC5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAA9
+2F948     ; [.ACC5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F948
+2F94A     ; [.BD55.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F94A
+FA9D      ; [.AE77.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA9D
+2F94E     ; [.B54F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F94E
+F9CE      ; [.9918.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9CE
+F93B      ; [.9B0A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F93B
+2F94F     ; [.9B0A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F94F
+FA4B      ; [.80DF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA4B
+F947      ; [.9673.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F947
+FAAB      ; [.9259.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAAB
+2F950     ; [.9259.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F950
+F964      ; [.845F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F964
+F985      ; [.9878.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F985
+FA18      ; [.97EA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA18
+FA4C      ; [.C05E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA4C
+FA4E      ; [.AD73.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA4E
+FA4D      ; [.B757.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA4D
+FA4F      ; [.CEF0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA4F
+FA50      ; [.C583.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA50
+2F953     ; [.C583.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F953
+FA51      ; [.BA90.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA51
+FA19      ; [.C153.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA19
+FA1A      ; [.B4FF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA1A
+F93C      ; [.9B0B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F93C
+FA52      ; [.A4A7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA52
+FA53      ; [.B971.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA53
+FA1B      ; [.8B8D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA1B
+2F956     ; [.8B8D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F956
+F9B6      ; [.97FC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9B6
+F995      ; [.9538.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F995
+2F957     ; [.C201.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F957
+F956      ; [.978F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F956
+FA54      ; [.9E24.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA54
+2F959     ; [.9E24.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F959
+2F95A     ; [.A79C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F95A
+2F95B     ; [.D3B2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F95B
+FA55      ; [.92B6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA55
+FAAC      ; [.9231.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAAC
+F9F7      ; [.9808.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9F7
+2F95F     ; [.85BC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F95F
+F9F8      ; [.9833.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9F8
+FA56      ; [.A87C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA56
+FAAD      ; [.A87C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAAD
+2F962     ; [.BB3E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F962
+2F963     ; [.BA5F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F963
+F9A6      ; [.9992.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9A6
+F944      ; [.9BF8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F944
+FAAE      ; [.9686.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAAE
+F9F9      ; [.9834.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9F9
+FA1D      ; [.AB32.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA1D
+2F966     ; [.8114.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F966
+FA03      ; [.915F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA03
+2F969     ; [.C8EE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F969
+F97B      ; [.9A24.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F97B
+2F968     ; [.AB10.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F968
+2F96A     ; [.A778.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F96A
+F9CF      ; [.952E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9CF
+F96A      ; [.C970.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F96A
+F94F      ; [.9689.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F94F
+FAAF      ; [.90A1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAAF
+2F96C     ; [.81D3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F96C
+F93D      ; [.9C4A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F93D
+F957      ; [.9A73.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F957
+2F96E     ; [.C427.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F96E
+F996      ; [.99BA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F996
+FA57      ; [.99BA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA57
+FAB0      ; [.99BA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAB0
+2F96F     ; [.C61F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F96F
+FA58      ; [.AAC3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA58
+F950      ; [.9C3C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F950
+FA59      ; [.8A28.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA59
+2F970     ; [.C8A7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F970
+FAB1      ; [.85D7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAB1
+FA5A      ; [.C20E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA5A
+F9E6      ; [.97C3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E6
+2F976     ; [.BCA2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F976
+F90F      ; [.9B52.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F90F
+2F978     ; [.D0D3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F978
+F9AF      ; [.9A62.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9AF
+FA1E      ; [.D47D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA1E
+2F979     ; [.CB06.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F979
+F934      ; [.96B7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F934
+FA5B      ; [.B856.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA5B
+FAB2      ; [.B856.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAB2
+2F97A     ; [.B856.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F97A
+F9B0      ; [.9A64.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9B0
+2F97D     ; [.85BA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F97D
+F997      ; [.9989.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F997
+2F97F     ; [.C7D5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F97F
+F945      ; [.9BF9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F945
+F953      ; [.9600.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F953
+2F8D6     ; [.93E7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8D6
+2F982     ; [.D4B0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F982
+2F983     ; [.C780.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F983
+2F985     ; [.851D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F985
+F926      ; [.95F4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F926
+F9F6      ; [.99E7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9F6
+FA5C      ; [.BCE6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA5C
+2F893     ; [.D42F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F893
+2F98B     ; [.D42F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F98B
+2F98C     ; [.B23F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F98C
+FA6D      ; [.9F3F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA6D
+F97C      ; [.9A16.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F97C
+FA5D      ; [.C6CB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA5D
+FA5E      ; [.C6CB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA5E
+2F990     ; [.D4AD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F990
+2F98F     ; [.ADCA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F98F
+2F991     ; [.B6F7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F991
+2F993     ; [.A43F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F993
+2F994     ; [.8AA5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F994
+2F995     ; [.CD7E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F995
+F974      ; [.C386.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F974
+2F998     ; [.C386.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F998
+2F996     ; [.A0F5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F996
+2F999     ; [.BC82.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F999
+2F99C     ; [.D198.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F99C
+F9FE      ; [.BC3C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9FE
+FAB3      ; [.A5F7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAB3
+2F9A0     ; [.85CF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9A0
+2F99A     ; [.C3D3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F99A
+2F99B     ; [.A86D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F99B
+2F99D     ; [.87E9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F99D
+F93E      ; [.9B03.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F93E
+2F9A1     ; [.ABC4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9A1
+2F9A2     ; [.ACE3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9A2
+2F9A3     ; [.C6B0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9A3
+2F99E     ; [.8DE0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F99E
+FAB4      ; [.A44D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAB4
+F958      ; [.9A69.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F958
+F918      ; [.9B7C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F918
+F96E      ; [.CDE9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F96E
+FA5F      ; [.B86A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA5F
+2F99F     ; [.B86A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F99F
+F999      ; [.9980.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F999
+2F9A8     ; [.85DC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9A8
+2F9A9     ; [.AA97.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9A9
+F9C2      ; [.98FD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9C2
+2F9AA     ; [.C74F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9AA
+2F9AC     ; [.C399.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9AC
+F923      ; [.971B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F923
+F9F0      ; [.9A11.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9F0
+F935      ; [.9AC4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F935
+FA20      ; [.AEF5.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA20
+F91F      ; [.9728.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F91F
+F910      ; [.9B5D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F910
+2F9B3     ; [.95D6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9B3
+F936      ; [.9AD8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F936
+2F9B4     ; [.9AD8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9B4
+2F9B5     ; [.A14D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9B5
+2F9B6     ; [.B256.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9B6
+2F9B8     ; [.AF15.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9B8
+2F9B7     ; [.BBB2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9B7
+2F9BA     ; [.85D9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9BA
+2F9B9     ; [.D57F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9B9
+2F9BC     ; [.8E3B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9BC
+2F9BD     ; [.BA44.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9BD
+FAB5      ; [.D5EE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAB5
+2F9BB     ; [.D5EE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9BB
+2F9BE     ; [.C674.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9BE
+F911      ; [.9B51.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F911
+2F9C0     ; [.9EFE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9C0
+2F9C1     ; [.B510.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9C1
+F927      ; [.95F9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F927
+FA08      ; [.B543.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA08
+2F9C3     ; [.BB4D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9C3
+2F9C4     ; [.CBE0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9C4
+F9A0      ; [.98B8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9A0
+F9E7      ; [.97F6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E7
+2F9C6     ; [.9919.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9C6
+2F9C7     ; [.C276.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9C7
+F9E8      ; [.989C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E8
+F912      ; [.9B67.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F912
+2F9C9     ; [.CF76.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9C9
+FA60      ; [.A282.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA60
+FAB6      ; [.B011.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAB6
+F924      ; [.9724.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F924
+FAB7      ; [.8BFE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAB7
+FA0A      ; [.AA1C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA0A
+FA61      ; [.BFE1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA61
+FAB8      ; [.BFE1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAB8
+2F9CF     ; [.BE22.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9CF
+F96F      ; [.C24F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F96F
+F9A1      ; [.C24F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9A1
+FAB9      ; [.8E75.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAB9
+FABB      ; [.B047.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FABB
+F97D      ; [.9A3C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F97D
+F941      ; [.9BCB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F941
+FABE      ; [.D502.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FABE
+2F9D0     ; [.D502.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9D0
+FA22      ; [.BA48.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA22
+FABA      ; [.BA48.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FABA
+F95D      ; [.95A4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F95D
+FABD      ; [.95A4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FABD
+FA62      ; [.CDF9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA62
+FABC      ; [.CDF9.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FABC
+FA63      ; [.AA9A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA63
+FABF      ; [.AA9A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FABF
+F9FC      ; [.C017.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9FC
+F95A      ; [.8F10.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F95A
+FAC0      ; [.831E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAC0
+2F9D1     ; [.831E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9D1
+F900      ; [.ADCC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F900
+2F9D2     ; [.BFAB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9D2
+2F9D4     ; [.9F4B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9D4
+2F9D5     ; [.8245.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9D5
+F948      ; [.9B0D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F948
+F903      ; [.A822.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F903
+FA64      ; [.8331.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA64
+FA65      ; [.C56B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA65
+FAC1      ; [.C56B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAC1
+2F9D6     ; [.9D8F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9D6
+2F9D7     ; [.ADCD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9D7
+2F9DB     ; [.A9FA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9DB
+2F9DA     ; [.8024.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9DA
+F937      ; [.9B0E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F937
+2F9DC     ; [.8589.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9DC
+F902      ; [.BC58.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F902
+2F9DE     ; [.C321.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9DE
+F998      ; [.9549.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F998
+F9D7      ; [.9BC2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9D7
+FAC2      ; [.C1FB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAC2
+2F9DF     ; [.C1FB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9DF
+FA07      ; [.8B97.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA07
+F98D      ; [.988A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F98D
+2F98D     ; [.C64B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F98D
+F971      ; [.BD5F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F971
+FA66      ; [.BE9F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA66
+F99A      ; [.996B.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F99A
+FA25      ; [.CCEA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA25
+FA67      ; [.CCEA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA67
+FAC3      ; [.BBE0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAC3
+F9C3      ; [.98E6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9C3
+F913      ; [.9B5E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F913
+2F9E2     ; [.ADC4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9E2
+F92C      ; [.975C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F92C
+FA2E      ; [.975F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA2E
+2F9E3     ; [.85CC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9E3
+FA26      ; [.8CC2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA26
+2F9E4     ; [.C423.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9E4
+2F9E6     ; [.BC9D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9E6
+F919      ; [.96C8.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F919
+FAC4      ; [.C8CB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAC4
+F9B7      ; [.97FF.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9B7
+F9E9      ; [.97EB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9E9
+F97E      ; [.9A3A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F97E
+F90A      ; [.AA72.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F90A
+F9B1      ; [.9A6E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9B1
+2F9E7     ; [.8086.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9E7
+FAC5      ; [.B553.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAC5
+2F9EA     ; [.8369.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9EA
+2F9E8     ; [.B62C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9E8
+2F9E9     ; [.A455.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9E9
+F93F      ; [.9B23.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F93F
+F99B      ; [.99BE.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F99B
+2F9EB     ; [.B013.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9EB
+2F9EC     ; [.C516.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9EC
+2F9EE     ; [.A032.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9EE
+F986      ; [.9C1F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F986
+2F9F0     ; [.C083.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9F0
+F9C6      ; [.C3B3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9C6
+F951      ; [.96FA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F951
+FA09      ; [.AB03.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA09
+F959      ; [.9A68.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F959
+F9D3      ; [.9AFC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9D3
+FAC6      ; [.BA71.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAC6
+F9DC      ; [.9BDC.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9DC
+F9F1      ; [.99DD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9F1
+FA2F      ; [.9859.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA2F
+F9B8      ; [.985F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9B8
+2F9F3     ; [.AF18.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9F3
+F9EA      ; [.97D0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9EA
+FA68      ; [.9467.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA68
+FAC7      ; [.9467.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAC7
+F9B2      ; [.9A70.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9B2
+F949      ; [.964D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F949
+2F9F5     ; [.D625.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9F5
+F938      ; [.9B37.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F938
+F9B3      ; [.9A8D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9B3
+FA1C      ; [.AB77.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA1C
+FAC8      ; [.AB77.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAC8
+FAC9      ; [.80D4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAC9
+2F9FA     ; [.8286.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9FA
+FA69      ; [.B512.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA69
+FACA      ; [.B512.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FACA
+FACB      ; [.CA47.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FACB
+2F9FE     ; [.CA47.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9FE
+2F9FF     ; [.CA47.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F9FF
+F9B4      ; [.9A99.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9B4
+2FA00     ; [.85BD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA00
+FA6A      ; [.85A6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA6A
+FACC      ; [.85A6.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FACC
+F9D0      ; [.9693.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9D0
+2FA02     ; [.A6B2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA02
+FA2A      ; [.8A4D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA2A
+FA2B      ; [.C84E.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA2B
+FA2C      ; [.9F41.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA2C
+2FA04     ; [.CA8F.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA04
+2FA05     ; [.D5F2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA05
+2FA06     ; [.813C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA06
+F91A      ; [.9B82.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F91A
+2FA07     ; [.9361.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA07
+F987      ; [.97E7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F987
+FACD      ; [.B997.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FACD
+2FA0A     ; [.B997.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA0A
+F939      ; [.9ADD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F939
+2FA0B     ; [.A7C3.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA0B
+F9F2      ; [.99F1.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9F2
+2FA0C     ; [.A9BB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA0C
+2FA0F     ; [.8528.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA0F
+FA2D      ; [.A28C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FA2D
+F93A      ; [.9B3A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F93A
+F920      ; [.9BA4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F920
+F940      ; [.9AFD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F940
+F988      ; [.9871.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F988
+F9F3      ; [.99F2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9F3
+2FA15     ; [.862D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA15
+F989      ; [.97C2.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F989
+2FA17     ; [.B762.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA17
+2FA18     ; [.88D4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA18
+2FA19     ; [.B715.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA19
+2FA1A     ; [.8885.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA1A
+2FA1B     ; [.8A85.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA1B
+2FA1C     ; [.81FB.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA1C
+FAD8      ; [.CA9A.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAD8
+F9C4      ; [.9BE4.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F9C4
+FAD9      ; [.8497.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAD9
+F907      ; [.9ED7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F907
+F908      ; [.9ED7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-F908
+FACE      ; [.9ED7.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FACE
+2F81F     ; [.8505.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F81F
+2F888     ; [.87AA.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F888
+2F8D0     ; [.D37C.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8D0
+2F8CE     ; [.D2E0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8CE
+2F8DE     ; [.A447.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8DE
+2F8EE     ; [.CC56.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8EE
+2F90A     ; [.9C08.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F90A
+2F92C     ; [.85CD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F92C
+2F92D     ; [.85CD.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F92D
+FAD4      ; [.A871.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-FAD4
+2F949     ; [.A871.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F949
+2F960     ; [.85E0.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F960
+2F96D     ; [.CE1D.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F96D
+2F8D7     ; [.9118.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2F8D7
+2FA0E     ; [.A746.0020.0002] # CJK COMPATIBILITY IDEOGRAPH-2FA0E
+ENTRY
+};
diff --git a/lib/5.24.1/Unicode/Collate/allkeys.txt b/lib/5.24.1/Unicode/Collate/allkeys.txt
new file mode 100644
index 00000000..6c8f02ed
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/allkeys.txt
@@ -0,0 +1,27997 @@
+# unidata-7.0.0.txt
+# Date: 2014-04-07, 19:21:08 GMT [KW]
+#
+# This file defines the Default Unicode Collation Element Table
+#   (DUCET) for the Unicode Collation Algorithm
+#
+# Copyright (c) 2001-2014 Unicode, Inc.
+# For terms of use, see http://www.unicode.org/terms_of_use.html
+#
+# See UTS #10, Unicode Collation Algorithm, for more information.
+#
+# Diagnostic weight ranges
+# Primary weight range:   0200..4CFC (19197)
+# Secondary weight range: 0020..010C (237)
+# Variant secondaries:    0108..010C (5)
+# Tertiary weight range:  0002..001F (30)
+#
+@version 7.0.0
+
+0000  ; [.0000.0000.0000] # NULL (in 6429)
+0001  ; [.0000.0000.0000] # START OF HEADING (in 6429)
+0002  ; [.0000.0000.0000] # START OF TEXT (in 6429)
+0003  ; [.0000.0000.0000] # END OF TEXT (in 6429)
+0004  ; [.0000.0000.0000] # END OF TRANSMISSION (in 6429)
+0005  ; [.0000.0000.0000] # ENQUIRY (in 6429)
+0006  ; [.0000.0000.0000] # ACKNOWLEDGE (in 6429)
+0007  ; [.0000.0000.0000] # BELL (in 6429)
+0008  ; [.0000.0000.0000] # BACKSPACE (in 6429)
+000E  ; [.0000.0000.0000] # SHIFT OUT (in 6429)
+000F  ; [.0000.0000.0000] # SHIFT IN (in 6429)
+0010  ; [.0000.0000.0000] # DATA LINK ESCAPE (in 6429)
+0011  ; [.0000.0000.0000] # DEVICE CONTROL ONE (in 6429)
+0012  ; [.0000.0000.0000] # DEVICE CONTROL TWO (in 6429)
+0013  ; [.0000.0000.0000] # DEVICE CONTROL THREE (in 6429)
+0014  ; [.0000.0000.0000] # DEVICE CONTROL FOUR (in 6429)
+0015  ; [.0000.0000.0000] # NEGATIVE ACKNOWLEDGE (in 6429)
+0016  ; [.0000.0000.0000] # SYNCHRONOUS IDLE (in 6429)
+0017  ; [.0000.0000.0000] # END OF TRANSMISSION BLOCK (in 6429)
+0018  ; [.0000.0000.0000] # CANCEL (in 6429)
+0019  ; [.0000.0000.0000] # END OF MEDIUM (in 6429)
+001A  ; [.0000.0000.0000] # SUBSTITUTE (in 6429)
+001B  ; [.0000.0000.0000] # ESCAPE (in 6429)
+001C  ; [.0000.0000.0000] # FILE SEPARATOR (in 6429)
+001D  ; [.0000.0000.0000] # GROUP SEPARATOR (in 6429)
+001E  ; [.0000.0000.0000] # RECORD SEPARATOR (in 6429)
+001F  ; [.0000.0000.0000] # UNIT SEPARATOR (in 6429)
+007F  ; [.0000.0000.0000] # DELETE (in 6429)
+0080  ; [.0000.0000.0000] # <control>
+0081  ; [.0000.0000.0000] # <control>
+0082  ; [.0000.0000.0000] # BREAK PERMITTED HERE (in 6429)
+0083  ; [.0000.0000.0000] # NO BREAK HERE (in 6429)
+0084  ; [.0000.0000.0000] # <control>
+0086  ; [.0000.0000.0000] # START OF SELECTED AREA (in 6429)
+0087  ; [.0000.0000.0000] # END OF SELECTED AREA (in 6429)
+0088  ; [.0000.0000.0000] # CHARACTER TABULATION SET (in 6429)
+0089  ; [.0000.0000.0000] # CHARACTER TABULATION WITH JUSTIFICATION (in 6429)
+008A  ; [.0000.0000.0000] # LINE TABULATION SET (in 6429)
+008B  ; [.0000.0000.0000] # PARTIAL LINE FORWARD (in 6429)
+008C  ; [.0000.0000.0000] # PARTIAL LINE BACKWARD (in 6429)
+008D  ; [.0000.0000.0000] # PARTIAL LINE FEED (in 6429)
+008E  ; [.0000.0000.0000] # SINGLE SHIFT TWO (in 6429)
+008F  ; [.0000.0000.0000] # SINGLE SHIFT THREE (in 6429)
+0090  ; [.0000.0000.0000] # DEVICE CONTROL STRING (in 6429)
+0091  ; [.0000.0000.0000] # PRIVATE USE ONE (in 6429)
+0092  ; [.0000.0000.0000] # PRIVATE USE TWO (in 6429)
+0093  ; [.0000.0000.0000] # SET TRANSMIT STATE (in 6429)
+0094  ; [.0000.0000.0000] # CANCEL CHARACTER (in 6429)
+0095  ; [.0000.0000.0000] # MESSAGE WAITING (in 6429)
+0096  ; [.0000.0000.0000] # START OF GUARDED AREA (in 6429)
+0097  ; [.0000.0000.0000] # END OF GUARDED AREA (in 6429)
+0098  ; [.0000.0000.0000] # START OF STRING (in 6429)
+0099  ; [.0000.0000.0000] # <control>
+009A  ; [.0000.0000.0000] # SINGLE CHARACTER INTRODUCER (in 6429)
+009B  ; [.0000.0000.0000] # CONTROL SEQUENCE INTRODUCER (in 6429)
+009C  ; [.0000.0000.0000] # STRING TERMINATOR (in 6429)
+009D  ; [.0000.0000.0000] # OPERATING SYSTEM COMMAND (in 6429)
+009E  ; [.0000.0000.0000] # PRIVACY MESSAGE (in 6429)
+009F  ; [.0000.0000.0000] # APPLICATION PROGRAM COMMAND (in 6429)
+00AD  ; [.0000.0000.0000] # SOFT HYPHEN
+061C  ; [.0000.0000.0000] # ARABIC LETTER MARK
+070F  ; [.0000.0000.0000] # SYRIAC ABBREVIATION MARK
+180B  ; [.0000.0000.0000] # MONGOLIAN FREE VARIATION SELECTOR ONE
+180C  ; [.0000.0000.0000] # MONGOLIAN FREE VARIATION SELECTOR TWO
+180D  ; [.0000.0000.0000] # MONGOLIAN FREE VARIATION SELECTOR THREE
+180E  ; [.0000.0000.0000] # MONGOLIAN VOWEL SEPARATOR
+200B  ; [.0000.0000.0000] # ZERO WIDTH SPACE
+200C  ; [.0000.0000.0000] # ZERO WIDTH NON-JOINER
+200D  ; [.0000.0000.0000] # ZERO WIDTH JOINER
+200E  ; [.0000.0000.0000] # LEFT-TO-RIGHT MARK
+200F  ; [.0000.0000.0000] # RIGHT-TO-LEFT MARK
+202A  ; [.0000.0000.0000] # LEFT-TO-RIGHT EMBEDDING
+202B  ; [.0000.0000.0000] # RIGHT-TO-LEFT EMBEDDING
+202C  ; [.0000.0000.0000] # POP DIRECTIONAL FORMATTING
+202D  ; [.0000.0000.0000] # LEFT-TO-RIGHT OVERRIDE
+202E  ; [.0000.0000.0000] # RIGHT-TO-LEFT OVERRIDE
+2060  ; [.0000.0000.0000] # WORD JOINER
+2066  ; [.0000.0000.0000] # LEFT-TO-RIGHT ISOLATE
+2067  ; [.0000.0000.0000] # RIGHT-TO-LEFT ISOLATE
+2068  ; [.0000.0000.0000] # FIRST STRONG ISOLATE
+2069  ; [.0000.0000.0000] # POP DIRECTIONAL ISOLATE
+206A  ; [.0000.0000.0000] # INHIBIT SYMMETRIC SWAPPING
+206B  ; [.0000.0000.0000] # ACTIVATE SYMMETRIC SWAPPING
+206C  ; [.0000.0000.0000] # INHIBIT ARABIC FORM SHAPING
+206D  ; [.0000.0000.0000] # ACTIVATE ARABIC FORM SHAPING
+206E  ; [.0000.0000.0000] # NATIONAL DIGIT SHAPES
+206F  ; [.0000.0000.0000] # NOMINAL DIGIT SHAPES
+FE00  ; [.0000.0000.0000] # VARIATION SELECTOR-1
+FE01  ; [.0000.0000.0000] # VARIATION SELECTOR-2
+FE02  ; [.0000.0000.0000] # VARIATION SELECTOR-3
+FE03  ; [.0000.0000.0000] # VARIATION SELECTOR-4
+FE04  ; [.0000.0000.0000] # VARIATION SELECTOR-5
+FE05  ; [.0000.0000.0000] # VARIATION SELECTOR-6
+FE06  ; [.0000.0000.0000] # VARIATION SELECTOR-7
+FE07  ; [.0000.0000.0000] # VARIATION SELECTOR-8
+FE08  ; [.0000.0000.0000] # VARIATION SELECTOR-9
+FE09  ; [.0000.0000.0000] # VARIATION SELECTOR-10
+FE0A  ; [.0000.0000.0000] # VARIATION SELECTOR-11
+FE0B  ; [.0000.0000.0000] # VARIATION SELECTOR-12
+FE0C  ; [.0000.0000.0000] # VARIATION SELECTOR-13
+FE0D  ; [.0000.0000.0000] # VARIATION SELECTOR-14
+FE0E  ; [.0000.0000.0000] # VARIATION SELECTOR-15
+FE0F  ; [.0000.0000.0000] # VARIATION SELECTOR-16
+FEFF  ; [.0000.0000.0000] # ZERO WIDTH NO-BREAK SPACE
+FFF9  ; [.0000.0000.0000] # INTERLINEAR ANNOTATION ANCHOR
+FFFA  ; [.0000.0000.0000] # INTERLINEAR ANNOTATION SEPARATOR
+FFFB  ; [.0000.0000.0000] # INTERLINEAR ANNOTATION TERMINATOR
+1BCA0 ; [.0000.0000.0000] # SHORTHAND FORMAT LETTER OVERLAP
+1BCA1 ; [.0000.0000.0000] # SHORTHAND FORMAT CONTINUING OVERLAP
+1BCA2 ; [.0000.0000.0000] # SHORTHAND FORMAT DOWN STEP
+1BCA3 ; [.0000.0000.0000] # SHORTHAND FORMAT UP STEP
+1D173 ; [.0000.0000.0000] # MUSICAL SYMBOL BEGIN BEAM
+1D174 ; [.0000.0000.0000] # MUSICAL SYMBOL END BEAM
+1D175 ; [.0000.0000.0000] # MUSICAL SYMBOL BEGIN TIE
+1D176 ; [.0000.0000.0000] # MUSICAL SYMBOL END TIE
+1D177 ; [.0000.0000.0000] # MUSICAL SYMBOL BEGIN SLUR
+1D178 ; [.0000.0000.0000] # MUSICAL SYMBOL END SLUR
+1D179 ; [.0000.0000.0000] # MUSICAL SYMBOL BEGIN PHRASE
+1D17A ; [.0000.0000.0000] # MUSICAL SYMBOL END PHRASE
+E0001 ; [.0000.0000.0000] # LANGUAGE TAG
+E0020 ; [.0000.0000.0000] # TAG SPACE
+E0021 ; [.0000.0000.0000] # TAG EXCLAMATION MARK
+E0022 ; [.0000.0000.0000] # TAG QUOTATION MARK
+E0023 ; [.0000.0000.0000] # TAG NUMBER SIGN
+E0024 ; [.0000.0000.0000] # TAG DOLLAR SIGN
+E0025 ; [.0000.0000.0000] # TAG PERCENT SIGN
+E0026 ; [.0000.0000.0000] # TAG AMPERSAND
+E0027 ; [.0000.0000.0000] # TAG APOSTROPHE
+E0028 ; [.0000.0000.0000] # TAG LEFT PARENTHESIS
+E0029 ; [.0000.0000.0000] # TAG RIGHT PARENTHESIS
+E002A ; [.0000.0000.0000] # TAG ASTERISK
+E002B ; [.0000.0000.0000] # TAG PLUS SIGN
+E002C ; [.0000.0000.0000] # TAG COMMA
+E002D ; [.0000.0000.0000] # TAG HYPHEN-MINUS
+E002E ; [.0000.0000.0000] # TAG FULL STOP
+E002F ; [.0000.0000.0000] # TAG SOLIDUS
+E0030 ; [.0000.0000.0000] # TAG DIGIT ZERO
+E0031 ; [.0000.0000.0000] # TAG DIGIT ONE
+E0032 ; [.0000.0000.0000] # TAG DIGIT TWO
+E0033 ; [.0000.0000.0000] # TAG DIGIT THREE
+E0034 ; [.0000.0000.0000] # TAG DIGIT FOUR
+E0035 ; [.0000.0000.0000] # TAG DIGIT FIVE
+E0036 ; [.0000.0000.0000] # TAG DIGIT SIX
+E0037 ; [.0000.0000.0000] # TAG DIGIT SEVEN
+E0038 ; [.0000.0000.0000] # TAG DIGIT EIGHT
+E0039 ; [.0000.0000.0000] # TAG DIGIT NINE
+E003A ; [.0000.0000.0000] # TAG COLON
+E003B ; [.0000.0000.0000] # TAG SEMICOLON
+E003C ; [.0000.0000.0000] # TAG LESS-THAN SIGN
+E003D ; [.0000.0000.0000] # TAG EQUALS SIGN
+E003E ; [.0000.0000.0000] # TAG GREATER-THAN SIGN
+E003F ; [.0000.0000.0000] # TAG QUESTION MARK
+E0040 ; [.0000.0000.0000] # TAG COMMERCIAL AT
+E0041 ; [.0000.0000.0000] # TAG LATIN CAPITAL LETTER A
+E0042 ; [.0000.0000.0000] # TAG LATIN CAPITAL LETTER B
+E0043 ; [.0000.0000.0000] # TAG LATIN CAPITAL LETTER C
+E0044 ; [.0000.0000.0000] # TAG LATIN CAPITAL LETTER D
+E0045 ; [.0000.0000.0000] # TAG LATIN CAPITAL LETTER E
+E0046 ; [.0000.0000.0000] # TAG LATIN CAPITAL LETTER F
+E0047 ; [.0000.0000.0000] # TAG LATIN CAPITAL LETTER G
+E0048 ; [.0000.0000.0000] # TAG LATIN CAPITAL LETTER H
+E0049 ; [.0000.0000.0000] # TAG LATIN CAPITAL LETTER I
+E004A ; [.0000.0000.0000] # TAG LATIN CAPITAL LETTER J
+E004B ; [.0000.0000.0000] # TAG LATIN CAPITAL LETTER K
+E004C ; [.0000.0000.0000] # TAG LATIN CAPITAL LETTER L
+E004D ; [.0000.0000.0000] # TAG LATIN CAPITAL LETTER M
+E004E ; [.0000.0000.0000] # TAG LATIN CAPITAL LETTER N
+E004F ; [.0000.0000.0000] # TAG LATIN CAPITAL LETTER O
+E0050 ; [.0000.0000.0000] # TAG LATIN CAPITAL LETTER P
+E0051 ; [.0000.0000.0000] # TAG LATIN CAPITAL LETTER Q
+E0052 ; [.0000.0000.0000] # TAG LATIN CAPITAL LETTER R
+E0053 ; [.0000.0000.0000] # TAG LATIN CAPITAL LETTER S
+E0054 ; [.0000.0000.0000] # TAG LATIN CAPITAL LETTER T
+E0055 ; [.0000.0000.0000] # TAG LATIN CAPITAL LETTER U
+E0056 ; [.0000.0000.0000] # TAG LATIN CAPITAL LETTER V
+E0057 ; [.0000.0000.0000] # TAG LATIN CAPITAL LETTER W
+E0058 ; [.0000.0000.0000] # TAG LATIN CAPITAL LETTER X
+E0059 ; [.0000.0000.0000] # TAG LATIN CAPITAL LETTER Y
+E005A ; [.0000.0000.0000] # TAG LATIN CAPITAL LETTER Z
+E005B ; [.0000.0000.0000] # TAG LEFT SQUARE BRACKET
+E005C ; [.0000.0000.0000] # TAG REVERSE SOLIDUS
+E005D ; [.0000.0000.0000] # TAG RIGHT SQUARE BRACKET
+E005E ; [.0000.0000.0000] # TAG CIRCUMFLEX ACCENT
+E005F ; [.0000.0000.0000] # TAG LOW LINE
+E0060 ; [.0000.0000.0000] # TAG GRAVE ACCENT
+E0061 ; [.0000.0000.0000] # TAG LATIN SMALL LETTER A
+E0062 ; [.0000.0000.0000] # TAG LATIN SMALL LETTER B
+E0063 ; [.0000.0000.0000] # TAG LATIN SMALL LETTER C
+E0064 ; [.0000.0000.0000] # TAG LATIN SMALL LETTER D
+E0065 ; [.0000.0000.0000] # TAG LATIN SMALL LETTER E
+E0066 ; [.0000.0000.0000] # TAG LATIN SMALL LETTER F
+E0067 ; [.0000.0000.0000] # TAG LATIN SMALL LETTER G
+E0068 ; [.0000.0000.0000] # TAG LATIN SMALL LETTER H
+E0069 ; [.0000.0000.0000] # TAG LATIN SMALL LETTER I
+E006A ; [.0000.0000.0000] # TAG LATIN SMALL LETTER J
+E006B ; [.0000.0000.0000] # TAG LATIN SMALL LETTER K
+E006C ; [.0000.0000.0000] # TAG LATIN SMALL LETTER L
+E006D ; [.0000.0000.0000] # TAG LATIN SMALL LETTER M
+E006E ; [.0000.0000.0000] # TAG LATIN SMALL LETTER N
+E006F ; [.0000.0000.0000] # TAG LATIN SMALL LETTER O
+E0070 ; [.0000.0000.0000] # TAG LATIN SMALL LETTER P
+E0071 ; [.0000.0000.0000] # TAG LATIN SMALL LETTER Q
+E0072 ; [.0000.0000.0000] # TAG LATIN SMALL LETTER R
+E0073 ; [.0000.0000.0000] # TAG LATIN SMALL LETTER S
+E0074 ; [.0000.0000.0000] # TAG LATIN SMALL LETTER T
+E0075 ; [.0000.0000.0000] # TAG LATIN SMALL LETTER U
+E0076 ; [.0000.0000.0000] # TAG LATIN SMALL LETTER V
+E0077 ; [.0000.0000.0000] # TAG LATIN SMALL LETTER W
+E0078 ; [.0000.0000.0000] # TAG LATIN SMALL LETTER X
+E0079 ; [.0000.0000.0000] # TAG LATIN SMALL LETTER Y
+E007A ; [.0000.0000.0000] # TAG LATIN SMALL LETTER Z
+E007B ; [.0000.0000.0000] # TAG LEFT CURLY BRACKET
+E007C ; [.0000.0000.0000] # TAG VERTICAL LINE
+E007D ; [.0000.0000.0000] # TAG RIGHT CURLY BRACKET
+E007E ; [.0000.0000.0000] # TAG TILDE
+E007F ; [.0000.0000.0000] # CANCEL TAG
+E0100 ; [.0000.0000.0000] # VARIATION SELECTOR-17
+E0101 ; [.0000.0000.0000] # VARIATION SELECTOR-18
+E0102 ; [.0000.0000.0000] # VARIATION SELECTOR-19
+E0103 ; [.0000.0000.0000] # VARIATION SELECTOR-20
+E0104 ; [.0000.0000.0000] # VARIATION SELECTOR-21
+E0105 ; [.0000.0000.0000] # VARIATION SELECTOR-22
+E0106 ; [.0000.0000.0000] # VARIATION SELECTOR-23
+E0107 ; [.0000.0000.0000] # VARIATION SELECTOR-24
+E0108 ; [.0000.0000.0000] # VARIATION SELECTOR-25
+E0109 ; [.0000.0000.0000] # VARIATION SELECTOR-26
+E010A ; [.0000.0000.0000] # VARIATION SELECTOR-27
+E010B ; [.0000.0000.0000] # VARIATION SELECTOR-28
+E010C ; [.0000.0000.0000] # VARIATION SELECTOR-29
+E010D ; [.0000.0000.0000] # VARIATION SELECTOR-30
+E010E ; [.0000.0000.0000] # VARIATION SELECTOR-31
+E010F ; [.0000.0000.0000] # VARIATION SELECTOR-32
+E0110 ; [.0000.0000.0000] # VARIATION SELECTOR-33
+E0111 ; [.0000.0000.0000] # VARIATION SELECTOR-34
+E0112 ; [.0000.0000.0000] # VARIATION SELECTOR-35
+E0113 ; [.0000.0000.0000] # VARIATION SELECTOR-36
+E0114 ; [.0000.0000.0000] # VARIATION SELECTOR-37
+E0115 ; [.0000.0000.0000] # VARIATION SELECTOR-38
+E0116 ; [.0000.0000.0000] # VARIATION SELECTOR-39
+E0117 ; [.0000.0000.0000] # VARIATION SELECTOR-40
+E0118 ; [.0000.0000.0000] # VARIATION SELECTOR-41
+E0119 ; [.0000.0000.0000] # VARIATION SELECTOR-42
+E011A ; [.0000.0000.0000] # VARIATION SELECTOR-43
+E011B ; [.0000.0000.0000] # VARIATION SELECTOR-44
+E011C ; [.0000.0000.0000] # VARIATION SELECTOR-45
+E011D ; [.0000.0000.0000] # VARIATION SELECTOR-46
+E011E ; [.0000.0000.0000] # VARIATION SELECTOR-47
+E011F ; [.0000.0000.0000] # VARIATION SELECTOR-48
+E0120 ; [.0000.0000.0000] # VARIATION SELECTOR-49
+E0121 ; [.0000.0000.0000] # VARIATION SELECTOR-50
+E0122 ; [.0000.0000.0000] # VARIATION SELECTOR-51
+E0123 ; [.0000.0000.0000] # VARIATION SELECTOR-52
+E0124 ; [.0000.0000.0000] # VARIATION SELECTOR-53
+E0125 ; [.0000.0000.0000] # VARIATION SELECTOR-54
+E0126 ; [.0000.0000.0000] # VARIATION SELECTOR-55
+E0127 ; [.0000.0000.0000] # VARIATION SELECTOR-56
+E0128 ; [.0000.0000.0000] # VARIATION SELECTOR-57
+E0129 ; [.0000.0000.0000] # VARIATION SELECTOR-58
+E012A ; [.0000.0000.0000] # VARIATION SELECTOR-59
+E012B ; [.0000.0000.0000] # VARIATION SELECTOR-60
+E012C ; [.0000.0000.0000] # VARIATION SELECTOR-61
+E012D ; [.0000.0000.0000] # VARIATION SELECTOR-62
+E012E ; [.0000.0000.0000] # VARIATION SELECTOR-63
+E012F ; [.0000.0000.0000] # VARIATION SELECTOR-64
+E0130 ; [.0000.0000.0000] # VARIATION SELECTOR-65
+E0131 ; [.0000.0000.0000] # VARIATION SELECTOR-66
+E0132 ; [.0000.0000.0000] # VARIATION SELECTOR-67
+E0133 ; [.0000.0000.0000] # VARIATION SELECTOR-68
+E0134 ; [.0000.0000.0000] # VARIATION SELECTOR-69
+E0135 ; [.0000.0000.0000] # VARIATION SELECTOR-70
+E0136 ; [.0000.0000.0000] # VARIATION SELECTOR-71
+E0137 ; [.0000.0000.0000] # VARIATION SELECTOR-72
+E0138 ; [.0000.0000.0000] # VARIATION SELECTOR-73
+E0139 ; [.0000.0000.0000] # VARIATION SELECTOR-74
+E013A ; [.0000.0000.0000] # VARIATION SELECTOR-75
+E013B ; [.0000.0000.0000] # VARIATION SELECTOR-76
+E013C ; [.0000.0000.0000] # VARIATION SELECTOR-77
+E013D ; [.0000.0000.0000] # VARIATION SELECTOR-78
+E013E ; [.0000.0000.0000] # VARIATION SELECTOR-79
+E013F ; [.0000.0000.0000] # VARIATION SELECTOR-80
+E0140 ; [.0000.0000.0000] # VARIATION SELECTOR-81
+E0141 ; [.0000.0000.0000] # VARIATION SELECTOR-82
+E0142 ; [.0000.0000.0000] # VARIATION SELECTOR-83
+E0143 ; [.0000.0000.0000] # VARIATION SELECTOR-84
+E0144 ; [.0000.0000.0000] # VARIATION SELECTOR-85
+E0145 ; [.0000.0000.0000] # VARIATION SELECTOR-86
+E0146 ; [.0000.0000.0000] # VARIATION SELECTOR-87
+E0147 ; [.0000.0000.0000] # VARIATION SELECTOR-88
+E0148 ; [.0000.0000.0000] # VARIATION SELECTOR-89
+E0149 ; [.0000.0000.0000] # VARIATION SELECTOR-90
+E014A ; [.0000.0000.0000] # VARIATION SELECTOR-91
+E014B ; [.0000.0000.0000] # VARIATION SELECTOR-92
+E014C ; [.0000.0000.0000] # VARIATION SELECTOR-93
+E014D ; [.0000.0000.0000] # VARIATION SELECTOR-94
+E014E ; [.0000.0000.0000] # VARIATION SELECTOR-95
+E014F ; [.0000.0000.0000] # VARIATION SELECTOR-96
+E0150 ; [.0000.0000.0000] # VARIATION SELECTOR-97
+E0151 ; [.0000.0000.0000] # VARIATION SELECTOR-98
+E0152 ; [.0000.0000.0000] # VARIATION SELECTOR-99
+E0153 ; [.0000.0000.0000] # VARIATION SELECTOR-100
+E0154 ; [.0000.0000.0000] # VARIATION SELECTOR-101
+E0155 ; [.0000.0000.0000] # VARIATION SELECTOR-102
+E0156 ; [.0000.0000.0000] # VARIATION SELECTOR-103
+E0157 ; [.0000.0000.0000] # VARIATION SELECTOR-104
+E0158 ; [.0000.0000.0000] # VARIATION SELECTOR-105
+E0159 ; [.0000.0000.0000] # VARIATION SELECTOR-106
+E015A ; [.0000.0000.0000] # VARIATION SELECTOR-107
+E015B ; [.0000.0000.0000] # VARIATION SELECTOR-108
+E015C ; [.0000.0000.0000] # VARIATION SELECTOR-109
+E015D ; [.0000.0000.0000] # VARIATION SELECTOR-110
+E015E ; [.0000.0000.0000] # VARIATION SELECTOR-111
+E015F ; [.0000.0000.0000] # VARIATION SELECTOR-112
+E0160 ; [.0000.0000.0000] # VARIATION SELECTOR-113
+E0161 ; [.0000.0000.0000] # VARIATION SELECTOR-114
+E0162 ; [.0000.0000.0000] # VARIATION SELECTOR-115
+E0163 ; [.0000.0000.0000] # VARIATION SELECTOR-116
+E0164 ; [.0000.0000.0000] # VARIATION SELECTOR-117
+E0165 ; [.0000.0000.0000] # VARIATION SELECTOR-118
+E0166 ; [.0000.0000.0000] # VARIATION SELECTOR-119
+E0167 ; [.0000.0000.0000] # VARIATION SELECTOR-120
+E0168 ; [.0000.0000.0000] # VARIATION SELECTOR-121
+E0169 ; [.0000.0000.0000] # VARIATION SELECTOR-122
+E016A ; [.0000.0000.0000] # VARIATION SELECTOR-123
+E016B ; [.0000.0000.0000] # VARIATION SELECTOR-124
+E016C ; [.0000.0000.0000] # VARIATION SELECTOR-125
+E016D ; [.0000.0000.0000] # VARIATION SELECTOR-126
+E016E ; [.0000.0000.0000] # VARIATION SELECTOR-127
+E016F ; [.0000.0000.0000] # VARIATION SELECTOR-128
+E0170 ; [.0000.0000.0000] # VARIATION SELECTOR-129
+E0171 ; [.0000.0000.0000] # VARIATION SELECTOR-130
+E0172 ; [.0000.0000.0000] # VARIATION SELECTOR-131
+E0173 ; [.0000.0000.0000] # VARIATION SELECTOR-132
+E0174 ; [.0000.0000.0000] # VARIATION SELECTOR-133
+E0175 ; [.0000.0000.0000] # VARIATION SELECTOR-134
+E0176 ; [.0000.0000.0000] # VARIATION SELECTOR-135
+E0177 ; [.0000.0000.0000] # VARIATION SELECTOR-136
+E0178 ; [.0000.0000.0000] # VARIATION SELECTOR-137
+E0179 ; [.0000.0000.0000] # VARIATION SELECTOR-138
+E017A ; [.0000.0000.0000] # VARIATION SELECTOR-139
+E017B ; [.0000.0000.0000] # VARIATION SELECTOR-140
+E017C ; [.0000.0000.0000] # VARIATION SELECTOR-141
+E017D ; [.0000.0000.0000] # VARIATION SELECTOR-142
+E017E ; [.0000.0000.0000] # VARIATION SELECTOR-143
+E017F ; [.0000.0000.0000] # VARIATION SELECTOR-144
+E0180 ; [.0000.0000.0000] # VARIATION SELECTOR-145
+E0181 ; [.0000.0000.0000] # VARIATION SELECTOR-146
+E0182 ; [.0000.0000.0000] # VARIATION SELECTOR-147
+E0183 ; [.0000.0000.0000] # VARIATION SELECTOR-148
+E0184 ; [.0000.0000.0000] # VARIATION SELECTOR-149
+E0185 ; [.0000.0000.0000] # VARIATION SELECTOR-150
+E0186 ; [.0000.0000.0000] # VARIATION SELECTOR-151
+E0187 ; [.0000.0000.0000] # VARIATION SELECTOR-152
+E0188 ; [.0000.0000.0000] # VARIATION SELECTOR-153
+E0189 ; [.0000.0000.0000] # VARIATION SELECTOR-154
+E018A ; [.0000.0000.0000] # VARIATION SELECTOR-155
+E018B ; [.0000.0000.0000] # VARIATION SELECTOR-156
+E018C ; [.0000.0000.0000] # VARIATION SELECTOR-157
+E018D ; [.0000.0000.0000] # VARIATION SELECTOR-158
+E018E ; [.0000.0000.0000] # VARIATION SELECTOR-159
+E018F ; [.0000.0000.0000] # VARIATION SELECTOR-160
+E0190 ; [.0000.0000.0000] # VARIATION SELECTOR-161
+E0191 ; [.0000.0000.0000] # VARIATION SELECTOR-162
+E0192 ; [.0000.0000.0000] # VARIATION SELECTOR-163
+E0193 ; [.0000.0000.0000] # VARIATION SELECTOR-164
+E0194 ; [.0000.0000.0000] # VARIATION SELECTOR-165
+E0195 ; [.0000.0000.0000] # VARIATION SELECTOR-166
+E0196 ; [.0000.0000.0000] # VARIATION SELECTOR-167
+E0197 ; [.0000.0000.0000] # VARIATION SELECTOR-168
+E0198 ; [.0000.0000.0000] # VARIATION SELECTOR-169
+E0199 ; [.0000.0000.0000] # VARIATION SELECTOR-170
+E019A ; [.0000.0000.0000] # VARIATION SELECTOR-171
+E019B ; [.0000.0000.0000] # VARIATION SELECTOR-172
+E019C ; [.0000.0000.0000] # VARIATION SELECTOR-173
+E019D ; [.0000.0000.0000] # VARIATION SELECTOR-174
+E019E ; [.0000.0000.0000] # VARIATION SELECTOR-175
+E019F ; [.0000.0000.0000] # VARIATION SELECTOR-176
+E01A0 ; [.0000.0000.0000] # VARIATION SELECTOR-177
+E01A1 ; [.0000.0000.0000] # VARIATION SELECTOR-178
+E01A2 ; [.0000.0000.0000] # VARIATION SELECTOR-179
+E01A3 ; [.0000.0000.0000] # VARIATION SELECTOR-180
+E01A4 ; [.0000.0000.0000] # VARIATION SELECTOR-181
+E01A5 ; [.0000.0000.0000] # VARIATION SELECTOR-182
+E01A6 ; [.0000.0000.0000] # VARIATION SELECTOR-183
+E01A7 ; [.0000.0000.0000] # VARIATION SELECTOR-184
+E01A8 ; [.0000.0000.0000] # VARIATION SELECTOR-185
+E01A9 ; [.0000.0000.0000] # VARIATION SELECTOR-186
+E01AA ; [.0000.0000.0000] # VARIATION SELECTOR-187
+E01AB ; [.0000.0000.0000] # VARIATION SELECTOR-188
+E01AC ; [.0000.0000.0000] # VARIATION SELECTOR-189
+E01AD ; [.0000.0000.0000] # VARIATION SELECTOR-190
+E01AE ; [.0000.0000.0000] # VARIATION SELECTOR-191
+E01AF ; [.0000.0000.0000] # VARIATION SELECTOR-192
+E01B0 ; [.0000.0000.0000] # VARIATION SELECTOR-193
+E01B1 ; [.0000.0000.0000] # VARIATION SELECTOR-194
+E01B2 ; [.0000.0000.0000] # VARIATION SELECTOR-195
+E01B3 ; [.0000.0000.0000] # VARIATION SELECTOR-196
+E01B4 ; [.0000.0000.0000] # VARIATION SELECTOR-197
+E01B5 ; [.0000.0000.0000] # VARIATION SELECTOR-198
+E01B6 ; [.0000.0000.0000] # VARIATION SELECTOR-199
+E01B7 ; [.0000.0000.0000] # VARIATION SELECTOR-200
+E01B8 ; [.0000.0000.0000] # VARIATION SELECTOR-201
+E01B9 ; [.0000.0000.0000] # VARIATION SELECTOR-202
+E01BA ; [.0000.0000.0000] # VARIATION SELECTOR-203
+E01BB ; [.0000.0000.0000] # VARIATION SELECTOR-204
+E01BC ; [.0000.0000.0000] # VARIATION SELECTOR-205
+E01BD ; [.0000.0000.0000] # VARIATION SELECTOR-206
+E01BE ; [.0000.0000.0000] # VARIATION SELECTOR-207
+E01BF ; [.0000.0000.0000] # VARIATION SELECTOR-208
+E01C0 ; [.0000.0000.0000] # VARIATION SELECTOR-209
+E01C1 ; [.0000.0000.0000] # VARIATION SELECTOR-210
+E01C2 ; [.0000.0000.0000] # VARIATION SELECTOR-211
+E01C3 ; [.0000.0000.0000] # VARIATION SELECTOR-212
+E01C4 ; [.0000.0000.0000] # VARIATION SELECTOR-213
+E01C5 ; [.0000.0000.0000] # VARIATION SELECTOR-214
+E01C6 ; [.0000.0000.0000] # VARIATION SELECTOR-215
+E01C7 ; [.0000.0000.0000] # VARIATION SELECTOR-216
+E01C8 ; [.0000.0000.0000] # VARIATION SELECTOR-217
+E01C9 ; [.0000.0000.0000] # VARIATION SELECTOR-218
+E01CA ; [.0000.0000.0000] # VARIATION SELECTOR-219
+E01CB ; [.0000.0000.0000] # VARIATION SELECTOR-220
+E01CC ; [.0000.0000.0000] # VARIATION SELECTOR-221
+E01CD ; [.0000.0000.0000] # VARIATION SELECTOR-222
+E01CE ; [.0000.0000.0000] # VARIATION SELECTOR-223
+E01CF ; [.0000.0000.0000] # VARIATION SELECTOR-224
+E01D0 ; [.0000.0000.0000] # VARIATION SELECTOR-225
+E01D1 ; [.0000.0000.0000] # VARIATION SELECTOR-226
+E01D2 ; [.0000.0000.0000] # VARIATION SELECTOR-227
+E01D3 ; [.0000.0000.0000] # VARIATION SELECTOR-228
+E01D4 ; [.0000.0000.0000] # VARIATION SELECTOR-229
+E01D5 ; [.0000.0000.0000] # VARIATION SELECTOR-230
+E01D6 ; [.0000.0000.0000] # VARIATION SELECTOR-231
+E01D7 ; [.0000.0000.0000] # VARIATION SELECTOR-232
+E01D8 ; [.0000.0000.0000] # VARIATION SELECTOR-233
+E01D9 ; [.0000.0000.0000] # VARIATION SELECTOR-234
+E01DA ; [.0000.0000.0000] # VARIATION SELECTOR-235
+E01DB ; [.0000.0000.0000] # VARIATION SELECTOR-236
+E01DC ; [.0000.0000.0000] # VARIATION SELECTOR-237
+E01DD ; [.0000.0000.0000] # VARIATION SELECTOR-238
+E01DE ; [.0000.0000.0000] # VARIATION SELECTOR-239
+E01DF ; [.0000.0000.0000] # VARIATION SELECTOR-240
+E01E0 ; [.0000.0000.0000] # VARIATION SELECTOR-241
+E01E1 ; [.0000.0000.0000] # VARIATION SELECTOR-242
+E01E2 ; [.0000.0000.0000] # VARIATION SELECTOR-243
+E01E3 ; [.0000.0000.0000] # VARIATION SELECTOR-244
+E01E4 ; [.0000.0000.0000] # VARIATION SELECTOR-245
+E01E5 ; [.0000.0000.0000] # VARIATION SELECTOR-246
+E01E6 ; [.0000.0000.0000] # VARIATION SELECTOR-247
+E01E7 ; [.0000.0000.0000] # VARIATION SELECTOR-248
+E01E8 ; [.0000.0000.0000] # VARIATION SELECTOR-249
+E01E9 ; [.0000.0000.0000] # VARIATION SELECTOR-250
+E01EA ; [.0000.0000.0000] # VARIATION SELECTOR-251
+E01EB ; [.0000.0000.0000] # VARIATION SELECTOR-252
+E01EC ; [.0000.0000.0000] # VARIATION SELECTOR-253
+E01ED ; [.0000.0000.0000] # VARIATION SELECTOR-254
+E01EE ; [.0000.0000.0000] # VARIATION SELECTOR-255
+E01EF ; [.0000.0000.0000] # VARIATION SELECTOR-256
+0009  ; [*0201.0020.0002] # HORIZONTAL TABULATION (in 6429)
+000A  ; [*0202.0020.0002] # LINE FEED (in 6429)
+000B  ; [*0203.0020.0002] # VERTICAL TABULATION (in 6429)
+000C  ; [*0204.0020.0002] # FORM FEED (in 6429)
+000D  ; [*0205.0020.0002] # CARRIAGE RETURN (in 6429)
+0020  ; [*0209.0020.0002] # SPACE
+0021  ; [*025F.0020.0002] # EXCLAMATION MARK
+0022  ; [*02FF.0020.0002] # QUOTATION MARK
+0023  ; [*038B.0020.0002] # NUMBER SIGN
+0025  ; [*038C.0020.0002] # PERCENT SIGN
+0026  ; [*0389.0020.0002] # AMPERSAND
+0027  ; [*02F8.0020.0002] # APOSTROPHE
+0028  ; [*030A.0020.0002] # LEFT PARENTHESIS
+0029  ; [*030B.0020.0002] # RIGHT PARENTHESIS
+002A  ; [*0382.0020.0002] # ASTERISK
+002B  ; [*05D6.0020.0002] # PLUS SIGN
+002C  ; [*0221.0020.0002] # COMMA
+002D  ; [*020D.0020.0002] # HYPHEN-MINUS
+002E  ; [*0274.0020.0002] # FULL STOP
+002F  ; [*0387.0020.0002] # SOLIDUS
+003A  ; [*0238.0020.0002] # COLON
+003B  ; [*0233.0020.0002] # SEMICOLON
+003C  ; [*05DA.0020.0002] # LESS-THAN SIGN
+003D  ; [*05DB.0020.0002] # EQUALS SIGN
+003E  ; [*05DC.0020.0002] # GREATER-THAN SIGN
+003F  ; [*0264.0020.0002] # QUESTION MARK
+0040  ; [*0381.0020.0002] # COMMERCIAL AT
+005B  ; [*030C.0020.0002] # LEFT SQUARE BRACKET
+005C  ; [*0388.0020.0002] # REVERSE SOLIDUS
+005D  ; [*030D.0020.0002] # RIGHT SQUARE BRACKET
+005E  ; [*0449.0020.0002] # CIRCUMFLEX ACCENT
+005F  ; [*020B.0020.0002] # LOW LINE
+0060  ; [*0446.0020.0002] # GRAVE ACCENT
+007B  ; [*030E.0020.0002] # LEFT CURLY BRACKET
+007C  ; [*05DE.0020.0002] # VERTICAL LINE
+007D  ; [*030F.0020.0002] # RIGHT CURLY BRACKET
+007E  ; [*05E0.0020.0002] # TILDE
+0085  ; [*0206.0020.0002] # NEXT LINE (in 6429)
+00A0  ; [*0209.0020.001B] # NO-BREAK SPACE
+00A1  ; [*0260.0020.0002] # INVERTED EXCLAMATION MARK
+00A6  ; [*05DF.0020.0002] # BROKEN BAR
+00A7  ; [*037C.0020.0002] # SECTION SIGN
+00A8  ; [*044D.0020.0002] # DIAERESIS
+00A9  ; [*0546.0020.0002] # COPYRIGHT SIGN
+00AB  ; [*0308.0020.0002] # LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
+00AC  ; [*05DD.0020.0002] # NOT SIGN
+00AE  ; [*0547.0020.0002] # REGISTERED SIGN
+00AF  ; [*044A.0020.0002] # MACRON
+00B0  ; [*04BA.0020.0002] # DEGREE SIGN
+00B1  ; [*05D7.0020.0002] # PLUS-MINUS SIGN
+00B4  ; [*0447.0020.0002] # ACUTE ACCENT
+00B6  ; [*037E.0020.0002] # PILCROW SIGN
+00B7  ; [*0288.0020.0002] # MIDDLE DOT
+00B8  ; [*0450.0020.0002] # CEDILLA
+00BB  ; [*0309.0020.0002] # RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
+00BF  ; [*0265.0020.0002] # INVERTED QUESTION MARK
+00D7  ; [*05D9.0020.0002] # MULTIPLICATION SIGN
+00F7  ; [*05D8.0020.0002] # DIVISION SIGN
+02B9  ; [*0457.0020.0002] # MODIFIER LETTER PRIME
+02BA  ; [*0459.0020.0002] # MODIFIER LETTER DOUBLE PRIME
+02C2  ; [*045A.0020.0002] # MODIFIER LETTER LEFT ARROWHEAD
+02C3  ; [*045B.0020.0002] # MODIFIER LETTER RIGHT ARROWHEAD
+02C4  ; [*045C.0020.0002] # MODIFIER LETTER UP ARROWHEAD
+02C5  ; [*045D.0020.0002] # MODIFIER LETTER DOWN ARROWHEAD
+02C6  ; [*045E.0020.0002] # MODIFIER LETTER CIRCUMFLEX ACCENT
+02C7  ; [*045F.0020.0002] # CARON
+02C8  ; [*0460.0020.0002] # MODIFIER LETTER VERTICAL LINE
+02C9  ; [*0461.0020.0002] # MODIFIER LETTER MACRON
+02CA  ; [*0462.0020.0002] # MODIFIER LETTER ACUTE ACCENT
+02CB  ; [*0463.0020.0002] # MODIFIER LETTER GRAVE ACCENT
+02CC  ; [*0464.0020.0002] # MODIFIER LETTER LOW VERTICAL LINE
+02CD  ; [*0465.0020.0002] # MODIFIER LETTER LOW MACRON
+02CE  ; [*0466.0020.0002] # MODIFIER LETTER LOW GRAVE ACCENT
+02CF  ; [*0467.0020.0002] # MODIFIER LETTER LOW ACUTE ACCENT
+02D2  ; [*0468.0020.0002] # MODIFIER LETTER CENTRED RIGHT HALF RING
+02D3  ; [*0469.0020.0002] # MODIFIER LETTER CENTRED LEFT HALF RING
+02D4  ; [*046A.0020.0002] # MODIFIER LETTER UP TACK
+02D5  ; [*046B.0020.0002] # MODIFIER LETTER DOWN TACK
+02D6  ; [*046C.0020.0002] # MODIFIER LETTER PLUS SIGN
+02D7  ; [*046D.0020.0002] # MODIFIER LETTER MINUS SIGN
+02D8  ; [*044B.0020.0002] # BREVE
+02D9  ; [*044C.0020.0002] # DOT ABOVE
+02DA  ; [*044E.0020.0002] # RING ABOVE
+02DB  ; [*0451.0020.0002] # OGONEK
+02DC  ; [*0448.0020.0002] # SMALL TILDE
+02DD  ; [*044F.0020.0002] # DOUBLE ACUTE ACCENT
+02DE  ; [*046E.0020.0002] # MODIFIER LETTER RHOTIC HOOK
+02DF  ; [*046F.0020.0002] # MODIFIER LETTER CROSS ACCENT
+02E5  ; [*0470.0020.0002] # MODIFIER LETTER EXTRA-HIGH TONE BAR
+02E6  ; [*0471.0020.0002] # MODIFIER LETTER HIGH TONE BAR
+02E7  ; [*0472.0020.0002] # MODIFIER LETTER MID TONE BAR
+02E8  ; [*0473.0020.0002] # MODIFIER LETTER LOW TONE BAR
+02E9  ; [*0474.0020.0002] # MODIFIER LETTER EXTRA-LOW TONE BAR
+02EA  ; [*0475.0020.0002] # MODIFIER LETTER YIN DEPARTING TONE MARK
+02EB  ; [*0476.0020.0002] # MODIFIER LETTER YANG DEPARTING TONE MARK
+02EC  ; [*0477.0020.0002] # MODIFIER LETTER VOICING
+02ED  ; [*0478.0020.0002] # MODIFIER LETTER UNASPIRATED
+02EF  ; [*0479.0020.0002] # MODIFIER LETTER LOW DOWN ARROWHEAD
+02F0  ; [*047A.0020.0002] # MODIFIER LETTER LOW UP ARROWHEAD
+02F1  ; [*047B.0020.0002] # MODIFIER LETTER LOW LEFT ARROWHEAD
+02F2  ; [*047C.0020.0002] # MODIFIER LETTER LOW RIGHT ARROWHEAD
+02F3  ; [*047D.0020.0002] # MODIFIER LETTER LOW RING
+02F4  ; [*047E.0020.0002] # MODIFIER LETTER MIDDLE GRAVE ACCENT
+02F5  ; [*047F.0020.0002] # MODIFIER LETTER MIDDLE DOUBLE GRAVE ACCENT
+02F6  ; [*0480.0020.0002] # MODIFIER LETTER MIDDLE DOUBLE ACUTE ACCENT
+02F7  ; [*0481.0020.0002] # MODIFIER LETTER LOW TILDE
+02F8  ; [*0482.0020.0002] # MODIFIER LETTER RAISED COLON
+02F9  ; [*0483.0020.0002] # MODIFIER LETTER BEGIN HIGH TONE
+02FA  ; [*0484.0020.0002] # MODIFIER LETTER END HIGH TONE
+02FB  ; [*0485.0020.0002] # MODIFIER LETTER BEGIN LOW TONE
+02FC  ; [*0486.0020.0002] # MODIFIER LETTER END LOW TONE
+02FD  ; [*0487.0020.0002] # MODIFIER LETTER SHELF
+02FE  ; [*0488.0020.0002] # MODIFIER LETTER OPEN SHELF
+02FF  ; [*0489.0020.0002] # MODIFIER LETTER LOW LEFT ARROW
+034F  ; [.0000.0000.0000] # COMBINING GRAPHEME JOINER
+0374  ; [*0457.0020.0002] # GREEK NUMERAL SIGN
+0375  ; [*0458.0020.0002] # GREEK LOWER NUMERAL SIGN
+037E  ; [*0233.0020.0002] # GREEK QUESTION MARK
+0384  ; [*0447.0020.0002] # GREEK TONOS
+0385  ; [*044D.0020.0002][.0000.0024.0002] # GREEK DIALYTIKA TONOS
+0387  ; [*0288.0020.0002] # GREEK ANO TELEIA
+03F6  ; [*05D1.0020.0002] # GREEK REVERSED LUNATE EPSILON SYMBOL
+0482  ; [*04BB.0020.0002] # CYRILLIC THOUSANDS SIGN
+0488  ; [.0000.0000.0000] # COMBINING CYRILLIC HUNDRED THOUSANDS SIGN
+0489  ; [.0000.0000.0000] # COMBINING CYRILLIC MILLIONS SIGN
+055A  ; [*03BD.0020.0002] # ARMENIAN APOSTROPHE
+055B  ; [*03BE.0020.0002] # ARMENIAN EMPHASIS MARK
+055C  ; [*0261.0020.0002] # ARMENIAN EXCLAMATION MARK
+055D  ; [*0225.0020.0002] # ARMENIAN COMMA
+055E  ; [*0267.0020.0002] # ARMENIAN QUESTION MARK
+055F  ; [*03BF.0020.0002] # ARMENIAN ABBREVIATION MARK
+0589  ; [*0239.0020.0002] # ARMENIAN FULL STOP
+058A  ; [*020E.0020.0002] # ARMENIAN HYPHEN
+058D  ; [*04BC.0020.0002] # RIGHT-FACING ARMENIAN ETERNITY SIGN
+058E  ; [*04BD.0020.0002] # LEFT-FACING ARMENIAN ETERNITY SIGN
+0591  ; [.0000.0000.0000] # HEBREW ACCENT ETNAHTA
+0592  ; [.0000.0000.0000] # HEBREW ACCENT SEGOL
+0593  ; [.0000.0000.0000] # HEBREW ACCENT SHALSHELET
+0594  ; [.0000.0000.0000] # HEBREW ACCENT ZAQEF QATAN
+0595  ; [.0000.0000.0000] # HEBREW ACCENT ZAQEF GADOL
+0596  ; [.0000.0000.0000] # HEBREW ACCENT TIPEHA
+0597  ; [.0000.0000.0000] # HEBREW ACCENT REVIA
+0598  ; [.0000.0000.0000] # HEBREW ACCENT ZARQA
+0599  ; [.0000.0000.0000] # HEBREW ACCENT PASHTA
+059A  ; [.0000.0000.0000] # HEBREW ACCENT YETIV
+059B  ; [.0000.0000.0000] # HEBREW ACCENT TEVIR
+059C  ; [.0000.0000.0000] # HEBREW ACCENT GERESH
+059D  ; [.0000.0000.0000] # HEBREW ACCENT GERESH MUQDAM
+059E  ; [.0000.0000.0000] # HEBREW ACCENT GERSHAYIM
+059F  ; [.0000.0000.0000] # HEBREW ACCENT QARNEY PARA
+05A0  ; [.0000.0000.0000] # HEBREW ACCENT TELISHA GEDOLA
+05A1  ; [.0000.0000.0000] # HEBREW ACCENT PAZER
+05A2  ; [.0000.0000.0000] # HEBREW ACCENT ATNAH HAFUKH
+05A3  ; [.0000.0000.0000] # HEBREW ACCENT MUNAH
+05A4  ; [.0000.0000.0000] # HEBREW ACCENT MAHAPAKH
+05A5  ; [.0000.0000.0000] # HEBREW ACCENT MERKHA
+05A6  ; [.0000.0000.0000] # HEBREW ACCENT MERKHA KEFULA
+05A7  ; [.0000.0000.0000] # HEBREW ACCENT DARGA
+05A8  ; [.0000.0000.0000] # HEBREW ACCENT QADMA
+05A9  ; [.0000.0000.0000] # HEBREW ACCENT TELISHA QETANA
+05AA  ; [.0000.0000.0000] # HEBREW ACCENT YERAH BEN YOMO
+05AB  ; [.0000.0000.0000] # HEBREW ACCENT OLE
+05AC  ; [.0000.0000.0000] # HEBREW ACCENT ILUY
+05AD  ; [.0000.0000.0000] # HEBREW ACCENT DEHI
+05AE  ; [.0000.0000.0000] # HEBREW ACCENT ZINOR
+05AF  ; [.0000.0000.0000] # HEBREW MARK MASORA CIRCLE
+05BD  ; [.0000.0000.0000] # HEBREW POINT METEG
+05BE  ; [*03C0.0020.0002] # HEBREW PUNCTUATION MAQAF
+05C0  ; [*03C1.0020.0002] # HEBREW PUNCTUATION PASEQ
+05C3  ; [*03C2.0020.0002] # HEBREW PUNCTUATION SOF PASUQ
+05C4  ; [.0000.0000.0000] # HEBREW MARK UPPER DOT
+05C5  ; [.0000.0000.0000] # HEBREW MARK LOWER DOT
+05C6  ; [*03C3.0020.0002] # HEBREW PUNCTUATION NUN HAFUKHA
+05F3  ; [*03C4.0020.0002] # HEBREW PUNCTUATION GERESH
+05F4  ; [*03C5.0020.0002] # HEBREW PUNCTUATION GERSHAYIM
+0600  ; [.0000.0000.0000] # ARABIC NUMBER SIGN
+0601  ; [.0000.0000.0000] # ARABIC SIGN SANAH
+0602  ; [.0000.0000.0000] # ARABIC FOOTNOTE MARKER
+0603  ; [.0000.0000.0000] # ARABIC SIGN SAFHA
+0604  ; [.0000.0000.0000] # ARABIC SIGN SAMVAT
+0605  ; [.0000.0000.0000] # ARABIC NUMBER MARK ABOVE
+0606  ; [*05ED.0020.0002] # ARABIC-INDIC CUBE ROOT
+0607  ; [*05EF.0020.0002] # ARABIC-INDIC FOURTH ROOT
+0608  ; [*04BE.0020.0002] # ARABIC RAY
+0609  ; [*038F.0020.0002] # ARABIC-INDIC PER MILLE SIGN
+060A  ; [*0391.0020.0002] # ARABIC-INDIC PER TEN THOUSAND SIGN
+060C  ; [*0226.0020.0002] # ARABIC COMMA
+060D  ; [*0227.0020.0002] # ARABIC DATE SEPARATOR
+060E  ; [*04C1.0020.0002] # ARABIC POETIC VERSE SIGN
+060F  ; [*04C2.0020.0002] # ARABIC SIGN MISRA
+0610  ; [.0000.0000.0000] # ARABIC SIGN SALLALLAHOU ALAYHE WASSALLAM
+0611  ; [.0000.0000.0000] # ARABIC SIGN ALAYHE ASSALLAM
+0612  ; [.0000.0000.0000] # ARABIC SIGN RAHMATULLAH ALAYHE
+0613  ; [.0000.0000.0000] # ARABIC SIGN RADI ALLAHOU ANHU
+0614  ; [.0000.0000.0000] # ARABIC SIGN TAKHALLUS
+0615  ; [.0000.0000.0000] # ARABIC SMALL HIGH TAH
+0616  ; [.0000.0000.0000] # ARABIC SMALL HIGH LIGATURE ALEF WITH LAM WITH YEH
+0617  ; [.0000.0000.0000] # ARABIC SMALL HIGH ZAIN
+0618  ; [.0000.0000.0000] # ARABIC SMALL FATHA
+0619  ; [.0000.0000.0000] # ARABIC SMALL DAMMA
+061A  ; [.0000.0000.0000] # ARABIC SMALL KASRA
+061B  ; [*0234.0020.0002] # ARABIC SEMICOLON
+061E  ; [*023A.0020.0002] # ARABIC TRIPLE DOT PUNCTUATION MARK
+061F  ; [*0268.0020.0002] # ARABIC QUESTION MARK
+0640  ; [.0000.0000.0000] # ARABIC TATWEEL
+066A  ; [*038D.0020.0002] # ARABIC PERCENT SIGN
+066B  ; [*0228.0020.0002] # ARABIC DECIMAL SEPARATOR
+066C  ; [*0229.0020.0002] # ARABIC THOUSANDS SEPARATOR
+066D  ; [*0385.0020.0002] # ARABIC FIVE POINTED STAR
+06D4  ; [*0276.0020.0002] # ARABIC FULL STOP
+06D6  ; [.0000.0000.0000] # ARABIC SMALL HIGH LIGATURE SAD WITH LAM WITH ALEF MAKSURA
+06D7  ; [.0000.0000.0000] # ARABIC SMALL HIGH LIGATURE QAF WITH LAM WITH ALEF MAKSURA
+06D8  ; [.0000.0000.0000] # ARABIC SMALL HIGH MEEM INITIAL FORM
+06D9  ; [.0000.0000.0000] # ARABIC SMALL HIGH LAM ALEF
+06DA  ; [.0000.0000.0000] # ARABIC SMALL HIGH JEEM
+06DB  ; [.0000.0000.0000] # ARABIC SMALL HIGH THREE DOTS
+06DC  ; [.0000.0000.0000] # ARABIC SMALL HIGH SEEN
+06DD  ; [.0000.0000.0000] # ARABIC END OF AYAH
+06DE  ; [*04C3.0020.0002] # ARABIC START OF RUB EL HIZB
+06DF  ; [.0000.0000.0000] # ARABIC SMALL HIGH ROUNDED ZERO
+06E0  ; [.0000.0000.0000] # ARABIC SMALL HIGH UPRIGHT RECTANGULAR ZERO
+06E1  ; [.0000.0000.0000] # ARABIC SMALL HIGH DOTLESS HEAD OF KHAH
+06E2  ; [.0000.0000.0000] # ARABIC SMALL HIGH MEEM ISOLATED FORM
+06E3  ; [.0000.0000.0000] # ARABIC SMALL LOW SEEN
+06E4  ; [.0000.0000.0000] # ARABIC SMALL HIGH MADDA
+06E7  ; [.0000.0000.0000] # ARABIC SMALL HIGH YEH
+06E8  ; [.0000.0000.0000] # ARABIC SMALL HIGH NOON
+06E9  ; [*04C4.0020.0002] # ARABIC PLACE OF SAJDAH
+06EA  ; [.0000.0000.0000] # ARABIC EMPTY CENTRE LOW STOP
+06EB  ; [.0000.0000.0000] # ARABIC EMPTY CENTRE HIGH STOP
+06EC  ; [.0000.0000.0000] # ARABIC ROUNDED HIGH STOP WITH FILLED CENTRE
+06ED  ; [.0000.0000.0000] # ARABIC SMALL LOW MEEM
+0700  ; [*02BB.0020.0002] # SYRIAC END OF PARAGRAPH
+0701  ; [*0277.0020.0002] # SYRIAC SUPRALINEAR FULL STOP
+0702  ; [*0278.0020.0002] # SYRIAC SUBLINEAR FULL STOP
+0703  ; [*023B.0020.0002] # SYRIAC SUPRALINEAR COLON
+0704  ; [*023C.0020.0002] # SYRIAC SUBLINEAR COLON
+0705  ; [*023D.0020.0002] # SYRIAC HORIZONTAL COLON
+0706  ; [*023E.0020.0002] # SYRIAC COLON SKEWED LEFT
+0707  ; [*023F.0020.0002] # SYRIAC COLON SKEWED RIGHT
+0708  ; [*0240.0020.0002] # SYRIAC SUPRALINEAR COLON SKEWED LEFT
+0709  ; [*0269.0020.0002] # SYRIAC SUBLINEAR COLON SKEWED RIGHT
+070A  ; [*03C6.0020.0002] # SYRIAC CONTRACTION
+070B  ; [*03C7.0020.0002] # SYRIAC HARKLEAN OBELUS
+070C  ; [*03C8.0020.0002] # SYRIAC HARKLEAN METOBELUS
+070D  ; [*03C9.0020.0002] # SYRIAC HARKLEAN ASTERISCUS
+0740  ; [.0000.0000.0000] # SYRIAC FEMININE DOT
+0743  ; [.0000.0000.0000] # SYRIAC TWO VERTICAL DOTS ABOVE
+0744  ; [.0000.0000.0000] # SYRIAC TWO VERTICAL DOTS BELOW
+0747  ; [.0000.0000.0000] # SYRIAC OBLIQUE LINE ABOVE
+0748  ; [.0000.0000.0000] # SYRIAC OBLIQUE LINE BELOW
+0749  ; [.0000.0000.0000] # SYRIAC MUSIC
+074A  ; [.0000.0000.0000] # SYRIAC BARREKH
+07F6  ; [*04D6.0020.0002] # NKO SYMBOL OO DENNEN
+07F7  ; [*02BC.0020.0002] # NKO SYMBOL GBAKURUNEN
+07F8  ; [*022A.0020.0002] # NKO COMMA
+07F9  ; [*0262.0020.0002] # NKO EXCLAMATION MARK
+07FA  ; [.0000.0000.0000] # NKO LAJANYALAN
+0830  ; [*0241.0020.0002] # SAMARITAN PUNCTUATION NEQUDAA
+0831  ; [*0242.0020.0002] # SAMARITAN PUNCTUATION AFSAAQ
+0832  ; [*0243.0020.0002] # SAMARITAN PUNCTUATION ANGED
+0833  ; [*0244.0020.0002] # SAMARITAN PUNCTUATION BAU
+0834  ; [*0245.0020.0002] # SAMARITAN PUNCTUATION ATMAAU
+0835  ; [*0246.0020.0002] # SAMARITAN PUNCTUATION SHIYYAALAA
+0836  ; [*0247.0020.0002] # SAMARITAN ABBREVIATION MARK
+0837  ; [*0248.0020.0002] # SAMARITAN PUNCTUATION MELODIC QITSA
+0838  ; [*0249.0020.0002] # SAMARITAN PUNCTUATION ZIQAA
+0839  ; [*024A.0020.0002] # SAMARITAN PUNCTUATION QITSA
+083A  ; [*024B.0020.0002] # SAMARITAN PUNCTUATION ZAEF
+083B  ; [*024C.0020.0002] # SAMARITAN PUNCTUATION TURU
+083C  ; [*024D.0020.0002] # SAMARITAN PUNCTUATION ARKAANU
+083D  ; [*024E.0020.0002] # SAMARITAN PUNCTUATION SOF MASHFAAT
+083E  ; [*024F.0020.0002] # SAMARITAN PUNCTUATION ANNAAU
+085E  ; [*03CA.0020.0002] # MANDAIC PUNCTUATION
+08EA  ; [.0000.0000.0000] # ARABIC TONE ONE DOT ABOVE
+08EB  ; [.0000.0000.0000] # ARABIC TONE TWO DOTS ABOVE
+08EC  ; [.0000.0000.0000] # ARABIC TONE LOOP ABOVE
+08ED  ; [.0000.0000.0000] # ARABIC TONE ONE DOT BELOW
+08EE  ; [.0000.0000.0000] # ARABIC TONE TWO DOTS BELOW
+08EF  ; [.0000.0000.0000] # ARABIC TONE LOOP BELOW
+08F3  ; [.0000.0000.0000] # ARABIC SMALL HIGH WAW
+0951  ; [.0000.0000.0000] # DEVANAGARI STRESS SIGN UDATTA
+0952  ; [.0000.0000.0000] # DEVANAGARI STRESS SIGN ANUDATTA
+0964  ; [*028B.0020.0002] # DEVANAGARI DANDA
+0965  ; [*028C.0020.0002] # DEVANAGARI DOUBLE DANDA
+0970  ; [*03CC.0020.0002] # DEVANAGARI ABBREVIATION SIGN
+09F4  ; [*17B1.0020.0002] # BENGALI CURRENCY NUMERATOR ONE
+09F5  ; [*17B2.0020.0002] # BENGALI CURRENCY NUMERATOR TWO
+09F6  ; [*17B3.0020.0002] # BENGALI CURRENCY NUMERATOR THREE
+09F7  ; [*17B4.0020.0002] # BENGALI CURRENCY NUMERATOR FOUR
+09F8  ; [*17B5.0020.0002] # BENGALI CURRENCY NUMERATOR ONE LESS THAN THE DENOMINATOR
+09F9  ; [*17B6.0020.0002] # BENGALI CURRENCY DENOMINATOR SIXTEEN
+09FA  ; [*04D7.0020.0002] # BENGALI ISSHAR
+0AF0  ; [*03D0.0020.0002] # GUJARATI ABBREVIATION SIGN
+0B70  ; [*04D8.0020.0002] # ORIYA ISSHAR
+0B72  ; [*17B7.0020.0002] # ORIYA FRACTION ONE QUARTER
+0B73  ; [*17B8.0020.0002] # ORIYA FRACTION ONE HALF
+0B74  ; [*17B9.0020.0002] # ORIYA FRACTION THREE QUARTERS
+0B75  ; [*17BA.0020.0002] # ORIYA FRACTION ONE SIXTEENTH
+0B76  ; [*17BB.0020.0002] # ORIYA FRACTION ONE EIGHTH
+0B77  ; [*17BC.0020.0002] # ORIYA FRACTION THREE SIXTEENTHS
+0BF0  ; [*17C3.0020.0002] # TAMIL NUMBER TEN
+0BF1  ; [*17C4.0020.0002] # TAMIL NUMBER ONE HUNDRED
+0BF2  ; [*17C5.0020.0002] # TAMIL NUMBER ONE THOUSAND
+0BF3  ; [*04D9.0020.0002] # TAMIL DAY SIGN
+0BF4  ; [*04DA.0020.0002] # TAMIL MONTH SIGN
+0BF5  ; [*04DB.0020.0002] # TAMIL YEAR SIGN
+0BF6  ; [*04DC.0020.0002] # TAMIL DEBIT SIGN
+0BF7  ; [*04DD.0020.0002] # TAMIL CREDIT SIGN
+0BF8  ; [*04DE.0020.0002] # TAMIL AS ABOVE SIGN
+0BFA  ; [*04DF.0020.0002] # TAMIL NUMBER SIGN
+0C7F  ; [*04E0.0020.0002] # TELUGU SIGN TUUMU
+0D70  ; [*17C6.0020.0002] # MALAYALAM NUMBER TEN
+0D71  ; [*17C7.0020.0002] # MALAYALAM NUMBER ONE HUNDRED
+0D72  ; [*17C8.0020.0002] # MALAYALAM NUMBER ONE THOUSAND
+0D73  ; [*17C9.0020.0002] # MALAYALAM FRACTION ONE QUARTER
+0D74  ; [*17CA.0020.0002] # MALAYALAM FRACTION ONE HALF
+0D75  ; [*17CB.0020.0002] # MALAYALAM FRACTION THREE QUARTERS
+0D79  ; [*04E1.0020.0002] # MALAYALAM DATE MARK
+0DF4  ; [*03D1.0020.0002] # SINHALA PUNCTUATION KUNDDALIYA
+0E4F  ; [*03D2.0020.0002] # THAI CHARACTER FONGMAN
+0E5A  ; [*03D3.0020.0002] # THAI CHARACTER ANGKHANKHU
+0E5B  ; [*03D4.0020.0002] # THAI CHARACTER KHOMUT
+0F01  ; [*04E9.0020.0002] # TIBETAN MARK GTER YIG MGO TRUNCATED A
+0F02  ; [*04EA.0020.0002] # TIBETAN MARK GTER YIG MGO -UM RNAM BCAD MA
+0F03  ; [*04EB.0020.0002] # TIBETAN MARK GTER YIG MGO -UM GTER TSHEG MA
+0F04  ; [*03D7.0020.0002] # TIBETAN MARK INITIAL YIG MGO MDUN MA
+0F05  ; [*03D8.0020.0002] # TIBETAN MARK CLOSING YIG MGO SGAB MA
+0F06  ; [*03D9.0020.0002] # TIBETAN MARK CARET YIG MGO PHUR SHAD MA
+0F07  ; [*03DA.0020.0002] # TIBETAN MARK YIG MGO TSHEG SHAD MA
+0F08  ; [*03DB.0020.0002] # TIBETAN MARK SBRUL SHAD
+0F09  ; [*03DC.0020.0002] # TIBETAN MARK BSKUR YIG MGO
+0F0A  ; [*03DD.0020.0002] # TIBETAN MARK BKA- SHOG YIG MGO
+0F0B  ; [*03E0.0020.0002] # TIBETAN MARK INTERSYLLABIC TSHEG
+0F0C  ; [*03E0.0020.001B] # TIBETAN MARK DELIMITER TSHEG BSTAR
+0F0D  ; [*03E1.0020.0002] # TIBETAN MARK SHAD
+0F0E  ; [*03E2.0020.0002] # TIBETAN MARK NYIS SHAD
+0F0F  ; [*03E3.0020.0002] # TIBETAN MARK TSHEG SHAD
+0F10  ; [*03E4.0020.0002] # TIBETAN MARK NYIS TSHEG SHAD
+0F11  ; [*03E5.0020.0002] # TIBETAN MARK RIN CHEN SPUNGS SHAD
+0F12  ; [*03E6.0020.0002] # TIBETAN MARK RGYA GRAM SHAD
+0F13  ; [*04EC.0020.0002] # TIBETAN MARK CARET -DZUD RTAGS ME LONG CAN
+0F14  ; [*0257.0020.0002] # TIBETAN MARK GTER TSHEG
+0F15  ; [*04ED.0020.0002] # TIBETAN LOGOTYPE SIGN CHAD RTAGS
+0F16  ; [*04EE.0020.0002] # TIBETAN LOGOTYPE SIGN LHAG RTAGS
+0F17  ; [*04EF.0020.0002] # TIBETAN ASTROLOGICAL SIGN SGRA GCAN -CHAR RTAGS
+0F18  ; [.0000.0000.0000] # TIBETAN ASTROLOGICAL SIGN -KHYUD PA
+0F19  ; [.0000.0000.0000] # TIBETAN ASTROLOGICAL SIGN SDONG TSHUGS
+0F1A  ; [*04F0.0020.0002] # TIBETAN SIGN RDEL DKAR GCIG
+0F1B  ; [*04F1.0020.0002] # TIBETAN SIGN RDEL DKAR GNYIS
+0F1C  ; [*04F2.0020.0002] # TIBETAN SIGN RDEL DKAR GSUM
+0F1D  ; [*04F3.0020.0002] # TIBETAN SIGN RDEL NAG GCIG
+0F1E  ; [*04F4.0020.0002] # TIBETAN SIGN RDEL NAG GNYIS
+0F1F  ; [*04F5.0020.0002] # TIBETAN SIGN RDEL DKAR RDEL NAG
+0F34  ; [*04F6.0020.0002] # TIBETAN MARK BSDUS RTAGS
+0F35  ; [.0000.0000.0000] # TIBETAN MARK NGAS BZUNG NYI ZLA
+0F36  ; [*04F7.0020.0002] # TIBETAN MARK CARET -DZUD RTAGS BZHI MIG CAN
+0F37  ; [.0000.0000.0000] # TIBETAN MARK NGAS BZUNG SGOR RTAGS
+0F38  ; [*04F8.0020.0002] # TIBETAN MARK CHE MGO
+0F3A  ; [*0310.0020.0002] # TIBETAN MARK GUG RTAGS GYON
+0F3B  ; [*0311.0020.0002] # TIBETAN MARK GUG RTAGS GYAS
+0F3C  ; [*0312.0020.0002] # TIBETAN MARK ANG KHANG GYON
+0F3D  ; [*0313.0020.0002] # TIBETAN MARK ANG KHANG GYAS
+0F3E  ; [.0000.0000.0000] # TIBETAN SIGN YAR TSHES
+0F3F  ; [.0000.0000.0000] # TIBETAN SIGN MAR TSHES
+0F82  ; [.0000.0000.0000] # TIBETAN SIGN NYI ZLA NAA DA
+0F83  ; [.0000.0000.0000] # TIBETAN SIGN SNA LDAN
+0F85  ; [*03E7.0020.0002] # TIBETAN MARK PALUTA
+0F86  ; [.0000.0000.0000] # TIBETAN SIGN LCI RTAGS
+0F87  ; [.0000.0000.0000] # TIBETAN SIGN YANG RTAGS
+0FBE  ; [*04F9.0020.0002] # TIBETAN KU RU KHA
+0FBF  ; [*04FA.0020.0002] # TIBETAN KU RU KHA BZHI MIG CAN
+0FC0  ; [*04FB.0020.0002] # TIBETAN CANTILLATION SIGN HEAVY BEAT
+0FC1  ; [*04FC.0020.0002] # TIBETAN CANTILLATION SIGN LIGHT BEAT
+0FC2  ; [*04FD.0020.0002] # TIBETAN CANTILLATION SIGN CANG TE-U
+0FC3  ; [*04FE.0020.0002] # TIBETAN CANTILLATION SIGN SBUB -CHAL
+0FC4  ; [*04FF.0020.0002] # TIBETAN SYMBOL DRIL BU
+0FC5  ; [*0500.0020.0002] # TIBETAN SYMBOL RDO RJE
+0FC6  ; [.0000.0000.0000] # TIBETAN SYMBOL PADMA GDAN
+0FC7  ; [*0501.0020.0002] # TIBETAN SYMBOL RDO RJE RGYA GRAM
+0FC8  ; [*0502.0020.0002] # TIBETAN SYMBOL PHUR PA
+0FC9  ; [*0503.0020.0002] # TIBETAN SYMBOL NOR BU
+0FCA  ; [*0504.0020.0002] # TIBETAN SYMBOL NOR BU NYIS -KHYIL
+0FCB  ; [*0505.0020.0002] # TIBETAN SYMBOL NOR BU GSUM -KHYIL
+0FCC  ; [*0506.0020.0002] # TIBETAN SYMBOL NOR BU BZHI -KHYIL
+0FCE  ; [*0507.0020.0002] # TIBETAN SIGN RDEL NAG RDEL DKAR
+0FCF  ; [*0508.0020.0002] # TIBETAN SIGN RDEL NAG GSUM
+0FD0  ; [*03DE.0020.0002] # TIBETAN MARK BSKA- SHOG GI MGO RGYAN
+0FD1  ; [*03DF.0020.0002] # TIBETAN MARK MNYAM YIG GI MGO RGYAN
+0FD2  ; [*03E8.0020.0002] # TIBETAN MARK NYIS TSHEG
+0FD3  ; [*03E9.0020.0002] # TIBETAN MARK INITIAL BRDA RNYING YIG MGO MDUN MA
+0FD4  ; [*03EA.0020.0002] # TIBETAN MARK CLOSING BRDA RNYING YIG MGO SGAB MA
+0FD5  ; [*0509.0020.0002] # RIGHT-FACING SVASTI SIGN
+0FD6  ; [*050A.0020.0002] # LEFT-FACING SVASTI SIGN
+0FD7  ; [*050B.0020.0002] # RIGHT-FACING SVASTI SIGN WITH DOTS
+0FD8  ; [*050C.0020.0002] # LEFT-FACING SVASTI SIGN WITH DOTS
+0FD9  ; [*03EB.0020.0002] # TIBETAN MARK LEADING MCHAN RTAGS
+0FDA  ; [*03EC.0020.0002] # TIBETAN MARK TRAILING MCHAN RTAGS
+104A  ; [*0296.0020.0002] # MYANMAR SIGN LITTLE SECTION
+104B  ; [*0297.0020.0002] # MYANMAR SIGN SECTION
+104C  ; [*03F0.0020.0002] # MYANMAR SYMBOL LOCATIVE
+104D  ; [*03F1.0020.0002] # MYANMAR SYMBOL COMPLETED
+104E  ; [*03F2.0020.0002] # MYANMAR SYMBOL AFOREMENTIONED
+104F  ; [*03F3.0020.0002] # MYANMAR SYMBOL GENITIVE
+109E  ; [*050E.0020.0002] # MYANMAR SYMBOL SHAN ONE
+109F  ; [*050F.0020.0002] # MYANMAR SYMBOL SHAN EXCLAMATION
+10FB  ; [*02BD.0020.0002] # GEORGIAN PARAGRAPH SEPARATOR
+1360  ; [*02BE.0020.0002] # ETHIOPIC SECTION MARK
+1361  ; [*0250.0020.0002] # ETHIOPIC WORDSPACE
+1362  ; [*0279.0020.0002] # ETHIOPIC FULL STOP
+1363  ; [*0251.0020.0002] # ETHIOPIC COMMA
+1364  ; [*0252.0020.0002] # ETHIOPIC SEMICOLON
+1365  ; [*0253.0020.0002] # ETHIOPIC COLON
+1366  ; [*0254.0020.0002] # ETHIOPIC PREFACE COLON
+1367  ; [*026A.0020.0002] # ETHIOPIC QUESTION MARK
+1368  ; [*02BF.0020.0002] # ETHIOPIC PARAGRAPH SEPARATOR
+1372  ; [*17CC.0020.0002] # ETHIOPIC NUMBER TEN
+1373  ; [*17CD.0020.0002] # ETHIOPIC NUMBER TWENTY
+1374  ; [*17CE.0020.0002] # ETHIOPIC NUMBER THIRTY
+1375  ; [*17CF.0020.0002] # ETHIOPIC NUMBER FORTY
+1376  ; [*17D0.0020.0002] # ETHIOPIC NUMBER FIFTY
+1377  ; [*17D1.0020.0002] # ETHIOPIC NUMBER SIXTY
+1378  ; [*17D2.0020.0002] # ETHIOPIC NUMBER SEVENTY
+1379  ; [*17D3.0020.0002] # ETHIOPIC NUMBER EIGHTY
+137A  ; [*17D4.0020.0002] # ETHIOPIC NUMBER NINETY
+137B  ; [*17D5.0020.0002] # ETHIOPIC NUMBER HUNDRED
+137C  ; [*17D6.0020.0002] # ETHIOPIC NUMBER TEN THOUSAND
+1390  ; [*048A.0020.0002] # ETHIOPIC TONAL MARK YIZET
+1391  ; [*048B.0020.0002] # ETHIOPIC TONAL MARK DERET
+1392  ; [*048C.0020.0002] # ETHIOPIC TONAL MARK RIKRIK
+1393  ; [*048D.0020.0002] # ETHIOPIC TONAL MARK SHORT RIKRIK
+1394  ; [*048E.0020.0002] # ETHIOPIC TONAL MARK DIFAT
+1395  ; [*048F.0020.0002] # ETHIOPIC TONAL MARK KENAT
+1396  ; [*0490.0020.0002] # ETHIOPIC TONAL MARK CHIRET
+1397  ; [*0491.0020.0002] # ETHIOPIC TONAL MARK HIDET
+1398  ; [*0492.0020.0002] # ETHIOPIC TONAL MARK DERET-HIDET
+1399  ; [*0493.0020.0002] # ETHIOPIC TONAL MARK KURT
+1400  ; [*020F.0020.0002] # CANADIAN SYLLABICS HYPHEN
+166D  ; [*0400.0020.0002] # CANADIAN SYLLABICS CHI SIGN
+166E  ; [*027C.0020.0002] # CANADIAN SYLLABICS FULL STOP
+1680  ; [*0209.0020.0004] # OGHAM SPACE MARK
+169B  ; [*0314.0020.0002] # OGHAM FEATHER MARK
+169C  ; [*0315.0020.0002] # OGHAM REVERSED FEATHER MARK
+16EB  ; [*025B.0020.0002] # RUNIC SINGLE PUNCTUATION
+16EC  ; [*025C.0020.0002] # RUNIC MULTIPLE PUNCTUATION
+16ED  ; [*025D.0020.0002] # RUNIC CROSS PUNCTUATION
+1735  ; [*0293.0020.0002] # PHILIPPINE SINGLE PUNCTUATION
+1736  ; [*0294.0020.0002] # PHILIPPINE DOUBLE PUNCTUATION
+17B4  ; [.0000.0000.0000] # KHMER VOWEL INHERENT AQ
+17B5  ; [.0000.0000.0000] # KHMER VOWEL INHERENT AA
+17D3  ; [.0000.0000.0000] # KHMER SIGN BATHAMASAT
+17D4  ; [*0298.0020.0002] # KHMER SIGN KHAN
+17D5  ; [*0299.0020.0002] # KHMER SIGN BARIYOOSAN
+17D6  ; [*0258.0020.0002] # KHMER SIGN CAMNUC PII KUUH
+17D8  ; [*03F4.0020.0002] # KHMER SIGN BEYYAL
+17D9  ; [*03F5.0020.0002] # KHMER SIGN PHNAEK MUAN
+17DA  ; [*03F6.0020.0002] # KHMER SIGN KOOMUUT
+1800  ; [*03CB.0020.0002] # MONGOLIAN BIRGA
+1801  ; [*0275.0020.0002] # MONGOLIAN ELLIPSIS
+1802  ; [*022B.0020.0002] # MONGOLIAN COMMA
+1803  ; [*027A.0020.0002] # MONGOLIAN FULL STOP
+1804  ; [*0255.0020.0002] # MONGOLIAN COLON
+1805  ; [*0256.0020.0002] # MONGOLIAN FOUR DOTS
+1806  ; [*0211.0020.0002] # MONGOLIAN TODO SOFT HYPHEN
+1807  ; [*0212.0020.0002] # MONGOLIAN SIBE SYLLABLE BOUNDARY MARKER
+1808  ; [*022C.0020.0002] # MONGOLIAN MANCHU COMMA
+1809  ; [*027B.0020.0002] # MONGOLIAN MANCHU FULL STOP
+180A  ; [.0000.0000.0000] # MONGOLIAN NIRUGU
+1940  ; [*050D.0020.0002] # LIMBU SIGN LOO
+1944  ; [*0263.0020.0002] # LIMBU EXCLAMATION MARK
+1945  ; [*026B.0020.0002] # LIMBU QUESTION MARK
+19E0  ; [*0513.0020.0002] # KHMER SYMBOL PATHAMASAT
+19E1  ; [*0514.0020.0002] # KHMER SYMBOL MUOY KOET
+19E2  ; [*0515.0020.0002] # KHMER SYMBOL PII KOET
+19E3  ; [*0516.0020.0002] # KHMER SYMBOL BEI KOET
+19E4  ; [*0517.0020.0002] # KHMER SYMBOL BUON KOET
+19E5  ; [*0518.0020.0002] # KHMER SYMBOL PRAM KOET
+19E6  ; [*0519.0020.0002] # KHMER SYMBOL PRAM-MUOY KOET
+19E7  ; [*051A.0020.0002] # KHMER SYMBOL PRAM-PII KOET
+19E8  ; [*051B.0020.0002] # KHMER SYMBOL PRAM-BEI KOET
+19E9  ; [*051C.0020.0002] # KHMER SYMBOL PRAM-BUON KOET
+19EA  ; [*051D.0020.0002] # KHMER SYMBOL DAP KOET
+19EB  ; [*051E.0020.0002] # KHMER SYMBOL DAP-MUOY KOET
+19EC  ; [*051F.0020.0002] # KHMER SYMBOL DAP-PII KOET
+19ED  ; [*0520.0020.0002] # KHMER SYMBOL DAP-BEI KOET
+19EE  ; [*0521.0020.0002] # KHMER SYMBOL DAP-BUON KOET
+19EF  ; [*0522.0020.0002] # KHMER SYMBOL DAP-PRAM KOET
+19F0  ; [*0523.0020.0002] # KHMER SYMBOL TUTEYASAT
+19F1  ; [*0524.0020.0002] # KHMER SYMBOL MUOY ROC
+19F2  ; [*0525.0020.0002] # KHMER SYMBOL PII ROC
+19F3  ; [*0526.0020.0002] # KHMER SYMBOL BEI ROC
+19F4  ; [*0527.0020.0002] # KHMER SYMBOL BUON ROC
+19F5  ; [*0528.0020.0002] # KHMER SYMBOL PRAM ROC
+19F6  ; [*0529.0020.0002] # KHMER SYMBOL PRAM-MUOY ROC
+19F7  ; [*052A.0020.0002] # KHMER SYMBOL PRAM-PII ROC
+19F8  ; [*052B.0020.0002] # KHMER SYMBOL PRAM-BEI ROC
+19F9  ; [*052C.0020.0002] # KHMER SYMBOL PRAM-BUON ROC
+19FA  ; [*052D.0020.0002] # KHMER SYMBOL DAP ROC
+19FB  ; [*052E.0020.0002] # KHMER SYMBOL DAP-MUOY ROC
+19FC  ; [*052F.0020.0002] # KHMER SYMBOL DAP-PII ROC
+19FD  ; [*0530.0020.0002] # KHMER SYMBOL DAP-BEI ROC
+19FE  ; [*0531.0020.0002] # KHMER SYMBOL DAP-BUON ROC
+19FF  ; [*0532.0020.0002] # KHMER SYMBOL DAP-PRAM ROC
+1A1E  ; [*02C0.0020.0002] # BUGINESE PALLAWA
+1A1F  ; [*02C1.0020.0002] # BUGINESE END OF SECTION
+1A7F  ; [.0000.0000.0000] # TAI THAM COMBINING CRYPTOGRAMMIC DOT
+1AA0  ; [*03F7.0020.0002] # TAI THAM SIGN WIANG
+1AA1  ; [*03F8.0020.0002] # TAI THAM SIGN WIANGWAAK
+1AA2  ; [*03F9.0020.0002] # TAI THAM SIGN SAWAN
+1AA3  ; [*03FA.0020.0002] # TAI THAM SIGN KEOW
+1AA4  ; [*03FB.0020.0002] # TAI THAM SIGN HOY
+1AA5  ; [*03FC.0020.0002] # TAI THAM SIGN DOKMAI
+1AA6  ; [*03FD.0020.0002] # TAI THAM SIGN REVERSED ROTATED RANA
+1AA8  ; [*029A.0020.0002] # TAI THAM SIGN KAAN
+1AA9  ; [*029B.0020.0002] # TAI THAM SIGN KAANKUU
+1AAA  ; [*029C.0020.0002] # TAI THAM SIGN SATKAAN
+1AAB  ; [*029D.0020.0002] # TAI THAM SIGN SATKAANKUU
+1AAC  ; [*03FE.0020.0002] # TAI THAM SIGN HANG
+1AAD  ; [*03FF.0020.0002] # TAI THAM SIGN CAANG
+1B5A  ; [*02C2.0020.0002] # BALINESE PANTI
+1B5B  ; [*02C3.0020.0002] # BALINESE PAMADA
+1B5C  ; [*027D.0020.0002] # BALINESE WINDU
+1B5D  ; [*0259.0020.0002] # BALINESE CARIK PAMUNGKAH
+1B5E  ; [*029E.0020.0002] # BALINESE CARIK SIKI
+1B5F  ; [*029F.0020.0002] # BALINESE CARIK PAREREN
+1B60  ; [*0210.0020.0002] # BALINESE PAMENENG
+1B61  ; [*0533.0020.0002] # BALINESE MUSICAL SYMBOL DONG
+1B62  ; [*0534.0020.0002] # BALINESE MUSICAL SYMBOL DENG
+1B63  ; [*0535.0020.0002] # BALINESE MUSICAL SYMBOL DUNG
+1B64  ; [*0536.0020.0002] # BALINESE MUSICAL SYMBOL DANG
+1B65  ; [*0537.0020.0002] # BALINESE MUSICAL SYMBOL DANG SURANG
+1B66  ; [*0538.0020.0002] # BALINESE MUSICAL SYMBOL DING
+1B67  ; [*0539.0020.0002] # BALINESE MUSICAL SYMBOL DAENG
+1B68  ; [*053A.0020.0002] # BALINESE MUSICAL SYMBOL DEUNG
+1B69  ; [*053B.0020.0002] # BALINESE MUSICAL SYMBOL DAING
+1B6A  ; [*053C.0020.0002] # BALINESE MUSICAL SYMBOL DANG GEDE
+1B6B  ; [.0000.0000.0000] # BALINESE MUSICAL SYMBOL COMBINING TEGEH
+1B6C  ; [.0000.0000.0000] # BALINESE MUSICAL SYMBOL COMBINING ENDEP
+1B6D  ; [.0000.0000.0000] # BALINESE MUSICAL SYMBOL COMBINING KEMPUL
+1B6E  ; [.0000.0000.0000] # BALINESE MUSICAL SYMBOL COMBINING KEMPLI
+1B6F  ; [.0000.0000.0000] # BALINESE MUSICAL SYMBOL COMBINING JEGOGAN
+1B70  ; [.0000.0000.0000] # BALINESE MUSICAL SYMBOL COMBINING KEMPUL WITH JEGOGAN
+1B71  ; [.0000.0000.0000] # BALINESE MUSICAL SYMBOL COMBINING KEMPLI WITH JEGOGAN
+1B72  ; [.0000.0000.0000] # BALINESE MUSICAL SYMBOL COMBINING BENDE
+1B73  ; [.0000.0000.0000] # BALINESE MUSICAL SYMBOL COMBINING GONG
+1B74  ; [*053D.0020.0002] # BALINESE MUSICAL SYMBOL RIGHT-HAND OPEN DUG
+1B75  ; [*053E.0020.0002] # BALINESE MUSICAL SYMBOL RIGHT-HAND OPEN DAG
+1B76  ; [*053F.0020.0002] # BALINESE MUSICAL SYMBOL RIGHT-HAND CLOSED TUK
+1B77  ; [*0540.0020.0002] # BALINESE MUSICAL SYMBOL RIGHT-HAND CLOSED TAK
+1B78  ; [*0541.0020.0002] # BALINESE MUSICAL SYMBOL LEFT-HAND OPEN PANG
+1B79  ; [*0542.0020.0002] # BALINESE MUSICAL SYMBOL LEFT-HAND OPEN PUNG
+1B7A  ; [*0543.0020.0002] # BALINESE MUSICAL SYMBOL LEFT-HAND CLOSED PLAK
+1B7B  ; [*0544.0020.0002] # BALINESE MUSICAL SYMBOL LEFT-HAND CLOSED PLUK
+1B7C  ; [*0545.0020.0002] # BALINESE MUSICAL SYMBOL LEFT-HAND OPEN PING
+1BFC  ; [*040C.0020.0002] # BATAK SYMBOL BINDU NA METEK
+1BFD  ; [*040D.0020.0002] # BATAK SYMBOL BINDU PINARBORAS
+1BFE  ; [*040E.0020.0002] # BATAK SYMBOL BINDU JUDUL
+1BFF  ; [*040F.0020.0002] # BATAK SYMBOL BINDU PANGOLAT
+1C3B  ; [*028F.0020.0002] # LEPCHA PUNCTUATION TA-ROL
+1C3C  ; [*0290.0020.0002] # LEPCHA PUNCTUATION NYET THYOOM TA-ROL
+1C3D  ; [*03ED.0020.0002] # LEPCHA PUNCTUATION CER-WA
+1C3E  ; [*03EE.0020.0002] # LEPCHA PUNCTUATION TSHOOK CER-WA
+1C3F  ; [*03EF.0020.0002] # LEPCHA PUNCTUATION TSHOOK
+1C7E  ; [*02B9.0020.0002] # OL CHIKI PUNCTUATION MUCAAD
+1C7F  ; [*02BA.0020.0002] # OL CHIKI PUNCTUATION DOUBLE MUCAAD
+1CC0  ; [*0401.0020.0002] # SUNDANESE PUNCTUATION BINDU SURYA
+1CC1  ; [*0402.0020.0002] # SUNDANESE PUNCTUATION BINDU PANGLONG
+1CC2  ; [*0403.0020.0002] # SUNDANESE PUNCTUATION BINDU PURNAMA
+1CC3  ; [*0404.0020.0002] # SUNDANESE PUNCTUATION BINDU CAKRA
+1CC4  ; [*0405.0020.0002] # SUNDANESE PUNCTUATION BINDU LEU SATANGA
+1CC5  ; [*0406.0020.0002] # SUNDANESE PUNCTUATION BINDU KA SATANGA
+1CC6  ; [*0407.0020.0002] # SUNDANESE PUNCTUATION BINDU DA SATANGA
+1CC7  ; [*0408.0020.0002] # SUNDANESE PUNCTUATION BINDU BA SATANGA
+1CD0  ; [.0000.0000.0000] # VEDIC TONE KARSHANA
+1CD1  ; [.0000.0000.0000] # VEDIC TONE SHARA
+1CD2  ; [.0000.0000.0000] # VEDIC TONE PRENKHA
+1CD3  ; [.0000.0000.0000] # VEDIC SIGN NIHSHVASA
+1CD4  ; [.0000.0000.0000] # VEDIC SIGN YAJURVEDIC MIDLINE SVARITA
+1CD5  ; [.0000.0000.0000] # VEDIC TONE YAJURVEDIC AGGRAVATED INDEPENDENT SVARITA
+1CD6  ; [.0000.0000.0000] # VEDIC TONE YAJURVEDIC INDEPENDENT SVARITA
+1CD7  ; [.0000.0000.0000] # VEDIC TONE YAJURVEDIC KATHAKA INDEPENDENT SVARITA
+1CD8  ; [.0000.0000.0000] # VEDIC TONE CANDRA BELOW
+1CD9  ; [.0000.0000.0000] # VEDIC TONE YAJURVEDIC KATHAKA INDEPENDENT SVARITA SCHROEDER
+1CDA  ; [.0000.0000.0000] # VEDIC TONE DOUBLE SVARITA
+1CDB  ; [.0000.0000.0000] # VEDIC TONE TRIPLE SVARITA
+1CDC  ; [.0000.0000.0000] # VEDIC TONE KATHAKA ANUDATTA
+1CDD  ; [.0000.0000.0000] # VEDIC TONE DOT BELOW
+1CDE  ; [.0000.0000.0000] # VEDIC TONE TWO DOTS BELOW
+1CDF  ; [.0000.0000.0000] # VEDIC TONE THREE DOTS BELOW
+1CE0  ; [.0000.0000.0000] # VEDIC TONE RIGVEDIC KASHMIRI INDEPENDENT SVARITA
+1CE1  ; [.0000.0000.0000] # VEDIC TONE ATHARVAVEDIC INDEPENDENT SVARITA
+1CE2  ; [.0000.0000.0000] # VEDIC SIGN VISARGA SVARITA
+1CE3  ; [.0000.0000.0000] # VEDIC SIGN VISARGA UDATTA
+1CE4  ; [.0000.0000.0000] # VEDIC SIGN REVERSED VISARGA UDATTA
+1CE5  ; [.0000.0000.0000] # VEDIC SIGN VISARGA ANUDATTA
+1CE6  ; [.0000.0000.0000] # VEDIC SIGN REVERSED VISARGA ANUDATTA
+1CE7  ; [.0000.0000.0000] # VEDIC SIGN VISARGA UDATTA WITH TAIL
+1CE8  ; [.0000.0000.0000] # VEDIC SIGN VISARGA ANUDATTA WITH TAIL
+1CF4  ; [.0000.0000.0000] # VEDIC TONE CANDRA ABOVE
+1CF8  ; [.0000.0000.0000] # VEDIC TONE RING ABOVE
+1CF9  ; [.0000.0000.0000] # VEDIC TONE DOUBLE RING ABOVE
+1FBD  ; [*0452.0020.0002] # GREEK KORONIS
+1FBF  ; [*0452.0020.0002] # GREEK PSILI
+1FC0  ; [*0454.0020.0002] # GREEK PERISPOMENI
+1FC1  ; [*044D.0020.0002][.0000.002A.0002] # GREEK DIALYTIKA AND PERISPOMENI
+1FCD  ; [*0452.0020.0002][.0000.0025.0002] # GREEK PSILI AND VARIA
+1FCE  ; [*0452.0020.0002][.0000.0024.0002] # GREEK PSILI AND OXIA
+1FCF  ; [*0452.0020.0002][.0000.002A.0002] # GREEK PSILI AND PERISPOMENI
+1FDD  ; [*0453.0020.0002][.0000.0025.0002] # GREEK DASIA AND VARIA
+1FDE  ; [*0453.0020.0002][.0000.0024.0002] # GREEK DASIA AND OXIA
+1FDF  ; [*0453.0020.0002][.0000.002A.0002] # GREEK DASIA AND PERISPOMENI
+1FED  ; [*044D.0020.0002][.0000.0025.0002] # GREEK DIALYTIKA AND VARIA
+1FEE  ; [*044D.0020.0002][.0000.0024.0002] # GREEK DIALYTIKA AND OXIA
+1FEF  ; [*0446.0020.0002] # GREEK VARIA
+1FFD  ; [*0447.0020.0002] # GREEK OXIA
+1FFE  ; [*0453.0020.0002] # GREEK DASIA
+2000  ; [*0209.0020.0004] # EN QUAD
+2001  ; [*0209.0020.0004] # EM QUAD
+2002  ; [*0209.0020.0004] # EN SPACE
+2003  ; [*0209.0020.0004] # EM SPACE
+2004  ; [*0209.0020.0004] # THREE-PER-EM SPACE
+2005  ; [*0209.0020.0004] # FOUR-PER-EM SPACE
+2006  ; [*0209.0020.0004] # SIX-PER-EM SPACE
+2007  ; [*0209.0020.001B] # FIGURE SPACE
+2008  ; [*0209.0020.0004] # PUNCTUATION SPACE
+2009  ; [*0209.0020.0004] # THIN SPACE
+200A  ; [*0209.0020.0004] # HAIR SPACE
+2010  ; [*0213.0020.0002] # HYPHEN
+2011  ; [*0213.0020.001B] # NON-BREAKING HYPHEN
+2012  ; [*0214.0020.0002] # FIGURE DASH
+2013  ; [*0215.0020.0002] # EN DASH
+2014  ; [*0216.0020.0002] # EM DASH
+2015  ; [*0217.0020.0002] # HORIZONTAL BAR
+2016  ; [*0376.0020.0002] # DOUBLE VERTICAL LINE
+2017  ; [*020C.0020.0002] # DOUBLE LOW LINE
+2018  ; [*02F9.0020.0002] # LEFT SINGLE QUOTATION MARK
+2019  ; [*02FA.0020.0002] # RIGHT SINGLE QUOTATION MARK
+201A  ; [*02FB.0020.0002] # SINGLE LOW-9 QUOTATION MARK
+201B  ; [*02FC.0020.0002] # SINGLE HIGH-REVERSED-9 QUOTATION MARK
+201C  ; [*0300.0020.0002] # LEFT DOUBLE QUOTATION MARK
+201D  ; [*0301.0020.0002] # RIGHT DOUBLE QUOTATION MARK
+201E  ; [*0302.0020.0002] # DOUBLE LOW-9 QUOTATION MARK
+201F  ; [*0303.0020.0002] # DOUBLE HIGH-REVERSED-9 QUOTATION MARK
+2020  ; [*0392.0020.0002] # DAGGER
+2021  ; [*0393.0020.0002] # DOUBLE DAGGER
+2022  ; [*0397.0020.0002] # BULLET
+2023  ; [*0398.0020.0002] # TRIANGULAR BULLET
+2024  ; [*0274.0020.0004] # ONE DOT LEADER
+2025  ; [*0274.0020.0004][*0274.0020.0004] # TWO DOT LEADER
+2026  ; [*0274.0020.0004][*0274.0020.0004][*0274.0020.0004] # HORIZONTAL ELLIPSIS
+2027  ; [*0399.0020.0002] # HYPHENATION POINT
+2028  ; [*0207.0020.0002] # LINE SEPARATOR
+2029  ; [*0208.0020.0002] # PARAGRAPH SEPARATOR
+202F  ; [*0209.0020.001B] # NARROW NO-BREAK SPACE
+2030  ; [*038E.0020.0002] # PER MILLE SIGN
+2031  ; [*0390.0020.0002] # PER TEN THOUSAND SIGN
+2032  ; [*039D.0020.0002] # PRIME
+2033  ; [*039D.0020.0004][*039D.0020.0004] # DOUBLE PRIME
+2034  ; [*039D.0020.0004][*039D.0020.0004][*039D.0020.0004] # TRIPLE PRIME
+2035  ; [*039E.0020.0002] # REVERSED PRIME
+2036  ; [*039E.0020.0004][*039E.0020.0004] # REVERSED DOUBLE PRIME
+2037  ; [*039E.0020.0004][*039E.0020.0004][*039E.0020.0004] # REVERSED TRIPLE PRIME
+2038  ; [*03A1.0020.0002] # CARET
+2039  ; [*02FD.0020.0002] # SINGLE LEFT-POINTING ANGLE QUOTATION MARK
+203A  ; [*02FE.0020.0002] # SINGLE RIGHT-POINTING ANGLE QUOTATION MARK
+203B  ; [*03A2.0020.0002] # REFERENCE MARK
+203C  ; [*025F.0020.0004][*025F.0020.0004] # DOUBLE EXCLAMATION MARK
+203D  ; [*0272.0020.0002] # INTERROBANG
+203E  ; [*020A.0020.0002] # OVERLINE
+203F  ; [*03A3.0020.0002] # UNDERTIE
+2040  ; [*03A5.0020.0002] # CHARACTER TIE
+2041  ; [*03A7.0020.0002] # CARET INSERTION POINT
+2042  ; [*03A8.0020.0002] # ASTERISM
+2043  ; [*039A.0020.0002] # HYPHEN BULLET
+2044  ; [*05E6.0020.0002] # FRACTION SLASH
+2045  ; [*0316.0020.0002] # LEFT SQUARE BRACKET WITH QUILL
+2046  ; [*0317.0020.0002] # RIGHT SQUARE BRACKET WITH QUILL
+2047  ; [*0264.0020.0004][*0264.0020.0004] # DOUBLE QUESTION MARK
+2048  ; [*0264.0020.0004][*025F.0020.0004] # QUESTION EXCLAMATION MARK
+2049  ; [*025F.0020.0004][*0264.0020.0004] # EXCLAMATION QUESTION MARK
+204A  ; [*038A.0020.0002] # TIRONIAN SIGN ET
+204B  ; [*037F.0020.0002] # REVERSED PILCROW SIGN
+204C  ; [*039B.0020.0002] # BLACK LEFTWARDS BULLET
+204D  ; [*039C.0020.0002] # BLACK RIGHTWARDS BULLET
+204E  ; [*0383.0020.0002] # LOW ASTERISK
+204F  ; [*0235.0020.0002] # REVERSED SEMICOLON
+2050  ; [*03A6.0020.0002] # CLOSE UP
+2051  ; [*0384.0020.0002] # TWO ASTERISKS ALIGNED VERTICALLY
+2052  ; [*05E2.0020.0002] # COMMERCIAL MINUS SIGN
+2053  ; [*021A.0020.0002] # SWUNG DASH
+2054  ; [*03A4.0020.0002] # INVERTED UNDERTIE
+2055  ; [*02DB.0020.0002] # FLOWER PUNCTUATION MARK
+2056  ; [*02DC.0020.0002] # THREE DOT PUNCTUATION
+2057  ; [*039D.0020.0004][*039D.0020.0004][*039D.0020.0004][*039D.0020.0004] # QUADRUPLE PRIME
+2058  ; [*02DD.0020.0002] # FOUR DOT PUNCTUATION
+2059  ; [*02DE.0020.0002] # FIVE DOT PUNCTUATION
+205A  ; [*02DF.0020.0002] # TWO DOT PUNCTUATION
+205B  ; [*02E0.0020.0002] # FOUR DOT MARK
+205C  ; [*02E1.0020.0002] # DOTTED CROSS
+205D  ; [*02E2.0020.0002] # TRICOLON
+205E  ; [*02E3.0020.0002] # VERTICAL FOUR DOTS
+205F  ; [*0209.0020.0004] # MEDIUM MATHEMATICAL SPACE
+2061  ; [.0000.0000.0000] # FUNCTION APPLICATION
+2062  ; [.0000.0000.0000] # INVISIBLE TIMES
+2063  ; [.0000.0000.0000] # INVISIBLE SEPARATOR
+2064  ; [.0000.0000.0000] # INVISIBLE PLUS
+207A  ; [*05D6.0020.0014] # SUPERSCRIPT PLUS SIGN
+207B  ; [*05E1.0020.0014] # SUPERSCRIPT MINUS
+207C  ; [*05DB.0020.0014] # SUPERSCRIPT EQUALS SIGN
+207D  ; [*030A.0020.0014] # SUPERSCRIPT LEFT PARENTHESIS
+207E  ; [*030B.0020.0014] # SUPERSCRIPT RIGHT PARENTHESIS
+208A  ; [*05D6.0020.0015] # SUBSCRIPT PLUS SIGN
+208B  ; [*05E1.0020.0015] # SUBSCRIPT MINUS
+208C  ; [*05DB.0020.0015] # SUBSCRIPT EQUALS SIGN
+208D  ; [*030A.0020.0015] # SUBSCRIPT LEFT PARENTHESIS
+208E  ; [*030B.0020.0015] # SUBSCRIPT RIGHT PARENTHESIS
+2104  ; [*0548.0020.0002] # CENTRE LINE SYMBOL
+2108  ; [*0549.0020.0002] # SCRUPLE
+2114  ; [*054A.0020.0002] # L B BAR SYMBOL
+2117  ; [*054B.0020.0002] # SOUND RECORDING COPYRIGHT
+2118  ; [*054C.0020.0002] # SCRIPT CAPITAL P
+211E  ; [*054D.0020.0002] # PRESCRIPTION TAKE
+211F  ; [*054E.0020.0002] # RESPONSE
+2123  ; [*054F.0020.0002] # VERSICLE
+2125  ; [*0550.0020.0002] # OUNCE SIGN
+2127  ; [*0551.0020.0002] # INVERTED OHM SIGN
+2129  ; [*0552.0020.0002] # TURNED GREEK SMALL LETTER IOTA
+212E  ; [*0553.0020.0002] # ESTIMATED SYMBOL
+213A  ; [*0554.0020.0002] # ROTATED CAPITAL Q
+2140  ; [*05D5.0020.0005] # DOUBLE-STRUCK N-ARY SUMMATION
+2141  ; [*0555.0020.0002] # TURNED SANS-SERIF CAPITAL G
+2142  ; [*0556.0020.0002] # TURNED SANS-SERIF CAPITAL L
+2143  ; [*0557.0020.0002] # REVERSED SANS-SERIF CAPITAL L
+2144  ; [*0558.0020.0002] # TURNED SANS-SERIF CAPITAL Y
+214A  ; [*0559.0020.0002] # PROPERTY LINE
+214B  ; [*0671.0020.0002] # TURNED AMPERSAND
+214C  ; [*055A.0020.0002] # PER SIGN
+214F  ; [*055B.0020.0002] # SYMBOL FOR SAMARITAN SOURCE
+2180  ; [*17D7.0020.0002] # ROMAN NUMERAL ONE THOUSAND C D
+2181  ; [*17D8.0020.0002] # ROMAN NUMERAL FIVE THOUSAND
+2182  ; [*17D9.0020.0002] # ROMAN NUMERAL TEN THOUSAND
+2186  ; [*17DA.0020.0002] # ROMAN NUMERAL FIFTY EARLY FORM
+2187  ; [*17DB.0020.0002] # ROMAN NUMERAL FIFTY THOUSAND
+2188  ; [*17DC.0020.0002] # ROMAN NUMERAL ONE HUNDRED THOUSAND
+2190  ; [*055C.0020.0002] # LEFTWARDS ARROW
+2191  ; [*055E.0020.0002] # UPWARDS ARROW
+2192  ; [*055D.0020.0002] # RIGHTWARDS ARROW
+2193  ; [*055F.0020.0002] # DOWNWARDS ARROW
+2194  ; [*0560.0020.0002] # LEFT RIGHT ARROW
+2195  ; [*0561.0020.0002] # UP DOWN ARROW
+2196  ; [*0562.0020.0002] # NORTH WEST ARROW
+2197  ; [*0563.0020.0002] # NORTH EAST ARROW
+2198  ; [*0564.0020.0002] # SOUTH EAST ARROW
+2199  ; [*0565.0020.0002] # SOUTH WEST ARROW
+219A  ; [*055C.0020.0002][.0000.002F.0002] # LEFTWARDS ARROW WITH STROKE
+219B  ; [*055D.0020.0002][.0000.002F.0002] # RIGHTWARDS ARROW WITH STROKE
+219C  ; [*0566.0020.0002] # LEFTWARDS WAVE ARROW
+219D  ; [*0567.0020.0002] # RIGHTWARDS WAVE ARROW
+219E  ; [*0568.0020.0002] # LEFTWARDS TWO HEADED ARROW
+219F  ; [*0569.0020.0002] # UPWARDS TWO HEADED ARROW
+21A0  ; [*056A.0020.0002] # RIGHTWARDS TWO HEADED ARROW
+21A1  ; [*056B.0020.0002] # DOWNWARDS TWO HEADED ARROW
+21A2  ; [*056C.0020.0002] # LEFTWARDS ARROW WITH TAIL
+21A3  ; [*056D.0020.0002] # RIGHTWARDS ARROW WITH TAIL
+21A4  ; [*056E.0020.0002] # LEFTWARDS ARROW FROM BAR
+21A5  ; [*056F.0020.0002] # UPWARDS ARROW FROM BAR
+21A6  ; [*0570.0020.0002] # RIGHTWARDS ARROW FROM BAR
+21A7  ; [*0571.0020.0002] # DOWNWARDS ARROW FROM BAR
+21A8  ; [*0572.0020.0002] # UP DOWN ARROW WITH BASE
+21A9  ; [*0573.0020.0002] # LEFTWARDS ARROW WITH HOOK
+21AA  ; [*0574.0020.0002] # RIGHTWARDS ARROW WITH HOOK
+21AB  ; [*0575.0020.0002] # LEFTWARDS ARROW WITH LOOP
+21AC  ; [*0576.0020.0002] # RIGHTWARDS ARROW WITH LOOP
+21AD  ; [*0577.0020.0002] # LEFT RIGHT WAVE ARROW
+21AE  ; [*0560.0020.0002][.0000.002F.0002] # LEFT RIGHT ARROW WITH STROKE
+21AF  ; [*0578.0020.0002] # DOWNWARDS ZIGZAG ARROW
+21B0  ; [*0579.0020.0002] # UPWARDS ARROW WITH TIP LEFTWARDS
+21B1  ; [*057A.0020.0002] # UPWARDS ARROW WITH TIP RIGHTWARDS
+21B2  ; [*057B.0020.0002] # DOWNWARDS ARROW WITH TIP LEFTWARDS
+21B3  ; [*057C.0020.0002] # DOWNWARDS ARROW WITH TIP RIGHTWARDS
+21B4  ; [*057D.0020.0002] # RIGHTWARDS ARROW WITH CORNER DOWNWARDS
+21B5  ; [*057E.0020.0002] # DOWNWARDS ARROW WITH CORNER LEFTWARDS
+21B6  ; [*057F.0020.0002] # ANTICLOCKWISE TOP SEMICIRCLE ARROW
+21B7  ; [*0580.0020.0002] # CLOCKWISE TOP SEMICIRCLE ARROW
+21B8  ; [*0581.0020.0002] # NORTH WEST ARROW TO LONG BAR
+21B9  ; [*0582.0020.0002] # LEFTWARDS ARROW TO BAR OVER RIGHTWARDS ARROW TO BAR
+21BA  ; [*0583.0020.0002] # ANTICLOCKWISE OPEN CIRCLE ARROW
+21BB  ; [*0584.0020.0002] # CLOCKWISE OPEN CIRCLE ARROW
+21BC  ; [*0585.0020.0002] # LEFTWARDS HARPOON WITH BARB UPWARDS
+21BD  ; [*0586.0020.0002] # LEFTWARDS HARPOON WITH BARB DOWNWARDS
+21BE  ; [*0587.0020.0002] # UPWARDS HARPOON WITH BARB RIGHTWARDS
+21BF  ; [*0588.0020.0002] # UPWARDS HARPOON WITH BARB LEFTWARDS
+21C0  ; [*0589.0020.0002] # RIGHTWARDS HARPOON WITH BARB UPWARDS
+21C1  ; [*058A.0020.0002] # RIGHTWARDS HARPOON WITH BARB DOWNWARDS
+21C2  ; [*058B.0020.0002] # DOWNWARDS HARPOON WITH BARB RIGHTWARDS
+21C3  ; [*058C.0020.0002] # DOWNWARDS HARPOON WITH BARB LEFTWARDS
+21C4  ; [*058D.0020.0002] # RIGHTWARDS ARROW OVER LEFTWARDS ARROW
+21C5  ; [*058E.0020.0002] # UPWARDS ARROW LEFTWARDS OF DOWNWARDS ARROW
+21C6  ; [*058F.0020.0002] # LEFTWARDS ARROW OVER RIGHTWARDS ARROW
+21C7  ; [*0590.0020.0002] # LEFTWARDS PAIRED ARROWS
+21C8  ; [*0591.0020.0002] # UPWARDS PAIRED ARROWS
+21C9  ; [*0592.0020.0002] # RIGHTWARDS PAIRED ARROWS
+21CA  ; [*0593.0020.0002] # DOWNWARDS PAIRED ARROWS
+21CB  ; [*0594.0020.0002] # LEFTWARDS HARPOON OVER RIGHTWARDS HARPOON
+21CC  ; [*0595.0020.0002] # RIGHTWARDS HARPOON OVER LEFTWARDS HARPOON
+21CD  ; [*0596.0020.0002][.0000.002F.0002] # LEFTWARDS DOUBLE ARROW WITH STROKE
+21CE  ; [*059A.0020.0002][.0000.002F.0002] # LEFT RIGHT DOUBLE ARROW WITH STROKE
+21CF  ; [*0598.0020.0002][.0000.002F.0002] # RIGHTWARDS DOUBLE ARROW WITH STROKE
+21D0  ; [*0596.0020.0002] # LEFTWARDS DOUBLE ARROW
+21D1  ; [*0597.0020.0002] # UPWARDS DOUBLE ARROW
+21D2  ; [*0598.0020.0002] # RIGHTWARDS DOUBLE ARROW
+21D3  ; [*0599.0020.0002] # DOWNWARDS DOUBLE ARROW
+21D4  ; [*059A.0020.0002] # LEFT RIGHT DOUBLE ARROW
+21D5  ; [*059B.0020.0002] # UP DOWN DOUBLE ARROW
+21D6  ; [*059C.0020.0002] # NORTH WEST DOUBLE ARROW
+21D7  ; [*059D.0020.0002] # NORTH EAST DOUBLE ARROW
+21D8  ; [*059E.0020.0002] # SOUTH EAST DOUBLE ARROW
+21D9  ; [*059F.0020.0002] # SOUTH WEST DOUBLE ARROW
+21DA  ; [*05A0.0020.0002] # LEFTWARDS TRIPLE ARROW
+21DB  ; [*05A1.0020.0002] # RIGHTWARDS TRIPLE ARROW
+21DC  ; [*05A2.0020.0002] # LEFTWARDS SQUIGGLE ARROW
+21DD  ; [*05A3.0020.0002] # RIGHTWARDS SQUIGGLE ARROW
+21DE  ; [*05A4.0020.0002] # UPWARDS ARROW WITH DOUBLE STROKE
+21DF  ; [*05A5.0020.0002] # DOWNWARDS ARROW WITH DOUBLE STROKE
+21E0  ; [*05A6.0020.0002] # LEFTWARDS DASHED ARROW
+21E1  ; [*05A7.0020.0002] # UPWARDS DASHED ARROW
+21E2  ; [*05A8.0020.0002] # RIGHTWARDS DASHED ARROW
+21E3  ; [*05A9.0020.0002] # DOWNWARDS DASHED ARROW
+21E4  ; [*05AA.0020.0002] # LEFTWARDS ARROW TO BAR
+21E5  ; [*05AB.0020.0002] # RIGHTWARDS ARROW TO BAR
+21E6  ; [*05AC.0020.0002] # LEFTWARDS WHITE ARROW
+21E7  ; [*05AD.0020.0002] # UPWARDS WHITE ARROW
+21E8  ; [*05AE.0020.0002] # RIGHTWARDS WHITE ARROW
+21E9  ; [*05AF.0020.0002] # DOWNWARDS WHITE ARROW
+21EA  ; [*05B0.0020.0002] # UPWARDS WHITE ARROW FROM BAR
+21EB  ; [*05B1.0020.0002] # UPWARDS WHITE ARROW ON PEDESTAL
+21EC  ; [*05B2.0020.0002] # UPWARDS WHITE ARROW ON PEDESTAL WITH HORIZONTAL BAR
+21ED  ; [*05B3.0020.0002] # UPWARDS WHITE ARROW ON PEDESTAL WITH VERTICAL BAR
+21EE  ; [*05B4.0020.0002] # UPWARDS WHITE DOUBLE ARROW
+21EF  ; [*05B5.0020.0002] # UPWARDS WHITE DOUBLE ARROW ON PEDESTAL
+21F0  ; [*05B6.0020.0002] # RIGHTWARDS WHITE ARROW FROM WALL
+21F1  ; [*05B7.0020.0002] # NORTH WEST ARROW TO CORNER
+21F2  ; [*05B8.0020.0002] # SOUTH EAST ARROW TO CORNER
+21F3  ; [*05B9.0020.0002] # UP DOWN WHITE ARROW
+21F4  ; [*05BA.0020.0002] # RIGHT ARROW WITH SMALL CIRCLE
+21F5  ; [*05BB.0020.0002] # DOWNWARDS ARROW LEFTWARDS OF UPWARDS ARROW
+21F6  ; [*05BC.0020.0002] # THREE RIGHTWARDS ARROWS
+21F7  ; [*05BD.0020.0002] # LEFTWARDS ARROW WITH VERTICAL STROKE
+21F8  ; [*05BE.0020.0002] # RIGHTWARDS ARROW WITH VERTICAL STROKE
+21F9  ; [*05BF.0020.0002] # LEFT RIGHT ARROW WITH VERTICAL STROKE
+21FA  ; [*05C0.0020.0002] # LEFTWARDS ARROW WITH DOUBLE VERTICAL STROKE
+21FB  ; [*05C1.0020.0002] # RIGHTWARDS ARROW WITH DOUBLE VERTICAL STROKE
+21FC  ; [*05C2.0020.0002] # LEFT RIGHT ARROW WITH DOUBLE VERTICAL STROKE
+21FD  ; [*05C3.0020.0002] # LEFTWARDS OPEN-HEADED ARROW
+21FE  ; [*05C4.0020.0002] # RIGHTWARDS OPEN-HEADED ARROW
+21FF  ; [*05C5.0020.0002] # LEFT RIGHT OPEN-HEADED ARROW
+2200  ; [*05C6.0020.0002] # FOR ALL
+2201  ; [*05C7.0020.0002] # COMPLEMENT
+2202  ; [*05C8.0020.0002] # PARTIAL DIFFERENTIAL
+2203  ; [*05C9.0020.0002] # THERE EXISTS
+2204  ; [*05C9.0020.0002][.0000.002F.0002] # THERE DOES NOT EXIST
+2205  ; [*05CA.0020.0002] # EMPTY SET
+2206  ; [*05CB.0020.0002] # INCREMENT
+2207  ; [*05CC.0020.0002] # NABLA
+2208  ; [*05CD.0020.0002] # ELEMENT OF
+2209  ; [*05CD.0020.0002][.0000.002F.0002] # NOT AN ELEMENT OF
+220A  ; [*05CE.0020.0002] # SMALL ELEMENT OF
+220B  ; [*05CF.0020.0002] # CONTAINS AS MEMBER
+220C  ; [*05CF.0020.0002][.0000.002F.0002] # DOES NOT CONTAIN AS MEMBER
+220D  ; [*05D0.0020.0002] # SMALL CONTAINS AS MEMBER
+220E  ; [*05D2.0020.0002] # END OF PROOF
+220F  ; [*05D3.0020.0002] # N-ARY PRODUCT
+2210  ; [*05D4.0020.0002] # N-ARY COPRODUCT
+2211  ; [*05D5.0020.0002] # N-ARY SUMMATION
+2212  ; [*05E1.0020.0002] # MINUS SIGN
+2213  ; [*05E3.0020.0002] # MINUS-OR-PLUS SIGN
+2214  ; [*05E4.0020.0002] # DOT PLUS
+2215  ; [*05E5.0020.0002] # DIVISION SLASH
+2216  ; [*05E7.0020.0002] # SET MINUS
+2217  ; [*05E8.0020.0002] # ASTERISK OPERATOR
+2218  ; [*05E9.0020.0002] # RING OPERATOR
+2219  ; [*05EA.0020.0002] # BULLET OPERATOR
+221A  ; [*05EB.0020.0002] # SQUARE ROOT
+221B  ; [*05EC.0020.0002] # CUBE ROOT
+221C  ; [*05EE.0020.0002] # FOURTH ROOT
+221D  ; [*05F0.0020.0002] # PROPORTIONAL TO
+221E  ; [*05F1.0020.0002] # INFINITY
+221F  ; [*05F2.0020.0002] # RIGHT ANGLE
+2220  ; [*05F3.0020.0002] # ANGLE
+2221  ; [*05F4.0020.0002] # MEASURED ANGLE
+2222  ; [*05F5.0020.0002] # SPHERICAL ANGLE
+2223  ; [*05F6.0020.0002] # DIVIDES
+2224  ; [*05F6.0020.0002][.0000.002F.0002] # DOES NOT DIVIDE
+2225  ; [*05F7.0020.0002] # PARALLEL TO
+2226  ; [*05F7.0020.0002][.0000.002F.0002] # NOT PARALLEL TO
+2227  ; [*05F8.0020.0002] # LOGICAL AND
+2228  ; [*05F9.0020.0002] # LOGICAL OR
+2229  ; [*05FA.0020.0002] # INTERSECTION
+222A  ; [*05FB.0020.0002] # UNION
+222B  ; [*05FC.0020.0002] # INTEGRAL
+222C  ; [*05FC.0020.0004][*05FC.0020.0004] # DOUBLE INTEGRAL
+222D  ; [*05FC.0020.0004][*05FC.0020.0004][*05FC.0020.0004] # TRIPLE INTEGRAL
+222E  ; [*05FD.0020.0002] # CONTOUR INTEGRAL
+222F  ; [*05FD.0020.0004][*05FD.0020.0004] # SURFACE INTEGRAL
+2230  ; [*05FD.0020.0004][*05FD.0020.0004][*05FD.0020.0004] # VOLUME INTEGRAL
+2231  ; [*05FE.0020.0002] # CLOCKWISE INTEGRAL
+2232  ; [*05FF.0020.0002] # CLOCKWISE CONTOUR INTEGRAL
+2233  ; [*0600.0020.0002] # ANTICLOCKWISE CONTOUR INTEGRAL
+2234  ; [*0601.0020.0002] # THEREFORE
+2235  ; [*0602.0020.0002] # BECAUSE
+2236  ; [*0603.0020.0002] # RATIO
+2237  ; [*0604.0020.0002] # PROPORTION
+2238  ; [*0605.0020.0002] # DOT MINUS
+2239  ; [*0606.0020.0002] # EXCESS
+223A  ; [*0607.0020.0002] # GEOMETRIC PROPORTION
+223B  ; [*0608.0020.0002] # HOMOTHETIC
+223C  ; [*0609.0020.0002] # TILDE OPERATOR
+223D  ; [*060A.0020.0002] # REVERSED TILDE
+223E  ; [*060B.0020.0002] # INVERTED LAZY S
+223F  ; [*060C.0020.0002] # SINE WAVE
+2240  ; [*060D.0020.0002] # WREATH PRODUCT
+2241  ; [*0609.0020.0002][.0000.002F.0002] # NOT TILDE
+2242  ; [*060E.0020.0002] # MINUS TILDE
+2243  ; [*060F.0020.0002] # ASYMPTOTICALLY EQUAL TO
+2244  ; [*060F.0020.0002][.0000.002F.0002] # NOT ASYMPTOTICALLY EQUAL TO
+2245  ; [*0610.0020.0002] # APPROXIMATELY EQUAL TO
+2246  ; [*0611.0020.0002] # APPROXIMATELY BUT NOT ACTUALLY EQUAL TO
+2247  ; [*0610.0020.0002][.0000.002F.0002] # NEITHER APPROXIMATELY NOR ACTUALLY EQUAL TO
+2248  ; [*0612.0020.0002] # ALMOST EQUAL TO
+2249  ; [*0612.0020.0002][.0000.002F.0002] # NOT ALMOST EQUAL TO
+224A  ; [*0613.0020.0002] # ALMOST EQUAL OR EQUAL TO
+224B  ; [*0614.0020.0002] # TRIPLE TILDE
+224C  ; [*0615.0020.0002] # ALL EQUAL TO
+224D  ; [*0616.0020.0002] # EQUIVALENT TO
+224E  ; [*0617.0020.0002] # GEOMETRICALLY EQUIVALENT TO
+224F  ; [*0618.0020.0002] # DIFFERENCE BETWEEN
+2250  ; [*0619.0020.0002] # APPROACHES THE LIMIT
+2251  ; [*061A.0020.0002] # GEOMETRICALLY EQUAL TO
+2252  ; [*061B.0020.0002] # APPROXIMATELY EQUAL TO OR THE IMAGE OF
+2253  ; [*061C.0020.0002] # IMAGE OF OR APPROXIMATELY EQUAL TO
+2254  ; [*061D.0020.0002] # COLON EQUALS
+2255  ; [*061E.0020.0002] # EQUALS COLON
+2256  ; [*061F.0020.0002] # RING IN EQUAL TO
+2257  ; [*0620.0020.0002] # RING EQUAL TO
+2258  ; [*0621.0020.0002] # CORRESPONDS TO
+2259  ; [*0622.0020.0002] # ESTIMATES
+225A  ; [*0623.0020.0002] # EQUIANGULAR TO
+225B  ; [*0624.0020.0002] # STAR EQUALS
+225C  ; [*0625.0020.0002] # DELTA EQUAL TO
+225D  ; [*0626.0020.0002] # EQUAL TO BY DEFINITION
+225E  ; [*0627.0020.0002] # MEASURED BY
+225F  ; [*0628.0020.0002] # QUESTIONED EQUAL TO
+2260  ; [*05DB.0020.0002][.0000.002F.0002] # NOT EQUAL TO
+2261  ; [*0629.0020.0002] # IDENTICAL TO
+2262  ; [*0629.0020.0002][.0000.002F.0002] # NOT IDENTICAL TO
+2263  ; [*062A.0020.0002] # STRICTLY EQUIVALENT TO
+2264  ; [*062B.0020.0002] # LESS-THAN OR EQUAL TO
+2265  ; [*062C.0020.0002] # GREATER-THAN OR EQUAL TO
+2266  ; [*062D.0020.0002] # LESS-THAN OVER EQUAL TO
+2267  ; [*062E.0020.0002] # GREATER-THAN OVER EQUAL TO
+2268  ; [*062F.0020.0002] # LESS-THAN BUT NOT EQUAL TO
+2269  ; [*0630.0020.0002] # GREATER-THAN BUT NOT EQUAL TO
+226A  ; [*0631.0020.0002] # MUCH LESS-THAN
+226B  ; [*0632.0020.0002] # MUCH GREATER-THAN
+226C  ; [*0633.0020.0002] # BETWEEN
+226D  ; [*0616.0020.0002][.0000.002F.0002] # NOT EQUIVALENT TO
+226E  ; [*05DA.0020.0002][.0000.002F.0002] # NOT LESS-THAN
+226F  ; [*05DC.0020.0002][.0000.002F.0002] # NOT GREATER-THAN
+2270  ; [*062B.0020.0002][.0000.002F.0002] # NEITHER LESS-THAN NOR EQUAL TO
+2271  ; [*062C.0020.0002][.0000.002F.0002] # NEITHER GREATER-THAN NOR EQUAL TO
+2272  ; [*0634.0020.0002] # LESS-THAN OR EQUIVALENT TO
+2273  ; [*0635.0020.0002] # GREATER-THAN OR EQUIVALENT TO
+2274  ; [*0634.0020.0002][.0000.002F.0002] # NEITHER LESS-THAN NOR EQUIVALENT TO
+2275  ; [*0635.0020.0002][.0000.002F.0002] # NEITHER GREATER-THAN NOR EQUIVALENT TO
+2276  ; [*0636.0020.0002] # LESS-THAN OR GREATER-THAN
+2277  ; [*0637.0020.0002] # GREATER-THAN OR LESS-THAN
+2278  ; [*0636.0020.0002][.0000.002F.0002] # NEITHER LESS-THAN NOR GREATER-THAN
+2279  ; [*0637.0020.0002][.0000.002F.0002] # NEITHER GREATER-THAN NOR LESS-THAN
+227A  ; [*0638.0020.0002] # PRECEDES
+227B  ; [*0639.0020.0002] # SUCCEEDS
+227C  ; [*063A.0020.0002] # PRECEDES OR EQUAL TO
+227D  ; [*063B.0020.0002] # SUCCEEDS OR EQUAL TO
+227E  ; [*063C.0020.0002] # PRECEDES OR EQUIVALENT TO
+227F  ; [*063D.0020.0002] # SUCCEEDS OR EQUIVALENT TO
+2280  ; [*0638.0020.0002][.0000.002F.0002] # DOES NOT PRECEDE
+2281  ; [*0639.0020.0002][.0000.002F.0002] # DOES NOT SUCCEED
+2282  ; [*063E.0020.0002] # SUBSET OF
+2283  ; [*063F.0020.0002] # SUPERSET OF
+2284  ; [*063E.0020.0002][.0000.002F.0002] # NOT A SUBSET OF
+2285  ; [*063F.0020.0002][.0000.002F.0002] # NOT A SUPERSET OF
+2286  ; [*0640.0020.0002] # SUBSET OF OR EQUAL TO
+2287  ; [*0641.0020.0002] # SUPERSET OF OR EQUAL TO
+2288  ; [*0640.0020.0002][.0000.002F.0002] # NEITHER A SUBSET OF NOR EQUAL TO
+2289  ; [*0641.0020.0002][.0000.002F.0002] # NEITHER A SUPERSET OF NOR EQUAL TO
+228A  ; [*0642.0020.0002] # SUBSET OF WITH NOT EQUAL TO
+228B  ; [*0643.0020.0002] # SUPERSET OF WITH NOT EQUAL TO
+228C  ; [*0644.0020.0002] # MULTISET
+228D  ; [*0645.0020.0002] # MULTISET MULTIPLICATION
+228E  ; [*0646.0020.0002] # MULTISET UNION
+228F  ; [*0647.0020.0002] # SQUARE IMAGE OF
+2290  ; [*0648.0020.0002] # SQUARE ORIGINAL OF
+2291  ; [*0649.0020.0002] # SQUARE IMAGE OF OR EQUAL TO
+2292  ; [*064A.0020.0002] # SQUARE ORIGINAL OF OR EQUAL TO
+2293  ; [*064B.0020.0002] # SQUARE CAP
+2294  ; [*064C.0020.0002] # SQUARE CUP
+2295  ; [*064D.0020.0002] # CIRCLED PLUS
+2296  ; [*064E.0020.0002] # CIRCLED MINUS
+2297  ; [*064F.0020.0002] # CIRCLED TIMES
+2298  ; [*0650.0020.0002] # CIRCLED DIVISION SLASH
+2299  ; [*0651.0020.0002] # CIRCLED DOT OPERATOR
+229A  ; [*0652.0020.0002] # CIRCLED RING OPERATOR
+229B  ; [*0653.0020.0002] # CIRCLED ASTERISK OPERATOR
+229C  ; [*0654.0020.0002] # CIRCLED EQUALS
+229D  ; [*0655.0020.0002] # CIRCLED DASH
+229E  ; [*0656.0020.0002] # SQUARED PLUS
+229F  ; [*0657.0020.0002] # SQUARED MINUS
+22A0  ; [*0658.0020.0002] # SQUARED TIMES
+22A1  ; [*0659.0020.0002] # SQUARED DOT OPERATOR
+22A2  ; [*065A.0020.0002] # RIGHT TACK
+22A3  ; [*065B.0020.0002] # LEFT TACK
+22A4  ; [*065C.0020.0002] # DOWN TACK
+22A5  ; [*065D.0020.0002] # UP TACK
+22A6  ; [*065E.0020.0002] # ASSERTION
+22A7  ; [*065F.0020.0002] # MODELS
+22A8  ; [*0660.0020.0002] # TRUE
+22A9  ; [*0661.0020.0002] # FORCES
+22AA  ; [*0662.0020.0002] # TRIPLE VERTICAL BAR RIGHT TURNSTILE
+22AB  ; [*0663.0020.0002] # DOUBLE VERTICAL BAR DOUBLE RIGHT TURNSTILE
+22AC  ; [*065A.0020.0002][.0000.002F.0002] # DOES NOT PROVE
+22AD  ; [*0660.0020.0002][.0000.002F.0002] # NOT TRUE
+22AE  ; [*0661.0020.0002][.0000.002F.0002] # DOES NOT FORCE
+22AF  ; [*0663.0020.0002][.0000.002F.0002] # NEGATED DOUBLE VERTICAL BAR DOUBLE RIGHT TURNSTILE
+22B0  ; [*0664.0020.0002] # PRECEDES UNDER RELATION
+22B1  ; [*0665.0020.0002] # SUCCEEDS UNDER RELATION
+22B2  ; [*0666.0020.0002] # NORMAL SUBGROUP OF
+22B3  ; [*0667.0020.0002] # CONTAINS AS NORMAL SUBGROUP
+22B4  ; [*0668.0020.0002] # NORMAL SUBGROUP OF OR EQUAL TO
+22B5  ; [*0669.0020.0002] # CONTAINS AS NORMAL SUBGROUP OR EQUAL TO
+22B6  ; [*066A.0020.0002] # ORIGINAL OF
+22B7  ; [*066B.0020.0002] # IMAGE OF
+22B8  ; [*066C.0020.0002] # MULTIMAP
+22B9  ; [*066D.0020.0002] # HERMITIAN CONJUGATE MATRIX
+22BA  ; [*066E.0020.0002] # INTERCALATE
+22BB  ; [*066F.0020.0002] # XOR
+22BC  ; [*0670.0020.0002] # NAND
+22BD  ; [*0672.0020.0002] # NOR
+22BE  ; [*0673.0020.0002] # RIGHT ANGLE WITH ARC
+22BF  ; [*0674.0020.0002] # RIGHT TRIANGLE
+22C0  ; [*0675.0020.0002] # N-ARY LOGICAL AND
+22C1  ; [*0676.0020.0002] # N-ARY LOGICAL OR
+22C2  ; [*0677.0020.0002] # N-ARY INTERSECTION
+22C3  ; [*0678.0020.0002] # N-ARY UNION
+22C4  ; [*0679.0020.0002] # DIAMOND OPERATOR
+22C5  ; [*067A.0020.0002] # DOT OPERATOR
+22C6  ; [*067B.0020.0002] # STAR OPERATOR
+22C7  ; [*067C.0020.0002] # DIVISION TIMES
+22C8  ; [*067D.0020.0002] # BOWTIE
+22C9  ; [*067E.0020.0002] # LEFT NORMAL FACTOR SEMIDIRECT PRODUCT
+22CA  ; [*067F.0020.0002] # RIGHT NORMAL FACTOR SEMIDIRECT PRODUCT
+22CB  ; [*0680.0020.0002] # LEFT SEMIDIRECT PRODUCT
+22CC  ; [*0681.0020.0002] # RIGHT SEMIDIRECT PRODUCT
+22CD  ; [*0682.0020.0002] # REVERSED TILDE EQUALS
+22CE  ; [*0683.0020.0002] # CURLY LOGICAL OR
+22CF  ; [*0684.0020.0002] # CURLY LOGICAL AND
+22D0  ; [*0685.0020.0002] # DOUBLE SUBSET
+22D1  ; [*0686.0020.0002] # DOUBLE SUPERSET
+22D2  ; [*0687.0020.0002] # DOUBLE INTERSECTION
+22D3  ; [*0688.0020.0002] # DOUBLE UNION
+22D4  ; [*0689.0020.0002] # PITCHFORK
+22D5  ; [*068A.0020.0002] # EQUAL AND PARALLEL TO
+22D6  ; [*068B.0020.0002] # LESS-THAN WITH DOT
+22D7  ; [*068C.0020.0002] # GREATER-THAN WITH DOT
+22D8  ; [*068D.0020.0002] # VERY MUCH LESS-THAN
+22D9  ; [*068E.0020.0002] # VERY MUCH GREATER-THAN
+22DA  ; [*068F.0020.0002] # LESS-THAN EQUAL TO OR GREATER-THAN
+22DB  ; [*0690.0020.0002] # GREATER-THAN EQUAL TO OR LESS-THAN
+22DC  ; [*0691.0020.0002] # EQUAL TO OR LESS-THAN
+22DD  ; [*0692.0020.0002] # EQUAL TO OR GREATER-THAN
+22DE  ; [*0693.0020.0002] # EQUAL TO OR PRECEDES
+22DF  ; [*0694.0020.0002] # EQUAL TO OR SUCCEEDS
+22E0  ; [*063A.0020.0002][.0000.002F.0002] # DOES NOT PRECEDE OR EQUAL
+22E1  ; [*063B.0020.0002][.0000.002F.0002] # DOES NOT SUCCEED OR EQUAL
+22E2  ; [*0649.0020.0002][.0000.002F.0002] # NOT SQUARE IMAGE OF OR EQUAL TO
+22E3  ; [*064A.0020.0002][.0000.002F.0002] # NOT SQUARE ORIGINAL OF OR EQUAL TO
+22E4  ; [*0695.0020.0002] # SQUARE IMAGE OF OR NOT EQUAL TO
+22E5  ; [*0696.0020.0002] # SQUARE ORIGINAL OF OR NOT EQUAL TO
+22E6  ; [*0697.0020.0002] # LESS-THAN BUT NOT EQUIVALENT TO
+22E7  ; [*0698.0020.0002] # GREATER-THAN BUT NOT EQUIVALENT TO
+22E8  ; [*0699.0020.0002] # PRECEDES BUT NOT EQUIVALENT TO
+22E9  ; [*069A.0020.0002] # SUCCEEDS BUT NOT EQUIVALENT TO
+22EA  ; [*0666.0020.0002][.0000.002F.0002] # NOT NORMAL SUBGROUP OF
+22EB  ; [*0667.0020.0002][.0000.002F.0002] # DOES NOT CONTAIN AS NORMAL SUBGROUP
+22EC  ; [*0668.0020.0002][.0000.002F.0002] # NOT NORMAL SUBGROUP OF OR EQUAL TO
+22ED  ; [*0669.0020.0002][.0000.002F.0002] # DOES NOT CONTAIN AS NORMAL SUBGROUP OR EQUAL
+22EE  ; [*069B.0020.0002] # VERTICAL ELLIPSIS
+22EF  ; [*069C.0020.0002] # MIDLINE HORIZONTAL ELLIPSIS
+22F0  ; [*069D.0020.0002] # UP RIGHT DIAGONAL ELLIPSIS
+22F1  ; [*069E.0020.0002] # DOWN RIGHT DIAGONAL ELLIPSIS
+22F2  ; [*069F.0020.0002] # ELEMENT OF WITH LONG HORIZONTAL STROKE
+22F3  ; [*06A0.0020.0002] # ELEMENT OF WITH VERTICAL BAR AT END OF HORIZONTAL STROKE
+22F4  ; [*06A1.0020.0002] # SMALL ELEMENT OF WITH VERTICAL BAR AT END OF HORIZONTAL STROKE
+22F5  ; [*06A2.0020.0002] # ELEMENT OF WITH DOT ABOVE
+22F6  ; [*06A3.0020.0002] # ELEMENT OF WITH OVERBAR
+22F7  ; [*06A4.0020.0002] # SMALL ELEMENT OF WITH OVERBAR
+22F8  ; [*06A5.0020.0002] # ELEMENT OF WITH UNDERBAR
+22F9  ; [*06A6.0020.0002] # ELEMENT OF WITH TWO HORIZONTAL STROKES
+22FA  ; [*06A7.0020.0002] # CONTAINS WITH LONG HORIZONTAL STROKE
+22FB  ; [*06A8.0020.0002] # CONTAINS WITH VERTICAL BAR AT END OF HORIZONTAL STROKE
+22FC  ; [*06A9.0020.0002] # SMALL CONTAINS WITH VERTICAL BAR AT END OF HORIZONTAL STROKE
+22FD  ; [*06AA.0020.0002] # CONTAINS WITH OVERBAR
+22FE  ; [*06AB.0020.0002] # SMALL CONTAINS WITH OVERBAR
+22FF  ; [*06AC.0020.0002] # Z NOTATION BAG MEMBERSHIP
+2300  ; [*06AD.0020.0002] # DIAMETER SIGN
+2301  ; [*06AE.0020.0002] # ELECTRIC ARROW
+2302  ; [*06AF.0020.0002] # HOUSE
+2303  ; [*06B0.0020.0002] # UP ARROWHEAD
+2304  ; [*06B1.0020.0002] # DOWN ARROWHEAD
+2305  ; [*06B2.0020.0002] # PROJECTIVE
+2306  ; [*06B3.0020.0002] # PERSPECTIVE
+2307  ; [*06B4.0020.0002] # WAVY LINE
+2308  ; [*0318.0020.0002] # LEFT CEILING
+2309  ; [*0319.0020.0002] # RIGHT CEILING
+230A  ; [*031A.0020.0002] # LEFT FLOOR
+230B  ; [*031B.0020.0002] # RIGHT FLOOR
+230C  ; [*06B5.0020.0002] # BOTTOM RIGHT CROP
+230D  ; [*06B6.0020.0002] # BOTTOM LEFT CROP
+230E  ; [*06B7.0020.0002] # TOP RIGHT CROP
+230F  ; [*06B8.0020.0002] # TOP LEFT CROP
+2310  ; [*06B9.0020.0002] # REVERSED NOT SIGN
+2311  ; [*06BA.0020.0002] # SQUARE LOZENGE
+2312  ; [*06BB.0020.0002] # ARC
+2313  ; [*06BC.0020.0002] # SEGMENT
+2314  ; [*06BD.0020.0002] # SECTOR
+2315  ; [*06BE.0020.0002] # TELEPHONE RECORDER
+2316  ; [*06BF.0020.0002] # POSITION INDICATOR
+2317  ; [*06C0.0020.0002] # VIEWDATA SQUARE
+2318  ; [*06C1.0020.0002] # PLACE OF INTEREST SIGN
+2319  ; [*06C2.0020.0002] # TURNED NOT SIGN
+231A  ; [*06C3.0020.0002] # WATCH
+231B  ; [*06C4.0020.0002] # HOURGLASS
+231C  ; [*06C5.0020.0002] # TOP LEFT CORNER
+231D  ; [*06C6.0020.0002] # TOP RIGHT CORNER
+231E  ; [*06C7.0020.0002] # BOTTOM LEFT CORNER
+231F  ; [*06C8.0020.0002] # BOTTOM RIGHT CORNER
+2320  ; [*06C9.0020.0002] # TOP HALF INTEGRAL
+2321  ; [*06CA.0020.0002] # BOTTOM HALF INTEGRAL
+2322  ; [*06CB.0020.0002] # FROWN
+2323  ; [*06CC.0020.0002] # SMILE
+2324  ; [*06CD.0020.0002] # UP ARROWHEAD BETWEEN TWO HORIZONTAL BARS
+2325  ; [*06CE.0020.0002] # OPTION KEY
+2326  ; [*06CF.0020.0002] # ERASE TO THE RIGHT
+2327  ; [*06D0.0020.0002] # X IN A RECTANGLE BOX
+2328  ; [*06D1.0020.0002] # KEYBOARD
+2329  ; [*0362.0020.0002] # LEFT-POINTING ANGLE BRACKET
+232A  ; [*0363.0020.0002] # RIGHT-POINTING ANGLE BRACKET
+232B  ; [*06D2.0020.0002] # ERASE TO THE LEFT
+232C  ; [*06D3.0020.0002] # BENZENE RING
+232D  ; [*06D4.0020.0002] # CYLINDRICITY
+232E  ; [*06D5.0020.0002] # ALL AROUND-PROFILE
+232F  ; [*06D6.0020.0002] # SYMMETRY
+2330  ; [*06D7.0020.0002] # TOTAL RUNOUT
+2331  ; [*06D8.0020.0002] # DIMENSION ORIGIN
+2332  ; [*06D9.0020.0002] # CONICAL TAPER
+2333  ; [*06DA.0020.0002] # SLOPE
+2334  ; [*06DB.0020.0002] # COUNTERBORE
+2335  ; [*06DC.0020.0002] # COUNTERSINK
+2336  ; [*06DD.0020.0002] # APL FUNCTIONAL SYMBOL I-BEAM
+2337  ; [*06DE.0020.0002] # APL FUNCTIONAL SYMBOL SQUISH QUAD
+2338  ; [*06DF.0020.0002] # APL FUNCTIONAL SYMBOL QUAD EQUAL
+2339  ; [*06E0.0020.0002] # APL FUNCTIONAL SYMBOL QUAD DIVIDE
+233A  ; [*06E1.0020.0002] # APL FUNCTIONAL SYMBOL QUAD DIAMOND
+233B  ; [*06E2.0020.0002] # APL FUNCTIONAL SYMBOL QUAD JOT
+233C  ; [*06E3.0020.0002] # APL FUNCTIONAL SYMBOL QUAD CIRCLE
+233D  ; [*06E4.0020.0002] # APL FUNCTIONAL SYMBOL CIRCLE STILE
+233E  ; [*06E5.0020.0002] # APL FUNCTIONAL SYMBOL CIRCLE JOT
+233F  ; [*06E6.0020.0002] # APL FUNCTIONAL SYMBOL SLASH BAR
+2340  ; [*06E7.0020.0002] # APL FUNCTIONAL SYMBOL BACKSLASH BAR
+2341  ; [*06E8.0020.0002] # APL FUNCTIONAL SYMBOL QUAD SLASH
+2342  ; [*06E9.0020.0002] # APL FUNCTIONAL SYMBOL QUAD BACKSLASH
+2343  ; [*06EA.0020.0002] # APL FUNCTIONAL SYMBOL QUAD LESS-THAN
+2344  ; [*06EB.0020.0002] # APL FUNCTIONAL SYMBOL QUAD GREATER-THAN
+2345  ; [*06EC.0020.0002] # APL FUNCTIONAL SYMBOL LEFTWARDS VANE
+2346  ; [*06ED.0020.0002] # APL FUNCTIONAL SYMBOL RIGHTWARDS VANE
+2347  ; [*06EE.0020.0002] # APL FUNCTIONAL SYMBOL QUAD LEFTWARDS ARROW
+2348  ; [*06EF.0020.0002] # APL FUNCTIONAL SYMBOL QUAD RIGHTWARDS ARROW
+2349  ; [*06F0.0020.0002] # APL FUNCTIONAL SYMBOL CIRCLE BACKSLASH
+234A  ; [*06F1.0020.0002] # APL FUNCTIONAL SYMBOL DOWN TACK UNDERBAR
+234B  ; [*06F2.0020.0002] # APL FUNCTIONAL SYMBOL DELTA STILE
+234C  ; [*06F3.0020.0002] # APL FUNCTIONAL SYMBOL QUAD DOWN CARET
+234D  ; [*06F4.0020.0002] # APL FUNCTIONAL SYMBOL QUAD DELTA
+234E  ; [*06F5.0020.0002] # APL FUNCTIONAL SYMBOL DOWN TACK JOT
+234F  ; [*06F6.0020.0002] # APL FUNCTIONAL SYMBOL UPWARDS VANE
+2350  ; [*06F7.0020.0002] # APL FUNCTIONAL SYMBOL QUAD UPWARDS ARROW
+2351  ; [*06F8.0020.0002] # APL FUNCTIONAL SYMBOL UP TACK OVERBAR
+2352  ; [*06F9.0020.0002] # APL FUNCTIONAL SYMBOL DEL STILE
+2353  ; [*06FA.0020.0002] # APL FUNCTIONAL SYMBOL QUAD UP CARET
+2354  ; [*06FB.0020.0002] # APL FUNCTIONAL SYMBOL QUAD DEL
+2355  ; [*06FC.0020.0002] # APL FUNCTIONAL SYMBOL UP TACK JOT
+2356  ; [*06FD.0020.0002] # APL FUNCTIONAL SYMBOL DOWNWARDS VANE
+2357  ; [*06FE.0020.0002] # APL FUNCTIONAL SYMBOL QUAD DOWNWARDS ARROW
+2358  ; [*06FF.0020.0002] # APL FUNCTIONAL SYMBOL QUOTE UNDERBAR
+2359  ; [*0700.0020.0002] # APL FUNCTIONAL SYMBOL DELTA UNDERBAR
+235A  ; [*0701.0020.0002] # APL FUNCTIONAL SYMBOL DIAMOND UNDERBAR
+235B  ; [*0702.0020.0002] # APL FUNCTIONAL SYMBOL JOT UNDERBAR
+235C  ; [*0703.0020.0002] # APL FUNCTIONAL SYMBOL CIRCLE UNDERBAR
+235D  ; [*0704.0020.0002] # APL FUNCTIONAL SYMBOL UP SHOE JOT
+235E  ; [*0705.0020.0002] # APL FUNCTIONAL SYMBOL QUOTE QUAD
+235F  ; [*0706.0020.0002] # APL FUNCTIONAL SYMBOL CIRCLE STAR
+2360  ; [*0707.0020.0002] # APL FUNCTIONAL SYMBOL QUAD COLON
+2361  ; [*0708.0020.0002] # APL FUNCTIONAL SYMBOL UP TACK DIAERESIS
+2362  ; [*0709.0020.0002] # APL FUNCTIONAL SYMBOL DEL DIAERESIS
+2363  ; [*070A.0020.0002] # APL FUNCTIONAL SYMBOL STAR DIAERESIS
+2364  ; [*070B.0020.0002] # APL FUNCTIONAL SYMBOL JOT DIAERESIS
+2365  ; [*070C.0020.0002] # APL FUNCTIONAL SYMBOL CIRCLE DIAERESIS
+2366  ; [*070D.0020.0002] # APL FUNCTIONAL SYMBOL DOWN SHOE STILE
+2367  ; [*070E.0020.0002] # APL FUNCTIONAL SYMBOL LEFT SHOE STILE
+2368  ; [*070F.0020.0002] # APL FUNCTIONAL SYMBOL TILDE DIAERESIS
+2369  ; [*0710.0020.0002] # APL FUNCTIONAL SYMBOL GREATER-THAN DIAERESIS
+236A  ; [*0711.0020.0002] # APL FUNCTIONAL SYMBOL COMMA BAR
+236B  ; [*0712.0020.0002] # APL FUNCTIONAL SYMBOL DEL TILDE
+236C  ; [*0713.0020.0002] # APL FUNCTIONAL SYMBOL ZILDE
+236D  ; [*0714.0020.0002] # APL FUNCTIONAL SYMBOL STILE TILDE
+236E  ; [*0715.0020.0002] # APL FUNCTIONAL SYMBOL SEMICOLON UNDERBAR
+236F  ; [*0716.0020.0002] # APL FUNCTIONAL SYMBOL QUAD NOT EQUAL
+2370  ; [*0717.0020.0002] # APL FUNCTIONAL SYMBOL QUAD QUESTION
+2371  ; [*0718.0020.0002] # APL FUNCTIONAL SYMBOL DOWN CARET TILDE
+2372  ; [*0719.0020.0002] # APL FUNCTIONAL SYMBOL UP CARET TILDE
+2373  ; [*071A.0020.0002] # APL FUNCTIONAL SYMBOL IOTA
+2374  ; [*071B.0020.0002] # APL FUNCTIONAL SYMBOL RHO
+2375  ; [*071C.0020.0002] # APL FUNCTIONAL SYMBOL OMEGA
+2376  ; [*071D.0020.0002] # APL FUNCTIONAL SYMBOL ALPHA UNDERBAR
+2377  ; [*071E.0020.0002] # APL FUNCTIONAL SYMBOL EPSILON UNDERBAR
+2378  ; [*071F.0020.0002] # APL FUNCTIONAL SYMBOL IOTA UNDERBAR
+2379  ; [*0720.0020.0002] # APL FUNCTIONAL SYMBOL OMEGA UNDERBAR
+237A  ; [*0721.0020.0002] # APL FUNCTIONAL SYMBOL ALPHA
+237B  ; [*0722.0020.0002] # NOT CHECK MARK
+237C  ; [*0723.0020.0002] # RIGHT ANGLE WITH DOWNWARDS ZIGZAG ARROW
+237D  ; [*0724.0020.0002] # SHOULDERED OPEN BOX
+237E  ; [*0725.0020.0002] # BELL SYMBOL
+237F  ; [*0726.0020.0002] # VERTICAL LINE WITH MIDDLE DOT
+2380  ; [*0727.0020.0002] # INSERTION SYMBOL
+2381  ; [*0728.0020.0002] # CONTINUOUS UNDERLINE SYMBOL
+2382  ; [*0729.0020.0002] # DISCONTINUOUS UNDERLINE SYMBOL
+2383  ; [*072A.0020.0002] # EMPHASIS SYMBOL
+2384  ; [*072B.0020.0002] # COMPOSITION SYMBOL
+2385  ; [*072C.0020.0002] # WHITE SQUARE WITH CENTRE VERTICAL LINE
+2386  ; [*072D.0020.0002] # ENTER SYMBOL
+2387  ; [*072E.0020.0002] # ALTERNATIVE KEY SYMBOL
+2388  ; [*072F.0020.0002] # HELM SYMBOL
+2389  ; [*0730.0020.0002] # CIRCLED HORIZONTAL BAR WITH NOTCH
+238A  ; [*0731.0020.0002] # CIRCLED TRIANGLE DOWN
+238B  ; [*0732.0020.0002] # BROKEN CIRCLE WITH NORTHWEST ARROW
+238C  ; [*0733.0020.0002] # UNDO SYMBOL
+238D  ; [*0734.0020.0002] # MONOSTABLE SYMBOL
+238E  ; [*0735.0020.0002] # HYSTERESIS SYMBOL
+238F  ; [*0736.0020.0002] # OPEN-CIRCUIT-OUTPUT H-TYPE SYMBOL
+2390  ; [*0737.0020.0002] # OPEN-CIRCUIT-OUTPUT L-TYPE SYMBOL
+2391  ; [*0738.0020.0002] # PASSIVE-PULL-DOWN-OUTPUT SYMBOL
+2392  ; [*0739.0020.0002] # PASSIVE-PULL-UP-OUTPUT SYMBOL
+2393  ; [*073A.0020.0002] # DIRECT CURRENT SYMBOL FORM TWO
+2394  ; [*073B.0020.0002] # SOFTWARE-FUNCTION SYMBOL
+2395  ; [*073C.0020.0002] # APL FUNCTIONAL SYMBOL QUAD
+2396  ; [*073D.0020.0002] # DECIMAL SEPARATOR KEY SYMBOL
+2397  ; [*073E.0020.0002] # PREVIOUS PAGE
+2398  ; [*073F.0020.0002] # NEXT PAGE
+2399  ; [*0740.0020.0002] # PRINT SCREEN SYMBOL
+239A  ; [*0741.0020.0002] # CLEAR SCREEN SYMBOL
+239B  ; [*0742.0020.0002] # LEFT PARENTHESIS UPPER HOOK
+239C  ; [*0743.0020.0002] # LEFT PARENTHESIS EXTENSION
+239D  ; [*0744.0020.0002] # LEFT PARENTHESIS LOWER HOOK
+239E  ; [*0745.0020.0002] # RIGHT PARENTHESIS UPPER HOOK
+239F  ; [*0746.0020.0002] # RIGHT PARENTHESIS EXTENSION
+23A0  ; [*0747.0020.0002] # RIGHT PARENTHESIS LOWER HOOK
+23A1  ; [*0748.0020.0002] # LEFT SQUARE BRACKET UPPER CORNER
+23A2  ; [*0749.0020.0002] # LEFT SQUARE BRACKET EXTENSION
+23A3  ; [*074A.0020.0002] # LEFT SQUARE BRACKET LOWER CORNER
+23A4  ; [*074B.0020.0002] # RIGHT SQUARE BRACKET UPPER CORNER
+23A5  ; [*074C.0020.0002] # RIGHT SQUARE BRACKET EXTENSION
+23A6  ; [*074D.0020.0002] # RIGHT SQUARE BRACKET LOWER CORNER
+23A7  ; [*074E.0020.0002] # LEFT CURLY BRACKET UPPER HOOK
+23A8  ; [*074F.0020.0002] # LEFT CURLY BRACKET MIDDLE PIECE
+23A9  ; [*0750.0020.0002] # LEFT CURLY BRACKET LOWER HOOK
+23AA  ; [*0751.0020.0002] # CURLY BRACKET EXTENSION
+23AB  ; [*0752.0020.0002] # RIGHT CURLY BRACKET UPPER HOOK
+23AC  ; [*0753.0020.0002] # RIGHT CURLY BRACKET MIDDLE PIECE
+23AD  ; [*0754.0020.0002] # RIGHT CURLY BRACKET LOWER HOOK
+23AE  ; [*0755.0020.0002] # INTEGRAL EXTENSION
+23AF  ; [*0756.0020.0002] # HORIZONTAL LINE EXTENSION
+23B0  ; [*0757.0020.0002] # UPPER LEFT OR LOWER RIGHT CURLY BRACKET SECTION
+23B1  ; [*0758.0020.0002] # UPPER RIGHT OR LOWER LEFT CURLY BRACKET SECTION
+23B2  ; [*0759.0020.0002] # SUMMATION TOP
+23B3  ; [*075A.0020.0002] # SUMMATION BOTTOM
+23B4  ; [*075B.0020.0002] # TOP SQUARE BRACKET
+23B5  ; [*075C.0020.0002] # BOTTOM SQUARE BRACKET
+23B6  ; [*075D.0020.0002] # BOTTOM SQUARE BRACKET OVER TOP SQUARE BRACKET
+23B7  ; [*075E.0020.0002] # RADICAL SYMBOL BOTTOM
+23B8  ; [*075F.0020.0002] # LEFT VERTICAL BOX LINE
+23B9  ; [*0760.0020.0002] # RIGHT VERTICAL BOX LINE
+23BA  ; [*0761.0020.0002] # HORIZONTAL SCAN LINE-1
+23BB  ; [*0762.0020.0002] # HORIZONTAL SCAN LINE-3
+23BC  ; [*0763.0020.0002] # HORIZONTAL SCAN LINE-7
+23BD  ; [*0764.0020.0002] # HORIZONTAL SCAN LINE-9
+23BE  ; [*0765.0020.0002] # DENTISTRY SYMBOL LIGHT VERTICAL AND TOP RIGHT
+23BF  ; [*0766.0020.0002] # DENTISTRY SYMBOL LIGHT VERTICAL AND BOTTOM RIGHT
+23C0  ; [*0767.0020.0002] # DENTISTRY SYMBOL LIGHT VERTICAL WITH CIRCLE
+23C1  ; [*0768.0020.0002] # DENTISTRY SYMBOL LIGHT DOWN AND HORIZONTAL WITH CIRCLE
+23C2  ; [*0769.0020.0002] # DENTISTRY SYMBOL LIGHT UP AND HORIZONTAL WITH CIRCLE
+23C3  ; [*076A.0020.0002] # DENTISTRY SYMBOL LIGHT VERTICAL WITH TRIANGLE
+23C4  ; [*076B.0020.0002] # DENTISTRY SYMBOL LIGHT DOWN AND HORIZONTAL WITH TRIANGLE
+23C5  ; [*076C.0020.0002] # DENTISTRY SYMBOL LIGHT UP AND HORIZONTAL WITH TRIANGLE
+23C6  ; [*076D.0020.0002] # DENTISTRY SYMBOL LIGHT VERTICAL AND WAVE
+23C7  ; [*076E.0020.0002] # DENTISTRY SYMBOL LIGHT DOWN AND HORIZONTAL WITH WAVE
+23C8  ; [*076F.0020.0002] # DENTISTRY SYMBOL LIGHT UP AND HORIZONTAL WITH WAVE
+23C9  ; [*0770.0020.0002] # DENTISTRY SYMBOL LIGHT DOWN AND HORIZONTAL
+23CA  ; [*0771.0020.0002] # DENTISTRY SYMBOL LIGHT UP AND HORIZONTAL
+23CB  ; [*0772.0020.0002] # DENTISTRY SYMBOL LIGHT VERTICAL AND TOP LEFT
+23CC  ; [*0773.0020.0002] # DENTISTRY SYMBOL LIGHT VERTICAL AND BOTTOM LEFT
+23CD  ; [*0774.0020.0002] # SQUARE FOOT
+23CE  ; [*0775.0020.0002] # RETURN SYMBOL
+23CF  ; [*0776.0020.0002] # EJECT SYMBOL
+23D0  ; [*0777.0020.0002] # VERTICAL LINE EXTENSION
+23D1  ; [*0778.0020.0002] # METRICAL BREVE
+23D2  ; [*0779.0020.0002] # METRICAL LONG OVER SHORT
+23D3  ; [*077A.0020.0002] # METRICAL SHORT OVER LONG
+23D4  ; [*077B.0020.0002] # METRICAL LONG OVER TWO SHORTS
+23D5  ; [*077C.0020.0002] # METRICAL TWO SHORTS OVER LONG
+23D6  ; [*077D.0020.0002] # METRICAL TWO SHORTS JOINED
+23D7  ; [*077E.0020.0002] # METRICAL TRISEME
+23D8  ; [*077F.0020.0002] # METRICAL TETRASEME
+23D9  ; [*0780.0020.0002] # METRICAL PENTASEME
+23DA  ; [*0781.0020.0002] # EARTH GROUND
+23DB  ; [*0782.0020.0002] # FUSE
+23DC  ; [*0783.0020.0002] # TOP PARENTHESIS
+23DD  ; [*0784.0020.0002] # BOTTOM PARENTHESIS
+23DE  ; [*0785.0020.0002] # TOP CURLY BRACKET
+23DF  ; [*0786.0020.0002] # BOTTOM CURLY BRACKET
+23E0  ; [*0787.0020.0002] # TOP TORTOISE SHELL BRACKET
+23E1  ; [*0788.0020.0002] # BOTTOM TORTOISE SHELL BRACKET
+23E2  ; [*0789.0020.0002] # WHITE TRAPEZIUM
+23E3  ; [*078A.0020.0002] # BENZENE RING WITH CIRCLE
+23E4  ; [*078B.0020.0002] # STRAIGHTNESS
+23E5  ; [*078C.0020.0002] # FLATNESS
+23E6  ; [*078D.0020.0002] # AC CURRENT
+23E7  ; [*078E.0020.0002] # ELECTRICAL INTERSECTION
+23E8  ; [*078F.0020.0002] # DECIMAL EXPONENT SYMBOL
+23E9  ; [*0790.0020.0002] # BLACK RIGHT-POINTING DOUBLE TRIANGLE
+23EA  ; [*0791.0020.0002] # BLACK LEFT-POINTING DOUBLE TRIANGLE
+23EB  ; [*0792.0020.0002] # BLACK UP-POINTING DOUBLE TRIANGLE
+23EC  ; [*0793.0020.0002] # BLACK DOWN-POINTING DOUBLE TRIANGLE
+23ED  ; [*0794.0020.0002] # BLACK RIGHT-POINTING DOUBLE TRIANGLE WITH VERTICAL BAR
+23EE  ; [*0795.0020.0002] # BLACK LEFT-POINTING DOUBLE TRIANGLE WITH VERTICAL BAR
+23EF  ; [*0796.0020.0002] # BLACK RIGHT-POINTING TRIANGLE WITH DOUBLE VERTICAL BAR
+23F0  ; [*0797.0020.0002] # ALARM CLOCK
+23F1  ; [*0798.0020.0002] # STOPWATCH
+23F2  ; [*0799.0020.0002] # TIMER CLOCK
+23F3  ; [*079A.0020.0002] # HOURGLASS WITH FLOWING SAND
+23F4  ; [*079B.0020.0002] # BLACK MEDIUM LEFT-POINTING TRIANGLE
+23F5  ; [*079C.0020.0002] # BLACK MEDIUM RIGHT-POINTING TRIANGLE
+23F6  ; [*079D.0020.0002] # BLACK MEDIUM UP-POINTING TRIANGLE
+23F7  ; [*079E.0020.0002] # BLACK MEDIUM DOWN-POINTING TRIANGLE
+23F8  ; [*079F.0020.0002] # DOUBLE VERTICAL BAR
+23F9  ; [*07A0.0020.0002] # BLACK SQUARE FOR STOP
+23FA  ; [*07A1.0020.0002] # BLACK CIRCLE FOR RECORD
+2400  ; [*07A2.0020.0002] # SYMBOL FOR NULL
+2401  ; [*07A3.0020.0002] # SYMBOL FOR START OF HEADING
+2402  ; [*07A4.0020.0002] # SYMBOL FOR START OF TEXT
+2403  ; [*07A5.0020.0002] # SYMBOL FOR END OF TEXT
+2404  ; [*07A6.0020.0002] # SYMBOL FOR END OF TRANSMISSION
+2405  ; [*07A7.0020.0002] # SYMBOL FOR ENQUIRY
+2406  ; [*07A8.0020.0002] # SYMBOL FOR ACKNOWLEDGE
+2407  ; [*07A9.0020.0002] # SYMBOL FOR BELL
+2408  ; [*07AA.0020.0002] # SYMBOL FOR BACKSPACE
+2409  ; [*07AB.0020.0002] # SYMBOL FOR HORIZONTAL TABULATION
+240A  ; [*07AC.0020.0002] # SYMBOL FOR LINE FEED
+240B  ; [*07AD.0020.0002] # SYMBOL FOR VERTICAL TABULATION
+240C  ; [*07AE.0020.0002] # SYMBOL FOR FORM FEED
+240D  ; [*07AF.0020.0002] # SYMBOL FOR CARRIAGE RETURN
+240E  ; [*07B0.0020.0002] # SYMBOL FOR SHIFT OUT
+240F  ; [*07B1.0020.0002] # SYMBOL FOR SHIFT IN
+2410  ; [*07B2.0020.0002] # SYMBOL FOR DATA LINK ESCAPE
+2411  ; [*07B3.0020.0002] # SYMBOL FOR DEVICE CONTROL ONE
+2412  ; [*07B4.0020.0002] # SYMBOL FOR DEVICE CONTROL TWO
+2413  ; [*07B5.0020.0002] # SYMBOL FOR DEVICE CONTROL THREE
+2414  ; [*07B6.0020.0002] # SYMBOL FOR DEVICE CONTROL FOUR
+2415  ; [*07B7.0020.0002] # SYMBOL FOR NEGATIVE ACKNOWLEDGE
+2416  ; [*07B8.0020.0002] # SYMBOL FOR SYNCHRONOUS IDLE
+2417  ; [*07B9.0020.0002] # SYMBOL FOR END OF TRANSMISSION BLOCK
+2418  ; [*07BA.0020.0002] # SYMBOL FOR CANCEL
+2419  ; [*07BB.0020.0002] # SYMBOL FOR END OF MEDIUM
+241A  ; [*07BC.0020.0002] # SYMBOL FOR SUBSTITUTE
+241B  ; [*07BD.0020.0002] # SYMBOL FOR ESCAPE
+241C  ; [*07BE.0020.0002] # SYMBOL FOR FILE SEPARATOR
+241D  ; [*07BF.0020.0002] # SYMBOL FOR GROUP SEPARATOR
+241E  ; [*07C0.0020.0002] # SYMBOL FOR RECORD SEPARATOR
+241F  ; [*07C1.0020.0002] # SYMBOL FOR UNIT SEPARATOR
+2420  ; [*07C2.0020.0002] # SYMBOL FOR SPACE
+2421  ; [*07C3.0020.0002] # SYMBOL FOR DELETE
+2422  ; [*07C4.0020.0002] # BLANK SYMBOL
+2423  ; [*07C5.0020.0002] # OPEN BOX
+2424  ; [*07C6.0020.0002] # SYMBOL FOR NEWLINE
+2425  ; [*07C7.0020.0002] # SYMBOL FOR DELETE FORM TWO
+2426  ; [*07C8.0020.0002] # SYMBOL FOR SUBSTITUTE FORM TWO
+2440  ; [*07C9.0020.0002] # OCR HOOK
+2441  ; [*07CA.0020.0002] # OCR CHAIR
+2442  ; [*07CB.0020.0002] # OCR FORK
+2443  ; [*07CC.0020.0002] # OCR INVERTED FORK
+2444  ; [*07CD.0020.0002] # OCR BELT BUCKLE
+2445  ; [*07CE.0020.0002] # OCR BOW TIE
+2446  ; [*07CF.0020.0002] # OCR BRANCH BANK IDENTIFICATION
+2447  ; [*07D0.0020.0002] # OCR AMOUNT OF CHECK
+2448  ; [*07D1.0020.0002] # OCR DASH
+2449  ; [*07D2.0020.0002] # OCR CUSTOMER ACCOUNT NUMBER
+244A  ; [*07D3.0020.0002] # OCR DOUBLE BACKSLASH
+2500  ; [*07D4.0020.0002] # BOX DRAWINGS LIGHT HORIZONTAL
+2501  ; [*07D5.0020.0002] # BOX DRAWINGS HEAVY HORIZONTAL
+2502  ; [*07D6.0020.0002] # BOX DRAWINGS LIGHT VERTICAL
+2503  ; [*07D7.0020.0002] # BOX DRAWINGS HEAVY VERTICAL
+2504  ; [*07D8.0020.0002] # BOX DRAWINGS LIGHT TRIPLE DASH HORIZONTAL
+2505  ; [*07D9.0020.0002] # BOX DRAWINGS HEAVY TRIPLE DASH HORIZONTAL
+2506  ; [*07DA.0020.0002] # BOX DRAWINGS LIGHT TRIPLE DASH VERTICAL
+2507  ; [*07DB.0020.0002] # BOX DRAWINGS HEAVY TRIPLE DASH VERTICAL
+2508  ; [*07DC.0020.0002] # BOX DRAWINGS LIGHT QUADRUPLE DASH HORIZONTAL
+2509  ; [*07DD.0020.0002] # BOX DRAWINGS HEAVY QUADRUPLE DASH HORIZONTAL
+250A  ; [*07DE.0020.0002] # BOX DRAWINGS LIGHT QUADRUPLE DASH VERTICAL
+250B  ; [*07DF.0020.0002] # BOX DRAWINGS HEAVY QUADRUPLE DASH VERTICAL
+250C  ; [*07E0.0020.0002] # BOX DRAWINGS LIGHT DOWN AND RIGHT
+250D  ; [*07E1.0020.0002] # BOX DRAWINGS DOWN LIGHT AND RIGHT HEAVY
+250E  ; [*07E2.0020.0002] # BOX DRAWINGS DOWN HEAVY AND RIGHT LIGHT
+250F  ; [*07E3.0020.0002] # BOX DRAWINGS HEAVY DOWN AND RIGHT
+2510  ; [*07E4.0020.0002] # BOX DRAWINGS LIGHT DOWN AND LEFT
+2511  ; [*07E5.0020.0002] # BOX DRAWINGS DOWN LIGHT AND LEFT HEAVY
+2512  ; [*07E6.0020.0002] # BOX DRAWINGS DOWN HEAVY AND LEFT LIGHT
+2513  ; [*07E7.0020.0002] # BOX DRAWINGS HEAVY DOWN AND LEFT
+2514  ; [*07E8.0020.0002] # BOX DRAWINGS LIGHT UP AND RIGHT
+2515  ; [*07E9.0020.0002] # BOX DRAWINGS UP LIGHT AND RIGHT HEAVY
+2516  ; [*07EA.0020.0002] # BOX DRAWINGS UP HEAVY AND RIGHT LIGHT
+2517  ; [*07EB.0020.0002] # BOX DRAWINGS HEAVY UP AND RIGHT
+2518  ; [*07EC.0020.0002] # BOX DRAWINGS LIGHT UP AND LEFT
+2519  ; [*07ED.0020.0002] # BOX DRAWINGS UP LIGHT AND LEFT HEAVY
+251A  ; [*07EE.0020.0002] # BOX DRAWINGS UP HEAVY AND LEFT LIGHT
+251B  ; [*07EF.0020.0002] # BOX DRAWINGS HEAVY UP AND LEFT
+251C  ; [*07F0.0020.0002] # BOX DRAWINGS LIGHT VERTICAL AND RIGHT
+251D  ; [*07F1.0020.0002] # BOX DRAWINGS VERTICAL LIGHT AND RIGHT HEAVY
+251E  ; [*07F2.0020.0002] # BOX DRAWINGS UP HEAVY AND RIGHT DOWN LIGHT
+251F  ; [*07F3.0020.0002] # BOX DRAWINGS DOWN HEAVY AND RIGHT UP LIGHT
+2520  ; [*07F4.0020.0002] # BOX DRAWINGS VERTICAL HEAVY AND RIGHT LIGHT
+2521  ; [*07F5.0020.0002] # BOX DRAWINGS DOWN LIGHT AND RIGHT UP HEAVY
+2522  ; [*07F6.0020.0002] # BOX DRAWINGS UP LIGHT AND RIGHT DOWN HEAVY
+2523  ; [*07F7.0020.0002] # BOX DRAWINGS HEAVY VERTICAL AND RIGHT
+2524  ; [*07F8.0020.0002] # BOX DRAWINGS LIGHT VERTICAL AND LEFT
+2525  ; [*07F9.0020.0002] # BOX DRAWINGS VERTICAL LIGHT AND LEFT HEAVY
+2526  ; [*07FA.0020.0002] # BOX DRAWINGS UP HEAVY AND LEFT DOWN LIGHT
+2527  ; [*07FB.0020.0002] # BOX DRAWINGS DOWN HEAVY AND LEFT UP LIGHT
+2528  ; [*07FC.0020.0002] # BOX DRAWINGS VERTICAL HEAVY AND LEFT LIGHT
+2529  ; [*07FD.0020.0002] # BOX DRAWINGS DOWN LIGHT AND LEFT UP HEAVY
+252A  ; [*07FE.0020.0002] # BOX DRAWINGS UP LIGHT AND LEFT DOWN HEAVY
+252B  ; [*07FF.0020.0002] # BOX DRAWINGS HEAVY VERTICAL AND LEFT
+252C  ; [*0800.0020.0002] # BOX DRAWINGS LIGHT DOWN AND HORIZONTAL
+252D  ; [*0801.0020.0002] # BOX DRAWINGS LEFT HEAVY AND RIGHT DOWN LIGHT
+252E  ; [*0802.0020.0002] # BOX DRAWINGS RIGHT HEAVY AND LEFT DOWN LIGHT
+252F  ; [*0803.0020.0002] # BOX DRAWINGS DOWN LIGHT AND HORIZONTAL HEAVY
+2530  ; [*0804.0020.0002] # BOX DRAWINGS DOWN HEAVY AND HORIZONTAL LIGHT
+2531  ; [*0805.0020.0002] # BOX DRAWINGS RIGHT LIGHT AND LEFT DOWN HEAVY
+2532  ; [*0806.0020.0002] # BOX DRAWINGS LEFT LIGHT AND RIGHT DOWN HEAVY
+2533  ; [*0807.0020.0002] # BOX DRAWINGS HEAVY DOWN AND HORIZONTAL
+2534  ; [*0808.0020.0002] # BOX DRAWINGS LIGHT UP AND HORIZONTAL
+2535  ; [*0809.0020.0002] # BOX DRAWINGS LEFT HEAVY AND RIGHT UP LIGHT
+2536  ; [*080A.0020.0002] # BOX DRAWINGS RIGHT HEAVY AND LEFT UP LIGHT
+2537  ; [*080B.0020.0002] # BOX DRAWINGS UP LIGHT AND HORIZONTAL HEAVY
+2538  ; [*080C.0020.0002] # BOX DRAWINGS UP HEAVY AND HORIZONTAL LIGHT
+2539  ; [*080D.0020.0002] # BOX DRAWINGS RIGHT LIGHT AND LEFT UP HEAVY
+253A  ; [*080E.0020.0002] # BOX DRAWINGS LEFT LIGHT AND RIGHT UP HEAVY
+253B  ; [*080F.0020.0002] # BOX DRAWINGS HEAVY UP AND HORIZONTAL
+253C  ; [*0810.0020.0002] # BOX DRAWINGS LIGHT VERTICAL AND HORIZONTAL
+253D  ; [*0811.0020.0002] # BOX DRAWINGS LEFT HEAVY AND RIGHT VERTICAL LIGHT
+253E  ; [*0812.0020.0002] # BOX DRAWINGS RIGHT HEAVY AND LEFT VERTICAL LIGHT
+253F  ; [*0813.0020.0002] # BOX DRAWINGS VERTICAL LIGHT AND HORIZONTAL HEAVY
+2540  ; [*0814.0020.0002] # BOX DRAWINGS UP HEAVY AND DOWN HORIZONTAL LIGHT
+2541  ; [*0815.0020.0002] # BOX DRAWINGS DOWN HEAVY AND UP HORIZONTAL LIGHT
+2542  ; [*0816.0020.0002] # BOX DRAWINGS VERTICAL HEAVY AND HORIZONTAL LIGHT
+2543  ; [*0817.0020.0002] # BOX DRAWINGS LEFT UP HEAVY AND RIGHT DOWN LIGHT
+2544  ; [*0818.0020.0002] # BOX DRAWINGS RIGHT UP HEAVY AND LEFT DOWN LIGHT
+2545  ; [*0819.0020.0002] # BOX DRAWINGS LEFT DOWN HEAVY AND RIGHT UP LIGHT
+2546  ; [*081A.0020.0002] # BOX DRAWINGS RIGHT DOWN HEAVY AND LEFT UP LIGHT
+2547  ; [*081B.0020.0002] # BOX DRAWINGS DOWN LIGHT AND UP HORIZONTAL HEAVY
+2548  ; [*081C.0020.0002] # BOX DRAWINGS UP LIGHT AND DOWN HORIZONTAL HEAVY
+2549  ; [*081D.0020.0002] # BOX DRAWINGS RIGHT LIGHT AND LEFT VERTICAL HEAVY
+254A  ; [*081E.0020.0002] # BOX DRAWINGS LEFT LIGHT AND RIGHT VERTICAL HEAVY
+254B  ; [*081F.0020.0002] # BOX DRAWINGS HEAVY VERTICAL AND HORIZONTAL
+254C  ; [*0820.0020.0002] # BOX DRAWINGS LIGHT DOUBLE DASH HORIZONTAL
+254D  ; [*0821.0020.0002] # BOX DRAWINGS HEAVY DOUBLE DASH HORIZONTAL
+254E  ; [*0822.0020.0002] # BOX DRAWINGS LIGHT DOUBLE DASH VERTICAL
+254F  ; [*0823.0020.0002] # BOX DRAWINGS HEAVY DOUBLE DASH VERTICAL
+2550  ; [*0824.0020.0002] # BOX DRAWINGS DOUBLE HORIZONTAL
+2551  ; [*0825.0020.0002] # BOX DRAWINGS DOUBLE VERTICAL
+2552  ; [*0826.0020.0002] # BOX DRAWINGS DOWN SINGLE AND RIGHT DOUBLE
+2553  ; [*0827.0020.0002] # BOX DRAWINGS DOWN DOUBLE AND RIGHT SINGLE
+2554  ; [*0828.0020.0002] # BOX DRAWINGS DOUBLE DOWN AND RIGHT
+2555  ; [*0829.0020.0002] # BOX DRAWINGS DOWN SINGLE AND LEFT DOUBLE
+2556  ; [*082A.0020.0002] # BOX DRAWINGS DOWN DOUBLE AND LEFT SINGLE
+2557  ; [*082B.0020.0002] # BOX DRAWINGS DOUBLE DOWN AND LEFT
+2558  ; [*082C.0020.0002] # BOX DRAWINGS UP SINGLE AND RIGHT DOUBLE
+2559  ; [*082D.0020.0002] # BOX DRAWINGS UP DOUBLE AND RIGHT SINGLE
+255A  ; [*082E.0020.0002] # BOX DRAWINGS DOUBLE UP AND RIGHT
+255B  ; [*082F.0020.0002] # BOX DRAWINGS UP SINGLE AND LEFT DOUBLE
+255C  ; [*0830.0020.0002] # BOX DRAWINGS UP DOUBLE AND LEFT SINGLE
+255D  ; [*0831.0020.0002] # BOX DRAWINGS DOUBLE UP AND LEFT
+255E  ; [*0832.0020.0002] # BOX DRAWINGS VERTICAL SINGLE AND RIGHT DOUBLE
+255F  ; [*0833.0020.0002] # BOX DRAWINGS VERTICAL DOUBLE AND RIGHT SINGLE
+2560  ; [*0834.0020.0002] # BOX DRAWINGS DOUBLE VERTICAL AND RIGHT
+2561  ; [*0835.0020.0002] # BOX DRAWINGS VERTICAL SINGLE AND LEFT DOUBLE
+2562  ; [*0836.0020.0002] # BOX DRAWINGS VERTICAL DOUBLE AND LEFT SINGLE
+2563  ; [*0837.0020.0002] # BOX DRAWINGS DOUBLE VERTICAL AND LEFT
+2564  ; [*0838.0020.0002] # BOX DRAWINGS DOWN SINGLE AND HORIZONTAL DOUBLE
+2565  ; [*0839.0020.0002] # BOX DRAWINGS DOWN DOUBLE AND HORIZONTAL SINGLE
+2566  ; [*083A.0020.0002] # BOX DRAWINGS DOUBLE DOWN AND HORIZONTAL
+2567  ; [*083B.0020.0002] # BOX DRAWINGS UP SINGLE AND HORIZONTAL DOUBLE
+2568  ; [*083C.0020.0002] # BOX DRAWINGS UP DOUBLE AND HORIZONTAL SINGLE
+2569  ; [*083D.0020.0002] # BOX DRAWINGS DOUBLE UP AND HORIZONTAL
+256A  ; [*083E.0020.0002] # BOX DRAWINGS VERTICAL SINGLE AND HORIZONTAL DOUBLE
+256B  ; [*083F.0020.0002] # BOX DRAWINGS VERTICAL DOUBLE AND HORIZONTAL SINGLE
+256C  ; [*0840.0020.0002] # BOX DRAWINGS DOUBLE VERTICAL AND HORIZONTAL
+256D  ; [*0841.0020.0002] # BOX DRAWINGS LIGHT ARC DOWN AND RIGHT
+256E  ; [*0842.0020.0002] # BOX DRAWINGS LIGHT ARC DOWN AND LEFT
+256F  ; [*0843.0020.0002] # BOX DRAWINGS LIGHT ARC UP AND LEFT
+2570  ; [*0844.0020.0002] # BOX DRAWINGS LIGHT ARC UP AND RIGHT
+2571  ; [*0845.0020.0002] # BOX DRAWINGS LIGHT DIAGONAL UPPER RIGHT TO LOWER LEFT
+2572  ; [*0846.0020.0002] # BOX DRAWINGS LIGHT DIAGONAL UPPER LEFT TO LOWER RIGHT
+2573  ; [*0847.0020.0002] # BOX DRAWINGS LIGHT DIAGONAL CROSS
+2574  ; [*0848.0020.0002] # BOX DRAWINGS LIGHT LEFT
+2575  ; [*0849.0020.0002] # BOX DRAWINGS LIGHT UP
+2576  ; [*084A.0020.0002] # BOX DRAWINGS LIGHT RIGHT
+2577  ; [*084B.0020.0002] # BOX DRAWINGS LIGHT DOWN
+2578  ; [*084C.0020.0002] # BOX DRAWINGS HEAVY LEFT
+2579  ; [*084D.0020.0002] # BOX DRAWINGS HEAVY UP
+257A  ; [*084E.0020.0002] # BOX DRAWINGS HEAVY RIGHT
+257B  ; [*084F.0020.0002] # BOX DRAWINGS HEAVY DOWN
+257C  ; [*0850.0020.0002] # BOX DRAWINGS LIGHT LEFT AND HEAVY RIGHT
+257D  ; [*0851.0020.0002] # BOX DRAWINGS LIGHT UP AND HEAVY DOWN
+257E  ; [*0852.0020.0002] # BOX DRAWINGS HEAVY LEFT AND LIGHT RIGHT
+257F  ; [*0853.0020.0002] # BOX DRAWINGS HEAVY UP AND LIGHT DOWN
+2580  ; [*0854.0020.0002] # UPPER HALF BLOCK
+2581  ; [*0855.0020.0002] # LOWER ONE EIGHTH BLOCK
+2582  ; [*0856.0020.0002] # LOWER ONE QUARTER BLOCK
+2583  ; [*0857.0020.0002] # LOWER THREE EIGHTHS BLOCK
+2584  ; [*0858.0020.0002] # LOWER HALF BLOCK
+2585  ; [*0859.0020.0002] # LOWER FIVE EIGHTHS BLOCK
+2586  ; [*085A.0020.0002] # LOWER THREE QUARTERS BLOCK
+2587  ; [*085B.0020.0002] # LOWER SEVEN EIGHTHS BLOCK
+2588  ; [*085C.0020.0002] # FULL BLOCK
+2589  ; [*085D.0020.0002] # LEFT SEVEN EIGHTHS BLOCK
+258A  ; [*085E.0020.0002] # LEFT THREE QUARTERS BLOCK
+258B  ; [*085F.0020.0002] # LEFT FIVE EIGHTHS BLOCK
+258C  ; [*0860.0020.0002] # LEFT HALF BLOCK
+258D  ; [*0861.0020.0002] # LEFT THREE EIGHTHS BLOCK
+258E  ; [*0862.0020.0002] # LEFT ONE QUARTER BLOCK
+258F  ; [*0863.0020.0002] # LEFT ONE EIGHTH BLOCK
+2590  ; [*0864.0020.0002] # RIGHT HALF BLOCK
+2591  ; [*0865.0020.0002] # LIGHT SHADE
+2592  ; [*0866.0020.0002] # MEDIUM SHADE
+2593  ; [*0867.0020.0002] # DARK SHADE
+2594  ; [*0868.0020.0002] # UPPER ONE EIGHTH BLOCK
+2595  ; [*0869.0020.0002] # RIGHT ONE EIGHTH BLOCK
+2596  ; [*086A.0020.0002] # QUADRANT LOWER LEFT
+2597  ; [*086B.0020.0002] # QUADRANT LOWER RIGHT
+2598  ; [*086C.0020.0002] # QUADRANT UPPER LEFT
+2599  ; [*086D.0020.0002] # QUADRANT UPPER LEFT AND LOWER LEFT AND LOWER RIGHT
+259A  ; [*086E.0020.0002] # QUADRANT UPPER LEFT AND LOWER RIGHT
+259B  ; [*086F.0020.0002] # QUADRANT UPPER LEFT AND UPPER RIGHT AND LOWER LEFT
+259C  ; [*0870.0020.0002] # QUADRANT UPPER LEFT AND UPPER RIGHT AND LOWER RIGHT
+259D  ; [*0871.0020.0002] # QUADRANT UPPER RIGHT
+259E  ; [*0872.0020.0002] # QUADRANT UPPER RIGHT AND LOWER LEFT
+259F  ; [*0873.0020.0002] # QUADRANT UPPER RIGHT AND LOWER LEFT AND LOWER RIGHT
+25A0  ; [*0874.0020.0002] # BLACK SQUARE
+25A1  ; [*0875.0020.0002] # WHITE SQUARE
+25A2  ; [*0876.0020.0002] # WHITE SQUARE WITH ROUNDED CORNERS
+25A3  ; [*0877.0020.0002] # WHITE SQUARE CONTAINING BLACK SMALL SQUARE
+25A4  ; [*0878.0020.0002] # SQUARE WITH HORIZONTAL FILL
+25A5  ; [*0879.0020.0002] # SQUARE WITH VERTICAL FILL
+25A6  ; [*087A.0020.0002] # SQUARE WITH ORTHOGONAL CROSSHATCH FILL
+25A7  ; [*087B.0020.0002] # SQUARE WITH UPPER LEFT TO LOWER RIGHT FILL
+25A8  ; [*087C.0020.0002] # SQUARE WITH UPPER RIGHT TO LOWER LEFT FILL
+25A9  ; [*087D.0020.0002] # SQUARE WITH DIAGONAL CROSSHATCH FILL
+25AA  ; [*087E.0020.0002] # BLACK SMALL SQUARE
+25AB  ; [*087F.0020.0002] # WHITE SMALL SQUARE
+25AC  ; [*0880.0020.0002] # BLACK RECTANGLE
+25AD  ; [*0881.0020.0002] # WHITE RECTANGLE
+25AE  ; [*0882.0020.0002] # BLACK VERTICAL RECTANGLE
+25AF  ; [*0883.0020.0002] # WHITE VERTICAL RECTANGLE
+25B0  ; [*0884.0020.0002] # BLACK PARALLELOGRAM
+25B1  ; [*0885.0020.0002] # WHITE PARALLELOGRAM
+25B2  ; [*0886.0020.0002] # BLACK UP-POINTING TRIANGLE
+25B3  ; [*0887.0020.0002] # WHITE UP-POINTING TRIANGLE
+25B4  ; [*0888.0020.0002] # BLACK UP-POINTING SMALL TRIANGLE
+25B5  ; [*0889.0020.0002] # WHITE UP-POINTING SMALL TRIANGLE
+25B6  ; [*088A.0020.0002] # BLACK RIGHT-POINTING TRIANGLE
+25B7  ; [*088B.0020.0002] # WHITE RIGHT-POINTING TRIANGLE
+25B8  ; [*088C.0020.0002] # BLACK RIGHT-POINTING SMALL TRIANGLE
+25B9  ; [*088D.0020.0002] # WHITE RIGHT-POINTING SMALL TRIANGLE
+25BA  ; [*088E.0020.0002] # BLACK RIGHT-POINTING POINTER
+25BB  ; [*088F.0020.0002] # WHITE RIGHT-POINTING POINTER
+25BC  ; [*0890.0020.0002] # BLACK DOWN-POINTING TRIANGLE
+25BD  ; [*0891.0020.0002] # WHITE DOWN-POINTING TRIANGLE
+25BE  ; [*0892.0020.0002] # BLACK DOWN-POINTING SMALL TRIANGLE
+25BF  ; [*0893.0020.0002] # WHITE DOWN-POINTING SMALL TRIANGLE
+25C0  ; [*0894.0020.0002] # BLACK LEFT-POINTING TRIANGLE
+25C1  ; [*0895.0020.0002] # WHITE LEFT-POINTING TRIANGLE
+25C2  ; [*0896.0020.0002] # BLACK LEFT-POINTING SMALL TRIANGLE
+25C3  ; [*0897.0020.0002] # WHITE LEFT-POINTING SMALL TRIANGLE
+25C4  ; [*0898.0020.0002] # BLACK LEFT-POINTING POINTER
+25C5  ; [*0899.0020.0002] # WHITE LEFT-POINTING POINTER
+25C6  ; [*089A.0020.0002] # BLACK DIAMOND
+25C7  ; [*089B.0020.0002] # WHITE DIAMOND
+25C8  ; [*089C.0020.0002] # WHITE DIAMOND CONTAINING BLACK SMALL DIAMOND
+25C9  ; [*089D.0020.0002] # FISHEYE
+25CA  ; [*089E.0020.0002] # LOZENGE
+25CB  ; [*089F.0020.0002] # WHITE CIRCLE
+25CC  ; [*08A0.0020.0002] # DOTTED CIRCLE
+25CD  ; [*08A1.0020.0002] # CIRCLE WITH VERTICAL FILL
+25CE  ; [*08A2.0020.0002] # BULLSEYE
+25CF  ; [*08A3.0020.0002] # BLACK CIRCLE
+25D0  ; [*08A4.0020.0002] # CIRCLE WITH LEFT HALF BLACK
+25D1  ; [*08A5.0020.0002] # CIRCLE WITH RIGHT HALF BLACK
+25D2  ; [*08A6.0020.0002] # CIRCLE WITH LOWER HALF BLACK
+25D3  ; [*08A7.0020.0002] # CIRCLE WITH UPPER HALF BLACK
+25D4  ; [*08A8.0020.0002] # CIRCLE WITH UPPER RIGHT QUADRANT BLACK
+25D5  ; [*08A9.0020.0002] # CIRCLE WITH ALL BUT UPPER LEFT QUADRANT BLACK
+25D6  ; [*08AA.0020.0002] # LEFT HALF BLACK CIRCLE
+25D7  ; [*08AB.0020.0002] # RIGHT HALF BLACK CIRCLE
+25D8  ; [*08AC.0020.0002] # INVERSE BULLET
+25D9  ; [*08AD.0020.0002] # INVERSE WHITE CIRCLE
+25DA  ; [*08AE.0020.0002] # UPPER HALF INVERSE WHITE CIRCLE
+25DB  ; [*08AF.0020.0002] # LOWER HALF INVERSE WHITE CIRCLE
+25DC  ; [*08B0.0020.0002] # UPPER LEFT QUADRANT CIRCULAR ARC
+25DD  ; [*08B1.0020.0002] # UPPER RIGHT QUADRANT CIRCULAR ARC
+25DE  ; [*08B2.0020.0002] # LOWER RIGHT QUADRANT CIRCULAR ARC
+25DF  ; [*08B3.0020.0002] # LOWER LEFT QUADRANT CIRCULAR ARC
+25E0  ; [*08B4.0020.0002] # UPPER HALF CIRCLE
+25E1  ; [*08B5.0020.0002] # LOWER HALF CIRCLE
+25E2  ; [*08B6.0020.0002] # BLACK LOWER RIGHT TRIANGLE
+25E3  ; [*08B7.0020.0002] # BLACK LOWER LEFT TRIANGLE
+25E4  ; [*08B8.0020.0002] # BLACK UPPER LEFT TRIANGLE
+25E5  ; [*08B9.0020.0002] # BLACK UPPER RIGHT TRIANGLE
+25E6  ; [*08BA.0020.0002] # WHITE BULLET
+25E7  ; [*08BB.0020.0002] # SQUARE WITH LEFT HALF BLACK
+25E8  ; [*08BC.0020.0002] # SQUARE WITH RIGHT HALF BLACK
+25E9  ; [*08BD.0020.0002] # SQUARE WITH UPPER LEFT DIAGONAL HALF BLACK
+25EA  ; [*08BE.0020.0002] # SQUARE WITH LOWER RIGHT DIAGONAL HALF BLACK
+25EB  ; [*08BF.0020.0002] # WHITE SQUARE WITH VERTICAL BISECTING LINE
+25EC  ; [*08C0.0020.0002] # WHITE UP-POINTING TRIANGLE WITH DOT
+25ED  ; [*08C1.0020.0002] # UP-POINTING TRIANGLE WITH LEFT HALF BLACK
+25EE  ; [*08C2.0020.0002] # UP-POINTING TRIANGLE WITH RIGHT HALF BLACK
+25EF  ; [*08C3.0020.0002] # LARGE CIRCLE
+25F0  ; [*08C4.0020.0002] # WHITE SQUARE WITH UPPER LEFT QUADRANT
+25F1  ; [*08C5.0020.0002] # WHITE SQUARE WITH LOWER LEFT QUADRANT
+25F2  ; [*08C6.0020.0002] # WHITE SQUARE WITH LOWER RIGHT QUADRANT
+25F3  ; [*08C7.0020.0002] # WHITE SQUARE WITH UPPER RIGHT QUADRANT
+25F4  ; [*08C8.0020.0002] # WHITE CIRCLE WITH UPPER LEFT QUADRANT
+25F5  ; [*08C9.0020.0002] # WHITE CIRCLE WITH LOWER LEFT QUADRANT
+25F6  ; [*08CA.0020.0002] # WHITE CIRCLE WITH LOWER RIGHT QUADRANT
+25F7  ; [*08CB.0020.0002] # WHITE CIRCLE WITH UPPER RIGHT QUADRANT
+25F8  ; [*08CC.0020.0002] # UPPER LEFT TRIANGLE
+25F9  ; [*08CD.0020.0002] # UPPER RIGHT TRIANGLE
+25FA  ; [*08CE.0020.0002] # LOWER LEFT TRIANGLE
+25FB  ; [*08CF.0020.0002] # WHITE MEDIUM SQUARE
+25FC  ; [*08D0.0020.0002] # BLACK MEDIUM SQUARE
+25FD  ; [*08D1.0020.0002] # WHITE MEDIUM SMALL SQUARE
+25FE  ; [*08D2.0020.0002] # BLACK MEDIUM SMALL SQUARE
+25FF  ; [*08D3.0020.0002] # LOWER RIGHT TRIANGLE
+2600  ; [*08D4.0020.0002] # BLACK SUN WITH RAYS
+2601  ; [*08D5.0020.0002] # CLOUD
+2602  ; [*08D6.0020.0002] # UMBRELLA
+2603  ; [*08D7.0020.0002] # SNOWMAN
+2604  ; [*08D8.0020.0002] # COMET
+2605  ; [*08D9.0020.0002] # BLACK STAR
+2606  ; [*08DA.0020.0002] # WHITE STAR
+2607  ; [*08DB.0020.0002] # LIGHTNING
+2608  ; [*08DC.0020.0002] # THUNDERSTORM
+2609  ; [*08DD.0020.0002] # SUN
+260A  ; [*08DE.0020.0002] # ASCENDING NODE
+260B  ; [*08DF.0020.0002] # DESCENDING NODE
+260C  ; [*08E0.0020.0002] # CONJUNCTION
+260D  ; [*08E1.0020.0002] # OPPOSITION
+260E  ; [*08E2.0020.0002] # BLACK TELEPHONE
+260F  ; [*08E3.0020.0002] # WHITE TELEPHONE
+2610  ; [*08E4.0020.0002] # BALLOT BOX
+2611  ; [*08E5.0020.0002] # BALLOT BOX WITH CHECK
+2612  ; [*08E6.0020.0002] # BALLOT BOX WITH X
+2613  ; [*08E7.0020.0002] # SALTIRE
+2614  ; [*08E8.0020.0002] # UMBRELLA WITH RAIN DROPS
+2615  ; [*08E9.0020.0002] # HOT BEVERAGE
+2616  ; [*08EA.0020.0002] # WHITE SHOGI PIECE
+2617  ; [*08EB.0020.0002] # BLACK SHOGI PIECE
+2618  ; [*08EC.0020.0002] # SHAMROCK
+2619  ; [*08ED.0020.0002] # REVERSED ROTATED FLORAL HEART BULLET
+261A  ; [*08EE.0020.0002] # BLACK LEFT POINTING INDEX
+261B  ; [*08EF.0020.0002] # BLACK RIGHT POINTING INDEX
+261C  ; [*08F0.0020.0002] # WHITE LEFT POINTING INDEX
+261D  ; [*08F1.0020.0002] # WHITE UP POINTING INDEX
+261E  ; [*08F2.0020.0002] # WHITE RIGHT POINTING INDEX
+261F  ; [*08F3.0020.0002] # WHITE DOWN POINTING INDEX
+2620  ; [*08F4.0020.0002] # SKULL AND CROSSBONES
+2621  ; [*08F5.0020.0002] # CAUTION SIGN
+2622  ; [*08F6.0020.0002] # RADIOACTIVE SIGN
+2623  ; [*08F7.0020.0002] # BIOHAZARD SIGN
+2624  ; [*08F8.0020.0002] # CADUCEUS
+2625  ; [*08F9.0020.0002] # ANKH
+2626  ; [*08FA.0020.0002] # ORTHODOX CROSS
+2627  ; [*08FB.0020.0002] # CHI RHO
+2628  ; [*08FC.0020.0002] # CROSS OF LORRAINE
+2629  ; [*08FD.0020.0002] # CROSS OF JERUSALEM
+262A  ; [*08FE.0020.0002] # STAR AND CRESCENT
+262B  ; [*08FF.0020.0002] # FARSI SYMBOL
+262C  ; [*0900.0020.0002] # ADI SHAKTI
+262D  ; [*0901.0020.0002] # HAMMER AND SICKLE
+262E  ; [*0902.0020.0002] # PEACE SYMBOL
+262F  ; [*0903.0020.0002] # YIN YANG
+2630  ; [*0E5A.0020.0002] # TRIGRAM FOR HEAVEN
+2631  ; [*0E5B.0020.0002] # TRIGRAM FOR LAKE
+2632  ; [*0E5C.0020.0002] # TRIGRAM FOR FIRE
+2633  ; [*0E5D.0020.0002] # TRIGRAM FOR THUNDER
+2634  ; [*0E5E.0020.0002] # TRIGRAM FOR WIND
+2635  ; [*0E5F.0020.0002] # TRIGRAM FOR WATER
+2636  ; [*0E60.0020.0002] # TRIGRAM FOR MOUNTAIN
+2637  ; [*0E61.0020.0002] # TRIGRAM FOR EARTH
+2638  ; [*0904.0020.0002] # WHEEL OF DHARMA
+2639  ; [*0905.0020.0002] # WHITE FROWNING FACE
+263A  ; [*0906.0020.0002] # WHITE SMILING FACE
+263B  ; [*0907.0020.0002] # BLACK SMILING FACE
+263C  ; [*0908.0020.0002] # WHITE SUN WITH RAYS
+263D  ; [*0909.0020.0002] # FIRST QUARTER MOON
+263E  ; [*090A.0020.0002] # LAST QUARTER MOON
+263F  ; [*090B.0020.0002] # MERCURY
+2640  ; [*090C.0020.0002] # FEMALE SIGN
+2641  ; [*090D.0020.0002] # EARTH
+2642  ; [*090E.0020.0002] # MALE SIGN
+2643  ; [*090F.0020.0002] # JUPITER
+2644  ; [*0910.0020.0002] # SATURN
+2645  ; [*0911.0020.0002] # URANUS
+2646  ; [*0912.0020.0002] # NEPTUNE
+2647  ; [*0913.0020.0002] # PLUTO
+2648  ; [*0914.0020.0002] # ARIES
+2649  ; [*0915.0020.0002] # TAURUS
+264A  ; [*0916.0020.0002] # GEMINI
+264B  ; [*0917.0020.0002] # CANCER
+264C  ; [*0918.0020.0002] # LEO
+264D  ; [*0919.0020.0002] # VIRGO
+264E  ; [*091A.0020.0002] # LIBRA
+264F  ; [*091B.0020.0002] # SCORPIUS
+2650  ; [*091C.0020.0002] # SAGITTARIUS
+2651  ; [*091D.0020.0002] # CAPRICORN
+2652  ; [*091E.0020.0002] # AQUARIUS
+2653  ; [*091F.0020.0002] # PISCES
+2654  ; [*0920.0020.0002] # WHITE CHESS KING
+2655  ; [*0921.0020.0002] # WHITE CHESS QUEEN
+2656  ; [*0922.0020.0002] # WHITE CHESS ROOK
+2657  ; [*0923.0020.0002] # WHITE CHESS BISHOP
+2658  ; [*0924.0020.0002] # WHITE CHESS KNIGHT
+2659  ; [*0925.0020.0002] # WHITE CHESS PAWN
+265A  ; [*0926.0020.0002] # BLACK CHESS KING
+265B  ; [*0927.0020.0002] # BLACK CHESS QUEEN
+265C  ; [*0928.0020.0002] # BLACK CHESS ROOK
+265D  ; [*0929.0020.0002] # BLACK CHESS BISHOP
+265E  ; [*092A.0020.0002] # BLACK CHESS KNIGHT
+265F  ; [*092B.0020.0002] # BLACK CHESS PAWN
+2660  ; [*092C.0020.0002] # BLACK SPADE SUIT
+2661  ; [*092D.0020.0002] # WHITE HEART SUIT
+2662  ; [*092E.0020.0002] # WHITE DIAMOND SUIT
+2663  ; [*092F.0020.0002] # BLACK CLUB SUIT
+2664  ; [*0930.0020.0002] # WHITE SPADE SUIT
+2665  ; [*0931.0020.0002] # BLACK HEART SUIT
+2666  ; [*0932.0020.0002] # BLACK DIAMOND SUIT
+2667  ; [*0933.0020.0002] # WHITE CLUB SUIT
+2668  ; [*0934.0020.0002] # HOT SPRINGS
+2669  ; [*0935.0020.0002] # QUARTER NOTE
+266A  ; [*0936.0020.0002] # EIGHTH NOTE
+266B  ; [*0937.0020.0002] # BEAMED EIGHTH NOTES
+266C  ; [*0938.0020.0002] # BEAMED SIXTEENTH NOTES
+266D  ; [*10A9.0020.0002] # MUSIC FLAT SIGN
+266E  ; [*10AA.0020.0002] # MUSIC NATURAL SIGN
+266F  ; [*10AB.0020.0002] # MUSIC SHARP SIGN
+2670  ; [*0939.0020.0002] # WEST SYRIAC CROSS
+2671  ; [*093A.0020.0002] # EAST SYRIAC CROSS
+2672  ; [*093B.0020.0002] # UNIVERSAL RECYCLING SYMBOL
+2673  ; [*093C.0020.0002] # RECYCLING SYMBOL FOR TYPE-1 PLASTICS
+2674  ; [*093D.0020.0002] # RECYCLING SYMBOL FOR TYPE-2 PLASTICS
+2675  ; [*093E.0020.0002] # RECYCLING SYMBOL FOR TYPE-3 PLASTICS
+2676  ; [*093F.0020.0002] # RECYCLING SYMBOL FOR TYPE-4 PLASTICS
+2677  ; [*0940.0020.0002] # RECYCLING SYMBOL FOR TYPE-5 PLASTICS
+2678  ; [*0941.0020.0002] # RECYCLING SYMBOL FOR TYPE-6 PLASTICS
+2679  ; [*0942.0020.0002] # RECYCLING SYMBOL FOR TYPE-7 PLASTICS
+267A  ; [*0943.0020.0002] # RECYCLING SYMBOL FOR GENERIC MATERIALS
+267B  ; [*0944.0020.0002] # BLACK UNIVERSAL RECYCLING SYMBOL
+267C  ; [*0945.0020.0002] # RECYCLED PAPER SYMBOL
+267D  ; [*0946.0020.0002] # PARTIALLY-RECYCLED PAPER SYMBOL
+267E  ; [*0947.0020.0002] # PERMANENT PAPER SIGN
+267F  ; [*0948.0020.0002] # WHEELCHAIR SYMBOL
+2680  ; [*0949.0020.0002] # DIE FACE-1
+2681  ; [*094A.0020.0002] # DIE FACE-2
+2682  ; [*094B.0020.0002] # DIE FACE-3
+2683  ; [*094C.0020.0002] # DIE FACE-4
+2684  ; [*094D.0020.0002] # DIE FACE-5
+2685  ; [*094E.0020.0002] # DIE FACE-6
+2686  ; [*094F.0020.0002] # WHITE CIRCLE WITH DOT RIGHT
+2687  ; [*0950.0020.0002] # WHITE CIRCLE WITH TWO DOTS
+2688  ; [*0951.0020.0002] # BLACK CIRCLE WITH WHITE DOT RIGHT
+2689  ; [*0952.0020.0002] # BLACK CIRCLE WITH TWO WHITE DOTS
+268A  ; [*0E54.0020.0002] # MONOGRAM FOR YANG
+268B  ; [*0E55.0020.0002] # MONOGRAM FOR YIN
+268C  ; [*0E56.0020.0002] # DIGRAM FOR GREATER YANG
+268D  ; [*0E57.0020.0002] # DIGRAM FOR LESSER YIN
+268E  ; [*0E58.0020.0002] # DIGRAM FOR LESSER YANG
+268F  ; [*0E59.0020.0002] # DIGRAM FOR GREATER YIN
+2690  ; [*0953.0020.0002] # WHITE FLAG
+2691  ; [*0954.0020.0002] # BLACK FLAG
+2692  ; [*0955.0020.0002] # HAMMER AND PICK
+2693  ; [*0956.0020.0002] # ANCHOR
+2694  ; [*0957.0020.0002] # CROSSED SWORDS
+2695  ; [*0958.0020.0002] # STAFF OF AESCULAPIUS
+2696  ; [*0959.0020.0002] # SCALES
+2697  ; [*095A.0020.0002] # ALEMBIC
+2698  ; [*095B.0020.0002] # FLOWER
+2699  ; [*095C.0020.0002] # GEAR
+269A  ; [*095D.0020.0002] # STAFF OF HERMES
+269B  ; [*095E.0020.0002] # ATOM SYMBOL
+269C  ; [*095F.0020.0002] # FLEUR-DE-LIS
+269D  ; [*0960.0020.0002] # OUTLINED WHITE STAR
+269E  ; [*0961.0020.0002] # THREE LINES CONVERGING RIGHT
+269F  ; [*0962.0020.0002] # THREE LINES CONVERGING LEFT
+26A0  ; [*0963.0020.0002] # WARNING SIGN
+26A1  ; [*0964.0020.0002] # HIGH VOLTAGE SIGN
+26A2  ; [*0965.0020.0002] # DOUBLED FEMALE SIGN
+26A3  ; [*0966.0020.0002] # DOUBLED MALE SIGN
+26A4  ; [*0967.0020.0002] # INTERLOCKED FEMALE AND MALE SIGN
+26A5  ; [*0968.0020.0002] # MALE AND FEMALE SIGN
+26A6  ; [*0969.0020.0002] # MALE WITH STROKE SIGN
+26A7  ; [*096A.0020.0002] # MALE WITH STROKE AND MALE AND FEMALE SIGN
+26A8  ; [*096B.0020.0002] # VERTICAL MALE WITH STROKE SIGN
+26A9  ; [*096C.0020.0002] # HORIZONTAL MALE WITH STROKE SIGN
+26AA  ; [*096D.0020.0002] # MEDIUM WHITE CIRCLE
+26AB  ; [*096E.0020.0002] # MEDIUM BLACK CIRCLE
+26AC  ; [*096F.0020.0002] # MEDIUM SMALL WHITE CIRCLE
+26AD  ; [*0970.0020.0002] # MARRIAGE SYMBOL
+26AE  ; [*0971.0020.0002] # DIVORCE SYMBOL
+26AF  ; [*0972.0020.0002] # UNMARRIED PARTNERSHIP SYMBOL
+26B0  ; [*0973.0020.0002] # COFFIN
+26B1  ; [*0974.0020.0002] # FUNERAL URN
+26B2  ; [*0975.0020.0002] # NEUTER
+26B3  ; [*0976.0020.0002] # CERES
+26B4  ; [*0977.0020.0002] # PALLAS
+26B5  ; [*0978.0020.0002] # JUNO
+26B6  ; [*0979.0020.0002] # VESTA
+26B7  ; [*097A.0020.0002] # CHIRON
+26B8  ; [*097B.0020.0002] # BLACK MOON LILITH
+26B9  ; [*097C.0020.0002] # SEXTILE
+26BA  ; [*097D.0020.0002] # SEMISEXTILE
+26BB  ; [*097E.0020.0002] # QUINCUNX
+26BC  ; [*097F.0020.0002] # SESQUIQUADRATE
+26BD  ; [*0980.0020.0002] # SOCCER BALL
+26BE  ; [*0981.0020.0002] # BASEBALL
+26BF  ; [*0982.0020.0002] # SQUARED KEY
+26C0  ; [*0983.0020.0002] # WHITE DRAUGHTS MAN
+26C1  ; [*0984.0020.0002] # WHITE DRAUGHTS KING
+26C2  ; [*0985.0020.0002] # BLACK DRAUGHTS MAN
+26C3  ; [*0986.0020.0002] # BLACK DRAUGHTS KING
+26C4  ; [*0987.0020.0002] # SNOWMAN WITHOUT SNOW
+26C5  ; [*0988.0020.0002] # SUN BEHIND CLOUD
+26C6  ; [*0989.0020.0002] # RAIN
+26C7  ; [*098A.0020.0002] # BLACK SNOWMAN
+26C8  ; [*098B.0020.0002] # THUNDER CLOUD AND RAIN
+26C9  ; [*098C.0020.0002] # TURNED WHITE SHOGI PIECE
+26CA  ; [*098D.0020.0002] # TURNED BLACK SHOGI PIECE
+26CB  ; [*098E.0020.0002] # WHITE DIAMOND IN SQUARE
+26CC  ; [*098F.0020.0002] # CROSSING LANES
+26CD  ; [*0990.0020.0002] # DISABLED CAR
+26CE  ; [*0991.0020.0002] # OPHIUCHUS
+26CF  ; [*0992.0020.0002] # PICK
+26D0  ; [*0993.0020.0002] # CAR SLIDING
+26D1  ; [*0994.0020.0002] # HELMET WITH WHITE CROSS
+26D2  ; [*0995.0020.0002] # CIRCLED CROSSING LANES
+26D3  ; [*0996.0020.0002] # CHAINS
+26D4  ; [*0997.0020.0002] # NO ENTRY
+26D5  ; [*0998.0020.0002] # ALTERNATE ONE-WAY LEFT WAY TRAFFIC
+26D6  ; [*0999.0020.0002] # BLACK TWO-WAY LEFT WAY TRAFFIC
+26D7  ; [*099A.0020.0002] # WHITE TWO-WAY LEFT WAY TRAFFIC
+26D8  ; [*099B.0020.0002] # BLACK LEFT LANE MERGE
+26D9  ; [*099C.0020.0002] # WHITE LEFT LANE MERGE
+26DA  ; [*099D.0020.0002] # DRIVE SLOW SIGN
+26DB  ; [*099E.0020.0002] # HEAVY WHITE DOWN-POINTING TRIANGLE
+26DC  ; [*099F.0020.0002] # LEFT CLOSED ENTRY
+26DD  ; [*09A0.0020.0002] # SQUARED SALTIRE
+26DE  ; [*09A1.0020.0002] # FALLING DIAGONAL IN WHITE CIRCLE IN BLACK SQUARE
+26DF  ; [*09A2.0020.0002] # BLACK TRUCK
+26E0  ; [*09A3.0020.0002] # RESTRICTED LEFT ENTRY-1
+26E1  ; [*09A4.0020.0002] # RESTRICTED LEFT ENTRY-2
+26E2  ; [*09A5.0020.0002] # ASTRONOMICAL SYMBOL FOR URANUS
+26E3  ; [*09A6.0020.0002] # HEAVY CIRCLE WITH STROKE AND TWO DOTS ABOVE
+26E4  ; [*09A7.0020.0002] # PENTAGRAM
+26E5  ; [*09A8.0020.0002] # RIGHT-HANDED INTERLACED PENTAGRAM
+26E6  ; [*09A9.0020.0002] # LEFT-HANDED INTERLACED PENTAGRAM
+26E7  ; [*09AA.0020.0002] # INVERTED PENTAGRAM
+26E8  ; [*09AB.0020.0002] # BLACK CROSS ON SHIELD
+26E9  ; [*09AC.0020.0002] # SHINTO SHRINE
+26EA  ; [*09AD.0020.0002] # CHURCH
+26EB  ; [*09AE.0020.0002] # CASTLE
+26EC  ; [*09AF.0020.0002] # HISTORIC SITE
+26ED  ; [*09B0.0020.0002] # GEAR WITHOUT HUB
+26EE  ; [*09B1.0020.0002] # GEAR WITH HANDLES
+26EF  ; [*09B2.0020.0002] # MAP SYMBOL FOR LIGHTHOUSE
+26F0  ; [*09B3.0020.0002] # MOUNTAIN
+26F1  ; [*09B4.0020.0002] # UMBRELLA ON GROUND
+26F2  ; [*09B5.0020.0002] # FOUNTAIN
+26F3  ; [*09B6.0020.0002] # FLAG IN HOLE
+26F4  ; [*09B7.0020.0002] # FERRY
+26F5  ; [*09B8.0020.0002] # SAILBOAT
+26F6  ; [*09B9.0020.0002] # SQUARE FOUR CORNERS
+26F7  ; [*09BA.0020.0002] # SKIER
+26F8  ; [*09BB.0020.0002] # ICE SKATE
+26F9  ; [*09BC.0020.0002] # PERSON WITH BALL
+26FA  ; [*09BD.0020.0002] # TENT
+26FB  ; [*09BE.0020.0002] # JAPANESE BANK SYMBOL
+26FC  ; [*09BF.0020.0002] # HEADSTONE GRAVEYARD SYMBOL
+26FD  ; [*09C0.0020.0002] # FUEL PUMP
+26FE  ; [*09C1.0020.0002] # CUP ON BLACK SQUARE
+26FF  ; [*09C2.0020.0002] # WHITE FLAG WITH HORIZONTAL MIDDLE BLACK STRIPE
+2700  ; [*09DD.0020.0002] # BLACK SAFETY SCISSORS
+2701  ; [*09DE.0020.0002] # UPPER BLADE SCISSORS
+2702  ; [*09DF.0020.0002] # BLACK SCISSORS
+2703  ; [*09E0.0020.0002] # LOWER BLADE SCISSORS
+2704  ; [*09E1.0020.0002] # WHITE SCISSORS
+2705  ; [*09E2.0020.0002] # WHITE HEAVY CHECK MARK
+2706  ; [*09E3.0020.0002] # TELEPHONE LOCATION SIGN
+2707  ; [*09E4.0020.0002] # TAPE DRIVE
+2708  ; [*09E5.0020.0002] # AIRPLANE
+2709  ; [*09E6.0020.0002] # ENVELOPE
+270A  ; [*09E7.0020.0002] # RAISED FIST
+270B  ; [*09E8.0020.0002] # RAISED HAND
+270C  ; [*09E9.0020.0002] # VICTORY HAND
+270D  ; [*09EA.0020.0002] # WRITING HAND
+270E  ; [*09EB.0020.0002] # LOWER RIGHT PENCIL
+270F  ; [*09EC.0020.0002] # PENCIL
+2710  ; [*09ED.0020.0002] # UPPER RIGHT PENCIL
+2711  ; [*09EE.0020.0002] # WHITE NIB
+2712  ; [*09EF.0020.0002] # BLACK NIB
+2713  ; [*09F0.0020.0002] # CHECK MARK
+2714  ; [*09F1.0020.0002] # HEAVY CHECK MARK
+2715  ; [*09F2.0020.0002] # MULTIPLICATION X
+2716  ; [*09F3.0020.0002] # HEAVY MULTIPLICATION X
+2717  ; [*09F4.0020.0002] # BALLOT X
+2718  ; [*09F5.0020.0002] # HEAVY BALLOT X
+2719  ; [*09F6.0020.0002] # OUTLINED GREEK CROSS
+271A  ; [*09F7.0020.0002] # HEAVY GREEK CROSS
+271B  ; [*09F8.0020.0002] # OPEN CENTRE CROSS
+271C  ; [*09F9.0020.0002] # HEAVY OPEN CENTRE CROSS
+271D  ; [*09FA.0020.0002] # LATIN CROSS
+271E  ; [*09FB.0020.0002] # SHADOWED WHITE LATIN CROSS
+271F  ; [*09FC.0020.0002] # OUTLINED LATIN CROSS
+2720  ; [*09FD.0020.0002] # MALTESE CROSS
+2721  ; [*09FE.0020.0002] # STAR OF DAVID
+2722  ; [*09FF.0020.0002] # FOUR TEARDROP-SPOKED ASTERISK
+2723  ; [*0A00.0020.0002] # FOUR BALLOON-SPOKED ASTERISK
+2724  ; [*0A01.0020.0002] # HEAVY FOUR BALLOON-SPOKED ASTERISK
+2725  ; [*0A02.0020.0002] # FOUR CLUB-SPOKED ASTERISK
+2726  ; [*0A03.0020.0002] # BLACK FOUR POINTED STAR
+2727  ; [*0A04.0020.0002] # WHITE FOUR POINTED STAR
+2728  ; [*0A05.0020.0002] # SPARKLES
+2729  ; [*0A06.0020.0002] # STRESS OUTLINED WHITE STAR
+272A  ; [*0A07.0020.0002] # CIRCLED WHITE STAR
+272B  ; [*0A08.0020.0002] # OPEN CENTRE BLACK STAR
+272C  ; [*0A09.0020.0002] # BLACK CENTRE WHITE STAR
+272D  ; [*0A0A.0020.0002] # OUTLINED BLACK STAR
+272E  ; [*0A0B.0020.0002] # HEAVY OUTLINED BLACK STAR
+272F  ; [*0A0C.0020.0002] # PINWHEEL STAR
+2730  ; [*0A0D.0020.0002] # SHADOWED WHITE STAR
+2731  ; [*0A0E.0020.0002] # HEAVY ASTERISK
+2732  ; [*0A0F.0020.0002] # OPEN CENTRE ASTERISK
+2733  ; [*0A10.0020.0002] # EIGHT SPOKED ASTERISK
+2734  ; [*0A11.0020.0002] # EIGHT POINTED BLACK STAR
+2735  ; [*0A12.0020.0002] # EIGHT POINTED PINWHEEL STAR
+2736  ; [*0A13.0020.0002] # SIX POINTED BLACK STAR
+2737  ; [*0A14.0020.0002] # EIGHT POINTED RECTILINEAR BLACK STAR
+2738  ; [*0A15.0020.0002] # HEAVY EIGHT POINTED RECTILINEAR BLACK STAR
+2739  ; [*0A16.0020.0002] # TWELVE POINTED BLACK STAR
+273A  ; [*0A17.0020.0002] # SIXTEEN POINTED ASTERISK
+273B  ; [*0A18.0020.0002] # TEARDROP-SPOKED ASTERISK
+273C  ; [*0A19.0020.0002] # OPEN CENTRE TEARDROP-SPOKED ASTERISK
+273D  ; [*0A1A.0020.0002] # HEAVY TEARDROP-SPOKED ASTERISK
+273E  ; [*0A1B.0020.0002] # SIX PETALLED BLACK AND WHITE FLORETTE
+273F  ; [*0A1C.0020.0002] # BLACK FLORETTE
+2740  ; [*0A1D.0020.0002] # WHITE FLORETTE
+2741  ; [*0A1E.0020.0002] # EIGHT PETALLED OUTLINED BLACK FLORETTE
+2742  ; [*0A1F.0020.0002] # CIRCLED OPEN CENTRE EIGHT POINTED STAR
+2743  ; [*0A20.0020.0002] # HEAVY TEARDROP-SPOKED PINWHEEL ASTERISK
+2744  ; [*0A21.0020.0002] # SNOWFLAKE
+2745  ; [*0A22.0020.0002] # TIGHT TRIFOLIATE SNOWFLAKE
+2746  ; [*0A23.0020.0002] # HEAVY CHEVRON SNOWFLAKE
+2747  ; [*0A24.0020.0002] # SPARKLE
+2748  ; [*0A25.0020.0002] # HEAVY SPARKLE
+2749  ; [*0A26.0020.0002] # BALLOON-SPOKED ASTERISK
+274A  ; [*0A27.0020.0002] # EIGHT TEARDROP-SPOKED PROPELLER ASTERISK
+274B  ; [*0A28.0020.0002] # HEAVY EIGHT TEARDROP-SPOKED PROPELLER ASTERISK
+274C  ; [*0A29.0020.0002] # CROSS MARK
+274D  ; [*0A2A.0020.0002] # SHADOWED WHITE CIRCLE
+274E  ; [*0A2B.0020.0002] # NEGATIVE SQUARED CROSS MARK
+274F  ; [*0A2C.0020.0002] # LOWER RIGHT DROP-SHADOWED WHITE SQUARE
+2750  ; [*0A2D.0020.0002] # UPPER RIGHT DROP-SHADOWED WHITE SQUARE
+2751  ; [*0A2E.0020.0002] # LOWER RIGHT SHADOWED WHITE SQUARE
+2752  ; [*0A2F.0020.0002] # UPPER RIGHT SHADOWED WHITE SQUARE
+2753  ; [*0A30.0020.0002] # BLACK QUESTION MARK ORNAMENT
+2754  ; [*0A31.0020.0002] # WHITE QUESTION MARK ORNAMENT
+2755  ; [*0A32.0020.0002] # WHITE EXCLAMATION MARK ORNAMENT
+2756  ; [*0A33.0020.0002] # BLACK DIAMOND MINUS WHITE X
+2757  ; [*0A34.0020.0002] # HEAVY EXCLAMATION MARK SYMBOL
+2758  ; [*0A35.0020.0002] # LIGHT VERTICAL BAR
+2759  ; [*0A36.0020.0002] # MEDIUM VERTICAL BAR
+275A  ; [*0A37.0020.0002] # HEAVY VERTICAL BAR
+275B  ; [*0A38.0020.0002] # HEAVY SINGLE TURNED COMMA QUOTATION MARK ORNAMENT
+275C  ; [*0A39.0020.0002] # HEAVY SINGLE COMMA QUOTATION MARK ORNAMENT
+275D  ; [*0A3A.0020.0002] # HEAVY DOUBLE TURNED COMMA QUOTATION MARK ORNAMENT
+275E  ; [*0A3B.0020.0002] # HEAVY DOUBLE COMMA QUOTATION MARK ORNAMENT
+275F  ; [*0A3C.0020.0002] # HEAVY LOW SINGLE COMMA QUOTATION MARK ORNAMENT
+2760  ; [*0A3D.0020.0002] # HEAVY LOW DOUBLE COMMA QUOTATION MARK ORNAMENT
+2761  ; [*0A3E.0020.0002] # CURVED STEM PARAGRAPH SIGN ORNAMENT
+2762  ; [*0A3F.0020.0002] # HEAVY EXCLAMATION MARK ORNAMENT
+2763  ; [*0A40.0020.0002] # HEAVY HEART EXCLAMATION MARK ORNAMENT
+2764  ; [*0A41.0020.0002] # HEAVY BLACK HEART
+2765  ; [*0A42.0020.0002] # ROTATED HEAVY BLACK HEART BULLET
+2766  ; [*0A43.0020.0002] # FLORAL HEART
+2767  ; [*0A44.0020.0002] # ROTATED FLORAL HEART BULLET
+2768  ; [*0340.0020.0002] # MEDIUM LEFT PARENTHESIS ORNAMENT
+2769  ; [*0341.0020.0002] # MEDIUM RIGHT PARENTHESIS ORNAMENT
+276A  ; [*0342.0020.0002] # MEDIUM FLATTENED LEFT PARENTHESIS ORNAMENT
+276B  ; [*0343.0020.0002] # MEDIUM FLATTENED RIGHT PARENTHESIS ORNAMENT
+276C  ; [*0344.0020.0002] # MEDIUM LEFT-POINTING ANGLE BRACKET ORNAMENT
+276D  ; [*0345.0020.0002] # MEDIUM RIGHT-POINTING ANGLE BRACKET ORNAMENT
+276E  ; [*0346.0020.0002] # HEAVY LEFT-POINTING ANGLE QUOTATION MARK ORNAMENT
+276F  ; [*0347.0020.0002] # HEAVY RIGHT-POINTING ANGLE QUOTATION MARK ORNAMENT
+2770  ; [*0348.0020.0002] # HEAVY LEFT-POINTING ANGLE BRACKET ORNAMENT
+2771  ; [*0349.0020.0002] # HEAVY RIGHT-POINTING ANGLE BRACKET ORNAMENT
+2772  ; [*034A.0020.0002] # LIGHT LEFT TORTOISE SHELL BRACKET ORNAMENT
+2773  ; [*034B.0020.0002] # LIGHT RIGHT TORTOISE SHELL BRACKET ORNAMENT
+2774  ; [*034C.0020.0002] # MEDIUM LEFT CURLY BRACKET ORNAMENT
+2775  ; [*034D.0020.0002] # MEDIUM RIGHT CURLY BRACKET ORNAMENT
+2794  ; [*0A45.0020.0002] # HEAVY WIDE-HEADED RIGHTWARDS ARROW
+2795  ; [*0A46.0020.0002] # HEAVY PLUS SIGN
+2796  ; [*0A47.0020.0002] # HEAVY MINUS SIGN
+2797  ; [*0A48.0020.0002] # HEAVY DIVISION SIGN
+2798  ; [*0A49.0020.0002] # HEAVY SOUTH EAST ARROW
+2799  ; [*0A4A.0020.0002] # HEAVY RIGHTWARDS ARROW
+279A  ; [*0A4B.0020.0002] # HEAVY NORTH EAST ARROW
+279B  ; [*0A4C.0020.0002] # DRAFTING POINT RIGHTWARDS ARROW
+279C  ; [*0A4D.0020.0002] # HEAVY ROUND-TIPPED RIGHTWARDS ARROW
+279D  ; [*0A4E.0020.0002] # TRIANGLE-HEADED RIGHTWARDS ARROW
+279E  ; [*0A4F.0020.0002] # HEAVY TRIANGLE-HEADED RIGHTWARDS ARROW
+279F  ; [*0A50.0020.0002] # DASHED TRIANGLE-HEADED RIGHTWARDS ARROW
+27A0  ; [*0A51.0020.0002] # HEAVY DASHED TRIANGLE-HEADED RIGHTWARDS ARROW
+27A1  ; [*0A52.0020.0002] # BLACK RIGHTWARDS ARROW
+27A2  ; [*0A53.0020.0002] # THREE-D TOP-LIGHTED RIGHTWARDS ARROWHEAD
+27A3  ; [*0A54.0020.0002] # THREE-D BOTTOM-LIGHTED RIGHTWARDS ARROWHEAD
+27A4  ; [*0A55.0020.0002] # BLACK RIGHTWARDS ARROWHEAD
+27A5  ; [*0A56.0020.0002] # HEAVY BLACK CURVED DOWNWARDS AND RIGHTWARDS ARROW
+27A6  ; [*0A57.0020.0002] # HEAVY BLACK CURVED UPWARDS AND RIGHTWARDS ARROW
+27A7  ; [*0A58.0020.0002] # SQUAT BLACK RIGHTWARDS ARROW
+27A8  ; [*0A59.0020.0002] # HEAVY CONCAVE-POINTED BLACK RIGHTWARDS ARROW
+27A9  ; [*0A5A.0020.0002] # RIGHT-SHADED WHITE RIGHTWARDS ARROW
+27AA  ; [*0A5B.0020.0002] # LEFT-SHADED WHITE RIGHTWARDS ARROW
+27AB  ; [*0A5C.0020.0002] # BACK-TILTED SHADOWED WHITE RIGHTWARDS ARROW
+27AC  ; [*0A5D.0020.0002] # FRONT-TILTED SHADOWED WHITE RIGHTWARDS ARROW
+27AD  ; [*0A5E.0020.0002] # HEAVY LOWER RIGHT-SHADOWED WHITE RIGHTWARDS ARROW
+27AE  ; [*0A5F.0020.0002] # HEAVY UPPER RIGHT-SHADOWED WHITE RIGHTWARDS ARROW
+27AF  ; [*0A60.0020.0002] # NOTCHED LOWER RIGHT-SHADOWED WHITE RIGHTWARDS ARROW
+27B0  ; [*0A61.0020.0002] # CURLY LOOP
+27B1  ; [*0A62.0020.0002] # NOTCHED UPPER RIGHT-SHADOWED WHITE RIGHTWARDS ARROW
+27B2  ; [*0A63.0020.0002] # CIRCLED HEAVY WHITE RIGHTWARDS ARROW
+27B3  ; [*0A64.0020.0002] # WHITE-FEATHERED RIGHTWARDS ARROW
+27B4  ; [*0A65.0020.0002] # BLACK-FEATHERED SOUTH EAST ARROW
+27B5  ; [*0A66.0020.0002] # BLACK-FEATHERED RIGHTWARDS ARROW
+27B6  ; [*0A67.0020.0002] # BLACK-FEATHERED NORTH EAST ARROW
+27B7  ; [*0A68.0020.0002] # HEAVY BLACK-FEATHERED SOUTH EAST ARROW
+27B8  ; [*0A69.0020.0002] # HEAVY BLACK-FEATHERED RIGHTWARDS ARROW
+27B9  ; [*0A6A.0020.0002] # HEAVY BLACK-FEATHERED NORTH EAST ARROW
+27BA  ; [*0A6B.0020.0002] # TEARDROP-BARBED RIGHTWARDS ARROW
+27BB  ; [*0A6C.0020.0002] # HEAVY TEARDROP-SHANKED RIGHTWARDS ARROW
+27BC  ; [*0A6D.0020.0002] # WEDGE-TAILED RIGHTWARDS ARROW
+27BD  ; [*0A6E.0020.0002] # HEAVY WEDGE-TAILED RIGHTWARDS ARROW
+27BE  ; [*0A6F.0020.0002] # OPEN-OUTLINED RIGHTWARDS ARROW
+27BF  ; [*0A70.0020.0002] # DOUBLE CURLY LOOP
+27C0  ; [*0A71.0020.0002] # THREE DIMENSIONAL ANGLE
+27C1  ; [*0A72.0020.0002] # WHITE TRIANGLE CONTAINING SMALL WHITE TRIANGLE
+27C2  ; [*0A73.0020.0002] # PERPENDICULAR
+27C3  ; [*0A74.0020.0002] # OPEN SUBSET
+27C4  ; [*0A75.0020.0002] # OPEN SUPERSET
+27C5  ; [*0334.0020.0002] # LEFT S-SHAPED BAG DELIMITER
+27C6  ; [*0335.0020.0002] # RIGHT S-SHAPED BAG DELIMITER
+27C7  ; [*0A76.0020.0002] # OR WITH DOT INSIDE
+27C8  ; [*0A77.0020.0002] # REVERSE SOLIDUS PRECEDING SUBSET
+27C9  ; [*0A78.0020.0002] # SUPERSET PRECEDING SOLIDUS
+27CA  ; [*0A79.0020.0002] # VERTICAL BAR WITH HORIZONTAL STROKE
+27CB  ; [*0A7A.0020.0002] # MATHEMATICAL RISING DIAGONAL
+27CC  ; [*0A7B.0020.0002] # LONG DIVISION
+27CD  ; [*0A7C.0020.0002] # MATHEMATICAL FALLING DIAGONAL
+27CE  ; [*0A7D.0020.0002] # SQUARED LOGICAL AND
+27CF  ; [*0A7E.0020.0002] # SQUARED LOGICAL OR
+27D0  ; [*0A7F.0020.0002] # WHITE DIAMOND WITH CENTRED DOT
+27D1  ; [*0A80.0020.0002] # AND WITH DOT
+27D2  ; [*0A81.0020.0002] # ELEMENT OF OPENING UPWARDS
+27D3  ; [*0A82.0020.0002] # LOWER RIGHT CORNER WITH DOT
+27D4  ; [*0A83.0020.0002] # UPPER LEFT CORNER WITH DOT
+27D5  ; [*0A84.0020.0002] # LEFT OUTER JOIN
+27D6  ; [*0A85.0020.0002] # RIGHT OUTER JOIN
+27D7  ; [*0A86.0020.0002] # FULL OUTER JOIN
+27D8  ; [*0A87.0020.0002] # LARGE UP TACK
+27D9  ; [*0A88.0020.0002] # LARGE DOWN TACK
+27DA  ; [*0A89.0020.0002] # LEFT AND RIGHT DOUBLE TURNSTILE
+27DB  ; [*0A8A.0020.0002] # LEFT AND RIGHT TACK
+27DC  ; [*0A8B.0020.0002] # LEFT MULTIMAP
+27DD  ; [*0A8C.0020.0002] # LONG RIGHT TACK
+27DE  ; [*0A8D.0020.0002] # LONG LEFT TACK
+27DF  ; [*0A8E.0020.0002] # UP TACK WITH CIRCLE ABOVE
+27E0  ; [*0A8F.0020.0002] # LOZENGE DIVIDED BY HORIZONTAL RULE
+27E1  ; [*0A90.0020.0002] # WHITE CONCAVE-SIDED DIAMOND
+27E2  ; [*0A91.0020.0002] # WHITE CONCAVE-SIDED DIAMOND WITH LEFTWARDS TICK
+27E3  ; [*0A92.0020.0002] # WHITE CONCAVE-SIDED DIAMOND WITH RIGHTWARDS TICK
+27E4  ; [*0A93.0020.0002] # WHITE SQUARE WITH LEFTWARDS TICK
+27E5  ; [*0A94.0020.0002] # WHITE SQUARE WITH RIGHTWARDS TICK
+27E6  ; [*0336.0020.0002] # MATHEMATICAL LEFT WHITE SQUARE BRACKET
+27E7  ; [*0337.0020.0002] # MATHEMATICAL RIGHT WHITE SQUARE BRACKET
+27E8  ; [*0338.0020.0002] # MATHEMATICAL LEFT ANGLE BRACKET
+27E9  ; [*0339.0020.0002] # MATHEMATICAL RIGHT ANGLE BRACKET
+27EA  ; [*033A.0020.0002] # MATHEMATICAL LEFT DOUBLE ANGLE BRACKET
+27EB  ; [*033B.0020.0002] # MATHEMATICAL RIGHT DOUBLE ANGLE BRACKET
+27EC  ; [*033C.0020.0002] # MATHEMATICAL LEFT WHITE TORTOISE SHELL BRACKET
+27ED  ; [*033D.0020.0002] # MATHEMATICAL RIGHT WHITE TORTOISE SHELL BRACKET
+27EE  ; [*033E.0020.0002] # MATHEMATICAL LEFT FLATTENED PARENTHESIS
+27EF  ; [*033F.0020.0002] # MATHEMATICAL RIGHT FLATTENED PARENTHESIS
+27F0  ; [*0A95.0020.0002] # UPWARDS QUADRUPLE ARROW
+27F1  ; [*0A96.0020.0002] # DOWNWARDS QUADRUPLE ARROW
+27F2  ; [*0A97.0020.0002] # ANTICLOCKWISE GAPPED CIRCLE ARROW
+27F3  ; [*0A98.0020.0002] # CLOCKWISE GAPPED CIRCLE ARROW
+27F4  ; [*0A99.0020.0002] # RIGHT ARROW WITH CIRCLED PLUS
+27F5  ; [*0A9A.0020.0002] # LONG LEFTWARDS ARROW
+27F6  ; [*0A9B.0020.0002] # LONG RIGHTWARDS ARROW
+27F7  ; [*0A9C.0020.0002] # LONG LEFT RIGHT ARROW
+27F8  ; [*0A9D.0020.0002] # LONG LEFTWARDS DOUBLE ARROW
+27F9  ; [*0A9E.0020.0002] # LONG RIGHTWARDS DOUBLE ARROW
+27FA  ; [*0A9F.0020.0002] # LONG LEFT RIGHT DOUBLE ARROW
+27FB  ; [*0AA0.0020.0002] # LONG LEFTWARDS ARROW FROM BAR
+27FC  ; [*0AA1.0020.0002] # LONG RIGHTWARDS ARROW FROM BAR
+27FD  ; [*0AA2.0020.0002] # LONG LEFTWARDS DOUBLE ARROW FROM BAR
+27FE  ; [*0AA3.0020.0002] # LONG RIGHTWARDS DOUBLE ARROW FROM BAR
+27FF  ; [*0AA4.0020.0002] # LONG RIGHTWARDS SQUIGGLE ARROW
+2800  ; [*0D54.0020.0002] # BRAILLE PATTERN BLANK
+2801  ; [*0D55.0020.0002] # BRAILLE PATTERN DOTS-1
+2802  ; [*0D56.0020.0002] # BRAILLE PATTERN DOTS-2
+2803  ; [*0D57.0020.0002] # BRAILLE PATTERN DOTS-12
+2804  ; [*0D58.0020.0002] # BRAILLE PATTERN DOTS-3
+2805  ; [*0D59.0020.0002] # BRAILLE PATTERN DOTS-13
+2806  ; [*0D5A.0020.0002] # BRAILLE PATTERN DOTS-23
+2807  ; [*0D5B.0020.0002] # BRAILLE PATTERN DOTS-123
+2808  ; [*0D5C.0020.0002] # BRAILLE PATTERN DOTS-4
+2809  ; [*0D5D.0020.0002] # BRAILLE PATTERN DOTS-14
+280A  ; [*0D5E.0020.0002] # BRAILLE PATTERN DOTS-24
+280B  ; [*0D5F.0020.0002] # BRAILLE PATTERN DOTS-124
+280C  ; [*0D60.0020.0002] # BRAILLE PATTERN DOTS-34
+280D  ; [*0D61.0020.0002] # BRAILLE PATTERN DOTS-134
+280E  ; [*0D62.0020.0002] # BRAILLE PATTERN DOTS-234
+280F  ; [*0D63.0020.0002] # BRAILLE PATTERN DOTS-1234
+2810  ; [*0D64.0020.0002] # BRAILLE PATTERN DOTS-5
+2811  ; [*0D65.0020.0002] # BRAILLE PATTERN DOTS-15
+2812  ; [*0D66.0020.0002] # BRAILLE PATTERN DOTS-25
+2813  ; [*0D67.0020.0002] # BRAILLE PATTERN DOTS-125
+2814  ; [*0D68.0020.0002] # BRAILLE PATTERN DOTS-35
+2815  ; [*0D69.0020.0002] # BRAILLE PATTERN DOTS-135
+2816  ; [*0D6A.0020.0002] # BRAILLE PATTERN DOTS-235
+2817  ; [*0D6B.0020.0002] # BRAILLE PATTERN DOTS-1235
+2818  ; [*0D6C.0020.0002] # BRAILLE PATTERN DOTS-45
+2819  ; [*0D6D.0020.0002] # BRAILLE PATTERN DOTS-145
+281A  ; [*0D6E.0020.0002] # BRAILLE PATTERN DOTS-245
+281B  ; [*0D6F.0020.0002] # BRAILLE PATTERN DOTS-1245
+281C  ; [*0D70.0020.0002] # BRAILLE PATTERN DOTS-345
+281D  ; [*0D71.0020.0002] # BRAILLE PATTERN DOTS-1345
+281E  ; [*0D72.0020.0002] # BRAILLE PATTERN DOTS-2345
+281F  ; [*0D73.0020.0002] # BRAILLE PATTERN DOTS-12345
+2820  ; [*0D74.0020.0002] # BRAILLE PATTERN DOTS-6
+2821  ; [*0D75.0020.0002] # BRAILLE PATTERN DOTS-16
+2822  ; [*0D76.0020.0002] # BRAILLE PATTERN DOTS-26
+2823  ; [*0D77.0020.0002] # BRAILLE PATTERN DOTS-126
+2824  ; [*0D78.0020.0002] # BRAILLE PATTERN DOTS-36
+2825  ; [*0D79.0020.0002] # BRAILLE PATTERN DOTS-136
+2826  ; [*0D7A.0020.0002] # BRAILLE PATTERN DOTS-236
+2827  ; [*0D7B.0020.0002] # BRAILLE PATTERN DOTS-1236
+2828  ; [*0D7C.0020.0002] # BRAILLE PATTERN DOTS-46
+2829  ; [*0D7D.0020.0002] # BRAILLE PATTERN DOTS-146
+282A  ; [*0D7E.0020.0002] # BRAILLE PATTERN DOTS-246
+282B  ; [*0D7F.0020.0002] # BRAILLE PATTERN DOTS-1246
+282C  ; [*0D80.0020.0002] # BRAILLE PATTERN DOTS-346
+282D  ; [*0D81.0020.0002] # BRAILLE PATTERN DOTS-1346
+282E  ; [*0D82.0020.0002] # BRAILLE PATTERN DOTS-2346
+282F  ; [*0D83.0020.0002] # BRAILLE PATTERN DOTS-12346
+2830  ; [*0D84.0020.0002] # BRAILLE PATTERN DOTS-56
+2831  ; [*0D85.0020.0002] # BRAILLE PATTERN DOTS-156
+2832  ; [*0D86.0020.0002] # BRAILLE PATTERN DOTS-256
+2833  ; [*0D87.0020.0002] # BRAILLE PATTERN DOTS-1256
+2834  ; [*0D88.0020.0002] # BRAILLE PATTERN DOTS-356
+2835  ; [*0D89.0020.0002] # BRAILLE PATTERN DOTS-1356
+2836  ; [*0D8A.0020.0002] # BRAILLE PATTERN DOTS-2356
+2837  ; [*0D8B.0020.0002] # BRAILLE PATTERN DOTS-12356
+2838  ; [*0D8C.0020.0002] # BRAILLE PATTERN DOTS-456
+2839  ; [*0D8D.0020.0002] # BRAILLE PATTERN DOTS-1456
+283A  ; [*0D8E.0020.0002] # BRAILLE PATTERN DOTS-2456
+283B  ; [*0D8F.0020.0002] # BRAILLE PATTERN DOTS-12456
+283C  ; [*0D90.0020.0002] # BRAILLE PATTERN DOTS-3456
+283D  ; [*0D91.0020.0002] # BRAILLE PATTERN DOTS-13456
+283E  ; [*0D92.0020.0002] # BRAILLE PATTERN DOTS-23456
+283F  ; [*0D93.0020.0002] # BRAILLE PATTERN DOTS-123456
+2840  ; [*0D94.0020.0002] # BRAILLE PATTERN DOTS-7
+2841  ; [*0D95.0020.0002] # BRAILLE PATTERN DOTS-17
+2842  ; [*0D96.0020.0002] # BRAILLE PATTERN DOTS-27
+2843  ; [*0D97.0020.0002] # BRAILLE PATTERN DOTS-127
+2844  ; [*0D98.0020.0002] # BRAILLE PATTERN DOTS-37
+2845  ; [*0D99.0020.0002] # BRAILLE PATTERN DOTS-137
+2846  ; [*0D9A.0020.0002] # BRAILLE PATTERN DOTS-237
+2847  ; [*0D9B.0020.0002] # BRAILLE PATTERN DOTS-1237
+2848  ; [*0D9C.0020.0002] # BRAILLE PATTERN DOTS-47
+2849  ; [*0D9D.0020.0002] # BRAILLE PATTERN DOTS-147
+284A  ; [*0D9E.0020.0002] # BRAILLE PATTERN DOTS-247
+284B  ; [*0D9F.0020.0002] # BRAILLE PATTERN DOTS-1247
+284C  ; [*0DA0.0020.0002] # BRAILLE PATTERN DOTS-347
+284D  ; [*0DA1.0020.0002] # BRAILLE PATTERN DOTS-1347
+284E  ; [*0DA2.0020.0002] # BRAILLE PATTERN DOTS-2347
+284F  ; [*0DA3.0020.0002] # BRAILLE PATTERN DOTS-12347
+2850  ; [*0DA4.0020.0002] # BRAILLE PATTERN DOTS-57
+2851  ; [*0DA5.0020.0002] # BRAILLE PATTERN DOTS-157
+2852  ; [*0DA6.0020.0002] # BRAILLE PATTERN DOTS-257
+2853  ; [*0DA7.0020.0002] # BRAILLE PATTERN DOTS-1257
+2854  ; [*0DA8.0020.0002] # BRAILLE PATTERN DOTS-357
+2855  ; [*0DA9.0020.0002] # BRAILLE PATTERN DOTS-1357
+2856  ; [*0DAA.0020.0002] # BRAILLE PATTERN DOTS-2357
+2857  ; [*0DAB.0020.0002] # BRAILLE PATTERN DOTS-12357
+2858  ; [*0DAC.0020.0002] # BRAILLE PATTERN DOTS-457
+2859  ; [*0DAD.0020.0002] # BRAILLE PATTERN DOTS-1457
+285A  ; [*0DAE.0020.0002] # BRAILLE PATTERN DOTS-2457
+285B  ; [*0DAF.0020.0002] # BRAILLE PATTERN DOTS-12457
+285C  ; [*0DB0.0020.0002] # BRAILLE PATTERN DOTS-3457
+285D  ; [*0DB1.0020.0002] # BRAILLE PATTERN DOTS-13457
+285E  ; [*0DB2.0020.0002] # BRAILLE PATTERN DOTS-23457
+285F  ; [*0DB3.0020.0002] # BRAILLE PATTERN DOTS-123457
+2860  ; [*0DB4.0020.0002] # BRAILLE PATTERN DOTS-67
+2861  ; [*0DB5.0020.0002] # BRAILLE PATTERN DOTS-167
+2862  ; [*0DB6.0020.0002] # BRAILLE PATTERN DOTS-267
+2863  ; [*0DB7.0020.0002] # BRAILLE PATTERN DOTS-1267
+2864  ; [*0DB8.0020.0002] # BRAILLE PATTERN DOTS-367
+2865  ; [*0DB9.0020.0002] # BRAILLE PATTERN DOTS-1367
+2866  ; [*0DBA.0020.0002] # BRAILLE PATTERN DOTS-2367
+2867  ; [*0DBB.0020.0002] # BRAILLE PATTERN DOTS-12367
+2868  ; [*0DBC.0020.0002] # BRAILLE PATTERN DOTS-467
+2869  ; [*0DBD.0020.0002] # BRAILLE PATTERN DOTS-1467
+286A  ; [*0DBE.0020.0002] # BRAILLE PATTERN DOTS-2467
+286B  ; [*0DBF.0020.0002] # BRAILLE PATTERN DOTS-12467
+286C  ; [*0DC0.0020.0002] # BRAILLE PATTERN DOTS-3467
+286D  ; [*0DC1.0020.0002] # BRAILLE PATTERN DOTS-13467
+286E  ; [*0DC2.0020.0002] # BRAILLE PATTERN DOTS-23467
+286F  ; [*0DC3.0020.0002] # BRAILLE PATTERN DOTS-123467
+2870  ; [*0DC4.0020.0002] # BRAILLE PATTERN DOTS-567
+2871  ; [*0DC5.0020.0002] # BRAILLE PATTERN DOTS-1567
+2872  ; [*0DC6.0020.0002] # BRAILLE PATTERN DOTS-2567
+2873  ; [*0DC7.0020.0002] # BRAILLE PATTERN DOTS-12567
+2874  ; [*0DC8.0020.0002] # BRAILLE PATTERN DOTS-3567
+2875  ; [*0DC9.0020.0002] # BRAILLE PATTERN DOTS-13567
+2876  ; [*0DCA.0020.0002] # BRAILLE PATTERN DOTS-23567
+2877  ; [*0DCB.0020.0002] # BRAILLE PATTERN DOTS-123567
+2878  ; [*0DCC.0020.0002] # BRAILLE PATTERN DOTS-4567
+2879  ; [*0DCD.0020.0002] # BRAILLE PATTERN DOTS-14567
+287A  ; [*0DCE.0020.0002] # BRAILLE PATTERN DOTS-24567
+287B  ; [*0DCF.0020.0002] # BRAILLE PATTERN DOTS-124567
+287C  ; [*0DD0.0020.0002] # BRAILLE PATTERN DOTS-34567
+287D  ; [*0DD1.0020.0002] # BRAILLE PATTERN DOTS-134567
+287E  ; [*0DD2.0020.0002] # BRAILLE PATTERN DOTS-234567
+287F  ; [*0DD3.0020.0002] # BRAILLE PATTERN DOTS-1234567
+2880  ; [*0DD4.0020.0002] # BRAILLE PATTERN DOTS-8
+2881  ; [*0DD5.0020.0002] # BRAILLE PATTERN DOTS-18
+2882  ; [*0DD6.0020.0002] # BRAILLE PATTERN DOTS-28
+2883  ; [*0DD7.0020.0002] # BRAILLE PATTERN DOTS-128
+2884  ; [*0DD8.0020.0002] # BRAILLE PATTERN DOTS-38
+2885  ; [*0DD9.0020.0002] # BRAILLE PATTERN DOTS-138
+2886  ; [*0DDA.0020.0002] # BRAILLE PATTERN DOTS-238
+2887  ; [*0DDB.0020.0002] # BRAILLE PATTERN DOTS-1238
+2888  ; [*0DDC.0020.0002] # BRAILLE PATTERN DOTS-48
+2889  ; [*0DDD.0020.0002] # BRAILLE PATTERN DOTS-148
+288A  ; [*0DDE.0020.0002] # BRAILLE PATTERN DOTS-248
+288B  ; [*0DDF.0020.0002] # BRAILLE PATTERN DOTS-1248
+288C  ; [*0DE0.0020.0002] # BRAILLE PATTERN DOTS-348
+288D  ; [*0DE1.0020.0002] # BRAILLE PATTERN DOTS-1348
+288E  ; [*0DE2.0020.0002] # BRAILLE PATTERN DOTS-2348
+288F  ; [*0DE3.0020.0002] # BRAILLE PATTERN DOTS-12348
+2890  ; [*0DE4.0020.0002] # BRAILLE PATTERN DOTS-58
+2891  ; [*0DE5.0020.0002] # BRAILLE PATTERN DOTS-158
+2892  ; [*0DE6.0020.0002] # BRAILLE PATTERN DOTS-258
+2893  ; [*0DE7.0020.0002] # BRAILLE PATTERN DOTS-1258
+2894  ; [*0DE8.0020.0002] # BRAILLE PATTERN DOTS-358
+2895  ; [*0DE9.0020.0002] # BRAILLE PATTERN DOTS-1358
+2896  ; [*0DEA.0020.0002] # BRAILLE PATTERN DOTS-2358
+2897  ; [*0DEB.0020.0002] # BRAILLE PATTERN DOTS-12358
+2898  ; [*0DEC.0020.0002] # BRAILLE PATTERN DOTS-458
+2899  ; [*0DED.0020.0002] # BRAILLE PATTERN DOTS-1458
+289A  ; [*0DEE.0020.0002] # BRAILLE PATTERN DOTS-2458
+289B  ; [*0DEF.0020.0002] # BRAILLE PATTERN DOTS-12458
+289C  ; [*0DF0.0020.0002] # BRAILLE PATTERN DOTS-3458
+289D  ; [*0DF1.0020.0002] # BRAILLE PATTERN DOTS-13458
+289E  ; [*0DF2.0020.0002] # BRAILLE PATTERN DOTS-23458
+289F  ; [*0DF3.0020.0002] # BRAILLE PATTERN DOTS-123458
+28A0  ; [*0DF4.0020.0002] # BRAILLE PATTERN DOTS-68
+28A1  ; [*0DF5.0020.0002] # BRAILLE PATTERN DOTS-168
+28A2  ; [*0DF6.0020.0002] # BRAILLE PATTERN DOTS-268
+28A3  ; [*0DF7.0020.0002] # BRAILLE PATTERN DOTS-1268
+28A4  ; [*0DF8.0020.0002] # BRAILLE PATTERN DOTS-368
+28A5  ; [*0DF9.0020.0002] # BRAILLE PATTERN DOTS-1368
+28A6  ; [*0DFA.0020.0002] # BRAILLE PATTERN DOTS-2368
+28A7  ; [*0DFB.0020.0002] # BRAILLE PATTERN DOTS-12368
+28A8  ; [*0DFC.0020.0002] # BRAILLE PATTERN DOTS-468
+28A9  ; [*0DFD.0020.0002] # BRAILLE PATTERN DOTS-1468
+28AA  ; [*0DFE.0020.0002] # BRAILLE PATTERN DOTS-2468
+28AB  ; [*0DFF.0020.0002] # BRAILLE PATTERN DOTS-12468
+28AC  ; [*0E00.0020.0002] # BRAILLE PATTERN DOTS-3468
+28AD  ; [*0E01.0020.0002] # BRAILLE PATTERN DOTS-13468
+28AE  ; [*0E02.0020.0002] # BRAILLE PATTERN DOTS-23468
+28AF  ; [*0E03.0020.0002] # BRAILLE PATTERN DOTS-123468
+28B0  ; [*0E04.0020.0002] # BRAILLE PATTERN DOTS-568
+28B1  ; [*0E05.0020.0002] # BRAILLE PATTERN DOTS-1568
+28B2  ; [*0E06.0020.0002] # BRAILLE PATTERN DOTS-2568
+28B3  ; [*0E07.0020.0002] # BRAILLE PATTERN DOTS-12568
+28B4  ; [*0E08.0020.0002] # BRAILLE PATTERN DOTS-3568
+28B5  ; [*0E09.0020.0002] # BRAILLE PATTERN DOTS-13568
+28B6  ; [*0E0A.0020.0002] # BRAILLE PATTERN DOTS-23568
+28B7  ; [*0E0B.0020.0002] # BRAILLE PATTERN DOTS-123568
+28B8  ; [*0E0C.0020.0002] # BRAILLE PATTERN DOTS-4568
+28B9  ; [*0E0D.0020.0002] # BRAILLE PATTERN DOTS-14568
+28BA  ; [*0E0E.0020.0002] # BRAILLE PATTERN DOTS-24568
+28BB  ; [*0E0F.0020.0002] # BRAILLE PATTERN DOTS-124568
+28BC  ; [*0E10.0020.0002] # BRAILLE PATTERN DOTS-34568
+28BD  ; [*0E11.0020.0002] # BRAILLE PATTERN DOTS-134568
+28BE  ; [*0E12.0020.0002] # BRAILLE PATTERN DOTS-234568
+28BF  ; [*0E13.0020.0002] # BRAILLE PATTERN DOTS-1234568
+28C0  ; [*0E14.0020.0002] # BRAILLE PATTERN DOTS-78
+28C1  ; [*0E15.0020.0002] # BRAILLE PATTERN DOTS-178
+28C2  ; [*0E16.0020.0002] # BRAILLE PATTERN DOTS-278
+28C3  ; [*0E17.0020.0002] # BRAILLE PATTERN DOTS-1278
+28C4  ; [*0E18.0020.0002] # BRAILLE PATTERN DOTS-378
+28C5  ; [*0E19.0020.0002] # BRAILLE PATTERN DOTS-1378
+28C6  ; [*0E1A.0020.0002] # BRAILLE PATTERN DOTS-2378
+28C7  ; [*0E1B.0020.0002] # BRAILLE PATTERN DOTS-12378
+28C8  ; [*0E1C.0020.0002] # BRAILLE PATTERN DOTS-478
+28C9  ; [*0E1D.0020.0002] # BRAILLE PATTERN DOTS-1478
+28CA  ; [*0E1E.0020.0002] # BRAILLE PATTERN DOTS-2478
+28CB  ; [*0E1F.0020.0002] # BRAILLE PATTERN DOTS-12478
+28CC  ; [*0E20.0020.0002] # BRAILLE PATTERN DOTS-3478
+28CD  ; [*0E21.0020.0002] # BRAILLE PATTERN DOTS-13478
+28CE  ; [*0E22.0020.0002] # BRAILLE PATTERN DOTS-23478
+28CF  ; [*0E23.0020.0002] # BRAILLE PATTERN DOTS-123478
+28D0  ; [*0E24.0020.0002] # BRAILLE PATTERN DOTS-578
+28D1  ; [*0E25.0020.0002] # BRAILLE PATTERN DOTS-1578
+28D2  ; [*0E26.0020.0002] # BRAILLE PATTERN DOTS-2578
+28D3  ; [*0E27.0020.0002] # BRAILLE PATTERN DOTS-12578
+28D4  ; [*0E28.0020.0002] # BRAILLE PATTERN DOTS-3578
+28D5  ; [*0E29.0020.0002] # BRAILLE PATTERN DOTS-13578
+28D6  ; [*0E2A.0020.0002] # BRAILLE PATTERN DOTS-23578
+28D7  ; [*0E2B.0020.0002] # BRAILLE PATTERN DOTS-123578
+28D8  ; [*0E2C.0020.0002] # BRAILLE PATTERN DOTS-4578
+28D9  ; [*0E2D.0020.0002] # BRAILLE PATTERN DOTS-14578
+28DA  ; [*0E2E.0020.0002] # BRAILLE PATTERN DOTS-24578
+28DB  ; [*0E2F.0020.0002] # BRAILLE PATTERN DOTS-124578
+28DC  ; [*0E30.0020.0002] # BRAILLE PATTERN DOTS-34578
+28DD  ; [*0E31.0020.0002] # BRAILLE PATTERN DOTS-134578
+28DE  ; [*0E32.0020.0002] # BRAILLE PATTERN DOTS-234578
+28DF  ; [*0E33.0020.0002] # BRAILLE PATTERN DOTS-1234578
+28E0  ; [*0E34.0020.0002] # BRAILLE PATTERN DOTS-678
+28E1  ; [*0E35.0020.0002] # BRAILLE PATTERN DOTS-1678
+28E2  ; [*0E36.0020.0002] # BRAILLE PATTERN DOTS-2678
+28E3  ; [*0E37.0020.0002] # BRAILLE PATTERN DOTS-12678
+28E4  ; [*0E38.0020.0002] # BRAILLE PATTERN DOTS-3678
+28E5  ; [*0E39.0020.0002] # BRAILLE PATTERN DOTS-13678
+28E6  ; [*0E3A.0020.0002] # BRAILLE PATTERN DOTS-23678
+28E7  ; [*0E3B.0020.0002] # BRAILLE PATTERN DOTS-123678
+28E8  ; [*0E3C.0020.0002] # BRAILLE PATTERN DOTS-4678
+28E9  ; [*0E3D.0020.0002] # BRAILLE PATTERN DOTS-14678
+28EA  ; [*0E3E.0020.0002] # BRAILLE PATTERN DOTS-24678
+28EB  ; [*0E3F.0020.0002] # BRAILLE PATTERN DOTS-124678
+28EC  ; [*0E40.0020.0002] # BRAILLE PATTERN DOTS-34678
+28ED  ; [*0E41.0020.0002] # BRAILLE PATTERN DOTS-134678
+28EE  ; [*0E42.0020.0002] # BRAILLE PATTERN DOTS-234678
+28EF  ; [*0E43.0020.0002] # BRAILLE PATTERN DOTS-1234678
+28F0  ; [*0E44.0020.0002] # BRAILLE PATTERN DOTS-5678
+28F1  ; [*0E45.0020.0002] # BRAILLE PATTERN DOTS-15678
+28F2  ; [*0E46.0020.0002] # BRAILLE PATTERN DOTS-25678
+28F3  ; [*0E47.0020.0002] # BRAILLE PATTERN DOTS-125678
+28F4  ; [*0E48.0020.0002] # BRAILLE PATTERN DOTS-35678
+28F5  ; [*0E49.0020.0002] # BRAILLE PATTERN DOTS-135678
+28F6  ; [*0E4A.0020.0002] # BRAILLE PATTERN DOTS-235678
+28F7  ; [*0E4B.0020.0002] # BRAILLE PATTERN DOTS-1235678
+28F8  ; [*0E4C.0020.0002] # BRAILLE PATTERN DOTS-45678
+28F9  ; [*0E4D.0020.0002] # BRAILLE PATTERN DOTS-145678
+28FA  ; [*0E4E.0020.0002] # BRAILLE PATTERN DOTS-245678
+28FB  ; [*0E4F.0020.0002] # BRAILLE PATTERN DOTS-1245678
+28FC  ; [*0E50.0020.0002] # BRAILLE PATTERN DOTS-345678
+28FD  ; [*0E51.0020.0002] # BRAILLE PATTERN DOTS-1345678
+28FE  ; [*0E52.0020.0002] # BRAILLE PATTERN DOTS-2345678
+28FF  ; [*0E53.0020.0002] # BRAILLE PATTERN DOTS-12345678
+2900  ; [*0AA5.0020.0002] # RIGHTWARDS TWO-HEADED ARROW WITH VERTICAL STROKE
+2901  ; [*0AA6.0020.0002] # RIGHTWARDS TWO-HEADED ARROW WITH DOUBLE VERTICAL STROKE
+2902  ; [*0AA7.0020.0002] # LEFTWARDS DOUBLE ARROW WITH VERTICAL STROKE
+2903  ; [*0AA8.0020.0002] # RIGHTWARDS DOUBLE ARROW WITH VERTICAL STROKE
+2904  ; [*0AA9.0020.0002] # LEFT RIGHT DOUBLE ARROW WITH VERTICAL STROKE
+2905  ; [*0AAA.0020.0002] # RIGHTWARDS TWO-HEADED ARROW FROM BAR
+2906  ; [*0AAB.0020.0002] # LEFTWARDS DOUBLE ARROW FROM BAR
+2907  ; [*0AAC.0020.0002] # RIGHTWARDS DOUBLE ARROW FROM BAR
+2908  ; [*0AAD.0020.0002] # DOWNWARDS ARROW WITH HORIZONTAL STROKE
+2909  ; [*0AAE.0020.0002] # UPWARDS ARROW WITH HORIZONTAL STROKE
+290A  ; [*0AAF.0020.0002] # UPWARDS TRIPLE ARROW
+290B  ; [*0AB0.0020.0002] # DOWNWARDS TRIPLE ARROW
+290C  ; [*0AB1.0020.0002] # LEFTWARDS DOUBLE DASH ARROW
+290D  ; [*0AB2.0020.0002] # RIGHTWARDS DOUBLE DASH ARROW
+290E  ; [*0AB3.0020.0002] # LEFTWARDS TRIPLE DASH ARROW
+290F  ; [*0AB4.0020.0002] # RIGHTWARDS TRIPLE DASH ARROW
+2910  ; [*0AB5.0020.0002] # RIGHTWARDS TWO-HEADED TRIPLE DASH ARROW
+2911  ; [*0AB6.0020.0002] # RIGHTWARDS ARROW WITH DOTTED STEM
+2912  ; [*0AB7.0020.0002] # UPWARDS ARROW TO BAR
+2913  ; [*0AB8.0020.0002] # DOWNWARDS ARROW TO BAR
+2914  ; [*0AB9.0020.0002] # RIGHTWARDS ARROW WITH TAIL WITH VERTICAL STROKE
+2915  ; [*0ABA.0020.0002] # RIGHTWARDS ARROW WITH TAIL WITH DOUBLE VERTICAL STROKE
+2916  ; [*0ABB.0020.0002] # RIGHTWARDS TWO-HEADED ARROW WITH TAIL
+2917  ; [*0ABC.0020.0002] # RIGHTWARDS TWO-HEADED ARROW WITH TAIL WITH VERTICAL STROKE
+2918  ; [*0ABD.0020.0002] # RIGHTWARDS TWO-HEADED ARROW WITH TAIL WITH DOUBLE VERTICAL STROKE
+2919  ; [*0ABE.0020.0002] # LEFTWARDS ARROW-TAIL
+291A  ; [*0ABF.0020.0002] # RIGHTWARDS ARROW-TAIL
+291B  ; [*0AC0.0020.0002] # LEFTWARDS DOUBLE ARROW-TAIL
+291C  ; [*0AC1.0020.0002] # RIGHTWARDS DOUBLE ARROW-TAIL
+291D  ; [*0AC2.0020.0002] # LEFTWARDS ARROW TO BLACK DIAMOND
+291E  ; [*0AC3.0020.0002] # RIGHTWARDS ARROW TO BLACK DIAMOND
+291F  ; [*0AC4.0020.0002] # LEFTWARDS ARROW FROM BAR TO BLACK DIAMOND
+2920  ; [*0AC5.0020.0002] # RIGHTWARDS ARROW FROM BAR TO BLACK DIAMOND
+2921  ; [*0AC6.0020.0002] # NORTH WEST AND SOUTH EAST ARROW
+2922  ; [*0AC7.0020.0002] # NORTH EAST AND SOUTH WEST ARROW
+2923  ; [*0AC8.0020.0002] # NORTH WEST ARROW WITH HOOK
+2924  ; [*0AC9.0020.0002] # NORTH EAST ARROW WITH HOOK
+2925  ; [*0ACA.0020.0002] # SOUTH EAST ARROW WITH HOOK
+2926  ; [*0ACB.0020.0002] # SOUTH WEST ARROW WITH HOOK
+2927  ; [*0ACC.0020.0002] # NORTH WEST ARROW AND NORTH EAST ARROW
+2928  ; [*0ACD.0020.0002] # NORTH EAST ARROW AND SOUTH EAST ARROW
+2929  ; [*0ACE.0020.0002] # SOUTH EAST ARROW AND SOUTH WEST ARROW
+292A  ; [*0ACF.0020.0002] # SOUTH WEST ARROW AND NORTH WEST ARROW
+292B  ; [*0AD0.0020.0002] # RISING DIAGONAL CROSSING FALLING DIAGONAL
+292C  ; [*0AD1.0020.0002] # FALLING DIAGONAL CROSSING RISING DIAGONAL
+292D  ; [*0AD2.0020.0002] # SOUTH EAST ARROW CROSSING NORTH EAST ARROW
+292E  ; [*0AD3.0020.0002] # NORTH EAST ARROW CROSSING SOUTH EAST ARROW
+292F  ; [*0AD4.0020.0002] # FALLING DIAGONAL CROSSING NORTH EAST ARROW
+2930  ; [*0AD5.0020.0002] # RISING DIAGONAL CROSSING SOUTH EAST ARROW
+2931  ; [*0AD6.0020.0002] # NORTH EAST ARROW CROSSING NORTH WEST ARROW
+2932  ; [*0AD7.0020.0002] # NORTH WEST ARROW CROSSING NORTH EAST ARROW
+2933  ; [*0AD8.0020.0002] # WAVE ARROW POINTING DIRECTLY RIGHT
+2934  ; [*0AD9.0020.0002] # ARROW POINTING RIGHTWARDS THEN CURVING UPWARDS
+2935  ; [*0ADA.0020.0002] # ARROW POINTING RIGHTWARDS THEN CURVING DOWNWARDS
+2936  ; [*0ADB.0020.0002] # ARROW POINTING DOWNWARDS THEN CURVING LEFTWARDS
+2937  ; [*0ADC.0020.0002] # ARROW POINTING DOWNWARDS THEN CURVING RIGHTWARDS
+2938  ; [*0ADD.0020.0002] # RIGHT-SIDE ARC CLOCKWISE ARROW
+2939  ; [*0ADE.0020.0002] # LEFT-SIDE ARC ANTICLOCKWISE ARROW
+293A  ; [*0ADF.0020.0002] # TOP ARC ANTICLOCKWISE ARROW
+293B  ; [*0AE0.0020.0002] # BOTTOM ARC ANTICLOCKWISE ARROW
+293C  ; [*0AE1.0020.0002] # TOP ARC CLOCKWISE ARROW WITH MINUS
+293D  ; [*0AE2.0020.0002] # TOP ARC ANTICLOCKWISE ARROW WITH PLUS
+293E  ; [*0AE3.0020.0002] # LOWER RIGHT SEMICIRCULAR CLOCKWISE ARROW
+293F  ; [*0AE4.0020.0002] # LOWER LEFT SEMICIRCULAR ANTICLOCKWISE ARROW
+2940  ; [*0AE5.0020.0002] # ANTICLOCKWISE CLOSED CIRCLE ARROW
+2941  ; [*0AE6.0020.0002] # CLOCKWISE CLOSED CIRCLE ARROW
+2942  ; [*0AE7.0020.0002] # RIGHTWARDS ARROW ABOVE SHORT LEFTWARDS ARROW
+2943  ; [*0AE8.0020.0002] # LEFTWARDS ARROW ABOVE SHORT RIGHTWARDS ARROW
+2944  ; [*0AE9.0020.0002] # SHORT RIGHTWARDS ARROW ABOVE LEFTWARDS ARROW
+2945  ; [*0AEA.0020.0002] # RIGHTWARDS ARROW WITH PLUS BELOW
+2946  ; [*0AEB.0020.0002] # LEFTWARDS ARROW WITH PLUS BELOW
+2947  ; [*0AEC.0020.0002] # RIGHTWARDS ARROW THROUGH X
+2948  ; [*0AED.0020.0002] # LEFT RIGHT ARROW THROUGH SMALL CIRCLE
+2949  ; [*0AEE.0020.0002] # UPWARDS TWO-HEADED ARROW FROM SMALL CIRCLE
+294A  ; [*0AEF.0020.0002] # LEFT BARB UP RIGHT BARB DOWN HARPOON
+294B  ; [*0AF0.0020.0002] # LEFT BARB DOWN RIGHT BARB UP HARPOON
+294C  ; [*0AF1.0020.0002] # UP BARB RIGHT DOWN BARB LEFT HARPOON
+294D  ; [*0AF2.0020.0002] # UP BARB LEFT DOWN BARB RIGHT HARPOON
+294E  ; [*0AF3.0020.0002] # LEFT BARB UP RIGHT BARB UP HARPOON
+294F  ; [*0AF4.0020.0002] # UP BARB RIGHT DOWN BARB RIGHT HARPOON
+2950  ; [*0AF5.0020.0002] # LEFT BARB DOWN RIGHT BARB DOWN HARPOON
+2951  ; [*0AF6.0020.0002] # UP BARB LEFT DOWN BARB LEFT HARPOON
+2952  ; [*0AF7.0020.0002] # LEFTWARDS HARPOON WITH BARB UP TO BAR
+2953  ; [*0AF8.0020.0002] # RIGHTWARDS HARPOON WITH BARB UP TO BAR
+2954  ; [*0AF9.0020.0002] # UPWARDS HARPOON WITH BARB RIGHT TO BAR
+2955  ; [*0AFA.0020.0002] # DOWNWARDS HARPOON WITH BARB RIGHT TO BAR
+2956  ; [*0AFB.0020.0002] # LEFTWARDS HARPOON WITH BARB DOWN TO BAR
+2957  ; [*0AFC.0020.0002] # RIGHTWARDS HARPOON WITH BARB DOWN TO BAR
+2958  ; [*0AFD.0020.0002] # UPWARDS HARPOON WITH BARB LEFT TO BAR
+2959  ; [*0AFE.0020.0002] # DOWNWARDS HARPOON WITH BARB LEFT TO BAR
+295A  ; [*0AFF.0020.0002] # LEFTWARDS HARPOON WITH BARB UP FROM BAR
+295B  ; [*0B00.0020.0002] # RIGHTWARDS HARPOON WITH BARB UP FROM BAR
+295C  ; [*0B01.0020.0002] # UPWARDS HARPOON WITH BARB RIGHT FROM BAR
+295D  ; [*0B02.0020.0002] # DOWNWARDS HARPOON WITH BARB RIGHT FROM BAR
+295E  ; [*0B03.0020.0002] # LEFTWARDS HARPOON WITH BARB DOWN FROM BAR
+295F  ; [*0B04.0020.0002] # RIGHTWARDS HARPOON WITH BARB DOWN FROM BAR
+2960  ; [*0B05.0020.0002] # UPWARDS HARPOON WITH BARB LEFT FROM BAR
+2961  ; [*0B06.0020.0002] # DOWNWARDS HARPOON WITH BARB LEFT FROM BAR
+2962  ; [*0B07.0020.0002] # LEFTWARDS HARPOON WITH BARB UP ABOVE LEFTWARDS HARPOON WITH BARB DOWN
+2963  ; [*0B08.0020.0002] # UPWARDS HARPOON WITH BARB LEFT BESIDE UPWARDS HARPOON WITH BARB RIGHT
+2964  ; [*0B09.0020.0002] # RIGHTWARDS HARPOON WITH BARB UP ABOVE RIGHTWARDS HARPOON WITH BARB DOWN
+2965  ; [*0B0A.0020.0002] # DOWNWARDS HARPOON WITH BARB LEFT BESIDE DOWNWARDS HARPOON WITH BARB RIGHT
+2966  ; [*0B0B.0020.0002] # LEFTWARDS HARPOON WITH BARB UP ABOVE RIGHTWARDS HARPOON WITH BARB UP
+2967  ; [*0B0C.0020.0002] # LEFTWARDS HARPOON WITH BARB DOWN ABOVE RIGHTWARDS HARPOON WITH BARB DOWN
+2968  ; [*0B0D.0020.0002] # RIGHTWARDS HARPOON WITH BARB UP ABOVE LEFTWARDS HARPOON WITH BARB UP
+2969  ; [*0B0E.0020.0002] # RIGHTWARDS HARPOON WITH BARB DOWN ABOVE LEFTWARDS HARPOON WITH BARB DOWN
+296A  ; [*0B0F.0020.0002] # LEFTWARDS HARPOON WITH BARB UP ABOVE LONG DASH
+296B  ; [*0B10.0020.0002] # LEFTWARDS HARPOON WITH BARB DOWN BELOW LONG DASH
+296C  ; [*0B11.0020.0002] # RIGHTWARDS HARPOON WITH BARB UP ABOVE LONG DASH
+296D  ; [*0B12.0020.0002] # RIGHTWARDS HARPOON WITH BARB DOWN BELOW LONG DASH
+296E  ; [*0B13.0020.0002] # UPWARDS HARPOON WITH BARB LEFT BESIDE DOWNWARDS HARPOON WITH BARB RIGHT
+296F  ; [*0B14.0020.0002] # DOWNWARDS HARPOON WITH BARB LEFT BESIDE UPWARDS HARPOON WITH BARB RIGHT
+2970  ; [*0B15.0020.0002] # RIGHT DOUBLE ARROW WITH ROUNDED HEAD
+2971  ; [*0B16.0020.0002] # EQUALS SIGN ABOVE RIGHTWARDS ARROW
+2972  ; [*0B17.0020.0002] # TILDE OPERATOR ABOVE RIGHTWARDS ARROW
+2973  ; [*0B18.0020.0002] # LEFTWARDS ARROW ABOVE TILDE OPERATOR
+2974  ; [*0B19.0020.0002] # RIGHTWARDS ARROW ABOVE TILDE OPERATOR
+2975  ; [*0B1A.0020.0002] # RIGHTWARDS ARROW ABOVE ALMOST EQUAL TO
+2976  ; [*0B1B.0020.0002] # LESS-THAN ABOVE LEFTWARDS ARROW
+2977  ; [*0B1C.0020.0002] # LEFTWARDS ARROW THROUGH LESS-THAN
+2978  ; [*0B1D.0020.0002] # GREATER-THAN ABOVE RIGHTWARDS ARROW
+2979  ; [*0B1E.0020.0002] # SUBSET ABOVE RIGHTWARDS ARROW
+297A  ; [*0B1F.0020.0002] # LEFTWARDS ARROW THROUGH SUBSET
+297B  ; [*0B20.0020.0002] # SUPERSET ABOVE LEFTWARDS ARROW
+297C  ; [*0B21.0020.0002] # LEFT FISH TAIL
+297D  ; [*0B22.0020.0002] # RIGHT FISH TAIL
+297E  ; [*0B23.0020.0002] # UP FISH TAIL
+297F  ; [*0B24.0020.0002] # DOWN FISH TAIL
+2980  ; [*0B25.0020.0002] # TRIPLE VERTICAL BAR DELIMITER
+2981  ; [*0B26.0020.0002] # Z NOTATION SPOT
+2982  ; [*0B27.0020.0002] # Z NOTATION TYPE COLON
+2983  ; [*031E.0020.0002] # LEFT WHITE CURLY BRACKET
+2984  ; [*031F.0020.0002] # RIGHT WHITE CURLY BRACKET
+2985  ; [*0320.0020.0002] # LEFT WHITE PARENTHESIS
+2986  ; [*0321.0020.0002] # RIGHT WHITE PARENTHESIS
+2987  ; [*0322.0020.0002] # Z NOTATION LEFT IMAGE BRACKET
+2988  ; [*0323.0020.0002] # Z NOTATION RIGHT IMAGE BRACKET
+2989  ; [*0324.0020.0002] # Z NOTATION LEFT BINDING BRACKET
+298A  ; [*0325.0020.0002] # Z NOTATION RIGHT BINDING BRACKET
+298B  ; [*0326.0020.0002] # LEFT SQUARE BRACKET WITH UNDERBAR
+298C  ; [*0327.0020.0002] # RIGHT SQUARE BRACKET WITH UNDERBAR
+298D  ; [*0328.0020.0002] # LEFT SQUARE BRACKET WITH TICK IN TOP CORNER
+298E  ; [*0329.0020.0002] # RIGHT SQUARE BRACKET WITH TICK IN BOTTOM CORNER
+298F  ; [*032A.0020.0002] # LEFT SQUARE BRACKET WITH TICK IN BOTTOM CORNER
+2990  ; [*032B.0020.0002] # RIGHT SQUARE BRACKET WITH TICK IN TOP CORNER
+2991  ; [*032C.0020.0002] # LEFT ANGLE BRACKET WITH DOT
+2992  ; [*032D.0020.0002] # RIGHT ANGLE BRACKET WITH DOT
+2993  ; [*032E.0020.0002] # LEFT ARC LESS-THAN BRACKET
+2994  ; [*032F.0020.0002] # RIGHT ARC GREATER-THAN BRACKET
+2995  ; [*0330.0020.0002] # DOUBLE LEFT ARC GREATER-THAN BRACKET
+2996  ; [*0331.0020.0002] # DOUBLE RIGHT ARC LESS-THAN BRACKET
+2997  ; [*0332.0020.0002] # LEFT BLACK TORTOISE SHELL BRACKET
+2998  ; [*0333.0020.0002] # RIGHT BLACK TORTOISE SHELL BRACKET
+2999  ; [*0B28.0020.0002] # DOTTED FENCE
+299A  ; [*0B29.0020.0002] # VERTICAL ZIGZAG LINE
+299B  ; [*0B2A.0020.0002] # MEASURED ANGLE OPENING LEFT
+299C  ; [*0B2B.0020.0002] # RIGHT ANGLE VARIANT WITH SQUARE
+299D  ; [*0B2C.0020.0002] # MEASURED RIGHT ANGLE WITH DOT
+299E  ; [*0B2D.0020.0002] # ANGLE WITH S INSIDE
+299F  ; [*0B2E.0020.0002] # ACUTE ANGLE
+29A0  ; [*0B2F.0020.0002] # SPHERICAL ANGLE OPENING LEFT
+29A1  ; [*0B30.0020.0002] # SPHERICAL ANGLE OPENING UP
+29A2  ; [*0B31.0020.0002] # TURNED ANGLE
+29A3  ; [*0B32.0020.0002] # REVERSED ANGLE
+29A4  ; [*0B33.0020.0002] # ANGLE WITH UNDERBAR
+29A5  ; [*0B34.0020.0002] # REVERSED ANGLE WITH UNDERBAR
+29A6  ; [*0B35.0020.0002] # OBLIQUE ANGLE OPENING UP
+29A7  ; [*0B36.0020.0002] # OBLIQUE ANGLE OPENING DOWN
+29A8  ; [*0B37.0020.0002] # MEASURED ANGLE WITH OPEN ARM ENDING IN ARROW POINTING UP AND RIGHT
+29A9  ; [*0B38.0020.0002] # MEASURED ANGLE WITH OPEN ARM ENDING IN ARROW POINTING UP AND LEFT
+29AA  ; [*0B39.0020.0002] # MEASURED ANGLE WITH OPEN ARM ENDING IN ARROW POINTING DOWN AND RIGHT
+29AB  ; [*0B3A.0020.0002] # MEASURED ANGLE WITH OPEN ARM ENDING IN ARROW POINTING DOWN AND LEFT
+29AC  ; [*0B3B.0020.0002] # MEASURED ANGLE WITH OPEN ARM ENDING IN ARROW POINTING RIGHT AND UP
+29AD  ; [*0B3C.0020.0002] # MEASURED ANGLE WITH OPEN ARM ENDING IN ARROW POINTING LEFT AND UP
+29AE  ; [*0B3D.0020.0002] # MEASURED ANGLE WITH OPEN ARM ENDING IN ARROW POINTING RIGHT AND DOWN
+29AF  ; [*0B3E.0020.0002] # MEASURED ANGLE WITH OPEN ARM ENDING IN ARROW POINTING LEFT AND DOWN
+29B0  ; [*0B3F.0020.0002] # REVERSED EMPTY SET
+29B1  ; [*0B40.0020.0002] # EMPTY SET WITH OVERBAR
+29B2  ; [*0B41.0020.0002] # EMPTY SET WITH SMALL CIRCLE ABOVE
+29B3  ; [*0B42.0020.0002] # EMPTY SET WITH RIGHT ARROW ABOVE
+29B4  ; [*0B43.0020.0002] # EMPTY SET WITH LEFT ARROW ABOVE
+29B5  ; [*0B44.0020.0002] # CIRCLE WITH HORIZONTAL BAR
+29B6  ; [*0B45.0020.0002] # CIRCLED VERTICAL BAR
+29B7  ; [*0B46.0020.0002] # CIRCLED PARALLEL
+29B8  ; [*0B47.0020.0002] # CIRCLED REVERSE SOLIDUS
+29B9  ; [*0B48.0020.0002] # CIRCLED PERPENDICULAR
+29BA  ; [*0B49.0020.0002] # CIRCLE DIVIDED BY HORIZONTAL BAR AND TOP HALF DIVIDED BY VERTICAL BAR
+29BB  ; [*0B4A.0020.0002] # CIRCLE WITH SUPERIMPOSED X
+29BC  ; [*0B4B.0020.0002] # CIRCLED ANTICLOCKWISE-ROTATED DIVISION SIGN
+29BD  ; [*0B4C.0020.0002] # UP ARROW THROUGH CIRCLE
+29BE  ; [*0B4D.0020.0002] # CIRCLED WHITE BULLET
+29BF  ; [*0B4E.0020.0002] # CIRCLED BULLET
+29C0  ; [*0B4F.0020.0002] # CIRCLED LESS-THAN
+29C1  ; [*0B50.0020.0002] # CIRCLED GREATER-THAN
+29C2  ; [*0B51.0020.0002] # CIRCLE WITH SMALL CIRCLE TO THE RIGHT
+29C3  ; [*0B52.0020.0002] # CIRCLE WITH TWO HORIZONTAL STROKES TO THE RIGHT
+29C4  ; [*0B53.0020.0002] # SQUARED RISING DIAGONAL SLASH
+29C5  ; [*0B54.0020.0002] # SQUARED FALLING DIAGONAL SLASH
+29C6  ; [*0B55.0020.0002] # SQUARED ASTERISK
+29C7  ; [*0B56.0020.0002] # SQUARED SMALL CIRCLE
+29C8  ; [*0B57.0020.0002] # SQUARED SQUARE
+29C9  ; [*0B58.0020.0002] # TWO JOINED SQUARES
+29CA  ; [*0B59.0020.0002] # TRIANGLE WITH DOT ABOVE
+29CB  ; [*0B5A.0020.0002] # TRIANGLE WITH UNDERBAR
+29CC  ; [*0B5B.0020.0002] # S IN TRIANGLE
+29CD  ; [*0B5C.0020.0002] # TRIANGLE WITH SERIFS AT BOTTOM
+29CE  ; [*0B5D.0020.0002] # RIGHT TRIANGLE ABOVE LEFT TRIANGLE
+29CF  ; [*0B5E.0020.0002] # LEFT TRIANGLE BESIDE VERTICAL BAR
+29D0  ; [*0B5F.0020.0002] # VERTICAL BAR BESIDE RIGHT TRIANGLE
+29D1  ; [*0B60.0020.0002] # BOWTIE WITH LEFT HALF BLACK
+29D2  ; [*0B61.0020.0002] # BOWTIE WITH RIGHT HALF BLACK
+29D3  ; [*0B62.0020.0002] # BLACK BOWTIE
+29D4  ; [*0B63.0020.0002] # TIMES WITH LEFT HALF BLACK
+29D5  ; [*0B64.0020.0002] # TIMES WITH RIGHT HALF BLACK
+29D6  ; [*0B65.0020.0002] # WHITE HOURGLASS
+29D7  ; [*0B66.0020.0002] # BLACK HOURGLASS
+29D8  ; [*0378.0020.0002] # LEFT WIGGLY FENCE
+29D9  ; [*0379.0020.0002] # RIGHT WIGGLY FENCE
+29DA  ; [*037A.0020.0002] # LEFT DOUBLE WIGGLY FENCE
+29DB  ; [*037B.0020.0002] # RIGHT DOUBLE WIGGLY FENCE
+29DC  ; [*0B67.0020.0002] # INCOMPLETE INFINITY
+29DD  ; [*0B68.0020.0002] # TIE OVER INFINITY
+29DE  ; [*0B69.0020.0002] # INFINITY NEGATED WITH VERTICAL BAR
+29DF  ; [*0B6A.0020.0002] # DOUBLE-ENDED MULTIMAP
+29E0  ; [*0B6B.0020.0002] # SQUARE WITH CONTOURED OUTLINE
+29E1  ; [*0B6C.0020.0002] # INCREASES AS
+29E2  ; [*0B6D.0020.0002] # SHUFFLE PRODUCT
+29E3  ; [*0B6E.0020.0002] # EQUALS SIGN AND SLANTED PARALLEL
+29E4  ; [*0B6F.0020.0002] # EQUALS SIGN AND SLANTED PARALLEL WITH TILDE ABOVE
+29E5  ; [*0B70.0020.0002] # IDENTICAL TO AND SLANTED PARALLEL
+29E6  ; [*0B71.0020.0002] # GLEICH STARK
+29E7  ; [*0B72.0020.0002] # THERMODYNAMIC
+29E8  ; [*0B73.0020.0002] # DOWN-POINTING TRIANGLE WITH LEFT HALF BLACK
+29E9  ; [*0B74.0020.0002] # DOWN-POINTING TRIANGLE WITH RIGHT HALF BLACK
+29EA  ; [*0B75.0020.0002] # BLACK DIAMOND WITH DOWN ARROW
+29EB  ; [*0B76.0020.0002] # BLACK LOZENGE
+29EC  ; [*0B77.0020.0002] # WHITE CIRCLE WITH DOWN ARROW
+29ED  ; [*0B78.0020.0002] # BLACK CIRCLE WITH DOWN ARROW
+29EE  ; [*0B79.0020.0002] # ERROR-BARRED WHITE SQUARE
+29EF  ; [*0B7A.0020.0002] # ERROR-BARRED BLACK SQUARE
+29F0  ; [*0B7B.0020.0002] # ERROR-BARRED WHITE DIAMOND
+29F1  ; [*0B7C.0020.0002] # ERROR-BARRED BLACK DIAMOND
+29F2  ; [*0B7D.0020.0002] # ERROR-BARRED WHITE CIRCLE
+29F3  ; [*0B7E.0020.0002] # ERROR-BARRED BLACK CIRCLE
+29F4  ; [*0B7F.0020.0002] # RULE-DELAYED
+29F5  ; [*0B80.0020.0002] # REVERSE SOLIDUS OPERATOR
+29F6  ; [*0B81.0020.0002] # SOLIDUS WITH OVERBAR
+29F7  ; [*0B82.0020.0002] # REVERSE SOLIDUS WITH HORIZONTAL STROKE
+29F8  ; [*0B83.0020.0002] # BIG SOLIDUS
+29F9  ; [*0B84.0020.0002] # BIG REVERSE SOLIDUS
+29FA  ; [*0B85.0020.0002] # DOUBLE PLUS
+29FB  ; [*0B86.0020.0002] # TRIPLE PLUS
+29FC  ; [*031C.0020.0002] # LEFT-POINTING CURVED ANGLE BRACKET
+29FD  ; [*031D.0020.0002] # RIGHT-POINTING CURVED ANGLE BRACKET
+29FE  ; [*0B87.0020.0002] # TINY
+29FF  ; [*0B88.0020.0002] # MINY
+2A00  ; [*0B89.0020.0002] # N-ARY CIRCLED DOT OPERATOR
+2A01  ; [*0B8A.0020.0002] # N-ARY CIRCLED PLUS OPERATOR
+2A02  ; [*0B8B.0020.0002] # N-ARY CIRCLED TIMES OPERATOR
+2A03  ; [*0B8C.0020.0002] # N-ARY UNION OPERATOR WITH DOT
+2A04  ; [*0B8D.0020.0002] # N-ARY UNION OPERATOR WITH PLUS
+2A05  ; [*0B8E.0020.0002] # N-ARY SQUARE INTERSECTION OPERATOR
+2A06  ; [*0B8F.0020.0002] # N-ARY SQUARE UNION OPERATOR
+2A07  ; [*0B90.0020.0002] # TWO LOGICAL AND OPERATOR
+2A08  ; [*0B91.0020.0002] # TWO LOGICAL OR OPERATOR
+2A09  ; [*0B92.0020.0002] # N-ARY TIMES OPERATOR
+2A0A  ; [*0B93.0020.0002] # MODULO TWO SUM
+2A0B  ; [*0B94.0020.0002] # SUMMATION WITH INTEGRAL
+2A0C  ; [*05FC.0020.0004][*05FC.0020.0004][*05FC.0020.0004][*05FC.0020.0004] # QUADRUPLE INTEGRAL OPERATOR
+2A0D  ; [*0B95.0020.0002] # FINITE PART INTEGRAL
+2A0E  ; [*0B96.0020.0002] # INTEGRAL WITH DOUBLE STROKE
+2A0F  ; [*0B97.0020.0002] # INTEGRAL AVERAGE WITH SLASH
+2A10  ; [*0B98.0020.0002] # CIRCULATION FUNCTION
+2A11  ; [*0B99.0020.0002] # ANTICLOCKWISE INTEGRATION
+2A12  ; [*0B9A.0020.0002] # LINE INTEGRATION WITH RECTANGULAR PATH AROUND POLE
+2A13  ; [*0B9B.0020.0002] # LINE INTEGRATION WITH SEMICIRCULAR PATH AROUND POLE
+2A14  ; [*0B9C.0020.0002] # LINE INTEGRATION NOT INCLUDING THE POLE
+2A15  ; [*0B9D.0020.0002] # INTEGRAL AROUND A POINT OPERATOR
+2A16  ; [*0B9E.0020.0002] # QUATERNION INTEGRAL OPERATOR
+2A17  ; [*0B9F.0020.0002] # INTEGRAL WITH LEFTWARDS ARROW WITH HOOK
+2A18  ; [*0BA0.0020.0002] # INTEGRAL WITH TIMES SIGN
+2A19  ; [*0BA1.0020.0002] # INTEGRAL WITH INTERSECTION
+2A1A  ; [*0BA2.0020.0002] # INTEGRAL WITH UNION
+2A1B  ; [*0BA3.0020.0002] # INTEGRAL WITH OVERBAR
+2A1C  ; [*0BA4.0020.0002] # INTEGRAL WITH UNDERBAR
+2A1D  ; [*0BA5.0020.0002] # JOIN
+2A1E  ; [*0BA6.0020.0002] # LARGE LEFT TRIANGLE OPERATOR
+2A1F  ; [*0BA7.0020.0002] # Z NOTATION SCHEMA COMPOSITION
+2A20  ; [*0BA8.0020.0002] # Z NOTATION SCHEMA PIPING
+2A21  ; [*0BA9.0020.0002] # Z NOTATION SCHEMA PROJECTION
+2A22  ; [*0BAA.0020.0002] # PLUS SIGN WITH SMALL CIRCLE ABOVE
+2A23  ; [*0BAB.0020.0002] # PLUS SIGN WITH CIRCUMFLEX ACCENT ABOVE
+2A24  ; [*0BAC.0020.0002] # PLUS SIGN WITH TILDE ABOVE
+2A25  ; [*0BAD.0020.0002] # PLUS SIGN WITH DOT BELOW
+2A26  ; [*0BAE.0020.0002] # PLUS SIGN WITH TILDE BELOW
+2A27  ; [*0BAF.0020.0002] # PLUS SIGN WITH SUBSCRIPT TWO
+2A28  ; [*0BB0.0020.0002] # PLUS SIGN WITH BLACK TRIANGLE
+2A29  ; [*0BB1.0020.0002] # MINUS SIGN WITH COMMA ABOVE
+2A2A  ; [*0BB2.0020.0002] # MINUS SIGN WITH DOT BELOW
+2A2B  ; [*0BB3.0020.0002] # MINUS SIGN WITH FALLING DOTS
+2A2C  ; [*0BB4.0020.0002] # MINUS SIGN WITH RISING DOTS
+2A2D  ; [*0BB5.0020.0002] # PLUS SIGN IN LEFT HALF CIRCLE
+2A2E  ; [*0BB6.0020.0002] # PLUS SIGN IN RIGHT HALF CIRCLE
+2A2F  ; [*0BB7.0020.0002] # VECTOR OR CROSS PRODUCT
+2A30  ; [*0BB8.0020.0002] # MULTIPLICATION SIGN WITH DOT ABOVE
+2A31  ; [*0BB9.0020.0002] # MULTIPLICATION SIGN WITH UNDERBAR
+2A32  ; [*0BBA.0020.0002] # SEMIDIRECT PRODUCT WITH BOTTOM CLOSED
+2A33  ; [*0BBB.0020.0002] # SMASH PRODUCT
+2A34  ; [*0BBC.0020.0002] # MULTIPLICATION SIGN IN LEFT HALF CIRCLE
+2A35  ; [*0BBD.0020.0002] # MULTIPLICATION SIGN IN RIGHT HALF CIRCLE
+2A36  ; [*0BBE.0020.0002] # CIRCLED MULTIPLICATION SIGN WITH CIRCUMFLEX ACCENT
+2A37  ; [*0BBF.0020.0002] # MULTIPLICATION SIGN IN DOUBLE CIRCLE
+2A38  ; [*0BC0.0020.0002] # CIRCLED DIVISION SIGN
+2A39  ; [*0BC1.0020.0002] # PLUS SIGN IN TRIANGLE
+2A3A  ; [*0BC2.0020.0002] # MINUS SIGN IN TRIANGLE
+2A3B  ; [*0BC3.0020.0002] # MULTIPLICATION SIGN IN TRIANGLE
+2A3C  ; [*0BC4.0020.0002] # INTERIOR PRODUCT
+2A3D  ; [*0BC5.0020.0002] # RIGHTHAND INTERIOR PRODUCT
+2A3E  ; [*0BC6.0020.0002] # Z NOTATION RELATIONAL COMPOSITION
+2A3F  ; [*0BC7.0020.0002] # AMALGAMATION OR COPRODUCT
+2A40  ; [*0BC8.0020.0002] # INTERSECTION WITH DOT
+2A41  ; [*0BC9.0020.0002] # UNION WITH MINUS SIGN
+2A42  ; [*0BCA.0020.0002] # UNION WITH OVERBAR
+2A43  ; [*0BCB.0020.0002] # INTERSECTION WITH OVERBAR
+2A44  ; [*0BCC.0020.0002] # INTERSECTION WITH LOGICAL AND
+2A45  ; [*0BCD.0020.0002] # UNION WITH LOGICAL OR
+2A46  ; [*0BCE.0020.0002] # UNION ABOVE INTERSECTION
+2A47  ; [*0BCF.0020.0002] # INTERSECTION ABOVE UNION
+2A48  ; [*0BD0.0020.0002] # UNION ABOVE BAR ABOVE INTERSECTION
+2A49  ; [*0BD1.0020.0002] # INTERSECTION ABOVE BAR ABOVE UNION
+2A4A  ; [*0BD2.0020.0002] # UNION BESIDE AND JOINED WITH UNION
+2A4B  ; [*0BD3.0020.0002] # INTERSECTION BESIDE AND JOINED WITH INTERSECTION
+2A4C  ; [*0BD4.0020.0002] # CLOSED UNION WITH SERIFS
+2A4D  ; [*0BD5.0020.0002] # CLOSED INTERSECTION WITH SERIFS
+2A4E  ; [*0BD6.0020.0002] # DOUBLE SQUARE INTERSECTION
+2A4F  ; [*0BD7.0020.0002] # DOUBLE SQUARE UNION
+2A50  ; [*0BD8.0020.0002] # CLOSED UNION WITH SERIFS AND SMASH PRODUCT
+2A51  ; [*0BD9.0020.0002] # LOGICAL AND WITH DOT ABOVE
+2A52  ; [*0BDA.0020.0002] # LOGICAL OR WITH DOT ABOVE
+2A53  ; [*0BDB.0020.0002] # DOUBLE LOGICAL AND
+2A54  ; [*0BDC.0020.0002] # DOUBLE LOGICAL OR
+2A55  ; [*0BDD.0020.0002] # TWO INTERSECTING LOGICAL AND
+2A56  ; [*0BDE.0020.0002] # TWO INTERSECTING LOGICAL OR
+2A57  ; [*0BDF.0020.0002] # SLOPING LARGE OR
+2A58  ; [*0BE0.0020.0002] # SLOPING LARGE AND
+2A59  ; [*0BE1.0020.0002] # LOGICAL OR OVERLAPPING LOGICAL AND
+2A5A  ; [*0BE2.0020.0002] # LOGICAL AND WITH MIDDLE STEM
+2A5B  ; [*0BE3.0020.0002] # LOGICAL OR WITH MIDDLE STEM
+2A5C  ; [*0BE4.0020.0002] # LOGICAL AND WITH HORIZONTAL DASH
+2A5D  ; [*0BE5.0020.0002] # LOGICAL OR WITH HORIZONTAL DASH
+2A5E  ; [*0BE6.0020.0002] # LOGICAL AND WITH DOUBLE OVERBAR
+2A5F  ; [*0BE7.0020.0002] # LOGICAL AND WITH UNDERBAR
+2A60  ; [*0BE8.0020.0002] # LOGICAL AND WITH DOUBLE UNDERBAR
+2A61  ; [*0BE9.0020.0002] # SMALL VEE WITH UNDERBAR
+2A62  ; [*0BEA.0020.0002] # LOGICAL OR WITH DOUBLE OVERBAR
+2A63  ; [*0BEB.0020.0002] # LOGICAL OR WITH DOUBLE UNDERBAR
+2A64  ; [*0BEC.0020.0002] # Z NOTATION DOMAIN ANTIRESTRICTION
+2A65  ; [*0BED.0020.0002] # Z NOTATION RANGE ANTIRESTRICTION
+2A66  ; [*0BEE.0020.0002] # EQUALS SIGN WITH DOT BELOW
+2A67  ; [*0BEF.0020.0002] # IDENTICAL WITH DOT ABOVE
+2A68  ; [*0BF0.0020.0002] # TRIPLE HORIZONTAL BAR WITH DOUBLE VERTICAL STROKE
+2A69  ; [*0BF1.0020.0002] # TRIPLE HORIZONTAL BAR WITH TRIPLE VERTICAL STROKE
+2A6A  ; [*0BF2.0020.0002] # TILDE OPERATOR WITH DOT ABOVE
+2A6B  ; [*0BF3.0020.0002] # TILDE OPERATOR WITH RISING DOTS
+2A6C  ; [*0BF4.0020.0002] # SIMILAR MINUS SIMILAR
+2A6D  ; [*0BF5.0020.0002] # CONGRUENT WITH DOT ABOVE
+2A6E  ; [*0BF6.0020.0002] # EQUALS WITH ASTERISK
+2A6F  ; [*0BF7.0020.0002] # ALMOST EQUAL TO WITH CIRCUMFLEX ACCENT
+2A70  ; [*0BF8.0020.0002] # APPROXIMATELY EQUAL OR EQUAL TO
+2A71  ; [*0BF9.0020.0002] # EQUALS SIGN ABOVE PLUS SIGN
+2A72  ; [*0BFA.0020.0002] # PLUS SIGN ABOVE EQUALS SIGN
+2A73  ; [*0BFB.0020.0002] # EQUALS SIGN ABOVE TILDE OPERATOR
+2A74  ; [*0238.0020.0004][*0238.0020.0004][*05DB.0020.0004] # DOUBLE COLON EQUAL
+2A75  ; [*05DB.0020.0004][*05DB.0020.0004] # TWO CONSECUTIVE EQUALS SIGNS
+2A76  ; [*05DB.0020.0004][*05DB.0020.0004][*05DB.0020.0004] # THREE CONSECUTIVE EQUALS SIGNS
+2A77  ; [*0BFC.0020.0002] # EQUALS SIGN WITH TWO DOTS ABOVE AND TWO DOTS BELOW
+2A78  ; [*0BFD.0020.0002] # EQUIVALENT WITH FOUR DOTS ABOVE
+2A79  ; [*0BFE.0020.0002] # LESS-THAN WITH CIRCLE INSIDE
+2A7A  ; [*0BFF.0020.0002] # GREATER-THAN WITH CIRCLE INSIDE
+2A7B  ; [*0C00.0020.0002] # LESS-THAN WITH QUESTION MARK ABOVE
+2A7C  ; [*0C01.0020.0002] # GREATER-THAN WITH QUESTION MARK ABOVE
+2A7D  ; [*0C02.0020.0002] # LESS-THAN OR SLANTED EQUAL TO
+2A7E  ; [*0C03.0020.0002] # GREATER-THAN OR SLANTED EQUAL TO
+2A7F  ; [*0C04.0020.0002] # LESS-THAN OR SLANTED EQUAL TO WITH DOT INSIDE
+2A80  ; [*0C05.0020.0002] # GREATER-THAN OR SLANTED EQUAL TO WITH DOT INSIDE
+2A81  ; [*0C06.0020.0002] # LESS-THAN OR SLANTED EQUAL TO WITH DOT ABOVE
+2A82  ; [*0C07.0020.0002] # GREATER-THAN OR SLANTED EQUAL TO WITH DOT ABOVE
+2A83  ; [*0C08.0020.0002] # LESS-THAN OR SLANTED EQUAL TO WITH DOT ABOVE RIGHT
+2A84  ; [*0C09.0020.0002] # GREATER-THAN OR SLANTED EQUAL TO WITH DOT ABOVE LEFT
+2A85  ; [*0C0A.0020.0002] # LESS-THAN OR APPROXIMATE
+2A86  ; [*0C0B.0020.0002] # GREATER-THAN OR APPROXIMATE
+2A87  ; [*0C0C.0020.0002] # LESS-THAN AND SINGLE-LINE NOT EQUAL TO
+2A88  ; [*0C0D.0020.0002] # GREATER-THAN AND SINGLE-LINE NOT EQUAL TO
+2A89  ; [*0C0E.0020.0002] # LESS-THAN AND NOT APPROXIMATE
+2A8A  ; [*0C0F.0020.0002] # GREATER-THAN AND NOT APPROXIMATE
+2A8B  ; [*0C10.0020.0002] # LESS-THAN ABOVE DOUBLE-LINE EQUAL ABOVE GREATER-THAN
+2A8C  ; [*0C11.0020.0002] # GREATER-THAN ABOVE DOUBLE-LINE EQUAL ABOVE LESS-THAN
+2A8D  ; [*0C12.0020.0002] # LESS-THAN ABOVE SIMILAR OR EQUAL
+2A8E  ; [*0C13.0020.0002] # GREATER-THAN ABOVE SIMILAR OR EQUAL
+2A8F  ; [*0C14.0020.0002] # LESS-THAN ABOVE SIMILAR ABOVE GREATER-THAN
+2A90  ; [*0C15.0020.0002] # GREATER-THAN ABOVE SIMILAR ABOVE LESS-THAN
+2A91  ; [*0C16.0020.0002] # LESS-THAN ABOVE GREATER-THAN ABOVE DOUBLE-LINE EQUAL
+2A92  ; [*0C17.0020.0002] # GREATER-THAN ABOVE LESS-THAN ABOVE DOUBLE-LINE EQUAL
+2A93  ; [*0C18.0020.0002] # LESS-THAN ABOVE SLANTED EQUAL ABOVE GREATER-THAN ABOVE SLANTED EQUAL
+2A94  ; [*0C19.0020.0002] # GREATER-THAN ABOVE SLANTED EQUAL ABOVE LESS-THAN ABOVE SLANTED EQUAL
+2A95  ; [*0C1A.0020.0002] # SLANTED EQUAL TO OR LESS-THAN
+2A96  ; [*0C1B.0020.0002] # SLANTED EQUAL TO OR GREATER-THAN
+2A97  ; [*0C1C.0020.0002] # SLANTED EQUAL TO OR LESS-THAN WITH DOT INSIDE
+2A98  ; [*0C1D.0020.0002] # SLANTED EQUAL TO OR GREATER-THAN WITH DOT INSIDE
+2A99  ; [*0C1E.0020.0002] # DOUBLE-LINE EQUAL TO OR LESS-THAN
+2A9A  ; [*0C1F.0020.0002] # DOUBLE-LINE EQUAL TO OR GREATER-THAN
+2A9B  ; [*0C20.0020.0002] # DOUBLE-LINE SLANTED EQUAL TO OR LESS-THAN
+2A9C  ; [*0C21.0020.0002] # DOUBLE-LINE SLANTED EQUAL TO OR GREATER-THAN
+2A9D  ; [*0C22.0020.0002] # SIMILAR OR LESS-THAN
+2A9E  ; [*0C23.0020.0002] # SIMILAR OR GREATER-THAN
+2A9F  ; [*0C24.0020.0002] # SIMILAR ABOVE LESS-THAN ABOVE EQUALS SIGN
+2AA0  ; [*0C25.0020.0002] # SIMILAR ABOVE GREATER-THAN ABOVE EQUALS SIGN
+2AA1  ; [*0C26.0020.0002] # DOUBLE NESTED LESS-THAN
+2AA2  ; [*0C27.0020.0002] # DOUBLE NESTED GREATER-THAN
+2AA3  ; [*0C28.0020.0002] # DOUBLE NESTED LESS-THAN WITH UNDERBAR
+2AA4  ; [*0C29.0020.0002] # GREATER-THAN OVERLAPPING LESS-THAN
+2AA5  ; [*0C2A.0020.0002] # GREATER-THAN BESIDE LESS-THAN
+2AA6  ; [*0C2B.0020.0002] # LESS-THAN CLOSED BY CURVE
+2AA7  ; [*0C2C.0020.0002] # GREATER-THAN CLOSED BY CURVE
+2AA8  ; [*0C2D.0020.0002] # LESS-THAN CLOSED BY CURVE ABOVE SLANTED EQUAL
+2AA9  ; [*0C2E.0020.0002] # GREATER-THAN CLOSED BY CURVE ABOVE SLANTED EQUAL
+2AAA  ; [*0C2F.0020.0002] # SMALLER THAN
+2AAB  ; [*0C30.0020.0002] # LARGER THAN
+2AAC  ; [*0C31.0020.0002] # SMALLER THAN OR EQUAL TO
+2AAD  ; [*0C32.0020.0002] # LARGER THAN OR EQUAL TO
+2AAE  ; [*0C33.0020.0002] # EQUALS SIGN WITH BUMPY ABOVE
+2AAF  ; [*0C34.0020.0002] # PRECEDES ABOVE SINGLE-LINE EQUALS SIGN
+2AB0  ; [*0C35.0020.0002] # SUCCEEDS ABOVE SINGLE-LINE EQUALS SIGN
+2AB1  ; [*0C36.0020.0002] # PRECEDES ABOVE SINGLE-LINE NOT EQUAL TO
+2AB2  ; [*0C37.0020.0002] # SUCCEEDS ABOVE SINGLE-LINE NOT EQUAL TO
+2AB3  ; [*0C38.0020.0002] # PRECEDES ABOVE EQUALS SIGN
+2AB4  ; [*0C39.0020.0002] # SUCCEEDS ABOVE EQUALS SIGN
+2AB5  ; [*0C3A.0020.0002] # PRECEDES ABOVE NOT EQUAL TO
+2AB6  ; [*0C3B.0020.0002] # SUCCEEDS ABOVE NOT EQUAL TO
+2AB7  ; [*0C3C.0020.0002] # PRECEDES ABOVE ALMOST EQUAL TO
+2AB8  ; [*0C3D.0020.0002] # SUCCEEDS ABOVE ALMOST EQUAL TO
+2AB9  ; [*0C3E.0020.0002] # PRECEDES ABOVE NOT ALMOST EQUAL TO
+2ABA  ; [*0C3F.0020.0002] # SUCCEEDS ABOVE NOT ALMOST EQUAL TO
+2ABB  ; [*0C40.0020.0002] # DOUBLE PRECEDES
+2ABC  ; [*0C41.0020.0002] # DOUBLE SUCCEEDS
+2ABD  ; [*0C42.0020.0002] # SUBSET WITH DOT
+2ABE  ; [*0C43.0020.0002] # SUPERSET WITH DOT
+2ABF  ; [*0C44.0020.0002] # SUBSET WITH PLUS SIGN BELOW
+2AC0  ; [*0C45.0020.0002] # SUPERSET WITH PLUS SIGN BELOW
+2AC1  ; [*0C46.0020.0002] # SUBSET WITH MULTIPLICATION SIGN BELOW
+2AC2  ; [*0C47.0020.0002] # SUPERSET WITH MULTIPLICATION SIGN BELOW
+2AC3  ; [*0C48.0020.0002] # SUBSET OF OR EQUAL TO WITH DOT ABOVE
+2AC4  ; [*0C49.0020.0002] # SUPERSET OF OR EQUAL TO WITH DOT ABOVE
+2AC5  ; [*0C4A.0020.0002] # SUBSET OF ABOVE EQUALS SIGN
+2AC6  ; [*0C4B.0020.0002] # SUPERSET OF ABOVE EQUALS SIGN
+2AC7  ; [*0C4C.0020.0002] # SUBSET OF ABOVE TILDE OPERATOR
+2AC8  ; [*0C4D.0020.0002] # SUPERSET OF ABOVE TILDE OPERATOR
+2AC9  ; [*0C4E.0020.0002] # SUBSET OF ABOVE ALMOST EQUAL TO
+2ACA  ; [*0C4F.0020.0002] # SUPERSET OF ABOVE ALMOST EQUAL TO
+2ACB  ; [*0C50.0020.0002] # SUBSET OF ABOVE NOT EQUAL TO
+2ACC  ; [*0C51.0020.0002] # SUPERSET OF ABOVE NOT EQUAL TO
+2ACD  ; [*0C52.0020.0002] # SQUARE LEFT OPEN BOX OPERATOR
+2ACE  ; [*0C53.0020.0002] # SQUARE RIGHT OPEN BOX OPERATOR
+2ACF  ; [*0C54.0020.0002] # CLOSED SUBSET
+2AD0  ; [*0C55.0020.0002] # CLOSED SUPERSET
+2AD1  ; [*0C56.0020.0002] # CLOSED SUBSET OR EQUAL TO
+2AD2  ; [*0C57.0020.0002] # CLOSED SUPERSET OR EQUAL TO
+2AD3  ; [*0C58.0020.0002] # SUBSET ABOVE SUPERSET
+2AD4  ; [*0C59.0020.0002] # SUPERSET ABOVE SUBSET
+2AD5  ; [*0C5A.0020.0002] # SUBSET ABOVE SUBSET
+2AD6  ; [*0C5B.0020.0002] # SUPERSET ABOVE SUPERSET
+2AD7  ; [*0C5C.0020.0002] # SUPERSET BESIDE SUBSET
+2AD8  ; [*0C5D.0020.0002] # SUPERSET BESIDE AND JOINED BY DASH WITH SUBSET
+2AD9  ; [*0C5E.0020.0002] # ELEMENT OF OPENING DOWNWARDS
+2ADA  ; [*0C5F.0020.0002] # PITCHFORK WITH TEE TOP
+2ADB  ; [*0C60.0020.0002] # TRANSVERSAL INTERSECTION
+2ADC  ; [*0C61.0020.0002][.0000.002F.0002] # FORKING
+2ADD  ; [*0C61.0020.0002] # NONFORKING
+2ADE  ; [*0C62.0020.0002] # SHORT LEFT TACK
+2ADF  ; [*0C63.0020.0002] # SHORT DOWN TACK
+2AE0  ; [*0C64.0020.0002] # SHORT UP TACK
+2AE1  ; [*0C65.0020.0002] # PERPENDICULAR WITH S
+2AE2  ; [*0C66.0020.0002] # VERTICAL BAR TRIPLE RIGHT TURNSTILE
+2AE3  ; [*0C67.0020.0002] # DOUBLE VERTICAL BAR LEFT TURNSTILE
+2AE4  ; [*0C68.0020.0002] # VERTICAL BAR DOUBLE LEFT TURNSTILE
+2AE5  ; [*0C69.0020.0002] # DOUBLE VERTICAL BAR DOUBLE LEFT TURNSTILE
+2AE6  ; [*0C6A.0020.0002] # LONG DASH FROM LEFT MEMBER OF DOUBLE VERTICAL
+2AE7  ; [*0C6B.0020.0002] # SHORT DOWN TACK WITH OVERBAR
+2AE8  ; [*0C6C.0020.0002] # SHORT UP TACK WITH UNDERBAR
+2AE9  ; [*0C6D.0020.0002] # SHORT UP TACK ABOVE SHORT DOWN TACK
+2AEA  ; [*0C6E.0020.0002] # DOUBLE DOWN TACK
+2AEB  ; [*0C6F.0020.0002] # DOUBLE UP TACK
+2AEC  ; [*0C70.0020.0002] # DOUBLE STROKE NOT SIGN
+2AED  ; [*0C71.0020.0002] # REVERSED DOUBLE STROKE NOT SIGN
+2AEE  ; [*0C72.0020.0002] # DOES NOT DIVIDE WITH REVERSED NEGATION SLASH
+2AEF  ; [*0C73.0020.0002] # VERTICAL LINE WITH CIRCLE ABOVE
+2AF0  ; [*0C74.0020.0002] # VERTICAL LINE WITH CIRCLE BELOW
+2AF1  ; [*0C75.0020.0002] # DOWN TACK WITH CIRCLE BELOW
+2AF2  ; [*0C76.0020.0002] # PARALLEL WITH HORIZONTAL STROKE
+2AF3  ; [*0C77.0020.0002] # PARALLEL WITH TILDE OPERATOR
+2AF4  ; [*0C78.0020.0002] # TRIPLE VERTICAL BAR BINARY RELATION
+2AF5  ; [*0C79.0020.0002] # TRIPLE VERTICAL BAR WITH HORIZONTAL STROKE
+2AF6  ; [*0C7A.0020.0002] # TRIPLE COLON OPERATOR
+2AF7  ; [*0C7B.0020.0002] # TRIPLE NESTED LESS-THAN
+2AF8  ; [*0C7C.0020.0002] # TRIPLE NESTED GREATER-THAN
+2AF9  ; [*0C7D.0020.0002] # DOUBLE-LINE SLANTED LESS-THAN OR EQUAL TO
+2AFA  ; [*0C7E.0020.0002] # DOUBLE-LINE SLANTED GREATER-THAN OR EQUAL TO
+2AFB  ; [*0C7F.0020.0002] # TRIPLE SOLIDUS BINARY RELATION
+2AFC  ; [*0C80.0020.0002] # LARGE TRIPLE VERTICAL BAR OPERATOR
+2AFD  ; [*0C81.0020.0002] # DOUBLE SOLIDUS OPERATOR
+2AFE  ; [*0C82.0020.0002] # WHITE VERTICAL BAR
+2AFF  ; [*0C83.0020.0002] # N-ARY WHITE VERTICAL BAR
+2B00  ; [*0C84.0020.0002] # NORTH EAST WHITE ARROW
+2B01  ; [*0C85.0020.0002] # NORTH WEST WHITE ARROW
+2B02  ; [*0C86.0020.0002] # SOUTH EAST WHITE ARROW
+2B03  ; [*0C87.0020.0002] # SOUTH WEST WHITE ARROW
+2B04  ; [*0C88.0020.0002] # LEFT RIGHT WHITE ARROW
+2B05  ; [*0C89.0020.0002] # LEFTWARDS BLACK ARROW
+2B06  ; [*0C8A.0020.0002] # UPWARDS BLACK ARROW
+2B07  ; [*0C8B.0020.0002] # DOWNWARDS BLACK ARROW
+2B08  ; [*0C8C.0020.0002] # NORTH EAST BLACK ARROW
+2B09  ; [*0C8D.0020.0002] # NORTH WEST BLACK ARROW
+2B0A  ; [*0C8E.0020.0002] # SOUTH EAST BLACK ARROW
+2B0B  ; [*0C8F.0020.0002] # SOUTH WEST BLACK ARROW
+2B0C  ; [*0C90.0020.0002] # LEFT RIGHT BLACK ARROW
+2B0D  ; [*0C91.0020.0002] # UP DOWN BLACK ARROW
+2B0E  ; [*0C92.0020.0002] # RIGHTWARDS ARROW WITH TIP DOWNWARDS
+2B0F  ; [*0C93.0020.0002] # RIGHTWARDS ARROW WITH TIP UPWARDS
+2B10  ; [*0C94.0020.0002] # LEFTWARDS ARROW WITH TIP DOWNWARDS
+2B11  ; [*0C95.0020.0002] # LEFTWARDS ARROW WITH TIP UPWARDS
+2B12  ; [*0C96.0020.0002] # SQUARE WITH TOP HALF BLACK
+2B13  ; [*0C97.0020.0002] # SQUARE WITH BOTTOM HALF BLACK
+2B14  ; [*0C98.0020.0002] # SQUARE WITH UPPER RIGHT DIAGONAL HALF BLACK
+2B15  ; [*0C99.0020.0002] # SQUARE WITH LOWER LEFT DIAGONAL HALF BLACK
+2B16  ; [*0C9A.0020.0002] # DIAMOND WITH LEFT HALF BLACK
+2B17  ; [*0C9B.0020.0002] # DIAMOND WITH RIGHT HALF BLACK
+2B18  ; [*0C9C.0020.0002] # DIAMOND WITH TOP HALF BLACK
+2B19  ; [*0C9D.0020.0002] # DIAMOND WITH BOTTOM HALF BLACK
+2B1A  ; [*0C9E.0020.0002] # DOTTED SQUARE
+2B1B  ; [*0C9F.0020.0002] # BLACK LARGE SQUARE
+2B1C  ; [*0CA0.0020.0002] # WHITE LARGE SQUARE
+2B1D  ; [*0CA1.0020.0002] # BLACK VERY SMALL SQUARE
+2B1E  ; [*0CA2.0020.0002] # WHITE VERY SMALL SQUARE
+2B1F  ; [*0CA3.0020.0002] # BLACK PENTAGON
+2B20  ; [*0CA4.0020.0002] # WHITE PENTAGON
+2B21  ; [*0CA5.0020.0002] # WHITE HEXAGON
+2B22  ; [*0CA6.0020.0002] # BLACK HEXAGON
+2B23  ; [*0CA7.0020.0002] # HORIZONTAL BLACK HEXAGON
+2B24  ; [*0CA8.0020.0002] # BLACK LARGE CIRCLE
+2B25  ; [*0CA9.0020.0002] # BLACK MEDIUM DIAMOND
+2B26  ; [*0CAA.0020.0002] # WHITE MEDIUM DIAMOND
+2B27  ; [*0CAB.0020.0002] # BLACK MEDIUM LOZENGE
+2B28  ; [*0CAC.0020.0002] # WHITE MEDIUM LOZENGE
+2B29  ; [*0CAD.0020.0002] # BLACK SMALL DIAMOND
+2B2A  ; [*0CAE.0020.0002] # BLACK SMALL LOZENGE
+2B2B  ; [*0CAF.0020.0002] # WHITE SMALL LOZENGE
+2B2C  ; [*0CB0.0020.0002] # BLACK HORIZONTAL ELLIPSE
+2B2D  ; [*0CB1.0020.0002] # WHITE HORIZONTAL ELLIPSE
+2B2E  ; [*0CB2.0020.0002] # BLACK VERTICAL ELLIPSE
+2B2F  ; [*0CB3.0020.0002] # WHITE VERTICAL ELLIPSE
+2B30  ; [*0CB4.0020.0002] # LEFT ARROW WITH SMALL CIRCLE
+2B31  ; [*0CB5.0020.0002] # THREE LEFTWARDS ARROWS
+2B32  ; [*0CB6.0020.0002] # LEFT ARROW WITH CIRCLED PLUS
+2B33  ; [*0CB7.0020.0002] # LONG LEFTWARDS SQUIGGLE ARROW
+2B34  ; [*0CB8.0020.0002] # LEFTWARDS TWO-HEADED ARROW WITH VERTICAL STROKE
+2B35  ; [*0CB9.0020.0002] # LEFTWARDS TWO-HEADED ARROW WITH DOUBLE VERTICAL STROKE
+2B36  ; [*0CBA.0020.0002] # LEFTWARDS TWO-HEADED ARROW FROM BAR
+2B37  ; [*0CBB.0020.0002] # LEFTWARDS TWO-HEADED TRIPLE DASH ARROW
+2B38  ; [*0CBC.0020.0002] # LEFTWARDS ARROW WITH DOTTED STEM
+2B39  ; [*0CBD.0020.0002] # LEFTWARDS ARROW WITH TAIL WITH VERTICAL STROKE
+2B3A  ; [*0CBE.0020.0002] # LEFTWARDS ARROW WITH TAIL WITH DOUBLE VERTICAL STROKE
+2B3B  ; [*0CBF.0020.0002] # LEFTWARDS TWO-HEADED ARROW WITH TAIL
+2B3C  ; [*0CC0.0020.0002] # LEFTWARDS TWO-HEADED ARROW WITH TAIL WITH VERTICAL STROKE
+2B3D  ; [*0CC1.0020.0002] # LEFTWARDS TWO-HEADED ARROW WITH TAIL WITH DOUBLE VERTICAL STROKE
+2B3E  ; [*0CC2.0020.0002] # LEFTWARDS ARROW THROUGH X
+2B3F  ; [*0CC3.0020.0002] # WAVE ARROW POINTING DIRECTLY LEFT
+2B40  ; [*0CC4.0020.0002] # EQUALS SIGN ABOVE LEFTWARDS ARROW
+2B41  ; [*0CC5.0020.0002] # REVERSE TILDE OPERATOR ABOVE LEFTWARDS ARROW
+2B42  ; [*0CC6.0020.0002] # LEFTWARDS ARROW ABOVE REVERSE ALMOST EQUAL TO
+2B43  ; [*0CC7.0020.0002] # RIGHTWARDS ARROW THROUGH GREATER-THAN
+2B44  ; [*0CC8.0020.0002] # RIGHTWARDS ARROW THROUGH SUPERSET
+2B45  ; [*0CC9.0020.0002] # LEFTWARDS QUADRUPLE ARROW
+2B46  ; [*0CCA.0020.0002] # RIGHTWARDS QUADRUPLE ARROW
+2B47  ; [*0CCB.0020.0002] # REVERSE TILDE OPERATOR ABOVE RIGHTWARDS ARROW
+2B48  ; [*0CCC.0020.0002] # RIGHTWARDS ARROW ABOVE REVERSE ALMOST EQUAL TO
+2B49  ; [*0CCD.0020.0002] # TILDE OPERATOR ABOVE LEFTWARDS ARROW
+2B4A  ; [*0CCE.0020.0002] # LEFTWARDS ARROW ABOVE ALMOST EQUAL TO
+2B4B  ; [*0CCF.0020.0002] # LEFTWARDS ARROW ABOVE REVERSE TILDE OPERATOR
+2B4C  ; [*0CD0.0020.0002] # RIGHTWARDS ARROW ABOVE REVERSE TILDE OPERATOR
+2B4D  ; [*0CD1.0020.0002] # DOWNWARDS TRIANGLE-HEADED ZIGZAG ARROW
+2B4E  ; [*0CD2.0020.0002] # SHORT SLANTED NORTH ARROW
+2B4F  ; [*0CD3.0020.0002] # SHORT BACKSLANTED SOUTH ARROW
+2B50  ; [*0CD4.0020.0002] # WHITE MEDIUM STAR
+2B51  ; [*0CD5.0020.0002] # BLACK SMALL STAR
+2B52  ; [*0CD6.0020.0002] # WHITE SMALL STAR
+2B53  ; [*0CD7.0020.0002] # BLACK RIGHT-POINTING PENTAGON
+2B54  ; [*0CD8.0020.0002] # WHITE RIGHT-POINTING PENTAGON
+2B55  ; [*0CD9.0020.0002] # HEAVY LARGE CIRCLE
+2B56  ; [*0CDA.0020.0002] # HEAVY OVAL WITH OVAL INSIDE
+2B57  ; [*0CDB.0020.0002] # HEAVY CIRCLE WITH CIRCLE INSIDE
+2B58  ; [*0CDC.0020.0002] # HEAVY CIRCLE
+2B59  ; [*0CDD.0020.0002] # HEAVY CIRCLED SALTIRE
+2B5A  ; [*0CDE.0020.0002] # SLANTED NORTH ARROW WITH HOOKED HEAD
+2B5B  ; [*0CDF.0020.0002] # BACKSLANTED SOUTH ARROW WITH HOOKED TAIL
+2B5C  ; [*0CE0.0020.0002] # SLANTED NORTH ARROW WITH HORIZONTAL TAIL
+2B5D  ; [*0CE1.0020.0002] # BACKSLANTED SOUTH ARROW WITH HORIZONTAL TAIL
+2B5E  ; [*0CE2.0020.0002] # BENT ARROW POINTING DOWNWARDS THEN NORTH EAST
+2B5F  ; [*0CE3.0020.0002] # SHORT BENT ARROW POINTING DOWNWARDS THEN NORTH EAST
+2B60  ; [*0CE4.0020.0002] # LEFTWARDS TRIANGLE-HEADED ARROW
+2B61  ; [*0CE5.0020.0002] # UPWARDS TRIANGLE-HEADED ARROW
+2B62  ; [*0CE6.0020.0002] # RIGHTWARDS TRIANGLE-HEADED ARROW
+2B63  ; [*0CE7.0020.0002] # DOWNWARDS TRIANGLE-HEADED ARROW
+2B64  ; [*0CE8.0020.0002] # LEFT RIGHT TRIANGLE-HEADED ARROW
+2B65  ; [*0CE9.0020.0002] # UP DOWN TRIANGLE-HEADED ARROW
+2B66  ; [*0CEA.0020.0002] # NORTH WEST TRIANGLE-HEADED ARROW
+2B67  ; [*0CEB.0020.0002] # NORTH EAST TRIANGLE-HEADED ARROW
+2B68  ; [*0CEC.0020.0002] # SOUTH EAST TRIANGLE-HEADED ARROW
+2B69  ; [*0CED.0020.0002] # SOUTH WEST TRIANGLE-HEADED ARROW
+2B6A  ; [*0CEE.0020.0002] # LEFTWARDS TRIANGLE-HEADED DASHED ARROW
+2B6B  ; [*0CEF.0020.0002] # UPWARDS TRIANGLE-HEADED DASHED ARROW
+2B6C  ; [*0CF0.0020.0002] # RIGHTWARDS TRIANGLE-HEADED DASHED ARROW
+2B6D  ; [*0CF1.0020.0002] # DOWNWARDS TRIANGLE-HEADED DASHED ARROW
+2B6E  ; [*0CF2.0020.0002] # CLOCKWISE TRIANGLE-HEADED OPEN CIRCLE ARROW
+2B6F  ; [*0CF3.0020.0002] # ANTICLOCKWISE TRIANGLE-HEADED OPEN CIRCLE ARROW
+2B70  ; [*0CF4.0020.0002] # LEFTWARDS TRIANGLE-HEADED ARROW TO BAR
+2B71  ; [*0CF5.0020.0002] # UPWARDS TRIANGLE-HEADED ARROW TO BAR
+2B72  ; [*0CF6.0020.0002] # RIGHTWARDS TRIANGLE-HEADED ARROW TO BAR
+2B73  ; [*0CF7.0020.0002] # DOWNWARDS TRIANGLE-HEADED ARROW TO BAR
+2B76  ; [*0CF8.0020.0002] # NORTH WEST TRIANGLE-HEADED ARROW TO BAR
+2B77  ; [*0CF9.0020.0002] # NORTH EAST TRIANGLE-HEADED ARROW TO BAR
+2B78  ; [*0CFA.0020.0002] # SOUTH EAST TRIANGLE-HEADED ARROW TO BAR
+2B79  ; [*0CFB.0020.0002] # SOUTH WEST TRIANGLE-HEADED ARROW TO BAR
+2B7A  ; [*0CFC.0020.0002] # LEFTWARDS TRIANGLE-HEADED ARROW WITH DOUBLE HORIZONTAL STROKE
+2B7B  ; [*0CFD.0020.0002] # UPWARDS TRIANGLE-HEADED ARROW WITH DOUBLE HORIZONTAL STROKE
+2B7C  ; [*0CFE.0020.0002] # RIGHTWARDS TRIANGLE-HEADED ARROW WITH DOUBLE HORIZONTAL STROKE
+2B7D  ; [*0CFF.0020.0002] # DOWNWARDS TRIANGLE-HEADED ARROW WITH DOUBLE HORIZONTAL STROKE
+2B7E  ; [*0D00.0020.0002] # HORIZONTAL TAB KEY
+2B7F  ; [*0D01.0020.0002] # VERTICAL TAB KEY
+2B80  ; [*0D02.0020.0002] # LEFTWARDS TRIANGLE-HEADED ARROW OVER RIGHTWARDS TRIANGLE-HEADED ARROW
+2B81  ; [*0D03.0020.0002] # UPWARDS TRIANGLE-HEADED ARROW LEFTWARDS OF DOWNWARDS TRIANGLE-HEADED ARROW
+2B82  ; [*0D04.0020.0002] # RIGHTWARDS TRIANGLE-HEADED ARROW OVER LEFTWARDS TRIANGLE-HEADED ARROW
+2B83  ; [*0D05.0020.0002] # DOWNWARDS TRIANGLE-HEADED ARROW LEFTWARDS OF UPWARDS TRIANGLE-HEADED ARROW
+2B84  ; [*0D06.0020.0002] # LEFTWARDS TRIANGLE-HEADED PAIRED ARROWS
+2B85  ; [*0D07.0020.0002] # UPWARDS TRIANGLE-HEADED PAIRED ARROWS
+2B86  ; [*0D08.0020.0002] # RIGHTWARDS TRIANGLE-HEADED PAIRED ARROWS
+2B87  ; [*0D09.0020.0002] # DOWNWARDS TRIANGLE-HEADED PAIRED ARROWS
+2B88  ; [*0D0A.0020.0002] # LEFTWARDS BLACK CIRCLED WHITE ARROW
+2B89  ; [*0D0B.0020.0002] # UPWARDS BLACK CIRCLED WHITE ARROW
+2B8A  ; [*0D0C.0020.0002] # RIGHTWARDS BLACK CIRCLED WHITE ARROW
+2B8B  ; [*0D0D.0020.0002] # DOWNWARDS BLACK CIRCLED WHITE ARROW
+2B8C  ; [*0D0E.0020.0002] # ANTICLOCKWISE TRIANGLE-HEADED RIGHT U-SHAPED ARROW
+2B8D  ; [*0D0F.0020.0002] # ANTICLOCKWISE TRIANGLE-HEADED BOTTOM U-SHAPED ARROW
+2B8E  ; [*0D10.0020.0002] # ANTICLOCKWISE TRIANGLE-HEADED LEFT U-SHAPED ARROW
+2B8F  ; [*0D11.0020.0002] # ANTICLOCKWISE TRIANGLE-HEADED TOP U-SHAPED ARROW
+2B90  ; [*0D12.0020.0002] # RETURN LEFT
+2B91  ; [*0D13.0020.0002] # RETURN RIGHT
+2B92  ; [*0D14.0020.0002] # NEWLINE LEFT
+2B93  ; [*0D15.0020.0002] # NEWLINE RIGHT
+2B94  ; [*0D16.0020.0002] # FOUR CORNER ARROWS CIRCLING ANTICLOCKWISE
+2B95  ; [*0D17.0020.0002] # RIGHTWARDS BLACK ARROW
+2B98  ; [*0D18.0020.0002] # THREE-D TOP-LIGHTED LEFTWARDS EQUILATERAL ARROWHEAD
+2B99  ; [*0D19.0020.0002] # THREE-D RIGHT-LIGHTED UPWARDS EQUILATERAL ARROWHEAD
+2B9A  ; [*0D1A.0020.0002] # THREE-D TOP-LIGHTED RIGHTWARDS EQUILATERAL ARROWHEAD
+2B9B  ; [*0D1B.0020.0002] # THREE-D LEFT-LIGHTED DOWNWARDS EQUILATERAL ARROWHEAD
+2B9C  ; [*0D1C.0020.0002] # BLACK LEFTWARDS EQUILATERAL ARROWHEAD
+2B9D  ; [*0D1D.0020.0002] # BLACK UPWARDS EQUILATERAL ARROWHEAD
+2B9E  ; [*0D1E.0020.0002] # BLACK RIGHTWARDS EQUILATERAL ARROWHEAD
+2B9F  ; [*0D1F.0020.0002] # BLACK DOWNWARDS EQUILATERAL ARROWHEAD
+2BA0  ; [*0D20.0020.0002] # DOWNWARDS TRIANGLE-HEADED ARROW WITH LONG TIP LEFTWARDS
+2BA1  ; [*0D21.0020.0002] # DOWNWARDS TRIANGLE-HEADED ARROW WITH LONG TIP RIGHTWARDS
+2BA2  ; [*0D22.0020.0002] # UPWARDS TRIANGLE-HEADED ARROW WITH LONG TIP LEFTWARDS
+2BA3  ; [*0D23.0020.0002] # UPWARDS TRIANGLE-HEADED ARROW WITH LONG TIP RIGHTWARDS
+2BA4  ; [*0D24.0020.0002] # LEFTWARDS TRIANGLE-HEADED ARROW WITH LONG TIP UPWARDS
+2BA5  ; [*0D25.0020.0002] # RIGHTWARDS TRIANGLE-HEADED ARROW WITH LONG TIP UPWARDS
+2BA6  ; [*0D26.0020.0002] # LEFTWARDS TRIANGLE-HEADED ARROW WITH LONG TIP DOWNWARDS
+2BA7  ; [*0D27.0020.0002] # RIGHTWARDS TRIANGLE-HEADED ARROW WITH LONG TIP DOWNWARDS
+2BA8  ; [*0D28.0020.0002] # BLACK CURVED DOWNWARDS AND LEFTWARDS ARROW
+2BA9  ; [*0D29.0020.0002] # BLACK CURVED DOWNWARDS AND RIGHTWARDS ARROW
+2BAA  ; [*0D2A.0020.0002] # BLACK CURVED UPWARDS AND LEFTWARDS ARROW
+2BAB  ; [*0D2B.0020.0002] # BLACK CURVED UPWARDS AND RIGHTWARDS ARROW
+2BAC  ; [*0D2C.0020.0002] # BLACK CURVED LEFTWARDS AND UPWARDS ARROW
+2BAD  ; [*0D2D.0020.0002] # BLACK CURVED RIGHTWARDS AND UPWARDS ARROW
+2BAE  ; [*0D2E.0020.0002] # BLACK CURVED LEFTWARDS AND DOWNWARDS ARROW
+2BAF  ; [*0D2F.0020.0002] # BLACK CURVED RIGHTWARDS AND DOWNWARDS ARROW
+2BB0  ; [*0D30.0020.0002] # RIBBON ARROW DOWN LEFT
+2BB1  ; [*0D31.0020.0002] # RIBBON ARROW DOWN RIGHT
+2BB2  ; [*0D32.0020.0002] # RIBBON ARROW UP LEFT
+2BB3  ; [*0D33.0020.0002] # RIBBON ARROW UP RIGHT
+2BB4  ; [*0D34.0020.0002] # RIBBON ARROW LEFT UP
+2BB5  ; [*0D35.0020.0002] # RIBBON ARROW RIGHT UP
+2BB6  ; [*0D36.0020.0002] # RIBBON ARROW LEFT DOWN
+2BB7  ; [*0D37.0020.0002] # RIBBON ARROW RIGHT DOWN
+2BB8  ; [*0D38.0020.0002] # UPWARDS WHITE ARROW FROM BAR WITH HORIZONTAL BAR
+2BB9  ; [*0D39.0020.0002] # UP ARROWHEAD IN A RECTANGLE BOX
+2BBD  ; [*0D3A.0020.0002] # BALLOT BOX WITH LIGHT X
+2BBE  ; [*0D3B.0020.0002] # CIRCLED X
+2BBF  ; [*0D3C.0020.0002] # CIRCLED BOLD X
+2BC0  ; [*0D3D.0020.0002] # BLACK SQUARE CENTRED
+2BC1  ; [*0D3E.0020.0002] # BLACK DIAMOND CENTRED
+2BC2  ; [*0D3F.0020.0002] # TURNED BLACK PENTAGON
+2BC3  ; [*0D40.0020.0002] # HORIZONTAL BLACK OCTAGON
+2BC4  ; [*0D41.0020.0002] # BLACK OCTAGON
+2BC5  ; [*0D42.0020.0002] # BLACK MEDIUM UP-POINTING TRIANGLE CENTRED
+2BC6  ; [*0D43.0020.0002] # BLACK MEDIUM DOWN-POINTING TRIANGLE CENTRED
+2BC7  ; [*0D44.0020.0002] # BLACK MEDIUM LEFT-POINTING TRIANGLE CENTRED
+2BC8  ; [*0D45.0020.0002] # BLACK MEDIUM RIGHT-POINTING TRIANGLE CENTRED
+2BCA  ; [*0D46.0020.0002] # TOP HALF BLACK CIRCLE
+2BCB  ; [*0D47.0020.0002] # BOTTOM HALF BLACK CIRCLE
+2BCC  ; [*0D48.0020.0002] # LIGHT FOUR POINTED BLACK CUSP
+2BCD  ; [*0D49.0020.0002] # ROTATED LIGHT FOUR POINTED BLACK CUSP
+2BCE  ; [*0D4A.0020.0002] # WHITE FOUR POINTED CUSP
+2BCF  ; [*0D4B.0020.0002] # ROTATED WHITE FOUR POINTED CUSP
+2BD0  ; [*0D4C.0020.0002] # SQUARE POSITION INDICATOR
+2BD1  ; [*0D4D.0020.0002] # UNCERTAINTY SIGN
+2CE5  ; [*0D4E.0020.0002] # COPTIC SYMBOL MI RO
+2CE6  ; [*0D4F.0020.0002] # COPTIC SYMBOL PI RO
+2CE7  ; [*0D50.0020.0002] # COPTIC SYMBOL STAUROS
+2CE8  ; [*0D51.0020.0002] # COPTIC SYMBOL TAU RO
+2CE9  ; [*0D52.0020.0002] # COPTIC SYMBOL KHI RO
+2CEA  ; [*0D53.0020.0002] # COPTIC SYMBOL SHIMA SIMA
+2CF9  ; [*027E.0020.0002] # COPTIC OLD NUBIAN FULL STOP
+2CFA  ; [*026C.0020.0002] # COPTIC OLD NUBIAN DIRECT QUESTION MARK
+2CFB  ; [*026D.0020.0002] # COPTIC OLD NUBIAN INDIRECT QUESTION MARK
+2CFC  ; [*02E9.0020.0002] # COPTIC OLD NUBIAN VERSE DIVIDER
+2CFD  ; [*17F3.0020.0002] # COPTIC FRACTION ONE HALF
+2CFE  ; [*027F.0020.0002] # COPTIC FULL STOP
+2CFF  ; [*02EA.0020.0002] # COPTIC MORPHOLOGICAL DIVIDER
+2D70  ; [*0409.0020.0002] # TIFINAGH SEPARATOR MARK
+2D7F  ; [.0000.0000.0000] # TIFINAGH CONSONANT JOINER
+2E00  ; [*03A9.0020.0002] # RIGHT ANGLE SUBSTITUTION MARKER
+2E01  ; [*03AA.0020.0002] # RIGHT ANGLE DOTTED SUBSTITUTION MARKER
+2E02  ; [*034E.0020.0002] # LEFT SUBSTITUTION BRACKET
+2E03  ; [*034F.0020.0002] # RIGHT SUBSTITUTION BRACKET
+2E04  ; [*0350.0020.0002] # LEFT DOTTED SUBSTITUTION BRACKET
+2E05  ; [*0351.0020.0002] # RIGHT DOTTED SUBSTITUTION BRACKET
+2E06  ; [*03AB.0020.0002] # RAISED INTERPOLATION MARKER
+2E07  ; [*03AC.0020.0002] # RAISED DOTTED INTERPOLATION MARKER
+2E08  ; [*03AD.0020.0002] # DOTTED TRANSPOSITION MARKER
+2E09  ; [*0352.0020.0002] # LEFT TRANSPOSITION BRACKET
+2E0A  ; [*0353.0020.0002] # RIGHT TRANSPOSITION BRACKET
+2E0B  ; [*03AE.0020.0002] # RAISED SQUARE
+2E0C  ; [*0354.0020.0002] # LEFT RAISED OMISSION BRACKET
+2E0D  ; [*0355.0020.0002] # RIGHT RAISED OMISSION BRACKET
+2E0E  ; [*03AF.0020.0002] # EDITORIAL CORONIS
+2E0F  ; [*03B0.0020.0002] # PARAGRAPHOS
+2E10  ; [*03B1.0020.0002] # FORKED PARAGRAPHOS
+2E11  ; [*03B2.0020.0002] # REVERSED FORKED PARAGRAPHOS
+2E12  ; [*03B3.0020.0002] # HYPODIASTOLE
+2E13  ; [*03B4.0020.0002] # DOTTED OBELOS
+2E14  ; [*03B5.0020.0002] # DOWNWARDS ANCORA
+2E15  ; [*03B6.0020.0002] # UPWARDS ANCORA
+2E16  ; [*03B7.0020.0002] # DOTTED RIGHT-POINTING ANGLE
+2E17  ; [*021B.0020.0002] # DOUBLE OBLIQUE HYPHEN
+2E18  ; [*0273.0020.0002] # INVERTED INTERROBANG
+2E19  ; [*02EB.0020.0002] # PALM BRANCH
+2E1A  ; [*03B8.0020.0002] # HYPHEN WITH DIAERESIS
+2E1B  ; [*03B9.0020.0002] # TILDE WITH RING ABOVE
+2E1C  ; [*0356.0020.0002] # LEFT LOW PARAPHRASE BRACKET
+2E1D  ; [*0357.0020.0002] # RIGHT LOW PARAPHRASE BRACKET
+2E1E  ; [*03BA.0020.0002] # TILDE WITH DOT ABOVE
+2E1F  ; [*03BB.0020.0002] # TILDE WITH DOT BELOW
+2E20  ; [*0358.0020.0002] # LEFT VERTICAL BAR WITH QUILL
+2E21  ; [*0359.0020.0002] # RIGHT VERTICAL BAR WITH QUILL
+2E22  ; [*035A.0020.0002] # TOP LEFT HALF BRACKET
+2E23  ; [*035B.0020.0002] # TOP RIGHT HALF BRACKET
+2E24  ; [*035C.0020.0002] # BOTTOM LEFT HALF BRACKET
+2E25  ; [*035D.0020.0002] # BOTTOM RIGHT HALF BRACKET
+2E26  ; [*035E.0020.0002] # LEFT SIDEWAYS U BRACKET
+2E27  ; [*035F.0020.0002] # RIGHT SIDEWAYS U BRACKET
+2E28  ; [*0360.0020.0002] # LEFT DOUBLE PARENTHESIS
+2E29  ; [*0361.0020.0002] # RIGHT DOUBLE PARENTHESIS
+2E2A  ; [*02E4.0020.0002] # TWO DOTS OVER ONE DOT PUNCTUATION
+2E2B  ; [*02E5.0020.0002] # ONE DOT OVER TWO DOTS PUNCTUATION
+2E2C  ; [*02E6.0020.0002] # SQUARED FOUR DOT PUNCTUATION
+2E2D  ; [*02E7.0020.0002] # FIVE DOT MARK
+2E2E  ; [*0266.0020.0002] # REVERSED QUESTION MARK
+2E30  ; [*0280.0020.0002] # RING POINT
+2E31  ; [*0289.0020.0002] # WORD SEPARATOR MIDDLE DOT
+2E32  ; [*0223.0020.0002] # TURNED COMMA
+2E33  ; [*028A.0020.0002] # RAISED DOT
+2E34  ; [*0222.0020.0002] # RAISED COMMA
+2E35  ; [*0236.0020.0002] # TURNED SEMICOLON
+2E36  ; [*0394.0020.0002] # DAGGER WITH LEFT GUARD
+2E37  ; [*0395.0020.0002] # DAGGER WITH RIGHT GUARD
+2E38  ; [*0396.0020.0002] # TURNED DAGGER
+2E39  ; [*037D.0020.0002] # TOP HALF SECTION SIGN
+2E3A  ; [*0218.0020.0002] # TWO-EM DASH
+2E3B  ; [*0219.0020.0002] # THREE-EM DASH
+2E3C  ; [*0281.0020.0002] # STENOGRAPHIC FULL STOP
+2E3D  ; [*02E8.0020.0002] # VERTICAL SIX DOTS
+2E3E  ; [*0377.0020.0002] # WIGGLY VERTICAL LINE
+2E3F  ; [*0380.0020.0002] # CAPITULUM
+2E40  ; [*021C.0020.0002] # DOUBLE HYPHEN
+2E41  ; [*0224.0020.0002] # REVERSED COMMA
+2E42  ; [*0304.0020.0002] # DOUBLE LOW-REVERSED-9 QUOTATION MARK
+2FF0  ; [*1776.0020.0002] # IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT
+2FF1  ; [*1777.0020.0002] # IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW
+2FF2  ; [*1778.0020.0002] # IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO MIDDLE AND RIGHT
+2FF3  ; [*1779.0020.0002] # IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO MIDDLE AND BELOW
+2FF4  ; [*177A.0020.0002] # IDEOGRAPHIC DESCRIPTION CHARACTER FULL SURROUND
+2FF5  ; [*177B.0020.0002] # IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM ABOVE
+2FF6  ; [*177C.0020.0002] # IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM BELOW
+2FF7  ; [*177D.0020.0002] # IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM LEFT
+2FF8  ; [*177E.0020.0002] # IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER LEFT
+2FF9  ; [*177F.0020.0002] # IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER RIGHT
+2FFA  ; [*1780.0020.0002] # IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM LOWER LEFT
+2FFB  ; [*1781.0020.0002] # IDEOGRAPHIC DESCRIPTION CHARACTER OVERLAID
+3000  ; [*0209.0020.0003] # IDEOGRAPHIC SPACE
+3001  ; [*0230.0020.0002] # IDEOGRAPHIC COMMA
+3002  ; [*0287.0020.0002] # IDEOGRAPHIC FULL STOP
+3003  ; [*039F.0020.0002] # DITTO MARK
+3004  ; [*17A6.0020.0002] # JAPANESE INDUSTRIAL STANDARD SYMBOL
+3008  ; [*0362.0020.0002] # LEFT ANGLE BRACKET
+3009  ; [*0363.0020.0002] # RIGHT ANGLE BRACKET
+300A  ; [*0364.0020.0002] # LEFT DOUBLE ANGLE BRACKET
+300B  ; [*0365.0020.0002] # RIGHT DOUBLE ANGLE BRACKET
+300C  ; [*0366.0020.0002] # LEFT CORNER BRACKET
+300D  ; [*0367.0020.0002] # RIGHT CORNER BRACKET
+300E  ; [*0368.0020.0002] # LEFT WHITE CORNER BRACKET
+300F  ; [*0369.0020.0002] # RIGHT WHITE CORNER BRACKET
+3010  ; [*036A.0020.0002] # LEFT BLACK LENTICULAR BRACKET
+3011  ; [*036B.0020.0002] # RIGHT BLACK LENTICULAR BRACKET
+3012  ; [*17A7.0020.0002] # POSTAL MARK
+3013  ; [*17A8.0020.0002] # GETA MARK
+3014  ; [*036C.0020.0002] # LEFT TORTOISE SHELL BRACKET
+3015  ; [*036D.0020.0002] # RIGHT TORTOISE SHELL BRACKET
+3016  ; [*036E.0020.0002] # LEFT WHITE LENTICULAR BRACKET
+3017  ; [*036F.0020.0002] # RIGHT WHITE LENTICULAR BRACKET
+3018  ; [*0370.0020.0002] # LEFT WHITE TORTOISE SHELL BRACKET
+3019  ; [*0371.0020.0002] # RIGHT WHITE TORTOISE SHELL BRACKET
+301A  ; [*0372.0020.0002] # LEFT WHITE SQUARE BRACKET
+301B  ; [*0373.0020.0002] # RIGHT WHITE SQUARE BRACKET
+301C  ; [*021D.0020.0002] # WAVE DASH
+301D  ; [*0305.0020.0002] # REVERSED DOUBLE PRIME QUOTATION MARK
+301E  ; [*0306.0020.0002] # DOUBLE PRIME QUOTATION MARK
+301F  ; [*0307.0020.0002] # LOW DOUBLE PRIME QUOTATION MARK
+3020  ; [*17A9.0020.0002] # POSTAL MARK FACE
+3030  ; [*021E.0020.0002] # WAVY DASH
+3036  ; [*17A7.0020.0004] # CIRCLED POSTAL MARK
+3037  ; [*17AA.0020.0002] # IDEOGRAPHIC TELEGRAPH LINE FEED SEPARATOR SYMBOL
+303D  ; [*03A0.0020.0002] # PART ALTERNATION MARK
+303E  ; [*17AB.0020.0002] # IDEOGRAPHIC VARIATION INDICATOR
+303F  ; [*17AC.0020.0002] # IDEOGRAPHIC HALF FILL SPACE
+309B  ; [*0455.0020.0002] # KATAKANA-HIRAGANA VOICED SOUND MARK
+309C  ; [*0456.0020.0002] # KATAKANA-HIRAGANA SEMI-VOICED SOUND MARK
+30A0  ; [*021F.0020.0002] # KATAKANA-HIRAGANA DOUBLE HYPHEN
+30FB  ; [*0220.0020.0002] # KATAKANA MIDDLE DOT
+3190  ; [*17AD.0020.0002] # IDEOGRAPHIC ANNOTATION LINKING MARK
+3191  ; [*17AE.0020.0002] # IDEOGRAPHIC ANNOTATION REVERSE MARK
+31C0  ; [*1782.0020.0002] # CJK STROKE T
+31C1  ; [*1783.0020.0002] # CJK STROKE WG
+31C2  ; [*1784.0020.0002] # CJK STROKE XG
+31C3  ; [*1785.0020.0002] # CJK STROKE BXG
+31C4  ; [*1786.0020.0002] # CJK STROKE SW
+31C5  ; [*1787.0020.0002] # CJK STROKE HZZ
+31C6  ; [*1788.0020.0002] # CJK STROKE HZG
+31C7  ; [*1789.0020.0002] # CJK STROKE HP
+31C8  ; [*178A.0020.0002] # CJK STROKE HZWG
+31C9  ; [*178B.0020.0002] # CJK STROKE SZWG
+31CA  ; [*178C.0020.0002] # CJK STROKE HZT
+31CB  ; [*178D.0020.0002] # CJK STROKE HZZP
+31CC  ; [*178E.0020.0002] # CJK STROKE HPWG
+31CD  ; [*178F.0020.0002] # CJK STROKE HZW
+31CE  ; [*1790.0020.0002] # CJK STROKE HZZZ
+31CF  ; [*1791.0020.0002] # CJK STROKE N
+31D0  ; [*1792.0020.0002] # CJK STROKE H
+31D1  ; [*1793.0020.0002] # CJK STROKE S
+31D2  ; [*1794.0020.0002] # CJK STROKE P
+31D3  ; [*1795.0020.0002] # CJK STROKE SP
+31D4  ; [*1796.0020.0002] # CJK STROKE D
+31D5  ; [*1797.0020.0002] # CJK STROKE HZ
+31D6  ; [*1798.0020.0002] # CJK STROKE HG
+31D7  ; [*1799.0020.0002] # CJK STROKE SZ
+31D8  ; [*179A.0020.0002] # CJK STROKE SWZ
+31D9  ; [*179B.0020.0002] # CJK STROKE ST
+31DA  ; [*179C.0020.0002] # CJK STROKE SG
+31DB  ; [*179D.0020.0002] # CJK STROKE PD
+31DC  ; [*179E.0020.0002] # CJK STROKE PZ
+31DD  ; [*179F.0020.0002] # CJK STROKE TN
+31DE  ; [*17A0.0020.0002] # CJK STROKE SZZ
+31DF  ; [*17A1.0020.0002] # CJK STROKE SWG
+31E0  ; [*17A2.0020.0002] # CJK STROKE HXWG
+31E1  ; [*17A3.0020.0002] # CJK STROKE HZZZG
+31E2  ; [*17A4.0020.0002] # CJK STROKE PG
+31E3  ; [*17A5.0020.0002] # CJK STROKE Q
+327F  ; [*17AF.0020.0002] # KOREAN STANDARD SYMBOL
+4DC0  ; [*0E62.0020.0002] # HEXAGRAM FOR THE CREATIVE HEAVEN
+4DC1  ; [*0E63.0020.0002] # HEXAGRAM FOR THE RECEPTIVE EARTH
+4DC2  ; [*0E64.0020.0002] # HEXAGRAM FOR DIFFICULTY AT THE BEGINNING
+4DC3  ; [*0E65.0020.0002] # HEXAGRAM FOR YOUTHFUL FOLLY
+4DC4  ; [*0E66.0020.0002] # HEXAGRAM FOR WAITING
+4DC5  ; [*0E67.0020.0002] # HEXAGRAM FOR CONFLICT
+4DC6  ; [*0E68.0020.0002] # HEXAGRAM FOR THE ARMY
+4DC7  ; [*0E69.0020.0002] # HEXAGRAM FOR HOLDING TOGETHER
+4DC8  ; [*0E6A.0020.0002] # HEXAGRAM FOR SMALL TAMING
+4DC9  ; [*0E6B.0020.0002] # HEXAGRAM FOR TREADING
+4DCA  ; [*0E6C.0020.0002] # HEXAGRAM FOR PEACE
+4DCB  ; [*0E6D.0020.0002] # HEXAGRAM FOR STANDSTILL
+4DCC  ; [*0E6E.0020.0002] # HEXAGRAM FOR FELLOWSHIP
+4DCD  ; [*0E6F.0020.0002] # HEXAGRAM FOR GREAT POSSESSION
+4DCE  ; [*0E70.0020.0002] # HEXAGRAM FOR MODESTY
+4DCF  ; [*0E71.0020.0002] # HEXAGRAM FOR ENTHUSIASM
+4DD0  ; [*0E72.0020.0002] # HEXAGRAM FOR FOLLOWING
+4DD1  ; [*0E73.0020.0002] # HEXAGRAM FOR WORK ON THE DECAYED
+4DD2  ; [*0E74.0020.0002] # HEXAGRAM FOR APPROACH
+4DD3  ; [*0E75.0020.0002] # HEXAGRAM FOR CONTEMPLATION
+4DD4  ; [*0E76.0020.0002] # HEXAGRAM FOR BITING THROUGH
+4DD5  ; [*0E77.0020.0002] # HEXAGRAM FOR GRACE
+4DD6  ; [*0E78.0020.0002] # HEXAGRAM FOR SPLITTING APART
+4DD7  ; [*0E79.0020.0002] # HEXAGRAM FOR RETURN
+4DD8  ; [*0E7A.0020.0002] # HEXAGRAM FOR INNOCENCE
+4DD9  ; [*0E7B.0020.0002] # HEXAGRAM FOR GREAT TAMING
+4DDA  ; [*0E7C.0020.0002] # HEXAGRAM FOR MOUTH CORNERS
+4DDB  ; [*0E7D.0020.0002] # HEXAGRAM FOR GREAT PREPONDERANCE
+4DDC  ; [*0E7E.0020.0002] # HEXAGRAM FOR THE ABYSMAL WATER
+4DDD  ; [*0E7F.0020.0002] # HEXAGRAM FOR THE CLINGING FIRE
+4DDE  ; [*0E80.0020.0002] # HEXAGRAM FOR INFLUENCE
+4DDF  ; [*0E81.0020.0002] # HEXAGRAM FOR DURATION
+4DE0  ; [*0E82.0020.0002] # HEXAGRAM FOR RETREAT
+4DE1  ; [*0E83.0020.0002] # HEXAGRAM FOR GREAT POWER
+4DE2  ; [*0E84.0020.0002] # HEXAGRAM FOR PROGRESS
+4DE3  ; [*0E85.0020.0002] # HEXAGRAM FOR DARKENING OF THE LIGHT
+4DE4  ; [*0E86.0020.0002] # HEXAGRAM FOR THE FAMILY
+4DE5  ; [*0E87.0020.0002] # HEXAGRAM FOR OPPOSITION
+4DE6  ; [*0E88.0020.0002] # HEXAGRAM FOR OBSTRUCTION
+4DE7  ; [*0E89.0020.0002] # HEXAGRAM FOR DELIVERANCE
+4DE8  ; [*0E8A.0020.0002] # HEXAGRAM FOR DECREASE
+4DE9  ; [*0E8B.0020.0002] # HEXAGRAM FOR INCREASE
+4DEA  ; [*0E8C.0020.0002] # HEXAGRAM FOR BREAKTHROUGH
+4DEB  ; [*0E8D.0020.0002] # HEXAGRAM FOR COMING TO MEET
+4DEC  ; [*0E8E.0020.0002] # HEXAGRAM FOR GATHERING TOGETHER
+4DED  ; [*0E8F.0020.0002] # HEXAGRAM FOR PUSHING UPWARD
+4DEE  ; [*0E90.0020.0002] # HEXAGRAM FOR OPPRESSION
+4DEF  ; [*0E91.0020.0002] # HEXAGRAM FOR THE WELL
+4DF0  ; [*0E92.0020.0002] # HEXAGRAM FOR REVOLUTION
+4DF1  ; [*0E93.0020.0002] # HEXAGRAM FOR THE CAULDRON
+4DF2  ; [*0E94.0020.0002] # HEXAGRAM FOR THE AROUSING THUNDER
+4DF3  ; [*0E95.0020.0002] # HEXAGRAM FOR THE KEEPING STILL MOUNTAIN
+4DF4  ; [*0E96.0020.0002] # HEXAGRAM FOR DEVELOPMENT
+4DF5  ; [*0E97.0020.0002] # HEXAGRAM FOR THE MARRYING MAIDEN
+4DF6  ; [*0E98.0020.0002] # HEXAGRAM FOR ABUNDANCE
+4DF7  ; [*0E99.0020.0002] # HEXAGRAM FOR THE WANDERER
+4DF8  ; [*0E9A.0020.0002] # HEXAGRAM FOR THE GENTLE WIND
+4DF9  ; [*0E9B.0020.0002] # HEXAGRAM FOR THE JOYOUS LAKE
+4DFA  ; [*0E9C.0020.0002] # HEXAGRAM FOR DISPERSION
+4DFB  ; [*0E9D.0020.0002] # HEXAGRAM FOR LIMITATION
+4DFC  ; [*0E9E.0020.0002] # HEXAGRAM FOR INNER TRUTH
+4DFD  ; [*0E9F.0020.0002] # HEXAGRAM FOR SMALL PREPONDERANCE
+4DFE  ; [*0EA0.0020.0002] # HEXAGRAM FOR AFTER COMPLETION
+4DFF  ; [*0EA1.0020.0002] # HEXAGRAM FOR BEFORE COMPLETION
+A490  ; [*0EF9.0020.0002] # YI RADICAL QOT
+A491  ; [*0EFA.0020.0002] # YI RADICAL LI
+A492  ; [*0EFB.0020.0002] # YI RADICAL KIT
+A493  ; [*0EFC.0020.0002] # YI RADICAL NYIP
+A494  ; [*0EFD.0020.0002] # YI RADICAL CYP
+A495  ; [*0EFE.0020.0002] # YI RADICAL SSI
+A496  ; [*0EFF.0020.0002] # YI RADICAL GGOP
+A497  ; [*0F00.0020.0002] # YI RADICAL GEP
+A498  ; [*0F01.0020.0002] # YI RADICAL MI
+A499  ; [*0F02.0020.0002] # YI RADICAL HXIT
+A49A  ; [*0F03.0020.0002] # YI RADICAL LYR
+A49B  ; [*0F04.0020.0002] # YI RADICAL BBUT
+A49C  ; [*0F05.0020.0002] # YI RADICAL MOP
+A49D  ; [*0F06.0020.0002] # YI RADICAL YO
+A49E  ; [*0F07.0020.0002] # YI RADICAL PUT
+A49F  ; [*0F08.0020.0002] # YI RADICAL HXUO
+A4A0  ; [*0F09.0020.0002] # YI RADICAL TAT
+A4A1  ; [*0F0A.0020.0002] # YI RADICAL GA
+A4A2  ; [*0F0B.0020.0002] # YI RADICAL ZUP
+A4A3  ; [*0F0C.0020.0002] # YI RADICAL CYT
+A4A4  ; [*0F0D.0020.0002] # YI RADICAL DDUR
+A4A5  ; [*0F0E.0020.0002] # YI RADICAL BUR
+A4A6  ; [*0F0F.0020.0002] # YI RADICAL GGUO
+A4A7  ; [*0F10.0020.0002] # YI RADICAL NYOP
+A4A8  ; [*0F11.0020.0002] # YI RADICAL TU
+A4A9  ; [*0F12.0020.0002] # YI RADICAL OP
+A4AA  ; [*0F13.0020.0002] # YI RADICAL JJUT
+A4AB  ; [*0F14.0020.0002] # YI RADICAL ZOT
+A4AC  ; [*0F15.0020.0002] # YI RADICAL PYT
+A4AD  ; [*0F16.0020.0002] # YI RADICAL HMO
+A4AE  ; [*0F17.0020.0002] # YI RADICAL YIT
+A4AF  ; [*0F18.0020.0002] # YI RADICAL VUR
+A4B0  ; [*0F19.0020.0002] # YI RADICAL SHY
+A4B1  ; [*0F1A.0020.0002] # YI RADICAL VEP
+A4B2  ; [*0F1B.0020.0002] # YI RADICAL ZA
+A4B3  ; [*0F1C.0020.0002] # YI RADICAL JO
+A4B4  ; [*0F1D.0020.0002] # YI RADICAL NZUP
+A4B5  ; [*0F1E.0020.0002] # YI RADICAL JJY
+A4B6  ; [*0F1F.0020.0002] # YI RADICAL GOT
+A4B7  ; [*0F20.0020.0002] # YI RADICAL JJIE
+A4B8  ; [*0F21.0020.0002] # YI RADICAL WO
+A4B9  ; [*0F22.0020.0002] # YI RADICAL DU
+A4BA  ; [*0F23.0020.0002] # YI RADICAL SHUR
+A4BB  ; [*0F24.0020.0002] # YI RADICAL LIE
+A4BC  ; [*0F25.0020.0002] # YI RADICAL CY
+A4BD  ; [*0F26.0020.0002] # YI RADICAL CUOP
+A4BE  ; [*0F27.0020.0002] # YI RADICAL CIP
+A4BF  ; [*0F28.0020.0002] # YI RADICAL HXOP
+A4C0  ; [*0F29.0020.0002] # YI RADICAL SHAT
+A4C1  ; [*0F2A.0020.0002] # YI RADICAL ZUR
+A4C2  ; [*0F2B.0020.0002] # YI RADICAL SHOP
+A4C3  ; [*0F2C.0020.0002] # YI RADICAL CHE
+A4C4  ; [*0F2D.0020.0002] # YI RADICAL ZZIET
+A4C5  ; [*0F2E.0020.0002] # YI RADICAL NBIE
+A4C6  ; [*0F2F.0020.0002] # YI RADICAL KE
+A4FE  ; [*022D.0020.0002] # LISU PUNCTUATION COMMA
+A4FF  ; [*0282.0020.0002] # LISU PUNCTUATION FULL STOP
+A60D  ; [*022E.0020.0002] # VAI COMMA
+A60E  ; [*0283.0020.0002] # VAI FULL STOP
+A60F  ; [*026E.0020.0002] # VAI QUESTION MARK
+A670  ; [.0000.0000.0000] # COMBINING CYRILLIC TEN MILLIONS SIGN
+A671  ; [.0000.0000.0000] # COMBINING CYRILLIC HUNDRED MILLIONS SIGN
+A672  ; [.0000.0000.0000] # COMBINING CYRILLIC THOUSAND MILLIONS SIGN
+A673  ; [*0386.0020.0002] # SLAVONIC ASTERISK
+A67E  ; [*03BC.0020.0002] # CYRILLIC KAVYKA
+A6F2  ; [*02CE.0020.0002] # BAMUM NJAEMLI
+A6F3  ; [*0284.0020.0002] # BAMUM FULL STOP
+A6F4  ; [*025E.0020.0002] # BAMUM COLON
+A6F5  ; [*022F.0020.0002] # BAMUM COMMA
+A6F6  ; [*0237.0020.0002] # BAMUM SEMICOLON
+A6F7  ; [*026F.0020.0002] # BAMUM QUESTION MARK
+A700  ; [*0494.0020.0002] # MODIFIER LETTER CHINESE TONE YIN PING
+A701  ; [*0495.0020.0002] # MODIFIER LETTER CHINESE TONE YANG PING
+A702  ; [*0496.0020.0002] # MODIFIER LETTER CHINESE TONE YIN SHANG
+A703  ; [*0497.0020.0002] # MODIFIER LETTER CHINESE TONE YANG SHANG
+A704  ; [*0498.0020.0002] # MODIFIER LETTER CHINESE TONE YIN QU
+A705  ; [*0499.0020.0002] # MODIFIER LETTER CHINESE TONE YANG QU
+A706  ; [*049A.0020.0002] # MODIFIER LETTER CHINESE TONE YIN RU
+A707  ; [*049B.0020.0002] # MODIFIER LETTER CHINESE TONE YANG RU
+A708  ; [*049C.0020.0002] # MODIFIER LETTER EXTRA-HIGH DOTTED TONE BAR
+A709  ; [*049D.0020.0002] # MODIFIER LETTER HIGH DOTTED TONE BAR
+A70A  ; [*049E.0020.0002] # MODIFIER LETTER MID DOTTED TONE BAR
+A70B  ; [*049F.0020.0002] # MODIFIER LETTER LOW DOTTED TONE BAR
+A70C  ; [*04A0.0020.0002] # MODIFIER LETTER EXTRA-LOW DOTTED TONE BAR
+A70D  ; [*04A1.0020.0002] # MODIFIER LETTER EXTRA-HIGH DOTTED LEFT-STEM TONE BAR
+A70E  ; [*04A2.0020.0002] # MODIFIER LETTER HIGH DOTTED LEFT-STEM TONE BAR
+A70F  ; [*04A3.0020.0002] # MODIFIER LETTER MID DOTTED LEFT-STEM TONE BAR
+A710  ; [*04A4.0020.0002] # MODIFIER LETTER LOW DOTTED LEFT-STEM TONE BAR
+A711  ; [*04A5.0020.0002] # MODIFIER LETTER EXTRA-LOW DOTTED LEFT-STEM TONE BAR
+A712  ; [*04A6.0020.0002] # MODIFIER LETTER EXTRA-HIGH LEFT-STEM TONE BAR
+A713  ; [*04A7.0020.0002] # MODIFIER LETTER HIGH LEFT-STEM TONE BAR
+A714  ; [*04A8.0020.0002] # MODIFIER LETTER MID LEFT-STEM TONE BAR
+A715  ; [*04A9.0020.0002] # MODIFIER LETTER LOW LEFT-STEM TONE BAR
+A716  ; [*04AA.0020.0002] # MODIFIER LETTER EXTRA-LOW LEFT-STEM TONE BAR
+A717  ; [*04AB.0020.0002] # MODIFIER LETTER DOT VERTICAL BAR
+A718  ; [*04AC.0020.0002] # MODIFIER LETTER DOT SLASH
+A719  ; [*04AD.0020.0002] # MODIFIER LETTER DOT HORIZONTAL BAR
+A71A  ; [*04AE.0020.0002] # MODIFIER LETTER LOWER RIGHT CORNER ANGLE
+A71B  ; [*04AF.0020.0002] # MODIFIER LETTER RAISED UP ARROW
+A71C  ; [*04B0.0020.0002] # MODIFIER LETTER RAISED DOWN ARROW
+A71D  ; [*04B1.0020.0002] # MODIFIER LETTER RAISED EXCLAMATION MARK
+A71E  ; [*04B2.0020.0002] # MODIFIER LETTER RAISED INVERTED EXCLAMATION MARK
+A71F  ; [*04B3.0020.0002] # MODIFIER LETTER LOW INVERTED EXCLAMATION MARK
+A720  ; [*04B4.0020.0002] # MODIFIER LETTER STRESS AND HIGH TONE
+A721  ; [*04B5.0020.0002] # MODIFIER LETTER STRESS AND LOW TONE
+A788  ; [*04B6.0020.0002] # MODIFIER LETTER LOW CIRCUMFLEX ACCENT
+A789  ; [*04B7.0020.0002] # MODIFIER LETTER COLON
+A78A  ; [*04B8.0020.0002] # MODIFIER LETTER SHORT EQUALS SIGN
+A828  ; [*04E2.0020.0002] # SYLOTI NAGRI POETRY MARK-1
+A829  ; [*04E3.0020.0002] # SYLOTI NAGRI POETRY MARK-2
+A82A  ; [*04E4.0020.0002] # SYLOTI NAGRI POETRY MARK-3
+A82B  ; [*04E5.0020.0002] # SYLOTI NAGRI POETRY MARK-4
+A830  ; [*17BD.0020.0002] # NORTH INDIC FRACTION ONE QUARTER
+A831  ; [*17BE.0020.0002] # NORTH INDIC FRACTION ONE HALF
+A832  ; [*17BF.0020.0002] # NORTH INDIC FRACTION THREE QUARTERS
+A833  ; [*17C0.0020.0002] # NORTH INDIC FRACTION ONE SIXTEENTH
+A834  ; [*17C1.0020.0002] # NORTH INDIC FRACTION ONE EIGHTH
+A835  ; [*17C2.0020.0002] # NORTH INDIC FRACTION THREE SIXTEENTHS
+A836  ; [*04E6.0020.0002] # NORTH INDIC QUARTER MARK
+A837  ; [*04E7.0020.0002] # NORTH INDIC PLACEHOLDER MARK
+A839  ; [*04E8.0020.0002] # NORTH INDIC QUANTITY MARK
+A874  ; [*040A.0020.0002] # PHAGS-PA SINGLE HEAD MARK
+A875  ; [*040B.0020.0002] # PHAGS-PA DOUBLE HEAD MARK
+A876  ; [*0291.0020.0002] # PHAGS-PA MARK SHAD
+A877  ; [*0292.0020.0002] # PHAGS-PA MARK DOUBLE SHAD
+A8CE  ; [*028D.0020.0002] # SAURASHTRA DANDA
+A8CF  ; [*028E.0020.0002] # SAURASHTRA DOUBLE DANDA
+A8E0  ; [.0000.0000.0000] # COMBINING DEVANAGARI DIGIT ZERO
+A8E1  ; [.0000.0000.0000] # COMBINING DEVANAGARI DIGIT ONE
+A8E2  ; [.0000.0000.0000] # COMBINING DEVANAGARI DIGIT TWO
+A8E3  ; [.0000.0000.0000] # COMBINING DEVANAGARI DIGIT THREE
+A8E4  ; [.0000.0000.0000] # COMBINING DEVANAGARI DIGIT FOUR
+A8E5  ; [.0000.0000.0000] # COMBINING DEVANAGARI DIGIT FIVE
+A8E6  ; [.0000.0000.0000] # COMBINING DEVANAGARI DIGIT SIX
+A8E7  ; [.0000.0000.0000] # COMBINING DEVANAGARI DIGIT SEVEN
+A8E8  ; [.0000.0000.0000] # COMBINING DEVANAGARI DIGIT EIGHT
+A8E9  ; [.0000.0000.0000] # COMBINING DEVANAGARI DIGIT NINE
+A8EA  ; [.0000.0000.0000] # COMBINING DEVANAGARI LETTER A
+A8EB  ; [.0000.0000.0000] # COMBINING DEVANAGARI LETTER U
+A8EC  ; [.0000.0000.0000] # COMBINING DEVANAGARI LETTER KA
+A8ED  ; [.0000.0000.0000] # COMBINING DEVANAGARI LETTER NA
+A8EE  ; [.0000.0000.0000] # COMBINING DEVANAGARI LETTER PA
+A8EF  ; [.0000.0000.0000] # COMBINING DEVANAGARI LETTER RA
+A8F0  ; [.0000.0000.0000] # COMBINING DEVANAGARI LETTER VI
+A8F1  ; [.0000.0000.0000] # COMBINING DEVANAGARI SIGN AVAGRAHA
+A8F8  ; [*03CD.0020.0002] # DEVANAGARI SIGN PUSHPIKA
+A8F9  ; [*03CE.0020.0002] # DEVANAGARI GAP FILLER
+A8FA  ; [*03CF.0020.0002] # DEVANAGARI CARET
+A92E  ; [*0410.0020.0002] # KAYAH LI SIGN CWI
+A92F  ; [*0295.0020.0002] # KAYAH LI SIGN SHYA
+A95F  ; [*02CF.0020.0002] # REJANG SECTION MARK
+A9C1  ; [*02C4.0020.0002] # JAVANESE LEFT RERENGGAN
+A9C2  ; [*02C5.0020.0002] # JAVANESE RIGHT RERENGGAN
+A9C3  ; [*02C6.0020.0002] # JAVANESE PADA ANDAP
+A9C4  ; [*02C7.0020.0002] # JAVANESE PADA MADYA
+A9C5  ; [*02C8.0020.0002] # JAVANESE PADA LUHUR
+A9C6  ; [*02C9.0020.0002] # JAVANESE PADA WINDU
+A9C7  ; [*025A.0020.0002] # JAVANESE PADA PANGKAT
+A9C8  ; [*02A0.0020.0002] # JAVANESE PADA LINGSA
+A9C9  ; [*02A1.0020.0002] # JAVANESE PADA LUNGSI
+A9CA  ; [*02CA.0020.0002] # JAVANESE PADA ADEG
+A9CB  ; [*02CB.0020.0002] # JAVANESE PADA ADEG ADEG
+A9CC  ; [*02CC.0020.0002] # JAVANESE PADA PISELEH
+A9CD  ; [*02CD.0020.0002] # JAVANESE TURNED PADA PISELEH
+A9DE  ; [*0411.0020.0002] # JAVANESE PADA TIRTA TUMETES
+A9DF  ; [*0412.0020.0002] # JAVANESE PADA ISEN-ISEN
+AA5C  ; [*0413.0020.0002] # CHAM PUNCTUATION SPIRAL
+AA5D  ; [*02A2.0020.0002] # CHAM PUNCTUATION DANDA
+AA5E  ; [*02A3.0020.0002] # CHAM PUNCTUATION DOUBLE DANDA
+AA5F  ; [*02A4.0020.0002] # CHAM PUNCTUATION TRIPLE DANDA
+AA77  ; [*0510.0020.0002] # MYANMAR SYMBOL AITON EXCLAMATION
+AA78  ; [*0511.0020.0002] # MYANMAR SYMBOL AITON ONE
+AA79  ; [*0512.0020.0002] # MYANMAR SYMBOL AITON TWO
+AADE  ; [*03D5.0020.0002] # TAI VIET SYMBOL HO HOI
+AADF  ; [*03D6.0020.0002] # TAI VIET SYMBOL KOI KOI
+AAF0  ; [*02A5.0020.0002] # MEETEI MAYEK CHEIKHAN
+AAF1  ; [*0270.0020.0002] # MEETEI MAYEK AHANG KHUDAM
+AB5B  ; [*04B9.0020.0002] # MODIFIER BREVE WITH INVERTED BREVE
+ABEB  ; [*02A6.0020.0002] # MEETEI MAYEK CHEIKHEI
+FB29  ; [*05D6.0020.0005] # HEBREW LETTER ALTERNATIVE PLUS SIGN
+FBB2  ; [*04C6.0020.0002] # ARABIC SYMBOL DOT ABOVE
+FBB3  ; [*04C7.0020.0002] # ARABIC SYMBOL DOT BELOW
+FBB4  ; [*04C8.0020.0002] # ARABIC SYMBOL TWO DOTS ABOVE
+FBB5  ; [*04C9.0020.0002] # ARABIC SYMBOL TWO DOTS BELOW
+FBB6  ; [*04CA.0020.0002] # ARABIC SYMBOL THREE DOTS ABOVE
+FBB7  ; [*04CB.0020.0002] # ARABIC SYMBOL THREE DOTS BELOW
+FBB8  ; [*04CC.0020.0002] # ARABIC SYMBOL THREE DOTS POINTING DOWNWARDS ABOVE
+FBB9  ; [*04CD.0020.0002] # ARABIC SYMBOL THREE DOTS POINTING DOWNWARDS BELOW
+FBBA  ; [*04CE.0020.0002] # ARABIC SYMBOL FOUR DOTS ABOVE
+FBBB  ; [*04CF.0020.0002] # ARABIC SYMBOL FOUR DOTS BELOW
+FBBC  ; [*04D0.0020.0002] # ARABIC SYMBOL DOUBLE VERTICAL BAR BELOW
+FBBD  ; [*04D1.0020.0002] # ARABIC SYMBOL TWO DOTS VERTICALLY ABOVE
+FBBE  ; [*04D2.0020.0002] # ARABIC SYMBOL TWO DOTS VERTICALLY BELOW
+FBBF  ; [*04D3.0020.0002] # ARABIC SYMBOL RING
+FBC0  ; [*04D4.0020.0002] # ARABIC SYMBOL SMALL TAH ABOVE
+FBC1  ; [*04D5.0020.0002] # ARABIC SYMBOL SMALL TAH BELOW
+FD3E  ; [*0374.0020.0002] # ORNATE LEFT PARENTHESIS
+FD3F  ; [*0375.0020.0002] # ORNATE RIGHT PARENTHESIS
+FDFD  ; [*04C5.0020.0002] # ARABIC LIGATURE BISMILLAH AR-RAHMAN AR-RAHEEM
+FE10  ; [*0221.0020.0016] # PRESENTATION FORM FOR VERTICAL COMMA
+FE11  ; [*0230.0020.0016] # PRESENTATION FORM FOR VERTICAL IDEOGRAPHIC COMMA
+FE12  ; [*0287.0020.0016] # PRESENTATION FORM FOR VERTICAL IDEOGRAPHIC FULL STOP
+FE13  ; [*0238.0020.0016] # PRESENTATION FORM FOR VERTICAL COLON
+FE14  ; [*0233.0020.0016] # PRESENTATION FORM FOR VERTICAL SEMICOLON
+FE15  ; [*025F.0020.0016] # PRESENTATION FORM FOR VERTICAL EXCLAMATION MARK
+FE16  ; [*0264.0020.0016] # PRESENTATION FORM FOR VERTICAL QUESTION MARK
+FE17  ; [*036E.0020.0016] # PRESENTATION FORM FOR VERTICAL LEFT WHITE LENTICULAR BRACKET
+FE18  ; [*036F.0020.0016] # PRESENTATION FORM FOR VERTICAL RIGHT WHITE LENTICULAR BRAKCET
+FE19  ; [*0274.0020.0016][*0274.0020.0016][*0274.0020.0016] # PRESENTATION FORM FOR VERTICAL HORIZONTAL ELLIPSIS
+FE21  ; [.0000.0000.0000] # COMBINING LIGATURE RIGHT HALF
+FE23  ; [.0000.0000.0000] # COMBINING DOUBLE TILDE RIGHT HALF
+FE24  ; [.0000.0000.0000] # COMBINING MACRON LEFT HALF
+FE25  ; [.0000.0000.0000] # COMBINING MACRON RIGHT HALF
+FE26  ; [.0000.0000.0000] # COMBINING CONJOINING MACRON
+FE28  ; [.0000.0000.0000] # COMBINING LIGATURE RIGHT HALF BELOW
+FE2A  ; [.0000.0000.0000] # COMBINING TILDE RIGHT HALF BELOW
+FE2B  ; [.0000.0000.0000] # COMBINING MACRON LEFT HALF BELOW
+FE2C  ; [.0000.0000.0000] # COMBINING MACRON RIGHT HALF BELOW
+FE2D  ; [.0000.0000.0000] # COMBINING CONJOINING MACRON BELOW
+FE30  ; [*0274.0020.0016][*0274.0020.0016] # PRESENTATION FORM FOR VERTICAL TWO DOT LEADER
+FE31  ; [*0216.0020.0016] # PRESENTATION FORM FOR VERTICAL EM DASH
+FE32  ; [*0215.0020.0016] # PRESENTATION FORM FOR VERTICAL EN DASH
+FE33  ; [*020B.0020.0016] # PRESENTATION FORM FOR VERTICAL LOW LINE
+FE34  ; [*020B.0020.0016] # PRESENTATION FORM FOR VERTICAL WAVY LOW LINE
+FE35  ; [*030A.0020.0016] # PRESENTATION FORM FOR VERTICAL LEFT PARENTHESIS
+FE36  ; [*030B.0020.0016] # PRESENTATION FORM FOR VERTICAL RIGHT PARENTHESIS
+FE37  ; [*030E.0020.0016] # PRESENTATION FORM FOR VERTICAL LEFT CURLY BRACKET
+FE38  ; [*030F.0020.0016] # PRESENTATION FORM FOR VERTICAL RIGHT CURLY BRACKET
+FE39  ; [*036C.0020.0016] # PRESENTATION FORM FOR VERTICAL LEFT TORTOISE SHELL BRACKET
+FE3A  ; [*036D.0020.0016] # PRESENTATION FORM FOR VERTICAL RIGHT TORTOISE SHELL BRACKET
+FE3B  ; [*036A.0020.0016] # PRESENTATION FORM FOR VERTICAL LEFT BLACK LENTICULAR BRACKET
+FE3C  ; [*036B.0020.0016] # PRESENTATION FORM FOR VERTICAL RIGHT BLACK LENTICULAR BRACKET
+FE3D  ; [*0364.0020.0016] # PRESENTATION FORM FOR VERTICAL LEFT DOUBLE ANGLE BRACKET
+FE3E  ; [*0365.0020.0016] # PRESENTATION FORM FOR VERTICAL RIGHT DOUBLE ANGLE BRACKET
+FE3F  ; [*0362.0020.0016] # PRESENTATION FORM FOR VERTICAL LEFT ANGLE BRACKET
+FE40  ; [*0363.0020.0016] # PRESENTATION FORM FOR VERTICAL RIGHT ANGLE BRACKET
+FE41  ; [*0366.0020.0016] # PRESENTATION FORM FOR VERTICAL LEFT CORNER BRACKET
+FE42  ; [*0367.0020.0016] # PRESENTATION FORM FOR VERTICAL RIGHT CORNER BRACKET
+FE43  ; [*0368.0020.0016] # PRESENTATION FORM FOR VERTICAL LEFT WHITE CORNER BRACKET
+FE44  ; [*0369.0020.0016] # PRESENTATION FORM FOR VERTICAL RIGHT WHITE CORNER BRACKET
+FE45  ; [*0231.0020.0002] # SESAME DOT
+FE46  ; [*0232.0020.0002] # WHITE SESAME DOT
+FE47  ; [*030C.0020.0016] # PRESENTATION FORM FOR VERTICAL LEFT SQUARE BRACKET
+FE48  ; [*030D.0020.0016] # PRESENTATION FORM FOR VERTICAL RIGHT SQUARE BRACKET
+FE49  ; [*020A.0020.0004] # DASHED OVERLINE
+FE4A  ; [*020A.0020.0004] # CENTRELINE OVERLINE
+FE4B  ; [*020A.0020.0004] # WAVY OVERLINE
+FE4C  ; [*020A.0020.0004] # DOUBLE WAVY OVERLINE
+FE4D  ; [*020B.0020.0004] # DASHED LOW LINE
+FE4E  ; [*020B.0020.0004] # CENTRELINE LOW LINE
+FE4F  ; [*020B.0020.0004] # WAVY LOW LINE
+FE50  ; [*0221.0020.000F] # SMALL COMMA
+FE51  ; [*0230.0020.000F] # SMALL IDEOGRAPHIC COMMA
+FE52  ; [*0274.0020.000F] # SMALL FULL STOP
+FE54  ; [*0233.0020.000F] # SMALL SEMICOLON
+FE55  ; [*0238.0020.000F] # SMALL COLON
+FE56  ; [*0264.0020.000F] # SMALL QUESTION MARK
+FE57  ; [*025F.0020.000F] # SMALL EXCLAMATION MARK
+FE58  ; [*0216.0020.000F] # SMALL EM DASH
+FE59  ; [*030A.0020.000F] # SMALL LEFT PARENTHESIS
+FE5A  ; [*030B.0020.000F] # SMALL RIGHT PARENTHESIS
+FE5B  ; [*030E.0020.000F] # SMALL LEFT CURLY BRACKET
+FE5C  ; [*030F.0020.000F] # SMALL RIGHT CURLY BRACKET
+FE5D  ; [*036C.0020.000F] # SMALL LEFT TORTOISE SHELL BRACKET
+FE5E  ; [*036D.0020.000F] # SMALL RIGHT TORTOISE SHELL BRACKET
+FE5F  ; [*038B.0020.000F] # SMALL NUMBER SIGN
+FE60  ; [*0389.0020.000F] # SMALL AMPERSAND
+FE61  ; [*0382.0020.000F] # SMALL ASTERISK
+FE62  ; [*05D6.0020.000F] # SMALL PLUS SIGN
+FE63  ; [*020D.0020.000F] # SMALL HYPHEN-MINUS
+FE64  ; [*05DA.0020.000F] # SMALL LESS-THAN SIGN
+FE65  ; [*05DC.0020.000F] # SMALL GREATER-THAN SIGN
+FE66  ; [*05DB.0020.000F] # SMALL EQUALS SIGN
+FE68  ; [*0388.0020.000F] # SMALL REVERSE SOLIDUS
+FE6A  ; [*038C.0020.000F] # SMALL PERCENT SIGN
+FE6B  ; [*0381.0020.000F] # SMALL COMMERCIAL AT
+FE73  ; [.0000.0000.0000] # ARABIC TAIL FRAGMENT
+FF01  ; [*025F.0020.0003] # FULLWIDTH EXCLAMATION MARK
+FF02  ; [*02FF.0020.0003] # FULLWIDTH QUOTATION MARK
+FF03  ; [*038B.0020.0003] # FULLWIDTH NUMBER SIGN
+FF05  ; [*038C.0020.0003] # FULLWIDTH PERCENT SIGN
+FF06  ; [*0389.0020.0003] # FULLWIDTH AMPERSAND
+FF07  ; [*02F8.0020.0003] # FULLWIDTH APOSTROPHE
+FF08  ; [*030A.0020.0003] # FULLWIDTH LEFT PARENTHESIS
+FF09  ; [*030B.0020.0003] # FULLWIDTH RIGHT PARENTHESIS
+FF0A  ; [*0382.0020.0003] # FULLWIDTH ASTERISK
+FF0B  ; [*05D6.0020.0003] # FULLWIDTH PLUS SIGN
+FF0C  ; [*0221.0020.0003] # FULLWIDTH COMMA
+FF0D  ; [*020D.0020.0003] # FULLWIDTH HYPHEN-MINUS
+FF0E  ; [*0274.0020.0003] # FULLWIDTH FULL STOP
+FF0F  ; [*0387.0020.0003] # FULLWIDTH SOLIDUS
+FF1A  ; [*0238.0020.0003] # FULLWIDTH COLON
+FF1B  ; [*0233.0020.0003] # FULLWIDTH SEMICOLON
+FF1C  ; [*05DA.0020.0003] # FULLWIDTH LESS-THAN SIGN
+FF1D  ; [*05DB.0020.0003] # FULLWIDTH EQUALS SIGN
+FF1E  ; [*05DC.0020.0003] # FULLWIDTH GREATER-THAN SIGN
+FF1F  ; [*0264.0020.0003] # FULLWIDTH QUESTION MARK
+FF20  ; [*0381.0020.0003] # FULLWIDTH COMMERCIAL AT
+FF3B  ; [*030C.0020.0003] # FULLWIDTH LEFT SQUARE BRACKET
+FF3C  ; [*0388.0020.0003] # FULLWIDTH REVERSE SOLIDUS
+FF3D  ; [*030D.0020.0003] # FULLWIDTH RIGHT SQUARE BRACKET
+FF3E  ; [*0449.0020.0003] # FULLWIDTH CIRCUMFLEX ACCENT
+FF3F  ; [*020B.0020.0003] # FULLWIDTH LOW LINE
+FF40  ; [*0446.0020.0003] # FULLWIDTH GRAVE ACCENT
+FF5B  ; [*030E.0020.0003] # FULLWIDTH LEFT CURLY BRACKET
+FF5C  ; [*05DE.0020.0003] # FULLWIDTH VERTICAL LINE
+FF5D  ; [*030F.0020.0003] # FULLWIDTH RIGHT CURLY BRACKET
+FF5E  ; [*05E0.0020.0003] # FULLWIDTH TILDE
+FF5F  ; [*0320.0020.0003] # FULLWIDTH LEFT WHITE PARENTHESIS
+FF60  ; [*0321.0020.0003] # FULLWIDTH RIGHT WHITE PARENTHESIS
+FF61  ; [*0287.0020.0012] # HALFWIDTH IDEOGRAPHIC FULL STOP
+FF62  ; [*0366.0020.0012] # HALFWIDTH LEFT CORNER BRACKET
+FF63  ; [*0367.0020.0012] # HALFWIDTH RIGHT CORNER BRACKET
+FF64  ; [*0230.0020.0012] # HALFWIDTH IDEOGRAPHIC COMMA
+FF65  ; [*0220.0020.0012] # HALFWIDTH KATAKANA MIDDLE DOT
+FFE2  ; [*05DD.0020.0003] # FULLWIDTH NOT SIGN
+FFE3  ; [*044A.0020.0003] # FULLWIDTH MACRON
+FFE4  ; [*05DF.0020.0003] # FULLWIDTH BROKEN BAR
+FFE8  ; [*07D6.0020.0012] # HALFWIDTH FORMS LIGHT VERTICAL
+FFE9  ; [*055C.0020.0012] # HALFWIDTH LEFTWARDS ARROW
+FFEA  ; [*055E.0020.0012] # HALFWIDTH UPWARDS ARROW
+FFEB  ; [*055D.0020.0012] # HALFWIDTH RIGHTWARDS ARROW
+FFEC  ; [*055F.0020.0012] # HALFWIDTH DOWNWARDS ARROW
+FFED  ; [*0874.0020.0012] # HALFWIDTH BLACK SQUARE
+FFEE  ; [*089F.0020.0012] # HALFWIDTH WHITE CIRCLE
+FFFC  ; [*17B0.0020.0002] # OBJECT REPLACEMENT CHARACTER
+10100 ; [*02ED.0020.0002] # AEGEAN WORD SEPARATOR LINE
+10101 ; [*02EE.0020.0002] # AEGEAN WORD SEPARATOR DOT
+10102 ; [*02EF.0020.0002] # AEGEAN CHECK MARK
+10110 ; [*17F6.0020.0002] # AEGEAN NUMBER TEN
+10111 ; [*17F7.0020.0002] # AEGEAN NUMBER TWENTY
+10112 ; [*17F8.0020.0002] # AEGEAN NUMBER THIRTY
+10113 ; [*17F9.0020.0002] # AEGEAN NUMBER FORTY
+10114 ; [*17FA.0020.0002] # AEGEAN NUMBER FIFTY
+10115 ; [*17FB.0020.0002] # AEGEAN NUMBER SIXTY
+10116 ; [*17FC.0020.0002] # AEGEAN NUMBER SEVENTY
+10117 ; [*17FD.0020.0002] # AEGEAN NUMBER EIGHTY
+10118 ; [*17FE.0020.0002] # AEGEAN NUMBER NINETY
+10119 ; [*17FF.0020.0002] # AEGEAN NUMBER ONE HUNDRED
+1011A ; [*1800.0020.0002] # AEGEAN NUMBER TWO HUNDRED
+1011B ; [*1801.0020.0002] # AEGEAN NUMBER THREE HUNDRED
+1011C ; [*1802.0020.0002] # AEGEAN NUMBER FOUR HUNDRED
+1011D ; [*1803.0020.0002] # AEGEAN NUMBER FIVE HUNDRED
+1011E ; [*1804.0020.0002] # AEGEAN NUMBER SIX HUNDRED
+1011F ; [*1805.0020.0002] # AEGEAN NUMBER SEVEN HUNDRED
+10120 ; [*1806.0020.0002] # AEGEAN NUMBER EIGHT HUNDRED
+10121 ; [*1807.0020.0002] # AEGEAN NUMBER NINE HUNDRED
+10122 ; [*1808.0020.0002] # AEGEAN NUMBER ONE THOUSAND
+10123 ; [*1809.0020.0002] # AEGEAN NUMBER TWO THOUSAND
+10124 ; [*180A.0020.0002] # AEGEAN NUMBER THREE THOUSAND
+10125 ; [*180B.0020.0002] # AEGEAN NUMBER FOUR THOUSAND
+10126 ; [*180C.0020.0002] # AEGEAN NUMBER FIVE THOUSAND
+10127 ; [*180D.0020.0002] # AEGEAN NUMBER SIX THOUSAND
+10128 ; [*180E.0020.0002] # AEGEAN NUMBER SEVEN THOUSAND
+10129 ; [*180F.0020.0002] # AEGEAN NUMBER EIGHT THOUSAND
+1012A ; [*1810.0020.0002] # AEGEAN NUMBER NINE THOUSAND
+1012B ; [*1811.0020.0002] # AEGEAN NUMBER TEN THOUSAND
+1012C ; [*1812.0020.0002] # AEGEAN NUMBER TWENTY THOUSAND
+1012D ; [*1813.0020.0002] # AEGEAN NUMBER THIRTY THOUSAND
+1012E ; [*1814.0020.0002] # AEGEAN NUMBER FORTY THOUSAND
+1012F ; [*1815.0020.0002] # AEGEAN NUMBER FIFTY THOUSAND
+10130 ; [*1816.0020.0002] # AEGEAN NUMBER SIXTY THOUSAND
+10131 ; [*1817.0020.0002] # AEGEAN NUMBER SEVENTY THOUSAND
+10132 ; [*1818.0020.0002] # AEGEAN NUMBER EIGHTY THOUSAND
+10133 ; [*1819.0020.0002] # AEGEAN NUMBER NINETY THOUSAND
+10137 ; [*0F30.0020.0002] # AEGEAN WEIGHT BASE UNIT
+10138 ; [*0F31.0020.0002] # AEGEAN WEIGHT FIRST SUBUNIT
+10139 ; [*0F32.0020.0002] # AEGEAN WEIGHT SECOND SUBUNIT
+1013A ; [*0F33.0020.0002] # AEGEAN WEIGHT THIRD SUBUNIT
+1013B ; [*0F34.0020.0002] # AEGEAN WEIGHT FOURTH SUBUNIT
+1013C ; [*0F35.0020.0002] # AEGEAN DRY MEASURE FIRST SUBUNIT
+1013D ; [*0F36.0020.0002] # AEGEAN LIQUID MEASURE FIRST SUBUNIT
+1013E ; [*0F37.0020.0002] # AEGEAN MEASURE SECOND SUBUNIT
+1013F ; [*0F38.0020.0002] # AEGEAN MEASURE THIRD SUBUNIT
+10140 ; [*181A.0020.0002] # GREEK ACROPHONIC ATTIC ONE QUARTER
+10141 ; [*181B.0020.0002] # GREEK ACROPHONIC ATTIC ONE HALF
+10144 ; [*181C.0020.0002] # GREEK ACROPHONIC ATTIC FIFTY
+10145 ; [*181D.0020.0002] # GREEK ACROPHONIC ATTIC FIVE HUNDRED
+10146 ; [*181E.0020.0002] # GREEK ACROPHONIC ATTIC FIVE THOUSAND
+10147 ; [*181F.0020.0002] # GREEK ACROPHONIC ATTIC FIFTY THOUSAND
+10149 ; [*1820.0020.0002] # GREEK ACROPHONIC ATTIC TEN TALENTS
+1014A ; [*1821.0020.0002] # GREEK ACROPHONIC ATTIC FIFTY TALENTS
+1014B ; [*1822.0020.0002] # GREEK ACROPHONIC ATTIC ONE HUNDRED TALENTS
+1014C ; [*1823.0020.0002] # GREEK ACROPHONIC ATTIC FIVE HUNDRED TALENTS
+1014D ; [*1824.0020.0002] # GREEK ACROPHONIC ATTIC ONE THOUSAND TALENTS
+1014E ; [*1825.0020.0002] # GREEK ACROPHONIC ATTIC FIVE THOUSAND TALENTS
+10150 ; [*1826.0020.0002] # GREEK ACROPHONIC ATTIC TEN STATERS
+10151 ; [*1827.0020.0002] # GREEK ACROPHONIC ATTIC FIFTY STATERS
+10152 ; [*1828.0020.0002] # GREEK ACROPHONIC ATTIC ONE HUNDRED STATERS
+10153 ; [*1829.0020.0002] # GREEK ACROPHONIC ATTIC FIVE HUNDRED STATERS
+10154 ; [*182A.0020.0002] # GREEK ACROPHONIC ATTIC ONE THOUSAND STATERS
+10155 ; [*182B.0020.0002] # GREEK ACROPHONIC ATTIC TEN THOUSAND STATERS
+10156 ; [*182C.0020.0002] # GREEK ACROPHONIC ATTIC FIFTY THOUSAND STATERS
+10157 ; [*182D.0020.0002] # GREEK ACROPHONIC ATTIC TEN MNAS
+10160 ; [*182E.0020.0002] # GREEK ACROPHONIC TROEZENIAN TEN
+10161 ; [*182F.0020.0002] # GREEK ACROPHONIC TROEZENIAN TEN ALTERNATE FORM
+10162 ; [*1830.0020.0002] # GREEK ACROPHONIC HERMIONIAN TEN
+10163 ; [*1831.0020.0002] # GREEK ACROPHONIC MESSENIAN TEN
+10164 ; [*1832.0020.0002] # GREEK ACROPHONIC THESPIAN TEN
+10165 ; [*1833.0020.0002] # GREEK ACROPHONIC THESPIAN THIRTY
+10166 ; [*1834.0020.0002] # GREEK ACROPHONIC TROEZENIAN FIFTY
+10167 ; [*1835.0020.0002] # GREEK ACROPHONIC TROEZENIAN FIFTY ALTERNATE FORM
+10168 ; [*1836.0020.0002] # GREEK ACROPHONIC HERMIONIAN FIFTY
+10169 ; [*1837.0020.0002] # GREEK ACROPHONIC THESPIAN FIFTY
+1016A ; [*1838.0020.0002] # GREEK ACROPHONIC THESPIAN ONE HUNDRED
+1016B ; [*1839.0020.0002] # GREEK ACROPHONIC THESPIAN THREE HUNDRED
+1016C ; [*183A.0020.0002] # GREEK ACROPHONIC EPIDAUREAN FIVE HUNDRED
+1016D ; [*183B.0020.0002] # GREEK ACROPHONIC TROEZENIAN FIVE HUNDRED
+1016E ; [*183C.0020.0002] # GREEK ACROPHONIC THESPIAN FIVE HUNDRED
+1016F ; [*183D.0020.0002] # GREEK ACROPHONIC CARYSTIAN FIVE HUNDRED
+10170 ; [*183E.0020.0002] # GREEK ACROPHONIC NAXIAN FIVE HUNDRED
+10171 ; [*183F.0020.0002] # GREEK ACROPHONIC THESPIAN ONE THOUSAND
+10172 ; [*1840.0020.0002] # GREEK ACROPHONIC THESPIAN FIVE THOUSAND
+10174 ; [*1841.0020.0002] # GREEK ACROPHONIC STRATIAN FIFTY MNAS
+10175 ; [*1842.0020.0002] # GREEK ONE HALF SIGN
+10176 ; [*1843.0020.0002] # GREEK ONE HALF SIGN ALTERNATE FORM
+10177 ; [*1844.0020.0002] # GREEK TWO THIRDS SIGN
+10178 ; [*1845.0020.0002] # GREEK THREE QUARTERS SIGN
+10179 ; [*0F39.0020.0002] # GREEK YEAR SIGN
+1017A ; [*0F3A.0020.0002] # GREEK TALENT SIGN
+1017B ; [*0F3B.0020.0002] # GREEK DRACHMA SIGN
+1017C ; [*0F3C.0020.0002] # GREEK OBOL SIGN
+1017D ; [*0F3D.0020.0002] # GREEK TWO OBOLS SIGN
+1017E ; [*0F3E.0020.0002] # GREEK THREE OBOLS SIGN
+1017F ; [*0F3F.0020.0002] # GREEK FOUR OBOLS SIGN
+10180 ; [*0F40.0020.0002] # GREEK FIVE OBOLS SIGN
+10181 ; [*0F41.0020.0002] # GREEK METRETES SIGN
+10182 ; [*0F42.0020.0002] # GREEK KYATHOS BASE SIGN
+10183 ; [*0F43.0020.0002] # GREEK LITRA SIGN
+10184 ; [*0F44.0020.0002] # GREEK OUNKIA SIGN
+10185 ; [*0F45.0020.0002] # GREEK XESTES SIGN
+10186 ; [*0F46.0020.0002] # GREEK ARTABE SIGN
+10187 ; [*0F47.0020.0002] # GREEK AROURA SIGN
+10188 ; [*0F48.0020.0002] # GREEK GRAMMA SIGN
+10189 ; [*0F49.0020.0002] # GREEK TRYBLION BASE SIGN
+1018B ; [*1846.0020.0002] # GREEK ONE QUARTER SIGN
+1018C ; [*0F4A.0020.0002] # GREEK SINUSOID SIGN
+10190 ; [*0F4B.0020.0002] # ROMAN SEXTANS SIGN
+10191 ; [*0F4C.0020.0002] # ROMAN UNCIA SIGN
+10192 ; [*0F4D.0020.0002] # ROMAN SEMUNCIA SIGN
+10193 ; [*0F4E.0020.0002] # ROMAN SEXTULA SIGN
+10194 ; [*0F4F.0020.0002] # ROMAN DIMIDIA SEXTULA SIGN
+10195 ; [*0F50.0020.0002] # ROMAN SILIQUA SIGN
+10196 ; [*0F51.0020.0002] # ROMAN DENARIUS SIGN
+10197 ; [*0F52.0020.0002] # ROMAN QUINARIUS SIGN
+10198 ; [*0F53.0020.0002] # ROMAN SESTERTIUS SIGN
+10199 ; [*0F54.0020.0002] # ROMAN DUPONDIUS SIGN
+1019A ; [*0F55.0020.0002] # ROMAN AS SIGN
+1019B ; [*0F56.0020.0002] # ROMAN CENTURIAL SIGN
+101A0 ; [*0F57.0020.0002] # GREEK SYMBOL TAU RHO
+101D0 ; [*0F58.0020.0002] # PHAISTOS DISC SIGN PEDESTRIAN
+101D1 ; [*0F59.0020.0002] # PHAISTOS DISC SIGN PLUMED HEAD
+101D2 ; [*0F5A.0020.0002] # PHAISTOS DISC SIGN TATTOOED HEAD
+101D3 ; [*0F5B.0020.0002] # PHAISTOS DISC SIGN CAPTIVE
+101D4 ; [*0F5C.0020.0002] # PHAISTOS DISC SIGN CHILD
+101D5 ; [*0F5D.0020.0002] # PHAISTOS DISC SIGN WOMAN
+101D6 ; [*0F5E.0020.0002] # PHAISTOS DISC SIGN HELMET
+101D7 ; [*0F5F.0020.0002] # PHAISTOS DISC SIGN GAUNTLET
+101D8 ; [*0F60.0020.0002] # PHAISTOS DISC SIGN TIARA
+101D9 ; [*0F61.0020.0002] # PHAISTOS DISC SIGN ARROW
+101DA ; [*0F62.0020.0002] # PHAISTOS DISC SIGN BOW
+101DB ; [*0F63.0020.0002] # PHAISTOS DISC SIGN SHIELD
+101DC ; [*0F64.0020.0002] # PHAISTOS DISC SIGN CLUB
+101DD ; [*0F65.0020.0002] # PHAISTOS DISC SIGN MANACLES
+101DE ; [*0F66.0020.0002] # PHAISTOS DISC SIGN MATTOCK
+101DF ; [*0F67.0020.0002] # PHAISTOS DISC SIGN SAW
+101E0 ; [*0F68.0020.0002] # PHAISTOS DISC SIGN LID
+101E1 ; [*0F69.0020.0002] # PHAISTOS DISC SIGN BOOMERANG
+101E2 ; [*0F6A.0020.0002] # PHAISTOS DISC SIGN CARPENTRY PLANE
+101E3 ; [*0F6B.0020.0002] # PHAISTOS DISC SIGN DOLIUM
+101E4 ; [*0F6C.0020.0002] # PHAISTOS DISC SIGN COMB
+101E5 ; [*0F6D.0020.0002] # PHAISTOS DISC SIGN SLING
+101E6 ; [*0F6E.0020.0002] # PHAISTOS DISC SIGN COLUMN
+101E7 ; [*0F6F.0020.0002] # PHAISTOS DISC SIGN BEEHIVE
+101E8 ; [*0F70.0020.0002] # PHAISTOS DISC SIGN SHIP
+101E9 ; [*0F71.0020.0002] # PHAISTOS DISC SIGN HORN
+101EA ; [*0F72.0020.0002] # PHAISTOS DISC SIGN HIDE
+101EB ; [*0F73.0020.0002] # PHAISTOS DISC SIGN BULLS LEG
+101EC ; [*0F74.0020.0002] # PHAISTOS DISC SIGN CAT
+101ED ; [*0F75.0020.0002] # PHAISTOS DISC SIGN RAM
+101EE ; [*0F76.0020.0002] # PHAISTOS DISC SIGN EAGLE
+101EF ; [*0F77.0020.0002] # PHAISTOS DISC SIGN DOVE
+101F0 ; [*0F78.0020.0002] # PHAISTOS DISC SIGN TUNNY
+101F1 ; [*0F79.0020.0002] # PHAISTOS DISC SIGN BEE
+101F2 ; [*0F7A.0020.0002] # PHAISTOS DISC SIGN PLANE TREE
+101F3 ; [*0F7B.0020.0002] # PHAISTOS DISC SIGN VINE
+101F4 ; [*0F7C.0020.0002] # PHAISTOS DISC SIGN PAPYRUS
+101F5 ; [*0F7D.0020.0002] # PHAISTOS DISC SIGN ROSETTE
+101F6 ; [*0F7E.0020.0002] # PHAISTOS DISC SIGN LILY
+101F7 ; [*0F7F.0020.0002] # PHAISTOS DISC SIGN OX BACK
+101F8 ; [*0F80.0020.0002] # PHAISTOS DISC SIGN FLUTE
+101F9 ; [*0F81.0020.0002] # PHAISTOS DISC SIGN GRATER
+101FA ; [*0F82.0020.0002] # PHAISTOS DISC SIGN STRAINER
+101FB ; [*0F83.0020.0002] # PHAISTOS DISC SIGN SMALL AXE
+101FC ; [*0F84.0020.0002] # PHAISTOS DISC SIGN WAVY BAND
+102E0 ; [.0000.0000.0000] # COPTIC EPACT THOUSANDS MARK
+102EA ; [*1847.0020.0002] # COPTIC EPACT NUMBER TEN
+102EB ; [*1848.0020.0002] # COPTIC EPACT NUMBER TWENTY
+102EC ; [*1849.0020.0002] # COPTIC EPACT NUMBER THIRTY
+102ED ; [*184A.0020.0002] # COPTIC EPACT NUMBER FORTY
+102EE ; [*184B.0020.0002] # COPTIC EPACT NUMBER FIFTY
+102EF ; [*184C.0020.0002] # COPTIC EPACT NUMBER SIXTY
+102F0 ; [*184D.0020.0002] # COPTIC EPACT NUMBER SEVENTY
+102F1 ; [*184E.0020.0002] # COPTIC EPACT NUMBER EIGHTY
+102F2 ; [*184F.0020.0002] # COPTIC EPACT NUMBER NINETY
+102F3 ; [*1850.0020.0002] # COPTIC EPACT NUMBER ONE HUNDRED
+102F4 ; [*1851.0020.0002] # COPTIC EPACT NUMBER TWO HUNDRED
+102F5 ; [*1852.0020.0002] # COPTIC EPACT NUMBER THREE HUNDRED
+102F6 ; [*1853.0020.0002] # COPTIC EPACT NUMBER FOUR HUNDRED
+102F7 ; [*1854.0020.0002] # COPTIC EPACT NUMBER FIVE HUNDRED
+102F8 ; [*1855.0020.0002] # COPTIC EPACT NUMBER SIX HUNDRED
+102F9 ; [*1856.0020.0002] # COPTIC EPACT NUMBER SEVEN HUNDRED
+102FA ; [*1857.0020.0002] # COPTIC EPACT NUMBER EIGHT HUNDRED
+102FB ; [*1858.0020.0002] # COPTIC EPACT NUMBER NINE HUNDRED
+10322 ; [*17F4.0020.0002] # OLD ITALIC NUMERAL TEN
+10323 ; [*17F5.0020.0002] # OLD ITALIC NUMERAL FIFTY
+1039F ; [*02F0.0020.0002] # UGARITIC WORD DIVIDER
+103D0 ; [*02F1.0020.0002] # OLD PERSIAN WORD DIVIDER
+103D3 ; [*1859.0020.0002] # OLD PERSIAN NUMBER TEN
+103D4 ; [*185A.0020.0002] # OLD PERSIAN NUMBER TWENTY
+103D5 ; [*185B.0020.0002] # OLD PERSIAN NUMBER HUNDRED
+1056F ; [*0414.0020.0002] # CAUCASIAN ALBANIAN CITATION MARK
+10857 ; [*02D0.0020.0002] # IMPERIAL ARAMAIC SECTION SIGN
+1085B ; [*1868.0020.0002] # IMPERIAL ARAMAIC NUMBER TEN
+1085C ; [*1869.0020.0002] # IMPERIAL ARAMAIC NUMBER TWENTY
+1085D ; [*186A.0020.0002] # IMPERIAL ARAMAIC NUMBER ONE HUNDRED
+1085E ; [*186B.0020.0002] # IMPERIAL ARAMAIC NUMBER ONE THOUSAND
+1085F ; [*186C.0020.0002] # IMPERIAL ARAMAIC NUMBER TEN THOUSAND
+10877 ; [*0F85.0020.0002] # PALMYRENE LEFT-POINTING FLEURON
+10878 ; [*0F86.0020.0002] # PALMYRENE RIGHT-POINTING FLEURON
+1087E ; [*185C.0020.0002] # PALMYRENE NUMBER TEN
+1087F ; [*185D.0020.0002] # PALMYRENE NUMBER TWENTY
+108AD ; [*185E.0020.0002] # NABATAEAN NUMBER TEN
+108AE ; [*185F.0020.0002] # NABATAEAN NUMBER TWENTY
+108AF ; [*1860.0020.0002] # NABATAEAN NUMBER ONE HUNDRED
+10917 ; [*1865.0020.0002] # PHOENICIAN NUMBER TEN
+10918 ; [*1866.0020.0002] # PHOENICIAN NUMBER TWENTY
+10919 ; [*1867.0020.0002] # PHOENICIAN NUMBER ONE HUNDRED
+1091F ; [*02F2.0020.0002] # PHOENICIAN WORD SEPARATOR
+1093F ; [*02EC.0020.0002] # LYDIAN TRIANGULAR MARK
+10A44 ; [*1886.0020.0002] # KHAROSHTHI NUMBER TEN
+10A45 ; [*1887.0020.0002] # KHAROSHTHI NUMBER TWENTY
+10A46 ; [*1888.0020.0002] # KHAROSHTHI NUMBER ONE HUNDRED
+10A47 ; [*1889.0020.0002] # KHAROSHTHI NUMBER ONE THOUSAND
+10A50 ; [*041A.0020.0002] # KHAROSHTHI PUNCTUATION DOT
+10A51 ; [*041B.0020.0002] # KHAROSHTHI PUNCTUATION SMALL CIRCLE
+10A52 ; [*041C.0020.0002] # KHAROSHTHI PUNCTUATION CIRCLE
+10A53 ; [*041D.0020.0002] # KHAROSHTHI PUNCTUATION CRESCENT BAR
+10A54 ; [*041E.0020.0002] # KHAROSHTHI PUNCTUATION MANGALAM
+10A55 ; [*041F.0020.0002] # KHAROSHTHI PUNCTUATION LOTUS
+10A56 ; [*02A7.0020.0002] # KHAROSHTHI PUNCTUATION DANDA
+10A57 ; [*02A8.0020.0002] # KHAROSHTHI PUNCTUATION DOUBLE DANDA
+10A58 ; [*0420.0020.0002] # KHAROSHTHI PUNCTUATION LINES
+10A7E ; [*1861.0020.0002] # OLD SOUTH ARABIAN NUMBER FIFTY
+10A7F ; [*1862.0020.0002] # OLD SOUTH ARABIAN NUMERIC INDICATOR
+10A9E ; [*1863.0020.0002] # OLD NORTH ARABIAN NUMBER TEN
+10A9F ; [*1864.0020.0002] # OLD NORTH ARABIAN NUMBER TWENTY
+10AED ; [*186D.0020.0002] # MANICHAEAN NUMBER TEN
+10AEE ; [*186E.0020.0002] # MANICHAEAN NUMBER TWENTY
+10AEF ; [*186F.0020.0002] # MANICHAEAN NUMBER ONE HUNDRED
+10AF0 ; [*0422.0020.0002] # MANICHAEAN PUNCTUATION STAR
+10AF1 ; [*0423.0020.0002] # MANICHAEAN PUNCTUATION FLEURON
+10AF2 ; [*0424.0020.0002] # MANICHAEAN PUNCTUATION DOUBLE DOT WITHIN DOT
+10AF3 ; [*0425.0020.0002] # MANICHAEAN PUNCTUATION DOT WITHIN DOT
+10AF4 ; [*0426.0020.0002] # MANICHAEAN PUNCTUATION DOT
+10AF5 ; [*0427.0020.0002] # MANICHAEAN PUNCTUATION TWO DOTS
+10AF6 ; [*0428.0020.0002] # MANICHAEAN PUNCTUATION LINE FILLER
+10B39 ; [*0421.0020.0002] # AVESTAN ABBREVIATION MARK
+10B3A ; [*02D1.0020.0002] # TINY TWO DOTS OVER ONE DOT PUNCTUATION
+10B3B ; [*02D2.0020.0002] # SMALL TWO DOTS OVER ONE DOT PUNCTUATION
+10B3C ; [*02D3.0020.0002] # LARGE TWO DOTS OVER ONE DOT PUNCTUATION
+10B3D ; [*02D4.0020.0002] # LARGE ONE DOT OVER TWO DOTS PUNCTUATION
+10B3E ; [*02D5.0020.0002] # LARGE TWO RINGS OVER ONE RING PUNCTUATION
+10B3F ; [*02D6.0020.0002] # LARGE ONE RING OVER TWO RINGS PUNCTUATION
+10B5C ; [*1870.0020.0002] # INSCRIPTIONAL PARTHIAN NUMBER TEN
+10B5D ; [*1871.0020.0002] # INSCRIPTIONAL PARTHIAN NUMBER TWENTY
+10B5E ; [*1872.0020.0002] # INSCRIPTIONAL PARTHIAN NUMBER ONE HUNDRED
+10B5F ; [*1873.0020.0002] # INSCRIPTIONAL PARTHIAN NUMBER ONE THOUSAND
+10B7C ; [*1874.0020.0002] # INSCRIPTIONAL PAHLAVI NUMBER TEN
+10B7D ; [*1875.0020.0002] # INSCRIPTIONAL PAHLAVI NUMBER TWENTY
+10B7E ; [*1876.0020.0002] # INSCRIPTIONAL PAHLAVI NUMBER ONE HUNDRED
+10B7F ; [*1877.0020.0002] # INSCRIPTIONAL PAHLAVI NUMBER ONE THOUSAND
+10B99 ; [*0429.0020.0002] # PSALTER PAHLAVI SECTION MARK
+10B9A ; [*042A.0020.0002] # PSALTER PAHLAVI TURNED SECTION MARK
+10B9B ; [*042B.0020.0002] # PSALTER PAHLAVI FOUR DOTS WITH CROSS
+10B9C ; [*042C.0020.0002] # PSALTER PAHLAVI FOUR DOTS WITH DOT
+10BAD ; [*1878.0020.0002] # PSALTER PAHLAVI NUMBER TEN
+10BAE ; [*1879.0020.0002] # PSALTER PAHLAVI NUMBER TWENTY
+10BAF ; [*187A.0020.0002] # PSALTER PAHLAVI NUMBER ONE HUNDRED
+10E69 ; [*17DD.0020.0002] # RUMI NUMBER TEN
+10E6A ; [*17DE.0020.0002] # RUMI NUMBER TWENTY
+10E6B ; [*17DF.0020.0002] # RUMI NUMBER THIRTY
+10E6C ; [*17E0.0020.0002] # RUMI NUMBER FORTY
+10E6D ; [*17E1.0020.0002] # RUMI NUMBER FIFTY
+10E6E ; [*17E2.0020.0002] # RUMI NUMBER SIXTY
+10E6F ; [*17E3.0020.0002] # RUMI NUMBER SEVENTY
+10E70 ; [*17E4.0020.0002] # RUMI NUMBER EIGHTY
+10E71 ; [*17E5.0020.0002] # RUMI NUMBER NINETY
+10E72 ; [*17E6.0020.0002] # RUMI NUMBER ONE HUNDRED
+10E73 ; [*17E7.0020.0002] # RUMI NUMBER TWO HUNDRED
+10E74 ; [*17E8.0020.0002] # RUMI NUMBER THREE HUNDRED
+10E75 ; [*17E9.0020.0002] # RUMI NUMBER FOUR HUNDRED
+10E76 ; [*17EA.0020.0002] # RUMI NUMBER FIVE HUNDRED
+10E77 ; [*17EB.0020.0002] # RUMI NUMBER SIX HUNDRED
+10E78 ; [*17EC.0020.0002] # RUMI NUMBER SEVEN HUNDRED
+10E79 ; [*17ED.0020.0002] # RUMI NUMBER EIGHT HUNDRED
+10E7A ; [*17EE.0020.0002] # RUMI NUMBER NINE HUNDRED
+10E7B ; [*17EF.0020.0002] # RUMI FRACTION ONE HALF
+10E7C ; [*17F0.0020.0002] # RUMI FRACTION ONE QUARTER
+10E7D ; [*17F1.0020.0002] # RUMI FRACTION ONE THIRD
+10E7E ; [*17F2.0020.0002] # RUMI FRACTION TWO THIRDS
+11047 ; [*02A9.0020.0002] # BRAHMI DANDA
+11048 ; [*02AA.0020.0002] # BRAHMI DOUBLE DANDA
+11049 ; [*0415.0020.0002] # BRAHMI PUNCTUATION DOT
+1104A ; [*0416.0020.0002] # BRAHMI PUNCTUATION DOUBLE DOT
+1104B ; [*0417.0020.0002] # BRAHMI PUNCTUATION LINE
+1104C ; [*0418.0020.0002] # BRAHMI PUNCTUATION CRESCENT BAR
+1104D ; [*0419.0020.0002] # BRAHMI PUNCTUATION LOTUS
+1105B ; [*187B.0020.0002] # BRAHMI NUMBER TEN
+1105C ; [*187C.0020.0002] # BRAHMI NUMBER TWENTY
+1105D ; [*187D.0020.0002] # BRAHMI NUMBER THIRTY
+1105E ; [*187E.0020.0002] # BRAHMI NUMBER FORTY
+1105F ; [*187F.0020.0002] # BRAHMI NUMBER FIFTY
+11060 ; [*1880.0020.0002] # BRAHMI NUMBER SIXTY
+11061 ; [*1881.0020.0002] # BRAHMI NUMBER SEVENTY
+11062 ; [*1882.0020.0002] # BRAHMI NUMBER EIGHTY
+11063 ; [*1883.0020.0002] # BRAHMI NUMBER NINETY
+11064 ; [*1884.0020.0002] # BRAHMI NUMBER ONE HUNDRED
+11065 ; [*1885.0020.0002] # BRAHMI NUMBER ONE THOUSAND
+110BB ; [*042D.0020.0002] # KAITHI ABBREVIATION SIGN
+110BC ; [*042E.0020.0002] # KAITHI ENUMERATION SIGN
+110BD ; [.0000.0000.0000] # KAITHI NUMBER SIGN
+110BE ; [*02D7.0020.0002] # KAITHI SECTION MARK
+110BF ; [*02D8.0020.0002] # KAITHI DOUBLE SECTION MARK
+110C0 ; [*02AB.0020.0002] # KAITHI DANDA
+110C1 ; [*02AC.0020.0002] # KAITHI DOUBLE DANDA
+11140 ; [*02D9.0020.0002] # CHAKMA SECTION MARK
+11141 ; [*02AD.0020.0002] # CHAKMA DANDA
+11142 ; [*02AE.0020.0002] # CHAKMA DOUBLE DANDA
+11143 ; [*0271.0020.0002] # CHAKMA QUESTION MARK
+11174 ; [*042F.0020.0002] # MAHAJANI ABBREVIATION SIGN
+11175 ; [*0430.0020.0002] # MAHAJANI SECTION MARK
+111C5 ; [*02AF.0020.0002] # SHARADA DANDA
+111C6 ; [*02B0.0020.0002] # SHARADA DOUBLE DANDA
+111C7 ; [*0432.0020.0002] # SHARADA ABBREVIATION SIGN
+111C8 ; [*02DA.0020.0002] # SHARADA SEPARATOR
+111CD ; [*0431.0020.0002] # SHARADA SUTRA MARK
+111EA ; [*188A.0020.0002] # SINHALA ARCHAIC NUMBER TEN
+111EB ; [*188B.0020.0002] # SINHALA ARCHAIC NUMBER TWENTY
+111EC ; [*188C.0020.0002] # SINHALA ARCHAIC NUMBER THIRTY
+111ED ; [*188D.0020.0002] # SINHALA ARCHAIC NUMBER FORTY
+111EE ; [*188E.0020.0002] # SINHALA ARCHAIC NUMBER FIFTY
+111EF ; [*188F.0020.0002] # SINHALA ARCHAIC NUMBER SIXTY
+111F0 ; [*1890.0020.0002] # SINHALA ARCHAIC NUMBER SEVENTY
+111F1 ; [*1891.0020.0002] # SINHALA ARCHAIC NUMBER EIGHTY
+111F2 ; [*1892.0020.0002] # SINHALA ARCHAIC NUMBER NINETY
+111F3 ; [*1893.0020.0002] # SINHALA ARCHAIC NUMBER ONE HUNDRED
+111F4 ; [*1894.0020.0002] # SINHALA ARCHAIC NUMBER ONE THOUSAND
+11238 ; [*02B1.0020.0002] # KHOJKI DANDA
+11239 ; [*02B2.0020.0002] # KHOJKI DOUBLE DANDA
+1123A ; [*0433.0020.0002] # KHOJKI WORD SEPARATOR
+1123B ; [*0434.0020.0002] # KHOJKI SECTION MARK
+1123C ; [*0435.0020.0002] # KHOJKI DOUBLE SECTION MARK
+1123D ; [*0436.0020.0002] # KHOJKI ABBREVIATION SIGN
+11366 ; [.0000.0000.0000] # COMBINING GRANTHA DIGIT ZERO
+11367 ; [.0000.0000.0000] # COMBINING GRANTHA DIGIT ONE
+11368 ; [.0000.0000.0000] # COMBINING GRANTHA DIGIT TWO
+11369 ; [.0000.0000.0000] # COMBINING GRANTHA DIGIT THREE
+1136A ; [.0000.0000.0000] # COMBINING GRANTHA DIGIT FOUR
+1136B ; [.0000.0000.0000] # COMBINING GRANTHA DIGIT FIVE
+1136C ; [.0000.0000.0000] # COMBINING GRANTHA DIGIT SIX
+11370 ; [.0000.0000.0000] # COMBINING GRANTHA LETTER A
+11371 ; [.0000.0000.0000] # COMBINING GRANTHA LETTER KA
+11372 ; [.0000.0000.0000] # COMBINING GRANTHA LETTER NA
+11373 ; [.0000.0000.0000] # COMBINING GRANTHA LETTER VI
+11374 ; [.0000.0000.0000] # COMBINING GRANTHA LETTER PA
+114C6 ; [*0437.0020.0002] # TIRHUTA ABBREVIATION SIGN
+115C1 ; [*0438.0020.0002] # SIDDHAM SIGN SIDDHAM
+115C2 ; [*02B3.0020.0002] # SIDDHAM DANDA
+115C3 ; [*02B4.0020.0002] # SIDDHAM DOUBLE DANDA
+115C4 ; [*0439.0020.0002] # SIDDHAM SEPARATOR DOT
+115C5 ; [*043A.0020.0002] # SIDDHAM SEPARATOR BAR
+115C6 ; [*043B.0020.0002] # SIDDHAM REPETITION MARK-1
+115C7 ; [*043C.0020.0002] # SIDDHAM REPETITION MARK-2
+115C8 ; [*043D.0020.0002] # SIDDHAM REPETITION MARK-3
+115C9 ; [*043E.0020.0002] # SIDDHAM END OF TEXT MARK
+11641 ; [*02B5.0020.0002] # MODI DANDA
+11642 ; [*02B6.0020.0002] # MODI DOUBLE DANDA
+11643 ; [*043F.0020.0002] # MODI ABBREVIATION SIGN
+118EA ; [*1895.0020.0002] # WARANG CITI NUMBER TEN
+118EB ; [*1896.0020.0002] # WARANG CITI NUMBER TWENTY
+118EC ; [*1897.0020.0002] # WARANG CITI NUMBER THIRTY
+118ED ; [*1898.0020.0002] # WARANG CITI NUMBER FORTY
+118EE ; [*1899.0020.0002] # WARANG CITI NUMBER FIFTY
+118EF ; [*189A.0020.0002] # WARANG CITI NUMBER SIXTY
+118F0 ; [*189B.0020.0002] # WARANG CITI NUMBER SEVENTY
+118F1 ; [*189C.0020.0002] # WARANG CITI NUMBER EIGHTY
+118F2 ; [*189D.0020.0002] # WARANG CITI NUMBER NINETY
+12432 ; [*18A5.0020.0002] # CUNEIFORM NUMERIC SIGN SHAR2 TIMES GAL PLUS DISH
+12433 ; [*18A6.0020.0002] # CUNEIFORM NUMERIC SIGN SHAR2 TIMES GAL PLUS MIN
+1245A ; [*18A7.0020.0002] # CUNEIFORM NUMERIC SIGN ONE THIRD DISH
+1245B ; [*18A8.0020.0002] # CUNEIFORM NUMERIC SIGN TWO THIRDS DISH
+1245C ; [*18A9.0020.0002] # CUNEIFORM NUMERIC SIGN FIVE SIXTHS DISH
+1245D ; [*18AA.0020.0002] # CUNEIFORM NUMERIC SIGN ONE THIRD VARIANT FORM A
+1245E ; [*18AB.0020.0002] # CUNEIFORM NUMERIC SIGN TWO THIRDS VARIANT FORM A
+1245F ; [*18AC.0020.0002] # CUNEIFORM NUMERIC SIGN ONE EIGHTH ASH
+12460 ; [*18AD.0020.0002] # CUNEIFORM NUMERIC SIGN ONE QUARTER ASH
+12461 ; [*18AE.0020.0002] # CUNEIFORM NUMERIC SIGN OLD ASSYRIAN ONE SIXTH
+12462 ; [*18AF.0020.0002] # CUNEIFORM NUMERIC SIGN OLD ASSYRIAN ONE QUARTER
+12463 ; [*18B0.0020.0002] # CUNEIFORM NUMERIC SIGN ONE QUARTER GUR
+12464 ; [*18B1.0020.0002] # CUNEIFORM NUMERIC SIGN ONE HALF GUR
+12465 ; [*18B2.0020.0002] # CUNEIFORM NUMERIC SIGN ELAMITE ONE THIRD
+12466 ; [*18B3.0020.0002] # CUNEIFORM NUMERIC SIGN ELAMITE TWO THIRDS
+12467 ; [*18B4.0020.0002] # CUNEIFORM NUMERIC SIGN ELAMITE FORTY
+12468 ; [*18B5.0020.0002] # CUNEIFORM NUMERIC SIGN ELAMITE FIFTY
+12470 ; [*02F3.0020.0002] # CUNEIFORM PUNCTUATION SIGN OLD ASSYRIAN WORD DIVIDER
+12471 ; [*02F4.0020.0002] # CUNEIFORM PUNCTUATION SIGN VERTICAL COLON
+12472 ; [*02F5.0020.0002] # CUNEIFORM PUNCTUATION SIGN DIAGONAL COLON
+12473 ; [*02F6.0020.0002] # CUNEIFORM PUNCTUATION SIGN DIAGONAL TRICOLON
+12474 ; [*02F7.0020.0002] # CUNEIFORM PUNCTUATION SIGN DIAGONAL QUADCOLON
+16A6E ; [*02B7.0020.0002] # MRO DANDA
+16A6F ; [*02B8.0020.0002] # MRO DOUBLE DANDA
+16AF5 ; [*0285.0020.0002] # BASSA VAH FULL STOP
+16B37 ; [*0440.0020.0002] # PAHAWH HMONG SIGN VOS THOM
+16B38 ; [*0441.0020.0002] # PAHAWH HMONG SIGN VOS TSHAB CEEB
+16B39 ; [*0442.0020.0002] # PAHAWH HMONG SIGN CIM CHEEM
+16B3A ; [*0443.0020.0002] # PAHAWH HMONG SIGN VOS THIAB
+16B3B ; [*0444.0020.0002] # PAHAWH HMONG SIGN VOS FEEM
+16B3C ; [*0F87.0020.0002] # PAHAWH HMONG SIGN XYEEM NTXIV
+16B3D ; [*0F88.0020.0002] # PAHAWH HMONG SIGN XYEEM RHO
+16B3E ; [*0F89.0020.0002] # PAHAWH HMONG SIGN XYEEM TOV
+16B3F ; [*0F8A.0020.0002] # PAHAWH HMONG SIGN XYEEM FAIB
+16B44 ; [*0445.0020.0002] # PAHAWH HMONG SIGN XAUS
+16B45 ; [*0F8B.0020.0002] # PAHAWH HMONG SIGN CIM TSOV ROG
+16B5B ; [*189E.0020.0002] # PAHAWH HMONG NUMBER TENS
+16B5C ; [*189F.0020.0002] # PAHAWH HMONG NUMBER HUNDREDS
+16B5D ; [*18A0.0020.0002] # PAHAWH HMONG NUMBER TEN THOUSANDS
+16B5E ; [*18A1.0020.0002] # PAHAWH HMONG NUMBER MILLIONS
+16B5F ; [*18A2.0020.0002] # PAHAWH HMONG NUMBER HUNDRED MILLIONS
+16B60 ; [*18A3.0020.0002] # PAHAWH HMONG NUMBER TEN BILLIONS
+16B61 ; [*18A4.0020.0002] # PAHAWH HMONG NUMBER TRILLIONS
+1BC9C ; [*1171.0020.0002] # DUPLOYAN SIGN O WITH CROSS
+1BC9F ; [*0286.0020.0002] # DUPLOYAN PUNCTUATION CHINOOK FULL STOP
+1D000 ; [*0F8C.0020.0002] # BYZANTINE MUSICAL SYMBOL PSILI
+1D001 ; [*0F8D.0020.0002] # BYZANTINE MUSICAL SYMBOL DASEIA
+1D002 ; [*0F8E.0020.0002] # BYZANTINE MUSICAL SYMBOL PERISPOMENI
+1D003 ; [*0F8F.0020.0002] # BYZANTINE MUSICAL SYMBOL OXEIA EKFONITIKON
+1D004 ; [*0F90.0020.0002] # BYZANTINE MUSICAL SYMBOL OXEIA DIPLI
+1D005 ; [*0F91.0020.0002] # BYZANTINE MUSICAL SYMBOL VAREIA EKFONITIKON
+1D006 ; [*0F92.0020.0002] # BYZANTINE MUSICAL SYMBOL VAREIA DIPLI
+1D007 ; [*0F93.0020.0002] # BYZANTINE MUSICAL SYMBOL KATHISTI
+1D008 ; [*0F94.0020.0002] # BYZANTINE MUSICAL SYMBOL SYRMATIKI
+1D009 ; [*0F95.0020.0002] # BYZANTINE MUSICAL SYMBOL PARAKLITIKI
+1D00A ; [*0F96.0020.0002] # BYZANTINE MUSICAL SYMBOL YPOKRISIS
+1D00B ; [*0F97.0020.0002] # BYZANTINE MUSICAL SYMBOL YPOKRISIS DIPLI
+1D00C ; [*0F98.0020.0002] # BYZANTINE MUSICAL SYMBOL KREMASTI
+1D00D ; [*0F99.0020.0002] # BYZANTINE MUSICAL SYMBOL APESO EKFONITIKON
+1D00E ; [*0F9A.0020.0002] # BYZANTINE MUSICAL SYMBOL EXO EKFONITIKON
+1D00F ; [*0F9B.0020.0002] # BYZANTINE MUSICAL SYMBOL TELEIA
+1D010 ; [*0F9C.0020.0002] # BYZANTINE MUSICAL SYMBOL KENTIMATA
+1D011 ; [*0F9D.0020.0002] # BYZANTINE MUSICAL SYMBOL APOSTROFOS
+1D012 ; [*0F9E.0020.0002] # BYZANTINE MUSICAL SYMBOL APOSTROFOS DIPLI
+1D013 ; [*0F9F.0020.0002] # BYZANTINE MUSICAL SYMBOL SYNEVMA
+1D014 ; [*0FA0.0020.0002] # BYZANTINE MUSICAL SYMBOL THITA
+1D015 ; [*0FA1.0020.0002] # BYZANTINE MUSICAL SYMBOL OLIGON ARCHAION
+1D016 ; [*0FA2.0020.0002] # BYZANTINE MUSICAL SYMBOL GORGON ARCHAION
+1D017 ; [*0FA3.0020.0002] # BYZANTINE MUSICAL SYMBOL PSILON
+1D018 ; [*0FA4.0020.0002] # BYZANTINE MUSICAL SYMBOL CHAMILON
+1D019 ; [*0FA5.0020.0002] # BYZANTINE MUSICAL SYMBOL VATHY
+1D01A ; [*0FA6.0020.0002] # BYZANTINE MUSICAL SYMBOL ISON ARCHAION
+1D01B ; [*0FA7.0020.0002] # BYZANTINE MUSICAL SYMBOL KENTIMA ARCHAION
+1D01C ; [*0FA8.0020.0002] # BYZANTINE MUSICAL SYMBOL KENTIMATA ARCHAION
+1D01D ; [*0FA9.0020.0002] # BYZANTINE MUSICAL SYMBOL SAXIMATA
+1D01E ; [*0FAA.0020.0002] # BYZANTINE MUSICAL SYMBOL PARICHON
+1D01F ; [*0FAB.0020.0002] # BYZANTINE MUSICAL SYMBOL STAVROS APODEXIA
+1D020 ; [*0FAC.0020.0002] # BYZANTINE MUSICAL SYMBOL OXEIAI ARCHAION
+1D021 ; [*0FAD.0020.0002] # BYZANTINE MUSICAL SYMBOL VAREIAI ARCHAION
+1D022 ; [*0FAE.0020.0002] # BYZANTINE MUSICAL SYMBOL APODERMA ARCHAION
+1D023 ; [*0FAF.0020.0002] # BYZANTINE MUSICAL SYMBOL APOTHEMA
+1D024 ; [*0FB0.0020.0002] # BYZANTINE MUSICAL SYMBOL KLASMA
+1D025 ; [*0FB1.0020.0002] # BYZANTINE MUSICAL SYMBOL REVMA
+1D026 ; [*0FB2.0020.0002] # BYZANTINE MUSICAL SYMBOL PIASMA ARCHAION
+1D027 ; [*0FB3.0020.0002] # BYZANTINE MUSICAL SYMBOL TINAGMA
+1D028 ; [*0FB4.0020.0002] # BYZANTINE MUSICAL SYMBOL ANATRICHISMA
+1D029 ; [*0FB5.0020.0002] # BYZANTINE MUSICAL SYMBOL SEISMA
+1D02A ; [*0FB6.0020.0002] # BYZANTINE MUSICAL SYMBOL SYNAGMA ARCHAION
+1D02B ; [*0FB7.0020.0002] # BYZANTINE MUSICAL SYMBOL SYNAGMA META STAVROU
+1D02C ; [*0FB8.0020.0002] # BYZANTINE MUSICAL SYMBOL OYRANISMA ARCHAION
+1D02D ; [*0FB9.0020.0002] # BYZANTINE MUSICAL SYMBOL THEMA
+1D02E ; [*0FBA.0020.0002] # BYZANTINE MUSICAL SYMBOL LEMOI
+1D02F ; [*0FBB.0020.0002] # BYZANTINE MUSICAL SYMBOL DYO
+1D030 ; [*0FBC.0020.0002] # BYZANTINE MUSICAL SYMBOL TRIA
+1D031 ; [*0FBD.0020.0002] # BYZANTINE MUSICAL SYMBOL TESSERA
+1D032 ; [*0FBE.0020.0002] # BYZANTINE MUSICAL SYMBOL KRATIMATA
+1D033 ; [*0FBF.0020.0002] # BYZANTINE MUSICAL SYMBOL APESO EXO NEO
+1D034 ; [*0FC0.0020.0002] # BYZANTINE MUSICAL SYMBOL FTHORA ARCHAION
+1D035 ; [*0FC1.0020.0002] # BYZANTINE MUSICAL SYMBOL IMIFTHORA
+1D036 ; [*0FC2.0020.0002] # BYZANTINE MUSICAL SYMBOL TROMIKON ARCHAION
+1D037 ; [*0FC3.0020.0002] # BYZANTINE MUSICAL SYMBOL KATAVA TROMIKON
+1D038 ; [*0FC4.0020.0002] # BYZANTINE MUSICAL SYMBOL PELASTON
+1D039 ; [*0FC5.0020.0002] # BYZANTINE MUSICAL SYMBOL PSIFISTON
+1D03A ; [*0FC6.0020.0002] # BYZANTINE MUSICAL SYMBOL KONTEVMA
+1D03B ; [*0FC7.0020.0002] # BYZANTINE MUSICAL SYMBOL CHOREVMA ARCHAION
+1D03C ; [*0FC8.0020.0002] # BYZANTINE MUSICAL SYMBOL RAPISMA
+1D03D ; [*0FC9.0020.0002] # BYZANTINE MUSICAL SYMBOL PARAKALESMA ARCHAION
+1D03E ; [*0FCA.0020.0002] # BYZANTINE MUSICAL SYMBOL PARAKLITIKI ARCHAION
+1D03F ; [*0FCB.0020.0002] # BYZANTINE MUSICAL SYMBOL ICHADIN
+1D040 ; [*0FCC.0020.0002] # BYZANTINE MUSICAL SYMBOL NANA
+1D041 ; [*0FCD.0020.0002] # BYZANTINE MUSICAL SYMBOL PETASMA
+1D042 ; [*0FCE.0020.0002] # BYZANTINE MUSICAL SYMBOL KONTEVMA ALLO
+1D043 ; [*0FCF.0020.0002] # BYZANTINE MUSICAL SYMBOL TROMIKON ALLO
+1D044 ; [*0FD0.0020.0002] # BYZANTINE MUSICAL SYMBOL STRAGGISMATA
+1D045 ; [*0FD1.0020.0002] # BYZANTINE MUSICAL SYMBOL GRONTHISMATA
+1D046 ; [*0FD2.0020.0002] # BYZANTINE MUSICAL SYMBOL ISON NEO
+1D047 ; [*0FD3.0020.0002] # BYZANTINE MUSICAL SYMBOL OLIGON NEO
+1D048 ; [*0FD4.0020.0002] # BYZANTINE MUSICAL SYMBOL OXEIA NEO
+1D049 ; [*0FD5.0020.0002] # BYZANTINE MUSICAL SYMBOL PETASTI
+1D04A ; [*0FD6.0020.0002] # BYZANTINE MUSICAL SYMBOL KOUFISMA
+1D04B ; [*0FD7.0020.0002] # BYZANTINE MUSICAL SYMBOL PETASTOKOUFISMA
+1D04C ; [*0FD8.0020.0002] # BYZANTINE MUSICAL SYMBOL KRATIMOKOUFISMA
+1D04D ; [*0FD9.0020.0002] # BYZANTINE MUSICAL SYMBOL PELASTON NEO
+1D04E ; [*0FDA.0020.0002] # BYZANTINE MUSICAL SYMBOL KENTIMATA NEO ANO
+1D04F ; [*0FDB.0020.0002] # BYZANTINE MUSICAL SYMBOL KENTIMA NEO ANO
+1D050 ; [*0FDC.0020.0002] # BYZANTINE MUSICAL SYMBOL YPSILI
+1D051 ; [*0FDD.0020.0002] # BYZANTINE MUSICAL SYMBOL APOSTROFOS NEO
+1D052 ; [*0FDE.0020.0002] # BYZANTINE MUSICAL SYMBOL APOSTROFOI SYNDESMOS NEO
+1D053 ; [*0FDF.0020.0002] # BYZANTINE MUSICAL SYMBOL YPORROI
+1D054 ; [*0FE0.0020.0002] # BYZANTINE MUSICAL SYMBOL KRATIMOYPORROON
+1D055 ; [*0FE1.0020.0002] # BYZANTINE MUSICAL SYMBOL ELAFRON
+1D056 ; [*0FE2.0020.0002] # BYZANTINE MUSICAL SYMBOL CHAMILI
+1D057 ; [*0FE3.0020.0002] # BYZANTINE MUSICAL SYMBOL MIKRON ISON
+1D058 ; [*0FE4.0020.0002] # BYZANTINE MUSICAL SYMBOL VAREIA NEO
+1D059 ; [*0FE5.0020.0002] # BYZANTINE MUSICAL SYMBOL PIASMA NEO
+1D05A ; [*0FE6.0020.0002] # BYZANTINE MUSICAL SYMBOL PSIFISTON NEO
+1D05B ; [*0FE7.0020.0002] # BYZANTINE MUSICAL SYMBOL OMALON
+1D05C ; [*0FE8.0020.0002] # BYZANTINE MUSICAL SYMBOL ANTIKENOMA
+1D05D ; [*0FE9.0020.0002] # BYZANTINE MUSICAL SYMBOL LYGISMA
+1D05E ; [*0FEA.0020.0002] # BYZANTINE MUSICAL SYMBOL PARAKLITIKI NEO
+1D05F ; [*0FEB.0020.0002] # BYZANTINE MUSICAL SYMBOL PARAKALESMA NEO
+1D060 ; [*0FEC.0020.0002] # BYZANTINE MUSICAL SYMBOL ETERON PARAKALESMA
+1D061 ; [*0FED.0020.0002] # BYZANTINE MUSICAL SYMBOL KYLISMA
+1D062 ; [*0FEE.0020.0002] # BYZANTINE MUSICAL SYMBOL ANTIKENOKYLISMA
+1D063 ; [*0FEF.0020.0002] # BYZANTINE MUSICAL SYMBOL TROMIKON NEO
+1D064 ; [*0FF0.0020.0002] # BYZANTINE MUSICAL SYMBOL EKSTREPTON
+1D065 ; [*0FF1.0020.0002] # BYZANTINE MUSICAL SYMBOL SYNAGMA NEO
+1D066 ; [*0FF2.0020.0002] # BYZANTINE MUSICAL SYMBOL SYRMA
+1D067 ; [*0FF3.0020.0002] # BYZANTINE MUSICAL SYMBOL CHOREVMA NEO
+1D068 ; [*0FF4.0020.0002] # BYZANTINE MUSICAL SYMBOL EPEGERMA
+1D069 ; [*0FF5.0020.0002] # BYZANTINE MUSICAL SYMBOL SEISMA NEO
+1D06A ; [*0FF6.0020.0002] # BYZANTINE MUSICAL SYMBOL XIRON KLASMA
+1D06B ; [*0FF7.0020.0002] # BYZANTINE MUSICAL SYMBOL TROMIKOPSIFISTON
+1D06C ; [*0FF8.0020.0002] # BYZANTINE MUSICAL SYMBOL PSIFISTOLYGISMA
+1D06D ; [*0FF9.0020.0002] # BYZANTINE MUSICAL SYMBOL TROMIKOLYGISMA
+1D06E ; [*0FFA.0020.0002] # BYZANTINE MUSICAL SYMBOL TROMIKOPARAKALESMA
+1D06F ; [*0FFB.0020.0002] # BYZANTINE MUSICAL SYMBOL PSIFISTOPARAKALESMA
+1D070 ; [*0FFC.0020.0002] # BYZANTINE MUSICAL SYMBOL TROMIKOSYNAGMA
+1D071 ; [*0FFD.0020.0002] # BYZANTINE MUSICAL SYMBOL PSIFISTOSYNAGMA
+1D072 ; [*0FFE.0020.0002] # BYZANTINE MUSICAL SYMBOL GORGOSYNTHETON
+1D073 ; [*0FFF.0020.0002] # BYZANTINE MUSICAL SYMBOL ARGOSYNTHETON
+1D074 ; [*1000.0020.0002] # BYZANTINE MUSICAL SYMBOL ETERON ARGOSYNTHETON
+1D075 ; [*1001.0020.0002] # BYZANTINE MUSICAL SYMBOL OYRANISMA NEO
+1D076 ; [*1002.0020.0002] # BYZANTINE MUSICAL SYMBOL THEMATISMOS ESO
+1D077 ; [*1003.0020.0002] # BYZANTINE MUSICAL SYMBOL THEMATISMOS EXO
+1D078 ; [*1004.0020.0002] # BYZANTINE MUSICAL SYMBOL THEMA APLOUN
+1D079 ; [*1005.0020.0002] # BYZANTINE MUSICAL SYMBOL THES KAI APOTHES
+1D07A ; [*1006.0020.0002] # BYZANTINE MUSICAL SYMBOL KATAVASMA
+1D07B ; [*1007.0020.0002] # BYZANTINE MUSICAL SYMBOL ENDOFONON
+1D07C ; [*1008.0020.0002] # BYZANTINE MUSICAL SYMBOL YFEN KATO
+1D07D ; [*1009.0020.0002] # BYZANTINE MUSICAL SYMBOL YFEN ANO
+1D07E ; [*100A.0020.0002] # BYZANTINE MUSICAL SYMBOL STAVROS
+1D07F ; [*100B.0020.0002] # BYZANTINE MUSICAL SYMBOL KLASMA ANO
+1D080 ; [*100C.0020.0002] # BYZANTINE MUSICAL SYMBOL DIPLI ARCHAION
+1D081 ; [*100D.0020.0002] # BYZANTINE MUSICAL SYMBOL KRATIMA ARCHAION
+1D082 ; [*100E.0020.0002] # BYZANTINE MUSICAL SYMBOL KRATIMA ALLO
+1D083 ; [*100F.0020.0002] # BYZANTINE MUSICAL SYMBOL KRATIMA NEO
+1D084 ; [*1010.0020.0002] # BYZANTINE MUSICAL SYMBOL APODERMA NEO
+1D085 ; [*1011.0020.0002] # BYZANTINE MUSICAL SYMBOL APLI
+1D086 ; [*1012.0020.0002] # BYZANTINE MUSICAL SYMBOL DIPLI
+1D087 ; [*1013.0020.0002] # BYZANTINE MUSICAL SYMBOL TRIPLI
+1D088 ; [*1014.0020.0002] # BYZANTINE MUSICAL SYMBOL TETRAPLI
+1D089 ; [*1015.0020.0002] # BYZANTINE MUSICAL SYMBOL KORONIS
+1D08A ; [*1016.0020.0002] # BYZANTINE MUSICAL SYMBOL LEIMMA ENOS CHRONOU
+1D08B ; [*1017.0020.0002] # BYZANTINE MUSICAL SYMBOL LEIMMA DYO CHRONON
+1D08C ; [*1018.0020.0002] # BYZANTINE MUSICAL SYMBOL LEIMMA TRION CHRONON
+1D08D ; [*1019.0020.0002] # BYZANTINE MUSICAL SYMBOL LEIMMA TESSARON CHRONON
+1D08E ; [*101A.0020.0002] # BYZANTINE MUSICAL SYMBOL LEIMMA IMISEOS CHRONOU
+1D08F ; [*101B.0020.0002] # BYZANTINE MUSICAL SYMBOL GORGON NEO ANO
+1D090 ; [*101C.0020.0002] # BYZANTINE MUSICAL SYMBOL GORGON PARESTIGMENON ARISTERA
+1D091 ; [*101D.0020.0002] # BYZANTINE MUSICAL SYMBOL GORGON PARESTIGMENON DEXIA
+1D092 ; [*101E.0020.0002] # BYZANTINE MUSICAL SYMBOL DIGORGON
+1D093 ; [*101F.0020.0002] # BYZANTINE MUSICAL SYMBOL DIGORGON PARESTIGMENON ARISTERA KATO
+1D094 ; [*1020.0020.0002] # BYZANTINE MUSICAL SYMBOL DIGORGON PARESTIGMENON ARISTERA ANO
+1D095 ; [*1021.0020.0002] # BYZANTINE MUSICAL SYMBOL DIGORGON PARESTIGMENON DEXIA
+1D096 ; [*1022.0020.0002] # BYZANTINE MUSICAL SYMBOL TRIGORGON
+1D097 ; [*1023.0020.0002] # BYZANTINE MUSICAL SYMBOL ARGON
+1D098 ; [*1024.0020.0002] # BYZANTINE MUSICAL SYMBOL IMIDIARGON
+1D099 ; [*1025.0020.0002] # BYZANTINE MUSICAL SYMBOL DIARGON
+1D09A ; [*1026.0020.0002] # BYZANTINE MUSICAL SYMBOL AGOGI POLI ARGI
+1D09B ; [*1027.0020.0002] # BYZANTINE MUSICAL SYMBOL AGOGI ARGOTERI
+1D09C ; [*1028.0020.0002] # BYZANTINE MUSICAL SYMBOL AGOGI ARGI
+1D09D ; [*1029.0020.0002] # BYZANTINE MUSICAL SYMBOL AGOGI METRIA
+1D09E ; [*102A.0020.0002] # BYZANTINE MUSICAL SYMBOL AGOGI MESI
+1D09F ; [*102B.0020.0002] # BYZANTINE MUSICAL SYMBOL AGOGI GORGI
+1D0A0 ; [*102C.0020.0002] # BYZANTINE MUSICAL SYMBOL AGOGI GORGOTERI
+1D0A1 ; [*102D.0020.0002] # BYZANTINE MUSICAL SYMBOL AGOGI POLI GORGI
+1D0A2 ; [*102E.0020.0002] # BYZANTINE MUSICAL SYMBOL MARTYRIA PROTOS ICHOS
+1D0A3 ; [*102F.0020.0002] # BYZANTINE MUSICAL SYMBOL MARTYRIA ALLI PROTOS ICHOS
+1D0A4 ; [*1030.0020.0002] # BYZANTINE MUSICAL SYMBOL MARTYRIA DEYTEROS ICHOS
+1D0A5 ; [*1031.0020.0002] # BYZANTINE MUSICAL SYMBOL MARTYRIA ALLI DEYTEROS ICHOS
+1D0A6 ; [*1032.0020.0002] # BYZANTINE MUSICAL SYMBOL MARTYRIA TRITOS ICHOS
+1D0A7 ; [*1033.0020.0002] # BYZANTINE MUSICAL SYMBOL MARTYRIA TRIFONIAS
+1D0A8 ; [*1034.0020.0002] # BYZANTINE MUSICAL SYMBOL MARTYRIA TETARTOS ICHOS
+1D0A9 ; [*1035.0020.0002] # BYZANTINE MUSICAL SYMBOL MARTYRIA TETARTOS LEGETOS ICHOS
+1D0AA ; [*1036.0020.0002] # BYZANTINE MUSICAL SYMBOL MARTYRIA LEGETOS ICHOS
+1D0AB ; [*1037.0020.0002] # BYZANTINE MUSICAL SYMBOL MARTYRIA PLAGIOS ICHOS
+1D0AC ; [*1038.0020.0002] # BYZANTINE MUSICAL SYMBOL ISAKIA TELOUS ICHIMATOS
+1D0AD ; [*1039.0020.0002] # BYZANTINE MUSICAL SYMBOL APOSTROFOI TELOUS ICHIMATOS
+1D0AE ; [*103A.0020.0002] # BYZANTINE MUSICAL SYMBOL FANEROSIS TETRAFONIAS
+1D0AF ; [*103B.0020.0002] # BYZANTINE MUSICAL SYMBOL FANEROSIS MONOFONIAS
+1D0B0 ; [*103C.0020.0002] # BYZANTINE MUSICAL SYMBOL FANEROSIS DIFONIAS
+1D0B1 ; [*103D.0020.0002] # BYZANTINE MUSICAL SYMBOL MARTYRIA VARYS ICHOS
+1D0B2 ; [*103E.0020.0002] # BYZANTINE MUSICAL SYMBOL MARTYRIA PROTOVARYS ICHOS
+1D0B3 ; [*103F.0020.0002] # BYZANTINE MUSICAL SYMBOL MARTYRIA PLAGIOS TETARTOS ICHOS
+1D0B4 ; [*1040.0020.0002] # BYZANTINE MUSICAL SYMBOL GORTHMIKON N APLOUN
+1D0B5 ; [*1041.0020.0002] # BYZANTINE MUSICAL SYMBOL GORTHMIKON N DIPLOUN
+1D0B6 ; [*1042.0020.0002] # BYZANTINE MUSICAL SYMBOL ENARXIS KAI FTHORA VOU
+1D0B7 ; [*1043.0020.0002] # BYZANTINE MUSICAL SYMBOL IMIFONON
+1D0B8 ; [*1044.0020.0002] # BYZANTINE MUSICAL SYMBOL IMIFTHORON
+1D0B9 ; [*1045.0020.0002] # BYZANTINE MUSICAL SYMBOL FTHORA ARCHAION DEYTEROU ICHOU
+1D0BA ; [*1046.0020.0002] # BYZANTINE MUSICAL SYMBOL FTHORA DIATONIKI PA
+1D0BB ; [*1047.0020.0002] # BYZANTINE MUSICAL SYMBOL FTHORA DIATONIKI NANA
+1D0BC ; [*1048.0020.0002] # BYZANTINE MUSICAL SYMBOL FTHORA NAOS ICHOS
+1D0BD ; [*1049.0020.0002] # BYZANTINE MUSICAL SYMBOL FTHORA DIATONIKI DI
+1D0BE ; [*104A.0020.0002] # BYZANTINE MUSICAL SYMBOL FTHORA SKLIRON DIATONON DI
+1D0BF ; [*104B.0020.0002] # BYZANTINE MUSICAL SYMBOL FTHORA DIATONIKI KE
+1D0C0 ; [*104C.0020.0002] # BYZANTINE MUSICAL SYMBOL FTHORA DIATONIKI ZO
+1D0C1 ; [*104D.0020.0002] # BYZANTINE MUSICAL SYMBOL FTHORA DIATONIKI NI KATO
+1D0C2 ; [*104E.0020.0002] # BYZANTINE MUSICAL SYMBOL FTHORA DIATONIKI NI ANO
+1D0C3 ; [*104F.0020.0002] # BYZANTINE MUSICAL SYMBOL FTHORA MALAKON CHROMA DIFONIAS
+1D0C4 ; [*1050.0020.0002] # BYZANTINE MUSICAL SYMBOL FTHORA MALAKON CHROMA MONOFONIAS
+1D0C5 ; [*1051.0020.0002] # BYZANTINE MUSICAL SYMBOL FHTORA SKLIRON CHROMA VASIS
+1D0C6 ; [*1052.0020.0002] # BYZANTINE MUSICAL SYMBOL FTHORA SKLIRON CHROMA SYNAFI
+1D0C7 ; [*1053.0020.0002] # BYZANTINE MUSICAL SYMBOL FTHORA NENANO
+1D0C8 ; [*1054.0020.0002] # BYZANTINE MUSICAL SYMBOL CHROA ZYGOS
+1D0C9 ; [*1055.0020.0002] # BYZANTINE MUSICAL SYMBOL CHROA KLITON
+1D0CA ; [*1056.0020.0002] # BYZANTINE MUSICAL SYMBOL CHROA SPATHI
+1D0CB ; [*1057.0020.0002] # BYZANTINE MUSICAL SYMBOL FTHORA I YFESIS TETARTIMORION
+1D0CC ; [*1058.0020.0002] # BYZANTINE MUSICAL SYMBOL FTHORA ENARMONIOS ANTIFONIA
+1D0CD ; [*1059.0020.0002] # BYZANTINE MUSICAL SYMBOL YFESIS TRITIMORION
+1D0CE ; [*105A.0020.0002] # BYZANTINE MUSICAL SYMBOL DIESIS TRITIMORION
+1D0CF ; [*105B.0020.0002] # BYZANTINE MUSICAL SYMBOL DIESIS TETARTIMORION
+1D0D0 ; [*105C.0020.0002] # BYZANTINE MUSICAL SYMBOL DIESIS APLI DYO DODEKATA
+1D0D1 ; [*105D.0020.0002] # BYZANTINE MUSICAL SYMBOL DIESIS MONOGRAMMOS TESSERA DODEKATA
+1D0D2 ; [*105E.0020.0002] # BYZANTINE MUSICAL SYMBOL DIESIS DIGRAMMOS EX DODEKATA
+1D0D3 ; [*105F.0020.0002] # BYZANTINE MUSICAL SYMBOL DIESIS TRIGRAMMOS OKTO DODEKATA
+1D0D4 ; [*1060.0020.0002] # BYZANTINE MUSICAL SYMBOL YFESIS APLI DYO DODEKATA
+1D0D5 ; [*1061.0020.0002] # BYZANTINE MUSICAL SYMBOL YFESIS MONOGRAMMOS TESSERA DODEKATA
+1D0D6 ; [*1062.0020.0002] # BYZANTINE MUSICAL SYMBOL YFESIS DIGRAMMOS EX DODEKATA
+1D0D7 ; [*1063.0020.0002] # BYZANTINE MUSICAL SYMBOL YFESIS TRIGRAMMOS OKTO DODEKATA
+1D0D8 ; [*1064.0020.0002] # BYZANTINE MUSICAL SYMBOL GENIKI DIESIS
+1D0D9 ; [*1065.0020.0002] # BYZANTINE MUSICAL SYMBOL GENIKI YFESIS
+1D0DA ; [*1066.0020.0002] # BYZANTINE MUSICAL SYMBOL DIASTOLI APLI MIKRI
+1D0DB ; [*1067.0020.0002] # BYZANTINE MUSICAL SYMBOL DIASTOLI APLI MEGALI
+1D0DC ; [*1068.0020.0002] # BYZANTINE MUSICAL SYMBOL DIASTOLI DIPLI
+1D0DD ; [*1069.0020.0002] # BYZANTINE MUSICAL SYMBOL DIASTOLI THESEOS
+1D0DE ; [*106A.0020.0002] # BYZANTINE MUSICAL SYMBOL SIMANSIS THESEOS
+1D0DF ; [*106B.0020.0002] # BYZANTINE MUSICAL SYMBOL SIMANSIS THESEOS DISIMOU
+1D0E0 ; [*106C.0020.0002] # BYZANTINE MUSICAL SYMBOL SIMANSIS THESEOS TRISIMOU
+1D0E1 ; [*106D.0020.0002] # BYZANTINE MUSICAL SYMBOL SIMANSIS THESEOS TETRASIMOU
+1D0E2 ; [*106E.0020.0002] # BYZANTINE MUSICAL SYMBOL SIMANSIS ARSEOS
+1D0E3 ; [*106F.0020.0002] # BYZANTINE MUSICAL SYMBOL SIMANSIS ARSEOS DISIMOU
+1D0E4 ; [*1070.0020.0002] # BYZANTINE MUSICAL SYMBOL SIMANSIS ARSEOS TRISIMOU
+1D0E5 ; [*1071.0020.0002] # BYZANTINE MUSICAL SYMBOL SIMANSIS ARSEOS TETRASIMOU
+1D0E6 ; [*1072.0020.0002] # BYZANTINE MUSICAL SYMBOL DIGRAMMA GG
+1D0E7 ; [*1073.0020.0002] # BYZANTINE MUSICAL SYMBOL DIFTOGGOS OU
+1D0E8 ; [*1074.0020.0002] # BYZANTINE MUSICAL SYMBOL STIGMA
+1D0E9 ; [*1075.0020.0002] # BYZANTINE MUSICAL SYMBOL ARKTIKO PA
+1D0EA ; [*1076.0020.0002] # BYZANTINE MUSICAL SYMBOL ARKTIKO VOU
+1D0EB ; [*1077.0020.0002] # BYZANTINE MUSICAL SYMBOL ARKTIKO GA
+1D0EC ; [*1078.0020.0002] # BYZANTINE MUSICAL SYMBOL ARKTIKO DI
+1D0ED ; [*1079.0020.0002] # BYZANTINE MUSICAL SYMBOL ARKTIKO KE
+1D0EE ; [*107A.0020.0002] # BYZANTINE MUSICAL SYMBOL ARKTIKO ZO
+1D0EF ; [*107B.0020.0002] # BYZANTINE MUSICAL SYMBOL ARKTIKO NI
+1D0F0 ; [*107C.0020.0002] # BYZANTINE MUSICAL SYMBOL KENTIMATA NEO MESO
+1D0F1 ; [*107D.0020.0002] # BYZANTINE MUSICAL SYMBOL KENTIMA NEO MESO
+1D0F2 ; [*107E.0020.0002] # BYZANTINE MUSICAL SYMBOL KENTIMATA NEO KATO
+1D0F3 ; [*107F.0020.0002] # BYZANTINE MUSICAL SYMBOL KENTIMA NEO KATO
+1D0F4 ; [*1080.0020.0002] # BYZANTINE MUSICAL SYMBOL KLASMA KATO
+1D0F5 ; [*1081.0020.0002] # BYZANTINE MUSICAL SYMBOL GORGON NEO KATO
+1D100 ; [*1082.0020.0002] # MUSICAL SYMBOL SINGLE BARLINE
+1D101 ; [*1083.0020.0002] # MUSICAL SYMBOL DOUBLE BARLINE
+1D102 ; [*1084.0020.0002] # MUSICAL SYMBOL FINAL BARLINE
+1D103 ; [*1085.0020.0002] # MUSICAL SYMBOL REVERSE FINAL BARLINE
+1D104 ; [*1086.0020.0002] # MUSICAL SYMBOL DASHED BARLINE
+1D105 ; [*1087.0020.0002] # MUSICAL SYMBOL SHORT BARLINE
+1D106 ; [*1088.0020.0002] # MUSICAL SYMBOL LEFT REPEAT SIGN
+1D107 ; [*1089.0020.0002] # MUSICAL SYMBOL RIGHT REPEAT SIGN
+1D108 ; [*108A.0020.0002] # MUSICAL SYMBOL REPEAT DOTS
+1D109 ; [*108B.0020.0002] # MUSICAL SYMBOL DAL SEGNO
+1D10A ; [*108C.0020.0002] # MUSICAL SYMBOL DA CAPO
+1D10B ; [*108D.0020.0002] # MUSICAL SYMBOL SEGNO
+1D10C ; [*108E.0020.0002] # MUSICAL SYMBOL CODA
+1D10D ; [*108F.0020.0002] # MUSICAL SYMBOL REPEATED FIGURE-1
+1D10E ; [*1090.0020.0002] # MUSICAL SYMBOL REPEATED FIGURE-2
+1D10F ; [*1091.0020.0002] # MUSICAL SYMBOL REPEATED FIGURE-3
+1D110 ; [*1092.0020.0002] # MUSICAL SYMBOL FERMATA
+1D111 ; [*1093.0020.0002] # MUSICAL SYMBOL FERMATA BELOW
+1D112 ; [*1094.0020.0002] # MUSICAL SYMBOL BREATH MARK
+1D113 ; [*1095.0020.0002] # MUSICAL SYMBOL CAESURA
+1D114 ; [*1096.0020.0002] # MUSICAL SYMBOL BRACE
+1D115 ; [*1097.0020.0002] # MUSICAL SYMBOL BRACKET
+1D116 ; [*1098.0020.0002] # MUSICAL SYMBOL ONE-LINE STAFF
+1D117 ; [*1099.0020.0002] # MUSICAL SYMBOL TWO-LINE STAFF
+1D118 ; [*109A.0020.0002] # MUSICAL SYMBOL THREE-LINE STAFF
+1D119 ; [*109B.0020.0002] # MUSICAL SYMBOL FOUR-LINE STAFF
+1D11A ; [*109C.0020.0002] # MUSICAL SYMBOL FIVE-LINE STAFF
+1D11B ; [*109D.0020.0002] # MUSICAL SYMBOL SIX-LINE STAFF
+1D11C ; [*109E.0020.0002] # MUSICAL SYMBOL SIX-STRING FRETBOARD
+1D11D ; [*109F.0020.0002] # MUSICAL SYMBOL FOUR-STRING FRETBOARD
+1D11E ; [*10A0.0020.0002] # MUSICAL SYMBOL G CLEF
+1D11F ; [*10A1.0020.0002] # MUSICAL SYMBOL G CLEF OTTAVA ALTA
+1D120 ; [*10A2.0020.0002] # MUSICAL SYMBOL G CLEF OTTAVA BASSA
+1D121 ; [*10A3.0020.0002] # MUSICAL SYMBOL C CLEF
+1D122 ; [*10A4.0020.0002] # MUSICAL SYMBOL F CLEF
+1D123 ; [*10A5.0020.0002] # MUSICAL SYMBOL F CLEF OTTAVA ALTA
+1D124 ; [*10A6.0020.0002] # MUSICAL SYMBOL F CLEF OTTAVA BASSA
+1D125 ; [*10A7.0020.0002] # MUSICAL SYMBOL DRUM CLEF-1
+1D126 ; [*10A8.0020.0002] # MUSICAL SYMBOL DRUM CLEF-2
+1D129 ; [*10BC.0020.0002] # MUSICAL SYMBOL MULTIPLE MEASURE REST
+1D12A ; [*10AC.0020.0002] # MUSICAL SYMBOL DOUBLE SHARP
+1D12B ; [*10AD.0020.0002] # MUSICAL SYMBOL DOUBLE FLAT
+1D12C ; [*10AE.0020.0002] # MUSICAL SYMBOL FLAT UP
+1D12D ; [*10AF.0020.0002] # MUSICAL SYMBOL FLAT DOWN
+1D12E ; [*10B0.0020.0002] # MUSICAL SYMBOL NATURAL UP
+1D12F ; [*10B1.0020.0002] # MUSICAL SYMBOL NATURAL DOWN
+1D130 ; [*10B2.0020.0002] # MUSICAL SYMBOL SHARP UP
+1D131 ; [*10B3.0020.0002] # MUSICAL SYMBOL SHARP DOWN
+1D132 ; [*10B4.0020.0002] # MUSICAL SYMBOL QUARTER TONE SHARP
+1D133 ; [*10B5.0020.0002] # MUSICAL SYMBOL QUARTER TONE FLAT
+1D134 ; [*10B6.0020.0002] # MUSICAL SYMBOL COMMON TIME
+1D135 ; [*10B7.0020.0002] # MUSICAL SYMBOL CUT TIME
+1D136 ; [*10B8.0020.0002] # MUSICAL SYMBOL OTTAVA ALTA
+1D137 ; [*10B9.0020.0002] # MUSICAL SYMBOL OTTAVA BASSA
+1D138 ; [*10BA.0020.0002] # MUSICAL SYMBOL QUINDICESIMA ALTA
+1D139 ; [*10BB.0020.0002] # MUSICAL SYMBOL QUINDICESIMA BASSA
+1D13A ; [*10BD.0020.0002] # MUSICAL SYMBOL MULTI REST
+1D13B ; [*10BE.0020.0002] # MUSICAL SYMBOL WHOLE REST
+1D13C ; [*10BF.0020.0002] # MUSICAL SYMBOL HALF REST
+1D13D ; [*10C0.0020.0002] # MUSICAL SYMBOL QUARTER REST
+1D13E ; [*10C1.0020.0002] # MUSICAL SYMBOL EIGHTH REST
+1D13F ; [*10C2.0020.0002] # MUSICAL SYMBOL SIXTEENTH REST
+1D140 ; [*10C3.0020.0002] # MUSICAL SYMBOL THIRTY-SECOND REST
+1D141 ; [*10C4.0020.0002] # MUSICAL SYMBOL SIXTY-FOURTH REST
+1D142 ; [*10C5.0020.0002] # MUSICAL SYMBOL ONE HUNDRED TWENTY-EIGHTH REST
+1D143 ; [*10C6.0020.0002] # MUSICAL SYMBOL X NOTEHEAD
+1D144 ; [*10C7.0020.0002] # MUSICAL SYMBOL PLUS NOTEHEAD
+1D145 ; [*10C8.0020.0002] # MUSICAL SYMBOL CIRCLE X NOTEHEAD
+1D146 ; [*10C9.0020.0002] # MUSICAL SYMBOL SQUARE NOTEHEAD WHITE
+1D147 ; [*10CA.0020.0002] # MUSICAL SYMBOL SQUARE NOTEHEAD BLACK
+1D148 ; [*10CB.0020.0002] # MUSICAL SYMBOL TRIANGLE NOTEHEAD UP WHITE
+1D149 ; [*10CC.0020.0002] # MUSICAL SYMBOL TRIANGLE NOTEHEAD UP BLACK
+1D14A ; [*10CD.0020.0002] # MUSICAL SYMBOL TRIANGLE NOTEHEAD LEFT WHITE
+1D14B ; [*10CE.0020.0002] # MUSICAL SYMBOL TRIANGLE NOTEHEAD LEFT BLACK
+1D14C ; [*10CF.0020.0002] # MUSICAL SYMBOL TRIANGLE NOTEHEAD RIGHT WHITE
+1D14D ; [*10D0.0020.0002] # MUSICAL SYMBOL TRIANGLE NOTEHEAD RIGHT BLACK
+1D14E ; [*10D1.0020.0002] # MUSICAL SYMBOL TRIANGLE NOTEHEAD DOWN WHITE
+1D14F ; [*10D2.0020.0002] # MUSICAL SYMBOL TRIANGLE NOTEHEAD DOWN BLACK
+1D150 ; [*10D3.0020.0002] # MUSICAL SYMBOL TRIANGLE NOTEHEAD UP RIGHT WHITE
+1D151 ; [*10D4.0020.0002] # MUSICAL SYMBOL TRIANGLE NOTEHEAD UP RIGHT BLACK
+1D152 ; [*10D5.0020.0002] # MUSICAL SYMBOL MOON NOTEHEAD WHITE
+1D153 ; [*10D6.0020.0002] # MUSICAL SYMBOL MOON NOTEHEAD BLACK
+1D154 ; [*10D7.0020.0002] # MUSICAL SYMBOL TRIANGLE-ROUND NOTEHEAD DOWN WHITE
+1D155 ; [*10D8.0020.0002] # MUSICAL SYMBOL TRIANGLE-ROUND NOTEHEAD DOWN BLACK
+1D156 ; [*10D9.0020.0002] # MUSICAL SYMBOL PARENTHESIS NOTEHEAD
+1D157 ; [*10DA.0020.0002] # MUSICAL SYMBOL VOID NOTEHEAD
+1D158 ; [*10DB.0020.0002] # MUSICAL SYMBOL NOTEHEAD BLACK
+1D159 ; [*10DC.0020.0002] # MUSICAL SYMBOL NULL NOTEHEAD
+1D15A ; [*10DD.0020.0002] # MUSICAL SYMBOL CLUSTER NOTEHEAD WHITE
+1D15B ; [*10DE.0020.0002] # MUSICAL SYMBOL CLUSTER NOTEHEAD BLACK
+1D15C ; [*10DF.0020.0002] # MUSICAL SYMBOL BREVE
+1D15D ; [*10E0.0020.0002] # MUSICAL SYMBOL WHOLE NOTE
+1D15E ; [*10DA.0020.0002][.0000.0000.0000] # MUSICAL SYMBOL HALF NOTE
+1D15F ; [*10DB.0020.0002][.0000.0000.0000] # MUSICAL SYMBOL QUARTER NOTE
+1D160 ; [*10DB.0020.0002][.0000.0000.0000][.0000.0000.0000] # MUSICAL SYMBOL EIGHTH NOTE
+1D161 ; [*10DB.0020.0002][.0000.0000.0000][.0000.0000.0000] # MUSICAL SYMBOL SIXTEENTH NOTE
+1D162 ; [*10DB.0020.0002][.0000.0000.0000][.0000.0000.0000] # MUSICAL SYMBOL THIRTY-SECOND NOTE
+1D163 ; [*10DB.0020.0002][.0000.0000.0000][.0000.0000.0000] # MUSICAL SYMBOL SIXTY-FOURTH NOTE
+1D164 ; [*10DB.0020.0002][.0000.0000.0000][.0000.0000.0000] # MUSICAL SYMBOL ONE HUNDRED TWENTY-EIGHTH NOTE
+1D165 ; [.0000.0000.0000] # MUSICAL SYMBOL COMBINING STEM
+1D166 ; [.0000.0000.0000] # MUSICAL SYMBOL COMBINING SPRECHGESANG STEM
+1D167 ; [.0000.0000.0000] # MUSICAL SYMBOL COMBINING TREMOLO-1
+1D168 ; [.0000.0000.0000] # MUSICAL SYMBOL COMBINING TREMOLO-2
+1D169 ; [.0000.0000.0000] # MUSICAL SYMBOL COMBINING TREMOLO-3
+1D16A ; [*10E1.0020.0002] # MUSICAL SYMBOL FINGERED TREMOLO-1
+1D16B ; [*10E2.0020.0002] # MUSICAL SYMBOL FINGERED TREMOLO-2
+1D16C ; [*10E3.0020.0002] # MUSICAL SYMBOL FINGERED TREMOLO-3
+1D16D ; [.0000.0000.0000] # MUSICAL SYMBOL COMBINING AUGMENTATION DOT
+1D16E ; [.0000.0000.0000] # MUSICAL SYMBOL COMBINING FLAG-1
+1D16F ; [.0000.0000.0000] # MUSICAL SYMBOL COMBINING FLAG-2
+1D170 ; [.0000.0000.0000] # MUSICAL SYMBOL COMBINING FLAG-3
+1D171 ; [.0000.0000.0000] # MUSICAL SYMBOL COMBINING FLAG-4
+1D172 ; [.0000.0000.0000] # MUSICAL SYMBOL COMBINING FLAG-5
+1D17B ; [.0000.0000.0000] # MUSICAL SYMBOL COMBINING ACCENT
+1D17C ; [.0000.0000.0000] # MUSICAL SYMBOL COMBINING STACCATO
+1D17D ; [.0000.0000.0000] # MUSICAL SYMBOL COMBINING TENUTO
+1D17E ; [.0000.0000.0000] # MUSICAL SYMBOL COMBINING STACCATISSIMO
+1D17F ; [.0000.0000.0000] # MUSICAL SYMBOL COMBINING MARCATO
+1D180 ; [.0000.0000.0000] # MUSICAL SYMBOL COMBINING MARCATO-STACCATO
+1D181 ; [.0000.0000.0000] # MUSICAL SYMBOL COMBINING ACCENT-STACCATO
+1D182 ; [.0000.0000.0000] # MUSICAL SYMBOL COMBINING LOURE
+1D183 ; [*10E4.0020.0002] # MUSICAL SYMBOL ARPEGGIATO UP
+1D184 ; [*10E5.0020.0002] # MUSICAL SYMBOL ARPEGGIATO DOWN
+1D185 ; [.0000.0000.0000] # MUSICAL SYMBOL COMBINING DOIT
+1D186 ; [.0000.0000.0000] # MUSICAL SYMBOL COMBINING RIP
+1D187 ; [.0000.0000.0000] # MUSICAL SYMBOL COMBINING FLIP
+1D188 ; [.0000.0000.0000] # MUSICAL SYMBOL COMBINING SMEAR
+1D189 ; [.0000.0000.0000] # MUSICAL SYMBOL COMBINING BEND
+1D18A ; [.0000.0000.0000] # MUSICAL SYMBOL COMBINING DOUBLE TONGUE
+1D18B ; [.0000.0000.0000] # MUSICAL SYMBOL COMBINING TRIPLE TONGUE
+1D18C ; [*10E6.0020.0002] # MUSICAL SYMBOL RINFORZANDO
+1D18D ; [*10E7.0020.0002] # MUSICAL SYMBOL SUBITO
+1D18E ; [*10E8.0020.0002] # MUSICAL SYMBOL Z
+1D18F ; [*10E9.0020.0002] # MUSICAL SYMBOL PIANO
+1D190 ; [*10EA.0020.0002] # MUSICAL SYMBOL MEZZO
+1D191 ; [*10EB.0020.0002] # MUSICAL SYMBOL FORTE
+1D192 ; [*10EC.0020.0002] # MUSICAL SYMBOL CRESCENDO
+1D193 ; [*10ED.0020.0002] # MUSICAL SYMBOL DECRESCENDO
+1D194 ; [*10EE.0020.0002] # MUSICAL SYMBOL GRACE NOTE SLASH
+1D195 ; [*10EF.0020.0002] # MUSICAL SYMBOL GRACE NOTE NO SLASH
+1D196 ; [*10F0.0020.0002] # MUSICAL SYMBOL TR
+1D197 ; [*10F1.0020.0002] # MUSICAL SYMBOL TURN
+1D198 ; [*10F2.0020.0002] # MUSICAL SYMBOL INVERTED TURN
+1D199 ; [*10F3.0020.0002] # MUSICAL SYMBOL TURN SLASH
+1D19A ; [*10F4.0020.0002] # MUSICAL SYMBOL TURN UP
+1D19B ; [*10F5.0020.0002] # MUSICAL SYMBOL ORNAMENT STROKE-1
+1D19C ; [*10F6.0020.0002] # MUSICAL SYMBOL ORNAMENT STROKE-2
+1D19D ; [*10F7.0020.0002] # MUSICAL SYMBOL ORNAMENT STROKE-3
+1D19E ; [*10F8.0020.0002] # MUSICAL SYMBOL ORNAMENT STROKE-4
+1D19F ; [*10F9.0020.0002] # MUSICAL SYMBOL ORNAMENT STROKE-5
+1D1A0 ; [*10FA.0020.0002] # MUSICAL SYMBOL ORNAMENT STROKE-6
+1D1A1 ; [*10FB.0020.0002] # MUSICAL SYMBOL ORNAMENT STROKE-7
+1D1A2 ; [*10FC.0020.0002] # MUSICAL SYMBOL ORNAMENT STROKE-8
+1D1A3 ; [*10FD.0020.0002] # MUSICAL SYMBOL ORNAMENT STROKE-9
+1D1A4 ; [*10FE.0020.0002] # MUSICAL SYMBOL ORNAMENT STROKE-10
+1D1A5 ; [*10FF.0020.0002] # MUSICAL SYMBOL ORNAMENT STROKE-11
+1D1A6 ; [*1100.0020.0002] # MUSICAL SYMBOL HAUPTSTIMME
+1D1A7 ; [*1101.0020.0002] # MUSICAL SYMBOL NEBENSTIMME
+1D1A8 ; [*1102.0020.0002] # MUSICAL SYMBOL END OF STIMME
+1D1A9 ; [*1103.0020.0002] # MUSICAL SYMBOL DEGREE SLASH
+1D1AA ; [.0000.0000.0000] # MUSICAL SYMBOL COMBINING DOWN BOW
+1D1AB ; [.0000.0000.0000] # MUSICAL SYMBOL COMBINING UP BOW
+1D1AC ; [.0000.0000.0000] # MUSICAL SYMBOL COMBINING HARMONIC
+1D1AD ; [.0000.0000.0000] # MUSICAL SYMBOL COMBINING SNAP PIZZICATO
+1D1AE ; [*1104.0020.0002] # MUSICAL SYMBOL PEDAL MARK
+1D1AF ; [*1105.0020.0002] # MUSICAL SYMBOL PEDAL UP MARK
+1D1B0 ; [*1106.0020.0002] # MUSICAL SYMBOL HALF PEDAL MARK
+1D1B1 ; [*1107.0020.0002] # MUSICAL SYMBOL GLISSANDO UP
+1D1B2 ; [*1108.0020.0002] # MUSICAL SYMBOL GLISSANDO DOWN
+1D1B3 ; [*1109.0020.0002] # MUSICAL SYMBOL WITH FINGERNAILS
+1D1B4 ; [*110A.0020.0002] # MUSICAL SYMBOL DAMP
+1D1B5 ; [*110B.0020.0002] # MUSICAL SYMBOL DAMP ALL
+1D1B6 ; [*110C.0020.0002] # MUSICAL SYMBOL MAXIMA
+1D1B7 ; [*110D.0020.0002] # MUSICAL SYMBOL LONGA
+1D1B8 ; [*110E.0020.0002] # MUSICAL SYMBOL BREVIS
+1D1B9 ; [*110F.0020.0002] # MUSICAL SYMBOL SEMIBREVIS WHITE
+1D1BA ; [*1110.0020.0002] # MUSICAL SYMBOL SEMIBREVIS BLACK
+1D1BB ; [*110F.0020.0002][.0000.0000.0000] # MUSICAL SYMBOL MINIMA
+1D1BC ; [*1110.0020.0002][.0000.0000.0000] # MUSICAL SYMBOL MINIMA BLACK
+1D1BD ; [*110F.0020.0002][.0000.0000.0000][.0000.0000.0000] # MUSICAL SYMBOL SEMIMINIMA WHITE
+1D1BE ; [*1110.0020.0002][.0000.0000.0000][.0000.0000.0000] # MUSICAL SYMBOL SEMIMINIMA BLACK
+1D1BF ; [*110F.0020.0002][.0000.0000.0000][.0000.0000.0000] # MUSICAL SYMBOL FUSA WHITE
+1D1C0 ; [*1110.0020.0002][.0000.0000.0000][.0000.0000.0000] # MUSICAL SYMBOL FUSA BLACK
+1D1C1 ; [*1111.0020.0002] # MUSICAL SYMBOL LONGA PERFECTA REST
+1D1C2 ; [*1112.0020.0002] # MUSICAL SYMBOL LONGA IMPERFECTA REST
+1D1C3 ; [*1113.0020.0002] # MUSICAL SYMBOL BREVIS REST
+1D1C4 ; [*1114.0020.0002] # MUSICAL SYMBOL SEMIBREVIS REST
+1D1C5 ; [*1115.0020.0002] # MUSICAL SYMBOL MINIMA REST
+1D1C6 ; [*1116.0020.0002] # MUSICAL SYMBOL SEMIMINIMA REST
+1D1C7 ; [*1117.0020.0002] # MUSICAL SYMBOL TEMPUS PERFECTUM CUM PROLATIONE PERFECTA
+1D1C8 ; [*1118.0020.0002] # MUSICAL SYMBOL TEMPUS PERFECTUM CUM PROLATIONE IMPERFECTA
+1D1C9 ; [*1119.0020.0002] # MUSICAL SYMBOL TEMPUS PERFECTUM CUM PROLATIONE PERFECTA DIMINUTION-1
+1D1CA ; [*111A.0020.0002] # MUSICAL SYMBOL TEMPUS IMPERFECTUM CUM PROLATIONE PERFECTA
+1D1CB ; [*111B.0020.0002] # MUSICAL SYMBOL TEMPUS IMPERFECTUM CUM PROLATIONE IMPERFECTA
+1D1CC ; [*111C.0020.0002] # MUSICAL SYMBOL TEMPUS IMPERFECTUM CUM PROLATIONE IMPERFECTA DIMINUTION-1
+1D1CD ; [*111D.0020.0002] # MUSICAL SYMBOL TEMPUS IMPERFECTUM CUM PROLATIONE IMPERFECTA DIMINUTION-2
+1D1CE ; [*111E.0020.0002] # MUSICAL SYMBOL TEMPUS IMPERFECTUM CUM PROLATIONE IMPERFECTA DIMINUTION-3
+1D1CF ; [*111F.0020.0002] # MUSICAL SYMBOL CROIX
+1D1D0 ; [*1120.0020.0002] # MUSICAL SYMBOL GREGORIAN C CLEF
+1D1D1 ; [*1121.0020.0002] # MUSICAL SYMBOL GREGORIAN F CLEF
+1D1D2 ; [*1122.0020.0002] # MUSICAL SYMBOL SQUARE B
+1D1D3 ; [*1123.0020.0002] # MUSICAL SYMBOL VIRGA
+1D1D4 ; [*1124.0020.0002] # MUSICAL SYMBOL PODATUS
+1D1D5 ; [*1125.0020.0002] # MUSICAL SYMBOL CLIVIS
+1D1D6 ; [*1126.0020.0002] # MUSICAL SYMBOL SCANDICUS
+1D1D7 ; [*1127.0020.0002] # MUSICAL SYMBOL CLIMACUS
+1D1D8 ; [*1128.0020.0002] # MUSICAL SYMBOL TORCULUS
+1D1D9 ; [*1129.0020.0002] # MUSICAL SYMBOL PORRECTUS
+1D1DA ; [*112A.0020.0002] # MUSICAL SYMBOL PORRECTUS FLEXUS
+1D1DB ; [*112B.0020.0002] # MUSICAL SYMBOL SCANDICUS FLEXUS
+1D1DC ; [*112C.0020.0002] # MUSICAL SYMBOL TORCULUS RESUPINUS
+1D1DD ; [*112D.0020.0002] # MUSICAL SYMBOL PES SUBPUNCTIS
+1D200 ; [*112E.0020.0002] # GREEK VOCAL NOTATION SYMBOL-1
+1D201 ; [*112F.0020.0002] # GREEK VOCAL NOTATION SYMBOL-2
+1D202 ; [*1130.0020.0002] # GREEK VOCAL NOTATION SYMBOL-3
+1D203 ; [*1131.0020.0002] # GREEK VOCAL NOTATION SYMBOL-4
+1D204 ; [*1132.0020.0002] # GREEK VOCAL NOTATION SYMBOL-5
+1D205 ; [*1133.0020.0002] # GREEK VOCAL NOTATION SYMBOL-6
+1D206 ; [*1134.0020.0002] # GREEK VOCAL NOTATION SYMBOL-7
+1D207 ; [*1135.0020.0002] # GREEK VOCAL NOTATION SYMBOL-8
+1D208 ; [*1136.0020.0002] # GREEK VOCAL NOTATION SYMBOL-9
+1D209 ; [*1137.0020.0002] # GREEK VOCAL NOTATION SYMBOL-10
+1D20A ; [*1138.0020.0002] # GREEK VOCAL NOTATION SYMBOL-11
+1D20B ; [*1139.0020.0002] # GREEK VOCAL NOTATION SYMBOL-12
+1D20C ; [*113A.0020.0002] # GREEK VOCAL NOTATION SYMBOL-13
+1D20D ; [*113B.0020.0002] # GREEK VOCAL NOTATION SYMBOL-14
+1D20E ; [*113C.0020.0002] # GREEK VOCAL NOTATION SYMBOL-15
+1D20F ; [*113D.0020.0002] # GREEK VOCAL NOTATION SYMBOL-16
+1D210 ; [*113E.0020.0002] # GREEK VOCAL NOTATION SYMBOL-17
+1D211 ; [*113F.0020.0002] # GREEK VOCAL NOTATION SYMBOL-18
+1D212 ; [*1140.0020.0002] # GREEK VOCAL NOTATION SYMBOL-19
+1D213 ; [*1141.0020.0002] # GREEK VOCAL NOTATION SYMBOL-20
+1D214 ; [*1142.0020.0002] # GREEK VOCAL NOTATION SYMBOL-21
+1D215 ; [*1143.0020.0002] # GREEK VOCAL NOTATION SYMBOL-22
+1D216 ; [*1144.0020.0002] # GREEK VOCAL NOTATION SYMBOL-23
+1D217 ; [*1145.0020.0002] # GREEK VOCAL NOTATION SYMBOL-24
+1D218 ; [*1146.0020.0002] # GREEK VOCAL NOTATION SYMBOL-50
+1D219 ; [*1147.0020.0002] # GREEK VOCAL NOTATION SYMBOL-51
+1D21A ; [*1148.0020.0002] # GREEK VOCAL NOTATION SYMBOL-52
+1D21B ; [*1149.0020.0002] # GREEK VOCAL NOTATION SYMBOL-53
+1D21C ; [*114A.0020.0002] # GREEK VOCAL NOTATION SYMBOL-54
+1D21D ; [*114B.0020.0002] # GREEK INSTRUMENTAL NOTATION SYMBOL-1
+1D21E ; [*114C.0020.0002] # GREEK INSTRUMENTAL NOTATION SYMBOL-2
+1D21F ; [*114D.0020.0002] # GREEK INSTRUMENTAL NOTATION SYMBOL-4
+1D220 ; [*114E.0020.0002] # GREEK INSTRUMENTAL NOTATION SYMBOL-5
+1D221 ; [*114F.0020.0002] # GREEK INSTRUMENTAL NOTATION SYMBOL-7
+1D222 ; [*1150.0020.0002] # GREEK INSTRUMENTAL NOTATION SYMBOL-8
+1D223 ; [*1151.0020.0002] # GREEK INSTRUMENTAL NOTATION SYMBOL-11
+1D224 ; [*1152.0020.0002] # GREEK INSTRUMENTAL NOTATION SYMBOL-12
+1D225 ; [*1153.0020.0002] # GREEK INSTRUMENTAL NOTATION SYMBOL-13
+1D226 ; [*1154.0020.0002] # GREEK INSTRUMENTAL NOTATION SYMBOL-14
+1D227 ; [*1155.0020.0002] # GREEK INSTRUMENTAL NOTATION SYMBOL-17
+1D228 ; [*1156.0020.0002] # GREEK INSTRUMENTAL NOTATION SYMBOL-18
+1D229 ; [*1157.0020.0002] # GREEK INSTRUMENTAL NOTATION SYMBOL-19
+1D22A ; [*1158.0020.0002] # GREEK INSTRUMENTAL NOTATION SYMBOL-23
+1D22B ; [*1159.0020.0002] # GREEK INSTRUMENTAL NOTATION SYMBOL-24
+1D22C ; [*115A.0020.0002] # GREEK INSTRUMENTAL NOTATION SYMBOL-25
+1D22D ; [*115B.0020.0002] # GREEK INSTRUMENTAL NOTATION SYMBOL-26
+1D22E ; [*115C.0020.0002] # GREEK INSTRUMENTAL NOTATION SYMBOL-27
+1D22F ; [*115D.0020.0002] # GREEK INSTRUMENTAL NOTATION SYMBOL-29
+1D230 ; [*115E.0020.0002] # GREEK INSTRUMENTAL NOTATION SYMBOL-30
+1D231 ; [*115F.0020.0002] # GREEK INSTRUMENTAL NOTATION SYMBOL-32
+1D232 ; [*1160.0020.0002] # GREEK INSTRUMENTAL NOTATION SYMBOL-36
+1D233 ; [*1161.0020.0002] # GREEK INSTRUMENTAL NOTATION SYMBOL-37
+1D234 ; [*1162.0020.0002] # GREEK INSTRUMENTAL NOTATION SYMBOL-38
+1D235 ; [*1163.0020.0002] # GREEK INSTRUMENTAL NOTATION SYMBOL-39
+1D236 ; [*1164.0020.0002] # GREEK INSTRUMENTAL NOTATION SYMBOL-40
+1D237 ; [*1165.0020.0002] # GREEK INSTRUMENTAL NOTATION SYMBOL-42
+1D238 ; [*1166.0020.0002] # GREEK INSTRUMENTAL NOTATION SYMBOL-43
+1D239 ; [*1167.0020.0002] # GREEK INSTRUMENTAL NOTATION SYMBOL-45
+1D23A ; [*1168.0020.0002] # GREEK INSTRUMENTAL NOTATION SYMBOL-47
+1D23B ; [*1169.0020.0002] # GREEK INSTRUMENTAL NOTATION SYMBOL-48
+1D23C ; [*116A.0020.0002] # GREEK INSTRUMENTAL NOTATION SYMBOL-49
+1D23D ; [*116B.0020.0002] # GREEK INSTRUMENTAL NOTATION SYMBOL-50
+1D23E ; [*116C.0020.0002] # GREEK INSTRUMENTAL NOTATION SYMBOL-51
+1D23F ; [*116D.0020.0002] # GREEK INSTRUMENTAL NOTATION SYMBOL-52
+1D240 ; [*116E.0020.0002] # GREEK INSTRUMENTAL NOTATION SYMBOL-53
+1D241 ; [*116F.0020.0002] # GREEK INSTRUMENTAL NOTATION SYMBOL-54
+1D242 ; [.0000.0000.0000] # COMBINING GREEK MUSICAL TRISEME
+1D243 ; [.0000.0000.0000] # COMBINING GREEK MUSICAL TETRASEME
+1D244 ; [.0000.0000.0000] # COMBINING GREEK MUSICAL PENTASEME
+1D245 ; [*1170.0020.0002] # GREEK MUSICAL LEIMMA
+1D300 ; [*0EA2.0020.0002] # MONOGRAM FOR EARTH
+1D301 ; [*0EA3.0020.0002] # DIGRAM FOR HEAVENLY EARTH
+1D302 ; [*0EA4.0020.0002] # DIGRAM FOR HUMAN EARTH
+1D303 ; [*0EA5.0020.0002] # DIGRAM FOR EARTHLY HEAVEN
+1D304 ; [*0EA6.0020.0002] # DIGRAM FOR EARTHLY HUMAN
+1D305 ; [*0EA7.0020.0002] # DIGRAM FOR EARTH
+1D306 ; [*0EA8.0020.0002] # TETRAGRAM FOR CENTRE
+1D307 ; [*0EA9.0020.0002] # TETRAGRAM FOR FULL CIRCLE
+1D308 ; [*0EAA.0020.0002] # TETRAGRAM FOR MIRED
+1D309 ; [*0EAB.0020.0002] # TETRAGRAM FOR BARRIER
+1D30A ; [*0EAC.0020.0002] # TETRAGRAM FOR KEEPING SMALL
+1D30B ; [*0EAD.0020.0002] # TETRAGRAM FOR CONTRARIETY
+1D30C ; [*0EAE.0020.0002] # TETRAGRAM FOR ASCENT
+1D30D ; [*0EAF.0020.0002] # TETRAGRAM FOR OPPOSITION
+1D30E ; [*0EB0.0020.0002] # TETRAGRAM FOR BRANCHING OUT
+1D30F ; [*0EB1.0020.0002] # TETRAGRAM FOR DEFECTIVENESS OR DISTORTION
+1D310 ; [*0EB2.0020.0002] # TETRAGRAM FOR DIVERGENCE
+1D311 ; [*0EB3.0020.0002] # TETRAGRAM FOR YOUTHFULNESS
+1D312 ; [*0EB4.0020.0002] # TETRAGRAM FOR INCREASE
+1D313 ; [*0EB5.0020.0002] # TETRAGRAM FOR PENETRATION
+1D314 ; [*0EB6.0020.0002] # TETRAGRAM FOR REACH
+1D315 ; [*0EB7.0020.0002] # TETRAGRAM FOR CONTACT
+1D316 ; [*0EB8.0020.0002] # TETRAGRAM FOR HOLDING BACK
+1D317 ; [*0EB9.0020.0002] # TETRAGRAM FOR WAITING
+1D318 ; [*0EBA.0020.0002] # TETRAGRAM FOR FOLLOWING
+1D319 ; [*0EBB.0020.0002] # TETRAGRAM FOR ADVANCE
+1D31A ; [*0EBC.0020.0002] # TETRAGRAM FOR RELEASE
+1D31B ; [*0EBD.0020.0002] # TETRAGRAM FOR RESISTANCE
+1D31C ; [*0EBE.0020.0002] # TETRAGRAM FOR EASE
+1D31D ; [*0EBF.0020.0002] # TETRAGRAM FOR JOY
+1D31E ; [*0EC0.0020.0002] # TETRAGRAM FOR CONTENTION
+1D31F ; [*0EC1.0020.0002] # TETRAGRAM FOR ENDEAVOUR
+1D320 ; [*0EC2.0020.0002] # TETRAGRAM FOR DUTIES
+1D321 ; [*0EC3.0020.0002] # TETRAGRAM FOR CHANGE
+1D322 ; [*0EC4.0020.0002] # TETRAGRAM FOR DECISIVENESS
+1D323 ; [*0EC5.0020.0002] # TETRAGRAM FOR BOLD RESOLUTION
+1D324 ; [*0EC6.0020.0002] # TETRAGRAM FOR PACKING
+1D325 ; [*0EC7.0020.0002] # TETRAGRAM FOR LEGION
+1D326 ; [*0EC8.0020.0002] # TETRAGRAM FOR CLOSENESS
+1D327 ; [*0EC9.0020.0002] # TETRAGRAM FOR KINSHIP
+1D328 ; [*0ECA.0020.0002] # TETRAGRAM FOR GATHERING
+1D329 ; [*0ECB.0020.0002] # TETRAGRAM FOR STRENGTH
+1D32A ; [*0ECC.0020.0002] # TETRAGRAM FOR PURITY
+1D32B ; [*0ECD.0020.0002] # TETRAGRAM FOR FULLNESS
+1D32C ; [*0ECE.0020.0002] # TETRAGRAM FOR RESIDENCE
+1D32D ; [*0ECF.0020.0002] # TETRAGRAM FOR LAW OR MODEL
+1D32E ; [*0ED0.0020.0002] # TETRAGRAM FOR RESPONSE
+1D32F ; [*0ED1.0020.0002] # TETRAGRAM FOR GOING TO MEET
+1D330 ; [*0ED2.0020.0002] # TETRAGRAM FOR ENCOUNTERS
+1D331 ; [*0ED3.0020.0002] # TETRAGRAM FOR STOVE
+1D332 ; [*0ED4.0020.0002] # TETRAGRAM FOR GREATNESS
+1D333 ; [*0ED5.0020.0002] # TETRAGRAM FOR ENLARGEMENT
+1D334 ; [*0ED6.0020.0002] # TETRAGRAM FOR PATTERN
+1D335 ; [*0ED7.0020.0002] # TETRAGRAM FOR RITUAL
+1D336 ; [*0ED8.0020.0002] # TETRAGRAM FOR FLIGHT
+1D337 ; [*0ED9.0020.0002] # TETRAGRAM FOR VASTNESS OR WASTING
+1D338 ; [*0EDA.0020.0002] # TETRAGRAM FOR CONSTANCY
+1D339 ; [*0EDB.0020.0002] # TETRAGRAM FOR MEASURE
+1D33A ; [*0EDC.0020.0002] # TETRAGRAM FOR ETERNITY
+1D33B ; [*0EDD.0020.0002] # TETRAGRAM FOR UNITY
+1D33C ; [*0EDE.0020.0002] # TETRAGRAM FOR DIMINISHMENT
+1D33D ; [*0EDF.0020.0002] # TETRAGRAM FOR CLOSED MOUTH
+1D33E ; [*0EE0.0020.0002] # TETRAGRAM FOR GUARDEDNESS
+1D33F ; [*0EE1.0020.0002] # TETRAGRAM FOR GATHERING IN
+1D340 ; [*0EE2.0020.0002] # TETRAGRAM FOR MASSING
+1D341 ; [*0EE3.0020.0002] # TETRAGRAM FOR ACCUMULATION
+1D342 ; [*0EE4.0020.0002] # TETRAGRAM FOR EMBELLISHMENT
+1D343 ; [*0EE5.0020.0002] # TETRAGRAM FOR DOUBT
+1D344 ; [*0EE6.0020.0002] # TETRAGRAM FOR WATCH
+1D345 ; [*0EE7.0020.0002] # TETRAGRAM FOR SINKING
+1D346 ; [*0EE8.0020.0002] # TETRAGRAM FOR INNER
+1D347 ; [*0EE9.0020.0002] # TETRAGRAM FOR DEPARTURE
+1D348 ; [*0EEA.0020.0002] # TETRAGRAM FOR DARKENING
+1D349 ; [*0EEB.0020.0002] # TETRAGRAM FOR DIMMING
+1D34A ; [*0EEC.0020.0002] # TETRAGRAM FOR EXHAUSTION
+1D34B ; [*0EED.0020.0002] # TETRAGRAM FOR SEVERANCE
+1D34C ; [*0EEE.0020.0002] # TETRAGRAM FOR STOPPAGE
+1D34D ; [*0EEF.0020.0002] # TETRAGRAM FOR HARDNESS
+1D34E ; [*0EF0.0020.0002] # TETRAGRAM FOR COMPLETION
+1D34F ; [*0EF1.0020.0002] # TETRAGRAM FOR CLOSURE
+1D350 ; [*0EF2.0020.0002] # TETRAGRAM FOR FAILURE
+1D351 ; [*0EF3.0020.0002] # TETRAGRAM FOR AGGRAVATION
+1D352 ; [*0EF4.0020.0002] # TETRAGRAM FOR COMPLIANCE
+1D353 ; [*0EF5.0020.0002] # TETRAGRAM FOR ON THE VERGE
+1D354 ; [*0EF6.0020.0002] # TETRAGRAM FOR DIFFICULTIES
+1D355 ; [*0EF7.0020.0002] # TETRAGRAM FOR LABOURING
+1D356 ; [*0EF8.0020.0002] # TETRAGRAM FOR FOSTERING
+1D369 ; [*18B6.0020.0002] # COUNTING ROD TENS DIGIT ONE
+1D36A ; [*18B7.0020.0002] # COUNTING ROD TENS DIGIT TWO
+1D36B ; [*18B8.0020.0002] # COUNTING ROD TENS DIGIT THREE
+1D36C ; [*18B9.0020.0002] # COUNTING ROD TENS DIGIT FOUR
+1D36D ; [*18BA.0020.0002] # COUNTING ROD TENS DIGIT FIVE
+1D36E ; [*18BB.0020.0002] # COUNTING ROD TENS DIGIT SIX
+1D36F ; [*18BC.0020.0002] # COUNTING ROD TENS DIGIT SEVEN
+1D370 ; [*18BD.0020.0002] # COUNTING ROD TENS DIGIT EIGHT
+1D371 ; [*18BE.0020.0002] # COUNTING ROD TENS DIGIT NINE
+1D6C1 ; [*05CC.0020.0005] # MATHEMATICAL BOLD NABLA
+1D6DB ; [*05C8.0020.0005] # MATHEMATICAL BOLD PARTIAL DIFFERENTIAL
+1D6FB ; [*05CC.0020.0005] # MATHEMATICAL ITALIC NABLA
+1D715 ; [*05C8.0020.0005] # MATHEMATICAL ITALIC PARTIAL DIFFERENTIAL
+1D735 ; [*05CC.0020.0005] # MATHEMATICAL BOLD ITALIC NABLA
+1D74F ; [*05C8.0020.0005] # MATHEMATICAL BOLD ITALIC PARTIAL DIFFERENTIAL
+1D76F ; [*05CC.0020.0005] # MATHEMATICAL SANS-SERIF BOLD NABLA
+1D789 ; [*05C8.0020.0005] # MATHEMATICAL SANS-SERIF BOLD PARTIAL DIFFERENTIAL
+1D7A9 ; [*05CC.0020.0005] # MATHEMATICAL SANS-SERIF BOLD ITALIC NABLA
+1D7C3 ; [*05C8.0020.0005] # MATHEMATICAL SANS-SERIF BOLD ITALIC PARTIAL DIFFERENTIAL
+1E8D0 ; [.0000.0000.0000] # MENDE KIKAKUI COMBINING NUMBER TEENS
+1E8D1 ; [.0000.0000.0000] # MENDE KIKAKUI COMBINING NUMBER TENS
+1E8D2 ; [.0000.0000.0000] # MENDE KIKAKUI COMBINING NUMBER HUNDREDS
+1E8D3 ; [.0000.0000.0000] # MENDE KIKAKUI COMBINING NUMBER THOUSANDS
+1E8D4 ; [.0000.0000.0000] # MENDE KIKAKUI COMBINING NUMBER TEN THOUSANDS
+1E8D5 ; [.0000.0000.0000] # MENDE KIKAKUI COMBINING NUMBER HUNDRED THOUSANDS
+1E8D6 ; [.0000.0000.0000] # MENDE KIKAKUI COMBINING NUMBER MILLIONS
+1EEF0 ; [*04BF.0020.0002] # ARABIC MATHEMATICAL OPERATOR MEEM WITH HAH WITH TATWEEL
+1EEF1 ; [*04C0.0020.0002] # ARABIC MATHEMATICAL OPERATOR HAH WITH DAL
+1F000 ; [*1172.0020.0002] # MAHJONG TILE EAST WIND
+1F001 ; [*1173.0020.0002] # MAHJONG TILE SOUTH WIND
+1F002 ; [*1174.0020.0002] # MAHJONG TILE WEST WIND
+1F003 ; [*1175.0020.0002] # MAHJONG TILE NORTH WIND
+1F004 ; [*1176.0020.0002] # MAHJONG TILE RED DRAGON
+1F005 ; [*1177.0020.0002] # MAHJONG TILE GREEN DRAGON
+1F006 ; [*1178.0020.0002] # MAHJONG TILE WHITE DRAGON
+1F007 ; [*1179.0020.0002] # MAHJONG TILE ONE OF CHARACTERS
+1F008 ; [*117A.0020.0002] # MAHJONG TILE TWO OF CHARACTERS
+1F009 ; [*117B.0020.0002] # MAHJONG TILE THREE OF CHARACTERS
+1F00A ; [*117C.0020.0002] # MAHJONG TILE FOUR OF CHARACTERS
+1F00B ; [*117D.0020.0002] # MAHJONG TILE FIVE OF CHARACTERS
+1F00C ; [*117E.0020.0002] # MAHJONG TILE SIX OF CHARACTERS
+1F00D ; [*117F.0020.0002] # MAHJONG TILE SEVEN OF CHARACTERS
+1F00E ; [*1180.0020.0002] # MAHJONG TILE EIGHT OF CHARACTERS
+1F00F ; [*1181.0020.0002] # MAHJONG TILE NINE OF CHARACTERS
+1F010 ; [*1182.0020.0002] # MAHJONG TILE ONE OF BAMBOOS
+1F011 ; [*1183.0020.0002] # MAHJONG TILE TWO OF BAMBOOS
+1F012 ; [*1184.0020.0002] # MAHJONG TILE THREE OF BAMBOOS
+1F013 ; [*1185.0020.0002] # MAHJONG TILE FOUR OF BAMBOOS
+1F014 ; [*1186.0020.0002] # MAHJONG TILE FIVE OF BAMBOOS
+1F015 ; [*1187.0020.0002] # MAHJONG TILE SIX OF BAMBOOS
+1F016 ; [*1188.0020.0002] # MAHJONG TILE SEVEN OF BAMBOOS
+1F017 ; [*1189.0020.0002] # MAHJONG TILE EIGHT OF BAMBOOS
+1F018 ; [*118A.0020.0002] # MAHJONG TILE NINE OF BAMBOOS
+1F019 ; [*118B.0020.0002] # MAHJONG TILE ONE OF CIRCLES
+1F01A ; [*118C.0020.0002] # MAHJONG TILE TWO OF CIRCLES
+1F01B ; [*118D.0020.0002] # MAHJONG TILE THREE OF CIRCLES
+1F01C ; [*118E.0020.0002] # MAHJONG TILE FOUR OF CIRCLES
+1F01D ; [*118F.0020.0002] # MAHJONG TILE FIVE OF CIRCLES
+1F01E ; [*1190.0020.0002] # MAHJONG TILE SIX OF CIRCLES
+1F01F ; [*1191.0020.0002] # MAHJONG TILE SEVEN OF CIRCLES
+1F020 ; [*1192.0020.0002] # MAHJONG TILE EIGHT OF CIRCLES
+1F021 ; [*1193.0020.0002] # MAHJONG TILE NINE OF CIRCLES
+1F022 ; [*1194.0020.0002] # MAHJONG TILE PLUM
+1F023 ; [*1195.0020.0002] # MAHJONG TILE ORCHID
+1F024 ; [*1196.0020.0002] # MAHJONG TILE BAMBOO
+1F025 ; [*1197.0020.0002] # MAHJONG TILE CHRYSANTHEMUM
+1F026 ; [*1198.0020.0002] # MAHJONG TILE SPRING
+1F027 ; [*1199.0020.0002] # MAHJONG TILE SUMMER
+1F028 ; [*119A.0020.0002] # MAHJONG TILE AUTUMN
+1F029 ; [*119B.0020.0002] # MAHJONG TILE WINTER
+1F02A ; [*119C.0020.0002] # MAHJONG TILE JOKER
+1F02B ; [*119D.0020.0002] # MAHJONG TILE BACK
+1F030 ; [*119E.0020.0002] # DOMINO TILE HORIZONTAL BACK
+1F031 ; [*119F.0020.0002] # DOMINO TILE HORIZONTAL-00-00
+1F032 ; [*11A0.0020.0002] # DOMINO TILE HORIZONTAL-00-01
+1F033 ; [*11A1.0020.0002] # DOMINO TILE HORIZONTAL-00-02
+1F034 ; [*11A2.0020.0002] # DOMINO TILE HORIZONTAL-00-03
+1F035 ; [*11A3.0020.0002] # DOMINO TILE HORIZONTAL-00-04
+1F036 ; [*11A4.0020.0002] # DOMINO TILE HORIZONTAL-00-05
+1F037 ; [*11A5.0020.0002] # DOMINO TILE HORIZONTAL-00-06
+1F038 ; [*11A6.0020.0002] # DOMINO TILE HORIZONTAL-01-00
+1F039 ; [*11A7.0020.0002] # DOMINO TILE HORIZONTAL-01-01
+1F03A ; [*11A8.0020.0002] # DOMINO TILE HORIZONTAL-01-02
+1F03B ; [*11A9.0020.0002] # DOMINO TILE HORIZONTAL-01-03
+1F03C ; [*11AA.0020.0002] # DOMINO TILE HORIZONTAL-01-04
+1F03D ; [*11AB.0020.0002] # DOMINO TILE HORIZONTAL-01-05
+1F03E ; [*11AC.0020.0002] # DOMINO TILE HORIZONTAL-01-06
+1F03F ; [*11AD.0020.0002] # DOMINO TILE HORIZONTAL-02-00
+1F040 ; [*11AE.0020.0002] # DOMINO TILE HORIZONTAL-02-01
+1F041 ; [*11AF.0020.0002] # DOMINO TILE HORIZONTAL-02-02
+1F042 ; [*11B0.0020.0002] # DOMINO TILE HORIZONTAL-02-03
+1F043 ; [*11B1.0020.0002] # DOMINO TILE HORIZONTAL-02-04
+1F044 ; [*11B2.0020.0002] # DOMINO TILE HORIZONTAL-02-05
+1F045 ; [*11B3.0020.0002] # DOMINO TILE HORIZONTAL-02-06
+1F046 ; [*11B4.0020.0002] # DOMINO TILE HORIZONTAL-03-00
+1F047 ; [*11B5.0020.0002] # DOMINO TILE HORIZONTAL-03-01
+1F048 ; [*11B6.0020.0002] # DOMINO TILE HORIZONTAL-03-02
+1F049 ; [*11B7.0020.0002] # DOMINO TILE HORIZONTAL-03-03
+1F04A ; [*11B8.0020.0002] # DOMINO TILE HORIZONTAL-03-04
+1F04B ; [*11B9.0020.0002] # DOMINO TILE HORIZONTAL-03-05
+1F04C ; [*11BA.0020.0002] # DOMINO TILE HORIZONTAL-03-06
+1F04D ; [*11BB.0020.0002] # DOMINO TILE HORIZONTAL-04-00
+1F04E ; [*11BC.0020.0002] # DOMINO TILE HORIZONTAL-04-01
+1F04F ; [*11BD.0020.0002] # DOMINO TILE HORIZONTAL-04-02
+1F050 ; [*11BE.0020.0002] # DOMINO TILE HORIZONTAL-04-03
+1F051 ; [*11BF.0020.0002] # DOMINO TILE HORIZONTAL-04-04
+1F052 ; [*11C0.0020.0002] # DOMINO TILE HORIZONTAL-04-05
+1F053 ; [*11C1.0020.0002] # DOMINO TILE HORIZONTAL-04-06
+1F054 ; [*11C2.0020.0002] # DOMINO TILE HORIZONTAL-05-00
+1F055 ; [*11C3.0020.0002] # DOMINO TILE HORIZONTAL-05-01
+1F056 ; [*11C4.0020.0002] # DOMINO TILE HORIZONTAL-05-02
+1F057 ; [*11C5.0020.0002] # DOMINO TILE HORIZONTAL-05-03
+1F058 ; [*11C6.0020.0002] # DOMINO TILE HORIZONTAL-05-04
+1F059 ; [*11C7.0020.0002] # DOMINO TILE HORIZONTAL-05-05
+1F05A ; [*11C8.0020.0002] # DOMINO TILE HORIZONTAL-05-06
+1F05B ; [*11C9.0020.0002] # DOMINO TILE HORIZONTAL-06-00
+1F05C ; [*11CA.0020.0002] # DOMINO TILE HORIZONTAL-06-01
+1F05D ; [*11CB.0020.0002] # DOMINO TILE HORIZONTAL-06-02
+1F05E ; [*11CC.0020.0002] # DOMINO TILE HORIZONTAL-06-03
+1F05F ; [*11CD.0020.0002] # DOMINO TILE HORIZONTAL-06-04
+1F060 ; [*11CE.0020.0002] # DOMINO TILE HORIZONTAL-06-05
+1F061 ; [*11CF.0020.0002] # DOMINO TILE HORIZONTAL-06-06
+1F062 ; [*11D0.0020.0002] # DOMINO TILE VERTICAL BACK
+1F063 ; [*11D1.0020.0002] # DOMINO TILE VERTICAL-00-00
+1F064 ; [*11D2.0020.0002] # DOMINO TILE VERTICAL-00-01
+1F065 ; [*11D3.0020.0002] # DOMINO TILE VERTICAL-00-02
+1F066 ; [*11D4.0020.0002] # DOMINO TILE VERTICAL-00-03
+1F067 ; [*11D5.0020.0002] # DOMINO TILE VERTICAL-00-04
+1F068 ; [*11D6.0020.0002] # DOMINO TILE VERTICAL-00-05
+1F069 ; [*11D7.0020.0002] # DOMINO TILE VERTICAL-00-06
+1F06A ; [*11D8.0020.0002] # DOMINO TILE VERTICAL-01-00
+1F06B ; [*11D9.0020.0002] # DOMINO TILE VERTICAL-01-01
+1F06C ; [*11DA.0020.0002] # DOMINO TILE VERTICAL-01-02
+1F06D ; [*11DB.0020.0002] # DOMINO TILE VERTICAL-01-03
+1F06E ; [*11DC.0020.0002] # DOMINO TILE VERTICAL-01-04
+1F06F ; [*11DD.0020.0002] # DOMINO TILE VERTICAL-01-05
+1F070 ; [*11DE.0020.0002] # DOMINO TILE VERTICAL-01-06
+1F071 ; [*11DF.0020.0002] # DOMINO TILE VERTICAL-02-00
+1F072 ; [*11E0.0020.0002] # DOMINO TILE VERTICAL-02-01
+1F073 ; [*11E1.0020.0002] # DOMINO TILE VERTICAL-02-02
+1F074 ; [*11E2.0020.0002] # DOMINO TILE VERTICAL-02-03
+1F075 ; [*11E3.0020.0002] # DOMINO TILE VERTICAL-02-04
+1F076 ; [*11E4.0020.0002] # DOMINO TILE VERTICAL-02-05
+1F077 ; [*11E5.0020.0002] # DOMINO TILE VERTICAL-02-06
+1F078 ; [*11E6.0020.0002] # DOMINO TILE VERTICAL-03-00
+1F079 ; [*11E7.0020.0002] # DOMINO TILE VERTICAL-03-01
+1F07A ; [*11E8.0020.0002] # DOMINO TILE VERTICAL-03-02
+1F07B ; [*11E9.0020.0002] # DOMINO TILE VERTICAL-03-03
+1F07C ; [*11EA.0020.0002] # DOMINO TILE VERTICAL-03-04
+1F07D ; [*11EB.0020.0002] # DOMINO TILE VERTICAL-03-05
+1F07E ; [*11EC.0020.0002] # DOMINO TILE VERTICAL-03-06
+1F07F ; [*11ED.0020.0002] # DOMINO TILE VERTICAL-04-00
+1F080 ; [*11EE.0020.0002] # DOMINO TILE VERTICAL-04-01
+1F081 ; [*11EF.0020.0002] # DOMINO TILE VERTICAL-04-02
+1F082 ; [*11F0.0020.0002] # DOMINO TILE VERTICAL-04-03
+1F083 ; [*11F1.0020.0002] # DOMINO TILE VERTICAL-04-04
+1F084 ; [*11F2.0020.0002] # DOMINO TILE VERTICAL-04-05
+1F085 ; [*11F3.0020.0002] # DOMINO TILE VERTICAL-04-06
+1F086 ; [*11F4.0020.0002] # DOMINO TILE VERTICAL-05-00
+1F087 ; [*11F5.0020.0002] # DOMINO TILE VERTICAL-05-01
+1F088 ; [*11F6.0020.0002] # DOMINO TILE VERTICAL-05-02
+1F089 ; [*11F7.0020.0002] # DOMINO TILE VERTICAL-05-03
+1F08A ; [*11F8.0020.0002] # DOMINO TILE VERTICAL-05-04
+1F08B ; [*11F9.0020.0002] # DOMINO TILE VERTICAL-05-05
+1F08C ; [*11FA.0020.0002] # DOMINO TILE VERTICAL-05-06
+1F08D ; [*11FB.0020.0002] # DOMINO TILE VERTICAL-06-00
+1F08E ; [*11FC.0020.0002] # DOMINO TILE VERTICAL-06-01
+1F08F ; [*11FD.0020.0002] # DOMINO TILE VERTICAL-06-02
+1F090 ; [*11FE.0020.0002] # DOMINO TILE VERTICAL-06-03
+1F091 ; [*11FF.0020.0002] # DOMINO TILE VERTICAL-06-04
+1F092 ; [*1200.0020.0002] # DOMINO TILE VERTICAL-06-05
+1F093 ; [*1201.0020.0002] # DOMINO TILE VERTICAL-06-06
+1F0A0 ; [*1202.0020.0002] # PLAYING CARD BACK
+1F0A1 ; [*1203.0020.0002] # PLAYING CARD ACE OF SPADES
+1F0A2 ; [*1204.0020.0002] # PLAYING CARD TWO OF SPADES
+1F0A3 ; [*1205.0020.0002] # PLAYING CARD THREE OF SPADES
+1F0A4 ; [*1206.0020.0002] # PLAYING CARD FOUR OF SPADES
+1F0A5 ; [*1207.0020.0002] # PLAYING CARD FIVE OF SPADES
+1F0A6 ; [*1208.0020.0002] # PLAYING CARD SIX OF SPADES
+1F0A7 ; [*1209.0020.0002] # PLAYING CARD SEVEN OF SPADES
+1F0A8 ; [*120A.0020.0002] # PLAYING CARD EIGHT OF SPADES
+1F0A9 ; [*120B.0020.0002] # PLAYING CARD NINE OF SPADES
+1F0AA ; [*120C.0020.0002] # PLAYING CARD TEN OF SPADES
+1F0AB ; [*120D.0020.0002] # PLAYING CARD JACK OF SPADES
+1F0AC ; [*120E.0020.0002] # PLAYING CARD KNIGHT OF SPADES
+1F0AD ; [*120F.0020.0002] # PLAYING CARD QUEEN OF SPADES
+1F0AE ; [*1210.0020.0002] # PLAYING CARD KING OF SPADES
+1F0B1 ; [*1211.0020.0002] # PLAYING CARD ACE OF HEARTS
+1F0B2 ; [*1212.0020.0002] # PLAYING CARD TWO OF HEARTS
+1F0B3 ; [*1213.0020.0002] # PLAYING CARD THREE OF HEARTS
+1F0B4 ; [*1214.0020.0002] # PLAYING CARD FOUR OF HEARTS
+1F0B5 ; [*1215.0020.0002] # PLAYING CARD FIVE OF HEARTS
+1F0B6 ; [*1216.0020.0002] # PLAYING CARD SIX OF HEARTS
+1F0B7 ; [*1217.0020.0002] # PLAYING CARD SEVEN OF HEARTS
+1F0B8 ; [*1218.0020.0002] # PLAYING CARD EIGHT OF HEARTS
+1F0B9 ; [*1219.0020.0002] # PLAYING CARD NINE OF HEARTS
+1F0BA ; [*121A.0020.0002] # PLAYING CARD TEN OF HEARTS
+1F0BB ; [*121B.0020.0002] # PLAYING CARD JACK OF HEARTS
+1F0BC ; [*121C.0020.0002] # PLAYING CARD KNIGHT OF HEARTS
+1F0BD ; [*121D.0020.0002] # PLAYING CARD QUEEN OF HEARTS
+1F0BE ; [*121E.0020.0002] # PLAYING CARD KING OF HEARTS
+1F0BF ; [*121F.0020.0002] # PLAYING CARD RED JOKER
+1F0C1 ; [*1220.0020.0002] # PLAYING CARD ACE OF DIAMONDS
+1F0C2 ; [*1221.0020.0002] # PLAYING CARD TWO OF DIAMONDS
+1F0C3 ; [*1222.0020.0002] # PLAYING CARD THREE OF DIAMONDS
+1F0C4 ; [*1223.0020.0002] # PLAYING CARD FOUR OF DIAMONDS
+1F0C5 ; [*1224.0020.0002] # PLAYING CARD FIVE OF DIAMONDS
+1F0C6 ; [*1225.0020.0002] # PLAYING CARD SIX OF DIAMONDS
+1F0C7 ; [*1226.0020.0002] # PLAYING CARD SEVEN OF DIAMONDS
+1F0C8 ; [*1227.0020.0002] # PLAYING CARD EIGHT OF DIAMONDS
+1F0C9 ; [*1228.0020.0002] # PLAYING CARD NINE OF DIAMONDS
+1F0CA ; [*1229.0020.0002] # PLAYING CARD TEN OF DIAMONDS
+1F0CB ; [*122A.0020.0002] # PLAYING CARD JACK OF DIAMONDS
+1F0CC ; [*122B.0020.0002] # PLAYING CARD KNIGHT OF DIAMONDS
+1F0CD ; [*122C.0020.0002] # PLAYING CARD QUEEN OF DIAMONDS
+1F0CE ; [*122D.0020.0002] # PLAYING CARD KING OF DIAMONDS
+1F0CF ; [*122E.0020.0002] # PLAYING CARD BLACK JOKER
+1F0D1 ; [*122F.0020.0002] # PLAYING CARD ACE OF CLUBS
+1F0D2 ; [*1230.0020.0002] # PLAYING CARD TWO OF CLUBS
+1F0D3 ; [*1231.0020.0002] # PLAYING CARD THREE OF CLUBS
+1F0D4 ; [*1232.0020.0002] # PLAYING CARD FOUR OF CLUBS
+1F0D5 ; [*1233.0020.0002] # PLAYING CARD FIVE OF CLUBS
+1F0D6 ; [*1234.0020.0002] # PLAYING CARD SIX OF CLUBS
+1F0D7 ; [*1235.0020.0002] # PLAYING CARD SEVEN OF CLUBS
+1F0D8 ; [*1236.0020.0002] # PLAYING CARD EIGHT OF CLUBS
+1F0D9 ; [*1237.0020.0002] # PLAYING CARD NINE OF CLUBS
+1F0DA ; [*1238.0020.0002] # PLAYING CARD TEN OF CLUBS
+1F0DB ; [*1239.0020.0002] # PLAYING CARD JACK OF CLUBS
+1F0DC ; [*123A.0020.0002] # PLAYING CARD KNIGHT OF CLUBS
+1F0DD ; [*123B.0020.0002] # PLAYING CARD QUEEN OF CLUBS
+1F0DE ; [*123C.0020.0002] # PLAYING CARD KING OF CLUBS
+1F0DF ; [*123D.0020.0002] # PLAYING CARD WHITE JOKER
+1F0E0 ; [*123E.0020.0002] # PLAYING CARD FOOL
+1F0E1 ; [*123F.0020.0002] # PLAYING CARD TRUMP-1
+1F0E2 ; [*1240.0020.0002] # PLAYING CARD TRUMP-2
+1F0E3 ; [*1241.0020.0002] # PLAYING CARD TRUMP-3
+1F0E4 ; [*1242.0020.0002] # PLAYING CARD TRUMP-4
+1F0E5 ; [*1243.0020.0002] # PLAYING CARD TRUMP-5
+1F0E6 ; [*1244.0020.0002] # PLAYING CARD TRUMP-6
+1F0E7 ; [*1245.0020.0002] # PLAYING CARD TRUMP-7
+1F0E8 ; [*1246.0020.0002] # PLAYING CARD TRUMP-8
+1F0E9 ; [*1247.0020.0002] # PLAYING CARD TRUMP-9
+1F0EA ; [*1248.0020.0002] # PLAYING CARD TRUMP-10
+1F0EB ; [*1249.0020.0002] # PLAYING CARD TRUMP-11
+1F0EC ; [*124A.0020.0002] # PLAYING CARD TRUMP-12
+1F0ED ; [*124B.0020.0002] # PLAYING CARD TRUMP-13
+1F0EE ; [*124C.0020.0002] # PLAYING CARD TRUMP-14
+1F0EF ; [*124D.0020.0002] # PLAYING CARD TRUMP-15
+1F0F0 ; [*124E.0020.0002] # PLAYING CARD TRUMP-16
+1F0F1 ; [*124F.0020.0002] # PLAYING CARD TRUMP-17
+1F0F2 ; [*1250.0020.0002] # PLAYING CARD TRUMP-18
+1F0F3 ; [*1251.0020.0002] # PLAYING CARD TRUMP-19
+1F0F4 ; [*1252.0020.0002] # PLAYING CARD TRUMP-20
+1F0F5 ; [*1253.0020.0002] # PLAYING CARD TRUMP-21
+1F1E6 ; [*09C3.0020.0002] # REGIONAL INDICATOR SYMBOL LETTER A
+1F1E7 ; [*09C4.0020.0002] # REGIONAL INDICATOR SYMBOL LETTER B
+1F1E8 ; [*09C5.0020.0002] # REGIONAL INDICATOR SYMBOL LETTER C
+1F1E9 ; [*09C6.0020.0002] # REGIONAL INDICATOR SYMBOL LETTER D
+1F1EA ; [*09C7.0020.0002] # REGIONAL INDICATOR SYMBOL LETTER E
+1F1EB ; [*09C8.0020.0002] # REGIONAL INDICATOR SYMBOL LETTER F
+1F1EC ; [*09C9.0020.0002] # REGIONAL INDICATOR SYMBOL LETTER G
+1F1ED ; [*09CA.0020.0002] # REGIONAL INDICATOR SYMBOL LETTER H
+1F1EE ; [*09CB.0020.0002] # REGIONAL INDICATOR SYMBOL LETTER I
+1F1EF ; [*09CC.0020.0002] # REGIONAL INDICATOR SYMBOL LETTER J
+1F1F0 ; [*09CD.0020.0002] # REGIONAL INDICATOR SYMBOL LETTER K
+1F1F1 ; [*09CE.0020.0002] # REGIONAL INDICATOR SYMBOL LETTER L
+1F1F2 ; [*09CF.0020.0002] # REGIONAL INDICATOR SYMBOL LETTER M
+1F1F3 ; [*09D0.0020.0002] # REGIONAL INDICATOR SYMBOL LETTER N
+1F1F4 ; [*09D1.0020.0002] # REGIONAL INDICATOR SYMBOL LETTER O
+1F1F5 ; [*09D2.0020.0002] # REGIONAL INDICATOR SYMBOL LETTER P
+1F1F6 ; [*09D3.0020.0002] # REGIONAL INDICATOR SYMBOL LETTER Q
+1F1F7 ; [*09D4.0020.0002] # REGIONAL INDICATOR SYMBOL LETTER R
+1F1F8 ; [*09D5.0020.0002] # REGIONAL INDICATOR SYMBOL LETTER S
+1F1F9 ; [*09D6.0020.0002] # REGIONAL INDICATOR SYMBOL LETTER T
+1F1FA ; [*09D7.0020.0002] # REGIONAL INDICATOR SYMBOL LETTER U
+1F1FB ; [*09D8.0020.0002] # REGIONAL INDICATOR SYMBOL LETTER V
+1F1FC ; [*09D9.0020.0002] # REGIONAL INDICATOR SYMBOL LETTER W
+1F1FD ; [*09DA.0020.0002] # REGIONAL INDICATOR SYMBOL LETTER X
+1F1FE ; [*09DB.0020.0002] # REGIONAL INDICATOR SYMBOL LETTER Y
+1F1FF ; [*09DC.0020.0002] # REGIONAL INDICATOR SYMBOL LETTER Z
+1F300 ; [*1254.0020.0002] # CYCLONE
+1F301 ; [*1255.0020.0002] # FOGGY
+1F302 ; [*1256.0020.0002] # CLOSED UMBRELLA
+1F303 ; [*1257.0020.0002] # NIGHT WITH STARS
+1F304 ; [*1258.0020.0002] # SUNRISE OVER MOUNTAINS
+1F305 ; [*1259.0020.0002] # SUNRISE
+1F306 ; [*125A.0020.0002] # CITYSCAPE AT DUSK
+1F307 ; [*125B.0020.0002] # SUNSET OVER BUILDINGS
+1F308 ; [*125C.0020.0002] # RAINBOW
+1F309 ; [*125D.0020.0002] # BRIDGE AT NIGHT
+1F30A ; [*125E.0020.0002] # WATER WAVE
+1F30B ; [*125F.0020.0002] # VOLCANO
+1F30C ; [*1260.0020.0002] # MILKY WAY
+1F30D ; [*1261.0020.0002] # EARTH GLOBE EUROPE-AFRICA
+1F30E ; [*1262.0020.0002] # EARTH GLOBE AMERICAS
+1F30F ; [*1263.0020.0002] # EARTH GLOBE ASIA-AUSTRALIA
+1F310 ; [*1264.0020.0002] # GLOBE WITH MERIDIANS
+1F311 ; [*1265.0020.0002] # NEW MOON SYMBOL
+1F312 ; [*1266.0020.0002] # WAXING CRESCENT MOON SYMBOL
+1F313 ; [*1267.0020.0002] # FIRST QUARTER MOON SYMBOL
+1F314 ; [*1268.0020.0002] # WAXING GIBBOUS MOON SYMBOL
+1F315 ; [*1269.0020.0002] # FULL MOON SYMBOL
+1F316 ; [*126A.0020.0002] # WANING GIBBOUS MOON SYMBOL
+1F317 ; [*126B.0020.0002] # LAST QUARTER MOON SYMBOL
+1F318 ; [*126C.0020.0002] # WANING CRESCENT MOON SYMBOL
+1F319 ; [*126D.0020.0002] # CRESCENT MOON
+1F31A ; [*126E.0020.0002] # NEW MOON WITH FACE
+1F31B ; [*126F.0020.0002] # FIRST QUARTER MOON WITH FACE
+1F31C ; [*1270.0020.0002] # LAST QUARTER MOON WITH FACE
+1F31D ; [*1271.0020.0002] # FULL MOON WITH FACE
+1F31E ; [*1272.0020.0002] # SUN WITH FACE
+1F31F ; [*1273.0020.0002] # GLOWING STAR
+1F320 ; [*1274.0020.0002] # SHOOTING STAR
+1F321 ; [*1275.0020.0002] # THERMOMETER
+1F322 ; [*1276.0020.0002] # BLACK DROPLET
+1F323 ; [*1277.0020.0002] # WHITE SUN
+1F324 ; [*1278.0020.0002] # WHITE SUN WITH SMALL CLOUD
+1F325 ; [*1279.0020.0002] # WHITE SUN BEHIND CLOUD
+1F326 ; [*127A.0020.0002] # WHITE SUN BEHIND CLOUD WITH RAIN
+1F327 ; [*127B.0020.0002] # CLOUD WITH RAIN
+1F328 ; [*127C.0020.0002] # CLOUD WITH SNOW
+1F329 ; [*127D.0020.0002] # CLOUD WITH LIGHTNING
+1F32A ; [*127E.0020.0002] # CLOUD WITH TORNADO
+1F32B ; [*127F.0020.0002] # FOG
+1F32C ; [*1280.0020.0002] # WIND BLOWING FACE
+1F330 ; [*1281.0020.0002] # CHESTNUT
+1F331 ; [*1282.0020.0002] # SEEDLING
+1F332 ; [*1283.0020.0002] # EVERGREEN TREE
+1F333 ; [*1284.0020.0002] # DECIDUOUS TREE
+1F334 ; [*1285.0020.0002] # PALM TREE
+1F335 ; [*1286.0020.0002] # CACTUS
+1F336 ; [*1287.0020.0002] # HOT PEPPER
+1F337 ; [*1288.0020.0002] # TULIP
+1F338 ; [*1289.0020.0002] # CHERRY BLOSSOM
+1F339 ; [*128A.0020.0002] # ROSE
+1F33A ; [*128B.0020.0002] # HIBISCUS
+1F33B ; [*128C.0020.0002] # SUNFLOWER
+1F33C ; [*128D.0020.0002] # BLOSSOM
+1F33D ; [*128E.0020.0002] # EAR OF MAIZE
+1F33E ; [*128F.0020.0002] # EAR OF RICE
+1F33F ; [*1290.0020.0002] # HERB
+1F340 ; [*1291.0020.0002] # FOUR LEAF CLOVER
+1F341 ; [*1292.0020.0002] # MAPLE LEAF
+1F342 ; [*1293.0020.0002] # FALLEN LEAF
+1F343 ; [*1294.0020.0002] # LEAF FLUTTERING IN WIND
+1F344 ; [*1295.0020.0002] # MUSHROOM
+1F345 ; [*1296.0020.0002] # TOMATO
+1F346 ; [*1297.0020.0002] # AUBERGINE
+1F347 ; [*1298.0020.0002] # GRAPES
+1F348 ; [*1299.0020.0002] # MELON
+1F349 ; [*129A.0020.0002] # WATERMELON
+1F34A ; [*129B.0020.0002] # TANGERINE
+1F34B ; [*129C.0020.0002] # LEMON
+1F34C ; [*129D.0020.0002] # BANANA
+1F34D ; [*129E.0020.0002] # PINEAPPLE
+1F34E ; [*129F.0020.0002] # RED APPLE
+1F34F ; [*12A0.0020.0002] # GREEN APPLE
+1F350 ; [*12A1.0020.0002] # PEAR
+1F351 ; [*12A2.0020.0002] # PEACH
+1F352 ; [*12A3.0020.0002] # CHERRIES
+1F353 ; [*12A4.0020.0002] # STRAWBERRY
+1F354 ; [*12A5.0020.0002] # HAMBURGER
+1F355 ; [*12A6.0020.0002] # SLICE OF PIZZA
+1F356 ; [*12A7.0020.0002] # MEAT ON BONE
+1F357 ; [*12A8.0020.0002] # POULTRY LEG
+1F358 ; [*12A9.0020.0002] # RICE CRACKER
+1F359 ; [*12AA.0020.0002] # RICE BALL
+1F35A ; [*12AB.0020.0002] # COOKED RICE
+1F35B ; [*12AC.0020.0002] # CURRY AND RICE
+1F35C ; [*12AD.0020.0002] # STEAMING BOWL
+1F35D ; [*12AE.0020.0002] # SPAGHETTI
+1F35E ; [*12AF.0020.0002] # BREAD
+1F35F ; [*12B0.0020.0002] # FRENCH FRIES
+1F360 ; [*12B1.0020.0002] # ROASTED SWEET POTATO
+1F361 ; [*12B2.0020.0002] # DANGO
+1F362 ; [*12B3.0020.0002] # ODEN
+1F363 ; [*12B4.0020.0002] # SUSHI
+1F364 ; [*12B5.0020.0002] # FRIED SHRIMP
+1F365 ; [*12B6.0020.0002] # FISH CAKE WITH SWIRL DESIGN
+1F366 ; [*12B7.0020.0002] # SOFT ICE CREAM
+1F367 ; [*12B8.0020.0002] # SHAVED ICE
+1F368 ; [*12B9.0020.0002] # ICE CREAM
+1F369 ; [*12BA.0020.0002] # DOUGHNUT
+1F36A ; [*12BB.0020.0002] # COOKIE
+1F36B ; [*12BC.0020.0002] # CHOCOLATE BAR
+1F36C ; [*12BD.0020.0002] # CANDY
+1F36D ; [*12BE.0020.0002] # LOLLIPOP
+1F36E ; [*12BF.0020.0002] # CUSTARD
+1F36F ; [*12C0.0020.0002] # HONEY POT
+1F370 ; [*12C1.0020.0002] # SHORTCAKE
+1F371 ; [*12C2.0020.0002] # BENTO BOX
+1F372 ; [*12C3.0020.0002] # POT OF FOOD
+1F373 ; [*12C4.0020.0002] # COOKING
+1F374 ; [*12C5.0020.0002] # FORK AND KNIFE
+1F375 ; [*12C6.0020.0002] # TEACUP WITHOUT HANDLE
+1F376 ; [*12C7.0020.0002] # SAKE BOTTLE AND CUP
+1F377 ; [*12C8.0020.0002] # WINE GLASS
+1F378 ; [*12C9.0020.0002] # COCKTAIL GLASS
+1F379 ; [*12CA.0020.0002] # TROPICAL DRINK
+1F37A ; [*12CB.0020.0002] # BEER MUG
+1F37B ; [*12CC.0020.0002] # CLINKING BEER MUGS
+1F37C ; [*12CD.0020.0002] # BABY BOTTLE
+1F37D ; [*12CE.0020.0002] # FORK AND KNIFE WITH PLATE
+1F380 ; [*12CF.0020.0002] # RIBBON
+1F381 ; [*12D0.0020.0002] # WRAPPED PRESENT
+1F382 ; [*12D1.0020.0002] # BIRTHDAY CAKE
+1F383 ; [*12D2.0020.0002] # JACK-O-LANTERN
+1F384 ; [*12D3.0020.0002] # CHRISTMAS TREE
+1F385 ; [*12D4.0020.0002] # FATHER CHRISTMAS
+1F386 ; [*12D5.0020.0002] # FIREWORKS
+1F387 ; [*12D6.0020.0002] # FIREWORK SPARKLER
+1F388 ; [*12D7.0020.0002] # BALLOON
+1F389 ; [*12D8.0020.0002] # PARTY POPPER
+1F38A ; [*12D9.0020.0002] # CONFETTI BALL
+1F38B ; [*12DA.0020.0002] # TANABATA TREE
+1F38C ; [*12DB.0020.0002] # CROSSED FLAGS
+1F38D ; [*12DC.0020.0002] # PINE DECORATION
+1F38E ; [*12DD.0020.0002] # JAPANESE DOLLS
+1F38F ; [*12DE.0020.0002] # CARP STREAMER
+1F390 ; [*12DF.0020.0002] # WIND CHIME
+1F391 ; [*12E0.0020.0002] # MOON VIEWING CEREMONY
+1F392 ; [*12E1.0020.0002] # SCHOOL SATCHEL
+1F393 ; [*12E2.0020.0002] # GRADUATION CAP
+1F394 ; [*12E3.0020.0002] # HEART WITH TIP ON THE LEFT
+1F395 ; [*12E4.0020.0002] # BOUQUET OF FLOWERS
+1F396 ; [*12E5.0020.0002] # MILITARY MEDAL
+1F397 ; [*12E6.0020.0002] # REMINDER RIBBON
+1F398 ; [*12E7.0020.0002] # MUSICAL KEYBOARD WITH JACKS
+1F399 ; [*12E8.0020.0002] # STUDIO MICROPHONE
+1F39A ; [*12E9.0020.0002] # LEVEL SLIDER
+1F39B ; [*12EA.0020.0002] # CONTROL KNOBS
+1F39C ; [*12EB.0020.0002] # BEAMED ASCENDING MUSICAL NOTES
+1F39D ; [*12EC.0020.0002] # BEAMED DESCENDING MUSICAL NOTES
+1F39E ; [*12ED.0020.0002] # FILM FRAMES
+1F39F ; [*12EE.0020.0002] # ADMISSION TICKETS
+1F3A0 ; [*12EF.0020.0002] # CAROUSEL HORSE
+1F3A1 ; [*12F0.0020.0002] # FERRIS WHEEL
+1F3A2 ; [*12F1.0020.0002] # ROLLER COASTER
+1F3A3 ; [*12F2.0020.0002] # FISHING POLE AND FISH
+1F3A4 ; [*12F3.0020.0002] # MICROPHONE
+1F3A5 ; [*12F4.0020.0002] # MOVIE CAMERA
+1F3A6 ; [*12F5.0020.0002] # CINEMA
+1F3A7 ; [*12F6.0020.0002] # HEADPHONE
+1F3A8 ; [*12F7.0020.0002] # ARTIST PALETTE
+1F3A9 ; [*12F8.0020.0002] # TOP HAT
+1F3AA ; [*12F9.0020.0002] # CIRCUS TENT
+1F3AB ; [*12FA.0020.0002] # TICKET
+1F3AC ; [*12FB.0020.0002] # CLAPPER BOARD
+1F3AD ; [*12FC.0020.0002] # PERFORMING ARTS
+1F3AE ; [*12FD.0020.0002] # VIDEO GAME
+1F3AF ; [*12FE.0020.0002] # DIRECT HIT
+1F3B0 ; [*12FF.0020.0002] # SLOT MACHINE
+1F3B1 ; [*1300.0020.0002] # BILLIARDS
+1F3B2 ; [*1301.0020.0002] # GAME DIE
+1F3B3 ; [*1302.0020.0002] # BOWLING
+1F3B4 ; [*1303.0020.0002] # FLOWER PLAYING CARDS
+1F3B5 ; [*1304.0020.0002] # MUSICAL NOTE
+1F3B6 ; [*1305.0020.0002] # MULTIPLE MUSICAL NOTES
+1F3B7 ; [*1306.0020.0002] # SAXOPHONE
+1F3B8 ; [*1307.0020.0002] # GUITAR
+1F3B9 ; [*1308.0020.0002] # MUSICAL KEYBOARD
+1F3BA ; [*1309.0020.0002] # TRUMPET
+1F3BB ; [*130A.0020.0002] # VIOLIN
+1F3BC ; [*130B.0020.0002] # MUSICAL SCORE
+1F3BD ; [*130C.0020.0002] # RUNNING SHIRT WITH SASH
+1F3BE ; [*130D.0020.0002] # TENNIS RACQUET AND BALL
+1F3BF ; [*130E.0020.0002] # SKI AND SKI BOOT
+1F3C0 ; [*130F.0020.0002] # BASKETBALL AND HOOP
+1F3C1 ; [*1310.0020.0002] # CHEQUERED FLAG
+1F3C2 ; [*1311.0020.0002] # SNOWBOARDER
+1F3C3 ; [*1312.0020.0002] # RUNNER
+1F3C4 ; [*1313.0020.0002] # SURFER
+1F3C5 ; [*1314.0020.0002] # SPORTS MEDAL
+1F3C6 ; [*1315.0020.0002] # TROPHY
+1F3C7 ; [*1316.0020.0002] # HORSE RACING
+1F3C8 ; [*1317.0020.0002] # AMERICAN FOOTBALL
+1F3C9 ; [*1318.0020.0002] # RUGBY FOOTBALL
+1F3CA ; [*1319.0020.0002] # SWIMMER
+1F3CB ; [*131A.0020.0002] # WEIGHT LIFTER
+1F3CC ; [*131B.0020.0002] # GOLFER
+1F3CD ; [*131C.0020.0002] # RACING MOTORCYCLE
+1F3CE ; [*131D.0020.0002] # RACING CAR
+1F3D4 ; [*131E.0020.0002] # SNOW CAPPED MOUNTAIN
+1F3D5 ; [*131F.0020.0002] # CAMPING
+1F3D6 ; [*1320.0020.0002] # BEACH WITH UMBRELLA
+1F3D7 ; [*1321.0020.0002] # BUILDING CONSTRUCTION
+1F3D8 ; [*1322.0020.0002] # HOUSE BUILDINGS
+1F3D9 ; [*1323.0020.0002] # CITYSCAPE
+1F3DA ; [*1324.0020.0002] # DERELICT HOUSE BUILDING
+1F3DB ; [*1325.0020.0002] # CLASSICAL BUILDING
+1F3DC ; [*1326.0020.0002] # DESERT
+1F3DD ; [*1327.0020.0002] # DESERT ISLAND
+1F3DE ; [*1328.0020.0002] # NATIONAL PARK
+1F3DF ; [*1329.0020.0002] # STADIUM
+1F3E0 ; [*132A.0020.0002] # HOUSE BUILDING
+1F3E1 ; [*132B.0020.0002] # HOUSE WITH GARDEN
+1F3E2 ; [*132C.0020.0002] # OFFICE BUILDING
+1F3E3 ; [*132D.0020.0002] # JAPANESE POST OFFICE
+1F3E4 ; [*132E.0020.0002] # EUROPEAN POST OFFICE
+1F3E5 ; [*132F.0020.0002] # HOSPITAL
+1F3E6 ; [*1330.0020.0002] # BANK
+1F3E7 ; [*1331.0020.0002] # AUTOMATED TELLER MACHINE
+1F3E8 ; [*1332.0020.0002] # HOTEL
+1F3E9 ; [*1333.0020.0002] # LOVE HOTEL
+1F3EA ; [*1334.0020.0002] # CONVENIENCE STORE
+1F3EB ; [*1335.0020.0002] # SCHOOL
+1F3EC ; [*1336.0020.0002] # DEPARTMENT STORE
+1F3ED ; [*1337.0020.0002] # FACTORY
+1F3EE ; [*1338.0020.0002] # IZAKAYA LANTERN
+1F3EF ; [*1339.0020.0002] # JAPANESE CASTLE
+1F3F0 ; [*133A.0020.0002] # EUROPEAN CASTLE
+1F3F1 ; [*133B.0020.0002] # WHITE PENNANT
+1F3F2 ; [*133C.0020.0002] # BLACK PENNANT
+1F3F3 ; [*133D.0020.0002] # WAVING WHITE FLAG
+1F3F4 ; [*133E.0020.0002] # WAVING BLACK FLAG
+1F3F5 ; [*133F.0020.0002] # ROSETTE
+1F3F6 ; [*1340.0020.0002] # BLACK ROSETTE
+1F3F7 ; [*1341.0020.0002] # LABEL
+1F400 ; [*1342.0020.0002] # RAT
+1F401 ; [*1343.0020.0002] # MOUSE
+1F402 ; [*1344.0020.0002] # OX
+1F403 ; [*1345.0020.0002] # WATER BUFFALO
+1F404 ; [*1346.0020.0002] # COW
+1F405 ; [*1347.0020.0002] # TIGER
+1F406 ; [*1348.0020.0002] # LEOPARD
+1F407 ; [*1349.0020.0002] # RABBIT
+1F408 ; [*134A.0020.0002] # CAT
+1F409 ; [*134B.0020.0002] # DRAGON
+1F40A ; [*134C.0020.0002] # CROCODILE
+1F40B ; [*134D.0020.0002] # WHALE
+1F40C ; [*134E.0020.0002] # SNAIL
+1F40D ; [*134F.0020.0002] # SNAKE
+1F40E ; [*1350.0020.0002] # HORSE
+1F40F ; [*1351.0020.0002] # RAM
+1F410 ; [*1352.0020.0002] # GOAT
+1F411 ; [*1353.0020.0002] # SHEEP
+1F412 ; [*1354.0020.0002] # MONKEY
+1F413 ; [*1355.0020.0002] # ROOSTER
+1F414 ; [*1356.0020.0002] # CHICKEN
+1F415 ; [*1357.0020.0002] # DOG
+1F416 ; [*1358.0020.0002] # PIG
+1F417 ; [*1359.0020.0002] # BOAR
+1F418 ; [*135A.0020.0002] # ELEPHANT
+1F419 ; [*135B.0020.0002] # OCTOPUS
+1F41A ; [*135C.0020.0002] # SPIRAL SHELL
+1F41B ; [*135D.0020.0002] # BUG
+1F41C ; [*135E.0020.0002] # ANT
+1F41D ; [*135F.0020.0002] # HONEYBEE
+1F41E ; [*1360.0020.0002] # LADY BEETLE
+1F41F ; [*1361.0020.0002] # FISH
+1F420 ; [*1362.0020.0002] # TROPICAL FISH
+1F421 ; [*1363.0020.0002] # BLOWFISH
+1F422 ; [*1364.0020.0002] # TURTLE
+1F423 ; [*1365.0020.0002] # HATCHING CHICK
+1F424 ; [*1366.0020.0002] # BABY CHICK
+1F425 ; [*1367.0020.0002] # FRONT-FACING BABY CHICK
+1F426 ; [*1368.0020.0002] # BIRD
+1F427 ; [*1369.0020.0002] # PENGUIN
+1F428 ; [*136A.0020.0002] # KOALA
+1F429 ; [*136B.0020.0002] # POODLE
+1F42A ; [*136C.0020.0002] # DROMEDARY CAMEL
+1F42B ; [*136D.0020.0002] # BACTRIAN CAMEL
+1F42C ; [*136E.0020.0002] # DOLPHIN
+1F42D ; [*136F.0020.0002] # MOUSE FACE
+1F42E ; [*1370.0020.0002] # COW FACE
+1F42F ; [*1371.0020.0002] # TIGER FACE
+1F430 ; [*1372.0020.0002] # RABBIT FACE
+1F431 ; [*1373.0020.0002] # CAT FACE
+1F432 ; [*1374.0020.0002] # DRAGON FACE
+1F433 ; [*1375.0020.0002] # SPOUTING WHALE
+1F434 ; [*1376.0020.0002] # HORSE FACE
+1F435 ; [*1377.0020.0002] # MONKEY FACE
+1F436 ; [*1378.0020.0002] # DOG FACE
+1F437 ; [*1379.0020.0002] # PIG FACE
+1F438 ; [*137A.0020.0002] # FROG FACE
+1F439 ; [*137B.0020.0002] # HAMSTER FACE
+1F43A ; [*137C.0020.0002] # WOLF FACE
+1F43B ; [*137D.0020.0002] # BEAR FACE
+1F43C ; [*137E.0020.0002] # PANDA FACE
+1F43D ; [*137F.0020.0002] # PIG NOSE
+1F43E ; [*1380.0020.0002] # PAW PRINTS
+1F43F ; [*1381.0020.0002] # CHIPMUNK
+1F440 ; [*1382.0020.0002] # EYES
+1F441 ; [*1383.0020.0002] # EYE
+1F442 ; [*1384.0020.0002] # EAR
+1F443 ; [*1385.0020.0002] # NOSE
+1F444 ; [*1386.0020.0002] # MOUTH
+1F445 ; [*1387.0020.0002] # TONGUE
+1F446 ; [*1388.0020.0002] # WHITE UP POINTING BACKHAND INDEX
+1F447 ; [*1389.0020.0002] # WHITE DOWN POINTING BACKHAND INDEX
+1F448 ; [*138A.0020.0002] # WHITE LEFT POINTING BACKHAND INDEX
+1F449 ; [*138B.0020.0002] # WHITE RIGHT POINTING BACKHAND INDEX
+1F44A ; [*138C.0020.0002] # FISTED HAND SIGN
+1F44B ; [*138D.0020.0002] # WAVING HAND SIGN
+1F44C ; [*138E.0020.0002] # OK HAND SIGN
+1F44D ; [*138F.0020.0002] # THUMBS UP SIGN
+1F44E ; [*1390.0020.0002] # THUMBS DOWN SIGN
+1F44F ; [*1391.0020.0002] # CLAPPING HANDS SIGN
+1F450 ; [*1392.0020.0002] # OPEN HANDS SIGN
+1F451 ; [*1393.0020.0002] # CROWN
+1F452 ; [*1394.0020.0002] # WOMANS HAT
+1F453 ; [*1395.0020.0002] # EYEGLASSES
+1F454 ; [*1396.0020.0002] # NECKTIE
+1F455 ; [*1397.0020.0002] # T-SHIRT
+1F456 ; [*1398.0020.0002] # JEANS
+1F457 ; [*1399.0020.0002] # DRESS
+1F458 ; [*139A.0020.0002] # KIMONO
+1F459 ; [*139B.0020.0002] # BIKINI
+1F45A ; [*139C.0020.0002] # WOMANS CLOTHES
+1F45B ; [*139D.0020.0002] # PURSE
+1F45C ; [*139E.0020.0002] # HANDBAG
+1F45D ; [*139F.0020.0002] # POUCH
+1F45E ; [*13A0.0020.0002] # MANS SHOE
+1F45F ; [*13A1.0020.0002] # ATHLETIC SHOE
+1F460 ; [*13A2.0020.0002] # HIGH-HEELED SHOE
+1F461 ; [*13A3.0020.0002] # WOMANS SANDAL
+1F462 ; [*13A4.0020.0002] # WOMANS BOOTS
+1F463 ; [*13A5.0020.0002] # FOOTPRINTS
+1F464 ; [*13A6.0020.0002] # BUST IN SILHOUETTE
+1F465 ; [*13A7.0020.0002] # BUSTS IN SILHOUETTE
+1F466 ; [*13A8.0020.0002] # BOY
+1F467 ; [*13A9.0020.0002] # GIRL
+1F468 ; [*13AA.0020.0002] # MAN
+1F469 ; [*13AB.0020.0002] # WOMAN
+1F46A ; [*13AC.0020.0002] # FAMILY
+1F46B ; [*13AD.0020.0002] # MAN AND WOMAN HOLDING HANDS
+1F46C ; [*13AE.0020.0002] # TWO MEN HOLDING HANDS
+1F46D ; [*13AF.0020.0002] # TWO WOMEN HOLDING HANDS
+1F46E ; [*13B0.0020.0002] # POLICE OFFICER
+1F46F ; [*13B1.0020.0002] # WOMAN WITH BUNNY EARS
+1F470 ; [*13B2.0020.0002] # BRIDE WITH VEIL
+1F471 ; [*13B3.0020.0002] # PERSON WITH BLOND HAIR
+1F472 ; [*13B4.0020.0002] # MAN WITH GUA PI MAO
+1F473 ; [*13B5.0020.0002] # MAN WITH TURBAN
+1F474 ; [*13B6.0020.0002] # OLDER MAN
+1F475 ; [*13B7.0020.0002] # OLDER WOMAN
+1F476 ; [*13B8.0020.0002] # BABY
+1F477 ; [*13B9.0020.0002] # CONSTRUCTION WORKER
+1F478 ; [*13BA.0020.0002] # PRINCESS
+1F479 ; [*13BB.0020.0002] # JAPANESE OGRE
+1F47A ; [*13BC.0020.0002] # JAPANESE GOBLIN
+1F47B ; [*13BD.0020.0002] # GHOST
+1F47C ; [*13BE.0020.0002] # BABY ANGEL
+1F47D ; [*13BF.0020.0002] # EXTRATERRESTRIAL ALIEN
+1F47E ; [*13C0.0020.0002] # ALIEN MONSTER
+1F47F ; [*13C1.0020.0002] # IMP
+1F480 ; [*13C2.0020.0002] # SKULL
+1F481 ; [*13C3.0020.0002] # INFORMATION DESK PERSON
+1F482 ; [*13C4.0020.0002] # GUARDSMAN
+1F483 ; [*13C5.0020.0002] # DANCER
+1F484 ; [*13C6.0020.0002] # LIPSTICK
+1F485 ; [*13C7.0020.0002] # NAIL POLISH
+1F486 ; [*13C8.0020.0002] # FACE MASSAGE
+1F487 ; [*13C9.0020.0002] # HAIRCUT
+1F488 ; [*13CA.0020.0002] # BARBER POLE
+1F489 ; [*13CB.0020.0002] # SYRINGE
+1F48A ; [*13CC.0020.0002] # PILL
+1F48B ; [*13CD.0020.0002] # KISS MARK
+1F48C ; [*13CE.0020.0002] # LOVE LETTER
+1F48D ; [*13CF.0020.0002] # RING
+1F48E ; [*13D0.0020.0002] # GEM STONE
+1F48F ; [*13D1.0020.0002] # KISS
+1F490 ; [*13D2.0020.0002] # BOUQUET
+1F491 ; [*13D3.0020.0002] # COUPLE WITH HEART
+1F492 ; [*13D4.0020.0002] # WEDDING
+1F493 ; [*13D5.0020.0002] # BEATING HEART
+1F494 ; [*13D6.0020.0002] # BROKEN HEART
+1F495 ; [*13D7.0020.0002] # TWO HEARTS
+1F496 ; [*13D8.0020.0002] # SPARKLING HEART
+1F497 ; [*13D9.0020.0002] # GROWING HEART
+1F498 ; [*13DA.0020.0002] # HEART WITH ARROW
+1F499 ; [*13DB.0020.0002] # BLUE HEART
+1F49A ; [*13DC.0020.0002] # GREEN HEART
+1F49B ; [*13DD.0020.0002] # YELLOW HEART
+1F49C ; [*13DE.0020.0002] # PURPLE HEART
+1F49D ; [*13DF.0020.0002] # HEART WITH RIBBON
+1F49E ; [*13E0.0020.0002] # REVOLVING HEARTS
+1F49F ; [*13E1.0020.0002] # HEART DECORATION
+1F4A0 ; [*13E2.0020.0002] # DIAMOND SHAPE WITH A DOT INSIDE
+1F4A1 ; [*13E3.0020.0002] # ELECTRIC LIGHT BULB
+1F4A2 ; [*13E4.0020.0002] # ANGER SYMBOL
+1F4A3 ; [*13E5.0020.0002] # BOMB
+1F4A4 ; [*13E6.0020.0002] # SLEEPING SYMBOL
+1F4A5 ; [*13E7.0020.0002] # COLLISION SYMBOL
+1F4A6 ; [*13E8.0020.0002] # SPLASHING SWEAT SYMBOL
+1F4A7 ; [*13E9.0020.0002] # DROPLET
+1F4A8 ; [*13EA.0020.0002] # DASH SYMBOL
+1F4A9 ; [*13EB.0020.0002] # PILE OF POO
+1F4AA ; [*13EC.0020.0002] # FLEXED BICEPS
+1F4AB ; [*13ED.0020.0002] # DIZZY SYMBOL
+1F4AC ; [*13EE.0020.0002] # SPEECH BALLOON
+1F4AD ; [*13EF.0020.0002] # THOUGHT BALLOON
+1F4AE ; [*13F0.0020.0002] # WHITE FLOWER
+1F4AF ; [*13F1.0020.0002] # HUNDRED POINTS SYMBOL
+1F4B0 ; [*13F2.0020.0002] # MONEY BAG
+1F4B1 ; [*13F3.0020.0002] # CURRENCY EXCHANGE
+1F4B2 ; [*13F4.0020.0002] # HEAVY DOLLAR SIGN
+1F4B3 ; [*13F5.0020.0002] # CREDIT CARD
+1F4B4 ; [*13F6.0020.0002] # BANKNOTE WITH YEN SIGN
+1F4B5 ; [*13F7.0020.0002] # BANKNOTE WITH DOLLAR SIGN
+1F4B6 ; [*13F8.0020.0002] # BANKNOTE WITH EURO SIGN
+1F4B7 ; [*13F9.0020.0002] # BANKNOTE WITH POUND SIGN
+1F4B8 ; [*13FA.0020.0002] # MONEY WITH WINGS
+1F4B9 ; [*13FB.0020.0002] # CHART WITH UPWARDS TREND AND YEN SIGN
+1F4BA ; [*13FC.0020.0002] # SEAT
+1F4BB ; [*13FD.0020.0002] # PERSONAL COMPUTER
+1F4BC ; [*13FE.0020.0002] # BRIEFCASE
+1F4BD ; [*13FF.0020.0002] # MINIDISC
+1F4BE ; [*1400.0020.0002] # FLOPPY DISK
+1F4BF ; [*1401.0020.0002] # OPTICAL DISC
+1F4C0 ; [*1402.0020.0002] # DVD
+1F4C1 ; [*1403.0020.0002] # FILE FOLDER
+1F4C2 ; [*1404.0020.0002] # OPEN FILE FOLDER
+1F4C3 ; [*1405.0020.0002] # PAGE WITH CURL
+1F4C4 ; [*1406.0020.0002] # PAGE FACING UP
+1F4C5 ; [*1407.0020.0002] # CALENDAR
+1F4C6 ; [*1408.0020.0002] # TEAR-OFF CALENDAR
+1F4C7 ; [*1409.0020.0002] # CARD INDEX
+1F4C8 ; [*140A.0020.0002] # CHART WITH UPWARDS TREND
+1F4C9 ; [*140B.0020.0002] # CHART WITH DOWNWARDS TREND
+1F4CA ; [*140C.0020.0002] # BAR CHART
+1F4CB ; [*140D.0020.0002] # CLIPBOARD
+1F4CC ; [*140E.0020.0002] # PUSHPIN
+1F4CD ; [*140F.0020.0002] # ROUND PUSHPIN
+1F4CE ; [*1410.0020.0002] # PAPERCLIP
+1F4CF ; [*1411.0020.0002] # STRAIGHT RULER
+1F4D0 ; [*1412.0020.0002] # TRIANGULAR RULER
+1F4D1 ; [*1413.0020.0002] # BOOKMARK TABS
+1F4D2 ; [*1414.0020.0002] # LEDGER
+1F4D3 ; [*1415.0020.0002] # NOTEBOOK
+1F4D4 ; [*1416.0020.0002] # NOTEBOOK WITH DECORATIVE COVER
+1F4D5 ; [*1417.0020.0002] # CLOSED BOOK
+1F4D6 ; [*1418.0020.0002] # OPEN BOOK
+1F4D7 ; [*1419.0020.0002] # GREEN BOOK
+1F4D8 ; [*141A.0020.0002] # BLUE BOOK
+1F4D9 ; [*141B.0020.0002] # ORANGE BOOK
+1F4DA ; [*141C.0020.0002] # BOOKS
+1F4DB ; [*141D.0020.0002] # NAME BADGE
+1F4DC ; [*141E.0020.0002] # SCROLL
+1F4DD ; [*141F.0020.0002] # MEMO
+1F4DE ; [*1420.0020.0002] # TELEPHONE RECEIVER
+1F4DF ; [*1421.0020.0002] # PAGER
+1F4E0 ; [*1422.0020.0002] # FAX MACHINE
+1F4E1 ; [*1423.0020.0002] # SATELLITE ANTENNA
+1F4E2 ; [*1424.0020.0002] # PUBLIC ADDRESS LOUDSPEAKER
+1F4E3 ; [*1425.0020.0002] # CHEERING MEGAPHONE
+1F4E4 ; [*1426.0020.0002] # OUTBOX TRAY
+1F4E5 ; [*1427.0020.0002] # INBOX TRAY
+1F4E6 ; [*1428.0020.0002] # PACKAGE
+1F4E7 ; [*1429.0020.0002] # E-MAIL SYMBOL
+1F4E8 ; [*142A.0020.0002] # INCOMING ENVELOPE
+1F4E9 ; [*142B.0020.0002] # ENVELOPE WITH DOWNWARDS ARROW ABOVE
+1F4EA ; [*142C.0020.0002] # CLOSED MAILBOX WITH LOWERED FLAG
+1F4EB ; [*142D.0020.0002] # CLOSED MAILBOX WITH RAISED FLAG
+1F4EC ; [*142E.0020.0002] # OPEN MAILBOX WITH RAISED FLAG
+1F4ED ; [*142F.0020.0002] # OPEN MAILBOX WITH LOWERED FLAG
+1F4EE ; [*1430.0020.0002] # POSTBOX
+1F4EF ; [*1431.0020.0002] # POSTAL HORN
+1F4F0 ; [*1432.0020.0002] # NEWSPAPER
+1F4F1 ; [*1433.0020.0002] # MOBILE PHONE
+1F4F2 ; [*1434.0020.0002] # MOBILE PHONE WITH RIGHTWARDS ARROW AT LEFT
+1F4F3 ; [*1435.0020.0002] # VIBRATION MODE
+1F4F4 ; [*1436.0020.0002] # MOBILE PHONE OFF
+1F4F5 ; [*1437.0020.0002] # NO MOBILE PHONES
+1F4F6 ; [*1438.0020.0002] # ANTENNA WITH BARS
+1F4F7 ; [*1439.0020.0002] # CAMERA
+1F4F8 ; [*143A.0020.0002] # CAMERA WITH FLASH
+1F4F9 ; [*143B.0020.0002] # VIDEO CAMERA
+1F4FA ; [*143C.0020.0002] # TELEVISION
+1F4FB ; [*143D.0020.0002] # RADIO
+1F4FC ; [*143E.0020.0002] # VIDEOCASSETTE
+1F4FD ; [*143F.0020.0002] # FILM PROJECTOR
+1F4FE ; [*1440.0020.0002] # PORTABLE STEREO
+1F500 ; [*1441.0020.0002] # TWISTED RIGHTWARDS ARROWS
+1F501 ; [*1442.0020.0002] # CLOCKWISE RIGHTWARDS AND LEFTWARDS OPEN CIRCLE ARROWS
+1F502 ; [*1443.0020.0002] # CLOCKWISE RIGHTWARDS AND LEFTWARDS OPEN CIRCLE ARROWS WITH CIRCLED ONE OVERLAY
+1F503 ; [*1444.0020.0002] # CLOCKWISE DOWNWARDS AND UPWARDS OPEN CIRCLE ARROWS
+1F504 ; [*1445.0020.0002] # ANTICLOCKWISE DOWNWARDS AND UPWARDS OPEN CIRCLE ARROWS
+1F505 ; [*1446.0020.0002] # LOW BRIGHTNESS SYMBOL
+1F506 ; [*1447.0020.0002] # HIGH BRIGHTNESS SYMBOL
+1F507 ; [*1448.0020.0002] # SPEAKER WITH CANCELLATION STROKE
+1F508 ; [*1449.0020.0002] # SPEAKER
+1F509 ; [*144A.0020.0002] # SPEAKER WITH ONE SOUND WAVE
+1F50A ; [*144B.0020.0002] # SPEAKER WITH THREE SOUND WAVES
+1F50B ; [*144C.0020.0002] # BATTERY
+1F50C ; [*144D.0020.0002] # ELECTRIC PLUG
+1F50D ; [*144E.0020.0002] # LEFT-POINTING MAGNIFYING GLASS
+1F50E ; [*144F.0020.0002] # RIGHT-POINTING MAGNIFYING GLASS
+1F50F ; [*1450.0020.0002] # LOCK WITH INK PEN
+1F510 ; [*1451.0020.0002] # CLOSED LOCK WITH KEY
+1F511 ; [*1452.0020.0002] # KEY
+1F512 ; [*1453.0020.0002] # LOCK
+1F513 ; [*1454.0020.0002] # OPEN LOCK
+1F514 ; [*1455.0020.0002] # BELL
+1F515 ; [*1456.0020.0002] # BELL WITH CANCELLATION STROKE
+1F516 ; [*1457.0020.0002] # BOOKMARK
+1F517 ; [*1458.0020.0002] # LINK SYMBOL
+1F518 ; [*1459.0020.0002] # RADIO BUTTON
+1F519 ; [*145A.0020.0002] # BACK WITH LEFTWARDS ARROW ABOVE
+1F51A ; [*145B.0020.0002] # END WITH LEFTWARDS ARROW ABOVE
+1F51B ; [*145C.0020.0002] # ON WITH EXCLAMATION MARK WITH LEFT RIGHT ARROW ABOVE
+1F51C ; [*145D.0020.0002] # SOON WITH RIGHTWARDS ARROW ABOVE
+1F51D ; [*145E.0020.0002] # TOP WITH UPWARDS ARROW ABOVE
+1F51E ; [*145F.0020.0002] # NO ONE UNDER EIGHTEEN SYMBOL
+1F51F ; [*1460.0020.0002] # KEYCAP TEN
+1F520 ; [*1461.0020.0002] # INPUT SYMBOL FOR LATIN CAPITAL LETTERS
+1F521 ; [*1462.0020.0002] # INPUT SYMBOL FOR LATIN SMALL LETTERS
+1F522 ; [*1463.0020.0002] # INPUT SYMBOL FOR NUMBERS
+1F523 ; [*1464.0020.0002] # INPUT SYMBOL FOR SYMBOLS
+1F524 ; [*1465.0020.0002] # INPUT SYMBOL FOR LATIN LETTERS
+1F525 ; [*1466.0020.0002] # FIRE
+1F526 ; [*1467.0020.0002] # ELECTRIC TORCH
+1F527 ; [*1468.0020.0002] # WRENCH
+1F528 ; [*1469.0020.0002] # HAMMER
+1F529 ; [*146A.0020.0002] # NUT AND BOLT
+1F52A ; [*146B.0020.0002] # HOCHO
+1F52B ; [*146C.0020.0002] # PISTOL
+1F52C ; [*146D.0020.0002] # MICROSCOPE
+1F52D ; [*146E.0020.0002] # TELESCOPE
+1F52E ; [*146F.0020.0002] # CRYSTAL BALL
+1F52F ; [*1470.0020.0002] # SIX POINTED STAR WITH MIDDLE DOT
+1F530 ; [*1471.0020.0002] # JAPANESE SYMBOL FOR BEGINNER
+1F531 ; [*1472.0020.0002] # TRIDENT EMBLEM
+1F532 ; [*1473.0020.0002] # BLACK SQUARE BUTTON
+1F533 ; [*1474.0020.0002] # WHITE SQUARE BUTTON
+1F534 ; [*1475.0020.0002] # LARGE RED CIRCLE
+1F535 ; [*1476.0020.0002] # LARGE BLUE CIRCLE
+1F536 ; [*1477.0020.0002] # LARGE ORANGE DIAMOND
+1F537 ; [*1478.0020.0002] # LARGE BLUE DIAMOND
+1F538 ; [*1479.0020.0002] # SMALL ORANGE DIAMOND
+1F539 ; [*147A.0020.0002] # SMALL BLUE DIAMOND
+1F53A ; [*147B.0020.0002] # UP-POINTING RED TRIANGLE
+1F53B ; [*147C.0020.0002] # DOWN-POINTING RED TRIANGLE
+1F53C ; [*147D.0020.0002] # UP-POINTING SMALL RED TRIANGLE
+1F53D ; [*147E.0020.0002] # DOWN-POINTING SMALL RED TRIANGLE
+1F53E ; [*147F.0020.0002] # LOWER RIGHT SHADOWED WHITE CIRCLE
+1F53F ; [*1480.0020.0002] # UPPER RIGHT SHADOWED WHITE CIRCLE
+1F540 ; [*1481.0020.0002] # CIRCLED CROSS POMMEE
+1F541 ; [*1482.0020.0002] # CROSS POMMEE WITH HALF-CIRCLE BELOW
+1F542 ; [*1483.0020.0002] # CROSS POMMEE
+1F543 ; [*1484.0020.0002] # NOTCHED LEFT SEMICIRCLE WITH THREE DOTS
+1F544 ; [*1485.0020.0002] # NOTCHED RIGHT SEMICIRCLE WITH THREE DOTS
+1F545 ; [*1486.0020.0002] # SYMBOL FOR MARKS CHAPTER
+1F546 ; [*1487.0020.0002] # WHITE LATIN CROSS
+1F547 ; [*1488.0020.0002] # HEAVY LATIN CROSS
+1F548 ; [*1489.0020.0002] # CELTIC CROSS
+1F549 ; [*148A.0020.0002] # OM SYMBOL
+1F54A ; [*148B.0020.0002] # DOVE OF PEACE
+1F550 ; [*148C.0020.0002] # CLOCK FACE ONE OCLOCK
+1F551 ; [*148D.0020.0002] # CLOCK FACE TWO OCLOCK
+1F552 ; [*148E.0020.0002] # CLOCK FACE THREE OCLOCK
+1F553 ; [*148F.0020.0002] # CLOCK FACE FOUR OCLOCK
+1F554 ; [*1490.0020.0002] # CLOCK FACE FIVE OCLOCK
+1F555 ; [*1491.0020.0002] # CLOCK FACE SIX OCLOCK
+1F556 ; [*1492.0020.0002] # CLOCK FACE SEVEN OCLOCK
+1F557 ; [*1493.0020.0002] # CLOCK FACE EIGHT OCLOCK
+1F558 ; [*1494.0020.0002] # CLOCK FACE NINE OCLOCK
+1F559 ; [*1495.0020.0002] # CLOCK FACE TEN OCLOCK
+1F55A ; [*1496.0020.0002] # CLOCK FACE ELEVEN OCLOCK
+1F55B ; [*1497.0020.0002] # CLOCK FACE TWELVE OCLOCK
+1F55C ; [*1498.0020.0002] # CLOCK FACE ONE-THIRTY
+1F55D ; [*1499.0020.0002] # CLOCK FACE TWO-THIRTY
+1F55E ; [*149A.0020.0002] # CLOCK FACE THREE-THIRTY
+1F55F ; [*149B.0020.0002] # CLOCK FACE FOUR-THIRTY
+1F560 ; [*149C.0020.0002] # CLOCK FACE FIVE-THIRTY
+1F561 ; [*149D.0020.0002] # CLOCK FACE SIX-THIRTY
+1F562 ; [*149E.0020.0002] # CLOCK FACE SEVEN-THIRTY
+1F563 ; [*149F.0020.0002] # CLOCK FACE EIGHT-THIRTY
+1F564 ; [*14A0.0020.0002] # CLOCK FACE NINE-THIRTY
+1F565 ; [*14A1.0020.0002] # CLOCK FACE TEN-THIRTY
+1F566 ; [*14A2.0020.0002] # CLOCK FACE ELEVEN-THIRTY
+1F567 ; [*14A3.0020.0002] # CLOCK FACE TWELVE-THIRTY
+1F568 ; [*14A4.0020.0002] # RIGHT SPEAKER
+1F569 ; [*14A5.0020.0002] # RIGHT SPEAKER WITH ONE SOUND WAVE
+1F56A ; [*14A6.0020.0002] # RIGHT SPEAKER WITH THREE SOUND WAVES
+1F56B ; [*14A7.0020.0002] # BULLHORN
+1F56C ; [*14A8.0020.0002] # BULLHORN WITH SOUND WAVES
+1F56D ; [*14A9.0020.0002] # RINGING BELL
+1F56E ; [*14AA.0020.0002] # BOOK
+1F56F ; [*14AB.0020.0002] # CANDLE
+1F570 ; [*14AC.0020.0002] # MANTELPIECE CLOCK
+1F571 ; [*14AD.0020.0002] # BLACK SKULL AND CROSSBONES
+1F572 ; [*14AE.0020.0002] # NO PIRACY
+1F573 ; [*14AF.0020.0002] # HOLE
+1F574 ; [*14B0.0020.0002] # MAN IN BUSINESS SUIT LEVITATING
+1F575 ; [*14B1.0020.0002] # SLEUTH OR SPY
+1F576 ; [*14B2.0020.0002] # DARK SUNGLASSES
+1F577 ; [*14B3.0020.0002] # SPIDER
+1F578 ; [*14B4.0020.0002] # SPIDER WEB
+1F579 ; [*14B5.0020.0002] # JOYSTICK
+1F57B ; [*14B6.0020.0002] # LEFT HAND TELEPHONE RECEIVER
+1F57C ; [*14B7.0020.0002] # TELEPHONE RECEIVER WITH PAGE
+1F57D ; [*14B8.0020.0002] # RIGHT HAND TELEPHONE RECEIVER
+1F57E ; [*14B9.0020.0002] # WHITE TOUCHTONE TELEPHONE
+1F57F ; [*14BA.0020.0002] # BLACK TOUCHTONE TELEPHONE
+1F580 ; [*14BB.0020.0002] # TELEPHONE ON TOP OF MODEM
+1F581 ; [*14BC.0020.0002] # CLAMSHELL MOBILE PHONE
+1F582 ; [*14BD.0020.0002] # BACK OF ENVELOPE
+1F583 ; [*14BE.0020.0002] # STAMPED ENVELOPE
+1F584 ; [*14BF.0020.0002] # ENVELOPE WITH LIGHTNING
+1F585 ; [*14C0.0020.0002] # FLYING ENVELOPE
+1F586 ; [*14C1.0020.0002] # PEN OVER STAMPED ENVELOPE
+1F587 ; [*14C2.0020.0002] # LINKED PAPERCLIPS
+1F588 ; [*14C3.0020.0002] # BLACK PUSHPIN
+1F589 ; [*14C4.0020.0002] # LOWER LEFT PENCIL
+1F58A ; [*14C5.0020.0002] # LOWER LEFT BALLPOINT PEN
+1F58B ; [*14C6.0020.0002] # LOWER LEFT FOUNTAIN PEN
+1F58C ; [*14C7.0020.0002] # LOWER LEFT PAINTBRUSH
+1F58D ; [*14C8.0020.0002] # LOWER LEFT CRAYON
+1F58E ; [*14C9.0020.0002] # LEFT WRITING HAND
+1F58F ; [*14CA.0020.0002] # TURNED OK HAND SIGN
+1F590 ; [*14CB.0020.0002] # RAISED HAND WITH FINGERS SPLAYED
+1F591 ; [*14CC.0020.0002] # REVERSED RAISED HAND WITH FINGERS SPLAYED
+1F592 ; [*14CD.0020.0002] # REVERSED THUMBS UP SIGN
+1F593 ; [*14CE.0020.0002] # REVERSED THUMBS DOWN SIGN
+1F594 ; [*14CF.0020.0002] # REVERSED VICTORY HAND
+1F595 ; [*14D0.0020.0002] # REVERSED HAND WITH MIDDLE FINGER EXTENDED
+1F596 ; [*14D1.0020.0002] # RAISED HAND WITH PART BETWEEN MIDDLE AND RING FINGERS
+1F597 ; [*14D2.0020.0002] # WHITE DOWN POINTING LEFT HAND INDEX
+1F598 ; [*14D3.0020.0002] # SIDEWAYS WHITE LEFT POINTING INDEX
+1F599 ; [*14D4.0020.0002] # SIDEWAYS WHITE RIGHT POINTING INDEX
+1F59A ; [*14D5.0020.0002] # SIDEWAYS BLACK LEFT POINTING INDEX
+1F59B ; [*14D6.0020.0002] # SIDEWAYS BLACK RIGHT POINTING INDEX
+1F59C ; [*14D7.0020.0002] # BLACK LEFT POINTING BACKHAND INDEX
+1F59D ; [*14D8.0020.0002] # BLACK RIGHT POINTING BACKHAND INDEX
+1F59E ; [*14D9.0020.0002] # SIDEWAYS WHITE UP POINTING INDEX
+1F59F ; [*14DA.0020.0002] # SIDEWAYS WHITE DOWN POINTING INDEX
+1F5A0 ; [*14DB.0020.0002] # SIDEWAYS BLACK UP POINTING INDEX
+1F5A1 ; [*14DC.0020.0002] # SIDEWAYS BLACK DOWN POINTING INDEX
+1F5A2 ; [*14DD.0020.0002] # BLACK UP POINTING BACKHAND INDEX
+1F5A3 ; [*14DE.0020.0002] # BLACK DOWN POINTING BACKHAND INDEX
+1F5A5 ; [*14DF.0020.0002] # DESKTOP COMPUTER
+1F5A6 ; [*14E0.0020.0002] # KEYBOARD AND MOUSE
+1F5A7 ; [*14E1.0020.0002] # THREE NETWORKED COMPUTERS
+1F5A8 ; [*14E2.0020.0002] # PRINTER
+1F5A9 ; [*14E3.0020.0002] # POCKET CALCULATOR
+1F5AA ; [*14E4.0020.0002] # BLACK HARD SHELL FLOPPY DISK
+1F5AB ; [*14E5.0020.0002] # WHITE HARD SHELL FLOPPY DISK
+1F5AC ; [*14E6.0020.0002] # SOFT SHELL FLOPPY DISK
+1F5AD ; [*14E7.0020.0002] # TAPE CARTRIDGE
+1F5AE ; [*14E8.0020.0002] # WIRED KEYBOARD
+1F5AF ; [*14E9.0020.0002] # ONE BUTTON MOUSE
+1F5B0 ; [*14EA.0020.0002] # TWO BUTTON MOUSE
+1F5B1 ; [*14EB.0020.0002] # THREE BUTTON MOUSE
+1F5B2 ; [*14EC.0020.0002] # TRACKBALL
+1F5B3 ; [*14ED.0020.0002] # OLD PERSONAL COMPUTER
+1F5B4 ; [*14EE.0020.0002] # HARD DISK
+1F5B5 ; [*14EF.0020.0002] # SCREEN
+1F5B6 ; [*14F0.0020.0002] # PRINTER ICON
+1F5B7 ; [*14F1.0020.0002] # FAX ICON
+1F5B8 ; [*14F2.0020.0002] # OPTICAL DISC ICON
+1F5B9 ; [*14F3.0020.0002] # DOCUMENT WITH TEXT
+1F5BA ; [*14F4.0020.0002] # DOCUMENT WITH TEXT AND PICTURE
+1F5BB ; [*14F5.0020.0002] # DOCUMENT WITH PICTURE
+1F5BC ; [*14F6.0020.0002] # FRAME WITH PICTURE
+1F5BD ; [*14F7.0020.0002] # FRAME WITH TILES
+1F5BE ; [*14F8.0020.0002] # FRAME WITH AN X
+1F5BF ; [*14F9.0020.0002] # BLACK FOLDER
+1F5C0 ; [*14FA.0020.0002] # FOLDER
+1F5C1 ; [*14FB.0020.0002] # OPEN FOLDER
+1F5C2 ; [*14FC.0020.0002] # CARD INDEX DIVIDERS
+1F5C3 ; [*14FD.0020.0002] # CARD FILE BOX
+1F5C4 ; [*14FE.0020.0002] # FILE CABINET
+1F5C5 ; [*14FF.0020.0002] # EMPTY NOTE
+1F5C6 ; [*1500.0020.0002] # EMPTY NOTE PAGE
+1F5C7 ; [*1501.0020.0002] # EMPTY NOTE PAD
+1F5C8 ; [*1502.0020.0002] # NOTE
+1F5C9 ; [*1503.0020.0002] # NOTE PAGE
+1F5CA ; [*1504.0020.0002] # NOTE PAD
+1F5CB ; [*1505.0020.0002] # EMPTY DOCUMENT
+1F5CC ; [*1506.0020.0002] # EMPTY PAGE
+1F5CD ; [*1507.0020.0002] # EMPTY PAGES
+1F5CE ; [*1508.0020.0002] # DOCUMENT
+1F5CF ; [*1509.0020.0002] # PAGE
+1F5D0 ; [*150A.0020.0002] # PAGES
+1F5D1 ; [*150B.0020.0002] # WASTEBASKET
+1F5D2 ; [*150C.0020.0002] # SPIRAL NOTE PAD
+1F5D3 ; [*150D.0020.0002] # SPIRAL CALENDAR PAD
+1F5D4 ; [*150E.0020.0002] # DESKTOP WINDOW
+1F5D5 ; [*150F.0020.0002] # MINIMIZE
+1F5D6 ; [*1510.0020.0002] # MAXIMIZE
+1F5D7 ; [*1511.0020.0002] # OVERLAP
+1F5D8 ; [*1512.0020.0002] # CLOCKWISE RIGHT AND LEFT SEMICIRCLE ARROWS
+1F5D9 ; [*1513.0020.0002] # CANCELLATION X
+1F5DA ; [*1514.0020.0002] # INCREASE FONT SIZE SYMBOL
+1F5DB ; [*1515.0020.0002] # DECREASE FONT SIZE SYMBOL
+1F5DC ; [*1516.0020.0002] # COMPRESSION
+1F5DD ; [*1517.0020.0002] # OLD KEY
+1F5DE ; [*1518.0020.0002] # ROLLED-UP NEWSPAPER
+1F5DF ; [*1519.0020.0002] # PAGE WITH CIRCLED TEXT
+1F5E0 ; [*151A.0020.0002] # STOCK CHART
+1F5E1 ; [*151B.0020.0002] # DAGGER KNIFE
+1F5E2 ; [*151C.0020.0002] # LIPS
+1F5E3 ; [*151D.0020.0002] # SPEAKING HEAD IN SILHOUETTE
+1F5E4 ; [*151E.0020.0002] # THREE RAYS ABOVE
+1F5E5 ; [*151F.0020.0002] # THREE RAYS BELOW
+1F5E6 ; [*1520.0020.0002] # THREE RAYS LEFT
+1F5E7 ; [*1521.0020.0002] # THREE RAYS RIGHT
+1F5E8 ; [*1522.0020.0002] # LEFT SPEECH BUBBLE
+1F5E9 ; [*1523.0020.0002] # RIGHT SPEECH BUBBLE
+1F5EA ; [*1524.0020.0002] # TWO SPEECH BUBBLES
+1F5EB ; [*1525.0020.0002] # THREE SPEECH BUBBLES
+1F5EC ; [*1526.0020.0002] # LEFT THOUGHT BUBBLE
+1F5ED ; [*1527.0020.0002] # RIGHT THOUGHT BUBBLE
+1F5EE ; [*1528.0020.0002] # LEFT ANGER BUBBLE
+1F5EF ; [*1529.0020.0002] # RIGHT ANGER BUBBLE
+1F5F0 ; [*152A.0020.0002] # MOOD BUBBLE
+1F5F1 ; [*152B.0020.0002] # LIGHTNING MOOD BUBBLE
+1F5F2 ; [*152C.0020.0002] # LIGHTNING MOOD
+1F5F3 ; [*152D.0020.0002] # BALLOT BOX WITH BALLOT
+1F5F4 ; [*152E.0020.0002] # BALLOT SCRIPT X
+1F5F5 ; [*152F.0020.0002] # BALLOT BOX WITH SCRIPT X
+1F5F6 ; [*1530.0020.0002] # BALLOT BOLD SCRIPT X
+1F5F7 ; [*1531.0020.0002] # BALLOT BOX WITH BOLD SCRIPT X
+1F5F8 ; [*1532.0020.0002] # LIGHT CHECK MARK
+1F5F9 ; [*1533.0020.0002] # BALLOT BOX WITH BOLD CHECK
+1F5FA ; [*1534.0020.0002] # WORLD MAP
+1F5FB ; [*1535.0020.0002] # MOUNT FUJI
+1F5FC ; [*1536.0020.0002] # TOKYO TOWER
+1F5FD ; [*1537.0020.0002] # STATUE OF LIBERTY
+1F5FE ; [*1538.0020.0002] # SILHOUETTE OF JAPAN
+1F5FF ; [*1539.0020.0002] # MOYAI
+1F600 ; [*153A.0020.0002] # GRINNING FACE
+1F601 ; [*153B.0020.0002] # GRINNING FACE WITH SMILING EYES
+1F602 ; [*153C.0020.0002] # FACE WITH TEARS OF JOY
+1F603 ; [*153D.0020.0002] # SMILING FACE WITH OPEN MOUTH
+1F604 ; [*153E.0020.0002] # SMILING FACE WITH OPEN MOUTH AND SMILING EYES
+1F605 ; [*153F.0020.0002] # SMILING FACE WITH OPEN MOUTH AND COLD SWEAT
+1F606 ; [*1540.0020.0002] # SMILING FACE WITH OPEN MOUTH AND TIGHTLY-CLOSED EYES
+1F607 ; [*1541.0020.0002] # SMILING FACE WITH HALO
+1F608 ; [*1542.0020.0002] # SMILING FACE WITH HORNS
+1F609 ; [*1543.0020.0002] # WINKING FACE
+1F60A ; [*1544.0020.0002] # SMILING FACE WITH SMILING EYES
+1F60B ; [*1545.0020.0002] # FACE SAVOURING DELICIOUS FOOD
+1F60C ; [*1546.0020.0002] # RELIEVED FACE
+1F60D ; [*1547.0020.0002] # SMILING FACE WITH HEART-SHAPED EYES
+1F60E ; [*1548.0020.0002] # SMILING FACE WITH SUNGLASSES
+1F60F ; [*1549.0020.0002] # SMIRKING FACE
+1F610 ; [*154A.0020.0002] # NEUTRAL FACE
+1F611 ; [*154B.0020.0002] # EXPRESSIONLESS FACE
+1F612 ; [*154C.0020.0002] # UNAMUSED FACE
+1F613 ; [*154D.0020.0002] # FACE WITH COLD SWEAT
+1F614 ; [*154E.0020.0002] # PENSIVE FACE
+1F615 ; [*154F.0020.0002] # CONFUSED FACE
+1F616 ; [*1550.0020.0002] # CONFOUNDED FACE
+1F617 ; [*1551.0020.0002] # KISSING FACE
+1F618 ; [*1552.0020.0002] # FACE THROWING A KISS
+1F619 ; [*1553.0020.0002] # KISSING FACE WITH SMILING EYES
+1F61A ; [*1554.0020.0002] # KISSING FACE WITH CLOSED EYES
+1F61B ; [*1555.0020.0002] # FACE WITH STUCK-OUT TONGUE
+1F61C ; [*1556.0020.0002] # FACE WITH STUCK-OUT TONGUE AND WINKING EYE
+1F61D ; [*1557.0020.0002] # FACE WITH STUCK-OUT TONGUE AND TIGHTLY-CLOSED EYES
+1F61E ; [*1558.0020.0002] # DISAPPOINTED FACE
+1F61F ; [*1559.0020.0002] # WORRIED FACE
+1F620 ; [*155A.0020.0002] # ANGRY FACE
+1F621 ; [*155B.0020.0002] # POUTING FACE
+1F622 ; [*155C.0020.0002] # CRYING FACE
+1F623 ; [*155D.0020.0002] # PERSEVERING FACE
+1F624 ; [*155E.0020.0002] # FACE WITH LOOK OF TRIUMPH
+1F625 ; [*155F.0020.0002] # DISAPPOINTED BUT RELIEVED FACE
+1F626 ; [*1560.0020.0002] # FROWNING FACE WITH OPEN MOUTH
+1F627 ; [*1561.0020.0002] # ANGUISHED FACE
+1F628 ; [*1562.0020.0002] # FEARFUL FACE
+1F629 ; [*1563.0020.0002] # WEARY FACE
+1F62A ; [*1564.0020.0002] # SLEEPY FACE
+1F62B ; [*1565.0020.0002] # TIRED FACE
+1F62C ; [*1566.0020.0002] # GRIMACING FACE
+1F62D ; [*1567.0020.0002] # LOUDLY CRYING FACE
+1F62E ; [*1568.0020.0002] # FACE WITH OPEN MOUTH
+1F62F ; [*1569.0020.0002] # HUSHED FACE
+1F630 ; [*156A.0020.0002] # FACE WITH OPEN MOUTH AND COLD SWEAT
+1F631 ; [*156B.0020.0002] # FACE SCREAMING IN FEAR
+1F632 ; [*156C.0020.0002] # ASTONISHED FACE
+1F633 ; [*156D.0020.0002] # FLUSHED FACE
+1F634 ; [*156E.0020.0002] # SLEEPING FACE
+1F635 ; [*156F.0020.0002] # DIZZY FACE
+1F636 ; [*1570.0020.0002] # FACE WITHOUT MOUTH
+1F637 ; [*1571.0020.0002] # FACE WITH MEDICAL MASK
+1F638 ; [*1572.0020.0002] # GRINNING CAT FACE WITH SMILING EYES
+1F639 ; [*1573.0020.0002] # CAT FACE WITH TEARS OF JOY
+1F63A ; [*1574.0020.0002] # SMILING CAT FACE WITH OPEN MOUTH
+1F63B ; [*1575.0020.0002] # SMILING CAT FACE WITH HEART-SHAPED EYES
+1F63C ; [*1576.0020.0002] # CAT FACE WITH WRY SMILE
+1F63D ; [*1577.0020.0002] # KISSING CAT FACE WITH CLOSED EYES
+1F63E ; [*1578.0020.0002] # POUTING CAT FACE
+1F63F ; [*1579.0020.0002] # CRYING CAT FACE
+1F640 ; [*157A.0020.0002] # WEARY CAT FACE
+1F641 ; [*157B.0020.0002] # SLIGHTLY FROWNING FACE
+1F642 ; [*157C.0020.0002] # SLIGHTLY SMILING FACE
+1F645 ; [*157D.0020.0002] # FACE WITH NO GOOD GESTURE
+1F646 ; [*157E.0020.0002] # FACE WITH OK GESTURE
+1F647 ; [*157F.0020.0002] # PERSON BOWING DEEPLY
+1F648 ; [*1580.0020.0002] # SEE-NO-EVIL MONKEY
+1F649 ; [*1581.0020.0002] # HEAR-NO-EVIL MONKEY
+1F64A ; [*1582.0020.0002] # SPEAK-NO-EVIL MONKEY
+1F64B ; [*1583.0020.0002] # HAPPY PERSON RAISING ONE HAND
+1F64C ; [*1584.0020.0002] # PERSON RAISING BOTH HANDS IN CELEBRATION
+1F64D ; [*1585.0020.0002] # PERSON FROWNING
+1F64E ; [*1586.0020.0002] # PERSON WITH POUTING FACE
+1F64F ; [*1587.0020.0002] # PERSON WITH FOLDED HANDS
+1F650 ; [*1588.0020.0002] # NORTH WEST POINTING LEAF
+1F651 ; [*1589.0020.0002] # SOUTH WEST POINTING LEAF
+1F652 ; [*158A.0020.0002] # NORTH EAST POINTING LEAF
+1F653 ; [*158B.0020.0002] # SOUTH EAST POINTING LEAF
+1F654 ; [*158C.0020.0002] # TURNED NORTH WEST POINTING LEAF
+1F655 ; [*158D.0020.0002] # TURNED SOUTH WEST POINTING LEAF
+1F656 ; [*158E.0020.0002] # TURNED NORTH EAST POINTING LEAF
+1F657 ; [*158F.0020.0002] # TURNED SOUTH EAST POINTING LEAF
+1F658 ; [*1590.0020.0002] # NORTH WEST POINTING VINE LEAF
+1F659 ; [*1591.0020.0002] # SOUTH WEST POINTING VINE LEAF
+1F65A ; [*1592.0020.0002] # NORTH EAST POINTING VINE LEAF
+1F65B ; [*1593.0020.0002] # SOUTH EAST POINTING VINE LEAF
+1F65C ; [*1594.0020.0002] # HEAVY NORTH WEST POINTING VINE LEAF
+1F65D ; [*1595.0020.0002] # HEAVY SOUTH WEST POINTING VINE LEAF
+1F65E ; [*1596.0020.0002] # HEAVY NORTH EAST POINTING VINE LEAF
+1F65F ; [*1597.0020.0002] # HEAVY SOUTH EAST POINTING VINE LEAF
+1F660 ; [*1598.0020.0002] # NORTH WEST POINTING BUD
+1F661 ; [*1599.0020.0002] # SOUTH WEST POINTING BUD
+1F662 ; [*159A.0020.0002] # NORTH EAST POINTING BUD
+1F663 ; [*159B.0020.0002] # SOUTH EAST POINTING BUD
+1F664 ; [*159C.0020.0002] # HEAVY NORTH WEST POINTING BUD
+1F665 ; [*159D.0020.0002] # HEAVY SOUTH WEST POINTING BUD
+1F666 ; [*159E.0020.0002] # HEAVY NORTH EAST POINTING BUD
+1F667 ; [*159F.0020.0002] # HEAVY SOUTH EAST POINTING BUD
+1F668 ; [*15A0.0020.0002] # HOLLOW QUILT SQUARE ORNAMENT
+1F669 ; [*15A1.0020.0002] # HOLLOW QUILT SQUARE ORNAMENT IN BLACK SQUARE
+1F66A ; [*15A2.0020.0002] # SOLID QUILT SQUARE ORNAMENT
+1F66B ; [*15A3.0020.0002] # SOLID QUILT SQUARE ORNAMENT IN BLACK SQUARE
+1F66C ; [*15A4.0020.0002] # LEFTWARDS ROCKET
+1F66D ; [*15A5.0020.0002] # UPWARDS ROCKET
+1F66E ; [*15A6.0020.0002] # RIGHTWARDS ROCKET
+1F66F ; [*15A7.0020.0002] # DOWNWARDS ROCKET
+1F670 ; [*15A8.0020.0002] # SCRIPT LIGATURE ET ORNAMENT
+1F671 ; [*15A9.0020.0002] # HEAVY SCRIPT LIGATURE ET ORNAMENT
+1F672 ; [*15AA.0020.0002] # LIGATURE OPEN ET ORNAMENT
+1F673 ; [*15AB.0020.0002] # HEAVY LIGATURE OPEN ET ORNAMENT
+1F674 ; [*15AC.0020.0002] # HEAVY AMPERSAND ORNAMENT
+1F675 ; [*15AD.0020.0002] # SWASH AMPERSAND ORNAMENT
+1F676 ; [*15AE.0020.0002] # SANS-SERIF HEAVY DOUBLE TURNED COMMA QUOTATION MARK ORNAMENT
+1F677 ; [*15AF.0020.0002] # SANS-SERIF HEAVY DOUBLE COMMA QUOTATION MARK ORNAMENT
+1F678 ; [*15B0.0020.0002] # SANS-SERIF HEAVY LOW DOUBLE COMMA QUOTATION MARK ORNAMENT
+1F679 ; [*15B1.0020.0002] # HEAVY INTERROBANG ORNAMENT
+1F67A ; [*15B2.0020.0002] # SANS-SERIF INTERROBANG ORNAMENT
+1F67B ; [*15B3.0020.0002] # HEAVY SANS-SERIF INTERROBANG ORNAMENT
+1F67C ; [*15B4.0020.0002] # VERY HEAVY SOLIDUS
+1F67D ; [*15B5.0020.0002] # VERY HEAVY REVERSE SOLIDUS
+1F67E ; [*15B6.0020.0002] # CHECKER BOARD
+1F67F ; [*15B7.0020.0002] # REVERSE CHECKER BOARD
+1F680 ; [*15B8.0020.0002] # ROCKET
+1F681 ; [*15B9.0020.0002] # HELICOPTER
+1F682 ; [*15BA.0020.0002] # STEAM LOCOMOTIVE
+1F683 ; [*15BB.0020.0002] # RAILWAY CAR
+1F684 ; [*15BC.0020.0002] # HIGH-SPEED TRAIN
+1F685 ; [*15BD.0020.0002] # HIGH-SPEED TRAIN WITH BULLET NOSE
+1F686 ; [*15BE.0020.0002] # TRAIN
+1F687 ; [*15BF.0020.0002] # METRO
+1F688 ; [*15C0.0020.0002] # LIGHT RAIL
+1F689 ; [*15C1.0020.0002] # STATION
+1F68A ; [*15C2.0020.0002] # TRAM
+1F68B ; [*15C3.0020.0002] # TRAM CAR
+1F68C ; [*15C4.0020.0002] # BUS
+1F68D ; [*15C5.0020.0002] # ONCOMING BUS
+1F68E ; [*15C6.0020.0002] # TROLLEYBUS
+1F68F ; [*15C7.0020.0002] # BUS STOP
+1F690 ; [*15C8.0020.0002] # MINIBUS
+1F691 ; [*15C9.0020.0002] # AMBULANCE
+1F692 ; [*15CA.0020.0002] # FIRE ENGINE
+1F693 ; [*15CB.0020.0002] # POLICE CAR
+1F694 ; [*15CC.0020.0002] # ONCOMING POLICE CAR
+1F695 ; [*15CD.0020.0002] # TAXI
+1F696 ; [*15CE.0020.0002] # ONCOMING TAXI
+1F697 ; [*15CF.0020.0002] # AUTOMOBILE
+1F698 ; [*15D0.0020.0002] # ONCOMING AUTOMOBILE
+1F699 ; [*15D1.0020.0002] # RECREATIONAL VEHICLE
+1F69A ; [*15D2.0020.0002] # DELIVERY TRUCK
+1F69B ; [*15D3.0020.0002] # ARTICULATED LORRY
+1F69C ; [*15D4.0020.0002] # TRACTOR
+1F69D ; [*15D5.0020.0002] # MONORAIL
+1F69E ; [*15D6.0020.0002] # MOUNTAIN RAILWAY
+1F69F ; [*15D7.0020.0002] # SUSPENSION RAILWAY
+1F6A0 ; [*15D8.0020.0002] # MOUNTAIN CABLEWAY
+1F6A1 ; [*15D9.0020.0002] # AERIAL TRAMWAY
+1F6A2 ; [*15DA.0020.0002] # SHIP
+1F6A3 ; [*15DB.0020.0002] # ROWBOAT
+1F6A4 ; [*15DC.0020.0002] # SPEEDBOAT
+1F6A5 ; [*15DD.0020.0002] # HORIZONTAL TRAFFIC LIGHT
+1F6A6 ; [*15DE.0020.0002] # VERTICAL TRAFFIC LIGHT
+1F6A7 ; [*15DF.0020.0002] # CONSTRUCTION SIGN
+1F6A8 ; [*15E0.0020.0002] # POLICE CARS REVOLVING LIGHT
+1F6A9 ; [*15E1.0020.0002] # TRIANGULAR FLAG ON POST
+1F6AA ; [*15E2.0020.0002] # DOOR
+1F6AB ; [*15E3.0020.0002] # NO ENTRY SIGN
+1F6AC ; [*15E4.0020.0002] # SMOKING SYMBOL
+1F6AD ; [*15E5.0020.0002] # NO SMOKING SYMBOL
+1F6AE ; [*15E6.0020.0002] # PUT LITTER IN ITS PLACE SYMBOL
+1F6AF ; [*15E7.0020.0002] # DO NOT LITTER SYMBOL
+1F6B0 ; [*15E8.0020.0002] # POTABLE WATER SYMBOL
+1F6B1 ; [*15E9.0020.0002] # NON-POTABLE WATER SYMBOL
+1F6B2 ; [*15EA.0020.0002] # BICYCLE
+1F6B3 ; [*15EB.0020.0002] # NO BICYCLES
+1F6B4 ; [*15EC.0020.0002] # BICYCLIST
+1F6B5 ; [*15ED.0020.0002] # MOUNTAIN BICYCLIST
+1F6B6 ; [*15EE.0020.0002] # PEDESTRIAN
+1F6B7 ; [*15EF.0020.0002] # NO PEDESTRIANS
+1F6B8 ; [*15F0.0020.0002] # CHILDREN CROSSING
+1F6B9 ; [*15F1.0020.0002] # MENS SYMBOL
+1F6BA ; [*15F2.0020.0002] # WOMENS SYMBOL
+1F6BB ; [*15F3.0020.0002] # RESTROOM
+1F6BC ; [*15F4.0020.0002] # BABY SYMBOL
+1F6BD ; [*15F5.0020.0002] # TOILET
+1F6BE ; [*15F6.0020.0002] # WATER CLOSET
+1F6BF ; [*15F7.0020.0002] # SHOWER
+1F6C0 ; [*15F8.0020.0002] # BATH
+1F6C1 ; [*15F9.0020.0002] # BATHTUB
+1F6C2 ; [*15FA.0020.0002] # PASSPORT CONTROL
+1F6C3 ; [*15FB.0020.0002] # CUSTOMS
+1F6C4 ; [*15FC.0020.0002] # BAGGAGE CLAIM
+1F6C5 ; [*15FD.0020.0002] # LEFT LUGGAGE
+1F6C6 ; [*15FE.0020.0002] # TRIANGLE WITH ROUNDED CORNERS
+1F6C7 ; [*15FF.0020.0002] # PROHIBITED SIGN
+1F6C8 ; [*1600.0020.0002] # CIRCLED INFORMATION SOURCE
+1F6C9 ; [*1601.0020.0002] # BOYS SYMBOL
+1F6CA ; [*1602.0020.0002] # GIRLS SYMBOL
+1F6CB ; [*1603.0020.0002] # COUCH AND LAMP
+1F6CC ; [*1604.0020.0002] # SLEEPING ACCOMMODATION
+1F6CD ; [*1605.0020.0002] # SHOPPING BAGS
+1F6CE ; [*1606.0020.0002] # BELLHOP BELL
+1F6CF ; [*1607.0020.0002] # BED
+1F6E0 ; [*1608.0020.0002] # HAMMER AND WRENCH
+1F6E1 ; [*1609.0020.0002] # SHIELD
+1F6E2 ; [*160A.0020.0002] # OIL DRUM
+1F6E3 ; [*160B.0020.0002] # MOTORWAY
+1F6E4 ; [*160C.0020.0002] # RAILWAY TRACK
+1F6E5 ; [*160D.0020.0002] # MOTOR BOAT
+1F6E6 ; [*160E.0020.0002] # UP-POINTING MILITARY AIRPLANE
+1F6E7 ; [*160F.0020.0002] # UP-POINTING AIRPLANE
+1F6E8 ; [*1610.0020.0002] # UP-POINTING SMALL AIRPLANE
+1F6E9 ; [*1611.0020.0002] # SMALL AIRPLANE
+1F6EA ; [*1612.0020.0002] # NORTHEAST-POINTING AIRPLANE
+1F6EB ; [*1613.0020.0002] # AIRPLANE DEPARTURE
+1F6EC ; [*1614.0020.0002] # AIRPLANE ARRIVING
+1F6F0 ; [*1615.0020.0002] # SATELLITE
+1F6F1 ; [*1616.0020.0002] # ONCOMING FIRE ENGINE
+1F6F2 ; [*1617.0020.0002] # DIESEL LOCOMOTIVE
+1F6F3 ; [*1618.0020.0002] # PASSENGER SHIP
+1F700 ; [*1619.0020.0002] # ALCHEMICAL SYMBOL FOR QUINTESSENCE
+1F701 ; [*161A.0020.0002] # ALCHEMICAL SYMBOL FOR AIR
+1F702 ; [*161B.0020.0002] # ALCHEMICAL SYMBOL FOR FIRE
+1F703 ; [*161C.0020.0002] # ALCHEMICAL SYMBOL FOR EARTH
+1F704 ; [*161D.0020.0002] # ALCHEMICAL SYMBOL FOR WATER
+1F705 ; [*161E.0020.0002] # ALCHEMICAL SYMBOL FOR AQUAFORTIS
+1F706 ; [*161F.0020.0002] # ALCHEMICAL SYMBOL FOR AQUA REGIA
+1F707 ; [*1620.0020.0002] # ALCHEMICAL SYMBOL FOR AQUA REGIA-2
+1F708 ; [*1621.0020.0002] # ALCHEMICAL SYMBOL FOR AQUA VITAE
+1F709 ; [*1622.0020.0002] # ALCHEMICAL SYMBOL FOR AQUA VITAE-2
+1F70A ; [*1623.0020.0002] # ALCHEMICAL SYMBOL FOR VINEGAR
+1F70B ; [*1624.0020.0002] # ALCHEMICAL SYMBOL FOR VINEGAR-2
+1F70C ; [*1625.0020.0002] # ALCHEMICAL SYMBOL FOR VINEGAR-3
+1F70D ; [*1626.0020.0002] # ALCHEMICAL SYMBOL FOR SULFUR
+1F70E ; [*1627.0020.0002] # ALCHEMICAL SYMBOL FOR PHILOSOPHERS SULFUR
+1F70F ; [*1628.0020.0002] # ALCHEMICAL SYMBOL FOR BLACK SULFUR
+1F710 ; [*1629.0020.0002] # ALCHEMICAL SYMBOL FOR MERCURY SUBLIMATE
+1F711 ; [*162A.0020.0002] # ALCHEMICAL SYMBOL FOR MERCURY SUBLIMATE-2
+1F712 ; [*162B.0020.0002] # ALCHEMICAL SYMBOL FOR MERCURY SUBLIMATE-3
+1F713 ; [*162C.0020.0002] # ALCHEMICAL SYMBOL FOR CINNABAR
+1F714 ; [*162D.0020.0002] # ALCHEMICAL SYMBOL FOR SALT
+1F715 ; [*162E.0020.0002] # ALCHEMICAL SYMBOL FOR NITRE
+1F716 ; [*162F.0020.0002] # ALCHEMICAL SYMBOL FOR VITRIOL
+1F717 ; [*1630.0020.0002] # ALCHEMICAL SYMBOL FOR VITRIOL-2
+1F718 ; [*1631.0020.0002] # ALCHEMICAL SYMBOL FOR ROCK SALT
+1F719 ; [*1632.0020.0002] # ALCHEMICAL SYMBOL FOR ROCK SALT-2
+1F71A ; [*1633.0020.0002] # ALCHEMICAL SYMBOL FOR GOLD
+1F71B ; [*1634.0020.0002] # ALCHEMICAL SYMBOL FOR SILVER
+1F71C ; [*1635.0020.0002] # ALCHEMICAL SYMBOL FOR IRON ORE
+1F71D ; [*1636.0020.0002] # ALCHEMICAL SYMBOL FOR IRON ORE-2
+1F71E ; [*1637.0020.0002] # ALCHEMICAL SYMBOL FOR CROCUS OF IRON
+1F71F ; [*1638.0020.0002] # ALCHEMICAL SYMBOL FOR REGULUS OF IRON
+1F720 ; [*1639.0020.0002] # ALCHEMICAL SYMBOL FOR COPPER ORE
+1F721 ; [*163A.0020.0002] # ALCHEMICAL SYMBOL FOR IRON-COPPER ORE
+1F722 ; [*163B.0020.0002] # ALCHEMICAL SYMBOL FOR SUBLIMATE OF COPPER
+1F723 ; [*163C.0020.0002] # ALCHEMICAL SYMBOL FOR CROCUS OF COPPER
+1F724 ; [*163D.0020.0002] # ALCHEMICAL SYMBOL FOR CROCUS OF COPPER-2
+1F725 ; [*163E.0020.0002] # ALCHEMICAL SYMBOL FOR COPPER ANTIMONIATE
+1F726 ; [*163F.0020.0002] # ALCHEMICAL SYMBOL FOR SALT OF COPPER ANTIMONIATE
+1F727 ; [*1640.0020.0002] # ALCHEMICAL SYMBOL FOR SUBLIMATE OF SALT OF COPPER
+1F728 ; [*1641.0020.0002] # ALCHEMICAL SYMBOL FOR VERDIGRIS
+1F729 ; [*1642.0020.0002] # ALCHEMICAL SYMBOL FOR TIN ORE
+1F72A ; [*1643.0020.0002] # ALCHEMICAL SYMBOL FOR LEAD ORE
+1F72B ; [*1644.0020.0002] # ALCHEMICAL SYMBOL FOR ANTIMONY ORE
+1F72C ; [*1645.0020.0002] # ALCHEMICAL SYMBOL FOR SUBLIMATE OF ANTIMONY
+1F72D ; [*1646.0020.0002] # ALCHEMICAL SYMBOL FOR SALT OF ANTIMONY
+1F72E ; [*1647.0020.0002] # ALCHEMICAL SYMBOL FOR SUBLIMATE OF SALT OF ANTIMONY
+1F72F ; [*1648.0020.0002] # ALCHEMICAL SYMBOL FOR VINEGAR OF ANTIMONY
+1F730 ; [*1649.0020.0002] # ALCHEMICAL SYMBOL FOR REGULUS OF ANTIMONY
+1F731 ; [*164A.0020.0002] # ALCHEMICAL SYMBOL FOR REGULUS OF ANTIMONY-2
+1F732 ; [*164B.0020.0002] # ALCHEMICAL SYMBOL FOR REGULUS
+1F733 ; [*164C.0020.0002] # ALCHEMICAL SYMBOL FOR REGULUS-2
+1F734 ; [*164D.0020.0002] # ALCHEMICAL SYMBOL FOR REGULUS-3
+1F735 ; [*164E.0020.0002] # ALCHEMICAL SYMBOL FOR REGULUS-4
+1F736 ; [*164F.0020.0002] # ALCHEMICAL SYMBOL FOR ALKALI
+1F737 ; [*1650.0020.0002] # ALCHEMICAL SYMBOL FOR ALKALI-2
+1F738 ; [*1651.0020.0002] # ALCHEMICAL SYMBOL FOR MARCASITE
+1F739 ; [*1652.0020.0002] # ALCHEMICAL SYMBOL FOR SAL-AMMONIAC
+1F73A ; [*1653.0020.0002] # ALCHEMICAL SYMBOL FOR ARSENIC
+1F73B ; [*1654.0020.0002] # ALCHEMICAL SYMBOL FOR REALGAR
+1F73C ; [*1655.0020.0002] # ALCHEMICAL SYMBOL FOR REALGAR-2
+1F73D ; [*1656.0020.0002] # ALCHEMICAL SYMBOL FOR AURIPIGMENT
+1F73E ; [*1657.0020.0002] # ALCHEMICAL SYMBOL FOR BISMUTH ORE
+1F73F ; [*1658.0020.0002] # ALCHEMICAL SYMBOL FOR TARTAR
+1F740 ; [*1659.0020.0002] # ALCHEMICAL SYMBOL FOR TARTAR-2
+1F741 ; [*165A.0020.0002] # ALCHEMICAL SYMBOL FOR QUICK LIME
+1F742 ; [*165B.0020.0002] # ALCHEMICAL SYMBOL FOR BORAX
+1F743 ; [*165C.0020.0002] # ALCHEMICAL SYMBOL FOR BORAX-2
+1F744 ; [*165D.0020.0002] # ALCHEMICAL SYMBOL FOR BORAX-3
+1F745 ; [*165E.0020.0002] # ALCHEMICAL SYMBOL FOR ALUM
+1F746 ; [*165F.0020.0002] # ALCHEMICAL SYMBOL FOR OIL
+1F747 ; [*1660.0020.0002] # ALCHEMICAL SYMBOL FOR SPIRIT
+1F748 ; [*1661.0020.0002] # ALCHEMICAL SYMBOL FOR TINCTURE
+1F749 ; [*1662.0020.0002] # ALCHEMICAL SYMBOL FOR GUM
+1F74A ; [*1663.0020.0002] # ALCHEMICAL SYMBOL FOR WAX
+1F74B ; [*1664.0020.0002] # ALCHEMICAL SYMBOL FOR POWDER
+1F74C ; [*1665.0020.0002] # ALCHEMICAL SYMBOL FOR CALX
+1F74D ; [*1666.0020.0002] # ALCHEMICAL SYMBOL FOR TUTTY
+1F74E ; [*1667.0020.0002] # ALCHEMICAL SYMBOL FOR CAPUT MORTUUM
+1F74F ; [*1668.0020.0002] # ALCHEMICAL SYMBOL FOR SCEPTER OF JOVE
+1F750 ; [*1669.0020.0002] # ALCHEMICAL SYMBOL FOR CADUCEUS
+1F751 ; [*166A.0020.0002] # ALCHEMICAL SYMBOL FOR TRIDENT
+1F752 ; [*166B.0020.0002] # ALCHEMICAL SYMBOL FOR STARRED TRIDENT
+1F753 ; [*166C.0020.0002] # ALCHEMICAL SYMBOL FOR LODESTONE
+1F754 ; [*166D.0020.0002] # ALCHEMICAL SYMBOL FOR SOAP
+1F755 ; [*166E.0020.0002] # ALCHEMICAL SYMBOL FOR URINE
+1F756 ; [*166F.0020.0002] # ALCHEMICAL SYMBOL FOR HORSE DUNG
+1F757 ; [*1670.0020.0002] # ALCHEMICAL SYMBOL FOR ASHES
+1F758 ; [*1671.0020.0002] # ALCHEMICAL SYMBOL FOR POT ASHES
+1F759 ; [*1672.0020.0002] # ALCHEMICAL SYMBOL FOR BRICK
+1F75A ; [*1673.0020.0002] # ALCHEMICAL SYMBOL FOR POWDERED BRICK
+1F75B ; [*1674.0020.0002] # ALCHEMICAL SYMBOL FOR AMALGAM
+1F75C ; [*1675.0020.0002] # ALCHEMICAL SYMBOL FOR STRATUM SUPER STRATUM
+1F75D ; [*1676.0020.0002] # ALCHEMICAL SYMBOL FOR STRATUM SUPER STRATUM-2
+1F75E ; [*1677.0020.0002] # ALCHEMICAL SYMBOL FOR SUBLIMATION
+1F75F ; [*1678.0020.0002] # ALCHEMICAL SYMBOL FOR PRECIPITATE
+1F760 ; [*1679.0020.0002] # ALCHEMICAL SYMBOL FOR DISTILL
+1F761 ; [*167A.0020.0002] # ALCHEMICAL SYMBOL FOR DISSOLVE
+1F762 ; [*167B.0020.0002] # ALCHEMICAL SYMBOL FOR DISSOLVE-2
+1F763 ; [*167C.0020.0002] # ALCHEMICAL SYMBOL FOR PURIFY
+1F764 ; [*167D.0020.0002] # ALCHEMICAL SYMBOL FOR PUTREFACTION
+1F765 ; [*167E.0020.0002] # ALCHEMICAL SYMBOL FOR CRUCIBLE
+1F766 ; [*167F.0020.0002] # ALCHEMICAL SYMBOL FOR CRUCIBLE-2
+1F767 ; [*1680.0020.0002] # ALCHEMICAL SYMBOL FOR CRUCIBLE-3
+1F768 ; [*1681.0020.0002] # ALCHEMICAL SYMBOL FOR CRUCIBLE-4
+1F769 ; [*1682.0020.0002] # ALCHEMICAL SYMBOL FOR CRUCIBLE-5
+1F76A ; [*1683.0020.0002] # ALCHEMICAL SYMBOL FOR ALEMBIC
+1F76B ; [*1684.0020.0002] # ALCHEMICAL SYMBOL FOR BATH OF MARY
+1F76C ; [*1685.0020.0002] # ALCHEMICAL SYMBOL FOR BATH OF VAPOURS
+1F76D ; [*1686.0020.0002] # ALCHEMICAL SYMBOL FOR RETORT
+1F76E ; [*1687.0020.0002] # ALCHEMICAL SYMBOL FOR HOUR
+1F76F ; [*1688.0020.0002] # ALCHEMICAL SYMBOL FOR NIGHT
+1F770 ; [*1689.0020.0002] # ALCHEMICAL SYMBOL FOR DAY-NIGHT
+1F771 ; [*168A.0020.0002] # ALCHEMICAL SYMBOL FOR MONTH
+1F772 ; [*168B.0020.0002] # ALCHEMICAL SYMBOL FOR HALF DRAM
+1F773 ; [*168C.0020.0002] # ALCHEMICAL SYMBOL FOR HALF OUNCE
+1F780 ; [*168D.0020.0002] # BLACK LEFT-POINTING ISOSCELES RIGHT TRIANGLE
+1F781 ; [*168E.0020.0002] # BLACK UP-POINTING ISOSCELES RIGHT TRIANGLE
+1F782 ; [*168F.0020.0002] # BLACK RIGHT-POINTING ISOSCELES RIGHT TRIANGLE
+1F783 ; [*1690.0020.0002] # BLACK DOWN-POINTING ISOSCELES RIGHT TRIANGLE
+1F784 ; [*1691.0020.0002] # BLACK SLIGHTLY SMALL CIRCLE
+1F785 ; [*1692.0020.0002] # MEDIUM BOLD WHITE CIRCLE
+1F786 ; [*1693.0020.0002] # BOLD WHITE CIRCLE
+1F787 ; [*1694.0020.0002] # HEAVY WHITE CIRCLE
+1F788 ; [*1695.0020.0002] # VERY HEAVY WHITE CIRCLE
+1F789 ; [*1696.0020.0002] # EXTREMELY HEAVY WHITE CIRCLE
+1F78A ; [*1697.0020.0002] # WHITE CIRCLE CONTAINING BLACK SMALL CIRCLE
+1F78B ; [*1698.0020.0002] # ROUND TARGET
+1F78C ; [*1699.0020.0002] # BLACK TINY SQUARE
+1F78D ; [*169A.0020.0002] # BLACK SLIGHTLY SMALL SQUARE
+1F78E ; [*169B.0020.0002] # LIGHT WHITE SQUARE
+1F78F ; [*169C.0020.0002] # MEDIUM WHITE SQUARE
+1F790 ; [*169D.0020.0002] # BOLD WHITE SQUARE
+1F791 ; [*169E.0020.0002] # HEAVY WHITE SQUARE
+1F792 ; [*169F.0020.0002] # VERY HEAVY WHITE SQUARE
+1F793 ; [*16A0.0020.0002] # EXTREMELY HEAVY WHITE SQUARE
+1F794 ; [*16A1.0020.0002] # WHITE SQUARE CONTAINING BLACK VERY SMALL SQUARE
+1F795 ; [*16A2.0020.0002] # WHITE SQUARE CONTAINING BLACK MEDIUM SQUARE
+1F796 ; [*16A3.0020.0002] # SQUARE TARGET
+1F797 ; [*16A4.0020.0002] # BLACK TINY DIAMOND
+1F798 ; [*16A5.0020.0002] # BLACK VERY SMALL DIAMOND
+1F799 ; [*16A6.0020.0002] # BLACK MEDIUM SMALL DIAMOND
+1F79A ; [*16A7.0020.0002] # WHITE DIAMOND CONTAINING BLACK VERY SMALL DIAMOND
+1F79B ; [*16A8.0020.0002] # WHITE DIAMOND CONTAINING BLACK MEDIUM DIAMOND
+1F79C ; [*16A9.0020.0002] # DIAMOND TARGET
+1F79D ; [*16AA.0020.0002] # BLACK TINY LOZENGE
+1F79E ; [*16AB.0020.0002] # BLACK VERY SMALL LOZENGE
+1F79F ; [*16AC.0020.0002] # BLACK MEDIUM SMALL LOZENGE
+1F7A0 ; [*16AD.0020.0002] # WHITE LOZENGE CONTAINING BLACK SMALL LOZENGE
+1F7A1 ; [*16AE.0020.0002] # THIN GREEK CROSS
+1F7A2 ; [*16AF.0020.0002] # LIGHT GREEK CROSS
+1F7A3 ; [*16B0.0020.0002] # MEDIUM GREEK CROSS
+1F7A4 ; [*16B1.0020.0002] # BOLD GREEK CROSS
+1F7A5 ; [*16B2.0020.0002] # VERY BOLD GREEK CROSS
+1F7A6 ; [*16B3.0020.0002] # VERY HEAVY GREEK CROSS
+1F7A7 ; [*16B4.0020.0002] # EXTREMELY HEAVY GREEK CROSS
+1F7A8 ; [*16B5.0020.0002] # THIN SALTIRE
+1F7A9 ; [*16B6.0020.0002] # LIGHT SALTIRE
+1F7AA ; [*16B7.0020.0002] # MEDIUM SALTIRE
+1F7AB ; [*16B8.0020.0002] # BOLD SALTIRE
+1F7AC ; [*16B9.0020.0002] # HEAVY SALTIRE
+1F7AD ; [*16BA.0020.0002] # VERY HEAVY SALTIRE
+1F7AE ; [*16BB.0020.0002] # EXTREMELY HEAVY SALTIRE
+1F7AF ; [*16BC.0020.0002] # LIGHT FIVE SPOKED ASTERISK
+1F7B0 ; [*16BD.0020.0002] # MEDIUM FIVE SPOKED ASTERISK
+1F7B1 ; [*16BE.0020.0002] # BOLD FIVE SPOKED ASTERISK
+1F7B2 ; [*16BF.0020.0002] # HEAVY FIVE SPOKED ASTERISK
+1F7B3 ; [*16C0.0020.0002] # VERY HEAVY FIVE SPOKED ASTERISK
+1F7B4 ; [*16C1.0020.0002] # EXTREMELY HEAVY FIVE SPOKED ASTERISK
+1F7B5 ; [*16C2.0020.0002] # LIGHT SIX SPOKED ASTERISK
+1F7B6 ; [*16C3.0020.0002] # MEDIUM SIX SPOKED ASTERISK
+1F7B7 ; [*16C4.0020.0002] # BOLD SIX SPOKED ASTERISK
+1F7B8 ; [*16C5.0020.0002] # HEAVY SIX SPOKED ASTERISK
+1F7B9 ; [*16C6.0020.0002] # VERY HEAVY SIX SPOKED ASTERISK
+1F7BA ; [*16C7.0020.0002] # EXTREMELY HEAVY SIX SPOKED ASTERISK
+1F7BB ; [*16C8.0020.0002] # LIGHT EIGHT SPOKED ASTERISK
+1F7BC ; [*16C9.0020.0002] # MEDIUM EIGHT SPOKED ASTERISK
+1F7BD ; [*16CA.0020.0002] # BOLD EIGHT SPOKED ASTERISK
+1F7BE ; [*16CB.0020.0002] # HEAVY EIGHT SPOKED ASTERISK
+1F7BF ; [*16CC.0020.0002] # VERY HEAVY EIGHT SPOKED ASTERISK
+1F7C0 ; [*16CD.0020.0002] # LIGHT THREE POINTED BLACK STAR
+1F7C1 ; [*16CE.0020.0002] # MEDIUM THREE POINTED BLACK STAR
+1F7C2 ; [*16CF.0020.0002] # THREE POINTED BLACK STAR
+1F7C3 ; [*16D0.0020.0002] # MEDIUM THREE POINTED PINWHEEL STAR
+1F7C4 ; [*16D1.0020.0002] # LIGHT FOUR POINTED BLACK STAR
+1F7C5 ; [*16D2.0020.0002] # MEDIUM FOUR POINTED BLACK STAR
+1F7C6 ; [*16D3.0020.0002] # FOUR POINTED BLACK STAR
+1F7C7 ; [*16D4.0020.0002] # MEDIUM FOUR POINTED PINWHEEL STAR
+1F7C8 ; [*16D5.0020.0002] # REVERSE LIGHT FOUR POINTED PINWHEEL STAR
+1F7C9 ; [*16D6.0020.0002] # LIGHT FIVE POINTED BLACK STAR
+1F7CA ; [*16D7.0020.0002] # HEAVY FIVE POINTED BLACK STAR
+1F7CB ; [*16D8.0020.0002] # MEDIUM SIX POINTED BLACK STAR
+1F7CC ; [*16D9.0020.0002] # HEAVY SIX POINTED BLACK STAR
+1F7CD ; [*16DA.0020.0002] # SIX POINTED PINWHEEL STAR
+1F7CE ; [*16DB.0020.0002] # MEDIUM EIGHT POINTED BLACK STAR
+1F7CF ; [*16DC.0020.0002] # HEAVY EIGHT POINTED BLACK STAR
+1F7D0 ; [*16DD.0020.0002] # VERY HEAVY EIGHT POINTED BLACK STAR
+1F7D1 ; [*16DE.0020.0002] # HEAVY EIGHT POINTED PINWHEEL STAR
+1F7D2 ; [*16DF.0020.0002] # LIGHT TWELVE POINTED BLACK STAR
+1F7D3 ; [*16E0.0020.0002] # HEAVY TWELVE POINTED BLACK STAR
+1F7D4 ; [*16E1.0020.0002] # HEAVY TWELVE POINTED PINWHEEL STAR
+1F800 ; [*16E2.0020.0002] # LEFTWARDS ARROW WITH SMALL TRIANGLE ARROWHEAD
+1F801 ; [*16E3.0020.0002] # UPWARDS ARROW WITH SMALL TRIANGLE ARROWHEAD
+1F802 ; [*16E4.0020.0002] # RIGHTWARDS ARROW WITH SMALL TRIANGLE ARROWHEAD
+1F803 ; [*16E5.0020.0002] # DOWNWARDS ARROW WITH SMALL TRIANGLE ARROWHEAD
+1F804 ; [*16E6.0020.0002] # LEFTWARDS ARROW WITH MEDIUM TRIANGLE ARROWHEAD
+1F805 ; [*16E7.0020.0002] # UPWARDS ARROW WITH MEDIUM TRIANGLE ARROWHEAD
+1F806 ; [*16E8.0020.0002] # RIGHTWARDS ARROW WITH MEDIUM TRIANGLE ARROWHEAD
+1F807 ; [*16E9.0020.0002] # DOWNWARDS ARROW WITH MEDIUM TRIANGLE ARROWHEAD
+1F808 ; [*16EA.0020.0002] # LEFTWARDS ARROW WITH LARGE TRIANGLE ARROWHEAD
+1F809 ; [*16EB.0020.0002] # UPWARDS ARROW WITH LARGE TRIANGLE ARROWHEAD
+1F80A ; [*16EC.0020.0002] # RIGHTWARDS ARROW WITH LARGE TRIANGLE ARROWHEAD
+1F80B ; [*16ED.0020.0002] # DOWNWARDS ARROW WITH LARGE TRIANGLE ARROWHEAD
+1F810 ; [*16EE.0020.0002] # LEFTWARDS ARROW WITH SMALL EQUILATERAL ARROWHEAD
+1F811 ; [*16EF.0020.0002] # UPWARDS ARROW WITH SMALL EQUILATERAL ARROWHEAD
+1F812 ; [*16F0.0020.0002] # RIGHTWARDS ARROW WITH SMALL EQUILATERAL ARROWHEAD
+1F813 ; [*16F1.0020.0002] # DOWNWARDS ARROW WITH SMALL EQUILATERAL ARROWHEAD
+1F814 ; [*16F2.0020.0002] # LEFTWARDS ARROW WITH EQUILATERAL ARROWHEAD
+1F815 ; [*16F3.0020.0002] # UPWARDS ARROW WITH EQUILATERAL ARROWHEAD
+1F816 ; [*16F4.0020.0002] # RIGHTWARDS ARROW WITH EQUILATERAL ARROWHEAD
+1F817 ; [*16F5.0020.0002] # DOWNWARDS ARROW WITH EQUILATERAL ARROWHEAD
+1F818 ; [*16F6.0020.0002] # HEAVY LEFTWARDS ARROW WITH EQUILATERAL ARROWHEAD
+1F819 ; [*16F7.0020.0002] # HEAVY UPWARDS ARROW WITH EQUILATERAL ARROWHEAD
+1F81A ; [*16F8.0020.0002] # HEAVY RIGHTWARDS ARROW WITH EQUILATERAL ARROWHEAD
+1F81B ; [*16F9.0020.0002] # HEAVY DOWNWARDS ARROW WITH EQUILATERAL ARROWHEAD
+1F81C ; [*16FA.0020.0002] # HEAVY LEFTWARDS ARROW WITH LARGE EQUILATERAL ARROWHEAD
+1F81D ; [*16FB.0020.0002] # HEAVY UPWARDS ARROW WITH LARGE EQUILATERAL ARROWHEAD
+1F81E ; [*16FC.0020.0002] # HEAVY RIGHTWARDS ARROW WITH LARGE EQUILATERAL ARROWHEAD
+1F81F ; [*16FD.0020.0002] # HEAVY DOWNWARDS ARROW WITH LARGE EQUILATERAL ARROWHEAD
+1F820 ; [*16FE.0020.0002] # LEFTWARDS TRIANGLE-HEADED ARROW WITH NARROW SHAFT
+1F821 ; [*16FF.0020.0002] # UPWARDS TRIANGLE-HEADED ARROW WITH NARROW SHAFT
+1F822 ; [*1700.0020.0002] # RIGHTWARDS TRIANGLE-HEADED ARROW WITH NARROW SHAFT
+1F823 ; [*1701.0020.0002] # DOWNWARDS TRIANGLE-HEADED ARROW WITH NARROW SHAFT
+1F824 ; [*1702.0020.0002] # LEFTWARDS TRIANGLE-HEADED ARROW WITH MEDIUM SHAFT
+1F825 ; [*1703.0020.0002] # UPWARDS TRIANGLE-HEADED ARROW WITH MEDIUM SHAFT
+1F826 ; [*1704.0020.0002] # RIGHTWARDS TRIANGLE-HEADED ARROW WITH MEDIUM SHAFT
+1F827 ; [*1705.0020.0002] # DOWNWARDS TRIANGLE-HEADED ARROW WITH MEDIUM SHAFT
+1F828 ; [*1706.0020.0002] # LEFTWARDS TRIANGLE-HEADED ARROW WITH BOLD SHAFT
+1F829 ; [*1707.0020.0002] # UPWARDS TRIANGLE-HEADED ARROW WITH BOLD SHAFT
+1F82A ; [*1708.0020.0002] # RIGHTWARDS TRIANGLE-HEADED ARROW WITH BOLD SHAFT
+1F82B ; [*1709.0020.0002] # DOWNWARDS TRIANGLE-HEADED ARROW WITH BOLD SHAFT
+1F82C ; [*170A.0020.0002] # LEFTWARDS TRIANGLE-HEADED ARROW WITH HEAVY SHAFT
+1F82D ; [*170B.0020.0002] # UPWARDS TRIANGLE-HEADED ARROW WITH HEAVY SHAFT
+1F82E ; [*170C.0020.0002] # RIGHTWARDS TRIANGLE-HEADED ARROW WITH HEAVY SHAFT
+1F82F ; [*170D.0020.0002] # DOWNWARDS TRIANGLE-HEADED ARROW WITH HEAVY SHAFT
+1F830 ; [*170E.0020.0002] # LEFTWARDS TRIANGLE-HEADED ARROW WITH VERY HEAVY SHAFT
+1F831 ; [*170F.0020.0002] # UPWARDS TRIANGLE-HEADED ARROW WITH VERY HEAVY SHAFT
+1F832 ; [*1710.0020.0002] # RIGHTWARDS TRIANGLE-HEADED ARROW WITH VERY HEAVY SHAFT
+1F833 ; [*1711.0020.0002] # DOWNWARDS TRIANGLE-HEADED ARROW WITH VERY HEAVY SHAFT
+1F834 ; [*1712.0020.0002] # LEFTWARDS FINGER-POST ARROW
+1F835 ; [*1713.0020.0002] # UPWARDS FINGER-POST ARROW
+1F836 ; [*1714.0020.0002] # RIGHTWARDS FINGER-POST ARROW
+1F837 ; [*1715.0020.0002] # DOWNWARDS FINGER-POST ARROW
+1F838 ; [*1716.0020.0002] # LEFTWARDS SQUARED ARROW
+1F839 ; [*1717.0020.0002] # UPWARDS SQUARED ARROW
+1F83A ; [*1718.0020.0002] # RIGHTWARDS SQUARED ARROW
+1F83B ; [*1719.0020.0002] # DOWNWARDS SQUARED ARROW
+1F83C ; [*171A.0020.0002] # LEFTWARDS COMPRESSED ARROW
+1F83D ; [*171B.0020.0002] # UPWARDS COMPRESSED ARROW
+1F83E ; [*171C.0020.0002] # RIGHTWARDS COMPRESSED ARROW
+1F83F ; [*171D.0020.0002] # DOWNWARDS COMPRESSED ARROW
+1F840 ; [*171E.0020.0002] # LEFTWARDS HEAVY COMPRESSED ARROW
+1F841 ; [*171F.0020.0002] # UPWARDS HEAVY COMPRESSED ARROW
+1F842 ; [*1720.0020.0002] # RIGHTWARDS HEAVY COMPRESSED ARROW
+1F843 ; [*1721.0020.0002] # DOWNWARDS HEAVY COMPRESSED ARROW
+1F844 ; [*1722.0020.0002] # LEFTWARDS HEAVY ARROW
+1F845 ; [*1723.0020.0002] # UPWARDS HEAVY ARROW
+1F846 ; [*1724.0020.0002] # RIGHTWARDS HEAVY ARROW
+1F847 ; [*1725.0020.0002] # DOWNWARDS HEAVY ARROW
+1F850 ; [*1726.0020.0002] # LEFTWARDS SANS-SERIF ARROW
+1F851 ; [*1727.0020.0002] # UPWARDS SANS-SERIF ARROW
+1F852 ; [*1728.0020.0002] # RIGHTWARDS SANS-SERIF ARROW
+1F853 ; [*1729.0020.0002] # DOWNWARDS SANS-SERIF ARROW
+1F854 ; [*172A.0020.0002] # NORTH WEST SANS-SERIF ARROW
+1F855 ; [*172B.0020.0002] # NORTH EAST SANS-SERIF ARROW
+1F856 ; [*172C.0020.0002] # SOUTH EAST SANS-SERIF ARROW
+1F857 ; [*172D.0020.0002] # SOUTH WEST SANS-SERIF ARROW
+1F858 ; [*172E.0020.0002] # LEFT RIGHT SANS-SERIF ARROW
+1F859 ; [*172F.0020.0002] # UP DOWN SANS-SERIF ARROW
+1F860 ; [*1730.0020.0002] # WIDE-HEADED LEFTWARDS LIGHT BARB ARROW
+1F861 ; [*1731.0020.0002] # WIDE-HEADED UPWARDS LIGHT BARB ARROW
+1F862 ; [*1732.0020.0002] # WIDE-HEADED RIGHTWARDS LIGHT BARB ARROW
+1F863 ; [*1733.0020.0002] # WIDE-HEADED DOWNWARDS LIGHT BARB ARROW
+1F864 ; [*1734.0020.0002] # WIDE-HEADED NORTH WEST LIGHT BARB ARROW
+1F865 ; [*1735.0020.0002] # WIDE-HEADED NORTH EAST LIGHT BARB ARROW
+1F866 ; [*1736.0020.0002] # WIDE-HEADED SOUTH EAST LIGHT BARB ARROW
+1F867 ; [*1737.0020.0002] # WIDE-HEADED SOUTH WEST LIGHT BARB ARROW
+1F868 ; [*1738.0020.0002] # WIDE-HEADED LEFTWARDS BARB ARROW
+1F869 ; [*1739.0020.0002] # WIDE-HEADED UPWARDS BARB ARROW
+1F86A ; [*173A.0020.0002] # WIDE-HEADED RIGHTWARDS BARB ARROW
+1F86B ; [*173B.0020.0002] # WIDE-HEADED DOWNWARDS BARB ARROW
+1F86C ; [*173C.0020.0002] # WIDE-HEADED NORTH WEST BARB ARROW
+1F86D ; [*173D.0020.0002] # WIDE-HEADED NORTH EAST BARB ARROW
+1F86E ; [*173E.0020.0002] # WIDE-HEADED SOUTH EAST BARB ARROW
+1F86F ; [*173F.0020.0002] # WIDE-HEADED SOUTH WEST BARB ARROW
+1F870 ; [*1740.0020.0002] # WIDE-HEADED LEFTWARDS MEDIUM BARB ARROW
+1F871 ; [*1741.0020.0002] # WIDE-HEADED UPWARDS MEDIUM BARB ARROW
+1F872 ; [*1742.0020.0002] # WIDE-HEADED RIGHTWARDS MEDIUM BARB ARROW
+1F873 ; [*1743.0020.0002] # WIDE-HEADED DOWNWARDS MEDIUM BARB ARROW
+1F874 ; [*1744.0020.0002] # WIDE-HEADED NORTH WEST MEDIUM BARB ARROW
+1F875 ; [*1745.0020.0002] # WIDE-HEADED NORTH EAST MEDIUM BARB ARROW
+1F876 ; [*1746.0020.0002] # WIDE-HEADED SOUTH EAST MEDIUM BARB ARROW
+1F877 ; [*1747.0020.0002] # WIDE-HEADED SOUTH WEST MEDIUM BARB ARROW
+1F878 ; [*1748.0020.0002] # WIDE-HEADED LEFTWARDS HEAVY BARB ARROW
+1F879 ; [*1749.0020.0002] # WIDE-HEADED UPWARDS HEAVY BARB ARROW
+1F87A ; [*174A.0020.0002] # WIDE-HEADED RIGHTWARDS HEAVY BARB ARROW
+1F87B ; [*174B.0020.0002] # WIDE-HEADED DOWNWARDS HEAVY BARB ARROW
+1F87C ; [*174C.0020.0002] # WIDE-HEADED NORTH WEST HEAVY BARB ARROW
+1F87D ; [*174D.0020.0002] # WIDE-HEADED NORTH EAST HEAVY BARB ARROW
+1F87E ; [*174E.0020.0002] # WIDE-HEADED SOUTH EAST HEAVY BARB ARROW
+1F87F ; [*174F.0020.0002] # WIDE-HEADED SOUTH WEST HEAVY BARB ARROW
+1F880 ; [*1750.0020.0002] # WIDE-HEADED LEFTWARDS VERY HEAVY BARB ARROW
+1F881 ; [*1751.0020.0002] # WIDE-HEADED UPWARDS VERY HEAVY BARB ARROW
+1F882 ; [*1752.0020.0002] # WIDE-HEADED RIGHTWARDS VERY HEAVY BARB ARROW
+1F883 ; [*1753.0020.0002] # WIDE-HEADED DOWNWARDS VERY HEAVY BARB ARROW
+1F884 ; [*1754.0020.0002] # WIDE-HEADED NORTH WEST VERY HEAVY BARB ARROW
+1F885 ; [*1755.0020.0002] # WIDE-HEADED NORTH EAST VERY HEAVY BARB ARROW
+1F886 ; [*1756.0020.0002] # WIDE-HEADED SOUTH EAST VERY HEAVY BARB ARROW
+1F887 ; [*1757.0020.0002] # WIDE-HEADED SOUTH WEST VERY HEAVY BARB ARROW
+1F890 ; [*1758.0020.0002] # LEFTWARDS TRIANGLE ARROWHEAD
+1F891 ; [*1759.0020.0002] # UPWARDS TRIANGLE ARROWHEAD
+1F892 ; [*175A.0020.0002] # RIGHTWARDS TRIANGLE ARROWHEAD
+1F893 ; [*175B.0020.0002] # DOWNWARDS TRIANGLE ARROWHEAD
+1F894 ; [*175C.0020.0002] # LEFTWARDS WHITE ARROW WITHIN TRIANGLE ARROWHEAD
+1F895 ; [*175D.0020.0002] # UPWARDS WHITE ARROW WITHIN TRIANGLE ARROWHEAD
+1F896 ; [*175E.0020.0002] # RIGHTWARDS WHITE ARROW WITHIN TRIANGLE ARROWHEAD
+1F897 ; [*175F.0020.0002] # DOWNWARDS WHITE ARROW WITHIN TRIANGLE ARROWHEAD
+1F898 ; [*1760.0020.0002] # LEFTWARDS ARROW WITH NOTCHED TAIL
+1F899 ; [*1761.0020.0002] # UPWARDS ARROW WITH NOTCHED TAIL
+1F89A ; [*1762.0020.0002] # RIGHTWARDS ARROW WITH NOTCHED TAIL
+1F89B ; [*1763.0020.0002] # DOWNWARDS ARROW WITH NOTCHED TAIL
+1F89C ; [*1764.0020.0002] # HEAVY ARROW SHAFT WIDTH ONE
+1F89D ; [*1765.0020.0002] # HEAVY ARROW SHAFT WIDTH TWO THIRDS
+1F89E ; [*1766.0020.0002] # HEAVY ARROW SHAFT WIDTH ONE HALF
+1F89F ; [*1767.0020.0002] # HEAVY ARROW SHAFT WIDTH ONE THIRD
+1F8A0 ; [*1768.0020.0002] # LEFTWARDS BOTTOM-SHADED WHITE ARROW
+1F8A1 ; [*1769.0020.0002] # RIGHTWARDS BOTTOM SHADED WHITE ARROW
+1F8A2 ; [*176A.0020.0002] # LEFTWARDS TOP SHADED WHITE ARROW
+1F8A3 ; [*176B.0020.0002] # RIGHTWARDS TOP SHADED WHITE ARROW
+1F8A4 ; [*176C.0020.0002] # LEFTWARDS LEFT-SHADED WHITE ARROW
+1F8A5 ; [*176D.0020.0002] # RIGHTWARDS RIGHT-SHADED WHITE ARROW
+1F8A6 ; [*176E.0020.0002] # LEFTWARDS RIGHT-SHADED WHITE ARROW
+1F8A7 ; [*176F.0020.0002] # RIGHTWARDS LEFT-SHADED WHITE ARROW
+1F8A8 ; [*1770.0020.0002] # LEFTWARDS BACK-TILTED SHADOWED WHITE ARROW
+1F8A9 ; [*1771.0020.0002] # RIGHTWARDS BACK-TILTED SHADOWED WHITE ARROW
+1F8AA ; [*1772.0020.0002] # LEFTWARDS FRONT-TILTED SHADOWED WHITE ARROW
+1F8AB ; [*1773.0020.0002] # RIGHTWARDS FRONT-TILTED SHADOWED WHITE ARROW
+1F8AC ; [*1774.0020.0002] # WHITE ARROW SHAFT WIDTH ONE
+1F8AD ; [*1775.0020.0002] # WHITE ARROW SHAFT WIDTH TWO THIRDS
+0332  ; [.0000.0021.0002] # COMBINING LOW LINE
+0313  ; [.0000.0022.0002] # COMBINING COMMA ABOVE
+0343  ; [.0000.0022.0002] # COMBINING GREEK KORONIS
+0486  ; [.0000.0022.0002] # COMBINING CYRILLIC PSILI PNEUMATA
+2CF1  ; [.0000.0022.0002] # COPTIC COMBINING SPIRITUS LENIS
+0314  ; [.0000.0023.0002] # COMBINING REVERSED COMMA ABOVE
+0485  ; [.0000.0023.0002] # COMBINING CYRILLIC DASIA PNEUMATA
+2CF0  ; [.0000.0023.0002] # COPTIC COMBINING SPIRITUS ASPER
+0301  ; [.0000.0024.0002] # COMBINING ACUTE ACCENT
+0341  ; [.0000.0024.0002] # COMBINING ACUTE TONE MARK
+0954  ; [.0000.0024.0002] # DEVANAGARI ACUTE ACCENT
+0300  ; [.0000.0025.0002] # COMBINING GRAVE ACCENT
+0340  ; [.0000.0025.0002] # COMBINING GRAVE TONE MARK
+0953  ; [.0000.0025.0002] # DEVANAGARI GRAVE ACCENT
+0306  ; [.0000.0026.0002] # COMBINING BREVE
+0302  ; [.0000.0027.0002] # COMBINING CIRCUMFLEX ACCENT
+030C  ; [.0000.0028.0002] # COMBINING CARON
+030A  ; [.0000.0029.0002] # COMBINING RING ABOVE
+0342  ; [.0000.002A.0002] # COMBINING GREEK PERISPOMENI
+0308  ; [.0000.002B.0002] # COMBINING DIAERESIS
+0344  ; [.0000.002B.0002][.0000.0024.0002] # COMBINING GREEK DIALYTIKA TONOS
+030B  ; [.0000.002C.0002] # COMBINING DOUBLE ACUTE ACCENT
+0303  ; [.0000.002D.0002] # COMBINING TILDE
+0307  ; [.0000.002E.0002] # COMBINING DOT ABOVE
+0338  ; [.0000.002F.0002] # COMBINING LONG SOLIDUS OVERLAY
+0327  ; [.0000.0030.0002] # COMBINING CEDILLA
+0328  ; [.0000.0031.0002] # COMBINING OGONEK
+0304  ; [.0000.0032.0002] # COMBINING MACRON
+030D  ; [.0000.0033.0002] # COMBINING VERTICAL LINE ABOVE
+030E  ; [.0000.0033.0002] # COMBINING DOUBLE VERTICAL LINE ABOVE
+0312  ; [.0000.0033.0002] # COMBINING TURNED COMMA ABOVE
+0315  ; [.0000.0033.0002] # COMBINING COMMA ABOVE RIGHT
+031A  ; [.0000.0033.0002] # COMBINING LEFT ANGLE ABOVE
+033D  ; [.0000.0033.0002] # COMBINING X ABOVE
+033E  ; [.0000.0033.0002] # COMBINING VERTICAL TILDE
+033F  ; [.0000.0033.0002] # COMBINING DOUBLE OVERLINE
+0346  ; [.0000.0033.0002] # COMBINING BRIDGE ABOVE
+034A  ; [.0000.0033.0002] # COMBINING NOT TILDE ABOVE
+034B  ; [.0000.0033.0002] # COMBINING HOMOTHETIC ABOVE
+034C  ; [.0000.0033.0002] # COMBINING ALMOST EQUAL TO ABOVE
+0350  ; [.0000.0033.0002] # COMBINING RIGHT ARROWHEAD ABOVE
+0351  ; [.0000.0033.0002] # COMBINING LEFT HALF RING ABOVE
+0352  ; [.0000.0033.0002] # COMBINING FERMATA
+0357  ; [.0000.0033.0002] # COMBINING RIGHT HALF RING ABOVE
+035B  ; [.0000.0033.0002] # COMBINING ZIGZAG ABOVE
+035D  ; [.0000.0033.0002] # COMBINING DOUBLE BREVE
+035E  ; [.0000.0033.0002] # COMBINING DOUBLE MACRON
+0484  ; [.0000.0033.0002] # COMBINING CYRILLIC PALATALIZATION
+0487  ; [.0000.0033.0002] # COMBINING CYRILLIC POKRYTIE
+0741  ; [.0000.0033.0002] # SYRIAC QUSHSHAYA
+0745  ; [.0000.0033.0002] # SYRIAC THREE DOTS ABOVE
+17CB  ; [.0000.0033.0002] # KHMER SIGN BANTOC
+17CC  ; [.0000.0033.0002] # KHMER SIGN ROBAT
+17CD  ; [.0000.0033.0002] # KHMER SIGN TOANDAKHIAT
+17CE  ; [.0000.0033.0002] # KHMER SIGN KAKABAT
+17CF  ; [.0000.0033.0002] # KHMER SIGN AHSDA
+17D0  ; [.0000.0033.0002] # KHMER SIGN SAMYOK SANNYA
+17D1  ; [.0000.0033.0002] # KHMER SIGN VIRIAM
+17DD  ; [.0000.0033.0002] # KHMER SIGN ATTHACAN
+1AB0  ; [.0000.0033.0002] # COMBINING DOUBLED CIRCUMFLEX ACCENT
+1AB1  ; [.0000.0033.0002] # COMBINING DIAERESIS-RING
+1AB2  ; [.0000.0033.0002] # COMBINING INFINITY
+1AB3  ; [.0000.0033.0002] # COMBINING DOWNWARDS ARROW
+1AB4  ; [.0000.0033.0002] # COMBINING TRIPLE DOT
+1ABB  ; [.0000.0033.0002] # COMBINING PARENTHESES ABOVE
+1ABC  ; [.0000.0033.0002] # COMBINING DOUBLE PARENTHESES ABOVE
+1DC0  ; [.0000.0033.0002] # COMBINING DOTTED GRAVE ACCENT
+1DC1  ; [.0000.0033.0002] # COMBINING DOTTED ACUTE ACCENT
+1DC3  ; [.0000.0033.0002] # COMBINING SUSPENSION MARK
+1DC4  ; [.0000.0033.0002] # COMBINING MACRON-ACUTE
+1DC5  ; [.0000.0033.0002] # COMBINING GRAVE-MACRON
+1DC6  ; [.0000.0033.0002] # COMBINING MACRON-GRAVE
+1DC7  ; [.0000.0033.0002] # COMBINING ACUTE-MACRON
+1DC8  ; [.0000.0033.0002] # COMBINING GRAVE-ACUTE-GRAVE
+1DC9  ; [.0000.0033.0002] # COMBINING ACUTE-GRAVE-ACUTE
+1DCB  ; [.0000.0033.0002] # COMBINING BREVE-MACRON
+1DCC  ; [.0000.0033.0002] # COMBINING MACRON-BREVE
+1DCD  ; [.0000.0033.0002] # COMBINING DOUBLE CIRCUMFLEX ABOVE
+1DCE  ; [.0000.0033.0002] # COMBINING OGONEK ABOVE
+1DD1  ; [.0000.0033.0002] # COMBINING UR ABOVE
+1DF5  ; [.0000.0033.0002] # COMBINING UP TACK ABOVE
+1DFE  ; [.0000.0033.0002] # COMBINING LEFT ARROWHEAD ABOVE
+20F0  ; [.0000.0033.0002] # COMBINING ASTERISK ABOVE
+2CEF  ; [.0000.0033.0002] # COPTIC COMBINING NI ABOVE
+A67C  ; [.0000.0033.0002] # COMBINING CYRILLIC KAVYKA
+A67D  ; [.0000.0033.0002] # COMBINING CYRILLIC PAYEROK
+10AE5 ; [.0000.0033.0002] # MANICHAEAN ABBREVIATION MARK ABOVE
+1BC9D ; [.0000.0033.0002] # DUPLOYAN THICK LETTER SELECTOR
+0316  ; [.0000.0034.0002] # COMBINING GRAVE ACCENT BELOW
+0317  ; [.0000.0034.0002] # COMBINING ACUTE ACCENT BELOW
+0318  ; [.0000.0034.0002] # COMBINING LEFT TACK BELOW
+0319  ; [.0000.0034.0002] # COMBINING RIGHT TACK BELOW
+031C  ; [.0000.0034.0002] # COMBINING LEFT HALF RING BELOW
+031D  ; [.0000.0034.0002] # COMBINING UP TACK BELOW
+031E  ; [.0000.0034.0002] # COMBINING DOWN TACK BELOW
+031F  ; [.0000.0034.0002] # COMBINING PLUS SIGN BELOW
+0320  ; [.0000.0034.0002] # COMBINING MINUS SIGN BELOW
+0329  ; [.0000.0034.0002] # COMBINING VERTICAL LINE BELOW
+032A  ; [.0000.0034.0002] # COMBINING BRIDGE BELOW
+032B  ; [.0000.0034.0002] # COMBINING INVERTED DOUBLE ARCH BELOW
+032C  ; [.0000.0034.0002] # COMBINING CARON BELOW
+032F  ; [.0000.0034.0002] # COMBINING INVERTED BREVE BELOW
+0333  ; [.0000.0034.0002] # COMBINING DOUBLE LOW LINE
+033A  ; [.0000.0034.0002] # COMBINING INVERTED BRIDGE BELOW
+033B  ; [.0000.0034.0002] # COMBINING SQUARE BELOW
+033C  ; [.0000.0034.0002] # COMBINING SEAGULL BELOW
+0347  ; [.0000.0034.0002] # COMBINING EQUALS SIGN BELOW
+0348  ; [.0000.0034.0002] # COMBINING DOUBLE VERTICAL LINE BELOW
+0349  ; [.0000.0034.0002] # COMBINING LEFT ANGLE BELOW
+034D  ; [.0000.0034.0002] # COMBINING LEFT RIGHT ARROW BELOW
+034E  ; [.0000.0034.0002] # COMBINING UPWARDS ARROW BELOW
+0353  ; [.0000.0034.0002] # COMBINING X BELOW
+0354  ; [.0000.0034.0002] # COMBINING LEFT ARROWHEAD BELOW
+0355  ; [.0000.0034.0002] # COMBINING RIGHT ARROWHEAD BELOW
+0356  ; [.0000.0034.0002] # COMBINING RIGHT ARROWHEAD AND UP ARROWHEAD BELOW
+0359  ; [.0000.0034.0002] # COMBINING ASTERISK BELOW
+035A  ; [.0000.0034.0002] # COMBINING DOUBLE RING BELOW
+035C  ; [.0000.0034.0002] # COMBINING DOUBLE BREVE BELOW
+035F  ; [.0000.0034.0002] # COMBINING DOUBLE MACRON BELOW
+0362  ; [.0000.0034.0002] # COMBINING DOUBLE RIGHTWARDS ARROW BELOW
+0742  ; [.0000.0034.0002] # SYRIAC RUKKAKHA
+0746  ; [.0000.0034.0002] # SYRIAC THREE DOTS BELOW
+0859  ; [.0000.0034.0002] # MANDAIC AFFRICATION MARK
+085A  ; [.0000.0034.0002] # MANDAIC VOCALIZATION MARK
+085B  ; [.0000.0034.0002] # MANDAIC GEMINATION MARK
+1AB5  ; [.0000.0034.0002] # COMBINING X-X BELOW
+1AB6  ; [.0000.0034.0002] # COMBINING WIGGLY LINE BELOW
+1AB7  ; [.0000.0034.0002] # COMBINING OPEN MARK BELOW
+1AB8  ; [.0000.0034.0002] # COMBINING DOUBLE OPEN MARK BELOW
+1AB9  ; [.0000.0034.0002] # COMBINING LIGHT CENTRALIZATION STROKE BELOW
+1ABA  ; [.0000.0034.0002] # COMBINING STRONG CENTRALIZATION STROKE BELOW
+1ABD  ; [.0000.0034.0002] # COMBINING PARENTHESES BELOW
+1DC2  ; [.0000.0034.0002] # COMBINING SNAKE BELOW
+1DCF  ; [.0000.0034.0002] # COMBINING ZIGZAG BELOW
+1DD0  ; [.0000.0034.0002] # COMBINING IS BELOW
+1DFC  ; [.0000.0034.0002] # COMBINING DOUBLE INVERTED BREVE BELOW
+1DFD  ; [.0000.0034.0002] # COMBINING ALMOST EQUAL TO BELOW
+1DFF  ; [.0000.0034.0002] # COMBINING RIGHT ARROWHEAD AND DOWN ARROWHEAD BELOW
+20EC  ; [.0000.0034.0002] # COMBINING RIGHTWARDS HARPOON WITH BARB DOWNWARDS
+20ED  ; [.0000.0034.0002] # COMBINING LEFTWARDS HARPOON WITH BARB DOWNWARDS
+20EE  ; [.0000.0034.0002] # COMBINING LEFT ARROW BELOW
+20EF  ; [.0000.0034.0002] # COMBINING RIGHT ARROW BELOW
+FE27  ; [.0000.0034.0002] # COMBINING LIGATURE LEFT HALF BELOW
+10A0D ; [.0000.0034.0002] # KHAROSHTHI SIGN DOUBLE RING BELOW
+10AE6 ; [.0000.0034.0002] # MANICHAEAN ABBREVIATION MARK BELOW
+0336  ; [.0000.0035.0002] # COMBINING LONG STROKE OVERLAY
+0337  ; [.0000.0035.0002] # COMBINING SHORT SOLIDUS OVERLAY
+20D8  ; [.0000.0035.0002] # COMBINING RING OVERLAY
+20D9  ; [.0000.0035.0002] # COMBINING CLOCKWISE RING OVERLAY
+20DA  ; [.0000.0035.0002] # COMBINING ANTICLOCKWISE RING OVERLAY
+20E5  ; [.0000.0035.0002] # COMBINING REVERSE SOLIDUS OVERLAY
+20EA  ; [.0000.0035.0002] # COMBINING LEFTWARDS ARROW OVERLAY
+20EB  ; [.0000.0035.0002] # COMBINING LONG DOUBLE SOLIDUS OVERLAY
+1BC9E ; [.0000.0035.0002] # DUPLOYAN DOUBLE MARK
+1ABE  ; [.0000.0036.0002] # COMBINING PARENTHESES OVERLAY
+20DD  ; [.0000.0036.0002] # COMBINING ENCLOSING CIRCLE
+20DE  ; [.0000.0036.0002] # COMBINING ENCLOSING SQUARE
+20DF  ; [.0000.0036.0002] # COMBINING ENCLOSING DIAMOND
+20E0  ; [.0000.0036.0002] # COMBINING ENCLOSING CIRCLE BACKSLASH
+20E2  ; [.0000.0036.0002] # COMBINING ENCLOSING SCREEN
+20E3  ; [.0000.0036.0002] # COMBINING ENCLOSING KEYCAP
+20E4  ; [.0000.0036.0002] # COMBINING ENCLOSING UPWARD POINTING TRIANGLE
+3099  ; [.0000.0037.0002] # COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK
+FF9E  ; [.0000.0037.0012] # HALFWIDTH KATAKANA VOICED SOUND MARK
+309A  ; [.0000.0038.0002] # COMBINING KATAKANA-HIRAGANA SEMI-VOICED SOUND MARK
+FF9F  ; [.0000.0038.0012] # HALFWIDTH KATAKANA SEMI-VOICED SOUND MARK
+0335  ; [.0000.0039.0002] # COMBINING SHORT STROKE OVERLAY
+0305  ; [.0000.003A.0002] # COMBINING OVERLINE
+0309  ; [.0000.003B.0002] # COMBINING HOOK ABOVE
+030F  ; [.0000.003C.0002] # COMBINING DOUBLE GRAVE ACCENT
+0310  ; [.0000.003D.0002] # COMBINING CANDRABINDU
+0311  ; [.0000.003E.0002] # COMBINING INVERTED BREVE
+031B  ; [.0000.003F.0002] # COMBINING HORN
+0321  ; [.0000.0040.0002] # COMBINING PALATALIZED HOOK BELOW
+0322  ; [.0000.0041.0002] # COMBINING RETROFLEX HOOK BELOW
+0323  ; [.0000.0042.0002] # COMBINING DOT BELOW
+0324  ; [.0000.0043.0002] # COMBINING DIAERESIS BELOW
+0325  ; [.0000.0044.0002] # COMBINING RING BELOW
+0326  ; [.0000.0045.0002] # COMBINING COMMA BELOW
+032D  ; [.0000.0046.0002] # COMBINING CIRCUMFLEX ACCENT BELOW
+032E  ; [.0000.0047.0002] # COMBINING BREVE BELOW
+0330  ; [.0000.0048.0002] # COMBINING TILDE BELOW
+0331  ; [.0000.0049.0002] # COMBINING MACRON BELOW
+0334  ; [.0000.004A.0002] # COMBINING TILDE OVERLAY
+0339  ; [.0000.004B.0002] # COMBINING RIGHT HALF RING BELOW
+0345  ; [.0000.004C.0002] # COMBINING GREEK YPOGEGRAMMENI
+0358  ; [.0000.004D.0002] # COMBINING DOT ABOVE RIGHT
+0360  ; [.0000.004E.0002] # COMBINING DOUBLE TILDE
+FE22  ; [.0000.004E.0002] # COMBINING DOUBLE TILDE LEFT HALF
+FE29  ; [.0000.004E.0002] # COMBINING TILDE LEFT HALF BELOW
+0361  ; [.0000.004F.0002] # COMBINING DOUBLE INVERTED BREVE
+FE20  ; [.0000.004F.0002] # COMBINING LIGATURE LEFT HALF
+0483  ; [.0000.0050.0002] # COMBINING CYRILLIC TITLO
+A66F  ; [.0000.0051.0002] # COMBINING CYRILLIC VZMET
+05B0  ; [.0000.0052.0002] # HEBREW POINT SHEVA
+05B1  ; [.0000.0053.0002] # HEBREW POINT HATAF SEGOL
+05B2  ; [.0000.0054.0002] # HEBREW POINT HATAF PATAH
+05B3  ; [.0000.0055.0002] # HEBREW POINT HATAF QAMATS
+05B4  ; [.0000.0056.0002] # HEBREW POINT HIRIQ
+05B5  ; [.0000.0057.0002] # HEBREW POINT TSERE
+05B6  ; [.0000.0058.0002] # HEBREW POINT SEGOL
+05B7  ; [.0000.0059.0002] # HEBREW POINT PATAH
+05B8  ; [.0000.005A.0002] # HEBREW POINT QAMATS
+05C7  ; [.0000.005A.0002] # HEBREW POINT QAMATS QATAN
+05B9  ; [.0000.005B.0002] # HEBREW POINT HOLAM
+05BA  ; [.0000.005B.0002] # HEBREW POINT HOLAM HASER FOR VAV
+05BB  ; [.0000.005C.0002] # HEBREW POINT QUBUTS
+05C2  ; [.0000.005D.0002] # HEBREW POINT SIN DOT
+05C1  ; [.0000.005E.0002] # HEBREW POINT SHIN DOT
+05BC  ; [.0000.005F.0002] # HEBREW POINT DAGESH OR MAPIQ
+05BF  ; [.0000.0060.0002] # HEBREW POINT RAFE
+FB1E  ; [.0000.0061.0002] # HEBREW POINT JUDEO-SPANISH VARIKA
+081C  ; [.0000.0062.0002] # SAMARITAN VOWEL SIGN LONG E
+081D  ; [.0000.0062.0002] # SAMARITAN VOWEL SIGN E
+081E  ; [.0000.0063.0002] # SAMARITAN VOWEL SIGN OVERLONG AA
+081F  ; [.0000.0063.0002] # SAMARITAN VOWEL SIGN LONG AA
+0820  ; [.0000.0063.0002] # SAMARITAN VOWEL SIGN AA
+0821  ; [.0000.0064.0002] # SAMARITAN VOWEL SIGN OVERLONG A
+0822  ; [.0000.0064.0002] # SAMARITAN VOWEL SIGN LONG A
+0823  ; [.0000.0064.0002] # SAMARITAN VOWEL SIGN A
+0824  ; [.0000.0065.0002] # SAMARITAN MODIFIER LETTER SHORT A
+0825  ; [.0000.0065.0002] # SAMARITAN VOWEL SIGN SHORT A
+0826  ; [.0000.0066.0002] # SAMARITAN VOWEL SIGN LONG U
+0827  ; [.0000.0066.0002] # SAMARITAN VOWEL SIGN U
+0828  ; [.0000.0067.0002] # SAMARITAN MODIFIER LETTER I
+0829  ; [.0000.0067.0002] # SAMARITAN VOWEL SIGN LONG I
+082A  ; [.0000.0067.0002] # SAMARITAN VOWEL SIGN I
+082B  ; [.0000.0068.0002] # SAMARITAN VOWEL SIGN O
+082C  ; [.0000.0069.0002] # SAMARITAN VOWEL SIGN SUKUN
+0818  ; [.0000.006A.0002] # SAMARITAN MARK OCCLUSION
+0819  ; [.0000.006B.0002] # SAMARITAN MARK DAGESH
+082D  ; [.0000.006C.0002] # SAMARITAN MARK NEQUDAA
+064B  ; [.0000.006D.0002] # ARABIC FATHATAN
+FE71  ; [.0000.006D.0018] # ARABIC TATWEEL WITH FATHATAN ABOVE
+FE70  ; [.0000.006D.001A] # ARABIC FATHATAN ISOLATED FORM
+08F0  ; [.0000.006E.0002] # ARABIC OPEN FATHATAN
+08E7  ; [.0000.006F.0002] # ARABIC CURLY FATHATAN
+064C  ; [.0000.0070.0002] # ARABIC DAMMATAN
+FE72  ; [.0000.0070.001A] # ARABIC DAMMATAN ISOLATED FORM
+FC5E  ; [.0000.0070.001A][.0000.0080.001A] # ARABIC LIGATURE SHADDA WITH DAMMATAN ISOLATED FORM
+08F1  ; [.0000.0071.0002] # ARABIC OPEN DAMMATAN
+08E8  ; [.0000.0072.0002] # ARABIC CURLY DAMMATAN
+064D  ; [.0000.0073.0002] # ARABIC KASRATAN
+FE74  ; [.0000.0073.001A] # ARABIC KASRATAN ISOLATED FORM
+FC5F  ; [.0000.0073.001A][.0000.0080.001A] # ARABIC LIGATURE SHADDA WITH KASRATAN ISOLATED FORM
+08F2  ; [.0000.0074.0002] # ARABIC OPEN KASRATAN
+08E9  ; [.0000.0075.0002] # ARABIC CURLY KASRATAN
+064E  ; [.0000.0076.0002] # ARABIC FATHA
+FE77  ; [.0000.0076.0018] # ARABIC FATHA MEDIAL FORM
+FE76  ; [.0000.0076.001A] # ARABIC FATHA ISOLATED FORM
+FCF2  ; [.0000.0076.0018][.0000.0080.0018] # ARABIC LIGATURE SHADDA WITH FATHA MEDIAL FORM
+FC60  ; [.0000.0076.001A][.0000.0080.001A] # ARABIC LIGATURE SHADDA WITH FATHA ISOLATED FORM
+08E4  ; [.0000.0077.0002] # ARABIC CURLY FATHA
+08F4  ; [.0000.0078.0002] # ARABIC FATHA WITH RING
+08F5  ; [.0000.0079.0002] # ARABIC FATHA WITH DOT ABOVE
+064F  ; [.0000.007A.0002] # ARABIC DAMMA
+FE79  ; [.0000.007A.0018] # ARABIC DAMMA MEDIAL FORM
+FE78  ; [.0000.007A.001A] # ARABIC DAMMA ISOLATED FORM
+FCF3  ; [.0000.007A.0018][.0000.0080.0018] # ARABIC LIGATURE SHADDA WITH DAMMA MEDIAL FORM
+FC61  ; [.0000.007A.001A][.0000.0080.001A] # ARABIC LIGATURE SHADDA WITH DAMMA ISOLATED FORM
+08E5  ; [.0000.007B.0002] # ARABIC CURLY DAMMA
+08FE  ; [.0000.007C.0002] # ARABIC DAMMA WITH DOT
+0650  ; [.0000.007D.0002] # ARABIC KASRA
+FE7B  ; [.0000.007D.0018] # ARABIC KASRA MEDIAL FORM
+FE7A  ; [.0000.007D.001A] # ARABIC KASRA ISOLATED FORM
+FCF4  ; [.0000.007D.0018][.0000.0080.0018] # ARABIC LIGATURE SHADDA WITH KASRA MEDIAL FORM
+FC62  ; [.0000.007D.001A][.0000.0080.001A] # ARABIC LIGATURE SHADDA WITH KASRA ISOLATED FORM
+08E6  ; [.0000.007E.0002] # ARABIC CURLY KASRA
+08F6  ; [.0000.007F.0002] # ARABIC KASRA WITH DOT BELOW
+0651  ; [.0000.0080.0002] # ARABIC SHADDA
+11237 ; [.0000.0080.0002] # KHOJKI SIGN SHADDA
+FE7D  ; [.0000.0080.0018] # ARABIC SHADDA MEDIAL FORM
+FE7C  ; [.0000.0080.001A] # ARABIC SHADDA ISOLATED FORM
+FC63  ; [.0000.0080.001A][.0000.0097.001A] # ARABIC LIGATURE SHADDA WITH SUPERSCRIPT ALEF ISOLATED FORM
+0652  ; [.0000.0081.0002] # ARABIC SUKUN
+FE7F  ; [.0000.0081.0018] # ARABIC SUKUN MEDIAL FORM
+FE7E  ; [.0000.0081.001A] # ARABIC SUKUN ISOLATED FORM
+0653  ; [.0000.0082.0002] # ARABIC MADDAH ABOVE
+0654  ; [.0000.0083.0002] # ARABIC HAMZA ABOVE
+0655  ; [.0000.0084.0002] # ARABIC HAMZA BELOW
+065F  ; [.0000.0085.0002] # ARABIC WAVY HAMZA BELOW
+0656  ; [.0000.0086.0002] # ARABIC SUBSCRIPT ALEF
+0657  ; [.0000.0087.0002] # ARABIC INVERTED DAMMA
+0658  ; [.0000.0088.0002] # ARABIC MARK NOON GHUNNA
+08FF  ; [.0000.0089.0002] # ARABIC MARK SIDEWAYS NOON GHUNNA
+0659  ; [.0000.008A.0002] # ARABIC ZWARAKAY
+065A  ; [.0000.008B.0002] # ARABIC VOWEL SIGN SMALL V ABOVE
+065B  ; [.0000.008C.0002] # ARABIC VOWEL SIGN INVERTED SMALL V ABOVE
+065C  ; [.0000.008D.0002] # ARABIC VOWEL SIGN DOT BELOW
+065D  ; [.0000.008E.0002] # ARABIC REVERSED DAMMA
+065E  ; [.0000.008F.0002] # ARABIC FATHA WITH TWO DOTS
+08F7  ; [.0000.0090.0002] # ARABIC LEFT ARROWHEAD ABOVE
+08F8  ; [.0000.0091.0002] # ARABIC RIGHT ARROWHEAD ABOVE
+08FD  ; [.0000.0092.0002] # ARABIC RIGHT ARROWHEAD ABOVE WITH DOT
+08FB  ; [.0000.0093.0002] # ARABIC DOUBLE RIGHT ARROWHEAD ABOVE
+08FC  ; [.0000.0094.0002] # ARABIC DOUBLE RIGHT ARROWHEAD ABOVE WITH DOT
+08F9  ; [.0000.0095.0002] # ARABIC LEFT ARROWHEAD BELOW
+08FA  ; [.0000.0096.0002] # ARABIC RIGHT ARROWHEAD BELOW
+0670  ; [.0000.0097.0002] # ARABIC LETTER SUPERSCRIPT ALEF
+0711  ; [.0000.0098.0002] # SYRIAC LETTER SUPERSCRIPT ALAPH
+0730  ; [.0000.0099.0002] # SYRIAC PTHAHA ABOVE
+0731  ; [.0000.009A.0002] # SYRIAC PTHAHA BELOW
+0732  ; [.0000.009B.0002] # SYRIAC PTHAHA DOTTED
+0733  ; [.0000.009C.0002] # SYRIAC ZQAPHA ABOVE
+0734  ; [.0000.009D.0002] # SYRIAC ZQAPHA BELOW
+0735  ; [.0000.009E.0002] # SYRIAC ZQAPHA DOTTED
+0736  ; [.0000.009F.0002] # SYRIAC RBASA ABOVE
+0737  ; [.0000.00A0.0002] # SYRIAC RBASA BELOW
+0738  ; [.0000.00A1.0002] # SYRIAC DOTTED ZLAMA HORIZONTAL
+0739  ; [.0000.00A2.0002] # SYRIAC DOTTED ZLAMA ANGULAR
+073A  ; [.0000.00A3.0002] # SYRIAC HBASA ABOVE
+073B  ; [.0000.00A4.0002] # SYRIAC HBASA BELOW
+073C  ; [.0000.00A5.0002] # SYRIAC HBASA-ESASA DOTTED
+073D  ; [.0000.00A6.0002] # SYRIAC ESASA ABOVE
+073E  ; [.0000.00A7.0002] # SYRIAC ESASA BELOW
+073F  ; [.0000.00A8.0002] # SYRIAC RWAHA
+07EB  ; [.0000.00A9.0002] # NKO COMBINING SHORT HIGH TONE
+07EC  ; [.0000.00AA.0002] # NKO COMBINING SHORT LOW TONE
+07ED  ; [.0000.00AB.0002] # NKO COMBINING SHORT RISING TONE
+07EE  ; [.0000.00AC.0002] # NKO COMBINING LONG DESCENDING TONE
+07EF  ; [.0000.00AD.0002] # NKO COMBINING LONG HIGH TONE
+07F0  ; [.0000.00AE.0002] # NKO COMBINING LONG LOW TONE
+07F1  ; [.0000.00AF.0002] # NKO COMBINING LONG RISING TONE
+07F2  ; [.0000.00B0.0002] # NKO COMBINING NASALIZATION MARK
+07F3  ; [.0000.00B1.0002] # NKO COMBINING DOUBLE DOT ABOVE
+135F  ; [.0000.00B2.0002] # ETHIOPIC COMBINING GEMINATION MARK
+135E  ; [.0000.00B3.0002] # ETHIOPIC COMBINING VOWEL LENGTH MARK
+135D  ; [.0000.00B4.0002] # ETHIOPIC COMBINING GEMINATION AND VOWEL LENGTH MARK
+A6F0  ; [.0000.00B5.0002] # BAMUM COMBINING MARK KOQNDON
+A6F1  ; [.0000.00B6.0002] # BAMUM COMBINING MARK TUKWENTIS
+16AF0 ; [.0000.00B7.0002] # BASSA VAH COMBINING HIGH TONE
+16AF1 ; [.0000.00B8.0002] # BASSA VAH COMBINING LOW TONE
+16AF2 ; [.0000.00B9.0002] # BASSA VAH COMBINING MID TONE
+16AF3 ; [.0000.00BA.0002] # BASSA VAH COMBINING LOW-MID TONE
+16AF4 ; [.0000.00BB.0002] # BASSA VAH COMBINING HIGH-LOW TONE
+093C  ; [.0000.00BC.0002] # DEVANAGARI SIGN NUKTA
+09BC  ; [.0000.00BC.0002] # BENGALI SIGN NUKTA
+0A3C  ; [.0000.00BC.0002] # GURMUKHI SIGN NUKTA
+0ABC  ; [.0000.00BC.0002] # GUJARATI SIGN NUKTA
+0B3C  ; [.0000.00BC.0002] # ORIYA SIGN NUKTA
+0CBC  ; [.0000.00BC.0002] # KANNADA SIGN NUKTA
+1B34  ; [.0000.00BC.0002] # BALINESE SIGN REREKAN
+1BE6  ; [.0000.00BC.0002] # BATAK SIGN TOMPI
+1C37  ; [.0000.00BC.0002] # LEPCHA SIGN NUKTA
+A9B3  ; [.0000.00BC.0002] # JAVANESE SIGN CECAK TELU
+110BA ; [.0000.00BC.0002] # KAITHI SIGN NUKTA
+11173 ; [.0000.00BC.0002] # MAHAJANI SIGN NUKTA
+11236 ; [.0000.00BC.0002] # KHOJKI SIGN NUKTA
+112E9 ; [.0000.00BC.0002] # KHUDAWADI SIGN NUKTA
+1133C ; [.0000.00BC.0002] # GRANTHA SIGN NUKTA
+114C3 ; [.0000.00BC.0002] # TIRHUTA SIGN NUKTA
+115C0 ; [.0000.00BC.0002] # SIDDHAM SIGN NUKTA
+116B7 ; [.0000.00BC.0002] # TAKRI SIGN NUKTA
+0900  ; [.0000.00BD.0002] # DEVANAGARI SIGN INVERTED CANDRABINDU
+0901  ; [.0000.00BD.0002] # DEVANAGARI SIGN CANDRABINDU
+0981  ; [.0000.00BD.0002] # BENGALI SIGN CANDRABINDU
+0A01  ; [.0000.00BD.0002] # GURMUKHI SIGN ADAK BINDI
+0A81  ; [.0000.00BD.0002] # GUJARATI SIGN CANDRABINDU
+0B01  ; [.0000.00BD.0002] # ORIYA SIGN CANDRABINDU
+0C00  ; [.0000.00BD.0002] # TELUGU SIGN COMBINING CANDRABINDU ABOVE
+0C01  ; [.0000.00BD.0002] # TELUGU SIGN CANDRABINDU
+0C81  ; [.0000.00BD.0002] # KANNADA SIGN CANDRABINDU
+0D01  ; [.0000.00BD.0002] # MALAYALAM SIGN CANDRABINDU
+1B00  ; [.0000.00BD.0002] # BALINESE SIGN ULU RICEM
+1B01  ; [.0000.00BD.0002] # BALINESE SIGN ULU CANDRA
+A980  ; [.0000.00BD.0002] # JAVANESE SIGN PANYANGGA
+11000 ; [.0000.00BD.0002] # BRAHMI SIGN CANDRABINDU
+11080 ; [.0000.00BD.0002] # KAITHI SIGN CANDRABINDU
+11100 ; [.0000.00BD.0002] # CHAKMA SIGN CANDRABINDU
+11180 ; [.0000.00BD.0002] # SHARADA SIGN CANDRABINDU
+11301 ; [.0000.00BD.0002] # GRANTHA SIGN CANDRABINDU
+114BF ; [.0000.00BD.0002] # TIRHUTA SIGN CANDRABINDU
+115BC ; [.0000.00BD.0002] # SIDDHAM SIGN CANDRABINDU
+11640 ; [.0000.00BD.0002] # MODI SIGN ARDHACANDRA
+0902  ; [.0000.00BE.0002] # DEVANAGARI SIGN ANUSVARA
+0982  ; [.0000.00BE.0002] # BENGALI SIGN ANUSVARA
+0A02  ; [.0000.00BE.0002] # GURMUKHI SIGN BINDI
+0A82  ; [.0000.00BE.0002] # GUJARATI SIGN ANUSVARA
+0B02  ; [.0000.00BE.0002] # ORIYA SIGN ANUSVARA
+0B82  ; [.0000.00BE.0002] # TAMIL SIGN ANUSVARA
+0C02  ; [.0000.00BE.0002] # TELUGU SIGN ANUSVARA
+0C82  ; [.0000.00BE.0002] # KANNADA SIGN ANUSVARA
+0D02  ; [.0000.00BE.0002] # MALAYALAM SIGN ANUSVARA
+0D82  ; [.0000.00BE.0002] # SINHALA SIGN ANUSVARAYA
+0F7E  ; [.0000.00BE.0002] # TIBETAN SIGN RJES SU NGA RO
+1036  ; [.0000.00BE.0002] # MYANMAR SIGN ANUSVARA
+17C6  ; [.0000.00BE.0002] # KHMER SIGN NIKAHIT
+1A74  ; [.0000.00BE.0002] # TAI THAM SIGN MAI KANG
+1B02  ; [.0000.00BE.0002] # BALINESE SIGN CECEK
+1B80  ; [.0000.00BE.0002] # SUNDANESE SIGN PANYECEK
+1CED  ; [.0000.00BE.0002] # VEDIC SIGN TIRYAK
+A80B  ; [.0000.00BE.0002] # SYLOTI NAGRI SIGN ANUSVARA
+A880  ; [.0000.00BE.0002] # SAURASHTRA SIGN ANUSVARA
+A981  ; [.0000.00BE.0002] # JAVANESE SIGN CECAK
+10A0E ; [.0000.00BE.0002] # KHAROSHTHI SIGN ANUSVARA
+11001 ; [.0000.00BE.0002] # BRAHMI SIGN ANUSVARA
+11081 ; [.0000.00BE.0002] # KAITHI SIGN ANUSVARA
+11101 ; [.0000.00BE.0002] # CHAKMA SIGN ANUSVARA
+11181 ; [.0000.00BE.0002] # SHARADA SIGN ANUSVARA
+11234 ; [.0000.00BE.0002] # KHOJKI SIGN ANUSVARA
+112DF ; [.0000.00BE.0002] # KHUDAWADI SIGN ANUSVARA
+11302 ; [.0000.00BE.0002] # GRANTHA SIGN ANUSVARA
+114C0 ; [.0000.00BE.0002] # TIRHUTA SIGN ANUSVARA
+115BD ; [.0000.00BE.0002] # SIDDHAM SIGN ANUSVARA
+1163D ; [.0000.00BE.0002] # MODI SIGN ANUSVARA
+116AB ; [.0000.00BE.0002] # TAKRI SIGN ANUSVARA
+0903  ; [.0000.00BF.0002] # DEVANAGARI SIGN VISARGA
+0983  ; [.0000.00BF.0002] # BENGALI SIGN VISARGA
+0A03  ; [.0000.00BF.0002] # GURMUKHI SIGN VISARGA
+0A83  ; [.0000.00BF.0002] # GUJARATI SIGN VISARGA
+0B03  ; [.0000.00BF.0002] # ORIYA SIGN VISARGA
+0C03  ; [.0000.00BF.0002] # TELUGU SIGN VISARGA
+0C83  ; [.0000.00BF.0002] # KANNADA SIGN VISARGA
+0D03  ; [.0000.00BF.0002] # MALAYALAM SIGN VISARGA
+0D83  ; [.0000.00BF.0002] # SINHALA SIGN VISARGAYA
+0F7F  ; [.0000.00BF.0002] # TIBETAN SIGN RNAM BCAD
+1038  ; [.0000.00BF.0002] # MYANMAR SIGN VISARGA
+17C7  ; [.0000.00BF.0002] # KHMER SIGN REAHMUK
+1B04  ; [.0000.00BF.0002] # BALINESE SIGN BISAH
+1B82  ; [.0000.00BF.0002] # SUNDANESE SIGN PANGWISAD
+1CF2  ; [.0000.00BF.0002] # VEDIC SIGN ARDHAVISARGA
+1CF3  ; [.0000.00BF.0002] # VEDIC SIGN ROTATED ARDHAVISARGA
+A881  ; [.0000.00BF.0002] # SAURASHTRA SIGN VISARGA
+A983  ; [.0000.00BF.0002] # JAVANESE SIGN WIGNYAN
+10A0F ; [.0000.00BF.0002] # KHAROSHTHI SIGN VISARGA
+11002 ; [.0000.00BF.0002] # BRAHMI SIGN VISARGA
+11082 ; [.0000.00BF.0002] # KAITHI SIGN VISARGA
+11102 ; [.0000.00BF.0002] # CHAKMA SIGN VISARGA
+11182 ; [.0000.00BF.0002] # SHARADA SIGN VISARGA
+11303 ; [.0000.00BF.0002] # GRANTHA SIGN VISARGA
+114C1 ; [.0000.00BF.0002] # TIRHUTA SIGN VISARGA
+115BE ; [.0000.00BF.0002] # SIDDHAM SIGN VISARGA
+1163E ; [.0000.00BF.0002] # MODI SIGN VISARGA
+116AC ; [.0000.00BF.0002] # TAKRI SIGN VISARGA
+0A70  ; [.0000.00C0.0002] # GURMUKHI TIPPI
+0A71  ; [.0000.00C1.0002] # GURMUKHI ADDAK
+1B03  ; [.0000.00C2.0002] # BALINESE SIGN SURANG
+A982  ; [.0000.00C3.0002] # JAVANESE SIGN LAYAR
+1B81  ; [.0000.00C4.0002] # SUNDANESE SIGN PANGLAYAR
+ABEC  ; [.0000.00C5.0002] # MEETEI MAYEK LUM IYEK
+10A38 ; [.0000.00C6.0002] # KHAROSHTHI SIGN BAR ABOVE
+10A39 ; [.0000.00C7.0002] # KHAROSHTHI SIGN CAUDA
+10A3A ; [.0000.00C8.0002] # KHAROSHTHI SIGN DOT BELOW
+0E4E  ; [.0000.00C9.0002] # THAI CHARACTER YAMAKKAN
+0E47  ; [.0000.00CA.0002] # THAI CHARACTER MAITAIKHU
+0E48  ; [.0000.00CB.0002] # THAI CHARACTER MAI EK
+0E49  ; [.0000.00CC.0002] # THAI CHARACTER MAI THO
+0E4A  ; [.0000.00CD.0002] # THAI CHARACTER MAI TRI
+0E4B  ; [.0000.00CE.0002] # THAI CHARACTER MAI CHATTAWA
+0E4C  ; [.0000.00CF.0002] # THAI CHARACTER THANTHAKHAT
+0E4D  ; [.0000.00D0.0002] # THAI CHARACTER NIKHAHIT
+0EC8  ; [.0000.00D1.0002] # LAO TONE MAI EK
+0EC9  ; [.0000.00D2.0002] # LAO TONE MAI THO
+0ECA  ; [.0000.00D3.0002] # LAO TONE MAI TI
+0ECB  ; [.0000.00D4.0002] # LAO TONE MAI CATAWA
+0ECC  ; [.0000.00D5.0002] # LAO CANCELLATION MARK
+0ECD  ; [.0000.00D6.0002] # LAO NIGGAHITA
+AABF  ; [.0000.00D7.0002] # TAI VIET TONE MAI EK
+AAC1  ; [.0000.00D8.0002] # TAI VIET TONE MAI THO
+0F39  ; [.0000.00D9.0002] # TIBETAN MARK TSA -PHRU
+A92B  ; [.0000.00DA.0002] # KAYAH LI TONE PLOPHU
+A92C  ; [.0000.00DB.0002] # KAYAH LI TONE CALYA
+A92D  ; [.0000.00DC.0002] # KAYAH LI TONE CALYA PLOPHU
+1037  ; [.0000.00DD.0002] # MYANMAR SIGN DOT BELOW
+17C8  ; [.0000.00DE.0002] # KHMER SIGN YUUKALEAPINTU
+17C9  ; [.0000.00DF.0002] # KHMER SIGN MUUSIKATOAN
+17CA  ; [.0000.00E0.0002] # KHMER SIGN TRIISAP
+1A75  ; [.0000.00E1.0002] # TAI THAM SIGN TONE-1
+1A76  ; [.0000.00E2.0002] # TAI THAM SIGN TONE-2
+1A77  ; [.0000.00E3.0002] # TAI THAM SIGN KHUEN TONE-3
+1A78  ; [.0000.00E4.0002] # TAI THAM SIGN KHUEN TONE-4
+1A79  ; [.0000.00E5.0002] # TAI THAM SIGN KHUEN TONE-5
+1A7A  ; [.0000.00E6.0002] # TAI THAM SIGN RA HAAM
+1A7B  ; [.0000.00E7.0002] # TAI THAM SIGN MAI SAM
+1A7C  ; [.0000.00E8.0002] # TAI THAM SIGN KHUEN-LUE KARAN
+1939  ; [.0000.00E9.0002] # LIMBU SIGN MUKPHRENG
+193A  ; [.0000.00EA.0002] # LIMBU SIGN KEMPHRENG
+193B  ; [.0000.00EB.0002] # LIMBU SIGN SA-I
+16B30 ; [.0000.00EC.0002] # PAHAWH HMONG MARK CIM TUB
+16B31 ; [.0000.00ED.0002] # PAHAWH HMONG MARK CIM SO
+16B32 ; [.0000.00EE.0002] # PAHAWH HMONG MARK CIM KES
+16B33 ; [.0000.00EF.0002] # PAHAWH HMONG MARK CIM KHAV
+16B34 ; [.0000.00F0.0002] # PAHAWH HMONG MARK CIM SUAM
+16B35 ; [.0000.00F1.0002] # PAHAWH HMONG MARK CIM HOM
+16B36 ; [.0000.00F2.0002] # PAHAWH HMONG MARK CIM TAUM
+302A  ; [.0000.00F3.0002] # IDEOGRAPHIC LEVEL TONE MARK
+302B  ; [.0000.00F4.0002] # IDEOGRAPHIC RISING TONE MARK
+302C  ; [.0000.00F5.0002] # IDEOGRAPHIC DEPARTING TONE MARK
+302D  ; [.0000.00F6.0002] # IDEOGRAPHIC ENTERING TONE MARK
+302E  ; [.0000.00F7.0002] # HANGUL SINGLE DOT TONE MARK
+302F  ; [.0000.00F8.0002] # HANGUL DOUBLE DOT TONE MARK
+20D0  ; [.0000.00F9.0002] # COMBINING LEFT HARPOON ABOVE
+20D1  ; [.0000.00FA.0002] # COMBINING RIGHT HARPOON ABOVE
+20D2  ; [.0000.00FB.0002] # COMBINING LONG VERTICAL LINE OVERLAY
+20D3  ; [.0000.00FB.0002] # COMBINING SHORT VERTICAL LINE OVERLAY
+20D4  ; [.0000.00FC.0002] # COMBINING ANTICLOCKWISE ARROW ABOVE
+20D5  ; [.0000.00FD.0002] # COMBINING CLOCKWISE ARROW ABOVE
+20D6  ; [.0000.00FE.0002] # COMBINING LEFT ARROW ABOVE
+20D7  ; [.0000.00FF.0002] # COMBINING RIGHT ARROW ABOVE
+20DB  ; [.0000.0100.0002] # COMBINING THREE DOTS ABOVE
+20DC  ; [.0000.0101.0002] # COMBINING FOUR DOTS ABOVE
+20E1  ; [.0000.0102.0002] # COMBINING LEFT RIGHT ARROW ABOVE
+20E6  ; [.0000.0103.0002] # COMBINING DOUBLE VERTICAL STROKE OVERLAY
+20E7  ; [.0000.0104.0002] # COMBINING ANNUITY SYMBOL
+20E8  ; [.0000.0105.0002] # COMBINING TRIPLE UNDERDOT
+20E9  ; [.0000.0106.0002] # COMBINING WIDE BRIDGE ABOVE
+101FD ; [.0000.0107.0002] # PHAISTOS DISC SIGN COMBINING OBLIQUE STROKE
+02D0  ; [.18BF.0020.0002] # MODIFIER LETTER TRIANGULAR COLON
+02D1  ; [.18C0.0020.0002] # MODIFIER LETTER HALF TRIANGULAR COLON
+0971  ; [.18C1.0020.0002] # DEVANAGARI SIGN HIGH SPACING DOT
+0E46  ; [.18C2.0020.0002] # THAI CHARACTER MAIYAMOK
+0EC6  ; [.18C3.0020.0002] # LAO KO LA
+17D7  ; [.18C4.0020.0002] # KHMER SIGN LEK TOO
+1AA7  ; [.18C5.0020.0002] # TAI THAM SIGN MAI YAMOK
+A9CF  ; [.18C6.0020.0002] # JAVANESE PANGRANGKEP
+A9E6  ; [.18C7.0020.0002] # MYANMAR MODIFIER LETTER SHAN REDUPLICATION
+AA70  ; [.18C8.0020.0002] # MYANMAR MODIFIER LETTER KHAMTI REDUPLICATION
+AADD  ; [.18C9.0020.0002] # TAI VIET SYMBOL SAM
+AAF3  ; [.18CA.0020.0002] # MEETEI MAYEK SYLLABLE REPETITION MARK
+AAF4  ; [.18CB.0020.0002] # MEETEI MAYEK WORD REPETITION MARK
+16B42 ; [.18CC.0020.0002] # PAHAWH HMONG SIGN VOS NRUA
+16B43 ; [.18CD.0020.0002] # PAHAWH HMONG SIGN IB YAM
+3005  ; [.18CE.0020.0002] # IDEOGRAPHIC ITERATION MARK
+303B  ; [.18CF.0020.0002] # VERTICAL IDEOGRAPHIC ITERATION MARK
+3031  ; [.18D0.0020.0002] # VERTICAL KANA REPEAT MARK
+3032  ; [.18D0.0020.0002][.0000.0037.0002] # VERTICAL KANA REPEAT WITH VOICED SOUND MARK
+3033  ; [.18D1.0020.0002] # VERTICAL KANA REPEAT MARK UPPER HALF
+3034  ; [.18D1.0020.0002][.0000.0037.0002] # VERTICAL KANA REPEAT WITH VOICED SOUND MARK UPPER HALF
+3035  ; [.18D2.0020.0002] # VERTICAL KANA REPEAT MARK LOWER HALF
+309D  ; [.18D3.0020.0002] # HIRAGANA ITERATION MARK
+309E  ; [.18D3.0020.0002][.0000.0037.0002] # HIRAGANA VOICED ITERATION MARK
+30FC  ; [.18D4.0020.0002] # KATAKANA-HIRAGANA PROLONGED SOUND MARK
+FF70  ; [.18D4.0020.0012] # HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK
+30FD  ; [.18D5.0020.0002] # KATAKANA ITERATION MARK
+30FE  ; [.18D5.0020.0002][.0000.0037.0002] # KATAKANA VOICED ITERATION MARK
+00A4  ; [.18D6.0020.0002] # CURRENCY SIGN
+00A2  ; [.18D7.0020.0002] # CENT SIGN
+FFE0  ; [.18D7.0020.0003] # FULLWIDTH CENT SIGN
+0024  ; [.18D8.0020.0002] # DOLLAR SIGN
+FF04  ; [.18D8.0020.0003] # FULLWIDTH DOLLAR SIGN
+FE69  ; [.18D8.0020.000F] # SMALL DOLLAR SIGN
+00A3  ; [.18D9.0020.0002] # POUND SIGN
+FFE1  ; [.18D9.0020.0003] # FULLWIDTH POUND SIGN
+00A5  ; [.18DA.0020.0002] # YEN SIGN
+FFE5  ; [.18DA.0020.0003] # FULLWIDTH YEN SIGN
+058F  ; [.18DB.0020.0002] # ARMENIAN DRAM SIGN
+060B  ; [.18DC.0020.0002] # AFGHANI SIGN
+09F2  ; [.18DD.0020.0002] # BENGALI RUPEE MARK
+09F3  ; [.18DE.0020.0002] # BENGALI RUPEE SIGN
+09FB  ; [.18DF.0020.0002] # BENGALI GANDA MARK
+0AF1  ; [.18E0.0020.0002] # GUJARATI RUPEE SIGN
+A838  ; [.18E1.0020.0002] # NORTH INDIC RUPEE MARK
+0BF9  ; [.18E2.0020.0002] # TAMIL RUPEE SIGN
+0E3F  ; [.18E3.0020.0002] # THAI CURRENCY SYMBOL BAHT
+17DB  ; [.18E4.0020.0002] # KHMER CURRENCY SYMBOL RIEL
+20A0  ; [.18E5.0020.0002] # EURO-CURRENCY SIGN
+20A1  ; [.18E6.0020.0002] # COLON SIGN
+20A2  ; [.18E7.0020.0002] # CRUZEIRO SIGN
+20A3  ; [.18E8.0020.0002] # FRENCH FRANC SIGN
+20A4  ; [.18E9.0020.0002] # LIRA SIGN
+20A5  ; [.18EA.0020.0002] # MILL SIGN
+20A6  ; [.18EB.0020.0002] # NAIRA SIGN
+20A7  ; [.18EC.0020.0002] # PESETA SIGN
+20A9  ; [.18ED.0020.0002] # WON SIGN
+FFE6  ; [.18ED.0020.0003] # FULLWIDTH WON SIGN
+20AA  ; [.18EE.0020.0002] # NEW SHEQEL SIGN
+20AB  ; [.18EF.0020.0002] # DONG SIGN
+20AC  ; [.18F0.0020.0002] # EURO SIGN
+20AD  ; [.18F1.0020.0002] # KIP SIGN
+20AE  ; [.18F2.0020.0002] # TUGRIK SIGN
+20AF  ; [.18F3.0020.0002] # DRACHMA SIGN
+20B0  ; [.18F4.0020.0002] # GERMAN PENNY SIGN
+20B1  ; [.18F5.0020.0002] # PESO SIGN
+20B2  ; [.18F6.0020.0002] # GUARANI SIGN
+20B3  ; [.18F7.0020.0002] # AUSTRAL SIGN
+20B4  ; [.18F8.0020.0002] # HRYVNIA SIGN
+20B5  ; [.18F9.0020.0002] # CEDI SIGN
+20B6  ; [.18FA.0020.0002] # LIVRE TOURNOIS SIGN
+20B7  ; [.18FB.0020.0002] # SPESMILO SIGN
+20B8  ; [.18FC.0020.0002] # TENGE SIGN
+20B9  ; [.18FD.0020.0002] # INDIAN RUPEE SIGN
+20BA  ; [.18FE.0020.0002] # TURKISH LIRA SIGN
+20BB  ; [.18FF.0020.0002] # NORDIC MARK SIGN
+20BC  ; [.1900.0020.0002] # MANAT SIGN
+20BD  ; [.1901.0020.0002] # RUBLE SIGN
+0030  ; [.1902.0020.0002] # DIGIT ZERO
+0660  ; [.1902.0020.0002] # ARABIC-INDIC DIGIT ZERO
+06F0  ; [.1902.0020.0002] # EXTENDED ARABIC-INDIC DIGIT ZERO
+07C0  ; [.1902.0020.0002] # NKO DIGIT ZERO
+0966  ; [.1902.0020.0002] # DEVANAGARI DIGIT ZERO
+09E6  ; [.1902.0020.0002] # BENGALI DIGIT ZERO
+0A66  ; [.1902.0020.0002] # GURMUKHI DIGIT ZERO
+0AE6  ; [.1902.0020.0002] # GUJARATI DIGIT ZERO
+0B66  ; [.1902.0020.0002] # ORIYA DIGIT ZERO
+0BE6  ; [.1902.0020.0002] # TAMIL DIGIT ZERO
+0C66  ; [.1902.0020.0002] # TELUGU DIGIT ZERO
+0C78  ; [.1902.0020.0002] # TELUGU FRACTION DIGIT ZERO FOR ODD POWERS OF FOUR
+0CE6  ; [.1902.0020.0002] # KANNADA DIGIT ZERO
+0D66  ; [.1902.0020.0002] # MALAYALAM DIGIT ZERO
+0DE6  ; [.1902.0020.0002] # SINHALA LITH DIGIT ZERO
+0E50  ; [.1902.0020.0002] # THAI DIGIT ZERO
+0ED0  ; [.1902.0020.0002] # LAO DIGIT ZERO
+0F20  ; [.1902.0020.0002] # TIBETAN DIGIT ZERO
+1040  ; [.1902.0020.0002] # MYANMAR DIGIT ZERO
+1090  ; [.1902.0020.0002] # MYANMAR SHAN DIGIT ZERO
+17E0  ; [.1902.0020.0002] # KHMER DIGIT ZERO
+17F0  ; [.1902.0020.0002] # KHMER SYMBOL LEK ATTAK SON
+1810  ; [.1902.0020.0002] # MONGOLIAN DIGIT ZERO
+1946  ; [.1902.0020.0002] # LIMBU DIGIT ZERO
+19D0  ; [.1902.0020.0002] # NEW TAI LUE DIGIT ZERO
+1A80  ; [.1902.0020.0002] # TAI THAM HORA DIGIT ZERO
+1A90  ; [.1902.0020.0002] # TAI THAM THAM DIGIT ZERO
+1B50  ; [.1902.0020.0002] # BALINESE DIGIT ZERO
+1BB0  ; [.1902.0020.0002] # SUNDANESE DIGIT ZERO
+1C40  ; [.1902.0020.0002] # LEPCHA DIGIT ZERO
+1C50  ; [.1902.0020.0002] # OL CHIKI DIGIT ZERO
+3007  ; [.1902.0020.0002] # IDEOGRAPHIC NUMBER ZERO
+A620  ; [.1902.0020.0002] # VAI DIGIT ZERO
+A8D0  ; [.1902.0020.0002] # SAURASHTRA DIGIT ZERO
+A900  ; [.1902.0020.0002] # KAYAH LI DIGIT ZERO
+A9D0  ; [.1902.0020.0002] # JAVANESE DIGIT ZERO
+A9F0  ; [.1902.0020.0002] # MYANMAR TAI LAING DIGIT ZERO
+AA50  ; [.1902.0020.0002] # CHAM DIGIT ZERO
+ABF0  ; [.1902.0020.0002] # MEETEI MAYEK DIGIT ZERO
+1018A ; [.1902.0020.0002] # GREEK ZERO SIGN
+104A0 ; [.1902.0020.0002] # OSMANYA DIGIT ZERO
+11066 ; [.1902.0020.0002] # BRAHMI DIGIT ZERO
+110F0 ; [.1902.0020.0002] # SORA SOMPENG DIGIT ZERO
+11136 ; [.1902.0020.0002] # CHAKMA DIGIT ZERO
+111D0 ; [.1902.0020.0002] # SHARADA DIGIT ZERO
+112F0 ; [.1902.0020.0002] # KHUDAWADI DIGIT ZERO
+114D0 ; [.1902.0020.0002] # TIRHUTA DIGIT ZERO
+11650 ; [.1902.0020.0002] # MODI DIGIT ZERO
+116C0 ; [.1902.0020.0002] # TAKRI DIGIT ZERO
+118E0 ; [.1902.0020.0002] # WARANG CITI DIGIT ZERO
+16A60 ; [.1902.0020.0002] # MRO DIGIT ZERO
+16B50 ; [.1902.0020.0002] # PAHAWH HMONG DIGIT ZERO
+FF10  ; [.1902.0020.0003] # FULLWIDTH DIGIT ZERO
+0F33  ; [.1902.0020.0004] # TIBETAN DIGIT HALF ZERO
+1F100 ; [.1902.0020.0004][*0274.0020.0004] # DIGIT ZERO FULL STOP
+1F101 ; [.1902.0020.0004][*0221.0020.0004] # DIGIT ZERO COMMA
+1D7CE ; [.1902.0020.0005] # MATHEMATICAL BOLD DIGIT ZERO
+1D7D8 ; [.1902.0020.0005] # MATHEMATICAL DOUBLE-STRUCK DIGIT ZERO
+1D7E2 ; [.1902.0020.0005] # MATHEMATICAL SANS-SERIF DIGIT ZERO
+1D7EC ; [.1902.0020.0005] # MATHEMATICAL SANS-SERIF BOLD DIGIT ZERO
+1D7F6 ; [.1902.0020.0005] # MATHEMATICAL MONOSPACE DIGIT ZERO
+24EA  ; [.1902.0020.0006] # CIRCLED DIGIT ZERO
+24FF  ; [.1902.0020.0006] # NEGATIVE CIRCLED DIGIT ZERO
+1F10B ; [.1902.0020.0006] # DINGBAT CIRCLED SANS-SERIF DIGIT ZERO
+1F10C ; [.1902.0020.0006] # DINGBAT NEGATIVE CIRCLED SANS-SERIF DIGIT ZERO
+2070  ; [.1902.0020.0014] # SUPERSCRIPT ZERO
+2080  ; [.1902.0020.0015] # SUBSCRIPT ZERO
+2189  ; [.1902.0020.001E][*05E6.0020.001E][.1905.0020.001E] # VULGAR FRACTION ZERO THIRDS
+3358  ; [.1902.0020.0004][.FB40.0020.0004][.F0B9.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR ZERO
+0031  ; [.1903.0020.0002] # DIGIT ONE
+0661  ; [.1903.0020.0002] # ARABIC-INDIC DIGIT ONE
+06F1  ; [.1903.0020.0002] # EXTENDED ARABIC-INDIC DIGIT ONE
+07C1  ; [.1903.0020.0002] # NKO DIGIT ONE
+0967  ; [.1903.0020.0002] # DEVANAGARI DIGIT ONE
+09E7  ; [.1903.0020.0002] # BENGALI DIGIT ONE
+0A67  ; [.1903.0020.0002] # GURMUKHI DIGIT ONE
+0AE7  ; [.1903.0020.0002] # GUJARATI DIGIT ONE
+0B67  ; [.1903.0020.0002] # ORIYA DIGIT ONE
+0BE7  ; [.1903.0020.0002] # TAMIL DIGIT ONE
+0C67  ; [.1903.0020.0002] # TELUGU DIGIT ONE
+0C79  ; [.1903.0020.0002] # TELUGU FRACTION DIGIT ONE FOR ODD POWERS OF FOUR
+0C7C  ; [.1903.0020.0002] # TELUGU FRACTION DIGIT ONE FOR EVEN POWERS OF FOUR
+0CE7  ; [.1903.0020.0002] # KANNADA DIGIT ONE
+0D67  ; [.1903.0020.0002] # MALAYALAM DIGIT ONE
+0DE7  ; [.1903.0020.0002] # SINHALA LITH DIGIT ONE
+0E51  ; [.1903.0020.0002] # THAI DIGIT ONE
+0ED1  ; [.1903.0020.0002] # LAO DIGIT ONE
+0F21  ; [.1903.0020.0002] # TIBETAN DIGIT ONE
+1041  ; [.1903.0020.0002] # MYANMAR DIGIT ONE
+1091  ; [.1903.0020.0002] # MYANMAR SHAN DIGIT ONE
+1369  ; [.1903.0020.0002] # ETHIOPIC DIGIT ONE
+17E1  ; [.1903.0020.0002] # KHMER DIGIT ONE
+17F1  ; [.1903.0020.0002] # KHMER SYMBOL LEK ATTAK MUOY
+1811  ; [.1903.0020.0002] # MONGOLIAN DIGIT ONE
+1947  ; [.1903.0020.0002] # LIMBU DIGIT ONE
+19D1  ; [.1903.0020.0002] # NEW TAI LUE DIGIT ONE
+19DA  ; [.1903.0020.0002] # NEW TAI LUE THAM DIGIT ONE
+1A81  ; [.1903.0020.0002] # TAI THAM HORA DIGIT ONE
+1A91  ; [.1903.0020.0002] # TAI THAM THAM DIGIT ONE
+1B51  ; [.1903.0020.0002] # BALINESE DIGIT ONE
+1BB1  ; [.1903.0020.0002] # SUNDANESE DIGIT ONE
+1C41  ; [.1903.0020.0002] # LEPCHA DIGIT ONE
+1C51  ; [.1903.0020.0002] # OL CHIKI DIGIT ONE
+3021  ; [.1903.0020.0002] # HANGZHOU NUMERAL ONE
+A621  ; [.1903.0020.0002] # VAI DIGIT ONE
+A8D1  ; [.1903.0020.0002] # SAURASHTRA DIGIT ONE
+A901  ; [.1903.0020.0002] # KAYAH LI DIGIT ONE
+A9D1  ; [.1903.0020.0002] # JAVANESE DIGIT ONE
+A9F1  ; [.1903.0020.0002] # MYANMAR TAI LAING DIGIT ONE
+AA51  ; [.1903.0020.0002] # CHAM DIGIT ONE
+ABF1  ; [.1903.0020.0002] # MEETEI MAYEK DIGIT ONE
+10107 ; [.1903.0020.0002] # AEGEAN NUMBER ONE
+10142 ; [.1903.0020.0002] # GREEK ACROPHONIC ATTIC ONE DRACHMA
+10158 ; [.1903.0020.0002] # GREEK ACROPHONIC HERAEUM ONE PLETHRON
+10159 ; [.1903.0020.0002] # GREEK ACROPHONIC THESPIAN ONE
+1015A ; [.1903.0020.0002] # GREEK ACROPHONIC HERMIONIAN ONE
+102E1 ; [.1903.0020.0002] # COPTIC EPACT DIGIT ONE
+10320 ; [.1903.0020.0002] # OLD ITALIC NUMERAL ONE
+103D1 ; [.1903.0020.0002] # OLD PERSIAN NUMBER ONE
+104A1 ; [.1903.0020.0002] # OSMANYA DIGIT ONE
+10858 ; [.1903.0020.0002] # IMPERIAL ARAMAIC NUMBER ONE
+10879 ; [.1903.0020.0002] # PALMYRENE NUMBER ONE
+108A7 ; [.1903.0020.0002] # NABATAEAN NUMBER ONE
+10916 ; [.1903.0020.0002] # PHOENICIAN NUMBER ONE
+10A40 ; [.1903.0020.0002] # KHAROSHTHI DIGIT ONE
+10A7D ; [.1903.0020.0002] # OLD SOUTH ARABIAN NUMBER ONE
+10A9D ; [.1903.0020.0002] # OLD NORTH ARABIAN NUMBER ONE
+10AEB ; [.1903.0020.0002] # MANICHAEAN NUMBER ONE
+10B58 ; [.1903.0020.0002] # INSCRIPTIONAL PARTHIAN NUMBER ONE
+10B78 ; [.1903.0020.0002] # INSCRIPTIONAL PAHLAVI NUMBER ONE
+10BA9 ; [.1903.0020.0002] # PSALTER PAHLAVI NUMBER ONE
+10E60 ; [.1903.0020.0002] # RUMI DIGIT ONE
+11052 ; [.1903.0020.0002] # BRAHMI NUMBER ONE
+11067 ; [.1903.0020.0002] # BRAHMI DIGIT ONE
+110F1 ; [.1903.0020.0002] # SORA SOMPENG DIGIT ONE
+11137 ; [.1903.0020.0002] # CHAKMA DIGIT ONE
+111D1 ; [.1903.0020.0002] # SHARADA DIGIT ONE
+111E1 ; [.1903.0020.0002] # SINHALA ARCHAIC DIGIT ONE
+112F1 ; [.1903.0020.0002] # KHUDAWADI DIGIT ONE
+114D1 ; [.1903.0020.0002] # TIRHUTA DIGIT ONE
+11651 ; [.1903.0020.0002] # MODI DIGIT ONE
+116C1 ; [.1903.0020.0002] # TAKRI DIGIT ONE
+118E1 ; [.1903.0020.0002] # WARANG CITI DIGIT ONE
+12415 ; [.1903.0020.0002] # CUNEIFORM NUMERIC SIGN ONE GESH2
+1241E ; [.1903.0020.0002] # CUNEIFORM NUMERIC SIGN ONE GESHU
+1242C ; [.1903.0020.0002] # CUNEIFORM NUMERIC SIGN ONE SHARU
+12434 ; [.1903.0020.0002] # CUNEIFORM NUMERIC SIGN ONE BURU
+1244F ; [.1903.0020.0002] # CUNEIFORM NUMERIC SIGN ONE BAN2
+12458 ; [.1903.0020.0002] # CUNEIFORM NUMERIC SIGN ONE ESHE3
+16A61 ; [.1903.0020.0002] # MRO DIGIT ONE
+16B51 ; [.1903.0020.0002] # PAHAWH HMONG DIGIT ONE
+1D360 ; [.1903.0020.0002] # COUNTING ROD UNIT DIGIT ONE
+1E8C7 ; [.1903.0020.0002] # MENDE KIKAKUI DIGIT ONE
+FF11  ; [.1903.0020.0003] # FULLWIDTH DIGIT ONE
+0F2A  ; [.1903.0020.0004] # TIBETAN DIGIT HALF ONE
+2474  ; [*030A.0020.0004][.1903.0020.0004][*030B.0020.0004] # PARENTHESIZED DIGIT ONE
+2488  ; [.1903.0020.0004][*0274.0020.0004] # DIGIT ONE FULL STOP
+1F102 ; [.1903.0020.0004][*0221.0020.0004] # DIGIT ONE COMMA
+1D7CF ; [.1903.0020.0005] # MATHEMATICAL BOLD DIGIT ONE
+1D7D9 ; [.1903.0020.0005] # MATHEMATICAL DOUBLE-STRUCK DIGIT ONE
+1D7E3 ; [.1903.0020.0005] # MATHEMATICAL SANS-SERIF DIGIT ONE
+1D7ED ; [.1903.0020.0005] # MATHEMATICAL SANS-SERIF BOLD DIGIT ONE
+1D7F7 ; [.1903.0020.0005] # MATHEMATICAL MONOSPACE DIGIT ONE
+2460  ; [.1903.0020.0006] # CIRCLED DIGIT ONE
+24F5  ; [.1903.0020.0006] # DOUBLE CIRCLED DIGIT ONE
+2776  ; [.1903.0020.0006] # DINGBAT NEGATIVE CIRCLED DIGIT ONE
+2780  ; [.1903.0020.0006] # DINGBAT CIRCLED SANS-SERIF DIGIT ONE
+278A  ; [.1903.0020.0006] # DINGBAT NEGATIVE CIRCLED SANS-SERIF DIGIT ONE
+00B9  ; [.1903.0020.0014] # SUPERSCRIPT ONE
+2081  ; [.1903.0020.0015] # SUBSCRIPT ONE
+215F  ; [.1903.0020.001E][*05E6.0020.001E] # FRACTION NUMERATOR ONE
+247D  ; [*030A.0020.0004][.1903.0020.0004][.1902.0020.0004][*030B.0020.0004] # PARENTHESIZED NUMBER TEN
+2491  ; [.1903.0020.0004][.1902.0020.0004][*0274.0020.0004] # NUMBER TEN FULL STOP
+2469  ; [.1903.0020.0006][.1902.0020.0006] # CIRCLED NUMBER TEN
+24FE  ; [.1903.0020.0006][.1902.0020.0006] # DOUBLE CIRCLED NUMBER TEN
+277F  ; [.1903.0020.0006][.1902.0020.0006] # DINGBAT NEGATIVE CIRCLED NUMBER TEN
+2789  ; [.1903.0020.0006][.1902.0020.0006] # DINGBAT CIRCLED SANS-SERIF NUMBER TEN
+2793  ; [.1903.0020.0006][.1902.0020.0006] # DINGBAT NEGATIVE CIRCLED SANS-SERIF NUMBER TEN
+3248  ; [.1903.0020.0006][.1902.0020.0006] # CIRCLED NUMBER TEN ON BLACK SQUARE
+33E9  ; [.1903.0020.0004][.1902.0020.0004][.FB40.0020.0004][.E5E5.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TEN
+32C9  ; [.1903.0020.0004][.1902.0020.0004][.FB40.0020.0004][.E708.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR OCTOBER
+3362  ; [.1903.0020.0004][.1902.0020.0004][.FB40.0020.0004][.F0B9.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR TEN
+247E  ; [*030A.0020.0004][.1903.0020.0004][.1903.0020.0004][*030B.0020.0004] # PARENTHESIZED NUMBER ELEVEN
+2492  ; [.1903.0020.0004][.1903.0020.0004][*0274.0020.0004] # NUMBER ELEVEN FULL STOP
+246A  ; [.1903.0020.0006][.1903.0020.0006] # CIRCLED NUMBER ELEVEN
+24EB  ; [.1903.0020.0006][.1903.0020.0006] # NEGATIVE CIRCLED NUMBER ELEVEN
+2152  ; [.1903.0020.001E][*05E6.0020.001E][.1903.0020.001E][.1902.0020.001E] # VULGAR FRACTION ONE TENTH
+33EA  ; [.1903.0020.0004][.1903.0020.0004][.FB40.0020.0004][.E5E5.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY ELEVEN
+32CA  ; [.1903.0020.0004][.1903.0020.0004][.FB40.0020.0004][.E708.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR NOVEMBER
+3363  ; [.1903.0020.0004][.1903.0020.0004][.FB40.0020.0004][.F0B9.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR ELEVEN
+247F  ; [*030A.0020.0004][.1903.0020.0004][.1904.0020.0004][*030B.0020.0004] # PARENTHESIZED NUMBER TWELVE
+2493  ; [.1903.0020.0004][.1904.0020.0004][*0274.0020.0004] # NUMBER TWELVE FULL STOP
+246B  ; [.1903.0020.0006][.1904.0020.0006] # CIRCLED NUMBER TWELVE
+24EC  ; [.1903.0020.0006][.1904.0020.0006] # NEGATIVE CIRCLED NUMBER TWELVE
+00BD  ; [.1903.0020.001E][*05E6.0020.001E][.1904.0020.001E] # VULGAR FRACTION ONE HALF
+33EB  ; [.1903.0020.0004][.1904.0020.0004][.FB40.0020.0004][.E5E5.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWELVE
+32CB  ; [.1903.0020.0004][.1904.0020.0004][.FB40.0020.0004][.E708.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DECEMBER
+3364  ; [.1903.0020.0004][.1904.0020.0004][.FB40.0020.0004][.F0B9.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR TWELVE
+2480  ; [*030A.0020.0004][.1903.0020.0004][.1905.0020.0004][*030B.0020.0004] # PARENTHESIZED NUMBER THIRTEEN
+2494  ; [.1903.0020.0004][.1905.0020.0004][*0274.0020.0004] # NUMBER THIRTEEN FULL STOP
+246C  ; [.1903.0020.0006][.1905.0020.0006] # CIRCLED NUMBER THIRTEEN
+24ED  ; [.1903.0020.0006][.1905.0020.0006] # NEGATIVE CIRCLED NUMBER THIRTEEN
+2153  ; [.1903.0020.001E][*05E6.0020.001E][.1905.0020.001E] # VULGAR FRACTION ONE THIRD
+33EC  ; [.1903.0020.0004][.1905.0020.0004][.FB40.0020.0004][.E5E5.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY THIRTEEN
+3365  ; [.1903.0020.0004][.1905.0020.0004][.FB40.0020.0004][.F0B9.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR THIRTEEN
+2481  ; [*030A.0020.0004][.1903.0020.0004][.1906.0020.0004][*030B.0020.0004] # PARENTHESIZED NUMBER FOURTEEN
+2495  ; [.1903.0020.0004][.1906.0020.0004][*0274.0020.0004] # NUMBER FOURTEEN FULL STOP
+246D  ; [.1903.0020.0006][.1906.0020.0006] # CIRCLED NUMBER FOURTEEN
+24EE  ; [.1903.0020.0006][.1906.0020.0006] # NEGATIVE CIRCLED NUMBER FOURTEEN
+00BC  ; [.1903.0020.001E][*05E6.0020.001E][.1906.0020.001E] # VULGAR FRACTION ONE QUARTER
+33ED  ; [.1903.0020.0004][.1906.0020.0004][.FB40.0020.0004][.E5E5.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY FOURTEEN
+3366  ; [.1903.0020.0004][.1906.0020.0004][.FB40.0020.0004][.F0B9.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR FOURTEEN
+2482  ; [*030A.0020.0004][.1903.0020.0004][.1907.0020.0004][*030B.0020.0004] # PARENTHESIZED NUMBER FIFTEEN
+2496  ; [.1903.0020.0004][.1907.0020.0004][*0274.0020.0004] # NUMBER FIFTEEN FULL STOP
+246E  ; [.1903.0020.0006][.1907.0020.0006] # CIRCLED NUMBER FIFTEEN
+24EF  ; [.1903.0020.0006][.1907.0020.0006] # NEGATIVE CIRCLED NUMBER FIFTEEN
+2155  ; [.1903.0020.001E][*05E6.0020.001E][.1907.0020.001E] # VULGAR FRACTION ONE FIFTH
+33EE  ; [.1903.0020.0004][.1907.0020.0004][.FB40.0020.0004][.E5E5.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY FIFTEEN
+3367  ; [.1903.0020.0004][.1907.0020.0004][.FB40.0020.0004][.F0B9.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR FIFTEEN
+2483  ; [*030A.0020.0004][.1903.0020.0004][.1908.0020.0004][*030B.0020.0004] # PARENTHESIZED NUMBER SIXTEEN
+2497  ; [.1903.0020.0004][.1908.0020.0004][*0274.0020.0004] # NUMBER SIXTEEN FULL STOP
+246F  ; [.1903.0020.0006][.1908.0020.0006] # CIRCLED NUMBER SIXTEEN
+24F0  ; [.1903.0020.0006][.1908.0020.0006] # NEGATIVE CIRCLED NUMBER SIXTEEN
+2159  ; [.1903.0020.001E][*05E6.0020.001E][.1908.0020.001E] # VULGAR FRACTION ONE SIXTH
+33EF  ; [.1903.0020.0004][.1908.0020.0004][.FB40.0020.0004][.E5E5.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY SIXTEEN
+3368  ; [.1903.0020.0004][.1908.0020.0004][.FB40.0020.0004][.F0B9.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR SIXTEEN
+2484  ; [*030A.0020.0004][.1903.0020.0004][.1909.0020.0004][*030B.0020.0004] # PARENTHESIZED NUMBER SEVENTEEN
+2498  ; [.1903.0020.0004][.1909.0020.0004][*0274.0020.0004] # NUMBER SEVENTEEN FULL STOP
+2470  ; [.1903.0020.0006][.1909.0020.0006] # CIRCLED NUMBER SEVENTEEN
+24F1  ; [.1903.0020.0006][.1909.0020.0006] # NEGATIVE CIRCLED NUMBER SEVENTEEN
+2150  ; [.1903.0020.001E][*05E6.0020.001E][.1909.0020.001E] # VULGAR FRACTION ONE SEVENTH
+33F0  ; [.1903.0020.0004][.1909.0020.0004][.FB40.0020.0004][.E5E5.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY SEVENTEEN
+3369  ; [.1903.0020.0004][.1909.0020.0004][.FB40.0020.0004][.F0B9.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR SEVENTEEN
+2485  ; [*030A.0020.0004][.1903.0020.0004][.190A.0020.0004][*030B.0020.0004] # PARENTHESIZED NUMBER EIGHTEEN
+2499  ; [.1903.0020.0004][.190A.0020.0004][*0274.0020.0004] # NUMBER EIGHTEEN FULL STOP
+2471  ; [.1903.0020.0006][.190A.0020.0006] # CIRCLED NUMBER EIGHTEEN
+24F2  ; [.1903.0020.0006][.190A.0020.0006] # NEGATIVE CIRCLED NUMBER EIGHTEEN
+215B  ; [.1903.0020.001E][*05E6.0020.001E][.190A.0020.001E] # VULGAR FRACTION ONE EIGHTH
+33F1  ; [.1903.0020.0004][.190A.0020.0004][.FB40.0020.0004][.E5E5.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY EIGHTEEN
+336A  ; [.1903.0020.0004][.190A.0020.0004][.FB40.0020.0004][.F0B9.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR EIGHTEEN
+2486  ; [*030A.0020.0004][.1903.0020.0004][.190B.0020.0004][*030B.0020.0004] # PARENTHESIZED NUMBER NINETEEN
+249A  ; [.1903.0020.0004][.190B.0020.0004][*0274.0020.0004] # NUMBER NINETEEN FULL STOP
+2472  ; [.1903.0020.0006][.190B.0020.0006] # CIRCLED NUMBER NINETEEN
+24F3  ; [.1903.0020.0006][.190B.0020.0006] # NEGATIVE CIRCLED NUMBER NINETEEN
+2151  ; [.1903.0020.001E][*05E6.0020.001E][.190B.0020.001E] # VULGAR FRACTION ONE NINTH
+33F2  ; [.1903.0020.0004][.190B.0020.0004][.FB40.0020.0004][.E5E5.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY NINETEEN
+336B  ; [.1903.0020.0004][.190B.0020.0004][.FB40.0020.0004][.F0B9.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR NINETEEN
+33E0  ; [.1903.0020.0004][.FB40.0020.0004][.E5E5.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY ONE
+32C0  ; [.1903.0020.0004][.FB40.0020.0004][.E708.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR JANUARY
+3359  ; [.1903.0020.0004][.FB40.0020.0004][.F0B9.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR ONE
+0032  ; [.1904.0020.0002] # DIGIT TWO
+0662  ; [.1904.0020.0002] # ARABIC-INDIC DIGIT TWO
+06F2  ; [.1904.0020.0002] # EXTENDED ARABIC-INDIC DIGIT TWO
+07C2  ; [.1904.0020.0002] # NKO DIGIT TWO
+0968  ; [.1904.0020.0002] # DEVANAGARI DIGIT TWO
+09E8  ; [.1904.0020.0002] # BENGALI DIGIT TWO
+0A68  ; [.1904.0020.0002] # GURMUKHI DIGIT TWO
+0AE8  ; [.1904.0020.0002] # GUJARATI DIGIT TWO
+0B68  ; [.1904.0020.0002] # ORIYA DIGIT TWO
+0BE8  ; [.1904.0020.0002] # TAMIL DIGIT TWO
+0C68  ; [.1904.0020.0002] # TELUGU DIGIT TWO
+0C7A  ; [.1904.0020.0002] # TELUGU FRACTION DIGIT TWO FOR ODD POWERS OF FOUR
+0C7D  ; [.1904.0020.0002] # TELUGU FRACTION DIGIT TWO FOR EVEN POWERS OF FOUR
+0CE8  ; [.1904.0020.0002] # KANNADA DIGIT TWO
+0D68  ; [.1904.0020.0002] # MALAYALAM DIGIT TWO
+0DE8  ; [.1904.0020.0002] # SINHALA LITH DIGIT TWO
+0E52  ; [.1904.0020.0002] # THAI DIGIT TWO
+0ED2  ; [.1904.0020.0002] # LAO DIGIT TWO
+0F22  ; [.1904.0020.0002] # TIBETAN DIGIT TWO
+1042  ; [.1904.0020.0002] # MYANMAR DIGIT TWO
+1092  ; [.1904.0020.0002] # MYANMAR SHAN DIGIT TWO
+136A  ; [.1904.0020.0002] # ETHIOPIC DIGIT TWO
+17E2  ; [.1904.0020.0002] # KHMER DIGIT TWO
+17F2  ; [.1904.0020.0002] # KHMER SYMBOL LEK ATTAK PII
+1812  ; [.1904.0020.0002] # MONGOLIAN DIGIT TWO
+1948  ; [.1904.0020.0002] # LIMBU DIGIT TWO
+19D2  ; [.1904.0020.0002] # NEW TAI LUE DIGIT TWO
+1A82  ; [.1904.0020.0002] # TAI THAM HORA DIGIT TWO
+1A92  ; [.1904.0020.0002] # TAI THAM THAM DIGIT TWO
+1B52  ; [.1904.0020.0002] # BALINESE DIGIT TWO
+1BB2  ; [.1904.0020.0002] # SUNDANESE DIGIT TWO
+1C42  ; [.1904.0020.0002] # LEPCHA DIGIT TWO
+1C52  ; [.1904.0020.0002] # OL CHIKI DIGIT TWO
+3022  ; [.1904.0020.0002] # HANGZHOU NUMERAL TWO
+A622  ; [.1904.0020.0002] # VAI DIGIT TWO
+A8D2  ; [.1904.0020.0002] # SAURASHTRA DIGIT TWO
+A902  ; [.1904.0020.0002] # KAYAH LI DIGIT TWO
+A9D2  ; [.1904.0020.0002] # JAVANESE DIGIT TWO
+A9F2  ; [.1904.0020.0002] # MYANMAR TAI LAING DIGIT TWO
+AA52  ; [.1904.0020.0002] # CHAM DIGIT TWO
+ABF2  ; [.1904.0020.0002] # MEETEI MAYEK DIGIT TWO
+10108 ; [.1904.0020.0002] # AEGEAN NUMBER TWO
+1015B ; [.1904.0020.0002] # GREEK ACROPHONIC EPIDAUREAN TWO
+1015C ; [.1904.0020.0002] # GREEK ACROPHONIC THESPIAN TWO
+1015D ; [.1904.0020.0002] # GREEK ACROPHONIC CYRENAIC TWO DRACHMAS
+1015E ; [.1904.0020.0002] # GREEK ACROPHONIC EPIDAUREAN TWO DRACHMAS
+102E2 ; [.1904.0020.0002] # COPTIC EPACT DIGIT TWO
+103D2 ; [.1904.0020.0002] # OLD PERSIAN NUMBER TWO
+104A2 ; [.1904.0020.0002] # OSMANYA DIGIT TWO
+10859 ; [.1904.0020.0002] # IMPERIAL ARAMAIC NUMBER TWO
+1087A ; [.1904.0020.0002] # PALMYRENE NUMBER TWO
+108A8 ; [.1904.0020.0002] # NABATAEAN NUMBER TWO
+1091A ; [.1904.0020.0002] # PHOENICIAN NUMBER TWO
+10A41 ; [.1904.0020.0002] # KHAROSHTHI DIGIT TWO
+10B59 ; [.1904.0020.0002] # INSCRIPTIONAL PARTHIAN NUMBER TWO
+10B79 ; [.1904.0020.0002] # INSCRIPTIONAL PAHLAVI NUMBER TWO
+10BAA ; [.1904.0020.0002] # PSALTER PAHLAVI NUMBER TWO
+10E61 ; [.1904.0020.0002] # RUMI DIGIT TWO
+11053 ; [.1904.0020.0002] # BRAHMI NUMBER TWO
+11068 ; [.1904.0020.0002] # BRAHMI DIGIT TWO
+110F2 ; [.1904.0020.0002] # SORA SOMPENG DIGIT TWO
+11138 ; [.1904.0020.0002] # CHAKMA DIGIT TWO
+111D2 ; [.1904.0020.0002] # SHARADA DIGIT TWO
+111E2 ; [.1904.0020.0002] # SINHALA ARCHAIC DIGIT TWO
+112F2 ; [.1904.0020.0002] # KHUDAWADI DIGIT TWO
+114D2 ; [.1904.0020.0002] # TIRHUTA DIGIT TWO
+11652 ; [.1904.0020.0002] # MODI DIGIT TWO
+116C2 ; [.1904.0020.0002] # TAKRI DIGIT TWO
+118E2 ; [.1904.0020.0002] # WARANG CITI DIGIT TWO
+12400 ; [.1904.0020.0002] # CUNEIFORM NUMERIC SIGN TWO ASH
+12416 ; [.1904.0020.0002] # CUNEIFORM NUMERIC SIGN TWO GESH2
+1241F ; [.1904.0020.0002] # CUNEIFORM NUMERIC SIGN TWO GESHU
+12423 ; [.1904.0020.0002] # CUNEIFORM NUMERIC SIGN TWO SHAR2
+1242D ; [.1904.0020.0002] # CUNEIFORM NUMERIC SIGN TWO SHARU
+12435 ; [.1904.0020.0002] # CUNEIFORM NUMERIC SIGN TWO BURU
+1244A ; [.1904.0020.0002] # CUNEIFORM NUMERIC SIGN TWO ASH TENU
+12450 ; [.1904.0020.0002] # CUNEIFORM NUMERIC SIGN TWO BAN2
+12456 ; [.1904.0020.0002] # CUNEIFORM NUMERIC SIGN NIGIDAMIN
+12459 ; [.1904.0020.0002] # CUNEIFORM NUMERIC SIGN TWO ESHE3
+16A62 ; [.1904.0020.0002] # MRO DIGIT TWO
+16B52 ; [.1904.0020.0002] # PAHAWH HMONG DIGIT TWO
+1D361 ; [.1904.0020.0002] # COUNTING ROD UNIT DIGIT TWO
+1E8C8 ; [.1904.0020.0002] # MENDE KIKAKUI DIGIT TWO
+FF12  ; [.1904.0020.0003] # FULLWIDTH DIGIT TWO
+0F2B  ; [.1904.0020.0004] # TIBETAN DIGIT HALF TWO
+2475  ; [*030A.0020.0004][.1904.0020.0004][*030B.0020.0004] # PARENTHESIZED DIGIT TWO
+2489  ; [.1904.0020.0004][*0274.0020.0004] # DIGIT TWO FULL STOP
+1F103 ; [.1904.0020.0004][*0221.0020.0004] # DIGIT TWO COMMA
+1D7D0 ; [.1904.0020.0005] # MATHEMATICAL BOLD DIGIT TWO
+1D7DA ; [.1904.0020.0005] # MATHEMATICAL DOUBLE-STRUCK DIGIT TWO
+1D7E4 ; [.1904.0020.0005] # MATHEMATICAL SANS-SERIF DIGIT TWO
+1D7EE ; [.1904.0020.0005] # MATHEMATICAL SANS-SERIF BOLD DIGIT TWO
+1D7F8 ; [.1904.0020.0005] # MATHEMATICAL MONOSPACE DIGIT TWO
+2461  ; [.1904.0020.0006] # CIRCLED DIGIT TWO
+24F6  ; [.1904.0020.0006] # DOUBLE CIRCLED DIGIT TWO
+2777  ; [.1904.0020.0006] # DINGBAT NEGATIVE CIRCLED DIGIT TWO
+2781  ; [.1904.0020.0006] # DINGBAT CIRCLED SANS-SERIF DIGIT TWO
+278B  ; [.1904.0020.0006] # DINGBAT NEGATIVE CIRCLED SANS-SERIF DIGIT TWO
+00B2  ; [.1904.0020.0014] # SUPERSCRIPT TWO
+2082  ; [.1904.0020.0015] # SUBSCRIPT TWO
+2487  ; [*030A.0020.0004][.1904.0020.0004][.1902.0020.0004][*030B.0020.0004] # PARENTHESIZED NUMBER TWENTY
+249B  ; [.1904.0020.0004][.1902.0020.0004][*0274.0020.0004] # NUMBER TWENTY FULL STOP
+2473  ; [.1904.0020.0006][.1902.0020.0006] # CIRCLED NUMBER TWENTY
+24F4  ; [.1904.0020.0006][.1902.0020.0006] # NEGATIVE CIRCLED NUMBER TWENTY
+3249  ; [.1904.0020.0006][.1902.0020.0006] # CIRCLED NUMBER TWENTY ON BLACK SQUARE
+33F3  ; [.1904.0020.0004][.1902.0020.0004][.FB40.0020.0004][.E5E5.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY
+336C  ; [.1904.0020.0004][.1902.0020.0004][.FB40.0020.0004][.F0B9.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR TWENTY
+3251  ; [.1904.0020.0006][.1903.0020.0006] # CIRCLED NUMBER TWENTY ONE
+33F4  ; [.1904.0020.0004][.1903.0020.0004][.FB40.0020.0004][.E5E5.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY-ONE
+336D  ; [.1904.0020.0004][.1903.0020.0004][.FB40.0020.0004][.F0B9.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR TWENTY-ONE
+3252  ; [.1904.0020.0006][.1904.0020.0006] # CIRCLED NUMBER TWENTY TWO
+33F5  ; [.1904.0020.0004][.1904.0020.0004][.FB40.0020.0004][.E5E5.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY-TWO
+336E  ; [.1904.0020.0004][.1904.0020.0004][.FB40.0020.0004][.F0B9.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR TWENTY-TWO
+3253  ; [.1904.0020.0006][.1905.0020.0006] # CIRCLED NUMBER TWENTY THREE
+2154  ; [.1904.0020.001E][*05E6.0020.001E][.1905.0020.001E] # VULGAR FRACTION TWO THIRDS
+33F6  ; [.1904.0020.0004][.1905.0020.0004][.FB40.0020.0004][.E5E5.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY-THREE
+336F  ; [.1904.0020.0004][.1905.0020.0004][.FB40.0020.0004][.F0B9.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR TWENTY-THREE
+3254  ; [.1904.0020.0006][.1906.0020.0006] # CIRCLED NUMBER TWENTY FOUR
+33F7  ; [.1904.0020.0004][.1906.0020.0004][.FB40.0020.0004][.E5E5.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY-FOUR
+3370  ; [.1904.0020.0004][.1906.0020.0004][.FB40.0020.0004][.F0B9.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR TWENTY-FOUR
+3255  ; [.1904.0020.0006][.1907.0020.0006] # CIRCLED NUMBER TWENTY FIVE
+2156  ; [.1904.0020.001E][*05E6.0020.001E][.1907.0020.001E] # VULGAR FRACTION TWO FIFTHS
+33F8  ; [.1904.0020.0004][.1907.0020.0004][.FB40.0020.0004][.E5E5.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY-FIVE
+3256  ; [.1904.0020.0006][.1908.0020.0006] # CIRCLED NUMBER TWENTY SIX
+33F9  ; [.1904.0020.0004][.1908.0020.0004][.FB40.0020.0004][.E5E5.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY-SIX
+3257  ; [.1904.0020.0006][.1909.0020.0006] # CIRCLED NUMBER TWENTY SEVEN
+33FA  ; [.1904.0020.0004][.1909.0020.0004][.FB40.0020.0004][.E5E5.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY-SEVEN
+3258  ; [.1904.0020.0006][.190A.0020.0006] # CIRCLED NUMBER TWENTY EIGHT
+33FB  ; [.1904.0020.0004][.190A.0020.0004][.FB40.0020.0004][.E5E5.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY-EIGHT
+3259  ; [.1904.0020.0006][.190B.0020.0006] # CIRCLED NUMBER TWENTY NINE
+33FC  ; [.1904.0020.0004][.190B.0020.0004][.FB40.0020.0004][.E5E5.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY-NINE
+33E1  ; [.1904.0020.0004][.FB40.0020.0004][.E5E5.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWO
+32C1  ; [.1904.0020.0004][.FB40.0020.0004][.E708.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR FEBRUARY
+335A  ; [.1904.0020.0004][.FB40.0020.0004][.F0B9.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR TWO
+0033  ; [.1905.0020.0002] # DIGIT THREE
+0663  ; [.1905.0020.0002] # ARABIC-INDIC DIGIT THREE
+06F3  ; [.1905.0020.0002] # EXTENDED ARABIC-INDIC DIGIT THREE
+07C3  ; [.1905.0020.0002] # NKO DIGIT THREE
+0969  ; [.1905.0020.0002] # DEVANAGARI DIGIT THREE
+09E9  ; [.1905.0020.0002] # BENGALI DIGIT THREE
+0A69  ; [.1905.0020.0002] # GURMUKHI DIGIT THREE
+0AE9  ; [.1905.0020.0002] # GUJARATI DIGIT THREE
+0B69  ; [.1905.0020.0002] # ORIYA DIGIT THREE
+0BE9  ; [.1905.0020.0002] # TAMIL DIGIT THREE
+0C69  ; [.1905.0020.0002] # TELUGU DIGIT THREE
+0C7B  ; [.1905.0020.0002] # TELUGU FRACTION DIGIT THREE FOR ODD POWERS OF FOUR
+0C7E  ; [.1905.0020.0002] # TELUGU FRACTION DIGIT THREE FOR EVEN POWERS OF FOUR
+0CE9  ; [.1905.0020.0002] # KANNADA DIGIT THREE
+0D69  ; [.1905.0020.0002] # MALAYALAM DIGIT THREE
+0DE9  ; [.1905.0020.0002] # SINHALA LITH DIGIT THREE
+0E53  ; [.1905.0020.0002] # THAI DIGIT THREE
+0ED3  ; [.1905.0020.0002] # LAO DIGIT THREE
+0F23  ; [.1905.0020.0002] # TIBETAN DIGIT THREE
+1043  ; [.1905.0020.0002] # MYANMAR DIGIT THREE
+1093  ; [.1905.0020.0002] # MYANMAR SHAN DIGIT THREE
+136B  ; [.1905.0020.0002] # ETHIOPIC DIGIT THREE
+17E3  ; [.1905.0020.0002] # KHMER DIGIT THREE
+17F3  ; [.1905.0020.0002] # KHMER SYMBOL LEK ATTAK BEI
+1813  ; [.1905.0020.0002] # MONGOLIAN DIGIT THREE
+1949  ; [.1905.0020.0002] # LIMBU DIGIT THREE
+19D3  ; [.1905.0020.0002] # NEW TAI LUE DIGIT THREE
+1A83  ; [.1905.0020.0002] # TAI THAM HORA DIGIT THREE
+1A93  ; [.1905.0020.0002] # TAI THAM THAM DIGIT THREE
+1B53  ; [.1905.0020.0002] # BALINESE DIGIT THREE
+1BB3  ; [.1905.0020.0002] # SUNDANESE DIGIT THREE
+1C43  ; [.1905.0020.0002] # LEPCHA DIGIT THREE
+1C53  ; [.1905.0020.0002] # OL CHIKI DIGIT THREE
+3023  ; [.1905.0020.0002] # HANGZHOU NUMERAL THREE
+A623  ; [.1905.0020.0002] # VAI DIGIT THREE
+A8D3  ; [.1905.0020.0002] # SAURASHTRA DIGIT THREE
+A903  ; [.1905.0020.0002] # KAYAH LI DIGIT THREE
+A9D3  ; [.1905.0020.0002] # JAVANESE DIGIT THREE
+A9F3  ; [.1905.0020.0002] # MYANMAR TAI LAING DIGIT THREE
+AA53  ; [.1905.0020.0002] # CHAM DIGIT THREE
+ABF3  ; [.1905.0020.0002] # MEETEI MAYEK DIGIT THREE
+10109 ; [.1905.0020.0002] # AEGEAN NUMBER THREE
+102E3 ; [.1905.0020.0002] # COPTIC EPACT DIGIT THREE
+104A3 ; [.1905.0020.0002] # OSMANYA DIGIT THREE
+1085A ; [.1905.0020.0002] # IMPERIAL ARAMAIC NUMBER THREE
+1087B ; [.1905.0020.0002] # PALMYRENE NUMBER THREE
+108A9 ; [.1905.0020.0002] # NABATAEAN NUMBER THREE
+1091B ; [.1905.0020.0002] # PHOENICIAN NUMBER THREE
+10A42 ; [.1905.0020.0002] # KHAROSHTHI DIGIT THREE
+10B5A ; [.1905.0020.0002] # INSCRIPTIONAL PARTHIAN NUMBER THREE
+10B7A ; [.1905.0020.0002] # INSCRIPTIONAL PAHLAVI NUMBER THREE
+10BAB ; [.1905.0020.0002] # PSALTER PAHLAVI NUMBER THREE
+10E62 ; [.1905.0020.0002] # RUMI DIGIT THREE
+11054 ; [.1905.0020.0002] # BRAHMI NUMBER THREE
+11069 ; [.1905.0020.0002] # BRAHMI DIGIT THREE
+110F3 ; [.1905.0020.0002] # SORA SOMPENG DIGIT THREE
+11139 ; [.1905.0020.0002] # CHAKMA DIGIT THREE
+111D3 ; [.1905.0020.0002] # SHARADA DIGIT THREE
+111E3 ; [.1905.0020.0002] # SINHALA ARCHAIC DIGIT THREE
+112F3 ; [.1905.0020.0002] # KHUDAWADI DIGIT THREE
+114D3 ; [.1905.0020.0002] # TIRHUTA DIGIT THREE
+11653 ; [.1905.0020.0002] # MODI DIGIT THREE
+116C3 ; [.1905.0020.0002] # TAKRI DIGIT THREE
+118E3 ; [.1905.0020.0002] # WARANG CITI DIGIT THREE
+12401 ; [.1905.0020.0002] # CUNEIFORM NUMERIC SIGN THREE ASH
+12408 ; [.1905.0020.0002] # CUNEIFORM NUMERIC SIGN THREE DISH
+12417 ; [.1905.0020.0002] # CUNEIFORM NUMERIC SIGN THREE GESH2
+12420 ; [.1905.0020.0002] # CUNEIFORM NUMERIC SIGN THREE GESHU
+12424 ; [.1905.0020.0002] # CUNEIFORM NUMERIC SIGN THREE SHAR2
+12425 ; [.1905.0020.0002] # CUNEIFORM NUMERIC SIGN THREE SHAR2 VARIANT FORM
+1242E ; [.1905.0020.0002] # CUNEIFORM NUMERIC SIGN THREE SHARU
+1242F ; [.1905.0020.0002] # CUNEIFORM NUMERIC SIGN THREE SHARU VARIANT FORM
+12436 ; [.1905.0020.0002] # CUNEIFORM NUMERIC SIGN THREE BURU
+12437 ; [.1905.0020.0002] # CUNEIFORM NUMERIC SIGN THREE BURU VARIANT FORM
+1243A ; [.1905.0020.0002] # CUNEIFORM NUMERIC SIGN THREE VARIANT FORM ESH16
+1243B ; [.1905.0020.0002] # CUNEIFORM NUMERIC SIGN THREE VARIANT FORM ESH21
+1244B ; [.1905.0020.0002] # CUNEIFORM NUMERIC SIGN THREE ASH TENU
+12451 ; [.1905.0020.0002] # CUNEIFORM NUMERIC SIGN THREE BAN2
+12457 ; [.1905.0020.0002] # CUNEIFORM NUMERIC SIGN NIGIDAESH
+16A63 ; [.1905.0020.0002] # MRO DIGIT THREE
+16B53 ; [.1905.0020.0002] # PAHAWH HMONG DIGIT THREE
+1D362 ; [.1905.0020.0002] # COUNTING ROD UNIT DIGIT THREE
+1E8C9 ; [.1905.0020.0002] # MENDE KIKAKUI DIGIT THREE
+FF13  ; [.1905.0020.0003] # FULLWIDTH DIGIT THREE
+0F2C  ; [.1905.0020.0004] # TIBETAN DIGIT HALF THREE
+2476  ; [*030A.0020.0004][.1905.0020.0004][*030B.0020.0004] # PARENTHESIZED DIGIT THREE
+248A  ; [.1905.0020.0004][*0274.0020.0004] # DIGIT THREE FULL STOP
+1F104 ; [.1905.0020.0004][*0221.0020.0004] # DIGIT THREE COMMA
+1D7D1 ; [.1905.0020.0005] # MATHEMATICAL BOLD DIGIT THREE
+1D7DB ; [.1905.0020.0005] # MATHEMATICAL DOUBLE-STRUCK DIGIT THREE
+1D7E5 ; [.1905.0020.0005] # MATHEMATICAL SANS-SERIF DIGIT THREE
+1D7EF ; [.1905.0020.0005] # MATHEMATICAL SANS-SERIF BOLD DIGIT THREE
+1D7F9 ; [.1905.0020.0005] # MATHEMATICAL MONOSPACE DIGIT THREE
+2462  ; [.1905.0020.0006] # CIRCLED DIGIT THREE
+24F7  ; [.1905.0020.0006] # DOUBLE CIRCLED DIGIT THREE
+2778  ; [.1905.0020.0006] # DINGBAT NEGATIVE CIRCLED DIGIT THREE
+2782  ; [.1905.0020.0006] # DINGBAT CIRCLED SANS-SERIF DIGIT THREE
+278C  ; [.1905.0020.0006] # DINGBAT NEGATIVE CIRCLED SANS-SERIF DIGIT THREE
+00B3  ; [.1905.0020.0014] # SUPERSCRIPT THREE
+2083  ; [.1905.0020.0015] # SUBSCRIPT THREE
+324A  ; [.1905.0020.0006][.1902.0020.0006] # CIRCLED NUMBER THIRTY ON BLACK SQUARE
+325A  ; [.1905.0020.0006][.1902.0020.0006] # CIRCLED NUMBER THIRTY
+33FD  ; [.1905.0020.0004][.1902.0020.0004][.FB40.0020.0004][.E5E5.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY THIRTY
+325B  ; [.1905.0020.0006][.1903.0020.0006] # CIRCLED NUMBER THIRTY ONE
+33FE  ; [.1905.0020.0004][.1903.0020.0004][.FB40.0020.0004][.E5E5.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY THIRTY-ONE
+325C  ; [.1905.0020.0006][.1904.0020.0006] # CIRCLED NUMBER THIRTY TWO
+325D  ; [.1905.0020.0006][.1905.0020.0006] # CIRCLED NUMBER THIRTY THREE
+325E  ; [.1905.0020.0006][.1906.0020.0006] # CIRCLED NUMBER THIRTY FOUR
+00BE  ; [.1905.0020.001E][*05E6.0020.001E][.1906.0020.001E] # VULGAR FRACTION THREE QUARTERS
+325F  ; [.1905.0020.0006][.1907.0020.0006] # CIRCLED NUMBER THIRTY FIVE
+2157  ; [.1905.0020.001E][*05E6.0020.001E][.1907.0020.001E] # VULGAR FRACTION THREE FIFTHS
+32B1  ; [.1905.0020.0006][.1908.0020.0006] # CIRCLED NUMBER THIRTY SIX
+32B2  ; [.1905.0020.0006][.1909.0020.0006] # CIRCLED NUMBER THIRTY SEVEN
+32B3  ; [.1905.0020.0006][.190A.0020.0006] # CIRCLED NUMBER THIRTY EIGHT
+215C  ; [.1905.0020.001E][*05E6.0020.001E][.190A.0020.001E] # VULGAR FRACTION THREE EIGHTHS
+32B4  ; [.1905.0020.0006][.190B.0020.0006] # CIRCLED NUMBER THIRTY NINE
+33E2  ; [.1905.0020.0004][.FB40.0020.0004][.E5E5.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY THREE
+32C2  ; [.1905.0020.0004][.FB40.0020.0004][.E708.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR MARCH
+335B  ; [.1905.0020.0004][.FB40.0020.0004][.F0B9.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR THREE
+0034  ; [.1906.0020.0002] # DIGIT FOUR
+0664  ; [.1906.0020.0002] # ARABIC-INDIC DIGIT FOUR
+06F4  ; [.1906.0020.0002] # EXTENDED ARABIC-INDIC DIGIT FOUR
+07C4  ; [.1906.0020.0002] # NKO DIGIT FOUR
+096A  ; [.1906.0020.0002] # DEVANAGARI DIGIT FOUR
+09EA  ; [.1906.0020.0002] # BENGALI DIGIT FOUR
+0A6A  ; [.1906.0020.0002] # GURMUKHI DIGIT FOUR
+0AEA  ; [.1906.0020.0002] # GUJARATI DIGIT FOUR
+0B6A  ; [.1906.0020.0002] # ORIYA DIGIT FOUR
+0BEA  ; [.1906.0020.0002] # TAMIL DIGIT FOUR
+0C6A  ; [.1906.0020.0002] # TELUGU DIGIT FOUR
+0CEA  ; [.1906.0020.0002] # KANNADA DIGIT FOUR
+0D6A  ; [.1906.0020.0002] # MALAYALAM DIGIT FOUR
+0DEA  ; [.1906.0020.0002] # SINHALA LITH DIGIT FOUR
+0E54  ; [.1906.0020.0002] # THAI DIGIT FOUR
+0ED4  ; [.1906.0020.0002] # LAO DIGIT FOUR
+0F24  ; [.1906.0020.0002] # TIBETAN DIGIT FOUR
+1044  ; [.1906.0020.0002] # MYANMAR DIGIT FOUR
+1094  ; [.1906.0020.0002] # MYANMAR SHAN DIGIT FOUR
+136C  ; [.1906.0020.0002] # ETHIOPIC DIGIT FOUR
+17E4  ; [.1906.0020.0002] # KHMER DIGIT FOUR
+17F4  ; [.1906.0020.0002] # KHMER SYMBOL LEK ATTAK BUON
+1814  ; [.1906.0020.0002] # MONGOLIAN DIGIT FOUR
+194A  ; [.1906.0020.0002] # LIMBU DIGIT FOUR
+19D4  ; [.1906.0020.0002] # NEW TAI LUE DIGIT FOUR
+1A84  ; [.1906.0020.0002] # TAI THAM HORA DIGIT FOUR
+1A94  ; [.1906.0020.0002] # TAI THAM THAM DIGIT FOUR
+1B54  ; [.1906.0020.0002] # BALINESE DIGIT FOUR
+1BB4  ; [.1906.0020.0002] # SUNDANESE DIGIT FOUR
+1C44  ; [.1906.0020.0002] # LEPCHA DIGIT FOUR
+1C54  ; [.1906.0020.0002] # OL CHIKI DIGIT FOUR
+3024  ; [.1906.0020.0002] # HANGZHOU NUMERAL FOUR
+A624  ; [.1906.0020.0002] # VAI DIGIT FOUR
+A8D4  ; [.1906.0020.0002] # SAURASHTRA DIGIT FOUR
+A904  ; [.1906.0020.0002] # KAYAH LI DIGIT FOUR
+A9D4  ; [.1906.0020.0002] # JAVANESE DIGIT FOUR
+A9F4  ; [.1906.0020.0002] # MYANMAR TAI LAING DIGIT FOUR
+AA54  ; [.1906.0020.0002] # CHAM DIGIT FOUR
+ABF4  ; [.1906.0020.0002] # MEETEI MAYEK DIGIT FOUR
+1010A ; [.1906.0020.0002] # AEGEAN NUMBER FOUR
+102E4 ; [.1906.0020.0002] # COPTIC EPACT DIGIT FOUR
+104A4 ; [.1906.0020.0002] # OSMANYA DIGIT FOUR
+1087C ; [.1906.0020.0002] # PALMYRENE NUMBER FOUR
+108AA ; [.1906.0020.0002] # NABATAEAN NUMBER FOUR
+108AB ; [.1906.0020.0002] # NABATAEAN CRUCIFORM NUMBER FOUR
+10A43 ; [.1906.0020.0002] # KHAROSHTHI DIGIT FOUR
+10B5B ; [.1906.0020.0002] # INSCRIPTIONAL PARTHIAN NUMBER FOUR
+10B7B ; [.1906.0020.0002] # INSCRIPTIONAL PAHLAVI NUMBER FOUR
+10BAC ; [.1906.0020.0002] # PSALTER PAHLAVI NUMBER FOUR
+10E63 ; [.1906.0020.0002] # RUMI DIGIT FOUR
+11055 ; [.1906.0020.0002] # BRAHMI NUMBER FOUR
+1106A ; [.1906.0020.0002] # BRAHMI DIGIT FOUR
+110F4 ; [.1906.0020.0002] # SORA SOMPENG DIGIT FOUR
+1113A ; [.1906.0020.0002] # CHAKMA DIGIT FOUR
+111D4 ; [.1906.0020.0002] # SHARADA DIGIT FOUR
+111E4 ; [.1906.0020.0002] # SINHALA ARCHAIC DIGIT FOUR
+112F4 ; [.1906.0020.0002] # KHUDAWADI DIGIT FOUR
+114D4 ; [.1906.0020.0002] # TIRHUTA DIGIT FOUR
+11654 ; [.1906.0020.0002] # MODI DIGIT FOUR
+116C4 ; [.1906.0020.0002] # TAKRI DIGIT FOUR
+118E4 ; [.1906.0020.0002] # WARANG CITI DIGIT FOUR
+12402 ; [.1906.0020.0002] # CUNEIFORM NUMERIC SIGN FOUR ASH
+12409 ; [.1906.0020.0002] # CUNEIFORM NUMERIC SIGN FOUR DISH
+1240F ; [.1906.0020.0002] # CUNEIFORM NUMERIC SIGN FOUR U
+12418 ; [.1906.0020.0002] # CUNEIFORM NUMERIC SIGN FOUR GESH2
+12421 ; [.1906.0020.0002] # CUNEIFORM NUMERIC SIGN FOUR GESHU
+12426 ; [.1906.0020.0002] # CUNEIFORM NUMERIC SIGN FOUR SHAR2
+12430 ; [.1906.0020.0002] # CUNEIFORM NUMERIC SIGN FOUR SHARU
+12438 ; [.1906.0020.0002] # CUNEIFORM NUMERIC SIGN FOUR BURU
+1243C ; [.1906.0020.0002] # CUNEIFORM NUMERIC SIGN FOUR VARIANT FORM LIMMU
+1243D ; [.1906.0020.0002] # CUNEIFORM NUMERIC SIGN FOUR VARIANT FORM LIMMU4
+1243E ; [.1906.0020.0002] # CUNEIFORM NUMERIC SIGN FOUR VARIANT FORM LIMMU A
+1243F ; [.1906.0020.0002] # CUNEIFORM NUMERIC SIGN FOUR VARIANT FORM LIMMU B
+1244C ; [.1906.0020.0002] # CUNEIFORM NUMERIC SIGN FOUR ASH TENU
+12452 ; [.1906.0020.0002] # CUNEIFORM NUMERIC SIGN FOUR BAN2
+12453 ; [.1906.0020.0002] # CUNEIFORM NUMERIC SIGN FOUR BAN2 VARIANT FORM
+12469 ; [.1906.0020.0002] # CUNEIFORM NUMERIC SIGN FOUR U VARIANT FORM
+16A64 ; [.1906.0020.0002] # MRO DIGIT FOUR
+16B54 ; [.1906.0020.0002] # PAHAWH HMONG DIGIT FOUR
+1D363 ; [.1906.0020.0002] # COUNTING ROD UNIT DIGIT FOUR
+1E8CA ; [.1906.0020.0002] # MENDE KIKAKUI DIGIT FOUR
+FF14  ; [.1906.0020.0003] # FULLWIDTH DIGIT FOUR
+0F2D  ; [.1906.0020.0004] # TIBETAN DIGIT HALF FOUR
+2477  ; [*030A.0020.0004][.1906.0020.0004][*030B.0020.0004] # PARENTHESIZED DIGIT FOUR
+248B  ; [.1906.0020.0004][*0274.0020.0004] # DIGIT FOUR FULL STOP
+1F105 ; [.1906.0020.0004][*0221.0020.0004] # DIGIT FOUR COMMA
+1D7D2 ; [.1906.0020.0005] # MATHEMATICAL BOLD DIGIT FOUR
+1D7DC ; [.1906.0020.0005] # MATHEMATICAL DOUBLE-STRUCK DIGIT FOUR
+1D7E6 ; [.1906.0020.0005] # MATHEMATICAL SANS-SERIF DIGIT FOUR
+1D7F0 ; [.1906.0020.0005] # MATHEMATICAL SANS-SERIF BOLD DIGIT FOUR
+1D7FA ; [.1906.0020.0005] # MATHEMATICAL MONOSPACE DIGIT FOUR
+2463  ; [.1906.0020.0006] # CIRCLED DIGIT FOUR
+24F8  ; [.1906.0020.0006] # DOUBLE CIRCLED DIGIT FOUR
+2779  ; [.1906.0020.0006] # DINGBAT NEGATIVE CIRCLED DIGIT FOUR
+2783  ; [.1906.0020.0006] # DINGBAT CIRCLED SANS-SERIF DIGIT FOUR
+278D  ; [.1906.0020.0006] # DINGBAT NEGATIVE CIRCLED SANS-SERIF DIGIT FOUR
+2074  ; [.1906.0020.0014] # SUPERSCRIPT FOUR
+2084  ; [.1906.0020.0015] # SUBSCRIPT FOUR
+324B  ; [.1906.0020.0006][.1902.0020.0006] # CIRCLED NUMBER FORTY ON BLACK SQUARE
+32B5  ; [.1906.0020.0006][.1902.0020.0006] # CIRCLED NUMBER FORTY
+32B6  ; [.1906.0020.0006][.1903.0020.0006] # CIRCLED NUMBER FORTY ONE
+32B7  ; [.1906.0020.0006][.1904.0020.0006] # CIRCLED NUMBER FORTY TWO
+32B8  ; [.1906.0020.0006][.1905.0020.0006] # CIRCLED NUMBER FORTY THREE
+32B9  ; [.1906.0020.0006][.1906.0020.0006] # CIRCLED NUMBER FORTY FOUR
+32BA  ; [.1906.0020.0006][.1907.0020.0006] # CIRCLED NUMBER FORTY FIVE
+2158  ; [.1906.0020.001E][*05E6.0020.001E][.1907.0020.001E] # VULGAR FRACTION FOUR FIFTHS
+32BB  ; [.1906.0020.0006][.1908.0020.0006] # CIRCLED NUMBER FORTY SIX
+32BC  ; [.1906.0020.0006][.1909.0020.0006] # CIRCLED NUMBER FORTY SEVEN
+32BD  ; [.1906.0020.0006][.190A.0020.0006] # CIRCLED NUMBER FORTY EIGHT
+32BE  ; [.1906.0020.0006][.190B.0020.0006] # CIRCLED NUMBER FORTY NINE
+33E3  ; [.1906.0020.0004][.FB40.0020.0004][.E5E5.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY FOUR
+32C3  ; [.1906.0020.0004][.FB40.0020.0004][.E708.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR APRIL
+335C  ; [.1906.0020.0004][.FB40.0020.0004][.F0B9.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR FOUR
+0035  ; [.1907.0020.0002] # DIGIT FIVE
+0665  ; [.1907.0020.0002] # ARABIC-INDIC DIGIT FIVE
+06F5  ; [.1907.0020.0002] # EXTENDED ARABIC-INDIC DIGIT FIVE
+07C5  ; [.1907.0020.0002] # NKO DIGIT FIVE
+096B  ; [.1907.0020.0002] # DEVANAGARI DIGIT FIVE
+09EB  ; [.1907.0020.0002] # BENGALI DIGIT FIVE
+0A6B  ; [.1907.0020.0002] # GURMUKHI DIGIT FIVE
+0AEB  ; [.1907.0020.0002] # GUJARATI DIGIT FIVE
+0B6B  ; [.1907.0020.0002] # ORIYA DIGIT FIVE
+0BEB  ; [.1907.0020.0002] # TAMIL DIGIT FIVE
+0C6B  ; [.1907.0020.0002] # TELUGU DIGIT FIVE
+0CEB  ; [.1907.0020.0002] # KANNADA DIGIT FIVE
+0D6B  ; [.1907.0020.0002] # MALAYALAM DIGIT FIVE
+0DEB  ; [.1907.0020.0002] # SINHALA LITH DIGIT FIVE
+0E55  ; [.1907.0020.0002] # THAI DIGIT FIVE
+0ED5  ; [.1907.0020.0002] # LAO DIGIT FIVE
+0F25  ; [.1907.0020.0002] # TIBETAN DIGIT FIVE
+1045  ; [.1907.0020.0002] # MYANMAR DIGIT FIVE
+1095  ; [.1907.0020.0002] # MYANMAR SHAN DIGIT FIVE
+136D  ; [.1907.0020.0002] # ETHIOPIC DIGIT FIVE
+17E5  ; [.1907.0020.0002] # KHMER DIGIT FIVE
+17F5  ; [.1907.0020.0002] # KHMER SYMBOL LEK ATTAK PRAM
+1815  ; [.1907.0020.0002] # MONGOLIAN DIGIT FIVE
+194B  ; [.1907.0020.0002] # LIMBU DIGIT FIVE
+19D5  ; [.1907.0020.0002] # NEW TAI LUE DIGIT FIVE
+1A85  ; [.1907.0020.0002] # TAI THAM HORA DIGIT FIVE
+1A95  ; [.1907.0020.0002] # TAI THAM THAM DIGIT FIVE
+1B55  ; [.1907.0020.0002] # BALINESE DIGIT FIVE
+1BB5  ; [.1907.0020.0002] # SUNDANESE DIGIT FIVE
+1C45  ; [.1907.0020.0002] # LEPCHA DIGIT FIVE
+1C55  ; [.1907.0020.0002] # OL CHIKI DIGIT FIVE
+3025  ; [.1907.0020.0002] # HANGZHOU NUMERAL FIVE
+A625  ; [.1907.0020.0002] # VAI DIGIT FIVE
+A8D5  ; [.1907.0020.0002] # SAURASHTRA DIGIT FIVE
+A905  ; [.1907.0020.0002] # KAYAH LI DIGIT FIVE
+A9D5  ; [.1907.0020.0002] # JAVANESE DIGIT FIVE
+A9F5  ; [.1907.0020.0002] # MYANMAR TAI LAING DIGIT FIVE
+AA55  ; [.1907.0020.0002] # CHAM DIGIT FIVE
+ABF5  ; [.1907.0020.0002] # MEETEI MAYEK DIGIT FIVE
+1010B ; [.1907.0020.0002] # AEGEAN NUMBER FIVE
+10143 ; [.1907.0020.0002] # GREEK ACROPHONIC ATTIC FIVE
+10148 ; [.1907.0020.0002] # GREEK ACROPHONIC ATTIC FIVE TALENTS
+1014F ; [.1907.0020.0002] # GREEK ACROPHONIC ATTIC FIVE STATERS
+1015F ; [.1907.0020.0002] # GREEK ACROPHONIC TROEZENIAN FIVE
+10173 ; [.1907.0020.0002] # GREEK ACROPHONIC DELPHIC FIVE MNAS
+102E5 ; [.1907.0020.0002] # COPTIC EPACT DIGIT FIVE
+10321 ; [.1907.0020.0002] # OLD ITALIC NUMERAL FIVE
+104A5 ; [.1907.0020.0002] # OSMANYA DIGIT FIVE
+1087D ; [.1907.0020.0002] # PALMYRENE NUMBER FIVE
+108AC ; [.1907.0020.0002] # NABATAEAN NUMBER FIVE
+10AEC ; [.1907.0020.0002] # MANICHAEAN NUMBER FIVE
+10E64 ; [.1907.0020.0002] # RUMI DIGIT FIVE
+11056 ; [.1907.0020.0002] # BRAHMI NUMBER FIVE
+1106B ; [.1907.0020.0002] # BRAHMI DIGIT FIVE
+110F5 ; [.1907.0020.0002] # SORA SOMPENG DIGIT FIVE
+1113B ; [.1907.0020.0002] # CHAKMA DIGIT FIVE
+111D5 ; [.1907.0020.0002] # SHARADA DIGIT FIVE
+111E5 ; [.1907.0020.0002] # SINHALA ARCHAIC DIGIT FIVE
+112F5 ; [.1907.0020.0002] # KHUDAWADI DIGIT FIVE
+114D5 ; [.1907.0020.0002] # TIRHUTA DIGIT FIVE
+11655 ; [.1907.0020.0002] # MODI DIGIT FIVE
+116C5 ; [.1907.0020.0002] # TAKRI DIGIT FIVE
+118E5 ; [.1907.0020.0002] # WARANG CITI DIGIT FIVE
+12403 ; [.1907.0020.0002] # CUNEIFORM NUMERIC SIGN FIVE ASH
+1240A ; [.1907.0020.0002] # CUNEIFORM NUMERIC SIGN FIVE DISH
+12410 ; [.1907.0020.0002] # CUNEIFORM NUMERIC SIGN FIVE U
+12419 ; [.1907.0020.0002] # CUNEIFORM NUMERIC SIGN FIVE GESH2
+12422 ; [.1907.0020.0002] # CUNEIFORM NUMERIC SIGN FIVE GESHU
+12427 ; [.1907.0020.0002] # CUNEIFORM NUMERIC SIGN FIVE SHAR2
+12431 ; [.1907.0020.0002] # CUNEIFORM NUMERIC SIGN FIVE SHARU
+12439 ; [.1907.0020.0002] # CUNEIFORM NUMERIC SIGN FIVE BURU
+1244D ; [.1907.0020.0002] # CUNEIFORM NUMERIC SIGN FIVE ASH TENU
+12454 ; [.1907.0020.0002] # CUNEIFORM NUMERIC SIGN FIVE BAN2
+12455 ; [.1907.0020.0002] # CUNEIFORM NUMERIC SIGN FIVE BAN2 VARIANT FORM
+1246A ; [.1907.0020.0002] # CUNEIFORM NUMERIC SIGN FIVE U VARIANT FORM
+16A65 ; [.1907.0020.0002] # MRO DIGIT FIVE
+16B55 ; [.1907.0020.0002] # PAHAWH HMONG DIGIT FIVE
+1D364 ; [.1907.0020.0002] # COUNTING ROD UNIT DIGIT FIVE
+1E8CB ; [.1907.0020.0002] # MENDE KIKAKUI DIGIT FIVE
+FF15  ; [.1907.0020.0003] # FULLWIDTH DIGIT FIVE
+0F2E  ; [.1907.0020.0004] # TIBETAN DIGIT HALF FIVE
+2478  ; [*030A.0020.0004][.1907.0020.0004][*030B.0020.0004] # PARENTHESIZED DIGIT FIVE
+248C  ; [.1907.0020.0004][*0274.0020.0004] # DIGIT FIVE FULL STOP
+1F106 ; [.1907.0020.0004][*0221.0020.0004] # DIGIT FIVE COMMA
+1D7D3 ; [.1907.0020.0005] # MATHEMATICAL BOLD DIGIT FIVE
+1D7DD ; [.1907.0020.0005] # MATHEMATICAL DOUBLE-STRUCK DIGIT FIVE
+1D7E7 ; [.1907.0020.0005] # MATHEMATICAL SANS-SERIF DIGIT FIVE
+1D7F1 ; [.1907.0020.0005] # MATHEMATICAL SANS-SERIF BOLD DIGIT FIVE
+1D7FB ; [.1907.0020.0005] # MATHEMATICAL MONOSPACE DIGIT FIVE
+2464  ; [.1907.0020.0006] # CIRCLED DIGIT FIVE
+24F9  ; [.1907.0020.0006] # DOUBLE CIRCLED DIGIT FIVE
+277A  ; [.1907.0020.0006] # DINGBAT NEGATIVE CIRCLED DIGIT FIVE
+2784  ; [.1907.0020.0006] # DINGBAT CIRCLED SANS-SERIF DIGIT FIVE
+278E  ; [.1907.0020.0006] # DINGBAT NEGATIVE CIRCLED SANS-SERIF DIGIT FIVE
+2075  ; [.1907.0020.0014] # SUPERSCRIPT FIVE
+2085  ; [.1907.0020.0015] # SUBSCRIPT FIVE
+324C  ; [.1907.0020.0006][.1902.0020.0006] # CIRCLED NUMBER FIFTY ON BLACK SQUARE
+32BF  ; [.1907.0020.0006][.1902.0020.0006] # CIRCLED NUMBER FIFTY
+215A  ; [.1907.0020.001E][*05E6.0020.001E][.1908.0020.001E] # VULGAR FRACTION FIVE SIXTHS
+215D  ; [.1907.0020.001E][*05E6.0020.001E][.190A.0020.001E] # VULGAR FRACTION FIVE EIGHTHS
+33E4  ; [.1907.0020.0004][.FB40.0020.0004][.E5E5.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY FIVE
+32C4  ; [.1907.0020.0004][.FB40.0020.0004][.E708.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR MAY
+335D  ; [.1907.0020.0004][.FB40.0020.0004][.F0B9.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR FIVE
+0036  ; [.1908.0020.0002] # DIGIT SIX
+0666  ; [.1908.0020.0002] # ARABIC-INDIC DIGIT SIX
+06F6  ; [.1908.0020.0002] # EXTENDED ARABIC-INDIC DIGIT SIX
+07C6  ; [.1908.0020.0002] # NKO DIGIT SIX
+096C  ; [.1908.0020.0002] # DEVANAGARI DIGIT SIX
+09EC  ; [.1908.0020.0002] # BENGALI DIGIT SIX
+0A6C  ; [.1908.0020.0002] # GURMUKHI DIGIT SIX
+0AEC  ; [.1908.0020.0002] # GUJARATI DIGIT SIX
+0B6C  ; [.1908.0020.0002] # ORIYA DIGIT SIX
+0BEC  ; [.1908.0020.0002] # TAMIL DIGIT SIX
+0C6C  ; [.1908.0020.0002] # TELUGU DIGIT SIX
+0CEC  ; [.1908.0020.0002] # KANNADA DIGIT SIX
+0D6C  ; [.1908.0020.0002] # MALAYALAM DIGIT SIX
+0DEC  ; [.1908.0020.0002] # SINHALA LITH DIGIT SIX
+0E56  ; [.1908.0020.0002] # THAI DIGIT SIX
+0ED6  ; [.1908.0020.0002] # LAO DIGIT SIX
+0F26  ; [.1908.0020.0002] # TIBETAN DIGIT SIX
+1046  ; [.1908.0020.0002] # MYANMAR DIGIT SIX
+1096  ; [.1908.0020.0002] # MYANMAR SHAN DIGIT SIX
+136E  ; [.1908.0020.0002] # ETHIOPIC DIGIT SIX
+17E6  ; [.1908.0020.0002] # KHMER DIGIT SIX
+17F6  ; [.1908.0020.0002] # KHMER SYMBOL LEK ATTAK PRAM-MUOY
+1816  ; [.1908.0020.0002] # MONGOLIAN DIGIT SIX
+194C  ; [.1908.0020.0002] # LIMBU DIGIT SIX
+19D6  ; [.1908.0020.0002] # NEW TAI LUE DIGIT SIX
+1A86  ; [.1908.0020.0002] # TAI THAM HORA DIGIT SIX
+1A96  ; [.1908.0020.0002] # TAI THAM THAM DIGIT SIX
+1B56  ; [.1908.0020.0002] # BALINESE DIGIT SIX
+1BB6  ; [.1908.0020.0002] # SUNDANESE DIGIT SIX
+1C46  ; [.1908.0020.0002] # LEPCHA DIGIT SIX
+1C56  ; [.1908.0020.0002] # OL CHIKI DIGIT SIX
+2185  ; [.1908.0020.0002] # ROMAN NUMERAL SIX LATE FORM
+3026  ; [.1908.0020.0002] # HANGZHOU NUMERAL SIX
+A626  ; [.1908.0020.0002] # VAI DIGIT SIX
+A8D6  ; [.1908.0020.0002] # SAURASHTRA DIGIT SIX
+A906  ; [.1908.0020.0002] # KAYAH LI DIGIT SIX
+A9D6  ; [.1908.0020.0002] # JAVANESE DIGIT SIX
+A9F6  ; [.1908.0020.0002] # MYANMAR TAI LAING DIGIT SIX
+AA56  ; [.1908.0020.0002] # CHAM DIGIT SIX
+ABF6  ; [.1908.0020.0002] # MEETEI MAYEK DIGIT SIX
+1010C ; [.1908.0020.0002] # AEGEAN NUMBER SIX
+102E6 ; [.1908.0020.0002] # COPTIC EPACT DIGIT SIX
+104A6 ; [.1908.0020.0002] # OSMANYA DIGIT SIX
+10E65 ; [.1908.0020.0002] # RUMI DIGIT SIX
+11057 ; [.1908.0020.0002] # BRAHMI NUMBER SIX
+1106C ; [.1908.0020.0002] # BRAHMI DIGIT SIX
+110F6 ; [.1908.0020.0002] # SORA SOMPENG DIGIT SIX
+1113C ; [.1908.0020.0002] # CHAKMA DIGIT SIX
+111D6 ; [.1908.0020.0002] # SHARADA DIGIT SIX
+111E6 ; [.1908.0020.0002] # SINHALA ARCHAIC DIGIT SIX
+112F6 ; [.1908.0020.0002] # KHUDAWADI DIGIT SIX
+114D6 ; [.1908.0020.0002] # TIRHUTA DIGIT SIX
+11656 ; [.1908.0020.0002] # MODI DIGIT SIX
+116C6 ; [.1908.0020.0002] # TAKRI DIGIT SIX
+118E6 ; [.1908.0020.0002] # WARANG CITI DIGIT SIX
+12404 ; [.1908.0020.0002] # CUNEIFORM NUMERIC SIGN SIX ASH
+1240B ; [.1908.0020.0002] # CUNEIFORM NUMERIC SIGN SIX DISH
+12411 ; [.1908.0020.0002] # CUNEIFORM NUMERIC SIGN SIX U
+1241A ; [.1908.0020.0002] # CUNEIFORM NUMERIC SIGN SIX GESH2
+12428 ; [.1908.0020.0002] # CUNEIFORM NUMERIC SIGN SIX SHAR2
+12440 ; [.1908.0020.0002] # CUNEIFORM NUMERIC SIGN SIX VARIANT FORM ASH9
+1244E ; [.1908.0020.0002] # CUNEIFORM NUMERIC SIGN SIX ASH TENU
+1246B ; [.1908.0020.0002] # CUNEIFORM NUMERIC SIGN SIX U VARIANT FORM
+16A66 ; [.1908.0020.0002] # MRO DIGIT SIX
+16B56 ; [.1908.0020.0002] # PAHAWH HMONG DIGIT SIX
+1D365 ; [.1908.0020.0002] # COUNTING ROD UNIT DIGIT SIX
+1E8CC ; [.1908.0020.0002] # MENDE KIKAKUI DIGIT SIX
+FF16  ; [.1908.0020.0003] # FULLWIDTH DIGIT SIX
+0F2F  ; [.1908.0020.0004] # TIBETAN DIGIT HALF SIX
+2479  ; [*030A.0020.0004][.1908.0020.0004][*030B.0020.0004] # PARENTHESIZED DIGIT SIX
+248D  ; [.1908.0020.0004][*0274.0020.0004] # DIGIT SIX FULL STOP
+1F107 ; [.1908.0020.0004][*0221.0020.0004] # DIGIT SIX COMMA
+1D7D4 ; [.1908.0020.0005] # MATHEMATICAL BOLD DIGIT SIX
+1D7DE ; [.1908.0020.0005] # MATHEMATICAL DOUBLE-STRUCK DIGIT SIX
+1D7E8 ; [.1908.0020.0005] # MATHEMATICAL SANS-SERIF DIGIT SIX
+1D7F2 ; [.1908.0020.0005] # MATHEMATICAL SANS-SERIF BOLD DIGIT SIX
+1D7FC ; [.1908.0020.0005] # MATHEMATICAL MONOSPACE DIGIT SIX
+2465  ; [.1908.0020.0006] # CIRCLED DIGIT SIX
+24FA  ; [.1908.0020.0006] # DOUBLE CIRCLED DIGIT SIX
+277B  ; [.1908.0020.0006] # DINGBAT NEGATIVE CIRCLED DIGIT SIX
+2785  ; [.1908.0020.0006] # DINGBAT CIRCLED SANS-SERIF DIGIT SIX
+278F  ; [.1908.0020.0006] # DINGBAT NEGATIVE CIRCLED SANS-SERIF DIGIT SIX
+2076  ; [.1908.0020.0014] # SUPERSCRIPT SIX
+2086  ; [.1908.0020.0015] # SUBSCRIPT SIX
+324D  ; [.1908.0020.0006][.1902.0020.0006] # CIRCLED NUMBER SIXTY ON BLACK SQUARE
+33E5  ; [.1908.0020.0004][.FB40.0020.0004][.E5E5.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY SIX
+32C5  ; [.1908.0020.0004][.FB40.0020.0004][.E708.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR JUNE
+335E  ; [.1908.0020.0004][.FB40.0020.0004][.F0B9.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR SIX
+0037  ; [.1909.0020.0002] # DIGIT SEVEN
+0667  ; [.1909.0020.0002] # ARABIC-INDIC DIGIT SEVEN
+06F7  ; [.1909.0020.0002] # EXTENDED ARABIC-INDIC DIGIT SEVEN
+07C7  ; [.1909.0020.0002] # NKO DIGIT SEVEN
+096D  ; [.1909.0020.0002] # DEVANAGARI DIGIT SEVEN
+09ED  ; [.1909.0020.0002] # BENGALI DIGIT SEVEN
+0A6D  ; [.1909.0020.0002] # GURMUKHI DIGIT SEVEN
+0AED  ; [.1909.0020.0002] # GUJARATI DIGIT SEVEN
+0B6D  ; [.1909.0020.0002] # ORIYA DIGIT SEVEN
+0BED  ; [.1909.0020.0002] # TAMIL DIGIT SEVEN
+0C6D  ; [.1909.0020.0002] # TELUGU DIGIT SEVEN
+0CED  ; [.1909.0020.0002] # KANNADA DIGIT SEVEN
+0D6D  ; [.1909.0020.0002] # MALAYALAM DIGIT SEVEN
+0DED  ; [.1909.0020.0002] # SINHALA LITH DIGIT SEVEN
+0E57  ; [.1909.0020.0002] # THAI DIGIT SEVEN
+0ED7  ; [.1909.0020.0002] # LAO DIGIT SEVEN
+0F27  ; [.1909.0020.0002] # TIBETAN DIGIT SEVEN
+1047  ; [.1909.0020.0002] # MYANMAR DIGIT SEVEN
+1097  ; [.1909.0020.0002] # MYANMAR SHAN DIGIT SEVEN
+136F  ; [.1909.0020.0002] # ETHIOPIC DIGIT SEVEN
+17E7  ; [.1909.0020.0002] # KHMER DIGIT SEVEN
+17F7  ; [.1909.0020.0002] # KHMER SYMBOL LEK ATTAK PRAM-PII
+1817  ; [.1909.0020.0002] # MONGOLIAN DIGIT SEVEN
+194D  ; [.1909.0020.0002] # LIMBU DIGIT SEVEN
+19D7  ; [.1909.0020.0002] # NEW TAI LUE DIGIT SEVEN
+1A87  ; [.1909.0020.0002] # TAI THAM HORA DIGIT SEVEN
+1A97  ; [.1909.0020.0002] # TAI THAM THAM DIGIT SEVEN
+1B57  ; [.1909.0020.0002] # BALINESE DIGIT SEVEN
+1BB7  ; [.1909.0020.0002] # SUNDANESE DIGIT SEVEN
+1C47  ; [.1909.0020.0002] # LEPCHA DIGIT SEVEN
+1C57  ; [.1909.0020.0002] # OL CHIKI DIGIT SEVEN
+3027  ; [.1909.0020.0002] # HANGZHOU NUMERAL SEVEN
+A627  ; [.1909.0020.0002] # VAI DIGIT SEVEN
+A8D7  ; [.1909.0020.0002] # SAURASHTRA DIGIT SEVEN
+A907  ; [.1909.0020.0002] # KAYAH LI DIGIT SEVEN
+A9D7  ; [.1909.0020.0002] # JAVANESE DIGIT SEVEN
+A9F7  ; [.1909.0020.0002] # MYANMAR TAI LAING DIGIT SEVEN
+AA57  ; [.1909.0020.0002] # CHAM DIGIT SEVEN
+ABF7  ; [.1909.0020.0002] # MEETEI MAYEK DIGIT SEVEN
+1010D ; [.1909.0020.0002] # AEGEAN NUMBER SEVEN
+102E7 ; [.1909.0020.0002] # COPTIC EPACT DIGIT SEVEN
+104A7 ; [.1909.0020.0002] # OSMANYA DIGIT SEVEN
+10E66 ; [.1909.0020.0002] # RUMI DIGIT SEVEN
+11058 ; [.1909.0020.0002] # BRAHMI NUMBER SEVEN
+1106D ; [.1909.0020.0002] # BRAHMI DIGIT SEVEN
+110F7 ; [.1909.0020.0002] # SORA SOMPENG DIGIT SEVEN
+1113D ; [.1909.0020.0002] # CHAKMA DIGIT SEVEN
+111D7 ; [.1909.0020.0002] # SHARADA DIGIT SEVEN
+111E7 ; [.1909.0020.0002] # SINHALA ARCHAIC DIGIT SEVEN
+112F7 ; [.1909.0020.0002] # KHUDAWADI DIGIT SEVEN
+114D7 ; [.1909.0020.0002] # TIRHUTA DIGIT SEVEN
+11657 ; [.1909.0020.0002] # MODI DIGIT SEVEN
+116C7 ; [.1909.0020.0002] # TAKRI DIGIT SEVEN
+118E7 ; [.1909.0020.0002] # WARANG CITI DIGIT SEVEN
+12405 ; [.1909.0020.0002] # CUNEIFORM NUMERIC SIGN SEVEN ASH
+1240C ; [.1909.0020.0002] # CUNEIFORM NUMERIC SIGN SEVEN DISH
+12412 ; [.1909.0020.0002] # CUNEIFORM NUMERIC SIGN SEVEN U
+1241B ; [.1909.0020.0002] # CUNEIFORM NUMERIC SIGN SEVEN GESH2
+12429 ; [.1909.0020.0002] # CUNEIFORM NUMERIC SIGN SEVEN SHAR2
+12441 ; [.1909.0020.0002] # CUNEIFORM NUMERIC SIGN SEVEN VARIANT FORM IMIN3
+12442 ; [.1909.0020.0002] # CUNEIFORM NUMERIC SIGN SEVEN VARIANT FORM IMIN A
+12443 ; [.1909.0020.0002] # CUNEIFORM NUMERIC SIGN SEVEN VARIANT FORM IMIN B
+1246C ; [.1909.0020.0002] # CUNEIFORM NUMERIC SIGN SEVEN U VARIANT FORM
+16A67 ; [.1909.0020.0002] # MRO DIGIT SEVEN
+16B57 ; [.1909.0020.0002] # PAHAWH HMONG DIGIT SEVEN
+1D366 ; [.1909.0020.0002] # COUNTING ROD UNIT DIGIT SEVEN
+1E8CD ; [.1909.0020.0002] # MENDE KIKAKUI DIGIT SEVEN
+FF17  ; [.1909.0020.0003] # FULLWIDTH DIGIT SEVEN
+0F30  ; [.1909.0020.0004] # TIBETAN DIGIT HALF SEVEN
+247A  ; [*030A.0020.0004][.1909.0020.0004][*030B.0020.0004] # PARENTHESIZED DIGIT SEVEN
+248E  ; [.1909.0020.0004][*0274.0020.0004] # DIGIT SEVEN FULL STOP
+1F108 ; [.1909.0020.0004][*0221.0020.0004] # DIGIT SEVEN COMMA
+1D7D5 ; [.1909.0020.0005] # MATHEMATICAL BOLD DIGIT SEVEN
+1D7DF ; [.1909.0020.0005] # MATHEMATICAL DOUBLE-STRUCK DIGIT SEVEN
+1D7E9 ; [.1909.0020.0005] # MATHEMATICAL SANS-SERIF DIGIT SEVEN
+1D7F3 ; [.1909.0020.0005] # MATHEMATICAL SANS-SERIF BOLD DIGIT SEVEN
+1D7FD ; [.1909.0020.0005] # MATHEMATICAL MONOSPACE DIGIT SEVEN
+2466  ; [.1909.0020.0006] # CIRCLED DIGIT SEVEN
+24FB  ; [.1909.0020.0006] # DOUBLE CIRCLED DIGIT SEVEN
+277C  ; [.1909.0020.0006] # DINGBAT NEGATIVE CIRCLED DIGIT SEVEN
+2786  ; [.1909.0020.0006] # DINGBAT CIRCLED SANS-SERIF DIGIT SEVEN
+2790  ; [.1909.0020.0006] # DINGBAT NEGATIVE CIRCLED SANS-SERIF DIGIT SEVEN
+2077  ; [.1909.0020.0014] # SUPERSCRIPT SEVEN
+2087  ; [.1909.0020.0015] # SUBSCRIPT SEVEN
+324E  ; [.1909.0020.0006][.1902.0020.0006] # CIRCLED NUMBER SEVENTY ON BLACK SQUARE
+215E  ; [.1909.0020.001E][*05E6.0020.001E][.190A.0020.001E] # VULGAR FRACTION SEVEN EIGHTHS
+33E6  ; [.1909.0020.0004][.FB40.0020.0004][.E5E5.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY SEVEN
+32C6  ; [.1909.0020.0004][.FB40.0020.0004][.E708.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR JULY
+335F  ; [.1909.0020.0004][.FB40.0020.0004][.F0B9.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR SEVEN
+0038  ; [.190A.0020.0002] # DIGIT EIGHT
+0668  ; [.190A.0020.0002] # ARABIC-INDIC DIGIT EIGHT
+06F8  ; [.190A.0020.0002] # EXTENDED ARABIC-INDIC DIGIT EIGHT
+07C8  ; [.190A.0020.0002] # NKO DIGIT EIGHT
+096E  ; [.190A.0020.0002] # DEVANAGARI DIGIT EIGHT
+09EE  ; [.190A.0020.0002] # BENGALI DIGIT EIGHT
+0A6E  ; [.190A.0020.0002] # GURMUKHI DIGIT EIGHT
+0AEE  ; [.190A.0020.0002] # GUJARATI DIGIT EIGHT
+0B6E  ; [.190A.0020.0002] # ORIYA DIGIT EIGHT
+0BEE  ; [.190A.0020.0002] # TAMIL DIGIT EIGHT
+0C6E  ; [.190A.0020.0002] # TELUGU DIGIT EIGHT
+0CEE  ; [.190A.0020.0002] # KANNADA DIGIT EIGHT
+0D6E  ; [.190A.0020.0002] # MALAYALAM DIGIT EIGHT
+0DEE  ; [.190A.0020.0002] # SINHALA LITH DIGIT EIGHT
+0E58  ; [.190A.0020.0002] # THAI DIGIT EIGHT
+0ED8  ; [.190A.0020.0002] # LAO DIGIT EIGHT
+0F28  ; [.190A.0020.0002] # TIBETAN DIGIT EIGHT
+1048  ; [.190A.0020.0002] # MYANMAR DIGIT EIGHT
+1098  ; [.190A.0020.0002] # MYANMAR SHAN DIGIT EIGHT
+1370  ; [.190A.0020.0002] # ETHIOPIC DIGIT EIGHT
+17E8  ; [.190A.0020.0002] # KHMER DIGIT EIGHT
+17F8  ; [.190A.0020.0002] # KHMER SYMBOL LEK ATTAK PRAM-BEI
+1818  ; [.190A.0020.0002] # MONGOLIAN DIGIT EIGHT
+194E  ; [.190A.0020.0002] # LIMBU DIGIT EIGHT
+19D8  ; [.190A.0020.0002] # NEW TAI LUE DIGIT EIGHT
+1A88  ; [.190A.0020.0002] # TAI THAM HORA DIGIT EIGHT
+1A98  ; [.190A.0020.0002] # TAI THAM THAM DIGIT EIGHT
+1B58  ; [.190A.0020.0002] # BALINESE DIGIT EIGHT
+1BB8  ; [.190A.0020.0002] # SUNDANESE DIGIT EIGHT
+1C48  ; [.190A.0020.0002] # LEPCHA DIGIT EIGHT
+1C58  ; [.190A.0020.0002] # OL CHIKI DIGIT EIGHT
+3028  ; [.190A.0020.0002] # HANGZHOU NUMERAL EIGHT
+A628  ; [.190A.0020.0002] # VAI DIGIT EIGHT
+A8D8  ; [.190A.0020.0002] # SAURASHTRA DIGIT EIGHT
+A908  ; [.190A.0020.0002] # KAYAH LI DIGIT EIGHT
+A9D8  ; [.190A.0020.0002] # JAVANESE DIGIT EIGHT
+A9F8  ; [.190A.0020.0002] # MYANMAR TAI LAING DIGIT EIGHT
+AA58  ; [.190A.0020.0002] # CHAM DIGIT EIGHT
+ABF8  ; [.190A.0020.0002] # MEETEI MAYEK DIGIT EIGHT
+1010E ; [.190A.0020.0002] # AEGEAN NUMBER EIGHT
+102E8 ; [.190A.0020.0002] # COPTIC EPACT DIGIT EIGHT
+104A8 ; [.190A.0020.0002] # OSMANYA DIGIT EIGHT
+10E67 ; [.190A.0020.0002] # RUMI DIGIT EIGHT
+11059 ; [.190A.0020.0002] # BRAHMI NUMBER EIGHT
+1106E ; [.190A.0020.0002] # BRAHMI DIGIT EIGHT
+110F8 ; [.190A.0020.0002] # SORA SOMPENG DIGIT EIGHT
+1113E ; [.190A.0020.0002] # CHAKMA DIGIT EIGHT
+111D8 ; [.190A.0020.0002] # SHARADA DIGIT EIGHT
+111E8 ; [.190A.0020.0002] # SINHALA ARCHAIC DIGIT EIGHT
+112F8 ; [.190A.0020.0002] # KHUDAWADI DIGIT EIGHT
+114D8 ; [.190A.0020.0002] # TIRHUTA DIGIT EIGHT
+11658 ; [.190A.0020.0002] # MODI DIGIT EIGHT
+116C8 ; [.190A.0020.0002] # TAKRI DIGIT EIGHT
+118E8 ; [.190A.0020.0002] # WARANG CITI DIGIT EIGHT
+12406 ; [.190A.0020.0002] # CUNEIFORM NUMERIC SIGN EIGHT ASH
+1240D ; [.190A.0020.0002] # CUNEIFORM NUMERIC SIGN EIGHT DISH
+12413 ; [.190A.0020.0002] # CUNEIFORM NUMERIC SIGN EIGHT U
+1241C ; [.190A.0020.0002] # CUNEIFORM NUMERIC SIGN EIGHT GESH2
+1242A ; [.190A.0020.0002] # CUNEIFORM NUMERIC SIGN EIGHT SHAR2
+12444 ; [.190A.0020.0002] # CUNEIFORM NUMERIC SIGN EIGHT VARIANT FORM USSU
+12445 ; [.190A.0020.0002] # CUNEIFORM NUMERIC SIGN EIGHT VARIANT FORM USSU3
+1246D ; [.190A.0020.0002] # CUNEIFORM NUMERIC SIGN EIGHT U VARIANT FORM
+16A68 ; [.190A.0020.0002] # MRO DIGIT EIGHT
+16B58 ; [.190A.0020.0002] # PAHAWH HMONG DIGIT EIGHT
+1D367 ; [.190A.0020.0002] # COUNTING ROD UNIT DIGIT EIGHT
+1E8CE ; [.190A.0020.0002] # MENDE KIKAKUI DIGIT EIGHT
+FF18  ; [.190A.0020.0003] # FULLWIDTH DIGIT EIGHT
+0F31  ; [.190A.0020.0004] # TIBETAN DIGIT HALF EIGHT
+247B  ; [*030A.0020.0004][.190A.0020.0004][*030B.0020.0004] # PARENTHESIZED DIGIT EIGHT
+248F  ; [.190A.0020.0004][*0274.0020.0004] # DIGIT EIGHT FULL STOP
+1F109 ; [.190A.0020.0004][*0221.0020.0004] # DIGIT EIGHT COMMA
+1D7D6 ; [.190A.0020.0005] # MATHEMATICAL BOLD DIGIT EIGHT
+1D7E0 ; [.190A.0020.0005] # MATHEMATICAL DOUBLE-STRUCK DIGIT EIGHT
+1D7EA ; [.190A.0020.0005] # MATHEMATICAL SANS-SERIF DIGIT EIGHT
+1D7F4 ; [.190A.0020.0005] # MATHEMATICAL SANS-SERIF BOLD DIGIT EIGHT
+1D7FE ; [.190A.0020.0005] # MATHEMATICAL MONOSPACE DIGIT EIGHT
+2467  ; [.190A.0020.0006] # CIRCLED DIGIT EIGHT
+24FC  ; [.190A.0020.0006] # DOUBLE CIRCLED DIGIT EIGHT
+277D  ; [.190A.0020.0006] # DINGBAT NEGATIVE CIRCLED DIGIT EIGHT
+2787  ; [.190A.0020.0006] # DINGBAT CIRCLED SANS-SERIF DIGIT EIGHT
+2791  ; [.190A.0020.0006] # DINGBAT NEGATIVE CIRCLED SANS-SERIF DIGIT EIGHT
+2078  ; [.190A.0020.0014] # SUPERSCRIPT EIGHT
+2088  ; [.190A.0020.0015] # SUBSCRIPT EIGHT
+324F  ; [.190A.0020.0006][.1902.0020.0006] # CIRCLED NUMBER EIGHTY ON BLACK SQUARE
+33E7  ; [.190A.0020.0004][.FB40.0020.0004][.E5E5.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY EIGHT
+32C7  ; [.190A.0020.0004][.FB40.0020.0004][.E708.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR AUGUST
+3360  ; [.190A.0020.0004][.FB40.0020.0004][.F0B9.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR EIGHT
+0039  ; [.190B.0020.0002] # DIGIT NINE
+0669  ; [.190B.0020.0002] # ARABIC-INDIC DIGIT NINE
+06F9  ; [.190B.0020.0002] # EXTENDED ARABIC-INDIC DIGIT NINE
+07C9  ; [.190B.0020.0002] # NKO DIGIT NINE
+096F  ; [.190B.0020.0002] # DEVANAGARI DIGIT NINE
+09EF  ; [.190B.0020.0002] # BENGALI DIGIT NINE
+0A6F  ; [.190B.0020.0002] # GURMUKHI DIGIT NINE
+0AEF  ; [.190B.0020.0002] # GUJARATI DIGIT NINE
+0B6F  ; [.190B.0020.0002] # ORIYA DIGIT NINE
+0BEF  ; [.190B.0020.0002] # TAMIL DIGIT NINE
+0C6F  ; [.190B.0020.0002] # TELUGU DIGIT NINE
+0CEF  ; [.190B.0020.0002] # KANNADA DIGIT NINE
+0D6F  ; [.190B.0020.0002] # MALAYALAM DIGIT NINE
+0DEF  ; [.190B.0020.0002] # SINHALA LITH DIGIT NINE
+0E59  ; [.190B.0020.0002] # THAI DIGIT NINE
+0ED9  ; [.190B.0020.0002] # LAO DIGIT NINE
+0F29  ; [.190B.0020.0002] # TIBETAN DIGIT NINE
+1049  ; [.190B.0020.0002] # MYANMAR DIGIT NINE
+1099  ; [.190B.0020.0002] # MYANMAR SHAN DIGIT NINE
+1371  ; [.190B.0020.0002] # ETHIOPIC DIGIT NINE
+17E9  ; [.190B.0020.0002] # KHMER DIGIT NINE
+17F9  ; [.190B.0020.0002] # KHMER SYMBOL LEK ATTAK PRAM-BUON
+1819  ; [.190B.0020.0002] # MONGOLIAN DIGIT NINE
+194F  ; [.190B.0020.0002] # LIMBU DIGIT NINE
+19D9  ; [.190B.0020.0002] # NEW TAI LUE DIGIT NINE
+1A89  ; [.190B.0020.0002] # TAI THAM HORA DIGIT NINE
+1A99  ; [.190B.0020.0002] # TAI THAM THAM DIGIT NINE
+1B59  ; [.190B.0020.0002] # BALINESE DIGIT NINE
+1BB9  ; [.190B.0020.0002] # SUNDANESE DIGIT NINE
+1C49  ; [.190B.0020.0002] # LEPCHA DIGIT NINE
+1C59  ; [.190B.0020.0002] # OL CHIKI DIGIT NINE
+3029  ; [.190B.0020.0002] # HANGZHOU NUMERAL NINE
+A629  ; [.190B.0020.0002] # VAI DIGIT NINE
+A8D9  ; [.190B.0020.0002] # SAURASHTRA DIGIT NINE
+A909  ; [.190B.0020.0002] # KAYAH LI DIGIT NINE
+A9D9  ; [.190B.0020.0002] # JAVANESE DIGIT NINE
+A9F9  ; [.190B.0020.0002] # MYANMAR TAI LAING DIGIT NINE
+AA59  ; [.190B.0020.0002] # CHAM DIGIT NINE
+ABF9  ; [.190B.0020.0002] # MEETEI MAYEK DIGIT NINE
+1010F ; [.190B.0020.0002] # AEGEAN NUMBER NINE
+102E9 ; [.190B.0020.0002] # COPTIC EPACT DIGIT NINE
+104A9 ; [.190B.0020.0002] # OSMANYA DIGIT NINE
+10E68 ; [.190B.0020.0002] # RUMI DIGIT NINE
+1105A ; [.190B.0020.0002] # BRAHMI NUMBER NINE
+1106F ; [.190B.0020.0002] # BRAHMI DIGIT NINE
+110F9 ; [.190B.0020.0002] # SORA SOMPENG DIGIT NINE
+1113F ; [.190B.0020.0002] # CHAKMA DIGIT NINE
+111D9 ; [.190B.0020.0002] # SHARADA DIGIT NINE
+111E9 ; [.190B.0020.0002] # SINHALA ARCHAIC DIGIT NINE
+112F9 ; [.190B.0020.0002] # KHUDAWADI DIGIT NINE
+114D9 ; [.190B.0020.0002] # TIRHUTA DIGIT NINE
+11659 ; [.190B.0020.0002] # MODI DIGIT NINE
+116C9 ; [.190B.0020.0002] # TAKRI DIGIT NINE
+118E9 ; [.190B.0020.0002] # WARANG CITI DIGIT NINE
+12407 ; [.190B.0020.0002] # CUNEIFORM NUMERIC SIGN NINE ASH
+1240E ; [.190B.0020.0002] # CUNEIFORM NUMERIC SIGN NINE DISH
+12414 ; [.190B.0020.0002] # CUNEIFORM NUMERIC SIGN NINE U
+1241D ; [.190B.0020.0002] # CUNEIFORM NUMERIC SIGN NINE GESH2
+1242B ; [.190B.0020.0002] # CUNEIFORM NUMERIC SIGN NINE SHAR2
+12446 ; [.190B.0020.0002] # CUNEIFORM NUMERIC SIGN NINE VARIANT FORM ILIMMU
+12447 ; [.190B.0020.0002] # CUNEIFORM NUMERIC SIGN NINE VARIANT FORM ILIMMU3
+12448 ; [.190B.0020.0002] # CUNEIFORM NUMERIC SIGN NINE VARIANT FORM ILIMMU4
+12449 ; [.190B.0020.0002] # CUNEIFORM NUMERIC SIGN NINE VARIANT FORM ILIMMU A
+1246E ; [.190B.0020.0002] # CUNEIFORM NUMERIC SIGN NINE U VARIANT FORM
+16A69 ; [.190B.0020.0002] # MRO DIGIT NINE
+16B59 ; [.190B.0020.0002] # PAHAWH HMONG DIGIT NINE
+1D368 ; [.190B.0020.0002] # COUNTING ROD UNIT DIGIT NINE
+1E8CF ; [.190B.0020.0002] # MENDE KIKAKUI DIGIT NINE
+FF19  ; [.190B.0020.0003] # FULLWIDTH DIGIT NINE
+0F32  ; [.190B.0020.0004] # TIBETAN DIGIT HALF NINE
+247C  ; [*030A.0020.0004][.190B.0020.0004][*030B.0020.0004] # PARENTHESIZED DIGIT NINE
+2490  ; [.190B.0020.0004][*0274.0020.0004] # DIGIT NINE FULL STOP
+1F10A ; [.190B.0020.0004][*0221.0020.0004] # DIGIT NINE COMMA
+1D7D7 ; [.190B.0020.0005] # MATHEMATICAL BOLD DIGIT NINE
+1D7E1 ; [.190B.0020.0005] # MATHEMATICAL DOUBLE-STRUCK DIGIT NINE
+1D7EB ; [.190B.0020.0005] # MATHEMATICAL SANS-SERIF DIGIT NINE
+1D7F5 ; [.190B.0020.0005] # MATHEMATICAL SANS-SERIF BOLD DIGIT NINE
+1D7FF ; [.190B.0020.0005] # MATHEMATICAL MONOSPACE DIGIT NINE
+2468  ; [.190B.0020.0006] # CIRCLED DIGIT NINE
+24FD  ; [.190B.0020.0006] # DOUBLE CIRCLED DIGIT NINE
+277E  ; [.190B.0020.0006] # DINGBAT NEGATIVE CIRCLED DIGIT NINE
+2788  ; [.190B.0020.0006] # DINGBAT CIRCLED SANS-SERIF DIGIT NINE
+2792  ; [.190B.0020.0006] # DINGBAT NEGATIVE CIRCLED SANS-SERIF DIGIT NINE
+2079  ; [.190B.0020.0014] # SUPERSCRIPT NINE
+2089  ; [.190B.0020.0015] # SUBSCRIPT NINE
+33E8  ; [.190B.0020.0004][.FB40.0020.0004][.E5E5.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY NINE
+32C8  ; [.190B.0020.0004][.FB40.0020.0004][.E708.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR SEPTEMBER
+3361  ; [.190B.0020.0004][.FB40.0020.0004][.F0B9.0000.0000] # IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR NINE
+0061  ; [.190C.0020.0002] # LATIN SMALL LETTER A
+FF41  ; [.190C.0020.0003] # FULLWIDTH LATIN SMALL LETTER A
+0363  ; [.190C.0020.0004] # COMBINING LATIN SMALL LETTER A
+249C  ; [*030A.0020.0004][.190C.0020.0004][*030B.0020.0004] # PARENTHESIZED LATIN SMALL LETTER A
+1D41A ; [.190C.0020.0005] # MATHEMATICAL BOLD SMALL A
+1D44E ; [.190C.0020.0005] # MATHEMATICAL ITALIC SMALL A
+1D482 ; [.190C.0020.0005] # MATHEMATICAL BOLD ITALIC SMALL A
+1D4B6 ; [.190C.0020.0005] # MATHEMATICAL SCRIPT SMALL A
+1D4EA ; [.190C.0020.0005] # MATHEMATICAL BOLD SCRIPT SMALL A
+1D51E ; [.190C.0020.0005] # MATHEMATICAL FRAKTUR SMALL A
+1D552 ; [.190C.0020.0005] # MATHEMATICAL DOUBLE-STRUCK SMALL A
+1D586 ; [.190C.0020.0005] # MATHEMATICAL BOLD FRAKTUR SMALL A
+1D5BA ; [.190C.0020.0005] # MATHEMATICAL SANS-SERIF SMALL A
+1D5EE ; [.190C.0020.0005] # MATHEMATICAL SANS-SERIF BOLD SMALL A
+1D622 ; [.190C.0020.0005] # MATHEMATICAL SANS-SERIF ITALIC SMALL A
+1D656 ; [.190C.0020.0005] # MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL A
+1D68A ; [.190C.0020.0005] # MATHEMATICAL MONOSPACE SMALL A
+24D0  ; [.190C.0020.0006] # CIRCLED LATIN SMALL LETTER A
+0041  ; [.190C.0020.0008] # LATIN CAPITAL LETTER A
+FF21  ; [.190C.0020.0009] # FULLWIDTH LATIN CAPITAL LETTER A
+1F110 ; [*030A.0020.0004][.190C.0020.000A][*030B.0020.0004] # PARENTHESIZED LATIN CAPITAL LETTER A
+1D400 ; [.190C.0020.000B] # MATHEMATICAL BOLD CAPITAL A
+1D434 ; [.190C.0020.000B] # MATHEMATICAL ITALIC CAPITAL A
+1D468 ; [.190C.0020.000B] # MATHEMATICAL BOLD ITALIC CAPITAL A
+1D49C ; [.190C.0020.000B] # MATHEMATICAL SCRIPT CAPITAL A
+1D4D0 ; [.190C.0020.000B] # MATHEMATICAL BOLD SCRIPT CAPITAL A
+1D504 ; [.190C.0020.000B] # MATHEMATICAL FRAKTUR CAPITAL A
+1D538 ; [.190C.0020.000B] # MATHEMATICAL DOUBLE-STRUCK CAPITAL A
+1D56C ; [.190C.0020.000B] # MATHEMATICAL BOLD FRAKTUR CAPITAL A
+1D5A0 ; [.190C.0020.000B] # MATHEMATICAL SANS-SERIF CAPITAL A
+1D5D4 ; [.190C.0020.000B] # MATHEMATICAL SANS-SERIF BOLD CAPITAL A
+1D608 ; [.190C.0020.000B] # MATHEMATICAL SANS-SERIF ITALIC CAPITAL A
+1D63C ; [.190C.0020.000B] # MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL A
+1D670 ; [.190C.0020.000B] # MATHEMATICAL MONOSPACE CAPITAL A
+24B6  ; [.190C.0020.000C] # CIRCLED LATIN CAPITAL LETTER A
+1F150 ; [.190C.0020.000C] # NEGATIVE CIRCLED LATIN CAPITAL LETTER A
+00AA  ; [.190C.0020.0014] # FEMININE ORDINAL INDICATOR
+1D43  ; [.190C.0020.0014] # MODIFIER LETTER SMALL A
+2090  ; [.190C.0020.0015] # LATIN SUBSCRIPT SMALL LETTER A
+1D2C  ; [.190C.0020.001D] # MODIFIER LETTER CAPITAL A
+1F130 ; [.190C.0020.001D] # SQUARED LATIN CAPITAL LETTER A
+1F170 ; [.190C.0020.001D] # NEGATIVE SQUARED LATIN CAPITAL LETTER A
+00E1  ; [.190C.0020.0002][.0000.0024.0002] # LATIN SMALL LETTER A WITH ACUTE
+00C1  ; [.190C.0020.0008][.0000.0024.0002] # LATIN CAPITAL LETTER A WITH ACUTE
+00E0  ; [.190C.0020.0002][.0000.0025.0002] # LATIN SMALL LETTER A WITH GRAVE
+00C0  ; [.190C.0020.0008][.0000.0025.0002] # LATIN CAPITAL LETTER A WITH GRAVE
+0103  ; [.190C.0020.0002][.0000.0026.0002] # LATIN SMALL LETTER A WITH BREVE
+0102  ; [.190C.0020.0008][.0000.0026.0002] # LATIN CAPITAL LETTER A WITH BREVE
+1EAF  ; [.190C.0020.0002][.0000.0026.0002][.0000.0024.0002] # LATIN SMALL LETTER A WITH BREVE AND ACUTE
+1EAE  ; [.190C.0020.0008][.0000.0026.0002][.0000.0024.0002] # LATIN CAPITAL LETTER A WITH BREVE AND ACUTE
+1EB1  ; [.190C.0020.0002][.0000.0026.0002][.0000.0025.0002] # LATIN SMALL LETTER A WITH BREVE AND GRAVE
+1EB0  ; [.190C.0020.0008][.0000.0026.0002][.0000.0025.0002] # LATIN CAPITAL LETTER A WITH BREVE AND GRAVE
+1EB5  ; [.190C.0020.0002][.0000.0026.0002][.0000.002D.0002] # LATIN SMALL LETTER A WITH BREVE AND TILDE
+1EB4  ; [.190C.0020.0008][.0000.0026.0002][.0000.002D.0002] # LATIN CAPITAL LETTER A WITH BREVE AND TILDE
+1EB3  ; [.190C.0020.0002][.0000.0026.0002][.0000.003B.0002] # LATIN SMALL LETTER A WITH BREVE AND HOOK ABOVE
+1EB2  ; [.190C.0020.0008][.0000.0026.0002][.0000.003B.0002] # LATIN CAPITAL LETTER A WITH BREVE AND HOOK ABOVE
+00E2  ; [.190C.0020.0002][.0000.0027.0002] # LATIN SMALL LETTER A WITH CIRCUMFLEX
+00C2  ; [.190C.0020.0008][.0000.0027.0002] # LATIN CAPITAL LETTER A WITH CIRCUMFLEX
+1EA5  ; [.190C.0020.0002][.0000.0027.0002][.0000.0024.0002] # LATIN SMALL LETTER A WITH CIRCUMFLEX AND ACUTE
+1EA4  ; [.190C.0020.0008][.0000.0027.0002][.0000.0024.0002] # LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND ACUTE
+1EA7  ; [.190C.0020.0002][.0000.0027.0002][.0000.0025.0002] # LATIN SMALL LETTER A WITH CIRCUMFLEX AND GRAVE
+1EA6  ; [.190C.0020.0008][.0000.0027.0002][.0000.0025.0002] # LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND GRAVE
+1EAB  ; [.190C.0020.0002][.0000.0027.0002][.0000.002D.0002] # LATIN SMALL LETTER A WITH CIRCUMFLEX AND TILDE
+1EAA  ; [.190C.0020.0008][.0000.0027.0002][.0000.002D.0002] # LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND TILDE
+1EA9  ; [.190C.0020.0002][.0000.0027.0002][.0000.003B.0002] # LATIN SMALL LETTER A WITH CIRCUMFLEX AND HOOK ABOVE
+1EA8  ; [.190C.0020.0008][.0000.0027.0002][.0000.003B.0002] # LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND HOOK ABOVE
+01CE  ; [.190C.0020.0002][.0000.0028.0002] # LATIN SMALL LETTER A WITH CARON
+01CD  ; [.190C.0020.0008][.0000.0028.0002] # LATIN CAPITAL LETTER A WITH CARON
+00E5  ; [.190C.0020.0002][.0000.0029.0002] # LATIN SMALL LETTER A WITH RING ABOVE
+00C5  ; [.190C.0020.0008][.0000.0029.0002] # LATIN CAPITAL LETTER A WITH RING ABOVE
+212B  ; [.190C.0020.0008][.0000.0029.0002] # ANGSTROM SIGN
+01FB  ; [.190C.0020.0002][.0000.0029.0002][.0000.0024.0002] # LATIN SMALL LETTER A WITH RING ABOVE AND ACUTE
+01FA  ; [.190C.0020.0008][.0000.0029.0002][.0000.0024.0002] # LATIN CAPITAL LETTER A WITH RING ABOVE AND ACUTE
+00E4  ; [.190C.0020.0002][.0000.002B.0002] # LATIN SMALL LETTER A WITH DIAERESIS
+1DF2  ; [.190C.0020.0004][.0000.002B.0004] # COMBINING LATIN SMALL LETTER A WITH DIAERESIS
+A79B  ; [.190C.0020.0004][.0000.002B.0004] # LATIN SMALL LETTER VOLAPUK AE
+00C4  ; [.190C.0020.0008][.0000.002B.0002] # LATIN CAPITAL LETTER A WITH DIAERESIS
+A79A  ; [.190C.0020.000A][.0000.002B.0004] # LATIN CAPITAL LETTER VOLAPUK AE
+01DF  ; [.190C.0020.0002][.0000.002B.0002][.0000.0032.0002] # LATIN SMALL LETTER A WITH DIAERESIS AND MACRON
+01DE  ; [.190C.0020.0008][.0000.002B.0002][.0000.0032.0002] # LATIN CAPITAL LETTER A WITH DIAERESIS AND MACRON
+00E3  ; [.190C.0020.0002][.0000.002D.0002] # LATIN SMALL LETTER A WITH TILDE
+00C3  ; [.190C.0020.0008][.0000.002D.0002] # LATIN CAPITAL LETTER A WITH TILDE
+0227  ; [.190C.0020.0002][.0000.002E.0002] # LATIN SMALL LETTER A WITH DOT ABOVE
+0226  ; [.190C.0020.0008][.0000.002E.0002] # LATIN CAPITAL LETTER A WITH DOT ABOVE
+01E1  ; [.190C.0020.0002][.0000.002E.0002][.0000.0032.0002] # LATIN SMALL LETTER A WITH DOT ABOVE AND MACRON
+01E0  ; [.190C.0020.0008][.0000.002E.0002][.0000.0032.0002] # LATIN CAPITAL LETTER A WITH DOT ABOVE AND MACRON
+0105  ; [.190C.0020.0002][.0000.0031.0002] # LATIN SMALL LETTER A WITH OGONEK
+0104  ; [.190C.0020.0008][.0000.0031.0002] # LATIN CAPITAL LETTER A WITH OGONEK
+0101  ; [.190C.0020.0002][.0000.0032.0002] # LATIN SMALL LETTER A WITH MACRON
+0100  ; [.190C.0020.0008][.0000.0032.0002] # LATIN CAPITAL LETTER A WITH MACRON
+1EA3  ; [.190C.0020.0002][.0000.003B.0002] # LATIN SMALL LETTER A WITH HOOK ABOVE
+1EA2  ; [.190C.0020.0008][.0000.003B.0002] # LATIN CAPITAL LETTER A WITH HOOK ABOVE
+0201  ; [.190C.0020.0002][.0000.003C.0002] # LATIN SMALL LETTER A WITH DOUBLE GRAVE
+0200  ; [.190C.0020.0008][.0000.003C.0002] # LATIN CAPITAL LETTER A WITH DOUBLE GRAVE
+0203  ; [.190C.0020.0002][.0000.003E.0002] # LATIN SMALL LETTER A WITH INVERTED BREVE
+0202  ; [.190C.0020.0008][.0000.003E.0002] # LATIN CAPITAL LETTER A WITH INVERTED BREVE
+1EA1  ; [.190C.0020.0002][.0000.0042.0002] # LATIN SMALL LETTER A WITH DOT BELOW
+1EA0  ; [.190C.0020.0008][.0000.0042.0002] # LATIN CAPITAL LETTER A WITH DOT BELOW
+1EB7  ; [.190C.0020.0002][.0000.0042.0002][.0000.0026.0002] # LATIN SMALL LETTER A WITH BREVE AND DOT BELOW
+1EB6  ; [.190C.0020.0008][.0000.0042.0002][.0000.0026.0002] # LATIN CAPITAL LETTER A WITH BREVE AND DOT BELOW
+1EAD  ; [.190C.0020.0002][.0000.0042.0002][.0000.0027.0002] # LATIN SMALL LETTER A WITH CIRCUMFLEX AND DOT BELOW
+1EAC  ; [.190C.0020.0008][.0000.0042.0002][.0000.0027.0002] # LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND DOT BELOW
+1E01  ; [.190C.0020.0002][.0000.0044.0002] # LATIN SMALL LETTER A WITH RING BELOW
+1E00  ; [.190C.0020.0008][.0000.0044.0002] # LATIN CAPITAL LETTER A WITH RING BELOW
+1DD3  ; [.190C.0020.0004][.0000.0108.0004] # COMBINING LATIN SMALL LETTER FLATTENED OPEN A ABOVE
+A733  ; [.190C.0020.0004][.190C.0020.0004] # LATIN SMALL LETTER AA
+A732  ; [.190C.0020.000A][.190C.0020.000A] # LATIN CAPITAL LETTER AA
+1F18E ; [.190C.0020.001D][.1925.0020.001D] # NEGATIVE SQUARED AB
+2100  ; [.190C.0020.0004][*0387.0020.0004][.193E.0020.0004] # ACCOUNT OF
+00E6  ; [.190C.0020.0004][.0000.0108.0004][.196E.0020.0004] # LATIN SMALL LETTER AE
+1DD4  ; [.190C.0020.0004][.0000.0108.0004][.196E.0020.0004] # COMBINING LATIN SMALL LETTER AE
+00C6  ; [.190C.0020.000A][.0000.0108.0004][.196E.0020.000A] # LATIN CAPITAL LETTER AE
+1D2D  ; [.190C.0020.0014][.0000.0108.0014][.196E.0020.0014] # MODIFIER LETTER CAPITAL AE
+01FD  ; [.190C.0020.0004][.0000.0108.0004][.196E.0020.0004][.0000.0024.0002] # LATIN SMALL LETTER AE WITH ACUTE
+01FC  ; [.190C.0020.000A][.0000.0108.0004][.196E.0020.000A][.0000.0024.0002] # LATIN CAPITAL LETTER AE WITH ACUTE
+01E3  ; [.190C.0020.0004][.0000.0108.0004][.196E.0020.0004][.0000.0032.0002] # LATIN SMALL LETTER AE WITH MACRON
+01E2  ; [.190C.0020.000A][.0000.0108.0004][.196E.0020.000A][.0000.0032.0002] # LATIN CAPITAL LETTER AE WITH MACRON
+33C2  ; [.190C.0020.001C][*0274.0020.001C][.1A6E.0020.001C][*0274.0020.001C] # SQUARE AM
+33DF  ; [.190C.0020.001D][*05E5.0020.001C][.1A6E.0020.001C] # SQUARE A OVER M
+1DD5  ; [.190C.0020.0004][.1AA1.0020.0004] # COMBINING LATIN SMALL LETTER AO
+A735  ; [.190C.0020.0004][.1AA1.0020.0004] # LATIN SMALL LETTER AO
+A734  ; [.190C.0020.000A][.1AA1.0020.000A] # LATIN CAPITAL LETTER AO
+2101  ; [.190C.0020.0004][*0387.0020.0004][.1B33.0020.0004] # ADDRESSED TO THE SUBJECT
+214D  ; [.190C.0020.000A][*0387.0020.0004][.1B33.0020.000A] # AKTIESELSKAB
+A737  ; [.190C.0020.0004][.1B77.0020.0004] # LATIN SMALL LETTER AU
+A736  ; [.190C.0020.000A][.1B77.0020.000A] # LATIN CAPITAL LETTER AU
+3373  ; [.190C.0020.001D][.1B77.0020.001D] # SQUARE AU
+1DD6  ; [.190C.0020.0004][.1BA5.0020.0004] # COMBINING LATIN SMALL LETTER AV
+A739  ; [.190C.0020.0004][.1BA5.0020.0004] # LATIN SMALL LETTER AV
+A738  ; [.190C.0020.000A][.1BA5.0020.000A] # LATIN CAPITAL LETTER AV
+A73B  ; [.190C.0020.0004][.0000.0108.0004][.1BA5.0020.0004] # LATIN SMALL LETTER AV WITH HORIZONTAL BAR
+A73A  ; [.190C.0020.000A][.0000.0108.0004][.1BA5.0020.000A] # LATIN CAPITAL LETTER AV WITH HORIZONTAL BAR
+A73D  ; [.190C.0020.0004][.1BCD.0020.0004] # LATIN SMALL LETTER AY
+A73C  ; [.190C.0020.000A][.1BCD.0020.000A] # LATIN CAPITAL LETTER AY
+1E9A  ; [.190C.0020.0004][.1C3F.0020.0004] # LATIN SMALL LETTER A WITH RIGHT HALF RING
+1D00  ; [.1910.0020.0002] # LATIN LETTER SMALL CAPITAL A
+2C65  ; [.1911.0020.0002] # LATIN SMALL LETTER A WITH STROKE
+023A  ; [.1911.0020.0008] # LATIN CAPITAL LETTER A WITH STROKE
+1D8F  ; [.1912.0020.0002] # LATIN SMALL LETTER A WITH RETROFLEX HOOK
+1D01  ; [.1913.0020.0002] # LATIN LETTER SMALL CAPITAL AE
+1D02  ; [.1914.0020.0002] # LATIN SMALL LETTER TURNED AE
+1D46  ; [.1914.0020.0014] # MODIFIER LETTER SMALL TURNED AE
+AB31  ; [.1915.0020.0002] # LATIN SMALL LETTER A REVERSED-SCHWA
+0250  ; [.1916.0020.0002] # LATIN SMALL LETTER TURNED A
+2C6F  ; [.1916.0020.0008] # LATIN CAPITAL LETTER TURNED A
+1D44  ; [.1916.0020.0014] # MODIFIER LETTER SMALL TURNED A
+0251  ; [.191A.0020.0002] # LATIN SMALL LETTER ALPHA
+1DE7  ; [.191A.0020.0004] # COMBINING LATIN SMALL LETTER ALPHA
+2C6D  ; [.191A.0020.0008] # LATIN CAPITAL LETTER ALPHA
+1D45  ; [.191A.0020.0014] # MODIFIER LETTER SMALL ALPHA
+AB30  ; [.191E.0020.0002] # LATIN SMALL LETTER BARRED ALPHA
+1D90  ; [.191F.0020.0002] # LATIN SMALL LETTER ALPHA WITH RETROFLEX HOOK
+0252  ; [.1920.0020.0002] # LATIN SMALL LETTER TURNED ALPHA
+2C70  ; [.1920.0020.0008] # LATIN CAPITAL LETTER TURNED ALPHA
+1D9B  ; [.1920.0020.0014] # MODIFIER LETTER SMALL TURNED ALPHA
+AB64  ; [.1924.0020.0002] # LATIN SMALL LETTER INVERTED ALPHA
+0062  ; [.1925.0020.0002] # LATIN SMALL LETTER B
+FF42  ; [.1925.0020.0003] # FULLWIDTH LATIN SMALL LETTER B
+1DE8  ; [.1925.0020.0004] # COMBINING LATIN SMALL LETTER B
+249D  ; [*030A.0020.0004][.1925.0020.0004][*030B.0020.0004] # PARENTHESIZED LATIN SMALL LETTER B
+1D41B ; [.1925.0020.0005] # MATHEMATICAL BOLD SMALL B
+1D44F ; [.1925.0020.0005] # MATHEMATICAL ITALIC SMALL B
+1D483 ; [.1925.0020.0005] # MATHEMATICAL BOLD ITALIC SMALL B
+1D4B7 ; [.1925.0020.0005] # MATHEMATICAL SCRIPT SMALL B
+1D4EB ; [.1925.0020.0005] # MATHEMATICAL BOLD SCRIPT SMALL B
+1D51F ; [.1925.0020.0005] # MATHEMATICAL FRAKTUR SMALL B
+1D553 ; [.1925.0020.0005] # MATHEMATICAL DOUBLE-STRUCK SMALL B
+1D587 ; [.1925.0020.0005] # MATHEMATICAL BOLD FRAKTUR SMALL B
+1D5BB ; [.1925.0020.0005] # MATHEMATICAL SANS-SERIF SMALL B
+1D5EF ; [.1925.0020.0005] # MATHEMATICAL SANS-SERIF BOLD SMALL B
+1D623 ; [.1925.0020.0005] # MATHEMATICAL SANS-SERIF ITALIC SMALL B
+1D657 ; [.1925.0020.0005] # MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL B
+1D68B ; [.1925.0020.0005] # MATHEMATICAL MONOSPACE SMALL B
+24D1  ; [.1925.0020.0006] # CIRCLED LATIN SMALL LETTER B
+0042  ; [.1925.0020.0008] # LATIN CAPITAL LETTER B
+FF22  ; [.1925.0020.0009] # FULLWIDTH LATIN CAPITAL LETTER B
+1F111 ; [*030A.0020.0004][.1925.0020.000A][*030B.0020.0004] # PARENTHESIZED LATIN CAPITAL LETTER B
+212C  ; [.1925.0020.000B] # SCRIPT CAPITAL B
+1D401 ; [.1925.0020.000B] # MATHEMATICAL BOLD CAPITAL B
+1D435 ; [.1925.0020.000B] # MATHEMATICAL ITALIC CAPITAL B
+1D469 ; [.1925.0020.000B] # MATHEMATICAL BOLD ITALIC CAPITAL B
+1D4D1 ; [.1925.0020.000B] # MATHEMATICAL BOLD SCRIPT CAPITAL B
+1D505 ; [.1925.0020.000B] # MATHEMATICAL FRAKTUR CAPITAL B
+1D539 ; [.1925.0020.000B] # MATHEMATICAL DOUBLE-STRUCK CAPITAL B
+1D56D ; [.1925.0020.000B] # MATHEMATICAL BOLD FRAKTUR CAPITAL B
+1D5A1 ; [.1925.0020.000B] # MATHEMATICAL SANS-SERIF CAPITAL B
+1D5D5 ; [.1925.0020.000B] # MATHEMATICAL SANS-SERIF BOLD CAPITAL B
+1D609 ; [.1925.0020.000B] # MATHEMATICAL SANS-SERIF ITALIC CAPITAL B
+1D63D ; [.1925.0020.000B] # MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL B
+1D671 ; [.1925.0020.000B] # MATHEMATICAL MONOSPACE CAPITAL B
+24B7  ; [.1925.0020.000C] # CIRCLED LATIN CAPITAL LETTER B
+1F151 ; [.1925.0020.000C] # NEGATIVE CIRCLED LATIN CAPITAL LETTER B
+1D47  ; [.1925.0020.0014] # MODIFIER LETTER SMALL B
+1D2E  ; [.1925.0020.001D] # MODIFIER LETTER CAPITAL B
+1F131 ; [.1925.0020.001D] # SQUARED LATIN CAPITAL LETTER B
+1F171 ; [.1925.0020.001D] # NEGATIVE SQUARED LATIN CAPITAL LETTER B
+1E03  ; [.1925.0020.0002][.0000.002E.0002] # LATIN SMALL LETTER B WITH DOT ABOVE
+1E02  ; [.1925.0020.0008][.0000.002E.0002] # LATIN CAPITAL LETTER B WITH DOT ABOVE
+1E05  ; [.1925.0020.0002][.0000.0042.0002] # LATIN SMALL LETTER B WITH DOT BELOW
+1E04  ; [.1925.0020.0008][.0000.0042.0002] # LATIN CAPITAL LETTER B WITH DOT BELOW
+1E07  ; [.1925.0020.0002][.0000.0049.0002] # LATIN SMALL LETTER B WITH LINE BELOW
+1E06  ; [.1925.0020.0008][.0000.0049.0002] # LATIN CAPITAL LETTER B WITH LINE BELOW
+3374  ; [.1925.0020.001C][.190C.0020.001C][.1AF5.0020.001C] # SQUARE BAR
+33C3  ; [.1925.0020.001D][.1AE3.0020.001C] # SQUARE BQ
+0299  ; [.1929.0020.0002] # LATIN LETTER SMALL CAPITAL B
+0180  ; [.192D.0020.0002] # LATIN SMALL LETTER B WITH STROKE
+0243  ; [.192D.0020.0008] # LATIN CAPITAL LETTER B WITH STROKE
+1D2F  ; [.1931.0020.0002] # MODIFIER LETTER CAPITAL BARRED B
+1D03  ; [.1932.0020.0002] # LATIN LETTER SMALL CAPITAL BARRED B
+1D6C  ; [.1933.0020.0002] # LATIN SMALL LETTER B WITH MIDDLE TILDE
+A797  ; [.1934.0020.0002] # LATIN SMALL LETTER B WITH FLOURISH
+A796  ; [.1934.0020.0008] # LATIN CAPITAL LETTER B WITH FLOURISH
+1D80  ; [.1935.0020.0002] # LATIN SMALL LETTER B WITH PALATAL HOOK
+0253  ; [.1936.0020.0002] # LATIN SMALL LETTER B WITH HOOK
+0181  ; [.1936.0020.0008] # LATIN CAPITAL LETTER B WITH HOOK
+0183  ; [.193A.0020.0002] # LATIN SMALL LETTER B WITH TOPBAR
+0182  ; [.193A.0020.0008] # LATIN CAPITAL LETTER B WITH TOPBAR
+0063  ; [.193E.0020.0002] # LATIN SMALL LETTER C
+FF43  ; [.193E.0020.0003] # FULLWIDTH LATIN SMALL LETTER C
+0368  ; [.193E.0020.0004] # COMBINING LATIN SMALL LETTER C
+217D  ; [.193E.0020.0004] # SMALL ROMAN NUMERAL ONE HUNDRED
+249E  ; [*030A.0020.0004][.193E.0020.0004][*030B.0020.0004] # PARENTHESIZED LATIN SMALL LETTER C
+1D41C ; [.193E.0020.0005] # MATHEMATICAL BOLD SMALL C
+1D450 ; [.193E.0020.0005] # MATHEMATICAL ITALIC SMALL C
+1D484 ; [.193E.0020.0005] # MATHEMATICAL BOLD ITALIC SMALL C
+1D4B8 ; [.193E.0020.0005] # MATHEMATICAL SCRIPT SMALL C
+1D4EC ; [.193E.0020.0005] # MATHEMATICAL BOLD SCRIPT SMALL C
+1D520 ; [.193E.0020.0005] # MATHEMATICAL FRAKTUR SMALL C
+1D554 ; [.193E.0020.0005] # MATHEMATICAL DOUBLE-STRUCK SMALL C
+1D588 ; [.193E.0020.0005] # MATHEMATICAL BOLD FRAKTUR SMALL C
+1D5BC ; [.193E.0020.0005] # MATHEMATICAL SANS-SERIF SMALL C
+1D5F0 ; [.193E.0020.0005] # MATHEMATICAL SANS-SERIF BOLD SMALL C
+1D624 ; [.193E.0020.0005] # MATHEMATICAL SANS-SERIF ITALIC SMALL C
+1D658 ; [.193E.0020.0005] # MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL C
+1D68C ; [.193E.0020.0005] # MATHEMATICAL MONOSPACE SMALL C
+24D2  ; [.193E.0020.0006] # CIRCLED LATIN SMALL LETTER C
+0043  ; [.193E.0020.0008] # LATIN CAPITAL LETTER C
+FF23  ; [.193E.0020.0009] # FULLWIDTH LATIN CAPITAL LETTER C
+2103  ; [*04BA.0020.0004][.193E.0020.000A] # DEGREE CELSIUS
+216D  ; [.193E.0020.000A] # ROMAN NUMERAL ONE HUNDRED
+1F112 ; [*030A.0020.0004][.193E.0020.000A][*030B.0020.0004] # PARENTHESIZED LATIN CAPITAL LETTER C
+2102  ; [.193E.0020.000B] # DOUBLE-STRUCK CAPITAL C
+212D  ; [.193E.0020.000B] # BLACK-LETTER CAPITAL C
+1D402 ; [.193E.0020.000B] # MATHEMATICAL BOLD CAPITAL C
+1D436 ; [.193E.0020.000B] # MATHEMATICAL ITALIC CAPITAL C
+1D46A ; [.193E.0020.000B] # MATHEMATICAL BOLD ITALIC CAPITAL C
+1D49E ; [.193E.0020.000B] # MATHEMATICAL SCRIPT CAPITAL C
+1D4D2 ; [.193E.0020.000B] # MATHEMATICAL BOLD SCRIPT CAPITAL C
+1D56E ; [.193E.0020.000B] # MATHEMATICAL BOLD FRAKTUR CAPITAL C
+1D5A2 ; [.193E.0020.000B] # MATHEMATICAL SANS-SERIF CAPITAL C
+1D5D6 ; [.193E.0020.000B] # MATHEMATICAL SANS-SERIF BOLD CAPITAL C
+1D60A ; [.193E.0020.000B] # MATHEMATICAL SANS-SERIF ITALIC CAPITAL C
+1D63E ; [.193E.0020.000B] # MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL C
+1D672 ; [.193E.0020.000B] # MATHEMATICAL MONOSPACE CAPITAL C
+24B8  ; [.193E.0020.000C] # CIRCLED LATIN CAPITAL LETTER C
+1F12B ; [.193E.0020.000C] # CIRCLED ITALIC LATIN CAPITAL LETTER C
+1F152 ; [.193E.0020.000C] # NEGATIVE CIRCLED LATIN CAPITAL LETTER C
+1D9C  ; [.193E.0020.0014] # MODIFIER LETTER SMALL C
+1F132 ; [.193E.0020.001D] # SQUARED LATIN CAPITAL LETTER C
+1F172 ; [.193E.0020.001D] # NEGATIVE SQUARED LATIN CAPITAL LETTER C
+0107  ; [.193E.0020.0002][.0000.0024.0002] # LATIN SMALL LETTER C WITH ACUTE
+0106  ; [.193E.0020.0008][.0000.0024.0002] # LATIN CAPITAL LETTER C WITH ACUTE
+0109  ; [.193E.0020.0002][.0000.0027.0002] # LATIN SMALL LETTER C WITH CIRCUMFLEX
+0108  ; [.193E.0020.0008][.0000.0027.0002] # LATIN CAPITAL LETTER C WITH CIRCUMFLEX
+010D  ; [.193E.0020.0002][.0000.0028.0002] # LATIN SMALL LETTER C WITH CARON
+010C  ; [.193E.0020.0008][.0000.0028.0002] # LATIN CAPITAL LETTER C WITH CARON
+010B  ; [.193E.0020.0002][.0000.002E.0002] # LATIN SMALL LETTER C WITH DOT ABOVE
+010A  ; [.193E.0020.0008][.0000.002E.0002] # LATIN CAPITAL LETTER C WITH DOT ABOVE
+00E7  ; [.193E.0020.0002][.0000.0030.0002] # LATIN SMALL LETTER C WITH CEDILLA
+1DD7  ; [.193E.0020.0004][.0000.0030.0004] # COMBINING LATIN SMALL LETTER C CEDILLA
+00C7  ; [.193E.0020.0008][.0000.0030.0002] # LATIN CAPITAL LETTER C WITH CEDILLA
+1E09  ; [.193E.0020.0002][.0000.0030.0002][.0000.0024.0002] # LATIN SMALL LETTER C WITH CEDILLA AND ACUTE
+1E08  ; [.193E.0020.0008][.0000.0030.0002][.0000.0024.0002] # LATIN CAPITAL LETTER C WITH CEDILLA AND ACUTE
+3388  ; [.193E.0020.001C][.190C.0020.001C][.1A3B.0020.001C] # SQUARE CAL
+33C4  ; [.193E.0020.001C][.193E.0020.001C] # SQUARE CC
+1F12D ; [.193E.0020.000C][.1953.0020.000C] # CIRCLED CD
+33C5  ; [.193E.0020.001C][.1953.0020.001C] # SQUARE CD
+33C6  ; [.193E.0020.001D][*05E5.0020.001C][.1A29.0020.001C][.19B8.0020.001C] # SQUARE C OVER KG
+1F191 ; [.193E.0020.001D][.1A3B.0020.001D] # SQUARED CL
+339D  ; [.193E.0020.001C][.1A6E.0020.001C] # SQUARE CM
+33A0  ; [.193E.0020.001C][.1A6E.0020.001C][.1904.0020.001C] # SQUARE CM SQUARED
+33A4  ; [.193E.0020.001C][.1A6E.0020.001C][.1905.0020.001C] # SQUARE CM CUBED
+2105  ; [.193E.0020.0004][*0387.0020.0004][.1AA1.0020.0004] # CARE OF
+33C7  ; [.193E.0020.001D][.1AA1.0020.001C][*0274.0020.001C] # SQUARE CO
+1F192 ; [.193E.0020.001D][.1AA1.0020.001D][.1AA1.0020.001D][.1A3B.0020.001D] # SQUARED COOL
+2106  ; [.193E.0020.0004][*0387.0020.0004][.1B77.0020.0004] # CADA UNA
+1D04  ; [.1942.0020.0002] # LATIN LETTER SMALL CAPITAL C
+023C  ; [.1943.0020.0002] # LATIN SMALL LETTER C WITH STROKE
+023B  ; [.1943.0020.0008] # LATIN CAPITAL LETTER C WITH STROKE
+A793  ; [.1947.0020.0002] # LATIN SMALL LETTER C WITH BAR
+A792  ; [.1947.0020.0008] # LATIN CAPITAL LETTER C WITH BAR
+A794  ; [.1948.0020.0002] # LATIN SMALL LETTER C WITH PALATAL HOOK
+0188  ; [.1949.0020.0002] # LATIN SMALL LETTER C WITH HOOK
+0187  ; [.1949.0020.0008] # LATIN CAPITAL LETTER C WITH HOOK
+0255  ; [.194D.0020.0002] # LATIN SMALL LETTER C WITH CURL
+1D9D  ; [.194D.0020.0014] # MODIFIER LETTER SMALL C WITH CURL
+2184  ; [.1951.0020.0002] # LATIN SMALL LETTER REVERSED C
+2183  ; [.1951.0020.0008] # ROMAN NUMERAL REVERSED ONE HUNDRED
+A73F  ; [.1952.0020.0002] # LATIN SMALL LETTER REVERSED C WITH DOT
+A73E  ; [.1952.0020.0008] # LATIN CAPITAL LETTER REVERSED C WITH DOT
+0064  ; [.1953.0020.0002] # LATIN SMALL LETTER D
+FF44  ; [.1953.0020.0003] # FULLWIDTH LATIN SMALL LETTER D
+0369  ; [.1953.0020.0004] # COMBINING LATIN SMALL LETTER D
+217E  ; [.1953.0020.0004] # SMALL ROMAN NUMERAL FIVE HUNDRED
+249F  ; [*030A.0020.0004][.1953.0020.0004][*030B.0020.0004] # PARENTHESIZED LATIN SMALL LETTER D
+2146  ; [.1953.0020.0005] # DOUBLE-STRUCK ITALIC SMALL D
+1D41D ; [.1953.0020.0005] # MATHEMATICAL BOLD SMALL D
+1D451 ; [.1953.0020.0005] # MATHEMATICAL ITALIC SMALL D
+1D485 ; [.1953.0020.0005] # MATHEMATICAL BOLD ITALIC SMALL D
+1D4B9 ; [.1953.0020.0005] # MATHEMATICAL SCRIPT SMALL D
+1D4ED ; [.1953.0020.0005] # MATHEMATICAL BOLD SCRIPT SMALL D
+1D521 ; [.1953.0020.0005] # MATHEMATICAL FRAKTUR SMALL D
+1D555 ; [.1953.0020.0005] # MATHEMATICAL DOUBLE-STRUCK SMALL D
+1D589 ; [.1953.0020.0005] # MATHEMATICAL BOLD FRAKTUR SMALL D
+1D5BD ; [.1953.0020.0005] # MATHEMATICAL SANS-SERIF SMALL D
+1D5F1 ; [.1953.0020.0005] # MATHEMATICAL SANS-SERIF BOLD SMALL D
+1D625 ; [.1953.0020.0005] # MATHEMATICAL SANS-SERIF ITALIC SMALL D
+1D659 ; [.1953.0020.0005] # MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL D
+1D68D ; [.1953.0020.0005] # MATHEMATICAL MONOSPACE SMALL D
+24D3  ; [.1953.0020.0006] # CIRCLED LATIN SMALL LETTER D
+0044  ; [.1953.0020.0008] # LATIN CAPITAL LETTER D
+FF24  ; [.1953.0020.0009] # FULLWIDTH LATIN CAPITAL LETTER D
+216E  ; [.1953.0020.000A] # ROMAN NUMERAL FIVE HUNDRED
+1F113 ; [*030A.0020.0004][.1953.0020.000A][*030B.0020.0004] # PARENTHESIZED LATIN CAPITAL LETTER D
+2145  ; [.1953.0020.000B] # DOUBLE-STRUCK ITALIC CAPITAL D
+1D403 ; [.1953.0020.000B] # MATHEMATICAL BOLD CAPITAL D
+1D437 ; [.1953.0020.000B] # MATHEMATICAL ITALIC CAPITAL D
+1D46B ; [.1953.0020.000B] # MATHEMATICAL BOLD ITALIC CAPITAL D
+1D49F ; [.1953.0020.000B] # MATHEMATICAL SCRIPT CAPITAL D
+1D4D3 ; [.1953.0020.000B] # MATHEMATICAL BOLD SCRIPT CAPITAL D
+1D507 ; [.1953.0020.000B] # MATHEMATICAL FRAKTUR CAPITAL D
+1D53B ; [.1953.0020.000B] # MATHEMATICAL DOUBLE-STRUCK CAPITAL D
+1D56F ; [.1953.0020.000B] # MATHEMATICAL BOLD FRAKTUR CAPITAL D
+1D5A3 ; [.1953.0020.000B] # MATHEMATICAL SANS-SERIF CAPITAL D
+1D5D7 ; [.1953.0020.000B] # MATHEMATICAL SANS-SERIF BOLD CAPITAL D
+1D60B ; [.1953.0020.000B] # MATHEMATICAL SANS-SERIF ITALIC CAPITAL D
+1D63F ; [.1953.0020.000B] # MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL D
+1D673 ; [.1953.0020.000B] # MATHEMATICAL MONOSPACE CAPITAL D
+24B9  ; [.1953.0020.000C] # CIRCLED LATIN CAPITAL LETTER D
+1F153 ; [.1953.0020.000C] # NEGATIVE CIRCLED LATIN CAPITAL LETTER D
+1D48  ; [.1953.0020.0014] # MODIFIER LETTER SMALL D
+1D30  ; [.1953.0020.001D] # MODIFIER LETTER CAPITAL D
+1F133 ; [.1953.0020.001D] # SQUARED LATIN CAPITAL LETTER D
+1F173 ; [.1953.0020.001D] # NEGATIVE SQUARED LATIN CAPITAL LETTER D
+010F  ; [.1953.0020.0002][.0000.0028.0002] # LATIN SMALL LETTER D WITH CARON
+010E  ; [.1953.0020.0008][.0000.0028.0002] # LATIN CAPITAL LETTER D WITH CARON
+1E0B  ; [.1953.0020.0002][.0000.002E.0002] # LATIN SMALL LETTER D WITH DOT ABOVE
+1E0A  ; [.1953.0020.0008][.0000.002E.0002] # LATIN CAPITAL LETTER D WITH DOT ABOVE
+1E11  ; [.1953.0020.0002][.0000.0030.0002] # LATIN SMALL LETTER D WITH CEDILLA
+1E10  ; [.1953.0020.0008][.0000.0030.0002] # LATIN CAPITAL LETTER D WITH CEDILLA
+0111  ; [.1953.0020.0002][.0000.0039.0002] # LATIN SMALL LETTER D WITH STROKE
+0110  ; [.1953.0020.0008][.0000.0039.0002] # LATIN CAPITAL LETTER D WITH STROKE
+1E0D  ; [.1953.0020.0002][.0000.0042.0002] # LATIN SMALL LETTER D WITH DOT BELOW
+1E0C  ; [.1953.0020.0008][.0000.0042.0002] # LATIN CAPITAL LETTER D WITH DOT BELOW
+1E13  ; [.1953.0020.0002][.0000.0046.0002] # LATIN SMALL LETTER D WITH CIRCUMFLEX BELOW
+1E12  ; [.1953.0020.0008][.0000.0046.0002] # LATIN CAPITAL LETTER D WITH CIRCUMFLEX BELOW
+1E0F  ; [.1953.0020.0002][.0000.0049.0002] # LATIN SMALL LETTER D WITH LINE BELOW
+1E0E  ; [.1953.0020.0008][.0000.0049.0002] # LATIN CAPITAL LETTER D WITH LINE BELOW
+00F0  ; [.1953.0020.0004][.0000.0108.0004] # LATIN SMALL LETTER ETH
+1DD9  ; [.1953.0020.0004][.0000.0108.0004] # COMBINING LATIN SMALL LETTER ETH
+00D0  ; [.1953.0020.000A][.0000.0108.0004] # LATIN CAPITAL LETTER ETH
+1D9E  ; [.1953.0020.0014][.0000.0108.0014] # MODIFIER LETTER SMALL ETH
+1DD8  ; [.1953.0020.0004][.0000.0109.0004] # COMBINING LATIN SMALL LETTER INSULAR D
+A77A  ; [.1953.0020.0004][.0000.0109.0004] # LATIN SMALL LETTER INSULAR D
+A779  ; [.1953.0020.000A][.0000.0109.0004] # LATIN CAPITAL LETTER INSULAR D
+3372  ; [.1953.0020.001C][.190C.0020.001C] # SQUARE DA
+0238  ; [.1953.0020.0004][.1925.0020.0004] # LATIN SMALL LETTER DB DIGRAPH
+33C8  ; [.1953.0020.001C][.1925.0020.001D] # SQUARE DB
+1F190 ; [.1953.0020.001D][.1A10.0020.001D] # SQUARE DJ
+3397  ; [.1953.0020.001C][.1A3B.0020.001C] # SQUARE DL
+3377  ; [.1953.0020.001C][.1A6E.0020.001C] # SQUARE DM
+3378  ; [.1953.0020.001C][.1A6E.0020.001C][.1904.0020.001C] # SQUARE DM SQUARED
+3379  ; [.1953.0020.001C][.1A6E.0020.001C][.1905.0020.001C] # SQUARE DM CUBED
+01F3  ; [.1953.0020.0004][.1BE3.0020.0004] # LATIN SMALL LETTER DZ
+02A3  ; [.1953.0020.0004][.1BE3.0020.0004] # LATIN SMALL LETTER DZ DIGRAPH
+01F2  ; [.1953.0020.000A][.1BE3.0020.0004] # LATIN CAPITAL LETTER D WITH SMALL LETTER Z
+01F1  ; [.1953.0020.000A][.1BE3.0020.000A] # LATIN CAPITAL LETTER DZ
+01C6  ; [.1953.0020.0004][.1BE3.0020.0004][.0000.0028.0004] # LATIN SMALL LETTER DZ WITH CARON
+01C5  ; [.1953.0020.000A][.1BE3.0020.0004][.0000.0028.0004] # LATIN CAPITAL LETTER D WITH SMALL LETTER Z WITH CARON
+01C4  ; [.1953.0020.000A][.1BE3.0020.000A][.0000.0028.0004] # LATIN CAPITAL LETTER DZ WITH CARON
+02A5  ; [.1953.0020.0004][.1BF6.0020.0004] # LATIN SMALL LETTER DZ DIGRAPH WITH CURL
+02A4  ; [.1953.0020.0004][.1C00.0020.0004] # LATIN SMALL LETTER DEZH DIGRAPH
+1D05  ; [.1957.0020.0002] # LATIN LETTER SMALL CAPITAL D
+1D06  ; [.1958.0020.0002] # LATIN LETTER SMALL CAPITAL ETH
+1D6D  ; [.1959.0020.0002] # LATIN SMALL LETTER D WITH MIDDLE TILDE
+1D81  ; [.195A.0020.0002] # LATIN SMALL LETTER D WITH PALATAL HOOK
+0256  ; [.195B.0020.0002] # LATIN SMALL LETTER D WITH TAIL
+0189  ; [.195B.0020.0008] # LATIN CAPITAL LETTER AFRICAN D
+0257  ; [.195F.0020.0002] # LATIN SMALL LETTER D WITH HOOK
+018A  ; [.195F.0020.0008] # LATIN CAPITAL LETTER D WITH HOOK
+1D91  ; [.1963.0020.0002] # LATIN SMALL LETTER D WITH HOOK AND TAIL
+018C  ; [.1964.0020.0002] # LATIN SMALL LETTER D WITH TOPBAR
+018B  ; [.1964.0020.0008] # LATIN CAPITAL LETTER D WITH TOPBAR
+0221  ; [.1968.0020.0002] # LATIN SMALL LETTER D WITH CURL
+A771  ; [.196C.0020.0002] # LATIN SMALL LETTER DUM
+1E9F  ; [.196D.0020.0002] # LATIN SMALL LETTER DELTA
+0065  ; [.196E.0020.0002] # LATIN SMALL LETTER E
+FF45  ; [.196E.0020.0003] # FULLWIDTH LATIN SMALL LETTER E
+0364  ; [.196E.0020.0004] # COMBINING LATIN SMALL LETTER E
+24A0  ; [*030A.0020.0004][.196E.0020.0004][*030B.0020.0004] # PARENTHESIZED LATIN SMALL LETTER E
+212F  ; [.196E.0020.0005] # SCRIPT SMALL E
+2147  ; [.196E.0020.0005] # DOUBLE-STRUCK ITALIC SMALL E
+1D41E ; [.196E.0020.0005] # MATHEMATICAL BOLD SMALL E
+1D452 ; [.196E.0020.0005] # MATHEMATICAL ITALIC SMALL E
+1D486 ; [.196E.0020.0005] # MATHEMATICAL BOLD ITALIC SMALL E
+1D4EE ; [.196E.0020.0005] # MATHEMATICAL BOLD SCRIPT SMALL E
+1D522 ; [.196E.0020.0005] # MATHEMATICAL FRAKTUR SMALL E
+1D556 ; [.196E.0020.0005] # MATHEMATICAL DOUBLE-STRUCK SMALL E
+1D58A ; [.196E.0020.0005] # MATHEMATICAL BOLD FRAKTUR SMALL E
+1D5BE ; [.196E.0020.0005] # MATHEMATICAL SANS-SERIF SMALL E
+1D5F2 ; [.196E.0020.0005] # MATHEMATICAL SANS-SERIF BOLD SMALL E
+1D626 ; [.196E.0020.0005] # MATHEMATICAL SANS-SERIF ITALIC SMALL E
+1D65A ; [.196E.0020.0005] # MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL E
+1D68E ; [.196E.0020.0005] # MATHEMATICAL MONOSPACE SMALL E
+24D4  ; [.196E.0020.0006] # CIRCLED LATIN SMALL LETTER E
+0045  ; [.196E.0020.0008] # LATIN CAPITAL LETTER E
+FF25  ; [.196E.0020.0009] # FULLWIDTH LATIN CAPITAL LETTER E
+1F114 ; [*030A.0020.0004][.196E.0020.000A][*030B.0020.0004] # PARENTHESIZED LATIN CAPITAL LETTER E
+2130  ; [.196E.0020.000B] # SCRIPT CAPITAL E
+1D404 ; [.196E.0020.000B] # MATHEMATICAL BOLD CAPITAL E
+1D438 ; [.196E.0020.000B] # MATHEMATICAL ITALIC CAPITAL E
+1D46C ; [.196E.0020.000B] # MATHEMATICAL BOLD ITALIC CAPITAL E
+1D4D4 ; [.196E.0020.000B] # MATHEMATICAL BOLD SCRIPT CAPITAL E
+1D508 ; [.196E.0020.000B] # MATHEMATICAL FRAKTUR CAPITAL E
+1D53C ; [.196E.0020.000B] # MATHEMATICAL DOUBLE-STRUCK CAPITAL E
+1D570 ; [.196E.0020.000B] # MATHEMATICAL BOLD FRAKTUR CAPITAL E
+1D5A4 ; [.196E.0020.000B] # MATHEMATICAL SANS-SERIF CAPITAL E
+1D5D8 ; [.196E.0020.000B] # MATHEMATICAL SANS-SERIF BOLD CAPITAL E
+1D60C ; [.196E.0020.000B] # MATHEMATICAL SANS-SERIF ITALIC CAPITAL E
+1D640 ; [.196E.0020.000B] # MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL E
+1D674 ; [.196E.0020.000B] # MATHEMATICAL MONOSPACE CAPITAL E
+24BA  ; [.196E.0020.000C] # CIRCLED LATIN CAPITAL LETTER E
+1F154 ; [.196E.0020.000C] # NEGATIVE CIRCLED LATIN CAPITAL LETTER E
+1D49  ; [.196E.0020.0014] # MODIFIER LETTER SMALL E
+2091  ; [.196E.0020.0015] # LATIN SUBSCRIPT SMALL LETTER E
+1D31  ; [.196E.0020.001D] # MODIFIER LETTER CAPITAL E
+1F134 ; [.196E.0020.001D] # SQUARED LATIN CAPITAL LETTER E
+1F174 ; [.196E.0020.001D] # NEGATIVE SQUARED LATIN CAPITAL LETTER E
+00E9  ; [.196E.0020.0002][.0000.0024.0002] # LATIN SMALL LETTER E WITH ACUTE
+00C9  ; [.196E.0020.0008][.0000.0024.0002] # LATIN CAPITAL LETTER E WITH ACUTE
+00E8  ; [.196E.0020.0002][.0000.0025.0002] # LATIN SMALL LETTER E WITH GRAVE
+00C8  ; [.196E.0020.0008][.0000.0025.0002] # LATIN CAPITAL LETTER E WITH GRAVE
+0115  ; [.196E.0020.0002][.0000.0026.0002] # LATIN SMALL LETTER E WITH BREVE
+0114  ; [.196E.0020.0008][.0000.0026.0002] # LATIN CAPITAL LETTER E WITH BREVE
+00EA  ; [.196E.0020.0002][.0000.0027.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX
+00CA  ; [.196E.0020.0008][.0000.0027.0002] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX
+1EBF  ; [.196E.0020.0002][.0000.0027.0002][.0000.0024.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND ACUTE
+1EBE  ; [.196E.0020.0008][.0000.0027.0002][.0000.0024.0002] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND ACUTE
+1EC1  ; [.196E.0020.0002][.0000.0027.0002][.0000.0025.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND GRAVE
+1EC0  ; [.196E.0020.0008][.0000.0027.0002][.0000.0025.0002] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND GRAVE
+1EC5  ; [.196E.0020.0002][.0000.0027.0002][.0000.002D.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND TILDE
+1EC4  ; [.196E.0020.0008][.0000.0027.0002][.0000.002D.0002] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND TILDE
+1EC3  ; [.196E.0020.0002][.0000.0027.0002][.0000.003B.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND HOOK ABOVE
+1EC2  ; [.196E.0020.0008][.0000.0027.0002][.0000.003B.0002] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND HOOK ABOVE
+011B  ; [.196E.0020.0002][.0000.0028.0002] # LATIN SMALL LETTER E WITH CARON
+011A  ; [.196E.0020.0008][.0000.0028.0002] # LATIN CAPITAL LETTER E WITH CARON
+00EB  ; [.196E.0020.0002][.0000.002B.0002] # LATIN SMALL LETTER E WITH DIAERESIS
+00CB  ; [.196E.0020.0008][.0000.002B.0002] # LATIN CAPITAL LETTER E WITH DIAERESIS
+1EBD  ; [.196E.0020.0002][.0000.002D.0002] # LATIN SMALL LETTER E WITH TILDE
+1EBC  ; [.196E.0020.0008][.0000.002D.0002] # LATIN CAPITAL LETTER E WITH TILDE
+0117  ; [.196E.0020.0002][.0000.002E.0002] # LATIN SMALL LETTER E WITH DOT ABOVE
+0116  ; [.196E.0020.0008][.0000.002E.0002] # LATIN CAPITAL LETTER E WITH DOT ABOVE
+0229  ; [.196E.0020.0002][.0000.0030.0002] # LATIN SMALL LETTER E WITH CEDILLA
+0228  ; [.196E.0020.0008][.0000.0030.0002] # LATIN CAPITAL LETTER E WITH CEDILLA
+1E1D  ; [.196E.0020.0002][.0000.0030.0002][.0000.0026.0002] # LATIN SMALL LETTER E WITH CEDILLA AND BREVE
+1E1C  ; [.196E.0020.0008][.0000.0030.0002][.0000.0026.0002] # LATIN CAPITAL LETTER E WITH CEDILLA AND BREVE
+0119  ; [.196E.0020.0002][.0000.0031.0002] # LATIN SMALL LETTER E WITH OGONEK
+0118  ; [.196E.0020.0008][.0000.0031.0002] # LATIN CAPITAL LETTER E WITH OGONEK
+0113  ; [.196E.0020.0002][.0000.0032.0002] # LATIN SMALL LETTER E WITH MACRON
+0112  ; [.196E.0020.0008][.0000.0032.0002] # LATIN CAPITAL LETTER E WITH MACRON
+1E17  ; [.196E.0020.0002][.0000.0032.0002][.0000.0024.0002] # LATIN SMALL LETTER E WITH MACRON AND ACUTE
+1E16  ; [.196E.0020.0008][.0000.0032.0002][.0000.0024.0002] # LATIN CAPITAL LETTER E WITH MACRON AND ACUTE
+1E15  ; [.196E.0020.0002][.0000.0032.0002][.0000.0025.0002] # LATIN SMALL LETTER E WITH MACRON AND GRAVE
+1E14  ; [.196E.0020.0008][.0000.0032.0002][.0000.0025.0002] # LATIN CAPITAL LETTER E WITH MACRON AND GRAVE
+1EBB  ; [.196E.0020.0002][.0000.003B.0002] # LATIN SMALL LETTER E WITH HOOK ABOVE
+1EBA  ; [.196E.0020.0008][.0000.003B.0002] # LATIN CAPITAL LETTER E WITH HOOK ABOVE
+0205  ; [.196E.0020.0002][.0000.003C.0002] # LATIN SMALL LETTER E WITH DOUBLE GRAVE
+0204  ; [.196E.0020.0008][.0000.003C.0002] # LATIN CAPITAL LETTER E WITH DOUBLE GRAVE
+0207  ; [.196E.0020.0002][.0000.003E.0002] # LATIN SMALL LETTER E WITH INVERTED BREVE
+0206  ; [.196E.0020.0008][.0000.003E.0002] # LATIN CAPITAL LETTER E WITH INVERTED BREVE
+1EB9  ; [.196E.0020.0002][.0000.0042.0002] # LATIN SMALL LETTER E WITH DOT BELOW
+1EB8  ; [.196E.0020.0008][.0000.0042.0002] # LATIN CAPITAL LETTER E WITH DOT BELOW
+1EC7  ; [.196E.0020.0002][.0000.0042.0002][.0000.0027.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX AND DOT BELOW
+1EC6  ; [.196E.0020.0008][.0000.0042.0002][.0000.0027.0002] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND DOT BELOW
+1E19  ; [.196E.0020.0002][.0000.0046.0002] # LATIN SMALL LETTER E WITH CIRCUMFLEX BELOW
+1E18  ; [.196E.0020.0008][.0000.0046.0002] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX BELOW
+1E1B  ; [.196E.0020.0002][.0000.0048.0002] # LATIN SMALL LETTER E WITH TILDE BELOW
+1E1A  ; [.196E.0020.0008][.0000.0048.0002] # LATIN CAPITAL LETTER E WITH TILDE BELOW
+32CD  ; [.196E.0020.001C][.1AF5.0020.001C][.19B8.0020.001C] # SQUARE ERG
+32CE  ; [.196E.0020.001C][.1BA5.0020.001D] # SQUARE EV
+1D07  ; [.1972.0020.0002] # LATIN LETTER SMALL CAPITAL E
+AB32  ; [.1973.0020.0002] # LATIN SMALL LETTER BLACKLETTER E
+AB33  ; [.1974.0020.0002] # LATIN SMALL LETTER BARRED E
+0247  ; [.1975.0020.0002] # LATIN SMALL LETTER E WITH STROKE
+0246  ; [.1975.0020.0008] # LATIN CAPITAL LETTER E WITH STROKE
+1D92  ; [.1979.0020.0002] # LATIN SMALL LETTER E WITH RETROFLEX HOOK
+AB34  ; [.197A.0020.0002] # LATIN SMALL LETTER E WITH FLOURISH
+2C78  ; [.197B.0020.0002] # LATIN SMALL LETTER E WITH NOTCH
+01DD  ; [.197C.0020.0002] # LATIN SMALL LETTER TURNED E
+018E  ; [.197C.0020.0008] # LATIN CAPITAL LETTER REVERSED E
+1D32  ; [.197C.0020.001D] # MODIFIER LETTER CAPITAL REVERSED E
+2C7B  ; [.1980.0020.0002] # LATIN LETTER SMALL CAPITAL TURNED E
+0259  ; [.1981.0020.0002] # LATIN SMALL LETTER SCHWA
+1DEA  ; [.1981.0020.0004] # COMBINING LATIN SMALL LETTER SCHWA
+018F  ; [.1981.0020.0008] # LATIN CAPITAL LETTER SCHWA
+1D4A  ; [.1981.0020.0014] # MODIFIER LETTER SMALL SCHWA
+2094  ; [.1981.0020.0015] # LATIN SUBSCRIPT SMALL LETTER SCHWA
+1D95  ; [.1985.0020.0002] # LATIN SMALL LETTER SCHWA WITH RETROFLEX HOOK
+025B  ; [.1986.0020.0002] # LATIN SMALL LETTER OPEN E
+0190  ; [.1986.0020.0008] # LATIN CAPITAL LETTER OPEN E
+2107  ; [.1986.0020.000A] # EULER CONSTANT
+1D4B  ; [.1986.0020.0014] # MODIFIER LETTER SMALL OPEN E
+1D93  ; [.198A.0020.0002] # LATIN SMALL LETTER OPEN E WITH RETROFLEX HOOK
+0258  ; [.198B.0020.0002] # LATIN SMALL LETTER REVERSED E
+025A  ; [.198F.0020.0002] # LATIN SMALL LETTER SCHWA WITH HOOK
+025C  ; [.1993.0020.0002] # LATIN SMALL LETTER REVERSED OPEN E
+A7AB  ; [.1993.0020.0008] # LATIN CAPITAL LETTER REVERSED OPEN E
+1D9F  ; [.1993.0020.0014] # MODIFIER LETTER SMALL REVERSED OPEN E
+1D94  ; [.1997.0020.0002] # LATIN SMALL LETTER REVERSED OPEN E WITH RETROFLEX HOOK
+1D08  ; [.1998.0020.0002] # LATIN SMALL LETTER TURNED OPEN E
+1D4C  ; [.1998.0020.0014] # MODIFIER LETTER SMALL TURNED OPEN E
+025D  ; [.1999.0020.0002] # LATIN SMALL LETTER REVERSED OPEN E WITH HOOK
+025E  ; [.199D.0020.0002] # LATIN SMALL LETTER CLOSED REVERSED OPEN E
+029A  ; [.19A1.0020.0002] # LATIN SMALL LETTER CLOSED OPEN E
+0264  ; [.19A5.0020.0002] # LATIN SMALL LETTER RAMS HORN
+0066  ; [.19A9.0020.0002] # LATIN SMALL LETTER F
+FF46  ; [.19A9.0020.0003] # FULLWIDTH LATIN SMALL LETTER F
+1DEB  ; [.19A9.0020.0004] # COMBINING LATIN SMALL LETTER F
+24A1  ; [*030A.0020.0004][.19A9.0020.0004][*030B.0020.0004] # PARENTHESIZED LATIN SMALL LETTER F
+1D41F ; [.19A9.0020.0005] # MATHEMATICAL BOLD SMALL F
+1D453 ; [.19A9.0020.0005] # MATHEMATICAL ITALIC SMALL F
+1D487 ; [.19A9.0020.0005] # MATHEMATICAL BOLD ITALIC SMALL F
+1D4BB ; [.19A9.0020.0005] # MATHEMATICAL SCRIPT SMALL F
+1D4EF ; [.19A9.0020.0005] # MATHEMATICAL BOLD SCRIPT SMALL F
+1D523 ; [.19A9.0020.0005] # MATHEMATICAL FRAKTUR SMALL F
+1D557 ; [.19A9.0020.0005] # MATHEMATICAL DOUBLE-STRUCK SMALL F
+1D58B ; [.19A9.0020.0005] # MATHEMATICAL BOLD FRAKTUR SMALL F
+1D5BF ; [.19A9.0020.0005] # MATHEMATICAL SANS-SERIF SMALL F
+1D5F3 ; [.19A9.0020.0005] # MATHEMATICAL SANS-SERIF BOLD SMALL F
+1D627 ; [.19A9.0020.0005] # MATHEMATICAL SANS-SERIF ITALIC SMALL F
+1D65B ; [.19A9.0020.0005] # MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL F
+1D68F ; [.19A9.0020.0005] # MATHEMATICAL MONOSPACE SMALL F
+24D5  ; [.19A9.0020.0006] # CIRCLED LATIN SMALL LETTER F
+0046  ; [.19A9.0020.0008] # LATIN CAPITAL LETTER F
+FF26  ; [.19A9.0020.0009] # FULLWIDTH LATIN CAPITAL LETTER F
+2109  ; [*04BA.0020.0004][.19A9.0020.000A] # DEGREE FAHRENHEIT
+1F115 ; [*030A.0020.0004][.19A9.0020.000A][*030B.0020.0004] # PARENTHESIZED LATIN CAPITAL LETTER F
+2131  ; [.19A9.0020.000B] # SCRIPT CAPITAL F
+1D405 ; [.19A9.0020.000B] # MATHEMATICAL BOLD CAPITAL F
+1D439 ; [.19A9.0020.000B] # MATHEMATICAL ITALIC CAPITAL F
+1D46D ; [.19A9.0020.000B] # MATHEMATICAL BOLD ITALIC CAPITAL F
+1D4D5 ; [.19A9.0020.000B] # MATHEMATICAL BOLD SCRIPT CAPITAL F
+1D509 ; [.19A9.0020.000B] # MATHEMATICAL FRAKTUR CAPITAL F
+1D53D ; [.19A9.0020.000B] # MATHEMATICAL DOUBLE-STRUCK CAPITAL F
+1D571 ; [.19A9.0020.000B] # MATHEMATICAL BOLD FRAKTUR CAPITAL F
+1D5A5 ; [.19A9.0020.000B] # MATHEMATICAL SANS-SERIF CAPITAL F
+1D5D9 ; [.19A9.0020.000B] # MATHEMATICAL SANS-SERIF BOLD CAPITAL F
+1D60D ; [.19A9.0020.000B] # MATHEMATICAL SANS-SERIF ITALIC CAPITAL F
+1D641 ; [.19A9.0020.000B] # MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL F
+1D675 ; [.19A9.0020.000B] # MATHEMATICAL MONOSPACE CAPITAL F
+24BB  ; [.19A9.0020.000C] # CIRCLED LATIN CAPITAL LETTER F
+1F155 ; [.19A9.0020.000C] # NEGATIVE CIRCLED LATIN CAPITAL LETTER F
+1DA0  ; [.19A9.0020.0014] # MODIFIER LETTER SMALL F
+1F135 ; [.19A9.0020.001D] # SQUARED LATIN CAPITAL LETTER F
+1F175 ; [.19A9.0020.001D] # NEGATIVE SQUARED LATIN CAPITAL LETTER F
+1E1F  ; [.19A9.0020.0002][.0000.002E.0002] # LATIN SMALL LETTER F WITH DOT ABOVE
+1E1E  ; [.19A9.0020.0008][.0000.002E.0002] # LATIN CAPITAL LETTER F WITH DOT ABOVE
+A77C  ; [.19A9.0020.0004][.0000.0109.0004] # LATIN SMALL LETTER INSULAR F
+A77B  ; [.19A9.0020.000A][.0000.0109.0004] # LATIN CAPITAL LETTER INSULAR F
+213B  ; [.19A9.0020.000A][.190C.0020.000A][.1BC1.0020.000A] # FACSIMILE SIGN
+FB00  ; [.19A9.0020.0004][.19A9.0020.0004] # LATIN SMALL LIGATURE FF
+FB03  ; [.19A9.0020.0004][.19A9.0020.0004][.19F6.0020.0004] # LATIN SMALL LIGATURE FFI
+FB04  ; [.19A9.0020.0004][.19A9.0020.0004][.1A3B.0020.0004] # LATIN SMALL LIGATURE FFL
+FB01  ; [.19A9.0020.0004][.19F6.0020.0004] # LATIN SMALL LIGATURE FI
+FB02  ; [.19A9.0020.0004][.1A3B.0020.0004] # LATIN SMALL LIGATURE FL
+3399  ; [.19A9.0020.001C][.1A6E.0020.001C] # SQUARE FM
+02A9  ; [.19A9.0020.0004][.1A9C.0020.0004] # LATIN SMALL LETTER FENG DIGRAPH
+1F193 ; [.19A9.0020.001D][.1AF5.0020.001D][.196E.0020.001D][.196E.0020.001D] # SQUARED FREE
+A730  ; [.19AD.0020.0002] # LATIN LETTER SMALL CAPITAL F
+AB35  ; [.19AE.0020.0002] # LATIN SMALL LETTER LENIS F
+A799  ; [.19AF.0020.0002] # LATIN SMALL LETTER F WITH STROKE
+A798  ; [.19AF.0020.0008] # LATIN CAPITAL LETTER F WITH STROKE
+1D6E  ; [.19B0.0020.0002] # LATIN SMALL LETTER F WITH MIDDLE TILDE
+1D82  ; [.19B1.0020.0002] # LATIN SMALL LETTER F WITH PALATAL HOOK
+0192  ; [.19B2.0020.0002] # LATIN SMALL LETTER F WITH HOOK
+0191  ; [.19B2.0020.0008] # LATIN CAPITAL LETTER F WITH HOOK
+214E  ; [.19B6.0020.0002] # TURNED SMALL F
+2132  ; [.19B6.0020.0008] # TURNED CAPITAL F
+A7FB  ; [.19B7.0020.0002] # LATIN EPIGRAPHIC LETTER REVERSED F
+0067  ; [.19B8.0020.0002] # LATIN SMALL LETTER G
+FF47  ; [.19B8.0020.0003] # FULLWIDTH LATIN SMALL LETTER G
+1DDA  ; [.19B8.0020.0004] # COMBINING LATIN SMALL LETTER G
+24A2  ; [*030A.0020.0004][.19B8.0020.0004][*030B.0020.0004] # PARENTHESIZED LATIN SMALL LETTER G
+210A  ; [.19B8.0020.0005] # SCRIPT SMALL G
+1D420 ; [.19B8.0020.0005] # MATHEMATICAL BOLD SMALL G
+1D454 ; [.19B8.0020.0005] # MATHEMATICAL ITALIC SMALL G
+1D488 ; [.19B8.0020.0005] # MATHEMATICAL BOLD ITALIC SMALL G
+1D4F0 ; [.19B8.0020.0005] # MATHEMATICAL BOLD SCRIPT SMALL G
+1D524 ; [.19B8.0020.0005] # MATHEMATICAL FRAKTUR SMALL G
+1D558 ; [.19B8.0020.0005] # MATHEMATICAL DOUBLE-STRUCK SMALL G
+1D58C ; [.19B8.0020.0005] # MATHEMATICAL BOLD FRAKTUR SMALL G
+1D5C0 ; [.19B8.0020.0005] # MATHEMATICAL SANS-SERIF SMALL G
+1D5F4 ; [.19B8.0020.0005] # MATHEMATICAL SANS-SERIF BOLD SMALL G
+1D628 ; [.19B8.0020.0005] # MATHEMATICAL SANS-SERIF ITALIC SMALL G
+1D65C ; [.19B8.0020.0005] # MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL G
+1D690 ; [.19B8.0020.0005] # MATHEMATICAL MONOSPACE SMALL G
+24D6  ; [.19B8.0020.0006] # CIRCLED LATIN SMALL LETTER G
+0047  ; [.19B8.0020.0008] # LATIN CAPITAL LETTER G
+FF27  ; [.19B8.0020.0009] # FULLWIDTH LATIN CAPITAL LETTER G
+1F116 ; [*030A.0020.0004][.19B8.0020.000A][*030B.0020.0004] # PARENTHESIZED LATIN CAPITAL LETTER G
+1D406 ; [.19B8.0020.000B] # MATHEMATICAL BOLD CAPITAL G
+1D43A ; [.19B8.0020.000B] # MATHEMATICAL ITALIC CAPITAL G
+1D46E ; [.19B8.0020.000B] # MATHEMATICAL BOLD ITALIC CAPITAL G
+1D4A2 ; [.19B8.0020.000B] # MATHEMATICAL SCRIPT CAPITAL G
+1D4D6 ; [.19B8.0020.000B] # MATHEMATICAL BOLD SCRIPT CAPITAL G
+1D50A ; [.19B8.0020.000B] # MATHEMATICAL FRAKTUR CAPITAL G
+1D53E ; [.19B8.0020.000B] # MATHEMATICAL DOUBLE-STRUCK CAPITAL G
+1D572 ; [.19B8.0020.000B] # MATHEMATICAL BOLD FRAKTUR CAPITAL G
+1D5A6 ; [.19B8.0020.000B] # MATHEMATICAL SANS-SERIF CAPITAL G
+1D5DA ; [.19B8.0020.000B] # MATHEMATICAL SANS-SERIF BOLD CAPITAL G
+1D60E ; [.19B8.0020.000B] # MATHEMATICAL SANS-SERIF ITALIC CAPITAL G
+1D642 ; [.19B8.0020.000B] # MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL G
+1D676 ; [.19B8.0020.000B] # MATHEMATICAL MONOSPACE CAPITAL G
+24BC  ; [.19B8.0020.000C] # CIRCLED LATIN CAPITAL LETTER G
+1F156 ; [.19B8.0020.000C] # NEGATIVE CIRCLED LATIN CAPITAL LETTER G
+1D4D  ; [.19B8.0020.0014] # MODIFIER LETTER SMALL G
+1D33  ; [.19B8.0020.001D] # MODIFIER LETTER CAPITAL G
+1F136 ; [.19B8.0020.001D] # SQUARED LATIN CAPITAL LETTER G
+1F176 ; [.19B8.0020.001D] # NEGATIVE SQUARED LATIN CAPITAL LETTER G
+01F5  ; [.19B8.0020.0002][.0000.0024.0002] # LATIN SMALL LETTER G WITH ACUTE
+01F4  ; [.19B8.0020.0008][.0000.0024.0002] # LATIN CAPITAL LETTER G WITH ACUTE
+011F  ; [.19B8.0020.0002][.0000.0026.0002] # LATIN SMALL LETTER G WITH BREVE
+011E  ; [.19B8.0020.0008][.0000.0026.0002] # LATIN CAPITAL LETTER G WITH BREVE
+011D  ; [.19B8.0020.0002][.0000.0027.0002] # LATIN SMALL LETTER G WITH CIRCUMFLEX
+011C  ; [.19B8.0020.0008][.0000.0027.0002] # LATIN CAPITAL LETTER G WITH CIRCUMFLEX
+01E7  ; [.19B8.0020.0002][.0000.0028.0002] # LATIN SMALL LETTER G WITH CARON
+01E6  ; [.19B8.0020.0008][.0000.0028.0002] # LATIN CAPITAL LETTER G WITH CARON
+0121  ; [.19B8.0020.0002][.0000.002E.0002] # LATIN SMALL LETTER G WITH DOT ABOVE
+0120  ; [.19B8.0020.0008][.0000.002E.0002] # LATIN CAPITAL LETTER G WITH DOT ABOVE
+0123  ; [.19B8.0020.0002][.0000.0030.0002] # LATIN SMALL LETTER G WITH CEDILLA
+0122  ; [.19B8.0020.0008][.0000.0030.0002] # LATIN CAPITAL LETTER G WITH CEDILLA
+1E21  ; [.19B8.0020.0002][.0000.0032.0002] # LATIN SMALL LETTER G WITH MACRON
+1E20  ; [.19B8.0020.0008][.0000.0032.0002] # LATIN CAPITAL LETTER G WITH MACRON
+A7A1  ; [.19B8.0020.0004][.0000.0035.0004] # LATIN SMALL LETTER G WITH OBLIQUE STROKE
+A7A0  ; [.19B8.0020.000A][.0000.0035.0004] # LATIN CAPITAL LETTER G WITH OBLIQUE STROKE
+1D79  ; [.19B8.0020.0004][.0000.0109.0004] # LATIN SMALL LETTER INSULAR G
+A77D  ; [.19B8.0020.000A][.0000.0109.0004] # LATIN CAPITAL LETTER INSULAR G
+33FF  ; [.19B8.0020.001C][.190C.0020.001C][.1A3B.0020.001C] # SQUARE GAL
+3387  ; [.19B8.0020.001D][.1925.0020.001D] # SQUARE GB
+3393  ; [.19B8.0020.001D][.19DC.0020.001D][.1BE3.0020.001C] # SQUARE GHZ
+33AC  ; [.19B8.0020.001D][.1ACE.0020.001D][.190C.0020.001C] # SQUARE GPA
+33C9  ; [.19B8.0020.001D][.1BCD.0020.001C] # SQUARE GY
+0261  ; [.19BC.0020.0002] # LATIN SMALL LETTER SCRIPT G
+A7AC  ; [.19BC.0020.0008] # LATIN CAPITAL LETTER SCRIPT G
+1DA2  ; [.19BC.0020.0014] # MODIFIER LETTER SMALL SCRIPT G
+AB36  ; [.19C0.0020.0002] # LATIN SMALL LETTER SCRIPT G WITH CROSSED-TAIL
+0262  ; [.19C1.0020.0002] # LATIN LETTER SMALL CAPITAL G
+1DDB  ; [.19C1.0020.0004] # COMBINING LATIN LETTER SMALL CAPITAL G
+01E5  ; [.19C5.0020.0002] # LATIN SMALL LETTER G WITH STROKE
+01E4  ; [.19C5.0020.0008] # LATIN CAPITAL LETTER G WITH STROKE
+1D83  ; [.19C9.0020.0002] # LATIN SMALL LETTER G WITH PALATAL HOOK
+0260  ; [.19CA.0020.0002] # LATIN SMALL LETTER G WITH HOOK
+0193  ; [.19CA.0020.0008] # LATIN CAPITAL LETTER G WITH HOOK
+029B  ; [.19CE.0020.0002] # LATIN LETTER SMALL CAPITAL G WITH HOOK
+1D77  ; [.19D2.0020.0002] # LATIN SMALL LETTER TURNED G
+A77F  ; [.19D3.0020.0002] # LATIN SMALL LETTER TURNED INSULAR G
+A77E  ; [.19D3.0020.0008] # LATIN CAPITAL LETTER TURNED INSULAR G
+0263  ; [.19D4.0020.0002] # LATIN SMALL LETTER GAMMA
+0194  ; [.19D4.0020.0008] # LATIN CAPITAL LETTER GAMMA
+02E0  ; [.19D4.0020.0014] # MODIFIER LETTER SMALL GAMMA
+01A3  ; [.19D8.0020.0002] # LATIN SMALL LETTER OI
+01A2  ; [.19D8.0020.0008] # LATIN CAPITAL LETTER OI
+0068  ; [.19DC.0020.0002] # LATIN SMALL LETTER H
+FF48  ; [.19DC.0020.0003] # FULLWIDTH LATIN SMALL LETTER H
+036A  ; [.19DC.0020.0004] # COMBINING LATIN SMALL LETTER H
+24A3  ; [*030A.0020.0004][.19DC.0020.0004][*030B.0020.0004] # PARENTHESIZED LATIN SMALL LETTER H
+210E  ; [.19DC.0020.0005] # PLANCK CONSTANT
+1D421 ; [.19DC.0020.0005] # MATHEMATICAL BOLD SMALL H
+1D489 ; [.19DC.0020.0005] # MATHEMATICAL BOLD ITALIC SMALL H
+1D4BD ; [.19DC.0020.0005] # MATHEMATICAL SCRIPT SMALL H
+1D4F1 ; [.19DC.0020.0005] # MATHEMATICAL BOLD SCRIPT SMALL H
+1D525 ; [.19DC.0020.0005] # MATHEMATICAL FRAKTUR SMALL H
+1D559 ; [.19DC.0020.0005] # MATHEMATICAL DOUBLE-STRUCK SMALL H
+1D58D ; [.19DC.0020.0005] # MATHEMATICAL BOLD FRAKTUR SMALL H
+1D5C1 ; [.19DC.0020.0005] # MATHEMATICAL SANS-SERIF SMALL H
+1D5F5 ; [.19DC.0020.0005] # MATHEMATICAL SANS-SERIF BOLD SMALL H
+1D629 ; [.19DC.0020.0005] # MATHEMATICAL SANS-SERIF ITALIC SMALL H
+1D65D ; [.19DC.0020.0005] # MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL H
+1D691 ; [.19DC.0020.0005] # MATHEMATICAL MONOSPACE SMALL H
+24D7  ; [.19DC.0020.0006] # CIRCLED LATIN SMALL LETTER H
+0048  ; [.19DC.0020.0008] # LATIN CAPITAL LETTER H
+FF28  ; [.19DC.0020.0009] # FULLWIDTH LATIN CAPITAL LETTER H
+1F117 ; [*030A.0020.0004][.19DC.0020.000A][*030B.0020.0004] # PARENTHESIZED LATIN CAPITAL LETTER H
+210B  ; [.19DC.0020.000B] # SCRIPT CAPITAL H
+210C  ; [.19DC.0020.000B] # BLACK-LETTER CAPITAL H
+210D  ; [.19DC.0020.000B] # DOUBLE-STRUCK CAPITAL H
+1D407 ; [.19DC.0020.000B] # MATHEMATICAL BOLD CAPITAL H
+1D43B ; [.19DC.0020.000B] # MATHEMATICAL ITALIC CAPITAL H
+1D46F ; [.19DC.0020.000B] # MATHEMATICAL BOLD ITALIC CAPITAL H
+1D4D7 ; [.19DC.0020.000B] # MATHEMATICAL BOLD SCRIPT CAPITAL H
+1D573 ; [.19DC.0020.000B] # MATHEMATICAL BOLD FRAKTUR CAPITAL H
+1D5A7 ; [.19DC.0020.000B] # MATHEMATICAL SANS-SERIF CAPITAL H
+1D5DB ; [.19DC.0020.000B] # MATHEMATICAL SANS-SERIF BOLD CAPITAL H
+1D60F ; [.19DC.0020.000B] # MATHEMATICAL SANS-SERIF ITALIC CAPITAL H
+1D643 ; [.19DC.0020.000B] # MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL H
+1D677 ; [.19DC.0020.000B] # MATHEMATICAL MONOSPACE CAPITAL H
+24BD  ; [.19DC.0020.000C] # CIRCLED LATIN CAPITAL LETTER H
+1F157 ; [.19DC.0020.000C] # NEGATIVE CIRCLED LATIN CAPITAL LETTER H
+02B0  ; [.19DC.0020.0014] # MODIFIER LETTER SMALL H
+2095  ; [.19DC.0020.0015] # LATIN SUBSCRIPT SMALL LETTER H
+1D34  ; [.19DC.0020.001D] # MODIFIER LETTER CAPITAL H
+1F137 ; [.19DC.0020.001D] # SQUARED LATIN CAPITAL LETTER H
+1F177 ; [.19DC.0020.001D] # NEGATIVE SQUARED LATIN CAPITAL LETTER H
+0125  ; [.19DC.0020.0002][.0000.0027.0002] # LATIN SMALL LETTER H WITH CIRCUMFLEX
+0124  ; [.19DC.0020.0008][.0000.0027.0002] # LATIN CAPITAL LETTER H WITH CIRCUMFLEX
+021F  ; [.19DC.0020.0002][.0000.0028.0002] # LATIN SMALL LETTER H WITH CARON
+021E  ; [.19DC.0020.0008][.0000.0028.0002] # LATIN CAPITAL LETTER H WITH CARON
+1E27  ; [.19DC.0020.0002][.0000.002B.0002] # LATIN SMALL LETTER H WITH DIAERESIS
+1E26  ; [.19DC.0020.0008][.0000.002B.0002] # LATIN CAPITAL LETTER H WITH DIAERESIS
+1E23  ; [.19DC.0020.0002][.0000.002E.0002] # LATIN SMALL LETTER H WITH DOT ABOVE
+1E22  ; [.19DC.0020.0008][.0000.002E.0002] # LATIN CAPITAL LETTER H WITH DOT ABOVE
+1E29  ; [.19DC.0020.0002][.0000.0030.0002] # LATIN SMALL LETTER H WITH CEDILLA
+1E28  ; [.19DC.0020.0008][.0000.0030.0002] # LATIN CAPITAL LETTER H WITH CEDILLA
+0127  ; [.19DC.0020.0002][.0000.0039.0002] # LATIN SMALL LETTER H WITH STROKE
+210F  ; [.19DC.0020.0002][.0000.0039.0002] # PLANCK CONSTANT OVER TWO PI
+0126  ; [.19DC.0020.0008][.0000.0039.0002] # LATIN CAPITAL LETTER H WITH STROKE
+A7F8  ; [.19DC.0020.0014][.0000.0039.0014] # MODIFIER LETTER CAPITAL H WITH STROKE
+1E25  ; [.19DC.0020.0002][.0000.0042.0002] # LATIN SMALL LETTER H WITH DOT BELOW
+1E24  ; [.19DC.0020.0008][.0000.0042.0002] # LATIN CAPITAL LETTER H WITH DOT BELOW
+1E2B  ; [.19DC.0020.0002][.0000.0047.0002] # LATIN SMALL LETTER H WITH BREVE BELOW
+1E2A  ; [.19DC.0020.0008][.0000.0047.0002] # LATIN CAPITAL LETTER H WITH BREVE BELOW
+1E96  ; [.19DC.0020.0002][.0000.0049.0002] # LATIN SMALL LETTER H WITH LINE BELOW
+33CA  ; [.19DC.0020.001C][.190C.0020.001C] # SQUARE HA
+32CC  ; [.19DC.0020.001D][.19B8.0020.001C] # SQUARE HG
+33CB  ; [.19DC.0020.001D][.1ACE.0020.001D] # SQUARE HP
+3371  ; [.19DC.0020.001C][.1ACE.0020.001D][.190C.0020.001C] # SQUARE HPA
+1F14A ; [.19DC.0020.001D][.1BA5.0020.001D] # SQUARED HV
+3390  ; [.19DC.0020.001D][.1BE3.0020.001C] # SQUARE HZ
+029C  ; [.19E0.0020.0002] # LATIN LETTER SMALL CAPITAL H
+0195  ; [.19E4.0020.0002] # LATIN SMALL LETTER HV
+01F6  ; [.19E4.0020.0008] # LATIN CAPITAL LETTER HWAIR
+A795  ; [.19E8.0020.0002] # LATIN SMALL LETTER H WITH PALATAL HOOK
+0266  ; [.19E9.0020.0002] # LATIN SMALL LETTER H WITH HOOK
+A7AA  ; [.19E9.0020.0008] # LATIN CAPITAL LETTER H WITH HOOK
+02B1  ; [.19E9.0020.0014] # MODIFIER LETTER SMALL H WITH HOOK
+2C68  ; [.19ED.0020.0002] # LATIN SMALL LETTER H WITH DESCENDER
+2C67  ; [.19ED.0020.0008] # LATIN CAPITAL LETTER H WITH DESCENDER
+2C76  ; [.19EE.0020.0002] # LATIN SMALL LETTER HALF H
+2C75  ; [.19EE.0020.0008] # LATIN CAPITAL LETTER HALF H
+A727  ; [.19EF.0020.0002] # LATIN SMALL LETTER HENG
+A726  ; [.19EF.0020.0008] # LATIN CAPITAL LETTER HENG
+AB5C  ; [.19EF.0020.0014] # MODIFIER LETTER SMALL HENG
+0267  ; [.19F0.0020.0002] # LATIN SMALL LETTER HENG WITH HOOK
+02BB  ; [.19F4.0020.0002] # MODIFIER LETTER TURNED COMMA
+02BD  ; [.19F5.0020.0002] # MODIFIER LETTER REVERSED COMMA
+0069  ; [.19F6.0020.0002] # LATIN SMALL LETTER I
+FF49  ; [.19F6.0020.0003] # FULLWIDTH LATIN SMALL LETTER I
+0365  ; [.19F6.0020.0004] # COMBINING LATIN SMALL LETTER I
+2170  ; [.19F6.0020.0004] # SMALL ROMAN NUMERAL ONE
+24A4  ; [*030A.0020.0004][.19F6.0020.0004][*030B.0020.0004] # PARENTHESIZED LATIN SMALL LETTER I
+2139  ; [.19F6.0020.0005] # INFORMATION SOURCE
+2148  ; [.19F6.0020.0005] # DOUBLE-STRUCK ITALIC SMALL I
+1D422 ; [.19F6.0020.0005] # MATHEMATICAL BOLD SMALL I
+1D456 ; [.19F6.0020.0005] # MATHEMATICAL ITALIC SMALL I
+1D48A ; [.19F6.0020.0005] # MATHEMATICAL BOLD ITALIC SMALL I
+1D4BE ; [.19F6.0020.0005] # MATHEMATICAL SCRIPT SMALL I
+1D4F2 ; [.19F6.0020.0005] # MATHEMATICAL BOLD SCRIPT SMALL I
+1D526 ; [.19F6.0020.0005] # MATHEMATICAL FRAKTUR SMALL I
+1D55A ; [.19F6.0020.0005] # MATHEMATICAL DOUBLE-STRUCK SMALL I
+1D58E ; [.19F6.0020.0005] # MATHEMATICAL BOLD FRAKTUR SMALL I
+1D5C2 ; [.19F6.0020.0005] # MATHEMATICAL SANS-SERIF SMALL I
+1D5F6 ; [.19F6.0020.0005] # MATHEMATICAL SANS-SERIF BOLD SMALL I
+1D62A ; [.19F6.0020.0005] # MATHEMATICAL SANS-SERIF ITALIC SMALL I
+1D65E ; [.19F6.0020.0005] # MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL I
+1D692 ; [.19F6.0020.0005] # MATHEMATICAL MONOSPACE SMALL I
+24D8  ; [.19F6.0020.0006] # CIRCLED LATIN SMALL LETTER I
+0049  ; [.19F6.0020.0008] # LATIN CAPITAL LETTER I
+FF29  ; [.19F6.0020.0009] # FULLWIDTH LATIN CAPITAL LETTER I
+2160  ; [.19F6.0020.000A] # ROMAN NUMERAL ONE
+1F118 ; [*030A.0020.0004][.19F6.0020.000A][*030B.0020.0004] # PARENTHESIZED LATIN CAPITAL LETTER I
+2110  ; [.19F6.0020.000B] # SCRIPT CAPITAL I
+2111  ; [.19F6.0020.000B] # BLACK-LETTER CAPITAL I
+1D408 ; [.19F6.0020.000B] # MATHEMATICAL BOLD CAPITAL I
+1D43C ; [.19F6.0020.000B] # MATHEMATICAL ITALIC CAPITAL I
+1D470 ; [.19F6.0020.000B] # MATHEMATICAL BOLD ITALIC CAPITAL I
+1D4D8 ; [.19F6.0020.000B] # MATHEMATICAL BOLD SCRIPT CAPITAL I
+1D540 ; [.19F6.0020.000B] # MATHEMATICAL DOUBLE-STRUCK CAPITAL I
+1D574 ; [.19F6.0020.000B] # MATHEMATICAL BOLD FRAKTUR CAPITAL I
+1D5A8 ; [.19F6.0020.000B] # MATHEMATICAL SANS-SERIF CAPITAL I
+1D5DC ; [.19F6.0020.000B] # MATHEMATICAL SANS-SERIF BOLD CAPITAL I
+1D610 ; [.19F6.0020.000B] # MATHEMATICAL SANS-SERIF ITALIC CAPITAL I
+1D644 ; [.19F6.0020.000B] # MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL I
+1D678 ; [.19F6.0020.000B] # MATHEMATICAL MONOSPACE CAPITAL I
+24BE  ; [.19F6.0020.000C] # CIRCLED LATIN CAPITAL LETTER I
+1F158 ; [.19F6.0020.000C] # NEGATIVE CIRCLED LATIN CAPITAL LETTER I
+2071  ; [.19F6.0020.0014] # SUPERSCRIPT LATIN SMALL LETTER I
+1D62  ; [.19F6.0020.0015] # LATIN SUBSCRIPT SMALL LETTER I
+1D35  ; [.19F6.0020.001D] # MODIFIER LETTER CAPITAL I
+1F138 ; [.19F6.0020.001D] # SQUARED LATIN CAPITAL LETTER I
+1F178 ; [.19F6.0020.001D] # NEGATIVE SQUARED LATIN CAPITAL LETTER I
+00ED  ; [.19F6.0020.0002][.0000.0024.0002] # LATIN SMALL LETTER I WITH ACUTE
+00CD  ; [.19F6.0020.0008][.0000.0024.0002] # LATIN CAPITAL LETTER I WITH ACUTE
+00EC  ; [.19F6.0020.0002][.0000.0025.0002] # LATIN SMALL LETTER I WITH GRAVE
+00CC  ; [.19F6.0020.0008][.0000.0025.0002] # LATIN CAPITAL LETTER I WITH GRAVE
+012D  ; [.19F6.0020.0002][.0000.0026.0002] # LATIN SMALL LETTER I WITH BREVE
+012C  ; [.19F6.0020.0008][.0000.0026.0002] # LATIN CAPITAL LETTER I WITH BREVE
+00EE  ; [.19F6.0020.0002][.0000.0027.0002] # LATIN SMALL LETTER I WITH CIRCUMFLEX
+00CE  ; [.19F6.0020.0008][.0000.0027.0002] # LATIN CAPITAL LETTER I WITH CIRCUMFLEX
+01D0  ; [.19F6.0020.0002][.0000.0028.0002] # LATIN SMALL LETTER I WITH CARON
+01CF  ; [.19F6.0020.0008][.0000.0028.0002] # LATIN CAPITAL LETTER I WITH CARON
+00EF  ; [.19F6.0020.0002][.0000.002B.0002] # LATIN SMALL LETTER I WITH DIAERESIS
+00CF  ; [.19F6.0020.0008][.0000.002B.0002] # LATIN CAPITAL LETTER I WITH DIAERESIS
+1E2F  ; [.19F6.0020.0002][.0000.002B.0002][.0000.0024.0002] # LATIN SMALL LETTER I WITH DIAERESIS AND ACUTE
+1E2E  ; [.19F6.0020.0008][.0000.002B.0002][.0000.0024.0002] # LATIN CAPITAL LETTER I WITH DIAERESIS AND ACUTE
+0129  ; [.19F6.0020.0002][.0000.002D.0002] # LATIN SMALL LETTER I WITH TILDE
+0128  ; [.19F6.0020.0008][.0000.002D.0002] # LATIN CAPITAL LETTER I WITH TILDE
+0130  ; [.19F6.0020.0008][.0000.002E.0002] # LATIN CAPITAL LETTER I WITH DOT ABOVE
+012F  ; [.19F6.0020.0002][.0000.0031.0002] # LATIN SMALL LETTER I WITH OGONEK
+012E  ; [.19F6.0020.0008][.0000.0031.0002] # LATIN CAPITAL LETTER I WITH OGONEK
+012B  ; [.19F6.0020.0002][.0000.0032.0002] # LATIN SMALL LETTER I WITH MACRON
+012A  ; [.19F6.0020.0008][.0000.0032.0002] # LATIN CAPITAL LETTER I WITH MACRON
+1EC9  ; [.19F6.0020.0002][.0000.003B.0002] # LATIN SMALL LETTER I WITH HOOK ABOVE
+1EC8  ; [.19F6.0020.0008][.0000.003B.0002] # LATIN CAPITAL LETTER I WITH HOOK ABOVE
+0209  ; [.19F6.0020.0002][.0000.003C.0002] # LATIN SMALL LETTER I WITH DOUBLE GRAVE
+0208  ; [.19F6.0020.0008][.0000.003C.0002] # LATIN CAPITAL LETTER I WITH DOUBLE GRAVE
+020B  ; [.19F6.0020.0002][.0000.003E.0002] # LATIN SMALL LETTER I WITH INVERTED BREVE
+020A  ; [.19F6.0020.0008][.0000.003E.0002] # LATIN CAPITAL LETTER I WITH INVERTED BREVE
+1ECB  ; [.19F6.0020.0002][.0000.0042.0002] # LATIN SMALL LETTER I WITH DOT BELOW
+1ECA  ; [.19F6.0020.0008][.0000.0042.0002] # LATIN CAPITAL LETTER I WITH DOT BELOW
+1E2D  ; [.19F6.0020.0002][.0000.0048.0002] # LATIN SMALL LETTER I WITH TILDE BELOW
+1E2C  ; [.19F6.0020.0008][.0000.0048.0002] # LATIN CAPITAL LETTER I WITH TILDE BELOW
+1F18B ; [.19F6.0020.001D][.193E.0020.001D] # NEGATIVE SQUARED IC
+1F194 ; [.19F6.0020.001D][.1953.0020.001D] # SQUARED ID
+2171  ; [.19F6.0020.0004][.19F6.0020.0004] # SMALL ROMAN NUMERAL TWO
+2161  ; [.19F6.0020.000A][.19F6.0020.000A] # ROMAN NUMERAL TWO
+2172  ; [.19F6.0020.0004][.19F6.0020.0004][.19F6.0020.0004] # SMALL ROMAN NUMERAL THREE
+2162  ; [.19F6.0020.000A][.19F6.0020.000A][.19F6.0020.000A] # ROMAN NUMERAL THREE
+0133  ; [.19F6.0020.0004][.1A10.0020.0004] # LATIN SMALL LIGATURE IJ
+0132  ; [.19F6.0020.000A][.1A10.0020.000A] # LATIN CAPITAL LIGATURE IJ
+33CC  ; [.19F6.0020.001C][.1A7D.0020.001C] # SQUARE IN
+337A  ; [.19F6.0020.001D][.1B77.0020.001D] # SQUARE IU
+2173  ; [.19F6.0020.0004][.1BA5.0020.0004] # SMALL ROMAN NUMERAL FOUR
+2163  ; [.19F6.0020.000A][.1BA5.0020.000A] # ROMAN NUMERAL FOUR
+2178  ; [.19F6.0020.0004][.1BC1.0020.0004] # SMALL ROMAN NUMERAL NINE
+2168  ; [.19F6.0020.000A][.1BC1.0020.000A] # ROMAN NUMERAL NINE
+0131  ; [.19FA.0020.0002] # LATIN SMALL LETTER DOTLESS I
+1D6A4 ; [.19FA.0020.0005] # MATHEMATICAL ITALIC SMALL DOTLESS I
+026A  ; [.19FE.0020.0002] # LATIN LETTER SMALL CAPITAL I
+1DA6  ; [.19FE.0020.0014] # MODIFIER LETTER SMALL CAPITAL I
+A7FE  ; [.1A02.0020.0002] # LATIN EPIGRAPHIC LETTER I LONGA
+A7F7  ; [.1A03.0020.0002] # LATIN EPIGRAPHIC LETTER SIDEWAYS I
+1D09  ; [.1A04.0020.0002] # LATIN SMALL LETTER TURNED I
+1D4E  ; [.1A04.0020.0014] # MODIFIER LETTER SMALL TURNED I
+0268  ; [.1A05.0020.0002] # LATIN SMALL LETTER I WITH STROKE
+0197  ; [.1A05.0020.0008] # LATIN CAPITAL LETTER I WITH STROKE
+1DA4  ; [.1A05.0020.0014] # MODIFIER LETTER SMALL I WITH STROKE
+1D7B  ; [.1A09.0020.0002] # LATIN SMALL CAPITAL LETTER I WITH STROKE
+1DA7  ; [.1A09.0020.0014] # MODIFIER LETTER SMALL CAPITAL I WITH STROKE
+1D96  ; [.1A0A.0020.0002] # LATIN SMALL LETTER I WITH RETROFLEX HOOK
+0269  ; [.1A0B.0020.0002] # LATIN SMALL LETTER IOTA
+0196  ; [.1A0B.0020.0008] # LATIN CAPITAL LETTER IOTA
+1DA5  ; [.1A0B.0020.0014] # MODIFIER LETTER SMALL IOTA
+1D7C  ; [.1A0F.0020.0002] # LATIN SMALL LETTER IOTA WITH STROKE
+006A  ; [.1A10.0020.0002] # LATIN SMALL LETTER J
+FF4A  ; [.1A10.0020.0003] # FULLWIDTH LATIN SMALL LETTER J
+24A5  ; [*030A.0020.0004][.1A10.0020.0004][*030B.0020.0004] # PARENTHESIZED LATIN SMALL LETTER J
+2149  ; [.1A10.0020.0005] # DOUBLE-STRUCK ITALIC SMALL J
+1D423 ; [.1A10.0020.0005] # MATHEMATICAL BOLD SMALL J
+1D457 ; [.1A10.0020.0005] # MATHEMATICAL ITALIC SMALL J
+1D48B ; [.1A10.0020.0005] # MATHEMATICAL BOLD ITALIC SMALL J
+1D4BF ; [.1A10.0020.0005] # MATHEMATICAL SCRIPT SMALL J
+1D4F3 ; [.1A10.0020.0005] # MATHEMATICAL BOLD SCRIPT SMALL J
+1D527 ; [.1A10.0020.0005] # MATHEMATICAL FRAKTUR SMALL J
+1D55B ; [.1A10.0020.0005] # MATHEMATICAL DOUBLE-STRUCK SMALL J
+1D58F ; [.1A10.0020.0005] # MATHEMATICAL BOLD FRAKTUR SMALL J
+1D5C3 ; [.1A10.0020.0005] # MATHEMATICAL SANS-SERIF SMALL J
+1D5F7 ; [.1A10.0020.0005] # MATHEMATICAL SANS-SERIF BOLD SMALL J
+1D62B ; [.1A10.0020.0005] # MATHEMATICAL SANS-SERIF ITALIC SMALL J
+1D65F ; [.1A10.0020.0005] # MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL J
+1D693 ; [.1A10.0020.0005] # MATHEMATICAL MONOSPACE SMALL J
+24D9  ; [.1A10.0020.0006] # CIRCLED LATIN SMALL LETTER J
+004A  ; [.1A10.0020.0008] # LATIN CAPITAL LETTER J
+FF2A  ; [.1A10.0020.0009] # FULLWIDTH LATIN CAPITAL LETTER J
+1F119 ; [*030A.0020.0004][.1A10.0020.000A][*030B.0020.0004] # PARENTHESIZED LATIN CAPITAL LETTER J
+1D409 ; [.1A10.0020.000B] # MATHEMATICAL BOLD CAPITAL J
+1D43D ; [.1A10.0020.000B] # MATHEMATICAL ITALIC CAPITAL J
+1D471 ; [.1A10.0020.000B] # MATHEMATICAL BOLD ITALIC CAPITAL J
+1D4A5 ; [.1A10.0020.000B] # MATHEMATICAL SCRIPT CAPITAL J
+1D4D9 ; [.1A10.0020.000B] # MATHEMATICAL BOLD SCRIPT CAPITAL J
+1D50D ; [.1A10.0020.000B] # MATHEMATICAL FRAKTUR CAPITAL J
+1D541 ; [.1A10.0020.000B] # MATHEMATICAL DOUBLE-STRUCK CAPITAL J
+1D575 ; [.1A10.0020.000B] # MATHEMATICAL BOLD FRAKTUR CAPITAL J
+1D5A9 ; [.1A10.0020.000B] # MATHEMATICAL SANS-SERIF CAPITAL J
+1D5DD ; [.1A10.0020.000B] # MATHEMATICAL SANS-SERIF BOLD CAPITAL J
+1D611 ; [.1A10.0020.000B] # MATHEMATICAL SANS-SERIF ITALIC CAPITAL J
+1D645 ; [.1A10.0020.000B] # MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL J
+1D679 ; [.1A10.0020.000B] # MATHEMATICAL MONOSPACE CAPITAL J
+24BF  ; [.1A10.0020.000C] # CIRCLED LATIN CAPITAL LETTER J
+1F159 ; [.1A10.0020.000C] # NEGATIVE CIRCLED LATIN CAPITAL LETTER J
+02B2  ; [.1A10.0020.0014] # MODIFIER LETTER SMALL J
+2C7C  ; [.1A10.0020.0015] # LATIN SUBSCRIPT SMALL LETTER J
+1D36  ; [.1A10.0020.001D] # MODIFIER LETTER CAPITAL J
+1F139 ; [.1A10.0020.001D] # SQUARED LATIN CAPITAL LETTER J
+1F179 ; [.1A10.0020.001D] # NEGATIVE SQUARED LATIN CAPITAL LETTER J
+0135  ; [.1A10.0020.0002][.0000.0027.0002] # LATIN SMALL LETTER J WITH CIRCUMFLEX
+0134  ; [.1A10.0020.0008][.0000.0027.0002] # LATIN CAPITAL LETTER J WITH CIRCUMFLEX
+01F0  ; [.1A10.0020.0002][.0000.0028.0002] # LATIN SMALL LETTER J WITH CARON
+0237  ; [.1A14.0020.0002] # LATIN SMALL LETTER DOTLESS J
+1D6A5 ; [.1A14.0020.0005] # MATHEMATICAL ITALIC SMALL DOTLESS J
+1D0A  ; [.1A18.0020.0002] # LATIN LETTER SMALL CAPITAL J
+0249  ; [.1A19.0020.0002] # LATIN SMALL LETTER J WITH STROKE
+0248  ; [.1A19.0020.0008] # LATIN CAPITAL LETTER J WITH STROKE
+029D  ; [.1A1D.0020.0002] # LATIN SMALL LETTER J WITH CROSSED-TAIL
+1DA8  ; [.1A1D.0020.0014] # MODIFIER LETTER SMALL J WITH CROSSED-TAIL
+025F  ; [.1A21.0020.0002] # LATIN SMALL LETTER DOTLESS J WITH STROKE
+1DA1  ; [.1A21.0020.0014] # MODIFIER LETTER SMALL DOTLESS J WITH STROKE
+0284  ; [.1A25.0020.0002] # LATIN SMALL LETTER DOTLESS J WITH STROKE AND HOOK
+006B  ; [.1A29.0020.0002] # LATIN SMALL LETTER K
+FF4B  ; [.1A29.0020.0003] # FULLWIDTH LATIN SMALL LETTER K
+1DDC  ; [.1A29.0020.0004] # COMBINING LATIN SMALL LETTER K
+24A6  ; [*030A.0020.0004][.1A29.0020.0004][*030B.0020.0004] # PARENTHESIZED LATIN SMALL LETTER K
+1D424 ; [.1A29.0020.0005] # MATHEMATICAL BOLD SMALL K
+1D458 ; [.1A29.0020.0005] # MATHEMATICAL ITALIC SMALL K
+1D48C ; [.1A29.0020.0005] # MATHEMATICAL BOLD ITALIC SMALL K
+1D4C0 ; [.1A29.0020.0005] # MATHEMATICAL SCRIPT SMALL K
+1D4F4 ; [.1A29.0020.0005] # MATHEMATICAL BOLD SCRIPT SMALL K
+1D528 ; [.1A29.0020.0005] # MATHEMATICAL FRAKTUR SMALL K
+1D55C ; [.1A29.0020.0005] # MATHEMATICAL DOUBLE-STRUCK SMALL K
+1D590 ; [.1A29.0020.0005] # MATHEMATICAL BOLD FRAKTUR SMALL K
+1D5C4 ; [.1A29.0020.0005] # MATHEMATICAL SANS-SERIF SMALL K
+1D5F8 ; [.1A29.0020.0005] # MATHEMATICAL SANS-SERIF BOLD SMALL K
+1D62C ; [.1A29.0020.0005] # MATHEMATICAL SANS-SERIF ITALIC SMALL K
+1D660 ; [.1A29.0020.0005] # MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL K
+1D694 ; [.1A29.0020.0005] # MATHEMATICAL MONOSPACE SMALL K
+24DA  ; [.1A29.0020.0006] # CIRCLED LATIN SMALL LETTER K
+004B  ; [.1A29.0020.0008] # LATIN CAPITAL LETTER K
+212A  ; [.1A29.0020.0008] # KELVIN SIGN
+FF2B  ; [.1A29.0020.0009] # FULLWIDTH LATIN CAPITAL LETTER K
+1F11A ; [*030A.0020.0004][.1A29.0020.000A][*030B.0020.0004] # PARENTHESIZED LATIN CAPITAL LETTER K
+1D40A ; [.1A29.0020.000B] # MATHEMATICAL BOLD CAPITAL K
+1D43E ; [.1A29.0020.000B] # MATHEMATICAL ITALIC CAPITAL K
+1D472 ; [.1A29.0020.000B] # MATHEMATICAL BOLD ITALIC CAPITAL K
+1D4A6 ; [.1A29.0020.000B] # MATHEMATICAL SCRIPT CAPITAL K
+1D4DA ; [.1A29.0020.000B] # MATHEMATICAL BOLD SCRIPT CAPITAL K
+1D50E ; [.1A29.0020.000B] # MATHEMATICAL FRAKTUR CAPITAL K
+1D542 ; [.1A29.0020.000B] # MATHEMATICAL DOUBLE-STRUCK CAPITAL K
+1D576 ; [.1A29.0020.000B] # MATHEMATICAL BOLD FRAKTUR CAPITAL K
+1D5AA ; [.1A29.0020.000B] # MATHEMATICAL SANS-SERIF CAPITAL K
+1D5DE ; [.1A29.0020.000B] # MATHEMATICAL SANS-SERIF BOLD CAPITAL K
+1D612 ; [.1A29.0020.000B] # MATHEMATICAL SANS-SERIF ITALIC CAPITAL K
+1D646 ; [.1A29.0020.000B] # MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL K
+1D67A ; [.1A29.0020.000B] # MATHEMATICAL MONOSPACE CAPITAL K
+24C0  ; [.1A29.0020.000C] # CIRCLED LATIN CAPITAL LETTER K
+1F15A ; [.1A29.0020.000C] # NEGATIVE CIRCLED LATIN CAPITAL LETTER K
+1D4F  ; [.1A29.0020.0014] # MODIFIER LETTER SMALL K
+2096  ; [.1A29.0020.0015] # LATIN SUBSCRIPT SMALL LETTER K
+1D37  ; [.1A29.0020.001D] # MODIFIER LETTER CAPITAL K
+1F13A ; [.1A29.0020.001D] # SQUARED LATIN CAPITAL LETTER K
+1F17A ; [.1A29.0020.001D] # NEGATIVE SQUARED LATIN CAPITAL LETTER K
+1E31  ; [.1A29.0020.0002][.0000.0024.0002] # LATIN SMALL LETTER K WITH ACUTE
+1E30  ; [.1A29.0020.0008][.0000.0024.0002] # LATIN CAPITAL LETTER K WITH ACUTE
+01E9  ; [.1A29.0020.0002][.0000.0028.0002] # LATIN SMALL LETTER K WITH CARON
+01E8  ; [.1A29.0020.0008][.0000.0028.0002] # LATIN CAPITAL LETTER K WITH CARON
+0137  ; [.1A29.0020.0002][.0000.0030.0002] # LATIN SMALL LETTER K WITH CEDILLA
+0136  ; [.1A29.0020.0008][.0000.0030.0002] # LATIN CAPITAL LETTER K WITH CEDILLA
+A7A3  ; [.1A29.0020.0004][.0000.0035.0004] # LATIN SMALL LETTER K WITH OBLIQUE STROKE
+A7A2  ; [.1A29.0020.000A][.0000.0035.0004] # LATIN CAPITAL LETTER K WITH OBLIQUE STROKE
+1E33  ; [.1A29.0020.0002][.0000.0042.0002] # LATIN SMALL LETTER K WITH DOT BELOW
+1E32  ; [.1A29.0020.0008][.0000.0042.0002] # LATIN CAPITAL LETTER K WITH DOT BELOW
+1E35  ; [.1A29.0020.0002][.0000.0049.0002] # LATIN SMALL LETTER K WITH LINE BELOW
+1E34  ; [.1A29.0020.0008][.0000.0049.0002] # LATIN CAPITAL LETTER K WITH LINE BELOW
+3384  ; [.1A29.0020.001C][.190C.0020.001D] # SQUARE KA
+3385  ; [.1A29.0020.001D][.1925.0020.001D] # SQUARE KB
+3389  ; [.1A29.0020.001C][.193E.0020.001C][.190C.0020.001C][.1A3B.0020.001C] # SQUARE KCAL
+338F  ; [.1A29.0020.001C][.19B8.0020.001C] # SQUARE KG
+3391  ; [.1A29.0020.001C][.19DC.0020.001D][.1BE3.0020.001C] # SQUARE KHZ
+33CD  ; [.1A29.0020.001D][.1A29.0020.001D] # SQUARE KK
+3398  ; [.1A29.0020.001C][.1A3B.0020.001C] # SQUARE KL
+339E  ; [.1A29.0020.001C][.1A6E.0020.001C] # SQUARE KM
+33CE  ; [.1A29.0020.001D][.1A6E.0020.001D] # SQUARE KM CAPITAL
+33A2  ; [.1A29.0020.001C][.1A6E.0020.001C][.1904.0020.001C] # SQUARE KM SQUARED
+33A6  ; [.1A29.0020.001C][.1A6E.0020.001C][.1905.0020.001C] # SQUARE KM CUBED
+33AA  ; [.1A29.0020.001C][.1ACE.0020.001D][.190C.0020.001C] # SQUARE KPA
+33CF  ; [.1A29.0020.001C][.1B57.0020.001C] # SQUARE KT
+33B8  ; [.1A29.0020.001C][.1BA5.0020.001D] # SQUARE KV
+33BE  ; [.1A29.0020.001C][.1BB7.0020.001D] # SQUARE KW
+33C0  ; [.1A29.0020.001C][.1C9F.0020.001D] # SQUARE K OHM
+1D0B  ; [.1A2D.0020.0002] # LATIN LETTER SMALL CAPITAL K
+1D84  ; [.1A2E.0020.0002] # LATIN SMALL LETTER K WITH PALATAL HOOK
+0199  ; [.1A2F.0020.0002] # LATIN SMALL LETTER K WITH HOOK
+0198  ; [.1A2F.0020.0008] # LATIN CAPITAL LETTER K WITH HOOK
+2C6A  ; [.1A33.0020.0002] # LATIN SMALL LETTER K WITH DESCENDER
+2C69  ; [.1A33.0020.0008] # LATIN CAPITAL LETTER K WITH DESCENDER
+A741  ; [.1A34.0020.0002] # LATIN SMALL LETTER K WITH STROKE
+A740  ; [.1A34.0020.0008] # LATIN CAPITAL LETTER K WITH STROKE
+A743  ; [.1A35.0020.0002] # LATIN SMALL LETTER K WITH DIAGONAL STROKE
+A742  ; [.1A35.0020.0008] # LATIN CAPITAL LETTER K WITH DIAGONAL STROKE
+A745  ; [.1A36.0020.0002] # LATIN SMALL LETTER K WITH STROKE AND DIAGONAL STROKE
+A744  ; [.1A36.0020.0008] # LATIN CAPITAL LETTER K WITH STROKE AND DIAGONAL STROKE
+029E  ; [.1A37.0020.0002] # LATIN SMALL LETTER TURNED K
+A7B0  ; [.1A37.0020.0008] # LATIN CAPITAL LETTER TURNED K
+006C  ; [.1A3B.0020.0002] # LATIN SMALL LETTER L
+FF4C  ; [.1A3B.0020.0003] # FULLWIDTH LATIN SMALL LETTER L
+1DDD  ; [.1A3B.0020.0004] # COMBINING LATIN SMALL LETTER L
+217C  ; [.1A3B.0020.0004] # SMALL ROMAN NUMERAL FIFTY
+24A7  ; [*030A.0020.0004][.1A3B.0020.0004][*030B.0020.0004] # PARENTHESIZED LATIN SMALL LETTER L
+2113  ; [.1A3B.0020.0005] # SCRIPT SMALL L
+1D425 ; [.1A3B.0020.0005] # MATHEMATICAL BOLD SMALL L
+1D459 ; [.1A3B.0020.0005] # MATHEMATICAL ITALIC SMALL L
+1D48D ; [.1A3B.0020.0005] # MATHEMATICAL BOLD ITALIC SMALL L
+1D4C1 ; [.1A3B.0020.0005] # MATHEMATICAL SCRIPT SMALL L
+1D4F5 ; [.1A3B.0020.0005] # MATHEMATICAL BOLD SCRIPT SMALL L
+1D529 ; [.1A3B.0020.0005] # MATHEMATICAL FRAKTUR SMALL L
+1D55D ; [.1A3B.0020.0005] # MATHEMATICAL DOUBLE-STRUCK SMALL L
+1D591 ; [.1A3B.0020.0005] # MATHEMATICAL BOLD FRAKTUR SMALL L
+1D5C5 ; [.1A3B.0020.0005] # MATHEMATICAL SANS-SERIF SMALL L
+1D5F9 ; [.1A3B.0020.0005] # MATHEMATICAL SANS-SERIF BOLD SMALL L
+1D62D ; [.1A3B.0020.0005] # MATHEMATICAL SANS-SERIF ITALIC SMALL L
+1D661 ; [.1A3B.0020.0005] # MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL L
+1D695 ; [.1A3B.0020.0005] # MATHEMATICAL MONOSPACE SMALL L
+24DB  ; [.1A3B.0020.0006] # CIRCLED LATIN SMALL LETTER L
+004C  ; [.1A3B.0020.0008] # LATIN CAPITAL LETTER L
+FF2C  ; [.1A3B.0020.0009] # FULLWIDTH LATIN CAPITAL LETTER L
+216C  ; [.1A3B.0020.000A] # ROMAN NUMERAL FIFTY
+1F11B ; [*030A.0020.0004][.1A3B.0020.000A][*030B.0020.0004] # PARENTHESIZED LATIN CAPITAL LETTER L
+2112  ; [.1A3B.0020.000B] # SCRIPT CAPITAL L
+1D40B ; [.1A3B.0020.000B] # MATHEMATICAL BOLD CAPITAL L
+1D43F ; [.1A3B.0020.000B] # MATHEMATICAL ITALIC CAPITAL L
+1D473 ; [.1A3B.0020.000B] # MATHEMATICAL BOLD ITALIC CAPITAL L
+1D4DB ; [.1A3B.0020.000B] # MATHEMATICAL BOLD SCRIPT CAPITAL L
+1D50F ; [.1A3B.0020.000B] # MATHEMATICAL FRAKTUR CAPITAL L
+1D543 ; [.1A3B.0020.000B] # MATHEMATICAL DOUBLE-STRUCK CAPITAL L
+1D577 ; [.1A3B.0020.000B] # MATHEMATICAL BOLD FRAKTUR CAPITAL L
+1D5AB ; [.1A3B.0020.000B] # MATHEMATICAL SANS-SERIF CAPITAL L
+1D5DF ; [.1A3B.0020.000B] # MATHEMATICAL SANS-SERIF BOLD CAPITAL L
+1D613 ; [.1A3B.0020.000B] # MATHEMATICAL SANS-SERIF ITALIC CAPITAL L
+1D647 ; [.1A3B.0020.000B] # MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL L
+1D67B ; [.1A3B.0020.000B] # MATHEMATICAL MONOSPACE CAPITAL L
+24C1  ; [.1A3B.0020.000C] # CIRCLED LATIN CAPITAL LETTER L
+1F15B ; [.1A3B.0020.000C] # NEGATIVE CIRCLED LATIN CAPITAL LETTER L
+02E1  ; [.1A3B.0020.0014] # MODIFIER LETTER SMALL L
+2097  ; [.1A3B.0020.0015] # LATIN SUBSCRIPT SMALL LETTER L
+1D38  ; [.1A3B.0020.001D] # MODIFIER LETTER CAPITAL L
+1F13B ; [.1A3B.0020.001D] # SQUARED LATIN CAPITAL LETTER L
+1F17B ; [.1A3B.0020.001D] # NEGATIVE SQUARED LATIN CAPITAL LETTER L
+013A  ; [.1A3B.0020.0002][.0000.0024.0002] # LATIN SMALL LETTER L WITH ACUTE
+0139  ; [.1A3B.0020.0008][.0000.0024.0002] # LATIN CAPITAL LETTER L WITH ACUTE
+013E  ; [.1A3B.0020.0002][.0000.0028.0002] # LATIN SMALL LETTER L WITH CARON
+013D  ; [.1A3B.0020.0008][.0000.0028.0002] # LATIN CAPITAL LETTER L WITH CARON
+013C  ; [.1A3B.0020.0002][.0000.0030.0002] # LATIN SMALL LETTER L WITH CEDILLA
+013B  ; [.1A3B.0020.0008][.0000.0030.0002] # LATIN CAPITAL LETTER L WITH CEDILLA
+0142  ; [.1A3B.0020.0002][.0000.0039.0002] # LATIN SMALL LETTER L WITH STROKE
+0141  ; [.1A3B.0020.0008][.0000.0039.0002] # LATIN CAPITAL LETTER L WITH STROKE
+1E37  ; [.1A3B.0020.0002][.0000.0042.0002] # LATIN SMALL LETTER L WITH DOT BELOW
+1E36  ; [.1A3B.0020.0008][.0000.0042.0002] # LATIN CAPITAL LETTER L WITH DOT BELOW
+1E39  ; [.1A3B.0020.0002][.0000.0042.0002][.0000.0032.0002] # LATIN SMALL LETTER L WITH DOT BELOW AND MACRON
+1E38  ; [.1A3B.0020.0008][.0000.0042.0002][.0000.0032.0002] # LATIN CAPITAL LETTER L WITH DOT BELOW AND MACRON
+1E3D  ; [.1A3B.0020.0002][.0000.0046.0002] # LATIN SMALL LETTER L WITH CIRCUMFLEX BELOW
+1E3C  ; [.1A3B.0020.0008][.0000.0046.0002] # LATIN CAPITAL LETTER L WITH CIRCUMFLEX BELOW
+1E3B  ; [.1A3B.0020.0002][.0000.0049.0002] # LATIN SMALL LETTER L WITH LINE BELOW
+1E3A  ; [.1A3B.0020.0008][.0000.0049.0002] # LATIN CAPITAL LETTER L WITH LINE BELOW
+0140  ; [.1A3B.0020.0002][.0000.0108.0002] # LATIN SMALL LETTER L WITH MIDDLE DOT
+006C 00B7 ; [.1A3B.0020.0002][.0000.0108.0002] # LATIN SMALL LETTER L WITH MIDDLE DOT
+006C 0387 ; [.1A3B.0020.0002][.0000.0108.0002] # LATIN SMALL LETTER L WITH MIDDLE DOT
+013F  ; [.1A3B.0020.0008][.0000.0108.0002] # LATIN CAPITAL LETTER L WITH MIDDLE DOT
+004C 00B7 ; [.1A3B.0020.0008][.0000.0108.0002] # LATIN CAPITAL LETTER L WITH MIDDLE DOT
+004C 0387 ; [.1A3B.0020.0008][.0000.0108.0002] # LATIN CAPITAL LETTER L WITH MIDDLE DOT
+01C9  ; [.1A3B.0020.0004][.1A10.0020.0004] # LATIN SMALL LETTER LJ
+01C8  ; [.1A3B.0020.000A][.1A10.0020.0004] # LATIN CAPITAL LETTER L WITH SMALL LETTER J
+01C7  ; [.1A3B.0020.000A][.1A10.0020.000A] # LATIN CAPITAL LETTER LJ
+1EFB  ; [.1A3B.0020.0004][.1A3B.0020.0004] # LATIN SMALL LETTER MIDDLE-WELSH LL
+1EFA  ; [.1A3B.0020.000A][.1A3B.0020.000A] # LATIN CAPITAL LETTER MIDDLE-WELSH LL
+33D0  ; [.1A3B.0020.001C][.1A6E.0020.001C] # SQUARE LM
+33D1  ; [.1A3B.0020.001C][.1A7D.0020.001C] # SQUARE LN
+33D2  ; [.1A3B.0020.001C][.1AA1.0020.001C][.19B8.0020.001C] # SQUARE LOG
+02AA  ; [.1A3B.0020.0004][.1B33.0020.0004] # LATIN SMALL LETTER LS DIGRAPH
+32CF  ; [.1A3B.0020.001D][.1B57.0020.001D][.1953.0020.001D] # LIMITED LIABILITY SIGN
+33D3  ; [.1A3B.0020.001C][.1BC1.0020.001C] # SQUARE LX
+02AB  ; [.1A3B.0020.0004][.1BE3.0020.0004] # LATIN SMALL LETTER LZ DIGRAPH
+029F  ; [.1A3F.0020.0002] # LATIN LETTER SMALL CAPITAL L
+1DDE  ; [.1A3F.0020.0004] # COMBINING LATIN LETTER SMALL CAPITAL L
+1DAB  ; [.1A3F.0020.0014] # MODIFIER LETTER SMALL CAPITAL L
+A747  ; [.1A43.0020.0002] # LATIN SMALL LETTER BROKEN L
+A746  ; [.1A43.0020.0008] # LATIN CAPITAL LETTER BROKEN L
+1D0C  ; [.1A44.0020.0002] # LATIN LETTER SMALL CAPITAL L WITH STROKE
+A749  ; [.1A45.0020.0002] # LATIN SMALL LETTER L WITH HIGH STROKE
+A748  ; [.1A45.0020.0008] # LATIN CAPITAL LETTER L WITH HIGH STROKE
+019A  ; [.1A46.0020.0002] # LATIN SMALL LETTER L WITH BAR
+023D  ; [.1A46.0020.0008] # LATIN CAPITAL LETTER L WITH BAR
+2C61  ; [.1A4A.0020.0002] # LATIN SMALL LETTER L WITH DOUBLE BAR
+2C60  ; [.1A4A.0020.0008] # LATIN CAPITAL LETTER L WITH DOUBLE BAR
+026B  ; [.1A4B.0020.0002] # LATIN SMALL LETTER L WITH MIDDLE TILDE
+2C62  ; [.1A4B.0020.0008] # LATIN CAPITAL LETTER L WITH MIDDLE TILDE
+AB5E  ; [.1A4B.0020.0014] # MODIFIER LETTER SMALL L WITH MIDDLE TILDE
+AB38  ; [.1A4F.0020.0002] # LATIN SMALL LETTER L WITH DOUBLE MIDDLE TILDE
+1DEC  ; [.1A4F.0020.0004] # COMBINING LATIN SMALL LETTER L WITH DOUBLE MIDDLE TILDE
+AB39  ; [.1A50.0020.0002] # LATIN SMALL LETTER L WITH MIDDLE RING
+026C  ; [.1A51.0020.0002] # LATIN SMALL LETTER L WITH BELT
+A7AD  ; [.1A51.0020.0008] # LATIN CAPITAL LETTER L WITH BELT
+AB37  ; [.1A55.0020.0002] # LATIN SMALL LETTER L WITH INVERTED LAZY S
+AB5D  ; [.1A55.0020.0014] # MODIFIER LETTER SMALL L WITH INVERTED LAZY S
+1D85  ; [.1A56.0020.0002] # LATIN SMALL LETTER L WITH PALATAL HOOK
+1DAA  ; [.1A56.0020.0014] # MODIFIER LETTER SMALL L WITH PALATAL HOOK
+026D  ; [.1A57.0020.0002] # LATIN SMALL LETTER L WITH RETROFLEX HOOK
+1DA9  ; [.1A57.0020.0014] # MODIFIER LETTER SMALL L WITH RETROFLEX HOOK
+A78E  ; [.1A5B.0020.0002] # LATIN SMALL LETTER L WITH RETROFLEX HOOK AND BELT
+0234  ; [.1A5C.0020.0002] # LATIN SMALL LETTER L WITH CURL
+A772  ; [.1A60.0020.0002] # LATIN SMALL LETTER LUM
+026E  ; [.1A61.0020.0002] # LATIN SMALL LETTER LEZH
+A781  ; [.1A65.0020.0002] # LATIN SMALL LETTER TURNED L
+A780  ; [.1A65.0020.0008] # LATIN CAPITAL LETTER TURNED L
+019B  ; [.1A66.0020.0002] # LATIN SMALL LETTER LAMBDA WITH STROKE
+028E  ; [.1A6A.0020.0002] # LATIN SMALL LETTER TURNED Y
+006D  ; [.1A6E.0020.0002] # LATIN SMALL LETTER M
+FF4D  ; [.1A6E.0020.0003] # FULLWIDTH LATIN SMALL LETTER M
+036B  ; [.1A6E.0020.0004] # COMBINING LATIN SMALL LETTER M
+217F  ; [.1A6E.0020.0004] # SMALL ROMAN NUMERAL ONE THOUSAND
+24A8  ; [*030A.0020.0004][.1A6E.0020.0004][*030B.0020.0004] # PARENTHESIZED LATIN SMALL LETTER M
+1D426 ; [.1A6E.0020.0005] # MATHEMATICAL BOLD SMALL M
+1D45A ; [.1A6E.0020.0005] # MATHEMATICAL ITALIC SMALL M
+1D48E ; [.1A6E.0020.0005] # MATHEMATICAL BOLD ITALIC SMALL M
+1D4C2 ; [.1A6E.0020.0005] # MATHEMATICAL SCRIPT SMALL M
+1D4F6 ; [.1A6E.0020.0005] # MATHEMATICAL BOLD SCRIPT SMALL M
+1D52A ; [.1A6E.0020.0005] # MATHEMATICAL FRAKTUR SMALL M
+1D55E ; [.1A6E.0020.0005] # MATHEMATICAL DOUBLE-STRUCK SMALL M
+1D592 ; [.1A6E.0020.0005] # MATHEMATICAL BOLD FRAKTUR SMALL M
+1D5C6 ; [.1A6E.0020.0005] # MATHEMATICAL SANS-SERIF SMALL M
+1D5FA ; [.1A6E.0020.0005] # MATHEMATICAL SANS-SERIF BOLD SMALL M
+1D62E ; [.1A6E.0020.0005] # MATHEMATICAL SANS-SERIF ITALIC SMALL M
+1D662 ; [.1A6E.0020.0005] # MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL M
+1D696 ; [.1A6E.0020.0005] # MATHEMATICAL MONOSPACE SMALL M
+24DC  ; [.1A6E.0020.0006] # CIRCLED LATIN SMALL LETTER M
+004D  ; [.1A6E.0020.0008] # LATIN CAPITAL LETTER M
+FF2D  ; [.1A6E.0020.0009] # FULLWIDTH LATIN CAPITAL LETTER M
+216F  ; [.1A6E.0020.000A] # ROMAN NUMERAL ONE THOUSAND
+1F11C ; [*030A.0020.0004][.1A6E.0020.000A][*030B.0020.0004] # PARENTHESIZED LATIN CAPITAL LETTER M
+2133  ; [.1A6E.0020.000B] # SCRIPT CAPITAL M
+1D40C ; [.1A6E.0020.000B] # MATHEMATICAL BOLD CAPITAL M
+1D440 ; [.1A6E.0020.000B] # MATHEMATICAL ITALIC CAPITAL M
+1D474 ; [.1A6E.0020.000B] # MATHEMATICAL BOLD ITALIC CAPITAL M
+1D4DC ; [.1A6E.0020.000B] # MATHEMATICAL BOLD SCRIPT CAPITAL M
+1D510 ; [.1A6E.0020.000B] # MATHEMATICAL FRAKTUR CAPITAL M
+1D544 ; [.1A6E.0020.000B] # MATHEMATICAL DOUBLE-STRUCK CAPITAL M
+1D578 ; [.1A6E.0020.000B] # MATHEMATICAL BOLD FRAKTUR CAPITAL M
+1D5AC ; [.1A6E.0020.000B] # MATHEMATICAL SANS-SERIF CAPITAL M
+1D5E0 ; [.1A6E.0020.000B] # MATHEMATICAL SANS-SERIF BOLD CAPITAL M
+1D614 ; [.1A6E.0020.000B] # MATHEMATICAL SANS-SERIF ITALIC CAPITAL M
+1D648 ; [.1A6E.0020.000B] # MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL M
+1D67C ; [.1A6E.0020.000B] # MATHEMATICAL MONOSPACE CAPITAL M
+24C2  ; [.1A6E.0020.000C] # CIRCLED LATIN CAPITAL LETTER M
+1F15C ; [.1A6E.0020.000C] # NEGATIVE CIRCLED LATIN CAPITAL LETTER M
+1D50  ; [.1A6E.0020.0014] # MODIFIER LETTER SMALL M
+2098  ; [.1A6E.0020.0015] # LATIN SUBSCRIPT SMALL LETTER M
+1D39  ; [.1A6E.0020.001D] # MODIFIER LETTER CAPITAL M
+1F13C ; [.1A6E.0020.001D] # SQUARED LATIN CAPITAL LETTER M
+1F17C ; [.1A6E.0020.001D] # NEGATIVE SQUARED LATIN CAPITAL LETTER M
+1E3F  ; [.1A6E.0020.0002][.0000.0024.0002] # LATIN SMALL LETTER M WITH ACUTE
+1E3E  ; [.1A6E.0020.0008][.0000.0024.0002] # LATIN CAPITAL LETTER M WITH ACUTE
+1E41  ; [.1A6E.0020.0002][.0000.002E.0002] # LATIN SMALL LETTER M WITH DOT ABOVE
+1E40  ; [.1A6E.0020.0008][.0000.002E.0002] # LATIN CAPITAL LETTER M WITH DOT ABOVE
+1E43  ; [.1A6E.0020.0002][.0000.0042.0002] # LATIN SMALL LETTER M WITH DOT BELOW
+1E42  ; [.1A6E.0020.0008][.0000.0042.0002] # LATIN CAPITAL LETTER M WITH DOT BELOW
+33A1  ; [.1A6E.0020.001C][.1904.0020.001C] # SQUARE M SQUARED
+33A5  ; [.1A6E.0020.001C][.1905.0020.001C] # SQUARE M CUBED
+3383  ; [.1A6E.0020.001C][.190C.0020.001D] # SQUARE MA
+33D4  ; [.1A6E.0020.001C][.1925.0020.001C] # SQUARE MB SMALL
+3386  ; [.1A6E.0020.001D][.1925.0020.001D] # SQUARE MB
+1F16A ; [.1A6E.0020.0014][.193E.0020.0014] # RAISED MC SIGN
+1F16B ; [.1A6E.0020.0014][.1953.0020.0014] # RAISED MD SIGN
+338E  ; [.1A6E.0020.001C][.19B8.0020.001C] # SQUARE MG
+3392  ; [.1A6E.0020.001D][.19DC.0020.001D][.1BE3.0020.001C] # SQUARE MHZ
+33D5  ; [.1A6E.0020.001C][.19F6.0020.001C][.1A3B.0020.001C] # SQUARE MIL
+3396  ; [.1A6E.0020.001C][.1A3B.0020.001C] # SQUARE ML
+339C  ; [.1A6E.0020.001C][.1A6E.0020.001C] # SQUARE MM
+339F  ; [.1A6E.0020.001C][.1A6E.0020.001C][.1904.0020.001C] # SQUARE MM SQUARED
+33A3  ; [.1A6E.0020.001C][.1A6E.0020.001C][.1905.0020.001C] # SQUARE MM CUBED
+33D6  ; [.1A6E.0020.001C][.1AA1.0020.001C][.1A3B.0020.001C] # SQUARE MOL
+33AB  ; [.1A6E.0020.001D][.1ACE.0020.001D][.190C.0020.001C] # SQUARE MPA
+33A7  ; [.1A6E.0020.001C][*05E5.0020.001C][.1B33.0020.001C] # SQUARE M OVER S
+33B3  ; [.1A6E.0020.001C][.1B33.0020.001C] # SQUARE MS
+33A8  ; [.1A6E.0020.001C][*05E5.0020.001C][.1B33.0020.001C][.1904.0020.001C] # SQUARE M OVER S SQUARED
+33B7  ; [.1A6E.0020.001C][.1BA5.0020.001D] # SQUARE MV
+33B9  ; [.1A6E.0020.001D][.1BA5.0020.001D] # SQUARE MV MEGA
+1F14B ; [.1A6E.0020.001D][.1BA5.0020.001D] # SQUARED MV
+33BD  ; [.1A6E.0020.001C][.1BB7.0020.001D] # SQUARE MW
+33BF  ; [.1A6E.0020.001D][.1BB7.0020.001D] # SQUARE MW MEGA
+33C1  ; [.1A6E.0020.001D][.1C9F.0020.001D] # SQUARE M OHM
+1D0D  ; [.1A72.0020.0002] # LATIN LETTER SMALL CAPITAL M
+1DDF  ; [.1A72.0020.0004] # COMBINING LATIN LETTER SMALL CAPITAL M
+1D6F  ; [.1A73.0020.0002] # LATIN SMALL LETTER M WITH MIDDLE TILDE
+1D86  ; [.1A74.0020.0002] # LATIN SMALL LETTER M WITH PALATAL HOOK
+0271  ; [.1A75.0020.0002] # LATIN SMALL LETTER M WITH HOOK
+2C6E  ; [.1A75.0020.0008] # LATIN CAPITAL LETTER M WITH HOOK
+1DAC  ; [.1A75.0020.0014] # MODIFIER LETTER SMALL M WITH HOOK
+AB3A  ; [.1A79.0020.0002] # LATIN SMALL LETTER M WITH CROSSED-TAIL
+A7FD  ; [.1A7A.0020.0002] # LATIN EPIGRAPHIC LETTER INVERTED M
+A7FF  ; [.1A7B.0020.0002] # LATIN EPIGRAPHIC LETTER ARCHAIC M
+A773  ; [.1A7C.0020.0002] # LATIN SMALL LETTER MUM
+006E  ; [.1A7D.0020.0002] # LATIN SMALL LETTER N
+FF4E  ; [.1A7D.0020.0003] # FULLWIDTH LATIN SMALL LETTER N
+1DE0  ; [.1A7D.0020.0004] # COMBINING LATIN SMALL LETTER N
+24A9  ; [*030A.0020.0004][.1A7D.0020.0004][*030B.0020.0004] # PARENTHESIZED LATIN SMALL LETTER N
+1D427 ; [.1A7D.0020.0005] # MATHEMATICAL BOLD SMALL N
+1D45B ; [.1A7D.0020.0005] # MATHEMATICAL ITALIC SMALL N
+1D48F ; [.1A7D.0020.0005] # MATHEMATICAL BOLD ITALIC SMALL N
+1D4C3 ; [.1A7D.0020.0005] # MATHEMATICAL SCRIPT SMALL N
+1D4F7 ; [.1A7D.0020.0005] # MATHEMATICAL BOLD SCRIPT SMALL N
+1D52B ; [.1A7D.0020.0005] # MATHEMATICAL FRAKTUR SMALL N
+1D55F ; [.1A7D.0020.0005] # MATHEMATICAL DOUBLE-STRUCK SMALL N
+1D593 ; [.1A7D.0020.0005] # MATHEMATICAL BOLD FRAKTUR SMALL N
+1D5C7 ; [.1A7D.0020.0005] # MATHEMATICAL SANS-SERIF SMALL N
+1D5FB ; [.1A7D.0020.0005] # MATHEMATICAL SANS-SERIF BOLD SMALL N
+1D62F ; [.1A7D.0020.0005] # MATHEMATICAL SANS-SERIF ITALIC SMALL N
+1D663 ; [.1A7D.0020.0005] # MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL N
+1D697 ; [.1A7D.0020.0005] # MATHEMATICAL MONOSPACE SMALL N
+24DD  ; [.1A7D.0020.0006] # CIRCLED LATIN SMALL LETTER N
+004E  ; [.1A7D.0020.0008] # LATIN CAPITAL LETTER N
+FF2E  ; [.1A7D.0020.0009] # FULLWIDTH LATIN CAPITAL LETTER N
+1F11D ; [*030A.0020.0004][.1A7D.0020.000A][*030B.0020.0004] # PARENTHESIZED LATIN CAPITAL LETTER N
+2115  ; [.1A7D.0020.000B] # DOUBLE-STRUCK CAPITAL N
+1D40D ; [.1A7D.0020.000B] # MATHEMATICAL BOLD CAPITAL N
+1D441 ; [.1A7D.0020.000B] # MATHEMATICAL ITALIC CAPITAL N
+1D475 ; [.1A7D.0020.000B] # MATHEMATICAL BOLD ITALIC CAPITAL N
+1D4A9 ; [.1A7D.0020.000B] # MATHEMATICAL SCRIPT CAPITAL N
+1D4DD ; [.1A7D.0020.000B] # MATHEMATICAL BOLD SCRIPT CAPITAL N
+1D511 ; [.1A7D.0020.000B] # MATHEMATICAL FRAKTUR CAPITAL N
+1D579 ; [.1A7D.0020.000B] # MATHEMATICAL BOLD FRAKTUR CAPITAL N
+1D5AD ; [.1A7D.0020.000B] # MATHEMATICAL SANS-SERIF CAPITAL N
+1D5E1 ; [.1A7D.0020.000B] # MATHEMATICAL SANS-SERIF BOLD CAPITAL N
+1D615 ; [.1A7D.0020.000B] # MATHEMATICAL SANS-SERIF ITALIC CAPITAL N
+1D649 ; [.1A7D.0020.000B] # MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL N
+1D67D ; [.1A7D.0020.000B] # MATHEMATICAL MONOSPACE CAPITAL N
+24C3  ; [.1A7D.0020.000C] # CIRCLED LATIN CAPITAL LETTER N
+1F15D ; [.1A7D.0020.000C] # NEGATIVE CIRCLED LATIN CAPITAL LETTER N
+207F  ; [.1A7D.0020.0014] # SUPERSCRIPT LATIN SMALL LETTER N
+2099  ; [.1A7D.0020.0015] # LATIN SUBSCRIPT SMALL LETTER N
+1D3A  ; [.1A7D.0020.001D] # MODIFIER LETTER CAPITAL N
+1F13D ; [.1A7D.0020.001D] # SQUARED LATIN CAPITAL LETTER N
+1F17D ; [.1A7D.0020.001D] # NEGATIVE SQUARED LATIN CAPITAL LETTER N
+0144  ; [.1A7D.0020.0002][.0000.0024.0002] # LATIN SMALL LETTER N WITH ACUTE
+0143  ; [.1A7D.0020.0008][.0000.0024.0002] # LATIN CAPITAL LETTER N WITH ACUTE
+01F9  ; [.1A7D.0020.0002][.0000.0025.0002] # LATIN SMALL LETTER N WITH GRAVE
+01F8  ; [.1A7D.0020.0008][.0000.0025.0002] # LATIN CAPITAL LETTER N WITH GRAVE
+0148  ; [.1A7D.0020.0002][.0000.0028.0002] # LATIN SMALL LETTER N WITH CARON
+0147  ; [.1A7D.0020.0008][.0000.0028.0002] # LATIN CAPITAL LETTER N WITH CARON
+00F1  ; [.1A7D.0020.0002][.0000.002D.0002] # LATIN SMALL LETTER N WITH TILDE
+00D1  ; [.1A7D.0020.0008][.0000.002D.0002] # LATIN CAPITAL LETTER N WITH TILDE
+1E45  ; [.1A7D.0020.0002][.0000.002E.0002] # LATIN SMALL LETTER N WITH DOT ABOVE
+1E44  ; [.1A7D.0020.0008][.0000.002E.0002] # LATIN CAPITAL LETTER N WITH DOT ABOVE
+0146  ; [.1A7D.0020.0002][.0000.0030.0002] # LATIN SMALL LETTER N WITH CEDILLA
+0145  ; [.1A7D.0020.0008][.0000.0030.0002] # LATIN CAPITAL LETTER N WITH CEDILLA
+A7A5  ; [.1A7D.0020.0004][.0000.0035.0004] # LATIN SMALL LETTER N WITH OBLIQUE STROKE
+A7A4  ; [.1A7D.0020.000A][.0000.0035.0004] # LATIN CAPITAL LETTER N WITH OBLIQUE STROKE
+1E47  ; [.1A7D.0020.0002][.0000.0042.0002] # LATIN SMALL LETTER N WITH DOT BELOW
+1E46  ; [.1A7D.0020.0008][.0000.0042.0002] # LATIN CAPITAL LETTER N WITH DOT BELOW
+1E4B  ; [.1A7D.0020.0002][.0000.0046.0002] # LATIN SMALL LETTER N WITH CIRCUMFLEX BELOW
+1E4A  ; [.1A7D.0020.0008][.0000.0046.0002] # LATIN CAPITAL LETTER N WITH CIRCUMFLEX BELOW
+1E49  ; [.1A7D.0020.0002][.0000.0049.0002] # LATIN SMALL LETTER N WITH LINE BELOW
+1E48  ; [.1A7D.0020.0008][.0000.0049.0002] # LATIN CAPITAL LETTER N WITH LINE BELOW
+3381  ; [.1A7D.0020.001C][.190C.0020.001D] # SQUARE NA
+1F195 ; [.1A7D.0020.001D][.196E.0020.001D][.1BB7.0020.001D] # SQUARED NEW
+338B  ; [.1A7D.0020.001C][.19A9.0020.001D] # SQUARE NF
+1F196 ; [.1A7D.0020.001D][.19B8.0020.001D] # SQUARED NG
+01CC  ; [.1A7D.0020.0004][.1A10.0020.0004] # LATIN SMALL LETTER NJ
+01CB  ; [.1A7D.0020.000A][.1A10.0020.0004] # LATIN CAPITAL LETTER N WITH SMALL LETTER J
+01CA  ; [.1A7D.0020.000A][.1A10.0020.000A] # LATIN CAPITAL LETTER NJ
+339A  ; [.1A7D.0020.001C][.1A6E.0020.001C] # SQUARE NM
+2116  ; [.1A7D.0020.000A][.1AA1.0020.0004] # NUMERO SIGN
+33B1  ; [.1A7D.0020.001C][.1B33.0020.001C] # SQUARE NS
+33B5  ; [.1A7D.0020.001C][.1BA5.0020.001D] # SQUARE NV
+33BB  ; [.1A7D.0020.001C][.1BB7.0020.001D] # SQUARE NW
+0274  ; [.1A81.0020.0002] # LATIN LETTER SMALL CAPITAL N
+1DE1  ; [.1A81.0020.0004] # COMBINING LATIN LETTER SMALL CAPITAL N
+1DB0  ; [.1A81.0020.0014] # MODIFIER LETTER SMALL CAPITAL N
+1D3B  ; [.1A85.0020.0002] # MODIFIER LETTER CAPITAL REVERSED N
+1D0E  ; [.1A86.0020.0002] # LATIN LETTER SMALL CAPITAL REVERSED N
+1D70  ; [.1A87.0020.0002] # LATIN SMALL LETTER N WITH MIDDLE TILDE
+0272  ; [.1A88.0020.0002] # LATIN SMALL LETTER N WITH LEFT HOOK
+019D  ; [.1A88.0020.0008] # LATIN CAPITAL LETTER N WITH LEFT HOOK
+1DAE  ; [.1A88.0020.0014] # MODIFIER LETTER SMALL N WITH LEFT HOOK
+019E  ; [.1A8C.0020.0002] # LATIN SMALL LETTER N WITH LONG RIGHT LEG
+0220  ; [.1A8C.0020.0008] # LATIN CAPITAL LETTER N WITH LONG RIGHT LEG
+A791  ; [.1A90.0020.0002] # LATIN SMALL LETTER N WITH DESCENDER
+A790  ; [.1A90.0020.0008] # LATIN CAPITAL LETTER N WITH DESCENDER
+1D87  ; [.1A91.0020.0002] # LATIN SMALL LETTER N WITH PALATAL HOOK
+0273  ; [.1A92.0020.0002] # LATIN SMALL LETTER N WITH RETROFLEX HOOK
+1DAF  ; [.1A92.0020.0014] # MODIFIER LETTER SMALL N WITH RETROFLEX HOOK
+0235  ; [.1A96.0020.0002] # LATIN SMALL LETTER N WITH CURL
+AB3B  ; [.1A9A.0020.0002] # LATIN SMALL LETTER N WITH CROSSED-TAIL
+A774  ; [.1A9B.0020.0002] # LATIN SMALL LETTER NUM
+014B  ; [.1A9C.0020.0002] # LATIN SMALL LETTER ENG
+014A  ; [.1A9C.0020.0008] # LATIN CAPITAL LETTER ENG
+1D51  ; [.1A9C.0020.0014] # MODIFIER LETTER SMALL ENG
+AB3C  ; [.1AA0.0020.0002] # LATIN SMALL LETTER ENG WITH CROSSED-TAIL
+006F  ; [.1AA1.0020.0002] # LATIN SMALL LETTER O
+FF4F  ; [.1AA1.0020.0003] # FULLWIDTH LATIN SMALL LETTER O
+0366  ; [.1AA1.0020.0004] # COMBINING LATIN SMALL LETTER O
+24AA  ; [*030A.0020.0004][.1AA1.0020.0004][*030B.0020.0004] # PARENTHESIZED LATIN SMALL LETTER O
+2134  ; [.1AA1.0020.0005] # SCRIPT SMALL O
+1D428 ; [.1AA1.0020.0005] # MATHEMATICAL BOLD SMALL O
+1D45C ; [.1AA1.0020.0005] # MATHEMATICAL ITALIC SMALL O
+1D490 ; [.1AA1.0020.0005] # MATHEMATICAL BOLD ITALIC SMALL O
+1D4F8 ; [.1AA1.0020.0005] # MATHEMATICAL BOLD SCRIPT SMALL O
+1D52C ; [.1AA1.0020.0005] # MATHEMATICAL FRAKTUR SMALL O
+1D560 ; [.1AA1.0020.0005] # MATHEMATICAL DOUBLE-STRUCK SMALL O
+1D594 ; [.1AA1.0020.0005] # MATHEMATICAL BOLD FRAKTUR SMALL O
+1D5C8 ; [.1AA1.0020.0005] # MATHEMATICAL SANS-SERIF SMALL O
+1D5FC ; [.1AA1.0020.0005] # MATHEMATICAL SANS-SERIF BOLD SMALL O
+1D630 ; [.1AA1.0020.0005] # MATHEMATICAL SANS-SERIF ITALIC SMALL O
+1D664 ; [.1AA1.0020.0005] # MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL O
+1D698 ; [.1AA1.0020.0005] # MATHEMATICAL MONOSPACE SMALL O
+24DE  ; [.1AA1.0020.0006] # CIRCLED LATIN SMALL LETTER O
+004F  ; [.1AA1.0020.0008] # LATIN CAPITAL LETTER O
+FF2F  ; [.1AA1.0020.0009] # FULLWIDTH LATIN CAPITAL LETTER O
+1F11E ; [*030A.0020.0004][.1AA1.0020.000A][*030B.0020.0004] # PARENTHESIZED LATIN CAPITAL LETTER O
+1D40E ; [.1AA1.0020.000B] # MATHEMATICAL BOLD CAPITAL O
+1D442 ; [.1AA1.0020.000B] # MATHEMATICAL ITALIC CAPITAL O
+1D476 ; [.1AA1.0020.000B] # MATHEMATICAL BOLD ITALIC CAPITAL O
+1D4AA ; [.1AA1.0020.000B] # MATHEMATICAL SCRIPT CAPITAL O
+1D4DE ; [.1AA1.0020.000B] # MATHEMATICAL BOLD SCRIPT CAPITAL O
+1D512 ; [.1AA1.0020.000B] # MATHEMATICAL FRAKTUR CAPITAL O
+1D546 ; [.1AA1.0020.000B] # MATHEMATICAL DOUBLE-STRUCK CAPITAL O
+1D57A ; [.1AA1.0020.000B] # MATHEMATICAL BOLD FRAKTUR CAPITAL O
+1D5AE ; [.1AA1.0020.000B] # MATHEMATICAL SANS-SERIF CAPITAL O
+1D5E2 ; [.1AA1.0020.000B] # MATHEMATICAL SANS-SERIF BOLD CAPITAL O
+1D616 ; [.1AA1.0020.000B] # MATHEMATICAL SANS-SERIF ITALIC CAPITAL O
+1D64A ; [.1AA1.0020.000B] # MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL O
+1D67E ; [.1AA1.0020.000B] # MATHEMATICAL MONOSPACE CAPITAL O
+24C4  ; [.1AA1.0020.000C] # CIRCLED LATIN CAPITAL LETTER O
+1F15E ; [.1AA1.0020.000C] # NEGATIVE CIRCLED LATIN CAPITAL LETTER O
+00BA  ; [.1AA1.0020.0014] # MASCULINE ORDINAL INDICATOR
+1D52  ; [.1AA1.0020.0014] # MODIFIER LETTER SMALL O
+2092  ; [.1AA1.0020.0015] # LATIN SUBSCRIPT SMALL LETTER O
+1D3C  ; [.1AA1.0020.001D] # MODIFIER LETTER CAPITAL O
+1F13E ; [.1AA1.0020.001D] # SQUARED LATIN CAPITAL LETTER O
+1F17E ; [.1AA1.0020.001D] # NEGATIVE SQUARED LATIN CAPITAL LETTER O
+00F3  ; [.1AA1.0020.0002][.0000.0024.0002] # LATIN SMALL LETTER O WITH ACUTE
+00D3  ; [.1AA1.0020.0008][.0000.0024.0002] # LATIN CAPITAL LETTER O WITH ACUTE
+00F2  ; [.1AA1.0020.0002][.0000.0025.0002] # LATIN SMALL LETTER O WITH GRAVE
+00D2  ; [.1AA1.0020.0008][.0000.0025.0002] # LATIN CAPITAL LETTER O WITH GRAVE
+014F  ; [.1AA1.0020.0002][.0000.0026.0002] # LATIN SMALL LETTER O WITH BREVE
+014E  ; [.1AA1.0020.0008][.0000.0026.0002] # LATIN CAPITAL LETTER O WITH BREVE
+00F4  ; [.1AA1.0020.0002][.0000.0027.0002] # LATIN SMALL LETTER O WITH CIRCUMFLEX
+00D4  ; [.1AA1.0020.0008][.0000.0027.0002] # LATIN CAPITAL LETTER O WITH CIRCUMFLEX
+1ED1  ; [.1AA1.0020.0002][.0000.0027.0002][.0000.0024.0002] # LATIN SMALL LETTER O WITH CIRCUMFLEX AND ACUTE
+1ED0  ; [.1AA1.0020.0008][.0000.0027.0002][.0000.0024.0002] # LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND ACUTE
+1ED3  ; [.1AA1.0020.0002][.0000.0027.0002][.0000.0025.0002] # LATIN SMALL LETTER O WITH CIRCUMFLEX AND GRAVE
+1ED2  ; [.1AA1.0020.0008][.0000.0027.0002][.0000.0025.0002] # LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND GRAVE
+1ED7  ; [.1AA1.0020.0002][.0000.0027.0002][.0000.002D.0002] # LATIN SMALL LETTER O WITH CIRCUMFLEX AND TILDE
+1ED6  ; [.1AA1.0020.0008][.0000.0027.0002][.0000.002D.0002] # LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND TILDE
+1ED5  ; [.1AA1.0020.0002][.0000.0027.0002][.0000.003B.0002] # LATIN SMALL LETTER O WITH CIRCUMFLEX AND HOOK ABOVE
+1ED4  ; [.1AA1.0020.0008][.0000.0027.0002][.0000.003B.0002] # LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND HOOK ABOVE
+01D2  ; [.1AA1.0020.0002][.0000.0028.0002] # LATIN SMALL LETTER O WITH CARON
+01D1  ; [.1AA1.0020.0008][.0000.0028.0002] # LATIN CAPITAL LETTER O WITH CARON
+00F6  ; [.1AA1.0020.0002][.0000.002B.0002] # LATIN SMALL LETTER O WITH DIAERESIS
+1DF3  ; [.1AA1.0020.0004][.0000.002B.0004] # COMBINING LATIN SMALL LETTER O WITH DIAERESIS
+A79D  ; [.1AA1.0020.0004][.0000.002B.0004] # LATIN SMALL LETTER VOLAPUK OE
+00D6  ; [.1AA1.0020.0008][.0000.002B.0002] # LATIN CAPITAL LETTER O WITH DIAERESIS
+A79C  ; [.1AA1.0020.000A][.0000.002B.0004] # LATIN CAPITAL LETTER VOLAPUK OE
+022B  ; [.1AA1.0020.0002][.0000.002B.0002][.0000.0032.0002] # LATIN SMALL LETTER O WITH DIAERESIS AND MACRON
+022A  ; [.1AA1.0020.0008][.0000.002B.0002][.0000.0032.0002] # LATIN CAPITAL LETTER O WITH DIAERESIS AND MACRON
+0151  ; [.1AA1.0020.0002][.0000.002C.0002] # LATIN SMALL LETTER O WITH DOUBLE ACUTE
+0150  ; [.1AA1.0020.0008][.0000.002C.0002] # LATIN CAPITAL LETTER O WITH DOUBLE ACUTE
+00F5  ; [.1AA1.0020.0002][.0000.002D.0002] # LATIN SMALL LETTER O WITH TILDE
+00D5  ; [.1AA1.0020.0008][.0000.002D.0002] # LATIN CAPITAL LETTER O WITH TILDE
+1E4D  ; [.1AA1.0020.0002][.0000.002D.0002][.0000.0024.0002] # LATIN SMALL LETTER O WITH TILDE AND ACUTE
+1E4C  ; [.1AA1.0020.0008][.0000.002D.0002][.0000.0024.0002] # LATIN CAPITAL LETTER O WITH TILDE AND ACUTE
+1E4F  ; [.1AA1.0020.0002][.0000.002D.0002][.0000.002B.0002] # LATIN SMALL LETTER O WITH TILDE AND DIAERESIS
+1E4E  ; [.1AA1.0020.0008][.0000.002D.0002][.0000.002B.0002] # LATIN CAPITAL LETTER O WITH TILDE AND DIAERESIS
+022D  ; [.1AA1.0020.0002][.0000.002D.0002][.0000.0032.0002] # LATIN SMALL LETTER O WITH TILDE AND MACRON
+022C  ; [.1AA1.0020.0008][.0000.002D.0002][.0000.0032.0002] # LATIN CAPITAL LETTER O WITH TILDE AND MACRON
+022F  ; [.1AA1.0020.0002][.0000.002E.0002] # LATIN SMALL LETTER O WITH DOT ABOVE
+022E  ; [.1AA1.0020.0008][.0000.002E.0002] # LATIN CAPITAL LETTER O WITH DOT ABOVE
+0231  ; [.1AA1.0020.0002][.0000.002E.0002][.0000.0032.0002] # LATIN SMALL LETTER O WITH DOT ABOVE AND MACRON
+0230  ; [.1AA1.0020.0008][.0000.002E.0002][.0000.0032.0002] # LATIN CAPITAL LETTER O WITH DOT ABOVE AND MACRON
+00F8  ; [.1AA1.0020.0002][.0000.002F.0002] # LATIN SMALL LETTER O WITH STROKE
+00D8  ; [.1AA1.0020.0008][.0000.002F.0002] # LATIN CAPITAL LETTER O WITH STROKE
+01FF  ; [.1AA1.0020.0002][.0000.002F.0002][.0000.0024.0002] # LATIN SMALL LETTER O WITH STROKE AND ACUTE
+01FE  ; [.1AA1.0020.0008][.0000.002F.0002][.0000.0024.0002] # LATIN CAPITAL LETTER O WITH STROKE AND ACUTE
+01EB  ; [.1AA1.0020.0002][.0000.0031.0002] # LATIN SMALL LETTER O WITH OGONEK
+01EA  ; [.1AA1.0020.0008][.0000.0031.0002] # LATIN CAPITAL LETTER O WITH OGONEK
+01ED  ; [.1AA1.0020.0002][.0000.0031.0002][.0000.0032.0002] # LATIN SMALL LETTER O WITH OGONEK AND MACRON
+01EC  ; [.1AA1.0020.0008][.0000.0031.0002][.0000.0032.0002] # LATIN CAPITAL LETTER O WITH OGONEK AND MACRON
+014D  ; [.1AA1.0020.0002][.0000.0032.0002] # LATIN SMALL LETTER O WITH MACRON
+014C  ; [.1AA1.0020.0008][.0000.0032.0002] # LATIN CAPITAL LETTER O WITH MACRON
+1E53  ; [.1AA1.0020.0002][.0000.0032.0002][.0000.0024.0002] # LATIN SMALL LETTER O WITH MACRON AND ACUTE
+1E52  ; [.1AA1.0020.0008][.0000.0032.0002][.0000.0024.0002] # LATIN CAPITAL LETTER O WITH MACRON AND ACUTE
+1E51  ; [.1AA1.0020.0002][.0000.0032.0002][.0000.0025.0002] # LATIN SMALL LETTER O WITH MACRON AND GRAVE
+1E50  ; [.1AA1.0020.0008][.0000.0032.0002][.0000.0025.0002] # LATIN CAPITAL LETTER O WITH MACRON AND GRAVE
+1DED  ; [.1AA1.0020.0004][.0000.0034.0004] # COMBINING LATIN SMALL LETTER O WITH LIGHT CENTRALIZATION STROKE
+1ECF  ; [.1AA1.0020.0002][.0000.003B.0002] # LATIN SMALL LETTER O WITH HOOK ABOVE
+1ECE  ; [.1AA1.0020.0008][.0000.003B.0002] # LATIN CAPITAL LETTER O WITH HOOK ABOVE
+020D  ; [.1AA1.0020.0002][.0000.003C.0002] # LATIN SMALL LETTER O WITH DOUBLE GRAVE
+020C  ; [.1AA1.0020.0008][.0000.003C.0002] # LATIN CAPITAL LETTER O WITH DOUBLE GRAVE
+020F  ; [.1AA1.0020.0002][.0000.003E.0002] # LATIN SMALL LETTER O WITH INVERTED BREVE
+020E  ; [.1AA1.0020.0008][.0000.003E.0002] # LATIN CAPITAL LETTER O WITH INVERTED BREVE
+01A1  ; [.1AA1.0020.0002][.0000.003F.0002] # LATIN SMALL LETTER O WITH HORN
+01A0  ; [.1AA1.0020.0008][.0000.003F.0002] # LATIN CAPITAL LETTER O WITH HORN
+1EDB  ; [.1AA1.0020.0002][.0000.003F.0002][.0000.0024.0002] # LATIN SMALL LETTER O WITH HORN AND ACUTE
+1EDA  ; [.1AA1.0020.0008][.0000.003F.0002][.0000.0024.0002] # LATIN CAPITAL LETTER O WITH HORN AND ACUTE
+1EDD  ; [.1AA1.0020.0002][.0000.003F.0002][.0000.0025.0002] # LATIN SMALL LETTER O WITH HORN AND GRAVE
+1EDC  ; [.1AA1.0020.0008][.0000.003F.0002][.0000.0025.0002] # LATIN CAPITAL LETTER O WITH HORN AND GRAVE
+1EE1  ; [.1AA1.0020.0002][.0000.003F.0002][.0000.002D.0002] # LATIN SMALL LETTER O WITH HORN AND TILDE
+1EE0  ; [.1AA1.0020.0008][.0000.003F.0002][.0000.002D.0002] # LATIN CAPITAL LETTER O WITH HORN AND TILDE
+1EDF  ; [.1AA1.0020.0002][.0000.003F.0002][.0000.003B.0002] # LATIN SMALL LETTER O WITH HORN AND HOOK ABOVE
+1EDE  ; [.1AA1.0020.0008][.0000.003F.0002][.0000.003B.0002] # LATIN CAPITAL LETTER O WITH HORN AND HOOK ABOVE
+1EE3  ; [.1AA1.0020.0002][.0000.003F.0002][.0000.0042.0002] # LATIN SMALL LETTER O WITH HORN AND DOT BELOW
+1EE2  ; [.1AA1.0020.0008][.0000.003F.0002][.0000.0042.0002] # LATIN CAPITAL LETTER O WITH HORN AND DOT BELOW
+1ECD  ; [.1AA1.0020.0002][.0000.0042.0002] # LATIN SMALL LETTER O WITH DOT BELOW
+1ECC  ; [.1AA1.0020.0008][.0000.0042.0002] # LATIN CAPITAL LETTER O WITH DOT BELOW
+1ED9  ; [.1AA1.0020.0002][.0000.0042.0002][.0000.0027.0002] # LATIN SMALL LETTER O WITH CIRCUMFLEX AND DOT BELOW
+1ED8  ; [.1AA1.0020.0008][.0000.0042.0002][.0000.0027.0002] # LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND DOT BELOW
+0153  ; [.1AA1.0020.0004][.0000.0108.0004][.196E.0020.0004] # LATIN SMALL LIGATURE OE
+0152  ; [.1AA1.0020.000A][.0000.0108.0004][.196E.0020.000A] # LATIN CAPITAL LIGATURE OE
+A7F9  ; [.1AA1.0020.0014][.0000.0108.0014][.196E.0020.0014] # MODIFIER LETTER SMALL LIGATURE OE
+1F197 ; [.1AA1.0020.001D][.1A29.0020.001D] # SQUARED OK
+A74F  ; [.1AA1.0020.0004][.1AA1.0020.0004] # LATIN SMALL LETTER OO
+A74E  ; [.1AA1.0020.000A][.1AA1.0020.000A] # LATIN CAPITAL LETTER OO
+3375  ; [.1AA1.0020.001C][.1BA5.0020.001D] # SQUARE OV
+1D0F  ; [.1AA5.0020.0002] # LATIN LETTER SMALL CAPITAL O
+1D11  ; [.1AA6.0020.0002] # LATIN SMALL LETTER SIDEWAYS O
+AB3D  ; [.1AA7.0020.0002] # LATIN SMALL LETTER BLACKLETTER O
+0276  ; [.1AA8.0020.0002] # LATIN LETTER SMALL CAPITAL OE
+1D14  ; [.1AAC.0020.0002] # LATIN SMALL LETTER TURNED OE
+AB41  ; [.1AAD.0020.0002] # LATIN SMALL LETTER TURNED OE WITH STROKE
+AB42  ; [.1AAE.0020.0002] # LATIN SMALL LETTER TURNED OE WITH HORIZONTAL STROKE
+AB40  ; [.1AAF.0020.0002] # LATIN SMALL LETTER INVERTED OE
+AB43  ; [.1AB0.0020.0002] # LATIN SMALL LETTER TURNED O OPEN-O
+AB44  ; [.1AB1.0020.0002] # LATIN SMALL LETTER TURNED O OPEN-O WITH STROKE
+1D13  ; [.1AB2.0020.0002] # LATIN SMALL LETTER SIDEWAYS O WITH STROKE
+AB3E  ; [.1AB3.0020.0002] # LATIN SMALL LETTER BLACKLETTER O WITH STROKE
+0254  ; [.1AB4.0020.0002] # LATIN SMALL LETTER OPEN O
+0186  ; [.1AB4.0020.0008] # LATIN CAPITAL LETTER OPEN O
+1D53  ; [.1AB4.0020.0014] # MODIFIER LETTER SMALL OPEN O
+1D10  ; [.1AB8.0020.0002] # LATIN LETTER SMALL CAPITAL OPEN O
+1D12  ; [.1AB9.0020.0002] # LATIN SMALL LETTER SIDEWAYS OPEN O
+AB3F  ; [.1ABA.0020.0002] # LATIN SMALL LETTER OPEN O WITH STROKE
+1D97  ; [.1ABB.0020.0002] # LATIN SMALL LETTER OPEN O WITH RETROFLEX HOOK
+A74D  ; [.1ABC.0020.0002] # LATIN SMALL LETTER O WITH LOOP
+A74C  ; [.1ABC.0020.0008] # LATIN CAPITAL LETTER O WITH LOOP
+1D16  ; [.1ABD.0020.0002] # LATIN SMALL LETTER TOP HALF O
+1D54  ; [.1ABD.0020.0014] # MODIFIER LETTER SMALL TOP HALF O
+1D17  ; [.1ABE.0020.0002] # LATIN SMALL LETTER BOTTOM HALF O
+1D55  ; [.1ABE.0020.0014] # MODIFIER LETTER SMALL BOTTOM HALF O
+2C7A  ; [.1ABF.0020.0002] # LATIN SMALL LETTER O WITH LOW RING INSIDE
+0275  ; [.1AC0.0020.0002] # LATIN SMALL LETTER BARRED O
+019F  ; [.1AC0.0020.0008] # LATIN CAPITAL LETTER O WITH MIDDLE TILDE
+1DB1  ; [.1AC0.0020.0014] # MODIFIER LETTER SMALL BARRED O
+A74B  ; [.1AC4.0020.0002] # LATIN SMALL LETTER O WITH LONG STROKE OVERLAY
+A74A  ; [.1AC4.0020.0008] # LATIN CAPITAL LETTER O WITH LONG STROKE OVERLAY
+0277  ; [.1AC5.0020.0002] # LATIN SMALL LETTER CLOSED OMEGA
+0223  ; [.1AC9.0020.0002] # LATIN SMALL LETTER OU
+0222  ; [.1AC9.0020.0008] # LATIN CAPITAL LETTER OU
+1D3D  ; [.1AC9.0020.001D] # MODIFIER LETTER CAPITAL OU
+1D15  ; [.1ACD.0020.0002] # LATIN LETTER SMALL CAPITAL OU
+0070  ; [.1ACE.0020.0002] # LATIN SMALL LETTER P
+FF50  ; [.1ACE.0020.0003] # FULLWIDTH LATIN SMALL LETTER P
+1DEE  ; [.1ACE.0020.0004] # COMBINING LATIN SMALL LETTER P
+24AB  ; [*030A.0020.0004][.1ACE.0020.0004][*030B.0020.0004] # PARENTHESIZED LATIN SMALL LETTER P
+1D429 ; [.1ACE.0020.0005] # MATHEMATICAL BOLD SMALL P
+1D45D ; [.1ACE.0020.0005] # MATHEMATICAL ITALIC SMALL P
+1D491 ; [.1ACE.0020.0005] # MATHEMATICAL BOLD ITALIC SMALL P
+1D4C5 ; [.1ACE.0020.0005] # MATHEMATICAL SCRIPT SMALL P
+1D4F9 ; [.1ACE.0020.0005] # MATHEMATICAL BOLD SCRIPT SMALL P
+1D52D ; [.1ACE.0020.0005] # MATHEMATICAL FRAKTUR SMALL P
+1D561 ; [.1ACE.0020.0005] # MATHEMATICAL DOUBLE-STRUCK SMALL P
+1D595 ; [.1ACE.0020.0005] # MATHEMATICAL BOLD FRAKTUR SMALL P
+1D5C9 ; [.1ACE.0020.0005] # MATHEMATICAL SANS-SERIF SMALL P
+1D5FD ; [.1ACE.0020.0005] # MATHEMATICAL SANS-SERIF BOLD SMALL P
+1D631 ; [.1ACE.0020.0005] # MATHEMATICAL SANS-SERIF ITALIC SMALL P
+1D665 ; [.1ACE.0020.0005] # MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL P
+1D699 ; [.1ACE.0020.0005] # MATHEMATICAL MONOSPACE SMALL P
+24DF  ; [.1ACE.0020.0006] # CIRCLED LATIN SMALL LETTER P
+0050  ; [.1ACE.0020.0008] # LATIN CAPITAL LETTER P
+FF30  ; [.1ACE.0020.0009] # FULLWIDTH LATIN CAPITAL LETTER P
+1F11F ; [*030A.0020.0004][.1ACE.0020.000A][*030B.0020.0004] # PARENTHESIZED LATIN CAPITAL LETTER P
+2119  ; [.1ACE.0020.000B] # DOUBLE-STRUCK CAPITAL P
+1D40F ; [.1ACE.0020.000B] # MATHEMATICAL BOLD CAPITAL P
+1D443 ; [.1ACE.0020.000B] # MATHEMATICAL ITALIC CAPITAL P
+1D477 ; [.1ACE.0020.000B] # MATHEMATICAL BOLD ITALIC CAPITAL P
+1D4AB ; [.1ACE.0020.000B] # MATHEMATICAL SCRIPT CAPITAL P
+1D4DF ; [.1ACE.0020.000B] # MATHEMATICAL BOLD SCRIPT CAPITAL P
+1D513 ; [.1ACE.0020.000B] # MATHEMATICAL FRAKTUR CAPITAL P
+1D57B ; [.1ACE.0020.000B] # MATHEMATICAL BOLD FRAKTUR CAPITAL P
+1D5AF ; [.1ACE.0020.000B] # MATHEMATICAL SANS-SERIF CAPITAL P
+1D5E3 ; [.1ACE.0020.000B] # MATHEMATICAL SANS-SERIF BOLD CAPITAL P
+1D617 ; [.1ACE.0020.000B] # MATHEMATICAL SANS-SERIF ITALIC CAPITAL P
+1D64B ; [.1ACE.0020.000B] # MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL P
+1D67F ; [.1ACE.0020.000B] # MATHEMATICAL MONOSPACE CAPITAL P
+24C5  ; [.1ACE.0020.000C] # CIRCLED LATIN CAPITAL LETTER P
+1F15F ; [.1ACE.0020.000C] # NEGATIVE CIRCLED LATIN CAPITAL LETTER P
+1D56  ; [.1ACE.0020.0014] # MODIFIER LETTER SMALL P
+209A  ; [.1ACE.0020.0015] # LATIN SUBSCRIPT SMALL LETTER P
+1D3E  ; [.1ACE.0020.001D] # MODIFIER LETTER CAPITAL P
+1F13F ; [.1ACE.0020.001D] # SQUARED LATIN CAPITAL LETTER P
+1F17F ; [.1ACE.0020.001D] # NEGATIVE SQUARED LATIN CAPITAL LETTER P
+1F18A ; [.1ACE.0020.001D] # CROSSED NEGATIVE SQUARED LATIN CAPITAL LETTER P
+1E55  ; [.1ACE.0020.0002][.0000.0024.0002] # LATIN SMALL LETTER P WITH ACUTE
+1E54  ; [.1ACE.0020.0008][.0000.0024.0002] # LATIN CAPITAL LETTER P WITH ACUTE
+1E57  ; [.1ACE.0020.0002][.0000.002E.0002] # LATIN SMALL LETTER P WITH DOT ABOVE
+1E56  ; [.1ACE.0020.0008][.0000.002E.0002] # LATIN CAPITAL LETTER P WITH DOT ABOVE
+3380  ; [.1ACE.0020.001C][.190C.0020.001D] # SQUARE PA AMPS
+33A9  ; [.1ACE.0020.001D][.190C.0020.001C] # SQUARE PA
+1F18C ; [.1ACE.0020.001D][.190C.0020.001D] # NEGATIVE SQUARED PA
+3376  ; [.1ACE.0020.001C][.193E.0020.001C] # SQUARE PC
+338A  ; [.1ACE.0020.001C][.19A9.0020.001D] # SQUARE PF
+33D7  ; [.1ACE.0020.001D][.19DC.0020.001D] # SQUARE PH
+33D8  ; [.1ACE.0020.001C][*0274.0020.001C][.1A6E.0020.001C][*0274.0020.001C] # SQUARE PM
+33D9  ; [.1ACE.0020.001D][.1ACE.0020.001D][.1A6E.0020.001D] # SQUARE PPM
+1F14E ; [.1ACE.0020.001D][.1ACE.0020.001D][.1BA5.0020.001D] # SQUARED PPV
+33DA  ; [.1ACE.0020.001D][.1AF5.0020.001D] # SQUARE PR
+33B0  ; [.1ACE.0020.001C][.1B33.0020.001C] # SQUARE PS
+3250  ; [.1ACE.0020.001D][.1B57.0020.001D][.196E.0020.001D] # PARTNERSHIP SIGN
+33B4  ; [.1ACE.0020.001C][.1BA5.0020.001D] # SQUARE PV
+33BA  ; [.1ACE.0020.001C][.1BB7.0020.001D] # SQUARE PW
+1D18  ; [.1AD2.0020.0002] # LATIN LETTER SMALL CAPITAL P
+1D7D  ; [.1AD3.0020.0002] # LATIN SMALL LETTER P WITH STROKE
+2C63  ; [.1AD3.0020.0008] # LATIN CAPITAL LETTER P WITH STROKE
+A751  ; [.1AD4.0020.0002] # LATIN SMALL LETTER P WITH STROKE THROUGH DESCENDER
+A750  ; [.1AD4.0020.0008] # LATIN CAPITAL LETTER P WITH STROKE THROUGH DESCENDER
+1D71  ; [.1AD5.0020.0002] # LATIN SMALL LETTER P WITH MIDDLE TILDE
+1D88  ; [.1AD6.0020.0002] # LATIN SMALL LETTER P WITH PALATAL HOOK
+01A5  ; [.1AD7.0020.0002] # LATIN SMALL LETTER P WITH HOOK
+01A4  ; [.1AD7.0020.0008] # LATIN CAPITAL LETTER P WITH HOOK
+A753  ; [.1ADB.0020.0002] # LATIN SMALL LETTER P WITH FLOURISH
+A752  ; [.1ADB.0020.0008] # LATIN CAPITAL LETTER P WITH FLOURISH
+A755  ; [.1ADC.0020.0002] # LATIN SMALL LETTER P WITH SQUIRREL TAIL
+A754  ; [.1ADC.0020.0008] # LATIN CAPITAL LETTER P WITH SQUIRREL TAIL
+A7FC  ; [.1ADD.0020.0002] # LATIN EPIGRAPHIC LETTER REVERSED P
+0278  ; [.1ADE.0020.0002] # LATIN SMALL LETTER PHI
+1DB2  ; [.1ADE.0020.0014] # MODIFIER LETTER SMALL PHI
+2C77  ; [.1AE2.0020.0002] # LATIN SMALL LETTER TAILLESS PHI
+0071  ; [.1AE3.0020.0002] # LATIN SMALL LETTER Q
+FF51  ; [.1AE3.0020.0003] # FULLWIDTH LATIN SMALL LETTER Q
+24AC  ; [*030A.0020.0004][.1AE3.0020.0004][*030B.0020.0004] # PARENTHESIZED LATIN SMALL LETTER Q
+1D42A ; [.1AE3.0020.0005] # MATHEMATICAL BOLD SMALL Q
+1D45E ; [.1AE3.0020.0005] # MATHEMATICAL ITALIC SMALL Q
+1D492 ; [.1AE3.0020.0005] # MATHEMATICAL BOLD ITALIC SMALL Q
+1D4C6 ; [.1AE3.0020.0005] # MATHEMATICAL SCRIPT SMALL Q
+1D4FA ; [.1AE3.0020.0005] # MATHEMATICAL BOLD SCRIPT SMALL Q
+1D52E ; [.1AE3.0020.0005] # MATHEMATICAL FRAKTUR SMALL Q
+1D562 ; [.1AE3.0020.0005] # MATHEMATICAL DOUBLE-STRUCK SMALL Q
+1D596 ; [.1AE3.0020.0005] # MATHEMATICAL BOLD FRAKTUR SMALL Q
+1D5CA ; [.1AE3.0020.0005] # MATHEMATICAL SANS-SERIF SMALL Q
+1D5FE ; [.1AE3.0020.0005] # MATHEMATICAL SANS-SERIF BOLD SMALL Q
+1D632 ; [.1AE3.0020.0005] # MATHEMATICAL SANS-SERIF ITALIC SMALL Q
+1D666 ; [.1AE3.0020.0005] # MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL Q
+1D69A ; [.1AE3.0020.0005] # MATHEMATICAL MONOSPACE SMALL Q
+24E0  ; [.1AE3.0020.0006] # CIRCLED LATIN SMALL LETTER Q
+0051  ; [.1AE3.0020.0008] # LATIN CAPITAL LETTER Q
+FF31  ; [.1AE3.0020.0009] # FULLWIDTH LATIN CAPITAL LETTER Q
+1F120 ; [*030A.0020.0004][.1AE3.0020.000A][*030B.0020.0004] # PARENTHESIZED LATIN CAPITAL LETTER Q
+211A  ; [.1AE3.0020.000B] # DOUBLE-STRUCK CAPITAL Q
+1D410 ; [.1AE3.0020.000B] # MATHEMATICAL BOLD CAPITAL Q
+1D444 ; [.1AE3.0020.000B] # MATHEMATICAL ITALIC CAPITAL Q
+1D478 ; [.1AE3.0020.000B] # MATHEMATICAL BOLD ITALIC CAPITAL Q
+1D4AC ; [.1AE3.0020.000B] # MATHEMATICAL SCRIPT CAPITAL Q
+1D4E0 ; [.1AE3.0020.000B] # MATHEMATICAL BOLD SCRIPT CAPITAL Q
+1D514 ; [.1AE3.0020.000B] # MATHEMATICAL FRAKTUR CAPITAL Q
+1D57C ; [.1AE3.0020.000B] # MATHEMATICAL BOLD FRAKTUR CAPITAL Q
+1D5B0 ; [.1AE3.0020.000B] # MATHEMATICAL SANS-SERIF CAPITAL Q
+1D5E4 ; [.1AE3.0020.000B] # MATHEMATICAL SANS-SERIF BOLD CAPITAL Q
+1D618 ; [.1AE3.0020.000B] # MATHEMATICAL SANS-SERIF ITALIC CAPITAL Q
+1D64C ; [.1AE3.0020.000B] # MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL Q
+1D680 ; [.1AE3.0020.000B] # MATHEMATICAL MONOSPACE CAPITAL Q
+24C6  ; [.1AE3.0020.000C] # CIRCLED LATIN CAPITAL LETTER Q
+1F160 ; [.1AE3.0020.000C] # NEGATIVE CIRCLED LATIN CAPITAL LETTER Q
+1F140 ; [.1AE3.0020.001D] # SQUARED LATIN CAPITAL LETTER Q
+1F180 ; [.1AE3.0020.001D] # NEGATIVE SQUARED LATIN CAPITAL LETTER Q
+0239  ; [.1AE3.0020.0004][.1ACE.0020.0004] # LATIN SMALL LETTER QP DIGRAPH
+A757  ; [.1AE7.0020.0002] # LATIN SMALL LETTER Q WITH STROKE THROUGH DESCENDER
+A756  ; [.1AE7.0020.0008] # LATIN CAPITAL LETTER Q WITH STROKE THROUGH DESCENDER
+A759  ; [.1AE8.0020.0002] # LATIN SMALL LETTER Q WITH DIAGONAL STROKE
+A758  ; [.1AE8.0020.0008] # LATIN CAPITAL LETTER Q WITH DIAGONAL STROKE
+02A0  ; [.1AE9.0020.0002] # LATIN SMALL LETTER Q WITH HOOK
+024B  ; [.1AED.0020.0002] # LATIN SMALL LETTER Q WITH HOOK TAIL
+024A  ; [.1AED.0020.0008] # LATIN CAPITAL LETTER SMALL Q WITH HOOK TAIL
+0138  ; [.1AF1.0020.0002] # LATIN SMALL LETTER KRA
+0072  ; [.1AF5.0020.0002] # LATIN SMALL LETTER R
+FF52  ; [.1AF5.0020.0003] # FULLWIDTH LATIN SMALL LETTER R
+036C  ; [.1AF5.0020.0004] # COMBINING LATIN SMALL LETTER R
+1DCA  ; [.1AF5.0020.0004] # COMBINING LATIN SMALL LETTER R BELOW
+24AD  ; [*030A.0020.0004][.1AF5.0020.0004][*030B.0020.0004] # PARENTHESIZED LATIN SMALL LETTER R
+1D42B ; [.1AF5.0020.0005] # MATHEMATICAL BOLD SMALL R
+1D45F ; [.1AF5.0020.0005] # MATHEMATICAL ITALIC SMALL R
+1D493 ; [.1AF5.0020.0005] # MATHEMATICAL BOLD ITALIC SMALL R
+1D4C7 ; [.1AF5.0020.0005] # MATHEMATICAL SCRIPT SMALL R
+1D4FB ; [.1AF5.0020.0005] # MATHEMATICAL BOLD SCRIPT SMALL R
+1D52F ; [.1AF5.0020.0005] # MATHEMATICAL FRAKTUR SMALL R
+1D563 ; [.1AF5.0020.0005] # MATHEMATICAL DOUBLE-STRUCK SMALL R
+1D597 ; [.1AF5.0020.0005] # MATHEMATICAL BOLD FRAKTUR SMALL R
+1D5CB ; [.1AF5.0020.0005] # MATHEMATICAL SANS-SERIF SMALL R
+1D5FF ; [.1AF5.0020.0005] # MATHEMATICAL SANS-SERIF BOLD SMALL R
+1D633 ; [.1AF5.0020.0005] # MATHEMATICAL SANS-SERIF ITALIC SMALL R
+1D667 ; [.1AF5.0020.0005] # MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL R
+1D69B ; [.1AF5.0020.0005] # MATHEMATICAL MONOSPACE SMALL R
+24E1  ; [.1AF5.0020.0006] # CIRCLED LATIN SMALL LETTER R
+0052  ; [.1AF5.0020.0008] # LATIN CAPITAL LETTER R
+FF32  ; [.1AF5.0020.0009] # FULLWIDTH LATIN CAPITAL LETTER R
+1F121 ; [*030A.0020.0004][.1AF5.0020.000A][*030B.0020.0004] # PARENTHESIZED LATIN CAPITAL LETTER R
+211B  ; [.1AF5.0020.000B] # SCRIPT CAPITAL R
+211C  ; [.1AF5.0020.000B] # BLACK-LETTER CAPITAL R
+211D  ; [.1AF5.0020.000B] # DOUBLE-STRUCK CAPITAL R
+1D411 ; [.1AF5.0020.000B] # MATHEMATICAL BOLD CAPITAL R
+1D445 ; [.1AF5.0020.000B] # MATHEMATICAL ITALIC CAPITAL R
+1D479 ; [.1AF5.0020.000B] # MATHEMATICAL BOLD ITALIC CAPITAL R
+1D4E1 ; [.1AF5.0020.000B] # MATHEMATICAL BOLD SCRIPT CAPITAL R
+1D57D ; [.1AF5.0020.000B] # MATHEMATICAL BOLD FRAKTUR CAPITAL R
+1D5B1 ; [.1AF5.0020.000B] # MATHEMATICAL SANS-SERIF CAPITAL R
+1D5E5 ; [.1AF5.0020.000B] # MATHEMATICAL SANS-SERIF BOLD CAPITAL R
+1D619 ; [.1AF5.0020.000B] # MATHEMATICAL SANS-SERIF ITALIC CAPITAL R
+1D64D ; [.1AF5.0020.000B] # MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL R
+1D681 ; [.1AF5.0020.000B] # MATHEMATICAL MONOSPACE CAPITAL R
+24C7  ; [.1AF5.0020.000C] # CIRCLED LATIN CAPITAL LETTER R
+1F12C ; [.1AF5.0020.000C] # CIRCLED ITALIC LATIN CAPITAL LETTER R
+1F161 ; [.1AF5.0020.000C] # NEGATIVE CIRCLED LATIN CAPITAL LETTER R
+02B3  ; [.1AF5.0020.0014] # MODIFIER LETTER SMALL R
+1D63  ; [.1AF5.0020.0015] # LATIN SUBSCRIPT SMALL LETTER R
+1D3F  ; [.1AF5.0020.001D] # MODIFIER LETTER CAPITAL R
+1F141 ; [.1AF5.0020.001D] # SQUARED LATIN CAPITAL LETTER R
+1F181 ; [.1AF5.0020.001D] # NEGATIVE SQUARED LATIN CAPITAL LETTER R
+0155  ; [.1AF5.0020.0002][.0000.0024.0002] # LATIN SMALL LETTER R WITH ACUTE
+0154  ; [.1AF5.0020.0008][.0000.0024.0002] # LATIN CAPITAL LETTER R WITH ACUTE
+0159  ; [.1AF5.0020.0002][.0000.0028.0002] # LATIN SMALL LETTER R WITH CARON
+0158  ; [.1AF5.0020.0008][.0000.0028.0002] # LATIN CAPITAL LETTER R WITH CARON
+1E59  ; [.1AF5.0020.0002][.0000.002E.0002] # LATIN SMALL LETTER R WITH DOT ABOVE
+1E58  ; [.1AF5.0020.0008][.0000.002E.0002] # LATIN CAPITAL LETTER R WITH DOT ABOVE
+0157  ; [.1AF5.0020.0002][.0000.0030.0002] # LATIN SMALL LETTER R WITH CEDILLA
+0156  ; [.1AF5.0020.0008][.0000.0030.0002] # LATIN CAPITAL LETTER R WITH CEDILLA
+A7A7  ; [.1AF5.0020.0004][.0000.0035.0004] # LATIN SMALL LETTER R WITH OBLIQUE STROKE
+A7A6  ; [.1AF5.0020.000A][.0000.0035.0004] # LATIN CAPITAL LETTER R WITH OBLIQUE STROKE
+0211  ; [.1AF5.0020.0002][.0000.003C.0002] # LATIN SMALL LETTER R WITH DOUBLE GRAVE
+0210  ; [.1AF5.0020.0008][.0000.003C.0002] # LATIN CAPITAL LETTER R WITH DOUBLE GRAVE
+0213  ; [.1AF5.0020.0002][.0000.003E.0002] # LATIN SMALL LETTER R WITH INVERTED BREVE
+0212  ; [.1AF5.0020.0008][.0000.003E.0002] # LATIN CAPITAL LETTER R WITH INVERTED BREVE
+1E5B  ; [.1AF5.0020.0002][.0000.0042.0002] # LATIN SMALL LETTER R WITH DOT BELOW
+1E5A  ; [.1AF5.0020.0008][.0000.0042.0002] # LATIN CAPITAL LETTER R WITH DOT BELOW
+1E5D  ; [.1AF5.0020.0002][.0000.0042.0002][.0000.0032.0002] # LATIN SMALL LETTER R WITH DOT BELOW AND MACRON
+1E5C  ; [.1AF5.0020.0008][.0000.0042.0002][.0000.0032.0002] # LATIN CAPITAL LETTER R WITH DOT BELOW AND MACRON
+1E5F  ; [.1AF5.0020.0002][.0000.0049.0002] # LATIN SMALL LETTER R WITH LINE BELOW
+1E5E  ; [.1AF5.0020.0008][.0000.0049.0002] # LATIN CAPITAL LETTER R WITH LINE BELOW
+A783  ; [.1AF5.0020.0004][.0000.0109.0004] # LATIN SMALL LETTER INSULAR R
+A782  ; [.1AF5.0020.000A][.0000.0109.0004] # LATIN CAPITAL LETTER INSULAR R
+33AD  ; [.1AF5.0020.001C][.190C.0020.001C][.1953.0020.001C] # SQUARE RAD
+33AE  ; [.1AF5.0020.001C][.190C.0020.001C][.1953.0020.001C][*05E5.0020.001C][.1B33.0020.001C] # SQUARE RAD OVER S
+33AF  ; [.1AF5.0020.001C][.190C.0020.001C][.1953.0020.001C][*05E5.0020.001C][.1B33.0020.001C][.1904.0020.001C] # SQUARE RAD OVER S SQUARED
+20A8  ; [.1AF5.0020.000A][.1B33.0020.0004] # RUPEE SIGN
+AB45  ; [.1AF9.0020.0002] # LATIN SMALL LETTER STIRRUP R
+0280  ; [.1AFA.0020.0002] # LATIN LETTER SMALL CAPITAL R
+1DE2  ; [.1AFA.0020.0004] # COMBINING LATIN LETTER SMALL CAPITAL R
+01A6  ; [.1AFA.0020.0008] # LATIN LETTER YR
+AB46  ; [.1AFE.0020.0002] # LATIN LETTER SMALL CAPITAL R WITH RIGHT LEG
+A75B  ; [.1AFF.0020.0002] # LATIN SMALL LETTER R ROTUNDA
+1DE3  ; [.1AFF.0020.0004] # COMBINING LATIN SMALL LETTER R ROTUNDA
+A75A  ; [.1AFF.0020.0008] # LATIN CAPITAL LETTER R ROTUNDA
+1D19  ; [.1B00.0020.0002] # LATIN LETTER SMALL CAPITAL REVERSED R
+024D  ; [.1B01.0020.0002] # LATIN SMALL LETTER R WITH STROKE
+024C  ; [.1B01.0020.0008] # LATIN CAPITAL LETTER R WITH STROKE
+1D72  ; [.1B05.0020.0002] # LATIN SMALL LETTER R WITH MIDDLE TILDE
+0279  ; [.1B06.0020.0002] # LATIN SMALL LETTER TURNED R
+02B4  ; [.1B06.0020.0014] # MODIFIER LETTER SMALL TURNED R
+1D1A  ; [.1B0A.0020.0002] # LATIN LETTER SMALL CAPITAL TURNED R
+027A  ; [.1B0B.0020.0002] # LATIN SMALL LETTER TURNED R WITH LONG LEG
+1D89  ; [.1B0F.0020.0002] # LATIN SMALL LETTER R WITH PALATAL HOOK
+027B  ; [.1B10.0020.0002] # LATIN SMALL LETTER TURNED R WITH HOOK
+02B5  ; [.1B10.0020.0014] # MODIFIER LETTER SMALL TURNED R WITH HOOK
+2C79  ; [.1B14.0020.0002] # LATIN SMALL LETTER TURNED R WITH TAIL
+027C  ; [.1B15.0020.0002] # LATIN SMALL LETTER R WITH LONG LEG
+027D  ; [.1B19.0020.0002] # LATIN SMALL LETTER R WITH TAIL
+2C64  ; [.1B19.0020.0008] # LATIN CAPITAL LETTER R WITH TAIL
+AB49  ; [.1B1D.0020.0002] # LATIN SMALL LETTER R WITH CROSSED-TAIL
+027E  ; [.1B1E.0020.0002] # LATIN SMALL LETTER R WITH FISHHOOK
+1D73  ; [.1B22.0020.0002] # LATIN SMALL LETTER R WITH FISHHOOK AND MIDDLE TILDE
+027F  ; [.1B23.0020.0002] # LATIN SMALL LETTER REVERSED R WITH FISHHOOK
+AB47  ; [.1B27.0020.0002] # LATIN SMALL LETTER R WITHOUT HANDLE
+AB48  ; [.1B28.0020.0002] # LATIN SMALL LETTER DOUBLE R
+AB4A  ; [.1B29.0020.0002] # LATIN SMALL LETTER DOUBLE R WITH CROSSED-TAIL
+AB4B  ; [.1B2A.0020.0002] # LATIN SMALL LETTER SCRIPT R
+AB4C  ; [.1B2B.0020.0002] # LATIN SMALL LETTER SCRIPT R WITH RING
+0281  ; [.1B2C.0020.0002] # LATIN LETTER SMALL CAPITAL INVERTED R
+02B6  ; [.1B2C.0020.0014] # MODIFIER LETTER SMALL CAPITAL INVERTED R
+A775  ; [.1B30.0020.0002] # LATIN SMALL LETTER RUM
+A776  ; [.1B31.0020.0002] # LATIN LETTER SMALL CAPITAL RUM
+A75D  ; [.1B32.0020.0002] # LATIN SMALL LETTER RUM ROTUNDA
+A75C  ; [.1B32.0020.0008] # LATIN CAPITAL LETTER RUM ROTUNDA
+0073  ; [.1B33.0020.0002] # LATIN SMALL LETTER S
+FF53  ; [.1B33.0020.0003] # FULLWIDTH LATIN SMALL LETTER S
+1DE4  ; [.1B33.0020.0004] # COMBINING LATIN SMALL LETTER S
+24AE  ; [*030A.0020.0004][.1B33.0020.0004][*030B.0020.0004] # PARENTHESIZED LATIN SMALL LETTER S
+1D42C ; [.1B33.0020.0005] # MATHEMATICAL BOLD SMALL S
+1D460 ; [.1B33.0020.0005] # MATHEMATICAL ITALIC SMALL S
+1D494 ; [.1B33.0020.0005] # MATHEMATICAL BOLD ITALIC SMALL S
+1D4C8 ; [.1B33.0020.0005] # MATHEMATICAL SCRIPT SMALL S
+1D4FC ; [.1B33.0020.0005] # MATHEMATICAL BOLD SCRIPT SMALL S
+1D530 ; [.1B33.0020.0005] # MATHEMATICAL FRAKTUR SMALL S
+1D564 ; [.1B33.0020.0005] # MATHEMATICAL DOUBLE-STRUCK SMALL S
+1D598 ; [.1B33.0020.0005] # MATHEMATICAL BOLD FRAKTUR SMALL S
+1D5CC ; [.1B33.0020.0005] # MATHEMATICAL SANS-SERIF SMALL S
+1D600 ; [.1B33.0020.0005] # MATHEMATICAL SANS-SERIF BOLD SMALL S
+1D634 ; [.1B33.0020.0005] # MATHEMATICAL SANS-SERIF ITALIC SMALL S
+1D668 ; [.1B33.0020.0005] # MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL S
+1D69C ; [.1B33.0020.0005] # MATHEMATICAL MONOSPACE SMALL S
+24E2  ; [.1B33.0020.0006] # CIRCLED LATIN SMALL LETTER S
+0053  ; [.1B33.0020.0008] # LATIN CAPITAL LETTER S
+FF33  ; [.1B33.0020.0009] # FULLWIDTH LATIN CAPITAL LETTER S
+1F122 ; [*030A.0020.0004][.1B33.0020.000A][*030B.0020.0004] # PARENTHESIZED LATIN CAPITAL LETTER S
+1F12A ; [*036C.0020.0004][.1B33.0020.000A][*036D.0020.0004] # TORTOISE SHELL BRACKETED LATIN CAPITAL LETTER S
+1D412 ; [.1B33.0020.000B] # MATHEMATICAL BOLD CAPITAL S
+1D446 ; [.1B33.0020.000B] # MATHEMATICAL ITALIC CAPITAL S
+1D47A ; [.1B33.0020.000B] # MATHEMATICAL BOLD ITALIC CAPITAL S
+1D4AE ; [.1B33.0020.000B] # MATHEMATICAL SCRIPT CAPITAL S
+1D4E2 ; [.1B33.0020.000B] # MATHEMATICAL BOLD SCRIPT CAPITAL S
+1D516 ; [.1B33.0020.000B] # MATHEMATICAL FRAKTUR CAPITAL S
+1D54A ; [.1B33.0020.000B] # MATHEMATICAL DOUBLE-STRUCK CAPITAL S
+1D57E ; [.1B33.0020.000B] # MATHEMATICAL BOLD FRAKTUR CAPITAL S
+1D5B2 ; [.1B33.0020.000B] # MATHEMATICAL SANS-SERIF CAPITAL S
+1D5E6 ; [.1B33.0020.000B] # MATHEMATICAL SANS-SERIF BOLD CAPITAL S
+1D61A ; [.1B33.0020.000B] # MATHEMATICAL SANS-SERIF ITALIC CAPITAL S
+1D64E ; [.1B33.0020.000B] # MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL S
+1D682 ; [.1B33.0020.000B] # MATHEMATICAL MONOSPACE CAPITAL S
+24C8  ; [.1B33.0020.000C] # CIRCLED LATIN CAPITAL LETTER S
+1F162 ; [.1B33.0020.000C] # NEGATIVE CIRCLED LATIN CAPITAL LETTER S
+02E2  ; [.1B33.0020.0014] # MODIFIER LETTER SMALL S
+209B  ; [.1B33.0020.0015] # LATIN SUBSCRIPT SMALL LETTER S
+1F142 ; [.1B33.0020.001D] # SQUARED LATIN CAPITAL LETTER S
+1F182 ; [.1B33.0020.001D] # NEGATIVE SQUARED LATIN CAPITAL LETTER S
+015B  ; [.1B33.0020.0002][.0000.0024.0002] # LATIN SMALL LETTER S WITH ACUTE
+015A  ; [.1B33.0020.0008][.0000.0024.0002] # LATIN CAPITAL LETTER S WITH ACUTE
+1E65  ; [.1B33.0020.0002][.0000.0024.0002][.0000.002E.0002] # LATIN SMALL LETTER S WITH ACUTE AND DOT ABOVE
+1E64  ; [.1B33.0020.0008][.0000.0024.0002][.0000.002E.0002] # LATIN CAPITAL LETTER S WITH ACUTE AND DOT ABOVE
+015D  ; [.1B33.0020.0002][.0000.0027.0002] # LATIN SMALL LETTER S WITH CIRCUMFLEX
+015C  ; [.1B33.0020.0008][.0000.0027.0002] # LATIN CAPITAL LETTER S WITH CIRCUMFLEX
+0161  ; [.1B33.0020.0002][.0000.0028.0002] # LATIN SMALL LETTER S WITH CARON
+0160  ; [.1B33.0020.0008][.0000.0028.0002] # LATIN CAPITAL LETTER S WITH CARON
+1E67  ; [.1B33.0020.0002][.0000.0028.0002][.0000.002E.0002] # LATIN SMALL LETTER S WITH CARON AND DOT ABOVE
+1E66  ; [.1B33.0020.0008][.0000.0028.0002][.0000.002E.0002] # LATIN CAPITAL LETTER S WITH CARON AND DOT ABOVE
+1E61  ; [.1B33.0020.0002][.0000.002E.0002] # LATIN SMALL LETTER S WITH DOT ABOVE
+1E60  ; [.1B33.0020.0008][.0000.002E.0002] # LATIN CAPITAL LETTER S WITH DOT ABOVE
+015F  ; [.1B33.0020.0002][.0000.0030.0002] # LATIN SMALL LETTER S WITH CEDILLA
+015E  ; [.1B33.0020.0008][.0000.0030.0002] # LATIN CAPITAL LETTER S WITH CEDILLA
+A7A9  ; [.1B33.0020.0004][.0000.0035.0004] # LATIN SMALL LETTER S WITH OBLIQUE STROKE
+A7A8  ; [.1B33.0020.000A][.0000.0035.0004] # LATIN CAPITAL LETTER S WITH OBLIQUE STROKE
+1E63  ; [.1B33.0020.0002][.0000.0042.0002] # LATIN SMALL LETTER S WITH DOT BELOW
+1E62  ; [.1B33.0020.0008][.0000.0042.0002] # LATIN CAPITAL LETTER S WITH DOT BELOW
+1E69  ; [.1B33.0020.0002][.0000.0042.0002][.0000.002E.0002] # LATIN SMALL LETTER S WITH DOT BELOW AND DOT ABOVE
+1E68  ; [.1B33.0020.0008][.0000.0042.0002][.0000.002E.0002] # LATIN CAPITAL LETTER S WITH DOT BELOW AND DOT ABOVE
+0219  ; [.1B33.0020.0002][.0000.0045.0002] # LATIN SMALL LETTER S WITH COMMA BELOW
+0218  ; [.1B33.0020.0008][.0000.0045.0002] # LATIN CAPITAL LETTER S WITH COMMA BELOW
+017F  ; [.1B33.0020.0004][.0000.0109.0004] # LATIN SMALL LETTER LONG S
+1DE5  ; [.1B33.0020.0004][.0000.0109.0004] # COMBINING LATIN SMALL LETTER LONG S
+A785  ; [.1B33.0020.0004][.0000.0109.0004] # LATIN SMALL LETTER INSULAR S
+A784  ; [.1B33.0020.000A][.0000.0109.0004] # LATIN CAPITAL LETTER INSULAR S
+1E9B  ; [.1B33.0020.0004][.0000.0109.0004][.0000.002E.0002] # LATIN SMALL LETTER LONG S WITH DOT ABOVE
+1F18D ; [.1B33.0020.001D][.190C.0020.001D] # NEGATIVE SQUARED SA
+1F14C ; [.1B33.0020.001D][.1953.0020.001D] # SQUARED SD
+2120  ; [.1B33.0020.0014][.1A6E.0020.0014] # SERVICE MARK
+1F198 ; [.1B33.0020.001D][.1AA1.0020.001D][.1B33.0020.001D] # SQUARED SOS
+33DB  ; [.1B33.0020.001C][.1AF5.0020.001C] # SQUARE SR
+1F14D ; [.1B33.0020.001D][.1B33.0020.001D] # SQUARED SS
+00DF  ; [.1B33.0020.0004][.0000.0108.0004][.1B33.0020.0004] # LATIN SMALL LETTER SHARP S
+1E9E  ; [.1B33.0020.000A][.0000.0108.0004][.1B33.0020.000A] # LATIN CAPITAL LETTER SHARP S
+FB06  ; [.1B33.0020.0004][.1B57.0020.0004] # LATIN SMALL LIGATURE ST
+FB05  ; [.1B33.0020.0004][.0000.0109.0004][.1B57.0020.0004] # LATIN SMALL LIGATURE LONG S T
+33DC  ; [.1B33.0020.001D][.1BA5.0020.001C] # SQUARE SV
+A731  ; [.1B37.0020.0002] # LATIN LETTER SMALL CAPITAL S
+1D74  ; [.1B38.0020.0002] # LATIN SMALL LETTER S WITH MIDDLE TILDE
+1D8A  ; [.1B39.0020.0002] # LATIN SMALL LETTER S WITH PALATAL HOOK
+0282  ; [.1B3A.0020.0002] # LATIN SMALL LETTER S WITH HOOK
+1DB3  ; [.1B3A.0020.0014] # MODIFIER LETTER SMALL S WITH HOOK
+023F  ; [.1B3E.0020.0002] # LATIN SMALL LETTER S WITH SWASH TAIL
+2C7E  ; [.1B3E.0020.0008] # LATIN CAPITAL LETTER S WITH SWASH TAIL
+1E9C  ; [.1B42.0020.0002] # LATIN SMALL LETTER LONG S WITH DIAGONAL STROKE
+1E9D  ; [.1B43.0020.0002] # LATIN SMALL LETTER LONG S WITH HIGH STROKE
+0283  ; [.1B44.0020.0002] # LATIN SMALL LETTER ESH
+1DEF  ; [.1B44.0020.0004] # COMBINING LATIN SMALL LETTER ESH
+01A9  ; [.1B44.0020.0008] # LATIN CAPITAL LETTER ESH
+1DB4  ; [.1B44.0020.0014] # MODIFIER LETTER SMALL ESH
+AB4D  ; [.1B48.0020.0002] # LATIN SMALL LETTER BASELINE ESH
+1D8B  ; [.1B49.0020.0002] # LATIN SMALL LETTER ESH WITH PALATAL HOOK
+01AA  ; [.1B4A.0020.0002] # LATIN LETTER REVERSED ESH LOOP
+0285  ; [.1B4E.0020.0002] # LATIN SMALL LETTER SQUAT REVERSED ESH
+1D98  ; [.1B52.0020.0002] # LATIN SMALL LETTER ESH WITH RETROFLEX HOOK
+0286  ; [.1B53.0020.0002] # LATIN SMALL LETTER ESH WITH CURL
+0074  ; [.1B57.0020.0002] # LATIN SMALL LETTER T
+FF54  ; [.1B57.0020.0003] # FULLWIDTH LATIN SMALL LETTER T
+036D  ; [.1B57.0020.0004] # COMBINING LATIN SMALL LETTER T
+24AF  ; [*030A.0020.0004][.1B57.0020.0004][*030B.0020.0004] # PARENTHESIZED LATIN SMALL LETTER T
+1D42D ; [.1B57.0020.0005] # MATHEMATICAL BOLD SMALL T
+1D461 ; [.1B57.0020.0005] # MATHEMATICAL ITALIC SMALL T
+1D495 ; [.1B57.0020.0005] # MATHEMATICAL BOLD ITALIC SMALL T
+1D4C9 ; [.1B57.0020.0005] # MATHEMATICAL SCRIPT SMALL T
+1D4FD ; [.1B57.0020.0005] # MATHEMATICAL BOLD SCRIPT SMALL T
+1D531 ; [.1B57.0020.0005] # MATHEMATICAL FRAKTUR SMALL T
+1D565 ; [.1B57.0020.0005] # MATHEMATICAL DOUBLE-STRUCK SMALL T
+1D599 ; [.1B57.0020.0005] # MATHEMATICAL BOLD FRAKTUR SMALL T
+1D5CD ; [.1B57.0020.0005] # MATHEMATICAL SANS-SERIF SMALL T
+1D601 ; [.1B57.0020.0005] # MATHEMATICAL SANS-SERIF BOLD SMALL T
+1D635 ; [.1B57.0020.0005] # MATHEMATICAL SANS-SERIF ITALIC SMALL T
+1D669 ; [.1B57.0020.0005] # MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL T
+1D69D ; [.1B57.0020.0005] # MATHEMATICAL MONOSPACE SMALL T
+24E3  ; [.1B57.0020.0006] # CIRCLED LATIN SMALL LETTER T
+0054  ; [.1B57.0020.0008] # LATIN CAPITAL LETTER T
+FF34  ; [.1B57.0020.0009] # FULLWIDTH LATIN CAPITAL LETTER T
+1F123 ; [*030A.0020.0004][.1B57.0020.000A][*030B.0020.0004] # PARENTHESIZED LATIN CAPITAL LETTER T
+1D413 ; [.1B57.0020.000B] # MATHEMATICAL BOLD CAPITAL T
+1D447 ; [.1B57.0020.000B] # MATHEMATICAL ITALIC CAPITAL T
+1D47B ; [.1B57.0020.000B] # MATHEMATICAL BOLD ITALIC CAPITAL T
+1D4AF ; [.1B57.0020.000B] # MATHEMATICAL SCRIPT CAPITAL T
+1D4E3 ; [.1B57.0020.000B] # MATHEMATICAL BOLD SCRIPT CAPITAL T
+1D517 ; [.1B57.0020.000B] # MATHEMATICAL FRAKTUR CAPITAL T
+1D54B ; [.1B57.0020.000B] # MATHEMATICAL DOUBLE-STRUCK CAPITAL T
+1D57F ; [.1B57.0020.000B] # MATHEMATICAL BOLD FRAKTUR CAPITAL T
+1D5B3 ; [.1B57.0020.000B] # MATHEMATICAL SANS-SERIF CAPITAL T
+1D5E7 ; [.1B57.0020.000B] # MATHEMATICAL SANS-SERIF BOLD CAPITAL T
+1D61B ; [.1B57.0020.000B] # MATHEMATICAL SANS-SERIF ITALIC CAPITAL T
+1D64F ; [.1B57.0020.000B] # MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL T
+1D683 ; [.1B57.0020.000B] # MATHEMATICAL MONOSPACE CAPITAL T
+24C9  ; [.1B57.0020.000C] # CIRCLED LATIN CAPITAL LETTER T
+1F163 ; [.1B57.0020.000C] # NEGATIVE CIRCLED LATIN CAPITAL LETTER T
+1D57  ; [.1B57.0020.0014] # MODIFIER LETTER SMALL T
+209C  ; [.1B57.0020.0015] # LATIN SUBSCRIPT SMALL LETTER T
+1D40  ; [.1B57.0020.001D] # MODIFIER LETTER CAPITAL T
+1F143 ; [.1B57.0020.001D] # SQUARED LATIN CAPITAL LETTER T
+1F183 ; [.1B57.0020.001D] # NEGATIVE SQUARED LATIN CAPITAL LETTER T
+0165  ; [.1B57.0020.0002][.0000.0028.0002] # LATIN SMALL LETTER T WITH CARON
+0164  ; [.1B57.0020.0008][.0000.0028.0002] # LATIN CAPITAL LETTER T WITH CARON
+1E97  ; [.1B57.0020.0002][.0000.002B.0002] # LATIN SMALL LETTER T WITH DIAERESIS
+1E6B  ; [.1B57.0020.0002][.0000.002E.0002] # LATIN SMALL LETTER T WITH DOT ABOVE
+1E6A  ; [.1B57.0020.0008][.0000.002E.0002] # LATIN CAPITAL LETTER T WITH DOT ABOVE
+0163  ; [.1B57.0020.0002][.0000.0030.0002] # LATIN SMALL LETTER T WITH CEDILLA
+0162  ; [.1B57.0020.0008][.0000.0030.0002] # LATIN CAPITAL LETTER T WITH CEDILLA
+1E6D  ; [.1B57.0020.0002][.0000.0042.0002] # LATIN SMALL LETTER T WITH DOT BELOW
+1E6C  ; [.1B57.0020.0008][.0000.0042.0002] # LATIN CAPITAL LETTER T WITH DOT BELOW
+021B  ; [.1B57.0020.0002][.0000.0045.0002] # LATIN SMALL LETTER T WITH COMMA BELOW
+021A  ; [.1B57.0020.0008][.0000.0045.0002] # LATIN CAPITAL LETTER T WITH COMMA BELOW
+1E71  ; [.1B57.0020.0002][.0000.0046.0002] # LATIN SMALL LETTER T WITH CIRCUMFLEX BELOW
+1E70  ; [.1B57.0020.0008][.0000.0046.0002] # LATIN CAPITAL LETTER T WITH CIRCUMFLEX BELOW
+1E6F  ; [.1B57.0020.0002][.0000.0049.0002] # LATIN SMALL LETTER T WITH LINE BELOW
+1E6E  ; [.1B57.0020.0008][.0000.0049.0002] # LATIN CAPITAL LETTER T WITH LINE BELOW
+A787  ; [.1B57.0020.0004][.0000.0109.0004] # LATIN SMALL LETTER INSULAR T
+A786  ; [.1B57.0020.000A][.0000.0109.0004] # LATIN CAPITAL LETTER INSULAR T
+02A8  ; [.1B57.0020.0004][.194D.0020.0004] # LATIN SMALL LETTER TC DIGRAPH WITH CURL
+2121  ; [.1B57.0020.000A][.196E.0020.000A][.1A3B.0020.000A] # TELEPHONE SIGN
+1D7A  ; [.1B57.0020.0004][.0000.0108.0004][.19DC.0020.0004] # LATIN SMALL LETTER TH WITH STRIKETHROUGH
+3394  ; [.1B57.0020.001D][.19DC.0020.001D][.1BE3.0020.001C] # SQUARE THZ
+2122  ; [.1B57.0020.0014][.1A6E.0020.0014] # TRADE MARK SIGN
+01BE  ; [.1B57.0020.0004][.1B33.0020.0004] # LATIN LETTER INVERTED GLOTTAL STOP WITH STROKE
+02A6  ; [.1B57.0020.0004][.1B33.0020.0004] # LATIN SMALL LETTER TS DIGRAPH
+02A7  ; [.1B57.0020.0004][.1B44.0020.0004] # LATIN SMALL LETTER TESH DIGRAPH
+A729  ; [.1B57.0020.0004][.1BE3.0020.0004] # LATIN SMALL LETTER TZ
+A728  ; [.1B57.0020.000A][.1BE3.0020.0004] # LATIN CAPITAL LETTER TZ
+1D1B  ; [.1B5B.0020.0002] # LATIN LETTER SMALL CAPITAL T
+0167  ; [.1B5C.0020.0002] # LATIN SMALL LETTER T WITH STROKE
+0166  ; [.1B5C.0020.0008] # LATIN CAPITAL LETTER T WITH STROKE
+2C66  ; [.1B60.0020.0002] # LATIN SMALL LETTER T WITH DIAGONAL STROKE
+023E  ; [.1B60.0020.0008] # LATIN CAPITAL LETTER T WITH DIAGONAL STROKE
+1D75  ; [.1B61.0020.0002] # LATIN SMALL LETTER T WITH MIDDLE TILDE
+01AB  ; [.1B62.0020.0002] # LATIN SMALL LETTER T WITH PALATAL HOOK
+1DB5  ; [.1B62.0020.0014] # MODIFIER LETTER SMALL T WITH PALATAL HOOK
+01AD  ; [.1B66.0020.0002] # LATIN SMALL LETTER T WITH HOOK
+01AC  ; [.1B66.0020.0008] # LATIN CAPITAL LETTER T WITH HOOK
+0288  ; [.1B6A.0020.0002] # LATIN SMALL LETTER T WITH RETROFLEX HOOK
+01AE  ; [.1B6A.0020.0008] # LATIN CAPITAL LETTER T WITH RETROFLEX HOOK
+0236  ; [.1B6E.0020.0002] # LATIN SMALL LETTER T WITH CURL
+A777  ; [.1B72.0020.0002] # LATIN SMALL LETTER TUM
+0287  ; [.1B73.0020.0002] # LATIN SMALL LETTER TURNED T
+A7B1  ; [.1B73.0020.0008] # LATIN CAPITAL LETTER TURNED T
+0075  ; [.1B77.0020.0002] # LATIN SMALL LETTER U
+FF55  ; [.1B77.0020.0003] # FULLWIDTH LATIN SMALL LETTER U
+0367  ; [.1B77.0020.0004] # COMBINING LATIN SMALL LETTER U
+24B0  ; [*030A.0020.0004][.1B77.0020.0004][*030B.0020.0004] # PARENTHESIZED LATIN SMALL LETTER U
+1D42E ; [.1B77.0020.0005] # MATHEMATICAL BOLD SMALL U
+1D462 ; [.1B77.0020.0005] # MATHEMATICAL ITALIC SMALL U
+1D496 ; [.1B77.0020.0005] # MATHEMATICAL BOLD ITALIC SMALL U
+1D4CA ; [.1B77.0020.0005] # MATHEMATICAL SCRIPT SMALL U
+1D4FE ; [.1B77.0020.0005] # MATHEMATICAL BOLD SCRIPT SMALL U
+1D532 ; [.1B77.0020.0005] # MATHEMATICAL FRAKTUR SMALL U
+1D566 ; [.1B77.0020.0005] # MATHEMATICAL DOUBLE-STRUCK SMALL U
+1D59A ; [.1B77.0020.0005] # MATHEMATICAL BOLD FRAKTUR SMALL U
+1D5CE ; [.1B77.0020.0005] # MATHEMATICAL SANS-SERIF SMALL U
+1D602 ; [.1B77.0020.0005] # MATHEMATICAL SANS-SERIF BOLD SMALL U
+1D636 ; [.1B77.0020.0005] # MATHEMATICAL SANS-SERIF ITALIC SMALL U
+1D66A ; [.1B77.0020.0005] # MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL U
+1D69E ; [.1B77.0020.0005] # MATHEMATICAL MONOSPACE SMALL U
+24E4  ; [.1B77.0020.0006] # CIRCLED LATIN SMALL LETTER U
+0055  ; [.1B77.0020.0008] # LATIN CAPITAL LETTER U
+FF35  ; [.1B77.0020.0009] # FULLWIDTH LATIN CAPITAL LETTER U
+1F124 ; [*030A.0020.0004][.1B77.0020.000A][*030B.0020.0004] # PARENTHESIZED LATIN CAPITAL LETTER U
+1D414 ; [.1B77.0020.000B] # MATHEMATICAL BOLD CAPITAL U
+1D448 ; [.1B77.0020.000B] # MATHEMATICAL ITALIC CAPITAL U
+1D47C ; [.1B77.0020.000B] # MATHEMATICAL BOLD ITALIC CAPITAL U
+1D4B0 ; [.1B77.0020.000B] # MATHEMATICAL SCRIPT CAPITAL U
+1D4E4 ; [.1B77.0020.000B] # MATHEMATICAL BOLD SCRIPT CAPITAL U
+1D518 ; [.1B77.0020.000B] # MATHEMATICAL FRAKTUR CAPITAL U
+1D54C ; [.1B77.0020.000B] # MATHEMATICAL DOUBLE-STRUCK CAPITAL U
+1D580 ; [.1B77.0020.000B] # MATHEMATICAL BOLD FRAKTUR CAPITAL U
+1D5B4 ; [.1B77.0020.000B] # MATHEMATICAL SANS-SERIF CAPITAL U
+1D5E8 ; [.1B77.0020.000B] # MATHEMATICAL SANS-SERIF BOLD CAPITAL U
+1D61C ; [.1B77.0020.000B] # MATHEMATICAL SANS-SERIF ITALIC CAPITAL U
+1D650 ; [.1B77.0020.000B] # MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL U
+1D684 ; [.1B77.0020.000B] # MATHEMATICAL MONOSPACE CAPITAL U
+24CA  ; [.1B77.0020.000C] # CIRCLED LATIN CAPITAL LETTER U
+1F164 ; [.1B77.0020.000C] # NEGATIVE CIRCLED LATIN CAPITAL LETTER U
+1D58  ; [.1B77.0020.0014] # MODIFIER LETTER SMALL U
+1D64  ; [.1B77.0020.0015] # LATIN SUBSCRIPT SMALL LETTER U
+1D41  ; [.1B77.0020.001D] # MODIFIER LETTER CAPITAL U
+1F144 ; [.1B77.0020.001D] # SQUARED LATIN CAPITAL LETTER U
+1F184 ; [.1B77.0020.001D] # NEGATIVE SQUARED LATIN CAPITAL LETTER U
+00FA  ; [.1B77.0020.0002][.0000.0024.0002] # LATIN SMALL LETTER U WITH ACUTE
+00DA  ; [.1B77.0020.0008][.0000.0024.0002] # LATIN CAPITAL LETTER U WITH ACUTE
+00F9  ; [.1B77.0020.0002][.0000.0025.0002] # LATIN SMALL LETTER U WITH GRAVE
+00D9  ; [.1B77.0020.0008][.0000.0025.0002] # LATIN CAPITAL LETTER U WITH GRAVE
+016D  ; [.1B77.0020.0002][.0000.0026.0002] # LATIN SMALL LETTER U WITH BREVE
+016C  ; [.1B77.0020.0008][.0000.0026.0002] # LATIN CAPITAL LETTER U WITH BREVE
+00FB  ; [.1B77.0020.0002][.0000.0027.0002] # LATIN SMALL LETTER U WITH CIRCUMFLEX
+00DB  ; [.1B77.0020.0008][.0000.0027.0002] # LATIN CAPITAL LETTER U WITH CIRCUMFLEX
+01D4  ; [.1B77.0020.0002][.0000.0028.0002] # LATIN SMALL LETTER U WITH CARON
+01D3  ; [.1B77.0020.0008][.0000.0028.0002] # LATIN CAPITAL LETTER U WITH CARON
+016F  ; [.1B77.0020.0002][.0000.0029.0002] # LATIN SMALL LETTER U WITH RING ABOVE
+016E  ; [.1B77.0020.0008][.0000.0029.0002] # LATIN CAPITAL LETTER U WITH RING ABOVE
+00FC  ; [.1B77.0020.0002][.0000.002B.0002] # LATIN SMALL LETTER U WITH DIAERESIS
+1DF4  ; [.1B77.0020.0004][.0000.002B.0004] # COMBINING LATIN SMALL LETTER U WITH DIAERESIS
+A79F  ; [.1B77.0020.0004][.0000.002B.0004] # LATIN SMALL LETTER VOLAPUK UE
+00DC  ; [.1B77.0020.0008][.0000.002B.0002] # LATIN CAPITAL LETTER U WITH DIAERESIS
+A79E  ; [.1B77.0020.000A][.0000.002B.0004] # LATIN CAPITAL LETTER VOLAPUK UE
+01D8  ; [.1B77.0020.0002][.0000.002B.0002][.0000.0024.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND ACUTE
+01D7  ; [.1B77.0020.0008][.0000.002B.0002][.0000.0024.0002] # LATIN CAPITAL LETTER U WITH DIAERESIS AND ACUTE
+01DC  ; [.1B77.0020.0002][.0000.002B.0002][.0000.0025.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND GRAVE
+01DB  ; [.1B77.0020.0008][.0000.002B.0002][.0000.0025.0002] # LATIN CAPITAL LETTER U WITH DIAERESIS AND GRAVE
+01DA  ; [.1B77.0020.0002][.0000.002B.0002][.0000.0028.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND CARON
+01D9  ; [.1B77.0020.0008][.0000.002B.0002][.0000.0028.0002] # LATIN CAPITAL LETTER U WITH DIAERESIS AND CARON
+01D6  ; [.1B77.0020.0002][.0000.002B.0002][.0000.0032.0002] # LATIN SMALL LETTER U WITH DIAERESIS AND MACRON
+01D5  ; [.1B77.0020.0008][.0000.002B.0002][.0000.0032.0002] # LATIN CAPITAL LETTER U WITH DIAERESIS AND MACRON
+0171  ; [.1B77.0020.0002][.0000.002C.0002] # LATIN SMALL LETTER U WITH DOUBLE ACUTE
+0170  ; [.1B77.0020.0008][.0000.002C.0002] # LATIN CAPITAL LETTER U WITH DOUBLE ACUTE
+0169  ; [.1B77.0020.0002][.0000.002D.0002] # LATIN SMALL LETTER U WITH TILDE
+0168  ; [.1B77.0020.0008][.0000.002D.0002] # LATIN CAPITAL LETTER U WITH TILDE
+1E79  ; [.1B77.0020.0002][.0000.002D.0002][.0000.0024.0002] # LATIN SMALL LETTER U WITH TILDE AND ACUTE
+1E78  ; [.1B77.0020.0008][.0000.002D.0002][.0000.0024.0002] # LATIN CAPITAL LETTER U WITH TILDE AND ACUTE
+0173  ; [.1B77.0020.0002][.0000.0031.0002] # LATIN SMALL LETTER U WITH OGONEK
+0172  ; [.1B77.0020.0008][.0000.0031.0002] # LATIN CAPITAL LETTER U WITH OGONEK
+016B  ; [.1B77.0020.0002][.0000.0032.0002] # LATIN SMALL LETTER U WITH MACRON
+016A  ; [.1B77.0020.0008][.0000.0032.0002] # LATIN CAPITAL LETTER U WITH MACRON
+1E7B  ; [.1B77.0020.0002][.0000.0032.0002][.0000.002B.0002] # LATIN SMALL LETTER U WITH MACRON AND DIAERESIS
+1E7A  ; [.1B77.0020.0008][.0000.0032.0002][.0000.002B.0002] # LATIN CAPITAL LETTER U WITH MACRON AND DIAERESIS
+1DF0  ; [.1B77.0020.0004][.0000.0034.0004] # COMBINING LATIN SMALL LETTER U WITH LIGHT CENTRALIZATION STROKE
+1EE7  ; [.1B77.0020.0002][.0000.003B.0002] # LATIN SMALL LETTER U WITH HOOK ABOVE
+1EE6  ; [.1B77.0020.0008][.0000.003B.0002] # LATIN CAPITAL LETTER U WITH HOOK ABOVE
+0215  ; [.1B77.0020.0002][.0000.003C.0002] # LATIN SMALL LETTER U WITH DOUBLE GRAVE
+0214  ; [.1B77.0020.0008][.0000.003C.0002] # LATIN CAPITAL LETTER U WITH DOUBLE GRAVE
+0217  ; [.1B77.0020.0002][.0000.003E.0002] # LATIN SMALL LETTER U WITH INVERTED BREVE
+0216  ; [.1B77.0020.0008][.0000.003E.0002] # LATIN CAPITAL LETTER U WITH INVERTED BREVE
+01B0  ; [.1B77.0020.0002][.0000.003F.0002] # LATIN SMALL LETTER U WITH HORN
+01AF  ; [.1B77.0020.0008][.0000.003F.0002] # LATIN CAPITAL LETTER U WITH HORN
+1EE9  ; [.1B77.0020.0002][.0000.003F.0002][.0000.0024.0002] # LATIN SMALL LETTER U WITH HORN AND ACUTE
+1EE8  ; [.1B77.0020.0008][.0000.003F.0002][.0000.0024.0002] # LATIN CAPITAL LETTER U WITH HORN AND ACUTE
+1EEB  ; [.1B77.0020.0002][.0000.003F.0002][.0000.0025.0002] # LATIN SMALL LETTER U WITH HORN AND GRAVE
+1EEA  ; [.1B77.0020.0008][.0000.003F.0002][.0000.0025.0002] # LATIN CAPITAL LETTER U WITH HORN AND GRAVE
+1EEF  ; [.1B77.0020.0002][.0000.003F.0002][.0000.002D.0002] # LATIN SMALL LETTER U WITH HORN AND TILDE
+1EEE  ; [.1B77.0020.0008][.0000.003F.0002][.0000.002D.0002] # LATIN CAPITAL LETTER U WITH HORN AND TILDE
+1EED  ; [.1B77.0020.0002][.0000.003F.0002][.0000.003B.0002] # LATIN SMALL LETTER U WITH HORN AND HOOK ABOVE
+1EEC  ; [.1B77.0020.0008][.0000.003F.0002][.0000.003B.0002] # LATIN CAPITAL LETTER U WITH HORN AND HOOK ABOVE
+1EF1  ; [.1B77.0020.0002][.0000.003F.0002][.0000.0042.0002] # LATIN SMALL LETTER U WITH HORN AND DOT BELOW
+1EF0  ; [.1B77.0020.0008][.0000.003F.0002][.0000.0042.0002] # LATIN CAPITAL LETTER U WITH HORN AND DOT BELOW
+1EE5  ; [.1B77.0020.0002][.0000.0042.0002] # LATIN SMALL LETTER U WITH DOT BELOW
+1EE4  ; [.1B77.0020.0008][.0000.0042.0002] # LATIN CAPITAL LETTER U WITH DOT BELOW
+1E73  ; [.1B77.0020.0002][.0000.0043.0002] # LATIN SMALL LETTER U WITH DIAERESIS BELOW
+1E72  ; [.1B77.0020.0008][.0000.0043.0002] # LATIN CAPITAL LETTER U WITH DIAERESIS BELOW
+1E77  ; [.1B77.0020.0002][.0000.0046.0002] # LATIN SMALL LETTER U WITH CIRCUMFLEX BELOW
+1E76  ; [.1B77.0020.0008][.0000.0046.0002] # LATIN CAPITAL LETTER U WITH CIRCUMFLEX BELOW
+1E75  ; [.1B77.0020.0002][.0000.0048.0002] # LATIN SMALL LETTER U WITH TILDE BELOW
+1E74  ; [.1B77.0020.0008][.0000.0048.0002] # LATIN CAPITAL LETTER U WITH TILDE BELOW
+1F199 ; [.1B77.0020.001D][.1ACE.0020.001D][*025F.0020.001C] # SQUARED UP WITH EXCLAMATION MARK
+1D1C  ; [.1B7B.0020.0002] # LATIN LETTER SMALL CAPITAL U
+1DB8  ; [.1B7B.0020.0014] # MODIFIER LETTER SMALL CAPITAL U
+AB4E  ; [.1B7C.0020.0002] # LATIN SMALL LETTER U WITH SHORT RIGHT LEG
+1D1D  ; [.1B7D.0020.0002] # LATIN SMALL LETTER SIDEWAYS U
+1D59  ; [.1B7D.0020.0014] # MODIFIER LETTER SMALL SIDEWAYS U
+1D1E  ; [.1B7E.0020.0002] # LATIN SMALL LETTER SIDEWAYS DIAERESIZED U
+1D6B  ; [.1B7F.0020.0002] # LATIN SMALL LETTER UE
+AB50  ; [.1B80.0020.0002] # LATIN SMALL LETTER UI
+AB51  ; [.1B81.0020.0002] # LATIN SMALL LETTER TURNED UI
+0289  ; [.1B82.0020.0002] # LATIN SMALL LETTER U BAR
+0244  ; [.1B82.0020.0008] # LATIN CAPITAL LETTER U BAR
+1DB6  ; [.1B82.0020.0014] # MODIFIER LETTER SMALL U BAR
+AB4F  ; [.1B86.0020.0002] # LATIN SMALL LETTER U BAR WITH SHORT RIGHT LEG
+1D7E  ; [.1B87.0020.0002] # LATIN SMALL CAPITAL LETTER U WITH STROKE
+1D99  ; [.1B88.0020.0002] # LATIN SMALL LETTER U WITH RETROFLEX HOOK
+AB52  ; [.1B89.0020.0002] # LATIN SMALL LETTER U WITH LEFT HOOK
+AB5F  ; [.1B89.0020.0014] # MODIFIER LETTER SMALL U WITH LEFT HOOK
+0265  ; [.1B8A.0020.0002] # LATIN SMALL LETTER TURNED H
+A78D  ; [.1B8A.0020.0008] # LATIN CAPITAL LETTER TURNED H
+1DA3  ; [.1B8A.0020.0014] # MODIFIER LETTER SMALL TURNED H
+02AE  ; [.1B8E.0020.0002] # LATIN SMALL LETTER TURNED H WITH FISHHOOK
+02AF  ; [.1B92.0020.0002] # LATIN SMALL LETTER TURNED H WITH FISHHOOK AND TAIL
+026F  ; [.1B96.0020.0002] # LATIN SMALL LETTER TURNED M
+019C  ; [.1B96.0020.0008] # LATIN CAPITAL LETTER TURNED M
+1D5A  ; [.1B96.0020.0014] # MODIFIER LETTER SMALL TURNED M
+A7FA  ; [.1B9A.0020.0002] # LATIN LETTER SMALL CAPITAL TURNED M
+1D1F  ; [.1B9B.0020.0002] # LATIN SMALL LETTER SIDEWAYS TURNED M
+0270  ; [.1B9C.0020.0002] # LATIN SMALL LETTER TURNED M WITH LONG LEG
+1DAD  ; [.1B9C.0020.0014] # MODIFIER LETTER SMALL TURNED M WITH LONG LEG
+028A  ; [.1BA0.0020.0002] # LATIN SMALL LETTER UPSILON
+01B1  ; [.1BA0.0020.0008] # LATIN CAPITAL LETTER UPSILON
+1DB7  ; [.1BA0.0020.0014] # MODIFIER LETTER SMALL UPSILON
+1D7F  ; [.1BA4.0020.0002] # LATIN SMALL LETTER UPSILON WITH STROKE
+0076  ; [.1BA5.0020.0002] # LATIN SMALL LETTER V
+FF56  ; [.1BA5.0020.0003] # FULLWIDTH LATIN SMALL LETTER V
+036E  ; [.1BA5.0020.0004] # COMBINING LATIN SMALL LETTER V
+2174  ; [.1BA5.0020.0004] # SMALL ROMAN NUMERAL FIVE
+24B1  ; [*030A.0020.0004][.1BA5.0020.0004][*030B.0020.0004] # PARENTHESIZED LATIN SMALL LETTER V
+1D42F ; [.1BA5.0020.0005] # MATHEMATICAL BOLD SMALL V
+1D463 ; [.1BA5.0020.0005] # MATHEMATICAL ITALIC SMALL V
+1D497 ; [.1BA5.0020.0005] # MATHEMATICAL BOLD ITALIC SMALL V
+1D4CB ; [.1BA5.0020.0005] # MATHEMATICAL SCRIPT SMALL V
+1D4FF ; [.1BA5.0020.0005] # MATHEMATICAL BOLD SCRIPT SMALL V
+1D533 ; [.1BA5.0020.0005] # MATHEMATICAL FRAKTUR SMALL V
+1D567 ; [.1BA5.0020.0005] # MATHEMATICAL DOUBLE-STRUCK SMALL V
+1D59B ; [.1BA5.0020.0005] # MATHEMATICAL BOLD FRAKTUR SMALL V
+1D5CF ; [.1BA5.0020.0005] # MATHEMATICAL SANS-SERIF SMALL V
+1D603 ; [.1BA5.0020.0005] # MATHEMATICAL SANS-SERIF BOLD SMALL V
+1D637 ; [.1BA5.0020.0005] # MATHEMATICAL SANS-SERIF ITALIC SMALL V
+1D66B ; [.1BA5.0020.0005] # MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL V
+1D69F ; [.1BA5.0020.0005] # MATHEMATICAL MONOSPACE SMALL V
+24E5  ; [.1BA5.0020.0006] # CIRCLED LATIN SMALL LETTER V
+0056  ; [.1BA5.0020.0008] # LATIN CAPITAL LETTER V
+FF36  ; [.1BA5.0020.0009] # FULLWIDTH LATIN CAPITAL LETTER V
+2164  ; [.1BA5.0020.000A] # ROMAN NUMERAL FIVE
+1F125 ; [*030A.0020.0004][.1BA5.0020.000A][*030B.0020.0004] # PARENTHESIZED LATIN CAPITAL LETTER V
+1D415 ; [.1BA5.0020.000B] # MATHEMATICAL BOLD CAPITAL V
+1D449 ; [.1BA5.0020.000B] # MATHEMATICAL ITALIC CAPITAL V
+1D47D ; [.1BA5.0020.000B] # MATHEMATICAL BOLD ITALIC CAPITAL V
+1D4B1 ; [.1BA5.0020.000B] # MATHEMATICAL SCRIPT CAPITAL V
+1D4E5 ; [.1BA5.0020.000B] # MATHEMATICAL BOLD SCRIPT CAPITAL V
+1D519 ; [.1BA5.0020.000B] # MATHEMATICAL FRAKTUR CAPITAL V
+1D54D ; [.1BA5.0020.000B] # MATHEMATICAL DOUBLE-STRUCK CAPITAL V
+1D581 ; [.1BA5.0020.000B] # MATHEMATICAL BOLD FRAKTUR CAPITAL V
+1D5B5 ; [.1BA5.0020.000B] # MATHEMATICAL SANS-SERIF CAPITAL V
+1D5E9 ; [.1BA5.0020.000B] # MATHEMATICAL SANS-SERIF BOLD CAPITAL V
+1D61D ; [.1BA5.0020.000B] # MATHEMATICAL SANS-SERIF ITALIC CAPITAL V
+1D651 ; [.1BA5.0020.000B] # MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL V
+1D685 ; [.1BA5.0020.000B] # MATHEMATICAL MONOSPACE CAPITAL V
+24CB  ; [.1BA5.0020.000C] # CIRCLED LATIN CAPITAL LETTER V
+1F165 ; [.1BA5.0020.000C] # NEGATIVE CIRCLED LATIN CAPITAL LETTER V
+1D5B  ; [.1BA5.0020.0014] # MODIFIER LETTER SMALL V
+1D65  ; [.1BA5.0020.0015] # LATIN SUBSCRIPT SMALL LETTER V
+2C7D  ; [.1BA5.0020.001D] # MODIFIER LETTER CAPITAL V
+1F145 ; [.1BA5.0020.001D] # SQUARED LATIN CAPITAL LETTER V
+1F185 ; [.1BA5.0020.001D] # NEGATIVE SQUARED LATIN CAPITAL LETTER V
+1E7D  ; [.1BA5.0020.0002][.0000.002D.0002] # LATIN SMALL LETTER V WITH TILDE
+1E7C  ; [.1BA5.0020.0008][.0000.002D.0002] # LATIN CAPITAL LETTER V WITH TILDE
+1E7F  ; [.1BA5.0020.0002][.0000.0042.0002] # LATIN SMALL LETTER V WITH DOT BELOW
+1E7E  ; [.1BA5.0020.0008][.0000.0042.0002] # LATIN CAPITAL LETTER V WITH DOT BELOW
+2175  ; [.1BA5.0020.0004][.19F6.0020.0004] # SMALL ROMAN NUMERAL SIX
+2165  ; [.1BA5.0020.000A][.19F6.0020.000A] # ROMAN NUMERAL SIX
+2176  ; [.1BA5.0020.0004][.19F6.0020.0004][.19F6.0020.0004] # SMALL ROMAN NUMERAL SEVEN
+2166  ; [.1BA5.0020.000A][.19F6.0020.000A][.19F6.0020.000A] # ROMAN NUMERAL SEVEN
+2177  ; [.1BA5.0020.0004][.19F6.0020.0004][.19F6.0020.0004][.19F6.0020.0004] # SMALL ROMAN NUMERAL EIGHT
+2167  ; [.1BA5.0020.000A][.19F6.0020.000A][.19F6.0020.000A][.19F6.0020.000A] # ROMAN NUMERAL EIGHT
+33DE  ; [.1BA5.0020.001D][*05E5.0020.001C][.1A6E.0020.001C] # SQUARE V OVER M
+1F19A ; [.1BA5.0020.001D][.1B33.0020.001D] # SQUARED VS
+A761  ; [.1BA5.0020.0004][.1BCD.0020.0004] # LATIN SMALL LETTER VY
+A760  ; [.1BA5.0020.000A][.1BCD.0020.000A] # LATIN CAPITAL LETTER VY
+1D20  ; [.1BA9.0020.0002] # LATIN LETTER SMALL CAPITAL V
+A75F  ; [.1BAA.0020.0002] # LATIN SMALL LETTER V WITH DIAGONAL STROKE
+A75E  ; [.1BAA.0020.0008] # LATIN CAPITAL LETTER V WITH DIAGONAL STROKE
+1D8C  ; [.1BAB.0020.0002] # LATIN SMALL LETTER V WITH PALATAL HOOK
+028B  ; [.1BAC.0020.0002] # LATIN SMALL LETTER V WITH HOOK
+01B2  ; [.1BAC.0020.0008] # LATIN CAPITAL LETTER V WITH HOOK
+1DB9  ; [.1BAC.0020.0014] # MODIFIER LETTER SMALL V WITH HOOK
+2C71  ; [.1BB0.0020.0002] # LATIN SMALL LETTER V WITH RIGHT HOOK
+2C74  ; [.1BB1.0020.0002] # LATIN SMALL LETTER V WITH CURL
+1EFD  ; [.1BB2.0020.0002] # LATIN SMALL LETTER MIDDLE-WELSH V
+1EFC  ; [.1BB2.0020.0008] # LATIN CAPITAL LETTER MIDDLE-WELSH V
+028C  ; [.1BB3.0020.0002] # LATIN SMALL LETTER TURNED V
+0245  ; [.1BB3.0020.0008] # LATIN CAPITAL LETTER TURNED V
+1DBA  ; [.1BB3.0020.0014] # MODIFIER LETTER SMALL TURNED V
+0077  ; [.1BB7.0020.0002] # LATIN SMALL LETTER W
+FF57  ; [.1BB7.0020.0003] # FULLWIDTH LATIN SMALL LETTER W
+1DF1  ; [.1BB7.0020.0004] # COMBINING LATIN SMALL LETTER W
+24B2  ; [*030A.0020.0004][.1BB7.0020.0004][*030B.0020.0004] # PARENTHESIZED LATIN SMALL LETTER W
+1D430 ; [.1BB7.0020.0005] # MATHEMATICAL BOLD SMALL W
+1D464 ; [.1BB7.0020.0005] # MATHEMATICAL ITALIC SMALL W
+1D498 ; [.1BB7.0020.0005] # MATHEMATICAL BOLD ITALIC SMALL W
+1D4CC ; [.1BB7.0020.0005] # MATHEMATICAL SCRIPT SMALL W
+1D500 ; [.1BB7.0020.0005] # MATHEMATICAL BOLD SCRIPT SMALL W
+1D534 ; [.1BB7.0020.0005] # MATHEMATICAL FRAKTUR SMALL W
+1D568 ; [.1BB7.0020.0005] # MATHEMATICAL DOUBLE-STRUCK SMALL W
+1D59C ; [.1BB7.0020.0005] # MATHEMATICAL BOLD FRAKTUR SMALL W
+1D5D0 ; [.1BB7.0020.0005] # MATHEMATICAL SANS-SERIF SMALL W
+1D604 ; [.1BB7.0020.0005] # MATHEMATICAL SANS-SERIF BOLD SMALL W
+1D638 ; [.1BB7.0020.0005] # MATHEMATICAL SANS-SERIF ITALIC SMALL W
+1D66C ; [.1BB7.0020.0005] # MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL W
+1D6A0 ; [.1BB7.0020.0005] # MATHEMATICAL MONOSPACE SMALL W
+24E6  ; [.1BB7.0020.0006] # CIRCLED LATIN SMALL LETTER W
+0057  ; [.1BB7.0020.0008] # LATIN CAPITAL LETTER W
+FF37  ; [.1BB7.0020.0009] # FULLWIDTH LATIN CAPITAL LETTER W
+1F126 ; [*030A.0020.0004][.1BB7.0020.000A][*030B.0020.0004] # PARENTHESIZED LATIN CAPITAL LETTER W
+1D416 ; [.1BB7.0020.000B] # MATHEMATICAL BOLD CAPITAL W
+1D44A ; [.1BB7.0020.000B] # MATHEMATICAL ITALIC CAPITAL W
+1D47E ; [.1BB7.0020.000B] # MATHEMATICAL BOLD ITALIC CAPITAL W
+1D4B2 ; [.1BB7.0020.000B] # MATHEMATICAL SCRIPT CAPITAL W
+1D4E6 ; [.1BB7.0020.000B] # MATHEMATICAL BOLD SCRIPT CAPITAL W
+1D51A ; [.1BB7.0020.000B] # MATHEMATICAL FRAKTUR CAPITAL W
+1D54E ; [.1BB7.0020.000B] # MATHEMATICAL DOUBLE-STRUCK CAPITAL W
+1D582 ; [.1BB7.0020.000B] # MATHEMATICAL BOLD FRAKTUR CAPITAL W
+1D5B6 ; [.1BB7.0020.000B] # MATHEMATICAL SANS-SERIF CAPITAL W
+1D5EA ; [.1BB7.0020.000B] # MATHEMATICAL SANS-SERIF BOLD CAPITAL W
+1D61E ; [.1BB7.0020.000B] # MATHEMATICAL SANS-SERIF ITALIC CAPITAL W
+1D652 ; [.1BB7.0020.000B] # MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL W
+1D686 ; [.1BB7.0020.000B] # MATHEMATICAL MONOSPACE CAPITAL W
+24CC  ; [.1BB7.0020.000C] # CIRCLED LATIN CAPITAL LETTER W
+1F166 ; [.1BB7.0020.000C] # NEGATIVE CIRCLED LATIN CAPITAL LETTER W
+02B7  ; [.1BB7.0020.0014] # MODIFIER LETTER SMALL W
+1D42  ; [.1BB7.0020.001D] # MODIFIER LETTER CAPITAL W
+1F146 ; [.1BB7.0020.001D] # SQUARED LATIN CAPITAL LETTER W
+1F186 ; [.1BB7.0020.001D] # NEGATIVE SQUARED LATIN CAPITAL LETTER W
+1E83  ; [.1BB7.0020.0002][.0000.0024.0002] # LATIN SMALL LETTER W WITH ACUTE
+1E82  ; [.1BB7.0020.0008][.0000.0024.0002] # LATIN CAPITAL LETTER W WITH ACUTE
+1E81  ; [.1BB7.0020.0002][.0000.0025.0002] # LATIN SMALL LETTER W WITH GRAVE
+1E80  ; [.1BB7.0020.0008][.0000.0025.0002] # LATIN CAPITAL LETTER W WITH GRAVE
+0175  ; [.1BB7.0020.0002][.0000.0027.0002] # LATIN SMALL LETTER W WITH CIRCUMFLEX
+0174  ; [.1BB7.0020.0008][.0000.0027.0002] # LATIN CAPITAL LETTER W WITH CIRCUMFLEX
+1E98  ; [.1BB7.0020.0002][.0000.0029.0002] # LATIN SMALL LETTER W WITH RING ABOVE
+1E85  ; [.1BB7.0020.0002][.0000.002B.0002] # LATIN SMALL LETTER W WITH DIAERESIS
+1E84  ; [.1BB7.0020.0008][.0000.002B.0002] # LATIN CAPITAL LETTER W WITH DIAERESIS
+1E87  ; [.1BB7.0020.0002][.0000.002E.0002] # LATIN SMALL LETTER W WITH DOT ABOVE
+1E86  ; [.1BB7.0020.0008][.0000.002E.0002] # LATIN CAPITAL LETTER W WITH DOT ABOVE
+1E89  ; [.1BB7.0020.0002][.0000.0042.0002] # LATIN SMALL LETTER W WITH DOT BELOW
+1E88  ; [.1BB7.0020.0008][.0000.0042.0002] # LATIN CAPITAL LETTER W WITH DOT BELOW
+33DD  ; [.1BB7.0020.001D][.1925.0020.001C] # SQUARE WB
+1F14F ; [.1BB7.0020.001D][.193E.0020.001D] # SQUARED WC
+1F18F ; [.1BB7.0020.001D][.193E.0020.001D] # NEGATIVE SQUARED WC
+1F12E ; [.1BB7.0020.000C][.1BE3.0020.000C] # CIRCLED WZ
+1D21  ; [.1BBB.0020.0002] # LATIN LETTER SMALL CAPITAL W
+2C73  ; [.1BBC.0020.0002] # LATIN SMALL LETTER W WITH HOOK
+2C72  ; [.1BBC.0020.0008] # LATIN CAPITAL LETTER W WITH HOOK
+028D  ; [.1BBD.0020.0002] # LATIN SMALL LETTER TURNED W
+0078  ; [.1BC1.0020.0002] # LATIN SMALL LETTER X
+FF58  ; [.1BC1.0020.0003] # FULLWIDTH LATIN SMALL LETTER X
+036F  ; [.1BC1.0020.0004] # COMBINING LATIN SMALL LETTER X
+2179  ; [.1BC1.0020.0004] # SMALL ROMAN NUMERAL TEN
+24B3  ; [*030A.0020.0004][.1BC1.0020.0004][*030B.0020.0004] # PARENTHESIZED LATIN SMALL LETTER X
+1D431 ; [.1BC1.0020.0005] # MATHEMATICAL BOLD SMALL X
+1D465 ; [.1BC1.0020.0005] # MATHEMATICAL ITALIC SMALL X
+1D499 ; [.1BC1.0020.0005] # MATHEMATICAL BOLD ITALIC SMALL X
+1D4CD ; [.1BC1.0020.0005] # MATHEMATICAL SCRIPT SMALL X
+1D501 ; [.1BC1.0020.0005] # MATHEMATICAL BOLD SCRIPT SMALL X
+1D535 ; [.1BC1.0020.0005] # MATHEMATICAL FRAKTUR SMALL X
+1D569 ; [.1BC1.0020.0005] # MATHEMATICAL DOUBLE-STRUCK SMALL X
+1D59D ; [.1BC1.0020.0005] # MATHEMATICAL BOLD FRAKTUR SMALL X
+1D5D1 ; [.1BC1.0020.0005] # MATHEMATICAL SANS-SERIF SMALL X
+1D605 ; [.1BC1.0020.0005] # MATHEMATICAL SANS-SERIF BOLD SMALL X
+1D639 ; [.1BC1.0020.0005] # MATHEMATICAL SANS-SERIF ITALIC SMALL X
+1D66D ; [.1BC1.0020.0005] # MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL X
+1D6A1 ; [.1BC1.0020.0005] # MATHEMATICAL MONOSPACE SMALL X
+24E7  ; [.1BC1.0020.0006] # CIRCLED LATIN SMALL LETTER X
+0058  ; [.1BC1.0020.0008] # LATIN CAPITAL LETTER X
+FF38  ; [.1BC1.0020.0009] # FULLWIDTH LATIN CAPITAL LETTER X
+2169  ; [.1BC1.0020.000A] # ROMAN NUMERAL TEN
+1F127 ; [*030A.0020.0004][.1BC1.0020.000A][*030B.0020.0004] # PARENTHESIZED LATIN CAPITAL LETTER X
+1D417 ; [.1BC1.0020.000B] # MATHEMATICAL BOLD CAPITAL X
+1D44B ; [.1BC1.0020.000B] # MATHEMATICAL ITALIC CAPITAL X
+1D47F ; [.1BC1.0020.000B] # MATHEMATICAL BOLD ITALIC CAPITAL X
+1D4B3 ; [.1BC1.0020.000B] # MATHEMATICAL SCRIPT CAPITAL X
+1D4E7 ; [.1BC1.0020.000B] # MATHEMATICAL BOLD SCRIPT CAPITAL X
+1D51B ; [.1BC1.0020.000B] # MATHEMATICAL FRAKTUR CAPITAL X
+1D54F ; [.1BC1.0020.000B] # MATHEMATICAL DOUBLE-STRUCK CAPITAL X
+1D583 ; [.1BC1.0020.000B] # MATHEMATICAL BOLD FRAKTUR CAPITAL X
+1D5B7 ; [.1BC1.0020.000B] # MATHEMATICAL SANS-SERIF CAPITAL X
+1D5EB ; [.1BC1.0020.000B] # MATHEMATICAL SANS-SERIF BOLD CAPITAL X
+1D61F ; [.1BC1.0020.000B] # MATHEMATICAL SANS-SERIF ITALIC CAPITAL X
+1D653 ; [.1BC1.0020.000B] # MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL X
+1D687 ; [.1BC1.0020.000B] # MATHEMATICAL MONOSPACE CAPITAL X
+24CD  ; [.1BC1.0020.000C] # CIRCLED LATIN CAPITAL LETTER X
+1F167 ; [.1BC1.0020.000C] # NEGATIVE CIRCLED LATIN CAPITAL LETTER X
+02E3  ; [.1BC1.0020.0014] # MODIFIER LETTER SMALL X
+2093  ; [.1BC1.0020.0015] # LATIN SUBSCRIPT SMALL LETTER X
+1F147 ; [.1BC1.0020.001D] # SQUARED LATIN CAPITAL LETTER X
+1F187 ; [.1BC1.0020.001D] # NEGATIVE SQUARED LATIN CAPITAL LETTER X
+1E8D  ; [.1BC1.0020.0002][.0000.002B.0002] # LATIN SMALL LETTER X WITH DIAERESIS
+1E8C  ; [.1BC1.0020.0008][.0000.002B.0002] # LATIN CAPITAL LETTER X WITH DIAERESIS
+1E8B  ; [.1BC1.0020.0002][.0000.002E.0002] # LATIN SMALL LETTER X WITH DOT ABOVE
+1E8A  ; [.1BC1.0020.0008][.0000.002E.0002] # LATIN CAPITAL LETTER X WITH DOT ABOVE
+217A  ; [.1BC1.0020.0004][.19F6.0020.0004] # SMALL ROMAN NUMERAL ELEVEN
+216A  ; [.1BC1.0020.000A][.19F6.0020.000A] # ROMAN NUMERAL ELEVEN
+217B  ; [.1BC1.0020.0004][.19F6.0020.0004][.19F6.0020.0004] # SMALL ROMAN NUMERAL TWELVE
+216B  ; [.1BC1.0020.000A][.19F6.0020.000A][.19F6.0020.000A] # ROMAN NUMERAL TWELVE
+1D8D  ; [.1BC5.0020.0002] # LATIN SMALL LETTER X WITH PALATAL HOOK
+AB56  ; [.1BC6.0020.0002] # LATIN SMALL LETTER X WITH LOW RIGHT RING
+AB57  ; [.1BC7.0020.0002] # LATIN SMALL LETTER X WITH LONG LEFT LEG
+AB58  ; [.1BC8.0020.0002] # LATIN SMALL LETTER X WITH LONG LEFT LEG AND LOW RIGHT RING
+AB59  ; [.1BC9.0020.0002] # LATIN SMALL LETTER X WITH LONG LEFT LEG WITH SERIF
+AB53  ; [.1BCA.0020.0002] # LATIN SMALL LETTER CHI
+AB54  ; [.1BCB.0020.0002] # LATIN SMALL LETTER CHI WITH LOW RIGHT RING
+AB55  ; [.1BCC.0020.0002] # LATIN SMALL LETTER CHI WITH LOW LEFT SERIF
+0079  ; [.1BCD.0020.0002] # LATIN SMALL LETTER Y
+FF59  ; [.1BCD.0020.0003] # FULLWIDTH LATIN SMALL LETTER Y
+24B4  ; [*030A.0020.0004][.1BCD.0020.0004][*030B.0020.0004] # PARENTHESIZED LATIN SMALL LETTER Y
+1D432 ; [.1BCD.0020.0005] # MATHEMATICAL BOLD SMALL Y
+1D466 ; [.1BCD.0020.0005] # MATHEMATICAL ITALIC SMALL Y
+1D49A ; [.1BCD.0020.0005] # MATHEMATICAL BOLD ITALIC SMALL Y
+1D4CE ; [.1BCD.0020.0005] # MATHEMATICAL SCRIPT SMALL Y
+1D502 ; [.1BCD.0020.0005] # MATHEMATICAL BOLD SCRIPT SMALL Y
+1D536 ; [.1BCD.0020.0005] # MATHEMATICAL FRAKTUR SMALL Y
+1D56A ; [.1BCD.0020.0005] # MATHEMATICAL DOUBLE-STRUCK SMALL Y
+1D59E ; [.1BCD.0020.0005] # MATHEMATICAL BOLD FRAKTUR SMALL Y
+1D5D2 ; [.1BCD.0020.0005] # MATHEMATICAL SANS-SERIF SMALL Y
+1D606 ; [.1BCD.0020.0005] # MATHEMATICAL SANS-SERIF BOLD SMALL Y
+1D63A ; [.1BCD.0020.0005] # MATHEMATICAL SANS-SERIF ITALIC SMALL Y
+1D66E ; [.1BCD.0020.0005] # MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL Y
+1D6A2 ; [.1BCD.0020.0005] # MATHEMATICAL MONOSPACE SMALL Y
+24E8  ; [.1BCD.0020.0006] # CIRCLED LATIN SMALL LETTER Y
+0059  ; [.1BCD.0020.0008] # LATIN CAPITAL LETTER Y
+FF39  ; [.1BCD.0020.0009] # FULLWIDTH LATIN CAPITAL LETTER Y
+1F128 ; [*030A.0020.0004][.1BCD.0020.000A][*030B.0020.0004] # PARENTHESIZED LATIN CAPITAL LETTER Y
+1D418 ; [.1BCD.0020.000B] # MATHEMATICAL BOLD CAPITAL Y
+1D44C ; [.1BCD.0020.000B] # MATHEMATICAL ITALIC CAPITAL Y
+1D480 ; [.1BCD.0020.000B] # MATHEMATICAL BOLD ITALIC CAPITAL Y
+1D4B4 ; [.1BCD.0020.000B] # MATHEMATICAL SCRIPT CAPITAL Y
+1D4E8 ; [.1BCD.0020.000B] # MATHEMATICAL BOLD SCRIPT CAPITAL Y
+1D51C ; [.1BCD.0020.000B] # MATHEMATICAL FRAKTUR CAPITAL Y
+1D550 ; [.1BCD.0020.000B] # MATHEMATICAL DOUBLE-STRUCK CAPITAL Y
+1D584 ; [.1BCD.0020.000B] # MATHEMATICAL BOLD FRAKTUR CAPITAL Y
+1D5B8 ; [.1BCD.0020.000B] # MATHEMATICAL SANS-SERIF CAPITAL Y
+1D5EC ; [.1BCD.0020.000B] # MATHEMATICAL SANS-SERIF BOLD CAPITAL Y
+1D620 ; [.1BCD.0020.000B] # MATHEMATICAL SANS-SERIF ITALIC CAPITAL Y
+1D654 ; [.1BCD.0020.000B] # MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL Y
+1D688 ; [.1BCD.0020.000B] # MATHEMATICAL MONOSPACE CAPITAL Y
+24CE  ; [.1BCD.0020.000C] # CIRCLED LATIN CAPITAL LETTER Y
+1F168 ; [.1BCD.0020.000C] # NEGATIVE CIRCLED LATIN CAPITAL LETTER Y
+02B8  ; [.1BCD.0020.0014] # MODIFIER LETTER SMALL Y
+1F148 ; [.1BCD.0020.001D] # SQUARED LATIN CAPITAL LETTER Y
+1F188 ; [.1BCD.0020.001D] # NEGATIVE SQUARED LATIN CAPITAL LETTER Y
+00FD  ; [.1BCD.0020.0002][.0000.0024.0002] # LATIN SMALL LETTER Y WITH ACUTE
+00DD  ; [.1BCD.0020.0008][.0000.0024.0002] # LATIN CAPITAL LETTER Y WITH ACUTE
+1EF3  ; [.1BCD.0020.0002][.0000.0025.0002] # LATIN SMALL LETTER Y WITH GRAVE
+1EF2  ; [.1BCD.0020.0008][.0000.0025.0002] # LATIN CAPITAL LETTER Y WITH GRAVE
+0177  ; [.1BCD.0020.0002][.0000.0027.0002] # LATIN SMALL LETTER Y WITH CIRCUMFLEX
+0176  ; [.1BCD.0020.0008][.0000.0027.0002] # LATIN CAPITAL LETTER Y WITH CIRCUMFLEX
+1E99  ; [.1BCD.0020.0002][.0000.0029.0002] # LATIN SMALL LETTER Y WITH RING ABOVE
+00FF  ; [.1BCD.0020.0002][.0000.002B.0002] # LATIN SMALL LETTER Y WITH DIAERESIS
+0178  ; [.1BCD.0020.0008][.0000.002B.0002] # LATIN CAPITAL LETTER Y WITH DIAERESIS
+1EF9  ; [.1BCD.0020.0002][.0000.002D.0002] # LATIN SMALL LETTER Y WITH TILDE
+1EF8  ; [.1BCD.0020.0008][.0000.002D.0002] # LATIN CAPITAL LETTER Y WITH TILDE
+1E8F  ; [.1BCD.0020.0002][.0000.002E.0002] # LATIN SMALL LETTER Y WITH DOT ABOVE
+1E8E  ; [.1BCD.0020.0008][.0000.002E.0002] # LATIN CAPITAL LETTER Y WITH DOT ABOVE
+0233  ; [.1BCD.0020.0002][.0000.0032.0002] # LATIN SMALL LETTER Y WITH MACRON
+0232  ; [.1BCD.0020.0008][.0000.0032.0002] # LATIN CAPITAL LETTER Y WITH MACRON
+1EF7  ; [.1BCD.0020.0002][.0000.003B.0002] # LATIN SMALL LETTER Y WITH HOOK ABOVE
+1EF6  ; [.1BCD.0020.0008][.0000.003B.0002] # LATIN CAPITAL LETTER Y WITH HOOK ABOVE
+1EF5  ; [.1BCD.0020.0002][.0000.0042.0002] # LATIN SMALL LETTER Y WITH DOT BELOW
+1EF4  ; [.1BCD.0020.0008][.0000.0042.0002] # LATIN CAPITAL LETTER Y WITH DOT BELOW
+028F  ; [.1BD1.0020.0002] # LATIN LETTER SMALL CAPITAL Y
+024F  ; [.1BD5.0020.0002] # LATIN SMALL LETTER Y WITH STROKE
+024E  ; [.1BD5.0020.0008] # LATIN CAPITAL LETTER Y WITH STROKE
+01B4  ; [.1BD9.0020.0002] # LATIN SMALL LETTER Y WITH HOOK
+01B3  ; [.1BD9.0020.0008] # LATIN CAPITAL LETTER Y WITH HOOK
+1EFF  ; [.1BDD.0020.0002] # LATIN SMALL LETTER Y WITH LOOP
+1EFE  ; [.1BDD.0020.0008] # LATIN CAPITAL LETTER Y WITH LOOP
+AB5A  ; [.1BDE.0020.0002] # LATIN SMALL LETTER Y WITH SHORT RIGHT LEG
+021D  ; [.1BDF.0020.0002] # LATIN SMALL LETTER YOGH
+021C  ; [.1BDF.0020.0008] # LATIN CAPITAL LETTER YOGH
+007A  ; [.1BE3.0020.0002] # LATIN SMALL LETTER Z
+FF5A  ; [.1BE3.0020.0003] # FULLWIDTH LATIN SMALL LETTER Z
+1DE6  ; [.1BE3.0020.0004] # COMBINING LATIN SMALL LETTER Z
+24B5  ; [*030A.0020.0004][.1BE3.0020.0004][*030B.0020.0004] # PARENTHESIZED LATIN SMALL LETTER Z
+1D433 ; [.1BE3.0020.0005] # MATHEMATICAL BOLD SMALL Z
+1D467 ; [.1BE3.0020.0005] # MATHEMATICAL ITALIC SMALL Z
+1D49B ; [.1BE3.0020.0005] # MATHEMATICAL BOLD ITALIC SMALL Z
+1D4CF ; [.1BE3.0020.0005] # MATHEMATICAL SCRIPT SMALL Z
+1D503 ; [.1BE3.0020.0005] # MATHEMATICAL BOLD SCRIPT SMALL Z
+1D537 ; [.1BE3.0020.0005] # MATHEMATICAL FRAKTUR SMALL Z
+1D56B ; [.1BE3.0020.0005] # MATHEMATICAL DOUBLE-STRUCK SMALL Z
+1D59F ; [.1BE3.0020.0005] # MATHEMATICAL BOLD FRAKTUR SMALL Z
+1D5D3 ; [.1BE3.0020.0005] # MATHEMATICAL SANS-SERIF SMALL Z
+1D607 ; [.1BE3.0020.0005] # MATHEMATICAL SANS-SERIF BOLD SMALL Z
+1D63B ; [.1BE3.0020.0005] # MATHEMATICAL SANS-SERIF ITALIC SMALL Z
+1D66F ; [.1BE3.0020.0005] # MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL Z
+1D6A3 ; [.1BE3.0020.0005] # MATHEMATICAL MONOSPACE SMALL Z
+24E9  ; [.1BE3.0020.0006] # CIRCLED LATIN SMALL LETTER Z
+005A  ; [.1BE3.0020.0008] # LATIN CAPITAL LETTER Z
+FF3A  ; [.1BE3.0020.0009] # FULLWIDTH LATIN CAPITAL LETTER Z
+1F129 ; [*030A.0020.0004][.1BE3.0020.000A][*030B.0020.0004] # PARENTHESIZED LATIN CAPITAL LETTER Z
+2124  ; [.1BE3.0020.000B] # DOUBLE-STRUCK CAPITAL Z
+2128  ; [.1BE3.0020.000B] # BLACK-LETTER CAPITAL Z
+1D419 ; [.1BE3.0020.000B] # MATHEMATICAL BOLD CAPITAL Z
+1D44D ; [.1BE3.0020.000B] # MATHEMATICAL ITALIC CAPITAL Z
+1D481 ; [.1BE3.0020.000B] # MATHEMATICAL BOLD ITALIC CAPITAL Z
+1D4B5 ; [.1BE3.0020.000B] # MATHEMATICAL SCRIPT CAPITAL Z
+1D4E9 ; [.1BE3.0020.000B] # MATHEMATICAL BOLD SCRIPT CAPITAL Z
+1D585 ; [.1BE3.0020.000B] # MATHEMATICAL BOLD FRAKTUR CAPITAL Z
+1D5B9 ; [.1BE3.0020.000B] # MATHEMATICAL SANS-SERIF CAPITAL Z
+1D5ED ; [.1BE3.0020.000B] # MATHEMATICAL SANS-SERIF BOLD CAPITAL Z
+1D621 ; [.1BE3.0020.000B] # MATHEMATICAL SANS-SERIF ITALIC CAPITAL Z
+1D655 ; [.1BE3.0020.000B] # MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL Z
+1D689 ; [.1BE3.0020.000B] # MATHEMATICAL MONOSPACE CAPITAL Z
+24CF  ; [.1BE3.0020.000C] # CIRCLED LATIN CAPITAL LETTER Z
+1F169 ; [.1BE3.0020.000C] # NEGATIVE CIRCLED LATIN CAPITAL LETTER Z
+1DBB  ; [.1BE3.0020.0014] # MODIFIER LETTER SMALL Z
+1F149 ; [.1BE3.0020.001D] # SQUARED LATIN CAPITAL LETTER Z
+1F189 ; [.1BE3.0020.001D] # NEGATIVE SQUARED LATIN CAPITAL LETTER Z
+017A  ; [.1BE3.0020.0002][.0000.0024.0002] # LATIN SMALL LETTER Z WITH ACUTE
+0179  ; [.1BE3.0020.0008][.0000.0024.0002] # LATIN CAPITAL LETTER Z WITH ACUTE
+1E91  ; [.1BE3.0020.0002][.0000.0027.0002] # LATIN SMALL LETTER Z WITH CIRCUMFLEX
+1E90  ; [.1BE3.0020.0008][.0000.0027.0002] # LATIN CAPITAL LETTER Z WITH CIRCUMFLEX
+017E  ; [.1BE3.0020.0002][.0000.0028.0002] # LATIN SMALL LETTER Z WITH CARON
+017D  ; [.1BE3.0020.0008][.0000.0028.0002] # LATIN CAPITAL LETTER Z WITH CARON
+017C  ; [.1BE3.0020.0002][.0000.002E.0002] # LATIN SMALL LETTER Z WITH DOT ABOVE
+017B  ; [.1BE3.0020.0008][.0000.002E.0002] # LATIN CAPITAL LETTER Z WITH DOT ABOVE
+1E93  ; [.1BE3.0020.0002][.0000.0042.0002] # LATIN SMALL LETTER Z WITH DOT BELOW
+1E92  ; [.1BE3.0020.0008][.0000.0042.0002] # LATIN CAPITAL LETTER Z WITH DOT BELOW
+1E95  ; [.1BE3.0020.0002][.0000.0049.0002] # LATIN SMALL LETTER Z WITH LINE BELOW
+1E94  ; [.1BE3.0020.0008][.0000.0049.0002] # LATIN CAPITAL LETTER Z WITH LINE BELOW
+018D  ; [.1BE3.0020.0004][.1BB7.0020.0004] # LATIN SMALL LETTER TURNED DELTA
+1D22  ; [.1BE7.0020.0002] # LATIN LETTER SMALL CAPITAL Z
+01B6  ; [.1BE8.0020.0002] # LATIN SMALL LETTER Z WITH STROKE
+01B5  ; [.1BE8.0020.0008] # LATIN CAPITAL LETTER Z WITH STROKE
+1D76  ; [.1BEC.0020.0002] # LATIN SMALL LETTER Z WITH MIDDLE TILDE
+1D8E  ; [.1BED.0020.0002] # LATIN SMALL LETTER Z WITH PALATAL HOOK
+0225  ; [.1BEE.0020.0002] # LATIN SMALL LETTER Z WITH HOOK
+0224  ; [.1BEE.0020.0008] # LATIN CAPITAL LETTER Z WITH HOOK
+0290  ; [.1BF2.0020.0002] # LATIN SMALL LETTER Z WITH RETROFLEX HOOK
+1DBC  ; [.1BF2.0020.0014] # MODIFIER LETTER SMALL Z WITH RETROFLEX HOOK
+0291  ; [.1BF6.0020.0002] # LATIN SMALL LETTER Z WITH CURL
+1DBD  ; [.1BF6.0020.0014] # MODIFIER LETTER SMALL Z WITH CURL
+0240  ; [.1BFA.0020.0002] # LATIN SMALL LETTER Z WITH SWASH TAIL
+2C7F  ; [.1BFA.0020.0008] # LATIN CAPITAL LETTER Z WITH SWASH TAIL
+2C6C  ; [.1BFE.0020.0002] # LATIN SMALL LETTER Z WITH DESCENDER
+2C6B  ; [.1BFE.0020.0008] # LATIN CAPITAL LETTER Z WITH DESCENDER
+A763  ; [.1BFF.0020.0002] # LATIN SMALL LETTER VISIGOTHIC Z
+A762  ; [.1BFF.0020.0008] # LATIN CAPITAL LETTER VISIGOTHIC Z
+0292  ; [.1C00.0020.0002] # LATIN SMALL LETTER EZH
+01B7  ; [.1C00.0020.0008] # LATIN CAPITAL LETTER EZH
+1DBE  ; [.1C00.0020.0014] # MODIFIER LETTER SMALL EZH
+01EF  ; [.1C00.0020.0002][.0000.0028.0002] # LATIN SMALL LETTER EZH WITH CARON
+01EE  ; [.1C00.0020.0008][.0000.0028.0002] # LATIN CAPITAL LETTER EZH WITH CARON
+1D23  ; [.1C04.0020.0002] # LATIN LETTER SMALL CAPITAL EZH
+01B9  ; [.1C05.0020.0002] # LATIN SMALL LETTER EZH REVERSED
+01B8  ; [.1C05.0020.0008] # LATIN CAPITAL LETTER EZH REVERSED
+1D9A  ; [.1C09.0020.0002] # LATIN SMALL LETTER EZH WITH RETROFLEX HOOK
+01BA  ; [.1C0A.0020.0002] # LATIN SMALL LETTER EZH WITH TAIL
+0293  ; [.1C0E.0020.0002] # LATIN SMALL LETTER EZH WITH CURL
+00FE  ; [.1C12.0020.0002] # LATIN SMALL LETTER THORN
+00DE  ; [.1C12.0020.0008] # LATIN CAPITAL LETTER THORN
+A765  ; [.1C16.0020.0002] # LATIN SMALL LETTER THORN WITH STROKE
+A764  ; [.1C16.0020.0008] # LATIN CAPITAL LETTER THORN WITH STROKE
+A767  ; [.1C17.0020.0002] # LATIN SMALL LETTER THORN WITH STROKE THROUGH DESCENDER
+A766  ; [.1C17.0020.0008] # LATIN CAPITAL LETTER THORN WITH STROKE THROUGH DESCENDER
+01BF  ; [.1C18.0020.0002] # LATIN LETTER WYNN
+01F7  ; [.1C18.0020.0008] # LATIN CAPITAL LETTER WYNN
+A769  ; [.1C1C.0020.0002] # LATIN SMALL LETTER VEND
+A768  ; [.1C1C.0020.0008] # LATIN CAPITAL LETTER VEND
+A76B  ; [.1C1D.0020.0002] # LATIN SMALL LETTER ET
+A76A  ; [.1C1D.0020.0008] # LATIN CAPITAL LETTER ET
+A76D  ; [.1C1E.0020.0002] # LATIN SMALL LETTER IS
+A76C  ; [.1C1E.0020.0008] # LATIN CAPITAL LETTER IS
+A76F  ; [.1C1F.0020.0002] # LATIN SMALL LETTER CON
+1DD2  ; [.1C1F.0020.0004] # COMBINING US ABOVE
+A76E  ; [.1C1F.0020.0008] # LATIN CAPITAL LETTER CON
+A770  ; [.1C1F.0020.0014] # MODIFIER LETTER US
+A778  ; [.1C20.0020.0002] # LATIN SMALL LETTER UM
+01BB  ; [.1C21.0020.0002] # LATIN LETTER TWO WITH STROKE
+A72B  ; [.1C25.0020.0002] # LATIN SMALL LETTER TRESILLO
+A72A  ; [.1C25.0020.0008] # LATIN CAPITAL LETTER TRESILLO
+A72D  ; [.1C26.0020.0002] # LATIN SMALL LETTER CUATRILLO
+A72C  ; [.1C26.0020.0008] # LATIN CAPITAL LETTER CUATRILLO
+A72F  ; [.1C27.0020.0002] # LATIN SMALL LETTER CUATRILLO WITH COMMA
+A72E  ; [.1C27.0020.0008] # LATIN CAPITAL LETTER CUATRILLO WITH COMMA
+01A8  ; [.1C28.0020.0002] # LATIN SMALL LETTER TONE TWO
+01A7  ; [.1C28.0020.0008] # LATIN CAPITAL LETTER TONE TWO
+01BD  ; [.1C2C.0020.0002] # LATIN SMALL LETTER TONE FIVE
+01BC  ; [.1C2C.0020.0008] # LATIN CAPITAL LETTER TONE FIVE
+0185  ; [.1C30.0020.0002] # LATIN SMALL LETTER TONE SIX
+0184  ; [.1C30.0020.0008] # LATIN CAPITAL LETTER TONE SIX
+0294  ; [.1C34.0020.0002] # LATIN LETTER GLOTTAL STOP
+0242  ; [.1C38.0020.0002] # LATIN SMALL LETTER GLOTTAL STOP
+0241  ; [.1C38.0020.0008] # LATIN CAPITAL LETTER GLOTTAL STOP
+02C0  ; [.1C3C.0020.0002] # MODIFIER LETTER GLOTTAL STOP
+02BC  ; [.1C3D.0020.0002] # MODIFIER LETTER APOSTROPHE
+0149  ; [.1C3D.0020.0004][.1A7D.0020.0004] # LATIN SMALL LETTER N PRECEDED BY APOSTROPHE
+02EE  ; [.1C3E.0020.0002] # MODIFIER LETTER DOUBLE APOSTROPHE
+02BE  ; [.1C3F.0020.0002] # MODIFIER LETTER RIGHT HALF RING
+A723  ; [.1C40.0020.0002] # LATIN SMALL LETTER EGYPTOLOGICAL ALEF
+A722  ; [.1C40.0020.0008] # LATIN CAPITAL LETTER EGYPTOLOGICAL ALEF
+A78C  ; [.1C41.0020.0002] # LATIN SMALL LETTER SALTILLO
+A78B  ; [.1C41.0020.0008] # LATIN CAPITAL LETTER SALTILLO
+0295  ; [.1C42.0020.0002] # LATIN LETTER PHARYNGEAL VOICED FRICATIVE
+02E4  ; [.1C42.0020.0014] # MODIFIER LETTER SMALL REVERSED GLOTTAL STOP
+02BF  ; [.1C46.0020.0002] # MODIFIER LETTER LEFT HALF RING
+02C1  ; [.1C47.0020.0002] # MODIFIER LETTER REVERSED GLOTTAL STOP
+1D24  ; [.1C48.0020.0002] # LATIN LETTER VOICED LARYNGEAL SPIRANT
+1D25  ; [.1C49.0020.0002] # LATIN LETTER AIN
+1D5C  ; [.1C49.0020.0014] # MODIFIER LETTER SMALL AIN
+A725  ; [.1C4A.0020.0002] # LATIN SMALL LETTER EGYPTOLOGICAL AIN
+A724  ; [.1C4A.0020.0008] # LATIN CAPITAL LETTER EGYPTOLOGICAL AIN
+02A1  ; [.1C4B.0020.0002] # LATIN LETTER GLOTTAL STOP WITH STROKE
+02A2  ; [.1C4F.0020.0002] # LATIN LETTER REVERSED GLOTTAL STOP WITH STROKE
+0296  ; [.1C53.0020.0002] # LATIN LETTER INVERTED GLOTTAL STOP
+01C0  ; [.1C57.0020.0002] # LATIN LETTER DENTAL CLICK
+01C1  ; [.1C5B.0020.0002] # LATIN LETTER LATERAL CLICK
+01C2  ; [.1C5F.0020.0002] # LATIN LETTER ALVEOLAR CLICK
+01C3  ; [.1C63.0020.0002] # LATIN LETTER RETROFLEX CLICK
+0297  ; [.1C67.0020.0002] # LATIN LETTER STRETCHED C
+0298  ; [.1C6B.0020.0002] # LATIN LETTER BILABIAL CLICK
+02AC  ; [.1C6F.0020.0002] # LATIN LETTER BILABIAL PERCUSSIVE
+02AD  ; [.1C73.0020.0002] # LATIN LETTER BIDENTAL PERCUSSIVE
+03B1  ; [.1C77.0020.0002] # GREEK SMALL LETTER ALPHA
+1D6C2 ; [.1C77.0020.0005] # MATHEMATICAL BOLD SMALL ALPHA
+1D6FC ; [.1C77.0020.0005] # MATHEMATICAL ITALIC SMALL ALPHA
+1D736 ; [.1C77.0020.0005] # MATHEMATICAL BOLD ITALIC SMALL ALPHA
+1D770 ; [.1C77.0020.0005] # MATHEMATICAL SANS-SERIF BOLD SMALL ALPHA
+1D7AA ; [.1C77.0020.0005] # MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL ALPHA
+0391  ; [.1C77.0020.0008] # GREEK CAPITAL LETTER ALPHA
+1D6A8 ; [.1C77.0020.000B] # MATHEMATICAL BOLD CAPITAL ALPHA
+1D6E2 ; [.1C77.0020.000B] # MATHEMATICAL ITALIC CAPITAL ALPHA
+1D71C ; [.1C77.0020.000B] # MATHEMATICAL BOLD ITALIC CAPITAL ALPHA
+1D756 ; [.1C77.0020.000B] # MATHEMATICAL SANS-SERIF BOLD CAPITAL ALPHA
+1D790 ; [.1C77.0020.000B] # MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL ALPHA
+1F00  ; [.1C77.0020.0002][.0000.0022.0002] # GREEK SMALL LETTER ALPHA WITH PSILI
+1F08  ; [.1C77.0020.0008][.0000.0022.0002] # GREEK CAPITAL LETTER ALPHA WITH PSILI
+1F04  ; [.1C77.0020.0002][.0000.0022.0002][.0000.0024.0002] # GREEK SMALL LETTER ALPHA WITH PSILI AND OXIA
+1F0C  ; [.1C77.0020.0008][.0000.0022.0002][.0000.0024.0002] # GREEK CAPITAL LETTER ALPHA WITH PSILI AND OXIA
+1F84  ; [.1C77.0020.0002][.0000.0022.0002][.0000.0024.0002][.0000.004C.0002] # GREEK SMALL LETTER ALPHA WITH PSILI AND OXIA AND YPOGEGRAMMENI
+1F8C  ; [.1C77.0020.0008][.0000.0022.0002][.0000.0024.0002][.0000.004C.0002] # GREEK CAPITAL LETTER ALPHA WITH PSILI AND OXIA AND PROSGEGRAMMENI
+1F02  ; [.1C77.0020.0002][.0000.0022.0002][.0000.0025.0002] # GREEK SMALL LETTER ALPHA WITH PSILI AND VARIA
+1F0A  ; [.1C77.0020.0008][.0000.0022.0002][.0000.0025.0002] # GREEK CAPITAL LETTER ALPHA WITH PSILI AND VARIA
+1F82  ; [.1C77.0020.0002][.0000.0022.0002][.0000.0025.0002][.0000.004C.0002] # GREEK SMALL LETTER ALPHA WITH PSILI AND VARIA AND YPOGEGRAMMENI
+1F8A  ; [.1C77.0020.0008][.0000.0022.0002][.0000.0025.0002][.0000.004C.0002] # GREEK CAPITAL LETTER ALPHA WITH PSILI AND VARIA AND PROSGEGRAMMENI
+1F06  ; [.1C77.0020.0002][.0000.0022.0002][.0000.002A.0002] # GREEK SMALL LETTER ALPHA WITH PSILI AND PERISPOMENI
+1F0E  ; [.1C77.0020.0008][.0000.0022.0002][.0000.002A.0002] # GREEK CAPITAL LETTER ALPHA WITH PSILI AND PERISPOMENI
+1F86  ; [.1C77.0020.0002][.0000.0022.0002][.0000.002A.0002][.0000.004C.0002] # GREEK SMALL LETTER ALPHA WITH PSILI AND PERISPOMENI AND YPOGEGRAMMENI
+1F8E  ; [.1C77.0020.0008][.0000.0022.0002][.0000.002A.0002][.0000.004C.0002] # GREEK CAPITAL LETTER ALPHA WITH PSILI AND PERISPOMENI AND PROSGEGRAMMENI
+1F80  ; [.1C77.0020.0002][.0000.0022.0002][.0000.004C.0002] # GREEK SMALL LETTER ALPHA WITH PSILI AND YPOGEGRAMMENI
+1F88  ; [.1C77.0020.0008][.0000.0022.0002][.0000.004C.0002] # GREEK CAPITAL LETTER ALPHA WITH PSILI AND PROSGEGRAMMENI
+1F01  ; [.1C77.0020.0002][.0000.0023.0002] # GREEK SMALL LETTER ALPHA WITH DASIA
+1F09  ; [.1C77.0020.0008][.0000.0023.0002] # GREEK CAPITAL LETTER ALPHA WITH DASIA
+1F05  ; [.1C77.0020.0002][.0000.0023.0002][.0000.0024.0002] # GREEK SMALL LETTER ALPHA WITH DASIA AND OXIA
+1F0D  ; [.1C77.0020.0008][.0000.0023.0002][.0000.0024.0002] # GREEK CAPITAL LETTER ALPHA WITH DASIA AND OXIA
+1F85  ; [.1C77.0020.0002][.0000.0023.0002][.0000.0024.0002][.0000.004C.0002] # GREEK SMALL LETTER ALPHA WITH DASIA AND OXIA AND YPOGEGRAMMENI
+1F8D  ; [.1C77.0020.0008][.0000.0023.0002][.0000.0024.0002][.0000.004C.0002] # GREEK CAPITAL LETTER ALPHA WITH DASIA AND OXIA AND PROSGEGRAMMENI
+1F03  ; [.1C77.0020.0002][.0000.0023.0002][.0000.0025.0002] # GREEK SMALL LETTER ALPHA WITH DASIA AND VARIA
+1F0B  ; [.1C77.0020.0008][.0000.0023.0002][.0000.0025.0002] # GREEK CAPITAL LETTER ALPHA WITH DASIA AND VARIA
+1F83  ; [.1C77.0020.0002][.0000.0023.0002][.0000.0025.0002][.0000.004C.0002] # GREEK SMALL LETTER ALPHA WITH DASIA AND VARIA AND YPOGEGRAMMENI
+1F8B  ; [.1C77.0020.0008][.0000.0023.0002][.0000.0025.0002][.0000.004C.0002] # GREEK CAPITAL LETTER ALPHA WITH DASIA AND VARIA AND PROSGEGRAMMENI
+1F07  ; [.1C77.0020.0002][.0000.0023.0002][.0000.002A.0002] # GREEK SMALL LETTER ALPHA WITH DASIA AND PERISPOMENI
+1F0F  ; [.1C77.0020.0008][.0000.0023.0002][.0000.002A.0002] # GREEK CAPITAL LETTER ALPHA WITH DASIA AND PERISPOMENI
+1F87  ; [.1C77.0020.0002][.0000.0023.0002][.0000.002A.0002][.0000.004C.0002] # GREEK SMALL LETTER ALPHA WITH DASIA AND PERISPOMENI AND YPOGEGRAMMENI
+1F8F  ; [.1C77.0020.0008][.0000.0023.0002][.0000.002A.0002][.0000.004C.0002] # GREEK CAPITAL LETTER ALPHA WITH DASIA AND PERISPOMENI AND PROSGEGRAMMENI
+1F81  ; [.1C77.0020.0002][.0000.0023.0002][.0000.004C.0002] # GREEK SMALL LETTER ALPHA WITH DASIA AND YPOGEGRAMMENI
+1F89  ; [.1C77.0020.0008][.0000.0023.0002][.0000.004C.0002] # GREEK CAPITAL LETTER ALPHA WITH DASIA AND PROSGEGRAMMENI
+03AC  ; [.1C77.0020.0002][.0000.0024.0002] # GREEK SMALL LETTER ALPHA WITH TONOS
+1F71  ; [.1C77.0020.0002][.0000.0024.0002] # GREEK SMALL LETTER ALPHA WITH OXIA
+0386  ; [.1C77.0020.0008][.0000.0024.0002] # GREEK CAPITAL LETTER ALPHA WITH TONOS
+1FBB  ; [.1C77.0020.0008][.0000.0024.0002] # GREEK CAPITAL LETTER ALPHA WITH OXIA
+1FB4  ; [.1C77.0020.0002][.0000.0024.0002][.0000.004C.0002] # GREEK SMALL LETTER ALPHA WITH OXIA AND YPOGEGRAMMENI
+1F70  ; [.1C77.0020.0002][.0000.0025.0002] # GREEK SMALL LETTER ALPHA WITH VARIA
+1FBA  ; [.1C77.0020.0008][.0000.0025.0002] # GREEK CAPITAL LETTER ALPHA WITH VARIA
+1FB2  ; [.1C77.0020.0002][.0000.0025.0002][.0000.004C.0002] # GREEK SMALL LETTER ALPHA WITH VARIA AND YPOGEGRAMMENI
+1FB0  ; [.1C77.0020.0002][.0000.0026.0002] # GREEK SMALL LETTER ALPHA WITH VRACHY
+1FB8  ; [.1C77.0020.0008][.0000.0026.0002] # GREEK CAPITAL LETTER ALPHA WITH VRACHY
+1FB6  ; [.1C77.0020.0002][.0000.002A.0002] # GREEK SMALL LETTER ALPHA WITH PERISPOMENI
+1FB7  ; [.1C77.0020.0002][.0000.002A.0002][.0000.004C.0002] # GREEK SMALL LETTER ALPHA WITH PERISPOMENI AND YPOGEGRAMMENI
+1FB1  ; [.1C77.0020.0002][.0000.0032.0002] # GREEK SMALL LETTER ALPHA WITH MACRON
+1FB9  ; [.1C77.0020.0008][.0000.0032.0002] # GREEK CAPITAL LETTER ALPHA WITH MACRON
+1FB3  ; [.1C77.0020.0002][.0000.004C.0002] # GREEK SMALL LETTER ALPHA WITH YPOGEGRAMMENI
+1FBC  ; [.1C77.0020.0008][.0000.004C.0002] # GREEK CAPITAL LETTER ALPHA WITH PROSGEGRAMMENI
+03B2  ; [.1C78.0020.0002] # GREEK SMALL LETTER BETA
+03D0  ; [.1C78.0020.0004] # GREEK BETA SYMBOL
+1DE9  ; [.1C78.0020.0004] # COMBINING LATIN SMALL LETTER BETA
+1D6C3 ; [.1C78.0020.0005] # MATHEMATICAL BOLD SMALL BETA
+1D6FD ; [.1C78.0020.0005] # MATHEMATICAL ITALIC SMALL BETA
+1D737 ; [.1C78.0020.0005] # MATHEMATICAL BOLD ITALIC SMALL BETA
+1D771 ; [.1C78.0020.0005] # MATHEMATICAL SANS-SERIF BOLD SMALL BETA
+1D7AB ; [.1C78.0020.0005] # MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL BETA
+0392  ; [.1C78.0020.0008] # GREEK CAPITAL LETTER BETA
+1D6A9 ; [.1C78.0020.000B] # MATHEMATICAL BOLD CAPITAL BETA
+1D6E3 ; [.1C78.0020.000B] # MATHEMATICAL ITALIC CAPITAL BETA
+1D71D ; [.1C78.0020.000B] # MATHEMATICAL BOLD ITALIC CAPITAL BETA
+1D757 ; [.1C78.0020.000B] # MATHEMATICAL SANS-SERIF BOLD CAPITAL BETA
+1D791 ; [.1C78.0020.000B] # MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL BETA
+1D5D  ; [.1C78.0020.0014] # MODIFIER LETTER SMALL BETA
+1D66  ; [.1C78.0020.0015] # GREEK SUBSCRIPT SMALL LETTER BETA
+03B3  ; [.1C79.0020.0002] # GREEK SMALL LETTER GAMMA
+213D  ; [.1C79.0020.0005] # DOUBLE-STRUCK SMALL GAMMA
+1D6C4 ; [.1C79.0020.0005] # MATHEMATICAL BOLD SMALL GAMMA
+1D6FE ; [.1C79.0020.0005] # MATHEMATICAL ITALIC SMALL GAMMA
+1D738 ; [.1C79.0020.0005] # MATHEMATICAL BOLD ITALIC SMALL GAMMA
+1D772 ; [.1C79.0020.0005] # MATHEMATICAL SANS-SERIF BOLD SMALL GAMMA
+1D7AC ; [.1C79.0020.0005] # MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL GAMMA
+0393  ; [.1C79.0020.0008] # GREEK CAPITAL LETTER GAMMA
+213E  ; [.1C79.0020.000B] # DOUBLE-STRUCK CAPITAL GAMMA
+1D6AA ; [.1C79.0020.000B] # MATHEMATICAL BOLD CAPITAL GAMMA
+1D6E4 ; [.1C79.0020.000B] # MATHEMATICAL ITALIC CAPITAL GAMMA
+1D71E ; [.1C79.0020.000B] # MATHEMATICAL BOLD ITALIC CAPITAL GAMMA
+1D758 ; [.1C79.0020.000B] # MATHEMATICAL SANS-SERIF BOLD CAPITAL GAMMA
+1D792 ; [.1C79.0020.000B] # MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL GAMMA
+1D5E  ; [.1C79.0020.0014] # MODIFIER LETTER SMALL GREEK GAMMA
+1D67  ; [.1C79.0020.0015] # GREEK SUBSCRIPT SMALL LETTER GAMMA
+1D26  ; [.1C7A.0020.0002] # GREEK LETTER SMALL CAPITAL GAMMA
+03B4  ; [.1C7B.0020.0002] # GREEK SMALL LETTER DELTA
+1D6C5 ; [.1C7B.0020.0005] # MATHEMATICAL BOLD SMALL DELTA
+1D6FF ; [.1C7B.0020.0005] # MATHEMATICAL ITALIC SMALL DELTA
+1D739 ; [.1C7B.0020.0005] # MATHEMATICAL BOLD ITALIC SMALL DELTA
+1D773 ; [.1C7B.0020.0005] # MATHEMATICAL SANS-SERIF BOLD SMALL DELTA
+1D7AD ; [.1C7B.0020.0005] # MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL DELTA
+0394  ; [.1C7B.0020.0008] # GREEK CAPITAL LETTER DELTA
+1D6AB ; [.1C7B.0020.000B] # MATHEMATICAL BOLD CAPITAL DELTA
+1D6E5 ; [.1C7B.0020.000B] # MATHEMATICAL ITALIC CAPITAL DELTA
+1D71F ; [.1C7B.0020.000B] # MATHEMATICAL BOLD ITALIC CAPITAL DELTA
+1D759 ; [.1C7B.0020.000B] # MATHEMATICAL SANS-SERIF BOLD CAPITAL DELTA
+1D793 ; [.1C7B.0020.000B] # MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL DELTA
+1D5F  ; [.1C7B.0020.0014] # MODIFIER LETTER SMALL DELTA
+03B5  ; [.1C7C.0020.0002] # GREEK SMALL LETTER EPSILON
+03F5  ; [.1C7C.0020.0004] # GREEK LUNATE EPSILON SYMBOL
+1D6C6 ; [.1C7C.0020.0005] # MATHEMATICAL BOLD SMALL EPSILON
+1D6DC ; [.1C7C.0020.0005] # MATHEMATICAL BOLD EPSILON SYMBOL
+1D700 ; [.1C7C.0020.0005] # MATHEMATICAL ITALIC SMALL EPSILON
+1D716 ; [.1C7C.0020.0005] # MATHEMATICAL ITALIC EPSILON SYMBOL
+1D73A ; [.1C7C.0020.0005] # MATHEMATICAL BOLD ITALIC SMALL EPSILON
+1D750 ; [.1C7C.0020.0005] # MATHEMATICAL BOLD ITALIC EPSILON SYMBOL
+1D774 ; [.1C7C.0020.0005] # MATHEMATICAL SANS-SERIF BOLD SMALL EPSILON
+1D78A ; [.1C7C.0020.0005] # MATHEMATICAL SANS-SERIF BOLD EPSILON SYMBOL
+1D7AE ; [.1C7C.0020.0005] # MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL EPSILON
+1D7C4 ; [.1C7C.0020.0005] # MATHEMATICAL SANS-SERIF BOLD ITALIC EPSILON SYMBOL
+0395  ; [.1C7C.0020.0008] # GREEK CAPITAL LETTER EPSILON
+1D6AC ; [.1C7C.0020.000B] # MATHEMATICAL BOLD CAPITAL EPSILON
+1D6E6 ; [.1C7C.0020.000B] # MATHEMATICAL ITALIC CAPITAL EPSILON
+1D720 ; [.1C7C.0020.000B] # MATHEMATICAL BOLD ITALIC CAPITAL EPSILON
+1D75A ; [.1C7C.0020.000B] # MATHEMATICAL SANS-SERIF BOLD CAPITAL EPSILON
+1D794 ; [.1C7C.0020.000B] # MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL EPSILON
+1F10  ; [.1C7C.0020.0002][.0000.0022.0002] # GREEK SMALL LETTER EPSILON WITH PSILI
+1F18  ; [.1C7C.0020.0008][.0000.0022.0002] # GREEK CAPITAL LETTER EPSILON WITH PSILI
+1F14  ; [.1C7C.0020.0002][.0000.0022.0002][.0000.0024.0002] # GREEK SMALL LETTER EPSILON WITH PSILI AND OXIA
+1F1C  ; [.1C7C.0020.0008][.0000.0022.0002][.0000.0024.0002] # GREEK CAPITAL LETTER EPSILON WITH PSILI AND OXIA
+1F12  ; [.1C7C.0020.0002][.0000.0022.0002][.0000.0025.0002] # GREEK SMALL LETTER EPSILON WITH PSILI AND VARIA
+1F1A  ; [.1C7C.0020.0008][.0000.0022.0002][.0000.0025.0002] # GREEK CAPITAL LETTER EPSILON WITH PSILI AND VARIA
+1F11  ; [.1C7C.0020.0002][.0000.0023.0002] # GREEK SMALL LETTER EPSILON WITH DASIA
+1F19  ; [.1C7C.0020.0008][.0000.0023.0002] # GREEK CAPITAL LETTER EPSILON WITH DASIA
+1F15  ; [.1C7C.0020.0002][.0000.0023.0002][.0000.0024.0002] # GREEK SMALL LETTER EPSILON WITH DASIA AND OXIA
+1F1D  ; [.1C7C.0020.0008][.0000.0023.0002][.0000.0024.0002] # GREEK CAPITAL LETTER EPSILON WITH DASIA AND OXIA
+1F13  ; [.1C7C.0020.0002][.0000.0023.0002][.0000.0025.0002] # GREEK SMALL LETTER EPSILON WITH DASIA AND VARIA
+1F1B  ; [.1C7C.0020.0008][.0000.0023.0002][.0000.0025.0002] # GREEK CAPITAL LETTER EPSILON WITH DASIA AND VARIA
+03AD  ; [.1C7C.0020.0002][.0000.0024.0002] # GREEK SMALL LETTER EPSILON WITH TONOS
+1F73  ; [.1C7C.0020.0002][.0000.0024.0002] # GREEK SMALL LETTER EPSILON WITH OXIA
+0388  ; [.1C7C.0020.0008][.0000.0024.0002] # GREEK CAPITAL LETTER EPSILON WITH TONOS
+1FC9  ; [.1C7C.0020.0008][.0000.0024.0002] # GREEK CAPITAL LETTER EPSILON WITH OXIA
+1F72  ; [.1C7C.0020.0002][.0000.0025.0002] # GREEK SMALL LETTER EPSILON WITH VARIA
+1FC8  ; [.1C7C.0020.0008][.0000.0025.0002] # GREEK CAPITAL LETTER EPSILON WITH VARIA
+03DD  ; [.1C7D.0020.0002] # GREEK SMALL LETTER DIGAMMA
+1D7CB ; [.1C7D.0020.0005] # MATHEMATICAL BOLD SMALL DIGAMMA
+03DC  ; [.1C7D.0020.0008] # GREEK LETTER DIGAMMA
+1D7CA ; [.1C7D.0020.000B] # MATHEMATICAL BOLD CAPITAL DIGAMMA
+0377  ; [.1C7E.0020.0002] # GREEK SMALL LETTER PAMPHYLIAN DIGAMMA
+0376  ; [.1C7E.0020.0008] # GREEK CAPITAL LETTER PAMPHYLIAN DIGAMMA
+03DB  ; [.1C7F.0020.0002] # GREEK SMALL LETTER STIGMA
+03DA  ; [.1C7F.0020.0008] # GREEK LETTER STIGMA
+03B6  ; [.1C80.0020.0002] # GREEK SMALL LETTER ZETA
+1D6C7 ; [.1C80.0020.0005] # MATHEMATICAL BOLD SMALL ZETA
+1D701 ; [.1C80.0020.0005] # MATHEMATICAL ITALIC SMALL ZETA
+1D73B ; [.1C80.0020.0005] # MATHEMATICAL BOLD ITALIC SMALL ZETA
+1D775 ; [.1C80.0020.0005] # MATHEMATICAL SANS-SERIF BOLD SMALL ZETA
+1D7AF ; [.1C80.0020.0005] # MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL ZETA
+0396  ; [.1C80.0020.0008] # GREEK CAPITAL LETTER ZETA
+1D6AD ; [.1C80.0020.000B] # MATHEMATICAL BOLD CAPITAL ZETA
+1D6E7 ; [.1C80.0020.000B] # MATHEMATICAL ITALIC CAPITAL ZETA
+1D721 ; [.1C80.0020.000B] # MATHEMATICAL BOLD ITALIC CAPITAL ZETA
+1D75B ; [.1C80.0020.000B] # MATHEMATICAL SANS-SERIF BOLD CAPITAL ZETA
+1D795 ; [.1C80.0020.000B] # MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL ZETA
+0371  ; [.1C81.0020.0002] # GREEK SMALL LETTER HETA
+0370  ; [.1C81.0020.0008] # GREEK CAPITAL LETTER HETA
+03B7  ; [.1C82.0020.0002] # GREEK SMALL LETTER ETA
+1D6C8 ; [.1C82.0020.0005] # MATHEMATICAL BOLD SMALL ETA
+1D702 ; [.1C82.0020.0005] # MATHEMATICAL ITALIC SMALL ETA
+1D73C ; [.1C82.0020.0005] # MATHEMATICAL BOLD ITALIC SMALL ETA
+1D776 ; [.1C82.0020.0005] # MATHEMATICAL SANS-SERIF BOLD SMALL ETA
+1D7B0 ; [.1C82.0020.0005] # MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL ETA
+0397  ; [.1C82.0020.0008] # GREEK CAPITAL LETTER ETA
+1D6AE ; [.1C82.0020.000B] # MATHEMATICAL BOLD CAPITAL ETA
+1D6E8 ; [.1C82.0020.000B] # MATHEMATICAL ITALIC CAPITAL ETA
+1D722 ; [.1C82.0020.000B] # MATHEMATICAL BOLD ITALIC CAPITAL ETA
+1D75C ; [.1C82.0020.000B] # MATHEMATICAL SANS-SERIF BOLD CAPITAL ETA
+1D796 ; [.1C82.0020.000B] # MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL ETA
+1F20  ; [.1C82.0020.0002][.0000.0022.0002] # GREEK SMALL LETTER ETA WITH PSILI
+1F28  ; [.1C82.0020.0008][.0000.0022.0002] # GREEK CAPITAL LETTER ETA WITH PSILI
+1F24  ; [.1C82.0020.0002][.0000.0022.0002][.0000.0024.0002] # GREEK SMALL LETTER ETA WITH PSILI AND OXIA
+1F2C  ; [.1C82.0020.0008][.0000.0022.0002][.0000.0024.0002] # GREEK CAPITAL LETTER ETA WITH PSILI AND OXIA
+1F94  ; [.1C82.0020.0002][.0000.0022.0002][.0000.0024.0002][.0000.004C.0002] # GREEK SMALL LETTER ETA WITH PSILI AND OXIA AND YPOGEGRAMMENI
+1F9C  ; [.1C82.0020.0008][.0000.0022.0002][.0000.0024.0002][.0000.004C.0002] # GREEK CAPITAL LETTER ETA WITH PSILI AND OXIA AND PROSGEGRAMMENI
+1F22  ; [.1C82.0020.0002][.0000.0022.0002][.0000.0025.0002] # GREEK SMALL LETTER ETA WITH PSILI AND VARIA
+1F2A  ; [.1C82.0020.0008][.0000.0022.0002][.0000.0025.0002] # GREEK CAPITAL LETTER ETA WITH PSILI AND VARIA
+1F92  ; [.1C82.0020.0002][.0000.0022.0002][.0000.0025.0002][.0000.004C.0002] # GREEK SMALL LETTER ETA WITH PSILI AND VARIA AND YPOGEGRAMMENI
+1F9A  ; [.1C82.0020.0008][.0000.0022.0002][.0000.0025.0002][.0000.004C.0002] # GREEK CAPITAL LETTER ETA WITH PSILI AND VARIA AND PROSGEGRAMMENI
+1F26  ; [.1C82.0020.0002][.0000.0022.0002][.0000.002A.0002] # GREEK SMALL LETTER ETA WITH PSILI AND PERISPOMENI
+1F2E  ; [.1C82.0020.0008][.0000.0022.0002][.0000.002A.0002] # GREEK CAPITAL LETTER ETA WITH PSILI AND PERISPOMENI
+1F96  ; [.1C82.0020.0002][.0000.0022.0002][.0000.002A.0002][.0000.004C.0002] # GREEK SMALL LETTER ETA WITH PSILI AND PERISPOMENI AND YPOGEGRAMMENI
+1F9E  ; [.1C82.0020.0008][.0000.0022.0002][.0000.002A.0002][.0000.004C.0002] # GREEK CAPITAL LETTER ETA WITH PSILI AND PERISPOMENI AND PROSGEGRAMMENI
+1F90  ; [.1C82.0020.0002][.0000.0022.0002][.0000.004C.0002] # GREEK SMALL LETTER ETA WITH PSILI AND YPOGEGRAMMENI
+1F98  ; [.1C82.0020.0008][.0000.0022.0002][.0000.004C.0002] # GREEK CAPITAL LETTER ETA WITH PSILI AND PROSGEGRAMMENI
+1F21  ; [.1C82.0020.0002][.0000.0023.0002] # GREEK SMALL LETTER ETA WITH DASIA
+1F29  ; [.1C82.0020.0008][.0000.0023.0002] # GREEK CAPITAL LETTER ETA WITH DASIA
+1F25  ; [.1C82.0020.0002][.0000.0023.0002][.0000.0024.0002] # GREEK SMALL LETTER ETA WITH DASIA AND OXIA
+1F2D  ; [.1C82.0020.0008][.0000.0023.0002][.0000.0024.0002] # GREEK CAPITAL LETTER ETA WITH DASIA AND OXIA
+1F95  ; [.1C82.0020.0002][.0000.0023.0002][.0000.0024.0002][.0000.004C.0002] # GREEK SMALL LETTER ETA WITH DASIA AND OXIA AND YPOGEGRAMMENI
+1F9D  ; [.1C82.0020.0008][.0000.0023.0002][.0000.0024.0002][.0000.004C.0002] # GREEK CAPITAL LETTER ETA WITH DASIA AND OXIA AND PROSGEGRAMMENI
+1F23  ; [.1C82.0020.0002][.0000.0023.0002][.0000.0025.0002] # GREEK SMALL LETTER ETA WITH DASIA AND VARIA
+1F2B  ; [.1C82.0020.0008][.0000.0023.0002][.0000.0025.0002] # GREEK CAPITAL LETTER ETA WITH DASIA AND VARIA
+1F93  ; [.1C82.0020.0002][.0000.0023.0002][.0000.0025.0002][.0000.004C.0002] # GREEK SMALL LETTER ETA WITH DASIA AND VARIA AND YPOGEGRAMMENI
+1F9B  ; [.1C82.0020.0008][.0000.0023.0002][.0000.0025.0002][.0000.004C.0002] # GREEK CAPITAL LETTER ETA WITH DASIA AND VARIA AND PROSGEGRAMMENI
+1F27  ; [.1C82.0020.0002][.0000.0023.0002][.0000.002A.0002] # GREEK SMALL LETTER ETA WITH DASIA AND PERISPOMENI
+1F2F  ; [.1C82.0020.0008][.0000.0023.0002][.0000.002A.0002] # GREEK CAPITAL LETTER ETA WITH DASIA AND PERISPOMENI
+1F97  ; [.1C82.0020.0002][.0000.0023.0002][.0000.002A.0002][.0000.004C.0002] # GREEK SMALL LETTER ETA WITH DASIA AND PERISPOMENI AND YPOGEGRAMMENI
+1F9F  ; [.1C82.0020.0008][.0000.0023.0002][.0000.002A.0002][.0000.004C.0002] # GREEK CAPITAL LETTER ETA WITH DASIA AND PERISPOMENI AND PROSGEGRAMMENI
+1F91  ; [.1C82.0020.0002][.0000.0023.0002][.0000.004C.0002] # GREEK SMALL LETTER ETA WITH DASIA AND YPOGEGRAMMENI
+1F99  ; [.1C82.0020.0008][.0000.0023.0002][.0000.004C.0002] # GREEK CAPITAL LETTER ETA WITH DASIA AND PROSGEGRAMMENI
+03AE  ; [.1C82.0020.0002][.0000.0024.0002] # GREEK SMALL LETTER ETA WITH TONOS
+1F75  ; [.1C82.0020.0002][.0000.0024.0002] # GREEK SMALL LETTER ETA WITH OXIA
+0389  ; [.1C82.0020.0008][.0000.0024.0002] # GREEK CAPITAL LETTER ETA WITH TONOS
+1FCB  ; [.1C82.0020.0008][.0000.0024.0002] # GREEK CAPITAL LETTER ETA WITH OXIA
+1FC4  ; [.1C82.0020.0002][.0000.0024.0002][.0000.004C.0002] # GREEK SMALL LETTER ETA WITH OXIA AND YPOGEGRAMMENI
+1F74  ; [.1C82.0020.0002][.0000.0025.0002] # GREEK SMALL LETTER ETA WITH VARIA
+1FCA  ; [.1C82.0020.0008][.0000.0025.0002] # GREEK CAPITAL LETTER ETA WITH VARIA
+1FC2  ; [.1C82.0020.0002][.0000.0025.0002][.0000.004C.0002] # GREEK SMALL LETTER ETA WITH VARIA AND YPOGEGRAMMENI
+1FC6  ; [.1C82.0020.0002][.0000.002A.0002] # GREEK SMALL LETTER ETA WITH PERISPOMENI
+1FC7  ; [.1C82.0020.0002][.0000.002A.0002][.0000.004C.0002] # GREEK SMALL LETTER ETA WITH PERISPOMENI AND YPOGEGRAMMENI
+1FC3  ; [.1C82.0020.0002][.0000.004C.0002] # GREEK SMALL LETTER ETA WITH YPOGEGRAMMENI
+1FCC  ; [.1C82.0020.0008][.0000.004C.0002] # GREEK CAPITAL LETTER ETA WITH PROSGEGRAMMENI
+03B8  ; [.1C83.0020.0002] # GREEK SMALL LETTER THETA
+03D1  ; [.1C83.0020.0004] # GREEK THETA SYMBOL
+1D6C9 ; [.1C83.0020.0005] # MATHEMATICAL BOLD SMALL THETA
+1D6DD ; [.1C83.0020.0005] # MATHEMATICAL BOLD THETA SYMBOL
+1D703 ; [.1C83.0020.0005] # MATHEMATICAL ITALIC SMALL THETA
+1D717 ; [.1C83.0020.0005] # MATHEMATICAL ITALIC THETA SYMBOL
+1D73D ; [.1C83.0020.0005] # MATHEMATICAL BOLD ITALIC SMALL THETA
+1D751 ; [.1C83.0020.0005] # MATHEMATICAL BOLD ITALIC THETA SYMBOL
+1D777 ; [.1C83.0020.0005] # MATHEMATICAL SANS-SERIF BOLD SMALL THETA
+1D78B ; [.1C83.0020.0005] # MATHEMATICAL SANS-SERIF BOLD THETA SYMBOL
+1D7B1 ; [.1C83.0020.0005] # MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL THETA
+1D7C5 ; [.1C83.0020.0005] # MATHEMATICAL SANS-SERIF BOLD ITALIC THETA SYMBOL
+0398  ; [.1C83.0020.0008] # GREEK CAPITAL LETTER THETA
+03F4  ; [.1C83.0020.000A] # GREEK CAPITAL THETA SYMBOL
+1D6AF ; [.1C83.0020.000B] # MATHEMATICAL BOLD CAPITAL THETA
+1D6B9 ; [.1C83.0020.000B] # MATHEMATICAL BOLD CAPITAL THETA SYMBOL
+1D6E9 ; [.1C83.0020.000B] # MATHEMATICAL ITALIC CAPITAL THETA
+1D6F3 ; [.1C83.0020.000B] # MATHEMATICAL ITALIC CAPITAL THETA SYMBOL
+1D723 ; [.1C83.0020.000B] # MATHEMATICAL BOLD ITALIC CAPITAL THETA
+1D72D ; [.1C83.0020.000B] # MATHEMATICAL BOLD ITALIC CAPITAL THETA SYMBOL
+1D75D ; [.1C83.0020.000B] # MATHEMATICAL SANS-SERIF BOLD CAPITAL THETA
+1D767 ; [.1C83.0020.000B] # MATHEMATICAL SANS-SERIF BOLD CAPITAL THETA SYMBOL
+1D797 ; [.1C83.0020.000B] # MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL THETA
+1D7A1 ; [.1C83.0020.000B] # MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL THETA SYMBOL
+1DBF  ; [.1C83.0020.0014] # MODIFIER LETTER SMALL THETA
+03B9  ; [.1C84.0020.0002] # GREEK SMALL LETTER IOTA
+1FBE  ; [.1C84.0020.0002] # GREEK PROSGEGRAMMENI
+037A  ; [.1C84.0020.0004] # GREEK YPOGEGRAMMENI
+1D6CA ; [.1C84.0020.0005] # MATHEMATICAL BOLD SMALL IOTA
+1D704 ; [.1C84.0020.0005] # MATHEMATICAL ITALIC SMALL IOTA
+1D73E ; [.1C84.0020.0005] # MATHEMATICAL BOLD ITALIC SMALL IOTA
+1D778 ; [.1C84.0020.0005] # MATHEMATICAL SANS-SERIF BOLD SMALL IOTA
+1D7B2 ; [.1C84.0020.0005] # MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL IOTA
+0399  ; [.1C84.0020.0008] # GREEK CAPITAL LETTER IOTA
+1D6B0 ; [.1C84.0020.000B] # MATHEMATICAL BOLD CAPITAL IOTA
+1D6EA ; [.1C84.0020.000B] # MATHEMATICAL ITALIC CAPITAL IOTA
+1D724 ; [.1C84.0020.000B] # MATHEMATICAL BOLD ITALIC CAPITAL IOTA
+1D75E ; [.1C84.0020.000B] # MATHEMATICAL SANS-SERIF BOLD CAPITAL IOTA
+1D798 ; [.1C84.0020.000B] # MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL IOTA
+1F30  ; [.1C84.0020.0002][.0000.0022.0002] # GREEK SMALL LETTER IOTA WITH PSILI
+1F38  ; [.1C84.0020.0008][.0000.0022.0002] # GREEK CAPITAL LETTER IOTA WITH PSILI
+1F34  ; [.1C84.0020.0002][.0000.0022.0002][.0000.0024.0002] # GREEK SMALL LETTER IOTA WITH PSILI AND OXIA
+1F3C  ; [.1C84.0020.0008][.0000.0022.0002][.0000.0024.0002] # GREEK CAPITAL LETTER IOTA WITH PSILI AND OXIA
+1F32  ; [.1C84.0020.0002][.0000.0022.0002][.0000.0025.0002] # GREEK SMALL LETTER IOTA WITH PSILI AND VARIA
+1F3A  ; [.1C84.0020.0008][.0000.0022.0002][.0000.0025.0002] # GREEK CAPITAL LETTER IOTA WITH PSILI AND VARIA
+1F36  ; [.1C84.0020.0002][.0000.0022.0002][.0000.002A.0002] # GREEK SMALL LETTER IOTA WITH PSILI AND PERISPOMENI
+1F3E  ; [.1C84.0020.0008][.0000.0022.0002][.0000.002A.0002] # GREEK CAPITAL LETTER IOTA WITH PSILI AND PERISPOMENI
+1F31  ; [.1C84.0020.0002][.0000.0023.0002] # GREEK SMALL LETTER IOTA WITH DASIA
+1F39  ; [.1C84.0020.0008][.0000.0023.0002] # GREEK CAPITAL LETTER IOTA WITH DASIA
+1F35  ; [.1C84.0020.0002][.0000.0023.0002][.0000.0024.0002] # GREEK SMALL LETTER IOTA WITH DASIA AND OXIA
+1F3D  ; [.1C84.0020.0008][.0000.0023.0002][.0000.0024.0002] # GREEK CAPITAL LETTER IOTA WITH DASIA AND OXIA
+1F33  ; [.1C84.0020.0002][.0000.0023.0002][.0000.0025.0002] # GREEK SMALL LETTER IOTA WITH DASIA AND VARIA
+1F3B  ; [.1C84.0020.0008][.0000.0023.0002][.0000.0025.0002] # GREEK CAPITAL LETTER IOTA WITH DASIA AND VARIA
+1F37  ; [.1C84.0020.0002][.0000.0023.0002][.0000.002A.0002] # GREEK SMALL LETTER IOTA WITH DASIA AND PERISPOMENI
+1F3F  ; [.1C84.0020.0008][.0000.0023.0002][.0000.002A.0002] # GREEK CAPITAL LETTER IOTA WITH DASIA AND PERISPOMENI
+03AF  ; [.1C84.0020.0002][.0000.0024.0002] # GREEK SMALL LETTER IOTA WITH TONOS
+1F77  ; [.1C84.0020.0002][.0000.0024.0002] # GREEK SMALL LETTER IOTA WITH OXIA
+038A  ; [.1C84.0020.0008][.0000.0024.0002] # GREEK CAPITAL LETTER IOTA WITH TONOS
+1FDB  ; [.1C84.0020.0008][.0000.0024.0002] # GREEK CAPITAL LETTER IOTA WITH OXIA
+1F76  ; [.1C84.0020.0002][.0000.0025.0002] # GREEK SMALL LETTER IOTA WITH VARIA
+1FDA  ; [.1C84.0020.0008][.0000.0025.0002] # GREEK CAPITAL LETTER IOTA WITH VARIA
+1FD0  ; [.1C84.0020.0002][.0000.0026.0002] # GREEK SMALL LETTER IOTA WITH VRACHY
+1FD8  ; [.1C84.0020.0008][.0000.0026.0002] # GREEK CAPITAL LETTER IOTA WITH VRACHY
+1FD6  ; [.1C84.0020.0002][.0000.002A.0002] # GREEK SMALL LETTER IOTA WITH PERISPOMENI
+03CA  ; [.1C84.0020.0002][.0000.002B.0002] # GREEK SMALL LETTER IOTA WITH DIALYTIKA
+03AA  ; [.1C84.0020.0008][.0000.002B.0002] # GREEK CAPITAL LETTER IOTA WITH DIALYTIKA
+0390  ; [.1C84.0020.0002][.0000.002B.0002][.0000.0024.0002] # GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS
+1FD3  ; [.1C84.0020.0002][.0000.002B.0002][.0000.0024.0002] # GREEK SMALL LETTER IOTA WITH DIALYTIKA AND OXIA
+1FD2  ; [.1C84.0020.0002][.0000.002B.0002][.0000.0025.0002] # GREEK SMALL LETTER IOTA WITH DIALYTIKA AND VARIA
+1FD7  ; [.1C84.0020.0002][.0000.002B.0002][.0000.002A.0002] # GREEK SMALL LETTER IOTA WITH DIALYTIKA AND PERISPOMENI
+1FD1  ; [.1C84.0020.0002][.0000.0032.0002] # GREEK SMALL LETTER IOTA WITH MACRON
+1FD9  ; [.1C84.0020.0008][.0000.0032.0002] # GREEK CAPITAL LETTER IOTA WITH MACRON
+03F3  ; [.1C85.0020.0002] # GREEK LETTER YOT
+037F  ; [.1C85.0020.0008] # GREEK CAPITAL LETTER YOT
+03BA  ; [.1C86.0020.0002] # GREEK SMALL LETTER KAPPA
+03F0  ; [.1C86.0020.0004] # GREEK KAPPA SYMBOL
+1D6CB ; [.1C86.0020.0005] # MATHEMATICAL BOLD SMALL KAPPA
+1D6DE ; [.1C86.0020.0005] # MATHEMATICAL BOLD KAPPA SYMBOL
+1D705 ; [.1C86.0020.0005] # MATHEMATICAL ITALIC SMALL KAPPA
+1D718 ; [.1C86.0020.0005] # MATHEMATICAL ITALIC KAPPA SYMBOL
+1D73F ; [.1C86.0020.0005] # MATHEMATICAL BOLD ITALIC SMALL KAPPA
+1D752 ; [.1C86.0020.0005] # MATHEMATICAL BOLD ITALIC KAPPA SYMBOL
+1D779 ; [.1C86.0020.0005] # MATHEMATICAL SANS-SERIF BOLD SMALL KAPPA
+1D78C ; [.1C86.0020.0005] # MATHEMATICAL SANS-SERIF BOLD KAPPA SYMBOL
+1D7B3 ; [.1C86.0020.0005] # MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL KAPPA
+1D7C6 ; [.1C86.0020.0005] # MATHEMATICAL SANS-SERIF BOLD ITALIC KAPPA SYMBOL
+039A  ; [.1C86.0020.0008] # GREEK CAPITAL LETTER KAPPA
+1D6B1 ; [.1C86.0020.000B] # MATHEMATICAL BOLD CAPITAL KAPPA
+1D6EB ; [.1C86.0020.000B] # MATHEMATICAL ITALIC CAPITAL KAPPA
+1D725 ; [.1C86.0020.000B] # MATHEMATICAL BOLD ITALIC CAPITAL KAPPA
+1D75F ; [.1C86.0020.000B] # MATHEMATICAL SANS-SERIF BOLD CAPITAL KAPPA
+1D799 ; [.1C86.0020.000B] # MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL KAPPA
+03D7  ; [.1C86.0020.0004][.1C77.0020.0004][.1C84.0020.0004] # GREEK KAI SYMBOL
+03CF  ; [.1C86.0020.000A][.1C77.0020.0004][.1C84.0020.0004] # GREEK CAPITAL KAI SYMBOL
+03BB  ; [.1C87.0020.0002] # GREEK SMALL LETTER LAMDA
+1D6CC ; [.1C87.0020.0005] # MATHEMATICAL BOLD SMALL LAMDA
+1D706 ; [.1C87.0020.0005] # MATHEMATICAL ITALIC SMALL LAMDA
+1D740 ; [.1C87.0020.0005] # MATHEMATICAL BOLD ITALIC SMALL LAMDA
+1D77A ; [.1C87.0020.0005] # MATHEMATICAL SANS-SERIF BOLD SMALL LAMDA
+1D7B4 ; [.1C87.0020.0005] # MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL LAMDA
+039B  ; [.1C87.0020.0008] # GREEK CAPITAL LETTER LAMDA
+1D6B2 ; [.1C87.0020.000B] # MATHEMATICAL BOLD CAPITAL LAMDA
+1D6EC ; [.1C87.0020.000B] # MATHEMATICAL ITALIC CAPITAL LAMDA
+1D726 ; [.1C87.0020.000B] # MATHEMATICAL BOLD ITALIC CAPITAL LAMDA
+1D760 ; [.1C87.0020.000B] # MATHEMATICAL SANS-SERIF BOLD CAPITAL LAMDA
+1D79A ; [.1C87.0020.000B] # MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL LAMDA
+1D27  ; [.1C88.0020.0002] # GREEK LETTER SMALL CAPITAL LAMDA
+03BC  ; [.1C89.0020.0002] # GREEK SMALL LETTER MU
+00B5  ; [.1C89.0020.0004] # MICRO SIGN
+1D6CD ; [.1C89.0020.0005] # MATHEMATICAL BOLD SMALL MU
+1D707 ; [.1C89.0020.0005] # MATHEMATICAL ITALIC SMALL MU
+1D741 ; [.1C89.0020.0005] # MATHEMATICAL BOLD ITALIC SMALL MU
+1D77B ; [.1C89.0020.0005] # MATHEMATICAL SANS-SERIF BOLD SMALL MU
+1D7B5 ; [.1C89.0020.0005] # MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL MU
+039C  ; [.1C89.0020.0008] # GREEK CAPITAL LETTER MU
+1D6B3 ; [.1C89.0020.000B] # MATHEMATICAL BOLD CAPITAL MU
+1D6ED ; [.1C89.0020.000B] # MATHEMATICAL ITALIC CAPITAL MU
+1D727 ; [.1C89.0020.000B] # MATHEMATICAL BOLD ITALIC CAPITAL MU
+1D761 ; [.1C89.0020.000B] # MATHEMATICAL SANS-SERIF BOLD CAPITAL MU
+1D79B ; [.1C89.0020.000B] # MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL MU
+3382  ; [.1C89.0020.001C][.190C.0020.001D] # SQUARE MU A
+338C  ; [.1C89.0020.001C][.19A9.0020.001D] # SQUARE MU F
+338D  ; [.1C89.0020.001C][.19B8.0020.001C] # SQUARE MU G
+3395  ; [.1C89.0020.001C][.1A3B.0020.001C] # SQUARE MU L
+339B  ; [.1C89.0020.001C][.1A6E.0020.001C] # SQUARE MU M
+33B2  ; [.1C89.0020.001C][.1B33.0020.001C] # SQUARE MU S
+33B6  ; [.1C89.0020.001C][.1BA5.0020.001D] # SQUARE MU V
+33BC  ; [.1C89.0020.001C][.1BB7.0020.001D] # SQUARE MU W
+03BD  ; [.1C8A.0020.0002] # GREEK SMALL LETTER NU
+1D6CE ; [.1C8A.0020.0005] # MATHEMATICAL BOLD SMALL NU
+1D708 ; [.1C8A.0020.0005] # MATHEMATICAL ITALIC SMALL NU
+1D742 ; [.1C8A.0020.0005] # MATHEMATICAL BOLD ITALIC SMALL NU
+1D77C ; [.1C8A.0020.0005] # MATHEMATICAL SANS-SERIF BOLD SMALL NU
+1D7B6 ; [.1C8A.0020.0005] # MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL NU
+039D  ; [.1C8A.0020.0008] # GREEK CAPITAL LETTER NU
+1D6B4 ; [.1C8A.0020.000B] # MATHEMATICAL BOLD CAPITAL NU
+1D6EE ; [.1C8A.0020.000B] # MATHEMATICAL ITALIC CAPITAL NU
+1D728 ; [.1C8A.0020.000B] # MATHEMATICAL BOLD ITALIC CAPITAL NU
+1D762 ; [.1C8A.0020.000B] # MATHEMATICAL SANS-SERIF BOLD CAPITAL NU
+1D79C ; [.1C8A.0020.000B] # MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL NU
+03BE  ; [.1C8B.0020.0002] # GREEK SMALL LETTER XI
+1D6CF ; [.1C8B.0020.0005] # MATHEMATICAL BOLD SMALL XI
+1D709 ; [.1C8B.0020.0005] # MATHEMATICAL ITALIC SMALL XI
+1D743 ; [.1C8B.0020.0005] # MATHEMATICAL BOLD ITALIC SMALL XI
+1D77D ; [.1C8B.0020.0005] # MATHEMATICAL SANS-SERIF BOLD SMALL XI
+1D7B7 ; [.1C8B.0020.0005] # MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL XI
+039E  ; [.1C8B.0020.0008] # GREEK CAPITAL LETTER XI
+1D6B5 ; [.1C8B.0020.000B] # MATHEMATICAL BOLD CAPITAL XI
+1D6EF ; [.1C8B.0020.000B] # MATHEMATICAL ITALIC CAPITAL XI
+1D729 ; [.1C8B.0020.000B] # MATHEMATICAL BOLD ITALIC CAPITAL XI
+1D763 ; [.1C8B.0020.000B] # MATHEMATICAL SANS-SERIF BOLD CAPITAL XI
+1D79D ; [.1C8B.0020.000B] # MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL XI
+03BF  ; [.1C8C.0020.0002] # GREEK SMALL LETTER OMICRON
+1D6D0 ; [.1C8C.0020.0005] # MATHEMATICAL BOLD SMALL OMICRON
+1D70A ; [.1C8C.0020.0005] # MATHEMATICAL ITALIC SMALL OMICRON
+1D744 ; [.1C8C.0020.0005] # MATHEMATICAL BOLD ITALIC SMALL OMICRON
+1D77E ; [.1C8C.0020.0005] # MATHEMATICAL SANS-SERIF BOLD SMALL OMICRON
+1D7B8 ; [.1C8C.0020.0005] # MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL OMICRON
+039F  ; [.1C8C.0020.0008] # GREEK CAPITAL LETTER OMICRON
+1D6B6 ; [.1C8C.0020.000B] # MATHEMATICAL BOLD CAPITAL OMICRON
+1D6F0 ; [.1C8C.0020.000B] # MATHEMATICAL ITALIC CAPITAL OMICRON
+1D72A ; [.1C8C.0020.000B] # MATHEMATICAL BOLD ITALIC CAPITAL OMICRON
+1D764 ; [.1C8C.0020.000B] # MATHEMATICAL SANS-SERIF BOLD CAPITAL OMICRON
+1D79E ; [.1C8C.0020.000B] # MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL OMICRON
+1F40  ; [.1C8C.0020.0002][.0000.0022.0002] # GREEK SMALL LETTER OMICRON WITH PSILI
+1F48  ; [.1C8C.0020.0008][.0000.0022.0002] # GREEK CAPITAL LETTER OMICRON WITH PSILI
+1F44  ; [.1C8C.0020.0002][.0000.0022.0002][.0000.0024.0002] # GREEK SMALL LETTER OMICRON WITH PSILI AND OXIA
+1F4C  ; [.1C8C.0020.0008][.0000.0022.0002][.0000.0024.0002] # GREEK CAPITAL LETTER OMICRON WITH PSILI AND OXIA
+1F42  ; [.1C8C.0020.0002][.0000.0022.0002][.0000.0025.0002] # GREEK SMALL LETTER OMICRON WITH PSILI AND VARIA
+1F4A  ; [.1C8C.0020.0008][.0000.0022.0002][.0000.0025.0002] # GREEK CAPITAL LETTER OMICRON WITH PSILI AND VARIA
+1F41  ; [.1C8C.0020.0002][.0000.0023.0002] # GREEK SMALL LETTER OMICRON WITH DASIA
+1F49  ; [.1C8C.0020.0008][.0000.0023.0002] # GREEK CAPITAL LETTER OMICRON WITH DASIA
+1F45  ; [.1C8C.0020.0002][.0000.0023.0002][.0000.0024.0002] # GREEK SMALL LETTER OMICRON WITH DASIA AND OXIA
+1F4D  ; [.1C8C.0020.0008][.0000.0023.0002][.0000.0024.0002] # GREEK CAPITAL LETTER OMICRON WITH DASIA AND OXIA
+1F43  ; [.1C8C.0020.0002][.0000.0023.0002][.0000.0025.0002] # GREEK SMALL LETTER OMICRON WITH DASIA AND VARIA
+1F4B  ; [.1C8C.0020.0008][.0000.0023.0002][.0000.0025.0002] # GREEK CAPITAL LETTER OMICRON WITH DASIA AND VARIA
+03CC  ; [.1C8C.0020.0002][.0000.0024.0002] # GREEK SMALL LETTER OMICRON WITH TONOS
+1F79  ; [.1C8C.0020.0002][.0000.0024.0002] # GREEK SMALL LETTER OMICRON WITH OXIA
+038C  ; [.1C8C.0020.0008][.0000.0024.0002] # GREEK CAPITAL LETTER OMICRON WITH TONOS
+1FF9  ; [.1C8C.0020.0008][.0000.0024.0002] # GREEK CAPITAL LETTER OMICRON WITH OXIA
+1F78  ; [.1C8C.0020.0002][.0000.0025.0002] # GREEK SMALL LETTER OMICRON WITH VARIA
+1FF8  ; [.1C8C.0020.0008][.0000.0025.0002] # GREEK CAPITAL LETTER OMICRON WITH VARIA
+03C0  ; [.1C8D.0020.0002] # GREEK SMALL LETTER PI
+03D6  ; [.1C8D.0020.0004] # GREEK PI SYMBOL
+213C  ; [.1C8D.0020.0005] # DOUBLE-STRUCK SMALL PI
+1D6D1 ; [.1C8D.0020.0005] # MATHEMATICAL BOLD SMALL PI
+1D6E1 ; [.1C8D.0020.0005] # MATHEMATICAL BOLD PI SYMBOL
+1D70B ; [.1C8D.0020.0005] # MATHEMATICAL ITALIC SMALL PI
+1D71B ; [.1C8D.0020.0005] # MATHEMATICAL ITALIC PI SYMBOL
+1D745 ; [.1C8D.0020.0005] # MATHEMATICAL BOLD ITALIC SMALL PI
+1D755 ; [.1C8D.0020.0005] # MATHEMATICAL BOLD ITALIC PI SYMBOL
+1D77F ; [.1C8D.0020.0005] # MATHEMATICAL SANS-SERIF BOLD SMALL PI
+1D78F ; [.1C8D.0020.0005] # MATHEMATICAL SANS-SERIF BOLD PI SYMBOL
+1D7B9 ; [.1C8D.0020.0005] # MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL PI
+1D7C9 ; [.1C8D.0020.0005] # MATHEMATICAL SANS-SERIF BOLD ITALIC PI SYMBOL
+03A0  ; [.1C8D.0020.0008] # GREEK CAPITAL LETTER PI
+213F  ; [.1C8D.0020.000B] # DOUBLE-STRUCK CAPITAL PI
+1D6B7 ; [.1C8D.0020.000B] # MATHEMATICAL BOLD CAPITAL PI
+1D6F1 ; [.1C8D.0020.000B] # MATHEMATICAL ITALIC CAPITAL PI
+1D72B ; [.1C8D.0020.000B] # MATHEMATICAL BOLD ITALIC CAPITAL PI
+1D765 ; [.1C8D.0020.000B] # MATHEMATICAL SANS-SERIF BOLD CAPITAL PI
+1D79F ; [.1C8D.0020.000B] # MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL PI
+1D28  ; [.1C8E.0020.0002] # GREEK LETTER SMALL CAPITAL PI
+03FB  ; [.1C8F.0020.0002] # GREEK SMALL LETTER SAN
+03FA  ; [.1C8F.0020.0008] # GREEK CAPITAL LETTER SAN
+03DF  ; [.1C90.0020.0002] # GREEK SMALL LETTER KOPPA
+03DE  ; [.1C90.0020.0008] # GREEK LETTER KOPPA
+03D9  ; [.1C91.0020.0002] # GREEK SMALL LETTER ARCHAIC KOPPA
+03D8  ; [.1C91.0020.0008] # GREEK LETTER ARCHAIC KOPPA
+03C1  ; [.1C92.0020.0002] # GREEK SMALL LETTER RHO
+03F1  ; [.1C92.0020.0004] # GREEK RHO SYMBOL
+1D6D2 ; [.1C92.0020.0005] # MATHEMATICAL BOLD SMALL RHO
+1D6E0 ; [.1C92.0020.0005] # MATHEMATICAL BOLD RHO SYMBOL
+1D70C ; [.1C92.0020.0005] # MATHEMATICAL ITALIC SMALL RHO
+1D71A ; [.1C92.0020.0005] # MATHEMATICAL ITALIC RHO SYMBOL
+1D746 ; [.1C92.0020.0005] # MATHEMATICAL BOLD ITALIC SMALL RHO
+1D754 ; [.1C92.0020.0005] # MATHEMATICAL BOLD ITALIC RHO SYMBOL
+1D780 ; [.1C92.0020.0005] # MATHEMATICAL SANS-SERIF BOLD SMALL RHO
+1D78E ; [.1C92.0020.0005] # MATHEMATICAL SANS-SERIF BOLD RHO SYMBOL
+1D7BA ; [.1C92.0020.0005] # MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL RHO
+1D7C8 ; [.1C92.0020.0005] # MATHEMATICAL SANS-SERIF BOLD ITALIC RHO SYMBOL
+03A1  ; [.1C92.0020.0008] # GREEK CAPITAL LETTER RHO
+1D6B8 ; [.1C92.0020.000B] # MATHEMATICAL BOLD CAPITAL RHO
+1D6F2 ; [.1C92.0020.000B] # MATHEMATICAL ITALIC CAPITAL RHO
+1D72C ; [.1C92.0020.000B] # MATHEMATICAL BOLD ITALIC CAPITAL RHO
+1D766 ; [.1C92.0020.000B] # MATHEMATICAL SANS-SERIF BOLD CAPITAL RHO
+1D7A0 ; [.1C92.0020.000B] # MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL RHO
+1D68  ; [.1C92.0020.0015] # GREEK SUBSCRIPT SMALL LETTER RHO
+1FE4  ; [.1C92.0020.0002][.0000.0022.0002] # GREEK SMALL LETTER RHO WITH PSILI
+1FE5  ; [.1C92.0020.0002][.0000.0023.0002] # GREEK SMALL LETTER RHO WITH DASIA
+1FEC  ; [.1C92.0020.0008][.0000.0023.0002] # GREEK CAPITAL LETTER RHO WITH DASIA
+1D29  ; [.1C93.0020.0002] # GREEK LETTER SMALL CAPITAL RHO
+03FC  ; [.1C94.0020.0002] # GREEK RHO WITH STROKE SYMBOL
+03C3  ; [.1C95.0020.0002] # GREEK SMALL LETTER SIGMA
+03F2  ; [.1C95.0020.0004] # GREEK LUNATE SIGMA SYMBOL
+1D6D3 ; [.1C95.0020.0005] # MATHEMATICAL BOLD SMALL FINAL SIGMA
+1D6D4 ; [.1C95.0020.0005] # MATHEMATICAL BOLD SMALL SIGMA
+1D70D ; [.1C95.0020.0005] # MATHEMATICAL ITALIC SMALL FINAL SIGMA
+1D70E ; [.1C95.0020.0005] # MATHEMATICAL ITALIC SMALL SIGMA
+1D747 ; [.1C95.0020.0005] # MATHEMATICAL BOLD ITALIC SMALL FINAL SIGMA
+1D748 ; [.1C95.0020.0005] # MATHEMATICAL BOLD ITALIC SMALL SIGMA
+1D781 ; [.1C95.0020.0005] # MATHEMATICAL SANS-SERIF BOLD SMALL FINAL SIGMA
+1D782 ; [.1C95.0020.0005] # MATHEMATICAL SANS-SERIF BOLD SMALL SIGMA
+1D7BB ; [.1C95.0020.0005] # MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL FINAL SIGMA
+1D7BC ; [.1C95.0020.0005] # MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL SIGMA
+03A3  ; [.1C95.0020.0008] # GREEK CAPITAL LETTER SIGMA
+03F9  ; [.1C95.0020.000A] # GREEK CAPITAL LUNATE SIGMA SYMBOL
+1D6BA ; [.1C95.0020.000B] # MATHEMATICAL BOLD CAPITAL SIGMA
+1D6F4 ; [.1C95.0020.000B] # MATHEMATICAL ITALIC CAPITAL SIGMA
+1D72E ; [.1C95.0020.000B] # MATHEMATICAL BOLD ITALIC CAPITAL SIGMA
+1D768 ; [.1C95.0020.000B] # MATHEMATICAL SANS-SERIF BOLD CAPITAL SIGMA
+1D7A2 ; [.1C95.0020.000B] # MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL SIGMA
+03C2  ; [.1C95.0020.0019] # GREEK SMALL LETTER FINAL SIGMA
+037C  ; [.1C96.0020.0002] # GREEK SMALL DOTTED LUNATE SIGMA SYMBOL
+03FE  ; [.1C96.0020.0008] # GREEK CAPITAL DOTTED LUNATE SIGMA SYMBOL
+037B  ; [.1C97.0020.0002] # GREEK SMALL REVERSED LUNATE SIGMA SYMBOL
+03FD  ; [.1C97.0020.0008] # GREEK CAPITAL REVERSED LUNATE SIGMA SYMBOL
+037D  ; [.1C98.0020.0002] # GREEK SMALL REVERSED DOTTED LUNATE SIGMA SYMBOL
+03FF  ; [.1C98.0020.0008] # GREEK CAPITAL REVERSED DOTTED LUNATE SIGMA SYMBOL
+03C4  ; [.1C99.0020.0002] # GREEK SMALL LETTER TAU
+1D6D5 ; [.1C99.0020.0005] # MATHEMATICAL BOLD SMALL TAU
+1D70F ; [.1C99.0020.0005] # MATHEMATICAL ITALIC SMALL TAU
+1D749 ; [.1C99.0020.0005] # MATHEMATICAL BOLD ITALIC SMALL TAU
+1D783 ; [.1C99.0020.0005] # MATHEMATICAL SANS-SERIF BOLD SMALL TAU
+1D7BD ; [.1C99.0020.0005] # MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL TAU
+03A4  ; [.1C99.0020.0008] # GREEK CAPITAL LETTER TAU
+1D6BB ; [.1C99.0020.000B] # MATHEMATICAL BOLD CAPITAL TAU
+1D6F5 ; [.1C99.0020.000B] # MATHEMATICAL ITALIC CAPITAL TAU
+1D72F ; [.1C99.0020.000B] # MATHEMATICAL BOLD ITALIC CAPITAL TAU
+1D769 ; [.1C99.0020.000B] # MATHEMATICAL SANS-SERIF BOLD CAPITAL TAU
+1D7A3 ; [.1C99.0020.000B] # MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL TAU
+03C5  ; [.1C9A.0020.0002] # GREEK SMALL LETTER UPSILON
+1D6D6 ; [.1C9A.0020.0005] # MATHEMATICAL BOLD SMALL UPSILON
+1D710 ; [.1C9A.0020.0005] # MATHEMATICAL ITALIC SMALL UPSILON
+1D74A ; [.1C9A.0020.0005] # MATHEMATICAL BOLD ITALIC SMALL UPSILON
+1D784 ; [.1C9A.0020.0005] # MATHEMATICAL SANS-SERIF BOLD SMALL UPSILON
+1D7BE ; [.1C9A.0020.0005] # MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL UPSILON
+03A5  ; [.1C9A.0020.0008] # GREEK CAPITAL LETTER UPSILON
+03D2  ; [.1C9A.0020.000A] # GREEK UPSILON WITH HOOK SYMBOL
+1D6BC ; [.1C9A.0020.000B] # MATHEMATICAL BOLD CAPITAL UPSILON
+1D6F6 ; [.1C9A.0020.000B] # MATHEMATICAL ITALIC CAPITAL UPSILON
+1D730 ; [.1C9A.0020.000B] # MATHEMATICAL BOLD ITALIC CAPITAL UPSILON
+1D76A ; [.1C9A.0020.000B] # MATHEMATICAL SANS-SERIF BOLD CAPITAL UPSILON
+1D7A4 ; [.1C9A.0020.000B] # MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL UPSILON
+1F50  ; [.1C9A.0020.0002][.0000.0022.0002] # GREEK SMALL LETTER UPSILON WITH PSILI
+1F54  ; [.1C9A.0020.0002][.0000.0022.0002][.0000.0024.0002] # GREEK SMALL LETTER UPSILON WITH PSILI AND OXIA
+1F52  ; [.1C9A.0020.0002][.0000.0022.0002][.0000.0025.0002] # GREEK SMALL LETTER UPSILON WITH PSILI AND VARIA
+1F56  ; [.1C9A.0020.0002][.0000.0022.0002][.0000.002A.0002] # GREEK SMALL LETTER UPSILON WITH PSILI AND PERISPOMENI
+1F51  ; [.1C9A.0020.0002][.0000.0023.0002] # GREEK SMALL LETTER UPSILON WITH DASIA
+1F59  ; [.1C9A.0020.0008][.0000.0023.0002] # GREEK CAPITAL LETTER UPSILON WITH DASIA
+1F55  ; [.1C9A.0020.0002][.0000.0023.0002][.0000.0024.0002] # GREEK SMALL LETTER UPSILON WITH DASIA AND OXIA
+1F5D  ; [.1C9A.0020.0008][.0000.0023.0002][.0000.0024.0002] # GREEK CAPITAL LETTER UPSILON WITH DASIA AND OXIA
+1F53  ; [.1C9A.0020.0002][.0000.0023.0002][.0000.0025.0002] # GREEK SMALL LETTER UPSILON WITH DASIA AND VARIA
+1F5B  ; [.1C9A.0020.0008][.0000.0023.0002][.0000.0025.0002] # GREEK CAPITAL LETTER UPSILON WITH DASIA AND VARIA
+1F57  ; [.1C9A.0020.0002][.0000.0023.0002][.0000.002A.0002] # GREEK SMALL LETTER UPSILON WITH DASIA AND PERISPOMENI
+1F5F  ; [.1C9A.0020.0008][.0000.0023.0002][.0000.002A.0002] # GREEK CAPITAL LETTER UPSILON WITH DASIA AND PERISPOMENI
+03CD  ; [.1C9A.0020.0002][.0000.0024.0002] # GREEK SMALL LETTER UPSILON WITH TONOS
+1F7B  ; [.1C9A.0020.0002][.0000.0024.0002] # GREEK SMALL LETTER UPSILON WITH OXIA
+038E  ; [.1C9A.0020.0008][.0000.0024.0002] # GREEK CAPITAL LETTER UPSILON WITH TONOS
+1FEB  ; [.1C9A.0020.0008][.0000.0024.0002] # GREEK CAPITAL LETTER UPSILON WITH OXIA
+03D3  ; [.1C9A.0020.000A][.0000.0024.0002] # GREEK UPSILON WITH ACUTE AND HOOK SYMBOL
+1F7A  ; [.1C9A.0020.0002][.0000.0025.0002] # GREEK SMALL LETTER UPSILON WITH VARIA
+1FEA  ; [.1C9A.0020.0008][.0000.0025.0002] # GREEK CAPITAL LETTER UPSILON WITH VARIA
+1FE0  ; [.1C9A.0020.0002][.0000.0026.0002] # GREEK SMALL LETTER UPSILON WITH VRACHY
+1FE8  ; [.1C9A.0020.0008][.0000.0026.0002] # GREEK CAPITAL LETTER UPSILON WITH VRACHY
+1FE6  ; [.1C9A.0020.0002][.0000.002A.0002] # GREEK SMALL LETTER UPSILON WITH PERISPOMENI
+03CB  ; [.1C9A.0020.0002][.0000.002B.0002] # GREEK SMALL LETTER UPSILON WITH DIALYTIKA
+03AB  ; [.1C9A.0020.0008][.0000.002B.0002] # GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA
+03D4  ; [.1C9A.0020.000A][.0000.002B.0002] # GREEK UPSILON WITH DIAERESIS AND HOOK SYMBOL
+03B0  ; [.1C9A.0020.0002][.0000.002B.0002][.0000.0024.0002] # GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS
+1FE3  ; [.1C9A.0020.0002][.0000.002B.0002][.0000.0024.0002] # GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND OXIA
+1FE2  ; [.1C9A.0020.0002][.0000.002B.0002][.0000.0025.0002] # GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND VARIA
+1FE7  ; [.1C9A.0020.0002][.0000.002B.0002][.0000.002A.0002] # GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND PERISPOMENI
+1FE1  ; [.1C9A.0020.0002][.0000.0032.0002] # GREEK SMALL LETTER UPSILON WITH MACRON
+1FE9  ; [.1C9A.0020.0008][.0000.0032.0002] # GREEK CAPITAL LETTER UPSILON WITH MACRON
+03C6  ; [.1C9B.0020.0002] # GREEK SMALL LETTER PHI
+03D5  ; [.1C9B.0020.0004] # GREEK PHI SYMBOL
+1D6D7 ; [.1C9B.0020.0005] # MATHEMATICAL BOLD SMALL PHI
+1D6DF ; [.1C9B.0020.0005] # MATHEMATICAL BOLD PHI SYMBOL
+1D711 ; [.1C9B.0020.0005] # MATHEMATICAL ITALIC SMALL PHI
+1D719 ; [.1C9B.0020.0005] # MATHEMATICAL ITALIC PHI SYMBOL
+1D74B ; [.1C9B.0020.0005] # MATHEMATICAL BOLD ITALIC SMALL PHI
+1D753 ; [.1C9B.0020.0005] # MATHEMATICAL BOLD ITALIC PHI SYMBOL
+1D785 ; [.1C9B.0020.0005] # MATHEMATICAL SANS-SERIF BOLD SMALL PHI
+1D78D ; [.1C9B.0020.0005] # MATHEMATICAL SANS-SERIF BOLD PHI SYMBOL
+1D7BF ; [.1C9B.0020.0005] # MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL PHI
+1D7C7 ; [.1C9B.0020.0005] # MATHEMATICAL SANS-SERIF BOLD ITALIC PHI SYMBOL
+03A6  ; [.1C9B.0020.0008] # GREEK CAPITAL LETTER PHI
+1D6BD ; [.1C9B.0020.000B] # MATHEMATICAL BOLD CAPITAL PHI
+1D6F7 ; [.1C9B.0020.000B] # MATHEMATICAL ITALIC CAPITAL PHI
+1D731 ; [.1C9B.0020.000B] # MATHEMATICAL BOLD ITALIC CAPITAL PHI
+1D76B ; [.1C9B.0020.000B] # MATHEMATICAL SANS-SERIF BOLD CAPITAL PHI
+1D7A5 ; [.1C9B.0020.000B] # MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL PHI
+1D60  ; [.1C9B.0020.0014] # MODIFIER LETTER SMALL GREEK PHI
+1D69  ; [.1C9B.0020.0015] # GREEK SUBSCRIPT SMALL LETTER PHI
+03C7  ; [.1C9C.0020.0002] # GREEK SMALL LETTER CHI
+1D6D8 ; [.1C9C.0020.0005] # MATHEMATICAL BOLD SMALL CHI
+1D712 ; [.1C9C.0020.0005] # MATHEMATICAL ITALIC SMALL CHI
+1D74C ; [.1C9C.0020.0005] # MATHEMATICAL BOLD ITALIC SMALL CHI
+1D786 ; [.1C9C.0020.0005] # MATHEMATICAL SANS-SERIF BOLD SMALL CHI
+1D7C0 ; [.1C9C.0020.0005] # MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL CHI
+03A7  ; [.1C9C.0020.0008] # GREEK CAPITAL LETTER CHI
+1D6BE ; [.1C9C.0020.000B] # MATHEMATICAL BOLD CAPITAL CHI
+1D6F8 ; [.1C9C.0020.000B] # MATHEMATICAL ITALIC CAPITAL CHI
+1D732 ; [.1C9C.0020.000B] # MATHEMATICAL BOLD ITALIC CAPITAL CHI
+1D76C ; [.1C9C.0020.000B] # MATHEMATICAL SANS-SERIF BOLD CAPITAL CHI
+1D7A6 ; [.1C9C.0020.000B] # MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL CHI
+1D61  ; [.1C9C.0020.0014] # MODIFIER LETTER SMALL CHI
+1D6A  ; [.1C9C.0020.0015] # GREEK SUBSCRIPT SMALL LETTER CHI
+03C8  ; [.1C9D.0020.0002] # GREEK SMALL LETTER PSI
+1D6D9 ; [.1C9D.0020.0005] # MATHEMATICAL BOLD SMALL PSI
+1D713 ; [.1C9D.0020.0005] # MATHEMATICAL ITALIC SMALL PSI
+1D74D ; [.1C9D.0020.0005] # MATHEMATICAL BOLD ITALIC SMALL PSI
+1D787 ; [.1C9D.0020.0005] # MATHEMATICAL SANS-SERIF BOLD SMALL PSI
+1D7C1 ; [.1C9D.0020.0005] # MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL PSI
+03A8  ; [.1C9D.0020.0008] # GREEK CAPITAL LETTER PSI
+1D6BF ; [.1C9D.0020.000B] # MATHEMATICAL BOLD CAPITAL PSI
+1D6F9 ; [.1C9D.0020.000B] # MATHEMATICAL ITALIC CAPITAL PSI
+1D733 ; [.1C9D.0020.000B] # MATHEMATICAL BOLD ITALIC CAPITAL PSI
+1D76D ; [.1C9D.0020.000B] # MATHEMATICAL SANS-SERIF BOLD CAPITAL PSI
+1D7A7 ; [.1C9D.0020.000B] # MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL PSI
+1D2A  ; [.1C9E.0020.0002] # GREEK LETTER SMALL CAPITAL PSI
+03C9  ; [.1C9F.0020.0002] # GREEK SMALL LETTER OMEGA
+1D6DA ; [.1C9F.0020.0005] # MATHEMATICAL BOLD SMALL OMEGA
+1D714 ; [.1C9F.0020.0005] # MATHEMATICAL ITALIC SMALL OMEGA
+1D74E ; [.1C9F.0020.0005] # MATHEMATICAL BOLD ITALIC SMALL OMEGA
+1D788 ; [.1C9F.0020.0005] # MATHEMATICAL SANS-SERIF BOLD SMALL OMEGA
+1D7C2 ; [.1C9F.0020.0005] # MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL OMEGA
+03A9  ; [.1C9F.0020.0008] # GREEK CAPITAL LETTER OMEGA
+2126  ; [.1C9F.0020.0008] # OHM SIGN
+1D6C0 ; [.1C9F.0020.000B] # MATHEMATICAL BOLD CAPITAL OMEGA
+1D6FA ; [.1C9F.0020.000B] # MATHEMATICAL ITALIC CAPITAL OMEGA
+1D734 ; [.1C9F.0020.000B] # MATHEMATICAL BOLD ITALIC CAPITAL OMEGA
+1D76E ; [.1C9F.0020.000B] # MATHEMATICAL SANS-SERIF BOLD CAPITAL OMEGA
+1D7A8 ; [.1C9F.0020.000B] # MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL OMEGA
+1F60  ; [.1C9F.0020.0002][.0000.0022.0002] # GREEK SMALL LETTER OMEGA WITH PSILI
+1F68  ; [.1C9F.0020.0008][.0000.0022.0002] # GREEK CAPITAL LETTER OMEGA WITH PSILI
+1F64  ; [.1C9F.0020.0002][.0000.0022.0002][.0000.0024.0002] # GREEK SMALL LETTER OMEGA WITH PSILI AND OXIA
+1F6C  ; [.1C9F.0020.0008][.0000.0022.0002][.0000.0024.0002] # GREEK CAPITAL LETTER OMEGA WITH PSILI AND OXIA
+1FA4  ; [.1C9F.0020.0002][.0000.0022.0002][.0000.0024.0002][.0000.004C.0002] # GREEK SMALL LETTER OMEGA WITH PSILI AND OXIA AND YPOGEGRAMMENI
+1FAC  ; [.1C9F.0020.0008][.0000.0022.0002][.0000.0024.0002][.0000.004C.0002] # GREEK CAPITAL LETTER OMEGA WITH PSILI AND OXIA AND PROSGEGRAMMENI
+1F62  ; [.1C9F.0020.0002][.0000.0022.0002][.0000.0025.0002] # GREEK SMALL LETTER OMEGA WITH PSILI AND VARIA
+1F6A  ; [.1C9F.0020.0008][.0000.0022.0002][.0000.0025.0002] # GREEK CAPITAL LETTER OMEGA WITH PSILI AND VARIA
+1FA2  ; [.1C9F.0020.0002][.0000.0022.0002][.0000.0025.0002][.0000.004C.0002] # GREEK SMALL LETTER OMEGA WITH PSILI AND VARIA AND YPOGEGRAMMENI
+1FAA  ; [.1C9F.0020.0008][.0000.0022.0002][.0000.0025.0002][.0000.004C.0002] # GREEK CAPITAL LETTER OMEGA WITH PSILI AND VARIA AND PROSGEGRAMMENI
+1F66  ; [.1C9F.0020.0002][.0000.0022.0002][.0000.002A.0002] # GREEK SMALL LETTER OMEGA WITH PSILI AND PERISPOMENI
+1F6E  ; [.1C9F.0020.0008][.0000.0022.0002][.0000.002A.0002] # GREEK CAPITAL LETTER OMEGA WITH PSILI AND PERISPOMENI
+1FA6  ; [.1C9F.0020.0002][.0000.0022.0002][.0000.002A.0002][.0000.004C.0002] # GREEK SMALL LETTER OMEGA WITH PSILI AND PERISPOMENI AND YPOGEGRAMMENI
+1FAE  ; [.1C9F.0020.0008][.0000.0022.0002][.0000.002A.0002][.0000.004C.0002] # GREEK CAPITAL LETTER OMEGA WITH PSILI AND PERISPOMENI AND PROSGEGRAMMENI
+1FA0  ; [.1C9F.0020.0002][.0000.0022.0002][.0000.004C.0002] # GREEK SMALL LETTER OMEGA WITH PSILI AND YPOGEGRAMMENI
+1FA8  ; [.1C9F.0020.0008][.0000.0022.0002][.0000.004C.0002] # GREEK CAPITAL LETTER OMEGA WITH PSILI AND PROSGEGRAMMENI
+1F61  ; [.1C9F.0020.0002][.0000.0023.0002] # GREEK SMALL LETTER OMEGA WITH DASIA
+1F69  ; [.1C9F.0020.0008][.0000.0023.0002] # GREEK CAPITAL LETTER OMEGA WITH DASIA
+1F65  ; [.1C9F.0020.0002][.0000.0023.0002][.0000.0024.0002] # GREEK SMALL LETTER OMEGA WITH DASIA AND OXIA
+1F6D  ; [.1C9F.0020.0008][.0000.0023.0002][.0000.0024.0002] # GREEK CAPITAL LETTER OMEGA WITH DASIA AND OXIA
+1FA5  ; [.1C9F.0020.0002][.0000.0023.0002][.0000.0024.0002][.0000.004C.0002] # GREEK SMALL LETTER OMEGA WITH DASIA AND OXIA AND YPOGEGRAMMENI
+1FAD  ; [.1C9F.0020.0008][.0000.0023.0002][.0000.0024.0002][.0000.004C.0002] # GREEK CAPITAL LETTER OMEGA WITH DASIA AND OXIA AND PROSGEGRAMMENI
+1F63  ; [.1C9F.0020.0002][.0000.0023.0002][.0000.0025.0002] # GREEK SMALL LETTER OMEGA WITH DASIA AND VARIA
+1F6B  ; [.1C9F.0020.0008][.0000.0023.0002][.0000.0025.0002] # GREEK CAPITAL LETTER OMEGA WITH DASIA AND VARIA
+1FA3  ; [.1C9F.0020.0002][.0000.0023.0002][.0000.0025.0002][.0000.004C.0002] # GREEK SMALL LETTER OMEGA WITH DASIA AND VARIA AND YPOGEGRAMMENI
+1FAB  ; [.1C9F.0020.0008][.0000.0023.0002][.0000.0025.0002][.0000.004C.0002] # GREEK CAPITAL LETTER OMEGA WITH DASIA AND VARIA AND PROSGEGRAMMENI
+1F67  ; [.1C9F.0020.0002][.0000.0023.0002][.0000.002A.0002] # GREEK SMALL LETTER OMEGA WITH DASIA AND PERISPOMENI
+1F6F  ; [.1C9F.0020.0008][.0000.0023.0002][.0000.002A.0002] # GREEK CAPITAL LETTER OMEGA WITH DASIA AND PERISPOMENI
+1FA7  ; [.1C9F.0020.0002][.0000.0023.0002][.0000.002A.0002][.0000.004C.0002] # GREEK SMALL LETTER OMEGA WITH DASIA AND PERISPOMENI AND YPOGEGRAMMENI
+1FAF  ; [.1C9F.0020.0008][.0000.0023.0002][.0000.002A.0002][.0000.004C.0002] # GREEK CAPITAL LETTER OMEGA WITH DASIA AND PERISPOMENI AND PROSGEGRAMMENI
+1FA1  ; [.1C9F.0020.0002][.0000.0023.0002][.0000.004C.0002] # GREEK SMALL LETTER OMEGA WITH DASIA AND YPOGEGRAMMENI
+1FA9  ; [.1C9F.0020.0008][.0000.0023.0002][.0000.004C.0002] # GREEK CAPITAL LETTER OMEGA WITH DASIA AND PROSGEGRAMMENI
+03CE  ; [.1C9F.0020.0002][.0000.0024.0002] # GREEK SMALL LETTER OMEGA WITH TONOS
+1F7D  ; [.1C9F.0020.0002][.0000.0024.0002] # GREEK SMALL LETTER OMEGA WITH OXIA
+038F  ; [.1C9F.0020.0008][.0000.0024.0002] # GREEK CAPITAL LETTER OMEGA WITH TONOS
+1FFB  ; [.1C9F.0020.0008][.0000.0024.0002] # GREEK CAPITAL LETTER OMEGA WITH OXIA
+1FF4  ; [.1C9F.0020.0002][.0000.0024.0002][.0000.004C.0002] # GREEK SMALL LETTER OMEGA WITH OXIA AND YPOGEGRAMMENI
+1F7C  ; [.1C9F.0020.0002][.0000.0025.0002] # GREEK SMALL LETTER OMEGA WITH VARIA
+1FFA  ; [.1C9F.0020.0008][.0000.0025.0002] # GREEK CAPITAL LETTER OMEGA WITH VARIA
+1FF2  ; [.1C9F.0020.0002][.0000.0025.0002][.0000.004C.0002] # GREEK SMALL LETTER OMEGA WITH VARIA AND YPOGEGRAMMENI
+1FF6  ; [.1C9F.0020.0002][.0000.002A.0002] # GREEK SMALL LETTER OMEGA WITH PERISPOMENI
+1FF7  ; [.1C9F.0020.0002][.0000.002A.0002][.0000.004C.0002] # GREEK SMALL LETTER OMEGA WITH PERISPOMENI AND YPOGEGRAMMENI
+1FF3  ; [.1C9F.0020.0002][.0000.004C.0002] # GREEK SMALL LETTER OMEGA WITH YPOGEGRAMMENI
+1FFC  ; [.1C9F.0020.0008][.0000.004C.0002] # GREEK CAPITAL LETTER OMEGA WITH PROSGEGRAMMENI
+AB65  ; [.1CA0.0020.0002] # GREEK LETTER SMALL CAPITAL OMEGA
+03E1  ; [.1CA1.0020.0002] # GREEK SMALL LETTER SAMPI
+03E0  ; [.1CA1.0020.0008] # GREEK LETTER SAMPI
+0373  ; [.1CA2.0020.0002] # GREEK SMALL LETTER ARCHAIC SAMPI
+0372  ; [.1CA2.0020.0008] # GREEK CAPITAL LETTER ARCHAIC SAMPI
+03F8  ; [.1CA3.0020.0002] # GREEK SMALL LETTER SHO
+03F7  ; [.1CA3.0020.0008] # GREEK CAPITAL LETTER SHO
+2C81  ; [.1CA4.0020.0002] # COPTIC SMALL LETTER ALFA
+2C80  ; [.1CA4.0020.0008] # COPTIC CAPITAL LETTER ALFA
+2C83  ; [.1CA5.0020.0002] # COPTIC SMALL LETTER VIDA
+2C82  ; [.1CA5.0020.0008] # COPTIC CAPITAL LETTER VIDA
+2C85  ; [.1CA6.0020.0002] # COPTIC SMALL LETTER GAMMA
+2C84  ; [.1CA6.0020.0008] # COPTIC CAPITAL LETTER GAMMA
+2C87  ; [.1CA7.0020.0002] # COPTIC SMALL LETTER DALDA
+2C86  ; [.1CA7.0020.0008] # COPTIC CAPITAL LETTER DALDA
+2C89  ; [.1CA8.0020.0002] # COPTIC SMALL LETTER EIE
+2C88  ; [.1CA8.0020.0008] # COPTIC CAPITAL LETTER EIE
+2CB7  ; [.1CA9.0020.0002] # COPTIC SMALL LETTER CRYPTOGRAMMIC EIE
+2CB6  ; [.1CA9.0020.0008] # COPTIC CAPITAL LETTER CRYPTOGRAMMIC EIE
+2C8B  ; [.1CAA.0020.0002] # COPTIC SMALL LETTER SOU
+2C8A  ; [.1CAA.0020.0008] # COPTIC CAPITAL LETTER SOU
+2C8D  ; [.1CAB.0020.0002] # COPTIC SMALL LETTER ZATA
+2C8C  ; [.1CAB.0020.0008] # COPTIC CAPITAL LETTER ZATA
+2C8F  ; [.1CAC.0020.0002] # COPTIC SMALL LETTER HATE
+2C8E  ; [.1CAC.0020.0008] # COPTIC CAPITAL LETTER HATE
+2C91  ; [.1CAD.0020.0002] # COPTIC SMALL LETTER THETHE
+2C90  ; [.1CAD.0020.0008] # COPTIC CAPITAL LETTER THETHE
+2C93  ; [.1CAE.0020.0002] # COPTIC SMALL LETTER IAUDA
+2C92  ; [.1CAE.0020.0008] # COPTIC CAPITAL LETTER IAUDA
+2C95  ; [.1CAF.0020.0002] # COPTIC SMALL LETTER KAPA
+2C94  ; [.1CAF.0020.0008] # COPTIC CAPITAL LETTER KAPA
+2CE4  ; [.1CAF.0020.0004][.1CA4.0020.0004][.1CAE.0020.0004] # COPTIC SYMBOL KAI
+2CB9  ; [.1CB0.0020.0002] # COPTIC SMALL LETTER DIALECT-P KAPA
+2CB8  ; [.1CB0.0020.0008] # COPTIC CAPITAL LETTER DIALECT-P KAPA
+2C97  ; [.1CB1.0020.0002] # COPTIC SMALL LETTER LAULA
+2C96  ; [.1CB1.0020.0008] # COPTIC CAPITAL LETTER LAULA
+2C99  ; [.1CB2.0020.0002] # COPTIC SMALL LETTER MI
+2C98  ; [.1CB2.0020.0008] # COPTIC CAPITAL LETTER MI
+2C9B  ; [.1CB3.0020.0002] # COPTIC SMALL LETTER NI
+2C9A  ; [.1CB3.0020.0008] # COPTIC CAPITAL LETTER NI
+2CBB  ; [.1CB4.0020.0002] # COPTIC SMALL LETTER DIALECT-P NI
+2CBA  ; [.1CB4.0020.0008] # COPTIC CAPITAL LETTER DIALECT-P NI
+2CBD  ; [.1CB5.0020.0002] # COPTIC SMALL LETTER CRYPTOGRAMMIC NI
+2CBC  ; [.1CB5.0020.0008] # COPTIC CAPITAL LETTER CRYPTOGRAMMIC NI
+2C9D  ; [.1CB6.0020.0002] # COPTIC SMALL LETTER KSI
+2C9C  ; [.1CB6.0020.0008] # COPTIC CAPITAL LETTER KSI
+2C9F  ; [.1CB7.0020.0002] # COPTIC SMALL LETTER O
+2C9E  ; [.1CB7.0020.0008] # COPTIC CAPITAL LETTER O
+2CA1  ; [.1CB8.0020.0002] # COPTIC SMALL LETTER PI
+2CA0  ; [.1CB8.0020.0008] # COPTIC CAPITAL LETTER PI
+2CA3  ; [.1CB9.0020.0002] # COPTIC SMALL LETTER RO
+2CA2  ; [.1CB9.0020.0008] # COPTIC CAPITAL LETTER RO
+2CA5  ; [.1CBA.0020.0002] # COPTIC SMALL LETTER SIMA
+2CA4  ; [.1CBA.0020.0008] # COPTIC CAPITAL LETTER SIMA
+2CA7  ; [.1CBB.0020.0002] # COPTIC SMALL LETTER TAU
+2CA6  ; [.1CBB.0020.0008] # COPTIC CAPITAL LETTER TAU
+2CA9  ; [.1CBC.0020.0002] # COPTIC SMALL LETTER UA
+2CA8  ; [.1CBC.0020.0008] # COPTIC CAPITAL LETTER UA
+2CAB  ; [.1CBD.0020.0002] # COPTIC SMALL LETTER FI
+2CAA  ; [.1CBD.0020.0008] # COPTIC CAPITAL LETTER FI
+2CAD  ; [.1CBE.0020.0002] # COPTIC SMALL LETTER KHI
+2CAC  ; [.1CBE.0020.0008] # COPTIC CAPITAL LETTER KHI
+2CAF  ; [.1CBF.0020.0002] # COPTIC SMALL LETTER PSI
+2CAE  ; [.1CBF.0020.0008] # COPTIC CAPITAL LETTER PSI
+2CB1  ; [.1CC0.0020.0002] # COPTIC SMALL LETTER OOU
+2CB0  ; [.1CC0.0020.0008] # COPTIC CAPITAL LETTER OOU
+2CBF  ; [.1CC1.0020.0002] # COPTIC SMALL LETTER OLD COPTIC OOU
+2CBE  ; [.1CC1.0020.0008] # COPTIC CAPITAL LETTER OLD COPTIC OOU
+2CC1  ; [.1CC2.0020.0002] # COPTIC SMALL LETTER SAMPI
+2CC0  ; [.1CC2.0020.0008] # COPTIC CAPITAL LETTER SAMPI
+03E3  ; [.1CC3.0020.0002] # COPTIC SMALL LETTER SHEI
+03E2  ; [.1CC3.0020.0008] # COPTIC CAPITAL LETTER SHEI
+2CEC  ; [.1CC4.0020.0002] # COPTIC SMALL LETTER CRYPTOGRAMMIC SHEI
+2CEB  ; [.1CC4.0020.0008] # COPTIC CAPITAL LETTER CRYPTOGRAMMIC SHEI
+2CC3  ; [.1CC5.0020.0002] # COPTIC SMALL LETTER CROSSED SHEI
+2CC2  ; [.1CC5.0020.0008] # COPTIC CAPITAL LETTER CROSSED SHEI
+2CC5  ; [.1CC6.0020.0002] # COPTIC SMALL LETTER OLD COPTIC SHEI
+2CC4  ; [.1CC6.0020.0008] # COPTIC CAPITAL LETTER OLD COPTIC SHEI
+2CC7  ; [.1CC7.0020.0002] # COPTIC SMALL LETTER OLD COPTIC ESH
+2CC6  ; [.1CC7.0020.0008] # COPTIC CAPITAL LETTER OLD COPTIC ESH
+03E5  ; [.1CC8.0020.0002] # COPTIC SMALL LETTER FEI
+03E4  ; [.1CC8.0020.0008] # COPTIC CAPITAL LETTER FEI
+03E7  ; [.1CC9.0020.0002] # COPTIC SMALL LETTER KHEI
+03E6  ; [.1CC9.0020.0008] # COPTIC CAPITAL LETTER KHEI
+2CF3  ; [.1CCA.0020.0002] # COPTIC SMALL LETTER BOHAIRIC KHEI
+2CF2  ; [.1CCA.0020.0008] # COPTIC CAPITAL LETTER BOHAIRIC KHEI
+2CC9  ; [.1CCB.0020.0002] # COPTIC SMALL LETTER AKHMIMIC KHEI
+2CC8  ; [.1CCB.0020.0008] # COPTIC CAPITAL LETTER AKHMIMIC KHEI
+03E9  ; [.1CCC.0020.0002] # COPTIC SMALL LETTER HORI
+03E8  ; [.1CCC.0020.0008] # COPTIC CAPITAL LETTER HORI
+2CCB  ; [.1CCD.0020.0002] # COPTIC SMALL LETTER DIALECT-P HORI
+2CCA  ; [.1CCD.0020.0008] # COPTIC CAPITAL LETTER DIALECT-P HORI
+2CCD  ; [.1CCE.0020.0002] # COPTIC SMALL LETTER OLD COPTIC HORI
+2CCC  ; [.1CCE.0020.0008] # COPTIC CAPITAL LETTER OLD COPTIC HORI
+2CCF  ; [.1CCF.0020.0002] # COPTIC SMALL LETTER OLD COPTIC HA
+2CCE  ; [.1CCF.0020.0008] # COPTIC CAPITAL LETTER OLD COPTIC HA
+2CD1  ; [.1CD0.0020.0002] # COPTIC SMALL LETTER L-SHAPED HA
+2CD0  ; [.1CD0.0020.0008] # COPTIC CAPITAL LETTER L-SHAPED HA
+2CD3  ; [.1CD1.0020.0002] # COPTIC SMALL LETTER OLD COPTIC HEI
+2CD2  ; [.1CD1.0020.0008] # COPTIC CAPITAL LETTER OLD COPTIC HEI
+2CD5  ; [.1CD2.0020.0002] # COPTIC SMALL LETTER OLD COPTIC HAT
+2CD4  ; [.1CD2.0020.0008] # COPTIC CAPITAL LETTER OLD COPTIC HAT
+03EB  ; [.1CD3.0020.0002] # COPTIC SMALL LETTER GANGIA
+03EA  ; [.1CD3.0020.0008] # COPTIC CAPITAL LETTER GANGIA
+2CEE  ; [.1CD4.0020.0002] # COPTIC SMALL LETTER CRYPTOGRAMMIC GANGIA
+2CED  ; [.1CD4.0020.0008] # COPTIC CAPITAL LETTER CRYPTOGRAMMIC GANGIA
+2CD7  ; [.1CD5.0020.0002] # COPTIC SMALL LETTER OLD COPTIC GANGIA
+2CD6  ; [.1CD5.0020.0008] # COPTIC CAPITAL LETTER OLD COPTIC GANGIA
+03ED  ; [.1CD6.0020.0002] # COPTIC SMALL LETTER SHIMA
+03EC  ; [.1CD6.0020.0008] # COPTIC CAPITAL LETTER SHIMA
+2CD9  ; [.1CD7.0020.0002] # COPTIC SMALL LETTER OLD COPTIC DJA
+2CD8  ; [.1CD7.0020.0008] # COPTIC CAPITAL LETTER OLD COPTIC DJA
+2CDB  ; [.1CD8.0020.0002] # COPTIC SMALL LETTER OLD COPTIC SHIMA
+2CDA  ; [.1CD8.0020.0008] # COPTIC CAPITAL LETTER OLD COPTIC SHIMA
+2CDD  ; [.1CD9.0020.0002] # COPTIC SMALL LETTER OLD NUBIAN SHIMA
+2CDC  ; [.1CD9.0020.0008] # COPTIC CAPITAL LETTER OLD NUBIAN SHIMA
+03EF  ; [.1CDA.0020.0002] # COPTIC SMALL LETTER DEI
+03EE  ; [.1CDA.0020.0008] # COPTIC CAPITAL LETTER DEI
+2CB3  ; [.1CDB.0020.0002] # COPTIC SMALL LETTER DIALECT-P ALEF
+2CB2  ; [.1CDB.0020.0008] # COPTIC CAPITAL LETTER DIALECT-P ALEF
+2CB5  ; [.1CDC.0020.0002] # COPTIC SMALL LETTER OLD COPTIC AIN
+2CB4  ; [.1CDC.0020.0008] # COPTIC CAPITAL LETTER OLD COPTIC AIN
+2CDF  ; [.1CDD.0020.0002] # COPTIC SMALL LETTER OLD NUBIAN NGI
+2CDE  ; [.1CDD.0020.0008] # COPTIC CAPITAL LETTER OLD NUBIAN NGI
+2CE1  ; [.1CDE.0020.0002] # COPTIC SMALL LETTER OLD NUBIAN NYI
+2CE0  ; [.1CDE.0020.0008] # COPTIC CAPITAL LETTER OLD NUBIAN NYI
+2CE3  ; [.1CDF.0020.0002] # COPTIC SMALL LETTER OLD NUBIAN WAU
+2CE2  ; [.1CDF.0020.0008] # COPTIC CAPITAL LETTER OLD NUBIAN WAU
+0430  ; [.1CE0.0020.0002] # CYRILLIC SMALL LETTER A
+2DF6  ; [.1CE0.0020.0004] # COMBINING CYRILLIC LETTER A
+0410  ; [.1CE0.0020.0008] # CYRILLIC CAPITAL LETTER A
+04D1  ; [.1CE4.0020.0002] # CYRILLIC SMALL LETTER A WITH BREVE
+0430 0306 ; [.1CE4.0020.0002] # CYRILLIC SMALL LETTER A WITH BREVE
+04D0  ; [.1CE4.0020.0008] # CYRILLIC CAPITAL LETTER A WITH BREVE
+0410 0306 ; [.1CE4.0020.0008] # CYRILLIC CAPITAL LETTER A WITH BREVE
+04D3  ; [.1CE8.0020.0002] # CYRILLIC SMALL LETTER A WITH DIAERESIS
+0430 0308 ; [.1CE8.0020.0002] # CYRILLIC SMALL LETTER A WITH DIAERESIS
+04D2  ; [.1CE8.0020.0008] # CYRILLIC CAPITAL LETTER A WITH DIAERESIS
+0410 0308 ; [.1CE8.0020.0008] # CYRILLIC CAPITAL LETTER A WITH DIAERESIS
+04D9  ; [.1CEC.0020.0002] # CYRILLIC SMALL LETTER SCHWA
+04D8  ; [.1CEC.0020.0008] # CYRILLIC CAPITAL LETTER SCHWA
+04DB  ; [.1CF0.0020.0002] # CYRILLIC SMALL LETTER SCHWA WITH DIAERESIS
+04D9 0308 ; [.1CF0.0020.0002] # CYRILLIC SMALL LETTER SCHWA WITH DIAERESIS
+04DA  ; [.1CF0.0020.0008] # CYRILLIC CAPITAL LETTER SCHWA WITH DIAERESIS
+04D8 0308 ; [.1CF0.0020.0008] # CYRILLIC CAPITAL LETTER SCHWA WITH DIAERESIS
+04D5  ; [.1CF4.0020.0002] # CYRILLIC SMALL LIGATURE A IE
+04D4  ; [.1CF4.0020.0008] # CYRILLIC CAPITAL LIGATURE A IE
+0431  ; [.1CF8.0020.0002] # CYRILLIC SMALL LETTER BE
+2DE0  ; [.1CF8.0020.0004] # COMBINING CYRILLIC LETTER BE
+0411  ; [.1CF8.0020.0008] # CYRILLIC CAPITAL LETTER BE
+0432  ; [.1CFC.0020.0002] # CYRILLIC SMALL LETTER VE
+2DE1  ; [.1CFC.0020.0004] # COMBINING CYRILLIC LETTER VE
+0412  ; [.1CFC.0020.0008] # CYRILLIC CAPITAL LETTER VE
+0433  ; [.1D00.0020.0002] # CYRILLIC SMALL LETTER GHE
+2DE2  ; [.1D00.0020.0004] # COMBINING CYRILLIC LETTER GHE
+0413  ; [.1D00.0020.0008] # CYRILLIC CAPITAL LETTER GHE
+0491  ; [.1D00.0020.0004][.0000.0109.0004] # CYRILLIC SMALL LETTER GHE WITH UPTURN
+0490  ; [.1D00.0020.000A][.0000.0109.0004] # CYRILLIC CAPITAL LETTER GHE WITH UPTURN
+0493  ; [.1D04.0020.0002] # CYRILLIC SMALL LETTER GHE WITH STROKE
+0492  ; [.1D04.0020.0008] # CYRILLIC CAPITAL LETTER GHE WITH STROKE
+04FB  ; [.1D08.0020.0002] # CYRILLIC SMALL LETTER GHE WITH STROKE AND HOOK
+04FA  ; [.1D08.0020.0008] # CYRILLIC CAPITAL LETTER GHE WITH STROKE AND HOOK
+0495  ; [.1D0C.0020.0002] # CYRILLIC SMALL LETTER GHE WITH MIDDLE HOOK
+0494  ; [.1D0C.0020.0008] # CYRILLIC CAPITAL LETTER GHE WITH MIDDLE HOOK
+04F7  ; [.1D10.0020.0002] # CYRILLIC SMALL LETTER GHE WITH DESCENDER
+04F6  ; [.1D10.0020.0008] # CYRILLIC CAPITAL LETTER GHE WITH DESCENDER
+0434  ; [.1D14.0020.0002] # CYRILLIC SMALL LETTER DE
+2DE3  ; [.1D14.0020.0004] # COMBINING CYRILLIC LETTER DE
+0414  ; [.1D14.0020.0008] # CYRILLIC CAPITAL LETTER DE
+0501  ; [.1D18.0020.0002] # CYRILLIC SMALL LETTER KOMI DE
+0500  ; [.1D18.0020.0008] # CYRILLIC CAPITAL LETTER KOMI DE
+A681  ; [.1D19.0020.0002] # CYRILLIC SMALL LETTER DWE
+A680  ; [.1D19.0020.0008] # CYRILLIC CAPITAL LETTER DWE
+0452  ; [.1D1A.0020.0002] # CYRILLIC SMALL LETTER DJE
+0402  ; [.1D1A.0020.0008] # CYRILLIC CAPITAL LETTER DJE
+A663  ; [.1D1E.0020.0002] # CYRILLIC SMALL LETTER SOFT DE
+A662  ; [.1D1E.0020.0008] # CYRILLIC CAPITAL LETTER SOFT DE
+0503  ; [.1D1F.0020.0002] # CYRILLIC SMALL LETTER KOMI DJE
+0502  ; [.1D1F.0020.0008] # CYRILLIC CAPITAL LETTER KOMI DJE
+0453  ; [.1D20.0020.0002] # CYRILLIC SMALL LETTER GJE
+0433 0301 ; [.1D20.0020.0002] # CYRILLIC SMALL LETTER GJE
+0433 0341 ; [.1D20.0020.0002] # CYRILLIC SMALL LETTER GJE
+0403  ; [.1D20.0020.0008] # CYRILLIC CAPITAL LETTER GJE
+0413 0301 ; [.1D20.0020.0008] # CYRILLIC CAPITAL LETTER GJE
+0413 0341 ; [.1D20.0020.0008] # CYRILLIC CAPITAL LETTER GJE
+0499  ; [.1D24.0020.0002] # CYRILLIC SMALL LETTER ZE WITH DESCENDER
+0498  ; [.1D24.0020.0008] # CYRILLIC CAPITAL LETTER ZE WITH DESCENDER
+0435  ; [.1D28.0020.0002] # CYRILLIC SMALL LETTER IE
+2DF7  ; [.1D28.0020.0004] # COMBINING CYRILLIC LETTER IE
+0415  ; [.1D28.0020.0008] # CYRILLIC CAPITAL LETTER IE
+0450  ; [.1D28.0020.0002][.0000.0025.0002] # CYRILLIC SMALL LETTER IE WITH GRAVE
+0400  ; [.1D28.0020.0008][.0000.0025.0002] # CYRILLIC CAPITAL LETTER IE WITH GRAVE
+0451  ; [.1D28.0020.0002][.0000.002B.0002] # CYRILLIC SMALL LETTER IO
+0401  ; [.1D28.0020.0008][.0000.002B.0002] # CYRILLIC CAPITAL LETTER IO
+04D7  ; [.1D2C.0020.0002] # CYRILLIC SMALL LETTER IE WITH BREVE
+0435 0306 ; [.1D2C.0020.0002] # CYRILLIC SMALL LETTER IE WITH BREVE
+04D6  ; [.1D2C.0020.0008] # CYRILLIC CAPITAL LETTER IE WITH BREVE
+0415 0306 ; [.1D2C.0020.0008] # CYRILLIC CAPITAL LETTER IE WITH BREVE
+0454  ; [.1D30.0020.0002] # CYRILLIC SMALL LETTER UKRAINIAN IE
+A674  ; [.1D30.0020.0004] # COMBINING CYRILLIC LETTER UKRAINIAN IE
+0404  ; [.1D30.0020.0008] # CYRILLIC CAPITAL LETTER UKRAINIAN IE
+0436  ; [.1D34.0020.0002] # CYRILLIC SMALL LETTER ZHE
+2DE4  ; [.1D34.0020.0004] # COMBINING CYRILLIC LETTER ZHE
+0416  ; [.1D34.0020.0008] # CYRILLIC CAPITAL LETTER ZHE
+04C2  ; [.1D34.0020.0002][.0000.0026.0002] # CYRILLIC SMALL LETTER ZHE WITH BREVE
+04C1  ; [.1D34.0020.0008][.0000.0026.0002] # CYRILLIC CAPITAL LETTER ZHE WITH BREVE
+052B  ; [.1D38.0020.0002] # CYRILLIC SMALL LETTER DZZHE
+052A  ; [.1D38.0020.0008] # CYRILLIC CAPITAL LETTER DZZHE
+A685  ; [.1D39.0020.0002] # CYRILLIC SMALL LETTER ZHWE
+A684  ; [.1D39.0020.0008] # CYRILLIC CAPITAL LETTER ZHWE
+04DD  ; [.1D3A.0020.0002] # CYRILLIC SMALL LETTER ZHE WITH DIAERESIS
+0436 0308 ; [.1D3A.0020.0002] # CYRILLIC SMALL LETTER ZHE WITH DIAERESIS
+04DC  ; [.1D3A.0020.0008] # CYRILLIC CAPITAL LETTER ZHE WITH DIAERESIS
+0416 0308 ; [.1D3A.0020.0008] # CYRILLIC CAPITAL LETTER ZHE WITH DIAERESIS
+0497  ; [.1D3E.0020.0002] # CYRILLIC SMALL LETTER ZHE WITH DESCENDER
+0496  ; [.1D3E.0020.0008] # CYRILLIC CAPITAL LETTER ZHE WITH DESCENDER
+0437  ; [.1D42.0020.0002] # CYRILLIC SMALL LETTER ZE
+2DE5  ; [.1D42.0020.0004] # COMBINING CYRILLIC LETTER ZE
+0417  ; [.1D42.0020.0008] # CYRILLIC CAPITAL LETTER ZE
+A641  ; [.1D46.0020.0002] # CYRILLIC SMALL LETTER ZEMLYA
+A640  ; [.1D46.0020.0008] # CYRILLIC CAPITAL LETTER ZEMLYA
+0505  ; [.1D47.0020.0002] # CYRILLIC SMALL LETTER KOMI ZJE
+0504  ; [.1D47.0020.0008] # CYRILLIC CAPITAL LETTER KOMI ZJE
+0511  ; [.1D48.0020.0002] # CYRILLIC SMALL LETTER REVERSED ZE
+0510  ; [.1D48.0020.0008] # CYRILLIC CAPITAL LETTER REVERSED ZE
+04DF  ; [.1D49.0020.0002] # CYRILLIC SMALL LETTER ZE WITH DIAERESIS
+0437 0308 ; [.1D49.0020.0002] # CYRILLIC SMALL LETTER ZE WITH DIAERESIS
+04DE  ; [.1D49.0020.0008] # CYRILLIC CAPITAL LETTER ZE WITH DIAERESIS
+0417 0308 ; [.1D49.0020.0008] # CYRILLIC CAPITAL LETTER ZE WITH DIAERESIS
+A643  ; [.1D4D.0020.0002] # CYRILLIC SMALL LETTER DZELO
+A642  ; [.1D4D.0020.0008] # CYRILLIC CAPITAL LETTER DZELO
+0455  ; [.1D4E.0020.0002] # CYRILLIC SMALL LETTER DZE
+0405  ; [.1D4E.0020.0008] # CYRILLIC CAPITAL LETTER DZE
+A645  ; [.1D52.0020.0002] # CYRILLIC SMALL LETTER REVERSED DZE
+A644  ; [.1D52.0020.0008] # CYRILLIC CAPITAL LETTER REVERSED DZE
+04E1  ; [.1D53.0020.0002] # CYRILLIC SMALL LETTER ABKHASIAN DZE
+04E0  ; [.1D53.0020.0008] # CYRILLIC CAPITAL LETTER ABKHASIAN DZE
+A689  ; [.1D57.0020.0002] # CYRILLIC SMALL LETTER DZZE
+A688  ; [.1D57.0020.0008] # CYRILLIC CAPITAL LETTER DZZE
+0507  ; [.1D58.0020.0002] # CYRILLIC SMALL LETTER KOMI DZJE
+0506  ; [.1D58.0020.0008] # CYRILLIC CAPITAL LETTER KOMI DZJE
+A683  ; [.1D59.0020.0002] # CYRILLIC SMALL LETTER DZWE
+A682  ; [.1D59.0020.0008] # CYRILLIC CAPITAL LETTER DZWE
+0438  ; [.1D5A.0020.0002] # CYRILLIC SMALL LETTER I
+A675  ; [.1D5A.0020.0004] # COMBINING CYRILLIC LETTER I
+0418  ; [.1D5A.0020.0008] # CYRILLIC CAPITAL LETTER I
+045D  ; [.1D5A.0020.0002][.0000.0025.0002] # CYRILLIC SMALL LETTER I WITH GRAVE
+040D  ; [.1D5A.0020.0008][.0000.0025.0002] # CYRILLIC CAPITAL LETTER I WITH GRAVE
+04E3  ; [.1D5A.0020.0002][.0000.0032.0002] # CYRILLIC SMALL LETTER I WITH MACRON
+04E2  ; [.1D5A.0020.0008][.0000.0032.0002] # CYRILLIC CAPITAL LETTER I WITH MACRON
+048B  ; [.1D5E.0020.0002] # CYRILLIC SMALL LETTER SHORT I WITH TAIL
+048A  ; [.1D5E.0020.0008] # CYRILLIC CAPITAL LETTER SHORT I WITH TAIL
+04E5  ; [.1D62.0020.0002] # CYRILLIC SMALL LETTER I WITH DIAERESIS
+0438 0308 ; [.1D62.0020.0002] # CYRILLIC SMALL LETTER I WITH DIAERESIS
+04E4  ; [.1D62.0020.0008] # CYRILLIC CAPITAL LETTER I WITH DIAERESIS
+0418 0308 ; [.1D62.0020.0008] # CYRILLIC CAPITAL LETTER I WITH DIAERESIS
+0456  ; [.1D66.0020.0002] # CYRILLIC SMALL LETTER BYELORUSSIAN-UKRAINIAN I
+0406  ; [.1D66.0020.0008] # CYRILLIC CAPITAL LETTER BYELORUSSIAN-UKRAINIAN I
+A647  ; [.1D6A.0020.0002] # CYRILLIC SMALL LETTER IOTA
+A646  ; [.1D6A.0020.0008] # CYRILLIC CAPITAL LETTER IOTA
+0457  ; [.1D6B.0020.0002] # CYRILLIC SMALL LETTER YI
+0456 0308 ; [.1D6B.0020.0002] # CYRILLIC SMALL LETTER YI
+A676  ; [.1D6B.0020.0004] # COMBINING CYRILLIC LETTER YI
+0407  ; [.1D6B.0020.0008] # CYRILLIC CAPITAL LETTER YI
+0406 0308 ; [.1D6B.0020.0008] # CYRILLIC CAPITAL LETTER YI
+0439  ; [.1D6F.0020.0002] # CYRILLIC SMALL LETTER SHORT I
+0438 0306 ; [.1D6F.0020.0002] # CYRILLIC SMALL LETTER SHORT I
+0419  ; [.1D6F.0020.0008] # CYRILLIC CAPITAL LETTER SHORT I
+0418 0306 ; [.1D6F.0020.0008] # CYRILLIC CAPITAL LETTER SHORT I
+0458  ; [.1D73.0020.0002] # CYRILLIC SMALL LETTER JE
+0408  ; [.1D73.0020.0008] # CYRILLIC CAPITAL LETTER JE
+A649  ; [.1D77.0020.0002] # CYRILLIC SMALL LETTER DJERV
+2DF8  ; [.1D77.0020.0004] # COMBINING CYRILLIC LETTER DJERV
+A648  ; [.1D77.0020.0008] # CYRILLIC CAPITAL LETTER DJERV
+043A  ; [.1D78.0020.0002] # CYRILLIC SMALL LETTER KA
+2DE6  ; [.1D78.0020.0004] # COMBINING CYRILLIC LETTER KA
+041A  ; [.1D78.0020.0008] # CYRILLIC CAPITAL LETTER KA
+049B  ; [.1D7C.0020.0002] # CYRILLIC SMALL LETTER KA WITH DESCENDER
+049A  ; [.1D7C.0020.0008] # CYRILLIC CAPITAL LETTER KA WITH DESCENDER
+04C4  ; [.1D80.0020.0002] # CYRILLIC SMALL LETTER KA WITH HOOK
+04C3  ; [.1D80.0020.0008] # CYRILLIC CAPITAL LETTER KA WITH HOOK
+04A1  ; [.1D84.0020.0002] # CYRILLIC SMALL LETTER BASHKIR KA
+04A0  ; [.1D84.0020.0008] # CYRILLIC CAPITAL LETTER BASHKIR KA
+049F  ; [.1D88.0020.0002] # CYRILLIC SMALL LETTER KA WITH STROKE
+049E  ; [.1D88.0020.0008] # CYRILLIC CAPITAL LETTER KA WITH STROKE
+049D  ; [.1D8C.0020.0002] # CYRILLIC SMALL LETTER KA WITH VERTICAL STROKE
+049C  ; [.1D8C.0020.0008] # CYRILLIC CAPITAL LETTER KA WITH VERTICAL STROKE
+051F  ; [.1D90.0020.0002] # CYRILLIC SMALL LETTER ALEUT KA
+051E  ; [.1D90.0020.0008] # CYRILLIC CAPITAL LETTER ALEUT KA
+051B  ; [.1D91.0020.0002] # CYRILLIC SMALL LETTER QA
+051A  ; [.1D91.0020.0008] # CYRILLIC CAPITAL LETTER QA
+043B  ; [.1D92.0020.0002] # CYRILLIC SMALL LETTER EL
+2DE7  ; [.1D92.0020.0004] # COMBINING CYRILLIC LETTER EL
+041B  ; [.1D92.0020.0008] # CYRILLIC CAPITAL LETTER EL
+1D2B  ; [.1D96.0020.0002] # CYRILLIC LETTER SMALL CAPITAL EL
+04C6  ; [.1D97.0020.0002] # CYRILLIC SMALL LETTER EL WITH TAIL
+04C5  ; [.1D97.0020.0008] # CYRILLIC CAPITAL LETTER EL WITH TAIL
+052F  ; [.1D9B.0020.0002] # CYRILLIC SMALL LETTER EL WITH DESCENDER
+052E  ; [.1D9B.0020.0008] # CYRILLIC CAPITAL LETTER EL WITH DESCENDER
+0513  ; [.1D9C.0020.0002] # CYRILLIC SMALL LETTER EL WITH HOOK
+0512  ; [.1D9C.0020.0008] # CYRILLIC CAPITAL LETTER EL WITH HOOK
+0521  ; [.1D9D.0020.0002] # CYRILLIC SMALL LETTER EL WITH MIDDLE HOOK
+0520  ; [.1D9D.0020.0008] # CYRILLIC CAPITAL LETTER EL WITH MIDDLE HOOK
+0459  ; [.1D9E.0020.0002] # CYRILLIC SMALL LETTER LJE
+0409  ; [.1D9E.0020.0008] # CYRILLIC CAPITAL LETTER LJE
+A665  ; [.1DA2.0020.0002] # CYRILLIC SMALL LETTER SOFT EL
+A664  ; [.1DA2.0020.0008] # CYRILLIC CAPITAL LETTER SOFT EL
+0509  ; [.1DA3.0020.0002] # CYRILLIC SMALL LETTER KOMI LJE
+0508  ; [.1DA3.0020.0008] # CYRILLIC CAPITAL LETTER KOMI LJE
+0515  ; [.1DA4.0020.0002] # CYRILLIC SMALL LETTER LHA
+0514  ; [.1DA4.0020.0008] # CYRILLIC CAPITAL LETTER LHA
+043C  ; [.1DA5.0020.0002] # CYRILLIC SMALL LETTER EM
+2DE8  ; [.1DA5.0020.0004] # COMBINING CYRILLIC LETTER EM
+041C  ; [.1DA5.0020.0008] # CYRILLIC CAPITAL LETTER EM
+04CE  ; [.1DA9.0020.0002] # CYRILLIC SMALL LETTER EM WITH TAIL
+04CD  ; [.1DA9.0020.0008] # CYRILLIC CAPITAL LETTER EM WITH TAIL
+A667  ; [.1DAD.0020.0002] # CYRILLIC SMALL LETTER SOFT EM
+A666  ; [.1DAD.0020.0008] # CYRILLIC CAPITAL LETTER SOFT EM
+043D  ; [.1DAE.0020.0002] # CYRILLIC SMALL LETTER EN
+2DE9  ; [.1DAE.0020.0004] # COMBINING CYRILLIC LETTER EN
+041D  ; [.1DAE.0020.0008] # CYRILLIC CAPITAL LETTER EN
+1D78  ; [.1DAE.0020.0014] # MODIFIER LETTER CYRILLIC EN
+0529  ; [.1DB2.0020.0002] # CYRILLIC SMALL LETTER EN WITH LEFT HOOK
+0528  ; [.1DB2.0020.0008] # CYRILLIC CAPITAL LETTER EN WITH LEFT HOOK
+04CA  ; [.1DB3.0020.0002] # CYRILLIC SMALL LETTER EN WITH TAIL
+04C9  ; [.1DB3.0020.0008] # CYRILLIC CAPITAL LETTER EN WITH TAIL
+04A3  ; [.1DB7.0020.0002] # CYRILLIC SMALL LETTER EN WITH DESCENDER
+04A2  ; [.1DB7.0020.0008] # CYRILLIC CAPITAL LETTER EN WITH DESCENDER
+04C8  ; [.1DBB.0020.0002] # CYRILLIC SMALL LETTER EN WITH HOOK
+04C7  ; [.1DBB.0020.0008] # CYRILLIC CAPITAL LETTER EN WITH HOOK
+0523  ; [.1DBF.0020.0002] # CYRILLIC SMALL LETTER EN WITH MIDDLE HOOK
+0522  ; [.1DBF.0020.0008] # CYRILLIC CAPITAL LETTER EN WITH MIDDLE HOOK
+04A5  ; [.1DC0.0020.0002] # CYRILLIC SMALL LIGATURE EN GHE
+04A4  ; [.1DC0.0020.0008] # CYRILLIC CAPITAL LIGATURE EN GHE
+045A  ; [.1DC4.0020.0002] # CYRILLIC SMALL LETTER NJE
+040A  ; [.1DC4.0020.0008] # CYRILLIC CAPITAL LETTER NJE
+050B  ; [.1DC8.0020.0002] # CYRILLIC SMALL LETTER KOMI NJE
+050A  ; [.1DC8.0020.0008] # CYRILLIC CAPITAL LETTER KOMI NJE
+043E  ; [.1DC9.0020.0002] # CYRILLIC SMALL LETTER O
+2DEA  ; [.1DC9.0020.0004] # COMBINING CYRILLIC LETTER O
+A669  ; [.1DC9.0020.0004] # CYRILLIC SMALL LETTER MONOCULAR O
+A66B  ; [.1DC9.0020.0004] # CYRILLIC SMALL LETTER BINOCULAR O
+A66D  ; [.1DC9.0020.0004] # CYRILLIC SMALL LETTER DOUBLE MONOCULAR O
+A66E  ; [.1DC9.0020.0004] # CYRILLIC LETTER MULTIOCULAR O
+A699  ; [.1DC9.0020.0004] # CYRILLIC SMALL LETTER DOUBLE O
+A69B  ; [.1DC9.0020.0004] # CYRILLIC SMALL LETTER CROSSED O
+041E  ; [.1DC9.0020.0008] # CYRILLIC CAPITAL LETTER O
+A668  ; [.1DC9.0020.000A] # CYRILLIC CAPITAL LETTER MONOCULAR O
+A66A  ; [.1DC9.0020.000A] # CYRILLIC CAPITAL LETTER BINOCULAR O
+A66C  ; [.1DC9.0020.000A] # CYRILLIC CAPITAL LETTER DOUBLE MONOCULAR O
+A698  ; [.1DC9.0020.000A] # CYRILLIC CAPITAL LETTER DOUBLE O
+A69A  ; [.1DC9.0020.000A] # CYRILLIC CAPITAL LETTER CROSSED O
+04E7  ; [.1DCD.0020.0002] # CYRILLIC SMALL LETTER O WITH DIAERESIS
+043E 0308 ; [.1DCD.0020.0002] # CYRILLIC SMALL LETTER O WITH DIAERESIS
+04E6  ; [.1DCD.0020.0008] # CYRILLIC CAPITAL LETTER O WITH DIAERESIS
+041E 0308 ; [.1DCD.0020.0008] # CYRILLIC CAPITAL LETTER O WITH DIAERESIS
+04E9  ; [.1DD1.0020.0002] # CYRILLIC SMALL LETTER BARRED O
+04E8  ; [.1DD1.0020.0008] # CYRILLIC CAPITAL LETTER BARRED O
+04EB  ; [.1DD5.0020.0002] # CYRILLIC SMALL LETTER BARRED O WITH DIAERESIS
+04E9 0308 ; [.1DD5.0020.0002] # CYRILLIC SMALL LETTER BARRED O WITH DIAERESIS
+04EA  ; [.1DD5.0020.0008] # CYRILLIC CAPITAL LETTER BARRED O WITH DIAERESIS
+04E8 0308 ; [.1DD5.0020.0008] # CYRILLIC CAPITAL LETTER BARRED O WITH DIAERESIS
+043F  ; [.1DD9.0020.0002] # CYRILLIC SMALL LETTER PE
+2DEB  ; [.1DD9.0020.0004] # COMBINING CYRILLIC LETTER PE
+041F  ; [.1DD9.0020.0008] # CYRILLIC CAPITAL LETTER PE
+0525  ; [.1DDD.0020.0002] # CYRILLIC SMALL LETTER PE WITH DESCENDER
+0524  ; [.1DDD.0020.0008] # CYRILLIC CAPITAL LETTER PE WITH DESCENDER
+04A7  ; [.1DDE.0020.0002] # CYRILLIC SMALL LETTER PE WITH MIDDLE HOOK
+04A6  ; [.1DDE.0020.0008] # CYRILLIC CAPITAL LETTER PE WITH MIDDLE HOOK
+0481  ; [.1DE2.0020.0002] # CYRILLIC SMALL LETTER KOPPA
+0480  ; [.1DE2.0020.0008] # CYRILLIC CAPITAL LETTER KOPPA
+0440  ; [.1DE6.0020.0002] # CYRILLIC SMALL LETTER ER
+2DEC  ; [.1DE6.0020.0004] # COMBINING CYRILLIC LETTER ER
+0420  ; [.1DE6.0020.0008] # CYRILLIC CAPITAL LETTER ER
+048F  ; [.1DEA.0020.0002] # CYRILLIC SMALL LETTER ER WITH TICK
+048E  ; [.1DEA.0020.0008] # CYRILLIC CAPITAL LETTER ER WITH TICK
+0517  ; [.1DEE.0020.0002] # CYRILLIC SMALL LETTER RHA
+0516  ; [.1DEE.0020.0008] # CYRILLIC CAPITAL LETTER RHA
+0441  ; [.1DEF.0020.0002] # CYRILLIC SMALL LETTER ES
+2DED  ; [.1DEF.0020.0004] # COMBINING CYRILLIC LETTER ES
+0421  ; [.1DEF.0020.0008] # CYRILLIC CAPITAL LETTER ES
+2DF5  ; [.1DEF.0020.0004][.1DF8.0020.0004] # COMBINING CYRILLIC LETTER ES-TE
+050D  ; [.1DF3.0020.0002] # CYRILLIC SMALL LETTER KOMI SJE
+050C  ; [.1DF3.0020.0008] # CYRILLIC CAPITAL LETTER KOMI SJE
+04AB  ; [.1DF4.0020.0002] # CYRILLIC SMALL LETTER ES WITH DESCENDER
+04AA  ; [.1DF4.0020.0008] # CYRILLIC CAPITAL LETTER ES WITH DESCENDER
+0442  ; [.1DF8.0020.0002] # CYRILLIC SMALL LETTER TE
+2DEE  ; [.1DF8.0020.0004] # COMBINING CYRILLIC LETTER TE
+0422  ; [.1DF8.0020.0008] # CYRILLIC CAPITAL LETTER TE
+A68D  ; [.1DFC.0020.0002] # CYRILLIC SMALL LETTER TWE
+A68C  ; [.1DFC.0020.0008] # CYRILLIC CAPITAL LETTER TWE
+050F  ; [.1DFD.0020.0002] # CYRILLIC SMALL LETTER KOMI TJE
+050E  ; [.1DFD.0020.0008] # CYRILLIC CAPITAL LETTER KOMI TJE
+04AD  ; [.1DFE.0020.0002] # CYRILLIC SMALL LETTER TE WITH DESCENDER
+04AC  ; [.1DFE.0020.0008] # CYRILLIC CAPITAL LETTER TE WITH DESCENDER
+A68B  ; [.1E02.0020.0002] # CYRILLIC SMALL LETTER TE WITH MIDDLE HOOK
+A68A  ; [.1E02.0020.0008] # CYRILLIC CAPITAL LETTER TE WITH MIDDLE HOOK
+045B  ; [.1E03.0020.0002] # CYRILLIC SMALL LETTER TSHE
+040B  ; [.1E03.0020.0008] # CYRILLIC CAPITAL LETTER TSHE
+045C  ; [.1E07.0020.0002] # CYRILLIC SMALL LETTER KJE
+043A 0301 ; [.1E07.0020.0002] # CYRILLIC SMALL LETTER KJE
+043A 0341 ; [.1E07.0020.0002] # CYRILLIC SMALL LETTER KJE
+040C  ; [.1E07.0020.0008] # CYRILLIC CAPITAL LETTER KJE
+041A 0301 ; [.1E07.0020.0008] # CYRILLIC CAPITAL LETTER KJE
+041A 0341 ; [.1E07.0020.0008] # CYRILLIC CAPITAL LETTER KJE
+0443  ; [.1E0B.0020.0002] # CYRILLIC SMALL LETTER U
+A677  ; [.1E0B.0020.0004] # COMBINING CYRILLIC LETTER U
+0423  ; [.1E0B.0020.0008] # CYRILLIC CAPITAL LETTER U
+04EF  ; [.1E0B.0020.0002][.0000.0032.0002] # CYRILLIC SMALL LETTER U WITH MACRON
+04EE  ; [.1E0B.0020.0008][.0000.0032.0002] # CYRILLIC CAPITAL LETTER U WITH MACRON
+045E  ; [.1E0F.0020.0002] # CYRILLIC SMALL LETTER SHORT U
+0443 0306 ; [.1E0F.0020.0002] # CYRILLIC SMALL LETTER SHORT U
+040E  ; [.1E0F.0020.0008] # CYRILLIC CAPITAL LETTER SHORT U
+0423 0306 ; [.1E0F.0020.0008] # CYRILLIC CAPITAL LETTER SHORT U
+04F1  ; [.1E13.0020.0002] # CYRILLIC SMALL LETTER U WITH DIAERESIS
+0443 0308 ; [.1E13.0020.0002] # CYRILLIC SMALL LETTER U WITH DIAERESIS
+04F0  ; [.1E13.0020.0008] # CYRILLIC CAPITAL LETTER U WITH DIAERESIS
+0423 0308 ; [.1E13.0020.0008] # CYRILLIC CAPITAL LETTER U WITH DIAERESIS
+04F3  ; [.1E17.0020.0002] # CYRILLIC SMALL LETTER U WITH DOUBLE ACUTE
+0443 030B ; [.1E17.0020.0002] # CYRILLIC SMALL LETTER U WITH DOUBLE ACUTE
+04F2  ; [.1E17.0020.0008] # CYRILLIC CAPITAL LETTER U WITH DOUBLE ACUTE
+0423 030B ; [.1E17.0020.0008] # CYRILLIC CAPITAL LETTER U WITH DOUBLE ACUTE
+04AF  ; [.1E1B.0020.0002] # CYRILLIC SMALL LETTER STRAIGHT U
+04AE  ; [.1E1B.0020.0008] # CYRILLIC CAPITAL LETTER STRAIGHT U
+04B1  ; [.1E1F.0020.0002] # CYRILLIC SMALL LETTER STRAIGHT U WITH STROKE
+04B0  ; [.1E1F.0020.0008] # CYRILLIC CAPITAL LETTER STRAIGHT U WITH STROKE
+A64B  ; [.1E23.0020.0002] # CYRILLIC SMALL LETTER MONOGRAPH UK
+2DF9  ; [.1E23.0020.0004] # COMBINING CYRILLIC LETTER MONOGRAPH UK
+A64A  ; [.1E23.0020.0008] # CYRILLIC CAPITAL LETTER MONOGRAPH UK
+0479  ; [.1E24.0020.0002] # CYRILLIC SMALL LETTER UK
+0478  ; [.1E24.0020.0008] # CYRILLIC CAPITAL LETTER UK
+0444  ; [.1E28.0020.0002] # CYRILLIC SMALL LETTER EF
+0424  ; [.1E28.0020.0008] # CYRILLIC CAPITAL LETTER EF
+0445  ; [.1E2C.0020.0002] # CYRILLIC SMALL LETTER HA
+2DEF  ; [.1E2C.0020.0004] # COMBINING CYRILLIC LETTER HA
+0425  ; [.1E2C.0020.0008] # CYRILLIC CAPITAL LETTER HA
+04FD  ; [.1E30.0020.0002] # CYRILLIC SMALL LETTER HA WITH HOOK
+04FC  ; [.1E30.0020.0008] # CYRILLIC CAPITAL LETTER HA WITH HOOK
+04FF  ; [.1E34.0020.0002] # CYRILLIC SMALL LETTER HA WITH STROKE
+04FE  ; [.1E34.0020.0008] # CYRILLIC CAPITAL LETTER HA WITH STROKE
+04B3  ; [.1E38.0020.0002] # CYRILLIC SMALL LETTER HA WITH DESCENDER
+04B2  ; [.1E38.0020.0008] # CYRILLIC CAPITAL LETTER HA WITH DESCENDER
+04BB  ; [.1E3C.0020.0002] # CYRILLIC SMALL LETTER SHHA
+04BA  ; [.1E3C.0020.0008] # CYRILLIC CAPITAL LETTER SHHA
+0527  ; [.1E40.0020.0002] # CYRILLIC SMALL LETTER SHHA WITH DESCENDER
+0526  ; [.1E40.0020.0008] # CYRILLIC CAPITAL LETTER SHHA WITH DESCENDER
+A695  ; [.1E41.0020.0002] # CYRILLIC SMALL LETTER HWE
+A694  ; [.1E41.0020.0008] # CYRILLIC CAPITAL LETTER HWE
+0461  ; [.1E42.0020.0002] # CYRILLIC SMALL LETTER OMEGA
+A67B  ; [.1E42.0020.0004] # COMBINING CYRILLIC LETTER OMEGA
+0460  ; [.1E42.0020.0008] # CYRILLIC CAPITAL LETTER OMEGA
+047F  ; [.1E46.0020.0002] # CYRILLIC SMALL LETTER OT
+047E  ; [.1E46.0020.0008] # CYRILLIC CAPITAL LETTER OT
+A64D  ; [.1E4A.0020.0002] # CYRILLIC SMALL LETTER BROAD OMEGA
+A64C  ; [.1E4A.0020.0008] # CYRILLIC CAPITAL LETTER BROAD OMEGA
+047D  ; [.1E4B.0020.0002] # CYRILLIC SMALL LETTER OMEGA WITH TITLO
+047C  ; [.1E4B.0020.0008] # CYRILLIC CAPITAL LETTER OMEGA WITH TITLO
+047B  ; [.1E4F.0020.0002] # CYRILLIC SMALL LETTER ROUND OMEGA
+047A  ; [.1E4F.0020.0008] # CYRILLIC CAPITAL LETTER ROUND OMEGA
+0446  ; [.1E53.0020.0002] # CYRILLIC SMALL LETTER TSE
+2DF0  ; [.1E53.0020.0004] # COMBINING CYRILLIC LETTER TSE
+0426  ; [.1E53.0020.0008] # CYRILLIC CAPITAL LETTER TSE
+A661  ; [.1E57.0020.0002] # CYRILLIC SMALL LETTER REVERSED TSE
+A660  ; [.1E57.0020.0008] # CYRILLIC CAPITAL LETTER REVERSED TSE
+A68F  ; [.1E58.0020.0002] # CYRILLIC SMALL LETTER TSWE
+A68E  ; [.1E58.0020.0008] # CYRILLIC CAPITAL LETTER TSWE
+04B5  ; [.1E59.0020.0002] # CYRILLIC SMALL LIGATURE TE TSE
+04B4  ; [.1E59.0020.0008] # CYRILLIC CAPITAL LIGATURE TE TSE
+A691  ; [.1E5D.0020.0002] # CYRILLIC SMALL LETTER TSSE
+A690  ; [.1E5D.0020.0008] # CYRILLIC CAPITAL LETTER TSSE
+0447  ; [.1E5E.0020.0002] # CYRILLIC SMALL LETTER CHE
+2DF1  ; [.1E5E.0020.0004] # COMBINING CYRILLIC LETTER CHE
+0427  ; [.1E5E.0020.0008] # CYRILLIC CAPITAL LETTER CHE
+052D  ; [.1E62.0020.0002] # CYRILLIC SMALL LETTER DCHE
+052C  ; [.1E62.0020.0008] # CYRILLIC CAPITAL LETTER DCHE
+A693  ; [.1E63.0020.0002] # CYRILLIC SMALL LETTER TCHE
+A692  ; [.1E63.0020.0008] # CYRILLIC CAPITAL LETTER TCHE
+04F5  ; [.1E64.0020.0002] # CYRILLIC SMALL LETTER CHE WITH DIAERESIS
+0447 0308 ; [.1E64.0020.0002] # CYRILLIC SMALL LETTER CHE WITH DIAERESIS
+04F4  ; [.1E64.0020.0008] # CYRILLIC CAPITAL LETTER CHE WITH DIAERESIS
+0427 0308 ; [.1E64.0020.0008] # CYRILLIC CAPITAL LETTER CHE WITH DIAERESIS
+04B7  ; [.1E68.0020.0002] # CYRILLIC SMALL LETTER CHE WITH DESCENDER
+04B6  ; [.1E68.0020.0008] # CYRILLIC CAPITAL LETTER CHE WITH DESCENDER
+04CC  ; [.1E6C.0020.0002] # CYRILLIC SMALL LETTER KHAKASSIAN CHE
+04CB  ; [.1E6C.0020.0008] # CYRILLIC CAPITAL LETTER KHAKASSIAN CHE
+04B9  ; [.1E70.0020.0002] # CYRILLIC SMALL LETTER CHE WITH VERTICAL STROKE
+04B8  ; [.1E70.0020.0008] # CYRILLIC CAPITAL LETTER CHE WITH VERTICAL STROKE
+A687  ; [.1E74.0020.0002] # CYRILLIC SMALL LETTER CCHE
+A686  ; [.1E74.0020.0008] # CYRILLIC CAPITAL LETTER CCHE
+04BD  ; [.1E75.0020.0002] # CYRILLIC SMALL LETTER ABKHASIAN CHE
+04BC  ; [.1E75.0020.0008] # CYRILLIC CAPITAL LETTER ABKHASIAN CHE
+04BF  ; [.1E79.0020.0002] # CYRILLIC SMALL LETTER ABKHASIAN CHE WITH DESCENDER
+04BE  ; [.1E79.0020.0008] # CYRILLIC CAPITAL LETTER ABKHASIAN CHE WITH DESCENDER
+045F  ; [.1E7D.0020.0002] # CYRILLIC SMALL LETTER DZHE
+040F  ; [.1E7D.0020.0008] # CYRILLIC CAPITAL LETTER DZHE
+0448  ; [.1E81.0020.0002] # CYRILLIC SMALL LETTER SHA
+2DF2  ; [.1E81.0020.0004] # COMBINING CYRILLIC LETTER SHA
+0428  ; [.1E81.0020.0008] # CYRILLIC CAPITAL LETTER SHA
+A697  ; [.1E85.0020.0002] # CYRILLIC SMALL LETTER SHWE
+A696  ; [.1E85.0020.0008] # CYRILLIC CAPITAL LETTER SHWE
+0449  ; [.1E86.0020.0002] # CYRILLIC SMALL LETTER SHCHA
+2DF3  ; [.1E86.0020.0004] # COMBINING CYRILLIC LETTER SHCHA
+0429  ; [.1E86.0020.0008] # CYRILLIC CAPITAL LETTER SHCHA
+A64F  ; [.1E8A.0020.0002] # CYRILLIC SMALL LETTER NEUTRAL YER
+A64E  ; [.1E8A.0020.0008] # CYRILLIC CAPITAL LETTER NEUTRAL YER
+2E2F  ; [.1E8B.0020.0002] # VERTICAL TILDE
+A67F  ; [.1E8C.0020.0002] # CYRILLIC PAYEROK
+044A  ; [.1E8D.0020.0002] # CYRILLIC SMALL LETTER HARD SIGN
+A678  ; [.1E8D.0020.0004] # COMBINING CYRILLIC LETTER HARD SIGN
+042A  ; [.1E8D.0020.0008] # CYRILLIC CAPITAL LETTER HARD SIGN
+A69C  ; [.1E8D.0020.0014] # MODIFIER LETTER CYRILLIC HARD SIGN
+A651  ; [.1E91.0020.0002] # CYRILLIC SMALL LETTER YERU WITH BACK YER
+A650  ; [.1E91.0020.0008] # CYRILLIC CAPITAL LETTER YERU WITH BACK YER
+044B  ; [.1E92.0020.0002] # CYRILLIC SMALL LETTER YERU
+A679  ; [.1E92.0020.0004] # COMBINING CYRILLIC LETTER YERU
+042B  ; [.1E92.0020.0008] # CYRILLIC CAPITAL LETTER YERU
+04F9  ; [.1E96.0020.0002] # CYRILLIC SMALL LETTER YERU WITH DIAERESIS
+044B 0308 ; [.1E96.0020.0002] # CYRILLIC SMALL LETTER YERU WITH DIAERESIS
+04F8  ; [.1E96.0020.0008] # CYRILLIC CAPITAL LETTER YERU WITH DIAERESIS
+042B 0308 ; [.1E96.0020.0008] # CYRILLIC CAPITAL LETTER YERU WITH DIAERESIS
+044C  ; [.1E9A.0020.0002] # CYRILLIC SMALL LETTER SOFT SIGN
+A67A  ; [.1E9A.0020.0004] # COMBINING CYRILLIC LETTER SOFT SIGN
+042C  ; [.1E9A.0020.0008] # CYRILLIC CAPITAL LETTER SOFT SIGN
+A69D  ; [.1E9A.0020.0014] # MODIFIER LETTER CYRILLIC SOFT SIGN
+048D  ; [.1E9E.0020.0002] # CYRILLIC SMALL LETTER SEMISOFT SIGN
+048C  ; [.1E9E.0020.0008] # CYRILLIC CAPITAL LETTER SEMISOFT SIGN
+0463  ; [.1EA2.0020.0002] # CYRILLIC SMALL LETTER YAT
+2DFA  ; [.1EA2.0020.0004] # COMBINING CYRILLIC LETTER YAT
+0462  ; [.1EA2.0020.0008] # CYRILLIC CAPITAL LETTER YAT
+A653  ; [.1EA6.0020.0002] # CYRILLIC SMALL LETTER IOTIFIED YAT
+A652  ; [.1EA6.0020.0008] # CYRILLIC CAPITAL LETTER IOTIFIED YAT
+044D  ; [.1EA7.0020.0002] # CYRILLIC SMALL LETTER E
+042D  ; [.1EA7.0020.0008] # CYRILLIC CAPITAL LETTER E
+04ED  ; [.1EAB.0020.0002] # CYRILLIC SMALL LETTER E WITH DIAERESIS
+044D 0308 ; [.1EAB.0020.0002] # CYRILLIC SMALL LETTER E WITH DIAERESIS
+04EC  ; [.1EAB.0020.0008] # CYRILLIC CAPITAL LETTER E WITH DIAERESIS
+042D 0308 ; [.1EAB.0020.0008] # CYRILLIC CAPITAL LETTER E WITH DIAERESIS
+044E  ; [.1EAF.0020.0002] # CYRILLIC SMALL LETTER YU
+2DFB  ; [.1EAF.0020.0004] # COMBINING CYRILLIC LETTER YU
+042E  ; [.1EAF.0020.0008] # CYRILLIC CAPITAL LETTER YU
+A655  ; [.1EB3.0020.0002] # CYRILLIC SMALL LETTER REVERSED YU
+A654  ; [.1EB3.0020.0008] # CYRILLIC CAPITAL LETTER REVERSED YU
+A657  ; [.1EB4.0020.0002] # CYRILLIC SMALL LETTER IOTIFIED A
+2DFC  ; [.1EB4.0020.0004] # COMBINING CYRILLIC LETTER IOTIFIED A
+A656  ; [.1EB4.0020.0008] # CYRILLIC CAPITAL LETTER IOTIFIED A
+044F  ; [.1EB5.0020.0002] # CYRILLIC SMALL LETTER YA
+042F  ; [.1EB5.0020.0008] # CYRILLIC CAPITAL LETTER YA
+0519  ; [.1EB9.0020.0002] # CYRILLIC SMALL LETTER YAE
+0518  ; [.1EB9.0020.0008] # CYRILLIC CAPITAL LETTER YAE
+0465  ; [.1EBA.0020.0002] # CYRILLIC SMALL LETTER IOTIFIED E
+A69F  ; [.1EBA.0020.0004] # COMBINING CYRILLIC LETTER IOTIFIED E
+0464  ; [.1EBA.0020.0008] # CYRILLIC CAPITAL LETTER IOTIFIED E
+0467  ; [.1EBE.0020.0002] # CYRILLIC SMALL LETTER LITTLE YUS
+2DFD  ; [.1EBE.0020.0004] # COMBINING CYRILLIC LETTER LITTLE YUS
+0466  ; [.1EBE.0020.0008] # CYRILLIC CAPITAL LETTER LITTLE YUS
+A659  ; [.1EC2.0020.0002] # CYRILLIC SMALL LETTER CLOSED LITTLE YUS
+A658  ; [.1EC2.0020.0008] # CYRILLIC CAPITAL LETTER CLOSED LITTLE YUS
+046B  ; [.1EC3.0020.0002] # CYRILLIC SMALL LETTER BIG YUS
+2DFE  ; [.1EC3.0020.0004] # COMBINING CYRILLIC LETTER BIG YUS
+046A  ; [.1EC3.0020.0008] # CYRILLIC CAPITAL LETTER BIG YUS
+A65B  ; [.1EC7.0020.0002] # CYRILLIC SMALL LETTER BLENDED YUS
+A65A  ; [.1EC7.0020.0008] # CYRILLIC CAPITAL LETTER BLENDED YUS
+0469  ; [.1EC8.0020.0002] # CYRILLIC SMALL LETTER IOTIFIED LITTLE YUS
+0468  ; [.1EC8.0020.0008] # CYRILLIC CAPITAL LETTER IOTIFIED LITTLE YUS
+A65D  ; [.1ECC.0020.0002] # CYRILLIC SMALL LETTER IOTIFIED CLOSED LITTLE YUS
+A65C  ; [.1ECC.0020.0008] # CYRILLIC CAPITAL LETTER IOTIFIED CLOSED LITTLE YUS
+046D  ; [.1ECD.0020.0002] # CYRILLIC SMALL LETTER IOTIFIED BIG YUS
+2DFF  ; [.1ECD.0020.0004] # COMBINING CYRILLIC LETTER IOTIFIED BIG YUS
+046C  ; [.1ECD.0020.0008] # CYRILLIC CAPITAL LETTER IOTIFIED BIG YUS
+046F  ; [.1ED1.0020.0002] # CYRILLIC SMALL LETTER KSI
+046E  ; [.1ED1.0020.0008] # CYRILLIC CAPITAL LETTER KSI
+0471  ; [.1ED5.0020.0002] # CYRILLIC SMALL LETTER PSI
+0470  ; [.1ED5.0020.0008] # CYRILLIC CAPITAL LETTER PSI
+0473  ; [.1ED9.0020.0002] # CYRILLIC SMALL LETTER FITA
+2DF4  ; [.1ED9.0020.0004] # COMBINING CYRILLIC LETTER FITA
+0472  ; [.1ED9.0020.0008] # CYRILLIC CAPITAL LETTER FITA
+0475  ; [.1EDD.0020.0002] # CYRILLIC SMALL LETTER IZHITSA
+0474  ; [.1EDD.0020.0008] # CYRILLIC CAPITAL LETTER IZHITSA
+0477  ; [.1EE1.0020.0002] # CYRILLIC SMALL LETTER IZHITSA WITH DOUBLE GRAVE ACCENT
+0475 030F ; [.1EE1.0020.0002] # CYRILLIC SMALL LETTER IZHITSA WITH DOUBLE GRAVE ACCENT
+0476  ; [.1EE1.0020.0008] # CYRILLIC CAPITAL LETTER IZHITSA WITH DOUBLE GRAVE ACCENT
+0474 030F ; [.1EE1.0020.0008] # CYRILLIC CAPITAL LETTER IZHITSA WITH DOUBLE GRAVE ACCENT
+A65F  ; [.1EE5.0020.0002] # CYRILLIC SMALL LETTER YN
+A65E  ; [.1EE5.0020.0008] # CYRILLIC CAPITAL LETTER YN
+04A9  ; [.1EE6.0020.0002] # CYRILLIC SMALL LETTER ABKHASIAN HA
+04A8  ; [.1EE6.0020.0008] # CYRILLIC CAPITAL LETTER ABKHASIAN HA
+051D  ; [.1EEA.0020.0002] # CYRILLIC SMALL LETTER WE
+051C  ; [.1EEA.0020.0008] # CYRILLIC CAPITAL LETTER WE
+04CF  ; [.1EEB.0020.0002] # CYRILLIC SMALL LETTER PALOCHKA
+04C0  ; [.1EEB.0020.0008] # CYRILLIC LETTER PALOCHKA
+2C30  ; [.1EEF.0020.0002] # GLAGOLITIC SMALL LETTER AZU
+2C00  ; [.1EEF.0020.0008] # GLAGOLITIC CAPITAL LETTER AZU
+2C31  ; [.1EF0.0020.0002] # GLAGOLITIC SMALL LETTER BUKY
+2C01  ; [.1EF0.0020.0008] # GLAGOLITIC CAPITAL LETTER BUKY
+2C32  ; [.1EF1.0020.0002] # GLAGOLITIC SMALL LETTER VEDE
+2C02  ; [.1EF1.0020.0008] # GLAGOLITIC CAPITAL LETTER VEDE
+2C33  ; [.1EF2.0020.0002] # GLAGOLITIC SMALL LETTER GLAGOLI
+2C03  ; [.1EF2.0020.0008] # GLAGOLITIC CAPITAL LETTER GLAGOLI
+2C34  ; [.1EF3.0020.0002] # GLAGOLITIC SMALL LETTER DOBRO
+2C04  ; [.1EF3.0020.0008] # GLAGOLITIC CAPITAL LETTER DOBRO
+2C35  ; [.1EF4.0020.0002] # GLAGOLITIC SMALL LETTER YESTU
+2C05  ; [.1EF4.0020.0008] # GLAGOLITIC CAPITAL LETTER YESTU
+2C36  ; [.1EF5.0020.0002] # GLAGOLITIC SMALL LETTER ZHIVETE
+2C06  ; [.1EF5.0020.0008] # GLAGOLITIC CAPITAL LETTER ZHIVETE
+2C37  ; [.1EF6.0020.0002] # GLAGOLITIC SMALL LETTER DZELO
+2C07  ; [.1EF6.0020.0008] # GLAGOLITIC CAPITAL LETTER DZELO
+2C38  ; [.1EF7.0020.0002] # GLAGOLITIC SMALL LETTER ZEMLJA
+2C08  ; [.1EF7.0020.0008] # GLAGOLITIC CAPITAL LETTER ZEMLJA
+2C39  ; [.1EF8.0020.0002] # GLAGOLITIC SMALL LETTER IZHE
+2C09  ; [.1EF8.0020.0008] # GLAGOLITIC CAPITAL LETTER IZHE
+2C3A  ; [.1EF9.0020.0002] # GLAGOLITIC SMALL LETTER INITIAL IZHE
+2C0A  ; [.1EF9.0020.0008] # GLAGOLITIC CAPITAL LETTER INITIAL IZHE
+2C3B  ; [.1EFA.0020.0002] # GLAGOLITIC SMALL LETTER I
+2C0B  ; [.1EFA.0020.0008] # GLAGOLITIC CAPITAL LETTER I
+2C3C  ; [.1EFB.0020.0002] # GLAGOLITIC SMALL LETTER DJERVI
+2C0C  ; [.1EFB.0020.0008] # GLAGOLITIC CAPITAL LETTER DJERVI
+2C3D  ; [.1EFC.0020.0002] # GLAGOLITIC SMALL LETTER KAKO
+2C0D  ; [.1EFC.0020.0008] # GLAGOLITIC CAPITAL LETTER KAKO
+2C3E  ; [.1EFD.0020.0002] # GLAGOLITIC SMALL LETTER LJUDIJE
+2C0E  ; [.1EFD.0020.0008] # GLAGOLITIC CAPITAL LETTER LJUDIJE
+2C3F  ; [.1EFE.0020.0002] # GLAGOLITIC SMALL LETTER MYSLITE
+2C0F  ; [.1EFE.0020.0008] # GLAGOLITIC CAPITAL LETTER MYSLITE
+2C40  ; [.1EFF.0020.0002] # GLAGOLITIC SMALL LETTER NASHI
+2C10  ; [.1EFF.0020.0008] # GLAGOLITIC CAPITAL LETTER NASHI
+2C41  ; [.1F00.0020.0002] # GLAGOLITIC SMALL LETTER ONU
+2C11  ; [.1F00.0020.0008] # GLAGOLITIC CAPITAL LETTER ONU
+2C42  ; [.1F01.0020.0002] # GLAGOLITIC SMALL LETTER POKOJI
+2C12  ; [.1F01.0020.0008] # GLAGOLITIC CAPITAL LETTER POKOJI
+2C43  ; [.1F02.0020.0002] # GLAGOLITIC SMALL LETTER RITSI
+2C13  ; [.1F02.0020.0008] # GLAGOLITIC CAPITAL LETTER RITSI
+2C44  ; [.1F03.0020.0002] # GLAGOLITIC SMALL LETTER SLOVO
+2C14  ; [.1F03.0020.0008] # GLAGOLITIC CAPITAL LETTER SLOVO
+2C45  ; [.1F04.0020.0002] # GLAGOLITIC SMALL LETTER TVRIDO
+2C15  ; [.1F04.0020.0008] # GLAGOLITIC CAPITAL LETTER TVRIDO
+2C46  ; [.1F05.0020.0002] # GLAGOLITIC SMALL LETTER UKU
+2C16  ; [.1F05.0020.0008] # GLAGOLITIC CAPITAL LETTER UKU
+2C47  ; [.1F06.0020.0002] # GLAGOLITIC SMALL LETTER FRITU
+2C17  ; [.1F06.0020.0008] # GLAGOLITIC CAPITAL LETTER FRITU
+2C48  ; [.1F07.0020.0002] # GLAGOLITIC SMALL LETTER HERU
+2C18  ; [.1F07.0020.0008] # GLAGOLITIC CAPITAL LETTER HERU
+2C49  ; [.1F08.0020.0002] # GLAGOLITIC SMALL LETTER OTU
+2C19  ; [.1F08.0020.0008] # GLAGOLITIC CAPITAL LETTER OTU
+2C4A  ; [.1F09.0020.0002] # GLAGOLITIC SMALL LETTER PE
+2C1A  ; [.1F09.0020.0008] # GLAGOLITIC CAPITAL LETTER PE
+2C4B  ; [.1F0A.0020.0002] # GLAGOLITIC SMALL LETTER SHTA
+2C1B  ; [.1F0A.0020.0008] # GLAGOLITIC CAPITAL LETTER SHTA
+2C4C  ; [.1F0B.0020.0002] # GLAGOLITIC SMALL LETTER TSI
+2C1C  ; [.1F0B.0020.0008] # GLAGOLITIC CAPITAL LETTER TSI
+2C4D  ; [.1F0C.0020.0002] # GLAGOLITIC SMALL LETTER CHRIVI
+2C1D  ; [.1F0C.0020.0008] # GLAGOLITIC CAPITAL LETTER CHRIVI
+2C4E  ; [.1F0D.0020.0002] # GLAGOLITIC SMALL LETTER SHA
+2C1E  ; [.1F0D.0020.0008] # GLAGOLITIC CAPITAL LETTER SHA
+2C4F  ; [.1F0E.0020.0002] # GLAGOLITIC SMALL LETTER YERU
+2C1F  ; [.1F0E.0020.0008] # GLAGOLITIC CAPITAL LETTER YERU
+2C50  ; [.1F0F.0020.0002] # GLAGOLITIC SMALL LETTER YERI
+2C20  ; [.1F0F.0020.0008] # GLAGOLITIC CAPITAL LETTER YERI
+2C51  ; [.1F10.0020.0002] # GLAGOLITIC SMALL LETTER YATI
+2C21  ; [.1F10.0020.0008] # GLAGOLITIC CAPITAL LETTER YATI
+2C52  ; [.1F11.0020.0002] # GLAGOLITIC SMALL LETTER SPIDERY HA
+2C22  ; [.1F11.0020.0008] # GLAGOLITIC CAPITAL LETTER SPIDERY HA
+2C53  ; [.1F12.0020.0002] # GLAGOLITIC SMALL LETTER YU
+2C23  ; [.1F12.0020.0008] # GLAGOLITIC CAPITAL LETTER YU
+2C54  ; [.1F13.0020.0002] # GLAGOLITIC SMALL LETTER SMALL YUS
+2C24  ; [.1F13.0020.0008] # GLAGOLITIC CAPITAL LETTER SMALL YUS
+2C55  ; [.1F14.0020.0002] # GLAGOLITIC SMALL LETTER SMALL YUS WITH TAIL
+2C25  ; [.1F14.0020.0008] # GLAGOLITIC CAPITAL LETTER SMALL YUS WITH TAIL
+2C56  ; [.1F15.0020.0002] # GLAGOLITIC SMALL LETTER YO
+2C26  ; [.1F15.0020.0008] # GLAGOLITIC CAPITAL LETTER YO
+2C57  ; [.1F16.0020.0002] # GLAGOLITIC SMALL LETTER IOTATED SMALL YUS
+2C27  ; [.1F16.0020.0008] # GLAGOLITIC CAPITAL LETTER IOTATED SMALL YUS
+2C58  ; [.1F17.0020.0002] # GLAGOLITIC SMALL LETTER BIG YUS
+2C28  ; [.1F17.0020.0008] # GLAGOLITIC CAPITAL LETTER BIG YUS
+2C59  ; [.1F18.0020.0002] # GLAGOLITIC SMALL LETTER IOTATED BIG YUS
+2C29  ; [.1F18.0020.0008] # GLAGOLITIC CAPITAL LETTER IOTATED BIG YUS
+2C5A  ; [.1F19.0020.0002] # GLAGOLITIC SMALL LETTER FITA
+2C2A  ; [.1F19.0020.0008] # GLAGOLITIC CAPITAL LETTER FITA
+2C5B  ; [.1F1A.0020.0002] # GLAGOLITIC SMALL LETTER IZHITSA
+2C2B  ; [.1F1A.0020.0008] # GLAGOLITIC CAPITAL LETTER IZHITSA
+2C5C  ; [.1F1B.0020.0002] # GLAGOLITIC SMALL LETTER SHTAPIC
+2C2C  ; [.1F1B.0020.0008] # GLAGOLITIC CAPITAL LETTER SHTAPIC
+2C5D  ; [.1F1C.0020.0002] # GLAGOLITIC SMALL LETTER TROKUTASTI A
+2C2D  ; [.1F1C.0020.0008] # GLAGOLITIC CAPITAL LETTER TROKUTASTI A
+2C5E  ; [.1F1D.0020.0002] # GLAGOLITIC SMALL LETTER LATINATE MYSLITE
+2C2E  ; [.1F1D.0020.0008] # GLAGOLITIC CAPITAL LETTER LATINATE MYSLITE
+10350 ; [.1F1E.0020.0002] # OLD PERMIC LETTER AN
+10376 ; [.1F1E.0020.0004] # COMBINING OLD PERMIC LETTER AN
+10351 ; [.1F1F.0020.0002] # OLD PERMIC LETTER BUR
+10352 ; [.1F20.0020.0002] # OLD PERMIC LETTER GAI
+10353 ; [.1F21.0020.0002] # OLD PERMIC LETTER DOI
+10377 ; [.1F21.0020.0004] # COMBINING OLD PERMIC LETTER DOI
+10354 ; [.1F22.0020.0002] # OLD PERMIC LETTER E
+10355 ; [.1F23.0020.0002] # OLD PERMIC LETTER ZHOI
+10356 ; [.1F24.0020.0002] # OLD PERMIC LETTER DZHOI
+10357 ; [.1F25.0020.0002] # OLD PERMIC LETTER ZATA
+10378 ; [.1F25.0020.0004] # COMBINING OLD PERMIC LETTER ZATA
+10358 ; [.1F26.0020.0002] # OLD PERMIC LETTER DZITA
+10359 ; [.1F27.0020.0002] # OLD PERMIC LETTER I
+1035A ; [.1F28.0020.0002] # OLD PERMIC LETTER KOKE
+1035B ; [.1F29.0020.0002] # OLD PERMIC LETTER LEI
+1035C ; [.1F2A.0020.0002] # OLD PERMIC LETTER MENOE
+1035D ; [.1F2B.0020.0002] # OLD PERMIC LETTER NENOE
+10379 ; [.1F2B.0020.0004] # COMBINING OLD PERMIC LETTER NENOE
+1035E ; [.1F2C.0020.0002] # OLD PERMIC LETTER VOOI
+1035F ; [.1F2D.0020.0002] # OLD PERMIC LETTER PEEI
+10360 ; [.1F2E.0020.0002] # OLD PERMIC LETTER REI
+10361 ; [.1F2F.0020.0002] # OLD PERMIC LETTER SII
+1037A ; [.1F2F.0020.0004] # COMBINING OLD PERMIC LETTER SII
+10362 ; [.1F30.0020.0002] # OLD PERMIC LETTER TAI
+10363 ; [.1F31.0020.0002] # OLD PERMIC LETTER U
+10364 ; [.1F32.0020.0002] # OLD PERMIC LETTER CHERY
+10365 ; [.1F33.0020.0002] # OLD PERMIC LETTER SHOOI
+10366 ; [.1F34.0020.0002] # OLD PERMIC LETTER SHCHOOI
+10367 ; [.1F35.0020.0002] # OLD PERMIC LETTER YRY
+10368 ; [.1F36.0020.0002] # OLD PERMIC LETTER YERU
+10369 ; [.1F37.0020.0002] # OLD PERMIC LETTER O
+1036A ; [.1F38.0020.0002] # OLD PERMIC LETTER OO
+1036B ; [.1F39.0020.0002] # OLD PERMIC LETTER EF
+1036C ; [.1F3A.0020.0002] # OLD PERMIC LETTER HA
+1036D ; [.1F3B.0020.0002] # OLD PERMIC LETTER TSIU
+1036E ; [.1F3C.0020.0002] # OLD PERMIC LETTER VER
+1036F ; [.1F3D.0020.0002] # OLD PERMIC LETTER YER
+10370 ; [.1F3E.0020.0002] # OLD PERMIC LETTER YERI
+10371 ; [.1F3F.0020.0002] # OLD PERMIC LETTER YAT
+10372 ; [.1F40.0020.0002] # OLD PERMIC LETTER IE
+10373 ; [.1F41.0020.0002] # OLD PERMIC LETTER YU
+10374 ; [.1F42.0020.0002] # OLD PERMIC LETTER YA
+10375 ; [.1F43.0020.0002] # OLD PERMIC LETTER IA
+10D0  ; [.1F44.0020.0002] # GEORGIAN LETTER AN
+2D00  ; [.1F45.0020.0002] # GEORGIAN SMALL LETTER AN
+10A0  ; [.1F45.0020.0008] # GEORGIAN CAPITAL LETTER AN
+10D1  ; [.1F46.0020.0002] # GEORGIAN LETTER BAN
+2D01  ; [.1F47.0020.0002] # GEORGIAN SMALL LETTER BAN
+10A1  ; [.1F47.0020.0008] # GEORGIAN CAPITAL LETTER BAN
+10D2  ; [.1F48.0020.0002] # GEORGIAN LETTER GAN
+2D02  ; [.1F49.0020.0002] # GEORGIAN SMALL LETTER GAN
+10A2  ; [.1F49.0020.0008] # GEORGIAN CAPITAL LETTER GAN
+10D3  ; [.1F4A.0020.0002] # GEORGIAN LETTER DON
+2D03  ; [.1F4B.0020.0002] # GEORGIAN SMALL LETTER DON
+10A3  ; [.1F4B.0020.0008] # GEORGIAN CAPITAL LETTER DON
+10D4  ; [.1F4C.0020.0002] # GEORGIAN LETTER EN
+2D04  ; [.1F4D.0020.0002] # GEORGIAN SMALL LETTER EN
+10A4  ; [.1F4D.0020.0008] # GEORGIAN CAPITAL LETTER EN
+10D5  ; [.1F4E.0020.0002] # GEORGIAN LETTER VIN
+2D05  ; [.1F4F.0020.0002] # GEORGIAN SMALL LETTER VIN
+10A5  ; [.1F4F.0020.0008] # GEORGIAN CAPITAL LETTER VIN
+10D6  ; [.1F50.0020.0002] # GEORGIAN LETTER ZEN
+2D06  ; [.1F51.0020.0002] # GEORGIAN SMALL LETTER ZEN
+10A6  ; [.1F51.0020.0008] # GEORGIAN CAPITAL LETTER ZEN
+10F1  ; [.1F52.0020.0002] # GEORGIAN LETTER HE
+2D21  ; [.1F53.0020.0002] # GEORGIAN SMALL LETTER HE
+10C1  ; [.1F53.0020.0008] # GEORGIAN CAPITAL LETTER HE
+10D7  ; [.1F54.0020.0002] # GEORGIAN LETTER TAN
+2D07  ; [.1F55.0020.0002] # GEORGIAN SMALL LETTER TAN
+10A7  ; [.1F55.0020.0008] # GEORGIAN CAPITAL LETTER TAN
+10D8  ; [.1F56.0020.0002] # GEORGIAN LETTER IN
+2D08  ; [.1F57.0020.0002] # GEORGIAN SMALL LETTER IN
+10A8  ; [.1F57.0020.0008] # GEORGIAN CAPITAL LETTER IN
+10D9  ; [.1F58.0020.0002] # GEORGIAN LETTER KAN
+2D09  ; [.1F59.0020.0002] # GEORGIAN SMALL LETTER KAN
+10A9  ; [.1F59.0020.0008] # GEORGIAN CAPITAL LETTER KAN
+10DA  ; [.1F5A.0020.0002] # GEORGIAN LETTER LAS
+2D0A  ; [.1F5B.0020.0002] # GEORGIAN SMALL LETTER LAS
+10AA  ; [.1F5B.0020.0008] # GEORGIAN CAPITAL LETTER LAS
+10DB  ; [.1F5C.0020.0002] # GEORGIAN LETTER MAN
+2D0B  ; [.1F5D.0020.0002] # GEORGIAN SMALL LETTER MAN
+10AB  ; [.1F5D.0020.0008] # GEORGIAN CAPITAL LETTER MAN
+10DC  ; [.1F5E.0020.0002] # GEORGIAN LETTER NAR
+10FC  ; [.1F5E.0020.0014] # MODIFIER LETTER GEORGIAN NAR
+2D0C  ; [.1F5F.0020.0002] # GEORGIAN SMALL LETTER NAR
+10AC  ; [.1F5F.0020.0008] # GEORGIAN CAPITAL LETTER NAR
+10F2  ; [.1F60.0020.0002] # GEORGIAN LETTER HIE
+2D22  ; [.1F61.0020.0002] # GEORGIAN SMALL LETTER HIE
+10C2  ; [.1F61.0020.0008] # GEORGIAN CAPITAL LETTER HIE
+10DD  ; [.1F62.0020.0002] # GEORGIAN LETTER ON
+2D0D  ; [.1F63.0020.0002] # GEORGIAN SMALL LETTER ON
+10AD  ; [.1F63.0020.0008] # GEORGIAN CAPITAL LETTER ON
+10DE  ; [.1F64.0020.0002] # GEORGIAN LETTER PAR
+2D0E  ; [.1F65.0020.0002] # GEORGIAN SMALL LETTER PAR
+10AE  ; [.1F65.0020.0008] # GEORGIAN CAPITAL LETTER PAR
+10DF  ; [.1F66.0020.0002] # GEORGIAN LETTER ZHAR
+2D0F  ; [.1F67.0020.0002] # GEORGIAN SMALL LETTER ZHAR
+10AF  ; [.1F67.0020.0008] # GEORGIAN CAPITAL LETTER ZHAR
+10E0  ; [.1F68.0020.0002] # GEORGIAN LETTER RAE
+2D10  ; [.1F69.0020.0002] # GEORGIAN SMALL LETTER RAE
+10B0  ; [.1F69.0020.0008] # GEORGIAN CAPITAL LETTER RAE
+10E1  ; [.1F6A.0020.0002] # GEORGIAN LETTER SAN
+2D11  ; [.1F6B.0020.0002] # GEORGIAN SMALL LETTER SAN
+10B1  ; [.1F6B.0020.0008] # GEORGIAN CAPITAL LETTER SAN
+10E2  ; [.1F6C.0020.0002] # GEORGIAN LETTER TAR
+2D12  ; [.1F6D.0020.0002] # GEORGIAN SMALL LETTER TAR
+10B2  ; [.1F6D.0020.0008] # GEORGIAN CAPITAL LETTER TAR
+10F3  ; [.1F6E.0020.0002] # GEORGIAN LETTER WE
+2D23  ; [.1F6F.0020.0002] # GEORGIAN SMALL LETTER WE
+10C3  ; [.1F6F.0020.0008] # GEORGIAN CAPITAL LETTER WE
+10E3  ; [.1F70.0020.0002] # GEORGIAN LETTER UN
+2D13  ; [.1F71.0020.0002] # GEORGIAN SMALL LETTER UN
+10B3  ; [.1F71.0020.0008] # GEORGIAN CAPITAL LETTER UN
+10E4  ; [.1F72.0020.0002] # GEORGIAN LETTER PHAR
+2D14  ; [.1F73.0020.0002] # GEORGIAN SMALL LETTER PHAR
+10B4  ; [.1F73.0020.0008] # GEORGIAN CAPITAL LETTER PHAR
+10E5  ; [.1F74.0020.0002] # GEORGIAN LETTER KHAR
+2D15  ; [.1F75.0020.0002] # GEORGIAN SMALL LETTER KHAR
+10B5  ; [.1F75.0020.0008] # GEORGIAN CAPITAL LETTER KHAR
+10E6  ; [.1F76.0020.0002] # GEORGIAN LETTER GHAN
+2D16  ; [.1F77.0020.0002] # GEORGIAN SMALL LETTER GHAN
+10B6  ; [.1F77.0020.0008] # GEORGIAN CAPITAL LETTER GHAN
+10E7  ; [.1F78.0020.0002] # GEORGIAN LETTER QAR
+2D17  ; [.1F79.0020.0002] # GEORGIAN SMALL LETTER QAR
+10B7  ; [.1F79.0020.0008] # GEORGIAN CAPITAL LETTER QAR
+10E8  ; [.1F7A.0020.0002] # GEORGIAN LETTER SHIN
+2D18  ; [.1F7B.0020.0002] # GEORGIAN SMALL LETTER SHIN
+10B8  ; [.1F7B.0020.0008] # GEORGIAN CAPITAL LETTER SHIN
+10E9  ; [.1F7C.0020.0002] # GEORGIAN LETTER CHIN
+2D19  ; [.1F7D.0020.0002] # GEORGIAN SMALL LETTER CHIN
+10B9  ; [.1F7D.0020.0008] # GEORGIAN CAPITAL LETTER CHIN
+10EA  ; [.1F7E.0020.0002] # GEORGIAN LETTER CAN
+2D1A  ; [.1F7F.0020.0002] # GEORGIAN SMALL LETTER CAN
+10BA  ; [.1F7F.0020.0008] # GEORGIAN CAPITAL LETTER CAN
+10EB  ; [.1F80.0020.0002] # GEORGIAN LETTER JIL
+2D1B  ; [.1F81.0020.0002] # GEORGIAN SMALL LETTER JIL
+10BB  ; [.1F81.0020.0008] # GEORGIAN CAPITAL LETTER JIL
+10EC  ; [.1F82.0020.0002] # GEORGIAN LETTER CIL
+2D1C  ; [.1F83.0020.0002] # GEORGIAN SMALL LETTER CIL
+10BC  ; [.1F83.0020.0008] # GEORGIAN CAPITAL LETTER CIL
+10ED  ; [.1F84.0020.0002] # GEORGIAN LETTER CHAR
+2D1D  ; [.1F85.0020.0002] # GEORGIAN SMALL LETTER CHAR
+10BD  ; [.1F85.0020.0008] # GEORGIAN CAPITAL LETTER CHAR
+10EE  ; [.1F86.0020.0002] # GEORGIAN LETTER XAN
+2D1E  ; [.1F87.0020.0002] # GEORGIAN SMALL LETTER XAN
+10BE  ; [.1F87.0020.0008] # GEORGIAN CAPITAL LETTER XAN
+10F4  ; [.1F88.0020.0002] # GEORGIAN LETTER HAR
+2D24  ; [.1F89.0020.0002] # GEORGIAN SMALL LETTER HAR
+10C4  ; [.1F89.0020.0008] # GEORGIAN CAPITAL LETTER HAR
+10EF  ; [.1F8A.0020.0002] # GEORGIAN LETTER JHAN
+2D1F  ; [.1F8B.0020.0002] # GEORGIAN SMALL LETTER JHAN
+10BF  ; [.1F8B.0020.0008] # GEORGIAN CAPITAL LETTER JHAN
+10F0  ; [.1F8C.0020.0002] # GEORGIAN LETTER HAE
+2D20  ; [.1F8D.0020.0002] # GEORGIAN SMALL LETTER HAE
+10C0  ; [.1F8D.0020.0008] # GEORGIAN CAPITAL LETTER HAE
+10F5  ; [.1F8E.0020.0002] # GEORGIAN LETTER HOE
+2D25  ; [.1F8F.0020.0002] # GEORGIAN SMALL LETTER HOE
+10C5  ; [.1F8F.0020.0008] # GEORGIAN CAPITAL LETTER HOE
+10F6  ; [.1F90.0020.0002] # GEORGIAN LETTER FI
+10F7  ; [.1F91.0020.0002] # GEORGIAN LETTER YN
+2D27  ; [.1F92.0020.0002] # GEORGIAN SMALL LETTER YN
+10C7  ; [.1F92.0020.0008] # GEORGIAN CAPITAL LETTER YN
+10F8  ; [.1F93.0020.0002] # GEORGIAN LETTER ELIFI
+10F9  ; [.1F94.0020.0002] # GEORGIAN LETTER TURNED GAN
+10FA  ; [.1F95.0020.0002] # GEORGIAN LETTER AIN
+10FD  ; [.1F96.0020.0002] # GEORGIAN LETTER AEN
+2D2D  ; [.1F97.0020.0002] # GEORGIAN SMALL LETTER AEN
+10CD  ; [.1F97.0020.0008] # GEORGIAN CAPITAL LETTER AEN
+10FE  ; [.1F98.0020.0002] # GEORGIAN LETTER HARD SIGN
+10FF  ; [.1F99.0020.0002] # GEORGIAN LETTER LABIAL SIGN
+0561  ; [.1F9A.0020.0002] # ARMENIAN SMALL LETTER AYB
+0531  ; [.1F9A.0020.0008] # ARMENIAN CAPITAL LETTER AYB
+0562  ; [.1F9B.0020.0002] # ARMENIAN SMALL LETTER BEN
+0532  ; [.1F9B.0020.0008] # ARMENIAN CAPITAL LETTER BEN
+0563  ; [.1F9C.0020.0002] # ARMENIAN SMALL LETTER GIM
+0533  ; [.1F9C.0020.0008] # ARMENIAN CAPITAL LETTER GIM
+0564  ; [.1F9D.0020.0002] # ARMENIAN SMALL LETTER DA
+0534  ; [.1F9D.0020.0008] # ARMENIAN CAPITAL LETTER DA
+0565  ; [.1F9E.0020.0002] # ARMENIAN SMALL LETTER ECH
+0535  ; [.1F9E.0020.0008] # ARMENIAN CAPITAL LETTER ECH
+0587  ; [.1F9E.0020.0004][.1FBB.0020.0004] # ARMENIAN SMALL LIGATURE ECH YIWN
+0566  ; [.1F9F.0020.0002] # ARMENIAN SMALL LETTER ZA
+0536  ; [.1F9F.0020.0008] # ARMENIAN CAPITAL LETTER ZA
+0567  ; [.1FA0.0020.0002] # ARMENIAN SMALL LETTER EH
+0537  ; [.1FA0.0020.0008] # ARMENIAN CAPITAL LETTER EH
+0568  ; [.1FA1.0020.0002] # ARMENIAN SMALL LETTER ET
+0538  ; [.1FA1.0020.0008] # ARMENIAN CAPITAL LETTER ET
+0569  ; [.1FA2.0020.0002] # ARMENIAN SMALL LETTER TO
+0539  ; [.1FA2.0020.0008] # ARMENIAN CAPITAL LETTER TO
+056A  ; [.1FA3.0020.0002] # ARMENIAN SMALL LETTER ZHE
+053A  ; [.1FA3.0020.0008] # ARMENIAN CAPITAL LETTER ZHE
+056B  ; [.1FA4.0020.0002] # ARMENIAN SMALL LETTER INI
+053B  ; [.1FA4.0020.0008] # ARMENIAN CAPITAL LETTER INI
+056C  ; [.1FA5.0020.0002] # ARMENIAN SMALL LETTER LIWN
+053C  ; [.1FA5.0020.0008] # ARMENIAN CAPITAL LETTER LIWN
+056D  ; [.1FA6.0020.0002] # ARMENIAN SMALL LETTER XEH
+053D  ; [.1FA6.0020.0008] # ARMENIAN CAPITAL LETTER XEH
+056E  ; [.1FA7.0020.0002] # ARMENIAN SMALL LETTER CA
+053E  ; [.1FA7.0020.0008] # ARMENIAN CAPITAL LETTER CA
+056F  ; [.1FA8.0020.0002] # ARMENIAN SMALL LETTER KEN
+053F  ; [.1FA8.0020.0008] # ARMENIAN CAPITAL LETTER KEN
+0570  ; [.1FA9.0020.0002] # ARMENIAN SMALL LETTER HO
+0540  ; [.1FA9.0020.0008] # ARMENIAN CAPITAL LETTER HO
+0571  ; [.1FAA.0020.0002] # ARMENIAN SMALL LETTER JA
+0541  ; [.1FAA.0020.0008] # ARMENIAN CAPITAL LETTER JA
+0572  ; [.1FAB.0020.0002] # ARMENIAN SMALL LETTER GHAD
+0542  ; [.1FAB.0020.0008] # ARMENIAN CAPITAL LETTER GHAD
+0573  ; [.1FAC.0020.0002] # ARMENIAN SMALL LETTER CHEH
+0543  ; [.1FAC.0020.0008] # ARMENIAN CAPITAL LETTER CHEH
+0574  ; [.1FAD.0020.0002] # ARMENIAN SMALL LETTER MEN
+0544  ; [.1FAD.0020.0008] # ARMENIAN CAPITAL LETTER MEN
+FB14  ; [.1FAD.0020.0004][.1F9E.0020.0004] # ARMENIAN SMALL LIGATURE MEN ECH
+FB15  ; [.1FAD.0020.0004][.1FA4.0020.0004] # ARMENIAN SMALL LIGATURE MEN INI
+FB17  ; [.1FAD.0020.0004][.1FA6.0020.0004] # ARMENIAN SMALL LIGATURE MEN XEH
+FB13  ; [.1FAD.0020.0004][.1FAF.0020.0004] # ARMENIAN SMALL LIGATURE MEN NOW
+0575  ; [.1FAE.0020.0002] # ARMENIAN SMALL LETTER YI
+0545  ; [.1FAE.0020.0008] # ARMENIAN CAPITAL LETTER YI
+0576  ; [.1FAF.0020.0002] # ARMENIAN SMALL LETTER NOW
+0546  ; [.1FAF.0020.0008] # ARMENIAN CAPITAL LETTER NOW
+0577  ; [.1FB0.0020.0002] # ARMENIAN SMALL LETTER SHA
+0547  ; [.1FB0.0020.0008] # ARMENIAN CAPITAL LETTER SHA
+0578  ; [.1FB1.0020.0002] # ARMENIAN SMALL LETTER VO
+0548  ; [.1FB1.0020.0008] # ARMENIAN CAPITAL LETTER VO
+0579  ; [.1FB2.0020.0002] # ARMENIAN SMALL LETTER CHA
+0549  ; [.1FB2.0020.0008] # ARMENIAN CAPITAL LETTER CHA
+057A  ; [.1FB3.0020.0002] # ARMENIAN SMALL LETTER PEH
+054A  ; [.1FB3.0020.0008] # ARMENIAN CAPITAL LETTER PEH
+057B  ; [.1FB4.0020.0002] # ARMENIAN SMALL LETTER JHEH
+054B  ; [.1FB4.0020.0008] # ARMENIAN CAPITAL LETTER JHEH
+057C  ; [.1FB5.0020.0002] # ARMENIAN SMALL LETTER RA
+054C  ; [.1FB5.0020.0008] # ARMENIAN CAPITAL LETTER RA
+057D  ; [.1FB6.0020.0002] # ARMENIAN SMALL LETTER SEH
+054D  ; [.1FB6.0020.0008] # ARMENIAN CAPITAL LETTER SEH
+057E  ; [.1FB7.0020.0002] # ARMENIAN SMALL LETTER VEW
+054E  ; [.1FB7.0020.0008] # ARMENIAN CAPITAL LETTER VEW
+FB16  ; [.1FB7.0020.0004][.1FAF.0020.0004] # ARMENIAN SMALL LIGATURE VEW NOW
+057F  ; [.1FB8.0020.0002] # ARMENIAN SMALL LETTER TIWN
+054F  ; [.1FB8.0020.0008] # ARMENIAN CAPITAL LETTER TIWN
+0580  ; [.1FB9.0020.0002] # ARMENIAN SMALL LETTER REH
+0550  ; [.1FB9.0020.0008] # ARMENIAN CAPITAL LETTER REH
+0581  ; [.1FBA.0020.0002] # ARMENIAN SMALL LETTER CO
+0551  ; [.1FBA.0020.0008] # ARMENIAN CAPITAL LETTER CO
+0582  ; [.1FBB.0020.0002] # ARMENIAN SMALL LETTER YIWN
+0552  ; [.1FBB.0020.0008] # ARMENIAN CAPITAL LETTER YIWN
+0583  ; [.1FBC.0020.0002] # ARMENIAN SMALL LETTER PIWR
+0553  ; [.1FBC.0020.0008] # ARMENIAN CAPITAL LETTER PIWR
+0584  ; [.1FBD.0020.0002] # ARMENIAN SMALL LETTER KEH
+0554  ; [.1FBD.0020.0008] # ARMENIAN CAPITAL LETTER KEH
+0585  ; [.1FBE.0020.0002] # ARMENIAN SMALL LETTER OH
+0555  ; [.1FBE.0020.0008] # ARMENIAN CAPITAL LETTER OH
+0586  ; [.1FBF.0020.0002] # ARMENIAN SMALL LETTER FEH
+0556  ; [.1FBF.0020.0008] # ARMENIAN CAPITAL LETTER FEH
+0559  ; [.1FC0.0020.0002] # ARMENIAN MODIFIER LETTER LEFT HALF RING
+05D0  ; [.1FC1.0020.0002] # HEBREW LETTER ALEF
+2135  ; [.1FC1.0020.0004] # ALEF SYMBOL
+FB21  ; [.1FC1.0020.0005] # HEBREW LETTER WIDE ALEF
+FB2E  ; [.1FC1.0020.0002][.0000.0059.0002] # HEBREW LETTER ALEF WITH PATAH
+FB2F  ; [.1FC1.0020.0002][.0000.005A.0002] # HEBREW LETTER ALEF WITH QAMATS
+FB30  ; [.1FC1.0020.0002][.0000.005F.0002] # HEBREW LETTER ALEF WITH MAPIQ
+FB4F  ; [.1FC1.0020.0004][.1FCC.0020.0004] # HEBREW LIGATURE ALEF LAMED
+05D1  ; [.1FC2.0020.0002] # HEBREW LETTER BET
+2136  ; [.1FC2.0020.0004] # BET SYMBOL
+FB31  ; [.1FC2.0020.0002][.0000.005F.0002] # HEBREW LETTER BET WITH DAGESH
+FB4C  ; [.1FC2.0020.0002][.0000.0060.0002] # HEBREW LETTER BET WITH RAFE
+05D2  ; [.1FC3.0020.0002] # HEBREW LETTER GIMEL
+2137  ; [.1FC3.0020.0004] # GIMEL SYMBOL
+FB32  ; [.1FC3.0020.0002][.0000.005F.0002] # HEBREW LETTER GIMEL WITH DAGESH
+05D3  ; [.1FC4.0020.0002] # HEBREW LETTER DALET
+2138  ; [.1FC4.0020.0004] # DALET SYMBOL
+FB22  ; [.1FC4.0020.0005] # HEBREW LETTER WIDE DALET
+FB33  ; [.1FC4.0020.0002][.0000.005F.0002] # HEBREW LETTER DALET WITH DAGESH
+05D4  ; [.1FC5.0020.0002] # HEBREW LETTER HE
+FB23  ; [.1FC5.0020.0005] # HEBREW LETTER WIDE HE
+FB34  ; [.1FC5.0020.0002][.0000.005F.0002] # HEBREW LETTER HE WITH MAPIQ
+05D5  ; [.1FC6.0020.0002] # HEBREW LETTER VAV
+FB4B  ; [.1FC6.0020.0002][.0000.005B.0002] # HEBREW LETTER VAV WITH HOLAM
+FB35  ; [.1FC6.0020.0002][.0000.005F.0002] # HEBREW LETTER VAV WITH DAGESH
+05F0  ; [.1FC6.0020.0004][.1FC6.0020.0004] # HEBREW LIGATURE YIDDISH DOUBLE VAV
+05F1  ; [.1FC6.0020.0004][.1FCA.0020.0004] # HEBREW LIGATURE YIDDISH VAV YOD
+05D6  ; [.1FC7.0020.0002] # HEBREW LETTER ZAYIN
+FB36  ; [.1FC7.0020.0002][.0000.005F.0002] # HEBREW LETTER ZAYIN WITH DAGESH
+05D7  ; [.1FC8.0020.0002] # HEBREW LETTER HET
+05D8  ; [.1FC9.0020.0002] # HEBREW LETTER TET
+FB38  ; [.1FC9.0020.0002][.0000.005F.0002] # HEBREW LETTER TET WITH DAGESH
+05D9  ; [.1FCA.0020.0002] # HEBREW LETTER YOD
+FB1D  ; [.1FCA.0020.0002][.0000.0056.0002] # HEBREW LETTER YOD WITH HIRIQ
+FB39  ; [.1FCA.0020.0002][.0000.005F.0002] # HEBREW LETTER YOD WITH DAGESH
+05F2  ; [.1FCA.0020.0004][.1FCA.0020.0004] # HEBREW LIGATURE YIDDISH DOUBLE YOD
+FB1F  ; [.1FCA.0020.0004][.1FCA.0020.0004][.0000.0059.0002] # HEBREW LIGATURE YIDDISH YOD YOD PATAH
+05DB  ; [.1FCB.0020.0002] # HEBREW LETTER KAF
+FB24  ; [.1FCB.0020.0005] # HEBREW LETTER WIDE KAF
+05DA  ; [.1FCB.0020.0019] # HEBREW LETTER FINAL KAF
+FB3B  ; [.1FCB.0020.0002][.0000.005F.0002] # HEBREW LETTER KAF WITH DAGESH
+FB3A  ; [.1FCB.0020.0019][.0000.005F.0002] # HEBREW LETTER FINAL KAF WITH DAGESH
+FB4D  ; [.1FCB.0020.0002][.0000.0060.0002] # HEBREW LETTER KAF WITH RAFE
+05DC  ; [.1FCC.0020.0002] # HEBREW LETTER LAMED
+FB25  ; [.1FCC.0020.0005] # HEBREW LETTER WIDE LAMED
+FB3C  ; [.1FCC.0020.0002][.0000.005F.0002] # HEBREW LETTER LAMED WITH DAGESH
+05DE  ; [.1FCD.0020.0002] # HEBREW LETTER MEM
+FB26  ; [.1FCD.0020.0005] # HEBREW LETTER WIDE FINAL MEM
+05DD  ; [.1FCD.0020.0019] # HEBREW LETTER FINAL MEM
+FB3E  ; [.1FCD.0020.0002][.0000.005F.0002] # HEBREW LETTER MEM WITH DAGESH
+05E0  ; [.1FCE.0020.0002] # HEBREW LETTER NUN
+05DF  ; [.1FCE.0020.0019] # HEBREW LETTER FINAL NUN
+FB40  ; [.1FCE.0020.0002][.0000.005F.0002] # HEBREW LETTER NUN WITH DAGESH
+05E1  ; [.1FCF.0020.0002] # HEBREW LETTER SAMEKH
+FB41  ; [.1FCF.0020.0002][.0000.005F.0002] # HEBREW LETTER SAMEKH WITH DAGESH
+05E2  ; [.1FD0.0020.0002] # HEBREW LETTER AYIN
+FB20  ; [.1FD0.0020.0005] # HEBREW LETTER ALTERNATIVE AYIN
+05E4  ; [.1FD1.0020.0002] # HEBREW LETTER PE
+05E3  ; [.1FD1.0020.0019] # HEBREW LETTER FINAL PE
+FB44  ; [.1FD1.0020.0002][.0000.005F.0002] # HEBREW LETTER PE WITH DAGESH
+FB43  ; [.1FD1.0020.0019][.0000.005F.0002] # HEBREW LETTER FINAL PE WITH DAGESH
+FB4E  ; [.1FD1.0020.0002][.0000.0060.0002] # HEBREW LETTER PE WITH RAFE
+05E6  ; [.1FD2.0020.0002] # HEBREW LETTER TSADI
+05E5  ; [.1FD2.0020.0019] # HEBREW LETTER FINAL TSADI
+FB46  ; [.1FD2.0020.0002][.0000.005F.0002] # HEBREW LETTER TSADI WITH DAGESH
+05E7  ; [.1FD3.0020.0002] # HEBREW LETTER QOF
+FB47  ; [.1FD3.0020.0002][.0000.005F.0002] # HEBREW LETTER QOF WITH DAGESH
+05E8  ; [.1FD4.0020.0002] # HEBREW LETTER RESH
+FB27  ; [.1FD4.0020.0005] # HEBREW LETTER WIDE RESH
+FB48  ; [.1FD4.0020.0002][.0000.005F.0002] # HEBREW LETTER RESH WITH DAGESH
+05E9  ; [.1FD5.0020.0002] # HEBREW LETTER SHIN
+FB2B  ; [.1FD5.0020.0002][.0000.005D.0002] # HEBREW LETTER SHIN WITH SIN DOT
+FB2A  ; [.1FD5.0020.0002][.0000.005E.0002] # HEBREW LETTER SHIN WITH SHIN DOT
+FB49  ; [.1FD5.0020.0002][.0000.005F.0002] # HEBREW LETTER SHIN WITH DAGESH
+FB2D  ; [.1FD5.0020.0002][.0000.005F.0002][.0000.005D.0002] # HEBREW LETTER SHIN WITH DAGESH AND SIN DOT
+FB2C  ; [.1FD5.0020.0002][.0000.005F.0002][.0000.005E.0002] # HEBREW LETTER SHIN WITH DAGESH AND SHIN DOT
+05EA  ; [.1FD6.0020.0002] # HEBREW LETTER TAV
+FB28  ; [.1FD6.0020.0005] # HEBREW LETTER WIDE TAV
+FB4A  ; [.1FD6.0020.0002][.0000.005F.0002] # HEBREW LETTER TAV WITH DAGESH
+10900 ; [.1FD7.0020.0002] # PHOENICIAN LETTER ALF
+10901 ; [.1FD8.0020.0002] # PHOENICIAN LETTER BET
+10902 ; [.1FD9.0020.0002] # PHOENICIAN LETTER GAML
+10903 ; [.1FDA.0020.0002] # PHOENICIAN LETTER DELT
+10904 ; [.1FDB.0020.0002] # PHOENICIAN LETTER HE
+10905 ; [.1FDC.0020.0002] # PHOENICIAN LETTER WAU
+10906 ; [.1FDD.0020.0002] # PHOENICIAN LETTER ZAI
+10907 ; [.1FDE.0020.0002] # PHOENICIAN LETTER HET
+10908 ; [.1FDF.0020.0002] # PHOENICIAN LETTER TET
+10909 ; [.1FE0.0020.0002] # PHOENICIAN LETTER YOD
+1090A ; [.1FE1.0020.0002] # PHOENICIAN LETTER KAF
+1090B ; [.1FE2.0020.0002] # PHOENICIAN LETTER LAMD
+1090C ; [.1FE3.0020.0002] # PHOENICIAN LETTER MEM
+1090D ; [.1FE4.0020.0002] # PHOENICIAN LETTER NUN
+1090E ; [.1FE5.0020.0002] # PHOENICIAN LETTER SEMK
+1090F ; [.1FE6.0020.0002] # PHOENICIAN LETTER AIN
+10910 ; [.1FE7.0020.0002] # PHOENICIAN LETTER PE
+10911 ; [.1FE8.0020.0002] # PHOENICIAN LETTER SADE
+10912 ; [.1FE9.0020.0002] # PHOENICIAN LETTER QOF
+10913 ; [.1FEA.0020.0002] # PHOENICIAN LETTER ROSH
+10914 ; [.1FEB.0020.0002] # PHOENICIAN LETTER SHIN
+10915 ; [.1FEC.0020.0002] # PHOENICIAN LETTER TAU
+0800  ; [.1FED.0020.0002] # SAMARITAN LETTER ALAF
+0801  ; [.1FEE.0020.0002] # SAMARITAN LETTER BIT
+0802  ; [.1FEF.0020.0002] # SAMARITAN LETTER GAMAN
+0803  ; [.1FF0.0020.0002] # SAMARITAN LETTER DALAT
+0804  ; [.1FF1.0020.0002] # SAMARITAN LETTER IY
+0805  ; [.1FF2.0020.0002] # SAMARITAN LETTER BAA
+0806  ; [.1FF3.0020.0002] # SAMARITAN LETTER ZEN
+0807  ; [.1FF4.0020.0002] # SAMARITAN LETTER IT
+0808  ; [.1FF5.0020.0002] # SAMARITAN LETTER TIT
+0809  ; [.1FF6.0020.0002] # SAMARITAN LETTER YUT
+080A  ; [.1FF7.0020.0002] # SAMARITAN LETTER KAAF
+080B  ; [.1FF8.0020.0002] # SAMARITAN LETTER LABAT
+080C  ; [.1FF9.0020.0002] # SAMARITAN LETTER MIM
+080D  ; [.1FFA.0020.0002] # SAMARITAN LETTER NUN
+080E  ; [.1FFB.0020.0002] # SAMARITAN LETTER SINGAAT
+080F  ; [.1FFC.0020.0002] # SAMARITAN LETTER IN
+0810  ; [.1FFD.0020.0002] # SAMARITAN LETTER FI
+0811  ; [.1FFE.0020.0002] # SAMARITAN LETTER TSAADIY
+0812  ; [.1FFF.0020.0002] # SAMARITAN LETTER QUF
+0813  ; [.2000.0020.0002] # SAMARITAN LETTER RISH
+0814  ; [.2001.0020.0002] # SAMARITAN LETTER SHAN
+0815  ; [.2002.0020.0002] # SAMARITAN LETTER TAAF
+0816  ; [.2003.0020.0002] # SAMARITAN MARK IN
+0817  ; [.2004.0020.0002] # SAMARITAN MARK IN-ALAF
+081A  ; [.2005.0020.0002] # SAMARITAN MODIFIER LETTER EPENTHETIC YUT
+081B  ; [.2006.0020.0002] # SAMARITAN MARK EPENTHETIC YUT
+0621  ; [.2007.0020.0002] # ARABIC LETTER HAMZA
+0674  ; [.2007.0020.0004] # ARABIC LETTER HIGH HAMZA
+FE80  ; [.2007.0020.001A] # ARABIC LETTER HAMZA ISOLATED FORM
+06FD  ; [.2007.0020.0004][.0000.0109.0004] # ARABIC SIGN SINDHI AMPERSAND
+0622  ; [.2008.0020.0002] # ARABIC LETTER ALEF WITH MADDA ABOVE
+0627 0653 ; [.2008.0020.0002] # ARABIC LETTER ALEF WITH MADDA ABOVE
+FE82  ; [.2008.0020.0019] # ARABIC LETTER ALEF WITH MADDA ABOVE FINAL FORM
+FE81  ; [.2008.0020.001A] # ARABIC LETTER ALEF WITH MADDA ABOVE ISOLATED FORM
+0623  ; [.2009.0020.0002] # ARABIC LETTER ALEF WITH HAMZA ABOVE
+0627 0654 ; [.2009.0020.0002] # ARABIC LETTER ALEF WITH HAMZA ABOVE
+FE84  ; [.2009.0020.0019] # ARABIC LETTER ALEF WITH HAMZA ABOVE FINAL FORM
+FE83  ; [.2009.0020.001A] # ARABIC LETTER ALEF WITH HAMZA ABOVE ISOLATED FORM
+0672  ; [.200A.0020.0002] # ARABIC LETTER ALEF WITH WAVY HAMZA ABOVE
+0671  ; [.200B.0020.0002] # ARABIC LETTER ALEF WASLA
+FB51  ; [.200B.0020.0019] # ARABIC LETTER ALEF WASLA FINAL FORM
+FB50  ; [.200B.0020.001A] # ARABIC LETTER ALEF WASLA ISOLATED FORM
+0624  ; [.200C.0020.0002] # ARABIC LETTER WAW WITH HAMZA ABOVE
+0648 0654 ; [.200C.0020.0002] # ARABIC LETTER WAW WITH HAMZA ABOVE
+FE86  ; [.200C.0020.0019] # ARABIC LETTER WAW WITH HAMZA ABOVE FINAL FORM
+FE85  ; [.200C.0020.001A] # ARABIC LETTER WAW WITH HAMZA ABOVE ISOLATED FORM
+0625  ; [.200D.0020.0002] # ARABIC LETTER ALEF WITH HAMZA BELOW
+0627 0655 ; [.200D.0020.0002] # ARABIC LETTER ALEF WITH HAMZA BELOW
+FE88  ; [.200D.0020.0019] # ARABIC LETTER ALEF WITH HAMZA BELOW FINAL FORM
+FE87  ; [.200D.0020.001A] # ARABIC LETTER ALEF WITH HAMZA BELOW ISOLATED FORM
+0673  ; [.200E.0020.0002] # ARABIC LETTER ALEF WITH WAVY HAMZA BELOW
+0773  ; [.200F.0020.0002] # ARABIC LETTER ALEF WITH EXTENDED ARABIC-INDIC DIGIT TWO ABOVE
+0774  ; [.2010.0020.0002] # ARABIC LETTER ALEF WITH EXTENDED ARABIC-INDIC DIGIT THREE ABOVE
+0626  ; [.2011.0020.0002] # ARABIC LETTER YEH WITH HAMZA ABOVE
+064A 0654 ; [.2011.0020.0002] # ARABIC LETTER YEH WITH HAMZA ABOVE
+FE8B  ; [.2011.0020.0017] # ARABIC LETTER YEH WITH HAMZA ABOVE INITIAL FORM
+FE8C  ; [.2011.0020.0018] # ARABIC LETTER YEH WITH HAMZA ABOVE MEDIAL FORM
+FE8A  ; [.2011.0020.0019] # ARABIC LETTER YEH WITH HAMZA ABOVE FINAL FORM
+FE89  ; [.2011.0020.001A] # ARABIC LETTER YEH WITH HAMZA ABOVE ISOLATED FORM
+FBEB  ; [.2011.0020.0019][.2015.0020.0019] # ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH ALEF FINAL FORM
+FBEA  ; [.2011.0020.001A][.2015.0020.001A] # ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH ALEF ISOLATED FORM
+FC97  ; [.2011.0020.0017][.202C.0020.0017] # ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH JEEM INITIAL FORM
+FC00  ; [.2011.0020.001A][.202C.0020.001A] # ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH JEEM ISOLATED FORM
+FC98  ; [.2011.0020.0017][.2033.0020.0017] # ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH HAH INITIAL FORM
+FC01  ; [.2011.0020.001A][.2033.0020.001A] # ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH HAH ISOLATED FORM
+FC99  ; [.2011.0020.0017][.2034.0020.0017] # ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH KHAH INITIAL FORM
+FC64  ; [.2011.0020.0019][.204D.0020.0019] # ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH REH FINAL FORM
+FC65  ; [.2011.0020.0019][.204E.0020.0019] # ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH ZAIN FINAL FORM
+FC9A  ; [.2011.0020.0017][.20A5.0020.0017] # ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH MEEM INITIAL FORM
+FCDF  ; [.2011.0020.0018][.20A5.0020.0018] # ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH MEEM MEDIAL FORM
+FC66  ; [.2011.0020.0019][.20A5.0020.0019] # ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH MEEM FINAL FORM
+FC02  ; [.2011.0020.001A][.20A5.0020.001A] # ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH MEEM ISOLATED FORM
+FC67  ; [.2011.0020.0019][.20A9.0020.0019] # ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH NOON FINAL FORM
+FC9B  ; [.2011.0020.0017][.20B2.0020.0017] # ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH HEH INITIAL FORM
+FCE0  ; [.2011.0020.0018][.20B2.0020.0018] # ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH HEH MEDIAL FORM
+FBED  ; [.2011.0020.0019][.20B7.0020.0019] # ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH AE FINAL FORM
+FBEC  ; [.2011.0020.001A][.20B7.0020.001A] # ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH AE ISOLATED FORM
+FBEF  ; [.2011.0020.0019][.20B8.0020.0019] # ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH WAW FINAL FORM
+FBEE  ; [.2011.0020.001A][.20B8.0020.001A] # ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH WAW ISOLATED FORM
+FBF3  ; [.2011.0020.0019][.20BB.0020.0019] # ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH OE FINAL FORM
+FBF2  ; [.2011.0020.001A][.20BB.0020.001A] # ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH OE ISOLATED FORM
+FBF1  ; [.2011.0020.0019][.20BC.0020.0019] # ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH U FINAL FORM
+FBF0  ; [.2011.0020.001A][.20BC.0020.001A] # ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH U ISOLATED FORM
+FBF5  ; [.2011.0020.0019][.20BD.0020.0019] # ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH YU FINAL FORM
+FBF4  ; [.2011.0020.001A][.20BD.0020.001A] # ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH YU ISOLATED FORM
+FBFB  ; [.2011.0020.0017][.20C6.0020.0017] # ARABIC LIGATURE UIGHUR KIRGHIZ YEH WITH HAMZA ABOVE WITH ALEF MAKSURA INITIAL FORM
+FBFA  ; [.2011.0020.0019][.20C6.0020.0019] # ARABIC LIGATURE UIGHUR KIRGHIZ YEH WITH HAMZA ABOVE WITH ALEF MAKSURA FINAL FORM
+FC68  ; [.2011.0020.0019][.20C6.0020.0019] # ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH ALEF MAKSURA FINAL FORM
+FBF9  ; [.2011.0020.001A][.20C6.0020.001A] # ARABIC LIGATURE UIGHUR KIRGHIZ YEH WITH HAMZA ABOVE WITH ALEF MAKSURA ISOLATED FORM
+FC03  ; [.2011.0020.001A][.20C6.0020.001A] # ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH ALEF MAKSURA ISOLATED FORM
+FC69  ; [.2011.0020.0019][.20C7.0020.0019] # ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH YEH FINAL FORM
+FC04  ; [.2011.0020.001A][.20C7.0020.001A] # ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH YEH ISOLATED FORM
+FBF8  ; [.2011.0020.0017][.20CB.0020.0017] # ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH E INITIAL FORM
+FBF7  ; [.2011.0020.0019][.20CB.0020.0019] # ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH E FINAL FORM
+FBF6  ; [.2011.0020.001A][.20CB.0020.001A] # ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH E ISOLATED FORM
+08A8  ; [.2012.0020.0002] # ARABIC LETTER YEH WITH TWO DOTS BELOW AND HAMZA ABOVE
+08A9  ; [.2013.0020.0002] # ARABIC LETTER YEH WITH TWO DOTS BELOW AND DOT ABOVE
+08AC  ; [.2014.0020.0002] # ARABIC LETTER ROHINGYA YEH
+0627  ; [.2015.0020.0002] # ARABIC LETTER ALEF
+08AD  ; [.2015.0020.0004] # ARABIC LETTER LOW ALEF
+1EE00 ; [.2015.0020.0005] # ARABIC MATHEMATICAL ALEF
+1EE80 ; [.2015.0020.0005] # ARABIC MATHEMATICAL LOOPED ALEF
+FE8E  ; [.2015.0020.0019] # ARABIC LETTER ALEF FINAL FORM
+FE8D  ; [.2015.0020.001A] # ARABIC LETTER ALEF ISOLATED FORM
+FD3C  ; [.2015.0020.0019][.0000.006D.0019] # ARABIC LIGATURE ALEF WITH FATHATAN FINAL FORM
+FD3D  ; [.2015.0020.001A][.0000.006D.001A] # ARABIC LIGATURE ALEF WITH FATHATAN ISOLATED FORM
+0675  ; [.2015.0020.0004][.2007.0020.0004] # ARABIC LETTER HIGH HAMZA ALEF
+FDF3  ; [.2015.0020.001A][.208A.0020.001A][.2017.0020.001A][.204D.0020.001A] # ARABIC LIGATURE AKBAR ISOLATED FORM
+FDF2  ; [.2015.0020.001A][.209E.0020.001A][.209E.0020.001A][.20B2.0020.001A] # ARABIC LIGATURE ALLAH ISOLATED FORM
+066E  ; [.2016.0020.0002] # ARABIC LETTER DOTLESS BEH
+1EE1C ; [.2016.0020.0005] # ARABIC MATHEMATICAL DOTLESS BEH
+1EE7C ; [.2016.0020.0005] # ARABIC MATHEMATICAL STRETCHED DOTLESS BEH
+0628  ; [.2017.0020.0002] # ARABIC LETTER BEH
+1EE01 ; [.2017.0020.0005] # ARABIC MATHEMATICAL BEH
+1EE21 ; [.2017.0020.0005] # ARABIC MATHEMATICAL INITIAL BEH
+1EE61 ; [.2017.0020.0005] # ARABIC MATHEMATICAL STRETCHED BEH
+1EE81 ; [.2017.0020.0005] # ARABIC MATHEMATICAL LOOPED BEH
+1EEA1 ; [.2017.0020.0005] # ARABIC MATHEMATICAL DOUBLE-STRUCK BEH
+FE91  ; [.2017.0020.0017] # ARABIC LETTER BEH INITIAL FORM
+FE92  ; [.2017.0020.0018] # ARABIC LETTER BEH MEDIAL FORM
+FE90  ; [.2017.0020.0019] # ARABIC LETTER BEH FINAL FORM
+FE8F  ; [.2017.0020.001A] # ARABIC LETTER BEH ISOLATED FORM
+FC9C  ; [.2017.0020.0017][.202C.0020.0017] # ARABIC LIGATURE BEH WITH JEEM INITIAL FORM
+FC05  ; [.2017.0020.001A][.202C.0020.001A] # ARABIC LIGATURE BEH WITH JEEM ISOLATED FORM
+FC9D  ; [.2017.0020.0017][.2033.0020.0017] # ARABIC LIGATURE BEH WITH HAH INITIAL FORM
+FC06  ; [.2017.0020.001A][.2033.0020.001A] # ARABIC LIGATURE BEH WITH HAH ISOLATED FORM
+FDC2  ; [.2017.0020.0019][.2033.0020.0019][.20C7.0020.0019] # ARABIC LIGATURE BEH WITH HAH WITH YEH FINAL FORM
+FC9E  ; [.2017.0020.0017][.2034.0020.0017] # ARABIC LIGATURE BEH WITH KHAH INITIAL FORM
+FC07  ; [.2017.0020.001A][.2034.0020.001A] # ARABIC LIGATURE BEH WITH KHAH ISOLATED FORM
+FD9E  ; [.2017.0020.0019][.2034.0020.0019][.20C7.0020.0019] # ARABIC LIGATURE BEH WITH KHAH WITH YEH FINAL FORM
+FC6A  ; [.2017.0020.0019][.204D.0020.0019] # ARABIC LIGATURE BEH WITH REH FINAL FORM
+FC6B  ; [.2017.0020.0019][.204E.0020.0019] # ARABIC LIGATURE BEH WITH ZAIN FINAL FORM
+FC9F  ; [.2017.0020.0017][.20A5.0020.0017] # ARABIC LIGATURE BEH WITH MEEM INITIAL FORM
+FCE1  ; [.2017.0020.0018][.20A5.0020.0018] # ARABIC LIGATURE BEH WITH MEEM MEDIAL FORM
+FC6C  ; [.2017.0020.0019][.20A5.0020.0019] # ARABIC LIGATURE BEH WITH MEEM FINAL FORM
+FC08  ; [.2017.0020.001A][.20A5.0020.001A] # ARABIC LIGATURE BEH WITH MEEM ISOLATED FORM
+FC6D  ; [.2017.0020.0019][.20A9.0020.0019] # ARABIC LIGATURE BEH WITH NOON FINAL FORM
+FCA0  ; [.2017.0020.0017][.20B2.0020.0017] # ARABIC LIGATURE BEH WITH HEH INITIAL FORM
+FCE2  ; [.2017.0020.0018][.20B2.0020.0018] # ARABIC LIGATURE BEH WITH HEH MEDIAL FORM
+FC6E  ; [.2017.0020.0019][.20C6.0020.0019] # ARABIC LIGATURE BEH WITH ALEF MAKSURA FINAL FORM
+FC09  ; [.2017.0020.001A][.20C6.0020.001A] # ARABIC LIGATURE BEH WITH ALEF MAKSURA ISOLATED FORM
+FC6F  ; [.2017.0020.0019][.20C7.0020.0019] # ARABIC LIGATURE BEH WITH YEH FINAL FORM
+FC0A  ; [.2017.0020.001A][.20C7.0020.001A] # ARABIC LIGATURE BEH WITH YEH ISOLATED FORM
+067B  ; [.2018.0020.0002] # ARABIC LETTER BEEH
+FB54  ; [.2018.0020.0017] # ARABIC LETTER BEEH INITIAL FORM
+FB55  ; [.2018.0020.0018] # ARABIC LETTER BEEH MEDIAL FORM
+FB53  ; [.2018.0020.0019] # ARABIC LETTER BEEH FINAL FORM
+FB52  ; [.2018.0020.001A] # ARABIC LETTER BEEH ISOLATED FORM
+067E  ; [.2019.0020.0002] # ARABIC LETTER PEH
+FB58  ; [.2019.0020.0017] # ARABIC LETTER PEH INITIAL FORM
+FB59  ; [.2019.0020.0018] # ARABIC LETTER PEH MEDIAL FORM
+FB57  ; [.2019.0020.0019] # ARABIC LETTER PEH FINAL FORM
+FB56  ; [.2019.0020.001A] # ARABIC LETTER PEH ISOLATED FORM
+0680  ; [.201A.0020.0002] # ARABIC LETTER BEHEH
+FB5C  ; [.201A.0020.0017] # ARABIC LETTER BEHEH INITIAL FORM
+FB5D  ; [.201A.0020.0018] # ARABIC LETTER BEHEH MEDIAL FORM
+FB5B  ; [.201A.0020.0019] # ARABIC LETTER BEHEH FINAL FORM
+FB5A  ; [.201A.0020.001A] # ARABIC LETTER BEHEH ISOLATED FORM
+0750  ; [.201B.0020.0002] # ARABIC LETTER BEH WITH THREE DOTS HORIZONTALLY BELOW
+0751  ; [.201C.0020.0002] # ARABIC LETTER BEH WITH DOT BELOW AND THREE DOTS ABOVE
+0752  ; [.201D.0020.0002] # ARABIC LETTER BEH WITH THREE DOTS POINTING UPWARDS BELOW
+0753  ; [.201E.0020.0002] # ARABIC LETTER BEH WITH THREE DOTS POINTING UPWARDS BELOW AND TWO DOTS ABOVE
+0754  ; [.201F.0020.0002] # ARABIC LETTER BEH WITH TWO DOTS BELOW AND DOT ABOVE
+0755  ; [.2020.0020.0002] # ARABIC LETTER BEH WITH INVERTED SMALL V BELOW
+08A0  ; [.2021.0020.0002] # ARABIC LETTER BEH WITH SMALL V BELOW
+0756  ; [.2022.0020.0002] # ARABIC LETTER BEH WITH SMALL V
+08A1  ; [.2023.0020.0002] # ARABIC LETTER BEH WITH HAMZA ABOVE
+0629  ; [.2024.0020.0002] # ARABIC LETTER TEH MARBUTA
+FE94  ; [.2024.0020.0019] # ARABIC LETTER TEH MARBUTA FINAL FORM
+FE93  ; [.2024.0020.001A] # ARABIC LETTER TEH MARBUTA ISOLATED FORM
+062A  ; [.2025.0020.0002] # ARABIC LETTER TEH
+1EE15 ; [.2025.0020.0005] # ARABIC MATHEMATICAL TEH
+1EE35 ; [.2025.0020.0005] # ARABIC MATHEMATICAL INITIAL TEH
+1EE75 ; [.2025.0020.0005] # ARABIC MATHEMATICAL STRETCHED TEH
+1EE95 ; [.2025.0020.0005] # ARABIC MATHEMATICAL LOOPED TEH
+1EEB5 ; [.2025.0020.0005] # ARABIC MATHEMATICAL DOUBLE-STRUCK TEH
+FE97  ; [.2025.0020.0017] # ARABIC LETTER TEH INITIAL FORM
+FE98  ; [.2025.0020.0018] # ARABIC LETTER TEH MEDIAL FORM
+FE96  ; [.2025.0020.0019] # ARABIC LETTER TEH FINAL FORM
+FE95  ; [.2025.0020.001A] # ARABIC LETTER TEH ISOLATED FORM
+FCA1  ; [.2025.0020.0017][.202C.0020.0017] # ARABIC LIGATURE TEH WITH JEEM INITIAL FORM
+FC0B  ; [.2025.0020.001A][.202C.0020.001A] # ARABIC LIGATURE TEH WITH JEEM ISOLATED FORM
+FD50  ; [.2025.0020.0017][.202C.0020.0017][.20A5.0020.0017] # ARABIC LIGATURE TEH WITH JEEM WITH MEEM INITIAL FORM
+FDA0  ; [.2025.0020.0019][.202C.0020.0019][.20C6.0020.0019] # ARABIC LIGATURE TEH WITH JEEM WITH ALEF MAKSURA FINAL FORM
+FD9F  ; [.2025.0020.0019][.202C.0020.0019][.20C7.0020.0019] # ARABIC LIGATURE TEH WITH JEEM WITH YEH FINAL FORM
+FCA2  ; [.2025.0020.0017][.2033.0020.0017] # ARABIC LIGATURE TEH WITH HAH INITIAL FORM
+FC0C  ; [.2025.0020.001A][.2033.0020.001A] # ARABIC LIGATURE TEH WITH HAH ISOLATED FORM
+FD52  ; [.2025.0020.0017][.2033.0020.0017][.202C.0020.0017] # ARABIC LIGATURE TEH WITH HAH WITH JEEM INITIAL FORM
+FD51  ; [.2025.0020.0019][.2033.0020.0019][.202C.0020.0019] # ARABIC LIGATURE TEH WITH HAH WITH JEEM FINAL FORM
+FD53  ; [.2025.0020.0017][.2033.0020.0017][.20A5.0020.0017] # ARABIC LIGATURE TEH WITH HAH WITH MEEM INITIAL FORM
+FCA3  ; [.2025.0020.0017][.2034.0020.0017] # ARABIC LIGATURE TEH WITH KHAH INITIAL FORM
+FC0D  ; [.2025.0020.001A][.2034.0020.001A] # ARABIC LIGATURE TEH WITH KHAH ISOLATED FORM
+FD54  ; [.2025.0020.0017][.2034.0020.0017][.20A5.0020.0017] # ARABIC LIGATURE TEH WITH KHAH WITH MEEM INITIAL FORM
+FDA2  ; [.2025.0020.0019][.2034.0020.0019][.20C6.0020.0019] # ARABIC LIGATURE TEH WITH KHAH WITH ALEF MAKSURA FINAL FORM
+FDA1  ; [.2025.0020.0019][.2034.0020.0019][.20C7.0020.0019] # ARABIC LIGATURE TEH WITH KHAH WITH YEH FINAL FORM
+FC70  ; [.2025.0020.0019][.204D.0020.0019] # ARABIC LIGATURE TEH WITH REH FINAL FORM
+FC71  ; [.2025.0020.0019][.204E.0020.0019] # ARABIC LIGATURE TEH WITH ZAIN FINAL FORM
+FCA4  ; [.2025.0020.0017][.20A5.0020.0017] # ARABIC LIGATURE TEH WITH MEEM INITIAL FORM
+FCE3  ; [.2025.0020.0018][.20A5.0020.0018] # ARABIC LIGATURE TEH WITH MEEM MEDIAL FORM
+FC72  ; [.2025.0020.0019][.20A5.0020.0019] # ARABIC LIGATURE TEH WITH MEEM FINAL FORM
+FC0E  ; [.2025.0020.001A][.20A5.0020.001A] # ARABIC LIGATURE TEH WITH MEEM ISOLATED FORM
+FD55  ; [.2025.0020.0017][.20A5.0020.0017][.202C.0020.0017] # ARABIC LIGATURE TEH WITH MEEM WITH JEEM INITIAL FORM
+FD56  ; [.2025.0020.0017][.20A5.0020.0017][.2033.0020.0017] # ARABIC LIGATURE TEH WITH MEEM WITH HAH INITIAL FORM
+FD57  ; [.2025.0020.0017][.20A5.0020.0017][.2034.0020.0017] # ARABIC LIGATURE TEH WITH MEEM WITH KHAH INITIAL FORM
+FDA4  ; [.2025.0020.0019][.20A5.0020.0019][.20C6.0020.0019] # ARABIC LIGATURE TEH WITH MEEM WITH ALEF MAKSURA FINAL FORM
+FDA3  ; [.2025.0020.0019][.20A5.0020.0019][.20C7.0020.0019] # ARABIC LIGATURE TEH WITH MEEM WITH YEH FINAL FORM
+FC73  ; [.2025.0020.0019][.20A9.0020.0019] # ARABIC LIGATURE TEH WITH NOON FINAL FORM
+FCA5  ; [.2025.0020.0017][.20B2.0020.0017] # ARABIC LIGATURE TEH WITH HEH INITIAL FORM
+FCE4  ; [.2025.0020.0018][.20B2.0020.0018] # ARABIC LIGATURE TEH WITH HEH MEDIAL FORM
+FC74  ; [.2025.0020.0019][.20C6.0020.0019] # ARABIC LIGATURE TEH WITH ALEF MAKSURA FINAL FORM
+FC0F  ; [.2025.0020.001A][.20C6.0020.001A] # ARABIC LIGATURE TEH WITH ALEF MAKSURA ISOLATED FORM
+FC75  ; [.2025.0020.0019][.20C7.0020.0019] # ARABIC LIGATURE TEH WITH YEH FINAL FORM
+FC10  ; [.2025.0020.001A][.20C7.0020.001A] # ARABIC LIGATURE TEH WITH YEH ISOLATED FORM
+062B  ; [.2026.0020.0002] # ARABIC LETTER THEH
+1EE16 ; [.2026.0020.0005] # ARABIC MATHEMATICAL THEH
+1EE36 ; [.2026.0020.0005] # ARABIC MATHEMATICAL INITIAL THEH
+1EE76 ; [.2026.0020.0005] # ARABIC MATHEMATICAL STRETCHED THEH
+1EE96 ; [.2026.0020.0005] # ARABIC MATHEMATICAL LOOPED THEH
+1EEB6 ; [.2026.0020.0005] # ARABIC MATHEMATICAL DOUBLE-STRUCK THEH
+FE9B  ; [.2026.0020.0017] # ARABIC LETTER THEH INITIAL FORM
+FE9C  ; [.2026.0020.0018] # ARABIC LETTER THEH MEDIAL FORM
+FE9A  ; [.2026.0020.0019] # ARABIC LETTER THEH FINAL FORM
+FE99  ; [.2026.0020.001A] # ARABIC LETTER THEH ISOLATED FORM
+FC11  ; [.2026.0020.001A][.202C.0020.001A] # ARABIC LIGATURE THEH WITH JEEM ISOLATED FORM
+FC76  ; [.2026.0020.0019][.204D.0020.0019] # ARABIC LIGATURE THEH WITH REH FINAL FORM
+FC77  ; [.2026.0020.0019][.204E.0020.0019] # ARABIC LIGATURE THEH WITH ZAIN FINAL FORM
+FCA6  ; [.2026.0020.0017][.20A5.0020.0017] # ARABIC LIGATURE THEH WITH MEEM INITIAL FORM
+FCE5  ; [.2026.0020.0018][.20A5.0020.0018] # ARABIC LIGATURE THEH WITH MEEM MEDIAL FORM
+FC78  ; [.2026.0020.0019][.20A5.0020.0019] # ARABIC LIGATURE THEH WITH MEEM FINAL FORM
+FC12  ; [.2026.0020.001A][.20A5.0020.001A] # ARABIC LIGATURE THEH WITH MEEM ISOLATED FORM
+FC79  ; [.2026.0020.0019][.20A9.0020.0019] # ARABIC LIGATURE THEH WITH NOON FINAL FORM
+FCE6  ; [.2026.0020.0018][.20B2.0020.0018] # ARABIC LIGATURE THEH WITH HEH MEDIAL FORM
+FC7A  ; [.2026.0020.0019][.20C6.0020.0019] # ARABIC LIGATURE THEH WITH ALEF MAKSURA FINAL FORM
+FC13  ; [.2026.0020.001A][.20C6.0020.001A] # ARABIC LIGATURE THEH WITH ALEF MAKSURA ISOLATED FORM
+FC7B  ; [.2026.0020.0019][.20C7.0020.0019] # ARABIC LIGATURE THEH WITH YEH FINAL FORM
+FC14  ; [.2026.0020.001A][.20C7.0020.001A] # ARABIC LIGATURE THEH WITH YEH ISOLATED FORM
+0679  ; [.2027.0020.0002] # ARABIC LETTER TTEH
+FB68  ; [.2027.0020.0017] # ARABIC LETTER TTEH INITIAL FORM
+FB69  ; [.2027.0020.0018] # ARABIC LETTER TTEH MEDIAL FORM
+FB67  ; [.2027.0020.0019] # ARABIC LETTER TTEH FINAL FORM
+FB66  ; [.2027.0020.001A] # ARABIC LETTER TTEH ISOLATED FORM
+067A  ; [.2028.0020.0002] # ARABIC LETTER TTEHEH
+FB60  ; [.2028.0020.0017] # ARABIC LETTER TTEHEH INITIAL FORM
+FB61  ; [.2028.0020.0018] # ARABIC LETTER TTEHEH MEDIAL FORM
+FB5F  ; [.2028.0020.0019] # ARABIC LETTER TTEHEH FINAL FORM
+FB5E  ; [.2028.0020.001A] # ARABIC LETTER TTEHEH ISOLATED FORM
+067C  ; [.2029.0020.0002] # ARABIC LETTER TEH WITH RING
+067D  ; [.202A.0020.0002] # ARABIC LETTER TEH WITH THREE DOTS ABOVE DOWNWARDS
+067F  ; [.202B.0020.0002] # ARABIC LETTER TEHEH
+FB64  ; [.202B.0020.0017] # ARABIC LETTER TEHEH INITIAL FORM
+FB65  ; [.202B.0020.0018] # ARABIC LETTER TEHEH MEDIAL FORM
+FB63  ; [.202B.0020.0019] # ARABIC LETTER TEHEH FINAL FORM
+FB62  ; [.202B.0020.001A] # ARABIC LETTER TEHEH ISOLATED FORM
+062C  ; [.202C.0020.0002] # ARABIC LETTER JEEM
+1EE02 ; [.202C.0020.0005] # ARABIC MATHEMATICAL JEEM
+1EE22 ; [.202C.0020.0005] # ARABIC MATHEMATICAL INITIAL JEEM
+1EE42 ; [.202C.0020.0005] # ARABIC MATHEMATICAL TAILED JEEM
+1EE62 ; [.202C.0020.0005] # ARABIC MATHEMATICAL STRETCHED JEEM
+1EE82 ; [.202C.0020.0005] # ARABIC MATHEMATICAL LOOPED JEEM
+1EEA2 ; [.202C.0020.0005] # ARABIC MATHEMATICAL DOUBLE-STRUCK JEEM
+FE9F  ; [.202C.0020.0017] # ARABIC LETTER JEEM INITIAL FORM
+FEA0  ; [.202C.0020.0018] # ARABIC LETTER JEEM MEDIAL FORM
+FE9E  ; [.202C.0020.0019] # ARABIC LETTER JEEM FINAL FORM
+FE9D  ; [.202C.0020.001A] # ARABIC LETTER JEEM ISOLATED FORM
+FCA7  ; [.202C.0020.0017][.2033.0020.0017] # ARABIC LIGATURE JEEM WITH HAH INITIAL FORM
+FC15  ; [.202C.0020.001A][.2033.0020.001A] # ARABIC LIGATURE JEEM WITH HAH ISOLATED FORM
+FDA6  ; [.202C.0020.0019][.2033.0020.0019][.20C6.0020.0019] # ARABIC LIGATURE JEEM WITH HAH WITH ALEF MAKSURA FINAL FORM
+FDBE  ; [.202C.0020.0019][.2033.0020.0019][.20C7.0020.0019] # ARABIC LIGATURE JEEM WITH HAH WITH YEH FINAL FORM
+FDFB  ; [.202C.0020.001A][.209E.0020.001A][*0209.0020.001A][.202C.0020.001A][.209E.0020.001A][.2015.0020.001A][.209E.0020.001A][.20B2.0020.001A] # ARABIC LIGATURE JALLAJALALOUHOU
+FCA8  ; [.202C.0020.0017][.20A5.0020.0017] # ARABIC LIGATURE JEEM WITH MEEM INITIAL FORM
+FC16  ; [.202C.0020.001A][.20A5.0020.001A] # ARABIC LIGATURE JEEM WITH MEEM ISOLATED FORM
+FD59  ; [.202C.0020.0017][.20A5.0020.0017][.2033.0020.0017] # ARABIC LIGATURE JEEM WITH MEEM WITH HAH INITIAL FORM
+FD58  ; [.202C.0020.0019][.20A5.0020.0019][.2033.0020.0019] # ARABIC LIGATURE JEEM WITH MEEM WITH HAH FINAL FORM
+FDA7  ; [.202C.0020.0019][.20A5.0020.0019][.20C6.0020.0019] # ARABIC LIGATURE JEEM WITH MEEM WITH ALEF MAKSURA FINAL FORM
+FDA5  ; [.202C.0020.0019][.20A5.0020.0019][.20C7.0020.0019] # ARABIC LIGATURE JEEM WITH MEEM WITH YEH FINAL FORM
+FD1D  ; [.202C.0020.0019][.20C6.0020.0019] # ARABIC LIGATURE JEEM WITH ALEF MAKSURA FINAL FORM
+FD01  ; [.202C.0020.001A][.20C6.0020.001A] # ARABIC LIGATURE JEEM WITH ALEF MAKSURA ISOLATED FORM
+FD1E  ; [.202C.0020.0019][.20C7.0020.0019] # ARABIC LIGATURE JEEM WITH YEH FINAL FORM
+FD02  ; [.202C.0020.001A][.20C7.0020.001A] # ARABIC LIGATURE JEEM WITH YEH ISOLATED FORM
+0683  ; [.202D.0020.0002] # ARABIC LETTER NYEH
+FB78  ; [.202D.0020.0017] # ARABIC LETTER NYEH INITIAL FORM
+FB79  ; [.202D.0020.0018] # ARABIC LETTER NYEH MEDIAL FORM
+FB77  ; [.202D.0020.0019] # ARABIC LETTER NYEH FINAL FORM
+FB76  ; [.202D.0020.001A] # ARABIC LETTER NYEH ISOLATED FORM
+0684  ; [.202E.0020.0002] # ARABIC LETTER DYEH
+FB74  ; [.202E.0020.0017] # ARABIC LETTER DYEH INITIAL FORM
+FB75  ; [.202E.0020.0018] # ARABIC LETTER DYEH MEDIAL FORM
+FB73  ; [.202E.0020.0019] # ARABIC LETTER DYEH FINAL FORM
+FB72  ; [.202E.0020.001A] # ARABIC LETTER DYEH ISOLATED FORM
+0686  ; [.202F.0020.0002] # ARABIC LETTER TCHEH
+FB7C  ; [.202F.0020.0017] # ARABIC LETTER TCHEH INITIAL FORM
+FB7D  ; [.202F.0020.0018] # ARABIC LETTER TCHEH MEDIAL FORM
+FB7B  ; [.202F.0020.0019] # ARABIC LETTER TCHEH FINAL FORM
+FB7A  ; [.202F.0020.001A] # ARABIC LETTER TCHEH ISOLATED FORM
+06BF  ; [.2030.0020.0002] # ARABIC LETTER TCHEH WITH DOT ABOVE
+0687  ; [.2031.0020.0002] # ARABIC LETTER TCHEHEH
+FB80  ; [.2031.0020.0017] # ARABIC LETTER TCHEHEH INITIAL FORM
+FB81  ; [.2031.0020.0018] # ARABIC LETTER TCHEHEH MEDIAL FORM
+FB7F  ; [.2031.0020.0019] # ARABIC LETTER TCHEHEH FINAL FORM
+FB7E  ; [.2031.0020.001A] # ARABIC LETTER TCHEHEH ISOLATED FORM
+08A2  ; [.2032.0020.0002] # ARABIC LETTER JEEM WITH TWO DOTS ABOVE
+062D  ; [.2033.0020.0002] # ARABIC LETTER HAH
+1EE07 ; [.2033.0020.0005] # ARABIC MATHEMATICAL HAH
+1EE27 ; [.2033.0020.0005] # ARABIC MATHEMATICAL INITIAL HAH
+1EE47 ; [.2033.0020.0005] # ARABIC MATHEMATICAL TAILED HAH
+1EE67 ; [.2033.0020.0005] # ARABIC MATHEMATICAL STRETCHED HAH
+1EE87 ; [.2033.0020.0005] # ARABIC MATHEMATICAL LOOPED HAH
+1EEA7 ; [.2033.0020.0005] # ARABIC MATHEMATICAL DOUBLE-STRUCK HAH
+FEA3  ; [.2033.0020.0017] # ARABIC LETTER HAH INITIAL FORM
+FEA4  ; [.2033.0020.0018] # ARABIC LETTER HAH MEDIAL FORM
+FEA2  ; [.2033.0020.0019] # ARABIC LETTER HAH FINAL FORM
+FEA1  ; [.2033.0020.001A] # ARABIC LETTER HAH ISOLATED FORM
+FCA9  ; [.2033.0020.0017][.202C.0020.0017] # ARABIC LIGATURE HAH WITH JEEM INITIAL FORM
+FC17  ; [.2033.0020.001A][.202C.0020.001A] # ARABIC LIGATURE HAH WITH JEEM ISOLATED FORM
+FDBF  ; [.2033.0020.0019][.202C.0020.0019][.20C7.0020.0019] # ARABIC LIGATURE HAH WITH JEEM WITH YEH FINAL FORM
+FCAA  ; [.2033.0020.0017][.20A5.0020.0017] # ARABIC LIGATURE HAH WITH MEEM INITIAL FORM
+FC18  ; [.2033.0020.001A][.20A5.0020.001A] # ARABIC LIGATURE HAH WITH MEEM ISOLATED FORM
+FD5B  ; [.2033.0020.0019][.20A5.0020.0019][.20C6.0020.0019] # ARABIC LIGATURE HAH WITH MEEM WITH ALEF MAKSURA FINAL FORM
+FD5A  ; [.2033.0020.0019][.20A5.0020.0019][.20C7.0020.0019] # ARABIC LIGATURE HAH WITH MEEM WITH YEH FINAL FORM
+FD1B  ; [.2033.0020.0019][.20C6.0020.0019] # ARABIC LIGATURE HAH WITH ALEF MAKSURA FINAL FORM
+FCFF  ; [.2033.0020.001A][.20C6.0020.001A] # ARABIC LIGATURE HAH WITH ALEF MAKSURA ISOLATED FORM
+FD1C  ; [.2033.0020.0019][.20C7.0020.0019] # ARABIC LIGATURE HAH WITH YEH FINAL FORM
+FD00  ; [.2033.0020.001A][.20C7.0020.001A] # ARABIC LIGATURE HAH WITH YEH ISOLATED FORM
+062E  ; [.2034.0020.0002] # ARABIC LETTER KHAH
+1EE17 ; [.2034.0020.0005] # ARABIC MATHEMATICAL KHAH
+1EE37 ; [.2034.0020.0005] # ARABIC MATHEMATICAL INITIAL KHAH
+1EE57 ; [.2034.0020.0005] # ARABIC MATHEMATICAL TAILED KHAH
+1EE77 ; [.2034.0020.0005] # ARABIC MATHEMATICAL STRETCHED KHAH
+1EE97 ; [.2034.0020.0005] # ARABIC MATHEMATICAL LOOPED KHAH
+1EEB7 ; [.2034.0020.0005] # ARABIC MATHEMATICAL DOUBLE-STRUCK KHAH
+FEA7  ; [.2034.0020.0017] # ARABIC LETTER KHAH INITIAL FORM
+FEA8  ; [.2034.0020.0018] # ARABIC LETTER KHAH MEDIAL FORM
+FEA6  ; [.2034.0020.0019] # ARABIC LETTER KHAH FINAL FORM
+FEA5  ; [.2034.0020.001A] # ARABIC LETTER KHAH ISOLATED FORM
+FCAB  ; [.2034.0020.0017][.202C.0020.0017] # ARABIC LIGATURE KHAH WITH JEEM INITIAL FORM
+FC19  ; [.2034.0020.001A][.202C.0020.001A] # ARABIC LIGATURE KHAH WITH JEEM ISOLATED FORM
+FC1A  ; [.2034.0020.001A][.2033.0020.001A] # ARABIC LIGATURE KHAH WITH HAH ISOLATED FORM
+FCAC  ; [.2034.0020.0017][.20A5.0020.0017] # ARABIC LIGATURE KHAH WITH MEEM INITIAL FORM
+FC1B  ; [.2034.0020.001A][.20A5.0020.001A] # ARABIC LIGATURE KHAH WITH MEEM ISOLATED FORM
+FD1F  ; [.2034.0020.0019][.20C6.0020.0019] # ARABIC LIGATURE KHAH WITH ALEF MAKSURA FINAL FORM
+FD03  ; [.2034.0020.001A][.20C6.0020.001A] # ARABIC LIGATURE KHAH WITH ALEF MAKSURA ISOLATED FORM
+FD20  ; [.2034.0020.0019][.20C7.0020.0019] # ARABIC LIGATURE KHAH WITH YEH FINAL FORM
+FD04  ; [.2034.0020.001A][.20C7.0020.001A] # ARABIC LIGATURE KHAH WITH YEH ISOLATED FORM
+0681  ; [.2035.0020.0002] # ARABIC LETTER HAH WITH HAMZA ABOVE
+0682  ; [.2036.0020.0002] # ARABIC LETTER HAH WITH TWO DOTS VERTICAL ABOVE
+0685  ; [.2037.0020.0002] # ARABIC LETTER HAH WITH THREE DOTS ABOVE
+0757  ; [.2038.0020.0002] # ARABIC LETTER HAH WITH TWO DOTS ABOVE
+0758  ; [.2039.0020.0002] # ARABIC LETTER HAH WITH THREE DOTS POINTING UPWARDS BELOW
+076E  ; [.203A.0020.0002] # ARABIC LETTER HAH WITH SMALL ARABIC LETTER TAH BELOW
+076F  ; [.203B.0020.0002] # ARABIC LETTER HAH WITH SMALL ARABIC LETTER TAH AND TWO DOTS
+0772  ; [.203C.0020.0002] # ARABIC LETTER HAH WITH SMALL ARABIC LETTER TAH ABOVE
+077C  ; [.203D.0020.0002] # ARABIC LETTER HAH WITH EXTENDED ARABIC-INDIC DIGIT FOUR BELOW
+062F  ; [.203E.0020.0002] # ARABIC LETTER DAL
+1EE03 ; [.203E.0020.0005] # ARABIC MATHEMATICAL DAL
+1EE83 ; [.203E.0020.0005] # ARABIC MATHEMATICAL LOOPED DAL
+1EEA3 ; [.203E.0020.0005] # ARABIC MATHEMATICAL DOUBLE-STRUCK DAL
+FEAA  ; [.203E.0020.0019] # ARABIC LETTER DAL FINAL FORM
+FEA9  ; [.203E.0020.001A] # ARABIC LETTER DAL ISOLATED FORM
+0630  ; [.203F.0020.0002] # ARABIC LETTER THAL
+1EE18 ; [.203F.0020.0005] # ARABIC MATHEMATICAL THAL
+1EE98 ; [.203F.0020.0005] # ARABIC MATHEMATICAL LOOPED THAL
+1EEB8 ; [.203F.0020.0005] # ARABIC MATHEMATICAL DOUBLE-STRUCK THAL
+FEAC  ; [.203F.0020.0019] # ARABIC LETTER THAL FINAL FORM
+FEAB  ; [.203F.0020.001A] # ARABIC LETTER THAL ISOLATED FORM
+FC5B  ; [.203F.0020.001A][.0000.0097.001A] # ARABIC LIGATURE THAL WITH SUPERSCRIPT ALEF ISOLATED FORM
+0688  ; [.2040.0020.0002] # ARABIC LETTER DDAL
+FB89  ; [.2040.0020.0019] # ARABIC LETTER DDAL FINAL FORM
+FB88  ; [.2040.0020.001A] # ARABIC LETTER DDAL ISOLATED FORM
+0689  ; [.2041.0020.0002] # ARABIC LETTER DAL WITH RING
+068A  ; [.2042.0020.0002] # ARABIC LETTER DAL WITH DOT BELOW
+068B  ; [.2043.0020.0002] # ARABIC LETTER DAL WITH DOT BELOW AND SMALL TAH
+068C  ; [.2044.0020.0002] # ARABIC LETTER DAHAL
+FB85  ; [.2044.0020.0019] # ARABIC LETTER DAHAL FINAL FORM
+FB84  ; [.2044.0020.001A] # ARABIC LETTER DAHAL ISOLATED FORM
+068D  ; [.2045.0020.0002] # ARABIC LETTER DDAHAL
+FB83  ; [.2045.0020.0019] # ARABIC LETTER DDAHAL FINAL FORM
+FB82  ; [.2045.0020.001A] # ARABIC LETTER DDAHAL ISOLATED FORM
+08AE  ; [.2046.0020.0002] # ARABIC LETTER DAL WITH THREE DOTS BELOW
+068E  ; [.2047.0020.0002] # ARABIC LETTER DUL
+FB87  ; [.2047.0020.0019] # ARABIC LETTER DUL FINAL FORM
+FB86  ; [.2047.0020.001A] # ARABIC LETTER DUL ISOLATED FORM
+068F  ; [.2048.0020.0002] # ARABIC LETTER DAL WITH THREE DOTS ABOVE DOWNWARDS
+0690  ; [.2049.0020.0002] # ARABIC LETTER DAL WITH FOUR DOTS ABOVE
+06EE  ; [.204A.0020.0002] # ARABIC LETTER DAL WITH INVERTED V
+0759  ; [.204B.0020.0002] # ARABIC LETTER DAL WITH TWO DOTS VERTICALLY BELOW AND SMALL TAH
+075A  ; [.204C.0020.0002] # ARABIC LETTER DAL WITH INVERTED SMALL V BELOW
+0631  ; [.204D.0020.0002] # ARABIC LETTER REH
+1EE13 ; [.204D.0020.0005] # ARABIC MATHEMATICAL REH
+1EE93 ; [.204D.0020.0005] # ARABIC MATHEMATICAL LOOPED REH
+1EEB3 ; [.204D.0020.0005] # ARABIC MATHEMATICAL DOUBLE-STRUCK REH
+FEAE  ; [.204D.0020.0019] # ARABIC LETTER REH FINAL FORM
+FEAD  ; [.204D.0020.001A] # ARABIC LETTER REH ISOLATED FORM
+FC5C  ; [.204D.0020.001A][.0000.0097.001A] # ARABIC LIGATURE REH WITH SUPERSCRIPT ALEF ISOLATED FORM
+FDF6  ; [.204D.0020.001A][.205F.0020.001A][.20B8.0020.001A][.209E.0020.001A] # ARABIC LIGATURE RASOUL ISOLATED FORM
+FDFC  ; [.204D.0020.001A][.20C8.0020.001A][.2015.0020.001A][.209E.0020.001A] # RIAL SIGN
+0632  ; [.204E.0020.0002] # ARABIC LETTER ZAIN
+1EE06 ; [.204E.0020.0005] # ARABIC MATHEMATICAL ZAIN
+1EE86 ; [.204E.0020.0005] # ARABIC MATHEMATICAL LOOPED ZAIN
+1EEA6 ; [.204E.0020.0005] # ARABIC MATHEMATICAL DOUBLE-STRUCK ZAIN
+FEB0  ; [.204E.0020.0019] # ARABIC LETTER ZAIN FINAL FORM
+FEAF  ; [.204E.0020.001A] # ARABIC LETTER ZAIN ISOLATED FORM
+0691  ; [.204F.0020.0002] # ARABIC LETTER RREH
+FB8D  ; [.204F.0020.0019] # ARABIC LETTER RREH FINAL FORM
+FB8C  ; [.204F.0020.001A] # ARABIC LETTER RREH ISOLATED FORM
+0692  ; [.2050.0020.0002] # ARABIC LETTER REH WITH SMALL V
+0693  ; [.2051.0020.0002] # ARABIC LETTER REH WITH RING
+0694  ; [.2052.0020.0002] # ARABIC LETTER REH WITH DOT BELOW
+0695  ; [.2053.0020.0002] # ARABIC LETTER REH WITH SMALL V BELOW
+0696  ; [.2054.0020.0002] # ARABIC LETTER REH WITH DOT BELOW AND DOT ABOVE
+0697  ; [.2055.0020.0002] # ARABIC LETTER REH WITH TWO DOTS ABOVE
+0698  ; [.2056.0020.0002] # ARABIC LETTER JEH
+FB8B  ; [.2056.0020.0019] # ARABIC LETTER JEH FINAL FORM
+FB8A  ; [.2056.0020.001A] # ARABIC LETTER JEH ISOLATED FORM
+0699  ; [.2057.0020.0002] # ARABIC LETTER REH WITH FOUR DOTS ABOVE
+06EF  ; [.2058.0020.0002] # ARABIC LETTER REH WITH INVERTED V
+075B  ; [.2059.0020.0002] # ARABIC LETTER REH WITH STROKE
+076B  ; [.205A.0020.0002] # ARABIC LETTER REH WITH TWO DOTS VERTICALLY ABOVE
+076C  ; [.205B.0020.0002] # ARABIC LETTER REH WITH HAMZA ABOVE
+0771  ; [.205C.0020.0002] # ARABIC LETTER REH WITH SMALL ARABIC LETTER TAH AND TWO DOTS
+08AA  ; [.205D.0020.0002] # ARABIC LETTER REH WITH LOOP
+08B2  ; [.205E.0020.0002] # ARABIC LETTER ZAIN WITH INVERTED V ABOVE
+0633  ; [.205F.0020.0002] # ARABIC LETTER SEEN
+1EE0E ; [.205F.0020.0005] # ARABIC MATHEMATICAL SEEN
+1EE2E ; [.205F.0020.0005] # ARABIC MATHEMATICAL INITIAL SEEN
+1EE4E ; [.205F.0020.0005] # ARABIC MATHEMATICAL TAILED SEEN
+1EE6E ; [.205F.0020.0005] # ARABIC MATHEMATICAL STRETCHED SEEN
+1EE8E ; [.205F.0020.0005] # ARABIC MATHEMATICAL LOOPED SEEN
+1EEAE ; [.205F.0020.0005] # ARABIC MATHEMATICAL DOUBLE-STRUCK SEEN
+FEB3  ; [.205F.0020.0017] # ARABIC LETTER SEEN INITIAL FORM
+FEB4  ; [.205F.0020.0018] # ARABIC LETTER SEEN MEDIAL FORM
+FEB2  ; [.205F.0020.0019] # ARABIC LETTER SEEN FINAL FORM
+FEB1  ; [.205F.0020.001A] # ARABIC LETTER SEEN ISOLATED FORM
+FCAD  ; [.205F.0020.0017][.202C.0020.0017] # ARABIC LIGATURE SEEN WITH JEEM INITIAL FORM
+FD34  ; [.205F.0020.0018][.202C.0020.0018] # ARABIC LIGATURE SEEN WITH JEEM MEDIAL FORM
+FC1C  ; [.205F.0020.001A][.202C.0020.001A] # ARABIC LIGATURE SEEN WITH JEEM ISOLATED FORM
+FD5D  ; [.205F.0020.0017][.202C.0020.0017][.2033.0020.0017] # ARABIC LIGATURE SEEN WITH JEEM WITH HAH INITIAL FORM
+FD5E  ; [.205F.0020.0019][.202C.0020.0019][.20C6.0020.0019] # ARABIC LIGATURE SEEN WITH JEEM WITH ALEF MAKSURA FINAL FORM
+FCAE  ; [.205F.0020.0017][.2033.0020.0017] # ARABIC LIGATURE SEEN WITH HAH INITIAL FORM
+FD35  ; [.205F.0020.0018][.2033.0020.0018] # ARABIC LIGATURE SEEN WITH HAH MEDIAL FORM
+FC1D  ; [.205F.0020.001A][.2033.0020.001A] # ARABIC LIGATURE SEEN WITH HAH ISOLATED FORM
+FD5C  ; [.205F.0020.0017][.2033.0020.0017][.202C.0020.0017] # ARABIC LIGATURE SEEN WITH HAH WITH JEEM INITIAL FORM
+FCAF  ; [.205F.0020.0017][.2034.0020.0017] # ARABIC LIGATURE SEEN WITH KHAH INITIAL FORM
+FD36  ; [.205F.0020.0018][.2034.0020.0018] # ARABIC LIGATURE SEEN WITH KHAH MEDIAL FORM
+FC1E  ; [.205F.0020.001A][.2034.0020.001A] # ARABIC LIGATURE SEEN WITH KHAH ISOLATED FORM
+FDA8  ; [.205F.0020.0019][.2034.0020.0019][.20C6.0020.0019] # ARABIC LIGATURE SEEN WITH KHAH WITH ALEF MAKSURA FINAL FORM
+FDC6  ; [.205F.0020.0019][.2034.0020.0019][.20C7.0020.0019] # ARABIC LIGATURE SEEN WITH KHAH WITH YEH FINAL FORM
+FD2A  ; [.205F.0020.0019][.204D.0020.0019] # ARABIC LIGATURE SEEN WITH REH FINAL FORM
+FD0E  ; [.205F.0020.001A][.204D.0020.001A] # ARABIC LIGATURE SEEN WITH REH ISOLATED FORM
+FCB0  ; [.205F.0020.0017][.20A5.0020.0017] # ARABIC LIGATURE SEEN WITH MEEM INITIAL FORM
+FCE7  ; [.205F.0020.0018][.20A5.0020.0018] # ARABIC LIGATURE SEEN WITH MEEM MEDIAL FORM
+FC1F  ; [.205F.0020.001A][.20A5.0020.001A] # ARABIC LIGATURE SEEN WITH MEEM ISOLATED FORM
+FD61  ; [.205F.0020.0017][.20A5.0020.0017][.202C.0020.0017] # ARABIC LIGATURE SEEN WITH MEEM WITH JEEM INITIAL FORM
+FD60  ; [.205F.0020.0017][.20A5.0020.0017][.2033.0020.0017] # ARABIC LIGATURE SEEN WITH MEEM WITH HAH INITIAL FORM
+FD5F  ; [.205F.0020.0019][.20A5.0020.0019][.2033.0020.0019] # ARABIC LIGATURE SEEN WITH MEEM WITH HAH FINAL FORM
+FD63  ; [.205F.0020.0017][.20A5.0020.0017][.20A5.0020.0017] # ARABIC LIGATURE SEEN WITH MEEM WITH MEEM INITIAL FORM
+FD62  ; [.205F.0020.0019][.20A5.0020.0019][.20A5.0020.0019] # ARABIC LIGATURE SEEN WITH MEEM WITH MEEM FINAL FORM
+FD31  ; [.205F.0020.0017][.20B2.0020.0017] # ARABIC LIGATURE SEEN WITH HEH INITIAL FORM
+FCE8  ; [.205F.0020.0018][.20B2.0020.0018] # ARABIC LIGATURE SEEN WITH HEH MEDIAL FORM
+FD17  ; [.205F.0020.0019][.20C6.0020.0019] # ARABIC LIGATURE SEEN WITH ALEF MAKSURA FINAL FORM
+FCFB  ; [.205F.0020.001A][.20C6.0020.001A] # ARABIC LIGATURE SEEN WITH ALEF MAKSURA ISOLATED FORM
+FD18  ; [.205F.0020.0019][.20C7.0020.0019] # ARABIC LIGATURE SEEN WITH YEH FINAL FORM
+FCFC  ; [.205F.0020.001A][.20C7.0020.001A] # ARABIC LIGATURE SEEN WITH YEH ISOLATED FORM
+0634  ; [.2060.0020.0002] # ARABIC LETTER SHEEN
+1EE14 ; [.2060.0020.0005] # ARABIC MATHEMATICAL SHEEN
+1EE34 ; [.2060.0020.0005] # ARABIC MATHEMATICAL INITIAL SHEEN
+1EE54 ; [.2060.0020.0005] # ARABIC MATHEMATICAL TAILED SHEEN
+1EE74 ; [.2060.0020.0005] # ARABIC MATHEMATICAL STRETCHED SHEEN
+1EE94 ; [.2060.0020.0005] # ARABIC MATHEMATICAL LOOPED SHEEN
+1EEB4 ; [.2060.0020.0005] # ARABIC MATHEMATICAL DOUBLE-STRUCK SHEEN
+FEB7  ; [.2060.0020.0017] # ARABIC LETTER SHEEN INITIAL FORM
+FEB8  ; [.2060.0020.0018] # ARABIC LETTER SHEEN MEDIAL FORM
+FEB6  ; [.2060.0020.0019] # ARABIC LETTER SHEEN FINAL FORM
+FEB5  ; [.2060.0020.001A] # ARABIC LETTER SHEEN ISOLATED FORM
+FD2D  ; [.2060.0020.0017][.202C.0020.0017] # ARABIC LIGATURE SHEEN WITH JEEM INITIAL FORM
+FD37  ; [.2060.0020.0018][.202C.0020.0018] # ARABIC LIGATURE SHEEN WITH JEEM MEDIAL FORM
+FD25  ; [.2060.0020.0019][.202C.0020.0019] # ARABIC LIGATURE SHEEN WITH JEEM FINAL FORM
+FD09  ; [.2060.0020.001A][.202C.0020.001A] # ARABIC LIGATURE SHEEN WITH JEEM ISOLATED FORM
+FD69  ; [.2060.0020.0019][.202C.0020.0019][.20C7.0020.0019] # ARABIC LIGATURE SHEEN WITH JEEM WITH YEH FINAL FORM
+FD2E  ; [.2060.0020.0017][.2033.0020.0017] # ARABIC LIGATURE SHEEN WITH HAH INITIAL FORM
+FD38  ; [.2060.0020.0018][.2033.0020.0018] # ARABIC LIGATURE SHEEN WITH HAH MEDIAL FORM
+FD26  ; [.2060.0020.0019][.2033.0020.0019] # ARABIC LIGATURE SHEEN WITH HAH FINAL FORM
+FD0A  ; [.2060.0020.001A][.2033.0020.001A] # ARABIC LIGATURE SHEEN WITH HAH ISOLATED FORM
+FD68  ; [.2060.0020.0017][.2033.0020.0017][.20A5.0020.0017] # ARABIC LIGATURE SHEEN WITH HAH WITH MEEM INITIAL FORM
+FD67  ; [.2060.0020.0019][.2033.0020.0019][.20A5.0020.0019] # ARABIC LIGATURE SHEEN WITH HAH WITH MEEM FINAL FORM
+FDAA  ; [.2060.0020.0019][.2033.0020.0019][.20C7.0020.0019] # ARABIC LIGATURE SHEEN WITH HAH WITH YEH FINAL FORM
+FD2F  ; [.2060.0020.0017][.2034.0020.0017] # ARABIC LIGATURE SHEEN WITH KHAH INITIAL FORM
+FD39  ; [.2060.0020.0018][.2034.0020.0018] # ARABIC LIGATURE SHEEN WITH KHAH MEDIAL FORM
+FD27  ; [.2060.0020.0019][.2034.0020.0019] # ARABIC LIGATURE SHEEN WITH KHAH FINAL FORM
+FD0B  ; [.2060.0020.001A][.2034.0020.001A] # ARABIC LIGATURE SHEEN WITH KHAH ISOLATED FORM
+FD29  ; [.2060.0020.0019][.204D.0020.0019] # ARABIC LIGATURE SHEEN WITH REH FINAL FORM
+FD0D  ; [.2060.0020.001A][.204D.0020.001A] # ARABIC LIGATURE SHEEN WITH REH ISOLATED FORM
+FD30  ; [.2060.0020.0017][.20A5.0020.0017] # ARABIC LIGATURE SHEEN WITH MEEM INITIAL FORM
+FCE9  ; [.2060.0020.0018][.20A5.0020.0018] # ARABIC LIGATURE SHEEN WITH MEEM MEDIAL FORM
+FD28  ; [.2060.0020.0019][.20A5.0020.0019] # ARABIC LIGATURE SHEEN WITH MEEM FINAL FORM
+FD0C  ; [.2060.0020.001A][.20A5.0020.001A] # ARABIC LIGATURE SHEEN WITH MEEM ISOLATED FORM
+FD6B  ; [.2060.0020.0017][.20A5.0020.0017][.2034.0020.0017] # ARABIC LIGATURE SHEEN WITH MEEM WITH KHAH INITIAL FORM
+FD6A  ; [.2060.0020.0019][.20A5.0020.0019][.2034.0020.0019] # ARABIC LIGATURE SHEEN WITH MEEM WITH KHAH FINAL FORM
+FD6D  ; [.2060.0020.0017][.20A5.0020.0017][.20A5.0020.0017] # ARABIC LIGATURE SHEEN WITH MEEM WITH MEEM INITIAL FORM
+FD6C  ; [.2060.0020.0019][.20A5.0020.0019][.20A5.0020.0019] # ARABIC LIGATURE SHEEN WITH MEEM WITH MEEM FINAL FORM
+FD32  ; [.2060.0020.0017][.20B2.0020.0017] # ARABIC LIGATURE SHEEN WITH HEH INITIAL FORM
+FCEA  ; [.2060.0020.0018][.20B2.0020.0018] # ARABIC LIGATURE SHEEN WITH HEH MEDIAL FORM
+FD19  ; [.2060.0020.0019][.20C6.0020.0019] # ARABIC LIGATURE SHEEN WITH ALEF MAKSURA FINAL FORM
+FCFD  ; [.2060.0020.001A][.20C6.0020.001A] # ARABIC LIGATURE SHEEN WITH ALEF MAKSURA ISOLATED FORM
+FD1A  ; [.2060.0020.0019][.20C7.0020.0019] # ARABIC LIGATURE SHEEN WITH YEH FINAL FORM
+FCFE  ; [.2060.0020.001A][.20C7.0020.001A] # ARABIC LIGATURE SHEEN WITH YEH ISOLATED FORM
+069A  ; [.2061.0020.0002] # ARABIC LETTER SEEN WITH DOT BELOW AND DOT ABOVE
+069B  ; [.2062.0020.0002] # ARABIC LETTER SEEN WITH THREE DOTS BELOW
+069C  ; [.2063.0020.0002] # ARABIC LETTER SEEN WITH THREE DOTS BELOW AND THREE DOTS ABOVE
+06FA  ; [.2064.0020.0002] # ARABIC LETTER SHEEN WITH DOT BELOW
+075C  ; [.2065.0020.0002] # ARABIC LETTER SEEN WITH FOUR DOTS ABOVE
+076D  ; [.2066.0020.0002] # ARABIC LETTER SEEN WITH TWO DOTS VERTICALLY ABOVE
+0770  ; [.2067.0020.0002] # ARABIC LETTER SEEN WITH SMALL ARABIC LETTER TAH AND TWO DOTS
+077D  ; [.2068.0020.0002] # ARABIC LETTER SEEN WITH EXTENDED ARABIC-INDIC DIGIT FOUR ABOVE
+077E  ; [.2069.0020.0002] # ARABIC LETTER SEEN WITH INVERTED V
+0635  ; [.206A.0020.0002] # ARABIC LETTER SAD
+1EE11 ; [.206A.0020.0005] # ARABIC MATHEMATICAL SAD
+1EE31 ; [.206A.0020.0005] # ARABIC MATHEMATICAL INITIAL SAD
+1EE51 ; [.206A.0020.0005] # ARABIC MATHEMATICAL TAILED SAD
+1EE71 ; [.206A.0020.0005] # ARABIC MATHEMATICAL STRETCHED SAD
+1EE91 ; [.206A.0020.0005] # ARABIC MATHEMATICAL LOOPED SAD
+1EEB1 ; [.206A.0020.0005] # ARABIC MATHEMATICAL DOUBLE-STRUCK SAD
+FEBB  ; [.206A.0020.0017] # ARABIC LETTER SAD INITIAL FORM
+FEBC  ; [.206A.0020.0018] # ARABIC LETTER SAD MEDIAL FORM
+FEBA  ; [.206A.0020.0019] # ARABIC LETTER SAD FINAL FORM
+FEB9  ; [.206A.0020.001A] # ARABIC LETTER SAD ISOLATED FORM
+FCB1  ; [.206A.0020.0017][.2033.0020.0017] # ARABIC LIGATURE SAD WITH HAH INITIAL FORM
+FC20  ; [.206A.0020.001A][.2033.0020.001A] # ARABIC LIGATURE SAD WITH HAH ISOLATED FORM
+FD65  ; [.206A.0020.0017][.2033.0020.0017][.2033.0020.0017] # ARABIC LIGATURE SAD WITH HAH WITH HAH INITIAL FORM
+FD64  ; [.206A.0020.0019][.2033.0020.0019][.2033.0020.0019] # ARABIC LIGATURE SAD WITH HAH WITH HAH FINAL FORM
+FDA9  ; [.206A.0020.0019][.2033.0020.0019][.20C7.0020.0019] # ARABIC LIGATURE SAD WITH HAH WITH YEH FINAL FORM
+FCB2  ; [.206A.0020.0017][.2034.0020.0017] # ARABIC LIGATURE SAD WITH KHAH INITIAL FORM
+FD2B  ; [.206A.0020.0019][.204D.0020.0019] # ARABIC LIGATURE SAD WITH REH FINAL FORM
+FD0F  ; [.206A.0020.001A][.204D.0020.001A] # ARABIC LIGATURE SAD WITH REH ISOLATED FORM
+FDF5  ; [.206A.0020.001A][.209E.0020.001A][.2074.0020.001A][.20A5.0020.001A] # ARABIC LIGATURE SALAM ISOLATED FORM
+FDF9  ; [.206A.0020.001A][.209E.0020.001A][.20C6.0020.001A] # ARABIC LIGATURE SALLA ISOLATED FORM
+FDFA  ; [.206A.0020.001A][.209E.0020.001A][.20C6.0020.001A][*0209.0020.001A][.2015.0020.001A][.209E.0020.001A][.209E.0020.001A][.20B2.0020.001A][*0209.0020.001A][.2074.0020.001A][.209E.0020.001A][.20C7.0020.001A][.20B2.0020.001A][*0209.0020.001A][.20B8.0020.001A][.205F.0020.001A][.209E.0020.001A][.20A5.0020.001A] # ARABIC LIGATURE SALLALLAHOU ALAYHE WASALLAM
+FDF0  ; [.206A.0020.001A][.209E.0020.001A][.20D4.0020.001A] # ARABIC LIGATURE SALLA USED AS KORANIC STOP SIGN ISOLATED FORM
+FCB3  ; [.206A.0020.0017][.20A5.0020.0017] # ARABIC LIGATURE SAD WITH MEEM INITIAL FORM
+FC21  ; [.206A.0020.001A][.20A5.0020.001A] # ARABIC LIGATURE SAD WITH MEEM ISOLATED FORM
+FDC5  ; [.206A.0020.0017][.20A5.0020.0017][.20A5.0020.0017] # ARABIC LIGATURE SAD WITH MEEM WITH MEEM INITIAL FORM
+FD66  ; [.206A.0020.0019][.20A5.0020.0019][.20A5.0020.0019] # ARABIC LIGATURE SAD WITH MEEM WITH MEEM FINAL FORM
+FD21  ; [.206A.0020.0019][.20C6.0020.0019] # ARABIC LIGATURE SAD WITH ALEF MAKSURA FINAL FORM
+FD05  ; [.206A.0020.001A][.20C6.0020.001A] # ARABIC LIGATURE SAD WITH ALEF MAKSURA ISOLATED FORM
+FD22  ; [.206A.0020.0019][.20C7.0020.0019] # ARABIC LIGATURE SAD WITH YEH FINAL FORM
+FD06  ; [.206A.0020.001A][.20C7.0020.001A] # ARABIC LIGATURE SAD WITH YEH ISOLATED FORM
+0636  ; [.206B.0020.0002] # ARABIC LETTER DAD
+1EE19 ; [.206B.0020.0005] # ARABIC MATHEMATICAL DAD
+1EE39 ; [.206B.0020.0005] # ARABIC MATHEMATICAL INITIAL DAD
+1EE59 ; [.206B.0020.0005] # ARABIC MATHEMATICAL TAILED DAD
+1EE79 ; [.206B.0020.0005] # ARABIC MATHEMATICAL STRETCHED DAD
+1EE99 ; [.206B.0020.0005] # ARABIC MATHEMATICAL LOOPED DAD
+1EEB9 ; [.206B.0020.0005] # ARABIC MATHEMATICAL DOUBLE-STRUCK DAD
+FEBF  ; [.206B.0020.0017] # ARABIC LETTER DAD INITIAL FORM
+FEC0  ; [.206B.0020.0018] # ARABIC LETTER DAD MEDIAL FORM
+FEBE  ; [.206B.0020.0019] # ARABIC LETTER DAD FINAL FORM
+FEBD  ; [.206B.0020.001A] # ARABIC LETTER DAD ISOLATED FORM
+FCB4  ; [.206B.0020.0017][.202C.0020.0017] # ARABIC LIGATURE DAD WITH JEEM INITIAL FORM
+FC22  ; [.206B.0020.001A][.202C.0020.001A] # ARABIC LIGATURE DAD WITH JEEM ISOLATED FORM
+FCB5  ; [.206B.0020.0017][.2033.0020.0017] # ARABIC LIGATURE DAD WITH HAH INITIAL FORM
+FC23  ; [.206B.0020.001A][.2033.0020.001A] # ARABIC LIGATURE DAD WITH HAH ISOLATED FORM
+FD6E  ; [.206B.0020.0019][.2033.0020.0019][.20C6.0020.0019] # ARABIC LIGATURE DAD WITH HAH WITH ALEF MAKSURA FINAL FORM
+FDAB  ; [.206B.0020.0019][.2033.0020.0019][.20C7.0020.0019] # ARABIC LIGATURE DAD WITH HAH WITH YEH FINAL FORM
+FCB6  ; [.206B.0020.0017][.2034.0020.0017] # ARABIC LIGATURE DAD WITH KHAH INITIAL FORM
+FC24  ; [.206B.0020.001A][.2034.0020.001A] # ARABIC LIGATURE DAD WITH KHAH ISOLATED FORM
+FD70  ; [.206B.0020.0017][.2034.0020.0017][.20A5.0020.0017] # ARABIC LIGATURE DAD WITH KHAH WITH MEEM INITIAL FORM
+FD6F  ; [.206B.0020.0019][.2034.0020.0019][.20A5.0020.0019] # ARABIC LIGATURE DAD WITH KHAH WITH MEEM FINAL FORM
+FD2C  ; [.206B.0020.0019][.204D.0020.0019] # ARABIC LIGATURE DAD WITH REH FINAL FORM
+FD10  ; [.206B.0020.001A][.204D.0020.001A] # ARABIC LIGATURE DAD WITH REH ISOLATED FORM
+FCB7  ; [.206B.0020.0017][.20A5.0020.0017] # ARABIC LIGATURE DAD WITH MEEM INITIAL FORM
+FC25  ; [.206B.0020.001A][.20A5.0020.001A] # ARABIC LIGATURE DAD WITH MEEM ISOLATED FORM
+FD23  ; [.206B.0020.0019][.20C6.0020.0019] # ARABIC LIGATURE DAD WITH ALEF MAKSURA FINAL FORM
+FD07  ; [.206B.0020.001A][.20C6.0020.001A] # ARABIC LIGATURE DAD WITH ALEF MAKSURA ISOLATED FORM
+FD24  ; [.206B.0020.0019][.20C7.0020.0019] # ARABIC LIGATURE DAD WITH YEH FINAL FORM
+FD08  ; [.206B.0020.001A][.20C7.0020.001A] # ARABIC LIGATURE DAD WITH YEH ISOLATED FORM
+069D  ; [.206C.0020.0002] # ARABIC LETTER SAD WITH TWO DOTS BELOW
+08AF  ; [.206D.0020.0002] # ARABIC LETTER SAD WITH THREE DOTS BELOW
+069E  ; [.206E.0020.0002] # ARABIC LETTER SAD WITH THREE DOTS ABOVE
+06FB  ; [.206F.0020.0002] # ARABIC LETTER DAD WITH DOT BELOW
+0637  ; [.2070.0020.0002] # ARABIC LETTER TAH
+1EE08 ; [.2070.0020.0005] # ARABIC MATHEMATICAL TAH
+1EE68 ; [.2070.0020.0005] # ARABIC MATHEMATICAL STRETCHED TAH
+1EE88 ; [.2070.0020.0005] # ARABIC MATHEMATICAL LOOPED TAH
+1EEA8 ; [.2070.0020.0005] # ARABIC MATHEMATICAL DOUBLE-STRUCK TAH
+FEC3  ; [.2070.0020.0017] # ARABIC LETTER TAH INITIAL FORM
+FEC4  ; [.2070.0020.0018] # ARABIC LETTER TAH MEDIAL FORM
+FEC2  ; [.2070.0020.0019] # ARABIC LETTER TAH FINAL FORM
+FEC1  ; [.2070.0020.001A] # ARABIC LETTER TAH ISOLATED FORM
+FCB8  ; [.2070.0020.0017][.2033.0020.0017] # ARABIC LIGATURE TAH WITH HAH INITIAL FORM
+FC26  ; [.2070.0020.001A][.2033.0020.001A] # ARABIC LIGATURE TAH WITH HAH ISOLATED FORM
+FD33  ; [.2070.0020.0017][.20A5.0020.0017] # ARABIC LIGATURE TAH WITH MEEM INITIAL FORM
+FD3A  ; [.2070.0020.0018][.20A5.0020.0018] # ARABIC LIGATURE TAH WITH MEEM MEDIAL FORM
+FC27  ; [.2070.0020.001A][.20A5.0020.001A] # ARABIC LIGATURE TAH WITH MEEM ISOLATED FORM
+FD72  ; [.2070.0020.0017][.20A5.0020.0017][.2033.0020.0017] # ARABIC LIGATURE TAH WITH MEEM WITH HAH INITIAL FORM
+FD71  ; [.2070.0020.0019][.20A5.0020.0019][.2033.0020.0019] # ARABIC LIGATURE TAH WITH MEEM WITH HAH FINAL FORM
+FD73  ; [.2070.0020.0017][.20A5.0020.0017][.20A5.0020.0017] # ARABIC LIGATURE TAH WITH MEEM WITH MEEM INITIAL FORM
+FD74  ; [.2070.0020.0019][.20A5.0020.0019][.20C7.0020.0019] # ARABIC LIGATURE TAH WITH MEEM WITH YEH FINAL FORM
+FD11  ; [.2070.0020.0019][.20C6.0020.0019] # ARABIC LIGATURE TAH WITH ALEF MAKSURA FINAL FORM
+FCF5  ; [.2070.0020.001A][.20C6.0020.001A] # ARABIC LIGATURE TAH WITH ALEF MAKSURA ISOLATED FORM
+FD12  ; [.2070.0020.0019][.20C7.0020.0019] # ARABIC LIGATURE TAH WITH YEH FINAL FORM
+FCF6  ; [.2070.0020.001A][.20C7.0020.001A] # ARABIC LIGATURE TAH WITH YEH ISOLATED FORM
+0638  ; [.2071.0020.0002] # ARABIC LETTER ZAH
+1EE1A ; [.2071.0020.0005] # ARABIC MATHEMATICAL ZAH
+1EE7A ; [.2071.0020.0005] # ARABIC MATHEMATICAL STRETCHED ZAH
+1EE9A ; [.2071.0020.0005] # ARABIC MATHEMATICAL LOOPED ZAH
+1EEBA ; [.2071.0020.0005] # ARABIC MATHEMATICAL DOUBLE-STRUCK ZAH
+FEC7  ; [.2071.0020.0017] # ARABIC LETTER ZAH INITIAL FORM
+FEC8  ; [.2071.0020.0018] # ARABIC LETTER ZAH MEDIAL FORM
+FEC6  ; [.2071.0020.0019] # ARABIC LETTER ZAH FINAL FORM
+FEC5  ; [.2071.0020.001A] # ARABIC LETTER ZAH ISOLATED FORM
+FCB9  ; [.2071.0020.0017][.20A5.0020.0017] # ARABIC LIGATURE ZAH WITH MEEM INITIAL FORM
+FD3B  ; [.2071.0020.0018][.20A5.0020.0018] # ARABIC LIGATURE ZAH WITH MEEM MEDIAL FORM
+FC28  ; [.2071.0020.001A][.20A5.0020.001A] # ARABIC LIGATURE ZAH WITH MEEM ISOLATED FORM
+069F  ; [.2072.0020.0002] # ARABIC LETTER TAH WITH THREE DOTS ABOVE
+08A3  ; [.2073.0020.0002] # ARABIC LETTER TAH WITH TWO DOTS ABOVE
+0639  ; [.2074.0020.0002] # ARABIC LETTER AIN
+1EE0F ; [.2074.0020.0005] # ARABIC MATHEMATICAL AIN
+1EE2F ; [.2074.0020.0005] # ARABIC MATHEMATICAL INITIAL AIN
+1EE4F ; [.2074.0020.0005] # ARABIC MATHEMATICAL TAILED AIN
+1EE6F ; [.2074.0020.0005] # ARABIC MATHEMATICAL STRETCHED AIN
+1EE8F ; [.2074.0020.0005] # ARABIC MATHEMATICAL LOOPED AIN
+1EEAF ; [.2074.0020.0005] # ARABIC MATHEMATICAL DOUBLE-STRUCK AIN
+FECB  ; [.2074.0020.0017] # ARABIC LETTER AIN INITIAL FORM
+FECC  ; [.2074.0020.0018] # ARABIC LETTER AIN MEDIAL FORM
+FECA  ; [.2074.0020.0019] # ARABIC LETTER AIN FINAL FORM
+FEC9  ; [.2074.0020.001A] # ARABIC LETTER AIN ISOLATED FORM
+FCBA  ; [.2074.0020.0017][.202C.0020.0017] # ARABIC LIGATURE AIN WITH JEEM INITIAL FORM
+FC29  ; [.2074.0020.001A][.202C.0020.001A] # ARABIC LIGATURE AIN WITH JEEM ISOLATED FORM
+FDC4  ; [.2074.0020.0017][.202C.0020.0017][.20A5.0020.0017] # ARABIC LIGATURE AIN WITH JEEM WITH MEEM INITIAL FORM
+FD75  ; [.2074.0020.0019][.202C.0020.0019][.20A5.0020.0019] # ARABIC LIGATURE AIN WITH JEEM WITH MEEM FINAL FORM
+FDF7  ; [.2074.0020.001A][.209E.0020.001A][.20C7.0020.001A][.20B2.0020.001A] # ARABIC LIGATURE ALAYHE ISOLATED FORM
+FCBB  ; [.2074.0020.0017][.20A5.0020.0017] # ARABIC LIGATURE AIN WITH MEEM INITIAL FORM
+FC2A  ; [.2074.0020.001A][.20A5.0020.001A] # ARABIC LIGATURE AIN WITH MEEM ISOLATED FORM
+FD77  ; [.2074.0020.0017][.20A5.0020.0017][.20A5.0020.0017] # ARABIC LIGATURE AIN WITH MEEM WITH MEEM INITIAL FORM
+FD76  ; [.2074.0020.0019][.20A5.0020.0019][.20A5.0020.0019] # ARABIC LIGATURE AIN WITH MEEM WITH MEEM FINAL FORM
+FD78  ; [.2074.0020.0019][.20A5.0020.0019][.20C6.0020.0019] # ARABIC LIGATURE AIN WITH MEEM WITH ALEF MAKSURA FINAL FORM
+FDB6  ; [.2074.0020.0019][.20A5.0020.0019][.20C7.0020.0019] # ARABIC LIGATURE AIN WITH MEEM WITH YEH FINAL FORM
+FD13  ; [.2074.0020.0019][.20C6.0020.0019] # ARABIC LIGATURE AIN WITH ALEF MAKSURA FINAL FORM
+FCF7  ; [.2074.0020.001A][.20C6.0020.001A] # ARABIC LIGATURE AIN WITH ALEF MAKSURA ISOLATED FORM
+FD14  ; [.2074.0020.0019][.20C7.0020.0019] # ARABIC LIGATURE AIN WITH YEH FINAL FORM
+FCF8  ; [.2074.0020.001A][.20C7.0020.001A] # ARABIC LIGATURE AIN WITH YEH ISOLATED FORM
+063A  ; [.2075.0020.0002] # ARABIC LETTER GHAIN
+1EE1B ; [.2075.0020.0005] # ARABIC MATHEMATICAL GHAIN
+1EE3B ; [.2075.0020.0005] # ARABIC MATHEMATICAL INITIAL GHAIN
+1EE5B ; [.2075.0020.0005] # ARABIC MATHEMATICAL TAILED GHAIN
+1EE7B ; [.2075.0020.0005] # ARABIC MATHEMATICAL STRETCHED GHAIN
+1EE9B ; [.2075.0020.0005] # ARABIC MATHEMATICAL LOOPED GHAIN
+1EEBB ; [.2075.0020.0005] # ARABIC MATHEMATICAL DOUBLE-STRUCK GHAIN
+FECF  ; [.2075.0020.0017] # ARABIC LETTER GHAIN INITIAL FORM
+FED0  ; [.2075.0020.0018] # ARABIC LETTER GHAIN MEDIAL FORM
+FECE  ; [.2075.0020.0019] # ARABIC LETTER GHAIN FINAL FORM
+FECD  ; [.2075.0020.001A] # ARABIC LETTER GHAIN ISOLATED FORM
+FCBC  ; [.2075.0020.0017][.202C.0020.0017] # ARABIC LIGATURE GHAIN WITH JEEM INITIAL FORM
+FC2B  ; [.2075.0020.001A][.202C.0020.001A] # ARABIC LIGATURE GHAIN WITH JEEM ISOLATED FORM
+FCBD  ; [.2075.0020.0017][.20A5.0020.0017] # ARABIC LIGATURE GHAIN WITH MEEM INITIAL FORM
+FC2C  ; [.2075.0020.001A][.20A5.0020.001A] # ARABIC LIGATURE GHAIN WITH MEEM ISOLATED FORM
+FD79  ; [.2075.0020.0019][.20A5.0020.0019][.20A5.0020.0019] # ARABIC LIGATURE GHAIN WITH MEEM WITH MEEM FINAL FORM
+FD7B  ; [.2075.0020.0019][.20A5.0020.0019][.20C6.0020.0019] # ARABIC LIGATURE GHAIN WITH MEEM WITH ALEF MAKSURA FINAL FORM
+FD7A  ; [.2075.0020.0019][.20A5.0020.0019][.20C7.0020.0019] # ARABIC LIGATURE GHAIN WITH MEEM WITH YEH FINAL FORM
+FD15  ; [.2075.0020.0019][.20C6.0020.0019] # ARABIC LIGATURE GHAIN WITH ALEF MAKSURA FINAL FORM
+FCF9  ; [.2075.0020.001A][.20C6.0020.001A] # ARABIC LIGATURE GHAIN WITH ALEF MAKSURA ISOLATED FORM
+FD16  ; [.2075.0020.0019][.20C7.0020.0019] # ARABIC LIGATURE GHAIN WITH YEH FINAL FORM
+FCFA  ; [.2075.0020.001A][.20C7.0020.001A] # ARABIC LIGATURE GHAIN WITH YEH ISOLATED FORM
+06A0  ; [.2076.0020.0002] # ARABIC LETTER AIN WITH THREE DOTS ABOVE
+06FC  ; [.2077.0020.0002] # ARABIC LETTER GHAIN WITH DOT BELOW
+075D  ; [.2078.0020.0002] # ARABIC LETTER AIN WITH TWO DOTS ABOVE
+075E  ; [.2079.0020.0002] # ARABIC LETTER AIN WITH THREE DOTS POINTING DOWNWARDS ABOVE
+075F  ; [.207A.0020.0002] # ARABIC LETTER AIN WITH TWO DOTS VERTICALLY ABOVE
+0641  ; [.207B.0020.0002] # ARABIC LETTER FEH
+1EE10 ; [.207B.0020.0005] # ARABIC MATHEMATICAL FEH
+1EE30 ; [.207B.0020.0005] # ARABIC MATHEMATICAL INITIAL FEH
+1EE70 ; [.207B.0020.0005] # ARABIC MATHEMATICAL STRETCHED FEH
+1EE90 ; [.207B.0020.0005] # ARABIC MATHEMATICAL LOOPED FEH
+1EEB0 ; [.207B.0020.0005] # ARABIC MATHEMATICAL DOUBLE-STRUCK FEH
+FED3  ; [.207B.0020.0017] # ARABIC LETTER FEH INITIAL FORM
+FED4  ; [.207B.0020.0018] # ARABIC LETTER FEH MEDIAL FORM
+FED2  ; [.207B.0020.0019] # ARABIC LETTER FEH FINAL FORM
+FED1  ; [.207B.0020.001A] # ARABIC LETTER FEH ISOLATED FORM
+FCBE  ; [.207B.0020.0017][.202C.0020.0017] # ARABIC LIGATURE FEH WITH JEEM INITIAL FORM
+FC2D  ; [.207B.0020.001A][.202C.0020.001A] # ARABIC LIGATURE FEH WITH JEEM ISOLATED FORM
+FCBF  ; [.207B.0020.0017][.2033.0020.0017] # ARABIC LIGATURE FEH WITH HAH INITIAL FORM
+FC2E  ; [.207B.0020.001A][.2033.0020.001A] # ARABIC LIGATURE FEH WITH HAH ISOLATED FORM
+FCC0  ; [.207B.0020.0017][.2034.0020.0017] # ARABIC LIGATURE FEH WITH KHAH INITIAL FORM
+FC2F  ; [.207B.0020.001A][.2034.0020.001A] # ARABIC LIGATURE FEH WITH KHAH ISOLATED FORM
+FD7D  ; [.207B.0020.0017][.2034.0020.0017][.20A5.0020.0017] # ARABIC LIGATURE FEH WITH KHAH WITH MEEM INITIAL FORM
+FD7C  ; [.207B.0020.0019][.2034.0020.0019][.20A5.0020.0019] # ARABIC LIGATURE FEH WITH KHAH WITH MEEM FINAL FORM
+FCC1  ; [.207B.0020.0017][.20A5.0020.0017] # ARABIC LIGATURE FEH WITH MEEM INITIAL FORM
+FC30  ; [.207B.0020.001A][.20A5.0020.001A] # ARABIC LIGATURE FEH WITH MEEM ISOLATED FORM
+FDC1  ; [.207B.0020.0019][.20A5.0020.0019][.20C7.0020.0019] # ARABIC LIGATURE FEH WITH MEEM WITH YEH FINAL FORM
+FC7C  ; [.207B.0020.0019][.20C6.0020.0019] # ARABIC LIGATURE FEH WITH ALEF MAKSURA FINAL FORM
+FC31  ; [.207B.0020.001A][.20C6.0020.001A] # ARABIC LIGATURE FEH WITH ALEF MAKSURA ISOLATED FORM
+FC7D  ; [.207B.0020.0019][.20C7.0020.0019] # ARABIC LIGATURE FEH WITH YEH FINAL FORM
+FC32  ; [.207B.0020.001A][.20C7.0020.001A] # ARABIC LIGATURE FEH WITH YEH ISOLATED FORM
+06A1  ; [.207C.0020.0002] # ARABIC LETTER DOTLESS FEH
+1EE1E ; [.207C.0020.0005] # ARABIC MATHEMATICAL DOTLESS FEH
+1EE7E ; [.207C.0020.0005] # ARABIC MATHEMATICAL STRETCHED DOTLESS FEH
+06A2  ; [.207D.0020.0002] # ARABIC LETTER FEH WITH DOT MOVED BELOW
+06A3  ; [.207E.0020.0002] # ARABIC LETTER FEH WITH DOT BELOW
+06A4  ; [.207F.0020.0002] # ARABIC LETTER VEH
+FB6C  ; [.207F.0020.0017] # ARABIC LETTER VEH INITIAL FORM
+FB6D  ; [.207F.0020.0018] # ARABIC LETTER VEH MEDIAL FORM
+FB6B  ; [.207F.0020.0019] # ARABIC LETTER VEH FINAL FORM
+FB6A  ; [.207F.0020.001A] # ARABIC LETTER VEH ISOLATED FORM
+08A4  ; [.2080.0020.0002] # ARABIC LETTER FEH WITH DOT BELOW AND THREE DOTS ABOVE
+06A5  ; [.2081.0020.0002] # ARABIC LETTER FEH WITH THREE DOTS BELOW
+06A6  ; [.2082.0020.0002] # ARABIC LETTER PEHEH
+FB70  ; [.2082.0020.0017] # ARABIC LETTER PEHEH INITIAL FORM
+FB71  ; [.2082.0020.0018] # ARABIC LETTER PEHEH MEDIAL FORM
+FB6F  ; [.2082.0020.0019] # ARABIC LETTER PEHEH FINAL FORM
+FB6E  ; [.2082.0020.001A] # ARABIC LETTER PEHEH ISOLATED FORM
+0760  ; [.2083.0020.0002] # ARABIC LETTER FEH WITH TWO DOTS BELOW
+0761  ; [.2084.0020.0002] # ARABIC LETTER FEH WITH THREE DOTS POINTING UPWARDS BELOW
+066F  ; [.2085.0020.0002] # ARABIC LETTER DOTLESS QAF
+1EE1F ; [.2085.0020.0005] # ARABIC MATHEMATICAL DOTLESS QAF
+1EE5F ; [.2085.0020.0005] # ARABIC MATHEMATICAL TAILED DOTLESS QAF
+0642  ; [.2086.0020.0002] # ARABIC LETTER QAF
+1EE12 ; [.2086.0020.0005] # ARABIC MATHEMATICAL QAF
+1EE32 ; [.2086.0020.0005] # ARABIC MATHEMATICAL INITIAL QAF
+1EE52 ; [.2086.0020.0005] # ARABIC MATHEMATICAL TAILED QAF
+1EE72 ; [.2086.0020.0005] # ARABIC MATHEMATICAL STRETCHED QAF
+1EE92 ; [.2086.0020.0005] # ARABIC MATHEMATICAL LOOPED QAF
+1EEB2 ; [.2086.0020.0005] # ARABIC MATHEMATICAL DOUBLE-STRUCK QAF
+FED7  ; [.2086.0020.0017] # ARABIC LETTER QAF INITIAL FORM
+FED8  ; [.2086.0020.0018] # ARABIC LETTER QAF MEDIAL FORM
+FED6  ; [.2086.0020.0019] # ARABIC LETTER QAF FINAL FORM
+FED5  ; [.2086.0020.001A] # ARABIC LETTER QAF ISOLATED FORM
+FCC2  ; [.2086.0020.0017][.2033.0020.0017] # ARABIC LIGATURE QAF WITH HAH INITIAL FORM
+FC33  ; [.2086.0020.001A][.2033.0020.001A] # ARABIC LIGATURE QAF WITH HAH ISOLATED FORM
+FDF1  ; [.2086.0020.001A][.209E.0020.001A][.20D4.0020.001A] # ARABIC LIGATURE QALA USED AS KORANIC STOP SIGN ISOLATED FORM
+FCC3  ; [.2086.0020.0017][.20A5.0020.0017] # ARABIC LIGATURE QAF WITH MEEM INITIAL FORM
+FC34  ; [.2086.0020.001A][.20A5.0020.001A] # ARABIC LIGATURE QAF WITH MEEM ISOLATED FORM
+FDB4  ; [.2086.0020.0017][.20A5.0020.0017][.2033.0020.0017] # ARABIC LIGATURE QAF WITH MEEM WITH HAH INITIAL FORM
+FD7E  ; [.2086.0020.0019][.20A5.0020.0019][.2033.0020.0019] # ARABIC LIGATURE QAF WITH MEEM WITH HAH FINAL FORM
+FD7F  ; [.2086.0020.0019][.20A5.0020.0019][.20A5.0020.0019] # ARABIC LIGATURE QAF WITH MEEM WITH MEEM FINAL FORM
+FDB2  ; [.2086.0020.0019][.20A5.0020.0019][.20C7.0020.0019] # ARABIC LIGATURE QAF WITH MEEM WITH YEH FINAL FORM
+FC7E  ; [.2086.0020.0019][.20C6.0020.0019] # ARABIC LIGATURE QAF WITH ALEF MAKSURA FINAL FORM
+FC35  ; [.2086.0020.001A][.20C6.0020.001A] # ARABIC LIGATURE QAF WITH ALEF MAKSURA ISOLATED FORM
+FC7F  ; [.2086.0020.0019][.20C7.0020.0019] # ARABIC LIGATURE QAF WITH YEH FINAL FORM
+FC36  ; [.2086.0020.001A][.20C7.0020.001A] # ARABIC LIGATURE QAF WITH YEH ISOLATED FORM
+06A7  ; [.2087.0020.0002] # ARABIC LETTER QAF WITH DOT ABOVE
+06A8  ; [.2088.0020.0002] # ARABIC LETTER QAF WITH THREE DOTS ABOVE
+08A5  ; [.2089.0020.0002] # ARABIC LETTER QAF WITH DOT BELOW
+0643  ; [.208A.0020.0002] # ARABIC LETTER KAF
+1EE0A ; [.208A.0020.0005] # ARABIC MATHEMATICAL KAF
+1EE2A ; [.208A.0020.0005] # ARABIC MATHEMATICAL INITIAL KAF
+1EE6A ; [.208A.0020.0005] # ARABIC MATHEMATICAL STRETCHED KAF
+FEDB  ; [.208A.0020.0017] # ARABIC LETTER KAF INITIAL FORM
+FEDC  ; [.208A.0020.0018] # ARABIC LETTER KAF MEDIAL FORM
+FEDA  ; [.208A.0020.0019] # ARABIC LETTER KAF FINAL FORM
+FED9  ; [.208A.0020.001A] # ARABIC LETTER KAF ISOLATED FORM
+FC80  ; [.208A.0020.0019][.2015.0020.0019] # ARABIC LIGATURE KAF WITH ALEF FINAL FORM
+FC37  ; [.208A.0020.001A][.2015.0020.001A] # ARABIC LIGATURE KAF WITH ALEF ISOLATED FORM
+FCC4  ; [.208A.0020.0017][.202C.0020.0017] # ARABIC LIGATURE KAF WITH JEEM INITIAL FORM
+FC38  ; [.208A.0020.001A][.202C.0020.001A] # ARABIC LIGATURE KAF WITH JEEM ISOLATED FORM
+FCC5  ; [.208A.0020.0017][.2033.0020.0017] # ARABIC LIGATURE KAF WITH HAH INITIAL FORM
+FC39  ; [.208A.0020.001A][.2033.0020.001A] # ARABIC LIGATURE KAF WITH HAH ISOLATED FORM
+FCC6  ; [.208A.0020.0017][.2034.0020.0017] # ARABIC LIGATURE KAF WITH KHAH INITIAL FORM
+FC3A  ; [.208A.0020.001A][.2034.0020.001A] # ARABIC LIGATURE KAF WITH KHAH ISOLATED FORM
+FCC7  ; [.208A.0020.0017][.209E.0020.0017] # ARABIC LIGATURE KAF WITH LAM INITIAL FORM
+FCEB  ; [.208A.0020.0018][.209E.0020.0018] # ARABIC LIGATURE KAF WITH LAM MEDIAL FORM
+FC81  ; [.208A.0020.0019][.209E.0020.0019] # ARABIC LIGATURE KAF WITH LAM FINAL FORM
+FC3B  ; [.208A.0020.001A][.209E.0020.001A] # ARABIC LIGATURE KAF WITH LAM ISOLATED FORM
+FCC8  ; [.208A.0020.0017][.20A5.0020.0017] # ARABIC LIGATURE KAF WITH MEEM INITIAL FORM
+FCEC  ; [.208A.0020.0018][.20A5.0020.0018] # ARABIC LIGATURE KAF WITH MEEM MEDIAL FORM
+FC82  ; [.208A.0020.0019][.20A5.0020.0019] # ARABIC LIGATURE KAF WITH MEEM FINAL FORM
+FC3C  ; [.208A.0020.001A][.20A5.0020.001A] # ARABIC LIGATURE KAF WITH MEEM ISOLATED FORM
+FDC3  ; [.208A.0020.0017][.20A5.0020.0017][.20A5.0020.0017] # ARABIC LIGATURE KAF WITH MEEM WITH MEEM INITIAL FORM
+FDBB  ; [.208A.0020.0019][.20A5.0020.0019][.20A5.0020.0019] # ARABIC LIGATURE KAF WITH MEEM WITH MEEM FINAL FORM
+FDB7  ; [.208A.0020.0019][.20A5.0020.0019][.20C7.0020.0019] # ARABIC LIGATURE KAF WITH MEEM WITH YEH FINAL FORM
+FC83  ; [.208A.0020.0019][.20C6.0020.0019] # ARABIC LIGATURE KAF WITH ALEF MAKSURA FINAL FORM
+FC3D  ; [.208A.0020.001A][.20C6.0020.001A] # ARABIC LIGATURE KAF WITH ALEF MAKSURA ISOLATED FORM
+FC84  ; [.208A.0020.0019][.20C7.0020.0019] # ARABIC LIGATURE KAF WITH YEH FINAL FORM
+FC3E  ; [.208A.0020.001A][.20C7.0020.001A] # ARABIC LIGATURE KAF WITH YEH ISOLATED FORM
+06A9  ; [.208B.0020.0002] # ARABIC LETTER KEHEH
+FB90  ; [.208B.0020.0017] # ARABIC LETTER KEHEH INITIAL FORM
+FB91  ; [.208B.0020.0018] # ARABIC LETTER KEHEH MEDIAL FORM
+FB8F  ; [.208B.0020.0019] # ARABIC LETTER KEHEH FINAL FORM
+FB8E  ; [.208B.0020.001A] # ARABIC LETTER KEHEH ISOLATED FORM
+06AA  ; [.208C.0020.0002] # ARABIC LETTER SWASH KAF
+06AB  ; [.208D.0020.0002] # ARABIC LETTER KAF WITH RING
+06AC  ; [.208E.0020.0002] # ARABIC LETTER KAF WITH DOT ABOVE
+077F  ; [.208F.0020.0002] # ARABIC LETTER KAF WITH TWO DOTS ABOVE
+06AD  ; [.2090.0020.0002] # ARABIC LETTER NG
+FBD5  ; [.2090.0020.0017] # ARABIC LETTER NG INITIAL FORM
+FBD6  ; [.2090.0020.0018] # ARABIC LETTER NG MEDIAL FORM
+FBD4  ; [.2090.0020.0019] # ARABIC LETTER NG FINAL FORM
+FBD3  ; [.2090.0020.001A] # ARABIC LETTER NG ISOLATED FORM
+06AE  ; [.2091.0020.0002] # ARABIC LETTER KAF WITH THREE DOTS BELOW
+06AF  ; [.2092.0020.0002] # ARABIC LETTER GAF
+FB94  ; [.2092.0020.0017] # ARABIC LETTER GAF INITIAL FORM
+FB95  ; [.2092.0020.0018] # ARABIC LETTER GAF MEDIAL FORM
+FB93  ; [.2092.0020.0019] # ARABIC LETTER GAF FINAL FORM
+FB92  ; [.2092.0020.001A] # ARABIC LETTER GAF ISOLATED FORM
+08B0  ; [.2093.0020.0002] # ARABIC LETTER GAF WITH INVERTED STROKE
+06B0  ; [.2094.0020.0002] # ARABIC LETTER GAF WITH RING
+06B1  ; [.2095.0020.0002] # ARABIC LETTER NGOEH
+FB9C  ; [.2095.0020.0017] # ARABIC LETTER NGOEH INITIAL FORM
+FB9D  ; [.2095.0020.0018] # ARABIC LETTER NGOEH MEDIAL FORM
+FB9B  ; [.2095.0020.0019] # ARABIC LETTER NGOEH FINAL FORM
+FB9A  ; [.2095.0020.001A] # ARABIC LETTER NGOEH ISOLATED FORM
+06B2  ; [.2096.0020.0002] # ARABIC LETTER GAF WITH TWO DOTS BELOW
+06B3  ; [.2097.0020.0002] # ARABIC LETTER GUEH
+FB98  ; [.2097.0020.0017] # ARABIC LETTER GUEH INITIAL FORM
+FB99  ; [.2097.0020.0018] # ARABIC LETTER GUEH MEDIAL FORM
+FB97  ; [.2097.0020.0019] # ARABIC LETTER GUEH FINAL FORM
+FB96  ; [.2097.0020.001A] # ARABIC LETTER GUEH ISOLATED FORM
+06B4  ; [.2098.0020.0002] # ARABIC LETTER GAF WITH THREE DOTS ABOVE
+0762  ; [.2099.0020.0002] # ARABIC LETTER KEHEH WITH DOT ABOVE
+063B  ; [.209A.0020.0002] # ARABIC LETTER KEHEH WITH TWO DOTS ABOVE
+063C  ; [.209B.0020.0002] # ARABIC LETTER KEHEH WITH THREE DOTS BELOW
+0763  ; [.209C.0020.0002] # ARABIC LETTER KEHEH WITH THREE DOTS ABOVE
+0764  ; [.209D.0020.0002] # ARABIC LETTER KEHEH WITH THREE DOTS POINTING UPWARDS BELOW
+0644  ; [.209E.0020.0002] # ARABIC LETTER LAM
+1EE0B ; [.209E.0020.0005] # ARABIC MATHEMATICAL LAM
+1EE2B ; [.209E.0020.0005] # ARABIC MATHEMATICAL INITIAL LAM
+1EE4B ; [.209E.0020.0005] # ARABIC MATHEMATICAL TAILED LAM
+1EE8B ; [.209E.0020.0005] # ARABIC MATHEMATICAL LOOPED LAM
+1EEAB ; [.209E.0020.0005] # ARABIC MATHEMATICAL DOUBLE-STRUCK LAM
+FEDF  ; [.209E.0020.0017] # ARABIC LETTER LAM INITIAL FORM
+FEE0  ; [.209E.0020.0018] # ARABIC LETTER LAM MEDIAL FORM
+FEDE  ; [.209E.0020.0019] # ARABIC LETTER LAM FINAL FORM
+FEDD  ; [.209E.0020.001A] # ARABIC LETTER LAM ISOLATED FORM
+FEF6  ; [.209E.0020.0019][.2008.0020.0019] # ARABIC LIGATURE LAM WITH ALEF WITH MADDA ABOVE FINAL FORM
+FEF5  ; [.209E.0020.001A][.2008.0020.001A] # ARABIC LIGATURE LAM WITH ALEF WITH MADDA ABOVE ISOLATED FORM
+FEF8  ; [.209E.0020.0019][.2009.0020.0019] # ARABIC LIGATURE LAM WITH ALEF WITH HAMZA ABOVE FINAL FORM
+FEF7  ; [.209E.0020.001A][.2009.0020.001A] # ARABIC LIGATURE LAM WITH ALEF WITH HAMZA ABOVE ISOLATED FORM
+FEFA  ; [.209E.0020.0019][.200D.0020.0019] # ARABIC LIGATURE LAM WITH ALEF WITH HAMZA BELOW FINAL FORM
+FEF9  ; [.209E.0020.001A][.200D.0020.001A] # ARABIC LIGATURE LAM WITH ALEF WITH HAMZA BELOW ISOLATED FORM
+FEFC  ; [.209E.0020.0019][.2015.0020.0019] # ARABIC LIGATURE LAM WITH ALEF FINAL FORM
+FEFB  ; [.209E.0020.001A][.2015.0020.001A] # ARABIC LIGATURE LAM WITH ALEF ISOLATED FORM
+FCC9  ; [.209E.0020.0017][.202C.0020.0017] # ARABIC LIGATURE LAM WITH JEEM INITIAL FORM
+FC3F  ; [.209E.0020.001A][.202C.0020.001A] # ARABIC LIGATURE LAM WITH JEEM ISOLATED FORM
+FD83  ; [.209E.0020.0017][.202C.0020.0017][.202C.0020.0017] # ARABIC LIGATURE LAM WITH JEEM WITH JEEM INITIAL FORM
+FD84  ; [.209E.0020.0019][.202C.0020.0019][.202C.0020.0019] # ARABIC LIGATURE LAM WITH JEEM WITH JEEM FINAL FORM
+FDBA  ; [.209E.0020.0017][.202C.0020.0017][.20A5.0020.0017] # ARABIC LIGATURE LAM WITH JEEM WITH MEEM INITIAL FORM
+FDBC  ; [.209E.0020.0019][.202C.0020.0019][.20A5.0020.0019] # ARABIC LIGATURE LAM WITH JEEM WITH MEEM FINAL FORM
+FDAC  ; [.209E.0020.0019][.202C.0020.0019][.20C7.0020.0019] # ARABIC LIGATURE LAM WITH JEEM WITH YEH FINAL FORM
+FCCA  ; [.209E.0020.0017][.2033.0020.0017] # ARABIC LIGATURE LAM WITH HAH INITIAL FORM
+FC40  ; [.209E.0020.001A][.2033.0020.001A] # ARABIC LIGATURE LAM WITH HAH ISOLATED FORM
+FDB5  ; [.209E.0020.0017][.2033.0020.0017][.20A5.0020.0017] # ARABIC LIGATURE LAM WITH HAH WITH MEEM INITIAL FORM
+FD80  ; [.209E.0020.0019][.2033.0020.0019][.20A5.0020.0019] # ARABIC LIGATURE LAM WITH HAH WITH MEEM FINAL FORM
+FD82  ; [.209E.0020.0019][.2033.0020.0019][.20C6.0020.0019] # ARABIC LIGATURE LAM WITH HAH WITH ALEF MAKSURA FINAL FORM
+FD81  ; [.209E.0020.0019][.2033.0020.0019][.20C7.0020.0019] # ARABIC LIGATURE LAM WITH HAH WITH YEH FINAL FORM
+FCCB  ; [.209E.0020.0017][.2034.0020.0017] # ARABIC LIGATURE LAM WITH KHAH INITIAL FORM
+FC41  ; [.209E.0020.001A][.2034.0020.001A] # ARABIC LIGATURE LAM WITH KHAH ISOLATED FORM
+FD86  ; [.209E.0020.0017][.2034.0020.0017][.20A5.0020.0017] # ARABIC LIGATURE LAM WITH KHAH WITH MEEM INITIAL FORM
+FD85  ; [.209E.0020.0019][.2034.0020.0019][.20A5.0020.0019] # ARABIC LIGATURE LAM WITH KHAH WITH MEEM FINAL FORM
+FCCC  ; [.209E.0020.0017][.20A5.0020.0017] # ARABIC LIGATURE LAM WITH MEEM INITIAL FORM
+FCED  ; [.209E.0020.0018][.20A5.0020.0018] # ARABIC LIGATURE LAM WITH MEEM MEDIAL FORM
+FC85  ; [.209E.0020.0019][.20A5.0020.0019] # ARABIC LIGATURE LAM WITH MEEM FINAL FORM
+FC42  ; [.209E.0020.001A][.20A5.0020.001A] # ARABIC LIGATURE LAM WITH MEEM ISOLATED FORM
+FD88  ; [.209E.0020.0017][.20A5.0020.0017][.2033.0020.0017] # ARABIC LIGATURE LAM WITH MEEM WITH HAH INITIAL FORM
+FD87  ; [.209E.0020.0019][.20A5.0020.0019][.2033.0020.0019] # ARABIC LIGATURE LAM WITH MEEM WITH HAH FINAL FORM
+FDAD  ; [.209E.0020.0019][.20A5.0020.0019][.20C7.0020.0019] # ARABIC LIGATURE LAM WITH MEEM WITH YEH FINAL FORM
+FCCD  ; [.209E.0020.0017][.20B2.0020.0017] # ARABIC LIGATURE LAM WITH HEH INITIAL FORM
+FC86  ; [.209E.0020.0019][.20C6.0020.0019] # ARABIC LIGATURE LAM WITH ALEF MAKSURA FINAL FORM
+FC43  ; [.209E.0020.001A][.20C6.0020.001A] # ARABIC LIGATURE LAM WITH ALEF MAKSURA ISOLATED FORM
+FC87  ; [.209E.0020.0019][.20C7.0020.0019] # ARABIC LIGATURE LAM WITH YEH FINAL FORM
+FC44  ; [.209E.0020.001A][.20C7.0020.001A] # ARABIC LIGATURE LAM WITH YEH ISOLATED FORM
+06B5  ; [.209F.0020.0002] # ARABIC LETTER LAM WITH SMALL V
+06B6  ; [.20A0.0020.0002] # ARABIC LETTER LAM WITH DOT ABOVE
+06B7  ; [.20A1.0020.0002] # ARABIC LETTER LAM WITH THREE DOTS ABOVE
+06B8  ; [.20A2.0020.0002] # ARABIC LETTER LAM WITH THREE DOTS BELOW
+076A  ; [.20A3.0020.0002] # ARABIC LETTER LAM WITH BAR
+08A6  ; [.20A4.0020.0002] # ARABIC LETTER LAM WITH DOUBLE BAR
+0645  ; [.20A5.0020.0002] # ARABIC LETTER MEEM
+1EE0C ; [.20A5.0020.0005] # ARABIC MATHEMATICAL MEEM
+1EE2C ; [.20A5.0020.0005] # ARABIC MATHEMATICAL INITIAL MEEM
+1EE6C ; [.20A5.0020.0005] # ARABIC MATHEMATICAL STRETCHED MEEM
+1EE8C ; [.20A5.0020.0005] # ARABIC MATHEMATICAL LOOPED MEEM
+1EEAC ; [.20A5.0020.0005] # ARABIC MATHEMATICAL DOUBLE-STRUCK MEEM
+FEE3  ; [.20A5.0020.0017] # ARABIC LETTER MEEM INITIAL FORM
+FEE4  ; [.20A5.0020.0018] # ARABIC LETTER MEEM MEDIAL FORM
+FEE2  ; [.20A5.0020.0019] # ARABIC LETTER MEEM FINAL FORM
+FEE1  ; [.20A5.0020.001A] # ARABIC LETTER MEEM ISOLATED FORM
+06FE  ; [.20A5.0020.0004][.0000.0109.0004] # ARABIC SIGN SINDHI POSTPOSITION MEN
+FC88  ; [.20A5.0020.0019][.2015.0020.0019] # ARABIC LIGATURE MEEM WITH ALEF FINAL FORM
+FCCE  ; [.20A5.0020.0017][.202C.0020.0017] # ARABIC LIGATURE MEEM WITH JEEM INITIAL FORM
+FC45  ; [.20A5.0020.001A][.202C.0020.001A] # ARABIC LIGATURE MEEM WITH JEEM ISOLATED FORM
+FD8C  ; [.20A5.0020.0017][.202C.0020.0017][.2033.0020.0017] # ARABIC LIGATURE MEEM WITH JEEM WITH HAH INITIAL FORM
+FD92  ; [.20A5.0020.0017][.202C.0020.0017][.2034.0020.0017] # ARABIC LIGATURE MEEM WITH JEEM WITH KHAH INITIAL FORM
+FD8D  ; [.20A5.0020.0017][.202C.0020.0017][.20A5.0020.0017] # ARABIC LIGATURE MEEM WITH JEEM WITH MEEM INITIAL FORM
+FDC0  ; [.20A5.0020.0019][.202C.0020.0019][.20C7.0020.0019] # ARABIC LIGATURE MEEM WITH JEEM WITH YEH FINAL FORM
+FCCF  ; [.20A5.0020.0017][.2033.0020.0017] # ARABIC LIGATURE MEEM WITH HAH INITIAL FORM
+FC46  ; [.20A5.0020.001A][.2033.0020.001A] # ARABIC LIGATURE MEEM WITH HAH ISOLATED FORM
+FD89  ; [.20A5.0020.0017][.2033.0020.0017][.202C.0020.0017] # ARABIC LIGATURE MEEM WITH HAH WITH JEEM INITIAL FORM
+FD8A  ; [.20A5.0020.0017][.2033.0020.0017][.20A5.0020.0017] # ARABIC LIGATURE MEEM WITH HAH WITH MEEM INITIAL FORM
+FDF4  ; [.20A5.0020.001A][.2033.0020.001A][.20A5.0020.001A][.203E.0020.001A] # ARABIC LIGATURE MOHAMMAD ISOLATED FORM
+FD8B  ; [.20A5.0020.0019][.2033.0020.0019][.20C7.0020.0019] # ARABIC LIGATURE MEEM WITH HAH WITH YEH FINAL FORM
+FCD0  ; [.20A5.0020.0017][.2034.0020.0017] # ARABIC LIGATURE MEEM WITH KHAH INITIAL FORM
+FC47  ; [.20A5.0020.001A][.2034.0020.001A] # ARABIC LIGATURE MEEM WITH KHAH ISOLATED FORM
+FD8E  ; [.20A5.0020.0017][.2034.0020.0017][.202C.0020.0017] # ARABIC LIGATURE MEEM WITH KHAH WITH JEEM INITIAL FORM
+FD8F  ; [.20A5.0020.0017][.2034.0020.0017][.20A5.0020.0017] # ARABIC LIGATURE MEEM WITH KHAH WITH MEEM INITIAL FORM
+FDB9  ; [.20A5.0020.0019][.2034.0020.0019][.20C7.0020.0019] # ARABIC LIGATURE MEEM WITH KHAH WITH YEH FINAL FORM
+FCD1  ; [.20A5.0020.0017][.20A5.0020.0017] # ARABIC LIGATURE MEEM WITH MEEM INITIAL FORM
+FC89  ; [.20A5.0020.0019][.20A5.0020.0019] # ARABIC LIGATURE MEEM WITH MEEM FINAL FORM
+FC48  ; [.20A5.0020.001A][.20A5.0020.001A] # ARABIC LIGATURE MEEM WITH MEEM ISOLATED FORM
+FDB1  ; [.20A5.0020.0019][.20A5.0020.0019][.20C7.0020.0019] # ARABIC LIGATURE MEEM WITH MEEM WITH YEH FINAL FORM
+FC49  ; [.20A5.0020.001A][.20C6.0020.001A] # ARABIC LIGATURE MEEM WITH ALEF MAKSURA ISOLATED FORM
+FC4A  ; [.20A5.0020.001A][.20C7.0020.001A] # ARABIC LIGATURE MEEM WITH YEH ISOLATED FORM
+0765  ; [.20A6.0020.0002] # ARABIC LETTER MEEM WITH DOT ABOVE
+0766  ; [.20A7.0020.0002] # ARABIC LETTER MEEM WITH DOT BELOW
+08A7  ; [.20A8.0020.0002] # ARABIC LETTER MEEM WITH THREE DOTS ABOVE
+0646  ; [.20A9.0020.0002] # ARABIC LETTER NOON
+1EE0D ; [.20A9.0020.0005] # ARABIC MATHEMATICAL NOON
+1EE2D ; [.20A9.0020.0005] # ARABIC MATHEMATICAL INITIAL NOON
+1EE4D ; [.20A9.0020.0005] # ARABIC MATHEMATICAL TAILED NOON
+1EE6D ; [.20A9.0020.0005] # ARABIC MATHEMATICAL STRETCHED NOON
+1EE8D ; [.20A9.0020.0005] # ARABIC MATHEMATICAL LOOPED NOON
+1EEAD ; [.20A9.0020.0005] # ARABIC MATHEMATICAL DOUBLE-STRUCK NOON
+FEE7  ; [.20A9.0020.0017] # ARABIC LETTER NOON INITIAL FORM
+FEE8  ; [.20A9.0020.0018] # ARABIC LETTER NOON MEDIAL FORM
+FEE6  ; [.20A9.0020.0019] # ARABIC LETTER NOON FINAL FORM
+FEE5  ; [.20A9.0020.001A] # ARABIC LETTER NOON ISOLATED FORM
+FCD2  ; [.20A9.0020.0017][.202C.0020.0017] # ARABIC LIGATURE NOON WITH JEEM INITIAL FORM
+FC4B  ; [.20A9.0020.001A][.202C.0020.001A] # ARABIC LIGATURE NOON WITH JEEM ISOLATED FORM
+FDB8  ; [.20A9.0020.0017][.202C.0020.0017][.2033.0020.0017] # ARABIC LIGATURE NOON WITH JEEM WITH HAH INITIAL FORM
+FDBD  ; [.20A9.0020.0019][.202C.0020.0019][.2033.0020.0019] # ARABIC LIGATURE NOON WITH JEEM WITH HAH FINAL FORM
+FD98  ; [.20A9.0020.0017][.202C.0020.0017][.20A5.0020.0017] # ARABIC LIGATURE NOON WITH JEEM WITH MEEM INITIAL FORM
+FD97  ; [.20A9.0020.0019][.202C.0020.0019][.20A5.0020.0019] # ARABIC LIGATURE NOON WITH JEEM WITH MEEM FINAL FORM
+FD99  ; [.20A9.0020.0019][.202C.0020.0019][.20C6.0020.0019] # ARABIC LIGATURE NOON WITH JEEM WITH ALEF MAKSURA FINAL FORM
+FDC7  ; [.20A9.0020.0019][.202C.0020.0019][.20C7.0020.0019] # ARABIC LIGATURE NOON WITH JEEM WITH YEH FINAL FORM
+FCD3  ; [.20A9.0020.0017][.2033.0020.0017] # ARABIC LIGATURE NOON WITH HAH INITIAL FORM
+FC4C  ; [.20A9.0020.001A][.2033.0020.001A] # ARABIC LIGATURE NOON WITH HAH ISOLATED FORM
+FD95  ; [.20A9.0020.0017][.2033.0020.0017][.20A5.0020.0017] # ARABIC LIGATURE NOON WITH HAH WITH MEEM INITIAL FORM
+FD96  ; [.20A9.0020.0019][.2033.0020.0019][.20C6.0020.0019] # ARABIC LIGATURE NOON WITH HAH WITH ALEF MAKSURA FINAL FORM
+FDB3  ; [.20A9.0020.0019][.2033.0020.0019][.20C7.0020.0019] # ARABIC LIGATURE NOON WITH HAH WITH YEH FINAL FORM
+FCD4  ; [.20A9.0020.0017][.2034.0020.0017] # ARABIC LIGATURE NOON WITH KHAH INITIAL FORM
+FC4D  ; [.20A9.0020.001A][.2034.0020.001A] # ARABIC LIGATURE NOON WITH KHAH ISOLATED FORM
+FC8A  ; [.20A9.0020.0019][.204D.0020.0019] # ARABIC LIGATURE NOON WITH REH FINAL FORM
+FC8B  ; [.20A9.0020.0019][.204E.0020.0019] # ARABIC LIGATURE NOON WITH ZAIN FINAL FORM
+FCD5  ; [.20A9.0020.0017][.20A5.0020.0017] # ARABIC LIGATURE NOON WITH MEEM INITIAL FORM
+FCEE  ; [.20A9.0020.0018][.20A5.0020.0018] # ARABIC LIGATURE NOON WITH MEEM MEDIAL FORM
+FC8C  ; [.20A9.0020.0019][.20A5.0020.0019] # ARABIC LIGATURE NOON WITH MEEM FINAL FORM
+FC4E  ; [.20A9.0020.001A][.20A5.0020.001A] # ARABIC LIGATURE NOON WITH MEEM ISOLATED FORM
+FD9B  ; [.20A9.0020.0019][.20A5.0020.0019][.20C6.0020.0019] # ARABIC LIGATURE NOON WITH MEEM WITH ALEF MAKSURA FINAL FORM
+FD9A  ; [.20A9.0020.0019][.20A5.0020.0019][.20C7.0020.0019] # ARABIC LIGATURE NOON WITH MEEM WITH YEH FINAL FORM
+FC8D  ; [.20A9.0020.0019][.20A9.0020.0019] # ARABIC LIGATURE NOON WITH NOON FINAL FORM
+FCD6  ; [.20A9.0020.0017][.20B2.0020.0017] # ARABIC LIGATURE NOON WITH HEH INITIAL FORM
+FCEF  ; [.20A9.0020.0018][.20B2.0020.0018] # ARABIC LIGATURE NOON WITH HEH MEDIAL FORM
+FC8E  ; [.20A9.0020.0019][.20C6.0020.0019] # ARABIC LIGATURE NOON WITH ALEF MAKSURA FINAL FORM
+FC4F  ; [.20A9.0020.001A][.20C6.0020.001A] # ARABIC LIGATURE NOON WITH ALEF MAKSURA ISOLATED FORM
+FC8F  ; [.20A9.0020.0019][.20C7.0020.0019] # ARABIC LIGATURE NOON WITH YEH FINAL FORM
+FC50  ; [.20A9.0020.001A][.20C7.0020.001A] # ARABIC LIGATURE NOON WITH YEH ISOLATED FORM
+06BA  ; [.20AA.0020.0002] # ARABIC LETTER NOON GHUNNA
+1EE1D ; [.20AA.0020.0005] # ARABIC MATHEMATICAL DOTLESS NOON
+1EE5D ; [.20AA.0020.0005] # ARABIC MATHEMATICAL TAILED DOTLESS NOON
+FB9F  ; [.20AA.0020.0019] # ARABIC LETTER NOON GHUNNA FINAL FORM
+FB9E  ; [.20AA.0020.001A] # ARABIC LETTER NOON GHUNNA ISOLATED FORM
+06BB  ; [.20AB.0020.0002] # ARABIC LETTER RNOON
+FBA2  ; [.20AB.0020.0017] # ARABIC LETTER RNOON INITIAL FORM
+FBA3  ; [.20AB.0020.0018] # ARABIC LETTER RNOON MEDIAL FORM
+FBA1  ; [.20AB.0020.0019] # ARABIC LETTER RNOON FINAL FORM
+FBA0  ; [.20AB.0020.001A] # ARABIC LETTER RNOON ISOLATED FORM
+06BC  ; [.20AC.0020.0002] # ARABIC LETTER NOON WITH RING
+06BD  ; [.20AD.0020.0002] # ARABIC LETTER NOON WITH THREE DOTS ABOVE
+06B9  ; [.20AE.0020.0002] # ARABIC LETTER NOON WITH DOT BELOW
+0767  ; [.20AF.0020.0002] # ARABIC LETTER NOON WITH TWO DOTS BELOW
+0768  ; [.20B0.0020.0002] # ARABIC LETTER NOON WITH SMALL TAH
+0769  ; [.20B1.0020.0002] # ARABIC LETTER NOON WITH SMALL V
+0647  ; [.20B2.0020.0002] # ARABIC LETTER HEH
+1EE24 ; [.20B2.0020.0005] # ARABIC MATHEMATICAL INITIAL HEH
+1EE64 ; [.20B2.0020.0005] # ARABIC MATHEMATICAL STRETCHED HEH
+1EE84 ; [.20B2.0020.0005] # ARABIC MATHEMATICAL LOOPED HEH
+FEEB  ; [.20B2.0020.0017] # ARABIC LETTER HEH INITIAL FORM
+FEEC  ; [.20B2.0020.0018] # ARABIC LETTER HEH MEDIAL FORM
+FEEA  ; [.20B2.0020.0019] # ARABIC LETTER HEH FINAL FORM
+FEE9  ; [.20B2.0020.001A] # ARABIC LETTER HEH ISOLATED FORM
+FCD9  ; [.20B2.0020.0017][.0000.0097.0017] # ARABIC LIGATURE HEH WITH SUPERSCRIPT ALEF INITIAL FORM
+FCD7  ; [.20B2.0020.0017][.202C.0020.0017] # ARABIC LIGATURE HEH WITH JEEM INITIAL FORM
+FC51  ; [.20B2.0020.001A][.202C.0020.001A] # ARABIC LIGATURE HEH WITH JEEM ISOLATED FORM
+FCD8  ; [.20B2.0020.0017][.20A5.0020.0017] # ARABIC LIGATURE HEH WITH MEEM INITIAL FORM
+FC52  ; [.20B2.0020.001A][.20A5.0020.001A] # ARABIC LIGATURE HEH WITH MEEM ISOLATED FORM
+FD93  ; [.20B2.0020.0017][.20A5.0020.0017][.202C.0020.0017] # ARABIC LIGATURE HEH WITH MEEM WITH JEEM INITIAL FORM
+FD94  ; [.20B2.0020.0017][.20A5.0020.0017][.20A5.0020.0017] # ARABIC LIGATURE HEH WITH MEEM WITH MEEM INITIAL FORM
+FC53  ; [.20B2.0020.001A][.20C6.0020.001A] # ARABIC LIGATURE HEH WITH ALEF MAKSURA ISOLATED FORM
+FC54  ; [.20B2.0020.001A][.20C7.0020.001A] # ARABIC LIGATURE HEH WITH YEH ISOLATED FORM
+06BE  ; [.20B3.0020.0002] # ARABIC LETTER HEH DOACHASHMEE
+FBAC  ; [.20B3.0020.0017] # ARABIC LETTER HEH DOACHASHMEE INITIAL FORM
+FBAD  ; [.20B3.0020.0018] # ARABIC LETTER HEH DOACHASHMEE MEDIAL FORM
+FBAB  ; [.20B3.0020.0019] # ARABIC LETTER HEH DOACHASHMEE FINAL FORM
+FBAA  ; [.20B3.0020.001A] # ARABIC LETTER HEH DOACHASHMEE ISOLATED FORM
+06C1  ; [.20B4.0020.0002] # ARABIC LETTER HEH GOAL
+FBA8  ; [.20B4.0020.0017] # ARABIC LETTER HEH GOAL INITIAL FORM
+FBA9  ; [.20B4.0020.0018] # ARABIC LETTER HEH GOAL MEDIAL FORM
+FBA7  ; [.20B4.0020.0019] # ARABIC LETTER HEH GOAL FINAL FORM
+FBA6  ; [.20B4.0020.001A] # ARABIC LETTER HEH GOAL ISOLATED FORM
+06C2  ; [.20B4.0020.0002][.0000.0083.0002] # ARABIC LETTER HEH GOAL WITH HAMZA ABOVE
+06C3  ; [.20B5.0020.0002] # ARABIC LETTER TEH MARBUTA GOAL
+06FF  ; [.20B6.0020.0002] # ARABIC LETTER HEH WITH INVERTED V
+06D5  ; [.20B7.0020.0002] # ARABIC LETTER AE
+06C0  ; [.20B7.0020.0002][.0000.0083.0002] # ARABIC LETTER HEH WITH YEH ABOVE
+FBA5  ; [.20B7.0020.0019][.0000.0083.0019] # ARABIC LETTER HEH WITH YEH ABOVE FINAL FORM
+FBA4  ; [.20B7.0020.001A][.0000.0083.001A] # ARABIC LETTER HEH WITH YEH ABOVE ISOLATED FORM
+0648  ; [.20B8.0020.0002] # ARABIC LETTER WAW
+06E5  ; [.20B8.0020.0004] # ARABIC SMALL WAW
+1EE05 ; [.20B8.0020.0005] # ARABIC MATHEMATICAL WAW
+1EE85 ; [.20B8.0020.0005] # ARABIC MATHEMATICAL LOOPED WAW
+1EEA5 ; [.20B8.0020.0005] # ARABIC MATHEMATICAL DOUBLE-STRUCK WAW
+FEEE  ; [.20B8.0020.0019] # ARABIC LETTER WAW FINAL FORM
+FEED  ; [.20B8.0020.001A] # ARABIC LETTER WAW ISOLATED FORM
+0676  ; [.20B8.0020.0004][.2007.0020.0004] # ARABIC LETTER HIGH HAMZA WAW
+FDF8  ; [.20B8.0020.001A][.205F.0020.001A][.209E.0020.001A][.20A5.0020.001A] # ARABIC LIGATURE WASALLAM ISOLATED FORM
+06C4  ; [.20B9.0020.0002] # ARABIC LETTER WAW WITH RING
+06C5  ; [.20BA.0020.0002] # ARABIC LETTER KIRGHIZ OE
+FBE1  ; [.20BA.0020.0019] # ARABIC LETTER KIRGHIZ OE FINAL FORM
+FBE0  ; [.20BA.0020.001A] # ARABIC LETTER KIRGHIZ OE ISOLATED FORM
+06C6  ; [.20BB.0020.0002] # ARABIC LETTER OE
+FBDA  ; [.20BB.0020.0019] # ARABIC LETTER OE FINAL FORM
+FBD9  ; [.20BB.0020.001A] # ARABIC LETTER OE ISOLATED FORM
+06C7  ; [.20BC.0020.0002] # ARABIC LETTER U
+FBD8  ; [.20BC.0020.0019] # ARABIC LETTER U FINAL FORM
+FBD7  ; [.20BC.0020.001A] # ARABIC LETTER U ISOLATED FORM
+0677  ; [.20BC.0020.0004][.2007.0020.0004] # ARABIC LETTER U WITH HAMZA ABOVE
+FBDD  ; [.20BC.0020.001A][.2007.0020.001A] # ARABIC LETTER U WITH HAMZA ABOVE ISOLATED FORM
+06C8  ; [.20BD.0020.0002] # ARABIC LETTER YU
+FBDC  ; [.20BD.0020.0019] # ARABIC LETTER YU FINAL FORM
+FBDB  ; [.20BD.0020.001A] # ARABIC LETTER YU ISOLATED FORM
+06C9  ; [.20BE.0020.0002] # ARABIC LETTER KIRGHIZ YU
+FBE3  ; [.20BE.0020.0019] # ARABIC LETTER KIRGHIZ YU FINAL FORM
+FBE2  ; [.20BE.0020.001A] # ARABIC LETTER KIRGHIZ YU ISOLATED FORM
+06CA  ; [.20BF.0020.0002] # ARABIC LETTER WAW WITH TWO DOTS ABOVE
+06CB  ; [.20C0.0020.0002] # ARABIC LETTER VE
+FBDF  ; [.20C0.0020.0019] # ARABIC LETTER VE FINAL FORM
+FBDE  ; [.20C0.0020.001A] # ARABIC LETTER VE ISOLATED FORM
+08B1  ; [.20C1.0020.0002] # ARABIC LETTER STRAIGHT WAW
+06CF  ; [.20C2.0020.0002] # ARABIC LETTER WAW WITH DOT ABOVE
+0778  ; [.20C3.0020.0002] # ARABIC LETTER WAW WITH EXTENDED ARABIC-INDIC DIGIT TWO ABOVE
+0779  ; [.20C4.0020.0002] # ARABIC LETTER WAW WITH EXTENDED ARABIC-INDIC DIGIT THREE ABOVE
+08AB  ; [.20C5.0020.0002] # ARABIC LETTER WAW WITH DOT WITHIN
+0649  ; [.20C6.0020.0002] # ARABIC LETTER ALEF MAKSURA
+FBE8  ; [.20C6.0020.0017] # ARABIC LETTER UIGHUR KAZAKH KIRGHIZ ALEF MAKSURA INITIAL FORM
+FBE9  ; [.20C6.0020.0018] # ARABIC LETTER UIGHUR KAZAKH KIRGHIZ ALEF MAKSURA MEDIAL FORM
+FEF0  ; [.20C6.0020.0019] # ARABIC LETTER ALEF MAKSURA FINAL FORM
+FEEF  ; [.20C6.0020.001A] # ARABIC LETTER ALEF MAKSURA ISOLATED FORM
+FC90  ; [.20C6.0020.0019][.0000.0097.0019] # ARABIC LIGATURE ALEF MAKSURA WITH SUPERSCRIPT ALEF FINAL FORM
+FC5D  ; [.20C6.0020.001A][.0000.0097.001A] # ARABIC LIGATURE ALEF MAKSURA WITH SUPERSCRIPT ALEF ISOLATED FORM
+064A  ; [.20C7.0020.0002] # ARABIC LETTER YEH
+06E6  ; [.20C7.0020.0004] # ARABIC SMALL YEH
+1EE09 ; [.20C7.0020.0005] # ARABIC MATHEMATICAL YEH
+1EE29 ; [.20C7.0020.0005] # ARABIC MATHEMATICAL INITIAL YEH
+1EE49 ; [.20C7.0020.0005] # ARABIC MATHEMATICAL TAILED YEH
+1EE69 ; [.20C7.0020.0005] # ARABIC MATHEMATICAL STRETCHED YEH
+1EE89 ; [.20C7.0020.0005] # ARABIC MATHEMATICAL LOOPED YEH
+1EEA9 ; [.20C7.0020.0005] # ARABIC MATHEMATICAL DOUBLE-STRUCK YEH
+FEF3  ; [.20C7.0020.0017] # ARABIC LETTER YEH INITIAL FORM
+FEF4  ; [.20C7.0020.0018] # ARABIC LETTER YEH MEDIAL FORM
+FEF2  ; [.20C7.0020.0019] # ARABIC LETTER YEH FINAL FORM
+FEF1  ; [.20C7.0020.001A] # ARABIC LETTER YEH ISOLATED FORM
+0678  ; [.20C7.0020.0004][.2007.0020.0004] # ARABIC LETTER HIGH HAMZA YEH
+FCDA  ; [.20C7.0020.0017][.202C.0020.0017] # ARABIC LIGATURE YEH WITH JEEM INITIAL FORM
+FC55  ; [.20C7.0020.001A][.202C.0020.001A] # ARABIC LIGATURE YEH WITH JEEM ISOLATED FORM
+FDAF  ; [.20C7.0020.0019][.202C.0020.0019][.20C7.0020.0019] # ARABIC LIGATURE YEH WITH JEEM WITH YEH FINAL FORM
+FCDB  ; [.20C7.0020.0017][.2033.0020.0017] # ARABIC LIGATURE YEH WITH HAH INITIAL FORM
+FC56  ; [.20C7.0020.001A][.2033.0020.001A] # ARABIC LIGATURE YEH WITH HAH ISOLATED FORM
+FDAE  ; [.20C7.0020.0019][.2033.0020.0019][.20C7.0020.0019] # ARABIC LIGATURE YEH WITH HAH WITH YEH FINAL FORM
+FCDC  ; [.20C7.0020.0017][.2034.0020.0017] # ARABIC LIGATURE YEH WITH KHAH INITIAL FORM
+FC57  ; [.20C7.0020.001A][.2034.0020.001A] # ARABIC LIGATURE YEH WITH KHAH ISOLATED FORM
+FC91  ; [.20C7.0020.0019][.204D.0020.0019] # ARABIC LIGATURE YEH WITH REH FINAL FORM
+FC92  ; [.20C7.0020.0019][.204E.0020.0019] # ARABIC LIGATURE YEH WITH ZAIN FINAL FORM
+FCDD  ; [.20C7.0020.0017][.20A5.0020.0017] # ARABIC LIGATURE YEH WITH MEEM INITIAL FORM
+FCF0  ; [.20C7.0020.0018][.20A5.0020.0018] # ARABIC LIGATURE YEH WITH MEEM MEDIAL FORM
+FC93  ; [.20C7.0020.0019][.20A5.0020.0019] # ARABIC LIGATURE YEH WITH MEEM FINAL FORM
+FC58  ; [.20C7.0020.001A][.20A5.0020.001A] # ARABIC LIGATURE YEH WITH MEEM ISOLATED FORM
+FD9D  ; [.20C7.0020.0017][.20A5.0020.0017][.20A5.0020.0017] # ARABIC LIGATURE YEH WITH MEEM WITH MEEM INITIAL FORM
+FD9C  ; [.20C7.0020.0019][.20A5.0020.0019][.20A5.0020.0019] # ARABIC LIGATURE YEH WITH MEEM WITH MEEM FINAL FORM
+FDB0  ; [.20C7.0020.0019][.20A5.0020.0019][.20C7.0020.0019] # ARABIC LIGATURE YEH WITH MEEM WITH YEH FINAL FORM
+FC94  ; [.20C7.0020.0019][.20A9.0020.0019] # ARABIC LIGATURE YEH WITH NOON FINAL FORM
+FCDE  ; [.20C7.0020.0017][.20B2.0020.0017] # ARABIC LIGATURE YEH WITH HEH INITIAL FORM
+FCF1  ; [.20C7.0020.0018][.20B2.0020.0018] # ARABIC LIGATURE YEH WITH HEH MEDIAL FORM
+FC95  ; [.20C7.0020.0019][.20C6.0020.0019] # ARABIC LIGATURE YEH WITH ALEF MAKSURA FINAL FORM
+FC59  ; [.20C7.0020.001A][.20C6.0020.001A] # ARABIC LIGATURE YEH WITH ALEF MAKSURA ISOLATED FORM
+FC96  ; [.20C7.0020.0019][.20C7.0020.0019] # ARABIC LIGATURE YEH WITH YEH FINAL FORM
+FC5A  ; [.20C7.0020.001A][.20C7.0020.001A] # ARABIC LIGATURE YEH WITH YEH ISOLATED FORM
+06CC  ; [.20C8.0020.0002] # ARABIC LETTER FARSI YEH
+FBFE  ; [.20C8.0020.0017] # ARABIC LETTER FARSI YEH INITIAL FORM
+FBFF  ; [.20C8.0020.0018] # ARABIC LETTER FARSI YEH MEDIAL FORM
+FBFD  ; [.20C8.0020.0019] # ARABIC LETTER FARSI YEH FINAL FORM
+FBFC  ; [.20C8.0020.001A] # ARABIC LETTER FARSI YEH ISOLATED FORM
+06CD  ; [.20C9.0020.0002] # ARABIC LETTER YEH WITH TAIL
+06CE  ; [.20CA.0020.0002] # ARABIC LETTER YEH WITH SMALL V
+06D0  ; [.20CB.0020.0002] # ARABIC LETTER E
+FBE6  ; [.20CB.0020.0017] # ARABIC LETTER E INITIAL FORM
+FBE7  ; [.20CB.0020.0018] # ARABIC LETTER E MEDIAL FORM
+FBE5  ; [.20CB.0020.0019] # ARABIC LETTER E FINAL FORM
+FBE4  ; [.20CB.0020.001A] # ARABIC LETTER E ISOLATED FORM
+06D1  ; [.20CC.0020.0002] # ARABIC LETTER YEH WITH THREE DOTS BELOW
+063D  ; [.20CD.0020.0002] # ARABIC LETTER FARSI YEH WITH INVERTED V
+063E  ; [.20CE.0020.0002] # ARABIC LETTER FARSI YEH WITH TWO DOTS ABOVE
+063F  ; [.20CF.0020.0002] # ARABIC LETTER FARSI YEH WITH THREE DOTS ABOVE
+0620  ; [.20D0.0020.0002] # ARABIC LETTER KASHMIRI YEH
+0775  ; [.20D1.0020.0002] # ARABIC LETTER FARSI YEH WITH EXTENDED ARABIC-INDIC DIGIT TWO ABOVE
+0776  ; [.20D2.0020.0002] # ARABIC LETTER FARSI YEH WITH EXTENDED ARABIC-INDIC DIGIT THREE ABOVE
+0777  ; [.20D3.0020.0002] # ARABIC LETTER FARSI YEH WITH EXTENDED ARABIC-INDIC DIGIT FOUR BELOW
+06D2  ; [.20D4.0020.0002] # ARABIC LETTER YEH BARREE
+FBAF  ; [.20D4.0020.0019] # ARABIC LETTER YEH BARREE FINAL FORM
+FBAE  ; [.20D4.0020.001A] # ARABIC LETTER YEH BARREE ISOLATED FORM
+06D3  ; [.20D4.0020.0002][.0000.0083.0002] # ARABIC LETTER YEH BARREE WITH HAMZA ABOVE
+FBB1  ; [.20D4.0020.0019][.0000.0083.0019] # ARABIC LETTER YEH BARREE WITH HAMZA ABOVE FINAL FORM
+FBB0  ; [.20D4.0020.001A][.0000.0083.001A] # ARABIC LETTER YEH BARREE WITH HAMZA ABOVE ISOLATED FORM
+077A  ; [.20D5.0020.0002] # ARABIC LETTER YEH BARREE WITH EXTENDED ARABIC-INDIC DIGIT TWO ABOVE
+077B  ; [.20D6.0020.0002] # ARABIC LETTER YEH BARREE WITH EXTENDED ARABIC-INDIC DIGIT THREE ABOVE
+0710  ; [.20D7.0020.0002] # SYRIAC LETTER ALAPH
+0712  ; [.20D8.0020.0002] # SYRIAC LETTER BETH
+072D  ; [.20D8.0020.0004][.0000.010A.0004] # SYRIAC LETTER PERSIAN BHETH
+0713  ; [.20D9.0020.0002] # SYRIAC LETTER GAMAL
+0714  ; [.20D9.0020.0004][.0000.0109.0004] # SYRIAC LETTER GAMAL GARSHUNI
+072E  ; [.20D9.0020.0004][.0000.010A.0004] # SYRIAC LETTER PERSIAN GHAMAL
+0716  ; [.20DA.0020.0002] # SYRIAC LETTER DOTLESS DALATH RISH
+0715  ; [.20DB.0020.0002] # SYRIAC LETTER DALATH
+072F  ; [.20DB.0020.0004][.0000.010A.0004] # SYRIAC LETTER PERSIAN DHALATH
+0717  ; [.20DC.0020.0002] # SYRIAC LETTER HE
+0718  ; [.20DD.0020.0002] # SYRIAC LETTER WAW
+0719  ; [.20DE.0020.0002] # SYRIAC LETTER ZAIN
+074D  ; [.20DF.0020.0002] # SYRIAC LETTER SOGDIAN ZHAIN
+071A  ; [.20E0.0020.0002] # SYRIAC LETTER HETH
+071B  ; [.20E1.0020.0002] # SYRIAC LETTER TETH
+071C  ; [.20E1.0020.0004][.0000.0109.0004] # SYRIAC LETTER TETH GARSHUNI
+071D  ; [.20E2.0020.0002] # SYRIAC LETTER YUDH
+071E  ; [.20E3.0020.0002] # SYRIAC LETTER YUDH HE
+071F  ; [.20E4.0020.0002] # SYRIAC LETTER KAPH
+074E  ; [.20E5.0020.0002] # SYRIAC LETTER SOGDIAN KHAPH
+0720  ; [.20E6.0020.0002] # SYRIAC LETTER LAMADH
+0721  ; [.20E7.0020.0002] # SYRIAC LETTER MIM
+0722  ; [.20E8.0020.0002] # SYRIAC LETTER NUN
+0723  ; [.20E9.0020.0002] # SYRIAC LETTER SEMKATH
+0724  ; [.20E9.0020.0019] # SYRIAC LETTER FINAL SEMKATH
+0725  ; [.20EA.0020.0002] # SYRIAC LETTER E
+0726  ; [.20EB.0020.0002] # SYRIAC LETTER PE
+0727  ; [.20EB.0020.0004][.0000.0109.0004] # SYRIAC LETTER REVERSED PE
+074F  ; [.20EC.0020.0002] # SYRIAC LETTER SOGDIAN FE
+0728  ; [.20ED.0020.0002] # SYRIAC LETTER SADHE
+0729  ; [.20EE.0020.0002] # SYRIAC LETTER QAPH
+072A  ; [.20EF.0020.0002] # SYRIAC LETTER RISH
+072B  ; [.20F0.0020.0002] # SYRIAC LETTER SHIN
+072C  ; [.20F1.0020.0002] # SYRIAC LETTER TAW
+0840  ; [.20F2.0020.0002] # MANDAIC LETTER HALQA
+0841  ; [.20F3.0020.0002] # MANDAIC LETTER AB
+0842  ; [.20F4.0020.0002] # MANDAIC LETTER AG
+0843  ; [.20F5.0020.0002] # MANDAIC LETTER AD
+0844  ; [.20F6.0020.0002] # MANDAIC LETTER AH
+0845  ; [.20F7.0020.0002] # MANDAIC LETTER USHENNA
+0846  ; [.20F8.0020.0002] # MANDAIC LETTER AZ
+0847  ; [.20F9.0020.0002] # MANDAIC LETTER IT
+0848  ; [.20FA.0020.0002] # MANDAIC LETTER ATT
+0849  ; [.20FB.0020.0002] # MANDAIC LETTER AKSA
+084A  ; [.20FC.0020.0002] # MANDAIC LETTER AK
+084B  ; [.20FD.0020.0002] # MANDAIC LETTER AL
+084C  ; [.20FE.0020.0002] # MANDAIC LETTER AM
+084D  ; [.20FF.0020.0002] # MANDAIC LETTER AN
+084E  ; [.2100.0020.0002] # MANDAIC LETTER AS
+084F  ; [.2101.0020.0002] # MANDAIC LETTER IN
+0850  ; [.2102.0020.0002] # MANDAIC LETTER AP
+0851  ; [.2103.0020.0002] # MANDAIC LETTER ASZ
+0852  ; [.2104.0020.0002] # MANDAIC LETTER AQ
+0853  ; [.2105.0020.0002] # MANDAIC LETTER AR
+0854  ; [.2106.0020.0002] # MANDAIC LETTER ASH
+0855  ; [.2107.0020.0002] # MANDAIC LETTER AT
+0856  ; [.2108.0020.0002] # MANDAIC LETTER DUSHENNA
+0857  ; [.2109.0020.0002] # MANDAIC LETTER KAD
+0858  ; [.210A.0020.0002] # MANDAIC LETTER AIN
+0780  ; [.210B.0020.0002] # THAANA LETTER HAA
+0799  ; [.210C.0020.0002] # THAANA LETTER HHAA
+079A  ; [.210D.0020.0002] # THAANA LETTER KHAA
+0781  ; [.210E.0020.0002] # THAANA LETTER SHAVIYANI
+0782  ; [.210F.0020.0002] # THAANA LETTER NOONU
+0783  ; [.2110.0020.0002] # THAANA LETTER RAA
+079C  ; [.2111.0020.0002] # THAANA LETTER ZAA
+0784  ; [.2112.0020.0002] # THAANA LETTER BAA
+0785  ; [.2113.0020.0002] # THAANA LETTER LHAVIYANI
+0786  ; [.2114.0020.0002] # THAANA LETTER KAAFU
+0787  ; [.2115.0020.0002] # THAANA LETTER ALIFU
+07A2  ; [.2116.0020.0002] # THAANA LETTER AINU
+07A3  ; [.2117.0020.0002] # THAANA LETTER GHAINU
+0788  ; [.2118.0020.0002] # THAANA LETTER VAAVU
+07A5  ; [.2119.0020.0002] # THAANA LETTER WAAVU
+0789  ; [.211A.0020.0002] # THAANA LETTER MEEMU
+078A  ; [.211B.0020.0002] # THAANA LETTER FAAFU
+078B  ; [.211C.0020.0002] # THAANA LETTER DHAALU
+079B  ; [.211D.0020.0002] # THAANA LETTER THAALU
+078C  ; [.211E.0020.0002] # THAANA LETTER THAA
+0798  ; [.211F.0020.0002] # THAANA LETTER TTAA
+07A0  ; [.2120.0020.0002] # THAANA LETTER TO
+07A1  ; [.2121.0020.0002] # THAANA LETTER ZO
+078D  ; [.2122.0020.0002] # THAANA LETTER LAAMU
+078E  ; [.2123.0020.0002] # THAANA LETTER GAAFU
+07A4  ; [.2124.0020.0002] # THAANA LETTER QAAFU
+078F  ; [.2125.0020.0002] # THAANA LETTER GNAVIYANI
+0790  ; [.2126.0020.0002] # THAANA LETTER SEENU
+079D  ; [.2127.0020.0002] # THAANA LETTER SHEENU
+079E  ; [.2128.0020.0002] # THAANA LETTER SAADHU
+079F  ; [.2129.0020.0002] # THAANA LETTER DAADHU
+0791  ; [.212A.0020.0002] # THAANA LETTER DAVIYANI
+0792  ; [.212B.0020.0002] # THAANA LETTER ZAVIYANI
+0793  ; [.212C.0020.0002] # THAANA LETTER TAVIYANI
+0794  ; [.212D.0020.0002] # THAANA LETTER YAA
+0795  ; [.212E.0020.0002] # THAANA LETTER PAVIYANI
+0796  ; [.212F.0020.0002] # THAANA LETTER JAVIYANI
+0797  ; [.2130.0020.0002] # THAANA LETTER CHAVIYANI
+07B1  ; [.2131.0020.0002] # THAANA LETTER NAA
+07A6  ; [.2132.0020.0002] # THAANA ABAFILI
+07A7  ; [.2133.0020.0002] # THAANA AABAAFILI
+07A8  ; [.2134.0020.0002] # THAANA IBIFILI
+07A9  ; [.2135.0020.0002] # THAANA EEBEEFILI
+07AA  ; [.2136.0020.0002] # THAANA UBUFILI
+07AB  ; [.2137.0020.0002] # THAANA OOBOOFILI
+07AC  ; [.2138.0020.0002] # THAANA EBEFILI
+07AD  ; [.2139.0020.0002] # THAANA EYBEYFILI
+07AE  ; [.213A.0020.0002] # THAANA OBOFILI
+07AF  ; [.213B.0020.0002] # THAANA OABOAFILI
+07B0  ; [.213C.0020.0002] # THAANA SUKUN
+07CA  ; [.213D.0020.0002] # NKO LETTER A
+07CB  ; [.213E.0020.0002] # NKO LETTER EE
+07CC  ; [.213F.0020.0002] # NKO LETTER I
+07CD  ; [.2140.0020.0002] # NKO LETTER E
+07CE  ; [.2141.0020.0002] # NKO LETTER U
+07CF  ; [.2142.0020.0002] # NKO LETTER OO
+07D0  ; [.2143.0020.0002] # NKO LETTER O
+07D1  ; [.2144.0020.0002] # NKO LETTER DAGBASINNA
+07D2  ; [.2145.0020.0002] # NKO LETTER N
+07D3  ; [.2146.0020.0002] # NKO LETTER BA
+07D4  ; [.2147.0020.0002] # NKO LETTER PA
+07D5  ; [.2148.0020.0002] # NKO LETTER TA
+07D6  ; [.2149.0020.0002] # NKO LETTER JA
+07E8  ; [.2149.0020.0004][.0000.0108.0004] # NKO LETTER JONA JA
+07D7  ; [.214A.0020.0002] # NKO LETTER CHA
+07E9  ; [.214A.0020.0004][.0000.0108.0004] # NKO LETTER JONA CHA
+07D8  ; [.214B.0020.0002] # NKO LETTER DA
+07D9  ; [.214C.0020.0002] # NKO LETTER RA
+07EA  ; [.214C.0020.0004][.0000.0108.0004] # NKO LETTER JONA RA
+07DA  ; [.214D.0020.0002] # NKO LETTER RRA
+07DB  ; [.214E.0020.0002] # NKO LETTER SA
+07DC  ; [.214F.0020.0002] # NKO LETTER GBA
+07DD  ; [.2150.0020.0002] # NKO LETTER FA
+07DE  ; [.2151.0020.0002] # NKO LETTER KA
+07DF  ; [.2152.0020.0002] # NKO LETTER LA
+07E0  ; [.2153.0020.0002] # NKO LETTER NA WOLOSO
+07E1  ; [.2154.0020.0002] # NKO LETTER MA
+07E2  ; [.2155.0020.0002] # NKO LETTER NYA
+07E3  ; [.2156.0020.0002] # NKO LETTER NA
+07E4  ; [.2157.0020.0002] # NKO LETTER HA
+07E5  ; [.2158.0020.0002] # NKO LETTER WA
+07E6  ; [.2159.0020.0002] # NKO LETTER YA
+07E7  ; [.215A.0020.0002] # NKO LETTER NYA WOLOSO
+07F4  ; [.215B.0020.0002] # NKO HIGH TONE APOSTROPHE
+07F5  ; [.215C.0020.0002] # NKO LOW TONE APOSTROPHE
+2D30  ; [.215D.0020.0002] # TIFINAGH LETTER YA
+2D31  ; [.215E.0020.0002] # TIFINAGH LETTER YAB
+2D32  ; [.215F.0020.0002] # TIFINAGH LETTER YABH
+2D33  ; [.2160.0020.0002] # TIFINAGH LETTER YAG
+2D34  ; [.2161.0020.0002] # TIFINAGH LETTER YAGHH
+2D35  ; [.2162.0020.0002] # TIFINAGH LETTER BERBER ACADEMY YAJ
+2D36  ; [.2163.0020.0002] # TIFINAGH LETTER YAJ
+2D37  ; [.2164.0020.0002] # TIFINAGH LETTER YAD
+2D38  ; [.2165.0020.0002] # TIFINAGH LETTER YADH
+2D39  ; [.2166.0020.0002] # TIFINAGH LETTER YADD
+2D3A  ; [.2167.0020.0002] # TIFINAGH LETTER YADDH
+2D3B  ; [.2168.0020.0002] # TIFINAGH LETTER YEY
+2D66  ; [.2169.0020.0002] # TIFINAGH LETTER YE
+2D3C  ; [.216A.0020.0002] # TIFINAGH LETTER YAF
+2D3D  ; [.216B.0020.0002] # TIFINAGH LETTER YAK
+2D3E  ; [.216C.0020.0002] # TIFINAGH LETTER TUAREG YAK
+2D3F  ; [.216D.0020.0002] # TIFINAGH LETTER YAKHH
+2D40  ; [.216E.0020.0002] # TIFINAGH LETTER YAH
+2D41  ; [.216F.0020.0002] # TIFINAGH LETTER BERBER ACADEMY YAH
+2D42  ; [.2170.0020.0002] # TIFINAGH LETTER TUAREG YAH
+2D43  ; [.2171.0020.0002] # TIFINAGH LETTER YAHH
+2D44  ; [.2172.0020.0002] # TIFINAGH LETTER YAA
+2D45  ; [.2173.0020.0002] # TIFINAGH LETTER YAKH
+2D46  ; [.2174.0020.0002] # TIFINAGH LETTER TUAREG YAKH
+2D47  ; [.2175.0020.0002] # TIFINAGH LETTER YAQ
+2D48  ; [.2176.0020.0002] # TIFINAGH LETTER TUAREG YAQ
+2D49  ; [.2177.0020.0002] # TIFINAGH LETTER YI
+2D4A  ; [.2178.0020.0002] # TIFINAGH LETTER YAZH
+2D4B  ; [.2179.0020.0002] # TIFINAGH LETTER AHAGGAR YAZH
+2D4C  ; [.217A.0020.0002] # TIFINAGH LETTER TUAREG YAZH
+2D4D  ; [.217B.0020.0002] # TIFINAGH LETTER YAL
+2D4E  ; [.217C.0020.0002] # TIFINAGH LETTER YAM
+2D4F  ; [.217D.0020.0002] # TIFINAGH LETTER YAN
+2D50  ; [.217E.0020.0002] # TIFINAGH LETTER TUAREG YAGN
+2D51  ; [.217F.0020.0002] # TIFINAGH LETTER TUAREG YANG
+2D52  ; [.2180.0020.0002] # TIFINAGH LETTER YAP
+2D53  ; [.2181.0020.0002] # TIFINAGH LETTER YU
+2D67  ; [.2182.0020.0002] # TIFINAGH LETTER YO
+2D54  ; [.2183.0020.0002] # TIFINAGH LETTER YAR
+2D55  ; [.2184.0020.0002] # TIFINAGH LETTER YARR
+2D56  ; [.2185.0020.0002] # TIFINAGH LETTER YAGH
+2D57  ; [.2186.0020.0002] # TIFINAGH LETTER TUAREG YAGH
+2D58  ; [.2187.0020.0002] # TIFINAGH LETTER AYER YAGH
+2D59  ; [.2188.0020.0002] # TIFINAGH LETTER YAS
+2D5A  ; [.2189.0020.0002] # TIFINAGH LETTER YASS
+2D5B  ; [.218A.0020.0002] # TIFINAGH LETTER YASH
+2D5C  ; [.218B.0020.0002] # TIFINAGH LETTER YAT
+2D5D  ; [.218C.0020.0002] # TIFINAGH LETTER YATH
+2D5E  ; [.218D.0020.0002] # TIFINAGH LETTER YACH
+2D5F  ; [.218E.0020.0002] # TIFINAGH LETTER YATT
+2D60  ; [.218F.0020.0002] # TIFINAGH LETTER YAV
+2D61  ; [.2190.0020.0002] # TIFINAGH LETTER YAW
+2D62  ; [.2191.0020.0002] # TIFINAGH LETTER YAY
+2D63  ; [.2192.0020.0002] # TIFINAGH LETTER YAZ
+2D64  ; [.2193.0020.0002] # TIFINAGH LETTER TAWELLEMET YAZ
+2D65  ; [.2194.0020.0002] # TIFINAGH LETTER YAZZ
+2D6F  ; [.2195.0020.0002] # TIFINAGH MODIFIER LETTER LABIALIZATION MARK
+1200  ; [.2196.0020.0002] # ETHIOPIC SYLLABLE HA
+1201  ; [.2197.0020.0002] # ETHIOPIC SYLLABLE HU
+1202  ; [.2198.0020.0002] # ETHIOPIC SYLLABLE HI
+1203  ; [.2199.0020.0002] # ETHIOPIC SYLLABLE HAA
+1204  ; [.219A.0020.0002] # ETHIOPIC SYLLABLE HEE
+1205  ; [.219B.0020.0002] # ETHIOPIC SYLLABLE HE
+1206  ; [.219C.0020.0002] # ETHIOPIC SYLLABLE HO
+1207  ; [.219D.0020.0002] # ETHIOPIC SYLLABLE HOA
+1208  ; [.219E.0020.0002] # ETHIOPIC SYLLABLE LA
+1209  ; [.219F.0020.0002] # ETHIOPIC SYLLABLE LU
+120A  ; [.21A0.0020.0002] # ETHIOPIC SYLLABLE LI
+120B  ; [.21A1.0020.0002] # ETHIOPIC SYLLABLE LAA
+120C  ; [.21A2.0020.0002] # ETHIOPIC SYLLABLE LEE
+120D  ; [.21A3.0020.0002] # ETHIOPIC SYLLABLE LE
+120E  ; [.21A4.0020.0002] # ETHIOPIC SYLLABLE LO
+120F  ; [.21A5.0020.0002] # ETHIOPIC SYLLABLE LWA
+2D80  ; [.21A6.0020.0002] # ETHIOPIC SYLLABLE LOA
+1210  ; [.21A7.0020.0002] # ETHIOPIC SYLLABLE HHA
+1211  ; [.21A8.0020.0002] # ETHIOPIC SYLLABLE HHU
+1212  ; [.21A9.0020.0002] # ETHIOPIC SYLLABLE HHI
+1213  ; [.21AA.0020.0002] # ETHIOPIC SYLLABLE HHAA
+1214  ; [.21AB.0020.0002] # ETHIOPIC SYLLABLE HHEE
+1215  ; [.21AC.0020.0002] # ETHIOPIC SYLLABLE HHE
+1216  ; [.21AD.0020.0002] # ETHIOPIC SYLLABLE HHO
+1217  ; [.21AE.0020.0002] # ETHIOPIC SYLLABLE HHWA
+1218  ; [.21AF.0020.0002] # ETHIOPIC SYLLABLE MA
+1219  ; [.21B0.0020.0002] # ETHIOPIC SYLLABLE MU
+121A  ; [.21B1.0020.0002] # ETHIOPIC SYLLABLE MI
+121B  ; [.21B2.0020.0002] # ETHIOPIC SYLLABLE MAA
+121C  ; [.21B3.0020.0002] # ETHIOPIC SYLLABLE MEE
+121D  ; [.21B4.0020.0002] # ETHIOPIC SYLLABLE ME
+121E  ; [.21B5.0020.0002] # ETHIOPIC SYLLABLE MO
+121F  ; [.21B6.0020.0002] # ETHIOPIC SYLLABLE MWA
+1380  ; [.21B7.0020.0002] # ETHIOPIC SYLLABLE SEBATBEIT MWA
+1381  ; [.21B8.0020.0002] # ETHIOPIC SYLLABLE MWI
+1382  ; [.21B9.0020.0002] # ETHIOPIC SYLLABLE MWEE
+1383  ; [.21BA.0020.0002] # ETHIOPIC SYLLABLE MWE
+2D81  ; [.21BB.0020.0002] # ETHIOPIC SYLLABLE MOA
+1220  ; [.21BC.0020.0002] # ETHIOPIC SYLLABLE SZA
+1221  ; [.21BD.0020.0002] # ETHIOPIC SYLLABLE SZU
+1222  ; [.21BE.0020.0002] # ETHIOPIC SYLLABLE SZI
+1223  ; [.21BF.0020.0002] # ETHIOPIC SYLLABLE SZAA
+1224  ; [.21C0.0020.0002] # ETHIOPIC SYLLABLE SZEE
+1225  ; [.21C1.0020.0002] # ETHIOPIC SYLLABLE SZE
+1226  ; [.21C2.0020.0002] # ETHIOPIC SYLLABLE SZO
+1227  ; [.21C3.0020.0002] # ETHIOPIC SYLLABLE SZWA
+1228  ; [.21C4.0020.0002] # ETHIOPIC SYLLABLE RA
+1229  ; [.21C5.0020.0002] # ETHIOPIC SYLLABLE RU
+122A  ; [.21C6.0020.0002] # ETHIOPIC SYLLABLE RI
+122B  ; [.21C7.0020.0002] # ETHIOPIC SYLLABLE RAA
+122C  ; [.21C8.0020.0002] # ETHIOPIC SYLLABLE REE
+122D  ; [.21C9.0020.0002] # ETHIOPIC SYLLABLE RE
+122E  ; [.21CA.0020.0002] # ETHIOPIC SYLLABLE RO
+122F  ; [.21CB.0020.0002] # ETHIOPIC SYLLABLE RWA
+2D82  ; [.21CC.0020.0002] # ETHIOPIC SYLLABLE ROA
+1230  ; [.21CD.0020.0002] # ETHIOPIC SYLLABLE SA
+1231  ; [.21CE.0020.0002] # ETHIOPIC SYLLABLE SU
+1232  ; [.21CF.0020.0002] # ETHIOPIC SYLLABLE SI
+1233  ; [.21D0.0020.0002] # ETHIOPIC SYLLABLE SAA
+1234  ; [.21D1.0020.0002] # ETHIOPIC SYLLABLE SEE
+1235  ; [.21D2.0020.0002] # ETHIOPIC SYLLABLE SE
+1236  ; [.21D3.0020.0002] # ETHIOPIC SYLLABLE SO
+1237  ; [.21D4.0020.0002] # ETHIOPIC SYLLABLE SWA
+2D83  ; [.21D5.0020.0002] # ETHIOPIC SYLLABLE SOA
+AB01  ; [.21D6.0020.0002] # ETHIOPIC SYLLABLE TTHU
+AB02  ; [.21D7.0020.0002] # ETHIOPIC SYLLABLE TTHI
+AB03  ; [.21D8.0020.0002] # ETHIOPIC SYLLABLE TTHAA
+AB04  ; [.21D9.0020.0002] # ETHIOPIC SYLLABLE TTHEE
+AB05  ; [.21DA.0020.0002] # ETHIOPIC SYLLABLE TTHE
+AB06  ; [.21DB.0020.0002] # ETHIOPIC SYLLABLE TTHO
+1238  ; [.21DC.0020.0002] # ETHIOPIC SYLLABLE SHA
+1239  ; [.21DD.0020.0002] # ETHIOPIC SYLLABLE SHU
+123A  ; [.21DE.0020.0002] # ETHIOPIC SYLLABLE SHI
+123B  ; [.21DF.0020.0002] # ETHIOPIC SYLLABLE SHAA
+123C  ; [.21E0.0020.0002] # ETHIOPIC SYLLABLE SHEE
+123D  ; [.21E1.0020.0002] # ETHIOPIC SYLLABLE SHE
+123E  ; [.21E2.0020.0002] # ETHIOPIC SYLLABLE SHO
+123F  ; [.21E3.0020.0002] # ETHIOPIC SYLLABLE SHWA
+2D84  ; [.21E4.0020.0002] # ETHIOPIC SYLLABLE SHOA
+1240  ; [.21E5.0020.0002] # ETHIOPIC SYLLABLE QA
+1241  ; [.21E6.0020.0002] # ETHIOPIC SYLLABLE QU
+1242  ; [.21E7.0020.0002] # ETHIOPIC SYLLABLE QI
+1243  ; [.21E8.0020.0002] # ETHIOPIC SYLLABLE QAA
+1244  ; [.21E9.0020.0002] # ETHIOPIC SYLLABLE QEE
+1245  ; [.21EA.0020.0002] # ETHIOPIC SYLLABLE QE
+1246  ; [.21EB.0020.0002] # ETHIOPIC SYLLABLE QO
+1247  ; [.21EC.0020.0002] # ETHIOPIC SYLLABLE QOA
+1248  ; [.21ED.0020.0002] # ETHIOPIC SYLLABLE QWA
+124A  ; [.21EE.0020.0002] # ETHIOPIC SYLLABLE QWI
+124B  ; [.21EF.0020.0002] # ETHIOPIC SYLLABLE QWAA
+124C  ; [.21F0.0020.0002] # ETHIOPIC SYLLABLE QWEE
+124D  ; [.21F1.0020.0002] # ETHIOPIC SYLLABLE QWE
+1250  ; [.21F2.0020.0002] # ETHIOPIC SYLLABLE QHA
+1251  ; [.21F3.0020.0002] # ETHIOPIC SYLLABLE QHU
+1252  ; [.21F4.0020.0002] # ETHIOPIC SYLLABLE QHI
+1253  ; [.21F5.0020.0002] # ETHIOPIC SYLLABLE QHAA
+1254  ; [.21F6.0020.0002] # ETHIOPIC SYLLABLE QHEE
+1255  ; [.21F7.0020.0002] # ETHIOPIC SYLLABLE QHE
+1256  ; [.21F8.0020.0002] # ETHIOPIC SYLLABLE QHO
+1258  ; [.21F9.0020.0002] # ETHIOPIC SYLLABLE QHWA
+125A  ; [.21FA.0020.0002] # ETHIOPIC SYLLABLE QHWI
+125B  ; [.21FB.0020.0002] # ETHIOPIC SYLLABLE QHWAA
+125C  ; [.21FC.0020.0002] # ETHIOPIC SYLLABLE QHWEE
+125D  ; [.21FD.0020.0002] # ETHIOPIC SYLLABLE QHWE
+1260  ; [.21FE.0020.0002] # ETHIOPIC SYLLABLE BA
+1261  ; [.21FF.0020.0002] # ETHIOPIC SYLLABLE BU
+1262  ; [.2200.0020.0002] # ETHIOPIC SYLLABLE BI
+1263  ; [.2201.0020.0002] # ETHIOPIC SYLLABLE BAA
+1264  ; [.2202.0020.0002] # ETHIOPIC SYLLABLE BEE
+1265  ; [.2203.0020.0002] # ETHIOPIC SYLLABLE BE
+1266  ; [.2204.0020.0002] # ETHIOPIC SYLLABLE BO
+1267  ; [.2205.0020.0002] # ETHIOPIC SYLLABLE BWA
+1384  ; [.2206.0020.0002] # ETHIOPIC SYLLABLE SEBATBEIT BWA
+1385  ; [.2207.0020.0002] # ETHIOPIC SYLLABLE BWI
+1386  ; [.2208.0020.0002] # ETHIOPIC SYLLABLE BWEE
+1387  ; [.2209.0020.0002] # ETHIOPIC SYLLABLE BWE
+2D85  ; [.220A.0020.0002] # ETHIOPIC SYLLABLE BOA
+1268  ; [.220B.0020.0002] # ETHIOPIC SYLLABLE VA
+1269  ; [.220C.0020.0002] # ETHIOPIC SYLLABLE VU
+126A  ; [.220D.0020.0002] # ETHIOPIC SYLLABLE VI
+126B  ; [.220E.0020.0002] # ETHIOPIC SYLLABLE VAA
+126C  ; [.220F.0020.0002] # ETHIOPIC SYLLABLE VEE
+126D  ; [.2210.0020.0002] # ETHIOPIC SYLLABLE VE
+126E  ; [.2211.0020.0002] # ETHIOPIC SYLLABLE VO
+126F  ; [.2212.0020.0002] # ETHIOPIC SYLLABLE VWA
+1270  ; [.2213.0020.0002] # ETHIOPIC SYLLABLE TA
+1271  ; [.2214.0020.0002] # ETHIOPIC SYLLABLE TU
+1272  ; [.2215.0020.0002] # ETHIOPIC SYLLABLE TI
+1273  ; [.2216.0020.0002] # ETHIOPIC SYLLABLE TAA
+1274  ; [.2217.0020.0002] # ETHIOPIC SYLLABLE TEE
+1275  ; [.2218.0020.0002] # ETHIOPIC SYLLABLE TE
+1276  ; [.2219.0020.0002] # ETHIOPIC SYLLABLE TO
+1277  ; [.221A.0020.0002] # ETHIOPIC SYLLABLE TWA
+2D86  ; [.221B.0020.0002] # ETHIOPIC SYLLABLE TOA
+1278  ; [.221C.0020.0002] # ETHIOPIC SYLLABLE CA
+1279  ; [.221D.0020.0002] # ETHIOPIC SYLLABLE CU
+127A  ; [.221E.0020.0002] # ETHIOPIC SYLLABLE CI
+127B  ; [.221F.0020.0002] # ETHIOPIC SYLLABLE CAA
+127C  ; [.2220.0020.0002] # ETHIOPIC SYLLABLE CEE
+127D  ; [.2221.0020.0002] # ETHIOPIC SYLLABLE CE
+127E  ; [.2222.0020.0002] # ETHIOPIC SYLLABLE CO
+127F  ; [.2223.0020.0002] # ETHIOPIC SYLLABLE CWA
+2D87  ; [.2224.0020.0002] # ETHIOPIC SYLLABLE COA
+1280  ; [.2225.0020.0002] # ETHIOPIC SYLLABLE XA
+1281  ; [.2226.0020.0002] # ETHIOPIC SYLLABLE XU
+1282  ; [.2227.0020.0002] # ETHIOPIC SYLLABLE XI
+1283  ; [.2228.0020.0002] # ETHIOPIC SYLLABLE XAA
+1284  ; [.2229.0020.0002] # ETHIOPIC SYLLABLE XEE
+1285  ; [.222A.0020.0002] # ETHIOPIC SYLLABLE XE
+1286  ; [.222B.0020.0002] # ETHIOPIC SYLLABLE XO
+1287  ; [.222C.0020.0002] # ETHIOPIC SYLLABLE XOA
+1288  ; [.222D.0020.0002] # ETHIOPIC SYLLABLE XWA
+128A  ; [.222E.0020.0002] # ETHIOPIC SYLLABLE XWI
+128B  ; [.222F.0020.0002] # ETHIOPIC SYLLABLE XWAA
+128C  ; [.2230.0020.0002] # ETHIOPIC SYLLABLE XWEE
+128D  ; [.2231.0020.0002] # ETHIOPIC SYLLABLE XWE
+1290  ; [.2232.0020.0002] # ETHIOPIC SYLLABLE NA
+1291  ; [.2233.0020.0002] # ETHIOPIC SYLLABLE NU
+1292  ; [.2234.0020.0002] # ETHIOPIC SYLLABLE NI
+1293  ; [.2235.0020.0002] # ETHIOPIC SYLLABLE NAA
+1294  ; [.2236.0020.0002] # ETHIOPIC SYLLABLE NEE
+1295  ; [.2237.0020.0002] # ETHIOPIC SYLLABLE NE
+1296  ; [.2238.0020.0002] # ETHIOPIC SYLLABLE NO
+1297  ; [.2239.0020.0002] # ETHIOPIC SYLLABLE NWA
+2D88  ; [.223A.0020.0002] # ETHIOPIC SYLLABLE NOA
+1298  ; [.223B.0020.0002] # ETHIOPIC SYLLABLE NYA
+1299  ; [.223C.0020.0002] # ETHIOPIC SYLLABLE NYU
+129A  ; [.223D.0020.0002] # ETHIOPIC SYLLABLE NYI
+129B  ; [.223E.0020.0002] # ETHIOPIC SYLLABLE NYAA
+129C  ; [.223F.0020.0002] # ETHIOPIC SYLLABLE NYEE
+129D  ; [.2240.0020.0002] # ETHIOPIC SYLLABLE NYE
+129E  ; [.2241.0020.0002] # ETHIOPIC SYLLABLE NYO
+129F  ; [.2242.0020.0002] # ETHIOPIC SYLLABLE NYWA
+2D89  ; [.2243.0020.0002] # ETHIOPIC SYLLABLE NYOA
+12A0  ; [.2244.0020.0002] # ETHIOPIC SYLLABLE GLOTTAL A
+12A1  ; [.2245.0020.0002] # ETHIOPIC SYLLABLE GLOTTAL U
+12A2  ; [.2246.0020.0002] # ETHIOPIC SYLLABLE GLOTTAL I
+12A3  ; [.2247.0020.0002] # ETHIOPIC SYLLABLE GLOTTAL AA
+12A4  ; [.2248.0020.0002] # ETHIOPIC SYLLABLE GLOTTAL EE
+12A5  ; [.2249.0020.0002] # ETHIOPIC SYLLABLE GLOTTAL E
+12A6  ; [.224A.0020.0002] # ETHIOPIC SYLLABLE GLOTTAL O
+12A7  ; [.224B.0020.0002] # ETHIOPIC SYLLABLE GLOTTAL WA
+2D8A  ; [.224C.0020.0002] # ETHIOPIC SYLLABLE GLOTTAL OA
+12A8  ; [.224D.0020.0002] # ETHIOPIC SYLLABLE KA
+12A9  ; [.224E.0020.0002] # ETHIOPIC SYLLABLE KU
+12AA  ; [.224F.0020.0002] # ETHIOPIC SYLLABLE KI
+12AB  ; [.2250.0020.0002] # ETHIOPIC SYLLABLE KAA
+12AC  ; [.2251.0020.0002] # ETHIOPIC SYLLABLE KEE
+12AD  ; [.2252.0020.0002] # ETHIOPIC SYLLABLE KE
+12AE  ; [.2253.0020.0002] # ETHIOPIC SYLLABLE KO
+12AF  ; [.2254.0020.0002] # ETHIOPIC SYLLABLE KOA
+12B0  ; [.2255.0020.0002] # ETHIOPIC SYLLABLE KWA
+12B2  ; [.2256.0020.0002] # ETHIOPIC SYLLABLE KWI
+12B3  ; [.2257.0020.0002] # ETHIOPIC SYLLABLE KWAA
+12B4  ; [.2258.0020.0002] # ETHIOPIC SYLLABLE KWEE
+12B5  ; [.2259.0020.0002] # ETHIOPIC SYLLABLE KWE
+12B8  ; [.225A.0020.0002] # ETHIOPIC SYLLABLE KXA
+12B9  ; [.225B.0020.0002] # ETHIOPIC SYLLABLE KXU
+12BA  ; [.225C.0020.0002] # ETHIOPIC SYLLABLE KXI
+12BB  ; [.225D.0020.0002] # ETHIOPIC SYLLABLE KXAA
+12BC  ; [.225E.0020.0002] # ETHIOPIC SYLLABLE KXEE
+12BD  ; [.225F.0020.0002] # ETHIOPIC SYLLABLE KXE
+12BE  ; [.2260.0020.0002] # ETHIOPIC SYLLABLE KXO
+12C0  ; [.2261.0020.0002] # ETHIOPIC SYLLABLE KXWA
+12C2  ; [.2262.0020.0002] # ETHIOPIC SYLLABLE KXWI
+12C3  ; [.2263.0020.0002] # ETHIOPIC SYLLABLE KXWAA
+12C4  ; [.2264.0020.0002] # ETHIOPIC SYLLABLE KXWEE
+12C5  ; [.2265.0020.0002] # ETHIOPIC SYLLABLE KXWE
+12C8  ; [.2266.0020.0002] # ETHIOPIC SYLLABLE WA
+12C9  ; [.2267.0020.0002] # ETHIOPIC SYLLABLE WU
+12CA  ; [.2268.0020.0002] # ETHIOPIC SYLLABLE WI
+12CB  ; [.2269.0020.0002] # ETHIOPIC SYLLABLE WAA
+12CC  ; [.226A.0020.0002] # ETHIOPIC SYLLABLE WEE
+12CD  ; [.226B.0020.0002] # ETHIOPIC SYLLABLE WE
+12CE  ; [.226C.0020.0002] # ETHIOPIC SYLLABLE WO
+12CF  ; [.226D.0020.0002] # ETHIOPIC SYLLABLE WOA
+12D0  ; [.226E.0020.0002] # ETHIOPIC SYLLABLE PHARYNGEAL A
+12D1  ; [.226F.0020.0002] # ETHIOPIC SYLLABLE PHARYNGEAL U
+12D2  ; [.2270.0020.0002] # ETHIOPIC SYLLABLE PHARYNGEAL I
+12D3  ; [.2271.0020.0002] # ETHIOPIC SYLLABLE PHARYNGEAL AA
+12D4  ; [.2272.0020.0002] # ETHIOPIC SYLLABLE PHARYNGEAL EE
+12D5  ; [.2273.0020.0002] # ETHIOPIC SYLLABLE PHARYNGEAL E
+12D6  ; [.2274.0020.0002] # ETHIOPIC SYLLABLE PHARYNGEAL O
+12D8  ; [.2275.0020.0002] # ETHIOPIC SYLLABLE ZA
+12D9  ; [.2276.0020.0002] # ETHIOPIC SYLLABLE ZU
+12DA  ; [.2277.0020.0002] # ETHIOPIC SYLLABLE ZI
+12DB  ; [.2278.0020.0002] # ETHIOPIC SYLLABLE ZAA
+12DC  ; [.2279.0020.0002] # ETHIOPIC SYLLABLE ZEE
+12DD  ; [.227A.0020.0002] # ETHIOPIC SYLLABLE ZE
+12DE  ; [.227B.0020.0002] # ETHIOPIC SYLLABLE ZO
+12DF  ; [.227C.0020.0002] # ETHIOPIC SYLLABLE ZWA
+2D8B  ; [.227D.0020.0002] # ETHIOPIC SYLLABLE ZOA
+AB11  ; [.227E.0020.0002] # ETHIOPIC SYLLABLE DZU
+AB12  ; [.227F.0020.0002] # ETHIOPIC SYLLABLE DZI
+AB13  ; [.2280.0020.0002] # ETHIOPIC SYLLABLE DZAA
+AB14  ; [.2281.0020.0002] # ETHIOPIC SYLLABLE DZEE
+AB15  ; [.2282.0020.0002] # ETHIOPIC SYLLABLE DZE
+AB16  ; [.2283.0020.0002] # ETHIOPIC SYLLABLE DZO
+12E0  ; [.2284.0020.0002] # ETHIOPIC SYLLABLE ZHA
+12E1  ; [.2285.0020.0002] # ETHIOPIC SYLLABLE ZHU
+12E2  ; [.2286.0020.0002] # ETHIOPIC SYLLABLE ZHI
+12E3  ; [.2287.0020.0002] # ETHIOPIC SYLLABLE ZHAA
+12E4  ; [.2288.0020.0002] # ETHIOPIC SYLLABLE ZHEE
+12E5  ; [.2289.0020.0002] # ETHIOPIC SYLLABLE ZHE
+12E6  ; [.228A.0020.0002] # ETHIOPIC SYLLABLE ZHO
+12E7  ; [.228B.0020.0002] # ETHIOPIC SYLLABLE ZHWA
+12E8  ; [.228C.0020.0002] # ETHIOPIC SYLLABLE YA
+12E9  ; [.228D.0020.0002] # ETHIOPIC SYLLABLE YU
+12EA  ; [.228E.0020.0002] # ETHIOPIC SYLLABLE YI
+12EB  ; [.228F.0020.0002] # ETHIOPIC SYLLABLE YAA
+12EC  ; [.2290.0020.0002] # ETHIOPIC SYLLABLE YEE
+12ED  ; [.2291.0020.0002] # ETHIOPIC SYLLABLE YE
+12EE  ; [.2292.0020.0002] # ETHIOPIC SYLLABLE YO
+12EF  ; [.2293.0020.0002] # ETHIOPIC SYLLABLE YOA
+12F0  ; [.2294.0020.0002] # ETHIOPIC SYLLABLE DA
+12F1  ; [.2295.0020.0002] # ETHIOPIC SYLLABLE DU
+12F2  ; [.2296.0020.0002] # ETHIOPIC SYLLABLE DI
+12F3  ; [.2297.0020.0002] # ETHIOPIC SYLLABLE DAA
+12F4  ; [.2298.0020.0002] # ETHIOPIC SYLLABLE DEE
+12F5  ; [.2299.0020.0002] # ETHIOPIC SYLLABLE DE
+12F6  ; [.229A.0020.0002] # ETHIOPIC SYLLABLE DO
+12F7  ; [.229B.0020.0002] # ETHIOPIC SYLLABLE DWA
+2D8C  ; [.229C.0020.0002] # ETHIOPIC SYLLABLE DOA
+AB09  ; [.229D.0020.0002] # ETHIOPIC SYLLABLE DDHU
+AB0A  ; [.229E.0020.0002] # ETHIOPIC SYLLABLE DDHI
+AB0B  ; [.229F.0020.0002] # ETHIOPIC SYLLABLE DDHAA
+AB0C  ; [.22A0.0020.0002] # ETHIOPIC SYLLABLE DDHEE
+AB0D  ; [.22A1.0020.0002] # ETHIOPIC SYLLABLE DDHE
+AB0E  ; [.22A2.0020.0002] # ETHIOPIC SYLLABLE DDHO
+12F8  ; [.22A3.0020.0002] # ETHIOPIC SYLLABLE DDA
+12F9  ; [.22A4.0020.0002] # ETHIOPIC SYLLABLE DDU
+12FA  ; [.22A5.0020.0002] # ETHIOPIC SYLLABLE DDI
+12FB  ; [.22A6.0020.0002] # ETHIOPIC SYLLABLE DDAA
+12FC  ; [.22A7.0020.0002] # ETHIOPIC SYLLABLE DDEE
+12FD  ; [.22A8.0020.0002] # ETHIOPIC SYLLABLE DDE
+12FE  ; [.22A9.0020.0002] # ETHIOPIC SYLLABLE DDO
+12FF  ; [.22AA.0020.0002] # ETHIOPIC SYLLABLE DDWA
+2D8D  ; [.22AB.0020.0002] # ETHIOPIC SYLLABLE DDOA
+1300  ; [.22AC.0020.0002] # ETHIOPIC SYLLABLE JA
+1301  ; [.22AD.0020.0002] # ETHIOPIC SYLLABLE JU
+1302  ; [.22AE.0020.0002] # ETHIOPIC SYLLABLE JI
+1303  ; [.22AF.0020.0002] # ETHIOPIC SYLLABLE JAA
+1304  ; [.22B0.0020.0002] # ETHIOPIC SYLLABLE JEE
+1305  ; [.22B1.0020.0002] # ETHIOPIC SYLLABLE JE
+1306  ; [.22B2.0020.0002] # ETHIOPIC SYLLABLE JO
+1307  ; [.22B3.0020.0002] # ETHIOPIC SYLLABLE JWA
+2D8E  ; [.22B4.0020.0002] # ETHIOPIC SYLLABLE JOA
+1308  ; [.22B5.0020.0002] # ETHIOPIC SYLLABLE GA
+1309  ; [.22B6.0020.0002] # ETHIOPIC SYLLABLE GU
+130A  ; [.22B7.0020.0002] # ETHIOPIC SYLLABLE GI
+130B  ; [.22B8.0020.0002] # ETHIOPIC SYLLABLE GAA
+130C  ; [.22B9.0020.0002] # ETHIOPIC SYLLABLE GEE
+130D  ; [.22BA.0020.0002] # ETHIOPIC SYLLABLE GE
+130E  ; [.22BB.0020.0002] # ETHIOPIC SYLLABLE GO
+130F  ; [.22BC.0020.0002] # ETHIOPIC SYLLABLE GOA
+1310  ; [.22BD.0020.0002] # ETHIOPIC SYLLABLE GWA
+1312  ; [.22BE.0020.0002] # ETHIOPIC SYLLABLE GWI
+1313  ; [.22BF.0020.0002] # ETHIOPIC SYLLABLE GWAA
+1314  ; [.22C0.0020.0002] # ETHIOPIC SYLLABLE GWEE
+1315  ; [.22C1.0020.0002] # ETHIOPIC SYLLABLE GWE
+1318  ; [.22C2.0020.0002] # ETHIOPIC SYLLABLE GGA
+1319  ; [.22C3.0020.0002] # ETHIOPIC SYLLABLE GGU
+131A  ; [.22C4.0020.0002] # ETHIOPIC SYLLABLE GGI
+131B  ; [.22C5.0020.0002] # ETHIOPIC SYLLABLE GGAA
+131C  ; [.22C6.0020.0002] # ETHIOPIC SYLLABLE GGEE
+131D  ; [.22C7.0020.0002] # ETHIOPIC SYLLABLE GGE
+131E  ; [.22C8.0020.0002] # ETHIOPIC SYLLABLE GGO
+131F  ; [.22C9.0020.0002] # ETHIOPIC SYLLABLE GGWAA
+2D93  ; [.22CA.0020.0002] # ETHIOPIC SYLLABLE GGWA
+2D94  ; [.22CB.0020.0002] # ETHIOPIC SYLLABLE GGWI
+2D95  ; [.22CC.0020.0002] # ETHIOPIC SYLLABLE GGWEE
+2D96  ; [.22CD.0020.0002] # ETHIOPIC SYLLABLE GGWE
+1320  ; [.22CE.0020.0002] # ETHIOPIC SYLLABLE THA
+1321  ; [.22CF.0020.0002] # ETHIOPIC SYLLABLE THU
+1322  ; [.22D0.0020.0002] # ETHIOPIC SYLLABLE THI
+1323  ; [.22D1.0020.0002] # ETHIOPIC SYLLABLE THAA
+1324  ; [.22D2.0020.0002] # ETHIOPIC SYLLABLE THEE
+1325  ; [.22D3.0020.0002] # ETHIOPIC SYLLABLE THE
+1326  ; [.22D4.0020.0002] # ETHIOPIC SYLLABLE THO
+1327  ; [.22D5.0020.0002] # ETHIOPIC SYLLABLE THWA
+2D8F  ; [.22D6.0020.0002] # ETHIOPIC SYLLABLE THOA
+1328  ; [.22D7.0020.0002] # ETHIOPIC SYLLABLE CHA
+1329  ; [.22D8.0020.0002] # ETHIOPIC SYLLABLE CHU
+132A  ; [.22D9.0020.0002] # ETHIOPIC SYLLABLE CHI
+132B  ; [.22DA.0020.0002] # ETHIOPIC SYLLABLE CHAA
+132C  ; [.22DB.0020.0002] # ETHIOPIC SYLLABLE CHEE
+132D  ; [.22DC.0020.0002] # ETHIOPIC SYLLABLE CHE
+132E  ; [.22DD.0020.0002] # ETHIOPIC SYLLABLE CHO
+132F  ; [.22DE.0020.0002] # ETHIOPIC SYLLABLE CHWA
+2D90  ; [.22DF.0020.0002] # ETHIOPIC SYLLABLE CHOA
+AB20  ; [.22E0.0020.0002] # ETHIOPIC SYLLABLE CCHHA
+AB21  ; [.22E1.0020.0002] # ETHIOPIC SYLLABLE CCHHU
+AB22  ; [.22E2.0020.0002] # ETHIOPIC SYLLABLE CCHHI
+AB23  ; [.22E3.0020.0002] # ETHIOPIC SYLLABLE CCHHAA
+AB24  ; [.22E4.0020.0002] # ETHIOPIC SYLLABLE CCHHEE
+AB25  ; [.22E5.0020.0002] # ETHIOPIC SYLLABLE CCHHE
+AB26  ; [.22E6.0020.0002] # ETHIOPIC SYLLABLE CCHHO
+1330  ; [.22E7.0020.0002] # ETHIOPIC SYLLABLE PHA
+1331  ; [.22E8.0020.0002] # ETHIOPIC SYLLABLE PHU
+1332  ; [.22E9.0020.0002] # ETHIOPIC SYLLABLE PHI
+1333  ; [.22EA.0020.0002] # ETHIOPIC SYLLABLE PHAA
+1334  ; [.22EB.0020.0002] # ETHIOPIC SYLLABLE PHEE
+1335  ; [.22EC.0020.0002] # ETHIOPIC SYLLABLE PHE
+1336  ; [.22ED.0020.0002] # ETHIOPIC SYLLABLE PHO
+1337  ; [.22EE.0020.0002] # ETHIOPIC SYLLABLE PHWA
+2D91  ; [.22EF.0020.0002] # ETHIOPIC SYLLABLE PHOA
+1338  ; [.22F0.0020.0002] # ETHIOPIC SYLLABLE TSA
+1339  ; [.22F1.0020.0002] # ETHIOPIC SYLLABLE TSU
+133A  ; [.22F2.0020.0002] # ETHIOPIC SYLLABLE TSI
+133B  ; [.22F3.0020.0002] # ETHIOPIC SYLLABLE TSAA
+133C  ; [.22F4.0020.0002] # ETHIOPIC SYLLABLE TSEE
+133D  ; [.22F5.0020.0002] # ETHIOPIC SYLLABLE TSE
+133E  ; [.22F6.0020.0002] # ETHIOPIC SYLLABLE TSO
+133F  ; [.22F7.0020.0002] # ETHIOPIC SYLLABLE TSWA
+AB28  ; [.22F8.0020.0002] # ETHIOPIC SYLLABLE BBA
+AB29  ; [.22F9.0020.0002] # ETHIOPIC SYLLABLE BBU
+AB2A  ; [.22FA.0020.0002] # ETHIOPIC SYLLABLE BBI
+AB2B  ; [.22FB.0020.0002] # ETHIOPIC SYLLABLE BBAA
+AB2C  ; [.22FC.0020.0002] # ETHIOPIC SYLLABLE BBEE
+AB2D  ; [.22FD.0020.0002] # ETHIOPIC SYLLABLE BBE
+AB2E  ; [.22FE.0020.0002] # ETHIOPIC SYLLABLE BBO
+1340  ; [.22FF.0020.0002] # ETHIOPIC SYLLABLE TZA
+1341  ; [.2300.0020.0002] # ETHIOPIC SYLLABLE TZU
+1342  ; [.2301.0020.0002] # ETHIOPIC SYLLABLE TZI
+1343  ; [.2302.0020.0002] # ETHIOPIC SYLLABLE TZAA
+1344  ; [.2303.0020.0002] # ETHIOPIC SYLLABLE TZEE
+1345  ; [.2304.0020.0002] # ETHIOPIC SYLLABLE TZE
+1346  ; [.2305.0020.0002] # ETHIOPIC SYLLABLE TZO
+1347  ; [.2306.0020.0002] # ETHIOPIC SYLLABLE TZOA
+1348  ; [.2307.0020.0002] # ETHIOPIC SYLLABLE FA
+1349  ; [.2308.0020.0002] # ETHIOPIC SYLLABLE FU
+134A  ; [.2309.0020.0002] # ETHIOPIC SYLLABLE FI
+134B  ; [.230A.0020.0002] # ETHIOPIC SYLLABLE FAA
+134C  ; [.230B.0020.0002] # ETHIOPIC SYLLABLE FEE
+134D  ; [.230C.0020.0002] # ETHIOPIC SYLLABLE FE
+134E  ; [.230D.0020.0002] # ETHIOPIC SYLLABLE FO
+134F  ; [.230E.0020.0002] # ETHIOPIC SYLLABLE FWA
+1388  ; [.230F.0020.0002] # ETHIOPIC SYLLABLE SEBATBEIT FWA
+1389  ; [.2310.0020.0002] # ETHIOPIC SYLLABLE FWI
+138A  ; [.2311.0020.0002] # ETHIOPIC SYLLABLE FWEE
+138B  ; [.2312.0020.0002] # ETHIOPIC SYLLABLE FWE
+1350  ; [.2313.0020.0002] # ETHIOPIC SYLLABLE PA
+1351  ; [.2314.0020.0002] # ETHIOPIC SYLLABLE PU
+1352  ; [.2315.0020.0002] # ETHIOPIC SYLLABLE PI
+1353  ; [.2316.0020.0002] # ETHIOPIC SYLLABLE PAA
+1354  ; [.2317.0020.0002] # ETHIOPIC SYLLABLE PEE
+1355  ; [.2318.0020.0002] # ETHIOPIC SYLLABLE PE
+1356  ; [.2319.0020.0002] # ETHIOPIC SYLLABLE PO
+1357  ; [.231A.0020.0002] # ETHIOPIC SYLLABLE PWA
+138C  ; [.231B.0020.0002] # ETHIOPIC SYLLABLE SEBATBEIT PWA
+138D  ; [.231C.0020.0002] # ETHIOPIC SYLLABLE PWI
+138E  ; [.231D.0020.0002] # ETHIOPIC SYLLABLE PWEE
+138F  ; [.231E.0020.0002] # ETHIOPIC SYLLABLE PWE
+2D92  ; [.231F.0020.0002] # ETHIOPIC SYLLABLE POA
+1358  ; [.2320.0020.0002] # ETHIOPIC SYLLABLE RYA
+1359  ; [.2321.0020.0002] # ETHIOPIC SYLLABLE MYA
+135A  ; [.2322.0020.0002] # ETHIOPIC SYLLABLE FYA
+2DA0  ; [.2323.0020.0002] # ETHIOPIC SYLLABLE SSA
+2DA1  ; [.2324.0020.0002] # ETHIOPIC SYLLABLE SSU
+2DA2  ; [.2325.0020.0002] # ETHIOPIC SYLLABLE SSI
+2DA3  ; [.2326.0020.0002] # ETHIOPIC SYLLABLE SSAA
+2DA4  ; [.2327.0020.0002] # ETHIOPIC SYLLABLE SSEE
+2DA5  ; [.2328.0020.0002] # ETHIOPIC SYLLABLE SSE
+2DA6  ; [.2329.0020.0002] # ETHIOPIC SYLLABLE SSO
+2DA8  ; [.232A.0020.0002] # ETHIOPIC SYLLABLE CCA
+2DA9  ; [.232B.0020.0002] # ETHIOPIC SYLLABLE CCU
+2DAA  ; [.232C.0020.0002] # ETHIOPIC SYLLABLE CCI
+2DAB  ; [.232D.0020.0002] # ETHIOPIC SYLLABLE CCAA
+2DAC  ; [.232E.0020.0002] # ETHIOPIC SYLLABLE CCEE
+2DAD  ; [.232F.0020.0002] # ETHIOPIC SYLLABLE CCE
+2DAE  ; [.2330.0020.0002] # ETHIOPIC SYLLABLE CCO
+2DB0  ; [.2331.0020.0002] # ETHIOPIC SYLLABLE ZZA
+2DB1  ; [.2332.0020.0002] # ETHIOPIC SYLLABLE ZZU
+2DB2  ; [.2333.0020.0002] # ETHIOPIC SYLLABLE ZZI
+2DB3  ; [.2334.0020.0002] # ETHIOPIC SYLLABLE ZZAA
+2DB4  ; [.2335.0020.0002] # ETHIOPIC SYLLABLE ZZEE
+2DB5  ; [.2336.0020.0002] # ETHIOPIC SYLLABLE ZZE
+2DB6  ; [.2337.0020.0002] # ETHIOPIC SYLLABLE ZZO
+2DB8  ; [.2338.0020.0002] # ETHIOPIC SYLLABLE CCHA
+2DB9  ; [.2339.0020.0002] # ETHIOPIC SYLLABLE CCHU
+2DBA  ; [.233A.0020.0002] # ETHIOPIC SYLLABLE CCHI
+2DBB  ; [.233B.0020.0002] # ETHIOPIC SYLLABLE CCHAA
+2DBC  ; [.233C.0020.0002] # ETHIOPIC SYLLABLE CCHEE
+2DBD  ; [.233D.0020.0002] # ETHIOPIC SYLLABLE CCHE
+2DBE  ; [.233E.0020.0002] # ETHIOPIC SYLLABLE CCHO
+2DC0  ; [.233F.0020.0002] # ETHIOPIC SYLLABLE QYA
+2DC1  ; [.2340.0020.0002] # ETHIOPIC SYLLABLE QYU
+2DC2  ; [.2341.0020.0002] # ETHIOPIC SYLLABLE QYI
+2DC3  ; [.2342.0020.0002] # ETHIOPIC SYLLABLE QYAA
+2DC4  ; [.2343.0020.0002] # ETHIOPIC SYLLABLE QYEE
+2DC5  ; [.2344.0020.0002] # ETHIOPIC SYLLABLE QYE
+2DC6  ; [.2345.0020.0002] # ETHIOPIC SYLLABLE QYO
+2DC8  ; [.2346.0020.0002] # ETHIOPIC SYLLABLE KYA
+2DC9  ; [.2347.0020.0002] # ETHIOPIC SYLLABLE KYU
+2DCA  ; [.2348.0020.0002] # ETHIOPIC SYLLABLE KYI
+2DCB  ; [.2349.0020.0002] # ETHIOPIC SYLLABLE KYAA
+2DCC  ; [.234A.0020.0002] # ETHIOPIC SYLLABLE KYEE
+2DCD  ; [.234B.0020.0002] # ETHIOPIC SYLLABLE KYE
+2DCE  ; [.234C.0020.0002] # ETHIOPIC SYLLABLE KYO
+2DD0  ; [.234D.0020.0002] # ETHIOPIC SYLLABLE XYA
+2DD1  ; [.234E.0020.0002] # ETHIOPIC SYLLABLE XYU
+2DD2  ; [.234F.0020.0002] # ETHIOPIC SYLLABLE XYI
+2DD3  ; [.2350.0020.0002] # ETHIOPIC SYLLABLE XYAA
+2DD4  ; [.2351.0020.0002] # ETHIOPIC SYLLABLE XYEE
+2DD5  ; [.2352.0020.0002] # ETHIOPIC SYLLABLE XYE
+2DD6  ; [.2353.0020.0002] # ETHIOPIC SYLLABLE XYO
+2DD8  ; [.2354.0020.0002] # ETHIOPIC SYLLABLE GYA
+2DD9  ; [.2355.0020.0002] # ETHIOPIC SYLLABLE GYU
+2DDA  ; [.2356.0020.0002] # ETHIOPIC SYLLABLE GYI
+2DDB  ; [.2357.0020.0002] # ETHIOPIC SYLLABLE GYAA
+2DDC  ; [.2358.0020.0002] # ETHIOPIC SYLLABLE GYEE
+2DDD  ; [.2359.0020.0002] # ETHIOPIC SYLLABLE GYE
+2DDE  ; [.235A.0020.0002] # ETHIOPIC SYLLABLE GYO
+0950  ; [.235B.0020.0002] # DEVANAGARI OM
+0972  ; [.235C.0020.0002] # DEVANAGARI LETTER CANDRA A
+0904  ; [.235D.0020.0002] # DEVANAGARI LETTER SHORT A
+0905  ; [.235E.0020.0002] # DEVANAGARI LETTER A
+0906  ; [.235F.0020.0002] # DEVANAGARI LETTER AA
+0973  ; [.2360.0020.0002] # DEVANAGARI LETTER OE
+0974  ; [.2361.0020.0002] # DEVANAGARI LETTER OOE
+0975  ; [.2362.0020.0002] # DEVANAGARI LETTER AW
+0976  ; [.2363.0020.0002] # DEVANAGARI LETTER UE
+0977  ; [.2364.0020.0002] # DEVANAGARI LETTER UUE
+0907  ; [.2365.0020.0002] # DEVANAGARI LETTER I
+0908  ; [.2366.0020.0002] # DEVANAGARI LETTER II
+0909  ; [.2367.0020.0002] # DEVANAGARI LETTER U
+090A  ; [.2368.0020.0002] # DEVANAGARI LETTER UU
+090B  ; [.2369.0020.0002] # DEVANAGARI LETTER VOCALIC R
+0960  ; [.236A.0020.0002] # DEVANAGARI LETTER VOCALIC RR
+090C  ; [.236B.0020.0002] # DEVANAGARI LETTER VOCALIC L
+0961  ; [.236C.0020.0002] # DEVANAGARI LETTER VOCALIC LL
+090D  ; [.236D.0020.0002] # DEVANAGARI LETTER CANDRA E
+090E  ; [.236E.0020.0002] # DEVANAGARI LETTER SHORT E
+090F  ; [.236F.0020.0002] # DEVANAGARI LETTER E
+0910  ; [.2370.0020.0002] # DEVANAGARI LETTER AI
+0911  ; [.2371.0020.0002] # DEVANAGARI LETTER CANDRA O
+0912  ; [.2372.0020.0002] # DEVANAGARI LETTER SHORT O
+0913  ; [.2373.0020.0002] # DEVANAGARI LETTER O
+0914  ; [.2374.0020.0002] # DEVANAGARI LETTER AU
+0915  ; [.2375.0020.0002] # DEVANAGARI LETTER KA
+0958  ; [.2375.0020.0002][.0000.00BC.0002] # DEVANAGARI LETTER QA
+0916  ; [.2376.0020.0002] # DEVANAGARI LETTER KHA
+0959  ; [.2376.0020.0002][.0000.00BC.0002] # DEVANAGARI LETTER KHHA
+0917  ; [.2377.0020.0002] # DEVANAGARI LETTER GA
+095A  ; [.2377.0020.0002][.0000.00BC.0002] # DEVANAGARI LETTER GHHA
+097B  ; [.2378.0020.0002] # DEVANAGARI LETTER GGA
+0918  ; [.2379.0020.0002] # DEVANAGARI LETTER GHA
+0919  ; [.237A.0020.0002] # DEVANAGARI LETTER NGA
+091A  ; [.237B.0020.0002] # DEVANAGARI LETTER CA
+091B  ; [.237C.0020.0002] # DEVANAGARI LETTER CHA
+091C  ; [.237D.0020.0002] # DEVANAGARI LETTER JA
+095B  ; [.237D.0020.0002][.0000.00BC.0002] # DEVANAGARI LETTER ZA
+0979  ; [.237E.0020.0002] # DEVANAGARI LETTER ZHA
+097C  ; [.237F.0020.0002] # DEVANAGARI LETTER JJA
+091D  ; [.2380.0020.0002] # DEVANAGARI LETTER JHA
+091E  ; [.2381.0020.0002] # DEVANAGARI LETTER NYA
+091F  ; [.2382.0020.0002] # DEVANAGARI LETTER TTA
+0920  ; [.2383.0020.0002] # DEVANAGARI LETTER TTHA
+0978  ; [.2384.0020.0002] # DEVANAGARI LETTER MARWARI DDA
+0921  ; [.2385.0020.0002] # DEVANAGARI LETTER DDA
+095C  ; [.2385.0020.0002][.0000.00BC.0002] # DEVANAGARI LETTER DDDHA
+097E  ; [.2386.0020.0002] # DEVANAGARI LETTER DDDA
+0922  ; [.2387.0020.0002] # DEVANAGARI LETTER DDHA
+095D  ; [.2387.0020.0002][.0000.00BC.0002] # DEVANAGARI LETTER RHA
+0923  ; [.2388.0020.0002] # DEVANAGARI LETTER NNA
+0924  ; [.2389.0020.0002] # DEVANAGARI LETTER TA
+0925  ; [.238A.0020.0002] # DEVANAGARI LETTER THA
+0926  ; [.238B.0020.0002] # DEVANAGARI LETTER DA
+0927  ; [.238C.0020.0002] # DEVANAGARI LETTER DHA
+0928  ; [.238D.0020.0002] # DEVANAGARI LETTER NA
+0929  ; [.238D.0020.0002][.0000.00BC.0002] # DEVANAGARI LETTER NNNA
+092A  ; [.238E.0020.0002] # DEVANAGARI LETTER PA
+092B  ; [.238F.0020.0002] # DEVANAGARI LETTER PHA
+095E  ; [.238F.0020.0002][.0000.00BC.0002] # DEVANAGARI LETTER FA
+092C  ; [.2390.0020.0002] # DEVANAGARI LETTER BA
+097F  ; [.2391.0020.0002] # DEVANAGARI LETTER BBA
+092D  ; [.2392.0020.0002] # DEVANAGARI LETTER BHA
+092E  ; [.2393.0020.0002] # DEVANAGARI LETTER MA
+092F  ; [.2394.0020.0002] # DEVANAGARI LETTER YA
+095F  ; [.2394.0020.0002][.0000.00BC.0002] # DEVANAGARI LETTER YYA
+097A  ; [.2395.0020.0002] # DEVANAGARI LETTER HEAVY YA
+0930  ; [.2396.0020.0002] # DEVANAGARI LETTER RA
+0931  ; [.2396.0020.0002][.0000.00BC.0002] # DEVANAGARI LETTER RRA
+0932  ; [.2397.0020.0002] # DEVANAGARI LETTER LA
+0933  ; [.2398.0020.0002] # DEVANAGARI LETTER LLA
+0934  ; [.2398.0020.0002][.0000.00BC.0002] # DEVANAGARI LETTER LLLA
+0935  ; [.2399.0020.0002] # DEVANAGARI LETTER VA
+0936  ; [.239A.0020.0002] # DEVANAGARI LETTER SHA
+0937  ; [.239B.0020.0002] # DEVANAGARI LETTER SSA
+0938  ; [.239C.0020.0002] # DEVANAGARI LETTER SA
+0939  ; [.239D.0020.0002] # DEVANAGARI LETTER HA
+093D  ; [.239E.0020.0002] # DEVANAGARI SIGN AVAGRAHA
+097D  ; [.239F.0020.0002] # DEVANAGARI LETTER GLOTTAL STOP
+1CE9  ; [.23A0.0020.0002] # VEDIC SIGN ANUSVARA ANTARGOMUKHA
+1CEA  ; [.23A0.0020.0004] # VEDIC SIGN ANUSVARA BAHIRGOMUKHA
+1CEB  ; [.23A0.0020.0004] # VEDIC SIGN ANUSVARA VAMAGOMUKHA
+1CEC  ; [.23A0.0020.0004] # VEDIC SIGN ANUSVARA VAMAGOMUKHA WITH TAIL
+1CEE  ; [.23A0.0020.0004] # VEDIC SIGN HEXIFORM LONG ANUSVARA
+1CEF  ; [.23A0.0020.0004] # VEDIC SIGN LONG ANUSVARA
+1CF0  ; [.23A0.0020.0004] # VEDIC SIGN RTHANG LONG ANUSVARA
+1CF1  ; [.23A0.0020.0004] # VEDIC SIGN ANUSVARA UBHAYATO MUKHA
+1CF5  ; [.23A1.0020.0002] # VEDIC SIGN JIHVAMULIYA
+1CF6  ; [.23A2.0020.0002] # VEDIC SIGN UPADHMANIYA
+A8F2  ; [.23A3.0020.0002] # DEVANAGARI SIGN SPACING CANDRABINDU
+A8F3  ; [.23A3.0020.0004] # DEVANAGARI SIGN CANDRABINDU VIRAMA
+A8F4  ; [.23A3.0020.0004] # DEVANAGARI SIGN DOUBLE CANDRABINDU VIRAMA
+A8F5  ; [.23A3.0020.0004] # DEVANAGARI SIGN CANDRABINDU TWO
+A8F6  ; [.23A3.0020.0004] # DEVANAGARI SIGN CANDRABINDU THREE
+A8F7  ; [.23A3.0020.0004] # DEVANAGARI SIGN CANDRABINDU AVAGRAHA
+A8FB  ; [.23A4.0020.0002] # DEVANAGARI HEADSTROKE
+093E  ; [.23A5.0020.0002] # DEVANAGARI VOWEL SIGN AA
+093A  ; [.23A6.0020.0002] # DEVANAGARI VOWEL SIGN OE
+093B  ; [.23A7.0020.0002] # DEVANAGARI VOWEL SIGN OOE
+094F  ; [.23A8.0020.0002] # DEVANAGARI VOWEL SIGN AW
+0956  ; [.23A9.0020.0002] # DEVANAGARI VOWEL SIGN UE
+0957  ; [.23AA.0020.0002] # DEVANAGARI VOWEL SIGN UUE
+093F  ; [.23AB.0020.0002] # DEVANAGARI VOWEL SIGN I
+0940  ; [.23AC.0020.0002] # DEVANAGARI VOWEL SIGN II
+0941  ; [.23AD.0020.0002] # DEVANAGARI VOWEL SIGN U
+0942  ; [.23AE.0020.0002] # DEVANAGARI VOWEL SIGN UU
+0943  ; [.23AF.0020.0002] # DEVANAGARI VOWEL SIGN VOCALIC R
+0944  ; [.23B0.0020.0002] # DEVANAGARI VOWEL SIGN VOCALIC RR
+0962  ; [.23B1.0020.0002] # DEVANAGARI VOWEL SIGN VOCALIC L
+0963  ; [.23B2.0020.0002] # DEVANAGARI VOWEL SIGN VOCALIC LL
+0945  ; [.23B3.0020.0002] # DEVANAGARI VOWEL SIGN CANDRA E
+0955  ; [.23B4.0020.0002] # DEVANAGARI VOWEL SIGN CANDRA LONG E
+0946  ; [.23B5.0020.0002] # DEVANAGARI VOWEL SIGN SHORT E
+0947  ; [.23B6.0020.0002] # DEVANAGARI VOWEL SIGN E
+094E  ; [.23B7.0020.0002] # DEVANAGARI VOWEL SIGN PRISHTHAMATRA E
+0948  ; [.23B8.0020.0002] # DEVANAGARI VOWEL SIGN AI
+0949  ; [.23B9.0020.0002] # DEVANAGARI VOWEL SIGN CANDRA O
+094A  ; [.23BA.0020.0002] # DEVANAGARI VOWEL SIGN SHORT O
+094B  ; [.23BB.0020.0002] # DEVANAGARI VOWEL SIGN O
+094C  ; [.23BC.0020.0002] # DEVANAGARI VOWEL SIGN AU
+094D  ; [.23BD.0020.0002] # DEVANAGARI SIGN VIRAMA
+0980  ; [.23BE.0020.0002] # BENGALI ANJI
+0985  ; [.23BF.0020.0002] # BENGALI LETTER A
+0986  ; [.23C0.0020.0002] # BENGALI LETTER AA
+0987  ; [.23C1.0020.0002] # BENGALI LETTER I
+0988  ; [.23C2.0020.0002] # BENGALI LETTER II
+0989  ; [.23C3.0020.0002] # BENGALI LETTER U
+098A  ; [.23C4.0020.0002] # BENGALI LETTER UU
+098B  ; [.23C5.0020.0002] # BENGALI LETTER VOCALIC R
+09E0  ; [.23C6.0020.0002] # BENGALI LETTER VOCALIC RR
+098C  ; [.23C7.0020.0002] # BENGALI LETTER VOCALIC L
+09E1  ; [.23C8.0020.0002] # BENGALI LETTER VOCALIC LL
+098F  ; [.23C9.0020.0002] # BENGALI LETTER E
+0990  ; [.23CA.0020.0002] # BENGALI LETTER AI
+0993  ; [.23CB.0020.0002] # BENGALI LETTER O
+0994  ; [.23CC.0020.0002] # BENGALI LETTER AU
+0995  ; [.23CD.0020.0002] # BENGALI LETTER KA
+0996  ; [.23CE.0020.0002] # BENGALI LETTER KHA
+0997  ; [.23CF.0020.0002] # BENGALI LETTER GA
+0998  ; [.23D0.0020.0002] # BENGALI LETTER GHA
+0999  ; [.23D1.0020.0002] # BENGALI LETTER NGA
+099A  ; [.23D2.0020.0002] # BENGALI LETTER CA
+099B  ; [.23D3.0020.0002] # BENGALI LETTER CHA
+099C  ; [.23D4.0020.0002] # BENGALI LETTER JA
+099D  ; [.23D5.0020.0002] # BENGALI LETTER JHA
+099E  ; [.23D6.0020.0002] # BENGALI LETTER NYA
+099F  ; [.23D7.0020.0002] # BENGALI LETTER TTA
+09A0  ; [.23D8.0020.0002] # BENGALI LETTER TTHA
+09A1  ; [.23D9.0020.0002] # BENGALI LETTER DDA
+09DC  ; [.23D9.0020.0002][.0000.00BC.0002] # BENGALI LETTER RRA
+09A2  ; [.23DA.0020.0002] # BENGALI LETTER DDHA
+09DD  ; [.23DA.0020.0002][.0000.00BC.0002] # BENGALI LETTER RHA
+09A3  ; [.23DB.0020.0002] # BENGALI LETTER NNA
+09A4  ; [.23DC.0020.0002] # BENGALI LETTER TA
+09CE  ; [.23DC.0020.0004][.23FD.0020.0004] # BENGALI LETTER KHANDA TA
+09A5  ; [.23DD.0020.0002] # BENGALI LETTER THA
+09A6  ; [.23DE.0020.0002] # BENGALI LETTER DA
+09A7  ; [.23DF.0020.0002] # BENGALI LETTER DHA
+09A8  ; [.23E0.0020.0002] # BENGALI LETTER NA
+09AA  ; [.23E1.0020.0002] # BENGALI LETTER PA
+09AB  ; [.23E2.0020.0002] # BENGALI LETTER PHA
+09AC  ; [.23E3.0020.0002] # BENGALI LETTER BA
+09AD  ; [.23E4.0020.0002] # BENGALI LETTER BHA
+09AE  ; [.23E5.0020.0002] # BENGALI LETTER MA
+09AF  ; [.23E6.0020.0002] # BENGALI LETTER YA
+09DF  ; [.23E6.0020.0002][.0000.00BC.0002] # BENGALI LETTER YYA
+09B0  ; [.23E7.0020.0002] # BENGALI LETTER RA
+09F0  ; [.23E8.0020.0002] # BENGALI LETTER RA WITH MIDDLE DIAGONAL
+09B2  ; [.23E9.0020.0002] # BENGALI LETTER LA
+09F1  ; [.23EA.0020.0002] # BENGALI LETTER RA WITH LOWER DIAGONAL
+09B6  ; [.23EB.0020.0002] # BENGALI LETTER SHA
+09B7  ; [.23EC.0020.0002] # BENGALI LETTER SSA
+09B8  ; [.23ED.0020.0002] # BENGALI LETTER SA
+09B9  ; [.23EE.0020.0002] # BENGALI LETTER HA
+09BD  ; [.23EF.0020.0002] # BENGALI SIGN AVAGRAHA
+09BE  ; [.23F0.0020.0002] # BENGALI VOWEL SIGN AA
+09BF  ; [.23F1.0020.0002] # BENGALI VOWEL SIGN I
+09C0  ; [.23F2.0020.0002] # BENGALI VOWEL SIGN II
+09C1  ; [.23F3.0020.0002] # BENGALI VOWEL SIGN U
+09C2  ; [.23F4.0020.0002] # BENGALI VOWEL SIGN UU
+09C3  ; [.23F5.0020.0002] # BENGALI VOWEL SIGN VOCALIC R
+09C4  ; [.23F6.0020.0002] # BENGALI VOWEL SIGN VOCALIC RR
+09E2  ; [.23F7.0020.0002] # BENGALI VOWEL SIGN VOCALIC L
+09E3  ; [.23F8.0020.0002] # BENGALI VOWEL SIGN VOCALIC LL
+09C7  ; [.23F9.0020.0002] # BENGALI VOWEL SIGN E
+09C8  ; [.23FA.0020.0002] # BENGALI VOWEL SIGN AI
+09CB  ; [.23FB.0020.0002] # BENGALI VOWEL SIGN O
+09C7 09BE ; [.23FB.0020.0002] # BENGALI VOWEL SIGN O
+09CC  ; [.23FC.0020.0002] # BENGALI VOWEL SIGN AU
+09C7 09D7 ; [.23FC.0020.0002] # BENGALI VOWEL SIGN AU
+09CD  ; [.23FD.0020.0002] # BENGALI SIGN VIRAMA
+09D7  ; [.23FE.0020.0002] # BENGALI AU LENGTH MARK
+0A74  ; [.23FF.0020.0002] # GURMUKHI EK ONKAR
+0A73  ; [.2400.0020.0002] # GURMUKHI URA
+0A09  ; [.2401.0020.0002] # GURMUKHI LETTER U
+0A0A  ; [.2402.0020.0002] # GURMUKHI LETTER UU
+0A13  ; [.2403.0020.0002] # GURMUKHI LETTER OO
+0A05  ; [.2404.0020.0002] # GURMUKHI LETTER A
+0A06  ; [.2405.0020.0002] # GURMUKHI LETTER AA
+0A10  ; [.2406.0020.0002] # GURMUKHI LETTER AI
+0A14  ; [.2407.0020.0002] # GURMUKHI LETTER AU
+0A72  ; [.2408.0020.0002] # GURMUKHI IRI
+0A07  ; [.2409.0020.0002] # GURMUKHI LETTER I
+0A08  ; [.240A.0020.0002] # GURMUKHI LETTER II
+0A0F  ; [.240B.0020.0002] # GURMUKHI LETTER EE
+0A38  ; [.240C.0020.0002] # GURMUKHI LETTER SA
+0A36  ; [.240C.0020.0002][.0000.00BC.0002] # GURMUKHI LETTER SHA
+0A39  ; [.240D.0020.0002] # GURMUKHI LETTER HA
+0A51  ; [.240E.0020.0002] # GURMUKHI SIGN UDAAT
+0A15  ; [.240F.0020.0002] # GURMUKHI LETTER KA
+0A16  ; [.2410.0020.0002] # GURMUKHI LETTER KHA
+0A59  ; [.2410.0020.0002][.0000.00BC.0002] # GURMUKHI LETTER KHHA
+0A17  ; [.2411.0020.0002] # GURMUKHI LETTER GA
+0A5A  ; [.2411.0020.0002][.0000.00BC.0002] # GURMUKHI LETTER GHHA
+0A18  ; [.2412.0020.0002] # GURMUKHI LETTER GHA
+0A19  ; [.2413.0020.0002] # GURMUKHI LETTER NGA
+0A1A  ; [.2414.0020.0002] # GURMUKHI LETTER CA
+0A1B  ; [.2415.0020.0002] # GURMUKHI LETTER CHA
+0A1C  ; [.2416.0020.0002] # GURMUKHI LETTER JA
+0A5B  ; [.2416.0020.0002][.0000.00BC.0002] # GURMUKHI LETTER ZA
+0A1D  ; [.2417.0020.0002] # GURMUKHI LETTER JHA
+0A1E  ; [.2418.0020.0002] # GURMUKHI LETTER NYA
+0A1F  ; [.2419.0020.0002] # GURMUKHI LETTER TTA
+0A20  ; [.241A.0020.0002] # GURMUKHI LETTER TTHA
+0A21  ; [.241B.0020.0002] # GURMUKHI LETTER DDA
+0A22  ; [.241C.0020.0002] # GURMUKHI LETTER DDHA
+0A23  ; [.241D.0020.0002] # GURMUKHI LETTER NNA
+0A24  ; [.241E.0020.0002] # GURMUKHI LETTER TA
+0A25  ; [.241F.0020.0002] # GURMUKHI LETTER THA
+0A26  ; [.2420.0020.0002] # GURMUKHI LETTER DA
+0A27  ; [.2421.0020.0002] # GURMUKHI LETTER DHA
+0A28  ; [.2422.0020.0002] # GURMUKHI LETTER NA
+0A2A  ; [.2423.0020.0002] # GURMUKHI LETTER PA
+0A2B  ; [.2424.0020.0002] # GURMUKHI LETTER PHA
+0A5E  ; [.2424.0020.0002][.0000.00BC.0002] # GURMUKHI LETTER FA
+0A2C  ; [.2425.0020.0002] # GURMUKHI LETTER BA
+0A2D  ; [.2426.0020.0002] # GURMUKHI LETTER BHA
+0A2E  ; [.2427.0020.0002] # GURMUKHI LETTER MA
+0A2F  ; [.2428.0020.0002] # GURMUKHI LETTER YA
+0A75  ; [.2429.0020.0002] # GURMUKHI SIGN YAKASH
+0A30  ; [.242A.0020.0002] # GURMUKHI LETTER RA
+0A32  ; [.242B.0020.0002] # GURMUKHI LETTER LA
+0A33  ; [.242B.0020.0002][.0000.00BC.0002] # GURMUKHI LETTER LLA
+0A35  ; [.242C.0020.0002] # GURMUKHI LETTER VA
+0A5C  ; [.242D.0020.0002] # GURMUKHI LETTER RRA
+0A3E  ; [.242E.0020.0002] # GURMUKHI VOWEL SIGN AA
+0A3F  ; [.242F.0020.0002] # GURMUKHI VOWEL SIGN I
+0A40  ; [.2430.0020.0002] # GURMUKHI VOWEL SIGN II
+0A41  ; [.2431.0020.0002] # GURMUKHI VOWEL SIGN U
+0A42  ; [.2432.0020.0002] # GURMUKHI VOWEL SIGN UU
+0A47  ; [.2433.0020.0002] # GURMUKHI VOWEL SIGN EE
+0A48  ; [.2434.0020.0002] # GURMUKHI VOWEL SIGN AI
+0A4B  ; [.2435.0020.0002] # GURMUKHI VOWEL SIGN OO
+0A4C  ; [.2436.0020.0002] # GURMUKHI VOWEL SIGN AU
+0A4D  ; [.2437.0020.0002] # GURMUKHI SIGN VIRAMA
+0AD0  ; [.2438.0020.0002] # GUJARATI OM
+0A85  ; [.2439.0020.0002] # GUJARATI LETTER A
+0A86  ; [.243A.0020.0002] # GUJARATI LETTER AA
+0A87  ; [.243B.0020.0002] # GUJARATI LETTER I
+0A88  ; [.243C.0020.0002] # GUJARATI LETTER II
+0A89  ; [.243D.0020.0002] # GUJARATI LETTER U
+0A8A  ; [.243E.0020.0002] # GUJARATI LETTER UU
+0A8B  ; [.243F.0020.0002] # GUJARATI LETTER VOCALIC R
+0AE0  ; [.2440.0020.0002] # GUJARATI LETTER VOCALIC RR
+0A8C  ; [.2441.0020.0002] # GUJARATI LETTER VOCALIC L
+0AE1  ; [.2442.0020.0002] # GUJARATI LETTER VOCALIC LL
+0A8D  ; [.2443.0020.0002] # GUJARATI VOWEL CANDRA E
+0A8F  ; [.2444.0020.0002] # GUJARATI LETTER E
+0A90  ; [.2445.0020.0002] # GUJARATI LETTER AI
+0A91  ; [.2446.0020.0002] # GUJARATI VOWEL CANDRA O
+0A93  ; [.2447.0020.0002] # GUJARATI LETTER O
+0A94  ; [.2448.0020.0002] # GUJARATI LETTER AU
+0A95  ; [.2449.0020.0002] # GUJARATI LETTER KA
+0A96  ; [.244A.0020.0002] # GUJARATI LETTER KHA
+0A97  ; [.244B.0020.0002] # GUJARATI LETTER GA
+0A98  ; [.244C.0020.0002] # GUJARATI LETTER GHA
+0A99  ; [.244D.0020.0002] # GUJARATI LETTER NGA
+0A9A  ; [.244E.0020.0002] # GUJARATI LETTER CA
+0A9B  ; [.244F.0020.0002] # GUJARATI LETTER CHA
+0A9C  ; [.2450.0020.0002] # GUJARATI LETTER JA
+0A9D  ; [.2451.0020.0002] # GUJARATI LETTER JHA
+0A9E  ; [.2452.0020.0002] # GUJARATI LETTER NYA
+0A9F  ; [.2453.0020.0002] # GUJARATI LETTER TTA
+0AA0  ; [.2454.0020.0002] # GUJARATI LETTER TTHA
+0AA1  ; [.2455.0020.0002] # GUJARATI LETTER DDA
+0AA2  ; [.2456.0020.0002] # GUJARATI LETTER DDHA
+0AA3  ; [.2457.0020.0002] # GUJARATI LETTER NNA
+0AA4  ; [.2458.0020.0002] # GUJARATI LETTER TA
+0AA5  ; [.2459.0020.0002] # GUJARATI LETTER THA
+0AA6  ; [.245A.0020.0002] # GUJARATI LETTER DA
+0AA7  ; [.245B.0020.0002] # GUJARATI LETTER DHA
+0AA8  ; [.245C.0020.0002] # GUJARATI LETTER NA
+0AAA  ; [.245D.0020.0002] # GUJARATI LETTER PA
+0AAB  ; [.245E.0020.0002] # GUJARATI LETTER PHA
+0AAC  ; [.245F.0020.0002] # GUJARATI LETTER BA
+0AAD  ; [.2460.0020.0002] # GUJARATI LETTER BHA
+0AAE  ; [.2461.0020.0002] # GUJARATI LETTER MA
+0AAF  ; [.2462.0020.0002] # GUJARATI LETTER YA
+0AB0  ; [.2463.0020.0002] # GUJARATI LETTER RA
+0AB2  ; [.2464.0020.0002] # GUJARATI LETTER LA
+0AB5  ; [.2465.0020.0002] # GUJARATI LETTER VA
+0AB6  ; [.2466.0020.0002] # GUJARATI LETTER SHA
+0AB7  ; [.2467.0020.0002] # GUJARATI LETTER SSA
+0AB8  ; [.2468.0020.0002] # GUJARATI LETTER SA
+0AB9  ; [.2469.0020.0002] # GUJARATI LETTER HA
+0AB3  ; [.246A.0020.0002] # GUJARATI LETTER LLA
+0ABD  ; [.246B.0020.0002] # GUJARATI SIGN AVAGRAHA
+0ABE  ; [.246C.0020.0002] # GUJARATI VOWEL SIGN AA
+0ABF  ; [.246D.0020.0002] # GUJARATI VOWEL SIGN I
+0AC0  ; [.246E.0020.0002] # GUJARATI VOWEL SIGN II
+0AC1  ; [.246F.0020.0002] # GUJARATI VOWEL SIGN U
+0AC2  ; [.2470.0020.0002] # GUJARATI VOWEL SIGN UU
+0AC3  ; [.2471.0020.0002] # GUJARATI VOWEL SIGN VOCALIC R
+0AC4  ; [.2472.0020.0002] # GUJARATI VOWEL SIGN VOCALIC RR
+0AE2  ; [.2473.0020.0002] # GUJARATI VOWEL SIGN VOCALIC L
+0AE3  ; [.2474.0020.0002] # GUJARATI VOWEL SIGN VOCALIC LL
+0AC5  ; [.2475.0020.0002] # GUJARATI VOWEL SIGN CANDRA E
+0AC7  ; [.2476.0020.0002] # GUJARATI VOWEL SIGN E
+0AC8  ; [.2477.0020.0002] # GUJARATI VOWEL SIGN AI
+0AC9  ; [.2478.0020.0002] # GUJARATI VOWEL SIGN CANDRA O
+0ACB  ; [.2479.0020.0002] # GUJARATI VOWEL SIGN O
+0ACC  ; [.247A.0020.0002] # GUJARATI VOWEL SIGN AU
+0ACD  ; [.247B.0020.0002] # GUJARATI SIGN VIRAMA
+0B05  ; [.247C.0020.0002] # ORIYA LETTER A
+0B06  ; [.247D.0020.0002] # ORIYA LETTER AA
+0B07  ; [.247E.0020.0002] # ORIYA LETTER I
+0B08  ; [.247F.0020.0002] # ORIYA LETTER II
+0B09  ; [.2480.0020.0002] # ORIYA LETTER U
+0B0A  ; [.2481.0020.0002] # ORIYA LETTER UU
+0B0B  ; [.2482.0020.0002] # ORIYA LETTER VOCALIC R
+0B60  ; [.2483.0020.0002] # ORIYA LETTER VOCALIC RR
+0B0C  ; [.2484.0020.0002] # ORIYA LETTER VOCALIC L
+0B61  ; [.2485.0020.0002] # ORIYA LETTER VOCALIC LL
+0B0F  ; [.2486.0020.0002] # ORIYA LETTER E
+0B10  ; [.2487.0020.0002] # ORIYA LETTER AI
+0B13  ; [.2488.0020.0002] # ORIYA LETTER O
+0B14  ; [.2489.0020.0002] # ORIYA LETTER AU
+0B15  ; [.248A.0020.0002] # ORIYA LETTER KA
+0B16  ; [.248B.0020.0002] # ORIYA LETTER KHA
+0B17  ; [.248C.0020.0002] # ORIYA LETTER GA
+0B18  ; [.248D.0020.0002] # ORIYA LETTER GHA
+0B19  ; [.248E.0020.0002] # ORIYA LETTER NGA
+0B1A  ; [.248F.0020.0002] # ORIYA LETTER CA
+0B1B  ; [.2490.0020.0002] # ORIYA LETTER CHA
+0B1C  ; [.2491.0020.0002] # ORIYA LETTER JA
+0B1D  ; [.2492.0020.0002] # ORIYA LETTER JHA
+0B1E  ; [.2493.0020.0002] # ORIYA LETTER NYA
+0B1F  ; [.2494.0020.0002] # ORIYA LETTER TTA
+0B20  ; [.2495.0020.0002] # ORIYA LETTER TTHA
+0B21  ; [.2496.0020.0002] # ORIYA LETTER DDA
+0B5C  ; [.2496.0020.0002][.0000.00BC.0002] # ORIYA LETTER RRA
+0B22  ; [.2497.0020.0002] # ORIYA LETTER DDHA
+0B5D  ; [.2497.0020.0002][.0000.00BC.0002] # ORIYA LETTER RHA
+0B23  ; [.2498.0020.0002] # ORIYA LETTER NNA
+0B24  ; [.2499.0020.0002] # ORIYA LETTER TA
+0B25  ; [.249A.0020.0002] # ORIYA LETTER THA
+0B26  ; [.249B.0020.0002] # ORIYA LETTER DA
+0B27  ; [.249C.0020.0002] # ORIYA LETTER DHA
+0B28  ; [.249D.0020.0002] # ORIYA LETTER NA
+0B2A  ; [.249E.0020.0002] # ORIYA LETTER PA
+0B2B  ; [.249F.0020.0002] # ORIYA LETTER PHA
+0B2C  ; [.24A0.0020.0002] # ORIYA LETTER BA
+0B2D  ; [.24A1.0020.0002] # ORIYA LETTER BHA
+0B2E  ; [.24A2.0020.0002] # ORIYA LETTER MA
+0B2F  ; [.24A3.0020.0002] # ORIYA LETTER YA
+0B5F  ; [.24A4.0020.0002] # ORIYA LETTER YYA
+0B30  ; [.24A5.0020.0002] # ORIYA LETTER RA
+0B32  ; [.24A6.0020.0002] # ORIYA LETTER LA
+0B33  ; [.24A7.0020.0002] # ORIYA LETTER LLA
+0B35  ; [.24A8.0020.0002] # ORIYA LETTER VA
+0B71  ; [.24A9.0020.0002] # ORIYA LETTER WA
+0B36  ; [.24AA.0020.0002] # ORIYA LETTER SHA
+0B37  ; [.24AB.0020.0002] # ORIYA LETTER SSA
+0B38  ; [.24AC.0020.0002] # ORIYA LETTER SA
+0B39  ; [.24AD.0020.0002] # ORIYA LETTER HA
+0B3D  ; [.24AE.0020.0002] # ORIYA SIGN AVAGRAHA
+0B3E  ; [.24AF.0020.0002] # ORIYA VOWEL SIGN AA
+0B3F  ; [.24B0.0020.0002] # ORIYA VOWEL SIGN I
+0B40  ; [.24B1.0020.0002] # ORIYA VOWEL SIGN II
+0B41  ; [.24B2.0020.0002] # ORIYA VOWEL SIGN U
+0B42  ; [.24B3.0020.0002] # ORIYA VOWEL SIGN UU
+0B43  ; [.24B4.0020.0002] # ORIYA VOWEL SIGN VOCALIC R
+0B44  ; [.24B5.0020.0002] # ORIYA VOWEL SIGN VOCALIC RR
+0B62  ; [.24B6.0020.0002] # ORIYA VOWEL SIGN VOCALIC L
+0B63  ; [.24B7.0020.0002] # ORIYA VOWEL SIGN VOCALIC LL
+0B47  ; [.24B8.0020.0002] # ORIYA VOWEL SIGN E
+0B48  ; [.24B9.0020.0002] # ORIYA VOWEL SIGN AI
+0B47 0B56 ; [.24B9.0020.0002] # ORIYA VOWEL SIGN AI
+0B4B  ; [.24BA.0020.0002] # ORIYA VOWEL SIGN O
+0B47 0B3E ; [.24BA.0020.0002] # ORIYA VOWEL SIGN O
+0B4C  ; [.24BB.0020.0002] # ORIYA VOWEL SIGN AU
+0B47 0B57 ; [.24BB.0020.0002] # ORIYA VOWEL SIGN AU
+0B4D  ; [.24BC.0020.0002] # ORIYA SIGN VIRAMA
+0B56  ; [.24BD.0020.0002] # ORIYA AI LENGTH MARK
+0B57  ; [.24BE.0020.0002] # ORIYA AU LENGTH MARK
+0BD0  ; [.24BF.0020.0002] # TAMIL OM
+0B85  ; [.24C0.0020.0002] # TAMIL LETTER A
+0B86  ; [.24C1.0020.0002] # TAMIL LETTER AA
+0B87  ; [.24C2.0020.0002] # TAMIL LETTER I
+0B88  ; [.24C3.0020.0002] # TAMIL LETTER II
+0B89  ; [.24C4.0020.0002] # TAMIL LETTER U
+0B8A  ; [.24C5.0020.0002] # TAMIL LETTER UU
+0B8E  ; [.24C6.0020.0002] # TAMIL LETTER E
+0B8F  ; [.24C7.0020.0002] # TAMIL LETTER EE
+0B90  ; [.24C8.0020.0002] # TAMIL LETTER AI
+0B92  ; [.24C9.0020.0002] # TAMIL LETTER O
+0B93  ; [.24CA.0020.0002] # TAMIL LETTER OO
+0B94  ; [.24CB.0020.0002] # TAMIL LETTER AU
+0B92 0BD7 ; [.24CB.0020.0002] # TAMIL LETTER AU
+0B83  ; [.24CC.0020.0002] # TAMIL SIGN VISARGA
+0B95  ; [.24CD.0020.0002] # TAMIL LETTER KA
+0B99  ; [.24CE.0020.0002] # TAMIL LETTER NGA
+0B9A  ; [.24CF.0020.0002] # TAMIL LETTER CA
+0B9E  ; [.24D0.0020.0002] # TAMIL LETTER NYA
+0B9F  ; [.24D1.0020.0002] # TAMIL LETTER TTA
+0BA3  ; [.24D2.0020.0002] # TAMIL LETTER NNA
+0BA4  ; [.24D3.0020.0002] # TAMIL LETTER TA
+0BA8  ; [.24D4.0020.0002] # TAMIL LETTER NA
+0BAA  ; [.24D5.0020.0002] # TAMIL LETTER PA
+0BAE  ; [.24D6.0020.0002] # TAMIL LETTER MA
+0BAF  ; [.24D7.0020.0002] # TAMIL LETTER YA
+0BB0  ; [.24D8.0020.0002] # TAMIL LETTER RA
+0BB2  ; [.24D9.0020.0002] # TAMIL LETTER LA
+0BB5  ; [.24DA.0020.0002] # TAMIL LETTER VA
+0BB4  ; [.24DB.0020.0002] # TAMIL LETTER LLLA
+0BB3  ; [.24DC.0020.0002] # TAMIL LETTER LLA
+0BB1  ; [.24DD.0020.0002] # TAMIL LETTER RRA
+0BA9  ; [.24DE.0020.0002] # TAMIL LETTER NNNA
+0B9C  ; [.24DF.0020.0002] # TAMIL LETTER JA
+0BB6  ; [.24E0.0020.0002] # TAMIL LETTER SHA
+0BB7  ; [.24E1.0020.0002] # TAMIL LETTER SSA
+0BB8  ; [.24E2.0020.0002] # TAMIL LETTER SA
+0BB9  ; [.24E3.0020.0002] # TAMIL LETTER HA
+0BBE  ; [.24E4.0020.0002] # TAMIL VOWEL SIGN AA
+0BBF  ; [.24E5.0020.0002] # TAMIL VOWEL SIGN I
+0BC0  ; [.24E6.0020.0002] # TAMIL VOWEL SIGN II
+0BC1  ; [.24E7.0020.0002] # TAMIL VOWEL SIGN U
+0BC2  ; [.24E8.0020.0002] # TAMIL VOWEL SIGN UU
+0BC6  ; [.24E9.0020.0002] # TAMIL VOWEL SIGN E
+0BC7  ; [.24EA.0020.0002] # TAMIL VOWEL SIGN EE
+0BC8  ; [.24EB.0020.0002] # TAMIL VOWEL SIGN AI
+0BCA  ; [.24EC.0020.0002] # TAMIL VOWEL SIGN O
+0BC6 0BBE ; [.24EC.0020.0002] # TAMIL VOWEL SIGN O
+0BCB  ; [.24ED.0020.0002] # TAMIL VOWEL SIGN OO
+0BC7 0BBE ; [.24ED.0020.0002] # TAMIL VOWEL SIGN OO
+0BCC  ; [.24EE.0020.0002] # TAMIL VOWEL SIGN AU
+0BC6 0BD7 ; [.24EE.0020.0002] # TAMIL VOWEL SIGN AU
+0BCD  ; [.24EF.0020.0002] # TAMIL SIGN VIRAMA
+0BD7  ; [.24F0.0020.0002] # TAMIL AU LENGTH MARK
+0C05  ; [.24F1.0020.0002] # TELUGU LETTER A
+0C06  ; [.24F2.0020.0002] # TELUGU LETTER AA
+0C07  ; [.24F3.0020.0002] # TELUGU LETTER I
+0C08  ; [.24F4.0020.0002] # TELUGU LETTER II
+0C09  ; [.24F5.0020.0002] # TELUGU LETTER U
+0C0A  ; [.24F6.0020.0002] # TELUGU LETTER UU
+0C0B  ; [.24F7.0020.0002] # TELUGU LETTER VOCALIC R
+0C60  ; [.24F8.0020.0002] # TELUGU LETTER VOCALIC RR
+0C0C  ; [.24F9.0020.0002] # TELUGU LETTER VOCALIC L
+0C61  ; [.24FA.0020.0002] # TELUGU LETTER VOCALIC LL
+0C0E  ; [.24FB.0020.0002] # TELUGU LETTER E
+0C0F  ; [.24FC.0020.0002] # TELUGU LETTER EE
+0C10  ; [.24FD.0020.0002] # TELUGU LETTER AI
+0C12  ; [.24FE.0020.0002] # TELUGU LETTER O
+0C13  ; [.24FF.0020.0002] # TELUGU LETTER OO
+0C14  ; [.2500.0020.0002] # TELUGU LETTER AU
+0C15  ; [.2501.0020.0002] # TELUGU LETTER KA
+0C16  ; [.2502.0020.0002] # TELUGU LETTER KHA
+0C17  ; [.2503.0020.0002] # TELUGU LETTER GA
+0C18  ; [.2504.0020.0002] # TELUGU LETTER GHA
+0C19  ; [.2505.0020.0002] # TELUGU LETTER NGA
+0C1A  ; [.2506.0020.0002] # TELUGU LETTER CA
+0C58  ; [.2507.0020.0002] # TELUGU LETTER TSA
+0C1B  ; [.2508.0020.0002] # TELUGU LETTER CHA
+0C1C  ; [.2509.0020.0002] # TELUGU LETTER JA
+0C59  ; [.250A.0020.0002] # TELUGU LETTER DZA
+0C1D  ; [.250B.0020.0002] # TELUGU LETTER JHA
+0C1E  ; [.250C.0020.0002] # TELUGU LETTER NYA
+0C1F  ; [.250D.0020.0002] # TELUGU LETTER TTA
+0C20  ; [.250E.0020.0002] # TELUGU LETTER TTHA
+0C21  ; [.250F.0020.0002] # TELUGU LETTER DDA
+0C22  ; [.2510.0020.0002] # TELUGU LETTER DDHA
+0C23  ; [.2511.0020.0002] # TELUGU LETTER NNA
+0C24  ; [.2512.0020.0002] # TELUGU LETTER TA
+0C25  ; [.2513.0020.0002] # TELUGU LETTER THA
+0C26  ; [.2514.0020.0002] # TELUGU LETTER DA
+0C27  ; [.2515.0020.0002] # TELUGU LETTER DHA
+0C28  ; [.2516.0020.0002] # TELUGU LETTER NA
+0C2A  ; [.2517.0020.0002] # TELUGU LETTER PA
+0C2B  ; [.2518.0020.0002] # TELUGU LETTER PHA
+0C2C  ; [.2519.0020.0002] # TELUGU LETTER BA
+0C2D  ; [.251A.0020.0002] # TELUGU LETTER BHA
+0C2E  ; [.251B.0020.0002] # TELUGU LETTER MA
+0C2F  ; [.251C.0020.0002] # TELUGU LETTER YA
+0C30  ; [.251D.0020.0002] # TELUGU LETTER RA
+0C31  ; [.251E.0020.0002] # TELUGU LETTER RRA
+0C32  ; [.251F.0020.0002] # TELUGU LETTER LA
+0C35  ; [.2520.0020.0002] # TELUGU LETTER VA
+0C36  ; [.2521.0020.0002] # TELUGU LETTER SHA
+0C37  ; [.2522.0020.0002] # TELUGU LETTER SSA
+0C38  ; [.2523.0020.0002] # TELUGU LETTER SA
+0C39  ; [.2524.0020.0002] # TELUGU LETTER HA
+0C33  ; [.2525.0020.0002] # TELUGU LETTER LLA
+0C34  ; [.2526.0020.0002] # TELUGU LETTER LLLA
+0C3D  ; [.2527.0020.0002] # TELUGU SIGN AVAGRAHA
+0C3E  ; [.2528.0020.0002] # TELUGU VOWEL SIGN AA
+0C3F  ; [.2529.0020.0002] # TELUGU VOWEL SIGN I
+0C40  ; [.252A.0020.0002] # TELUGU VOWEL SIGN II
+0C41  ; [.252B.0020.0002] # TELUGU VOWEL SIGN U
+0C42  ; [.252C.0020.0002] # TELUGU VOWEL SIGN UU
+0C43  ; [.252D.0020.0002] # TELUGU VOWEL SIGN VOCALIC R
+0C44  ; [.252E.0020.0002] # TELUGU VOWEL SIGN VOCALIC RR
+0C62  ; [.252F.0020.0002] # TELUGU VOWEL SIGN VOCALIC L
+0C63  ; [.2530.0020.0002] # TELUGU VOWEL SIGN VOCALIC LL
+0C46  ; [.2531.0020.0002] # TELUGU VOWEL SIGN E
+0C47  ; [.2532.0020.0002] # TELUGU VOWEL SIGN EE
+0C48  ; [.2533.0020.0002] # TELUGU VOWEL SIGN AI
+0C46 0C56 ; [.2533.0020.0002] # TELUGU VOWEL SIGN AI
+0C4A  ; [.2534.0020.0002] # TELUGU VOWEL SIGN O
+0C4B  ; [.2535.0020.0002] # TELUGU VOWEL SIGN OO
+0C4C  ; [.2536.0020.0002] # TELUGU VOWEL SIGN AU
+0C4D  ; [.2537.0020.0002] # TELUGU SIGN VIRAMA
+0C55  ; [.2538.0020.0002] # TELUGU LENGTH MARK
+0C56  ; [.2539.0020.0002] # TELUGU AI LENGTH MARK
+0C85  ; [.253A.0020.0002] # KANNADA LETTER A
+0C86  ; [.253B.0020.0002] # KANNADA LETTER AA
+0C87  ; [.253C.0020.0002] # KANNADA LETTER I
+0C88  ; [.253D.0020.0002] # KANNADA LETTER II
+0C89  ; [.253E.0020.0002] # KANNADA LETTER U
+0C8A  ; [.253F.0020.0002] # KANNADA LETTER UU
+0C8B  ; [.2540.0020.0002] # KANNADA LETTER VOCALIC R
+0CE0  ; [.2541.0020.0002] # KANNADA LETTER VOCALIC RR
+0C8C  ; [.2542.0020.0002] # KANNADA LETTER VOCALIC L
+0CE1  ; [.2543.0020.0002] # KANNADA LETTER VOCALIC LL
+0C8E  ; [.2544.0020.0002] # KANNADA LETTER E
+0C8F  ; [.2545.0020.0002] # KANNADA LETTER EE
+0C90  ; [.2546.0020.0002] # KANNADA LETTER AI
+0C92  ; [.2547.0020.0002] # KANNADA LETTER O
+0C93  ; [.2548.0020.0002] # KANNADA LETTER OO
+0C94  ; [.2549.0020.0002] # KANNADA LETTER AU
+0C95  ; [.254A.0020.0002] # KANNADA LETTER KA
+0C96  ; [.254B.0020.0002] # KANNADA LETTER KHA
+0C97  ; [.254C.0020.0002] # KANNADA LETTER GA
+0C98  ; [.254D.0020.0002] # KANNADA LETTER GHA
+0C99  ; [.254E.0020.0002] # KANNADA LETTER NGA
+0C9A  ; [.254F.0020.0002] # KANNADA LETTER CA
+0C9B  ; [.2550.0020.0002] # KANNADA LETTER CHA
+0C9C  ; [.2551.0020.0002] # KANNADA LETTER JA
+0C9D  ; [.2552.0020.0002] # KANNADA LETTER JHA
+0C9E  ; [.2553.0020.0002] # KANNADA LETTER NYA
+0C9F  ; [.2554.0020.0002] # KANNADA LETTER TTA
+0CA0  ; [.2555.0020.0002] # KANNADA LETTER TTHA
+0CA1  ; [.2556.0020.0002] # KANNADA LETTER DDA
+0CA2  ; [.2557.0020.0002] # KANNADA LETTER DDHA
+0CA3  ; [.2558.0020.0002] # KANNADA LETTER NNA
+0CA4  ; [.2559.0020.0002] # KANNADA LETTER TA
+0CA5  ; [.255A.0020.0002] # KANNADA LETTER THA
+0CA6  ; [.255B.0020.0002] # KANNADA LETTER DA
+0CA7  ; [.255C.0020.0002] # KANNADA LETTER DHA
+0CA8  ; [.255D.0020.0002] # KANNADA LETTER NA
+0CAA  ; [.255E.0020.0002] # KANNADA LETTER PA
+0CAB  ; [.255F.0020.0002] # KANNADA LETTER PHA
+0CAC  ; [.2560.0020.0002] # KANNADA LETTER BA
+0CAD  ; [.2561.0020.0002] # KANNADA LETTER BHA
+0CAE  ; [.2562.0020.0002] # KANNADA LETTER MA
+0CAF  ; [.2563.0020.0002] # KANNADA LETTER YA
+0CB0  ; [.2564.0020.0002] # KANNADA LETTER RA
+0CB1  ; [.2565.0020.0002] # KANNADA LETTER RRA
+0CB2  ; [.2566.0020.0002] # KANNADA LETTER LA
+0CB5  ; [.2567.0020.0002] # KANNADA LETTER VA
+0CB6  ; [.2568.0020.0002] # KANNADA LETTER SHA
+0CB7  ; [.2569.0020.0002] # KANNADA LETTER SSA
+0CB8  ; [.256A.0020.0002] # KANNADA LETTER SA
+0CB9  ; [.256B.0020.0002] # KANNADA LETTER HA
+0CB3  ; [.256C.0020.0002] # KANNADA LETTER LLA
+0CDE  ; [.256D.0020.0002] # KANNADA LETTER FA
+0CBD  ; [.256E.0020.0002] # KANNADA SIGN AVAGRAHA
+0CF1  ; [.256F.0020.0002] # KANNADA SIGN JIHVAMULIYA
+0CF2  ; [.2570.0020.0002] # KANNADA SIGN UPADHMANIYA
+0CBE  ; [.2571.0020.0002] # KANNADA VOWEL SIGN AA
+0CBF  ; [.2572.0020.0002] # KANNADA VOWEL SIGN I
+0CC0  ; [.2573.0020.0002] # KANNADA VOWEL SIGN II
+0CBF 0CD5 ; [.2573.0020.0002] # KANNADA VOWEL SIGN II
+0CC1  ; [.2574.0020.0002] # KANNADA VOWEL SIGN U
+0CC2  ; [.2575.0020.0002] # KANNADA VOWEL SIGN UU
+0CC3  ; [.2576.0020.0002] # KANNADA VOWEL SIGN VOCALIC R
+0CC4  ; [.2577.0020.0002] # KANNADA VOWEL SIGN VOCALIC RR
+0CE2  ; [.2578.0020.0002] # KANNADA VOWEL SIGN VOCALIC L
+0CE3  ; [.2579.0020.0002] # KANNADA VOWEL SIGN VOCALIC LL
+0CC6  ; [.257A.0020.0002] # KANNADA VOWEL SIGN E
+0CC7  ; [.257B.0020.0002] # KANNADA VOWEL SIGN EE
+0CC6 0CD5 ; [.257B.0020.0002] # KANNADA VOWEL SIGN EE
+0CC8  ; [.257C.0020.0002] # KANNADA VOWEL SIGN AI
+0CC6 0CD6 ; [.257C.0020.0002] # KANNADA VOWEL SIGN AI
+0CCA  ; [.257D.0020.0002] # KANNADA VOWEL SIGN O
+0CC6 0CC2 ; [.257D.0020.0002] # KANNADA VOWEL SIGN O
+0CCB  ; [.257E.0020.0002] # KANNADA VOWEL SIGN OO
+0CC6 0CC2 0CD5 ; [.257E.0020.0002] # KANNADA VOWEL SIGN OO
+0CCA 0CD5 ; [.257E.0020.0002] # KANNADA VOWEL SIGN OO
+0CCC  ; [.257F.0020.0002] # KANNADA VOWEL SIGN AU
+0CCD  ; [.2580.0020.0002] # KANNADA SIGN VIRAMA
+0CD5  ; [.2581.0020.0002] # KANNADA LENGTH MARK
+0CD6  ; [.2582.0020.0002] # KANNADA AI LENGTH MARK
+0D05  ; [.2583.0020.0002] # MALAYALAM LETTER A
+0D06  ; [.2584.0020.0002] # MALAYALAM LETTER AA
+0D07  ; [.2585.0020.0002] # MALAYALAM LETTER I
+0D08  ; [.2586.0020.0002] # MALAYALAM LETTER II
+0D09  ; [.2587.0020.0002] # MALAYALAM LETTER U
+0D0A  ; [.2588.0020.0002] # MALAYALAM LETTER UU
+0D0B  ; [.2589.0020.0002] # MALAYALAM LETTER VOCALIC R
+0D60  ; [.258A.0020.0002] # MALAYALAM LETTER VOCALIC RR
+0D0C  ; [.258B.0020.0002] # MALAYALAM LETTER VOCALIC L
+0D61  ; [.258C.0020.0002] # MALAYALAM LETTER VOCALIC LL
+0D0E  ; [.258D.0020.0002] # MALAYALAM LETTER E
+0D0F  ; [.258E.0020.0002] # MALAYALAM LETTER EE
+0D10  ; [.258F.0020.0002] # MALAYALAM LETTER AI
+0D12  ; [.2590.0020.0002] # MALAYALAM LETTER O
+0D13  ; [.2591.0020.0002] # MALAYALAM LETTER OO
+0D14  ; [.2592.0020.0002] # MALAYALAM LETTER AU
+0D15  ; [.2593.0020.0002] # MALAYALAM LETTER KA
+0D7F  ; [.2593.0020.0004][.25CA.0020.0004] # MALAYALAM LETTER CHILLU K
+0D16  ; [.2594.0020.0002] # MALAYALAM LETTER KHA
+0D17  ; [.2595.0020.0002] # MALAYALAM LETTER GA
+0D18  ; [.2596.0020.0002] # MALAYALAM LETTER GHA
+0D19  ; [.2597.0020.0002] # MALAYALAM LETTER NGA
+0D1A  ; [.2598.0020.0002] # MALAYALAM LETTER CA
+0D1B  ; [.2599.0020.0002] # MALAYALAM LETTER CHA
+0D1C  ; [.259A.0020.0002] # MALAYALAM LETTER JA
+0D1D  ; [.259B.0020.0002] # MALAYALAM LETTER JHA
+0D1E  ; [.259C.0020.0002] # MALAYALAM LETTER NYA
+0D1F  ; [.259D.0020.0002] # MALAYALAM LETTER TTA
+0D20  ; [.259E.0020.0002] # MALAYALAM LETTER TTHA
+0D21  ; [.259F.0020.0002] # MALAYALAM LETTER DDA
+0D22  ; [.25A0.0020.0002] # MALAYALAM LETTER DDHA
+0D23  ; [.25A1.0020.0002] # MALAYALAM LETTER NNA
+0D7A  ; [.25A1.0020.0004][.25CA.0020.0004] # MALAYALAM LETTER CHILLU NN
+0D24  ; [.25A2.0020.0002] # MALAYALAM LETTER TA
+0D25  ; [.25A3.0020.0002] # MALAYALAM LETTER THA
+0D26  ; [.25A4.0020.0002] # MALAYALAM LETTER DA
+0D27  ; [.25A5.0020.0002] # MALAYALAM LETTER DHA
+0D28  ; [.25A6.0020.0002] # MALAYALAM LETTER NA
+0D7B  ; [.25A6.0020.0004][.25CA.0020.0004] # MALAYALAM LETTER CHILLU N
+0D29  ; [.25A7.0020.0002] # MALAYALAM LETTER NNNA
+0D2A  ; [.25A8.0020.0002] # MALAYALAM LETTER PA
+0D2B  ; [.25A9.0020.0002] # MALAYALAM LETTER PHA
+0D2C  ; [.25AA.0020.0002] # MALAYALAM LETTER BA
+0D2D  ; [.25AB.0020.0002] # MALAYALAM LETTER BHA
+0D2E  ; [.25AC.0020.0002] # MALAYALAM LETTER MA
+0D2F  ; [.25AD.0020.0002] # MALAYALAM LETTER YA
+0D30  ; [.25AE.0020.0002] # MALAYALAM LETTER RA
+0D4E  ; [.25AE.0020.0004][.25CA.0020.0004] # MALAYALAM LETTER DOT REPH
+0D7C  ; [.25AE.0020.0004][.25CA.0020.0004] # MALAYALAM LETTER CHILLU RR
+0D32  ; [.25AF.0020.0002] # MALAYALAM LETTER LA
+0D7D  ; [.25AF.0020.0004][.25CA.0020.0004] # MALAYALAM LETTER CHILLU L
+0D35  ; [.25B0.0020.0002] # MALAYALAM LETTER VA
+0D36  ; [.25B1.0020.0002] # MALAYALAM LETTER SHA
+0D37  ; [.25B2.0020.0002] # MALAYALAM LETTER SSA
+0D38  ; [.25B3.0020.0002] # MALAYALAM LETTER SA
+0D39  ; [.25B4.0020.0002] # MALAYALAM LETTER HA
+0D33  ; [.25B5.0020.0002] # MALAYALAM LETTER LLA
+0D7E  ; [.25B5.0020.0004][.25CA.0020.0004] # MALAYALAM LETTER CHILLU LL
+0D34  ; [.25B6.0020.0002] # MALAYALAM LETTER LLLA
+0D31  ; [.25B7.0020.0002] # MALAYALAM LETTER RRA
+0D3A  ; [.25B8.0020.0002] # MALAYALAM LETTER TTTA
+0D3D  ; [.25B9.0020.0002] # MALAYALAM SIGN AVAGRAHA
+0D3E  ; [.25BA.0020.0002] # MALAYALAM VOWEL SIGN AA
+0D3F  ; [.25BB.0020.0002] # MALAYALAM VOWEL SIGN I
+0D40  ; [.25BC.0020.0002] # MALAYALAM VOWEL SIGN II
+0D41  ; [.25BD.0020.0002] # MALAYALAM VOWEL SIGN U
+0D42  ; [.25BE.0020.0002] # MALAYALAM VOWEL SIGN UU
+0D43  ; [.25BF.0020.0002] # MALAYALAM VOWEL SIGN VOCALIC R
+0D44  ; [.25C0.0020.0002] # MALAYALAM VOWEL SIGN VOCALIC RR
+0D62  ; [.25C1.0020.0002] # MALAYALAM VOWEL SIGN VOCALIC L
+0D63  ; [.25C2.0020.0002] # MALAYALAM VOWEL SIGN VOCALIC LL
+0D46  ; [.25C3.0020.0002] # MALAYALAM VOWEL SIGN E
+0D47  ; [.25C4.0020.0002] # MALAYALAM VOWEL SIGN EE
+0D48  ; [.25C5.0020.0002] # MALAYALAM VOWEL SIGN AI
+0D4A  ; [.25C6.0020.0002] # MALAYALAM VOWEL SIGN O
+0D46 0D3E ; [.25C6.0020.0002] # MALAYALAM VOWEL SIGN O
+0D4B  ; [.25C7.0020.0002] # MALAYALAM VOWEL SIGN OO
+0D47 0D3E ; [.25C7.0020.0002] # MALAYALAM VOWEL SIGN OO
+0D4C  ; [.25C8.0020.0002] # MALAYALAM VOWEL SIGN AU
+0D46 0D57 ; [.25C8.0020.0002] # MALAYALAM VOWEL SIGN AU
+0D57  ; [.25C9.0020.0002] # MALAYALAM AU LENGTH MARK
+0D4D  ; [.25CA.0020.0002] # MALAYALAM SIGN VIRAMA
+0D85  ; [.25CB.0020.0002] # SINHALA LETTER AYANNA
+0D86  ; [.25CC.0020.0002] # SINHALA LETTER AAYANNA
+0D87  ; [.25CD.0020.0002] # SINHALA LETTER AEYANNA
+0D88  ; [.25CE.0020.0002] # SINHALA LETTER AEEYANNA
+0D89  ; [.25CF.0020.0002] # SINHALA LETTER IYANNA
+0D8A  ; [.25D0.0020.0002] # SINHALA LETTER IIYANNA
+0D8B  ; [.25D1.0020.0002] # SINHALA LETTER UYANNA
+0D8C  ; [.25D2.0020.0002] # SINHALA LETTER UUYANNA
+0D8D  ; [.25D3.0020.0002] # SINHALA LETTER IRUYANNA
+0D8E  ; [.25D4.0020.0002] # SINHALA LETTER IRUUYANNA
+0D8F  ; [.25D5.0020.0002] # SINHALA LETTER ILUYANNA
+0D90  ; [.25D6.0020.0002] # SINHALA LETTER ILUUYANNA
+0D91  ; [.25D7.0020.0002] # SINHALA LETTER EYANNA
+0D92  ; [.25D8.0020.0002] # SINHALA LETTER EEYANNA
+0D93  ; [.25D9.0020.0002] # SINHALA LETTER AIYANNA
+0D94  ; [.25DA.0020.0002] # SINHALA LETTER OYANNA
+0D95  ; [.25DB.0020.0002] # SINHALA LETTER OOYANNA
+0D96  ; [.25DC.0020.0002] # SINHALA LETTER AUYANNA
+0D9A  ; [.25DD.0020.0002] # SINHALA LETTER ALPAPRAANA KAYANNA
+0D9B  ; [.25DE.0020.0002] # SINHALA LETTER MAHAAPRAANA KAYANNA
+0D9C  ; [.25DF.0020.0002] # SINHALA LETTER ALPAPRAANA GAYANNA
+0D9D  ; [.25E0.0020.0002] # SINHALA LETTER MAHAAPRAANA GAYANNA
+0D9E  ; [.25E1.0020.0002] # SINHALA LETTER KANTAJA NAASIKYAYA
+0D9F  ; [.25E2.0020.0002] # SINHALA LETTER SANYAKA GAYANNA
+0DA0  ; [.25E3.0020.0002] # SINHALA LETTER ALPAPRAANA CAYANNA
+0DA1  ; [.25E4.0020.0002] # SINHALA LETTER MAHAAPRAANA CAYANNA
+0DA2  ; [.25E5.0020.0002] # SINHALA LETTER ALPAPRAANA JAYANNA
+0DA3  ; [.25E6.0020.0002] # SINHALA LETTER MAHAAPRAANA JAYANNA
+0DA4  ; [.25E7.0020.0002] # SINHALA LETTER TAALUJA NAASIKYAYA
+0DA5  ; [.25E8.0020.0002] # SINHALA LETTER TAALUJA SANYOOGA NAAKSIKYAYA
+0DA6  ; [.25E9.0020.0002] # SINHALA LETTER SANYAKA JAYANNA
+0DA7  ; [.25EA.0020.0002] # SINHALA LETTER ALPAPRAANA TTAYANNA
+0DA8  ; [.25EB.0020.0002] # SINHALA LETTER MAHAAPRAANA TTAYANNA
+0DA9  ; [.25EC.0020.0002] # SINHALA LETTER ALPAPRAANA DDAYANNA
+0DAA  ; [.25ED.0020.0002] # SINHALA LETTER MAHAAPRAANA DDAYANNA
+0DAB  ; [.25EE.0020.0002] # SINHALA LETTER MUURDHAJA NAYANNA
+0DAC  ; [.25EF.0020.0002] # SINHALA LETTER SANYAKA DDAYANNA
+0DAD  ; [.25F0.0020.0002] # SINHALA LETTER ALPAPRAANA TAYANNA
+0DAE  ; [.25F1.0020.0002] # SINHALA LETTER MAHAAPRAANA TAYANNA
+0DAF  ; [.25F2.0020.0002] # SINHALA LETTER ALPAPRAANA DAYANNA
+0DB0  ; [.25F3.0020.0002] # SINHALA LETTER MAHAAPRAANA DAYANNA
+0DB1  ; [.25F4.0020.0002] # SINHALA LETTER DANTAJA NAYANNA
+0DB3  ; [.25F5.0020.0002] # SINHALA LETTER SANYAKA DAYANNA
+0DB4  ; [.25F6.0020.0002] # SINHALA LETTER ALPAPRAANA PAYANNA
+0DB5  ; [.25F7.0020.0002] # SINHALA LETTER MAHAAPRAANA PAYANNA
+0DB6  ; [.25F8.0020.0002] # SINHALA LETTER ALPAPRAANA BAYANNA
+0DB7  ; [.25F9.0020.0002] # SINHALA LETTER MAHAAPRAANA BAYANNA
+0DB8  ; [.25FA.0020.0002] # SINHALA LETTER MAYANNA
+0DB9  ; [.25FB.0020.0002] # SINHALA LETTER AMBA BAYANNA
+0DBA  ; [.25FC.0020.0002] # SINHALA LETTER YAYANNA
+0DBB  ; [.25FD.0020.0002] # SINHALA LETTER RAYANNA
+0DBD  ; [.25FE.0020.0002] # SINHALA LETTER DANTAJA LAYANNA
+0DC0  ; [.25FF.0020.0002] # SINHALA LETTER VAYANNA
+0DC1  ; [.2600.0020.0002] # SINHALA LETTER TAALUJA SAYANNA
+0DC2  ; [.2601.0020.0002] # SINHALA LETTER MUURDHAJA SAYANNA
+0DC3  ; [.2602.0020.0002] # SINHALA LETTER DANTAJA SAYANNA
+0DC4  ; [.2603.0020.0002] # SINHALA LETTER HAYANNA
+0DC5  ; [.2604.0020.0002] # SINHALA LETTER MUURDHAJA LAYANNA
+0DC6  ; [.2605.0020.0002] # SINHALA LETTER FAYANNA
+0DCF  ; [.2606.0020.0002] # SINHALA VOWEL SIGN AELA-PILLA
+0DD0  ; [.2607.0020.0002] # SINHALA VOWEL SIGN KETTI AEDA-PILLA
+0DD1  ; [.2608.0020.0002] # SINHALA VOWEL SIGN DIGA AEDA-PILLA
+0DD2  ; [.2609.0020.0002] # SINHALA VOWEL SIGN KETTI IS-PILLA
+0DD3  ; [.260A.0020.0002] # SINHALA VOWEL SIGN DIGA IS-PILLA
+0DD4  ; [.260B.0020.0002] # SINHALA VOWEL SIGN KETTI PAA-PILLA
+0DD6  ; [.260C.0020.0002] # SINHALA VOWEL SIGN DIGA PAA-PILLA
+0DD8  ; [.260D.0020.0002] # SINHALA VOWEL SIGN GAETTA-PILLA
+0DF2  ; [.260E.0020.0002] # SINHALA VOWEL SIGN DIGA GAETTA-PILLA
+0DDF  ; [.260F.0020.0002] # SINHALA VOWEL SIGN GAYANUKITTA
+0DF3  ; [.2610.0020.0002] # SINHALA VOWEL SIGN DIGA GAYANUKITTA
+0DD9  ; [.2611.0020.0002] # SINHALA VOWEL SIGN KOMBUVA
+0DDA  ; [.2612.0020.0002] # SINHALA VOWEL SIGN DIGA KOMBUVA
+0DD9 0DCA ; [.2612.0020.0002] # SINHALA VOWEL SIGN DIGA KOMBUVA
+0DDB  ; [.2613.0020.0002] # SINHALA VOWEL SIGN KOMBU DEKA
+0DDC  ; [.2614.0020.0002] # SINHALA VOWEL SIGN KOMBUVA HAA AELA-PILLA
+0DD9 0DCF ; [.2614.0020.0002] # SINHALA VOWEL SIGN KOMBUVA HAA AELA-PILLA
+0DDD  ; [.2615.0020.0002] # SINHALA VOWEL SIGN KOMBUVA HAA DIGA AELA-PILLA
+0DD9 0DCF 0DCA ; [.2615.0020.0002] # SINHALA VOWEL SIGN KOMBUVA HAA DIGA AELA-PILLA
+0DDC 0DCA ; [.2615.0020.0002] # SINHALA VOWEL SIGN KOMBUVA HAA DIGA AELA-PILLA
+0DDE  ; [.2616.0020.0002] # SINHALA VOWEL SIGN KOMBUVA HAA GAYANUKITTA
+0DD9 0DDF ; [.2616.0020.0002] # SINHALA VOWEL SIGN KOMBUVA HAA GAYANUKITTA
+0DCA  ; [.2617.0020.0002] # SINHALA SIGN AL-LAKUNA
+AAF2  ; [.2618.0020.0002] # MEETEI MAYEK ANJI
+ABC0  ; [.2619.0020.0002] # MEETEI MAYEK LETTER KOK
+ABC1  ; [.261A.0020.0002] # MEETEI MAYEK LETTER SAM
+ABC2  ; [.261B.0020.0002] # MEETEI MAYEK LETTER LAI
+ABC3  ; [.261C.0020.0002] # MEETEI MAYEK LETTER MIT
+ABC4  ; [.261D.0020.0002] # MEETEI MAYEK LETTER PA
+ABC5  ; [.261E.0020.0002] # MEETEI MAYEK LETTER NA
+ABC6  ; [.261F.0020.0002] # MEETEI MAYEK LETTER CHIL
+ABC7  ; [.2620.0020.0002] # MEETEI MAYEK LETTER TIL
+ABC8  ; [.2621.0020.0002] # MEETEI MAYEK LETTER KHOU
+ABC9  ; [.2622.0020.0002] # MEETEI MAYEK LETTER NGOU
+ABCA  ; [.2623.0020.0002] # MEETEI MAYEK LETTER THOU
+ABCB  ; [.2624.0020.0002] # MEETEI MAYEK LETTER WAI
+ABCC  ; [.2625.0020.0002] # MEETEI MAYEK LETTER YANG
+ABCD  ; [.2626.0020.0002] # MEETEI MAYEK LETTER HUK
+ABCE  ; [.2627.0020.0002] # MEETEI MAYEK LETTER UN
+ABCF  ; [.2628.0020.0002] # MEETEI MAYEK LETTER I
+ABD0  ; [.2629.0020.0002] # MEETEI MAYEK LETTER PHAM
+ABD1  ; [.262A.0020.0002] # MEETEI MAYEK LETTER ATIYA
+ABD2  ; [.262B.0020.0002] # MEETEI MAYEK LETTER GOK
+ABD3  ; [.262C.0020.0002] # MEETEI MAYEK LETTER JHAM
+ABD4  ; [.262D.0020.0002] # MEETEI MAYEK LETTER RAI
+ABD5  ; [.262E.0020.0002] # MEETEI MAYEK LETTER BA
+ABD6  ; [.262F.0020.0002] # MEETEI MAYEK LETTER JIL
+ABD7  ; [.2630.0020.0002] # MEETEI MAYEK LETTER DIL
+ABD8  ; [.2631.0020.0002] # MEETEI MAYEK LETTER GHOU
+ABD9  ; [.2632.0020.0002] # MEETEI MAYEK LETTER DHOU
+ABDA  ; [.2633.0020.0002] # MEETEI MAYEK LETTER BHAM
+AAE0  ; [.2634.0020.0002] # MEETEI MAYEK LETTER E
+AAE1  ; [.2635.0020.0002] # MEETEI MAYEK LETTER O
+AAE2  ; [.2636.0020.0002] # MEETEI MAYEK LETTER CHA
+AAE3  ; [.2637.0020.0002] # MEETEI MAYEK LETTER NYA
+AAE4  ; [.2638.0020.0002] # MEETEI MAYEK LETTER TTA
+AAE5  ; [.2639.0020.0002] # MEETEI MAYEK LETTER TTHA
+AAE6  ; [.263A.0020.0002] # MEETEI MAYEK LETTER DDA
+AAE7  ; [.263B.0020.0002] # MEETEI MAYEK LETTER DDHA
+AAE8  ; [.263C.0020.0002] # MEETEI MAYEK LETTER NNA
+AAE9  ; [.263D.0020.0002] # MEETEI MAYEK LETTER SHA
+AAEA  ; [.263E.0020.0002] # MEETEI MAYEK LETTER SSA
+ABE3  ; [.263F.0020.0002] # MEETEI MAYEK VOWEL SIGN ONAP
+ABE4  ; [.2640.0020.0002] # MEETEI MAYEK VOWEL SIGN INAP
+ABE5  ; [.2641.0020.0002] # MEETEI MAYEK VOWEL SIGN ANAP
+ABE6  ; [.2642.0020.0002] # MEETEI MAYEK VOWEL SIGN YENAP
+ABE7  ; [.2643.0020.0002] # MEETEI MAYEK VOWEL SIGN SOUNAP
+ABE8  ; [.2644.0020.0002] # MEETEI MAYEK VOWEL SIGN UNAP
+ABE9  ; [.2645.0020.0002] # MEETEI MAYEK VOWEL SIGN CHEINAP
+ABEA  ; [.2646.0020.0002] # MEETEI MAYEK VOWEL SIGN NUNG
+AAEB  ; [.2647.0020.0002] # MEETEI MAYEK VOWEL SIGN II
+AAEC  ; [.2648.0020.0002] # MEETEI MAYEK VOWEL SIGN UU
+AAED  ; [.2649.0020.0002] # MEETEI MAYEK VOWEL SIGN AAI
+AAEE  ; [.264A.0020.0002] # MEETEI MAYEK VOWEL SIGN AU
+AAEF  ; [.264B.0020.0002] # MEETEI MAYEK VOWEL SIGN AAU
+AAF5  ; [.264C.0020.0002] # MEETEI MAYEK VOWEL SIGN VISARGA
+ABDB  ; [.264D.0020.0002] # MEETEI MAYEK LETTER KOK LONSUM
+ABDC  ; [.264E.0020.0002] # MEETEI MAYEK LETTER LAI LONSUM
+ABDD  ; [.264F.0020.0002] # MEETEI MAYEK LETTER MIT LONSUM
+ABDE  ; [.2650.0020.0002] # MEETEI MAYEK LETTER PA LONSUM
+ABDF  ; [.2651.0020.0002] # MEETEI MAYEK LETTER NA LONSUM
+ABE0  ; [.2652.0020.0002] # MEETEI MAYEK LETTER TIL LONSUM
+ABE1  ; [.2653.0020.0002] # MEETEI MAYEK LETTER NGOU LONSUM
+ABE2  ; [.2654.0020.0002] # MEETEI MAYEK LETTER I LONSUM
+ABED  ; [.2655.0020.0002] # MEETEI MAYEK APUN IYEK
+AAF6  ; [.2656.0020.0002] # MEETEI MAYEK VIRAMA
+A800  ; [.2657.0020.0002] # SYLOTI NAGRI LETTER A
+A801  ; [.2658.0020.0002] # SYLOTI NAGRI LETTER I
+A802  ; [.2659.0020.0002] # SYLOTI NAGRI SIGN DVISVARA
+A803  ; [.265A.0020.0002] # SYLOTI NAGRI LETTER U
+A804  ; [.265B.0020.0002] # SYLOTI NAGRI LETTER E
+A805  ; [.265C.0020.0002] # SYLOTI NAGRI LETTER O
+A806  ; [.265D.0020.0002] # SYLOTI NAGRI SIGN HASANTA
+A807  ; [.265E.0020.0002] # SYLOTI NAGRI LETTER KO
+A808  ; [.265F.0020.0002] # SYLOTI NAGRI LETTER KHO
+A809  ; [.2660.0020.0002] # SYLOTI NAGRI LETTER GO
+A80A  ; [.2661.0020.0002] # SYLOTI NAGRI LETTER GHO
+A80C  ; [.2662.0020.0002] # SYLOTI NAGRI LETTER CO
+A80D  ; [.2663.0020.0002] # SYLOTI NAGRI LETTER CHO
+A80E  ; [.2664.0020.0002] # SYLOTI NAGRI LETTER JO
+A80F  ; [.2665.0020.0002] # SYLOTI NAGRI LETTER JHO
+A810  ; [.2666.0020.0002] # SYLOTI NAGRI LETTER TTO
+A811  ; [.2667.0020.0002] # SYLOTI NAGRI LETTER TTHO
+A812  ; [.2668.0020.0002] # SYLOTI NAGRI LETTER DDO
+A813  ; [.2669.0020.0002] # SYLOTI NAGRI LETTER DDHO
+A814  ; [.266A.0020.0002] # SYLOTI NAGRI LETTER TO
+A815  ; [.266B.0020.0002] # SYLOTI NAGRI LETTER THO
+A816  ; [.266C.0020.0002] # SYLOTI NAGRI LETTER DO
+A817  ; [.266D.0020.0002] # SYLOTI NAGRI LETTER DHO
+A818  ; [.266E.0020.0002] # SYLOTI NAGRI LETTER NO
+A819  ; [.266F.0020.0002] # SYLOTI NAGRI LETTER PO
+A81A  ; [.2670.0020.0002] # SYLOTI NAGRI LETTER PHO
+A81B  ; [.2671.0020.0002] # SYLOTI NAGRI LETTER BO
+A81C  ; [.2672.0020.0002] # SYLOTI NAGRI LETTER BHO
+A81D  ; [.2673.0020.0002] # SYLOTI NAGRI LETTER MO
+A81E  ; [.2674.0020.0002] # SYLOTI NAGRI LETTER RO
+A81F  ; [.2675.0020.0002] # SYLOTI NAGRI LETTER LO
+A820  ; [.2676.0020.0002] # SYLOTI NAGRI LETTER RRO
+A821  ; [.2677.0020.0002] # SYLOTI NAGRI LETTER SO
+A822  ; [.2678.0020.0002] # SYLOTI NAGRI LETTER HO
+A823  ; [.2679.0020.0002] # SYLOTI NAGRI VOWEL SIGN A
+A824  ; [.267A.0020.0002] # SYLOTI NAGRI VOWEL SIGN I
+A825  ; [.267B.0020.0002] # SYLOTI NAGRI VOWEL SIGN U
+A826  ; [.267C.0020.0002] # SYLOTI NAGRI VOWEL SIGN E
+A827  ; [.267D.0020.0002] # SYLOTI NAGRI VOWEL SIGN OO
+A882  ; [.267E.0020.0002] # SAURASHTRA LETTER A
+A883  ; [.267F.0020.0002] # SAURASHTRA LETTER AA
+A884  ; [.2680.0020.0002] # SAURASHTRA LETTER I
+A885  ; [.2681.0020.0002] # SAURASHTRA LETTER II
+A886  ; [.2682.0020.0002] # SAURASHTRA LETTER U
+A887  ; [.2683.0020.0002] # SAURASHTRA LETTER UU
+A888  ; [.2684.0020.0002] # SAURASHTRA LETTER VOCALIC R
+A889  ; [.2685.0020.0002] # SAURASHTRA LETTER VOCALIC RR
+A88A  ; [.2686.0020.0002] # SAURASHTRA LETTER VOCALIC L
+A88B  ; [.2687.0020.0002] # SAURASHTRA LETTER VOCALIC LL
+A88C  ; [.2688.0020.0002] # SAURASHTRA LETTER E
+A88D  ; [.2689.0020.0002] # SAURASHTRA LETTER EE
+A88E  ; [.268A.0020.0002] # SAURASHTRA LETTER AI
+A88F  ; [.268B.0020.0002] # SAURASHTRA LETTER O
+A890  ; [.268C.0020.0002] # SAURASHTRA LETTER OO
+A891  ; [.268D.0020.0002] # SAURASHTRA LETTER AU
+A892  ; [.268E.0020.0002] # SAURASHTRA LETTER KA
+A893  ; [.268F.0020.0002] # SAURASHTRA LETTER KHA
+A894  ; [.2690.0020.0002] # SAURASHTRA LETTER GA
+A895  ; [.2691.0020.0002] # SAURASHTRA LETTER GHA
+A896  ; [.2692.0020.0002] # SAURASHTRA LETTER NGA
+A897  ; [.2693.0020.0002] # SAURASHTRA LETTER CA
+A898  ; [.2694.0020.0002] # SAURASHTRA LETTER CHA
+A899  ; [.2695.0020.0002] # SAURASHTRA LETTER JA
+A89A  ; [.2696.0020.0002] # SAURASHTRA LETTER JHA
+A89B  ; [.2697.0020.0002] # SAURASHTRA LETTER NYA
+A89C  ; [.2698.0020.0002] # SAURASHTRA LETTER TTA
+A89D  ; [.2699.0020.0002] # SAURASHTRA LETTER TTHA
+A89E  ; [.269A.0020.0002] # SAURASHTRA LETTER DDA
+A89F  ; [.269B.0020.0002] # SAURASHTRA LETTER DDHA
+A8A0  ; [.269C.0020.0002] # SAURASHTRA LETTER NNA
+A8A1  ; [.269D.0020.0002] # SAURASHTRA LETTER TA
+A8A2  ; [.269E.0020.0002] # SAURASHTRA LETTER THA
+A8A3  ; [.269F.0020.0002] # SAURASHTRA LETTER DA
+A8A4  ; [.26A0.0020.0002] # SAURASHTRA LETTER DHA
+A8A5  ; [.26A1.0020.0002] # SAURASHTRA LETTER NA
+A8A6  ; [.26A2.0020.0002] # SAURASHTRA LETTER PA
+A8A7  ; [.26A3.0020.0002] # SAURASHTRA LETTER PHA
+A8A8  ; [.26A4.0020.0002] # SAURASHTRA LETTER BA
+A8A9  ; [.26A5.0020.0002] # SAURASHTRA LETTER BHA
+A8AA  ; [.26A6.0020.0002] # SAURASHTRA LETTER MA
+A8AB  ; [.26A7.0020.0002] # SAURASHTRA LETTER YA
+A8AC  ; [.26A8.0020.0002] # SAURASHTRA LETTER RA
+A8AD  ; [.26A9.0020.0002] # SAURASHTRA LETTER LA
+A8AE  ; [.26AA.0020.0002] # SAURASHTRA LETTER VA
+A8AF  ; [.26AB.0020.0002] # SAURASHTRA LETTER SHA
+A8B0  ; [.26AC.0020.0002] # SAURASHTRA LETTER SSA
+A8B1  ; [.26AD.0020.0002] # SAURASHTRA LETTER SA
+A8B2  ; [.26AE.0020.0002] # SAURASHTRA LETTER HA
+A8B3  ; [.26AF.0020.0002] # SAURASHTRA LETTER LLA
+A8B4  ; [.26B0.0020.0002] # SAURASHTRA CONSONANT SIGN HAARU
+A8B5  ; [.26B1.0020.0002] # SAURASHTRA VOWEL SIGN AA
+A8B6  ; [.26B2.0020.0002] # SAURASHTRA VOWEL SIGN I
+A8B7  ; [.26B3.0020.0002] # SAURASHTRA VOWEL SIGN II
+A8B8  ; [.26B4.0020.0002] # SAURASHTRA VOWEL SIGN U
+A8B9  ; [.26B5.0020.0002] # SAURASHTRA VOWEL SIGN UU
+A8BA  ; [.26B6.0020.0002] # SAURASHTRA VOWEL SIGN VOCALIC R
+A8BB  ; [.26B7.0020.0002] # SAURASHTRA VOWEL SIGN VOCALIC RR
+A8BC  ; [.26B8.0020.0002] # SAURASHTRA VOWEL SIGN VOCALIC L
+A8BD  ; [.26B9.0020.0002] # SAURASHTRA VOWEL SIGN VOCALIC LL
+A8BE  ; [.26BA.0020.0002] # SAURASHTRA VOWEL SIGN E
+A8BF  ; [.26BB.0020.0002] # SAURASHTRA VOWEL SIGN EE
+A8C0  ; [.26BC.0020.0002] # SAURASHTRA VOWEL SIGN AI
+A8C1  ; [.26BD.0020.0002] # SAURASHTRA VOWEL SIGN O
+A8C2  ; [.26BE.0020.0002] # SAURASHTRA VOWEL SIGN OO
+A8C3  ; [.26BF.0020.0002] # SAURASHTRA VOWEL SIGN AU
+A8C4  ; [.26C0.0020.0002] # SAURASHTRA SIGN VIRAMA
+11083 ; [.26C1.0020.0002] # KAITHI LETTER A
+11084 ; [.26C2.0020.0002] # KAITHI LETTER AA
+11085 ; [.26C3.0020.0002] # KAITHI LETTER I
+11086 ; [.26C4.0020.0002] # KAITHI LETTER II
+11087 ; [.26C5.0020.0002] # KAITHI LETTER U
+11088 ; [.26C6.0020.0002] # KAITHI LETTER UU
+11089 ; [.26C7.0020.0002] # KAITHI LETTER E
+1108A ; [.26C8.0020.0002] # KAITHI LETTER AI
+1108B ; [.26C9.0020.0002] # KAITHI LETTER O
+1108C ; [.26CA.0020.0002] # KAITHI LETTER AU
+1108D ; [.26CB.0020.0002] # KAITHI LETTER KA
+1108E ; [.26CC.0020.0002] # KAITHI LETTER KHA
+1108F ; [.26CD.0020.0002] # KAITHI LETTER GA
+11090 ; [.26CE.0020.0002] # KAITHI LETTER GHA
+11091 ; [.26CF.0020.0002] # KAITHI LETTER NGA
+11092 ; [.26D0.0020.0002] # KAITHI LETTER CA
+11093 ; [.26D1.0020.0002] # KAITHI LETTER CHA
+11094 ; [.26D2.0020.0002] # KAITHI LETTER JA
+11095 ; [.26D3.0020.0002] # KAITHI LETTER JHA
+11096 ; [.26D4.0020.0002] # KAITHI LETTER NYA
+11097 ; [.26D5.0020.0002] # KAITHI LETTER TTA
+11098 ; [.26D6.0020.0002] # KAITHI LETTER TTHA
+11099 ; [.26D7.0020.0002] # KAITHI LETTER DDA
+1109A ; [.26D7.0020.0002][.0000.00BC.0002] # KAITHI LETTER DDDHA
+1109B ; [.26D8.0020.0002] # KAITHI LETTER DDHA
+1109C ; [.26D8.0020.0002][.0000.00BC.0002] # KAITHI LETTER RHA
+1109D ; [.26D9.0020.0002] # KAITHI LETTER NNA
+1109E ; [.26DA.0020.0002] # KAITHI LETTER TA
+1109F ; [.26DB.0020.0002] # KAITHI LETTER THA
+110A0 ; [.26DC.0020.0002] # KAITHI LETTER DA
+110A1 ; [.26DD.0020.0002] # KAITHI LETTER DHA
+110A2 ; [.26DE.0020.0002] # KAITHI LETTER NA
+110A3 ; [.26DF.0020.0002] # KAITHI LETTER PA
+110A4 ; [.26E0.0020.0002] # KAITHI LETTER PHA
+110A5 ; [.26E1.0020.0002] # KAITHI LETTER BA
+110AB ; [.26E1.0020.0002][.0000.00BC.0002] # KAITHI LETTER VA
+110A6 ; [.26E2.0020.0002] # KAITHI LETTER BHA
+110A7 ; [.26E3.0020.0002] # KAITHI LETTER MA
+110A8 ; [.26E4.0020.0002] # KAITHI LETTER YA
+110A9 ; [.26E5.0020.0002] # KAITHI LETTER RA
+110AA ; [.26E6.0020.0002] # KAITHI LETTER LA
+110AC ; [.26E7.0020.0002] # KAITHI LETTER SHA
+110AD ; [.26E8.0020.0002] # KAITHI LETTER SSA
+110AE ; [.26E9.0020.0002] # KAITHI LETTER SA
+110AF ; [.26EA.0020.0002] # KAITHI LETTER HA
+110B0 ; [.26EB.0020.0002] # KAITHI VOWEL SIGN AA
+110B1 ; [.26EC.0020.0002] # KAITHI VOWEL SIGN I
+110B2 ; [.26ED.0020.0002] # KAITHI VOWEL SIGN II
+110B3 ; [.26EE.0020.0002] # KAITHI VOWEL SIGN U
+110B4 ; [.26EF.0020.0002] # KAITHI VOWEL SIGN UU
+110B5 ; [.26F0.0020.0002] # KAITHI VOWEL SIGN E
+110B6 ; [.26F1.0020.0002] # KAITHI VOWEL SIGN AI
+110B7 ; [.26F2.0020.0002] # KAITHI VOWEL SIGN O
+110B8 ; [.26F3.0020.0002] # KAITHI VOWEL SIGN AU
+110B9 ; [.26F4.0020.0002] # KAITHI SIGN VIRAMA
+11150 ; [.26F5.0020.0002] # MAHAJANI LETTER A
+11151 ; [.26F6.0020.0002] # MAHAJANI LETTER I
+11152 ; [.26F7.0020.0002] # MAHAJANI LETTER U
+11153 ; [.26F8.0020.0002] # MAHAJANI LETTER E
+11154 ; [.26F9.0020.0002] # MAHAJANI LETTER O
+11155 ; [.26FA.0020.0002] # MAHAJANI LETTER KA
+11156 ; [.26FB.0020.0002] # MAHAJANI LETTER KHA
+11157 ; [.26FC.0020.0002] # MAHAJANI LETTER GA
+11158 ; [.26FD.0020.0002] # MAHAJANI LETTER GHA
+11159 ; [.26FE.0020.0002] # MAHAJANI LETTER CA
+1115A ; [.26FF.0020.0002] # MAHAJANI LETTER CHA
+1115B ; [.2700.0020.0002] # MAHAJANI LETTER JA
+1115C ; [.2701.0020.0002] # MAHAJANI LETTER JHA
+1115D ; [.2702.0020.0002] # MAHAJANI LETTER NYA
+1115E ; [.2703.0020.0002] # MAHAJANI LETTER TTA
+1115F ; [.2704.0020.0002] # MAHAJANI LETTER TTHA
+11160 ; [.2705.0020.0002] # MAHAJANI LETTER DDA
+11161 ; [.2706.0020.0002] # MAHAJANI LETTER DDHA
+11162 ; [.2707.0020.0002] # MAHAJANI LETTER NNA
+11163 ; [.2708.0020.0002] # MAHAJANI LETTER TA
+11164 ; [.2709.0020.0002] # MAHAJANI LETTER THA
+11165 ; [.270A.0020.0002] # MAHAJANI LETTER DA
+11166 ; [.270B.0020.0002] # MAHAJANI LETTER DHA
+11167 ; [.270C.0020.0002] # MAHAJANI LETTER NA
+11168 ; [.270D.0020.0002] # MAHAJANI LETTER PA
+11169 ; [.270E.0020.0002] # MAHAJANI LETTER PHA
+1116A ; [.270F.0020.0002] # MAHAJANI LETTER BA
+1116B ; [.2710.0020.0002] # MAHAJANI LETTER BHA
+1116C ; [.2711.0020.0002] # MAHAJANI LETTER MA
+1116D ; [.2712.0020.0002] # MAHAJANI LETTER RA
+1116E ; [.2713.0020.0002] # MAHAJANI LETTER LA
+1116F ; [.2714.0020.0002] # MAHAJANI LETTER VA
+11176 ; [.2715.0020.0002] # MAHAJANI LIGATURE SHRI
+11170 ; [.2716.0020.0002] # MAHAJANI LETTER SA
+11171 ; [.2717.0020.0002] # MAHAJANI LETTER HA
+11172 ; [.2718.0020.0002] # MAHAJANI LETTER RRA
+111C4 ; [.2719.0020.0002] # SHARADA OM
+111DA ; [.271A.0020.0002] # SHARADA EKAM
+11183 ; [.271B.0020.0002] # SHARADA LETTER A
+11184 ; [.271C.0020.0002] # SHARADA LETTER AA
+11185 ; [.271D.0020.0002] # SHARADA LETTER I
+11186 ; [.271E.0020.0002] # SHARADA LETTER II
+11187 ; [.271F.0020.0002] # SHARADA LETTER U
+11188 ; [.2720.0020.0002] # SHARADA LETTER UU
+11189 ; [.2721.0020.0002] # SHARADA LETTER VOCALIC R
+1118A ; [.2722.0020.0002] # SHARADA LETTER VOCALIC RR
+1118B ; [.2723.0020.0002] # SHARADA LETTER VOCALIC L
+1118C ; [.2724.0020.0002] # SHARADA LETTER VOCALIC LL
+1118D ; [.2725.0020.0002] # SHARADA LETTER E
+1118E ; [.2726.0020.0002] # SHARADA LETTER AI
+1118F ; [.2727.0020.0002] # SHARADA LETTER O
+11190 ; [.2728.0020.0002] # SHARADA LETTER AU
+11191 ; [.2729.0020.0002] # SHARADA LETTER KA
+11192 ; [.272A.0020.0002] # SHARADA LETTER KHA
+11193 ; [.272B.0020.0002] # SHARADA LETTER GA
+11194 ; [.272C.0020.0002] # SHARADA LETTER GHA
+11195 ; [.272D.0020.0002] # SHARADA LETTER NGA
+11196 ; [.272E.0020.0002] # SHARADA LETTER CA
+11197 ; [.272F.0020.0002] # SHARADA LETTER CHA
+11198 ; [.2730.0020.0002] # SHARADA LETTER JA
+11199 ; [.2731.0020.0002] # SHARADA LETTER JHA
+1119A ; [.2732.0020.0002] # SHARADA LETTER NYA
+1119B ; [.2733.0020.0002] # SHARADA LETTER TTA
+1119C ; [.2734.0020.0002] # SHARADA LETTER TTHA
+1119D ; [.2735.0020.0002] # SHARADA LETTER DDA
+1119E ; [.2736.0020.0002] # SHARADA LETTER DDHA
+1119F ; [.2737.0020.0002] # SHARADA LETTER NNA
+111A0 ; [.2738.0020.0002] # SHARADA LETTER TA
+111A1 ; [.2739.0020.0002] # SHARADA LETTER THA
+111A2 ; [.273A.0020.0002] # SHARADA LETTER DA
+111A3 ; [.273B.0020.0002] # SHARADA LETTER DHA
+111A4 ; [.273C.0020.0002] # SHARADA LETTER NA
+111A5 ; [.273D.0020.0002] # SHARADA LETTER PA
+111A6 ; [.273E.0020.0002] # SHARADA LETTER PHA
+111A7 ; [.273F.0020.0002] # SHARADA LETTER BA
+111A8 ; [.2740.0020.0002] # SHARADA LETTER BHA
+111A9 ; [.2741.0020.0002] # SHARADA LETTER MA
+111AA ; [.2742.0020.0002] # SHARADA LETTER YA
+111AB ; [.2743.0020.0002] # SHARADA LETTER RA
+111AC ; [.2744.0020.0002] # SHARADA LETTER LA
+111AD ; [.2745.0020.0002] # SHARADA LETTER LLA
+111AE ; [.2746.0020.0002] # SHARADA LETTER VA
+111AF ; [.2747.0020.0002] # SHARADA LETTER SHA
+111B0 ; [.2748.0020.0002] # SHARADA LETTER SSA
+111B1 ; [.2749.0020.0002] # SHARADA LETTER SA
+111B2 ; [.274A.0020.0002] # SHARADA LETTER HA
+111C1 ; [.274B.0020.0002] # SHARADA SIGN AVAGRAHA
+111C2 ; [.274C.0020.0002] # SHARADA SIGN JIHVAMULIYA
+111C3 ; [.274D.0020.0002] # SHARADA SIGN UPADHMANIYA
+111B3 ; [.274E.0020.0002] # SHARADA VOWEL SIGN AA
+111B4 ; [.274F.0020.0002] # SHARADA VOWEL SIGN I
+111B5 ; [.2750.0020.0002] # SHARADA VOWEL SIGN II
+111B6 ; [.2751.0020.0002] # SHARADA VOWEL SIGN U
+111B7 ; [.2752.0020.0002] # SHARADA VOWEL SIGN UU
+111B8 ; [.2753.0020.0002] # SHARADA VOWEL SIGN VOCALIC R
+111B9 ; [.2754.0020.0002] # SHARADA VOWEL SIGN VOCALIC RR
+111BA ; [.2755.0020.0002] # SHARADA VOWEL SIGN VOCALIC L
+111BB ; [.2756.0020.0002] # SHARADA VOWEL SIGN VOCALIC LL
+111BC ; [.2757.0020.0002] # SHARADA VOWEL SIGN E
+111BD ; [.2758.0020.0002] # SHARADA VOWEL SIGN AI
+111BE ; [.2759.0020.0002] # SHARADA VOWEL SIGN O
+111BF ; [.275A.0020.0002] # SHARADA VOWEL SIGN AU
+111C0 ; [.275B.0020.0002] # SHARADA SIGN VIRAMA
+11200 ; [.275C.0020.0002] # KHOJKI LETTER A
+11201 ; [.275D.0020.0002] # KHOJKI LETTER AA
+11202 ; [.275E.0020.0002] # KHOJKI LETTER I
+11203 ; [.275F.0020.0002] # KHOJKI LETTER U
+11204 ; [.2760.0020.0002] # KHOJKI LETTER E
+11205 ; [.2761.0020.0002] # KHOJKI LETTER AI
+11206 ; [.2762.0020.0002] # KHOJKI LETTER O
+11207 ; [.2763.0020.0002] # KHOJKI LETTER AU
+11208 ; [.2764.0020.0002] # KHOJKI LETTER KA
+11209 ; [.2765.0020.0002] # KHOJKI LETTER KHA
+1120A ; [.2766.0020.0002] # KHOJKI LETTER GA
+1120B ; [.2767.0020.0002] # KHOJKI LETTER GGA
+1120C ; [.2768.0020.0002] # KHOJKI LETTER GHA
+1120D ; [.2769.0020.0002] # KHOJKI LETTER NGA
+1120E ; [.276A.0020.0002] # KHOJKI LETTER CA
+1120F ; [.276B.0020.0002] # KHOJKI LETTER CHA
+11210 ; [.276C.0020.0002] # KHOJKI LETTER JA
+11211 ; [.276D.0020.0002] # KHOJKI LETTER JJA
+11213 ; [.276E.0020.0002] # KHOJKI LETTER NYA
+11214 ; [.276F.0020.0002] # KHOJKI LETTER TTA
+11215 ; [.2770.0020.0002] # KHOJKI LETTER TTHA
+11216 ; [.2771.0020.0002] # KHOJKI LETTER DDA
+11217 ; [.2772.0020.0002] # KHOJKI LETTER DDHA
+11218 ; [.2773.0020.0002] # KHOJKI LETTER NNA
+11219 ; [.2774.0020.0002] # KHOJKI LETTER TA
+1121A ; [.2775.0020.0002] # KHOJKI LETTER THA
+1121B ; [.2776.0020.0002] # KHOJKI LETTER DA
+1121C ; [.2777.0020.0002] # KHOJKI LETTER DDDA
+1121D ; [.2778.0020.0002] # KHOJKI LETTER DHA
+1121E ; [.2779.0020.0002] # KHOJKI LETTER NA
+1121F ; [.277A.0020.0002] # KHOJKI LETTER PA
+11220 ; [.277B.0020.0002] # KHOJKI LETTER PHA
+11221 ; [.277C.0020.0002] # KHOJKI LETTER BA
+11222 ; [.277D.0020.0002] # KHOJKI LETTER BBA
+11223 ; [.277E.0020.0002] # KHOJKI LETTER BHA
+11224 ; [.277F.0020.0002] # KHOJKI LETTER MA
+11225 ; [.2780.0020.0002] # KHOJKI LETTER YA
+11226 ; [.2781.0020.0002] # KHOJKI LETTER RA
+11227 ; [.2782.0020.0002] # KHOJKI LETTER LA
+11228 ; [.2783.0020.0002] # KHOJKI LETTER VA
+11229 ; [.2784.0020.0002] # KHOJKI LETTER SA
+1122A ; [.2785.0020.0002] # KHOJKI LETTER HA
+1122B ; [.2786.0020.0002] # KHOJKI LETTER LLA
+1122C ; [.2787.0020.0002] # KHOJKI VOWEL SIGN AA
+1122D ; [.2788.0020.0002] # KHOJKI VOWEL SIGN I
+1122E ; [.2789.0020.0002] # KHOJKI VOWEL SIGN II
+1122F ; [.278A.0020.0002] # KHOJKI VOWEL SIGN U
+11230 ; [.278B.0020.0002] # KHOJKI VOWEL SIGN E
+11231 ; [.278C.0020.0002] # KHOJKI VOWEL SIGN AI
+11232 ; [.278D.0020.0002] # KHOJKI VOWEL SIGN O
+11233 ; [.278E.0020.0002] # KHOJKI VOWEL SIGN AU
+11235 ; [.278F.0020.0002] # KHOJKI SIGN VIRAMA
+112B0 ; [.2790.0020.0002] # KHUDAWADI LETTER A
+112B1 ; [.2791.0020.0002] # KHUDAWADI LETTER AA
+112B2 ; [.2792.0020.0002] # KHUDAWADI LETTER I
+112B3 ; [.2793.0020.0002] # KHUDAWADI LETTER II
+112B4 ; [.2794.0020.0002] # KHUDAWADI LETTER U
+112B5 ; [.2795.0020.0002] # KHUDAWADI LETTER UU
+112B6 ; [.2796.0020.0002] # KHUDAWADI LETTER E
+112B7 ; [.2797.0020.0002] # KHUDAWADI LETTER AI
+112B8 ; [.2798.0020.0002] # KHUDAWADI LETTER O
+112B9 ; [.2799.0020.0002] # KHUDAWADI LETTER AU
+112BA ; [.279A.0020.0002] # KHUDAWADI LETTER KA
+112BB ; [.279B.0020.0002] # KHUDAWADI LETTER KHA
+112BC ; [.279C.0020.0002] # KHUDAWADI LETTER GA
+112BD ; [.279D.0020.0002] # KHUDAWADI LETTER GGA
+112BE ; [.279E.0020.0002] # KHUDAWADI LETTER GHA
+112BF ; [.279F.0020.0002] # KHUDAWADI LETTER NGA
+112C0 ; [.27A0.0020.0002] # KHUDAWADI LETTER CA
+112C1 ; [.27A1.0020.0002] # KHUDAWADI LETTER CHA
+112C2 ; [.27A2.0020.0002] # KHUDAWADI LETTER JA
+112C3 ; [.27A3.0020.0002] # KHUDAWADI LETTER JJA
+112C4 ; [.27A4.0020.0002] # KHUDAWADI LETTER JHA
+112C5 ; [.27A5.0020.0002] # KHUDAWADI LETTER NYA
+112C6 ; [.27A6.0020.0002] # KHUDAWADI LETTER TTA
+112C7 ; [.27A7.0020.0002] # KHUDAWADI LETTER TTHA
+112C8 ; [.27A8.0020.0002] # KHUDAWADI LETTER DDA
+112C9 ; [.27A9.0020.0002] # KHUDAWADI LETTER DDDA
+112CA ; [.27AA.0020.0002] # KHUDAWADI LETTER RRA
+112CB ; [.27AB.0020.0002] # KHUDAWADI LETTER DDHA
+112CC ; [.27AC.0020.0002] # KHUDAWADI LETTER NNA
+112CD ; [.27AD.0020.0002] # KHUDAWADI LETTER TA
+112CE ; [.27AE.0020.0002] # KHUDAWADI LETTER THA
+112CF ; [.27AF.0020.0002] # KHUDAWADI LETTER DA
+112D0 ; [.27B0.0020.0002] # KHUDAWADI LETTER DHA
+112D1 ; [.27B1.0020.0002] # KHUDAWADI LETTER NA
+112D2 ; [.27B2.0020.0002] # KHUDAWADI LETTER PA
+112D3 ; [.27B3.0020.0002] # KHUDAWADI LETTER PHA
+112D4 ; [.27B4.0020.0002] # KHUDAWADI LETTER BA
+112D5 ; [.27B5.0020.0002] # KHUDAWADI LETTER BBA
+112D6 ; [.27B6.0020.0002] # KHUDAWADI LETTER BHA
+112D7 ; [.27B7.0020.0002] # KHUDAWADI LETTER MA
+112D8 ; [.27B8.0020.0002] # KHUDAWADI LETTER YA
+112D9 ; [.27B9.0020.0002] # KHUDAWADI LETTER RA
+112DA ; [.27BA.0020.0002] # KHUDAWADI LETTER LA
+112DB ; [.27BB.0020.0002] # KHUDAWADI LETTER VA
+112DC ; [.27BC.0020.0002] # KHUDAWADI LETTER SHA
+112DD ; [.27BD.0020.0002] # KHUDAWADI LETTER SA
+112DE ; [.27BE.0020.0002] # KHUDAWADI LETTER HA
+112E0 ; [.27BF.0020.0002] # KHUDAWADI VOWEL SIGN AA
+112E1 ; [.27C0.0020.0002] # KHUDAWADI VOWEL SIGN I
+112E2 ; [.27C1.0020.0002] # KHUDAWADI VOWEL SIGN II
+112E3 ; [.27C2.0020.0002] # KHUDAWADI VOWEL SIGN U
+112E4 ; [.27C3.0020.0002] # KHUDAWADI VOWEL SIGN UU
+112E5 ; [.27C4.0020.0002] # KHUDAWADI VOWEL SIGN E
+112E6 ; [.27C5.0020.0002] # KHUDAWADI VOWEL SIGN AI
+112E7 ; [.27C6.0020.0002] # KHUDAWADI VOWEL SIGN O
+112E8 ; [.27C7.0020.0002] # KHUDAWADI VOWEL SIGN AU
+112EA ; [.27C8.0020.0002] # KHUDAWADI SIGN VIRAMA
+11305 ; [.27C9.0020.0002] # GRANTHA LETTER A
+11306 ; [.27CA.0020.0002] # GRANTHA LETTER AA
+11307 ; [.27CB.0020.0002] # GRANTHA LETTER I
+11308 ; [.27CC.0020.0002] # GRANTHA LETTER II
+11309 ; [.27CD.0020.0002] # GRANTHA LETTER U
+1130A ; [.27CE.0020.0002] # GRANTHA LETTER UU
+1130B ; [.27CF.0020.0002] # GRANTHA LETTER VOCALIC R
+11360 ; [.27D0.0020.0002] # GRANTHA LETTER VOCALIC RR
+1130C ; [.27D1.0020.0002] # GRANTHA LETTER VOCALIC L
+11361 ; [.27D2.0020.0002] # GRANTHA LETTER VOCALIC LL
+1130F ; [.27D3.0020.0002] # GRANTHA LETTER EE
+11310 ; [.27D4.0020.0002] # GRANTHA LETTER AI
+11313 ; [.27D5.0020.0002] # GRANTHA LETTER OO
+11314 ; [.27D6.0020.0002] # GRANTHA LETTER AU
+11315 ; [.27D7.0020.0002] # GRANTHA LETTER KA
+11316 ; [.27D8.0020.0002] # GRANTHA LETTER KHA
+11317 ; [.27D9.0020.0002] # GRANTHA LETTER GA
+11318 ; [.27DA.0020.0002] # GRANTHA LETTER GHA
+11319 ; [.27DB.0020.0002] # GRANTHA LETTER NGA
+1131A ; [.27DC.0020.0002] # GRANTHA LETTER CA
+1131B ; [.27DD.0020.0002] # GRANTHA LETTER CHA
+1131C ; [.27DE.0020.0002] # GRANTHA LETTER JA
+1131D ; [.27DF.0020.0002] # GRANTHA LETTER JHA
+1131E ; [.27E0.0020.0002] # GRANTHA LETTER NYA
+1131F ; [.27E1.0020.0002] # GRANTHA LETTER TTA
+11320 ; [.27E2.0020.0002] # GRANTHA LETTER TTHA
+11321 ; [.27E3.0020.0002] # GRANTHA LETTER DDA
+11322 ; [.27E4.0020.0002] # GRANTHA LETTER DDHA
+11323 ; [.27E5.0020.0002] # GRANTHA LETTER NNA
+11324 ; [.27E6.0020.0002] # GRANTHA LETTER TA
+11325 ; [.27E7.0020.0002] # GRANTHA LETTER THA
+11326 ; [.27E8.0020.0002] # GRANTHA LETTER DA
+11327 ; [.27E9.0020.0002] # GRANTHA LETTER DHA
+11328 ; [.27EA.0020.0002] # GRANTHA LETTER NA
+1132A ; [.27EB.0020.0002] # GRANTHA LETTER PA
+1132B ; [.27EC.0020.0002] # GRANTHA LETTER PHA
+1132C ; [.27ED.0020.0002] # GRANTHA LETTER BA
+1132D ; [.27EE.0020.0002] # GRANTHA LETTER BHA
+1132E ; [.27EF.0020.0002] # GRANTHA LETTER MA
+1132F ; [.27F0.0020.0002] # GRANTHA LETTER YA
+11330 ; [.27F1.0020.0002] # GRANTHA LETTER RA
+11332 ; [.27F2.0020.0002] # GRANTHA LETTER LA
+11333 ; [.27F3.0020.0002] # GRANTHA LETTER LLA
+11335 ; [.27F4.0020.0002] # GRANTHA LETTER VA
+11336 ; [.27F5.0020.0002] # GRANTHA LETTER SHA
+11337 ; [.27F6.0020.0002] # GRANTHA LETTER SSA
+11338 ; [.27F7.0020.0002] # GRANTHA LETTER SA
+11339 ; [.27F8.0020.0002] # GRANTHA LETTER HA
+1133D ; [.27F9.0020.0002] # GRANTHA SIGN AVAGRAHA
+1135E ; [.27FA.0020.0002] # GRANTHA LETTER VEDIC ANUSVARA
+1135F ; [.27FB.0020.0002] # GRANTHA LETTER VEDIC DOUBLE ANUSVARA
+1133E ; [.27FC.0020.0002] # GRANTHA VOWEL SIGN AA
+1133F ; [.27FD.0020.0002] # GRANTHA VOWEL SIGN I
+11340 ; [.27FE.0020.0002] # GRANTHA VOWEL SIGN II
+11341 ; [.27FF.0020.0002] # GRANTHA VOWEL SIGN U
+11342 ; [.2800.0020.0002] # GRANTHA VOWEL SIGN UU
+11343 ; [.2801.0020.0002] # GRANTHA VOWEL SIGN VOCALIC R
+11344 ; [.2802.0020.0002] # GRANTHA VOWEL SIGN VOCALIC RR
+11362 ; [.2803.0020.0002] # GRANTHA VOWEL SIGN VOCALIC L
+11363 ; [.2804.0020.0002] # GRANTHA VOWEL SIGN VOCALIC LL
+11347 ; [.2805.0020.0002] # GRANTHA VOWEL SIGN EE
+11348 ; [.2806.0020.0002] # GRANTHA VOWEL SIGN AI
+1134B ; [.2807.0020.0002] # GRANTHA VOWEL SIGN OO
+11347 1133E ; [.2807.0020.0002] # GRANTHA VOWEL SIGN OO
+1134C ; [.2808.0020.0002] # GRANTHA VOWEL SIGN AU
+11347 11357 ; [.2808.0020.0002] # GRANTHA VOWEL SIGN AU
+1134D ; [.2809.0020.0002] # GRANTHA SIGN VIRAMA
+11357 ; [.280A.0020.0002] # GRANTHA AU LENGTH MARK
+1135D ; [.280B.0020.0002] # GRANTHA SIGN PLUTA
+114C7 ; [.280C.0020.0002] # TIRHUTA OM
+11480 ; [.280D.0020.0002] # TIRHUTA ANJI
+11481 ; [.280E.0020.0002] # TIRHUTA LETTER A
+11482 ; [.280F.0020.0002] # TIRHUTA LETTER AA
+11483 ; [.2810.0020.0002] # TIRHUTA LETTER I
+11484 ; [.2811.0020.0002] # TIRHUTA LETTER II
+11485 ; [.2812.0020.0002] # TIRHUTA LETTER U
+11486 ; [.2813.0020.0002] # TIRHUTA LETTER UU
+11487 ; [.2814.0020.0002] # TIRHUTA LETTER VOCALIC R
+11488 ; [.2815.0020.0002] # TIRHUTA LETTER VOCALIC RR
+11489 ; [.2816.0020.0002] # TIRHUTA LETTER VOCALIC L
+1148A ; [.2817.0020.0002] # TIRHUTA LETTER VOCALIC LL
+1148B ; [.2818.0020.0002] # TIRHUTA LETTER E
+1148C ; [.2819.0020.0002] # TIRHUTA LETTER AI
+1148D ; [.281A.0020.0002] # TIRHUTA LETTER O
+1148E ; [.281B.0020.0002] # TIRHUTA LETTER AU
+1148F ; [.281C.0020.0002] # TIRHUTA LETTER KA
+11490 ; [.281D.0020.0002] # TIRHUTA LETTER KHA
+11491 ; [.281E.0020.0002] # TIRHUTA LETTER GA
+11492 ; [.281F.0020.0002] # TIRHUTA LETTER GHA
+11493 ; [.2820.0020.0002] # TIRHUTA LETTER NGA
+11494 ; [.2821.0020.0002] # TIRHUTA LETTER CA
+11495 ; [.2822.0020.0002] # TIRHUTA LETTER CHA
+11496 ; [.2823.0020.0002] # TIRHUTA LETTER JA
+11497 ; [.2824.0020.0002] # TIRHUTA LETTER JHA
+11498 ; [.2825.0020.0002] # TIRHUTA LETTER NYA
+11499 ; [.2826.0020.0002] # TIRHUTA LETTER TTA
+1149A ; [.2827.0020.0002] # TIRHUTA LETTER TTHA
+1149B ; [.2828.0020.0002] # TIRHUTA LETTER DDA
+1149C ; [.2829.0020.0002] # TIRHUTA LETTER DDHA
+1149D ; [.282A.0020.0002] # TIRHUTA LETTER NNA
+1149E ; [.282B.0020.0002] # TIRHUTA LETTER TA
+1149F ; [.282C.0020.0002] # TIRHUTA LETTER THA
+114A0 ; [.282D.0020.0002] # TIRHUTA LETTER DA
+114A1 ; [.282E.0020.0002] # TIRHUTA LETTER DHA
+114A2 ; [.282F.0020.0002] # TIRHUTA LETTER NA
+114A3 ; [.2830.0020.0002] # TIRHUTA LETTER PA
+114A4 ; [.2831.0020.0002] # TIRHUTA LETTER PHA
+114A5 ; [.2832.0020.0002] # TIRHUTA LETTER BA
+114A6 ; [.2833.0020.0002] # TIRHUTA LETTER BHA
+114A7 ; [.2834.0020.0002] # TIRHUTA LETTER MA
+114A8 ; [.2835.0020.0002] # TIRHUTA LETTER YA
+114A9 ; [.2836.0020.0002] # TIRHUTA LETTER RA
+114AA ; [.2837.0020.0002] # TIRHUTA LETTER LA
+114AB ; [.2838.0020.0002] # TIRHUTA LETTER VA
+114AC ; [.2839.0020.0002] # TIRHUTA LETTER SHA
+114AD ; [.283A.0020.0002] # TIRHUTA LETTER SSA
+114AE ; [.283B.0020.0002] # TIRHUTA LETTER SA
+114AF ; [.283C.0020.0002] # TIRHUTA LETTER HA
+114C4 ; [.283D.0020.0002] # TIRHUTA SIGN AVAGRAHA
+114C5 ; [.283E.0020.0002] # TIRHUTA GVANG
+114B0 ; [.283F.0020.0002] # TIRHUTA VOWEL SIGN AA
+114B1 ; [.2840.0020.0002] # TIRHUTA VOWEL SIGN I
+114B2 ; [.2841.0020.0002] # TIRHUTA VOWEL SIGN II
+114B3 ; [.2842.0020.0002] # TIRHUTA VOWEL SIGN U
+114B4 ; [.2843.0020.0002] # TIRHUTA VOWEL SIGN UU
+114B5 ; [.2844.0020.0002] # TIRHUTA VOWEL SIGN VOCALIC R
+114B6 ; [.2845.0020.0002] # TIRHUTA VOWEL SIGN VOCALIC RR
+114B7 ; [.2846.0020.0002] # TIRHUTA VOWEL SIGN VOCALIC L
+114B8 ; [.2847.0020.0002] # TIRHUTA VOWEL SIGN VOCALIC LL
+114B9 ; [.2848.0020.0002] # TIRHUTA VOWEL SIGN E
+114BA ; [.2849.0020.0002] # TIRHUTA VOWEL SIGN SHORT E
+114BB ; [.284A.0020.0002] # TIRHUTA VOWEL SIGN AI
+114B9 114BA ; [.284A.0020.0002] # TIRHUTA VOWEL SIGN AI
+114BC ; [.284B.0020.0002] # TIRHUTA VOWEL SIGN O
+114B9 114B0 ; [.284B.0020.0002] # TIRHUTA VOWEL SIGN O
+114BD ; [.284C.0020.0002] # TIRHUTA VOWEL SIGN SHORT O
+114BE ; [.284D.0020.0002] # TIRHUTA VOWEL SIGN AU
+114B9 114BD ; [.284D.0020.0002] # TIRHUTA VOWEL SIGN AU
+114C2 ; [.284E.0020.0002] # TIRHUTA SIGN VIRAMA
+11580 ; [.284F.0020.0002] # SIDDHAM LETTER A
+11581 ; [.2850.0020.0002] # SIDDHAM LETTER AA
+11582 ; [.2851.0020.0002] # SIDDHAM LETTER I
+11583 ; [.2852.0020.0002] # SIDDHAM LETTER II
+11584 ; [.2853.0020.0002] # SIDDHAM LETTER U
+11585 ; [.2854.0020.0002] # SIDDHAM LETTER UU
+11586 ; [.2855.0020.0002] # SIDDHAM LETTER VOCALIC R
+11587 ; [.2856.0020.0002] # SIDDHAM LETTER VOCALIC RR
+11588 ; [.2857.0020.0002] # SIDDHAM LETTER VOCALIC L
+11589 ; [.2858.0020.0002] # SIDDHAM LETTER VOCALIC LL
+1158A ; [.2859.0020.0002] # SIDDHAM LETTER E
+1158B ; [.285A.0020.0002] # SIDDHAM LETTER AI
+1158C ; [.285B.0020.0002] # SIDDHAM LETTER O
+1158D ; [.285C.0020.0002] # SIDDHAM LETTER AU
+1158E ; [.285D.0020.0002] # SIDDHAM LETTER KA
+1158F ; [.285E.0020.0002] # SIDDHAM LETTER KHA
+11590 ; [.285F.0020.0002] # SIDDHAM LETTER GA
+11591 ; [.2860.0020.0002] # SIDDHAM LETTER GHA
+11592 ; [.2861.0020.0002] # SIDDHAM LETTER NGA
+11593 ; [.2862.0020.0002] # SIDDHAM LETTER CA
+11594 ; [.2863.0020.0002] # SIDDHAM LETTER CHA
+11595 ; [.2864.0020.0002] # SIDDHAM LETTER JA
+11596 ; [.2865.0020.0002] # SIDDHAM LETTER JHA
+11597 ; [.2866.0020.0002] # SIDDHAM LETTER NYA
+11598 ; [.2867.0020.0002] # SIDDHAM LETTER TTA
+11599 ; [.2868.0020.0002] # SIDDHAM LETTER TTHA
+1159A ; [.2869.0020.0002] # SIDDHAM LETTER DDA
+1159B ; [.286A.0020.0002] # SIDDHAM LETTER DDHA
+1159C ; [.286B.0020.0002] # SIDDHAM LETTER NNA
+1159D ; [.286C.0020.0002] # SIDDHAM LETTER TA
+1159E ; [.286D.0020.0002] # SIDDHAM LETTER THA
+1159F ; [.286E.0020.0002] # SIDDHAM LETTER DA
+115A0 ; [.286F.0020.0002] # SIDDHAM LETTER DHA
+115A1 ; [.2870.0020.0002] # SIDDHAM LETTER NA
+115A2 ; [.2871.0020.0002] # SIDDHAM LETTER PA
+115A3 ; [.2872.0020.0002] # SIDDHAM LETTER PHA
+115A4 ; [.2873.0020.0002] # SIDDHAM LETTER BA
+115A5 ; [.2874.0020.0002] # SIDDHAM LETTER BHA
+115A6 ; [.2875.0020.0002] # SIDDHAM LETTER MA
+115A7 ; [.2876.0020.0002] # SIDDHAM LETTER YA
+115A8 ; [.2877.0020.0002] # SIDDHAM LETTER RA
+115A9 ; [.2878.0020.0002] # SIDDHAM LETTER LA
+115AA ; [.2879.0020.0002] # SIDDHAM LETTER VA
+115AB ; [.287A.0020.0002] # SIDDHAM LETTER SHA
+115AC ; [.287B.0020.0002] # SIDDHAM LETTER SSA
+115AD ; [.287C.0020.0002] # SIDDHAM LETTER SA
+115AE ; [.287D.0020.0002] # SIDDHAM LETTER HA
+115AF ; [.287E.0020.0002] # SIDDHAM VOWEL SIGN AA
+115B0 ; [.287F.0020.0002] # SIDDHAM VOWEL SIGN I
+115B1 ; [.2880.0020.0002] # SIDDHAM VOWEL SIGN II
+115B2 ; [.2881.0020.0002] # SIDDHAM VOWEL SIGN U
+115B3 ; [.2882.0020.0002] # SIDDHAM VOWEL SIGN UU
+115B4 ; [.2883.0020.0002] # SIDDHAM VOWEL SIGN VOCALIC R
+115B5 ; [.2884.0020.0002] # SIDDHAM VOWEL SIGN VOCALIC RR
+115B8 ; [.2885.0020.0002] # SIDDHAM VOWEL SIGN E
+115B9 ; [.2886.0020.0002] # SIDDHAM VOWEL SIGN AI
+115BA ; [.2887.0020.0002] # SIDDHAM VOWEL SIGN O
+115B8 115AF ; [.2887.0020.0002] # SIDDHAM VOWEL SIGN O
+115BB ; [.2888.0020.0002] # SIDDHAM VOWEL SIGN AU
+115B9 115AF ; [.2888.0020.0002] # SIDDHAM VOWEL SIGN AU
+115BF ; [.2889.0020.0002] # SIDDHAM SIGN VIRAMA
+11600 ; [.288A.0020.0002] # MODI LETTER A
+11601 ; [.288B.0020.0002] # MODI LETTER AA
+11602 ; [.288C.0020.0002] # MODI LETTER I
+11603 ; [.288D.0020.0002] # MODI LETTER II
+11604 ; [.288E.0020.0002] # MODI LETTER U
+11605 ; [.288F.0020.0002] # MODI LETTER UU
+11606 ; [.2890.0020.0002] # MODI LETTER VOCALIC R
+11607 ; [.2891.0020.0002] # MODI LETTER VOCALIC RR
+11608 ; [.2892.0020.0002] # MODI LETTER VOCALIC L
+11609 ; [.2893.0020.0002] # MODI LETTER VOCALIC LL
+1160A ; [.2894.0020.0002] # MODI LETTER E
+1160B ; [.2895.0020.0002] # MODI LETTER AI
+1160C ; [.2896.0020.0002] # MODI LETTER O
+1160D ; [.2897.0020.0002] # MODI LETTER AU
+1160E ; [.2898.0020.0002] # MODI LETTER KA
+1160F ; [.2899.0020.0002] # MODI LETTER KHA
+11610 ; [.289A.0020.0002] # MODI LETTER GA
+11611 ; [.289B.0020.0002] # MODI LETTER GHA
+11612 ; [.289C.0020.0002] # MODI LETTER NGA
+11613 ; [.289D.0020.0002] # MODI LETTER CA
+11614 ; [.289E.0020.0002] # MODI LETTER CHA
+11615 ; [.289F.0020.0002] # MODI LETTER JA
+11616 ; [.28A0.0020.0002] # MODI LETTER JHA
+11617 ; [.28A1.0020.0002] # MODI LETTER NYA
+11618 ; [.28A2.0020.0002] # MODI LETTER TTA
+11619 ; [.28A3.0020.0002] # MODI LETTER TTHA
+1161A ; [.28A4.0020.0002] # MODI LETTER DDA
+1161B ; [.28A5.0020.0002] # MODI LETTER DDHA
+1161C ; [.28A6.0020.0002] # MODI LETTER NNA
+1161D ; [.28A7.0020.0002] # MODI LETTER TA
+1161E ; [.28A8.0020.0002] # MODI LETTER THA
+1161F ; [.28A9.0020.0002] # MODI LETTER DA
+11620 ; [.28AA.0020.0002] # MODI LETTER DHA
+11621 ; [.28AB.0020.0002] # MODI LETTER NA
+11622 ; [.28AC.0020.0002] # MODI LETTER PA
+11623 ; [.28AD.0020.0002] # MODI LETTER PHA
+11624 ; [.28AE.0020.0002] # MODI LETTER BA
+11625 ; [.28AF.0020.0002] # MODI LETTER BHA
+11626 ; [.28B0.0020.0002] # MODI LETTER MA
+11627 ; [.28B1.0020.0002] # MODI LETTER YA
+11628 ; [.28B2.0020.0002] # MODI LETTER RA
+11629 ; [.28B3.0020.0002] # MODI LETTER LA
+1162A ; [.28B4.0020.0002] # MODI LETTER VA
+1162B ; [.28B5.0020.0002] # MODI LETTER SHA
+1162C ; [.28B6.0020.0002] # MODI LETTER SSA
+1162D ; [.28B7.0020.0002] # MODI LETTER SA
+1162E ; [.28B8.0020.0002] # MODI LETTER HA
+1162F ; [.28B9.0020.0002] # MODI LETTER LLA
+11630 ; [.28BA.0020.0002] # MODI VOWEL SIGN AA
+11631 ; [.28BB.0020.0002] # MODI VOWEL SIGN I
+11632 ; [.28BC.0020.0002] # MODI VOWEL SIGN II
+11633 ; [.28BD.0020.0002] # MODI VOWEL SIGN U
+11634 ; [.28BE.0020.0002] # MODI VOWEL SIGN UU
+11635 ; [.28BF.0020.0002] # MODI VOWEL SIGN VOCALIC R
+11636 ; [.28C0.0020.0002] # MODI VOWEL SIGN VOCALIC RR
+11637 ; [.28C1.0020.0002] # MODI VOWEL SIGN VOCALIC L
+11638 ; [.28C2.0020.0002] # MODI VOWEL SIGN VOCALIC LL
+11639 ; [.28C3.0020.0002] # MODI VOWEL SIGN E
+1163A ; [.28C4.0020.0002] # MODI VOWEL SIGN AI
+1163B ; [.28C5.0020.0002] # MODI VOWEL SIGN O
+1163C ; [.28C6.0020.0002] # MODI VOWEL SIGN AU
+1163F ; [.28C7.0020.0002] # MODI SIGN VIRAMA
+11644 ; [.28C8.0020.0002] # MODI SIGN HUVA
+11680 ; [.28C9.0020.0002] # TAKRI LETTER A
+11681 ; [.28CA.0020.0002] # TAKRI LETTER AA
+11682 ; [.28CB.0020.0002] # TAKRI LETTER I
+11683 ; [.28CC.0020.0002] # TAKRI LETTER II
+11684 ; [.28CD.0020.0002] # TAKRI LETTER U
+11685 ; [.28CE.0020.0002] # TAKRI LETTER UU
+11686 ; [.28CF.0020.0002] # TAKRI LETTER E
+11687 ; [.28D0.0020.0002] # TAKRI LETTER AI
+11688 ; [.28D1.0020.0002] # TAKRI LETTER O
+11689 ; [.28D2.0020.0002] # TAKRI LETTER AU
+116A8 ; [.28D3.0020.0002] # TAKRI LETTER SA
+116A7 ; [.28D4.0020.0002] # TAKRI LETTER SHA
+116A9 ; [.28D5.0020.0002] # TAKRI LETTER HA
+1168A ; [.28D6.0020.0002] # TAKRI LETTER KA
+1168B ; [.28D7.0020.0002] # TAKRI LETTER KHA
+1168C ; [.28D8.0020.0002] # TAKRI LETTER GA
+1168D ; [.28D9.0020.0002] # TAKRI LETTER GHA
+1168E ; [.28DA.0020.0002] # TAKRI LETTER NGA
+1168F ; [.28DB.0020.0002] # TAKRI LETTER CA
+11690 ; [.28DC.0020.0002] # TAKRI LETTER CHA
+11691 ; [.28DD.0020.0002] # TAKRI LETTER JA
+11692 ; [.28DE.0020.0002] # TAKRI LETTER JHA
+11693 ; [.28DF.0020.0002] # TAKRI LETTER NYA
+11694 ; [.28E0.0020.0002] # TAKRI LETTER TTA
+11695 ; [.28E1.0020.0002] # TAKRI LETTER TTHA
+11696 ; [.28E2.0020.0002] # TAKRI LETTER DDA
+11697 ; [.28E3.0020.0002] # TAKRI LETTER DDHA
+11698 ; [.28E4.0020.0002] # TAKRI LETTER NNA
+11699 ; [.28E5.0020.0002] # TAKRI LETTER TA
+1169A ; [.28E6.0020.0002] # TAKRI LETTER THA
+1169B ; [.28E7.0020.0002] # TAKRI LETTER DA
+1169C ; [.28E8.0020.0002] # TAKRI LETTER DHA
+1169D ; [.28E9.0020.0002] # TAKRI LETTER NA
+1169E ; [.28EA.0020.0002] # TAKRI LETTER PA
+1169F ; [.28EB.0020.0002] # TAKRI LETTER PHA
+116A0 ; [.28EC.0020.0002] # TAKRI LETTER BA
+116A1 ; [.28ED.0020.0002] # TAKRI LETTER BHA
+116A2 ; [.28EE.0020.0002] # TAKRI LETTER MA
+116A3 ; [.28EF.0020.0002] # TAKRI LETTER YA
+116A4 ; [.28F0.0020.0002] # TAKRI LETTER RA
+116A5 ; [.28F1.0020.0002] # TAKRI LETTER LA
+116A6 ; [.28F2.0020.0002] # TAKRI LETTER VA
+116AA ; [.28F3.0020.0002] # TAKRI LETTER RRA
+116AD ; [.28F4.0020.0002] # TAKRI VOWEL SIGN AA
+116AE ; [.28F5.0020.0002] # TAKRI VOWEL SIGN I
+116AF ; [.28F6.0020.0002] # TAKRI VOWEL SIGN II
+116B0 ; [.28F7.0020.0002] # TAKRI VOWEL SIGN U
+116B1 ; [.28F8.0020.0002] # TAKRI VOWEL SIGN UU
+116B2 ; [.28F9.0020.0002] # TAKRI VOWEL SIGN E
+116B3 ; [.28FA.0020.0002] # TAKRI VOWEL SIGN AI
+116B4 ; [.28FB.0020.0002] # TAKRI VOWEL SIGN O
+116B5 ; [.28FC.0020.0002] # TAKRI VOWEL SIGN AU
+116B6 ; [.28FD.0020.0002] # TAKRI SIGN VIRAMA
+1B83  ; [.28FE.0020.0002] # SUNDANESE LETTER A
+1BBA  ; [.28FE.0020.0004] # SUNDANESE AVAGRAHA
+1B84  ; [.28FF.0020.0002] # SUNDANESE LETTER I
+1B85  ; [.2900.0020.0002] # SUNDANESE LETTER U
+1B86  ; [.2901.0020.0002] # SUNDANESE LETTER AE
+1B87  ; [.2902.0020.0002] # SUNDANESE LETTER O
+1B88  ; [.2903.0020.0002] # SUNDANESE LETTER E
+1B89  ; [.2904.0020.0002] # SUNDANESE LETTER EU
+1B8A  ; [.2905.0020.0002] # SUNDANESE LETTER KA
+1BBE  ; [.2905.0020.0019] # SUNDANESE LETTER FINAL K
+1BAE  ; [.2906.0020.0002] # SUNDANESE LETTER KHA
+1B8B  ; [.2907.0020.0002] # SUNDANESE LETTER QA
+1B8C  ; [.2908.0020.0002] # SUNDANESE LETTER GA
+1B8D  ; [.2909.0020.0002] # SUNDANESE LETTER NGA
+1B8E  ; [.290A.0020.0002] # SUNDANESE LETTER CA
+1B8F  ; [.290B.0020.0002] # SUNDANESE LETTER JA
+1B90  ; [.290C.0020.0002] # SUNDANESE LETTER ZA
+1B91  ; [.290D.0020.0002] # SUNDANESE LETTER NYA
+1B92  ; [.290E.0020.0002] # SUNDANESE LETTER TA
+1B93  ; [.290F.0020.0002] # SUNDANESE LETTER DA
+1B94  ; [.2910.0020.0002] # SUNDANESE LETTER NA
+1B95  ; [.2911.0020.0002] # SUNDANESE LETTER PA
+1B96  ; [.2912.0020.0002] # SUNDANESE LETTER FA
+1B97  ; [.2913.0020.0002] # SUNDANESE LETTER VA
+1B98  ; [.2914.0020.0002] # SUNDANESE LETTER BA
+1BBD  ; [.2915.0020.0002] # SUNDANESE LETTER BHA
+1B99  ; [.2916.0020.0002] # SUNDANESE LETTER MA
+1BBF  ; [.2916.0020.0019] # SUNDANESE LETTER FINAL M
+1BAC  ; [.2917.0020.0002] # SUNDANESE CONSONANT SIGN PASANGAN MA
+1B9A  ; [.2918.0020.0002] # SUNDANESE LETTER YA
+1BA1  ; [.2919.0020.0002] # SUNDANESE CONSONANT SIGN PAMINGKAL
+1B9B  ; [.291A.0020.0002] # SUNDANESE LETTER RA
+1BA2  ; [.291B.0020.0002] # SUNDANESE CONSONANT SIGN PANYAKRA
+1BBB  ; [.291C.0020.0002] # SUNDANESE LETTER REU
+1B9C  ; [.291D.0020.0002] # SUNDANESE LETTER LA
+1BA3  ; [.291E.0020.0002] # SUNDANESE CONSONANT SIGN PANYIKU
+1BBC  ; [.291F.0020.0002] # SUNDANESE LETTER LEU
+1B9D  ; [.2920.0020.0002] # SUNDANESE LETTER WA
+1BAD  ; [.2921.0020.0002] # SUNDANESE CONSONANT SIGN PASANGAN WA
+1B9E  ; [.2922.0020.0002] # SUNDANESE LETTER SA
+1B9F  ; [.2923.0020.0002] # SUNDANESE LETTER XA
+1BAF  ; [.2924.0020.0002] # SUNDANESE LETTER SYA
+1BA0  ; [.2925.0020.0002] # SUNDANESE LETTER HA
+1BA4  ; [.2926.0020.0002] # SUNDANESE VOWEL SIGN PANGHULU
+1BA5  ; [.2927.0020.0002] # SUNDANESE VOWEL SIGN PANYUKU
+1BA6  ; [.2928.0020.0002] # SUNDANESE VOWEL SIGN PANAELAENG
+1BA7  ; [.2929.0020.0002] # SUNDANESE VOWEL SIGN PANOLONG
+1BA8  ; [.292A.0020.0002] # SUNDANESE VOWEL SIGN PAMEPET
+1BA9  ; [.292B.0020.0002] # SUNDANESE VOWEL SIGN PANEULEUNG
+1BAA  ; [.292C.0020.0002] # SUNDANESE SIGN PAMAAEH
+1BAB  ; [.292D.0020.0002] # SUNDANESE SIGN VIRAMA
+11005 ; [.292E.0020.0002] # BRAHMI LETTER A
+11006 ; [.292F.0020.0002] # BRAHMI LETTER AA
+11007 ; [.2930.0020.0002] # BRAHMI LETTER I
+11008 ; [.2931.0020.0002] # BRAHMI LETTER II
+11009 ; [.2932.0020.0002] # BRAHMI LETTER U
+1100A ; [.2933.0020.0002] # BRAHMI LETTER UU
+1100B ; [.2934.0020.0002] # BRAHMI LETTER VOCALIC R
+1100C ; [.2935.0020.0002] # BRAHMI LETTER VOCALIC RR
+1100D ; [.2936.0020.0002] # BRAHMI LETTER VOCALIC L
+1100E ; [.2937.0020.0002] # BRAHMI LETTER VOCALIC LL
+1100F ; [.2938.0020.0002] # BRAHMI LETTER E
+11010 ; [.2939.0020.0002] # BRAHMI LETTER AI
+11011 ; [.293A.0020.0002] # BRAHMI LETTER O
+11012 ; [.293B.0020.0002] # BRAHMI LETTER AU
+11013 ; [.293C.0020.0002] # BRAHMI LETTER KA
+11014 ; [.293D.0020.0002] # BRAHMI LETTER KHA
+11015 ; [.293E.0020.0002] # BRAHMI LETTER GA
+11016 ; [.293F.0020.0002] # BRAHMI LETTER GHA
+11017 ; [.2940.0020.0002] # BRAHMI LETTER NGA
+11018 ; [.2941.0020.0002] # BRAHMI LETTER CA
+11019 ; [.2942.0020.0002] # BRAHMI LETTER CHA
+1101A ; [.2943.0020.0002] # BRAHMI LETTER JA
+1101B ; [.2944.0020.0002] # BRAHMI LETTER JHA
+1101C ; [.2945.0020.0002] # BRAHMI LETTER NYA
+1101D ; [.2946.0020.0002] # BRAHMI LETTER TTA
+1101E ; [.2947.0020.0002] # BRAHMI LETTER TTHA
+1101F ; [.2948.0020.0002] # BRAHMI LETTER DDA
+11020 ; [.2949.0020.0002] # BRAHMI LETTER DDHA
+11021 ; [.294A.0020.0002] # BRAHMI LETTER NNA
+11022 ; [.294B.0020.0002] # BRAHMI LETTER TA
+11023 ; [.294C.0020.0002] # BRAHMI LETTER THA
+11024 ; [.294D.0020.0002] # BRAHMI LETTER DA
+11025 ; [.294E.0020.0002] # BRAHMI LETTER DHA
+11026 ; [.294F.0020.0002] # BRAHMI LETTER NA
+11027 ; [.2950.0020.0002] # BRAHMI LETTER PA
+11028 ; [.2951.0020.0002] # BRAHMI LETTER PHA
+11029 ; [.2952.0020.0002] # BRAHMI LETTER BA
+1102A ; [.2953.0020.0002] # BRAHMI LETTER BHA
+1102B ; [.2954.0020.0002] # BRAHMI LETTER MA
+1102C ; [.2955.0020.0002] # BRAHMI LETTER YA
+1102D ; [.2956.0020.0002] # BRAHMI LETTER RA
+1102E ; [.2957.0020.0002] # BRAHMI LETTER LA
+1102F ; [.2958.0020.0002] # BRAHMI LETTER VA
+11030 ; [.2959.0020.0002] # BRAHMI LETTER SHA
+11031 ; [.295A.0020.0002] # BRAHMI LETTER SSA
+11032 ; [.295B.0020.0002] # BRAHMI LETTER SA
+11033 ; [.295C.0020.0002] # BRAHMI LETTER HA
+11003 ; [.295D.0020.0002] # BRAHMI SIGN JIHVAMULIYA
+11004 ; [.295E.0020.0002] # BRAHMI SIGN UPADHMANIYA
+11034 ; [.295F.0020.0002] # BRAHMI LETTER LLA
+11035 ; [.2960.0020.0002] # BRAHMI LETTER OLD TAMIL LLLA
+11036 ; [.2961.0020.0002] # BRAHMI LETTER OLD TAMIL RRA
+11037 ; [.2962.0020.0002] # BRAHMI LETTER OLD TAMIL NNNA
+11038 ; [.2963.0020.0002] # BRAHMI VOWEL SIGN AA
+11039 ; [.2964.0020.0002] # BRAHMI VOWEL SIGN BHATTIPROLU AA
+1103A ; [.2965.0020.0002] # BRAHMI VOWEL SIGN I
+1103B ; [.2966.0020.0002] # BRAHMI VOWEL SIGN II
+1103C ; [.2967.0020.0002] # BRAHMI VOWEL SIGN U
+1103D ; [.2968.0020.0002] # BRAHMI VOWEL SIGN UU
+1103E ; [.2969.0020.0002] # BRAHMI VOWEL SIGN VOCALIC R
+1103F ; [.296A.0020.0002] # BRAHMI VOWEL SIGN VOCALIC RR
+11040 ; [.296B.0020.0002] # BRAHMI VOWEL SIGN VOCALIC L
+11041 ; [.296C.0020.0002] # BRAHMI VOWEL SIGN VOCALIC LL
+11042 ; [.296D.0020.0002] # BRAHMI VOWEL SIGN E
+11043 ; [.296E.0020.0002] # BRAHMI VOWEL SIGN AI
+11044 ; [.296F.0020.0002] # BRAHMI VOWEL SIGN O
+11045 ; [.2970.0020.0002] # BRAHMI VOWEL SIGN AU
+11046 ; [.2971.0020.0002] # BRAHMI VIRAMA
+1107F ; [.2972.0020.0002] # BRAHMI NUMBER JOINER
+10A00 ; [.2973.0020.0002] # KHAROSHTHI LETTER A
+10A01 ; [.2974.0020.0002] # KHAROSHTHI VOWEL SIGN I
+10A02 ; [.2975.0020.0002] # KHAROSHTHI VOWEL SIGN U
+10A03 ; [.2976.0020.0002] # KHAROSHTHI VOWEL SIGN VOCALIC R
+10A05 ; [.2977.0020.0002] # KHAROSHTHI VOWEL SIGN E
+10A06 ; [.2978.0020.0002] # KHAROSHTHI VOWEL SIGN O
+10A0C ; [.2979.0020.0002] # KHAROSHTHI VOWEL LENGTH MARK
+10A10 ; [.297A.0020.0002] # KHAROSHTHI LETTER KA
+10A11 ; [.297B.0020.0002] # KHAROSHTHI LETTER KHA
+10A12 ; [.297C.0020.0002] # KHAROSHTHI LETTER GA
+10A13 ; [.297D.0020.0002] # KHAROSHTHI LETTER GHA
+10A15 ; [.297E.0020.0002] # KHAROSHTHI LETTER CA
+10A16 ; [.297F.0020.0002] # KHAROSHTHI LETTER CHA
+10A17 ; [.2980.0020.0002] # KHAROSHTHI LETTER JA
+10A19 ; [.2981.0020.0002] # KHAROSHTHI LETTER NYA
+10A1A ; [.2982.0020.0002] # KHAROSHTHI LETTER TTA
+10A1B ; [.2983.0020.0002] # KHAROSHTHI LETTER TTHA
+10A1C ; [.2984.0020.0002] # KHAROSHTHI LETTER DDA
+10A1D ; [.2985.0020.0002] # KHAROSHTHI LETTER DDHA
+10A1E ; [.2986.0020.0002] # KHAROSHTHI LETTER NNA
+10A1F ; [.2987.0020.0002] # KHAROSHTHI LETTER TA
+10A20 ; [.2988.0020.0002] # KHAROSHTHI LETTER THA
+10A21 ; [.2989.0020.0002] # KHAROSHTHI LETTER DA
+10A22 ; [.298A.0020.0002] # KHAROSHTHI LETTER DHA
+10A23 ; [.298B.0020.0002] # KHAROSHTHI LETTER NA
+10A24 ; [.298C.0020.0002] # KHAROSHTHI LETTER PA
+10A25 ; [.298D.0020.0002] # KHAROSHTHI LETTER PHA
+10A26 ; [.298E.0020.0002] # KHAROSHTHI LETTER BA
+10A27 ; [.298F.0020.0002] # KHAROSHTHI LETTER BHA
+10A28 ; [.2990.0020.0002] # KHAROSHTHI LETTER MA
+10A29 ; [.2991.0020.0002] # KHAROSHTHI LETTER YA
+10A2A ; [.2992.0020.0002] # KHAROSHTHI LETTER RA
+10A2B ; [.2993.0020.0002] # KHAROSHTHI LETTER LA
+10A2C ; [.2994.0020.0002] # KHAROSHTHI LETTER VA
+10A2D ; [.2995.0020.0002] # KHAROSHTHI LETTER SHA
+10A2E ; [.2996.0020.0002] # KHAROSHTHI LETTER SSA
+10A2F ; [.2997.0020.0002] # KHAROSHTHI LETTER SA
+10A30 ; [.2998.0020.0002] # KHAROSHTHI LETTER ZA
+10A31 ; [.2999.0020.0002] # KHAROSHTHI LETTER HA
+10A32 ; [.299A.0020.0002] # KHAROSHTHI LETTER KKA
+10A33 ; [.299B.0020.0002] # KHAROSHTHI LETTER TTTHA
+10A3F ; [.299C.0020.0002] # KHAROSHTHI VIRAMA
+0E01  ; [.299D.0020.0002] # THAI CHARACTER KO KAI
+0E40 0E01 ; [.299D.0020.0002][.29D7.0020.0002] # <THAI CHARACTER SARA E, THAI CHARACTER KO KAI>
+0E41 0E01 ; [.299D.0020.0002][.29D8.0020.0002] # <THAI CHARACTER SARA AE, THAI CHARACTER KO KAI>
+0E42 0E01 ; [.299D.0020.0002][.29D9.0020.0002] # <THAI CHARACTER SARA O, THAI CHARACTER KO KAI>
+0E43 0E01 ; [.299D.0020.0002][.29DA.0020.0002] # <THAI CHARACTER SARA AI MAIMUAN, THAI CHARACTER KO KAI>
+0E44 0E01 ; [.299D.0020.0002][.29DB.0020.0002] # <THAI CHARACTER SARA AI MAIMALAI, THAI CHARACTER KO KAI>
+0E02  ; [.299E.0020.0002] # THAI CHARACTER KHO KHAI
+0E40 0E02 ; [.299E.0020.0002][.29D7.0020.0002] # <THAI CHARACTER SARA E, THAI CHARACTER KHO KHAI>
+0E41 0E02 ; [.299E.0020.0002][.29D8.0020.0002] # <THAI CHARACTER SARA AE, THAI CHARACTER KHO KHAI>
+0E42 0E02 ; [.299E.0020.0002][.29D9.0020.0002] # <THAI CHARACTER SARA O, THAI CHARACTER KHO KHAI>
+0E43 0E02 ; [.299E.0020.0002][.29DA.0020.0002] # <THAI CHARACTER SARA AI MAIMUAN, THAI CHARACTER KHO KHAI>
+0E44 0E02 ; [.299E.0020.0002][.29DB.0020.0002] # <THAI CHARACTER SARA AI MAIMALAI, THAI CHARACTER KHO KHAI>
+0E03  ; [.299F.0020.0002] # THAI CHARACTER KHO KHUAT
+0E40 0E03 ; [.299F.0020.0002][.29D7.0020.0002] # <THAI CHARACTER SARA E, THAI CHARACTER KHO KHUAT>
+0E41 0E03 ; [.299F.0020.0002][.29D8.0020.0002] # <THAI CHARACTER SARA AE, THAI CHARACTER KHO KHUAT>
+0E42 0E03 ; [.299F.0020.0002][.29D9.0020.0002] # <THAI CHARACTER SARA O, THAI CHARACTER KHO KHUAT>
+0E43 0E03 ; [.299F.0020.0002][.29DA.0020.0002] # <THAI CHARACTER SARA AI MAIMUAN, THAI CHARACTER KHO KHUAT>
+0E44 0E03 ; [.299F.0020.0002][.29DB.0020.0002] # <THAI CHARACTER SARA AI MAIMALAI, THAI CHARACTER KHO KHUAT>
+0E04  ; [.29A0.0020.0002] # THAI CHARACTER KHO KHWAI
+0E40 0E04 ; [.29A0.0020.0002][.29D7.0020.0002] # <THAI CHARACTER SARA E, THAI CHARACTER KHO KHWAI>
+0E41 0E04 ; [.29A0.0020.0002][.29D8.0020.0002] # <THAI CHARACTER SARA AE, THAI CHARACTER KHO KHWAI>
+0E42 0E04 ; [.29A0.0020.0002][.29D9.0020.0002] # <THAI CHARACTER SARA O, THAI CHARACTER KHO KHWAI>
+0E43 0E04 ; [.29A0.0020.0002][.29DA.0020.0002] # <THAI CHARACTER SARA AI MAIMUAN, THAI CHARACTER KHO KHWAI>
+0E44 0E04 ; [.29A0.0020.0002][.29DB.0020.0002] # <THAI CHARACTER SARA AI MAIMALAI, THAI CHARACTER KHO KHWAI>
+0E05  ; [.29A1.0020.0002] # THAI CHARACTER KHO KHON
+0E40 0E05 ; [.29A1.0020.0002][.29D7.0020.0002] # <THAI CHARACTER SARA E, THAI CHARACTER KHO KHON>
+0E41 0E05 ; [.29A1.0020.0002][.29D8.0020.0002] # <THAI CHARACTER SARA AE, THAI CHARACTER KHO KHON>
+0E42 0E05 ; [.29A1.0020.0002][.29D9.0020.0002] # <THAI CHARACTER SARA O, THAI CHARACTER KHO KHON>
+0E43 0E05 ; [.29A1.0020.0002][.29DA.0020.0002] # <THAI CHARACTER SARA AI MAIMUAN, THAI CHARACTER KHO KHON>
+0E44 0E05 ; [.29A1.0020.0002][.29DB.0020.0002] # <THAI CHARACTER SARA AI MAIMALAI, THAI CHARACTER KHO KHON>
+0E06  ; [.29A2.0020.0002] # THAI CHARACTER KHO RAKHANG
+0E40 0E06 ; [.29A2.0020.0002][.29D7.0020.0002] # <THAI CHARACTER SARA E, THAI CHARACTER KHO RAKHANG>
+0E41 0E06 ; [.29A2.0020.0002][.29D8.0020.0002] # <THAI CHARACTER SARA AE, THAI CHARACTER KHO RAKHANG>
+0E42 0E06 ; [.29A2.0020.0002][.29D9.0020.0002] # <THAI CHARACTER SARA O, THAI CHARACTER KHO RAKHANG>
+0E43 0E06 ; [.29A2.0020.0002][.29DA.0020.0002] # <THAI CHARACTER SARA AI MAIMUAN, THAI CHARACTER KHO RAKHANG>
+0E44 0E06 ; [.29A2.0020.0002][.29DB.0020.0002] # <THAI CHARACTER SARA AI MAIMALAI, THAI CHARACTER KHO RAKHANG>
+0E07  ; [.29A3.0020.0002] # THAI CHARACTER NGO NGU
+0E40 0E07 ; [.29A3.0020.0002][.29D7.0020.0002] # <THAI CHARACTER SARA E, THAI CHARACTER NGO NGU>
+0E41 0E07 ; [.29A3.0020.0002][.29D8.0020.0002] # <THAI CHARACTER SARA AE, THAI CHARACTER NGO NGU>
+0E42 0E07 ; [.29A3.0020.0002][.29D9.0020.0002] # <THAI CHARACTER SARA O, THAI CHARACTER NGO NGU>
+0E43 0E07 ; [.29A3.0020.0002][.29DA.0020.0002] # <THAI CHARACTER SARA AI MAIMUAN, THAI CHARACTER NGO NGU>
+0E44 0E07 ; [.29A3.0020.0002][.29DB.0020.0002] # <THAI CHARACTER SARA AI MAIMALAI, THAI CHARACTER NGO NGU>
+0E08  ; [.29A4.0020.0002] # THAI CHARACTER CHO CHAN
+0E40 0E08 ; [.29A4.0020.0002][.29D7.0020.0002] # <THAI CHARACTER SARA E, THAI CHARACTER CHO CHAN>
+0E41 0E08 ; [.29A4.0020.0002][.29D8.0020.0002] # <THAI CHARACTER SARA AE, THAI CHARACTER CHO CHAN>
+0E42 0E08 ; [.29A4.0020.0002][.29D9.0020.0002] # <THAI CHARACTER SARA O, THAI CHARACTER CHO CHAN>
+0E43 0E08 ; [.29A4.0020.0002][.29DA.0020.0002] # <THAI CHARACTER SARA AI MAIMUAN, THAI CHARACTER CHO CHAN>
+0E44 0E08 ; [.29A4.0020.0002][.29DB.0020.0002] # <THAI CHARACTER SARA AI MAIMALAI, THAI CHARACTER CHO CHAN>
+0E09  ; [.29A5.0020.0002] # THAI CHARACTER CHO CHING
+0E40 0E09 ; [.29A5.0020.0002][.29D7.0020.0002] # <THAI CHARACTER SARA E, THAI CHARACTER CHO CHING>
+0E41 0E09 ; [.29A5.0020.0002][.29D8.0020.0002] # <THAI CHARACTER SARA AE, THAI CHARACTER CHO CHING>
+0E42 0E09 ; [.29A5.0020.0002][.29D9.0020.0002] # <THAI CHARACTER SARA O, THAI CHARACTER CHO CHING>
+0E43 0E09 ; [.29A5.0020.0002][.29DA.0020.0002] # <THAI CHARACTER SARA AI MAIMUAN, THAI CHARACTER CHO CHING>
+0E44 0E09 ; [.29A5.0020.0002][.29DB.0020.0002] # <THAI CHARACTER SARA AI MAIMALAI, THAI CHARACTER CHO CHING>
+0E0A  ; [.29A6.0020.0002] # THAI CHARACTER CHO CHANG
+0E40 0E0A ; [.29A6.0020.0002][.29D7.0020.0002] # <THAI CHARACTER SARA E, THAI CHARACTER CHO CHANG>
+0E41 0E0A ; [.29A6.0020.0002][.29D8.0020.0002] # <THAI CHARACTER SARA AE, THAI CHARACTER CHO CHANG>
+0E42 0E0A ; [.29A6.0020.0002][.29D9.0020.0002] # <THAI CHARACTER SARA O, THAI CHARACTER CHO CHANG>
+0E43 0E0A ; [.29A6.0020.0002][.29DA.0020.0002] # <THAI CHARACTER SARA AI MAIMUAN, THAI CHARACTER CHO CHANG>
+0E44 0E0A ; [.29A6.0020.0002][.29DB.0020.0002] # <THAI CHARACTER SARA AI MAIMALAI, THAI CHARACTER CHO CHANG>
+0E0B  ; [.29A7.0020.0002] # THAI CHARACTER SO SO
+0E40 0E0B ; [.29A7.0020.0002][.29D7.0020.0002] # <THAI CHARACTER SARA E, THAI CHARACTER SO SO>
+0E41 0E0B ; [.29A7.0020.0002][.29D8.0020.0002] # <THAI CHARACTER SARA AE, THAI CHARACTER SO SO>
+0E42 0E0B ; [.29A7.0020.0002][.29D9.0020.0002] # <THAI CHARACTER SARA O, THAI CHARACTER SO SO>
+0E43 0E0B ; [.29A7.0020.0002][.29DA.0020.0002] # <THAI CHARACTER SARA AI MAIMUAN, THAI CHARACTER SO SO>
+0E44 0E0B ; [.29A7.0020.0002][.29DB.0020.0002] # <THAI CHARACTER SARA AI MAIMALAI, THAI CHARACTER SO SO>
+0E0C  ; [.29A8.0020.0002] # THAI CHARACTER CHO CHOE
+0E40 0E0C ; [.29A8.0020.0002][.29D7.0020.0002] # <THAI CHARACTER SARA E, THAI CHARACTER CHO CHOE>
+0E41 0E0C ; [.29A8.0020.0002][.29D8.0020.0002] # <THAI CHARACTER SARA AE, THAI CHARACTER CHO CHOE>
+0E42 0E0C ; [.29A8.0020.0002][.29D9.0020.0002] # <THAI CHARACTER SARA O, THAI CHARACTER CHO CHOE>
+0E43 0E0C ; [.29A8.0020.0002][.29DA.0020.0002] # <THAI CHARACTER SARA AI MAIMUAN, THAI CHARACTER CHO CHOE>
+0E44 0E0C ; [.29A8.0020.0002][.29DB.0020.0002] # <THAI CHARACTER SARA AI MAIMALAI, THAI CHARACTER CHO CHOE>
+0E0D  ; [.29A9.0020.0002] # THAI CHARACTER YO YING
+0E40 0E0D ; [.29A9.0020.0002][.29D7.0020.0002] # <THAI CHARACTER SARA E, THAI CHARACTER YO YING>
+0E41 0E0D ; [.29A9.0020.0002][.29D8.0020.0002] # <THAI CHARACTER SARA AE, THAI CHARACTER YO YING>
+0E42 0E0D ; [.29A9.0020.0002][.29D9.0020.0002] # <THAI CHARACTER SARA O, THAI CHARACTER YO YING>
+0E43 0E0D ; [.29A9.0020.0002][.29DA.0020.0002] # <THAI CHARACTER SARA AI MAIMUAN, THAI CHARACTER YO YING>
+0E44 0E0D ; [.29A9.0020.0002][.29DB.0020.0002] # <THAI CHARACTER SARA AI MAIMALAI, THAI CHARACTER YO YING>
+0E0E  ; [.29AA.0020.0002] # THAI CHARACTER DO CHADA
+0E40 0E0E ; [.29AA.0020.0002][.29D7.0020.0002] # <THAI CHARACTER SARA E, THAI CHARACTER DO CHADA>
+0E41 0E0E ; [.29AA.0020.0002][.29D8.0020.0002] # <THAI CHARACTER SARA AE, THAI CHARACTER DO CHADA>
+0E42 0E0E ; [.29AA.0020.0002][.29D9.0020.0002] # <THAI CHARACTER SARA O, THAI CHARACTER DO CHADA>
+0E43 0E0E ; [.29AA.0020.0002][.29DA.0020.0002] # <THAI CHARACTER SARA AI MAIMUAN, THAI CHARACTER DO CHADA>
+0E44 0E0E ; [.29AA.0020.0002][.29DB.0020.0002] # <THAI CHARACTER SARA AI MAIMALAI, THAI CHARACTER DO CHADA>
+0E0F  ; [.29AB.0020.0002] # THAI CHARACTER TO PATAK
+0E40 0E0F ; [.29AB.0020.0002][.29D7.0020.0002] # <THAI CHARACTER SARA E, THAI CHARACTER TO PATAK>
+0E41 0E0F ; [.29AB.0020.0002][.29D8.0020.0002] # <THAI CHARACTER SARA AE, THAI CHARACTER TO PATAK>
+0E42 0E0F ; [.29AB.0020.0002][.29D9.0020.0002] # <THAI CHARACTER SARA O, THAI CHARACTER TO PATAK>
+0E43 0E0F ; [.29AB.0020.0002][.29DA.0020.0002] # <THAI CHARACTER SARA AI MAIMUAN, THAI CHARACTER TO PATAK>
+0E44 0E0F ; [.29AB.0020.0002][.29DB.0020.0002] # <THAI CHARACTER SARA AI MAIMALAI, THAI CHARACTER TO PATAK>
+0E10  ; [.29AC.0020.0002] # THAI CHARACTER THO THAN
+0E40 0E10 ; [.29AC.0020.0002][.29D7.0020.0002] # <THAI CHARACTER SARA E, THAI CHARACTER THO THAN>
+0E41 0E10 ; [.29AC.0020.0002][.29D8.0020.0002] # <THAI CHARACTER SARA AE, THAI CHARACTER THO THAN>
+0E42 0E10 ; [.29AC.0020.0002][.29D9.0020.0002] # <THAI CHARACTER SARA O, THAI CHARACTER THO THAN>
+0E43 0E10 ; [.29AC.0020.0002][.29DA.0020.0002] # <THAI CHARACTER SARA AI MAIMUAN, THAI CHARACTER THO THAN>
+0E44 0E10 ; [.29AC.0020.0002][.29DB.0020.0002] # <THAI CHARACTER SARA AI MAIMALAI, THAI CHARACTER THO THAN>
+0E11  ; [.29AD.0020.0002] # THAI CHARACTER THO NANGMONTHO
+0E40 0E11 ; [.29AD.0020.0002][.29D7.0020.0002] # <THAI CHARACTER SARA E, THAI CHARACTER THO NANGMONTHO>
+0E41 0E11 ; [.29AD.0020.0002][.29D8.0020.0002] # <THAI CHARACTER SARA AE, THAI CHARACTER THO NANGMONTHO>
+0E42 0E11 ; [.29AD.0020.0002][.29D9.0020.0002] # <THAI CHARACTER SARA O, THAI CHARACTER THO NANGMONTHO>
+0E43 0E11 ; [.29AD.0020.0002][.29DA.0020.0002] # <THAI CHARACTER SARA AI MAIMUAN, THAI CHARACTER THO NANGMONTHO>
+0E44 0E11 ; [.29AD.0020.0002][.29DB.0020.0002] # <THAI CHARACTER SARA AI MAIMALAI, THAI CHARACTER THO NANGMONTHO>
+0E12  ; [.29AE.0020.0002] # THAI CHARACTER THO PHUTHAO
+0E40 0E12 ; [.29AE.0020.0002][.29D7.0020.0002] # <THAI CHARACTER SARA E, THAI CHARACTER THO PHUTHAO>
+0E41 0E12 ; [.29AE.0020.0002][.29D8.0020.0002] # <THAI CHARACTER SARA AE, THAI CHARACTER THO PHUTHAO>
+0E42 0E12 ; [.29AE.0020.0002][.29D9.0020.0002] # <THAI CHARACTER SARA O, THAI CHARACTER THO PHUTHAO>
+0E43 0E12 ; [.29AE.0020.0002][.29DA.0020.0002] # <THAI CHARACTER SARA AI MAIMUAN, THAI CHARACTER THO PHUTHAO>
+0E44 0E12 ; [.29AE.0020.0002][.29DB.0020.0002] # <THAI CHARACTER SARA AI MAIMALAI, THAI CHARACTER THO PHUTHAO>
+0E13  ; [.29AF.0020.0002] # THAI CHARACTER NO NEN
+0E40 0E13 ; [.29AF.0020.0002][.29D7.0020.0002] # <THAI CHARACTER SARA E, THAI CHARACTER NO NEN>
+0E41 0E13 ; [.29AF.0020.0002][.29D8.0020.0002] # <THAI CHARACTER SARA AE, THAI CHARACTER NO NEN>
+0E42 0E13 ; [.29AF.0020.0002][.29D9.0020.0002] # <THAI CHARACTER SARA O, THAI CHARACTER NO NEN>
+0E43 0E13 ; [.29AF.0020.0002][.29DA.0020.0002] # <THAI CHARACTER SARA AI MAIMUAN, THAI CHARACTER NO NEN>
+0E44 0E13 ; [.29AF.0020.0002][.29DB.0020.0002] # <THAI CHARACTER SARA AI MAIMALAI, THAI CHARACTER NO NEN>
+0E14  ; [.29B0.0020.0002] # THAI CHARACTER DO DEK
+0E40 0E14 ; [.29B0.0020.0002][.29D7.0020.0002] # <THAI CHARACTER SARA E, THAI CHARACTER DO DEK>
+0E41 0E14 ; [.29B0.0020.0002][.29D8.0020.0002] # <THAI CHARACTER SARA AE, THAI CHARACTER DO DEK>
+0E42 0E14 ; [.29B0.0020.0002][.29D9.0020.0002] # <THAI CHARACTER SARA O, THAI CHARACTER DO DEK>
+0E43 0E14 ; [.29B0.0020.0002][.29DA.0020.0002] # <THAI CHARACTER SARA AI MAIMUAN, THAI CHARACTER DO DEK>
+0E44 0E14 ; [.29B0.0020.0002][.29DB.0020.0002] # <THAI CHARACTER SARA AI MAIMALAI, THAI CHARACTER DO DEK>
+0E15  ; [.29B1.0020.0002] # THAI CHARACTER TO TAO
+0E40 0E15 ; [.29B1.0020.0002][.29D7.0020.0002] # <THAI CHARACTER SARA E, THAI CHARACTER TO TAO>
+0E41 0E15 ; [.29B1.0020.0002][.29D8.0020.0002] # <THAI CHARACTER SARA AE, THAI CHARACTER TO TAO>
+0E42 0E15 ; [.29B1.0020.0002][.29D9.0020.0002] # <THAI CHARACTER SARA O, THAI CHARACTER TO TAO>
+0E43 0E15 ; [.29B1.0020.0002][.29DA.0020.0002] # <THAI CHARACTER SARA AI MAIMUAN, THAI CHARACTER TO TAO>
+0E44 0E15 ; [.29B1.0020.0002][.29DB.0020.0002] # <THAI CHARACTER SARA AI MAIMALAI, THAI CHARACTER TO TAO>
+0E16  ; [.29B2.0020.0002] # THAI CHARACTER THO THUNG
+0E40 0E16 ; [.29B2.0020.0002][.29D7.0020.0002] # <THAI CHARACTER SARA E, THAI CHARACTER THO THUNG>
+0E41 0E16 ; [.29B2.0020.0002][.29D8.0020.0002] # <THAI CHARACTER SARA AE, THAI CHARACTER THO THUNG>
+0E42 0E16 ; [.29B2.0020.0002][.29D9.0020.0002] # <THAI CHARACTER SARA O, THAI CHARACTER THO THUNG>
+0E43 0E16 ; [.29B2.0020.0002][.29DA.0020.0002] # <THAI CHARACTER SARA AI MAIMUAN, THAI CHARACTER THO THUNG>
+0E44 0E16 ; [.29B2.0020.0002][.29DB.0020.0002] # <THAI CHARACTER SARA AI MAIMALAI, THAI CHARACTER THO THUNG>
+0E17  ; [.29B3.0020.0002] # THAI CHARACTER THO THAHAN
+0E40 0E17 ; [.29B3.0020.0002][.29D7.0020.0002] # <THAI CHARACTER SARA E, THAI CHARACTER THO THAHAN>
+0E41 0E17 ; [.29B3.0020.0002][.29D8.0020.0002] # <THAI CHARACTER SARA AE, THAI CHARACTER THO THAHAN>
+0E42 0E17 ; [.29B3.0020.0002][.29D9.0020.0002] # <THAI CHARACTER SARA O, THAI CHARACTER THO THAHAN>
+0E43 0E17 ; [.29B3.0020.0002][.29DA.0020.0002] # <THAI CHARACTER SARA AI MAIMUAN, THAI CHARACTER THO THAHAN>
+0E44 0E17 ; [.29B3.0020.0002][.29DB.0020.0002] # <THAI CHARACTER SARA AI MAIMALAI, THAI CHARACTER THO THAHAN>
+0E18  ; [.29B4.0020.0002] # THAI CHARACTER THO THONG
+0E40 0E18 ; [.29B4.0020.0002][.29D7.0020.0002] # <THAI CHARACTER SARA E, THAI CHARACTER THO THONG>
+0E41 0E18 ; [.29B4.0020.0002][.29D8.0020.0002] # <THAI CHARACTER SARA AE, THAI CHARACTER THO THONG>
+0E42 0E18 ; [.29B4.0020.0002][.29D9.0020.0002] # <THAI CHARACTER SARA O, THAI CHARACTER THO THONG>
+0E43 0E18 ; [.29B4.0020.0002][.29DA.0020.0002] # <THAI CHARACTER SARA AI MAIMUAN, THAI CHARACTER THO THONG>
+0E44 0E18 ; [.29B4.0020.0002][.29DB.0020.0002] # <THAI CHARACTER SARA AI MAIMALAI, THAI CHARACTER THO THONG>
+0E19  ; [.29B5.0020.0002] # THAI CHARACTER NO NU
+0E40 0E19 ; [.29B5.0020.0002][.29D7.0020.0002] # <THAI CHARACTER SARA E, THAI CHARACTER NO NU>
+0E41 0E19 ; [.29B5.0020.0002][.29D8.0020.0002] # <THAI CHARACTER SARA AE, THAI CHARACTER NO NU>
+0E42 0E19 ; [.29B5.0020.0002][.29D9.0020.0002] # <THAI CHARACTER SARA O, THAI CHARACTER NO NU>
+0E43 0E19 ; [.29B5.0020.0002][.29DA.0020.0002] # <THAI CHARACTER SARA AI MAIMUAN, THAI CHARACTER NO NU>
+0E44 0E19 ; [.29B5.0020.0002][.29DB.0020.0002] # <THAI CHARACTER SARA AI MAIMALAI, THAI CHARACTER NO NU>
+0E1A  ; [.29B6.0020.0002] # THAI CHARACTER BO BAIMAI
+0E40 0E1A ; [.29B6.0020.0002][.29D7.0020.0002] # <THAI CHARACTER SARA E, THAI CHARACTER BO BAIMAI>
+0E41 0E1A ; [.29B6.0020.0002][.29D8.0020.0002] # <THAI CHARACTER SARA AE, THAI CHARACTER BO BAIMAI>
+0E42 0E1A ; [.29B6.0020.0002][.29D9.0020.0002] # <THAI CHARACTER SARA O, THAI CHARACTER BO BAIMAI>
+0E43 0E1A ; [.29B6.0020.0002][.29DA.0020.0002] # <THAI CHARACTER SARA AI MAIMUAN, THAI CHARACTER BO BAIMAI>
+0E44 0E1A ; [.29B6.0020.0002][.29DB.0020.0002] # <THAI CHARACTER SARA AI MAIMALAI, THAI CHARACTER BO BAIMAI>
+0E1B  ; [.29B7.0020.0002] # THAI CHARACTER PO PLA
+0E40 0E1B ; [.29B7.0020.0002][.29D7.0020.0002] # <THAI CHARACTER SARA E, THAI CHARACTER PO PLA>
+0E41 0E1B ; [.29B7.0020.0002][.29D8.0020.0002] # <THAI CHARACTER SARA AE, THAI CHARACTER PO PLA>
+0E42 0E1B ; [.29B7.0020.0002][.29D9.0020.0002] # <THAI CHARACTER SARA O, THAI CHARACTER PO PLA>
+0E43 0E1B ; [.29B7.0020.0002][.29DA.0020.0002] # <THAI CHARACTER SARA AI MAIMUAN, THAI CHARACTER PO PLA>
+0E44 0E1B ; [.29B7.0020.0002][.29DB.0020.0002] # <THAI CHARACTER SARA AI MAIMALAI, THAI CHARACTER PO PLA>
+0E1C  ; [.29B8.0020.0002] # THAI CHARACTER PHO PHUNG
+0E40 0E1C ; [.29B8.0020.0002][.29D7.0020.0002] # <THAI CHARACTER SARA E, THAI CHARACTER PHO PHUNG>
+0E41 0E1C ; [.29B8.0020.0002][.29D8.0020.0002] # <THAI CHARACTER SARA AE, THAI CHARACTER PHO PHUNG>
+0E42 0E1C ; [.29B8.0020.0002][.29D9.0020.0002] # <THAI CHARACTER SARA O, THAI CHARACTER PHO PHUNG>
+0E43 0E1C ; [.29B8.0020.0002][.29DA.0020.0002] # <THAI CHARACTER SARA AI MAIMUAN, THAI CHARACTER PHO PHUNG>
+0E44 0E1C ; [.29B8.0020.0002][.29DB.0020.0002] # <THAI CHARACTER SARA AI MAIMALAI, THAI CHARACTER PHO PHUNG>
+0E1D  ; [.29B9.0020.0002] # THAI CHARACTER FO FA
+0E40 0E1D ; [.29B9.0020.0002][.29D7.0020.0002] # <THAI CHARACTER SARA E, THAI CHARACTER FO FA>
+0E41 0E1D ; [.29B9.0020.0002][.29D8.0020.0002] # <THAI CHARACTER SARA AE, THAI CHARACTER FO FA>
+0E42 0E1D ; [.29B9.0020.0002][.29D9.0020.0002] # <THAI CHARACTER SARA O, THAI CHARACTER FO FA>
+0E43 0E1D ; [.29B9.0020.0002][.29DA.0020.0002] # <THAI CHARACTER SARA AI MAIMUAN, THAI CHARACTER FO FA>
+0E44 0E1D ; [.29B9.0020.0002][.29DB.0020.0002] # <THAI CHARACTER SARA AI MAIMALAI, THAI CHARACTER FO FA>
+0E1E  ; [.29BA.0020.0002] # THAI CHARACTER PHO PHAN
+0E40 0E1E ; [.29BA.0020.0002][.29D7.0020.0002] # <THAI CHARACTER SARA E, THAI CHARACTER PHO PHAN>
+0E41 0E1E ; [.29BA.0020.0002][.29D8.0020.0002] # <THAI CHARACTER SARA AE, THAI CHARACTER PHO PHAN>
+0E42 0E1E ; [.29BA.0020.0002][.29D9.0020.0002] # <THAI CHARACTER SARA O, THAI CHARACTER PHO PHAN>
+0E43 0E1E ; [.29BA.0020.0002][.29DA.0020.0002] # <THAI CHARACTER SARA AI MAIMUAN, THAI CHARACTER PHO PHAN>
+0E44 0E1E ; [.29BA.0020.0002][.29DB.0020.0002] # <THAI CHARACTER SARA AI MAIMALAI, THAI CHARACTER PHO PHAN>
+0E1F  ; [.29BB.0020.0002] # THAI CHARACTER FO FAN
+0E40 0E1F ; [.29BB.0020.0002][.29D7.0020.0002] # <THAI CHARACTER SARA E, THAI CHARACTER FO FAN>
+0E41 0E1F ; [.29BB.0020.0002][.29D8.0020.0002] # <THAI CHARACTER SARA AE, THAI CHARACTER FO FAN>
+0E42 0E1F ; [.29BB.0020.0002][.29D9.0020.0002] # <THAI CHARACTER SARA O, THAI CHARACTER FO FAN>
+0E43 0E1F ; [.29BB.0020.0002][.29DA.0020.0002] # <THAI CHARACTER SARA AI MAIMUAN, THAI CHARACTER FO FAN>
+0E44 0E1F ; [.29BB.0020.0002][.29DB.0020.0002] # <THAI CHARACTER SARA AI MAIMALAI, THAI CHARACTER FO FAN>
+0E20  ; [.29BC.0020.0002] # THAI CHARACTER PHO SAMPHAO
+0E40 0E20 ; [.29BC.0020.0002][.29D7.0020.0002] # <THAI CHARACTER SARA E, THAI CHARACTER PHO SAMPHAO>
+0E41 0E20 ; [.29BC.0020.0002][.29D8.0020.0002] # <THAI CHARACTER SARA AE, THAI CHARACTER PHO SAMPHAO>
+0E42 0E20 ; [.29BC.0020.0002][.29D9.0020.0002] # <THAI CHARACTER SARA O, THAI CHARACTER PHO SAMPHAO>
+0E43 0E20 ; [.29BC.0020.0002][.29DA.0020.0002] # <THAI CHARACTER SARA AI MAIMUAN, THAI CHARACTER PHO SAMPHAO>
+0E44 0E20 ; [.29BC.0020.0002][.29DB.0020.0002] # <THAI CHARACTER SARA AI MAIMALAI, THAI CHARACTER PHO SAMPHAO>
+0E21  ; [.29BD.0020.0002] # THAI CHARACTER MO MA
+0E40 0E21 ; [.29BD.0020.0002][.29D7.0020.0002] # <THAI CHARACTER SARA E, THAI CHARACTER MO MA>
+0E41 0E21 ; [.29BD.0020.0002][.29D8.0020.0002] # <THAI CHARACTER SARA AE, THAI CHARACTER MO MA>
+0E42 0E21 ; [.29BD.0020.0002][.29D9.0020.0002] # <THAI CHARACTER SARA O, THAI CHARACTER MO MA>
+0E43 0E21 ; [.29BD.0020.0002][.29DA.0020.0002] # <THAI CHARACTER SARA AI MAIMUAN, THAI CHARACTER MO MA>
+0E44 0E21 ; [.29BD.0020.0002][.29DB.0020.0002] # <THAI CHARACTER SARA AI MAIMALAI, THAI CHARACTER MO MA>
+0E22  ; [.29BE.0020.0002] # THAI CHARACTER YO YAK
+0E40 0E22 ; [.29BE.0020.0002][.29D7.0020.0002] # <THAI CHARACTER SARA E, THAI CHARACTER YO YAK>
+0E41 0E22 ; [.29BE.0020.0002][.29D8.0020.0002] # <THAI CHARACTER SARA AE, THAI CHARACTER YO YAK>
+0E42 0E22 ; [.29BE.0020.0002][.29D9.0020.0002] # <THAI CHARACTER SARA O, THAI CHARACTER YO YAK>
+0E43 0E22 ; [.29BE.0020.0002][.29DA.0020.0002] # <THAI CHARACTER SARA AI MAIMUAN, THAI CHARACTER YO YAK>
+0E44 0E22 ; [.29BE.0020.0002][.29DB.0020.0002] # <THAI CHARACTER SARA AI MAIMALAI, THAI CHARACTER YO YAK>
+0E23  ; [.29BF.0020.0002] # THAI CHARACTER RO RUA
+0E40 0E23 ; [.29BF.0020.0002][.29D7.0020.0002] # <THAI CHARACTER SARA E, THAI CHARACTER RO RUA>
+0E41 0E23 ; [.29BF.0020.0002][.29D8.0020.0002] # <THAI CHARACTER SARA AE, THAI CHARACTER RO RUA>
+0E42 0E23 ; [.29BF.0020.0002][.29D9.0020.0002] # <THAI CHARACTER SARA O, THAI CHARACTER RO RUA>
+0E43 0E23 ; [.29BF.0020.0002][.29DA.0020.0002] # <THAI CHARACTER SARA AI MAIMUAN, THAI CHARACTER RO RUA>
+0E44 0E23 ; [.29BF.0020.0002][.29DB.0020.0002] # <THAI CHARACTER SARA AI MAIMALAI, THAI CHARACTER RO RUA>
+0E24  ; [.29C0.0020.0002] # THAI CHARACTER RU
+0E40 0E24 ; [.29C0.0020.0002][.29D7.0020.0002] # <THAI CHARACTER SARA E, THAI CHARACTER RU>
+0E41 0E24 ; [.29C0.0020.0002][.29D8.0020.0002] # <THAI CHARACTER SARA AE, THAI CHARACTER RU>
+0E42 0E24 ; [.29C0.0020.0002][.29D9.0020.0002] # <THAI CHARACTER SARA O, THAI CHARACTER RU>
+0E43 0E24 ; [.29C0.0020.0002][.29DA.0020.0002] # <THAI CHARACTER SARA AI MAIMUAN, THAI CHARACTER RU>
+0E44 0E24 ; [.29C0.0020.0002][.29DB.0020.0002] # <THAI CHARACTER SARA AI MAIMALAI, THAI CHARACTER RU>
+0E25  ; [.29C1.0020.0002] # THAI CHARACTER LO LING
+0E40 0E25 ; [.29C1.0020.0002][.29D7.0020.0002] # <THAI CHARACTER SARA E, THAI CHARACTER LO LING>
+0E41 0E25 ; [.29C1.0020.0002][.29D8.0020.0002] # <THAI CHARACTER SARA AE, THAI CHARACTER LO LING>
+0E42 0E25 ; [.29C1.0020.0002][.29D9.0020.0002] # <THAI CHARACTER SARA O, THAI CHARACTER LO LING>
+0E43 0E25 ; [.29C1.0020.0002][.29DA.0020.0002] # <THAI CHARACTER SARA AI MAIMUAN, THAI CHARACTER LO LING>
+0E44 0E25 ; [.29C1.0020.0002][.29DB.0020.0002] # <THAI CHARACTER SARA AI MAIMALAI, THAI CHARACTER LO LING>
+0E26  ; [.29C2.0020.0002] # THAI CHARACTER LU
+0E40 0E26 ; [.29C2.0020.0002][.29D7.0020.0002] # <THAI CHARACTER SARA E, THAI CHARACTER LU>
+0E41 0E26 ; [.29C2.0020.0002][.29D8.0020.0002] # <THAI CHARACTER SARA AE, THAI CHARACTER LU>
+0E42 0E26 ; [.29C2.0020.0002][.29D9.0020.0002] # <THAI CHARACTER SARA O, THAI CHARACTER LU>
+0E43 0E26 ; [.29C2.0020.0002][.29DA.0020.0002] # <THAI CHARACTER SARA AI MAIMUAN, THAI CHARACTER LU>
+0E44 0E26 ; [.29C2.0020.0002][.29DB.0020.0002] # <THAI CHARACTER SARA AI MAIMALAI, THAI CHARACTER LU>
+0E27  ; [.29C3.0020.0002] # THAI CHARACTER WO WAEN
+0E40 0E27 ; [.29C3.0020.0002][.29D7.0020.0002] # <THAI CHARACTER SARA E, THAI CHARACTER WO WAEN>
+0E41 0E27 ; [.29C3.0020.0002][.29D8.0020.0002] # <THAI CHARACTER SARA AE, THAI CHARACTER WO WAEN>
+0E42 0E27 ; [.29C3.0020.0002][.29D9.0020.0002] # <THAI CHARACTER SARA O, THAI CHARACTER WO WAEN>
+0E43 0E27 ; [.29C3.0020.0002][.29DA.0020.0002] # <THAI CHARACTER SARA AI MAIMUAN, THAI CHARACTER WO WAEN>
+0E44 0E27 ; [.29C3.0020.0002][.29DB.0020.0002] # <THAI CHARACTER SARA AI MAIMALAI, THAI CHARACTER WO WAEN>
+0E28  ; [.29C4.0020.0002] # THAI CHARACTER SO SALA
+0E40 0E28 ; [.29C4.0020.0002][.29D7.0020.0002] # <THAI CHARACTER SARA E, THAI CHARACTER SO SALA>
+0E41 0E28 ; [.29C4.0020.0002][.29D8.0020.0002] # <THAI CHARACTER SARA AE, THAI CHARACTER SO SALA>
+0E42 0E28 ; [.29C4.0020.0002][.29D9.0020.0002] # <THAI CHARACTER SARA O, THAI CHARACTER SO SALA>
+0E43 0E28 ; [.29C4.0020.0002][.29DA.0020.0002] # <THAI CHARACTER SARA AI MAIMUAN, THAI CHARACTER SO SALA>
+0E44 0E28 ; [.29C4.0020.0002][.29DB.0020.0002] # <THAI CHARACTER SARA AI MAIMALAI, THAI CHARACTER SO SALA>
+0E29  ; [.29C5.0020.0002] # THAI CHARACTER SO RUSI
+0E40 0E29 ; [.29C5.0020.0002][.29D7.0020.0002] # <THAI CHARACTER SARA E, THAI CHARACTER SO RUSI>
+0E41 0E29 ; [.29C5.0020.0002][.29D8.0020.0002] # <THAI CHARACTER SARA AE, THAI CHARACTER SO RUSI>
+0E42 0E29 ; [.29C5.0020.0002][.29D9.0020.0002] # <THAI CHARACTER SARA O, THAI CHARACTER SO RUSI>
+0E43 0E29 ; [.29C5.0020.0002][.29DA.0020.0002] # <THAI CHARACTER SARA AI MAIMUAN, THAI CHARACTER SO RUSI>
+0E44 0E29 ; [.29C5.0020.0002][.29DB.0020.0002] # <THAI CHARACTER SARA AI MAIMALAI, THAI CHARACTER SO RUSI>
+0E2A  ; [.29C6.0020.0002] # THAI CHARACTER SO SUA
+0E40 0E2A ; [.29C6.0020.0002][.29D7.0020.0002] # <THAI CHARACTER SARA E, THAI CHARACTER SO SUA>
+0E41 0E2A ; [.29C6.0020.0002][.29D8.0020.0002] # <THAI CHARACTER SARA AE, THAI CHARACTER SO SUA>
+0E42 0E2A ; [.29C6.0020.0002][.29D9.0020.0002] # <THAI CHARACTER SARA O, THAI CHARACTER SO SUA>
+0E43 0E2A ; [.29C6.0020.0002][.29DA.0020.0002] # <THAI CHARACTER SARA AI MAIMUAN, THAI CHARACTER SO SUA>
+0E44 0E2A ; [.29C6.0020.0002][.29DB.0020.0002] # <THAI CHARACTER SARA AI MAIMALAI, THAI CHARACTER SO SUA>
+0E2B  ; [.29C7.0020.0002] # THAI CHARACTER HO HIP
+0E40 0E2B ; [.29C7.0020.0002][.29D7.0020.0002] # <THAI CHARACTER SARA E, THAI CHARACTER HO HIP>
+0E41 0E2B ; [.29C7.0020.0002][.29D8.0020.0002] # <THAI CHARACTER SARA AE, THAI CHARACTER HO HIP>
+0E42 0E2B ; [.29C7.0020.0002][.29D9.0020.0002] # <THAI CHARACTER SARA O, THAI CHARACTER HO HIP>
+0E43 0E2B ; [.29C7.0020.0002][.29DA.0020.0002] # <THAI CHARACTER SARA AI MAIMUAN, THAI CHARACTER HO HIP>
+0E44 0E2B ; [.29C7.0020.0002][.29DB.0020.0002] # <THAI CHARACTER SARA AI MAIMALAI, THAI CHARACTER HO HIP>
+0E2C  ; [.29C8.0020.0002] # THAI CHARACTER LO CHULA
+0E40 0E2C ; [.29C8.0020.0002][.29D7.0020.0002] # <THAI CHARACTER SARA E, THAI CHARACTER LO CHULA>
+0E41 0E2C ; [.29C8.0020.0002][.29D8.0020.0002] # <THAI CHARACTER SARA AE, THAI CHARACTER LO CHULA>
+0E42 0E2C ; [.29C8.0020.0002][.29D9.0020.0002] # <THAI CHARACTER SARA O, THAI CHARACTER LO CHULA>
+0E43 0E2C ; [.29C8.0020.0002][.29DA.0020.0002] # <THAI CHARACTER SARA AI MAIMUAN, THAI CHARACTER LO CHULA>
+0E44 0E2C ; [.29C8.0020.0002][.29DB.0020.0002] # <THAI CHARACTER SARA AI MAIMALAI, THAI CHARACTER LO CHULA>
+0E2D  ; [.29C9.0020.0002] # THAI CHARACTER O ANG
+0E40 0E2D ; [.29C9.0020.0002][.29D7.0020.0002] # <THAI CHARACTER SARA E, THAI CHARACTER O ANG>
+0E41 0E2D ; [.29C9.0020.0002][.29D8.0020.0002] # <THAI CHARACTER SARA AE, THAI CHARACTER O ANG>
+0E42 0E2D ; [.29C9.0020.0002][.29D9.0020.0002] # <THAI CHARACTER SARA O, THAI CHARACTER O ANG>
+0E43 0E2D ; [.29C9.0020.0002][.29DA.0020.0002] # <THAI CHARACTER SARA AI MAIMUAN, THAI CHARACTER O ANG>
+0E44 0E2D ; [.29C9.0020.0002][.29DB.0020.0002] # <THAI CHARACTER SARA AI MAIMALAI, THAI CHARACTER O ANG>
+0E2E  ; [.29CA.0020.0002] # THAI CHARACTER HO NOKHUK
+0E40 0E2E ; [.29CA.0020.0002][.29D7.0020.0002] # <THAI CHARACTER SARA E, THAI CHARACTER HO NOKHUK>
+0E41 0E2E ; [.29CA.0020.0002][.29D8.0020.0002] # <THAI CHARACTER SARA AE, THAI CHARACTER HO NOKHUK>
+0E42 0E2E ; [.29CA.0020.0002][.29D9.0020.0002] # <THAI CHARACTER SARA O, THAI CHARACTER HO NOKHUK>
+0E43 0E2E ; [.29CA.0020.0002][.29DA.0020.0002] # <THAI CHARACTER SARA AI MAIMUAN, THAI CHARACTER HO NOKHUK>
+0E44 0E2E ; [.29CA.0020.0002][.29DB.0020.0002] # <THAI CHARACTER SARA AI MAIMALAI, THAI CHARACTER HO NOKHUK>
+0E2F  ; [.29CB.0020.0002] # THAI CHARACTER PAIYANNOI
+0E30  ; [.29CC.0020.0002] # THAI CHARACTER SARA A
+0E31  ; [.29CD.0020.0002] # THAI CHARACTER MAI HAN-AKAT
+0E32  ; [.29CE.0020.0002] # THAI CHARACTER SARA AA
+0E33  ; [.29CF.0020.0002] # THAI CHARACTER SARA AM
+0E4D 0E32 ; [.29CF.0020.0002] # THAI CHARACTER SARA AM
+0E34  ; [.29D0.0020.0002] # THAI CHARACTER SARA I
+0E35  ; [.29D1.0020.0002] # THAI CHARACTER SARA II
+0E36  ; [.29D2.0020.0002] # THAI CHARACTER SARA UE
+0E37  ; [.29D3.0020.0002] # THAI CHARACTER SARA UEE
+0E38  ; [.29D4.0020.0002] # THAI CHARACTER SARA U
+0E39  ; [.29D5.0020.0002] # THAI CHARACTER SARA UU
+0E3A  ; [.29D6.0020.0002] # THAI CHARACTER PHINTHU
+0E40  ; [.29D7.0020.0002] # THAI CHARACTER SARA E
+0E41  ; [.29D8.0020.0002] # THAI CHARACTER SARA AE
+0E42  ; [.29D9.0020.0002] # THAI CHARACTER SARA O
+0E43  ; [.29DA.0020.0002] # THAI CHARACTER SARA AI MAIMUAN
+0E44  ; [.29DB.0020.0002] # THAI CHARACTER SARA AI MAIMALAI
+0E45  ; [.29DC.0020.0002] # THAI CHARACTER LAKKHANGYAO
+0EDE  ; [.29DD.0020.0002] # LAO LETTER KHMU GO
+0EC0 0EDE ; [.29DD.0020.0002][.2A08.0020.0002] # <LAO VOWEL SIGN E, LAO LETTER KHMU GO>
+0EC1 0EDE ; [.29DD.0020.0002][.2A09.0020.0002] # <LAO VOWEL SIGN EI, LAO LETTER KHMU GO>
+0EC2 0EDE ; [.29DD.0020.0002][.2A0A.0020.0002] # <LAO VOWEL SIGN O, LAO LETTER KHMU GO>
+0EC3 0EDE ; [.29DD.0020.0002][.2A0B.0020.0002] # <LAO VOWEL SIGN AY, LAO LETTER KHMU GO>
+0EC4 0EDE ; [.29DD.0020.0002][.2A0C.0020.0002] # <LAO VOWEL SIGN AI, LAO LETTER KHMU GO>
+0E81  ; [.29DE.0020.0002] # LAO LETTER KO
+0EC0 0E81 ; [.29DE.0020.0002][.2A08.0020.0002] # <LAO VOWEL SIGN E, LAO LETTER KO>
+0EC1 0E81 ; [.29DE.0020.0002][.2A09.0020.0002] # <LAO VOWEL SIGN EI, LAO LETTER KO>
+0EC2 0E81 ; [.29DE.0020.0002][.2A0A.0020.0002] # <LAO VOWEL SIGN O, LAO LETTER KO>
+0EC3 0E81 ; [.29DE.0020.0002][.2A0B.0020.0002] # <LAO VOWEL SIGN AY, LAO LETTER KO>
+0EC4 0E81 ; [.29DE.0020.0002][.2A0C.0020.0002] # <LAO VOWEL SIGN AI, LAO LETTER KO>
+0E82  ; [.29DF.0020.0002] # LAO LETTER KHO SUNG
+0EC0 0E82 ; [.29DF.0020.0002][.2A08.0020.0002] # <LAO VOWEL SIGN E, LAO LETTER KHO SUNG>
+0EC1 0E82 ; [.29DF.0020.0002][.2A09.0020.0002] # <LAO VOWEL SIGN EI, LAO LETTER KHO SUNG>
+0EC2 0E82 ; [.29DF.0020.0002][.2A0A.0020.0002] # <LAO VOWEL SIGN O, LAO LETTER KHO SUNG>
+0EC3 0E82 ; [.29DF.0020.0002][.2A0B.0020.0002] # <LAO VOWEL SIGN AY, LAO LETTER KHO SUNG>
+0EC4 0E82 ; [.29DF.0020.0002][.2A0C.0020.0002] # <LAO VOWEL SIGN AI, LAO LETTER KHO SUNG>
+0E84  ; [.29E0.0020.0002] # LAO LETTER KHO TAM
+0EC0 0E84 ; [.29E0.0020.0002][.2A08.0020.0002] # <LAO VOWEL SIGN E, LAO LETTER KHO TAM>
+0EC1 0E84 ; [.29E0.0020.0002][.2A09.0020.0002] # <LAO VOWEL SIGN EI, LAO LETTER KHO TAM>
+0EC2 0E84 ; [.29E0.0020.0002][.2A0A.0020.0002] # <LAO VOWEL SIGN O, LAO LETTER KHO TAM>
+0EC3 0E84 ; [.29E0.0020.0002][.2A0B.0020.0002] # <LAO VOWEL SIGN AY, LAO LETTER KHO TAM>
+0EC4 0E84 ; [.29E0.0020.0002][.2A0C.0020.0002] # <LAO VOWEL SIGN AI, LAO LETTER KHO TAM>
+0E87  ; [.29E1.0020.0002] # LAO LETTER NGO
+0EC0 0E87 ; [.29E1.0020.0002][.2A08.0020.0002] # <LAO VOWEL SIGN E, LAO LETTER NGO>
+0EC1 0E87 ; [.29E1.0020.0002][.2A09.0020.0002] # <LAO VOWEL SIGN EI, LAO LETTER NGO>
+0EC2 0E87 ; [.29E1.0020.0002][.2A0A.0020.0002] # <LAO VOWEL SIGN O, LAO LETTER NGO>
+0EC3 0E87 ; [.29E1.0020.0002][.2A0B.0020.0002] # <LAO VOWEL SIGN AY, LAO LETTER NGO>
+0EC4 0E87 ; [.29E1.0020.0002][.2A0C.0020.0002] # <LAO VOWEL SIGN AI, LAO LETTER NGO>
+0E88  ; [.29E2.0020.0002] # LAO LETTER CO
+0EC0 0E88 ; [.29E2.0020.0002][.2A08.0020.0002] # <LAO VOWEL SIGN E, LAO LETTER CO>
+0EC1 0E88 ; [.29E2.0020.0002][.2A09.0020.0002] # <LAO VOWEL SIGN EI, LAO LETTER CO>
+0EC2 0E88 ; [.29E2.0020.0002][.2A0A.0020.0002] # <LAO VOWEL SIGN O, LAO LETTER CO>
+0EC3 0E88 ; [.29E2.0020.0002][.2A0B.0020.0002] # <LAO VOWEL SIGN AY, LAO LETTER CO>
+0EC4 0E88 ; [.29E2.0020.0002][.2A0C.0020.0002] # <LAO VOWEL SIGN AI, LAO LETTER CO>
+0EAA  ; [.29E3.0020.0002] # LAO LETTER SO SUNG
+0EC0 0EAA ; [.29E3.0020.0002][.2A08.0020.0002] # <LAO VOWEL SIGN E, LAO LETTER SO SUNG>
+0EC1 0EAA ; [.29E3.0020.0002][.2A09.0020.0002] # <LAO VOWEL SIGN EI, LAO LETTER SO SUNG>
+0EC2 0EAA ; [.29E3.0020.0002][.2A0A.0020.0002] # <LAO VOWEL SIGN O, LAO LETTER SO SUNG>
+0EC3 0EAA ; [.29E3.0020.0002][.2A0B.0020.0002] # <LAO VOWEL SIGN AY, LAO LETTER SO SUNG>
+0EC4 0EAA ; [.29E3.0020.0002][.2A0C.0020.0002] # <LAO VOWEL SIGN AI, LAO LETTER SO SUNG>
+0E8A  ; [.29E4.0020.0002] # LAO LETTER SO TAM
+0EC0 0E8A ; [.29E4.0020.0002][.2A08.0020.0002] # <LAO VOWEL SIGN E, LAO LETTER SO TAM>
+0EC1 0E8A ; [.29E4.0020.0002][.2A09.0020.0002] # <LAO VOWEL SIGN EI, LAO LETTER SO TAM>
+0EC2 0E8A ; [.29E4.0020.0002][.2A0A.0020.0002] # <LAO VOWEL SIGN O, LAO LETTER SO TAM>
+0EC3 0E8A ; [.29E4.0020.0002][.2A0B.0020.0002] # <LAO VOWEL SIGN AY, LAO LETTER SO TAM>
+0EC4 0E8A ; [.29E4.0020.0002][.2A0C.0020.0002] # <LAO VOWEL SIGN AI, LAO LETTER SO TAM>
+0EDF  ; [.29E5.0020.0002] # LAO LETTER KHMU NYO
+0EC0 0EDF ; [.29E5.0020.0002][.2A08.0020.0002] # <LAO VOWEL SIGN E, LAO LETTER KHMU NYO>
+0EC1 0EDF ; [.29E5.0020.0002][.2A09.0020.0002] # <LAO VOWEL SIGN EI, LAO LETTER KHMU NYO>
+0EC2 0EDF ; [.29E5.0020.0002][.2A0A.0020.0002] # <LAO VOWEL SIGN O, LAO LETTER KHMU NYO>
+0EC3 0EDF ; [.29E5.0020.0002][.2A0B.0020.0002] # <LAO VOWEL SIGN AY, LAO LETTER KHMU NYO>
+0EC4 0EDF ; [.29E5.0020.0002][.2A0C.0020.0002] # <LAO VOWEL SIGN AI, LAO LETTER KHMU NYO>
+0E8D  ; [.29E6.0020.0002] # LAO LETTER NYO
+0EC0 0E8D ; [.29E6.0020.0002][.2A08.0020.0002] # <LAO VOWEL SIGN E, LAO LETTER NYO>
+0EC1 0E8D ; [.29E6.0020.0002][.2A09.0020.0002] # <LAO VOWEL SIGN EI, LAO LETTER NYO>
+0EC2 0E8D ; [.29E6.0020.0002][.2A0A.0020.0002] # <LAO VOWEL SIGN O, LAO LETTER NYO>
+0EC3 0E8D ; [.29E6.0020.0002][.2A0B.0020.0002] # <LAO VOWEL SIGN AY, LAO LETTER NYO>
+0EC4 0E8D ; [.29E6.0020.0002][.2A0C.0020.0002] # <LAO VOWEL SIGN AI, LAO LETTER NYO>
+0E94  ; [.29E7.0020.0002] # LAO LETTER DO
+0EC0 0E94 ; [.29E7.0020.0002][.2A08.0020.0002] # <LAO VOWEL SIGN E, LAO LETTER DO>
+0EC1 0E94 ; [.29E7.0020.0002][.2A09.0020.0002] # <LAO VOWEL SIGN EI, LAO LETTER DO>
+0EC2 0E94 ; [.29E7.0020.0002][.2A0A.0020.0002] # <LAO VOWEL SIGN O, LAO LETTER DO>
+0EC3 0E94 ; [.29E7.0020.0002][.2A0B.0020.0002] # <LAO VOWEL SIGN AY, LAO LETTER DO>
+0EC4 0E94 ; [.29E7.0020.0002][.2A0C.0020.0002] # <LAO VOWEL SIGN AI, LAO LETTER DO>
+0E95  ; [.29E8.0020.0002] # LAO LETTER TO
+0EC0 0E95 ; [.29E8.0020.0002][.2A08.0020.0002] # <LAO VOWEL SIGN E, LAO LETTER TO>
+0EC1 0E95 ; [.29E8.0020.0002][.2A09.0020.0002] # <LAO VOWEL SIGN EI, LAO LETTER TO>
+0EC2 0E95 ; [.29E8.0020.0002][.2A0A.0020.0002] # <LAO VOWEL SIGN O, LAO LETTER TO>
+0EC3 0E95 ; [.29E8.0020.0002][.2A0B.0020.0002] # <LAO VOWEL SIGN AY, LAO LETTER TO>
+0EC4 0E95 ; [.29E8.0020.0002][.2A0C.0020.0002] # <LAO VOWEL SIGN AI, LAO LETTER TO>
+0E96  ; [.29E9.0020.0002] # LAO LETTER THO SUNG
+0EC0 0E96 ; [.29E9.0020.0002][.2A08.0020.0002] # <LAO VOWEL SIGN E, LAO LETTER THO SUNG>
+0EC1 0E96 ; [.29E9.0020.0002][.2A09.0020.0002] # <LAO VOWEL SIGN EI, LAO LETTER THO SUNG>
+0EC2 0E96 ; [.29E9.0020.0002][.2A0A.0020.0002] # <LAO VOWEL SIGN O, LAO LETTER THO SUNG>
+0EC3 0E96 ; [.29E9.0020.0002][.2A0B.0020.0002] # <LAO VOWEL SIGN AY, LAO LETTER THO SUNG>
+0EC4 0E96 ; [.29E9.0020.0002][.2A0C.0020.0002] # <LAO VOWEL SIGN AI, LAO LETTER THO SUNG>
+0E97  ; [.29EA.0020.0002] # LAO LETTER THO TAM
+0EC0 0E97 ; [.29EA.0020.0002][.2A08.0020.0002] # <LAO VOWEL SIGN E, LAO LETTER THO TAM>
+0EC1 0E97 ; [.29EA.0020.0002][.2A09.0020.0002] # <LAO VOWEL SIGN EI, LAO LETTER THO TAM>
+0EC2 0E97 ; [.29EA.0020.0002][.2A0A.0020.0002] # <LAO VOWEL SIGN O, LAO LETTER THO TAM>
+0EC3 0E97 ; [.29EA.0020.0002][.2A0B.0020.0002] # <LAO VOWEL SIGN AY, LAO LETTER THO TAM>
+0EC4 0E97 ; [.29EA.0020.0002][.2A0C.0020.0002] # <LAO VOWEL SIGN AI, LAO LETTER THO TAM>
+0E99  ; [.29EB.0020.0002] # LAO LETTER NO
+0EC0 0E99 ; [.29EB.0020.0002][.2A08.0020.0002] # <LAO VOWEL SIGN E, LAO LETTER NO>
+0EC1 0E99 ; [.29EB.0020.0002][.2A09.0020.0002] # <LAO VOWEL SIGN EI, LAO LETTER NO>
+0EC2 0E99 ; [.29EB.0020.0002][.2A0A.0020.0002] # <LAO VOWEL SIGN O, LAO LETTER NO>
+0EC3 0E99 ; [.29EB.0020.0002][.2A0B.0020.0002] # <LAO VOWEL SIGN AY, LAO LETTER NO>
+0EC4 0E99 ; [.29EB.0020.0002][.2A0C.0020.0002] # <LAO VOWEL SIGN AI, LAO LETTER NO>
+0E9A  ; [.29EC.0020.0002] # LAO LETTER BO
+0EC0 0E9A ; [.29EC.0020.0002][.2A08.0020.0002] # <LAO VOWEL SIGN E, LAO LETTER BO>
+0EC1 0E9A ; [.29EC.0020.0002][.2A09.0020.0002] # <LAO VOWEL SIGN EI, LAO LETTER BO>
+0EC2 0E9A ; [.29EC.0020.0002][.2A0A.0020.0002] # <LAO VOWEL SIGN O, LAO LETTER BO>
+0EC3 0E9A ; [.29EC.0020.0002][.2A0B.0020.0002] # <LAO VOWEL SIGN AY, LAO LETTER BO>
+0EC4 0E9A ; [.29EC.0020.0002][.2A0C.0020.0002] # <LAO VOWEL SIGN AI, LAO LETTER BO>
+0E9B  ; [.29ED.0020.0002] # LAO LETTER PO
+0EC0 0E9B ; [.29ED.0020.0002][.2A08.0020.0002] # <LAO VOWEL SIGN E, LAO LETTER PO>
+0EC1 0E9B ; [.29ED.0020.0002][.2A09.0020.0002] # <LAO VOWEL SIGN EI, LAO LETTER PO>
+0EC2 0E9B ; [.29ED.0020.0002][.2A0A.0020.0002] # <LAO VOWEL SIGN O, LAO LETTER PO>
+0EC3 0E9B ; [.29ED.0020.0002][.2A0B.0020.0002] # <LAO VOWEL SIGN AY, LAO LETTER PO>
+0EC4 0E9B ; [.29ED.0020.0002][.2A0C.0020.0002] # <LAO VOWEL SIGN AI, LAO LETTER PO>
+0E9C  ; [.29EE.0020.0002] # LAO LETTER PHO SUNG
+0EC0 0E9C ; [.29EE.0020.0002][.2A08.0020.0002] # <LAO VOWEL SIGN E, LAO LETTER PHO SUNG>
+0EC1 0E9C ; [.29EE.0020.0002][.2A09.0020.0002] # <LAO VOWEL SIGN EI, LAO LETTER PHO SUNG>
+0EC2 0E9C ; [.29EE.0020.0002][.2A0A.0020.0002] # <LAO VOWEL SIGN O, LAO LETTER PHO SUNG>
+0EC3 0E9C ; [.29EE.0020.0002][.2A0B.0020.0002] # <LAO VOWEL SIGN AY, LAO LETTER PHO SUNG>
+0EC4 0E9C ; [.29EE.0020.0002][.2A0C.0020.0002] # <LAO VOWEL SIGN AI, LAO LETTER PHO SUNG>
+0E9D  ; [.29EF.0020.0002] # LAO LETTER FO TAM
+0EC0 0E9D ; [.29EF.0020.0002][.2A08.0020.0002] # <LAO VOWEL SIGN E, LAO LETTER FO TAM>
+0EC1 0E9D ; [.29EF.0020.0002][.2A09.0020.0002] # <LAO VOWEL SIGN EI, LAO LETTER FO TAM>
+0EC2 0E9D ; [.29EF.0020.0002][.2A0A.0020.0002] # <LAO VOWEL SIGN O, LAO LETTER FO TAM>
+0EC3 0E9D ; [.29EF.0020.0002][.2A0B.0020.0002] # <LAO VOWEL SIGN AY, LAO LETTER FO TAM>
+0EC4 0E9D ; [.29EF.0020.0002][.2A0C.0020.0002] # <LAO VOWEL SIGN AI, LAO LETTER FO TAM>
+0E9E  ; [.29F0.0020.0002] # LAO LETTER PHO TAM
+0EC0 0E9E ; [.29F0.0020.0002][.2A08.0020.0002] # <LAO VOWEL SIGN E, LAO LETTER PHO TAM>
+0EC1 0E9E ; [.29F0.0020.0002][.2A09.0020.0002] # <LAO VOWEL SIGN EI, LAO LETTER PHO TAM>
+0EC2 0E9E ; [.29F0.0020.0002][.2A0A.0020.0002] # <LAO VOWEL SIGN O, LAO LETTER PHO TAM>
+0EC3 0E9E ; [.29F0.0020.0002][.2A0B.0020.0002] # <LAO VOWEL SIGN AY, LAO LETTER PHO TAM>
+0EC4 0E9E ; [.29F0.0020.0002][.2A0C.0020.0002] # <LAO VOWEL SIGN AI, LAO LETTER PHO TAM>
+0E9F  ; [.29F1.0020.0002] # LAO LETTER FO SUNG
+0EC0 0E9F ; [.29F1.0020.0002][.2A08.0020.0002] # <LAO VOWEL SIGN E, LAO LETTER FO SUNG>
+0EC1 0E9F ; [.29F1.0020.0002][.2A09.0020.0002] # <LAO VOWEL SIGN EI, LAO LETTER FO SUNG>
+0EC2 0E9F ; [.29F1.0020.0002][.2A0A.0020.0002] # <LAO VOWEL SIGN O, LAO LETTER FO SUNG>
+0EC3 0E9F ; [.29F1.0020.0002][.2A0B.0020.0002] # <LAO VOWEL SIGN AY, LAO LETTER FO SUNG>
+0EC4 0E9F ; [.29F1.0020.0002][.2A0C.0020.0002] # <LAO VOWEL SIGN AI, LAO LETTER FO SUNG>
+0EA1  ; [.29F2.0020.0002] # LAO LETTER MO
+0EC0 0EA1 ; [.29F2.0020.0002][.2A08.0020.0002] # <LAO VOWEL SIGN E, LAO LETTER MO>
+0EC1 0EA1 ; [.29F2.0020.0002][.2A09.0020.0002] # <LAO VOWEL SIGN EI, LAO LETTER MO>
+0EC2 0EA1 ; [.29F2.0020.0002][.2A0A.0020.0002] # <LAO VOWEL SIGN O, LAO LETTER MO>
+0EC3 0EA1 ; [.29F2.0020.0002][.2A0B.0020.0002] # <LAO VOWEL SIGN AY, LAO LETTER MO>
+0EC4 0EA1 ; [.29F2.0020.0002][.2A0C.0020.0002] # <LAO VOWEL SIGN AI, LAO LETTER MO>
+0EA2  ; [.29F3.0020.0002] # LAO LETTER YO
+0EC0 0EA2 ; [.29F3.0020.0002][.2A08.0020.0002] # <LAO VOWEL SIGN E, LAO LETTER YO>
+0EC1 0EA2 ; [.29F3.0020.0002][.2A09.0020.0002] # <LAO VOWEL SIGN EI, LAO LETTER YO>
+0EC2 0EA2 ; [.29F3.0020.0002][.2A0A.0020.0002] # <LAO VOWEL SIGN O, LAO LETTER YO>
+0EC3 0EA2 ; [.29F3.0020.0002][.2A0B.0020.0002] # <LAO VOWEL SIGN AY, LAO LETTER YO>
+0EC4 0EA2 ; [.29F3.0020.0002][.2A0C.0020.0002] # <LAO VOWEL SIGN AI, LAO LETTER YO>
+0EA3  ; [.29F4.0020.0002] # LAO LETTER LO LING
+0EC0 0EA3 ; [.29F4.0020.0002][.2A08.0020.0002] # <LAO VOWEL SIGN E, LAO LETTER LO LING>
+0EC1 0EA3 ; [.29F4.0020.0002][.2A09.0020.0002] # <LAO VOWEL SIGN EI, LAO LETTER LO LING>
+0EC2 0EA3 ; [.29F4.0020.0002][.2A0A.0020.0002] # <LAO VOWEL SIGN O, LAO LETTER LO LING>
+0EC3 0EA3 ; [.29F4.0020.0002][.2A0B.0020.0002] # <LAO VOWEL SIGN AY, LAO LETTER LO LING>
+0EC4 0EA3 ; [.29F4.0020.0002][.2A0C.0020.0002] # <LAO VOWEL SIGN AI, LAO LETTER LO LING>
+0EA5  ; [.29F5.0020.0002] # LAO LETTER LO LOOT
+0EC0 0EA5 ; [.29F5.0020.0002][.2A08.0020.0002] # <LAO VOWEL SIGN E, LAO LETTER LO LOOT>
+0EC1 0EA5 ; [.29F5.0020.0002][.2A09.0020.0002] # <LAO VOWEL SIGN EI, LAO LETTER LO LOOT>
+0EC2 0EA5 ; [.29F5.0020.0002][.2A0A.0020.0002] # <LAO VOWEL SIGN O, LAO LETTER LO LOOT>
+0EC3 0EA5 ; [.29F5.0020.0002][.2A0B.0020.0002] # <LAO VOWEL SIGN AY, LAO LETTER LO LOOT>
+0EC4 0EA5 ; [.29F5.0020.0002][.2A0C.0020.0002] # <LAO VOWEL SIGN AI, LAO LETTER LO LOOT>
+0EA7  ; [.29F6.0020.0002] # LAO LETTER WO
+0EC0 0EA7 ; [.29F6.0020.0002][.2A08.0020.0002] # <LAO VOWEL SIGN E, LAO LETTER WO>
+0EC1 0EA7 ; [.29F6.0020.0002][.2A09.0020.0002] # <LAO VOWEL SIGN EI, LAO LETTER WO>
+0EC2 0EA7 ; [.29F6.0020.0002][.2A0A.0020.0002] # <LAO VOWEL SIGN O, LAO LETTER WO>
+0EC3 0EA7 ; [.29F6.0020.0002][.2A0B.0020.0002] # <LAO VOWEL SIGN AY, LAO LETTER WO>
+0EC4 0EA7 ; [.29F6.0020.0002][.2A0C.0020.0002] # <LAO VOWEL SIGN AI, LAO LETTER WO>
+0EAB  ; [.29F7.0020.0002] # LAO LETTER HO SUNG
+0EDC  ; [.29F7.0020.0004][.29EB.0020.0004] # LAO HO NO
+0EC0 0EDC ; [.29F7.0020.0004][.29EB.0020.0004][.2A08.0020.0002] # <LAO VOWEL SIGN E, LAO HO NO>
+0EC1 0EDC ; [.29F7.0020.0004][.29EB.0020.0004][.2A09.0020.0002] # <LAO VOWEL SIGN EI, LAO HO NO>
+0EC2 0EDC ; [.29F7.0020.0004][.29EB.0020.0004][.2A0A.0020.0002] # <LAO VOWEL SIGN O, LAO HO NO>
+0EC3 0EDC ; [.29F7.0020.0004][.29EB.0020.0004][.2A0B.0020.0002] # <LAO VOWEL SIGN AY, LAO HO NO>
+0EC4 0EDC ; [.29F7.0020.0004][.29EB.0020.0004][.2A0C.0020.0002] # <LAO VOWEL SIGN AI, LAO HO NO>
+0EDD  ; [.29F7.0020.0004][.29F2.0020.0004] # LAO HO MO
+0EC0 0EDD ; [.29F7.0020.0004][.29F2.0020.0004][.2A08.0020.0002] # <LAO VOWEL SIGN E, LAO HO MO>
+0EC1 0EDD ; [.29F7.0020.0004][.29F2.0020.0004][.2A09.0020.0002] # <LAO VOWEL SIGN EI, LAO HO MO>
+0EC2 0EDD ; [.29F7.0020.0004][.29F2.0020.0004][.2A0A.0020.0002] # <LAO VOWEL SIGN O, LAO HO MO>
+0EC3 0EDD ; [.29F7.0020.0004][.29F2.0020.0004][.2A0B.0020.0002] # <LAO VOWEL SIGN AY, LAO HO MO>
+0EC4 0EDD ; [.29F7.0020.0004][.29F2.0020.0004][.2A0C.0020.0002] # <LAO VOWEL SIGN AI, LAO HO MO>
+0EC0 0EAB ; [.29F7.0020.0002][.2A08.0020.0002] # <LAO VOWEL SIGN E, LAO LETTER HO SUNG>
+0EC1 0EAB ; [.29F7.0020.0002][.2A09.0020.0002] # <LAO VOWEL SIGN EI, LAO LETTER HO SUNG>
+0EC2 0EAB ; [.29F7.0020.0002][.2A0A.0020.0002] # <LAO VOWEL SIGN O, LAO LETTER HO SUNG>
+0EC3 0EAB ; [.29F7.0020.0002][.2A0B.0020.0002] # <LAO VOWEL SIGN AY, LAO LETTER HO SUNG>
+0EC4 0EAB ; [.29F7.0020.0002][.2A0C.0020.0002] # <LAO VOWEL SIGN AI, LAO LETTER HO SUNG>
+0EAD  ; [.29F8.0020.0002] # LAO LETTER O
+0EC0 0EAD ; [.29F8.0020.0002][.2A08.0020.0002] # <LAO VOWEL SIGN E, LAO LETTER O>
+0EC1 0EAD ; [.29F8.0020.0002][.2A09.0020.0002] # <LAO VOWEL SIGN EI, LAO LETTER O>
+0EC2 0EAD ; [.29F8.0020.0002][.2A0A.0020.0002] # <LAO VOWEL SIGN O, LAO LETTER O>
+0EC3 0EAD ; [.29F8.0020.0002][.2A0B.0020.0002] # <LAO VOWEL SIGN AY, LAO LETTER O>
+0EC4 0EAD ; [.29F8.0020.0002][.2A0C.0020.0002] # <LAO VOWEL SIGN AI, LAO LETTER O>
+0EAE  ; [.29F9.0020.0002] # LAO LETTER HO TAM
+0EC0 0EAE ; [.29F9.0020.0002][.2A08.0020.0002] # <LAO VOWEL SIGN E, LAO LETTER HO TAM>
+0EC1 0EAE ; [.29F9.0020.0002][.2A09.0020.0002] # <LAO VOWEL SIGN EI, LAO LETTER HO TAM>
+0EC2 0EAE ; [.29F9.0020.0002][.2A0A.0020.0002] # <LAO VOWEL SIGN O, LAO LETTER HO TAM>
+0EC3 0EAE ; [.29F9.0020.0002][.2A0B.0020.0002] # <LAO VOWEL SIGN AY, LAO LETTER HO TAM>
+0EC4 0EAE ; [.29F9.0020.0002][.2A0C.0020.0002] # <LAO VOWEL SIGN AI, LAO LETTER HO TAM>
+0EAF  ; [.29FA.0020.0002] # LAO ELLIPSIS
+0EB0  ; [.29FB.0020.0002] # LAO VOWEL SIGN A
+0EB1  ; [.29FC.0020.0002] # LAO VOWEL SIGN MAI KAN
+0EB2  ; [.29FD.0020.0002] # LAO VOWEL SIGN AA
+0EB3  ; [.29FE.0020.0002] # LAO VOWEL SIGN AM
+0ECD 0EB2 ; [.29FE.0020.0002] # LAO VOWEL SIGN AM
+0EB4  ; [.29FF.0020.0002] # LAO VOWEL SIGN I
+0EB5  ; [.2A00.0020.0002] # LAO VOWEL SIGN II
+0EB6  ; [.2A01.0020.0002] # LAO VOWEL SIGN Y
+0EB7  ; [.2A02.0020.0002] # LAO VOWEL SIGN YY
+0EB8  ; [.2A03.0020.0002] # LAO VOWEL SIGN U
+0EB9  ; [.2A04.0020.0002] # LAO VOWEL SIGN UU
+0EBB  ; [.2A05.0020.0002] # LAO VOWEL SIGN MAI KON
+0EBC  ; [.2A06.0020.0002] # LAO SEMIVOWEL SIGN LO
+0EBD  ; [.2A07.0020.0002] # LAO SEMIVOWEL SIGN NYO
+0EC0  ; [.2A08.0020.0002] # LAO VOWEL SIGN E
+0EC1  ; [.2A09.0020.0002] # LAO VOWEL SIGN EI
+0EC2  ; [.2A0A.0020.0002] # LAO VOWEL SIGN O
+0EC3  ; [.2A0B.0020.0002] # LAO VOWEL SIGN AY
+0EC4  ; [.2A0C.0020.0002] # LAO VOWEL SIGN AI
+AA80  ; [.2A0D.0020.0002] # TAI VIET LETTER LOW KO
+AAB5 AA80 ; [.2A0D.0020.0002][.2A42.0020.0002] # <TAI VIET VOWEL E, TAI VIET LETTER LOW KO>
+AAB6 AA80 ; [.2A0D.0020.0002][.2A43.0020.0002] # <TAI VIET VOWEL O, TAI VIET LETTER LOW KO>
+AAB9 AA80 ; [.2A0D.0020.0002][.2A46.0020.0002] # <TAI VIET VOWEL UEA, TAI VIET LETTER LOW KO>
+AABB AA80 ; [.2A0D.0020.0002][.2A48.0020.0002] # <TAI VIET VOWEL AUE, TAI VIET LETTER LOW KO>
+AABC AA80 ; [.2A0D.0020.0002][.2A49.0020.0002] # <TAI VIET VOWEL AY, TAI VIET LETTER LOW KO>
+AA81  ; [.2A0E.0020.0002] # TAI VIET LETTER HIGH KO
+AAB5 AA81 ; [.2A0E.0020.0002][.2A42.0020.0002] # <TAI VIET VOWEL E, TAI VIET LETTER HIGH KO>
+AAB6 AA81 ; [.2A0E.0020.0002][.2A43.0020.0002] # <TAI VIET VOWEL O, TAI VIET LETTER HIGH KO>
+AAB9 AA81 ; [.2A0E.0020.0002][.2A46.0020.0002] # <TAI VIET VOWEL UEA, TAI VIET LETTER HIGH KO>
+AABB AA81 ; [.2A0E.0020.0002][.2A48.0020.0002] # <TAI VIET VOWEL AUE, TAI VIET LETTER HIGH KO>
+AABC AA81 ; [.2A0E.0020.0002][.2A49.0020.0002] # <TAI VIET VOWEL AY, TAI VIET LETTER HIGH KO>
+AA82  ; [.2A0F.0020.0002] # TAI VIET LETTER LOW KHO
+AAB5 AA82 ; [.2A0F.0020.0002][.2A42.0020.0002] # <TAI VIET VOWEL E, TAI VIET LETTER LOW KHO>
+AAB6 AA82 ; [.2A0F.0020.0002][.2A43.0020.0002] # <TAI VIET VOWEL O, TAI VIET LETTER LOW KHO>
+AAB9 AA82 ; [.2A0F.0020.0002][.2A46.0020.0002] # <TAI VIET VOWEL UEA, TAI VIET LETTER LOW KHO>
+AABB AA82 ; [.2A0F.0020.0002][.2A48.0020.0002] # <TAI VIET VOWEL AUE, TAI VIET LETTER LOW KHO>
+AABC AA82 ; [.2A0F.0020.0002][.2A49.0020.0002] # <TAI VIET VOWEL AY, TAI VIET LETTER LOW KHO>
+AA83  ; [.2A10.0020.0002] # TAI VIET LETTER HIGH KHO
+AAB5 AA83 ; [.2A10.0020.0002][.2A42.0020.0002] # <TAI VIET VOWEL E, TAI VIET LETTER HIGH KHO>
+AAB6 AA83 ; [.2A10.0020.0002][.2A43.0020.0002] # <TAI VIET VOWEL O, TAI VIET LETTER HIGH KHO>
+AAB9 AA83 ; [.2A10.0020.0002][.2A46.0020.0002] # <TAI VIET VOWEL UEA, TAI VIET LETTER HIGH KHO>
+AABB AA83 ; [.2A10.0020.0002][.2A48.0020.0002] # <TAI VIET VOWEL AUE, TAI VIET LETTER HIGH KHO>
+AABC AA83 ; [.2A10.0020.0002][.2A49.0020.0002] # <TAI VIET VOWEL AY, TAI VIET LETTER HIGH KHO>
+AA84  ; [.2A11.0020.0002] # TAI VIET LETTER LOW KHHO
+AAB5 AA84 ; [.2A11.0020.0002][.2A42.0020.0002] # <TAI VIET VOWEL E, TAI VIET LETTER LOW KHHO>
+AAB6 AA84 ; [.2A11.0020.0002][.2A43.0020.0002] # <TAI VIET VOWEL O, TAI VIET LETTER LOW KHHO>
+AAB9 AA84 ; [.2A11.0020.0002][.2A46.0020.0002] # <TAI VIET VOWEL UEA, TAI VIET LETTER LOW KHHO>
+AABB AA84 ; [.2A11.0020.0002][.2A48.0020.0002] # <TAI VIET VOWEL AUE, TAI VIET LETTER LOW KHHO>
+AABC AA84 ; [.2A11.0020.0002][.2A49.0020.0002] # <TAI VIET VOWEL AY, TAI VIET LETTER LOW KHHO>
+AA85  ; [.2A12.0020.0002] # TAI VIET LETTER HIGH KHHO
+AAB5 AA85 ; [.2A12.0020.0002][.2A42.0020.0002] # <TAI VIET VOWEL E, TAI VIET LETTER HIGH KHHO>
+AAB6 AA85 ; [.2A12.0020.0002][.2A43.0020.0002] # <TAI VIET VOWEL O, TAI VIET LETTER HIGH KHHO>
+AAB9 AA85 ; [.2A12.0020.0002][.2A46.0020.0002] # <TAI VIET VOWEL UEA, TAI VIET LETTER HIGH KHHO>
+AABB AA85 ; [.2A12.0020.0002][.2A48.0020.0002] # <TAI VIET VOWEL AUE, TAI VIET LETTER HIGH KHHO>
+AABC AA85 ; [.2A12.0020.0002][.2A49.0020.0002] # <TAI VIET VOWEL AY, TAI VIET LETTER HIGH KHHO>
+AA86  ; [.2A13.0020.0002] # TAI VIET LETTER LOW GO
+AAB5 AA86 ; [.2A13.0020.0002][.2A42.0020.0002] # <TAI VIET VOWEL E, TAI VIET LETTER LOW GO>
+AAB6 AA86 ; [.2A13.0020.0002][.2A43.0020.0002] # <TAI VIET VOWEL O, TAI VIET LETTER LOW GO>
+AAB9 AA86 ; [.2A13.0020.0002][.2A46.0020.0002] # <TAI VIET VOWEL UEA, TAI VIET LETTER LOW GO>
+AABB AA86 ; [.2A13.0020.0002][.2A48.0020.0002] # <TAI VIET VOWEL AUE, TAI VIET LETTER LOW GO>
+AABC AA86 ; [.2A13.0020.0002][.2A49.0020.0002] # <TAI VIET VOWEL AY, TAI VIET LETTER LOW GO>
+AA87  ; [.2A14.0020.0002] # TAI VIET LETTER HIGH GO
+AAB5 AA87 ; [.2A14.0020.0002][.2A42.0020.0002] # <TAI VIET VOWEL E, TAI VIET LETTER HIGH GO>
+AAB6 AA87 ; [.2A14.0020.0002][.2A43.0020.0002] # <TAI VIET VOWEL O, TAI VIET LETTER HIGH GO>
+AAB9 AA87 ; [.2A14.0020.0002][.2A46.0020.0002] # <TAI VIET VOWEL UEA, TAI VIET LETTER HIGH GO>
+AABB AA87 ; [.2A14.0020.0002][.2A48.0020.0002] # <TAI VIET VOWEL AUE, TAI VIET LETTER HIGH GO>
+AABC AA87 ; [.2A14.0020.0002][.2A49.0020.0002] # <TAI VIET VOWEL AY, TAI VIET LETTER HIGH GO>
+AA88  ; [.2A15.0020.0002] # TAI VIET LETTER LOW NGO
+AAB5 AA88 ; [.2A15.0020.0002][.2A42.0020.0002] # <TAI VIET VOWEL E, TAI VIET LETTER LOW NGO>
+AAB6 AA88 ; [.2A15.0020.0002][.2A43.0020.0002] # <TAI VIET VOWEL O, TAI VIET LETTER LOW NGO>
+AAB9 AA88 ; [.2A15.0020.0002][.2A46.0020.0002] # <TAI VIET VOWEL UEA, TAI VIET LETTER LOW NGO>
+AABB AA88 ; [.2A15.0020.0002][.2A48.0020.0002] # <TAI VIET VOWEL AUE, TAI VIET LETTER LOW NGO>
+AABC AA88 ; [.2A15.0020.0002][.2A49.0020.0002] # <TAI VIET VOWEL AY, TAI VIET LETTER LOW NGO>
+AA89  ; [.2A16.0020.0002] # TAI VIET LETTER HIGH NGO
+AAB5 AA89 ; [.2A16.0020.0002][.2A42.0020.0002] # <TAI VIET VOWEL E, TAI VIET LETTER HIGH NGO>
+AAB6 AA89 ; [.2A16.0020.0002][.2A43.0020.0002] # <TAI VIET VOWEL O, TAI VIET LETTER HIGH NGO>
+AAB9 AA89 ; [.2A16.0020.0002][.2A46.0020.0002] # <TAI VIET VOWEL UEA, TAI VIET LETTER HIGH NGO>
+AABB AA89 ; [.2A16.0020.0002][.2A48.0020.0002] # <TAI VIET VOWEL AUE, TAI VIET LETTER HIGH NGO>
+AABC AA89 ; [.2A16.0020.0002][.2A49.0020.0002] # <TAI VIET VOWEL AY, TAI VIET LETTER HIGH NGO>
+AA8A  ; [.2A17.0020.0002] # TAI VIET LETTER LOW CO
+AAB5 AA8A ; [.2A17.0020.0002][.2A42.0020.0002] # <TAI VIET VOWEL E, TAI VIET LETTER LOW CO>
+AAB6 AA8A ; [.2A17.0020.0002][.2A43.0020.0002] # <TAI VIET VOWEL O, TAI VIET LETTER LOW CO>
+AAB9 AA8A ; [.2A17.0020.0002][.2A46.0020.0002] # <TAI VIET VOWEL UEA, TAI VIET LETTER LOW CO>
+AABB AA8A ; [.2A17.0020.0002][.2A48.0020.0002] # <TAI VIET VOWEL AUE, TAI VIET LETTER LOW CO>
+AABC AA8A ; [.2A17.0020.0002][.2A49.0020.0002] # <TAI VIET VOWEL AY, TAI VIET LETTER LOW CO>
+AA8B  ; [.2A18.0020.0002] # TAI VIET LETTER HIGH CO
+AAB5 AA8B ; [.2A18.0020.0002][.2A42.0020.0002] # <TAI VIET VOWEL E, TAI VIET LETTER HIGH CO>
+AAB6 AA8B ; [.2A18.0020.0002][.2A43.0020.0002] # <TAI VIET VOWEL O, TAI VIET LETTER HIGH CO>
+AAB9 AA8B ; [.2A18.0020.0002][.2A46.0020.0002] # <TAI VIET VOWEL UEA, TAI VIET LETTER HIGH CO>
+AABB AA8B ; [.2A18.0020.0002][.2A48.0020.0002] # <TAI VIET VOWEL AUE, TAI VIET LETTER HIGH CO>
+AABC AA8B ; [.2A18.0020.0002][.2A49.0020.0002] # <TAI VIET VOWEL AY, TAI VIET LETTER HIGH CO>
+AA8C  ; [.2A19.0020.0002] # TAI VIET LETTER LOW CHO
+AAB5 AA8C ; [.2A19.0020.0002][.2A42.0020.0002] # <TAI VIET VOWEL E, TAI VIET LETTER LOW CHO>
+AAB6 AA8C ; [.2A19.0020.0002][.2A43.0020.0002] # <TAI VIET VOWEL O, TAI VIET LETTER LOW CHO>
+AAB9 AA8C ; [.2A19.0020.0002][.2A46.0020.0002] # <TAI VIET VOWEL UEA, TAI VIET LETTER LOW CHO>
+AABB AA8C ; [.2A19.0020.0002][.2A48.0020.0002] # <TAI VIET VOWEL AUE, TAI VIET LETTER LOW CHO>
+AABC AA8C ; [.2A19.0020.0002][.2A49.0020.0002] # <TAI VIET VOWEL AY, TAI VIET LETTER LOW CHO>
+AA8D  ; [.2A1A.0020.0002] # TAI VIET LETTER HIGH CHO
+AAB5 AA8D ; [.2A1A.0020.0002][.2A42.0020.0002] # <TAI VIET VOWEL E, TAI VIET LETTER HIGH CHO>
+AAB6 AA8D ; [.2A1A.0020.0002][.2A43.0020.0002] # <TAI VIET VOWEL O, TAI VIET LETTER HIGH CHO>
+AAB9 AA8D ; [.2A1A.0020.0002][.2A46.0020.0002] # <TAI VIET VOWEL UEA, TAI VIET LETTER HIGH CHO>
+AABB AA8D ; [.2A1A.0020.0002][.2A48.0020.0002] # <TAI VIET VOWEL AUE, TAI VIET LETTER HIGH CHO>
+AABC AA8D ; [.2A1A.0020.0002][.2A49.0020.0002] # <TAI VIET VOWEL AY, TAI VIET LETTER HIGH CHO>
+AA8E  ; [.2A1B.0020.0002] # TAI VIET LETTER LOW SO
+AAB5 AA8E ; [.2A1B.0020.0002][.2A42.0020.0002] # <TAI VIET VOWEL E, TAI VIET LETTER LOW SO>
+AAB6 AA8E ; [.2A1B.0020.0002][.2A43.0020.0002] # <TAI VIET VOWEL O, TAI VIET LETTER LOW SO>
+AAB9 AA8E ; [.2A1B.0020.0002][.2A46.0020.0002] # <TAI VIET VOWEL UEA, TAI VIET LETTER LOW SO>
+AABB AA8E ; [.2A1B.0020.0002][.2A48.0020.0002] # <TAI VIET VOWEL AUE, TAI VIET LETTER LOW SO>
+AABC AA8E ; [.2A1B.0020.0002][.2A49.0020.0002] # <TAI VIET VOWEL AY, TAI VIET LETTER LOW SO>
+AA8F  ; [.2A1C.0020.0002] # TAI VIET LETTER HIGH SO
+AAB5 AA8F ; [.2A1C.0020.0002][.2A42.0020.0002] # <TAI VIET VOWEL E, TAI VIET LETTER HIGH SO>
+AAB6 AA8F ; [.2A1C.0020.0002][.2A43.0020.0002] # <TAI VIET VOWEL O, TAI VIET LETTER HIGH SO>
+AAB9 AA8F ; [.2A1C.0020.0002][.2A46.0020.0002] # <TAI VIET VOWEL UEA, TAI VIET LETTER HIGH SO>
+AABB AA8F ; [.2A1C.0020.0002][.2A48.0020.0002] # <TAI VIET VOWEL AUE, TAI VIET LETTER HIGH SO>
+AABC AA8F ; [.2A1C.0020.0002][.2A49.0020.0002] # <TAI VIET VOWEL AY, TAI VIET LETTER HIGH SO>
+AA90  ; [.2A1D.0020.0002] # TAI VIET LETTER LOW NYO
+AAB5 AA90 ; [.2A1D.0020.0002][.2A42.0020.0002] # <TAI VIET VOWEL E, TAI VIET LETTER LOW NYO>
+AAB6 AA90 ; [.2A1D.0020.0002][.2A43.0020.0002] # <TAI VIET VOWEL O, TAI VIET LETTER LOW NYO>
+AAB9 AA90 ; [.2A1D.0020.0002][.2A46.0020.0002] # <TAI VIET VOWEL UEA, TAI VIET LETTER LOW NYO>
+AABB AA90 ; [.2A1D.0020.0002][.2A48.0020.0002] # <TAI VIET VOWEL AUE, TAI VIET LETTER LOW NYO>
+AABC AA90 ; [.2A1D.0020.0002][.2A49.0020.0002] # <TAI VIET VOWEL AY, TAI VIET LETTER LOW NYO>
+AA91  ; [.2A1E.0020.0002] # TAI VIET LETTER HIGH NYO
+AAB5 AA91 ; [.2A1E.0020.0002][.2A42.0020.0002] # <TAI VIET VOWEL E, TAI VIET LETTER HIGH NYO>
+AAB6 AA91 ; [.2A1E.0020.0002][.2A43.0020.0002] # <TAI VIET VOWEL O, TAI VIET LETTER HIGH NYO>
+AAB9 AA91 ; [.2A1E.0020.0002][.2A46.0020.0002] # <TAI VIET VOWEL UEA, TAI VIET LETTER HIGH NYO>
+AABB AA91 ; [.2A1E.0020.0002][.2A48.0020.0002] # <TAI VIET VOWEL AUE, TAI VIET LETTER HIGH NYO>
+AABC AA91 ; [.2A1E.0020.0002][.2A49.0020.0002] # <TAI VIET VOWEL AY, TAI VIET LETTER HIGH NYO>
+AA92  ; [.2A1F.0020.0002] # TAI VIET LETTER LOW DO
+AAB5 AA92 ; [.2A1F.0020.0002][.2A42.0020.0002] # <TAI VIET VOWEL E, TAI VIET LETTER LOW DO>
+AAB6 AA92 ; [.2A1F.0020.0002][.2A43.0020.0002] # <TAI VIET VOWEL O, TAI VIET LETTER LOW DO>
+AAB9 AA92 ; [.2A1F.0020.0002][.2A46.0020.0002] # <TAI VIET VOWEL UEA, TAI VIET LETTER LOW DO>
+AABB AA92 ; [.2A1F.0020.0002][.2A48.0020.0002] # <TAI VIET VOWEL AUE, TAI VIET LETTER LOW DO>
+AABC AA92 ; [.2A1F.0020.0002][.2A49.0020.0002] # <TAI VIET VOWEL AY, TAI VIET LETTER LOW DO>
+AA93  ; [.2A20.0020.0002] # TAI VIET LETTER HIGH DO
+AAB5 AA93 ; [.2A20.0020.0002][.2A42.0020.0002] # <TAI VIET VOWEL E, TAI VIET LETTER HIGH DO>
+AAB6 AA93 ; [.2A20.0020.0002][.2A43.0020.0002] # <TAI VIET VOWEL O, TAI VIET LETTER HIGH DO>
+AAB9 AA93 ; [.2A20.0020.0002][.2A46.0020.0002] # <TAI VIET VOWEL UEA, TAI VIET LETTER HIGH DO>
+AABB AA93 ; [.2A20.0020.0002][.2A48.0020.0002] # <TAI VIET VOWEL AUE, TAI VIET LETTER HIGH DO>
+AABC AA93 ; [.2A20.0020.0002][.2A49.0020.0002] # <TAI VIET VOWEL AY, TAI VIET LETTER HIGH DO>
+AA94  ; [.2A21.0020.0002] # TAI VIET LETTER LOW TO
+AAB5 AA94 ; [.2A21.0020.0002][.2A42.0020.0002] # <TAI VIET VOWEL E, TAI VIET LETTER LOW TO>
+AAB6 AA94 ; [.2A21.0020.0002][.2A43.0020.0002] # <TAI VIET VOWEL O, TAI VIET LETTER LOW TO>
+AAB9 AA94 ; [.2A21.0020.0002][.2A46.0020.0002] # <TAI VIET VOWEL UEA, TAI VIET LETTER LOW TO>
+AABB AA94 ; [.2A21.0020.0002][.2A48.0020.0002] # <TAI VIET VOWEL AUE, TAI VIET LETTER LOW TO>
+AABC AA94 ; [.2A21.0020.0002][.2A49.0020.0002] # <TAI VIET VOWEL AY, TAI VIET LETTER LOW TO>
+AA95  ; [.2A22.0020.0002] # TAI VIET LETTER HIGH TO
+AAB5 AA95 ; [.2A22.0020.0002][.2A42.0020.0002] # <TAI VIET VOWEL E, TAI VIET LETTER HIGH TO>
+AAB6 AA95 ; [.2A22.0020.0002][.2A43.0020.0002] # <TAI VIET VOWEL O, TAI VIET LETTER HIGH TO>
+AAB9 AA95 ; [.2A22.0020.0002][.2A46.0020.0002] # <TAI VIET VOWEL UEA, TAI VIET LETTER HIGH TO>
+AABB AA95 ; [.2A22.0020.0002][.2A48.0020.0002] # <TAI VIET VOWEL AUE, TAI VIET LETTER HIGH TO>
+AABC AA95 ; [.2A22.0020.0002][.2A49.0020.0002] # <TAI VIET VOWEL AY, TAI VIET LETTER HIGH TO>
+AA96  ; [.2A23.0020.0002] # TAI VIET LETTER LOW THO
+AAB5 AA96 ; [.2A23.0020.0002][.2A42.0020.0002] # <TAI VIET VOWEL E, TAI VIET LETTER LOW THO>
+AAB6 AA96 ; [.2A23.0020.0002][.2A43.0020.0002] # <TAI VIET VOWEL O, TAI VIET LETTER LOW THO>
+AAB9 AA96 ; [.2A23.0020.0002][.2A46.0020.0002] # <TAI VIET VOWEL UEA, TAI VIET LETTER LOW THO>
+AABB AA96 ; [.2A23.0020.0002][.2A48.0020.0002] # <TAI VIET VOWEL AUE, TAI VIET LETTER LOW THO>
+AABC AA96 ; [.2A23.0020.0002][.2A49.0020.0002] # <TAI VIET VOWEL AY, TAI VIET LETTER LOW THO>
+AA97  ; [.2A24.0020.0002] # TAI VIET LETTER HIGH THO
+AAB5 AA97 ; [.2A24.0020.0002][.2A42.0020.0002] # <TAI VIET VOWEL E, TAI VIET LETTER HIGH THO>
+AAB6 AA97 ; [.2A24.0020.0002][.2A43.0020.0002] # <TAI VIET VOWEL O, TAI VIET LETTER HIGH THO>
+AAB9 AA97 ; [.2A24.0020.0002][.2A46.0020.0002] # <TAI VIET VOWEL UEA, TAI VIET LETTER HIGH THO>
+AABB AA97 ; [.2A24.0020.0002][.2A48.0020.0002] # <TAI VIET VOWEL AUE, TAI VIET LETTER HIGH THO>
+AABC AA97 ; [.2A24.0020.0002][.2A49.0020.0002] # <TAI VIET VOWEL AY, TAI VIET LETTER HIGH THO>
+AA98  ; [.2A25.0020.0002] # TAI VIET LETTER LOW NO
+AAB5 AA98 ; [.2A25.0020.0002][.2A42.0020.0002] # <TAI VIET VOWEL E, TAI VIET LETTER LOW NO>
+AAB6 AA98 ; [.2A25.0020.0002][.2A43.0020.0002] # <TAI VIET VOWEL O, TAI VIET LETTER LOW NO>
+AAB9 AA98 ; [.2A25.0020.0002][.2A46.0020.0002] # <TAI VIET VOWEL UEA, TAI VIET LETTER LOW NO>
+AABB AA98 ; [.2A25.0020.0002][.2A48.0020.0002] # <TAI VIET VOWEL AUE, TAI VIET LETTER LOW NO>
+AABC AA98 ; [.2A25.0020.0002][.2A49.0020.0002] # <TAI VIET VOWEL AY, TAI VIET LETTER LOW NO>
+AA99  ; [.2A26.0020.0002] # TAI VIET LETTER HIGH NO
+AAB5 AA99 ; [.2A26.0020.0002][.2A42.0020.0002] # <TAI VIET VOWEL E, TAI VIET LETTER HIGH NO>
+AAB6 AA99 ; [.2A26.0020.0002][.2A43.0020.0002] # <TAI VIET VOWEL O, TAI VIET LETTER HIGH NO>
+AAB9 AA99 ; [.2A26.0020.0002][.2A46.0020.0002] # <TAI VIET VOWEL UEA, TAI VIET LETTER HIGH NO>
+AABB AA99 ; [.2A26.0020.0002][.2A48.0020.0002] # <TAI VIET VOWEL AUE, TAI VIET LETTER HIGH NO>
+AABC AA99 ; [.2A26.0020.0002][.2A49.0020.0002] # <TAI VIET VOWEL AY, TAI VIET LETTER HIGH NO>
+AA9A  ; [.2A27.0020.0002] # TAI VIET LETTER LOW BO
+AAB5 AA9A ; [.2A27.0020.0002][.2A42.0020.0002] # <TAI VIET VOWEL E, TAI VIET LETTER LOW BO>
+AAB6 AA9A ; [.2A27.0020.0002][.2A43.0020.0002] # <TAI VIET VOWEL O, TAI VIET LETTER LOW BO>
+AAB9 AA9A ; [.2A27.0020.0002][.2A46.0020.0002] # <TAI VIET VOWEL UEA, TAI VIET LETTER LOW BO>
+AABB AA9A ; [.2A27.0020.0002][.2A48.0020.0002] # <TAI VIET VOWEL AUE, TAI VIET LETTER LOW BO>
+AABC AA9A ; [.2A27.0020.0002][.2A49.0020.0002] # <TAI VIET VOWEL AY, TAI VIET LETTER LOW BO>
+AA9B  ; [.2A28.0020.0002] # TAI VIET LETTER HIGH BO
+AAB5 AA9B ; [.2A28.0020.0002][.2A42.0020.0002] # <TAI VIET VOWEL E, TAI VIET LETTER HIGH BO>
+AAB6 AA9B ; [.2A28.0020.0002][.2A43.0020.0002] # <TAI VIET VOWEL O, TAI VIET LETTER HIGH BO>
+AAB9 AA9B ; [.2A28.0020.0002][.2A46.0020.0002] # <TAI VIET VOWEL UEA, TAI VIET LETTER HIGH BO>
+AABB AA9B ; [.2A28.0020.0002][.2A48.0020.0002] # <TAI VIET VOWEL AUE, TAI VIET LETTER HIGH BO>
+AABC AA9B ; [.2A28.0020.0002][.2A49.0020.0002] # <TAI VIET VOWEL AY, TAI VIET LETTER HIGH BO>
+AA9C  ; [.2A29.0020.0002] # TAI VIET LETTER LOW PO
+AAB5 AA9C ; [.2A29.0020.0002][.2A42.0020.0002] # <TAI VIET VOWEL E, TAI VIET LETTER LOW PO>
+AAB6 AA9C ; [.2A29.0020.0002][.2A43.0020.0002] # <TAI VIET VOWEL O, TAI VIET LETTER LOW PO>
+AAB9 AA9C ; [.2A29.0020.0002][.2A46.0020.0002] # <TAI VIET VOWEL UEA, TAI VIET LETTER LOW PO>
+AABB AA9C ; [.2A29.0020.0002][.2A48.0020.0002] # <TAI VIET VOWEL AUE, TAI VIET LETTER LOW PO>
+AABC AA9C ; [.2A29.0020.0002][.2A49.0020.0002] # <TAI VIET VOWEL AY, TAI VIET LETTER LOW PO>
+AA9D  ; [.2A2A.0020.0002] # TAI VIET LETTER HIGH PO
+AAB5 AA9D ; [.2A2A.0020.0002][.2A42.0020.0002] # <TAI VIET VOWEL E, TAI VIET LETTER HIGH PO>
+AAB6 AA9D ; [.2A2A.0020.0002][.2A43.0020.0002] # <TAI VIET VOWEL O, TAI VIET LETTER HIGH PO>
+AAB9 AA9D ; [.2A2A.0020.0002][.2A46.0020.0002] # <TAI VIET VOWEL UEA, TAI VIET LETTER HIGH PO>
+AABB AA9D ; [.2A2A.0020.0002][.2A48.0020.0002] # <TAI VIET VOWEL AUE, TAI VIET LETTER HIGH PO>
+AABC AA9D ; [.2A2A.0020.0002][.2A49.0020.0002] # <TAI VIET VOWEL AY, TAI VIET LETTER HIGH PO>
+AA9E  ; [.2A2B.0020.0002] # TAI VIET LETTER LOW PHO
+AAB5 AA9E ; [.2A2B.0020.0002][.2A42.0020.0002] # <TAI VIET VOWEL E, TAI VIET LETTER LOW PHO>
+AAB6 AA9E ; [.2A2B.0020.0002][.2A43.0020.0002] # <TAI VIET VOWEL O, TAI VIET LETTER LOW PHO>
+AAB9 AA9E ; [.2A2B.0020.0002][.2A46.0020.0002] # <TAI VIET VOWEL UEA, TAI VIET LETTER LOW PHO>
+AABB AA9E ; [.2A2B.0020.0002][.2A48.0020.0002] # <TAI VIET VOWEL AUE, TAI VIET LETTER LOW PHO>
+AABC AA9E ; [.2A2B.0020.0002][.2A49.0020.0002] # <TAI VIET VOWEL AY, TAI VIET LETTER LOW PHO>
+AA9F  ; [.2A2C.0020.0002] # TAI VIET LETTER HIGH PHO
+AAB5 AA9F ; [.2A2C.0020.0002][.2A42.0020.0002] # <TAI VIET VOWEL E, TAI VIET LETTER HIGH PHO>
+AAB6 AA9F ; [.2A2C.0020.0002][.2A43.0020.0002] # <TAI VIET VOWEL O, TAI VIET LETTER HIGH PHO>
+AAB9 AA9F ; [.2A2C.0020.0002][.2A46.0020.0002] # <TAI VIET VOWEL UEA, TAI VIET LETTER HIGH PHO>
+AABB AA9F ; [.2A2C.0020.0002][.2A48.0020.0002] # <TAI VIET VOWEL AUE, TAI VIET LETTER HIGH PHO>
+AABC AA9F ; [.2A2C.0020.0002][.2A49.0020.0002] # <TAI VIET VOWEL AY, TAI VIET LETTER HIGH PHO>
+AAA0  ; [.2A2D.0020.0002] # TAI VIET LETTER LOW FO
+AAB5 AAA0 ; [.2A2D.0020.0002][.2A42.0020.0002] # <TAI VIET VOWEL E, TAI VIET LETTER LOW FO>
+AAB6 AAA0 ; [.2A2D.0020.0002][.2A43.0020.0002] # <TAI VIET VOWEL O, TAI VIET LETTER LOW FO>
+AAB9 AAA0 ; [.2A2D.0020.0002][.2A46.0020.0002] # <TAI VIET VOWEL UEA, TAI VIET LETTER LOW FO>
+AABB AAA0 ; [.2A2D.0020.0002][.2A48.0020.0002] # <TAI VIET VOWEL AUE, TAI VIET LETTER LOW FO>
+AABC AAA0 ; [.2A2D.0020.0002][.2A49.0020.0002] # <TAI VIET VOWEL AY, TAI VIET LETTER LOW FO>
+AAA1  ; [.2A2E.0020.0002] # TAI VIET LETTER HIGH FO
+AAB5 AAA1 ; [.2A2E.0020.0002][.2A42.0020.0002] # <TAI VIET VOWEL E, TAI VIET LETTER HIGH FO>
+AAB6 AAA1 ; [.2A2E.0020.0002][.2A43.0020.0002] # <TAI VIET VOWEL O, TAI VIET LETTER HIGH FO>
+AAB9 AAA1 ; [.2A2E.0020.0002][.2A46.0020.0002] # <TAI VIET VOWEL UEA, TAI VIET LETTER HIGH FO>
+AABB AAA1 ; [.2A2E.0020.0002][.2A48.0020.0002] # <TAI VIET VOWEL AUE, TAI VIET LETTER HIGH FO>
+AABC AAA1 ; [.2A2E.0020.0002][.2A49.0020.0002] # <TAI VIET VOWEL AY, TAI VIET LETTER HIGH FO>
+AAA2  ; [.2A2F.0020.0002] # TAI VIET LETTER LOW MO
+AAB5 AAA2 ; [.2A2F.0020.0002][.2A42.0020.0002] # <TAI VIET VOWEL E, TAI VIET LETTER LOW MO>
+AAB6 AAA2 ; [.2A2F.0020.0002][.2A43.0020.0002] # <TAI VIET VOWEL O, TAI VIET LETTER LOW MO>
+AAB9 AAA2 ; [.2A2F.0020.0002][.2A46.0020.0002] # <TAI VIET VOWEL UEA, TAI VIET LETTER LOW MO>
+AABB AAA2 ; [.2A2F.0020.0002][.2A48.0020.0002] # <TAI VIET VOWEL AUE, TAI VIET LETTER LOW MO>
+AABC AAA2 ; [.2A2F.0020.0002][.2A49.0020.0002] # <TAI VIET VOWEL AY, TAI VIET LETTER LOW MO>
+AAA3  ; [.2A30.0020.0002] # TAI VIET LETTER HIGH MO
+AAB5 AAA3 ; [.2A30.0020.0002][.2A42.0020.0002] # <TAI VIET VOWEL E, TAI VIET LETTER HIGH MO>
+AAB6 AAA3 ; [.2A30.0020.0002][.2A43.0020.0002] # <TAI VIET VOWEL O, TAI VIET LETTER HIGH MO>
+AAB9 AAA3 ; [.2A30.0020.0002][.2A46.0020.0002] # <TAI VIET VOWEL UEA, TAI VIET LETTER HIGH MO>
+AABB AAA3 ; [.2A30.0020.0002][.2A48.0020.0002] # <TAI VIET VOWEL AUE, TAI VIET LETTER HIGH MO>
+AABC AAA3 ; [.2A30.0020.0002][.2A49.0020.0002] # <TAI VIET VOWEL AY, TAI VIET LETTER HIGH MO>
+AAA4  ; [.2A31.0020.0002] # TAI VIET LETTER LOW YO
+AAB5 AAA4 ; [.2A31.0020.0002][.2A42.0020.0002] # <TAI VIET VOWEL E, TAI VIET LETTER LOW YO>
+AAB6 AAA4 ; [.2A31.0020.0002][.2A43.0020.0002] # <TAI VIET VOWEL O, TAI VIET LETTER LOW YO>
+AAB9 AAA4 ; [.2A31.0020.0002][.2A46.0020.0002] # <TAI VIET VOWEL UEA, TAI VIET LETTER LOW YO>
+AABB AAA4 ; [.2A31.0020.0002][.2A48.0020.0002] # <TAI VIET VOWEL AUE, TAI VIET LETTER LOW YO>
+AABC AAA4 ; [.2A31.0020.0002][.2A49.0020.0002] # <TAI VIET VOWEL AY, TAI VIET LETTER LOW YO>
+AAA5  ; [.2A32.0020.0002] # TAI VIET LETTER HIGH YO
+AAB5 AAA5 ; [.2A32.0020.0002][.2A42.0020.0002] # <TAI VIET VOWEL E, TAI VIET LETTER HIGH YO>
+AAB6 AAA5 ; [.2A32.0020.0002][.2A43.0020.0002] # <TAI VIET VOWEL O, TAI VIET LETTER HIGH YO>
+AAB9 AAA5 ; [.2A32.0020.0002][.2A46.0020.0002] # <TAI VIET VOWEL UEA, TAI VIET LETTER HIGH YO>
+AABB AAA5 ; [.2A32.0020.0002][.2A48.0020.0002] # <TAI VIET VOWEL AUE, TAI VIET LETTER HIGH YO>
+AABC AAA5 ; [.2A32.0020.0002][.2A49.0020.0002] # <TAI VIET VOWEL AY, TAI VIET LETTER HIGH YO>
+AAA6  ; [.2A33.0020.0002] # TAI VIET LETTER LOW RO
+AAB5 AAA6 ; [.2A33.0020.0002][.2A42.0020.0002] # <TAI VIET VOWEL E, TAI VIET LETTER LOW RO>
+AAB6 AAA6 ; [.2A33.0020.0002][.2A43.0020.0002] # <TAI VIET VOWEL O, TAI VIET LETTER LOW RO>
+AAB9 AAA6 ; [.2A33.0020.0002][.2A46.0020.0002] # <TAI VIET VOWEL UEA, TAI VIET LETTER LOW RO>
+AABB AAA6 ; [.2A33.0020.0002][.2A48.0020.0002] # <TAI VIET VOWEL AUE, TAI VIET LETTER LOW RO>
+AABC AAA6 ; [.2A33.0020.0002][.2A49.0020.0002] # <TAI VIET VOWEL AY, TAI VIET LETTER LOW RO>
+AAA7  ; [.2A34.0020.0002] # TAI VIET LETTER HIGH RO
+AAB5 AAA7 ; [.2A34.0020.0002][.2A42.0020.0002] # <TAI VIET VOWEL E, TAI VIET LETTER HIGH RO>
+AAB6 AAA7 ; [.2A34.0020.0002][.2A43.0020.0002] # <TAI VIET VOWEL O, TAI VIET LETTER HIGH RO>
+AAB9 AAA7 ; [.2A34.0020.0002][.2A46.0020.0002] # <TAI VIET VOWEL UEA, TAI VIET LETTER HIGH RO>
+AABB AAA7 ; [.2A34.0020.0002][.2A48.0020.0002] # <TAI VIET VOWEL AUE, TAI VIET LETTER HIGH RO>
+AABC AAA7 ; [.2A34.0020.0002][.2A49.0020.0002] # <TAI VIET VOWEL AY, TAI VIET LETTER HIGH RO>
+AAA8  ; [.2A35.0020.0002] # TAI VIET LETTER LOW LO
+AAB5 AAA8 ; [.2A35.0020.0002][.2A42.0020.0002] # <TAI VIET VOWEL E, TAI VIET LETTER LOW LO>
+AAB6 AAA8 ; [.2A35.0020.0002][.2A43.0020.0002] # <TAI VIET VOWEL O, TAI VIET LETTER LOW LO>
+AAB9 AAA8 ; [.2A35.0020.0002][.2A46.0020.0002] # <TAI VIET VOWEL UEA, TAI VIET LETTER LOW LO>
+AABB AAA8 ; [.2A35.0020.0002][.2A48.0020.0002] # <TAI VIET VOWEL AUE, TAI VIET LETTER LOW LO>
+AABC AAA8 ; [.2A35.0020.0002][.2A49.0020.0002] # <TAI VIET VOWEL AY, TAI VIET LETTER LOW LO>
+AAA9  ; [.2A36.0020.0002] # TAI VIET LETTER HIGH LO
+AAB5 AAA9 ; [.2A36.0020.0002][.2A42.0020.0002] # <TAI VIET VOWEL E, TAI VIET LETTER HIGH LO>
+AAB6 AAA9 ; [.2A36.0020.0002][.2A43.0020.0002] # <TAI VIET VOWEL O, TAI VIET LETTER HIGH LO>
+AAB9 AAA9 ; [.2A36.0020.0002][.2A46.0020.0002] # <TAI VIET VOWEL UEA, TAI VIET LETTER HIGH LO>
+AABB AAA9 ; [.2A36.0020.0002][.2A48.0020.0002] # <TAI VIET VOWEL AUE, TAI VIET LETTER HIGH LO>
+AABC AAA9 ; [.2A36.0020.0002][.2A49.0020.0002] # <TAI VIET VOWEL AY, TAI VIET LETTER HIGH LO>
+AAAA  ; [.2A37.0020.0002] # TAI VIET LETTER LOW VO
+AAB5 AAAA ; [.2A37.0020.0002][.2A42.0020.0002] # <TAI VIET VOWEL E, TAI VIET LETTER LOW VO>
+AAB6 AAAA ; [.2A37.0020.0002][.2A43.0020.0002] # <TAI VIET VOWEL O, TAI VIET LETTER LOW VO>
+AAB9 AAAA ; [.2A37.0020.0002][.2A46.0020.0002] # <TAI VIET VOWEL UEA, TAI VIET LETTER LOW VO>
+AABB AAAA ; [.2A37.0020.0002][.2A48.0020.0002] # <TAI VIET VOWEL AUE, TAI VIET LETTER LOW VO>
+AABC AAAA ; [.2A37.0020.0002][.2A49.0020.0002] # <TAI VIET VOWEL AY, TAI VIET LETTER LOW VO>
+AAAB  ; [.2A38.0020.0002] # TAI VIET LETTER HIGH VO
+AAB5 AAAB ; [.2A38.0020.0002][.2A42.0020.0002] # <TAI VIET VOWEL E, TAI VIET LETTER HIGH VO>
+AAB6 AAAB ; [.2A38.0020.0002][.2A43.0020.0002] # <TAI VIET VOWEL O, TAI VIET LETTER HIGH VO>
+AAB9 AAAB ; [.2A38.0020.0002][.2A46.0020.0002] # <TAI VIET VOWEL UEA, TAI VIET LETTER HIGH VO>
+AABB AAAB ; [.2A38.0020.0002][.2A48.0020.0002] # <TAI VIET VOWEL AUE, TAI VIET LETTER HIGH VO>
+AABC AAAB ; [.2A38.0020.0002][.2A49.0020.0002] # <TAI VIET VOWEL AY, TAI VIET LETTER HIGH VO>
+AAAC  ; [.2A39.0020.0002] # TAI VIET LETTER LOW HO
+AAB5 AAAC ; [.2A39.0020.0002][.2A42.0020.0002] # <TAI VIET VOWEL E, TAI VIET LETTER LOW HO>
+AAB6 AAAC ; [.2A39.0020.0002][.2A43.0020.0002] # <TAI VIET VOWEL O, TAI VIET LETTER LOW HO>
+AAB9 AAAC ; [.2A39.0020.0002][.2A46.0020.0002] # <TAI VIET VOWEL UEA, TAI VIET LETTER LOW HO>
+AABB AAAC ; [.2A39.0020.0002][.2A48.0020.0002] # <TAI VIET VOWEL AUE, TAI VIET LETTER LOW HO>
+AABC AAAC ; [.2A39.0020.0002][.2A49.0020.0002] # <TAI VIET VOWEL AY, TAI VIET LETTER LOW HO>
+AAAD  ; [.2A3A.0020.0002] # TAI VIET LETTER HIGH HO
+AAB5 AAAD ; [.2A3A.0020.0002][.2A42.0020.0002] # <TAI VIET VOWEL E, TAI VIET LETTER HIGH HO>
+AAB6 AAAD ; [.2A3A.0020.0002][.2A43.0020.0002] # <TAI VIET VOWEL O, TAI VIET LETTER HIGH HO>
+AAB9 AAAD ; [.2A3A.0020.0002][.2A46.0020.0002] # <TAI VIET VOWEL UEA, TAI VIET LETTER HIGH HO>
+AABB AAAD ; [.2A3A.0020.0002][.2A48.0020.0002] # <TAI VIET VOWEL AUE, TAI VIET LETTER HIGH HO>
+AABC AAAD ; [.2A3A.0020.0002][.2A49.0020.0002] # <TAI VIET VOWEL AY, TAI VIET LETTER HIGH HO>
+AAAE  ; [.2A3B.0020.0002] # TAI VIET LETTER LOW O
+AAB5 AAAE ; [.2A3B.0020.0002][.2A42.0020.0002] # <TAI VIET VOWEL E, TAI VIET LETTER LOW O>
+AAB6 AAAE ; [.2A3B.0020.0002][.2A43.0020.0002] # <TAI VIET VOWEL O, TAI VIET LETTER LOW O>
+AAB9 AAAE ; [.2A3B.0020.0002][.2A46.0020.0002] # <TAI VIET VOWEL UEA, TAI VIET LETTER LOW O>
+AABB AAAE ; [.2A3B.0020.0002][.2A48.0020.0002] # <TAI VIET VOWEL AUE, TAI VIET LETTER LOW O>
+AABC AAAE ; [.2A3B.0020.0002][.2A49.0020.0002] # <TAI VIET VOWEL AY, TAI VIET LETTER LOW O>
+AAAF  ; [.2A3C.0020.0002] # TAI VIET LETTER HIGH O
+AAB5 AAAF ; [.2A3C.0020.0002][.2A42.0020.0002] # <TAI VIET VOWEL E, TAI VIET LETTER HIGH O>
+AAB6 AAAF ; [.2A3C.0020.0002][.2A43.0020.0002] # <TAI VIET VOWEL O, TAI VIET LETTER HIGH O>
+AAB9 AAAF ; [.2A3C.0020.0002][.2A46.0020.0002] # <TAI VIET VOWEL UEA, TAI VIET LETTER HIGH O>
+AABB AAAF ; [.2A3C.0020.0002][.2A48.0020.0002] # <TAI VIET VOWEL AUE, TAI VIET LETTER HIGH O>
+AABC AAAF ; [.2A3C.0020.0002][.2A49.0020.0002] # <TAI VIET VOWEL AY, TAI VIET LETTER HIGH O>
+AAB0  ; [.2A3D.0020.0002] # TAI VIET MAI KANG
+AAB1  ; [.2A3E.0020.0002] # TAI VIET VOWEL AA
+AAB2  ; [.2A3F.0020.0002] # TAI VIET VOWEL I
+AAB3  ; [.2A40.0020.0002] # TAI VIET VOWEL UE
+AAB4  ; [.2A41.0020.0002] # TAI VIET VOWEL U
+AAB5  ; [.2A42.0020.0002] # TAI VIET VOWEL E
+AAB6  ; [.2A43.0020.0002] # TAI VIET VOWEL O
+AAB7  ; [.2A44.0020.0002] # TAI VIET MAI KHIT
+AAB8  ; [.2A45.0020.0002] # TAI VIET VOWEL IA
+AAB9  ; [.2A46.0020.0002] # TAI VIET VOWEL UEA
+AABA  ; [.2A47.0020.0002] # TAI VIET VOWEL UA
+AABB  ; [.2A48.0020.0002] # TAI VIET VOWEL AUE
+AABC  ; [.2A49.0020.0002] # TAI VIET VOWEL AY
+AABD  ; [.2A4A.0020.0002] # TAI VIET VOWEL AN
+AABE  ; [.2A4B.0020.0002] # TAI VIET VOWEL AM
+AAC0  ; [.2A4C.0020.0002] # TAI VIET TONE MAI NUENG
+AAC2  ; [.2A4D.0020.0002] # TAI VIET TONE MAI SONG
+AADB  ; [.2A4E.0020.0002] # TAI VIET SYMBOL KON
+AADC  ; [.2A4F.0020.0002] # TAI VIET SYMBOL NUENG
+0F40  ; [.2A50.0020.0002] # TIBETAN LETTER KA
+0F69  ; [.2A50.0020.0002][.2A91.0020.0002] # TIBETAN LETTER KSSA
+0F90  ; [.2A51.0020.0002] # TIBETAN SUBJOINED LETTER KA
+0FB9  ; [.2A51.0020.0002][.2A91.0020.0002] # TIBETAN SUBJOINED LETTER KSSA
+0F6B  ; [.2A52.0020.0002] # TIBETAN LETTER KKA
+0F41  ; [.2A53.0020.0002] # TIBETAN LETTER KHA
+0F91  ; [.2A54.0020.0002] # TIBETAN SUBJOINED LETTER KHA
+0F42  ; [.2A55.0020.0002] # TIBETAN LETTER GA
+0F43  ; [.2A55.0020.0002][.2A95.0020.0002] # TIBETAN LETTER GHA
+0F92  ; [.2A56.0020.0002] # TIBETAN SUBJOINED LETTER GA
+0F93  ; [.2A56.0020.0002][.2A95.0020.0002] # TIBETAN SUBJOINED LETTER GHA
+0F44  ; [.2A57.0020.0002] # TIBETAN LETTER NGA
+0F94  ; [.2A58.0020.0002] # TIBETAN SUBJOINED LETTER NGA
+0F45  ; [.2A59.0020.0002] # TIBETAN LETTER CA
+0F95  ; [.2A5A.0020.0002] # TIBETAN SUBJOINED LETTER CA
+0F46  ; [.2A5B.0020.0002] # TIBETAN LETTER CHA
+0F96  ; [.2A5C.0020.0002] # TIBETAN SUBJOINED LETTER CHA
+0F47  ; [.2A5D.0020.0002] # TIBETAN LETTER JA
+0F97  ; [.2A5E.0020.0002] # TIBETAN SUBJOINED LETTER JA
+0F49  ; [.2A5F.0020.0002] # TIBETAN LETTER NYA
+0F99  ; [.2A60.0020.0002] # TIBETAN SUBJOINED LETTER NYA
+0F4A  ; [.2A61.0020.0002] # TIBETAN LETTER TTA
+0F9A  ; [.2A62.0020.0002] # TIBETAN SUBJOINED LETTER TTA
+0F4B  ; [.2A63.0020.0002] # TIBETAN LETTER TTHA
+0F9B  ; [.2A64.0020.0002] # TIBETAN SUBJOINED LETTER TTHA
+0F4C  ; [.2A65.0020.0002] # TIBETAN LETTER DDA
+0F4D  ; [.2A65.0020.0002][.2A95.0020.0002] # TIBETAN LETTER DDHA
+0F9C  ; [.2A66.0020.0002] # TIBETAN SUBJOINED LETTER DDA
+0F9D  ; [.2A66.0020.0002][.2A95.0020.0002] # TIBETAN SUBJOINED LETTER DDHA
+0F4E  ; [.2A67.0020.0002] # TIBETAN LETTER NNA
+0F9E  ; [.2A68.0020.0002] # TIBETAN SUBJOINED LETTER NNA
+0F4F  ; [.2A69.0020.0002] # TIBETAN LETTER TA
+0F9F  ; [.2A6A.0020.0002] # TIBETAN SUBJOINED LETTER TA
+0F50  ; [.2A6B.0020.0002] # TIBETAN LETTER THA
+0FA0  ; [.2A6C.0020.0002] # TIBETAN SUBJOINED LETTER THA
+0F51  ; [.2A6D.0020.0002] # TIBETAN LETTER DA
+0F52  ; [.2A6D.0020.0002][.2A95.0020.0002] # TIBETAN LETTER DHA
+0FA1  ; [.2A6E.0020.0002] # TIBETAN SUBJOINED LETTER DA
+0FA2  ; [.2A6E.0020.0002][.2A95.0020.0002] # TIBETAN SUBJOINED LETTER DHA
+0F53  ; [.2A6F.0020.0002] # TIBETAN LETTER NA
+0FA3  ; [.2A70.0020.0002] # TIBETAN SUBJOINED LETTER NA
+0F54  ; [.2A71.0020.0002] # TIBETAN LETTER PA
+0FA4  ; [.2A72.0020.0002] # TIBETAN SUBJOINED LETTER PA
+0F55  ; [.2A73.0020.0002] # TIBETAN LETTER PHA
+0FA5  ; [.2A74.0020.0002] # TIBETAN SUBJOINED LETTER PHA
+0F56  ; [.2A75.0020.0002] # TIBETAN LETTER BA
+0F57  ; [.2A75.0020.0002][.2A95.0020.0002] # TIBETAN LETTER BHA
+0FA6  ; [.2A76.0020.0002] # TIBETAN SUBJOINED LETTER BA
+0FA7  ; [.2A76.0020.0002][.2A95.0020.0002] # TIBETAN SUBJOINED LETTER BHA
+0F58  ; [.2A77.0020.0002] # TIBETAN LETTER MA
+0FA8  ; [.2A78.0020.0002] # TIBETAN SUBJOINED LETTER MA
+0F59  ; [.2A79.0020.0002] # TIBETAN LETTER TSA
+0FA9  ; [.2A7A.0020.0002] # TIBETAN SUBJOINED LETTER TSA
+0F5A  ; [.2A7B.0020.0002] # TIBETAN LETTER TSHA
+0FAA  ; [.2A7C.0020.0002] # TIBETAN SUBJOINED LETTER TSHA
+0F5B  ; [.2A7D.0020.0002] # TIBETAN LETTER DZA
+0F5C  ; [.2A7D.0020.0002][.2A95.0020.0002] # TIBETAN LETTER DZHA
+0FAB  ; [.2A7E.0020.0002] # TIBETAN SUBJOINED LETTER DZA
+0FAC  ; [.2A7E.0020.0002][.2A95.0020.0002] # TIBETAN SUBJOINED LETTER DZHA
+0F5D  ; [.2A7F.0020.0002] # TIBETAN LETTER WA
+0FAD  ; [.2A80.0020.0002] # TIBETAN SUBJOINED LETTER WA
+0FBA  ; [.2A80.0020.0004][.0000.0109.0004] # TIBETAN SUBJOINED LETTER FIXED-FORM WA
+0F5E  ; [.2A81.0020.0002] # TIBETAN LETTER ZHA
+0FAE  ; [.2A82.0020.0002] # TIBETAN SUBJOINED LETTER ZHA
+0F5F  ; [.2A83.0020.0002] # TIBETAN LETTER ZA
+0FAF  ; [.2A84.0020.0002] # TIBETAN SUBJOINED LETTER ZA
+0F60  ; [.2A85.0020.0002] # TIBETAN LETTER -A
+0FB0  ; [.2A86.0020.0002] # TIBETAN SUBJOINED LETTER -A
+0F61  ; [.2A87.0020.0002] # TIBETAN LETTER YA
+0FB1  ; [.2A88.0020.0002] # TIBETAN SUBJOINED LETTER YA
+0FBB  ; [.2A88.0020.0004][.0000.0109.0004] # TIBETAN SUBJOINED LETTER FIXED-FORM YA
+0F62  ; [.2A89.0020.0002] # TIBETAN LETTER RA
+0F6A  ; [.2A89.0020.0004][.0000.0109.0004] # TIBETAN LETTER FIXED-FORM RA
+0FB2  ; [.2A8A.0020.0002] # TIBETAN SUBJOINED LETTER RA
+0FBC  ; [.2A8A.0020.0004][.0000.0109.0004] # TIBETAN SUBJOINED LETTER FIXED-FORM RA
+0F6C  ; [.2A8B.0020.0002] # TIBETAN LETTER RRA
+0F63  ; [.2A8C.0020.0002] # TIBETAN LETTER LA
+0FB3  ; [.2A8D.0020.0002] # TIBETAN SUBJOINED LETTER LA
+0F64  ; [.2A8E.0020.0002] # TIBETAN LETTER SHA
+0FB4  ; [.2A8F.0020.0002] # TIBETAN SUBJOINED LETTER SHA
+0F65  ; [.2A90.0020.0002] # TIBETAN LETTER SSA
+0FB5  ; [.2A91.0020.0002] # TIBETAN SUBJOINED LETTER SSA
+0F66  ; [.2A92.0020.0002] # TIBETAN LETTER SA
+0FB6  ; [.2A93.0020.0002] # TIBETAN SUBJOINED LETTER SA
+0F67  ; [.2A94.0020.0002] # TIBETAN LETTER HA
+0FB7  ; [.2A95.0020.0002] # TIBETAN SUBJOINED LETTER HA
+0F68  ; [.2A96.0020.0002] # TIBETAN LETTER A
+0F00  ; [.2A96.0020.0004][.2AAD.0020.0004][.0000.00BE.0004] # TIBETAN SYLLABLE OM
+0FB8  ; [.2A97.0020.0002] # TIBETAN SUBJOINED LETTER A
+0F88  ; [.2A98.0020.0002] # TIBETAN SIGN LCE TSA CAN
+0F8D  ; [.2A99.0020.0002] # TIBETAN SUBJOINED SIGN LCE TSA CAN
+0F89  ; [.2A9A.0020.0002] # TIBETAN SIGN MCHU CAN
+0F8E  ; [.2A9B.0020.0002] # TIBETAN SUBJOINED SIGN MCHU CAN
+0F8C  ; [.2A9C.0020.0002] # TIBETAN SIGN INVERTED MCHU CAN
+0F8F  ; [.2A9D.0020.0002] # TIBETAN SUBJOINED SIGN INVERTED MCHU CAN
+0F8A  ; [.2A9E.0020.0002] # TIBETAN SIGN GRU CAN RGYINGS
+0F8B  ; [.2A9F.0020.0002] # TIBETAN SIGN GRU MED RGYINGS
+0F71  ; [.2AA0.0020.0002] # TIBETAN VOWEL SIGN AA
+0F72  ; [.2AA1.0020.0002] # TIBETAN VOWEL SIGN I
+0F73  ; [.2AA2.0020.0002] # TIBETAN VOWEL SIGN II
+0F71 0F72 ; [.2AA2.0020.0002] # TIBETAN VOWEL SIGN II
+0F80  ; [.2AA3.0020.0002] # TIBETAN VOWEL SIGN REVERSED I
+0F81  ; [.2AA4.0020.0002] # TIBETAN VOWEL SIGN REVERSED II
+0F71 0F80 ; [.2AA4.0020.0002] # TIBETAN VOWEL SIGN REVERSED II
+0F74  ; [.2AA5.0020.0002] # TIBETAN VOWEL SIGN U
+0F75  ; [.2AA6.0020.0002] # TIBETAN VOWEL SIGN UU
+0F71 0F74 ; [.2AA6.0020.0002] # TIBETAN VOWEL SIGN UU
+0F76  ; [.2AA7.0020.0002] # TIBETAN VOWEL SIGN VOCALIC R
+0FB2 0F80 ; [.2AA7.0020.0002] # TIBETAN VOWEL SIGN VOCALIC R
+0F77  ; [.2AA8.0020.0002] # TIBETAN VOWEL SIGN VOCALIC RR
+0FB2 0F71 0F80 ; [.2AA8.0020.0002] # TIBETAN VOWEL SIGN VOCALIC RR
+0FB2 0F81 ; [.2AA8.0020.0002] # TIBETAN VOWEL SIGN VOCALIC RR
+0F78  ; [.2AA9.0020.0002] # TIBETAN VOWEL SIGN VOCALIC L
+0FB3 0F80 ; [.2AA9.0020.0002] # TIBETAN VOWEL SIGN VOCALIC L
+0F79  ; [.2AAA.0020.0002] # TIBETAN VOWEL SIGN VOCALIC LL
+0FB3 0F71 0F80 ; [.2AAA.0020.0002] # TIBETAN VOWEL SIGN VOCALIC LL
+0FB3 0F81 ; [.2AAA.0020.0002] # TIBETAN VOWEL SIGN VOCALIC LL
+0F7A  ; [.2AAB.0020.0002] # TIBETAN VOWEL SIGN E
+0F7B  ; [.2AAC.0020.0002] # TIBETAN VOWEL SIGN EE
+0F7C  ; [.2AAD.0020.0002] # TIBETAN VOWEL SIGN O
+0F7D  ; [.2AAE.0020.0002] # TIBETAN VOWEL SIGN OO
+0F84  ; [.2AAF.0020.0002] # TIBETAN MARK HALANTA
+1C00  ; [.2AB0.0020.0002] # LEPCHA LETTER KA
+1C01  ; [.2AB1.0020.0002] # LEPCHA LETTER KLA
+1C02  ; [.2AB2.0020.0002] # LEPCHA LETTER KHA
+1C03  ; [.2AB3.0020.0002] # LEPCHA LETTER GA
+1C04  ; [.2AB4.0020.0002] # LEPCHA LETTER GLA
+1C05  ; [.2AB5.0020.0002] # LEPCHA LETTER NGA
+1C06  ; [.2AB6.0020.0002] # LEPCHA LETTER CA
+1C07  ; [.2AB7.0020.0002] # LEPCHA LETTER CHA
+1C08  ; [.2AB8.0020.0002] # LEPCHA LETTER JA
+1C09  ; [.2AB9.0020.0002] # LEPCHA LETTER NYA
+1C4D  ; [.2ABA.0020.0002] # LEPCHA LETTER TTA
+1C4E  ; [.2ABB.0020.0002] # LEPCHA LETTER TTHA
+1C4F  ; [.2ABC.0020.0002] # LEPCHA LETTER DDA
+1C0A  ; [.2ABD.0020.0002] # LEPCHA LETTER TA
+1C0B  ; [.2ABE.0020.0002] # LEPCHA LETTER THA
+1C0C  ; [.2ABF.0020.0002] # LEPCHA LETTER DA
+1C0D  ; [.2AC0.0020.0002] # LEPCHA LETTER NA
+1C0E  ; [.2AC1.0020.0002] # LEPCHA LETTER PA
+1C0F  ; [.2AC2.0020.0002] # LEPCHA LETTER PLA
+1C10  ; [.2AC3.0020.0002] # LEPCHA LETTER PHA
+1C11  ; [.2AC4.0020.0002] # LEPCHA LETTER FA
+1C12  ; [.2AC5.0020.0002] # LEPCHA LETTER FLA
+1C13  ; [.2AC6.0020.0002] # LEPCHA LETTER BA
+1C14  ; [.2AC7.0020.0002] # LEPCHA LETTER BLA
+1C15  ; [.2AC8.0020.0002] # LEPCHA LETTER MA
+1C16  ; [.2AC9.0020.0002] # LEPCHA LETTER MLA
+1C17  ; [.2ACA.0020.0002] # LEPCHA LETTER TSA
+1C18  ; [.2ACB.0020.0002] # LEPCHA LETTER TSHA
+1C19  ; [.2ACC.0020.0002] # LEPCHA LETTER DZA
+1C1A  ; [.2ACD.0020.0002] # LEPCHA LETTER YA
+1C24  ; [.2ACE.0020.0002] # LEPCHA SUBJOINED LETTER YA
+1C1B  ; [.2ACF.0020.0002] # LEPCHA LETTER RA
+1C25  ; [.2AD0.0020.0002] # LEPCHA SUBJOINED LETTER RA
+1C1C  ; [.2AD1.0020.0002] # LEPCHA LETTER LA
+1C1D  ; [.2AD2.0020.0002] # LEPCHA LETTER HA
+1C1E  ; [.2AD3.0020.0002] # LEPCHA LETTER HLA
+1C1F  ; [.2AD4.0020.0002] # LEPCHA LETTER VA
+1C20  ; [.2AD5.0020.0002] # LEPCHA LETTER SA
+1C21  ; [.2AD6.0020.0002] # LEPCHA LETTER SHA
+1C22  ; [.2AD7.0020.0002] # LEPCHA LETTER WA
+1C23  ; [.2AD8.0020.0002] # LEPCHA LETTER A
+1C36  ; [.2AD9.0020.0002] # LEPCHA SIGN RAN
+1C26  ; [.2ADA.0020.0002] # LEPCHA VOWEL SIGN AA
+1C27  ; [.2ADB.0020.0002] # LEPCHA VOWEL SIGN I
+1C28  ; [.2ADC.0020.0002] # LEPCHA VOWEL SIGN O
+1C29  ; [.2ADD.0020.0002] # LEPCHA VOWEL SIGN OO
+1C2A  ; [.2ADE.0020.0002] # LEPCHA VOWEL SIGN U
+1C2B  ; [.2ADF.0020.0002] # LEPCHA VOWEL SIGN UU
+1C2C  ; [.2AE0.0020.0002] # LEPCHA VOWEL SIGN E
+1C2D  ; [.2AE1.0020.0002] # LEPCHA CONSONANT SIGN K
+1C2E  ; [.2AE2.0020.0002] # LEPCHA CONSONANT SIGN M
+1C2F  ; [.2AE3.0020.0002] # LEPCHA CONSONANT SIGN L
+1C30  ; [.2AE4.0020.0002] # LEPCHA CONSONANT SIGN N
+1C31  ; [.2AE5.0020.0002] # LEPCHA CONSONANT SIGN P
+1C32  ; [.2AE6.0020.0002] # LEPCHA CONSONANT SIGN R
+1C33  ; [.2AE7.0020.0002] # LEPCHA CONSONANT SIGN T
+1C34  ; [.2AE8.0020.0002] # LEPCHA CONSONANT SIGN NYIN-DO
+1C35  ; [.2AE9.0020.0002] # LEPCHA CONSONANT SIGN KANG
+A840  ; [.2AEA.0020.0002] # PHAGS-PA LETTER KA
+A841  ; [.2AEB.0020.0002] # PHAGS-PA LETTER KHA
+A842  ; [.2AEC.0020.0002] # PHAGS-PA LETTER GA
+A843  ; [.2AED.0020.0002] # PHAGS-PA LETTER NGA
+A844  ; [.2AEE.0020.0002] # PHAGS-PA LETTER CA
+A845  ; [.2AEF.0020.0002] # PHAGS-PA LETTER CHA
+A846  ; [.2AF0.0020.0002] # PHAGS-PA LETTER JA
+A847  ; [.2AF1.0020.0002] # PHAGS-PA LETTER NYA
+A869  ; [.2AF2.0020.0002] # PHAGS-PA LETTER TTA
+A86A  ; [.2AF3.0020.0002] # PHAGS-PA LETTER TTHA
+A86B  ; [.2AF4.0020.0002] # PHAGS-PA LETTER DDA
+A86C  ; [.2AF5.0020.0002] # PHAGS-PA LETTER NNA
+A848  ; [.2AF6.0020.0002] # PHAGS-PA LETTER TA
+A849  ; [.2AF7.0020.0002] # PHAGS-PA LETTER THA
+A84A  ; [.2AF8.0020.0002] # PHAGS-PA LETTER DA
+A84B  ; [.2AF9.0020.0002] # PHAGS-PA LETTER NA
+A84C  ; [.2AFA.0020.0002] # PHAGS-PA LETTER PA
+A84D  ; [.2AFB.0020.0002] # PHAGS-PA LETTER PHA
+A84E  ; [.2AFC.0020.0002] # PHAGS-PA LETTER BA
+A84F  ; [.2AFD.0020.0002] # PHAGS-PA LETTER MA
+A850  ; [.2AFE.0020.0002] # PHAGS-PA LETTER TSA
+A851  ; [.2AFF.0020.0002] # PHAGS-PA LETTER TSHA
+A852  ; [.2B00.0020.0002] # PHAGS-PA LETTER DZA
+A853  ; [.2B01.0020.0002] # PHAGS-PA LETTER WA
+A867  ; [.2B02.0020.0002] # PHAGS-PA SUBJOINED LETTER WA
+A854  ; [.2B03.0020.0002] # PHAGS-PA LETTER ZHA
+A855  ; [.2B04.0020.0002] # PHAGS-PA LETTER ZA
+A856  ; [.2B05.0020.0002] # PHAGS-PA LETTER SMALL A
+A857  ; [.2B06.0020.0002] # PHAGS-PA LETTER YA
+A868  ; [.2B07.0020.0002] # PHAGS-PA SUBJOINED LETTER YA
+A86D  ; [.2B08.0020.0002] # PHAGS-PA LETTER ALTERNATE YA
+A858  ; [.2B09.0020.0002] # PHAGS-PA LETTER RA
+A871  ; [.2B0A.0020.0002] # PHAGS-PA SUBJOINED LETTER RA
+A872  ; [.2B0B.0020.0002] # PHAGS-PA SUPERFIXED LETTER RA
+A859  ; [.2B0C.0020.0002] # PHAGS-PA LETTER LA
+A85A  ; [.2B0D.0020.0002] # PHAGS-PA LETTER SHA
+A86E  ; [.2B0E.0020.0002] # PHAGS-PA LETTER VOICELESS SHA
+A85B  ; [.2B0F.0020.0002] # PHAGS-PA LETTER SA
+A85C  ; [.2B10.0020.0002] # PHAGS-PA LETTER HA
+A86F  ; [.2B11.0020.0002] # PHAGS-PA LETTER VOICED HA
+A870  ; [.2B12.0020.0002] # PHAGS-PA LETTER ASPIRATED FA
+A85D  ; [.2B13.0020.0002] # PHAGS-PA LETTER A
+A862  ; [.2B14.0020.0002] # PHAGS-PA LETTER QA
+A863  ; [.2B15.0020.0002] # PHAGS-PA LETTER XA
+A864  ; [.2B16.0020.0002] # PHAGS-PA LETTER FA
+A865  ; [.2B17.0020.0002] # PHAGS-PA LETTER GGA
+A85E  ; [.2B18.0020.0002] # PHAGS-PA LETTER I
+A85F  ; [.2B19.0020.0002] # PHAGS-PA LETTER U
+A860  ; [.2B1A.0020.0002] # PHAGS-PA LETTER E
+A861  ; [.2B1B.0020.0002] # PHAGS-PA LETTER O
+A866  ; [.2B1C.0020.0002] # PHAGS-PA LETTER EE
+A873  ; [.2B1D.0020.0002] # PHAGS-PA LETTER CANDRABINDU
+1900  ; [.2B1E.0020.0002] # LIMBU VOWEL-CARRIER LETTER
+1901  ; [.2B1F.0020.0002] # LIMBU LETTER KA
+1902  ; [.2B20.0020.0002] # LIMBU LETTER KHA
+1903  ; [.2B21.0020.0002] # LIMBU LETTER GA
+1904  ; [.2B22.0020.0002] # LIMBU LETTER GHA
+1905  ; [.2B23.0020.0002] # LIMBU LETTER NGA
+1906  ; [.2B24.0020.0002] # LIMBU LETTER CA
+1907  ; [.2B25.0020.0002] # LIMBU LETTER CHA
+1908  ; [.2B26.0020.0002] # LIMBU LETTER JA
+191D  ; [.2B26.0020.0004][.2B44.0020.0004] # LIMBU LETTER GYAN
+1909  ; [.2B27.0020.0002] # LIMBU LETTER JHA
+190A  ; [.2B28.0020.0002] # LIMBU LETTER YAN
+190B  ; [.2B29.0020.0002] # LIMBU LETTER TA
+191E  ; [.2B29.0020.0004][.2B45.0020.0004] # LIMBU LETTER TRA
+190C  ; [.2B2A.0020.0002] # LIMBU LETTER THA
+190D  ; [.2B2B.0020.0002] # LIMBU LETTER DA
+190E  ; [.2B2C.0020.0002] # LIMBU LETTER DHA
+190F  ; [.2B2D.0020.0002] # LIMBU LETTER NA
+1910  ; [.2B2E.0020.0002] # LIMBU LETTER PA
+1911  ; [.2B2F.0020.0002] # LIMBU LETTER PHA
+1912  ; [.2B30.0020.0002] # LIMBU LETTER BA
+1913  ; [.2B31.0020.0002] # LIMBU LETTER BHA
+1914  ; [.2B32.0020.0002] # LIMBU LETTER MA
+1915  ; [.2B33.0020.0002] # LIMBU LETTER YA
+1916  ; [.2B34.0020.0002] # LIMBU LETTER RA
+1917  ; [.2B35.0020.0002] # LIMBU LETTER LA
+1918  ; [.2B36.0020.0002] # LIMBU LETTER WA
+1919  ; [.2B37.0020.0002] # LIMBU LETTER SHA
+191A  ; [.2B38.0020.0002] # LIMBU LETTER SSA
+191B  ; [.2B39.0020.0002] # LIMBU LETTER SA
+191C  ; [.2B3A.0020.0002] # LIMBU LETTER HA
+1920  ; [.2B3B.0020.0002] # LIMBU VOWEL SIGN A
+1921  ; [.2B3C.0020.0002] # LIMBU VOWEL SIGN I
+1922  ; [.2B3D.0020.0002] # LIMBU VOWEL SIGN U
+1923  ; [.2B3E.0020.0002] # LIMBU VOWEL SIGN EE
+1924  ; [.2B3F.0020.0002] # LIMBU VOWEL SIGN AI
+1925  ; [.2B40.0020.0002] # LIMBU VOWEL SIGN OO
+1926  ; [.2B41.0020.0002] # LIMBU VOWEL SIGN AU
+1927  ; [.2B42.0020.0002] # LIMBU VOWEL SIGN E
+1928  ; [.2B43.0020.0002] # LIMBU VOWEL SIGN O
+1929  ; [.2B44.0020.0002] # LIMBU SUBJOINED LETTER YA
+192A  ; [.2B45.0020.0002] # LIMBU SUBJOINED LETTER RA
+192B  ; [.2B46.0020.0002] # LIMBU SUBJOINED LETTER WA
+1930  ; [.2B47.0020.0002] # LIMBU SMALL LETTER KA
+1931  ; [.2B48.0020.0002] # LIMBU SMALL LETTER NGA
+1932  ; [.2B49.0020.0002] # LIMBU SMALL LETTER ANUSVARA
+1933  ; [.2B4A.0020.0002] # LIMBU SMALL LETTER TA
+1934  ; [.2B4B.0020.0002] # LIMBU SMALL LETTER NA
+1935  ; [.2B4C.0020.0002] # LIMBU SMALL LETTER PA
+1936  ; [.2B4D.0020.0002] # LIMBU SMALL LETTER MA
+1937  ; [.2B4E.0020.0002] # LIMBU SMALL LETTER RA
+1938  ; [.2B4F.0020.0002] # LIMBU SMALL LETTER LA
+1700  ; [.2B50.0020.0002] # TAGALOG LETTER A
+1701  ; [.2B51.0020.0002] # TAGALOG LETTER I
+1702  ; [.2B52.0020.0002] # TAGALOG LETTER U
+1703  ; [.2B53.0020.0002] # TAGALOG LETTER KA
+1704  ; [.2B54.0020.0002] # TAGALOG LETTER GA
+1705  ; [.2B55.0020.0002] # TAGALOG LETTER NGA
+1706  ; [.2B56.0020.0002] # TAGALOG LETTER TA
+1707  ; [.2B57.0020.0002] # TAGALOG LETTER DA
+1708  ; [.2B58.0020.0002] # TAGALOG LETTER NA
+1709  ; [.2B59.0020.0002] # TAGALOG LETTER PA
+170A  ; [.2B5A.0020.0002] # TAGALOG LETTER BA
+170B  ; [.2B5B.0020.0002] # TAGALOG LETTER MA
+170C  ; [.2B5C.0020.0002] # TAGALOG LETTER YA
+170E  ; [.2B5D.0020.0002] # TAGALOG LETTER LA
+170F  ; [.2B5E.0020.0002] # TAGALOG LETTER WA
+1710  ; [.2B5F.0020.0002] # TAGALOG LETTER SA
+1711  ; [.2B60.0020.0002] # TAGALOG LETTER HA
+1712  ; [.2B61.0020.0002] # TAGALOG VOWEL SIGN I
+1713  ; [.2B62.0020.0002] # TAGALOG VOWEL SIGN U
+1714  ; [.2B63.0020.0002] # TAGALOG SIGN VIRAMA
+1720  ; [.2B64.0020.0002] # HANUNOO LETTER A
+1721  ; [.2B65.0020.0002] # HANUNOO LETTER I
+1722  ; [.2B66.0020.0002] # HANUNOO LETTER U
+1723  ; [.2B67.0020.0002] # HANUNOO LETTER KA
+1724  ; [.2B68.0020.0002] # HANUNOO LETTER GA
+1725  ; [.2B69.0020.0002] # HANUNOO LETTER NGA
+1726  ; [.2B6A.0020.0002] # HANUNOO LETTER TA
+1727  ; [.2B6B.0020.0002] # HANUNOO LETTER DA
+1728  ; [.2B6C.0020.0002] # HANUNOO LETTER NA
+1729  ; [.2B6D.0020.0002] # HANUNOO LETTER PA
+172A  ; [.2B6E.0020.0002] # HANUNOO LETTER BA
+172B  ; [.2B6F.0020.0002] # HANUNOO LETTER MA
+172C  ; [.2B70.0020.0002] # HANUNOO LETTER YA
+172D  ; [.2B71.0020.0002] # HANUNOO LETTER RA
+172E  ; [.2B72.0020.0002] # HANUNOO LETTER LA
+172F  ; [.2B73.0020.0002] # HANUNOO LETTER WA
+1730  ; [.2B74.0020.0002] # HANUNOO LETTER SA
+1731  ; [.2B75.0020.0002] # HANUNOO LETTER HA
+1732  ; [.2B76.0020.0002] # HANUNOO VOWEL SIGN I
+1733  ; [.2B77.0020.0002] # HANUNOO VOWEL SIGN U
+1734  ; [.2B78.0020.0002] # HANUNOO SIGN PAMUDPOD
+1740  ; [.2B79.0020.0002] # BUHID LETTER A
+1741  ; [.2B7A.0020.0002] # BUHID LETTER I
+1742  ; [.2B7B.0020.0002] # BUHID LETTER U
+1743  ; [.2B7C.0020.0002] # BUHID LETTER KA
+1744  ; [.2B7D.0020.0002] # BUHID LETTER GA
+1745  ; [.2B7E.0020.0002] # BUHID LETTER NGA
+1746  ; [.2B7F.0020.0002] # BUHID LETTER TA
+1747  ; [.2B80.0020.0002] # BUHID LETTER DA
+1748  ; [.2B81.0020.0002] # BUHID LETTER NA
+1749  ; [.2B82.0020.0002] # BUHID LETTER PA
+174A  ; [.2B83.0020.0002] # BUHID LETTER BA
+174B  ; [.2B84.0020.0002] # BUHID LETTER MA
+174C  ; [.2B85.0020.0002] # BUHID LETTER YA
+174D  ; [.2B86.0020.0002] # BUHID LETTER RA
+174E  ; [.2B87.0020.0002] # BUHID LETTER LA
+174F  ; [.2B88.0020.0002] # BUHID LETTER WA
+1750  ; [.2B89.0020.0002] # BUHID LETTER SA
+1751  ; [.2B8A.0020.0002] # BUHID LETTER HA
+1752  ; [.2B8B.0020.0002] # BUHID VOWEL SIGN I
+1753  ; [.2B8C.0020.0002] # BUHID VOWEL SIGN U
+1760  ; [.2B8D.0020.0002] # TAGBANWA LETTER A
+1761  ; [.2B8E.0020.0002] # TAGBANWA LETTER I
+1762  ; [.2B8F.0020.0002] # TAGBANWA LETTER U
+1763  ; [.2B90.0020.0002] # TAGBANWA LETTER KA
+1764  ; [.2B91.0020.0002] # TAGBANWA LETTER GA
+1765  ; [.2B92.0020.0002] # TAGBANWA LETTER NGA
+1766  ; [.2B93.0020.0002] # TAGBANWA LETTER TA
+1767  ; [.2B94.0020.0002] # TAGBANWA LETTER DA
+1768  ; [.2B95.0020.0002] # TAGBANWA LETTER NA
+1769  ; [.2B96.0020.0002] # TAGBANWA LETTER PA
+176A  ; [.2B97.0020.0002] # TAGBANWA LETTER BA
+176B  ; [.2B98.0020.0002] # TAGBANWA LETTER MA
+176C  ; [.2B99.0020.0002] # TAGBANWA LETTER YA
+176E  ; [.2B9A.0020.0002] # TAGBANWA LETTER LA
+176F  ; [.2B9B.0020.0002] # TAGBANWA LETTER WA
+1770  ; [.2B9C.0020.0002] # TAGBANWA LETTER SA
+1772  ; [.2B9D.0020.0002] # TAGBANWA VOWEL SIGN I
+1773  ; [.2B9E.0020.0002] # TAGBANWA VOWEL SIGN U
+1A00  ; [.2B9F.0020.0002] # BUGINESE LETTER KA
+1A01  ; [.2BA0.0020.0002] # BUGINESE LETTER GA
+1A02  ; [.2BA1.0020.0002] # BUGINESE LETTER NGA
+1A03  ; [.2BA2.0020.0002] # BUGINESE LETTER NGKA
+1A04  ; [.2BA3.0020.0002] # BUGINESE LETTER PA
+1A05  ; [.2BA4.0020.0002] # BUGINESE LETTER BA
+1A06  ; [.2BA5.0020.0002] # BUGINESE LETTER MA
+1A07  ; [.2BA6.0020.0002] # BUGINESE LETTER MPA
+1A08  ; [.2BA7.0020.0002] # BUGINESE LETTER TA
+1A09  ; [.2BA8.0020.0002] # BUGINESE LETTER DA
+1A0A  ; [.2BA9.0020.0002] # BUGINESE LETTER NA
+1A0B  ; [.2BAA.0020.0002] # BUGINESE LETTER NRA
+1A0C  ; [.2BAB.0020.0002] # BUGINESE LETTER CA
+1A0D  ; [.2BAC.0020.0002] # BUGINESE LETTER JA
+1A0E  ; [.2BAD.0020.0002] # BUGINESE LETTER NYA
+1A0F  ; [.2BAE.0020.0002] # BUGINESE LETTER NYCA
+1A10  ; [.2BAF.0020.0002] # BUGINESE LETTER YA
+1A11  ; [.2BB0.0020.0002] # BUGINESE LETTER RA
+1A12  ; [.2BB1.0020.0002] # BUGINESE LETTER LA
+1A13  ; [.2BB2.0020.0002] # BUGINESE LETTER VA
+1A14  ; [.2BB3.0020.0002] # BUGINESE LETTER SA
+1A15  ; [.2BB4.0020.0002] # BUGINESE LETTER A
+1A16  ; [.2BB5.0020.0002] # BUGINESE LETTER HA
+1A17  ; [.2BB6.0020.0002] # BUGINESE VOWEL SIGN I
+1A18  ; [.2BB7.0020.0002] # BUGINESE VOWEL SIGN U
+1A19  ; [.2BB8.0020.0002] # BUGINESE VOWEL SIGN E
+1A1A  ; [.2BB9.0020.0002] # BUGINESE VOWEL SIGN O
+1A1B  ; [.2BBA.0020.0002] # BUGINESE VOWEL SIGN AE
+1BC0  ; [.2BBB.0020.0002] # BATAK LETTER A
+1BC1  ; [.2BBB.0020.0004] # BATAK LETTER SIMALUNGUN A
+1BC2  ; [.2BBC.0020.0002] # BATAK LETTER HA
+1BC3  ; [.2BBC.0020.0004] # BATAK LETTER SIMALUNGUN HA
+1BC4  ; [.2BBC.0020.0004] # BATAK LETTER MANDAILING HA
+1BC5  ; [.2BBD.0020.0002] # BATAK LETTER BA
+1BC6  ; [.2BBD.0020.0004] # BATAK LETTER KARO BA
+1BC7  ; [.2BBE.0020.0002] # BATAK LETTER PA
+1BC8  ; [.2BBE.0020.0004] # BATAK LETTER SIMALUNGUN PA
+1BC9  ; [.2BBF.0020.0002] # BATAK LETTER NA
+1BCA  ; [.2BBF.0020.0004] # BATAK LETTER MANDAILING NA
+1BCB  ; [.2BC0.0020.0002] # BATAK LETTER WA
+1BCC  ; [.2BC0.0020.0004] # BATAK LETTER SIMALUNGUN WA
+1BCD  ; [.2BC0.0020.0004] # BATAK LETTER PAKPAK WA
+1BCE  ; [.2BC1.0020.0002] # BATAK LETTER GA
+1BCF  ; [.2BC1.0020.0004] # BATAK LETTER SIMALUNGUN GA
+1BD0  ; [.2BC2.0020.0002] # BATAK LETTER JA
+1BD1  ; [.2BC3.0020.0002] # BATAK LETTER DA
+1BD2  ; [.2BC4.0020.0002] # BATAK LETTER RA
+1BD3  ; [.2BC4.0020.0004] # BATAK LETTER SIMALUNGUN RA
+1BD4  ; [.2BC5.0020.0002] # BATAK LETTER MA
+1BD5  ; [.2BC5.0020.0004] # BATAK LETTER SIMALUNGUN MA
+1BD6  ; [.2BC6.0020.0002] # BATAK LETTER SOUTHERN TA
+1BD7  ; [.2BC6.0020.0004] # BATAK LETTER NORTHERN TA
+1BD8  ; [.2BC7.0020.0002] # BATAK LETTER SA
+1BD9  ; [.2BC7.0020.0004] # BATAK LETTER SIMALUNGUN SA
+1BDA  ; [.2BC7.0020.0004] # BATAK LETTER MANDAILING SA
+1BDB  ; [.2BC8.0020.0002] # BATAK LETTER YA
+1BDC  ; [.2BC8.0020.0004] # BATAK LETTER SIMALUNGUN YA
+1BDD  ; [.2BC9.0020.0002] # BATAK LETTER NGA
+1BDE  ; [.2BCA.0020.0002] # BATAK LETTER LA
+1BDF  ; [.2BCA.0020.0004] # BATAK LETTER SIMALUNGUN LA
+1BE0  ; [.2BCB.0020.0002] # BATAK LETTER NYA
+1BE1  ; [.2BCC.0020.0002] # BATAK LETTER CA
+1BE2  ; [.2BCD.0020.0002] # BATAK LETTER NDA
+1BE3  ; [.2BCE.0020.0002] # BATAK LETTER MBA
+1BE4  ; [.2BCF.0020.0002] # BATAK LETTER I
+1BE5  ; [.2BD0.0020.0002] # BATAK LETTER U
+1BE7  ; [.2BD1.0020.0002] # BATAK VOWEL SIGN E
+1BE8  ; [.2BD1.0020.0004] # BATAK VOWEL SIGN PAKPAK E
+1BE9  ; [.2BD2.0020.0002] # BATAK VOWEL SIGN EE
+1BEA  ; [.2BD3.0020.0002] # BATAK VOWEL SIGN I
+1BEB  ; [.2BD3.0020.0004] # BATAK VOWEL SIGN KARO I
+1BEC  ; [.2BD4.0020.0002] # BATAK VOWEL SIGN O
+1BED  ; [.2BD4.0020.0004] # BATAK VOWEL SIGN KARO O
+1BEE  ; [.2BD5.0020.0002] # BATAK VOWEL SIGN U
+1BEF  ; [.2BD5.0020.0004] # BATAK VOWEL SIGN U FOR SIMALUNGUN SA
+1BF0  ; [.2BD6.0020.0002] # BATAK CONSONANT SIGN NG
+1BF1  ; [.2BD7.0020.0002] # BATAK CONSONANT SIGN H
+1BF2  ; [.2BD8.0020.0002] # BATAK PANGOLAT
+1BF3  ; [.2BD9.0020.0002] # BATAK PANONGONAN
+A930  ; [.2BDA.0020.0002] # REJANG LETTER KA
+A931  ; [.2BDB.0020.0002] # REJANG LETTER GA
+A932  ; [.2BDC.0020.0002] # REJANG LETTER NGA
+A933  ; [.2BDD.0020.0002] # REJANG LETTER TA
+A934  ; [.2BDE.0020.0002] # REJANG LETTER DA
+A935  ; [.2BDF.0020.0002] # REJANG LETTER NA
+A936  ; [.2BE0.0020.0002] # REJANG LETTER PA
+A937  ; [.2BE1.0020.0002] # REJANG LETTER BA
+A938  ; [.2BE2.0020.0002] # REJANG LETTER MA
+A939  ; [.2BE3.0020.0002] # REJANG LETTER CA
+A93A  ; [.2BE4.0020.0002] # REJANG LETTER JA
+A93B  ; [.2BE5.0020.0002] # REJANG LETTER NYA
+A93C  ; [.2BE6.0020.0002] # REJANG LETTER SA
+A93D  ; [.2BE7.0020.0002] # REJANG LETTER RA
+A93E  ; [.2BE8.0020.0002] # REJANG LETTER LA
+A93F  ; [.2BE9.0020.0002] # REJANG LETTER YA
+A940  ; [.2BEA.0020.0002] # REJANG LETTER WA
+A941  ; [.2BEB.0020.0002] # REJANG LETTER HA
+A942  ; [.2BEC.0020.0002] # REJANG LETTER MBA
+A943  ; [.2BED.0020.0002] # REJANG LETTER NGGA
+A944  ; [.2BEE.0020.0002] # REJANG LETTER NDA
+A945  ; [.2BEF.0020.0002] # REJANG LETTER NYJA
+A946  ; [.2BF0.0020.0002] # REJANG LETTER A
+A947  ; [.2BF1.0020.0002] # REJANG VOWEL SIGN I
+A948  ; [.2BF2.0020.0002] # REJANG VOWEL SIGN U
+A949  ; [.2BF3.0020.0002] # REJANG VOWEL SIGN E
+A94A  ; [.2BF4.0020.0002] # REJANG VOWEL SIGN AI
+A94B  ; [.2BF5.0020.0002] # REJANG VOWEL SIGN O
+A94C  ; [.2BF6.0020.0002] # REJANG VOWEL SIGN AU
+A94D  ; [.2BF7.0020.0002] # REJANG VOWEL SIGN EU
+A94E  ; [.2BF8.0020.0002] # REJANG VOWEL SIGN EA
+A94F  ; [.2BF9.0020.0002] # REJANG CONSONANT SIGN NG
+A950  ; [.2BFA.0020.0002] # REJANG CONSONANT SIGN N
+A951  ; [.2BFB.0020.0002] # REJANG CONSONANT SIGN R
+A952  ; [.2BFC.0020.0002] # REJANG CONSONANT SIGN H
+A953  ; [.2BFD.0020.0002] # REJANG VIRAMA
+A90A  ; [.2BFE.0020.0002] # KAYAH LI LETTER KA
+A90B  ; [.2BFF.0020.0002] # KAYAH LI LETTER KHA
+A90C  ; [.2C00.0020.0002] # KAYAH LI LETTER GA
+A90D  ; [.2C01.0020.0002] # KAYAH LI LETTER NGA
+A90E  ; [.2C02.0020.0002] # KAYAH LI LETTER SA
+A90F  ; [.2C03.0020.0002] # KAYAH LI LETTER SHA
+A910  ; [.2C04.0020.0002] # KAYAH LI LETTER ZA
+A911  ; [.2C05.0020.0002] # KAYAH LI LETTER NYA
+A912  ; [.2C06.0020.0002] # KAYAH LI LETTER TA
+A913  ; [.2C07.0020.0002] # KAYAH LI LETTER HTA
+A914  ; [.2C08.0020.0002] # KAYAH LI LETTER NA
+A915  ; [.2C09.0020.0002] # KAYAH LI LETTER PA
+A916  ; [.2C0A.0020.0002] # KAYAH LI LETTER PHA
+A917  ; [.2C0B.0020.0002] # KAYAH LI LETTER MA
+A918  ; [.2C0C.0020.0002] # KAYAH LI LETTER DA
+A919  ; [.2C0D.0020.0002] # KAYAH LI LETTER BA
+A91A  ; [.2C0E.0020.0002] # KAYAH LI LETTER RA
+A91B  ; [.2C0F.0020.0002] # KAYAH LI LETTER YA
+A91C  ; [.2C10.0020.0002] # KAYAH LI LETTER LA
+A91D  ; [.2C11.0020.0002] # KAYAH LI LETTER WA
+A91E  ; [.2C12.0020.0002] # KAYAH LI LETTER THA
+A91F  ; [.2C13.0020.0002] # KAYAH LI LETTER HA
+A920  ; [.2C14.0020.0002] # KAYAH LI LETTER VA
+A921  ; [.2C15.0020.0002] # KAYAH LI LETTER CA
+A922  ; [.2C16.0020.0002] # KAYAH LI LETTER A
+A923  ; [.2C17.0020.0002] # KAYAH LI LETTER OE
+A924  ; [.2C18.0020.0002] # KAYAH LI LETTER I
+A925  ; [.2C19.0020.0002] # KAYAH LI LETTER OO
+A926  ; [.2C1A.0020.0002] # KAYAH LI VOWEL UE
+A927  ; [.2C1B.0020.0002] # KAYAH LI VOWEL E
+A928  ; [.2C1C.0020.0002] # KAYAH LI VOWEL U
+A929  ; [.2C1D.0020.0002] # KAYAH LI VOWEL EE
+A92A  ; [.2C1E.0020.0002] # KAYAH LI VOWEL O
+1000  ; [.2C1F.0020.0002] # MYANMAR LETTER KA
+1075  ; [.2C20.0020.0002] # MYANMAR LETTER SHAN KA
+1001  ; [.2C21.0020.0002] # MYANMAR LETTER KHA
+1076  ; [.2C22.0020.0002] # MYANMAR LETTER SHAN KHA
+1002  ; [.2C23.0020.0002] # MYANMAR LETTER GA
+1077  ; [.2C24.0020.0002] # MYANMAR LETTER SHAN GA
+AA60  ; [.2C25.0020.0002] # MYANMAR LETTER KHAMTI GA
+A9E9  ; [.2C26.0020.0002] # MYANMAR LETTER TAI LAING GA
+1003  ; [.2C27.0020.0002] # MYANMAR LETTER GHA
+A9E0  ; [.2C28.0020.0002] # MYANMAR LETTER SHAN GHA
+A9EA  ; [.2C29.0020.0002] # MYANMAR LETTER TAI LAING GHA
+1004  ; [.2C2A.0020.0002] # MYANMAR LETTER NGA
+105A  ; [.2C2B.0020.0002] # MYANMAR LETTER MON NGA
+1005  ; [.2C2C.0020.0002] # MYANMAR LETTER CA
+1078  ; [.2C2D.0020.0002] # MYANMAR LETTER SHAN CA
+AA61  ; [.2C2E.0020.0002] # MYANMAR LETTER KHAMTI CA
+1006  ; [.2C2F.0020.0002] # MYANMAR LETTER CHA
+A9E1  ; [.2C30.0020.0002] # MYANMAR LETTER SHAN CHA
+AA62  ; [.2C31.0020.0002] # MYANMAR LETTER KHAMTI CHA
+AA7E  ; [.2C32.0020.0002] # MYANMAR LETTER SHWE PALAUNG CHA
+1007  ; [.2C33.0020.0002] # MYANMAR LETTER JA
+AA63  ; [.2C34.0020.0002] # MYANMAR LETTER KHAMTI JA
+A9EB  ; [.2C35.0020.0002] # MYANMAR LETTER TAI LAING JA
+1079  ; [.2C36.0020.0002] # MYANMAR LETTER SHAN ZA
+AA72  ; [.2C37.0020.0002] # MYANMAR LETTER KHAMTI ZA
+1008  ; [.2C38.0020.0002] # MYANMAR LETTER JHA
+105B  ; [.2C39.0020.0002] # MYANMAR LETTER MON JHA
+A9E2  ; [.2C3A.0020.0002] # MYANMAR LETTER SHAN JHA
+AA64  ; [.2C3B.0020.0002] # MYANMAR LETTER KHAMTI JHA
+A9EC  ; [.2C3C.0020.0002] # MYANMAR LETTER TAI LAING JHA
+1061  ; [.2C3D.0020.0002] # MYANMAR LETTER SGAW KAREN SHA
+AA7F  ; [.2C3E.0020.0002] # MYANMAR LETTER SHWE PALAUNG SHA
+1009  ; [.2C3F.0020.0002] # MYANMAR LETTER NYA
+107A  ; [.2C40.0020.0002] # MYANMAR LETTER SHAN NYA
+AA65  ; [.2C41.0020.0002] # MYANMAR LETTER KHAMTI NYA
+A9E7  ; [.2C42.0020.0002] # MYANMAR LETTER TAI LAING NYA
+100A  ; [.2C43.0020.0002] # MYANMAR LETTER NNYA
+100B  ; [.2C44.0020.0002] # MYANMAR LETTER TTA
+AA66  ; [.2C45.0020.0002] # MYANMAR LETTER KHAMTI TTA
+100C  ; [.2C46.0020.0002] # MYANMAR LETTER TTHA
+AA67  ; [.2C47.0020.0002] # MYANMAR LETTER KHAMTI TTHA
+100D  ; [.2C48.0020.0002] # MYANMAR LETTER DDA
+AA68  ; [.2C49.0020.0002] # MYANMAR LETTER KHAMTI DDA
+A9ED  ; [.2C4A.0020.0002] # MYANMAR LETTER TAI LAING DDA
+100E  ; [.2C4B.0020.0002] # MYANMAR LETTER DDHA
+AA69  ; [.2C4C.0020.0002] # MYANMAR LETTER KHAMTI DDHA
+A9EE  ; [.2C4D.0020.0002] # MYANMAR LETTER TAI LAING DDHA
+100F  ; [.2C4E.0020.0002] # MYANMAR LETTER NNA
+106E  ; [.2C4F.0020.0002] # MYANMAR LETTER EASTERN PWO KAREN NNA
+A9E3  ; [.2C50.0020.0002] # MYANMAR LETTER SHAN NNA
+A9EF  ; [.2C51.0020.0002] # MYANMAR LETTER TAI LAING NNA
+1010  ; [.2C52.0020.0002] # MYANMAR LETTER TA
+1011  ; [.2C53.0020.0002] # MYANMAR LETTER THA
+1012  ; [.2C54.0020.0002] # MYANMAR LETTER DA
+107B  ; [.2C55.0020.0002] # MYANMAR LETTER SHAN DA
+A9FB  ; [.2C56.0020.0002] # MYANMAR LETTER TAI LAING DA
+1013  ; [.2C57.0020.0002] # MYANMAR LETTER DHA
+AA6A  ; [.2C58.0020.0002] # MYANMAR LETTER KHAMTI DHA
+A9FC  ; [.2C59.0020.0002] # MYANMAR LETTER TAI LAING DHA
+1014  ; [.2C5A.0020.0002] # MYANMAR LETTER NA
+107C  ; [.2C5B.0020.0002] # MYANMAR LETTER SHAN NA
+AA6B  ; [.2C5C.0020.0002] # MYANMAR LETTER KHAMTI NA
+105E  ; [.2C5D.0020.0002] # MYANMAR CONSONANT SIGN MON MEDIAL NA
+1015  ; [.2C5E.0020.0002] # MYANMAR LETTER PA
+1016  ; [.2C5F.0020.0002] # MYANMAR LETTER PHA
+107D  ; [.2C60.0020.0002] # MYANMAR LETTER SHAN PHA
+107E  ; [.2C61.0020.0002] # MYANMAR LETTER SHAN FA
+AA6F  ; [.2C62.0020.0002] # MYANMAR LETTER KHAMTI FA
+108E  ; [.2C63.0020.0002] # MYANMAR LETTER RUMAI PALAUNG FA
+A9E8  ; [.2C64.0020.0002] # MYANMAR LETTER TAI LAING FA
+1017  ; [.2C65.0020.0002] # MYANMAR LETTER BA
+107F  ; [.2C66.0020.0002] # MYANMAR LETTER SHAN BA
+A9FD  ; [.2C67.0020.0002] # MYANMAR LETTER TAI LAING BA
+1018  ; [.2C68.0020.0002] # MYANMAR LETTER BHA
+A9E4  ; [.2C69.0020.0002] # MYANMAR LETTER SHAN BHA
+A9FE  ; [.2C6A.0020.0002] # MYANMAR LETTER TAI LAING BHA
+1019  ; [.2C6B.0020.0002] # MYANMAR LETTER MA
+105F  ; [.2C6C.0020.0002] # MYANMAR CONSONANT SIGN MON MEDIAL MA
+101A  ; [.2C6D.0020.0002] # MYANMAR LETTER YA
+103B  ; [.2C6E.0020.0002] # MYANMAR CONSONANT SIGN MEDIAL YA
+101B  ; [.2C6F.0020.0002] # MYANMAR LETTER RA
+AA73  ; [.2C70.0020.0002] # MYANMAR LETTER KHAMTI RA
+AA7A  ; [.2C71.0020.0002] # MYANMAR LETTER AITON RA
+103C  ; [.2C72.0020.0002] # MYANMAR CONSONANT SIGN MEDIAL RA
+101C  ; [.2C73.0020.0002] # MYANMAR LETTER LA
+1060  ; [.2C74.0020.0002] # MYANMAR CONSONANT SIGN MON MEDIAL LA
+101D  ; [.2C75.0020.0002] # MYANMAR LETTER WA
+103D  ; [.2C76.0020.0002] # MYANMAR CONSONANT SIGN MEDIAL WA
+1082  ; [.2C77.0020.0002] # MYANMAR CONSONANT SIGN SHAN MEDIAL WA
+1080  ; [.2C78.0020.0002] # MYANMAR LETTER SHAN THA
+1050  ; [.2C79.0020.0002] # MYANMAR LETTER SHA
+1051  ; [.2C7A.0020.0002] # MYANMAR LETTER SSA
+1065  ; [.2C7B.0020.0002] # MYANMAR LETTER WESTERN PWO KAREN THA
+101E  ; [.2C7C.0020.0002] # MYANMAR LETTER SA
+103F  ; [.2C7C.0020.0004][.2CB5.0020.0004][.2C7C.0020.0004] # MYANMAR LETTER GREAT SA
+AA6C  ; [.2C7D.0020.0002] # MYANMAR LETTER KHAMTI SA
+101F  ; [.2C7E.0020.0002] # MYANMAR LETTER HA
+1081  ; [.2C7F.0020.0002] # MYANMAR LETTER SHAN HA
+AA6D  ; [.2C80.0020.0002] # MYANMAR LETTER KHAMTI HA
+103E  ; [.2C81.0020.0002] # MYANMAR CONSONANT SIGN MEDIAL HA
+AA6E  ; [.2C82.0020.0002] # MYANMAR LETTER KHAMTI HHA
+AA71  ; [.2C83.0020.0002] # MYANMAR LETTER KHAMTI XA
+1020  ; [.2C84.0020.0002] # MYANMAR LETTER LLA
+A9FA  ; [.2C85.0020.0002] # MYANMAR LETTER TAI LAING LLA
+105C  ; [.2C86.0020.0002] # MYANMAR LETTER MON BBA
+105D  ; [.2C87.0020.0002] # MYANMAR LETTER MON BBE
+106F  ; [.2C88.0020.0002] # MYANMAR LETTER EASTERN PWO KAREN YWA
+1070  ; [.2C89.0020.0002] # MYANMAR LETTER EASTERN PWO KAREN GHWA
+1066  ; [.2C8A.0020.0002] # MYANMAR LETTER WESTERN PWO KAREN PWA
+1021  ; [.2C8B.0020.0002] # MYANMAR LETTER A
+1022  ; [.2C8C.0020.0002] # MYANMAR LETTER SHAN A
+1023  ; [.2C8D.0020.0002] # MYANMAR LETTER I
+1024  ; [.2C8E.0020.0002] # MYANMAR LETTER II
+1025  ; [.2C8F.0020.0002] # MYANMAR LETTER U
+1026  ; [.2C90.0020.0002] # MYANMAR LETTER UU
+1025 102E ; [.2C90.0020.0002] # MYANMAR LETTER UU
+1052  ; [.2C91.0020.0002] # MYANMAR LETTER VOCALIC R
+1053  ; [.2C92.0020.0002] # MYANMAR LETTER VOCALIC RR
+1054  ; [.2C93.0020.0002] # MYANMAR LETTER VOCALIC L
+1055  ; [.2C94.0020.0002] # MYANMAR LETTER VOCALIC LL
+1027  ; [.2C95.0020.0002] # MYANMAR LETTER E
+1028  ; [.2C96.0020.0002] # MYANMAR LETTER MON E
+1029  ; [.2C97.0020.0002] # MYANMAR LETTER O
+102A  ; [.2C98.0020.0002] # MYANMAR LETTER AU
+102C  ; [.2C99.0020.0002] # MYANMAR VOWEL SIGN AA
+102B  ; [.2C99.0020.0004] # MYANMAR VOWEL SIGN TALL AA
+1083  ; [.2C9A.0020.0002] # MYANMAR VOWEL SIGN SHAN AA
+1072  ; [.2C9B.0020.0002] # MYANMAR VOWEL SIGN KAYAH OE
+109C  ; [.2C9C.0020.0002] # MYANMAR VOWEL SIGN AITON A
+102D  ; [.2C9D.0020.0002] # MYANMAR VOWEL SIGN I
+1071  ; [.2C9E.0020.0002] # MYANMAR VOWEL SIGN GEBA KAREN I
+102E  ; [.2C9F.0020.0002] # MYANMAR VOWEL SIGN II
+1033  ; [.2CA0.0020.0002] # MYANMAR VOWEL SIGN MON II
+102F  ; [.2CA1.0020.0002] # MYANMAR VOWEL SIGN U
+1073  ; [.2CA2.0020.0002] # MYANMAR VOWEL SIGN KAYAH U
+1074  ; [.2CA3.0020.0002] # MYANMAR VOWEL SIGN KAYAH EE
+1030  ; [.2CA4.0020.0002] # MYANMAR VOWEL SIGN UU
+1056  ; [.2CA5.0020.0002] # MYANMAR VOWEL SIGN VOCALIC R
+1057  ; [.2CA6.0020.0002] # MYANMAR VOWEL SIGN VOCALIC RR
+1058  ; [.2CA7.0020.0002] # MYANMAR VOWEL SIGN VOCALIC L
+1059  ; [.2CA8.0020.0002] # MYANMAR VOWEL SIGN VOCALIC LL
+1031  ; [.2CA9.0020.0002] # MYANMAR VOWEL SIGN E
+1084  ; [.2CAA.0020.0002] # MYANMAR VOWEL SIGN SHAN E
+1035  ; [.2CAB.0020.0002] # MYANMAR VOWEL SIGN E ABOVE
+1085  ; [.2CAC.0020.0002] # MYANMAR VOWEL SIGN SHAN E ABOVE
+1032  ; [.2CAD.0020.0002] # MYANMAR VOWEL SIGN AI
+109D  ; [.2CAE.0020.0002] # MYANMAR VOWEL SIGN AITON AI
+1034  ; [.2CAF.0020.0002] # MYANMAR VOWEL SIGN MON O
+1062  ; [.2CB0.0020.0002] # MYANMAR VOWEL SIGN SGAW KAREN EU
+1067  ; [.2CB1.0020.0002] # MYANMAR VOWEL SIGN WESTERN PWO KAREN EU
+1068  ; [.2CB2.0020.0002] # MYANMAR VOWEL SIGN WESTERN PWO KAREN UE
+A9E5  ; [.2CB3.0020.0002] # MYANMAR SIGN SHAN SAW
+1086  ; [.2CB4.0020.0002] # MYANMAR VOWEL SIGN SHAN FINAL Y
+1039  ; [.2CB5.0020.0002] # MYANMAR SIGN VIRAMA
+103A  ; [.2CB6.0020.0002] # MYANMAR SIGN ASAT
+1063  ; [.2CB7.0020.0002] # MYANMAR TONE MARK SGAW KAREN HATHI
+1064  ; [.2CB8.0020.0002] # MYANMAR TONE MARK SGAW KAREN KE PHO
+1069  ; [.2CB9.0020.0002] # MYANMAR SIGN WESTERN PWO KAREN TONE-1
+106A  ; [.2CBA.0020.0002] # MYANMAR SIGN WESTERN PWO KAREN TONE-2
+106B  ; [.2CBB.0020.0002] # MYANMAR SIGN WESTERN PWO KAREN TONE-3
+106C  ; [.2CBC.0020.0002] # MYANMAR SIGN WESTERN PWO KAREN TONE-4
+106D  ; [.2CBD.0020.0002] # MYANMAR SIGN WESTERN PWO KAREN TONE-5
+1087  ; [.2CBE.0020.0002] # MYANMAR SIGN SHAN TONE-2
+108B  ; [.2CBF.0020.0002] # MYANMAR SIGN SHAN COUNCIL TONE-2
+1088  ; [.2CC0.0020.0002] # MYANMAR SIGN SHAN TONE-3
+108C  ; [.2CC1.0020.0002] # MYANMAR SIGN SHAN COUNCIL TONE-3
+108D  ; [.2CC2.0020.0002] # MYANMAR SIGN SHAN COUNCIL EMPHATIC TONE
+1089  ; [.2CC3.0020.0002] # MYANMAR SIGN SHAN TONE-5
+108A  ; [.2CC4.0020.0002] # MYANMAR SIGN SHAN TONE-6
+108F  ; [.2CC5.0020.0002] # MYANMAR SIGN RUMAI PALAUNG TONE-5
+109A  ; [.2CC6.0020.0002] # MYANMAR SIGN KHAMTI TONE-1
+109B  ; [.2CC7.0020.0002] # MYANMAR SIGN KHAMTI TONE-3
+AA7B  ; [.2CC8.0020.0002] # MYANMAR SIGN PAO KAREN TONE
+AA7C  ; [.2CC9.0020.0002] # MYANMAR SIGN TAI LAING TONE-2
+AA7D  ; [.2CCA.0020.0002] # MYANMAR SIGN TAI LAING TONE-5
+AA74  ; [.2CCB.0020.0002] # MYANMAR LOGOGRAM KHAMTI OAY
+AA75  ; [.2CCC.0020.0002] # MYANMAR LOGOGRAM KHAMTI QN
+AA76  ; [.2CCD.0020.0002] # MYANMAR LOGOGRAM KHAMTI HM
+11103 ; [.2CCE.0020.0002] # CHAKMA LETTER AA
+11104 ; [.2CCF.0020.0002] # CHAKMA LETTER I
+11105 ; [.2CD0.0020.0002] # CHAKMA LETTER U
+11106 ; [.2CD1.0020.0002] # CHAKMA LETTER E
+11107 ; [.2CD2.0020.0002] # CHAKMA LETTER KAA
+11108 ; [.2CD3.0020.0002] # CHAKMA LETTER KHAA
+11109 ; [.2CD4.0020.0002] # CHAKMA LETTER GAA
+1110A ; [.2CD5.0020.0002] # CHAKMA LETTER GHAA
+1110B ; [.2CD6.0020.0002] # CHAKMA LETTER NGAA
+1110C ; [.2CD7.0020.0002] # CHAKMA LETTER CAA
+1110D ; [.2CD8.0020.0002] # CHAKMA LETTER CHAA
+1110E ; [.2CD9.0020.0002] # CHAKMA LETTER JAA
+1110F ; [.2CDA.0020.0002] # CHAKMA LETTER JHAA
+11110 ; [.2CDB.0020.0002] # CHAKMA LETTER NYAA
+11111 ; [.2CDC.0020.0002] # CHAKMA LETTER TTAA
+11112 ; [.2CDD.0020.0002] # CHAKMA LETTER TTHAA
+11113 ; [.2CDE.0020.0002] # CHAKMA LETTER DDAA
+11114 ; [.2CDF.0020.0002] # CHAKMA LETTER DDHAA
+11115 ; [.2CE0.0020.0002] # CHAKMA LETTER NNAA
+11116 ; [.2CE1.0020.0002] # CHAKMA LETTER TAA
+11117 ; [.2CE2.0020.0002] # CHAKMA LETTER THAA
+11118 ; [.2CE3.0020.0002] # CHAKMA LETTER DAA
+11119 ; [.2CE4.0020.0002] # CHAKMA LETTER DHAA
+1111A ; [.2CE5.0020.0002] # CHAKMA LETTER NAA
+1111B ; [.2CE6.0020.0002] # CHAKMA LETTER PAA
+1111C ; [.2CE7.0020.0002] # CHAKMA LETTER PHAA
+1111D ; [.2CE8.0020.0002] # CHAKMA LETTER BAA
+1111E ; [.2CE9.0020.0002] # CHAKMA LETTER BHAA
+1111F ; [.2CEA.0020.0002] # CHAKMA LETTER MAA
+11120 ; [.2CEB.0020.0002] # CHAKMA LETTER YYAA
+11121 ; [.2CEC.0020.0002] # CHAKMA LETTER YAA
+11122 ; [.2CED.0020.0002] # CHAKMA LETTER RAA
+11123 ; [.2CEE.0020.0002] # CHAKMA LETTER LAA
+11124 ; [.2CEF.0020.0002] # CHAKMA LETTER WAA
+11125 ; [.2CF0.0020.0002] # CHAKMA LETTER SAA
+11126 ; [.2CF1.0020.0002] # CHAKMA LETTER HAA
+11127 ; [.2CF2.0020.0002] # CHAKMA VOWEL SIGN A
+11128 ; [.2CF3.0020.0002] # CHAKMA VOWEL SIGN I
+11129 ; [.2CF4.0020.0002] # CHAKMA VOWEL SIGN II
+1112A ; [.2CF5.0020.0002] # CHAKMA VOWEL SIGN U
+1112B ; [.2CF6.0020.0002] # CHAKMA VOWEL SIGN UU
+1112C ; [.2CF7.0020.0002] # CHAKMA VOWEL SIGN E
+1112D ; [.2CF8.0020.0002] # CHAKMA VOWEL SIGN AI
+1112E ; [.2CF9.0020.0002] # CHAKMA VOWEL SIGN O
+11131 11127 ; [.2CF9.0020.0002] # CHAKMA VOWEL SIGN O
+1112F ; [.2CFA.0020.0002] # CHAKMA VOWEL SIGN AU
+11132 11127 ; [.2CFA.0020.0002] # CHAKMA VOWEL SIGN AU
+11130 ; [.2CFB.0020.0002] # CHAKMA VOWEL SIGN OI
+11131 ; [.2CFC.0020.0002] # CHAKMA O MARK
+11132 ; [.2CFD.0020.0002] # CHAKMA AU MARK
+11133 ; [.2CFE.0020.0002] # CHAKMA VIRAMA
+11134 ; [.2CFF.0020.0002] # CHAKMA MAAYYAA
+1780  ; [.2D00.0020.0002] # KHMER LETTER KA
+1781  ; [.2D01.0020.0002] # KHMER LETTER KHA
+1782  ; [.2D02.0020.0002] # KHMER LETTER KO
+1783  ; [.2D03.0020.0002] # KHMER LETTER KHO
+1784  ; [.2D04.0020.0002] # KHMER LETTER NGO
+1785  ; [.2D05.0020.0002] # KHMER LETTER CA
+1786  ; [.2D06.0020.0002] # KHMER LETTER CHA
+1787  ; [.2D07.0020.0002] # KHMER LETTER CO
+1788  ; [.2D08.0020.0002] # KHMER LETTER CHO
+1789  ; [.2D09.0020.0002] # KHMER LETTER NYO
+178A  ; [.2D0A.0020.0002] # KHMER LETTER DA
+178B  ; [.2D0B.0020.0002] # KHMER LETTER TTHA
+178C  ; [.2D0C.0020.0002] # KHMER LETTER DO
+178D  ; [.2D0D.0020.0002] # KHMER LETTER TTHO
+178E  ; [.2D0E.0020.0002] # KHMER LETTER NNO
+178F  ; [.2D0F.0020.0002] # KHMER LETTER TA
+1790  ; [.2D10.0020.0002] # KHMER LETTER THA
+1791  ; [.2D11.0020.0002] # KHMER LETTER TO
+1792  ; [.2D12.0020.0002] # KHMER LETTER THO
+1793  ; [.2D13.0020.0002] # KHMER LETTER NO
+1794  ; [.2D14.0020.0002] # KHMER LETTER BA
+1795  ; [.2D15.0020.0002] # KHMER LETTER PHA
+1796  ; [.2D16.0020.0002] # KHMER LETTER PO
+1797  ; [.2D17.0020.0002] # KHMER LETTER PHO
+1798  ; [.2D18.0020.0002] # KHMER LETTER MO
+1799  ; [.2D19.0020.0002] # KHMER LETTER YO
+179A  ; [.2D1A.0020.0002] # KHMER LETTER RO
+179B  ; [.2D1B.0020.0002] # KHMER LETTER LO
+179C  ; [.2D1C.0020.0002] # KHMER LETTER VO
+179D  ; [.2D1D.0020.0002] # KHMER LETTER SHA
+179E  ; [.2D1E.0020.0002] # KHMER LETTER SSO
+179F  ; [.2D1F.0020.0002] # KHMER LETTER SA
+17A0  ; [.2D20.0020.0002] # KHMER LETTER HA
+17A1  ; [.2D21.0020.0002] # KHMER LETTER LA
+17A2  ; [.2D22.0020.0002] # KHMER LETTER QA
+17DC  ; [.2D23.0020.0002] # KHMER SIGN AVAKRAHASANYA
+17A3  ; [.2D24.0020.0002] # KHMER INDEPENDENT VOWEL QAQ
+17A4  ; [.2D25.0020.0002] # KHMER INDEPENDENT VOWEL QAA
+17A5  ; [.2D26.0020.0002] # KHMER INDEPENDENT VOWEL QI
+17A6  ; [.2D27.0020.0002] # KHMER INDEPENDENT VOWEL QII
+17A7  ; [.2D28.0020.0002] # KHMER INDEPENDENT VOWEL QU
+17A8  ; [.2D29.0020.0002] # KHMER INDEPENDENT VOWEL QUK
+17A9  ; [.2D2A.0020.0002] # KHMER INDEPENDENT VOWEL QUU
+17AA  ; [.2D2B.0020.0002] # KHMER INDEPENDENT VOWEL QUUV
+17AB  ; [.2D2C.0020.0002] # KHMER INDEPENDENT VOWEL RY
+17AC  ; [.2D2D.0020.0002] # KHMER INDEPENDENT VOWEL RYY
+17AD  ; [.2D2E.0020.0002] # KHMER INDEPENDENT VOWEL LY
+17AE  ; [.2D2F.0020.0002] # KHMER INDEPENDENT VOWEL LYY
+17AF  ; [.2D30.0020.0002] # KHMER INDEPENDENT VOWEL QE
+17B0  ; [.2D31.0020.0002] # KHMER INDEPENDENT VOWEL QAI
+17B1  ; [.2D32.0020.0002] # KHMER INDEPENDENT VOWEL QOO TYPE ONE
+17B2  ; [.2D33.0020.0002] # KHMER INDEPENDENT VOWEL QOO TYPE TWO
+17B3  ; [.2D34.0020.0002] # KHMER INDEPENDENT VOWEL QAU
+17B6  ; [.2D35.0020.0002] # KHMER VOWEL SIGN AA
+17B7  ; [.2D36.0020.0002] # KHMER VOWEL SIGN I
+17B8  ; [.2D37.0020.0002] # KHMER VOWEL SIGN II
+17B9  ; [.2D38.0020.0002] # KHMER VOWEL SIGN Y
+17BA  ; [.2D39.0020.0002] # KHMER VOWEL SIGN YY
+17BB  ; [.2D3A.0020.0002] # KHMER VOWEL SIGN U
+17BC  ; [.2D3B.0020.0002] # KHMER VOWEL SIGN UU
+17BD  ; [.2D3C.0020.0002] # KHMER VOWEL SIGN UA
+17BE  ; [.2D3D.0020.0002] # KHMER VOWEL SIGN OE
+17BF  ; [.2D3E.0020.0002] # KHMER VOWEL SIGN YA
+17C0  ; [.2D3F.0020.0002] # KHMER VOWEL SIGN IE
+17C1  ; [.2D40.0020.0002] # KHMER VOWEL SIGN E
+17C2  ; [.2D41.0020.0002] # KHMER VOWEL SIGN AE
+17C3  ; [.2D42.0020.0002] # KHMER VOWEL SIGN AI
+17C4  ; [.2D43.0020.0002] # KHMER VOWEL SIGN OO
+17C5  ; [.2D44.0020.0002] # KHMER VOWEL SIGN AU
+17D2  ; [.2D45.0020.0002] # KHMER SIGN COENG
+1950  ; [.2D46.0020.0002] # TAI LE LETTER KA
+1951  ; [.2D47.0020.0002] # TAI LE LETTER XA
+1952  ; [.2D48.0020.0002] # TAI LE LETTER NGA
+1953  ; [.2D49.0020.0002] # TAI LE LETTER TSA
+1954  ; [.2D4A.0020.0002] # TAI LE LETTER SA
+1955  ; [.2D4B.0020.0002] # TAI LE LETTER YA
+1956  ; [.2D4C.0020.0002] # TAI LE LETTER TA
+1957  ; [.2D4D.0020.0002] # TAI LE LETTER THA
+1958  ; [.2D4E.0020.0002] # TAI LE LETTER LA
+1959  ; [.2D4F.0020.0002] # TAI LE LETTER PA
+195A  ; [.2D50.0020.0002] # TAI LE LETTER PHA
+195B  ; [.2D51.0020.0002] # TAI LE LETTER MA
+195C  ; [.2D52.0020.0002] # TAI LE LETTER FA
+195D  ; [.2D53.0020.0002] # TAI LE LETTER VA
+195E  ; [.2D54.0020.0002] # TAI LE LETTER HA
+195F  ; [.2D55.0020.0002] # TAI LE LETTER QA
+1960  ; [.2D56.0020.0002] # TAI LE LETTER KHA
+1961  ; [.2D57.0020.0002] # TAI LE LETTER TSHA
+1962  ; [.2D58.0020.0002] # TAI LE LETTER NA
+1963  ; [.2D59.0020.0002] # TAI LE LETTER A
+1964  ; [.2D5A.0020.0002] # TAI LE LETTER I
+1965  ; [.2D5B.0020.0002] # TAI LE LETTER EE
+1966  ; [.2D5C.0020.0002] # TAI LE LETTER EH
+1967  ; [.2D5D.0020.0002] # TAI LE LETTER U
+1968  ; [.2D5E.0020.0002] # TAI LE LETTER OO
+1969  ; [.2D5F.0020.0002] # TAI LE LETTER O
+196A  ; [.2D60.0020.0002] # TAI LE LETTER UE
+196B  ; [.2D61.0020.0002] # TAI LE LETTER E
+196C  ; [.2D62.0020.0002] # TAI LE LETTER AUE
+196D  ; [.2D63.0020.0002] # TAI LE LETTER AI
+1970  ; [.2D64.0020.0002] # TAI LE LETTER TONE-2
+1971  ; [.2D65.0020.0002] # TAI LE LETTER TONE-3
+1972  ; [.2D66.0020.0002] # TAI LE LETTER TONE-4
+1973  ; [.2D67.0020.0002] # TAI LE LETTER TONE-5
+1974  ; [.2D68.0020.0002] # TAI LE LETTER TONE-6
+1980  ; [.2D69.0020.0002] # NEW TAI LUE LETTER HIGH QA
+1981  ; [.2D6A.0020.0002] # NEW TAI LUE LETTER LOW QA
+1982  ; [.2D6B.0020.0002] # NEW TAI LUE LETTER HIGH KA
+1983  ; [.2D6C.0020.0002] # NEW TAI LUE LETTER HIGH XA
+1984  ; [.2D6D.0020.0002] # NEW TAI LUE LETTER HIGH NGA
+1985  ; [.2D6E.0020.0002] # NEW TAI LUE LETTER LOW KA
+1986  ; [.2D6F.0020.0002] # NEW TAI LUE LETTER LOW XA
+1987  ; [.2D70.0020.0002] # NEW TAI LUE LETTER LOW NGA
+1988  ; [.2D71.0020.0002] # NEW TAI LUE LETTER HIGH TSA
+1989  ; [.2D72.0020.0002] # NEW TAI LUE LETTER HIGH SA
+198A  ; [.2D73.0020.0002] # NEW TAI LUE LETTER HIGH YA
+198B  ; [.2D74.0020.0002] # NEW TAI LUE LETTER LOW TSA
+198C  ; [.2D75.0020.0002] # NEW TAI LUE LETTER LOW SA
+198D  ; [.2D76.0020.0002] # NEW TAI LUE LETTER LOW YA
+198E  ; [.2D77.0020.0002] # NEW TAI LUE LETTER HIGH TA
+198F  ; [.2D78.0020.0002] # NEW TAI LUE LETTER HIGH THA
+1990  ; [.2D79.0020.0002] # NEW TAI LUE LETTER HIGH NA
+1991  ; [.2D7A.0020.0002] # NEW TAI LUE LETTER LOW TA
+1992  ; [.2D7B.0020.0002] # NEW TAI LUE LETTER LOW THA
+1993  ; [.2D7C.0020.0002] # NEW TAI LUE LETTER LOW NA
+1994  ; [.2D7D.0020.0002] # NEW TAI LUE LETTER HIGH PA
+1995  ; [.2D7E.0020.0002] # NEW TAI LUE LETTER HIGH PHA
+1996  ; [.2D7F.0020.0002] # NEW TAI LUE LETTER HIGH MA
+1997  ; [.2D80.0020.0002] # NEW TAI LUE LETTER LOW PA
+1998  ; [.2D81.0020.0002] # NEW TAI LUE LETTER LOW PHA
+1999  ; [.2D82.0020.0002] # NEW TAI LUE LETTER LOW MA
+199A  ; [.2D83.0020.0002] # NEW TAI LUE LETTER HIGH FA
+199B  ; [.2D84.0020.0002] # NEW TAI LUE LETTER HIGH VA
+199C  ; [.2D85.0020.0002] # NEW TAI LUE LETTER HIGH LA
+19DE  ; [.2D85.0020.0004][.2D9B.0020.0004] # NEW TAI LUE SIGN LAE
+19DF  ; [.2D85.0020.0004][.2D9B.0020.0004][.2DA6.0020.0004] # NEW TAI LUE SIGN LAEV
+199D  ; [.2D86.0020.0002] # NEW TAI LUE LETTER LOW FA
+199E  ; [.2D87.0020.0002] # NEW TAI LUE LETTER LOW VA
+199F  ; [.2D88.0020.0002] # NEW TAI LUE LETTER LOW LA
+19A0  ; [.2D89.0020.0002] # NEW TAI LUE LETTER HIGH HA
+19A1  ; [.2D8A.0020.0002] # NEW TAI LUE LETTER HIGH DA
+19A2  ; [.2D8B.0020.0002] # NEW TAI LUE LETTER HIGH BA
+19A3  ; [.2D8C.0020.0002] # NEW TAI LUE LETTER LOW HA
+19A4  ; [.2D8D.0020.0002] # NEW TAI LUE LETTER LOW DA
+19A5  ; [.2D8E.0020.0002] # NEW TAI LUE LETTER LOW BA
+19A6  ; [.2D8F.0020.0002] # NEW TAI LUE LETTER HIGH KVA
+19A7  ; [.2D90.0020.0002] # NEW TAI LUE LETTER HIGH XVA
+19A8  ; [.2D91.0020.0002] # NEW TAI LUE LETTER LOW KVA
+19A9  ; [.2D92.0020.0002] # NEW TAI LUE LETTER LOW XVA
+19AA  ; [.2D93.0020.0002] # NEW TAI LUE LETTER HIGH SUA
+19AB  ; [.2D94.0020.0002] # NEW TAI LUE LETTER LOW SUA
+19B0  ; [.2D95.0020.0002] # NEW TAI LUE VOWEL SIGN VOWEL SHORTENER
+19B1  ; [.2D96.0020.0002] # NEW TAI LUE VOWEL SIGN AA
+19B2  ; [.2D97.0020.0002] # NEW TAI LUE VOWEL SIGN II
+19B3  ; [.2D98.0020.0002] # NEW TAI LUE VOWEL SIGN U
+19B4  ; [.2D99.0020.0002] # NEW TAI LUE VOWEL SIGN UU
+19B5  ; [.2D9A.0020.0002] # NEW TAI LUE VOWEL SIGN E
+19B6  ; [.2D9B.0020.0002] # NEW TAI LUE VOWEL SIGN AE
+19B7  ; [.2D9C.0020.0002] # NEW TAI LUE VOWEL SIGN O
+19B8  ; [.2D9D.0020.0002] # NEW TAI LUE VOWEL SIGN OA
+19B9  ; [.2D9E.0020.0002] # NEW TAI LUE VOWEL SIGN UE
+19BA  ; [.2D9F.0020.0002] # NEW TAI LUE VOWEL SIGN AY
+19BB  ; [.2DA0.0020.0002] # NEW TAI LUE VOWEL SIGN AAY
+19BC  ; [.2DA1.0020.0002] # NEW TAI LUE VOWEL SIGN UY
+19BD  ; [.2DA2.0020.0002] # NEW TAI LUE VOWEL SIGN OY
+19BE  ; [.2DA3.0020.0002] # NEW TAI LUE VOWEL SIGN OAY
+19BF  ; [.2DA4.0020.0002] # NEW TAI LUE VOWEL SIGN UEY
+19C0  ; [.2DA5.0020.0002] # NEW TAI LUE VOWEL SIGN IY
+19C1  ; [.2DA6.0020.0002] # NEW TAI LUE LETTER FINAL V
+19C2  ; [.2DA7.0020.0002] # NEW TAI LUE LETTER FINAL NG
+19C3  ; [.2DA8.0020.0002] # NEW TAI LUE LETTER FINAL N
+19C4  ; [.2DA9.0020.0002] # NEW TAI LUE LETTER FINAL M
+19C5  ; [.2DAA.0020.0002] # NEW TAI LUE LETTER FINAL K
+19C6  ; [.2DAB.0020.0002] # NEW TAI LUE LETTER FINAL D
+19C7  ; [.2DAC.0020.0002] # NEW TAI LUE LETTER FINAL B
+19C8  ; [.2DAD.0020.0002] # NEW TAI LUE TONE MARK-1
+19C9  ; [.2DAE.0020.0002] # NEW TAI LUE TONE MARK-2
+1A20  ; [.2DAF.0020.0002] # TAI THAM LETTER HIGH KA
+1A21  ; [.2DB0.0020.0002] # TAI THAM LETTER HIGH KHA
+1A22  ; [.2DB1.0020.0002] # TAI THAM LETTER HIGH KXA
+1A23  ; [.2DB2.0020.0002] # TAI THAM LETTER LOW KA
+1A24  ; [.2DB3.0020.0002] # TAI THAM LETTER LOW KXA
+1A25  ; [.2DB4.0020.0002] # TAI THAM LETTER LOW KHA
+1A26  ; [.2DB5.0020.0002] # TAI THAM LETTER NGA
+1A58  ; [.2DB5.0020.0004] # TAI THAM SIGN MAI KANG LAI
+1A59  ; [.2DB5.0020.0004] # TAI THAM CONSONANT SIGN FINAL NGA
+1A27  ; [.2DB6.0020.0002] # TAI THAM LETTER HIGH CA
+1A28  ; [.2DB7.0020.0002] # TAI THAM LETTER HIGH CHA
+1A29  ; [.2DB8.0020.0002] # TAI THAM LETTER LOW CA
+1A2A  ; [.2DB9.0020.0002] # TAI THAM LETTER LOW SA
+1A2B  ; [.2DBA.0020.0002] # TAI THAM LETTER LOW CHA
+1A2C  ; [.2DBB.0020.0002] # TAI THAM LETTER NYA
+1A2D  ; [.2DBC.0020.0002] # TAI THAM LETTER RATA
+1A2E  ; [.2DBD.0020.0002] # TAI THAM LETTER HIGH RATHA
+1A2F  ; [.2DBE.0020.0002] # TAI THAM LETTER DA
+1A30  ; [.2DBF.0020.0002] # TAI THAM LETTER LOW RATHA
+1A31  ; [.2DC0.0020.0002] # TAI THAM LETTER RANA
+1A32  ; [.2DC1.0020.0002] # TAI THAM LETTER HIGH TA
+1A33  ; [.2DC2.0020.0002] # TAI THAM LETTER HIGH THA
+1A34  ; [.2DC3.0020.0002] # TAI THAM LETTER LOW TA
+1A35  ; [.2DC4.0020.0002] # TAI THAM LETTER LOW THA
+1A36  ; [.2DC5.0020.0002] # TAI THAM LETTER NA
+1A37  ; [.2DC6.0020.0002] # TAI THAM LETTER BA
+1A38  ; [.2DC7.0020.0002] # TAI THAM LETTER HIGH PA
+1A39  ; [.2DC8.0020.0002] # TAI THAM LETTER HIGH PHA
+1A3A  ; [.2DC9.0020.0002] # TAI THAM LETTER HIGH FA
+1A3B  ; [.2DCA.0020.0002] # TAI THAM LETTER LOW PA
+1A5A  ; [.2DCA.0020.0004] # TAI THAM CONSONANT SIGN LOW PA
+1A5B  ; [.2DCA.0020.0004] # TAI THAM CONSONANT SIGN HIGH RATHA OR LOW PA
+1A3C  ; [.2DCB.0020.0002] # TAI THAM LETTER LOW FA
+1A3D  ; [.2DCC.0020.0002] # TAI THAM LETTER LOW PHA
+1A3E  ; [.2DCD.0020.0002] # TAI THAM LETTER MA
+1A3F  ; [.2DCE.0020.0002] # TAI THAM LETTER LOW YA
+1A40  ; [.2DCF.0020.0002] # TAI THAM LETTER HIGH YA
+1A41  ; [.2DD0.0020.0002] # TAI THAM LETTER RA
+1A42  ; [.2DD1.0020.0002] # TAI THAM LETTER RUE
+1A43  ; [.2DD2.0020.0002] # TAI THAM LETTER LA
+1A44  ; [.2DD3.0020.0002] # TAI THAM LETTER LUE
+1A45  ; [.2DD4.0020.0002] # TAI THAM LETTER WA
+1A46  ; [.2DD5.0020.0002] # TAI THAM LETTER HIGH SHA
+1A54  ; [.2DD5.0020.0004][.2DFB.0020.0004][.2DD5.0020.0004] # TAI THAM LETTER GREAT SA
+1A47  ; [.2DD6.0020.0002] # TAI THAM LETTER HIGH SSA
+1A48  ; [.2DD7.0020.0002] # TAI THAM LETTER HIGH SA
+1A49  ; [.2DD8.0020.0002] # TAI THAM LETTER HIGH HA
+1A4A  ; [.2DD9.0020.0002] # TAI THAM LETTER LLA
+1A4B  ; [.2DDA.0020.0002] # TAI THAM LETTER A
+1A4C  ; [.2DDB.0020.0002] # TAI THAM LETTER LOW HA
+1A53  ; [.2DDC.0020.0002] # TAI THAM LETTER LAE
+1A6B  ; [.2DDD.0020.0002] # TAI THAM VOWEL SIGN O
+1A55  ; [.2DDE.0020.0002] # TAI THAM CONSONANT SIGN MEDIAL RA
+1A56  ; [.2DDF.0020.0002] # TAI THAM CONSONANT SIGN MEDIAL LA
+1A57  ; [.2DE0.0020.0002] # TAI THAM CONSONANT SIGN LA TANG LAI
+1A5C  ; [.2DE1.0020.0002] # TAI THAM CONSONANT SIGN MA
+1A5D  ; [.2DE2.0020.0002] # TAI THAM CONSONANT SIGN BA
+1A5E  ; [.2DE3.0020.0002] # TAI THAM CONSONANT SIGN SA
+1A4D  ; [.2DE4.0020.0002] # TAI THAM LETTER I
+1A4E  ; [.2DE5.0020.0002] # TAI THAM LETTER II
+1A4F  ; [.2DE6.0020.0002] # TAI THAM LETTER U
+1A50  ; [.2DE7.0020.0002] # TAI THAM LETTER UU
+1A51  ; [.2DE8.0020.0002] # TAI THAM LETTER EE
+1A52  ; [.2DE9.0020.0002] # TAI THAM LETTER OO
+1A61  ; [.2DEA.0020.0002] # TAI THAM VOWEL SIGN A
+1A6C  ; [.2DEB.0020.0002] # TAI THAM VOWEL SIGN OA BELOW
+1A62  ; [.2DEC.0020.0002] # TAI THAM VOWEL SIGN MAI SAT
+1A63  ; [.2DED.0020.0002] # TAI THAM VOWEL SIGN AA
+1A64  ; [.2DED.0020.0004] # TAI THAM VOWEL SIGN TALL AA
+1A65  ; [.2DEE.0020.0002] # TAI THAM VOWEL SIGN I
+1A66  ; [.2DEF.0020.0002] # TAI THAM VOWEL SIGN II
+1A67  ; [.2DF0.0020.0002] # TAI THAM VOWEL SIGN UE
+1A68  ; [.2DF1.0020.0002] # TAI THAM VOWEL SIGN UUE
+1A69  ; [.2DF2.0020.0002] # TAI THAM VOWEL SIGN U
+1A6A  ; [.2DF3.0020.0002] # TAI THAM VOWEL SIGN UU
+1A6E  ; [.2DF4.0020.0002] # TAI THAM VOWEL SIGN E
+1A6F  ; [.2DF5.0020.0002] # TAI THAM VOWEL SIGN AE
+1A73  ; [.2DF6.0020.0002] # TAI THAM VOWEL SIGN OA ABOVE
+1A70  ; [.2DF7.0020.0002] # TAI THAM VOWEL SIGN OO
+1A71  ; [.2DF8.0020.0002] # TAI THAM VOWEL SIGN AI
+1A72  ; [.2DF9.0020.0002] # TAI THAM VOWEL SIGN THAM AI
+1A6D  ; [.2DFA.0020.0002] # TAI THAM VOWEL SIGN OY
+1A60  ; [.2DFB.0020.0002] # TAI THAM SIGN SAKOT
+AA00  ; [.2DFC.0020.0002] # CHAM LETTER A
+AA01  ; [.2DFD.0020.0002] # CHAM LETTER I
+AA02  ; [.2DFE.0020.0002] # CHAM LETTER U
+AA03  ; [.2DFF.0020.0002] # CHAM LETTER E
+AA04  ; [.2E00.0020.0002] # CHAM LETTER AI
+AA05  ; [.2E01.0020.0002] # CHAM LETTER O
+AA06  ; [.2E02.0020.0002] # CHAM LETTER KA
+AA07  ; [.2E03.0020.0002] # CHAM LETTER KHA
+AA08  ; [.2E04.0020.0002] # CHAM LETTER GA
+AA09  ; [.2E05.0020.0002] # CHAM LETTER GHA
+AA0A  ; [.2E06.0020.0002] # CHAM LETTER NGUE
+AA0B  ; [.2E07.0020.0002] # CHAM LETTER NGA
+AA0C  ; [.2E08.0020.0002] # CHAM LETTER CHA
+AA0D  ; [.2E09.0020.0002] # CHAM LETTER CHHA
+AA0E  ; [.2E0A.0020.0002] # CHAM LETTER JA
+AA0F  ; [.2E0B.0020.0002] # CHAM LETTER JHA
+AA10  ; [.2E0C.0020.0002] # CHAM LETTER NHUE
+AA11  ; [.2E0D.0020.0002] # CHAM LETTER NHA
+AA12  ; [.2E0E.0020.0002] # CHAM LETTER NHJA
+AA13  ; [.2E0F.0020.0002] # CHAM LETTER TA
+AA14  ; [.2E10.0020.0002] # CHAM LETTER THA
+AA15  ; [.2E11.0020.0002] # CHAM LETTER DA
+AA16  ; [.2E12.0020.0002] # CHAM LETTER DHA
+AA17  ; [.2E13.0020.0002] # CHAM LETTER NUE
+AA18  ; [.2E14.0020.0002] # CHAM LETTER NA
+AA19  ; [.2E15.0020.0002] # CHAM LETTER DDA
+AA1A  ; [.2E16.0020.0002] # CHAM LETTER PA
+AA1B  ; [.2E17.0020.0002] # CHAM LETTER PPA
+AA1C  ; [.2E18.0020.0002] # CHAM LETTER PHA
+AA1D  ; [.2E19.0020.0002] # CHAM LETTER BA
+AA1E  ; [.2E1A.0020.0002] # CHAM LETTER BHA
+AA1F  ; [.2E1B.0020.0002] # CHAM LETTER MUE
+AA20  ; [.2E1C.0020.0002] # CHAM LETTER MA
+AA21  ; [.2E1D.0020.0002] # CHAM LETTER BBA
+AA22  ; [.2E1E.0020.0002] # CHAM LETTER YA
+AA23  ; [.2E1F.0020.0002] # CHAM LETTER RA
+AA24  ; [.2E20.0020.0002] # CHAM LETTER LA
+AA25  ; [.2E21.0020.0002] # CHAM LETTER VA
+AA26  ; [.2E22.0020.0002] # CHAM LETTER SSA
+AA27  ; [.2E23.0020.0002] # CHAM LETTER SA
+AA28  ; [.2E24.0020.0002] # CHAM LETTER HA
+AA33  ; [.2E25.0020.0002] # CHAM CONSONANT SIGN YA
+AA34  ; [.2E26.0020.0002] # CHAM CONSONANT SIGN RA
+AA35  ; [.2E27.0020.0002] # CHAM CONSONANT SIGN LA
+AA36  ; [.2E28.0020.0002] # CHAM CONSONANT SIGN WA
+AA29  ; [.2E29.0020.0002] # CHAM VOWEL SIGN AA
+AA2A  ; [.2E2A.0020.0002] # CHAM VOWEL SIGN I
+AA2B  ; [.2E2B.0020.0002] # CHAM VOWEL SIGN II
+AA2C  ; [.2E2C.0020.0002] # CHAM VOWEL SIGN EI
+AA2D  ; [.2E2D.0020.0002] # CHAM VOWEL SIGN U
+AA2E  ; [.2E2E.0020.0002] # CHAM VOWEL SIGN OE
+AA2F  ; [.2E2F.0020.0002] # CHAM VOWEL SIGN O
+AA30  ; [.2E30.0020.0002] # CHAM VOWEL SIGN AI
+AA31  ; [.2E31.0020.0002] # CHAM VOWEL SIGN AU
+AA32  ; [.2E32.0020.0002] # CHAM VOWEL SIGN UE
+AA40  ; [.2E33.0020.0002] # CHAM LETTER FINAL K
+AA41  ; [.2E34.0020.0002] # CHAM LETTER FINAL G
+AA42  ; [.2E35.0020.0002] # CHAM LETTER FINAL NG
+AA43  ; [.2E36.0020.0002] # CHAM CONSONANT SIGN FINAL NG
+AA44  ; [.2E37.0020.0002] # CHAM LETTER FINAL CH
+AA45  ; [.2E38.0020.0002] # CHAM LETTER FINAL T
+AA46  ; [.2E39.0020.0002] # CHAM LETTER FINAL N
+AA47  ; [.2E3A.0020.0002] # CHAM LETTER FINAL P
+AA48  ; [.2E3B.0020.0002] # CHAM LETTER FINAL Y
+AA49  ; [.2E3C.0020.0002] # CHAM LETTER FINAL R
+AA4A  ; [.2E3D.0020.0002] # CHAM LETTER FINAL L
+AA4B  ; [.2E3E.0020.0002] # CHAM LETTER FINAL SS
+AA4C  ; [.2E3F.0020.0002] # CHAM CONSONANT SIGN FINAL M
+AA4D  ; [.2E40.0020.0002] # CHAM CONSONANT SIGN FINAL H
+1B05  ; [.2E41.0020.0002] # BALINESE LETTER AKARA
+1B06  ; [.2E42.0020.0002] # BALINESE LETTER AKARA TEDUNG
+1B05 1B35 ; [.2E42.0020.0002] # BALINESE LETTER AKARA TEDUNG
+1B07  ; [.2E43.0020.0002] # BALINESE LETTER IKARA
+1B08  ; [.2E44.0020.0002] # BALINESE LETTER IKARA TEDUNG
+1B07 1B35 ; [.2E44.0020.0002] # BALINESE LETTER IKARA TEDUNG
+1B09  ; [.2E45.0020.0002] # BALINESE LETTER UKARA
+1B0A  ; [.2E46.0020.0002] # BALINESE LETTER UKARA TEDUNG
+1B09 1B35 ; [.2E46.0020.0002] # BALINESE LETTER UKARA TEDUNG
+1B0B  ; [.2E47.0020.0002] # BALINESE LETTER RA REPA
+1B0C  ; [.2E48.0020.0002] # BALINESE LETTER RA REPA TEDUNG
+1B0B 1B35 ; [.2E48.0020.0002] # BALINESE LETTER RA REPA TEDUNG
+1B0D  ; [.2E49.0020.0002] # BALINESE LETTER LA LENGA
+1B0E  ; [.2E4A.0020.0002] # BALINESE LETTER LA LENGA TEDUNG
+1B0D 1B35 ; [.2E4A.0020.0002] # BALINESE LETTER LA LENGA TEDUNG
+1B0F  ; [.2E4B.0020.0002] # BALINESE LETTER EKARA
+1B10  ; [.2E4C.0020.0002] # BALINESE LETTER AIKARA
+1B11  ; [.2E4D.0020.0002] # BALINESE LETTER OKARA
+1B12  ; [.2E4E.0020.0002] # BALINESE LETTER OKARA TEDUNG
+1B11 1B35 ; [.2E4E.0020.0002] # BALINESE LETTER OKARA TEDUNG
+1B13  ; [.2E4F.0020.0002] # BALINESE LETTER KA
+1B45  ; [.2E50.0020.0002] # BALINESE LETTER KAF SASAK
+1B46  ; [.2E51.0020.0002] # BALINESE LETTER KHOT SASAK
+1B14  ; [.2E52.0020.0002] # BALINESE LETTER KA MAHAPRANA
+1B15  ; [.2E53.0020.0002] # BALINESE LETTER GA
+1B16  ; [.2E54.0020.0002] # BALINESE LETTER GA GORA
+1B17  ; [.2E55.0020.0002] # BALINESE LETTER NGA
+1B18  ; [.2E56.0020.0002] # BALINESE LETTER CA
+1B19  ; [.2E57.0020.0002] # BALINESE LETTER CA LACA
+1B1A  ; [.2E58.0020.0002] # BALINESE LETTER JA
+1B1B  ; [.2E59.0020.0002] # BALINESE LETTER JA JERA
+1B1C  ; [.2E5A.0020.0002] # BALINESE LETTER NYA
+1B1D  ; [.2E5B.0020.0002] # BALINESE LETTER TA LATIK
+1B1E  ; [.2E5C.0020.0002] # BALINESE LETTER TA MURDA MAHAPRANA
+1B1F  ; [.2E5D.0020.0002] # BALINESE LETTER DA MURDA ALPAPRANA
+1B20  ; [.2E5E.0020.0002] # BALINESE LETTER DA MURDA MAHAPRANA
+1B21  ; [.2E5F.0020.0002] # BALINESE LETTER NA RAMBAT
+1B22  ; [.2E60.0020.0002] # BALINESE LETTER TA
+1B47  ; [.2E61.0020.0002] # BALINESE LETTER TZIR SASAK
+1B23  ; [.2E62.0020.0002] # BALINESE LETTER TA TAWA
+1B24  ; [.2E63.0020.0002] # BALINESE LETTER DA
+1B25  ; [.2E64.0020.0002] # BALINESE LETTER DA MADU
+1B26  ; [.2E65.0020.0002] # BALINESE LETTER NA
+1B27  ; [.2E66.0020.0002] # BALINESE LETTER PA
+1B48  ; [.2E67.0020.0002] # BALINESE LETTER EF SASAK
+1B28  ; [.2E68.0020.0002] # BALINESE LETTER PA KAPAL
+1B29  ; [.2E69.0020.0002] # BALINESE LETTER BA
+1B2A  ; [.2E6A.0020.0002] # BALINESE LETTER BA KEMBANG
+1B2B  ; [.2E6B.0020.0002] # BALINESE LETTER MA
+1B2C  ; [.2E6C.0020.0002] # BALINESE LETTER YA
+1B2D  ; [.2E6D.0020.0002] # BALINESE LETTER RA
+1B2E  ; [.2E6E.0020.0002] # BALINESE LETTER LA
+1B2F  ; [.2E6F.0020.0002] # BALINESE LETTER WA
+1B49  ; [.2E70.0020.0002] # BALINESE LETTER VE SASAK
+1B30  ; [.2E71.0020.0002] # BALINESE LETTER SA SAGA
+1B31  ; [.2E72.0020.0002] # BALINESE LETTER SA SAPA
+1B32  ; [.2E73.0020.0002] # BALINESE LETTER SA
+1B4A  ; [.2E74.0020.0002] # BALINESE LETTER ZAL SASAK
+1B4B  ; [.2E75.0020.0002] # BALINESE LETTER ASYURA SASAK
+1B33  ; [.2E76.0020.0002] # BALINESE LETTER HA
+1B35  ; [.2E77.0020.0002] # BALINESE VOWEL SIGN TEDUNG
+1B36  ; [.2E78.0020.0002] # BALINESE VOWEL SIGN ULU
+1B37  ; [.2E79.0020.0002] # BALINESE VOWEL SIGN ULU SARI
+1B38  ; [.2E7A.0020.0002] # BALINESE VOWEL SIGN SUKU
+1B39  ; [.2E7B.0020.0002] # BALINESE VOWEL SIGN SUKU ILUT
+1B3A  ; [.2E7C.0020.0002] # BALINESE VOWEL SIGN RA REPA
+1B3B  ; [.2E7D.0020.0002] # BALINESE VOWEL SIGN RA REPA TEDUNG
+1B3A 1B35 ; [.2E7D.0020.0002] # BALINESE VOWEL SIGN RA REPA TEDUNG
+1B3C  ; [.2E7E.0020.0002] # BALINESE VOWEL SIGN LA LENGA
+1B3D  ; [.2E7F.0020.0002] # BALINESE VOWEL SIGN LA LENGA TEDUNG
+1B3C 1B35 ; [.2E7F.0020.0002] # BALINESE VOWEL SIGN LA LENGA TEDUNG
+1B3E  ; [.2E80.0020.0002] # BALINESE VOWEL SIGN TALING
+1B3F  ; [.2E81.0020.0002] # BALINESE VOWEL SIGN TALING REPA
+1B40  ; [.2E82.0020.0002] # BALINESE VOWEL SIGN TALING TEDUNG
+1B3E 1B35 ; [.2E82.0020.0002] # BALINESE VOWEL SIGN TALING TEDUNG
+1B41  ; [.2E83.0020.0002] # BALINESE VOWEL SIGN TALING REPA TEDUNG
+1B3F 1B35 ; [.2E83.0020.0002] # BALINESE VOWEL SIGN TALING REPA TEDUNG
+1B42  ; [.2E84.0020.0002] # BALINESE VOWEL SIGN PEPET
+1B43  ; [.2E85.0020.0002] # BALINESE VOWEL SIGN PEPET TEDUNG
+1B42 1B35 ; [.2E85.0020.0002] # BALINESE VOWEL SIGN PEPET TEDUNG
+1B44  ; [.2E86.0020.0002] # BALINESE ADEG ADEG
+A984  ; [.2E87.0020.0002] # JAVANESE LETTER A
+A985  ; [.2E88.0020.0002] # JAVANESE LETTER I KAWI
+A986  ; [.2E89.0020.0002] # JAVANESE LETTER I
+A987  ; [.2E8A.0020.0002] # JAVANESE LETTER II
+A988  ; [.2E8B.0020.0002] # JAVANESE LETTER U
+A989  ; [.2E8C.0020.0002] # JAVANESE LETTER PA CEREK
+A98A  ; [.2E8D.0020.0002] # JAVANESE LETTER NGA LELET
+A98B  ; [.2E8E.0020.0002] # JAVANESE LETTER NGA LELET RASWADI
+A98C  ; [.2E8F.0020.0002] # JAVANESE LETTER E
+A98D  ; [.2E90.0020.0002] # JAVANESE LETTER AI
+A98E  ; [.2E91.0020.0002] # JAVANESE LETTER O
+A98F  ; [.2E92.0020.0002] # JAVANESE LETTER KA
+A990  ; [.2E93.0020.0002] # JAVANESE LETTER KA SASAK
+A991  ; [.2E94.0020.0002] # JAVANESE LETTER KA MURDA
+A992  ; [.2E95.0020.0002] # JAVANESE LETTER GA
+A993  ; [.2E96.0020.0002] # JAVANESE LETTER GA MURDA
+A994  ; [.2E97.0020.0002] # JAVANESE LETTER NGA
+A995  ; [.2E98.0020.0002] # JAVANESE LETTER CA
+A996  ; [.2E99.0020.0002] # JAVANESE LETTER CA MURDA
+A997  ; [.2E9A.0020.0002] # JAVANESE LETTER JA
+A998  ; [.2E9B.0020.0002] # JAVANESE LETTER NYA MURDA
+A999  ; [.2E9C.0020.0002] # JAVANESE LETTER JA MAHAPRANA
+A99A  ; [.2E9D.0020.0002] # JAVANESE LETTER NYA
+A99B  ; [.2E9E.0020.0002] # JAVANESE LETTER TTA
+A99C  ; [.2E9F.0020.0002] # JAVANESE LETTER TTA MAHAPRANA
+A99D  ; [.2EA0.0020.0002] # JAVANESE LETTER DDA
+A99E  ; [.2EA1.0020.0002] # JAVANESE LETTER DDA MAHAPRANA
+A99F  ; [.2EA2.0020.0002] # JAVANESE LETTER NA MURDA
+A9A0  ; [.2EA3.0020.0002] # JAVANESE LETTER TA
+A9A1  ; [.2EA4.0020.0002] # JAVANESE LETTER TA MURDA
+A9A2  ; [.2EA5.0020.0002] # JAVANESE LETTER DA
+A9A3  ; [.2EA6.0020.0002] # JAVANESE LETTER DA MAHAPRANA
+A9A4  ; [.2EA7.0020.0002] # JAVANESE LETTER NA
+A9A5  ; [.2EA8.0020.0002] # JAVANESE LETTER PA
+A9A6  ; [.2EA9.0020.0002] # JAVANESE LETTER PA MURDA
+A9A7  ; [.2EAA.0020.0002] # JAVANESE LETTER BA
+A9A8  ; [.2EAB.0020.0002] # JAVANESE LETTER BA MURDA
+A9A9  ; [.2EAC.0020.0002] # JAVANESE LETTER MA
+A9AA  ; [.2EAD.0020.0002] # JAVANESE LETTER YA
+A9BE  ; [.2EAE.0020.0002] # JAVANESE CONSONANT SIGN PENGKAL
+A9AB  ; [.2EAF.0020.0002] # JAVANESE LETTER RA
+A9AC  ; [.2EAF.0020.0004] # JAVANESE LETTER RA AGUNG
+A9BF  ; [.2EB0.0020.0002] # JAVANESE CONSONANT SIGN CAKRA
+A9AD  ; [.2EB1.0020.0002] # JAVANESE LETTER LA
+A9AE  ; [.2EB2.0020.0002] # JAVANESE LETTER WA
+A9AF  ; [.2EB3.0020.0002] # JAVANESE LETTER SA MURDA
+A9B0  ; [.2EB4.0020.0002] # JAVANESE LETTER SA MAHAPRANA
+A9B1  ; [.2EB5.0020.0002] # JAVANESE LETTER SA
+A9B2  ; [.2EB6.0020.0002] # JAVANESE LETTER HA
+A9B4  ; [.2EB7.0020.0002] # JAVANESE VOWEL SIGN TARUNG
+A9BC  ; [.2EB8.0020.0002] # JAVANESE VOWEL SIGN PEPET
+A9B6  ; [.2EB9.0020.0002] # JAVANESE VOWEL SIGN WULU
+A9B7  ; [.2EBA.0020.0002] # JAVANESE VOWEL SIGN WULU MELIK
+A9B8  ; [.2EBB.0020.0002] # JAVANESE VOWEL SIGN SUKU
+A9B9  ; [.2EBC.0020.0002] # JAVANESE VOWEL SIGN SUKU MENDUT
+A9BD  ; [.2EBD.0020.0002] # JAVANESE CONSONANT SIGN KERET
+A9BA  ; [.2EBE.0020.0002] # JAVANESE VOWEL SIGN TALING
+A9BB  ; [.2EBF.0020.0002] # JAVANESE VOWEL SIGN DIRGA MURE
+A9B5  ; [.2EC0.0020.0002] # JAVANESE VOWEL SIGN TOLONG
+A9C0  ; [.2EC1.0020.0002] # JAVANESE PANGKON
+1880  ; [.2EC2.0020.0002] # MONGOLIAN LETTER ALI GALI ANUSVARA ONE
+1881  ; [.2EC3.0020.0002] # MONGOLIAN LETTER ALI GALI VISARGA ONE
+1882  ; [.2EC4.0020.0002] # MONGOLIAN LETTER ALI GALI DAMARU
+1883  ; [.2EC5.0020.0002] # MONGOLIAN LETTER ALI GALI UBADAMA
+1884  ; [.2EC6.0020.0002] # MONGOLIAN LETTER ALI GALI INVERTED UBADAMA
+1885  ; [.2EC7.0020.0002] # MONGOLIAN LETTER ALI GALI BALUDA
+1886  ; [.2EC8.0020.0002] # MONGOLIAN LETTER ALI GALI THREE BALUDA
+1843  ; [.2EC9.0020.0002] # MONGOLIAN LETTER TODO LONG VOWEL SIGN
+1820  ; [.2ECA.0020.0002] # MONGOLIAN LETTER A
+1887  ; [.2ECB.0020.0002] # MONGOLIAN LETTER ALI GALI A
+1821  ; [.2ECC.0020.0002] # MONGOLIAN LETTER E
+1844  ; [.2ECD.0020.0002] # MONGOLIAN LETTER TODO E
+185D  ; [.2ECE.0020.0002] # MONGOLIAN LETTER SIBE E
+1822  ; [.2ECF.0020.0002] # MONGOLIAN LETTER I
+1845  ; [.2ED0.0020.0002] # MONGOLIAN LETTER TODO I
+185E  ; [.2ED1.0020.0002] # MONGOLIAN LETTER SIBE I
+1873  ; [.2ED2.0020.0002] # MONGOLIAN LETTER MANCHU I
+1888  ; [.2ED3.0020.0002] # MONGOLIAN LETTER ALI GALI I
+185F  ; [.2ED4.0020.0002] # MONGOLIAN LETTER SIBE IY
+1823  ; [.2ED5.0020.0002] # MONGOLIAN LETTER O
+1846  ; [.2ED6.0020.0002] # MONGOLIAN LETTER TODO O
+1824  ; [.2ED7.0020.0002] # MONGOLIAN LETTER U
+1847  ; [.2ED8.0020.0002] # MONGOLIAN LETTER TODO U
+1861  ; [.2ED9.0020.0002] # MONGOLIAN LETTER SIBE U
+1825  ; [.2EDA.0020.0002] # MONGOLIAN LETTER OE
+1848  ; [.2EDB.0020.0002] # MONGOLIAN LETTER TODO OE
+1826  ; [.2EDC.0020.0002] # MONGOLIAN LETTER UE
+1849  ; [.2EDD.0020.0002] # MONGOLIAN LETTER TODO UE
+1860  ; [.2EDE.0020.0002] # MONGOLIAN LETTER SIBE UE
+1827  ; [.2EDF.0020.0002] # MONGOLIAN LETTER EE
+1828  ; [.2EE0.0020.0002] # MONGOLIAN LETTER NA
+1829  ; [.2EE1.0020.0002] # MONGOLIAN LETTER ANG
+184A  ; [.2EE2.0020.0002] # MONGOLIAN LETTER TODO ANG
+1862  ; [.2EE3.0020.0002] # MONGOLIAN LETTER SIBE ANG
+188A  ; [.2EE4.0020.0002] # MONGOLIAN LETTER ALI GALI NGA
+189B  ; [.2EE5.0020.0002] # MONGOLIAN LETTER MANCHU ALI GALI NGA
+182A  ; [.2EE6.0020.0002] # MONGOLIAN LETTER BA
+184B  ; [.2EE7.0020.0002] # MONGOLIAN LETTER TODO BA
+182B  ; [.2EE8.0020.0002] # MONGOLIAN LETTER PA
+184C  ; [.2EE9.0020.0002] # MONGOLIAN LETTER TODO PA
+1866  ; [.2EEA.0020.0002] # MONGOLIAN LETTER SIBE PA
+182C  ; [.2EEB.0020.0002] # MONGOLIAN LETTER QA
+184D  ; [.2EEC.0020.0002] # MONGOLIAN LETTER TODO QA
+182D  ; [.2EED.0020.0002] # MONGOLIAN LETTER GA
+184E  ; [.2EEE.0020.0002] # MONGOLIAN LETTER TODO GA
+1864  ; [.2EEF.0020.0002] # MONGOLIAN LETTER SIBE GA
+189A  ; [.2EF0.0020.0002] # MONGOLIAN LETTER MANCHU ALI GALI GHA
+1865  ; [.2EF1.0020.0002] # MONGOLIAN LETTER SIBE HA
+182E  ; [.2EF2.0020.0002] # MONGOLIAN LETTER MA
+184F  ; [.2EF3.0020.0002] # MONGOLIAN LETTER TODO MA
+182F  ; [.2EF4.0020.0002] # MONGOLIAN LETTER LA
+1830  ; [.2EF5.0020.0002] # MONGOLIAN LETTER SA
+1831  ; [.2EF6.0020.0002] # MONGOLIAN LETTER SHA
+1867  ; [.2EF7.0020.0002] # MONGOLIAN LETTER SIBE SHA
+189C  ; [.2EF8.0020.0002] # MONGOLIAN LETTER MANCHU ALI GALI CA
+189D  ; [.2EF9.0020.0002] # MONGOLIAN LETTER MANCHU ALI GALI JHA
+18A2  ; [.2EFA.0020.0002] # MONGOLIAN LETTER MANCHU ALI GALI SSA
+18A4  ; [.2EFB.0020.0002] # MONGOLIAN LETTER MANCHU ALI GALI ZHA
+18A5  ; [.2EFC.0020.0002] # MONGOLIAN LETTER MANCHU ALI GALI ZA
+1832  ; [.2EFD.0020.0002] # MONGOLIAN LETTER TA
+1850  ; [.2EFE.0020.0002] # MONGOLIAN LETTER TODO TA
+1868  ; [.2EFF.0020.0002] # MONGOLIAN LETTER SIBE TA
+1833  ; [.2F00.0020.0002] # MONGOLIAN LETTER DA
+1851  ; [.2F01.0020.0002] # MONGOLIAN LETTER TODO DA
+1869  ; [.2F02.0020.0002] # MONGOLIAN LETTER SIBE DA
+1834  ; [.2F03.0020.0002] # MONGOLIAN LETTER CHA
+1852  ; [.2F04.0020.0002] # MONGOLIAN LETTER TODO CHA
+1871  ; [.2F05.0020.0002] # MONGOLIAN LETTER SIBE CHA
+185C  ; [.2F06.0020.0002] # MONGOLIAN LETTER TODO DZA
+188B  ; [.2F07.0020.0002] # MONGOLIAN LETTER ALI GALI CA
+1835  ; [.2F08.0020.0002] # MONGOLIAN LETTER JA
+1853  ; [.2F09.0020.0002] # MONGOLIAN LETTER TODO JA
+186A  ; [.2F0A.0020.0002] # MONGOLIAN LETTER SIBE JA
+1877  ; [.2F0B.0020.0002] # MONGOLIAN LETTER MANCHU ZHA
+1836  ; [.2F0C.0020.0002] # MONGOLIAN LETTER YA
+1855  ; [.2F0D.0020.0002] # MONGOLIAN LETTER TODO YA
+1872  ; [.2F0E.0020.0002] # MONGOLIAN LETTER SIBE ZHA
+1837  ; [.2F0F.0020.0002] # MONGOLIAN LETTER RA
+1875  ; [.2F10.0020.0002] # MONGOLIAN LETTER MANCHU RA
+1838  ; [.2F11.0020.0002] # MONGOLIAN LETTER WA
+1856  ; [.2F12.0020.0002] # MONGOLIAN LETTER TODO WA
+1839  ; [.2F13.0020.0002] # MONGOLIAN LETTER FA
+186B  ; [.2F14.0020.0002] # MONGOLIAN LETTER SIBE FA
+1876  ; [.2F15.0020.0002] # MONGOLIAN LETTER MANCHU FA
+183A  ; [.2F16.0020.0002] # MONGOLIAN LETTER KA
+1857  ; [.2F17.0020.0002] # MONGOLIAN LETTER TODO KA
+1863  ; [.2F18.0020.0002] # MONGOLIAN LETTER SIBE KA
+1874  ; [.2F19.0020.0002] # MONGOLIAN LETTER MANCHU KA
+1889  ; [.2F1A.0020.0002] # MONGOLIAN LETTER ALI GALI KA
+183B  ; [.2F1B.0020.0002] # MONGOLIAN LETTER KHA
+183C  ; [.2F1C.0020.0002] # MONGOLIAN LETTER TSA
+1854  ; [.2F1D.0020.0002] # MONGOLIAN LETTER TODO TSA
+186E  ; [.2F1E.0020.0002] # MONGOLIAN LETTER SIBE TSA
+183D  ; [.2F1F.0020.0002] # MONGOLIAN LETTER ZA
+186F  ; [.2F20.0020.0002] # MONGOLIAN LETTER SIBE ZA
+1858  ; [.2F21.0020.0002] # MONGOLIAN LETTER TODO GAA
+186C  ; [.2F22.0020.0002] # MONGOLIAN LETTER SIBE GAA
+183E  ; [.2F23.0020.0002] # MONGOLIAN LETTER HAA
+1859  ; [.2F24.0020.0002] # MONGOLIAN LETTER TODO HAA
+186D  ; [.2F25.0020.0002] # MONGOLIAN LETTER SIBE HAA
+183F  ; [.2F26.0020.0002] # MONGOLIAN LETTER ZRA
+1840  ; [.2F27.0020.0002] # MONGOLIAN LETTER LHA
+1841  ; [.2F28.0020.0002] # MONGOLIAN LETTER ZHI
+1842  ; [.2F29.0020.0002] # MONGOLIAN LETTER CHI
+185A  ; [.2F2A.0020.0002] # MONGOLIAN LETTER TODO JIA
+185B  ; [.2F2B.0020.0002] # MONGOLIAN LETTER TODO NIA
+1870  ; [.2F2C.0020.0002] # MONGOLIAN LETTER SIBE RAA
+188C  ; [.2F2D.0020.0002] # MONGOLIAN LETTER ALI GALI TTA
+189E  ; [.2F2E.0020.0002] # MONGOLIAN LETTER MANCHU ALI GALI TTA
+188D  ; [.2F2F.0020.0002] # MONGOLIAN LETTER ALI GALI TTHA
+188E  ; [.2F30.0020.0002] # MONGOLIAN LETTER ALI GALI DDA
+189F  ; [.2F31.0020.0002] # MONGOLIAN LETTER MANCHU ALI GALI DDHA
+188F  ; [.2F32.0020.0002] # MONGOLIAN LETTER ALI GALI NNA
+1890  ; [.2F33.0020.0002] # MONGOLIAN LETTER ALI GALI TA
+1898  ; [.2F34.0020.0002] # MONGOLIAN LETTER TODO ALI GALI TA
+18A0  ; [.2F35.0020.0002] # MONGOLIAN LETTER MANCHU ALI GALI TA
+1891  ; [.2F36.0020.0002] # MONGOLIAN LETTER ALI GALI DA
+18A1  ; [.2F37.0020.0002] # MONGOLIAN LETTER MANCHU ALI GALI DHA
+1892  ; [.2F38.0020.0002] # MONGOLIAN LETTER ALI GALI PA
+1893  ; [.2F39.0020.0002] # MONGOLIAN LETTER ALI GALI PHA
+18A8  ; [.2F3A.0020.0002] # MONGOLIAN LETTER MANCHU ALI GALI BHA
+1894  ; [.2F3B.0020.0002] # MONGOLIAN LETTER ALI GALI SSA
+18A3  ; [.2F3C.0020.0002] # MONGOLIAN LETTER MANCHU ALI GALI CYA
+1895  ; [.2F3D.0020.0002] # MONGOLIAN LETTER ALI GALI ZHA
+1899  ; [.2F3E.0020.0002] # MONGOLIAN LETTER TODO ALI GALI ZHA
+1896  ; [.2F3F.0020.0002] # MONGOLIAN LETTER ALI GALI ZA
+1897  ; [.2F40.0020.0002] # MONGOLIAN LETTER ALI GALI AH
+18A6  ; [.2F41.0020.0002] # MONGOLIAN LETTER ALI GALI HALF U
+18A7  ; [.2F42.0020.0002] # MONGOLIAN LETTER ALI GALI HALF YA
+18AA  ; [.2F43.0020.0002] # MONGOLIAN LETTER MANCHU ALI GALI LHA
+18A9  ; [.2F44.0020.0002] # MONGOLIAN LETTER ALI GALI DAGALGA
+1C5A  ; [.2F45.0020.0002] # OL CHIKI LETTER LA
+1C5B  ; [.2F46.0020.0002] # OL CHIKI LETTER AT
+1C5C  ; [.2F47.0020.0002] # OL CHIKI LETTER AG
+1C5D  ; [.2F48.0020.0002] # OL CHIKI LETTER ANG
+1C5E  ; [.2F49.0020.0002] # OL CHIKI LETTER AL
+1C5F  ; [.2F4A.0020.0002] # OL CHIKI LETTER LAA
+1C60  ; [.2F4B.0020.0002] # OL CHIKI LETTER AAK
+1C61  ; [.2F4C.0020.0002] # OL CHIKI LETTER AAJ
+1C62  ; [.2F4D.0020.0002] # OL CHIKI LETTER AAM
+1C63  ; [.2F4E.0020.0002] # OL CHIKI LETTER AAW
+1C64  ; [.2F4F.0020.0002] # OL CHIKI LETTER LI
+1C65  ; [.2F50.0020.0002] # OL CHIKI LETTER IS
+1C66  ; [.2F51.0020.0002] # OL CHIKI LETTER IH
+1C67  ; [.2F52.0020.0002] # OL CHIKI LETTER INY
+1C68  ; [.2F53.0020.0002] # OL CHIKI LETTER IR
+1C69  ; [.2F54.0020.0002] # OL CHIKI LETTER LU
+1C6A  ; [.2F55.0020.0002] # OL CHIKI LETTER UC
+1C6B  ; [.2F56.0020.0002] # OL CHIKI LETTER UD
+1C6C  ; [.2F57.0020.0002] # OL CHIKI LETTER UNN
+1C6D  ; [.2F58.0020.0002] # OL CHIKI LETTER UY
+1C6E  ; [.2F59.0020.0002] # OL CHIKI LETTER LE
+1C6F  ; [.2F5A.0020.0002] # OL CHIKI LETTER EP
+1C70  ; [.2F5B.0020.0002] # OL CHIKI LETTER EDD
+1C71  ; [.2F5C.0020.0002] # OL CHIKI LETTER EN
+1C72  ; [.2F5D.0020.0002] # OL CHIKI LETTER ERR
+1C73  ; [.2F5E.0020.0002] # OL CHIKI LETTER LO
+1C74  ; [.2F5F.0020.0002] # OL CHIKI LETTER OTT
+1C75  ; [.2F60.0020.0002] # OL CHIKI LETTER OB
+1C76  ; [.2F61.0020.0002] # OL CHIKI LETTER OV
+1C77  ; [.2F62.0020.0002] # OL CHIKI LETTER OH
+1C78  ; [.2F63.0020.0002] # OL CHIKI MU TTUDDAG
+1C79  ; [.2F64.0020.0002] # OL CHIKI GAAHLAA TTUDDAAG
+1C7A  ; [.2F65.0020.0002] # OL CHIKI MU-GAAHLAA TTUDDAAG
+1C7B  ; [.2F66.0020.0002] # OL CHIKI RELAA
+1C7C  ; [.2F67.0020.0002] # OL CHIKI PHAARKAA
+1C7D  ; [.2F68.0020.0002] # OL CHIKI AHAD
+13A0  ; [.2F69.0020.0002] # CHEROKEE LETTER A
+13A1  ; [.2F6A.0020.0002] # CHEROKEE LETTER E
+13A2  ; [.2F6B.0020.0002] # CHEROKEE LETTER I
+13A3  ; [.2F6C.0020.0002] # CHEROKEE LETTER O
+13A4  ; [.2F6D.0020.0002] # CHEROKEE LETTER U
+13A5  ; [.2F6E.0020.0002] # CHEROKEE LETTER V
+13A6  ; [.2F6F.0020.0002] # CHEROKEE LETTER GA
+13A7  ; [.2F70.0020.0002] # CHEROKEE LETTER KA
+13A8  ; [.2F71.0020.0002] # CHEROKEE LETTER GE
+13A9  ; [.2F72.0020.0002] # CHEROKEE LETTER GI
+13AA  ; [.2F73.0020.0002] # CHEROKEE LETTER GO
+13AB  ; [.2F74.0020.0002] # CHEROKEE LETTER GU
+13AC  ; [.2F75.0020.0002] # CHEROKEE LETTER GV
+13AD  ; [.2F76.0020.0002] # CHEROKEE LETTER HA
+13AE  ; [.2F77.0020.0002] # CHEROKEE LETTER HE
+13AF  ; [.2F78.0020.0002] # CHEROKEE LETTER HI
+13B0  ; [.2F79.0020.0002] # CHEROKEE LETTER HO
+13B1  ; [.2F7A.0020.0002] # CHEROKEE LETTER HU
+13B2  ; [.2F7B.0020.0002] # CHEROKEE LETTER HV
+13B3  ; [.2F7C.0020.0002] # CHEROKEE LETTER LA
+13B4  ; [.2F7D.0020.0002] # CHEROKEE LETTER LE
+13B5  ; [.2F7E.0020.0002] # CHEROKEE LETTER LI
+13B6  ; [.2F7F.0020.0002] # CHEROKEE LETTER LO
+13B7  ; [.2F80.0020.0002] # CHEROKEE LETTER LU
+13B8  ; [.2F81.0020.0002] # CHEROKEE LETTER LV
+13B9  ; [.2F82.0020.0002] # CHEROKEE LETTER MA
+13BA  ; [.2F83.0020.0002] # CHEROKEE LETTER ME
+13BB  ; [.2F84.0020.0002] # CHEROKEE LETTER MI
+13BC  ; [.2F85.0020.0002] # CHEROKEE LETTER MO
+13BD  ; [.2F86.0020.0002] # CHEROKEE LETTER MU
+13BE  ; [.2F87.0020.0002] # CHEROKEE LETTER NA
+13BF  ; [.2F88.0020.0002] # CHEROKEE LETTER HNA
+13C0  ; [.2F89.0020.0002] # CHEROKEE LETTER NAH
+13C1  ; [.2F8A.0020.0002] # CHEROKEE LETTER NE
+13C2  ; [.2F8B.0020.0002] # CHEROKEE LETTER NI
+13C3  ; [.2F8C.0020.0002] # CHEROKEE LETTER NO
+13C4  ; [.2F8D.0020.0002] # CHEROKEE LETTER NU
+13C5  ; [.2F8E.0020.0002] # CHEROKEE LETTER NV
+13C6  ; [.2F8F.0020.0002] # CHEROKEE LETTER QUA
+13C7  ; [.2F90.0020.0002] # CHEROKEE LETTER QUE
+13C8  ; [.2F91.0020.0002] # CHEROKEE LETTER QUI
+13C9  ; [.2F92.0020.0002] # CHEROKEE LETTER QUO
+13CA  ; [.2F93.0020.0002] # CHEROKEE LETTER QUU
+13CB  ; [.2F94.0020.0002] # CHEROKEE LETTER QUV
+13CC  ; [.2F95.0020.0002] # CHEROKEE LETTER SA
+13CD  ; [.2F96.0020.0002] # CHEROKEE LETTER S
+13CE  ; [.2F97.0020.0002] # CHEROKEE LETTER SE
+13CF  ; [.2F98.0020.0002] # CHEROKEE LETTER SI
+13D0  ; [.2F99.0020.0002] # CHEROKEE LETTER SO
+13D1  ; [.2F9A.0020.0002] # CHEROKEE LETTER SU
+13D2  ; [.2F9B.0020.0002] # CHEROKEE LETTER SV
+13D3  ; [.2F9C.0020.0002] # CHEROKEE LETTER DA
+13D4  ; [.2F9D.0020.0002] # CHEROKEE LETTER TA
+13D5  ; [.2F9E.0020.0002] # CHEROKEE LETTER DE
+13D6  ; [.2F9F.0020.0002] # CHEROKEE LETTER TE
+13D7  ; [.2FA0.0020.0002] # CHEROKEE LETTER DI
+13D8  ; [.2FA1.0020.0002] # CHEROKEE LETTER TI
+13D9  ; [.2FA2.0020.0002] # CHEROKEE LETTER DO
+13DA  ; [.2FA3.0020.0002] # CHEROKEE LETTER DU
+13DB  ; [.2FA4.0020.0002] # CHEROKEE LETTER DV
+13DC  ; [.2FA5.0020.0002] # CHEROKEE LETTER DLA
+13DD  ; [.2FA6.0020.0002] # CHEROKEE LETTER TLA
+13DE  ; [.2FA7.0020.0002] # CHEROKEE LETTER TLE
+13DF  ; [.2FA8.0020.0002] # CHEROKEE LETTER TLI
+13E0  ; [.2FA9.0020.0002] # CHEROKEE LETTER TLO
+13E1  ; [.2FAA.0020.0002] # CHEROKEE LETTER TLU
+13E2  ; [.2FAB.0020.0002] # CHEROKEE LETTER TLV
+13E3  ; [.2FAC.0020.0002] # CHEROKEE LETTER TSA
+13E4  ; [.2FAD.0020.0002] # CHEROKEE LETTER TSE
+13E5  ; [.2FAE.0020.0002] # CHEROKEE LETTER TSI
+13E6  ; [.2FAF.0020.0002] # CHEROKEE LETTER TSO
+13E7  ; [.2FB0.0020.0002] # CHEROKEE LETTER TSU
+13E8  ; [.2FB1.0020.0002] # CHEROKEE LETTER TSV
+13E9  ; [.2FB2.0020.0002] # CHEROKEE LETTER WA
+13EA  ; [.2FB3.0020.0002] # CHEROKEE LETTER WE
+13EB  ; [.2FB4.0020.0002] # CHEROKEE LETTER WI
+13EC  ; [.2FB5.0020.0002] # CHEROKEE LETTER WO
+13ED  ; [.2FB6.0020.0002] # CHEROKEE LETTER WU
+13EE  ; [.2FB7.0020.0002] # CHEROKEE LETTER WV
+13EF  ; [.2FB8.0020.0002] # CHEROKEE LETTER YA
+13F0  ; [.2FB9.0020.0002] # CHEROKEE LETTER YE
+13F1  ; [.2FBA.0020.0002] # CHEROKEE LETTER YI
+13F2  ; [.2FBB.0020.0002] # CHEROKEE LETTER YO
+13F3  ; [.2FBC.0020.0002] # CHEROKEE LETTER YU
+13F4  ; [.2FBD.0020.0002] # CHEROKEE LETTER YV
+1401  ; [.2FBE.0020.0002] # CANADIAN SYLLABICS E
+1402  ; [.2FBF.0020.0002] # CANADIAN SYLLABICS AAI
+1403  ; [.2FC0.0020.0002] # CANADIAN SYLLABICS I
+1404  ; [.2FC1.0020.0002] # CANADIAN SYLLABICS II
+1405  ; [.2FC2.0020.0002] # CANADIAN SYLLABICS O
+1406  ; [.2FC3.0020.0002] # CANADIAN SYLLABICS OO
+1407  ; [.2FC4.0020.0002] # CANADIAN SYLLABICS Y-CREE OO
+1408  ; [.2FC5.0020.0002] # CANADIAN SYLLABICS CARRIER EE
+1409  ; [.2FC6.0020.0002] # CANADIAN SYLLABICS CARRIER I
+140A  ; [.2FC7.0020.0002] # CANADIAN SYLLABICS A
+140B  ; [.2FC8.0020.0002] # CANADIAN SYLLABICS AA
+140C  ; [.2FC9.0020.0002] # CANADIAN SYLLABICS WE
+140D  ; [.2FCA.0020.0002] # CANADIAN SYLLABICS WEST-CREE WE
+140E  ; [.2FCB.0020.0002] # CANADIAN SYLLABICS WI
+140F  ; [.2FCC.0020.0002] # CANADIAN SYLLABICS WEST-CREE WI
+1410  ; [.2FCD.0020.0002] # CANADIAN SYLLABICS WII
+1411  ; [.2FCE.0020.0002] # CANADIAN SYLLABICS WEST-CREE WII
+1412  ; [.2FCF.0020.0002] # CANADIAN SYLLABICS WO
+1413  ; [.2FD0.0020.0002] # CANADIAN SYLLABICS WEST-CREE WO
+1414  ; [.2FD1.0020.0002] # CANADIAN SYLLABICS WOO
+1415  ; [.2FD2.0020.0002] # CANADIAN SYLLABICS WEST-CREE WOO
+1416  ; [.2FD3.0020.0002] # CANADIAN SYLLABICS NASKAPI WOO
+1417  ; [.2FD4.0020.0002] # CANADIAN SYLLABICS WA
+1418  ; [.2FD5.0020.0002] # CANADIAN SYLLABICS WEST-CREE WA
+1419  ; [.2FD6.0020.0002] # CANADIAN SYLLABICS WAA
+141A  ; [.2FD7.0020.0002] # CANADIAN SYLLABICS WEST-CREE WAA
+141B  ; [.2FD8.0020.0002] # CANADIAN SYLLABICS NASKAPI WAA
+141C  ; [.2FD9.0020.0002] # CANADIAN SYLLABICS AI
+141D  ; [.2FDA.0020.0002] # CANADIAN SYLLABICS Y-CREE W
+141E  ; [.2FDB.0020.0002] # CANADIAN SYLLABICS GLOTTAL STOP
+141F  ; [.2FDC.0020.0002] # CANADIAN SYLLABICS FINAL ACUTE
+1420  ; [.2FDD.0020.0002] # CANADIAN SYLLABICS FINAL GRAVE
+1421  ; [.2FDE.0020.0002] # CANADIAN SYLLABICS FINAL BOTTOM HALF RING
+1422  ; [.2FDF.0020.0002] # CANADIAN SYLLABICS FINAL TOP HALF RING
+1423  ; [.2FE0.0020.0002] # CANADIAN SYLLABICS FINAL RIGHT HALF RING
+1424  ; [.2FE1.0020.0002] # CANADIAN SYLLABICS FINAL RING
+1425  ; [.2FE2.0020.0002] # CANADIAN SYLLABICS FINAL DOUBLE ACUTE
+1426  ; [.2FE3.0020.0002] # CANADIAN SYLLABICS FINAL DOUBLE SHORT VERTICAL STROKES
+1427  ; [.2FE4.0020.0002] # CANADIAN SYLLABICS FINAL MIDDLE DOT
+1428  ; [.2FE5.0020.0002] # CANADIAN SYLLABICS FINAL SHORT HORIZONTAL STROKE
+1429  ; [.2FE6.0020.0002] # CANADIAN SYLLABICS FINAL PLUS
+142A  ; [.2FE7.0020.0002] # CANADIAN SYLLABICS FINAL DOWN TACK
+142B  ; [.2FE8.0020.0002] # CANADIAN SYLLABICS EN
+142C  ; [.2FE9.0020.0002] # CANADIAN SYLLABICS IN
+142D  ; [.2FEA.0020.0002] # CANADIAN SYLLABICS ON
+142E  ; [.2FEB.0020.0002] # CANADIAN SYLLABICS AN
+142F  ; [.2FEC.0020.0002] # CANADIAN SYLLABICS PE
+1430  ; [.2FED.0020.0002] # CANADIAN SYLLABICS PAAI
+1431  ; [.2FEE.0020.0002] # CANADIAN SYLLABICS PI
+1432  ; [.2FEF.0020.0002] # CANADIAN SYLLABICS PII
+1433  ; [.2FF0.0020.0002] # CANADIAN SYLLABICS PO
+1434  ; [.2FF1.0020.0002] # CANADIAN SYLLABICS POO
+1435  ; [.2FF2.0020.0002] # CANADIAN SYLLABICS Y-CREE POO
+1436  ; [.2FF3.0020.0002] # CANADIAN SYLLABICS CARRIER HEE
+1437  ; [.2FF4.0020.0002] # CANADIAN SYLLABICS CARRIER HI
+1438  ; [.2FF5.0020.0002] # CANADIAN SYLLABICS PA
+1439  ; [.2FF6.0020.0002] # CANADIAN SYLLABICS PAA
+143A  ; [.2FF7.0020.0002] # CANADIAN SYLLABICS PWE
+143B  ; [.2FF8.0020.0002] # CANADIAN SYLLABICS WEST-CREE PWE
+143C  ; [.2FF9.0020.0002] # CANADIAN SYLLABICS PWI
+143D  ; [.2FFA.0020.0002] # CANADIAN SYLLABICS WEST-CREE PWI
+143E  ; [.2FFB.0020.0002] # CANADIAN SYLLABICS PWII
+143F  ; [.2FFC.0020.0002] # CANADIAN SYLLABICS WEST-CREE PWII
+1440  ; [.2FFD.0020.0002] # CANADIAN SYLLABICS PWO
+1441  ; [.2FFE.0020.0002] # CANADIAN SYLLABICS WEST-CREE PWO
+1442  ; [.2FFF.0020.0002] # CANADIAN SYLLABICS PWOO
+1443  ; [.3000.0020.0002] # CANADIAN SYLLABICS WEST-CREE PWOO
+1444  ; [.3001.0020.0002] # CANADIAN SYLLABICS PWA
+1445  ; [.3002.0020.0002] # CANADIAN SYLLABICS WEST-CREE PWA
+1446  ; [.3003.0020.0002] # CANADIAN SYLLABICS PWAA
+1447  ; [.3004.0020.0002] # CANADIAN SYLLABICS WEST-CREE PWAA
+1448  ; [.3005.0020.0002] # CANADIAN SYLLABICS Y-CREE PWAA
+1449  ; [.3006.0020.0002] # CANADIAN SYLLABICS P
+144A  ; [.3007.0020.0002] # CANADIAN SYLLABICS WEST-CREE P
+144B  ; [.3008.0020.0002] # CANADIAN SYLLABICS CARRIER H
+144C  ; [.3009.0020.0002] # CANADIAN SYLLABICS TE
+144D  ; [.300A.0020.0002] # CANADIAN SYLLABICS TAAI
+144E  ; [.300B.0020.0002] # CANADIAN SYLLABICS TI
+144F  ; [.300C.0020.0002] # CANADIAN SYLLABICS TII
+1450  ; [.300D.0020.0002] # CANADIAN SYLLABICS TO
+1451  ; [.300E.0020.0002] # CANADIAN SYLLABICS TOO
+1452  ; [.300F.0020.0002] # CANADIAN SYLLABICS Y-CREE TOO
+1453  ; [.3010.0020.0002] # CANADIAN SYLLABICS CARRIER DEE
+1454  ; [.3011.0020.0002] # CANADIAN SYLLABICS CARRIER DI
+1455  ; [.3012.0020.0002] # CANADIAN SYLLABICS TA
+1456  ; [.3013.0020.0002] # CANADIAN SYLLABICS TAA
+1457  ; [.3014.0020.0002] # CANADIAN SYLLABICS TWE
+1458  ; [.3015.0020.0002] # CANADIAN SYLLABICS WEST-CREE TWE
+1459  ; [.3016.0020.0002] # CANADIAN SYLLABICS TWI
+145A  ; [.3017.0020.0002] # CANADIAN SYLLABICS WEST-CREE TWI
+145B  ; [.3018.0020.0002] # CANADIAN SYLLABICS TWII
+145C  ; [.3019.0020.0002] # CANADIAN SYLLABICS WEST-CREE TWII
+145D  ; [.301A.0020.0002] # CANADIAN SYLLABICS TWO
+145E  ; [.301B.0020.0002] # CANADIAN SYLLABICS WEST-CREE TWO
+145F  ; [.301C.0020.0002] # CANADIAN SYLLABICS TWOO
+1460  ; [.301D.0020.0002] # CANADIAN SYLLABICS WEST-CREE TWOO
+1461  ; [.301E.0020.0002] # CANADIAN SYLLABICS TWA
+1462  ; [.301F.0020.0002] # CANADIAN SYLLABICS WEST-CREE TWA
+1463  ; [.3020.0020.0002] # CANADIAN SYLLABICS TWAA
+1464  ; [.3021.0020.0002] # CANADIAN SYLLABICS WEST-CREE TWAA
+1465  ; [.3022.0020.0002] # CANADIAN SYLLABICS NASKAPI TWAA
+1466  ; [.3023.0020.0002] # CANADIAN SYLLABICS T
+1467  ; [.3024.0020.0002] # CANADIAN SYLLABICS TTE
+1468  ; [.3025.0020.0002] # CANADIAN SYLLABICS TTI
+1469  ; [.3026.0020.0002] # CANADIAN SYLLABICS TTO
+146A  ; [.3027.0020.0002] # CANADIAN SYLLABICS TTA
+146B  ; [.3028.0020.0002] # CANADIAN SYLLABICS KE
+146C  ; [.3029.0020.0002] # CANADIAN SYLLABICS KAAI
+146D  ; [.302A.0020.0002] # CANADIAN SYLLABICS KI
+146E  ; [.302B.0020.0002] # CANADIAN SYLLABICS KII
+146F  ; [.302C.0020.0002] # CANADIAN SYLLABICS KO
+1470  ; [.302D.0020.0002] # CANADIAN SYLLABICS KOO
+1471  ; [.302E.0020.0002] # CANADIAN SYLLABICS Y-CREE KOO
+1472  ; [.302F.0020.0002] # CANADIAN SYLLABICS KA
+1473  ; [.3030.0020.0002] # CANADIAN SYLLABICS KAA
+1474  ; [.3031.0020.0002] # CANADIAN SYLLABICS KWE
+1475  ; [.3032.0020.0002] # CANADIAN SYLLABICS WEST-CREE KWE
+1476  ; [.3033.0020.0002] # CANADIAN SYLLABICS KWI
+1477  ; [.3034.0020.0002] # CANADIAN SYLLABICS WEST-CREE KWI
+1478  ; [.3035.0020.0002] # CANADIAN SYLLABICS KWII
+1479  ; [.3036.0020.0002] # CANADIAN SYLLABICS WEST-CREE KWII
+147A  ; [.3037.0020.0002] # CANADIAN SYLLABICS KWO
+147B  ; [.3038.0020.0002] # CANADIAN SYLLABICS WEST-CREE KWO
+147C  ; [.3039.0020.0002] # CANADIAN SYLLABICS KWOO
+147D  ; [.303A.0020.0002] # CANADIAN SYLLABICS WEST-CREE KWOO
+147E  ; [.303B.0020.0002] # CANADIAN SYLLABICS KWA
+147F  ; [.303C.0020.0002] # CANADIAN SYLLABICS WEST-CREE KWA
+1480  ; [.303D.0020.0002] # CANADIAN SYLLABICS KWAA
+1481  ; [.303E.0020.0002] # CANADIAN SYLLABICS WEST-CREE KWAA
+1482  ; [.303F.0020.0002] # CANADIAN SYLLABICS NASKAPI KWAA
+1483  ; [.3040.0020.0002] # CANADIAN SYLLABICS K
+1484  ; [.3041.0020.0002] # CANADIAN SYLLABICS KW
+1485  ; [.3042.0020.0002] # CANADIAN SYLLABICS SOUTH-SLAVEY KEH
+1486  ; [.3043.0020.0002] # CANADIAN SYLLABICS SOUTH-SLAVEY KIH
+1487  ; [.3044.0020.0002] # CANADIAN SYLLABICS SOUTH-SLAVEY KOH
+1488  ; [.3045.0020.0002] # CANADIAN SYLLABICS SOUTH-SLAVEY KAH
+1489  ; [.3046.0020.0002] # CANADIAN SYLLABICS CE
+148A  ; [.3047.0020.0002] # CANADIAN SYLLABICS CAAI
+148B  ; [.3048.0020.0002] # CANADIAN SYLLABICS CI
+148C  ; [.3049.0020.0002] # CANADIAN SYLLABICS CII
+148D  ; [.304A.0020.0002] # CANADIAN SYLLABICS CO
+148E  ; [.304B.0020.0002] # CANADIAN SYLLABICS COO
+148F  ; [.304C.0020.0002] # CANADIAN SYLLABICS Y-CREE COO
+1490  ; [.304D.0020.0002] # CANADIAN SYLLABICS CA
+1491  ; [.304E.0020.0002] # CANADIAN SYLLABICS CAA
+1492  ; [.304F.0020.0002] # CANADIAN SYLLABICS CWE
+1493  ; [.3050.0020.0002] # CANADIAN SYLLABICS WEST-CREE CWE
+1494  ; [.3051.0020.0002] # CANADIAN SYLLABICS CWI
+1495  ; [.3052.0020.0002] # CANADIAN SYLLABICS WEST-CREE CWI
+1496  ; [.3053.0020.0002] # CANADIAN SYLLABICS CWII
+1497  ; [.3054.0020.0002] # CANADIAN SYLLABICS WEST-CREE CWII
+1498  ; [.3055.0020.0002] # CANADIAN SYLLABICS CWO
+1499  ; [.3056.0020.0002] # CANADIAN SYLLABICS WEST-CREE CWO
+149A  ; [.3057.0020.0002] # CANADIAN SYLLABICS CWOO
+149B  ; [.3058.0020.0002] # CANADIAN SYLLABICS WEST-CREE CWOO
+149C  ; [.3059.0020.0002] # CANADIAN SYLLABICS CWA
+149D  ; [.305A.0020.0002] # CANADIAN SYLLABICS WEST-CREE CWA
+149E  ; [.305B.0020.0002] # CANADIAN SYLLABICS CWAA
+149F  ; [.305C.0020.0002] # CANADIAN SYLLABICS WEST-CREE CWAA
+14A0  ; [.305D.0020.0002] # CANADIAN SYLLABICS NASKAPI CWAA
+14A1  ; [.305E.0020.0002] # CANADIAN SYLLABICS C
+14A2  ; [.305F.0020.0002] # CANADIAN SYLLABICS SAYISI TH
+14A3  ; [.3060.0020.0002] # CANADIAN SYLLABICS ME
+14A4  ; [.3061.0020.0002] # CANADIAN SYLLABICS MAAI
+14A5  ; [.3062.0020.0002] # CANADIAN SYLLABICS MI
+14A6  ; [.3063.0020.0002] # CANADIAN SYLLABICS MII
+14A7  ; [.3064.0020.0002] # CANADIAN SYLLABICS MO
+14A8  ; [.3065.0020.0002] # CANADIAN SYLLABICS MOO
+14A9  ; [.3066.0020.0002] # CANADIAN SYLLABICS Y-CREE MOO
+14AA  ; [.3067.0020.0002] # CANADIAN SYLLABICS MA
+14AB  ; [.3068.0020.0002] # CANADIAN SYLLABICS MAA
+14AC  ; [.3069.0020.0002] # CANADIAN SYLLABICS MWE
+14AD  ; [.306A.0020.0002] # CANADIAN SYLLABICS WEST-CREE MWE
+14AE  ; [.306B.0020.0002] # CANADIAN SYLLABICS MWI
+14AF  ; [.306C.0020.0002] # CANADIAN SYLLABICS WEST-CREE MWI
+14B0  ; [.306D.0020.0002] # CANADIAN SYLLABICS MWII
+14B1  ; [.306E.0020.0002] # CANADIAN SYLLABICS WEST-CREE MWII
+14B2  ; [.306F.0020.0002] # CANADIAN SYLLABICS MWO
+14B3  ; [.3070.0020.0002] # CANADIAN SYLLABICS WEST-CREE MWO
+14B4  ; [.3071.0020.0002] # CANADIAN SYLLABICS MWOO
+14B5  ; [.3072.0020.0002] # CANADIAN SYLLABICS WEST-CREE MWOO
+14B6  ; [.3073.0020.0002] # CANADIAN SYLLABICS MWA
+14B7  ; [.3074.0020.0002] # CANADIAN SYLLABICS WEST-CREE MWA
+14B8  ; [.3075.0020.0002] # CANADIAN SYLLABICS MWAA
+14B9  ; [.3076.0020.0002] # CANADIAN SYLLABICS WEST-CREE MWAA
+14BA  ; [.3077.0020.0002] # CANADIAN SYLLABICS NASKAPI MWAA
+14BB  ; [.3078.0020.0002] # CANADIAN SYLLABICS M
+14BC  ; [.3079.0020.0002] # CANADIAN SYLLABICS WEST-CREE M
+14BD  ; [.307A.0020.0002] # CANADIAN SYLLABICS MH
+14BE  ; [.307B.0020.0002] # CANADIAN SYLLABICS ATHAPASCAN M
+14BF  ; [.307C.0020.0002] # CANADIAN SYLLABICS SAYISI M
+14C0  ; [.307D.0020.0002] # CANADIAN SYLLABICS NE
+14C1  ; [.307E.0020.0002] # CANADIAN SYLLABICS NAAI
+14C2  ; [.307F.0020.0002] # CANADIAN SYLLABICS NI
+14C3  ; [.3080.0020.0002] # CANADIAN SYLLABICS NII
+14C4  ; [.3081.0020.0002] # CANADIAN SYLLABICS NO
+14C5  ; [.3082.0020.0002] # CANADIAN SYLLABICS NOO
+14C6  ; [.3083.0020.0002] # CANADIAN SYLLABICS Y-CREE NOO
+14C7  ; [.3084.0020.0002] # CANADIAN SYLLABICS NA
+14C8  ; [.3085.0020.0002] # CANADIAN SYLLABICS NAA
+14C9  ; [.3086.0020.0002] # CANADIAN SYLLABICS NWE
+14CA  ; [.3087.0020.0002] # CANADIAN SYLLABICS WEST-CREE NWE
+14CB  ; [.3088.0020.0002] # CANADIAN SYLLABICS NWA
+14CC  ; [.3089.0020.0002] # CANADIAN SYLLABICS WEST-CREE NWA
+14CD  ; [.308A.0020.0002] # CANADIAN SYLLABICS NWAA
+14CE  ; [.308B.0020.0002] # CANADIAN SYLLABICS WEST-CREE NWAA
+14CF  ; [.308C.0020.0002] # CANADIAN SYLLABICS NASKAPI NWAA
+14D0  ; [.308D.0020.0002] # CANADIAN SYLLABICS N
+14D1  ; [.308E.0020.0002] # CANADIAN SYLLABICS CARRIER NG
+14D2  ; [.308F.0020.0002] # CANADIAN SYLLABICS NH
+14D3  ; [.3090.0020.0002] # CANADIAN SYLLABICS LE
+14D4  ; [.3091.0020.0002] # CANADIAN SYLLABICS LAAI
+14D5  ; [.3092.0020.0002] # CANADIAN SYLLABICS LI
+14D6  ; [.3093.0020.0002] # CANADIAN SYLLABICS LII
+14D7  ; [.3094.0020.0002] # CANADIAN SYLLABICS LO
+14D8  ; [.3095.0020.0002] # CANADIAN SYLLABICS LOO
+14D9  ; [.3096.0020.0002] # CANADIAN SYLLABICS Y-CREE LOO
+14DA  ; [.3097.0020.0002] # CANADIAN SYLLABICS LA
+14DB  ; [.3098.0020.0002] # CANADIAN SYLLABICS LAA
+14DC  ; [.3099.0020.0002] # CANADIAN SYLLABICS LWE
+14DD  ; [.309A.0020.0002] # CANADIAN SYLLABICS WEST-CREE LWE
+14DE  ; [.309B.0020.0002] # CANADIAN SYLLABICS LWI
+14DF  ; [.309C.0020.0002] # CANADIAN SYLLABICS WEST-CREE LWI
+14E0  ; [.309D.0020.0002] # CANADIAN SYLLABICS LWII
+14E1  ; [.309E.0020.0002] # CANADIAN SYLLABICS WEST-CREE LWII
+14E2  ; [.309F.0020.0002] # CANADIAN SYLLABICS LWO
+14E3  ; [.30A0.0020.0002] # CANADIAN SYLLABICS WEST-CREE LWO
+14E4  ; [.30A1.0020.0002] # CANADIAN SYLLABICS LWOO
+14E5  ; [.30A2.0020.0002] # CANADIAN SYLLABICS WEST-CREE LWOO
+14E6  ; [.30A3.0020.0002] # CANADIAN SYLLABICS LWA
+14E7  ; [.30A4.0020.0002] # CANADIAN SYLLABICS WEST-CREE LWA
+14E8  ; [.30A5.0020.0002] # CANADIAN SYLLABICS LWAA
+14E9  ; [.30A6.0020.0002] # CANADIAN SYLLABICS WEST-CREE LWAA
+14EA  ; [.30A7.0020.0002] # CANADIAN SYLLABICS L
+14EB  ; [.30A8.0020.0002] # CANADIAN SYLLABICS WEST-CREE L
+14EC  ; [.30A9.0020.0002] # CANADIAN SYLLABICS MEDIAL L
+14ED  ; [.30AA.0020.0002] # CANADIAN SYLLABICS SE
+14EE  ; [.30AB.0020.0002] # CANADIAN SYLLABICS SAAI
+14EF  ; [.30AC.0020.0002] # CANADIAN SYLLABICS SI
+14F0  ; [.30AD.0020.0002] # CANADIAN SYLLABICS SII
+14F1  ; [.30AE.0020.0002] # CANADIAN SYLLABICS SO
+14F2  ; [.30AF.0020.0002] # CANADIAN SYLLABICS SOO
+14F3  ; [.30B0.0020.0002] # CANADIAN SYLLABICS Y-CREE SOO
+14F4  ; [.30B1.0020.0002] # CANADIAN SYLLABICS SA
+14F5  ; [.30B2.0020.0002] # CANADIAN SYLLABICS SAA
+14F6  ; [.30B3.0020.0002] # CANADIAN SYLLABICS SWE
+14F7  ; [.30B4.0020.0002] # CANADIAN SYLLABICS WEST-CREE SWE
+14F8  ; [.30B5.0020.0002] # CANADIAN SYLLABICS SWI
+14F9  ; [.30B6.0020.0002] # CANADIAN SYLLABICS WEST-CREE SWI
+14FA  ; [.30B7.0020.0002] # CANADIAN SYLLABICS SWII
+14FB  ; [.30B8.0020.0002] # CANADIAN SYLLABICS WEST-CREE SWII
+14FC  ; [.30B9.0020.0002] # CANADIAN SYLLABICS SWO
+14FD  ; [.30BA.0020.0002] # CANADIAN SYLLABICS WEST-CREE SWO
+14FE  ; [.30BB.0020.0002] # CANADIAN SYLLABICS SWOO
+14FF  ; [.30BC.0020.0002] # CANADIAN SYLLABICS WEST-CREE SWOO
+1500  ; [.30BD.0020.0002] # CANADIAN SYLLABICS SWA
+1501  ; [.30BE.0020.0002] # CANADIAN SYLLABICS WEST-CREE SWA
+1502  ; [.30BF.0020.0002] # CANADIAN SYLLABICS SWAA
+1503  ; [.30C0.0020.0002] # CANADIAN SYLLABICS WEST-CREE SWAA
+1504  ; [.30C1.0020.0002] # CANADIAN SYLLABICS NASKAPI SWAA
+1505  ; [.30C2.0020.0002] # CANADIAN SYLLABICS S
+1506  ; [.30C3.0020.0002] # CANADIAN SYLLABICS ATHAPASCAN S
+1507  ; [.30C4.0020.0002] # CANADIAN SYLLABICS SW
+1508  ; [.30C5.0020.0002] # CANADIAN SYLLABICS BLACKFOOT S
+1509  ; [.30C6.0020.0002] # CANADIAN SYLLABICS MOOSE-CREE SK
+150A  ; [.30C7.0020.0002] # CANADIAN SYLLABICS NASKAPI SKW
+150B  ; [.30C8.0020.0002] # CANADIAN SYLLABICS NASKAPI S-W
+150C  ; [.30C9.0020.0002] # CANADIAN SYLLABICS NASKAPI SPWA
+150D  ; [.30CA.0020.0002] # CANADIAN SYLLABICS NASKAPI STWA
+150E  ; [.30CB.0020.0002] # CANADIAN SYLLABICS NASKAPI SKWA
+150F  ; [.30CC.0020.0002] # CANADIAN SYLLABICS NASKAPI SCWA
+1510  ; [.30CD.0020.0002] # CANADIAN SYLLABICS SHE
+1511  ; [.30CE.0020.0002] # CANADIAN SYLLABICS SHI
+1512  ; [.30CF.0020.0002] # CANADIAN SYLLABICS SHII
+1513  ; [.30D0.0020.0002] # CANADIAN SYLLABICS SHO
+1514  ; [.30D1.0020.0002] # CANADIAN SYLLABICS SHOO
+1515  ; [.30D2.0020.0002] # CANADIAN SYLLABICS SHA
+1516  ; [.30D3.0020.0002] # CANADIAN SYLLABICS SHAA
+1517  ; [.30D4.0020.0002] # CANADIAN SYLLABICS SHWE
+1518  ; [.30D5.0020.0002] # CANADIAN SYLLABICS WEST-CREE SHWE
+1519  ; [.30D6.0020.0002] # CANADIAN SYLLABICS SHWI
+151A  ; [.30D7.0020.0002] # CANADIAN SYLLABICS WEST-CREE SHWI
+151B  ; [.30D8.0020.0002] # CANADIAN SYLLABICS SHWII
+151C  ; [.30D9.0020.0002] # CANADIAN SYLLABICS WEST-CREE SHWII
+151D  ; [.30DA.0020.0002] # CANADIAN SYLLABICS SHWO
+151E  ; [.30DB.0020.0002] # CANADIAN SYLLABICS WEST-CREE SHWO
+151F  ; [.30DC.0020.0002] # CANADIAN SYLLABICS SHWOO
+1520  ; [.30DD.0020.0002] # CANADIAN SYLLABICS WEST-CREE SHWOO
+1521  ; [.30DE.0020.0002] # CANADIAN SYLLABICS SHWA
+1522  ; [.30DF.0020.0002] # CANADIAN SYLLABICS WEST-CREE SHWA
+1523  ; [.30E0.0020.0002] # CANADIAN SYLLABICS SHWAA
+1524  ; [.30E1.0020.0002] # CANADIAN SYLLABICS WEST-CREE SHWAA
+1525  ; [.30E2.0020.0002] # CANADIAN SYLLABICS SH
+1526  ; [.30E3.0020.0002] # CANADIAN SYLLABICS YE
+1527  ; [.30E4.0020.0002] # CANADIAN SYLLABICS YAAI
+1528  ; [.30E5.0020.0002] # CANADIAN SYLLABICS YI
+1529  ; [.30E6.0020.0002] # CANADIAN SYLLABICS YII
+152A  ; [.30E7.0020.0002] # CANADIAN SYLLABICS YO
+152B  ; [.30E8.0020.0002] # CANADIAN SYLLABICS YOO
+152C  ; [.30E9.0020.0002] # CANADIAN SYLLABICS Y-CREE YOO
+152D  ; [.30EA.0020.0002] # CANADIAN SYLLABICS YA
+152E  ; [.30EB.0020.0002] # CANADIAN SYLLABICS YAA
+152F  ; [.30EC.0020.0002] # CANADIAN SYLLABICS YWE
+1530  ; [.30ED.0020.0002] # CANADIAN SYLLABICS WEST-CREE YWE
+1531  ; [.30EE.0020.0002] # CANADIAN SYLLABICS YWI
+1532  ; [.30EF.0020.0002] # CANADIAN SYLLABICS WEST-CREE YWI
+1533  ; [.30F0.0020.0002] # CANADIAN SYLLABICS YWII
+1534  ; [.30F1.0020.0002] # CANADIAN SYLLABICS WEST-CREE YWII
+1535  ; [.30F2.0020.0002] # CANADIAN SYLLABICS YWO
+1536  ; [.30F3.0020.0002] # CANADIAN SYLLABICS WEST-CREE YWO
+1537  ; [.30F4.0020.0002] # CANADIAN SYLLABICS YWOO
+1538  ; [.30F5.0020.0002] # CANADIAN SYLLABICS WEST-CREE YWOO
+1539  ; [.30F6.0020.0002] # CANADIAN SYLLABICS YWA
+153A  ; [.30F7.0020.0002] # CANADIAN SYLLABICS WEST-CREE YWA
+153B  ; [.30F8.0020.0002] # CANADIAN SYLLABICS YWAA
+153C  ; [.30F9.0020.0002] # CANADIAN SYLLABICS WEST-CREE YWAA
+153D  ; [.30FA.0020.0002] # CANADIAN SYLLABICS NASKAPI YWAA
+153E  ; [.30FB.0020.0002] # CANADIAN SYLLABICS Y
+153F  ; [.30FC.0020.0002] # CANADIAN SYLLABICS BIBLE-CREE Y
+1540  ; [.30FD.0020.0002] # CANADIAN SYLLABICS WEST-CREE Y
+1541  ; [.30FE.0020.0002] # CANADIAN SYLLABICS SAYISI YI
+1542  ; [.30FF.0020.0002] # CANADIAN SYLLABICS RE
+1543  ; [.3100.0020.0002] # CANADIAN SYLLABICS R-CREE RE
+1544  ; [.3101.0020.0002] # CANADIAN SYLLABICS WEST-CREE LE
+1545  ; [.3102.0020.0002] # CANADIAN SYLLABICS RAAI
+1546  ; [.3103.0020.0002] # CANADIAN SYLLABICS RI
+1547  ; [.3104.0020.0002] # CANADIAN SYLLABICS RII
+1548  ; [.3105.0020.0002] # CANADIAN SYLLABICS RO
+1549  ; [.3106.0020.0002] # CANADIAN SYLLABICS ROO
+154A  ; [.3107.0020.0002] # CANADIAN SYLLABICS WEST-CREE LO
+154B  ; [.3108.0020.0002] # CANADIAN SYLLABICS RA
+154C  ; [.3109.0020.0002] # CANADIAN SYLLABICS RAA
+154D  ; [.310A.0020.0002] # CANADIAN SYLLABICS WEST-CREE LA
+154E  ; [.310B.0020.0002] # CANADIAN SYLLABICS RWAA
+154F  ; [.310C.0020.0002] # CANADIAN SYLLABICS WEST-CREE RWAA
+1550  ; [.310D.0020.0002] # CANADIAN SYLLABICS R
+1551  ; [.310E.0020.0002] # CANADIAN SYLLABICS WEST-CREE R
+1552  ; [.310F.0020.0002] # CANADIAN SYLLABICS MEDIAL R
+1553  ; [.3110.0020.0002] # CANADIAN SYLLABICS FE
+1554  ; [.3111.0020.0002] # CANADIAN SYLLABICS FAAI
+1555  ; [.3112.0020.0002] # CANADIAN SYLLABICS FI
+1556  ; [.3113.0020.0002] # CANADIAN SYLLABICS FII
+1557  ; [.3114.0020.0002] # CANADIAN SYLLABICS FO
+1558  ; [.3115.0020.0002] # CANADIAN SYLLABICS FOO
+1559  ; [.3116.0020.0002] # CANADIAN SYLLABICS FA
+155A  ; [.3117.0020.0002] # CANADIAN SYLLABICS FAA
+155B  ; [.3118.0020.0002] # CANADIAN SYLLABICS FWAA
+155C  ; [.3119.0020.0002] # CANADIAN SYLLABICS WEST-CREE FWAA
+155D  ; [.311A.0020.0002] # CANADIAN SYLLABICS F
+155E  ; [.311B.0020.0002] # CANADIAN SYLLABICS THE
+155F  ; [.311C.0020.0002] # CANADIAN SYLLABICS N-CREE THE
+1560  ; [.311D.0020.0002] # CANADIAN SYLLABICS THI
+1561  ; [.311E.0020.0002] # CANADIAN SYLLABICS N-CREE THI
+1562  ; [.311F.0020.0002] # CANADIAN SYLLABICS THII
+1563  ; [.3120.0020.0002] # CANADIAN SYLLABICS N-CREE THII
+1564  ; [.3121.0020.0002] # CANADIAN SYLLABICS THO
+1565  ; [.3122.0020.0002] # CANADIAN SYLLABICS THOO
+1566  ; [.3123.0020.0002] # CANADIAN SYLLABICS THA
+1567  ; [.3124.0020.0002] # CANADIAN SYLLABICS THAA
+1568  ; [.3125.0020.0002] # CANADIAN SYLLABICS THWAA
+1569  ; [.3126.0020.0002] # CANADIAN SYLLABICS WEST-CREE THWAA
+156A  ; [.3127.0020.0002] # CANADIAN SYLLABICS TH
+156B  ; [.3128.0020.0002] # CANADIAN SYLLABICS TTHE
+156C  ; [.3129.0020.0002] # CANADIAN SYLLABICS TTHI
+156D  ; [.312A.0020.0002] # CANADIAN SYLLABICS TTHO
+156E  ; [.312B.0020.0002] # CANADIAN SYLLABICS TTHA
+156F  ; [.312C.0020.0002] # CANADIAN SYLLABICS TTH
+1570  ; [.312D.0020.0002] # CANADIAN SYLLABICS TYE
+1571  ; [.312E.0020.0002] # CANADIAN SYLLABICS TYI
+1572  ; [.312F.0020.0002] # CANADIAN SYLLABICS TYO
+1573  ; [.3130.0020.0002] # CANADIAN SYLLABICS TYA
+1574  ; [.3131.0020.0002] # CANADIAN SYLLABICS NUNAVIK HE
+1575  ; [.3132.0020.0002] # CANADIAN SYLLABICS NUNAVIK HI
+1576  ; [.3133.0020.0002] # CANADIAN SYLLABICS NUNAVIK HII
+1577  ; [.3134.0020.0002] # CANADIAN SYLLABICS NUNAVIK HO
+1578  ; [.3135.0020.0002] # CANADIAN SYLLABICS NUNAVIK HOO
+1579  ; [.3136.0020.0002] # CANADIAN SYLLABICS NUNAVIK HA
+157A  ; [.3137.0020.0002] # CANADIAN SYLLABICS NUNAVIK HAA
+157B  ; [.3138.0020.0002] # CANADIAN SYLLABICS NUNAVIK H
+157D  ; [.3139.0020.0002] # CANADIAN SYLLABICS HK
+166F  ; [.313A.0020.0002] # CANADIAN SYLLABICS QAI
+157E  ; [.313B.0020.0002] # CANADIAN SYLLABICS QAAI
+157F  ; [.313C.0020.0002] # CANADIAN SYLLABICS QI
+1580  ; [.313D.0020.0002] # CANADIAN SYLLABICS QII
+1581  ; [.313E.0020.0002] # CANADIAN SYLLABICS QO
+1582  ; [.313F.0020.0002] # CANADIAN SYLLABICS QOO
+1583  ; [.3140.0020.0002] # CANADIAN SYLLABICS QA
+1584  ; [.3141.0020.0002] # CANADIAN SYLLABICS QAA
+1585  ; [.3142.0020.0002] # CANADIAN SYLLABICS Q
+1586  ; [.3143.0020.0002] # CANADIAN SYLLABICS TLHE
+1587  ; [.3144.0020.0002] # CANADIAN SYLLABICS TLHI
+1588  ; [.3145.0020.0002] # CANADIAN SYLLABICS TLHO
+1589  ; [.3146.0020.0002] # CANADIAN SYLLABICS TLHA
+158A  ; [.3147.0020.0002] # CANADIAN SYLLABICS WEST-CREE RE
+158B  ; [.3148.0020.0002] # CANADIAN SYLLABICS WEST-CREE RI
+158C  ; [.3149.0020.0002] # CANADIAN SYLLABICS WEST-CREE RO
+158D  ; [.314A.0020.0002] # CANADIAN SYLLABICS WEST-CREE RA
+1670  ; [.314B.0020.0002] # CANADIAN SYLLABICS NGAI
+158E  ; [.314C.0020.0002] # CANADIAN SYLLABICS NGAAI
+158F  ; [.314D.0020.0002] # CANADIAN SYLLABICS NGI
+1590  ; [.314E.0020.0002] # CANADIAN SYLLABICS NGII
+1591  ; [.314F.0020.0002] # CANADIAN SYLLABICS NGO
+1592  ; [.3150.0020.0002] # CANADIAN SYLLABICS NGOO
+1593  ; [.3151.0020.0002] # CANADIAN SYLLABICS NGA
+1594  ; [.3152.0020.0002] # CANADIAN SYLLABICS NGAA
+1595  ; [.3153.0020.0002] # CANADIAN SYLLABICS NG
+1671  ; [.3154.0020.0002] # CANADIAN SYLLABICS NNGI
+1672  ; [.3155.0020.0002] # CANADIAN SYLLABICS NNGII
+1673  ; [.3156.0020.0002] # CANADIAN SYLLABICS NNGO
+1674  ; [.3157.0020.0002] # CANADIAN SYLLABICS NNGOO
+1675  ; [.3158.0020.0002] # CANADIAN SYLLABICS NNGA
+1676  ; [.3159.0020.0002] # CANADIAN SYLLABICS NNGAA
+1596  ; [.315A.0020.0002] # CANADIAN SYLLABICS NNG
+1597  ; [.315B.0020.0002] # CANADIAN SYLLABICS SAYISI SHE
+1598  ; [.315C.0020.0002] # CANADIAN SYLLABICS SAYISI SHI
+1599  ; [.315D.0020.0002] # CANADIAN SYLLABICS SAYISI SHO
+159A  ; [.315E.0020.0002] # CANADIAN SYLLABICS SAYISI SHA
+159B  ; [.315F.0020.0002] # CANADIAN SYLLABICS WOODS-CREE THE
+159C  ; [.3160.0020.0002] # CANADIAN SYLLABICS WOODS-CREE THI
+159D  ; [.3161.0020.0002] # CANADIAN SYLLABICS WOODS-CREE THO
+159E  ; [.3162.0020.0002] # CANADIAN SYLLABICS WOODS-CREE THA
+159F  ; [.3163.0020.0002] # CANADIAN SYLLABICS WOODS-CREE TH
+15A0  ; [.3164.0020.0002] # CANADIAN SYLLABICS LHI
+15A1  ; [.3165.0020.0002] # CANADIAN SYLLABICS LHII
+15A2  ; [.3166.0020.0002] # CANADIAN SYLLABICS LHO
+15A3  ; [.3167.0020.0002] # CANADIAN SYLLABICS LHOO
+15A4  ; [.3168.0020.0002] # CANADIAN SYLLABICS LHA
+15A5  ; [.3169.0020.0002] # CANADIAN SYLLABICS LHAA
+15A6  ; [.316A.0020.0002] # CANADIAN SYLLABICS LH
+157C  ; [.316B.0020.0002] # CANADIAN SYLLABICS NUNAVUT H
+15A7  ; [.316C.0020.0002] # CANADIAN SYLLABICS TH-CREE THE
+15A8  ; [.316D.0020.0002] # CANADIAN SYLLABICS TH-CREE THI
+15A9  ; [.316E.0020.0002] # CANADIAN SYLLABICS TH-CREE THII
+15AA  ; [.316F.0020.0002] # CANADIAN SYLLABICS TH-CREE THO
+15AB  ; [.3170.0020.0002] # CANADIAN SYLLABICS TH-CREE THOO
+15AC  ; [.3171.0020.0002] # CANADIAN SYLLABICS TH-CREE THA
+15AD  ; [.3172.0020.0002] # CANADIAN SYLLABICS TH-CREE THAA
+15AE  ; [.3173.0020.0002] # CANADIAN SYLLABICS TH-CREE TH
+15AF  ; [.3174.0020.0002] # CANADIAN SYLLABICS AIVILIK B
+15B0  ; [.3175.0020.0002] # CANADIAN SYLLABICS BLACKFOOT E
+15B1  ; [.3176.0020.0002] # CANADIAN SYLLABICS BLACKFOOT I
+15B2  ; [.3177.0020.0002] # CANADIAN SYLLABICS BLACKFOOT O
+15B3  ; [.3178.0020.0002] # CANADIAN SYLLABICS BLACKFOOT A
+15B4  ; [.3179.0020.0002] # CANADIAN SYLLABICS BLACKFOOT WE
+15B5  ; [.317A.0020.0002] # CANADIAN SYLLABICS BLACKFOOT WI
+15B6  ; [.317B.0020.0002] # CANADIAN SYLLABICS BLACKFOOT WO
+15B7  ; [.317C.0020.0002] # CANADIAN SYLLABICS BLACKFOOT WA
+15B8  ; [.317D.0020.0002] # CANADIAN SYLLABICS BLACKFOOT NE
+15B9  ; [.317E.0020.0002] # CANADIAN SYLLABICS BLACKFOOT NI
+15BA  ; [.317F.0020.0002] # CANADIAN SYLLABICS BLACKFOOT NO
+15BB  ; [.3180.0020.0002] # CANADIAN SYLLABICS BLACKFOOT NA
+15BC  ; [.3181.0020.0002] # CANADIAN SYLLABICS BLACKFOOT KE
+15BD  ; [.3182.0020.0002] # CANADIAN SYLLABICS BLACKFOOT KI
+15BE  ; [.3183.0020.0002] # CANADIAN SYLLABICS BLACKFOOT KO
+15BF  ; [.3184.0020.0002] # CANADIAN SYLLABICS BLACKFOOT KA
+15C0  ; [.3185.0020.0002] # CANADIAN SYLLABICS SAYISI HE
+15C1  ; [.3186.0020.0002] # CANADIAN SYLLABICS SAYISI HI
+15C2  ; [.3187.0020.0002] # CANADIAN SYLLABICS SAYISI HO
+15C3  ; [.3188.0020.0002] # CANADIAN SYLLABICS SAYISI HA
+15C4  ; [.3189.0020.0002] # CANADIAN SYLLABICS CARRIER GHU
+15C5  ; [.318A.0020.0002] # CANADIAN SYLLABICS CARRIER GHO
+15C6  ; [.318B.0020.0002] # CANADIAN SYLLABICS CARRIER GHE
+15C7  ; [.318C.0020.0002] # CANADIAN SYLLABICS CARRIER GHEE
+15C8  ; [.318D.0020.0002] # CANADIAN SYLLABICS CARRIER GHI
+15C9  ; [.318E.0020.0002] # CANADIAN SYLLABICS CARRIER GHA
+15CA  ; [.318F.0020.0002] # CANADIAN SYLLABICS CARRIER RU
+15CB  ; [.3190.0020.0002] # CANADIAN SYLLABICS CARRIER RO
+15CC  ; [.3191.0020.0002] # CANADIAN SYLLABICS CARRIER RE
+15CD  ; [.3192.0020.0002] # CANADIAN SYLLABICS CARRIER REE
+15CE  ; [.3193.0020.0002] # CANADIAN SYLLABICS CARRIER RI
+15CF  ; [.3194.0020.0002] # CANADIAN SYLLABICS CARRIER RA
+15D0  ; [.3195.0020.0002] # CANADIAN SYLLABICS CARRIER WU
+15D1  ; [.3196.0020.0002] # CANADIAN SYLLABICS CARRIER WO
+15D2  ; [.3197.0020.0002] # CANADIAN SYLLABICS CARRIER WE
+15D3  ; [.3198.0020.0002] # CANADIAN SYLLABICS CARRIER WEE
+15D4  ; [.3199.0020.0002] # CANADIAN SYLLABICS CARRIER WI
+15D5  ; [.319A.0020.0002] # CANADIAN SYLLABICS CARRIER WA
+15D6  ; [.319B.0020.0002] # CANADIAN SYLLABICS CARRIER HWU
+15D7  ; [.319C.0020.0002] # CANADIAN SYLLABICS CARRIER HWO
+15D8  ; [.319D.0020.0002] # CANADIAN SYLLABICS CARRIER HWE
+15D9  ; [.319E.0020.0002] # CANADIAN SYLLABICS CARRIER HWEE
+15DA  ; [.319F.0020.0002] # CANADIAN SYLLABICS CARRIER HWI
+15DB  ; [.31A0.0020.0002] # CANADIAN SYLLABICS CARRIER HWA
+15DC  ; [.31A1.0020.0002] # CANADIAN SYLLABICS CARRIER THU
+15DD  ; [.31A2.0020.0002] # CANADIAN SYLLABICS CARRIER THO
+15DE  ; [.31A3.0020.0002] # CANADIAN SYLLABICS CARRIER THE
+15DF  ; [.31A4.0020.0002] # CANADIAN SYLLABICS CARRIER THEE
+15E0  ; [.31A5.0020.0002] # CANADIAN SYLLABICS CARRIER THI
+15E1  ; [.31A6.0020.0002] # CANADIAN SYLLABICS CARRIER THA
+15E2  ; [.31A7.0020.0002] # CANADIAN SYLLABICS CARRIER TTU
+15E3  ; [.31A8.0020.0002] # CANADIAN SYLLABICS CARRIER TTO
+15E4  ; [.31A9.0020.0002] # CANADIAN SYLLABICS CARRIER TTE
+15E5  ; [.31AA.0020.0002] # CANADIAN SYLLABICS CARRIER TTEE
+15E6  ; [.31AB.0020.0002] # CANADIAN SYLLABICS CARRIER TTI
+15E7  ; [.31AC.0020.0002] # CANADIAN SYLLABICS CARRIER TTA
+15E8  ; [.31AD.0020.0002] # CANADIAN SYLLABICS CARRIER PU
+15E9  ; [.31AE.0020.0002] # CANADIAN SYLLABICS CARRIER PO
+15EA  ; [.31AF.0020.0002] # CANADIAN SYLLABICS CARRIER PE
+15EB  ; [.31B0.0020.0002] # CANADIAN SYLLABICS CARRIER PEE
+15EC  ; [.31B1.0020.0002] # CANADIAN SYLLABICS CARRIER PI
+15ED  ; [.31B2.0020.0002] # CANADIAN SYLLABICS CARRIER PA
+15EE  ; [.31B3.0020.0002] # CANADIAN SYLLABICS CARRIER P
+15EF  ; [.31B4.0020.0002] # CANADIAN SYLLABICS CARRIER GU
+15F0  ; [.31B5.0020.0002] # CANADIAN SYLLABICS CARRIER GO
+15F1  ; [.31B6.0020.0002] # CANADIAN SYLLABICS CARRIER GE
+15F2  ; [.31B7.0020.0002] # CANADIAN SYLLABICS CARRIER GEE
+15F3  ; [.31B8.0020.0002] # CANADIAN SYLLABICS CARRIER GI
+15F4  ; [.31B9.0020.0002] # CANADIAN SYLLABICS CARRIER GA
+15F5  ; [.31BA.0020.0002] # CANADIAN SYLLABICS CARRIER KHU
+15F6  ; [.31BB.0020.0002] # CANADIAN SYLLABICS CARRIER KHO
+15F7  ; [.31BC.0020.0002] # CANADIAN SYLLABICS CARRIER KHE
+15F8  ; [.31BD.0020.0002] # CANADIAN SYLLABICS CARRIER KHEE
+15F9  ; [.31BE.0020.0002] # CANADIAN SYLLABICS CARRIER KHI
+15FA  ; [.31BF.0020.0002] # CANADIAN SYLLABICS CARRIER KHA
+15FB  ; [.31C0.0020.0002] # CANADIAN SYLLABICS CARRIER KKU
+15FC  ; [.31C1.0020.0002] # CANADIAN SYLLABICS CARRIER KKO
+15FD  ; [.31C2.0020.0002] # CANADIAN SYLLABICS CARRIER KKE
+15FE  ; [.31C3.0020.0002] # CANADIAN SYLLABICS CARRIER KKEE
+15FF  ; [.31C4.0020.0002] # CANADIAN SYLLABICS CARRIER KKI
+1600  ; [.31C5.0020.0002] # CANADIAN SYLLABICS CARRIER KKA
+1601  ; [.31C6.0020.0002] # CANADIAN SYLLABICS CARRIER KK
+1602  ; [.31C7.0020.0002] # CANADIAN SYLLABICS CARRIER NU
+1603  ; [.31C8.0020.0002] # CANADIAN SYLLABICS CARRIER NO
+1604  ; [.31C9.0020.0002] # CANADIAN SYLLABICS CARRIER NE
+1605  ; [.31CA.0020.0002] # CANADIAN SYLLABICS CARRIER NEE
+1606  ; [.31CB.0020.0002] # CANADIAN SYLLABICS CARRIER NI
+1607  ; [.31CC.0020.0002] # CANADIAN SYLLABICS CARRIER NA
+1608  ; [.31CD.0020.0002] # CANADIAN SYLLABICS CARRIER MU
+1609  ; [.31CE.0020.0002] # CANADIAN SYLLABICS CARRIER MO
+160A  ; [.31CF.0020.0002] # CANADIAN SYLLABICS CARRIER ME
+160B  ; [.31D0.0020.0002] # CANADIAN SYLLABICS CARRIER MEE
+160C  ; [.31D1.0020.0002] # CANADIAN SYLLABICS CARRIER MI
+160D  ; [.31D2.0020.0002] # CANADIAN SYLLABICS CARRIER MA
+160E  ; [.31D3.0020.0002] # CANADIAN SYLLABICS CARRIER YU
+160F  ; [.31D4.0020.0002] # CANADIAN SYLLABICS CARRIER YO
+1610  ; [.31D5.0020.0002] # CANADIAN SYLLABICS CARRIER YE
+1611  ; [.31D6.0020.0002] # CANADIAN SYLLABICS CARRIER YEE
+1612  ; [.31D7.0020.0002] # CANADIAN SYLLABICS CARRIER YI
+1613  ; [.31D8.0020.0002] # CANADIAN SYLLABICS CARRIER YA
+1614  ; [.31D9.0020.0002] # CANADIAN SYLLABICS CARRIER JU
+1615  ; [.31DA.0020.0002] # CANADIAN SYLLABICS SAYISI JU
+1616  ; [.31DB.0020.0002] # CANADIAN SYLLABICS CARRIER JO
+1617  ; [.31DC.0020.0002] # CANADIAN SYLLABICS CARRIER JE
+1618  ; [.31DD.0020.0002] # CANADIAN SYLLABICS CARRIER JEE
+1619  ; [.31DE.0020.0002] # CANADIAN SYLLABICS CARRIER JI
+161A  ; [.31DF.0020.0002] # CANADIAN SYLLABICS SAYISI JI
+161B  ; [.31E0.0020.0002] # CANADIAN SYLLABICS CARRIER JA
+161C  ; [.31E1.0020.0002] # CANADIAN SYLLABICS CARRIER JJU
+161D  ; [.31E2.0020.0002] # CANADIAN SYLLABICS CARRIER JJO
+161E  ; [.31E3.0020.0002] # CANADIAN SYLLABICS CARRIER JJE
+161F  ; [.31E4.0020.0002] # CANADIAN SYLLABICS CARRIER JJEE
+1620  ; [.31E5.0020.0002] # CANADIAN SYLLABICS CARRIER JJI
+1621  ; [.31E6.0020.0002] # CANADIAN SYLLABICS CARRIER JJA
+1622  ; [.31E7.0020.0002] # CANADIAN SYLLABICS CARRIER LU
+1623  ; [.31E8.0020.0002] # CANADIAN SYLLABICS CARRIER LO
+1624  ; [.31E9.0020.0002] # CANADIAN SYLLABICS CARRIER LE
+1625  ; [.31EA.0020.0002] # CANADIAN SYLLABICS CARRIER LEE
+1626  ; [.31EB.0020.0002] # CANADIAN SYLLABICS CARRIER LI
+1627  ; [.31EC.0020.0002] # CANADIAN SYLLABICS CARRIER LA
+1628  ; [.31ED.0020.0002] # CANADIAN SYLLABICS CARRIER DLU
+1629  ; [.31EE.0020.0002] # CANADIAN SYLLABICS CARRIER DLO
+162A  ; [.31EF.0020.0002] # CANADIAN SYLLABICS CARRIER DLE
+162B  ; [.31F0.0020.0002] # CANADIAN SYLLABICS CARRIER DLEE
+162C  ; [.31F1.0020.0002] # CANADIAN SYLLABICS CARRIER DLI
+162D  ; [.31F2.0020.0002] # CANADIAN SYLLABICS CARRIER DLA
+162E  ; [.31F3.0020.0002] # CANADIAN SYLLABICS CARRIER LHU
+162F  ; [.31F4.0020.0002] # CANADIAN SYLLABICS CARRIER LHO
+1630  ; [.31F5.0020.0002] # CANADIAN SYLLABICS CARRIER LHE
+1631  ; [.31F6.0020.0002] # CANADIAN SYLLABICS CARRIER LHEE
+1632  ; [.31F7.0020.0002] # CANADIAN SYLLABICS CARRIER LHI
+1633  ; [.31F8.0020.0002] # CANADIAN SYLLABICS CARRIER LHA
+1634  ; [.31F9.0020.0002] # CANADIAN SYLLABICS CARRIER TLHU
+1635  ; [.31FA.0020.0002] # CANADIAN SYLLABICS CARRIER TLHO
+1636  ; [.31FB.0020.0002] # CANADIAN SYLLABICS CARRIER TLHE
+1637  ; [.31FC.0020.0002] # CANADIAN SYLLABICS CARRIER TLHEE
+1638  ; [.31FD.0020.0002] # CANADIAN SYLLABICS CARRIER TLHI
+1639  ; [.31FE.0020.0002] # CANADIAN SYLLABICS CARRIER TLHA
+163A  ; [.31FF.0020.0002] # CANADIAN SYLLABICS CARRIER TLU
+163B  ; [.3200.0020.0002] # CANADIAN SYLLABICS CARRIER TLO
+163C  ; [.3201.0020.0002] # CANADIAN SYLLABICS CARRIER TLE
+163D  ; [.3202.0020.0002] # CANADIAN SYLLABICS CARRIER TLEE
+163E  ; [.3203.0020.0002] # CANADIAN SYLLABICS CARRIER TLI
+163F  ; [.3204.0020.0002] # CANADIAN SYLLABICS CARRIER TLA
+1640  ; [.3205.0020.0002] # CANADIAN SYLLABICS CARRIER ZU
+1641  ; [.3206.0020.0002] # CANADIAN SYLLABICS CARRIER ZO
+1642  ; [.3207.0020.0002] # CANADIAN SYLLABICS CARRIER ZE
+1643  ; [.3208.0020.0002] # CANADIAN SYLLABICS CARRIER ZEE
+1644  ; [.3209.0020.0002] # CANADIAN SYLLABICS CARRIER ZI
+1645  ; [.320A.0020.0002] # CANADIAN SYLLABICS CARRIER ZA
+1646  ; [.320B.0020.0002] # CANADIAN SYLLABICS CARRIER Z
+1647  ; [.320C.0020.0002] # CANADIAN SYLLABICS CARRIER INITIAL Z
+1648  ; [.320D.0020.0002] # CANADIAN SYLLABICS CARRIER DZU
+1649  ; [.320E.0020.0002] # CANADIAN SYLLABICS CARRIER DZO
+164A  ; [.320F.0020.0002] # CANADIAN SYLLABICS CARRIER DZE
+164B  ; [.3210.0020.0002] # CANADIAN SYLLABICS CARRIER DZEE
+164C  ; [.3211.0020.0002] # CANADIAN SYLLABICS CARRIER DZI
+164D  ; [.3212.0020.0002] # CANADIAN SYLLABICS CARRIER DZA
+164E  ; [.3213.0020.0002] # CANADIAN SYLLABICS CARRIER SU
+164F  ; [.3214.0020.0002] # CANADIAN SYLLABICS CARRIER SO
+1650  ; [.3215.0020.0002] # CANADIAN SYLLABICS CARRIER SE
+1651  ; [.3216.0020.0002] # CANADIAN SYLLABICS CARRIER SEE
+1652  ; [.3217.0020.0002] # CANADIAN SYLLABICS CARRIER SI
+1653  ; [.3218.0020.0002] # CANADIAN SYLLABICS CARRIER SA
+1654  ; [.3219.0020.0002] # CANADIAN SYLLABICS CARRIER SHU
+1655  ; [.321A.0020.0002] # CANADIAN SYLLABICS CARRIER SHO
+1656  ; [.321B.0020.0002] # CANADIAN SYLLABICS CARRIER SHE
+1657  ; [.321C.0020.0002] # CANADIAN SYLLABICS CARRIER SHEE
+1658  ; [.321D.0020.0002] # CANADIAN SYLLABICS CARRIER SHI
+1659  ; [.321E.0020.0002] # CANADIAN SYLLABICS CARRIER SHA
+165A  ; [.321F.0020.0002] # CANADIAN SYLLABICS CARRIER SH
+165B  ; [.3220.0020.0002] # CANADIAN SYLLABICS CARRIER TSU
+165C  ; [.3221.0020.0002] # CANADIAN SYLLABICS CARRIER TSO
+165D  ; [.3222.0020.0002] # CANADIAN SYLLABICS CARRIER TSE
+165E  ; [.3223.0020.0002] # CANADIAN SYLLABICS CARRIER TSEE
+165F  ; [.3224.0020.0002] # CANADIAN SYLLABICS CARRIER TSI
+1660  ; [.3225.0020.0002] # CANADIAN SYLLABICS CARRIER TSA
+1661  ; [.3226.0020.0002] # CANADIAN SYLLABICS CARRIER CHU
+1662  ; [.3227.0020.0002] # CANADIAN SYLLABICS CARRIER CHO
+1663  ; [.3228.0020.0002] # CANADIAN SYLLABICS CARRIER CHE
+1664  ; [.3229.0020.0002] # CANADIAN SYLLABICS CARRIER CHEE
+1665  ; [.322A.0020.0002] # CANADIAN SYLLABICS CARRIER CHI
+1666  ; [.322B.0020.0002] # CANADIAN SYLLABICS CARRIER CHA
+1667  ; [.322C.0020.0002] # CANADIAN SYLLABICS CARRIER TTSU
+1668  ; [.322D.0020.0002] # CANADIAN SYLLABICS CARRIER TTSO
+1669  ; [.322E.0020.0002] # CANADIAN SYLLABICS CARRIER TTSE
+166A  ; [.322F.0020.0002] # CANADIAN SYLLABICS CARRIER TTSEE
+166B  ; [.3230.0020.0002] # CANADIAN SYLLABICS CARRIER TTSI
+166C  ; [.3231.0020.0002] # CANADIAN SYLLABICS CARRIER TTSA
+1677  ; [.3232.0020.0002] # CANADIAN SYLLABICS WOODS-CREE THWEE
+1678  ; [.3233.0020.0002] # CANADIAN SYLLABICS WOODS-CREE THWI
+1679  ; [.3234.0020.0002] # CANADIAN SYLLABICS WOODS-CREE THWII
+167A  ; [.3235.0020.0002] # CANADIAN SYLLABICS WOODS-CREE THWO
+167B  ; [.3236.0020.0002] # CANADIAN SYLLABICS WOODS-CREE THWOO
+167C  ; [.3237.0020.0002] # CANADIAN SYLLABICS WOODS-CREE THWA
+167D  ; [.3238.0020.0002] # CANADIAN SYLLABICS WOODS-CREE THWAA
+167E  ; [.3239.0020.0002] # CANADIAN SYLLABICS WOODS-CREE FINAL TH
+167F  ; [.323A.0020.0002] # CANADIAN SYLLABICS BLACKFOOT W
+18B0  ; [.323B.0020.0002] # CANADIAN SYLLABICS OY
+18B1  ; [.323C.0020.0002] # CANADIAN SYLLABICS AY
+18B2  ; [.323D.0020.0002] # CANADIAN SYLLABICS AAY
+18B3  ; [.323E.0020.0002] # CANADIAN SYLLABICS WAY
+18B4  ; [.323F.0020.0002] # CANADIAN SYLLABICS POY
+18B5  ; [.3240.0020.0002] # CANADIAN SYLLABICS PAY
+18B6  ; [.3241.0020.0002] # CANADIAN SYLLABICS PWOY
+18B7  ; [.3242.0020.0002] # CANADIAN SYLLABICS TAY
+18B8  ; [.3243.0020.0002] # CANADIAN SYLLABICS KAY
+18B9  ; [.3244.0020.0002] # CANADIAN SYLLABICS KWAY
+18BA  ; [.3245.0020.0002] # CANADIAN SYLLABICS MAY
+18BB  ; [.3246.0020.0002] # CANADIAN SYLLABICS NOY
+18BC  ; [.3247.0020.0002] # CANADIAN SYLLABICS NAY
+18BD  ; [.3248.0020.0002] # CANADIAN SYLLABICS LAY
+18BE  ; [.3249.0020.0002] # CANADIAN SYLLABICS SOY
+18BF  ; [.324A.0020.0002] # CANADIAN SYLLABICS SAY
+18C0  ; [.324B.0020.0002] # CANADIAN SYLLABICS SHOY
+18C1  ; [.324C.0020.0002] # CANADIAN SYLLABICS SHAY
+18C2  ; [.324D.0020.0002] # CANADIAN SYLLABICS SHWOY
+18C3  ; [.324E.0020.0002] # CANADIAN SYLLABICS YOY
+18C4  ; [.324F.0020.0002] # CANADIAN SYLLABICS YAY
+18C5  ; [.3250.0020.0002] # CANADIAN SYLLABICS RAY
+18C6  ; [.3251.0020.0002] # CANADIAN SYLLABICS NWI
+18C7  ; [.3252.0020.0002] # CANADIAN SYLLABICS OJIBWAY NWI
+18C8  ; [.3253.0020.0002] # CANADIAN SYLLABICS NWII
+18C9  ; [.3254.0020.0002] # CANADIAN SYLLABICS OJIBWAY NWII
+18CA  ; [.3255.0020.0002] # CANADIAN SYLLABICS NWO
+18CB  ; [.3256.0020.0002] # CANADIAN SYLLABICS OJIBWAY NWO
+18CC  ; [.3257.0020.0002] # CANADIAN SYLLABICS NWOO
+18CD  ; [.3258.0020.0002] # CANADIAN SYLLABICS OJIBWAY NWOO
+18CE  ; [.3259.0020.0002] # CANADIAN SYLLABICS RWEE
+18CF  ; [.325A.0020.0002] # CANADIAN SYLLABICS RWI
+18D0  ; [.325B.0020.0002] # CANADIAN SYLLABICS RWII
+18D1  ; [.325C.0020.0002] # CANADIAN SYLLABICS RWO
+18D2  ; [.325D.0020.0002] # CANADIAN SYLLABICS RWOO
+18D3  ; [.325E.0020.0002] # CANADIAN SYLLABICS RWA
+18D4  ; [.325F.0020.0002] # CANADIAN SYLLABICS OJIBWAY P
+18D5  ; [.3260.0020.0002] # CANADIAN SYLLABICS OJIBWAY T
+18D6  ; [.3261.0020.0002] # CANADIAN SYLLABICS OJIBWAY K
+18D7  ; [.3262.0020.0002] # CANADIAN SYLLABICS OJIBWAY C
+18D8  ; [.3263.0020.0002] # CANADIAN SYLLABICS OJIBWAY M
+18D9  ; [.3264.0020.0002] # CANADIAN SYLLABICS OJIBWAY N
+18DA  ; [.3265.0020.0002] # CANADIAN SYLLABICS OJIBWAY S
+18DB  ; [.3266.0020.0002] # CANADIAN SYLLABICS OJIBWAY SH
+18DC  ; [.3267.0020.0002] # CANADIAN SYLLABICS EASTERN W
+18DD  ; [.3268.0020.0002] # CANADIAN SYLLABICS WESTERN W
+18DE  ; [.3269.0020.0002] # CANADIAN SYLLABICS FINAL SMALL RING
+18DF  ; [.326A.0020.0002] # CANADIAN SYLLABICS FINAL RAISED DOT
+18E0  ; [.326B.0020.0002] # CANADIAN SYLLABICS R-CREE RWE
+18E1  ; [.326C.0020.0002] # CANADIAN SYLLABICS WEST-CREE LOO
+18E2  ; [.326D.0020.0002] # CANADIAN SYLLABICS WEST-CREE LAA
+18E3  ; [.326E.0020.0002] # CANADIAN SYLLABICS THWE
+18E4  ; [.326F.0020.0002] # CANADIAN SYLLABICS THWA
+18E5  ; [.3270.0020.0002] # CANADIAN SYLLABICS TTHWE
+18E6  ; [.3271.0020.0002] # CANADIAN SYLLABICS TTHOO
+18E7  ; [.3272.0020.0002] # CANADIAN SYLLABICS TTHAA
+18E8  ; [.3273.0020.0002] # CANADIAN SYLLABICS TLHWE
+18E9  ; [.3274.0020.0002] # CANADIAN SYLLABICS TLHOO
+18EA  ; [.3275.0020.0002] # CANADIAN SYLLABICS SAYISI SHWE
+18EB  ; [.3276.0020.0002] # CANADIAN SYLLABICS SAYISI SHOO
+18EC  ; [.3277.0020.0002] # CANADIAN SYLLABICS SAYISI HOO
+18ED  ; [.3278.0020.0002] # CANADIAN SYLLABICS CARRIER GWU
+18EE  ; [.3279.0020.0002] # CANADIAN SYLLABICS CARRIER DENE GEE
+18EF  ; [.327A.0020.0002] # CANADIAN SYLLABICS CARRIER GAA
+18F0  ; [.327B.0020.0002] # CANADIAN SYLLABICS CARRIER GWA
+18F1  ; [.327C.0020.0002] # CANADIAN SYLLABICS SAYISI JUU
+18F2  ; [.327D.0020.0002] # CANADIAN SYLLABICS CARRIER JWA
+18F3  ; [.327E.0020.0002] # CANADIAN SYLLABICS BEAVER DENE L
+18F4  ; [.327F.0020.0002] # CANADIAN SYLLABICS BEAVER DENE R
+18F5  ; [.3280.0020.0002] # CANADIAN SYLLABICS CARRIER DENTAL S
+1681  ; [.3281.0020.0002] # OGHAM LETTER BEITH
+1682  ; [.3282.0020.0002] # OGHAM LETTER LUIS
+1683  ; [.3283.0020.0002] # OGHAM LETTER FEARN
+1684  ; [.3284.0020.0002] # OGHAM LETTER SAIL
+1685  ; [.3285.0020.0002] # OGHAM LETTER NION
+1686  ; [.3286.0020.0002] # OGHAM LETTER UATH
+1687  ; [.3287.0020.0002] # OGHAM LETTER DAIR
+1688  ; [.3288.0020.0002] # OGHAM LETTER TINNE
+1689  ; [.3289.0020.0002] # OGHAM LETTER COLL
+168A  ; [.328A.0020.0002] # OGHAM LETTER CEIRT
+168B  ; [.328B.0020.0002] # OGHAM LETTER MUIN
+168C  ; [.328C.0020.0002] # OGHAM LETTER GORT
+168D  ; [.328D.0020.0002] # OGHAM LETTER NGEADAL
+168E  ; [.328E.0020.0002] # OGHAM LETTER STRAIF
+168F  ; [.328F.0020.0002] # OGHAM LETTER RUIS
+1690  ; [.3290.0020.0002] # OGHAM LETTER AILM
+1691  ; [.3291.0020.0002] # OGHAM LETTER ONN
+1692  ; [.3292.0020.0002] # OGHAM LETTER UR
+1693  ; [.3293.0020.0002] # OGHAM LETTER EADHADH
+1694  ; [.3294.0020.0002] # OGHAM LETTER IODHADH
+1695  ; [.3295.0020.0002] # OGHAM LETTER EABHADH
+1696  ; [.3296.0020.0002] # OGHAM LETTER OR
+1697  ; [.3297.0020.0002] # OGHAM LETTER UILLEANN
+1698  ; [.3298.0020.0002] # OGHAM LETTER IFIN
+1699  ; [.3299.0020.0002] # OGHAM LETTER EAMHANCHOLL
+169A  ; [.329A.0020.0002] # OGHAM LETTER PEITH
+16A0  ; [.329B.0020.0002] # RUNIC LETTER FEHU FEOH FE F
+16A1  ; [.329B.0020.0004][.0000.0108.0004] # RUNIC LETTER V
+16A2  ; [.329C.0020.0002] # RUNIC LETTER URUZ UR U
+16A4  ; [.329C.0020.0004][.0000.0108.0004] # RUNIC LETTER Y
+16A5  ; [.329C.0020.0004][.0000.0109.0004] # RUNIC LETTER W
+16A6  ; [.329D.0020.0002] # RUNIC LETTER THURISAZ THURS THORN
+16A7  ; [.329D.0020.0004][.0000.0108.0004] # RUNIC LETTER ETH
+16F0  ; [.329D.0020.0004][.329D.0020.0004] # RUNIC BELGTHOR SYMBOL
+16A8  ; [.329E.0020.0002] # RUNIC LETTER ANSUZ A
+16A9  ; [.329E.0020.0004][.0000.0108.0004] # RUNIC LETTER OS O
+16AC  ; [.329E.0020.0004][.0000.0109.0004] # RUNIC LETTER LONG-BRANCH-OSS O
+16AD  ; [.329E.0020.0004][.0000.010A.0004] # RUNIC LETTER SHORT-TWIG-OSS O
+16AE  ; [.329E.0020.0004][.0000.010B.0004] # RUNIC LETTER O
+16F4  ; [.329F.0020.0002] # RUNIC LETTER FRANKS CASKET OS
+16AF  ; [.32A0.0020.0002] # RUNIC LETTER OE
+16B0  ; [.32A1.0020.0002] # RUNIC LETTER ON
+16B1  ; [.32A2.0020.0002] # RUNIC LETTER RAIDO RAD REID R
+16B2  ; [.32A3.0020.0002] # RUNIC LETTER KAUNA
+16B3  ; [.32A3.0020.0004][.0000.0108.0004] # RUNIC LETTER CEN
+16B4  ; [.32A3.0020.0004][.0000.0109.0004] # RUNIC LETTER KAUN K
+16B5  ; [.32A3.0020.0004][.0000.010A.0004] # RUNIC LETTER G
+16B6  ; [.32A3.0020.0004][.0000.010B.0004] # RUNIC LETTER ENG
+16F1  ; [.32A4.0020.0002] # RUNIC LETTER K
+16B7  ; [.32A5.0020.0002] # RUNIC LETTER GEBO GYFU G
+16B9  ; [.32A6.0020.0002] # RUNIC LETTER WUNJO WYNN W
+16E9  ; [.32A6.0020.0004][.0000.0108.0004] # RUNIC LETTER Q
+16BA  ; [.32A7.0020.0002] # RUNIC LETTER HAGLAZ H
+16BB  ; [.32A7.0020.0004][.0000.0108.0004] # RUNIC LETTER HAEGL H
+16BC  ; [.32A7.0020.0004][.0000.0109.0004] # RUNIC LETTER LONG-BRANCH-HAGALL H
+16BD  ; [.32A7.0020.0004][.0000.010A.0004] # RUNIC LETTER SHORT-TWIG-HAGALL H
+16BE  ; [.32A8.0020.0002] # RUNIC LETTER NAUDIZ NYD NAUD N
+16BF  ; [.32A8.0020.0004][.0000.0108.0004] # RUNIC LETTER SHORT-TWIG-NAUD N
+16C0  ; [.32A8.0020.0004][.0000.0109.0004] # RUNIC LETTER DOTTED-N
+16C1  ; [.32A9.0020.0002] # RUNIC LETTER ISAZ IS ISS I
+16C2  ; [.32A9.0020.0004][.0000.0108.0004] # RUNIC LETTER E
+16F5  ; [.32AA.0020.0002] # RUNIC LETTER FRANKS CASKET IS
+16C3  ; [.32AB.0020.0002] # RUNIC LETTER JERAN J
+16C4  ; [.32AB.0020.0004][.0000.0108.0004] # RUNIC LETTER GER
+16C5  ; [.32AC.0020.0002] # RUNIC LETTER LONG-BRANCH-AR AE
+16C6  ; [.32AC.0020.0004][.0000.0108.0004] # RUNIC LETTER SHORT-TWIG-AR A
+16EE  ; [.32AC.0020.0004][.32B7.0020.0004] # RUNIC ARLAUG SYMBOL
+16C7  ; [.32AD.0020.0002] # RUNIC LETTER IWAZ EOH
+16C8  ; [.32AE.0020.0002] # RUNIC LETTER PERTHO PEORTH P
+16D5  ; [.32AE.0020.0004][.0000.0108.0004] # RUNIC LETTER OPEN-P
+16C9  ; [.32AF.0020.0002] # RUNIC LETTER ALGIZ EOLHX
+16CA  ; [.32B0.0020.0002] # RUNIC LETTER SOWILO S
+16CB  ; [.32B0.0020.0004][.0000.0108.0004] # RUNIC LETTER SIGEL LONG-BRANCH-SOL S
+16EA  ; [.32B0.0020.0004][.0000.0109.0004] # RUNIC LETTER X
+16CC  ; [.32B0.0020.0004][.0000.010A.0004] # RUNIC LETTER SHORT-TWIG-SOL S
+16CD  ; [.32B0.0020.0004][.0000.010B.0004] # RUNIC LETTER C
+16CE  ; [.32B0.0020.0004][.0000.010C.0004] # RUNIC LETTER Z
+16F2  ; [.32B1.0020.0002] # RUNIC LETTER SH
+16CF  ; [.32B2.0020.0002] # RUNIC LETTER TIWAZ TIR TYR T
+16D0  ; [.32B2.0020.0004][.0000.0108.0004] # RUNIC LETTER SHORT-TWIG-TYR T
+16D1  ; [.32B2.0020.0004][.0000.0109.0004] # RUNIC LETTER D
+16D2  ; [.32B3.0020.0002] # RUNIC LETTER BERKANAN BEORC BJARKAN B
+16D3  ; [.32B3.0020.0004][.0000.0108.0004] # RUNIC LETTER SHORT-TWIG-BJARKAN B
+16D4  ; [.32B3.0020.0004][.0000.0109.0004] # RUNIC LETTER DOTTED-P
+16D6  ; [.32B4.0020.0002] # RUNIC LETTER EHWAZ EH E
+16F6  ; [.32B5.0020.0002] # RUNIC LETTER FRANKS CASKET EH
+16D7  ; [.32B6.0020.0002] # RUNIC LETTER MANNAZ MAN M
+16D8  ; [.32B6.0020.0004][.0000.0108.0004] # RUNIC LETTER LONG-BRANCH-MADR M
+16D9  ; [.32B6.0020.0004][.0000.0109.0004] # RUNIC LETTER SHORT-TWIG-MADR M
+16EF  ; [.32B6.0020.0004][.0000.0108.0004][.32B6.0020.0004][.0000.0108.0004] # RUNIC TVIMADUR SYMBOL
+16DA  ; [.32B7.0020.0002] # RUNIC LETTER LAUKAZ LAGU LOGR L
+16DB  ; [.32B7.0020.0004][.0000.0108.0004] # RUNIC LETTER DOTTED-L
+16DC  ; [.32B8.0020.0002] # RUNIC LETTER INGWAZ
+16DD  ; [.32B8.0020.0004][.0000.0108.0004] # RUNIC LETTER ING
+16DE  ; [.32B9.0020.0002] # RUNIC LETTER DAGAZ DAEG D
+16DF  ; [.32BA.0020.0002] # RUNIC LETTER OTHALAN ETHEL O
+16F3  ; [.32BB.0020.0002] # RUNIC LETTER OO
+16AA  ; [.32BC.0020.0002] # RUNIC LETTER AC A
+16F7  ; [.32BD.0020.0002] # RUNIC LETTER FRANKS CASKET AC
+16AB  ; [.32BE.0020.0002] # RUNIC LETTER AESC
+16F8  ; [.32BF.0020.0002] # RUNIC LETTER FRANKS CASKET AESC
+16A3  ; [.32C0.0020.0002] # RUNIC LETTER YR
+16E0  ; [.32C1.0020.0002] # RUNIC LETTER EAR
+16E3  ; [.32C2.0020.0002] # RUNIC LETTER CALC
+16B8  ; [.32C3.0020.0002] # RUNIC LETTER GAR
+16E4  ; [.32C4.0020.0002] # RUNIC LETTER CEALC
+16E1  ; [.32C5.0020.0002] # RUNIC LETTER IOR
+16E2  ; [.32C6.0020.0002] # RUNIC LETTER CWEORTH
+16E5  ; [.32C7.0020.0002] # RUNIC LETTER STAN
+16E6  ; [.32C8.0020.0002] # RUNIC LETTER LONG-BRANCH-YR
+16E7  ; [.32C8.0020.0004][.0000.0108.0004] # RUNIC LETTER SHORT-TWIG-YR
+16E8  ; [.32C8.0020.0004][.0000.0109.0004] # RUNIC LETTER ICELANDIC-YR
+10C00 ; [.32C9.0020.0002] # OLD TURKIC LETTER ORKHON A
+10C01 ; [.32C9.0020.0004][.0000.0108.0004] # OLD TURKIC LETTER YENISEI A
+10C02 ; [.32CA.0020.0002] # OLD TURKIC LETTER YENISEI AE
+10C03 ; [.32CB.0020.0002] # OLD TURKIC LETTER ORKHON I
+10C04 ; [.32CB.0020.0004][.0000.0108.0004] # OLD TURKIC LETTER YENISEI I
+10C05 ; [.32CC.0020.0002] # OLD TURKIC LETTER YENISEI E
+10C06 ; [.32CD.0020.0002] # OLD TURKIC LETTER ORKHON O
+10C07 ; [.32CE.0020.0002] # OLD TURKIC LETTER ORKHON OE
+10C08 ; [.32CE.0020.0004][.0000.0108.0004] # OLD TURKIC LETTER YENISEI OE
+10C09 ; [.32CF.0020.0002] # OLD TURKIC LETTER ORKHON AB
+10C0A ; [.32CF.0020.0004][.0000.0108.0004] # OLD TURKIC LETTER YENISEI AB
+10C0B ; [.32D0.0020.0002] # OLD TURKIC LETTER ORKHON AEB
+10C0C ; [.32D0.0020.0004][.0000.0108.0004] # OLD TURKIC LETTER YENISEI AEB
+10C0D ; [.32D1.0020.0002] # OLD TURKIC LETTER ORKHON AG
+10C0E ; [.32D1.0020.0004][.0000.0108.0004] # OLD TURKIC LETTER YENISEI AG
+10C0F ; [.32D2.0020.0002] # OLD TURKIC LETTER ORKHON AEG
+10C10 ; [.32D2.0020.0004][.0000.0108.0004] # OLD TURKIC LETTER YENISEI AEG
+10C11 ; [.32D3.0020.0002] # OLD TURKIC LETTER ORKHON AD
+10C12 ; [.32D3.0020.0004][.0000.0108.0004] # OLD TURKIC LETTER YENISEI AD
+10C13 ; [.32D4.0020.0002] # OLD TURKIC LETTER ORKHON AED
+10C14 ; [.32D5.0020.0002] # OLD TURKIC LETTER ORKHON EZ
+10C15 ; [.32D5.0020.0004][.0000.0108.0004] # OLD TURKIC LETTER YENISEI EZ
+10C16 ; [.32D6.0020.0002] # OLD TURKIC LETTER ORKHON AY
+10C17 ; [.32D6.0020.0004][.0000.0108.0004] # OLD TURKIC LETTER YENISEI AY
+10C18 ; [.32D7.0020.0002] # OLD TURKIC LETTER ORKHON AEY
+10C19 ; [.32D7.0020.0004][.0000.0108.0004] # OLD TURKIC LETTER YENISEI AEY
+10C1A ; [.32D8.0020.0002] # OLD TURKIC LETTER ORKHON AEK
+10C1B ; [.32D8.0020.0004][.0000.0108.0004] # OLD TURKIC LETTER YENISEI AEK
+10C1C ; [.32D9.0020.0002] # OLD TURKIC LETTER ORKHON OEK
+10C1D ; [.32D9.0020.0004][.0000.0108.0004] # OLD TURKIC LETTER YENISEI OEK
+10C1E ; [.32DA.0020.0002] # OLD TURKIC LETTER ORKHON AL
+10C1F ; [.32DA.0020.0004][.0000.0108.0004] # OLD TURKIC LETTER YENISEI AL
+10C20 ; [.32DB.0020.0002] # OLD TURKIC LETTER ORKHON AEL
+10C21 ; [.32DC.0020.0002] # OLD TURKIC LETTER ORKHON ELT
+10C22 ; [.32DD.0020.0002] # OLD TURKIC LETTER ORKHON EM
+10C23 ; [.32DE.0020.0002] # OLD TURKIC LETTER ORKHON AN
+10C24 ; [.32DF.0020.0002] # OLD TURKIC LETTER ORKHON AEN
+10C25 ; [.32DF.0020.0004][.0000.0108.0004] # OLD TURKIC LETTER YENISEI AEN
+10C26 ; [.32E0.0020.0002] # OLD TURKIC LETTER ORKHON ENT
+10C27 ; [.32E0.0020.0004][.0000.0108.0004] # OLD TURKIC LETTER YENISEI ENT
+10C28 ; [.32E1.0020.0002] # OLD TURKIC LETTER ORKHON ENC
+10C29 ; [.32E1.0020.0004][.0000.0108.0004] # OLD TURKIC LETTER YENISEI ENC
+10C2A ; [.32E2.0020.0002] # OLD TURKIC LETTER ORKHON ENY
+10C2B ; [.32E2.0020.0004][.0000.0108.0004] # OLD TURKIC LETTER YENISEI ENY
+10C2C ; [.32E3.0020.0002] # OLD TURKIC LETTER YENISEI ANG
+10C2D ; [.32E4.0020.0002] # OLD TURKIC LETTER ORKHON ENG
+10C2E ; [.32E4.0020.0004][.0000.0108.0004] # OLD TURKIC LETTER YENISEI AENG
+10C2F ; [.32E5.0020.0002] # OLD TURKIC LETTER ORKHON EP
+10C30 ; [.32E6.0020.0002] # OLD TURKIC LETTER ORKHON OP
+10C31 ; [.32E7.0020.0002] # OLD TURKIC LETTER ORKHON IC
+10C32 ; [.32E8.0020.0002] # OLD TURKIC LETTER ORKHON EC
+10C33 ; [.32E8.0020.0004][.0000.0108.0004] # OLD TURKIC LETTER YENISEI EC
+10C34 ; [.32E9.0020.0002] # OLD TURKIC LETTER ORKHON AQ
+10C35 ; [.32E9.0020.0004][.0000.0108.0004] # OLD TURKIC LETTER YENISEI AQ
+10C36 ; [.32EA.0020.0002] # OLD TURKIC LETTER ORKHON IQ
+10C37 ; [.32EA.0020.0004][.0000.0108.0004] # OLD TURKIC LETTER YENISEI IQ
+10C38 ; [.32EB.0020.0002] # OLD TURKIC LETTER ORKHON OQ
+10C39 ; [.32EB.0020.0004][.0000.0108.0004] # OLD TURKIC LETTER YENISEI OQ
+10C3A ; [.32EC.0020.0002] # OLD TURKIC LETTER ORKHON AR
+10C3B ; [.32EC.0020.0004][.0000.0108.0004] # OLD TURKIC LETTER YENISEI AR
+10C3C ; [.32ED.0020.0002] # OLD TURKIC LETTER ORKHON AER
+10C3D ; [.32EE.0020.0002] # OLD TURKIC LETTER ORKHON AS
+10C3E ; [.32EF.0020.0002] # OLD TURKIC LETTER ORKHON AES
+10C3F ; [.32F0.0020.0002] # OLD TURKIC LETTER ORKHON ASH
+10C40 ; [.32F0.0020.0004][.0000.0108.0004] # OLD TURKIC LETTER YENISEI ASH
+10C41 ; [.32F1.0020.0002] # OLD TURKIC LETTER ORKHON ESH
+10C42 ; [.32F1.0020.0004][.0000.0108.0004] # OLD TURKIC LETTER YENISEI ESH
+10C43 ; [.32F2.0020.0002] # OLD TURKIC LETTER ORKHON AT
+10C44 ; [.32F2.0020.0004][.0000.0108.0004] # OLD TURKIC LETTER YENISEI AT
+10C45 ; [.32F3.0020.0002] # OLD TURKIC LETTER ORKHON AET
+10C46 ; [.32F3.0020.0004][.0000.0108.0004] # OLD TURKIC LETTER YENISEI AET
+10C47 ; [.32F4.0020.0002] # OLD TURKIC LETTER ORKHON OT
+10C48 ; [.32F5.0020.0002] # OLD TURKIC LETTER ORKHON BASH
+A500  ; [.32F6.0020.0002] # VAI SYLLABLE EE
+A501  ; [.32F7.0020.0002] # VAI SYLLABLE EEN
+A502  ; [.32F8.0020.0002] # VAI SYLLABLE HEE
+A503  ; [.32F9.0020.0002] # VAI SYLLABLE WEE
+A504  ; [.32FA.0020.0002] # VAI SYLLABLE WEEN
+A505  ; [.32FB.0020.0002] # VAI SYLLABLE PEE
+A506  ; [.32FC.0020.0002] # VAI SYLLABLE BHEE
+A507  ; [.32FD.0020.0002] # VAI SYLLABLE BEE
+A508  ; [.32FE.0020.0002] # VAI SYLLABLE MBEE
+A509  ; [.32FF.0020.0002] # VAI SYLLABLE KPEE
+A50A  ; [.3300.0020.0002] # VAI SYLLABLE MGBEE
+A50B  ; [.3301.0020.0002] # VAI SYLLABLE GBEE
+A50C  ; [.3302.0020.0002] # VAI SYLLABLE FEE
+A613  ; [.3302.0020.0004][.3401.0020.0004] # VAI SYMBOL FEENG
+A50D  ; [.3303.0020.0002] # VAI SYLLABLE VEE
+A50E  ; [.3304.0020.0002] # VAI SYLLABLE TEE
+A50F  ; [.3305.0020.0002] # VAI SYLLABLE THEE
+A510  ; [.3306.0020.0002] # VAI SYLLABLE DHEE
+A511  ; [.3307.0020.0002] # VAI SYLLABLE DHHEE
+A512  ; [.3308.0020.0002] # VAI SYLLABLE LEE
+A513  ; [.3309.0020.0002] # VAI SYLLABLE REE
+A514  ; [.330A.0020.0002] # VAI SYLLABLE DEE
+A515  ; [.330B.0020.0002] # VAI SYLLABLE NDEE
+A516  ; [.330C.0020.0002] # VAI SYLLABLE SEE
+A517  ; [.330D.0020.0002] # VAI SYLLABLE SHEE
+A518  ; [.330E.0020.0002] # VAI SYLLABLE ZEE
+A519  ; [.330F.0020.0002] # VAI SYLLABLE ZHEE
+A51A  ; [.3310.0020.0002] # VAI SYLLABLE CEE
+A51B  ; [.3311.0020.0002] # VAI SYLLABLE JEE
+A51C  ; [.3312.0020.0002] # VAI SYLLABLE NJEE
+A51D  ; [.3313.0020.0002] # VAI SYLLABLE YEE
+A51E  ; [.3314.0020.0002] # VAI SYLLABLE KEE
+A614  ; [.3314.0020.0004][.3401.0020.0004] # VAI SYMBOL KEENG
+A51F  ; [.3315.0020.0002] # VAI SYLLABLE NGGEE
+A520  ; [.3316.0020.0002] # VAI SYLLABLE GEE
+A521  ; [.3317.0020.0002] # VAI SYLLABLE MEE
+A522  ; [.3318.0020.0002] # VAI SYLLABLE NEE
+A523  ; [.3319.0020.0002] # VAI SYLLABLE NYEE
+A524  ; [.331A.0020.0002] # VAI SYLLABLE I
+A525  ; [.331B.0020.0002] # VAI SYLLABLE IN
+A526  ; [.331C.0020.0002] # VAI SYLLABLE HI
+A527  ; [.331D.0020.0002] # VAI SYLLABLE HIN
+A528  ; [.331E.0020.0002] # VAI SYLLABLE WI
+A529  ; [.331F.0020.0002] # VAI SYLLABLE WIN
+A52A  ; [.3320.0020.0002] # VAI SYLLABLE PI
+A52B  ; [.3321.0020.0002] # VAI SYLLABLE BHI
+A52C  ; [.3322.0020.0002] # VAI SYLLABLE BI
+A52D  ; [.3323.0020.0002] # VAI SYLLABLE MBI
+A52E  ; [.3324.0020.0002] # VAI SYLLABLE KPI
+A52F  ; [.3325.0020.0002] # VAI SYLLABLE MGBI
+A530  ; [.3326.0020.0002] # VAI SYLLABLE GBI
+A531  ; [.3327.0020.0002] # VAI SYLLABLE FI
+A532  ; [.3328.0020.0002] # VAI SYLLABLE VI
+A533  ; [.3329.0020.0002] # VAI SYLLABLE TI
+A615  ; [.3329.0020.0004][.3401.0020.0004] # VAI SYMBOL TING
+A534  ; [.332A.0020.0002] # VAI SYLLABLE THI
+A535  ; [.332B.0020.0002] # VAI SYLLABLE DHI
+A536  ; [.332C.0020.0002] # VAI SYLLABLE DHHI
+A537  ; [.332D.0020.0002] # VAI SYLLABLE LI
+A538  ; [.332E.0020.0002] # VAI SYLLABLE RI
+A539  ; [.332F.0020.0002] # VAI SYLLABLE DI
+A53A  ; [.3330.0020.0002] # VAI SYLLABLE NDI
+A53B  ; [.3331.0020.0002] # VAI SYLLABLE SI
+A53C  ; [.3332.0020.0002] # VAI SYLLABLE SHI
+A53D  ; [.3333.0020.0002] # VAI SYLLABLE ZI
+A53E  ; [.3334.0020.0002] # VAI SYLLABLE ZHI
+A53F  ; [.3335.0020.0002] # VAI SYLLABLE CI
+A540  ; [.3336.0020.0002] # VAI SYLLABLE JI
+A541  ; [.3337.0020.0002] # VAI SYLLABLE NJI
+A542  ; [.3338.0020.0002] # VAI SYLLABLE YI
+A543  ; [.3339.0020.0002] # VAI SYLLABLE KI
+A544  ; [.333A.0020.0002] # VAI SYLLABLE NGGI
+A545  ; [.333B.0020.0002] # VAI SYLLABLE GI
+A546  ; [.333C.0020.0002] # VAI SYLLABLE MI
+A547  ; [.333D.0020.0002] # VAI SYLLABLE NI
+A616  ; [.333D.0020.0004][.3402.0020.0004] # VAI SYMBOL NII
+A548  ; [.333E.0020.0002] # VAI SYLLABLE NYI
+A549  ; [.333F.0020.0002] # VAI SYLLABLE A
+A54A  ; [.3340.0020.0002] # VAI SYLLABLE AN
+A54B  ; [.3341.0020.0002] # VAI SYLLABLE NGAN
+A54C  ; [.3342.0020.0002] # VAI SYLLABLE HA
+A54D  ; [.3343.0020.0002] # VAI SYLLABLE HAN
+A54E  ; [.3344.0020.0002] # VAI SYLLABLE WA
+A54F  ; [.3345.0020.0002] # VAI SYLLABLE WAN
+A550  ; [.3346.0020.0002] # VAI SYLLABLE PA
+A551  ; [.3347.0020.0002] # VAI SYLLABLE BHA
+A552  ; [.3348.0020.0002] # VAI SYLLABLE BA
+A617  ; [.3348.0020.0004][.3401.0020.0004] # VAI SYMBOL BANG
+A553  ; [.3349.0020.0002] # VAI SYLLABLE MBA
+A554  ; [.334A.0020.0002] # VAI SYLLABLE KPA
+A555  ; [.334B.0020.0002] # VAI SYLLABLE KPAN
+A556  ; [.334C.0020.0002] # VAI SYLLABLE MGBA
+A557  ; [.334D.0020.0002] # VAI SYLLABLE GBA
+A558  ; [.334E.0020.0002] # VAI SYLLABLE FA
+A610  ; [.334E.0020.0004] # VAI SYLLABLE NDOLE FA
+A618  ; [.334E.0020.0004][.3402.0020.0004] # VAI SYMBOL FAA
+A559  ; [.334F.0020.0002] # VAI SYLLABLE VA
+A55A  ; [.3350.0020.0002] # VAI SYLLABLE TA
+A619  ; [.3350.0020.0004][.3402.0020.0004] # VAI SYMBOL TAA
+A55B  ; [.3351.0020.0002] # VAI SYLLABLE THA
+A55C  ; [.3352.0020.0002] # VAI SYLLABLE DHA
+A55D  ; [.3353.0020.0002] # VAI SYLLABLE DHHA
+A55E  ; [.3354.0020.0002] # VAI SYLLABLE LA
+A55F  ; [.3355.0020.0002] # VAI SYLLABLE RA
+A560  ; [.3356.0020.0002] # VAI SYLLABLE DA
+A61A  ; [.3356.0020.0004][.3401.0020.0004] # VAI SYMBOL DANG
+A561  ; [.3357.0020.0002] # VAI SYLLABLE NDA
+A562  ; [.3358.0020.0002] # VAI SYLLABLE SA
+A563  ; [.3359.0020.0002] # VAI SYLLABLE SHA
+A564  ; [.335A.0020.0002] # VAI SYLLABLE ZA
+A565  ; [.335B.0020.0002] # VAI SYLLABLE ZHA
+A566  ; [.335C.0020.0002] # VAI SYLLABLE CA
+A567  ; [.335D.0020.0002] # VAI SYLLABLE JA
+A568  ; [.335E.0020.0002] # VAI SYLLABLE NJA
+A569  ; [.335F.0020.0002] # VAI SYLLABLE YA
+A56A  ; [.3360.0020.0002] # VAI SYLLABLE KA
+A611  ; [.3360.0020.0004] # VAI SYLLABLE NDOLE KA
+A56B  ; [.3361.0020.0002] # VAI SYLLABLE KAN
+A56C  ; [.3362.0020.0002] # VAI SYLLABLE NGGA
+A56D  ; [.3363.0020.0002] # VAI SYLLABLE GA
+A56E  ; [.3364.0020.0002] # VAI SYLLABLE MA
+A62A  ; [.3364.0020.0004] # VAI SYLLABLE NDOLE MA
+A56F  ; [.3365.0020.0002] # VAI SYLLABLE NA
+A570  ; [.3366.0020.0002] # VAI SYLLABLE NYA
+A571  ; [.3367.0020.0002] # VAI SYLLABLE OO
+A572  ; [.3368.0020.0002] # VAI SYLLABLE OON
+A573  ; [.3369.0020.0002] # VAI SYLLABLE HOO
+A574  ; [.336A.0020.0002] # VAI SYLLABLE WOO
+A575  ; [.336B.0020.0002] # VAI SYLLABLE WOON
+A576  ; [.336C.0020.0002] # VAI SYLLABLE POO
+A577  ; [.336D.0020.0002] # VAI SYLLABLE BHOO
+A578  ; [.336E.0020.0002] # VAI SYLLABLE BOO
+A579  ; [.336F.0020.0002] # VAI SYLLABLE MBOO
+A57A  ; [.3370.0020.0002] # VAI SYLLABLE KPOO
+A57B  ; [.3371.0020.0002] # VAI SYLLABLE MGBOO
+A57C  ; [.3372.0020.0002] # VAI SYLLABLE GBOO
+A57D  ; [.3373.0020.0002] # VAI SYLLABLE FOO
+A57E  ; [.3374.0020.0002] # VAI SYLLABLE VOO
+A57F  ; [.3375.0020.0002] # VAI SYLLABLE TOO
+A580  ; [.3376.0020.0002] # VAI SYLLABLE THOO
+A581  ; [.3377.0020.0002] # VAI SYLLABLE DHOO
+A582  ; [.3378.0020.0002] # VAI SYLLABLE DHHOO
+A583  ; [.3379.0020.0002] # VAI SYLLABLE LOO
+A584  ; [.337A.0020.0002] # VAI SYLLABLE ROO
+A585  ; [.337B.0020.0002] # VAI SYLLABLE DOO
+A61B  ; [.337B.0020.0004][.3401.0020.0004] # VAI SYMBOL DOONG
+A586  ; [.337C.0020.0002] # VAI SYLLABLE NDOO
+A587  ; [.337D.0020.0002] # VAI SYLLABLE SOO
+A612  ; [.337D.0020.0004] # VAI SYLLABLE NDOLE SOO
+A588  ; [.337E.0020.0002] # VAI SYLLABLE SHOO
+A589  ; [.337F.0020.0002] # VAI SYLLABLE ZOO
+A58A  ; [.3380.0020.0002] # VAI SYLLABLE ZHOO
+A58B  ; [.3381.0020.0002] # VAI SYLLABLE COO
+A58C  ; [.3382.0020.0002] # VAI SYLLABLE JOO
+A58D  ; [.3383.0020.0002] # VAI SYLLABLE NJOO
+A58E  ; [.3384.0020.0002] # VAI SYLLABLE YOO
+A58F  ; [.3385.0020.0002] # VAI SYLLABLE KOO
+A590  ; [.3386.0020.0002] # VAI SYLLABLE NGGOO
+A591  ; [.3387.0020.0002] # VAI SYLLABLE GOO
+A592  ; [.3388.0020.0002] # VAI SYLLABLE MOO
+A593  ; [.3389.0020.0002] # VAI SYLLABLE NOO
+A594  ; [.338A.0020.0002] # VAI SYLLABLE NYOO
+A595  ; [.338B.0020.0002] # VAI SYLLABLE U
+A596  ; [.338C.0020.0002] # VAI SYLLABLE UN
+A597  ; [.338D.0020.0002] # VAI SYLLABLE HU
+A598  ; [.338E.0020.0002] # VAI SYLLABLE HUN
+A599  ; [.338F.0020.0002] # VAI SYLLABLE WU
+A59A  ; [.3390.0020.0002] # VAI SYLLABLE WUN
+A59B  ; [.3391.0020.0002] # VAI SYLLABLE PU
+A59C  ; [.3392.0020.0002] # VAI SYLLABLE BHU
+A59D  ; [.3393.0020.0002] # VAI SYLLABLE BU
+A59E  ; [.3394.0020.0002] # VAI SYLLABLE MBU
+A59F  ; [.3395.0020.0002] # VAI SYLLABLE KPU
+A5A0  ; [.3396.0020.0002] # VAI SYLLABLE MGBU
+A5A1  ; [.3397.0020.0002] # VAI SYLLABLE GBU
+A5A2  ; [.3398.0020.0002] # VAI SYLLABLE FU
+A5A3  ; [.3399.0020.0002] # VAI SYLLABLE VU
+A5A4  ; [.339A.0020.0002] # VAI SYLLABLE TU
+A5A5  ; [.339B.0020.0002] # VAI SYLLABLE THU
+A5A6  ; [.339C.0020.0002] # VAI SYLLABLE DHU
+A5A7  ; [.339D.0020.0002] # VAI SYLLABLE DHHU
+A5A8  ; [.339E.0020.0002] # VAI SYLLABLE LU
+A5A9  ; [.339F.0020.0002] # VAI SYLLABLE RU
+A5AA  ; [.33A0.0020.0002] # VAI SYLLABLE DU
+A5AB  ; [.33A1.0020.0002] # VAI SYLLABLE NDU
+A5AC  ; [.33A2.0020.0002] # VAI SYLLABLE SU
+A5AD  ; [.33A3.0020.0002] # VAI SYLLABLE SHU
+A5AE  ; [.33A4.0020.0002] # VAI SYLLABLE ZU
+A5AF  ; [.33A5.0020.0002] # VAI SYLLABLE ZHU
+A5B0  ; [.33A6.0020.0002] # VAI SYLLABLE CU
+A5B1  ; [.33A7.0020.0002] # VAI SYLLABLE JU
+A5B2  ; [.33A8.0020.0002] # VAI SYLLABLE NJU
+A5B3  ; [.33A9.0020.0002] # VAI SYLLABLE YU
+A5B4  ; [.33AA.0020.0002] # VAI SYLLABLE KU
+A61C  ; [.33AA.0020.0004][.3401.0020.0004] # VAI SYMBOL KUNG
+A5B5  ; [.33AB.0020.0002] # VAI SYLLABLE NGGU
+A5B6  ; [.33AC.0020.0002] # VAI SYLLABLE GU
+A5B7  ; [.33AD.0020.0002] # VAI SYLLABLE MU
+A5B8  ; [.33AE.0020.0002] # VAI SYLLABLE NU
+A5B9  ; [.33AF.0020.0002] # VAI SYLLABLE NYU
+A5BA  ; [.33B0.0020.0002] # VAI SYLLABLE O
+A5BB  ; [.33B1.0020.0002] # VAI SYLLABLE ON
+A5BC  ; [.33B2.0020.0002] # VAI SYLLABLE NGON
+A5BD  ; [.33B3.0020.0002] # VAI SYLLABLE HO
+A5BE  ; [.33B4.0020.0002] # VAI SYLLABLE HON
+A5BF  ; [.33B5.0020.0002] # VAI SYLLABLE WO
+A5C0  ; [.33B6.0020.0002] # VAI SYLLABLE WON
+A5C1  ; [.33B7.0020.0002] # VAI SYLLABLE PO
+A5C2  ; [.33B8.0020.0002] # VAI SYLLABLE BHO
+A5C3  ; [.33B9.0020.0002] # VAI SYLLABLE BO
+A5C4  ; [.33BA.0020.0002] # VAI SYLLABLE MBO
+A5C5  ; [.33BB.0020.0002] # VAI SYLLABLE KPO
+A5C6  ; [.33BC.0020.0002] # VAI SYLLABLE MGBO
+A5C7  ; [.33BD.0020.0002] # VAI SYLLABLE GBO
+A5C8  ; [.33BE.0020.0002] # VAI SYLLABLE GBON
+A5C9  ; [.33BF.0020.0002] # VAI SYLLABLE FO
+A5CA  ; [.33C0.0020.0002] # VAI SYLLABLE VO
+A5CB  ; [.33C1.0020.0002] # VAI SYLLABLE TO
+A61D  ; [.33C1.0020.0004][.3401.0020.0004] # VAI SYMBOL TONG
+A5CC  ; [.33C2.0020.0002] # VAI SYLLABLE THO
+A5CD  ; [.33C3.0020.0002] # VAI SYLLABLE DHO
+A5CE  ; [.33C4.0020.0002] # VAI SYLLABLE DHHO
+A5CF  ; [.33C5.0020.0002] # VAI SYLLABLE LO
+A5D0  ; [.33C6.0020.0002] # VAI SYLLABLE RO
+A5D1  ; [.33C7.0020.0002] # VAI SYLLABLE DO
+A62B  ; [.33C7.0020.0004] # VAI SYLLABLE NDOLE DO
+A61E  ; [.33C7.0020.0004][.3402.0020.0004] # VAI SYMBOL DO-O
+A5D2  ; [.33C8.0020.0002] # VAI SYLLABLE NDO
+A5D3  ; [.33C9.0020.0002] # VAI SYLLABLE SO
+A5D4  ; [.33CA.0020.0002] # VAI SYLLABLE SHO
+A5D5  ; [.33CB.0020.0002] # VAI SYLLABLE ZO
+A5D6  ; [.33CC.0020.0002] # VAI SYLLABLE ZHO
+A5D7  ; [.33CD.0020.0002] # VAI SYLLABLE CO
+A5D8  ; [.33CE.0020.0002] # VAI SYLLABLE JO
+A61F  ; [.33CE.0020.0004][.3401.0020.0004] # VAI SYMBOL JONG
+A5D9  ; [.33CF.0020.0002] # VAI SYLLABLE NJO
+A5DA  ; [.33D0.0020.0002] # VAI SYLLABLE YO
+A5DB  ; [.33D1.0020.0002] # VAI SYLLABLE KO
+A5DC  ; [.33D2.0020.0002] # VAI SYLLABLE NGGO
+A5DD  ; [.33D3.0020.0002] # VAI SYLLABLE GO
+A5DE  ; [.33D4.0020.0002] # VAI SYLLABLE MO
+A5DF  ; [.33D5.0020.0002] # VAI SYLLABLE NO
+A5E0  ; [.33D6.0020.0002] # VAI SYLLABLE NYO
+A5E1  ; [.33D7.0020.0002] # VAI SYLLABLE E
+A5E2  ; [.33D8.0020.0002] # VAI SYLLABLE EN
+A5E3  ; [.33D9.0020.0002] # VAI SYLLABLE NGEN
+A5E4  ; [.33DA.0020.0002] # VAI SYLLABLE HE
+A5E5  ; [.33DB.0020.0002] # VAI SYLLABLE HEN
+A5E6  ; [.33DC.0020.0002] # VAI SYLLABLE WE
+A5E7  ; [.33DD.0020.0002] # VAI SYLLABLE WEN
+A5E8  ; [.33DE.0020.0002] # VAI SYLLABLE PE
+A5E9  ; [.33DF.0020.0002] # VAI SYLLABLE BHE
+A5EA  ; [.33E0.0020.0002] # VAI SYLLABLE BE
+A5EB  ; [.33E1.0020.0002] # VAI SYLLABLE MBE
+A5EC  ; [.33E2.0020.0002] # VAI SYLLABLE KPE
+A5ED  ; [.33E3.0020.0002] # VAI SYLLABLE KPEN
+A5EE  ; [.33E4.0020.0002] # VAI SYLLABLE MGBE
+A5EF  ; [.33E5.0020.0002] # VAI SYLLABLE GBE
+A5F0  ; [.33E6.0020.0002] # VAI SYLLABLE GBEN
+A5F1  ; [.33E7.0020.0002] # VAI SYLLABLE FE
+A5F2  ; [.33E8.0020.0002] # VAI SYLLABLE VE
+A5F3  ; [.33E9.0020.0002] # VAI SYLLABLE TE
+A5F4  ; [.33EA.0020.0002] # VAI SYLLABLE THE
+A5F5  ; [.33EB.0020.0002] # VAI SYLLABLE DHE
+A5F6  ; [.33EC.0020.0002] # VAI SYLLABLE DHHE
+A5F7  ; [.33ED.0020.0002] # VAI SYLLABLE LE
+A5F8  ; [.33EE.0020.0002] # VAI SYLLABLE RE
+A5F9  ; [.33EF.0020.0002] # VAI SYLLABLE DE
+A5FA  ; [.33F0.0020.0002] # VAI SYLLABLE NDE
+A5FB  ; [.33F1.0020.0002] # VAI SYLLABLE SE
+A5FC  ; [.33F2.0020.0002] # VAI SYLLABLE SHE
+A5FD  ; [.33F3.0020.0002] # VAI SYLLABLE ZE
+A5FE  ; [.33F4.0020.0002] # VAI SYLLABLE ZHE
+A5FF  ; [.33F5.0020.0002] # VAI SYLLABLE CE
+A600  ; [.33F6.0020.0002] # VAI SYLLABLE JE
+A601  ; [.33F7.0020.0002] # VAI SYLLABLE NJE
+A602  ; [.33F8.0020.0002] # VAI SYLLABLE YE
+A603  ; [.33F9.0020.0002] # VAI SYLLABLE KE
+A604  ; [.33FA.0020.0002] # VAI SYLLABLE NGGE
+A605  ; [.33FB.0020.0002] # VAI SYLLABLE NGGEN
+A606  ; [.33FC.0020.0002] # VAI SYLLABLE GE
+A607  ; [.33FD.0020.0002] # VAI SYLLABLE GEN
+A608  ; [.33FE.0020.0002] # VAI SYLLABLE ME
+A609  ; [.33FF.0020.0002] # VAI SYLLABLE NE
+A60A  ; [.3400.0020.0002] # VAI SYLLABLE NYE
+A60B  ; [.3401.0020.0002] # VAI SYLLABLE NG
+A60C  ; [.3402.0020.0002] # VAI SYLLABLE LENGTHENER
+A6A0  ; [.3403.0020.0002] # BAMUM LETTER A
+A6A1  ; [.3404.0020.0002] # BAMUM LETTER KA
+A6A2  ; [.3405.0020.0002] # BAMUM LETTER U
+A6A3  ; [.3406.0020.0002] # BAMUM LETTER KU
+A6A4  ; [.3407.0020.0002] # BAMUM LETTER EE
+A6A5  ; [.3408.0020.0002] # BAMUM LETTER REE
+A6A6  ; [.3409.0020.0002] # BAMUM LETTER TAE
+A6A7  ; [.340A.0020.0002] # BAMUM LETTER O
+A6A8  ; [.340B.0020.0002] # BAMUM LETTER NYI
+A6A9  ; [.340C.0020.0002] # BAMUM LETTER I
+A6AA  ; [.340D.0020.0002] # BAMUM LETTER LA
+A6AB  ; [.340E.0020.0002] # BAMUM LETTER PA
+A6AC  ; [.340F.0020.0002] # BAMUM LETTER RII
+A6AD  ; [.3410.0020.0002] # BAMUM LETTER RIEE
+A6AE  ; [.3411.0020.0002] # BAMUM LETTER LEEEE
+A6AF  ; [.3412.0020.0002] # BAMUM LETTER MEEEE
+A6B0  ; [.3413.0020.0002] # BAMUM LETTER TAA
+A6B1  ; [.3414.0020.0002] # BAMUM LETTER NDAA
+A6B2  ; [.3415.0020.0002] # BAMUM LETTER NJAEM
+A6B3  ; [.3416.0020.0002] # BAMUM LETTER M
+A6B4  ; [.3417.0020.0002] # BAMUM LETTER SUU
+A6B5  ; [.3418.0020.0002] # BAMUM LETTER MU
+A6B6  ; [.3419.0020.0002] # BAMUM LETTER SHII
+A6B7  ; [.341A.0020.0002] # BAMUM LETTER SI
+A6B8  ; [.341B.0020.0002] # BAMUM LETTER SHEUX
+A6B9  ; [.341C.0020.0002] # BAMUM LETTER SEUX
+A6BA  ; [.341D.0020.0002] # BAMUM LETTER KYEE
+A6BB  ; [.341E.0020.0002] # BAMUM LETTER KET
+A6BC  ; [.341F.0020.0002] # BAMUM LETTER NUAE
+A6BD  ; [.3420.0020.0002] # BAMUM LETTER NU
+A6BE  ; [.3421.0020.0002] # BAMUM LETTER NJUAE
+A6BF  ; [.3422.0020.0002] # BAMUM LETTER YOQ
+A6C0  ; [.3423.0020.0002] # BAMUM LETTER SHU
+A6C1  ; [.3424.0020.0002] # BAMUM LETTER YUQ
+A6C2  ; [.3425.0020.0002] # BAMUM LETTER YA
+A6C3  ; [.3426.0020.0002] # BAMUM LETTER NSHA
+A6C4  ; [.3427.0020.0002] # BAMUM LETTER KEUX
+A6C5  ; [.3428.0020.0002] # BAMUM LETTER PEUX
+A6C6  ; [.3429.0020.0002] # BAMUM LETTER NJEE
+A6C7  ; [.342A.0020.0002] # BAMUM LETTER NTEE
+A6C8  ; [.342B.0020.0002] # BAMUM LETTER PUE
+A6C9  ; [.342C.0020.0002] # BAMUM LETTER WUE
+A6CA  ; [.342D.0020.0002] # BAMUM LETTER PEE
+A6CB  ; [.342E.0020.0002] # BAMUM LETTER FEE
+A6CC  ; [.342F.0020.0002] # BAMUM LETTER RU
+A6CD  ; [.3430.0020.0002] # BAMUM LETTER LU
+A6CE  ; [.3431.0020.0002] # BAMUM LETTER MI
+A6CF  ; [.3432.0020.0002] # BAMUM LETTER NI
+A6D0  ; [.3433.0020.0002] # BAMUM LETTER REUX
+A6D1  ; [.3434.0020.0002] # BAMUM LETTER RAE
+A6D2  ; [.3435.0020.0002] # BAMUM LETTER KEN
+A6D3  ; [.3436.0020.0002] # BAMUM LETTER NGKWAEN
+A6D4  ; [.3437.0020.0002] # BAMUM LETTER NGGA
+A6D5  ; [.3438.0020.0002] # BAMUM LETTER NGA
+A6D6  ; [.3439.0020.0002] # BAMUM LETTER SHO
+A6D7  ; [.343A.0020.0002] # BAMUM LETTER PUAE
+A6D8  ; [.343B.0020.0002] # BAMUM LETTER FU
+A6D9  ; [.343C.0020.0002] # BAMUM LETTER FOM
+A6DA  ; [.343D.0020.0002] # BAMUM LETTER WA
+A6DB  ; [.343E.0020.0002] # BAMUM LETTER NA
+A6DC  ; [.343F.0020.0002] # BAMUM LETTER LI
+A6DD  ; [.3440.0020.0002] # BAMUM LETTER PI
+A6DE  ; [.3441.0020.0002] # BAMUM LETTER LOQ
+A6DF  ; [.3442.0020.0002] # BAMUM LETTER KO
+A6E0  ; [.3443.0020.0002] # BAMUM LETTER MBEN
+A6E1  ; [.3444.0020.0002] # BAMUM LETTER REN
+A6E2  ; [.3445.0020.0002] # BAMUM LETTER MEN
+A6E3  ; [.3446.0020.0002] # BAMUM LETTER MA
+A6E4  ; [.3447.0020.0002] # BAMUM LETTER TI
+A6E5  ; [.3448.0020.0002] # BAMUM LETTER KI
+A6E6  ; [.3449.0020.0002] # BAMUM LETTER MO
+A6E7  ; [.344A.0020.0002] # BAMUM LETTER MBAA
+A6E8  ; [.344B.0020.0002] # BAMUM LETTER TET
+A6E9  ; [.344C.0020.0002] # BAMUM LETTER KPA
+A6EA  ; [.344D.0020.0002] # BAMUM LETTER TEN
+A6EB  ; [.344E.0020.0002] # BAMUM LETTER NTUU
+A6EC  ; [.344F.0020.0002] # BAMUM LETTER SAMBA
+A6ED  ; [.3450.0020.0002] # BAMUM LETTER FAAMAE
+A6EE  ; [.3451.0020.0002] # BAMUM LETTER KOVUU
+A6EF  ; [.3452.0020.0002] # BAMUM LETTER KOGHOM
+16800 ; [.3453.0020.0002] # BAMUM LETTER PHASE-A NGKUE MFON
+16801 ; [.3454.0020.0002] # BAMUM LETTER PHASE-A GBIEE FON
+16802 ; [.3455.0020.0002] # BAMUM LETTER PHASE-A PON MFON PIPAEMGBIEE
+16803 ; [.3456.0020.0002] # BAMUM LETTER PHASE-A PON MFON PIPAEMBA
+16804 ; [.3457.0020.0002] # BAMUM LETTER PHASE-A NAA MFON
+16805 ; [.3458.0020.0002] # BAMUM LETTER PHASE-A SHUENSHUET
+16806 ; [.3459.0020.0002] # BAMUM LETTER PHASE-A TITA MFON
+16807 ; [.345A.0020.0002] # BAMUM LETTER PHASE-A NZA MFON
+16808 ; [.345B.0020.0002] # BAMUM LETTER PHASE-A SHINDA PA NJI
+16809 ; [.345C.0020.0002] # BAMUM LETTER PHASE-A PON PA NJI PIPAEMGBIEE
+1680A ; [.345D.0020.0002] # BAMUM LETTER PHASE-A PON PA NJI PIPAEMBA
+1680B ; [.345E.0020.0002] # BAMUM LETTER PHASE-A MAEMBGBIEE
+1680C ; [.345F.0020.0002] # BAMUM LETTER PHASE-A TU MAEMBA
+1680D ; [.3460.0020.0002] # BAMUM LETTER PHASE-A NGANGU
+1680E ; [.3461.0020.0002] # BAMUM LETTER PHASE-A MAEMVEUX
+1680F ; [.3462.0020.0002] # BAMUM LETTER PHASE-A MANSUAE
+16810 ; [.3463.0020.0002] # BAMUM LETTER PHASE-A MVEUAENGAM
+16811 ; [.3464.0020.0002] # BAMUM LETTER PHASE-A SEUNYAM
+16812 ; [.3465.0020.0002] # BAMUM LETTER PHASE-A NTOQPEN
+16813 ; [.3466.0020.0002] # BAMUM LETTER PHASE-A KEUKEUTNDA
+16814 ; [.3467.0020.0002] # BAMUM LETTER PHASE-A NKINDI
+16815 ; [.3468.0020.0002] # BAMUM LETTER PHASE-A SUU
+16816 ; [.3469.0020.0002] # BAMUM LETTER PHASE-A NGKUENZEUM
+16817 ; [.346A.0020.0002] # BAMUM LETTER PHASE-A LAPAQ
+16818 ; [.346B.0020.0002] # BAMUM LETTER PHASE-A LET KUT
+16819 ; [.346C.0020.0002] # BAMUM LETTER PHASE-A NTAP MFAA
+1681A ; [.346D.0020.0002] # BAMUM LETTER PHASE-A MAEKEUP
+1681B ; [.346E.0020.0002] # BAMUM LETTER PHASE-A PASHAE
+1681C ; [.346F.0020.0002] # BAMUM LETTER PHASE-A GHEUAERAE
+1681D ; [.3470.0020.0002] # BAMUM LETTER PHASE-A PAMSHAE
+1681E ; [.3471.0020.0002] # BAMUM LETTER PHASE-A MON NGGEUAET
+1681F ; [.3472.0020.0002] # BAMUM LETTER PHASE-A NZUN MEUT
+16820 ; [.3473.0020.0002] # BAMUM LETTER PHASE-A U YUQ NAE
+16821 ; [.3474.0020.0002] # BAMUM LETTER PHASE-A GHEUAEGHEUAE
+16822 ; [.3475.0020.0002] # BAMUM LETTER PHASE-A NTAP NTAA
+16823 ; [.3476.0020.0002] # BAMUM LETTER PHASE-A SISA
+16824 ; [.3477.0020.0002] # BAMUM LETTER PHASE-A MGBASA
+16825 ; [.3478.0020.0002] # BAMUM LETTER PHASE-A MEUNJOMNDEUQ
+16826 ; [.3479.0020.0002] # BAMUM LETTER PHASE-A MOOMPUQ
+16827 ; [.347A.0020.0002] # BAMUM LETTER PHASE-A KAFA
+16828 ; [.347B.0020.0002] # BAMUM LETTER PHASE-A PA LEERAEWA
+16829 ; [.347C.0020.0002] # BAMUM LETTER PHASE-A NDA LEERAEWA
+1682A ; [.347D.0020.0002] # BAMUM LETTER PHASE-A PET
+1682B ; [.347E.0020.0002] # BAMUM LETTER PHASE-A MAEMKPEN
+1682C ; [.347F.0020.0002] # BAMUM LETTER PHASE-A NIKA
+1682D ; [.3480.0020.0002] # BAMUM LETTER PHASE-A PUP
+1682E ; [.3481.0020.0002] # BAMUM LETTER PHASE-A TUAEP
+1682F ; [.3482.0020.0002] # BAMUM LETTER PHASE-A LUAEP
+16830 ; [.3483.0020.0002] # BAMUM LETTER PHASE-A SONJAM
+16831 ; [.3484.0020.0002] # BAMUM LETTER PHASE-A TEUTEUWEN
+16832 ; [.3485.0020.0002] # BAMUM LETTER PHASE-A MAENYI
+16833 ; [.3486.0020.0002] # BAMUM LETTER PHASE-A KET
+16834 ; [.3487.0020.0002] # BAMUM LETTER PHASE-A NDAANGGEUAET
+16835 ; [.3488.0020.0002] # BAMUM LETTER PHASE-A KUOQ
+16836 ; [.3489.0020.0002] # BAMUM LETTER PHASE-A MOOMEUT
+16837 ; [.348A.0020.0002] # BAMUM LETTER PHASE-A SHUM
+16838 ; [.348B.0020.0002] # BAMUM LETTER PHASE-A LOMMAE
+16839 ; [.348C.0020.0002] # BAMUM LETTER PHASE-A FIRI
+1683A ; [.348D.0020.0002] # BAMUM LETTER PHASE-A ROM
+1683B ; [.348E.0020.0002] # BAMUM LETTER PHASE-A KPOQ
+1683C ; [.348F.0020.0002] # BAMUM LETTER PHASE-A SOQ
+1683D ; [.3490.0020.0002] # BAMUM LETTER PHASE-A MAP PIEET
+1683E ; [.3491.0020.0002] # BAMUM LETTER PHASE-A SHIRAE
+1683F ; [.3492.0020.0002] # BAMUM LETTER PHASE-A NTAP
+16840 ; [.3493.0020.0002] # BAMUM LETTER PHASE-A SHOQ NSHUT YUM
+16841 ; [.3494.0020.0002] # BAMUM LETTER PHASE-A NYIT MONGKEUAEQ
+16842 ; [.3495.0020.0002] # BAMUM LETTER PHASE-A PAARAE
+16843 ; [.3496.0020.0002] # BAMUM LETTER PHASE-A NKAARAE
+16844 ; [.3497.0020.0002] # BAMUM LETTER PHASE-A UNKNOWN
+16845 ; [.3498.0020.0002] # BAMUM LETTER PHASE-A NGGEN
+16846 ; [.3499.0020.0002] # BAMUM LETTER PHASE-A MAESI
+16847 ; [.349A.0020.0002] # BAMUM LETTER PHASE-A NJAM
+16848 ; [.349B.0020.0002] # BAMUM LETTER PHASE-A MBANYI
+16849 ; [.349C.0020.0002] # BAMUM LETTER PHASE-A NYET
+1684A ; [.349D.0020.0002] # BAMUM LETTER PHASE-A TEUAEN
+1684B ; [.349E.0020.0002] # BAMUM LETTER PHASE-A SOT
+1684C ; [.349F.0020.0002] # BAMUM LETTER PHASE-A PAAM
+1684D ; [.34A0.0020.0002] # BAMUM LETTER PHASE-A NSHIEE
+1684E ; [.34A1.0020.0002] # BAMUM LETTER PHASE-A MAEM
+1684F ; [.34A2.0020.0002] # BAMUM LETTER PHASE-A NYI
+16850 ; [.34A3.0020.0002] # BAMUM LETTER PHASE-A KAQ
+16851 ; [.34A4.0020.0002] # BAMUM LETTER PHASE-A NSHA
+16852 ; [.34A5.0020.0002] # BAMUM LETTER PHASE-A VEE
+16853 ; [.34A6.0020.0002] # BAMUM LETTER PHASE-A LU
+16854 ; [.34A7.0020.0002] # BAMUM LETTER PHASE-A NEN
+16855 ; [.34A8.0020.0002] # BAMUM LETTER PHASE-A NAQ
+16856 ; [.34A9.0020.0002] # BAMUM LETTER PHASE-A MBAQ
+16857 ; [.34AA.0020.0002] # BAMUM LETTER PHASE-B NSHUET
+16858 ; [.34AB.0020.0002] # BAMUM LETTER PHASE-B TU MAEMGBIEE
+16859 ; [.34AC.0020.0002] # BAMUM LETTER PHASE-B SIEE
+1685A ; [.34AD.0020.0002] # BAMUM LETTER PHASE-B SET TU
+1685B ; [.34AE.0020.0002] # BAMUM LETTER PHASE-B LOM NTEUM
+1685C ; [.34AF.0020.0002] # BAMUM LETTER PHASE-B MBA MAELEE
+1685D ; [.34B0.0020.0002] # BAMUM LETTER PHASE-B KIEEM
+1685E ; [.34B1.0020.0002] # BAMUM LETTER PHASE-B YEURAE
+1685F ; [.34B2.0020.0002] # BAMUM LETTER PHASE-B MBAARAE
+16860 ; [.34B3.0020.0002] # BAMUM LETTER PHASE-B KAM
+16861 ; [.34B4.0020.0002] # BAMUM LETTER PHASE-B PEESHI
+16862 ; [.34B5.0020.0002] # BAMUM LETTER PHASE-B YAFU LEERAEWA
+16863 ; [.34B6.0020.0002] # BAMUM LETTER PHASE-B LAM NSHUT NYAM
+16864 ; [.34B7.0020.0002] # BAMUM LETTER PHASE-B NTIEE SHEUOQ
+16865 ; [.34B8.0020.0002] # BAMUM LETTER PHASE-B NDU NJAA
+16866 ; [.34B9.0020.0002] # BAMUM LETTER PHASE-B GHEUGHEUAEM
+16867 ; [.34BA.0020.0002] # BAMUM LETTER PHASE-B PIT
+16868 ; [.34BB.0020.0002] # BAMUM LETTER PHASE-B TU NSIEE
+16869 ; [.34BC.0020.0002] # BAMUM LETTER PHASE-B SHET NJAQ
+1686A ; [.34BD.0020.0002] # BAMUM LETTER PHASE-B SHEUAEQTU
+1686B ; [.34BE.0020.0002] # BAMUM LETTER PHASE-B MFON TEUAEQ
+1686C ; [.34BF.0020.0002] # BAMUM LETTER PHASE-B MBIT MBAAKET
+1686D ; [.34C0.0020.0002] # BAMUM LETTER PHASE-B NYI NTEUM
+1686E ; [.34C1.0020.0002] # BAMUM LETTER PHASE-B KEUPUQ
+1686F ; [.34C2.0020.0002] # BAMUM LETTER PHASE-B GHEUGHEN
+16870 ; [.34C3.0020.0002] # BAMUM LETTER PHASE-B KEUYEUX
+16871 ; [.34C4.0020.0002] # BAMUM LETTER PHASE-B LAANAE
+16872 ; [.34C5.0020.0002] # BAMUM LETTER PHASE-B PARUM
+16873 ; [.34C6.0020.0002] # BAMUM LETTER PHASE-B VEUM
+16874 ; [.34C7.0020.0002] # BAMUM LETTER PHASE-B NGKINDI MVOP
+16875 ; [.34C8.0020.0002] # BAMUM LETTER PHASE-B NGGEU MBU
+16876 ; [.34C9.0020.0002] # BAMUM LETTER PHASE-B WUAET
+16877 ; [.34CA.0020.0002] # BAMUM LETTER PHASE-B SAKEUAE
+16878 ; [.34CB.0020.0002] # BAMUM LETTER PHASE-B TAAM
+16879 ; [.34CC.0020.0002] # BAMUM LETTER PHASE-B MEUQ
+1687A ; [.34CD.0020.0002] # BAMUM LETTER PHASE-B NGGUOQ
+1687B ; [.34CE.0020.0002] # BAMUM LETTER PHASE-B NGGUOQ LARGE
+1687C ; [.34CF.0020.0002] # BAMUM LETTER PHASE-B MFIYAQ
+1687D ; [.34D0.0020.0002] # BAMUM LETTER PHASE-B SUE
+1687E ; [.34D1.0020.0002] # BAMUM LETTER PHASE-B MBEURI
+1687F ; [.34D2.0020.0002] # BAMUM LETTER PHASE-B MONTIEEN
+16880 ; [.34D3.0020.0002] # BAMUM LETTER PHASE-B NYAEMAE
+16881 ; [.34D4.0020.0002] # BAMUM LETTER PHASE-B PUNGAAM
+16882 ; [.34D5.0020.0002] # BAMUM LETTER PHASE-B MEUT NGGEET
+16883 ; [.34D6.0020.0002] # BAMUM LETTER PHASE-B FEUX
+16884 ; [.34D7.0020.0002] # BAMUM LETTER PHASE-B MBUOQ
+16885 ; [.34D8.0020.0002] # BAMUM LETTER PHASE-B FEE
+16886 ; [.34D9.0020.0002] # BAMUM LETTER PHASE-B KEUAEM
+16887 ; [.34DA.0020.0002] # BAMUM LETTER PHASE-B MA NJEUAENA
+16888 ; [.34DB.0020.0002] # BAMUM LETTER PHASE-B MA NJUQA
+16889 ; [.34DC.0020.0002] # BAMUM LETTER PHASE-B LET
+1688A ; [.34DD.0020.0002] # BAMUM LETTER PHASE-B NGGAAM
+1688B ; [.34DE.0020.0002] # BAMUM LETTER PHASE-B NSEN
+1688C ; [.34DF.0020.0002] # BAMUM LETTER PHASE-B MA
+1688D ; [.34E0.0020.0002] # BAMUM LETTER PHASE-B KIQ
+1688E ; [.34E1.0020.0002] # BAMUM LETTER PHASE-B NGOM
+1688F ; [.34E2.0020.0002] # BAMUM LETTER PHASE-C NGKUE MAEMBA
+16890 ; [.34E3.0020.0002] # BAMUM LETTER PHASE-C NZA
+16891 ; [.34E4.0020.0002] # BAMUM LETTER PHASE-C YUM
+16892 ; [.34E5.0020.0002] # BAMUM LETTER PHASE-C WANGKUOQ
+16893 ; [.34E6.0020.0002] # BAMUM LETTER PHASE-C NGGEN
+16894 ; [.34E7.0020.0002] # BAMUM LETTER PHASE-C NDEUAEREE
+16895 ; [.34E8.0020.0002] # BAMUM LETTER PHASE-C NGKAQ
+16896 ; [.34E9.0020.0002] # BAMUM LETTER PHASE-C GHARAE
+16897 ; [.34EA.0020.0002] # BAMUM LETTER PHASE-C MBEEKEET
+16898 ; [.34EB.0020.0002] # BAMUM LETTER PHASE-C GBAYI
+16899 ; [.34EC.0020.0002] # BAMUM LETTER PHASE-C NYIR MKPARAQ MEUN
+1689A ; [.34ED.0020.0002] # BAMUM LETTER PHASE-C NTU MBIT
+1689B ; [.34EE.0020.0002] # BAMUM LETTER PHASE-C MBEUM
+1689C ; [.34EF.0020.0002] # BAMUM LETTER PHASE-C PIRIEEN
+1689D ; [.34F0.0020.0002] # BAMUM LETTER PHASE-C NDOMBU
+1689E ; [.34F1.0020.0002] # BAMUM LETTER PHASE-C MBAA CABBAGE-TREE
+1689F ; [.34F2.0020.0002] # BAMUM LETTER PHASE-C KEUSHEUAEP
+168A0 ; [.34F3.0020.0002] # BAMUM LETTER PHASE-C GHAP
+168A1 ; [.34F4.0020.0002] # BAMUM LETTER PHASE-C KEUKAQ
+168A2 ; [.34F5.0020.0002] # BAMUM LETTER PHASE-C YU MUOMAE
+168A3 ; [.34F6.0020.0002] # BAMUM LETTER PHASE-C NZEUM
+168A4 ; [.34F7.0020.0002] # BAMUM LETTER PHASE-C MBUE
+168A5 ; [.34F8.0020.0002] # BAMUM LETTER PHASE-C NSEUAEN
+168A6 ; [.34F9.0020.0002] # BAMUM LETTER PHASE-C MBIT
+168A7 ; [.34FA.0020.0002] # BAMUM LETTER PHASE-C YEUQ
+168A8 ; [.34FB.0020.0002] # BAMUM LETTER PHASE-C KPARAQ
+168A9 ; [.34FC.0020.0002] # BAMUM LETTER PHASE-C KAA
+168AA ; [.34FD.0020.0002] # BAMUM LETTER PHASE-C SEUX
+168AB ; [.34FE.0020.0002] # BAMUM LETTER PHASE-C NDIDA
+168AC ; [.34FF.0020.0002] # BAMUM LETTER PHASE-C TAASHAE
+168AD ; [.3500.0020.0002] # BAMUM LETTER PHASE-C NJUEQ
+168AE ; [.3501.0020.0002] # BAMUM LETTER PHASE-C TITA YUE
+168AF ; [.3502.0020.0002] # BAMUM LETTER PHASE-C SUAET
+168B0 ; [.3503.0020.0002] # BAMUM LETTER PHASE-C NGGUAEN NYAM
+168B1 ; [.3504.0020.0002] # BAMUM LETTER PHASE-C VEUX
+168B2 ; [.3505.0020.0002] # BAMUM LETTER PHASE-C NANSANAQ
+168B3 ; [.3506.0020.0002] # BAMUM LETTER PHASE-C MA KEUAERI
+168B4 ; [.3507.0020.0002] # BAMUM LETTER PHASE-C NTAA
+168B5 ; [.3508.0020.0002] # BAMUM LETTER PHASE-C NGGUON
+168B6 ; [.3509.0020.0002] # BAMUM LETTER PHASE-C LAP
+168B7 ; [.350A.0020.0002] # BAMUM LETTER PHASE-C MBIRIEEN
+168B8 ; [.350B.0020.0002] # BAMUM LETTER PHASE-C MGBASAQ
+168B9 ; [.350C.0020.0002] # BAMUM LETTER PHASE-C NTEUNGBA
+168BA ; [.350D.0020.0002] # BAMUM LETTER PHASE-C TEUTEUX
+168BB ; [.350E.0020.0002] # BAMUM LETTER PHASE-C NGGUM
+168BC ; [.350F.0020.0002] # BAMUM LETTER PHASE-C FUE
+168BD ; [.3510.0020.0002] # BAMUM LETTER PHASE-C NDEUT
+168BE ; [.3511.0020.0002] # BAMUM LETTER PHASE-C NSA
+168BF ; [.3512.0020.0002] # BAMUM LETTER PHASE-C NSHAQ
+168C0 ; [.3513.0020.0002] # BAMUM LETTER PHASE-C BUNG
+168C1 ; [.3514.0020.0002] # BAMUM LETTER PHASE-C VEUAEPEN
+168C2 ; [.3515.0020.0002] # BAMUM LETTER PHASE-C MBERAE
+168C3 ; [.3516.0020.0002] # BAMUM LETTER PHASE-C RU
+168C4 ; [.3517.0020.0002] # BAMUM LETTER PHASE-C NJAEM
+168C5 ; [.3518.0020.0002] # BAMUM LETTER PHASE-C LAM
+168C6 ; [.3519.0020.0002] # BAMUM LETTER PHASE-C TITUAEP
+168C7 ; [.351A.0020.0002] # BAMUM LETTER PHASE-C NSUOT NGOM
+168C8 ; [.351B.0020.0002] # BAMUM LETTER PHASE-C NJEEEE
+168C9 ; [.351C.0020.0002] # BAMUM LETTER PHASE-C KET
+168CA ; [.351D.0020.0002] # BAMUM LETTER PHASE-C NGGU
+168CB ; [.351E.0020.0002] # BAMUM LETTER PHASE-C MAESI
+168CC ; [.351F.0020.0002] # BAMUM LETTER PHASE-C MBUAEM
+168CD ; [.3520.0020.0002] # BAMUM LETTER PHASE-C LU
+168CE ; [.3521.0020.0002] # BAMUM LETTER PHASE-C KUT
+168CF ; [.3522.0020.0002] # BAMUM LETTER PHASE-C NJAM
+168D0 ; [.3523.0020.0002] # BAMUM LETTER PHASE-C NGOM
+168D1 ; [.3524.0020.0002] # BAMUM LETTER PHASE-C WUP
+168D2 ; [.3525.0020.0002] # BAMUM LETTER PHASE-C NGGUEET
+168D3 ; [.3526.0020.0002] # BAMUM LETTER PHASE-C NSOM
+168D4 ; [.3527.0020.0002] # BAMUM LETTER PHASE-C NTEN
+168D5 ; [.3528.0020.0002] # BAMUM LETTER PHASE-C KUOP NKAARAE
+168D6 ; [.3529.0020.0002] # BAMUM LETTER PHASE-C NSUN
+168D7 ; [.352A.0020.0002] # BAMUM LETTER PHASE-C NDAM
+168D8 ; [.352B.0020.0002] # BAMUM LETTER PHASE-C MA NSIEE
+168D9 ; [.352C.0020.0002] # BAMUM LETTER PHASE-C YAA
+168DA ; [.352D.0020.0002] # BAMUM LETTER PHASE-C NDAP
+168DB ; [.352E.0020.0002] # BAMUM LETTER PHASE-C SHUEQ
+168DC ; [.352F.0020.0002] # BAMUM LETTER PHASE-C SETFON
+168DD ; [.3530.0020.0002] # BAMUM LETTER PHASE-C MBI
+168DE ; [.3531.0020.0002] # BAMUM LETTER PHASE-C MAEMBA
+168DF ; [.3532.0020.0002] # BAMUM LETTER PHASE-C MBANYI
+168E0 ; [.3533.0020.0002] # BAMUM LETTER PHASE-C KEUSEUX
+168E1 ; [.3534.0020.0002] # BAMUM LETTER PHASE-C MBEUX
+168E2 ; [.3535.0020.0002] # BAMUM LETTER PHASE-C KEUM
+168E3 ; [.3536.0020.0002] # BAMUM LETTER PHASE-C MBAA PICKET
+168E4 ; [.3537.0020.0002] # BAMUM LETTER PHASE-C YUWOQ
+168E5 ; [.3538.0020.0002] # BAMUM LETTER PHASE-C NJEUX
+168E6 ; [.3539.0020.0002] # BAMUM LETTER PHASE-C MIEE
+168E7 ; [.353A.0020.0002] # BAMUM LETTER PHASE-C MUAE
+168E8 ; [.353B.0020.0002] # BAMUM LETTER PHASE-C SHIQ
+168E9 ; [.353C.0020.0002] # BAMUM LETTER PHASE-C KEN LAW
+168EA ; [.353D.0020.0002] # BAMUM LETTER PHASE-C KEN FATIGUE
+168EB ; [.353E.0020.0002] # BAMUM LETTER PHASE-C NGAQ
+168EC ; [.353F.0020.0002] # BAMUM LETTER PHASE-C NAQ
+168ED ; [.3540.0020.0002] # BAMUM LETTER PHASE-C LIQ
+168EE ; [.3541.0020.0002] # BAMUM LETTER PHASE-C PIN
+168EF ; [.3542.0020.0002] # BAMUM LETTER PHASE-C PEN
+168F0 ; [.3543.0020.0002] # BAMUM LETTER PHASE-C TET
+168F1 ; [.3544.0020.0002] # BAMUM LETTER PHASE-D MBUO
+168F2 ; [.3545.0020.0002] # BAMUM LETTER PHASE-D WAP
+168F3 ; [.3546.0020.0002] # BAMUM LETTER PHASE-D NJI
+168F4 ; [.3547.0020.0002] # BAMUM LETTER PHASE-D MFON
+168F5 ; [.3548.0020.0002] # BAMUM LETTER PHASE-D NJIEE
+168F6 ; [.3549.0020.0002] # BAMUM LETTER PHASE-D LIEE
+168F7 ; [.354A.0020.0002] # BAMUM LETTER PHASE-D NJEUT
+168F8 ; [.354B.0020.0002] # BAMUM LETTER PHASE-D NSHEE
+168F9 ; [.354C.0020.0002] # BAMUM LETTER PHASE-D NGGAAMAE
+168FA ; [.354D.0020.0002] # BAMUM LETTER PHASE-D NYAM
+168FB ; [.354E.0020.0002] # BAMUM LETTER PHASE-D WUAEN
+168FC ; [.354F.0020.0002] # BAMUM LETTER PHASE-D NGKUN
+168FD ; [.3550.0020.0002] # BAMUM LETTER PHASE-D SHEE
+168FE ; [.3551.0020.0002] # BAMUM LETTER PHASE-D NGKAP
+168FF ; [.3552.0020.0002] # BAMUM LETTER PHASE-D KEUAETMEUN
+16900 ; [.3553.0020.0002] # BAMUM LETTER PHASE-D TEUT
+16901 ; [.3554.0020.0002] # BAMUM LETTER PHASE-D SHEUAE
+16902 ; [.3555.0020.0002] # BAMUM LETTER PHASE-D NJAP
+16903 ; [.3556.0020.0002] # BAMUM LETTER PHASE-D SUE
+16904 ; [.3557.0020.0002] # BAMUM LETTER PHASE-D KET
+16905 ; [.3558.0020.0002] # BAMUM LETTER PHASE-D YAEMMAE
+16906 ; [.3559.0020.0002] # BAMUM LETTER PHASE-D KUOM
+16907 ; [.355A.0020.0002] # BAMUM LETTER PHASE-D SAP
+16908 ; [.355B.0020.0002] # BAMUM LETTER PHASE-D MFEUT
+16909 ; [.355C.0020.0002] # BAMUM LETTER PHASE-D NDEUX
+1690A ; [.355D.0020.0002] # BAMUM LETTER PHASE-D MALEERI
+1690B ; [.355E.0020.0002] # BAMUM LETTER PHASE-D MEUT
+1690C ; [.355F.0020.0002] # BAMUM LETTER PHASE-D SEUAEQ
+1690D ; [.3560.0020.0002] # BAMUM LETTER PHASE-D YEN
+1690E ; [.3561.0020.0002] # BAMUM LETTER PHASE-D NJEUAEM
+1690F ; [.3562.0020.0002] # BAMUM LETTER PHASE-D KEUOT MBUAE
+16910 ; [.3563.0020.0002] # BAMUM LETTER PHASE-D NGKEURI
+16911 ; [.3564.0020.0002] # BAMUM LETTER PHASE-D TU
+16912 ; [.3565.0020.0002] # BAMUM LETTER PHASE-D GHAA
+16913 ; [.3566.0020.0002] # BAMUM LETTER PHASE-D NGKYEE
+16914 ; [.3567.0020.0002] # BAMUM LETTER PHASE-D FEUFEUAET
+16915 ; [.3568.0020.0002] # BAMUM LETTER PHASE-D NDEE
+16916 ; [.3569.0020.0002] # BAMUM LETTER PHASE-D MGBOFUM
+16917 ; [.356A.0020.0002] # BAMUM LETTER PHASE-D LEUAEP
+16918 ; [.356B.0020.0002] # BAMUM LETTER PHASE-D NDON
+16919 ; [.356C.0020.0002] # BAMUM LETTER PHASE-D MONI
+1691A ; [.356D.0020.0002] # BAMUM LETTER PHASE-D MGBEUN
+1691B ; [.356E.0020.0002] # BAMUM LETTER PHASE-D PUUT
+1691C ; [.356F.0020.0002] # BAMUM LETTER PHASE-D MGBIEE
+1691D ; [.3570.0020.0002] # BAMUM LETTER PHASE-D MFO
+1691E ; [.3571.0020.0002] # BAMUM LETTER PHASE-D LUM
+1691F ; [.3572.0020.0002] # BAMUM LETTER PHASE-D NSIEEP
+16920 ; [.3573.0020.0002] # BAMUM LETTER PHASE-D MBAA
+16921 ; [.3574.0020.0002] # BAMUM LETTER PHASE-D KWAET
+16922 ; [.3575.0020.0002] # BAMUM LETTER PHASE-D NYET
+16923 ; [.3576.0020.0002] # BAMUM LETTER PHASE-D TEUAEN
+16924 ; [.3577.0020.0002] # BAMUM LETTER PHASE-D SOT
+16925 ; [.3578.0020.0002] # BAMUM LETTER PHASE-D YUWOQ
+16926 ; [.3579.0020.0002] # BAMUM LETTER PHASE-D KEUM
+16927 ; [.357A.0020.0002] # BAMUM LETTER PHASE-D RAEM
+16928 ; [.357B.0020.0002] # BAMUM LETTER PHASE-D TEEEE
+16929 ; [.357C.0020.0002] # BAMUM LETTER PHASE-D NGKEUAEQ
+1692A ; [.357D.0020.0002] # BAMUM LETTER PHASE-D MFEUAE
+1692B ; [.357E.0020.0002] # BAMUM LETTER PHASE-D NSIEET
+1692C ; [.357F.0020.0002] # BAMUM LETTER PHASE-D KEUP
+1692D ; [.3580.0020.0002] # BAMUM LETTER PHASE-D PIP
+1692E ; [.3581.0020.0002] # BAMUM LETTER PHASE-D PEUTAE
+1692F ; [.3582.0020.0002] # BAMUM LETTER PHASE-D NYUE
+16930 ; [.3583.0020.0002] # BAMUM LETTER PHASE-D LET
+16931 ; [.3584.0020.0002] # BAMUM LETTER PHASE-D NGGAAM
+16932 ; [.3585.0020.0002] # BAMUM LETTER PHASE-D MFIEE
+16933 ; [.3586.0020.0002] # BAMUM LETTER PHASE-D NGGWAEN
+16934 ; [.3587.0020.0002] # BAMUM LETTER PHASE-D YUOM
+16935 ; [.3588.0020.0002] # BAMUM LETTER PHASE-D PAP
+16936 ; [.3589.0020.0002] # BAMUM LETTER PHASE-D YUOP
+16937 ; [.358A.0020.0002] # BAMUM LETTER PHASE-D NDAM
+16938 ; [.358B.0020.0002] # BAMUM LETTER PHASE-D NTEUM
+16939 ; [.358C.0020.0002] # BAMUM LETTER PHASE-D SUAE
+1693A ; [.358D.0020.0002] # BAMUM LETTER PHASE-D KUN
+1693B ; [.358E.0020.0002] # BAMUM LETTER PHASE-D NGGEUX
+1693C ; [.358F.0020.0002] # BAMUM LETTER PHASE-D NGKIEE
+1693D ; [.3590.0020.0002] # BAMUM LETTER PHASE-D TUOT
+1693E ; [.3591.0020.0002] # BAMUM LETTER PHASE-D MEUN
+1693F ; [.3592.0020.0002] # BAMUM LETTER PHASE-D KUQ
+16940 ; [.3593.0020.0002] # BAMUM LETTER PHASE-D NSUM
+16941 ; [.3594.0020.0002] # BAMUM LETTER PHASE-D TEUN
+16942 ; [.3595.0020.0002] # BAMUM LETTER PHASE-D MAENJET
+16943 ; [.3596.0020.0002] # BAMUM LETTER PHASE-D NGGAP
+16944 ; [.3597.0020.0002] # BAMUM LETTER PHASE-D LEUM
+16945 ; [.3598.0020.0002] # BAMUM LETTER PHASE-D NGGUOM
+16946 ; [.3599.0020.0002] # BAMUM LETTER PHASE-D NSHUT
+16947 ; [.359A.0020.0002] # BAMUM LETTER PHASE-D NJUEQ
+16948 ; [.359B.0020.0002] # BAMUM LETTER PHASE-D GHEUAE
+16949 ; [.359C.0020.0002] # BAMUM LETTER PHASE-D KU
+1694A ; [.359D.0020.0002] # BAMUM LETTER PHASE-D REN OLD
+1694B ; [.359E.0020.0002] # BAMUM LETTER PHASE-D TAE
+1694C ; [.359F.0020.0002] # BAMUM LETTER PHASE-D TOQ
+1694D ; [.35A0.0020.0002] # BAMUM LETTER PHASE-D NYI
+1694E ; [.35A1.0020.0002] # BAMUM LETTER PHASE-D RII
+1694F ; [.35A2.0020.0002] # BAMUM LETTER PHASE-D LEEEE
+16950 ; [.35A3.0020.0002] # BAMUM LETTER PHASE-D MEEEE
+16951 ; [.35A4.0020.0002] # BAMUM LETTER PHASE-D M
+16952 ; [.35A5.0020.0002] # BAMUM LETTER PHASE-D SUU
+16953 ; [.35A6.0020.0002] # BAMUM LETTER PHASE-D MU
+16954 ; [.35A7.0020.0002] # BAMUM LETTER PHASE-D SHII
+16955 ; [.35A8.0020.0002] # BAMUM LETTER PHASE-D SHEUX
+16956 ; [.35A9.0020.0002] # BAMUM LETTER PHASE-D KYEE
+16957 ; [.35AA.0020.0002] # BAMUM LETTER PHASE-D NU
+16958 ; [.35AB.0020.0002] # BAMUM LETTER PHASE-D SHU
+16959 ; [.35AC.0020.0002] # BAMUM LETTER PHASE-D NTEE
+1695A ; [.35AD.0020.0002] # BAMUM LETTER PHASE-D PEE
+1695B ; [.35AE.0020.0002] # BAMUM LETTER PHASE-D NI
+1695C ; [.35AF.0020.0002] # BAMUM LETTER PHASE-D SHOQ
+1695D ; [.35B0.0020.0002] # BAMUM LETTER PHASE-D PUQ
+1695E ; [.35B1.0020.0002] # BAMUM LETTER PHASE-D MVOP
+1695F ; [.35B2.0020.0002] # BAMUM LETTER PHASE-D LOQ
+16960 ; [.35B3.0020.0002] # BAMUM LETTER PHASE-D REN MUCH
+16961 ; [.35B4.0020.0002] # BAMUM LETTER PHASE-D TI
+16962 ; [.35B5.0020.0002] # BAMUM LETTER PHASE-D NTUU
+16963 ; [.35B6.0020.0002] # BAMUM LETTER PHASE-D MBAA SEVEN
+16964 ; [.35B7.0020.0002] # BAMUM LETTER PHASE-D SAQ
+16965 ; [.35B8.0020.0002] # BAMUM LETTER PHASE-D FAA
+16966 ; [.35B9.0020.0002] # BAMUM LETTER PHASE-E NDAP
+16967 ; [.35BA.0020.0002] # BAMUM LETTER PHASE-E TOON
+16968 ; [.35BB.0020.0002] # BAMUM LETTER PHASE-E MBEUM
+16969 ; [.35BC.0020.0002] # BAMUM LETTER PHASE-E LAP
+1696A ; [.35BD.0020.0002] # BAMUM LETTER PHASE-E VOM
+1696B ; [.35BE.0020.0002] # BAMUM LETTER PHASE-E LOON
+1696C ; [.35BF.0020.0002] # BAMUM LETTER PHASE-E PAA
+1696D ; [.35C0.0020.0002] # BAMUM LETTER PHASE-E SOM
+1696E ; [.35C1.0020.0002] # BAMUM LETTER PHASE-E RAQ
+1696F ; [.35C2.0020.0002] # BAMUM LETTER PHASE-E NSHUOP
+16970 ; [.35C3.0020.0002] # BAMUM LETTER PHASE-E NDUN
+16971 ; [.35C4.0020.0002] # BAMUM LETTER PHASE-E PUAE
+16972 ; [.35C5.0020.0002] # BAMUM LETTER PHASE-E TAM
+16973 ; [.35C6.0020.0002] # BAMUM LETTER PHASE-E NGKA
+16974 ; [.35C7.0020.0002] # BAMUM LETTER PHASE-E KPEUX
+16975 ; [.35C8.0020.0002] # BAMUM LETTER PHASE-E WUO
+16976 ; [.35C9.0020.0002] # BAMUM LETTER PHASE-E SEE
+16977 ; [.35CA.0020.0002] # BAMUM LETTER PHASE-E NGGEUAET
+16978 ; [.35CB.0020.0002] # BAMUM LETTER PHASE-E PAAM
+16979 ; [.35CC.0020.0002] # BAMUM LETTER PHASE-E TOO
+1697A ; [.35CD.0020.0002] # BAMUM LETTER PHASE-E KUOP
+1697B ; [.35CE.0020.0002] # BAMUM LETTER PHASE-E LOM
+1697C ; [.35CF.0020.0002] # BAMUM LETTER PHASE-E NSHIEE
+1697D ; [.35D0.0020.0002] # BAMUM LETTER PHASE-E NGOP
+1697E ; [.35D1.0020.0002] # BAMUM LETTER PHASE-E MAEM
+1697F ; [.35D2.0020.0002] # BAMUM LETTER PHASE-E NGKEUX
+16980 ; [.35D3.0020.0002] # BAMUM LETTER PHASE-E NGOQ
+16981 ; [.35D4.0020.0002] # BAMUM LETTER PHASE-E NSHUE
+16982 ; [.35D5.0020.0002] # BAMUM LETTER PHASE-E RIMGBA
+16983 ; [.35D6.0020.0002] # BAMUM LETTER PHASE-E NJEUX
+16984 ; [.35D7.0020.0002] # BAMUM LETTER PHASE-E PEEM
+16985 ; [.35D8.0020.0002] # BAMUM LETTER PHASE-E SAA
+16986 ; [.35D9.0020.0002] # BAMUM LETTER PHASE-E NGGURAE
+16987 ; [.35DA.0020.0002] # BAMUM LETTER PHASE-E MGBA
+16988 ; [.35DB.0020.0002] # BAMUM LETTER PHASE-E GHEUX
+16989 ; [.35DC.0020.0002] # BAMUM LETTER PHASE-E NGKEUAEM
+1698A ; [.35DD.0020.0002] # BAMUM LETTER PHASE-E NJAEMLI
+1698B ; [.35DE.0020.0002] # BAMUM LETTER PHASE-E MAP
+1698C ; [.35DF.0020.0002] # BAMUM LETTER PHASE-E LOOT
+1698D ; [.35E0.0020.0002] # BAMUM LETTER PHASE-E NGGEEEE
+1698E ; [.35E1.0020.0002] # BAMUM LETTER PHASE-E NDIQ
+1698F ; [.35E2.0020.0002] # BAMUM LETTER PHASE-E TAEN NTEUM
+16990 ; [.35E3.0020.0002] # BAMUM LETTER PHASE-E SET
+16991 ; [.35E4.0020.0002] # BAMUM LETTER PHASE-E PUM
+16992 ; [.35E5.0020.0002] # BAMUM LETTER PHASE-E NDAA SOFTNESS
+16993 ; [.35E6.0020.0002] # BAMUM LETTER PHASE-E NGGUAESHAE NYAM
+16994 ; [.35E7.0020.0002] # BAMUM LETTER PHASE-E YIEE
+16995 ; [.35E8.0020.0002] # BAMUM LETTER PHASE-E GHEUN
+16996 ; [.35E9.0020.0002] # BAMUM LETTER PHASE-E TUAE
+16997 ; [.35EA.0020.0002] # BAMUM LETTER PHASE-E YEUAE
+16998 ; [.35EB.0020.0002] # BAMUM LETTER PHASE-E PO
+16999 ; [.35EC.0020.0002] # BAMUM LETTER PHASE-E TUMAE
+1699A ; [.35ED.0020.0002] # BAMUM LETTER PHASE-E KEUAE
+1699B ; [.35EE.0020.0002] # BAMUM LETTER PHASE-E SUAEN
+1699C ; [.35EF.0020.0002] # BAMUM LETTER PHASE-E TEUAEQ
+1699D ; [.35F0.0020.0002] # BAMUM LETTER PHASE-E VEUAE
+1699E ; [.35F1.0020.0002] # BAMUM LETTER PHASE-E WEUX
+1699F ; [.35F2.0020.0002] # BAMUM LETTER PHASE-E LAAM
+169A0 ; [.35F3.0020.0002] # BAMUM LETTER PHASE-E PU
+169A1 ; [.35F4.0020.0002] # BAMUM LETTER PHASE-E TAAQ
+169A2 ; [.35F5.0020.0002] # BAMUM LETTER PHASE-E GHAAMAE
+169A3 ; [.35F6.0020.0002] # BAMUM LETTER PHASE-E NGEUREUT
+169A4 ; [.35F7.0020.0002] # BAMUM LETTER PHASE-E SHEUAEQ
+169A5 ; [.35F8.0020.0002] # BAMUM LETTER PHASE-E MGBEN
+169A6 ; [.35F9.0020.0002] # BAMUM LETTER PHASE-E MBEE
+169A7 ; [.35FA.0020.0002] # BAMUM LETTER PHASE-E NZAQ
+169A8 ; [.35FB.0020.0002] # BAMUM LETTER PHASE-E NKOM
+169A9 ; [.35FC.0020.0002] # BAMUM LETTER PHASE-E GBET
+169AA ; [.35FD.0020.0002] # BAMUM LETTER PHASE-E TUM
+169AB ; [.35FE.0020.0002] # BAMUM LETTER PHASE-E KUET
+169AC ; [.35FF.0020.0002] # BAMUM LETTER PHASE-E YAP
+169AD ; [.3600.0020.0002] # BAMUM LETTER PHASE-E NYI CLEAVER
+169AE ; [.3601.0020.0002] # BAMUM LETTER PHASE-E YIT
+169AF ; [.3602.0020.0002] # BAMUM LETTER PHASE-E MFEUQ
+169B0 ; [.3603.0020.0002] # BAMUM LETTER PHASE-E NDIAQ
+169B1 ; [.3604.0020.0002] # BAMUM LETTER PHASE-E PIEEQ
+169B2 ; [.3605.0020.0002] # BAMUM LETTER PHASE-E YUEQ
+169B3 ; [.3606.0020.0002] # BAMUM LETTER PHASE-E LEUAEM
+169B4 ; [.3607.0020.0002] # BAMUM LETTER PHASE-E FUE
+169B5 ; [.3608.0020.0002] # BAMUM LETTER PHASE-E GBEUX
+169B6 ; [.3609.0020.0002] # BAMUM LETTER PHASE-E NGKUP
+169B7 ; [.360A.0020.0002] # BAMUM LETTER PHASE-E KET
+169B8 ; [.360B.0020.0002] # BAMUM LETTER PHASE-E MAE
+169B9 ; [.360C.0020.0002] # BAMUM LETTER PHASE-E NGKAAMI
+169BA ; [.360D.0020.0002] # BAMUM LETTER PHASE-E GHET
+169BB ; [.360E.0020.0002] # BAMUM LETTER PHASE-E FA
+169BC ; [.360F.0020.0002] # BAMUM LETTER PHASE-E NTUM
+169BD ; [.3610.0020.0002] # BAMUM LETTER PHASE-E PEUT
+169BE ; [.3611.0020.0002] # BAMUM LETTER PHASE-E YEUM
+169BF ; [.3612.0020.0002] # BAMUM LETTER PHASE-E NGGEUAE
+169C0 ; [.3613.0020.0002] # BAMUM LETTER PHASE-E NYI BETWEEN
+169C1 ; [.3614.0020.0002] # BAMUM LETTER PHASE-E NZUQ
+169C2 ; [.3615.0020.0002] # BAMUM LETTER PHASE-E POON
+169C3 ; [.3616.0020.0002] # BAMUM LETTER PHASE-E MIEE
+169C4 ; [.3617.0020.0002] # BAMUM LETTER PHASE-E FUET
+169C5 ; [.3618.0020.0002] # BAMUM LETTER PHASE-E NAE
+169C6 ; [.3619.0020.0002] # BAMUM LETTER PHASE-E MUAE
+169C7 ; [.361A.0020.0002] # BAMUM LETTER PHASE-E GHEUAE
+169C8 ; [.361B.0020.0002] # BAMUM LETTER PHASE-E FU I
+169C9 ; [.361C.0020.0002] # BAMUM LETTER PHASE-E MVI
+169CA ; [.361D.0020.0002] # BAMUM LETTER PHASE-E PUAQ
+169CB ; [.361E.0020.0002] # BAMUM LETTER PHASE-E NGKUM
+169CC ; [.361F.0020.0002] # BAMUM LETTER PHASE-E KUT
+169CD ; [.3620.0020.0002] # BAMUM LETTER PHASE-E PIET
+169CE ; [.3621.0020.0002] # BAMUM LETTER PHASE-E NTAP
+169CF ; [.3622.0020.0002] # BAMUM LETTER PHASE-E YEUAET
+169D0 ; [.3623.0020.0002] # BAMUM LETTER PHASE-E NGGUP
+169D1 ; [.3624.0020.0002] # BAMUM LETTER PHASE-E PA PEOPLE
+169D2 ; [.3625.0020.0002] # BAMUM LETTER PHASE-E FU CALL
+169D3 ; [.3626.0020.0002] # BAMUM LETTER PHASE-E FOM
+169D4 ; [.3627.0020.0002] # BAMUM LETTER PHASE-E NJEE
+169D5 ; [.3628.0020.0002] # BAMUM LETTER PHASE-E A
+169D6 ; [.3629.0020.0002] # BAMUM LETTER PHASE-E TOQ
+169D7 ; [.362A.0020.0002] # BAMUM LETTER PHASE-E O
+169D8 ; [.362B.0020.0002] # BAMUM LETTER PHASE-E I
+169D9 ; [.362C.0020.0002] # BAMUM LETTER PHASE-E LAQ
+169DA ; [.362D.0020.0002] # BAMUM LETTER PHASE-E PA PLURAL
+169DB ; [.362E.0020.0002] # BAMUM LETTER PHASE-E TAA
+169DC ; [.362F.0020.0002] # BAMUM LETTER PHASE-E TAQ
+169DD ; [.3630.0020.0002] # BAMUM LETTER PHASE-E NDAA MY HOUSE
+169DE ; [.3631.0020.0002] # BAMUM LETTER PHASE-E SHIQ
+169DF ; [.3632.0020.0002] # BAMUM LETTER PHASE-E YEUX
+169E0 ; [.3633.0020.0002] # BAMUM LETTER PHASE-E NGUAE
+169E1 ; [.3634.0020.0002] # BAMUM LETTER PHASE-E YUAEN
+169E2 ; [.3635.0020.0002] # BAMUM LETTER PHASE-E YOQ SWIMMING
+169E3 ; [.3636.0020.0002] # BAMUM LETTER PHASE-E YOQ COVER
+169E4 ; [.3637.0020.0002] # BAMUM LETTER PHASE-E YUQ
+169E5 ; [.3638.0020.0002] # BAMUM LETTER PHASE-E YUN
+169E6 ; [.3639.0020.0002] # BAMUM LETTER PHASE-E KEUX
+169E7 ; [.363A.0020.0002] # BAMUM LETTER PHASE-E PEUX
+169E8 ; [.363B.0020.0002] # BAMUM LETTER PHASE-E NJEE EPOCH
+169E9 ; [.363C.0020.0002] # BAMUM LETTER PHASE-E PUE
+169EA ; [.363D.0020.0002] # BAMUM LETTER PHASE-E WUE
+169EB ; [.363E.0020.0002] # BAMUM LETTER PHASE-E FEE
+169EC ; [.363F.0020.0002] # BAMUM LETTER PHASE-E VEE
+169ED ; [.3640.0020.0002] # BAMUM LETTER PHASE-E LU
+169EE ; [.3641.0020.0002] # BAMUM LETTER PHASE-E MI
+169EF ; [.3642.0020.0002] # BAMUM LETTER PHASE-E REUX
+169F0 ; [.3643.0020.0002] # BAMUM LETTER PHASE-E RAE
+169F1 ; [.3644.0020.0002] # BAMUM LETTER PHASE-E NGUAET
+169F2 ; [.3645.0020.0002] # BAMUM LETTER PHASE-E NGA
+169F3 ; [.3646.0020.0002] # BAMUM LETTER PHASE-E SHO
+169F4 ; [.3647.0020.0002] # BAMUM LETTER PHASE-E SHOQ
+169F5 ; [.3648.0020.0002] # BAMUM LETTER PHASE-E FU REMEDY
+169F6 ; [.3649.0020.0002] # BAMUM LETTER PHASE-E NA
+169F7 ; [.364A.0020.0002] # BAMUM LETTER PHASE-E PI
+169F8 ; [.364B.0020.0002] # BAMUM LETTER PHASE-E LOQ
+169F9 ; [.364C.0020.0002] # BAMUM LETTER PHASE-E KO
+169FA ; [.364D.0020.0002] # BAMUM LETTER PHASE-E MEN
+169FB ; [.364E.0020.0002] # BAMUM LETTER PHASE-E MA
+169FC ; [.364F.0020.0002] # BAMUM LETTER PHASE-E MAQ
+169FD ; [.3650.0020.0002] # BAMUM LETTER PHASE-E TEU
+169FE ; [.3651.0020.0002] # BAMUM LETTER PHASE-E KI
+169FF ; [.3652.0020.0002] # BAMUM LETTER PHASE-E MON
+16A00 ; [.3653.0020.0002] # BAMUM LETTER PHASE-E TEN
+16A01 ; [.3654.0020.0002] # BAMUM LETTER PHASE-E FAQ
+16A02 ; [.3655.0020.0002] # BAMUM LETTER PHASE-E GHOM
+16A03 ; [.3656.0020.0002] # BAMUM LETTER PHASE-F KA
+16A04 ; [.3657.0020.0002] # BAMUM LETTER PHASE-F U
+16A05 ; [.3658.0020.0002] # BAMUM LETTER PHASE-F KU
+16A06 ; [.3659.0020.0002] # BAMUM LETTER PHASE-F EE
+16A07 ; [.365A.0020.0002] # BAMUM LETTER PHASE-F REE
+16A08 ; [.365B.0020.0002] # BAMUM LETTER PHASE-F TAE
+16A09 ; [.365C.0020.0002] # BAMUM LETTER PHASE-F NYI
+16A0A ; [.365D.0020.0002] # BAMUM LETTER PHASE-F LA
+16A0B ; [.365E.0020.0002] # BAMUM LETTER PHASE-F RII
+16A0C ; [.365F.0020.0002] # BAMUM LETTER PHASE-F RIEE
+16A0D ; [.3660.0020.0002] # BAMUM LETTER PHASE-F MEEEE
+16A0E ; [.3661.0020.0002] # BAMUM LETTER PHASE-F TAA
+16A0F ; [.3662.0020.0002] # BAMUM LETTER PHASE-F NDAA
+16A10 ; [.3663.0020.0002] # BAMUM LETTER PHASE-F NJAEM
+16A11 ; [.3664.0020.0002] # BAMUM LETTER PHASE-F M
+16A12 ; [.3665.0020.0002] # BAMUM LETTER PHASE-F SUU
+16A13 ; [.3666.0020.0002] # BAMUM LETTER PHASE-F SHII
+16A14 ; [.3667.0020.0002] # BAMUM LETTER PHASE-F SI
+16A15 ; [.3668.0020.0002] # BAMUM LETTER PHASE-F SEUX
+16A16 ; [.3669.0020.0002] # BAMUM LETTER PHASE-F KYEE
+16A17 ; [.366A.0020.0002] # BAMUM LETTER PHASE-F KET
+16A18 ; [.366B.0020.0002] # BAMUM LETTER PHASE-F NUAE
+16A19 ; [.366C.0020.0002] # BAMUM LETTER PHASE-F NU
+16A1A ; [.366D.0020.0002] # BAMUM LETTER PHASE-F NJUAE
+16A1B ; [.366E.0020.0002] # BAMUM LETTER PHASE-F YOQ
+16A1C ; [.366F.0020.0002] # BAMUM LETTER PHASE-F SHU
+16A1D ; [.3670.0020.0002] # BAMUM LETTER PHASE-F YA
+16A1E ; [.3671.0020.0002] # BAMUM LETTER PHASE-F NSHA
+16A1F ; [.3672.0020.0002] # BAMUM LETTER PHASE-F PEUX
+16A20 ; [.3673.0020.0002] # BAMUM LETTER PHASE-F NTEE
+16A21 ; [.3674.0020.0002] # BAMUM LETTER PHASE-F WUE
+16A22 ; [.3675.0020.0002] # BAMUM LETTER PHASE-F PEE
+16A23 ; [.3676.0020.0002] # BAMUM LETTER PHASE-F RU
+16A24 ; [.3677.0020.0002] # BAMUM LETTER PHASE-F NI
+16A25 ; [.3678.0020.0002] # BAMUM LETTER PHASE-F REUX
+16A26 ; [.3679.0020.0002] # BAMUM LETTER PHASE-F KEN
+16A27 ; [.367A.0020.0002] # BAMUM LETTER PHASE-F NGKWAEN
+16A28 ; [.367B.0020.0002] # BAMUM LETTER PHASE-F NGGA
+16A29 ; [.367C.0020.0002] # BAMUM LETTER PHASE-F SHO
+16A2A ; [.367D.0020.0002] # BAMUM LETTER PHASE-F PUAE
+16A2B ; [.367E.0020.0002] # BAMUM LETTER PHASE-F FOM
+16A2C ; [.367F.0020.0002] # BAMUM LETTER PHASE-F WA
+16A2D ; [.3680.0020.0002] # BAMUM LETTER PHASE-F LI
+16A2E ; [.3681.0020.0002] # BAMUM LETTER PHASE-F LOQ
+16A2F ; [.3682.0020.0002] # BAMUM LETTER PHASE-F KO
+16A30 ; [.3683.0020.0002] # BAMUM LETTER PHASE-F MBEN
+16A31 ; [.3684.0020.0002] # BAMUM LETTER PHASE-F REN
+16A32 ; [.3685.0020.0002] # BAMUM LETTER PHASE-F MA
+16A33 ; [.3686.0020.0002] # BAMUM LETTER PHASE-F MO
+16A34 ; [.3687.0020.0002] # BAMUM LETTER PHASE-F MBAA
+16A35 ; [.3688.0020.0002] # BAMUM LETTER PHASE-F TET
+16A36 ; [.3689.0020.0002] # BAMUM LETTER PHASE-F KPA
+16A37 ; [.368A.0020.0002] # BAMUM LETTER PHASE-F SAMBA
+16A38 ; [.368B.0020.0002] # BAMUM LETTER PHASE-F VUEQ
+16AD0 ; [.368C.0020.0002] # BASSA VAH LETTER ENNI
+16AD1 ; [.368D.0020.0002] # BASSA VAH LETTER KA
+16AD2 ; [.368E.0020.0002] # BASSA VAH LETTER SE
+16AD3 ; [.368F.0020.0002] # BASSA VAH LETTER FA
+16AD4 ; [.3690.0020.0002] # BASSA VAH LETTER MBE
+16AD5 ; [.3691.0020.0002] # BASSA VAH LETTER YIE
+16AD6 ; [.3692.0020.0002] # BASSA VAH LETTER GAH
+16AD7 ; [.3693.0020.0002] # BASSA VAH LETTER DHII
+16AD8 ; [.3694.0020.0002] # BASSA VAH LETTER KPAH
+16AD9 ; [.3695.0020.0002] # BASSA VAH LETTER JO
+16ADA ; [.3696.0020.0002] # BASSA VAH LETTER HWAH
+16ADB ; [.3697.0020.0002] # BASSA VAH LETTER WA
+16ADC ; [.3698.0020.0002] # BASSA VAH LETTER ZO
+16ADD ; [.3699.0020.0002] # BASSA VAH LETTER GBU
+16ADE ; [.369A.0020.0002] # BASSA VAH LETTER DO
+16ADF ; [.369B.0020.0002] # BASSA VAH LETTER CE
+16AE0 ; [.369C.0020.0002] # BASSA VAH LETTER UWU
+16AE1 ; [.369D.0020.0002] # BASSA VAH LETTER TO
+16AE2 ; [.369E.0020.0002] # BASSA VAH LETTER BA
+16AE3 ; [.369F.0020.0002] # BASSA VAH LETTER VU
+16AE4 ; [.36A0.0020.0002] # BASSA VAH LETTER YEIN
+16AE5 ; [.36A1.0020.0002] # BASSA VAH LETTER PA
+16AE6 ; [.36A2.0020.0002] # BASSA VAH LETTER WADDA
+16AE7 ; [.36A3.0020.0002] # BASSA VAH LETTER A
+16AE8 ; [.36A4.0020.0002] # BASSA VAH LETTER O
+16AE9 ; [.36A5.0020.0002] # BASSA VAH LETTER OO
+16AEA ; [.36A6.0020.0002] # BASSA VAH LETTER U
+16AEB ; [.36A7.0020.0002] # BASSA VAH LETTER EE
+16AEC ; [.36A8.0020.0002] # BASSA VAH LETTER E
+16AED ; [.36A9.0020.0002] # BASSA VAH LETTER I
+1E800 ; [.36AA.0020.0002] # MENDE KIKAKUI SYLLABLE M001 KI
+1E801 ; [.36AB.0020.0002] # MENDE KIKAKUI SYLLABLE M002 KA
+1E802 ; [.36AC.0020.0002] # MENDE KIKAKUI SYLLABLE M003 KU
+1E803 ; [.36AD.0020.0002] # MENDE KIKAKUI SYLLABLE M065 KEE
+1E804 ; [.36AE.0020.0002] # MENDE KIKAKUI SYLLABLE M095 KE
+1E805 ; [.36AF.0020.0002] # MENDE KIKAKUI SYLLABLE M076 KOO
+1E806 ; [.36B0.0020.0002] # MENDE KIKAKUI SYLLABLE M048 KO
+1E807 ; [.36B1.0020.0002] # MENDE KIKAKUI SYLLABLE M179 KUA
+1E808 ; [.36B2.0020.0002] # MENDE KIKAKUI SYLLABLE M004 WI
+1E809 ; [.36B3.0020.0002] # MENDE KIKAKUI SYLLABLE M005 WA
+1E80A ; [.36B4.0020.0002] # MENDE KIKAKUI SYLLABLE M006 WU
+1E80B ; [.36B5.0020.0002] # MENDE KIKAKUI SYLLABLE M126 WEE
+1E80C ; [.36B6.0020.0002] # MENDE KIKAKUI SYLLABLE M118 WE
+1E80D ; [.36B7.0020.0002] # MENDE KIKAKUI SYLLABLE M114 WOO
+1E80E ; [.36B8.0020.0002] # MENDE KIKAKUI SYLLABLE M045 WO
+1E80F ; [.36B9.0020.0002] # MENDE KIKAKUI SYLLABLE M194 WUI
+1E810 ; [.36BA.0020.0002] # MENDE KIKAKUI SYLLABLE M143 WEI
+1E811 ; [.36BB.0020.0002] # MENDE KIKAKUI SYLLABLE M061 WVI
+1E812 ; [.36BC.0020.0002] # MENDE KIKAKUI SYLLABLE M049 WVA
+1E813 ; [.36BD.0020.0002] # MENDE KIKAKUI SYLLABLE M139 WVE
+1E814 ; [.36BE.0020.0002] # MENDE KIKAKUI SYLLABLE M007 MIN
+1E815 ; [.36BF.0020.0002] # MENDE KIKAKUI SYLLABLE M008 MAN
+1E816 ; [.36C0.0020.0002] # MENDE KIKAKUI SYLLABLE M009 MUN
+1E817 ; [.36C1.0020.0002] # MENDE KIKAKUI SYLLABLE M059 MEN
+1E818 ; [.36C2.0020.0002] # MENDE KIKAKUI SYLLABLE M094 MON
+1E819 ; [.36C3.0020.0002] # MENDE KIKAKUI SYLLABLE M154 MUAN
+1E81A ; [.36C4.0020.0002] # MENDE KIKAKUI SYLLABLE M189 MUEN
+1E81B ; [.36C5.0020.0002] # MENDE KIKAKUI SYLLABLE M010 BI
+1E81C ; [.36C6.0020.0002] # MENDE KIKAKUI SYLLABLE M011 BA
+1E81D ; [.36C7.0020.0002] # MENDE KIKAKUI SYLLABLE M012 BU
+1E81E ; [.36C8.0020.0002] # MENDE KIKAKUI SYLLABLE M150 BEE
+1E81F ; [.36C9.0020.0002] # MENDE KIKAKUI SYLLABLE M097 BE
+1E820 ; [.36CA.0020.0002] # MENDE KIKAKUI SYLLABLE M103 BOO
+1E821 ; [.36CB.0020.0002] # MENDE KIKAKUI SYLLABLE M138 BO
+1E822 ; [.36CC.0020.0002] # MENDE KIKAKUI SYLLABLE M013 I
+1E823 ; [.36CD.0020.0002] # MENDE KIKAKUI SYLLABLE M014 A
+1E824 ; [.36CE.0020.0002] # MENDE KIKAKUI SYLLABLE M015 U
+1E825 ; [.36CF.0020.0002] # MENDE KIKAKUI SYLLABLE M163 EE
+1E826 ; [.36D0.0020.0002] # MENDE KIKAKUI SYLLABLE M100 E
+1E827 ; [.36D1.0020.0002] # MENDE KIKAKUI SYLLABLE M165 OO
+1E828 ; [.36D2.0020.0002] # MENDE KIKAKUI SYLLABLE M147 O
+1E829 ; [.36D3.0020.0002] # MENDE KIKAKUI SYLLABLE M137 EI
+1E82A ; [.36D4.0020.0002] # MENDE KIKAKUI SYLLABLE M131 IN
+1E82B ; [.36D5.0020.0002] # MENDE KIKAKUI SYLLABLE M135 IN
+1E82C ; [.36D6.0020.0002] # MENDE KIKAKUI SYLLABLE M195 AN
+1E82D ; [.36D7.0020.0002] # MENDE KIKAKUI SYLLABLE M178 EN
+1E82E ; [.36D8.0020.0002] # MENDE KIKAKUI SYLLABLE M019 SI
+1E82F ; [.36D9.0020.0002] # MENDE KIKAKUI SYLLABLE M020 SA
+1E830 ; [.36DA.0020.0002] # MENDE KIKAKUI SYLLABLE M021 SU
+1E831 ; [.36DB.0020.0002] # MENDE KIKAKUI SYLLABLE M162 SEE
+1E832 ; [.36DC.0020.0002] # MENDE KIKAKUI SYLLABLE M116 SE
+1E833 ; [.36DD.0020.0002] # MENDE KIKAKUI SYLLABLE M136 SOO
+1E834 ; [.36DE.0020.0002] # MENDE KIKAKUI SYLLABLE M079 SO
+1E835 ; [.36DF.0020.0002] # MENDE KIKAKUI SYLLABLE M196 SIA
+1E836 ; [.36E0.0020.0002] # MENDE KIKAKUI SYLLABLE M025 LI
+1E837 ; [.36E1.0020.0002] # MENDE KIKAKUI SYLLABLE M026 LA
+1E838 ; [.36E2.0020.0002] # MENDE KIKAKUI SYLLABLE M027 LU
+1E839 ; [.36E3.0020.0002] # MENDE KIKAKUI SYLLABLE M084 LEE
+1E83A ; [.36E4.0020.0002] # MENDE KIKAKUI SYLLABLE M073 LE
+1E83B ; [.36E5.0020.0002] # MENDE KIKAKUI SYLLABLE M054 LOO
+1E83C ; [.36E6.0020.0002] # MENDE KIKAKUI SYLLABLE M153 LO
+1E83D ; [.36E7.0020.0002] # MENDE KIKAKUI SYLLABLE M110 LONG LE
+1E83E ; [.36E8.0020.0002] # MENDE KIKAKUI SYLLABLE M016 DI
+1E83F ; [.36E9.0020.0002] # MENDE KIKAKUI SYLLABLE M017 DA
+1E840 ; [.36EA.0020.0002] # MENDE KIKAKUI SYLLABLE M018 DU
+1E841 ; [.36EB.0020.0002] # MENDE KIKAKUI SYLLABLE M089 DEE
+1E842 ; [.36EC.0020.0002] # MENDE KIKAKUI SYLLABLE M180 DOO
+1E843 ; [.36ED.0020.0002] # MENDE KIKAKUI SYLLABLE M181 DO
+1E844 ; [.36EE.0020.0002] # MENDE KIKAKUI SYLLABLE M022 TI
+1E845 ; [.36EF.0020.0002] # MENDE KIKAKUI SYLLABLE M023 TA
+1E846 ; [.36F0.0020.0002] # MENDE KIKAKUI SYLLABLE M024 TU
+1E847 ; [.36F1.0020.0002] # MENDE KIKAKUI SYLLABLE M091 TEE
+1E848 ; [.36F2.0020.0002] # MENDE KIKAKUI SYLLABLE M055 TE
+1E849 ; [.36F3.0020.0002] # MENDE KIKAKUI SYLLABLE M104 TOO
+1E84A ; [.36F4.0020.0002] # MENDE KIKAKUI SYLLABLE M069 TO
+1E84B ; [.36F5.0020.0002] # MENDE KIKAKUI SYLLABLE M028 JI
+1E84C ; [.36F6.0020.0002] # MENDE KIKAKUI SYLLABLE M029 JA
+1E84D ; [.36F7.0020.0002] # MENDE KIKAKUI SYLLABLE M030 JU
+1E84E ; [.36F8.0020.0002] # MENDE KIKAKUI SYLLABLE M157 JEE
+1E84F ; [.36F9.0020.0002] # MENDE KIKAKUI SYLLABLE M113 JE
+1E850 ; [.36FA.0020.0002] # MENDE KIKAKUI SYLLABLE M160 JOO
+1E851 ; [.36FB.0020.0002] # MENDE KIKAKUI SYLLABLE M063 JO
+1E852 ; [.36FC.0020.0002] # MENDE KIKAKUI SYLLABLE M175 LONG JO
+1E853 ; [.36FD.0020.0002] # MENDE KIKAKUI SYLLABLE M031 YI
+1E854 ; [.36FE.0020.0002] # MENDE KIKAKUI SYLLABLE M032 YA
+1E855 ; [.36FF.0020.0002] # MENDE KIKAKUI SYLLABLE M033 YU
+1E856 ; [.3700.0020.0002] # MENDE KIKAKUI SYLLABLE M109 YEE
+1E857 ; [.3701.0020.0002] # MENDE KIKAKUI SYLLABLE M080 YE
+1E858 ; [.3702.0020.0002] # MENDE KIKAKUI SYLLABLE M141 YOO
+1E859 ; [.3703.0020.0002] # MENDE KIKAKUI SYLLABLE M121 YO
+1E85A ; [.3704.0020.0002] # MENDE KIKAKUI SYLLABLE M034 FI
+1E85B ; [.3705.0020.0002] # MENDE KIKAKUI SYLLABLE M035 FA
+1E85C ; [.3706.0020.0002] # MENDE KIKAKUI SYLLABLE M036 FU
+1E85D ; [.3707.0020.0002] # MENDE KIKAKUI SYLLABLE M078 FEE
+1E85E ; [.3708.0020.0002] # MENDE KIKAKUI SYLLABLE M075 FE
+1E85F ; [.3709.0020.0002] # MENDE KIKAKUI SYLLABLE M133 FOO
+1E860 ; [.370A.0020.0002] # MENDE KIKAKUI SYLLABLE M088 FO
+1E861 ; [.370B.0020.0002] # MENDE KIKAKUI SYLLABLE M197 FUA
+1E862 ; [.370C.0020.0002] # MENDE KIKAKUI SYLLABLE M101 FAN
+1E863 ; [.370D.0020.0002] # MENDE KIKAKUI SYLLABLE M037 NIN
+1E864 ; [.370E.0020.0002] # MENDE KIKAKUI SYLLABLE M038 NAN
+1E865 ; [.370F.0020.0002] # MENDE KIKAKUI SYLLABLE M039 NUN
+1E866 ; [.3710.0020.0002] # MENDE KIKAKUI SYLLABLE M117 NEN
+1E867 ; [.3711.0020.0002] # MENDE KIKAKUI SYLLABLE M169 NON
+1E868 ; [.3712.0020.0002] # MENDE KIKAKUI SYLLABLE M176 HI
+1E869 ; [.3713.0020.0002] # MENDE KIKAKUI SYLLABLE M041 HA
+1E86A ; [.3714.0020.0002] # MENDE KIKAKUI SYLLABLE M186 HU
+1E86B ; [.3715.0020.0002] # MENDE KIKAKUI SYLLABLE M040 HEE
+1E86C ; [.3716.0020.0002] # MENDE KIKAKUI SYLLABLE M096 HE
+1E86D ; [.3717.0020.0002] # MENDE KIKAKUI SYLLABLE M042 HOO
+1E86E ; [.3718.0020.0002] # MENDE KIKAKUI SYLLABLE M140 HO
+1E86F ; [.3719.0020.0002] # MENDE KIKAKUI SYLLABLE M083 HEEI
+1E870 ; [.371A.0020.0002] # MENDE KIKAKUI SYLLABLE M128 HOOU
+1E871 ; [.371B.0020.0002] # MENDE KIKAKUI SYLLABLE M053 HIN
+1E872 ; [.371C.0020.0002] # MENDE KIKAKUI SYLLABLE M130 HAN
+1E873 ; [.371D.0020.0002] # MENDE KIKAKUI SYLLABLE M087 HUN
+1E874 ; [.371E.0020.0002] # MENDE KIKAKUI SYLLABLE M052 HEN
+1E875 ; [.371F.0020.0002] # MENDE KIKAKUI SYLLABLE M193 HON
+1E876 ; [.3720.0020.0002] # MENDE KIKAKUI SYLLABLE M046 HUAN
+1E877 ; [.3721.0020.0002] # MENDE KIKAKUI SYLLABLE M090 NGGI
+1E878 ; [.3722.0020.0002] # MENDE KIKAKUI SYLLABLE M043 NGGA
+1E879 ; [.3723.0020.0002] # MENDE KIKAKUI SYLLABLE M082 NGGU
+1E87A ; [.3724.0020.0002] # MENDE KIKAKUI SYLLABLE M115 NGGEE
+1E87B ; [.3725.0020.0002] # MENDE KIKAKUI SYLLABLE M146 NGGE
+1E87C ; [.3726.0020.0002] # MENDE KIKAKUI SYLLABLE M156 NGGOO
+1E87D ; [.3727.0020.0002] # MENDE KIKAKUI SYLLABLE M120 NGGO
+1E87E ; [.3728.0020.0002] # MENDE KIKAKUI SYLLABLE M159 NGGAA
+1E87F ; [.3729.0020.0002] # MENDE KIKAKUI SYLLABLE M127 NGGUA
+1E880 ; [.372A.0020.0002] # MENDE KIKAKUI SYLLABLE M086 LONG NGGE
+1E881 ; [.372B.0020.0002] # MENDE KIKAKUI SYLLABLE M106 LONG NGGOO
+1E882 ; [.372C.0020.0002] # MENDE KIKAKUI SYLLABLE M183 LONG NGGO
+1E883 ; [.372D.0020.0002] # MENDE KIKAKUI SYLLABLE M155 GI
+1E884 ; [.372E.0020.0002] # MENDE KIKAKUI SYLLABLE M111 GA
+1E885 ; [.372F.0020.0002] # MENDE KIKAKUI SYLLABLE M168 GU
+1E886 ; [.3730.0020.0002] # MENDE KIKAKUI SYLLABLE M190 GEE
+1E887 ; [.3731.0020.0002] # MENDE KIKAKUI SYLLABLE M166 GUEI
+1E888 ; [.3732.0020.0002] # MENDE KIKAKUI SYLLABLE M167 GUAN
+1E889 ; [.3733.0020.0002] # MENDE KIKAKUI SYLLABLE M184 NGEN
+1E88A ; [.3734.0020.0002] # MENDE KIKAKUI SYLLABLE M057 NGON
+1E88B ; [.3735.0020.0002] # MENDE KIKAKUI SYLLABLE M177 NGUAN
+1E88C ; [.3736.0020.0002] # MENDE KIKAKUI SYLLABLE M068 PI
+1E88D ; [.3737.0020.0002] # MENDE KIKAKUI SYLLABLE M099 PA
+1E88E ; [.3738.0020.0002] # MENDE KIKAKUI SYLLABLE M050 PU
+1E88F ; [.3739.0020.0002] # MENDE KIKAKUI SYLLABLE M081 PEE
+1E890 ; [.373A.0020.0002] # MENDE KIKAKUI SYLLABLE M051 PE
+1E891 ; [.373B.0020.0002] # MENDE KIKAKUI SYLLABLE M102 POO
+1E892 ; [.373C.0020.0002] # MENDE KIKAKUI SYLLABLE M066 PO
+1E893 ; [.373D.0020.0002] # MENDE KIKAKUI SYLLABLE M145 MBI
+1E894 ; [.373E.0020.0002] # MENDE KIKAKUI SYLLABLE M062 MBA
+1E895 ; [.373F.0020.0002] # MENDE KIKAKUI SYLLABLE M122 MBU
+1E896 ; [.3740.0020.0002] # MENDE KIKAKUI SYLLABLE M047 MBEE
+1E897 ; [.3741.0020.0002] # MENDE KIKAKUI SYLLABLE M188 MBEE
+1E898 ; [.3742.0020.0002] # MENDE KIKAKUI SYLLABLE M072 MBE
+1E899 ; [.3743.0020.0002] # MENDE KIKAKUI SYLLABLE M172 MBOO
+1E89A ; [.3744.0020.0002] # MENDE KIKAKUI SYLLABLE M174 MBO
+1E89B ; [.3745.0020.0002] # MENDE KIKAKUI SYLLABLE M187 MBUU
+1E89C ; [.3746.0020.0002] # MENDE KIKAKUI SYLLABLE M161 LONG MBE
+1E89D ; [.3747.0020.0002] # MENDE KIKAKUI SYLLABLE M105 LONG MBOO
+1E89E ; [.3748.0020.0002] # MENDE KIKAKUI SYLLABLE M142 LONG MBO
+1E89F ; [.3749.0020.0002] # MENDE KIKAKUI SYLLABLE M132 KPI
+1E8A0 ; [.374A.0020.0002] # MENDE KIKAKUI SYLLABLE M092 KPA
+1E8A1 ; [.374B.0020.0002] # MENDE KIKAKUI SYLLABLE M074 KPU
+1E8A2 ; [.374C.0020.0002] # MENDE KIKAKUI SYLLABLE M044 KPEE
+1E8A3 ; [.374D.0020.0002] # MENDE KIKAKUI SYLLABLE M108 KPE
+1E8A4 ; [.374E.0020.0002] # MENDE KIKAKUI SYLLABLE M112 KPOO
+1E8A5 ; [.374F.0020.0002] # MENDE KIKAKUI SYLLABLE M158 KPO
+1E8A6 ; [.3750.0020.0002] # MENDE KIKAKUI SYLLABLE M124 GBI
+1E8A7 ; [.3751.0020.0002] # MENDE KIKAKUI SYLLABLE M056 GBA
+1E8A8 ; [.3752.0020.0002] # MENDE KIKAKUI SYLLABLE M148 GBU
+1E8A9 ; [.3753.0020.0002] # MENDE KIKAKUI SYLLABLE M093 GBEE
+1E8AA ; [.3754.0020.0002] # MENDE KIKAKUI SYLLABLE M107 GBE
+1E8AB ; [.3755.0020.0002] # MENDE KIKAKUI SYLLABLE M071 GBOO
+1E8AC ; [.3756.0020.0002] # MENDE KIKAKUI SYLLABLE M070 GBO
+1E8AD ; [.3757.0020.0002] # MENDE KIKAKUI SYLLABLE M171 RA
+1E8AE ; [.3758.0020.0002] # MENDE KIKAKUI SYLLABLE M123 NDI
+1E8AF ; [.3759.0020.0002] # MENDE KIKAKUI SYLLABLE M129 NDA
+1E8B0 ; [.375A.0020.0002] # MENDE KIKAKUI SYLLABLE M125 NDU
+1E8B1 ; [.375B.0020.0002] # MENDE KIKAKUI SYLLABLE M191 NDEE
+1E8B2 ; [.375C.0020.0002] # MENDE KIKAKUI SYLLABLE M119 NDE
+1E8B3 ; [.375D.0020.0002] # MENDE KIKAKUI SYLLABLE M067 NDOO
+1E8B4 ; [.375E.0020.0002] # MENDE KIKAKUI SYLLABLE M064 NDO
+1E8B5 ; [.375F.0020.0002] # MENDE KIKAKUI SYLLABLE M152 NJA
+1E8B6 ; [.3760.0020.0002] # MENDE KIKAKUI SYLLABLE M192 NJU
+1E8B7 ; [.3761.0020.0002] # MENDE KIKAKUI SYLLABLE M149 NJEE
+1E8B8 ; [.3762.0020.0002] # MENDE KIKAKUI SYLLABLE M134 NJOO
+1E8B9 ; [.3763.0020.0002] # MENDE KIKAKUI SYLLABLE M182 VI
+1E8BA ; [.3764.0020.0002] # MENDE KIKAKUI SYLLABLE M185 VA
+1E8BB ; [.3765.0020.0002] # MENDE KIKAKUI SYLLABLE M151 VU
+1E8BC ; [.3766.0020.0002] # MENDE KIKAKUI SYLLABLE M173 VEE
+1E8BD ; [.3767.0020.0002] # MENDE KIKAKUI SYLLABLE M085 VE
+1E8BE ; [.3768.0020.0002] # MENDE KIKAKUI SYLLABLE M144 VOO
+1E8BF ; [.3769.0020.0002] # MENDE KIKAKUI SYLLABLE M077 VO
+1E8C0 ; [.376A.0020.0002] # MENDE KIKAKUI SYLLABLE M164 NYIN
+1E8C1 ; [.376B.0020.0002] # MENDE KIKAKUI SYLLABLE M058 NYAN
+1E8C2 ; [.376C.0020.0002] # MENDE KIKAKUI SYLLABLE M170 NYUN
+1E8C3 ; [.376D.0020.0002] # MENDE KIKAKUI SYLLABLE M098 NYEN
+1E8C4 ; [.376E.0020.0002] # MENDE KIKAKUI SYLLABLE M060 NYON
+1100  ; [.376F.0020.0002] # HANGUL CHOSEONG KIYEOK
+3131  ; [.376F.0020.0004] # HANGUL LETTER KIYEOK
+3200  ; [*030A.0020.0004][.376F.0020.0004][*030B.0020.0004] # PARENTHESIZED HANGUL KIYEOK
+3260  ; [.376F.0020.0006] # CIRCLED HANGUL KIYEOK
+FFA1  ; [.376F.0020.0012] # HALFWIDTH HANGUL LETTER KIYEOK
+320E  ; [*030A.0020.0004][.376F.0020.0004][.37ED.0020.0004][*030B.0020.0004] # PARENTHESIZED HANGUL KIYEOK A
+326E  ; [.376F.0020.0006][.37ED.0020.0006] # CIRCLED HANGUL KIYEOK A
+1101  ; [.3770.0020.0002] # HANGUL CHOSEONG SSANGKIYEOK
+3132  ; [.3770.0020.0004] # HANGUL LETTER SSANGKIYEOK
+FFA2  ; [.3770.0020.0012] # HALFWIDTH HANGUL LETTER SSANGKIYEOK
+1102  ; [.3771.0020.0002] # HANGUL CHOSEONG NIEUN
+3134  ; [.3771.0020.0004] # HANGUL LETTER NIEUN
+3201  ; [*030A.0020.0004][.3771.0020.0004][*030B.0020.0004] # PARENTHESIZED HANGUL NIEUN
+3261  ; [.3771.0020.0006] # CIRCLED HANGUL NIEUN
+FFA4  ; [.3771.0020.0012] # HALFWIDTH HANGUL LETTER NIEUN
+320F  ; [*030A.0020.0004][.3771.0020.0004][.37ED.0020.0004][*030B.0020.0004] # PARENTHESIZED HANGUL NIEUN A
+326F  ; [.3771.0020.0006][.37ED.0020.0006] # CIRCLED HANGUL NIEUN A
+1103  ; [.3772.0020.0002] # HANGUL CHOSEONG TIKEUT
+3137  ; [.3772.0020.0004] # HANGUL LETTER TIKEUT
+3202  ; [*030A.0020.0004][.3772.0020.0004][*030B.0020.0004] # PARENTHESIZED HANGUL TIKEUT
+3262  ; [.3772.0020.0006] # CIRCLED HANGUL TIKEUT
+FFA7  ; [.3772.0020.0012] # HALFWIDTH HANGUL LETTER TIKEUT
+3210  ; [*030A.0020.0004][.3772.0020.0004][.37ED.0020.0004][*030B.0020.0004] # PARENTHESIZED HANGUL TIKEUT A
+3270  ; [.3772.0020.0006][.37ED.0020.0006] # CIRCLED HANGUL TIKEUT A
+1104  ; [.3773.0020.0002] # HANGUL CHOSEONG SSANGTIKEUT
+3138  ; [.3773.0020.0004] # HANGUL LETTER SSANGTIKEUT
+FFA8  ; [.3773.0020.0012] # HALFWIDTH HANGUL LETTER SSANGTIKEUT
+1105  ; [.3774.0020.0002] # HANGUL CHOSEONG RIEUL
+3139  ; [.3774.0020.0004] # HANGUL LETTER RIEUL
+3203  ; [*030A.0020.0004][.3774.0020.0004][*030B.0020.0004] # PARENTHESIZED HANGUL RIEUL
+3263  ; [.3774.0020.0006] # CIRCLED HANGUL RIEUL
+FFA9  ; [.3774.0020.0012] # HALFWIDTH HANGUL LETTER RIEUL
+3211  ; [*030A.0020.0004][.3774.0020.0004][.37ED.0020.0004][*030B.0020.0004] # PARENTHESIZED HANGUL RIEUL A
+3271  ; [.3774.0020.0006][.37ED.0020.0006] # CIRCLED HANGUL RIEUL A
+1106  ; [.3775.0020.0002] # HANGUL CHOSEONG MIEUM
+3141  ; [.3775.0020.0004] # HANGUL LETTER MIEUM
+3204  ; [*030A.0020.0004][.3775.0020.0004][*030B.0020.0004] # PARENTHESIZED HANGUL MIEUM
+3264  ; [.3775.0020.0006] # CIRCLED HANGUL MIEUM
+FFB1  ; [.3775.0020.0012] # HALFWIDTH HANGUL LETTER MIEUM
+3212  ; [*030A.0020.0004][.3775.0020.0004][.37ED.0020.0004][*030B.0020.0004] # PARENTHESIZED HANGUL MIEUM A
+3272  ; [.3775.0020.0006][.37ED.0020.0006] # CIRCLED HANGUL MIEUM A
+1107  ; [.3776.0020.0002] # HANGUL CHOSEONG PIEUP
+3142  ; [.3776.0020.0004] # HANGUL LETTER PIEUP
+3205  ; [*030A.0020.0004][.3776.0020.0004][*030B.0020.0004] # PARENTHESIZED HANGUL PIEUP
+3265  ; [.3776.0020.0006] # CIRCLED HANGUL PIEUP
+FFB2  ; [.3776.0020.0012] # HALFWIDTH HANGUL LETTER PIEUP
+3213  ; [*030A.0020.0004][.3776.0020.0004][.37ED.0020.0004][*030B.0020.0004] # PARENTHESIZED HANGUL PIEUP A
+3273  ; [.3776.0020.0006][.37ED.0020.0006] # CIRCLED HANGUL PIEUP A
+1108  ; [.3777.0020.0002] # HANGUL CHOSEONG SSANGPIEUP
+3143  ; [.3777.0020.0004] # HANGUL LETTER SSANGPIEUP
+FFB3  ; [.3777.0020.0012] # HALFWIDTH HANGUL LETTER SSANGPIEUP
+1109  ; [.3778.0020.0002] # HANGUL CHOSEONG SIOS
+3145  ; [.3778.0020.0004] # HANGUL LETTER SIOS
+3206  ; [*030A.0020.0004][.3778.0020.0004][*030B.0020.0004] # PARENTHESIZED HANGUL SIOS
+3266  ; [.3778.0020.0006] # CIRCLED HANGUL SIOS
+FFB5  ; [.3778.0020.0012] # HALFWIDTH HANGUL LETTER SIOS
+3214  ; [*030A.0020.0004][.3778.0020.0004][.37ED.0020.0004][*030B.0020.0004] # PARENTHESIZED HANGUL SIOS A
+3274  ; [.3778.0020.0006][.37ED.0020.0006] # CIRCLED HANGUL SIOS A
+110A  ; [.3779.0020.0002] # HANGUL CHOSEONG SSANGSIOS
+3146  ; [.3779.0020.0004] # HANGUL LETTER SSANGSIOS
+FFB6  ; [.3779.0020.0012] # HALFWIDTH HANGUL LETTER SSANGSIOS
+110B  ; [.377A.0020.0002] # HANGUL CHOSEONG IEUNG
+3147  ; [.377A.0020.0004] # HANGUL LETTER IEUNG
+3207  ; [*030A.0020.0004][.377A.0020.0004][*030B.0020.0004] # PARENTHESIZED HANGUL IEUNG
+3267  ; [.377A.0020.0006] # CIRCLED HANGUL IEUNG
+FFB7  ; [.377A.0020.0012] # HALFWIDTH HANGUL LETTER IEUNG
+3215  ; [*030A.0020.0004][.377A.0020.0004][.37ED.0020.0004][*030B.0020.0004] # PARENTHESIZED HANGUL IEUNG A
+3275  ; [.377A.0020.0006][.37ED.0020.0006] # CIRCLED HANGUL IEUNG A
+321D  ; [*030A.0020.0004][.377A.0020.0004][.37F5.0020.0004][.377B.0020.0004][.37F1.0020.0004][.384E.0020.0004][*030B.0020.0004] # PARENTHESIZED KOREAN CHARACTER OJEON
+321E  ; [*030A.0020.0004][.377A.0020.0004][.37F5.0020.0004][.3781.0020.0004][.37FA.0020.0004][*030B.0020.0004] # PARENTHESIZED KOREAN CHARACTER O HU
+327E  ; [.377A.0020.0006][.37FA.0020.0006] # CIRCLED HANGUL IEUNG U
+110C  ; [.377B.0020.0002] # HANGUL CHOSEONG CIEUC
+3148  ; [.377B.0020.0004] # HANGUL LETTER CIEUC
+3208  ; [*030A.0020.0004][.377B.0020.0004][*030B.0020.0004] # PARENTHESIZED HANGUL CIEUC
+3268  ; [.377B.0020.0006] # CIRCLED HANGUL CIEUC
+FFB8  ; [.377B.0020.0012] # HALFWIDTH HANGUL LETTER CIEUC
+3216  ; [*030A.0020.0004][.377B.0020.0004][.37ED.0020.0004][*030B.0020.0004] # PARENTHESIZED HANGUL CIEUC A
+3276  ; [.377B.0020.0006][.37ED.0020.0006] # CIRCLED HANGUL CIEUC A
+321C  ; [*030A.0020.0004][.377B.0020.0004][.37FA.0020.0004][*030B.0020.0004] # PARENTHESIZED HANGUL CIEUC U
+327D  ; [.377B.0020.0006][.37FA.0020.0006][.377A.0020.0006][.3800.0020.0006] # CIRCLED KOREAN CHARACTER JUEUI
+110D  ; [.377C.0020.0002] # HANGUL CHOSEONG SSANGCIEUC
+3149  ; [.377C.0020.0004] # HANGUL LETTER SSANGCIEUC
+FFB9  ; [.377C.0020.0012] # HALFWIDTH HANGUL LETTER SSANGCIEUC
+110E  ; [.377D.0020.0002] # HANGUL CHOSEONG CHIEUCH
+314A  ; [.377D.0020.0004] # HANGUL LETTER CHIEUCH
+3209  ; [*030A.0020.0004][.377D.0020.0004][*030B.0020.0004] # PARENTHESIZED HANGUL CHIEUCH
+3269  ; [.377D.0020.0006] # CIRCLED HANGUL CHIEUCH
+FFBA  ; [.377D.0020.0012] # HALFWIDTH HANGUL LETTER CHIEUCH
+3217  ; [*030A.0020.0004][.377D.0020.0004][.37ED.0020.0004][*030B.0020.0004] # PARENTHESIZED HANGUL CHIEUCH A
+3277  ; [.377D.0020.0006][.37ED.0020.0006] # CIRCLED HANGUL CHIEUCH A
+327C  ; [.377D.0020.0006][.37ED.0020.0006][.385A.0020.0006][.376F.0020.0006][.37F5.0020.0006] # CIRCLED KOREAN CHARACTER CHAMKO
+110F  ; [.377E.0020.0002] # HANGUL CHOSEONG KHIEUKH
+314B  ; [.377E.0020.0004] # HANGUL LETTER KHIEUKH
+320A  ; [*030A.0020.0004][.377E.0020.0004][*030B.0020.0004] # PARENTHESIZED HANGUL KHIEUKH
+326A  ; [.377E.0020.0006] # CIRCLED HANGUL KHIEUKH
+FFBB  ; [.377E.0020.0012] # HALFWIDTH HANGUL LETTER KHIEUKH
+3218  ; [*030A.0020.0004][.377E.0020.0004][.37ED.0020.0004][*030B.0020.0004] # PARENTHESIZED HANGUL KHIEUKH A
+3278  ; [.377E.0020.0006][.37ED.0020.0006] # CIRCLED HANGUL KHIEUKH A
+1110  ; [.377F.0020.0002] # HANGUL CHOSEONG THIEUTH
+314C  ; [.377F.0020.0004] # HANGUL LETTER THIEUTH
+320B  ; [*030A.0020.0004][.377F.0020.0004][*030B.0020.0004] # PARENTHESIZED HANGUL THIEUTH
+326B  ; [.377F.0020.0006] # CIRCLED HANGUL THIEUTH
+FFBC  ; [.377F.0020.0012] # HALFWIDTH HANGUL LETTER THIEUTH
+3219  ; [*030A.0020.0004][.377F.0020.0004][.37ED.0020.0004][*030B.0020.0004] # PARENTHESIZED HANGUL THIEUTH A
+3279  ; [.377F.0020.0006][.37ED.0020.0006] # CIRCLED HANGUL THIEUTH A
+1111  ; [.3780.0020.0002] # HANGUL CHOSEONG PHIEUPH
+314D  ; [.3780.0020.0004] # HANGUL LETTER PHIEUPH
+320C  ; [*030A.0020.0004][.3780.0020.0004][*030B.0020.0004] # PARENTHESIZED HANGUL PHIEUPH
+326C  ; [.3780.0020.0006] # CIRCLED HANGUL PHIEUPH
+FFBD  ; [.3780.0020.0012] # HALFWIDTH HANGUL LETTER PHIEUPH
+321A  ; [*030A.0020.0004][.3780.0020.0004][.37ED.0020.0004][*030B.0020.0004] # PARENTHESIZED HANGUL PHIEUPH A
+327A  ; [.3780.0020.0006][.37ED.0020.0006] # CIRCLED HANGUL PHIEUPH A
+1112  ; [.3781.0020.0002] # HANGUL CHOSEONG HIEUH
+314E  ; [.3781.0020.0004] # HANGUL LETTER HIEUH
+320D  ; [*030A.0020.0004][.3781.0020.0004][*030B.0020.0004] # PARENTHESIZED HANGUL HIEUH
+326D  ; [.3781.0020.0006] # CIRCLED HANGUL HIEUH
+FFBE  ; [.3781.0020.0012] # HALFWIDTH HANGUL LETTER HIEUH
+321B  ; [*030A.0020.0004][.3781.0020.0004][.37ED.0020.0004][*030B.0020.0004] # PARENTHESIZED HANGUL HIEUH A
+327B  ; [.3781.0020.0006][.37ED.0020.0006] # CIRCLED HANGUL HIEUH A
+1113  ; [.3782.0020.0002] # HANGUL CHOSEONG NIEUN-KIYEOK
+1114  ; [.3783.0020.0002] # HANGUL CHOSEONG SSANGNIEUN
+3165  ; [.3783.0020.0004] # HANGUL LETTER SSANGNIEUN
+1115  ; [.3784.0020.0002] # HANGUL CHOSEONG NIEUN-TIKEUT
+3166  ; [.3784.0020.0004] # HANGUL LETTER NIEUN-TIKEUT
+1116  ; [.3785.0020.0002] # HANGUL CHOSEONG NIEUN-PIEUP
+1117  ; [.3786.0020.0002] # HANGUL CHOSEONG TIKEUT-KIYEOK
+1118  ; [.3787.0020.0002] # HANGUL CHOSEONG RIEUL-NIEUN
+1119  ; [.3788.0020.0002] # HANGUL CHOSEONG SSANGRIEUL
+111A  ; [.3789.0020.0002] # HANGUL CHOSEONG RIEUL-HIEUH
+3140  ; [.3789.0020.0004] # HANGUL LETTER RIEUL-HIEUH
+FFB0  ; [.3789.0020.0012] # HALFWIDTH HANGUL LETTER RIEUL-HIEUH
+111B  ; [.378A.0020.0002] # HANGUL CHOSEONG KAPYEOUNRIEUL
+111C  ; [.378B.0020.0002] # HANGUL CHOSEONG MIEUM-PIEUP
+316E  ; [.378B.0020.0004] # HANGUL LETTER MIEUM-PIEUP
+111D  ; [.378C.0020.0002] # HANGUL CHOSEONG KAPYEOUNMIEUM
+3171  ; [.378C.0020.0004] # HANGUL LETTER KAPYEOUNMIEUM
+111E  ; [.378D.0020.0002] # HANGUL CHOSEONG PIEUP-KIYEOK
+3172  ; [.378D.0020.0004] # HANGUL LETTER PIEUP-KIYEOK
+111F  ; [.378E.0020.0002] # HANGUL CHOSEONG PIEUP-NIEUN
+1120  ; [.378F.0020.0002] # HANGUL CHOSEONG PIEUP-TIKEUT
+3173  ; [.378F.0020.0004] # HANGUL LETTER PIEUP-TIKEUT
+1121  ; [.3790.0020.0002] # HANGUL CHOSEONG PIEUP-SIOS
+3144  ; [.3790.0020.0004] # HANGUL LETTER PIEUP-SIOS
+FFB4  ; [.3790.0020.0012] # HALFWIDTH HANGUL LETTER PIEUP-SIOS
+1122  ; [.3791.0020.0002] # HANGUL CHOSEONG PIEUP-SIOS-KIYEOK
+3174  ; [.3791.0020.0004] # HANGUL LETTER PIEUP-SIOS-KIYEOK
+1123  ; [.3792.0020.0002] # HANGUL CHOSEONG PIEUP-SIOS-TIKEUT
+3175  ; [.3792.0020.0004] # HANGUL LETTER PIEUP-SIOS-TIKEUT
+1124  ; [.3793.0020.0002] # HANGUL CHOSEONG PIEUP-SIOS-PIEUP
+1125  ; [.3794.0020.0002] # HANGUL CHOSEONG PIEUP-SSANGSIOS
+1126  ; [.3795.0020.0002] # HANGUL CHOSEONG PIEUP-SIOS-CIEUC
+1127  ; [.3796.0020.0002] # HANGUL CHOSEONG PIEUP-CIEUC
+3176  ; [.3796.0020.0004] # HANGUL LETTER PIEUP-CIEUC
+1128  ; [.3797.0020.0002] # HANGUL CHOSEONG PIEUP-CHIEUCH
+1129  ; [.3798.0020.0002] # HANGUL CHOSEONG PIEUP-THIEUTH
+3177  ; [.3798.0020.0004] # HANGUL LETTER PIEUP-THIEUTH
+112A  ; [.3799.0020.0002] # HANGUL CHOSEONG PIEUP-PHIEUPH
+112B  ; [.379A.0020.0002] # HANGUL CHOSEONG KAPYEOUNPIEUP
+3178  ; [.379A.0020.0004] # HANGUL LETTER KAPYEOUNPIEUP
+112C  ; [.379B.0020.0002] # HANGUL CHOSEONG KAPYEOUNSSANGPIEUP
+3179  ; [.379B.0020.0004] # HANGUL LETTER KAPYEOUNSSANGPIEUP
+112D  ; [.379C.0020.0002] # HANGUL CHOSEONG SIOS-KIYEOK
+317A  ; [.379C.0020.0004] # HANGUL LETTER SIOS-KIYEOK
+112E  ; [.379D.0020.0002] # HANGUL CHOSEONG SIOS-NIEUN
+317B  ; [.379D.0020.0004] # HANGUL LETTER SIOS-NIEUN
+112F  ; [.379E.0020.0002] # HANGUL CHOSEONG SIOS-TIKEUT
+317C  ; [.379E.0020.0004] # HANGUL LETTER SIOS-TIKEUT
+1130  ; [.379F.0020.0002] # HANGUL CHOSEONG SIOS-RIEUL
+1131  ; [.37A0.0020.0002] # HANGUL CHOSEONG SIOS-MIEUM
+1132  ; [.37A1.0020.0002] # HANGUL CHOSEONG SIOS-PIEUP
+317D  ; [.37A1.0020.0004] # HANGUL LETTER SIOS-PIEUP
+1133  ; [.37A2.0020.0002] # HANGUL CHOSEONG SIOS-PIEUP-KIYEOK
+1134  ; [.37A3.0020.0002] # HANGUL CHOSEONG SIOS-SSANGSIOS
+1135  ; [.37A4.0020.0002] # HANGUL CHOSEONG SIOS-IEUNG
+1136  ; [.37A5.0020.0002] # HANGUL CHOSEONG SIOS-CIEUC
+317E  ; [.37A5.0020.0004] # HANGUL LETTER SIOS-CIEUC
+1137  ; [.37A6.0020.0002] # HANGUL CHOSEONG SIOS-CHIEUCH
+1138  ; [.37A7.0020.0002] # HANGUL CHOSEONG SIOS-KHIEUKH
+1139  ; [.37A8.0020.0002] # HANGUL CHOSEONG SIOS-THIEUTH
+113A  ; [.37A9.0020.0002] # HANGUL CHOSEONG SIOS-PHIEUPH
+113B  ; [.37AA.0020.0002] # HANGUL CHOSEONG SIOS-HIEUH
+113C  ; [.37AB.0020.0002] # HANGUL CHOSEONG CHITUEUMSIOS
+113D  ; [.37AC.0020.0002] # HANGUL CHOSEONG CHITUEUMSSANGSIOS
+113E  ; [.37AD.0020.0002] # HANGUL CHOSEONG CEONGCHIEUMSIOS
+113F  ; [.37AE.0020.0002] # HANGUL CHOSEONG CEONGCHIEUMSSANGSIOS
+1140  ; [.37AF.0020.0002] # HANGUL CHOSEONG PANSIOS
+317F  ; [.37AF.0020.0004] # HANGUL LETTER PANSIOS
+1141  ; [.37B0.0020.0002] # HANGUL CHOSEONG IEUNG-KIYEOK
+1142  ; [.37B1.0020.0002] # HANGUL CHOSEONG IEUNG-TIKEUT
+1143  ; [.37B2.0020.0002] # HANGUL CHOSEONG IEUNG-MIEUM
+1144  ; [.37B3.0020.0002] # HANGUL CHOSEONG IEUNG-PIEUP
+1145  ; [.37B4.0020.0002] # HANGUL CHOSEONG IEUNG-SIOS
+1146  ; [.37B5.0020.0002] # HANGUL CHOSEONG IEUNG-PANSIOS
+1147  ; [.37B6.0020.0002] # HANGUL CHOSEONG SSANGIEUNG
+3180  ; [.37B6.0020.0004] # HANGUL LETTER SSANGIEUNG
+1148  ; [.37B7.0020.0002] # HANGUL CHOSEONG IEUNG-CIEUC
+1149  ; [.37B8.0020.0002] # HANGUL CHOSEONG IEUNG-CHIEUCH
+114A  ; [.37B9.0020.0002] # HANGUL CHOSEONG IEUNG-THIEUTH
+114B  ; [.37BA.0020.0002] # HANGUL CHOSEONG IEUNG-PHIEUPH
+114C  ; [.37BB.0020.0002] # HANGUL CHOSEONG YESIEUNG
+3181  ; [.37BB.0020.0004] # HANGUL LETTER YESIEUNG
+114D  ; [.37BC.0020.0002] # HANGUL CHOSEONG CIEUC-IEUNG
+114E  ; [.37BD.0020.0002] # HANGUL CHOSEONG CHITUEUMCIEUC
+114F  ; [.37BE.0020.0002] # HANGUL CHOSEONG CHITUEUMSSANGCIEUC
+1150  ; [.37BF.0020.0002] # HANGUL CHOSEONG CEONGCHIEUMCIEUC
+1151  ; [.37C0.0020.0002] # HANGUL CHOSEONG CEONGCHIEUMSSANGCIEUC
+1152  ; [.37C1.0020.0002] # HANGUL CHOSEONG CHIEUCH-KHIEUKH
+1153  ; [.37C2.0020.0002] # HANGUL CHOSEONG CHIEUCH-HIEUH
+1154  ; [.37C3.0020.0002] # HANGUL CHOSEONG CHITUEUMCHIEUCH
+1155  ; [.37C4.0020.0002] # HANGUL CHOSEONG CEONGCHIEUMCHIEUCH
+1156  ; [.37C5.0020.0002] # HANGUL CHOSEONG PHIEUPH-PIEUP
+1157  ; [.37C6.0020.0002] # HANGUL CHOSEONG KAPYEOUNPHIEUPH
+3184  ; [.37C6.0020.0004] # HANGUL LETTER KAPYEOUNPHIEUPH
+1158  ; [.37C7.0020.0002] # HANGUL CHOSEONG SSANGHIEUH
+3185  ; [.37C7.0020.0004] # HANGUL LETTER SSANGHIEUH
+1159  ; [.37C8.0020.0002] # HANGUL CHOSEONG YEORINHIEUH
+3186  ; [.37C8.0020.0004] # HANGUL LETTER YEORINHIEUH
+115A  ; [.37C9.0020.0002] # HANGUL CHOSEONG KIYEOK-TIKEUT
+115B  ; [.37CA.0020.0002] # HANGUL CHOSEONG NIEUN-SIOS
+115C  ; [.37CB.0020.0002] # HANGUL CHOSEONG NIEUN-CIEUC
+115D  ; [.37CC.0020.0002] # HANGUL CHOSEONG NIEUN-HIEUH
+115E  ; [.37CD.0020.0002] # HANGUL CHOSEONG TIKEUT-RIEUL
+A960  ; [.37CE.0020.0002] # HANGUL CHOSEONG TIKEUT-MIEUM
+A961  ; [.37CF.0020.0002] # HANGUL CHOSEONG TIKEUT-PIEUP
+A962  ; [.37D0.0020.0002] # HANGUL CHOSEONG TIKEUT-SIOS
+A963  ; [.37D1.0020.0002] # HANGUL CHOSEONG TIKEUT-CIEUC
+A964  ; [.37D2.0020.0002] # HANGUL CHOSEONG RIEUL-KIYEOK
+A965  ; [.37D3.0020.0002] # HANGUL CHOSEONG RIEUL-SSANGKIYEOK
+A966  ; [.37D4.0020.0002] # HANGUL CHOSEONG RIEUL-TIKEUT
+A967  ; [.37D5.0020.0002] # HANGUL CHOSEONG RIEUL-SSANGTIKEUT
+A968  ; [.37D6.0020.0002] # HANGUL CHOSEONG RIEUL-MIEUM
+A969  ; [.37D7.0020.0002] # HANGUL CHOSEONG RIEUL-PIEUP
+A96A  ; [.37D8.0020.0002] # HANGUL CHOSEONG RIEUL-SSANGPIEUP
+A96B  ; [.37D9.0020.0002] # HANGUL CHOSEONG RIEUL-KAPYEOUNPIEUP
+A96C  ; [.37DA.0020.0002] # HANGUL CHOSEONG RIEUL-SIOS
+A96D  ; [.37DB.0020.0002] # HANGUL CHOSEONG RIEUL-CIEUC
+A96E  ; [.37DC.0020.0002] # HANGUL CHOSEONG RIEUL-KHIEUKH
+A96F  ; [.37DD.0020.0002] # HANGUL CHOSEONG MIEUM-KIYEOK
+A970  ; [.37DE.0020.0002] # HANGUL CHOSEONG MIEUM-TIKEUT
+A971  ; [.37DF.0020.0002] # HANGUL CHOSEONG MIEUM-SIOS
+A972  ; [.37E0.0020.0002] # HANGUL CHOSEONG PIEUP-SIOS-THIEUTH
+A973  ; [.37E1.0020.0002] # HANGUL CHOSEONG PIEUP-KHIEUKH
+A974  ; [.37E2.0020.0002] # HANGUL CHOSEONG PIEUP-HIEUH
+A975  ; [.37E3.0020.0002] # HANGUL CHOSEONG SSANGSIOS-PIEUP
+A976  ; [.37E4.0020.0002] # HANGUL CHOSEONG IEUNG-RIEUL
+A977  ; [.37E5.0020.0002] # HANGUL CHOSEONG IEUNG-HIEUH
+A978  ; [.37E6.0020.0002] # HANGUL CHOSEONG SSANGCIEUC-HIEUH
+A979  ; [.37E7.0020.0002] # HANGUL CHOSEONG SSANGTHIEUTH
+A97A  ; [.37E8.0020.0002] # HANGUL CHOSEONG PHIEUPH-HIEUH
+A97B  ; [.37E9.0020.0002] # HANGUL CHOSEONG HIEUH-SIOS
+A97C  ; [.37EA.0020.0002] # HANGUL CHOSEONG SSANGYEORINHIEUH
+115F  ; [.37EB.0020.0002] # HANGUL CHOSEONG FILLER
+1160  ; [.37EC.0020.0002] # HANGUL JUNGSEONG FILLER
+3164  ; [.37EC.0020.0004] # HANGUL FILLER
+FFA0  ; [.37EC.0020.0012] # HALFWIDTH HANGUL FILLER
+1161  ; [.37ED.0020.0002] # HANGUL JUNGSEONG A
+314F  ; [.37ED.0020.0004] # HANGUL LETTER A
+FFC2  ; [.37ED.0020.0012] # HALFWIDTH HANGUL LETTER A
+1162  ; [.37EE.0020.0002] # HANGUL JUNGSEONG AE
+3150  ; [.37EE.0020.0004] # HANGUL LETTER AE
+FFC3  ; [.37EE.0020.0012] # HALFWIDTH HANGUL LETTER AE
+1163  ; [.37EF.0020.0002] # HANGUL JUNGSEONG YA
+3151  ; [.37EF.0020.0004] # HANGUL LETTER YA
+FFC4  ; [.37EF.0020.0012] # HALFWIDTH HANGUL LETTER YA
+1164  ; [.37F0.0020.0002] # HANGUL JUNGSEONG YAE
+3152  ; [.37F0.0020.0004] # HANGUL LETTER YAE
+FFC5  ; [.37F0.0020.0012] # HALFWIDTH HANGUL LETTER YAE
+1165  ; [.37F1.0020.0002] # HANGUL JUNGSEONG EO
+3153  ; [.37F1.0020.0004] # HANGUL LETTER EO
+FFC6  ; [.37F1.0020.0012] # HALFWIDTH HANGUL LETTER EO
+1166  ; [.37F2.0020.0002] # HANGUL JUNGSEONG E
+3154  ; [.37F2.0020.0004] # HANGUL LETTER E
+FFC7  ; [.37F2.0020.0012] # HALFWIDTH HANGUL LETTER E
+1167  ; [.37F3.0020.0002] # HANGUL JUNGSEONG YEO
+3155  ; [.37F3.0020.0004] # HANGUL LETTER YEO
+FFCA  ; [.37F3.0020.0012] # HALFWIDTH HANGUL LETTER YEO
+1168  ; [.37F4.0020.0002] # HANGUL JUNGSEONG YE
+3156  ; [.37F4.0020.0004] # HANGUL LETTER YE
+FFCB  ; [.37F4.0020.0012] # HALFWIDTH HANGUL LETTER YE
+1169  ; [.37F5.0020.0002] # HANGUL JUNGSEONG O
+3157  ; [.37F5.0020.0004] # HANGUL LETTER O
+FFCC  ; [.37F5.0020.0012] # HALFWIDTH HANGUL LETTER O
+116A  ; [.37F6.0020.0002] # HANGUL JUNGSEONG WA
+3158  ; [.37F6.0020.0004] # HANGUL LETTER WA
+FFCD  ; [.37F6.0020.0012] # HALFWIDTH HANGUL LETTER WA
+116B  ; [.37F7.0020.0002] # HANGUL JUNGSEONG WAE
+3159  ; [.37F7.0020.0004] # HANGUL LETTER WAE
+FFCE  ; [.37F7.0020.0012] # HALFWIDTH HANGUL LETTER WAE
+116C  ; [.37F8.0020.0002] # HANGUL JUNGSEONG OE
+315A  ; [.37F8.0020.0004] # HANGUL LETTER OE
+FFCF  ; [.37F8.0020.0012] # HALFWIDTH HANGUL LETTER OE
+116D  ; [.37F9.0020.0002] # HANGUL JUNGSEONG YO
+315B  ; [.37F9.0020.0004] # HANGUL LETTER YO
+FFD2  ; [.37F9.0020.0012] # HALFWIDTH HANGUL LETTER YO
+116E  ; [.37FA.0020.0002] # HANGUL JUNGSEONG U
+315C  ; [.37FA.0020.0004] # HANGUL LETTER U
+FFD3  ; [.37FA.0020.0012] # HALFWIDTH HANGUL LETTER U
+116F  ; [.37FB.0020.0002] # HANGUL JUNGSEONG WEO
+315D  ; [.37FB.0020.0004] # HANGUL LETTER WEO
+FFD4  ; [.37FB.0020.0012] # HALFWIDTH HANGUL LETTER WEO
+1170  ; [.37FC.0020.0002] # HANGUL JUNGSEONG WE
+315E  ; [.37FC.0020.0004] # HANGUL LETTER WE
+FFD5  ; [.37FC.0020.0012] # HALFWIDTH HANGUL LETTER WE
+1171  ; [.37FD.0020.0002] # HANGUL JUNGSEONG WI
+315F  ; [.37FD.0020.0004] # HANGUL LETTER WI
+FFD6  ; [.37FD.0020.0012] # HALFWIDTH HANGUL LETTER WI
+1172  ; [.37FE.0020.0002] # HANGUL JUNGSEONG YU
+3160  ; [.37FE.0020.0004] # HANGUL LETTER YU
+FFD7  ; [.37FE.0020.0012] # HALFWIDTH HANGUL LETTER YU
+1173  ; [.37FF.0020.0002] # HANGUL JUNGSEONG EU
+3161  ; [.37FF.0020.0004] # HANGUL LETTER EU
+FFDA  ; [.37FF.0020.0012] # HALFWIDTH HANGUL LETTER EU
+1174  ; [.3800.0020.0002] # HANGUL JUNGSEONG YI
+3162  ; [.3800.0020.0004] # HANGUL LETTER YI
+FFDB  ; [.3800.0020.0012] # HALFWIDTH HANGUL LETTER YI
+1175  ; [.3801.0020.0002] # HANGUL JUNGSEONG I
+3163  ; [.3801.0020.0004] # HANGUL LETTER I
+FFDC  ; [.3801.0020.0012] # HALFWIDTH HANGUL LETTER I
+1176  ; [.3802.0020.0002] # HANGUL JUNGSEONG A-O
+1177  ; [.3803.0020.0002] # HANGUL JUNGSEONG A-U
+1178  ; [.3804.0020.0002] # HANGUL JUNGSEONG YA-O
+1179  ; [.3805.0020.0002] # HANGUL JUNGSEONG YA-YO
+117A  ; [.3806.0020.0002] # HANGUL JUNGSEONG EO-O
+117B  ; [.3807.0020.0002] # HANGUL JUNGSEONG EO-U
+117C  ; [.3808.0020.0002] # HANGUL JUNGSEONG EO-EU
+117D  ; [.3809.0020.0002] # HANGUL JUNGSEONG YEO-O
+117E  ; [.380A.0020.0002] # HANGUL JUNGSEONG YEO-U
+117F  ; [.380B.0020.0002] # HANGUL JUNGSEONG O-EO
+1180  ; [.380C.0020.0002] # HANGUL JUNGSEONG O-E
+1181  ; [.380D.0020.0002] # HANGUL JUNGSEONG O-YE
+1182  ; [.380E.0020.0002] # HANGUL JUNGSEONG O-O
+1183  ; [.380F.0020.0002] # HANGUL JUNGSEONG O-U
+1184  ; [.3810.0020.0002] # HANGUL JUNGSEONG YO-YA
+3187  ; [.3810.0020.0004] # HANGUL LETTER YO-YA
+1185  ; [.3811.0020.0002] # HANGUL JUNGSEONG YO-YAE
+3188  ; [.3811.0020.0004] # HANGUL LETTER YO-YAE
+1186  ; [.3812.0020.0002] # HANGUL JUNGSEONG YO-YEO
+1187  ; [.3813.0020.0002] # HANGUL JUNGSEONG YO-O
+1188  ; [.3814.0020.0002] # HANGUL JUNGSEONG YO-I
+3189  ; [.3814.0020.0004] # HANGUL LETTER YO-I
+1189  ; [.3815.0020.0002] # HANGUL JUNGSEONG U-A
+118A  ; [.3816.0020.0002] # HANGUL JUNGSEONG U-AE
+118B  ; [.3817.0020.0002] # HANGUL JUNGSEONG U-EO-EU
+118C  ; [.3818.0020.0002] # HANGUL JUNGSEONG U-YE
+118D  ; [.3819.0020.0002] # HANGUL JUNGSEONG U-U
+118E  ; [.381A.0020.0002] # HANGUL JUNGSEONG YU-A
+118F  ; [.381B.0020.0002] # HANGUL JUNGSEONG YU-EO
+1190  ; [.381C.0020.0002] # HANGUL JUNGSEONG YU-E
+1191  ; [.381D.0020.0002] # HANGUL JUNGSEONG YU-YEO
+318A  ; [.381D.0020.0004] # HANGUL LETTER YU-YEO
+1192  ; [.381E.0020.0002] # HANGUL JUNGSEONG YU-YE
+318B  ; [.381E.0020.0004] # HANGUL LETTER YU-YE
+1193  ; [.381F.0020.0002] # HANGUL JUNGSEONG YU-U
+1194  ; [.3820.0020.0002] # HANGUL JUNGSEONG YU-I
+318C  ; [.3820.0020.0004] # HANGUL LETTER YU-I
+1195  ; [.3821.0020.0002] # HANGUL JUNGSEONG EU-U
+1196  ; [.3822.0020.0002] # HANGUL JUNGSEONG EU-EU
+1197  ; [.3823.0020.0002] # HANGUL JUNGSEONG YI-U
+1198  ; [.3824.0020.0002] # HANGUL JUNGSEONG I-A
+1199  ; [.3825.0020.0002] # HANGUL JUNGSEONG I-YA
+119A  ; [.3826.0020.0002] # HANGUL JUNGSEONG I-O
+119B  ; [.3827.0020.0002] # HANGUL JUNGSEONG I-U
+119C  ; [.3828.0020.0002] # HANGUL JUNGSEONG I-EU
+119D  ; [.3829.0020.0002] # HANGUL JUNGSEONG I-ARAEA
+119E  ; [.382A.0020.0002] # HANGUL JUNGSEONG ARAEA
+318D  ; [.382A.0020.0004] # HANGUL LETTER ARAEA
+119F  ; [.382B.0020.0002] # HANGUL JUNGSEONG ARAEA-EO
+11A0  ; [.382C.0020.0002] # HANGUL JUNGSEONG ARAEA-U
+11A1  ; [.382D.0020.0002] # HANGUL JUNGSEONG ARAEA-I
+318E  ; [.382D.0020.0004] # HANGUL LETTER ARAEAE
+11A2  ; [.382E.0020.0002] # HANGUL JUNGSEONG SSANGARAEA
+11A3  ; [.382F.0020.0002] # HANGUL JUNGSEONG A-EU
+11A4  ; [.3830.0020.0002] # HANGUL JUNGSEONG YA-U
+11A5  ; [.3831.0020.0002] # HANGUL JUNGSEONG YEO-YA
+11A6  ; [.3832.0020.0002] # HANGUL JUNGSEONG O-YA
+11A7  ; [.3833.0020.0002] # HANGUL JUNGSEONG O-YAE
+D7B0  ; [.3834.0020.0002] # HANGUL JUNGSEONG O-YEO
+D7B1  ; [.3835.0020.0002] # HANGUL JUNGSEONG O-O-I
+D7B2  ; [.3836.0020.0002] # HANGUL JUNGSEONG YO-A
+D7B3  ; [.3837.0020.0002] # HANGUL JUNGSEONG YO-AE
+D7B4  ; [.3838.0020.0002] # HANGUL JUNGSEONG YO-EO
+D7B5  ; [.3839.0020.0002] # HANGUL JUNGSEONG U-YEO
+D7B6  ; [.383A.0020.0002] # HANGUL JUNGSEONG U-I-I
+D7B7  ; [.383B.0020.0002] # HANGUL JUNGSEONG YU-AE
+D7B8  ; [.383C.0020.0002] # HANGUL JUNGSEONG YU-O
+D7B9  ; [.383D.0020.0002] # HANGUL JUNGSEONG EU-A
+D7BA  ; [.383E.0020.0002] # HANGUL JUNGSEONG EU-EO
+D7BB  ; [.383F.0020.0002] # HANGUL JUNGSEONG EU-E
+D7BC  ; [.3840.0020.0002] # HANGUL JUNGSEONG EU-O
+D7BD  ; [.3841.0020.0002] # HANGUL JUNGSEONG I-YA-O
+D7BE  ; [.3842.0020.0002] # HANGUL JUNGSEONG I-YAE
+D7BF  ; [.3843.0020.0002] # HANGUL JUNGSEONG I-YEO
+D7C0  ; [.3844.0020.0002] # HANGUL JUNGSEONG I-YE
+D7C1  ; [.3845.0020.0002] # HANGUL JUNGSEONG I-O-I
+D7C2  ; [.3846.0020.0002] # HANGUL JUNGSEONG I-YO
+D7C3  ; [.3847.0020.0002] # HANGUL JUNGSEONG I-YU
+D7C4  ; [.3848.0020.0002] # HANGUL JUNGSEONG I-I
+D7C5  ; [.3849.0020.0002] # HANGUL JUNGSEONG ARAEA-A
+D7C6  ; [.384A.0020.0002] # HANGUL JUNGSEONG ARAEA-E
+11A8  ; [.384B.0020.0002] # HANGUL JONGSEONG KIYEOK
+11A9  ; [.384C.0020.0002] # HANGUL JONGSEONG SSANGKIYEOK
+11AA  ; [.384D.0020.0002] # HANGUL JONGSEONG KIYEOK-SIOS
+3133  ; [.384D.0020.0004] # HANGUL LETTER KIYEOK-SIOS
+FFA3  ; [.384D.0020.0012] # HALFWIDTH HANGUL LETTER KIYEOK-SIOS
+11AB  ; [.384E.0020.0002] # HANGUL JONGSEONG NIEUN
+11AC  ; [.384F.0020.0002] # HANGUL JONGSEONG NIEUN-CIEUC
+3135  ; [.384F.0020.0004] # HANGUL LETTER NIEUN-CIEUC
+FFA5  ; [.384F.0020.0012] # HALFWIDTH HANGUL LETTER NIEUN-CIEUC
+11AD  ; [.3850.0020.0002] # HANGUL JONGSEONG NIEUN-HIEUH
+3136  ; [.3850.0020.0004] # HANGUL LETTER NIEUN-HIEUH
+FFA6  ; [.3850.0020.0012] # HALFWIDTH HANGUL LETTER NIEUN-HIEUH
+11AE  ; [.3851.0020.0002] # HANGUL JONGSEONG TIKEUT
+11AF  ; [.3852.0020.0002] # HANGUL JONGSEONG RIEUL
+11B0  ; [.3853.0020.0002] # HANGUL JONGSEONG RIEUL-KIYEOK
+313A  ; [.3853.0020.0004] # HANGUL LETTER RIEUL-KIYEOK
+FFAA  ; [.3853.0020.0012] # HALFWIDTH HANGUL LETTER RIEUL-KIYEOK
+11B1  ; [.3854.0020.0002] # HANGUL JONGSEONG RIEUL-MIEUM
+313B  ; [.3854.0020.0004] # HANGUL LETTER RIEUL-MIEUM
+FFAB  ; [.3854.0020.0012] # HALFWIDTH HANGUL LETTER RIEUL-MIEUM
+11B2  ; [.3855.0020.0002] # HANGUL JONGSEONG RIEUL-PIEUP
+313C  ; [.3855.0020.0004] # HANGUL LETTER RIEUL-PIEUP
+FFAC  ; [.3855.0020.0012] # HALFWIDTH HANGUL LETTER RIEUL-PIEUP
+11B3  ; [.3856.0020.0002] # HANGUL JONGSEONG RIEUL-SIOS
+313D  ; [.3856.0020.0004] # HANGUL LETTER RIEUL-SIOS
+FFAD  ; [.3856.0020.0012] # HALFWIDTH HANGUL LETTER RIEUL-SIOS
+11B4  ; [.3857.0020.0002] # HANGUL JONGSEONG RIEUL-THIEUTH
+313E  ; [.3857.0020.0004] # HANGUL LETTER RIEUL-THIEUTH
+FFAE  ; [.3857.0020.0012] # HALFWIDTH HANGUL LETTER RIEUL-THIEUTH
+11B5  ; [.3858.0020.0002] # HANGUL JONGSEONG RIEUL-PHIEUPH
+313F  ; [.3858.0020.0004] # HANGUL LETTER RIEUL-PHIEUPH
+FFAF  ; [.3858.0020.0012] # HALFWIDTH HANGUL LETTER RIEUL-PHIEUPH
+11B6  ; [.3859.0020.0002] # HANGUL JONGSEONG RIEUL-HIEUH
+11B7  ; [.385A.0020.0002] # HANGUL JONGSEONG MIEUM
+11B8  ; [.385B.0020.0002] # HANGUL JONGSEONG PIEUP
+11B9  ; [.385C.0020.0002] # HANGUL JONGSEONG PIEUP-SIOS
+11BA  ; [.385D.0020.0002] # HANGUL JONGSEONG SIOS
+11BB  ; [.385E.0020.0002] # HANGUL JONGSEONG SSANGSIOS
+11BC  ; [.385F.0020.0002] # HANGUL JONGSEONG IEUNG
+11BD  ; [.3860.0020.0002] # HANGUL JONGSEONG CIEUC
+11BE  ; [.3861.0020.0002] # HANGUL JONGSEONG CHIEUCH
+11BF  ; [.3862.0020.0002] # HANGUL JONGSEONG KHIEUKH
+11C0  ; [.3863.0020.0002] # HANGUL JONGSEONG THIEUTH
+11C1  ; [.3864.0020.0002] # HANGUL JONGSEONG PHIEUPH
+11C2  ; [.3865.0020.0002] # HANGUL JONGSEONG HIEUH
+11C3  ; [.3866.0020.0002] # HANGUL JONGSEONG KIYEOK-RIEUL
+11C4  ; [.3867.0020.0002] # HANGUL JONGSEONG KIYEOK-SIOS-KIYEOK
+11C5  ; [.3868.0020.0002] # HANGUL JONGSEONG NIEUN-KIYEOK
+11C6  ; [.3869.0020.0002] # HANGUL JONGSEONG NIEUN-TIKEUT
+11C7  ; [.386A.0020.0002] # HANGUL JONGSEONG NIEUN-SIOS
+3167  ; [.386A.0020.0004] # HANGUL LETTER NIEUN-SIOS
+11C8  ; [.386B.0020.0002] # HANGUL JONGSEONG NIEUN-PANSIOS
+3168  ; [.386B.0020.0004] # HANGUL LETTER NIEUN-PANSIOS
+11C9  ; [.386C.0020.0002] # HANGUL JONGSEONG NIEUN-THIEUTH
+11CA  ; [.386D.0020.0002] # HANGUL JONGSEONG TIKEUT-KIYEOK
+11CB  ; [.386E.0020.0002] # HANGUL JONGSEONG TIKEUT-RIEUL
+11CC  ; [.386F.0020.0002] # HANGUL JONGSEONG RIEUL-KIYEOK-SIOS
+3169  ; [.386F.0020.0004] # HANGUL LETTER RIEUL-KIYEOK-SIOS
+11CD  ; [.3870.0020.0002] # HANGUL JONGSEONG RIEUL-NIEUN
+11CE  ; [.3871.0020.0002] # HANGUL JONGSEONG RIEUL-TIKEUT
+316A  ; [.3871.0020.0004] # HANGUL LETTER RIEUL-TIKEUT
+11CF  ; [.3872.0020.0002] # HANGUL JONGSEONG RIEUL-TIKEUT-HIEUH
+11D0  ; [.3873.0020.0002] # HANGUL JONGSEONG SSANGRIEUL
+11D1  ; [.3874.0020.0002] # HANGUL JONGSEONG RIEUL-MIEUM-KIYEOK
+11D2  ; [.3875.0020.0002] # HANGUL JONGSEONG RIEUL-MIEUM-SIOS
+11D3  ; [.3876.0020.0002] # HANGUL JONGSEONG RIEUL-PIEUP-SIOS
+316B  ; [.3876.0020.0004] # HANGUL LETTER RIEUL-PIEUP-SIOS
+11D4  ; [.3877.0020.0002] # HANGUL JONGSEONG RIEUL-PIEUP-HIEUH
+11D5  ; [.3878.0020.0002] # HANGUL JONGSEONG RIEUL-KAPYEOUNPIEUP
+11D6  ; [.3879.0020.0002] # HANGUL JONGSEONG RIEUL-SSANGSIOS
+11D7  ; [.387A.0020.0002] # HANGUL JONGSEONG RIEUL-PANSIOS
+316C  ; [.387A.0020.0004] # HANGUL LETTER RIEUL-PANSIOS
+11D8  ; [.387B.0020.0002] # HANGUL JONGSEONG RIEUL-KHIEUKH
+11D9  ; [.387C.0020.0002] # HANGUL JONGSEONG RIEUL-YEORINHIEUH
+316D  ; [.387C.0020.0004] # HANGUL LETTER RIEUL-YEORINHIEUH
+11DA  ; [.387D.0020.0002] # HANGUL JONGSEONG MIEUM-KIYEOK
+11DB  ; [.387E.0020.0002] # HANGUL JONGSEONG MIEUM-RIEUL
+11DC  ; [.387F.0020.0002] # HANGUL JONGSEONG MIEUM-PIEUP
+11DD  ; [.3880.0020.0002] # HANGUL JONGSEONG MIEUM-SIOS
+316F  ; [.3880.0020.0004] # HANGUL LETTER MIEUM-SIOS
+11DE  ; [.3881.0020.0002] # HANGUL JONGSEONG MIEUM-SSANGSIOS
+11DF  ; [.3882.0020.0002] # HANGUL JONGSEONG MIEUM-PANSIOS
+3170  ; [.3882.0020.0004] # HANGUL LETTER MIEUM-PANSIOS
+11E0  ; [.3883.0020.0002] # HANGUL JONGSEONG MIEUM-CHIEUCH
+11E1  ; [.3884.0020.0002] # HANGUL JONGSEONG MIEUM-HIEUH
+11E2  ; [.3885.0020.0002] # HANGUL JONGSEONG KAPYEOUNMIEUM
+11E3  ; [.3886.0020.0002] # HANGUL JONGSEONG PIEUP-RIEUL
+11E4  ; [.3887.0020.0002] # HANGUL JONGSEONG PIEUP-PHIEUPH
+11E5  ; [.3888.0020.0002] # HANGUL JONGSEONG PIEUP-HIEUH
+11E6  ; [.3889.0020.0002] # HANGUL JONGSEONG KAPYEOUNPIEUP
+11E7  ; [.388A.0020.0002] # HANGUL JONGSEONG SIOS-KIYEOK
+11E8  ; [.388B.0020.0002] # HANGUL JONGSEONG SIOS-TIKEUT
+11E9  ; [.388C.0020.0002] # HANGUL JONGSEONG SIOS-RIEUL
+11EA  ; [.388D.0020.0002] # HANGUL JONGSEONG SIOS-PIEUP
+11EB  ; [.388E.0020.0002] # HANGUL JONGSEONG PANSIOS
+11EC  ; [.388F.0020.0002] # HANGUL JONGSEONG IEUNG-KIYEOK
+11ED  ; [.3890.0020.0002] # HANGUL JONGSEONG IEUNG-SSANGKIYEOK
+11EE  ; [.3891.0020.0002] # HANGUL JONGSEONG SSANGIEUNG
+11EF  ; [.3892.0020.0002] # HANGUL JONGSEONG IEUNG-KHIEUKH
+11F0  ; [.3893.0020.0002] # HANGUL JONGSEONG YESIEUNG
+11F1  ; [.3894.0020.0002] # HANGUL JONGSEONG YESIEUNG-SIOS
+3182  ; [.3894.0020.0004] # HANGUL LETTER YESIEUNG-SIOS
+11F2  ; [.3895.0020.0002] # HANGUL JONGSEONG YESIEUNG-PANSIOS
+3183  ; [.3895.0020.0004] # HANGUL LETTER YESIEUNG-PANSIOS
+11F3  ; [.3896.0020.0002] # HANGUL JONGSEONG PHIEUPH-PIEUP
+11F4  ; [.3897.0020.0002] # HANGUL JONGSEONG KAPYEOUNPHIEUPH
+11F5  ; [.3898.0020.0002] # HANGUL JONGSEONG HIEUH-NIEUN
+11F6  ; [.3899.0020.0002] # HANGUL JONGSEONG HIEUH-RIEUL
+11F7  ; [.389A.0020.0002] # HANGUL JONGSEONG HIEUH-MIEUM
+11F8  ; [.389B.0020.0002] # HANGUL JONGSEONG HIEUH-PIEUP
+11F9  ; [.389C.0020.0002] # HANGUL JONGSEONG YEORINHIEUH
+11FA  ; [.389D.0020.0002] # HANGUL JONGSEONG KIYEOK-NIEUN
+11FB  ; [.389E.0020.0002] # HANGUL JONGSEONG KIYEOK-PIEUP
+11FC  ; [.389F.0020.0002] # HANGUL JONGSEONG KIYEOK-CHIEUCH
+11FD  ; [.38A0.0020.0002] # HANGUL JONGSEONG KIYEOK-KHIEUKH
+11FE  ; [.38A1.0020.0002] # HANGUL JONGSEONG KIYEOK-HIEUH
+11FF  ; [.38A2.0020.0002] # HANGUL JONGSEONG SSANGNIEUN
+D7CB  ; [.38A3.0020.0002] # HANGUL JONGSEONG NIEUN-RIEUL
+D7CC  ; [.38A4.0020.0002] # HANGUL JONGSEONG NIEUN-CHIEUCH
+D7CD  ; [.38A5.0020.0002] # HANGUL JONGSEONG SSANGTIKEUT
+D7CE  ; [.38A6.0020.0002] # HANGUL JONGSEONG SSANGTIKEUT-PIEUP
+D7CF  ; [.38A7.0020.0002] # HANGUL JONGSEONG TIKEUT-PIEUP
+D7D0  ; [.38A8.0020.0002] # HANGUL JONGSEONG TIKEUT-SIOS
+D7D1  ; [.38A9.0020.0002] # HANGUL JONGSEONG TIKEUT-SIOS-KIYEOK
+D7D2  ; [.38AA.0020.0002] # HANGUL JONGSEONG TIKEUT-CIEUC
+D7D3  ; [.38AB.0020.0002] # HANGUL JONGSEONG TIKEUT-CHIEUCH
+D7D4  ; [.38AC.0020.0002] # HANGUL JONGSEONG TIKEUT-THIEUTH
+D7D5  ; [.38AD.0020.0002] # HANGUL JONGSEONG RIEUL-SSANGKIYEOK
+D7D6  ; [.38AE.0020.0002] # HANGUL JONGSEONG RIEUL-KIYEOK-HIEUH
+D7D7  ; [.38AF.0020.0002] # HANGUL JONGSEONG SSANGRIEUL-KHIEUKH
+D7D8  ; [.38B0.0020.0002] # HANGUL JONGSEONG RIEUL-MIEUM-HIEUH
+D7D9  ; [.38B1.0020.0002] # HANGUL JONGSEONG RIEUL-PIEUP-TIKEUT
+D7DA  ; [.38B2.0020.0002] # HANGUL JONGSEONG RIEUL-PIEUP-PHIEUPH
+D7DB  ; [.38B3.0020.0002] # HANGUL JONGSEONG RIEUL-YESIEUNG
+D7DC  ; [.38B4.0020.0002] # HANGUL JONGSEONG RIEUL-YEORINHIEUH-HIEUH
+D7DD  ; [.38B5.0020.0002] # HANGUL JONGSEONG KAPYEOUNRIEUL
+D7DE  ; [.38B6.0020.0002] # HANGUL JONGSEONG MIEUM-NIEUN
+D7DF  ; [.38B7.0020.0002] # HANGUL JONGSEONG MIEUM-SSANGNIEUN
+D7E0  ; [.38B8.0020.0002] # HANGUL JONGSEONG SSANGMIEUM
+D7E1  ; [.38B9.0020.0002] # HANGUL JONGSEONG MIEUM-PIEUP-SIOS
+D7E2  ; [.38BA.0020.0002] # HANGUL JONGSEONG MIEUM-CIEUC
+D7E3  ; [.38BB.0020.0002] # HANGUL JONGSEONG PIEUP-TIKEUT
+D7E4  ; [.38BC.0020.0002] # HANGUL JONGSEONG PIEUP-RIEUL-PHIEUPH
+D7E5  ; [.38BD.0020.0002] # HANGUL JONGSEONG PIEUP-MIEUM
+D7E6  ; [.38BE.0020.0002] # HANGUL JONGSEONG SSANGPIEUP
+D7E7  ; [.38BF.0020.0002] # HANGUL JONGSEONG PIEUP-SIOS-TIKEUT
+D7E8  ; [.38C0.0020.0002] # HANGUL JONGSEONG PIEUP-CIEUC
+D7E9  ; [.38C1.0020.0002] # HANGUL JONGSEONG PIEUP-CHIEUCH
+D7EA  ; [.38C2.0020.0002] # HANGUL JONGSEONG SIOS-MIEUM
+D7EB  ; [.38C3.0020.0002] # HANGUL JONGSEONG SIOS-KAPYEOUNPIEUP
+D7EC  ; [.38C4.0020.0002] # HANGUL JONGSEONG SSANGSIOS-KIYEOK
+D7ED  ; [.38C5.0020.0002] # HANGUL JONGSEONG SSANGSIOS-TIKEUT
+D7EE  ; [.38C6.0020.0002] # HANGUL JONGSEONG SIOS-PANSIOS
+D7EF  ; [.38C7.0020.0002] # HANGUL JONGSEONG SIOS-CIEUC
+D7F0  ; [.38C8.0020.0002] # HANGUL JONGSEONG SIOS-CHIEUCH
+D7F1  ; [.38C9.0020.0002] # HANGUL JONGSEONG SIOS-THIEUTH
+D7F2  ; [.38CA.0020.0002] # HANGUL JONGSEONG SIOS-HIEUH
+D7F3  ; [.38CB.0020.0002] # HANGUL JONGSEONG PANSIOS-PIEUP
+D7F4  ; [.38CC.0020.0002] # HANGUL JONGSEONG PANSIOS-KAPYEOUNPIEUP
+D7F5  ; [.38CD.0020.0002] # HANGUL JONGSEONG YESIEUNG-MIEUM
+D7F6  ; [.38CE.0020.0002] # HANGUL JONGSEONG YESIEUNG-HIEUH
+D7F7  ; [.38CF.0020.0002] # HANGUL JONGSEONG CIEUC-PIEUP
+D7F8  ; [.38D0.0020.0002] # HANGUL JONGSEONG CIEUC-SSANGPIEUP
+D7F9  ; [.38D1.0020.0002] # HANGUL JONGSEONG SSANGCIEUC
+D7FA  ; [.38D2.0020.0002] # HANGUL JONGSEONG PHIEUPH-SIOS
+D7FB  ; [.38D3.0020.0002] # HANGUL JONGSEONG PHIEUPH-THIEUTH
+3041  ; [.38D4.0020.000D] # HIRAGANA LETTER SMALL A
+3042  ; [.38D4.0020.000E] # HIRAGANA LETTER A
+30A1  ; [.38D4.0020.000F] # KATAKANA LETTER SMALL A
+FF67  ; [.38D4.0020.0010] # HALFWIDTH KATAKANA LETTER SMALL A
+30A2  ; [.38D4.0020.0011] # KATAKANA LETTER A
+FF71  ; [.38D4.0020.0012] # HALFWIDTH KATAKANA LETTER A
+32D0  ; [.38D4.0020.0013] # CIRCLED KATAKANA A
+3303  ; [.38D4.0020.001C][.18D4.0020.001C][.38FE.0020.001C] # SQUARE AARU
+3300  ; [.38D4.0020.001C][.38EE.0020.001C][.0000.0038.001C][.18D4.0020.001C][.38E8.0020.001C] # SQUARE APAATO
+3301  ; [.38D4.0020.001C][.38FE.0020.001C][.38F0.0020.001C][.38D4.0020.001C] # SQUARE ARUHUA
+3302  ; [.38D4.0020.001C][.3905.0020.001C][.38F1.0020.001C][.0000.0038.001C][.38D4.0020.001C] # SQUARE ANPEA
+3043  ; [.38D5.0020.000D] # HIRAGANA LETTER SMALL I
+3044  ; [.38D5.0020.000E] # HIRAGANA LETTER I
+30A3  ; [.38D5.0020.000F] # KATAKANA LETTER SMALL I
+FF68  ; [.38D5.0020.0010] # HALFWIDTH KATAKANA LETTER SMALL I
+30A4  ; [.38D5.0020.0011] # KATAKANA LETTER I
+FF72  ; [.38D5.0020.0012] # HALFWIDTH KATAKANA LETTER I
+32D1  ; [.38D5.0020.0013] # CIRCLED KATAKANA I
+3304  ; [.38D5.0020.001C][.38EA.0020.001C][.3905.0020.001C][.38DC.0020.001C][.0000.0037.001C] # SQUARE ININGU
+3305  ; [.38D5.0020.001C][.3905.0020.001C][.38E5.0020.001C] # SQUARE INTI
+3045  ; [.38D6.0020.000D] # HIRAGANA LETTER SMALL U
+3046  ; [.38D6.0020.000E] # HIRAGANA LETTER U
+30A5  ; [.38D6.0020.000F] # KATAKANA LETTER SMALL U
+FF69  ; [.38D6.0020.0010] # HALFWIDTH KATAKANA LETTER SMALL U
+30A6  ; [.38D6.0020.0011] # KATAKANA LETTER U
+FF73  ; [.38D6.0020.0012] # HALFWIDTH KATAKANA LETTER U
+32D2  ; [.38D6.0020.0013] # CIRCLED KATAKANA U
+3094  ; [.38D6.0020.000E][.0000.0037.0002] # HIRAGANA LETTER VU
+30F4  ; [.38D6.0020.0011][.0000.0037.0002] # KATAKANA LETTER VU
+3306  ; [.38D6.0020.001C][.38D9.0020.001C][.3905.0020.001C] # SQUARE UON
+1B000 ; [.38D7.0020.0011] # KATAKANA LETTER ARCHAIC E
+3047  ; [.38D8.0020.000D] # HIRAGANA LETTER SMALL E
+3048  ; [.38D8.0020.000E] # HIRAGANA LETTER E
+30A7  ; [.38D8.0020.000F] # KATAKANA LETTER SMALL E
+FF6A  ; [.38D8.0020.0010] # HALFWIDTH KATAKANA LETTER SMALL E
+30A8  ; [.38D8.0020.0011] # KATAKANA LETTER E
+FF74  ; [.38D8.0020.0012] # HALFWIDTH KATAKANA LETTER E
+32D3  ; [.38D8.0020.0013] # CIRCLED KATAKANA E
+3308  ; [.38D8.0020.001C][.18D4.0020.001C][.38DA.0020.001C][.18D4.0020.001C] # SQUARE EEKAA
+3307  ; [.38D8.0020.001C][.38E1.0020.001C][.38DC.0020.001C][.18D4.0020.001C][.38E8.0020.001C][.0000.0037.001C] # SQUARE ESUKUUDO
+3049  ; [.38D9.0020.000D] # HIRAGANA LETTER SMALL O
+304A  ; [.38D9.0020.000E] # HIRAGANA LETTER O
+30A9  ; [.38D9.0020.000F] # KATAKANA LETTER SMALL O
+FF6B  ; [.38D9.0020.0010] # HALFWIDTH KATAKANA LETTER SMALL O
+30AA  ; [.38D9.0020.0011] # KATAKANA LETTER O
+FF75  ; [.38D9.0020.0012] # HALFWIDTH KATAKANA LETTER O
+32D4  ; [.38D9.0020.0013] # CIRCLED KATAKANA O
+330A  ; [.38D9.0020.001C][.18D4.0020.001C][.38F5.0020.001C] # SQUARE OOMU
+3309  ; [.38D9.0020.001C][.3905.0020.001C][.38E1.0020.001C] # SQUARE ONSU
+3095  ; [.38DA.0020.000D] # HIRAGANA LETTER SMALL KA
+304B  ; [.38DA.0020.000E] # HIRAGANA LETTER KA
+30F5  ; [.38DA.0020.000F] # KATAKANA LETTER SMALL KA
+30AB  ; [.38DA.0020.0011] # KATAKANA LETTER KA
+FF76  ; [.38DA.0020.0012] # HALFWIDTH KATAKANA LETTER KA
+32D5  ; [.38DA.0020.0013] # CIRCLED KATAKANA KA
+304C  ; [.38DA.0020.000E][.0000.0037.0002] # HIRAGANA LETTER GA
+30AC  ; [.38DA.0020.0011][.0000.0037.0002] # KATAKANA LETTER GA
+330B  ; [.38DA.0020.001C][.38D5.0020.001C][.38FD.0020.001C] # SQUARE KAIRI
+330C  ; [.38DA.0020.001C][.38FC.0020.001C][.38E6.0020.001C][.38E8.0020.001C] # SQUARE KARATTO
+330D  ; [.38DA.0020.001C][.3900.0020.001C][.38FD.0020.001C][.18D4.0020.001C] # SQUARE KARORII
+330E  ; [.38DA.0020.001C][.0000.0037.001C][.3900.0020.001C][.3905.0020.001C] # SQUARE GARON
+330F  ; [.38DA.0020.001C][.0000.0037.001C][.3905.0020.001C][.38F3.0020.001C] # SQUARE GANMA
+304D  ; [.38DB.0020.000E] # HIRAGANA LETTER KI
+30AD  ; [.38DB.0020.0011] # KATAKANA LETTER KI
+FF77  ; [.38DB.0020.0012] # HALFWIDTH KATAKANA LETTER KI
+32D6  ; [.38DB.0020.0013] # CIRCLED KATAKANA KI
+304E  ; [.38DB.0020.000E][.0000.0037.0002] # HIRAGANA LETTER GI
+30AE  ; [.38DB.0020.0011][.0000.0037.0002] # KATAKANA LETTER GI
+3310  ; [.38DB.0020.001C][.0000.0037.001C][.38DA.0020.001C][.0000.0037.001C] # SQUARE GIGA
+3311  ; [.38DB.0020.001C][.0000.0037.001C][.38EA.0020.001C][.18D4.0020.001C] # SQUARE GINII
+3312  ; [.38DB.0020.001C][.38F9.0020.001C][.38FD.0020.001C][.18D4.0020.001C] # SQUARE KYURII
+3313  ; [.38DB.0020.001C][.0000.0037.001C][.38FE.0020.001C][.38E4.0020.001C][.0000.0037.001C][.18D4.0020.001C] # SQUARE GIRUDAA
+3314  ; [.38DB.0020.001C][.3900.0020.001C] # SQUARE KIRO
+3315  ; [.38DB.0020.001C][.3900.0020.001C][.38DC.0020.001C][.0000.0037.001C][.38FC.0020.001C][.38F5.0020.001C] # SQUARE KIROGURAMU
+3316  ; [.38DB.0020.001C][.3900.0020.001C][.38F6.0020.001C][.18D4.0020.001C][.38E8.0020.001C][.38FE.0020.001C] # SQUARE KIROMEETORU
+3317  ; [.38DB.0020.001C][.3900.0020.001C][.3901.0020.001C][.38E6.0020.001C][.38E8.0020.001C] # SQUARE KIROWATTO
+304F  ; [.38DC.0020.000E] # HIRAGANA LETTER KU
+31F0  ; [.38DC.0020.000F] # KATAKANA LETTER SMALL KU
+30AF  ; [.38DC.0020.0011] # KATAKANA LETTER KU
+FF78  ; [.38DC.0020.0012] # HALFWIDTH KATAKANA LETTER KU
+32D7  ; [.38DC.0020.0013] # CIRCLED KATAKANA KU
+3050  ; [.38DC.0020.000E][.0000.0037.0002] # HIRAGANA LETTER GU
+30B0  ; [.38DC.0020.0011][.0000.0037.0002] # KATAKANA LETTER GU
+3318  ; [.38DC.0020.001C][.0000.0037.001C][.38FC.0020.001C][.38F5.0020.001C] # SQUARE GURAMU
+3319  ; [.38DC.0020.001C][.0000.0037.001C][.38FC.0020.001C][.38F5.0020.001C][.38E8.0020.001C][.3905.0020.001C] # SQUARE GURAMUTON
+331A  ; [.38DC.0020.001C][.38FE.0020.001C][.38E2.0020.001C][.0000.0037.001C][.38D5.0020.001C][.3900.0020.001C] # SQUARE KURUZEIRO
+331B  ; [.38DC.0020.001C][.3900.0020.001C][.18D4.0020.001C][.38EC.0020.001C] # SQUARE KUROONE
+3096  ; [.38DD.0020.000D] # HIRAGANA LETTER SMALL KE
+3051  ; [.38DD.0020.000E] # HIRAGANA LETTER KE
+30F6  ; [.38DD.0020.000F] # KATAKANA LETTER SMALL KE
+30B1  ; [.38DD.0020.0011] # KATAKANA LETTER KE
+FF79  ; [.38DD.0020.0012] # HALFWIDTH KATAKANA LETTER KE
+32D8  ; [.38DD.0020.0013] # CIRCLED KATAKANA KE
+3052  ; [.38DD.0020.000E][.0000.0037.0002] # HIRAGANA LETTER GE
+30B2  ; [.38DD.0020.0011][.0000.0037.0002] # KATAKANA LETTER GE
+331C  ; [.38DD.0020.001C][.18D4.0020.001C][.38E1.0020.001C] # SQUARE KEESU
+3053  ; [.38DE.0020.000E] # HIRAGANA LETTER KO
+30B3  ; [.38DE.0020.0011] # KATAKANA LETTER KO
+FF7A  ; [.38DE.0020.0012] # HALFWIDTH KATAKANA LETTER KO
+32D9  ; [.38DE.0020.0013] # CIRCLED KATAKANA KO
+3054  ; [.38DE.0020.000E][.0000.0037.0002] # HIRAGANA LETTER GO
+30B4  ; [.38DE.0020.0011][.0000.0037.0002] # KATAKANA LETTER GO
+331E  ; [.38DE.0020.001C][.18D4.0020.001C][.38F2.0020.001C][.0000.0038.001C] # SQUARE KOOPO
+1F201 ; [.38DE.0020.001C][.38DE.0020.001C] # SQUARED KATAKANA KOKO
+30FF  ; [.38DE.0020.0016][.38E8.0020.0016] # KATAKANA DIGRAPH KOTO
+331D  ; [.38DE.0020.001C][.38FE.0020.001C][.38E9.0020.001C] # SQUARE KORUNA
+3055  ; [.38DF.0020.000E] # HIRAGANA LETTER SA
+30B5  ; [.38DF.0020.0011] # KATAKANA LETTER SA
+FF7B  ; [.38DF.0020.0012] # HALFWIDTH KATAKANA LETTER SA
+32DA  ; [.38DF.0020.0013] # CIRCLED KATAKANA SA
+1F202 ; [.38DF.0020.001C] # SQUARED KATAKANA SA
+3056  ; [.38DF.0020.000E][.0000.0037.0002] # HIRAGANA LETTER ZA
+30B6  ; [.38DF.0020.0011][.0000.0037.0002] # KATAKANA LETTER ZA
+331F  ; [.38DF.0020.001C][.38D5.0020.001C][.38DC.0020.001C][.38FE.0020.001C] # SQUARE SAIKURU
+3320  ; [.38DF.0020.001C][.3905.0020.001C][.38E5.0020.001C][.18D4.0020.001C][.38F5.0020.001C] # SQUARE SANTIIMU
+3057  ; [.38E0.0020.000E] # HIRAGANA LETTER SI
+31F1  ; [.38E0.0020.000F] # KATAKANA LETTER SMALL SI
+30B7  ; [.38E0.0020.0011] # KATAKANA LETTER SI
+FF7C  ; [.38E0.0020.0012] # HALFWIDTH KATAKANA LETTER SI
+32DB  ; [.38E0.0020.0013] # CIRCLED KATAKANA SI
+3058  ; [.38E0.0020.000E][.0000.0037.0002] # HIRAGANA LETTER ZI
+30B8  ; [.38E0.0020.0011][.0000.0037.0002] # KATAKANA LETTER ZI
+3006  ; [.38E0.0020.0004][.38F6.0020.0004] # IDEOGRAPHIC CLOSING MARK
+3321  ; [.38E0.0020.001C][.38FD.0020.001C][.3905.0020.001C][.38DC.0020.001C][.0000.0037.001C] # SQUARE SIRINGU
+3059  ; [.38E1.0020.000E] # HIRAGANA LETTER SU
+31F2  ; [.38E1.0020.000F] # KATAKANA LETTER SMALL SU
+30B9  ; [.38E1.0020.0011] # KATAKANA LETTER SU
+FF7D  ; [.38E1.0020.0012] # HALFWIDTH KATAKANA LETTER SU
+32DC  ; [.38E1.0020.0013] # CIRCLED KATAKANA SU
+305A  ; [.38E1.0020.000E][.0000.0037.0002] # HIRAGANA LETTER ZU
+30BA  ; [.38E1.0020.0011][.0000.0037.0002] # KATAKANA LETTER ZU
+305B  ; [.38E2.0020.000E] # HIRAGANA LETTER SE
+30BB  ; [.38E2.0020.0011] # KATAKANA LETTER SE
+FF7E  ; [.38E2.0020.0012] # HALFWIDTH KATAKANA LETTER SE
+32DD  ; [.38E2.0020.0013] # CIRCLED KATAKANA SE
+305C  ; [.38E2.0020.000E][.0000.0037.0002] # HIRAGANA LETTER ZE
+30BC  ; [.38E2.0020.0011][.0000.0037.0002] # KATAKANA LETTER ZE
+3322  ; [.38E2.0020.001C][.3905.0020.001C][.38E5.0020.001C] # SQUARE SENTI
+3323  ; [.38E2.0020.001C][.3905.0020.001C][.38E8.0020.001C] # SQUARE SENTO
+305D  ; [.38E3.0020.000E] # HIRAGANA LETTER SO
+30BD  ; [.38E3.0020.0011] # KATAKANA LETTER SO
+FF7F  ; [.38E3.0020.0012] # HALFWIDTH KATAKANA LETTER SO
+32DE  ; [.38E3.0020.0013] # CIRCLED KATAKANA SO
+305E  ; [.38E3.0020.000E][.0000.0037.0002] # HIRAGANA LETTER ZO
+30BE  ; [.38E3.0020.0011][.0000.0037.0002] # KATAKANA LETTER ZO
+305F  ; [.38E4.0020.000E] # HIRAGANA LETTER TA
+30BF  ; [.38E4.0020.0011] # KATAKANA LETTER TA
+FF80  ; [.38E4.0020.0012] # HALFWIDTH KATAKANA LETTER TA
+32DF  ; [.38E4.0020.0013] # CIRCLED KATAKANA TA
+3060  ; [.38E4.0020.000E][.0000.0037.0002] # HIRAGANA LETTER DA
+30C0  ; [.38E4.0020.0011][.0000.0037.0002] # KATAKANA LETTER DA
+3324  ; [.38E4.0020.001C][.0000.0037.001C][.18D4.0020.001C][.38E1.0020.001C] # SQUARE DAASU
+3061  ; [.38E5.0020.000E] # HIRAGANA LETTER TI
+30C1  ; [.38E5.0020.0011] # KATAKANA LETTER TI
+FF81  ; [.38E5.0020.0012] # HALFWIDTH KATAKANA LETTER TI
+32E0  ; [.38E5.0020.0013] # CIRCLED KATAKANA TI
+3062  ; [.38E5.0020.000E][.0000.0037.0002] # HIRAGANA LETTER DI
+30C2  ; [.38E5.0020.0011][.0000.0037.0002] # KATAKANA LETTER DI
+3063  ; [.38E6.0020.000D] # HIRAGANA LETTER SMALL TU
+3064  ; [.38E6.0020.000E] # HIRAGANA LETTER TU
+30C3  ; [.38E6.0020.000F] # KATAKANA LETTER SMALL TU
+FF6F  ; [.38E6.0020.0010] # HALFWIDTH KATAKANA LETTER SMALL TU
+30C4  ; [.38E6.0020.0011] # KATAKANA LETTER TU
+FF82  ; [.38E6.0020.0012] # HALFWIDTH KATAKANA LETTER TU
+32E1  ; [.38E6.0020.0013] # CIRCLED KATAKANA TU
+3065  ; [.38E6.0020.000E][.0000.0037.0002] # HIRAGANA LETTER DU
+30C5  ; [.38E6.0020.0011][.0000.0037.0002] # KATAKANA LETTER DU
+3066  ; [.38E7.0020.000E] # HIRAGANA LETTER TE
+30C6  ; [.38E7.0020.0011] # KATAKANA LETTER TE
+FF83  ; [.38E7.0020.0012] # HALFWIDTH KATAKANA LETTER TE
+32E2  ; [.38E7.0020.0013] # CIRCLED KATAKANA TE
+3067  ; [.38E7.0020.000E][.0000.0037.0002] # HIRAGANA LETTER DE
+30C7  ; [.38E7.0020.0011][.0000.0037.0002] # KATAKANA LETTER DE
+1F213 ; [.38E7.0020.001C][.0000.0037.001C] # SQUARED KATAKANA DE
+3325  ; [.38E7.0020.001C][.0000.0037.001C][.38E0.0020.001C] # SQUARE DESI
+3068  ; [.38E8.0020.000E] # HIRAGANA LETTER TO
+31F3  ; [.38E8.0020.000F] # KATAKANA LETTER SMALL TO
+30C8  ; [.38E8.0020.0011] # KATAKANA LETTER TO
+FF84  ; [.38E8.0020.0012] # HALFWIDTH KATAKANA LETTER TO
+32E3  ; [.38E8.0020.0013] # CIRCLED KATAKANA TO
+3069  ; [.38E8.0020.000E][.0000.0037.0002] # HIRAGANA LETTER DO
+30C9  ; [.38E8.0020.0011][.0000.0037.0002] # KATAKANA LETTER DO
+3326  ; [.38E8.0020.001C][.0000.0037.001C][.38FE.0020.001C] # SQUARE DORU
+3327  ; [.38E8.0020.001C][.3905.0020.001C] # SQUARE TON
+306A  ; [.38E9.0020.000E] # HIRAGANA LETTER NA
+30CA  ; [.38E9.0020.0011] # KATAKANA LETTER NA
+FF85  ; [.38E9.0020.0012] # HALFWIDTH KATAKANA LETTER NA
+32E4  ; [.38E9.0020.0013] # CIRCLED KATAKANA NA
+3328  ; [.38E9.0020.001C][.38ED.0020.001C] # SQUARE NANO
+306B  ; [.38EA.0020.000E] # HIRAGANA LETTER NI
+30CB  ; [.38EA.0020.0011] # KATAKANA LETTER NI
+FF86  ; [.38EA.0020.0012] # HALFWIDTH KATAKANA LETTER NI
+32E5  ; [.38EA.0020.0013] # CIRCLED KATAKANA NI
+306C  ; [.38EB.0020.000E] # HIRAGANA LETTER NU
+31F4  ; [.38EB.0020.000F] # KATAKANA LETTER SMALL NU
+30CC  ; [.38EB.0020.0011] # KATAKANA LETTER NU
+FF87  ; [.38EB.0020.0012] # HALFWIDTH KATAKANA LETTER NU
+32E6  ; [.38EB.0020.0013] # CIRCLED KATAKANA NU
+306D  ; [.38EC.0020.000E] # HIRAGANA LETTER NE
+30CD  ; [.38EC.0020.0011] # KATAKANA LETTER NE
+FF88  ; [.38EC.0020.0012] # HALFWIDTH KATAKANA LETTER NE
+32E7  ; [.38EC.0020.0013] # CIRCLED KATAKANA NE
+306E  ; [.38ED.0020.000E] # HIRAGANA LETTER NO
+30CE  ; [.38ED.0020.0011] # KATAKANA LETTER NO
+FF89  ; [.38ED.0020.0012] # HALFWIDTH KATAKANA LETTER NO
+32E8  ; [.38ED.0020.0013] # CIRCLED KATAKANA NO
+3329  ; [.38ED.0020.001C][.38E6.0020.001C][.38E8.0020.001C] # SQUARE NOTTO
+306F  ; [.38EE.0020.000E] # HIRAGANA LETTER HA
+31F5  ; [.38EE.0020.000F] # KATAKANA LETTER SMALL HA
+30CF  ; [.38EE.0020.0011] # KATAKANA LETTER HA
+FF8A  ; [.38EE.0020.0012] # HALFWIDTH KATAKANA LETTER HA
+32E9  ; [.38EE.0020.0013] # CIRCLED KATAKANA HA
+3070  ; [.38EE.0020.000E][.0000.0037.0002] # HIRAGANA LETTER BA
+30D0  ; [.38EE.0020.0011][.0000.0037.0002] # KATAKANA LETTER BA
+3071  ; [.38EE.0020.000E][.0000.0038.0002] # HIRAGANA LETTER PA
+30D1  ; [.38EE.0020.0011][.0000.0038.0002] # KATAKANA LETTER PA
+332B  ; [.38EE.0020.001C][.0000.0038.001C][.18D4.0020.001C][.38E2.0020.001C][.3905.0020.001C][.38E8.0020.001C] # SQUARE PAASENTO
+332C  ; [.38EE.0020.001C][.0000.0038.001C][.18D4.0020.001C][.38E6.0020.001C] # SQUARE PAATU
+332D  ; [.38EE.0020.001C][.0000.0037.001C][.18D4.0020.001C][.38FF.0020.001C][.38FE.0020.001C] # SQUARE BAARERU
+332A  ; [.38EE.0020.001C][.38D5.0020.001C][.38E6.0020.001C] # SQUARE HAITU
+3072  ; [.38EF.0020.000E] # HIRAGANA LETTER HI
+31F6  ; [.38EF.0020.000F] # KATAKANA LETTER SMALL HI
+30D2  ; [.38EF.0020.0011] # KATAKANA LETTER HI
+FF8B  ; [.38EF.0020.0012] # HALFWIDTH KATAKANA LETTER HI
+32EA  ; [.38EF.0020.0013] # CIRCLED KATAKANA HI
+3073  ; [.38EF.0020.000E][.0000.0037.0002] # HIRAGANA LETTER BI
+30D3  ; [.38EF.0020.0011][.0000.0037.0002] # KATAKANA LETTER BI
+3074  ; [.38EF.0020.000E][.0000.0038.0002] # HIRAGANA LETTER PI
+30D4  ; [.38EF.0020.0011][.0000.0038.0002] # KATAKANA LETTER PI
+332E  ; [.38EF.0020.001C][.0000.0038.001C][.38D4.0020.001C][.38E1.0020.001C][.38E8.0020.001C][.38FE.0020.001C] # SQUARE PIASUTORU
+332F  ; [.38EF.0020.001C][.0000.0038.001C][.38DC.0020.001C][.38FE.0020.001C] # SQUARE PIKURU
+3330  ; [.38EF.0020.001C][.0000.0038.001C][.38DE.0020.001C] # SQUARE PIKO
+3331  ; [.38EF.0020.001C][.0000.0037.001C][.38FE.0020.001C] # SQUARE BIRU
+3075  ; [.38F0.0020.000E] # HIRAGANA LETTER HU
+31F7  ; [.38F0.0020.000F] # KATAKANA LETTER SMALL HU
+30D5  ; [.38F0.0020.0011] # KATAKANA LETTER HU
+FF8C  ; [.38F0.0020.0012] # HALFWIDTH KATAKANA LETTER HU
+32EB  ; [.38F0.0020.0013] # CIRCLED KATAKANA HU
+3076  ; [.38F0.0020.000E][.0000.0037.0002] # HIRAGANA LETTER BU
+30D6  ; [.38F0.0020.0011][.0000.0037.0002] # KATAKANA LETTER BU
+3077  ; [.38F0.0020.000E][.0000.0038.0002] # HIRAGANA LETTER PU
+30D7  ; [.38F0.0020.0011][.0000.0038.0002] # KATAKANA LETTER PU
+3332  ; [.38F0.0020.001C][.38D4.0020.001C][.38FC.0020.001C][.38E6.0020.001C][.38E8.0020.001C][.0000.0037.001C] # SQUARE HUARADDO
+3333  ; [.38F0.0020.001C][.38D5.0020.001C][.18D4.0020.001C][.38E8.0020.001C] # SQUARE HUIITO
+3334  ; [.38F0.0020.001C][.0000.0037.001C][.38E6.0020.001C][.38E0.0020.001C][.38D8.0020.001C][.38FE.0020.001C] # SQUARE BUSSYERU
+3335  ; [.38F0.0020.001C][.38FC.0020.001C][.3905.0020.001C] # SQUARE HURAN
+3078  ; [.38F1.0020.000E] # HIRAGANA LETTER HE
+31F8  ; [.38F1.0020.000F] # KATAKANA LETTER SMALL HE
+30D8  ; [.38F1.0020.0011] # KATAKANA LETTER HE
+FF8D  ; [.38F1.0020.0012] # HALFWIDTH KATAKANA LETTER HE
+32EC  ; [.38F1.0020.0013] # CIRCLED KATAKANA HE
+3079  ; [.38F1.0020.000E][.0000.0037.0002] # HIRAGANA LETTER BE
+30D9  ; [.38F1.0020.0011][.0000.0037.0002] # KATAKANA LETTER BE
+307A  ; [.38F1.0020.000E][.0000.0038.0002] # HIRAGANA LETTER PE
+30DA  ; [.38F1.0020.0011][.0000.0038.0002] # KATAKANA LETTER PE
+333B  ; [.38F1.0020.001C][.0000.0038.001C][.18D4.0020.001C][.38E0.0020.001C][.0000.0037.001C] # SQUARE PEEZI
+333C  ; [.38F1.0020.001C][.0000.0037.001C][.18D4.0020.001C][.38E4.0020.001C] # SQUARE BEETA
+3336  ; [.38F1.0020.001C][.38DC.0020.001C][.38E4.0020.001C][.18D4.0020.001C][.38FE.0020.001C] # SQUARE HEKUTAARU
+3337  ; [.38F1.0020.001C][.0000.0038.001C][.38E3.0020.001C] # SQUARE PESO
+3338  ; [.38F1.0020.001C][.0000.0038.001C][.38EA.0020.001C][.38EF.0020.001C] # SQUARE PENIHI
+3339  ; [.38F1.0020.001C][.38FE.0020.001C][.38E6.0020.001C] # SQUARE HERUTU
+333A  ; [.38F1.0020.001C][.0000.0038.001C][.3905.0020.001C][.38E1.0020.001C] # SQUARE PENSU
+307B  ; [.38F2.0020.000E] # HIRAGANA LETTER HO
+31F9  ; [.38F2.0020.000F] # KATAKANA LETTER SMALL HO
+30DB  ; [.38F2.0020.0011] # KATAKANA LETTER HO
+FF8E  ; [.38F2.0020.0012] # HALFWIDTH KATAKANA LETTER HO
+32ED  ; [.38F2.0020.0013] # CIRCLED KATAKANA HO
+307C  ; [.38F2.0020.000E][.0000.0037.0002] # HIRAGANA LETTER BO
+30DC  ; [.38F2.0020.0011][.0000.0037.0002] # KATAKANA LETTER BO
+307D  ; [.38F2.0020.000E][.0000.0038.0002] # HIRAGANA LETTER PO
+30DD  ; [.38F2.0020.0011][.0000.0038.0002] # KATAKANA LETTER PO
+3341  ; [.38F2.0020.001C][.18D4.0020.001C][.38FE.0020.001C] # SQUARE HOORU
+3342  ; [.38F2.0020.001C][.18D4.0020.001C][.3905.0020.001C] # SQUARE HOON
+333D  ; [.38F2.0020.001C][.0000.0038.001C][.38D5.0020.001C][.3905.0020.001C][.38E8.0020.001C] # SQUARE POINTO
+1F200 ; [.38F2.0020.001C][.38DA.0020.001C] # SQUARE HIRAGANA HOKA
+333E  ; [.38F2.0020.001C][.0000.0037.001C][.38FE.0020.001C][.38E8.0020.001C] # SQUARE BORUTO
+333F  ; [.38F2.0020.001C][.3905.0020.001C] # SQUARE HON
+3340  ; [.38F2.0020.001C][.0000.0038.001C][.3905.0020.001C][.38E8.0020.001C][.0000.0037.001C] # SQUARE PONDO
+307E  ; [.38F3.0020.000E] # HIRAGANA LETTER MA
+30DE  ; [.38F3.0020.0011] # KATAKANA LETTER MA
+FF8F  ; [.38F3.0020.0012] # HALFWIDTH KATAKANA LETTER MA
+32EE  ; [.38F3.0020.0013] # CIRCLED KATAKANA MA
+3343  ; [.38F3.0020.001C][.38D5.0020.001C][.38DC.0020.001C][.3900.0020.001C] # SQUARE MAIKURO
+3344  ; [.38F3.0020.001C][.38D5.0020.001C][.38FE.0020.001C] # SQUARE MAIRU
+303C  ; [.38F3.0020.0004][.38E1.0020.0004] # MASU MARK
+3345  ; [.38F3.0020.001C][.38E6.0020.001C][.38EE.0020.001C] # SQUARE MAHHA
+3346  ; [.38F3.0020.001C][.38FE.0020.001C][.38DC.0020.001C] # SQUARE MARUKU
+3347  ; [.38F3.0020.001C][.3905.0020.001C][.38E0.0020.001C][.38FB.0020.001C][.3905.0020.001C] # SQUARE MANSYON
+307F  ; [.38F4.0020.000E] # HIRAGANA LETTER MI
+30DF  ; [.38F4.0020.0011] # KATAKANA LETTER MI
+FF90  ; [.38F4.0020.0012] # HALFWIDTH KATAKANA LETTER MI
+32EF  ; [.38F4.0020.0013] # CIRCLED KATAKANA MI
+3348  ; [.38F4.0020.001C][.38DC.0020.001C][.3900.0020.001C][.3905.0020.001C] # SQUARE MIKURON
+3349  ; [.38F4.0020.001C][.38FD.0020.001C] # SQUARE MIRI
+334A  ; [.38F4.0020.001C][.38FD.0020.001C][.38EE.0020.001C][.0000.0037.001C][.18D4.0020.001C][.38FE.0020.001C] # SQUARE MIRIBAARU
+3080  ; [.38F5.0020.000E] # HIRAGANA LETTER MU
+31FA  ; [.38F5.0020.000F] # KATAKANA LETTER SMALL MU
+30E0  ; [.38F5.0020.0011] # KATAKANA LETTER MU
+FF91  ; [.38F5.0020.0012] # HALFWIDTH KATAKANA LETTER MU
+32F0  ; [.38F5.0020.0013] # CIRCLED KATAKANA MU
+3081  ; [.38F6.0020.000E] # HIRAGANA LETTER ME
+30E1  ; [.38F6.0020.0011] # KATAKANA LETTER ME
+FF92  ; [.38F6.0020.0012] # HALFWIDTH KATAKANA LETTER ME
+32F1  ; [.38F6.0020.0013] # CIRCLED KATAKANA ME
+334D  ; [.38F6.0020.001C][.18D4.0020.001C][.38E8.0020.001C][.38FE.0020.001C] # SQUARE MEETORU
+334B  ; [.38F6.0020.001C][.38DA.0020.001C][.0000.0037.001C] # SQUARE MEGA
+334C  ; [.38F6.0020.001C][.38DA.0020.001C][.0000.0037.001C][.38E8.0020.001C][.3905.0020.001C] # SQUARE MEGATON
+3082  ; [.38F7.0020.000E] # HIRAGANA LETTER MO
+30E2  ; [.38F7.0020.0011] # KATAKANA LETTER MO
+FF93  ; [.38F7.0020.0012] # HALFWIDTH KATAKANA LETTER MO
+32F2  ; [.38F7.0020.0013] # CIRCLED KATAKANA MO
+3083  ; [.38F8.0020.000D] # HIRAGANA LETTER SMALL YA
+3084  ; [.38F8.0020.000E] # HIRAGANA LETTER YA
+30E3  ; [.38F8.0020.000F] # KATAKANA LETTER SMALL YA
+FF6C  ; [.38F8.0020.0010] # HALFWIDTH KATAKANA LETTER SMALL YA
+30E4  ; [.38F8.0020.0011] # KATAKANA LETTER YA
+FF94  ; [.38F8.0020.0012] # HALFWIDTH KATAKANA LETTER YA
+32F3  ; [.38F8.0020.0013] # CIRCLED KATAKANA YA
+334E  ; [.38F8.0020.001C][.18D4.0020.001C][.38E8.0020.001C][.0000.0037.001C] # SQUARE YAADO
+334F  ; [.38F8.0020.001C][.18D4.0020.001C][.38FE.0020.001C] # SQUARE YAARU
+3085  ; [.38F9.0020.000D] # HIRAGANA LETTER SMALL YU
+3086  ; [.38F9.0020.000E] # HIRAGANA LETTER YU
+30E5  ; [.38F9.0020.000F] # KATAKANA LETTER SMALL YU
+FF6D  ; [.38F9.0020.0010] # HALFWIDTH KATAKANA LETTER SMALL YU
+30E6  ; [.38F9.0020.0011] # KATAKANA LETTER YU
+FF95  ; [.38F9.0020.0012] # HALFWIDTH KATAKANA LETTER YU
+32F4  ; [.38F9.0020.0013] # CIRCLED KATAKANA YU
+3350  ; [.38F9.0020.001C][.38D4.0020.001C][.3905.0020.001C] # SQUARE YUAN
+1B001 ; [.38FA.0020.000E] # HIRAGANA LETTER ARCHAIC YE
+3087  ; [.38FB.0020.000D] # HIRAGANA LETTER SMALL YO
+3088  ; [.38FB.0020.000E] # HIRAGANA LETTER YO
+30E7  ; [.38FB.0020.000F] # KATAKANA LETTER SMALL YO
+FF6E  ; [.38FB.0020.0010] # HALFWIDTH KATAKANA LETTER SMALL YO
+30E8  ; [.38FB.0020.0011] # KATAKANA LETTER YO
+FF96  ; [.38FB.0020.0012] # HALFWIDTH KATAKANA LETTER YO
+32F5  ; [.38FB.0020.0013] # CIRCLED KATAKANA YO
+309F  ; [.38FB.0020.0016][.38FD.0020.0016] # HIRAGANA DIGRAPH YORI
+3089  ; [.38FC.0020.000E] # HIRAGANA LETTER RA
+31FB  ; [.38FC.0020.000F] # KATAKANA LETTER SMALL RA
+30E9  ; [.38FC.0020.0011] # KATAKANA LETTER RA
+FF97  ; [.38FC.0020.0012] # HALFWIDTH KATAKANA LETTER RA
+32F6  ; [.38FC.0020.0013] # CIRCLED KATAKANA RA
+308A  ; [.38FD.0020.000E] # HIRAGANA LETTER RI
+31FC  ; [.38FD.0020.000F] # KATAKANA LETTER SMALL RI
+30EA  ; [.38FD.0020.0011] # KATAKANA LETTER RI
+FF98  ; [.38FD.0020.0012] # HALFWIDTH KATAKANA LETTER RI
+32F7  ; [.38FD.0020.0013] # CIRCLED KATAKANA RI
+3351  ; [.38FD.0020.001C][.38E6.0020.001C][.38E8.0020.001C][.38FE.0020.001C] # SQUARE RITTORU
+3352  ; [.38FD.0020.001C][.38FC.0020.001C] # SQUARE RIRA
+308B  ; [.38FE.0020.000E] # HIRAGANA LETTER RU
+31FD  ; [.38FE.0020.000F] # KATAKANA LETTER SMALL RU
+30EB  ; [.38FE.0020.0011] # KATAKANA LETTER RU
+FF99  ; [.38FE.0020.0012] # HALFWIDTH KATAKANA LETTER RU
+32F8  ; [.38FE.0020.0013] # CIRCLED KATAKANA RU
+3354  ; [.38FE.0020.001C][.18D4.0020.001C][.38F0.0020.001C][.0000.0037.001C][.38FE.0020.001C] # SQUARE RUUBURU
+3353  ; [.38FE.0020.001C][.38EF.0020.001C][.0000.0038.001C][.18D4.0020.001C] # SQUARE RUPII
+308C  ; [.38FF.0020.000E] # HIRAGANA LETTER RE
+31FE  ; [.38FF.0020.000F] # KATAKANA LETTER SMALL RE
+30EC  ; [.38FF.0020.0011] # KATAKANA LETTER RE
+FF9A  ; [.38FF.0020.0012] # HALFWIDTH KATAKANA LETTER RE
+32F9  ; [.38FF.0020.0013] # CIRCLED KATAKANA RE
+3355  ; [.38FF.0020.001C][.38F5.0020.001C] # SQUARE REMU
+3356  ; [.38FF.0020.001C][.3905.0020.001C][.38E8.0020.001C][.38DD.0020.001C][.0000.0037.001C][.3905.0020.001C] # SQUARE RENTOGEN
+308D  ; [.3900.0020.000E] # HIRAGANA LETTER RO
+31FF  ; [.3900.0020.000F] # KATAKANA LETTER SMALL RO
+30ED  ; [.3900.0020.0011] # KATAKANA LETTER RO
+FF9B  ; [.3900.0020.0012] # HALFWIDTH KATAKANA LETTER RO
+32FA  ; [.3900.0020.0013] # CIRCLED KATAKANA RO
+308E  ; [.3901.0020.000D] # HIRAGANA LETTER SMALL WA
+308F  ; [.3901.0020.000E] # HIRAGANA LETTER WA
+30EE  ; [.3901.0020.000F] # KATAKANA LETTER SMALL WA
+30EF  ; [.3901.0020.0011] # KATAKANA LETTER WA
+FF9C  ; [.3901.0020.0012] # HALFWIDTH KATAKANA LETTER WA
+32FB  ; [.3901.0020.0013] # CIRCLED KATAKANA WA
+30F7  ; [.3901.0020.0011][.0000.0037.0002] # KATAKANA LETTER VA
+3357  ; [.3901.0020.001C][.38E6.0020.001C][.38E8.0020.001C] # SQUARE WATTO
+3090  ; [.3902.0020.000E] # HIRAGANA LETTER WI
+30F0  ; [.3902.0020.0011] # KATAKANA LETTER WI
+32FC  ; [.3902.0020.0013] # CIRCLED KATAKANA WI
+30F8  ; [.3902.0020.0011][.0000.0037.0002] # KATAKANA LETTER VI
+3091  ; [.3903.0020.000E] # HIRAGANA LETTER WE
+30F1  ; [.3903.0020.0011] # KATAKANA LETTER WE
+32FD  ; [.3903.0020.0013] # CIRCLED KATAKANA WE
+30F9  ; [.3903.0020.0011][.0000.0037.0002] # KATAKANA LETTER VE
+3092  ; [.3904.0020.000E] # HIRAGANA LETTER WO
+30F2  ; [.3904.0020.0011] # KATAKANA LETTER WO
+FF66  ; [.3904.0020.0012] # HALFWIDTH KATAKANA LETTER WO
+32FE  ; [.3904.0020.0013] # CIRCLED KATAKANA WO
+30FA  ; [.3904.0020.0011][.0000.0037.0002] # KATAKANA LETTER VO
+3093  ; [.3905.0020.000E] # HIRAGANA LETTER N
+30F3  ; [.3905.0020.0011] # KATAKANA LETTER N
+FF9D  ; [.3905.0020.0012] # HALFWIDTH KATAKANA LETTER N
+3105  ; [.3906.0020.0002] # BOPOMOFO LETTER B
+31A0  ; [.3906.0020.0004][.0000.0109.0004] # BOPOMOFO LETTER BU
+3106  ; [.3907.0020.0002] # BOPOMOFO LETTER P
+31B4  ; [.3907.0020.0019] # BOPOMOFO FINAL LETTER P
+3107  ; [.3908.0020.0002] # BOPOMOFO LETTER M
+3108  ; [.3909.0020.0002] # BOPOMOFO LETTER F
+312A  ; [.390A.0020.0002] # BOPOMOFO LETTER V
+3109  ; [.390B.0020.0002] # BOPOMOFO LETTER D
+310A  ; [.390C.0020.0002] # BOPOMOFO LETTER T
+31B5  ; [.390C.0020.0019] # BOPOMOFO FINAL LETTER T
+310B  ; [.390D.0020.0002] # BOPOMOFO LETTER N
+310C  ; [.390E.0020.0002] # BOPOMOFO LETTER L
+310D  ; [.390F.0020.0002] # BOPOMOFO LETTER G
+31A3  ; [.390F.0020.0004][.0000.0109.0004] # BOPOMOFO LETTER GU
+310E  ; [.3910.0020.0002] # BOPOMOFO LETTER K
+31B6  ; [.3910.0020.0019] # BOPOMOFO FINAL LETTER K
+312B  ; [.3911.0020.0002] # BOPOMOFO LETTER NG
+31AD  ; [.3912.0020.0002] # BOPOMOFO LETTER NGG
+310F  ; [.3913.0020.0002] # BOPOMOFO LETTER H
+31B7  ; [.3913.0020.0019] # BOPOMOFO FINAL LETTER H
+3110  ; [.3914.0020.0002] # BOPOMOFO LETTER J
+31A2  ; [.3914.0020.0004][.0000.0109.0004] # BOPOMOFO LETTER JI
+3111  ; [.3915.0020.0002] # BOPOMOFO LETTER Q
+3112  ; [.3916.0020.0002] # BOPOMOFO LETTER X
+312C  ; [.3917.0020.0002] # BOPOMOFO LETTER GN
+3113  ; [.3918.0020.0002] # BOPOMOFO LETTER ZH
+3114  ; [.3919.0020.0002] # BOPOMOFO LETTER CH
+3115  ; [.391A.0020.0002] # BOPOMOFO LETTER SH
+3116  ; [.391B.0020.0002] # BOPOMOFO LETTER R
+3117  ; [.391C.0020.0002] # BOPOMOFO LETTER Z
+31A1  ; [.391C.0020.0004][.0000.0109.0004] # BOPOMOFO LETTER ZI
+3118  ; [.391D.0020.0002] # BOPOMOFO LETTER C
+3119  ; [.391E.0020.0002] # BOPOMOFO LETTER S
+31B8  ; [.391F.0020.0002] # BOPOMOFO LETTER GH
+31B9  ; [.3920.0020.0002] # BOPOMOFO LETTER LH
+31BA  ; [.3921.0020.0002] # BOPOMOFO LETTER ZY
+311A  ; [.3922.0020.0002] # BOPOMOFO LETTER A
+31A9  ; [.3922.0020.0004][.0000.0109.0004] # BOPOMOFO LETTER ANN
+311B  ; [.3923.0020.0002] # BOPOMOFO LETTER O
+31A7  ; [.3923.0020.0004][.0000.0109.0004] # BOPOMOFO LETTER ONN
+31A6  ; [.3924.0020.0002] # BOPOMOFO LETTER OO
+311C  ; [.3925.0020.0002] # BOPOMOFO LETTER E
+311D  ; [.3926.0020.0002] # BOPOMOFO LETTER EH
+31A4  ; [.3927.0020.0002] # BOPOMOFO LETTER EE
+31A5  ; [.3927.0020.0004][.0000.0109.0004] # BOPOMOFO LETTER ENN
+311E  ; [.3928.0020.0002] # BOPOMOFO LETTER AI
+31AE  ; [.3928.0020.0004][.0000.0109.0004] # BOPOMOFO LETTER AINN
+311F  ; [.3929.0020.0002] # BOPOMOFO LETTER EI
+3120  ; [.392A.0020.0002] # BOPOMOFO LETTER AU
+31AF  ; [.392A.0020.0004][.0000.0109.0004] # BOPOMOFO LETTER AUNN
+3121  ; [.392B.0020.0002] # BOPOMOFO LETTER OU
+3122  ; [.392C.0020.0002] # BOPOMOFO LETTER AN
+3123  ; [.392D.0020.0002] # BOPOMOFO LETTER EN
+3124  ; [.392E.0020.0002] # BOPOMOFO LETTER ANG
+31B2  ; [.392F.0020.0002] # BOPOMOFO LETTER ONG
+3125  ; [.3930.0020.0002] # BOPOMOFO LETTER ENG
+31B0  ; [.3931.0020.0002] # BOPOMOFO LETTER AM
+31B1  ; [.3932.0020.0002] # BOPOMOFO LETTER OM
+31AC  ; [.3933.0020.0002] # BOPOMOFO LETTER IM
+3126  ; [.3934.0020.0002] # BOPOMOFO LETTER ER
+3127  ; [.3935.0020.0002] # BOPOMOFO LETTER I
+31AA  ; [.3935.0020.0004][.0000.0109.0004] # BOPOMOFO LETTER INN
+31B3  ; [.3935.0020.0016][.0000.0109.0016] # BOPOMOFO LETTER INNN
+3128  ; [.3936.0020.0002] # BOPOMOFO LETTER U
+31AB  ; [.3936.0020.0004][.0000.0109.0004] # BOPOMOFO LETTER UNN
+31A8  ; [.3936.0020.0004][.0000.010A.0004] # BOPOMOFO LETTER IR
+3129  ; [.3937.0020.0002] # BOPOMOFO LETTER IU
+312D  ; [.3938.0020.0002] # BOPOMOFO LETTER IH
+A000  ; [.3939.0020.0002] # YI SYLLABLE IT
+A001  ; [.393A.0020.0002] # YI SYLLABLE IX
+A002  ; [.393B.0020.0002] # YI SYLLABLE I
+A003  ; [.393C.0020.0002] # YI SYLLABLE IP
+A004  ; [.393D.0020.0002] # YI SYLLABLE IET
+A005  ; [.393E.0020.0002] # YI SYLLABLE IEX
+A006  ; [.393F.0020.0002] # YI SYLLABLE IE
+A007  ; [.3940.0020.0002] # YI SYLLABLE IEP
+A008  ; [.3941.0020.0002] # YI SYLLABLE AT
+A009  ; [.3942.0020.0002] # YI SYLLABLE AX
+A00A  ; [.3943.0020.0002] # YI SYLLABLE A
+A00B  ; [.3944.0020.0002] # YI SYLLABLE AP
+A00C  ; [.3945.0020.0002] # YI SYLLABLE UOX
+A00D  ; [.3946.0020.0002] # YI SYLLABLE UO
+A00E  ; [.3947.0020.0002] # YI SYLLABLE UOP
+A00F  ; [.3948.0020.0002] # YI SYLLABLE OT
+A010  ; [.3949.0020.0002] # YI SYLLABLE OX
+A011  ; [.394A.0020.0002] # YI SYLLABLE O
+A012  ; [.394B.0020.0002] # YI SYLLABLE OP
+A013  ; [.394C.0020.0002] # YI SYLLABLE EX
+A014  ; [.394D.0020.0002] # YI SYLLABLE E
+A015  ; [.394E.0020.0002] # YI SYLLABLE WU
+A016  ; [.394F.0020.0002] # YI SYLLABLE BIT
+A017  ; [.3950.0020.0002] # YI SYLLABLE BIX
+A018  ; [.3951.0020.0002] # YI SYLLABLE BI
+A019  ; [.3952.0020.0002] # YI SYLLABLE BIP
+A01A  ; [.3953.0020.0002] # YI SYLLABLE BIET
+A01B  ; [.3954.0020.0002] # YI SYLLABLE BIEX
+A01C  ; [.3955.0020.0002] # YI SYLLABLE BIE
+A01D  ; [.3956.0020.0002] # YI SYLLABLE BIEP
+A01E  ; [.3957.0020.0002] # YI SYLLABLE BAT
+A01F  ; [.3958.0020.0002] # YI SYLLABLE BAX
+A020  ; [.3959.0020.0002] # YI SYLLABLE BA
+A021  ; [.395A.0020.0002] # YI SYLLABLE BAP
+A022  ; [.395B.0020.0002] # YI SYLLABLE BUOX
+A023  ; [.395C.0020.0002] # YI SYLLABLE BUO
+A024  ; [.395D.0020.0002] # YI SYLLABLE BUOP
+A025  ; [.395E.0020.0002] # YI SYLLABLE BOT
+A026  ; [.395F.0020.0002] # YI SYLLABLE BOX
+A027  ; [.3960.0020.0002] # YI SYLLABLE BO
+A028  ; [.3961.0020.0002] # YI SYLLABLE BOP
+A029  ; [.3962.0020.0002] # YI SYLLABLE BEX
+A02A  ; [.3963.0020.0002] # YI SYLLABLE BE
+A02B  ; [.3964.0020.0002] # YI SYLLABLE BEP
+A02C  ; [.3965.0020.0002] # YI SYLLABLE BUT
+A02D  ; [.3966.0020.0002] # YI SYLLABLE BUX
+A02E  ; [.3967.0020.0002] # YI SYLLABLE BU
+A02F  ; [.3968.0020.0002] # YI SYLLABLE BUP
+A030  ; [.3969.0020.0002] # YI SYLLABLE BURX
+A031  ; [.396A.0020.0002] # YI SYLLABLE BUR
+A032  ; [.396B.0020.0002] # YI SYLLABLE BYT
+A033  ; [.396C.0020.0002] # YI SYLLABLE BYX
+A034  ; [.396D.0020.0002] # YI SYLLABLE BY
+A035  ; [.396E.0020.0002] # YI SYLLABLE BYP
+A036  ; [.396F.0020.0002] # YI SYLLABLE BYRX
+A037  ; [.3970.0020.0002] # YI SYLLABLE BYR
+A038  ; [.3971.0020.0002] # YI SYLLABLE PIT
+A039  ; [.3972.0020.0002] # YI SYLLABLE PIX
+A03A  ; [.3973.0020.0002] # YI SYLLABLE PI
+A03B  ; [.3974.0020.0002] # YI SYLLABLE PIP
+A03C  ; [.3975.0020.0002] # YI SYLLABLE PIEX
+A03D  ; [.3976.0020.0002] # YI SYLLABLE PIE
+A03E  ; [.3977.0020.0002] # YI SYLLABLE PIEP
+A03F  ; [.3978.0020.0002] # YI SYLLABLE PAT
+A040  ; [.3979.0020.0002] # YI SYLLABLE PAX
+A041  ; [.397A.0020.0002] # YI SYLLABLE PA
+A042  ; [.397B.0020.0002] # YI SYLLABLE PAP
+A043  ; [.397C.0020.0002] # YI SYLLABLE PUOX
+A044  ; [.397D.0020.0002] # YI SYLLABLE PUO
+A045  ; [.397E.0020.0002] # YI SYLLABLE PUOP
+A046  ; [.397F.0020.0002] # YI SYLLABLE POT
+A047  ; [.3980.0020.0002] # YI SYLLABLE POX
+A048  ; [.3981.0020.0002] # YI SYLLABLE PO
+A049  ; [.3982.0020.0002] # YI SYLLABLE POP
+A04A  ; [.3983.0020.0002] # YI SYLLABLE PUT
+A04B  ; [.3984.0020.0002] # YI SYLLABLE PUX
+A04C  ; [.3985.0020.0002] # YI SYLLABLE PU
+A04D  ; [.3986.0020.0002] # YI SYLLABLE PUP
+A04E  ; [.3987.0020.0002] # YI SYLLABLE PURX
+A04F  ; [.3988.0020.0002] # YI SYLLABLE PUR
+A050  ; [.3989.0020.0002] # YI SYLLABLE PYT
+A051  ; [.398A.0020.0002] # YI SYLLABLE PYX
+A052  ; [.398B.0020.0002] # YI SYLLABLE PY
+A053  ; [.398C.0020.0002] # YI SYLLABLE PYP
+A054  ; [.398D.0020.0002] # YI SYLLABLE PYRX
+A055  ; [.398E.0020.0002] # YI SYLLABLE PYR
+A056  ; [.398F.0020.0002] # YI SYLLABLE BBIT
+A057  ; [.3990.0020.0002] # YI SYLLABLE BBIX
+A058  ; [.3991.0020.0002] # YI SYLLABLE BBI
+A059  ; [.3992.0020.0002] # YI SYLLABLE BBIP
+A05A  ; [.3993.0020.0002] # YI SYLLABLE BBIET
+A05B  ; [.3994.0020.0002] # YI SYLLABLE BBIEX
+A05C  ; [.3995.0020.0002] # YI SYLLABLE BBIE
+A05D  ; [.3996.0020.0002] # YI SYLLABLE BBIEP
+A05E  ; [.3997.0020.0002] # YI SYLLABLE BBAT
+A05F  ; [.3998.0020.0002] # YI SYLLABLE BBAX
+A060  ; [.3999.0020.0002] # YI SYLLABLE BBA
+A061  ; [.399A.0020.0002] # YI SYLLABLE BBAP
+A062  ; [.399B.0020.0002] # YI SYLLABLE BBUOX
+A063  ; [.399C.0020.0002] # YI SYLLABLE BBUO
+A064  ; [.399D.0020.0002] # YI SYLLABLE BBUOP
+A065  ; [.399E.0020.0002] # YI SYLLABLE BBOT
+A066  ; [.399F.0020.0002] # YI SYLLABLE BBOX
+A067  ; [.39A0.0020.0002] # YI SYLLABLE BBO
+A068  ; [.39A1.0020.0002] # YI SYLLABLE BBOP
+A069  ; [.39A2.0020.0002] # YI SYLLABLE BBEX
+A06A  ; [.39A3.0020.0002] # YI SYLLABLE BBE
+A06B  ; [.39A4.0020.0002] # YI SYLLABLE BBEP
+A06C  ; [.39A5.0020.0002] # YI SYLLABLE BBUT
+A06D  ; [.39A6.0020.0002] # YI SYLLABLE BBUX
+A06E  ; [.39A7.0020.0002] # YI SYLLABLE BBU
+A06F  ; [.39A8.0020.0002] # YI SYLLABLE BBUP
+A070  ; [.39A9.0020.0002] # YI SYLLABLE BBURX
+A071  ; [.39AA.0020.0002] # YI SYLLABLE BBUR
+A072  ; [.39AB.0020.0002] # YI SYLLABLE BBYT
+A073  ; [.39AC.0020.0002] # YI SYLLABLE BBYX
+A074  ; [.39AD.0020.0002] # YI SYLLABLE BBY
+A075  ; [.39AE.0020.0002] # YI SYLLABLE BBYP
+A076  ; [.39AF.0020.0002] # YI SYLLABLE NBIT
+A077  ; [.39B0.0020.0002] # YI SYLLABLE NBIX
+A078  ; [.39B1.0020.0002] # YI SYLLABLE NBI
+A079  ; [.39B2.0020.0002] # YI SYLLABLE NBIP
+A07A  ; [.39B3.0020.0002] # YI SYLLABLE NBIEX
+A07B  ; [.39B4.0020.0002] # YI SYLLABLE NBIE
+A07C  ; [.39B5.0020.0002] # YI SYLLABLE NBIEP
+A07D  ; [.39B6.0020.0002] # YI SYLLABLE NBAT
+A07E  ; [.39B7.0020.0002] # YI SYLLABLE NBAX
+A07F  ; [.39B8.0020.0002] # YI SYLLABLE NBA
+A080  ; [.39B9.0020.0002] # YI SYLLABLE NBAP
+A081  ; [.39BA.0020.0002] # YI SYLLABLE NBOT
+A082  ; [.39BB.0020.0002] # YI SYLLABLE NBOX
+A083  ; [.39BC.0020.0002] # YI SYLLABLE NBO
+A084  ; [.39BD.0020.0002] # YI SYLLABLE NBOP
+A085  ; [.39BE.0020.0002] # YI SYLLABLE NBUT
+A086  ; [.39BF.0020.0002] # YI SYLLABLE NBUX
+A087  ; [.39C0.0020.0002] # YI SYLLABLE NBU
+A088  ; [.39C1.0020.0002] # YI SYLLABLE NBUP
+A089  ; [.39C2.0020.0002] # YI SYLLABLE NBURX
+A08A  ; [.39C3.0020.0002] # YI SYLLABLE NBUR
+A08B  ; [.39C4.0020.0002] # YI SYLLABLE NBYT
+A08C  ; [.39C5.0020.0002] # YI SYLLABLE NBYX
+A08D  ; [.39C6.0020.0002] # YI SYLLABLE NBY
+A08E  ; [.39C7.0020.0002] # YI SYLLABLE NBYP
+A08F  ; [.39C8.0020.0002] # YI SYLLABLE NBYRX
+A090  ; [.39C9.0020.0002] # YI SYLLABLE NBYR
+A091  ; [.39CA.0020.0002] # YI SYLLABLE HMIT
+A092  ; [.39CB.0020.0002] # YI SYLLABLE HMIX
+A093  ; [.39CC.0020.0002] # YI SYLLABLE HMI
+A094  ; [.39CD.0020.0002] # YI SYLLABLE HMIP
+A095  ; [.39CE.0020.0002] # YI SYLLABLE HMIEX
+A096  ; [.39CF.0020.0002] # YI SYLLABLE HMIE
+A097  ; [.39D0.0020.0002] # YI SYLLABLE HMIEP
+A098  ; [.39D1.0020.0002] # YI SYLLABLE HMAT
+A099  ; [.39D2.0020.0002] # YI SYLLABLE HMAX
+A09A  ; [.39D3.0020.0002] # YI SYLLABLE HMA
+A09B  ; [.39D4.0020.0002] # YI SYLLABLE HMAP
+A09C  ; [.39D5.0020.0002] # YI SYLLABLE HMUOX
+A09D  ; [.39D6.0020.0002] # YI SYLLABLE HMUO
+A09E  ; [.39D7.0020.0002] # YI SYLLABLE HMUOP
+A09F  ; [.39D8.0020.0002] # YI SYLLABLE HMOT
+A0A0  ; [.39D9.0020.0002] # YI SYLLABLE HMOX
+A0A1  ; [.39DA.0020.0002] # YI SYLLABLE HMO
+A0A2  ; [.39DB.0020.0002] # YI SYLLABLE HMOP
+A0A3  ; [.39DC.0020.0002] # YI SYLLABLE HMUT
+A0A4  ; [.39DD.0020.0002] # YI SYLLABLE HMUX
+A0A5  ; [.39DE.0020.0002] # YI SYLLABLE HMU
+A0A6  ; [.39DF.0020.0002] # YI SYLLABLE HMUP
+A0A7  ; [.39E0.0020.0002] # YI SYLLABLE HMURX
+A0A8  ; [.39E1.0020.0002] # YI SYLLABLE HMUR
+A0A9  ; [.39E2.0020.0002] # YI SYLLABLE HMYX
+A0AA  ; [.39E3.0020.0002] # YI SYLLABLE HMY
+A0AB  ; [.39E4.0020.0002] # YI SYLLABLE HMYP
+A0AC  ; [.39E5.0020.0002] # YI SYLLABLE HMYRX
+A0AD  ; [.39E6.0020.0002] # YI SYLLABLE HMYR
+A0AE  ; [.39E7.0020.0002] # YI SYLLABLE MIT
+A0AF  ; [.39E8.0020.0002] # YI SYLLABLE MIX
+A0B0  ; [.39E9.0020.0002] # YI SYLLABLE MI
+A0B1  ; [.39EA.0020.0002] # YI SYLLABLE MIP
+A0B2  ; [.39EB.0020.0002] # YI SYLLABLE MIEX
+A0B3  ; [.39EC.0020.0002] # YI SYLLABLE MIE
+A0B4  ; [.39ED.0020.0002] # YI SYLLABLE MIEP
+A0B5  ; [.39EE.0020.0002] # YI SYLLABLE MAT
+A0B6  ; [.39EF.0020.0002] # YI SYLLABLE MAX
+A0B7  ; [.39F0.0020.0002] # YI SYLLABLE MA
+A0B8  ; [.39F1.0020.0002] # YI SYLLABLE MAP
+A0B9  ; [.39F2.0020.0002] # YI SYLLABLE MUOT
+A0BA  ; [.39F3.0020.0002] # YI SYLLABLE MUOX
+A0BB  ; [.39F4.0020.0002] # YI SYLLABLE MUO
+A0BC  ; [.39F5.0020.0002] # YI SYLLABLE MUOP
+A0BD  ; [.39F6.0020.0002] # YI SYLLABLE MOT
+A0BE  ; [.39F7.0020.0002] # YI SYLLABLE MOX
+A0BF  ; [.39F8.0020.0002] # YI SYLLABLE MO
+A0C0  ; [.39F9.0020.0002] # YI SYLLABLE MOP
+A0C1  ; [.39FA.0020.0002] # YI SYLLABLE MEX
+A0C2  ; [.39FB.0020.0002] # YI SYLLABLE ME
+A0C3  ; [.39FC.0020.0002] # YI SYLLABLE MUT
+A0C4  ; [.39FD.0020.0002] # YI SYLLABLE MUX
+A0C5  ; [.39FE.0020.0002] # YI SYLLABLE MU
+A0C6  ; [.39FF.0020.0002] # YI SYLLABLE MUP
+A0C7  ; [.3A00.0020.0002] # YI SYLLABLE MURX
+A0C8  ; [.3A01.0020.0002] # YI SYLLABLE MUR
+A0C9  ; [.3A02.0020.0002] # YI SYLLABLE MYT
+A0CA  ; [.3A03.0020.0002] # YI SYLLABLE MYX
+A0CB  ; [.3A04.0020.0002] # YI SYLLABLE MY
+A0CC  ; [.3A05.0020.0002] # YI SYLLABLE MYP
+A0CD  ; [.3A06.0020.0002] # YI SYLLABLE FIT
+A0CE  ; [.3A07.0020.0002] # YI SYLLABLE FIX
+A0CF  ; [.3A08.0020.0002] # YI SYLLABLE FI
+A0D0  ; [.3A09.0020.0002] # YI SYLLABLE FIP
+A0D1  ; [.3A0A.0020.0002] # YI SYLLABLE FAT
+A0D2  ; [.3A0B.0020.0002] # YI SYLLABLE FAX
+A0D3  ; [.3A0C.0020.0002] # YI SYLLABLE FA
+A0D4  ; [.3A0D.0020.0002] # YI SYLLABLE FAP
+A0D5  ; [.3A0E.0020.0002] # YI SYLLABLE FOX
+A0D6  ; [.3A0F.0020.0002] # YI SYLLABLE FO
+A0D7  ; [.3A10.0020.0002] # YI SYLLABLE FOP
+A0D8  ; [.3A11.0020.0002] # YI SYLLABLE FUT
+A0D9  ; [.3A12.0020.0002] # YI SYLLABLE FUX
+A0DA  ; [.3A13.0020.0002] # YI SYLLABLE FU
+A0DB  ; [.3A14.0020.0002] # YI SYLLABLE FUP
+A0DC  ; [.3A15.0020.0002] # YI SYLLABLE FURX
+A0DD  ; [.3A16.0020.0002] # YI SYLLABLE FUR
+A0DE  ; [.3A17.0020.0002] # YI SYLLABLE FYT
+A0DF  ; [.3A18.0020.0002] # YI SYLLABLE FYX
+A0E0  ; [.3A19.0020.0002] # YI SYLLABLE FY
+A0E1  ; [.3A1A.0020.0002] # YI SYLLABLE FYP
+A0E2  ; [.3A1B.0020.0002] # YI SYLLABLE VIT
+A0E3  ; [.3A1C.0020.0002] # YI SYLLABLE VIX
+A0E4  ; [.3A1D.0020.0002] # YI SYLLABLE VI
+A0E5  ; [.3A1E.0020.0002] # YI SYLLABLE VIP
+A0E6  ; [.3A1F.0020.0002] # YI SYLLABLE VIET
+A0E7  ; [.3A20.0020.0002] # YI SYLLABLE VIEX
+A0E8  ; [.3A21.0020.0002] # YI SYLLABLE VIE
+A0E9  ; [.3A22.0020.0002] # YI SYLLABLE VIEP
+A0EA  ; [.3A23.0020.0002] # YI SYLLABLE VAT
+A0EB  ; [.3A24.0020.0002] # YI SYLLABLE VAX
+A0EC  ; [.3A25.0020.0002] # YI SYLLABLE VA
+A0ED  ; [.3A26.0020.0002] # YI SYLLABLE VAP
+A0EE  ; [.3A27.0020.0002] # YI SYLLABLE VOT
+A0EF  ; [.3A28.0020.0002] # YI SYLLABLE VOX
+A0F0  ; [.3A29.0020.0002] # YI SYLLABLE VO
+A0F1  ; [.3A2A.0020.0002] # YI SYLLABLE VOP
+A0F2  ; [.3A2B.0020.0002] # YI SYLLABLE VEX
+A0F3  ; [.3A2C.0020.0002] # YI SYLLABLE VEP
+A0F4  ; [.3A2D.0020.0002] # YI SYLLABLE VUT
+A0F5  ; [.3A2E.0020.0002] # YI SYLLABLE VUX
+A0F6  ; [.3A2F.0020.0002] # YI SYLLABLE VU
+A0F7  ; [.3A30.0020.0002] # YI SYLLABLE VUP
+A0F8  ; [.3A31.0020.0002] # YI SYLLABLE VURX
+A0F9  ; [.3A32.0020.0002] # YI SYLLABLE VUR
+A0FA  ; [.3A33.0020.0002] # YI SYLLABLE VYT
+A0FB  ; [.3A34.0020.0002] # YI SYLLABLE VYX
+A0FC  ; [.3A35.0020.0002] # YI SYLLABLE VY
+A0FD  ; [.3A36.0020.0002] # YI SYLLABLE VYP
+A0FE  ; [.3A37.0020.0002] # YI SYLLABLE VYRX
+A0FF  ; [.3A38.0020.0002] # YI SYLLABLE VYR
+A100  ; [.3A39.0020.0002] # YI SYLLABLE DIT
+A101  ; [.3A3A.0020.0002] # YI SYLLABLE DIX
+A102  ; [.3A3B.0020.0002] # YI SYLLABLE DI
+A103  ; [.3A3C.0020.0002] # YI SYLLABLE DIP
+A104  ; [.3A3D.0020.0002] # YI SYLLABLE DIEX
+A105  ; [.3A3E.0020.0002] # YI SYLLABLE DIE
+A106  ; [.3A3F.0020.0002] # YI SYLLABLE DIEP
+A107  ; [.3A40.0020.0002] # YI SYLLABLE DAT
+A108  ; [.3A41.0020.0002] # YI SYLLABLE DAX
+A109  ; [.3A42.0020.0002] # YI SYLLABLE DA
+A10A  ; [.3A43.0020.0002] # YI SYLLABLE DAP
+A10B  ; [.3A44.0020.0002] # YI SYLLABLE DUOX
+A10C  ; [.3A45.0020.0002] # YI SYLLABLE DUO
+A10D  ; [.3A46.0020.0002] # YI SYLLABLE DOT
+A10E  ; [.3A47.0020.0002] # YI SYLLABLE DOX
+A10F  ; [.3A48.0020.0002] # YI SYLLABLE DO
+A110  ; [.3A49.0020.0002] # YI SYLLABLE DOP
+A111  ; [.3A4A.0020.0002] # YI SYLLABLE DEX
+A112  ; [.3A4B.0020.0002] # YI SYLLABLE DE
+A113  ; [.3A4C.0020.0002] # YI SYLLABLE DEP
+A114  ; [.3A4D.0020.0002] # YI SYLLABLE DUT
+A115  ; [.3A4E.0020.0002] # YI SYLLABLE DUX
+A116  ; [.3A4F.0020.0002] # YI SYLLABLE DU
+A117  ; [.3A50.0020.0002] # YI SYLLABLE DUP
+A118  ; [.3A51.0020.0002] # YI SYLLABLE DURX
+A119  ; [.3A52.0020.0002] # YI SYLLABLE DUR
+A11A  ; [.3A53.0020.0002] # YI SYLLABLE TIT
+A11B  ; [.3A54.0020.0002] # YI SYLLABLE TIX
+A11C  ; [.3A55.0020.0002] # YI SYLLABLE TI
+A11D  ; [.3A56.0020.0002] # YI SYLLABLE TIP
+A11E  ; [.3A57.0020.0002] # YI SYLLABLE TIEX
+A11F  ; [.3A58.0020.0002] # YI SYLLABLE TIE
+A120  ; [.3A59.0020.0002] # YI SYLLABLE TIEP
+A121  ; [.3A5A.0020.0002] # YI SYLLABLE TAT
+A122  ; [.3A5B.0020.0002] # YI SYLLABLE TAX
+A123  ; [.3A5C.0020.0002] # YI SYLLABLE TA
+A124  ; [.3A5D.0020.0002] # YI SYLLABLE TAP
+A125  ; [.3A5E.0020.0002] # YI SYLLABLE TUOT
+A126  ; [.3A5F.0020.0002] # YI SYLLABLE TUOX
+A127  ; [.3A60.0020.0002] # YI SYLLABLE TUO
+A128  ; [.3A61.0020.0002] # YI SYLLABLE TUOP
+A129  ; [.3A62.0020.0002] # YI SYLLABLE TOT
+A12A  ; [.3A63.0020.0002] # YI SYLLABLE TOX
+A12B  ; [.3A64.0020.0002] # YI SYLLABLE TO
+A12C  ; [.3A65.0020.0002] # YI SYLLABLE TOP
+A12D  ; [.3A66.0020.0002] # YI SYLLABLE TEX
+A12E  ; [.3A67.0020.0002] # YI SYLLABLE TE
+A12F  ; [.3A68.0020.0002] # YI SYLLABLE TEP
+A130  ; [.3A69.0020.0002] # YI SYLLABLE TUT
+A131  ; [.3A6A.0020.0002] # YI SYLLABLE TUX
+A132  ; [.3A6B.0020.0002] # YI SYLLABLE TU
+A133  ; [.3A6C.0020.0002] # YI SYLLABLE TUP
+A134  ; [.3A6D.0020.0002] # YI SYLLABLE TURX
+A135  ; [.3A6E.0020.0002] # YI SYLLABLE TUR
+A136  ; [.3A6F.0020.0002] # YI SYLLABLE DDIT
+A137  ; [.3A70.0020.0002] # YI SYLLABLE DDIX
+A138  ; [.3A71.0020.0002] # YI SYLLABLE DDI
+A139  ; [.3A72.0020.0002] # YI SYLLABLE DDIP
+A13A  ; [.3A73.0020.0002] # YI SYLLABLE DDIEX
+A13B  ; [.3A74.0020.0002] # YI SYLLABLE DDIE
+A13C  ; [.3A75.0020.0002] # YI SYLLABLE DDIEP
+A13D  ; [.3A76.0020.0002] # YI SYLLABLE DDAT
+A13E  ; [.3A77.0020.0002] # YI SYLLABLE DDAX
+A13F  ; [.3A78.0020.0002] # YI SYLLABLE DDA
+A140  ; [.3A79.0020.0002] # YI SYLLABLE DDAP
+A141  ; [.3A7A.0020.0002] # YI SYLLABLE DDUOX
+A142  ; [.3A7B.0020.0002] # YI SYLLABLE DDUO
+A143  ; [.3A7C.0020.0002] # YI SYLLABLE DDUOP
+A144  ; [.3A7D.0020.0002] # YI SYLLABLE DDOT
+A145  ; [.3A7E.0020.0002] # YI SYLLABLE DDOX
+A146  ; [.3A7F.0020.0002] # YI SYLLABLE DDO
+A147  ; [.3A80.0020.0002] # YI SYLLABLE DDOP
+A148  ; [.3A81.0020.0002] # YI SYLLABLE DDEX
+A149  ; [.3A82.0020.0002] # YI SYLLABLE DDE
+A14A  ; [.3A83.0020.0002] # YI SYLLABLE DDEP
+A14B  ; [.3A84.0020.0002] # YI SYLLABLE DDUT
+A14C  ; [.3A85.0020.0002] # YI SYLLABLE DDUX
+A14D  ; [.3A86.0020.0002] # YI SYLLABLE DDU
+A14E  ; [.3A87.0020.0002] # YI SYLLABLE DDUP
+A14F  ; [.3A88.0020.0002] # YI SYLLABLE DDURX
+A150  ; [.3A89.0020.0002] # YI SYLLABLE DDUR
+A151  ; [.3A8A.0020.0002] # YI SYLLABLE NDIT
+A152  ; [.3A8B.0020.0002] # YI SYLLABLE NDIX
+A153  ; [.3A8C.0020.0002] # YI SYLLABLE NDI
+A154  ; [.3A8D.0020.0002] # YI SYLLABLE NDIP
+A155  ; [.3A8E.0020.0002] # YI SYLLABLE NDIEX
+A156  ; [.3A8F.0020.0002] # YI SYLLABLE NDIE
+A157  ; [.3A90.0020.0002] # YI SYLLABLE NDAT
+A158  ; [.3A91.0020.0002] # YI SYLLABLE NDAX
+A159  ; [.3A92.0020.0002] # YI SYLLABLE NDA
+A15A  ; [.3A93.0020.0002] # YI SYLLABLE NDAP
+A15B  ; [.3A94.0020.0002] # YI SYLLABLE NDOT
+A15C  ; [.3A95.0020.0002] # YI SYLLABLE NDOX
+A15D  ; [.3A96.0020.0002] # YI SYLLABLE NDO
+A15E  ; [.3A97.0020.0002] # YI SYLLABLE NDOP
+A15F  ; [.3A98.0020.0002] # YI SYLLABLE NDEX
+A160  ; [.3A99.0020.0002] # YI SYLLABLE NDE
+A161  ; [.3A9A.0020.0002] # YI SYLLABLE NDEP
+A162  ; [.3A9B.0020.0002] # YI SYLLABLE NDUT
+A163  ; [.3A9C.0020.0002] # YI SYLLABLE NDUX
+A164  ; [.3A9D.0020.0002] # YI SYLLABLE NDU
+A165  ; [.3A9E.0020.0002] # YI SYLLABLE NDUP
+A166  ; [.3A9F.0020.0002] # YI SYLLABLE NDURX
+A167  ; [.3AA0.0020.0002] # YI SYLLABLE NDUR
+A168  ; [.3AA1.0020.0002] # YI SYLLABLE HNIT
+A169  ; [.3AA2.0020.0002] # YI SYLLABLE HNIX
+A16A  ; [.3AA3.0020.0002] # YI SYLLABLE HNI
+A16B  ; [.3AA4.0020.0002] # YI SYLLABLE HNIP
+A16C  ; [.3AA5.0020.0002] # YI SYLLABLE HNIET
+A16D  ; [.3AA6.0020.0002] # YI SYLLABLE HNIEX
+A16E  ; [.3AA7.0020.0002] # YI SYLLABLE HNIE
+A16F  ; [.3AA8.0020.0002] # YI SYLLABLE HNIEP
+A170  ; [.3AA9.0020.0002] # YI SYLLABLE HNAT
+A171  ; [.3AAA.0020.0002] # YI SYLLABLE HNAX
+A172  ; [.3AAB.0020.0002] # YI SYLLABLE HNA
+A173  ; [.3AAC.0020.0002] # YI SYLLABLE HNAP
+A174  ; [.3AAD.0020.0002] # YI SYLLABLE HNUOX
+A175  ; [.3AAE.0020.0002] # YI SYLLABLE HNUO
+A176  ; [.3AAF.0020.0002] # YI SYLLABLE HNOT
+A177  ; [.3AB0.0020.0002] # YI SYLLABLE HNOX
+A178  ; [.3AB1.0020.0002] # YI SYLLABLE HNOP
+A179  ; [.3AB2.0020.0002] # YI SYLLABLE HNEX
+A17A  ; [.3AB3.0020.0002] # YI SYLLABLE HNE
+A17B  ; [.3AB4.0020.0002] # YI SYLLABLE HNEP
+A17C  ; [.3AB5.0020.0002] # YI SYLLABLE HNUT
+A17D  ; [.3AB6.0020.0002] # YI SYLLABLE NIT
+A17E  ; [.3AB7.0020.0002] # YI SYLLABLE NIX
+A17F  ; [.3AB8.0020.0002] # YI SYLLABLE NI
+A180  ; [.3AB9.0020.0002] # YI SYLLABLE NIP
+A181  ; [.3ABA.0020.0002] # YI SYLLABLE NIEX
+A182  ; [.3ABB.0020.0002] # YI SYLLABLE NIE
+A183  ; [.3ABC.0020.0002] # YI SYLLABLE NIEP
+A184  ; [.3ABD.0020.0002] # YI SYLLABLE NAX
+A185  ; [.3ABE.0020.0002] # YI SYLLABLE NA
+A186  ; [.3ABF.0020.0002] # YI SYLLABLE NAP
+A187  ; [.3AC0.0020.0002] # YI SYLLABLE NUOX
+A188  ; [.3AC1.0020.0002] # YI SYLLABLE NUO
+A189  ; [.3AC2.0020.0002] # YI SYLLABLE NUOP
+A18A  ; [.3AC3.0020.0002] # YI SYLLABLE NOT
+A18B  ; [.3AC4.0020.0002] # YI SYLLABLE NOX
+A18C  ; [.3AC5.0020.0002] # YI SYLLABLE NO
+A18D  ; [.3AC6.0020.0002] # YI SYLLABLE NOP
+A18E  ; [.3AC7.0020.0002] # YI SYLLABLE NEX
+A18F  ; [.3AC8.0020.0002] # YI SYLLABLE NE
+A190  ; [.3AC9.0020.0002] # YI SYLLABLE NEP
+A191  ; [.3ACA.0020.0002] # YI SYLLABLE NUT
+A192  ; [.3ACB.0020.0002] # YI SYLLABLE NUX
+A193  ; [.3ACC.0020.0002] # YI SYLLABLE NU
+A194  ; [.3ACD.0020.0002] # YI SYLLABLE NUP
+A195  ; [.3ACE.0020.0002] # YI SYLLABLE NURX
+A196  ; [.3ACF.0020.0002] # YI SYLLABLE NUR
+A197  ; [.3AD0.0020.0002] # YI SYLLABLE HLIT
+A198  ; [.3AD1.0020.0002] # YI SYLLABLE HLIX
+A199  ; [.3AD2.0020.0002] # YI SYLLABLE HLI
+A19A  ; [.3AD3.0020.0002] # YI SYLLABLE HLIP
+A19B  ; [.3AD4.0020.0002] # YI SYLLABLE HLIEX
+A19C  ; [.3AD5.0020.0002] # YI SYLLABLE HLIE
+A19D  ; [.3AD6.0020.0002] # YI SYLLABLE HLIEP
+A19E  ; [.3AD7.0020.0002] # YI SYLLABLE HLAT
+A19F  ; [.3AD8.0020.0002] # YI SYLLABLE HLAX
+A1A0  ; [.3AD9.0020.0002] # YI SYLLABLE HLA
+A1A1  ; [.3ADA.0020.0002] # YI SYLLABLE HLAP
+A1A2  ; [.3ADB.0020.0002] # YI SYLLABLE HLUOX
+A1A3  ; [.3ADC.0020.0002] # YI SYLLABLE HLUO
+A1A4  ; [.3ADD.0020.0002] # YI SYLLABLE HLUOP
+A1A5  ; [.3ADE.0020.0002] # YI SYLLABLE HLOX
+A1A6  ; [.3ADF.0020.0002] # YI SYLLABLE HLO
+A1A7  ; [.3AE0.0020.0002] # YI SYLLABLE HLOP
+A1A8  ; [.3AE1.0020.0002] # YI SYLLABLE HLEX
+A1A9  ; [.3AE2.0020.0002] # YI SYLLABLE HLE
+A1AA  ; [.3AE3.0020.0002] # YI SYLLABLE HLEP
+A1AB  ; [.3AE4.0020.0002] # YI SYLLABLE HLUT
+A1AC  ; [.3AE5.0020.0002] # YI SYLLABLE HLUX
+A1AD  ; [.3AE6.0020.0002] # YI SYLLABLE HLU
+A1AE  ; [.3AE7.0020.0002] # YI SYLLABLE HLUP
+A1AF  ; [.3AE8.0020.0002] # YI SYLLABLE HLURX
+A1B0  ; [.3AE9.0020.0002] # YI SYLLABLE HLUR
+A1B1  ; [.3AEA.0020.0002] # YI SYLLABLE HLYT
+A1B2  ; [.3AEB.0020.0002] # YI SYLLABLE HLYX
+A1B3  ; [.3AEC.0020.0002] # YI SYLLABLE HLY
+A1B4  ; [.3AED.0020.0002] # YI SYLLABLE HLYP
+A1B5  ; [.3AEE.0020.0002] # YI SYLLABLE HLYRX
+A1B6  ; [.3AEF.0020.0002] # YI SYLLABLE HLYR
+A1B7  ; [.3AF0.0020.0002] # YI SYLLABLE LIT
+A1B8  ; [.3AF1.0020.0002] # YI SYLLABLE LIX
+A1B9  ; [.3AF2.0020.0002] # YI SYLLABLE LI
+A1BA  ; [.3AF3.0020.0002] # YI SYLLABLE LIP
+A1BB  ; [.3AF4.0020.0002] # YI SYLLABLE LIET
+A1BC  ; [.3AF5.0020.0002] # YI SYLLABLE LIEX
+A1BD  ; [.3AF6.0020.0002] # YI SYLLABLE LIE
+A1BE  ; [.3AF7.0020.0002] # YI SYLLABLE LIEP
+A1BF  ; [.3AF8.0020.0002] # YI SYLLABLE LAT
+A1C0  ; [.3AF9.0020.0002] # YI SYLLABLE LAX
+A1C1  ; [.3AFA.0020.0002] # YI SYLLABLE LA
+A1C2  ; [.3AFB.0020.0002] # YI SYLLABLE LAP
+A1C3  ; [.3AFC.0020.0002] # YI SYLLABLE LUOT
+A1C4  ; [.3AFD.0020.0002] # YI SYLLABLE LUOX
+A1C5  ; [.3AFE.0020.0002] # YI SYLLABLE LUO
+A1C6  ; [.3AFF.0020.0002] # YI SYLLABLE LUOP
+A1C7  ; [.3B00.0020.0002] # YI SYLLABLE LOT
+A1C8  ; [.3B01.0020.0002] # YI SYLLABLE LOX
+A1C9  ; [.3B02.0020.0002] # YI SYLLABLE LO
+A1CA  ; [.3B03.0020.0002] # YI SYLLABLE LOP
+A1CB  ; [.3B04.0020.0002] # YI SYLLABLE LEX
+A1CC  ; [.3B05.0020.0002] # YI SYLLABLE LE
+A1CD  ; [.3B06.0020.0002] # YI SYLLABLE LEP
+A1CE  ; [.3B07.0020.0002] # YI SYLLABLE LUT
+A1CF  ; [.3B08.0020.0002] # YI SYLLABLE LUX
+A1D0  ; [.3B09.0020.0002] # YI SYLLABLE LU
+A1D1  ; [.3B0A.0020.0002] # YI SYLLABLE LUP
+A1D2  ; [.3B0B.0020.0002] # YI SYLLABLE LURX
+A1D3  ; [.3B0C.0020.0002] # YI SYLLABLE LUR
+A1D4  ; [.3B0D.0020.0002] # YI SYLLABLE LYT
+A1D5  ; [.3B0E.0020.0002] # YI SYLLABLE LYX
+A1D6  ; [.3B0F.0020.0002] # YI SYLLABLE LY
+A1D7  ; [.3B10.0020.0002] # YI SYLLABLE LYP
+A1D8  ; [.3B11.0020.0002] # YI SYLLABLE LYRX
+A1D9  ; [.3B12.0020.0002] # YI SYLLABLE LYR
+A1DA  ; [.3B13.0020.0002] # YI SYLLABLE GIT
+A1DB  ; [.3B14.0020.0002] # YI SYLLABLE GIX
+A1DC  ; [.3B15.0020.0002] # YI SYLLABLE GI
+A1DD  ; [.3B16.0020.0002] # YI SYLLABLE GIP
+A1DE  ; [.3B17.0020.0002] # YI SYLLABLE GIET
+A1DF  ; [.3B18.0020.0002] # YI SYLLABLE GIEX
+A1E0  ; [.3B19.0020.0002] # YI SYLLABLE GIE
+A1E1  ; [.3B1A.0020.0002] # YI SYLLABLE GIEP
+A1E2  ; [.3B1B.0020.0002] # YI SYLLABLE GAT
+A1E3  ; [.3B1C.0020.0002] # YI SYLLABLE GAX
+A1E4  ; [.3B1D.0020.0002] # YI SYLLABLE GA
+A1E5  ; [.3B1E.0020.0002] # YI SYLLABLE GAP
+A1E6  ; [.3B1F.0020.0002] # YI SYLLABLE GUOT
+A1E7  ; [.3B20.0020.0002] # YI SYLLABLE GUOX
+A1E8  ; [.3B21.0020.0002] # YI SYLLABLE GUO
+A1E9  ; [.3B22.0020.0002] # YI SYLLABLE GUOP
+A1EA  ; [.3B23.0020.0002] # YI SYLLABLE GOT
+A1EB  ; [.3B24.0020.0002] # YI SYLLABLE GOX
+A1EC  ; [.3B25.0020.0002] # YI SYLLABLE GO
+A1ED  ; [.3B26.0020.0002] # YI SYLLABLE GOP
+A1EE  ; [.3B27.0020.0002] # YI SYLLABLE GET
+A1EF  ; [.3B28.0020.0002] # YI SYLLABLE GEX
+A1F0  ; [.3B29.0020.0002] # YI SYLLABLE GE
+A1F1  ; [.3B2A.0020.0002] # YI SYLLABLE GEP
+A1F2  ; [.3B2B.0020.0002] # YI SYLLABLE GUT
+A1F3  ; [.3B2C.0020.0002] # YI SYLLABLE GUX
+A1F4  ; [.3B2D.0020.0002] # YI SYLLABLE GU
+A1F5  ; [.3B2E.0020.0002] # YI SYLLABLE GUP
+A1F6  ; [.3B2F.0020.0002] # YI SYLLABLE GURX
+A1F7  ; [.3B30.0020.0002] # YI SYLLABLE GUR
+A1F8  ; [.3B31.0020.0002] # YI SYLLABLE KIT
+A1F9  ; [.3B32.0020.0002] # YI SYLLABLE KIX
+A1FA  ; [.3B33.0020.0002] # YI SYLLABLE KI
+A1FB  ; [.3B34.0020.0002] # YI SYLLABLE KIP
+A1FC  ; [.3B35.0020.0002] # YI SYLLABLE KIEX
+A1FD  ; [.3B36.0020.0002] # YI SYLLABLE KIE
+A1FE  ; [.3B37.0020.0002] # YI SYLLABLE KIEP
+A1FF  ; [.3B38.0020.0002] # YI SYLLABLE KAT
+A200  ; [.3B39.0020.0002] # YI SYLLABLE KAX
+A201  ; [.3B3A.0020.0002] # YI SYLLABLE KA
+A202  ; [.3B3B.0020.0002] # YI SYLLABLE KAP
+A203  ; [.3B3C.0020.0002] # YI SYLLABLE KUOX
+A204  ; [.3B3D.0020.0002] # YI SYLLABLE KUO
+A205  ; [.3B3E.0020.0002] # YI SYLLABLE KUOP
+A206  ; [.3B3F.0020.0002] # YI SYLLABLE KOT
+A207  ; [.3B40.0020.0002] # YI SYLLABLE KOX
+A208  ; [.3B41.0020.0002] # YI SYLLABLE KO
+A209  ; [.3B42.0020.0002] # YI SYLLABLE KOP
+A20A  ; [.3B43.0020.0002] # YI SYLLABLE KET
+A20B  ; [.3B44.0020.0002] # YI SYLLABLE KEX
+A20C  ; [.3B45.0020.0002] # YI SYLLABLE KE
+A20D  ; [.3B46.0020.0002] # YI SYLLABLE KEP
+A20E  ; [.3B47.0020.0002] # YI SYLLABLE KUT
+A20F  ; [.3B48.0020.0002] # YI SYLLABLE KUX
+A210  ; [.3B49.0020.0002] # YI SYLLABLE KU
+A211  ; [.3B4A.0020.0002] # YI SYLLABLE KUP
+A212  ; [.3B4B.0020.0002] # YI SYLLABLE KURX
+A213  ; [.3B4C.0020.0002] # YI SYLLABLE KUR
+A214  ; [.3B4D.0020.0002] # YI SYLLABLE GGIT
+A215  ; [.3B4E.0020.0002] # YI SYLLABLE GGIX
+A216  ; [.3B4F.0020.0002] # YI SYLLABLE GGI
+A217  ; [.3B50.0020.0002] # YI SYLLABLE GGIEX
+A218  ; [.3B51.0020.0002] # YI SYLLABLE GGIE
+A219  ; [.3B52.0020.0002] # YI SYLLABLE GGIEP
+A21A  ; [.3B53.0020.0002] # YI SYLLABLE GGAT
+A21B  ; [.3B54.0020.0002] # YI SYLLABLE GGAX
+A21C  ; [.3B55.0020.0002] # YI SYLLABLE GGA
+A21D  ; [.3B56.0020.0002] # YI SYLLABLE GGAP
+A21E  ; [.3B57.0020.0002] # YI SYLLABLE GGUOT
+A21F  ; [.3B58.0020.0002] # YI SYLLABLE GGUOX
+A220  ; [.3B59.0020.0002] # YI SYLLABLE GGUO
+A221  ; [.3B5A.0020.0002] # YI SYLLABLE GGUOP
+A222  ; [.3B5B.0020.0002] # YI SYLLABLE GGOT
+A223  ; [.3B5C.0020.0002] # YI SYLLABLE GGOX
+A224  ; [.3B5D.0020.0002] # YI SYLLABLE GGO
+A225  ; [.3B5E.0020.0002] # YI SYLLABLE GGOP
+A226  ; [.3B5F.0020.0002] # YI SYLLABLE GGET
+A227  ; [.3B60.0020.0002] # YI SYLLABLE GGEX
+A228  ; [.3B61.0020.0002] # YI SYLLABLE GGE
+A229  ; [.3B62.0020.0002] # YI SYLLABLE GGEP
+A22A  ; [.3B63.0020.0002] # YI SYLLABLE GGUT
+A22B  ; [.3B64.0020.0002] # YI SYLLABLE GGUX
+A22C  ; [.3B65.0020.0002] # YI SYLLABLE GGU
+A22D  ; [.3B66.0020.0002] # YI SYLLABLE GGUP
+A22E  ; [.3B67.0020.0002] # YI SYLLABLE GGURX
+A22F  ; [.3B68.0020.0002] # YI SYLLABLE GGUR
+A230  ; [.3B69.0020.0002] # YI SYLLABLE MGIEX
+A231  ; [.3B6A.0020.0002] # YI SYLLABLE MGIE
+A232  ; [.3B6B.0020.0002] # YI SYLLABLE MGAT
+A233  ; [.3B6C.0020.0002] # YI SYLLABLE MGAX
+A234  ; [.3B6D.0020.0002] # YI SYLLABLE MGA
+A235  ; [.3B6E.0020.0002] # YI SYLLABLE MGAP
+A236  ; [.3B6F.0020.0002] # YI SYLLABLE MGUOX
+A237  ; [.3B70.0020.0002] # YI SYLLABLE MGUO
+A238  ; [.3B71.0020.0002] # YI SYLLABLE MGUOP
+A239  ; [.3B72.0020.0002] # YI SYLLABLE MGOT
+A23A  ; [.3B73.0020.0002] # YI SYLLABLE MGOX
+A23B  ; [.3B74.0020.0002] # YI SYLLABLE MGO
+A23C  ; [.3B75.0020.0002] # YI SYLLABLE MGOP
+A23D  ; [.3B76.0020.0002] # YI SYLLABLE MGEX
+A23E  ; [.3B77.0020.0002] # YI SYLLABLE MGE
+A23F  ; [.3B78.0020.0002] # YI SYLLABLE MGEP
+A240  ; [.3B79.0020.0002] # YI SYLLABLE MGUT
+A241  ; [.3B7A.0020.0002] # YI SYLLABLE MGUX
+A242  ; [.3B7B.0020.0002] # YI SYLLABLE MGU
+A243  ; [.3B7C.0020.0002] # YI SYLLABLE MGUP
+A244  ; [.3B7D.0020.0002] # YI SYLLABLE MGURX
+A245  ; [.3B7E.0020.0002] # YI SYLLABLE MGUR
+A246  ; [.3B7F.0020.0002] # YI SYLLABLE HXIT
+A247  ; [.3B80.0020.0002] # YI SYLLABLE HXIX
+A248  ; [.3B81.0020.0002] # YI SYLLABLE HXI
+A249  ; [.3B82.0020.0002] # YI SYLLABLE HXIP
+A24A  ; [.3B83.0020.0002] # YI SYLLABLE HXIET
+A24B  ; [.3B84.0020.0002] # YI SYLLABLE HXIEX
+A24C  ; [.3B85.0020.0002] # YI SYLLABLE HXIE
+A24D  ; [.3B86.0020.0002] # YI SYLLABLE HXIEP
+A24E  ; [.3B87.0020.0002] # YI SYLLABLE HXAT
+A24F  ; [.3B88.0020.0002] # YI SYLLABLE HXAX
+A250  ; [.3B89.0020.0002] # YI SYLLABLE HXA
+A251  ; [.3B8A.0020.0002] # YI SYLLABLE HXAP
+A252  ; [.3B8B.0020.0002] # YI SYLLABLE HXUOT
+A253  ; [.3B8C.0020.0002] # YI SYLLABLE HXUOX
+A254  ; [.3B8D.0020.0002] # YI SYLLABLE HXUO
+A255  ; [.3B8E.0020.0002] # YI SYLLABLE HXUOP
+A256  ; [.3B8F.0020.0002] # YI SYLLABLE HXOT
+A257  ; [.3B90.0020.0002] # YI SYLLABLE HXOX
+A258  ; [.3B91.0020.0002] # YI SYLLABLE HXO
+A259  ; [.3B92.0020.0002] # YI SYLLABLE HXOP
+A25A  ; [.3B93.0020.0002] # YI SYLLABLE HXEX
+A25B  ; [.3B94.0020.0002] # YI SYLLABLE HXE
+A25C  ; [.3B95.0020.0002] # YI SYLLABLE HXEP
+A25D  ; [.3B96.0020.0002] # YI SYLLABLE NGIEX
+A25E  ; [.3B97.0020.0002] # YI SYLLABLE NGIE
+A25F  ; [.3B98.0020.0002] # YI SYLLABLE NGIEP
+A260  ; [.3B99.0020.0002] # YI SYLLABLE NGAT
+A261  ; [.3B9A.0020.0002] # YI SYLLABLE NGAX
+A262  ; [.3B9B.0020.0002] # YI SYLLABLE NGA
+A263  ; [.3B9C.0020.0002] # YI SYLLABLE NGAP
+A264  ; [.3B9D.0020.0002] # YI SYLLABLE NGUOT
+A265  ; [.3B9E.0020.0002] # YI SYLLABLE NGUOX
+A266  ; [.3B9F.0020.0002] # YI SYLLABLE NGUO
+A267  ; [.3BA0.0020.0002] # YI SYLLABLE NGOT
+A268  ; [.3BA1.0020.0002] # YI SYLLABLE NGOX
+A269  ; [.3BA2.0020.0002] # YI SYLLABLE NGO
+A26A  ; [.3BA3.0020.0002] # YI SYLLABLE NGOP
+A26B  ; [.3BA4.0020.0002] # YI SYLLABLE NGEX
+A26C  ; [.3BA5.0020.0002] # YI SYLLABLE NGE
+A26D  ; [.3BA6.0020.0002] # YI SYLLABLE NGEP
+A26E  ; [.3BA7.0020.0002] # YI SYLLABLE HIT
+A26F  ; [.3BA8.0020.0002] # YI SYLLABLE HIEX
+A270  ; [.3BA9.0020.0002] # YI SYLLABLE HIE
+A271  ; [.3BAA.0020.0002] # YI SYLLABLE HAT
+A272  ; [.3BAB.0020.0002] # YI SYLLABLE HAX
+A273  ; [.3BAC.0020.0002] # YI SYLLABLE HA
+A274  ; [.3BAD.0020.0002] # YI SYLLABLE HAP
+A275  ; [.3BAE.0020.0002] # YI SYLLABLE HUOT
+A276  ; [.3BAF.0020.0002] # YI SYLLABLE HUOX
+A277  ; [.3BB0.0020.0002] # YI SYLLABLE HUO
+A278  ; [.3BB1.0020.0002] # YI SYLLABLE HUOP
+A279  ; [.3BB2.0020.0002] # YI SYLLABLE HOT
+A27A  ; [.3BB3.0020.0002] # YI SYLLABLE HOX
+A27B  ; [.3BB4.0020.0002] # YI SYLLABLE HO
+A27C  ; [.3BB5.0020.0002] # YI SYLLABLE HOP
+A27D  ; [.3BB6.0020.0002] # YI SYLLABLE HEX
+A27E  ; [.3BB7.0020.0002] # YI SYLLABLE HE
+A27F  ; [.3BB8.0020.0002] # YI SYLLABLE HEP
+A280  ; [.3BB9.0020.0002] # YI SYLLABLE WAT
+A281  ; [.3BBA.0020.0002] # YI SYLLABLE WAX
+A282  ; [.3BBB.0020.0002] # YI SYLLABLE WA
+A283  ; [.3BBC.0020.0002] # YI SYLLABLE WAP
+A284  ; [.3BBD.0020.0002] # YI SYLLABLE WUOX
+A285  ; [.3BBE.0020.0002] # YI SYLLABLE WUO
+A286  ; [.3BBF.0020.0002] # YI SYLLABLE WUOP
+A287  ; [.3BC0.0020.0002] # YI SYLLABLE WOX
+A288  ; [.3BC1.0020.0002] # YI SYLLABLE WO
+A289  ; [.3BC2.0020.0002] # YI SYLLABLE WOP
+A28A  ; [.3BC3.0020.0002] # YI SYLLABLE WEX
+A28B  ; [.3BC4.0020.0002] # YI SYLLABLE WE
+A28C  ; [.3BC5.0020.0002] # YI SYLLABLE WEP
+A28D  ; [.3BC6.0020.0002] # YI SYLLABLE ZIT
+A28E  ; [.3BC7.0020.0002] # YI SYLLABLE ZIX
+A28F  ; [.3BC8.0020.0002] # YI SYLLABLE ZI
+A290  ; [.3BC9.0020.0002] # YI SYLLABLE ZIP
+A291  ; [.3BCA.0020.0002] # YI SYLLABLE ZIEX
+A292  ; [.3BCB.0020.0002] # YI SYLLABLE ZIE
+A293  ; [.3BCC.0020.0002] # YI SYLLABLE ZIEP
+A294  ; [.3BCD.0020.0002] # YI SYLLABLE ZAT
+A295  ; [.3BCE.0020.0002] # YI SYLLABLE ZAX
+A296  ; [.3BCF.0020.0002] # YI SYLLABLE ZA
+A297  ; [.3BD0.0020.0002] # YI SYLLABLE ZAP
+A298  ; [.3BD1.0020.0002] # YI SYLLABLE ZUOX
+A299  ; [.3BD2.0020.0002] # YI SYLLABLE ZUO
+A29A  ; [.3BD3.0020.0002] # YI SYLLABLE ZUOP
+A29B  ; [.3BD4.0020.0002] # YI SYLLABLE ZOT
+A29C  ; [.3BD5.0020.0002] # YI SYLLABLE ZOX
+A29D  ; [.3BD6.0020.0002] # YI SYLLABLE ZO
+A29E  ; [.3BD7.0020.0002] # YI SYLLABLE ZOP
+A29F  ; [.3BD8.0020.0002] # YI SYLLABLE ZEX
+A2A0  ; [.3BD9.0020.0002] # YI SYLLABLE ZE
+A2A1  ; [.3BDA.0020.0002] # YI SYLLABLE ZEP
+A2A2  ; [.3BDB.0020.0002] # YI SYLLABLE ZUT
+A2A3  ; [.3BDC.0020.0002] # YI SYLLABLE ZUX
+A2A4  ; [.3BDD.0020.0002] # YI SYLLABLE ZU
+A2A5  ; [.3BDE.0020.0002] # YI SYLLABLE ZUP
+A2A6  ; [.3BDF.0020.0002] # YI SYLLABLE ZURX
+A2A7  ; [.3BE0.0020.0002] # YI SYLLABLE ZUR
+A2A8  ; [.3BE1.0020.0002] # YI SYLLABLE ZYT
+A2A9  ; [.3BE2.0020.0002] # YI SYLLABLE ZYX
+A2AA  ; [.3BE3.0020.0002] # YI SYLLABLE ZY
+A2AB  ; [.3BE4.0020.0002] # YI SYLLABLE ZYP
+A2AC  ; [.3BE5.0020.0002] # YI SYLLABLE ZYRX
+A2AD  ; [.3BE6.0020.0002] # YI SYLLABLE ZYR
+A2AE  ; [.3BE7.0020.0002] # YI SYLLABLE CIT
+A2AF  ; [.3BE8.0020.0002] # YI SYLLABLE CIX
+A2B0  ; [.3BE9.0020.0002] # YI SYLLABLE CI
+A2B1  ; [.3BEA.0020.0002] # YI SYLLABLE CIP
+A2B2  ; [.3BEB.0020.0002] # YI SYLLABLE CIET
+A2B3  ; [.3BEC.0020.0002] # YI SYLLABLE CIEX
+A2B4  ; [.3BED.0020.0002] # YI SYLLABLE CIE
+A2B5  ; [.3BEE.0020.0002] # YI SYLLABLE CIEP
+A2B6  ; [.3BEF.0020.0002] # YI SYLLABLE CAT
+A2B7  ; [.3BF0.0020.0002] # YI SYLLABLE CAX
+A2B8  ; [.3BF1.0020.0002] # YI SYLLABLE CA
+A2B9  ; [.3BF2.0020.0002] # YI SYLLABLE CAP
+A2BA  ; [.3BF3.0020.0002] # YI SYLLABLE CUOX
+A2BB  ; [.3BF4.0020.0002] # YI SYLLABLE CUO
+A2BC  ; [.3BF5.0020.0002] # YI SYLLABLE CUOP
+A2BD  ; [.3BF6.0020.0002] # YI SYLLABLE COT
+A2BE  ; [.3BF7.0020.0002] # YI SYLLABLE COX
+A2BF  ; [.3BF8.0020.0002] # YI SYLLABLE CO
+A2C0  ; [.3BF9.0020.0002] # YI SYLLABLE COP
+A2C1  ; [.3BFA.0020.0002] # YI SYLLABLE CEX
+A2C2  ; [.3BFB.0020.0002] # YI SYLLABLE CE
+A2C3  ; [.3BFC.0020.0002] # YI SYLLABLE CEP
+A2C4  ; [.3BFD.0020.0002] # YI SYLLABLE CUT
+A2C5  ; [.3BFE.0020.0002] # YI SYLLABLE CUX
+A2C6  ; [.3BFF.0020.0002] # YI SYLLABLE CU
+A2C7  ; [.3C00.0020.0002] # YI SYLLABLE CUP
+A2C8  ; [.3C01.0020.0002] # YI SYLLABLE CURX
+A2C9  ; [.3C02.0020.0002] # YI SYLLABLE CUR
+A2CA  ; [.3C03.0020.0002] # YI SYLLABLE CYT
+A2CB  ; [.3C04.0020.0002] # YI SYLLABLE CYX
+A2CC  ; [.3C05.0020.0002] # YI SYLLABLE CY
+A2CD  ; [.3C06.0020.0002] # YI SYLLABLE CYP
+A2CE  ; [.3C07.0020.0002] # YI SYLLABLE CYRX
+A2CF  ; [.3C08.0020.0002] # YI SYLLABLE CYR
+A2D0  ; [.3C09.0020.0002] # YI SYLLABLE ZZIT
+A2D1  ; [.3C0A.0020.0002] # YI SYLLABLE ZZIX
+A2D2  ; [.3C0B.0020.0002] # YI SYLLABLE ZZI
+A2D3  ; [.3C0C.0020.0002] # YI SYLLABLE ZZIP
+A2D4  ; [.3C0D.0020.0002] # YI SYLLABLE ZZIET
+A2D5  ; [.3C0E.0020.0002] # YI SYLLABLE ZZIEX
+A2D6  ; [.3C0F.0020.0002] # YI SYLLABLE ZZIE
+A2D7  ; [.3C10.0020.0002] # YI SYLLABLE ZZIEP
+A2D8  ; [.3C11.0020.0002] # YI SYLLABLE ZZAT
+A2D9  ; [.3C12.0020.0002] # YI SYLLABLE ZZAX
+A2DA  ; [.3C13.0020.0002] # YI SYLLABLE ZZA
+A2DB  ; [.3C14.0020.0002] # YI SYLLABLE ZZAP
+A2DC  ; [.3C15.0020.0002] # YI SYLLABLE ZZOX
+A2DD  ; [.3C16.0020.0002] # YI SYLLABLE ZZO
+A2DE  ; [.3C17.0020.0002] # YI SYLLABLE ZZOP
+A2DF  ; [.3C18.0020.0002] # YI SYLLABLE ZZEX
+A2E0  ; [.3C19.0020.0002] # YI SYLLABLE ZZE
+A2E1  ; [.3C1A.0020.0002] # YI SYLLABLE ZZEP
+A2E2  ; [.3C1B.0020.0002] # YI SYLLABLE ZZUX
+A2E3  ; [.3C1C.0020.0002] # YI SYLLABLE ZZU
+A2E4  ; [.3C1D.0020.0002] # YI SYLLABLE ZZUP
+A2E5  ; [.3C1E.0020.0002] # YI SYLLABLE ZZURX
+A2E6  ; [.3C1F.0020.0002] # YI SYLLABLE ZZUR
+A2E7  ; [.3C20.0020.0002] # YI SYLLABLE ZZYT
+A2E8  ; [.3C21.0020.0002] # YI SYLLABLE ZZYX
+A2E9  ; [.3C22.0020.0002] # YI SYLLABLE ZZY
+A2EA  ; [.3C23.0020.0002] # YI SYLLABLE ZZYP
+A2EB  ; [.3C24.0020.0002] # YI SYLLABLE ZZYRX
+A2EC  ; [.3C25.0020.0002] # YI SYLLABLE ZZYR
+A2ED  ; [.3C26.0020.0002] # YI SYLLABLE NZIT
+A2EE  ; [.3C27.0020.0002] # YI SYLLABLE NZIX
+A2EF  ; [.3C28.0020.0002] # YI SYLLABLE NZI
+A2F0  ; [.3C29.0020.0002] # YI SYLLABLE NZIP
+A2F1  ; [.3C2A.0020.0002] # YI SYLLABLE NZIEX
+A2F2  ; [.3C2B.0020.0002] # YI SYLLABLE NZIE
+A2F3  ; [.3C2C.0020.0002] # YI SYLLABLE NZIEP
+A2F4  ; [.3C2D.0020.0002] # YI SYLLABLE NZAT
+A2F5  ; [.3C2E.0020.0002] # YI SYLLABLE NZAX
+A2F6  ; [.3C2F.0020.0002] # YI SYLLABLE NZA
+A2F7  ; [.3C30.0020.0002] # YI SYLLABLE NZAP
+A2F8  ; [.3C31.0020.0002] # YI SYLLABLE NZUOX
+A2F9  ; [.3C32.0020.0002] # YI SYLLABLE NZUO
+A2FA  ; [.3C33.0020.0002] # YI SYLLABLE NZOX
+A2FB  ; [.3C34.0020.0002] # YI SYLLABLE NZOP
+A2FC  ; [.3C35.0020.0002] # YI SYLLABLE NZEX
+A2FD  ; [.3C36.0020.0002] # YI SYLLABLE NZE
+A2FE  ; [.3C37.0020.0002] # YI SYLLABLE NZUX
+A2FF  ; [.3C38.0020.0002] # YI SYLLABLE NZU
+A300  ; [.3C39.0020.0002] # YI SYLLABLE NZUP
+A301  ; [.3C3A.0020.0002] # YI SYLLABLE NZURX
+A302  ; [.3C3B.0020.0002] # YI SYLLABLE NZUR
+A303  ; [.3C3C.0020.0002] # YI SYLLABLE NZYT
+A304  ; [.3C3D.0020.0002] # YI SYLLABLE NZYX
+A305  ; [.3C3E.0020.0002] # YI SYLLABLE NZY
+A306  ; [.3C3F.0020.0002] # YI SYLLABLE NZYP
+A307  ; [.3C40.0020.0002] # YI SYLLABLE NZYRX
+A308  ; [.3C41.0020.0002] # YI SYLLABLE NZYR
+A309  ; [.3C42.0020.0002] # YI SYLLABLE SIT
+A30A  ; [.3C43.0020.0002] # YI SYLLABLE SIX
+A30B  ; [.3C44.0020.0002] # YI SYLLABLE SI
+A30C  ; [.3C45.0020.0002] # YI SYLLABLE SIP
+A30D  ; [.3C46.0020.0002] # YI SYLLABLE SIEX
+A30E  ; [.3C47.0020.0002] # YI SYLLABLE SIE
+A30F  ; [.3C48.0020.0002] # YI SYLLABLE SIEP
+A310  ; [.3C49.0020.0002] # YI SYLLABLE SAT
+A311  ; [.3C4A.0020.0002] # YI SYLLABLE SAX
+A312  ; [.3C4B.0020.0002] # YI SYLLABLE SA
+A313  ; [.3C4C.0020.0002] # YI SYLLABLE SAP
+A314  ; [.3C4D.0020.0002] # YI SYLLABLE SUOX
+A315  ; [.3C4E.0020.0002] # YI SYLLABLE SUO
+A316  ; [.3C4F.0020.0002] # YI SYLLABLE SUOP
+A317  ; [.3C50.0020.0002] # YI SYLLABLE SOT
+A318  ; [.3C51.0020.0002] # YI SYLLABLE SOX
+A319  ; [.3C52.0020.0002] # YI SYLLABLE SO
+A31A  ; [.3C53.0020.0002] # YI SYLLABLE SOP
+A31B  ; [.3C54.0020.0002] # YI SYLLABLE SEX
+A31C  ; [.3C55.0020.0002] # YI SYLLABLE SE
+A31D  ; [.3C56.0020.0002] # YI SYLLABLE SEP
+A31E  ; [.3C57.0020.0002] # YI SYLLABLE SUT
+A31F  ; [.3C58.0020.0002] # YI SYLLABLE SUX
+A320  ; [.3C59.0020.0002] # YI SYLLABLE SU
+A321  ; [.3C5A.0020.0002] # YI SYLLABLE SUP
+A322  ; [.3C5B.0020.0002] # YI SYLLABLE SURX
+A323  ; [.3C5C.0020.0002] # YI SYLLABLE SUR
+A324  ; [.3C5D.0020.0002] # YI SYLLABLE SYT
+A325  ; [.3C5E.0020.0002] # YI SYLLABLE SYX
+A326  ; [.3C5F.0020.0002] # YI SYLLABLE SY
+A327  ; [.3C60.0020.0002] # YI SYLLABLE SYP
+A328  ; [.3C61.0020.0002] # YI SYLLABLE SYRX
+A329  ; [.3C62.0020.0002] # YI SYLLABLE SYR
+A32A  ; [.3C63.0020.0002] # YI SYLLABLE SSIT
+A32B  ; [.3C64.0020.0002] # YI SYLLABLE SSIX
+A32C  ; [.3C65.0020.0002] # YI SYLLABLE SSI
+A32D  ; [.3C66.0020.0002] # YI SYLLABLE SSIP
+A32E  ; [.3C67.0020.0002] # YI SYLLABLE SSIEX
+A32F  ; [.3C68.0020.0002] # YI SYLLABLE SSIE
+A330  ; [.3C69.0020.0002] # YI SYLLABLE SSIEP
+A331  ; [.3C6A.0020.0002] # YI SYLLABLE SSAT
+A332  ; [.3C6B.0020.0002] # YI SYLLABLE SSAX
+A333  ; [.3C6C.0020.0002] # YI SYLLABLE SSA
+A334  ; [.3C6D.0020.0002] # YI SYLLABLE SSAP
+A335  ; [.3C6E.0020.0002] # YI SYLLABLE SSOT
+A336  ; [.3C6F.0020.0002] # YI SYLLABLE SSOX
+A337  ; [.3C70.0020.0002] # YI SYLLABLE SSO
+A338  ; [.3C71.0020.0002] # YI SYLLABLE SSOP
+A339  ; [.3C72.0020.0002] # YI SYLLABLE SSEX
+A33A  ; [.3C73.0020.0002] # YI SYLLABLE SSE
+A33B  ; [.3C74.0020.0002] # YI SYLLABLE SSEP
+A33C  ; [.3C75.0020.0002] # YI SYLLABLE SSUT
+A33D  ; [.3C76.0020.0002] # YI SYLLABLE SSUX
+A33E  ; [.3C77.0020.0002] # YI SYLLABLE SSU
+A33F  ; [.3C78.0020.0002] # YI SYLLABLE SSUP
+A340  ; [.3C79.0020.0002] # YI SYLLABLE SSYT
+A341  ; [.3C7A.0020.0002] # YI SYLLABLE SSYX
+A342  ; [.3C7B.0020.0002] # YI SYLLABLE SSY
+A343  ; [.3C7C.0020.0002] # YI SYLLABLE SSYP
+A344  ; [.3C7D.0020.0002] # YI SYLLABLE SSYRX
+A345  ; [.3C7E.0020.0002] # YI SYLLABLE SSYR
+A346  ; [.3C7F.0020.0002] # YI SYLLABLE ZHAT
+A347  ; [.3C80.0020.0002] # YI SYLLABLE ZHAX
+A348  ; [.3C81.0020.0002] # YI SYLLABLE ZHA
+A349  ; [.3C82.0020.0002] # YI SYLLABLE ZHAP
+A34A  ; [.3C83.0020.0002] # YI SYLLABLE ZHUOX
+A34B  ; [.3C84.0020.0002] # YI SYLLABLE ZHUO
+A34C  ; [.3C85.0020.0002] # YI SYLLABLE ZHUOP
+A34D  ; [.3C86.0020.0002] # YI SYLLABLE ZHOT
+A34E  ; [.3C87.0020.0002] # YI SYLLABLE ZHOX
+A34F  ; [.3C88.0020.0002] # YI SYLLABLE ZHO
+A350  ; [.3C89.0020.0002] # YI SYLLABLE ZHOP
+A351  ; [.3C8A.0020.0002] # YI SYLLABLE ZHET
+A352  ; [.3C8B.0020.0002] # YI SYLLABLE ZHEX
+A353  ; [.3C8C.0020.0002] # YI SYLLABLE ZHE
+A354  ; [.3C8D.0020.0002] # YI SYLLABLE ZHEP
+A355  ; [.3C8E.0020.0002] # YI SYLLABLE ZHUT
+A356  ; [.3C8F.0020.0002] # YI SYLLABLE ZHUX
+A357  ; [.3C90.0020.0002] # YI SYLLABLE ZHU
+A358  ; [.3C91.0020.0002] # YI SYLLABLE ZHUP
+A359  ; [.3C92.0020.0002] # YI SYLLABLE ZHURX
+A35A  ; [.3C93.0020.0002] # YI SYLLABLE ZHUR
+A35B  ; [.3C94.0020.0002] # YI SYLLABLE ZHYT
+A35C  ; [.3C95.0020.0002] # YI SYLLABLE ZHYX
+A35D  ; [.3C96.0020.0002] # YI SYLLABLE ZHY
+A35E  ; [.3C97.0020.0002] # YI SYLLABLE ZHYP
+A35F  ; [.3C98.0020.0002] # YI SYLLABLE ZHYRX
+A360  ; [.3C99.0020.0002] # YI SYLLABLE ZHYR
+A361  ; [.3C9A.0020.0002] # YI SYLLABLE CHAT
+A362  ; [.3C9B.0020.0002] # YI SYLLABLE CHAX
+A363  ; [.3C9C.0020.0002] # YI SYLLABLE CHA
+A364  ; [.3C9D.0020.0002] # YI SYLLABLE CHAP
+A365  ; [.3C9E.0020.0002] # YI SYLLABLE CHUOT
+A366  ; [.3C9F.0020.0002] # YI SYLLABLE CHUOX
+A367  ; [.3CA0.0020.0002] # YI SYLLABLE CHUO
+A368  ; [.3CA1.0020.0002] # YI SYLLABLE CHUOP
+A369  ; [.3CA2.0020.0002] # YI SYLLABLE CHOT
+A36A  ; [.3CA3.0020.0002] # YI SYLLABLE CHOX
+A36B  ; [.3CA4.0020.0002] # YI SYLLABLE CHO
+A36C  ; [.3CA5.0020.0002] # YI SYLLABLE CHOP
+A36D  ; [.3CA6.0020.0002] # YI SYLLABLE CHET
+A36E  ; [.3CA7.0020.0002] # YI SYLLABLE CHEX
+A36F  ; [.3CA8.0020.0002] # YI SYLLABLE CHE
+A370  ; [.3CA9.0020.0002] # YI SYLLABLE CHEP
+A371  ; [.3CAA.0020.0002] # YI SYLLABLE CHUX
+A372  ; [.3CAB.0020.0002] # YI SYLLABLE CHU
+A373  ; [.3CAC.0020.0002] # YI SYLLABLE CHUP
+A374  ; [.3CAD.0020.0002] # YI SYLLABLE CHURX
+A375  ; [.3CAE.0020.0002] # YI SYLLABLE CHUR
+A376  ; [.3CAF.0020.0002] # YI SYLLABLE CHYT
+A377  ; [.3CB0.0020.0002] # YI SYLLABLE CHYX
+A378  ; [.3CB1.0020.0002] # YI SYLLABLE CHY
+A379  ; [.3CB2.0020.0002] # YI SYLLABLE CHYP
+A37A  ; [.3CB3.0020.0002] # YI SYLLABLE CHYRX
+A37B  ; [.3CB4.0020.0002] # YI SYLLABLE CHYR
+A37C  ; [.3CB5.0020.0002] # YI SYLLABLE RRAX
+A37D  ; [.3CB6.0020.0002] # YI SYLLABLE RRA
+A37E  ; [.3CB7.0020.0002] # YI SYLLABLE RRUOX
+A37F  ; [.3CB8.0020.0002] # YI SYLLABLE RRUO
+A380  ; [.3CB9.0020.0002] # YI SYLLABLE RROT
+A381  ; [.3CBA.0020.0002] # YI SYLLABLE RROX
+A382  ; [.3CBB.0020.0002] # YI SYLLABLE RRO
+A383  ; [.3CBC.0020.0002] # YI SYLLABLE RROP
+A384  ; [.3CBD.0020.0002] # YI SYLLABLE RRET
+A385  ; [.3CBE.0020.0002] # YI SYLLABLE RREX
+A386  ; [.3CBF.0020.0002] # YI SYLLABLE RRE
+A387  ; [.3CC0.0020.0002] # YI SYLLABLE RREP
+A388  ; [.3CC1.0020.0002] # YI SYLLABLE RRUT
+A389  ; [.3CC2.0020.0002] # YI SYLLABLE RRUX
+A38A  ; [.3CC3.0020.0002] # YI SYLLABLE RRU
+A38B  ; [.3CC4.0020.0002] # YI SYLLABLE RRUP
+A38C  ; [.3CC5.0020.0002] # YI SYLLABLE RRURX
+A38D  ; [.3CC6.0020.0002] # YI SYLLABLE RRUR
+A38E  ; [.3CC7.0020.0002] # YI SYLLABLE RRYT
+A38F  ; [.3CC8.0020.0002] # YI SYLLABLE RRYX
+A390  ; [.3CC9.0020.0002] # YI SYLLABLE RRY
+A391  ; [.3CCA.0020.0002] # YI SYLLABLE RRYP
+A392  ; [.3CCB.0020.0002] # YI SYLLABLE RRYRX
+A393  ; [.3CCC.0020.0002] # YI SYLLABLE RRYR
+A394  ; [.3CCD.0020.0002] # YI SYLLABLE NRAT
+A395  ; [.3CCE.0020.0002] # YI SYLLABLE NRAX
+A396  ; [.3CCF.0020.0002] # YI SYLLABLE NRA
+A397  ; [.3CD0.0020.0002] # YI SYLLABLE NRAP
+A398  ; [.3CD1.0020.0002] # YI SYLLABLE NROX
+A399  ; [.3CD2.0020.0002] # YI SYLLABLE NRO
+A39A  ; [.3CD3.0020.0002] # YI SYLLABLE NROP
+A39B  ; [.3CD4.0020.0002] # YI SYLLABLE NRET
+A39C  ; [.3CD5.0020.0002] # YI SYLLABLE NREX
+A39D  ; [.3CD6.0020.0002] # YI SYLLABLE NRE
+A39E  ; [.3CD7.0020.0002] # YI SYLLABLE NREP
+A39F  ; [.3CD8.0020.0002] # YI SYLLABLE NRUT
+A3A0  ; [.3CD9.0020.0002] # YI SYLLABLE NRUX
+A3A1  ; [.3CDA.0020.0002] # YI SYLLABLE NRU
+A3A2  ; [.3CDB.0020.0002] # YI SYLLABLE NRUP
+A3A3  ; [.3CDC.0020.0002] # YI SYLLABLE NRURX
+A3A4  ; [.3CDD.0020.0002] # YI SYLLABLE NRUR
+A3A5  ; [.3CDE.0020.0002] # YI SYLLABLE NRYT
+A3A6  ; [.3CDF.0020.0002] # YI SYLLABLE NRYX
+A3A7  ; [.3CE0.0020.0002] # YI SYLLABLE NRY
+A3A8  ; [.3CE1.0020.0002] # YI SYLLABLE NRYP
+A3A9  ; [.3CE2.0020.0002] # YI SYLLABLE NRYRX
+A3AA  ; [.3CE3.0020.0002] # YI SYLLABLE NRYR
+A3AB  ; [.3CE4.0020.0002] # YI SYLLABLE SHAT
+A3AC  ; [.3CE5.0020.0002] # YI SYLLABLE SHAX
+A3AD  ; [.3CE6.0020.0002] # YI SYLLABLE SHA
+A3AE  ; [.3CE7.0020.0002] # YI SYLLABLE SHAP
+A3AF  ; [.3CE8.0020.0002] # YI SYLLABLE SHUOX
+A3B0  ; [.3CE9.0020.0002] # YI SYLLABLE SHUO
+A3B1  ; [.3CEA.0020.0002] # YI SYLLABLE SHUOP
+A3B2  ; [.3CEB.0020.0002] # YI SYLLABLE SHOT
+A3B3  ; [.3CEC.0020.0002] # YI SYLLABLE SHOX
+A3B4  ; [.3CED.0020.0002] # YI SYLLABLE SHO
+A3B5  ; [.3CEE.0020.0002] # YI SYLLABLE SHOP
+A3B6  ; [.3CEF.0020.0002] # YI SYLLABLE SHET
+A3B7  ; [.3CF0.0020.0002] # YI SYLLABLE SHEX
+A3B8  ; [.3CF1.0020.0002] # YI SYLLABLE SHE
+A3B9  ; [.3CF2.0020.0002] # YI SYLLABLE SHEP
+A3BA  ; [.3CF3.0020.0002] # YI SYLLABLE SHUT
+A3BB  ; [.3CF4.0020.0002] # YI SYLLABLE SHUX
+A3BC  ; [.3CF5.0020.0002] # YI SYLLABLE SHU
+A3BD  ; [.3CF6.0020.0002] # YI SYLLABLE SHUP
+A3BE  ; [.3CF7.0020.0002] # YI SYLLABLE SHURX
+A3BF  ; [.3CF8.0020.0002] # YI SYLLABLE SHUR
+A3C0  ; [.3CF9.0020.0002] # YI SYLLABLE SHYT
+A3C1  ; [.3CFA.0020.0002] # YI SYLLABLE SHYX
+A3C2  ; [.3CFB.0020.0002] # YI SYLLABLE SHY
+A3C3  ; [.3CFC.0020.0002] # YI SYLLABLE SHYP
+A3C4  ; [.3CFD.0020.0002] # YI SYLLABLE SHYRX
+A3C5  ; [.3CFE.0020.0002] # YI SYLLABLE SHYR
+A3C6  ; [.3CFF.0020.0002] # YI SYLLABLE RAT
+A3C7  ; [.3D00.0020.0002] # YI SYLLABLE RAX
+A3C8  ; [.3D01.0020.0002] # YI SYLLABLE RA
+A3C9  ; [.3D02.0020.0002] # YI SYLLABLE RAP
+A3CA  ; [.3D03.0020.0002] # YI SYLLABLE RUOX
+A3CB  ; [.3D04.0020.0002] # YI SYLLABLE RUO
+A3CC  ; [.3D05.0020.0002] # YI SYLLABLE RUOP
+A3CD  ; [.3D06.0020.0002] # YI SYLLABLE ROT
+A3CE  ; [.3D07.0020.0002] # YI SYLLABLE ROX
+A3CF  ; [.3D08.0020.0002] # YI SYLLABLE RO
+A3D0  ; [.3D09.0020.0002] # YI SYLLABLE ROP
+A3D1  ; [.3D0A.0020.0002] # YI SYLLABLE REX
+A3D2  ; [.3D0B.0020.0002] # YI SYLLABLE RE
+A3D3  ; [.3D0C.0020.0002] # YI SYLLABLE REP
+A3D4  ; [.3D0D.0020.0002] # YI SYLLABLE RUT
+A3D5  ; [.3D0E.0020.0002] # YI SYLLABLE RUX
+A3D6  ; [.3D0F.0020.0002] # YI SYLLABLE RU
+A3D7  ; [.3D10.0020.0002] # YI SYLLABLE RUP
+A3D8  ; [.3D11.0020.0002] # YI SYLLABLE RURX
+A3D9  ; [.3D12.0020.0002] # YI SYLLABLE RUR
+A3DA  ; [.3D13.0020.0002] # YI SYLLABLE RYT
+A3DB  ; [.3D14.0020.0002] # YI SYLLABLE RYX
+A3DC  ; [.3D15.0020.0002] # YI SYLLABLE RY
+A3DD  ; [.3D16.0020.0002] # YI SYLLABLE RYP
+A3DE  ; [.3D17.0020.0002] # YI SYLLABLE RYRX
+A3DF  ; [.3D18.0020.0002] # YI SYLLABLE RYR
+A3E0  ; [.3D19.0020.0002] # YI SYLLABLE JIT
+A3E1  ; [.3D1A.0020.0002] # YI SYLLABLE JIX
+A3E2  ; [.3D1B.0020.0002] # YI SYLLABLE JI
+A3E3  ; [.3D1C.0020.0002] # YI SYLLABLE JIP
+A3E4  ; [.3D1D.0020.0002] # YI SYLLABLE JIET
+A3E5  ; [.3D1E.0020.0002] # YI SYLLABLE JIEX
+A3E6  ; [.3D1F.0020.0002] # YI SYLLABLE JIE
+A3E7  ; [.3D20.0020.0002] # YI SYLLABLE JIEP
+A3E8  ; [.3D21.0020.0002] # YI SYLLABLE JUOT
+A3E9  ; [.3D22.0020.0002] # YI SYLLABLE JUOX
+A3EA  ; [.3D23.0020.0002] # YI SYLLABLE JUO
+A3EB  ; [.3D24.0020.0002] # YI SYLLABLE JUOP
+A3EC  ; [.3D25.0020.0002] # YI SYLLABLE JOT
+A3ED  ; [.3D26.0020.0002] # YI SYLLABLE JOX
+A3EE  ; [.3D27.0020.0002] # YI SYLLABLE JO
+A3EF  ; [.3D28.0020.0002] # YI SYLLABLE JOP
+A3F0  ; [.3D29.0020.0002] # YI SYLLABLE JUT
+A3F1  ; [.3D2A.0020.0002] # YI SYLLABLE JUX
+A3F2  ; [.3D2B.0020.0002] # YI SYLLABLE JU
+A3F3  ; [.3D2C.0020.0002] # YI SYLLABLE JUP
+A3F4  ; [.3D2D.0020.0002] # YI SYLLABLE JURX
+A3F5  ; [.3D2E.0020.0002] # YI SYLLABLE JUR
+A3F6  ; [.3D2F.0020.0002] # YI SYLLABLE JYT
+A3F7  ; [.3D30.0020.0002] # YI SYLLABLE JYX
+A3F8  ; [.3D31.0020.0002] # YI SYLLABLE JY
+A3F9  ; [.3D32.0020.0002] # YI SYLLABLE JYP
+A3FA  ; [.3D33.0020.0002] # YI SYLLABLE JYRX
+A3FB  ; [.3D34.0020.0002] # YI SYLLABLE JYR
+A3FC  ; [.3D35.0020.0002] # YI SYLLABLE QIT
+A3FD  ; [.3D36.0020.0002] # YI SYLLABLE QIX
+A3FE  ; [.3D37.0020.0002] # YI SYLLABLE QI
+A3FF  ; [.3D38.0020.0002] # YI SYLLABLE QIP
+A400  ; [.3D39.0020.0002] # YI SYLLABLE QIET
+A401  ; [.3D3A.0020.0002] # YI SYLLABLE QIEX
+A402  ; [.3D3B.0020.0002] # YI SYLLABLE QIE
+A403  ; [.3D3C.0020.0002] # YI SYLLABLE QIEP
+A404  ; [.3D3D.0020.0002] # YI SYLLABLE QUOT
+A405  ; [.3D3E.0020.0002] # YI SYLLABLE QUOX
+A406  ; [.3D3F.0020.0002] # YI SYLLABLE QUO
+A407  ; [.3D40.0020.0002] # YI SYLLABLE QUOP
+A408  ; [.3D41.0020.0002] # YI SYLLABLE QOT
+A409  ; [.3D42.0020.0002] # YI SYLLABLE QOX
+A40A  ; [.3D43.0020.0002] # YI SYLLABLE QO
+A40B  ; [.3D44.0020.0002] # YI SYLLABLE QOP
+A40C  ; [.3D45.0020.0002] # YI SYLLABLE QUT
+A40D  ; [.3D46.0020.0002] # YI SYLLABLE QUX
+A40E  ; [.3D47.0020.0002] # YI SYLLABLE QU
+A40F  ; [.3D48.0020.0002] # YI SYLLABLE QUP
+A410  ; [.3D49.0020.0002] # YI SYLLABLE QURX
+A411  ; [.3D4A.0020.0002] # YI SYLLABLE QUR
+A412  ; [.3D4B.0020.0002] # YI SYLLABLE QYT
+A413  ; [.3D4C.0020.0002] # YI SYLLABLE QYX
+A414  ; [.3D4D.0020.0002] # YI SYLLABLE QY
+A415  ; [.3D4E.0020.0002] # YI SYLLABLE QYP
+A416  ; [.3D4F.0020.0002] # YI SYLLABLE QYRX
+A417  ; [.3D50.0020.0002] # YI SYLLABLE QYR
+A418  ; [.3D51.0020.0002] # YI SYLLABLE JJIT
+A419  ; [.3D52.0020.0002] # YI SYLLABLE JJIX
+A41A  ; [.3D53.0020.0002] # YI SYLLABLE JJI
+A41B  ; [.3D54.0020.0002] # YI SYLLABLE JJIP
+A41C  ; [.3D55.0020.0002] # YI SYLLABLE JJIET
+A41D  ; [.3D56.0020.0002] # YI SYLLABLE JJIEX
+A41E  ; [.3D57.0020.0002] # YI SYLLABLE JJIE
+A41F  ; [.3D58.0020.0002] # YI SYLLABLE JJIEP
+A420  ; [.3D59.0020.0002] # YI SYLLABLE JJUOX
+A421  ; [.3D5A.0020.0002] # YI SYLLABLE JJUO
+A422  ; [.3D5B.0020.0002] # YI SYLLABLE JJUOP
+A423  ; [.3D5C.0020.0002] # YI SYLLABLE JJOT
+A424  ; [.3D5D.0020.0002] # YI SYLLABLE JJOX
+A425  ; [.3D5E.0020.0002] # YI SYLLABLE JJO
+A426  ; [.3D5F.0020.0002] # YI SYLLABLE JJOP
+A427  ; [.3D60.0020.0002] # YI SYLLABLE JJUT
+A428  ; [.3D61.0020.0002] # YI SYLLABLE JJUX
+A429  ; [.3D62.0020.0002] # YI SYLLABLE JJU
+A42A  ; [.3D63.0020.0002] # YI SYLLABLE JJUP
+A42B  ; [.3D64.0020.0002] # YI SYLLABLE JJURX
+A42C  ; [.3D65.0020.0002] # YI SYLLABLE JJUR
+A42D  ; [.3D66.0020.0002] # YI SYLLABLE JJYT
+A42E  ; [.3D67.0020.0002] # YI SYLLABLE JJYX
+A42F  ; [.3D68.0020.0002] # YI SYLLABLE JJY
+A430  ; [.3D69.0020.0002] # YI SYLLABLE JJYP
+A431  ; [.3D6A.0020.0002] # YI SYLLABLE NJIT
+A432  ; [.3D6B.0020.0002] # YI SYLLABLE NJIX
+A433  ; [.3D6C.0020.0002] # YI SYLLABLE NJI
+A434  ; [.3D6D.0020.0002] # YI SYLLABLE NJIP
+A435  ; [.3D6E.0020.0002] # YI SYLLABLE NJIET
+A436  ; [.3D6F.0020.0002] # YI SYLLABLE NJIEX
+A437  ; [.3D70.0020.0002] # YI SYLLABLE NJIE
+A438  ; [.3D71.0020.0002] # YI SYLLABLE NJIEP
+A439  ; [.3D72.0020.0002] # YI SYLLABLE NJUOX
+A43A  ; [.3D73.0020.0002] # YI SYLLABLE NJUO
+A43B  ; [.3D74.0020.0002] # YI SYLLABLE NJOT
+A43C  ; [.3D75.0020.0002] # YI SYLLABLE NJOX
+A43D  ; [.3D76.0020.0002] # YI SYLLABLE NJO
+A43E  ; [.3D77.0020.0002] # YI SYLLABLE NJOP
+A43F  ; [.3D78.0020.0002] # YI SYLLABLE NJUX
+A440  ; [.3D79.0020.0002] # YI SYLLABLE NJU
+A441  ; [.3D7A.0020.0002] # YI SYLLABLE NJUP
+A442  ; [.3D7B.0020.0002] # YI SYLLABLE NJURX
+A443  ; [.3D7C.0020.0002] # YI SYLLABLE NJUR
+A444  ; [.3D7D.0020.0002] # YI SYLLABLE NJYT
+A445  ; [.3D7E.0020.0002] # YI SYLLABLE NJYX
+A446  ; [.3D7F.0020.0002] # YI SYLLABLE NJY
+A447  ; [.3D80.0020.0002] # YI SYLLABLE NJYP
+A448  ; [.3D81.0020.0002] # YI SYLLABLE NJYRX
+A449  ; [.3D82.0020.0002] # YI SYLLABLE NJYR
+A44A  ; [.3D83.0020.0002] # YI SYLLABLE NYIT
+A44B  ; [.3D84.0020.0002] # YI SYLLABLE NYIX
+A44C  ; [.3D85.0020.0002] # YI SYLLABLE NYI
+A44D  ; [.3D86.0020.0002] # YI SYLLABLE NYIP
+A44E  ; [.3D87.0020.0002] # YI SYLLABLE NYIET
+A44F  ; [.3D88.0020.0002] # YI SYLLABLE NYIEX
+A450  ; [.3D89.0020.0002] # YI SYLLABLE NYIE
+A451  ; [.3D8A.0020.0002] # YI SYLLABLE NYIEP
+A452  ; [.3D8B.0020.0002] # YI SYLLABLE NYUOX
+A453  ; [.3D8C.0020.0002] # YI SYLLABLE NYUO
+A454  ; [.3D8D.0020.0002] # YI SYLLABLE NYUOP
+A455  ; [.3D8E.0020.0002] # YI SYLLABLE NYOT
+A456  ; [.3D8F.0020.0002] # YI SYLLABLE NYOX
+A457  ; [.3D90.0020.0002] # YI SYLLABLE NYO
+A458  ; [.3D91.0020.0002] # YI SYLLABLE NYOP
+A459  ; [.3D92.0020.0002] # YI SYLLABLE NYUT
+A45A  ; [.3D93.0020.0002] # YI SYLLABLE NYUX
+A45B  ; [.3D94.0020.0002] # YI SYLLABLE NYU
+A45C  ; [.3D95.0020.0002] # YI SYLLABLE NYUP
+A45D  ; [.3D96.0020.0002] # YI SYLLABLE XIT
+A45E  ; [.3D97.0020.0002] # YI SYLLABLE XIX
+A45F  ; [.3D98.0020.0002] # YI SYLLABLE XI
+A460  ; [.3D99.0020.0002] # YI SYLLABLE XIP
+A461  ; [.3D9A.0020.0002] # YI SYLLABLE XIET
+A462  ; [.3D9B.0020.0002] # YI SYLLABLE XIEX
+A463  ; [.3D9C.0020.0002] # YI SYLLABLE XIE
+A464  ; [.3D9D.0020.0002] # YI SYLLABLE XIEP
+A465  ; [.3D9E.0020.0002] # YI SYLLABLE XUOX
+A466  ; [.3D9F.0020.0002] # YI SYLLABLE XUO
+A467  ; [.3DA0.0020.0002] # YI SYLLABLE XOT
+A468  ; [.3DA1.0020.0002] # YI SYLLABLE XOX
+A469  ; [.3DA2.0020.0002] # YI SYLLABLE XO
+A46A  ; [.3DA3.0020.0002] # YI SYLLABLE XOP
+A46B  ; [.3DA4.0020.0002] # YI SYLLABLE XYT
+A46C  ; [.3DA5.0020.0002] # YI SYLLABLE XYX
+A46D  ; [.3DA6.0020.0002] # YI SYLLABLE XY
+A46E  ; [.3DA7.0020.0002] # YI SYLLABLE XYP
+A46F  ; [.3DA8.0020.0002] # YI SYLLABLE XYRX
+A470  ; [.3DA9.0020.0002] # YI SYLLABLE XYR
+A471  ; [.3DAA.0020.0002] # YI SYLLABLE YIT
+A472  ; [.3DAB.0020.0002] # YI SYLLABLE YIX
+A473  ; [.3DAC.0020.0002] # YI SYLLABLE YI
+A474  ; [.3DAD.0020.0002] # YI SYLLABLE YIP
+A475  ; [.3DAE.0020.0002] # YI SYLLABLE YIET
+A476  ; [.3DAF.0020.0002] # YI SYLLABLE YIEX
+A477  ; [.3DB0.0020.0002] # YI SYLLABLE YIE
+A478  ; [.3DB1.0020.0002] # YI SYLLABLE YIEP
+A479  ; [.3DB2.0020.0002] # YI SYLLABLE YUOT
+A47A  ; [.3DB3.0020.0002] # YI SYLLABLE YUOX
+A47B  ; [.3DB4.0020.0002] # YI SYLLABLE YUO
+A47C  ; [.3DB5.0020.0002] # YI SYLLABLE YUOP
+A47D  ; [.3DB6.0020.0002] # YI SYLLABLE YOT
+A47E  ; [.3DB7.0020.0002] # YI SYLLABLE YOX
+A47F  ; [.3DB8.0020.0002] # YI SYLLABLE YO
+A480  ; [.3DB9.0020.0002] # YI SYLLABLE YOP
+A481  ; [.3DBA.0020.0002] # YI SYLLABLE YUT
+A482  ; [.3DBB.0020.0002] # YI SYLLABLE YUX
+A483  ; [.3DBC.0020.0002] # YI SYLLABLE YU
+A484  ; [.3DBD.0020.0002] # YI SYLLABLE YUP
+A485  ; [.3DBE.0020.0002] # YI SYLLABLE YURX
+A486  ; [.3DBF.0020.0002] # YI SYLLABLE YUR
+A487  ; [.3DC0.0020.0002] # YI SYLLABLE YYT
+A488  ; [.3DC1.0020.0002] # YI SYLLABLE YYX
+A489  ; [.3DC2.0020.0002] # YI SYLLABLE YY
+A48A  ; [.3DC3.0020.0002] # YI SYLLABLE YYP
+A48B  ; [.3DC4.0020.0002] # YI SYLLABLE YYRX
+A48C  ; [.3DC5.0020.0002] # YI SYLLABLE YYR
+A4F8  ; [.3DC6.0020.0002] # LISU LETTER TONE MYA TI
+A4F9  ; [.3DC7.0020.0002] # LISU LETTER TONE NA PO
+A4FA  ; [.3DC8.0020.0002] # LISU LETTER TONE MYA CYA
+A4FB  ; [.3DC9.0020.0002] # LISU LETTER TONE MYA BO
+A4FD  ; [.3DCA.0020.0002] # LISU LETTER TONE MYA JEU
+A4FC  ; [.3DCB.0020.0002] # LISU LETTER TONE MYA NA
+A4D0  ; [.3DCC.0020.0002] # LISU LETTER BA
+A4D1  ; [.3DCD.0020.0002] # LISU LETTER PA
+A4D2  ; [.3DCE.0020.0002] # LISU LETTER PHA
+A4D3  ; [.3DCF.0020.0002] # LISU LETTER DA
+A4D4  ; [.3DD0.0020.0002] # LISU LETTER TA
+A4D5  ; [.3DD1.0020.0002] # LISU LETTER THA
+A4D6  ; [.3DD2.0020.0002] # LISU LETTER GA
+A4D7  ; [.3DD3.0020.0002] # LISU LETTER KA
+A4D8  ; [.3DD4.0020.0002] # LISU LETTER KHA
+A4D9  ; [.3DD5.0020.0002] # LISU LETTER JA
+A4DA  ; [.3DD6.0020.0002] # LISU LETTER CA
+A4DB  ; [.3DD7.0020.0002] # LISU LETTER CHA
+A4DC  ; [.3DD8.0020.0002] # LISU LETTER DZA
+A4DD  ; [.3DD9.0020.0002] # LISU LETTER TSA
+A4DE  ; [.3DDA.0020.0002] # LISU LETTER TSHA
+A4DF  ; [.3DDB.0020.0002] # LISU LETTER MA
+A4E0  ; [.3DDC.0020.0002] # LISU LETTER NA
+A4E1  ; [.3DDD.0020.0002] # LISU LETTER LA
+A4E2  ; [.3DDE.0020.0002] # LISU LETTER SA
+A4E3  ; [.3DDF.0020.0002] # LISU LETTER ZHA
+A4E4  ; [.3DE0.0020.0002] # LISU LETTER ZA
+A4E5  ; [.3DE1.0020.0002] # LISU LETTER NGA
+A4E6  ; [.3DE2.0020.0002] # LISU LETTER HA
+A4E7  ; [.3DE3.0020.0002] # LISU LETTER XA
+A4E8  ; [.3DE4.0020.0002] # LISU LETTER HHA
+A4E9  ; [.3DE5.0020.0002] # LISU LETTER FA
+A4EB  ; [.3DE6.0020.0002] # LISU LETTER SHA
+A4ED  ; [.3DE7.0020.0002] # LISU LETTER GHA
+A4EA  ; [.3DE8.0020.0002] # LISU LETTER WA
+A4EC  ; [.3DE9.0020.0002] # LISU LETTER YA
+A4EE  ; [.3DEA.0020.0002] # LISU LETTER A
+A4EF  ; [.3DEB.0020.0002] # LISU LETTER AE
+A4F0  ; [.3DEC.0020.0002] # LISU LETTER E
+A4F1  ; [.3DED.0020.0002] # LISU LETTER EU
+A4F2  ; [.3DEE.0020.0002] # LISU LETTER I
+A4F3  ; [.3DEF.0020.0002] # LISU LETTER O
+A4F4  ; [.3DF0.0020.0002] # LISU LETTER U
+A4F5  ; [.3DF1.0020.0002] # LISU LETTER UE
+A4F6  ; [.3DF2.0020.0002] # LISU LETTER UH
+A4F7  ; [.3DF3.0020.0002] # LISU LETTER OE
+16F00 ; [.3DF4.0020.0002] # MIAO LETTER PA
+16F01 ; [.3DF5.0020.0002] # MIAO LETTER BA
+16F02 ; [.3DF6.0020.0002] # MIAO LETTER YI PA
+16F03 ; [.3DF7.0020.0002] # MIAO LETTER PLA
+16F04 ; [.3DF8.0020.0002] # MIAO LETTER MA
+16F06 ; [.3DF8.0020.0004] # MIAO LETTER ARCHAIC MA
+16F05 ; [.3DF9.0020.0002] # MIAO LETTER MHA
+16F07 ; [.3DFA.0020.0002] # MIAO LETTER FA
+16F08 ; [.3DFB.0020.0002] # MIAO LETTER VA
+16F09 ; [.3DFC.0020.0002] # MIAO LETTER VFA
+16F0A ; [.3DFD.0020.0002] # MIAO LETTER TA
+16F0B ; [.3DFE.0020.0002] # MIAO LETTER DA
+16F0C ; [.3DFF.0020.0002] # MIAO LETTER YI TTA
+16F0D ; [.3E00.0020.0002] # MIAO LETTER YI TA
+16F0E ; [.3E01.0020.0002] # MIAO LETTER TTA
+16F0F ; [.3E02.0020.0002] # MIAO LETTER DDA
+16F10 ; [.3E03.0020.0002] # MIAO LETTER NA
+16F13 ; [.3E03.0020.0004] # MIAO LETTER ARCHAIC NA
+16F11 ; [.3E04.0020.0002] # MIAO LETTER NHA
+16F12 ; [.3E05.0020.0002] # MIAO LETTER YI NNA
+16F14 ; [.3E06.0020.0002] # MIAO LETTER NNA
+16F15 ; [.3E07.0020.0002] # MIAO LETTER NNHA
+16F16 ; [.3E08.0020.0002] # MIAO LETTER LA
+16F17 ; [.3E09.0020.0002] # MIAO LETTER LYA
+16F18 ; [.3E0A.0020.0002] # MIAO LETTER LHA
+16F19 ; [.3E0B.0020.0002] # MIAO LETTER LHYA
+16F1A ; [.3E0C.0020.0002] # MIAO LETTER TLHA
+16F1B ; [.3E0D.0020.0002] # MIAO LETTER DLHA
+16F1C ; [.3E0E.0020.0002] # MIAO LETTER TLHYA
+16F1D ; [.3E0F.0020.0002] # MIAO LETTER DLHYA
+16F1E ; [.3E10.0020.0002] # MIAO LETTER KA
+16F1F ; [.3E11.0020.0002] # MIAO LETTER GA
+16F20 ; [.3E12.0020.0002] # MIAO LETTER YI KA
+16F21 ; [.3E13.0020.0002] # MIAO LETTER QA
+16F22 ; [.3E14.0020.0002] # MIAO LETTER QGA
+16F23 ; [.3E15.0020.0002] # MIAO LETTER NGA
+16F25 ; [.3E15.0020.0004] # MIAO LETTER ARCHAIC NGA
+16F24 ; [.3E16.0020.0002] # MIAO LETTER NGHA
+16F26 ; [.3E17.0020.0002] # MIAO LETTER HA
+16F27 ; [.3E18.0020.0002] # MIAO LETTER XA
+16F28 ; [.3E19.0020.0002] # MIAO LETTER GHA
+16F29 ; [.3E1A.0020.0002] # MIAO LETTER GHHA
+16F2A ; [.3E1B.0020.0002] # MIAO LETTER TSSA
+16F2B ; [.3E1C.0020.0002] # MIAO LETTER DZZA
+16F2C ; [.3E1D.0020.0002] # MIAO LETTER NYA
+16F2D ; [.3E1E.0020.0002] # MIAO LETTER NYHA
+16F2E ; [.3E1F.0020.0002] # MIAO LETTER TSHA
+16F2F ; [.3E20.0020.0002] # MIAO LETTER DZHA
+16F30 ; [.3E21.0020.0002] # MIAO LETTER YI TSHA
+16F31 ; [.3E22.0020.0002] # MIAO LETTER YI DZHA
+16F32 ; [.3E23.0020.0002] # MIAO LETTER REFORMED TSHA
+16F33 ; [.3E24.0020.0002] # MIAO LETTER SHA
+16F34 ; [.3E25.0020.0002] # MIAO LETTER SSA
+16F35 ; [.3E26.0020.0002] # MIAO LETTER ZHA
+16F36 ; [.3E27.0020.0002] # MIAO LETTER ZSHA
+16F37 ; [.3E28.0020.0002] # MIAO LETTER TSA
+16F38 ; [.3E29.0020.0002] # MIAO LETTER DZA
+16F39 ; [.3E2A.0020.0002] # MIAO LETTER YI TSA
+16F3A ; [.3E2B.0020.0002] # MIAO LETTER SA
+16F3B ; [.3E2C.0020.0002] # MIAO LETTER ZA
+16F3C ; [.3E2D.0020.0002] # MIAO LETTER ZSA
+16F3D ; [.3E2E.0020.0002] # MIAO LETTER ZZA
+16F3F ; [.3E2E.0020.0004] # MIAO LETTER ARCHAIC ZZA
+16F3E ; [.3E2F.0020.0002] # MIAO LETTER ZZSA
+16F40 ; [.3E30.0020.0002] # MIAO LETTER ZZYA
+16F41 ; [.3E31.0020.0002] # MIAO LETTER ZZSYA
+16F42 ; [.3E32.0020.0002] # MIAO LETTER WA
+16F43 ; [.3E33.0020.0002] # MIAO LETTER AH
+16F44 ; [.3E34.0020.0002] # MIAO LETTER HHA
+16F50 ; [.3E35.0020.0002] # MIAO LETTER NASALIZATION
+16F51 ; [.3E36.0020.0002] # MIAO SIGN ASPIRATION
+16F52 ; [.3E37.0020.0002] # MIAO SIGN REFORMED VOICING
+16F53 ; [.3E38.0020.0002] # MIAO SIGN REFORMED ASPIRATION
+16F54 ; [.3E39.0020.0002] # MIAO VOWEL SIGN A
+16F55 ; [.3E3A.0020.0002] # MIAO VOWEL SIGN AA
+16F56 ; [.3E3B.0020.0002] # MIAO VOWEL SIGN AHH
+16F57 ; [.3E3C.0020.0002] # MIAO VOWEL SIGN AN
+16F58 ; [.3E3D.0020.0002] # MIAO VOWEL SIGN ANG
+16F59 ; [.3E3E.0020.0002] # MIAO VOWEL SIGN O
+16F5A ; [.3E3F.0020.0002] # MIAO VOWEL SIGN OO
+16F5B ; [.3E40.0020.0002] # MIAO VOWEL SIGN WO
+16F5C ; [.3E41.0020.0002] # MIAO VOWEL SIGN W
+16F5D ; [.3E42.0020.0002] # MIAO VOWEL SIGN E
+16F5E ; [.3E43.0020.0002] # MIAO VOWEL SIGN EN
+16F5F ; [.3E44.0020.0002] # MIAO VOWEL SIGN ENG
+16F60 ; [.3E45.0020.0002] # MIAO VOWEL SIGN OEY
+16F61 ; [.3E46.0020.0002] # MIAO VOWEL SIGN I
+16F62 ; [.3E47.0020.0002] # MIAO VOWEL SIGN IA
+16F63 ; [.3E48.0020.0002] # MIAO VOWEL SIGN IAN
+16F64 ; [.3E49.0020.0002] # MIAO VOWEL SIGN IANG
+16F65 ; [.3E4A.0020.0002] # MIAO VOWEL SIGN IO
+16F66 ; [.3E4B.0020.0002] # MIAO VOWEL SIGN IE
+16F67 ; [.3E4C.0020.0002] # MIAO VOWEL SIGN II
+16F68 ; [.3E4D.0020.0002] # MIAO VOWEL SIGN IU
+16F69 ; [.3E4E.0020.0002] # MIAO VOWEL SIGN ING
+16F6A ; [.3E4F.0020.0002] # MIAO VOWEL SIGN U
+16F6B ; [.3E50.0020.0002] # MIAO VOWEL SIGN UA
+16F6C ; [.3E51.0020.0002] # MIAO VOWEL SIGN UAN
+16F6D ; [.3E52.0020.0002] # MIAO VOWEL SIGN UANG
+16F6E ; [.3E53.0020.0002] # MIAO VOWEL SIGN UU
+16F6F ; [.3E54.0020.0002] # MIAO VOWEL SIGN UEI
+16F70 ; [.3E55.0020.0002] # MIAO VOWEL SIGN UNG
+16F71 ; [.3E56.0020.0002] # MIAO VOWEL SIGN Y
+16F72 ; [.3E57.0020.0002] # MIAO VOWEL SIGN YI
+16F73 ; [.3E58.0020.0002] # MIAO VOWEL SIGN AE
+16F74 ; [.3E59.0020.0002] # MIAO VOWEL SIGN AEE
+16F75 ; [.3E5A.0020.0002] # MIAO VOWEL SIGN ERR
+16F76 ; [.3E5B.0020.0002] # MIAO VOWEL SIGN ROUNDED ERR
+16F77 ; [.3E5C.0020.0002] # MIAO VOWEL SIGN ER
+16F78 ; [.3E5D.0020.0002] # MIAO VOWEL SIGN ROUNDED ER
+16F79 ; [.3E5E.0020.0002] # MIAO VOWEL SIGN AI
+16F7A ; [.3E5F.0020.0002] # MIAO VOWEL SIGN EI
+16F7B ; [.3E60.0020.0002] # MIAO VOWEL SIGN AU
+16F7C ; [.3E61.0020.0002] # MIAO VOWEL SIGN OU
+16F7D ; [.3E62.0020.0002] # MIAO VOWEL SIGN N
+16F7E ; [.3E63.0020.0002] # MIAO VOWEL SIGN NG
+16F8F ; [.3E64.0020.0002] # MIAO TONE RIGHT
+16F90 ; [.3E65.0020.0002] # MIAO TONE TOP RIGHT
+16F91 ; [.3E66.0020.0002] # MIAO TONE ABOVE
+16F92 ; [.3E67.0020.0002] # MIAO TONE BELOW
+16F93 ; [.3E68.0020.0002] # MIAO LETTER TONE-2
+16F94 ; [.3E69.0020.0002] # MIAO LETTER TONE-3
+16F95 ; [.3E6A.0020.0002] # MIAO LETTER TONE-4
+16F96 ; [.3E6B.0020.0002] # MIAO LETTER TONE-5
+16F97 ; [.3E6C.0020.0002] # MIAO LETTER TONE-6
+16F98 ; [.3E6D.0020.0002] # MIAO LETTER TONE-7
+16F99 ; [.3E6E.0020.0002] # MIAO LETTER TONE-8
+16F9A ; [.3E6F.0020.0002] # MIAO LETTER REFORMED TONE-1
+16F9B ; [.3E70.0020.0002] # MIAO LETTER REFORMED TONE-2
+16F9C ; [.3E71.0020.0002] # MIAO LETTER REFORMED TONE-4
+16F9D ; [.3E72.0020.0002] # MIAO LETTER REFORMED TONE-5
+16F9E ; [.3E73.0020.0002] # MIAO LETTER REFORMED TONE-6
+16F9F ; [.3E74.0020.0002] # MIAO LETTER REFORMED TONE-8
+118FF ; [.3E75.0020.0002] # WARANG CITI OM
+118C0 ; [.3E76.0020.0002] # WARANG CITI SMALL LETTER NGAA
+118A0 ; [.3E76.0020.0008] # WARANG CITI CAPITAL LETTER NGAA
+118C1 ; [.3E77.0020.0002] # WARANG CITI SMALL LETTER A
+118A1 ; [.3E77.0020.0008] # WARANG CITI CAPITAL LETTER A
+118C2 ; [.3E78.0020.0002] # WARANG CITI SMALL LETTER WI
+118A2 ; [.3E78.0020.0008] # WARANG CITI CAPITAL LETTER WI
+118C3 ; [.3E79.0020.0002] # WARANG CITI SMALL LETTER YU
+118A3 ; [.3E79.0020.0008] # WARANG CITI CAPITAL LETTER YU
+118C4 ; [.3E7A.0020.0002] # WARANG CITI SMALL LETTER YA
+118A4 ; [.3E7A.0020.0008] # WARANG CITI CAPITAL LETTER YA
+118C5 ; [.3E7B.0020.0002] # WARANG CITI SMALL LETTER YO
+118A5 ; [.3E7B.0020.0008] # WARANG CITI CAPITAL LETTER YO
+118C6 ; [.3E7C.0020.0002] # WARANG CITI SMALL LETTER II
+118A6 ; [.3E7C.0020.0008] # WARANG CITI CAPITAL LETTER II
+118C7 ; [.3E7D.0020.0002] # WARANG CITI SMALL LETTER UU
+118A7 ; [.3E7D.0020.0008] # WARANG CITI CAPITAL LETTER UU
+118C8 ; [.3E7E.0020.0002] # WARANG CITI SMALL LETTER E
+118A8 ; [.3E7E.0020.0008] # WARANG CITI CAPITAL LETTER E
+118C9 ; [.3E7F.0020.0002] # WARANG CITI SMALL LETTER O
+118A9 ; [.3E7F.0020.0008] # WARANG CITI CAPITAL LETTER O
+118CA ; [.3E80.0020.0002] # WARANG CITI SMALL LETTER ANG
+118AA ; [.3E80.0020.0008] # WARANG CITI CAPITAL LETTER ANG
+118CB ; [.3E81.0020.0002] # WARANG CITI SMALL LETTER GA
+118AB ; [.3E81.0020.0008] # WARANG CITI CAPITAL LETTER GA
+118CC ; [.3E82.0020.0002] # WARANG CITI SMALL LETTER KO
+118AC ; [.3E82.0020.0008] # WARANG CITI CAPITAL LETTER KO
+118CD ; [.3E83.0020.0002] # WARANG CITI SMALL LETTER ENY
+118AD ; [.3E83.0020.0008] # WARANG CITI CAPITAL LETTER ENY
+118CE ; [.3E84.0020.0002] # WARANG CITI SMALL LETTER YUJ
+118AE ; [.3E84.0020.0008] # WARANG CITI CAPITAL LETTER YUJ
+118CF ; [.3E85.0020.0002] # WARANG CITI SMALL LETTER UC
+118AF ; [.3E85.0020.0008] # WARANG CITI CAPITAL LETTER UC
+118D0 ; [.3E86.0020.0002] # WARANG CITI SMALL LETTER ENN
+118B0 ; [.3E86.0020.0008] # WARANG CITI CAPITAL LETTER ENN
+118D1 ; [.3E87.0020.0002] # WARANG CITI SMALL LETTER ODD
+118B1 ; [.3E87.0020.0008] # WARANG CITI CAPITAL LETTER ODD
+118D2 ; [.3E88.0020.0002] # WARANG CITI SMALL LETTER TTE
+118B2 ; [.3E88.0020.0008] # WARANG CITI CAPITAL LETTER TTE
+118D3 ; [.3E89.0020.0002] # WARANG CITI SMALL LETTER NUNG
+118B3 ; [.3E89.0020.0008] # WARANG CITI CAPITAL LETTER NUNG
+118D4 ; [.3E8A.0020.0002] # WARANG CITI SMALL LETTER DA
+118B4 ; [.3E8A.0020.0008] # WARANG CITI CAPITAL LETTER DA
+118D5 ; [.3E8B.0020.0002] # WARANG CITI SMALL LETTER AT
+118B5 ; [.3E8B.0020.0008] # WARANG CITI CAPITAL LETTER AT
+118D6 ; [.3E8C.0020.0002] # WARANG CITI SMALL LETTER AM
+118B6 ; [.3E8C.0020.0008] # WARANG CITI CAPITAL LETTER AM
+118D7 ; [.3E8D.0020.0002] # WARANG CITI SMALL LETTER BU
+118B7 ; [.3E8D.0020.0008] # WARANG CITI CAPITAL LETTER BU
+118D8 ; [.3E8E.0020.0002] # WARANG CITI SMALL LETTER PU
+118B8 ; [.3E8E.0020.0008] # WARANG CITI CAPITAL LETTER PU
+118D9 ; [.3E8F.0020.0002] # WARANG CITI SMALL LETTER HIYO
+118B9 ; [.3E8F.0020.0008] # WARANG CITI CAPITAL LETTER HIYO
+118DA ; [.3E90.0020.0002] # WARANG CITI SMALL LETTER HOLO
+118BA ; [.3E90.0020.0008] # WARANG CITI CAPITAL LETTER HOLO
+118DB ; [.3E91.0020.0002] # WARANG CITI SMALL LETTER HORR
+118BB ; [.3E91.0020.0008] # WARANG CITI CAPITAL LETTER HORR
+118DC ; [.3E92.0020.0002] # WARANG CITI SMALL LETTER HAR
+118BC ; [.3E92.0020.0008] # WARANG CITI CAPITAL LETTER HAR
+118DD ; [.3E93.0020.0002] # WARANG CITI SMALL LETTER SSUU
+118BD ; [.3E93.0020.0008] # WARANG CITI CAPITAL LETTER SSUU
+118DE ; [.3E94.0020.0002] # WARANG CITI SMALL LETTER SII
+118BE ; [.3E94.0020.0008] # WARANG CITI CAPITAL LETTER SII
+118DF ; [.3E95.0020.0002] # WARANG CITI SMALL LETTER VIYO
+118BF ; [.3E95.0020.0008] # WARANG CITI CAPITAL LETTER VIYO
+11AD5 ; [.3E96.0020.0002] # PAU CIN HAU LETTER A
+11AD6 ; [.3E97.0020.0002] # PAU CIN HAU LETTER E
+11AD7 ; [.3E98.0020.0002] # PAU CIN HAU LETTER I
+11AD8 ; [.3E99.0020.0002] # PAU CIN HAU LETTER O
+11AD9 ; [.3E9A.0020.0002] # PAU CIN HAU LETTER U
+11ADA ; [.3E9B.0020.0002] # PAU CIN HAU LETTER UA
+11ADB ; [.3E9C.0020.0002] # PAU CIN HAU LETTER IA
+11AC0 ; [.3E9D.0020.0002] # PAU CIN HAU LETTER PA
+11AC1 ; [.3E9E.0020.0002] # PAU CIN HAU LETTER KA
+11AC2 ; [.3E9F.0020.0002] # PAU CIN HAU LETTER LA
+11AC3 ; [.3EA0.0020.0002] # PAU CIN HAU LETTER MA
+11AC4 ; [.3EA1.0020.0002] # PAU CIN HAU LETTER DA
+11AC5 ; [.3EA2.0020.0002] # PAU CIN HAU LETTER ZA
+11AC6 ; [.3EA3.0020.0002] # PAU CIN HAU LETTER VA
+11AC7 ; [.3EA4.0020.0002] # PAU CIN HAU LETTER NGA
+11AC8 ; [.3EA5.0020.0002] # PAU CIN HAU LETTER HA
+11AC9 ; [.3EA6.0020.0002] # PAU CIN HAU LETTER GA
+11ACA ; [.3EA7.0020.0002] # PAU CIN HAU LETTER KHA
+11ACB ; [.3EA8.0020.0002] # PAU CIN HAU LETTER SA
+11ACC ; [.3EA9.0020.0002] # PAU CIN HAU LETTER BA
+11ACD ; [.3EAA.0020.0002] # PAU CIN HAU LETTER CA
+11ACE ; [.3EAB.0020.0002] # PAU CIN HAU LETTER TA
+11ACF ; [.3EAC.0020.0002] # PAU CIN HAU LETTER THA
+11AD0 ; [.3EAD.0020.0002] # PAU CIN HAU LETTER NA
+11AD1 ; [.3EAE.0020.0002] # PAU CIN HAU LETTER PHA
+11AD2 ; [.3EAF.0020.0002] # PAU CIN HAU LETTER RA
+11AD3 ; [.3EB0.0020.0002] # PAU CIN HAU LETTER FA
+11AD4 ; [.3EB1.0020.0002] # PAU CIN HAU LETTER CHA
+11ADC ; [.3EB2.0020.0002] # PAU CIN HAU LETTER FINAL P
+11ADD ; [.3EB3.0020.0002] # PAU CIN HAU LETTER FINAL K
+11ADF ; [.3EB4.0020.0002] # PAU CIN HAU LETTER FINAL M
+11AE0 ; [.3EB5.0020.0002] # PAU CIN HAU LETTER FINAL N
+11AE1 ; [.3EB6.0020.0002] # PAU CIN HAU LETTER FINAL L
+11AE2 ; [.3EB7.0020.0002] # PAU CIN HAU LETTER FINAL W
+11AE3 ; [.3EB8.0020.0002] # PAU CIN HAU LETTER FINAL NG
+11ADE ; [.3EB9.0020.0002] # PAU CIN HAU LETTER FINAL T
+11AE4 ; [.3EBA.0020.0002] # PAU CIN HAU LETTER FINAL Y
+11AEF ; [.3EBB.0020.0002] # PAU CIN HAU MID-LEVEL TONE
+11AF2 ; [.3EBC.0020.0002] # PAU CIN HAU MID-LEVEL TONE FINAL
+11AF1 ; [.3EBD.0020.0002] # PAU CIN HAU MID-LEVEL TONE LONG FINAL
+11AE6 ; [.3EBE.0020.0002] # PAU CIN HAU RISING TONE
+11AE9 ; [.3EBF.0020.0002] # PAU CIN HAU RISING TONE FINAL
+11AE5 ; [.3EC0.0020.0002] # PAU CIN HAU RISING TONE LONG
+11AE8 ; [.3EC1.0020.0002] # PAU CIN HAU RISING TONE LONG FINAL
+11AF4 ; [.3EC2.0020.0002] # PAU CIN HAU LOW-FALLING TONE
+11AF7 ; [.3EC3.0020.0002] # PAU CIN HAU LOW-FALLING TONE FINAL
+11AF3 ; [.3EC4.0020.0002] # PAU CIN HAU LOW-FALLING TONE LONG
+11AF6 ; [.3EC5.0020.0002] # PAU CIN HAU LOW-FALLING TONE LONG FINAL
+11AEC ; [.3EC6.0020.0002] # PAU CIN HAU SANDHI TONE
+11AEE ; [.3EC7.0020.0002] # PAU CIN HAU SANDHI TONE FINAL
+11AEB ; [.3EC8.0020.0002] # PAU CIN HAU SANDHI TONE LONG
+11AED ; [.3EC9.0020.0002] # PAU CIN HAU SANDHI TONE LONG FINAL
+11AF5 ; [.3ECA.0020.0002] # PAU CIN HAU GLOTTAL STOP
+11AF8 ; [.3ECB.0020.0002] # PAU CIN HAU GLOTTAL STOP FINAL
+11AE7 ; [.3ECC.0020.0002] # PAU CIN HAU SANDHI GLOTTAL STOP
+11AEA ; [.3ECD.0020.0002] # PAU CIN HAU SANDHI GLOTTAL STOP FINAL
+11AF0 ; [.3ECE.0020.0002] # PAU CIN HAU GLOTTAL STOP VARIANT
+16B00 ; [.3ECF.0020.0002] # PAHAWH HMONG VOWEL KEEB
+16B01 ; [.3ED0.0020.0002] # PAHAWH HMONG VOWEL KEEV
+16B02 ; [.3ED1.0020.0002] # PAHAWH HMONG VOWEL KIB
+16B03 ; [.3ED2.0020.0002] # PAHAWH HMONG VOWEL KIV
+16B04 ; [.3ED3.0020.0002] # PAHAWH HMONG VOWEL KAUB
+16B05 ; [.3ED4.0020.0002] # PAHAWH HMONG VOWEL KAUV
+16B06 ; [.3ED5.0020.0002] # PAHAWH HMONG VOWEL KUB
+16B07 ; [.3ED6.0020.0002] # PAHAWH HMONG VOWEL KUV
+16B08 ; [.3ED7.0020.0002] # PAHAWH HMONG VOWEL KEB
+16B09 ; [.3ED8.0020.0002] # PAHAWH HMONG VOWEL KEV
+16B0A ; [.3ED9.0020.0002] # PAHAWH HMONG VOWEL KAIB
+16B0B ; [.3EDA.0020.0002] # PAHAWH HMONG VOWEL KAIV
+16B0C ; [.3EDB.0020.0002] # PAHAWH HMONG VOWEL KOOB
+16B0D ; [.3EDC.0020.0002] # PAHAWH HMONG VOWEL KOOV
+16B0E ; [.3EDD.0020.0002] # PAHAWH HMONG VOWEL KAWB
+16B0F ; [.3EDE.0020.0002] # PAHAWH HMONG VOWEL KAWV
+16B10 ; [.3EDF.0020.0002] # PAHAWH HMONG VOWEL KUAB
+16B11 ; [.3EE0.0020.0002] # PAHAWH HMONG VOWEL KUAV
+16B12 ; [.3EE1.0020.0002] # PAHAWH HMONG VOWEL KOB
+16B13 ; [.3EE2.0020.0002] # PAHAWH HMONG VOWEL KOV
+16B14 ; [.3EE3.0020.0002] # PAHAWH HMONG VOWEL KIAB
+16B15 ; [.3EE4.0020.0002] # PAHAWH HMONG VOWEL KIAV
+16B16 ; [.3EE5.0020.0002] # PAHAWH HMONG VOWEL KAB
+16B17 ; [.3EE6.0020.0002] # PAHAWH HMONG VOWEL KAV
+16B18 ; [.3EE7.0020.0002] # PAHAWH HMONG VOWEL KWB
+16B19 ; [.3EE8.0020.0002] # PAHAWH HMONG VOWEL KWV
+16B1A ; [.3EE9.0020.0002] # PAHAWH HMONG VOWEL KAAB
+16B1B ; [.3EEA.0020.0002] # PAHAWH HMONG VOWEL KAAV
+16B1C ; [.3EEB.0020.0002] # PAHAWH HMONG CONSONANT VAU
+16B1D ; [.3EEC.0020.0002] # PAHAWH HMONG CONSONANT NTSAU
+16B1E ; [.3EED.0020.0002] # PAHAWH HMONG CONSONANT LAU
+16B1F ; [.3EEE.0020.0002] # PAHAWH HMONG CONSONANT HAU
+16B20 ; [.3EEF.0020.0002] # PAHAWH HMONG CONSONANT NLAU
+16B21 ; [.3EF0.0020.0002] # PAHAWH HMONG CONSONANT RAU
+16B22 ; [.3EF1.0020.0002] # PAHAWH HMONG CONSONANT NKAU
+16B23 ; [.3EF2.0020.0002] # PAHAWH HMONG CONSONANT QHAU
+16B24 ; [.3EF3.0020.0002] # PAHAWH HMONG CONSONANT YAU
+16B25 ; [.3EF4.0020.0002] # PAHAWH HMONG CONSONANT HLAU
+16B26 ; [.3EF5.0020.0002] # PAHAWH HMONG CONSONANT MAU
+16B27 ; [.3EF6.0020.0002] # PAHAWH HMONG CONSONANT CHAU
+16B28 ; [.3EF7.0020.0002] # PAHAWH HMONG CONSONANT NCHAU
+16B29 ; [.3EF8.0020.0002] # PAHAWH HMONG CONSONANT HNAU
+16B2A ; [.3EF9.0020.0002] # PAHAWH HMONG CONSONANT PLHAU
+16B2B ; [.3EFA.0020.0002] # PAHAWH HMONG CONSONANT NTHAU
+16B2C ; [.3EFB.0020.0002] # PAHAWH HMONG CONSONANT NAU
+16B2D ; [.3EFC.0020.0002] # PAHAWH HMONG CONSONANT AU
+16B2E ; [.3EFD.0020.0002] # PAHAWH HMONG CONSONANT XAU
+16B2F ; [.3EFE.0020.0002] # PAHAWH HMONG CONSONANT CAU
+16B40 ; [.3EFF.0020.0002] # PAHAWH HMONG SIGN VOS SEEV
+16B41 ; [.3F00.0020.0002] # PAHAWH HMONG SIGN MEEJ SUAB
+16B63 ; [.3F01.0020.0002] # PAHAWH HMONG SIGN VOS LUB
+16B64 ; [.3F02.0020.0002] # PAHAWH HMONG SIGN XYOO
+16B65 ; [.3F03.0020.0002] # PAHAWH HMONG SIGN HLI
+16B66 ; [.3F04.0020.0002] # PAHAWH HMONG SIGN THIRD-STAGE HLI
+16B67 ; [.3F05.0020.0002] # PAHAWH HMONG SIGN ZWJ THAJ
+16B68 ; [.3F06.0020.0002] # PAHAWH HMONG SIGN HNUB
+16B69 ; [.3F07.0020.0002] # PAHAWH HMONG SIGN NQIG
+16B6A ; [.3F08.0020.0002] # PAHAWH HMONG SIGN XIAB
+16B6B ; [.3F09.0020.0002] # PAHAWH HMONG SIGN NTUJ
+16B6C ; [.3F0A.0020.0002] # PAHAWH HMONG SIGN AV
+16B6D ; [.3F0B.0020.0002] # PAHAWH HMONG SIGN TXHEEJ CEEV
+16B6E ; [.3F0C.0020.0002] # PAHAWH HMONG SIGN MEEJ TSEEB
+16B6F ; [.3F0D.0020.0002] # PAHAWH HMONG SIGN TAU
+16B70 ; [.3F0E.0020.0002] # PAHAWH HMONG SIGN LOS
+16B71 ; [.3F0F.0020.0002] # PAHAWH HMONG SIGN MUS
+16B72 ; [.3F10.0020.0002] # PAHAWH HMONG SIGN CIM HAIS LUS NTOG NTOG
+16B73 ; [.3F11.0020.0002] # PAHAWH HMONG SIGN CIM CUAM TSHOOJ
+16B74 ; [.3F12.0020.0002] # PAHAWH HMONG SIGN CIM TXWV
+16B75 ; [.3F13.0020.0002] # PAHAWH HMONG SIGN CIM TXWV CHWV
+16B76 ; [.3F14.0020.0002] # PAHAWH HMONG SIGN CIM PUB DAWB
+16B77 ; [.3F15.0020.0002] # PAHAWH HMONG SIGN CIM NRES TOS
+16B7D ; [.3F16.0020.0002] # PAHAWH HMONG CLAN SIGN TSHEEJ
+16B7E ; [.3F17.0020.0002] # PAHAWH HMONG CLAN SIGN YEEG
+16B7F ; [.3F18.0020.0002] # PAHAWH HMONG CLAN SIGN LIS
+16B80 ; [.3F19.0020.0002] # PAHAWH HMONG CLAN SIGN LAUJ
+16B81 ; [.3F1A.0020.0002] # PAHAWH HMONG CLAN SIGN XYOOJ
+16B82 ; [.3F1B.0020.0002] # PAHAWH HMONG CLAN SIGN KOO
+16B83 ; [.3F1C.0020.0002] # PAHAWH HMONG CLAN SIGN HAWJ
+16B84 ; [.3F1D.0020.0002] # PAHAWH HMONG CLAN SIGN MUAS
+16B85 ; [.3F1E.0020.0002] # PAHAWH HMONG CLAN SIGN THOJ
+16B86 ; [.3F1F.0020.0002] # PAHAWH HMONG CLAN SIGN TSAB
+16B87 ; [.3F20.0020.0002] # PAHAWH HMONG CLAN SIGN PHAB
+16B88 ; [.3F21.0020.0002] # PAHAWH HMONG CLAN SIGN KHAB
+16B89 ; [.3F22.0020.0002] # PAHAWH HMONG CLAN SIGN HAM
+16B8A ; [.3F23.0020.0002] # PAHAWH HMONG CLAN SIGN VAJ
+16B8B ; [.3F24.0020.0002] # PAHAWH HMONG CLAN SIGN FAJ
+16B8C ; [.3F25.0020.0002] # PAHAWH HMONG CLAN SIGN YAJ
+16B8D ; [.3F26.0020.0002] # PAHAWH HMONG CLAN SIGN TSWB
+16B8E ; [.3F27.0020.0002] # PAHAWH HMONG CLAN SIGN KWM
+16B8F ; [.3F28.0020.0002] # PAHAWH HMONG CLAN SIGN VWJ
+10280 ; [.3F29.0020.0002] # LYCIAN LETTER A
+10281 ; [.3F2A.0020.0002] # LYCIAN LETTER E
+10282 ; [.3F2B.0020.0002] # LYCIAN LETTER B
+10283 ; [.3F2C.0020.0002] # LYCIAN LETTER BH
+10284 ; [.3F2D.0020.0002] # LYCIAN LETTER G
+10285 ; [.3F2E.0020.0002] # LYCIAN LETTER D
+10286 ; [.3F2F.0020.0002] # LYCIAN LETTER I
+10287 ; [.3F30.0020.0002] # LYCIAN LETTER W
+10288 ; [.3F31.0020.0002] # LYCIAN LETTER Z
+10289 ; [.3F32.0020.0002] # LYCIAN LETTER TH
+1028A ; [.3F33.0020.0002] # LYCIAN LETTER J
+1028B ; [.3F34.0020.0002] # LYCIAN LETTER K
+1028C ; [.3F35.0020.0002] # LYCIAN LETTER Q
+1028D ; [.3F36.0020.0002] # LYCIAN LETTER L
+1028E ; [.3F37.0020.0002] # LYCIAN LETTER M
+1028F ; [.3F38.0020.0002] # LYCIAN LETTER N
+10290 ; [.3F39.0020.0002] # LYCIAN LETTER MM
+10291 ; [.3F3A.0020.0002] # LYCIAN LETTER NN
+10292 ; [.3F3B.0020.0002] # LYCIAN LETTER U
+10293 ; [.3F3C.0020.0002] # LYCIAN LETTER P
+10294 ; [.3F3D.0020.0002] # LYCIAN LETTER KK
+10295 ; [.3F3E.0020.0002] # LYCIAN LETTER R
+10296 ; [.3F3F.0020.0002] # LYCIAN LETTER S
+10297 ; [.3F40.0020.0002] # LYCIAN LETTER T
+10298 ; [.3F41.0020.0002] # LYCIAN LETTER TT
+10299 ; [.3F42.0020.0002] # LYCIAN LETTER AN
+1029A ; [.3F43.0020.0002] # LYCIAN LETTER EN
+1029B ; [.3F44.0020.0002] # LYCIAN LETTER H
+1029C ; [.3F45.0020.0002] # LYCIAN LETTER X
+102A0 ; [.3F46.0020.0002] # CARIAN LETTER A
+102A1 ; [.3F47.0020.0002] # CARIAN LETTER P2
+102A2 ; [.3F48.0020.0002] # CARIAN LETTER D
+102A3 ; [.3F49.0020.0002] # CARIAN LETTER L
+102A4 ; [.3F4A.0020.0002] # CARIAN LETTER UUU
+102A5 ; [.3F4B.0020.0002] # CARIAN LETTER R
+102A6 ; [.3F4C.0020.0002] # CARIAN LETTER LD
+102A7 ; [.3F4D.0020.0002] # CARIAN LETTER A2
+102A8 ; [.3F4E.0020.0002] # CARIAN LETTER Q
+102A9 ; [.3F4F.0020.0002] # CARIAN LETTER B
+102AA ; [.3F50.0020.0002] # CARIAN LETTER M
+102AB ; [.3F51.0020.0002] # CARIAN LETTER O
+102AC ; [.3F52.0020.0002] # CARIAN LETTER D2
+102AD ; [.3F53.0020.0002] # CARIAN LETTER T
+102AE ; [.3F54.0020.0002] # CARIAN LETTER SH
+102AF ; [.3F55.0020.0002] # CARIAN LETTER SH2
+102B0 ; [.3F56.0020.0002] # CARIAN LETTER S
+102B1 ; [.3F57.0020.0002] # CARIAN LETTER C-18
+102B2 ; [.3F58.0020.0002] # CARIAN LETTER U
+102B3 ; [.3F59.0020.0002] # CARIAN LETTER NN
+102B4 ; [.3F5A.0020.0002] # CARIAN LETTER X
+102B5 ; [.3F5B.0020.0002] # CARIAN LETTER N
+102B6 ; [.3F5C.0020.0002] # CARIAN LETTER TT2
+102B7 ; [.3F5D.0020.0002] # CARIAN LETTER P
+102B8 ; [.3F5E.0020.0002] # CARIAN LETTER SS
+102B9 ; [.3F5F.0020.0002] # CARIAN LETTER I
+102BA ; [.3F60.0020.0002] # CARIAN LETTER E
+102BB ; [.3F61.0020.0002] # CARIAN LETTER UUUU
+102BC ; [.3F62.0020.0002] # CARIAN LETTER K
+102BD ; [.3F63.0020.0002] # CARIAN LETTER K2
+102BE ; [.3F64.0020.0002] # CARIAN LETTER ND
+102BF ; [.3F65.0020.0002] # CARIAN LETTER UU
+102C0 ; [.3F66.0020.0002] # CARIAN LETTER G
+102C1 ; [.3F67.0020.0002] # CARIAN LETTER G2
+102C2 ; [.3F68.0020.0002] # CARIAN LETTER ST
+102C3 ; [.3F69.0020.0002] # CARIAN LETTER ST2
+102C4 ; [.3F6A.0020.0002] # CARIAN LETTER NG
+102C5 ; [.3F6B.0020.0002] # CARIAN LETTER II
+102C6 ; [.3F6C.0020.0002] # CARIAN LETTER C-39
+102C7 ; [.3F6D.0020.0002] # CARIAN LETTER TT
+102C8 ; [.3F6E.0020.0002] # CARIAN LETTER UUU2
+102C9 ; [.3F6F.0020.0002] # CARIAN LETTER RR
+102CA ; [.3F70.0020.0002] # CARIAN LETTER MB
+102CB ; [.3F71.0020.0002] # CARIAN LETTER MB2
+102CC ; [.3F72.0020.0002] # CARIAN LETTER MB3
+102CD ; [.3F73.0020.0002] # CARIAN LETTER MB4
+102CE ; [.3F74.0020.0002] # CARIAN LETTER LD2
+102CF ; [.3F75.0020.0002] # CARIAN LETTER E2
+102D0 ; [.3F76.0020.0002] # CARIAN LETTER UUU3
+10920 ; [.3F77.0020.0002] # LYDIAN LETTER A
+10921 ; [.3F78.0020.0002] # LYDIAN LETTER B
+10922 ; [.3F79.0020.0002] # LYDIAN LETTER G
+10923 ; [.3F7A.0020.0002] # LYDIAN LETTER D
+10924 ; [.3F7B.0020.0002] # LYDIAN LETTER E
+10925 ; [.3F7C.0020.0002] # LYDIAN LETTER V
+10926 ; [.3F7D.0020.0002] # LYDIAN LETTER I
+10927 ; [.3F7E.0020.0002] # LYDIAN LETTER Y
+10928 ; [.3F7F.0020.0002] # LYDIAN LETTER K
+10929 ; [.3F80.0020.0002] # LYDIAN LETTER L
+1092A ; [.3F81.0020.0002] # LYDIAN LETTER M
+1092B ; [.3F82.0020.0002] # LYDIAN LETTER N
+1092C ; [.3F83.0020.0002] # LYDIAN LETTER O
+1092D ; [.3F84.0020.0002] # LYDIAN LETTER R
+1092E ; [.3F85.0020.0002] # LYDIAN LETTER SS
+1092F ; [.3F86.0020.0002] # LYDIAN LETTER T
+10930 ; [.3F87.0020.0002] # LYDIAN LETTER U
+10931 ; [.3F88.0020.0002] # LYDIAN LETTER F
+10932 ; [.3F89.0020.0002] # LYDIAN LETTER Q
+10933 ; [.3F8A.0020.0002] # LYDIAN LETTER S
+10934 ; [.3F8B.0020.0002] # LYDIAN LETTER TT
+10935 ; [.3F8C.0020.0002] # LYDIAN LETTER AN
+10936 ; [.3F8D.0020.0002] # LYDIAN LETTER EN
+10937 ; [.3F8E.0020.0002] # LYDIAN LETTER LY
+10938 ; [.3F8F.0020.0002] # LYDIAN LETTER NN
+10939 ; [.3F90.0020.0002] # LYDIAN LETTER C
+10300 ; [.3F91.0020.0002] # OLD ITALIC LETTER A
+10301 ; [.3F92.0020.0002] # OLD ITALIC LETTER BE
+10302 ; [.3F93.0020.0002] # OLD ITALIC LETTER KE
+10303 ; [.3F94.0020.0002] # OLD ITALIC LETTER DE
+10304 ; [.3F95.0020.0002] # OLD ITALIC LETTER E
+10305 ; [.3F96.0020.0002] # OLD ITALIC LETTER VE
+10306 ; [.3F97.0020.0002] # OLD ITALIC LETTER ZE
+10307 ; [.3F98.0020.0002] # OLD ITALIC LETTER HE
+10308 ; [.3F99.0020.0002] # OLD ITALIC LETTER THE
+10309 ; [.3F9A.0020.0002] # OLD ITALIC LETTER I
+1030A ; [.3F9B.0020.0002] # OLD ITALIC LETTER KA
+1030B ; [.3F9C.0020.0002] # OLD ITALIC LETTER EL
+1030C ; [.3F9D.0020.0002] # OLD ITALIC LETTER EM
+1030D ; [.3F9E.0020.0002] # OLD ITALIC LETTER EN
+1030E ; [.3F9F.0020.0002] # OLD ITALIC LETTER ESH
+1031F ; [.3FA0.0020.0002] # OLD ITALIC LETTER ESS
+1030F ; [.3FA1.0020.0002] # OLD ITALIC LETTER O
+10310 ; [.3FA2.0020.0002] # OLD ITALIC LETTER PE
+10311 ; [.3FA3.0020.0002] # OLD ITALIC LETTER SHE
+10312 ; [.3FA4.0020.0002] # OLD ITALIC LETTER KU
+10313 ; [.3FA5.0020.0002] # OLD ITALIC LETTER ER
+10314 ; [.3FA6.0020.0002] # OLD ITALIC LETTER ES
+10315 ; [.3FA7.0020.0002] # OLD ITALIC LETTER TE
+10316 ; [.3FA8.0020.0002] # OLD ITALIC LETTER U
+10317 ; [.3FA9.0020.0002] # OLD ITALIC LETTER EKS
+10318 ; [.3FAA.0020.0002] # OLD ITALIC LETTER PHE
+10319 ; [.3FAB.0020.0002] # OLD ITALIC LETTER KHE
+1031A ; [.3FAC.0020.0002] # OLD ITALIC LETTER EF
+1031B ; [.3FAD.0020.0002] # OLD ITALIC LETTER ERS
+1031C ; [.3FAE.0020.0002] # OLD ITALIC LETTER CHE
+1031D ; [.3FAF.0020.0002] # OLD ITALIC LETTER II
+1031E ; [.3FB0.0020.0002] # OLD ITALIC LETTER UU
+10330 ; [.3FB1.0020.0002] # GOTHIC LETTER AHSA
+10331 ; [.3FB2.0020.0002] # GOTHIC LETTER BAIRKAN
+10332 ; [.3FB3.0020.0002] # GOTHIC LETTER GIBA
+10333 ; [.3FB4.0020.0002] # GOTHIC LETTER DAGS
+10334 ; [.3FB5.0020.0002] # GOTHIC LETTER AIHVUS
+10335 ; [.3FB6.0020.0002] # GOTHIC LETTER QAIRTHRA
+10336 ; [.3FB7.0020.0002] # GOTHIC LETTER IUJA
+10337 ; [.3FB8.0020.0002] # GOTHIC LETTER HAGL
+10338 ; [.3FB9.0020.0002] # GOTHIC LETTER THIUTH
+10339 ; [.3FBA.0020.0002] # GOTHIC LETTER EIS
+1033A ; [.3FBB.0020.0002] # GOTHIC LETTER KUSMA
+1033B ; [.3FBC.0020.0002] # GOTHIC LETTER LAGUS
+1033C ; [.3FBD.0020.0002] # GOTHIC LETTER MANNA
+1033D ; [.3FBE.0020.0002] # GOTHIC LETTER NAUTHS
+1033E ; [.3FBF.0020.0002] # GOTHIC LETTER JER
+1033F ; [.3FC0.0020.0002] # GOTHIC LETTER URUS
+10340 ; [.3FC1.0020.0002] # GOTHIC LETTER PAIRTHRA
+10341 ; [.3FC2.0020.0002] # GOTHIC LETTER NINETY
+10342 ; [.3FC3.0020.0002] # GOTHIC LETTER RAIDA
+10343 ; [.3FC4.0020.0002] # GOTHIC LETTER SAUIL
+10344 ; [.3FC5.0020.0002] # GOTHIC LETTER TEIWS
+10345 ; [.3FC6.0020.0002] # GOTHIC LETTER WINJA
+10346 ; [.3FC7.0020.0002] # GOTHIC LETTER FAIHU
+10347 ; [.3FC8.0020.0002] # GOTHIC LETTER IGGWS
+10348 ; [.3FC9.0020.0002] # GOTHIC LETTER HWAIR
+10349 ; [.3FCA.0020.0002] # GOTHIC LETTER OTHAL
+1034A ; [.3FCB.0020.0002] # GOTHIC LETTER NINE HUNDRED
+10428 ; [.3FCC.0020.0002] # DESERET SMALL LETTER LONG I
+10400 ; [.3FCC.0020.0008] # DESERET CAPITAL LETTER LONG I
+10429 ; [.3FCD.0020.0002] # DESERET SMALL LETTER LONG E
+10401 ; [.3FCD.0020.0008] # DESERET CAPITAL LETTER LONG E
+1042A ; [.3FCE.0020.0002] # DESERET SMALL LETTER LONG A
+10402 ; [.3FCE.0020.0008] # DESERET CAPITAL LETTER LONG A
+1042B ; [.3FCF.0020.0002] # DESERET SMALL LETTER LONG AH
+10403 ; [.3FCF.0020.0008] # DESERET CAPITAL LETTER LONG AH
+1042C ; [.3FD0.0020.0002] # DESERET SMALL LETTER LONG O
+10404 ; [.3FD0.0020.0008] # DESERET CAPITAL LETTER LONG O
+1042D ; [.3FD1.0020.0002] # DESERET SMALL LETTER LONG OO
+10405 ; [.3FD1.0020.0008] # DESERET CAPITAL LETTER LONG OO
+1042E ; [.3FD2.0020.0002] # DESERET SMALL LETTER SHORT I
+10406 ; [.3FD2.0020.0008] # DESERET CAPITAL LETTER SHORT I
+1042F ; [.3FD3.0020.0002] # DESERET SMALL LETTER SHORT E
+10407 ; [.3FD3.0020.0008] # DESERET CAPITAL LETTER SHORT E
+10430 ; [.3FD4.0020.0002] # DESERET SMALL LETTER SHORT A
+10408 ; [.3FD4.0020.0008] # DESERET CAPITAL LETTER SHORT A
+10431 ; [.3FD5.0020.0002] # DESERET SMALL LETTER SHORT AH
+10409 ; [.3FD5.0020.0008] # DESERET CAPITAL LETTER SHORT AH
+10432 ; [.3FD6.0020.0002] # DESERET SMALL LETTER SHORT O
+1040A ; [.3FD6.0020.0008] # DESERET CAPITAL LETTER SHORT O
+10433 ; [.3FD7.0020.0002] # DESERET SMALL LETTER SHORT OO
+1040B ; [.3FD7.0020.0008] # DESERET CAPITAL LETTER SHORT OO
+10434 ; [.3FD8.0020.0002] # DESERET SMALL LETTER AY
+1040C ; [.3FD8.0020.0008] # DESERET CAPITAL LETTER AY
+10435 ; [.3FD9.0020.0002] # DESERET SMALL LETTER OW
+1040D ; [.3FD9.0020.0008] # DESERET CAPITAL LETTER OW
+10436 ; [.3FDA.0020.0002] # DESERET SMALL LETTER WU
+1040E ; [.3FDA.0020.0008] # DESERET CAPITAL LETTER WU
+10437 ; [.3FDB.0020.0002] # DESERET SMALL LETTER YEE
+1040F ; [.3FDB.0020.0008] # DESERET CAPITAL LETTER YEE
+10438 ; [.3FDC.0020.0002] # DESERET SMALL LETTER H
+10410 ; [.3FDC.0020.0008] # DESERET CAPITAL LETTER H
+10439 ; [.3FDD.0020.0002] # DESERET SMALL LETTER PEE
+10411 ; [.3FDD.0020.0008] # DESERET CAPITAL LETTER PEE
+1043A ; [.3FDE.0020.0002] # DESERET SMALL LETTER BEE
+10412 ; [.3FDE.0020.0008] # DESERET CAPITAL LETTER BEE
+1043B ; [.3FDF.0020.0002] # DESERET SMALL LETTER TEE
+10413 ; [.3FDF.0020.0008] # DESERET CAPITAL LETTER TEE
+1043C ; [.3FE0.0020.0002] # DESERET SMALL LETTER DEE
+10414 ; [.3FE0.0020.0008] # DESERET CAPITAL LETTER DEE
+1043D ; [.3FE1.0020.0002] # DESERET SMALL LETTER CHEE
+10415 ; [.3FE1.0020.0008] # DESERET CAPITAL LETTER CHEE
+1043E ; [.3FE2.0020.0002] # DESERET SMALL LETTER JEE
+10416 ; [.3FE2.0020.0008] # DESERET CAPITAL LETTER JEE
+1043F ; [.3FE3.0020.0002] # DESERET SMALL LETTER KAY
+10417 ; [.3FE3.0020.0008] # DESERET CAPITAL LETTER KAY
+10440 ; [.3FE4.0020.0002] # DESERET SMALL LETTER GAY
+10418 ; [.3FE4.0020.0008] # DESERET CAPITAL LETTER GAY
+10441 ; [.3FE5.0020.0002] # DESERET SMALL LETTER EF
+10419 ; [.3FE5.0020.0008] # DESERET CAPITAL LETTER EF
+10442 ; [.3FE6.0020.0002] # DESERET SMALL LETTER VEE
+1041A ; [.3FE6.0020.0008] # DESERET CAPITAL LETTER VEE
+10443 ; [.3FE7.0020.0002] # DESERET SMALL LETTER ETH
+1041B ; [.3FE7.0020.0008] # DESERET CAPITAL LETTER ETH
+10444 ; [.3FE8.0020.0002] # DESERET SMALL LETTER THEE
+1041C ; [.3FE8.0020.0008] # DESERET CAPITAL LETTER THEE
+10445 ; [.3FE9.0020.0002] # DESERET SMALL LETTER ES
+1041D ; [.3FE9.0020.0008] # DESERET CAPITAL LETTER ES
+10446 ; [.3FEA.0020.0002] # DESERET SMALL LETTER ZEE
+1041E ; [.3FEA.0020.0008] # DESERET CAPITAL LETTER ZEE
+10447 ; [.3FEB.0020.0002] # DESERET SMALL LETTER ESH
+1041F ; [.3FEB.0020.0008] # DESERET CAPITAL LETTER ESH
+10448 ; [.3FEC.0020.0002] # DESERET SMALL LETTER ZHEE
+10420 ; [.3FEC.0020.0008] # DESERET CAPITAL LETTER ZHEE
+10449 ; [.3FED.0020.0002] # DESERET SMALL LETTER ER
+10421 ; [.3FED.0020.0008] # DESERET CAPITAL LETTER ER
+1044A ; [.3FEE.0020.0002] # DESERET SMALL LETTER EL
+10422 ; [.3FEE.0020.0008] # DESERET CAPITAL LETTER EL
+1044B ; [.3FEF.0020.0002] # DESERET SMALL LETTER EM
+10423 ; [.3FEF.0020.0008] # DESERET CAPITAL LETTER EM
+1044C ; [.3FF0.0020.0002] # DESERET SMALL LETTER EN
+10424 ; [.3FF0.0020.0008] # DESERET CAPITAL LETTER EN
+1044D ; [.3FF1.0020.0002] # DESERET SMALL LETTER ENG
+10425 ; [.3FF1.0020.0008] # DESERET CAPITAL LETTER ENG
+1044E ; [.3FF2.0020.0002] # DESERET SMALL LETTER OI
+10426 ; [.3FF2.0020.0008] # DESERET CAPITAL LETTER OI
+1044F ; [.3FF3.0020.0002] # DESERET SMALL LETTER EW
+10427 ; [.3FF3.0020.0008] # DESERET CAPITAL LETTER EW
+10450 ; [.3FF4.0020.0002] # SHAVIAN LETTER PEEP
+10451 ; [.3FF5.0020.0002] # SHAVIAN LETTER TOT
+10452 ; [.3FF6.0020.0002] # SHAVIAN LETTER KICK
+10453 ; [.3FF7.0020.0002] # SHAVIAN LETTER FEE
+10454 ; [.3FF8.0020.0002] # SHAVIAN LETTER THIGH
+10455 ; [.3FF9.0020.0002] # SHAVIAN LETTER SO
+10456 ; [.3FFA.0020.0002] # SHAVIAN LETTER SURE
+10457 ; [.3FFB.0020.0002] # SHAVIAN LETTER CHURCH
+10458 ; [.3FFC.0020.0002] # SHAVIAN LETTER YEA
+10459 ; [.3FFD.0020.0002] # SHAVIAN LETTER HUNG
+1045A ; [.3FFE.0020.0002] # SHAVIAN LETTER BIB
+1045B ; [.3FFF.0020.0002] # SHAVIAN LETTER DEAD
+1045C ; [.4000.0020.0002] # SHAVIAN LETTER GAG
+1045D ; [.4001.0020.0002] # SHAVIAN LETTER VOW
+1045E ; [.4002.0020.0002] # SHAVIAN LETTER THEY
+1045F ; [.4003.0020.0002] # SHAVIAN LETTER ZOO
+10460 ; [.4004.0020.0002] # SHAVIAN LETTER MEASURE
+10461 ; [.4005.0020.0002] # SHAVIAN LETTER JUDGE
+10462 ; [.4006.0020.0002] # SHAVIAN LETTER WOE
+10463 ; [.4007.0020.0002] # SHAVIAN LETTER HA-HA
+10464 ; [.4008.0020.0002] # SHAVIAN LETTER LOLL
+10465 ; [.4009.0020.0002] # SHAVIAN LETTER MIME
+10466 ; [.400A.0020.0002] # SHAVIAN LETTER IF
+10467 ; [.400B.0020.0002] # SHAVIAN LETTER EGG
+10468 ; [.400C.0020.0002] # SHAVIAN LETTER ASH
+10469 ; [.400D.0020.0002] # SHAVIAN LETTER ADO
+1046A ; [.400E.0020.0002] # SHAVIAN LETTER ON
+1046B ; [.400F.0020.0002] # SHAVIAN LETTER WOOL
+1046C ; [.4010.0020.0002] # SHAVIAN LETTER OUT
+1046D ; [.4011.0020.0002] # SHAVIAN LETTER AH
+1046E ; [.4012.0020.0002] # SHAVIAN LETTER ROAR
+1046F ; [.4013.0020.0002] # SHAVIAN LETTER NUN
+10470 ; [.4014.0020.0002] # SHAVIAN LETTER EAT
+10471 ; [.4015.0020.0002] # SHAVIAN LETTER AGE
+10472 ; [.4016.0020.0002] # SHAVIAN LETTER ICE
+10473 ; [.4017.0020.0002] # SHAVIAN LETTER UP
+10474 ; [.4018.0020.0002] # SHAVIAN LETTER OAK
+10475 ; [.4019.0020.0002] # SHAVIAN LETTER OOZE
+10476 ; [.401A.0020.0002] # SHAVIAN LETTER OIL
+10477 ; [.401B.0020.0002] # SHAVIAN LETTER AWE
+10478 ; [.401C.0020.0002] # SHAVIAN LETTER ARE
+10479 ; [.401D.0020.0002] # SHAVIAN LETTER OR
+1047A ; [.401E.0020.0002] # SHAVIAN LETTER AIR
+1047B ; [.401F.0020.0002] # SHAVIAN LETTER ERR
+1047C ; [.4020.0020.0002] # SHAVIAN LETTER ARRAY
+1047D ; [.4021.0020.0002] # SHAVIAN LETTER EAR
+1047E ; [.4022.0020.0002] # SHAVIAN LETTER IAN
+1047F ; [.4023.0020.0002] # SHAVIAN LETTER YEW
+1BC00 ; [.4024.0020.0002] # DUPLOYAN LETTER H
+1BC01 ; [.4025.0020.0002] # DUPLOYAN LETTER X
+1BC02 ; [.4026.0020.0002] # DUPLOYAN LETTER P
+1BC03 ; [.4027.0020.0002] # DUPLOYAN LETTER T
+1BC04 ; [.4028.0020.0002] # DUPLOYAN LETTER F
+1BC05 ; [.4029.0020.0002] # DUPLOYAN LETTER K
+1BC06 ; [.402A.0020.0002] # DUPLOYAN LETTER L
+1BC07 ; [.402B.0020.0002] # DUPLOYAN LETTER B
+1BC08 ; [.402C.0020.0002] # DUPLOYAN LETTER D
+1BC09 ; [.402D.0020.0002] # DUPLOYAN LETTER V
+1BC0A ; [.402E.0020.0002] # DUPLOYAN LETTER G
+1BC0B ; [.402F.0020.0002] # DUPLOYAN LETTER R
+1BC0C ; [.4030.0020.0002] # DUPLOYAN LETTER P N
+1BC0D ; [.4031.0020.0002] # DUPLOYAN LETTER D S
+1BC0E ; [.4032.0020.0002] # DUPLOYAN LETTER F N
+1BC0F ; [.4033.0020.0002] # DUPLOYAN LETTER K M
+1BC10 ; [.4034.0020.0002] # DUPLOYAN LETTER R S
+1BC11 ; [.4035.0020.0002] # DUPLOYAN LETTER TH
+1BC12 ; [.4036.0020.0002] # DUPLOYAN LETTER SLOAN DH
+1BC13 ; [.4037.0020.0002] # DUPLOYAN LETTER DH
+1BC14 ; [.4038.0020.0002] # DUPLOYAN LETTER KK
+1BC15 ; [.4039.0020.0002] # DUPLOYAN LETTER SLOAN J
+1BC16 ; [.403A.0020.0002] # DUPLOYAN LETTER HL
+1BC17 ; [.403B.0020.0002] # DUPLOYAN LETTER LH
+1BC18 ; [.403C.0020.0002] # DUPLOYAN LETTER RH
+1BC19 ; [.403D.0020.0002] # DUPLOYAN LETTER M
+1BC1A ; [.403E.0020.0002] # DUPLOYAN LETTER N
+1BC1B ; [.403F.0020.0002] # DUPLOYAN LETTER J
+1BC1C ; [.4040.0020.0002] # DUPLOYAN LETTER S
+1BC1D ; [.4041.0020.0002] # DUPLOYAN LETTER M N
+1BC1E ; [.4042.0020.0002] # DUPLOYAN LETTER N M
+1BC1F ; [.4043.0020.0002] # DUPLOYAN LETTER J M
+1BC20 ; [.4044.0020.0002] # DUPLOYAN LETTER S J
+1BC21 ; [.4045.0020.0002] # DUPLOYAN LETTER M WITH DOT
+1BC22 ; [.4046.0020.0002] # DUPLOYAN LETTER N WITH DOT
+1BC23 ; [.4047.0020.0002] # DUPLOYAN LETTER J WITH DOT
+1BC24 ; [.4048.0020.0002] # DUPLOYAN LETTER J WITH DOTS INSIDE AND ABOVE
+1BC25 ; [.4049.0020.0002] # DUPLOYAN LETTER S WITH DOT
+1BC26 ; [.404A.0020.0002] # DUPLOYAN LETTER S WITH DOT BELOW
+1BC27 ; [.404B.0020.0002] # DUPLOYAN LETTER M S
+1BC28 ; [.404C.0020.0002] # DUPLOYAN LETTER N S
+1BC29 ; [.404D.0020.0002] # DUPLOYAN LETTER J S
+1BC2A ; [.404E.0020.0002] # DUPLOYAN LETTER S S
+1BC2B ; [.404F.0020.0002] # DUPLOYAN LETTER M N S
+1BC2C ; [.4050.0020.0002] # DUPLOYAN LETTER N M S
+1BC2D ; [.4051.0020.0002] # DUPLOYAN LETTER J M S
+1BC2E ; [.4052.0020.0002] # DUPLOYAN LETTER S J S
+1BC2F ; [.4053.0020.0002] # DUPLOYAN LETTER J S WITH DOT
+1BC30 ; [.4054.0020.0002] # DUPLOYAN LETTER J N
+1BC31 ; [.4055.0020.0002] # DUPLOYAN LETTER J N S
+1BC32 ; [.4056.0020.0002] # DUPLOYAN LETTER S T
+1BC33 ; [.4057.0020.0002] # DUPLOYAN LETTER S T R
+1BC34 ; [.4058.0020.0002] # DUPLOYAN LETTER S P
+1BC35 ; [.4059.0020.0002] # DUPLOYAN LETTER S P R
+1BC36 ; [.405A.0020.0002] # DUPLOYAN LETTER T S
+1BC37 ; [.405B.0020.0002] # DUPLOYAN LETTER T R S
+1BC38 ; [.405C.0020.0002] # DUPLOYAN LETTER W
+1BC39 ; [.405D.0020.0002] # DUPLOYAN LETTER WH
+1BC3A ; [.405E.0020.0002] # DUPLOYAN LETTER W R
+1BC3B ; [.405F.0020.0002] # DUPLOYAN LETTER S N
+1BC3C ; [.4060.0020.0002] # DUPLOYAN LETTER S M
+1BC3D ; [.4061.0020.0002] # DUPLOYAN LETTER K R S
+1BC3E ; [.4062.0020.0002] # DUPLOYAN LETTER G R S
+1BC3F ; [.4063.0020.0002] # DUPLOYAN LETTER S K
+1BC40 ; [.4064.0020.0002] # DUPLOYAN LETTER S K R
+1BC41 ; [.4065.0020.0002] # DUPLOYAN LETTER A
+1BC42 ; [.4066.0020.0002] # DUPLOYAN LETTER SLOAN OW
+1BC43 ; [.4067.0020.0002] # DUPLOYAN LETTER OA
+1BC44 ; [.4068.0020.0002] # DUPLOYAN LETTER O
+1BC45 ; [.4069.0020.0002] # DUPLOYAN LETTER AOU
+1BC46 ; [.406A.0020.0002] # DUPLOYAN LETTER I
+1BC47 ; [.406B.0020.0002] # DUPLOYAN LETTER E
+1BC48 ; [.406C.0020.0002] # DUPLOYAN LETTER IE
+1BC49 ; [.406D.0020.0002] # DUPLOYAN LETTER SHORT I
+1BC4A ; [.406E.0020.0002] # DUPLOYAN LETTER UI
+1BC4B ; [.406F.0020.0002] # DUPLOYAN LETTER EE
+1BC4C ; [.4070.0020.0002] # DUPLOYAN LETTER SLOAN EH
+1BC4D ; [.4071.0020.0002] # DUPLOYAN LETTER ROMANIAN I
+1BC4E ; [.4072.0020.0002] # DUPLOYAN LETTER SLOAN EE
+1BC4F ; [.4073.0020.0002] # DUPLOYAN LETTER LONG I
+1BC50 ; [.4074.0020.0002] # DUPLOYAN LETTER YE
+1BC51 ; [.4075.0020.0002] # DUPLOYAN LETTER U
+1BC52 ; [.4076.0020.0002] # DUPLOYAN LETTER EU
+1BC53 ; [.4077.0020.0002] # DUPLOYAN LETTER XW
+1BC54 ; [.4078.0020.0002] # DUPLOYAN LETTER U N
+1BC55 ; [.4079.0020.0002] # DUPLOYAN LETTER LONG U
+1BC56 ; [.407A.0020.0002] # DUPLOYAN LETTER ROMANIAN U
+1BC57 ; [.407B.0020.0002] # DUPLOYAN LETTER UH
+1BC58 ; [.407C.0020.0002] # DUPLOYAN LETTER SLOAN U
+1BC59 ; [.407D.0020.0002] # DUPLOYAN LETTER OOH
+1BC5A ; [.407E.0020.0002] # DUPLOYAN LETTER OW
+1BC5B ; [.407F.0020.0002] # DUPLOYAN LETTER OU
+1BC5C ; [.4080.0020.0002] # DUPLOYAN LETTER WA
+1BC5D ; [.4081.0020.0002] # DUPLOYAN LETTER WO
+1BC5E ; [.4082.0020.0002] # DUPLOYAN LETTER WI
+1BC5F ; [.4083.0020.0002] # DUPLOYAN LETTER WEI
+1BC60 ; [.4084.0020.0002] # DUPLOYAN LETTER WOW
+1BC61 ; [.4085.0020.0002] # DUPLOYAN LETTER NASAL U
+1BC62 ; [.4086.0020.0002] # DUPLOYAN LETTER NASAL O
+1BC63 ; [.4087.0020.0002] # DUPLOYAN LETTER NASAL I
+1BC64 ; [.4088.0020.0002] # DUPLOYAN LETTER NASAL A
+1BC65 ; [.4089.0020.0002] # DUPLOYAN LETTER PERNIN AN
+1BC66 ; [.408A.0020.0002] # DUPLOYAN LETTER PERNIN AM
+1BC67 ; [.408B.0020.0002] # DUPLOYAN LETTER SLOAN EN
+1BC68 ; [.408C.0020.0002] # DUPLOYAN LETTER SLOAN AN
+1BC69 ; [.408D.0020.0002] # DUPLOYAN LETTER SLOAN ON
+1BC6A ; [.408E.0020.0002] # DUPLOYAN LETTER VOCALIC M
+1BC70 ; [.408F.0020.0002] # DUPLOYAN AFFIX LEFT HORIZONTAL SECANT
+1BC71 ; [.4090.0020.0002] # DUPLOYAN AFFIX MID HORIZONTAL SECANT
+1BC72 ; [.4091.0020.0002] # DUPLOYAN AFFIX RIGHT HORIZONTAL SECANT
+1BC73 ; [.4092.0020.0002] # DUPLOYAN AFFIX LOW VERTICAL SECANT
+1BC74 ; [.4093.0020.0002] # DUPLOYAN AFFIX MID VERTICAL SECANT
+1BC75 ; [.4094.0020.0002] # DUPLOYAN AFFIX HIGH VERTICAL SECANT
+1BC76 ; [.4095.0020.0002] # DUPLOYAN AFFIX ATTACHED SECANT
+1BC77 ; [.4096.0020.0002] # DUPLOYAN AFFIX ATTACHED LEFT-TO-RIGHT SECANT
+1BC78 ; [.4097.0020.0002] # DUPLOYAN AFFIX ATTACHED TANGENT
+1BC79 ; [.4098.0020.0002] # DUPLOYAN AFFIX ATTACHED TAIL
+1BC7A ; [.4099.0020.0002] # DUPLOYAN AFFIX ATTACHED E HOOK
+1BC7B ; [.409A.0020.0002] # DUPLOYAN AFFIX ATTACHED I HOOK
+1BC7C ; [.409B.0020.0002] # DUPLOYAN AFFIX ATTACHED TANGENT HOOK
+1BC80 ; [.409C.0020.0002] # DUPLOYAN AFFIX HIGH ACUTE
+1BC81 ; [.409D.0020.0002] # DUPLOYAN AFFIX HIGH TIGHT ACUTE
+1BC82 ; [.409E.0020.0002] # DUPLOYAN AFFIX HIGH GRAVE
+1BC83 ; [.409F.0020.0002] # DUPLOYAN AFFIX HIGH LONG GRAVE
+1BC84 ; [.40A0.0020.0002] # DUPLOYAN AFFIX HIGH DOT
+1BC85 ; [.40A1.0020.0002] # DUPLOYAN AFFIX HIGH CIRCLE
+1BC86 ; [.40A2.0020.0002] # DUPLOYAN AFFIX HIGH LINE
+1BC87 ; [.40A3.0020.0002] # DUPLOYAN AFFIX HIGH WAVE
+1BC88 ; [.40A4.0020.0002] # DUPLOYAN AFFIX HIGH VERTICAL
+1BC90 ; [.40A5.0020.0002] # DUPLOYAN AFFIX LOW ACUTE
+1BC91 ; [.40A6.0020.0002] # DUPLOYAN AFFIX LOW TIGHT ACUTE
+1BC92 ; [.40A7.0020.0002] # DUPLOYAN AFFIX LOW GRAVE
+1BC93 ; [.40A8.0020.0002] # DUPLOYAN AFFIX LOW LONG GRAVE
+1BC94 ; [.40A9.0020.0002] # DUPLOYAN AFFIX LOW DOT
+1BC95 ; [.40AA.0020.0002] # DUPLOYAN AFFIX LOW CIRCLE
+1BC96 ; [.40AB.0020.0002] # DUPLOYAN AFFIX LOW LINE
+1BC97 ; [.40AC.0020.0002] # DUPLOYAN AFFIX LOW WAVE
+1BC98 ; [.40AD.0020.0002] # DUPLOYAN AFFIX LOW VERTICAL
+1BC99 ; [.40AE.0020.0002] # DUPLOYAN AFFIX LOW ARROW
+10480 ; [.40AF.0020.0002] # OSMANYA LETTER ALEF
+10481 ; [.40B0.0020.0002] # OSMANYA LETTER BA
+10482 ; [.40B1.0020.0002] # OSMANYA LETTER TA
+10483 ; [.40B2.0020.0002] # OSMANYA LETTER JA
+10484 ; [.40B3.0020.0002] # OSMANYA LETTER XA
+10485 ; [.40B4.0020.0002] # OSMANYA LETTER KHA
+10486 ; [.40B5.0020.0002] # OSMANYA LETTER DEEL
+10487 ; [.40B6.0020.0002] # OSMANYA LETTER RA
+10488 ; [.40B7.0020.0002] # OSMANYA LETTER SA
+10489 ; [.40B8.0020.0002] # OSMANYA LETTER SHIIN
+1048A ; [.40B9.0020.0002] # OSMANYA LETTER DHA
+1048B ; [.40BA.0020.0002] # OSMANYA LETTER CAYN
+1048C ; [.40BB.0020.0002] # OSMANYA LETTER GA
+1048D ; [.40BC.0020.0002] # OSMANYA LETTER FA
+1048E ; [.40BD.0020.0002] # OSMANYA LETTER QAAF
+1048F ; [.40BE.0020.0002] # OSMANYA LETTER KAAF
+10490 ; [.40BF.0020.0002] # OSMANYA LETTER LAAN
+10491 ; [.40C0.0020.0002] # OSMANYA LETTER MIIN
+10492 ; [.40C1.0020.0002] # OSMANYA LETTER NUUN
+10493 ; [.40C2.0020.0002] # OSMANYA LETTER WAW
+10494 ; [.40C3.0020.0002] # OSMANYA LETTER HA
+10495 ; [.40C4.0020.0002] # OSMANYA LETTER YA
+10496 ; [.40C5.0020.0002] # OSMANYA LETTER A
+10497 ; [.40C6.0020.0002] # OSMANYA LETTER E
+10498 ; [.40C7.0020.0002] # OSMANYA LETTER I
+10499 ; [.40C8.0020.0002] # OSMANYA LETTER O
+1049A ; [.40C9.0020.0002] # OSMANYA LETTER U
+1049B ; [.40CA.0020.0002] # OSMANYA LETTER AA
+1049C ; [.40CB.0020.0002] # OSMANYA LETTER EE
+1049D ; [.40CC.0020.0002] # OSMANYA LETTER OO
+10500 ; [.40CD.0020.0002] # ELBASAN LETTER A
+10501 ; [.40CE.0020.0002] # ELBASAN LETTER BE
+10502 ; [.40CF.0020.0002] # ELBASAN LETTER CE
+10503 ; [.40D0.0020.0002] # ELBASAN LETTER CHE
+10504 ; [.40D1.0020.0002] # ELBASAN LETTER DE
+10505 ; [.40D2.0020.0002] # ELBASAN LETTER NDE
+10506 ; [.40D3.0020.0002] # ELBASAN LETTER DHE
+10507 ; [.40D4.0020.0002] # ELBASAN LETTER EI
+10508 ; [.40D5.0020.0002] # ELBASAN LETTER E
+10509 ; [.40D6.0020.0002] # ELBASAN LETTER FE
+1050A ; [.40D7.0020.0002] # ELBASAN LETTER GE
+1050B ; [.40D8.0020.0002] # ELBASAN LETTER GJE
+1050C ; [.40D9.0020.0002] # ELBASAN LETTER HE
+1050D ; [.40DA.0020.0002] # ELBASAN LETTER I
+1050E ; [.40DB.0020.0002] # ELBASAN LETTER JE
+1050F ; [.40DC.0020.0002] # ELBASAN LETTER KE
+10510 ; [.40DD.0020.0002] # ELBASAN LETTER LE
+10511 ; [.40DE.0020.0002] # ELBASAN LETTER LLE
+10512 ; [.40DF.0020.0002] # ELBASAN LETTER ME
+10513 ; [.40E0.0020.0002] # ELBASAN LETTER NE
+10514 ; [.40E1.0020.0002] # ELBASAN LETTER NA
+10515 ; [.40E2.0020.0002] # ELBASAN LETTER NJE
+10516 ; [.40E3.0020.0002] # ELBASAN LETTER O
+10517 ; [.40E4.0020.0002] # ELBASAN LETTER PE
+10518 ; [.40E5.0020.0002] # ELBASAN LETTER QE
+10519 ; [.40E6.0020.0002] # ELBASAN LETTER RE
+1051A ; [.40E7.0020.0002] # ELBASAN LETTER RRE
+1051B ; [.40E8.0020.0002] # ELBASAN LETTER SE
+1051C ; [.40E9.0020.0002] # ELBASAN LETTER SHE
+1051D ; [.40EA.0020.0002] # ELBASAN LETTER TE
+1051E ; [.40EB.0020.0002] # ELBASAN LETTER THE
+1051F ; [.40EC.0020.0002] # ELBASAN LETTER U
+10520 ; [.40ED.0020.0002] # ELBASAN LETTER VE
+10521 ; [.40EE.0020.0002] # ELBASAN LETTER XE
+10522 ; [.40EF.0020.0002] # ELBASAN LETTER Y
+10523 ; [.40F0.0020.0002] # ELBASAN LETTER ZE
+10524 ; [.40F1.0020.0002] # ELBASAN LETTER ZHE
+10525 ; [.40F2.0020.0002] # ELBASAN LETTER GHE
+10526 ; [.40F3.0020.0002] # ELBASAN LETTER GHAMMA
+10527 ; [.40F4.0020.0002] # ELBASAN LETTER KHE
+10530 ; [.40F5.0020.0002] # CAUCASIAN ALBANIAN LETTER ALT
+10531 ; [.40F6.0020.0002] # CAUCASIAN ALBANIAN LETTER BET
+10532 ; [.40F7.0020.0002] # CAUCASIAN ALBANIAN LETTER GIM
+10533 ; [.40F8.0020.0002] # CAUCASIAN ALBANIAN LETTER DAT
+10534 ; [.40F9.0020.0002] # CAUCASIAN ALBANIAN LETTER EB
+10535 ; [.40FA.0020.0002] # CAUCASIAN ALBANIAN LETTER ZARL
+10536 ; [.40FB.0020.0002] # CAUCASIAN ALBANIAN LETTER EYN
+10537 ; [.40FC.0020.0002] # CAUCASIAN ALBANIAN LETTER ZHIL
+10538 ; [.40FD.0020.0002] # CAUCASIAN ALBANIAN LETTER TAS
+10539 ; [.40FE.0020.0002] # CAUCASIAN ALBANIAN LETTER CHA
+1053A ; [.40FF.0020.0002] # CAUCASIAN ALBANIAN LETTER YOWD
+1053B ; [.4100.0020.0002] # CAUCASIAN ALBANIAN LETTER ZHA
+1053C ; [.4101.0020.0002] # CAUCASIAN ALBANIAN LETTER IRB
+1053D ; [.4102.0020.0002] # CAUCASIAN ALBANIAN LETTER SHA
+1053E ; [.4103.0020.0002] # CAUCASIAN ALBANIAN LETTER LAN
+1053F ; [.4104.0020.0002] # CAUCASIAN ALBANIAN LETTER INYA
+10540 ; [.4105.0020.0002] # CAUCASIAN ALBANIAN LETTER XEYN
+10541 ; [.4106.0020.0002] # CAUCASIAN ALBANIAN LETTER DYAN
+10542 ; [.4107.0020.0002] # CAUCASIAN ALBANIAN LETTER CAR
+10543 ; [.4108.0020.0002] # CAUCASIAN ALBANIAN LETTER JHOX
+10544 ; [.4109.0020.0002] # CAUCASIAN ALBANIAN LETTER KAR
+10545 ; [.410A.0020.0002] # CAUCASIAN ALBANIAN LETTER LYIT
+10546 ; [.410B.0020.0002] # CAUCASIAN ALBANIAN LETTER HEYT
+10547 ; [.410C.0020.0002] # CAUCASIAN ALBANIAN LETTER QAY
+10548 ; [.410D.0020.0002] # CAUCASIAN ALBANIAN LETTER AOR
+10549 ; [.410E.0020.0002] # CAUCASIAN ALBANIAN LETTER CHOY
+1054A ; [.410F.0020.0002] # CAUCASIAN ALBANIAN LETTER CHI
+1054B ; [.4110.0020.0002] # CAUCASIAN ALBANIAN LETTER CYAY
+1054C ; [.4111.0020.0002] # CAUCASIAN ALBANIAN LETTER MAQ
+1054D ; [.4112.0020.0002] # CAUCASIAN ALBANIAN LETTER QAR
+1054E ; [.4113.0020.0002] # CAUCASIAN ALBANIAN LETTER NOWC
+1054F ; [.4114.0020.0002] # CAUCASIAN ALBANIAN LETTER DZYAY
+10550 ; [.4115.0020.0002] # CAUCASIAN ALBANIAN LETTER SHAK
+10551 ; [.4116.0020.0002] # CAUCASIAN ALBANIAN LETTER JAYN
+10552 ; [.4117.0020.0002] # CAUCASIAN ALBANIAN LETTER ON
+10553 ; [.4118.0020.0002] # CAUCASIAN ALBANIAN LETTER TYAY
+10554 ; [.4119.0020.0002] # CAUCASIAN ALBANIAN LETTER FAM
+10555 ; [.411A.0020.0002] # CAUCASIAN ALBANIAN LETTER DZAY
+10556 ; [.411B.0020.0002] # CAUCASIAN ALBANIAN LETTER CHAT
+10557 ; [.411C.0020.0002] # CAUCASIAN ALBANIAN LETTER PEN
+10558 ; [.411D.0020.0002] # CAUCASIAN ALBANIAN LETTER GHEYS
+10559 ; [.411E.0020.0002] # CAUCASIAN ALBANIAN LETTER RAT
+1055A ; [.411F.0020.0002] # CAUCASIAN ALBANIAN LETTER SEYK
+1055B ; [.4120.0020.0002] # CAUCASIAN ALBANIAN LETTER VEYZ
+1055C ; [.4121.0020.0002] # CAUCASIAN ALBANIAN LETTER TIWR
+1055D ; [.4122.0020.0002] # CAUCASIAN ALBANIAN LETTER SHOY
+1055E ; [.4123.0020.0002] # CAUCASIAN ALBANIAN LETTER IWN
+1055F ; [.4124.0020.0002] # CAUCASIAN ALBANIAN LETTER CYAW
+10560 ; [.4125.0020.0002] # CAUCASIAN ALBANIAN LETTER CAYN
+10561 ; [.4126.0020.0002] # CAUCASIAN ALBANIAN LETTER YAYD
+10562 ; [.4127.0020.0002] # CAUCASIAN ALBANIAN LETTER PIWR
+10563 ; [.4128.0020.0002] # CAUCASIAN ALBANIAN LETTER KIW
+110D0 ; [.4129.0020.0002] # SORA SOMPENG LETTER SAH
+110D1 ; [.412A.0020.0002] # SORA SOMPENG LETTER TAH
+110D2 ; [.412B.0020.0002] # SORA SOMPENG LETTER BAH
+110D3 ; [.412C.0020.0002] # SORA SOMPENG LETTER CAH
+110D4 ; [.412D.0020.0002] # SORA SOMPENG LETTER DAH
+110D5 ; [.412E.0020.0002] # SORA SOMPENG LETTER GAH
+110D6 ; [.412F.0020.0002] # SORA SOMPENG LETTER MAH
+110D7 ; [.4130.0020.0002] # SORA SOMPENG LETTER NGAH
+110D8 ; [.4131.0020.0002] # SORA SOMPENG LETTER LAH
+110D9 ; [.4132.0020.0002] # SORA SOMPENG LETTER NAH
+110DA ; [.4133.0020.0002] # SORA SOMPENG LETTER VAH
+110DB ; [.4134.0020.0002] # SORA SOMPENG LETTER PAH
+110DC ; [.4135.0020.0002] # SORA SOMPENG LETTER YAH
+110DD ; [.4136.0020.0002] # SORA SOMPENG LETTER RAH
+110DE ; [.4137.0020.0002] # SORA SOMPENG LETTER HAH
+110DF ; [.4138.0020.0002] # SORA SOMPENG LETTER KAH
+110E0 ; [.4139.0020.0002] # SORA SOMPENG LETTER JAH
+110E1 ; [.413A.0020.0002] # SORA SOMPENG LETTER NYAH
+110E2 ; [.413B.0020.0002] # SORA SOMPENG LETTER AH
+110E3 ; [.413C.0020.0002] # SORA SOMPENG LETTER EEH
+110E4 ; [.413D.0020.0002] # SORA SOMPENG LETTER IH
+110E5 ; [.413E.0020.0002] # SORA SOMPENG LETTER UH
+110E6 ; [.413F.0020.0002] # SORA SOMPENG LETTER OH
+110E7 ; [.4140.0020.0002] # SORA SOMPENG LETTER EH
+110E8 ; [.4141.0020.0002] # SORA SOMPENG LETTER MAE
+16A40 ; [.4142.0020.0002] # MRO LETTER TA
+16A41 ; [.4143.0020.0002] # MRO LETTER NGI
+16A42 ; [.4144.0020.0002] # MRO LETTER YO
+16A43 ; [.4145.0020.0002] # MRO LETTER MIM
+16A44 ; [.4146.0020.0002] # MRO LETTER BA
+16A45 ; [.4147.0020.0002] # MRO LETTER DA
+16A46 ; [.4148.0020.0002] # MRO LETTER A
+16A47 ; [.4149.0020.0002] # MRO LETTER PHI
+16A48 ; [.414A.0020.0002] # MRO LETTER KHAI
+16A49 ; [.414B.0020.0002] # MRO LETTER HAO
+16A4A ; [.414C.0020.0002] # MRO LETTER DAI
+16A4B ; [.414D.0020.0002] # MRO LETTER CHU
+16A4C ; [.414E.0020.0002] # MRO LETTER KEAAE
+16A4D ; [.414F.0020.0002] # MRO LETTER OL
+16A4E ; [.4150.0020.0002] # MRO LETTER MAEM
+16A4F ; [.4151.0020.0002] # MRO LETTER NIN
+16A50 ; [.4152.0020.0002] # MRO LETTER PA
+16A51 ; [.4153.0020.0002] # MRO LETTER OO
+16A52 ; [.4154.0020.0002] # MRO LETTER O
+16A53 ; [.4155.0020.0002] # MRO LETTER RO
+16A54 ; [.4156.0020.0002] # MRO LETTER SHI
+16A55 ; [.4157.0020.0002] # MRO LETTER THEA
+16A56 ; [.4158.0020.0002] # MRO LETTER EA
+16A57 ; [.4159.0020.0002] # MRO LETTER WA
+16A58 ; [.415A.0020.0002] # MRO LETTER E
+16A59 ; [.415B.0020.0002] # MRO LETTER KO
+16A5A ; [.415C.0020.0002] # MRO LETTER LAN
+16A5B ; [.415D.0020.0002] # MRO LETTER LA
+16A5C ; [.415E.0020.0002] # MRO LETTER HAI
+16A5D ; [.415F.0020.0002] # MRO LETTER RI
+16A5E ; [.4160.0020.0002] # MRO LETTER TEK
+10000 ; [.4161.0020.0002] # LINEAR B SYLLABLE B008 A
+10001 ; [.4162.0020.0002] # LINEAR B SYLLABLE B038 E
+10002 ; [.4163.0020.0002] # LINEAR B SYLLABLE B028 I
+10003 ; [.4164.0020.0002] # LINEAR B SYLLABLE B061 O
+10004 ; [.4165.0020.0002] # LINEAR B SYLLABLE B010 U
+10005 ; [.4166.0020.0002] # LINEAR B SYLLABLE B001 DA
+10006 ; [.4167.0020.0002] # LINEAR B SYLLABLE B045 DE
+10007 ; [.4168.0020.0002] # LINEAR B SYLLABLE B007 DI
+10008 ; [.4169.0020.0002] # LINEAR B SYLLABLE B014 DO
+10009 ; [.416A.0020.0002] # LINEAR B SYLLABLE B051 DU
+1000A ; [.416B.0020.0002] # LINEAR B SYLLABLE B057 JA
+1000B ; [.416C.0020.0002] # LINEAR B SYLLABLE B046 JE
+1000D ; [.416D.0020.0002] # LINEAR B SYLLABLE B036 JO
+1000E ; [.416E.0020.0002] # LINEAR B SYLLABLE B065 JU
+1000F ; [.416F.0020.0002] # LINEAR B SYLLABLE B077 KA
+10010 ; [.4170.0020.0002] # LINEAR B SYLLABLE B044 KE
+10011 ; [.4171.0020.0002] # LINEAR B SYLLABLE B067 KI
+10012 ; [.4172.0020.0002] # LINEAR B SYLLABLE B070 KO
+10013 ; [.4173.0020.0002] # LINEAR B SYLLABLE B081 KU
+10014 ; [.4174.0020.0002] # LINEAR B SYLLABLE B080 MA
+10015 ; [.4175.0020.0002] # LINEAR B SYLLABLE B013 ME
+10016 ; [.4176.0020.0002] # LINEAR B SYLLABLE B073 MI
+10017 ; [.4177.0020.0002] # LINEAR B SYLLABLE B015 MO
+10018 ; [.4178.0020.0002] # LINEAR B SYLLABLE B023 MU
+10019 ; [.4179.0020.0002] # LINEAR B SYLLABLE B006 NA
+1001A ; [.417A.0020.0002] # LINEAR B SYLLABLE B024 NE
+1001B ; [.417B.0020.0002] # LINEAR B SYLLABLE B030 NI
+1001C ; [.417C.0020.0002] # LINEAR B SYLLABLE B052 NO
+1001D ; [.417D.0020.0002] # LINEAR B SYLLABLE B055 NU
+1001E ; [.417E.0020.0002] # LINEAR B SYLLABLE B003 PA
+1001F ; [.417F.0020.0002] # LINEAR B SYLLABLE B072 PE
+10020 ; [.4180.0020.0002] # LINEAR B SYLLABLE B039 PI
+10021 ; [.4181.0020.0002] # LINEAR B SYLLABLE B011 PO
+10022 ; [.4182.0020.0002] # LINEAR B SYLLABLE B050 PU
+10023 ; [.4183.0020.0002] # LINEAR B SYLLABLE B016 QA
+10024 ; [.4184.0020.0002] # LINEAR B SYLLABLE B078 QE
+10025 ; [.4185.0020.0002] # LINEAR B SYLLABLE B021 QI
+10026 ; [.4186.0020.0002] # LINEAR B SYLLABLE B032 QO
+10028 ; [.4187.0020.0002] # LINEAR B SYLLABLE B060 RA
+10029 ; [.4188.0020.0002] # LINEAR B SYLLABLE B027 RE
+1002A ; [.4189.0020.0002] # LINEAR B SYLLABLE B053 RI
+1002B ; [.418A.0020.0002] # LINEAR B SYLLABLE B002 RO
+1002C ; [.418B.0020.0002] # LINEAR B SYLLABLE B026 RU
+1002D ; [.418C.0020.0002] # LINEAR B SYLLABLE B031 SA
+1002E ; [.418D.0020.0002] # LINEAR B SYLLABLE B009 SE
+1002F ; [.418E.0020.0002] # LINEAR B SYLLABLE B041 SI
+10030 ; [.418F.0020.0002] # LINEAR B SYLLABLE B012 SO
+10031 ; [.4190.0020.0002] # LINEAR B SYLLABLE B058 SU
+10032 ; [.4191.0020.0002] # LINEAR B SYLLABLE B059 TA
+10033 ; [.4192.0020.0002] # LINEAR B SYLLABLE B004 TE
+10034 ; [.4193.0020.0002] # LINEAR B SYLLABLE B037 TI
+10035 ; [.4194.0020.0002] # LINEAR B SYLLABLE B005 TO
+10036 ; [.4195.0020.0002] # LINEAR B SYLLABLE B069 TU
+10037 ; [.4196.0020.0002] # LINEAR B SYLLABLE B054 WA
+10038 ; [.4197.0020.0002] # LINEAR B SYLLABLE B075 WE
+10039 ; [.4198.0020.0002] # LINEAR B SYLLABLE B040 WI
+1003A ; [.4199.0020.0002] # LINEAR B SYLLABLE B042 WO
+1003C ; [.419A.0020.0002] # LINEAR B SYLLABLE B017 ZA
+1003D ; [.419B.0020.0002] # LINEAR B SYLLABLE B074 ZE
+1003F ; [.419C.0020.0002] # LINEAR B SYLLABLE B020 ZO
+10040 ; [.419D.0020.0002] # LINEAR B SYLLABLE B025 A2
+10041 ; [.419E.0020.0002] # LINEAR B SYLLABLE B043 A3
+10042 ; [.419F.0020.0002] # LINEAR B SYLLABLE B085 AU
+10043 ; [.41A0.0020.0002] # LINEAR B SYLLABLE B071 DWE
+10044 ; [.41A1.0020.0002] # LINEAR B SYLLABLE B090 DWO
+10045 ; [.41A2.0020.0002] # LINEAR B SYLLABLE B048 NWA
+10046 ; [.41A3.0020.0002] # LINEAR B SYLLABLE B029 PU2
+10047 ; [.41A4.0020.0002] # LINEAR B SYLLABLE B062 PTE
+10048 ; [.41A5.0020.0002] # LINEAR B SYLLABLE B076 RA2
+10049 ; [.41A6.0020.0002] # LINEAR B SYLLABLE B033 RA3
+1004A ; [.41A7.0020.0002] # LINEAR B SYLLABLE B068 RO2
+1004B ; [.41A8.0020.0002] # LINEAR B SYLLABLE B066 TA2
+1004C ; [.41A9.0020.0002] # LINEAR B SYLLABLE B087 TWE
+1004D ; [.41AA.0020.0002] # LINEAR B SYLLABLE B091 TWO
+10050 ; [.41AB.0020.0002] # LINEAR B SYMBOL B018
+10051 ; [.41AC.0020.0002] # LINEAR B SYMBOL B019
+10052 ; [.41AD.0020.0002] # LINEAR B SYMBOL B022
+10053 ; [.41AE.0020.0002] # LINEAR B SYMBOL B034
+10054 ; [.41AF.0020.0002] # LINEAR B SYMBOL B047
+10055 ; [.41B0.0020.0002] # LINEAR B SYMBOL B049
+10056 ; [.41B1.0020.0002] # LINEAR B SYMBOL B056
+10057 ; [.41B2.0020.0002] # LINEAR B SYMBOL B063
+10058 ; [.41B3.0020.0002] # LINEAR B SYMBOL B064
+10059 ; [.41B4.0020.0002] # LINEAR B SYMBOL B079
+1005A ; [.41B5.0020.0002] # LINEAR B SYMBOL B082
+1005B ; [.41B6.0020.0002] # LINEAR B SYMBOL B083
+1005C ; [.41B7.0020.0002] # LINEAR B SYMBOL B086
+1005D ; [.41B8.0020.0002] # LINEAR B SYMBOL B089
+10080 ; [.41B9.0020.0002] # LINEAR B IDEOGRAM B100 MAN
+10081 ; [.41BA.0020.0002] # LINEAR B IDEOGRAM B102 WOMAN
+10082 ; [.41BB.0020.0002] # LINEAR B IDEOGRAM B104 DEER
+10083 ; [.41BC.0020.0002] # LINEAR B IDEOGRAM B105 EQUID
+10084 ; [.41BD.0020.0002] # LINEAR B IDEOGRAM B105F MARE
+10085 ; [.41BE.0020.0002] # LINEAR B IDEOGRAM B105M STALLION
+10086 ; [.41BF.0020.0002] # LINEAR B IDEOGRAM B106F EWE
+10087 ; [.41C0.0020.0002] # LINEAR B IDEOGRAM B106M RAM
+10088 ; [.41C1.0020.0002] # LINEAR B IDEOGRAM B107F SHE-GOAT
+10089 ; [.41C2.0020.0002] # LINEAR B IDEOGRAM B107M HE-GOAT
+1008A ; [.41C3.0020.0002] # LINEAR B IDEOGRAM B108F SOW
+1008B ; [.41C4.0020.0002] # LINEAR B IDEOGRAM B108M BOAR
+1008C ; [.41C5.0020.0002] # LINEAR B IDEOGRAM B109F COW
+1008D ; [.41C6.0020.0002] # LINEAR B IDEOGRAM B109M BULL
+1008E ; [.41C7.0020.0002] # LINEAR B IDEOGRAM B120 WHEAT
+1008F ; [.41C8.0020.0002] # LINEAR B IDEOGRAM B121 BARLEY
+10090 ; [.41C9.0020.0002] # LINEAR B IDEOGRAM B122 OLIVE
+10091 ; [.41CA.0020.0002] # LINEAR B IDEOGRAM B123 SPICE
+10092 ; [.41CB.0020.0002] # LINEAR B IDEOGRAM B125 CYPERUS
+10093 ; [.41CC.0020.0002] # LINEAR B MONOGRAM B127 KAPO
+10094 ; [.41CD.0020.0002] # LINEAR B MONOGRAM B128 KANAKO
+10095 ; [.41CE.0020.0002] # LINEAR B IDEOGRAM B130 OIL
+10096 ; [.41CF.0020.0002] # LINEAR B IDEOGRAM B131 WINE
+10097 ; [.41D0.0020.0002] # LINEAR B IDEOGRAM B132
+10098 ; [.41D1.0020.0002] # LINEAR B MONOGRAM B133 AREPA
+10099 ; [.41D2.0020.0002] # LINEAR B MONOGRAM B135 MERI
+1009A ; [.41D3.0020.0002] # LINEAR B IDEOGRAM B140 BRONZE
+1009B ; [.41D4.0020.0002] # LINEAR B IDEOGRAM B141 GOLD
+1009C ; [.41D5.0020.0002] # LINEAR B IDEOGRAM B142
+1009D ; [.41D6.0020.0002] # LINEAR B IDEOGRAM B145 WOOL
+1009E ; [.41D7.0020.0002] # LINEAR B IDEOGRAM B146
+1009F ; [.41D8.0020.0002] # LINEAR B IDEOGRAM B150
+100A0 ; [.41D9.0020.0002] # LINEAR B IDEOGRAM B151 HORN
+100A1 ; [.41DA.0020.0002] # LINEAR B IDEOGRAM B152
+100A2 ; [.41DB.0020.0002] # LINEAR B IDEOGRAM B153
+100A3 ; [.41DC.0020.0002] # LINEAR B IDEOGRAM B154
+100A4 ; [.41DD.0020.0002] # LINEAR B MONOGRAM B156 TURO2
+100A5 ; [.41DE.0020.0002] # LINEAR B IDEOGRAM B157
+100A6 ; [.41DF.0020.0002] # LINEAR B IDEOGRAM B158
+100A7 ; [.41E0.0020.0002] # LINEAR B IDEOGRAM B159 CLOTH
+100A8 ; [.41E1.0020.0002] # LINEAR B IDEOGRAM B160
+100A9 ; [.41E2.0020.0002] # LINEAR B IDEOGRAM B161
+100AA ; [.41E3.0020.0002] # LINEAR B IDEOGRAM B162 GARMENT
+100AB ; [.41E4.0020.0002] # LINEAR B IDEOGRAM B163 ARMOUR
+100AC ; [.41E5.0020.0002] # LINEAR B IDEOGRAM B164
+100AD ; [.41E6.0020.0002] # LINEAR B IDEOGRAM B165
+100AE ; [.41E7.0020.0002] # LINEAR B IDEOGRAM B166
+100AF ; [.41E8.0020.0002] # LINEAR B IDEOGRAM B167
+100B0 ; [.41E9.0020.0002] # LINEAR B IDEOGRAM B168
+100B1 ; [.41EA.0020.0002] # LINEAR B IDEOGRAM B169
+100B2 ; [.41EB.0020.0002] # LINEAR B IDEOGRAM B170
+100B3 ; [.41EC.0020.0002] # LINEAR B IDEOGRAM B171
+100B4 ; [.41ED.0020.0002] # LINEAR B IDEOGRAM B172
+100B5 ; [.41EE.0020.0002] # LINEAR B IDEOGRAM B173 MONTH
+100B6 ; [.41EF.0020.0002] # LINEAR B IDEOGRAM B174
+100B7 ; [.41F0.0020.0002] # LINEAR B IDEOGRAM B176 TREE
+100B8 ; [.41F1.0020.0002] # LINEAR B IDEOGRAM B177
+100B9 ; [.41F2.0020.0002] # LINEAR B IDEOGRAM B178
+100BA ; [.41F3.0020.0002] # LINEAR B IDEOGRAM B179
+100BB ; [.41F4.0020.0002] # LINEAR B IDEOGRAM B180
+100BC ; [.41F5.0020.0002] # LINEAR B IDEOGRAM B181
+100BD ; [.41F6.0020.0002] # LINEAR B IDEOGRAM B182
+100BE ; [.41F7.0020.0002] # LINEAR B IDEOGRAM B183
+100BF ; [.41F8.0020.0002] # LINEAR B IDEOGRAM B184
+100C0 ; [.41F9.0020.0002] # LINEAR B IDEOGRAM B185
+100C1 ; [.41FA.0020.0002] # LINEAR B IDEOGRAM B189
+100C2 ; [.41FB.0020.0002] # LINEAR B IDEOGRAM B190
+100C3 ; [.41FC.0020.0002] # LINEAR B IDEOGRAM B191 HELMET
+100C4 ; [.41FD.0020.0002] # LINEAR B IDEOGRAM B220 FOOTSTOOL
+100C5 ; [.41FE.0020.0002] # LINEAR B IDEOGRAM B225 BATHTUB
+100C6 ; [.41FF.0020.0002] # LINEAR B IDEOGRAM B230 SPEAR
+100C7 ; [.4200.0020.0002] # LINEAR B IDEOGRAM B231 ARROW
+100C8 ; [.4201.0020.0002] # LINEAR B IDEOGRAM B232
+100C9 ; [.4202.0020.0002] # LINEAR B IDEOGRAM B233 SWORD
+100CA ; [.4203.0020.0002] # LINEAR B IDEOGRAM B234
+100CB ; [.4204.0020.0002] # LINEAR B IDEOGRAM B236
+100CC ; [.4205.0020.0002] # LINEAR B IDEOGRAM B240 WHEELED CHARIOT
+100CD ; [.4206.0020.0002] # LINEAR B IDEOGRAM B241 CHARIOT
+100CE ; [.4207.0020.0002] # LINEAR B IDEOGRAM B242 CHARIOT FRAME
+100CF ; [.4208.0020.0002] # LINEAR B IDEOGRAM B243 WHEEL
+100D0 ; [.4209.0020.0002] # LINEAR B IDEOGRAM B245
+100D1 ; [.420A.0020.0002] # LINEAR B IDEOGRAM B246
+100D2 ; [.420B.0020.0002] # LINEAR B MONOGRAM B247 DIPTE
+100D3 ; [.420C.0020.0002] # LINEAR B IDEOGRAM B248
+100D4 ; [.420D.0020.0002] # LINEAR B IDEOGRAM B249
+100D5 ; [.420E.0020.0002] # LINEAR B IDEOGRAM B251
+100D6 ; [.420F.0020.0002] # LINEAR B IDEOGRAM B252
+100D7 ; [.4210.0020.0002] # LINEAR B IDEOGRAM B253
+100D8 ; [.4211.0020.0002] # LINEAR B IDEOGRAM B254 DART
+100D9 ; [.4212.0020.0002] # LINEAR B IDEOGRAM B255
+100DA ; [.4213.0020.0002] # LINEAR B IDEOGRAM B256
+100DB ; [.4214.0020.0002] # LINEAR B IDEOGRAM B257
+100DC ; [.4215.0020.0002] # LINEAR B IDEOGRAM B258
+100DD ; [.4216.0020.0002] # LINEAR B IDEOGRAM B259
+100DE ; [.4217.0020.0002] # LINEAR B IDEOGRAM VESSEL B155
+100DF ; [.4218.0020.0002] # LINEAR B IDEOGRAM VESSEL B200
+100E0 ; [.4219.0020.0002] # LINEAR B IDEOGRAM VESSEL B201
+100E1 ; [.421A.0020.0002] # LINEAR B IDEOGRAM VESSEL B202
+100E2 ; [.421B.0020.0002] # LINEAR B IDEOGRAM VESSEL B203
+100E3 ; [.421C.0020.0002] # LINEAR B IDEOGRAM VESSEL B204
+100E4 ; [.421D.0020.0002] # LINEAR B IDEOGRAM VESSEL B205
+100E5 ; [.421E.0020.0002] # LINEAR B IDEOGRAM VESSEL B206
+100E6 ; [.421F.0020.0002] # LINEAR B IDEOGRAM VESSEL B207
+100E7 ; [.4220.0020.0002] # LINEAR B IDEOGRAM VESSEL B208
+100E8 ; [.4221.0020.0002] # LINEAR B IDEOGRAM VESSEL B209
+100E9 ; [.4222.0020.0002] # LINEAR B IDEOGRAM VESSEL B210
+100EA ; [.4223.0020.0002] # LINEAR B IDEOGRAM VESSEL B211
+100EB ; [.4224.0020.0002] # LINEAR B IDEOGRAM VESSEL B212
+100EC ; [.4225.0020.0002] # LINEAR B IDEOGRAM VESSEL B213
+100ED ; [.4226.0020.0002] # LINEAR B IDEOGRAM VESSEL B214
+100EE ; [.4227.0020.0002] # LINEAR B IDEOGRAM VESSEL B215
+100EF ; [.4228.0020.0002] # LINEAR B IDEOGRAM VESSEL B216
+100F0 ; [.4229.0020.0002] # LINEAR B IDEOGRAM VESSEL B217
+100F1 ; [.422A.0020.0002] # LINEAR B IDEOGRAM VESSEL B218
+100F2 ; [.422B.0020.0002] # LINEAR B IDEOGRAM VESSEL B219
+100F3 ; [.422C.0020.0002] # LINEAR B IDEOGRAM VESSEL B221
+100F4 ; [.422D.0020.0002] # LINEAR B IDEOGRAM VESSEL B222
+100F5 ; [.422E.0020.0002] # LINEAR B IDEOGRAM VESSEL B226
+100F6 ; [.422F.0020.0002] # LINEAR B IDEOGRAM VESSEL B227
+100F7 ; [.4230.0020.0002] # LINEAR B IDEOGRAM VESSEL B228
+100F8 ; [.4231.0020.0002] # LINEAR B IDEOGRAM VESSEL B229
+100F9 ; [.4232.0020.0002] # LINEAR B IDEOGRAM VESSEL B250
+100FA ; [.4233.0020.0002] # LINEAR B IDEOGRAM VESSEL B305
+10600 ; [.4234.0020.0002] # LINEAR A SIGN AB001
+10601 ; [.4235.0020.0002] # LINEAR A SIGN AB002
+10602 ; [.4236.0020.0002] # LINEAR A SIGN AB003
+10603 ; [.4237.0020.0002] # LINEAR A SIGN AB004
+10604 ; [.4238.0020.0002] # LINEAR A SIGN AB005
+10605 ; [.4239.0020.0002] # LINEAR A SIGN AB006
+10606 ; [.423A.0020.0002] # LINEAR A SIGN AB007
+10607 ; [.423B.0020.0002] # LINEAR A SIGN AB008
+10608 ; [.423C.0020.0002] # LINEAR A SIGN AB009
+10609 ; [.423D.0020.0002] # LINEAR A SIGN AB010
+1060A ; [.423E.0020.0002] # LINEAR A SIGN AB011
+1060B ; [.423F.0020.0002] # LINEAR A SIGN AB013
+1060C ; [.4240.0020.0002] # LINEAR A SIGN AB016
+1060D ; [.4241.0020.0002] # LINEAR A SIGN AB017
+1060E ; [.4242.0020.0002] # LINEAR A SIGN AB020
+1060F ; [.4243.0020.0002] # LINEAR A SIGN AB021
+10610 ; [.4244.0020.0002] # LINEAR A SIGN AB021F
+10611 ; [.4245.0020.0002] # LINEAR A SIGN AB021M
+10612 ; [.4246.0020.0002] # LINEAR A SIGN AB022
+10613 ; [.4247.0020.0002] # LINEAR A SIGN AB022F
+10614 ; [.4248.0020.0002] # LINEAR A SIGN AB022M
+10615 ; [.4249.0020.0002] # LINEAR A SIGN AB023
+10616 ; [.424A.0020.0002] # LINEAR A SIGN AB023M
+10617 ; [.424B.0020.0002] # LINEAR A SIGN AB024
+10618 ; [.424C.0020.0002] # LINEAR A SIGN AB026
+10619 ; [.424D.0020.0002] # LINEAR A SIGN AB027
+1061A ; [.424E.0020.0002] # LINEAR A SIGN AB028
+1061B ; [.424F.0020.0002] # LINEAR A SIGN A028B
+1061C ; [.4250.0020.0002] # LINEAR A SIGN AB029
+1061D ; [.4251.0020.0002] # LINEAR A SIGN AB030
+1061E ; [.4252.0020.0002] # LINEAR A SIGN AB031
+1061F ; [.4253.0020.0002] # LINEAR A SIGN AB034
+10620 ; [.4254.0020.0002] # LINEAR A SIGN AB037
+10621 ; [.4255.0020.0002] # LINEAR A SIGN AB038
+10622 ; [.4256.0020.0002] # LINEAR A SIGN AB039
+10623 ; [.4257.0020.0002] # LINEAR A SIGN AB040
+10624 ; [.4258.0020.0002] # LINEAR A SIGN AB041
+10625 ; [.4259.0020.0002] # LINEAR A SIGN AB044
+10626 ; [.425A.0020.0002] # LINEAR A SIGN AB045
+10627 ; [.425B.0020.0002] # LINEAR A SIGN AB046
+10628 ; [.425C.0020.0002] # LINEAR A SIGN AB047
+10629 ; [.425D.0020.0002] # LINEAR A SIGN AB048
+1062A ; [.425E.0020.0002] # LINEAR A SIGN AB049
+1062B ; [.425F.0020.0002] # LINEAR A SIGN AB050
+1062C ; [.4260.0020.0002] # LINEAR A SIGN AB051
+1062D ; [.4261.0020.0002] # LINEAR A SIGN AB053
+1062E ; [.4262.0020.0002] # LINEAR A SIGN AB054
+1062F ; [.4263.0020.0002] # LINEAR A SIGN AB055
+10630 ; [.4264.0020.0002] # LINEAR A SIGN AB056
+10631 ; [.4265.0020.0002] # LINEAR A SIGN AB057
+10632 ; [.4266.0020.0002] # LINEAR A SIGN AB058
+10633 ; [.4267.0020.0002] # LINEAR A SIGN AB059
+10634 ; [.4268.0020.0002] # LINEAR A SIGN AB060
+10635 ; [.4269.0020.0002] # LINEAR A SIGN AB061
+10636 ; [.426A.0020.0002] # LINEAR A SIGN AB065
+10637 ; [.426B.0020.0002] # LINEAR A SIGN AB066
+10638 ; [.426C.0020.0002] # LINEAR A SIGN AB067
+10639 ; [.426D.0020.0002] # LINEAR A SIGN AB069
+1063A ; [.426E.0020.0002] # LINEAR A SIGN AB070
+1063B ; [.426F.0020.0002] # LINEAR A SIGN AB073
+1063C ; [.4270.0020.0002] # LINEAR A SIGN AB074
+1063D ; [.4271.0020.0002] # LINEAR A SIGN AB076
+1063E ; [.4272.0020.0002] # LINEAR A SIGN AB077
+1063F ; [.4273.0020.0002] # LINEAR A SIGN AB078
+10640 ; [.4274.0020.0002] # LINEAR A SIGN AB079
+10641 ; [.4275.0020.0002] # LINEAR A SIGN AB080
+10642 ; [.4276.0020.0002] # LINEAR A SIGN AB081
+10643 ; [.4277.0020.0002] # LINEAR A SIGN AB082
+10644 ; [.4278.0020.0002] # LINEAR A SIGN AB085
+10645 ; [.4279.0020.0002] # LINEAR A SIGN AB086
+10646 ; [.427A.0020.0002] # LINEAR A SIGN AB087
+10647 ; [.427B.0020.0002] # LINEAR A SIGN A100-102
+10648 ; [.427C.0020.0002] # LINEAR A SIGN AB118
+10649 ; [.427D.0020.0002] # LINEAR A SIGN AB120
+1064A ; [.427E.0020.0002] # LINEAR A SIGN A120B
+1064B ; [.427F.0020.0002] # LINEAR A SIGN AB122
+1064C ; [.4280.0020.0002] # LINEAR A SIGN AB123
+1064D ; [.4281.0020.0002] # LINEAR A SIGN AB131A
+1064E ; [.4282.0020.0002] # LINEAR A SIGN AB131B
+1064F ; [.4283.0020.0002] # LINEAR A SIGN A131C
+10650 ; [.4284.0020.0002] # LINEAR A SIGN AB164
+10651 ; [.4285.0020.0002] # LINEAR A SIGN AB171
+10652 ; [.4286.0020.0002] # LINEAR A SIGN AB180
+10653 ; [.4287.0020.0002] # LINEAR A SIGN AB188
+10654 ; [.4288.0020.0002] # LINEAR A SIGN AB191
+10655 ; [.4289.0020.0002] # LINEAR A SIGN A301
+10656 ; [.428A.0020.0002] # LINEAR A SIGN A302
+10657 ; [.428B.0020.0002] # LINEAR A SIGN A303
+10658 ; [.428C.0020.0002] # LINEAR A SIGN A304
+10659 ; [.428D.0020.0002] # LINEAR A SIGN A305
+1065A ; [.428E.0020.0002] # LINEAR A SIGN A306
+1065B ; [.428F.0020.0002] # LINEAR A SIGN A307
+1065C ; [.4290.0020.0002] # LINEAR A SIGN A308
+1065D ; [.4291.0020.0002] # LINEAR A SIGN A309A
+1065E ; [.4292.0020.0002] # LINEAR A SIGN A309B
+1065F ; [.4293.0020.0002] # LINEAR A SIGN A309C
+10660 ; [.4294.0020.0002] # LINEAR A SIGN A310
+10661 ; [.4295.0020.0002] # LINEAR A SIGN A311
+10662 ; [.4296.0020.0002] # LINEAR A SIGN A312
+10663 ; [.4297.0020.0002] # LINEAR A SIGN A313A
+10664 ; [.4298.0020.0002] # LINEAR A SIGN A313B
+10665 ; [.4299.0020.0002] # LINEAR A SIGN A313C
+10666 ; [.429A.0020.0002] # LINEAR A SIGN A314
+10667 ; [.429B.0020.0002] # LINEAR A SIGN A315
+10668 ; [.429C.0020.0002] # LINEAR A SIGN A316
+10669 ; [.429D.0020.0002] # LINEAR A SIGN A317
+1066A ; [.429E.0020.0002] # LINEAR A SIGN A318
+1066B ; [.429F.0020.0002] # LINEAR A SIGN A319
+1066C ; [.42A0.0020.0002] # LINEAR A SIGN A320
+1066D ; [.42A1.0020.0002] # LINEAR A SIGN A321
+1066E ; [.42A2.0020.0002] # LINEAR A SIGN A322
+1066F ; [.42A3.0020.0002] # LINEAR A SIGN A323
+10670 ; [.42A4.0020.0002] # LINEAR A SIGN A324
+10671 ; [.42A5.0020.0002] # LINEAR A SIGN A325
+10672 ; [.42A6.0020.0002] # LINEAR A SIGN A326
+10673 ; [.42A7.0020.0002] # LINEAR A SIGN A327
+10674 ; [.42A8.0020.0002] # LINEAR A SIGN A328
+10675 ; [.42A9.0020.0002] # LINEAR A SIGN A329
+10676 ; [.42AA.0020.0002] # LINEAR A SIGN A330
+10677 ; [.42AB.0020.0002] # LINEAR A SIGN A331
+10678 ; [.42AC.0020.0002] # LINEAR A SIGN A332
+10679 ; [.42AD.0020.0002] # LINEAR A SIGN A333
+1067A ; [.42AE.0020.0002] # LINEAR A SIGN A334
+1067B ; [.42AF.0020.0002] # LINEAR A SIGN A335
+1067C ; [.42B0.0020.0002] # LINEAR A SIGN A336
+1067D ; [.42B1.0020.0002] # LINEAR A SIGN A337
+1067E ; [.42B2.0020.0002] # LINEAR A SIGN A338
+1067F ; [.42B3.0020.0002] # LINEAR A SIGN A339
+10680 ; [.42B4.0020.0002] # LINEAR A SIGN A340
+10681 ; [.42B5.0020.0002] # LINEAR A SIGN A341
+10682 ; [.42B6.0020.0002] # LINEAR A SIGN A342
+10683 ; [.42B7.0020.0002] # LINEAR A SIGN A343
+10684 ; [.42B8.0020.0002] # LINEAR A SIGN A344
+10685 ; [.42B9.0020.0002] # LINEAR A SIGN A345
+10686 ; [.42BA.0020.0002] # LINEAR A SIGN A346
+10687 ; [.42BB.0020.0002] # LINEAR A SIGN A347
+10688 ; [.42BC.0020.0002] # LINEAR A SIGN A348
+10689 ; [.42BD.0020.0002] # LINEAR A SIGN A349
+1068A ; [.42BE.0020.0002] # LINEAR A SIGN A350
+1068B ; [.42BF.0020.0002] # LINEAR A SIGN A351
+1068C ; [.42C0.0020.0002] # LINEAR A SIGN A352
+1068D ; [.42C1.0020.0002] # LINEAR A SIGN A353
+1068E ; [.42C2.0020.0002] # LINEAR A SIGN A354
+1068F ; [.42C3.0020.0002] # LINEAR A SIGN A355
+10690 ; [.42C4.0020.0002] # LINEAR A SIGN A356
+10691 ; [.42C5.0020.0002] # LINEAR A SIGN A357
+10692 ; [.42C6.0020.0002] # LINEAR A SIGN A358
+10693 ; [.42C7.0020.0002] # LINEAR A SIGN A359
+10694 ; [.42C8.0020.0002] # LINEAR A SIGN A360
+10695 ; [.42C9.0020.0002] # LINEAR A SIGN A361
+10696 ; [.42CA.0020.0002] # LINEAR A SIGN A362
+10697 ; [.42CB.0020.0002] # LINEAR A SIGN A363
+10698 ; [.42CC.0020.0002] # LINEAR A SIGN A364
+10699 ; [.42CD.0020.0002] # LINEAR A SIGN A365
+1069A ; [.42CE.0020.0002] # LINEAR A SIGN A366
+1069B ; [.42CF.0020.0002] # LINEAR A SIGN A367
+1069C ; [.42D0.0020.0002] # LINEAR A SIGN A368
+1069D ; [.42D1.0020.0002] # LINEAR A SIGN A369
+1069E ; [.42D2.0020.0002] # LINEAR A SIGN A370
+1069F ; [.42D3.0020.0002] # LINEAR A SIGN A371
+106A0 ; [.42D4.0020.0002] # LINEAR A SIGN A400-VAS
+106A1 ; [.42D5.0020.0002] # LINEAR A SIGN A401-VAS
+106A2 ; [.42D6.0020.0002] # LINEAR A SIGN A402-VAS
+106A3 ; [.42D7.0020.0002] # LINEAR A SIGN A403-VAS
+106A4 ; [.42D8.0020.0002] # LINEAR A SIGN A404-VAS
+106A5 ; [.42D9.0020.0002] # LINEAR A SIGN A405-VAS
+106A6 ; [.42DA.0020.0002] # LINEAR A SIGN A406-VAS
+106A7 ; [.42DB.0020.0002] # LINEAR A SIGN A407-VAS
+106A8 ; [.42DC.0020.0002] # LINEAR A SIGN A408-VAS
+106A9 ; [.42DD.0020.0002] # LINEAR A SIGN A409-VAS
+106AA ; [.42DE.0020.0002] # LINEAR A SIGN A410-VAS
+106AB ; [.42DF.0020.0002] # LINEAR A SIGN A411-VAS
+106AC ; [.42E0.0020.0002] # LINEAR A SIGN A412-VAS
+106AD ; [.42E1.0020.0002] # LINEAR A SIGN A413-VAS
+106AE ; [.42E2.0020.0002] # LINEAR A SIGN A414-VAS
+106AF ; [.42E3.0020.0002] # LINEAR A SIGN A415-VAS
+106B0 ; [.42E4.0020.0002] # LINEAR A SIGN A416-VAS
+106B1 ; [.42E5.0020.0002] # LINEAR A SIGN A417-VAS
+106B2 ; [.42E6.0020.0002] # LINEAR A SIGN A418-VAS
+106B3 ; [.42E7.0020.0002] # LINEAR A SIGN A501
+106B4 ; [.42E8.0020.0002] # LINEAR A SIGN A502
+106B5 ; [.42E9.0020.0002] # LINEAR A SIGN A503
+106B6 ; [.42EA.0020.0002] # LINEAR A SIGN A504
+106B7 ; [.42EB.0020.0002] # LINEAR A SIGN A505
+106B8 ; [.42EC.0020.0002] # LINEAR A SIGN A506
+106B9 ; [.42ED.0020.0002] # LINEAR A SIGN A508
+106BA ; [.42EE.0020.0002] # LINEAR A SIGN A509
+106BB ; [.42EF.0020.0002] # LINEAR A SIGN A510
+106BC ; [.42F0.0020.0002] # LINEAR A SIGN A511
+106BD ; [.42F1.0020.0002] # LINEAR A SIGN A512
+106BE ; [.42F2.0020.0002] # LINEAR A SIGN A513
+106BF ; [.42F3.0020.0002] # LINEAR A SIGN A515
+106C0 ; [.42F4.0020.0002] # LINEAR A SIGN A516
+106C1 ; [.42F5.0020.0002] # LINEAR A SIGN A520
+106C2 ; [.42F6.0020.0002] # LINEAR A SIGN A521
+106C3 ; [.42F7.0020.0002] # LINEAR A SIGN A523
+106C4 ; [.42F8.0020.0002] # LINEAR A SIGN A524
+106C5 ; [.42F9.0020.0002] # LINEAR A SIGN A525
+106C6 ; [.42FA.0020.0002] # LINEAR A SIGN A526
+106C7 ; [.42FB.0020.0002] # LINEAR A SIGN A527
+106C8 ; [.42FC.0020.0002] # LINEAR A SIGN A528
+106C9 ; [.42FD.0020.0002] # LINEAR A SIGN A529
+106CA ; [.42FE.0020.0002] # LINEAR A SIGN A530
+106CB ; [.42FF.0020.0002] # LINEAR A SIGN A531
+106CC ; [.4300.0020.0002] # LINEAR A SIGN A532
+106CD ; [.4301.0020.0002] # LINEAR A SIGN A534
+106CE ; [.4302.0020.0002] # LINEAR A SIGN A535
+106CF ; [.4303.0020.0002] # LINEAR A SIGN A536
+106D0 ; [.4304.0020.0002] # LINEAR A SIGN A537
+106D1 ; [.4305.0020.0002] # LINEAR A SIGN A538
+106D2 ; [.4306.0020.0002] # LINEAR A SIGN A539
+106D3 ; [.4307.0020.0002] # LINEAR A SIGN A540
+106D4 ; [.4308.0020.0002] # LINEAR A SIGN A541
+106D5 ; [.4309.0020.0002] # LINEAR A SIGN A542
+106D6 ; [.430A.0020.0002] # LINEAR A SIGN A545
+106D7 ; [.430B.0020.0002] # LINEAR A SIGN A547
+106D8 ; [.430C.0020.0002] # LINEAR A SIGN A548
+106D9 ; [.430D.0020.0002] # LINEAR A SIGN A549
+106DA ; [.430E.0020.0002] # LINEAR A SIGN A550
+106DB ; [.430F.0020.0002] # LINEAR A SIGN A551
+106DC ; [.4310.0020.0002] # LINEAR A SIGN A552
+106DD ; [.4311.0020.0002] # LINEAR A SIGN A553
+106DE ; [.4312.0020.0002] # LINEAR A SIGN A554
+106DF ; [.4313.0020.0002] # LINEAR A SIGN A555
+106E0 ; [.4314.0020.0002] # LINEAR A SIGN A556
+106E1 ; [.4315.0020.0002] # LINEAR A SIGN A557
+106E2 ; [.4316.0020.0002] # LINEAR A SIGN A559
+106E3 ; [.4317.0020.0002] # LINEAR A SIGN A563
+106E4 ; [.4318.0020.0002] # LINEAR A SIGN A564
+106E5 ; [.4319.0020.0002] # LINEAR A SIGN A565
+106E6 ; [.431A.0020.0002] # LINEAR A SIGN A566
+106E7 ; [.431B.0020.0002] # LINEAR A SIGN A568
+106E8 ; [.431C.0020.0002] # LINEAR A SIGN A569
+106E9 ; [.431D.0020.0002] # LINEAR A SIGN A570
+106EA ; [.431E.0020.0002] # LINEAR A SIGN A571
+106EB ; [.431F.0020.0002] # LINEAR A SIGN A572
+106EC ; [.4320.0020.0002] # LINEAR A SIGN A573
+106ED ; [.4321.0020.0002] # LINEAR A SIGN A574
+106EE ; [.4322.0020.0002] # LINEAR A SIGN A575
+106EF ; [.4323.0020.0002] # LINEAR A SIGN A576
+106F0 ; [.4324.0020.0002] # LINEAR A SIGN A577
+106F1 ; [.4325.0020.0002] # LINEAR A SIGN A578
+106F2 ; [.4326.0020.0002] # LINEAR A SIGN A579
+106F3 ; [.4327.0020.0002] # LINEAR A SIGN A580
+106F4 ; [.4328.0020.0002] # LINEAR A SIGN A581
+106F5 ; [.4329.0020.0002] # LINEAR A SIGN A582
+106F6 ; [.432A.0020.0002] # LINEAR A SIGN A583
+106F7 ; [.432B.0020.0002] # LINEAR A SIGN A584
+106F8 ; [.432C.0020.0002] # LINEAR A SIGN A585
+106F9 ; [.432D.0020.0002] # LINEAR A SIGN A586
+106FA ; [.432E.0020.0002] # LINEAR A SIGN A587
+106FB ; [.432F.0020.0002] # LINEAR A SIGN A588
+106FC ; [.4330.0020.0002] # LINEAR A SIGN A589
+106FD ; [.4331.0020.0002] # LINEAR A SIGN A591
+106FE ; [.4332.0020.0002] # LINEAR A SIGN A592
+106FF ; [.4333.0020.0002] # LINEAR A SIGN A594
+10700 ; [.4334.0020.0002] # LINEAR A SIGN A595
+10701 ; [.4335.0020.0002] # LINEAR A SIGN A596
+10702 ; [.4336.0020.0002] # LINEAR A SIGN A598
+10703 ; [.4337.0020.0002] # LINEAR A SIGN A600
+10704 ; [.4338.0020.0002] # LINEAR A SIGN A601
+10705 ; [.4339.0020.0002] # LINEAR A SIGN A602
+10706 ; [.433A.0020.0002] # LINEAR A SIGN A603
+10707 ; [.433B.0020.0002] # LINEAR A SIGN A604
+10708 ; [.433C.0020.0002] # LINEAR A SIGN A606
+10709 ; [.433D.0020.0002] # LINEAR A SIGN A608
+1070A ; [.433E.0020.0002] # LINEAR A SIGN A609
+1070B ; [.433F.0020.0002] # LINEAR A SIGN A610
+1070C ; [.4340.0020.0002] # LINEAR A SIGN A611
+1070D ; [.4341.0020.0002] # LINEAR A SIGN A612
+1070E ; [.4342.0020.0002] # LINEAR A SIGN A613
+1070F ; [.4343.0020.0002] # LINEAR A SIGN A614
+10710 ; [.4344.0020.0002] # LINEAR A SIGN A615
+10711 ; [.4345.0020.0002] # LINEAR A SIGN A616
+10712 ; [.4346.0020.0002] # LINEAR A SIGN A617
+10713 ; [.4347.0020.0002] # LINEAR A SIGN A618
+10714 ; [.4348.0020.0002] # LINEAR A SIGN A619
+10715 ; [.4349.0020.0002] # LINEAR A SIGN A620
+10716 ; [.434A.0020.0002] # LINEAR A SIGN A621
+10717 ; [.434B.0020.0002] # LINEAR A SIGN A622
+10718 ; [.434C.0020.0002] # LINEAR A SIGN A623
+10719 ; [.434D.0020.0002] # LINEAR A SIGN A624
+1071A ; [.434E.0020.0002] # LINEAR A SIGN A626
+1071B ; [.434F.0020.0002] # LINEAR A SIGN A627
+1071C ; [.4350.0020.0002] # LINEAR A SIGN A628
+1071D ; [.4351.0020.0002] # LINEAR A SIGN A629
+1071E ; [.4352.0020.0002] # LINEAR A SIGN A634
+1071F ; [.4353.0020.0002] # LINEAR A SIGN A637
+10720 ; [.4354.0020.0002] # LINEAR A SIGN A638
+10721 ; [.4355.0020.0002] # LINEAR A SIGN A640
+10722 ; [.4356.0020.0002] # LINEAR A SIGN A642
+10723 ; [.4357.0020.0002] # LINEAR A SIGN A643
+10724 ; [.4358.0020.0002] # LINEAR A SIGN A644
+10725 ; [.4359.0020.0002] # LINEAR A SIGN A645
+10726 ; [.435A.0020.0002] # LINEAR A SIGN A646
+10727 ; [.435B.0020.0002] # LINEAR A SIGN A648
+10728 ; [.435C.0020.0002] # LINEAR A SIGN A649
+10729 ; [.435D.0020.0002] # LINEAR A SIGN A651
+1072A ; [.435E.0020.0002] # LINEAR A SIGN A652
+1072B ; [.435F.0020.0002] # LINEAR A SIGN A653
+1072C ; [.4360.0020.0002] # LINEAR A SIGN A654
+1072D ; [.4361.0020.0002] # LINEAR A SIGN A655
+1072E ; [.4362.0020.0002] # LINEAR A SIGN A656
+1072F ; [.4363.0020.0002] # LINEAR A SIGN A657
+10730 ; [.4364.0020.0002] # LINEAR A SIGN A658
+10731 ; [.4365.0020.0002] # LINEAR A SIGN A659
+10732 ; [.4366.0020.0002] # LINEAR A SIGN A660
+10733 ; [.4367.0020.0002] # LINEAR A SIGN A661
+10734 ; [.4368.0020.0002] # LINEAR A SIGN A662
+10735 ; [.4369.0020.0002] # LINEAR A SIGN A663
+10736 ; [.436A.0020.0002] # LINEAR A SIGN A664
+10740 ; [.436B.0020.0002] # LINEAR A SIGN A701 A
+10741 ; [.436C.0020.0002] # LINEAR A SIGN A702 B
+10742 ; [.436D.0020.0002] # LINEAR A SIGN A703 D
+10743 ; [.436E.0020.0002] # LINEAR A SIGN A704 E
+10744 ; [.436F.0020.0002] # LINEAR A SIGN A705 F
+10745 ; [.4370.0020.0002] # LINEAR A SIGN A706 H
+10746 ; [.4371.0020.0002] # LINEAR A SIGN A707 J
+10747 ; [.4372.0020.0002] # LINEAR A SIGN A708 K
+10748 ; [.4373.0020.0002] # LINEAR A SIGN A709 L
+10749 ; [.4374.0020.0002] # LINEAR A SIGN A709-2 L2
+1074A ; [.4375.0020.0002] # LINEAR A SIGN A709-3 L3
+1074B ; [.4376.0020.0002] # LINEAR A SIGN A709-4 L4
+1074C ; [.4377.0020.0002] # LINEAR A SIGN A709-6 L6
+1074D ; [.4378.0020.0002] # LINEAR A SIGN A710 W
+1074E ; [.4379.0020.0002] # LINEAR A SIGN A711 X
+1074F ; [.437A.0020.0002] # LINEAR A SIGN A712 Y
+10750 ; [.437B.0020.0002] # LINEAR A SIGN A713 OMEGA
+10751 ; [.437C.0020.0002] # LINEAR A SIGN A714 ABB
+10752 ; [.437D.0020.0002] # LINEAR A SIGN A715 BB
+10753 ; [.437E.0020.0002] # LINEAR A SIGN A717 DD
+10754 ; [.437F.0020.0002] # LINEAR A SIGN A726 EYYY
+10755 ; [.4380.0020.0002] # LINEAR A SIGN A732 JE
+10760 ; [.4381.0020.0002] # LINEAR A SIGN A800
+10761 ; [.4382.0020.0002] # LINEAR A SIGN A801
+10762 ; [.4383.0020.0002] # LINEAR A SIGN A802
+10763 ; [.4384.0020.0002] # LINEAR A SIGN A803
+10764 ; [.4385.0020.0002] # LINEAR A SIGN A804
+10765 ; [.4386.0020.0002] # LINEAR A SIGN A805
+10766 ; [.4387.0020.0002] # LINEAR A SIGN A806
+10767 ; [.4388.0020.0002] # LINEAR A SIGN A807
+10800 ; [.4389.0020.0002] # CYPRIOT SYLLABLE A
+10801 ; [.438A.0020.0002] # CYPRIOT SYLLABLE E
+10802 ; [.438B.0020.0002] # CYPRIOT SYLLABLE I
+10803 ; [.438C.0020.0002] # CYPRIOT SYLLABLE O
+10804 ; [.438D.0020.0002] # CYPRIOT SYLLABLE U
+10805 ; [.438E.0020.0002] # CYPRIOT SYLLABLE JA
+10808 ; [.438F.0020.0002] # CYPRIOT SYLLABLE JO
+1080A ; [.4390.0020.0002] # CYPRIOT SYLLABLE KA
+1080B ; [.4391.0020.0002] # CYPRIOT SYLLABLE KE
+1080C ; [.4392.0020.0002] # CYPRIOT SYLLABLE KI
+1080D ; [.4393.0020.0002] # CYPRIOT SYLLABLE KO
+1080E ; [.4394.0020.0002] # CYPRIOT SYLLABLE KU
+1080F ; [.4395.0020.0002] # CYPRIOT SYLLABLE LA
+10810 ; [.4396.0020.0002] # CYPRIOT SYLLABLE LE
+10811 ; [.4397.0020.0002] # CYPRIOT SYLLABLE LI
+10812 ; [.4398.0020.0002] # CYPRIOT SYLLABLE LO
+10813 ; [.4399.0020.0002] # CYPRIOT SYLLABLE LU
+10814 ; [.439A.0020.0002] # CYPRIOT SYLLABLE MA
+10815 ; [.439B.0020.0002] # CYPRIOT SYLLABLE ME
+10816 ; [.439C.0020.0002] # CYPRIOT SYLLABLE MI
+10817 ; [.439D.0020.0002] # CYPRIOT SYLLABLE MO
+10818 ; [.439E.0020.0002] # CYPRIOT SYLLABLE MU
+10819 ; [.439F.0020.0002] # CYPRIOT SYLLABLE NA
+1081A ; [.43A0.0020.0002] # CYPRIOT SYLLABLE NE
+1081B ; [.43A1.0020.0002] # CYPRIOT SYLLABLE NI
+1081C ; [.43A2.0020.0002] # CYPRIOT SYLLABLE NO
+1081D ; [.43A3.0020.0002] # CYPRIOT SYLLABLE NU
+1081E ; [.43A4.0020.0002] # CYPRIOT SYLLABLE PA
+1081F ; [.43A5.0020.0002] # CYPRIOT SYLLABLE PE
+10820 ; [.43A6.0020.0002] # CYPRIOT SYLLABLE PI
+10821 ; [.43A7.0020.0002] # CYPRIOT SYLLABLE PO
+10822 ; [.43A8.0020.0002] # CYPRIOT SYLLABLE PU
+10823 ; [.43A9.0020.0002] # CYPRIOT SYLLABLE RA
+10824 ; [.43AA.0020.0002] # CYPRIOT SYLLABLE RE
+10825 ; [.43AB.0020.0002] # CYPRIOT SYLLABLE RI
+10826 ; [.43AC.0020.0002] # CYPRIOT SYLLABLE RO
+10827 ; [.43AD.0020.0002] # CYPRIOT SYLLABLE RU
+10828 ; [.43AE.0020.0002] # CYPRIOT SYLLABLE SA
+10829 ; [.43AF.0020.0002] # CYPRIOT SYLLABLE SE
+1082A ; [.43B0.0020.0002] # CYPRIOT SYLLABLE SI
+1082B ; [.43B1.0020.0002] # CYPRIOT SYLLABLE SO
+1082C ; [.43B2.0020.0002] # CYPRIOT SYLLABLE SU
+1082D ; [.43B3.0020.0002] # CYPRIOT SYLLABLE TA
+1082E ; [.43B4.0020.0002] # CYPRIOT SYLLABLE TE
+1082F ; [.43B5.0020.0002] # CYPRIOT SYLLABLE TI
+10830 ; [.43B6.0020.0002] # CYPRIOT SYLLABLE TO
+10831 ; [.43B7.0020.0002] # CYPRIOT SYLLABLE TU
+10832 ; [.43B8.0020.0002] # CYPRIOT SYLLABLE WA
+10833 ; [.43B9.0020.0002] # CYPRIOT SYLLABLE WE
+10834 ; [.43BA.0020.0002] # CYPRIOT SYLLABLE WI
+10835 ; [.43BB.0020.0002] # CYPRIOT SYLLABLE WO
+10837 ; [.43BC.0020.0002] # CYPRIOT SYLLABLE XA
+10838 ; [.43BD.0020.0002] # CYPRIOT SYLLABLE XE
+1083C ; [.43BE.0020.0002] # CYPRIOT SYLLABLE ZA
+1083F ; [.43BF.0020.0002] # CYPRIOT SYLLABLE ZO
+10A60 ; [.43C0.0020.0002] # OLD SOUTH ARABIAN LETTER HE
+10A61 ; [.43C1.0020.0002] # OLD SOUTH ARABIAN LETTER LAMEDH
+10A62 ; [.43C2.0020.0002] # OLD SOUTH ARABIAN LETTER HETH
+10A63 ; [.43C3.0020.0002] # OLD SOUTH ARABIAN LETTER MEM
+10A64 ; [.43C4.0020.0002] # OLD SOUTH ARABIAN LETTER QOPH
+10A65 ; [.43C5.0020.0002] # OLD SOUTH ARABIAN LETTER WAW
+10A66 ; [.43C6.0020.0002] # OLD SOUTH ARABIAN LETTER SHIN
+10A67 ; [.43C7.0020.0002] # OLD SOUTH ARABIAN LETTER RESH
+10A68 ; [.43C8.0020.0002] # OLD SOUTH ARABIAN LETTER BETH
+10A69 ; [.43C9.0020.0002] # OLD SOUTH ARABIAN LETTER TAW
+10A6A ; [.43CA.0020.0002] # OLD SOUTH ARABIAN LETTER SAT
+10A6B ; [.43CB.0020.0002] # OLD SOUTH ARABIAN LETTER KAPH
+10A6C ; [.43CC.0020.0002] # OLD SOUTH ARABIAN LETTER NUN
+10A6D ; [.43CD.0020.0002] # OLD SOUTH ARABIAN LETTER KHETH
+10A6E ; [.43CE.0020.0002] # OLD SOUTH ARABIAN LETTER SADHE
+10A6F ; [.43CF.0020.0002] # OLD SOUTH ARABIAN LETTER SAMEKH
+10A70 ; [.43D0.0020.0002] # OLD SOUTH ARABIAN LETTER FE
+10A71 ; [.43D1.0020.0002] # OLD SOUTH ARABIAN LETTER ALEF
+10A72 ; [.43D2.0020.0002] # OLD SOUTH ARABIAN LETTER AYN
+10A73 ; [.43D3.0020.0002] # OLD SOUTH ARABIAN LETTER DHADHE
+10A74 ; [.43D4.0020.0002] # OLD SOUTH ARABIAN LETTER GIMEL
+10A75 ; [.43D5.0020.0002] # OLD SOUTH ARABIAN LETTER DALETH
+10A76 ; [.43D6.0020.0002] # OLD SOUTH ARABIAN LETTER GHAYN
+10A77 ; [.43D7.0020.0002] # OLD SOUTH ARABIAN LETTER TETH
+10A78 ; [.43D8.0020.0002] # OLD SOUTH ARABIAN LETTER ZAYN
+10A79 ; [.43D9.0020.0002] # OLD SOUTH ARABIAN LETTER DHALETH
+10A7A ; [.43DA.0020.0002] # OLD SOUTH ARABIAN LETTER YODH
+10A7B ; [.43DB.0020.0002] # OLD SOUTH ARABIAN LETTER THAW
+10A7C ; [.43DC.0020.0002] # OLD SOUTH ARABIAN LETTER THETH
+10A80 ; [.43DD.0020.0002] # OLD NORTH ARABIAN LETTER HEH
+10A81 ; [.43DE.0020.0002] # OLD NORTH ARABIAN LETTER LAM
+10A82 ; [.43DF.0020.0002] # OLD NORTH ARABIAN LETTER HAH
+10A83 ; [.43E0.0020.0002] # OLD NORTH ARABIAN LETTER MEEM
+10A84 ; [.43E1.0020.0002] # OLD NORTH ARABIAN LETTER QAF
+10A85 ; [.43E2.0020.0002] # OLD NORTH ARABIAN LETTER WAW
+10A86 ; [.43E3.0020.0002] # OLD NORTH ARABIAN LETTER ES-2
+10A87 ; [.43E4.0020.0002] # OLD NORTH ARABIAN LETTER REH
+10A88 ; [.43E5.0020.0002] # OLD NORTH ARABIAN LETTER BEH
+10A89 ; [.43E6.0020.0002] # OLD NORTH ARABIAN LETTER TEH
+10A8A ; [.43E7.0020.0002] # OLD NORTH ARABIAN LETTER ES-1
+10A8B ; [.43E8.0020.0002] # OLD NORTH ARABIAN LETTER KAF
+10A8C ; [.43E9.0020.0002] # OLD NORTH ARABIAN LETTER NOON
+10A8D ; [.43EA.0020.0002] # OLD NORTH ARABIAN LETTER KHAH
+10A8E ; [.43EB.0020.0002] # OLD NORTH ARABIAN LETTER SAD
+10A8F ; [.43EC.0020.0002] # OLD NORTH ARABIAN LETTER ES-3
+10A90 ; [.43ED.0020.0002] # OLD NORTH ARABIAN LETTER FEH
+10A91 ; [.43EE.0020.0002] # OLD NORTH ARABIAN LETTER ALEF
+10A92 ; [.43EF.0020.0002] # OLD NORTH ARABIAN LETTER AIN
+10A93 ; [.43F0.0020.0002] # OLD NORTH ARABIAN LETTER DAD
+10A94 ; [.43F1.0020.0002] # OLD NORTH ARABIAN LETTER GEEM
+10A95 ; [.43F2.0020.0002] # OLD NORTH ARABIAN LETTER DAL
+10A96 ; [.43F3.0020.0002] # OLD NORTH ARABIAN LETTER GHAIN
+10A97 ; [.43F4.0020.0002] # OLD NORTH ARABIAN LETTER TAH
+10A98 ; [.43F5.0020.0002] # OLD NORTH ARABIAN LETTER ZAIN
+10A99 ; [.43F6.0020.0002] # OLD NORTH ARABIAN LETTER THAL
+10A9A ; [.43F7.0020.0002] # OLD NORTH ARABIAN LETTER YEH
+10A9B ; [.43F8.0020.0002] # OLD NORTH ARABIAN LETTER THEH
+10A9C ; [.43F9.0020.0002] # OLD NORTH ARABIAN LETTER ZAH
+10B00 ; [.43FA.0020.0002] # AVESTAN LETTER A
+10B01 ; [.43FB.0020.0002] # AVESTAN LETTER AA
+10B02 ; [.43FC.0020.0002] # AVESTAN LETTER AO
+10B03 ; [.43FD.0020.0002] # AVESTAN LETTER AAO
+10B04 ; [.43FE.0020.0002] # AVESTAN LETTER AN
+10B05 ; [.43FF.0020.0002] # AVESTAN LETTER AAN
+10B06 ; [.4400.0020.0002] # AVESTAN LETTER AE
+10B07 ; [.4401.0020.0002] # AVESTAN LETTER AEE
+10B08 ; [.4402.0020.0002] # AVESTAN LETTER E
+10B09 ; [.4403.0020.0002] # AVESTAN LETTER EE
+10B0A ; [.4404.0020.0002] # AVESTAN LETTER O
+10B0B ; [.4405.0020.0002] # AVESTAN LETTER OO
+10B0C ; [.4406.0020.0002] # AVESTAN LETTER I
+10B0D ; [.4407.0020.0002] # AVESTAN LETTER II
+10B0E ; [.4408.0020.0002] # AVESTAN LETTER U
+10B0F ; [.4409.0020.0002] # AVESTAN LETTER UU
+10B10 ; [.440A.0020.0002] # AVESTAN LETTER KE
+10B11 ; [.440B.0020.0002] # AVESTAN LETTER XE
+10B12 ; [.440C.0020.0002] # AVESTAN LETTER XYE
+10B13 ; [.440D.0020.0002] # AVESTAN LETTER XVE
+10B14 ; [.440E.0020.0002] # AVESTAN LETTER GE
+10B15 ; [.440F.0020.0002] # AVESTAN LETTER GGE
+10B16 ; [.4410.0020.0002] # AVESTAN LETTER GHE
+10B17 ; [.4411.0020.0002] # AVESTAN LETTER CE
+10B18 ; [.4412.0020.0002] # AVESTAN LETTER JE
+10B19 ; [.4413.0020.0002] # AVESTAN LETTER TE
+10B1A ; [.4414.0020.0002] # AVESTAN LETTER THE
+10B1B ; [.4415.0020.0002] # AVESTAN LETTER DE
+10B1C ; [.4416.0020.0002] # AVESTAN LETTER DHE
+10B1D ; [.4417.0020.0002] # AVESTAN LETTER TTE
+10B1E ; [.4418.0020.0002] # AVESTAN LETTER PE
+10B1F ; [.4419.0020.0002] # AVESTAN LETTER FE
+10B20 ; [.441A.0020.0002] # AVESTAN LETTER BE
+10B21 ; [.441B.0020.0002] # AVESTAN LETTER BHE
+10B22 ; [.441C.0020.0002] # AVESTAN LETTER NGE
+10B23 ; [.441D.0020.0002] # AVESTAN LETTER NGYE
+10B24 ; [.441E.0020.0002] # AVESTAN LETTER NGVE
+10B25 ; [.441F.0020.0002] # AVESTAN LETTER NE
+10B26 ; [.4420.0020.0002] # AVESTAN LETTER NYE
+10B27 ; [.4421.0020.0002] # AVESTAN LETTER NNE
+10B28 ; [.4422.0020.0002] # AVESTAN LETTER ME
+10B29 ; [.4423.0020.0002] # AVESTAN LETTER HME
+10B2A ; [.4424.0020.0002] # AVESTAN LETTER YYE
+10B2B ; [.4425.0020.0002] # AVESTAN LETTER YE
+10B2C ; [.4426.0020.0002] # AVESTAN LETTER VE
+10B2D ; [.4427.0020.0002] # AVESTAN LETTER RE
+10B2E ; [.4427.0020.0004][.0000.0108.0004] # AVESTAN LETTER LE
+10B2F ; [.4428.0020.0002] # AVESTAN LETTER SE
+10B30 ; [.4429.0020.0002] # AVESTAN LETTER ZE
+10B31 ; [.442A.0020.0002] # AVESTAN LETTER SHE
+10B32 ; [.442B.0020.0002] # AVESTAN LETTER ZHE
+10B33 ; [.442C.0020.0002] # AVESTAN LETTER SHYE
+10B34 ; [.442D.0020.0002] # AVESTAN LETTER SSHE
+10B35 ; [.442E.0020.0002] # AVESTAN LETTER HE
+10860 ; [.442F.0020.0002] # PALMYRENE LETTER ALEPH
+10861 ; [.4430.0020.0002] # PALMYRENE LETTER BETH
+10862 ; [.4431.0020.0002] # PALMYRENE LETTER GIMEL
+10863 ; [.4432.0020.0002] # PALMYRENE LETTER DALETH
+10864 ; [.4433.0020.0002] # PALMYRENE LETTER HE
+10865 ; [.4434.0020.0002] # PALMYRENE LETTER WAW
+10866 ; [.4435.0020.0002] # PALMYRENE LETTER ZAYIN
+10867 ; [.4436.0020.0002] # PALMYRENE LETTER HETH
+10868 ; [.4437.0020.0002] # PALMYRENE LETTER TETH
+10869 ; [.4438.0020.0002] # PALMYRENE LETTER YODH
+1086A ; [.4439.0020.0002] # PALMYRENE LETTER KAPH
+1086B ; [.443A.0020.0002] # PALMYRENE LETTER LAMEDH
+1086C ; [.443B.0020.0002] # PALMYRENE LETTER MEM
+1086E ; [.443C.0020.0002] # PALMYRENE LETTER NUN
+1086D ; [.443C.0020.0019] # PALMYRENE LETTER FINAL NUN
+1086F ; [.443D.0020.0002] # PALMYRENE LETTER SAMEKH
+10870 ; [.443E.0020.0002] # PALMYRENE LETTER AYIN
+10871 ; [.443F.0020.0002] # PALMYRENE LETTER PE
+10872 ; [.4440.0020.0002] # PALMYRENE LETTER SADHE
+10873 ; [.4441.0020.0002] # PALMYRENE LETTER QOPH
+10874 ; [.4442.0020.0002] # PALMYRENE LETTER RESH
+10875 ; [.4443.0020.0002] # PALMYRENE LETTER SHIN
+10876 ; [.4444.0020.0002] # PALMYRENE LETTER TAW
+10881 ; [.4445.0020.0002] # NABATAEAN LETTER ALEPH
+10880 ; [.4445.0020.0019] # NABATAEAN LETTER FINAL ALEPH
+10883 ; [.4446.0020.0002] # NABATAEAN LETTER BETH
+10882 ; [.4446.0020.0019] # NABATAEAN LETTER FINAL BETH
+10884 ; [.4447.0020.0002] # NABATAEAN LETTER GIMEL
+10885 ; [.4448.0020.0002] # NABATAEAN LETTER DALETH
+10887 ; [.4449.0020.0002] # NABATAEAN LETTER HE
+10886 ; [.4449.0020.0019] # NABATAEAN LETTER FINAL HE
+10888 ; [.444A.0020.0002] # NABATAEAN LETTER WAW
+10889 ; [.444B.0020.0002] # NABATAEAN LETTER ZAYIN
+1088A ; [.444C.0020.0002] # NABATAEAN LETTER HETH
+1088B ; [.444D.0020.0002] # NABATAEAN LETTER TETH
+1088D ; [.444E.0020.0002] # NABATAEAN LETTER YODH
+1088C ; [.444E.0020.0019] # NABATAEAN LETTER FINAL YODH
+1088F ; [.444F.0020.0002] # NABATAEAN LETTER KAPH
+1088E ; [.444F.0020.0019] # NABATAEAN LETTER FINAL KAPH
+10891 ; [.4450.0020.0002] # NABATAEAN LETTER LAMEDH
+10890 ; [.4450.0020.0019] # NABATAEAN LETTER FINAL LAMEDH
+10893 ; [.4451.0020.0002] # NABATAEAN LETTER MEM
+10892 ; [.4451.0020.0019] # NABATAEAN LETTER FINAL MEM
+10895 ; [.4452.0020.0002] # NABATAEAN LETTER NUN
+10894 ; [.4452.0020.0019] # NABATAEAN LETTER FINAL NUN
+10896 ; [.4453.0020.0002] # NABATAEAN LETTER SAMEKH
+10897 ; [.4454.0020.0002] # NABATAEAN LETTER AYIN
+10898 ; [.4455.0020.0002] # NABATAEAN LETTER PE
+10899 ; [.4456.0020.0002] # NABATAEAN LETTER SADHE
+1089A ; [.4457.0020.0002] # NABATAEAN LETTER QOPH
+1089B ; [.4458.0020.0002] # NABATAEAN LETTER RESH
+1089D ; [.4459.0020.0002] # NABATAEAN LETTER SHIN
+1089C ; [.4459.0020.0019] # NABATAEAN LETTER FINAL SHIN
+1089E ; [.445A.0020.0002] # NABATAEAN LETTER TAW
+10840 ; [.445B.0020.0002] # IMPERIAL ARAMAIC LETTER ALEPH
+10841 ; [.445C.0020.0002] # IMPERIAL ARAMAIC LETTER BETH
+10842 ; [.445D.0020.0002] # IMPERIAL ARAMAIC LETTER GIMEL
+10843 ; [.445E.0020.0002] # IMPERIAL ARAMAIC LETTER DALETH
+10844 ; [.445F.0020.0002] # IMPERIAL ARAMAIC LETTER HE
+10845 ; [.4460.0020.0002] # IMPERIAL ARAMAIC LETTER WAW
+10846 ; [.4461.0020.0002] # IMPERIAL ARAMAIC LETTER ZAYIN
+10847 ; [.4462.0020.0002] # IMPERIAL ARAMAIC LETTER HETH
+10848 ; [.4463.0020.0002] # IMPERIAL ARAMAIC LETTER TETH
+10849 ; [.4464.0020.0002] # IMPERIAL ARAMAIC LETTER YODH
+1084A ; [.4465.0020.0002] # IMPERIAL ARAMAIC LETTER KAPH
+1084B ; [.4466.0020.0002] # IMPERIAL ARAMAIC LETTER LAMEDH
+1084C ; [.4467.0020.0002] # IMPERIAL ARAMAIC LETTER MEM
+1084D ; [.4468.0020.0002] # IMPERIAL ARAMAIC LETTER NUN
+1084E ; [.4469.0020.0002] # IMPERIAL ARAMAIC LETTER SAMEKH
+1084F ; [.446A.0020.0002] # IMPERIAL ARAMAIC LETTER AYIN
+10850 ; [.446B.0020.0002] # IMPERIAL ARAMAIC LETTER PE
+10851 ; [.446C.0020.0002] # IMPERIAL ARAMAIC LETTER SADHE
+10852 ; [.446D.0020.0002] # IMPERIAL ARAMAIC LETTER QOPH
+10853 ; [.446E.0020.0002] # IMPERIAL ARAMAIC LETTER RESH
+10854 ; [.446F.0020.0002] # IMPERIAL ARAMAIC LETTER SHIN
+10855 ; [.4470.0020.0002] # IMPERIAL ARAMAIC LETTER TAW
+10B40 ; [.4471.0020.0002] # INSCRIPTIONAL PARTHIAN LETTER ALEPH
+10B41 ; [.4472.0020.0002] # INSCRIPTIONAL PARTHIAN LETTER BETH
+10B42 ; [.4473.0020.0002] # INSCRIPTIONAL PARTHIAN LETTER GIMEL
+10B43 ; [.4474.0020.0002] # INSCRIPTIONAL PARTHIAN LETTER DALETH
+10B44 ; [.4475.0020.0002] # INSCRIPTIONAL PARTHIAN LETTER HE
+10B45 ; [.4476.0020.0002] # INSCRIPTIONAL PARTHIAN LETTER WAW
+10B46 ; [.4477.0020.0002] # INSCRIPTIONAL PARTHIAN LETTER ZAYIN
+10B47 ; [.4478.0020.0002] # INSCRIPTIONAL PARTHIAN LETTER HETH
+10B48 ; [.4479.0020.0002] # INSCRIPTIONAL PARTHIAN LETTER TETH
+10B49 ; [.447A.0020.0002] # INSCRIPTIONAL PARTHIAN LETTER YODH
+10B4A ; [.447B.0020.0002] # INSCRIPTIONAL PARTHIAN LETTER KAPH
+10B4B ; [.447C.0020.0002] # INSCRIPTIONAL PARTHIAN LETTER LAMEDH
+10B4C ; [.447D.0020.0002] # INSCRIPTIONAL PARTHIAN LETTER MEM
+10B4D ; [.447E.0020.0002] # INSCRIPTIONAL PARTHIAN LETTER NUN
+10B4E ; [.447F.0020.0002] # INSCRIPTIONAL PARTHIAN LETTER SAMEKH
+10B4F ; [.4480.0020.0002] # INSCRIPTIONAL PARTHIAN LETTER AYIN
+10B50 ; [.4481.0020.0002] # INSCRIPTIONAL PARTHIAN LETTER PE
+10B51 ; [.4482.0020.0002] # INSCRIPTIONAL PARTHIAN LETTER SADHE
+10B52 ; [.4483.0020.0002] # INSCRIPTIONAL PARTHIAN LETTER QOPH
+10B53 ; [.4484.0020.0002] # INSCRIPTIONAL PARTHIAN LETTER RESH
+10B54 ; [.4485.0020.0002] # INSCRIPTIONAL PARTHIAN LETTER SHIN
+10B55 ; [.4486.0020.0002] # INSCRIPTIONAL PARTHIAN LETTER TAW
+10B60 ; [.4487.0020.0002] # INSCRIPTIONAL PAHLAVI LETTER ALEPH
+10B61 ; [.4488.0020.0002] # INSCRIPTIONAL PAHLAVI LETTER BETH
+10B62 ; [.4489.0020.0002] # INSCRIPTIONAL PAHLAVI LETTER GIMEL
+10B63 ; [.448A.0020.0002] # INSCRIPTIONAL PAHLAVI LETTER DALETH
+10B64 ; [.448B.0020.0002] # INSCRIPTIONAL PAHLAVI LETTER HE
+10B65 ; [.448C.0020.0002] # INSCRIPTIONAL PAHLAVI LETTER WAW-AYIN-RESH
+10B66 ; [.448D.0020.0002] # INSCRIPTIONAL PAHLAVI LETTER ZAYIN
+10B67 ; [.448E.0020.0002] # INSCRIPTIONAL PAHLAVI LETTER HETH
+10B68 ; [.448F.0020.0002] # INSCRIPTIONAL PAHLAVI LETTER TETH
+10B69 ; [.4490.0020.0002] # INSCRIPTIONAL PAHLAVI LETTER YODH
+10B6A ; [.4491.0020.0002] # INSCRIPTIONAL PAHLAVI LETTER KAPH
+10B6B ; [.4492.0020.0002] # INSCRIPTIONAL PAHLAVI LETTER LAMEDH
+10B6C ; [.4493.0020.0002] # INSCRIPTIONAL PAHLAVI LETTER MEM-QOPH
+10B6D ; [.4494.0020.0002] # INSCRIPTIONAL PAHLAVI LETTER NUN
+10B6E ; [.4495.0020.0002] # INSCRIPTIONAL PAHLAVI LETTER SAMEKH
+10B6F ; [.4496.0020.0002] # INSCRIPTIONAL PAHLAVI LETTER PE
+10B70 ; [.4497.0020.0002] # INSCRIPTIONAL PAHLAVI LETTER SADHE
+10B71 ; [.4498.0020.0002] # INSCRIPTIONAL PAHLAVI LETTER SHIN
+10B72 ; [.4499.0020.0002] # INSCRIPTIONAL PAHLAVI LETTER TAW
+10B80 ; [.449A.0020.0002] # PSALTER PAHLAVI LETTER ALEPH
+10B81 ; [.449B.0020.0002] # PSALTER PAHLAVI LETTER BETH
+10B82 ; [.449C.0020.0002] # PSALTER PAHLAVI LETTER GIMEL
+10B83 ; [.449D.0020.0002] # PSALTER PAHLAVI LETTER DALETH
+10B84 ; [.449E.0020.0002] # PSALTER PAHLAVI LETTER HE
+10B85 ; [.449F.0020.0002] # PSALTER PAHLAVI LETTER WAW-AYIN-RESH
+10B86 ; [.44A0.0020.0002] # PSALTER PAHLAVI LETTER ZAYIN
+10B87 ; [.44A1.0020.0002] # PSALTER PAHLAVI LETTER HETH
+10B88 ; [.44A2.0020.0002] # PSALTER PAHLAVI LETTER YODH
+10B89 ; [.44A3.0020.0002] # PSALTER PAHLAVI LETTER KAPH
+10B8A ; [.44A4.0020.0002] # PSALTER PAHLAVI LETTER LAMEDH
+10B8B ; [.44A5.0020.0002] # PSALTER PAHLAVI LETTER MEM-QOPH
+10B8C ; [.44A6.0020.0002] # PSALTER PAHLAVI LETTER NUN
+10B8D ; [.44A7.0020.0002] # PSALTER PAHLAVI LETTER SAMEKH
+10B8E ; [.44A8.0020.0002] # PSALTER PAHLAVI LETTER PE
+10B8F ; [.44A9.0020.0002] # PSALTER PAHLAVI LETTER SADHE
+10B90 ; [.44AA.0020.0002] # PSALTER PAHLAVI LETTER SHIN
+10B91 ; [.44AB.0020.0002] # PSALTER PAHLAVI LETTER TAW
+10AC0 ; [.44AC.0020.0002] # MANICHAEAN LETTER ALEPH
+10AC1 ; [.44AD.0020.0002] # MANICHAEAN LETTER BETH
+10AC2 ; [.44AE.0020.0002] # MANICHAEAN LETTER BHETH
+10AC3 ; [.44AF.0020.0002] # MANICHAEAN LETTER GIMEL
+10AC4 ; [.44B0.0020.0002] # MANICHAEAN LETTER GHIMEL
+10AC5 ; [.44B1.0020.0002] # MANICHAEAN LETTER DALETH
+10AC6 ; [.44B2.0020.0002] # MANICHAEAN LETTER HE
+10AC7 ; [.44B3.0020.0002] # MANICHAEAN LETTER WAW
+10AC8 ; [.44B3.0020.0004][.0000.0109.0004] # MANICHAEAN SIGN UD
+10AC9 ; [.44B4.0020.0002] # MANICHAEAN LETTER ZAYIN
+10ACA ; [.44B5.0020.0002] # MANICHAEAN LETTER ZHAYIN
+10ACB ; [.44B6.0020.0002] # MANICHAEAN LETTER JAYIN
+10ACC ; [.44B7.0020.0002] # MANICHAEAN LETTER JHAYIN
+10ACD ; [.44B8.0020.0002] # MANICHAEAN LETTER HETH
+10ACE ; [.44B9.0020.0002] # MANICHAEAN LETTER TETH
+10ACF ; [.44BA.0020.0002] # MANICHAEAN LETTER YODH
+10AD0 ; [.44BB.0020.0002] # MANICHAEAN LETTER KAPH
+10AD1 ; [.44BC.0020.0002] # MANICHAEAN LETTER XAPH
+10AD2 ; [.44BD.0020.0002] # MANICHAEAN LETTER KHAPH
+10AD3 ; [.44BE.0020.0002] # MANICHAEAN LETTER LAMEDH
+10AD4 ; [.44BF.0020.0002] # MANICHAEAN LETTER DHAMEDH
+10AD5 ; [.44C0.0020.0002] # MANICHAEAN LETTER THAMEDH
+10AD6 ; [.44C1.0020.0002] # MANICHAEAN LETTER MEM
+10AD7 ; [.44C2.0020.0002] # MANICHAEAN LETTER NUN
+10AD8 ; [.44C3.0020.0002] # MANICHAEAN LETTER SAMEKH
+10AD9 ; [.44C4.0020.0002] # MANICHAEAN LETTER AYIN
+10ADA ; [.44C5.0020.0002] # MANICHAEAN LETTER AAYIN
+10ADB ; [.44C6.0020.0002] # MANICHAEAN LETTER PE
+10ADC ; [.44C7.0020.0002] # MANICHAEAN LETTER FE
+10ADD ; [.44C8.0020.0002] # MANICHAEAN LETTER SADHE
+10ADE ; [.44C9.0020.0002] # MANICHAEAN LETTER QOPH
+10ADF ; [.44CA.0020.0002] # MANICHAEAN LETTER XOPH
+10AE0 ; [.44CB.0020.0002] # MANICHAEAN LETTER QHOPH
+10AE1 ; [.44CC.0020.0002] # MANICHAEAN LETTER RESH
+10AE2 ; [.44CD.0020.0002] # MANICHAEAN LETTER SHIN
+10AE3 ; [.44CE.0020.0002] # MANICHAEAN LETTER SSHIN
+10AE4 ; [.44CF.0020.0002] # MANICHAEAN LETTER TAW
+10380 ; [.44D0.0020.0002] # UGARITIC LETTER ALPA
+10381 ; [.44D1.0020.0002] # UGARITIC LETTER BETA
+10382 ; [.44D2.0020.0002] # UGARITIC LETTER GAMLA
+10383 ; [.44D3.0020.0002] # UGARITIC LETTER KHA
+10384 ; [.44D4.0020.0002] # UGARITIC LETTER DELTA
+10385 ; [.44D5.0020.0002] # UGARITIC LETTER HO
+10386 ; [.44D6.0020.0002] # UGARITIC LETTER WO
+10387 ; [.44D7.0020.0002] # UGARITIC LETTER ZETA
+10388 ; [.44D8.0020.0002] # UGARITIC LETTER HOTA
+10389 ; [.44D9.0020.0002] # UGARITIC LETTER TET
+1038A ; [.44DA.0020.0002] # UGARITIC LETTER YOD
+1038B ; [.44DB.0020.0002] # UGARITIC LETTER KAF
+1038C ; [.44DC.0020.0002] # UGARITIC LETTER SHIN
+1038D ; [.44DD.0020.0002] # UGARITIC LETTER LAMDA
+1038E ; [.44DE.0020.0002] # UGARITIC LETTER MEM
+1038F ; [.44DF.0020.0002] # UGARITIC LETTER DHAL
+10390 ; [.44E0.0020.0002] # UGARITIC LETTER NUN
+10391 ; [.44E1.0020.0002] # UGARITIC LETTER ZU
+10392 ; [.44E2.0020.0002] # UGARITIC LETTER SAMKA
+10393 ; [.44E3.0020.0002] # UGARITIC LETTER AIN
+10394 ; [.44E4.0020.0002] # UGARITIC LETTER PU
+10395 ; [.44E5.0020.0002] # UGARITIC LETTER SADE
+10396 ; [.44E6.0020.0002] # UGARITIC LETTER QOPA
+10397 ; [.44E7.0020.0002] # UGARITIC LETTER RASHA
+10398 ; [.44E8.0020.0002] # UGARITIC LETTER THANNA
+10399 ; [.44E9.0020.0002] # UGARITIC LETTER GHAIN
+1039A ; [.44EA.0020.0002] # UGARITIC LETTER TO
+1039B ; [.44EB.0020.0002] # UGARITIC LETTER I
+1039C ; [.44EC.0020.0002] # UGARITIC LETTER U
+1039D ; [.44ED.0020.0002] # UGARITIC LETTER SSU
+103A0 ; [.44EE.0020.0002] # OLD PERSIAN SIGN A
+103A1 ; [.44EF.0020.0002] # OLD PERSIAN SIGN I
+103A2 ; [.44F0.0020.0002] # OLD PERSIAN SIGN U
+103A3 ; [.44F1.0020.0002] # OLD PERSIAN SIGN KA
+103A4 ; [.44F2.0020.0002] # OLD PERSIAN SIGN KU
+103A5 ; [.44F3.0020.0002] # OLD PERSIAN SIGN GA
+103A6 ; [.44F4.0020.0002] # OLD PERSIAN SIGN GU
+103A7 ; [.44F5.0020.0002] # OLD PERSIAN SIGN XA
+103A8 ; [.44F6.0020.0002] # OLD PERSIAN SIGN CA
+103A9 ; [.44F7.0020.0002] # OLD PERSIAN SIGN JA
+103AA ; [.44F8.0020.0002] # OLD PERSIAN SIGN JI
+103AB ; [.44F9.0020.0002] # OLD PERSIAN SIGN TA
+103AC ; [.44FA.0020.0002] # OLD PERSIAN SIGN TU
+103AD ; [.44FB.0020.0002] # OLD PERSIAN SIGN DA
+103AE ; [.44FC.0020.0002] # OLD PERSIAN SIGN DI
+103AF ; [.44FD.0020.0002] # OLD PERSIAN SIGN DU
+103B0 ; [.44FE.0020.0002] # OLD PERSIAN SIGN THA
+103B1 ; [.44FF.0020.0002] # OLD PERSIAN SIGN PA
+103B2 ; [.4500.0020.0002] # OLD PERSIAN SIGN BA
+103B3 ; [.4501.0020.0002] # OLD PERSIAN SIGN FA
+103B4 ; [.4502.0020.0002] # OLD PERSIAN SIGN NA
+103B5 ; [.4503.0020.0002] # OLD PERSIAN SIGN NU
+103B6 ; [.4504.0020.0002] # OLD PERSIAN SIGN MA
+103B7 ; [.4505.0020.0002] # OLD PERSIAN SIGN MI
+103B8 ; [.4506.0020.0002] # OLD PERSIAN SIGN MU
+103B9 ; [.4507.0020.0002] # OLD PERSIAN SIGN YA
+103BA ; [.4508.0020.0002] # OLD PERSIAN SIGN VA
+103BB ; [.4509.0020.0002] # OLD PERSIAN SIGN VI
+103BC ; [.450A.0020.0002] # OLD PERSIAN SIGN RA
+103BD ; [.450B.0020.0002] # OLD PERSIAN SIGN RU
+103BE ; [.450C.0020.0002] # OLD PERSIAN SIGN LA
+103BF ; [.450D.0020.0002] # OLD PERSIAN SIGN SA
+103C0 ; [.450E.0020.0002] # OLD PERSIAN SIGN ZA
+103C1 ; [.450F.0020.0002] # OLD PERSIAN SIGN SHA
+103C2 ; [.4510.0020.0002] # OLD PERSIAN SIGN SSA
+103C3 ; [.4511.0020.0002] # OLD PERSIAN SIGN HA
+103C8 ; [.4512.0020.0002] # OLD PERSIAN SIGN AURAMAZDAA
+103C9 ; [.4513.0020.0002] # OLD PERSIAN SIGN AURAMAZDAA-2
+103CA ; [.4514.0020.0002] # OLD PERSIAN SIGN AURAMAZDAAHA
+103CB ; [.4515.0020.0002] # OLD PERSIAN SIGN XSHAAYATHIYA
+103CC ; [.4516.0020.0002] # OLD PERSIAN SIGN DAHYAAUSH
+103CD ; [.4517.0020.0002] # OLD PERSIAN SIGN DAHYAAUSH-2
+103CE ; [.4518.0020.0002] # OLD PERSIAN SIGN BAGA
+103CF ; [.4519.0020.0002] # OLD PERSIAN SIGN BUUMISH
+12000 ; [.451A.0020.0002] # CUNEIFORM SIGN A
+12001 ; [.451B.0020.0002] # CUNEIFORM SIGN A TIMES A
+12002 ; [.451C.0020.0002] # CUNEIFORM SIGN A TIMES BAD
+12003 ; [.451D.0020.0002] # CUNEIFORM SIGN A TIMES GAN2 TENU
+12004 ; [.451E.0020.0002] # CUNEIFORM SIGN A TIMES HA
+12005 ; [.451F.0020.0002] # CUNEIFORM SIGN A TIMES IGI
+12006 ; [.4520.0020.0002] # CUNEIFORM SIGN A TIMES LAGAR GUNU
+12007 ; [.4521.0020.0002] # CUNEIFORM SIGN A TIMES MUSH
+12008 ; [.4522.0020.0002] # CUNEIFORM SIGN A TIMES SAG
+12009 ; [.4523.0020.0002] # CUNEIFORM SIGN A2
+1200A ; [.4524.0020.0002] # CUNEIFORM SIGN AB
+1200B ; [.4525.0020.0002] # CUNEIFORM SIGN AB TIMES ASH2
+1200C ; [.4526.0020.0002] # CUNEIFORM SIGN AB TIMES DUN3 GUNU
+1200D ; [.4527.0020.0002] # CUNEIFORM SIGN AB TIMES GAL
+1200E ; [.4528.0020.0002] # CUNEIFORM SIGN AB TIMES GAN2 TENU
+1200F ; [.4529.0020.0002] # CUNEIFORM SIGN AB TIMES HA
+12010 ; [.452A.0020.0002] # CUNEIFORM SIGN AB TIMES IGI GUNU
+12011 ; [.452B.0020.0002] # CUNEIFORM SIGN AB TIMES IMIN
+12012 ; [.452C.0020.0002] # CUNEIFORM SIGN AB TIMES LAGAB
+12013 ; [.452D.0020.0002] # CUNEIFORM SIGN AB TIMES SHESH
+12014 ; [.452E.0020.0002] # CUNEIFORM SIGN AB TIMES U PLUS U PLUS U
+12015 ; [.452F.0020.0002] # CUNEIFORM SIGN AB GUNU
+12016 ; [.4530.0020.0002] # CUNEIFORM SIGN AB2
+12017 ; [.4531.0020.0002] # CUNEIFORM SIGN AB2 TIMES BALAG
+12018 ; [.4532.0020.0002] # CUNEIFORM SIGN AB2 TIMES GAN2 TENU
+12019 ; [.4533.0020.0002] # CUNEIFORM SIGN AB2 TIMES ME PLUS EN
+1201A ; [.4534.0020.0002] # CUNEIFORM SIGN AB2 TIMES SHA3
+1201B ; [.4535.0020.0002] # CUNEIFORM SIGN AB2 TIMES TAK4
+1201C ; [.4536.0020.0002] # CUNEIFORM SIGN AD
+1201D ; [.4537.0020.0002] # CUNEIFORM SIGN AK
+1201E ; [.4538.0020.0002] # CUNEIFORM SIGN AK TIMES ERIN2
+1201F ; [.4539.0020.0002] # CUNEIFORM SIGN AK TIMES SHITA PLUS GISH
+12020 ; [.453A.0020.0002] # CUNEIFORM SIGN AL
+12021 ; [.453B.0020.0002] # CUNEIFORM SIGN AL TIMES AL
+12022 ; [.453C.0020.0002] # CUNEIFORM SIGN AL TIMES DIM2
+12023 ; [.453D.0020.0002] # CUNEIFORM SIGN AL TIMES GISH
+12024 ; [.453E.0020.0002] # CUNEIFORM SIGN AL TIMES HA
+12025 ; [.453F.0020.0002] # CUNEIFORM SIGN AL TIMES KAD3
+12026 ; [.4540.0020.0002] # CUNEIFORM SIGN AL TIMES KI
+12027 ; [.4541.0020.0002] # CUNEIFORM SIGN AL TIMES SHE
+12028 ; [.4542.0020.0002] # CUNEIFORM SIGN AL TIMES USH
+12029 ; [.4543.0020.0002] # CUNEIFORM SIGN ALAN
+1202A ; [.4544.0020.0002] # CUNEIFORM SIGN ALEPH
+1202B ; [.4545.0020.0002] # CUNEIFORM SIGN AMAR
+1202C ; [.4546.0020.0002] # CUNEIFORM SIGN AMAR TIMES SHE
+1202D ; [.4547.0020.0002] # CUNEIFORM SIGN AN
+1202E ; [.4548.0020.0002] # CUNEIFORM SIGN AN OVER AN
+1202F ; [.4549.0020.0002] # CUNEIFORM SIGN AN THREE TIMES
+12030 ; [.454A.0020.0002] # CUNEIFORM SIGN AN PLUS NAGA OPPOSING AN PLUS NAGA
+12031 ; [.454B.0020.0002] # CUNEIFORM SIGN AN PLUS NAGA SQUARED
+12032 ; [.454C.0020.0002] # CUNEIFORM SIGN ANSHE
+12033 ; [.454D.0020.0002] # CUNEIFORM SIGN APIN
+12034 ; [.454E.0020.0002] # CUNEIFORM SIGN ARAD
+12035 ; [.454F.0020.0002] # CUNEIFORM SIGN ARAD TIMES KUR
+12036 ; [.4550.0020.0002] # CUNEIFORM SIGN ARKAB
+12037 ; [.4551.0020.0002] # CUNEIFORM SIGN ASAL2
+12038 ; [.4552.0020.0002] # CUNEIFORM SIGN ASH
+12039 ; [.4553.0020.0002] # CUNEIFORM SIGN ASH ZIDA TENU
+1203A ; [.4554.0020.0002] # CUNEIFORM SIGN ASH KABA TENU
+1203B ; [.4555.0020.0002] # CUNEIFORM SIGN ASH OVER ASH TUG2 OVER TUG2 TUG2 OVER TUG2 PAP
+1203C ; [.4556.0020.0002] # CUNEIFORM SIGN ASH OVER ASH OVER ASH
+1203D ; [.4557.0020.0002] # CUNEIFORM SIGN ASH OVER ASH OVER ASH CROSSING ASH OVER ASH OVER ASH
+1203E ; [.4558.0020.0002] # CUNEIFORM SIGN ASH2
+1203F ; [.4559.0020.0002] # CUNEIFORM SIGN ASHGAB
+12040 ; [.455A.0020.0002] # CUNEIFORM SIGN BA
+12041 ; [.455B.0020.0002] # CUNEIFORM SIGN BAD
+12042 ; [.455C.0020.0002] # CUNEIFORM SIGN BAG3
+12043 ; [.455D.0020.0002] # CUNEIFORM SIGN BAHAR2
+12044 ; [.455E.0020.0002] # CUNEIFORM SIGN BAL
+12045 ; [.455F.0020.0002] # CUNEIFORM SIGN BAL OVER BAL
+12046 ; [.4560.0020.0002] # CUNEIFORM SIGN BALAG
+12047 ; [.4561.0020.0002] # CUNEIFORM SIGN BAR
+12048 ; [.4562.0020.0002] # CUNEIFORM SIGN BARA2
+12049 ; [.4563.0020.0002] # CUNEIFORM SIGN BI
+1204A ; [.4564.0020.0002] # CUNEIFORM SIGN BI TIMES A
+1204B ; [.4565.0020.0002] # CUNEIFORM SIGN BI TIMES GAR
+1204C ; [.4566.0020.0002] # CUNEIFORM SIGN BI TIMES IGI GUNU
+1204D ; [.4567.0020.0002] # CUNEIFORM SIGN BU
+1204E ; [.4568.0020.0002] # CUNEIFORM SIGN BU OVER BU AB
+1204F ; [.4569.0020.0002] # CUNEIFORM SIGN BU OVER BU UN
+12050 ; [.456A.0020.0002] # CUNEIFORM SIGN BU CROSSING BU
+12051 ; [.456B.0020.0002] # CUNEIFORM SIGN BULUG
+12052 ; [.456C.0020.0002] # CUNEIFORM SIGN BULUG OVER BULUG
+12053 ; [.456D.0020.0002] # CUNEIFORM SIGN BUR
+12054 ; [.456E.0020.0002] # CUNEIFORM SIGN BUR2
+12055 ; [.456F.0020.0002] # CUNEIFORM SIGN DA
+12056 ; [.4570.0020.0002] # CUNEIFORM SIGN DAG
+12057 ; [.4571.0020.0002] # CUNEIFORM SIGN DAG KISIM5 TIMES A PLUS MASH
+12058 ; [.4572.0020.0002] # CUNEIFORM SIGN DAG KISIM5 TIMES AMAR
+12059 ; [.4573.0020.0002] # CUNEIFORM SIGN DAG KISIM5 TIMES BALAG
+1205A ; [.4574.0020.0002] # CUNEIFORM SIGN DAG KISIM5 TIMES BI
+1205B ; [.4575.0020.0002] # CUNEIFORM SIGN DAG KISIM5 TIMES GA
+1205C ; [.4576.0020.0002] # CUNEIFORM SIGN DAG KISIM5 TIMES GA PLUS MASH
+1205D ; [.4577.0020.0002] # CUNEIFORM SIGN DAG KISIM5 TIMES GI
+1205E ; [.4578.0020.0002] # CUNEIFORM SIGN DAG KISIM5 TIMES GIR2
+1205F ; [.4579.0020.0002] # CUNEIFORM SIGN DAG KISIM5 TIMES GUD
+12060 ; [.457A.0020.0002] # CUNEIFORM SIGN DAG KISIM5 TIMES HA
+12061 ; [.457B.0020.0002] # CUNEIFORM SIGN DAG KISIM5 TIMES IR
+12062 ; [.457C.0020.0002] # CUNEIFORM SIGN DAG KISIM5 TIMES IR PLUS LU
+12063 ; [.457D.0020.0002] # CUNEIFORM SIGN DAG KISIM5 TIMES KAK
+12064 ; [.457E.0020.0002] # CUNEIFORM SIGN DAG KISIM5 TIMES LA
+12065 ; [.457F.0020.0002] # CUNEIFORM SIGN DAG KISIM5 TIMES LU
+12066 ; [.4580.0020.0002] # CUNEIFORM SIGN DAG KISIM5 TIMES LU PLUS MASH2
+12067 ; [.4581.0020.0002] # CUNEIFORM SIGN DAG KISIM5 TIMES LUM
+12068 ; [.4582.0020.0002] # CUNEIFORM SIGN DAG KISIM5 TIMES NE
+12069 ; [.4583.0020.0002] # CUNEIFORM SIGN DAG KISIM5 TIMES PAP PLUS PAP
+1206A ; [.4584.0020.0002] # CUNEIFORM SIGN DAG KISIM5 TIMES SI
+1206B ; [.4585.0020.0002] # CUNEIFORM SIGN DAG KISIM5 TIMES TAK4
+1206C ; [.4586.0020.0002] # CUNEIFORM SIGN DAG KISIM5 TIMES U2 PLUS GIR2
+1206D ; [.4587.0020.0002] # CUNEIFORM SIGN DAG KISIM5 TIMES USH
+1206E ; [.4588.0020.0002] # CUNEIFORM SIGN DAM
+1206F ; [.4589.0020.0002] # CUNEIFORM SIGN DAR
+12070 ; [.458A.0020.0002] # CUNEIFORM SIGN DARA3
+12071 ; [.458B.0020.0002] # CUNEIFORM SIGN DARA4
+12072 ; [.458C.0020.0002] # CUNEIFORM SIGN DI
+12073 ; [.458D.0020.0002] # CUNEIFORM SIGN DIB
+12074 ; [.458E.0020.0002] # CUNEIFORM SIGN DIM
+12075 ; [.458F.0020.0002] # CUNEIFORM SIGN DIM TIMES SHE
+12076 ; [.4590.0020.0002] # CUNEIFORM SIGN DIM2
+12077 ; [.4591.0020.0002] # CUNEIFORM SIGN DIN
+12078 ; [.4592.0020.0002] # CUNEIFORM SIGN DIN KASKAL U GUNU DISH
+12079 ; [.4593.0020.0002] # CUNEIFORM SIGN DISH
+1207A ; [.4594.0020.0002] # CUNEIFORM SIGN DU
+1207B ; [.4595.0020.0002] # CUNEIFORM SIGN DU OVER DU
+1207C ; [.4596.0020.0002] # CUNEIFORM SIGN DU GUNU
+1207D ; [.4597.0020.0002] # CUNEIFORM SIGN DU SHESHIG
+1207E ; [.4598.0020.0002] # CUNEIFORM SIGN DUB
+1207F ; [.4599.0020.0002] # CUNEIFORM SIGN DUB TIMES ESH2
+12080 ; [.459A.0020.0002] # CUNEIFORM SIGN DUB2
+12081 ; [.459B.0020.0002] # CUNEIFORM SIGN DUG
+12082 ; [.459C.0020.0002] # CUNEIFORM SIGN DUGUD
+12083 ; [.459D.0020.0002] # CUNEIFORM SIGN DUH
+12084 ; [.459E.0020.0002] # CUNEIFORM SIGN DUN
+12085 ; [.459F.0020.0002] # CUNEIFORM SIGN DUN3
+12086 ; [.45A0.0020.0002] # CUNEIFORM SIGN DUN3 GUNU
+12087 ; [.45A1.0020.0002] # CUNEIFORM SIGN DUN3 GUNU GUNU
+12088 ; [.45A2.0020.0002] # CUNEIFORM SIGN DUN4
+12089 ; [.45A3.0020.0002] # CUNEIFORM SIGN DUR2
+1208A ; [.45A4.0020.0002] # CUNEIFORM SIGN E
+1208B ; [.45A5.0020.0002] # CUNEIFORM SIGN E TIMES PAP
+1208C ; [.45A6.0020.0002] # CUNEIFORM SIGN E OVER E NUN OVER NUN
+1208D ; [.45A7.0020.0002] # CUNEIFORM SIGN E2
+1208E ; [.45A8.0020.0002] # CUNEIFORM SIGN E2 TIMES A PLUS HA PLUS DA
+1208F ; [.45A9.0020.0002] # CUNEIFORM SIGN E2 TIMES GAR
+12090 ; [.45AA.0020.0002] # CUNEIFORM SIGN E2 TIMES MI
+12091 ; [.45AB.0020.0002] # CUNEIFORM SIGN E2 TIMES SAL
+12092 ; [.45AC.0020.0002] # CUNEIFORM SIGN E2 TIMES SHE
+12093 ; [.45AD.0020.0002] # CUNEIFORM SIGN E2 TIMES U
+12094 ; [.45AE.0020.0002] # CUNEIFORM SIGN EDIN
+12095 ; [.45AF.0020.0002] # CUNEIFORM SIGN EGIR
+12096 ; [.45B0.0020.0002] # CUNEIFORM SIGN EL
+12097 ; [.45B1.0020.0002] # CUNEIFORM SIGN EN
+12098 ; [.45B2.0020.0002] # CUNEIFORM SIGN EN TIMES GAN2
+12099 ; [.45B3.0020.0002] # CUNEIFORM SIGN EN TIMES GAN2 TENU
+1209A ; [.45B4.0020.0002] # CUNEIFORM SIGN EN TIMES ME
+1209B ; [.45B5.0020.0002] # CUNEIFORM SIGN EN CROSSING EN
+1209C ; [.45B6.0020.0002] # CUNEIFORM SIGN EN OPPOSING EN
+1209D ; [.45B7.0020.0002] # CUNEIFORM SIGN EN SQUARED
+1209E ; [.45B8.0020.0002] # CUNEIFORM SIGN EREN
+1209F ; [.45B9.0020.0002] # CUNEIFORM SIGN ERIN2
+120A0 ; [.45BA.0020.0002] # CUNEIFORM SIGN ESH2
+120A1 ; [.45BB.0020.0002] # CUNEIFORM SIGN EZEN
+120A2 ; [.45BC.0020.0002] # CUNEIFORM SIGN EZEN TIMES A
+120A3 ; [.45BD.0020.0002] # CUNEIFORM SIGN EZEN TIMES A PLUS LAL
+120A4 ; [.45BE.0020.0002] # CUNEIFORM SIGN EZEN TIMES A PLUS LAL TIMES LAL
+120A5 ; [.45BF.0020.0002] # CUNEIFORM SIGN EZEN TIMES AN
+120A6 ; [.45C0.0020.0002] # CUNEIFORM SIGN EZEN TIMES BAD
+120A7 ; [.45C1.0020.0002] # CUNEIFORM SIGN EZEN TIMES DUN3 GUNU
+120A8 ; [.45C2.0020.0002] # CUNEIFORM SIGN EZEN TIMES DUN3 GUNU GUNU
+120A9 ; [.45C3.0020.0002] # CUNEIFORM SIGN EZEN TIMES HA
+120AA ; [.45C4.0020.0002] # CUNEIFORM SIGN EZEN TIMES HA GUNU
+120AB ; [.45C5.0020.0002] # CUNEIFORM SIGN EZEN TIMES IGI GUNU
+120AC ; [.45C6.0020.0002] # CUNEIFORM SIGN EZEN TIMES KASKAL
+120AD ; [.45C7.0020.0002] # CUNEIFORM SIGN EZEN TIMES KASKAL SQUARED
+120AE ; [.45C8.0020.0002] # CUNEIFORM SIGN EZEN TIMES KU3
+120AF ; [.45C9.0020.0002] # CUNEIFORM SIGN EZEN TIMES LA
+120B0 ; [.45CA.0020.0002] # CUNEIFORM SIGN EZEN TIMES LAL TIMES LAL
+120B1 ; [.45CB.0020.0002] # CUNEIFORM SIGN EZEN TIMES LI
+120B2 ; [.45CC.0020.0002] # CUNEIFORM SIGN EZEN TIMES LU
+120B3 ; [.45CD.0020.0002] # CUNEIFORM SIGN EZEN TIMES U2
+120B4 ; [.45CE.0020.0002] # CUNEIFORM SIGN EZEN TIMES UD
+120B5 ; [.45CF.0020.0002] # CUNEIFORM SIGN GA
+120B6 ; [.45D0.0020.0002] # CUNEIFORM SIGN GA GUNU
+120B7 ; [.45D1.0020.0002] # CUNEIFORM SIGN GA2
+120B8 ; [.45D2.0020.0002] # CUNEIFORM SIGN GA2 TIMES A PLUS DA PLUS HA
+120B9 ; [.45D3.0020.0002] # CUNEIFORM SIGN GA2 TIMES A PLUS HA
+120BA ; [.45D4.0020.0002] # CUNEIFORM SIGN GA2 TIMES A PLUS IGI
+120BB ; [.45D5.0020.0002] # CUNEIFORM SIGN GA2 TIMES AB2 TENU PLUS TAB
+120BC ; [.45D6.0020.0002] # CUNEIFORM SIGN GA2 TIMES AN
+120BD ; [.45D7.0020.0002] # CUNEIFORM SIGN GA2 TIMES ASH
+120BE ; [.45D8.0020.0002] # CUNEIFORM SIGN GA2 TIMES ASH2 PLUS GAL
+120BF ; [.45D9.0020.0002] # CUNEIFORM SIGN GA2 TIMES BAD
+120C0 ; [.45DA.0020.0002] # CUNEIFORM SIGN GA2 TIMES BAR PLUS RA
+120C1 ; [.45DB.0020.0002] # CUNEIFORM SIGN GA2 TIMES BUR
+120C2 ; [.45DC.0020.0002] # CUNEIFORM SIGN GA2 TIMES BUR PLUS RA
+120C3 ; [.45DD.0020.0002] # CUNEIFORM SIGN GA2 TIMES DA
+120C4 ; [.45DE.0020.0002] # CUNEIFORM SIGN GA2 TIMES DI
+120C5 ; [.45DF.0020.0002] # CUNEIFORM SIGN GA2 TIMES DIM TIMES SHE
+120C6 ; [.45E0.0020.0002] # CUNEIFORM SIGN GA2 TIMES DUB
+120C7 ; [.45E1.0020.0002] # CUNEIFORM SIGN GA2 TIMES EL
+120C8 ; [.45E2.0020.0002] # CUNEIFORM SIGN GA2 TIMES EL PLUS LA
+120C9 ; [.45E3.0020.0002] # CUNEIFORM SIGN GA2 TIMES EN
+120CA ; [.45E4.0020.0002] # CUNEIFORM SIGN GA2 TIMES EN TIMES GAN2 TENU
+120CB ; [.45E5.0020.0002] # CUNEIFORM SIGN GA2 TIMES GAN2 TENU
+120CC ; [.45E6.0020.0002] # CUNEIFORM SIGN GA2 TIMES GAR
+120CD ; [.45E7.0020.0002] # CUNEIFORM SIGN GA2 TIMES GI
+120CE ; [.45E8.0020.0002] # CUNEIFORM SIGN GA2 TIMES GI4
+120CF ; [.45E9.0020.0002] # CUNEIFORM SIGN GA2 TIMES GI4 PLUS A
+120D0 ; [.45EA.0020.0002] # CUNEIFORM SIGN GA2 TIMES GIR2 PLUS SU
+120D1 ; [.45EB.0020.0002] # CUNEIFORM SIGN GA2 TIMES HA PLUS LU PLUS ESH2
+120D2 ; [.45EC.0020.0002] # CUNEIFORM SIGN GA2 TIMES HAL
+120D3 ; [.45ED.0020.0002] # CUNEIFORM SIGN GA2 TIMES HAL PLUS LA
+120D4 ; [.45EE.0020.0002] # CUNEIFORM SIGN GA2 TIMES HI PLUS LI
+120D5 ; [.45EF.0020.0002] # CUNEIFORM SIGN GA2 TIMES HUB2
+120D6 ; [.45F0.0020.0002] # CUNEIFORM SIGN GA2 TIMES IGI GUNU
+120D7 ; [.45F1.0020.0002] # CUNEIFORM SIGN GA2 TIMES ISH PLUS HU PLUS ASH
+120D8 ; [.45F2.0020.0002] # CUNEIFORM SIGN GA2 TIMES KAK
+120D9 ; [.45F3.0020.0002] # CUNEIFORM SIGN GA2 TIMES KASKAL
+120DA ; [.45F4.0020.0002] # CUNEIFORM SIGN GA2 TIMES KID
+120DB ; [.45F5.0020.0002] # CUNEIFORM SIGN GA2 TIMES KID PLUS LAL
+120DC ; [.45F6.0020.0002] # CUNEIFORM SIGN GA2 TIMES KU3 PLUS AN
+120DD ; [.45F7.0020.0002] # CUNEIFORM SIGN GA2 TIMES LA
+120DE ; [.45F8.0020.0002] # CUNEIFORM SIGN GA2 TIMES ME PLUS EN
+120DF ; [.45F9.0020.0002] # CUNEIFORM SIGN GA2 TIMES MI
+120E0 ; [.45FA.0020.0002] # CUNEIFORM SIGN GA2 TIMES NUN
+120E1 ; [.45FB.0020.0002] # CUNEIFORM SIGN GA2 TIMES NUN OVER NUN
+120E2 ; [.45FC.0020.0002] # CUNEIFORM SIGN GA2 TIMES PA
+120E3 ; [.45FD.0020.0002] # CUNEIFORM SIGN GA2 TIMES SAL
+120E4 ; [.45FE.0020.0002] # CUNEIFORM SIGN GA2 TIMES SAR
+120E5 ; [.45FF.0020.0002] # CUNEIFORM SIGN GA2 TIMES SHE
+120E6 ; [.4600.0020.0002] # CUNEIFORM SIGN GA2 TIMES SHE PLUS TUR
+120E7 ; [.4601.0020.0002] # CUNEIFORM SIGN GA2 TIMES SHID
+120E8 ; [.4602.0020.0002] # CUNEIFORM SIGN GA2 TIMES SUM
+120E9 ; [.4603.0020.0002] # CUNEIFORM SIGN GA2 TIMES TAK4
+120EA ; [.4604.0020.0002] # CUNEIFORM SIGN GA2 TIMES U
+120EB ; [.4605.0020.0002] # CUNEIFORM SIGN GA2 TIMES UD
+120EC ; [.4606.0020.0002] # CUNEIFORM SIGN GA2 TIMES UD PLUS DU
+120ED ; [.4607.0020.0002] # CUNEIFORM SIGN GA2 OVER GA2
+120EE ; [.4608.0020.0002] # CUNEIFORM SIGN GABA
+120EF ; [.4609.0020.0002] # CUNEIFORM SIGN GABA CROSSING GABA
+120F0 ; [.460A.0020.0002] # CUNEIFORM SIGN GAD
+120F1 ; [.460B.0020.0002] # CUNEIFORM SIGN GAD OVER GAD GAR OVER GAR
+120F2 ; [.460C.0020.0002] # CUNEIFORM SIGN GAL
+120F3 ; [.460D.0020.0002] # CUNEIFORM SIGN GAL GAD OVER GAD GAR OVER GAR
+120F4 ; [.460E.0020.0002] # CUNEIFORM SIGN GALAM
+120F5 ; [.460F.0020.0002] # CUNEIFORM SIGN GAM
+120F6 ; [.4610.0020.0002] # CUNEIFORM SIGN GAN
+120F7 ; [.4611.0020.0002] # CUNEIFORM SIGN GAN2
+120F8 ; [.4612.0020.0002] # CUNEIFORM SIGN GAN2 TENU
+120F9 ; [.4613.0020.0002] # CUNEIFORM SIGN GAN2 OVER GAN2
+120FA ; [.4614.0020.0002] # CUNEIFORM SIGN GAN2 CROSSING GAN2
+120FB ; [.4615.0020.0002] # CUNEIFORM SIGN GAR
+120FC ; [.4616.0020.0002] # CUNEIFORM SIGN GAR3
+120FD ; [.4617.0020.0002] # CUNEIFORM SIGN GASHAN
+120FE ; [.4618.0020.0002] # CUNEIFORM SIGN GESHTIN
+120FF ; [.4619.0020.0002] # CUNEIFORM SIGN GESHTIN TIMES KUR
+12100 ; [.461A.0020.0002] # CUNEIFORM SIGN GI
+12101 ; [.461B.0020.0002] # CUNEIFORM SIGN GI TIMES E
+12102 ; [.461C.0020.0002] # CUNEIFORM SIGN GI TIMES U
+12103 ; [.461D.0020.0002] # CUNEIFORM SIGN GI CROSSING GI
+12104 ; [.461E.0020.0002] # CUNEIFORM SIGN GI4
+12105 ; [.461F.0020.0002] # CUNEIFORM SIGN GI4 OVER GI4
+12106 ; [.4620.0020.0002] # CUNEIFORM SIGN GI4 CROSSING GI4
+12107 ; [.4621.0020.0002] # CUNEIFORM SIGN GIDIM
+12108 ; [.4622.0020.0002] # CUNEIFORM SIGN GIR2
+12109 ; [.4623.0020.0002] # CUNEIFORM SIGN GIR2 GUNU
+1210A ; [.4624.0020.0002] # CUNEIFORM SIGN GIR3
+1210B ; [.4625.0020.0002] # CUNEIFORM SIGN GIR3 TIMES A PLUS IGI
+1210C ; [.4626.0020.0002] # CUNEIFORM SIGN GIR3 TIMES GAN2 TENU
+1210D ; [.4627.0020.0002] # CUNEIFORM SIGN GIR3 TIMES IGI
+1210E ; [.4628.0020.0002] # CUNEIFORM SIGN GIR3 TIMES LU PLUS IGI
+1210F ; [.4629.0020.0002] # CUNEIFORM SIGN GIR3 TIMES PA
+12110 ; [.462A.0020.0002] # CUNEIFORM SIGN GISAL
+12111 ; [.462B.0020.0002] # CUNEIFORM SIGN GISH
+12112 ; [.462C.0020.0002] # CUNEIFORM SIGN GISH CROSSING GISH
+12113 ; [.462D.0020.0002] # CUNEIFORM SIGN GISH TIMES BAD
+12114 ; [.462E.0020.0002] # CUNEIFORM SIGN GISH TIMES TAK4
+12115 ; [.462F.0020.0002] # CUNEIFORM SIGN GISH TENU
+12116 ; [.4630.0020.0002] # CUNEIFORM SIGN GU
+12117 ; [.4631.0020.0002] # CUNEIFORM SIGN GU CROSSING GU
+12118 ; [.4632.0020.0002] # CUNEIFORM SIGN GU2
+12119 ; [.4633.0020.0002] # CUNEIFORM SIGN GU2 TIMES KAK
+1211A ; [.4634.0020.0002] # CUNEIFORM SIGN GU2 TIMES KAK TIMES IGI GUNU
+1211B ; [.4635.0020.0002] # CUNEIFORM SIGN GU2 TIMES NUN
+1211C ; [.4636.0020.0002] # CUNEIFORM SIGN GU2 TIMES SAL PLUS TUG2
+1211D ; [.4637.0020.0002] # CUNEIFORM SIGN GU2 GUNU
+1211E ; [.4638.0020.0002] # CUNEIFORM SIGN GUD
+1211F ; [.4639.0020.0002] # CUNEIFORM SIGN GUD TIMES A PLUS KUR
+12120 ; [.463A.0020.0002] # CUNEIFORM SIGN GUD TIMES KUR
+12121 ; [.463B.0020.0002] # CUNEIFORM SIGN GUD OVER GUD LUGAL
+12122 ; [.463C.0020.0002] # CUNEIFORM SIGN GUL
+12123 ; [.463D.0020.0002] # CUNEIFORM SIGN GUM
+12124 ; [.463E.0020.0002] # CUNEIFORM SIGN GUM TIMES SHE
+12125 ; [.463F.0020.0002] # CUNEIFORM SIGN GUR
+12126 ; [.4640.0020.0002] # CUNEIFORM SIGN GUR7
+12127 ; [.4641.0020.0002] # CUNEIFORM SIGN GURUN
+12128 ; [.4642.0020.0002] # CUNEIFORM SIGN GURUSH
+12129 ; [.4643.0020.0002] # CUNEIFORM SIGN HA
+1212A ; [.4644.0020.0002] # CUNEIFORM SIGN HA TENU
+1212B ; [.4645.0020.0002] # CUNEIFORM SIGN HA GUNU
+1212C ; [.4646.0020.0002] # CUNEIFORM SIGN HAL
+1212D ; [.4647.0020.0002] # CUNEIFORM SIGN HI
+1212E ; [.4648.0020.0002] # CUNEIFORM SIGN HI TIMES ASH
+1212F ; [.4649.0020.0002] # CUNEIFORM SIGN HI TIMES ASH2
+12130 ; [.464A.0020.0002] # CUNEIFORM SIGN HI TIMES BAD
+12131 ; [.464B.0020.0002] # CUNEIFORM SIGN HI TIMES DISH
+12132 ; [.464C.0020.0002] # CUNEIFORM SIGN HI TIMES GAD
+12133 ; [.464D.0020.0002] # CUNEIFORM SIGN HI TIMES KIN
+12134 ; [.464E.0020.0002] # CUNEIFORM SIGN HI TIMES NUN
+12135 ; [.464F.0020.0002] # CUNEIFORM SIGN HI TIMES SHE
+12136 ; [.4650.0020.0002] # CUNEIFORM SIGN HI TIMES U
+12137 ; [.4651.0020.0002] # CUNEIFORM SIGN HU
+12138 ; [.4652.0020.0002] # CUNEIFORM SIGN HUB2
+12139 ; [.4653.0020.0002] # CUNEIFORM SIGN HUB2 TIMES AN
+1213A ; [.4654.0020.0002] # CUNEIFORM SIGN HUB2 TIMES HAL
+1213B ; [.4655.0020.0002] # CUNEIFORM SIGN HUB2 TIMES KASKAL
+1213C ; [.4656.0020.0002] # CUNEIFORM SIGN HUB2 TIMES LISH
+1213D ; [.4657.0020.0002] # CUNEIFORM SIGN HUB2 TIMES UD
+1213E ; [.4658.0020.0002] # CUNEIFORM SIGN HUL2
+1213F ; [.4659.0020.0002] # CUNEIFORM SIGN I
+12140 ; [.465A.0020.0002] # CUNEIFORM SIGN I A
+12141 ; [.465B.0020.0002] # CUNEIFORM SIGN IB
+12142 ; [.465C.0020.0002] # CUNEIFORM SIGN IDIM
+12143 ; [.465D.0020.0002] # CUNEIFORM SIGN IDIM OVER IDIM BUR
+12144 ; [.465E.0020.0002] # CUNEIFORM SIGN IDIM OVER IDIM SQUARED
+12145 ; [.465F.0020.0002] # CUNEIFORM SIGN IG
+12146 ; [.4660.0020.0002] # CUNEIFORM SIGN IGI
+12147 ; [.4661.0020.0002] # CUNEIFORM SIGN IGI DIB
+12148 ; [.4662.0020.0002] # CUNEIFORM SIGN IGI RI
+12149 ; [.4663.0020.0002] # CUNEIFORM SIGN IGI OVER IGI SHIR OVER SHIR UD OVER UD
+1214A ; [.4664.0020.0002] # CUNEIFORM SIGN IGI GUNU
+1214B ; [.4665.0020.0002] # CUNEIFORM SIGN IL
+1214C ; [.4666.0020.0002] # CUNEIFORM SIGN IL TIMES GAN2 TENU
+1214D ; [.4667.0020.0002] # CUNEIFORM SIGN IL2
+1214E ; [.4668.0020.0002] # CUNEIFORM SIGN IM
+1214F ; [.4669.0020.0002] # CUNEIFORM SIGN IM TIMES TAK4
+12150 ; [.466A.0020.0002] # CUNEIFORM SIGN IM CROSSING IM
+12151 ; [.466B.0020.0002] # CUNEIFORM SIGN IM OPPOSING IM
+12152 ; [.466C.0020.0002] # CUNEIFORM SIGN IM SQUARED
+12153 ; [.466D.0020.0002] # CUNEIFORM SIGN IMIN
+12154 ; [.466E.0020.0002] # CUNEIFORM SIGN IN
+12155 ; [.466F.0020.0002] # CUNEIFORM SIGN IR
+12156 ; [.4670.0020.0002] # CUNEIFORM SIGN ISH
+12157 ; [.4671.0020.0002] # CUNEIFORM SIGN KA
+12158 ; [.4672.0020.0002] # CUNEIFORM SIGN KA TIMES A
+12159 ; [.4673.0020.0002] # CUNEIFORM SIGN KA TIMES AD
+1215A ; [.4674.0020.0002] # CUNEIFORM SIGN KA TIMES AD PLUS KU3
+1215B ; [.4675.0020.0002] # CUNEIFORM SIGN KA TIMES ASH2
+1215C ; [.4676.0020.0002] # CUNEIFORM SIGN KA TIMES BAD
+1215D ; [.4677.0020.0002] # CUNEIFORM SIGN KA TIMES BALAG
+1215E ; [.4678.0020.0002] # CUNEIFORM SIGN KA TIMES BAR
+1215F ; [.4679.0020.0002] # CUNEIFORM SIGN KA TIMES BI
+12160 ; [.467A.0020.0002] # CUNEIFORM SIGN KA TIMES ERIN2
+12161 ; [.467B.0020.0002] # CUNEIFORM SIGN KA TIMES ESH2
+12162 ; [.467C.0020.0002] # CUNEIFORM SIGN KA TIMES GA
+12163 ; [.467D.0020.0002] # CUNEIFORM SIGN KA TIMES GAL
+12164 ; [.467E.0020.0002] # CUNEIFORM SIGN KA TIMES GAN2 TENU
+12165 ; [.467F.0020.0002] # CUNEIFORM SIGN KA TIMES GAR
+12166 ; [.4680.0020.0002] # CUNEIFORM SIGN KA TIMES GAR PLUS SHA3 PLUS A
+12167 ; [.4681.0020.0002] # CUNEIFORM SIGN KA TIMES GI
+12168 ; [.4682.0020.0002] # CUNEIFORM SIGN KA TIMES GIR2
+12169 ; [.4683.0020.0002] # CUNEIFORM SIGN KA TIMES GISH PLUS SAR
+1216A ; [.4684.0020.0002] # CUNEIFORM SIGN KA TIMES GISH CROSSING GISH
+1216B ; [.4685.0020.0002] # CUNEIFORM SIGN KA TIMES GU
+1216C ; [.4686.0020.0002] # CUNEIFORM SIGN KA TIMES GUR7
+1216D ; [.4687.0020.0002] # CUNEIFORM SIGN KA TIMES IGI
+1216E ; [.4688.0020.0002] # CUNEIFORM SIGN KA TIMES IM
+1216F ; [.4689.0020.0002] # CUNEIFORM SIGN KA TIMES KAK
+12170 ; [.468A.0020.0002] # CUNEIFORM SIGN KA TIMES KI
+12171 ; [.468B.0020.0002] # CUNEIFORM SIGN KA TIMES KID
+12172 ; [.468C.0020.0002] # CUNEIFORM SIGN KA TIMES LI
+12173 ; [.468D.0020.0002] # CUNEIFORM SIGN KA TIMES LU
+12174 ; [.468E.0020.0002] # CUNEIFORM SIGN KA TIMES ME
+12175 ; [.468F.0020.0002] # CUNEIFORM SIGN KA TIMES ME PLUS DU
+12176 ; [.4690.0020.0002] # CUNEIFORM SIGN KA TIMES ME PLUS GI
+12177 ; [.4691.0020.0002] # CUNEIFORM SIGN KA TIMES ME PLUS TE
+12178 ; [.4692.0020.0002] # CUNEIFORM SIGN KA TIMES MI
+12179 ; [.4693.0020.0002] # CUNEIFORM SIGN KA TIMES MI PLUS NUNUZ
+1217A ; [.4694.0020.0002] # CUNEIFORM SIGN KA TIMES NE
+1217B ; [.4695.0020.0002] # CUNEIFORM SIGN KA TIMES NUN
+1217C ; [.4696.0020.0002] # CUNEIFORM SIGN KA TIMES PI
+1217D ; [.4697.0020.0002] # CUNEIFORM SIGN KA TIMES RU
+1217E ; [.4698.0020.0002] # CUNEIFORM SIGN KA TIMES SA
+1217F ; [.4699.0020.0002] # CUNEIFORM SIGN KA TIMES SAR
+12180 ; [.469A.0020.0002] # CUNEIFORM SIGN KA TIMES SHA
+12181 ; [.469B.0020.0002] # CUNEIFORM SIGN KA TIMES SHE
+12182 ; [.469C.0020.0002] # CUNEIFORM SIGN KA TIMES SHID
+12183 ; [.469D.0020.0002] # CUNEIFORM SIGN KA TIMES SHU
+12184 ; [.469E.0020.0002] # CUNEIFORM SIGN KA TIMES SIG
+12185 ; [.469F.0020.0002] # CUNEIFORM SIGN KA TIMES SUHUR
+12186 ; [.46A0.0020.0002] # CUNEIFORM SIGN KA TIMES TAR
+12187 ; [.46A1.0020.0002] # CUNEIFORM SIGN KA TIMES U
+12188 ; [.46A2.0020.0002] # CUNEIFORM SIGN KA TIMES U2
+12189 ; [.46A3.0020.0002] # CUNEIFORM SIGN KA TIMES UD
+1218A ; [.46A4.0020.0002] # CUNEIFORM SIGN KA TIMES UMUM TIMES PA
+1218B ; [.46A5.0020.0002] # CUNEIFORM SIGN KA TIMES USH
+1218C ; [.46A6.0020.0002] # CUNEIFORM SIGN KA TIMES ZI
+1218D ; [.46A7.0020.0002] # CUNEIFORM SIGN KA2
+1218E ; [.46A8.0020.0002] # CUNEIFORM SIGN KA2 CROSSING KA2
+1218F ; [.46A9.0020.0002] # CUNEIFORM SIGN KAB
+12190 ; [.46AA.0020.0002] # CUNEIFORM SIGN KAD2
+12191 ; [.46AB.0020.0002] # CUNEIFORM SIGN KAD3
+12192 ; [.46AC.0020.0002] # CUNEIFORM SIGN KAD4
+12193 ; [.46AD.0020.0002] # CUNEIFORM SIGN KAD5
+12194 ; [.46AE.0020.0002] # CUNEIFORM SIGN KAD5 OVER KAD5
+12195 ; [.46AF.0020.0002] # CUNEIFORM SIGN KAK
+12196 ; [.46B0.0020.0002] # CUNEIFORM SIGN KAK TIMES IGI GUNU
+12197 ; [.46B1.0020.0002] # CUNEIFORM SIGN KAL
+12198 ; [.46B2.0020.0002] # CUNEIFORM SIGN KAL TIMES BAD
+12199 ; [.46B3.0020.0002] # CUNEIFORM SIGN KAL CROSSING KAL
+1219A ; [.46B4.0020.0002] # CUNEIFORM SIGN KAM2
+1219B ; [.46B5.0020.0002] # CUNEIFORM SIGN KAM4
+1219C ; [.46B6.0020.0002] # CUNEIFORM SIGN KASKAL
+1219D ; [.46B7.0020.0002] # CUNEIFORM SIGN KASKAL LAGAB TIMES U OVER LAGAB TIMES U
+1219E ; [.46B8.0020.0002] # CUNEIFORM SIGN KASKAL OVER KASKAL LAGAB TIMES U OVER LAGAB TIMES U
+1219F ; [.46B9.0020.0002] # CUNEIFORM SIGN KESH2
+121A0 ; [.46BA.0020.0002] # CUNEIFORM SIGN KI
+121A1 ; [.46BB.0020.0002] # CUNEIFORM SIGN KI TIMES BAD
+121A2 ; [.46BC.0020.0002] # CUNEIFORM SIGN KI TIMES U
+121A3 ; [.46BD.0020.0002] # CUNEIFORM SIGN KI TIMES UD
+121A4 ; [.46BE.0020.0002] # CUNEIFORM SIGN KID
+121A5 ; [.46BF.0020.0002] # CUNEIFORM SIGN KIN
+121A6 ; [.46C0.0020.0002] # CUNEIFORM SIGN KISAL
+121A7 ; [.46C1.0020.0002] # CUNEIFORM SIGN KISH
+121A8 ; [.46C2.0020.0002] # CUNEIFORM SIGN KISIM5
+121A9 ; [.46C3.0020.0002] # CUNEIFORM SIGN KISIM5 OVER KISIM5
+121AA ; [.46C4.0020.0002] # CUNEIFORM SIGN KU
+121AB ; [.46C5.0020.0002] # CUNEIFORM SIGN KU OVER HI TIMES ASH2 KU OVER HI TIMES ASH2
+121AC ; [.46C6.0020.0002] # CUNEIFORM SIGN KU3
+121AD ; [.46C7.0020.0002] # CUNEIFORM SIGN KU4
+121AE ; [.46C8.0020.0002] # CUNEIFORM SIGN KU4 VARIANT FORM
+121AF ; [.46C9.0020.0002] # CUNEIFORM SIGN KU7
+121B0 ; [.46CA.0020.0002] # CUNEIFORM SIGN KUL
+121B1 ; [.46CB.0020.0002] # CUNEIFORM SIGN KUL GUNU
+121B2 ; [.46CC.0020.0002] # CUNEIFORM SIGN KUN
+121B3 ; [.46CD.0020.0002] # CUNEIFORM SIGN KUR
+121B4 ; [.46CE.0020.0002] # CUNEIFORM SIGN KUR OPPOSING KUR
+121B5 ; [.46CF.0020.0002] # CUNEIFORM SIGN KUSHU2
+121B6 ; [.46D0.0020.0002] # CUNEIFORM SIGN KWU318
+121B7 ; [.46D1.0020.0002] # CUNEIFORM SIGN LA
+121B8 ; [.46D2.0020.0002] # CUNEIFORM SIGN LAGAB
+121B9 ; [.46D3.0020.0002] # CUNEIFORM SIGN LAGAB TIMES A
+121BA ; [.46D4.0020.0002] # CUNEIFORM SIGN LAGAB TIMES A PLUS DA PLUS HA
+121BB ; [.46D5.0020.0002] # CUNEIFORM SIGN LAGAB TIMES A PLUS GAR
+121BC ; [.46D6.0020.0002] # CUNEIFORM SIGN LAGAB TIMES A PLUS LAL
+121BD ; [.46D7.0020.0002] # CUNEIFORM SIGN LAGAB TIMES AL
+121BE ; [.46D8.0020.0002] # CUNEIFORM SIGN LAGAB TIMES AN
+121BF ; [.46D9.0020.0002] # CUNEIFORM SIGN LAGAB TIMES ASH ZIDA TENU
+121C0 ; [.46DA.0020.0002] # CUNEIFORM SIGN LAGAB TIMES BAD
+121C1 ; [.46DB.0020.0002] # CUNEIFORM SIGN LAGAB TIMES BI
+121C2 ; [.46DC.0020.0002] # CUNEIFORM SIGN LAGAB TIMES DAR
+121C3 ; [.46DD.0020.0002] # CUNEIFORM SIGN LAGAB TIMES EN
+121C4 ; [.46DE.0020.0002] # CUNEIFORM SIGN LAGAB TIMES GA
+121C5 ; [.46DF.0020.0002] # CUNEIFORM SIGN LAGAB TIMES GAR
+121C6 ; [.46E0.0020.0002] # CUNEIFORM SIGN LAGAB TIMES GUD
+121C7 ; [.46E1.0020.0002] # CUNEIFORM SIGN LAGAB TIMES GUD PLUS GUD
+121C8 ; [.46E2.0020.0002] # CUNEIFORM SIGN LAGAB TIMES HA
+121C9 ; [.46E3.0020.0002] # CUNEIFORM SIGN LAGAB TIMES HAL
+121CA ; [.46E4.0020.0002] # CUNEIFORM SIGN LAGAB TIMES HI TIMES NUN
+121CB ; [.46E5.0020.0002] # CUNEIFORM SIGN LAGAB TIMES IGI GUNU
+121CC ; [.46E6.0020.0002] # CUNEIFORM SIGN LAGAB TIMES IM
+121CD ; [.46E7.0020.0002] # CUNEIFORM SIGN LAGAB TIMES IM PLUS HA
+121CE ; [.46E8.0020.0002] # CUNEIFORM SIGN LAGAB TIMES IM PLUS LU
+121CF ; [.46E9.0020.0002] # CUNEIFORM SIGN LAGAB TIMES KI
+121D0 ; [.46EA.0020.0002] # CUNEIFORM SIGN LAGAB TIMES KIN
+121D1 ; [.46EB.0020.0002] # CUNEIFORM SIGN LAGAB TIMES KU3
+121D2 ; [.46EC.0020.0002] # CUNEIFORM SIGN LAGAB TIMES KUL
+121D3 ; [.46ED.0020.0002] # CUNEIFORM SIGN LAGAB TIMES KUL PLUS HI PLUS A
+121D4 ; [.46EE.0020.0002] # CUNEIFORM SIGN LAGAB TIMES LAGAB
+121D5 ; [.46EF.0020.0002] # CUNEIFORM SIGN LAGAB TIMES LISH
+121D6 ; [.46F0.0020.0002] # CUNEIFORM SIGN LAGAB TIMES LU
+121D7 ; [.46F1.0020.0002] # CUNEIFORM SIGN LAGAB TIMES LUL
+121D8 ; [.46F2.0020.0002] # CUNEIFORM SIGN LAGAB TIMES ME
+121D9 ; [.46F3.0020.0002] # CUNEIFORM SIGN LAGAB TIMES ME PLUS EN
+121DA ; [.46F4.0020.0002] # CUNEIFORM SIGN LAGAB TIMES MUSH
+121DB ; [.46F5.0020.0002] # CUNEIFORM SIGN LAGAB TIMES NE
+121DC ; [.46F6.0020.0002] # CUNEIFORM SIGN LAGAB TIMES SHE PLUS SUM
+121DD ; [.46F7.0020.0002] # CUNEIFORM SIGN LAGAB TIMES SHITA PLUS GISH PLUS ERIN2
+121DE ; [.46F8.0020.0002] # CUNEIFORM SIGN LAGAB TIMES SHITA PLUS GISH TENU
+121DF ; [.46F9.0020.0002] # CUNEIFORM SIGN LAGAB TIMES SHU2
+121E0 ; [.46FA.0020.0002] # CUNEIFORM SIGN LAGAB TIMES SHU2 PLUS SHU2
+121E1 ; [.46FB.0020.0002] # CUNEIFORM SIGN LAGAB TIMES SUM
+121E2 ; [.46FC.0020.0002] # CUNEIFORM SIGN LAGAB TIMES TAG
+121E3 ; [.46FD.0020.0002] # CUNEIFORM SIGN LAGAB TIMES TAK4
+121E4 ; [.46FE.0020.0002] # CUNEIFORM SIGN LAGAB TIMES TE PLUS A PLUS SU PLUS NA
+121E5 ; [.46FF.0020.0002] # CUNEIFORM SIGN LAGAB TIMES U
+121E6 ; [.4700.0020.0002] # CUNEIFORM SIGN LAGAB TIMES U PLUS A
+121E7 ; [.4701.0020.0002] # CUNEIFORM SIGN LAGAB TIMES U PLUS U PLUS U
+121E8 ; [.4702.0020.0002] # CUNEIFORM SIGN LAGAB TIMES U2 PLUS ASH
+121E9 ; [.4703.0020.0002] # CUNEIFORM SIGN LAGAB TIMES UD
+121EA ; [.4704.0020.0002] # CUNEIFORM SIGN LAGAB TIMES USH
+121EB ; [.4705.0020.0002] # CUNEIFORM SIGN LAGAB SQUARED
+121EC ; [.4706.0020.0002] # CUNEIFORM SIGN LAGAR
+121ED ; [.4707.0020.0002] # CUNEIFORM SIGN LAGAR TIMES SHE
+121EE ; [.4708.0020.0002] # CUNEIFORM SIGN LAGAR TIMES SHE PLUS SUM
+121EF ; [.4709.0020.0002] # CUNEIFORM SIGN LAGAR GUNU
+121F0 ; [.470A.0020.0002] # CUNEIFORM SIGN LAGAR GUNU OVER LAGAR GUNU SHE
+121F1 ; [.470B.0020.0002] # CUNEIFORM SIGN LAHSHU
+121F2 ; [.470C.0020.0002] # CUNEIFORM SIGN LAL
+121F3 ; [.470D.0020.0002] # CUNEIFORM SIGN LAL TIMES LAL
+121F4 ; [.470E.0020.0002] # CUNEIFORM SIGN LAM
+121F5 ; [.470F.0020.0002] # CUNEIFORM SIGN LAM TIMES KUR
+121F6 ; [.4710.0020.0002] # CUNEIFORM SIGN LAM TIMES KUR PLUS RU
+121F7 ; [.4711.0020.0002] # CUNEIFORM SIGN LI
+121F8 ; [.4712.0020.0002] # CUNEIFORM SIGN LIL
+121F9 ; [.4713.0020.0002] # CUNEIFORM SIGN LIMMU2
+121FA ; [.4714.0020.0002] # CUNEIFORM SIGN LISH
+121FB ; [.4715.0020.0002] # CUNEIFORM SIGN LU
+121FC ; [.4716.0020.0002] # CUNEIFORM SIGN LU TIMES BAD
+121FD ; [.4717.0020.0002] # CUNEIFORM SIGN LU2
+121FE ; [.4718.0020.0002] # CUNEIFORM SIGN LU2 TIMES AL
+121FF ; [.4719.0020.0002] # CUNEIFORM SIGN LU2 TIMES BAD
+12200 ; [.471A.0020.0002] # CUNEIFORM SIGN LU2 TIMES ESH2
+12201 ; [.471B.0020.0002] # CUNEIFORM SIGN LU2 TIMES ESH2 TENU
+12202 ; [.471C.0020.0002] # CUNEIFORM SIGN LU2 TIMES GAN2 TENU
+12203 ; [.471D.0020.0002] # CUNEIFORM SIGN LU2 TIMES HI TIMES BAD
+12204 ; [.471E.0020.0002] # CUNEIFORM SIGN LU2 TIMES IM
+12205 ; [.471F.0020.0002] # CUNEIFORM SIGN LU2 TIMES KAD2
+12206 ; [.4720.0020.0002] # CUNEIFORM SIGN LU2 TIMES KAD3
+12207 ; [.4721.0020.0002] # CUNEIFORM SIGN LU2 TIMES KAD3 PLUS ASH
+12208 ; [.4722.0020.0002] # CUNEIFORM SIGN LU2 TIMES KI
+12209 ; [.4723.0020.0002] # CUNEIFORM SIGN LU2 TIMES LA PLUS ASH
+1220A ; [.4724.0020.0002] # CUNEIFORM SIGN LU2 TIMES LAGAB
+1220B ; [.4725.0020.0002] # CUNEIFORM SIGN LU2 TIMES ME PLUS EN
+1220C ; [.4726.0020.0002] # CUNEIFORM SIGN LU2 TIMES NE
+1220D ; [.4727.0020.0002] # CUNEIFORM SIGN LU2 TIMES NU
+1220E ; [.4728.0020.0002] # CUNEIFORM SIGN LU2 TIMES SI PLUS ASH
+1220F ; [.4729.0020.0002] # CUNEIFORM SIGN LU2 TIMES SIK2 PLUS BU
+12210 ; [.472A.0020.0002] # CUNEIFORM SIGN LU2 TIMES TUG2
+12211 ; [.472B.0020.0002] # CUNEIFORM SIGN LU2 TENU
+12212 ; [.472C.0020.0002] # CUNEIFORM SIGN LU2 CROSSING LU2
+12213 ; [.472D.0020.0002] # CUNEIFORM SIGN LU2 OPPOSING LU2
+12214 ; [.472E.0020.0002] # CUNEIFORM SIGN LU2 SQUARED
+12215 ; [.472F.0020.0002] # CUNEIFORM SIGN LU2 SHESHIG
+12216 ; [.4730.0020.0002] # CUNEIFORM SIGN LU3
+12217 ; [.4731.0020.0002] # CUNEIFORM SIGN LUGAL
+12218 ; [.4732.0020.0002] # CUNEIFORM SIGN LUGAL OVER LUGAL
+12219 ; [.4733.0020.0002] # CUNEIFORM SIGN LUGAL OPPOSING LUGAL
+1221A ; [.4734.0020.0002] # CUNEIFORM SIGN LUGAL SHESHIG
+1221B ; [.4735.0020.0002] # CUNEIFORM SIGN LUH
+1221C ; [.4736.0020.0002] # CUNEIFORM SIGN LUL
+1221D ; [.4737.0020.0002] # CUNEIFORM SIGN LUM
+1221E ; [.4738.0020.0002] # CUNEIFORM SIGN LUM OVER LUM
+1221F ; [.4739.0020.0002] # CUNEIFORM SIGN LUM OVER LUM GAR OVER GAR
+12220 ; [.473A.0020.0002] # CUNEIFORM SIGN MA
+12221 ; [.473B.0020.0002] # CUNEIFORM SIGN MA TIMES TAK4
+12222 ; [.473C.0020.0002] # CUNEIFORM SIGN MA GUNU
+12223 ; [.473D.0020.0002] # CUNEIFORM SIGN MA2
+12224 ; [.473E.0020.0002] # CUNEIFORM SIGN MAH
+12225 ; [.473F.0020.0002] # CUNEIFORM SIGN MAR
+12226 ; [.4740.0020.0002] # CUNEIFORM SIGN MASH
+12227 ; [.4741.0020.0002] # CUNEIFORM SIGN MASH2
+12228 ; [.4742.0020.0002] # CUNEIFORM SIGN ME
+12229 ; [.4743.0020.0002] # CUNEIFORM SIGN MES
+1222A ; [.4744.0020.0002] # CUNEIFORM SIGN MI
+1222B ; [.4745.0020.0002] # CUNEIFORM SIGN MIN
+1222C ; [.4746.0020.0002] # CUNEIFORM SIGN MU
+1222D ; [.4747.0020.0002] # CUNEIFORM SIGN MU OVER MU
+1222E ; [.4748.0020.0002] # CUNEIFORM SIGN MUG
+1222F ; [.4749.0020.0002] # CUNEIFORM SIGN MUG GUNU
+12230 ; [.474A.0020.0002] # CUNEIFORM SIGN MUNSUB
+12231 ; [.474B.0020.0002] # CUNEIFORM SIGN MURGU2
+12232 ; [.474C.0020.0002] # CUNEIFORM SIGN MUSH
+12233 ; [.474D.0020.0002] # CUNEIFORM SIGN MUSH TIMES A
+12234 ; [.474E.0020.0002] # CUNEIFORM SIGN MUSH TIMES KUR
+12235 ; [.474F.0020.0002] # CUNEIFORM SIGN MUSH TIMES ZA
+12236 ; [.4750.0020.0002] # CUNEIFORM SIGN MUSH OVER MUSH
+12237 ; [.4751.0020.0002] # CUNEIFORM SIGN MUSH OVER MUSH TIMES A PLUS NA
+12238 ; [.4752.0020.0002] # CUNEIFORM SIGN MUSH CROSSING MUSH
+12239 ; [.4753.0020.0002] # CUNEIFORM SIGN MUSH3
+1223A ; [.4754.0020.0002] # CUNEIFORM SIGN MUSH3 TIMES A
+1223B ; [.4755.0020.0002] # CUNEIFORM SIGN MUSH3 TIMES A PLUS DI
+1223C ; [.4756.0020.0002] # CUNEIFORM SIGN MUSH3 TIMES DI
+1223D ; [.4757.0020.0002] # CUNEIFORM SIGN MUSH3 GUNU
+1223E ; [.4758.0020.0002] # CUNEIFORM SIGN NA
+1223F ; [.4759.0020.0002] # CUNEIFORM SIGN NA2
+12240 ; [.475A.0020.0002] # CUNEIFORM SIGN NAGA
+12241 ; [.475B.0020.0002] # CUNEIFORM SIGN NAGA INVERTED
+12242 ; [.475C.0020.0002] # CUNEIFORM SIGN NAGA TIMES SHU TENU
+12243 ; [.475D.0020.0002] # CUNEIFORM SIGN NAGA OPPOSING NAGA
+12244 ; [.475E.0020.0002] # CUNEIFORM SIGN NAGAR
+12245 ; [.475F.0020.0002] # CUNEIFORM SIGN NAM NUTILLU
+12246 ; [.4760.0020.0002] # CUNEIFORM SIGN NAM
+12247 ; [.4761.0020.0002] # CUNEIFORM SIGN NAM2
+12248 ; [.4762.0020.0002] # CUNEIFORM SIGN NE
+12249 ; [.4763.0020.0002] # CUNEIFORM SIGN NE TIMES A
+1224A ; [.4764.0020.0002] # CUNEIFORM SIGN NE TIMES UD
+1224B ; [.4765.0020.0002] # CUNEIFORM SIGN NE SHESHIG
+1224C ; [.4766.0020.0002] # CUNEIFORM SIGN NI
+1224D ; [.4767.0020.0002] # CUNEIFORM SIGN NI TIMES E
+1224E ; [.4768.0020.0002] # CUNEIFORM SIGN NI2
+1224F ; [.4769.0020.0002] # CUNEIFORM SIGN NIM
+12250 ; [.476A.0020.0002] # CUNEIFORM SIGN NIM TIMES GAN2 TENU
+12251 ; [.476B.0020.0002] # CUNEIFORM SIGN NIM TIMES GAR PLUS GAN2 TENU
+12252 ; [.476C.0020.0002] # CUNEIFORM SIGN NINDA2
+12253 ; [.476D.0020.0002] # CUNEIFORM SIGN NINDA2 TIMES AN
+12254 ; [.476E.0020.0002] # CUNEIFORM SIGN NINDA2 TIMES ASH
+12255 ; [.476F.0020.0002] # CUNEIFORM SIGN NINDA2 TIMES ASH PLUS ASH
+12256 ; [.4770.0020.0002] # CUNEIFORM SIGN NINDA2 TIMES GUD
+12257 ; [.4771.0020.0002] # CUNEIFORM SIGN NINDA2 TIMES ME PLUS GAN2 TENU
+12258 ; [.4772.0020.0002] # CUNEIFORM SIGN NINDA2 TIMES NE
+12259 ; [.4773.0020.0002] # CUNEIFORM SIGN NINDA2 TIMES NUN
+1225A ; [.4774.0020.0002] # CUNEIFORM SIGN NINDA2 TIMES SHE
+1225B ; [.4775.0020.0002] # CUNEIFORM SIGN NINDA2 TIMES SHE PLUS A AN
+1225C ; [.4776.0020.0002] # CUNEIFORM SIGN NINDA2 TIMES SHE PLUS ASH
+1225D ; [.4777.0020.0002] # CUNEIFORM SIGN NINDA2 TIMES SHE PLUS ASH PLUS ASH
+1225E ; [.4778.0020.0002] # CUNEIFORM SIGN NINDA2 TIMES U2 PLUS ASH
+1225F ; [.4779.0020.0002] # CUNEIFORM SIGN NINDA2 TIMES USH
+12260 ; [.477A.0020.0002] # CUNEIFORM SIGN NISAG
+12261 ; [.477B.0020.0002] # CUNEIFORM SIGN NU
+12262 ; [.477C.0020.0002] # CUNEIFORM SIGN NU11
+122D4 ; [.477D.0020.0002] # CUNEIFORM SIGN SHIR TENU
+122D5 ; [.477E.0020.0002] # CUNEIFORM SIGN SHIR OVER SHIR BUR OVER BUR
+12263 ; [.477F.0020.0002] # CUNEIFORM SIGN NUN
+12264 ; [.4780.0020.0002] # CUNEIFORM SIGN NUN LAGAR TIMES GAR
+12265 ; [.4781.0020.0002] # CUNEIFORM SIGN NUN LAGAR TIMES MASH
+12266 ; [.4782.0020.0002] # CUNEIFORM SIGN NUN LAGAR TIMES SAL
+12267 ; [.4783.0020.0002] # CUNEIFORM SIGN NUN LAGAR TIMES SAL OVER NUN LAGAR TIMES SAL
+12268 ; [.4784.0020.0002] # CUNEIFORM SIGN NUN LAGAR TIMES USH
+12269 ; [.4785.0020.0002] # CUNEIFORM SIGN NUN TENU
+1226A ; [.4786.0020.0002] # CUNEIFORM SIGN NUN OVER NUN
+1226B ; [.4787.0020.0002] # CUNEIFORM SIGN NUN CROSSING NUN
+1226C ; [.4788.0020.0002] # CUNEIFORM SIGN NUN CROSSING NUN LAGAR OVER LAGAR
+1226D ; [.4789.0020.0002] # CUNEIFORM SIGN NUNUZ
+1226E ; [.478A.0020.0002] # CUNEIFORM SIGN NUNUZ AB2 TIMES ASHGAB
+1226F ; [.478B.0020.0002] # CUNEIFORM SIGN NUNUZ AB2 TIMES BI
+12270 ; [.478C.0020.0002] # CUNEIFORM SIGN NUNUZ AB2 TIMES DUG
+12271 ; [.478D.0020.0002] # CUNEIFORM SIGN NUNUZ AB2 TIMES GUD
+12272 ; [.478E.0020.0002] # CUNEIFORM SIGN NUNUZ AB2 TIMES IGI GUNU
+12273 ; [.478F.0020.0002] # CUNEIFORM SIGN NUNUZ AB2 TIMES KAD3
+12274 ; [.4790.0020.0002] # CUNEIFORM SIGN NUNUZ AB2 TIMES LA
+12275 ; [.4791.0020.0002] # CUNEIFORM SIGN NUNUZ AB2 TIMES NE
+12276 ; [.4792.0020.0002] # CUNEIFORM SIGN NUNUZ AB2 TIMES SILA3
+12277 ; [.4793.0020.0002] # CUNEIFORM SIGN NUNUZ AB2 TIMES U2
+12278 ; [.4794.0020.0002] # CUNEIFORM SIGN NUNUZ KISIM5 TIMES BI
+12279 ; [.4795.0020.0002] # CUNEIFORM SIGN NUNUZ KISIM5 TIMES BI U
+1227A ; [.4796.0020.0002] # CUNEIFORM SIGN PA
+1227B ; [.4797.0020.0002] # CUNEIFORM SIGN PAD
+1227C ; [.4798.0020.0002] # CUNEIFORM SIGN PAN
+1227D ; [.4799.0020.0002] # CUNEIFORM SIGN PAP
+1227E ; [.479A.0020.0002] # CUNEIFORM SIGN PESH2
+1227F ; [.479B.0020.0002] # CUNEIFORM SIGN PI
+12280 ; [.479C.0020.0002] # CUNEIFORM SIGN PI TIMES A
+12281 ; [.479D.0020.0002] # CUNEIFORM SIGN PI TIMES AB
+12282 ; [.479E.0020.0002] # CUNEIFORM SIGN PI TIMES BI
+12283 ; [.479F.0020.0002] # CUNEIFORM SIGN PI TIMES BU
+12284 ; [.47A0.0020.0002] # CUNEIFORM SIGN PI TIMES E
+12285 ; [.47A1.0020.0002] # CUNEIFORM SIGN PI TIMES I
+12286 ; [.47A2.0020.0002] # CUNEIFORM SIGN PI TIMES IB
+12287 ; [.47A3.0020.0002] # CUNEIFORM SIGN PI TIMES U
+12288 ; [.47A4.0020.0002] # CUNEIFORM SIGN PI TIMES U2
+12289 ; [.47A5.0020.0002] # CUNEIFORM SIGN PI CROSSING PI
+1228A ; [.47A6.0020.0002] # CUNEIFORM SIGN PIRIG
+1228B ; [.47A7.0020.0002] # CUNEIFORM SIGN PIRIG TIMES KAL
+1228C ; [.47A8.0020.0002] # CUNEIFORM SIGN PIRIG TIMES UD
+1228D ; [.47A9.0020.0002] # CUNEIFORM SIGN PIRIG TIMES ZA
+1228E ; [.47AA.0020.0002] # CUNEIFORM SIGN PIRIG OPPOSING PIRIG
+1228F ; [.47AB.0020.0002] # CUNEIFORM SIGN RA
+12290 ; [.47AC.0020.0002] # CUNEIFORM SIGN RAB
+12291 ; [.47AD.0020.0002] # CUNEIFORM SIGN RI
+12292 ; [.47AE.0020.0002] # CUNEIFORM SIGN RU
+12293 ; [.47AF.0020.0002] # CUNEIFORM SIGN SA
+12294 ; [.47B0.0020.0002] # CUNEIFORM SIGN SAG NUTILLU
+12295 ; [.47B1.0020.0002] # CUNEIFORM SIGN SAG
+12296 ; [.47B2.0020.0002] # CUNEIFORM SIGN SAG TIMES A
+12297 ; [.47B3.0020.0002] # CUNEIFORM SIGN SAG TIMES DU
+12298 ; [.47B4.0020.0002] # CUNEIFORM SIGN SAG TIMES DUB
+12299 ; [.47B5.0020.0002] # CUNEIFORM SIGN SAG TIMES HA
+1229A ; [.47B6.0020.0002] # CUNEIFORM SIGN SAG TIMES KAK
+1229B ; [.47B7.0020.0002] # CUNEIFORM SIGN SAG TIMES KUR
+1229C ; [.47B8.0020.0002] # CUNEIFORM SIGN SAG TIMES LUM
+1229D ; [.47B9.0020.0002] # CUNEIFORM SIGN SAG TIMES MI
+1229E ; [.47BA.0020.0002] # CUNEIFORM SIGN SAG TIMES NUN
+1229F ; [.47BB.0020.0002] # CUNEIFORM SIGN SAG TIMES SAL
+122A0 ; [.47BC.0020.0002] # CUNEIFORM SIGN SAG TIMES SHID
+122A1 ; [.47BD.0020.0002] # CUNEIFORM SIGN SAG TIMES TAB
+122A2 ; [.47BE.0020.0002] # CUNEIFORM SIGN SAG TIMES U2
+122A3 ; [.47BF.0020.0002] # CUNEIFORM SIGN SAG TIMES UB
+122A4 ; [.47C0.0020.0002] # CUNEIFORM SIGN SAG TIMES UM
+122A5 ; [.47C1.0020.0002] # CUNEIFORM SIGN SAG TIMES UR
+122A6 ; [.47C2.0020.0002] # CUNEIFORM SIGN SAG TIMES USH
+122A7 ; [.47C3.0020.0002] # CUNEIFORM SIGN SAG OVER SAG
+122A8 ; [.47C4.0020.0002] # CUNEIFORM SIGN SAG GUNU
+122A9 ; [.47C5.0020.0002] # CUNEIFORM SIGN SAL
+122AA ; [.47C6.0020.0002] # CUNEIFORM SIGN SAL LAGAB TIMES ASH2
+122AB ; [.47C7.0020.0002] # CUNEIFORM SIGN SANGA2
+122AC ; [.47C8.0020.0002] # CUNEIFORM SIGN SAR
+122AD ; [.47C9.0020.0002] # CUNEIFORM SIGN SHA
+122AE ; [.47CA.0020.0002] # CUNEIFORM SIGN SHA3
+122AF ; [.47CB.0020.0002] # CUNEIFORM SIGN SHA3 TIMES A
+122B0 ; [.47CC.0020.0002] # CUNEIFORM SIGN SHA3 TIMES BAD
+122B1 ; [.47CD.0020.0002] # CUNEIFORM SIGN SHA3 TIMES GISH
+122B2 ; [.47CE.0020.0002] # CUNEIFORM SIGN SHA3 TIMES NE
+122B3 ; [.47CF.0020.0002] # CUNEIFORM SIGN SHA3 TIMES SHU2
+122B4 ; [.47D0.0020.0002] # CUNEIFORM SIGN SHA3 TIMES TUR
+122B5 ; [.47D1.0020.0002] # CUNEIFORM SIGN SHA3 TIMES U
+122B6 ; [.47D2.0020.0002] # CUNEIFORM SIGN SHA3 TIMES U PLUS A
+122B7 ; [.47D3.0020.0002] # CUNEIFORM SIGN SHA6
+122B8 ; [.47D4.0020.0002] # CUNEIFORM SIGN SHAB6
+122B9 ; [.47D5.0020.0002] # CUNEIFORM SIGN SHAR2
+122BA ; [.47D6.0020.0002] # CUNEIFORM SIGN SHE
+122BB ; [.47D7.0020.0002] # CUNEIFORM SIGN SHE HU
+122BC ; [.47D8.0020.0002] # CUNEIFORM SIGN SHE OVER SHE GAD OVER GAD GAR OVER GAR
+122BD ; [.47D9.0020.0002] # CUNEIFORM SIGN SHE OVER SHE TAB OVER TAB GAR OVER GAR
+122BE ; [.47DA.0020.0002] # CUNEIFORM SIGN SHEG9
+122BF ; [.47DB.0020.0002] # CUNEIFORM SIGN SHEN
+122C0 ; [.47DC.0020.0002] # CUNEIFORM SIGN SHESH
+122C1 ; [.47DD.0020.0002] # CUNEIFORM SIGN SHESH2
+122C2 ; [.47DE.0020.0002] # CUNEIFORM SIGN SHESHLAM
+122C3 ; [.47DF.0020.0002] # CUNEIFORM SIGN SHID
+122C4 ; [.47E0.0020.0002] # CUNEIFORM SIGN SHID TIMES A
+122C5 ; [.47E1.0020.0002] # CUNEIFORM SIGN SHID TIMES IM
+122C6 ; [.47E2.0020.0002] # CUNEIFORM SIGN SHIM
+122C7 ; [.47E3.0020.0002] # CUNEIFORM SIGN SHIM TIMES A
+122C8 ; [.47E4.0020.0002] # CUNEIFORM SIGN SHIM TIMES BAL
+122C9 ; [.47E5.0020.0002] # CUNEIFORM SIGN SHIM TIMES BULUG
+122CA ; [.47E6.0020.0002] # CUNEIFORM SIGN SHIM TIMES DIN
+122CB ; [.47E7.0020.0002] # CUNEIFORM SIGN SHIM TIMES GAR
+122CC ; [.47E8.0020.0002] # CUNEIFORM SIGN SHIM TIMES IGI
+122CD ; [.47E9.0020.0002] # CUNEIFORM SIGN SHIM TIMES IGI GUNU
+122CE ; [.47EA.0020.0002] # CUNEIFORM SIGN SHIM TIMES KUSHU2
+122CF ; [.47EB.0020.0002] # CUNEIFORM SIGN SHIM TIMES LUL
+122D0 ; [.47EC.0020.0002] # CUNEIFORM SIGN SHIM TIMES MUG
+122D1 ; [.47ED.0020.0002] # CUNEIFORM SIGN SHIM TIMES SAL
+122D2 ; [.47EE.0020.0002] # CUNEIFORM SIGN SHINIG
+122D3 ; [.47EF.0020.0002] # CUNEIFORM SIGN SHIR
+122D6 ; [.47F0.0020.0002] # CUNEIFORM SIGN SHITA
+122D7 ; [.47F1.0020.0002] # CUNEIFORM SIGN SHU
+122D8 ; [.47F2.0020.0002] # CUNEIFORM SIGN SHU OVER INVERTED SHU
+122D9 ; [.47F3.0020.0002] # CUNEIFORM SIGN SHU2
+122DA ; [.47F4.0020.0002] # CUNEIFORM SIGN SHUBUR
+122DB ; [.47F5.0020.0002] # CUNEIFORM SIGN SI
+122DC ; [.47F6.0020.0002] # CUNEIFORM SIGN SI GUNU
+122DD ; [.47F7.0020.0002] # CUNEIFORM SIGN SIG
+122DE ; [.47F8.0020.0002] # CUNEIFORM SIGN SIG4
+122DF ; [.47F9.0020.0002] # CUNEIFORM SIGN SIG4 OVER SIG4 SHU2
+122E0 ; [.47FA.0020.0002] # CUNEIFORM SIGN SIK2
+122E1 ; [.47FB.0020.0002] # CUNEIFORM SIGN SILA3
+122E2 ; [.47FC.0020.0002] # CUNEIFORM SIGN SU
+122E3 ; [.47FD.0020.0002] # CUNEIFORM SIGN SU OVER SU
+122E4 ; [.47FE.0020.0002] # CUNEIFORM SIGN SUD
+122E5 ; [.47FF.0020.0002] # CUNEIFORM SIGN SUD2
+122E6 ; [.4800.0020.0002] # CUNEIFORM SIGN SUHUR
+122E7 ; [.4801.0020.0002] # CUNEIFORM SIGN SUM
+122E8 ; [.4802.0020.0002] # CUNEIFORM SIGN SUMASH
+122E9 ; [.4803.0020.0002] # CUNEIFORM SIGN SUR
+122EA ; [.4804.0020.0002] # CUNEIFORM SIGN SUR9
+122EB ; [.4805.0020.0002] # CUNEIFORM SIGN TA
+122EC ; [.4806.0020.0002] # CUNEIFORM SIGN TA ASTERISK
+122ED ; [.4807.0020.0002] # CUNEIFORM SIGN TA TIMES HI
+122EE ; [.4808.0020.0002] # CUNEIFORM SIGN TA TIMES MI
+122EF ; [.4809.0020.0002] # CUNEIFORM SIGN TA GUNU
+122F0 ; [.480A.0020.0002] # CUNEIFORM SIGN TAB
+122F1 ; [.480B.0020.0002] # CUNEIFORM SIGN TAB OVER TAB NI OVER NI DISH OVER DISH
+122F2 ; [.480C.0020.0002] # CUNEIFORM SIGN TAB SQUARED
+122F3 ; [.480D.0020.0002] # CUNEIFORM SIGN TAG
+122F4 ; [.480E.0020.0002] # CUNEIFORM SIGN TAG TIMES BI
+122F5 ; [.480F.0020.0002] # CUNEIFORM SIGN TAG TIMES GUD
+122F6 ; [.4810.0020.0002] # CUNEIFORM SIGN TAG TIMES SHE
+122F7 ; [.4811.0020.0002] # CUNEIFORM SIGN TAG TIMES SHU
+122F8 ; [.4812.0020.0002] # CUNEIFORM SIGN TAG TIMES TUG2
+122F9 ; [.4813.0020.0002] # CUNEIFORM SIGN TAG TIMES UD
+122FA ; [.4814.0020.0002] # CUNEIFORM SIGN TAK4
+122FB ; [.4815.0020.0002] # CUNEIFORM SIGN TAR
+122FC ; [.4816.0020.0002] # CUNEIFORM SIGN TE
+122FD ; [.4817.0020.0002] # CUNEIFORM SIGN TE GUNU
+122FE ; [.4818.0020.0002] # CUNEIFORM SIGN TI
+122FF ; [.4819.0020.0002] # CUNEIFORM SIGN TI TENU
+12300 ; [.481A.0020.0002] # CUNEIFORM SIGN TIL
+12301 ; [.481B.0020.0002] # CUNEIFORM SIGN TIR
+12302 ; [.481C.0020.0002] # CUNEIFORM SIGN TIR TIMES TAK4
+12303 ; [.481D.0020.0002] # CUNEIFORM SIGN TIR OVER TIR
+12304 ; [.481E.0020.0002] # CUNEIFORM SIGN TIR OVER TIR GAD OVER GAD GAR OVER GAR
+12305 ; [.481F.0020.0002] # CUNEIFORM SIGN TU
+12306 ; [.4820.0020.0002] # CUNEIFORM SIGN TUG2
+12307 ; [.4821.0020.0002] # CUNEIFORM SIGN TUK
+12308 ; [.4822.0020.0002] # CUNEIFORM SIGN TUM
+12309 ; [.4823.0020.0002] # CUNEIFORM SIGN TUR
+1230A ; [.4824.0020.0002] # CUNEIFORM SIGN TUR OVER TUR ZA OVER ZA
+1230B ; [.4825.0020.0002] # CUNEIFORM SIGN U
+1230C ; [.4826.0020.0002] # CUNEIFORM SIGN U GUD
+1230D ; [.4827.0020.0002] # CUNEIFORM SIGN U U U
+1230E ; [.4828.0020.0002] # CUNEIFORM SIGN U OVER U PA OVER PA GAR OVER GAR
+1230F ; [.4829.0020.0002] # CUNEIFORM SIGN U OVER U SUR OVER SUR
+12310 ; [.482A.0020.0002] # CUNEIFORM SIGN U OVER U U REVERSED OVER U REVERSED
+12311 ; [.482B.0020.0002] # CUNEIFORM SIGN U2
+12312 ; [.482C.0020.0002] # CUNEIFORM SIGN UB
+12313 ; [.482D.0020.0002] # CUNEIFORM SIGN UD
+12314 ; [.482E.0020.0002] # CUNEIFORM SIGN UD KUSHU2
+12315 ; [.482F.0020.0002] # CUNEIFORM SIGN UD TIMES BAD
+12316 ; [.4830.0020.0002] # CUNEIFORM SIGN UD TIMES MI
+12317 ; [.4831.0020.0002] # CUNEIFORM SIGN UD TIMES U PLUS U PLUS U
+12318 ; [.4832.0020.0002] # CUNEIFORM SIGN UD TIMES U PLUS U PLUS U GUNU
+12319 ; [.4833.0020.0002] # CUNEIFORM SIGN UD GUNU
+1231A ; [.4834.0020.0002] # CUNEIFORM SIGN UD SHESHIG
+1231B ; [.4835.0020.0002] # CUNEIFORM SIGN UD SHESHIG TIMES BAD
+1231C ; [.4836.0020.0002] # CUNEIFORM SIGN UDUG
+1231D ; [.4837.0020.0002] # CUNEIFORM SIGN UM
+1231E ; [.4838.0020.0002] # CUNEIFORM SIGN UM TIMES LAGAB
+1231F ; [.4839.0020.0002] # CUNEIFORM SIGN UM TIMES ME PLUS DA
+12320 ; [.483A.0020.0002] # CUNEIFORM SIGN UM TIMES SHA3
+12321 ; [.483B.0020.0002] # CUNEIFORM SIGN UM TIMES U
+12322 ; [.483C.0020.0002] # CUNEIFORM SIGN UMBIN
+12323 ; [.483D.0020.0002] # CUNEIFORM SIGN UMUM
+12324 ; [.483E.0020.0002] # CUNEIFORM SIGN UMUM TIMES KASKAL
+12325 ; [.483F.0020.0002] # CUNEIFORM SIGN UMUM TIMES PA
+12326 ; [.4840.0020.0002] # CUNEIFORM SIGN UN
+12327 ; [.4841.0020.0002] # CUNEIFORM SIGN UN GUNU
+12328 ; [.4842.0020.0002] # CUNEIFORM SIGN UR
+12329 ; [.4843.0020.0002] # CUNEIFORM SIGN UR CROSSING UR
+1232A ; [.4844.0020.0002] # CUNEIFORM SIGN UR SHESHIG
+1232B ; [.4845.0020.0002] # CUNEIFORM SIGN UR2
+1232C ; [.4846.0020.0002] # CUNEIFORM SIGN UR2 TIMES A PLUS HA
+1232D ; [.4847.0020.0002] # CUNEIFORM SIGN UR2 TIMES A PLUS NA
+1232E ; [.4848.0020.0002] # CUNEIFORM SIGN UR2 TIMES AL
+1232F ; [.4849.0020.0002] # CUNEIFORM SIGN UR2 TIMES HA
+12330 ; [.484A.0020.0002] # CUNEIFORM SIGN UR2 TIMES NUN
+12331 ; [.484B.0020.0002] # CUNEIFORM SIGN UR2 TIMES U2
+12332 ; [.484C.0020.0002] # CUNEIFORM SIGN UR2 TIMES U2 PLUS ASH
+12333 ; [.484D.0020.0002] # CUNEIFORM SIGN UR2 TIMES U2 PLUS BI
+12334 ; [.484E.0020.0002] # CUNEIFORM SIGN UR4
+12335 ; [.484F.0020.0002] # CUNEIFORM SIGN URI
+12336 ; [.4850.0020.0002] # CUNEIFORM SIGN URI3
+12337 ; [.4851.0020.0002] # CUNEIFORM SIGN URU
+12338 ; [.4852.0020.0002] # CUNEIFORM SIGN URU TIMES A
+12339 ; [.4853.0020.0002] # CUNEIFORM SIGN URU TIMES ASHGAB
+1233A ; [.4854.0020.0002] # CUNEIFORM SIGN URU TIMES BAR
+1233B ; [.4855.0020.0002] # CUNEIFORM SIGN URU TIMES DUN
+1233C ; [.4856.0020.0002] # CUNEIFORM SIGN URU TIMES GA
+1233D ; [.4857.0020.0002] # CUNEIFORM SIGN URU TIMES GAL
+1233E ; [.4858.0020.0002] # CUNEIFORM SIGN URU TIMES GAN2 TENU
+1233F ; [.4859.0020.0002] # CUNEIFORM SIGN URU TIMES GAR
+12340 ; [.485A.0020.0002] # CUNEIFORM SIGN URU TIMES GU
+12341 ; [.485B.0020.0002] # CUNEIFORM SIGN URU TIMES HA
+12342 ; [.485C.0020.0002] # CUNEIFORM SIGN URU TIMES IGI
+12343 ; [.485D.0020.0002] # CUNEIFORM SIGN URU TIMES IM
+12344 ; [.485E.0020.0002] # CUNEIFORM SIGN URU TIMES ISH
+12345 ; [.485F.0020.0002] # CUNEIFORM SIGN URU TIMES KI
+12346 ; [.4860.0020.0002] # CUNEIFORM SIGN URU TIMES LUM
+12347 ; [.4861.0020.0002] # CUNEIFORM SIGN URU TIMES MIN
+12348 ; [.4862.0020.0002] # CUNEIFORM SIGN URU TIMES PA
+12349 ; [.4863.0020.0002] # CUNEIFORM SIGN URU TIMES SHE
+1234A ; [.4864.0020.0002] # CUNEIFORM SIGN URU TIMES SIG4
+1234B ; [.4865.0020.0002] # CUNEIFORM SIGN URU TIMES TU
+1234C ; [.4866.0020.0002] # CUNEIFORM SIGN URU TIMES U PLUS GUD
+1234D ; [.4867.0020.0002] # CUNEIFORM SIGN URU TIMES UD
+1234E ; [.4868.0020.0002] # CUNEIFORM SIGN URU TIMES URUDA
+1234F ; [.4869.0020.0002] # CUNEIFORM SIGN URUDA
+12350 ; [.486A.0020.0002] # CUNEIFORM SIGN URUDA TIMES U
+12351 ; [.486B.0020.0002] # CUNEIFORM SIGN USH
+12352 ; [.486C.0020.0002] # CUNEIFORM SIGN USH TIMES A
+12353 ; [.486D.0020.0002] # CUNEIFORM SIGN USH TIMES KU
+12354 ; [.486E.0020.0002] # CUNEIFORM SIGN USH TIMES KUR
+12355 ; [.486F.0020.0002] # CUNEIFORM SIGN USH TIMES TAK4
+12356 ; [.4870.0020.0002] # CUNEIFORM SIGN USHX
+12357 ; [.4871.0020.0002] # CUNEIFORM SIGN USH2
+12358 ; [.4872.0020.0002] # CUNEIFORM SIGN USHUMX
+12359 ; [.4873.0020.0002] # CUNEIFORM SIGN UTUKI
+1235A ; [.4874.0020.0002] # CUNEIFORM SIGN UZ3
+1235B ; [.4875.0020.0002] # CUNEIFORM SIGN UZ3 TIMES KASKAL
+1235C ; [.4876.0020.0002] # CUNEIFORM SIGN UZU
+1235D ; [.4877.0020.0002] # CUNEIFORM SIGN ZA
+1235E ; [.4878.0020.0002] # CUNEIFORM SIGN ZA TENU
+1235F ; [.4879.0020.0002] # CUNEIFORM SIGN ZA SQUARED TIMES KUR
+12360 ; [.487A.0020.0002] # CUNEIFORM SIGN ZAG
+12361 ; [.487B.0020.0002] # CUNEIFORM SIGN ZAMX
+12362 ; [.487C.0020.0002] # CUNEIFORM SIGN ZE2
+12363 ; [.487D.0020.0002] # CUNEIFORM SIGN ZI
+12364 ; [.487E.0020.0002] # CUNEIFORM SIGN ZI OVER ZI
+12365 ; [.487F.0020.0002] # CUNEIFORM SIGN ZI3
+12366 ; [.4880.0020.0002] # CUNEIFORM SIGN ZIB
+12367 ; [.4881.0020.0002] # CUNEIFORM SIGN ZIB KABA TENU
+12368 ; [.4882.0020.0002] # CUNEIFORM SIGN ZIG
+12369 ; [.4883.0020.0002] # CUNEIFORM SIGN ZIZ2
+1236A ; [.4884.0020.0002] # CUNEIFORM SIGN ZU
+1236B ; [.4885.0020.0002] # CUNEIFORM SIGN ZU5
+1236C ; [.4886.0020.0002] # CUNEIFORM SIGN ZU5 TIMES A
+1236D ; [.4887.0020.0002] # CUNEIFORM SIGN ZUBUR
+1236E ; [.4888.0020.0002] # CUNEIFORM SIGN ZUM
+1236F ; [.4889.0020.0002] # CUNEIFORM SIGN KAP ELAMITE
+12370 ; [.488A.0020.0002] # CUNEIFORM SIGN AB TIMES NUN
+12371 ; [.488B.0020.0002] # CUNEIFORM SIGN AB2 TIMES A
+12372 ; [.488C.0020.0002] # CUNEIFORM SIGN AMAR TIMES KUG
+12373 ; [.488D.0020.0002] # CUNEIFORM SIGN DAG KISIM5 TIMES U2 PLUS MASH
+12374 ; [.488E.0020.0002] # CUNEIFORM SIGN DAG3
+12375 ; [.488F.0020.0002] # CUNEIFORM SIGN DISH PLUS SHU
+12376 ; [.4890.0020.0002] # CUNEIFORM SIGN DUB TIMES SHE
+12377 ; [.4891.0020.0002] # CUNEIFORM SIGN EZEN TIMES GUD
+12378 ; [.4892.0020.0002] # CUNEIFORM SIGN EZEN TIMES SHE
+12379 ; [.4893.0020.0002] # CUNEIFORM SIGN GA2 TIMES AN PLUS KAK PLUS A
+1237A ; [.4894.0020.0002] # CUNEIFORM SIGN GA2 TIMES ASH2
+1237B ; [.4895.0020.0002] # CUNEIFORM SIGN GE22
+1237C ; [.4896.0020.0002] # CUNEIFORM SIGN GIG
+1237D ; [.4897.0020.0002] # CUNEIFORM SIGN HUSH
+1237E ; [.4898.0020.0002] # CUNEIFORM SIGN KA TIMES ANSHE
+1237F ; [.4899.0020.0002] # CUNEIFORM SIGN KA TIMES ASH3
+12380 ; [.489A.0020.0002] # CUNEIFORM SIGN KA TIMES GISH
+12381 ; [.489B.0020.0002] # CUNEIFORM SIGN KA TIMES GUD
+12382 ; [.489C.0020.0002] # CUNEIFORM SIGN KA TIMES HI TIMES ASH2
+12383 ; [.489D.0020.0002] # CUNEIFORM SIGN KA TIMES LUM
+12384 ; [.489E.0020.0002] # CUNEIFORM SIGN KA TIMES PA
+12385 ; [.489F.0020.0002] # CUNEIFORM SIGN KA TIMES SHUL
+12386 ; [.48A0.0020.0002] # CUNEIFORM SIGN KA TIMES TU
+12387 ; [.48A1.0020.0002] # CUNEIFORM SIGN KA TIMES UR2
+12388 ; [.48A2.0020.0002] # CUNEIFORM SIGN LAGAB TIMES GI
+12389 ; [.48A3.0020.0002] # CUNEIFORM SIGN LU2 SHESHIG TIMES BAD
+1238A ; [.48A4.0020.0002] # CUNEIFORM SIGN LU2 TIMES ESH2 PLUS LAL
+1238B ; [.48A5.0020.0002] # CUNEIFORM SIGN LU2 TIMES SHU
+1238C ; [.48A6.0020.0002] # CUNEIFORM SIGN MESH
+1238D ; [.48A7.0020.0002] # CUNEIFORM SIGN MUSH3 TIMES ZA
+1238E ; [.48A8.0020.0002] # CUNEIFORM SIGN NA4
+1238F ; [.48A9.0020.0002] # CUNEIFORM SIGN NIN
+12390 ; [.48AA.0020.0002] # CUNEIFORM SIGN NIN9
+12391 ; [.48AB.0020.0002] # CUNEIFORM SIGN NINDA2 TIMES BAL
+12392 ; [.48AC.0020.0002] # CUNEIFORM SIGN NINDA2 TIMES GI
+12393 ; [.48AD.0020.0002] # CUNEIFORM SIGN NU11 ROTATED NINETY DEGREES
+12394 ; [.48AE.0020.0002] # CUNEIFORM SIGN PESH2 ASTERISK
+12395 ; [.48AF.0020.0002] # CUNEIFORM SIGN PIR2
+12396 ; [.48B0.0020.0002] # CUNEIFORM SIGN SAG TIMES IGI GUNU
+12397 ; [.48B1.0020.0002] # CUNEIFORM SIGN TI2
+12398 ; [.48B2.0020.0002] # CUNEIFORM SIGN UM TIMES ME
+13000 ; [.48B3.0020.0002] # EGYPTIAN HIEROGLYPH A001
+13001 ; [.48B4.0020.0002] # EGYPTIAN HIEROGLYPH A002
+13002 ; [.48B5.0020.0002] # EGYPTIAN HIEROGLYPH A003
+13003 ; [.48B6.0020.0002] # EGYPTIAN HIEROGLYPH A004
+13004 ; [.48B7.0020.0002] # EGYPTIAN HIEROGLYPH A005
+13005 ; [.48B8.0020.0002] # EGYPTIAN HIEROGLYPH A005A
+13006 ; [.48B9.0020.0002] # EGYPTIAN HIEROGLYPH A006
+13007 ; [.48BA.0020.0002] # EGYPTIAN HIEROGLYPH A006A
+13008 ; [.48BB.0020.0002] # EGYPTIAN HIEROGLYPH A006B
+13009 ; [.48BC.0020.0002] # EGYPTIAN HIEROGLYPH A007
+1300A ; [.48BD.0020.0002] # EGYPTIAN HIEROGLYPH A008
+1300B ; [.48BE.0020.0002] # EGYPTIAN HIEROGLYPH A009
+1300C ; [.48BF.0020.0002] # EGYPTIAN HIEROGLYPH A010
+1300D ; [.48C0.0020.0002] # EGYPTIAN HIEROGLYPH A011
+1300E ; [.48C1.0020.0002] # EGYPTIAN HIEROGLYPH A012
+1300F ; [.48C2.0020.0002] # EGYPTIAN HIEROGLYPH A013
+13010 ; [.48C3.0020.0002] # EGYPTIAN HIEROGLYPH A014
+13011 ; [.48C4.0020.0002] # EGYPTIAN HIEROGLYPH A014A
+13012 ; [.48C5.0020.0002] # EGYPTIAN HIEROGLYPH A015
+13013 ; [.48C6.0020.0002] # EGYPTIAN HIEROGLYPH A016
+13014 ; [.48C7.0020.0002] # EGYPTIAN HIEROGLYPH A017
+13015 ; [.48C8.0020.0002] # EGYPTIAN HIEROGLYPH A017A
+13016 ; [.48C9.0020.0002] # EGYPTIAN HIEROGLYPH A018
+13017 ; [.48CA.0020.0002] # EGYPTIAN HIEROGLYPH A019
+13018 ; [.48CB.0020.0002] # EGYPTIAN HIEROGLYPH A020
+13019 ; [.48CC.0020.0002] # EGYPTIAN HIEROGLYPH A021
+1301A ; [.48CD.0020.0002] # EGYPTIAN HIEROGLYPH A022
+1301B ; [.48CE.0020.0002] # EGYPTIAN HIEROGLYPH A023
+1301C ; [.48CF.0020.0002] # EGYPTIAN HIEROGLYPH A024
+1301D ; [.48D0.0020.0002] # EGYPTIAN HIEROGLYPH A025
+1301E ; [.48D1.0020.0002] # EGYPTIAN HIEROGLYPH A026
+1301F ; [.48D2.0020.0002] # EGYPTIAN HIEROGLYPH A027
+13020 ; [.48D3.0020.0002] # EGYPTIAN HIEROGLYPH A028
+13021 ; [.48D4.0020.0002] # EGYPTIAN HIEROGLYPH A029
+13022 ; [.48D5.0020.0002] # EGYPTIAN HIEROGLYPH A030
+13023 ; [.48D6.0020.0002] # EGYPTIAN HIEROGLYPH A031
+13024 ; [.48D7.0020.0002] # EGYPTIAN HIEROGLYPH A032
+13025 ; [.48D8.0020.0002] # EGYPTIAN HIEROGLYPH A032A
+13026 ; [.48D9.0020.0002] # EGYPTIAN HIEROGLYPH A033
+13027 ; [.48DA.0020.0002] # EGYPTIAN HIEROGLYPH A034
+13028 ; [.48DB.0020.0002] # EGYPTIAN HIEROGLYPH A035
+13029 ; [.48DC.0020.0002] # EGYPTIAN HIEROGLYPH A036
+1302A ; [.48DD.0020.0002] # EGYPTIAN HIEROGLYPH A037
+1302B ; [.48DE.0020.0002] # EGYPTIAN HIEROGLYPH A038
+1302C ; [.48DF.0020.0002] # EGYPTIAN HIEROGLYPH A039
+1302D ; [.48E0.0020.0002] # EGYPTIAN HIEROGLYPH A040
+1302E ; [.48E1.0020.0002] # EGYPTIAN HIEROGLYPH A040A
+1302F ; [.48E2.0020.0002] # EGYPTIAN HIEROGLYPH A041
+13030 ; [.48E3.0020.0002] # EGYPTIAN HIEROGLYPH A042
+13031 ; [.48E4.0020.0002] # EGYPTIAN HIEROGLYPH A042A
+13032 ; [.48E5.0020.0002] # EGYPTIAN HIEROGLYPH A043
+13033 ; [.48E6.0020.0002] # EGYPTIAN HIEROGLYPH A043A
+13034 ; [.48E7.0020.0002] # EGYPTIAN HIEROGLYPH A044
+13035 ; [.48E8.0020.0002] # EGYPTIAN HIEROGLYPH A045
+13036 ; [.48E9.0020.0002] # EGYPTIAN HIEROGLYPH A045A
+13037 ; [.48EA.0020.0002] # EGYPTIAN HIEROGLYPH A046
+13038 ; [.48EB.0020.0002] # EGYPTIAN HIEROGLYPH A047
+13039 ; [.48EC.0020.0002] # EGYPTIAN HIEROGLYPH A048
+1303A ; [.48ED.0020.0002] # EGYPTIAN HIEROGLYPH A049
+1303B ; [.48EE.0020.0002] # EGYPTIAN HIEROGLYPH A050
+1303C ; [.48EF.0020.0002] # EGYPTIAN HIEROGLYPH A051
+1303D ; [.48F0.0020.0002] # EGYPTIAN HIEROGLYPH A052
+1303E ; [.48F1.0020.0002] # EGYPTIAN HIEROGLYPH A053
+1303F ; [.48F2.0020.0002] # EGYPTIAN HIEROGLYPH A054
+13040 ; [.48F3.0020.0002] # EGYPTIAN HIEROGLYPH A055
+13041 ; [.48F4.0020.0002] # EGYPTIAN HIEROGLYPH A056
+13042 ; [.48F5.0020.0002] # EGYPTIAN HIEROGLYPH A057
+13043 ; [.48F6.0020.0002] # EGYPTIAN HIEROGLYPH A058
+13044 ; [.48F7.0020.0002] # EGYPTIAN HIEROGLYPH A059
+13045 ; [.48F8.0020.0002] # EGYPTIAN HIEROGLYPH A060
+13046 ; [.48F9.0020.0002] # EGYPTIAN HIEROGLYPH A061
+13047 ; [.48FA.0020.0002] # EGYPTIAN HIEROGLYPH A062
+13048 ; [.48FB.0020.0002] # EGYPTIAN HIEROGLYPH A063
+13049 ; [.48FC.0020.0002] # EGYPTIAN HIEROGLYPH A064
+1304A ; [.48FD.0020.0002] # EGYPTIAN HIEROGLYPH A065
+1304B ; [.48FE.0020.0002] # EGYPTIAN HIEROGLYPH A066
+1304C ; [.48FF.0020.0002] # EGYPTIAN HIEROGLYPH A067
+1304D ; [.4900.0020.0002] # EGYPTIAN HIEROGLYPH A068
+1304E ; [.4901.0020.0002] # EGYPTIAN HIEROGLYPH A069
+1304F ; [.4902.0020.0002] # EGYPTIAN HIEROGLYPH A070
+13050 ; [.4903.0020.0002] # EGYPTIAN HIEROGLYPH B001
+13051 ; [.4904.0020.0002] # EGYPTIAN HIEROGLYPH B002
+13052 ; [.4905.0020.0002] # EGYPTIAN HIEROGLYPH B003
+13053 ; [.4906.0020.0002] # EGYPTIAN HIEROGLYPH B004
+13054 ; [.4907.0020.0002] # EGYPTIAN HIEROGLYPH B005
+13055 ; [.4908.0020.0002] # EGYPTIAN HIEROGLYPH B005A
+13056 ; [.4909.0020.0002] # EGYPTIAN HIEROGLYPH B006
+13057 ; [.490A.0020.0002] # EGYPTIAN HIEROGLYPH B007
+13058 ; [.490B.0020.0002] # EGYPTIAN HIEROGLYPH B008
+13059 ; [.490C.0020.0002] # EGYPTIAN HIEROGLYPH B009
+1305A ; [.490D.0020.0002] # EGYPTIAN HIEROGLYPH C001
+1305B ; [.490E.0020.0002] # EGYPTIAN HIEROGLYPH C002
+1305C ; [.490F.0020.0002] # EGYPTIAN HIEROGLYPH C002A
+1305D ; [.4910.0020.0002] # EGYPTIAN HIEROGLYPH C002B
+1305E ; [.4911.0020.0002] # EGYPTIAN HIEROGLYPH C002C
+1305F ; [.4912.0020.0002] # EGYPTIAN HIEROGLYPH C003
+13060 ; [.4913.0020.0002] # EGYPTIAN HIEROGLYPH C004
+13061 ; [.4914.0020.0002] # EGYPTIAN HIEROGLYPH C005
+13062 ; [.4915.0020.0002] # EGYPTIAN HIEROGLYPH C006
+13063 ; [.4916.0020.0002] # EGYPTIAN HIEROGLYPH C007
+13064 ; [.4917.0020.0002] # EGYPTIAN HIEROGLYPH C008
+13065 ; [.4918.0020.0002] # EGYPTIAN HIEROGLYPH C009
+13066 ; [.4919.0020.0002] # EGYPTIAN HIEROGLYPH C010
+13067 ; [.491A.0020.0002] # EGYPTIAN HIEROGLYPH C010A
+13068 ; [.491B.0020.0002] # EGYPTIAN HIEROGLYPH C011
+13069 ; [.491C.0020.0002] # EGYPTIAN HIEROGLYPH C012
+1306A ; [.491D.0020.0002] # EGYPTIAN HIEROGLYPH C013
+1306B ; [.491E.0020.0002] # EGYPTIAN HIEROGLYPH C014
+1306C ; [.491F.0020.0002] # EGYPTIAN HIEROGLYPH C015
+1306D ; [.4920.0020.0002] # EGYPTIAN HIEROGLYPH C016
+1306E ; [.4921.0020.0002] # EGYPTIAN HIEROGLYPH C017
+1306F ; [.4922.0020.0002] # EGYPTIAN HIEROGLYPH C018
+13070 ; [.4923.0020.0002] # EGYPTIAN HIEROGLYPH C019
+13071 ; [.4924.0020.0002] # EGYPTIAN HIEROGLYPH C020
+13072 ; [.4925.0020.0002] # EGYPTIAN HIEROGLYPH C021
+13073 ; [.4926.0020.0002] # EGYPTIAN HIEROGLYPH C022
+13074 ; [.4927.0020.0002] # EGYPTIAN HIEROGLYPH C023
+13075 ; [.4928.0020.0002] # EGYPTIAN HIEROGLYPH C024
+13076 ; [.4929.0020.0002] # EGYPTIAN HIEROGLYPH D001
+13077 ; [.492A.0020.0002] # EGYPTIAN HIEROGLYPH D002
+13078 ; [.492B.0020.0002] # EGYPTIAN HIEROGLYPH D003
+13079 ; [.492C.0020.0002] # EGYPTIAN HIEROGLYPH D004
+1307A ; [.492D.0020.0002] # EGYPTIAN HIEROGLYPH D005
+1307B ; [.492E.0020.0002] # EGYPTIAN HIEROGLYPH D006
+1307C ; [.492F.0020.0002] # EGYPTIAN HIEROGLYPH D007
+1307D ; [.4930.0020.0002] # EGYPTIAN HIEROGLYPH D008
+1307E ; [.4931.0020.0002] # EGYPTIAN HIEROGLYPH D008A
+1307F ; [.4932.0020.0002] # EGYPTIAN HIEROGLYPH D009
+13080 ; [.4933.0020.0002] # EGYPTIAN HIEROGLYPH D010
+13081 ; [.4934.0020.0002] # EGYPTIAN HIEROGLYPH D011
+13082 ; [.4935.0020.0002] # EGYPTIAN HIEROGLYPH D012
+13083 ; [.4936.0020.0002] # EGYPTIAN HIEROGLYPH D013
+13084 ; [.4937.0020.0002] # EGYPTIAN HIEROGLYPH D014
+13085 ; [.4938.0020.0002] # EGYPTIAN HIEROGLYPH D015
+13086 ; [.4939.0020.0002] # EGYPTIAN HIEROGLYPH D016
+13087 ; [.493A.0020.0002] # EGYPTIAN HIEROGLYPH D017
+13088 ; [.493B.0020.0002] # EGYPTIAN HIEROGLYPH D018
+13089 ; [.493C.0020.0002] # EGYPTIAN HIEROGLYPH D019
+1308A ; [.493D.0020.0002] # EGYPTIAN HIEROGLYPH D020
+1308B ; [.493E.0020.0002] # EGYPTIAN HIEROGLYPH D021
+1308C ; [.493F.0020.0002] # EGYPTIAN HIEROGLYPH D022
+1308D ; [.4940.0020.0002] # EGYPTIAN HIEROGLYPH D023
+1308E ; [.4941.0020.0002] # EGYPTIAN HIEROGLYPH D024
+1308F ; [.4942.0020.0002] # EGYPTIAN HIEROGLYPH D025
+13090 ; [.4943.0020.0002] # EGYPTIAN HIEROGLYPH D026
+13091 ; [.4944.0020.0002] # EGYPTIAN HIEROGLYPH D027
+13092 ; [.4945.0020.0002] # EGYPTIAN HIEROGLYPH D027A
+13093 ; [.4946.0020.0002] # EGYPTIAN HIEROGLYPH D028
+13094 ; [.4947.0020.0002] # EGYPTIAN HIEROGLYPH D029
+13095 ; [.4948.0020.0002] # EGYPTIAN HIEROGLYPH D030
+13096 ; [.4949.0020.0002] # EGYPTIAN HIEROGLYPH D031
+13097 ; [.494A.0020.0002] # EGYPTIAN HIEROGLYPH D031A
+13098 ; [.494B.0020.0002] # EGYPTIAN HIEROGLYPH D032
+13099 ; [.494C.0020.0002] # EGYPTIAN HIEROGLYPH D033
+1309A ; [.494D.0020.0002] # EGYPTIAN HIEROGLYPH D034
+1309B ; [.494E.0020.0002] # EGYPTIAN HIEROGLYPH D034A
+1309C ; [.494F.0020.0002] # EGYPTIAN HIEROGLYPH D035
+1309D ; [.4950.0020.0002] # EGYPTIAN HIEROGLYPH D036
+1309E ; [.4951.0020.0002] # EGYPTIAN HIEROGLYPH D037
+1309F ; [.4952.0020.0002] # EGYPTIAN HIEROGLYPH D038
+130A0 ; [.4953.0020.0002] # EGYPTIAN HIEROGLYPH D039
+130A1 ; [.4954.0020.0002] # EGYPTIAN HIEROGLYPH D040
+130A2 ; [.4955.0020.0002] # EGYPTIAN HIEROGLYPH D041
+130A3 ; [.4956.0020.0002] # EGYPTIAN HIEROGLYPH D042
+130A4 ; [.4957.0020.0002] # EGYPTIAN HIEROGLYPH D043
+130A5 ; [.4958.0020.0002] # EGYPTIAN HIEROGLYPH D044
+130A6 ; [.4959.0020.0002] # EGYPTIAN HIEROGLYPH D045
+130A7 ; [.495A.0020.0002] # EGYPTIAN HIEROGLYPH D046
+130A8 ; [.495B.0020.0002] # EGYPTIAN HIEROGLYPH D046A
+130A9 ; [.495C.0020.0002] # EGYPTIAN HIEROGLYPH D047
+130AA ; [.495D.0020.0002] # EGYPTIAN HIEROGLYPH D048
+130AB ; [.495E.0020.0002] # EGYPTIAN HIEROGLYPH D048A
+130AC ; [.495F.0020.0002] # EGYPTIAN HIEROGLYPH D049
+130AD ; [.4960.0020.0002] # EGYPTIAN HIEROGLYPH D050
+130AE ; [.4961.0020.0002] # EGYPTIAN HIEROGLYPH D050A
+130AF ; [.4962.0020.0002] # EGYPTIAN HIEROGLYPH D050B
+130B0 ; [.4963.0020.0002] # EGYPTIAN HIEROGLYPH D050C
+130B1 ; [.4964.0020.0002] # EGYPTIAN HIEROGLYPH D050D
+130B2 ; [.4965.0020.0002] # EGYPTIAN HIEROGLYPH D050E
+130B3 ; [.4966.0020.0002] # EGYPTIAN HIEROGLYPH D050F
+130B4 ; [.4967.0020.0002] # EGYPTIAN HIEROGLYPH D050G
+130B5 ; [.4968.0020.0002] # EGYPTIAN HIEROGLYPH D050H
+130B6 ; [.4969.0020.0002] # EGYPTIAN HIEROGLYPH D050I
+130B7 ; [.496A.0020.0002] # EGYPTIAN HIEROGLYPH D051
+130B8 ; [.496B.0020.0002] # EGYPTIAN HIEROGLYPH D052
+130B9 ; [.496C.0020.0002] # EGYPTIAN HIEROGLYPH D052A
+130BA ; [.496D.0020.0002] # EGYPTIAN HIEROGLYPH D053
+130BB ; [.496E.0020.0002] # EGYPTIAN HIEROGLYPH D054
+130BC ; [.496F.0020.0002] # EGYPTIAN HIEROGLYPH D054A
+130BD ; [.4970.0020.0002] # EGYPTIAN HIEROGLYPH D055
+130BE ; [.4971.0020.0002] # EGYPTIAN HIEROGLYPH D056
+130BF ; [.4972.0020.0002] # EGYPTIAN HIEROGLYPH D057
+130C0 ; [.4973.0020.0002] # EGYPTIAN HIEROGLYPH D058
+130C1 ; [.4974.0020.0002] # EGYPTIAN HIEROGLYPH D059
+130C2 ; [.4975.0020.0002] # EGYPTIAN HIEROGLYPH D060
+130C3 ; [.4976.0020.0002] # EGYPTIAN HIEROGLYPH D061
+130C4 ; [.4977.0020.0002] # EGYPTIAN HIEROGLYPH D062
+130C5 ; [.4978.0020.0002] # EGYPTIAN HIEROGLYPH D063
+130C6 ; [.4979.0020.0002] # EGYPTIAN HIEROGLYPH D064
+130C7 ; [.497A.0020.0002] # EGYPTIAN HIEROGLYPH D065
+130C8 ; [.497B.0020.0002] # EGYPTIAN HIEROGLYPH D066
+130C9 ; [.497C.0020.0002] # EGYPTIAN HIEROGLYPH D067
+130CA ; [.497D.0020.0002] # EGYPTIAN HIEROGLYPH D067A
+130CB ; [.497E.0020.0002] # EGYPTIAN HIEROGLYPH D067B
+130CC ; [.497F.0020.0002] # EGYPTIAN HIEROGLYPH D067C
+130CD ; [.4980.0020.0002] # EGYPTIAN HIEROGLYPH D067D
+130CE ; [.4981.0020.0002] # EGYPTIAN HIEROGLYPH D067E
+130CF ; [.4982.0020.0002] # EGYPTIAN HIEROGLYPH D067F
+130D0 ; [.4983.0020.0002] # EGYPTIAN HIEROGLYPH D067G
+130D1 ; [.4984.0020.0002] # EGYPTIAN HIEROGLYPH D067H
+130D2 ; [.4985.0020.0002] # EGYPTIAN HIEROGLYPH E001
+130D3 ; [.4986.0020.0002] # EGYPTIAN HIEROGLYPH E002
+130D4 ; [.4987.0020.0002] # EGYPTIAN HIEROGLYPH E003
+130D5 ; [.4988.0020.0002] # EGYPTIAN HIEROGLYPH E004
+130D6 ; [.4989.0020.0002] # EGYPTIAN HIEROGLYPH E005
+130D7 ; [.498A.0020.0002] # EGYPTIAN HIEROGLYPH E006
+130D8 ; [.498B.0020.0002] # EGYPTIAN HIEROGLYPH E007
+130D9 ; [.498C.0020.0002] # EGYPTIAN HIEROGLYPH E008
+130DA ; [.498D.0020.0002] # EGYPTIAN HIEROGLYPH E008A
+130DB ; [.498E.0020.0002] # EGYPTIAN HIEROGLYPH E009
+130DC ; [.498F.0020.0002] # EGYPTIAN HIEROGLYPH E009A
+130DD ; [.4990.0020.0002] # EGYPTIAN HIEROGLYPH E010
+130DE ; [.4991.0020.0002] # EGYPTIAN HIEROGLYPH E011
+130DF ; [.4992.0020.0002] # EGYPTIAN HIEROGLYPH E012
+130E0 ; [.4993.0020.0002] # EGYPTIAN HIEROGLYPH E013
+130E1 ; [.4994.0020.0002] # EGYPTIAN HIEROGLYPH E014
+130E2 ; [.4995.0020.0002] # EGYPTIAN HIEROGLYPH E015
+130E3 ; [.4996.0020.0002] # EGYPTIAN HIEROGLYPH E016
+130E4 ; [.4997.0020.0002] # EGYPTIAN HIEROGLYPH E016A
+130E5 ; [.4998.0020.0002] # EGYPTIAN HIEROGLYPH E017
+130E6 ; [.4999.0020.0002] # EGYPTIAN HIEROGLYPH E017A
+130E7 ; [.499A.0020.0002] # EGYPTIAN HIEROGLYPH E018
+130E8 ; [.499B.0020.0002] # EGYPTIAN HIEROGLYPH E019
+130E9 ; [.499C.0020.0002] # EGYPTIAN HIEROGLYPH E020
+130EA ; [.499D.0020.0002] # EGYPTIAN HIEROGLYPH E020A
+130EB ; [.499E.0020.0002] # EGYPTIAN HIEROGLYPH E021
+130EC ; [.499F.0020.0002] # EGYPTIAN HIEROGLYPH E022
+130ED ; [.49A0.0020.0002] # EGYPTIAN HIEROGLYPH E023
+130EE ; [.49A1.0020.0002] # EGYPTIAN HIEROGLYPH E024
+130EF ; [.49A2.0020.0002] # EGYPTIAN HIEROGLYPH E025
+130F0 ; [.49A3.0020.0002] # EGYPTIAN HIEROGLYPH E026
+130F1 ; [.49A4.0020.0002] # EGYPTIAN HIEROGLYPH E027
+130F2 ; [.49A5.0020.0002] # EGYPTIAN HIEROGLYPH E028
+130F3 ; [.49A6.0020.0002] # EGYPTIAN HIEROGLYPH E028A
+130F4 ; [.49A7.0020.0002] # EGYPTIAN HIEROGLYPH E029
+130F5 ; [.49A8.0020.0002] # EGYPTIAN HIEROGLYPH E030
+130F6 ; [.49A9.0020.0002] # EGYPTIAN HIEROGLYPH E031
+130F7 ; [.49AA.0020.0002] # EGYPTIAN HIEROGLYPH E032
+130F8 ; [.49AB.0020.0002] # EGYPTIAN HIEROGLYPH E033
+130F9 ; [.49AC.0020.0002] # EGYPTIAN HIEROGLYPH E034
+130FA ; [.49AD.0020.0002] # EGYPTIAN HIEROGLYPH E034A
+130FB ; [.49AE.0020.0002] # EGYPTIAN HIEROGLYPH E036
+130FC ; [.49AF.0020.0002] # EGYPTIAN HIEROGLYPH E037
+130FD ; [.49B0.0020.0002] # EGYPTIAN HIEROGLYPH E038
+130FE ; [.49B1.0020.0002] # EGYPTIAN HIEROGLYPH F001
+130FF ; [.49B2.0020.0002] # EGYPTIAN HIEROGLYPH F001A
+13100 ; [.49B3.0020.0002] # EGYPTIAN HIEROGLYPH F002
+13101 ; [.49B4.0020.0002] # EGYPTIAN HIEROGLYPH F003
+13102 ; [.49B5.0020.0002] # EGYPTIAN HIEROGLYPH F004
+13103 ; [.49B6.0020.0002] # EGYPTIAN HIEROGLYPH F005
+13104 ; [.49B7.0020.0002] # EGYPTIAN HIEROGLYPH F006
+13105 ; [.49B8.0020.0002] # EGYPTIAN HIEROGLYPH F007
+13106 ; [.49B9.0020.0002] # EGYPTIAN HIEROGLYPH F008
+13107 ; [.49BA.0020.0002] # EGYPTIAN HIEROGLYPH F009
+13108 ; [.49BB.0020.0002] # EGYPTIAN HIEROGLYPH F010
+13109 ; [.49BC.0020.0002] # EGYPTIAN HIEROGLYPH F011
+1310A ; [.49BD.0020.0002] # EGYPTIAN HIEROGLYPH F012
+1310B ; [.49BE.0020.0002] # EGYPTIAN HIEROGLYPH F013
+1310C ; [.49BF.0020.0002] # EGYPTIAN HIEROGLYPH F013A
+1310D ; [.49C0.0020.0002] # EGYPTIAN HIEROGLYPH F014
+1310E ; [.49C1.0020.0002] # EGYPTIAN HIEROGLYPH F015
+1310F ; [.49C2.0020.0002] # EGYPTIAN HIEROGLYPH F016
+13110 ; [.49C3.0020.0002] # EGYPTIAN HIEROGLYPH F017
+13111 ; [.49C4.0020.0002] # EGYPTIAN HIEROGLYPH F018
+13112 ; [.49C5.0020.0002] # EGYPTIAN HIEROGLYPH F019
+13113 ; [.49C6.0020.0002] # EGYPTIAN HIEROGLYPH F020
+13114 ; [.49C7.0020.0002] # EGYPTIAN HIEROGLYPH F021
+13115 ; [.49C8.0020.0002] # EGYPTIAN HIEROGLYPH F021A
+13116 ; [.49C9.0020.0002] # EGYPTIAN HIEROGLYPH F022
+13117 ; [.49CA.0020.0002] # EGYPTIAN HIEROGLYPH F023
+13118 ; [.49CB.0020.0002] # EGYPTIAN HIEROGLYPH F024
+13119 ; [.49CC.0020.0002] # EGYPTIAN HIEROGLYPH F025
+1311A ; [.49CD.0020.0002] # EGYPTIAN HIEROGLYPH F026
+1311B ; [.49CE.0020.0002] # EGYPTIAN HIEROGLYPH F027
+1311C ; [.49CF.0020.0002] # EGYPTIAN HIEROGLYPH F028
+1311D ; [.49D0.0020.0002] # EGYPTIAN HIEROGLYPH F029
+1311E ; [.49D1.0020.0002] # EGYPTIAN HIEROGLYPH F030
+1311F ; [.49D2.0020.0002] # EGYPTIAN HIEROGLYPH F031
+13120 ; [.49D3.0020.0002] # EGYPTIAN HIEROGLYPH F031A
+13121 ; [.49D4.0020.0002] # EGYPTIAN HIEROGLYPH F032
+13122 ; [.49D5.0020.0002] # EGYPTIAN HIEROGLYPH F033
+13123 ; [.49D6.0020.0002] # EGYPTIAN HIEROGLYPH F034
+13124 ; [.49D7.0020.0002] # EGYPTIAN HIEROGLYPH F035
+13125 ; [.49D8.0020.0002] # EGYPTIAN HIEROGLYPH F036
+13126 ; [.49D9.0020.0002] # EGYPTIAN HIEROGLYPH F037
+13127 ; [.49DA.0020.0002] # EGYPTIAN HIEROGLYPH F037A
+13128 ; [.49DB.0020.0002] # EGYPTIAN HIEROGLYPH F038
+13129 ; [.49DC.0020.0002] # EGYPTIAN HIEROGLYPH F038A
+1312A ; [.49DD.0020.0002] # EGYPTIAN HIEROGLYPH F039
+1312B ; [.49DE.0020.0002] # EGYPTIAN HIEROGLYPH F040
+1312C ; [.49DF.0020.0002] # EGYPTIAN HIEROGLYPH F041
+1312D ; [.49E0.0020.0002] # EGYPTIAN HIEROGLYPH F042
+1312E ; [.49E1.0020.0002] # EGYPTIAN HIEROGLYPH F043
+1312F ; [.49E2.0020.0002] # EGYPTIAN HIEROGLYPH F044
+13130 ; [.49E3.0020.0002] # EGYPTIAN HIEROGLYPH F045
+13131 ; [.49E4.0020.0002] # EGYPTIAN HIEROGLYPH F045A
+13132 ; [.49E5.0020.0002] # EGYPTIAN HIEROGLYPH F046
+13133 ; [.49E6.0020.0002] # EGYPTIAN HIEROGLYPH F046A
+13134 ; [.49E7.0020.0002] # EGYPTIAN HIEROGLYPH F047
+13135 ; [.49E8.0020.0002] # EGYPTIAN HIEROGLYPH F047A
+13136 ; [.49E9.0020.0002] # EGYPTIAN HIEROGLYPH F048
+13137 ; [.49EA.0020.0002] # EGYPTIAN HIEROGLYPH F049
+13138 ; [.49EB.0020.0002] # EGYPTIAN HIEROGLYPH F050
+13139 ; [.49EC.0020.0002] # EGYPTIAN HIEROGLYPH F051
+1313A ; [.49ED.0020.0002] # EGYPTIAN HIEROGLYPH F051A
+1313B ; [.49EE.0020.0002] # EGYPTIAN HIEROGLYPH F051B
+1313C ; [.49EF.0020.0002] # EGYPTIAN HIEROGLYPH F051C
+1313D ; [.49F0.0020.0002] # EGYPTIAN HIEROGLYPH F052
+1313E ; [.49F1.0020.0002] # EGYPTIAN HIEROGLYPH F053
+1313F ; [.49F2.0020.0002] # EGYPTIAN HIEROGLYPH G001
+13140 ; [.49F3.0020.0002] # EGYPTIAN HIEROGLYPH G002
+13141 ; [.49F4.0020.0002] # EGYPTIAN HIEROGLYPH G003
+13142 ; [.49F5.0020.0002] # EGYPTIAN HIEROGLYPH G004
+13143 ; [.49F6.0020.0002] # EGYPTIAN HIEROGLYPH G005
+13144 ; [.49F7.0020.0002] # EGYPTIAN HIEROGLYPH G006
+13145 ; [.49F8.0020.0002] # EGYPTIAN HIEROGLYPH G006A
+13146 ; [.49F9.0020.0002] # EGYPTIAN HIEROGLYPH G007
+13147 ; [.49FA.0020.0002] # EGYPTIAN HIEROGLYPH G007A
+13148 ; [.49FB.0020.0002] # EGYPTIAN HIEROGLYPH G007B
+13149 ; [.49FC.0020.0002] # EGYPTIAN HIEROGLYPH G008
+1314A ; [.49FD.0020.0002] # EGYPTIAN HIEROGLYPH G009
+1314B ; [.49FE.0020.0002] # EGYPTIAN HIEROGLYPH G010
+1314C ; [.49FF.0020.0002] # EGYPTIAN HIEROGLYPH G011
+1314D ; [.4A00.0020.0002] # EGYPTIAN HIEROGLYPH G011A
+1314E ; [.4A01.0020.0002] # EGYPTIAN HIEROGLYPH G012
+1314F ; [.4A02.0020.0002] # EGYPTIAN HIEROGLYPH G013
+13150 ; [.4A03.0020.0002] # EGYPTIAN HIEROGLYPH G014
+13151 ; [.4A04.0020.0002] # EGYPTIAN HIEROGLYPH G015
+13152 ; [.4A05.0020.0002] # EGYPTIAN HIEROGLYPH G016
+13153 ; [.4A06.0020.0002] # EGYPTIAN HIEROGLYPH G017
+13154 ; [.4A07.0020.0002] # EGYPTIAN HIEROGLYPH G018
+13155 ; [.4A08.0020.0002] # EGYPTIAN HIEROGLYPH G019
+13156 ; [.4A09.0020.0002] # EGYPTIAN HIEROGLYPH G020
+13157 ; [.4A0A.0020.0002] # EGYPTIAN HIEROGLYPH G020A
+13158 ; [.4A0B.0020.0002] # EGYPTIAN HIEROGLYPH G021
+13159 ; [.4A0C.0020.0002] # EGYPTIAN HIEROGLYPH G022
+1315A ; [.4A0D.0020.0002] # EGYPTIAN HIEROGLYPH G023
+1315B ; [.4A0E.0020.0002] # EGYPTIAN HIEROGLYPH G024
+1315C ; [.4A0F.0020.0002] # EGYPTIAN HIEROGLYPH G025
+1315D ; [.4A10.0020.0002] # EGYPTIAN HIEROGLYPH G026
+1315E ; [.4A11.0020.0002] # EGYPTIAN HIEROGLYPH G026A
+1315F ; [.4A12.0020.0002] # EGYPTIAN HIEROGLYPH G027
+13160 ; [.4A13.0020.0002] # EGYPTIAN HIEROGLYPH G028
+13161 ; [.4A14.0020.0002] # EGYPTIAN HIEROGLYPH G029
+13162 ; [.4A15.0020.0002] # EGYPTIAN HIEROGLYPH G030
+13163 ; [.4A16.0020.0002] # EGYPTIAN HIEROGLYPH G031
+13164 ; [.4A17.0020.0002] # EGYPTIAN HIEROGLYPH G032
+13165 ; [.4A18.0020.0002] # EGYPTIAN HIEROGLYPH G033
+13166 ; [.4A19.0020.0002] # EGYPTIAN HIEROGLYPH G034
+13167 ; [.4A1A.0020.0002] # EGYPTIAN HIEROGLYPH G035
+13168 ; [.4A1B.0020.0002] # EGYPTIAN HIEROGLYPH G036
+13169 ; [.4A1C.0020.0002] # EGYPTIAN HIEROGLYPH G036A
+1316A ; [.4A1D.0020.0002] # EGYPTIAN HIEROGLYPH G037
+1316B ; [.4A1E.0020.0002] # EGYPTIAN HIEROGLYPH G037A
+1316C ; [.4A1F.0020.0002] # EGYPTIAN HIEROGLYPH G038
+1316D ; [.4A20.0020.0002] # EGYPTIAN HIEROGLYPH G039
+1316E ; [.4A21.0020.0002] # EGYPTIAN HIEROGLYPH G040
+1316F ; [.4A22.0020.0002] # EGYPTIAN HIEROGLYPH G041
+13170 ; [.4A23.0020.0002] # EGYPTIAN HIEROGLYPH G042
+13171 ; [.4A24.0020.0002] # EGYPTIAN HIEROGLYPH G043
+13172 ; [.4A25.0020.0002] # EGYPTIAN HIEROGLYPH G043A
+13173 ; [.4A26.0020.0002] # EGYPTIAN HIEROGLYPH G044
+13174 ; [.4A27.0020.0002] # EGYPTIAN HIEROGLYPH G045
+13175 ; [.4A28.0020.0002] # EGYPTIAN HIEROGLYPH G045A
+13176 ; [.4A29.0020.0002] # EGYPTIAN HIEROGLYPH G046
+13177 ; [.4A2A.0020.0002] # EGYPTIAN HIEROGLYPH G047
+13178 ; [.4A2B.0020.0002] # EGYPTIAN HIEROGLYPH G048
+13179 ; [.4A2C.0020.0002] # EGYPTIAN HIEROGLYPH G049
+1317A ; [.4A2D.0020.0002] # EGYPTIAN HIEROGLYPH G050
+1317B ; [.4A2E.0020.0002] # EGYPTIAN HIEROGLYPH G051
+1317C ; [.4A2F.0020.0002] # EGYPTIAN HIEROGLYPH G052
+1317D ; [.4A30.0020.0002] # EGYPTIAN HIEROGLYPH G053
+1317E ; [.4A31.0020.0002] # EGYPTIAN HIEROGLYPH G054
+1317F ; [.4A32.0020.0002] # EGYPTIAN HIEROGLYPH H001
+13180 ; [.4A33.0020.0002] # EGYPTIAN HIEROGLYPH H002
+13181 ; [.4A34.0020.0002] # EGYPTIAN HIEROGLYPH H003
+13182 ; [.4A35.0020.0002] # EGYPTIAN HIEROGLYPH H004
+13183 ; [.4A36.0020.0002] # EGYPTIAN HIEROGLYPH H005
+13184 ; [.4A37.0020.0002] # EGYPTIAN HIEROGLYPH H006
+13185 ; [.4A38.0020.0002] # EGYPTIAN HIEROGLYPH H006A
+13186 ; [.4A39.0020.0002] # EGYPTIAN HIEROGLYPH H007
+13187 ; [.4A3A.0020.0002] # EGYPTIAN HIEROGLYPH H008
+13188 ; [.4A3B.0020.0002] # EGYPTIAN HIEROGLYPH I001
+13189 ; [.4A3C.0020.0002] # EGYPTIAN HIEROGLYPH I002
+1318A ; [.4A3D.0020.0002] # EGYPTIAN HIEROGLYPH I003
+1318B ; [.4A3E.0020.0002] # EGYPTIAN HIEROGLYPH I004
+1318C ; [.4A3F.0020.0002] # EGYPTIAN HIEROGLYPH I005
+1318D ; [.4A40.0020.0002] # EGYPTIAN HIEROGLYPH I005A
+1318E ; [.4A41.0020.0002] # EGYPTIAN HIEROGLYPH I006
+1318F ; [.4A42.0020.0002] # EGYPTIAN HIEROGLYPH I007
+13190 ; [.4A43.0020.0002] # EGYPTIAN HIEROGLYPH I008
+13191 ; [.4A44.0020.0002] # EGYPTIAN HIEROGLYPH I009
+13192 ; [.4A45.0020.0002] # EGYPTIAN HIEROGLYPH I009A
+13193 ; [.4A46.0020.0002] # EGYPTIAN HIEROGLYPH I010
+13194 ; [.4A47.0020.0002] # EGYPTIAN HIEROGLYPH I010A
+13195 ; [.4A48.0020.0002] # EGYPTIAN HIEROGLYPH I011
+13196 ; [.4A49.0020.0002] # EGYPTIAN HIEROGLYPH I011A
+13197 ; [.4A4A.0020.0002] # EGYPTIAN HIEROGLYPH I012
+13198 ; [.4A4B.0020.0002] # EGYPTIAN HIEROGLYPH I013
+13199 ; [.4A4C.0020.0002] # EGYPTIAN HIEROGLYPH I014
+1319A ; [.4A4D.0020.0002] # EGYPTIAN HIEROGLYPH I015
+1319B ; [.4A4E.0020.0002] # EGYPTIAN HIEROGLYPH K001
+1319C ; [.4A4F.0020.0002] # EGYPTIAN HIEROGLYPH K002
+1319D ; [.4A50.0020.0002] # EGYPTIAN HIEROGLYPH K003
+1319E ; [.4A51.0020.0002] # EGYPTIAN HIEROGLYPH K004
+1319F ; [.4A52.0020.0002] # EGYPTIAN HIEROGLYPH K005
+131A0 ; [.4A53.0020.0002] # EGYPTIAN HIEROGLYPH K006
+131A1 ; [.4A54.0020.0002] # EGYPTIAN HIEROGLYPH K007
+131A2 ; [.4A55.0020.0002] # EGYPTIAN HIEROGLYPH K008
+131A3 ; [.4A56.0020.0002] # EGYPTIAN HIEROGLYPH L001
+131A4 ; [.4A57.0020.0002] # EGYPTIAN HIEROGLYPH L002
+131A5 ; [.4A58.0020.0002] # EGYPTIAN HIEROGLYPH L002A
+131A6 ; [.4A59.0020.0002] # EGYPTIAN HIEROGLYPH L003
+131A7 ; [.4A5A.0020.0002] # EGYPTIAN HIEROGLYPH L004
+131A8 ; [.4A5B.0020.0002] # EGYPTIAN HIEROGLYPH L005
+131A9 ; [.4A5C.0020.0002] # EGYPTIAN HIEROGLYPH L006
+131AA ; [.4A5D.0020.0002] # EGYPTIAN HIEROGLYPH L006A
+131AB ; [.4A5E.0020.0002] # EGYPTIAN HIEROGLYPH L007
+131AC ; [.4A5F.0020.0002] # EGYPTIAN HIEROGLYPH L008
+131AD ; [.4A60.0020.0002] # EGYPTIAN HIEROGLYPH M001
+131AE ; [.4A61.0020.0002] # EGYPTIAN HIEROGLYPH M001A
+131AF ; [.4A62.0020.0002] # EGYPTIAN HIEROGLYPH M001B
+131B0 ; [.4A63.0020.0002] # EGYPTIAN HIEROGLYPH M002
+131B1 ; [.4A64.0020.0002] # EGYPTIAN HIEROGLYPH M003
+131B2 ; [.4A65.0020.0002] # EGYPTIAN HIEROGLYPH M003A
+131B3 ; [.4A66.0020.0002] # EGYPTIAN HIEROGLYPH M004
+131B4 ; [.4A67.0020.0002] # EGYPTIAN HIEROGLYPH M005
+131B5 ; [.4A68.0020.0002] # EGYPTIAN HIEROGLYPH M006
+131B6 ; [.4A69.0020.0002] # EGYPTIAN HIEROGLYPH M007
+131B7 ; [.4A6A.0020.0002] # EGYPTIAN HIEROGLYPH M008
+131B8 ; [.4A6B.0020.0002] # EGYPTIAN HIEROGLYPH M009
+131B9 ; [.4A6C.0020.0002] # EGYPTIAN HIEROGLYPH M010
+131BA ; [.4A6D.0020.0002] # EGYPTIAN HIEROGLYPH M010A
+131BB ; [.4A6E.0020.0002] # EGYPTIAN HIEROGLYPH M011
+131BC ; [.4A6F.0020.0002] # EGYPTIAN HIEROGLYPH M012
+131BD ; [.4A70.0020.0002] # EGYPTIAN HIEROGLYPH M012A
+131BE ; [.4A71.0020.0002] # EGYPTIAN HIEROGLYPH M012B
+131BF ; [.4A72.0020.0002] # EGYPTIAN HIEROGLYPH M012C
+131C0 ; [.4A73.0020.0002] # EGYPTIAN HIEROGLYPH M012D
+131C1 ; [.4A74.0020.0002] # EGYPTIAN HIEROGLYPH M012E
+131C2 ; [.4A75.0020.0002] # EGYPTIAN HIEROGLYPH M012F
+131C3 ; [.4A76.0020.0002] # EGYPTIAN HIEROGLYPH M012G
+131C4 ; [.4A77.0020.0002] # EGYPTIAN HIEROGLYPH M012H
+131C5 ; [.4A78.0020.0002] # EGYPTIAN HIEROGLYPH M013
+131C6 ; [.4A79.0020.0002] # EGYPTIAN HIEROGLYPH M014
+131C7 ; [.4A7A.0020.0002] # EGYPTIAN HIEROGLYPH M015
+131C8 ; [.4A7B.0020.0002] # EGYPTIAN HIEROGLYPH M015A
+131C9 ; [.4A7C.0020.0002] # EGYPTIAN HIEROGLYPH M016
+131CA ; [.4A7D.0020.0002] # EGYPTIAN HIEROGLYPH M016A
+131CB ; [.4A7E.0020.0002] # EGYPTIAN HIEROGLYPH M017
+131CC ; [.4A7F.0020.0002] # EGYPTIAN HIEROGLYPH M017A
+131CD ; [.4A80.0020.0002] # EGYPTIAN HIEROGLYPH M018
+131CE ; [.4A81.0020.0002] # EGYPTIAN HIEROGLYPH M019
+131CF ; [.4A82.0020.0002] # EGYPTIAN HIEROGLYPH M020
+131D0 ; [.4A83.0020.0002] # EGYPTIAN HIEROGLYPH M021
+131D1 ; [.4A84.0020.0002] # EGYPTIAN HIEROGLYPH M022
+131D2 ; [.4A85.0020.0002] # EGYPTIAN HIEROGLYPH M022A
+131D3 ; [.4A86.0020.0002] # EGYPTIAN HIEROGLYPH M023
+131D4 ; [.4A87.0020.0002] # EGYPTIAN HIEROGLYPH M024
+131D5 ; [.4A88.0020.0002] # EGYPTIAN HIEROGLYPH M024A
+131D6 ; [.4A89.0020.0002] # EGYPTIAN HIEROGLYPH M025
+131D7 ; [.4A8A.0020.0002] # EGYPTIAN HIEROGLYPH M026
+131D8 ; [.4A8B.0020.0002] # EGYPTIAN HIEROGLYPH M027
+131D9 ; [.4A8C.0020.0002] # EGYPTIAN HIEROGLYPH M028
+131DA ; [.4A8D.0020.0002] # EGYPTIAN HIEROGLYPH M028A
+131DB ; [.4A8E.0020.0002] # EGYPTIAN HIEROGLYPH M029
+131DC ; [.4A8F.0020.0002] # EGYPTIAN HIEROGLYPH M030
+131DD ; [.4A90.0020.0002] # EGYPTIAN HIEROGLYPH M031
+131DE ; [.4A91.0020.0002] # EGYPTIAN HIEROGLYPH M031A
+131DF ; [.4A92.0020.0002] # EGYPTIAN HIEROGLYPH M032
+131E0 ; [.4A93.0020.0002] # EGYPTIAN HIEROGLYPH M033
+131E1 ; [.4A94.0020.0002] # EGYPTIAN HIEROGLYPH M033A
+131E2 ; [.4A95.0020.0002] # EGYPTIAN HIEROGLYPH M033B
+131E3 ; [.4A96.0020.0002] # EGYPTIAN HIEROGLYPH M034
+131E4 ; [.4A97.0020.0002] # EGYPTIAN HIEROGLYPH M035
+131E5 ; [.4A98.0020.0002] # EGYPTIAN HIEROGLYPH M036
+131E6 ; [.4A99.0020.0002] # EGYPTIAN HIEROGLYPH M037
+131E7 ; [.4A9A.0020.0002] # EGYPTIAN HIEROGLYPH M038
+131E8 ; [.4A9B.0020.0002] # EGYPTIAN HIEROGLYPH M039
+131E9 ; [.4A9C.0020.0002] # EGYPTIAN HIEROGLYPH M040
+131EA ; [.4A9D.0020.0002] # EGYPTIAN HIEROGLYPH M040A
+131EB ; [.4A9E.0020.0002] # EGYPTIAN HIEROGLYPH M041
+131EC ; [.4A9F.0020.0002] # EGYPTIAN HIEROGLYPH M042
+131ED ; [.4AA0.0020.0002] # EGYPTIAN HIEROGLYPH M043
+131EE ; [.4AA1.0020.0002] # EGYPTIAN HIEROGLYPH M044
+131EF ; [.4AA2.0020.0002] # EGYPTIAN HIEROGLYPH N001
+131F0 ; [.4AA3.0020.0002] # EGYPTIAN HIEROGLYPH N002
+131F1 ; [.4AA4.0020.0002] # EGYPTIAN HIEROGLYPH N003
+131F2 ; [.4AA5.0020.0002] # EGYPTIAN HIEROGLYPH N004
+131F3 ; [.4AA6.0020.0002] # EGYPTIAN HIEROGLYPH N005
+131F4 ; [.4AA7.0020.0002] # EGYPTIAN HIEROGLYPH N006
+131F5 ; [.4AA8.0020.0002] # EGYPTIAN HIEROGLYPH N007
+131F6 ; [.4AA9.0020.0002] # EGYPTIAN HIEROGLYPH N008
+131F7 ; [.4AAA.0020.0002] # EGYPTIAN HIEROGLYPH N009
+131F8 ; [.4AAB.0020.0002] # EGYPTIAN HIEROGLYPH N010
+131F9 ; [.4AAC.0020.0002] # EGYPTIAN HIEROGLYPH N011
+131FA ; [.4AAD.0020.0002] # EGYPTIAN HIEROGLYPH N012
+131FB ; [.4AAE.0020.0002] # EGYPTIAN HIEROGLYPH N013
+131FC ; [.4AAF.0020.0002] # EGYPTIAN HIEROGLYPH N014
+131FD ; [.4AB0.0020.0002] # EGYPTIAN HIEROGLYPH N015
+131FE ; [.4AB1.0020.0002] # EGYPTIAN HIEROGLYPH N016
+131FF ; [.4AB2.0020.0002] # EGYPTIAN HIEROGLYPH N017
+13200 ; [.4AB3.0020.0002] # EGYPTIAN HIEROGLYPH N018
+13201 ; [.4AB4.0020.0002] # EGYPTIAN HIEROGLYPH N018A
+13202 ; [.4AB5.0020.0002] # EGYPTIAN HIEROGLYPH N018B
+13203 ; [.4AB6.0020.0002] # EGYPTIAN HIEROGLYPH N019
+13204 ; [.4AB7.0020.0002] # EGYPTIAN HIEROGLYPH N020
+13205 ; [.4AB8.0020.0002] # EGYPTIAN HIEROGLYPH N021
+13206 ; [.4AB9.0020.0002] # EGYPTIAN HIEROGLYPH N022
+13207 ; [.4ABA.0020.0002] # EGYPTIAN HIEROGLYPH N023
+13208 ; [.4ABB.0020.0002] # EGYPTIAN HIEROGLYPH N024
+13209 ; [.4ABC.0020.0002] # EGYPTIAN HIEROGLYPH N025
+1320A ; [.4ABD.0020.0002] # EGYPTIAN HIEROGLYPH N025A
+1320B ; [.4ABE.0020.0002] # EGYPTIAN HIEROGLYPH N026
+1320C ; [.4ABF.0020.0002] # EGYPTIAN HIEROGLYPH N027
+1320D ; [.4AC0.0020.0002] # EGYPTIAN HIEROGLYPH N028
+1320E ; [.4AC1.0020.0002] # EGYPTIAN HIEROGLYPH N029
+1320F ; [.4AC2.0020.0002] # EGYPTIAN HIEROGLYPH N030
+13210 ; [.4AC3.0020.0002] # EGYPTIAN HIEROGLYPH N031
+13211 ; [.4AC4.0020.0002] # EGYPTIAN HIEROGLYPH N032
+13212 ; [.4AC5.0020.0002] # EGYPTIAN HIEROGLYPH N033
+13213 ; [.4AC6.0020.0002] # EGYPTIAN HIEROGLYPH N033A
+13214 ; [.4AC7.0020.0002] # EGYPTIAN HIEROGLYPH N034
+13215 ; [.4AC8.0020.0002] # EGYPTIAN HIEROGLYPH N034A
+13216 ; [.4AC9.0020.0002] # EGYPTIAN HIEROGLYPH N035
+13217 ; [.4ACA.0020.0002] # EGYPTIAN HIEROGLYPH N035A
+13218 ; [.4ACB.0020.0002] # EGYPTIAN HIEROGLYPH N036
+13219 ; [.4ACC.0020.0002] # EGYPTIAN HIEROGLYPH N037
+1321A ; [.4ACD.0020.0002] # EGYPTIAN HIEROGLYPH N037A
+1321B ; [.4ACE.0020.0002] # EGYPTIAN HIEROGLYPH N038
+1321C ; [.4ACF.0020.0002] # EGYPTIAN HIEROGLYPH N039
+1321D ; [.4AD0.0020.0002] # EGYPTIAN HIEROGLYPH N040
+1321E ; [.4AD1.0020.0002] # EGYPTIAN HIEROGLYPH N041
+1321F ; [.4AD2.0020.0002] # EGYPTIAN HIEROGLYPH N042
+13220 ; [.4AD3.0020.0002] # EGYPTIAN HIEROGLYPH NL001
+13221 ; [.4AD4.0020.0002] # EGYPTIAN HIEROGLYPH NL002
+13222 ; [.4AD5.0020.0002] # EGYPTIAN HIEROGLYPH NL003
+13223 ; [.4AD6.0020.0002] # EGYPTIAN HIEROGLYPH NL004
+13224 ; [.4AD7.0020.0002] # EGYPTIAN HIEROGLYPH NL005
+13225 ; [.4AD8.0020.0002] # EGYPTIAN HIEROGLYPH NL005A
+13226 ; [.4AD9.0020.0002] # EGYPTIAN HIEROGLYPH NL006
+13227 ; [.4ADA.0020.0002] # EGYPTIAN HIEROGLYPH NL007
+13228 ; [.4ADB.0020.0002] # EGYPTIAN HIEROGLYPH NL008
+13229 ; [.4ADC.0020.0002] # EGYPTIAN HIEROGLYPH NL009
+1322A ; [.4ADD.0020.0002] # EGYPTIAN HIEROGLYPH NL010
+1322B ; [.4ADE.0020.0002] # EGYPTIAN HIEROGLYPH NL011
+1322C ; [.4ADF.0020.0002] # EGYPTIAN HIEROGLYPH NL012
+1322D ; [.4AE0.0020.0002] # EGYPTIAN HIEROGLYPH NL013
+1322E ; [.4AE1.0020.0002] # EGYPTIAN HIEROGLYPH NL014
+1322F ; [.4AE2.0020.0002] # EGYPTIAN HIEROGLYPH NL015
+13230 ; [.4AE3.0020.0002] # EGYPTIAN HIEROGLYPH NL016
+13231 ; [.4AE4.0020.0002] # EGYPTIAN HIEROGLYPH NL017
+13232 ; [.4AE5.0020.0002] # EGYPTIAN HIEROGLYPH NL017A
+13233 ; [.4AE6.0020.0002] # EGYPTIAN HIEROGLYPH NL018
+13234 ; [.4AE7.0020.0002] # EGYPTIAN HIEROGLYPH NL019
+13235 ; [.4AE8.0020.0002] # EGYPTIAN HIEROGLYPH NL020
+13236 ; [.4AE9.0020.0002] # EGYPTIAN HIEROGLYPH NU001
+13237 ; [.4AEA.0020.0002] # EGYPTIAN HIEROGLYPH NU002
+13238 ; [.4AEB.0020.0002] # EGYPTIAN HIEROGLYPH NU003
+13239 ; [.4AEC.0020.0002] # EGYPTIAN HIEROGLYPH NU004
+1323A ; [.4AED.0020.0002] # EGYPTIAN HIEROGLYPH NU005
+1323B ; [.4AEE.0020.0002] # EGYPTIAN HIEROGLYPH NU006
+1323C ; [.4AEF.0020.0002] # EGYPTIAN HIEROGLYPH NU007
+1323D ; [.4AF0.0020.0002] # EGYPTIAN HIEROGLYPH NU008
+1323E ; [.4AF1.0020.0002] # EGYPTIAN HIEROGLYPH NU009
+1323F ; [.4AF2.0020.0002] # EGYPTIAN HIEROGLYPH NU010
+13240 ; [.4AF3.0020.0002] # EGYPTIAN HIEROGLYPH NU010A
+13241 ; [.4AF4.0020.0002] # EGYPTIAN HIEROGLYPH NU011
+13242 ; [.4AF5.0020.0002] # EGYPTIAN HIEROGLYPH NU011A
+13243 ; [.4AF6.0020.0002] # EGYPTIAN HIEROGLYPH NU012
+13244 ; [.4AF7.0020.0002] # EGYPTIAN HIEROGLYPH NU013
+13245 ; [.4AF8.0020.0002] # EGYPTIAN HIEROGLYPH NU014
+13246 ; [.4AF9.0020.0002] # EGYPTIAN HIEROGLYPH NU015
+13247 ; [.4AFA.0020.0002] # EGYPTIAN HIEROGLYPH NU016
+13248 ; [.4AFB.0020.0002] # EGYPTIAN HIEROGLYPH NU017
+13249 ; [.4AFC.0020.0002] # EGYPTIAN HIEROGLYPH NU018
+1324A ; [.4AFD.0020.0002] # EGYPTIAN HIEROGLYPH NU018A
+1324B ; [.4AFE.0020.0002] # EGYPTIAN HIEROGLYPH NU019
+1324C ; [.4AFF.0020.0002] # EGYPTIAN HIEROGLYPH NU020
+1324D ; [.4B00.0020.0002] # EGYPTIAN HIEROGLYPH NU021
+1324E ; [.4B01.0020.0002] # EGYPTIAN HIEROGLYPH NU022
+1324F ; [.4B02.0020.0002] # EGYPTIAN HIEROGLYPH NU022A
+13250 ; [.4B03.0020.0002] # EGYPTIAN HIEROGLYPH O001
+13251 ; [.4B04.0020.0002] # EGYPTIAN HIEROGLYPH O001A
+13252 ; [.4B05.0020.0002] # EGYPTIAN HIEROGLYPH O002
+13253 ; [.4B06.0020.0002] # EGYPTIAN HIEROGLYPH O003
+13254 ; [.4B07.0020.0002] # EGYPTIAN HIEROGLYPH O004
+13255 ; [.4B08.0020.0002] # EGYPTIAN HIEROGLYPH O005
+13256 ; [.4B09.0020.0002] # EGYPTIAN HIEROGLYPH O005A
+13257 ; [.4B0A.0020.0002] # EGYPTIAN HIEROGLYPH O006
+13258 ; [.4B0B.0020.0002] # EGYPTIAN HIEROGLYPH O006A
+13259 ; [.4B0C.0020.0002] # EGYPTIAN HIEROGLYPH O006B
+1325A ; [.4B0D.0020.0002] # EGYPTIAN HIEROGLYPH O006C
+1325B ; [.4B0E.0020.0002] # EGYPTIAN HIEROGLYPH O006D
+1325C ; [.4B0F.0020.0002] # EGYPTIAN HIEROGLYPH O006E
+1325D ; [.4B10.0020.0002] # EGYPTIAN HIEROGLYPH O006F
+1325E ; [.4B11.0020.0002] # EGYPTIAN HIEROGLYPH O007
+1325F ; [.4B12.0020.0002] # EGYPTIAN HIEROGLYPH O008
+13260 ; [.4B13.0020.0002] # EGYPTIAN HIEROGLYPH O009
+13261 ; [.4B14.0020.0002] # EGYPTIAN HIEROGLYPH O010
+13262 ; [.4B15.0020.0002] # EGYPTIAN HIEROGLYPH O010A
+13263 ; [.4B16.0020.0002] # EGYPTIAN HIEROGLYPH O010B
+13264 ; [.4B17.0020.0002] # EGYPTIAN HIEROGLYPH O010C
+13265 ; [.4B18.0020.0002] # EGYPTIAN HIEROGLYPH O011
+13266 ; [.4B19.0020.0002] # EGYPTIAN HIEROGLYPH O012
+13267 ; [.4B1A.0020.0002] # EGYPTIAN HIEROGLYPH O013
+13268 ; [.4B1B.0020.0002] # EGYPTIAN HIEROGLYPH O014
+13269 ; [.4B1C.0020.0002] # EGYPTIAN HIEROGLYPH O015
+1326A ; [.4B1D.0020.0002] # EGYPTIAN HIEROGLYPH O016
+1326B ; [.4B1E.0020.0002] # EGYPTIAN HIEROGLYPH O017
+1326C ; [.4B1F.0020.0002] # EGYPTIAN HIEROGLYPH O018
+1326D ; [.4B20.0020.0002] # EGYPTIAN HIEROGLYPH O019
+1326E ; [.4B21.0020.0002] # EGYPTIAN HIEROGLYPH O019A
+1326F ; [.4B22.0020.0002] # EGYPTIAN HIEROGLYPH O020
+13270 ; [.4B23.0020.0002] # EGYPTIAN HIEROGLYPH O020A
+13271 ; [.4B24.0020.0002] # EGYPTIAN HIEROGLYPH O021
+13272 ; [.4B25.0020.0002] # EGYPTIAN HIEROGLYPH O022
+13273 ; [.4B26.0020.0002] # EGYPTIAN HIEROGLYPH O023
+13274 ; [.4B27.0020.0002] # EGYPTIAN HIEROGLYPH O024
+13275 ; [.4B28.0020.0002] # EGYPTIAN HIEROGLYPH O024A
+13276 ; [.4B29.0020.0002] # EGYPTIAN HIEROGLYPH O025
+13277 ; [.4B2A.0020.0002] # EGYPTIAN HIEROGLYPH O025A
+13278 ; [.4B2B.0020.0002] # EGYPTIAN HIEROGLYPH O026
+13279 ; [.4B2C.0020.0002] # EGYPTIAN HIEROGLYPH O027
+1327A ; [.4B2D.0020.0002] # EGYPTIAN HIEROGLYPH O028
+1327B ; [.4B2E.0020.0002] # EGYPTIAN HIEROGLYPH O029
+1327C ; [.4B2F.0020.0002] # EGYPTIAN HIEROGLYPH O029A
+1327D ; [.4B30.0020.0002] # EGYPTIAN HIEROGLYPH O030
+1327E ; [.4B31.0020.0002] # EGYPTIAN HIEROGLYPH O030A
+1327F ; [.4B32.0020.0002] # EGYPTIAN HIEROGLYPH O031
+13280 ; [.4B33.0020.0002] # EGYPTIAN HIEROGLYPH O032
+13281 ; [.4B34.0020.0002] # EGYPTIAN HIEROGLYPH O033
+13282 ; [.4B35.0020.0002] # EGYPTIAN HIEROGLYPH O033A
+13283 ; [.4B36.0020.0002] # EGYPTIAN HIEROGLYPH O034
+13284 ; [.4B37.0020.0002] # EGYPTIAN HIEROGLYPH O035
+13285 ; [.4B38.0020.0002] # EGYPTIAN HIEROGLYPH O036
+13286 ; [.4B39.0020.0002] # EGYPTIAN HIEROGLYPH O036A
+13287 ; [.4B3A.0020.0002] # EGYPTIAN HIEROGLYPH O036B
+13288 ; [.4B3B.0020.0002] # EGYPTIAN HIEROGLYPH O036C
+13289 ; [.4B3C.0020.0002] # EGYPTIAN HIEROGLYPH O036D
+1328A ; [.4B3D.0020.0002] # EGYPTIAN HIEROGLYPH O037
+1328B ; [.4B3E.0020.0002] # EGYPTIAN HIEROGLYPH O038
+1328C ; [.4B3F.0020.0002] # EGYPTIAN HIEROGLYPH O039
+1328D ; [.4B40.0020.0002] # EGYPTIAN HIEROGLYPH O040
+1328E ; [.4B41.0020.0002] # EGYPTIAN HIEROGLYPH O041
+1328F ; [.4B42.0020.0002] # EGYPTIAN HIEROGLYPH O042
+13290 ; [.4B43.0020.0002] # EGYPTIAN HIEROGLYPH O043
+13291 ; [.4B44.0020.0002] # EGYPTIAN HIEROGLYPH O044
+13292 ; [.4B45.0020.0002] # EGYPTIAN HIEROGLYPH O045
+13293 ; [.4B46.0020.0002] # EGYPTIAN HIEROGLYPH O046
+13294 ; [.4B47.0020.0002] # EGYPTIAN HIEROGLYPH O047
+13295 ; [.4B48.0020.0002] # EGYPTIAN HIEROGLYPH O048
+13296 ; [.4B49.0020.0002] # EGYPTIAN HIEROGLYPH O049
+13297 ; [.4B4A.0020.0002] # EGYPTIAN HIEROGLYPH O050
+13298 ; [.4B4B.0020.0002] # EGYPTIAN HIEROGLYPH O050A
+13299 ; [.4B4C.0020.0002] # EGYPTIAN HIEROGLYPH O050B
+1329A ; [.4B4D.0020.0002] # EGYPTIAN HIEROGLYPH O051
+1329B ; [.4B4E.0020.0002] # EGYPTIAN HIEROGLYPH P001
+1329C ; [.4B4F.0020.0002] # EGYPTIAN HIEROGLYPH P001A
+1329D ; [.4B50.0020.0002] # EGYPTIAN HIEROGLYPH P002
+1329E ; [.4B51.0020.0002] # EGYPTIAN HIEROGLYPH P003
+1329F ; [.4B52.0020.0002] # EGYPTIAN HIEROGLYPH P003A
+132A0 ; [.4B53.0020.0002] # EGYPTIAN HIEROGLYPH P004
+132A1 ; [.4B54.0020.0002] # EGYPTIAN HIEROGLYPH P005
+132A2 ; [.4B55.0020.0002] # EGYPTIAN HIEROGLYPH P006
+132A3 ; [.4B56.0020.0002] # EGYPTIAN HIEROGLYPH P007
+132A4 ; [.4B57.0020.0002] # EGYPTIAN HIEROGLYPH P008
+132A5 ; [.4B58.0020.0002] # EGYPTIAN HIEROGLYPH P009
+132A6 ; [.4B59.0020.0002] # EGYPTIAN HIEROGLYPH P010
+132A7 ; [.4B5A.0020.0002] # EGYPTIAN HIEROGLYPH P011
+132A8 ; [.4B5B.0020.0002] # EGYPTIAN HIEROGLYPH Q001
+132A9 ; [.4B5C.0020.0002] # EGYPTIAN HIEROGLYPH Q002
+132AA ; [.4B5D.0020.0002] # EGYPTIAN HIEROGLYPH Q003
+132AB ; [.4B5E.0020.0002] # EGYPTIAN HIEROGLYPH Q004
+132AC ; [.4B5F.0020.0002] # EGYPTIAN HIEROGLYPH Q005
+132AD ; [.4B60.0020.0002] # EGYPTIAN HIEROGLYPH Q006
+132AE ; [.4B61.0020.0002] # EGYPTIAN HIEROGLYPH Q007
+132AF ; [.4B62.0020.0002] # EGYPTIAN HIEROGLYPH R001
+132B0 ; [.4B63.0020.0002] # EGYPTIAN HIEROGLYPH R002
+132B1 ; [.4B64.0020.0002] # EGYPTIAN HIEROGLYPH R002A
+132B2 ; [.4B65.0020.0002] # EGYPTIAN HIEROGLYPH R003
+132B3 ; [.4B66.0020.0002] # EGYPTIAN HIEROGLYPH R003A
+132B4 ; [.4B67.0020.0002] # EGYPTIAN HIEROGLYPH R003B
+132B5 ; [.4B68.0020.0002] # EGYPTIAN HIEROGLYPH R004
+132B6 ; [.4B69.0020.0002] # EGYPTIAN HIEROGLYPH R005
+132B7 ; [.4B6A.0020.0002] # EGYPTIAN HIEROGLYPH R006
+132B8 ; [.4B6B.0020.0002] # EGYPTIAN HIEROGLYPH R007
+132B9 ; [.4B6C.0020.0002] # EGYPTIAN HIEROGLYPH R008
+132BA ; [.4B6D.0020.0002] # EGYPTIAN HIEROGLYPH R009
+132BB ; [.4B6E.0020.0002] # EGYPTIAN HIEROGLYPH R010
+132BC ; [.4B6F.0020.0002] # EGYPTIAN HIEROGLYPH R010A
+132BD ; [.4B70.0020.0002] # EGYPTIAN HIEROGLYPH R011
+132BE ; [.4B71.0020.0002] # EGYPTIAN HIEROGLYPH R012
+132BF ; [.4B72.0020.0002] # EGYPTIAN HIEROGLYPH R013
+132C0 ; [.4B73.0020.0002] # EGYPTIAN HIEROGLYPH R014
+132C1 ; [.4B74.0020.0002] # EGYPTIAN HIEROGLYPH R015
+132C2 ; [.4B75.0020.0002] # EGYPTIAN HIEROGLYPH R016
+132C3 ; [.4B76.0020.0002] # EGYPTIAN HIEROGLYPH R016A
+132C4 ; [.4B77.0020.0002] # EGYPTIAN HIEROGLYPH R017
+132C5 ; [.4B78.0020.0002] # EGYPTIAN HIEROGLYPH R018
+132C6 ; [.4B79.0020.0002] # EGYPTIAN HIEROGLYPH R019
+132C7 ; [.4B7A.0020.0002] # EGYPTIAN HIEROGLYPH R020
+132C8 ; [.4B7B.0020.0002] # EGYPTIAN HIEROGLYPH R021
+132C9 ; [.4B7C.0020.0002] # EGYPTIAN HIEROGLYPH R022
+132CA ; [.4B7D.0020.0002] # EGYPTIAN HIEROGLYPH R023
+132CB ; [.4B7E.0020.0002] # EGYPTIAN HIEROGLYPH R024
+132CC ; [.4B7F.0020.0002] # EGYPTIAN HIEROGLYPH R025
+132CD ; [.4B80.0020.0002] # EGYPTIAN HIEROGLYPH R026
+132CE ; [.4B81.0020.0002] # EGYPTIAN HIEROGLYPH R027
+132CF ; [.4B82.0020.0002] # EGYPTIAN HIEROGLYPH R028
+132D0 ; [.4B83.0020.0002] # EGYPTIAN HIEROGLYPH R029
+132D1 ; [.4B84.0020.0002] # EGYPTIAN HIEROGLYPH S001
+132D2 ; [.4B85.0020.0002] # EGYPTIAN HIEROGLYPH S002
+132D3 ; [.4B86.0020.0002] # EGYPTIAN HIEROGLYPH S002A
+132D4 ; [.4B87.0020.0002] # EGYPTIAN HIEROGLYPH S003
+132D5 ; [.4B88.0020.0002] # EGYPTIAN HIEROGLYPH S004
+132D6 ; [.4B89.0020.0002] # EGYPTIAN HIEROGLYPH S005
+132D7 ; [.4B8A.0020.0002] # EGYPTIAN HIEROGLYPH S006
+132D8 ; [.4B8B.0020.0002] # EGYPTIAN HIEROGLYPH S006A
+132D9 ; [.4B8C.0020.0002] # EGYPTIAN HIEROGLYPH S007
+132DA ; [.4B8D.0020.0002] # EGYPTIAN HIEROGLYPH S008
+132DB ; [.4B8E.0020.0002] # EGYPTIAN HIEROGLYPH S009
+132DC ; [.4B8F.0020.0002] # EGYPTIAN HIEROGLYPH S010
+132DD ; [.4B90.0020.0002] # EGYPTIAN HIEROGLYPH S011
+132DE ; [.4B91.0020.0002] # EGYPTIAN HIEROGLYPH S012
+132DF ; [.4B92.0020.0002] # EGYPTIAN HIEROGLYPH S013
+132E0 ; [.4B93.0020.0002] # EGYPTIAN HIEROGLYPH S014
+132E1 ; [.4B94.0020.0002] # EGYPTIAN HIEROGLYPH S014A
+132E2 ; [.4B95.0020.0002] # EGYPTIAN HIEROGLYPH S014B
+132E3 ; [.4B96.0020.0002] # EGYPTIAN HIEROGLYPH S015
+132E4 ; [.4B97.0020.0002] # EGYPTIAN HIEROGLYPH S016
+132E5 ; [.4B98.0020.0002] # EGYPTIAN HIEROGLYPH S017
+132E6 ; [.4B99.0020.0002] # EGYPTIAN HIEROGLYPH S017A
+132E7 ; [.4B9A.0020.0002] # EGYPTIAN HIEROGLYPH S018
+132E8 ; [.4B9B.0020.0002] # EGYPTIAN HIEROGLYPH S019
+132E9 ; [.4B9C.0020.0002] # EGYPTIAN HIEROGLYPH S020
+132EA ; [.4B9D.0020.0002] # EGYPTIAN HIEROGLYPH S021
+132EB ; [.4B9E.0020.0002] # EGYPTIAN HIEROGLYPH S022
+132EC ; [.4B9F.0020.0002] # EGYPTIAN HIEROGLYPH S023
+132ED ; [.4BA0.0020.0002] # EGYPTIAN HIEROGLYPH S024
+132EE ; [.4BA1.0020.0002] # EGYPTIAN HIEROGLYPH S025
+132EF ; [.4BA2.0020.0002] # EGYPTIAN HIEROGLYPH S026
+132F0 ; [.4BA3.0020.0002] # EGYPTIAN HIEROGLYPH S026A
+132F1 ; [.4BA4.0020.0002] # EGYPTIAN HIEROGLYPH S026B
+132F2 ; [.4BA5.0020.0002] # EGYPTIAN HIEROGLYPH S027
+132F3 ; [.4BA6.0020.0002] # EGYPTIAN HIEROGLYPH S028
+132F4 ; [.4BA7.0020.0002] # EGYPTIAN HIEROGLYPH S029
+132F5 ; [.4BA8.0020.0002] # EGYPTIAN HIEROGLYPH S030
+132F6 ; [.4BA9.0020.0002] # EGYPTIAN HIEROGLYPH S031
+132F7 ; [.4BAA.0020.0002] # EGYPTIAN HIEROGLYPH S032
+132F8 ; [.4BAB.0020.0002] # EGYPTIAN HIEROGLYPH S033
+132F9 ; [.4BAC.0020.0002] # EGYPTIAN HIEROGLYPH S034
+132FA ; [.4BAD.0020.0002] # EGYPTIAN HIEROGLYPH S035
+132FB ; [.4BAE.0020.0002] # EGYPTIAN HIEROGLYPH S035A
+132FC ; [.4BAF.0020.0002] # EGYPTIAN HIEROGLYPH S036
+132FD ; [.4BB0.0020.0002] # EGYPTIAN HIEROGLYPH S037
+132FE ; [.4BB1.0020.0002] # EGYPTIAN HIEROGLYPH S038
+132FF ; [.4BB2.0020.0002] # EGYPTIAN HIEROGLYPH S039
+13300 ; [.4BB3.0020.0002] # EGYPTIAN HIEROGLYPH S040
+13301 ; [.4BB4.0020.0002] # EGYPTIAN HIEROGLYPH S041
+13302 ; [.4BB5.0020.0002] # EGYPTIAN HIEROGLYPH S042
+13303 ; [.4BB6.0020.0002] # EGYPTIAN HIEROGLYPH S043
+13304 ; [.4BB7.0020.0002] # EGYPTIAN HIEROGLYPH S044
+13305 ; [.4BB8.0020.0002] # EGYPTIAN HIEROGLYPH S045
+13306 ; [.4BB9.0020.0002] # EGYPTIAN HIEROGLYPH S046
+13307 ; [.4BBA.0020.0002] # EGYPTIAN HIEROGLYPH T001
+13308 ; [.4BBB.0020.0002] # EGYPTIAN HIEROGLYPH T002
+13309 ; [.4BBC.0020.0002] # EGYPTIAN HIEROGLYPH T003
+1330A ; [.4BBD.0020.0002] # EGYPTIAN HIEROGLYPH T003A
+1330B ; [.4BBE.0020.0002] # EGYPTIAN HIEROGLYPH T004
+1330C ; [.4BBF.0020.0002] # EGYPTIAN HIEROGLYPH T005
+1330D ; [.4BC0.0020.0002] # EGYPTIAN HIEROGLYPH T006
+1330E ; [.4BC1.0020.0002] # EGYPTIAN HIEROGLYPH T007
+1330F ; [.4BC2.0020.0002] # EGYPTIAN HIEROGLYPH T007A
+13310 ; [.4BC3.0020.0002] # EGYPTIAN HIEROGLYPH T008
+13311 ; [.4BC4.0020.0002] # EGYPTIAN HIEROGLYPH T008A
+13312 ; [.4BC5.0020.0002] # EGYPTIAN HIEROGLYPH T009
+13313 ; [.4BC6.0020.0002] # EGYPTIAN HIEROGLYPH T009A
+13314 ; [.4BC7.0020.0002] # EGYPTIAN HIEROGLYPH T010
+13315 ; [.4BC8.0020.0002] # EGYPTIAN HIEROGLYPH T011
+13316 ; [.4BC9.0020.0002] # EGYPTIAN HIEROGLYPH T011A
+13317 ; [.4BCA.0020.0002] # EGYPTIAN HIEROGLYPH T012
+13318 ; [.4BCB.0020.0002] # EGYPTIAN HIEROGLYPH T013
+13319 ; [.4BCC.0020.0002] # EGYPTIAN HIEROGLYPH T014
+1331A ; [.4BCD.0020.0002] # EGYPTIAN HIEROGLYPH T015
+1331B ; [.4BCE.0020.0002] # EGYPTIAN HIEROGLYPH T016
+1331C ; [.4BCF.0020.0002] # EGYPTIAN HIEROGLYPH T016A
+1331D ; [.4BD0.0020.0002] # EGYPTIAN HIEROGLYPH T017
+1331E ; [.4BD1.0020.0002] # EGYPTIAN HIEROGLYPH T018
+1331F ; [.4BD2.0020.0002] # EGYPTIAN HIEROGLYPH T019
+13320 ; [.4BD3.0020.0002] # EGYPTIAN HIEROGLYPH T020
+13321 ; [.4BD4.0020.0002] # EGYPTIAN HIEROGLYPH T021
+13322 ; [.4BD5.0020.0002] # EGYPTIAN HIEROGLYPH T022
+13323 ; [.4BD6.0020.0002] # EGYPTIAN HIEROGLYPH T023
+13324 ; [.4BD7.0020.0002] # EGYPTIAN HIEROGLYPH T024
+13325 ; [.4BD8.0020.0002] # EGYPTIAN HIEROGLYPH T025
+13326 ; [.4BD9.0020.0002] # EGYPTIAN HIEROGLYPH T026
+13327 ; [.4BDA.0020.0002] # EGYPTIAN HIEROGLYPH T027
+13328 ; [.4BDB.0020.0002] # EGYPTIAN HIEROGLYPH T028
+13329 ; [.4BDC.0020.0002] # EGYPTIAN HIEROGLYPH T029
+1332A ; [.4BDD.0020.0002] # EGYPTIAN HIEROGLYPH T030
+1332B ; [.4BDE.0020.0002] # EGYPTIAN HIEROGLYPH T031
+1332C ; [.4BDF.0020.0002] # EGYPTIAN HIEROGLYPH T032
+1332D ; [.4BE0.0020.0002] # EGYPTIAN HIEROGLYPH T032A
+1332E ; [.4BE1.0020.0002] # EGYPTIAN HIEROGLYPH T033
+1332F ; [.4BE2.0020.0002] # EGYPTIAN HIEROGLYPH T033A
+13330 ; [.4BE3.0020.0002] # EGYPTIAN HIEROGLYPH T034
+13331 ; [.4BE4.0020.0002] # EGYPTIAN HIEROGLYPH T035
+13332 ; [.4BE5.0020.0002] # EGYPTIAN HIEROGLYPH T036
+13333 ; [.4BE6.0020.0002] # EGYPTIAN HIEROGLYPH U001
+13334 ; [.4BE7.0020.0002] # EGYPTIAN HIEROGLYPH U002
+13335 ; [.4BE8.0020.0002] # EGYPTIAN HIEROGLYPH U003
+13336 ; [.4BE9.0020.0002] # EGYPTIAN HIEROGLYPH U004
+13337 ; [.4BEA.0020.0002] # EGYPTIAN HIEROGLYPH U005
+13338 ; [.4BEB.0020.0002] # EGYPTIAN HIEROGLYPH U006
+13339 ; [.4BEC.0020.0002] # EGYPTIAN HIEROGLYPH U006A
+1333A ; [.4BED.0020.0002] # EGYPTIAN HIEROGLYPH U006B
+1333B ; [.4BEE.0020.0002] # EGYPTIAN HIEROGLYPH U007
+1333C ; [.4BEF.0020.0002] # EGYPTIAN HIEROGLYPH U008
+1333D ; [.4BF0.0020.0002] # EGYPTIAN HIEROGLYPH U009
+1333E ; [.4BF1.0020.0002] # EGYPTIAN HIEROGLYPH U010
+1333F ; [.4BF2.0020.0002] # EGYPTIAN HIEROGLYPH U011
+13340 ; [.4BF3.0020.0002] # EGYPTIAN HIEROGLYPH U012
+13341 ; [.4BF4.0020.0002] # EGYPTIAN HIEROGLYPH U013
+13342 ; [.4BF5.0020.0002] # EGYPTIAN HIEROGLYPH U014
+13343 ; [.4BF6.0020.0002] # EGYPTIAN HIEROGLYPH U015
+13344 ; [.4BF7.0020.0002] # EGYPTIAN HIEROGLYPH U016
+13345 ; [.4BF8.0020.0002] # EGYPTIAN HIEROGLYPH U017
+13346 ; [.4BF9.0020.0002] # EGYPTIAN HIEROGLYPH U018
+13347 ; [.4BFA.0020.0002] # EGYPTIAN HIEROGLYPH U019
+13348 ; [.4BFB.0020.0002] # EGYPTIAN HIEROGLYPH U020
+13349 ; [.4BFC.0020.0002] # EGYPTIAN HIEROGLYPH U021
+1334A ; [.4BFD.0020.0002] # EGYPTIAN HIEROGLYPH U022
+1334B ; [.4BFE.0020.0002] # EGYPTIAN HIEROGLYPH U023
+1334C ; [.4BFF.0020.0002] # EGYPTIAN HIEROGLYPH U023A
+1334D ; [.4C00.0020.0002] # EGYPTIAN HIEROGLYPH U024
+1334E ; [.4C01.0020.0002] # EGYPTIAN HIEROGLYPH U025
+1334F ; [.4C02.0020.0002] # EGYPTIAN HIEROGLYPH U026
+13350 ; [.4C03.0020.0002] # EGYPTIAN HIEROGLYPH U027
+13351 ; [.4C04.0020.0002] # EGYPTIAN HIEROGLYPH U028
+13352 ; [.4C05.0020.0002] # EGYPTIAN HIEROGLYPH U029
+13353 ; [.4C06.0020.0002] # EGYPTIAN HIEROGLYPH U029A
+13354 ; [.4C07.0020.0002] # EGYPTIAN HIEROGLYPH U030
+13355 ; [.4C08.0020.0002] # EGYPTIAN HIEROGLYPH U031
+13356 ; [.4C09.0020.0002] # EGYPTIAN HIEROGLYPH U032
+13357 ; [.4C0A.0020.0002] # EGYPTIAN HIEROGLYPH U032A
+13358 ; [.4C0B.0020.0002] # EGYPTIAN HIEROGLYPH U033
+13359 ; [.4C0C.0020.0002] # EGYPTIAN HIEROGLYPH U034
+1335A ; [.4C0D.0020.0002] # EGYPTIAN HIEROGLYPH U035
+1335B ; [.4C0E.0020.0002] # EGYPTIAN HIEROGLYPH U036
+1335C ; [.4C0F.0020.0002] # EGYPTIAN HIEROGLYPH U037
+1335D ; [.4C10.0020.0002] # EGYPTIAN HIEROGLYPH U038
+1335E ; [.4C11.0020.0002] # EGYPTIAN HIEROGLYPH U039
+1335F ; [.4C12.0020.0002] # EGYPTIAN HIEROGLYPH U040
+13360 ; [.4C13.0020.0002] # EGYPTIAN HIEROGLYPH U041
+13361 ; [.4C14.0020.0002] # EGYPTIAN HIEROGLYPH U042
+13362 ; [.4C15.0020.0002] # EGYPTIAN HIEROGLYPH V001
+13363 ; [.4C16.0020.0002] # EGYPTIAN HIEROGLYPH V001A
+13364 ; [.4C17.0020.0002] # EGYPTIAN HIEROGLYPH V001B
+13365 ; [.4C18.0020.0002] # EGYPTIAN HIEROGLYPH V001C
+13366 ; [.4C19.0020.0002] # EGYPTIAN HIEROGLYPH V001D
+13367 ; [.4C1A.0020.0002] # EGYPTIAN HIEROGLYPH V001E
+13368 ; [.4C1B.0020.0002] # EGYPTIAN HIEROGLYPH V001F
+13369 ; [.4C1C.0020.0002] # EGYPTIAN HIEROGLYPH V001G
+1336A ; [.4C1D.0020.0002] # EGYPTIAN HIEROGLYPH V001H
+1336B ; [.4C1E.0020.0002] # EGYPTIAN HIEROGLYPH V001I
+1336C ; [.4C1F.0020.0002] # EGYPTIAN HIEROGLYPH V002
+1336D ; [.4C20.0020.0002] # EGYPTIAN HIEROGLYPH V002A
+1336E ; [.4C21.0020.0002] # EGYPTIAN HIEROGLYPH V003
+1336F ; [.4C22.0020.0002] # EGYPTIAN HIEROGLYPH V004
+13370 ; [.4C23.0020.0002] # EGYPTIAN HIEROGLYPH V005
+13371 ; [.4C24.0020.0002] # EGYPTIAN HIEROGLYPH V006
+13372 ; [.4C25.0020.0002] # EGYPTIAN HIEROGLYPH V007
+13373 ; [.4C26.0020.0002] # EGYPTIAN HIEROGLYPH V007A
+13374 ; [.4C27.0020.0002] # EGYPTIAN HIEROGLYPH V007B
+13375 ; [.4C28.0020.0002] # EGYPTIAN HIEROGLYPH V008
+13376 ; [.4C29.0020.0002] # EGYPTIAN HIEROGLYPH V009
+13377 ; [.4C2A.0020.0002] # EGYPTIAN HIEROGLYPH V010
+13378 ; [.4C2B.0020.0002] # EGYPTIAN HIEROGLYPH V011
+13379 ; [.4C2C.0020.0002] # EGYPTIAN HIEROGLYPH V011A
+1337A ; [.4C2D.0020.0002] # EGYPTIAN HIEROGLYPH V011B
+1337B ; [.4C2E.0020.0002] # EGYPTIAN HIEROGLYPH V011C
+1337C ; [.4C2F.0020.0002] # EGYPTIAN HIEROGLYPH V012
+1337D ; [.4C30.0020.0002] # EGYPTIAN HIEROGLYPH V012A
+1337E ; [.4C31.0020.0002] # EGYPTIAN HIEROGLYPH V012B
+1337F ; [.4C32.0020.0002] # EGYPTIAN HIEROGLYPH V013
+13380 ; [.4C33.0020.0002] # EGYPTIAN HIEROGLYPH V014
+13381 ; [.4C34.0020.0002] # EGYPTIAN HIEROGLYPH V015
+13382 ; [.4C35.0020.0002] # EGYPTIAN HIEROGLYPH V016
+13383 ; [.4C36.0020.0002] # EGYPTIAN HIEROGLYPH V017
+13384 ; [.4C37.0020.0002] # EGYPTIAN HIEROGLYPH V018
+13385 ; [.4C38.0020.0002] # EGYPTIAN HIEROGLYPH V019
+13386 ; [.4C39.0020.0002] # EGYPTIAN HIEROGLYPH V020
+13387 ; [.4C3A.0020.0002] # EGYPTIAN HIEROGLYPH V020A
+13388 ; [.4C3B.0020.0002] # EGYPTIAN HIEROGLYPH V020B
+13389 ; [.4C3C.0020.0002] # EGYPTIAN HIEROGLYPH V020C
+1338A ; [.4C3D.0020.0002] # EGYPTIAN HIEROGLYPH V020D
+1338B ; [.4C3E.0020.0002] # EGYPTIAN HIEROGLYPH V020E
+1338C ; [.4C3F.0020.0002] # EGYPTIAN HIEROGLYPH V020F
+1338D ; [.4C40.0020.0002] # EGYPTIAN HIEROGLYPH V020G
+1338E ; [.4C41.0020.0002] # EGYPTIAN HIEROGLYPH V020H
+1338F ; [.4C42.0020.0002] # EGYPTIAN HIEROGLYPH V020I
+13390 ; [.4C43.0020.0002] # EGYPTIAN HIEROGLYPH V020J
+13391 ; [.4C44.0020.0002] # EGYPTIAN HIEROGLYPH V020K
+13392 ; [.4C45.0020.0002] # EGYPTIAN HIEROGLYPH V020L
+13393 ; [.4C46.0020.0002] # EGYPTIAN HIEROGLYPH V021
+13394 ; [.4C47.0020.0002] # EGYPTIAN HIEROGLYPH V022
+13395 ; [.4C48.0020.0002] # EGYPTIAN HIEROGLYPH V023
+13396 ; [.4C49.0020.0002] # EGYPTIAN HIEROGLYPH V023A
+13397 ; [.4C4A.0020.0002] # EGYPTIAN HIEROGLYPH V024
+13398 ; [.4C4B.0020.0002] # EGYPTIAN HIEROGLYPH V025
+13399 ; [.4C4C.0020.0002] # EGYPTIAN HIEROGLYPH V026
+1339A ; [.4C4D.0020.0002] # EGYPTIAN HIEROGLYPH V027
+1339B ; [.4C4E.0020.0002] # EGYPTIAN HIEROGLYPH V028
+1339C ; [.4C4F.0020.0002] # EGYPTIAN HIEROGLYPH V028A
+1339D ; [.4C50.0020.0002] # EGYPTIAN HIEROGLYPH V029
+1339E ; [.4C51.0020.0002] # EGYPTIAN HIEROGLYPH V029A
+1339F ; [.4C52.0020.0002] # EGYPTIAN HIEROGLYPH V030
+133A0 ; [.4C53.0020.0002] # EGYPTIAN HIEROGLYPH V030A
+133A1 ; [.4C54.0020.0002] # EGYPTIAN HIEROGLYPH V031
+133A2 ; [.4C55.0020.0002] # EGYPTIAN HIEROGLYPH V031A
+133A3 ; [.4C56.0020.0002] # EGYPTIAN HIEROGLYPH V032
+133A4 ; [.4C57.0020.0002] # EGYPTIAN HIEROGLYPH V033
+133A5 ; [.4C58.0020.0002] # EGYPTIAN HIEROGLYPH V033A
+133A6 ; [.4C59.0020.0002] # EGYPTIAN HIEROGLYPH V034
+133A7 ; [.4C5A.0020.0002] # EGYPTIAN HIEROGLYPH V035
+133A8 ; [.4C5B.0020.0002] # EGYPTIAN HIEROGLYPH V036
+133A9 ; [.4C5C.0020.0002] # EGYPTIAN HIEROGLYPH V037
+133AA ; [.4C5D.0020.0002] # EGYPTIAN HIEROGLYPH V037A
+133AB ; [.4C5E.0020.0002] # EGYPTIAN HIEROGLYPH V038
+133AC ; [.4C5F.0020.0002] # EGYPTIAN HIEROGLYPH V039
+133AD ; [.4C60.0020.0002] # EGYPTIAN HIEROGLYPH V040
+133AE ; [.4C61.0020.0002] # EGYPTIAN HIEROGLYPH V040A
+133AF ; [.4C62.0020.0002] # EGYPTIAN HIEROGLYPH W001
+133B0 ; [.4C63.0020.0002] # EGYPTIAN HIEROGLYPH W002
+133B1 ; [.4C64.0020.0002] # EGYPTIAN HIEROGLYPH W003
+133B2 ; [.4C65.0020.0002] # EGYPTIAN HIEROGLYPH W003A
+133B3 ; [.4C66.0020.0002] # EGYPTIAN HIEROGLYPH W004
+133B4 ; [.4C67.0020.0002] # EGYPTIAN HIEROGLYPH W005
+133B5 ; [.4C68.0020.0002] # EGYPTIAN HIEROGLYPH W006
+133B6 ; [.4C69.0020.0002] # EGYPTIAN HIEROGLYPH W007
+133B7 ; [.4C6A.0020.0002] # EGYPTIAN HIEROGLYPH W008
+133B8 ; [.4C6B.0020.0002] # EGYPTIAN HIEROGLYPH W009
+133B9 ; [.4C6C.0020.0002] # EGYPTIAN HIEROGLYPH W009A
+133BA ; [.4C6D.0020.0002] # EGYPTIAN HIEROGLYPH W010
+133BB ; [.4C6E.0020.0002] # EGYPTIAN HIEROGLYPH W010A
+133BC ; [.4C6F.0020.0002] # EGYPTIAN HIEROGLYPH W011
+133BD ; [.4C70.0020.0002] # EGYPTIAN HIEROGLYPH W012
+133BE ; [.4C71.0020.0002] # EGYPTIAN HIEROGLYPH W013
+133BF ; [.4C72.0020.0002] # EGYPTIAN HIEROGLYPH W014
+133C0 ; [.4C73.0020.0002] # EGYPTIAN HIEROGLYPH W014A
+133C1 ; [.4C74.0020.0002] # EGYPTIAN HIEROGLYPH W015
+133C2 ; [.4C75.0020.0002] # EGYPTIAN HIEROGLYPH W016
+133C3 ; [.4C76.0020.0002] # EGYPTIAN HIEROGLYPH W017
+133C4 ; [.4C77.0020.0002] # EGYPTIAN HIEROGLYPH W017A
+133C5 ; [.4C78.0020.0002] # EGYPTIAN HIEROGLYPH W018
+133C6 ; [.4C79.0020.0002] # EGYPTIAN HIEROGLYPH W018A
+133C7 ; [.4C7A.0020.0002] # EGYPTIAN HIEROGLYPH W019
+133C8 ; [.4C7B.0020.0002] # EGYPTIAN HIEROGLYPH W020
+133C9 ; [.4C7C.0020.0002] # EGYPTIAN HIEROGLYPH W021
+133CA ; [.4C7D.0020.0002] # EGYPTIAN HIEROGLYPH W022
+133CB ; [.4C7E.0020.0002] # EGYPTIAN HIEROGLYPH W023
+133CC ; [.4C7F.0020.0002] # EGYPTIAN HIEROGLYPH W024
+133CD ; [.4C80.0020.0002] # EGYPTIAN HIEROGLYPH W024A
+133CE ; [.4C81.0020.0002] # EGYPTIAN HIEROGLYPH W025
+133CF ; [.4C82.0020.0002] # EGYPTIAN HIEROGLYPH X001
+133D0 ; [.4C83.0020.0002] # EGYPTIAN HIEROGLYPH X002
+133D1 ; [.4C84.0020.0002] # EGYPTIAN HIEROGLYPH X003
+133D2 ; [.4C85.0020.0002] # EGYPTIAN HIEROGLYPH X004
+133D3 ; [.4C86.0020.0002] # EGYPTIAN HIEROGLYPH X004A
+133D4 ; [.4C87.0020.0002] # EGYPTIAN HIEROGLYPH X004B
+133D5 ; [.4C88.0020.0002] # EGYPTIAN HIEROGLYPH X005
+133D6 ; [.4C89.0020.0002] # EGYPTIAN HIEROGLYPH X006
+133D7 ; [.4C8A.0020.0002] # EGYPTIAN HIEROGLYPH X006A
+133D8 ; [.4C8B.0020.0002] # EGYPTIAN HIEROGLYPH X007
+133D9 ; [.4C8C.0020.0002] # EGYPTIAN HIEROGLYPH X008
+133DA ; [.4C8D.0020.0002] # EGYPTIAN HIEROGLYPH X008A
+133DB ; [.4C8E.0020.0002] # EGYPTIAN HIEROGLYPH Y001
+133DC ; [.4C8F.0020.0002] # EGYPTIAN HIEROGLYPH Y001A
+133DD ; [.4C90.0020.0002] # EGYPTIAN HIEROGLYPH Y002
+133DE ; [.4C91.0020.0002] # EGYPTIAN HIEROGLYPH Y003
+133DF ; [.4C92.0020.0002] # EGYPTIAN HIEROGLYPH Y004
+133E0 ; [.4C93.0020.0002] # EGYPTIAN HIEROGLYPH Y005
+133E1 ; [.4C94.0020.0002] # EGYPTIAN HIEROGLYPH Y006
+133E2 ; [.4C95.0020.0002] # EGYPTIAN HIEROGLYPH Y007
+133E3 ; [.4C96.0020.0002] # EGYPTIAN HIEROGLYPH Y008
+133E4 ; [.4C97.0020.0002] # EGYPTIAN HIEROGLYPH Z001
+133E5 ; [.4C98.0020.0002] # EGYPTIAN HIEROGLYPH Z002
+133E6 ; [.4C99.0020.0002] # EGYPTIAN HIEROGLYPH Z002A
+133E7 ; [.4C9A.0020.0002] # EGYPTIAN HIEROGLYPH Z002B
+133E8 ; [.4C9B.0020.0002] # EGYPTIAN HIEROGLYPH Z002C
+133E9 ; [.4C9C.0020.0002] # EGYPTIAN HIEROGLYPH Z002D
+133EA ; [.4C9D.0020.0002] # EGYPTIAN HIEROGLYPH Z003
+133EB ; [.4C9E.0020.0002] # EGYPTIAN HIEROGLYPH Z003A
+133EC ; [.4C9F.0020.0002] # EGYPTIAN HIEROGLYPH Z003B
+133ED ; [.4CA0.0020.0002] # EGYPTIAN HIEROGLYPH Z004
+133EE ; [.4CA1.0020.0002] # EGYPTIAN HIEROGLYPH Z004A
+133EF ; [.4CA2.0020.0002] # EGYPTIAN HIEROGLYPH Z005
+133F0 ; [.4CA3.0020.0002] # EGYPTIAN HIEROGLYPH Z005A
+133F1 ; [.4CA4.0020.0002] # EGYPTIAN HIEROGLYPH Z006
+133F2 ; [.4CA5.0020.0002] # EGYPTIAN HIEROGLYPH Z007
+133F3 ; [.4CA6.0020.0002] # EGYPTIAN HIEROGLYPH Z008
+133F4 ; [.4CA7.0020.0002] # EGYPTIAN HIEROGLYPH Z009
+133F5 ; [.4CA8.0020.0002] # EGYPTIAN HIEROGLYPH Z010
+133F6 ; [.4CA9.0020.0002] # EGYPTIAN HIEROGLYPH Z011
+133F7 ; [.4CAA.0020.0002] # EGYPTIAN HIEROGLYPH Z012
+133F8 ; [.4CAB.0020.0002] # EGYPTIAN HIEROGLYPH Z013
+133F9 ; [.4CAC.0020.0002] # EGYPTIAN HIEROGLYPH Z014
+133FA ; [.4CAD.0020.0002] # EGYPTIAN HIEROGLYPH Z015
+133FB ; [.4CAE.0020.0002] # EGYPTIAN HIEROGLYPH Z015A
+133FC ; [.4CAF.0020.0002] # EGYPTIAN HIEROGLYPH Z015B
+133FD ; [.4CB0.0020.0002] # EGYPTIAN HIEROGLYPH Z015C
+133FE ; [.4CB1.0020.0002] # EGYPTIAN HIEROGLYPH Z015D
+133FF ; [.4CB2.0020.0002] # EGYPTIAN HIEROGLYPH Z015E
+13400 ; [.4CB3.0020.0002] # EGYPTIAN HIEROGLYPH Z015F
+13401 ; [.4CB4.0020.0002] # EGYPTIAN HIEROGLYPH Z015G
+13402 ; [.4CB5.0020.0002] # EGYPTIAN HIEROGLYPH Z015H
+13403 ; [.4CB6.0020.0002] # EGYPTIAN HIEROGLYPH Z015I
+13404 ; [.4CB7.0020.0002] # EGYPTIAN HIEROGLYPH Z016
+13405 ; [.4CB8.0020.0002] # EGYPTIAN HIEROGLYPH Z016A
+13406 ; [.4CB9.0020.0002] # EGYPTIAN HIEROGLYPH Z016B
+13407 ; [.4CBA.0020.0002] # EGYPTIAN HIEROGLYPH Z016C
+13408 ; [.4CBB.0020.0002] # EGYPTIAN HIEROGLYPH Z016D
+13409 ; [.4CBC.0020.0002] # EGYPTIAN HIEROGLYPH Z016E
+1340A ; [.4CBD.0020.0002] # EGYPTIAN HIEROGLYPH Z016F
+1340B ; [.4CBE.0020.0002] # EGYPTIAN HIEROGLYPH Z016G
+1340C ; [.4CBF.0020.0002] # EGYPTIAN HIEROGLYPH Z016H
+1340D ; [.4CC0.0020.0002] # EGYPTIAN HIEROGLYPH AA001
+1340E ; [.4CC1.0020.0002] # EGYPTIAN HIEROGLYPH AA002
+1340F ; [.4CC2.0020.0002] # EGYPTIAN HIEROGLYPH AA003
+13410 ; [.4CC3.0020.0002] # EGYPTIAN HIEROGLYPH AA004
+13411 ; [.4CC4.0020.0002] # EGYPTIAN HIEROGLYPH AA005
+13412 ; [.4CC5.0020.0002] # EGYPTIAN HIEROGLYPH AA006
+13413 ; [.4CC6.0020.0002] # EGYPTIAN HIEROGLYPH AA007
+13414 ; [.4CC7.0020.0002] # EGYPTIAN HIEROGLYPH AA007A
+13415 ; [.4CC8.0020.0002] # EGYPTIAN HIEROGLYPH AA007B
+13416 ; [.4CC9.0020.0002] # EGYPTIAN HIEROGLYPH AA008
+13417 ; [.4CCA.0020.0002] # EGYPTIAN HIEROGLYPH AA009
+13418 ; [.4CCB.0020.0002] # EGYPTIAN HIEROGLYPH AA010
+13419 ; [.4CCC.0020.0002] # EGYPTIAN HIEROGLYPH AA011
+1341A ; [.4CCD.0020.0002] # EGYPTIAN HIEROGLYPH AA012
+1341B ; [.4CCE.0020.0002] # EGYPTIAN HIEROGLYPH AA013
+1341C ; [.4CCF.0020.0002] # EGYPTIAN HIEROGLYPH AA014
+1341D ; [.4CD0.0020.0002] # EGYPTIAN HIEROGLYPH AA015
+1341E ; [.4CD1.0020.0002] # EGYPTIAN HIEROGLYPH AA016
+1341F ; [.4CD2.0020.0002] # EGYPTIAN HIEROGLYPH AA017
+13420 ; [.4CD3.0020.0002] # EGYPTIAN HIEROGLYPH AA018
+13421 ; [.4CD4.0020.0002] # EGYPTIAN HIEROGLYPH AA019
+13422 ; [.4CD5.0020.0002] # EGYPTIAN HIEROGLYPH AA020
+13423 ; [.4CD6.0020.0002] # EGYPTIAN HIEROGLYPH AA021
+13424 ; [.4CD7.0020.0002] # EGYPTIAN HIEROGLYPH AA022
+13425 ; [.4CD8.0020.0002] # EGYPTIAN HIEROGLYPH AA023
+13426 ; [.4CD9.0020.0002] # EGYPTIAN HIEROGLYPH AA024
+13427 ; [.4CDA.0020.0002] # EGYPTIAN HIEROGLYPH AA025
+13428 ; [.4CDB.0020.0002] # EGYPTIAN HIEROGLYPH AA026
+13429 ; [.4CDC.0020.0002] # EGYPTIAN HIEROGLYPH AA027
+1342A ; [.4CDD.0020.0002] # EGYPTIAN HIEROGLYPH AA028
+1342B ; [.4CDE.0020.0002] # EGYPTIAN HIEROGLYPH AA029
+1342C ; [.4CDF.0020.0002] # EGYPTIAN HIEROGLYPH AA030
+1342D ; [.4CE0.0020.0002] # EGYPTIAN HIEROGLYPH AA031
+1342E ; [.4CE1.0020.0002] # EGYPTIAN HIEROGLYPH AA032
+109A0 ; [.4CE2.0020.0002] # MEROITIC CURSIVE LETTER A
+10980 ; [.4CE2.0020.0004][.0000.0108.0004] # MEROITIC HIEROGLYPHIC LETTER A
+109A1 ; [.4CE3.0020.0002] # MEROITIC CURSIVE LETTER E
+10981 ; [.4CE3.0020.0004][.0000.0108.0004] # MEROITIC HIEROGLYPHIC LETTER E
+109A2 ; [.4CE4.0020.0002] # MEROITIC CURSIVE LETTER I
+10982 ; [.4CE4.0020.0004][.0000.0108.0004] # MEROITIC HIEROGLYPHIC LETTER I
+109A3 ; [.4CE5.0020.0002] # MEROITIC CURSIVE LETTER O
+10983 ; [.4CE5.0020.0004][.0000.0108.0004] # MEROITIC HIEROGLYPHIC LETTER O
+109A4 ; [.4CE6.0020.0002] # MEROITIC CURSIVE LETTER YA
+10984 ; [.4CE6.0020.0004][.0000.0108.0004] # MEROITIC HIEROGLYPHIC LETTER YA
+109A5 ; [.4CE7.0020.0002] # MEROITIC CURSIVE LETTER WA
+10985 ; [.4CE7.0020.0004][.0000.0108.0004] # MEROITIC HIEROGLYPHIC LETTER WA
+109A6 ; [.4CE8.0020.0002] # MEROITIC CURSIVE LETTER BA
+10986 ; [.4CE8.0020.0004][.0000.0108.0004] # MEROITIC HIEROGLYPHIC LETTER BA
+10987 ; [.4CE8.0020.0004][.0000.0109.0004] # MEROITIC HIEROGLYPHIC LETTER BA-2
+109A7 ; [.4CE9.0020.0002] # MEROITIC CURSIVE LETTER PA
+10988 ; [.4CE9.0020.0004][.0000.0108.0004] # MEROITIC HIEROGLYPHIC LETTER PA
+109A8 ; [.4CEA.0020.0002] # MEROITIC CURSIVE LETTER MA
+10989 ; [.4CEA.0020.0004][.0000.0108.0004] # MEROITIC HIEROGLYPHIC LETTER MA
+109A9 ; [.4CEB.0020.0002] # MEROITIC CURSIVE LETTER NA
+1098A ; [.4CEB.0020.0004][.0000.0108.0004] # MEROITIC HIEROGLYPHIC LETTER NA
+1098B ; [.4CEB.0020.0004][.0000.0109.0004] # MEROITIC HIEROGLYPHIC LETTER NA-2
+109AA ; [.4CEC.0020.0002] # MEROITIC CURSIVE LETTER NE
+1098C ; [.4CEC.0020.0004][.0000.0108.0004] # MEROITIC HIEROGLYPHIC LETTER NE
+1098D ; [.4CEC.0020.0004][.0000.0109.0004] # MEROITIC HIEROGLYPHIC LETTER NE-2
+109AB ; [.4CED.0020.0002] # MEROITIC CURSIVE LETTER RA
+1098E ; [.4CED.0020.0004][.0000.0108.0004] # MEROITIC HIEROGLYPHIC LETTER RA
+1098F ; [.4CED.0020.0004][.0000.0109.0004] # MEROITIC HIEROGLYPHIC LETTER RA-2
+109AC ; [.4CEE.0020.0002] # MEROITIC CURSIVE LETTER LA
+10990 ; [.4CEE.0020.0004][.0000.0108.0004] # MEROITIC HIEROGLYPHIC LETTER LA
+109AD ; [.4CEF.0020.0002] # MEROITIC CURSIVE LETTER KHA
+10991 ; [.4CEF.0020.0004][.0000.0108.0004] # MEROITIC HIEROGLYPHIC LETTER KHA
+109AE ; [.4CF0.0020.0002] # MEROITIC CURSIVE LETTER HHA
+10992 ; [.4CF0.0020.0004][.0000.0108.0004] # MEROITIC HIEROGLYPHIC LETTER HHA
+109AF ; [.4CF1.0020.0002] # MEROITIC CURSIVE LETTER SA
+109B0 ; [.4CF1.0020.0004][.0000.0108.0004] # MEROITIC CURSIVE LETTER ARCHAIC SA
+10993 ; [.4CF1.0020.0004][.0000.0109.0004] # MEROITIC HIEROGLYPHIC LETTER SA
+10994 ; [.4CF1.0020.0004][.0000.010A.0004] # MEROITIC HIEROGLYPHIC LETTER SA-2
+109B1 ; [.4CF2.0020.0002] # MEROITIC CURSIVE LETTER SE
+10995 ; [.4CF2.0020.0004][.0000.0108.0004] # MEROITIC HIEROGLYPHIC LETTER SE
+109B2 ; [.4CF3.0020.0002] # MEROITIC CURSIVE LETTER KA
+10996 ; [.4CF3.0020.0004][.0000.0108.0004] # MEROITIC HIEROGLYPHIC LETTER KA
+109B3 ; [.4CF4.0020.0002] # MEROITIC CURSIVE LETTER QA
+10997 ; [.4CF4.0020.0004][.0000.0108.0004] # MEROITIC HIEROGLYPHIC LETTER QA
+109B4 ; [.4CF5.0020.0002] # MEROITIC CURSIVE LETTER TA
+10998 ; [.4CF5.0020.0004][.0000.0108.0004] # MEROITIC HIEROGLYPHIC LETTER TA
+10999 ; [.4CF5.0020.0004][.0000.0109.0004] # MEROITIC HIEROGLYPHIC LETTER TA-2
+109B5 ; [.4CF6.0020.0002] # MEROITIC CURSIVE LETTER TE
+1099A ; [.4CF6.0020.0004][.0000.0108.0004] # MEROITIC HIEROGLYPHIC LETTER TE
+1099B ; [.4CF6.0020.0004][.0000.0109.0004] # MEROITIC HIEROGLYPHIC LETTER TE-2
+109B6 ; [.4CF7.0020.0002] # MEROITIC CURSIVE LETTER TO
+1099C ; [.4CF7.0020.0004][.0000.0108.0004] # MEROITIC HIEROGLYPHIC LETTER TO
+109B7 ; [.4CF8.0020.0002] # MEROITIC CURSIVE LETTER DA
+1099D ; [.4CF8.0020.0004][.0000.0108.0004] # MEROITIC HIEROGLYPHIC LETTER DA
+109BE ; [.4CF9.0020.0002] # MEROITIC CURSIVE LOGOGRAM RMT
+109BF ; [.4CFA.0020.0002] # MEROITIC CURSIVE LOGOGRAM IMN
+1099E ; [.4CFB.0020.0002] # MEROITIC HIEROGLYPHIC SYMBOL VIDJ
+1099F ; [.4CFC.0020.0002] # MEROITIC HIEROGLYPHIC SYMBOL VIDJ-2
+2F00  ; [.FB40.0020.0004][.CE00.0000.0000] # KANGXI RADICAL ONE
+3220  ; [*030A.0020.0004][.FB40.0020.0004][.CE00.0000.0000][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH ONE
+3280  ; [.FB40.0020.0006][.CE00.0000.0000] # CIRCLED IDEOGRAPH ONE
+3192  ; [.FB40.0020.0014][.CE00.0000.0000] # IDEOGRAPHIC ANNOTATION ONE MARK
+1F229 ; [.FB40.0020.001C][.CE00.0000.0000] # SQUARED CJK UNIFIED IDEOGRAPH-4E00
+319C  ; [.FB40.0020.0014][.CE01.0000.0000] # IDEOGRAPHIC ANNOTATION FOURTH MARK
+3226  ; [*030A.0020.0004][.FB40.0020.0004][.CE03.0000.0000][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH SEVEN
+3286  ; [.FB40.0020.0006][.CE03.0000.0000] # CIRCLED IDEOGRAPH SEVEN
+3222  ; [*030A.0020.0004][.FB40.0020.0004][.CE09.0000.0000][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH THREE
+1F241 ; [*036C.0020.0004][.FB40.0020.0004][.CE09.0000.0000][*036D.0020.0004] # TORTOISE SHELL BRACKETED CJK UNIFIED IDEOGRAPH-4E09
+3282  ; [.FB40.0020.0006][.CE09.0000.0000] # CIRCLED IDEOGRAPH THREE
+3194  ; [.FB40.0020.0014][.CE09.0000.0000] # IDEOGRAPHIC ANNOTATION THREE MARK
+1F22A ; [.FB40.0020.001C][.CE09.0000.0000] # SQUARED CJK UNIFIED IDEOGRAPH-4E09
+32A4  ; [.FB40.0020.0006][.CE0A.0000.0000] # CIRCLED IDEOGRAPH HIGH
+3196  ; [.FB40.0020.0014][.CE0A.0000.0000] # IDEOGRAPHIC ANNOTATION TOP MARK
+32A6  ; [.FB40.0020.0006][.CE0B.0000.0000] # CIRCLED IDEOGRAPH LOW
+3198  ; [.FB40.0020.0014][.CE0B.0000.0000] # IDEOGRAPHIC ANNOTATION BOTTOM MARK
+F967  ; [.FB40.0020.0002][.CE0D.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F967
+319B  ; [.FB40.0020.0014][.CE19.0000.0000] # IDEOGRAPHIC ANNOTATION THIRD MARK
+FA70  ; [.FB40.0020.0002][.CE26.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA70
+2F01  ; [.FB40.0020.0004][.CE28.0000.0000] # KANGXI RADICAL LINE
+2EA6  ; [.FB40.0020.0004][.CE2C.0000.0000] # CJK RADICAL SIMPLIFIED HALF TREE TRUNK
+32A5  ; [.FB40.0020.0006][.CE2D.0000.0000] # CIRCLED IDEOGRAPH CENTRE
+3197  ; [.FB40.0020.0014][.CE2D.0000.0000] # IDEOGRAPHIC ANNOTATION MIDDLE MARK
+1F22D ; [.FB40.0020.001C][.CE2D.0000.0000] # SQUARED CJK UNIFIED IDEOGRAPH-4E2D
+F905  ; [.FB40.0020.0002][.CE32.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F905
+2F02  ; [.FB40.0020.0004][.CE36.0000.0000] # KANGXI RADICAL DOT
+2E80  ; [.FB40.0020.0004][.CE36.0000.0000][.0000.0108.0004] # CJK RADICAL REPEAT
+2F801 ; [.FB40.0020.0002][.CE38.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F801
+F95E  ; [.FB40.0020.0002][.CE39.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F95E
+2F800 ; [.FB40.0020.0002][.CE3D.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F800
+2F03  ; [.FB40.0020.0004][.CE3F.0000.0000] # KANGXI RADICAL SLASH
+2F802 ; [.FB40.0020.0002][.CE41.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F802
+2F04  ; [.FB40.0020.0004][.CE59.0000.0000] # KANGXI RADICAL SECOND
+319A  ; [.FB40.0020.0014][.CE59.0000.0000] # IDEOGRAPHIC ANNOTATION SECOND MARK
+2E84  ; [.FB40.0020.0004][.CE59.0000.0000][.0000.0108.0004] # CJK RADICAL SECOND THREE
+2E83  ; [.FB40.0020.0004][.CE5A.0000.0000] # CJK RADICAL SECOND TWO
+2E82  ; [.FB40.0020.0004][.CE5B.0000.0000] # CJK RADICAL SECOND ONE
+3228  ; [*030A.0020.0004][.FB40.0020.0004][.CE5D.0000.0000][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH NINE
+3288  ; [.FB40.0020.0006][.CE5D.0000.0000] # CIRCLED IDEOGRAPH NINE
+F91B  ; [.FB40.0020.0002][.CE82.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F91B
+2F05  ; [.FB40.0020.0004][.CE85.0000.0000] # KANGXI RADICAL HOOK
+F9BA  ; [.FB40.0020.0002][.CE86.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9BA
+2F06  ; [.FB40.0020.0004][.CE8C.0000.0000] # KANGXI RADICAL TWO
+3221  ; [*030A.0020.0004][.FB40.0020.0004][.CE8C.0000.0000][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH TWO
+1F242 ; [*036C.0020.0004][.FB40.0020.0004][.CE8C.0000.0000][*036D.0020.0004] # TORTOISE SHELL BRACKETED CJK UNIFIED IDEOGRAPH-4E8C
+3281  ; [.FB40.0020.0006][.CE8C.0000.0000] # CIRCLED IDEOGRAPH TWO
+3193  ; [.FB40.0020.0014][.CE8C.0000.0000] # IDEOGRAPHIC ANNOTATION TWO MARK
+1F214 ; [.FB40.0020.001C][.CE8C.0000.0000] # SQUARED CJK UNIFIED IDEOGRAPH-4E8C
+3224  ; [*030A.0020.0004][.FB40.0020.0004][.CE94.0000.0000][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH FIVE
+3284  ; [.FB40.0020.0006][.CE94.0000.0000] # CIRCLED IDEOGRAPH FIVE
+2F07  ; [.FB40.0020.0004][.CEA0.0000.0000] # KANGXI RADICAL LID
+1F218 ; [.FB40.0020.001C][.CEA4.0000.0000] # SQUARED CJK UNIFIED IDEOGRAPH-4EA4
+F977  ; [.FB40.0020.0002][.CEAE.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F977
+2F08  ; [.FB40.0020.0004][.CEBA.0000.0000] # KANGXI RADICAL MAN
+319F  ; [.FB40.0020.0014][.CEBA.0000.0000] # IDEOGRAPHIC ANNOTATION MAN MARK
+2E85  ; [.FB40.0020.0004][.CEBB.0000.0000] # CJK RADICAL PERSON
+F9FD  ; [.FB40.0020.0002][.CEC0.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9FD
+2F819 ; [.FB40.0020.0002][.CECC.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F819
+3239  ; [*030A.0020.0004][.FB40.0020.0004][.CEE3.0000.0000][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH REPRESENT
+F9A8  ; [.FB40.0020.0002][.CEE4.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9A8
+323D  ; [*030A.0020.0004][.FB40.0020.0004][.CF01.0000.0000][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH ENTERPRISE
+32AD  ; [.FB40.0020.0006][.CF01.0000.0000] # CIRCLED IDEOGRAPH ENTERPRISE
+3241  ; [*030A.0020.0004][.FB40.0020.0004][.CF11.0000.0000][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH REST
+32A1  ; [.FB40.0020.0006][.CF11.0000.0000] # CIRCLED IDEOGRAPH REST
+2F804 ; [.FB40.0020.0002][.CF60.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F804
+FA73  ; [.FB40.0020.0002][.CF80.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA73
+F92D  ; [.FB40.0020.0002][.CF86.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F92D
+F9B5  ; [.FB40.0020.0002][.CF8B.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9B5
+FA30  ; [.FB40.0020.0002][.CFAE.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA30
+2F805 ; [.FB40.0020.0002][.CFAE.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F805
+2F806 ; [.FB40.0020.0002][.CFBB.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F806
+F965  ; [.FB40.0020.0002][.CFBF.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F965
+2F807 ; [.FB40.0020.0002][.D002.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F807
+F9D4  ; [.FB40.0020.0002][.D02B.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9D4
+2F808 ; [.FB40.0020.0002][.D07A.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F808
+2F809 ; [.FB40.0020.0002][.D099.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F809
+2F80B ; [.FB40.0020.0002][.D0CF.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F80B
+F9BB  ; [.FB40.0020.0002][.D0DA.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9BB
+FA31  ; [.FB40.0020.0002][.D0E7.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA31
+2F80A ; [.FB40.0020.0002][.D0E7.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F80A
+329D  ; [.FB40.0020.0006][.D12A.0000.0000] # CIRCLED IDEOGRAPH EXCELLENT
+2F09  ; [.FB40.0020.0004][.D13F.0000.0000] # KANGXI RADICAL LEGS
+FA0C  ; [.FB40.0020.0002][.D140.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA0C
+FA74  ; [.FB40.0020.0002][.D145.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA74
+FA32  ; [.FB40.0020.0002][.D14D.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA32
+2F80E ; [.FB40.0020.0002][.D14D.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F80E
+2F80F ; [.FB40.0020.0002][.D154.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F80F
+2F810 ; [.FB40.0020.0002][.D164.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F810
+2F0A  ; [.FB40.0020.0004][.D165.0000.0000] # KANGXI RADICAL ENTER
+2F814 ; [.FB40.0020.0002][.D167.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F814
+FA72  ; [.FB40.0020.0002][.D168.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA72
+F978  ; [.FB40.0020.0002][.D169.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F978
+2F0B  ; [.FB40.0020.0004][.D16B.0000.0000] # KANGXI RADICAL EIGHT
+3227  ; [*030A.0020.0004][.FB40.0020.0004][.D16B.0000.0000][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH EIGHT
+3287  ; [.FB40.0020.0006][.D16B.0000.0000] # CIRCLED IDEOGRAPH EIGHT
+F9D1  ; [.FB40.0020.0002][.D16D.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9D1
+3225  ; [*030A.0020.0004][.FB40.0020.0004][.D16D.0000.0000][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH SIX
+3285  ; [.FB40.0020.0006][.D16D.0000.0000] # CIRCLED IDEOGRAPH SIX
+2F811 ; [.FB40.0020.0002][.D177.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F811
+FA75  ; [.FB40.0020.0002][.D180.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA75
+2F0C  ; [.FB40.0020.0004][.D182.0000.0000] # KANGXI RADICAL DOWN BOX
+2E86  ; [.FB40.0020.0004][.D182.0000.0000][.0000.0108.0004] # CJK RADICAL BOX
+2F815 ; [.FB40.0020.0002][.D18D.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F815
+1F21E ; [.FB40.0020.001C][.D18D.0000.0000] # SQUARED CJK UNIFIED IDEOGRAPH-518D
+2F8D2 ; [.FB40.0020.0002][.D192.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8D2
+2F8D3 ; [.FB40.0020.0002][.D195.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8D3
+2F0D  ; [.FB40.0020.0004][.D196.0000.0000] # KANGXI RADICAL COVER
+2F817 ; [.FB40.0020.0002][.D197.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F817
+32A2  ; [.FB40.0020.0006][.D199.0000.0000] # CIRCLED IDEOGRAPH COPY
+2F818 ; [.FB40.0020.0002][.D1A4.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F818
+2F0E  ; [.FB40.0020.0004][.D1AB.0000.0000] # KANGXI RADICAL ICE
+2F81A ; [.FB40.0020.0002][.D1AC.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F81A
+FA71  ; [.FB40.0020.0002][.D1B5.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA71
+2F81B ; [.FB40.0020.0002][.D1B5.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F81B
+F92E  ; [.FB40.0020.0002][.D1B7.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F92E
+F979  ; [.FB40.0020.0002][.D1C9.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F979
+F955  ; [.FB40.0020.0002][.D1CC.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F955
+F954  ; [.FB40.0020.0002][.D1DC.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F954
+FA15  ; [.FB40.0020.0002][.D1DE.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA15
+2F0F  ; [.FB40.0020.0004][.D1E0.0000.0000] # KANGXI RADICAL TABLE
+2E87  ; [.FB40.0020.0004][.D1E0.0000.0000][.0000.0108.0004] # CJK RADICAL TABLE
+2F81D ; [.FB40.0020.0002][.D1F5.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F81D
+2F10  ; [.FB40.0020.0004][.D1F5.0000.0000] # KANGXI RADICAL OPEN BOX
+2F11  ; [.FB40.0020.0004][.D200.0000.0000] # KANGXI RADICAL KNIFE
+2E88  ; [.FB40.0020.0004][.D200.0000.0000][.0000.0108.0004] # CJK RADICAL KNIFE ONE
+2E89  ; [.FB40.0020.0004][.D202.0000.0000] # CJK RADICAL KNIFE TWO
+2F81E ; [.FB40.0020.0002][.D203.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F81E
+FA00  ; [.FB40.0020.0002][.D207.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA00
+2F850 ; [.FB40.0020.0002][.D207.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F850
+F99C  ; [.FB40.0020.0002][.D217.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F99C
+1F220 ; [.FB40.0020.001C][.D21D.0000.0000] # SQUARED CJK UNIFIED IDEOGRAPH-521D
+F9DD  ; [.FB40.0020.0002][.D229.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9DD
+F9FF  ; [.FB40.0020.0002][.D23A.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9FF
+2F820 ; [.FB40.0020.0002][.D23B.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F820
+2F821 ; [.FB40.0020.0002][.D246.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F821
+1F21C ; [.FB40.0020.001C][.D24D.0000.0000] # SQUARED CJK UNIFIED IDEOGRAPH-524D
+2F822 ; [.FB40.0020.0002][.D272.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F822
+1F239 ; [.FB40.0020.001C][.D272.0000.0000] # SQUARED CJK UNIFIED IDEOGRAPH-5272
+2F823 ; [.FB40.0020.0002][.D277.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F823
+F9C7  ; [.FB40.0020.0002][.D289.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9C7
+F98A  ; [.FB40.0020.0002][.D29B.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F98A
+2F12  ; [.FB40.0020.0004][.D29B.0000.0000] # KANGXI RADICAL POWER
+F99D  ; [.FB40.0020.0002][.D2A3.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F99D
+2F992 ; [.FB40.0020.0002][.D2B3.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F992
+3238  ; [*030A.0020.0004][.FB40.0020.0004][.D2B4.0000.0000][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH LABOR
+3298  ; [.FB40.0020.0006][.D2B4.0000.0000] # CIRCLED IDEOGRAPH LABOR
+FA76  ; [.FB40.0020.0002][.D2C7.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA76
+2F825 ; [.FB40.0020.0002][.D2C7.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F825
+FA33  ; [.FB40.0020.0002][.D2C9.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA33
+2F826 ; [.FB40.0020.0002][.D2C9.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F826
+F952  ; [.FB40.0020.0002][.D2D2.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F952
+1F247 ; [*036C.0020.0004][.FB40.0020.0004][.D2DD.0000.0000][*036D.0020.0004] # TORTOISE SHELL BRACKETED CJK UNIFIED IDEOGRAPH-52DD
+F92F  ; [.FB40.0020.0002][.D2DE.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F92F
+FA34  ; [.FB40.0020.0002][.D2E4.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA34
+2F827 ; [.FB40.0020.0002][.D2E4.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F827
+F97F  ; [.FB40.0020.0002][.D2F5.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F97F
+2F13  ; [.FB40.0020.0004][.D2F9.0000.0000] # KANGXI RADICAL WRAP
+FA77  ; [.FB40.0020.0002][.D2FA.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA77
+2F828 ; [.FB40.0020.0002][.D2FA.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F828
+2F829 ; [.FB40.0020.0002][.D305.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F829
+2F82A ; [.FB40.0020.0002][.D306.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F82A
+2F14  ; [.FB40.0020.0004][.D315.0000.0000] # KANGXI RADICAL SPOON
+F963  ; [.FB40.0020.0002][.D317.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F963
+2F82B ; [.FB40.0020.0002][.D317.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F82B
+2F15  ; [.FB40.0020.0004][.D31A.0000.0000] # KANGXI RADICAL RIGHT OPEN BOX
+2F16  ; [.FB40.0020.0004][.D338.0000.0000] # KANGXI RADICAL HIDING ENCLOSURE
+32A9  ; [.FB40.0020.0006][.D33B.0000.0000] # CIRCLED IDEOGRAPH MEDICINE
+F9EB  ; [.FB40.0020.0002][.D33F.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9EB
+2F17  ; [.FB40.0020.0004][.D341.0000.0000] # KANGXI RADICAL TEN
+3038  ; [.FB40.0020.0004][.D341.0000.0000] # HANGZHOU NUMERAL TEN
+3229  ; [*030A.0020.0004][.FB40.0020.0004][.D341.0000.0000][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH TEN
+3289  ; [.FB40.0020.0006][.D341.0000.0000] # CIRCLED IDEOGRAPH TEN
+3039  ; [.FB40.0020.0004][.D344.0000.0000] # HANGZHOU NUMERAL TWENTY
+303A  ; [.FB40.0020.0004][.D345.0000.0000] # HANGZHOU NUMERAL THIRTY
+2F82C ; [.FB40.0020.0002][.D349.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F82C
+FA35  ; [.FB40.0020.0002][.D351.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA35
+2F82D ; [.FB40.0020.0002][.D351.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F82D
+323F  ; [*030A.0020.0004][.FB40.0020.0004][.D354.0000.0000][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH ALLIANCE
+32AF  ; [.FB40.0020.0006][.D354.0000.0000] # CIRCLED IDEOGRAPH ALLIANCE
+2F82E ; [.FB40.0020.0002][.D35A.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F82E
+2F18  ; [.FB40.0020.0004][.D35C.0000.0000] # KANGXI RADICAL DIVINATION
+2E8A  ; [.FB40.0020.0004][.D35C.0000.0000][.0000.0108.0004] # CJK RADICAL DIVINATION
+2F19  ; [.FB40.0020.0004][.D369.0000.0000] # KANGXI RADICAL SEAL
+2E8B  ; [.FB40.0020.0004][.D369.0000.0000][.0000.0108.0004] # CJK RADICAL SEAL
+329E  ; [.FB40.0020.0006][.D370.0000.0000] # CIRCLED IDEOGRAPH PRINT
+2F82F ; [.FB40.0020.0002][.D373.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F82F
+F91C  ; [.FB40.0020.0002][.D375.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F91C
+2F830 ; [.FB40.0020.0002][.D37D.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F830
+2F831 ; [.FB40.0020.0002][.D37F.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F831
+2F832 ; [.FB40.0020.0002][.D37F.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F832
+2F833 ; [.FB40.0020.0002][.D37F.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F833
+2F1A  ; [.FB40.0020.0004][.D382.0000.0000] # KANGXI RADICAL CLIFF
+2E81  ; [.FB40.0020.0004][.D382.0000.0000][.0000.0108.0004] # CJK RADICAL CLIFF
+2F1B  ; [.FB40.0020.0004][.D3B6.0000.0000] # KANGXI RADICAL PRIVATE
+F96B  ; [.FB40.0020.0002][.D3C3.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F96B
+2F1C  ; [.FB40.0020.0004][.D3C8.0000.0000] # KANGXI RADICAL AGAIN
+2F836 ; [.FB40.0020.0002][.D3CA.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F836
+1F212 ; [.FB40.0020.001C][.D3CC.0000.0000] # SQUARED CJK UNIFIED IDEOGRAPH-53CC
+2F837 ; [.FB40.0020.0002][.D3DF.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F837
+2F1D  ; [.FB40.0020.0004][.D3E3.0000.0000] # KANGXI RADICAL MOUTH
+F906  ; [.FB40.0020.0002][.D3E5.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F906
+2F839 ; [.FB40.0020.0002][.D3EB.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F839
+1F251 ; [.FB40.0020.0006][.D3EF.0000.0000] # CIRCLED IDEOGRAPH ACCEPT
+2F83A ; [.FB40.0020.0002][.D3F1.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F83A
+32A8  ; [.FB40.0020.0006][.D3F3.0000.0000] # CIRCLED IDEOGRAPH RIGHT
+1F22E ; [.FB40.0020.001C][.D3F3.0000.0000] # SQUARED CJK UNIFIED IDEOGRAPH-53F3
+2F83B ; [.FB40.0020.0002][.D406.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F83B
+1F234 ; [.FB40.0020.001C][.D408.0000.0000] # SQUARED CJK UNIFIED IDEOGRAPH-5408
+3234  ; [*030A.0020.0004][.FB40.0020.0004][.D40D.0000.0000][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH NAME
+3294  ; [.FB40.0020.0006][.D40D.0000.0000] # CIRCLED IDEOGRAPH NAME
+F9DE  ; [.FB40.0020.0002][.D40F.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9DE
+F9ED  ; [.FB40.0020.0002][.D41D.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9ED
+2F83D ; [.FB40.0020.0002][.D438.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F83D
+1F225 ; [.FB40.0020.001C][.D439.0000.0000] # SQUARED CJK UNIFIED IDEOGRAPH-5439
+F980  ; [.FB40.0020.0002][.D442.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F980
+2F83E ; [.FB40.0020.0002][.D448.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F83E
+2F83F ; [.FB40.0020.0002][.D468.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F83F
+323A  ; [*030A.0020.0004][.FB40.0020.0004][.D47C.0000.0000][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH CALL
+2F83C ; [.FB40.0020.0002][.D49E.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F83C
+2F840 ; [.FB40.0020.0002][.D4A2.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F840
+F99E  ; [.FB40.0020.0002][.D4BD.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F99E
+2F841 ; [.FB40.0020.0002][.D4F6.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F841
+2F842 ; [.FB40.0020.0002][.D510.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F842
+3244  ; [.FB40.0020.0006][.D54F.0000.0000] # CIRCLED IDEOGRAPH QUESTION
+2F843 ; [.FB40.0020.0002][.D553.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F843
+FA79  ; [.FB40.0020.0002][.D555.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA79
+2F844 ; [.FB40.0020.0002][.D563.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F844
+2F845 ; [.FB40.0020.0002][.D584.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F845
+2F846 ; [.FB40.0020.0002][.D584.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F846
+F90B  ; [.FB40.0020.0002][.D587.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F90B
+FA7A  ; [.FB40.0020.0002][.D599.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA7A
+2F847 ; [.FB40.0020.0002][.D599.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F847
+FA36  ; [.FB40.0020.0002][.D59D.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA36
+FA78  ; [.FB40.0020.0002][.D59D.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA78
+2F848 ; [.FB40.0020.0002][.D5AB.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F848
+2F849 ; [.FB40.0020.0002][.D5B3.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F849
+1F23A ; [.FB40.0020.001C][.D5B6.0000.0000] # SQUARED CJK UNIFIED IDEOGRAPH-55B6
+FA0D  ; [.FB40.0020.0002][.D5C0.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA0D
+2F84A ; [.FB40.0020.0002][.D5C2.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F84A
+FA7B  ; [.FB40.0020.0002][.D5E2.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA7B
+FA37  ; [.FB40.0020.0002][.D606.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA37
+2F84C ; [.FB40.0020.0002][.D606.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F84C
+2F84E ; [.FB40.0020.0002][.D651.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F84E
+FA38  ; [.FB40.0020.0002][.D668.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA38
+2F84F ; [.FB40.0020.0002][.D674.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F84F
+2F1E  ; [.FB40.0020.0004][.D6D7.0000.0000] # KANGXI RADICAL ENCLOSURE
+3223  ; [*030A.0020.0004][.FB40.0020.0004][.D6DB.0000.0000][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH FOUR
+3283  ; [.FB40.0020.0006][.D6DB.0000.0000] # CIRCLED IDEOGRAPH FOUR
+3195  ; [.FB40.0020.0014][.D6DB.0000.0000] # IDEOGRAPHIC ANNOTATION FOUR MARK
+F9A9  ; [.FB40.0020.0002][.D6F9.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9A9
+2F84B ; [.FB40.0020.0002][.D716.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F84B
+2F84D ; [.FB40.0020.0002][.D717.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F84D
+2F1F  ; [.FB40.0020.0004][.D71F.0000.0000] # KANGXI RADICAL EARTH
+322F  ; [*030A.0020.0004][.FB40.0020.0004][.D71F.0000.0000][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH EARTH
+328F  ; [.FB40.0020.0006][.D71F.0000.0000] # CIRCLED IDEOGRAPH EARTH
+319E  ; [.FB40.0020.0014][.D730.0000.0000] # IDEOGRAPHIC ANNOTATION EARTH MARK
+2F855 ; [.FB40.0020.0002][.D78B.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F855
+2F852 ; [.FB40.0020.0002][.D7CE.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F852
+2F853 ; [.FB40.0020.0002][.D7F4.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F853
+2F854 ; [.FB40.0020.0002][.D80D.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F854
+2F857 ; [.FB40.0020.0002][.D831.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F857
+2F856 ; [.FB40.0020.0002][.D832.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F856
+FA39  ; [.FB40.0020.0002][.D840.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA39
+FA10  ; [.FB40.0020.0002][.D85A.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA10
+FA7C  ; [.FB40.0020.0002][.D85A.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA7C
+F96C  ; [.FB40.0020.0002][.D85E.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F96C
+FA3A  ; [.FB40.0020.0002][.D8A8.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA3A
+2F858 ; [.FB40.0020.0002][.D8AC.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F858
+FA7D  ; [.FB40.0020.0002][.D8B3.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA7D
+F94A  ; [.FB40.0020.0002][.D8D8.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F94A
+F942  ; [.FB40.0020.0002][.D8DF.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F942
+2F20  ; [.FB40.0020.0004][.D8EB.0000.0000] # KANGXI RADICAL SCHOLAR
+2F851 ; [.FB40.0020.0002][.D8EE.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F851
+1F224 ; [.FB40.0020.001C][.D8F0.0000.0000] # SQUARED CJK UNIFIED IDEOGRAPH-58F0
+2F85A ; [.FB40.0020.0002][.D8F2.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F85A
+2F85B ; [.FB40.0020.0002][.D8F7.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F85B
+2F21  ; [.FB40.0020.0004][.D902.0000.0000] # KANGXI RADICAL GO
+2F85C ; [.FB40.0020.0002][.D906.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F85C
+2F22  ; [.FB40.0020.0004][.D90A.0000.0000] # KANGXI RADICAL GO SLOWLY
+2F23  ; [.FB40.0020.0004][.D915.0000.0000] # KANGXI RADICAL EVENING
+2F85D ; [.FB40.0020.0002][.D91A.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F85D
+1F215 ; [.FB40.0020.001C][.D91A.0000.0000] # SQUARED CJK UNIFIED IDEOGRAPH-591A
+32B0  ; [.FB40.0020.0006][.D91C.0000.0000] # CIRCLED IDEOGRAPH NIGHT
+2F85E ; [.FB40.0020.0002][.D922.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F85E
+2F24  ; [.FB40.0020.0004][.D927.0000.0000] # KANGXI RADICAL BIG
+337D  ; [.FB40.0020.001C][.D927.0000.0000][.FB40.0020.001C][.EB63.0000.0000] # SQUARE ERA NAME TAISYOU
+319D  ; [.FB40.0020.0014][.D929.0000.0000] # IDEOGRAPHIC ANNOTATION HEAVEN MARK
+1F217 ; [.FB40.0020.001C][.D929.0000.0000] # SQUARED CJK UNIFIED IDEOGRAPH-5929
+FA7E  ; [.FB40.0020.0002][.D944.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA7E
+F90C  ; [.FB40.0020.0002][.D948.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F90C
+F909  ; [.FB40.0020.0002][.D951.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F909
+FA7F  ; [.FB40.0020.0002][.D954.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA7F
+2F85F ; [.FB40.0020.0002][.D962.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F85F
+F981  ; [.FB40.0020.0002][.D973.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F981
+2F25  ; [.FB40.0020.0004][.D973.0000.0000] # KANGXI RADICAL WOMAN
+329B  ; [.FB40.0020.0006][.D973.0000.0000] # CIRCLED IDEOGRAPH FEMALE
+2F865 ; [.FB40.0020.0002][.D9D8.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F865
+2F862 ; [.FB40.0020.0002][.D9EC.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F862
+2F863 ; [.FB40.0020.0002][.DA1B.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F863
+2F864 ; [.FB40.0020.0002][.DA27.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F864
+FA80  ; [.FB40.0020.0002][.DA62.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA80
+2F866 ; [.FB40.0020.0002][.DA66.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F866
+2F986 ; [.FB40.0020.0002][.DAB5.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F986
+2F869 ; [.FB40.0020.0002][.DB08.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F869
+FA81  ; [.FB40.0020.0002][.DB28.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA81
+2F86A ; [.FB40.0020.0002][.DB3E.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F86A
+2F86B ; [.FB40.0020.0002][.DB3E.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F86B
+2F26  ; [.FB40.0020.0004][.DB50.0000.0000] # KANGXI RADICAL CHILD
+1F211 ; [.FB40.0020.001C][.DB57.0000.0000] # SQUARED CJK UNIFIED IDEOGRAPH-5B57
+323B  ; [*030A.0020.0004][.FB40.0020.0004][.DB66.0000.0000][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH STUDY
+32AB  ; [.FB40.0020.0006][.DB66.0000.0000] # CIRCLED IDEOGRAPH STUDY
+2F27  ; [.FB40.0020.0004][.DB80.0000.0000] # KANGXI RADICAL ROOF
+FA04  ; [.FB40.0020.0002][.DB85.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA04
+1F243 ; [*036C.0020.0004][.FB40.0020.0004][.DB89.0000.0000][*036D.0020.0004] # TORTOISE SHELL BRACKETED CJK UNIFIED IDEOGRAPH-5B89
+32AA  ; [.FB40.0020.0006][.DB97.0000.0000] # CIRCLED IDEOGRAPH RELIGION
+2F86D ; [.FB40.0020.0002][.DBC3.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F86D
+2F86E ; [.FB40.0020.0002][.DBD8.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F86E
+F95F  ; [.FB40.0020.0002][.DBE7.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F95F
+F9AA  ; [.FB40.0020.0002][.DBE7.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9AA
+2F86F ; [.FB40.0020.0002][.DBE7.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F86F
+F9BC  ; [.FB40.0020.0002][.DBEE.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9BC
+2F870 ; [.FB40.0020.0002][.DBF3.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F870
+2F28  ; [.FB40.0020.0004][.DBF8.0000.0000] # KANGXI RADICAL INCH
+2F872 ; [.FB40.0020.0002][.DBFF.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F872
+2F873 ; [.FB40.0020.0002][.DC06.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F873
+2F29  ; [.FB40.0020.0004][.DC0F.0000.0000] # KANGXI RADICAL SMALL
+2E8C  ; [.FB40.0020.0004][.DC0F.0000.0000][.0000.0108.0004] # CJK RADICAL SMALL ONE
+2E8D  ; [.FB40.0020.0004][.DC0F.0000.0000][.0000.0109.0004] # CJK RADICAL SMALL TWO
+2F875 ; [.FB40.0020.0002][.DC22.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F875
+2E90  ; [.FB40.0020.0004][.DC22.0000.0000] # CJK RADICAL LAME THREE
+2F2A  ; [.FB40.0020.0004][.DC22.0000.0000] # KANGXI RADICAL LAME
+2E8E  ; [.FB40.0020.0004][.DC22.0000.0000][.0000.0108.0004] # CJK RADICAL LAME ONE
+2E8F  ; [.FB40.0020.0004][.DC23.0000.0000] # CJK RADICAL LAME TWO
+2E91  ; [.FB40.0020.0004][.DC23.0000.0000][.0000.0108.0004] # CJK RADICAL LAME FOUR
+2F2B  ; [.FB40.0020.0004][.DC38.0000.0000] # KANGXI RADICAL CORPSE
+F9BD  ; [.FB40.0020.0002][.DC3F.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9BD
+2F877 ; [.FB40.0020.0002][.DC60.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F877
+F94B  ; [.FB40.0020.0002][.DC62.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F94B
+FA3B  ; [.FB40.0020.0002][.DC64.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA3B
+F9DF  ; [.FB40.0020.0002][.DC65.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9DF
+FA3C  ; [.FB40.0020.0002][.DC6E.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA3C
+2F878 ; [.FB40.0020.0002][.DC6E.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F878
+2F2C  ; [.FB40.0020.0004][.DC6E.0000.0000] # KANGXI RADICAL SPROUT
+2F2D  ; [.FB40.0020.0004][.DC71.0000.0000] # KANGXI RADICAL MOUNTAIN
+2F87A ; [.FB40.0020.0002][.DC8D.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F87A
+2F879 ; [.FB40.0020.0002][.DCC0.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F879
+F9D5  ; [.FB40.0020.0002][.DD19.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9D5
+2F87C ; [.FB40.0020.0002][.DD43.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F87C
+F921  ; [.FB40.0020.0002][.DD50.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F921
+2F87F ; [.FB40.0020.0002][.DD6B.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F87F
+2F87E ; [.FB40.0020.0002][.DD6E.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F87E
+2F880 ; [.FB40.0020.0002][.DD7C.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F880
+2F9F4 ; [.FB40.0020.0002][.DDB2.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9F4
+F9AB  ; [.FB40.0020.0002][.DDBA.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9AB
+2F2E  ; [.FB40.0020.0004][.DDDB.0000.0000] # KANGXI RADICAL RIVER
+2F881 ; [.FB40.0020.0002][.DDE1.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F881
+2F882 ; [.FB40.0020.0002][.DDE2.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F882
+2F2F  ; [.FB40.0020.0004][.DDE5.0000.0000] # KANGXI RADICAL WORK
+32A7  ; [.FB40.0020.0006][.DDE6.0000.0000] # CIRCLED IDEOGRAPH LEFT
+1F22C ; [.FB40.0020.001C][.DDE6.0000.0000] # SQUARED CJK UNIFIED IDEOGRAPH-5DE6
+2F30  ; [.FB40.0020.0004][.DDF1.0000.0000] # KANGXI RADICAL ONESELF
+2E92  ; [.FB40.0020.0004][.DDF3.0000.0000] # CJK RADICAL SNAKE
+2F884 ; [.FB40.0020.0002][.DDFD.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F884
+2F31  ; [.FB40.0020.0004][.DDFE.0000.0000] # KANGXI RADICAL TURBAN
+2F885 ; [.FB40.0020.0002][.DE28.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F885
+2F886 ; [.FB40.0020.0002][.DE3D.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F886
+2F887 ; [.FB40.0020.0002][.DE69.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F887
+2F32  ; [.FB40.0020.0004][.DE72.0000.0000] # KANGXI RADICAL DRY
+337B  ; [.FB40.0020.001C][.DE73.0000.0000][.FB40.0020.001C][.E210.0000.0000] # SQUARE ERA NAME HEISEI
+F98E  ; [.FB40.0020.0002][.DE74.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F98E
+2E93  ; [.FB40.0020.0004][.DE7A.0000.0000] # CJK RADICAL THREAD
+2F33  ; [.FB40.0020.0004][.DE7A.0000.0000] # KANGXI RADICAL SHORT THREAD
+3245  ; [.FB40.0020.0006][.DE7C.0000.0000] # CIRCLED IDEOGRAPH KINDERGARTEN
+2F34  ; [.FB40.0020.0004][.DE7F.0000.0000] # KANGXI RADICAL DOTTED CLIFF
+FA01  ; [.FB40.0020.0002][.DEA6.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA01
+2F88B ; [.FB40.0020.0002][.DEB0.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F88B
+2F88C ; [.FB40.0020.0002][.DEB3.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F88C
+2F88D ; [.FB40.0020.0002][.DEB6.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F88D
+F9A2  ; [.FB40.0020.0002][.DEC9.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9A2
+F928  ; [.FB40.0020.0002][.DECA.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F928
+2F88E ; [.FB40.0020.0002][.DECA.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F88E
+FA82  ; [.FB40.0020.0002][.DED2.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA82
+FA0B  ; [.FB40.0020.0002][.DED3.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA0B
+FA83  ; [.FB40.0020.0002][.DED9.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA83
+F982  ; [.FB40.0020.0002][.DEEC.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F982
+2F35  ; [.FB40.0020.0004][.DEF4.0000.0000] # KANGXI RADICAL LONG STRIDE
+2F890 ; [.FB40.0020.0002][.DEFE.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F890
+2F36  ; [.FB40.0020.0004][.DEFE.0000.0000] # KANGXI RADICAL TWO HANDS
+F943  ; [.FB40.0020.0002][.DF04.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F943
+2F37  ; [.FB40.0020.0004][.DF0B.0000.0000] # KANGXI RADICAL SHOOT
+2F38  ; [.FB40.0020.0004][.DF13.0000.0000] # KANGXI RADICAL BOW
+2F894 ; [.FB40.0020.0002][.DF22.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F894
+2F895 ; [.FB40.0020.0002][.DF22.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F895
+2F39  ; [.FB40.0020.0004][.DF50.0000.0000] # KANGXI RADICAL SNOUT
+2E95  ; [.FB40.0020.0004][.DF50.0000.0000][.0000.0108.0004] # CJK RADICAL SNOUT TWO
+2E94  ; [.FB40.0020.0004][.DF51.0000.0000] # CJK RADICAL SNOUT ONE
+2F874 ; [.FB40.0020.0002][.DF53.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F874
+2F3A  ; [.FB40.0020.0004][.DF61.0000.0000] # KANGXI RADICAL BRISTLE
+2F899 ; [.FB40.0020.0002][.DF62.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F899
+FA84  ; [.FB40.0020.0002][.DF69.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA84
+2F89A ; [.FB40.0020.0002][.DF6B.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F89A
+2F3B  ; [.FB40.0020.0004][.DF73.0000.0000] # KANGXI RADICAL STEP
+F9D8  ; [.FB40.0020.0002][.DF8B.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9D8
+1F21D ; [.FB40.0020.001C][.DF8C.0000.0000] # SQUARED CJK UNIFIED IDEOGRAPH-5F8C
+1F250 ; [.FB40.0020.0006][.DF97.0000.0000] # CIRCLED IDEOGRAPH ADVANTAGE
+2F89C ; [.FB40.0020.0002][.DF9A.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F89C
+F966  ; [.FB40.0020.0002][.DFA9.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F966
+FA85  ; [.FB40.0020.0002][.DFAD.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA85
+2F3C  ; [.FB40.0020.0004][.DFC3.0000.0000] # KANGXI RADICAL HEART
+2E97  ; [.FB40.0020.0004][.DFC3.0000.0000][.0000.0108.0004] # CJK RADICAL HEART TWO
+2E96  ; [.FB40.0020.0004][.DFC4.0000.0000] # CJK RADICAL HEART ONE
+2F89D ; [.FB40.0020.0002][.DFCD.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F89D
+2F89E ; [.FB40.0020.0002][.DFD7.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F89E
+F9A3  ; [.FB40.0020.0002][.DFF5.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9A3
+2F89F ; [.FB40.0020.0002][.DFF9.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F89F
+F960  ; [.FB40.0020.0002][.E012.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F960
+F9AC  ; [.FB40.0020.0002][.E01C.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9AC
+FA6B  ; [.FB40.0020.0002][.E075.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA6B
+2F8A0 ; [.FB40.0020.0002][.E081.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8A0
+FA3D  ; [.FB40.0020.0002][.E094.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA3D
+2F8A3 ; [.FB40.0020.0002][.E094.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8A3
+2F8A5 ; [.FB40.0020.0002][.E0C7.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8A5
+FA86  ; [.FB40.0020.0002][.E0D8.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA86
+F9B9  ; [.FB40.0020.0002][.E0E1.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9B9
+FA88  ; [.FB40.0020.0002][.E108.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA88
+F9D9  ; [.FB40.0020.0002][.E144.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9D9
+2F8A6 ; [.FB40.0020.0002][.E148.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8A6
+2F8A7 ; [.FB40.0020.0002][.E14C.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8A7
+2F8A9 ; [.FB40.0020.0002][.E14C.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8A9
+FA87  ; [.FB40.0020.0002][.E14E.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA87
+2F8A8 ; [.FB40.0020.0002][.E14E.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8A8
+FA8A  ; [.FB40.0020.0002][.E160.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA8A
+FA3E  ; [.FB40.0020.0002][.E168.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA3E
+2F8AA ; [.FB40.0020.0002][.E17A.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8AA
+FA3F  ; [.FB40.0020.0002][.E18E.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA3F
+FA89  ; [.FB40.0020.0002][.E18E.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA89
+2F8AB ; [.FB40.0020.0002][.E18E.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8AB
+F98F  ; [.FB40.0020.0002][.E190.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F98F
+2F8AD ; [.FB40.0020.0002][.E1A4.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8AD
+2F8AE ; [.FB40.0020.0002][.E1AF.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8AE
+2F8AC ; [.FB40.0020.0002][.E1B2.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8AC
+2F8AF ; [.FB40.0020.0002][.E1DE.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8AF
+FA40  ; [.FB40.0020.0002][.E1F2.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA40
+FA8B  ; [.FB40.0020.0002][.E1F2.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA8B
+2F8B0 ; [.FB40.0020.0002][.E1F2.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8B0
+F90D  ; [.FB40.0020.0002][.E1F6.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F90D
+2F8B1 ; [.FB40.0020.0002][.E1F6.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8B1
+F990  ; [.FB40.0020.0002][.E200.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F990
+2F3D  ; [.FB40.0020.0004][.E208.0000.0000] # KANGXI RADICAL HALBERD
+2F8B2 ; [.FB40.0020.0002][.E210.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8B2
+2F8B3 ; [.FB40.0020.0002][.E21B.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8B3
+F9D2  ; [.FB40.0020.0002][.E22E.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9D2
+FA8C  ; [.FB40.0020.0002][.E234.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA8C
+2F3E  ; [.FB40.0020.0004][.E236.0000.0000] # KANGXI RADICAL DOOR
+2F3F  ; [.FB40.0020.0004][.E24B.0000.0000] # KANGXI RADICAL HAND
+1F210 ; [.FB40.0020.001C][.E24B.0000.0000] # SQUARED CJK UNIFIED IDEOGRAPH-624B
+2E98  ; [.FB40.0020.0004][.E24C.0000.0000] # CJK RADICAL HAND
+1F245 ; [*036C.0020.0004][.FB40.0020.0004][.E253.0000.0000][*036D.0020.0004] # TORTOISE SHELL BRACKETED CJK UNIFIED IDEOGRAPH-6253
+1F231 ; [.FB40.0020.001C][.E253.0000.0000] # SQUARED CJK UNIFIED IDEOGRAPH-6253
+2F8B4 ; [.FB40.0020.0002][.E25D.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8B4
+1F227 ; [.FB40.0020.001C][.E295.0000.0000] # SQUARED CJK UNIFIED IDEOGRAPH-6295
+2F8B5 ; [.FB40.0020.0002][.E2B1.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8B5
+F925  ; [.FB40.0020.0002][.E2C9.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F925
+F95B  ; [.FB40.0020.0002][.E2CF.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F95B
+FA02  ; [.FB40.0020.0002][.E2D3.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA02
+2F8B6 ; [.FB40.0020.0002][.E2D4.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8B6
+2F8BA ; [.FB40.0020.0002][.E2FC.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8BA
+F973  ; [.FB40.0020.0002][.E2FE.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F973
+1F22F ; [.FB40.0020.001C][.E307.0000.0000] # SQUARED CJK UNIFIED IDEOGRAPH-6307
+2F8B9 ; [.FB40.0020.0002][.E33D.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8B9
+2F8B7 ; [.FB40.0020.0002][.E350.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8B7
+1F228 ; [.FB40.0020.001C][.E355.0000.0000] # SQUARED CJK UNIFIED IDEOGRAPH-6355
+2F8BB ; [.FB40.0020.0002][.E368.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8BB
+F9A4  ; [.FB40.0020.0002][.E37B.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9A4
+2F8BC ; [.FB40.0020.0002][.E383.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8BC
+F975  ; [.FB40.0020.0002][.E3A0.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F975
+2F8C1 ; [.FB40.0020.0002][.E3A9.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8C1
+FA8D  ; [.FB40.0020.0002][.E3C4.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA8D
+2F8C0 ; [.FB40.0020.0002][.E3C5.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8C0
+2F8BD ; [.FB40.0020.0002][.E3E4.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8BD
+FA8E  ; [.FB40.0020.0002][.E41C.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA8E
+2F8BF ; [.FB40.0020.0002][.E422.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8BF
+FA8F  ; [.FB40.0020.0002][.E452.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA8F
+2F8C3 ; [.FB40.0020.0002][.E469.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8C3
+2F8C6 ; [.FB40.0020.0002][.E477.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8C6
+2F8C4 ; [.FB40.0020.0002][.E47E.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8C4
+F991  ; [.FB40.0020.0002][.E49A.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F991
+2F8C5 ; [.FB40.0020.0002][.E49D.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8C5
+F930  ; [.FB40.0020.0002][.E4C4.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F930
+2F40  ; [.FB40.0020.0004][.E52F.0000.0000] # KANGXI RADICAL BRANCH
+2F41  ; [.FB40.0020.0004][.E534.0000.0000] # KANGXI RADICAL RAP
+2E99  ; [.FB40.0020.0004][.E535.0000.0000] # CJK RADICAL RAP
+FA41  ; [.FB40.0020.0002][.E54F.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA41
+2F8C8 ; [.FB40.0020.0002][.E54F.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8C8
+FA90  ; [.FB40.0020.0002][.E556.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA90
+1F248 ; [*036C.0020.0004][.FB40.0020.0004][.E557.0000.0000][*036D.0020.0004] # TORTOISE SHELL BRACKETED CJK UNIFIED IDEOGRAPH-6557
+2F8C9 ; [.FB40.0020.0002][.E56C.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8C9
+F969  ; [.FB40.0020.0002][.E578.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F969
+2F42  ; [.FB40.0020.0004][.E587.0000.0000] # KANGXI RADICAL SCRIPT
+3246  ; [.FB40.0020.0006][.E587.0000.0000] # CIRCLED IDEOGRAPH SCHOOL
+2F43  ; [.FB40.0020.0004][.E597.0000.0000] # KANGXI RADICAL DIPPER
+F9BE  ; [.FB40.0020.0002][.E599.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9BE
+1F21B ; [.FB40.0020.001C][.E599.0000.0000] # SQUARED CJK UNIFIED IDEOGRAPH-6599
+2F44  ; [.FB40.0020.0004][.E5A4.0000.0000] # KANGXI RADICAL AXE
+1F21F ; [.FB40.0020.001C][.E5B0.0000.0000] # SQUARED CJK UNIFIED IDEOGRAPH-65B0
+2F45  ; [.FB40.0020.0004][.E5B9.0000.0000] # KANGXI RADICAL SQUARE
+F983  ; [.FB40.0020.0002][.E5C5.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F983
+2F46  ; [.FB40.0020.0004][.E5E0.0000.0000] # KANGXI RADICAL NOT
+2E9B  ; [.FB40.0020.0004][.E5E1.0000.0000] # CJK RADICAL CHOKE
+FA42  ; [.FB40.0020.0002][.E5E2.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA42
+2F8CB ; [.FB40.0020.0002][.E5E3.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8CB
+2F47  ; [.FB40.0020.0004][.E5E5.0000.0000] # KANGXI RADICAL SUN
+3230  ; [*030A.0020.0004][.FB40.0020.0004][.E5E5.0000.0000][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH SUN
+3290  ; [.FB40.0020.0006][.E5E5.0000.0000] # CIRCLED IDEOGRAPH SUN
+2E9C  ; [.FB40.0020.0004][.E5E5.0000.0000][.0000.0108.0004] # CJK RADICAL SUN
+337E  ; [.FB40.0020.001C][.E60E.0000.0000][.FB40.0020.001C][.ECBB.0000.0000] # SQUARE ERA NAME MEIZI
+F9E0  ; [.FB40.0020.0002][.E613.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9E0
+1F219 ; [.FB40.0020.001C][.E620.0000.0000] # SQUARED CJK UNIFIED IDEOGRAPH-6620
+337C  ; [.FB40.0020.001C][.E62D.0000.0000][.FB40.0020.001C][.D48C.0000.0000] # SQUARE ERA NAME SYOUWA
+2F8CD ; [.FB40.0020.0002][.E649.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8CD
+FA12  ; [.FB40.0020.0002][.E674.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA12
+FA91  ; [.FB40.0020.0002][.E674.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA91
+F9C5  ; [.FB40.0020.0002][.E688.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9C5
+FA43  ; [.FB40.0020.0002][.E691.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA43
+2F8CF ; [.FB40.0020.0002][.E691.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8CF
+2F8D5 ; [.FB40.0020.0002][.E69C.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8D5
+FA06  ; [.FB40.0020.0002][.E6B4.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA06
+F98B  ; [.FB40.0020.0002][.E6C6.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F98B
+2F48  ; [.FB40.0020.0004][.E6F0.0000.0000] # KANGXI RADICAL SAY
+F901  ; [.FB40.0020.0002][.E6F4.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F901
+2F8CC ; [.FB40.0020.0002][.E6F8.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8CC
+2F8D4 ; [.FB40.0020.0002][.E700.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8D4
+2F49  ; [.FB40.0020.0004][.E708.0000.0000] # KANGXI RADICAL MOON
+322A  ; [*030A.0020.0004][.FB40.0020.0004][.E708.0000.0000][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH MOON
+328A  ; [.FB40.0020.0006][.E708.0000.0000] # CIRCLED IDEOGRAPH MOON
+1F237 ; [.FB40.0020.001C][.E708.0000.0000] # SQUARED CJK UNIFIED IDEOGRAPH-6708
+2E9D  ; [.FB40.0020.0004][.E708.0000.0000][.0000.0108.0004] # CJK RADICAL MOON
+3232  ; [*030A.0020.0004][.FB40.0020.0004][.E709.0000.0000][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH HAVE
+3292  ; [.FB40.0020.0006][.E709.0000.0000] # CIRCLED IDEOGRAPH HAVE
+1F236 ; [.FB40.0020.001C][.E709.0000.0000] # SQUARED CJK UNIFIED IDEOGRAPH-6709
+F929  ; [.FB40.0020.0002][.E717.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F929
+FA92  ; [.FB40.0020.0002][.E717.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA92
+2F8D8 ; [.FB40.0020.0002][.E717.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8D8
+FA93  ; [.FB40.0020.0002][.E71B.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA93
+2F8D9 ; [.FB40.0020.0002][.E71B.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8D9
+2F8DA ; [.FB40.0020.0002][.E721.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8DA
+2F4A  ; [.FB40.0020.0004][.E728.0000.0000] # KANGXI RADICAL TREE
+322D  ; [*030A.0020.0004][.FB40.0020.0004][.E728.0000.0000][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH WOOD
+328D  ; [.FB40.0020.0006][.E728.0000.0000] # CIRCLED IDEOGRAPH WOOD
+1F240 ; [*036C.0020.0004][.FB40.0020.0004][.E72C.0000.0000][*036D.0020.0004] # TORTOISE SHELL BRACKETED CJK UNIFIED IDEOGRAPH-672C
+F9E1  ; [.FB40.0020.0002][.E74E.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9E1
+2F8DC ; [.FB40.0020.0002][.E753.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8DC
+FA94  ; [.FB40.0020.0002][.E756.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA94
+2F8DB ; [.FB40.0020.0002][.E75E.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8DB
+F9C8  ; [.FB40.0020.0002][.E77B.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9C8
+2F8E0 ; [.FB40.0020.0002][.E785.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8E0
+F9F4  ; [.FB40.0020.0002][.E797.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9F4
+F9C9  ; [.FB40.0020.0002][.E7F3.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9C9
+2F8DF ; [.FB40.0020.0002][.E7FA.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8DF
+F9DA  ; [.FB40.0020.0002][.E817.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9DA
+2F8E5 ; [.FB40.0020.0002][.E81F.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8E5
+3231  ; [*030A.0020.0004][.FB40.0020.0004][.E82A.0000.0000][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH STOCK
+3291  ; [.FB40.0020.0006][.E82A.0000.0000] # CIRCLED IDEOGRAPH STOCK
+337F  ; [.FB40.0020.001C][.E82A.0000.0000][.FB40.0020.001C][.DF0F.0000.0000][.FB40.0020.001C][.CF1A.0000.0000][.FB40.0020.001C][.F93E.0000.0000] # SQUARE CORPORATION
+2F8E1 ; [.FB40.0020.0002][.E852.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8E1
+F97A  ; [.FB40.0020.0002][.E881.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F97A
+FA44  ; [.FB40.0020.0002][.E885.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA44
+2F8E2 ; [.FB40.0020.0002][.E885.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8E2
+2F8E4 ; [.FB40.0020.0002][.E88E.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8E4
+F9E2  ; [.FB40.0020.0002][.E8A8.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9E2
+2F8E6 ; [.FB40.0020.0002][.E914.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8E6
+2F8E8 ; [.FB40.0020.0002][.E942.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8E8
+2F8E9 ; [.FB40.0020.0002][.E9A3.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8E9
+2F8EA ; [.FB40.0020.0002][.E9EA.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8EA
+F914  ; [.FB40.0020.0002][.EA02.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F914
+F95C  ; [.FB40.0020.0002][.EA02.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F95C
+F9BF  ; [.FB40.0020.0002][.EA02.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9BF
+F94C  ; [.FB40.0020.0002][.EA13.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F94C
+2F8EB ; [.FB40.0020.0002][.EAA8.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8EB
+F931  ; [.FB40.0020.0002][.EAD3.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F931
+2F8ED ; [.FB40.0020.0002][.EADB.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8ED
+F91D  ; [.FB40.0020.0002][.EB04.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F91D
+2F4B  ; [.FB40.0020.0004][.EB20.0000.0000] # KANGXI RADICAL LACK
+2F8EF ; [.FB40.0020.0002][.EB21.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8EF
+2F8F1 ; [.FB40.0020.0002][.EB54.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8F1
+2F4C  ; [.FB40.0020.0004][.EB62.0000.0000] # KANGXI RADICAL STOP
+32A3  ; [.FB40.0020.0006][.EB63.0000.0000] # CIRCLED IDEOGRAPH CORRECT
+2F8F3 ; [.FB40.0020.0002][.EB72.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8F3
+F98C  ; [.FB40.0020.0002][.EB77.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F98C
+FA95  ; [.FB40.0020.0002][.EB79.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA95
+2F4D  ; [.FB40.0020.0004][.EB79.0000.0000] # KANGXI RADICAL DEATH
+2E9E  ; [.FB40.0020.0004][.EB7A.0000.0000][.0000.0108.0004] # CJK RADICAL DEATH
+2F8F4 ; [.FB40.0020.0002][.EB9F.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8F4
+F9A5  ; [.FB40.0020.0002][.EBAE.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9A5
+2F4E  ; [.FB40.0020.0004][.EBB3.0000.0000] # KANGXI RADICAL WEAPON
+F970  ; [.FB40.0020.0002][.EBBA.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F970
+FA96  ; [.FB40.0020.0002][.EBBA.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA96
+2F8F5 ; [.FB40.0020.0002][.EBBA.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8F5
+2F8F6 ; [.FB40.0020.0002][.EBBB.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8F6
+2F4F  ; [.FB40.0020.0004][.EBCB.0000.0000] # KANGXI RADICAL DO NOT
+2E9F  ; [.FB40.0020.0004][.EBCD.0000.0000] # CJK RADICAL MOTHER
+2F50  ; [.FB40.0020.0004][.EBD4.0000.0000] # KANGXI RADICAL COMPARE
+2F51  ; [.FB40.0020.0004][.EBDB.0000.0000] # KANGXI RADICAL FUR
+2F52  ; [.FB40.0020.0004][.EC0F.0000.0000] # KANGXI RADICAL CLAN
+2EA0  ; [.FB40.0020.0004][.EC11.0000.0000] # CJK RADICAL CIVILIAN
+2F53  ; [.FB40.0020.0004][.EC14.0000.0000] # KANGXI RADICAL STEAM
+2F54  ; [.FB40.0020.0004][.EC34.0000.0000] # KANGXI RADICAL WATER
+322C  ; [*030A.0020.0004][.FB40.0020.0004][.EC34.0000.0000][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH WATER
+328C  ; [.FB40.0020.0006][.EC34.0000.0000] # CIRCLED IDEOGRAPH WATER
+2EA1  ; [.FB40.0020.0004][.EC35.0000.0000] # CJK RADICAL WATER ONE
+2EA2  ; [.FB40.0020.0004][.EC3A.0000.0000] # CJK RADICAL WATER TWO
+2F8FA ; [.FB40.0020.0002][.EC4E.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8FA
+2F8FE ; [.FB40.0020.0002][.EC67.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8FE
+F972  ; [.FB40.0020.0002][.EC88.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F972
+2F8FC ; [.FB40.0020.0002][.ECBF.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8FC
+F968  ; [.FB40.0020.0002][.ECCC.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F968
+2F8FD ; [.FB40.0020.0002][.ECCD.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8FD
+F9E3  ; [.FB40.0020.0002][.ECE5.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9E3
+329F  ; [.FB40.0020.0006][.ECE8.0000.0000] # CIRCLED IDEOGRAPH ATTENTION
+2F8FF ; [.FB40.0020.0002][.ED16.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8FF
+F915  ; [.FB40.0020.0002][.ED1B.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F915
+FA05  ; [.FB40.0020.0002][.ED1E.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA05
+2F907 ; [.FB40.0020.0002][.ED34.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F907
+2F900 ; [.FB40.0020.0002][.ED3E.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F900
+F9CA  ; [.FB40.0020.0002][.ED41.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9CA
+FA97  ; [.FB40.0020.0002][.ED41.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA97
+2F902 ; [.FB40.0020.0002][.ED41.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F902
+2F903 ; [.FB40.0020.0002][.ED69.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F903
+F92A  ; [.FB40.0020.0002][.ED6A.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F92A
+FA45  ; [.FB40.0020.0002][.ED77.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA45
+2F901 ; [.FB40.0020.0002][.ED77.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F901
+2F904 ; [.FB40.0020.0002][.ED78.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F904
+2F905 ; [.FB40.0020.0002][.ED85.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F905
+F9F5  ; [.FB40.0020.0002][.EDCB.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9F5
+F94D  ; [.FB40.0020.0002][.EDDA.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F94D
+F9D6  ; [.FB40.0020.0002][.EDEA.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9D6
+2F90E ; [.FB40.0020.0002][.EDF9.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F90E
+FA46  ; [.FB40.0020.0002][.EE1A.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA46
+2F908 ; [.FB40.0020.0002][.EE2F.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F908
+2F909 ; [.FB40.0020.0002][.EE6E.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F909
+1F235 ; [.FB40.0020.001C][.EE80.0000.0000] # SQUARED CJK UNIFIED IDEOGRAPH-6E80
+F9CB  ; [.FB40.0020.0002][.EE9C.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9CB
+F9EC  ; [.FB40.0020.0002][.EEBA.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9EC
+2F90C ; [.FB40.0020.0002][.EEC7.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F90C
+FA99  ; [.FB40.0020.0002][.EECB.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA99
+2F90B ; [.FB40.0020.0002][.EECB.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F90B
+F904  ; [.FB40.0020.0002][.EED1.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F904
+FA98  ; [.FB40.0020.0002][.EEDB.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA98
+F94E  ; [.FB40.0020.0002][.EF0F.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F94E
+1F226 ; [.FB40.0020.001C][.EF14.0000.0000] # SQUARED CJK UNIFIED IDEOGRAPH-6F14
+FA47  ; [.FB40.0020.0002][.EF22.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA47
+FA9A  ; [.FB40.0020.0002][.EF22.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA9A
+F992  ; [.FB40.0020.0002][.EF23.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F992
+2F90F ; [.FB40.0020.0002][.EF6E.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F90F
+2F912 ; [.FB40.0020.0002][.EFC6.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F912
+F922  ; [.FB40.0020.0002][.EFEB.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F922
+F984  ; [.FB40.0020.0002][.EFFE.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F984
+2F915 ; [.FB40.0020.0002][.F01B.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F915
+FA9B  ; [.FB40.0020.0002][.F01E.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA9B
+2F914 ; [.FB40.0020.0002][.F01E.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F914
+2F913 ; [.FB40.0020.0002][.F039.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F913
+2F917 ; [.FB40.0020.0002][.F04A.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F917
+2F55  ; [.FB40.0020.0004][.F06B.0000.0000] # KANGXI RADICAL FIRE
+322B  ; [*030A.0020.0004][.FB40.0020.0004][.F06B.0000.0000][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH FIRE
+328B  ; [.FB40.0020.0006][.F06B.0000.0000] # CIRCLED IDEOGRAPH FIRE
+2EA3  ; [.FB40.0020.0004][.F06C.0000.0000] # CJK RADICAL FIRE
+2F835 ; [.FB40.0020.0002][.F070.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F835
+2F919 ; [.FB40.0020.0002][.F077.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F919
+2F918 ; [.FB40.0020.0002][.F07D.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F918
+F9FB  ; [.FB40.0020.0002][.F099.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9FB
+2F91A ; [.FB40.0020.0002][.F0AD.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F91A
+1F244 ; [*036C.0020.0004][.FB40.0020.0004][.F0B9.0000.0000][*036D.0020.0004] # TORTOISE SHELL BRACKETED CJK UNIFIED IDEOGRAPH-70B9
+F99F  ; [.FB40.0020.0002][.F0C8.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F99F
+F916  ; [.FB40.0020.0002][.F0D9.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F916
+1F21A ; [.FB40.0020.001C][.F121.0000.0000] # SQUARED CJK UNIFIED IDEOGRAPH-7121
+2F91C ; [.FB40.0020.0002][.F145.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F91C
+F993  ; [.FB40.0020.0002][.F149.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F993
+FA48  ; [.FB40.0020.0002][.F16E.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA48
+FA9C  ; [.FB40.0020.0002][.F16E.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA9C
+2F91E ; [.FB40.0020.0002][.F19C.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F91E
+F9C0  ; [.FB40.0020.0002][.F1CE.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9C0
+F9EE  ; [.FB40.0020.0002][.F1D0.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9EE
+F932  ; [.FB40.0020.0002][.F210.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F932
+F91E  ; [.FB40.0020.0002][.F21B.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F91E
+2F920 ; [.FB40.0020.0002][.F228.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F920
+2F56  ; [.FB40.0020.0004][.F22A.0000.0000] # KANGXI RADICAL CLAW
+FA49  ; [.FB40.0020.0002][.F22B.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA49
+2EA4  ; [.FB40.0020.0004][.F22B.0000.0000] # CJK RADICAL PAW ONE
+2EA5  ; [.FB40.0020.0004][.F22B.0000.0000][.0000.0108.0004] # CJK RADICAL PAW TWO
+FA9E  ; [.FB40.0020.0002][.F235.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA9E
+2F921 ; [.FB40.0020.0002][.F235.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F921
+2F57  ; [.FB40.0020.0004][.F236.0000.0000] # KANGXI RADICAL FATHER
+2F58  ; [.FB40.0020.0004][.F23B.0000.0000] # KANGXI RADICAL DOUBLE X
+2F59  ; [.FB40.0020.0004][.F23F.0000.0000] # KANGXI RADICAL HALF TREE TRUNK
+2F5A  ; [.FB40.0020.0004][.F247.0000.0000] # KANGXI RADICAL SLICE
+2F922 ; [.FB40.0020.0002][.F250.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F922
+2F5B  ; [.FB40.0020.0004][.F259.0000.0000] # KANGXI RADICAL FANG
+2F5C  ; [.FB40.0020.0004][.F25B.0000.0000] # KANGXI RADICAL COW
+2EA7  ; [.FB40.0020.0004][.F25B.0000.0000][.0000.0108.0004] # CJK RADICAL COW
+F946  ; [.FB40.0020.0002][.F262.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F946
+3235  ; [*030A.0020.0004][.FB40.0020.0004][.F279.0000.0000][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH SPECIAL
+3295  ; [.FB40.0020.0006][.F279.0000.0000] # CIRCLED IDEOGRAPH SPECIAL
+2F924 ; [.FB40.0020.0002][.F280.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F924
+2F925 ; [.FB40.0020.0002][.F295.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F925
+2F5D  ; [.FB40.0020.0004][.F2AC.0000.0000] # KANGXI RADICAL DOG
+2EA8  ; [.FB40.0020.0004][.F2AD.0000.0000] # CJK RADICAL DOG
+FA9F  ; [.FB40.0020.0002][.F2AF.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA9F
+F9FA  ; [.FB40.0020.0002][.F2C0.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9FA
+F92B  ; [.FB40.0020.0002][.F2FC.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F92B
+FA16  ; [.FB40.0020.0002][.F32A.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA16
+FAA0  ; [.FB40.0020.0002][.F32A.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FAA0
+F9A7  ; [.FB40.0020.0002][.F375.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9A7
+2F928 ; [.FB40.0020.0002][.F37A.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F928
+2F5E  ; [.FB40.0020.0004][.F384.0000.0000] # KANGXI RADICAL PROFOUND
+F961  ; [.FB40.0020.0002][.F387.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F961
+F9DB  ; [.FB40.0020.0002][.F387.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9DB
+2F5F  ; [.FB40.0020.0004][.F389.0000.0000] # KANGXI RADICAL JADE
+2F929 ; [.FB40.0020.0002][.F38B.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F929
+2EA9  ; [.FB40.0020.0004][.F38B.0000.0000][.0000.0108.0004] # CJK RADICAL JADE
+2F92B ; [.FB40.0020.0002][.F3A5.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F92B
+F9AD  ; [.FB40.0020.0002][.F3B2.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9AD
+F917  ; [.FB40.0020.0002][.F3DE.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F917
+F9E4  ; [.FB40.0020.0002][.F406.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9E4
+F9CC  ; [.FB40.0020.0002][.F409.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9CC
+FA4A  ; [.FB40.0020.0002][.F422.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA4A
+2F92E ; [.FB40.0020.0002][.F447.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F92E
+2F92F ; [.FB40.0020.0002][.F45C.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F92F
+F9AE  ; [.FB40.0020.0002][.F469.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9AE
+FAA1  ; [.FB40.0020.0002][.F471.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FAA1
+2F930 ; [.FB40.0020.0002][.F471.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F930
+2F931 ; [.FB40.0020.0002][.F485.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F931
+F994  ; [.FB40.0020.0002][.F489.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F994
+F9EF  ; [.FB40.0020.0002][.F498.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9EF
+2F932 ; [.FB40.0020.0002][.F4CA.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F932
+2F60  ; [.FB40.0020.0004][.F4DC.0000.0000] # KANGXI RADICAL MELON
+2F61  ; [.FB40.0020.0004][.F4E6.0000.0000] # KANGXI RADICAL TILE
+FAA2  ; [.FB40.0020.0002][.F506.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FAA2
+2F62  ; [.FB40.0020.0004][.F518.0000.0000] # KANGXI RADICAL SWEET
+2F63  ; [.FB40.0020.0004][.F51F.0000.0000] # KANGXI RADICAL LIFE
+1F222 ; [.FB40.0020.001C][.F51F.0000.0000] # SQUARED CJK UNIFIED IDEOGRAPH-751F
+2F934 ; [.FB40.0020.0002][.F524.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F934
+2F64  ; [.FB40.0020.0004][.F528.0000.0000] # KANGXI RADICAL USE
+2F65  ; [.FB40.0020.0004][.F530.0000.0000] # KANGXI RADICAL FIELD
+3199  ; [.FB40.0020.0014][.F532.0000.0000] # IDEOGRAPHIC ANNOTATION FIRST MARK
+1F238 ; [.FB40.0020.001C][.F533.0000.0000] # SQUARED CJK UNIFIED IDEOGRAPH-7533
+329A  ; [.FB40.0020.0006][.F537.0000.0000] # CIRCLED IDEOGRAPH MALE
+FAA3  ; [.FB40.0020.0002][.F53B.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FAA3
+2F936 ; [.FB40.0020.0002][.F53E.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F936
+F9CD  ; [.FB40.0020.0002][.F559.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9CD
+F976  ; [.FB40.0020.0002][.F565.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F976
+F962  ; [.FB40.0020.0002][.F570.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F962
+2F938 ; [.FB40.0020.0002][.F570.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F938
+2F66  ; [.FB40.0020.0004][.F58B.0000.0000] # KANGXI RADICAL BOLT OF CLOTH
+2EAA  ; [.FB40.0020.0004][.F58B.0000.0000][.0000.0108.0004] # CJK RADICAL BOLT OF CLOTH
+2F67  ; [.FB40.0020.0004][.F592.0000.0000] # KANGXI RADICAL SICKNESS
+F9E5  ; [.FB40.0020.0002][.F5E2.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9E5
+2F93A ; [.FB40.0020.0002][.F610.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F93A
+FAA4  ; [.FB40.0020.0002][.F61D.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FAA4
+FAA5  ; [.FB40.0020.0002][.F61F.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FAA5
+F9C1  ; [.FB40.0020.0002][.F642.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9C1
+F90E  ; [.FB40.0020.0002][.F669.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F90E
+2F68  ; [.FB40.0020.0004][.F676.0000.0000] # KANGXI RADICAL DOTTED TENT
+2F69  ; [.FB40.0020.0004][.F67D.0000.0000] # KANGXI RADICAL WHITE
+2F6A  ; [.FB40.0020.0004][.F6AE.0000.0000] # KANGXI RADICAL SKIN
+2F6B  ; [.FB40.0020.0004][.F6BF.0000.0000] # KANGXI RADICAL DISH
+FA17  ; [.FB40.0020.0002][.F6CA.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA17
+FAA6  ; [.FB40.0020.0002][.F6CA.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FAA6
+1F246 ; [*036C.0020.0004][.FB40.0020.0004][.F6D7.0000.0000][*036D.0020.0004] # TORTOISE SHELL BRACKETED CJK UNIFIED IDEOGRAPH-76D7
+FAA7  ; [.FB40.0020.0002][.F6DB.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FAA7
+323C  ; [*030A.0020.0004][.FB40.0020.0004][.F6E3.0000.0000][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH SUPERVISE
+32AC  ; [.FB40.0020.0006][.F6E3.0000.0000] # CIRCLED IDEOGRAPH SUPERVISE
+F933  ; [.FB40.0020.0002][.F6E7.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F933
+2F6C  ; [.FB40.0020.0004][.F6EE.0000.0000] # KANGXI RADICAL EYE
+2EAB  ; [.FB40.0020.0004][.F6EE.0000.0000][.0000.0108.0004] # CJK RADICAL EYE
+FAA8  ; [.FB40.0020.0002][.F6F4.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FAA8
+2F940 ; [.FB40.0020.0002][.F6F4.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F940
+F96D  ; [.FB40.0020.0002][.F701.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F96D
+2F945 ; [.FB40.0020.0002][.F71E.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F945
+2F946 ; [.FB40.0020.0002][.F71F.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F946
+2F947 ; [.FB40.0020.0002][.F71F.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F947
+FAAA  ; [.FB40.0020.0002][.F740.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FAAA
+FAA9  ; [.FB40.0020.0002][.F74A.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FAA9
+2F948 ; [.FB40.0020.0002][.F74A.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F948
+2F94A ; [.FB40.0020.0002][.F78B.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F94A
+FA9D  ; [.FB40.0020.0002][.F7A7.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA9D
+2F6D  ; [.FB40.0020.0004][.F7DB.0000.0000] # KANGXI RADICAL SPEAR
+2F6E  ; [.FB40.0020.0004][.F7E2.0000.0000] # KANGXI RADICAL ARROW
+2F6F  ; [.FB40.0020.0004][.F7F3.0000.0000] # KANGXI RADICAL STONE
+2F94E ; [.FB40.0020.0002][.F84E.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F94E
+F9CE  ; [.FB40.0020.0002][.F86B.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9CE
+F93B  ; [.FB40.0020.0002][.F88C.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F93B
+2F94F ; [.FB40.0020.0002][.F88C.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F94F
+FA4B  ; [.FB40.0020.0002][.F891.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA4B
+F947  ; [.FB40.0020.0002][.F8CA.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F947
+FAAB  ; [.FB40.0020.0002][.F8CC.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FAAB
+2F950 ; [.FB40.0020.0002][.F8CC.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F950
+F964  ; [.FB40.0020.0002][.F8FB.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F964
+F985  ; [.FB40.0020.0002][.F92A.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F985
+2F70  ; [.FB40.0020.0004][.F93A.0000.0000] # KANGXI RADICAL SPIRIT
+2EAC  ; [.FB40.0020.0004][.F93A.0000.0000][.0000.0108.0004] # CJK RADICAL SPIRIT ONE
+2EAD  ; [.FB40.0020.0004][.F93B.0000.0000] # CJK RADICAL SPIRIT TWO
+FA18  ; [.FB40.0020.0002][.F93C.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA18
+FA4C  ; [.FB40.0020.0002][.F93E.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA4C
+3233  ; [*030A.0020.0004][.FB40.0020.0004][.F93E.0000.0000][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH SOCIETY
+3293  ; [.FB40.0020.0006][.F93E.0000.0000] # CIRCLED IDEOGRAPH SOCIETY
+FA4E  ; [.FB40.0020.0002][.F948.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA4E
+FA4D  ; [.FB40.0020.0002][.F949.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA4D
+FA4F  ; [.FB40.0020.0002][.F950.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA4F
+FA50  ; [.FB40.0020.0002][.F956.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA50
+2F953 ; [.FB40.0020.0002][.F956.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F953
+FA51  ; [.FB40.0020.0002][.F95D.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA51
+3237  ; [*030A.0020.0004][.FB40.0020.0004][.F95D.0000.0000][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH CONGRATULATION
+3297  ; [.FB40.0020.0006][.F95D.0000.0000] # CIRCLED IDEOGRAPH CONGRATULATION
+FA19  ; [.FB40.0020.0002][.F95E.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA19
+FA1A  ; [.FB40.0020.0002][.F965.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA1A
+3240  ; [*030A.0020.0004][.FB40.0020.0004][.F96D.0000.0000][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH FESTIVAL
+F93C  ; [.FB40.0020.0002][.F97F.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F93C
+1F232 ; [.FB40.0020.001C][.F981.0000.0000] # SQUARED CJK UNIFIED IDEOGRAPH-7981
+FA52  ; [.FB40.0020.0002][.F98D.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA52
+FA53  ; [.FB40.0020.0002][.F98E.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA53
+FA1B  ; [.FB40.0020.0002][.F98F.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA1B
+2F956 ; [.FB40.0020.0002][.F98F.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F956
+F9B6  ; [.FB40.0020.0002][.F9AE.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9B6
+2F71  ; [.FB40.0020.0004][.F9B8.0000.0000] # KANGXI RADICAL TRACK
+2F72  ; [.FB40.0020.0004][.F9BE.0000.0000] # KANGXI RADICAL GRAIN
+F995  ; [.FB40.0020.0002][.F9CA.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F995
+3299  ; [.FB40.0020.0006][.F9D8.0000.0000] # CIRCLED IDEOGRAPH SECRET
+2F957 ; [.FB40.0020.0002][.F9EB.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F957
+F956  ; [.FB40.0020.0002][.FA1C.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F956
+FA54  ; [.FB40.0020.0002][.FA40.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA54
+2F959 ; [.FB40.0020.0002][.FA40.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F959
+2F95A ; [.FB40.0020.0002][.FA4A.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F95A
+2F95B ; [.FB40.0020.0002][.FA4F.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F95B
+2F73  ; [.FB40.0020.0004][.FA74.0000.0000] # KANGXI RADICAL CAVE
+1F233 ; [.FB40.0020.001C][.FA7A.0000.0000] # SQUARED CJK UNIFIED IDEOGRAPH-7A7A
+FA55  ; [.FB40.0020.0002][.FA81.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA55
+FAAC  ; [.FB40.0020.0002][.FAB1.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FAAC
+F9F7  ; [.FB40.0020.0002][.FACB.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9F7
+2F74  ; [.FB40.0020.0004][.FACB.0000.0000] # KANGXI RADICAL STAND
+2F95F ; [.FB40.0020.0002][.FAEE.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F95F
+2F75  ; [.FB40.0020.0004][.FAF9.0000.0000] # KANGXI RADICAL BAMBOO
+2EAE  ; [.FB40.0020.0004][.FAF9.0000.0000][.0000.0108.0004] # CJK RADICAL BAMBOO
+F9F8  ; [.FB40.0020.0002][.FB20.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9F8
+3247  ; [.FB40.0020.0006][.FB8F.0000.0000] # CIRCLED IDEOGRAPH KOTO
+FA56  ; [.FB40.0020.0002][.FBC0.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA56
+FAAD  ; [.FB40.0020.0002][.FBC0.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FAAD
+2F962 ; [.FB40.0020.0002][.FBC6.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F962
+2F963 ; [.FB40.0020.0002][.FBC9.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F963
+F9A6  ; [.FB40.0020.0002][.FC3E.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9A6
+F944  ; [.FB40.0020.0002][.FC60.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F944
+2F76  ; [.FB40.0020.0004][.FC73.0000.0000] # KANGXI RADICAL RICE
+FAAE  ; [.FB40.0020.0002][.FC7B.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FAAE
+F9F9  ; [.FB40.0020.0002][.FC92.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9F9
+FA1D  ; [.FB40.0020.0002][.FCBE.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA1D
+2F966 ; [.FB40.0020.0002][.FCD2.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F966
+FA03  ; [.FB40.0020.0002][.FCD6.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA03
+2F969 ; [.FB40.0020.0002][.FCE3.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F969
+F97B  ; [.FB40.0020.0002][.FCE7.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F97B
+2F968 ; [.FB40.0020.0002][.FCE8.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F968
+2F77  ; [.FB40.0020.0004][.FCF8.0000.0000] # KANGXI RADICAL SILK
+2EAF  ; [.FB40.0020.0004][.FCF9.0000.0000] # CJK RADICAL SILK
+2F96A ; [.FB40.0020.0002][.FD00.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F96A
+F9CF  ; [.FB40.0020.0002][.FD10.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9CF
+F96A  ; [.FB40.0020.0002][.FD22.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F96A
+F94F  ; [.FB40.0020.0002][.FD2F.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F94F
+1F221 ; [.FB40.0020.001C][.FD42.0000.0000] # SQUARED CJK UNIFIED IDEOGRAPH-7D42
+FAAF  ; [.FB40.0020.0002][.FD5B.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FAAF
+2F96C ; [.FB40.0020.0002][.FD63.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F96C
+F93D  ; [.FB40.0020.0002][.FDA0.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F93D
+F957  ; [.FB40.0020.0002][.FDBE.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F957
+2F96E ; [.FB40.0020.0002][.FDC7.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F96E
+F996  ; [.FB40.0020.0002][.FDF4.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F996
+FA57  ; [.FB40.0020.0002][.FDF4.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA57
+FAB0  ; [.FB40.0020.0002][.FDF4.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FAB0
+2F96F ; [.FB40.0020.0002][.FE02.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F96F
+FA58  ; [.FB40.0020.0002][.FE09.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA58
+F950  ; [.FB40.0020.0002][.FE37.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F950
+FA59  ; [.FB40.0020.0002][.FE41.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA59
+2F970 ; [.FB40.0020.0002][.FE45.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F970
+2EB0  ; [.FB40.0020.0004][.FE9F.0000.0000] # CJK RADICAL C-SIMPLIFIED SILK
+2F78  ; [.FB40.0020.0004][.FF36.0000.0000] # KANGXI RADICAL JAR
+FAB1  ; [.FB40.0020.0002][.FF3E.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FAB1
+2F79  ; [.FB40.0020.0004][.FF51.0000.0000] # KANGXI RADICAL NET
+2EB2  ; [.FB40.0020.0004][.FF52.0000.0000] # CJK RADICAL NET TWO
+2EB5  ; [.FB40.0020.0004][.FF52.0000.0000][.0000.0108.0004] # CJK RADICAL MESH
+2EB1  ; [.FB40.0020.0004][.FF53.0000.0000] # CJK RADICAL NET ONE
+2EB3  ; [.FB40.0020.0004][.FF53.0000.0000][.0000.0108.0004] # CJK RADICAL NET THREE
+2EB4  ; [.FB40.0020.0004][.FF53.0000.0000][.0000.0109.0004] # CJK RADICAL NET FOUR
+FA5A  ; [.FB40.0020.0002][.FF72.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA5A
+F9E6  ; [.FB40.0020.0002][.FF79.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9E6
+2F976 ; [.FB40.0020.0002][.FF7A.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F976
+F90F  ; [.FB40.0020.0002][.FF85.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F90F
+2F7A  ; [.FB40.0020.0004][.FF8A.0000.0000] # KANGXI RADICAL SHEEP
+2EB6  ; [.FB40.0020.0004][.FF8A.0000.0000][.0000.0108.0004] # CJK RADICAL SHEEP
+2EB7  ; [.FB40.0020.0004][.FF8A.0000.0000][.0000.0109.0004] # CJK RADICAL RAM
+2EB8  ; [.FB40.0020.0004][.FF8B.0000.0000] # CJK RADICAL EWE
+2F978 ; [.FB40.0020.0002][.FF95.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F978
+F9AF  ; [.FB40.0020.0002][.FF9A.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9AF
+FA1E  ; [.FB40.0020.0002][.FFBD.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA1E
+2F7B  ; [.FB40.0020.0004][.FFBD.0000.0000] # KANGXI RADICAL FEATHER
+2F979 ; [.FB40.0020.0002][.FFFA.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F979
+F934  ; [.FB41.0020.0002][.8001.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F934
+2F7C  ; [.FB41.0020.0004][.8001.0000.0000] # KANGXI RADICAL OLD
+2EB9  ; [.FB41.0020.0004][.8002.0000.0000] # CJK RADICAL OLD
+FA5B  ; [.FB41.0020.0002][.8005.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA5B
+FAB2  ; [.FB41.0020.0002][.8005.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FAB2
+2F97A ; [.FB41.0020.0002][.8005.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F97A
+2F7D  ; [.FB41.0020.0004][.800C.0000.0000] # KANGXI RADICAL AND
+2F7E  ; [.FB41.0020.0004][.8012.0000.0000] # KANGXI RADICAL PLOW
+2F7F  ; [.FB41.0020.0004][.8033.0000.0000] # KANGXI RADICAL EAR
+F9B0  ; [.FB41.0020.0002][.8046.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9B0
+2F97D ; [.FB41.0020.0002][.8060.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F97D
+F997  ; [.FB41.0020.0002][.806F.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F997
+2F97F ; [.FB41.0020.0002][.8070.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F97F
+F945  ; [.FB41.0020.0002][.807E.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F945
+2F80  ; [.FB41.0020.0004][.807F.0000.0000] # KANGXI RADICAL BRUSH
+2EBB  ; [.FB41.0020.0004][.807F.0000.0000][.0000.0108.0004] # CJK RADICAL BRUSH TWO
+2EBA  ; [.FB41.0020.0004][.8080.0000.0000] # CJK RADICAL BRUSH ONE
+2F81  ; [.FB41.0020.0004][.8089.0000.0000] # KANGXI RADICAL MEAT
+2EBC  ; [.FB41.0020.0004][.8089.0000.0000][.0000.0108.0004] # CJK RADICAL MEAT
+F953  ; [.FB41.0020.0002][.808B.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F953
+2F8D6 ; [.FB41.0020.0002][.80AD.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8D6
+2F982 ; [.FB41.0020.0002][.80B2.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F982
+2F983 ; [.FB41.0020.0002][.8103.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F983
+2F985 ; [.FB41.0020.0002][.813E.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F985
+F926  ; [.FB41.0020.0002][.81D8.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F926
+2F82  ; [.FB41.0020.0004][.81E3.0000.0000] # KANGXI RADICAL MINISTER
+F9F6  ; [.FB41.0020.0002][.81E8.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9F6
+2F83  ; [.FB41.0020.0004][.81EA.0000.0000] # KANGXI RADICAL SELF
+3242  ; [*030A.0020.0004][.FB41.0020.0004][.81EA.0000.0000][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH SELF
+FA5C  ; [.FB41.0020.0002][.81ED.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA5C
+2F84  ; [.FB41.0020.0004][.81F3.0000.0000] # KANGXI RADICAL ARRIVE
+3243  ; [*030A.0020.0004][.FB41.0020.0004][.81F3.0000.0000][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH REACH
+2F85  ; [.FB41.0020.0004][.81FC.0000.0000] # KANGXI RADICAL MORTAR
+2EBD  ; [.FB41.0020.0004][.81FC.0000.0000][.0000.0108.0004] # CJK RADICAL MORTAR
+2F893 ; [.FB41.0020.0002][.8201.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F893
+2F98B ; [.FB41.0020.0002][.8201.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F98B
+2F98C ; [.FB41.0020.0002][.8204.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F98C
+2F86  ; [.FB41.0020.0004][.820C.0000.0000] # KANGXI RADICAL TONGUE
+FA6D  ; [.FB41.0020.0002][.8218.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA6D
+2F87  ; [.FB41.0020.0004][.821B.0000.0000] # KANGXI RADICAL OPPOSE
+2F88  ; [.FB41.0020.0004][.821F.0000.0000] # KANGXI RADICAL BOAT
+2F89  ; [.FB41.0020.0004][.826E.0000.0000] # KANGXI RADICAL STOPPING
+F97C  ; [.FB41.0020.0002][.826F.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F97C
+2F8A  ; [.FB41.0020.0004][.8272.0000.0000] # KANGXI RADICAL COLOR
+2F8B  ; [.FB41.0020.0004][.8278.0000.0000] # KANGXI RADICAL GRASS
+FA5D  ; [.FB41.0020.0002][.8279.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA5D
+FA5E  ; [.FB41.0020.0002][.8279.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA5E
+2EBE  ; [.FB41.0020.0004][.8279.0000.0000] # CJK RADICAL GRASS ONE
+2EBF  ; [.FB41.0020.0004][.8279.0000.0000][.0000.0108.0004] # CJK RADICAL GRASS TWO
+2EC0  ; [.FB41.0020.0004][.8279.0000.0000][.0000.0109.0004] # CJK RADICAL GRASS THREE
+2F990 ; [.FB41.0020.0002][.828B.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F990
+2F98F ; [.FB41.0020.0002][.8291.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F98F
+2F991 ; [.FB41.0020.0002][.829D.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F991
+2F993 ; [.FB41.0020.0002][.82B1.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F993
+2F994 ; [.FB41.0020.0002][.82B3.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F994
+2F995 ; [.FB41.0020.0002][.82BD.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F995
+F974  ; [.FB41.0020.0002][.82E5.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F974
+2F998 ; [.FB41.0020.0002][.82E5.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F998
+2F996 ; [.FB41.0020.0002][.82E6.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F996
+2F999 ; [.FB41.0020.0002][.831D.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F999
+2F99C ; [.FB41.0020.0002][.8323.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F99C
+F9FE  ; [.FB41.0020.0002][.8336.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9FE
+FAB3  ; [.FB41.0020.0002][.8352.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FAB3
+2F9A0 ; [.FB41.0020.0002][.8353.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9A0
+2F99A ; [.FB41.0020.0002][.8363.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F99A
+2F99B ; [.FB41.0020.0002][.83AD.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F99B
+2F99D ; [.FB41.0020.0002][.83BD.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F99D
+F93E  ; [.FB41.0020.0002][.83C9.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F93E
+2F9A1 ; [.FB41.0020.0002][.83CA.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9A1
+2F9A2 ; [.FB41.0020.0002][.83CC.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9A2
+2F9A3 ; [.FB41.0020.0002][.83DC.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9A3
+2F99E ; [.FB41.0020.0002][.83E7.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F99E
+FAB4  ; [.FB41.0020.0002][.83EF.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FAB4
+F958  ; [.FB41.0020.0002][.83F1.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F958
+F918  ; [.FB41.0020.0002][.843D.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F918
+F96E  ; [.FB41.0020.0002][.8449.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F96E
+FA5F  ; [.FB41.0020.0002][.8457.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA5F
+2F99F ; [.FB41.0020.0002][.8457.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F99F
+F999  ; [.FB41.0020.0002][.84EE.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F999
+2F9A8 ; [.FB41.0020.0002][.84F1.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9A8
+2F9A9 ; [.FB41.0020.0002][.84F3.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9A9
+F9C2  ; [.FB41.0020.0002][.84FC.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9C2
+2F9AA ; [.FB41.0020.0002][.8516.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9AA
+2F9AC ; [.FB41.0020.0002][.8564.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9AC
+F923  ; [.FB41.0020.0002][.85CD.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F923
+F9F0  ; [.FB41.0020.0002][.85FA.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9F0
+F935  ; [.FB41.0020.0002][.8606.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F935
+FA20  ; [.FB41.0020.0002][.8612.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA20
+F91F  ; [.FB41.0020.0002][.862D.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F91F
+F910  ; [.FB41.0020.0002][.863F.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F910
+2F8C  ; [.FB41.0020.0004][.864D.0000.0000] # KANGXI RADICAL TIGER
+2EC1  ; [.FB41.0020.0004][.864E.0000.0000] # CJK RADICAL TIGER
+2F9B3 ; [.FB41.0020.0002][.8650.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9B3
+F936  ; [.FB41.0020.0002][.865C.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F936
+2F9B4 ; [.FB41.0020.0002][.865C.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9B4
+2F9B5 ; [.FB41.0020.0002][.8667.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9B5
+2F9B6 ; [.FB41.0020.0002][.8669.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9B6
+2F8D  ; [.FB41.0020.0004][.866B.0000.0000] # KANGXI RADICAL INSECT
+2F9B8 ; [.FB41.0020.0002][.8688.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9B8
+2F9B7 ; [.FB41.0020.0002][.86A9.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9B7
+2F9BA ; [.FB41.0020.0002][.86E2.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9BA
+2F9B9 ; [.FB41.0020.0002][.870E.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9B9
+2F9BC ; [.FB41.0020.0002][.8728.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9BC
+2F9BD ; [.FB41.0020.0002][.876B.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9BD
+FAB5  ; [.FB41.0020.0002][.8779.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FAB5
+2F9BB ; [.FB41.0020.0002][.8779.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9BB
+2F9BE ; [.FB41.0020.0002][.8786.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9BE
+F911  ; [.FB41.0020.0002][.87BA.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F911
+2F9C0 ; [.FB41.0020.0002][.87E1.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9C0
+2F9C1 ; [.FB41.0020.0002][.8801.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9C1
+F927  ; [.FB41.0020.0002][.881F.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F927
+2F8E  ; [.FB41.0020.0004][.8840.0000.0000] # KANGXI RADICAL BLOOD
+FA08  ; [.FB41.0020.0002][.884C.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA08
+2F8F  ; [.FB41.0020.0004][.884C.0000.0000] # KANGXI RADICAL WALK ENCLOSURE
+2F9C3 ; [.FB41.0020.0002][.8860.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9C3
+2F9C4 ; [.FB41.0020.0002][.8863.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9C4
+2F90  ; [.FB41.0020.0004][.8863.0000.0000] # KANGXI RADICAL CLOTHES
+2EC2  ; [.FB41.0020.0004][.8864.0000.0000] # CJK RADICAL CLOTHES
+F9A0  ; [.FB41.0020.0002][.88C2.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9A0
+F9E7  ; [.FB41.0020.0002][.88CF.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9E7
+2F9C6 ; [.FB41.0020.0002][.88D7.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9C6
+2F9C7 ; [.FB41.0020.0002][.88DE.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9C7
+F9E8  ; [.FB41.0020.0002][.88E1.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9E8
+F912  ; [.FB41.0020.0002][.88F8.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F912
+2F9C9 ; [.FB41.0020.0002][.88FA.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9C9
+FA60  ; [.FB41.0020.0002][.8910.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA60
+FAB6  ; [.FB41.0020.0002][.8941.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FAB6
+F924  ; [.FB41.0020.0002][.8964.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F924
+2F91  ; [.FB41.0020.0004][.897E.0000.0000] # KANGXI RADICAL WEST
+2EC4  ; [.FB41.0020.0004][.897F.0000.0000] # CJK RADICAL WEST TWO
+2EC3  ; [.FB41.0020.0004][.8980.0000.0000] # CJK RADICAL WEST ONE
+FAB7  ; [.FB41.0020.0002][.8986.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FAB7
+FA0A  ; [.FB41.0020.0002][.898B.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA0A
+2F92  ; [.FB41.0020.0004][.898B.0000.0000] # KANGXI RADICAL SEE
+FA61  ; [.FB41.0020.0002][.8996.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA61
+FAB8  ; [.FB41.0020.0002][.8996.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FAB8
+2EC5  ; [.FB41.0020.0004][.89C1.0000.0000] # CJK RADICAL C-SIMPLIFIED SEE
+2EC6  ; [.FB41.0020.0004][.89D2.0000.0000] # CJK RADICAL SIMPLIFIED HORN
+2F93  ; [.FB41.0020.0004][.89D2.0000.0000] # KANGXI RADICAL HORN
+2EC7  ; [.FB41.0020.0004][.89D2.0000.0000][.0000.0108.0004] # CJK RADICAL HORN
+1F216 ; [.FB41.0020.001C][.89E3.0000.0000] # SQUARED CJK UNIFIED IDEOGRAPH-89E3
+2F94  ; [.FB41.0020.0004][.8A00.0000.0000] # KANGXI RADICAL SPEECH
+2F9CF ; [.FB41.0020.0002][.8AA0.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9CF
+F96F  ; [.FB41.0020.0002][.8AAA.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F96F
+F9A1  ; [.FB41.0020.0002][.8AAA.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9A1
+FAB9  ; [.FB41.0020.0002][.8ABF.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FAB9
+FABB  ; [.FB41.0020.0002][.8ACB.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FABB
+F97D  ; [.FB41.0020.0002][.8AD2.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F97D
+F941  ; [.FB41.0020.0002][.8AD6.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F941
+FABE  ; [.FB41.0020.0002][.8AED.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FABE
+2F9D0 ; [.FB41.0020.0002][.8AED.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9D0
+FA22  ; [.FB41.0020.0002][.8AF8.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA22
+FABA  ; [.FB41.0020.0002][.8AF8.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FABA
+F95D  ; [.FB41.0020.0002][.8AFE.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F95D
+FABD  ; [.FB41.0020.0002][.8AFE.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FABD
+FA62  ; [.FB41.0020.0002][.8B01.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA62
+FABC  ; [.FB41.0020.0002][.8B01.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FABC
+FA63  ; [.FB41.0020.0002][.8B39.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA63
+FABF  ; [.FB41.0020.0002][.8B39.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FABF
+F9FC  ; [.FB41.0020.0002][.8B58.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9FC
+F95A  ; [.FB41.0020.0002][.8B80.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F95A
+FAC0  ; [.FB41.0020.0002][.8B8A.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FAC0
+2F9D1 ; [.FB41.0020.0002][.8B8A.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9D1
+2EC8  ; [.FB41.0020.0004][.8BA0.0000.0000] # CJK RADICAL C-SIMPLIFIED SPEECH
+2F95  ; [.FB41.0020.0004][.8C37.0000.0000] # KANGXI RADICAL VALLEY
+2F96  ; [.FB41.0020.0004][.8C46.0000.0000] # KANGXI RADICAL BEAN
+F900  ; [.FB41.0020.0002][.8C48.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F900
+2F9D2 ; [.FB41.0020.0002][.8C55.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9D2
+2F97  ; [.FB41.0020.0004][.8C55.0000.0000] # KANGXI RADICAL PIG
+2F98  ; [.FB41.0020.0004][.8C78.0000.0000] # KANGXI RADICAL BADGER
+2F99  ; [.FB41.0020.0004][.8C9D.0000.0000] # KANGXI RADICAL SHELL
+3236  ; [*030A.0020.0004][.FB41.0020.0004][.8CA1.0000.0000][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH FINANCIAL
+3296  ; [.FB41.0020.0006][.8CA1.0000.0000] # CIRCLED IDEOGRAPH FINANCIAL
+1F223 ; [.FB41.0020.001C][.8CA9.0000.0000] # SQUARED CJK UNIFIED IDEOGRAPH-8CA9
+2F9D4 ; [.FB41.0020.0002][.8CAB.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9D4
+2F9D5 ; [.FB41.0020.0002][.8CC1.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9D5
+F948  ; [.FB41.0020.0002][.8CC2.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F948
+323E  ; [*030A.0020.0004][.FB41.0020.0004][.8CC7.0000.0000][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH RESOURCE
+32AE  ; [.FB41.0020.0006][.8CC7.0000.0000] # CIRCLED IDEOGRAPH RESOURCE
+F903  ; [.FB41.0020.0002][.8CC8.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F903
+FA64  ; [.FB41.0020.0002][.8CD3.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA64
+FA65  ; [.FB41.0020.0002][.8D08.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA65
+FAC1  ; [.FB41.0020.0002][.8D08.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FAC1
+2F9D6 ; [.FB41.0020.0002][.8D1B.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9D6
+2EC9  ; [.FB41.0020.0004][.8D1D.0000.0000] # CJK RADICAL C-SIMPLIFIED SHELL
+2F9A  ; [.FB41.0020.0004][.8D64.0000.0000] # KANGXI RADICAL RED
+2F9B  ; [.FB41.0020.0004][.8D70.0000.0000] # KANGXI RADICAL RUN
+1F230 ; [.FB41.0020.001C][.8D70.0000.0000] # SQUARED CJK UNIFIED IDEOGRAPH-8D70
+2F9D7 ; [.FB41.0020.0002][.8D77.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9D7
+2F9C  ; [.FB41.0020.0004][.8DB3.0000.0000] # KANGXI RADICAL FOOT
+2ECA  ; [.FB41.0020.0004][.8DB3.0000.0000][.0000.0108.0004] # CJK RADICAL FOOT
+2F9DB ; [.FB41.0020.0002][.8DBC.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9DB
+2F9DA ; [.FB41.0020.0002][.8DCB.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9DA
+F937  ; [.FB41.0020.0002][.8DEF.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F937
+2F9DC ; [.FB41.0020.0002][.8DF0.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9DC
+2F9D  ; [.FB41.0020.0004][.8EAB.0000.0000] # KANGXI RADICAL BODY
+F902  ; [.FB41.0020.0002][.8ECA.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F902
+2F9E  ; [.FB41.0020.0004][.8ECA.0000.0000] # KANGXI RADICAL CART
+2F9DE ; [.FB41.0020.0002][.8ED4.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9DE
+F998  ; [.FB41.0020.0002][.8F26.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F998
+F9D7  ; [.FB41.0020.0002][.8F2A.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9D7
+FAC2  ; [.FB41.0020.0002][.8F38.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FAC2
+2F9DF ; [.FB41.0020.0002][.8F38.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9DF
+FA07  ; [.FB41.0020.0002][.8F3B.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA07
+F98D  ; [.FB41.0020.0002][.8F62.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F98D
+2ECB  ; [.FB41.0020.0004][.8F66.0000.0000] # CJK RADICAL C-SIMPLIFIED CART
+2F9F  ; [.FB41.0020.0004][.8F9B.0000.0000] # KANGXI RADICAL BITTER
+2F98D ; [.FB41.0020.0002][.8F9E.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F98D
+F971  ; [.FB41.0020.0002][.8FB0.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F971
+2FA0  ; [.FB41.0020.0004][.8FB0.0000.0000] # KANGXI RADICAL MORNING
+2FA1  ; [.FB41.0020.0004][.8FB5.0000.0000] # KANGXI RADICAL WALK
+FA66  ; [.FB41.0020.0002][.8FB6.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA66
+2ECC  ; [.FB41.0020.0004][.8FB6.0000.0000] # CJK RADICAL SIMPLIFIED WALK
+2ECD  ; [.FB41.0020.0004][.8FB6.0000.0000][.0000.0108.0004] # CJK RADICAL WALK ONE
+2ECE  ; [.FB41.0020.0004][.8FB6.0000.0000][.0000.0109.0004] # CJK RADICAL WALK TWO
+F99A  ; [.FB41.0020.0002][.9023.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F99A
+FA25  ; [.FB41.0020.0002][.9038.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA25
+FA67  ; [.FB41.0020.0002][.9038.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA67
+1F22B ; [.FB41.0020.001C][.904A.0000.0000] # SQUARED CJK UNIFIED IDEOGRAPH-904A
+329C  ; [.FB41.0020.0006][.9069.0000.0000] # CIRCLED IDEOGRAPH SUITABLE
+FAC3  ; [.FB41.0020.0002][.9072.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FAC3
+F9C3  ; [.FB41.0020.0002][.907C.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9C3
+F913  ; [.FB41.0020.0002][.908F.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F913
+2FA2  ; [.FB41.0020.0004][.9091.0000.0000] # KANGXI RADICAL CITY
+2ECF  ; [.FB41.0020.0004][.9091.0000.0000][.0000.0108.0004] # CJK RADICAL CITY
+2F9E2 ; [.FB41.0020.0002][.9094.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9E2
+F92C  ; [.FB41.0020.0002][.90CE.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F92C
+FA2E  ; [.FB41.0020.0002][.90DE.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA2E
+2F9E3 ; [.FB41.0020.0002][.90F1.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9E3
+FA26  ; [.FB41.0020.0002][.90FD.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA26
+2F9E4 ; [.FB41.0020.0002][.9111.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9E4
+2F9E6 ; [.FB41.0020.0002][.911B.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9E6
+2FA3  ; [.FB41.0020.0004][.9149.0000.0000] # KANGXI RADICAL WINE
+F919  ; [.FB41.0020.0002][.916A.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F919
+FAC4  ; [.FB41.0020.0002][.9199.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FAC4
+F9B7  ; [.FB41.0020.0002][.91B4.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9B7
+2FA4  ; [.FB41.0020.0004][.91C6.0000.0000] # KANGXI RADICAL DISTINGUISH
+F9E9  ; [.FB41.0020.0002][.91CC.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9E9
+2FA5  ; [.FB41.0020.0004][.91CC.0000.0000] # KANGXI RADICAL VILLAGE
+F97E  ; [.FB41.0020.0002][.91CF.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F97E
+F90A  ; [.FB41.0020.0002][.91D1.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F90A
+2FA6  ; [.FB41.0020.0004][.91D1.0000.0000] # KANGXI RADICAL GOLD
+322E  ; [*030A.0020.0004][.FB41.0020.0004][.91D1.0000.0000][*030B.0020.0004] # PARENTHESIZED IDEOGRAPH METAL
+328E  ; [.FB41.0020.0006][.91D1.0000.0000] # CIRCLED IDEOGRAPH METAL
+F9B1  ; [.FB41.0020.0002][.9234.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9B1
+2F9E7 ; [.FB41.0020.0002][.9238.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9E7
+FAC5  ; [.FB41.0020.0002][.9276.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FAC5
+2F9EA ; [.FB41.0020.0002][.927C.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9EA
+2F9E8 ; [.FB41.0020.0002][.92D7.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9E8
+2F9E9 ; [.FB41.0020.0002][.92D8.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9E9
+F93F  ; [.FB41.0020.0002][.9304.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F93F
+F99B  ; [.FB41.0020.0002][.934A.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F99B
+2F9EB ; [.FB41.0020.0002][.93F9.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9EB
+2F9EC ; [.FB41.0020.0002][.9415.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9EC
+2ED0  ; [.FB41.0020.0004][.9485.0000.0000] # CJK RADICAL C-SIMPLIFIED GOLD
+2ED1  ; [.FB41.0020.0004][.9577.0000.0000] # CJK RADICAL LONG ONE
+2FA7  ; [.FB41.0020.0004][.9577.0000.0000] # KANGXI RADICAL LONG
+2ED2  ; [.FB41.0020.0004][.9578.0000.0000] # CJK RADICAL LONG TWO
+2ED3  ; [.FB41.0020.0004][.957F.0000.0000] # CJK RADICAL C-SIMPLIFIED LONG
+2FA8  ; [.FB41.0020.0004][.9580.0000.0000] # KANGXI RADICAL GATE
+2F9EE ; [.FB41.0020.0002][.958B.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9EE
+F986  ; [.FB41.0020.0002][.95AD.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F986
+2F9F0 ; [.FB41.0020.0002][.95B7.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9F0
+2ED4  ; [.FB41.0020.0004][.95E8.0000.0000] # CJK RADICAL C-SIMPLIFIED GATE
+2FA9  ; [.FB41.0020.0004][.961C.0000.0000] # KANGXI RADICAL MOUND
+2ED5  ; [.FB41.0020.0004][.961C.0000.0000][.0000.0108.0004] # CJK RADICAL MOUND ONE
+2ED6  ; [.FB41.0020.0004][.961D.0000.0000] # CJK RADICAL MOUND TWO
+F9C6  ; [.FB41.0020.0002][.962E.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9C6
+F951  ; [.FB41.0020.0002][.964B.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F951
+FA09  ; [.FB41.0020.0002][.964D.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA09
+F959  ; [.FB41.0020.0002][.9675.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F959
+F9D3  ; [.FB41.0020.0002][.9678.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9D3
+FAC6  ; [.FB41.0020.0002][.967C.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FAC6
+F9DC  ; [.FB41.0020.0002][.9686.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9DC
+F9F1  ; [.FB41.0020.0002][.96A3.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9F1
+2FAA  ; [.FB41.0020.0004][.96B6.0000.0000] # KANGXI RADICAL SLAVE
+FA2F  ; [.FB41.0020.0002][.96B7.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA2F
+F9B8  ; [.FB41.0020.0002][.96B8.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9B8
+2FAB  ; [.FB41.0020.0004][.96B9.0000.0000] # KANGXI RADICAL SHORT TAILED BIRD
+2F9F3 ; [.FB41.0020.0002][.96C3.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9F3
+F9EA  ; [.FB41.0020.0002][.96E2.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9EA
+FA68  ; [.FB41.0020.0002][.96E3.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA68
+FAC7  ; [.FB41.0020.0002][.96E3.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FAC7
+2FAC  ; [.FB41.0020.0004][.96E8.0000.0000] # KANGXI RADICAL RAIN
+2ED7  ; [.FB41.0020.0004][.96E8.0000.0000][.0000.0108.0004] # CJK RADICAL RAIN
+F9B2  ; [.FB41.0020.0002][.96F6.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9B2
+F949  ; [.FB41.0020.0002][.96F7.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F949
+2F9F5 ; [.FB41.0020.0002][.9723.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9F5
+F938  ; [.FB41.0020.0002][.9732.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F938
+F9B3  ; [.FB41.0020.0002][.9748.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9B3
+2FAD  ; [.FB41.0020.0004][.9751.0000.0000] # KANGXI RADICAL BLUE
+2ED8  ; [.FB41.0020.0004][.9752.0000.0000] # CJK RADICAL BLUE
+FA1C  ; [.FB41.0020.0002][.9756.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA1C
+FAC8  ; [.FB41.0020.0002][.9756.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FAC8
+2FAE  ; [.FB41.0020.0004][.975E.0000.0000] # KANGXI RADICAL WRONG
+2FAF  ; [.FB41.0020.0004][.9762.0000.0000] # KANGXI RADICAL FACE
+2FB0  ; [.FB41.0020.0004][.9769.0000.0000] # KANGXI RADICAL LEATHER
+2FB1  ; [.FB41.0020.0004][.97CB.0000.0000] # KANGXI RADICAL TANNED LEATHER
+FAC9  ; [.FB41.0020.0002][.97DB.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FAC9
+2F9FA ; [.FB41.0020.0002][.97E0.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9FA
+2ED9  ; [.FB41.0020.0004][.97E6.0000.0000] # CJK RADICAL C-SIMPLIFIED TANNED LEATHER
+2FB2  ; [.FB41.0020.0004][.97ED.0000.0000] # KANGXI RADICAL LEEK
+2FB3  ; [.FB41.0020.0004][.97F3.0000.0000] # KANGXI RADICAL SOUND
+FA69  ; [.FB41.0020.0002][.97FF.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA69
+FACA  ; [.FB41.0020.0002][.97FF.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FACA
+2FB4  ; [.FB41.0020.0004][.9801.0000.0000] # KANGXI RADICAL LEAF
+32A0  ; [.FB41.0020.0006][.9805.0000.0000] # CIRCLED IDEOGRAPH ITEM
+FACB  ; [.FB41.0020.0002][.980B.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FACB
+2F9FE ; [.FB41.0020.0002][.980B.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9FE
+2F9FF ; [.FB41.0020.0002][.980B.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9FF
+F9B4  ; [.FB41.0020.0002][.9818.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9B4
+2FA00 ; [.FB41.0020.0002][.9829.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2FA00
+FA6A  ; [.FB41.0020.0002][.983B.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA6A
+FACC  ; [.FB41.0020.0002][.983B.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FACC
+F9D0  ; [.FB41.0020.0002][.985E.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9D0
+2EDA  ; [.FB41.0020.0004][.9875.0000.0000] # CJK RADICAL C-SIMPLIFIED LEAF
+2FB5  ; [.FB41.0020.0004][.98A8.0000.0000] # KANGXI RADICAL WIND
+2EDB  ; [.FB41.0020.0004][.98CE.0000.0000] # CJK RADICAL C-SIMPLIFIED WIND
+2FB6  ; [.FB41.0020.0004][.98DB.0000.0000] # KANGXI RADICAL FLY
+2EDC  ; [.FB41.0020.0004][.98DE.0000.0000] # CJK RADICAL C-SIMPLIFIED FLY
+2EDD  ; [.FB41.0020.0004][.98DF.0000.0000] # CJK RADICAL EAT ONE
+2FB7  ; [.FB41.0020.0004][.98DF.0000.0000] # KANGXI RADICAL EAT
+2EDF  ; [.FB41.0020.0004][.98E0.0000.0000] # CJK RADICAL EAT THREE
+2EDE  ; [.FB41.0020.0004][.98E0.0000.0000][.0000.0108.0004] # CJK RADICAL EAT TWO
+2FA02 ; [.FB41.0020.0002][.98E2.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2FA02
+FA2A  ; [.FB41.0020.0002][.98EF.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA2A
+FA2B  ; [.FB41.0020.0002][.98FC.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA2B
+FA2C  ; [.FB41.0020.0002][.9928.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA2C
+2FA04 ; [.FB41.0020.0002][.9929.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2FA04
+2EE0  ; [.FB41.0020.0004][.9963.0000.0000] # CJK RADICAL C-SIMPLIFIED EAT
+2FB8  ; [.FB41.0020.0004][.9996.0000.0000] # KANGXI RADICAL HEAD
+2EE1  ; [.FB41.0020.0004][.9996.0000.0000][.0000.0108.0004] # CJK RADICAL HEAD
+2FB9  ; [.FB41.0020.0004][.9999.0000.0000] # KANGXI RADICAL FRAGRANT
+2FA05 ; [.FB41.0020.0002][.99A7.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2FA05
+2FBA  ; [.FB41.0020.0004][.99AC.0000.0000] # KANGXI RADICAL HORSE
+2FA06 ; [.FB41.0020.0002][.99C2.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2FA06
+F91A  ; [.FB41.0020.0002][.99F1.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F91A
+2FA07 ; [.FB41.0020.0002][.99FE.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2FA07
+F987  ; [.FB41.0020.0002][.9A6A.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F987
+2EE2  ; [.FB41.0020.0004][.9A6C.0000.0000] # CJK RADICAL C-SIMPLIFIED HORSE
+2FBB  ; [.FB41.0020.0004][.9AA8.0000.0000] # KANGXI RADICAL BONE
+2EE3  ; [.FB41.0020.0004][.9AA8.0000.0000][.0000.0108.0004] # CJK RADICAL BONE
+2FBC  ; [.FB41.0020.0004][.9AD8.0000.0000] # KANGXI RADICAL TALL
+2FBD  ; [.FB41.0020.0004][.9ADF.0000.0000] # KANGXI RADICAL HAIR
+FACD  ; [.FB41.0020.0002][.9B12.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FACD
+2FA0A ; [.FB41.0020.0002][.9B12.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2FA0A
+2FBE  ; [.FB41.0020.0004][.9B25.0000.0000] # KANGXI RADICAL FIGHT
+2FBF  ; [.FB41.0020.0004][.9B2F.0000.0000] # KANGXI RADICAL SACRIFICIAL WINE
+2FC0  ; [.FB41.0020.0004][.9B32.0000.0000] # KANGXI RADICAL CAULDRON
+2FC1  ; [.FB41.0020.0004][.9B3C.0000.0000] # KANGXI RADICAL GHOST
+2EE4  ; [.FB41.0020.0004][.9B3C.0000.0000][.0000.0108.0004] # CJK RADICAL GHOST
+2FC2  ; [.FB41.0020.0004][.9B5A.0000.0000] # KANGXI RADICAL FISH
+F939  ; [.FB41.0020.0002][.9B6F.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F939
+2FA0B ; [.FB41.0020.0002][.9C40.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2FA0B
+F9F2  ; [.FB41.0020.0002][.9C57.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9F2
+2EE5  ; [.FB41.0020.0004][.9C7C.0000.0000] # CJK RADICAL C-SIMPLIFIED FISH
+2FC3  ; [.FB41.0020.0004][.9CE5.0000.0000] # KANGXI RADICAL BIRD
+2FA0C ; [.FB41.0020.0002][.9CFD.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2FA0C
+2FA0F ; [.FB41.0020.0002][.9D67.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2FA0F
+FA2D  ; [.FB41.0020.0002][.9DB4.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA2D
+F93A  ; [.FB41.0020.0002][.9DFA.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F93A
+F920  ; [.FB41.0020.0002][.9E1E.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F920
+2EE6  ; [.FB41.0020.0004][.9E1F.0000.0000] # CJK RADICAL C-SIMPLIFIED BIRD
+2FC4  ; [.FB41.0020.0004][.9E75.0000.0000] # KANGXI RADICAL SALT
+2EE7  ; [.FB41.0020.0004][.9E75.0000.0000][.0000.0108.0004] # CJK RADICAL C-SIMPLIFIED SALT
+F940  ; [.FB41.0020.0002][.9E7F.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F940
+2FC5  ; [.FB41.0020.0004][.9E7F.0000.0000] # KANGXI RADICAL DEER
+F988  ; [.FB41.0020.0002][.9E97.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F988
+F9F3  ; [.FB41.0020.0002][.9E9F.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9F3
+2FC6  ; [.FB41.0020.0004][.9EA5.0000.0000] # KANGXI RADICAL WHEAT
+2EE8  ; [.FB41.0020.0004][.9EA6.0000.0000] # CJK RADICAL SIMPLIFIED WHEAT
+2FA15 ; [.FB41.0020.0002][.9EBB.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2FA15
+2FC7  ; [.FB41.0020.0004][.9EBB.0000.0000] # KANGXI RADICAL HEMP
+2FC8  ; [.FB41.0020.0004][.9EC3.0000.0000] # KANGXI RADICAL YELLOW
+2EE9  ; [.FB41.0020.0004][.9EC4.0000.0000] # CJK RADICAL SIMPLIFIED YELLOW
+2FC9  ; [.FB41.0020.0004][.9ECD.0000.0000] # KANGXI RADICAL MILLET
+F989  ; [.FB41.0020.0002][.9ECE.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F989
+2FCA  ; [.FB41.0020.0004][.9ED1.0000.0000] # KANGXI RADICAL BLACK
+2FA17 ; [.FB41.0020.0002][.9EF9.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2FA17
+2FCB  ; [.FB41.0020.0004][.9EF9.0000.0000] # KANGXI RADICAL EMBROIDERY
+2FCC  ; [.FB41.0020.0004][.9EFD.0000.0000] # KANGXI RADICAL FROG
+2FA18 ; [.FB41.0020.0002][.9EFE.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2FA18
+2EEA  ; [.FB41.0020.0004][.9EFE.0000.0000] # CJK RADICAL C-SIMPLIFIED FROG
+2FA19 ; [.FB41.0020.0002][.9F05.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2FA19
+2FCD  ; [.FB41.0020.0004][.9F0E.0000.0000] # KANGXI RADICAL TRIPOD
+2FA1A ; [.FB41.0020.0002][.9F0F.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2FA1A
+2FCE  ; [.FB41.0020.0004][.9F13.0000.0000] # KANGXI RADICAL DRUM
+2FA1B ; [.FB41.0020.0002][.9F16.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2FA1B
+2FCF  ; [.FB41.0020.0004][.9F20.0000.0000] # KANGXI RADICAL RAT
+2FA1C ; [.FB41.0020.0002][.9F3B.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2FA1C
+2FD0  ; [.FB41.0020.0004][.9F3B.0000.0000] # KANGXI RADICAL NOSE
+FAD8  ; [.FB41.0020.0002][.9F43.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FAD8
+2FD1  ; [.FB41.0020.0004][.9F4A.0000.0000] # KANGXI RADICAL EVEN
+2EEB  ; [.FB41.0020.0004][.9F4A.0000.0000][.0000.0108.0004] # CJK RADICAL J-SIMPLIFIED EVEN
+2EEC  ; [.FB41.0020.0004][.9F50.0000.0000] # CJK RADICAL C-SIMPLIFIED EVEN
+2FD2  ; [.FB41.0020.0004][.9F52.0000.0000] # KANGXI RADICAL TOOTH
+2EED  ; [.FB41.0020.0004][.9F52.0000.0000][.0000.0108.0004] # CJK RADICAL J-SIMPLIFIED TOOTH
+2EEE  ; [.FB41.0020.0004][.9F7F.0000.0000] # CJK RADICAL C-SIMPLIFIED TOOTH
+F9C4  ; [.FB41.0020.0002][.9F8D.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F9C4
+2FD3  ; [.FB41.0020.0004][.9F8D.0000.0000] # KANGXI RADICAL DRAGON
+2EEF  ; [.FB41.0020.0004][.9F8D.0000.0000][.0000.0108.0004] # CJK RADICAL J-SIMPLIFIED DRAGON
+FAD9  ; [.FB41.0020.0002][.9F8E.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FAD9
+2EF0  ; [.FB41.0020.0004][.9F99.0000.0000] # CJK RADICAL C-SIMPLIFIED DRAGON
+F907  ; [.FB41.0020.0002][.9F9C.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F907
+F908  ; [.FB41.0020.0002][.9F9C.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-F908
+FACE  ; [.FB41.0020.0002][.9F9C.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FACE
+2FD4  ; [.FB41.0020.0004][.9F9C.0000.0000] # KANGXI RADICAL TURTLE
+2EF1  ; [.FB41.0020.0004][.9F9C.0000.0000][.0000.0108.0004] # CJK RADICAL TURTLE
+2EF2  ; [.FB41.0020.0004][.9F9C.0000.0000][.0000.0109.0004] # CJK RADICAL J-SIMPLIFIED TURTLE
+2EF3  ; [.FB41.0020.0004][.9F9F.0000.0000] # CJK RADICAL C-SIMPLIFIED TURTLE
+2FD5  ; [.FB41.0020.0004][.9FA0.0000.0000] # KANGXI RADICAL FLUTE
+FA0E  ; [.FB41.0020.0002][.FA0E.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA0E
+FA0F  ; [.FB41.0020.0002][.FA0F.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA0F
+FA11  ; [.FB41.0020.0002][.FA11.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA11
+FA13  ; [.FB41.0020.0002][.FA13.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA13
+FA14  ; [.FB41.0020.0002][.FA14.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA14
+FA1F  ; [.FB41.0020.0002][.FA1F.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA1F
+FA21  ; [.FB41.0020.0002][.FA21.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA21
+FA23  ; [.FB41.0020.0002][.FA23.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA23
+FA24  ; [.FB41.0020.0002][.FA24.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA24
+FA27  ; [.FB41.0020.0002][.FA27.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA27
+FA28  ; [.FB41.0020.0002][.FA28.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA28
+FA29  ; [.FB41.0020.0002][.FA29.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA29
+2F80C ; [.FB80.0020.0002][.B49E.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F80C
+2F813 ; [.FB80.0020.0002][.B4B9.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F813
+2F9CA ; [.FB80.0020.0002][.B4BB.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9CA
+2F81F ; [.FB80.0020.0002][.B4DF.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F81F
+2F824 ; [.FB80.0020.0002][.B515.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F824
+2F867 ; [.FB80.0020.0002][.B6EE.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F867
+2F868 ; [.FB80.0020.0002][.B6FC.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F868
+2F876 ; [.FB80.0020.0002][.B781.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F876
+2F883 ; [.FB80.0020.0002][.B82F.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F883
+2F888 ; [.FB80.0020.0002][.B862.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F888
+2F88A ; [.FB80.0020.0002][.B87C.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F88A
+2F896 ; [.FB80.0020.0002][.B8C7.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F896
+2F89B ; [.FB80.0020.0002][.B8E3.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F89B
+2F8A2 ; [.FB80.0020.0002][.B91C.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8A2
+2F8A1 ; [.FB80.0020.0002][.B93A.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8A1
+2F8C2 ; [.FB80.0020.0002][.BA2E.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8C2
+2F8C7 ; [.FB80.0020.0002][.BA6C.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8C7
+2F8D1 ; [.FB80.0020.0002][.BAE4.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8D1
+2F8D0 ; [.FB80.0020.0002][.BB08.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8D0
+2F8CE ; [.FB80.0020.0002][.BB19.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8CE
+2F8DE ; [.FB80.0020.0002][.BB49.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8DE
+FAD2  ; [.FB80.0020.0002][.BB9D.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FAD2
+2F8E7 ; [.FB80.0020.0002][.BB9D.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8E7
+2F8EE ; [.FB80.0020.0002][.BC18.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8EE
+2F8F2 ; [.FB80.0020.0002][.BC4E.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8F2
+2F90A ; [.FB80.0020.0002][.BD33.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F90A
+2F916 ; [.FB80.0020.0002][.BD96.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F916
+2F92A ; [.FB80.0020.0002][.BEAC.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F92A
+2F92C ; [.FB80.0020.0002][.BEB8.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F92C
+2F92D ; [.FB80.0020.0002][.BEB8.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F92D
+2F933 ; [.FB80.0020.0002][.BF1B.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F933
+2F93E ; [.FB80.0020.0002][.BFFC.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F93E
+2F93F ; [.FB80.0020.0002][.C008.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F93F
+FAD3  ; [.FB80.0020.0002][.C018.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FAD3
+FAD4  ; [.FB80.0020.0002][.C039.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FAD4
+2F949 ; [.FB80.0020.0002][.C039.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F949
+2F94B ; [.FB80.0020.0002][.C046.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F94B
+2F94C ; [.FB80.0020.0002][.C096.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F94C
+2F951 ; [.FB80.0020.0002][.C0E3.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F951
+2F958 ; [.FB80.0020.0002][.C12F.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F958
+2F960 ; [.FB80.0020.0002][.C202.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F960
+2F964 ; [.FB80.0020.0002][.C227.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F964
+2F967 ; [.FB80.0020.0002][.C2A0.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F967
+2F96D ; [.FB80.0020.0002][.C301.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F96D
+2F971 ; [.FB80.0020.0002][.C334.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F971
+2F974 ; [.FB80.0020.0002][.C359.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F974
+2F981 ; [.FB80.0020.0002][.C3D5.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F981
+2F8D7 ; [.FB80.0020.0002][.C3D9.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8D7
+2F984 ; [.FB80.0020.0002][.C40B.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F984
+2F98E ; [.FB80.0020.0002][.C46B.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F98E
+2F9A7 ; [.FB80.0020.0002][.C52B.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9A7
+2F9AE ; [.FB80.0020.0002][.C55D.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9AE
+2F9AF ; [.FB80.0020.0002][.C561.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9AF
+2F9B2 ; [.FB80.0020.0002][.C56B.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9B2
+2F9BF ; [.FB80.0020.0002][.C5D7.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9BF
+2F9C2 ; [.FB80.0020.0002][.C5F9.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9C2
+2F9C8 ; [.FB80.0020.0002][.C635.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9C8
+2F9CD ; [.FB80.0020.0002][.C6BE.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9CD
+2F9CE ; [.FB80.0020.0002][.C6C7.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9CE
+2F9EF ; [.FB80.0020.0002][.C995.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9EF
+2F9F2 ; [.FB80.0020.0002][.C9E6.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9F2
+2F9F8 ; [.FB80.0020.0002][.CA6E.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9F8
+2F9F9 ; [.FB80.0020.0002][.CA76.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9F9
+2F9FC ; [.FB80.0020.0002][.CAB2.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9FC
+2FA03 ; [.FB80.0020.0002][.CB33.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2FA03
+2FA08 ; [.FB80.0020.0002][.CBCE.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2FA08
+2FA0D ; [.FB80.0020.0002][.CCCE.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2FA0D
+2FA0E ; [.FB80.0020.0002][.CCED.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2FA0E
+2FA11 ; [.FB80.0020.0002][.CCF8.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2FA11
+2FA16 ; [.FB80.0020.0002][.CD56.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2FA16
+2F803 ; [.FB84.0020.0002][.8122.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F803
+2F812 ; [.FB84.0020.0002][.851C.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F812
+2F91B ; [.FB84.0020.0002][.8525.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F91B
+2F816 ; [.FB84.0020.0002][.854B.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F816
+2F80D ; [.FB84.0020.0002][.863A.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F80D
+2F9D9 ; [.FB84.0020.0002][.8804.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9D9
+2F9DD ; [.FB84.0020.0002][.88DE.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9DD
+2F834 ; [.FB84.0020.0002][.8A2C.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F834
+2F838 ; [.FB84.0020.0002][.8B63.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F838
+2F859 ; [.FB84.0020.0002][.94E4.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F859
+2F860 ; [.FB84.0020.0002][.96A8.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F860
+2F861 ; [.FB84.0020.0002][.96EA.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F861
+2F86C ; [.FB84.0020.0002][.99C8.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F86C
+2F871 ; [.FB84.0020.0002][.9B18.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F871
+2F8F8 ; [.FB84.0020.0002][.9D0B.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8F8
+2F87B ; [.FB84.0020.0002][.9DE4.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F87B
+2F87D ; [.FB84.0020.0002][.9DE6.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F87D
+2F889 ; [.FB84.0020.0002][.A183.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F889
+2F939 ; [.FB84.0020.0002][.A19F.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F939
+2F891 ; [.FB84.0020.0002][.A331.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F891
+2F892 ; [.FB84.0020.0002][.A331.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F892
+2F8A4 ; [.FB84.0020.0002][.A6D4.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8A4
+FAD0  ; [.FB84.0020.0002][.A844.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FAD0
+FACF  ; [.FB84.0020.0002][.A84A.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FACF
+2F8B8 ; [.FB84.0020.0002][.AB0C.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8B8
+2F8BE ; [.FB84.0020.0002][.ABF1.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8BE
+2F8CA ; [.FB84.0020.0002][.B00A.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8CA
+2F897 ; [.FB84.0020.0002][.B2B8.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F897
+2F980 ; [.FB84.0020.0002][.B35F.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F980
+2F989 ; [.FB84.0020.0002][.B393.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F989
+2F98A ; [.FB84.0020.0002][.B39C.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F98A
+2F8DD ; [.FB84.0020.0002][.B3C3.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8DD
+FAD1  ; [.FB84.0020.0002][.B3D5.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FAD1
+2F8E3 ; [.FB84.0020.0002][.B46D.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8E3
+2F8EC ; [.FB84.0020.0002][.B6A3.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8EC
+2F8F0 ; [.FB84.0020.0002][.B8A7.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8F0
+2F8F7 ; [.FB84.0020.0002][.BA8D.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8F7
+2F8F9 ; [.FB84.0020.0002][.BAFA.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8F9
+2F8FB ; [.FB84.0020.0002][.BCBC.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F8FB
+2F906 ; [.FB84.0020.0002][.BD1E.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F906
+2F90D ; [.FB84.0020.0002][.BED1.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F90D
+2F910 ; [.FB84.0020.0002][.BF5E.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F910
+2F911 ; [.FB84.0020.0002][.BF8E.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F911
+2F91D ; [.FB84.0020.0002][.C263.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F91D
+FA6C  ; [.FB84.0020.0002][.C2EE.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FA6C
+2F91F ; [.FB84.0020.0002][.C3AB.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F91F
+2F923 ; [.FB84.0020.0002][.C608.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F923
+2F926 ; [.FB84.0020.0002][.C735.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F926
+2F927 ; [.FB84.0020.0002][.C814.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F927
+2F935 ; [.FB84.0020.0002][.CC36.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F935
+2F937 ; [.FB84.0020.0002][.CC92.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F937
+2F93B ; [.FB84.0020.0002][.CFA1.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F93B
+2F93C ; [.FB84.0020.0002][.CFB8.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F93C
+2F93D ; [.FB84.0020.0002][.D044.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F93D
+2F942 ; [.FB84.0020.0002][.D0F2.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F942
+2F941 ; [.FB84.0020.0002][.D0F3.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F941
+2F943 ; [.FB84.0020.0002][.D119.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F943
+2F944 ; [.FB84.0020.0002][.D133.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F944
+FAD5  ; [.FB84.0020.0002][.D249.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FAD5
+2F94D ; [.FB84.0020.0002][.D41D.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F94D
+2F952 ; [.FB84.0020.0002][.D626.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F952
+2F954 ; [.FB84.0020.0002][.D69A.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F954
+2F955 ; [.FB84.0020.0002][.D6C5.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F955
+2F95C ; [.FB84.0020.0002][.D97C.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F95C
+2F95D ; [.FB84.0020.0002][.DAA7.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F95D
+2F95E ; [.FB84.0020.0002][.DAA7.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F95E
+2F961 ; [.FB84.0020.0002][.DBAB.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F961
+2F965 ; [.FB84.0020.0002][.DC80.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F965
+FAD6  ; [.FB84.0020.0002][.DCD0.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FAD6
+2F96B ; [.FB84.0020.0002][.DF86.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F96B
+2F898 ; [.FB84.0020.0002][.E1DA.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F898
+2F972 ; [.FB84.0020.0002][.E228.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F972
+2F973 ; [.FB84.0020.0002][.E247.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F973
+2F975 ; [.FB84.0020.0002][.E2D9.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F975
+2F977 ; [.FB84.0020.0002][.E33E.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F977
+2F97B ; [.FB84.0020.0002][.E4DA.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F97B
+2F97C ; [.FB84.0020.0002][.E523.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F97C
+2F97E ; [.FB84.0020.0002][.E5A8.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F97E
+2F987 ; [.FB84.0020.0002][.E7A7.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F987
+2F988 ; [.FB84.0020.0002][.E7B5.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F988
+2F997 ; [.FB84.0020.0002][.EB3C.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F997
+2F9A4 ; [.FB84.0020.0002][.EC36.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9A4
+2F9A6 ; [.FB84.0020.0002][.ECD5.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9A6
+2F9A5 ; [.FB84.0020.0002][.ED6B.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9A5
+2F9AD ; [.FB84.0020.0002][.EF2C.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9AD
+2F9B0 ; [.FB84.0020.0002][.EFB1.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9B0
+2F9B1 ; [.FB84.0020.0002][.F0D2.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9B1
+2F9AB ; [.FB84.0020.0002][.F3CA.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9AB
+2F9C5 ; [.FB84.0020.0002][.F667.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9C5
+2F9CB ; [.FB84.0020.0002][.F8AE.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9CB
+2F9CC ; [.FB84.0020.0002][.F966.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9CC
+2F9D3 ; [.FB84.0020.0002][.FCA8.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9D3
+FAD7  ; [.FB84.0020.0002][.FED3.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-FAD7
+2F9D8 ; [.FB84.0020.0002][.FF2F.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9D8
+2F9E0 ; [.FB85.0020.0002][.85D2.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9E0
+2F9E1 ; [.FB85.0020.0002][.85ED.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9E1
+2F9E5 ; [.FB85.0020.0002][.872E.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9E5
+2F9ED ; [.FB85.0020.0002][.8BFA.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9ED
+2F9F1 ; [.FB85.0020.0002][.8D77.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9F1
+2F9F6 ; [.FB85.0020.0002][.9145.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9F6
+2F81C ; [.FB85.0020.0002][.91DF.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F81C
+2F9F7 ; [.FB85.0020.0002][.921A.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9F7
+2F9FB ; [.FB85.0020.0002][.940A.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9FB
+2F9FD ; [.FB85.0020.0002][.9496.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F9FD
+2FA01 ; [.FB85.0020.0002][.95B6.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2FA01
+2FA09 ; [.FB85.0020.0002][.9B30.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2FA09
+2FA10 ; [.FB85.0020.0002][.A0CE.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2FA10
+2FA12 ; [.FB85.0020.0002][.A105.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2FA12
+2FA13 ; [.FB85.0020.0002][.A20E.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2FA13
+2FA14 ; [.FB85.0020.0002][.A291.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2FA14
+2F88F ; [.FB85.0020.0002][.A392.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2F88F
+2FA1D ; [.FB85.0020.0002][.A600.0000.0000] # CJK COMPATIBILITY IDEOGRAPH-2FA1D
+FFFD  ; [.FFFD.0020.0002] # REPLACEMENT CHARACTER
diff --git a/lib/5.24.1/Unicode/Collate/keys.txt b/lib/5.24.1/Unicode/Collate/keys.txt
new file mode 100644
index 00000000..aaa2d2a5
--- /dev/null
+++ b/lib/5.24.1/Unicode/Collate/keys.txt
@@ -0,0 +1,864 @@
+#### This file is generated from allkeys-3.1.1.txt (unicode.org)
+#### by deleting many many entries.
+####
+#### This table is intended ONLY for doing a test
+#### of Unicode/Collate.pm, a Perl module.
+####
+#### The entries contained here ARE:
+####    0000..007F   # Basic Latin
+####    0080..00FF   # Latin-1 Supplement
+####    0300..036F   # Combining Diacritical Marks
+####    1100..11FF   # Hangul Jamo
+####    2000..206F   # General Punctuation
+####    3040..309F   # Hiragana
+####    30A0..30FF   # Katakana
+####
+#### To fetch the original file, access to this:
+#### http://www.unicode.org/reports/tr10/allkeys.txt
+####
+@version 3.1.1
+0000  ; [.0000.0000.0000.0000] # [0000] NULL (in 6429)
+0001  ; [.0000.0000.0000.0000] # [0001] START OF HEADING (in 6429)
+0002  ; [.0000.0000.0000.0000] # [0002] START OF TEXT (in 6429)
+0003  ; [.0000.0000.0000.0000] # [0003] END OF TEXT (in 6429)
+0004  ; [.0000.0000.0000.0000] # [0004] END OF TRANSMISSION (in 6429)
+0005  ; [.0000.0000.0000.0000] # [0005] ENQUIRY (in 6429)
+0006  ; [.0000.0000.0000.0000] # [0006] ACKNOWLEDGE (in 6429)
+0007  ; [.0000.0000.0000.0000] # [0007] BELL (in 6429)
+0008  ; [.0000.0000.0000.0000] # [0008] BACKSPACE (in 6429)
+000E  ; [.0000.0000.0000.0000] # [000E] SHIFT OUT (in 6429)
+000F  ; [.0000.0000.0000.0000] # [000F] SHIFT IN (in 6429)
+0010  ; [.0000.0000.0000.0000] # [0010] DATA LINK ESCAPE (in 6429)
+0011  ; [.0000.0000.0000.0000] # [0011] DEVICE CONTROL ONE (in 6429)
+0012  ; [.0000.0000.0000.0000] # [0012] DEVICE CONTROL TWO (in 6429)
+0013  ; [.0000.0000.0000.0000] # [0013] DEVICE CONTROL THREE (in 6429)
+0014  ; [.0000.0000.0000.0000] # [0014] DEVICE CONTROL FOUR (in 6429)
+0015  ; [.0000.0000.0000.0000] # [0015] NEGATIVE ACKNOWLEDGE (in 6429)
+0016  ; [.0000.0000.0000.0000] # [0016] SYNCHRONOUS IDLE (in 6429)
+0017  ; [.0000.0000.0000.0000] # [0017] END OF TRANSMISSION BLOCK (in 6429)
+0018  ; [.0000.0000.0000.0000] # [0018] CANCEL (in 6429)
+0019  ; [.0000.0000.0000.0000] # [0019] END OF MEDIUM (in 6429)
+001A  ; [.0000.0000.0000.0000] # [001A] SUBSTITUTE (in 6429)
+001B  ; [.0000.0000.0000.0000] # [001B] ESCAPE (in 6429)
+001C  ; [.0000.0000.0000.0000] # [001C] FILE SEPARATOR (in 6429)
+001D  ; [.0000.0000.0000.0000] # [001D] GROUP SEPARATOR (in 6429)
+001E  ; [.0000.0000.0000.0000] # [001E] RECORD SEPARATOR (in 6429)
+001F  ; [.0000.0000.0000.0000] # [001F] UNIT SEPARATOR (in 6429)
+007F  ; [.0000.0000.0000.0000] # [007F] DELETE (in 6429)
+0080  ; [.0000.0000.0000.0000] # [0080] <control>
+0081  ; [.0000.0000.0000.0000] # [0081] <control>
+0082  ; [.0000.0000.0000.0000] # [0082] BREAK PERMITTED HERE (in 6429)
+0083  ; [.0000.0000.0000.0000] # [0083] NO BREAK HERE (in 6429)
+0084  ; [.0000.0000.0000.0000] # [0084] <control>
+0086  ; [.0000.0000.0000.0000] # [0086] START OF SELECTED AREA (in 6429)
+0087  ; [.0000.0000.0000.0000] # [0087] END OF SELECTED AREA (in 6429)
+0088  ; [.0000.0000.0000.0000] # [0088] CHARACTER TABULATION SET (in 6429)
+0089  ; [.0000.0000.0000.0000] # [0089] CHARACTER TABULATION WITH JUSTIFICATION (in 6429)
+008A  ; [.0000.0000.0000.0000] # [008A] LINE TABULATION SET (in 6429)
+008B  ; [.0000.0000.0000.0000] # [008B] PARTIAL LINE FORWARD (in 6429)
+008C  ; [.0000.0000.0000.0000] # [008C] PARTIAL LINE BACKWARD (in 6429)
+008D  ; [.0000.0000.0000.0000] # [008D] PARTIAL LINE FEED (in 6429)
+008E  ; [.0000.0000.0000.0000] # [008E] SINGLE SHIFT TWO (in 6429)
+008F  ; [.0000.0000.0000.0000] # [008F] SINGLE SHIFT THREE (in 6429)
+0090  ; [.0000.0000.0000.0000] # [0090] DEVICE CONTROL STRING (in 6429)
+0091  ; [.0000.0000.0000.0000] # [0091] PRIVATE USE ONE (in 6429)
+0092  ; [.0000.0000.0000.0000] # [0092] PRIVATE USE TWO (in 6429)
+0093  ; [.0000.0000.0000.0000] # [0093] SET TRANSMIT STATE (in 6429)
+0094  ; [.0000.0000.0000.0000] # [0094] CANCEL CHARACTER (in 6429)
+0095  ; [.0000.0000.0000.0000] # [0095] MESSAGE WAITING (in 6429)
+0096  ; [.0000.0000.0000.0000] # [0096] START OF GUARDED AREA (in 6429)
+0097  ; [.0000.0000.0000.0000] # [0097] END OF GUARDED AREA (in 6429)
+0098  ; [.0000.0000.0000.0000] # [0098] START OF STRING (in 6429)
+0099  ; [.0000.0000.0000.0000] # [0099] <control>
+009A  ; [.0000.0000.0000.0000] # [009A] SINGLE CHARACTER INTRODUCER (in 6429)
+009B  ; [.0000.0000.0000.0000] # [009B] CONTROL SEQUENCE INTRODUCER (in 6429)
+009C  ; [.0000.0000.0000.0000] # [009C] STRING TERMINATOR (in 6429)
+009D  ; [.0000.0000.0000.0000] # [009D] OPERATING SYSTEM COMMAND (in 6429)
+009E  ; [.0000.0000.0000.0000] # [009E] PRIVACY MESSAGE (in 6429)
+009F  ; [.0000.0000.0000.0000] # [009F] APPLICATION PROGRAM COMMAND (in 6429)
+200B  ; [.0000.0000.0000.0000] # [200B] ZERO WIDTH SPACE
+200C  ; [.0000.0000.0000.0000] # [200C] ZERO WIDTH NON-JOINER
+200D  ; [.0000.0000.0000.0000] # [200D] ZERO WIDTH JOINER
+200E  ; [.0000.0000.0000.0000] # [200E] LEFT-TO-RIGHT MARK
+200F  ; [.0000.0000.0000.0000] # [200F] RIGHT-TO-LEFT MARK
+202A  ; [.0000.0000.0000.0000] # [202A] LEFT-TO-RIGHT EMBEDDING
+202B  ; [.0000.0000.0000.0000] # [202B] RIGHT-TO-LEFT EMBEDDING
+202C  ; [.0000.0000.0000.0000] # [202C] POP DIRECTIONAL FORMATTING
+202D  ; [.0000.0000.0000.0000] # [202D] LEFT-TO-RIGHT OVERRIDE
+202E  ; [.0000.0000.0000.0000] # [202E] RIGHT-TO-LEFT OVERRIDE
+206A  ; [.0000.0000.0000.0000] # [206A] INHIBIT SYMMETRIC SWAPPING
+206B  ; [.0000.0000.0000.0000] # [206B] ACTIVATE SYMMETRIC SWAPPING
+206C  ; [.0000.0000.0000.0000] # [206C] INHIBIT ARABIC FORM SHAPING
+206D  ; [.0000.0000.0000.0000] # [206D] ACTIVATE ARABIC FORM SHAPING
+206E  ; [.0000.0000.0000.0000] # [206E] NATIONAL DIGIT SHAPES
+206F  ; [.0000.0000.0000.0000] # [206F] NOMINAL DIGIT SHAPES
+0009  ; [*0201.0020.0002.0009] # HORIZONTAL TABULATION (in 6429)
+000A  ; [*0202.0020.0002.000A] # LINE FEED (in 6429)
+000B  ; [*0203.0020.0002.000B] # VERTICAL TABULATION (in 6429)
+000C  ; [*0204.0020.0002.000C] # FORM FEED (in 6429)
+000D  ; [*0205.0020.0002.000D] # CARRIAGE RETURN (in 6429)
+0020  ; [*0209.0020.0002.0020] # SPACE
+0021  ; [*024B.0020.0002.0021] # EXCLAMATION MARK
+0022  ; [*0270.0020.0002.0022] # QUOTATION MARK
+0023  ; [*02A9.0020.0002.0023] # NUMBER SIGN
+0025  ; [*02AA.0020.0002.0025] # PERCENT SIGN
+0026  ; [*02A7.0020.0002.0026] # AMPERSAND
+0027  ; [*0269.0020.0002.0027] # APOSTROPHE
+0028  ; [*027A.0020.0002.0028] # LEFT PARENTHESIS
+0029  ; [*027B.0020.0002.0029] # RIGHT PARENTHESIS
+002A  ; [*02A2.0020.0002.002A] # ASTERISK
+002B  ; [*039F.0020.0002.002B] # PLUS SIGN
+002C  ; [*022D.0020.0002.002C] # COMMA
+002D  ; [*0221.0020.0002.002D] # HYPHEN-MINUS
+002E  ; [*0255.0020.0002.002E] # FULL STOP
+002F  ; [*02A4.0020.0002.002F] # SOLIDUS
+003A  ; [*0237.0020.0002.003A] # COLON
+003B  ; [*0235.0020.0002.003B] # SEMICOLON
+003C  ; [*03A3.0020.0002.003C] # LESS-THAN SIGN
+003D  ; [*03A4.0020.0002.003D] # EQUALS SIGN
+003E  ; [*03A5.0020.0002.003E] # GREATER-THAN SIGN
+003F  ; [*024E.0020.0002.003F] # QUESTION MARK
+0040  ; [*02A1.0020.0002.0040] # COMMERCIAL AT
+005B  ; [*027C.0020.0002.005B] # LEFT SQUARE BRACKET
+005C  ; [*02A6.0020.0002.005C] # REVERSE SOLIDUS
+005D  ; [*027D.0020.0002.005D] # RIGHT SQUARE BRACKET
+005E  ; [*020F.0020.0002.005E] # CIRCUMFLEX ACCENT
+005F  ; [*021B.0020.0002.005F] # LOW LINE
+0060  ; [*020C.0020.0002.0060] # GRAVE ACCENT
+007B  ; [*027E.0020.0002.007B] # LEFT CURLY BRACKET
+007C  ; [*03A7.0020.0002.007C] # VERTICAL LINE
+007D  ; [*027F.0020.0002.007D] # RIGHT CURLY BRACKET
+007E  ; [*03AA.0020.0002.007E] # TILDE
+0085  ; [*0206.0020.0002.0085] # NEXT LINE (in 6429)
+00A0  ; [*0209.0020.001B.00A0] # NO-BREAK SPACE; QQK
+00A1  ; [*024C.0020.0002.00A1] # INVERTED EXCLAMATION MARK
+00A6  ; [*03A8.0020.0002.00A6] # BROKEN BAR
+00A7  ; [*029C.0020.0002.00A7] # SECTION SIGN
+00A8  ; [*0214.0020.0002.00A8] # DIAERESIS
+00A9  ; [*029F.0020.0002.00A9] # COPYRIGHT SIGN
+00AB  ; [*0278.0020.0002.00AB] # LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
+00AC  ; [*03A6.0020.0002.00AC] # NOT SIGN
+00AD  ; [*0220.0020.0002.00AD] # SOFT HYPHEN
+00AE  ; [*02A0.0020.0002.00AE] # REGISTERED SIGN
+00AF  ; [*0210.0020.0002.00AF] # MACRON
+00B0  ; [*030A.0020.0002.00B0] # DEGREE SIGN
+00B1  ; [*03A0.0020.0002.00B1] # PLUS-MINUS SIGN
+00B4  ; [*020D.0020.0002.00B4] # ACUTE ACCENT
+00B6  ; [*029D.0020.0002.00B6] # PILCROW SIGN
+00B7  ; [*025F.0020.0002.00B7] # MIDDLE DOT
+00B8  ; [*0219.0020.0002.00B8] # CEDILLA
+00BB  ; [*0279.0020.0002.00BB] # RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
+00BF  ; [*024F.0020.0002.00BF] # INVERTED QUESTION MARK
+00D7  ; [*03A2.0020.0002.00D7] # MULTIPLICATION SIGN
+00F7  ; [*03A1.0020.0002.00F7] # DIVISION SIGN
+2000  ; [*0209.0020.0004.2000] # EN QUAD; QQK
+2001  ; [*0209.0020.0004.2001] # EM QUAD; QQK
+2002  ; [*0209.0020.0004.2002] # EN SPACE; QQK
+2003  ; [*0209.0020.0004.2003] # EM SPACE; QQK
+2004  ; [*0209.0020.0004.2004] # THREE-PER-EM SPACE; QQK
+2005  ; [*0209.0020.0004.2005] # FOUR-PER-EM SPACE; QQK
+2006  ; [*0209.0020.0004.2006] # SIX-PER-EM SPACE; QQK
+2007  ; [*0209.0020.001B.2007] # FIGURE SPACE; QQK
+2008  ; [*0209.0020.0004.2008] # PUNCTUATION SPACE; QQK
+2009  ; [*0209.0020.0004.2009] # THIN SPACE; QQK
+200A  ; [*0209.0020.0004.200A] # HAIR SPACE; QQK
+2010  ; [*0225.0020.0002.2010] # HYPHEN
+2011  ; [*0225.0020.001B.2011] # NON-BREAKING HYPHEN; QQK
+2012  ; [*0226.0020.0002.2012] # FIGURE DASH
+2013  ; [*0227.0020.0002.2013] # EN DASH
+2014  ; [*0228.0020.0002.2014] # EM DASH
+2015  ; [*0229.0020.0002.2015] # HORIZONTAL BAR
+2016  ; [*03A9.0020.0002.2016] # DOUBLE VERTICAL LINE
+2017  ; [*021C.0020.0002.2017] # DOUBLE LOW LINE
+2018  ; [*026A.0020.0002.2018] # LEFT SINGLE QUOTATION MARK
+2019  ; [*026B.0020.0002.2019] # RIGHT SINGLE QUOTATION MARK
+201A  ; [*026C.0020.0002.201A] # SINGLE LOW-9 QUOTATION MARK
+201B  ; [*026D.0020.0002.201B] # SINGLE HIGH-REVERSED-9 QUOTATION MARK
+201C  ; [*0271.0020.0002.201C] # LEFT DOUBLE QUOTATION MARK
+201D  ; [*0272.0020.0002.201D] # RIGHT DOUBLE QUOTATION MARK
+201E  ; [*0273.0020.0002.201E] # DOUBLE LOW-9 QUOTATION MARK
+201F  ; [*0274.0020.0002.201F] # DOUBLE HIGH-REVERSED-9 QUOTATION MARK
+2020  ; [*02AE.0020.0002.2020] # DAGGER
+2021  ; [*02AF.0020.0002.2021] # DOUBLE DAGGER
+2022  ; [*02B0.0020.0002.2022] # BULLET
+2023  ; [*02B1.0020.0002.2023] # TRIANGULAR BULLET
+2024  ; [*0255.0020.0004.2024] # ONE DOT LEADER; QQK
+2025  ; [*0255.0020.0004.2025][*0255.0020.0004.2025] # TWO DOT LEADER; QQKN
+2026  ; [*0255.0020.0004.2026][*0255.0020.0004.2026][*0255.0020.001F.2026] # HORIZONTAL ELLIPSIS; QQKN
+2027  ; [*02B2.0020.0002.2027] # HYPHENATION POINT
+2028  ; [*0207.0020.0002.2028] # LINE SEPARATOR
+2029  ; [*0208.0020.0002.2029] # PARAGRAPH SEPARATOR
+202F  ; [*0209.0020.001B.202F] # NARROW NO-BREAK SPACE; QQK
+2030  ; [*02AC.0020.0002.2030] # PER MILLE SIGN
+2031  ; [*02AD.0020.0002.2031] # PER TEN THOUSAND SIGN
+2032  ; [*02B6.0020.0002.2032] # PRIME
+2033  ; [*02B6.0020.0004.2033][*02B6.0020.0004.2033] # DOUBLE PRIME; QQKN
+2034  ; [*02B6.0020.0004.2034][*02B6.0020.0004.2034][*02B6.0020.001F.2034] # TRIPLE PRIME; QQKN
+2035  ; [*02B7.0020.0002.2035] # REVERSED PRIME
+2036  ; [*02B7.0020.0004.2036][*02B7.0020.0004.2036] # REVERSED DOUBLE PRIME; QQKN
+2037  ; [*02B7.0020.0004.2037][*02B7.0020.0004.2037][*02B7.0020.001F.2037] # REVERSED TRIPLE PRIME; QQKN
+2038  ; [*02B9.0020.0002.2038] # CARET
+2039  ; [*026E.0020.0002.2039] # SINGLE LEFT-POINTING ANGLE QUOTATION MARK
+203A  ; [*026F.0020.0002.203A] # SINGLE RIGHT-POINTING ANGLE QUOTATION MARK
+203B  ; [*02BA.0020.0002.203B] # REFERENCE MARK
+203C  ; [*024B.0020.0004.203C][*024B.0020.0004.203C] # DOUBLE EXCLAMATION MARK; QQKN
+203D  ; [*0254.0020.0002.203D] # INTERROBANG
+203E  ; [*0211.0020.0002.203E] # OVERLINE
+203F  ; [*02BB.0020.0002.203F] # UNDERTIE
+2040  ; [*02BC.0020.0002.2040] # CHARACTER TIE
+2041  ; [*02BD.0020.0002.2041] # CARET INSERTION POINT
+2042  ; [*02BE.0020.0002.2042] # ASTERISM
+2043  ; [*02B3.0020.0002.2043] # HYPHEN BULLET
+2044  ; [*02A5.0020.0002.2044] # FRACTION SLASH
+2045  ; [*0286.0020.0002.2045] # LEFT SQUARE BRACKET WITH QUILL
+2046  ; [*0287.0020.0002.2046] # RIGHT SQUARE BRACKET WITH QUILL
+2048  ; [*024E.0020.0004.2048][*024B.0020.0004.2048] # QUESTION EXCLAMATION MARK; QQKN
+2049  ; [*024B.0020.0004.2049][*024E.0020.0004.2049] # EXCLAMATION QUESTION MARK; QQKN
+204A  ; [*02A8.0020.0002.204A] # TIRONIAN SIGN ET
+204B  ; [*029E.0020.0002.204B] # REVERSED PILCROW SIGN
+204C  ; [*02B4.0020.0002.204C] # BLACK LEFTWARDS BULLET
+204D  ; [*02B5.0020.0002.204D] # BLACK RIGHTWARDS BULLET
+309B  ; [*021E.0020.0002.309B] # KATAKANA-HIRAGANA VOICED SOUND MARK
+309C  ; [*021F.0020.0002.309C] # KATAKANA-HIRAGANA SEMI-VOICED SOUND MARK
+30FB  ; [*022C.0020.0002.30FB] # KATAKANA MIDDLE DOT
+0332  ; [.0000.0021.0002.0332] # COMBINING LOW LINE
+0313  ; [.0000.0022.0002.0313] # COMBINING COMMA ABOVE
+0343  ; [.0000.0022.0002.0343] # COMBINING GREEK KORONIS; QQC
+0314  ; [.0000.002A.0002.0314] # COMBINING REVERSED COMMA ABOVE
+0301  ; [.0000.0032.0002.0301] # COMBINING ACUTE ACCENT
+0341  ; [.0000.0032.0002.0341] # COMBINING ACUTE TONE MARK; QQC
+0300  ; [.0000.0035.0002.0300] # COMBINING GRAVE ACCENT
+0340  ; [.0000.0035.0002.0340] # COMBINING GRAVE TONE MARK; QQC
+0306  ; [.0000.0037.0002.0306] # COMBINING BREVE
+0302  ; [.0000.003C.0002.0302] # COMBINING CIRCUMFLEX ACCENT
+030C  ; [.0000.0041.0002.030C] # COMBINING CARON
+030A  ; [.0000.0043.0002.030A] # COMBINING RING ABOVE
+0342  ; [.0000.0045.0002.0342] # COMBINING GREEK PERISPOMENI
+0308  ; [.0000.0047.0002.0308] # COMBINING DIAERESIS
+0344  ; [.0000.0047.0002.0308][.0000.0032.0002.0301] # COMBINING GREEK DIALYTIKA TONOS; QQCM
+030B  ; [.0000.004D.0002.030B] # COMBINING DOUBLE ACUTE ACCENT
+0303  ; [.0000.004E.0002.0303] # COMBINING TILDE
+0307  ; [.0000.0052.0002.0307] # COMBINING DOT ABOVE
+0338  ; [.0000.0054.0002.0338] # COMBINING LONG SOLIDUS OVERLAY
+0327  ; [.0000.0055.0002.0327] # COMBINING CEDILLA
+0328  ; [.0000.0058.0002.0328] # COMBINING OGONEK
+0304  ; [.0000.005A.0002.0304] # COMBINING MACRON
+0305  ; [.0000.005E.0002.0305] # COMBINING OVERLINE
+0309  ; [.0000.005F.0002.0309] # COMBINING HOOK ABOVE
+030D  ; [.0000.0060.0002.030D] # COMBINING VERTICAL LINE ABOVE
+030E  ; [.0000.0061.0002.030E] # COMBINING DOUBLE VERTICAL LINE ABOVE
+030F  ; [.0000.0062.0002.030F] # COMBINING DOUBLE GRAVE ACCENT
+0310  ; [.0000.0063.0002.0310] # COMBINING CANDRABINDU
+0311  ; [.0000.0064.0002.0311] # COMBINING INVERTED BREVE
+0312  ; [.0000.0065.0002.0312] # COMBINING TURNED COMMA ABOVE
+0315  ; [.0000.0066.0002.0315] # COMBINING COMMA ABOVE RIGHT
+0316  ; [.0000.0067.0002.0316] # COMBINING GRAVE ACCENT BELOW
+0317  ; [.0000.0068.0002.0317] # COMBINING ACUTE ACCENT BELOW
+0318  ; [.0000.0069.0002.0318] # COMBINING LEFT TACK BELOW
+0319  ; [.0000.006A.0002.0319] # COMBINING RIGHT TACK BELOW
+031A  ; [.0000.006B.0002.031A] # COMBINING LEFT ANGLE ABOVE
+031B  ; [.0000.006C.0002.031B] # COMBINING HORN
+031C  ; [.0000.0072.0002.031C] # COMBINING LEFT HALF RING BELOW
+031D  ; [.0000.0073.0002.031D] # COMBINING UP TACK BELOW
+031E  ; [.0000.0074.0002.031E] # COMBINING DOWN TACK BELOW
+031F  ; [.0000.0075.0002.031F] # COMBINING PLUS SIGN BELOW
+0320  ; [.0000.0076.0002.0320] # COMBINING MINUS SIGN BELOW
+0321  ; [.0000.0077.0002.0321] # COMBINING PALATALIZED HOOK BELOW
+0322  ; [.0000.0078.0002.0322] # COMBINING RETROFLEX HOOK BELOW
+0323  ; [.0000.0079.0002.0323] # COMBINING DOT BELOW
+0324  ; [.0000.007E.0002.0324] # COMBINING DIAERESIS BELOW
+0325  ; [.0000.007F.0002.0325] # COMBINING RING BELOW
+0326  ; [.0000.0080.0002.0326] # COMBINING COMMA BELOW
+0329  ; [.0000.0081.0002.0329] # COMBINING VERTICAL LINE BELOW
+032A  ; [.0000.0082.0002.032A] # COMBINING BRIDGE BELOW
+032B  ; [.0000.0083.0002.032B] # COMBINING INVERTED DOUBLE ARCH BELOW
+032C  ; [.0000.0084.0002.032C] # COMBINING CARON BELOW
+032D  ; [.0000.0085.0002.032D] # COMBINING CIRCUMFLEX ACCENT BELOW
+032E  ; [.0000.0086.0002.032E] # COMBINING BREVE BELOW
+032F  ; [.0000.0087.0002.032F] # COMBINING INVERTED BREVE BELOW
+0330  ; [.0000.0088.0002.0330] # COMBINING TILDE BELOW
+0331  ; [.0000.0089.0002.0331] # COMBINING MACRON BELOW
+0333  ; [.0000.008A.0002.0333] # COMBINING DOUBLE LOW LINE
+0334  ; [.0000.008B.0002.0334] # COMBINING TILDE OVERLAY
+0335  ; [.0000.008C.0002.0335] # COMBINING SHORT STROKE OVERLAY
+0336  ; [.0000.008D.0002.0336] # COMBINING LONG STROKE OVERLAY
+0337  ; [.0000.008E.0002.0337] # COMBINING SHORT SOLIDUS OVERLAY
+0339  ; [.0000.008F.0002.0339] # COMBINING RIGHT HALF RING BELOW
+033A  ; [.0000.0090.0002.033A] # COMBINING INVERTED BRIDGE BELOW
+033B  ; [.0000.0091.0002.033B] # COMBINING SQUARE BELOW
+033C  ; [.0000.0092.0002.033C] # COMBINING SEAGULL BELOW
+033D  ; [.0000.0093.0002.033D] # COMBINING X ABOVE
+033E  ; [.0000.0094.0002.033E] # COMBINING VERTICAL TILDE
+033F  ; [.0000.0095.0002.033F] # COMBINING DOUBLE OVERLINE
+0345  ; [.0000.0096.0002.0345] # COMBINING GREEK YPOGEGRAMMENI
+0346  ; [.0000.0097.0002.0346] # COMBINING BRIDGE ABOVE
+0347  ; [.0000.0098.0002.0347] # COMBINING EQUALS SIGN BELOW
+0348  ; [.0000.0099.0002.0348] # COMBINING DOUBLE VERTICAL LINE BELOW
+0349  ; [.0000.009A.0002.0349] # COMBINING LEFT ANGLE BELOW
+034A  ; [.0000.009B.0002.034A] # COMBINING NOT TILDE ABOVE
+034B  ; [.0000.009C.0002.034B] # COMBINING HOMOTHETIC ABOVE
+034C  ; [.0000.009D.0002.034C] # COMBINING ALMOST EQUAL TO ABOVE
+034D  ; [.0000.009E.0002.034D] # COMBINING LEFT RIGHT ARROW BELOW
+034E  ; [.0000.009F.0002.034E] # COMBINING UPWARDS ARROW BELOW
+0360  ; [.0000.00A0.0002.0360] # COMBINING DOUBLE TILDE
+0361  ; [.0000.00A1.0002.0361] # COMBINING DOUBLE INVERTED BREVE
+0362  ; [.0000.00A2.0002.0362] # COMBINING DOUBLE RIGHTWARDS ARROW BELOW
+3099  ; [.0000.013D.0002.3099] # COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK
+309A  ; [.0000.013E.0002.309A] # COMBINING KATAKANA-HIRAGANA SEMI-VOICED SOUND MARK
+309D  ; [.09DB.0020.0002.309D] # HIRAGANA ITERATION MARK
+309E  ; [.09DB.0020.0002.309D][.0000.013D.0002.3099] # HIRAGANA VOICED ITERATION MARK; QQCM
+30FC  ; [.09DC.0020.0002.30FC] # KATAKANA-HIRAGANA PROLONGED SOUND MARK
+30FD  ; [.09DD.0020.0002.30FD] # KATAKANA ITERATION MARK
+30FE  ; [.09DD.0020.0002.30FD][.0000.013D.0002.3099] # KATAKANA VOICED ITERATION MARK; QQCM
+00A4  ; [.09DE.0020.0002.00A4] # CURRENCY SIGN
+00A2  ; [.09DF.0020.0002.00A2] # CENT SIGN
+0024  ; [.09E0.0020.0002.0024] # DOLLAR SIGN
+00A3  ; [.09E1.0020.0002.00A3] # POUND SIGN
+00A5  ; [.09E2.0020.0002.00A5] # YEN SIGN
+0030  ; [.0A0B.0020.0002.0030] # DIGIT ZERO
+0031  ; [.0A0C.0020.0002.0031] # DIGIT ONE
+00B9  ; [.0A0C.0020.0014.00B9] # SUPERSCRIPT ONE; QQK
+00BD  ; [.0A0C.0020.001E.00BD][*02A5.0020.001E.00BD][.0A0D.0020.001F.00BD] # VULGAR FRACTION ONE HALF; QQKN
+00BC  ; [.0A0C.0020.001E.00BC][*02A5.0020.001E.00BC][.0A0F.0020.001F.00BC] # VULGAR FRACTION ONE QUARTER; QQKN
+0032  ; [.0A0D.0020.0002.0032] # DIGIT TWO
+00B2  ; [.0A0D.0020.0014.00B2] # SUPERSCRIPT TWO; QQK
+0033  ; [.0A0E.0020.0002.0033] # DIGIT THREE
+00B3  ; [.0A0E.0020.0014.00B3] # SUPERSCRIPT THREE; QQK
+00BE  ; [.0A0E.0020.001E.00BE][*02A5.0020.001E.00BE][.0A0F.0020.001F.00BE] # VULGAR FRACTION THREE QUARTERS; QQKN
+0034  ; [.0A0F.0020.0002.0034] # DIGIT FOUR
+0035  ; [.0A10.0020.0002.0035] # DIGIT FIVE
+0036  ; [.0A11.0020.0002.0036] # DIGIT SIX
+0037  ; [.0A12.0020.0002.0037] # DIGIT SEVEN
+0038  ; [.0A13.0020.0002.0038] # DIGIT EIGHT
+0039  ; [.0A14.0020.0002.0039] # DIGIT NINE
+0061  ; [.0A15.0020.0002.0061] # LATIN SMALL LETTER A
+0041  ; [.0A15.0020.0008.0041] # LATIN CAPITAL LETTER A
+00AA  ; [.0A15.0020.0014.00AA] # FEMININE ORDINAL INDICATOR; QQK
+00E1  ; [.0A15.0020.0002.0061][.0000.0032.0002.0301] # LATIN SMALL LETTER A WITH ACUTE; QQCM
+00C1  ; [.0A15.0020.0008.0041][.0000.0032.0002.0301] # LATIN CAPITAL LETTER A WITH ACUTE; QQCM
+00E0  ; [.0A15.0020.0002.0061][.0000.0035.0002.0300] # LATIN SMALL LETTER A WITH GRAVE; QQCM
+00C0  ; [.0A15.0020.0008.0041][.0000.0035.0002.0300] # LATIN CAPITAL LETTER A WITH GRAVE; QQCM
+00E2  ; [.0A15.0020.0002.0061][.0000.003C.0002.0302] # LATIN SMALL LETTER A WITH CIRCUMFLEX; QQCM
+00C2  ; [.0A15.0020.0008.0041][.0000.003C.0002.0302] # LATIN CAPITAL LETTER A WITH CIRCUMFLEX; QQCM
+00E5  ; [.0A15.0020.0002.0061][.0000.0043.0002.030A] # LATIN SMALL LETTER A WITH RING ABOVE; QQCM
+00C5  ; [.0A15.0020.0008.0041][.0000.0043.0002.030A] # LATIN CAPITAL LETTER A WITH RING ABOVE; QQCM
+00E4  ; [.0A15.0020.0002.0061][.0000.0047.0002.0308] # LATIN SMALL LETTER A WITH DIAERESIS; QQCM
+00C4  ; [.0A15.0020.0008.0041][.0000.0047.0002.0308] # LATIN CAPITAL LETTER A WITH DIAERESIS; QQCM
+00E3  ; [.0A15.0020.0002.0061][.0000.004E.0002.0303] # LATIN SMALL LETTER A WITH TILDE; QQCM
+00C3  ; [.0A15.0020.0008.0041][.0000.004E.0002.0303] # LATIN CAPITAL LETTER A WITH TILDE; QQCM
+00E6  ; [.0A19.0020.0002.00E6] # LATIN SMALL LETTER AE
+00C6  ; [.0A19.0020.0008.00C6] # LATIN CAPITAL LETTER AE
+0062  ; [.0A29.0020.0002.0062] # LATIN SMALL LETTER B
+0042  ; [.0A29.0020.0008.0042] # LATIN CAPITAL LETTER B
+0063  ; [.0A3D.0020.0002.0063] # LATIN SMALL LETTER C
+0043  ; [.0A3D.0020.0008.0043] # LATIN CAPITAL LETTER C
+00E7  ; [.0A3D.0020.0002.0063][.0000.0055.0002.0327] # LATIN SMALL LETTER C WITH CEDILLA; QQCM
+00C7  ; [.0A3D.0020.0008.0043][.0000.0055.0002.0327] # LATIN CAPITAL LETTER C WITH CEDILLA; QQCM
+0064  ; [.0A49.0020.0002.0064] # LATIN SMALL LETTER D
+0044  ; [.0A49.0020.0008.0044] # LATIN CAPITAL LETTER D
+00F0  ; [.0A5D.0020.0002.00F0] # LATIN SMALL LETTER ETH
+00D0  ; [.0A5D.0020.0008.00D0] # LATIN CAPITAL LETTER ETH
+0065  ; [.0A65.0020.0002.0065] # LATIN SMALL LETTER E
+0045  ; [.0A65.0020.0008.0045] # LATIN CAPITAL LETTER E
+00E9  ; [.0A65.0020.0002.0065][.0000.0032.0002.0301] # LATIN SMALL LETTER E WITH ACUTE; QQCM
+00C9  ; [.0A65.0020.0008.0045][.0000.0032.0002.0301] # LATIN CAPITAL LETTER E WITH ACUTE; QQCM
+00E8  ; [.0A65.0020.0002.0065][.0000.0035.0002.0300] # LATIN SMALL LETTER E WITH GRAVE; QQCM
+00C8  ; [.0A65.0020.0008.0045][.0000.0035.0002.0300] # LATIN CAPITAL LETTER E WITH GRAVE; QQCM
+00EA  ; [.0A65.0020.0002.0065][.0000.003C.0002.0302] # LATIN SMALL LETTER E WITH CIRCUMFLEX; QQCM
+00CA  ; [.0A65.0020.0008.0045][.0000.003C.0002.0302] # LATIN CAPITAL LETTER E WITH CIRCUMFLEX; QQCM
+00EB  ; [.0A65.0020.0002.0065][.0000.0047.0002.0308] # LATIN SMALL LETTER E WITH DIAERESIS; QQCM
+00CB  ; [.0A65.0020.0008.0045][.0000.0047.0002.0308] # LATIN CAPITAL LETTER E WITH DIAERESIS; QQCM
+0066  ; [.0A91.0020.0002.0066] # LATIN SMALL LETTER F
+0046  ; [.0A91.0020.0008.0046] # LATIN CAPITAL LETTER F
+0067  ; [.0A99.0020.0002.0067] # LATIN SMALL LETTER G
+0047  ; [.0A99.0020.0008.0047] # LATIN CAPITAL LETTER G
+0068  ; [.0AB9.0020.0002.0068] # LATIN SMALL LETTER H
+0048  ; [.0AB9.0020.0008.0048] # LATIN CAPITAL LETTER H
+0069  ; [.0AD3.0020.0002.0069] # LATIN SMALL LETTER I
+0049  ; [.0AD3.0020.0008.0049] # LATIN CAPITAL LETTER I
+00ED  ; [.0AD3.0020.0002.0069][.0000.0032.0002.0301] # LATIN SMALL LETTER I WITH ACUTE; QQCM
+00CD  ; [.0AD3.0020.0008.0049][.0000.0032.0002.0301] # LATIN CAPITAL LETTER I WITH ACUTE; QQCM
+00EC  ; [.0AD3.0020.0002.0069][.0000.0035.0002.0300] # LATIN SMALL LETTER I WITH GRAVE; QQCM
+00CC  ; [.0AD3.0020.0008.0049][.0000.0035.0002.0300] # LATIN CAPITAL LETTER I WITH GRAVE; QQCM
+00EE  ; [.0AD3.0020.0002.0069][.0000.003C.0002.0302] # LATIN SMALL LETTER I WITH CIRCUMFLEX; QQCM
+00CE  ; [.0AD3.0020.0008.0049][.0000.003C.0002.0302] # LATIN CAPITAL LETTER I WITH CIRCUMFLEX; QQCM
+00EF  ; [.0AD3.0020.0002.0069][.0000.0047.0002.0308] # LATIN SMALL LETTER I WITH DIAERESIS; QQCM
+00CF  ; [.0AD3.0020.0008.0049][.0000.0047.0002.0308] # LATIN CAPITAL LETTER I WITH DIAERESIS; QQCM
+006A  ; [.0AE7.0020.0002.006A] # LATIN SMALL LETTER J
+004A  ; [.0AE7.0020.0008.004A] # LATIN CAPITAL LETTER J
+006B  ; [.0AF7.0020.0002.006B] # LATIN SMALL LETTER K
+004B  ; [.0AF7.0020.0008.004B] # LATIN CAPITAL LETTER K
+006C  ; [.0B03.0020.0002.006C] # LATIN SMALL LETTER L
+004C  ; [.0B03.0020.0008.004C] # LATIN CAPITAL LETTER L
+006D  ; [.0B2B.0020.0002.006D] # LATIN SMALL LETTER M
+004D  ; [.0B2B.0020.0008.004D] # LATIN CAPITAL LETTER M
+006E  ; [.0B33.0020.0002.006E] # LATIN SMALL LETTER N
+004E  ; [.0B33.0020.0008.004E] # LATIN CAPITAL LETTER N
+00F1  ; [.0B33.0020.0002.006E][.0000.004E.0002.0303] # LATIN SMALL LETTER N WITH TILDE; QQCM
+00D1  ; [.0B33.0020.0008.004E][.0000.004E.0002.0303] # LATIN CAPITAL LETTER N WITH TILDE; QQCM
+006F  ; [.0B4B.0020.0002.006F] # LATIN SMALL LETTER O
+004F  ; [.0B4B.0020.0008.004F] # LATIN CAPITAL LETTER O
+00BA  ; [.0B4B.0020.0014.00BA] # MASCULINE ORDINAL INDICATOR; QQK
+00F3  ; [.0B4B.0020.0002.006F][.0000.0032.0002.0301] # LATIN SMALL LETTER O WITH ACUTE; QQCM
+00D3  ; [.0B4B.0020.0008.004F][.0000.0032.0002.0301] # LATIN CAPITAL LETTER O WITH ACUTE; QQCM
+00F2  ; [.0B4B.0020.0002.006F][.0000.0035.0002.0300] # LATIN SMALL LETTER O WITH GRAVE; QQCM
+00D2  ; [.0B4B.0020.0008.004F][.0000.0035.0002.0300] # LATIN CAPITAL LETTER O WITH GRAVE; QQCM
+00F4  ; [.0B4B.0020.0002.006F][.0000.003C.0002.0302] # LATIN SMALL LETTER O WITH CIRCUMFLEX; QQCM
+00D4  ; [.0B4B.0020.0008.004F][.0000.003C.0002.0302] # LATIN CAPITAL LETTER O WITH CIRCUMFLEX; QQCM
+00F6  ; [.0B4B.0020.0002.006F][.0000.0047.0002.0308] # LATIN SMALL LETTER O WITH DIAERESIS; QQCM
+00D6  ; [.0B4B.0020.0008.004F][.0000.0047.0002.0308] # LATIN CAPITAL LETTER O WITH DIAERESIS; QQCM
+00F5  ; [.0B4B.0020.0002.006F][.0000.004E.0002.0303] # LATIN SMALL LETTER O WITH TILDE; QQCM
+00D5  ; [.0B4B.0020.0008.004F][.0000.004E.0002.0303] # LATIN CAPITAL LETTER O WITH TILDE; QQCM
+00F8  ; [.0B53.0020.0002.00F8] # LATIN SMALL LETTER O WITH STROKE
+00D8  ; [.0B53.0020.0008.00D8] # LATIN CAPITAL LETTER O WITH STROKE
+0070  ; [.0B67.0020.0002.0070] # LATIN SMALL LETTER P
+0050  ; [.0B67.0020.0008.0050] # LATIN CAPITAL LETTER P
+0071  ; [.0B73.0020.0002.0071] # LATIN SMALL LETTER Q
+0051  ; [.0B73.0020.0008.0051] # LATIN CAPITAL LETTER Q
+0072  ; [.0B7F.0020.0002.0072] # LATIN SMALL LETTER R
+0052  ; [.0B7F.0020.0008.0052] # LATIN CAPITAL LETTER R
+0073  ; [.0BA7.0020.0002.0073] # LATIN SMALL LETTER S
+0053  ; [.0BA7.0020.0008.0053] # LATIN CAPITAL LETTER S
+00DF  ; [.0BA7.0020.0004.00DF][.0000.0153.0004.00DF][.0BA7.0020.001F.00DF] # LATIN SMALL LETTER SHARP S; QQKN
+0074  ; [.0BBF.0020.0002.0074] # LATIN SMALL LETTER T
+0054  ; [.0BBF.0020.0008.0054] # LATIN CAPITAL LETTER T
+0075  ; [.0BD7.0020.0002.0075] # LATIN SMALL LETTER U
+0055  ; [.0BD7.0020.0008.0055] # LATIN CAPITAL LETTER U
+00FA  ; [.0BD7.0020.0002.0075][.0000.0032.0002.0301] # LATIN SMALL LETTER U WITH ACUTE; QQCM
+00DA  ; [.0BD7.0020.0008.0055][.0000.0032.0002.0301] # LATIN CAPITAL LETTER U WITH ACUTE; QQCM
+00F9  ; [.0BD7.0020.0002.0075][.0000.0035.0002.0300] # LATIN SMALL LETTER U WITH GRAVE; QQCM
+00D9  ; [.0BD7.0020.0008.0055][.0000.0035.0002.0300] # LATIN CAPITAL LETTER U WITH GRAVE; QQCM
+00FB  ; [.0BD7.0020.0002.0075][.0000.003C.0002.0302] # LATIN SMALL LETTER U WITH CIRCUMFLEX; QQCM
+00DB  ; [.0BD7.0020.0008.0055][.0000.003C.0002.0302] # LATIN CAPITAL LETTER U WITH CIRCUMFLEX; QQCM
+00FC  ; [.0BD7.0020.0002.0075][.0000.0047.0002.0308] # LATIN SMALL LETTER U WITH DIAERESIS; QQCM
+00DC  ; [.0BD7.0020.0008.0055][.0000.0047.0002.0308] # LATIN CAPITAL LETTER U WITH DIAERESIS; QQCM
+0076  ; [.0BEF.0020.0002.0076] # LATIN SMALL LETTER V
+0056  ; [.0BEF.0020.0008.0056] # LATIN CAPITAL LETTER V
+0077  ; [.0BFB.0020.0002.0077] # LATIN SMALL LETTER W
+0057  ; [.0BFB.0020.0008.0057] # LATIN CAPITAL LETTER W
+0078  ; [.0C03.0020.0002.0078] # LATIN SMALL LETTER X
+0058  ; [.0C03.0020.0008.0058] # LATIN CAPITAL LETTER X
+0079  ; [.0C07.0020.0002.0079] # LATIN SMALL LETTER Y
+0059  ; [.0C07.0020.0008.0059] # LATIN CAPITAL LETTER Y
+00FD  ; [.0C07.0020.0002.0079][.0000.0032.0002.0301] # LATIN SMALL LETTER Y WITH ACUTE; QQCM
+00DD  ; [.0C07.0020.0008.0059][.0000.0032.0002.0301] # LATIN CAPITAL LETTER Y WITH ACUTE; QQCM
+00FF  ; [.0C07.0020.0002.0079][.0000.0047.0002.0308] # LATIN SMALL LETTER Y WITH DIAERESIS; QQCM
+007A  ; [.0C13.0020.0002.007A] # LATIN SMALL LETTER Z
+005A  ; [.0C13.0020.0008.005A] # LATIN CAPITAL LETTER Z
+00FE  ; [.0C3B.0020.0002.00FE] # LATIN SMALL LETTER THORN
+00DE  ; [.0C3B.0020.0008.00DE] # LATIN CAPITAL LETTER THORN
+00B5  ; [.0C9F.0020.0004.00B5] # MICRO SIGN; QQK
+1100  ; [.1831.0020.0002.1100] # HANGUL CHOSEONG KIYEOK
+1101  ; [.1832.0020.0002.1101] # HANGUL CHOSEONG SSANGKIYEOK
+1102  ; [.1833.0020.0002.1102] # HANGUL CHOSEONG NIEUN
+1103  ; [.1834.0020.0002.1103] # HANGUL CHOSEONG TIKEUT
+1104  ; [.1835.0020.0002.1104] # HANGUL CHOSEONG SSANGTIKEUT
+1105  ; [.1836.0020.0002.1105] # HANGUL CHOSEONG RIEUL
+1106  ; [.1837.0020.0002.1106] # HANGUL CHOSEONG MIEUM
+1107  ; [.1838.0020.0002.1107] # HANGUL CHOSEONG PIEUP
+1108  ; [.1839.0020.0002.1108] # HANGUL CHOSEONG SSANGPIEUP
+1109  ; [.183A.0020.0002.1109] # HANGUL CHOSEONG SIOS
+110A  ; [.183B.0020.0002.110A] # HANGUL CHOSEONG SSANGSIOS
+110B  ; [.183C.0020.0002.110B] # HANGUL CHOSEONG IEUNG
+110C  ; [.183D.0020.0002.110C] # HANGUL CHOSEONG CIEUC
+110D  ; [.183E.0020.0002.110D] # HANGUL CHOSEONG SSANGCIEUC
+110E  ; [.183F.0020.0002.110E] # HANGUL CHOSEONG CHIEUCH
+110F  ; [.1840.0020.0002.110F] # HANGUL CHOSEONG KHIEUKH
+1110  ; [.1841.0020.0002.1110] # HANGUL CHOSEONG THIEUTH
+1111  ; [.1842.0020.0002.1111] # HANGUL CHOSEONG PHIEUPH
+1112  ; [.1843.0020.0002.1112] # HANGUL CHOSEONG HIEUH
+1113  ; [.1844.0020.0002.1113] # HANGUL CHOSEONG NIEUN-KIYEOK
+1114  ; [.1845.0020.0002.1114] # HANGUL CHOSEONG SSANGNIEUN
+1115  ; [.1846.0020.0002.1115] # HANGUL CHOSEONG NIEUN-TIKEUT
+1116  ; [.1847.0020.0002.1116] # HANGUL CHOSEONG NIEUN-PIEUP
+1117  ; [.1848.0020.0002.1117] # HANGUL CHOSEONG TIKEUT-KIYEOK
+1118  ; [.1849.0020.0002.1118] # HANGUL CHOSEONG RIEUL-NIEUN
+1119  ; [.184A.0020.0002.1119] # HANGUL CHOSEONG SSANGRIEUL
+111A  ; [.184B.0020.0002.111A] # HANGUL CHOSEONG RIEUL-HIEUH
+111B  ; [.184C.0020.0002.111B] # HANGUL CHOSEONG KAPYEOUNRIEUL
+111C  ; [.184D.0020.0002.111C] # HANGUL CHOSEONG MIEUM-PIEUP
+111D  ; [.184E.0020.0002.111D] # HANGUL CHOSEONG KAPYEOUNMIEUM
+111E  ; [.184F.0020.0002.111E] # HANGUL CHOSEONG PIEUP-KIYEOK
+111F  ; [.1850.0020.0002.111F] # HANGUL CHOSEONG PIEUP-NIEUN
+1120  ; [.1851.0020.0002.1120] # HANGUL CHOSEONG PIEUP-TIKEUT
+1121  ; [.1852.0020.0002.1121] # HANGUL CHOSEONG PIEUP-SIOS
+1122  ; [.1853.0020.0002.1122] # HANGUL CHOSEONG PIEUP-SIOS-KIYEOK
+1123  ; [.1854.0020.0002.1123] # HANGUL CHOSEONG PIEUP-SIOS-TIKEUT
+1124  ; [.1855.0020.0002.1124] # HANGUL CHOSEONG PIEUP-SIOS-PIEUP
+1125  ; [.1856.0020.0002.1125] # HANGUL CHOSEONG PIEUP-SSANGSIOS
+1126  ; [.1857.0020.0002.1126] # HANGUL CHOSEONG PIEUP-SIOS-CIEUC
+1127  ; [.1858.0020.0002.1127] # HANGUL CHOSEONG PIEUP-CIEUC
+1128  ; [.1859.0020.0002.1128] # HANGUL CHOSEONG PIEUP-CHIEUCH
+1129  ; [.185A.0020.0002.1129] # HANGUL CHOSEONG PIEUP-THIEUTH
+112A  ; [.185B.0020.0002.112A] # HANGUL CHOSEONG PIEUP-PHIEUPH
+112B  ; [.185C.0020.0002.112B] # HANGUL CHOSEONG KAPYEOUNPIEUP
+112C  ; [.185D.0020.0002.112C] # HANGUL CHOSEONG KAPYEOUNSSANGPIEUP
+112D  ; [.185E.0020.0002.112D] # HANGUL CHOSEONG SIOS-KIYEOK
+112E  ; [.185F.0020.0002.112E] # HANGUL CHOSEONG SIOS-NIEUN
+112F  ; [.1860.0020.0002.112F] # HANGUL CHOSEONG SIOS-TIKEUT
+1130  ; [.1861.0020.0002.1130] # HANGUL CHOSEONG SIOS-RIEUL
+1131  ; [.1862.0020.0002.1131] # HANGUL CHOSEONG SIOS-MIEUM
+1132  ; [.1863.0020.0002.1132] # HANGUL CHOSEONG SIOS-PIEUP
+1133  ; [.1864.0020.0002.1133] # HANGUL CHOSEONG SIOS-PIEUP-KIYEOK
+1134  ; [.1865.0020.0002.1134] # HANGUL CHOSEONG SIOS-SSANGSIOS
+1135  ; [.1866.0020.0002.1135] # HANGUL CHOSEONG SIOS-IEUNG
+1136  ; [.1867.0020.0002.1136] # HANGUL CHOSEONG SIOS-CIEUC
+1137  ; [.1868.0020.0002.1137] # HANGUL CHOSEONG SIOS-CHIEUCH
+1138  ; [.1869.0020.0002.1138] # HANGUL CHOSEONG SIOS-KHIEUKH
+1139  ; [.186A.0020.0002.1139] # HANGUL CHOSEONG SIOS-THIEUTH
+113A  ; [.186B.0020.0002.113A] # HANGUL CHOSEONG SIOS-PHIEUPH
+113B  ; [.186C.0020.0002.113B] # HANGUL CHOSEONG SIOS-HIEUH
+113C  ; [.186D.0020.0002.113C] # HANGUL CHOSEONG CHITUEUMSIOS
+113D  ; [.186E.0020.0002.113D] # HANGUL CHOSEONG CHITUEUMSSANGSIOS
+113E  ; [.186F.0020.0002.113E] # HANGUL CHOSEONG CEONGCHIEUMSIOS
+113F  ; [.1870.0020.0002.113F] # HANGUL CHOSEONG CEONGCHIEUMSSANGSIOS
+1140  ; [.1871.0020.0002.1140] # HANGUL CHOSEONG PANSIOS
+1141  ; [.1872.0020.0002.1141] # HANGUL CHOSEONG IEUNG-KIYEOK
+1142  ; [.1873.0020.0002.1142] # HANGUL CHOSEONG IEUNG-TIKEUT
+1143  ; [.1874.0020.0002.1143] # HANGUL CHOSEONG IEUNG-MIEUM
+1144  ; [.1875.0020.0002.1144] # HANGUL CHOSEONG IEUNG-PIEUP
+1145  ; [.1876.0020.0002.1145] # HANGUL CHOSEONG IEUNG-SIOS
+1146  ; [.1877.0020.0002.1146] # HANGUL CHOSEONG IEUNG-PANSIOS
+1147  ; [.1878.0020.0002.1147] # HANGUL CHOSEONG SSANGIEUNG
+1148  ; [.1879.0020.0002.1148] # HANGUL CHOSEONG IEUNG-CIEUC
+1149  ; [.187A.0020.0002.1149] # HANGUL CHOSEONG IEUNG-CHIEUCH
+114A  ; [.187B.0020.0002.114A] # HANGUL CHOSEONG IEUNG-THIEUTH
+114B  ; [.187C.0020.0002.114B] # HANGUL CHOSEONG IEUNG-PHIEUPH
+114C  ; [.187D.0020.0002.114C] # HANGUL CHOSEONG YESIEUNG
+114D  ; [.187E.0020.0002.114D] # HANGUL CHOSEONG CIEUC-IEUNG
+114E  ; [.187F.0020.0002.114E] # HANGUL CHOSEONG CHITUEUMCIEUC
+114F  ; [.1880.0020.0002.114F] # HANGUL CHOSEONG CHITUEUMSSANGCIEUC
+1150  ; [.1881.0020.0002.1150] # HANGUL CHOSEONG CEONGCHIEUMCIEUC
+1151  ; [.1882.0020.0002.1151] # HANGUL CHOSEONG CEONGCHIEUMSSANGCIEUC
+1152  ; [.1883.0020.0002.1152] # HANGUL CHOSEONG CHIEUCH-KHIEUKH
+1153  ; [.1884.0020.0002.1153] # HANGUL CHOSEONG CHIEUCH-HIEUH
+1154  ; [.1885.0020.0002.1154] # HANGUL CHOSEONG CHITUEUMCHIEUCH
+1155  ; [.1886.0020.0002.1155] # HANGUL CHOSEONG CEONGCHIEUMCHIEUCH
+1156  ; [.1887.0020.0002.1156] # HANGUL CHOSEONG PHIEUPH-PIEUP
+1157  ; [.1888.0020.0002.1157] # HANGUL CHOSEONG KAPYEOUNPHIEUPH
+1158  ; [.1889.0020.0002.1158] # HANGUL CHOSEONG SSANGHIEUH
+1159  ; [.188A.0020.0002.1159] # HANGUL CHOSEONG YEORINHIEUH
+115F  ; [.188B.0020.0002.115F] # HANGUL CHOSEONG FILLER
+1160  ; [.188C.0020.0002.1160] # HANGUL JUNGSEONG FILLER
+1161  ; [.188D.0020.0002.1161] # HANGUL JUNGSEONG A
+1162  ; [.188E.0020.0002.1162] # HANGUL JUNGSEONG AE
+1163  ; [.188F.0020.0002.1163] # HANGUL JUNGSEONG YA
+1164  ; [.1890.0020.0002.1164] # HANGUL JUNGSEONG YAE
+1165  ; [.1891.0020.0002.1165] # HANGUL JUNGSEONG EO
+1166  ; [.1892.0020.0002.1166] # HANGUL JUNGSEONG E
+1167  ; [.1893.0020.0002.1167] # HANGUL JUNGSEONG YEO
+1168  ; [.1894.0020.0002.1168] # HANGUL JUNGSEONG YE
+1169  ; [.1895.0020.0002.1169] # HANGUL JUNGSEONG O
+116A  ; [.1896.0020.0002.116A] # HANGUL JUNGSEONG WA
+116B  ; [.1897.0020.0002.116B] # HANGUL JUNGSEONG WAE
+116C  ; [.1898.0020.0002.116C] # HANGUL JUNGSEONG OE
+116D  ; [.1899.0020.0002.116D] # HANGUL JUNGSEONG YO
+116E  ; [.189A.0020.0002.116E] # HANGUL JUNGSEONG U
+116F  ; [.189B.0020.0002.116F] # HANGUL JUNGSEONG WEO
+1170  ; [.189C.0020.0002.1170] # HANGUL JUNGSEONG WE
+1171  ; [.189D.0020.0002.1171] # HANGUL JUNGSEONG WI
+1172  ; [.189E.0020.0002.1172] # HANGUL JUNGSEONG YU
+1173  ; [.189F.0020.0002.1173] # HANGUL JUNGSEONG EU
+1174  ; [.18A0.0020.0002.1174] # HANGUL JUNGSEONG YI
+1175  ; [.18A1.0020.0002.1175] # HANGUL JUNGSEONG I
+1176  ; [.18A2.0020.0002.1176] # HANGUL JUNGSEONG A-O
+1177  ; [.18A3.0020.0002.1177] # HANGUL JUNGSEONG A-U
+1178  ; [.18A4.0020.0002.1178] # HANGUL JUNGSEONG YA-O
+1179  ; [.18A5.0020.0002.1179] # HANGUL JUNGSEONG YA-YO
+117A  ; [.18A6.0020.0002.117A] # HANGUL JUNGSEONG EO-O
+117B  ; [.18A7.0020.0002.117B] # HANGUL JUNGSEONG EO-U
+117C  ; [.18A8.0020.0002.117C] # HANGUL JUNGSEONG EO-EU
+117D  ; [.18A9.0020.0002.117D] # HANGUL JUNGSEONG YEO-O
+117E  ; [.18AA.0020.0002.117E] # HANGUL JUNGSEONG YEO-U
+117F  ; [.18AB.0020.0002.117F] # HANGUL JUNGSEONG O-EO
+1180  ; [.18AC.0020.0002.1180] # HANGUL JUNGSEONG O-E
+1181  ; [.18AD.0020.0002.1181] # HANGUL JUNGSEONG O-YE
+1182  ; [.18AE.0020.0002.1182] # HANGUL JUNGSEONG O-O
+1183  ; [.18AF.0020.0002.1183] # HANGUL JUNGSEONG O-U
+1184  ; [.18B0.0020.0002.1184] # HANGUL JUNGSEONG YO-YA
+1185  ; [.18B1.0020.0002.1185] # HANGUL JUNGSEONG YO-YAE
+1186  ; [.18B2.0020.0002.1186] # HANGUL JUNGSEONG YO-YEO
+1187  ; [.18B3.0020.0002.1187] # HANGUL JUNGSEONG YO-O
+1188  ; [.18B4.0020.0002.1188] # HANGUL JUNGSEONG YO-I
+1189  ; [.18B5.0020.0002.1189] # HANGUL JUNGSEONG U-A
+118A  ; [.18B6.0020.0002.118A] # HANGUL JUNGSEONG U-AE
+118B  ; [.18B7.0020.0002.118B] # HANGUL JUNGSEONG U-EO-EU
+118C  ; [.18B8.0020.0002.118C] # HANGUL JUNGSEONG U-YE
+118D  ; [.18B9.0020.0002.118D] # HANGUL JUNGSEONG U-U
+118E  ; [.18BA.0020.0002.118E] # HANGUL JUNGSEONG YU-A
+118F  ; [.18BB.0020.0002.118F] # HANGUL JUNGSEONG YU-EO
+1190  ; [.18BC.0020.0002.1190] # HANGUL JUNGSEONG YU-E
+1191  ; [.18BD.0020.0002.1191] # HANGUL JUNGSEONG YU-YEO
+1192  ; [.18BE.0020.0002.1192] # HANGUL JUNGSEONG YU-YE
+1193  ; [.18BF.0020.0002.1193] # HANGUL JUNGSEONG YU-U
+1194  ; [.18C0.0020.0002.1194] # HANGUL JUNGSEONG YU-I
+1195  ; [.18C1.0020.0002.1195] # HANGUL JUNGSEONG EU-U
+1196  ; [.18C2.0020.0002.1196] # HANGUL JUNGSEONG EU-EU
+1197  ; [.18C3.0020.0002.1197] # HANGUL JUNGSEONG YI-U
+1198  ; [.18C4.0020.0002.1198] # HANGUL JUNGSEONG I-A
+1199  ; [.18C5.0020.0002.1199] # HANGUL JUNGSEONG I-YA
+119A  ; [.18C6.0020.0002.119A] # HANGUL JUNGSEONG I-O
+119B  ; [.18C7.0020.0002.119B] # HANGUL JUNGSEONG I-U
+119C  ; [.18C8.0020.0002.119C] # HANGUL JUNGSEONG I-EU
+119D  ; [.18C9.0020.0002.119D] # HANGUL JUNGSEONG I-ARAEA
+119E  ; [.18CA.0020.0002.119E] # HANGUL JUNGSEONG ARAEA
+119F  ; [.18CB.0020.0002.119F] # HANGUL JUNGSEONG ARAEA-EO
+11A0  ; [.18CC.0020.0002.11A0] # HANGUL JUNGSEONG ARAEA-U
+11A1  ; [.18CD.0020.0002.11A1] # HANGUL JUNGSEONG ARAEA-I
+11A2  ; [.18CE.0020.0002.11A2] # HANGUL JUNGSEONG SSANGARAEA
+11A8  ; [.18CF.0020.0002.11A8] # HANGUL JONGSEONG KIYEOK
+11A9  ; [.18D0.0020.0002.11A9] # HANGUL JONGSEONG SSANGKIYEOK
+11AA  ; [.18D1.0020.0002.11AA] # HANGUL JONGSEONG KIYEOK-SIOS
+11AB  ; [.18D2.0020.0002.11AB] # HANGUL JONGSEONG NIEUN
+11AC  ; [.18D3.0020.0002.11AC] # HANGUL JONGSEONG NIEUN-CIEUC
+11AD  ; [.18D4.0020.0002.11AD] # HANGUL JONGSEONG NIEUN-HIEUH
+11AE  ; [.18D5.0020.0002.11AE] # HANGUL JONGSEONG TIKEUT
+11AF  ; [.18D6.0020.0002.11AF] # HANGUL JONGSEONG RIEUL
+11B0  ; [.18D7.0020.0002.11B0] # HANGUL JONGSEONG RIEUL-KIYEOK
+11B1  ; [.18D8.0020.0002.11B1] # HANGUL JONGSEONG RIEUL-MIEUM
+11B2  ; [.18D9.0020.0002.11B2] # HANGUL JONGSEONG RIEUL-PIEUP
+11B3  ; [.18DA.0020.0002.11B3] # HANGUL JONGSEONG RIEUL-SIOS
+11B4  ; [.18DB.0020.0002.11B4] # HANGUL JONGSEONG RIEUL-THIEUTH
+11B5  ; [.18DC.0020.0002.11B5] # HANGUL JONGSEONG RIEUL-PHIEUPH
+11B6  ; [.18DD.0020.0002.11B6] # HANGUL JONGSEONG RIEUL-HIEUH
+11B7  ; [.18DE.0020.0002.11B7] # HANGUL JONGSEONG MIEUM
+11B8  ; [.18DF.0020.0002.11B8] # HANGUL JONGSEONG PIEUP
+11B9  ; [.18E0.0020.0002.11B9] # HANGUL JONGSEONG PIEUP-SIOS
+11BA  ; [.18E1.0020.0002.11BA] # HANGUL JONGSEONG SIOS
+11BB  ; [.18E2.0020.0002.11BB] # HANGUL JONGSEONG SSANGSIOS
+11BC  ; [.18E3.0020.0002.11BC] # HANGUL JONGSEONG IEUNG
+11BD  ; [.18E4.0020.0002.11BD] # HANGUL JONGSEONG CIEUC
+11BE  ; [.18E5.0020.0002.11BE] # HANGUL JONGSEONG CHIEUCH
+11BF  ; [.18E6.0020.0002.11BF] # HANGUL JONGSEONG KHIEUKH
+11C0  ; [.18E7.0020.0002.11C0] # HANGUL JONGSEONG THIEUTH
+11C1  ; [.18E8.0020.0002.11C1] # HANGUL JONGSEONG PHIEUPH
+11C2  ; [.18E9.0020.0002.11C2] # HANGUL JONGSEONG HIEUH
+11C3  ; [.18EA.0020.0002.11C3] # HANGUL JONGSEONG KIYEOK-RIEUL
+11C4  ; [.18EB.0020.0002.11C4] # HANGUL JONGSEONG KIYEOK-SIOS-KIYEOK
+11C5  ; [.18EC.0020.0002.11C5] # HANGUL JONGSEONG NIEUN-KIYEOK
+11C6  ; [.18ED.0020.0002.11C6] # HANGUL JONGSEONG NIEUN-TIKEUT
+11C7  ; [.18EE.0020.0002.11C7] # HANGUL JONGSEONG NIEUN-SIOS
+11C8  ; [.18EF.0020.0002.11C8] # HANGUL JONGSEONG NIEUN-PANSIOS
+11C9  ; [.18F0.0020.0002.11C9] # HANGUL JONGSEONG NIEUN-THIEUTH
+11CA  ; [.18F1.0020.0002.11CA] # HANGUL JONGSEONG TIKEUT-KIYEOK
+11CB  ; [.18F2.0020.0002.11CB] # HANGUL JONGSEONG TIKEUT-RIEUL
+11CC  ; [.18F3.0020.0002.11CC] # HANGUL JONGSEONG RIEUL-KIYEOK-SIOS
+11CD  ; [.18F4.0020.0002.11CD] # HANGUL JONGSEONG RIEUL-NIEUN
+11CE  ; [.18F5.0020.0002.11CE] # HANGUL JONGSEONG RIEUL-TIKEUT
+11CF  ; [.18F6.0020.0002.11CF] # HANGUL JONGSEONG RIEUL-TIKEUT-HIEUH
+11D0  ; [.18F7.0020.0002.11D0] # HANGUL JONGSEONG SSANGRIEUL
+11D1  ; [.18F8.0020.0002.11D1] # HANGUL JONGSEONG RIEUL-MIEUM-KIYEOK
+11D2  ; [.18F9.0020.0002.11D2] # HANGUL JONGSEONG RIEUL-MIEUM-SIOS
+11D3  ; [.18FA.0020.0002.11D3] # HANGUL JONGSEONG RIEUL-PIEUP-SIOS
+11D4  ; [.18FB.0020.0002.11D4] # HANGUL JONGSEONG RIEUL-PIEUP-HIEUH
+11D5  ; [.18FC.0020.0002.11D5] # HANGUL JONGSEONG RIEUL-KAPYEOUNPIEUP
+11D6  ; [.18FD.0020.0002.11D6] # HANGUL JONGSEONG RIEUL-SSANGSIOS
+11D7  ; [.18FE.0020.0002.11D7] # HANGUL JONGSEONG RIEUL-PANSIOS
+11D8  ; [.18FF.0020.0002.11D8] # HANGUL JONGSEONG RIEUL-KHIEUKH
+11D9  ; [.1900.0020.0002.11D9] # HANGUL JONGSEONG RIEUL-YEORINHIEUH
+11DA  ; [.1901.0020.0002.11DA] # HANGUL JONGSEONG MIEUM-KIYEOK
+11DB  ; [.1902.0020.0002.11DB] # HANGUL JONGSEONG MIEUM-RIEUL
+11DC  ; [.1903.0020.0002.11DC] # HANGUL JONGSEONG MIEUM-PIEUP
+11DD  ; [.1904.0020.0002.11DD] # HANGUL JONGSEONG MIEUM-SIOS
+11DE  ; [.1905.0020.0002.11DE] # HANGUL JONGSEONG MIEUM-SSANGSIOS
+11DF  ; [.1906.0020.0002.11DF] # HANGUL JONGSEONG MIEUM-PANSIOS
+11E0  ; [.1907.0020.0002.11E0] # HANGUL JONGSEONG MIEUM-CHIEUCH
+11E1  ; [.1908.0020.0002.11E1] # HANGUL JONGSEONG MIEUM-HIEUH
+11E2  ; [.1909.0020.0002.11E2] # HANGUL JONGSEONG KAPYEOUNMIEUM
+11E3  ; [.190A.0020.0002.11E3] # HANGUL JONGSEONG PIEUP-RIEUL
+11E4  ; [.190B.0020.0002.11E4] # HANGUL JONGSEONG PIEUP-PHIEUPH
+11E5  ; [.190C.0020.0002.11E5] # HANGUL JONGSEONG PIEUP-HIEUH
+11E6  ; [.190D.0020.0002.11E6] # HANGUL JONGSEONG KAPYEOUNPIEUP
+11E7  ; [.190E.0020.0002.11E7] # HANGUL JONGSEONG SIOS-KIYEOK
+11E8  ; [.190F.0020.0002.11E8] # HANGUL JONGSEONG SIOS-TIKEUT
+11E9  ; [.1910.0020.0002.11E9] # HANGUL JONGSEONG SIOS-RIEUL
+11EA  ; [.1911.0020.0002.11EA] # HANGUL JONGSEONG SIOS-PIEUP
+11EB  ; [.1912.0020.0002.11EB] # HANGUL JONGSEONG PANSIOS
+11EC  ; [.1913.0020.0002.11EC] # HANGUL JONGSEONG IEUNG-KIYEOK
+11ED  ; [.1914.0020.0002.11ED] # HANGUL JONGSEONG IEUNG-SSANGKIYEOK
+11EE  ; [.1915.0020.0002.11EE] # HANGUL JONGSEONG SSANGIEUNG
+11EF  ; [.1916.0020.0002.11EF] # HANGUL JONGSEONG IEUNG-KHIEUKH
+11F0  ; [.1917.0020.0002.11F0] # HANGUL JONGSEONG YESIEUNG
+11F1  ; [.1918.0020.0002.11F1] # HANGUL JONGSEONG YESIEUNG-SIOS
+11F2  ; [.1919.0020.0002.11F2] # HANGUL JONGSEONG YESIEUNG-PANSIOS
+11F3  ; [.191A.0020.0002.11F3] # HANGUL JONGSEONG PHIEUPH-PIEUP
+11F4  ; [.191B.0020.0002.11F4] # HANGUL JONGSEONG KAPYEOUNPHIEUPH
+11F5  ; [.191C.0020.0002.11F5] # HANGUL JONGSEONG HIEUH-NIEUN
+11F6  ; [.191D.0020.0002.11F6] # HANGUL JONGSEONG HIEUH-RIEUL
+11F7  ; [.191E.0020.0002.11F7] # HANGUL JONGSEONG HIEUH-MIEUM
+11F8  ; [.191F.0020.0002.11F8] # HANGUL JONGSEONG HIEUH-PIEUP
+11F9  ; [.1920.0020.0002.11F9] # HANGUL JONGSEONG YEORINHIEUH
+3041  ; [.1921.0020.000D.3041] # HIRAGANA LETTER SMALL A
+3042  ; [.1921.0020.000E.3042] # HIRAGANA LETTER A
+30A1  ; [.1921.0020.000F.30A1] # KATAKANA LETTER SMALL A
+30A2  ; [.1921.0020.0011.30A2] # KATAKANA LETTER A
+3043  ; [.1922.0020.000D.3043] # HIRAGANA LETTER SMALL I
+3044  ; [.1922.0020.000E.3044] # HIRAGANA LETTER I
+30A3  ; [.1922.0020.000F.30A3] # KATAKANA LETTER SMALL I
+30A4  ; [.1922.0020.0011.30A4] # KATAKANA LETTER I
+3045  ; [.1923.0020.000D.3045] # HIRAGANA LETTER SMALL U
+3046  ; [.1923.0020.000E.3046] # HIRAGANA LETTER U
+30A5  ; [.1923.0020.000F.30A5] # KATAKANA LETTER SMALL U
+30A6  ; [.1923.0020.0011.30A6] # KATAKANA LETTER U
+3094  ; [.1923.0020.000E.3046][.0000.013D.0002.3099] # HIRAGANA LETTER VU; QQCM
+30F4  ; [.1923.0020.0011.30A6][.0000.013D.0002.3099] # KATAKANA LETTER VU; QQCM
+3047  ; [.1924.0020.000D.3047] # HIRAGANA LETTER SMALL E
+3048  ; [.1924.0020.000E.3048] # HIRAGANA LETTER E
+30A7  ; [.1924.0020.000F.30A7] # KATAKANA LETTER SMALL E
+30A8  ; [.1924.0020.0011.30A8] # KATAKANA LETTER E
+3049  ; [.1925.0020.000D.3049] # HIRAGANA LETTER SMALL O
+304A  ; [.1925.0020.000E.304A] # HIRAGANA LETTER O
+30A9  ; [.1925.0020.000F.30A9] # KATAKANA LETTER SMALL O
+30AA  ; [.1925.0020.0011.30AA] # KATAKANA LETTER O
+304B  ; [.1926.0020.000E.304B] # HIRAGANA LETTER KA
+30F5  ; [.1926.0020.000F.30F5] # KATAKANA LETTER SMALL KA
+30AB  ; [.1926.0020.0011.30AB] # KATAKANA LETTER KA
+304C  ; [.1926.0020.000E.304B][.0000.013D.0002.3099] # HIRAGANA LETTER GA; QQCM
+30AC  ; [.1926.0020.0011.30AB][.0000.013D.0002.3099] # KATAKANA LETTER GA; QQCM
+304D  ; [.1927.0020.000E.304D] # HIRAGANA LETTER KI
+30AD  ; [.1927.0020.0011.30AD] # KATAKANA LETTER KI
+304E  ; [.1927.0020.000E.304D][.0000.013D.0002.3099] # HIRAGANA LETTER GI; QQCM
+30AE  ; [.1927.0020.0011.30AD][.0000.013D.0002.3099] # KATAKANA LETTER GI; QQCM
+304F  ; [.1928.0020.000E.304F] # HIRAGANA LETTER KU
+30AF  ; [.1928.0020.0011.30AF] # KATAKANA LETTER KU
+3050  ; [.1928.0020.000E.304F][.0000.013D.0002.3099] # HIRAGANA LETTER GU; QQCM
+30B0  ; [.1928.0020.0011.30AF][.0000.013D.0002.3099] # KATAKANA LETTER GU; QQCM
+3051  ; [.1929.0020.000E.3051] # HIRAGANA LETTER KE
+30F6  ; [.1929.0020.000F.30F6] # KATAKANA LETTER SMALL KE
+30B1  ; [.1929.0020.0011.30B1] # KATAKANA LETTER KE
+3052  ; [.1929.0020.000E.3051][.0000.013D.0002.3099] # HIRAGANA LETTER GE; QQCM
+30B2  ; [.1929.0020.0011.30B1][.0000.013D.0002.3099] # KATAKANA LETTER GE; QQCM
+3053  ; [.192A.0020.000E.3053] # HIRAGANA LETTER KO
+30B3  ; [.192A.0020.0011.30B3] # KATAKANA LETTER KO
+3054  ; [.192A.0020.000E.3053][.0000.013D.0002.3099] # HIRAGANA LETTER GO; QQCM
+30B4  ; [.192A.0020.0011.30B3][.0000.013D.0002.3099] # KATAKANA LETTER GO; QQCM
+3055  ; [.192B.0020.000E.3055] # HIRAGANA LETTER SA
+30B5  ; [.192B.0020.0011.30B5] # KATAKANA LETTER SA
+3056  ; [.192B.0020.000E.3055][.0000.013D.0002.3099] # HIRAGANA LETTER ZA; QQCM
+30B6  ; [.192B.0020.0011.30B5][.0000.013D.0002.3099] # KATAKANA LETTER ZA; QQCM
+3057  ; [.192C.0020.000E.3057] # HIRAGANA LETTER SI
+30B7  ; [.192C.0020.0011.30B7] # KATAKANA LETTER SI
+3058  ; [.192C.0020.000E.3057][.0000.013D.0002.3099] # HIRAGANA LETTER ZI; QQCM
+30B8  ; [.192C.0020.0011.30B7][.0000.013D.0002.3099] # KATAKANA LETTER ZI; QQCM
+3059  ; [.192D.0020.000E.3059] # HIRAGANA LETTER SU
+30B9  ; [.192D.0020.0011.30B9] # KATAKANA LETTER SU
+305A  ; [.192D.0020.000E.3059][.0000.013D.0002.3099] # HIRAGANA LETTER ZU; QQCM
+30BA  ; [.192D.0020.0011.30B9][.0000.013D.0002.3099] # KATAKANA LETTER ZU; QQCM
+305B  ; [.192E.0020.000E.305B] # HIRAGANA LETTER SE
+30BB  ; [.192E.0020.0011.30BB] # KATAKANA LETTER SE
+305C  ; [.192E.0020.000E.305B][.0000.013D.0002.3099] # HIRAGANA LETTER ZE; QQCM
+30BC  ; [.192E.0020.0011.30BB][.0000.013D.0002.3099] # KATAKANA LETTER ZE; QQCM
+305D  ; [.192F.0020.000E.305D] # HIRAGANA LETTER SO
+30BD  ; [.192F.0020.0011.30BD] # KATAKANA LETTER SO
+305E  ; [.192F.0020.000E.305D][.0000.013D.0002.3099] # HIRAGANA LETTER ZO; QQCM
+30BE  ; [.192F.0020.0011.30BD][.0000.013D.0002.3099] # KATAKANA LETTER ZO; QQCM
+305F  ; [.1930.0020.000E.305F] # HIRAGANA LETTER TA
+30BF  ; [.1930.0020.0011.30BF] # KATAKANA LETTER TA
+3060  ; [.1930.0020.000E.305F][.0000.013D.0002.3099] # HIRAGANA LETTER DA; QQCM
+30C0  ; [.1930.0020.0011.30BF][.0000.013D.0002.3099] # KATAKANA LETTER DA; QQCM
+3061  ; [.1931.0020.000E.3061] # HIRAGANA LETTER TI
+30C1  ; [.1931.0020.0011.30C1] # KATAKANA LETTER TI
+3062  ; [.1931.0020.000E.3061][.0000.013D.0002.3099] # HIRAGANA LETTER DI; QQCM
+30C2  ; [.1931.0020.0011.30C1][.0000.013D.0002.3099] # KATAKANA LETTER DI; QQCM
+3063  ; [.1932.0020.000D.3063] # HIRAGANA LETTER SMALL TU
+3064  ; [.1932.0020.000E.3064] # HIRAGANA LETTER TU
+30C3  ; [.1932.0020.000F.30C3] # KATAKANA LETTER SMALL TU
+30C4  ; [.1932.0020.0011.30C4] # KATAKANA LETTER TU
+3065  ; [.1932.0020.000E.3064][.0000.013D.0002.3099] # HIRAGANA LETTER DU; QQCM
+30C5  ; [.1932.0020.0011.30C4][.0000.013D.0002.3099] # KATAKANA LETTER DU; QQCM
+3066  ; [.1933.0020.000E.3066] # HIRAGANA LETTER TE
+30C6  ; [.1933.0020.0011.30C6] # KATAKANA LETTER TE
+3067  ; [.1933.0020.000E.3066][.0000.013D.0002.3099] # HIRAGANA LETTER DE; QQCM
+30C7  ; [.1933.0020.0011.30C6][.0000.013D.0002.3099] # KATAKANA LETTER DE; QQCM
+3068  ; [.1934.0020.000E.3068] # HIRAGANA LETTER TO
+30C8  ; [.1934.0020.0011.30C8] # KATAKANA LETTER TO
+3069  ; [.1934.0020.000E.3068][.0000.013D.0002.3099] # HIRAGANA LETTER DO; QQCM
+30C9  ; [.1934.0020.0011.30C8][.0000.013D.0002.3099] # KATAKANA LETTER DO; QQCM
+306A  ; [.1935.0020.000E.306A] # HIRAGANA LETTER NA
+30CA  ; [.1935.0020.0011.30CA] # KATAKANA LETTER NA
+306B  ; [.1936.0020.000E.306B] # HIRAGANA LETTER NI
+30CB  ; [.1936.0020.0011.30CB] # KATAKANA LETTER NI
+306C  ; [.1937.0020.000E.306C] # HIRAGANA LETTER NU
+30CC  ; [.1937.0020.0011.30CC] # KATAKANA LETTER NU
+306D  ; [.1938.0020.000E.306D] # HIRAGANA LETTER NE
+30CD  ; [.1938.0020.0011.30CD] # KATAKANA LETTER NE
+306E  ; [.1939.0020.000E.306E] # HIRAGANA LETTER NO
+30CE  ; [.1939.0020.0011.30CE] # KATAKANA LETTER NO
+306F  ; [.193A.0020.000E.306F] # HIRAGANA LETTER HA
+30CF  ; [.193A.0020.0011.30CF] # KATAKANA LETTER HA
+3070  ; [.193A.0020.000E.306F][.0000.013D.0002.3099] # HIRAGANA LETTER BA; QQCM
+30D0  ; [.193A.0020.0011.30CF][.0000.013D.0002.3099] # KATAKANA LETTER BA; QQCM
+3071  ; [.193A.0020.000E.306F][.0000.013E.0002.309A] # HIRAGANA LETTER PA; QQCM
+30D1  ; [.193A.0020.0011.30CF][.0000.013E.0002.309A] # KATAKANA LETTER PA; QQCM
+3072  ; [.193B.0020.000E.3072] # HIRAGANA LETTER HI
+30D2  ; [.193B.0020.0011.30D2] # KATAKANA LETTER HI
+3073  ; [.193B.0020.000E.3072][.0000.013D.0002.3099] # HIRAGANA LETTER BI; QQCM
+30D3  ; [.193B.0020.0011.30D2][.0000.013D.0002.3099] # KATAKANA LETTER BI; QQCM
+3074  ; [.193B.0020.000E.3072][.0000.013E.0002.309A] # HIRAGANA LETTER PI; QQCM
+30D4  ; [.193B.0020.0011.30D2][.0000.013E.0002.309A] # KATAKANA LETTER PI; QQCM
+3075  ; [.193C.0020.000E.3075] # HIRAGANA LETTER HU
+30D5  ; [.193C.0020.0011.30D5] # KATAKANA LETTER HU
+3076  ; [.193C.0020.000E.3075][.0000.013D.0002.3099] # HIRAGANA LETTER BU; QQCM
+30D6  ; [.193C.0020.0011.30D5][.0000.013D.0002.3099] # KATAKANA LETTER BU; QQCM
+3077  ; [.193C.0020.000E.3075][.0000.013E.0002.309A] # HIRAGANA LETTER PU; QQCM
+30D7  ; [.193C.0020.0011.30D5][.0000.013E.0002.309A] # KATAKANA LETTER PU; QQCM
+3078  ; [.193D.0020.000E.3078] # HIRAGANA LETTER HE
+30D8  ; [.193D.0020.0011.30D8] # KATAKANA LETTER HE
+3079  ; [.193D.0020.000E.3078][.0000.013D.0002.3099] # HIRAGANA LETTER BE; QQCM
+30D9  ; [.193D.0020.0011.30D8][.0000.013D.0002.3099] # KATAKANA LETTER BE; QQCM
+307A  ; [.193D.0020.000E.3078][.0000.013E.0002.309A] # HIRAGANA LETTER PE; QQCM
+30DA  ; [.193D.0020.0011.30D8][.0000.013E.0002.309A] # KATAKANA LETTER PE; QQCM
+307B  ; [.193E.0020.000E.307B] # HIRAGANA LETTER HO
+30DB  ; [.193E.0020.0011.30DB] # KATAKANA LETTER HO
+307C  ; [.193E.0020.000E.307B][.0000.013D.0002.3099] # HIRAGANA LETTER BO; QQCM
+30DC  ; [.193E.0020.0011.30DB][.0000.013D.0002.3099] # KATAKANA LETTER BO; QQCM
+307D  ; [.193E.0020.000E.307B][.0000.013E.0002.309A] # HIRAGANA LETTER PO; QQCM
+30DD  ; [.193E.0020.0011.30DB][.0000.013E.0002.309A] # KATAKANA LETTER PO; QQCM
+307E  ; [.193F.0020.000E.307E] # HIRAGANA LETTER MA
+30DE  ; [.193F.0020.0011.30DE] # KATAKANA LETTER MA
+307F  ; [.1940.0020.000E.307F] # HIRAGANA LETTER MI
+30DF  ; [.1940.0020.0011.30DF] # KATAKANA LETTER MI
+3080  ; [.1941.0020.000E.3080] # HIRAGANA LETTER MU
+30E0  ; [.1941.0020.0011.30E0] # KATAKANA LETTER MU
+3081  ; [.1942.0020.000E.3081] # HIRAGANA LETTER ME
+30E1  ; [.1942.0020.0011.30E1] # KATAKANA LETTER ME
+3082  ; [.1943.0020.000E.3082] # HIRAGANA LETTER MO
+30E2  ; [.1943.0020.0011.30E2] # KATAKANA LETTER MO
+3083  ; [.1944.0020.000D.3083] # HIRAGANA LETTER SMALL YA
+3084  ; [.1944.0020.000E.3084] # HIRAGANA LETTER YA
+30E3  ; [.1944.0020.000F.30E3] # KATAKANA LETTER SMALL YA
+30E4  ; [.1944.0020.0011.30E4] # KATAKANA LETTER YA
+3085  ; [.1945.0020.000D.3085] # HIRAGANA LETTER SMALL YU
+3086  ; [.1945.0020.000E.3086] # HIRAGANA LETTER YU
+30E5  ; [.1945.0020.000F.30E5] # KATAKANA LETTER SMALL YU
+30E6  ; [.1945.0020.0011.30E6] # KATAKANA LETTER YU
+3087  ; [.1946.0020.000D.3087] # HIRAGANA LETTER SMALL YO
+3088  ; [.1946.0020.000E.3088] # HIRAGANA LETTER YO
+30E7  ; [.1946.0020.000F.30E7] # KATAKANA LETTER SMALL YO
+30E8  ; [.1946.0020.0011.30E8] # KATAKANA LETTER YO
+3089  ; [.1947.0020.000E.3089] # HIRAGANA LETTER RA
+30E9  ; [.1947.0020.0011.30E9] # KATAKANA LETTER RA
+308A  ; [.1948.0020.000E.308A] # HIRAGANA LETTER RI
+30EA  ; [.1948.0020.0011.30EA] # KATAKANA LETTER RI
+308B  ; [.1949.0020.000E.308B] # HIRAGANA LETTER RU
+30EB  ; [.1949.0020.0011.30EB] # KATAKANA LETTER RU
+308C  ; [.194A.0020.000E.308C] # HIRAGANA LETTER RE
+30EC  ; [.194A.0020.0011.30EC] # KATAKANA LETTER RE
+308D  ; [.194B.0020.000E.308D] # HIRAGANA LETTER RO
+30ED  ; [.194B.0020.0011.30ED] # KATAKANA LETTER RO
+308E  ; [.194C.0020.000D.308E] # HIRAGANA LETTER SMALL WA
+308F  ; [.194C.0020.000E.308F] # HIRAGANA LETTER WA
+30EE  ; [.194C.0020.000F.30EE] # KATAKANA LETTER SMALL WA
+30EF  ; [.194C.0020.0011.30EF] # KATAKANA LETTER WA
+30F7  ; [.194C.0020.0011.30EF][.0000.013D.0002.3099] # KATAKANA LETTER VA; QQCM
+3090  ; [.194D.0020.000E.3090] # HIRAGANA LETTER WI
+30F0  ; [.194D.0020.0011.30F0] # KATAKANA LETTER WI
+30F8  ; [.194D.0020.0011.30F0][.0000.013D.0002.3099] # KATAKANA LETTER VI; QQCM
+3091  ; [.194E.0020.000E.3091] # HIRAGANA LETTER WE
+30F1  ; [.194E.0020.0011.30F1] # KATAKANA LETTER WE
+30F9  ; [.194E.0020.0011.30F1][.0000.013D.0002.3099] # KATAKANA LETTER VE; QQCM
+3092  ; [.194F.0020.000E.3092] # HIRAGANA LETTER WO
+30F2  ; [.194F.0020.0011.30F2] # KATAKANA LETTER WO
+30FA  ; [.194F.0020.0011.30F2][.0000.013D.0002.3099] # KATAKANA LETTER VO; QQCM
+3093  ; [.1950.0020.000E.3093] # HIRAGANA LETTER N
+30F3  ; [.1950.0020.0011.30F3] # KATAKANA LETTER N
diff --git a/lib/5.24.1/Unicode/UCD.pm b/lib/5.24.1/Unicode/UCD.pm
new file mode 100644
index 00000000..13c2c785
--- /dev/null
+++ b/lib/5.24.1/Unicode/UCD.pm
@@ -0,0 +1,4135 @@
+package Unicode::UCD;
+
+use strict;
+use warnings;
+no warnings 'surrogate';    # surrogates can be inputs to this
+use charnames ();
+
+our $VERSION = '0.64';
+
+require Exporter;
+
+our @ISA = qw(Exporter);
+
+our @EXPORT_OK = qw(charinfo
+		    charblock charscript
+		    charblocks charscripts
+		    charinrange
+		    charprop
+		    charprops_all
+		    general_categories bidi_types
+		    compexcl
+		    casefold all_casefolds casespec
+		    namedseq
+                    num
+                    prop_aliases
+                    prop_value_aliases
+                    prop_values
+                    prop_invlist
+                    prop_invmap
+                    search_invlist
+                    MAX_CP
+                );
+
+use Carp;
+
+sub IS_ASCII_PLATFORM { ord("A") == 65 }
+
+=head1 NAME
+
+Unicode::UCD - Unicode character database
+
+=head1 SYNOPSIS
+
+    use Unicode::UCD 'charinfo';
+    my $charinfo   = charinfo($codepoint);
+
+    use Unicode::UCD 'charprop';
+    my $value  = charprop($codepoint, $property);
+
+    use Unicode::UCD 'charprops_all';
+    my $all_values_hash_ref = charprops_all($codepoint);
+
+    use Unicode::UCD 'casefold';
+    my $casefold = casefold($codepoint);
+
+    use Unicode::UCD 'all_casefolds';
+    my $all_casefolds_ref = all_casefolds();
+
+    use Unicode::UCD 'casespec';
+    my $casespec = casespec($codepoint);
+
+    use Unicode::UCD 'charblock';
+    my $charblock  = charblock($codepoint);
+
+    use Unicode::UCD 'charscript';
+    my $charscript = charscript($codepoint);
+
+    use Unicode::UCD 'charblocks';
+    my $charblocks = charblocks();
+
+    use Unicode::UCD 'charscripts';
+    my $charscripts = charscripts();
+
+    use Unicode::UCD qw(charscript charinrange);
+    my $range = charscript($script);
+    print "looks like $script\n" if charinrange($range, $codepoint);
+
+    use Unicode::UCD qw(general_categories bidi_types);
+    my $categories = general_categories();
+    my $types = bidi_types();
+
+    use Unicode::UCD 'prop_aliases';
+    my @space_names = prop_aliases("space");
+
+    use Unicode::UCD 'prop_value_aliases';
+    my @gc_punct_names = prop_value_aliases("Gc", "Punct");
+
+    use Unicode::UCD 'prop_values';
+    my @all_EA_short_names = prop_values("East_Asian_Width");
+
+    use Unicode::UCD 'prop_invlist';
+    my @puncts = prop_invlist("gc=punctuation");
+
+    use Unicode::UCD 'prop_invmap';
+    my ($list_ref, $map_ref, $format, $missing)
+                                      = prop_invmap("General Category");
+
+    use Unicode::UCD 'search_invlist';
+    my $index = search_invlist(\@invlist, $code_point);
+
+    use Unicode::UCD 'compexcl';
+    my $compexcl = compexcl($codepoint);
+
+    use Unicode::UCD 'namedseq';
+    my $namedseq = namedseq($named_sequence_name);
+
+    my $unicode_version = Unicode::UCD::UnicodeVersion();
+
+    my $convert_to_numeric =
+              Unicode::UCD::num("\N{RUMI DIGIT ONE}\N{RUMI DIGIT TWO}");
+
+=head1 DESCRIPTION
+
+The Unicode::UCD module offers a series of functions that
+provide a simple interface to the Unicode
+Character Database.
+
+=head2 code point argument
+
+Some of the functions are called with a I<code point argument>, which is either
+a decimal or a hexadecimal scalar designating a code point in the platform's
+native character set (extended to Unicode), or a string containing C<U+>
+followed by hexadecimals
+designating a Unicode code point.  A leading 0 will force a hexadecimal
+interpretation, as will a hexadecimal digit that isn't a decimal digit.
+
+Examples:
+
+    223     # Decimal 223 in native character set
+    0223    # Hexadecimal 223, native (= 547 decimal)
+    0xDF    # Hexadecimal DF, native (= 223 decimal
+    'U+DF'  # Hexadecimal DF, in Unicode's character set
+                              (= LATIN SMALL LETTER SHARP S)
+
+Note that the largest code point in Unicode is U+10FFFF.
+
+=cut
+
+my $BLOCKSFH;
+my $VERSIONFH;
+my $CASEFOLDFH;
+my $CASESPECFH;
+my $NAMEDSEQFH;
+my $v_unicode_version;  # v-string.
+
+sub openunicode {
+    my ($rfh, @path) = @_;
+    my $f;
+    unless (defined $$rfh) {
+	for my $d (@INC) {
+	    use File::Spec;
+	    $f = File::Spec->catfile($d, "unicore", @path);
+	    last if open($$rfh, $f);
+	    undef $f;
+	}
+	croak __PACKAGE__, ": failed to find ",
+              File::Spec->catfile(@path), " in @INC"
+	    unless defined $f;
+    }
+    return $f;
+}
+
+sub _dclone ($) {   # Use Storable::dclone if available; otherwise emulate it.
+
+    use if defined &DynaLoader::boot_DynaLoader, Storable => qw(dclone);
+
+    return dclone(shift) if defined &dclone;
+
+    my $arg = shift;
+    my $type = ref $arg;
+    return $arg unless $type;   # No deep cloning needed for scalars
+
+    if ($type eq 'ARRAY') {
+        my @return;
+        foreach my $element (@$arg) {
+            push @return, &_dclone($element);
+        }
+        return \@return;
+    }
+    elsif ($type eq 'HASH') {
+        my %return;
+        foreach my $key (keys %$arg) {
+            $return{$key} = &_dclone($arg->{$key});
+        }
+        return \%return;
+    }
+    else {
+        croak "_dclone can't handle " . $type;
+    }
+}
+
+=head2 B<charinfo()>
+
+    use Unicode::UCD 'charinfo';
+
+    my $charinfo = charinfo(0x41);
+
+This returns information about the input L</code point argument>
+as a reference to a hash of fields as defined by the Unicode
+standard.  If the L</code point argument> is not assigned in the standard
+(i.e., has the general category C<Cn> meaning C<Unassigned>)
+or is a non-character (meaning it is guaranteed to never be assigned in
+the standard),
+C<undef> is returned.
+
+Fields that aren't applicable to the particular code point argument exist in the
+returned hash, and are empty. 
+
+For results that are less "raw" than this function returns, or to get the values for
+any property, not just the few covered by this function, use the
+L</charprop()> function.
+
+The keys in the hash with the meanings of their values are:
+
+=over
+
+=item B<code>
+
+the input native L</code point argument> expressed in hexadecimal, with
+leading zeros
+added if necessary to make it contain at least four hexdigits
+
+=item B<name>
+
+name of I<code>, all IN UPPER CASE.
+Some control-type code points do not have names.
+This field will be empty for C<Surrogate> and C<Private Use> code points,
+and for the others without a name,
+it will contain a description enclosed in angle brackets, like
+C<E<lt>controlE<gt>>.
+
+
+=item B<category>
+
+The short name of the general category of I<code>.
+This will match one of the keys in the hash returned by L</general_categories()>.
+
+The L</prop_value_aliases()> function can be used to get all the synonyms
+of the category name.
+
+=item B<combining>
+
+the combining class number for I<code> used in the Canonical Ordering Algorithm.
+For Unicode 5.1, this is described in Section 3.11 C<Canonical Ordering Behavior>
+available at
+L<http://www.unicode.org/versions/Unicode5.1.0/>
+
+The L</prop_value_aliases()> function can be used to get all the synonyms
+of the combining class number.
+
+=item B<bidi>
+
+bidirectional type of I<code>.
+This will match one of the keys in the hash returned by L</bidi_types()>.
+
+The L</prop_value_aliases()> function can be used to get all the synonyms
+of the bidi type name.
+
+=item B<decomposition>
+
+is empty if I<code> has no decomposition; or is one or more codes
+(separated by spaces) that, taken in order, represent a decomposition for
+I<code>.  Each has at least four hexdigits.
+The codes may be preceded by a word enclosed in angle brackets, then a space,
+like C<E<lt>compatE<gt> >, giving the type of decomposition
+
+This decomposition may be an intermediate one whose components are also
+decomposable.  Use L<Unicode::Normalize> to get the final decomposition in one
+step.
+
+=item B<decimal>
+
+if I<code> represents a decimal digit this is its integer numeric value
+
+=item B<digit>
+
+if I<code> represents some other digit-like number, this is its integer
+numeric value
+
+=item B<numeric>
+
+if I<code> represents a whole or rational number, this is its numeric value.
+Rational values are expressed as a string like C<1/4>.
+
+=item B<mirrored>
+
+C<Y> or C<N> designating if I<code> is mirrored in bidirectional text
+
+=item B<unicode10>
+
+name of I<code> in the Unicode 1.0 standard if one
+existed for this code point and is different from the current name
+
+=item B<comment>
+
+As of Unicode 6.0, this is always empty.
+
+=item B<upper>
+
+is, if non-empty, the uppercase mapping for I<code> expressed as at least four
+hexdigits.  This indicates that the full uppercase mapping is a single
+character, and is identical to the simple (single-character only) mapping.
+When this field is empty, it means that the simple uppercase mapping is
+I<code> itself; you'll need some other means, (like L</charprop()> or
+L</casespec()> to get the full mapping.
+
+=item B<lower>
+
+is, if non-empty, the lowercase mapping for I<code> expressed as at least four
+hexdigits.  This indicates that the full lowercase mapping is a single
+character, and is identical to the simple (single-character only) mapping.
+When this field is empty, it means that the simple lowercase mapping is
+I<code> itself; you'll need some other means, (like L</charprop()> or
+L</casespec()> to get the full mapping.
+
+=item B<title>
+
+is, if non-empty, the titlecase mapping for I<code> expressed as at least four
+hexdigits.  This indicates that the full titlecase mapping is a single
+character, and is identical to the simple (single-character only) mapping.
+When this field is empty, it means that the simple titlecase mapping is
+I<code> itself; you'll need some other means, (like L</charprop()> or
+L</casespec()> to get the full mapping.
+
+=item B<block>
+
+the block I<code> belongs to (used in C<\p{Blk=...}>).
+The L</prop_value_aliases()> function can be used to get all the synonyms
+of the block name.
+
+See L</Blocks versus Scripts>.
+
+=item B<script>
+
+the script I<code> belongs to.
+The L</prop_value_aliases()> function can be used to get all the synonyms
+of the script name.
+
+See L</Blocks versus Scripts>.
+
+=back
+
+Note that you cannot do (de)composition and casing based solely on the
+I<decomposition>, I<combining>, I<lower>, I<upper>, and I<title> fields; you
+will need also the L</casespec()> function and the C<Composition_Exclusion>
+property.  (Or you could just use the L<lc()|perlfunc/lc>,
+L<uc()|perlfunc/uc>, and L<ucfirst()|perlfunc/ucfirst> functions, and the
+L<Unicode::Normalize> module.)
+
+=cut
+
+# NB: This function is nearly duplicated in charnames.pm
+sub _getcode {
+    my $arg = shift;
+
+    if ($arg =~ /^[1-9]\d*$/) {
+	return $arg;
+    }
+    elsif ($arg =~ /^(?:0[xX])?([[:xdigit:]]+)$/) {
+	return CORE::hex($1);
+    }
+    elsif ($arg =~ /^[Uu]\+([[:xdigit:]]+)$/) { # Is of form U+0000, means
+                                                # wants the Unicode code
+                                                # point, not the native one
+        my $decimal = CORE::hex($1);
+        return $decimal if IS_ASCII_PLATFORM;
+        return utf8::unicode_to_native($decimal);
+    }
+
+    return;
+}
+
+# Populated by _num.  Converts real number back to input rational
+my %real_to_rational;
+
+# To store the contents of files found on disk.
+my @BIDIS;
+my @CATEGORIES;
+my @DECOMPOSITIONS;
+my @NUMERIC_TYPES;
+my %SIMPLE_LOWER;
+my %SIMPLE_TITLE;
+my %SIMPLE_UPPER;
+my %UNICODE_1_NAMES;
+my %ISO_COMMENT;
+
+# Eval'd so can run on versions earlier than the property is available in
+my $Hangul_Syllables_re = eval 'qr/\p{Block=Hangul_Syllables}/';
+
+sub charinfo {
+
+    # This function has traditionally mimicked what is in UnicodeData.txt,
+    # warts and all.  This is a re-write that avoids UnicodeData.txt so that
+    # it can be removed to save disk space.  Instead, this assembles
+    # information gotten by other methods that get data from various other
+    # files.  It uses charnames to get the character name; and various
+    # mktables tables.
+
+    use feature 'unicode_strings';
+
+    # Will fail if called under minitest
+    use if defined &DynaLoader::boot_DynaLoader, "Unicode::Normalize" => qw(getCombinClass NFD);
+
+    my $arg  = shift;
+    my $code = _getcode($arg);
+    croak __PACKAGE__, "::charinfo: unknown code '$arg'" unless defined $code;
+
+    # Non-unicode implies undef.
+    return if $code > 0x10FFFF;
+
+    my %prop;
+    my $char = chr($code);
+
+    @CATEGORIES =_read_table("To/Gc.pl") unless @CATEGORIES;
+    $prop{'category'} = _search(\@CATEGORIES, 0, $#CATEGORIES, $code)
+                        // $utf8::SwashInfo{'ToGc'}{'missing'};
+    # Return undef if category value is 'Unassigned' or one of its synonyms 
+    return if grep { lc $_ eq 'unassigned' }
+                                    prop_value_aliases('Gc', $prop{'category'});
+
+    $prop{'code'} = sprintf "%04X", $code;
+    $prop{'name'} = ($char =~ /\p{Cntrl}/) ? '<control>'
+                                           : (charnames::viacode($code) // "");
+
+    $prop{'combining'} = getCombinClass($code);
+
+    @BIDIS =_read_table("To/Bc.pl") unless @BIDIS;
+    $prop{'bidi'} = _search(\@BIDIS, 0, $#BIDIS, $code)
+                    // $utf8::SwashInfo{'ToBc'}{'missing'};
+
+    # For most code points, we can just read in "unicore/Decomposition.pl", as
+    # its contents are exactly what should be output.  But that file doesn't
+    # contain the data for the Hangul syllable decompositions, which can be
+    # algorithmically computed, and NFD() does that, so we call NFD() for
+    # those.  We can't use NFD() for everything, as it does a complete
+    # recursive decomposition, and what this function has always done is to
+    # return what's in UnicodeData.txt which doesn't show that recursiveness.
+    # Fortunately, the NFD() of the Hanguls doesn't have any recursion
+    # issues.
+    # Having no decomposition implies an empty field; otherwise, all but
+    # "Canonical" imply a compatible decomposition, and the type is prefixed
+    # to that, as it is in UnicodeData.txt
+    UnicodeVersion() unless defined $v_unicode_version;
+    if ($v_unicode_version ge v2.0.0 && $char =~ $Hangul_Syllables_re) {
+        # The code points of the decomposition are output in standard Unicode
+        # hex format, separated by blanks.
+        $prop{'decomposition'} = join " ", map { sprintf("%04X", $_)}
+                                           unpack "U*", NFD($char);
+    }
+    else {
+        @DECOMPOSITIONS = _read_table("Decomposition.pl")
+                          unless @DECOMPOSITIONS;
+        $prop{'decomposition'} = _search(\@DECOMPOSITIONS, 0, $#DECOMPOSITIONS,
+                                                                $code) // "";
+    }
+
+    # Can use num() to get the numeric values, if any.
+    if (! defined (my $value = num($char))) {
+        $prop{'decimal'} = $prop{'digit'} = $prop{'numeric'} = "";
+    }
+    else {
+        if ($char =~ /\d/) {
+            $prop{'decimal'} = $prop{'digit'} = $prop{'numeric'} = $value;
+        }
+        else {
+
+            # For non-decimal-digits, we have to read in the Numeric type
+            # to distinguish them.  It is not just a matter of integer vs.
+            # rational, as some whole number values are not considered digits,
+            # e.g., TAMIL NUMBER TEN.
+            $prop{'decimal'} = "";
+
+            @NUMERIC_TYPES =_read_table("To/Nt.pl") unless @NUMERIC_TYPES;
+            if ((_search(\@NUMERIC_TYPES, 0, $#NUMERIC_TYPES, $code) // "")
+                eq 'Digit')
+            {
+                $prop{'digit'} = $prop{'numeric'} = $value;
+            }
+            else {
+                $prop{'digit'} = "";
+                $prop{'numeric'} = $real_to_rational{$value} // $value;
+            }
+        }
+    }
+
+    $prop{'mirrored'} = ($char =~ /\p{Bidi_Mirrored}/) ? 'Y' : 'N';
+
+    %UNICODE_1_NAMES =_read_table("To/Na1.pl", "use_hash") unless %UNICODE_1_NAMES;
+    $prop{'unicode10'} = $UNICODE_1_NAMES{$code} // "";
+
+    UnicodeVersion() unless defined $v_unicode_version;
+    if ($v_unicode_version ge v6.0.0) {
+        $prop{'comment'} = "";
+    }
+    else {
+        %ISO_COMMENT = _read_table("To/Isc.pl", "use_hash") unless %ISO_COMMENT;
+        $prop{'comment'} = (defined $ISO_COMMENT{$code})
+                           ? $ISO_COMMENT{$code}
+                           : "";
+    }
+
+    %SIMPLE_UPPER = _read_table("To/Uc.pl", "use_hash") unless %SIMPLE_UPPER;
+    $prop{'upper'} = (defined $SIMPLE_UPPER{$code})
+                     ? sprintf("%04X", $SIMPLE_UPPER{$code})
+                     : "";
+
+    %SIMPLE_LOWER = _read_table("To/Lc.pl", "use_hash") unless %SIMPLE_LOWER;
+    $prop{'lower'} = (defined $SIMPLE_LOWER{$code})
+                     ? sprintf("%04X", $SIMPLE_LOWER{$code})
+                     : "";
+
+    %SIMPLE_TITLE = _read_table("To/Tc.pl", "use_hash") unless %SIMPLE_TITLE;
+    $prop{'title'} = (defined $SIMPLE_TITLE{$code})
+                     ? sprintf("%04X", $SIMPLE_TITLE{$code})
+                     : "";
+
+    $prop{block}  = charblock($code);
+    $prop{script} = charscript($code);
+    return \%prop;
+}
+
+sub _search { # Binary search in a [[lo,hi,prop],[...],...] table.
+    my ($table, $lo, $hi, $code) = @_;
+
+    return if $lo > $hi;
+
+    my $mid = int(($lo+$hi) / 2);
+
+    if ($table->[$mid]->[0] < $code) {
+	if ($table->[$mid]->[1] >= $code) {
+	    return $table->[$mid]->[2];
+	} else {
+	    _search($table, $mid + 1, $hi, $code);
+	}
+    } elsif ($table->[$mid]->[0] > $code) {
+	_search($table, $lo, $mid - 1, $code);
+    } else {
+	return $table->[$mid]->[2];
+    }
+}
+
+sub _read_table ($;$) {
+
+    # Returns the contents of the mktables generated table file located at $1
+    # in the form of either an array of arrays or a hash, depending on if the
+    # optional second parameter is true (for hash return) or not.  In the case
+    # of a hash return, each key is a code point, and its corresponding value
+    # is what the table gives as the code point's corresponding value.  In the
+    # case of an array return, each outer array denotes a range with [0] the
+    # start point of that range; [1] the end point; and [2] the value that
+    # every code point in the range has.  The hash return is useful for fast
+    # lookup when the table contains only single code point ranges.  The array
+    # return takes much less memory when there are large ranges.
+    #
+    # This function has the side effect of setting
+    # $utf8::SwashInfo{$property}{'format'} to be the mktables format of the
+    #                                       table; and
+    # $utf8::SwashInfo{$property}{'missing'} to be the value for all entries
+    #                                        not listed in the table.
+    # where $property is the Unicode property name, preceded by 'To' for map
+    # properties., e.g., 'ToSc'.
+    #
+    # Table entries look like one of:
+    # 0000	0040	Common	# [65]
+    # 00AA		Latin
+
+    my $table = shift;
+    my $return_hash = shift;
+    $return_hash = 0 unless defined $return_hash;
+    my @return;
+    my %return;
+    local $_;
+    my $list = do "unicore/$table";
+
+    # Look up if this property requires adjustments, which we do below if it
+    # does.
+    require "unicore/Heavy.pl";
+    my $property = $table =~ s/\.pl//r;
+    $property = $utf8::file_to_swash_name{$property};
+    my $to_adjust = defined $property
+                    && $utf8::SwashInfo{$property}{'format'} =~ / ^ a /x;
+
+    for (split /^/m, $list) {
+        my ($start, $end, $value) = / ^ (.+?) \t (.*?) \t (.+?)
+                                        \s* ( \# .* )?  # Optional comment
+                                        $ /x;
+        my $decimal_start = hex $start;
+        my $decimal_end = ($end eq "") ? $decimal_start : hex $end;
+        $value = hex $value if $to_adjust
+                               && $utf8::SwashInfo{$property}{'format'} eq 'ax';
+        if ($return_hash) {
+            foreach my $i ($decimal_start .. $decimal_end) {
+                $return{$i} = ($to_adjust)
+                              ? $value + $i - $decimal_start
+                              : $value;
+            }
+        }
+        elsif (! $to_adjust
+               && @return
+               && $return[-1][1] == $decimal_start - 1
+               && $return[-1][2] eq $value)
+        {
+            # If this is merely extending the previous range, do just that.
+            $return[-1]->[1] = $decimal_end;
+        }
+        else {
+            push @return, [ $decimal_start, $decimal_end, $value ];
+        }
+    }
+    return ($return_hash) ? %return : @return;
+}
+
+sub charinrange {
+    my ($range, $arg) = @_;
+    my $code = _getcode($arg);
+    croak __PACKAGE__, "::charinrange: unknown code '$arg'"
+	unless defined $code;
+    _search($range, 0, $#$range, $code);
+}
+
+=head2 B<charprop()>
+
+    use Unicode::UCD 'charprop';
+
+    print charprop(0x41, "Gc"), "\n";
+    print charprop(0x61, "General_Category"), "\n";
+
+  prints
+    Lu
+    Ll
+
+This returns the value of the Unicode property given by the second parameter
+for the  L</code point argument> given by the first.
+
+The passed-in property may be specified as any of the synonyms returned by
+L</prop_aliases()>.
+
+The return value is always a scalar, either a string or a number.  For
+properties where there are synonyms for the values, the synonym returned by
+this function is the longest, most descriptive form, the one returned by
+L</prop_value_aliases()> when called in a scalar context.  Of course, you can
+call L</prop_value_aliases()> on the result to get other synonyms.
+
+The return values are more "cooked" than the L</charinfo()> ones.  For
+example, the C<"uc"> property value is the actual string containing the full
+uppercase mapping of the input code point.  You have to go to extra trouble
+with C<charinfo> to get this value from its C<upper> hash element when the
+full mapping differs from the simple one.
+
+Special note should be made of the return values for a few properties:
+
+=over
+
+=item Block
+
+The value returned is the new-style (see L</Old-style versus new-style block
+names>).
+
+=item Decomposition_Mapping
+
+Like L</charinfo()>, the result may be an intermediate decomposition whose
+components are also decomposable.  Use L<Unicode::Normalize> to get the final
+decomposition in one step.
+
+Unlike L</charinfo()>, this does not include the decomposition type.  Use the
+C<Decomposition_Type> property to get that.
+
+=item Name_Alias
+
+If the input code point's name has more than one synonym, they are returned
+joined into a single comma-separated string.
+
+=item Numeric_Value
+
+If the result is a fraction, it is converted into a floating point number to
+the accuracy of your platform.
+
+=item Script_Extensions
+
+If the result is multiple script names, they are returned joined into a single
+comma-separated string.
+
+=back
+
+When called with a property that is a Perl extension that isn't expressible in
+a compound form, this function currently returns C<undef>, as the only two
+possible values are I<true> or I<false> (1 or 0 I suppose).  This behavior may
+change in the future, so don't write code that relies on it.  C<Present_In> is
+a Perl extension that is expressible in a bipartite or compound form (for
+example, C<\p{Present_In=4.0}>), so C<charprop> accepts it.  But C<Any> is a
+Perl extension that isn't expressible that way, so C<charprop> returns
+C<undef> for it.  Also C<charprop> returns C<undef> for all Perl extensions
+that are internal-only.
+
+=cut
+
+sub charprop ($$) {
+    my ($input_cp, $prop) = @_;
+
+    my $cp = _getcode($input_cp);
+    croak __PACKAGE__, "::charprop: unknown code point '$input_cp'" unless defined $cp;
+
+    my ($list_ref, $map_ref, $format, $default)
+                                      = prop_invmap($prop);
+    return undef unless defined $list_ref;
+
+    my $i = search_invlist($list_ref, $cp);
+    croak __PACKAGE__, "::charprop: prop_invmap return is invalid for charprop('$input_cp', '$prop)" unless defined $i;
+
+    # $i is the index into both the inversion list and map of $cp.
+    my $map = $map_ref->[$i];
+
+    # Convert enumeration values to their most complete form.
+    if (! ref $map) {
+        my $long_form = prop_value_aliases($prop, $map);
+        $map = $long_form if defined $long_form;
+    }
+
+    if ($format =~ / ^ s /x) {  # Scalars
+        return join ",", @$map if ref $map; # Convert to scalar with comma
+                                            # separated array elements
+
+        # Resolve ambiguity as to whether an all digit value is a code point
+        # that should be converted to a character, or whether it is really
+        # just a number.  To do this, look at the default.  If it is a
+        # non-empty number, we can safely assume the result is also a number.
+        if ($map =~ / ^ \d+ $ /ax && $default !~ / ^ \d+ $ /ax) {
+            $map = chr $map;
+        }
+        elsif ($map =~ / ^ (?: Y | N ) $ /x) {
+
+            # prop_invmap() returns these values for properties that are Perl
+            # extensions.  But this is misleading.  For now, return undef for
+            # these, as currently documented.
+            undef $map unless
+                exists $Unicode::UCD::prop_aliases{utf8::_loose_name(lc $prop)};
+        }
+        return $map;
+    }
+    elsif ($format eq 'ar') {   # numbers, including rationals
+        my $offset = $cp - $list_ref->[$i];
+        return $map if $map =~ /nan/i;
+        return $map + $offset if $offset != 0;  # If needs adjustment
+        return eval $map;   # Convert e.g., 1/2 to 0.5
+    }
+    elsif ($format =~ /^a/) {   # Some entries need adjusting
+
+        # Linearize sequences into a string.
+        return join "", map { chr $_ } @$map if ref $map; # XXX && $format =~ /^ a [dl] /x;
+
+        return "" if $map eq "" && $format =~ /^a.*e/;
+
+        # These are all character mappings.  Return the chr if no adjustment
+        # is needed
+        return chr $cp if $map eq "0";
+
+        # Convert special entry.
+        if ($map eq '<hangul syllable>' && $format eq 'ad') {
+            use Unicode::Normalize qw(NFD);
+            return NFD(chr $cp);
+        }
+
+        # The rest need adjustment from the first entry in the inversion list
+        # corresponding to this map.
+        my $offset = $cp - $list_ref->[$i];
+        return chr($map + $cp - $list_ref->[$i]);
+    }
+    elsif ($format eq 'n') {    # The name property
+
+        # There are two special cases, handled here.
+        if ($map =~ / ( .+ ) <code\ point> $ /x) {
+            $map = sprintf("$1%04X", $cp);
+        }
+        elsif ($map eq '<hangul syllable>') {
+            $map = charnames::viacode($cp);
+        }
+        return $map;
+    }
+    else {
+        croak __PACKAGE__, "::charprop: Internal error: unknown format '$format'.  Please perlbug this";
+    }
+}
+
+=head2 B<charprops_all()>
+
+    use Unicode::UCD 'charprops_all';
+
+    my $%properties_of_A_hash_ref = charprops_all("U+41");
+
+This returns a reference to a hash whose keys are all the distinct Unicode (no
+Perl extension) properties, and whose values are the respective values for
+those properties for the input L</code point argument>.
+
+Each key is the property name in its longest, most descriptive form.  The
+values are what L</charprop()> would return.
+
+This function is expensive in time and memory.
+
+=cut
+
+sub charprops_all($) {
+    my $input_cp = shift;
+
+    my $cp = _getcode($input_cp);
+    croak __PACKAGE__, "::charprops_all: unknown code point '$input_cp'" unless defined $cp;
+
+    my %return;
+
+    require "unicore/UCD.pl";
+
+    foreach my $prop (keys %Unicode::UCD::prop_aliases) {
+
+        # Don't return a Perl extension.  (This is the only one that
+        # %prop_aliases has in it.)
+        next if $prop eq 'perldecimaldigit';
+
+        # Use long name for $prop in the hash
+        $return{scalar prop_aliases($prop)} = charprop($cp, $prop);
+    }
+
+    return \%return;
+}
+
+=head2 B<charblock()>
+
+    use Unicode::UCD 'charblock';
+
+    my $charblock = charblock(0x41);
+    my $charblock = charblock(1234);
+    my $charblock = charblock(0x263a);
+    my $charblock = charblock("U+263a");
+
+    my $range     = charblock('Armenian');
+
+With a L</code point argument> C<charblock()> returns the I<block> the code point
+belongs to, e.g.  C<Basic Latin>.  The old-style block name is returned (see
+L</Old-style versus new-style block names>).
+The L</prop_value_aliases()> function can be used to get all the synonyms
+of the block name.
+
+If the code point is unassigned, this returns the block it would belong to if
+it were assigned.  (If the Unicode version being used is so early as to not
+have blocks, all code points are considered to be in C<No_Block>.)
+
+See also L</Blocks versus Scripts>.
+
+If supplied with an argument that can't be a code point, C<charblock()> tries to
+do the opposite and interpret the argument as an old-style block name.  On an
+ASCII platform, the return value is a I<range set> with one range: an
+anonymous array with a single element that consists of another anonymous array
+whose first element is the first code point in the block, and whose second
+element is the final code point in the block.  On an EBCDIC
+platform, the first two Unicode blocks are not contiguous.  Their range sets
+are lists containing I<start-of-range>, I<end-of-range> code point pairs.  You
+can test whether a code point is in a range set using the L</charinrange()>
+function.  (To be precise, each I<range set> contains a third array element,
+after the range boundary ones: the old_style block name.)
+
+If the argument to C<charblock()> is not a known block, C<undef> is
+returned.
+
+=cut
+
+my @BLOCKS;
+my %BLOCKS;
+
+sub _charblocks {
+
+    # Can't read from the mktables table because it loses the hyphens in the
+    # original.
+    unless (@BLOCKS) {
+        UnicodeVersion() unless defined $v_unicode_version;
+        if ($v_unicode_version lt v2.0.0) {
+            my $subrange = [ 0, 0x10FFFF, 'No_Block' ];
+            push @BLOCKS, $subrange;
+            push @{$BLOCKS{'No_Block'}}, $subrange;
+        }
+        elsif (openunicode(\$BLOCKSFH, "Blocks.txt")) {
+	    local $_;
+	    local $/ = "\n";
+	    while (<$BLOCKSFH>) {
+
+                # Old versions used a different syntax to mark the range.
+                $_ =~ s/;\s+/../ if $v_unicode_version lt v3.1.0;
+
+		if (/^([0-9A-F]+)\.\.([0-9A-F]+);\s+(.+)/) {
+		    my ($lo, $hi) = (hex($1), hex($2));
+		    my $subrange = [ $lo, $hi, $3 ];
+		    push @BLOCKS, $subrange;
+		    push @{$BLOCKS{$3}}, $subrange;
+		}
+	    }
+	    close($BLOCKSFH);
+            if (! IS_ASCII_PLATFORM) {
+                # The first two blocks, through 0xFF, are wrong on EBCDIC
+                # platforms.
+
+                my @new_blocks = _read_table("To/Blk.pl");
+
+                # Get rid of the first two ranges in the Unicode version, and
+                # replace them with the ones computed by mktables.
+                shift @BLOCKS;
+                shift @BLOCKS;
+                delete $BLOCKS{'Basic Latin'};
+                delete $BLOCKS{'Latin-1 Supplement'};
+
+                # But there are multiple entries in the computed versions, and
+                # we change their names to (which we know) to be the old-style
+                # ones.
+                for my $i (0.. @new_blocks - 1) {
+                    if ($new_blocks[$i][2] =~ s/Basic_Latin/Basic Latin/
+                        or $new_blocks[$i][2] =~
+                                    s/Latin_1_Supplement/Latin-1 Supplement/)
+                    {
+                        push @{$BLOCKS{$new_blocks[$i][2]}}, $new_blocks[$i];
+                    }
+                    else {
+                        splice @new_blocks, $i;
+                        last;
+                    }
+                }
+                unshift @BLOCKS, @new_blocks;
+            }
+	}
+    }
+}
+
+sub charblock {
+    my $arg = shift;
+
+    _charblocks() unless @BLOCKS;
+
+    my $code = _getcode($arg);
+
+    if (defined $code) {
+	my $result = _search(\@BLOCKS, 0, $#BLOCKS, $code);
+        return $result if defined $result;
+        return 'No_Block';
+    }
+    elsif (exists $BLOCKS{$arg}) {
+        return _dclone $BLOCKS{$arg};
+    }
+
+    carp __PACKAGE__, "::charblock: unknown code '$arg'";
+    return;
+}
+
+=head2 B<charscript()>
+
+    use Unicode::UCD 'charscript';
+
+    my $charscript = charscript(0x41);
+    my $charscript = charscript(1234);
+    my $charscript = charscript("U+263a");
+
+    my $range      = charscript('Thai');
+
+With a L</code point argument>, C<charscript()> returns the I<script> the
+code point belongs to, e.g., C<Latin>, C<Greek>, C<Han>.
+If the code point is unassigned or the Unicode version being used is so early
+that it doesn't have scripts, this function returns C<"Unknown">.
+The L</prop_value_aliases()> function can be used to get all the synonyms
+of the script name.
+
+If supplied with an argument that can't be a code point, charscript() tries
+to do the opposite and interpret the argument as a script name. The
+return value is a I<range set>: an anonymous array of arrays that contain
+I<start-of-range>, I<end-of-range> code point pairs. You can test whether a
+code point is in a range set using the L</charinrange()> function.
+(To be precise, each I<range set> contains a third array element,
+after the range boundary ones: the script name.)
+
+If the C<charscript()> argument is not a known script, C<undef> is returned.
+
+See also L</Blocks versus Scripts>.
+
+=cut
+
+my @SCRIPTS;
+my %SCRIPTS;
+
+sub _charscripts {
+    unless (@SCRIPTS) {
+        UnicodeVersion() unless defined $v_unicode_version;
+        if ($v_unicode_version lt v3.1.0) {
+            push @SCRIPTS, [ 0, 0x10FFFF, 'Unknown' ];
+        }
+        else {
+            @SCRIPTS =_read_table("To/Sc.pl");
+        }
+    }
+    foreach my $entry (@SCRIPTS) {
+        $entry->[2] =~ s/(_\w)/\L$1/g;  # Preserve old-style casing
+        push @{$SCRIPTS{$entry->[2]}}, $entry;
+    }
+}
+
+sub charscript {
+    my $arg = shift;
+
+    _charscripts() unless @SCRIPTS;
+
+    my $code = _getcode($arg);
+
+    if (defined $code) {
+	my $result = _search(\@SCRIPTS, 0, $#SCRIPTS, $code);
+        return $result if defined $result;
+        return $utf8::SwashInfo{'ToSc'}{'missing'};
+    } elsif (exists $SCRIPTS{$arg}) {
+        return _dclone $SCRIPTS{$arg};
+    }
+
+    carp __PACKAGE__, "::charscript: unknown code '$arg'";
+    return;
+}
+
+=head2 B<charblocks()>
+
+    use Unicode::UCD 'charblocks';
+
+    my $charblocks = charblocks();
+
+C<charblocks()> returns a reference to a hash with the known block names
+as the keys, and the code point ranges (see L</charblock()>) as the values.
+
+The names are in the old-style (see L</Old-style versus new-style block
+names>).
+
+L<prop_invmap("block")|/prop_invmap()> can be used to get this same data in a
+different type of data structure.
+
+L<prop_values("Block")|/prop_values()> can be used to get all
+the known new-style block names as a list, without the code point ranges.
+
+See also L</Blocks versus Scripts>.
+
+=cut
+
+sub charblocks {
+    _charblocks() unless %BLOCKS;
+    return _dclone \%BLOCKS;
+}
+
+=head2 B<charscripts()>
+
+    use Unicode::UCD 'charscripts';
+
+    my $charscripts = charscripts();
+
+C<charscripts()> returns a reference to a hash with the known script
+names as the keys, and the code point ranges (see L</charscript()>) as
+the values.
+
+L<prop_invmap("script")|/prop_invmap()> can be used to get this same data in a
+different type of data structure.
+
+L<C<prop_values("Script")>|/prop_values()> can be used to get all
+the known script names as a list, without the code point ranges.
+
+See also L</Blocks versus Scripts>.
+
+=cut
+
+sub charscripts {
+    _charscripts() unless %SCRIPTS;
+    return _dclone \%SCRIPTS;
+}
+
+=head2 B<charinrange()>
+
+In addition to using the C<\p{Blk=...}> and C<\P{Blk=...}> constructs, you
+can also test whether a code point is in the I<range> as returned by
+L</charblock()> and L</charscript()> or as the values of the hash returned
+by L</charblocks()> and L</charscripts()> by using C<charinrange()>:
+
+    use Unicode::UCD qw(charscript charinrange);
+
+    $range = charscript('Hiragana');
+    print "looks like hiragana\n" if charinrange($range, $codepoint);
+
+=cut
+
+my %GENERAL_CATEGORIES =
+ (
+    'L'  =>         'Letter',
+    'LC' =>         'CasedLetter',
+    'Lu' =>         'UppercaseLetter',
+    'Ll' =>         'LowercaseLetter',
+    'Lt' =>         'TitlecaseLetter',
+    'Lm' =>         'ModifierLetter',
+    'Lo' =>         'OtherLetter',
+    'M'  =>         'Mark',
+    'Mn' =>         'NonspacingMark',
+    'Mc' =>         'SpacingMark',
+    'Me' =>         'EnclosingMark',
+    'N'  =>         'Number',
+    'Nd' =>         'DecimalNumber',
+    'Nl' =>         'LetterNumber',
+    'No' =>         'OtherNumber',
+    'P'  =>         'Punctuation',
+    'Pc' =>         'ConnectorPunctuation',
+    'Pd' =>         'DashPunctuation',
+    'Ps' =>         'OpenPunctuation',
+    'Pe' =>         'ClosePunctuation',
+    'Pi' =>         'InitialPunctuation',
+    'Pf' =>         'FinalPunctuation',
+    'Po' =>         'OtherPunctuation',
+    'S'  =>         'Symbol',
+    'Sm' =>         'MathSymbol',
+    'Sc' =>         'CurrencySymbol',
+    'Sk' =>         'ModifierSymbol',
+    'So' =>         'OtherSymbol',
+    'Z'  =>         'Separator',
+    'Zs' =>         'SpaceSeparator',
+    'Zl' =>         'LineSeparator',
+    'Zp' =>         'ParagraphSeparator',
+    'C'  =>         'Other',
+    'Cc' =>         'Control',
+    'Cf' =>         'Format',
+    'Cs' =>         'Surrogate',
+    'Co' =>         'PrivateUse',
+    'Cn' =>         'Unassigned',
+ );
+
+sub general_categories {
+    return _dclone \%GENERAL_CATEGORIES;
+}
+
+=head2 B<general_categories()>
+
+    use Unicode::UCD 'general_categories';
+
+    my $categories = general_categories();
+
+This returns a reference to a hash which has short
+general category names (such as C<Lu>, C<Nd>, C<Zs>, C<S>) as keys and long
+names (such as C<UppercaseLetter>, C<DecimalNumber>, C<SpaceSeparator>,
+C<Symbol>) as values.  The hash is reversible in case you need to go
+from the long names to the short names.  The general category is the
+one returned from
+L</charinfo()> under the C<category> key.
+
+The L</prop_values()> and L</prop_value_aliases()> functions can be used as an
+alternative to this function; the first returning a simple list of the short
+category names; and the second gets all the synonyms of a given category name.
+
+=cut
+
+my %BIDI_TYPES =
+ (
+   'L'   => 'Left-to-Right',
+   'LRE' => 'Left-to-Right Embedding',
+   'LRO' => 'Left-to-Right Override',
+   'R'   => 'Right-to-Left',
+   'AL'  => 'Right-to-Left Arabic',
+   'RLE' => 'Right-to-Left Embedding',
+   'RLO' => 'Right-to-Left Override',
+   'PDF' => 'Pop Directional Format',
+   'EN'  => 'European Number',
+   'ES'  => 'European Number Separator',
+   'ET'  => 'European Number Terminator',
+   'AN'  => 'Arabic Number',
+   'CS'  => 'Common Number Separator',
+   'NSM' => 'Non-Spacing Mark',
+   'BN'  => 'Boundary Neutral',
+   'B'   => 'Paragraph Separator',
+   'S'   => 'Segment Separator',
+   'WS'  => 'Whitespace',
+   'ON'  => 'Other Neutrals',
+ ); 
+
+=head2 B<bidi_types()>
+
+    use Unicode::UCD 'bidi_types';
+
+    my $categories = bidi_types();
+
+This returns a reference to a hash which has the short
+bidi (bidirectional) type names (such as C<L>, C<R>) as keys and long
+names (such as C<Left-to-Right>, C<Right-to-Left>) as values.  The
+hash is reversible in case you need to go from the long names to the
+short names.  The bidi type is the one returned from
+L</charinfo()>
+under the C<bidi> key.  For the exact meaning of the various bidi classes
+the Unicode TR9 is recommended reading:
+L<http://www.unicode.org/reports/tr9/>
+(as of Unicode 5.0.0)
+
+The L</prop_values()> and L</prop_value_aliases()> functions can be used as an
+alternative to this function; the first returning a simple list of the short
+bidi type names; and the second gets all the synonyms of a given bidi type
+name.
+
+=cut
+
+sub bidi_types {
+    return _dclone \%BIDI_TYPES;
+}
+
+=head2 B<compexcl()>
+
+    use Unicode::UCD 'compexcl';
+
+    my $compexcl = compexcl(0x09dc);
+
+This routine returns C<undef> if the Unicode version being used is so early
+that it doesn't have this property.
+
+C<compexcl()> is included for backwards
+compatibility, but as of Perl 5.12 and more modern Unicode versions, for
+most purposes it is probably more convenient to use one of the following
+instead:
+
+    my $compexcl = chr(0x09dc) =~ /\p{Comp_Ex};
+    my $compexcl = chr(0x09dc) =~ /\p{Full_Composition_Exclusion};
+
+or even
+
+    my $compexcl = chr(0x09dc) =~ /\p{CE};
+    my $compexcl = chr(0x09dc) =~ /\p{Composition_Exclusion};
+
+The first two forms return B<true> if the L</code point argument> should not
+be produced by composition normalization.  For the final two forms to return
+B<true>, it is additionally required that this fact not otherwise be
+determinable from the Unicode data base.
+
+This routine behaves identically to the final two forms.  That is,
+it does not return B<true> if the code point has a decomposition
+consisting of another single code point, nor if its decomposition starts
+with a code point whose combining class is non-zero.  Code points that meet
+either of these conditions should also not be produced by composition
+normalization, which is probably why you should use the
+C<Full_Composition_Exclusion> property instead, as shown above.
+
+The routine returns B<false> otherwise.
+
+=cut
+
+# Eval'd so can run on versions earlier than the property is available in
+my $Composition_Exclusion_re = eval 'qr/\p{Composition_Exclusion}/';
+
+sub compexcl {
+    my $arg  = shift;
+    my $code = _getcode($arg);
+    croak __PACKAGE__, "::compexcl: unknown code '$arg'"
+	unless defined $code;
+
+    UnicodeVersion() unless defined $v_unicode_version;
+    return if $v_unicode_version lt v3.0.0;
+
+    no warnings "non_unicode";     # So works on non-Unicode code points
+    return chr($code) =~ $Composition_Exclusion_re
+}
+
+=head2 B<casefold()>
+
+    use Unicode::UCD 'casefold';
+
+    my $casefold = casefold(0xDF);
+    if (defined $casefold) {
+        my @full_fold_hex = split / /, $casefold->{'full'};
+        my $full_fold_string =
+                    join "", map {chr(hex($_))} @full_fold_hex;
+        my @turkic_fold_hex =
+                        split / /, ($casefold->{'turkic'} ne "")
+                                        ? $casefold->{'turkic'}
+                                        : $casefold->{'full'};
+        my $turkic_fold_string =
+                        join "", map {chr(hex($_))} @turkic_fold_hex;
+    }
+    if (defined $casefold && $casefold->{'simple'} ne "") {
+        my $simple_fold_hex = $casefold->{'simple'};
+        my $simple_fold_string = chr(hex($simple_fold_hex));
+    }
+
+This returns the (almost) locale-independent case folding of the
+character specified by the L</code point argument>.  (Starting in Perl v5.16,
+the core function C<fc()> returns the C<full> mapping (described below)
+faster than this does, and for entire strings.)
+
+If there is no case folding for the input code point, C<undef> is returned.
+
+If there is a case folding for that code point, a reference to a hash
+with the following fields is returned:
+
+=over
+
+=item B<code>
+
+the input native L</code point argument> expressed in hexadecimal, with
+leading zeros
+added if necessary to make it contain at least four hexdigits
+
+=item B<full>
+
+one or more codes (separated by spaces) that, taken in order, give the
+code points for the case folding for I<code>.
+Each has at least four hexdigits.
+
+=item B<simple>
+
+is empty, or is exactly one code with at least four hexdigits which can be used
+as an alternative case folding when the calling program cannot cope with the
+fold being a sequence of multiple code points.  If I<full> is just one code
+point, then I<simple> equals I<full>.  If there is no single code point folding
+defined for I<code>, then I<simple> is the empty string.  Otherwise, it is an
+inferior, but still better-than-nothing alternative folding to I<full>.
+
+=item B<mapping>
+
+is the same as I<simple> if I<simple> is not empty, and it is the same as I<full>
+otherwise.  It can be considered to be the simplest possible folding for
+I<code>.  It is defined primarily for backwards compatibility.
+
+=item B<status>
+
+is C<C> (for C<common>) if the best possible fold is a single code point
+(I<simple> equals I<full> equals I<mapping>).  It is C<S> if there are distinct
+folds, I<simple> and I<full> (I<mapping> equals I<simple>).  And it is C<F> if
+there is only a I<full> fold (I<mapping> equals I<full>; I<simple> is empty).
+Note that this
+describes the contents of I<mapping>.  It is defined primarily for backwards
+compatibility.
+
+For Unicode versions between 3.1 and 3.1.1 inclusive, I<status> can also be
+C<I> which is the same as C<C> but is a special case for dotted uppercase I and
+dotless lowercase i:
+
+=over
+
+=item Z<>B<*> If you use this C<I> mapping
+
+the result is case-insensitive,
+but dotless and dotted I's are not distinguished
+
+=item Z<>B<*> If you exclude this C<I> mapping
+
+the result is not fully case-insensitive, but
+dotless and dotted I's are distinguished
+
+=back
+
+=item B<turkic>
+
+contains any special folding for Turkic languages.  For versions of Unicode
+starting with 3.2, this field is empty unless I<code> has a different folding
+in Turkic languages, in which case it is one or more codes (separated by
+spaces) that, taken in order, give the code points for the case folding for
+I<code> in those languages.
+Each code has at least four hexdigits.
+Note that this folding does not maintain canonical equivalence without
+additional processing.
+
+For Unicode versions between 3.1 and 3.1.1 inclusive, this field is empty unless
+there is a
+special folding for Turkic languages, in which case I<status> is C<I>, and
+I<mapping>, I<full>, I<simple>, and I<turkic> are all equal.  
+
+=back
+
+Programs that want complete generality and the best folding results should use
+the folding contained in the I<full> field.  But note that the fold for some
+code points will be a sequence of multiple code points.
+
+Programs that can't cope with the fold mapping being multiple code points can
+use the folding contained in the I<simple> field, with the loss of some
+generality.  In Unicode 5.1, about 7% of the defined foldings have no single
+code point folding.
+
+The I<mapping> and I<status> fields are provided for backwards compatibility for
+existing programs.  They contain the same values as in previous versions of
+this function.
+
+Locale is not completely independent.  The I<turkic> field contains results to
+use when the locale is a Turkic language.
+
+For more information about case mappings see
+L<http://www.unicode.org/unicode/reports/tr21>
+
+=cut
+
+my %CASEFOLD;
+
+sub _casefold {
+    unless (%CASEFOLD) {   # Populate the hash
+        my ($full_invlist_ref, $full_invmap_ref, undef, $default)
+                                                = prop_invmap('Case_Folding');
+
+        # Use the recipe given in the prop_invmap() pod to convert the
+        # inversion map into the hash.
+        for my $i (0 .. @$full_invlist_ref - 1 - 1) {
+            next if $full_invmap_ref->[$i] == $default;
+            my $adjust = -1;
+            for my $j ($full_invlist_ref->[$i] .. $full_invlist_ref->[$i+1] -1) {
+                $adjust++;
+                if (! ref $full_invmap_ref->[$i]) {
+
+                    # This is a single character mapping
+                    $CASEFOLD{$j}{'status'} = 'C';
+                    $CASEFOLD{$j}{'simple'}
+                        = $CASEFOLD{$j}{'full'}
+                        = $CASEFOLD{$j}{'mapping'}
+                        = sprintf("%04X", $full_invmap_ref->[$i] + $adjust);
+                    $CASEFOLD{$j}{'code'} = sprintf("%04X", $j);
+                    $CASEFOLD{$j}{'turkic'} = "";
+                }
+                else {  # prop_invmap ensures that $adjust is 0 for a ref
+                    $CASEFOLD{$j}{'status'} = 'F';
+                    $CASEFOLD{$j}{'full'}
+                    = $CASEFOLD{$j}{'mapping'}
+                    = join " ", map { sprintf "%04X", $_ }
+                                                    @{$full_invmap_ref->[$i]};
+                    $CASEFOLD{$j}{'simple'} = "";
+                    $CASEFOLD{$j}{'code'} = sprintf("%04X", $j);
+                    $CASEFOLD{$j}{'turkic'} = "";
+                }
+            }
+        }
+
+        # We have filled in the full mappings above, assuming there were no
+        # simple ones for the ones with multi-character maps.  Now, we find
+        # and fix the cases where that assumption was false.
+        (my ($simple_invlist_ref, $simple_invmap_ref, undef), $default)
+                                        = prop_invmap('Simple_Case_Folding');
+        for my $i (0 .. @$simple_invlist_ref - 1 - 1) {
+            next if $simple_invmap_ref->[$i] == $default;
+            my $adjust = -1;
+            for my $j ($simple_invlist_ref->[$i]
+                       .. $simple_invlist_ref->[$i+1] -1)
+            {
+                $adjust++;
+                next if $CASEFOLD{$j}{'status'} eq 'C';
+                $CASEFOLD{$j}{'status'} = 'S';
+                $CASEFOLD{$j}{'simple'}
+                    = $CASEFOLD{$j}{'mapping'}
+                    = sprintf("%04X", $simple_invmap_ref->[$i] + $adjust);
+                $CASEFOLD{$j}{'code'} = sprintf("%04X", $j);
+                $CASEFOLD{$j}{'turkic'} = "";
+            }
+        }
+
+        # We hard-code in the turkish rules
+        UnicodeVersion() unless defined $v_unicode_version;
+        if ($v_unicode_version ge v3.2.0) {
+
+            # These two code points should already have regular entries, so
+            # just fill in the turkish fields
+            $CASEFOLD{ord('I')}{'turkic'} = '0131';
+            $CASEFOLD{0x130}{'turkic'} = sprintf "%04X", ord('i');
+        }
+        elsif ($v_unicode_version ge v3.1.0) {
+
+            # These two code points don't have entries otherwise.
+            $CASEFOLD{0x130}{'code'} = '0130';
+            $CASEFOLD{0x131}{'code'} = '0131';
+            $CASEFOLD{0x130}{'status'} = $CASEFOLD{0x131}{'status'} = 'I';
+            $CASEFOLD{0x130}{'turkic'}
+                = $CASEFOLD{0x130}{'mapping'}
+                = $CASEFOLD{0x130}{'full'}
+                = $CASEFOLD{0x130}{'simple'}
+                = $CASEFOLD{0x131}{'turkic'}
+                = $CASEFOLD{0x131}{'mapping'}
+                = $CASEFOLD{0x131}{'full'}
+                = $CASEFOLD{0x131}{'simple'}
+                = sprintf "%04X", ord('i');
+        }
+    }
+}
+
+sub casefold {
+    my $arg  = shift;
+    my $code = _getcode($arg);
+    croak __PACKAGE__, "::casefold: unknown code '$arg'"
+	unless defined $code;
+
+    _casefold() unless %CASEFOLD;
+
+    return $CASEFOLD{$code};
+}
+
+=head2 B<all_casefolds()>
+
+
+    use Unicode::UCD 'all_casefolds';
+
+    my $all_folds_ref = all_casefolds();
+    foreach my $char_with_casefold (sort { $a <=> $b }
+                                    keys %$all_folds_ref)
+    {
+        printf "%04X:", $char_with_casefold;
+        my $casefold = $all_folds_ref->{$char_with_casefold};
+
+        # Get folds for $char_with_casefold
+
+        my @full_fold_hex = split / /, $casefold->{'full'};
+        my $full_fold_string =
+                    join "", map {chr(hex($_))} @full_fold_hex;
+        print " full=", join " ", @full_fold_hex;
+        my @turkic_fold_hex =
+                        split / /, ($casefold->{'turkic'} ne "")
+                                        ? $casefold->{'turkic'}
+                                        : $casefold->{'full'};
+        my $turkic_fold_string =
+                        join "", map {chr(hex($_))} @turkic_fold_hex;
+        print "; turkic=", join " ", @turkic_fold_hex;
+        if (defined $casefold && $casefold->{'simple'} ne "") {
+            my $simple_fold_hex = $casefold->{'simple'};
+            my $simple_fold_string = chr(hex($simple_fold_hex));
+            print "; simple=$simple_fold_hex";
+        }
+        print "\n";
+    }
+
+This returns all the case foldings in the current version of Unicode in the
+form of a reference to a hash.  Each key to the hash is the decimal
+representation of a Unicode character that has a casefold to other than
+itself.  The casefold of a semi-colon is itself, so it isn't in the hash;
+likewise for a lowercase "a", but there is an entry for a capital "A".  The
+hash value for each key is another hash, identical to what is returned by
+L</casefold()> if called with that code point as its argument.  So the value
+C<< all_casefolds()->{ord("A")}' >> is equivalent to C<casefold(ord("A"))>;
+
+=cut
+
+sub all_casefolds () {
+    _casefold() unless %CASEFOLD;
+    return _dclone \%CASEFOLD;
+}
+
+=head2 B<casespec()>
+
+    use Unicode::UCD 'casespec';
+
+    my $casespec = casespec(0xFB00);
+
+This returns the potentially locale-dependent case mappings of the L</code point
+argument>.  The mappings may be longer than a single code point (which the basic
+Unicode case mappings as returned by L</charinfo()> never are).
+
+If there are no case mappings for the L</code point argument>, or if all three
+possible mappings (I<lower>, I<title> and I<upper>) result in single code
+points and are locale independent and unconditional, C<undef> is returned
+(which means that the case mappings, if any, for the code point are those
+returned by L</charinfo()>).
+
+Otherwise, a reference to a hash giving the mappings (or a reference to a hash
+of such hashes, explained below) is returned with the following keys and their
+meanings:
+
+The keys in the bottom layer hash with the meanings of their values are:
+
+=over
+
+=item B<code>
+
+the input native L</code point argument> expressed in hexadecimal, with
+leading zeros
+added if necessary to make it contain at least four hexdigits
+
+=item B<lower>
+
+one or more codes (separated by spaces) that, taken in order, give the
+code points for the lower case of I<code>.
+Each has at least four hexdigits.
+
+=item B<title>
+
+one or more codes (separated by spaces) that, taken in order, give the
+code points for the title case of I<code>.
+Each has at least four hexdigits.
+
+=item B<upper>
+
+one or more codes (separated by spaces) that, taken in order, give the
+code points for the upper case of I<code>.
+Each has at least four hexdigits.
+
+=item B<condition>
+
+the conditions for the mappings to be valid.
+If C<undef>, the mappings are always valid.
+When defined, this field is a list of conditions,
+all of which must be true for the mappings to be valid.
+The list consists of one or more
+I<locales> (see below)
+and/or I<contexts> (explained in the next paragraph),
+separated by spaces.
+(Other than as used to separate elements, spaces are to be ignored.)
+Case distinctions in the condition list are not significant.
+Conditions preceded by "NON_" represent the negation of the condition.
+
+A I<context> is one of those defined in the Unicode standard.
+For Unicode 5.1, they are defined in Section 3.13 C<Default Case Operations>
+available at
+L<http://www.unicode.org/versions/Unicode5.1.0/>.
+These are for context-sensitive casing.
+
+=back
+
+The hash described above is returned for locale-independent casing, where
+at least one of the mappings has length longer than one.  If C<undef> is
+returned, the code point may have mappings, but if so, all are length one,
+and are returned by L</charinfo()>.
+Note that when this function does return a value, it will be for the complete
+set of mappings for a code point, even those whose length is one.
+
+If there are additional casing rules that apply only in certain locales,
+an additional key for each will be defined in the returned hash.  Each such key
+will be its locale name, defined as a 2-letter ISO 3166 country code, possibly
+followed by a "_" and a 2-letter ISO language code (possibly followed by a "_"
+and a variant code).  You can find the lists of all possible locales, see
+L<Locale::Country> and L<Locale::Language>.
+(In Unicode 6.0, the only locales returned by this function
+are C<lt>, C<tr>, and C<az>.)
+
+Each locale key is a reference to a hash that has the form above, and gives
+the casing rules for that particular locale, which take precedence over the
+locale-independent ones when in that locale.
+
+If the only casing for a code point is locale-dependent, then the returned
+hash will not have any of the base keys, like C<code>, C<upper>, etc., but
+will contain only locale keys.
+
+For more information about case mappings see
+L<http://www.unicode.org/unicode/reports/tr21/>
+
+=cut
+
+my %CASESPEC;
+
+sub _casespec {
+    unless (%CASESPEC) {
+        UnicodeVersion() unless defined $v_unicode_version;
+        if ($v_unicode_version lt v2.1.8) {
+            %CASESPEC = {};
+        }
+	elsif (openunicode(\$CASESPECFH, "SpecialCasing.txt")) {
+	    local $_;
+	    local $/ = "\n";
+	    while (<$CASESPECFH>) {
+		if (/^([0-9A-F]+); ([0-9A-F]+(?: [0-9A-F]+)*)?; ([0-9A-F]+(?: [0-9A-F]+)*)?; ([0-9A-F]+(?: [0-9A-F]+)*)?; (\w+(?: \w+)*)?/) {
+
+		    my ($hexcode, $lower, $title, $upper, $condition) =
+			($1, $2, $3, $4, $5);
+                    if (! IS_ASCII_PLATFORM) { # Remap entry to native
+                        foreach my $var_ref (\$hexcode,
+                                             \$lower,
+                                             \$title,
+                                             \$upper)
+                        {
+                            next unless defined $$var_ref;
+                            $$var_ref = join " ",
+                                        map { sprintf("%04X",
+                                              utf8::unicode_to_native(hex $_)) }
+                                        split " ", $$var_ref;
+                        }
+                    }
+
+		    my $code = hex($hexcode);
+
+                    # In 2.1.8, there were duplicate entries; ignore all but
+                    # the first one -- there were no conditions in the file
+                    # anyway.
+		    if (exists $CASESPEC{$code} && $v_unicode_version ne v2.1.8)
+                    {
+			if (exists $CASESPEC{$code}->{code}) {
+			    my ($oldlower,
+				$oldtitle,
+				$oldupper,
+				$oldcondition) =
+				    @{$CASESPEC{$code}}{qw(lower
+							   title
+							   upper
+							   condition)};
+			    if (defined $oldcondition) {
+				my ($oldlocale) =
+				($oldcondition =~ /^([a-z][a-z](?:_\S+)?)/);
+				delete $CASESPEC{$code};
+				$CASESPEC{$code}->{$oldlocale} =
+				{ code      => $hexcode,
+				  lower     => $oldlower,
+				  title     => $oldtitle,
+				  upper     => $oldupper,
+				  condition => $oldcondition };
+			    }
+			}
+			my ($locale) =
+			    ($condition =~ /^([a-z][a-z](?:_\S+)?)/);
+			$CASESPEC{$code}->{$locale} =
+			{ code      => $hexcode,
+			  lower     => $lower,
+			  title     => $title,
+			  upper     => $upper,
+			  condition => $condition };
+		    } else {
+			$CASESPEC{$code} =
+			{ code      => $hexcode,
+			  lower     => $lower,
+			  title     => $title,
+			  upper     => $upper,
+			  condition => $condition };
+		    }
+		}
+	    }
+	    close($CASESPECFH);
+	}
+    }
+}
+
+sub casespec {
+    my $arg  = shift;
+    my $code = _getcode($arg);
+    croak __PACKAGE__, "::casespec: unknown code '$arg'"
+	unless defined $code;
+
+    _casespec() unless %CASESPEC;
+
+    return ref $CASESPEC{$code} ? _dclone $CASESPEC{$code} : $CASESPEC{$code};
+}
+
+=head2 B<namedseq()>
+
+    use Unicode::UCD 'namedseq';
+
+    my $namedseq = namedseq("KATAKANA LETTER AINU P");
+    my @namedseq = namedseq("KATAKANA LETTER AINU P");
+    my %namedseq = namedseq();
+
+If used with a single argument in a scalar context, returns the string
+consisting of the code points of the named sequence, or C<undef> if no
+named sequence by that name exists.  If used with a single argument in
+a list context, it returns the list of the ordinals of the code points.
+
+If used with no
+arguments in a list context, it returns a hash with the names of all the
+named sequences as the keys and their sequences as strings as
+the values.  Otherwise, it returns C<undef> or an empty list depending
+on the context.
+
+This function only operates on officially approved (not provisional) named
+sequences.
+
+Note that as of Perl 5.14, C<\N{KATAKANA LETTER AINU P}> will insert the named
+sequence into double-quoted strings, and C<charnames::string_vianame("KATAKANA
+LETTER AINU P")> will return the same string this function does, but will also
+operate on character names that aren't named sequences, without you having to
+know which are which.  See L<charnames>.
+
+=cut
+
+my %NAMEDSEQ;
+
+sub _namedseq {
+    unless (%NAMEDSEQ) {
+	if (openunicode(\$NAMEDSEQFH, "Name.pl")) {
+	    local $_;
+	    local $/ = "\n";
+	    while (<$NAMEDSEQFH>) {
+		if (/^ [0-9A-F]+ \  /x) {
+                    chomp;
+                    my ($sequence, $name) = split /\t/;
+		    my @s = map { chr(hex($_)) } split(' ', $sequence);
+		    $NAMEDSEQ{$name} = join("", @s);
+		}
+	    }
+	    close($NAMEDSEQFH);
+	}
+    }
+}
+
+sub namedseq {
+
+    # Use charnames::string_vianame() which now returns this information,
+    # unless the caller wants the hash returned, in which case we read it in,
+    # and thereafter use it instead of calling charnames, as it is faster.
+
+    my $wantarray = wantarray();
+    if (defined $wantarray) {
+	if ($wantarray) {
+	    if (@_ == 0) {
+                _namedseq() unless %NAMEDSEQ;
+		return %NAMEDSEQ;
+	    } elsif (@_ == 1) {
+		my $s;
+                if (%NAMEDSEQ) {
+                    $s = $NAMEDSEQ{ $_[0] };
+                }
+                else {
+                    $s = charnames::string_vianame($_[0]);
+                }
+		return defined $s ? map { ord($_) } split('', $s) : ();
+	    }
+	} elsif (@_ == 1) {
+            return $NAMEDSEQ{ $_[0] } if %NAMEDSEQ;
+            return charnames::string_vianame($_[0]);
+	}
+    }
+    return;
+}
+
+my %NUMERIC;
+
+sub _numeric {
+    my @numbers = _read_table("To/Nv.pl");
+    foreach my $entry (@numbers) {
+        my ($start, $end, $value) = @$entry;
+
+        # If value contains a slash, convert to decimal, add a reverse hash
+        # used by charinfo.
+        if ((my @rational = split /\//, $value) == 2) {
+            my $real = $rational[0] / $rational[1];
+            $real_to_rational{$real} = $value;
+            $value = $real;
+
+            # Should only be single element, but just in case...
+            for my $i ($start .. $end) {
+                $NUMERIC{$i} = $value;
+            }
+        }
+        else {
+            # The values require adjusting, as is in 'a' format
+            for my $i ($start .. $end) {
+                $NUMERIC{$i} = $value + $i - $start;
+            }
+        }
+    }
+
+    # Decided unsafe to use these that aren't officially part of the Unicode
+    # standard.
+    #use Math::Trig;
+    #my $pi = acos(-1.0);
+    #$NUMERIC{0x03C0} = $pi;
+
+    # Euler's constant, not to be confused with Euler's number
+    #$NUMERIC{0x2107} = 0.57721566490153286060651209008240243104215933593992;
+
+    # Euler's number
+    #$NUMERIC{0x212F} = 2.7182818284590452353602874713526624977572;
+
+    return;
+}
+
+=pod
+
+=head2 B<num()>
+
+    use Unicode::UCD 'num';
+
+    my $val = num("123");
+    my $one_quarter = num("\N{VULGAR FRACTION 1/4}");
+
+C<num()> returns the numeric value of the input Unicode string; or C<undef> if it
+doesn't think the entire string has a completely valid, safe numeric value.
+
+If the string is just one character in length, the Unicode numeric value
+is returned if it has one, or C<undef> otherwise.  Note that this need
+not be a whole number.  C<num("\N{TIBETAN DIGIT HALF ZERO}")>, for
+example returns -0.5.
+
+=cut
+
+#A few characters to which Unicode doesn't officially
+#assign a numeric value are considered numeric by C<num>.
+#These are:
+
+# EULER CONSTANT             0.5772...  (this is NOT Euler's number)
+# SCRIPT SMALL E             2.71828... (this IS Euler's number)
+# GREEK SMALL LETTER PI      3.14159...
+
+=pod
+
+If the string is more than one character, C<undef> is returned unless
+all its characters are decimal digits (that is, they would match C<\d+>),
+from the same script.  For example if you have an ASCII '0' and a Bengali
+'3', mixed together, they aren't considered a valid number, and C<undef>
+is returned.  A further restriction is that the digits all have to be of
+the same form.  A half-width digit mixed with a full-width one will
+return C<undef>.  The Arabic script has two sets of digits;  C<num> will
+return C<undef> unless all the digits in the string come from the same
+set.
+
+C<num> errs on the side of safety, and there may be valid strings of
+decimal digits that it doesn't recognize.  Note that Unicode defines
+a number of "digit" characters that aren't "decimal digit" characters.
+"Decimal digits" have the property that they have a positional value, i.e.,
+there is a units position, a 10's position, a 100's, etc, AND they are
+arranged in Unicode in blocks of 10 contiguous code points.  The Chinese
+digits, for example, are not in such a contiguous block, and so Unicode
+doesn't view them as decimal digits, but merely digits, and so C<\d> will not
+match them.  A single-character string containing one of these digits will
+have its decimal value returned by C<num>, but any longer string containing
+only these digits will return C<undef>.
+
+Strings of multiple sub- and superscripts are not recognized as numbers.  You
+can use either of the compatibility decompositions in Unicode::Normalize to
+change these into digits, and then call C<num> on the result.
+
+=cut
+
+# To handle sub, superscripts, this could if called in list context,
+# consider those, and return the <decomposition> type in the second
+# array element.
+
+sub num {
+    my $string = $_[0];
+
+    _numeric unless %NUMERIC;
+
+    my $length = length($string);
+    return $NUMERIC{ord($string)} if $length == 1;
+    return if $string =~ /\D/;
+    my $first_ord = ord(substr($string, 0, 1));
+    my $value = $NUMERIC{$first_ord};
+
+    # To be a valid decimal number, it should be in a block of 10 consecutive
+    # characters, whose values are 0, 1, 2, ... 9.  Therefore this digit's
+    # value is its offset in that block from the character that means zero.
+    my $zero_ord = $first_ord - $value;
+
+    # Unicode 6.0 instituted the rule that only digits in a consecutive
+    # block of 10 would be considered decimal digits.  If this is an earlier
+    # release, we verify that this first character is a member of such a
+    # block.  That is, that the block of characters surrounding this one
+    # consists of all \d characters whose numeric values are the expected
+    # ones.
+    UnicodeVersion() unless defined $v_unicode_version;
+    if ($v_unicode_version lt v6.0.0) {
+        for my $i (0 .. 9) {
+            my $ord = $zero_ord + $i;
+            return unless chr($ord) =~ /\d/;
+            my $numeric = $NUMERIC{$ord};
+            return unless defined $numeric;
+            return unless $numeric == $i;
+        }
+    }
+
+    for my $i (1 .. $length -1) {
+
+        # Here we know either by verifying, or by fact of the first character
+        # being a \d in Unicode 6.0 or later, that any character between the
+        # character that means 0, and 9 positions above it must be \d, and
+        # must have its value correspond to its offset from the zero.  Any
+        # characters outside these 10 do not form a legal number for this
+        # function.
+        my $ord = ord(substr($string, $i, 1));
+        my $digit = $ord - $zero_ord;
+        return unless $digit >= 0 && $digit <= 9;
+        $value = $value * 10 + $digit;
+    }
+
+    return $value;
+}
+
+=pod
+
+=head2 B<prop_aliases()>
+
+    use Unicode::UCD 'prop_aliases';
+
+    my ($short_name, $full_name, @other_names) = prop_aliases("space");
+    my $same_full_name = prop_aliases("Space");     # Scalar context
+    my ($same_short_name) = prop_aliases("Space");  # gets 0th element
+    print "The full name is $full_name\n";
+    print "The short name is $short_name\n";
+    print "The other aliases are: ", join(", ", @other_names), "\n";
+
+    prints:
+    The full name is White_Space
+    The short name is WSpace
+    The other aliases are: Space
+
+Most Unicode properties have several synonymous names.  Typically, there is at
+least a short name, convenient to type, and a long name that more fully
+describes the property, and hence is more easily understood.
+
+If you know one name for a Unicode property, you can use C<prop_aliases> to find
+either the long name (when called in scalar context), or a list of all of the
+names, somewhat ordered so that the short name is in the 0th element, the long
+name in the next element, and any other synonyms are in the remaining
+elements, in no particular order.
+
+The long name is returned in a form nicely capitalized, suitable for printing.
+
+The input parameter name is loosely matched, which means that white space,
+hyphens, and underscores are ignored (except for the trailing underscore in
+the old_form grandfathered-in C<"L_">, which is better written as C<"LC">, and
+both of which mean C<General_Category=Cased Letter>).
+
+If the name is unknown, C<undef> is returned (or an empty list in list
+context).  Note that Perl typically recognizes property names in regular
+expressions with an optional C<"Is_>" (with or without the underscore)
+prefixed to them, such as C<\p{isgc=punct}>.  This function does not recognize
+those in the input, returning C<undef>.  Nor are they included in the output
+as possible synonyms.
+
+C<prop_aliases> does know about the Perl extensions to Unicode properties,
+such as C<Any> and C<XPosixAlpha>, and the single form equivalents to Unicode
+properties such as C<XDigit>, C<Greek>, C<In_Greek>, and C<Is_Greek>.  The
+final example demonstrates that the C<"Is_"> prefix is recognized for these
+extensions; it is needed to resolve ambiguities.  For example,
+C<prop_aliases('lc')> returns the list C<(lc, Lowercase_Mapping)>, but
+C<prop_aliases('islc')> returns C<(Is_LC, Cased_Letter)>.  This is
+because C<islc> is a Perl extension which is short for
+C<General_Category=Cased Letter>.  The lists returned for the Perl extensions
+will not include the C<"Is_"> prefix (whether or not the input had it) unless
+needed to resolve ambiguities, as shown in the C<"islc"> example, where the
+returned list had one element containing C<"Is_">, and the other without.
+
+It is also possible for the reverse to happen:  C<prop_aliases('isc')> returns
+the list C<(isc, ISO_Comment)>; whereas C<prop_aliases('c')> returns
+C<(C, Other)> (the latter being a Perl extension meaning
+C<General_Category=Other>.
+L<perluniprops/Properties accessible through Unicode::UCD> lists the available
+forms, including which ones are discouraged from use.
+
+Those discouraged forms are accepted as input to C<prop_aliases>, but are not
+returned in the lists.  C<prop_aliases('isL&')> and C<prop_aliases('isL_')>,
+which are old synonyms for C<"Is_LC"> and should not be used in new code, are
+examples of this.  These both return C<(Is_LC, Cased_Letter)>.  Thus this
+function allows you to take a discouraged form, and find its acceptable
+alternatives.  The same goes with single-form Block property equivalences.
+Only the forms that begin with C<"In_"> are not discouraged; if you pass
+C<prop_aliases> a discouraged form, you will get back the equivalent ones that
+begin with C<"In_">.  It will otherwise look like a new-style block name (see.
+L</Old-style versus new-style block names>).
+
+C<prop_aliases> does not know about any user-defined properties, and will
+return C<undef> if called with one of those.  Likewise for Perl internal
+properties, with the exception of "Perl_Decimal_Digit" which it does know
+about (and which is documented below in L</prop_invmap()>).
+
+=cut
+
+# It may be that there are use cases where the discouraged forms should be
+# returned.  If that comes up, an optional boolean second parameter to the
+# function could be created, for example.
+
+# These are created by mktables for this routine and stored in unicore/UCD.pl
+# where their structures are described.
+our %string_property_loose_to_name;
+our %ambiguous_names;
+our %loose_perlprop_to_name;
+our %prop_aliases;
+
+sub prop_aliases ($) {
+    my $prop = $_[0];
+    return unless defined $prop;
+
+    require "unicore/UCD.pl";
+    require "unicore/Heavy.pl";
+    require "utf8_heavy.pl";
+
+    # The property name may be loosely or strictly matched; we don't know yet.
+    # But both types use lower-case.
+    $prop = lc $prop;
+
+    # It is loosely matched if its lower case isn't known to be strict.
+    my $list_ref;
+    if (! exists $utf8::stricter_to_file_of{$prop}) {
+        my $loose = utf8::_loose_name($prop);
+
+        # There is a hash that converts from any loose name to its standard
+        # form, mapping all synonyms for a  name to one name that can be used
+        # as a key into another hash.  The whole concept is for memory
+        # savings, as the second hash doesn't have to have all the
+        # combinations.  Actually, there are two hashes that do the
+        # converstion.  One is used in utf8_heavy.pl (stored in Heavy.pl) for
+        # looking up properties matchable in regexes.  This function needs to
+        # access string properties, which aren't available in regexes, so a
+        # second conversion hash is made for them (stored in UCD.pl).  Look in
+        # the string one now, as the rest can have an optional 'is' prefix,
+        # which these don't.
+        if (exists $string_property_loose_to_name{$loose}) {
+
+            # Convert to its standard loose name.
+            $prop = $string_property_loose_to_name{$loose};
+        }
+        else {
+            my $retrying = 0;   # bool.  ? Has an initial 'is' been stripped
+        RETRY:
+            if (exists $utf8::loose_property_name_of{$loose}
+                && (! $retrying
+                    || ! exists $ambiguous_names{$loose}))
+            {
+                # Found an entry giving the standard form.  We don't get here
+                # (in the test above) when we've stripped off an
+                # 'is' and the result is an ambiguous name.  That is because
+                # these are official Unicode properties (though Perl can have
+                # an optional 'is' prefix meaning the official property), and
+                # all ambiguous cases involve a Perl single-form extension
+                # for the gc, script, or block properties, and the stripped
+                # 'is' means that they mean one of those, and not one of
+                # these
+                $prop = $utf8::loose_property_name_of{$loose};
+            }
+            elsif (exists $loose_perlprop_to_name{$loose}) {
+
+                # This hash is specifically for this function to list Perl
+                # extensions that aren't in the earlier hashes.  If there is
+                # only one element, the short and long names are identical.
+                # Otherwise the form is already in the same form as
+                # %prop_aliases, which is handled at the end of the function.
+                $list_ref = $loose_perlprop_to_name{$loose};
+                if (@$list_ref == 1) {
+                    my @list = ($list_ref->[0], $list_ref->[0]);
+                    $list_ref = \@list;
+                }
+            }
+            elsif (! exists $utf8::loose_to_file_of{$loose}) {
+
+                # loose_to_file_of is a complete list of loose names.  If not
+                # there, the input is unknown.
+                return;
+            }
+            elsif ($loose =~ / [:=] /x) {
+
+                # Here we found the name but not its aliases, so it has to
+                # exist.  Exclude property-value combinations.  (This shows up
+                # for something like ccc=vr which matches loosely, but is a
+                # synonym for ccc=9 which matches only strictly.
+                return;
+            }
+            else {
+
+                # Here it has to exist, and isn't a property-value
+                # combination.  This means it must be one of the Perl
+                # single-form extensions.  First see if it is for a
+                # property-value combination in one of the following
+                # properties.
+                my @list;
+                foreach my $property ("gc", "script") {
+                    @list = prop_value_aliases($property, $loose);
+                    last if @list;
+                }
+                if (@list) {
+
+                    # Here, it is one of those property-value combination
+                    # single-form synonyms.  There are ambiguities with some
+                    # of these.  Check against the list for these, and adjust
+                    # if necessary.
+                    for my $i (0 .. @list -1) {
+                        if (exists $ambiguous_names
+                                   {utf8::_loose_name(lc $list[$i])})
+                        {
+                            # The ambiguity is resolved by toggling whether or
+                            # not it has an 'is' prefix
+                            $list[$i] =~ s/^Is_// or $list[$i] =~ s/^/Is_/;
+                        }
+                    }
+                    return @list;
+                }
+
+                # Here, it wasn't one of the gc or script single-form
+                # extensions.  It could be a block property single-form
+                # extension.  An 'in' prefix definitely means that, and should
+                # be looked up without the prefix.  However, starting in
+                # Unicode 6.1, we have to special case 'indic...', as there
+                # is a property that begins with that name.   We shouldn't
+                # strip the 'in' from that.   I'm (khw) generalizing this to
+                # 'indic' instead of the single property, because I suspect
+                # that others of this class may come along in the future.
+                # However, this could backfire and a block created whose name
+                # begins with 'dic...', and we would want to strip the 'in'.
+                # At which point this would have to be tweaked.
+                my $began_with_in = $loose =~ s/^in(?!dic)//;
+                @list = prop_value_aliases("block", $loose);
+                if (@list) {
+                    map { $_ =~ s/^/In_/ } @list;
+                    return @list;
+                }
+
+                # Here still haven't found it.  The last opportunity for it
+                # being valid is only if it began with 'is'.  We retry without
+                # the 'is', setting a flag to that effect so that we don't
+                # accept things that begin with 'isis...'
+                if (! $retrying && ! $began_with_in && $loose =~ s/^is//) {
+                    $retrying = 1;
+                    goto RETRY;
+                }
+
+                # Here, didn't find it.  Since it was in %loose_to_file_of, we
+                # should have been able to find it.
+                carp __PACKAGE__, "::prop_aliases: Unexpectedly could not find '$prop'.  Send bug report to perlbug\@perl.org";
+                return;
+            }
+        }
+    }
+
+    if (! $list_ref) {
+        # Here, we have set $prop to a standard form name of the input.  Look
+        # it up in the structure created by mktables for this purpose, which
+        # contains both strict and loosely matched properties.  Avoid
+        # autovivifying.
+        $list_ref = $prop_aliases{$prop} if exists $prop_aliases{$prop};
+        return unless $list_ref;
+    }
+
+    # The full name is in element 1.
+    return $list_ref->[1] unless wantarray;
+
+    return @{_dclone $list_ref};
+}
+
+=pod
+
+=head2 B<prop_values()>
+
+    use Unicode::UCD 'prop_values';
+
+    print "AHex values are: ", join(", ", prop_values("AHex")),
+                               "\n";
+  prints:
+    AHex values are: N, Y
+
+Some Unicode properties have a restricted set of legal values.  For example,
+all binary properties are restricted to just C<true> or C<false>; and there
+are only a few dozen possible General Categories.  Use C<prop_values>
+to find out if a given property is one such, and if so, to get a list of the
+values:
+
+    print join ", ", prop_values("NFC_Quick_Check");
+  prints:
+    M, N, Y
+
+If the property doesn't have such a restricted set, C<undef> is returned.
+
+There are usually several synonyms for each possible value.  Use
+L</prop_value_aliases()> to access those.
+
+Case, white space, hyphens, and underscores are ignored in the input property
+name (except for the trailing underscore in the old-form grandfathered-in
+general category property value C<"L_">, which is better written as C<"LC">).
+
+If the property name is unknown, C<undef> is returned.  Note that Perl typically
+recognizes property names in regular expressions with an optional C<"Is_>"
+(with or without the underscore) prefixed to them, such as C<\p{isgc=punct}>.
+This function does not recognize those in the property parameter, returning
+C<undef>.
+
+For the block property, new-style block names are returned (see
+L</Old-style versus new-style block names>).
+
+C<prop_values> does not know about any user-defined properties, and
+will return C<undef> if called with one of those.
+
+=cut
+
+# These are created by mktables for this module and stored in unicore/UCD.pl
+# where their structures are described.
+our %loose_to_standard_value;
+our %prop_value_aliases;
+
+sub prop_values ($) {
+    my $prop = shift;
+    return undef unless defined $prop;
+
+    require "unicore/UCD.pl";
+    require "utf8_heavy.pl";
+
+    # Find the property name synonym that's used as the key in other hashes,
+    # which is element 0 in the returned list.
+    ($prop) = prop_aliases($prop);
+    return undef if ! $prop;
+    $prop = utf8::_loose_name(lc $prop);
+
+    # Here is a legal property.
+    return undef unless exists $prop_value_aliases{$prop};
+    my @return;
+    foreach my $value_key (sort { lc $a cmp lc $b }
+                            keys %{$prop_value_aliases{$prop}})
+    {
+        push @return, $prop_value_aliases{$prop}{$value_key}[0];
+    }
+    return @return;
+}
+
+=pod
+
+=head2 B<prop_value_aliases()>
+
+    use Unicode::UCD 'prop_value_aliases';
+
+    my ($short_name, $full_name, @other_names)
+                                   = prop_value_aliases("Gc", "Punct");
+    my $same_full_name = prop_value_aliases("Gc", "P");   # Scalar cntxt
+    my ($same_short_name) = prop_value_aliases("Gc", "P"); # gets 0th
+                                                           # element
+    print "The full name is $full_name\n";
+    print "The short name is $short_name\n";
+    print "The other aliases are: ", join(", ", @other_names), "\n";
+
+  prints:
+    The full name is Punctuation
+    The short name is P
+    The other aliases are: Punct
+
+Some Unicode properties have a restricted set of legal values.  For example,
+all binary properties are restricted to just C<true> or C<false>; and there
+are only a few dozen possible General Categories.
+
+You can use L</prop_values()> to find out if a given property is one which has
+a restricted set of values, and if so, what those values are.  But usually
+each value actually has several synonyms.  For example, in Unicode binary
+properties, I<truth> can be represented by any of the strings "Y", "Yes", "T",
+or "True"; and the General Category "Punctuation" by that string, or "Punct",
+or simply "P".
+
+Like property names, there is typically at least a short name for each such
+property-value, and a long name.  If you know any name of the property-value
+(which you can get by L</prop_values()>, you can use C<prop_value_aliases>()
+to get the long name (when called in scalar context), or a list of all the
+names, with the short name in the 0th element, the long name in the next
+element, and any other synonyms in the remaining elements, in no particular
+order, except that any all-numeric synonyms will be last.
+
+The long name is returned in a form nicely capitalized, suitable for printing.
+
+Case, white space, hyphens, and underscores are ignored in the input parameters
+(except for the trailing underscore in the old-form grandfathered-in general
+category property value C<"L_">, which is better written as C<"LC">).
+
+If either name is unknown, C<undef> is returned.  Note that Perl typically
+recognizes property names in regular expressions with an optional C<"Is_>"
+(with or without the underscore) prefixed to them, such as C<\p{isgc=punct}>.
+This function does not recognize those in the property parameter, returning
+C<undef>.
+
+If called with a property that doesn't have synonyms for its values, it
+returns the input value, possibly normalized with capitalization and
+underscores, but not necessarily checking that the input value is valid.
+
+For the block property, new-style block names are returned (see
+L</Old-style versus new-style block names>).
+
+To find the synonyms for single-forms, such as C<\p{Any}>, use
+L</prop_aliases()> instead.
+
+C<prop_value_aliases> does not know about any user-defined properties, and
+will return C<undef> if called with one of those.
+
+=cut
+
+sub prop_value_aliases ($$) {
+    my ($prop, $value) = @_;
+    return unless defined $prop && defined $value;
+
+    require "unicore/UCD.pl";
+    require "utf8_heavy.pl";
+
+    # Find the property name synonym that's used as the key in other hashes,
+    # which is element 0 in the returned list.
+    ($prop) = prop_aliases($prop);
+    return if ! $prop;
+    $prop = utf8::_loose_name(lc $prop);
+
+    # Here is a legal property, but the hash below (created by mktables for
+    # this purpose) only knows about the properties that have a very finite
+    # number of potential values, that is not ones whose value could be
+    # anything, like most (if not all) string properties.  These don't have
+    # synonyms anyway.  Simply return the input.  For example, there is no
+    # synonym for ('Uppercase_Mapping', A').
+    if (! exists $prop_value_aliases{$prop}) {
+
+        # Here, we have a legal property, but an unknown value.  Since the
+        # property is legal, if it isn't in the prop_aliases hash, it must be
+        # a Perl-extension All perl extensions are binary, hence are
+        # enumerateds, which means that we know that the input unknown value
+        # is illegal.
+        return if ! exists $Unicode::UCD::prop_aliases{$prop};
+
+        # Otherwise, we assume it's valid, as documented.
+        return $value;
+    }
+
+    # The value name may be loosely or strictly matched; we don't know yet.
+    # But both types use lower-case.
+    $value = lc $value;
+
+    # If the name isn't found under loose matching, it certainly won't be
+    # found under strict
+    my $loose_value = utf8::_loose_name($value);
+    return unless exists $loose_to_standard_value{"$prop=$loose_value"};
+
+    # Similarly if the combination under loose matching doesn't exist, it
+    # won't exist under strict.
+    my $standard_value = $loose_to_standard_value{"$prop=$loose_value"};
+    return unless exists $prop_value_aliases{$prop}{$standard_value};
+
+    # Here we did find a combination under loose matching rules.  But it could
+    # be that is a strict property match that shouldn't have matched.
+    # %prop_value_aliases is set up so that the strict matches will appear as
+    # if they were in loose form.  Thus, if the non-loose version is legal,
+    # we're ok, can skip the further check.
+    if (! exists $utf8::stricter_to_file_of{"$prop=$value"}
+
+        # We're also ok and skip the further check if value loosely matches.
+        # mktables has verified that no strict name under loose rules maps to
+        # an existing loose name.  This code relies on the very limited
+        # circumstances that strict names can be here.  Strict name matching
+        # happens under two conditions:
+        # 1) when the name begins with an underscore.  But this function
+        #    doesn't accept those, and %prop_value_aliases doesn't have
+        #    them.
+        # 2) When the values are numeric, in which case we need to look
+        #    further, but their squeezed-out loose values will be in
+        #    %stricter_to_file_of
+        && exists $utf8::stricter_to_file_of{"$prop=$loose_value"})
+    {
+        # The only thing that's legal loosely under strict is that can have an
+        # underscore between digit pairs XXX
+        while ($value =~ s/(\d)_(\d)/$1$2/g) {}
+        return unless exists $utf8::stricter_to_file_of{"$prop=$value"};
+    }
+
+    # Here, we know that the combination exists.  Return it.
+    my $list_ref = $prop_value_aliases{$prop}{$standard_value};
+    if (@$list_ref > 1) {
+        # The full name is in element 1.
+        return $list_ref->[1] unless wantarray;
+
+        return @{_dclone $list_ref};
+    }
+
+    return $list_ref->[0] unless wantarray;
+
+    # Only 1 element means that it repeats
+    return ( $list_ref->[0], $list_ref->[0] );
+}
+
+# All 1 bits is the largest possible UV.
+$Unicode::UCD::MAX_CP = ~0;
+
+=pod
+
+=head2 B<prop_invlist()>
+
+C<prop_invlist> returns an inversion list (described below) that defines all the
+code points for the binary Unicode property (or "property=value" pair) given
+by the input parameter string:
+
+ use feature 'say';
+ use Unicode::UCD 'prop_invlist';
+ say join ", ", prop_invlist("Any");
+
+ prints:
+ 0, 1114112
+
+If the input is unknown C<undef> is returned in scalar context; an empty-list
+in list context.  If the input is known, the number of elements in
+the list is returned if called in scalar context.
+
+L<perluniprops|perluniprops/Properties accessible through \p{} and \P{}> gives
+the list of properties that this function accepts, as well as all the possible
+forms for them (including with the optional "Is_" prefixes).  (Except this
+function doesn't accept any Perl-internal properties, some of which are listed
+there.) This function uses the same loose or tighter matching rules for
+resolving the input property's name as is done for regular expressions.  These
+are also specified in L<perluniprops|perluniprops/Properties accessible
+through \p{} and \P{}>.  Examples of using the "property=value" form are:
+
+ say join ", ", prop_invlist("Script=Shavian");
+
+ prints:
+ 66640, 66688
+
+ say join ", ", prop_invlist("ASCII_Hex_Digit=No");
+
+ prints:
+ 0, 48, 58, 65, 71, 97, 103
+
+ say join ", ", prop_invlist("ASCII_Hex_Digit=Yes");
+
+ prints:
+ 48, 58, 65, 71, 97, 103
+
+Inversion lists are a compact way of specifying Unicode property-value
+definitions.  The 0th item in the list is the lowest code point that has the
+property-value.  The next item (item [1]) is the lowest code point beyond that
+one that does NOT have the property-value.  And the next item beyond that
+([2]) is the lowest code point beyond that one that does have the
+property-value, and so on.  Put another way, each element in the list gives
+the beginning of a range that has the property-value (for even numbered
+elements), or doesn't have the property-value (for odd numbered elements).
+The name for this data structure stems from the fact that each element in the
+list toggles (or inverts) whether the corresponding range is or isn't on the
+list.
+
+In the final example above, the first ASCII Hex digit is code point 48, the
+character "0", and all code points from it through 57 (a "9") are ASCII hex
+digits.  Code points 58 through 64 aren't, but 65 (an "A") through 70 (an "F")
+are, as are 97 ("a") through 102 ("f").  103 starts a range of code points
+that aren't ASCII hex digits.  That range extends to infinity, which on your
+computer can be found in the variable C<$Unicode::UCD::MAX_CP>.  (This
+variable is as close to infinity as Perl can get on your platform, and may be
+too high for some operations to work; you may wish to use a smaller number for
+your purposes.)
+
+Note that the inversion lists returned by this function can possibly include
+non-Unicode code points, that is anything above 0x10FFFF.  Unicode properties
+are not defined on such code points.  You might wish to change the output to
+not include these.  Simply add 0x110000 at the end of the non-empty returned
+list if it isn't already that value; and pop that value if it is; like:
+
+ my @list = prop_invlist("foo");
+ if (@list) {
+     if ($list[-1] == 0x110000) {
+         pop @list;  # Defeat the turning on for above Unicode
+     }
+     else {
+         push @list, 0x110000; # Turn off for above Unicode
+     }
+ }
+
+It is a simple matter to expand out an inversion list to a full list of all
+code points that have the property-value:
+
+ my @invlist = prop_invlist($property_name);
+ die "empty" unless @invlist;
+ my @full_list;
+ for (my $i = 0; $i < @invlist; $i += 2) {
+    my $upper = ($i + 1) < @invlist
+                ? $invlist[$i+1] - 1      # In range
+                : $Unicode::UCD::MAX_CP;  # To infinity.  You may want
+                                          # to stop much much earlier;
+                                          # going this high may expose
+                                          # perl deficiencies with very
+                                          # large numbers.
+    for my $j ($invlist[$i] .. $upper) {
+        push @full_list, $j;
+    }
+ }
+
+C<prop_invlist> does not know about any user-defined nor Perl internal-only
+properties, and will return C<undef> if called with one of those.
+
+The L</search_invlist()> function is provided for finding a code point within
+an inversion list.
+
+=cut
+
+# User-defined properties could be handled with some changes to utf8_heavy.pl;
+# and implementing here of dealing with EXTRAS.  If done, consideration should
+# be given to the fact that the user subroutine could return different results
+# with each call; security issues need to be thought about.
+
+# These are created by mktables for this routine and stored in unicore/UCD.pl
+# where their structures are described.
+our %loose_defaults;
+our $MAX_UNICODE_CODEPOINT;
+
+sub prop_invlist ($;$) {
+    my $prop = $_[0];
+
+    # Undocumented way to get at Perl internal properties; it may be changed
+    # or removed without notice at any time.
+    my $internal_ok = defined $_[1] && $_[1] eq '_perl_core_internal_ok';
+
+    return if ! defined $prop;
+
+    require "utf8_heavy.pl";
+
+    # Warnings for these are only for regexes, so not applicable to us
+    no warnings 'deprecated';
+
+    # Get the swash definition of the property-value.
+    my $swash = utf8::SWASHNEW(__PACKAGE__, $prop, undef, 1, 0);
+
+    # Fail if not found, or isn't a boolean property-value, or is a
+    # user-defined property, or is internal-only.
+    return if ! $swash
+              || ref $swash eq ""
+              || $swash->{'BITS'} != 1
+              || $swash->{'USER_DEFINED'}
+              || (! $internal_ok && $prop =~ /^\s*_/);
+
+    if ($swash->{'EXTRAS'}) {
+        carp __PACKAGE__, "::prop_invlist: swash returned for $prop unexpectedly has EXTRAS magic";
+        return;
+    }
+    if ($swash->{'SPECIALS'}) {
+        carp __PACKAGE__, "::prop_invlist: swash returned for $prop unexpectedly has SPECIALS magic";
+        return;
+    }
+
+    my @invlist;
+
+    if ($swash->{'LIST'} =~ /^V/) {
+
+        # A 'V' as the first character marks the input as already an inversion
+        # list, in which case, all we need to do is put the remaining lines
+        # into our array.
+        @invlist = split "\n", $swash->{'LIST'} =~ s/ \s* (?: \# .* )? $ //xmgr;
+        shift @invlist;
+    }
+    else {
+        # The input lines look like:
+        # 0041\t005A   # [26]
+        # 005F
+
+        # Split into lines, stripped of trailing comments
+        foreach my $range (split "\n",
+                              $swash->{'LIST'} =~ s/ \s* (?: \# .* )? $ //xmgr)
+        {
+            # And find the beginning and end of the range on the line
+            my ($hex_begin, $hex_end) = split "\t", $range;
+            my $begin = hex $hex_begin;
+
+            # If the new range merely extends the old, we remove the marker
+            # created the last time through the loop for the old's end, which
+            # causes the new one's end to be used instead.
+            if (@invlist && $begin == $invlist[-1]) {
+                pop @invlist;
+            }
+            else {
+                # Add the beginning of the range
+                push @invlist, $begin;
+            }
+
+            if (defined $hex_end) { # The next item starts with the code point 1
+                                    # beyond the end of the range.
+                no warnings 'portable';
+                my $end = hex $hex_end;
+                last if $end == $Unicode::UCD::MAX_CP;
+                push @invlist, $end + 1;
+            }
+            else {  # No end of range, is a single code point.
+                push @invlist, $begin + 1;
+            }
+        }
+    }
+
+    # Could need to be inverted: add or subtract a 0 at the beginning of the
+    # list.
+    if ($swash->{'INVERT_IT'}) {
+        if (@invlist && $invlist[0] == 0) {
+            shift @invlist;
+        }
+        else {
+            unshift @invlist, 0;
+        }
+    }
+
+    return @invlist;
+}
+
+=pod
+
+=head2 B<prop_invmap()>
+
+ use Unicode::UCD 'prop_invmap';
+ my ($list_ref, $map_ref, $format, $default)
+                                      = prop_invmap("General Category");
+
+C<prop_invmap> is used to get the complete mapping definition for a property,
+in the form of an inversion map.  An inversion map consists of two parallel
+arrays.  One is an ordered list of code points that mark range beginnings, and
+the other gives the value (or mapping) that all code points in the
+corresponding range have.
+
+C<prop_invmap> is called with the name of the desired property.  The name is
+loosely matched, meaning that differences in case, white-space, hyphens, and
+underscores are not meaningful (except for the trailing underscore in the
+old-form grandfathered-in property C<"L_">, which is better written as C<"LC">,
+or even better, C<"Gc=LC">).
+
+Many Unicode properties have more than one name (or alias).  C<prop_invmap>
+understands all of these, including Perl extensions to them.  Ambiguities are
+resolved as described above for L</prop_aliases()> (except if a property has
+both a complete mapping, and a binary C<Y>/C<N> mapping, then specifying the
+property name prefixed by C<"is"> causes the binary one to be returned).  The
+Perl internal property "Perl_Decimal_Digit, described below, is also accepted.
+An empty list is returned if the property name is unknown.
+See L<perluniprops/Properties accessible through Unicode::UCD> for the
+properties acceptable as inputs to this function.
+
+It is a fatal error to call this function except in list context.
+
+In addition to the two arrays that form the inversion map, C<prop_invmap>
+returns two other values; one is a scalar that gives some details as to the
+format of the entries of the map array; the other is a default value, useful
+in maps whose format name begins with the letter C<"a">, as described
+L<below in its subsection|/a>; and for specialized purposes, such as
+converting to another data structure, described at the end of this main
+section.
+
+This means that C<prop_invmap> returns a 4 element list.  For example,
+
+ my ($blocks_ranges_ref, $blocks_maps_ref, $format, $default)
+                                                 = prop_invmap("Block");
+
+In this call, the two arrays will be populated as shown below (for Unicode
+6.0):
+
+ Index  @blocks_ranges  @blocks_maps
+   0        0x0000      Basic Latin
+   1        0x0080      Latin-1 Supplement
+   2        0x0100      Latin Extended-A
+   3        0x0180      Latin Extended-B
+   4        0x0250      IPA Extensions
+   5        0x02B0      Spacing Modifier Letters
+   6        0x0300      Combining Diacritical Marks
+   7        0x0370      Greek and Coptic
+   8        0x0400      Cyrillic
+  ...
+ 233        0x2B820     No_Block
+ 234        0x2F800     CJK Compatibility Ideographs Supplement
+ 235        0x2FA20     No_Block
+ 236        0xE0000     Tags
+ 237        0xE0080     No_Block
+ 238        0xE0100     Variation Selectors Supplement
+ 239        0xE01F0     No_Block
+ 240        0xF0000     Supplementary Private Use Area-A
+ 241        0x100000    Supplementary Private Use Area-B
+ 242        0x110000    No_Block
+
+The first line (with Index [0]) means that the value for code point 0 is "Basic
+Latin".  The entry "0x0080" in the @blocks_ranges column in the second line
+means that the value from the first line, "Basic Latin", extends to all code
+points in the range from 0 up to but not including 0x0080, that is, through
+127.  In other words, the code points from 0 to 127 are all in the "Basic
+Latin" block.  Similarly, all code points in the range from 0x0080 up to (but
+not including) 0x0100 are in the block named "Latin-1 Supplement", etc.
+(Notice that the return is the old-style block names; see L</Old-style versus
+new-style block names>).
+
+The final line (with Index [242]) means that the value for all code points above
+the legal Unicode maximum code point have the value "No_Block", which is the
+term Unicode uses for a non-existing block.
+
+The arrays completely specify the mappings for all possible code points.
+The final element in an inversion map returned by this function will always be
+for the range that consists of all the code points that aren't legal Unicode,
+but that are expressible on the platform.  (That is, it starts with code point
+0x110000, the first code point above the legal Unicode maximum, and extends to
+infinity.) The value for that range will be the same that any typical
+unassigned code point has for the specified property.  (Certain unassigned
+code points are not "typical"; for example the non-character code points, or
+those in blocks that are to be written right-to-left.  The above-Unicode
+range's value is not based on these atypical code points.)  It could be argued
+that, instead of treating these as unassigned Unicode code points, the value
+for this range should be C<undef>.  If you wish, you can change the returned
+arrays accordingly.
+
+The maps for almost all properties are simple scalars that should be
+interpreted as-is.
+These values are those given in the Unicode-supplied data files, which may be
+inconsistent as to capitalization and as to which synonym for a property-value
+is given.  The results may be normalized by using the L</prop_value_aliases()>
+function.
+
+There are exceptions to the simple scalar maps.  Some properties have some
+elements in their map list that are themselves lists of scalars; and some
+special strings are returned that are not to be interpreted as-is.  Element
+[2] (placed into C<$format> in the example above) of the returned four element
+list tells you if the map has any of these special elements or not, as follows:
+
+=over
+
+=item B<C<s>>
+
+means all the elements of the map array are simple scalars, with no special
+elements.  Almost all properties are like this, like the C<block> example
+above.
+
+=item B<C<sl>>
+
+means that some of the map array elements have the form given by C<"s">, and
+the rest are lists of scalars.  For example, here is a portion of the output
+of calling C<prop_invmap>() with the "Script Extensions" property:
+
+ @scripts_ranges  @scripts_maps
+      ...
+      0x0953      Devanagari
+      0x0964      [ Bengali, Devanagari, Gurumukhi, Oriya ]
+      0x0966      Devanagari
+      0x0970      Common
+
+Here, the code points 0x964 and 0x965 are both used in Bengali,
+Devanagari, Gurmukhi, and Oriya, but no other scripts.
+
+The Name_Alias property is also of this form.  But each scalar consists of two
+components:  1) the name, and 2) the type of alias this is.  They are
+separated by a colon and a space.  In Unicode 6.1, there are several alias types:
+
+=over
+
+=item C<correction>
+
+indicates that the name is a corrected form for the
+original name (which remains valid) for the same code point.
+
+=item C<control>
+
+adds a new name for a control character.
+
+=item C<alternate>
+
+is an alternate name for a character
+
+=item C<figment>
+
+is a name for a character that has been documented but was never in any
+actual standard.
+
+=item C<abbreviation>
+
+is a common abbreviation for a character
+
+=back
+
+The lists are ordered (roughly) so the most preferred names come before less
+preferred ones.
+
+For example,
+
+ @aliases_ranges        @alias_maps
+    ...
+    0x009E        [ 'PRIVACY MESSAGE: control', 'PM: abbreviation' ]
+    0x009F        [ 'APPLICATION PROGRAM COMMAND: control',
+                    'APC: abbreviation'
+                  ]
+    0x00A0        'NBSP: abbreviation'
+    0x00A1        ""
+    0x00AD        'SHY: abbreviation'
+    0x00AE        ""
+    0x01A2        'LATIN CAPITAL LETTER GHA: correction'
+    0x01A3        'LATIN SMALL LETTER GHA: correction'
+    0x01A4        ""
+    ...
+
+A map to the empty string means that there is no alias defined for the code
+point.
+
+=item B<C<a>>
+
+is like C<"s"> in that all the map array elements are scalars, but here they are
+restricted to all being integers, and some have to be adjusted (hence the name
+C<"a">) to get the correct result.  For example, in:
+
+ my ($uppers_ranges_ref, $uppers_maps_ref, $format, $default)
+                          = prop_invmap("Simple_Uppercase_Mapping");
+
+the returned arrays look like this:
+
+ @$uppers_ranges_ref    @$uppers_maps_ref   Note
+       0                      0
+      97                     65          'a' maps to 'A', b => B ...
+     123                      0
+     181                    924          MICRO SIGN => Greek Cap MU
+     182                      0
+     ...
+
+and C<$default> is 0.
+
+Let's start with the second line.  It says that the uppercase of code point 97
+is 65; or C<uc("a")> == "A".  But the line is for the entire range of code
+points 97 through 122.  To get the mapping for any code point in this range,
+you take the offset it has from the beginning code point of the range, and add
+that to the mapping for that first code point.  So, the mapping for 122 ("z")
+is derived by taking the offset of 122 from 97 (=25) and adding that to 65,
+yielding 90 ("z").  Likewise for everything in between.
+
+Requiring this simple adjustment allows the returned arrays to be
+significantly smaller than otherwise, up to a factor of 10, speeding up
+searching through them.
+
+Ranges that map to C<$default>, C<"0">, behave somewhat differently.  For
+these, each code point maps to itself.  So, in the first line in the example,
+S<C<ord(uc(chr(0)))>> is 0, S<C<ord(uc(chr(1)))>> is 1, ..
+S<C<ord(uc(chr(96)))>> is 96.
+
+=item B<C<al>>
+
+means that some of the map array elements have the form given by C<"a">, and
+the rest are ordered lists of code points.
+For example, in:
+
+ my ($uppers_ranges_ref, $uppers_maps_ref, $format, $default)
+                                 = prop_invmap("Uppercase_Mapping");
+
+the returned arrays look like this:
+
+ @$uppers_ranges_ref    @$uppers_maps_ref
+       0                      0
+      97                     65
+     123                      0
+     181                    924
+     182                      0
+     ...
+    0x0149              [ 0x02BC 0x004E ]
+    0x014A                    0
+    0x014B                  330
+     ...
+
+This is the full Uppercase_Mapping property (as opposed to the
+Simple_Uppercase_Mapping given in the example for format C<"a">).  The only
+difference between the two in the ranges shown is that the code point at
+0x0149 (LATIN SMALL LETTER N PRECEDED BY APOSTROPHE) maps to a string of two
+characters, 0x02BC (MODIFIER LETTER APOSTROPHE) followed by 0x004E (LATIN
+CAPITAL LETTER N).
+
+No adjustments are needed to entries that are references to arrays; each such
+entry will have exactly one element in its range, so the offset is always 0.
+
+The fourth (index [3]) element (C<$default>) in the list returned for this
+format is 0.
+
+=item B<C<ae>>
+
+This is like C<"a">, but some elements are the empty string, and should not be
+adjusted.
+The one internal Perl property accessible by C<prop_invmap> is of this type:
+"Perl_Decimal_Digit" returns an inversion map which gives the numeric values
+that are represented by the Unicode decimal digit characters.  Characters that
+don't represent decimal digits map to the empty string, like so:
+
+ @digits    @values
+ 0x0000       ""
+ 0x0030        0
+ 0x003A:      ""
+ 0x0660:       0
+ 0x066A:      ""
+ 0x06F0:       0
+ 0x06FA:      ""
+ 0x07C0:       0
+ 0x07CA:      ""
+ 0x0966:       0
+ ...
+
+This means that the code points from 0 to 0x2F do not represent decimal digits;
+the code point 0x30 (DIGIT ZERO) represents 0;  code point 0x31, (DIGIT ONE),
+represents 0+1-0 = 1; ... code point 0x39, (DIGIT NINE), represents 0+9-0 = 9;
+... code points 0x3A through 0x65F do not represent decimal digits; 0x660
+(ARABIC-INDIC DIGIT ZERO), represents 0; ... 0x07C1 (NKO DIGIT ONE),
+represents 0+1-0 = 1 ...
+
+The fourth (index [3]) element (C<$default>) in the list returned for this
+format is the empty string.
+
+=item B<C<ale>>
+
+is a combination of the C<"al"> type and the C<"ae"> type.  Some of
+the map array elements have the forms given by C<"al">, and
+the rest are the empty string.  The property C<NFKC_Casefold> has this form.
+An example slice is:
+
+ @$ranges_ref  @$maps_ref         Note
+    ...
+   0x00AA       97                FEMININE ORDINAL INDICATOR => 'a'
+   0x00AB        0
+   0x00AD                         SOFT HYPHEN => ""
+   0x00AE        0
+   0x00AF     [ 0x0020, 0x0304 ]  MACRON => SPACE . COMBINING MACRON
+   0x00B0        0
+   ...
+
+The fourth (index [3]) element (C<$default>) in the list returned for this
+format is 0.
+
+=item B<C<ar>>
+
+means that all the elements of the map array are either rational numbers or
+the string C<"NaN">, meaning "Not a Number".  A rational number is either an
+integer, or two integers separated by a solidus (C<"/">).  The second integer
+represents the denominator of the division implied by the solidus, and is
+actually always positive, so it is guaranteed not to be 0 and to not be
+signed.  When the element is a plain integer (without the
+solidus), it may need to be adjusted to get the correct value by adding the
+offset, just as other C<"a"> properties.  No adjustment is needed for
+fractions, as the range is guaranteed to have just a single element, and so
+the offset is always 0.
+
+If you want to convert the returned map to entirely scalar numbers, you
+can use something like this:
+
+ my ($invlist_ref, $invmap_ref, $format) = prop_invmap($property);
+ if ($format && $format eq "ar") {
+     map { $_ = eval $_ if $_ ne 'NaN' } @$map_ref;
+ }
+
+Here's some entries from the output of the property "Nv", which has format
+C<"ar">.
+
+ @numerics_ranges  @numerics_maps       Note
+        0x00           "NaN"
+        0x30             0           DIGIT 0 .. DIGIT 9
+        0x3A           "NaN"
+        0xB2             2           SUPERSCRIPTs 2 and 3
+        0xB4           "NaN"
+        0xB9             1           SUPERSCRIPT 1
+        0xBA           "NaN"
+        0xBC            1/4          VULGAR FRACTION 1/4
+        0xBD            1/2          VULGAR FRACTION 1/2
+        0xBE            3/4          VULGAR FRACTION 3/4
+        0xBF           "NaN"
+        0x660            0           ARABIC-INDIC DIGIT ZERO .. NINE
+        0x66A          "NaN"
+
+The fourth (index [3]) element (C<$default>) in the list returned for this
+format is C<"NaN">.
+
+=item B<C<n>>
+
+means the Name property.  All the elements of the map array are simple
+scalars, but some of them contain special strings that require more work to
+get the actual name.
+
+Entries such as:
+
+ CJK UNIFIED IDEOGRAPH-<code point>
+
+mean that the name for the code point is "CJK UNIFIED IDEOGRAPH-"
+with the code point (expressed in hexadecimal) appended to it, like "CJK
+UNIFIED IDEOGRAPH-3403" (similarly for S<C<CJK COMPATIBILITY IDEOGRAPH-E<lt>code
+pointE<gt>>>).
+
+Also, entries like
+
+ <hangul syllable>
+
+means that the name is algorithmically calculated.  This is easily done by
+the function L<charnames/charnames::viacode(code)>.
+
+Note that for control characters (C<Gc=cc>), Unicode's data files have the
+string "C<E<lt>controlE<gt>>", but the real name of each of these characters is the empty
+string.  This function returns that real name, the empty string.  (There are
+names for these characters, but they are considered aliases, not the Name
+property name, and are contained in the C<Name_Alias> property.)
+
+=item B<C<ad>>
+
+means the Decomposition_Mapping property.  This property is like C<"al">
+properties, except that one of the scalar elements is of the form:
+
+ <hangul syllable>
+
+This signifies that this entry should be replaced by the decompositions for
+all the code points whose decomposition is algorithmically calculated.  (All
+of them are currently in one range and no others outside the range are likely
+to ever be added to Unicode; the C<"n"> format
+has this same entry.)  These can be generated via the function
+L<Unicode::Normalize::NFD()|Unicode::Normalize>.
+
+Note that the mapping is the one that is specified in the Unicode data files,
+and to get the final decomposition, it may need to be applied recursively.
+
+The fourth (index [3]) element (C<$default>) in the list returned for this
+format is 0.
+
+=back
+
+Note that a format begins with the letter "a" if and only the property it is
+for requires adjustments by adding the offsets in multi-element ranges.  For
+all these properties, an entry should be adjusted only if the map is a scalar
+which is an integer.  That is, it must match the regular expression:
+
+    / ^ -? \d+ $ /xa
+
+Further, the first element in a range never needs adjustment, as the
+adjustment would be just adding 0.
+
+A binary search such as that provided by L</search_invlist()>, can be used to
+quickly find a code point in the inversion list, and hence its corresponding
+mapping.
+
+The final, fourth element (index [3], assigned to C<$default> in the "block"
+example) in the four element list returned by this function is used with the
+C<"a"> format types; it may also be useful for applications
+that wish to convert the returned inversion map data structure into some
+other, such as a hash.  It gives the mapping that most code points map to
+under the property.  If you establish the convention that any code point not
+explicitly listed in your data structure maps to this value, you can
+potentially make your data structure much smaller.  As you construct your data
+structure from the one returned by this function, simply ignore those ranges
+that map to this value.  For example, to
+convert to the data structure searchable by L</charinrange()>, you can follow
+this recipe for properties that don't require adjustments:
+
+ my ($list_ref, $map_ref, $format, $default) = prop_invmap($property);
+ my @range_list;
+
+ # Look at each element in the list, but the -2 is needed because we
+ # look at $i+1 in the loop, and the final element is guaranteed to map
+ # to $default by prop_invmap(), so we would skip it anyway.
+ for my $i (0 .. @$list_ref - 2) {
+    next if $map_ref->[$i] eq $default;
+    push @range_list, [ $list_ref->[$i],
+                        $list_ref->[$i+1],
+                        $map_ref->[$i]
+                      ];
+ }
+
+ print charinrange(\@range_list, $code_point), "\n";
+
+With this, C<charinrange()> will return C<undef> if its input code point maps
+to C<$default>.  You can avoid this by omitting the C<next> statement, and adding
+a line after the loop to handle the final element of the inversion map.
+
+Similarly, this recipe can be used for properties that do require adjustments:
+
+ for my $i (0 .. @$list_ref - 2) {
+    next if $map_ref->[$i] eq $default;
+
+    # prop_invmap() guarantees that if the mapping is to an array, the
+    # range has just one element, so no need to worry about adjustments.
+    if (ref $map_ref->[$i]) {
+        push @range_list,
+                   [ $list_ref->[$i], $list_ref->[$i], $map_ref->[$i] ];
+    }
+    else {  # Otherwise each element is actually mapped to a separate
+            # value, so the range has to be split into single code point
+            # ranges.
+
+        my $adjustment = 0;
+
+        # For each code point that gets mapped to something...
+        for my $j ($list_ref->[$i] .. $list_ref->[$i+1] -1 ) {
+
+            # ... add a range consisting of just it mapping to the
+            # original plus the adjustment, which is incremented for the
+            # next time through the loop, as the offset increases by 1
+            # for each element in the range
+            push @range_list,
+                             [ $j, $j, $map_ref->[$i] + $adjustment++ ];
+        }
+    }
+ }
+
+Note that the inversion maps returned for the C<Case_Folding> and
+C<Simple_Case_Folding> properties do not include the Turkic-locale mappings.
+Use L</casefold()> for these.
+
+C<prop_invmap> does not know about any user-defined properties, and will
+return C<undef> if called with one of those.
+
+The returned values for the Perl extension properties, such as C<Any> and
+C<Greek> are somewhat misleading.  The values are either C<"Y"> or C<"N>".
+All Unicode properties are bipartite, so you can actually use the C<"Y"> or
+C<"N>" in a Perl regular rexpression for these, like C<qr/\p{ID_Start=Y/}> or
+C<qr/\p{Upper=N/}>.  But the Perl extensions aren't specified this way, only
+like C</qr/\p{Any}>, I<etc>.  You can't actually use the C<"Y"> and C<"N>" in
+them.
+
+=cut
+
+# User-defined properties could be handled with some changes to utf8_heavy.pl;
+# if done, consideration should be given to the fact that the user subroutine
+# could return different results with each call, which could lead to some
+# security issues.
+
+# One could store things in memory so they don't have to be recalculated, but
+# it is unlikely this will be called often, and some properties would take up
+# significant memory.
+
+# These are created by mktables for this routine and stored in unicore/UCD.pl
+# where their structures are described.
+our @algorithmic_named_code_points;
+our $HANGUL_BEGIN;
+our $HANGUL_COUNT;
+
+sub prop_invmap ($;$) {
+
+    croak __PACKAGE__, "::prop_invmap: must be called in list context" unless wantarray;
+
+    my $prop = $_[0];
+    return unless defined $prop;
+
+    # Undocumented way to get at Perl internal properties; it may be changed
+    # or removed without notice at any time.  It currently also changes the
+    # output to use the format specified in the file rather than the one we
+    # normally compute and return
+    my $internal_ok = defined $_[1] && $_[1] eq '_perl_core_internal_ok';
+
+    # Fail internal properties
+    return if $prop =~ /^_/ && ! $internal_ok;
+
+    # The values returned by this function.
+    my (@invlist, @invmap, $format, $missing);
+
+    # The swash has two components we look at, the base list, and a hash,
+    # named 'SPECIALS', containing any additional members whose mappings don't
+    # fit into the base list scheme of things.  These generally 'override'
+    # any value in the base list for the same code point.
+    my $overrides;
+
+    require "utf8_heavy.pl";
+    require "unicore/UCD.pl";
+
+RETRY:
+
+    # If there are multiple entries for a single code point
+    my $has_multiples = 0;
+
+    # Try to get the map swash for the property.  They have 'To' prepended to
+    # the property name, and 32 means we will accept 32 bit return values.
+    # The 0 means we aren't calling this from tr///.
+    my $swash = utf8::SWASHNEW(__PACKAGE__, "To$prop", undef, 32, 0);
+
+    # If didn't find it, could be because needs a proxy.  And if was the
+    # 'Block' or 'Name' property, use a proxy even if did find it.  Finding it
+    # in these cases would be the result of the installation changing mktables
+    # to output the Block or Name tables.  The Block table gives block names
+    # in the new-style, and this routine is supposed to return old-style block
+    # names.  The Name table is valid, but we need to execute the special code
+    # below to add in the algorithmic-defined name entries.
+    # And NFKCCF needs conversion, so handle that here too.
+    if (ref $swash eq ""
+        || $swash->{'TYPE'} =~ / ^ To (?: Blk | Na | NFKCCF ) $ /x)
+    {
+
+        # Get the short name of the input property, in standard form
+        my ($second_try) = prop_aliases($prop);
+        return unless $second_try;
+        $second_try = utf8::_loose_name(lc $second_try);
+
+        if ($second_try eq "in") {
+
+            # This property is identical to age for inversion map purposes
+            $prop = "age";
+            goto RETRY;
+        }
+        elsif ($second_try =~ / ^ s ( cf | fc | [ltu] c ) $ /x) {
+
+            # These properties use just the LIST part of the full mapping,
+            # which includes the simple maps that are otherwise overridden by
+            # the SPECIALS.  So all we need do is to not look at the SPECIALS;
+            # set $overrides to indicate that
+            $overrides = -1;
+
+            # The full name is the simple name stripped of its initial 's'
+            $prop = $1;
+
+            # .. except for this case
+            $prop = 'cf' if $prop eq 'fc';
+
+            goto RETRY;
+        }
+        elsif ($second_try eq "blk") {
+
+            # We use the old block names.  Just create a fake swash from its
+            # data.
+            _charblocks();
+            my %blocks;
+            $blocks{'LIST'} = "";
+            $blocks{'TYPE'} = "ToBlk";
+            $utf8::SwashInfo{ToBlk}{'missing'} = "No_Block";
+            $utf8::SwashInfo{ToBlk}{'format'} = "s";
+
+            foreach my $block (@BLOCKS) {
+                $blocks{'LIST'} .= sprintf "%x\t%x\t%s\n",
+                                           $block->[0],
+                                           $block->[1],
+                                           $block->[2];
+            }
+            $swash = \%blocks;
+        }
+        elsif ($second_try eq "na") {
+
+            # Use the combo file that has all the Name-type properties in it,
+            # extracting just the ones that are for the actual 'Name'
+            # property.  And create a fake swash from it.
+            my %names;
+            $names{'LIST'} = "";
+            my $original = do "unicore/Name.pl";
+            my $algorithm_names = \@algorithmic_named_code_points;
+
+            # We need to remove the names from it that are aliases.  For that
+            # we need to also read in that table.  Create a hash with the keys
+            # being the code points, and the values being a list of the
+            # aliases for the code point key.
+            my ($aliases_code_points, $aliases_maps, undef, undef)
+                  = &prop_invmap("_Perl_Name_Alias", '_perl_core_internal_ok');
+            my %aliases;
+            for (my $i = 0; $i < @$aliases_code_points; $i++) {
+                my $code_point = $aliases_code_points->[$i];
+                $aliases{$code_point} = $aliases_maps->[$i];
+
+                # If not already a list, make it into one, so that later we
+                # can treat things uniformly
+                if (! ref $aliases{$code_point}) {
+                    $aliases{$code_point} = [ $aliases{$code_point} ];
+                }
+
+                # Remove the alias type from the entry, retaining just the
+                # name.
+                map { s/:.*// } @{$aliases{$code_point}};
+            }
+
+            my $i = 0;
+            foreach my $line (split "\n", $original) {
+                my ($hex_code_point, $name) = split "\t", $line;
+
+                # Weeds out all comments, blank lines, and named sequences
+                next if $hex_code_point =~ /[^[:xdigit:]]/a;
+
+                my $code_point = hex $hex_code_point;
+
+                # The name of all controls is the default: the empty string.
+                # The set of controls is immutable
+                next if chr($code_point) =~ /[[:cntrl:]]/u;
+
+                # If this is a name_alias, it isn't a name
+                next if grep { $_ eq $name } @{$aliases{$code_point}};
+
+                # If we are beyond where one of the special lines needs to
+                # be inserted ...
+                while ($i < @$algorithm_names
+                    && $code_point > $algorithm_names->[$i]->{'low'})
+                {
+
+                    # ... then insert it, ahead of what we were about to
+                    # output
+                    $names{'LIST'} .= sprintf "%x\t%x\t%s\n",
+                                            $algorithm_names->[$i]->{'low'},
+                                            $algorithm_names->[$i]->{'high'},
+                                            $algorithm_names->[$i]->{'name'};
+
+                    # Done with this range.
+                    $i++;
+
+                    # We loop until all special lines that precede the next
+                    # regular one are output.
+                }
+
+                # Here, is a normal name.
+                $names{'LIST'} .= sprintf "%x\t\t%s\n", $code_point, $name;
+            } # End of loop through all the names
+
+            $names{'TYPE'} = "ToNa";
+            $utf8::SwashInfo{ToNa}{'missing'} = "";
+            $utf8::SwashInfo{ToNa}{'format'} = "n";
+            $swash = \%names;
+        }
+        elsif ($second_try =~ / ^ ( d [mt] ) $ /x) {
+
+            # The file is a combination of dt and dm properties.  Create a
+            # fake swash from the portion that we want.
+            my $original = do "unicore/Decomposition.pl";
+            my %decomps;
+
+            if ($second_try eq 'dt') {
+                $decomps{'TYPE'} = "ToDt";
+                $utf8::SwashInfo{'ToDt'}{'missing'} = "None";
+                $utf8::SwashInfo{'ToDt'}{'format'} = "s";
+            }   # 'dm' is handled below, with 'nfkccf'
+
+            $decomps{'LIST'} = "";
+
+            # This property has one special range not in the file: for the
+            # hangul syllables.  But not in Unicode version 1.
+            UnicodeVersion() unless defined $v_unicode_version;
+            my $done_hangul = ($v_unicode_version lt v2.0.0)
+                              ? 1
+                              : 0;    # Have we done the hangul range ?
+            foreach my $line (split "\n", $original) {
+                my ($hex_lower, $hex_upper, $type_and_map) = split "\t", $line;
+                my $code_point = hex $hex_lower;
+                my $value;
+                my $redo = 0;
+
+                # The type, enclosed in <...>, precedes the mapping separated
+                # by blanks
+                if ($type_and_map =~ / ^ < ( .* ) > \s+ (.*) $ /x) {
+                    $value = ($second_try eq 'dt') ? $1 : $2
+                }
+                else {  # If there is no type specified, it's canonical
+                    $value = ($second_try eq 'dt')
+                             ? "Canonical" :
+                             $type_and_map;
+                }
+
+                # Insert the hangul range at the appropriate spot.
+                if (! $done_hangul && $code_point > $HANGUL_BEGIN) {
+                    $done_hangul = 1;
+                    $decomps{'LIST'} .=
+                                sprintf "%x\t%x\t%s\n",
+                                        $HANGUL_BEGIN,
+                                        $HANGUL_BEGIN + $HANGUL_COUNT - 1,
+                                        ($second_try eq 'dt')
+                                        ? "Canonical"
+                                        : "<hangul syllable>";
+                }
+
+                if ($value =~ / / && $hex_upper ne "" && $hex_upper ne $hex_lower) {
+                    $line = sprintf("%04X\t%s\t%s", hex($hex_lower) + 1, $hex_upper, $value);
+                    $hex_upper = "";
+                    $redo = 1;
+                }
+
+                # And append this to our constructed LIST.
+                $decomps{'LIST'} .= "$hex_lower\t$hex_upper\t$value\n";
+
+                redo if $redo;
+            }
+            $swash = \%decomps;
+        }
+        elsif ($second_try ne 'nfkccf') { # Don't know this property. Fail.
+            return;
+        }
+
+        if ($second_try eq 'nfkccf' || $second_try eq 'dm') {
+
+            # The 'nfkccf' property is stored in the old format for backwards
+            # compatibility for any applications that has read its file
+            # directly before prop_invmap() existed.
+            # And the code above has extracted the 'dm' property from its file
+            # yielding the same format.  So here we convert them to adjusted
+            # format for compatibility with the other properties similar to
+            # them.
+            my %revised_swash;
+
+            # We construct a new converted list.
+            my $list = "";
+
+            my @ranges = split "\n", $swash->{'LIST'};
+            for (my $i = 0; $i < @ranges; $i++) {
+                my ($hex_begin, $hex_end, $map) = split "\t", $ranges[$i];
+
+                # The dm property has maps that are space separated sequences
+                # of code points, as well as the special entry "<hangul
+                # syllable>, which also contains a blank.
+                my @map = split " ", $map;
+                if (@map > 1) {
+
+                    # If it's just the special entry, append as-is.
+                    if ($map eq '<hangul syllable>') {
+                        $list .= "$ranges[$i]\n";
+                    }
+                    else {
+
+                        # These should all be single-element ranges.
+                        croak __PACKAGE__, "::prop_invmap: Not expecting a mapping with multiple code points in a multi-element range, $ranges[$i]" if $hex_end ne "" && $hex_end ne $hex_begin;
+
+                        # Convert them to decimal, as that's what's expected.
+                        $list .= "$hex_begin\t\t"
+                            . join(" ", map { hex } @map)
+                            . "\n";
+                    }
+                    next;
+                }
+
+                # Here, the mapping doesn't have a blank, is for a single code
+                # point.
+                my $begin = hex $hex_begin;
+                my $end = (defined $hex_end && $hex_end ne "")
+                        ? hex $hex_end
+                        : $begin;
+
+                # Again, the output is to be in decimal.
+                my $decimal_map = hex $map;
+
+                # We know that multi-element ranges with the same mapping
+                # should not be adjusted, as after the adjustment
+                # multi-element ranges are for consecutive increasing code
+                # points.  Further, the final element in the list won't be
+                # adjusted, as there is nothing after it to include in the
+                # adjustment
+                if ($begin != $end || $i == @ranges -1) {
+
+                    # So just convert these to single-element ranges
+                    foreach my $code_point ($begin .. $end) {
+                        $list .= sprintf("%04X\t\t%d\n",
+                                        $code_point, $decimal_map);
+                    }
+                }
+                else {
+
+                    # Here, we have a candidate for adjusting.  What we do is
+                    # look through the subsequent adjacent elements in the
+                    # input.  If the map to the next one differs by 1 from the
+                    # one before, then we combine into a larger range with the
+                    # initial map.  Loop doing this until we find one that
+                    # can't be combined.
+
+                    my $offset = 0;     # How far away are we from the initial
+                                        # map
+                    my $squished = 0;   # ? Did we squish at least two
+                                        # elements together into one range
+                    for ( ; $i < @ranges; $i++) {
+                        my ($next_hex_begin, $next_hex_end, $next_map)
+                                                = split "\t", $ranges[$i+1];
+
+                        # In the case of 'dm', the map may be a sequence of
+                        # multiple code points, which are never combined with
+                        # another range
+                        last if $next_map =~ / /;
+
+                        $offset++;
+                        my $next_decimal_map = hex $next_map;
+
+                        # If the next map is not next in sequence, it
+                        # shouldn't be combined.
+                        last if $next_decimal_map != $decimal_map + $offset;
+
+                        my $next_begin = hex $next_hex_begin;
+
+                        # Likewise, if the next element isn't adjacent to the
+                        # previous one, it shouldn't be combined.
+                        last if $next_begin != $begin + $offset;
+
+                        my $next_end = (defined $next_hex_end
+                                        && $next_hex_end ne "")
+                                            ? hex $next_hex_end
+                                            : $next_begin;
+
+                        # And finally, if the next element is a multi-element
+                        # range, it shouldn't be combined.
+                        last if $next_end != $next_begin;
+
+                        # Here, we will combine.  Loop to see if we should
+                        # combine the next element too.
+                        $squished = 1;
+                    }
+
+                    if ($squished) {
+
+                        # Here, 'i' is the element number of the last element to
+                        # be combined, and the range is single-element, or we
+                        # wouldn't be combining.  Get it's code point.
+                        my ($hex_end, undef, undef) = split "\t", $ranges[$i];
+                        $list .= "$hex_begin\t$hex_end\t$decimal_map\n";
+                    } else {
+
+                        # Here, no combining done.  Just append the initial
+                        # (and current) values.
+                        $list .= "$hex_begin\t\t$decimal_map\n";
+                    }
+                }
+            } # End of loop constructing the converted list
+
+            # Finish up the data structure for our converted swash
+            my $type = ($second_try eq 'nfkccf') ? 'ToNFKCCF' : 'ToDm';
+            $revised_swash{'LIST'} = $list;
+            $revised_swash{'TYPE'} = $type;
+            $revised_swash{'SPECIALS'} = $swash->{'SPECIALS'};
+            $swash = \%revised_swash;
+
+            $utf8::SwashInfo{$type}{'missing'} = 0;
+            $utf8::SwashInfo{$type}{'format'} = 'a';
+        }
+    }
+
+    if ($swash->{'EXTRAS'}) {
+        carp __PACKAGE__, "::prop_invmap: swash returned for $prop unexpectedly has EXTRAS magic";
+        return;
+    }
+
+    # Here, have a valid swash return.  Examine it.
+    my $returned_prop = $swash->{'TYPE'};
+
+    # All properties but binary ones should have 'missing' and 'format'
+    # entries
+    $missing = $utf8::SwashInfo{$returned_prop}{'missing'};
+    $missing = 'N' unless defined $missing;
+
+    $format = $utf8::SwashInfo{$returned_prop}{'format'};
+    $format = 'b' unless defined $format;
+
+    my $requires_adjustment = $format =~ /^a/;
+
+    if ($swash->{'LIST'} =~ /^V/) {
+        @invlist = split "\n", $swash->{'LIST'} =~ s/ \s* (?: \# .* )? $ //xmgr;
+
+        shift @invlist;     # Get rid of 'V';
+
+        # Could need to be inverted: add or subtract a 0 at the beginning of
+        # the list.
+        if ($swash->{'INVERT_IT'}) {
+            if (@invlist && $invlist[0] == 0) {
+                shift @invlist;
+            }
+            else {
+                unshift @invlist, 0;
+            }
+        }
+        foreach my $i (0 .. @invlist - 1) {
+            $invmap[$i] = ($i % 2 == 0) ? 'Y' : 'N'
+        }
+
+        # The map includes lines for all code points; add one for the range
+        # from 0 to the first Y.
+        if ($invlist[0] != 0) {
+            unshift @invlist, 0;
+            unshift @invmap, 'N';
+        }
+    }
+    else {
+        if ($swash->{'INVERT_IT'}) {
+            croak __PACKAGE__, ":prop_invmap: Don't know how to deal with inverted";
+        }
+
+        # The LIST input lines look like:
+        # ...
+        # 0374\t\tCommon
+        # 0375\t0377\tGreek   # [3]
+        # 037A\t037D\tGreek   # [4]
+        # 037E\t\tCommon
+        # 0384\t\tGreek
+        # ...
+        #
+        # Convert them to like
+        # 0374 => Common
+        # 0375 => Greek
+        # 0378 => $missing
+        # 037A => Greek
+        # 037E => Common
+        # 037F => $missing
+        # 0384 => Greek
+        #
+        # For binary properties, the final non-comment column is absent, and
+        # assumed to be 'Y'.
+
+        foreach my $range (split "\n", $swash->{'LIST'}) {
+            $range =~ s/ \s* (?: \# .* )? $ //xg; # rmv trailing space, comments
+
+            # Find the beginning and end of the range on the line
+            my ($hex_begin, $hex_end, $map) = split "\t", $range;
+            my $begin = hex $hex_begin;
+            no warnings 'portable';
+            my $end = (defined $hex_end && $hex_end ne "")
+                    ? hex $hex_end
+                    : $begin;
+
+            # Each time through the loop (after the first):
+            # $invlist[-2] contains the beginning of the previous range processed
+            # $invlist[-1] contains the end+1 of the previous range processed
+            # $invmap[-2] contains the value of the previous range processed
+            # $invmap[-1] contains the default value for missing ranges
+            #                                                       ($missing)
+            #
+            # Thus, things are set up for the typical case of a new
+            # non-adjacent range of non-missings to be added.  But, if the new
+            # range is adjacent, it needs to replace the [-1] element; and if
+            # the new range is a multiple value of the previous one, it needs
+            # to be added to the [-2] map element.
+
+            # The first time through, everything will be empty.  If the
+            # property doesn't have a range that begins at 0, add one that
+            # maps to $missing
+            if (! @invlist) {
+                if ($begin != 0) {
+                    push @invlist, 0;
+                    push @invmap, $missing;
+                }
+            }
+            elsif (@invlist > 1 && $invlist[-2] == $begin) {
+
+                # Here we handle the case where the input has multiple entries
+                # for each code point.  mktables should have made sure that
+                # each such range contains only one code point.  At this
+                # point, $invlist[-1] is the $missing that was added at the
+                # end of the last loop iteration, and [-2] is the last real
+                # input code point, and that code point is the same as the one
+                # we are adding now, making the new one a multiple entry.  Add
+                # it to the existing entry, either by pushing it to the
+                # existing list of multiple entries, or converting the single
+                # current entry into a list with both on it.  This is all we
+                # need do for this iteration.
+
+                if ($end != $begin) {
+                    croak __PACKAGE__, ":prop_invmap: Multiple maps per code point in '$prop' require single-element ranges: begin=$begin, end=$end, map=$map";
+                }
+                if (! ref $invmap[-2]) {
+                    $invmap[-2] = [ $invmap[-2], $map ];
+                }
+                else {
+                    push @{$invmap[-2]}, $map;
+                }
+                $has_multiples = 1;
+                next;
+            }
+            elsif ($invlist[-1] == $begin) {
+
+                # If the input isn't in the most compact form, so that there
+                # are two adjacent ranges that map to the same thing, they
+                # should be combined (EXCEPT where the arrays require
+                # adjustments, in which case everything is already set up
+                # correctly).  This happens in our constructed dt mapping, as
+                # Element [-2] is the map for the latest range so far
+                # processed.  Just set the beginning point of the map to
+                # $missing (in invlist[-1]) to 1 beyond where this range ends.
+                # For example, in
+                # 12\t13\tXYZ
+                # 14\t17\tXYZ
+                # we have set it up so that it looks like
+                # 12 => XYZ
+                # 14 => $missing
+                #
+                # We now see that it should be
+                # 12 => XYZ
+                # 18 => $missing
+                if (! $requires_adjustment && @invlist > 1 && ( (defined $map)
+                                    ? $invmap[-2] eq $map
+                                    : $invmap[-2] eq 'Y'))
+                {
+                    $invlist[-1] = $end + 1;
+                    next;
+                }
+
+                # Here, the range started in the previous iteration that maps
+                # to $missing starts at the same code point as this range.
+                # That means there is no gap to fill that that range was
+                # intended for, so we just pop it off the parallel arrays.
+                pop @invlist;
+                pop @invmap;
+            }
+
+            # Add the range beginning, and the range's map.
+            push @invlist, $begin;
+            if ($returned_prop eq 'ToDm') {
+
+                # The decomposition maps are either a line like <hangul
+                # syllable> which are to be taken as is; or a sequence of code
+                # points in hex and separated by blanks.  Convert them to
+                # decimal, and if there is more than one, use an anonymous
+                # array as the map.
+                if ($map =~ /^ < /x) {
+                    push @invmap, $map;
+                }
+                else {
+                    my @map = split " ", $map;
+                    if (@map == 1) {
+                        push @invmap, $map[0];
+                    }
+                    else {
+                        push @invmap, \@map;
+                    }
+                }
+            }
+            else {
+
+                # Otherwise, convert hex formatted list entries to decimal;
+                # add a 'Y' map for the missing value in binary properties, or
+                # otherwise, use the input map unchanged.
+                $map = ($format eq 'x' || $format eq 'ax')
+                    ? hex $map
+                    : $format eq 'b'
+                    ? 'Y'
+                    : $map;
+                push @invmap, $map;
+            }
+
+            # We just started a range.  It ends with $end.  The gap between it
+            # and the next element in the list must be filled with a range
+            # that maps to the default value.  If there is no gap, the next
+            # iteration will pop this, unless there is no next iteration, and
+            # we have filled all of the Unicode code space, so check for that
+            # and skip.
+            if ($end < $Unicode::UCD::MAX_CP) {
+                push @invlist, $end + 1;
+                push @invmap, $missing;
+            }
+        }
+    }
+
+    # If the property is empty, make all code points use the value for missing
+    # ones.
+    if (! @invlist) {
+        push @invlist, 0;
+        push @invmap, $missing;
+    }
+
+    # The final element is always for just the above-Unicode code points.  If
+    # not already there, add it.  It merely splits the current final range
+    # that extends to infinity into two elements, each with the same map.
+    # (This is to conform with the API that says the final element is for
+    # $MAX_UNICODE_CODEPOINT + 1 .. INFINITY.)
+    if ($invlist[-1] != $MAX_UNICODE_CODEPOINT + 1) {
+        push @invmap, $invmap[-1];
+        push @invlist, $MAX_UNICODE_CODEPOINT + 1;
+    }
+
+    # The second component of the map are those values that require
+    # non-standard specification, stored in SPECIALS.  These override any
+    # duplicate code points in LIST.  If we are using a proxy, we may have
+    # already set $overrides based on the proxy.
+    $overrides = $swash->{'SPECIALS'} unless defined $overrides;
+    if ($overrides) {
+
+        # A negative $overrides implies that the SPECIALS should be ignored,
+        # and a simple 'a' list is the value.
+        if ($overrides < 0) {
+            $format = 'a';
+        }
+        else {
+
+            # Currently, all overrides are for properties that normally map to
+            # single code points, but now some will map to lists of code
+            # points (but there is an exception case handled below).
+            $format = 'al';
+
+            # Look through the overrides.
+            foreach my $cp_maybe_utf8 (keys %$overrides) {
+                my $cp;
+                my @map;
+
+                # If the overrides came from SPECIALS, the code point keys are
+                # packed UTF-8.
+                if ($overrides == $swash->{'SPECIALS'}) {
+                    $cp = $cp_maybe_utf8;
+                    if (! utf8::decode($cp)) {
+                        croak __PACKAGE__, "::prop_invmap: Malformed UTF-8: ",
+                              map { sprintf("\\x{%02X}", unpack("C", $_)) }
+                                                                split "", $cp;
+                    }
+
+                    $cp = unpack("W", $cp);
+                    @map = unpack "W*", $swash->{'SPECIALS'}{$cp_maybe_utf8};
+
+                    # The empty string will show up unpacked as an empty
+                    # array.
+                    $format = 'ale' if @map == 0;
+                }
+                else {
+
+                    # But if we generated the overrides, we didn't bother to
+                    # pack them, and we, so far, do this only for properties
+                    # that are 'a' ones.
+                    $cp = $cp_maybe_utf8;
+                    @map = hex $overrides->{$cp};
+                    $format = 'a';
+                }
+
+                # Find the range that the override applies to.
+                my $i = search_invlist(\@invlist, $cp);
+                if ($cp < $invlist[$i] || $cp >= $invlist[$i + 1]) {
+                    croak __PACKAGE__, "::prop_invmap: wrong_range, cp=$cp; i=$i, current=$invlist[$i]; next=$invlist[$i + 1]"
+                }
+
+                # And what that range currently maps to
+                my $cur_map = $invmap[$i];
+
+                # If there is a gap between the next range and the code point
+                # we are overriding, we have to add elements to both arrays to
+                # fill that gap, using the map that applies to it, which is
+                # $cur_map, since it is part of the current range.
+                if ($invlist[$i + 1] > $cp + 1) {
+                    #use feature 'say';
+                    #say "Before splice:";
+                    #say 'i-2=[', $i-2, ']', sprintf("%04X maps to %s", $invlist[$i-2], $invmap[$i-2]) if $i >= 2;
+                    #say 'i-1=[', $i-1, ']', sprintf("%04X maps to %s", $invlist[$i-1], $invmap[$i-1]) if $i >= 1;
+                    #say 'i  =[', $i, ']', sprintf("%04X maps to %s", $invlist[$i], $invmap[$i]);
+                    #say 'i+1=[', $i+1, ']', sprintf("%04X maps to %s", $invlist[$i+1], $invmap[$i+1]) if $i < @invlist + 1;
+                    #say 'i+2=[', $i+2, ']', sprintf("%04X maps to %s", $invlist[$i+2], $invmap[$i+2]) if $i < @invlist + 2;
+
+                    splice @invlist, $i + 1, 0, $cp + 1;
+                    splice @invmap, $i + 1, 0, $cur_map;
+
+                    #say "After splice:";
+                    #say 'i-2=[', $i-2, ']', sprintf("%04X maps to %s", $invlist[$i-2], $invmap[$i-2]) if $i >= 2;
+                    #say 'i-1=[', $i-1, ']', sprintf("%04X maps to %s", $invlist[$i-1], $invmap[$i-1]) if $i >= 1;
+                    #say 'i  =[', $i, ']', sprintf("%04X maps to %s", $invlist[$i], $invmap[$i]);
+                    #say 'i+1=[', $i+1, ']', sprintf("%04X maps to %s", $invlist[$i+1], $invmap[$i+1]) if $i < @invlist + 1;
+                    #say 'i+2=[', $i+2, ']', sprintf("%04X maps to %s", $invlist[$i+2], $invmap[$i+2]) if $i < @invlist + 2;
+                }
+
+                # If the remaining portion of the range is multiple code
+                # points (ending with the one we are replacing, guaranteed by
+                # the earlier splice).  We must split it into two
+                if ($invlist[$i] < $cp) {
+                    $i++;   # Compensate for the new element
+
+                    #use feature 'say';
+                    #say "Before splice:";
+                    #say 'i-2=[', $i-2, ']', sprintf("%04X maps to %s", $invlist[$i-2], $invmap[$i-2]) if $i >= 2;
+                    #say 'i-1=[', $i-1, ']', sprintf("%04X maps to %s", $invlist[$i-1], $invmap[$i-1]) if $i >= 1;
+                    #say 'i  =[', $i, ']', sprintf("%04X maps to %s", $invlist[$i], $invmap[$i]);
+                    #say 'i+1=[', $i+1, ']', sprintf("%04X maps to %s", $invlist[$i+1], $invmap[$i+1]) if $i < @invlist + 1;
+                    #say 'i+2=[', $i+2, ']', sprintf("%04X maps to %s", $invlist[$i+2], $invmap[$i+2]) if $i < @invlist + 2;
+
+                    splice @invlist, $i, 0, $cp;
+                    splice @invmap, $i, 0, 'dummy';
+
+                    #say "After splice:";
+                    #say 'i-2=[', $i-2, ']', sprintf("%04X maps to %s", $invlist[$i-2], $invmap[$i-2]) if $i >= 2;
+                    #say 'i-1=[', $i-1, ']', sprintf("%04X maps to %s", $invlist[$i-1], $invmap[$i-1]) if $i >= 1;
+                    #say 'i  =[', $i, ']', sprintf("%04X maps to %s", $invlist[$i], $invmap[$i]);
+                    #say 'i+1=[', $i+1, ']', sprintf("%04X maps to %s", $invlist[$i+1], $invmap[$i+1]) if $i < @invlist + 1;
+                    #say 'i+2=[', $i+2, ']', sprintf("%04X maps to %s", $invlist[$i+2], $invmap[$i+2]) if $i < @invlist + 2;
+                }
+
+                # Here, the range we are overriding contains a single code
+                # point.  The result could be the empty string, a single
+                # value, or a list.  If the last case, we use an anonymous
+                # array.
+                $invmap[$i] = (scalar @map == 0)
+                               ? ""
+                               : (scalar @map > 1)
+                                  ? \@map
+                                  : $map[0];
+            }
+        }
+    }
+    elsif ($format eq 'x') {
+
+        # All hex-valued properties are really to code points, and have been
+        # converted to decimal.
+        $format = 's';
+    }
+    elsif ($returned_prop eq 'ToDm') {
+        $format = 'ad';
+    }
+    elsif ($format eq 'sw') { # blank-separated elements to form a list.
+        map { $_ = [ split " ", $_  ] if $_ =~ / / } @invmap;
+        $format = 'sl';
+    }
+    elsif ($returned_prop =~ / To ( _Perl )? NameAlias/x) {
+
+        # This property currently doesn't have any lists, but theoretically
+        # could
+        $format = 'sl';
+    }
+    elsif ($returned_prop eq 'ToPerlDecimalDigit') {
+        $format = 'ae';
+    }
+    elsif ($returned_prop eq 'ToNv') {
+
+        # The one property that has this format is stored as a delta, so needs
+        # to indicate that need to add code point to it.
+        $format = 'ar';
+    }
+    elsif ($format eq 'ax') {
+
+        # Normally 'ax' properties have overrides, and will have been handled
+        # above, but if not, they still need adjustment, and the hex values
+        # have already been converted to decimal
+        $format = 'a';
+    }
+    elsif ($format ne 'n' && $format !~ / ^ a /x) {
+
+        # All others are simple scalars
+        $format = 's';
+    }
+    if ($has_multiples &&  $format !~ /l/) {
+	croak __PACKAGE__, "::prop_invmap: Wrong format '$format' for prop_invmap('$prop'); should indicate has lists";
+    }
+
+    return (\@invlist, \@invmap, $format, $missing);
+}
+
+sub search_invlist {
+
+=pod
+
+=head2 B<search_invlist()>
+
+ use Unicode::UCD qw(prop_invmap prop_invlist);
+ use Unicode::UCD 'search_invlist';
+
+ my @invlist = prop_invlist($property_name);
+ print $code_point, ((search_invlist(\@invlist, $code_point) // -1) % 2)
+                     ? " isn't"
+                     : " is",
+     " in $property_name\n";
+
+ my ($blocks_ranges_ref, $blocks_map_ref) = prop_invmap("Block");
+ my $index = search_invlist($blocks_ranges_ref, $code_point);
+ print "$code_point is in block ", $blocks_map_ref->[$index], "\n";
+
+C<search_invlist> is used to search an inversion list returned by
+C<prop_invlist> or C<prop_invmap> for a particular L</code point argument>.
+C<undef> is returned if the code point is not found in the inversion list
+(this happens only when it is not a legal L<code point argument>, or is less
+than the list's first element).  A warning is raised in the first instance.
+
+Otherwise, it returns the index into the list of the range that contains the
+code point.; that is, find C<i> such that
+
+    list[i]<= code_point < list[i+1].
+
+As explained in L</prop_invlist()>, whether a code point is in the list or not
+depends on if the index is even (in) or odd (not in).  And as explained in
+L</prop_invmap()>, the index is used with the returned parallel array to find
+the mapping.
+
+=cut
+
+
+    my $list_ref = shift;
+    my $input_code_point = shift;
+    my $code_point = _getcode($input_code_point);
+
+    if (! defined $code_point) {
+        carp __PACKAGE__, "::search_invlist: unknown code '$input_code_point'";
+        return;
+    }
+
+    my $max_element = @$list_ref - 1;
+
+    # Return undef if list is empty or requested item is before the first element.
+    return if $max_element < 0;
+    return if $code_point < $list_ref->[0];
+
+    # Short cut something at the far-end of the table.  This also allows us to
+    # refer to element [$i+1] without fear of being out-of-bounds in the loop
+    # below.
+    return $max_element if $code_point >= $list_ref->[$max_element];
+
+    use integer;        # want integer division
+
+    my $i = $max_element / 2;
+
+    my $lower = 0;
+    my $upper = $max_element;
+    while (1) {
+
+        if ($code_point >= $list_ref->[$i]) {
+
+            # Here we have met the lower constraint.  We can quit if we
+            # also meet the upper one.
+            last if $code_point < $list_ref->[$i+1];
+
+            $lower = $i;        # Still too low.
+
+        }
+        else {
+
+            # Here, $code_point < $list_ref[$i], so look lower down.
+            $upper = $i;
+        }
+
+        # Split search domain in half to try again.
+        my $temp = ($upper + $lower) / 2;
+
+        # No point in continuing unless $i changes for next time
+        # in the loop.
+        return $i if $temp == $i;
+        $i = $temp;
+    } # End of while loop
+
+    # Here we have found the offset
+    return $i;
+}
+
+=head2 Unicode::UCD::UnicodeVersion
+
+This returns the version of the Unicode Character Database, in other words, the
+version of the Unicode standard the database implements.  The version is a
+string of numbers delimited by dots (C<'.'>).
+
+=cut
+
+my $UNICODEVERSION;
+
+sub UnicodeVersion {
+    unless (defined $UNICODEVERSION) {
+	openunicode(\$VERSIONFH, "version");
+	local $/ = "\n";
+	chomp($UNICODEVERSION = <$VERSIONFH>);
+	close($VERSIONFH);
+	croak __PACKAGE__, "::VERSION: strange version '$UNICODEVERSION'"
+	    unless $UNICODEVERSION =~ /^\d+(?:\.\d+)+$/;
+    }
+    $v_unicode_version = pack "C*", split /\./, $UNICODEVERSION;
+    return $UNICODEVERSION;
+}
+
+=head2 B<Blocks versus Scripts>
+
+The difference between a block and a script is that scripts are closer
+to the linguistic notion of a set of code points required to represent
+languages, while block is more of an artifact of the Unicode code point
+numbering and separation into blocks of consecutive code points (so far the
+size of a block is some multiple of 16, like 128 or 256).
+
+For example the Latin B<script> is spread over several B<blocks>, such
+as C<Basic Latin>, C<Latin 1 Supplement>, C<Latin Extended-A>, and
+C<Latin Extended-B>.  On the other hand, the Latin script does not
+contain all the characters of the C<Basic Latin> block (also known as
+ASCII): it includes only the letters, and not, for example, the digits
+nor the punctuation.
+
+For blocks see L<http://www.unicode.org/Public/UNIDATA/Blocks.txt>
+
+For scripts see UTR #24: L<http://www.unicode.org/unicode/reports/tr24/>
+
+=head2 B<Matching Scripts and Blocks>
+
+Scripts are matched with the regular-expression construct
+C<\p{...}> (e.g. C<\p{Tibetan}> matches characters of the Tibetan script),
+while C<\p{Blk=...}> is used for blocks (e.g. C<\p{Blk=Tibetan}> matches
+any of the 256 code points in the Tibetan block).
+
+=head2 Old-style versus new-style block names
+
+Unicode publishes the names of blocks in two different styles, though the two
+are equivalent under Unicode's loose matching rules.
+
+The original style uses blanks and hyphens in the block names (except for
+C<No_Block>), like so:
+
+ Miscellaneous Mathematical Symbols-B
+
+The newer style replaces these with underscores, like this:
+
+ Miscellaneous_Mathematical_Symbols_B
+
+This newer style is consistent with the values of other Unicode properties.
+To preserve backward compatibility, all the functions in Unicode::UCD that
+return block names (except as noted) return the old-style ones.
+L</prop_value_aliases()> returns the new-style and can be used to convert from
+old-style to new-style:
+
+ my $new_style = prop_values_aliases("block", $old_style);
+
+Perl also has single-form extensions that refer to blocks, C<In_Cyrillic>,
+meaning C<Block=Cyrillic>.  These have always been written in the new style.
+
+To convert from new-style to old-style, follow this recipe:
+
+ $old_style = charblock((prop_invlist("block=$new_style"))[0]);
+
+(which finds the range of code points in the block using C<prop_invlist>,
+gets the lower end of the range (0th element) and then looks up the old name
+for its block using C<charblock>).
+
+Note that starting in Unicode 6.1, many of the block names have shorter
+synonyms.  These are always given in the new style.
+
+=head2 Use with older Unicode versions
+
+The functions in this module work as well as can be expected when
+used on earlier Unicode versions.  But, obviously, they use the available data
+from that Unicode version.  For example, if the Unicode version predates the
+definition of the script property (Unicode 3.1), then any function that deals
+with scripts is going to return C<undef> for the script portion of the return
+value.
+
+=head1 AUTHOR
+
+Jarkko Hietaniemi.  Now maintained by perl5 porters.
+
+=cut
+
+1;
diff --git a/lib/5.24.1/User/grent.pm b/lib/5.24.1/User/grent.pm
new file mode 100644
index 00000000..ce6ee5ea
--- /dev/null
+++ b/lib/5.24.1/User/grent.pm
@@ -0,0 +1,95 @@
+package User::grent;
+use strict;
+
+use 5.006_001;
+our $VERSION = '1.01';
+our(@EXPORT, @EXPORT_OK, %EXPORT_TAGS);
+BEGIN { 
+    use Exporter   ();
+    @EXPORT      = qw(getgrent getgrgid getgrnam getgr);
+    @EXPORT_OK   = qw($gr_name $gr_gid $gr_passwd $gr_mem @gr_members);
+    %EXPORT_TAGS = ( FIELDS => [ @EXPORT_OK, @EXPORT ] );
+}
+use vars      @EXPORT_OK;
+
+# Class::Struct forbids use of @ISA
+sub import { goto &Exporter::import }
+
+use Class::Struct qw(struct);
+struct 'User::grent' => [
+    name    => '$',
+    passwd  => '$',
+    gid	    => '$',
+    members => '@',
+];
+
+sub populate (@) {
+    return unless @_;
+    my $gob = new();
+    ($gr_name, $gr_passwd, $gr_gid) = @$gob[0,1,2] = @_[0,1,2];
+    @gr_members = @{$gob->[3]} = split ' ', $_[3];
+    return $gob;
+} 
+
+sub getgrent ( ) { populate(CORE::getgrent()) } 
+sub getgrnam ($) { populate(CORE::getgrnam(shift)) } 
+sub getgrgid ($) { populate(CORE::getgrgid(shift)) } 
+sub getgr    ($) { ($_[0] =~ /^\d+/) ? &getgrgid : &getgrnam } 
+
+1;
+__END__
+
+=head1 NAME
+
+User::grent - by-name interface to Perl's built-in getgr*() functions
+
+=head1 SYNOPSIS
+
+ use User::grent;
+ $gr = getgrgid(0) or die "No group zero";
+ if ( $gr->name eq 'wheel' && @{$gr->members} > 1 ) {
+     print "gid zero name wheel, with other members";
+ } 
+
+ use User::grent qw(:FIELDS);
+ getgrgid(0) or die "No group zero";
+ if ( $gr_name eq 'wheel' && @gr_members > 1 ) {
+     print "gid zero name wheel, with other members";
+ } 
+
+ $gr = getgr($whoever);
+
+=head1 DESCRIPTION
+
+This module's default exports override the core getgrent(), getgruid(),
+and getgrnam() functions, replacing them with versions that return
+"User::grent" objects.  This object has methods that return the similarly
+named structure field name from the C's passwd structure from F<grp.h>; 
+namely name, passwd, gid, and members (not mem).  The first three
+return scalars, the last an array reference.
+
+You may also import all the structure fields directly into your namespace
+as regular variables using the :FIELDS import tag.  (Note that this still
+overrides your core functions.)  Access these fields as variables named
+with a preceding C<gr_>.  Thus, C<$group_obj-E<gt>gid()> corresponds
+to $gr_gid if you import the fields.  Array references are available as
+regular array variables, so C<@{ $group_obj-E<gt>members() }> would be
+simply @gr_members.
+
+The getpw() function is a simple front-end that forwards
+a numeric argument to getpwuid() and the rest to getpwnam().
+
+To access this functionality without the core overrides,
+pass the C<use> an empty import list, and then access
+function functions with their full qualified names.
+On the other hand, the built-ins are still available
+via the C<CORE::> pseudo-package.
+
+=head1 NOTE
+
+While this class is currently implemented using the Class::Struct
+module to build a struct-like class, you shouldn't rely upon this.
+
+=head1 AUTHOR
+
+Tom Christiansen
diff --git a/lib/5.24.1/User/pwent.pm b/lib/5.24.1/User/pwent.pm
new file mode 100644
index 00000000..91d23bd3
--- /dev/null
+++ b/lib/5.24.1/User/pwent.pm
@@ -0,0 +1,298 @@
+package User::pwent;
+
+use 5.006;
+our $VERSION = '1.00';
+
+use strict;
+use warnings;
+
+use Config;
+use Carp;
+
+our(@EXPORT, @EXPORT_OK, %EXPORT_TAGS);
+BEGIN {
+    use Exporter   ();
+    @EXPORT      = qw(getpwent getpwuid getpwnam getpw);
+    @EXPORT_OK   = qw(
+                        pw_has
+
+                        $pw_name    $pw_passwd  $pw_uid  $pw_gid
+                        $pw_gecos   $pw_dir     $pw_shell
+                        $pw_expire  $pw_change  $pw_class
+                        $pw_age
+                        $pw_quota   $pw_comment
+                        $pw_expire
+
+                   );
+    %EXPORT_TAGS = (
+        FIELDS => [ grep(/^\$pw_/, @EXPORT_OK), @EXPORT ],
+        ALL    => [ @EXPORT, @EXPORT_OK ],
+    );
+}
+use vars grep /^\$pw_/, @EXPORT_OK;
+
+#
+# XXX: these mean somebody hacked this module's source
+#      without understanding the underlying assumptions.
+#
+my $IE = "[INTERNAL ERROR]";
+
+# Class::Struct forbids use of @ISA
+sub import { goto &Exporter::import }
+
+use Class::Struct qw(struct);
+struct 'User::pwent' => [
+    name    => '$',         # pwent[0]
+    passwd  => '$',         # pwent[1]
+    uid     => '$',         # pwent[2]
+    gid     => '$',         # pwent[3]
+
+    # you'll only have one/none of these three
+    change  => '$',         # pwent[4]
+    age     => '$',         # pwent[4]
+    quota   => '$',         # pwent[4]
+
+    # you'll only have one/none of these two
+    comment => '$',         # pwent[5]
+    class   => '$',         # pwent[5]
+
+    # you might not have this one
+    gecos   => '$',         # pwent[6]
+
+    dir     => '$',         # pwent[7]
+    shell   => '$',         # pwent[8]
+
+    # you might not have this one
+    expire  => '$',         # pwent[9]
+
+];
+
+
+# init our groks hash to be true if the built platform knew how
+# to do each struct pwd field that perl can ever under any circumstances
+# know about.  we do not use /^pw_?/, but just the tails.
+sub _feature_init {
+    our %Groks;         # whether build system knew how to do this feature
+    for my $feep ( qw{
+                         pwage      pwchange   pwclass    pwcomment
+                         pwexpire   pwgecos    pwpasswd   pwquota
+                     }
+                 )
+    {
+        my $short = $feep =~ /^pw(.*)/
+                  ? $1
+                  : do {
+                        # not cluck, as we know we called ourselves,
+                        # and a confession is probably imminent anyway
+                        warn("$IE $feep is a funny struct pwd field");
+                        $feep;
+                    };
+
+        exists $Config{ "d_" . $feep }
+            || confess("$IE Configure doesn't d_$feep");
+        $Groks{$short} = defined $Config{ "d_" . $feep };
+    }
+    # assume that any that are left are always there
+    for my $feep (grep /^\$pw_/s, @EXPORT_OK) {
+        $feep =~ /^\$pw_(.*)/;
+        $Groks{$1} = 1 unless defined $Groks{$1};
+    }
+}
+
+# With arguments, reports whether one or more fields are all implemented
+# in the build machine's struct pwd pw_*.  May be whitespace separated.
+# We do not use /^pw_?/, just the tails.
+#
+# Without arguments, returns the list of fields implemented on build
+# machine, space separated in scalar context.
+#
+# Takes exception to being asked whether this machine's struct pwd has
+# a field that Perl never knows how to provide under any circumstances.
+# If the module does this idiocy to itself, the explosion is noisier.
+#
+sub pw_has {
+    our %Groks;         # whether build system knew how to do this feature
+    my $cando = 1;
+    my $sploder = caller() ne __PACKAGE__
+                    ? \&croak
+                    : sub { confess("$IE @_") };
+    if (@_ == 0) {
+        my @valid = sort grep { $Groks{$_} } keys %Groks;
+        return wantarray ? @valid : "@valid";
+    }
+    for my $feep (map { split } @_) {
+        defined $Groks{$feep}
+            || $sploder->("$feep is never a valid struct pwd field");
+        $cando &&= $Groks{$feep};
+    }
+    return $cando;
+}
+
+sub _populate (@) {
+    return unless @_;
+    my $pwob = new();
+
+    # Any that haven't been pw_had are assumed on "all" platforms of
+    # course, this may not be so, but you can't get here otherwise,
+    # since the underlying core call already took exception to your
+    # impudence.
+
+    $pw_name    = $pwob->name   ( $_[0] );
+    $pw_passwd  = $pwob->passwd ( $_[1] )   if pw_has("passwd");
+    $pw_uid     = $pwob->uid    ( $_[2] );
+    $pw_gid     = $pwob->gid    ( $_[3] );
+
+    if (pw_has("change")) {
+        $pw_change      = $pwob->change ( $_[4] );
+    }
+    elsif (pw_has("age")) {
+        $pw_age         = $pwob->age    ( $_[4] );
+    }
+    elsif (pw_has("quota")) {
+        $pw_quota       = $pwob->quota  ( $_[4] );
+    }
+
+    if (pw_has("class")) {
+        $pw_class       = $pwob->class  ( $_[5] );
+    }
+    elsif (pw_has("comment")) {
+        $pw_comment     = $pwob->comment( $_[5] );
+    }
+
+    $pw_gecos   = $pwob->gecos  ( $_[6] ) if pw_has("gecos");
+
+    $pw_dir     = $pwob->dir    ( $_[7] );
+    $pw_shell   = $pwob->shell  ( $_[8] );
+
+    $pw_expire  = $pwob->expire ( $_[9] ) if pw_has("expire");
+
+    return $pwob;
+}
+
+sub getpwent ( ) { _populate(CORE::getpwent()) }
+sub getpwnam ($) { _populate(CORE::getpwnam(shift)) }
+sub getpwuid ($) { _populate(CORE::getpwuid(shift)) }
+sub getpw    ($) { ($_[0] =~ /^\d+\z/s) ? &getpwuid : &getpwnam }
+
+_feature_init();
+
+1;
+__END__
+
+=head1 NAME
+
+User::pwent - by-name interface to Perl's built-in getpw*() functions
+
+=head1 SYNOPSIS
+
+ use User::pwent;
+ $pw = getpwnam('daemon')       || die "No daemon user";
+ if ( $pw->uid == 1 && $pw->dir =~ m#^/(bin|tmp)?\z#s ) {
+     print "gid 1 on root dir";
+ }
+
+ $real_shell = $pw->shell || '/bin/sh';
+
+ for (($fullname, $office, $workphone, $homephone) =
+        split /\s*,\s*/, $pw->gecos)
+ {
+    s/&/ucfirst(lc($pw->name))/ge;
+ }
+
+ use User::pwent qw(:FIELDS);
+ getpwnam('daemon')             || die "No daemon user";
+ if ( $pw_uid == 1 && $pw_dir =~ m#^/(bin|tmp)?\z#s ) {
+     print "gid 1 on root dir";
+ }
+
+ $pw = getpw($whoever);
+
+ use User::pwent qw/:DEFAULT pw_has/;
+ if (pw_has(qw[gecos expire quota])) { .... }
+ if (pw_has("name uid gid passwd"))  { .... }
+ print "Your struct pwd has: ", scalar pw_has(), "\n";
+
+=head1 DESCRIPTION
+
+This module's default exports override the core getpwent(), getpwuid(),
+and getpwnam() functions, replacing them with versions that return
+C<User::pwent> objects.  This object has methods that return the
+similarly named structure field name from the C's passwd structure
+from F<pwd.h>, stripped of their leading "pw_" parts, namely C<name>,
+C<passwd>, C<uid>, C<gid>, C<change>, C<age>, C<quota>, C<comment>,
+C<class>, C<gecos>, C<dir>, C<shell>, and C<expire>.  The C<passwd>,
+C<gecos>, and C<shell> fields are tainted when running in taint mode.
+
+You may also import all the structure fields directly into your
+namespace as regular variables using the :FIELDS import tag.  (Note
+that this still overrides your core functions.)  Access these fields
+as variables named with a preceding C<pw_> in front their method
+names.  Thus, C<< $passwd_obj->shell >> corresponds to $pw_shell
+if you import the fields.
+
+The getpw() function is a simple front-end that forwards
+a numeric argument to getpwuid() and the rest to getpwnam().
+
+To access this functionality without the core overrides, pass the
+C<use> an empty import list, and then access function functions
+with their full qualified names.  The built-ins are always still
+available via the C<CORE::> pseudo-package.
+
+=head2 System Specifics
+
+Perl believes that no machine ever has more than one of C<change>,
+C<age>, or C<quota> implemented, nor more than one of either
+C<comment> or C<class>.  Some machines do not support C<expire>,
+C<gecos>, or allegedly, C<passwd>.  You may call these methods
+no matter what machine you're on, but they return C<undef> if
+unimplemented.
+
+You may ask whether one of these was implemented on the system Perl
+was built on by asking the importable C<pw_has> function about them.
+This function returns true if all parameters are supported fields
+on the build platform, false if one or more were not, and raises
+an exception if you asked about a field that Perl never knows how
+to provide.  Parameters may be in a space-separated string, or as
+separate arguments.  If you pass no parameters, the function returns
+the list of C<struct pwd> fields supported by your build platform's
+C library, as a list in list context, or a space-separated string
+in scalar context.  Note that just because your C library had
+a field doesn't necessarily mean that it's fully implemented on
+that system.
+
+Interpretation of the C<gecos> field varies between systems, but
+traditionally holds 4 comma-separated fields containing the user's
+full name, office location, work phone number, and home phone number.
+An C<&> in the gecos field should be replaced by the user's properly
+capitalized login C<name>.  The C<shell> field, if blank, must be
+assumed to be F</bin/sh>.  Perl does not do this for you.  The
+C<passwd> is one-way hashed garble, not clear text, and may not be
+unhashed save by brute-force guessing.  Secure systems use more a
+more secure hashing than DES.  On systems supporting shadow password
+systems, Perl automatically returns the shadow password entry when
+called by a suitably empowered user, even if your underlying
+vendor-provided C library was too short-sighted to realize it should
+do this.
+
+See passwd(5) and getpwent(3) for details.
+
+=head1 NOTE
+
+While this class is currently implemented using the Class::Struct
+module to build a struct-like class, you shouldn't rely upon this.
+
+=head1 AUTHOR
+
+Tom Christiansen
+
+=head1 HISTORY
+
+=over 4
+
+=item March 18th, 2000
+
+Reworked internals to support better interface to dodgey fields
+than normal Perl function provides.  Added pw_has() field.  Improved
+documentation.
+
+=back
diff --git a/lib/5.24.1/XSLoader.pm b/lib/5.24.1/XSLoader.pm
new file mode 100644
index 00000000..6761bb03
--- /dev/null
+++ b/lib/5.24.1/XSLoader.pm
@@ -0,0 +1,377 @@
+# Generated from XSLoader.pm.PL (resolved %Config::Config value)
+# This file is unique for every OS
+
+package XSLoader;
+
+$VERSION = "0.22";
+
+#use strict;
+
+package DynaLoader;
+
+# No prizes for guessing why we don't say 'bootstrap DynaLoader;' here.
+# NOTE: All dl_*.xs (including dl_none.xs) define a dl_error() XSUB
+boot_DynaLoader('DynaLoader') if defined(&boot_DynaLoader) &&
+                                !defined(&dl_error);
+package XSLoader;
+
+sub load {
+    package DynaLoader;
+
+    my ($caller, $modlibname) = caller();
+    my $module = $caller;
+
+    if (@_) {
+        $module = $_[0];
+    } else {
+        $_[0] = $module;
+    }
+
+    # work with static linking too
+    my $boots = "$module\::bootstrap";
+    goto &$boots if defined &$boots;
+
+    goto \&XSLoader::bootstrap_inherit unless $module and defined &dl_load_file;
+
+    my @modparts = split(/::/,$module);
+    my $modfname = $modparts[-1];
+
+    my $modpname = join('/',@modparts);
+    my $c = () = split(/::/,$caller,-1);
+    $modlibname =~ s,[\\/][^\\/]+$,, while $c--;    # Q&D basename
+    # Does this look like a relative path?
+    if ($modlibname !~ m{^/}) {
+        # Someone may have a #line directive that changes the file name, or
+        # may be calling XSLoader::load from inside a string eval.  We cer-
+        # tainly do not want to go loading some code that is not in @INC,
+        # as it could be untrusted.
+        #
+        # We could just fall back to DynaLoader here, but then the rest of
+        # this function would go untested in the perl core, since all @INC
+        # paths are relative during testing.  That would be a time bomb
+        # waiting to happen, since bugs could be introduced into the code.
+        #
+        # So look through @INC to see if $modlibname is in it.  A rela-
+        # tive $modlibname is not a common occurrence, so this block is
+        # not hot code.
+        FOUND: {
+            for (@INC) {
+                if ($_ eq $modlibname) {
+                    last FOUND;
+                }
+            }
+            # Not found.  Fall back to DynaLoader.
+            goto \&XSLoader::bootstrap_inherit;
+        }
+    }
+    my $file = "$modlibname/auto/$modpname/$modfname.so";
+
+#   print STDERR "XSLoader::load for $module ($file)\n" if $dl_debug;
+
+    my $bs = $file;
+    $bs =~ s/(\.\w+)?(;\d*)?$/\.bs/; # look for .bs 'beside' the library
+
+    if (-s $bs) { # only read file if it's not empty
+#       print STDERR "BS: $bs ($^O, $dlsrc)\n" if $dl_debug;
+        eval { do $bs; };
+        warn "$bs: $@\n" if $@;
+	goto \&XSLoader::bootstrap_inherit;
+    }
+
+    goto \&XSLoader::bootstrap_inherit if not -f $file;
+
+    my $bootname = "boot_$module";
+    $bootname =~ s/\W/_/g;
+    @DynaLoader::dl_require_symbols = ($bootname);
+
+    my $boot_symbol_ref;
+
+    # Many dynamic extension loading problems will appear to come from
+    # this section of code: XYZ failed at line 123 of DynaLoader.pm.
+    # Often these errors are actually occurring in the initialisation
+    # C code of the extension XS file. Perl reports the error as being
+    # in this perl code simply because this was the last perl code
+    # it executed.
+
+    my $libref = dl_load_file($file, 0) or do { 
+        require Carp;
+        Carp::croak("Can't load '$file' for module $module: " . dl_error());
+    };
+    push(@DynaLoader::dl_librefs,$libref);  # record loaded object
+
+    $boot_symbol_ref = dl_find_symbol($libref, $bootname) or do {
+        require Carp;
+        Carp::croak("Can't find '$bootname' symbol in $file\n");
+    };
+
+    push(@DynaLoader::dl_modules, $module); # record loaded module
+
+  boot:
+    my $xs = dl_install_xsub($boots, $boot_symbol_ref, $file);
+
+    # See comment block above
+    push(@DynaLoader::dl_shared_objects, $file); # record files loaded
+    return &$xs(@_);
+}
+
+sub bootstrap_inherit {
+    require DynaLoader;
+    goto \&DynaLoader::bootstrap_inherit;
+}
+
+1;
+
+
+__END__
+
+=head1 NAME
+
+XSLoader - Dynamically load C libraries into Perl code
+
+=head1 VERSION
+
+Version 0.22
+
+=head1 SYNOPSIS
+
+    package YourPackage;
+    require XSLoader;
+
+    XSLoader::load();
+
+=head1 DESCRIPTION
+
+This module defines a standard I<simplified> interface to the dynamic
+linking mechanisms available on many platforms.  Its primary purpose is
+to implement cheap automatic dynamic loading of Perl modules.
+
+For a more complicated interface, see L<DynaLoader>.  Many (most)
+features of C<DynaLoader> are not implemented in C<XSLoader>, like for
+example the C<dl_load_flags>, not honored by C<XSLoader>.
+
+=head2 Migration from C<DynaLoader>
+
+A typical module using L<DynaLoader|DynaLoader> starts like this:
+
+    package YourPackage;
+    require DynaLoader;
+
+    our @ISA = qw( OnePackage OtherPackage DynaLoader );
+    our $VERSION = '0.01';
+    bootstrap YourPackage $VERSION;
+
+Change this to
+
+    package YourPackage;
+    use XSLoader;
+
+    our @ISA = qw( OnePackage OtherPackage );
+    our $VERSION = '0.01';
+    XSLoader::load 'YourPackage', $VERSION;
+
+In other words: replace C<require DynaLoader> by C<use XSLoader>, remove
+C<DynaLoader> from C<@ISA>, change C<bootstrap> by C<XSLoader::load>.  Do not
+forget to quote the name of your package on the C<XSLoader::load> line,
+and add comma (C<,>) before the arguments (C<$VERSION> above).
+
+Of course, if C<@ISA> contained only C<DynaLoader>, there is no need to have
+the C<@ISA> assignment at all; moreover, if instead of C<our> one uses the
+more backward-compatible
+
+    use vars qw($VERSION @ISA);
+
+one can remove this reference to C<@ISA> together with the C<@ISA> assignment.
+
+If no C<$VERSION> was specified on the C<bootstrap> line, the last line becomes
+
+    XSLoader::load 'YourPackage';
+
+If the call to C<load> is from C<YourPackage>, then that can be further
+simplified to
+
+    XSLoader::load();
+
+as C<load> will use C<caller> to determine the package.
+
+=head2 Backward compatible boilerplate
+
+If you want to have your cake and eat it too, you need a more complicated
+boilerplate.
+
+    package YourPackage;
+    use vars qw($VERSION @ISA);
+
+    @ISA = qw( OnePackage OtherPackage );
+    $VERSION = '0.01';
+    eval {
+       require XSLoader;
+       XSLoader::load('YourPackage', $VERSION);
+       1;
+    } or do {
+       require DynaLoader;
+       push @ISA, 'DynaLoader';
+       bootstrap YourPackage $VERSION;
+    };
+
+The parentheses about C<XSLoader::load()> arguments are needed since we replaced
+C<use XSLoader> by C<require>, so the compiler does not know that a function
+C<XSLoader::load()> is present.
+
+This boilerplate uses the low-overhead C<XSLoader> if present; if used with
+an antique Perl which has no C<XSLoader>, it falls back to using C<DynaLoader>.
+
+=head1 Order of initialization: early load()
+
+I<Skip this section if the XSUB functions are supposed to be called from other
+modules only; read it only if you call your XSUBs from the code in your module,
+or have a C<BOOT:> section in your XS file (see L<perlxs/"The BOOT: Keyword">).
+What is described here is equally applicable to the L<DynaLoader|DynaLoader>
+interface.>
+
+A sufficiently complicated module using XS would have both Perl code (defined
+in F<YourPackage.pm>) and XS code (defined in F<YourPackage.xs>).  If this
+Perl code makes calls into this XS code, and/or this XS code makes calls to
+the Perl code, one should be careful with the order of initialization.
+
+The call to C<XSLoader::load()> (or C<bootstrap()>) calls the module's
+bootstrap code. For modules build by F<xsubpp> (nearly all modules) this
+has three side effects:
+
+=over
+
+=item *
+
+A sanity check is done to ensure that the versions of the F<.pm> and the
+(compiled) F<.xs> parts are compatible. If C<$VERSION> was specified, this
+is used for the check. If not specified, it defaults to
+C<$XS_VERSION // $VERSION> (in the module's namespace)
+
+=item *
+
+the XSUBs are made accessible from Perl
+
+=item *
+
+if a C<BOOT:> section was present in the F<.xs> file, the code there is called.
+
+=back
+
+Consequently, if the code in the F<.pm> file makes calls to these XSUBs, it is
+convenient to have XSUBs installed before the Perl code is defined; for
+example, this makes prototypes for XSUBs visible to this Perl code.
+Alternatively, if the C<BOOT:> section makes calls to Perl functions (or
+uses Perl variables) defined in the F<.pm> file, they must be defined prior to
+the call to C<XSLoader::load()> (or C<bootstrap()>).
+
+The first situation being much more frequent, it makes sense to rewrite the
+boilerplate as
+
+    package YourPackage;
+    use XSLoader;
+    use vars qw($VERSION @ISA);
+
+    BEGIN {
+       @ISA = qw( OnePackage OtherPackage );
+       $VERSION = '0.01';
+
+       # Put Perl code used in the BOOT: section here
+
+       XSLoader::load 'YourPackage', $VERSION;
+    }
+
+    # Put Perl code making calls into XSUBs here
+
+=head2 The most hairy case
+
+If the interdependence of your C<BOOT:> section and Perl code is
+more complicated than this (e.g., the C<BOOT:> section makes calls to Perl
+functions which make calls to XSUBs with prototypes), get rid of the C<BOOT:>
+section altogether.  Replace it with a function C<onBOOT()>, and call it like
+this:
+
+    package YourPackage;
+    use XSLoader;
+    use vars qw($VERSION @ISA);
+
+    BEGIN {
+       @ISA = qw( OnePackage OtherPackage );
+       $VERSION = '0.01';
+       XSLoader::load 'YourPackage', $VERSION;
+    }
+
+    # Put Perl code used in onBOOT() function here; calls to XSUBs are
+    # prototype-checked.
+
+    onBOOT;
+
+    # Put Perl initialization code assuming that XS is initialized here
+
+
+=head1 DIAGNOSTICS
+
+=over
+
+=item C<Can't find '%s' symbol in %s>
+
+B<(F)> The bootstrap symbol could not be found in the extension module.
+
+=item C<Can't load '%s' for module %s: %s>
+
+B<(F)> The loading or initialisation of the extension module failed.
+The detailed error follows.
+
+=item C<Undefined symbols present after loading %s: %s>
+
+B<(W)> As the message says, some symbols stay undefined although the
+extension module was correctly loaded and initialised. The list of undefined
+symbols follows.
+
+=back
+
+=head1 LIMITATIONS
+
+To reduce the overhead as much as possible, only one possible location
+is checked to find the extension DLL (this location is where C<make install>
+would put the DLL).  If not found, the search for the DLL is transparently
+delegated to C<DynaLoader>, which looks for the DLL along the C<@INC> list.
+
+In particular, this is applicable to the structure of C<@INC> used for testing
+not-yet-installed extensions.  This means that running uninstalled extensions
+may have much more overhead than running the same extensions after
+C<make install>.
+
+
+=head1 KNOWN BUGS
+
+The new simpler way to call C<XSLoader::load()> with no arguments at all
+does not work on Perl 5.8.4 and 5.8.5.
+
+
+=head1 BUGS
+
+Please report any bugs or feature requests via the perlbug(1) utility.
+
+
+=head1 SEE ALSO
+
+L<DynaLoader>
+
+
+=head1 AUTHORS
+
+Ilya Zakharevich originally extracted C<XSLoader> from C<DynaLoader>.
+
+CPAN version is currently maintained by SE<eacute>bastien Aperghis-Tramoni
+E<lt>sebastien@aperghis.netE<gt>.
+
+Previous maintainer was Michael G Schwern <schwern@pobox.com>.
+
+
+=head1 COPYRIGHT & LICENSE
+
+Copyright (C) 1990-2011 by Larry Wall and others.
+
+This program is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
+=cut
diff --git a/lib/5.24.1/_charnames.pm b/lib/5.24.1/_charnames.pm
new file mode 100644
index 00000000..bb7d7c6c
--- /dev/null
+++ b/lib/5.24.1/_charnames.pm
@@ -0,0 +1,826 @@
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This helper module is for internal use by core Perl only.  This module is
+# subject to change or removal at any time without notice.  Don't use it
+# directly.  Use the public <charnames> module instead.
+
+package _charnames;
+use strict;
+use warnings;
+our $VERSION = '1.43';
+use unicore::Name;    # mktables-generated algorithmically-defined names
+
+use bytes ();          # for $bytes::hint_bits
+use re "/aa";          # Everything in here should be ASCII
+
+$Carp::Internal{ (__PACKAGE__) } = 1;
+
+# Translate between Unicode character names and their code points.  This is a
+# submodule of package <charnames>, used to allow \N{...} to be autoloaded,
+# but it was decided not to autoload the various functions in charnames; the
+# splitting allows this behavior.
+#
+# The official names with their code points are stored in a table in
+# lib/unicore/Name.pl which is read in as a large string (almost 3/4 Mb in
+# Unicode 6.0).  Each code point/name combination is separated by a \n in the
+# string.  (Some of the CJK and the Hangul syllable names are determined
+# instead algorithmically via subroutines stored instead in
+# lib/unicore/Name.pm).  Because of the large size of this table, it isn't
+# converted into hashes for faster lookup.
+#
+# But, user defined aliases are stored in their own hashes, as are Perl
+# extensions to the official names.  These are checked first before looking at
+# the official table.
+#
+# Basically, the table is grepped for the input code point (viacode()) or
+# name (the other functions), and the corresponding value on the same line is
+# returned.  The grepping is done by turning the input into a regular
+# expression.  Thus, the same table does double duty, used by both name and
+# code point lookup.  (If we were to have hashes, we would need two, one for
+# each lookup direction.)
+#
+# For loose name matching, the logical thing would be to have a table
+# with all the ignorable characters squeezed out, and then grep it with the
+# similiarly-squeezed input name.  (And this is in fact how the lookups are
+# done with the small Perl extension hashes.)  But since we need to be able to
+# go from code point to official name, the original table would still need to
+# exist.  Due to the large size of the table, it was decided to not read
+# another very large string into memory for a second table.  Instead, the
+# regular expression of the input name is modified to have optional spaces and
+# dashes between characters.  For example, in strict matching, the regular
+# expression would be:
+#   qr/\tDIGIT ONE$/m
+# Under loose matching, the blank would be squeezed out, and the re would be:
+#   qr/\tD[- ]?I[- ]?G[- ]?I[- ]?T[- ]?O[- ]?N[- ]?E$/m
+# which matches a blank or dash between any characters in the official table.
+#
+# This is also how script lookup is done.  Basically the re looks like
+#   qr/ (?:LATIN|GREEK|CYRILLIC) (?:SMALL )?LETTER $name/
+# where $name is the loose or strict regex for the remainder of the name.
+
+# The hashes are stored as utf8 strings.  This makes it easier to deal with
+# sequences.  I (khw) also tried making Name.pl utf8, but it slowed things
+# down by a factor of 7.  I then tried making Name.pl store the ut8
+# equivalents but not calling them utf8.  That led to similar speed as leaving
+# it alone, but since that is harder for a human to parse, I left it as-is.
+
+my %system_aliases = (
+
+    'SINGLE-SHIFT 2'                => chr utf8::unicode_to_native(0x8E),
+    'SINGLE-SHIFT 3'                => chr utf8::unicode_to_native(0x8F),
+    'PRIVATE USE 1'                 => chr utf8::unicode_to_native(0x91),
+    'PRIVATE USE 2'                 => chr utf8::unicode_to_native(0x92),
+);
+
+# These are the aliases above that differ under :loose and :full matching
+# because the :full versions have blanks or hyphens in them.
+#my %loose_system_aliases = (
+#);
+
+#my %deprecated_aliases;
+#$deprecated_aliases{'BELL'} = chr utf8::unicode_to_native(0x07) if $^V lt v5.17.0;
+
+#my %loose_deprecated_aliases = (
+#);
+
+# These are special cased in :loose matching, differing only in a medial
+# hyphen
+my $HANGUL_JUNGSEONG_O_E_utf8 = chr 0x1180;
+my $HANGUL_JUNGSEONG_OE_utf8 = chr 0x116C;
+
+
+my $txt;  # The table of official character names
+
+my %full_names_cache; # Holds already-looked-up names, so don't have to
+# re-look them up again.  The previous versions of charnames had scoping
+# bugs.  For example if we use script A in one scope and find and cache
+# what Z resolves to, we can't use that cache in a different scope that
+# uses script B instead of A, as Z might be an entirely different letter
+# there; or there might be different aliases in effect in different
+# scopes, or :short may be in effect or not effect in different scopes,
+# or various combinations thereof.  This was solved in this version
+# mostly by moving things to %^H.  But some things couldn't be moved
+# there.  One of them was the cache of runtime looked-up names, in part
+# because %^H is read-only at runtime.  I (khw) don't know why the cache
+# was run-time only in the previous versions: perhaps oversight; perhaps
+# that compile time looking doesn't happen in a loop so didn't think it
+# was worthwhile; perhaps not wanting to make the cache too large.  But
+# I decided to make it compile time as well; this could easily be
+# changed.
+# Anyway, this hash is not scoped, and is added to at runtime.  It
+# doesn't have scoping problems because the data in it is restricted to
+# official names, which are always invariant, and we only set it and
+# look at it at during :full lookups, so is unaffected by any other
+# scoped options.  I put this in to maintain parity with the older
+# version.  If desired, a %short_names cache could also be made, as well
+# as one for each script, say in %script_names_cache, with each key
+# being a hash for a script named in a 'use charnames' statement.  I
+# decided not to do that for now, just because it's added complication,
+# and because I'm just trying to maintain parity, not extend it.
+
+# Like %full_names_cache, but for use when :loose is in effect.  There needs
+# to be two caches because :loose may not be in effect for a scope, and a
+# loose name could inappropriately be returned when only exact matching is
+# called for.
+my %loose_names_cache;
+
+# Designed so that test decimal first, and then hex.  Leading zeros
+# imply non-decimal, as do non-[0-9]
+my $decimal_qr = qr/^[1-9]\d*$/;
+
+# Returns the hex number in $1.
+my $hex_qr = qr/^(?:[Uu]\+|0[xX])?([[:xdigit:]]+)$/;
+
+sub croak
+{
+  require Carp; goto &Carp::croak;
+} # croak
+
+sub carp
+{
+  require Carp; goto &Carp::carp;
+} # carp
+
+sub alias (@) # Set up a single alias
+{
+  my @errors;
+  my $nbsp = chr utf8::unicode_to_native(0xA0);
+
+  my $alias = ref $_[0] ? $_[0] : { @_ };
+  foreach my $name (sort keys %$alias) {  # Sort only because it helps having
+                                          # deterministic output for
+                                          # t/lib/charnames/alias
+    my $value = $alias->{$name};
+    next unless defined $value;          # Omit if screwed up.
+
+    # Is slightly slower to just after this statement see if it is
+    # decimal, since we already know it is after having converted from
+    # hex, but makes the code easier to maintain, and is called
+    # infrequently, only at compile-time
+    if ($value !~ $decimal_qr && $value =~ $hex_qr) {
+      my $temp = CORE::hex $1;
+      $temp = utf8::unicode_to_native($temp) if $value =~ /^[Uu]\+/;
+      $value = $temp;
+    }
+    if ($value =~ $decimal_qr) {
+        no warnings qw(non_unicode surrogate nonchar); # Allow any of these
+        $^H{charnames_ord_aliases}{$name} = chr $value;
+
+        # Use a canonical form.
+        $^H{charnames_inverse_ords}{sprintf("%05X", $value)} = $name;
+    }
+    else {
+        my $ok_portion = "";
+        $ok_portion = $1 if $name =~ / ^ (
+                                            \p{_Perl_Charname_Begin}
+                                            \p{_Perl_Charname_Continue}*
+                                         ) /x;
+
+        # If the name was fully correct, the above should have matched all of
+        # it.
+        if (length $ok_portion < length $name) {
+          my $first_bad = substr($name, length($ok_portion), 1);
+          push @errors, "Invalid character in charnames alias definition; "
+                        . "marked by <-- HERE in '$ok_portion$first_bad<-- HERE "
+                        . substr($name, length($ok_portion) + 1)
+                        . "'";
+        }
+        else {
+            if ($name =~ / ( .* \s ) ( \s* ) $ /x) {
+              push @errors, "charnames alias definitions may not contain "
+                            . "trailing white-space; marked by <-- HERE in "
+                            . "'$1 <-- HERE " . $2 . "'";
+              next;
+            }
+
+            # Use '+' instead of '*' in this regex, because any trailing
+            # blanks have already been found
+            if ($name =~ / ( .*? \s{2} ) ( .+ ) /x) {
+              push @errors, "charnames alias definitions may not contain a "
+                            . "sequence of multiple spaces; marked by <-- HERE "
+                            . "in '$1 <-- HERE " . $2 . "'";
+              next;
+            }
+
+            $^H{charnames_name_aliases}{$name} = $value;
+            if (warnings::enabled('deprecated')
+                && $name =~ / ( .* $nbsp ) ( .* ) $ /x)
+            {
+                  carp "NO-BREAK SPACE in a charnames alias definition is "
+                       . "deprecated; marked by <-- HERE in '$1 <-- HERE "
+                       . $2 . "'";
+            }
+        }
+    }
+  }
+
+  # We find and output all errors from this :alias definition, rather than
+  # failing on the first one, so fewer runs are needed to get it to compile
+  if (@errors) {
+    croak join "\n", @errors;
+  }
+
+  return;
+} # alias
+
+sub not_legal_use_bytes_msg {
+  my ($name, $utf8) = @_;
+  my $return;
+
+  if (length($utf8) == 1) {
+    $return = sprintf("Character 0x%04x with name '%s' is", ord $utf8, $name);
+  } else {
+    $return = sprintf("String with name '%s' (and ordinals %s) contains character(s)", $name, join(" ", map { sprintf "0x%04X", ord $_ } split(//, $utf8)));
+  }
+  return $return . " above 0xFF with 'use bytes' in effect";
+}
+
+sub alias_file ($)  # Reads a file containing alias definitions
+{
+  require File::Spec;
+  my ($arg, $file) = @_;
+  if (-f $arg && File::Spec->file_name_is_absolute ($arg)) {
+    $file = $arg;
+  }
+  elsif ($arg =~ m/ ^ \p{_Perl_IDStart} \p{_Perl_IDCont}* $/x) {
+    $file = "unicore/${arg}_alias.pl";
+  }
+  else {
+    croak "Charnames alias file names can only have identifier characters";
+  }
+  if (my @alias = do $file) {
+    @alias == 1 && !defined $alias[0] and
+      croak "$file cannot be used as alias file for charnames";
+    @alias % 2 and
+      croak "$file did not return a (valid) list of alias pairs";
+    alias (@alias);
+    return (1);
+  }
+  0;
+} # alias_file
+
+# For use when don't import anything.  This structure must be kept in
+# sync with the one that import() fills up.
+my %dummy_H = (
+                charnames_stringified_names => "",
+                charnames_stringified_ords => "",
+                charnames_scripts => "",
+                charnames_full => 1,
+                charnames_loose => 0,
+                charnames_short => 0,
+              );
+
+
+sub lookup_name ($$$) {
+  my ($name, $wants_ord, $runtime) = @_;
+
+  # Lookup the name or sequence $name in the tables.  If $wants_ord is false,
+  # returns the string equivalent of $name; if true, returns the ordinal value
+  # instead, but in this case $name must not be a sequence; otherwise undef is
+  # returned and a warning raised.  $runtime is 0 if compiletime, otherwise
+  # gives the number of stack frames to go back to get the application caller
+  # info.
+  # If $name is not found, returns undef in runtime with no warning; and in
+  # compiletime, the Unicode replacement character, with a warning.
+
+  # It looks first in the aliases, then in the large table of official Unicode
+  # names.
+
+  my $result;       # The string result
+  my $save_input;
+
+  if ($runtime) {
+
+    my $hints_ref = (caller($runtime))[10];
+
+    # If we didn't import anything (which happens with 'use charnames ()',
+    # substitute a dummy structure.
+    $hints_ref = \%dummy_H if ! defined $hints_ref
+                              || (! defined $hints_ref->{charnames_full}
+                                  && ! defined $hints_ref->{charnames_loose});
+
+    # At runtime, but currently not at compile time, %^H gets
+    # stringified, so un-stringify back to the original data structures.
+    # These get thrown away by perl before the next invocation
+    # Also fill in the hash with the non-stringified data.
+    # N.B.  New fields must be also added to %dummy_H
+
+    %{$^H{charnames_name_aliases}} = split ',',
+                                      $hints_ref->{charnames_stringified_names};
+    %{$^H{charnames_ord_aliases}} = split ',',
+                                      $hints_ref->{charnames_stringified_ords};
+    $^H{charnames_scripts} = $hints_ref->{charnames_scripts};
+    $^H{charnames_full} = $hints_ref->{charnames_full};
+    $^H{charnames_loose} = $hints_ref->{charnames_loose};
+    $^H{charnames_short} = $hints_ref->{charnames_short};
+  }
+
+  my $loose = $^H{charnames_loose};
+  my $lookup_name;  # Input name suitably modified for grepping for in the
+                    # table
+
+  # User alias should be checked first or else can't override ours, and if we
+  # were to add any, could conflict with theirs.
+  if (exists $^H{charnames_ord_aliases}{$name}) {
+    $result = $^H{charnames_ord_aliases}{$name};
+  }
+  elsif (exists $^H{charnames_name_aliases}{$name}) {
+    $name = $^H{charnames_name_aliases}{$name};
+    $save_input = $lookup_name = $name;  # Cache the result for any error
+                                         # message
+    # The aliases are documented to not match loosely, so change loose match
+    # into full.
+    if ($loose) {
+      $loose = 0;
+      $^H{charnames_full} = 1;
+    }
+  }
+  else {
+
+    # Here, not a user alias.  That means that loose matching may be in
+    # effect; will have to modify the input name.
+    $lookup_name = $name;
+    if ($loose) {
+      $lookup_name = uc $lookup_name;
+
+      # Squeeze out all underscores
+      $lookup_name =~ s/_//g;
+
+      # Remove all medial hyphens
+      $lookup_name =~ s/ (?<= \S  ) - (?= \S  )//gx;
+
+      # Squeeze out all spaces
+      $lookup_name =~ s/\s//g;
+    }
+
+    # Here, $lookup_name has been modified as necessary for looking in the
+    # hashes.  Check the system alias files next.  Most of these aliases are
+    # the same for both strict and loose matching.  To save space, the ones
+    # which differ are in their own separate hash, which is checked if loose
+    # matching is selected and the regular match fails.  To save time, the
+    # loose hashes could be expanded to include all aliases, and there would
+    # only have to be one check.  But if someone specifies :loose, they are
+    # interested in convenience over speed, and the time for this second check
+    # is miniscule compared to the rest of the routine.
+    if (exists $system_aliases{$lookup_name}) {
+      $result = $system_aliases{$lookup_name};
+    }
+    # There are currently no entries in this hash, so don't waste time looking
+    # for them.  But the code is retained for the unlikely possibility that
+    # some will be added in the future.
+#    elsif ($loose && exists $loose_system_aliases{$lookup_name}) {
+#      $result = $loose_system_aliases{$lookup_name};
+#    }
+#    if (exists $deprecated_aliases{$lookup_name}) {
+#      require warnings;
+#      warnings::warnif('deprecated',
+#                       "Unicode character name \"$name\" is deprecated, use \""
+#                       . viacode(ord $deprecated_aliases{$lookup_name})
+#                       . "\" instead");
+#      $result = $deprecated_aliases{$lookup_name};
+#    }
+    # There are currently no entries in this hash, so don't waste time looking
+    # for them.  But the code is retained for the unlikely possibility that
+    # some will be added in the future.
+#    elsif ($loose && exists $loose_deprecated_aliases{$lookup_name}) {
+#      require warnings;
+#      warnings::warnif('deprecated',
+#                       "Unicode character name \"$name\" is deprecated, use \""
+#                       . viacode(ord $loose_deprecated_aliases{$lookup_name})
+#                       . "\" instead");
+#      $result = $loose_deprecated_aliases{$lookup_name};
+#    }
+  }
+
+  my @off;  # Offsets into table of pattern match begin and end
+
+  # If haven't found it yet...
+  if (! defined $result) {
+
+    # See if has looked this input up earlier.
+    if (! $loose && $^H{charnames_full} && exists $full_names_cache{$name}) {
+      $result = $full_names_cache{$name};
+    }
+    elsif ($loose && exists $loose_names_cache{$name}) {
+      $result = $loose_names_cache{$name};
+    }
+    else { # Here, must do a look-up
+
+      # If full or loose matching succeeded, points to where to cache the
+      # result
+      my $cache_ref;
+
+      ## Suck in the code/name list as a big string.
+      ## Lines look like:
+      ##     "00052\tLATIN CAPITAL LETTER R\n"
+      # or
+      #      "0052 0303\tLATIN CAPITAL LETTER R WITH TILDE\n"
+      $txt = do "unicore/Name.pl" unless $txt;
+
+      ## @off will hold the index into the code/name string of the start and
+      ## end of the name as we find it.
+
+      ## If :loose, look for a loose match; if :full, look for the name
+      ## exactly
+      # First, see if the name is one which is algorithmically determinable.
+      # The subroutine is included in Name.pl.  The table contained in
+      # $txt doesn't contain these.  Experiments show that checking
+      # for these before checking for the regular names has no
+      # noticeable impact on performance for the regular names, but
+      # the other way around slows down finding these immensely.
+      # Algorithmically determinables are not placed in the cache because
+      # that uses up memory, and finding these again is fast.
+      if (($loose || $^H{charnames_full})
+          && (defined (my $ord = charnames::name_to_code_point_special($lookup_name, $loose))))
+      {
+        $result = chr $ord;
+      }
+      else {
+
+        # Not algorithmically determinable; look up in the table.  The name
+        # will be turned into a regex, so quote any meta characters.
+        $lookup_name = quotemeta $lookup_name;
+
+        if ($loose) {
+
+          # For loose matches, $lookup_name has already squeezed out the
+          # non-essential characters.  We have to add in code to make the
+          # squeezed version match the non-squeezed equivalent in the table.
+          # The only remaining hyphens are ones that start or end a word in
+          # the original.  They have been quoted in $lookup_name so they look
+          # like "\-".  Change all other characters except the backslash
+          # quotes for any metacharacters, and the final character, so that
+          # e.g., COLON gets transformed into: /C[- ]?O[- ]?L[- ]?O[- ]?N/
+          $lookup_name =~ s/ (?! \\ -)    # Don't do this to the \- sequence
+                             ( [^-\\] )   # Nor the "-" within that sequence,
+                                          # nor the "\" that quotes metachars,
+                                          # but otherwise put the char into $1
+                             (?=.)        # And don't do it for the final char
+                           /$1\[- \]?/gx; # And add an optional blank or
+                                          # '-' after each $1 char
+
+          # Those remaining hyphens were originally at the beginning or end of
+          # a word, so they can match either a blank before or after, but not
+          # both.  (Keep in mind that they have been quoted, so are a '\-'
+          # sequence)
+          $lookup_name =~ s/\\ -/(?:- | -)/xg;
+        }
+
+        # Do the lookup in the full table if asked for, and if succeeds
+        # save the offsets and set where to cache the result.
+        if (($loose || $^H{charnames_full}) && $txt =~ /\t$lookup_name$/m) {
+          @off = ($-[0] + 1, $+[0]);    # The 1 is for the tab
+          $cache_ref = ($loose) ? \%loose_names_cache : \%full_names_cache;
+        }
+        else {
+
+          # Here, didn't look for, or didn't find the name.
+          # If :short is allowed, see if input is like "greek:Sigma".
+          # Keep in mind that $lookup_name has had the metas quoted.
+          my $scripts_trie = "";
+          my $name_has_uppercase;
+          if (($^H{charnames_short})
+              && $lookup_name =~ /^ (?: \\ \s)*   # Quoted space
+                                    (.+?)         # $1 = the script
+                                    (?: \\ \s)*
+                                    \\ :          # Quoted colon
+                                    (?: \\ \s)*
+                                    (.+?)         # $2 = the name
+                                    (?: \\ \s)* $
+                                  /xs)
+          {
+              # Even in non-loose matching, the script traditionally has been
+              # case insensitive
+              $scripts_trie = "\U$1";
+              $lookup_name = $2;
+
+              # Use original name to find its input casing, but ignore the
+              # script part of that to make the determination.
+              $save_input = $name if ! defined $save_input;
+              $name =~ s/.*?://;
+              $name_has_uppercase = $name =~ /[[:upper:]]/;
+          }
+          else { # Otherwise look in allowed scripts
+              $scripts_trie = $^H{charnames_scripts};
+
+              # Use original name to find its input casing
+              $name_has_uppercase = $name =~ /[[:upper:]]/;
+          }
+
+          my $case = $name_has_uppercase ? "CAPITAL" : "SMALL";
+          return if (! $scripts_trie || $txt !~
+             /\t (?: $scripts_trie ) \ (?:$case\ )? LETTER \ \U$lookup_name $/xm);
+
+          # Here have found the input name in the table.
+          @off = ($-[0] + 1, $+[0]);  # The 1 is for the tab
+        }
+
+        # Here, the input name has been found; we haven't set up the output,
+        # but we know where in the string
+        # the name starts.  The string is set up so that for single characters
+        # (and not named sequences), the name is preceded immediately by a
+        # tab and 5 hex digits for its code, with a \n before those.  Named
+        # sequences won't have the 7th preceding character be a \n.
+        # (Actually, for the very first entry in the table this isn't strictly
+        # true: subtracting 7 will yield -1, and the substr below will
+        # therefore yield the very last character in the table, which should
+        # also be a \n, so the statement works anyway.)
+        if (substr($txt, $off[0] - 7, 1) eq "\n") {
+          $result = chr CORE::hex substr($txt, $off[0] - 6, 5);
+
+          # Handle the single loose matching special case, in which two names
+          # differ only by a single medial hyphen.  If the original had a
+          # hyphen (or more) in the right place, then it is that one.
+          $result = $HANGUL_JUNGSEONG_O_E_utf8
+                  if $loose
+                     && $result eq $HANGUL_JUNGSEONG_OE_utf8
+                     && $name =~ m/O \s* - [-\s]* E/ix;
+                     # Note that this wouldn't work if there were a 2nd
+                     # OE in the name
+        }
+        else {
+
+          # Here, is a named sequence.  Need to go looking for the beginning,
+          # which is just after the \n from the previous entry in the table.
+          # The +1 skips past that newline, or, if the rindex() fails, to put
+          # us to an offset of zero.
+          my $charstart = rindex($txt, "\n", $off[0] - 7) + 1;
+          $result = pack("W*", map { CORE::hex }
+              split " ", substr($txt, $charstart, $off[0] - $charstart - 1));
+        }
+      }
+
+      # Cache the input so as to not have to search the large table
+      # again, but only if it came from the one search that we cache.
+      # (Haven't bothered with the pain of sorting out scoping issues for the
+      # scripts searches.)
+      $cache_ref->{$name} = $result if defined $cache_ref;
+    }
+  }
+
+  # Here, have the result character.  If the return is to be an ord, must be
+  # any single character.
+  if ($wants_ord) {
+    return ord($result) if length $result == 1;
+  }
+  elsif (! utf8::is_utf8($result)) {
+
+    # Here isn't UTF-8.  That's OK if it is all ASCII, or we are being called
+    # at compile time where we know we can guarantee that Unicode rules are
+    # correctly imposed on the result, or under 'bytes' where we don't want
+    # those rules.  But otherwise we have to make it UTF8 to guarantee Unicode
+    # rules on the returned string.
+    return $result if ! $runtime
+                      || (caller $runtime)[8] & $bytes::hint_bits
+                      || $result !~ /[[:^ascii:]]/;
+    utf8::upgrade($result);
+    return $result;
+  }
+  else {
+
+    # Here, wants string output.  If utf8 is acceptable, just return what
+    # we've got; otherwise attempt to convert it to non-utf8 and return that.
+    my $in_bytes = ($runtime)
+                   ? (caller $runtime)[8] & $bytes::hint_bits
+                   : $^H & $bytes::hint_bits;
+    return $result if (! $in_bytes || utf8::downgrade($result, 1)) # The 1 arg
+                                                  # means don't die on failure
+  }
+
+  # Here, there is an error:  either there are too many characters, or the
+  # result string needs to be non-utf8, and at least one character requires
+  # utf8.  Prefer any official name over the input one for the error message.
+  if (@off) {
+    $name = substr($txt, $off[0], $off[1] - $off[0]) if @off;
+  }
+  else {
+    $name = (defined $save_input) ? $save_input : $_[0];
+  }
+
+  if ($wants_ord) {
+    # Only way to get here in this case is if result too long.  Message
+    # assumes that our only caller that requires single char result is
+    # vianame.
+    carp "charnames::vianame() doesn't handle named sequences ($name).  Use charnames::string_vianame() instead";
+    return;
+  }
+
+  # Only other possible failure here is from use bytes.
+  if ($runtime) {
+    carp not_legal_use_bytes_msg($name, $result);
+    return;
+  } else {
+    croak not_legal_use_bytes_msg($name, $result);
+  }
+
+} # lookup_name
+
+sub charnames {
+
+  # For \N{...}.  Looks up the character name and returns the string
+  # representation of it.
+
+  # The first 0 arg means wants a string returned; the second that we are in
+  # compile time
+  return lookup_name($_[0], 0, 0);
+}
+
+sub import
+{
+  shift; ## ignore class name
+
+  if (not @_) {
+    carp("'use charnames' needs explicit imports list");
+  }
+  $^H{charnames} = \&charnames ;
+  $^H{charnames_ord_aliases} = {};
+  $^H{charnames_name_aliases} = {};
+  $^H{charnames_inverse_ords} = {};
+  # New fields must be added to %dummy_H, and the code in lookup_name()
+  # that copies fields from the runtime structure
+
+  ##
+  ## fill %h keys with our @_ args.
+  ##
+  my ($promote, %h, @args) = (0);
+  while (my $arg = shift) {
+    if ($arg eq ":alias") {
+      @_ or
+        croak ":alias needs an argument in charnames";
+      my $alias = shift;
+      if (ref $alias) {
+        ref $alias eq "HASH" or
+          croak "Only HASH reference supported as argument to :alias";
+        alias ($alias);
+        $promote = 1;
+        next;
+      }
+      if ($alias =~ m{:(\w+)$}) {
+        $1 eq "full" || $1 eq "loose" || $1 eq "short" and
+          croak ":alias cannot use existing pragma :$1 (reversed order?)";
+        alias_file ($1) and $promote = 1;
+        next;
+      }
+      alias_file ($alias) and $promote = 1;
+      next;
+    }
+    if (substr($arg, 0, 1) eq ':'
+      and ! ($arg eq ":full" || $arg eq ":short" || $arg eq ":loose"))
+    {
+      warn "unsupported special '$arg' in charnames";
+      next;
+    }
+    push @args, $arg;
+  }
+
+  @args == 0 && $promote and @args = (":full");
+  @h{@args} = (1) x @args;
+
+  # Don't leave these undefined as are tested for in lookup_names
+  $^H{charnames_full} = delete $h{':full'} || 0;
+  $^H{charnames_loose} = delete $h{':loose'} || 0;
+  $^H{charnames_short} = delete $h{':short'} || 0;
+  my @scripts = map { uc quotemeta } keys %h;
+
+  ##
+  ## If utf8? warnings are enabled, and some scripts were given,
+  ## see if at least we can find one letter from each script.
+  ##
+  if (warnings::enabled('utf8') && @scripts) {
+    $txt = do "unicore/Name.pl" unless $txt;
+
+    for my $script (@scripts) {
+      if (not $txt =~ m/\t$script (?:CAPITAL |SMALL )?LETTER /) {
+        warnings::warn('utf8',  "No such script: '$script'");
+        $script = quotemeta $script;  # Escape it, for use in the re.
+      }
+    }
+  }
+
+  # %^H gets stringified, so serialize it ourselves so can extract the
+  # real data back later.
+  $^H{charnames_stringified_ords} = join ",", %{$^H{charnames_ord_aliases}};
+  $^H{charnames_stringified_names} = join ",", %{$^H{charnames_name_aliases}};
+  $^H{charnames_stringified_inverse_ords} = join ",", %{$^H{charnames_inverse_ords}};
+
+  # Modify the input script names for loose name matching if that is also
+  # specified, similar to the way the base character name is prepared.  They
+  # don't (currently, and hopefully never will) have dashes.  These go into a
+  # regex, and have already been uppercased and quotemeta'd.  Squeeze out all
+  # input underscores, blanks, and dashes.  Then convert so will match a blank
+  # between any characters.
+  if ($^H{charnames_loose}) {
+    for (my $i = 0; $i < @scripts; $i++) {
+      $scripts[$i] =~ s/[_ -]//g;
+      $scripts[$i] =~ s/ ( [^\\] ) (?= . ) /$1\\ ?/gx;
+    }
+  }
+
+  $^H{charnames_scripts} = join "|", @scripts;  # Stringifiy them as a trie
+} # import
+
+# Cache of already looked-up values.  This is set to only contain
+# official values, and user aliases can't override them, so scoping is
+# not an issue.
+my %viacode;
+
+my $no_name_code_points_re = join "|", map { sprintf("%05X",
+                                             utf8::unicode_to_native($_)) }
+                                            0x80, 0x81, 0x84, 0x99;
+$no_name_code_points_re = qr/$no_name_code_points_re/;
+
+sub viacode {
+
+  # Returns the name of the code point argument
+
+  if (@_ != 1) {
+    carp "charnames::viacode() expects one argument";
+    return;
+  }
+
+  my $arg = shift;
+
+  # This is derived from Unicode::UCD, where it is nearly the same as the
+  # function _getcode(), but here it makes sure that even a hex argument
+  # has the proper number of leading zeros, which is critical in
+  # matching against $txt below
+  # Must check if decimal first; see comments at that definition
+  my $hex;
+  if ($arg =~ $decimal_qr) {
+    $hex = sprintf "%05X", $arg;
+  } elsif ($arg =~ $hex_qr) {
+    $hex = CORE::hex $1;
+    $hex = utf8::unicode_to_native($hex) if $arg =~ /^[Uu]\+/;
+    # Below is the line that differs from the _getcode() source
+    $hex = sprintf "%05X", $hex;
+  } else {
+    carp("unexpected arg \"$arg\" to charnames::viacode()");
+    return;
+  }
+
+  return $viacode{$hex} if exists $viacode{$hex};
+
+  my $return;
+
+  # If the code point is above the max in the table, there's no point
+  # looking through it.  Checking the length first is slightly faster
+  if (length($hex) <= 5 || CORE::hex($hex) <= 0x10FFFF) {
+    $txt = do "unicore/Name.pl" unless $txt;
+
+    # See if the name is algorithmically determinable.
+    my $algorithmic = charnames::code_point_to_name_special(CORE::hex $hex);
+    if (defined $algorithmic) {
+      $viacode{$hex} = $algorithmic;
+      return $algorithmic;
+    }
+
+    # Return the official name, if exists.  It's unclear to me (khw) at
+    # this juncture if it is better to return a user-defined override, so
+    # leaving it as is for now.
+    if ($txt =~ m/^$hex\t/m) {
+
+        # The name starts with the next character and goes up to the
+        # next new-line.  Using capturing parentheses above instead of
+        # @+ more than doubles the execution time in Perl 5.13
+        $return = substr($txt, $+[0], index($txt, "\n", $+[0]) - $+[0]);
+
+        # If not one of these 4 code points, return what we've found.
+        if ($hex !~ / ^ $no_name_code_points_re $ /x) {
+          $viacode{$hex} = $return;
+          return $return;
+        }
+
+        # For backwards compatibility, we don't return the official name of
+        # the 4 code points if there are user-defined aliases for them -- so
+        # continue looking.
+    }
+  }
+
+  # See if there is a user name for it, before giving up completely.
+  # First get the scoped aliases, give up if have none.
+  my $H_ref = (caller(1))[10];
+  return if ! defined $return
+              && (! defined $H_ref
+                  || ! exists $H_ref->{charnames_stringified_inverse_ords});
+
+  my %code_point_aliases;
+  if (defined $H_ref->{charnames_stringified_inverse_ords}) {
+    %code_point_aliases = split ',',
+                          $H_ref->{charnames_stringified_inverse_ords};
+    return $code_point_aliases{$hex} if exists $code_point_aliases{$hex};
+  }
+
+  # Here there is no user-defined alias, return any official one.
+  return $return if defined $return;
+
+  if (CORE::hex($hex) > 0x10FFFF
+      && warnings::enabled('non_unicode'))
+  {
+      carp "Unicode characters only allocated up to U+10FFFF (you asked for U+$hex)";
+  }
+  return;
+
+} # viacode
+
+1;
+
+# ex: set ts=8 sts=2 sw=2 et:
diff --git a/lib/5.24.1/autodie.pm b/lib/5.24.1/autodie.pm
new file mode 100644
index 00000000..5934c138
--- /dev/null
+++ b/lib/5.24.1/autodie.pm
@@ -0,0 +1,450 @@
+package autodie;
+use 5.008;
+use strict;
+use warnings;
+
+use parent qw(Fatal);
+our $VERSION;
+
+# ABSTRACT: Replace functions with ones that succeed or die with lexical scope
+
+BEGIN {
+    our $VERSION = '2.29'; # VERSION: Generated by DZP::OurPkg::Version
+}
+
+use constant ERROR_WRONG_FATAL => q{
+Incorrect version of Fatal.pm loaded by autodie.
+
+The autodie pragma uses an updated version of Fatal to do its
+heavy lifting.  We seem to have loaded Fatal version %s, which is
+probably the version that came with your version of Perl.  However
+autodie needs version %s, which would have come bundled with
+autodie.
+
+You may be able to solve this problem by adding the following
+line of code to your main program, before any use of Fatal or
+autodie.
+
+    use lib "%s";
+
+};
+
+# We have to check we've got the right version of Fatal before we
+# try to compile the rest of our code, lest we use a constant
+# that doesn't exist.
+
+BEGIN {
+
+    # If we have the wrong Fatal, then we've probably loaded the system
+    # one, not our own.  Complain, and give a useful hint. ;)
+
+    if (defined($Fatal::VERSION) and defined($VERSION) and $Fatal::VERSION ne $VERSION) {
+        my $autodie_path = $INC{'autodie.pm'};
+
+        $autodie_path =~ s/autodie\.pm//;
+
+        require Carp;
+
+        Carp::croak sprintf(
+            ERROR_WRONG_FATAL, $Fatal::VERSION, $VERSION, $autodie_path
+        );
+    }
+}
+
+# When passing args to Fatal we want to keep the first arg
+# (our package) in place.  Hence the splice.
+
+sub import {
+        splice(@_,1,0,Fatal::LEXICAL_TAG);
+        goto &Fatal::import;
+}
+
+sub unimport {
+        splice(@_,1,0,Fatal::LEXICAL_TAG);
+        goto &Fatal::unimport;
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+autodie - Replace functions with ones that succeed or die with lexical scope
+
+=head1 SYNOPSIS
+
+    use autodie;            # Recommended: implies 'use autodie qw(:default)'
+
+    use autodie qw(:all);   # Recommended more: defaults and system/exec.
+
+    use autodie qw(open close);   # open/close succeed or die
+
+    open(my $fh, "<", $filename); # No need to check!
+
+    {
+        no autodie qw(open);          # open failures won't die
+        open(my $fh, "<", $filename); # Could fail silently!
+        no autodie;                   # disable all autodies
+    }
+    
+    print "Hello World" or die $!;    # autodie DOESN'T check print!
+
+=head1 DESCRIPTION
+
+        bIlujDI' yIchegh()Qo'; yIHegh()!
+
+        It is better to die() than to return() in failure.
+
+                -- Klingon programming proverb.
+
+The C<autodie> pragma provides a convenient way to replace functions
+that normally return false on failure with equivalents that throw
+an exception on failure.
+
+The C<autodie> pragma has I<lexical scope>, meaning that functions
+and subroutines altered with C<autodie> will only change their behaviour
+until the end of the enclosing block, file, or C<eval>.
+
+If C<system> is specified as an argument to C<autodie>, then it
+uses L<IPC::System::Simple> to do the heavy lifting.  See the
+description of that module for more information.
+
+=head1 EXCEPTIONS
+
+Exceptions produced by the C<autodie> pragma are members of the
+L<autodie::exception> class.  The preferred way to work with
+these exceptions under Perl 5.10 is as follows:
+
+    use feature qw(switch);
+
+    eval {
+        use autodie;
+
+        open(my $fh, '<', $some_file);
+
+        my @records = <$fh>;
+
+        # Do things with @records...
+
+        close($fh);
+
+    };
+
+    given ($@) {
+        when (undef)   { say "No error";                    }
+        when ('open')  { say "Error from open";             }
+        when (':io')   { say "Non-open, IO error.";         }
+        when (':all')  { say "All other autodie errors."    }
+        default        { say "Not an autodie error at all." }
+    }
+
+Under Perl 5.8, the C<given/when> structure is not available, so the
+following structure may be used:
+
+    eval {
+        use autodie;
+
+        open(my $fh, '<', $some_file);
+
+        my @records = <$fh>;
+
+        # Do things with @records...
+
+        close($fh);
+    };
+
+    if ($@ and $@->isa('autodie::exception')) {
+        if ($@->matches('open')) { print "Error from open\n";   }
+        if ($@->matches(':io' )) { print "Non-open, IO error."; }
+    } elsif ($@) {
+        # A non-autodie exception.
+    }
+
+See L<autodie::exception> for further information on interrogating
+exceptions.
+
+=head1 CATEGORIES
+
+Autodie uses a simple set of categories to group together similar
+built-ins.  Requesting a category type (starting with a colon) will
+enable autodie for all built-ins beneath that category.  For example,
+requesting C<:file> will enable autodie for C<close>, C<fcntl>,
+C<open> and C<sysopen>.
+
+The categories are currently:
+
+    :all
+        :default
+            :io
+                read
+                seek
+                sysread
+                sysseek
+                syswrite
+                :dbm
+                    dbmclose
+                    dbmopen
+                :file
+                    binmode
+                    close
+                    chmod
+                    chown
+                    fcntl
+                    flock
+                    ioctl
+                    open
+                    sysopen
+                    truncate
+                :filesys
+                    chdir
+                    closedir
+                    opendir
+                    link
+                    mkdir
+                    readlink
+                    rename
+                    rmdir
+                    symlink
+                    unlink
+                :ipc
+                    kill
+                    pipe
+                    :msg
+                        msgctl
+                        msgget
+                        msgrcv
+                        msgsnd
+                    :semaphore
+                        semctl
+                        semget
+                        semop
+                    :shm
+                        shmctl
+                        shmget
+                        shmread
+                :socket
+                    accept
+                    bind
+                    connect
+                    getsockopt
+                    listen
+                    recv
+                    send
+                    setsockopt
+                    shutdown
+                    socketpair
+            :threads
+                fork
+        :system
+            system
+            exec
+
+
+Note that while the above category system is presently a strict
+hierarchy, this should not be assumed.
+
+A plain C<use autodie> implies C<use autodie qw(:default)>.  Note that
+C<system> and C<exec> are not enabled by default.  C<system> requires
+the optional L<IPC::System::Simple> module to be installed, and enabling
+C<system> or C<exec> will invalidate their exotic forms.  See L</BUGS>
+below for more details.
+
+The syntax:
+
+    use autodie qw(:1.994);
+
+allows the C<:default> list from a particular version to be used.  This
+provides the convenience of using the default methods, but the surety
+that no behavioral changes will occur if the C<autodie> module is
+upgraded.
+
+C<autodie> can be enabled for all of Perl's built-ins, including
+C<system> and C<exec> with:
+
+    use autodie qw(:all);
+
+=head1 FUNCTION SPECIFIC NOTES
+
+=head2 print
+
+The autodie pragma B<<does not check calls to C<print>>>.
+
+=head2 flock
+
+It is not considered an error for C<flock> to return false if it fails
+due to an C<EWOULDBLOCK> (or equivalent) condition.  This means one can
+still use the common convention of testing the return value of
+C<flock> when called with the C<LOCK_NB> option:
+
+    use autodie;
+
+    if ( flock($fh, LOCK_EX | LOCK_NB) ) {
+        # We have a lock
+    }
+
+Autodying C<flock> will generate an exception if C<flock> returns
+false with any other error.
+
+=head2 system/exec
+
+The C<system> built-in is considered to have failed in the following
+circumstances:
+
+=over 4
+
+=item *
+
+The command does not start.
+
+=item *
+
+The command is killed by a signal.
+
+=item *
+
+The command returns a non-zero exit value (but see below).
+
+=back
+
+On success, the autodying form of C<system> returns the I<exit value>
+rather than the contents of C<$?>.
+
+Additional allowable exit values can be supplied as an optional first
+argument to autodying C<system>:
+
+    system( [ 0, 1, 2 ], $cmd, @args);  # 0,1,2 are good exit values
+
+C<autodie> uses the L<IPC::System::Simple> module to change C<system>.
+See its documentation for further information.
+
+Applying C<autodie> to C<system> or C<exec> causes the exotic
+forms C<system { $cmd } @args > or C<exec { $cmd } @args>
+to be considered a syntax error until the end of the lexical scope.
+If you really need to use the exotic form, you can call C<CORE::system>
+or C<CORE::exec> instead, or use C<no autodie qw(system exec)> before
+calling the exotic form.
+
+=head1 GOTCHAS
+
+Functions called in list context are assumed to have failed if they
+return an empty list, or a list consisting only of a single undef
+element.
+
+Some builtins (e.g. C<chdir> or C<truncate>) has a call signature that
+cannot completely be representated with a Perl prototype.  This means
+that some valid Perl code will be invalid under autodie.  As an example:
+
+  chdir(BAREWORD);
+
+Without autodie (and assuming BAREWORD is an open
+filehandle/dirhandle) this is a valid call to chdir.  But under
+autodie, C<chdir> will behave like it had the prototype ";$" and thus
+BAREWORD will be a syntax error (under "use strict".  Without strict, it
+will interpreted as a filename).
+
+=head1 DIAGNOSTICS
+
+=over 4
+
+=item :void cannot be used with lexical scope
+
+The C<:void> option is supported in L<Fatal>, but not
+C<autodie>.  To workaround this, C<autodie> may be explicitly disabled until
+the end of the current block with C<no autodie>.
+To disable autodie for only a single function (eg, open)
+use C<no autodie qw(open)>.
+
+C<autodie> performs no checking of called context to determine whether to throw
+an exception; the explicitness of error handling with C<autodie> is a deliberate
+feature.
+
+=item No user hints defined for %s
+
+You've insisted on hints for user-subroutines, either by pre-pending
+a C<!> to the subroutine name itself, or earlier in the list of arguments
+to C<autodie>.  However the subroutine in question does not have
+any hints available.
+
+=back
+
+See also L<Fatal/DIAGNOSTICS>.
+
+=head1 BUGS
+
+"Used only once" warnings can be generated when C<autodie> or C<Fatal>
+is used with package filehandles (eg, C<FILE>).  Scalar filehandles are
+strongly recommended instead.
+
+When using C<autodie> or C<Fatal> with user subroutines, the
+declaration of those subroutines must appear before the first use of
+C<Fatal> or C<autodie>, or have been exported from a module.
+Attempting to use C<Fatal> or C<autodie> on other user subroutines will
+result in a compile-time error.
+
+Due to a bug in Perl, C<autodie> may "lose" any format which has the
+same name as an autodying built-in or function.
+
+C<autodie> may not work correctly if used inside a file with a
+name that looks like a string eval, such as F<eval (3)>.
+
+=head2 autodie and string eval
+
+Due to the current implementation of C<autodie>, unexpected results
+may be seen when used near or with the string version of eval.
+I<None of these bugs exist when using block eval>.
+
+Under Perl 5.8 only, C<autodie> I<does not> propagate into string C<eval>
+statements, although it can be explicitly enabled inside a string
+C<eval>.
+
+Under Perl 5.10 only, using a string eval when C<autodie> is in
+effect can cause the autodie behaviour to leak into the surrounding
+scope.  This can be worked around by using a C<no autodie> at the
+end of the scope to explicitly remove autodie's effects, or by
+avoiding the use of string eval.
+
+I<None of these bugs exist when using block eval>.  The use of
+C<autodie> with block eval is considered good practice.
+
+=head2 REPORTING BUGS
+
+Please report bugs via the GitHub Issue Tracker at
+L<https://github.com/pjf/autodie/issues> or via the CPAN Request
+Tracker at L<https://rt.cpan.org/NoAuth/Bugs.html?Dist=autodie>.
+
+=head1 FEEDBACK
+
+If you find this module useful, please consider rating it on the
+CPAN Ratings service at
+L<http://cpanratings.perl.org/rate?distribution=autodie> .
+
+The module author loves to hear how C<autodie> has made your life
+better (or worse).  Feedback can be sent to
+E<lt>pjf@perltraining.com.auE<gt>.
+
+=head1 AUTHOR
+
+Copyright 2008-2009, Paul Fenwick E<lt>pjf@perltraining.com.auE<gt>
+
+=head1 LICENSE
+
+This module is free software.  You may distribute it under the
+same terms as Perl itself.
+
+=head1 SEE ALSO
+
+L<Fatal>, L<autodie::exception>, L<autodie::hints>, L<IPC::System::Simple>
+
+I<Perl tips, autodie> at
+L<http://perltraining.com.au/tips/2008-08-20.html>
+
+=head1 ACKNOWLEDGEMENTS
+
+Mark Reed and Roland Giersig -- Klingon translators.
+
+See the F<AUTHORS> file for full credits.  The latest version of this
+file can be found at
+L<https://github.com/pjf/autodie/tree/master/AUTHORS> .
+
+=cut
diff --git a/lib/5.24.1/autodie/Scope/Guard.pm b/lib/5.24.1/autodie/Scope/Guard.pm
new file mode 100644
index 00000000..bd34fc81
--- /dev/null
+++ b/lib/5.24.1/autodie/Scope/Guard.pm
@@ -0,0 +1,65 @@
+package autodie::Scope::Guard;
+
+use strict;
+use warnings;
+
+# ABSTRACT: Wrapper class for calling subs at end of scope
+our $VERSION = '2.29'; # VERSION
+
+# This code schedules the cleanup of subroutines at the end of
+# scope.  It's directly inspired by chocolateboy's excellent
+# Scope::Guard module.
+
+sub new {
+    my ($class, $handler) = @_;
+    return bless($handler, $class);
+}
+
+sub DESTROY {
+    my ($self) = @_;
+
+    $self->();
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+autodie::Scope::Guard - Wrapper class for calling subs at end of scope
+
+=head1 SYNOPSIS
+
+    use autodie::Scope::Guard;
+    $^H{'my-key'} = autodie::Scope::Guard->new(sub {
+        print "Hallo world\n";
+    });
+
+=head1 DESCRIPTION
+
+This class is used to bless perl subs so that they are invoked when
+they are destroyed.  This is mostly useful for ensuring the code is
+invoked at end of scope.  This module is not a part of autodie's
+public API.
+
+This module is directly inspired by chocolateboy's excellent
+Scope::Guard module.
+
+=head2 Methods
+
+=head3 new
+
+  my $hook = autodie::Scope::Guard->new(sub {});
+
+Creates a new C<autodie::Scope::Guard>, which will invoke the given
+sub once it goes out of scope (i.e. its DESTROY handler is called).
+
+=head1 AUTHOR
+
+Copyright 2008-2009, Paul Fenwick E<lt>pjf@perltraining.com.auE<gt>
+
+=head1 LICENSE
+
+This module is free software.  You may distribute it under the
+same terms as Perl itself.
diff --git a/lib/5.24.1/autodie/Scope/GuardStack.pm b/lib/5.24.1/autodie/Scope/GuardStack.pm
new file mode 100644
index 00000000..3ee3ae51
--- /dev/null
+++ b/lib/5.24.1/autodie/Scope/GuardStack.pm
@@ -0,0 +1,127 @@
+package autodie::Scope::GuardStack;
+
+use strict;
+use warnings;
+
+use autodie::Scope::Guard;
+
+# ABSTRACT: Hook stack for managing scopes via %^H
+our $VERSION = '2.29'; # VERSION
+
+my $H_KEY_STEM = __PACKAGE__ . '/guard';
+my $COUNTER = 0;
+
+# This code schedules the cleanup of subroutines at the end of
+# scope.  It's directly inspired by chocolateboy's excellent
+# Scope::Guard module.
+
+sub new {
+    my ($class) = @_;
+
+    return bless([], $class);
+}
+
+sub push_hook {
+    my ($self, $hook) = @_;
+    my $h_key = $H_KEY_STEM . ($COUNTER++);
+    my $size = @{$self};
+    $^H{$h_key} = autodie::Scope::Guard->new(sub {
+        # Pop the stack until we reach the right size
+        # - this may seem weird, but it is to avoid relying
+        #   on "destruction order" of keys in %^H.
+        #
+        # Example:
+        #  {
+        #     use autodie;  # hook 1
+        #     no autodie;   # hook 2
+        #     use autodie;  # hook 3
+        #  }
+        #
+        #  Here we want call hook 3, then hook 2 and finally hook 1.
+        #  Any other order could have undesired consequences.
+        #
+        #  Suppose hook 2 is destroyed first, it will pop hook 3 and
+        #  then hook 2.  hook 3 will then be destroyed, but do nothing
+        #  since its "frame" was already popped and finally hook 1
+        #  will be popped and take its own frame with it.
+        #
+        #  We need to check that $self still exists since things can get weird
+        #  during global destruction.
+        $self->_pop_hook while $self && @{$self} > $size;
+    });
+    push(@{$self}, [$hook, $h_key]);
+    return;
+}
+
+sub _pop_hook {
+    my ($self) = @_;
+    my ($hook, $key) = @{ pop(@{$self}) };
+    my $ref = delete($^H{$key});
+    $hook->();
+    return;
+}
+
+sub DESTROY {
+    my ($self) = @_;
+
+    # To be honest, I suspect @{$self} will always be empty here due
+    # to the subs in %^H having references to the stack (which would
+    # keep the stack alive until those have been destroyed).  Anyhow,
+    # it never hurt to be careful.
+    $self->_pop_hook while @{$self};
+    return;
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+autodie::Scope::GuardStack -  Hook stack for managing scopes via %^H
+
+=head1 SYNOPSIS
+
+    use autodie::Scope::GuardStack;
+    my $stack = autodie::Scope::GuardStack->new
+    $^H{'my-key'} = $stack;
+
+    $stack->push_hook(sub {});
+
+=head1 DESCRIPTION
+
+This class is a stack of hooks to be called in the right order as
+scopes go away.  The stack is only useful when inserted into C<%^H>
+and will pop hooks as their "scope" is popped.  This is useful for
+uninstalling or reinstalling subs in a namespace as a pragma goes
+out of scope.
+
+Due to how C<%^H> works, this class is only useful during the
+compilation phase of a perl module and relies on the internals of how
+perl handles references in C<%^H>.  This module is not a part of
+autodie's public API.
+
+=head2 Methods
+
+=head3 new
+
+  my $stack = autodie::Scope::GuardStack->new;
+
+Creates a new C<autodie::Scope::GuardStack>.  The stack is initially
+empty and must be inserted into C<%^H> by the creator.
+
+=head3 push_hook
+
+  $stack->push_hook(sub {});
+
+Add a sub to the stack.  The sub will be called once the current
+compile-time "scope" is left.  Multiple hooks can be added per scope
+
+=head1 AUTHOR
+
+Copyright 2013, Niels Thykier E<lt>niels@thykier.netE<gt>
+
+=head1 LICENSE
+
+This module is free software.  You may distribute it under the
+same terms as Perl itself.
diff --git a/lib/5.24.1/autodie/Util.pm b/lib/5.24.1/autodie/Util.pm
new file mode 100644
index 00000000..2a308a89
--- /dev/null
+++ b/lib/5.24.1/autodie/Util.pm
@@ -0,0 +1,250 @@
+package autodie::Util;
+
+use strict;
+use warnings;
+
+use Exporter 5.57 qw(import);
+
+use autodie::Scope::GuardStack;
+
+our @EXPORT_OK = qw(
+  fill_protos
+  install_subs
+  make_core_trampoline
+  on_end_of_compile_scope
+);
+
+our $VERSION = '2.29'; # VERSION: Generated by DZP::OurPkg:Version
+
+# ABSTRACT: Internal Utility subroutines for autodie and Fatal
+
+# docs says we should pick __PACKAGE__ /<whatever>
+my $H_STACK_KEY = __PACKAGE__ . '/stack';
+
+sub on_end_of_compile_scope {
+    my ($hook) = @_;
+
+    # Dark magic to have autodie work under 5.8
+    # Copied from namespace::clean, that copied it from
+    # autobox, that found it on an ancient scroll written
+    # in blood.
+
+    # This magic bit causes %^H to be lexically scoped.
+    $^H |= 0x020000;
+
+    my $stack = $^H{$H_STACK_KEY};
+    if (not defined($stack)) {
+        $stack = autodie::Scope::GuardStack->new;
+        $^H{$H_STACK_KEY} = $stack;
+    }
+
+    $stack->push_hook($hook);
+    return;
+}
+
+# This code is based on code from the original Fatal.  The "XXXX"
+# remark is from the original code and its meaning is (sadly) unknown.
+sub fill_protos {
+    my ($proto) = @_;
+    my ($n, $isref, @out, @out1, $seen_semi) = -1;
+    if ($proto =~ m{^\s* (?: [;] \s*)? \@}x) {
+        # prototype is entirely slurply - special case that does not
+        # require any handling.
+        return ([0, '@_']);
+    }
+
+    while ($proto =~ /\S/) {
+        $n++;
+        push(@out1,[$n,@out]) if $seen_semi;
+        push(@out, $1 . "{\$_[$n]}"), next if $proto =~ s/^\s*\\([\@%\$\&])//;
+        push(@out, "\$_[$n]"),        next if $proto =~ s/^\s*([_*\$&])//;
+        push(@out, "\@_[$n..\$#_]"),  last if $proto =~ s/^\s*(;\s*)?\@//;
+        $seen_semi = 1, $n--,         next if $proto =~ s/^\s*;//; # XXXX ????
+        die "Internal error: Unknown prototype letters: \"$proto\"";
+    }
+    push(@out1,[$n+1,@out]);
+    return @out1;
+}
+
+
+sub make_core_trampoline {
+    my ($call, $pkg, $proto_str) = @_;
+    my $trampoline_code = 'sub {';
+    my $trampoline_sub;
+    my @protos = fill_protos($proto_str);
+
+    foreach my $proto (@protos) {
+        local $" = ", ";    # So @args is formatted correctly.
+        my ($count, @args) = @$proto;
+        if (@args && $args[-1] =~ m/[@#]_/) {
+            $trampoline_code .= qq/
+                if (\@_ >= $count) {
+                    return $call(@args);
+                }
+             /;
+        } else {
+            $trampoline_code .= qq<
+                if (\@_ == $count) {
+                    return $call(@args);
+                }
+             >;
+        }
+    }
+
+    $trampoline_code .= qq< require Carp; Carp::croak("Internal error in Fatal/autodie.  Leak-guard failure"); } >;
+    my $E;
+
+    {
+        local $@;
+        $trampoline_sub = eval "package $pkg;\n $trampoline_code"; ## no critic
+        $E = $@;
+    }
+    die "Internal error in Fatal/autodie: Leak-guard installation failure: $E"
+        if $E;
+
+    return $trampoline_sub;
+}
+
+# The code here is originally lifted from namespace::clean,
+# by Robert "phaylon" Sedlacek.
+#
+# It's been redesigned after feedback from ikegami on perlmonks.
+# See http://perlmonks.org/?node_id=693338 .  Ikegami rocks.
+#
+# Given a package, and hash of (subname => subref) pairs,
+# we install the given subroutines into the package.  If
+# a subref is undef, the subroutine is removed.  Otherwise
+# it replaces any existing subs which were already there.
+
+sub install_subs {
+    my ($target_pkg, $subs_to_reinstate) = @_;
+
+    my $pkg_sym = "${target_pkg}::";
+
+    # It does not hurt to do this in a predictable order, and might help debugging.
+    foreach my $sub_name (sort keys(%{$subs_to_reinstate})) {
+
+        # We will repeatedly mess with stuff that strict "refs" does
+        # not like.  So lets just disable it once for this entire
+        # scope.
+        no strict qw(refs);   ## no critic
+
+        my $sub_ref = $subs_to_reinstate->{$sub_name};
+
+        my $full_path = ${pkg_sym}.${sub_name};
+        my $oldglob = *$full_path;
+
+        # Nuke the old glob.
+        delete($pkg_sym->{$sub_name});
+
+        # For some reason this local *alias = *$full_path triggers an
+        # "only used once" warning.  Not entirely sure why, but at
+        # least it is easy to silence.
+        no warnings qw(once);
+        local *alias = *$full_path;
+        use warnings qw(once);
+
+        # Copy innocent bystanders back.  Note that we lose
+        # formats; it seems that Perl versions up to 5.10.0
+        # have a bug which causes copying formats to end up in
+        # the scalar slot.  Thanks to Ben Morrow for spotting this.
+
+        foreach my $slot (qw( SCALAR ARRAY HASH IO ) ) {
+            next unless defined(*$oldglob{$slot});
+            *alias = *$oldglob{$slot};
+        }
+
+        if ($sub_ref) {
+            *$full_path = $sub_ref;
+        }
+    }
+
+    return;
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+autodie::Util - Internal Utility subroutines for autodie and Fatal
+
+=head1 SYNOPSIS
+
+    # INTERNAL API for autodie and Fatal only!
+
+    use autodie::Util qw(on_end_of_compile_scope);
+    on_end_of_compile_scope(sub { print "Hallo world\n"; });
+
+=head1 DESCRIPTION
+
+Interal Utilities for autodie and Fatal!  This module is not a part of
+autodie's public API.
+
+This module contains utility subroutines for abstracting away the
+underlying magic of autodie and (ab)uses of C<%^H> to call subs at the
+end of a (compile-time) scopes.
+
+Note that due to how C<%^H> works, some of these utilities are only
+useful during the compilation phase of a perl module and relies on the
+internals of how perl handles references in C<%^H>.
+
+=head2 Methods
+
+=head3 on_end_of_compile_scope
+
+  on_end_of_compile_scope(sub { print "Hallo world\n"; });
+
+Will invoke a sub at the end of a (compile-time) scope.  The sub is
+called once with no arguments.  Can be called multiple times (even in
+the same "compile-time" scope) to install multiple subs.  Subs are
+called in a "first-in-last-out"-order (FILO or "stack"-order).
+
+=head3 fill_protos
+
+  fill_protos('*$$;$@')
+
+Given a Perl subroutine prototype, return a list of invocation
+specifications.  Each specification is a listref, where the first
+member is the (minimum) number of arguments for this invocation
+specification.  The remaining arguments are a string representation of
+how to pass the arguments correctly to a sub with the given prototype,
+when called with the given number of arguments.
+
+The specifications are returned in increasing order of arguments
+starting at 0 (e.g.  ';$') or 1 (e.g.  '$@').  Note that if the
+prototype is "slurpy" (e.g. ends with a "@"), the number of arguments
+for the last specification is a "minimum" number rather than an exact
+number.  This can be detected by the last member of the last
+specification matching m/[@#]_/.
+
+=head3 make_core_trampoline
+
+  make_core_trampoline('CORE::open', 'main', prototype('CORE::open'))
+
+Creates a trampoline for calling a core sub.  Essentially, a tiny sub
+that figures out how we should be calling our core sub, puts in the
+arguments in the right way, and bounces our control over to it.
+
+If we could reliably use `goto &` on core builtins, we wouldn't need
+this subroutine.
+
+=head3 install_subs
+
+  install_subs('My::Module', { 'read' => sub { die("Hallo\n"), ... }})
+
+Given a package name and a hashref mapping names to a subroutine
+reference (or C<undef>), this subroutine will install said subroutines
+on their given name in that module.  If a name mapes to C<undef>, any
+subroutine with that name in the target module will be remove
+(possibly "unshadowing" a CORE sub of same name).
+
+=head1 AUTHOR
+
+Copyright 2013-2014, Niels Thykier E<lt>niels@thykier.netE<gt>
+
+=head1 LICENSE
+
+This module is free software.  You may distribute it under the
+same terms as Perl itself.
diff --git a/lib/5.24.1/autodie/exception.pm b/lib/5.24.1/autodie/exception.pm
new file mode 100644
index 00000000..73058085
--- /dev/null
+++ b/lib/5.24.1/autodie/exception.pm
@@ -0,0 +1,867 @@
+package autodie::exception;
+use 5.008;
+use strict;
+use warnings;
+use Carp qw(croak);
+
+our $VERSION = '2.29'; # VERSION: Generated by DZP::OurPkg:Version
+# ABSTRACT: Exceptions from autodying functions.
+
+our $DEBUG = 0;
+
+use overload
+    q{""} => "stringify",
+    # Overload smart-match only if we're using 5.10 or up
+    ($] >= 5.010 ? ('~~'  => "matches") : ()),
+    fallback => 1
+;
+
+my $PACKAGE = __PACKAGE__;  # Useful to have a scalar for hash keys.
+
+=head1 NAME
+
+autodie::exception - Exceptions from autodying functions.
+
+=head1 SYNOPSIS
+
+    eval {
+        use autodie;
+
+        open(my $fh, '<', 'some_file.txt');
+
+        ...
+    };
+
+    if (my $E = $@) {
+        say "Ooops!  ",$E->caller," had problems: $@";
+    }
+
+
+=head1 DESCRIPTION
+
+When an L<autodie> enabled function fails, it generates an
+C<autodie::exception> object.  This can be interrogated to
+determine further information about the error that occurred.
+
+This document is broken into two sections; those methods that
+are most useful to the end-developer, and those methods for
+anyone wishing to subclass or get very familiar with
+C<autodie::exception>.
+
+=head2 Common Methods
+
+These methods are intended to be used in the everyday dealing
+of exceptions.
+
+The following assume that the error has been copied into
+a separate scalar:
+
+    if ($E = $@) {
+        ...
+    }
+
+This is not required, but is recommended in case any code
+is called which may reset or alter C<$@>.
+
+=cut
+
+=head3 args
+
+    my $array_ref = $E->args;
+
+Provides a reference to the arguments passed to the subroutine
+that died.
+
+=cut
+
+sub args        { return $_[0]->{$PACKAGE}{args}; }
+
+=head3 function
+
+    my $sub = $E->function;
+
+The subroutine (including package) that threw the exception.
+
+=cut
+
+sub function   { return $_[0]->{$PACKAGE}{function};  }
+
+=head3 file
+
+    my $file = $E->file;
+
+The file in which the error occurred (eg, C<myscript.pl> or
+C<MyTest.pm>).
+
+=cut
+
+sub file        { return $_[0]->{$PACKAGE}{file};  }
+
+=head3 package
+
+    my $package = $E->package;
+
+The package from which the exceptional subroutine was called.
+
+=cut
+
+sub package     { return $_[0]->{$PACKAGE}{package}; }
+
+=head3 caller
+
+    my $caller = $E->caller;
+
+The subroutine that I<called> the exceptional code.
+
+=cut
+
+sub caller      { return $_[0]->{$PACKAGE}{caller};  }
+
+=head3 line
+
+    my $line = $E->line;
+
+The line in C<< $E->file >> where the exceptional code was called.
+
+=cut
+
+sub line        { return $_[0]->{$PACKAGE}{line};  }
+
+=head3 context
+
+    my $context = $E->context;
+
+The context in which the subroutine was called by autodie; usually
+the same as the context in which you called the autodying subroutine.
+This can be 'list', 'scalar', or undefined (unknown).  It will never
+be 'void', as C<autodie> always captures the return value in one way
+or another.
+
+For some core functions that always return a scalar value regardless
+of their context (eg, C<chown>), this may be 'scalar', even if you
+used a list context.
+
+=cut
+
+# TODO: The comments above say this can be undefined. Is that actually
+# the case? (With 'system', perhaps?)
+
+sub context     { return $_[0]->{$PACKAGE}{context} }
+
+=head3 return
+
+    my $return_value = $E->return;
+
+The value(s) returned by the failed subroutine.  When the subroutine
+was called in a list context, this will always be a reference to an
+array containing the results.  When the subroutine was called in
+a scalar context, this will be the actual scalar returned.
+
+=cut
+
+sub return      { return $_[0]->{$PACKAGE}{return} }
+
+=head3 errno
+
+    my $errno = $E->errno;
+
+The value of C<$!> at the time when the exception occurred.
+
+B<NOTE>: This method will leave the main C<autodie::exception> class
+and become part of a role in the future.  You should only call
+C<errno> for exceptions where C<$!> would reasonably have been
+set on failure.
+
+=cut
+
+# TODO: Make errno part of a role.  It doesn't make sense for
+# everything.
+
+sub errno       { return $_[0]->{$PACKAGE}{errno}; }
+
+=head3 eval_error
+
+    my $old_eval_error = $E->eval_error;
+
+The contents of C<$@> immediately after autodie triggered an
+exception.  This may be useful when dealing with modules such
+as L<Text::Balanced> that set (but do not throw) C<$@> on error.
+
+=cut
+
+sub eval_error { return $_[0]->{$PACKAGE}{eval_error}; }
+
+=head3 matches
+
+    if ( $e->matches('open') ) { ... }
+
+    if ( $e ~~ 'open' ) { ... }
+
+C<matches> is used to determine whether a
+given exception matches a particular role.  On Perl 5.10,
+using smart-match (C<~~>) with an C<autodie::exception> object
+will use C<matches> underneath.
+
+An exception is considered to match a string if:
+
+=over 4
+
+=item *
+
+For a string not starting with a colon, the string exactly matches the
+package and subroutine that threw the exception.  For example,
+C<MyModule::log>.  If the string does not contain a package name,
+C<CORE::> is assumed.
+
+=item *
+
+For a string that does start with a colon, if the subroutine
+throwing the exception I<does> that behaviour.  For example, the
+C<CORE::open> subroutine does C<:file>, C<:io> and C<:all>.
+
+See L<autodie/CATEGORIES> for further information.
+
+=back
+
+=cut
+
+{
+    my (%cache);
+
+    sub matches {
+        my ($this, $that) = @_;
+
+        # TODO - Handle references
+        croak "UNIMPLEMENTED" if ref $that;
+
+        my $sub = $this->function;
+
+        if ($DEBUG) {
+            my $sub2 = $this->function;
+            warn "Smart-matching $that against $sub / $sub2\n";
+        }
+
+        # Direct subname match.
+        return 1 if $that eq $sub;
+        return 1 if $that !~ /:/ and "CORE::$that" eq $sub;
+        return 0 if $that !~ /^:/;
+
+        # Cached match / check tags.
+        require Fatal;
+
+        if (exists $cache{$sub}{$that}) {
+            return $cache{$sub}{$that};
+        }
+
+        # This rather awful looking line checks to see if our sub is in the
+        # list of expanded tags, caches it, and returns the result.
+
+        return $cache{$sub}{$that} = grep { $_ eq $sub } @{ $this->_expand_tag($that) };
+    }
+}
+
+# This exists primarily so that child classes can override or
+# augment it if they wish.
+
+sub _expand_tag {
+    my ($this, @args) = @_;
+
+    return Fatal->_expand_tag(@args);
+}
+
+=head2 Advanced methods
+
+The following methods, while usable from anywhere, are primarily
+intended for developers wishing to subclass C<autodie::exception>,
+write code that registers custom error messages, or otherwise
+work closely with the C<autodie::exception> model.
+
+=cut
+
+# The table below records customer formatters.
+# TODO - Should this be a package var instead?
+# TODO - Should these be in a completely different file, or
+#        perhaps loaded on demand?  Most formatters will never
+#        get used in most programs.
+
+my %formatter_of = (
+    'CORE::close'    => \&_format_close,
+    'CORE::open'     => \&_format_open,
+    'CORE::dbmopen'  => \&_format_dbmopen,
+    'CORE::flock'    => \&_format_flock,
+    'CORE::read'     => \&_format_readwrite,
+    'CORE::sysread'  => \&_format_readwrite,
+    'CORE::syswrite' => \&_format_readwrite,
+    'CORE::chmod'    => \&_format_chmod,
+    'CORE::mkdir'    => \&_format_mkdir,
+);
+
+sub _beautify_arguments {
+    shift @_;
+
+    # Walk through all our arguments, and...
+    #
+    #   * Replace undef with the word 'undef'
+    #   * Replace globs with the string '$fh'
+    #   * Quote all other args.
+    foreach my $arg (@_) {
+       if    (not defined($arg))   { $arg = 'undef' }
+       elsif (ref($arg) eq "GLOB") { $arg = '$fh'   }
+       else                        { $arg = qq{'$arg'} }
+    }
+
+    return @_;
+}
+
+sub _trim_package_name {
+    # Info: The following is done since 05/2008 (which is before v1.10)
+
+    # TODO: This is probably a good idea for CORE, is it
+    # a good idea for other subs?
+
+    # Trim package name off dying sub for error messages
+    (my $name = $_[1]) =~ s/.*:://;
+    return $name;
+}
+
+# Returns the parameter formatted as octal number
+sub _octalize_number {
+    my $number = $_[1];
+
+    # Only reformat if it looks like a whole number
+    if ($number =~ /^\d+$/) {
+        $number = sprintf("%#04lo", $number);
+    }
+
+    return $number;
+}
+
+# TODO: Our tests only check LOCK_EX | LOCK_NB is properly
+# formatted.  Try other combinations and ensure they work
+# correctly.
+
+sub _format_flock {
+    my ($this) = @_;
+
+    require Fcntl;
+
+    my $filehandle = $this->args->[0];
+    my $raw_mode   = $this->args->[1];
+
+    my $mode_type;
+    my $lock_unlock;
+
+    if ($raw_mode & Fcntl::LOCK_EX() ) {
+        $lock_unlock = "lock";
+        $mode_type = "for exclusive access";
+    }
+    elsif ($raw_mode & Fcntl::LOCK_SH() ) {
+        $lock_unlock = "lock";
+        $mode_type = "for shared access";
+    }
+    elsif ($raw_mode & Fcntl::LOCK_UN() ) {
+        $lock_unlock = "unlock";
+        $mode_type = "";
+    }
+    else {
+        # I've got no idea what they're trying to do.
+        $lock_unlock = "lock";
+        $mode_type = "with mode $raw_mode";
+    }
+
+    my $cooked_filehandle;
+
+    if ($filehandle and not ref $filehandle) {
+
+        # A package filehandle with a name!
+
+        $cooked_filehandle = " $filehandle";
+    }
+    else {
+        # Otherwise we have a scalar filehandle.
+
+        $cooked_filehandle = '';
+
+    }
+
+    local $! = $this->errno;
+
+    return "Can't $lock_unlock filehandle$cooked_filehandle $mode_type: $!";
+
+}
+
+# Default formatter for CORE::chmod
+sub _format_chmod {
+    my ($this) = @_;
+    my @args   = @{$this->args};
+
+    my $mode   = shift @args;
+    local $!   = $this->errno;
+
+    $mode = $this->_octalize_number($mode);
+
+    @args = $this->_beautify_arguments(@args);
+
+    return "Can't chmod($mode, ". join(q{, }, @args) ."): $!";
+}
+
+# Default formatter for CORE::mkdir
+sub _format_mkdir {
+    my ($this) = @_;
+    my @args   = @{$this->args};
+
+    # If no mask is specified use default formatter
+    if (@args < 2) {
+      return $this->format_default;
+    }
+
+    my $file = $args[0];
+    my $mask = $args[1];
+    local $! = $this->errno;
+
+    $mask = $this->_octalize_number($mask);
+
+    return "Can't mkdir('$file', $mask): '$!'";
+}
+
+# Default formatter for CORE::dbmopen
+sub _format_dbmopen {
+    my ($this) = @_;
+    my @args   = @{$this->args};
+
+    # TODO: Presently, $args flattens out the (usually empty) hash
+    # which is passed as the first argument to dbmopen.  This is
+    # a bug in our args handling code (taking a reference to it would
+    # be better), but for the moment we'll just examine the end of
+    # our arguments list for message formatting.
+
+    my $mode = $args[-1];
+    my $file = $args[-2];
+
+    $mode = $this->_octalize_number($mode);
+
+    local $! = $this->errno;
+
+    return "Can't dbmopen(%hash, '$file', $mode): '$!'";
+}
+
+# Default formatter for CORE::close
+
+sub _format_close {
+    my ($this) = @_;
+    my $close_arg = $this->args->[0];
+
+    local $! = $this->errno;
+
+    # If we've got an old-style filehandle, mention it.
+    if ($close_arg and not ref $close_arg) {
+        return "Can't close filehandle '$close_arg': '$!'";
+    }
+
+    # TODO - This will probably produce an ugly error.  Test and fix.
+    return "Can't close($close_arg) filehandle: '$!'";
+
+}
+
+# Default formatter for CORE::read, CORE::sysread and CORE::syswrite
+#
+# Similar to default formatter with the buffer filtered out as it
+# may contain binary data.
+sub _format_readwrite {
+    my ($this) = @_;
+    my $call = $this->_trim_package_name($this->function);
+    local $! = $this->errno;
+
+    # These subs receive the following arguments (in order):
+    #
+    # * FILEHANDLE
+    # * SCALAR (buffer, we do not want to write this)
+    # * LENGTH (optional for syswrite)
+    # * OFFSET (optional for all)
+    my (@args) = @{$this->args};
+    my $arg_name = $args[1];
+    if (defined($arg_name)) {
+        if (ref($arg_name)) {
+            my $name = blessed($arg_name) || ref($arg_name);
+            $arg_name = "<${name}>";
+        } else {
+            $arg_name = '<BUFFER>';
+        }
+    } else {
+        $arg_name = '<UNDEF>';
+    }
+    $args[1] = $arg_name;
+
+    return "Can't $call(" . join(q{, }, @args) . "): $!";
+}
+
+# Default formatter for CORE::open
+
+use constant _FORMAT_OPEN => "Can't open '%s' for %s: '%s'";
+
+sub _format_open_with_mode {
+    my ($this, $mode, $file, $error) = @_;
+
+    my $wordy_mode;
+
+    if    ($mode eq '<')  { $wordy_mode = 'reading';   }
+    elsif ($mode eq '>')  { $wordy_mode = 'writing';   }
+    elsif ($mode eq '>>') { $wordy_mode = 'appending'; }
+
+    $file = '<undef>' if not defined $file;
+
+    return sprintf _FORMAT_OPEN, $file, $wordy_mode, $error if $wordy_mode;
+
+    Carp::confess("Internal autodie::exception error: Don't know how to format mode '$mode'.");
+
+}
+
+sub _format_open {
+    my ($this) = @_;
+
+    my @open_args = @{$this->args};
+
+    # Use the default formatter for single-arg and many-arg open
+    if (@open_args <= 1 or @open_args >= 4) {
+        return $this->format_default;
+    }
+
+    # For two arg open, we have to extract the mode
+    if (@open_args == 2) {
+        my ($fh, $file) = @open_args;
+
+        if (ref($fh) eq "GLOB") {
+            $fh = '$fh';
+        }
+
+        my ($mode) = $file =~ m{
+            ^\s*                # Spaces before mode
+            (
+                (?>             # Non-backtracking subexp.
+                    <           # Reading
+                    |>>?        # Writing/appending
+                )
+            )
+            [^&]                # Not an ampersand (which means a dup)
+        }x;
+
+        if (not $mode) {
+            # Maybe it's a 2-arg open without any mode at all?
+            # Detect the most simple case for this, where our
+            # file consists only of word characters.
+
+            if ( $file =~ m{^\s*\w+\s*$} ) {
+                $mode = '<'
+            }
+            else {
+                # Otherwise, we've got no idea what's going on.
+                # Use the default.
+                return $this->format_default;
+            }
+        }
+
+        # Localising $! means perl makes it a pretty error for us.
+        local $! = $this->errno;
+
+        return $this->_format_open_with_mode($mode, $file, $!);
+    }
+
+    # Here we must be using three arg open.
+
+    my $file = $open_args[2];
+
+    local $! = $this->errno;
+
+    my $mode = $open_args[1];
+
+    local $@;
+
+    my $msg = eval { $this->_format_open_with_mode($mode, $file, $!); };
+
+    return $msg if $msg;
+
+    # Default message (for pipes and odd things)
+
+    return "Can't open '$file' with mode '$open_args[1]': '$!'";
+}
+
+=head3 register
+
+    autodie::exception->register( 'CORE::open' => \&mysub );
+
+The C<register> method allows for the registration of a message
+handler for a given subroutine.  The full subroutine name including
+the package should be used.
+
+Registered message handlers will receive the C<autodie::exception>
+object as the first parameter.
+
+=cut
+
+sub register {
+    my ($class, $symbol, $handler) = @_;
+
+    croak "Incorrect call to autodie::register" if @_ != 3;
+
+    $formatter_of{$symbol} = $handler;
+
+}
+
+=head3 add_file_and_line
+
+    say "Problem occurred",$@->add_file_and_line;
+
+Returns the string C< at %s line %d>, where C<%s> is replaced with
+the filename, and C<%d> is replaced with the line number.
+
+Primarily intended for use by format handlers.
+
+=cut
+
+# Simply produces the file and line number; intended to be added
+# to the end of error messages.
+
+sub add_file_and_line {
+    my ($this) = @_;
+
+    return sprintf(" at %s line %d\n", $this->file, $this->line);
+}
+
+=head3 stringify
+
+    say "The error was: ",$@->stringify;
+
+Formats the error as a human readable string.  Usually there's no
+reason to call this directly, as it is used automatically if an
+C<autodie::exception> object is ever used as a string.
+
+Child classes can override this method to change how they're
+stringified.
+
+=cut
+
+sub stringify {
+    my ($this) = @_;
+
+    my $call        =  $this->function;
+    my $msg;
+
+    if ($DEBUG) {
+        my $dying_pkg   = $this->package;
+        my $sub   = $this->function;
+        my $caller = $this->caller;
+        warn "Stringifing exception for $dying_pkg :: $sub / $caller / $call\n";
+    }
+
+    # TODO - This isn't using inheritance.  Should it?
+    if ( my $sub = $formatter_of{$call} ) {
+        $msg = $sub->($this) . $this->add_file_and_line;
+    } else {
+        $msg = $this->format_default . $this->add_file_and_line;
+    }
+    $msg .=  $this->{$PACKAGE}{_stack_trace}
+        if $Carp::Verbose;
+
+    return $msg;
+}
+
+=head3 format_default
+
+    my $error_string = $E->format_default;
+
+This produces the default error string for the given exception,
+I<without using any registered message handlers>.  It is primarily
+intended to be called from a message handler when they have
+been passed an exception they don't want to format.
+
+Child classes can override this method to change how default
+messages are formatted.
+
+=cut
+
+# TODO: This produces ugly errors.  Is there any way we can
+# dig around to find the actual variable names?  I know perl 5.10
+# does some dark and terrible magicks to find them for undef warnings.
+
+sub format_default {
+    my ($this) = @_;
+
+    my $call   =  $this->_trim_package_name($this->function);
+
+    local $! = $this->errno;
+
+    my @args = @{ $this->args() };
+    @args = $this->_beautify_arguments(@args);
+
+    # Format our beautiful error.
+
+    return "Can't $call(".  join(q{, }, @args) . "): $!" ;
+
+    # TODO - Handle user-defined errors from hash.
+
+    # TODO - Handle default error messages.
+
+}
+
+=head3 new
+
+    my $error = autodie::exception->new(
+        args => \@_,
+        function => "CORE::open",
+        errno => $!,
+        context => 'scalar',
+        return => undef,
+    );
+
+
+Creates a new C<autodie::exception> object.  Normally called
+directly from an autodying function.  The C<function> argument
+is required, its the function we were trying to call that
+generated the exception.  The C<args> parameter is optional.
+
+The C<errno> value is optional.  In versions of C<autodie::exception>
+1.99 and earlier the code would try to automatically use the
+current value of C<$!>, but this was unreliable and is no longer
+supported.
+
+Atrributes such as package, file, and caller are determined
+automatically, and cannot be specified.
+
+=cut
+
+sub new {
+    my ($class, @args) = @_;
+
+    my $this = {};
+
+    bless($this,$class);
+
+    # I'd love to use EVERY here, but it causes our code to die
+    # because it wants to stringify our objects before they're
+    # initialised, causing everything to explode.
+
+    $this->_init(@args);
+
+    return $this;
+}
+
+sub _init {
+
+    my ($this, %args) = @_;
+
+    # Capturing errno here is not necessarily reliable.
+    my $original_errno = $!;
+
+    our $init_called = 1;
+
+    my $class = ref $this;
+
+    # We're going to walk up our call stack, looking for the
+    # first thing that doesn't look like our exception
+    # code, autodie/Fatal, or some whacky eval.
+
+    my ($package, $file, $line, $sub);
+
+    my $depth = 0;
+
+    while (1) {
+        $depth++;
+
+        ($package, $file, $line, $sub) = CORE::caller($depth);
+
+        # Skip up the call stack until we find something outside
+        # of the Fatal/autodie/eval space.
+
+        next if $package->isa('Fatal');
+        next if $package->isa($class);
+        next if $package->isa(__PACKAGE__);
+
+        # Anything with the 'autodie::skip' role wants us to skip it.
+        # https://github.com/pjf/autodie/issues/15
+
+        next if ($package->can('DOES') and $package->DOES('autodie::skip'));
+
+        next if $file =~ /^\(eval\s\d+\)$/;
+
+        last;
+
+    }
+
+    # We now have everything correct, *except* for our subroutine
+    # name.  If it's __ANON__ or (eval), then we need to keep on
+    # digging deeper into our stack to find the real name.  However we
+    # don't update our other information, since that will be correct
+    # for our current exception.
+
+    my $first_guess_subroutine = $sub;
+
+    while (defined $sub and $sub =~ /^\(eval\)$|::__ANON__$/) {
+        $depth++;
+
+        $sub = (CORE::caller($depth))[3];
+    }
+
+    # If we end up falling out the bottom of our stack, then our
+    # __ANON__ guess is the best we can get.  This includes situations
+    # where we were called from the top level of a program.
+
+    if (not defined $sub) {
+        $sub = $first_guess_subroutine;
+    }
+
+    $this->{$PACKAGE}{package} = $package;
+    $this->{$PACKAGE}{file}    = $file;
+    $this->{$PACKAGE}{line}    = $line;
+    $this->{$PACKAGE}{caller}  = $sub;
+
+    # Tranks to %Carp::CarpInternal all Fatal, autodie and
+    # autodie::exception stack frames are filtered already, but our
+    # nameless wrapper is still present, so strip that.
+
+    my $trace = Carp::longmess();
+    $trace =~ s/^\s*at \(eval[^\n]+\n//;
+
+    # And if we see an __ANON__, then we'll replace that with the actual
+    # name of our autodying function.
+
+    my $short_func = $args{function};
+    $short_func =~ s/^CORE:://;
+    $trace =~ s/(\s*[\w:]+)__ANON__/$1$short_func/;
+
+    # And now we just fill in all our attributes.
+
+    $this->{$PACKAGE}{_stack_trace} = $trace;
+
+    $this->{$PACKAGE}{errno}   = $args{errno} || 0;
+
+    $this->{$PACKAGE}{context} = $args{context};
+    $this->{$PACKAGE}{return}  = $args{return};
+    $this->{$PACKAGE}{eval_error}  = $args{eval_error};
+
+    $this->{$PACKAGE}{args}    = $args{args} || [];
+    $this->{$PACKAGE}{function}= $args{function} or
+              croak("$class->new() called without function arg");
+
+    return $this;
+
+}
+
+1;
+
+__END__
+
+=head1 SEE ALSO
+
+L<autodie>, L<autodie::exception::system>
+
+=head1 LICENSE
+
+Copyright (C)2008 Paul Fenwick
+
+This is free software.  You may modify and/or redistribute this
+code under the same terms as Perl 5.10 itself, or, at your option,
+any later version of Perl 5.
+
+=head1 AUTHOR
+
+Paul Fenwick E<lt>pjf@perltraining.com.auE<gt>
diff --git a/lib/5.24.1/autodie/exception/system.pm b/lib/5.24.1/autodie/exception/system.pm
new file mode 100644
index 00000000..e6305fd4
--- /dev/null
+++ b/lib/5.24.1/autodie/exception/system.pm
@@ -0,0 +1,83 @@
+package autodie::exception::system;
+use 5.008;
+use strict;
+use warnings;
+use parent 'autodie::exception';
+use Carp qw(croak);
+
+our $VERSION = '2.29'; # VERSION: Generated by DZP::OurPkg:Version
+
+# ABSTRACT: Exceptions from autodying system().
+
+my $PACKAGE = __PACKAGE__;
+
+=head1 NAME
+
+autodie::exception::system - Exceptions from autodying system().
+
+=head1 SYNOPSIS
+
+    eval {
+        use autodie qw(system);
+
+        system($cmd, @args);
+
+    };
+
+    if (my $E = $@) {
+        say "Ooops!  ",$E->caller," had problems: $@";
+    }
+
+
+=head1 DESCRIPTION
+
+This is a L<autodie::exception> class for failures from the
+C<system> command.
+
+Presently there is no way to interrogate an C<autodie::exception::system>
+object for the command, exit status, and other information you'd expect
+such an object to hold.  The interface will be expanded to accommodate
+this in the future.
+
+=cut
+
+sub _init {
+    my ($this, %args) = @_;
+
+    $this->{$PACKAGE}{message} = $args{message}
+        || croak "'message' arg not supplied to autodie::exception::system->new";
+
+    return $this->SUPER::_init(%args);
+
+}
+
+=head2 stringify
+
+When stringified, C<autodie::exception::system> objects currently
+use the message generated by L<IPC::System::Simple>.
+
+=cut
+
+sub stringify {
+
+    my ($this) = @_;
+
+    return $this->{$PACKAGE}{message} . $this->add_file_and_line;
+
+}
+
+1;
+
+__END__
+
+=head1 LICENSE
+
+Copyright (C)2008 Paul Fenwick
+
+This is free software.  You may modify and/or redistribute this
+code under the same terms as Perl 5.10 itself, or, at your option,
+any later version of Perl 5.
+
+=head1 AUTHOR
+
+Paul Fenwick E<lt>pjf@perltraining.com.auE<gt>
diff --git a/lib/5.24.1/autodie/hints.pm b/lib/5.24.1/autodie/hints.pm
new file mode 100644
index 00000000..beaefcc2
--- /dev/null
+++ b/lib/5.24.1/autodie/hints.pm
@@ -0,0 +1,600 @@
+package autodie::hints;
+
+use strict;
+use warnings;
+
+use constant PERL58 => ( $] < 5.009 );
+
+our $VERSION = '2.29'; # VERSION: Generated by DZP::OurPkg:Version
+
+# ABSTRACT: Provide hints about user subroutines to autodie
+
+=head1 NAME
+
+autodie::hints - Provide hints about user subroutines to autodie
+
+=head1 SYNOPSIS
+
+    package Your::Module;
+
+    our %DOES = ( 'autodie::hints::provider' => 1 );
+
+    sub AUTODIE_HINTS {
+        return {
+            foo => { scalar => HINTS, list => SOME_HINTS },
+            bar => { scalar => HINTS, list => MORE_HINTS },
+        }
+    }
+
+    # Later, in your main program...
+
+    use Your::Module qw(foo bar);
+    use autodie      qw(:default foo bar);
+
+    foo();         # succeeds or dies based on scalar hints
+
+    # Alternatively, hints can be set on subroutines we've
+    # imported.
+
+    use autodie::hints;
+    use Some::Module qw(think_positive);
+
+    BEGIN {
+        autodie::hints->set_hints_for(
+            \&think_positive,
+            {
+                fail => sub { $_[0] <= 0 }
+            }
+        )
+    }
+    use autodie qw(think_positive);
+
+    think_positive(...);    # Returns positive or dies.
+
+
+=head1 DESCRIPTION
+
+=head2 Introduction
+
+The L<autodie> pragma is very smart when it comes to working with
+Perl's built-in functions.  The behaviour for these functions are
+fixed, and C<autodie> knows exactly how they try to signal failure.
+
+But what about user-defined subroutines from modules?  If you use
+C<autodie> on a user-defined subroutine then it assumes the following
+behaviour to demonstrate failure:
+
+=over
+
+=item *
+
+A false value, in scalar context
+
+=item * 
+
+An empty list, in list context
+
+=item *
+
+A list containing a single undef, in list context
+
+=back
+
+All other return values (including the list of the single zero, and the
+list containing a single empty string) are considered successful.  However,
+real-world code isn't always that easy.  Perhaps the code you're working
+with returns a string containing the word "FAIL" upon failure, or a
+two element list containing C<(undef, "human error message")>.  To make
+autodie work with these sorts of subroutines, we have
+the I<hinting interface>.
+
+The hinting interface allows I<hints> to be provided to C<autodie>
+on how it should detect failure from user-defined subroutines.  While
+these I<can> be provided by the end-user of C<autodie>, they are ideally
+written into the module itself, or into a helper module or sub-class
+of C<autodie> itself.
+
+=head2 What are hints?
+
+A I<hint> is a subroutine or value that is checked against the
+return value of an autodying subroutine.  If the match returns true,
+C<autodie> considers the subroutine to have failed.
+
+If the hint provided is a subroutine, then C<autodie> will pass
+the complete return value to that subroutine.  If the hint is
+any other value, then C<autodie> will smart-match against the
+value provided.  In Perl 5.8.x there is no smart-match operator, and as such
+only subroutine hints are supported in these versions.
+
+Hints can be provided for both scalar and list contexts.  Note
+that an autodying subroutine will never see a void context, as
+C<autodie> always needs to capture the return value for examination.
+Autodying subroutines called in void context act as if they're called
+in a scalar context, but their return value is discarded after it
+has been checked.
+
+=head2 Example hints
+
+Hints may consist of scalars, array references, regular expressions and
+subroutine references.  You can specify different hints for how
+failure should be identified in scalar and list contexts.
+
+These examples apply for use in the C<AUTODIE_HINTS> subroutine and when
+calling C<autodie::hints->set_hints_for()>.
+
+The most common context-specific hints are:
+
+        # Scalar failures always return undef:
+            {  scalar => undef  }
+
+        # Scalar failures return any false value [default expectation]:
+            {  scalar => sub { ! $_[0] }  }
+
+        # Scalar failures always return zero explicitly:
+            {  scalar => '0'  }
+
+        # List failures always return an empty list:
+            {  list => []  }
+
+        # List failures return () or (undef) [default expectation]:
+            {  list => sub { ! @_ || @_ == 1 && !defined $_[0] }  }
+
+        # List failures return () or a single false value:
+            {  list => sub { ! @_ || @_ == 1 && !$_[0] }  }
+
+        # List failures return (undef, "some string")
+            {  list => sub { @_ == 2 && !defined $_[0] }  }
+
+        # Unsuccessful foo() returns 'FAIL' or '_FAIL' in scalar context,
+        #                    returns (-1) in list context...
+        autodie::hints->set_hints_for(
+            \&foo,
+            {
+                scalar => qr/^ _? FAIL $/xms,
+                list   => [-1],
+            }
+        );
+
+        # Unsuccessful foo() returns 0 in all contexts...
+        autodie::hints->set_hints_for(
+            \&foo,
+            {
+                scalar => 0,
+                list   => [0],
+            }
+        );
+
+This "in all contexts" construction is very common, and can be
+abbreviated, using the 'fail' key.  This sets both the C<scalar>
+and C<list> hints to the same value:
+
+        # Unsuccessful foo() returns 0 in all contexts...
+        autodie::hints->set_hints_for(
+            \&foo,
+            {
+                fail => sub { @_ == 1 and defined $_[0] and $_[0] == 0 }
+            }
+	);
+
+        # Unsuccessful think_positive() returns negative number on failure...
+        autodie::hints->set_hints_for(
+            \&think_positive,
+            {
+                fail => sub { $_[0] < 0 }
+            }
+	);
+
+        # Unsuccessful my_system() returns non-zero on failure...
+        autodie::hints->set_hints_for(
+            \&my_system,
+            {
+                fail => sub { $_[0] != 0 }
+            }
+	);
+
+=head1 Manually setting hints from within your program
+
+If you are using a module which returns something special on failure, then
+you can manually create hints for each of the desired subroutines.  Once
+the hints are specified, they are available for all files and modules loaded
+thereafter, thus you can move this work into a module and it will still
+work.
+
+	use Some::Module qw(foo bar);
+	use autodie::hints;
+
+	autodie::hints->set_hints_for(
+		\&foo,
+		{
+			scalar => SCALAR_HINT,
+			list   => LIST_HINT,
+		}
+	);
+	autodie::hints->set_hints_for(
+		\&bar,
+                { fail => SOME_HINT, }
+	);
+
+It is possible to pass either a subroutine reference (recommended) or a fully
+qualified subroutine name as the first argument.  This means you can set hints
+on modules that I<might> get loaded:
+
+	use autodie::hints;
+	autodie::hints->set_hints_for(
+		'Some::Module:bar', { fail => SCALAR_HINT, }
+	);
+
+This technique is most useful when you have a project that uses a
+lot of third-party modules.  You can define all your possible hints
+in one-place.  This can even be in a sub-class of autodie.  For
+example:
+
+        package my::autodie;
+
+        use parent qw(autodie);
+        use autodie::hints;
+
+        autodie::hints->set_hints_for(...);
+
+        1;
+
+You can now C<use my::autodie>, which will work just like the standard
+C<autodie>, but is now aware of any hints that you've set.
+
+=head1 Adding hints to your module
+
+C<autodie> provides a passive interface to allow you to declare hints for
+your module.  These hints will be found and used by C<autodie> if it
+is loaded, but otherwise have no effect (or dependencies) without autodie.
+To set these, your module needs to declare that it I<does> the
+C<autodie::hints::provider> role.  This can be done by writing your
+own C<DOES> method, using a system such as C<Class::DOES> to handle
+the heavy-lifting for you, or declaring a C<%DOES> package variable
+with a C<autodie::hints::provider> key and a corresponding true value.
+
+Note that checking for a C<%DOES> hash is an C<autodie>-only
+short-cut.  Other modules do not use this mechanism for checking
+roles, although you can use the C<Class::DOES> module from the
+CPAN to allow it.
+
+In addition, you must define a C<AUTODIE_HINTS> subroutine that returns
+a hash-reference containing the hints for your subroutines:
+
+        package Your::Module;
+
+        # We can use the Class::DOES from the CPAN to declare adherence
+        # to a role.
+
+        use Class::DOES 'autodie::hints::provider' => 1;
+
+        # Alternatively, we can declare the role in %DOES.  Note that
+        # this is an autodie specific optimisation, although Class::DOES
+        # can be used to promote this to a true role declaration.
+
+        our %DOES = ( 'autodie::hints::provider' => 1 );
+
+        # Finally, we must define the hints themselves.
+
+	sub AUTODIE_HINTS {
+	    return {
+	        foo => { scalar => HINTS, list => SOME_HINTS },
+	        bar => { scalar => HINTS, list => MORE_HINTS },
+	        baz => { fail => HINTS },
+	    }
+	}
+
+This allows your code to set hints without relying on C<autodie> and
+C<autodie::hints> being loaded, or even installed.  In this way your
+code can do the right thing when C<autodie> is installed, but does not
+need to depend upon it to function.
+
+=head1 Insisting on hints
+
+When a user-defined subroutine is wrapped by C<autodie>, it will
+use hints if they are available, and otherwise reverts to the
+I<default behaviour> described in the introduction of this document.
+This can be problematic if we expect a hint to exist, but (for
+whatever reason) it has not been loaded.
+
+We can ask autodie to I<insist> that a hint be used by prefixing
+an exclamation mark to the start of the subroutine name.  A lone
+exclamation mark indicates that I<all> subroutines after it must
+have hints declared.
+
+	# foo() and bar() must have their hints defined
+	use autodie qw( !foo !bar baz );
+
+	# Everything must have hints (recommended).
+	use autodie qw( ! foo bar baz );
+
+	# bar() and baz() must have their hints defined
+	use autodie qw( foo ! bar baz );
+
+        # Enable autodie for all of Perl's supported built-ins,
+        # as well as for foo(), bar() and baz().  Everything must
+        # have hints.
+        use autodie qw( ! :all foo bar baz );
+
+If hints are not available for the specified subroutines, this will cause a
+compile-time error.  Insisting on hints for Perl's built-in functions
+(eg, C<open> and C<close>) is always successful.
+
+Insisting on hints is I<strongly> recommended.
+
+=cut
+
+# TODO: implement regular expression hints
+
+use constant UNDEF_ONLY       => sub { not defined $_[0] };
+use constant EMPTY_OR_UNDEF   => sub {
+    ! @_ or
+    @_==1 && !defined $_[0]
+};
+
+use constant EMPTY_ONLY     => sub { @_ == 0 };
+use constant EMPTY_OR_FALSE => sub {
+    ! @_ or
+    @_==1 && !$_[0]
+};
+
+use constant SINGLE_TRUE => sub { @_ == 1 and not $_[0] };
+
+use constant DEFAULT_HINTS => {
+    scalar => UNDEF_ONLY,
+    list   => EMPTY_OR_UNDEF,
+};
+
+
+use constant HINTS_PROVIDER => 'autodie::hints::provider';
+
+our $DEBUG = 0;
+
+# Only ( undef ) is a strange but possible situation for very
+# badly written code.  It's not supported yet.
+
+my %Hints = (
+    'File::Copy::copy' => { scalar => SINGLE_TRUE, list => SINGLE_TRUE },
+    'File::Copy::move' => { scalar => SINGLE_TRUE, list => SINGLE_TRUE },
+    'File::Copy::cp'   => { scalar => SINGLE_TRUE, list => SINGLE_TRUE },
+    'File::Copy::mv'   => { scalar => SINGLE_TRUE, list => SINGLE_TRUE },
+);
+
+# Start by using Sub::Identify if it exists on this system.
+
+eval { require Sub::Identify; Sub::Identify->import('get_code_info'); };
+
+# If it doesn't exist, we'll define our own.  This code is directly
+# taken from Rafael Garcia's Sub::Identify 0.04, used under the same
+# license as Perl itself.
+
+if ($@) {
+    require B;
+
+    no warnings 'once';
+
+    *get_code_info = sub ($) {
+
+        my ($coderef) = @_;
+        ref $coderef or return;
+        my $cv = B::svref_2object($coderef);
+        $cv->isa('B::CV') or return;
+        # bail out if GV is undefined
+        $cv->GV->isa('B::SPECIAL') and return;
+
+        return ($cv->GV->STASH->NAME, $cv->GV->NAME);
+    };
+
+}
+
+sub sub_fullname {
+    return join( '::', get_code_info( $_[1] ) );
+}
+
+my %Hints_loaded = ();
+
+sub load_hints {
+    my ($class, $sub) = @_;
+
+    my ($package) = ( $sub =~ /(.*)::/ );
+
+    if (not defined $package) {
+        require Carp;
+        Carp::croak(
+            "Internal error in autodie::hints::load_hints - no package found.
+        ");
+    }
+
+    # Do nothing if we've already tried to load hints for
+    # this package.
+    return if $Hints_loaded{$package}++;
+
+    my $hints_available = 0;
+
+    {
+        no strict 'refs';   ## no critic
+
+        if ($package->can('DOES') and $package->DOES(HINTS_PROVIDER) ) {
+            $hints_available = 1;
+        }
+        elsif ( PERL58 and $package->isa(HINTS_PROVIDER) ) {
+            $hints_available = 1;
+        }
+        elsif ( ${"${package}::DOES"}{HINTS_PROVIDER.""} ) {
+            $hints_available = 1;
+        }
+    }
+
+    return if not $hints_available;
+
+    my %package_hints = %{ $package->AUTODIE_HINTS };
+
+    foreach my $sub (keys %package_hints) {
+
+        my $hint = $package_hints{$sub};
+
+        # Ensure we have a package name.
+        $sub = "${package}::$sub" if $sub !~ /::/;
+
+        # TODO - Currently we don't check for conflicts, should we?
+        $Hints{$sub} = $hint;
+
+        $class->normalise_hints(\%Hints, $sub);
+    }
+
+    return;
+
+}
+
+sub normalise_hints {
+    my ($class, $hints, $sub) = @_;
+
+    if ( exists $hints->{$sub}->{fail} ) {
+
+        if ( exists $hints->{$sub}->{scalar} or
+             exists $hints->{$sub}->{list}
+        ) {
+            # TODO: Turn into a proper diagnostic.
+            require Carp;
+            local $Carp::CarpLevel = 1;
+            Carp::croak("fail hints cannot be provided with either scalar or list hints for $sub");
+        }
+
+        # Set our scalar and list hints.
+
+        $hints->{$sub}->{scalar} = 
+        $hints->{$sub}->{list} = delete $hints->{$sub}->{fail};
+
+        return;
+
+    }
+
+    # Check to make sure all our hints exist.
+
+    foreach my $hint (qw(scalar list)) {
+        if ( not exists $hints->{$sub}->{$hint} ) {
+            # TODO: Turn into a proper diagnostic.
+            require Carp;
+            local $Carp::CarpLevel = 1;
+            Carp::croak("$hint hint missing for $sub");
+        }
+    }
+
+    return;
+}
+
+sub get_hints_for {
+    my ($class, $sub) = @_;
+
+    my $subname = $class->sub_fullname( $sub );
+
+    # If we have hints loaded for a sub, then return them.
+
+    if ( exists $Hints{ $subname } ) {
+        return $Hints{ $subname };
+    }
+
+    # If not, we try to load them...
+
+    $class->load_hints( $subname );
+
+    # ...and try again!
+
+    if ( exists $Hints{ $subname } ) {
+        return $Hints{ $subname };
+    }
+
+    # It's the caller's responsibility to use defaults if desired.
+    # This allows on autodie to insist on hints if needed.
+
+    return;
+
+}
+
+sub set_hints_for {
+    my ($class, $sub, $hints) = @_;
+
+    if (ref $sub) {
+        $sub = $class->sub_fullname( $sub );
+
+        require Carp;
+
+        $sub or Carp::croak("Attempts to set_hints_for unidentifiable subroutine");
+    }
+
+    if ($DEBUG) {
+        warn "autodie::hints: Setting $sub to hints: $hints\n";
+    }
+
+    $Hints{ $sub } = $hints;
+
+    $class->normalise_hints(\%Hints, $sub);
+
+    return;
+}
+
+1;
+
+__END__
+
+
+=head1 Diagnostics
+
+=over 4
+
+=item Attempts to set_hints_for unidentifiable subroutine
+
+You've called C<< autodie::hints->set_hints_for() >> using a subroutine
+reference, but that reference could not be resolved back to a
+subroutine name.  It may be an anonymous subroutine (which can't
+be made autodying), or may lack a name for other reasons.
+
+If you receive this error with a subroutine that has a real name,
+then you may have found a bug in autodie.  See L<autodie/BUGS>
+for how to report this.
+
+=item fail hints cannot be provided with either scalar or list hints for %s
+
+When defining hints, you can either supply both C<list> and
+C<scalar> keywords, I<or> you can provide a single C<fail> keyword.
+You can't mix and match them.
+
+=item %s hint missing for %s
+
+You've provided either a C<scalar> hint without supplying
+a C<list> hint, or vice-versa.  You I<must> supply both C<scalar>
+and C<list> hints, I<or> a single C<fail> hint.
+
+=back
+
+=head1 ACKNOWLEDGEMENTS
+
+=over 
+
+=item *
+
+Dr Damian Conway for suggesting the hinting interface and providing the
+example usage.
+
+=item *
+
+Jacinta Richardson for translating much of my ideas into this
+documentation.
+
+=back
+
+=head1 AUTHOR
+
+Copyright 2009, Paul Fenwick E<lt>pjf@perltraining.com.auE<gt>
+
+=head1 LICENSE
+
+This module is free software.  You may distribute it under the
+same terms as Perl itself.
+
+=head1 SEE ALSO
+
+L<autodie>, L<Class::DOES>
+
+=for Pod::Coverage get_hints_for load_hints normalise_hints sub_fullname get_code_info
+
+=cut
diff --git a/lib/5.24.1/autodie/skip.pm b/lib/5.24.1/autodie/skip.pm
new file mode 100644
index 00000000..9a048fe6
--- /dev/null
+++ b/lib/5.24.1/autodie/skip.pm
@@ -0,0 +1,56 @@
+package autodie::skip;
+use strict;
+use warnings;
+
+our $VERSION = '2.29'; # VERSION
+
+# This package exists purely so people can inherit from it,
+# which isn't at all how roles are supposed to work, but it's
+# how people will use them anyway.
+
+if ($] < 5.010) {
+    # Older Perls don't have a native ->DOES.  Let's provide a cheap
+    # imitation here.
+
+    *DOES = sub { return shift->isa(@_); };
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+autodie::skip - Skip a package when throwing autodie exceptions
+
+=head1 SYNPOSIS
+
+    use parent qw(autodie::skip);
+
+=head1 DESCRIPTION
+
+This dummy class exists to signal that the class inheriting it should
+be skipped when reporting exceptions from autodie.  This is useful
+for utility classes like L<Path::Tiny> that wish to report the location
+of where they were called on failure.
+
+If your class has a better way of doing roles, then you should not
+load this class and instead simply say that your class I<DOES>
+C<autodie::skip> instead.
+
+=head1 AUTHOR
+
+Copyright 2013, Paul Fenwick <pjf@cpan.org>
+
+=head1 LICENSE
+
+This module is free software. You may distribute it under the same
+terms as Perl itself.
+
+=head1 SEE ALSO
+
+L<autodie>, L<autodie::exception>
+
+=for Pod::Coverage DOES
+
+=cut
diff --git a/lib/5.24.1/autouse.pm b/lib/5.24.1/autouse.pm
new file mode 100644
index 00000000..2dd8c1db
--- /dev/null
+++ b/lib/5.24.1/autouse.pm
@@ -0,0 +1,171 @@
+package autouse;
+
+#use strict;		# debugging only
+use 5.006;		# use warnings
+
+$autouse::VERSION = '1.11';
+
+$autouse::DEBUG ||= 0;
+
+sub vet_import ($);
+
+sub croak {
+    require Carp;
+    Carp::croak(@_);
+}
+
+sub import {
+    my $class = @_ ? shift : 'autouse';
+    croak "usage: use $class MODULE [,SUBS...]" unless @_;
+    my $module = shift;
+
+    (my $pm = $module) =~ s{::}{/}g;
+    $pm .= '.pm';
+    if (exists $INC{$pm}) {
+	vet_import $module;
+	local $Exporter::ExportLevel = $Exporter::ExportLevel + 1;
+	# $Exporter::Verbose = 1;
+	return $module->import(map { (my $f = $_) =~ s/\(.*?\)$//; $f } @_);
+    }
+
+    # It is not loaded: need to do real work.
+    my $callpkg = caller(0);
+    print "autouse called from $callpkg\n" if $autouse::DEBUG;
+
+    my $index;
+    for my $f (@_) {
+	my $proto;
+	$proto = $1 if (my $func = $f) =~ s/\((.*)\)$//;
+
+	my $closure_import_func = $func;	# Full name
+	my $closure_func = $func;		# Name inside package
+	my $index = rindex($func, '::');
+	if ($index == -1) {
+	    $closure_import_func = "${callpkg}::$func";
+	} else {
+	    $closure_func = substr $func, $index + 2;
+	    croak "autouse into different package attempted"
+		unless substr($func, 0, $index) eq $module;
+	}
+
+	my $load_sub = sub {
+	    unless ($INC{$pm}) {
+		require $pm;
+		vet_import $module;
+	    }
+            no warnings qw(redefine prototype);
+	    *$closure_import_func = \&{"${module}::$closure_func"};
+	    print "autousing $module; "
+		  ."imported $closure_func as $closure_import_func\n"
+		if $autouse::DEBUG;
+	    goto &$closure_import_func;
+	};
+
+	if (defined $proto) {
+	    *$closure_import_func = eval "sub ($proto) { goto &\$load_sub }"
+	        || die;
+	} else {
+	    *$closure_import_func = $load_sub;
+	}
+    }
+}
+
+sub vet_import ($) {
+    my $module = shift;
+    if (my $import = $module->can('import')) {
+	croak "autoused module $module has unique import() method"
+	    unless defined(&Exporter::import)
+		   && ($import == \&Exporter::import ||
+		       $import == \&UNIVERSAL::import)
+    }
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+autouse - postpone load of modules until a function is used
+
+=head1 SYNOPSIS
+
+  use autouse 'Carp' => qw(carp croak);
+  carp "this carp was predeclared and autoused ";
+
+=head1 DESCRIPTION
+
+If the module C<Module> is already loaded, then the declaration
+
+  use autouse 'Module' => qw(func1 func2($;$));
+
+is equivalent to
+
+  use Module qw(func1 func2);
+
+if C<Module> defines func2() with prototype C<($;$)>, and func1() has
+no prototypes.  (At least if C<Module> uses C<Exporter>'s C<import>,
+otherwise it is a fatal error.)
+
+If the module C<Module> is not loaded yet, then the above declaration
+declares functions func1() and func2() in the current package.  When
+these functions are called, they load the package C<Module> if needed,
+and substitute themselves with the correct definitions.
+
+=begin _deprecated
+
+   use Module qw(Module::func3);
+
+will work and is the equivalent to:
+
+   use Module qw(func3);
+
+It is not a very useful feature and has been deprecated.
+
+=end _deprecated
+
+
+=head1 WARNING
+
+Using C<autouse> will move important steps of your program's execution
+from compile time to runtime.  This can
+
+=over 4
+
+=item *
+
+Break the execution of your program if the module you C<autouse>d has
+some initialization which it expects to be done early.
+
+=item *
+
+hide bugs in your code since important checks (like correctness of
+prototypes) is moved from compile time to runtime.  In particular, if
+the prototype you specified on C<autouse> line is wrong, you will not
+find it out until the corresponding function is executed.  This will be
+very unfortunate for functions which are not always called (note that
+for such functions C<autouse>ing gives biggest win, for a workaround
+see below).
+
+=back
+
+To alleviate the second problem (partially) it is advised to write
+your scripts like this:
+
+  use Module;
+  use autouse Module => qw(carp($) croak(&$));
+  carp "this carp was predeclared and autoused ";
+
+The first line ensures that the errors in your argument specification
+are found early.  When you ship your application you should comment
+out the first line, since it makes the second one useless.
+
+=head1 AUTHOR
+
+Ilya Zakharevich (ilya@math.ohio-state.edu)
+
+=head1 SEE ALSO
+
+perl(1).
+
+=cut
diff --git a/lib/5.24.1/base.pm b/lib/5.24.1/base.pm
new file mode 100644
index 00000000..6fee6008
--- /dev/null
+++ b/lib/5.24.1/base.pm
@@ -0,0 +1,277 @@
+use 5.008;
+package base;
+
+use strict 'vars';
+use vars qw($VERSION);
+$VERSION = '2.23';
+$VERSION =~ tr/_//d;
+
+# constant.pm is slow
+sub SUCCESS () { 1 }
+
+sub PUBLIC     () { 2**0  }
+sub PRIVATE    () { 2**1  }
+sub INHERITED  () { 2**2  }
+sub PROTECTED  () { 2**3  }
+
+
+my $Fattr = \%fields::attr;
+
+sub has_fields {
+    my($base) = shift;
+    my $fglob = ${"$base\::"}{FIELDS};
+    return( ($fglob && 'GLOB' eq ref($fglob) && *$fglob{HASH}) ? 1 : 0 );
+}
+
+sub has_attr {
+    my($proto) = shift;
+    my($class) = ref $proto || $proto;
+    return exists $Fattr->{$class};
+}
+
+sub get_attr {
+    $Fattr->{$_[0]} = [1] unless $Fattr->{$_[0]};
+    return $Fattr->{$_[0]};
+}
+
+if ($] < 5.009) {
+    *get_fields = sub {
+        # Shut up a possible typo warning.
+        () = \%{$_[0].'::FIELDS'};
+        my $f = \%{$_[0].'::FIELDS'};
+
+        # should be centralized in fields? perhaps
+        # fields::mk_FIELDS_be_OK. Peh. As long as %{ $package . '::FIELDS' }
+        # is used here anyway, it doesn't matter.
+        bless $f, 'pseudohash' if (ref($f) ne 'pseudohash');
+
+        return $f;
+    }
+}
+else {
+    *get_fields = sub {
+        # Shut up a possible typo warning.
+        () = \%{$_[0].'::FIELDS'};
+        return \%{$_[0].'::FIELDS'};
+    }
+}
+
+if ($] < 5.008) {
+    *_module_to_filename = sub {
+        (my $fn = $_[0]) =~ s!::!/!g;
+        $fn .= '.pm';
+        return $fn;
+    }
+}
+else {
+    *_module_to_filename = sub {
+        (my $fn = $_[0]) =~ s!::!/!g;
+        $fn .= '.pm';
+        utf8::encode($fn);
+        return $fn;
+    }
+}
+
+
+sub import {
+    my $class = shift;
+
+    return SUCCESS unless @_;
+
+    # List of base classes from which we will inherit %FIELDS.
+    my $fields_base;
+
+    my $inheritor = caller(0);
+
+    my @bases;
+    foreach my $base (@_) {
+        if ( $inheritor eq $base ) {
+            warn "Class '$inheritor' tried to inherit from itself\n";
+        }
+
+        next if grep $_->isa($base), ($inheritor, @bases);
+
+        # Following blocks help isolate $SIG{__DIE__} changes
+        {
+            my $sigdie;
+            {
+                local $SIG{__DIE__};
+                my $fn = _module_to_filename($base);
+                eval { require $fn };
+                # Only ignore "Can't locate" errors from our eval require.
+                # Other fatal errors (syntax etc) must be reported.
+                #
+                # changing the check here is fragile - if the check
+                # here isn't catching every error you want, you should
+                # probably be using parent.pm, which doesn't try to
+                # guess whether require is needed or failed,
+                # see [perl #118561]
+                die if $@ && $@ !~ /^Can't locate \Q$fn\E .*? at .* line [0-9]+(?:, <[^>]*> (?:line|chunk) [0-9]+)?\.\n\z/s
+                          || $@ =~ /Compilation failed in require at .* line [0-9]+(?:, <[^>]*> (?:line|chunk) [0-9]+)?\.\n\z/;
+                unless (%{"$base\::"}) {
+                    require Carp;
+                    local $" = " ";
+                    Carp::croak(<<ERROR);
+Base class package "$base" is empty.
+    (Perhaps you need to 'use' the module which defines that package first,
+    or make that module available in \@INC (\@INC contains: @INC).
+ERROR
+                }
+                $sigdie = $SIG{__DIE__} || undef;
+            }
+            # Make sure a global $SIG{__DIE__} makes it out of the localization.
+            $SIG{__DIE__} = $sigdie if defined $sigdie;
+        }
+        push @bases, $base;
+
+        if ( has_fields($base) || has_attr($base) ) {
+            # No multiple fields inheritance *suck*
+            if ($fields_base) {
+                require Carp;
+                Carp::croak("Can't multiply inherit fields");
+            } else {
+                $fields_base = $base;
+            }
+        }
+    }
+    # Save this until the end so it's all or nothing if the above loop croaks.
+    push @{"$inheritor\::ISA"}, @bases;
+
+    if( defined $fields_base ) {
+        inherit_fields($inheritor, $fields_base);
+    }
+}
+
+
+sub inherit_fields {
+    my($derived, $base) = @_;
+
+    return SUCCESS unless $base;
+
+    my $battr = get_attr($base);
+    my $dattr = get_attr($derived);
+    my $dfields = get_fields($derived);
+    my $bfields = get_fields($base);
+
+    $dattr->[0] = @$battr;
+
+    if( keys %$dfields ) {
+        warn <<"END";
+$derived is inheriting from $base but already has its own fields!
+This will cause problems.  Be sure you use base BEFORE declaring fields.
+END
+
+    }
+
+    # Iterate through the base's fields adding all the non-private
+    # ones to the derived class.  Hang on to the original attribute
+    # (Public, Private, etc...) and add Inherited.
+    # This is all too complicated to do efficiently with add_fields().
+    while (my($k,$v) = each %$bfields) {
+        my $fno;
+        if ($fno = $dfields->{$k} and $fno != $v) {
+            require Carp;
+            Carp::croak ("Inherited fields can't override existing fields");
+        }
+
+        if( $battr->[$v] & PRIVATE ) {
+            $dattr->[$v] = PRIVATE | INHERITED;
+        }
+        else {
+            $dattr->[$v] = INHERITED | $battr->[$v];
+            $dfields->{$k} = $v;
+        }
+    }
+
+    foreach my $idx (1..$#{$battr}) {
+        next if defined $dattr->[$idx];
+        $dattr->[$idx] = $battr->[$idx] & INHERITED;
+    }
+}
+
+
+1;
+
+__END__
+
+=head1 NAME
+
+base - Establish an ISA relationship with base classes at compile time
+
+=head1 SYNOPSIS
+
+    package Baz;
+    use base qw(Foo Bar);
+
+=head1 DESCRIPTION
+
+Unless you are using the C<fields> pragma, consider this module discouraged
+in favor of the lighter-weight C<parent>.
+
+Allows you to both load one or more modules, while setting up inheritance from
+those modules at the same time.  Roughly similar in effect to
+
+    package Baz;
+    BEGIN {
+        require Foo;
+        require Bar;
+        push @ISA, qw(Foo Bar);
+    }
+
+When C<base> tries to C<require> a module, it will not die if it cannot find
+the module's file, but will die on any other error.  After all this, should
+your base class be empty, containing no symbols, C<base> will die. This is
+useful for inheriting from classes in the same file as yourself but where
+the filename does not match the base module name, like so:
+
+        # in Bar.pm
+        package Foo;
+        sub exclaim { "I can have such a thing?!" }
+
+        package Bar;
+        use base "Foo";
+
+There is no F<Foo.pm>, but because C<Foo> defines a symbol (the C<exclaim>
+subroutine), C<base> will not die when the C<require> fails to load F<Foo.pm>.
+
+C<base> will also initialize the fields if one of the base classes has it.
+Multiple inheritance of fields is B<NOT> supported, if two or more base classes
+each have inheritable fields the 'base' pragma will croak. See L<fields>
+for a description of this feature.
+
+The base class' C<import> method is B<not> called.
+
+
+=head1 DIAGNOSTICS
+
+=over 4
+
+=item Base class package "%s" is empty.
+
+base.pm was unable to require the base package, because it was not
+found in your path.
+
+=item Class 'Foo' tried to inherit from itself
+
+Attempting to inherit from yourself generates a warning.
+
+    package Foo;
+    use base 'Foo';
+
+=back
+
+=head1 HISTORY
+
+This module was introduced with Perl 5.004_04.
+
+=head1 CAVEATS
+
+Due to the limitations of the implementation, you must use
+base I<before> you declare any of your own fields.
+
+
+=head1 SEE ALSO
+
+L<fields>
+
+=cut
diff --git a/lib/5.24.1/bigint.pm b/lib/5.24.1/bigint.pm
new file mode 100644
index 00000000..bc1ebe39
--- /dev/null
+++ b/lib/5.24.1/bigint.pm
@@ -0,0 +1,795 @@
+package bigint;
+
+use 5.006;
+use strict;
+use warnings;
+
+our $VERSION = '0.42_01';
+
+use Exporter;
+our @ISA            = qw( Exporter );
+our @EXPORT_OK      = qw( PI e bpi bexp hex oct );
+our @EXPORT         = qw( inf NaN );
+
+use overload;
+
+##############################################################################
+
+# These are all alike, and thus faked by AUTOLOAD
+
+my @faked = qw/round_mode accuracy precision div_scale/;
+our ($AUTOLOAD, $_lite);        # _lite for testsuite
+
+sub AUTOLOAD {
+    my $name = $AUTOLOAD;
+
+    $name =~ s/.*:://;          # split package
+    no strict 'refs';
+    foreach my $n (@faked) {
+        if ($n eq $name) {
+            *{"bigint::$name"} =
+              sub {
+                  my $self = shift;
+                  no strict 'refs';
+                  if (defined $_[0]) {
+                      return Math::BigInt->$name($_[0]);
+                  }
+                  return Math::BigInt->$name();
+              };
+            return &$name;
+        }
+    }
+
+    # delayed load of Carp and avoid recursion
+    require Carp;
+    Carp::croak ("Can't call bigint\-\>$name, not a valid method");
+}
+
+sub upgrade {
+    $Math::BigInt::upgrade;
+}
+
+sub _binary_constant {
+    # this takes a binary/hexadecimal/octal constant string and returns it
+    # as string suitable for new. Basically it converts octal to decimal, and
+    # passes every thing else unmodified back.
+    my $string = shift;
+
+    return Math::BigInt->new($string) if $string =~ /^0[bx]/;
+
+    # so it must be an octal constant
+    Math::BigInt->from_oct($string);
+}
+
+sub _float_constant {
+    # this takes a floating point constant string and returns it truncated to
+    # integer. For instance, '4.5' => '4', '1.234e2' => '123' etc
+    my $float = shift;
+
+    # some simple cases first
+    return $float if ($float =~ /^[+-]?[0-9]+$/);       # '+123','-1','0' etc
+    return $float
+      if ($float =~ /^[+-]?[0-9]+\.?[eE]\+?[0-9]+$/);   # 123e2, 123.e+2
+    return '0' if ($float =~ /^[+-]?[0]*\.[0-9]+$/);    # .2, 0.2, -.1
+    if ($float =~ /^[+-]?[0-9]+\.[0-9]*$/) {            # 1., 1.23, -1.2 etc
+        $float =~ s/\..*//;
+        return $float;
+    }
+    my ($mis, $miv, $mfv, $es, $ev) = Math::BigInt::_split($float);
+    return $float if !defined $mis;       # doesn't look like a number to me
+    my $ec = int($$ev);
+    my $sign = $$mis;
+    $sign = '' if $sign eq '+';
+    if ($$es eq '-') {
+        # ignore fraction part entirely
+        if ($ec >= length($$miv)) {                     # 123.23E-4
+            return '0';
+        }
+        return $sign . substr($$miv, 0, length($$miv) - $ec); # 1234.45E-2 = 12
+    }
+    # xE+y
+    if ($ec >= length($$mfv)) {
+        $ec -= length($$mfv);
+        return $sign.$$miv.$$mfv if $ec == 0;           # 123.45E+2 => 12345
+        return $sign.$$miv.$$mfv.'E'.$ec;               # 123.45e+3 => 12345e1
+    }
+    $mfv = substr($$mfv, 0, $ec);
+    $sign.$$miv.$mfv;                                   # 123.45e+1 => 1234
+}
+
+sub unimport {
+    $^H{bigint} = undef;                                # no longer in effect
+    overload::remove_constant('binary', '', 'float', '', 'integer');
+}
+
+sub in_effect {
+    my $level = shift || 0;
+    my $hinthash = (caller($level))[10];
+    $hinthash->{bigint};
+}
+
+#############################################################################
+# the following two routines are for "use bigint qw/hex oct/;":
+
+use constant LEXICAL => $] > 5.009004;
+
+# Internal function with the same semantics as CORE::hex(). This function is
+# not used directly, but rather by other front-end functions.
+
+sub _hex_core {
+    my $str = shift;
+
+    # Strip off, clean, and parse as much as we can from the beginning.
+
+    my $x;
+    if ($str =~ s/ ^ (0?[xX])? ( [0-9a-fA-F]* ( _ [0-9a-fA-F]+ )* ) //x) {
+        my $chrs = $2;
+        $chrs =~ tr/_//d;
+        $chrs = '0' unless CORE::length $chrs;
+        $x = Math::BigInt -> from_hex($chrs);
+    } else {
+        $x = Math::BigInt -> bzero();
+    }
+
+    # Warn about trailing garbage.
+
+    if (CORE::length($str)) {
+        require Carp;
+        Carp::carp(sprintf("Illegal hexadecimal digit '%s' ignored",
+                           substr($str, 0, 1)));
+    }
+
+    return $x;
+}
+
+# Internal function with the same semantics as CORE::oct(). This function is
+# not used directly, but rather by other front-end functions.
+
+sub _oct_core {
+    my $str = shift;
+
+    $str =~ s/^\s*//;
+
+    # Hexadecimal input.
+
+    return _hex_core($str) if $str =~ /^0?[xX]/;
+
+    my $x;
+
+    # Binary input.
+
+    if ($str =~ /^0?[bB]/) {
+
+        # Strip off, clean, and parse as much as we can from the beginning.
+
+        if ($str =~ s/ ^ (0?[bB])? ( [01]* ( _ [01]+ )* ) //x) {
+            my $chrs = $2;
+            $chrs =~ tr/_//d;
+            $chrs = '0' unless CORE::length $chrs;
+            $x = Math::BigInt -> from_bin($chrs);
+        }
+
+        # Warn about trailing garbage.
+
+        if (CORE::length($str)) {
+            require Carp;
+            Carp::carp(sprintf("Illegal binary digit '%s' ignored",
+                               substr($str, 0, 1)));
+        }
+
+        return $x;
+    }
+
+    # Octal input. Strip off, clean, and parse as much as we can from the
+    # beginning.
+
+    if ($str =~ s/ ^ ( [0-7]* ( _ [0-7]+ )* ) //x) {
+        my $chrs = $1;
+        $chrs =~ tr/_//d;
+        $chrs = '0' unless CORE::length $chrs;
+        $x = Math::BigInt -> from_oct($chrs);
+    }
+
+    # Warn about trailing garbage. CORE::oct() only warns about 8 and 9.
+
+    if (CORE::length($str)) {
+        my $chr = substr($str, 0, 1);
+        if ($chr eq '8' || $chr eq '9') {
+            require Carp;
+            Carp::carp(sprintf("Illegal octal digit '%s' ignored", $chr));
+        }
+    }
+
+    return $x;
+}
+
+{
+    my $proto = LEXICAL ? '_' : ';$';
+    eval '
+sub hex(' . $proto . ') {' . <<'.';
+    my $str = @_ ? $_[0] : $_;
+    _hex_core($str);
+}
+.
+
+    eval '
+sub oct(' . $proto . ') {' . <<'.';
+    my $str = @_ ? $_[0] : $_;
+    _oct_core($str);
+}
+.
+}
+
+#############################################################################
+# the following two routines are for Perl 5.9.4 or later and are lexical
+
+my ($prev_oct, $prev_hex, $overridden);
+
+if (LEXICAL) { eval <<'.' }
+sub _hex(_) {
+    my $hh = (caller 0)[10];
+    return $prev_hex ? &$prev_hex($_[0]) : CORE::hex($_[0])
+      unless $$hh{bigint}||$$hh{bignum}||$$hh{bigrat};
+    _hex_core($_[0]);
+}
+
+sub _oct(_) {
+    my $hh = (caller 0)[10];
+    return $prev_oct ? &$prev_oct($_[0]) : CORE::oct($_[0])
+      unless $$hh{bigint}||$$hh{bignum}||$$hh{bigrat};
+    _oct_core($_[0]);
+}
+.
+
+sub _override {
+    return if $overridden;
+    $prev_oct = *CORE::GLOBAL::oct{CODE};
+    $prev_hex = *CORE::GLOBAL::hex{CODE};
+    no warnings 'redefine';
+    *CORE::GLOBAL::oct = \&_oct;
+    *CORE::GLOBAL::hex = \&_hex;
+    $overridden++;
+}
+
+sub import {
+    my $self = shift;
+
+    $^H{bigint} = 1;                            # we are in effect
+
+    # for newer Perls always override hex() and oct() with a lexical version:
+    if (LEXICAL) {
+        _override();
+    }
+    # some defaults
+    my $lib = '';
+    my $lib_kind = 'try';
+
+    my @import = (':constant');                 # drive it w/ constant
+    my @a = @_;
+    my $l = scalar @_;
+    my $j = 0;
+    my ($ver, $trace);                          # version? trace?
+    my ($a, $p);                                # accuracy, precision
+    for (my $i = 0; $i < $l; $i++, $j++) {
+        if ($_[$i] =~ /^(l|lib|try|only)$/) {
+            # this causes a different low lib to take care...
+            $lib_kind = $1;
+            $lib_kind = 'lib' if $lib_kind eq 'l';
+            $lib = $_[$i + 1] || '';
+            my $s = 2;
+            $s = 1 if @a - $j < 2;  # avoid "can not modify non-existent..."
+            splice @a, $j, $s;
+            $j -= $s;
+            $i++;
+        } elsif ($_[$i] =~ /^(a|accuracy)$/) {
+            $a = $_[$i + 1];
+            my $s = 2;
+            $s = 1 if @a - $j < 2;  # avoid "can not modify non-existent..."
+            splice @a, $j, $s;
+            $j -= $s;
+            $i++;
+        } elsif ($_[$i] =~ /^(p|precision)$/) {
+            $p = $_[$i + 1];
+            my $s = 2;
+            $s = 1 if @a - $j < 2;  # avoid "can not modify non-existent..."
+            splice @a, $j, $s;
+            $j -= $s;
+            $i++;
+        } elsif ($_[$i] =~ /^(v|version)$/) {
+            $ver = 1;
+            splice @a, $j, 1;
+            $j--;
+        } elsif ($_[$i] =~ /^(t|trace)$/) {
+            $trace = 1;
+            splice @a, $j, 1;
+            $j--;
+        } elsif ($_[$i] !~ /^(PI|e|bpi|bexp|hex|oct)\z/) {
+            die ("unknown option $_[$i]");
+        }
+    }
+    my $class;
+    $_lite = 0;                                 # using M::BI::L ?
+    if ($trace) {
+        require Math::BigInt::Trace;
+        $class = 'Math::BigInt::Trace';
+    } else {
+        # see if we can find Math::BigInt::Lite
+        if (!defined $a && !defined $p) {       # rounding won't work to well
+            local @INC = @INC;
+            pop @INC if $INC[-1] eq '.';
+            if (eval { require Math::BigInt::Lite; 1 }) {
+                @import = ();                   # :constant in Lite, not MBI
+                Math::BigInt::Lite->import(':constant');
+                $_lite = 1;                     # signal okay
+            }
+        }
+        require Math::BigInt if $_lite == 0;    # not already loaded?
+        $class = 'Math::BigInt';                # regardless of MBIL or not
+    }
+    push @import, $lib_kind => $lib if $lib ne '';
+    # Math::BigInt::Trace or plain Math::BigInt
+    $class->import(@import);
+
+    bigint->accuracy($a)  if defined $a;
+    bigint->precision($p) if defined $p;
+    if ($ver) {
+        print "bigint\t\t\t v$VERSION\n";
+        print "Math::BigInt::Lite\t v$Math::BigInt::Lite::VERSION\n" if $_lite;
+        print "Math::BigInt\t\t v$Math::BigInt::VERSION";
+        my $config = Math::BigInt->config();
+        print " lib => $config->{lib} v$config->{lib_version}\n";
+        exit;
+    }
+    # we take care of floating point constants, since BigFloat isn't available
+    # and BigInt doesn't like them:
+    overload::constant float =>
+        sub {
+            Math::BigInt->new(_float_constant(shift));
+        };
+    # Take care of octal/hexadecimal constants
+    overload::constant binary =>
+        sub {
+            _binary_constant(shift);
+        };
+
+    # if another big* was already loaded:
+    my ($package) = caller();
+
+    no strict 'refs';
+    if (!defined *{"${package}::inf"}) {
+        $self->export_to_level(1, $self, @a);   # export inf and NaN, e and PI
+    }
+}
+
+sub inf () { Math::BigInt::binf(); }
+sub NaN () { Math::BigInt::bnan(); }
+
+sub PI () { Math::BigInt->new(3); }
+sub e () { Math::BigInt->new(2); }
+sub bpi ($) { Math::BigInt->new(3); }
+sub bexp ($$) {
+    my $x = Math::BigInt->new($_[0]);
+    $x->bexp($_[1]);
+}
+
+1;
+
+__END__
+
+=pod
+
+=head1 NAME
+
+bigint - Transparent BigInteger support for Perl
+
+=head1 SYNOPSIS
+
+  use bigint;
+
+  $x = 2 + 4.5,"\n";                    # BigInt 6
+  print 2 ** 512,"\n";                  # really is what you think it is
+  print inf + 42,"\n";                  # inf
+  print NaN * 7,"\n";                   # NaN
+  print hex("0x1234567890123490"),"\n"; # Perl v5.10.0 or later
+
+  {
+    no bigint;
+    print 2 ** 256,"\n";                # a normal Perl scalar now
+  }
+
+  # Import into current package:
+  use bigint qw/hex oct/;
+  print hex("0x1234567890123490"),"\n";
+  print oct("01234567890123490"),"\n";
+
+=head1 DESCRIPTION
+
+All operators (including basic math operations) except the range operator C<..>
+are overloaded. Integer constants are created as proper BigInts.
+
+Floating point constants are truncated to integer. All parts and results of
+expressions are also truncated.
+
+Unlike L<integer>, this pragma creates integer constants that are only
+limited in their size by the available memory and CPU time.
+
+=head2 use integer vs. use bigint
+
+There is one small difference between C<use integer> and C<use bigint>: the
+former will not affect assignments to variables and the return value of
+some functions. C<bigint> truncates these results to integer too:
+
+        # perl -Minteger -wle 'print 3.2'
+        3.2
+        # perl -Minteger -wle 'print 3.2 + 0'
+        3
+        # perl -Mbigint -wle 'print 3.2'
+        3
+        # perl -Mbigint -wle 'print 3.2 + 0'
+        3
+
+        # perl -Mbigint -wle 'print exp(1) + 0'
+        2
+        # perl -Mbigint -wle 'print exp(1)'
+        2
+        # perl -Minteger -wle 'print exp(1)'
+        2.71828182845905
+        # perl -Minteger -wle 'print exp(1) + 0'
+        2
+
+In practice this makes seldom a difference as B<parts and results> of
+expressions will be truncated anyway, but this can, for instance, affect the
+return value of subroutines:
+
+    sub three_integer { use integer; return 3.2; }
+    sub three_bigint { use bigint; return 3.2; }
+
+    print three_integer(), " ", three_bigint(),"\n";    # prints "3.2 3"
+
+=head2 Options
+
+bigint recognizes some options that can be passed while loading it via use.
+The options can (currently) be either a single letter form, or the long form.
+The following options exist:
+
+=over 2
+
+=item a or accuracy
+
+This sets the accuracy for all math operations. The argument must be greater
+than or equal to zero. See Math::BigInt's bround() function for details.
+
+        perl -Mbigint=a,2 -le 'print 12345+1'
+
+Note that setting precision and accuracy at the same time is not possible.
+
+=item p or precision
+
+This sets the precision for all math operations. The argument can be any
+integer. Negative values mean a fixed number of digits after the dot, and
+are <B>ignored</B> since all operations happen in integer space.
+A positive value rounds to this digit left from the dot. 0 or 1 mean round to
+integer and are ignore like negative values.
+
+See Math::BigInt's bfround() function for details.
+
+        perl -Mbignum=p,5 -le 'print 123456789+123'
+
+Note that setting precision and accuracy at the same time is not possible.
+
+=item t or trace
+
+This enables a trace mode and is primarily for debugging bigint or
+Math::BigInt.
+
+=item hex
+
+Override the built-in hex() method with a version that can handle big
+integers. This overrides it by exporting it to the current package. Under
+Perl v5.10.0 and higher, this is not so necessary, as hex() is lexically
+overridden in the current scope whenever the bigint pragma is active.
+
+=item oct
+
+Override the built-in oct() method with a version that can handle big
+integers. This overrides it by exporting it to the current package. Under
+Perl v5.10.0 and higher, this is not so necessary, as oct() is lexically
+overridden in the current scope whenever the bigint pragma is active.
+
+=item l, lib, try or only
+
+Load a different math lib, see L<Math Library>.
+
+        perl -Mbigint=lib,GMP -e 'print 2 ** 512'
+        perl -Mbigint=try,GMP -e 'print 2 ** 512'
+        perl -Mbigint=only,GMP -e 'print 2 ** 512'
+
+Currently there is no way to specify more than one library on the command
+line. This means the following does not work:
+
+        perl -Mbignum=l,GMP,Pari -e 'print 2 ** 512'
+
+This will be hopefully fixed soon ;)
+
+=item v or version
+
+This prints out the name and version of all modules used and then exits.
+
+        perl -Mbigint=v
+
+=back
+
+=head2 Math Library
+
+Math with the numbers is done (by default) by a module called
+Math::BigInt::Calc. This is equivalent to saying:
+
+        use bigint lib => 'Calc';
+
+You can change this by using:
+
+        use bignum lib => 'GMP';
+
+The following would first try to find Math::BigInt::Foo, then
+Math::BigInt::Bar, and when this also fails, revert to Math::BigInt::Calc:
+
+        use bigint lib => 'Foo,Math::BigInt::Bar';
+
+Using C<lib> warns if none of the specified libraries can be found and
+L<Math::BigInt> did fall back to one of the default libraries.
+To suppress this warning, use C<try> instead:
+
+        use bignum try => 'GMP';
+
+If you want the code to die instead of falling back, use C<only> instead:
+
+        use bignum only => 'GMP';
+
+Please see respective module documentation for further details.
+
+=head2 Internal Format
+
+The numbers are stored as objects, and their internals might change at anytime,
+especially between math operations. The objects also might belong to different
+classes, like Math::BigInt, or Math::BigInt::Lite. Mixing them together, even
+with normal scalars is not extraordinary, but normal and expected.
+
+You should not depend on the internal format, all accesses must go through
+accessor methods. E.g. looking at $x->{sign} is not a good idea since there
+is no guaranty that the object in question has such a hash key, nor is a hash
+underneath at all.
+
+=head2 Sign
+
+The sign is either '+', '-', 'NaN', '+inf' or '-inf'.
+You can access it with the sign() method.
+
+A sign of 'NaN' is used to represent the result when input arguments are not
+numbers or as a result of 0/0. '+inf' and '-inf' represent plus respectively
+minus infinity. You will get '+inf' when dividing a positive number by 0, and
+'-inf' when dividing any negative number by 0.
+
+=head2 Method calls
+
+Since all numbers are now objects, you can use all functions that are part of
+the BigInt API. You can only use the bxxx() notation, and not the fxxx()
+notation, though.
+
+But a warning is in order. When using the following to make a copy of a number,
+only a shallow copy will be made.
+
+        $x = 9; $y = $x;
+        $x = $y = 7;
+
+Using the copy or the original with overloaded math is okay, e.g. the
+following work:
+
+        $x = 9; $y = $x;
+        print $x + 1, " ", $y,"\n";     # prints 10 9
+
+but calling any method that modifies the number directly will result in
+B<both> the original and the copy being destroyed:
+
+        $x = 9; $y = $x;
+        print $x->badd(1), " ", $y,"\n";        # prints 10 10
+
+        $x = 9; $y = $x;
+        print $x->binc(1), " ", $y,"\n";        # prints 10 10
+
+        $x = 9; $y = $x;
+        print $x->bmul(2), " ", $y,"\n";        # prints 18 18
+
+Using methods that do not modify, but test that the contents works:
+
+        $x = 9; $y = $x;
+        $z = 9 if $x->is_zero();                # works fine
+
+See the documentation about the copy constructor and C<=> in overload, as
+well as the documentation in BigInt for further details.
+
+=head2 Methods
+
+=over 2
+
+=item inf()
+
+A shortcut to return Math::BigInt->binf(). Useful because Perl does not always
+handle bareword C<inf> properly.
+
+=item NaN()
+
+A shortcut to return Math::BigInt->bnan(). Useful because Perl does not always
+handle bareword C<NaN> properly.
+
+=item e
+
+        # perl -Mbigint=e -wle 'print e'
+
+Returns Euler's number C<e>, aka exp(1). Note that under bigint, this is
+truncated to an integer, and hence simple '2'.
+
+=item PI
+
+        # perl -Mbigint=PI -wle 'print PI'
+
+Returns PI. Note that under bigint, this is truncated to an integer, and hence
+simple '3'.
+
+=item bexp()
+
+        bexp($power,$accuracy);
+
+Returns Euler's number C<e> raised to the appropriate power, to
+the wanted accuracy.
+
+Note that under bigint, the result is truncated to an integer.
+
+Example:
+
+        # perl -Mbigint=bexp -wle 'print bexp(1,80)'
+
+=item bpi()
+
+        bpi($accuracy);
+
+Returns PI to the wanted accuracy. Note that under bigint, this is truncated
+to an integer, and hence simple '3'.
+
+Example:
+
+        # perl -Mbigint=bpi -wle 'print bpi(80)'
+
+=item upgrade()
+
+Return the class that numbers are upgraded to, is in fact returning
+C<$Math::BigInt::upgrade>.
+
+=item in_effect()
+
+        use bigint;
+
+        print "in effect\n" if bigint::in_effect;       # true
+        {
+          no bigint;
+          print "in effect\n" if bigint::in_effect;     # false
+        }
+
+Returns true or false if C<bigint> is in effect in the current scope.
+
+This method only works on Perl v5.9.4 or later.
+
+=back
+
+=head1 CAVEATS
+
+=over 2
+
+=item Operator vs literal overloading
+
+C<bigint> works by overloading handling of integer and floating point
+literals, converting them to L<Math::BigInt> objects.
+
+This means that arithmetic involving only string values or string
+literals will be performed using Perl's built-in operators.
+
+For example:
+
+    use bignum;
+    my $x = "900000000000000009";
+    my $y = "900000000000000007";
+    print $x - $y;
+
+will output C<0> on default 32-bit builds, since C<bigint> never sees
+the string literals.  To ensure the expression is all treated as
+C<Math::BigInt> objects, use a literal number in the expression:
+
+    print +(0+$x) - $y;
+
+=item ranges
+
+Perl does not allow overloading of ranges, so you can neither safely use
+ranges with bigint endpoints, nor is the iterator variable a bigint.
+
+        use 5.010;
+        for my $i (12..13) {
+          for my $j (20..21) {
+            say $i ** $j;  # produces a floating-point number,
+                           # not a big integer
+          }
+        }
+
+=item in_effect()
+
+This method only works on Perl v5.9.4 or later.
+
+=item hex()/oct()
+
+C<bigint> overrides these routines with versions that can also handle
+big integer values. Under Perl prior to version v5.9.4, however, this
+will not happen unless you specifically ask for it with the two
+import tags "hex" and "oct" - and then it will be global and cannot be
+disabled inside a scope with "no bigint":
+
+        use bigint qw/hex oct/;
+
+        print hex("0x1234567890123456");
+        {
+                no bigint;
+                print hex("0x1234567890123456");
+        }
+
+The second call to hex() will warn about a non-portable constant.
+
+Compare this to:
+
+        use bigint;
+
+        # will warn only under Perl older than v5.9.4
+        print hex("0x1234567890123456");
+
+=back
+
+=head1 MODULES USED
+
+C<bigint> is just a thin wrapper around various modules of the Math::BigInt
+family. Think of it as the head of the family, who runs the shop, and orders
+the others to do the work.
+
+The following modules are currently used by bigint:
+
+        Math::BigInt::Lite      (for speed, and only if it is loadable)
+        Math::BigInt
+
+=head1 EXAMPLES
+
+Some cool command line examples to impress the Python crowd ;) You might want
+to compare them to the results under -Mbignum or -Mbigrat:
+
+        perl -Mbigint -le 'print sqrt(33)'
+        perl -Mbigint -le 'print 2*255'
+        perl -Mbigint -le 'print 4.5+2*255'
+        perl -Mbigint -le 'print 3/7 + 5/7 + 8/3'
+        perl -Mbigint -le 'print 123->is_odd()'
+        perl -Mbigint -le 'print log(2)'
+        perl -Mbigint -le 'print 2 ** 0.5'
+        perl -Mbigint=a,65 -le 'print 2 ** 0.2'
+        perl -Mbignum=a,65,l,GMP -le 'print 7 ** 7777'
+
+=head1 LICENSE
+
+This program is free software; you may redistribute it and/or modify it under
+the same terms as Perl itself.
+
+=head1 SEE ALSO
+
+Especially L<bigrat> as in C<perl -Mbigrat -le 'print 1/3+1/4'> and
+L<bignum> as in C<perl -Mbignum -le 'print sqrt(2)'>.
+
+L<Math::BigInt>, L<Math::BigRat> and L<Math::Big> as well
+as L<Math::BigInt::Pari> and  L<Math::BigInt::GMP>.
+
+=head1 AUTHORS
+
+(C) by Tels L<http://bloodgate.com/> in early 2002 - 2007.
+
+=cut
diff --git a/lib/5.24.1/bignum.pm b/lib/5.24.1/bignum.pm
new file mode 100644
index 00000000..394b1473
--- /dev/null
+++ b/lib/5.24.1/bignum.pm
@@ -0,0 +1,681 @@
+package bignum;
+
+use 5.006;
+use strict;
+use warnings;
+
+our $VERSION = '0.42_01';
+
+use Exporter;
+our @ISA            = qw( bigint );
+our @EXPORT_OK      = qw( PI e bpi bexp hex oct );
+our @EXPORT         = qw( inf NaN );
+
+use overload;
+use bigint ();
+
+##############################################################################
+
+BEGIN {
+    *inf = \&bigint::inf;
+    *NaN = \&bigint::NaN;
+    *hex = \&bigint::hex;
+    *oct = \&bigint::oct;
+}
+
+# These are all alike, and thus faked by AUTOLOAD
+
+my @faked = qw/round_mode accuracy precision div_scale/;
+our ($AUTOLOAD, $_lite);        # _lite for testsuite
+
+sub AUTOLOAD {
+    my $name = $AUTOLOAD;
+
+    $name =~ s/.*:://;          # split package
+    no strict 'refs';
+    foreach my $n (@faked) {
+        if ($n eq $name) {
+            *{"bignum::$name"} =
+              sub {
+                  my $self = shift;
+                  no strict 'refs';
+                  if (defined $_[0]) {
+                      Math::BigInt->$name($_[0]);
+                      return Math::BigFloat->$name($_[0]);
+                  }
+                  return Math::BigInt->$name();
+              };
+            return &$name;
+        }
+    }
+
+    # delayed load of Carp and avoid recursion
+    require Carp;
+    Carp::croak ("Can't call bignum\-\>$name, not a valid method");
+}
+
+sub unimport {
+    $^H{bignum} = undef;                                # no longer in effect
+    overload::remove_constant('binary', '', 'float', '', 'integer');
+}
+
+sub in_effect {
+    my $level = shift || 0;
+    my $hinthash = (caller($level))[10];
+    $hinthash->{bignum};
+}
+
+#############################################################################
+
+sub import {
+    my $self = shift;
+
+    $^H{bignum} = 1;                                    # we are in effect
+
+    # for newer Perls override hex() and oct() with a lexical version:
+    if ($] > 5.009004) {
+        bigint::_override();
+    }
+
+    # some defaults
+    my $lib       = '';
+    my $lib_kind  = 'try';
+    my $upgrade   = 'Math::BigFloat';
+    my $downgrade = 'Math::BigInt';
+
+    my @import = (':constant');                 # drive it w/ constant
+    my @a = @_;
+    my $l = scalar @_;
+    my $j = 0;
+    my ($ver, $trace);                          # version? trace?
+    my ($a, $p);                                # accuracy, precision
+    for (my $i = 0; $i < $l; $i++, $j++) {
+        if ($_[$i] eq 'upgrade') {
+            # this causes upgrading
+            $upgrade = $_[$i + 1];              # or undef to disable
+            my $s = 2;
+            $s = 1 if @a - $j < 2;  # avoid "can not modify non-existent..."
+            splice @a, $j, $s;
+            $j -= $s;
+            $i++;
+        } elsif ($_[$i] eq 'downgrade') {
+            # this causes downgrading
+            $downgrade = $_[$i + 1];            # or undef to disable
+            my $s = 2;
+            $s = 1 if @a - $j < 2;  # avoid "can not modify non-existent..."
+            splice @a, $j, $s;
+            $j -= $s;
+            $i++;
+        } elsif ($_[$i] =~ /^(l|lib|try|only)$/) {
+            # this causes a different low lib to take care...
+            $lib_kind = $1;
+            $lib_kind = 'lib' if $lib_kind eq 'l';
+            $lib = $_[$i + 1] || '';
+            my $s = 2;
+            $s = 1 if @a - $j < 2;  # avoid "can not modify non-existent..."
+            splice @a, $j, $s;
+            $j -= $s;
+            $i++;
+        }
+        elsif ($_[$i] =~ /^(a|accuracy)$/) {
+            $a = $_[$i + 1];
+            my $s = 2;
+            $s = 1 if @a - $j < 2;  # avoid "can not modify non-existent..."
+            splice @a, $j, $s;
+            $j -= $s;
+            $i++;
+        }
+        elsif ($_[$i] =~ /^(p|precision)$/) {
+            $p = $_[$i + 1];
+            my $s = 2;
+            $s = 1 if @a - $j < 2;  # avoid "can not modify non-existent..."
+            splice @a, $j, $s;
+            $j -= $s;
+            $i++;
+        }
+        elsif ($_[$i] =~ /^(v|version)$/) {
+            $ver = 1;
+            splice @a, $j, 1;
+            $j--;
+        }
+        elsif ($_[$i] =~ /^(t|trace)$/) {
+            $trace = 1;
+            splice @a, $j, 1;
+            $j--;
+        }
+        elsif ($_[$i] !~ /^(PI|e|bexp|bpi|hex|oct)\z/) {
+            die ("unknown option $_[$i]");
+        }
+    }
+    my $class;
+    $_lite = 0;                                 # using M::BI::L ?
+    if ($trace) {
+        require Math::BigInt::Trace;
+        $class   = 'Math::BigInt::Trace';
+        $upgrade = 'Math::BigFloat::Trace';
+    }
+    else {
+        # see if we can find Math::BigInt::Lite
+        if (!defined $a && !defined $p) {       # rounding won't work to well
+            local @INC = @INC;
+            pop @INC if $INC[-1] eq '.';
+            if (eval { require Math::BigInt::Lite; 1 }) {
+                @import = ();                   # :constant in Lite, not MBI
+                Math::BigInt::Lite->import(':constant');
+                $_lite = 1;                     # signal okay
+            }
+        }
+        require Math::BigInt if $_lite == 0;    # not already loaded?
+        $class = 'Math::BigInt';                # regardless of MBIL or not
+    }
+    push @import, $lib_kind => $lib if $lib ne '';
+    # Math::BigInt::Trace or plain Math::BigInt
+    $class->import(@import, upgrade => $upgrade);
+
+    if ($trace) {
+        require Math::BigFloat::Trace;
+        $class     = 'Math::BigFloat::Trace';
+        $downgrade = 'Math::BigInt::Trace';
+    }
+    else {
+        require Math::BigFloat;
+        $class = 'Math::BigFloat';
+    }
+    $class->import(':constant', 'downgrade', $downgrade);
+
+    bignum->accuracy($a)  if defined $a;
+    bignum->precision($p) if defined $p;
+    if ($ver) {
+        print "bignum\t\t\t v$VERSION\n";
+        print "Math::BigInt::Lite\t v$Math::BigInt::Lite::VERSION\n" if $_lite;
+        print "Math::BigInt\t\t v$Math::BigInt::VERSION";
+        my $config = Math::BigInt->config();
+        print " lib => $config->{lib} v$config->{lib_version}\n";
+        print "Math::BigFloat\t\t v$Math::BigFloat::VERSION\n";
+        exit;
+    }
+
+    # Take care of octal/hexadecimal constants
+    overload::constant binary =>
+        sub {
+            bigint::_binary_constant(shift);
+        };
+
+    # if another big* was already loaded:
+    my ($package) = caller();
+
+    no strict 'refs';
+    if (!defined *{"${package}::inf"}) {
+        $self->export_to_level(1, $self, @a);   # export inf and NaN
+    }
+}
+
+sub PI () { Math::BigFloat->new('3.141592653589793238462643383279502884197'); }
+sub e () { Math::BigFloat->new('2.718281828459045235360287471352662497757'); }
+sub bpi ($) { Math::BigFloat->bpi(@_); }
+sub bexp ($$) {
+    my $x = Math::BigFloat->new($_[0]);
+    $x->bexp($_[1]);
+}
+
+1;
+
+__END__
+
+=pod
+
+=head1 NAME
+
+bignum - Transparent BigNumber support for Perl
+
+=head1 SYNOPSIS
+
+  use bignum;
+
+  $x = 2 + 4.5,"\n";                    # BigFloat 6.5
+  print 2 ** 512 * 0.1,"\n";            # really is what you think it is
+  print inf * inf,"\n";                 # prints inf
+  print NaN * 3,"\n";                   # prints NaN
+
+  {
+    no bignum;
+    print 2 ** 256,"\n";                # a normal Perl scalar now
+  }
+
+  # for older Perls, import into current package:
+  use bignum qw/hex oct/;
+  print hex("0x1234567890123490"),"\n";
+  print oct("01234567890123490"),"\n";
+
+=head1 DESCRIPTION
+
+All operators (including basic math operations) are overloaded. Integer and
+floating-point constants are created as proper BigInts or BigFloats,
+respectively.
+
+If you do
+
+        use bignum;
+
+at the top of your script, Math::BigFloat and Math::BigInt will be loaded
+and any constant number will be converted to an object (Math::BigFloat for
+floats like 3.1415 and Math::BigInt for integers like 1234).
+
+So, the following line:
+
+        $x = 1234;
+
+creates actually a Math::BigInt and stores a reference to in $x.
+This happens transparently and behind your back, so to speak.
+
+You can see this with the following:
+
+        perl -Mbignum -le 'print ref(1234)'
+
+Don't worry if it says Math::BigInt::Lite, bignum and friends will use Lite
+if it is installed since it is faster for some operations. It will be
+automatically upgraded to BigInt whenever necessary:
+
+        perl -Mbignum -le 'print ref(2**255)'
+
+This also means it is a bad idea to check for some specific package, since
+the actual contents of $x might be something unexpected. Due to the
+transparent way of bignum C<ref()> should not be necessary, anyway.
+
+Since Math::BigInt and BigFloat also overload the normal math operations,
+the following line will still work:
+
+        perl -Mbignum -le 'print ref(1234+1234)'
+
+Since numbers are actually objects, you can call all the usual methods from
+BigInt/BigFloat on them. This even works to some extent on expressions:
+
+        perl -Mbignum -le '$x = 1234; print $x->bdec()'
+        perl -Mbignum -le 'print 1234->copy()->binc();'
+        perl -Mbignum -le 'print 1234->copy()->binc->badd(6);'
+        perl -Mbignum -le 'print +(1234)->copy()->binc()'
+
+(Note that print doesn't do what you expect if the expression starts with
+'(' hence the C<+>)
+
+You can even chain the operations together as usual:
+
+        perl -Mbignum -le 'print 1234->copy()->binc->badd(6);'
+        1241
+
+Under bignum (or bigint or bigrat), Perl will "upgrade" the numbers
+appropriately. This means that:
+
+        perl -Mbignum -le 'print 1234+4.5'
+        1238.5
+
+will work correctly. These mixed cases don't do always work when using
+Math::BigInt or Math::BigFloat alone, or at least not in the way normal Perl
+scalars work.
+
+If you do want to work with large integers like under C<use integer;>, try
+C<use bigint;>:
+
+        perl -Mbigint -le 'print 1234.5+4.5'
+        1238
+
+There is also C<use bigrat;> which gives you big rationals:
+
+        perl -Mbigrat -le 'print 1234+4.1'
+        12381/10
+
+The entire upgrading/downgrading is still experimental and might not work
+as you expect or may even have bugs. You might get errors like this:
+
+        Can't use an undefined value as an ARRAY reference at
+        /usr/local/lib/perl5/5.8.0/Math/BigInt/Calc.pm line 864
+
+This means somewhere a routine got a BigFloat/Lite but expected a BigInt (or
+vice versa) and the upgrade/downgrad path was missing. This is a bug, please
+report it so that we can fix it.
+
+You might consider using just Math::BigInt or Math::BigFloat, since they
+allow you finer control over what get's done in which module/space. For
+instance, simple loop counters will be Math::BigInts under C<use bignum;> and
+this is slower than keeping them as Perl scalars:
+
+    perl -Mbignum -le 'for ($i = 0; $i < 10; $i++) { print ref($i); }'
+
+Please note the following does not work as expected (prints nothing), since
+overloading of '..' is not yet possible in Perl (as of v5.8.0):
+
+    perl -Mbignum -le 'for (1..2) { print ref($_); }'
+
+=head2 Options
+
+bignum recognizes some options that can be passed while loading it via use.
+The options can (currently) be either a single letter form, or the long form.
+The following options exist:
+
+=over 2
+
+=item a or accuracy
+
+This sets the accuracy for all math operations. The argument must be greater
+than or equal to zero. See Math::BigInt's bround() function for details.
+
+        perl -Mbignum=a,50 -le 'print sqrt(20)'
+
+Note that setting precision and accuracy at the same time is not possible.
+
+=item p or precision
+
+This sets the precision for all math operations. The argument can be any
+integer. Negative values mean a fixed number of digits after the dot, while
+a positive value rounds to this digit left from the dot. 0 or 1 mean round to
+integer. See Math::BigInt's bfround() function for details.
+
+        perl -Mbignum=p,-50 -le 'print sqrt(20)'
+
+Note that setting precision and accuracy at the same time is not possible.
+
+=item t or trace
+
+This enables a trace mode and is primarily for debugging bignum or
+Math::BigInt/Math::BigFloat.
+
+=item l or lib
+
+Load a different math lib, see L<Math Library>.
+
+        perl -Mbignum=l,GMP -e 'print 2 ** 512'
+
+Currently there is no way to specify more than one library on the command
+line. This means the following does not work:
+
+        perl -Mbignum=l,GMP,Pari -e 'print 2 ** 512'
+
+This will be hopefully fixed soon ;)
+
+=item hex
+
+Override the built-in hex() method with a version that can handle big
+numbers. This overrides it by exporting it to the current package. Under
+Perl v5.10.0 and higher, this is not so necessary, as hex() is lexically
+overridden in the current scope whenever the bignum pragma is active.
+
+=item oct
+
+Override the built-in oct() method with a version that can handle big
+numbers. This overrides it by exporting it to the current package. Under
+Perl v5.10.0 and higher, this is not so necessary, as oct() is lexically
+overridden in the current scope whenever the bigint pragma is active.
+
+=item v or version
+
+This prints out the name and version of all modules used and then exits.
+
+        perl -Mbignum=v
+
+=back
+
+=head2 Methods
+
+Beside import() and AUTOLOAD() there are only a few other methods.
+
+Since all numbers are now objects, you can use all functions that are part of
+the BigInt or BigFloat API. It is wise to use only the bxxx() notation, and not
+the fxxx() notation, though. This makes it possible that the underlying object
+might morph into a different class than BigFloat.
+
+=head2 Caveats
+
+But a warning is in order. When using the following to make a copy of a number,
+only a shallow copy will be made.
+
+        $x = 9; $y = $x;
+        $x = $y = 7;
+
+If you want to make a real copy, use the following:
+
+        $y = $x->copy();
+
+Using the copy or the original with overloaded math is okay, e.g. the
+following work:
+
+        $x = 9; $y = $x;
+        print $x + 1, " ", $y,"\n";     # prints 10 9
+
+but calling any method that modifies the number directly will result in
+B<both> the original and the copy being destroyed:
+
+        $x = 9; $y = $x;
+        print $x->badd(1), " ", $y,"\n";        # prints 10 10
+
+        $x = 9; $y = $x;
+        print $x->binc(1), " ", $y,"\n";        # prints 10 10
+
+        $x = 9; $y = $x;
+        print $x->bmul(2), " ", $y,"\n";        # prints 18 18
+
+Using methods that do not modify, but test the contents works:
+
+        $x = 9; $y = $x;
+        $z = 9 if $x->is_zero();                # works fine
+
+See the documentation about the copy constructor and C<=> in overload, as
+well as the documentation in BigInt for further details.
+
+=over 2
+
+=item inf()
+
+A shortcut to return Math::BigInt->binf(). Useful because Perl does not always
+handle bareword C<inf> properly.
+
+=item NaN()
+
+A shortcut to return Math::BigInt->bnan(). Useful because Perl does not always
+handle bareword C<NaN> properly.
+
+=item e
+
+        # perl -Mbignum=e -wle 'print e'
+
+Returns Euler's number C<e>, aka exp(1).
+
+=item PI()
+
+        # perl -Mbignum=PI -wle 'print PI'
+
+Returns PI.
+
+=item bexp()
+
+        bexp($power,$accuracy);
+
+Returns Euler's number C<e> raised to the appropriate power, to
+the wanted accuracy.
+
+Example:
+
+        # perl -Mbignum=bexp -wle 'print bexp(1,80)'
+
+=item bpi()
+
+        bpi($accuracy);
+
+Returns PI to the wanted accuracy.
+
+Example:
+
+        # perl -Mbignum=bpi -wle 'print bpi(80)'
+
+=item upgrade()
+
+Return the class that numbers are upgraded to, is in fact returning
+C<$Math::BigInt::upgrade>.
+
+=item in_effect()
+
+        use bignum;
+
+        print "in effect\n" if bignum::in_effect;       # true
+        {
+          no bignum;
+          print "in effect\n" if bignum::in_effect;     # false
+        }
+
+Returns true or false if C<bignum> is in effect in the current scope.
+
+This method only works on Perl v5.9.4 or later.
+
+=back
+
+=head2 Math Library
+
+Math with the numbers is done (by default) by a module called
+Math::BigInt::Calc. This is equivalent to saying:
+
+        use bignum lib => 'Calc';
+
+You can change this by using:
+
+        use bignum lib => 'GMP';
+
+The following would first try to find Math::BigInt::Foo, then
+Math::BigInt::Bar, and when this also fails, revert to Math::BigInt::Calc:
+
+        use bignum lib => 'Foo,Math::BigInt::Bar';
+
+Please see respective module documentation for further details.
+
+Using C<lib> warns if none of the specified libraries can be found and
+L<Math::BigInt> did fall back to one of the default libraries.
+To suppress this warning, use C<try> instead:
+
+        use bignum try => 'GMP';
+
+If you want the code to die instead of falling back, use C<only> instead:
+
+        use bignum only => 'GMP';
+
+=head2 INTERNAL FORMAT
+
+The numbers are stored as objects, and their internals might change at anytime,
+especially between math operations. The objects also might belong to different
+classes, like Math::BigInt, or Math::BigFloat. Mixing them together, even
+with normal scalars is not extraordinary, but normal and expected.
+
+You should not depend on the internal format, all accesses must go through
+accessor methods. E.g. looking at $x->{sign} is not a bright idea since there
+is no guaranty that the object in question has such a hashkey, nor is a hash
+underneath at all.
+
+=head2 SIGN
+
+The sign is either '+', '-', 'NaN', '+inf' or '-inf' and stored separately.
+You can access it with the sign() method.
+
+A sign of 'NaN' is used to represent the result when input arguments are not
+numbers or as a result of 0/0. '+inf' and '-inf' represent plus respectively
+minus infinity. You will get '+inf' when dividing a positive number by 0, and
+'-inf' when dividing any negative number by 0.
+
+=head1 CAVEATS
+
+=over 2
+
+=item Operator vs literal overloading
+
+C<bignum> works by overloading handling of integer and floating point
+literals, converting them to L<Math::BigInt> or L<Math::BigFloat>
+objects.
+
+This means that arithmetic involving only string values or string
+literals will be performed using Perl's built-in operators.
+
+For example:
+
+    use bignum;
+    my $x = "900000000000000009";
+    my $y = "900000000000000007";
+    print $x - $y;
+
+will output C<0> on default 32-bit builds, since C<bigrat> never sees
+the string literals.  To ensure the expression is all treated as
+C<Math::BigInt> or C<BigFloat> objects, use a literal number in the
+expression:
+
+    print +(0+$x) - $y;
+
+=item in_effect()
+
+This method only works on Perl v5.9.4 or later.
+
+=item hex()/oct()
+
+C<bigint> overrides these routines with versions that can also handle
+big integer values. Under Perl prior to version v5.9.4, however, this
+will not happen unless you specifically ask for it with the two
+import tags "hex" and "oct" - and then it will be global and cannot be
+disabled inside a scope with "no bigint":
+
+        use bigint qw/hex oct/;
+
+        print hex("0x1234567890123456");
+        {
+                no bigint;
+                print hex("0x1234567890123456");
+        }
+
+The second call to hex() will warn about a non-portable constant.
+
+Compare this to:
+
+        use bigint;
+
+        # will warn only under older than v5.9.4
+        print hex("0x1234567890123456");
+
+=back
+
+=head1 MODULES USED
+
+C<bignum> is just a thin wrapper around various modules of the Math::BigInt
+family. Think of it as the head of the family, who runs the shop, and orders
+the others to do the work.
+
+The following modules are currently used by bignum:
+
+        Math::BigInt::Lite      (for speed, and only if it is loadable)
+        Math::BigInt
+        Math::BigFloat
+
+=head1 EXAMPLES
+
+Some cool command line examples to impress the Python crowd ;)
+
+        perl -Mbignum -le 'print sqrt(33)'
+        perl -Mbignum -le 'print 2*255'
+        perl -Mbignum -le 'print 4.5+2*255'
+        perl -Mbignum -le 'print 3/7 + 5/7 + 8/3'
+        perl -Mbignum -le 'print 123->is_odd()'
+        perl -Mbignum -le 'print log(2)'
+        perl -Mbignum -le 'print exp(1)'
+        perl -Mbignum -le 'print 2 ** 0.5'
+        perl -Mbignum=a,65 -le 'print 2 ** 0.2'
+        perl -Mbignum=a,65,l,GMP -le 'print 7 ** 7777'
+
+=head1 LICENSE
+
+This program is free software; you may redistribute it and/or modify it under
+the same terms as Perl itself.
+
+=head1 SEE ALSO
+
+Especially L<bigrat> as in C<perl -Mbigrat -le 'print 1/3+1/4'>.
+
+L<Math::BigFloat>, L<Math::BigInt>, L<Math::BigRat> and L<Math::Big> as well
+as L<Math::BigInt::Pari> and  L<Math::BigInt::GMP>.
+
+=head1 AUTHORS
+
+(C) by Tels L<http://bloodgate.com/> in early 2002 - 2007.
+
+=cut
diff --git a/lib/5.24.1/bigrat.pm b/lib/5.24.1/bigrat.pm
new file mode 100644
index 00000000..260973b8
--- /dev/null
+++ b/lib/5.24.1/bigrat.pm
@@ -0,0 +1,567 @@
+package bigrat;
+
+use 5.006;
+use strict;
+use warnings;
+
+our $VERSION = '0.42_01';
+
+use Exporter;
+our @ISA            = qw( bigint );
+our @EXPORT_OK      = qw( PI e bpi bexp hex oct );
+our @EXPORT         = qw( inf NaN );
+
+use overload;
+use bigint ();
+
+##############################################################################
+
+BEGIN {
+    *inf = \&bigint::inf;
+    *NaN = \&bigint::NaN;
+    *hex = \&bigint::hex;
+    *oct = \&bigint::oct;
+}
+
+# These are all alike, and thus faked by AUTOLOAD
+
+my @faked = qw/round_mode accuracy precision div_scale/;
+our ($AUTOLOAD, $_lite);        # _lite for testsuite
+
+sub AUTOLOAD {
+    my $name = $AUTOLOAD;
+
+    $name =~ s/.*:://;          # split package
+    no strict 'refs';
+    foreach my $n (@faked) {
+        if ($n eq $name) {
+            *{"bigrat::$name"} =
+              sub {
+                  my $self = shift;
+                  no strict 'refs';
+                  if (defined $_[0]) {
+                      Math::BigInt->$name($_[0]);
+                      Math::BigFloat->$name($_[0]);
+                      return Math::BigRat->$name($_[0]);
+                  }
+                  return Math::BigInt->$name();
+              };
+            return &$name;
+        }
+    }
+
+    # delayed load of Carp and avoid recursion
+    require Carp;
+    Carp::croak ("Can't call bigrat\-\>$name, not a valid method");
+}
+
+sub unimport {
+    $^H{bigrat} = undef;        # no longer in effect
+    overload::remove_constant('binary', '', 'float', '', 'integer');
+}
+
+sub in_effect {
+    my $level = shift || 0;
+    my $hinthash = (caller($level))[10];
+    $hinthash->{bigrat};
+}
+
+#############################################################################
+
+sub import {
+    my $self = shift;
+
+    # see also bignum->import() for additional comments
+
+    $^H{bigrat} = 1;                            # we are in effect
+
+    # for newer Perls always override hex() and oct() with a lexical version:
+    if ($] > 5.009004) {
+        bigint::_override();
+    }
+    # some defaults
+    my $lib      = '';
+    my $lib_kind = 'try';
+    my $upgrade  = 'Math::BigFloat';
+
+    my @import = (':constant');                 # drive it w/ constant
+    my @a = @_;
+    my $l = scalar @_;
+    my $j = 0;
+    my ($a, $p);
+    my ($ver, $trace);                          # version? trace?
+    for (my $i = 0; $i < $l ; $i++, $j++) {
+        if ($_[$i] eq 'upgrade') {
+            # this causes upgrading
+            $upgrade = $_[$i + 1];              # or undef to disable
+            my $s = 2;
+            $s = 1 if @a - $j < 2;  # avoid "can not modify non-existent..."
+            splice @a, $j, $s;
+            $j -= $s;
+        }
+        elsif ($_[$i] =~ /^(l|lib|try|only)$/) {
+            # this causes a different low lib to take care...
+            $lib_kind = $1;
+            $lib_kind = 'lib' if $lib_kind eq 'l';
+            $lib = $_[$i + 1] || '';
+            my $s = 2;
+            $s = 1 if @a - $j < 2;  # avoid "can not modify non-existent..."
+            splice @a, $j, $s;
+            $j -= $s;
+            $i++;
+        }
+        elsif ($_[$i] =~ /^(a|accuracy)$/) {
+            $a = $_[$i + 1];
+            my $s = 2;
+            $s = 1 if @a - $j < 2;  # avoid "can not modify non-existent..."
+            splice @a, $j, $s;
+            $j -= $s;
+            $i++;
+        }
+        elsif ($_[$i] =~ /^(p|precision)$/) {
+            $p = $_[$i + 1];
+            my $s = 2;
+            $s = 1 if @a - $j < 2;  # avoid "can not modify non-existent..."
+            splice @a, $j, $s;
+            $j -= $s;
+            $i++;
+        }
+        elsif ($_[$i] =~ /^(v|version)$/) {
+            $ver = 1;
+            splice @a, $j, 1;
+            $j--;
+        }
+        elsif ($_[$i] =~ /^(t|trace)$/) {
+            $trace = 1;
+            splice @a, $j, 1;
+            $j--;
+        }
+        elsif ($_[$i] !~ /^(PI|e|bpi|bexp|hex|oct)\z/) {
+            die ("unknown option $_[$i]");
+        }
+    }
+    my $class;
+    $_lite = 0;                                 # using M::BI::L ?
+    if ($trace) {
+        require Math::BigInt::Trace;
+        $class   = 'Math::BigInt::Trace';
+        $upgrade = 'Math::BigFloat::Trace';
+    }
+    else {
+        # see if we can find Math::BigInt::Lite
+        if (!defined $a && !defined $p) {       # rounding won't work to well
+            local @INC = @INC;
+            pop @INC if $INC[-1] eq '.';
+            if (eval { require Math::BigInt::Lite; 1 }) {
+                @import = ();                   # :constant in Lite, not MBI
+                Math::BigInt::Lite->import(':constant');
+                $_lite = 1;                     # signal okay
+            }
+        }
+        require Math::BigInt if $_lite == 0;    # not already loaded?
+        $class = 'Math::BigInt';                # regardless of MBIL or not
+    }
+    push @import, $lib_kind => $lib if $lib ne '';
+    # Math::BigInt::Trace or plain Math::BigInt
+    $class->import(@import, upgrade => $upgrade);
+
+    require Math::BigFloat;
+    Math::BigFloat->import(upgrade => 'Math::BigRat', ':constant');
+    require Math::BigRat;
+    Math::BigRat->import(@import);
+
+    bigrat->accuracy($a)  if defined $a;
+    bigrat->precision($p) if defined $p;
+    if ($ver) {
+        print "bigrat\t\t\t v$VERSION\n";
+        print "Math::BigInt::Lite\t v$Math::BigInt::Lite::VERSION\n" if $_lite;
+        print "Math::BigInt\t\t v$Math::BigInt::VERSION";
+        my $config = Math::BigInt->config();
+        print " lib => $config->{lib} v$config->{lib_version}\n";
+        print "Math::BigFloat\t\t v$Math::BigFloat::VERSION\n";
+        print "Math::BigRat\t\t v$Math::BigRat::VERSION\n";
+        exit;
+    }
+
+    # Take care of octal/hexadecimal constants
+    overload::constant binary =>
+        sub {
+            bigint::_binary_constant(shift);
+          };
+
+    # if another big* was already loaded:
+    my ($package) = caller();
+
+    no strict 'refs';
+    if (!defined *{"${package}::inf"}) {
+        $self->export_to_level(1, $self, @a);   # export inf and NaN
+    }
+}
+
+sub PI () { Math::BigFloat->new('3.141592653589793238462643383279502884197'); }
+sub e  () { Math::BigFloat->new('2.718281828459045235360287471352662497757'); }
+
+sub bpi ($) {
+    local $Math::BigFloat::upgrade;
+    Math::BigFloat->bpi(@_);
+}
+
+sub bexp ($$) {
+    local $Math::BigFloat::upgrade;
+    my $x = Math::BigFloat->new($_[0]);
+    $x->bexp($_[1]);
+}
+
+1;
+
+__END__
+
+=pod
+
+=head1 NAME
+
+bigrat - Transparent BigNumber/BigRational support for Perl
+
+=head1 SYNOPSIS
+
+  use bigrat;
+
+  print 2 + 4.5,"\n";                   # BigFloat 6.5
+  print 1/3 + 1/4,"\n";                 # produces 7/12
+
+  {
+    no bigrat;
+    print 1/3,"\n";                     # 0.33333...
+  }
+
+  # Import into current package:
+  use bigrat qw/hex oct/;
+  print hex("0x1234567890123490"),"\n";
+  print oct("01234567890123490"),"\n";
+
+=head1 DESCRIPTION
+
+All operators (including basic math operations) are overloaded. Integer and
+floating-point constants are created as proper BigInts or BigFloats,
+respectively.
+
+Other than L<bignum>, this module upgrades to Math::BigRat, meaning that
+instead of 2.5 you will get 2+1/2 as output.
+
+=head2 Modules Used
+
+C<bigrat> is just a thin wrapper around various modules of the Math::BigInt
+family. Think of it as the head of the family, who runs the shop, and orders
+the others to do the work.
+
+The following modules are currently used by bignum:
+
+        Math::BigInt::Lite      (for speed, and only if it is loadable)
+        Math::BigInt
+        Math::BigFloat
+        Math::BigRat
+
+=head2 Math Library
+
+Math with the numbers is done (by default) by a module called
+Math::BigInt::Calc. This is equivalent to saying:
+
+        use bigrat lib => 'Calc';
+
+You can change this by using:
+
+        use bignum lib => 'GMP';
+
+The following would first try to find Math::BigInt::Foo, then
+Math::BigInt::Bar, and when this also fails, revert to Math::BigInt::Calc:
+
+        use bigrat lib => 'Foo,Math::BigInt::Bar';
+
+Using C<lib> warns if none of the specified libraries can be found and
+L<Math::BigInt> did fall back to one of the default libraries.
+To suppress this warning, use C<try> instead:
+
+        use bignum try => 'GMP';
+
+If you want the code to die instead of falling back, use C<only> instead:
+
+        use bignum only => 'GMP';
+
+Please see respective module documentation for further details.
+
+=head2 Sign
+
+The sign is either '+', '-', 'NaN', '+inf' or '-inf'.
+
+A sign of 'NaN' is used to represent the result when input arguments are not
+numbers or as a result of 0/0. '+inf' and '-inf' represent plus respectively
+minus infinity. You will get '+inf' when dividing a positive number by 0, and
+'-inf' when dividing any negative number by 0.
+
+=head2 Methods
+
+Since all numbers are not objects, you can use all functions that are part of
+the BigInt or BigFloat API. It is wise to use only the bxxx() notation, and not
+the fxxx() notation, though. This makes you independent on the fact that the
+underlying object might morph into a different class than BigFloat.
+
+=over 2
+
+=item inf()
+
+A shortcut to return Math::BigInt->binf(). Useful because Perl does not always
+handle bareword C<inf> properly.
+
+=item NaN()
+
+A shortcut to return Math::BigInt->bnan(). Useful because Perl does not always
+handle bareword C<NaN> properly.
+
+=item e
+
+        # perl -Mbigrat=e -wle 'print e'
+
+Returns Euler's number C<e>, aka exp(1).
+
+=item PI
+
+        # perl -Mbigrat=PI -wle 'print PI'
+
+Returns PI.
+
+=item bexp()
+
+        bexp($power,$accuracy);
+
+Returns Euler's number C<e> raised to the appropriate power, to
+the wanted accuracy.
+
+Example:
+
+        # perl -Mbigrat=bexp -wle 'print bexp(1,80)'
+
+=item bpi()
+
+        bpi($accuracy);
+
+Returns PI to the wanted accuracy.
+
+Example:
+
+        # perl -Mbigrat=bpi -wle 'print bpi(80)'
+
+=item upgrade()
+
+Return the class that numbers are upgraded to, is in fact returning
+C<$Math::BigInt::upgrade>.
+
+=item in_effect()
+
+        use bigrat;
+
+        print "in effect\n" if bigrat::in_effect;       # true
+        {
+          no bigrat;
+          print "in effect\n" if bigrat::in_effect;     # false
+        }
+
+Returns true or false if C<bigrat> is in effect in the current scope.
+
+This method only works on Perl v5.9.4 or later.
+
+=back
+
+=head2 MATH LIBRARY
+
+Math with the numbers is done (by default) by a module called
+
+=head2 Caveat
+
+But a warning is in order. When using the following to make a copy of a number,
+only a shallow copy will be made.
+
+        $x = 9; $y = $x;
+        $x = $y = 7;
+
+If you want to make a real copy, use the following:
+
+        $y = $x->copy();
+
+Using the copy or the original with overloaded math is okay, e.g. the
+following work:
+
+        $x = 9; $y = $x;
+        print $x + 1, " ", $y,"\n";     # prints 10 9
+
+but calling any method that modifies the number directly will result in
+B<both> the original and the copy being destroyed:
+
+        $x = 9; $y = $x;
+        print $x->badd(1), " ", $y,"\n";        # prints 10 10
+
+        $x = 9; $y = $x;
+        print $x->binc(1), " ", $y,"\n";        # prints 10 10
+
+        $x = 9; $y = $x;
+        print $x->bmul(2), " ", $y,"\n";        # prints 18 18
+
+Using methods that do not modify, but testthe contents works:
+
+        $x = 9; $y = $x;
+        $z = 9 if $x->is_zero();                # works fine
+
+See the documentation about the copy constructor and C<=> in overload, as
+well as the documentation in BigInt for further details.
+
+=head2 Options
+
+bignum recognizes some options that can be passed while loading it via use.
+The options can (currently) be either a single letter form, or the long form.
+The following options exist:
+
+=over 2
+
+=item a or accuracy
+
+This sets the accuracy for all math operations. The argument must be greater
+than or equal to zero. See Math::BigInt's bround() function for details.
+
+        perl -Mbigrat=a,50 -le 'print sqrt(20)'
+
+Note that setting precision and accuracy at the same time is not possible.
+
+=item p or precision
+
+This sets the precision for all math operations. The argument can be any
+integer. Negative values mean a fixed number of digits after the dot, while
+a positive value rounds to this digit left from the dot. 0 or 1 mean round to
+integer. See Math::BigInt's bfround() function for details.
+
+        perl -Mbigrat=p,-50 -le 'print sqrt(20)'
+
+Note that setting precision and accuracy at the same time is not possible.
+
+=item t or trace
+
+This enables a trace mode and is primarily for debugging bignum or
+Math::BigInt/Math::BigFloat.
+
+=item l or lib
+
+Load a different math lib, see L<MATH LIBRARY>.
+
+        perl -Mbigrat=l,GMP -e 'print 2 ** 512'
+
+Currently there is no way to specify more than one library on the command
+line. This means the following does not work:
+
+        perl -Mbignum=l,GMP,Pari -e 'print 2 ** 512'
+
+This will be hopefully fixed soon ;)
+
+=item hex
+
+Override the built-in hex() method with a version that can handle big
+numbers. This overrides it by exporting it to the current package. Under
+Perl v5.10.0 and higher, this is not so necessary, as hex() is lexically
+overridden in the current scope whenever the bigrat pragma is active.
+
+=item oct
+
+Override the built-in oct() method with a version that can handle big
+numbers. This overrides it by exporting it to the current package. Under
+Perl v5.10.0 and higher, this is not so necessary, as oct() is lexically
+overridden in the current scope whenever the bigrat pragma is active.
+
+=item v or version
+
+This prints out the name and version of all modules used and then exits.
+
+        perl -Mbigrat=v
+
+=back
+
+=head1 CAVEATS
+
+=over 2
+
+=item Operator vs literal overloading
+
+C<bigrat> works by overloading handling of integer and floating point
+literals, converting them to L<Math::BigInt> or L<Math::BigRat>
+objects.
+
+This means that arithmetic involving only string values or string
+literals will be performed using Perl's built-in operators.
+
+For example:
+
+    use bigrat;
+    my $x = "900000000000000009";
+    my $y = "900000000000000007";
+    print $x - $y;
+
+will output C<0> on default 32-bit builds, since C<bigrat> never sees
+the string literals.  To ensure the expression is all treated as
+C<Math::BigInt> or C<Math::BigRat> objects, use a literal number in
+the expression:
+
+    print +(0+$x) - $y;
+
+=item in_effect()
+
+This method only works on Perl v5.9.4 or later.
+
+=item hex()/oct()
+
+C<bigint> overrides these routines with versions that can also handle
+big integer values. Under Perl prior to version v5.9.4, however, this
+will not happen unless you specifically ask for it with the two
+import tags "hex" and "oct" - and then it will be global and cannot be
+disabled inside a scope with "no bigint":
+
+        use bigint qw/hex oct/;
+
+        print hex("0x1234567890123456");
+        {
+                no bigint;
+                print hex("0x1234567890123456");
+        }
+
+The second call to hex() will warn about a non-portable constant.
+
+Compare this to:
+
+        use bigint;
+
+        # will warn only under Perl older than v5.9.4
+        print hex("0x1234567890123456");
+
+=back
+
+=head1 EXAMPLES
+
+        perl -Mbigrat -le 'print sqrt(33)'
+        perl -Mbigrat -le 'print 2*255'
+        perl -Mbigrat -le 'print 4.5+2*255'
+        perl -Mbigrat -le 'print 3/7 + 5/7 + 8/3'
+        perl -Mbigrat -le 'print 12->is_odd()';
+        perl -Mbignum=l,GMP -le 'print 7 ** 7777'
+
+=head1 LICENSE
+
+This program is free software; you may redistribute it and/or modify it under
+the same terms as Perl itself.
+
+=head1 SEE ALSO
+
+Especially L<bignum>.
+
+L<Math::BigFloat>, L<Math::BigInt>, L<Math::BigRat> and L<Math::Big> as well
+as L<Math::BigInt::Pari> and  L<Math::BigInt::GMP>.
+
+=head1 AUTHORS
+
+(C) by Tels L<http://bloodgate.com/> in early 2002 - 2007.
+
+=cut
diff --git a/lib/5.24.1/blib.pm b/lib/5.24.1/blib.pm
new file mode 100644
index 00000000..b3ee3202
--- /dev/null
+++ b/lib/5.24.1/blib.pm
@@ -0,0 +1,94 @@
+package blib;
+
+=head1 NAME
+
+blib - Use MakeMaker's uninstalled version of a package
+
+=head1 SYNOPSIS
+
+ perl -Mblib script [args...]
+
+ perl -Mblib=dir script [args...]
+
+=head1 DESCRIPTION
+
+Looks for MakeMaker-like I<'blib'> directory structure starting in
+I<dir> (or current directory) and working back up to five levels of '..'.
+
+Intended for use on command line with B<-M> option as a way of testing
+arbitrary scripts against an uninstalled version of a package.
+
+However it is possible to :
+
+ use blib;
+ or
+ use blib '..';
+
+etc. if you really must.
+
+=head1 BUGS
+
+Pollutes global name space for development only task.
+
+=head1 AUTHOR
+
+Nick Ing-Simmons nik@tiuk.ti.com
+
+=cut
+
+use Cwd;
+use File::Spec;
+
+use vars qw($VERSION $Verbose);
+$VERSION = '1.06';
+$Verbose = 0;
+
+sub import
+{
+ my $package = shift;
+ my $dir;
+ if ($^O eq "MSWin32" && -f "Win32.xs") {
+     # We don't use getcwd() on Windows because it will internally
+     # call Win32::GetCwd(), which will get the Win32 module loaded.
+     # That means that it would not be possible to run `make test`
+     # for the Win32 module because blib.pm would always load the
+     # installed version before @INC gets updated with the blib path.
+     chomp($dir = `cd`);
+ }
+ else {
+     $dir = getcwd;
+ }
+ if ($^O eq 'VMS') { ($dir = VMS::Filespec::unixify($dir)) =~ s-/\z--; }
+ if (@_)
+  {
+   $dir = shift;
+   $dir =~ s/blib\z//;
+   $dir =~ s,/+\z,,;
+   $dir = File::Spec->curdir unless ($dir);
+   die "$dir is not a directory\n" unless (-d $dir);
+  }
+
+ # detaint: if the user asked for blib, s/he presumably knew
+ # what s/he wanted
+ $dir = $1 if $dir =~ /^(.*)$/;
+
+ my $i = 5;
+ my($blib, $blib_lib, $blib_arch);
+ while ($i--)
+  {
+   $blib = File::Spec->catdir($dir, "blib");
+   $blib_lib = File::Spec->catdir($blib, "lib");
+   $blib_arch = File::Spec->catdir($blib, "arch");
+
+   if (-d $blib && -d $blib_arch && -d $blib_lib)
+    {
+     unshift(@INC,$blib_arch,$blib_lib);
+     warn "Using $blib\n" if $Verbose;
+     return;
+    }
+   $dir = File::Spec->catdir($dir, File::Spec->updir);
+  }
+ die "Cannot find blib even in $dir\n";
+}
+
+1;
diff --git a/lib/5.24.1/bytes.pm b/lib/5.24.1/bytes.pm
new file mode 100644
index 00000000..f0022eeb
--- /dev/null
+++ b/lib/5.24.1/bytes.pm
@@ -0,0 +1,126 @@
+package bytes;
+
+our $VERSION = '1.05';
+
+$bytes::hint_bits = 0x00000008;
+
+sub import {
+    $^H |= $bytes::hint_bits;
+}
+
+sub unimport {
+    $^H &= ~$bytes::hint_bits;
+}
+
+sub AUTOLOAD {
+    require "bytes_heavy.pl";
+    goto &$AUTOLOAD if defined &$AUTOLOAD;
+    require Carp;
+    Carp::croak("Undefined subroutine $AUTOLOAD called");
+}
+
+sub length (_);
+sub chr (_);
+sub ord (_);
+sub substr ($$;$$);
+sub index ($$;$);
+sub rindex ($$;$);
+
+1;
+__END__
+
+=head1 NAME
+
+bytes - Perl pragma to expose the individual bytes of characters
+
+=head1 NOTICE
+
+Because the bytes pragma breaks encapsulation (i.e. it exposes the innards of
+how the perl executable currently happens to store a string), the byte values
+that result are in an unspecified encoding.
+
+B<Use of this module for anything other than debugging purposes is
+strongly discouraged.>  If you feel that the functions here within
+might be useful for your application, this possibly indicates a
+mismatch between your mental model of Perl Unicode and the current
+reality. In that case, you may wish to read some of the perl Unicode
+documentation: L<perluniintro>, L<perlunitut>, L<perlunifaq> and
+L<perlunicode>.
+
+=head1 SYNOPSIS
+
+    use bytes;
+    ... chr(...);       # or bytes::chr
+    ... index(...);     # or bytes::index
+    ... length(...);    # or bytes::length
+    ... ord(...);       # or bytes::ord
+    ... rindex(...);    # or bytes::rindex
+    ... substr(...);    # or bytes::substr
+    no bytes;
+
+
+=head1 DESCRIPTION
+
+Perl's characters are stored internally as sequences of one or more bytes.
+This pragma allows for the examination of the individual bytes that together
+comprise a character.
+
+Originally the pragma was designed for the loftier goal of helping incorporate
+Unicode into Perl, but the approach that used it was found to be defective,
+and the one remaining legitimate use is for debugging when you need to
+non-destructively examine characters' individual bytes.  Just insert this
+pragma temporarily, and remove it after the debugging is finished.
+
+The original usage can be accomplished by explicit (rather than this pragma's
+implict) encoding using the L<Encode> module:
+
+    use Encode qw/encode/;
+
+    my $utf8_byte_string   = encode "UTF8",   $string;
+    my $latin1_byte_string = encode "Latin1", $string;
+
+Or, if performance is needed and you are only interested in the UTF-8
+representation:
+
+    use utf8;
+
+    utf8::encode(my $utf8_byte_string = $string);
+
+C<no bytes> can be used to reverse the effect of C<use bytes> within the
+current lexical scope.
+
+As an example, when Perl sees C<$x = chr(400)>, it encodes the character
+in UTF-8 and stores it in C<$x>. Then it is marked as character data, so,
+for instance, C<length $x> returns C<1>. However, in the scope of the
+C<bytes> pragma, C<$x> is treated as a series of bytes - the bytes that make
+up the UTF8 encoding - and C<length $x> returns C<2>:
+
+ $x = chr(400);
+ print "Length is ", length $x, "\n";     # "Length is 1"
+ printf "Contents are %vd\n", $x;         # "Contents are 400"
+ {
+     use bytes; # or "require bytes; bytes::length()"
+     print "Length is ", length $x, "\n"; # "Length is 2"
+     printf "Contents are %vd\n", $x;     # "Contents are 198.144 (on
+                                          # ASCII platforms)"
+ }
+
+C<chr()>, C<ord()>, C<substr()>, C<index()> and C<rindex()> behave similarly.
+
+For more on the implications, see L<perluniintro> and L<perlunicode>.
+
+C<bytes::length()> is admittedly handy if you need to know the
+B<byte length> of a Perl scalar.  But a more modern way is:
+
+   use Encode 'encode';
+   length(encode('UTF-8', $scalar))
+
+=head1 LIMITATIONS
+
+C<bytes::substr()> does not work as an I<lvalue()>.
+
+=head1 SEE ALSO
+
+L<perluniintro>, L<perlunicode>, L<utf8>, L<Encode>
+
+=cut
diff --git a/lib/5.24.1/bytes_heavy.pl b/lib/5.24.1/bytes_heavy.pl
new file mode 100644
index 00000000..680c66ce
--- /dev/null
+++ b/lib/5.24.1/bytes_heavy.pl
@@ -0,0 +1,40 @@
+package bytes;
+
+sub length (_) {
+    BEGIN { bytes::import() }
+    return CORE::length($_[0]);
+}
+
+sub substr ($$;$$) {
+    BEGIN { bytes::import() }
+    return
+	@_ == 2 ? CORE::substr($_[0], $_[1]) :
+	@_ == 3 ? CORE::substr($_[0], $_[1], $_[2]) :
+	          CORE::substr($_[0], $_[1], $_[2], $_[3]) ;
+}
+
+sub ord (_) {
+    BEGIN { bytes::import() }
+    return CORE::ord($_[0]);
+}
+
+sub chr (_) {
+    BEGIN { bytes::import() }
+    return CORE::chr($_[0]);
+}
+
+sub index ($$;$) {
+    BEGIN { bytes::import() }
+    return
+	@_ == 2 ? CORE::index($_[0], $_[1]) :
+	          CORE::index($_[0], $_[1], $_[2]) ;
+}
+
+sub rindex ($$;$) {
+    BEGIN { bytes::import() }
+    return
+	@_ == 2 ? CORE::rindex($_[0], $_[1]) :
+	          CORE::rindex($_[0], $_[1], $_[2]) ;
+}
+
+1;
diff --git a/lib/5.24.1/charnames.pm b/lib/5.24.1/charnames.pm
new file mode 100644
index 00000000..2efe3d58
--- /dev/null
+++ b/lib/5.24.1/charnames.pm
@@ -0,0 +1,508 @@
+package charnames;
+use strict;
+use warnings;
+our $VERSION = '1.43';
+use unicore::Name;    # mktables-generated algorithmically-defined names
+use _charnames ();    # The submodule for this where most of the work gets done
+
+use bytes ();          # for $bytes::hint_bits
+use re "/aa";          # Everything in here should be ASCII
+
+# Translate between Unicode character names and their code points.
+# This is a wrapper around the submodule C<_charnames>.  This design allows
+# C<_charnames> to be autoloaded to enable use of \N{...}, but requires this
+# module to be explicitly requested for the functions API.
+
+$Carp::Internal{ (__PACKAGE__) } = 1;
+
+sub import
+{
+  shift; ## ignore class name
+  _charnames->import(@_);
+}
+
+# Cache of already looked-up values.  This is set to only contain
+# official values, and user aliases can't override them, so scoping is
+# not an issue.
+my %viacode;
+
+sub viacode {
+  return _charnames::viacode(@_);
+}
+
+sub vianame
+{
+  if (@_ != 1) {
+    _charnames::carp "charnames::vianame() expects one name argument";
+    return ()
+  }
+
+  # Looks up the character name and returns its ordinal if
+  # found, undef otherwise.
+
+  my $arg = shift;
+
+  if ($arg =~ /^U\+([0-9a-fA-F]+)$/) {
+
+    # khw claims that this is poor interface design.  The function should
+    # return either a an ord or a chr for all inputs; not be bipolar.  But
+    # can't change it because of backward compatibility.  New code can use
+    # string_vianame() instead.
+    my $ord = CORE::hex $1;
+    return pack("U", $ord) if $ord <= 255 || ! ((caller 0)[8] & $bytes::hint_bits);
+    _charnames::carp _charnames::not_legal_use_bytes_msg($arg, chr $ord);
+    return;
+  }
+
+  # The first 1 arg means wants an ord returned; the second that we are in
+  # runtime, and this is the first level routine called from the user
+  return _charnames::lookup_name($arg, 1, 1);
+} # vianame
+
+sub string_vianame {
+
+  # Looks up the character name and returns its string representation if
+  # found, undef otherwise.
+
+  if (@_ != 1) {
+    _charnames::carp "charnames::string_vianame() expects one name argument";
+    return;
+  }
+
+  my $arg = shift;
+
+  if ($arg =~ /^U\+([0-9a-fA-F]+)$/) {
+
+    my $ord = CORE::hex $1;
+    return pack("U", $ord) if $ord <= 255 || ! ((caller 0)[8] & $bytes::hint_bits);
+
+    _charnames::carp _charnames::not_legal_use_bytes_msg($arg, chr $ord);
+    return;
+  }
+
+  # The 0 arg means wants a string returned; the 1 arg means that we are in
+  # runtime, and this is the first level routine called from the user
+  return _charnames::lookup_name($arg, 0, 1);
+} # string_vianame
+
+1;
+__END__
+
+=encoding utf8
+
+=head1 NAME
+
+charnames - access to Unicode character names and named character sequences; also define character names
+
+=head1 SYNOPSIS
+
+ use charnames ':full';
+ print "\N{GREEK SMALL LETTER SIGMA} is called sigma.\n";
+ print "\N{LATIN CAPITAL LETTER E WITH VERTICAL LINE BELOW}",
+       " is an officially named sequence of two Unicode characters\n";
+
+ use charnames ':loose';
+ print "\N{Greek small-letter  sigma}",
+        "can be used to ignore case, underscores, most blanks,"
+        "and when you aren't sure if the official name has hyphens\n";
+
+ use charnames ':short';
+ print "\N{greek:Sigma} is an upper-case sigma.\n";
+
+ use charnames qw(cyrillic greek);
+ print "\N{sigma} is Greek sigma, and \N{be} is Cyrillic b.\n";
+
+ use utf8;
+ use charnames ":full", ":alias" => {
+   e_ACUTE => "LATIN SMALL LETTER E WITH ACUTE",
+   mychar => 0xE8000,  # Private use area
+   "自転車�乗る人" => "BICYCLIST"
+ };
+ print "\N{e_ACUTE} is a small letter e with an acute.\n";
+ print "\N{mychar} allows me to name private use characters.\n";
+ print "And I can create synonyms in other languages,",
+       " such as \N{自転車�乗る人} for "BICYCLIST (U+1F6B4)\n";
+
+ use charnames ();
+ print charnames::viacode(0x1234); # prints "ETHIOPIC SYLLABLE SEE"
+ printf "%04X", charnames::vianame("GOTHIC LETTER AHSA"); # prints
+                                                          # "10330"
+ print charnames::vianame("LATIN CAPITAL LETTER A"); # prints 65 on
+                                                     # ASCII platforms;
+                                                     # 193 on EBCDIC
+ print charnames::string_vianame("LATIN CAPITAL LETTER A"); # prints "A"
+
+=head1 DESCRIPTION
+
+Pragma C<use charnames> is used to gain access to the names of the
+Unicode characters and named character sequences, and to allow you to define
+your own character and character sequence names.
+
+All forms of the pragma enable use of the following 3 functions:
+
+=over
+
+=item *
+
+L</charnames::string_vianame(I<name>)> for run-time lookup of a
+either a character name or a named character sequence, returning its string
+representation
+
+=item *
+
+L</charnames::vianame(I<name>)> for run-time lookup of a
+character name (but not a named character sequence) to get its ordinal value
+(code point)
+
+=item *
+
+L</charnames::viacode(I<code>)> for run-time lookup of a code point to get its
+Unicode name.
+
+=back
+
+Starting in Perl v5.16, any occurrence of C<\N{I<CHARNAME>}> sequences
+in a double-quotish string automatically loads this module with arguments
+C<:full> and C<:short> (described below) if it hasn't already been loaded with
+different arguments, in order to compile the named Unicode character into
+position in the string.  Prior to v5.16, an explicit S<C<use charnames>> was
+required to enable this usage.  (However, prior to v5.16, the form C<S<"use
+charnames ();">> did not enable C<\N{I<CHARNAME>}>.)
+
+Note that C<\N{U+I<...>}>, where the I<...> is a hexadecimal number,
+also inserts a character into a string.
+The character it inserts is the one whose Unicode code point
+(ordinal value) is equal to the number.  For example, C<"\N{U+263a}"> is
+the Unicode (white background, black foreground) smiley face
+equivalent to C<"\N{WHITE SMILING FACE}">.
+Also note, C<\N{I<...>}> can mean a regex quantifier instead of a character
+name, when the I<...> is a number (or comma separated pair of numbers
+(see L<perlreref/QUANTIFIERS>), and is not related to this pragma.
+
+The C<charnames> pragma supports arguments C<:full>, C<:loose>, C<:short>,
+script names and L<customized aliases|/CUSTOM ALIASES>.
+
+If C<:full> is present, for expansion of
+C<\N{I<CHARNAME>}>, the string I<CHARNAME> is first looked up in the list of
+standard Unicode character names.
+
+C<:loose> is a variant of C<:full> which allows I<CHARNAME> to be less
+precisely specified.  Details are in L</LOOSE MATCHES>.
+
+If C<:short> is present, and
+I<CHARNAME> has the form C<I<SCRIPT>:I<CNAME>>, then I<CNAME> is looked up
+as a letter in script I<SCRIPT>, as described in the next paragraph.
+Or, if C<use charnames> is used
+with script name arguments, then for C<\N{I<CHARNAME>}> the name
+I<CHARNAME> is looked up as a letter in the given scripts (in the
+specified order). Customized aliases can override these, and are explained in
+L</CUSTOM ALIASES>.
+
+For lookup of I<CHARNAME> inside a given script I<SCRIPTNAME>,
+this pragma looks in the table of standard Unicode names for the names
+
+  SCRIPTNAME CAPITAL LETTER CHARNAME
+  SCRIPTNAME SMALL LETTER CHARNAME
+  SCRIPTNAME LETTER CHARNAME
+
+If I<CHARNAME> is all lowercase,
+then the C<CAPITAL> variant is ignored, otherwise the C<SMALL> variant
+is ignored, and both I<CHARNAME> and I<SCRIPTNAME> are converted to all
+uppercase for look-up.  Other than that, both of them follow L<loose|/LOOSE
+MATCHES> rules if C<:loose> is also specified; strict otherwise.
+
+Note that C<\N{...}> is compile-time; it's a special form of string
+constant used inside double-quotish strings; this means that you cannot
+use variables inside the C<\N{...}>.  If you want similar run-time
+functionality, use
+L<charnames::string_vianame()|/charnames::string_vianame(I<name>)>.
+
+Note, starting in Perl 5.18, the name C<BELL> refers to the Unicode character
+U+1F514, instead of the traditional U+0007.  For the latter, use C<ALERT>
+or C<BEL>.
+
+It is a syntax error to use C<\N{NAME}> where C<NAME> is unknown.
+
+For C<\N{NAME}>, it is a fatal error if C<use bytes> is in effect and the
+input name is that of a character that won't fit into a byte (i.e., whose
+ordinal is above 255).
+
+Otherwise, any string that includes a C<\N{I<charname>}> or
+C<S<\N{U+I<code point>}>> will automatically have Unicode rules (see
+L<perlunicode/Byte and Character Semantics>).
+
+=head1 LOOSE MATCHES
+
+By specifying C<:loose>, Unicode's L<loose character name
+matching|http://www.unicode.org/reports/tr44#Matching_Rules> rules are
+selected instead of the strict exact match used otherwise.
+That means that I<CHARNAME> doesn't have to be so precisely specified.
+Upper/lower case doesn't matter (except with scripts as mentioned above), nor
+do any underscores, and the only hyphens that matter are those at the
+beginning or end of a word in the name (with one exception:  the hyphen in
+U+1180 C<HANGUL JUNGSEONG O-E> does matter).
+Also, blanks not adjacent to hyphens don't matter.
+The official Unicode names are quite variable as to where they use hyphens
+versus spaces to separate word-like units, and this option allows you to not
+have to care as much.
+The reason non-medial hyphens matter is because of cases like
+U+0F60 C<TIBETAN LETTER -A> versus U+0F68 C<TIBETAN LETTER A>.
+The hyphen here is significant, as is the space before it, and so both must be
+included.
+
+C<:loose> slows down look-ups by a factor of 2 to 3 versus
+C<:full>, but the trade-off may be worth it to you.  Each individual look-up
+takes very little time, and the results are cached, so the speed difference
+would become a factor only in programs that do look-ups of many different
+spellings, and probably only when those look-ups are through C<vianame()> and
+C<string_vianame()>, since C<\N{...}> look-ups are done at compile time.
+
+=head1 ALIASES
+
+Starting in Unicode 6.1 and Perl v5.16, Unicode defines many abbreviations and
+names that were formerly Perl extensions, and some additional ones that Perl
+did not previously accept.  The list is getting too long to reproduce here,
+but you can get the complete list from the Unicode web site:
+L<http://www.unicode.org/Public/UNIDATA/NameAliases.txt>.
+
+Earlier versions of Perl accepted almost all the 6.1 names.  These were most
+extensively documented in the v5.14 version of this pod:
+L<http://perldoc.perl.org/5.14.0/charnames.html#ALIASES>.
+
+=head1 CUSTOM ALIASES
+
+You can add customized aliases to standard (C<:full>) Unicode naming
+conventions.  The aliases override any standard definitions, so, if
+you're twisted enough, you can change C<"\N{LATIN CAPITAL LETTER A}"> to
+mean C<"B">, etc.
+
+Aliases must begin with a character that is alphabetic.  After that, each may
+contain any combination of word (C<\w>) characters, SPACE (U+0020),
+HYPHEN-MINUS (U+002D), LEFT PARENTHESIS (U+0028), RIGHT PARENTHESIS (U+0029),
+and NO-BREAK SPACE (U+00A0).  These last three should never have been allowed
+in names, and are retained for backwards compatibility only; NO-BREAK SPACE IS
+currently deprecated and scheduled for removal in Perl v5.26; the other two
+may also be
+deprecated and removed in future releases of Perl, so don't use them for new
+names.  (More precisely, the first character of a name you specify must be
+something that matches all of C<\p{ID_Start}>, C<\p{Alphabetic}>, and
+C<\p{Gc=Letter}>.  This makes sure it is what any reasonable person would view
+as an alphabetic character.  And, the continuation characters that match C<\w>
+must also match C<\p{ID_Continue}>.)  Starting with Perl v5.18, any Unicode
+characters meeting the above criteria may be used; prior to that only
+Latin1-range characters were acceptable.
+
+An alias can map to either an official Unicode character name (not a loose
+matched name) or to a
+numeric code point (ordinal).  The latter is useful for assigning names
+to code points in Unicode private use areas such as U+E800 through
+U+F8FF.
+A numeric code point must be a non-negative integer, or a string beginning
+with C<"U+"> or C<"0x"> with the remainder considered to be a
+hexadecimal integer.  A literal numeric constant must be unsigned; it
+will be interpreted as hex if it has a leading zero or contains
+non-decimal hex digits; otherwise it will be interpreted as decimal.
+If it begins with C<"U+">, it is interpreted as the Unicode code point;
+otherwise it is interpreted as native.  (Only code points below 256 can
+differ between Unicode and native.)  Thus C<U+41> is always the Latin letter
+"A"; but C<0x41> can be "NO-BREAK SPACE" on EBCDIC platforms.
+
+Aliases are added either by the use of anonymous hashes:
+
+    use charnames ":alias" => {
+        e_ACUTE => "LATIN SMALL LETTER E WITH ACUTE",
+        mychar1 => 0xE8000,
+        };
+    my $str = "\N{e_ACUTE}";
+
+or by using a file containing aliases:
+
+    use charnames ":alias" => "pro";
+
+This will try to read C<"unicore/pro_alias.pl"> from the C<@INC> path. This
+file should return a list in plain perl:
+
+    (
+    A_GRAVE         => "LATIN CAPITAL LETTER A WITH GRAVE",
+    A_CIRCUM        => "LATIN CAPITAL LETTER A WITH CIRCUMFLEX",
+    A_DIAERES       => "LATIN CAPITAL LETTER A WITH DIAERESIS",
+    A_TILDE         => "LATIN CAPITAL LETTER A WITH TILDE",
+    A_BREVE         => "LATIN CAPITAL LETTER A WITH BREVE",
+    A_RING          => "LATIN CAPITAL LETTER A WITH RING ABOVE",
+    A_MACRON        => "LATIN CAPITAL LETTER A WITH MACRON",
+    mychar2         => "U+E8001",
+    );
+
+Both these methods insert C<":full"> automatically as the first argument (if no
+other argument is given), and you can give the C<":full"> explicitly as
+well, like
+
+    use charnames ":full", ":alias" => "pro";
+
+C<":loose"> has no effect with these.  Input names must match exactly, using
+C<":full"> rules.
+
+Also, both these methods currently allow only single characters to be named.
+To name a sequence of characters, use a
+L<custom translator|/CUSTOM TRANSLATORS> (described below).
+
+=head1 charnames::string_vianame(I<name>)
+
+This is a runtime equivalent to C<\N{...}>.  I<name> can be any expression
+that evaluates to a name accepted by C<\N{...}> under the L<C<:full>
+option|/DESCRIPTION> to C<charnames>.  In addition, any other options for the
+controlling C<"use charnames"> in the same scope apply, like C<:loose> or any
+L<script list, C<:short> option|/DESCRIPTION>, or L<custom aliases|/CUSTOM
+ALIASES> you may have defined.
+
+The only differences are due to the fact that C<string_vianame> is run-time
+and C<\N{}> is compile time.  You can't interpolate inside a C<\N{}>, (so
+C<\N{$variable}> doesn't work); and if the input name is unknown,
+C<string_vianame> returns C<undef> instead of it being a syntax error.
+
+=head1 charnames::vianame(I<name>)
+
+This is similar to C<string_vianame>.  The main difference is that under most
+circumstances, C<vianame> returns an ordinal code
+point, whereas C<string_vianame> returns a string.  For example,
+
+   printf "U+%04X", charnames::vianame("FOUR TEARDROP-SPOKED ASTERISK");
+
+prints "U+2722".
+
+This leads to the other two differences.  Since a single code point is
+returned, the function can't handle named character sequences, as these are
+composed of multiple characters (it returns C<undef> for these.  And, the code
+point can be that of any
+character, even ones that aren't legal under the C<S<use bytes>> pragma,
+
+See L</BUGS> for the circumstances in which the behavior differs
+from  that described above.
+
+=head1 charnames::viacode(I<code>)
+
+Returns the full name of the character indicated by the numeric code.
+For example,
+
+    print charnames::viacode(0x2722);
+
+prints "FOUR TEARDROP-SPOKED ASTERISK".
+
+The name returned is the "best" (defined below) official name or alias
+for the code point, if
+available; otherwise your custom alias for it, if defined; otherwise C<undef>.
+This means that your alias will only be returned for code points that don't
+have an official Unicode name (nor alias) such as private use code points.
+
+If you define more than one name for the code point, it is indeterminate
+which one will be returned.
+
+As mentioned, the function returns C<undef> if no name is known for the code
+point.  In Unicode the proper name for these is the empty string, which
+C<undef> stringifies to.  (If you ask for a code point past the legal
+Unicode maximum of U+10FFFF that you haven't assigned an alias to, you
+get C<undef> plus a warning.)
+
+The input number must be a non-negative integer, or a string beginning
+with C<"U+"> or C<"0x"> with the remainder considered to be a
+hexadecimal integer.  A literal numeric constant must be unsigned; it
+will be interpreted as hex if it has a leading zero or contains
+non-decimal hex digits; otherwise it will be interpreted as decimal.
+If it begins with C<"U+">, it is interpreted as the Unicode code point;
+otherwise it is interpreted as native.  (Only code points below 256 can
+differ between Unicode and native.)  Thus C<U+41> is always the Latin letter
+"A"; but C<0x41> can be "NO-BREAK SPACE" on EBCDIC platforms.
+
+As mentioned above under L</ALIASES>, Unicode 6.1 defines extra names
+(synonyms or aliases) for some code points, most of which were already
+available as Perl extensions.  All these are accepted by C<\N{...}> and the
+other functions in this module, but C<viacode> has to choose which one
+name to return for a given input code point, so it returns the "best" name.
+To understand how this works, it is helpful to know more about the Unicode
+name properties.  All code points actually have only a single name, which
+(starting in Unicode 2.0) can never change once a character has been assigned
+to the code point.  But mistakes have been made in assigning names, for
+example sometimes a clerical error was made during the publishing of the
+Standard which caused words to be misspelled, and there was no way to correct
+those.  The Name_Alias property was eventually created to handle these
+situations.  If a name was wrong, a corrected synonym would be published for
+it, using Name_Alias.  C<viacode> will return that corrected synonym as the
+"best" name for a code point.  (It is even possible, though it hasn't happened
+yet, that the correction itself will need to be corrected, and so another
+Name_Alias can be created for that code point; C<viacode> will return the
+most recent correction.)
+
+The Unicode name for each of the control characters (such as LINE FEED) is the
+empty string.  However almost all had names assigned by other standards, such
+as the ASCII Standard, or were in common use.  C<viacode> returns these names
+as the "best" ones available.  Unicode 6.1 has created Name_Aliases for each
+of them, including alternate names, like NEW LINE.  C<viacode> uses the
+original name, "LINE FEED" in preference to the alternate.  Similarly the
+name returned for U+FEFF is "ZERO WIDTH NO-BREAK SPACE", not "BYTE ORDER
+MARK".
+
+Until Unicode 6.1, the 4 control characters U+0080, U+0081, U+0084, and U+0099
+did not have names nor aliases.
+To preserve backwards compatibility, any alias you define for these code
+points will be returned by this function, in preference to the official name.
+
+Some code points also have abbreviated names, such as "LF" or "NL".
+C<viacode> never returns these.
+
+Because a name correction may be added in future Unicode releases, the name
+that C<viacode> returns may change as a result.  This is a rare event, but it
+does happen.
+
+=head1 CUSTOM TRANSLATORS
+
+The mechanism of translation of C<\N{...}> escapes is general and not
+hardwired into F<charnames.pm>.  A module can install custom
+translations (inside the scope which C<use>s the module) with the
+following magic incantation:
+
+    sub import {
+        shift;
+        $^H{charnames} = \&translator;
+    }
+
+Here translator() is a subroutine which takes I<CHARNAME> as an
+argument, and returns text to insert into the string instead of the
+C<\N{I<CHARNAME>}> escape.
+
+This is the only way you can create a custom named sequence of code points.
+
+Since the text to insert should be different
+in C<bytes> mode and out of it, the function should check the current
+state of C<bytes>-flag as in:
+
+    use bytes ();                      # for $bytes::hint_bits
+    sub translator {
+        if ($^H & $bytes::hint_bits) {
+            return bytes_translator(@_);
+        }
+        else {
+            return utf8_translator(@_);
+        }
+    }
+
+See L</CUSTOM ALIASES> above for restrictions on I<CHARNAME>.
+
+Of course, C<vianame>, C<viacode>, and C<string_vianame> would need to be
+overridden as well.
+
+=head1 BUGS
+
+vianame() normally returns an ordinal code point, but when the input name is of
+the form C<U+...>, it returns a chr instead.  In this case, if C<use bytes> is
+in effect and the character won't fit into a byte, it returns C<undef> and
+raises a warning.
+
+Since evaluation of the translation function (see L</CUSTOM
+TRANSLATORS>) happens in the middle of compilation (of a string
+literal), the translation function should not do any C<eval>s or
+C<require>s.  This restriction should be lifted (but is low priority) in
+a future version of Perl.
+
+=cut
+
+# ex: set ts=8 sts=2 sw=2 et:
diff --git a/lib/5.24.1/constant.pm b/lib/5.24.1/constant.pm
new file mode 100644
index 00000000..e4b8fd2d
--- /dev/null
+++ b/lib/5.24.1/constant.pm
@@ -0,0 +1,450 @@
+package constant;
+use 5.008;
+use strict;
+use warnings::register;
+
+our $VERSION = '1.33';
+our %declared;
+
+#=======================================================================
+
+# Some names are evil choices.
+my %keywords = map +($_, 1), qw{ BEGIN INIT CHECK END DESTROY AUTOLOAD };
+$keywords{UNITCHECK}++ if $] > 5.009;
+
+my %forced_into_main = map +($_, 1),
+    qw{ STDIN STDOUT STDERR ARGV ARGVOUT ENV INC SIG };
+
+my %forbidden = (%keywords, %forced_into_main);
+
+my $normal_constant_name = qr/^_?[^\W_0-9]\w*\z/;
+my $tolerable = qr/^[A-Za-z_]\w*\z/;
+my $boolean = qr/^[01]?\z/;
+
+BEGIN {
+    # We'd like to do use constant _CAN_PCS => $] > 5.009002
+    # but that's a bit tricky before we load the constant module :-)
+    # By doing this, we save several run time checks for *every* call
+    # to import.
+    my $const = $] > 5.009002;
+    my $downgrade = $] < 5.015004; # && $] >= 5.008
+    my $constarray = exists &_make_const;
+    if ($const) {
+	Internals::SvREADONLY($const, 1);
+	Internals::SvREADONLY($downgrade, 1);
+	$constant::{_CAN_PCS}   = \$const;
+	$constant::{_DOWNGRADE} = \$downgrade;
+	$constant::{_CAN_PCS_FOR_ARRAY} = \$constarray;
+    }
+    else {
+	no strict 'refs';
+	*{"_CAN_PCS"}   = sub () {$const};
+	*{"_DOWNGRADE"} = sub () { $downgrade };
+	*{"_CAN_PCS_FOR_ARRAY"} = sub () { $constarray };
+    }
+}
+
+#=======================================================================
+# import() - import symbols into user's namespace
+#
+# What we actually do is define a function in the caller's namespace
+# which returns the value. The function we create will normally
+# be inlined as a constant, thereby avoiding further sub calling 
+# overhead.
+#=======================================================================
+sub import {
+    my $class = shift;
+    return unless @_;			# Ignore 'use constant;'
+    my $constants;
+    my $multiple  = ref $_[0];
+    my $caller = caller;
+    my $flush_mro;
+    my $symtab;
+
+    if (_CAN_PCS) {
+	no strict 'refs';
+	$symtab = \%{$caller . '::'};
+    };
+
+    if ( $multiple ) {
+	if (ref $_[0] ne 'HASH') {
+	    require Carp;
+	    Carp::croak("Invalid reference type '".ref(shift)."' not 'HASH'");
+	}
+	$constants = shift;
+    } else {
+	unless (defined $_[0]) {
+	    require Carp;
+	    Carp::croak("Can't use undef as constant name");
+	}
+	$constants->{+shift} = undef;
+    }
+
+    foreach my $name ( keys %$constants ) {
+	my $pkg;
+	my $symtab = $symtab;
+	my $orig_name = $name;
+	if ($name =~ s/(.*)(?:::|')(?=.)//s) {
+	    $pkg = $1;
+	    if (_CAN_PCS && $pkg ne $caller) {
+		no strict 'refs';
+		$symtab = \%{$pkg . '::'};
+	    }
+	}
+	else {
+	    $pkg = $caller;
+	}
+
+	# Normal constant name
+	if ($name =~ $normal_constant_name and !$forbidden{$name}) {
+	    # Everything is okay
+
+	# Name forced into main, but we're not in main. Fatal.
+	} elsif ($forced_into_main{$name} and $pkg ne 'main') {
+	    require Carp;
+	    Carp::croak("Constant name '$name' is forced into main::");
+
+	# Starts with double underscore. Fatal.
+	} elsif ($name =~ /^__/) {
+	    require Carp;
+	    Carp::croak("Constant name '$name' begins with '__'");
+
+	# Maybe the name is tolerable
+	} elsif ($name =~ $tolerable) {
+	    # Then we'll warn only if you've asked for warnings
+	    if (warnings::enabled()) {
+		if ($keywords{$name}) {
+		    warnings::warn("Constant name '$name' is a Perl keyword");
+		} elsif ($forced_into_main{$name}) {
+		    warnings::warn("Constant name '$name' is " .
+			"forced into package main::");
+		}
+	    }
+
+	# Looks like a boolean
+	# use constant FRED == fred;
+	} elsif ($name =~ $boolean) {
+            require Carp;
+	    if (@_) {
+		Carp::croak("Constant name '$name' is invalid");
+	    } else {
+		Carp::croak("Constant name looks like boolean value");
+	    }
+
+	} else {
+	   # Must have bad characters
+            require Carp;
+	    Carp::croak("Constant name '$name' has invalid characters");
+	}
+
+	{
+	    no strict 'refs';
+	    my $full_name = "${pkg}::$name";
+	    $declared{$full_name}++;
+	    if ($multiple || @_ == 1) {
+		my $scalar = $multiple ? $constants->{$orig_name} : $_[0];
+
+		if (_DOWNGRADE) { # for 5.8 to 5.14
+		    # Work around perl bug #31991: Sub names (actually glob
+		    # names in general) ignore the UTF8 flag. So we have to
+		    # turn it off to get the "right" symbol table entry.
+		    utf8::is_utf8 $name and utf8::encode $name;
+		}
+
+		# The constant serves to optimise this entire block out on
+		# 5.8 and earlier.
+		if (_CAN_PCS) {
+		    # Use a reference as a proxy for a constant subroutine.
+		    # If this is not a glob yet, it saves space.  If it is
+		    # a glob, we must still create it this way to get the
+		    # right internal flags set, as constants are distinct
+		    # from subroutines created with sub(){...}.
+		    # The check in Perl_ck_rvconst knows that inlinable
+		    # constants from cv_const_sv are read only. So we have to:
+		    Internals::SvREADONLY($scalar, 1);
+		    if (!exists $symtab->{$name}) {
+			$symtab->{$name} = \$scalar;
+			++$flush_mro->{$pkg};
+		    }
+		    else {
+			local $constant::{_dummy} = \$scalar;
+			*$full_name = \&{"_dummy"};
+		    }
+		} else {
+		    *$full_name = sub () { $scalar };
+		}
+	    } elsif (@_) {
+		my @list = @_;
+		if (_CAN_PCS_FOR_ARRAY) {
+		    _make_const($list[$_]) for 0..$#list;
+		    _make_const(@list);
+		    if (!exists $symtab->{$name}) {
+			$symtab->{$name} = \@list;
+			$flush_mro->{$pkg}++;
+		    }
+		    else {
+			local $constant::{_dummy} = \@list;
+			*$full_name = \&{"_dummy"};
+		    }
+		}
+		else { *$full_name = sub () { @list }; }
+	    } else {
+		*$full_name = sub () { };
+	    }
+	}
+    }
+    # Flush the cache exactly once if we make any direct symbol table changes.
+    if (_CAN_PCS && $flush_mro) {
+	mro::method_changed_in($_) for keys %$flush_mro;
+    }
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+constant - Perl pragma to declare constants
+
+=head1 SYNOPSIS
+
+    use constant PI    => 4 * atan2(1, 1);
+    use constant DEBUG => 0;
+
+    print "Pi equals ", PI, "...\n" if DEBUG;
+
+    use constant {
+        SEC   => 0,
+        MIN   => 1,
+        HOUR  => 2,
+        MDAY  => 3,
+        MON   => 4,
+        YEAR  => 5,
+        WDAY  => 6,
+        YDAY  => 7,
+        ISDST => 8,
+    };
+
+    use constant WEEKDAYS => qw(
+        Sunday Monday Tuesday Wednesday Thursday Friday Saturday
+    );
+
+    print "Today is ", (WEEKDAYS)[ (localtime)[WDAY] ], ".\n";
+
+=head1 DESCRIPTION
+
+This pragma allows you to declare constants at compile-time.
+
+When you declare a constant such as C<PI> using the method shown
+above, each machine your script runs upon can have as many digits
+of accuracy as it can use.  Also, your program will be easier to
+read, more likely to be maintained (and maintained correctly), and
+far less likely to send a space probe to the wrong planet because
+nobody noticed the one equation in which you wrote C<3.14195>.
+
+When a constant is used in an expression, Perl replaces it with its
+value at compile time, and may then optimize the expression further.
+In particular, any code in an C<if (CONSTANT)> block will be optimized
+away if the constant is false.
+
+=head1 NOTES
+
+As with all C<use> directives, defining a constant happens at
+compile time.  Thus, it's probably not correct to put a constant
+declaration inside of a conditional statement (like C<if ($foo)
+{ use constant ... }>).
+
+Constants defined using this module cannot be interpolated into
+strings like variables.  However, concatenation works just fine:
+
+    print "Pi equals PI...\n";        # WRONG: does not expand "PI"
+    print "Pi equals ".PI."...\n";    # right
+
+Even though a reference may be declared as a constant, the reference may
+point to data which may be changed, as this code shows.
+
+    use constant ARRAY => [ 1,2,3,4 ];
+    print ARRAY->[1];
+    ARRAY->[1] = " be changed";
+    print ARRAY->[1];
+
+Constants belong to the package they are defined in.  To refer to a
+constant defined in another package, specify the full package name, as
+in C<Some::Package::CONSTANT>.  Constants may be exported by modules,
+and may also be called as either class or instance methods, that is,
+as C<< Some::Package->CONSTANT >> or as C<< $obj->CONSTANT >> where
+C<$obj> is an instance of C<Some::Package>.  Subclasses may define
+their own constants to override those in their base class.
+
+As of version 1.32 of this module, constants can be defined in packages
+other than the caller, by including the package name in the name of the
+constant:
+
+    use constant "OtherPackage::FWIBBLE" => 7865;
+    constant->import("Other::FWOBBLE",$value); # dynamically at run time
+
+The use of all caps for constant names is merely a convention,
+although it is recommended in order to make constants stand out
+and to help avoid collisions with other barewords, keywords, and
+subroutine names.  Constant names must begin with a letter or
+underscore.  Names beginning with a double underscore are reserved.  Some
+poor choices for names will generate warnings, if warnings are enabled at
+compile time.
+
+=head2 List constants
+
+Constants may be lists of more (or less) than one value.  A constant
+with no values evaluates to C<undef> in scalar context.  Note that
+constants with more than one value do I<not> return their last value in
+scalar context as one might expect.  They currently return the number
+of values, but B<this may change in the future>.  Do not use constants
+with multiple values in scalar context.
+
+B<NOTE:> This implies that the expression defining the value of a
+constant is evaluated in list context.  This may produce surprises:
+
+    use constant TIMESTAMP => localtime;                # WRONG!
+    use constant TIMESTAMP => scalar localtime;         # right
+
+The first line above defines C<TIMESTAMP> as a 9-element list, as
+returned by C<localtime()> in list context.  To set it to the string
+returned by C<localtime()> in scalar context, an explicit C<scalar>
+keyword is required.
+
+List constants are lists, not arrays.  To index or slice them, they
+must be placed in parentheses.
+
+    my @workdays = WEEKDAYS[1 .. 5];            # WRONG!
+    my @workdays = (WEEKDAYS)[1 .. 5];          # right
+
+=head2 Defining multiple constants at once
+
+Instead of writing multiple C<use constant> statements, you may define
+multiple constants in a single statement by giving, instead of the
+constant name, a reference to a hash where the keys are the names of
+the constants to be defined.  Obviously, all constants defined using
+this method must have a single value.
+
+    use constant {
+        FOO => "A single value",
+        BAR => "This", "won't", "work!",        # Error!
+    };
+
+This is a fundamental limitation of the way hashes are constructed in
+Perl.  The error messages produced when this happens will often be
+quite cryptic -- in the worst case there may be none at all, and
+you'll only later find that something is broken.
+
+When defining multiple constants, you cannot use the values of other
+constants defined in the same declaration.  This is because the
+calling package doesn't know about any constant within that group
+until I<after> the C<use> statement is finished.
+
+    use constant {
+        BITMASK => 0xAFBAEBA8,
+        NEGMASK => ~BITMASK,                    # Error!
+    };
+
+=head2 Magic constants
+
+Magical values and references can be made into constants at compile
+time, allowing for way cool stuff like this.  (These error numbers
+aren't totally portable, alas.)
+
+    use constant E2BIG => ($! = 7);
+    print   E2BIG, "\n";        # something like "Arg list too long"
+    print 0+E2BIG, "\n";        # "7"
+
+You can't produce a tied constant by giving a tied scalar as the
+value.  References to tied variables, however, can be used as
+constants without any problems.
+
+=head1 TECHNICAL NOTES
+
+In the current implementation, scalar constants are actually
+inlinable subroutines.  As of version 5.004 of Perl, the appropriate
+scalar constant is inserted directly in place of some subroutine
+calls, thereby saving the overhead of a subroutine call.  See
+L<perlsub/"Constant Functions"> for details about how and when this
+happens.
+
+In the rare case in which you need to discover at run time whether a
+particular constant has been declared via this module, you may use
+this function to examine the hash C<%constant::declared>.  If the given
+constant name does not include a package name, the current package is
+used.
+
+    sub declared ($) {
+        use constant 1.01;              # don't omit this!
+        my $name = shift;
+        $name =~ s/^::/main::/;
+        my $pkg = caller;
+        my $full_name = $name =~ /::/ ? $name : "${pkg}::$name";
+        $constant::declared{$full_name};
+    }
+
+=head1 CAVEATS
+
+List constants are not inlined unless you are using Perl v5.20 or higher.
+In v5.20 or higher, they are still not read-only, but that may change in
+future versions.
+
+It is not possible to have a subroutine or a keyword with the same
+name as a constant in the same package.  This is probably a Good Thing.
+
+A constant with a name in the list C<STDIN STDOUT STDERR ARGV ARGVOUT
+ENV INC SIG> is not allowed anywhere but in package C<main::>, for
+technical reasons. 
+
+Unlike constants in some languages, these cannot be overridden
+on the command line or via environment variables.
+
+You can get into trouble if you use constants in a context which
+automatically quotes barewords (as is true for any subroutine call).
+For example, you can't say C<$hash{CONSTANT}> because C<CONSTANT> will
+be interpreted as a string.  Use C<$hash{CONSTANT()}> or
+C<$hash{+CONSTANT}> to prevent the bareword quoting mechanism from
+kicking in.  Similarly, since the C<< => >> operator quotes a bareword
+immediately to its left, you have to say C<< CONSTANT() => 'value' >>
+(or simply use a comma in place of the big arrow) instead of
+C<< CONSTANT => 'value' >>.
+
+=head1 SEE ALSO
+
+L<Readonly> - Facility for creating read-only scalars, arrays, hashes.
+
+L<Attribute::Constant> - Make read-only variables via attribute
+
+L<Scalar::Readonly> - Perl extension to the C<SvREADONLY> scalar flag
+
+L<Hash::Util> - A selection of general-utility hash subroutines (mostly
+to lock/unlock keys and values)
+
+=head1 BUGS
+
+Please report any bugs or feature requests via the perlbug(1) utility.
+
+=head1 AUTHORS
+
+Tom Phoenix, E<lt>F<rootbeer@redcat.com>E<gt>, with help from
+many other folks.
+
+Multiple constant declarations at once added by Casey West,
+E<lt>F<casey@geeknest.com>E<gt>.
+
+Documentation mostly rewritten by Ilmari Karonen,
+E<lt>F<perl@itz.pp.sci.fi>E<gt>.
+
+This program is maintained by the Perl 5 Porters. 
+The CPAN distribution is maintained by SE<eacute>bastien Aperghis-Tramoni
+E<lt>F<sebastien@aperghis.net>E<gt>.
+
+=head1 COPYRIGHT & LICENSE
+
+Copyright (C) 1997, 1999 Tom Phoenix
+
+This module is free software; you can redistribute it or modify it
+under the same terms as Perl itself.
+
+=cut
diff --git a/lib/5.24.1/deprecate.pm b/lib/5.24.1/deprecate.pm
new file mode 100644
index 00000000..47bc1125
--- /dev/null
+++ b/lib/5.24.1/deprecate.pm
@@ -0,0 +1,117 @@
+package deprecate;
+use strict;
+use warnings;
+our $VERSION = 0.03;
+
+# our %Config can ignore %Config::Config, e.g. for testing
+our %Config;
+unless (%Config) { require Config; *Config = \%Config::Config; }
+
+# This isn't a public API. It's internal to code maintained by the perl-porters
+# If you would like it to be a public API, please send a patch with
+# documentation and tests. Until then, it may change without warning.
+sub __loaded_from_core {
+    my ($package, $file, $expect_leaf) = @_;
+
+    foreach my $pair ([qw(sitearchexp archlibexp)],
+		      [qw(sitelibexp privlibexp)]) {
+	my ($site, $priv) = @Config{@$pair};
+	if ($^O eq 'VMS') {
+	    for my $d ($site, $priv) { $d = VMS::Filespec::unixify($d) };
+	}
+	# Just in case anyone managed to configure with trailing /s
+	s!/*$!!g foreach $site, $priv;
+
+	next if $site eq $priv;
+	if (uc("$priv/$expect_leaf") eq uc($file)) {
+	    return 1;
+	}
+    }
+    return 0;
+}
+
+sub import {
+    my ($package, $file) = caller;
+
+    my $expect_leaf = "$package.pm";
+    $expect_leaf =~ s!::!/!g;
+
+    if (__loaded_from_core($package, $file, $expect_leaf)) {
+	my $call_depth=1;
+	my @caller;
+	while (@caller = caller $call_depth++) {
+	    last if $caller[7]			# use/require
+		and $caller[6] eq $expect_leaf;	# the package file
+	}
+	unless (@caller) {
+	    require Carp;
+	    Carp::cluck(<<"EOM");
+Can't find use/require $expect_leaf in caller stack
+EOM
+	    return;
+	}
+
+	# This is fragile, because it
+	# is directly poking in the internals of warnings.pm
+	my ($call_file, $call_line, $callers_bitmask) = @caller[1,2,9];
+
+	if (defined $callers_bitmask
+	    && (vec($callers_bitmask, $warnings::Offsets{deprecated}, 1)
+		|| vec($callers_bitmask, $warnings::Offsets{all}, 1))) {
+	    warn <<"EOM";
+$package will be removed from the Perl core distribution in the next major release. Please install it from CPAN. It is being used at $call_file, line $call_line.
+EOM
+	}
+    }
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+deprecate - Perl pragma for deprecating the core version of a module
+
+=head1 SYNOPSIS
+
+    use deprecate;  # always deprecate the module in which this occurs
+
+    use if $] > 5.010, 'deprecate'; # conditionally deprecate the module
+
+
+=head1 DESCRIPTION
+
+This module is used using C<use deprecate;> (or something that calls
+C<< deprecate->import() >>, for example C<use if COND, deprecate;>).
+
+If the module that includes C<use deprecate> is located in a core library
+directory, a deprecation warning is issued, encouraging the user to use
+the version on CPAN.  If that module is located in a site library, it is
+the CPAN version, and no warning is issued.
+
+=head2 EXPORT
+
+None by default.  The only method is C<import>, called by C<use deprecate;>.
+
+
+=head1 SEE ALSO
+
+First example to C<use deprecate;> was L<Switch>.
+
+
+=head1 AUTHOR
+
+Original version by Nicholas Clark
+
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright (C) 2009, 2011
+
+This library is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself, either Perl version 5.10.0 or,
+at your option, any later version of Perl 5 you may have available.
+
+
+=cut
diff --git a/lib/5.24.1/diagnostics.pm b/lib/5.24.1/diagnostics.pm
new file mode 100644
index 00000000..40c6748c
--- /dev/null
+++ b/lib/5.24.1/diagnostics.pm
@@ -0,0 +1,704 @@
+package diagnostics;
+
+=head1 NAME
+
+diagnostics, splain - produce verbose warning diagnostics
+
+=head1 SYNOPSIS
+
+Using the C<diagnostics> pragma:
+
+    use diagnostics;
+    use diagnostics -verbose;
+
+    enable  diagnostics;
+    disable diagnostics;
+
+Using the C<splain> standalone filter program:
+
+    perl program 2>diag.out
+    splain [-v] [-p] diag.out
+
+Using diagnostics to get stack traces from a misbehaving script:
+
+    perl -Mdiagnostics=-traceonly my_script.pl
+
+=head1 DESCRIPTION
+
+=head2 The C<diagnostics> Pragma
+
+This module extends the terse diagnostics normally emitted by both the
+perl compiler and the perl interpreter (from running perl with a -w 
+switch or C<use warnings>), augmenting them with the more
+explicative and endearing descriptions found in L<perldiag>.  Like the
+other pragmata, it affects the compilation phase of your program rather
+than merely the execution phase.
+
+To use in your program as a pragma, merely invoke
+
+    use diagnostics;
+
+at the start (or near the start) of your program.  (Note 
+that this I<does> enable perl's B<-w> flag.)  Your whole
+compilation will then be subject(ed :-) to the enhanced diagnostics.
+These still go out B<STDERR>.
+
+Due to the interaction between runtime and compiletime issues,
+and because it's probably not a very good idea anyway,
+you may not use C<no diagnostics> to turn them off at compiletime.
+However, you may control their behaviour at runtime using the 
+disable() and enable() methods to turn them off and on respectively.
+
+The B<-verbose> flag first prints out the L<perldiag> introduction before
+any other diagnostics.  The $diagnostics::PRETTY variable can generate nicer
+escape sequences for pagers.
+
+Warnings dispatched from perl itself (or more accurately, those that match
+descriptions found in L<perldiag>) are only displayed once (no duplicate
+descriptions).  User code generated warnings a la warn() are unaffected,
+allowing duplicate user messages to be displayed.
+
+This module also adds a stack trace to the error message when perl dies.
+This is useful for pinpointing what
+caused the death.  The B<-traceonly> (or
+just B<-t>) flag turns off the explanations of warning messages leaving just
+the stack traces.  So if your script is dieing, run it again with
+
+  perl -Mdiagnostics=-traceonly my_bad_script
+
+to see the call stack at the time of death.  By supplying the B<-warntrace>
+(or just B<-w>) flag, any warnings emitted will also come with a stack
+trace.
+
+=head2 The I<splain> Program
+
+While apparently a whole nuther program, I<splain> is actually nothing
+more than a link to the (executable) F<diagnostics.pm> module, as well as
+a link to the F<diagnostics.pod> documentation.  The B<-v> flag is like
+the C<use diagnostics -verbose> directive.
+The B<-p> flag is like the
+$diagnostics::PRETTY variable.  Since you're post-processing with 
+I<splain>, there's no sense in being able to enable() or disable() processing.
+
+Output from I<splain> is directed to B<STDOUT>, unlike the pragma.
+
+=head1 EXAMPLES
+
+The following file is certain to trigger a few errors at both
+runtime and compiletime:
+
+    use diagnostics;
+    print NOWHERE "nothing\n";
+    print STDERR "\n\tThis message should be unadorned.\n";
+    warn "\tThis is a user warning";
+    print "\nDIAGNOSTIC TESTER: Please enter a <CR> here: ";
+    my $a, $b = scalar <STDIN>;
+    print "\n";
+    print $x/$y;
+
+If you prefer to run your program first and look at its problem
+afterwards, do this:
+
+    perl -w test.pl 2>test.out
+    ./splain < test.out
+
+Note that this is not in general possible in shells of more dubious heritage, 
+as the theoretical 
+
+    (perl -w test.pl >/dev/tty) >& test.out
+    ./splain < test.out
+
+Because you just moved the existing B<stdout> to somewhere else.
+
+If you don't want to modify your source code, but still have on-the-fly
+warnings, do this:
+
+    exec 3>&1; perl -w test.pl 2>&1 1>&3 3>&- | splain 1>&2 3>&- 
+
+Nifty, eh?
+
+If you want to control warnings on the fly, do something like this.
+Make sure you do the C<use> first, or you won't be able to get
+at the enable() or disable() methods.
+
+    use diagnostics; # checks entire compilation phase 
+	print "\ntime for 1st bogus diags: SQUAWKINGS\n";
+	print BOGUS1 'nada';
+	print "done with 1st bogus\n";
+
+    disable diagnostics; # only turns off runtime warnings
+	print "\ntime for 2nd bogus: (squelched)\n";
+	print BOGUS2 'nada';
+	print "done with 2nd bogus\n";
+
+    enable diagnostics; # turns back on runtime warnings
+	print "\ntime for 3rd bogus: SQUAWKINGS\n";
+	print BOGUS3 'nada';
+	print "done with 3rd bogus\n";
+
+    disable diagnostics;
+	print "\ntime for 4th bogus: (squelched)\n";
+	print BOGUS4 'nada';
+	print "done with 4th bogus\n";
+
+=head1 INTERNALS
+
+Diagnostic messages derive from the F<perldiag.pod> file when available at
+runtime.  Otherwise, they may be embedded in the file itself when the
+splain package is built.   See the F<Makefile> for details.
+
+If an extant $SIG{__WARN__} handler is discovered, it will continue
+to be honored, but only after the diagnostics::splainthis() function 
+(the module's $SIG{__WARN__} interceptor) has had its way with your
+warnings.
+
+There is a $diagnostics::DEBUG variable you may set if you're desperately
+curious what sorts of things are being intercepted.
+
+    BEGIN { $diagnostics::DEBUG = 1 } 
+
+
+=head1 BUGS
+
+Not being able to say "no diagnostics" is annoying, but may not be
+insurmountable.
+
+The C<-pretty> directive is called too late to affect matters.
+You have to do this instead, and I<before> you load the module.
+
+    BEGIN { $diagnostics::PRETTY = 1 } 
+
+I could start up faster by delaying compilation until it should be
+needed, but this gets a "panic: top_level" when using the pragma form
+in Perl 5.001e.
+
+While it's true that this documentation is somewhat subserious, if you use
+a program named I<splain>, you should expect a bit of whimsy.
+
+=head1 AUTHOR
+
+Tom Christiansen <F<tchrist@mox.perl.com>>, 25 June 1995.
+
+=cut
+
+use strict;
+use 5.009001;
+use Carp;
+$Carp::Internal{__PACKAGE__.""}++;
+
+our $VERSION = '1.34';
+our $DEBUG;
+our $VERBOSE;
+our $PRETTY;
+our $TRACEONLY = 0;
+our $WARNTRACE = 0;
+
+use Config;
+use Text::Tabs 'expand';
+my $privlib = $Config{privlibexp};
+if ($^O eq 'VMS') {
+    require VMS::Filespec;
+    $privlib = VMS::Filespec::unixify($privlib);
+}
+my @trypod = (
+	   "$privlib/pod/perldiag.pod",
+	   "$privlib/pods/perldiag.pod",
+	  );
+# handy for development testing of new warnings etc
+unshift @trypod, "./pod/perldiag.pod" if -e "pod/perldiag.pod";
+(my $PODFILE) = ((grep { -e } @trypod), $trypod[$#trypod])[0];
+
+$DEBUG ||= 0;
+
+local $| = 1;
+local $_;
+local $.;
+
+my $standalone;
+my(%HTML_2_Troff, %HTML_2_Latin_1, %HTML_2_ASCII_7);
+
+CONFIG: {
+    our $opt_p = our $opt_d = our $opt_v = our $opt_f = '';
+
+    unless (caller) {
+	$standalone++;
+	require Getopt::Std;
+	Getopt::Std::getopts('pdvf:')
+	    or die "Usage: $0 [-v] [-p] [-f splainpod]";
+	$PODFILE = $opt_f if $opt_f;
+	$DEBUG = 2 if $opt_d;
+	$VERBOSE = $opt_v;
+	$PRETTY = $opt_p;
+    }
+
+    if (open(POD_DIAG, $PODFILE)) {
+	warn "Happy happy podfile from real $PODFILE\n" if $DEBUG;
+	last CONFIG;
+    } 
+
+    if (caller) {
+	INCPATH: {
+	    for my $file ( (map { "$_/".__PACKAGE__.".pm" } @INC), $0) {
+		warn "Checking $file\n" if $DEBUG;
+		if (open(POD_DIAG, $file)) {
+		    while (<POD_DIAG>) {
+			next unless
+			    /^__END__\s*# wish diag dbase were more accessible/;
+			print STDERR "podfile is $file\n" if $DEBUG;
+			last INCPATH;
+		    }
+		}
+	    } 
+	}
+    } else { 
+	print STDERR "podfile is <DATA>\n" if $DEBUG;
+	*POD_DIAG = *main::DATA;
+    }
+}
+if (eof(POD_DIAG)) { 
+    die "couldn't find diagnostic data in $PODFILE @INC $0";
+}
+
+
+%HTML_2_Troff = (
+    'amp'	=>	'&',	#   ampersand
+    'lt'	=>	'<',	#   left chevron, less-than
+    'gt'	=>	'>',	#   right chevron, greater-than
+    'quot'	=>	'"',	#   double quote
+
+    "Aacute"	=>	"A\\*'",	#   capital A, acute accent
+    # etc
+
+);
+
+%HTML_2_Latin_1 = (
+    'amp'	=>	'&',	#   ampersand
+    'lt'	=>	'<',	#   left chevron, less-than
+    'gt'	=>	'>',	#   right chevron, greater-than
+    'quot'	=>	'"',	#   double quote
+
+    "Aacute"	=>	"\xC1"	#   capital A, acute accent
+
+    # etc
+);
+
+%HTML_2_ASCII_7 = (
+    'amp'	=>	'&',	#   ampersand
+    'lt'	=>	'<',	#   left chevron, less-than
+    'gt'	=>	'>',	#   right chevron, greater-than
+    'quot'	=>	'"',	#   double quote
+
+    "Aacute"	=>	"A"	#   capital A, acute accent
+    # etc
+);
+
+our %HTML_Escapes;
+*HTML_Escapes = do {
+    if ($standalone) {
+	$PRETTY ? \%HTML_2_Latin_1 : \%HTML_2_ASCII_7; 
+    } else {
+	\%HTML_2_Latin_1; 
+    }
+}; 
+
+*THITHER = $standalone ? *STDOUT : *STDERR;
+
+my %transfmt = (); 
+my $transmo = <<EOFUNC;
+sub transmo {
+    #local \$^W = 0;  # recursive warnings we do NOT need!
+EOFUNC
+
+my %msg;
+{
+    print STDERR "FINISHING COMPILATION for $_\n" if $DEBUG;
+    local $/ = '';
+    local $_;
+    my $header;
+    my @headers;
+    my $for_item;
+    my $seen_body;
+    while (<POD_DIAG>) {
+
+	sub _split_pod_link {
+	    $_[0] =~ m'(?:([^|]*)\|)?([^/]*)(?:/("?)(.*)\3)?'s;
+	    ($1,$2,$4);
+	}
+
+	unescape();
+	if ($PRETTY) {
+	    sub noop   { return $_[0] }  # spensive for a noop
+	    sub bold   { my $str =$_[0];  $str =~ s/(.)/$1\b$1/g; return $str; } 
+	    sub italic { my $str = $_[0]; $str =~ s/(.)/_\b$1/g;  return $str; } 
+	    s/C<<< (.*?) >>>|C<< (.*?) >>|[BC]<(.*?)>/bold($+)/ges;
+	    s/[IF]<(.*?)>/italic($1)/ges;
+	    s/L<(.*?)>/
+	       my($text,$page,$sect) = _split_pod_link($1);
+	       defined $text
+	        ? $text
+	        : defined $sect
+	           ? italic($sect) . ' in ' . italic($page)
+	           : italic($page)
+	     /ges;
+	     s/S<(.*?)>/
+               $1
+             /ges;
+	} else {
+	    s/C<<< (.*?) >>>|C<< (.*?) >>|[BC]<(.*?)>/$+/gs;
+	    s/[IF]<(.*?)>/$1/gs;
+	    s/L<(.*?)>/
+	       my($text,$page,$sect) = _split_pod_link($1);
+	       defined $text
+	        ? $text
+	        : defined $sect
+	           ? qq '"$sect" in $page'
+	           : $page
+	     /ges;
+	    s/S<(.*?)>/
+               $1
+             /ges;
+	} 
+	unless (/^=/) {
+	    if (defined $header) { 
+		if ( $header eq 'DESCRIPTION' && 
+		    (   /Optional warnings are enabled/ 
+		     || /Some of these messages are generic./
+		    ) )
+		{
+		    next;
+		}
+		$_ = expand $_;
+		s/^/    /gm;
+		$msg{$header} .= $_;
+		for my $h(@headers) { $msg{$h} .= $_ }
+		++$seen_body;
+	 	undef $for_item;	
+	    }
+	    next;
+	} 
+
+	# If we have not come across the body of the description yet, then
+	# the previous header needs to share the same description.
+	if ($seen_body) {
+	    @headers = ();
+	}
+	else {
+	    push @headers, $header if defined $header;
+	}
+
+	unless ( s/=item (.*?)\s*\z//s) {
+
+	    if ( s/=head1\sDESCRIPTION//) {
+		$msg{$header = 'DESCRIPTION'} = '';
+		undef $for_item;
+	    }
+	    elsif( s/^=for\s+diagnostics\s*\n(.*?)\s*\z// ) {
+		$for_item = $1;
+	    }
+	    elsif( /^=back/ ) { # Stop processing body here
+		undef $header;
+		undef $for_item;
+		$seen_body = 0;
+		next;
+	    }
+	    next;
+	}
+
+	if( $for_item ) { $header = $for_item; undef $for_item } 
+	else {
+	    $header = $1;
+
+	    $header =~ s/\n/ /gs; # Allow multi-line headers
+	}
+
+	# strip formatting directives from =item line
+	$header =~ s/[A-Z]<(.*?)>/$1/g;
+
+	# Since we strip "(\.\s*)\n" when we search a warning, strip it here as well
+	$header =~ s/(\.\s*)?$//;
+
+        my @toks = split( /(%l?[dxX]|%[ucp]|%(?:\.\d+)?[fs])/, $header );
+	if (@toks > 1) {
+            my $conlen = 0;
+            for my $i (0..$#toks){
+                if( $i % 2 ){
+                    if(      $toks[$i] eq '%c' ){
+                        $toks[$i] = '.';
+                    } elsif( $toks[$i] =~ /^%(?:d|u)$/ ){
+                        $toks[$i] = '\d+';
+                    } elsif( $toks[$i] =~ '^%(?:s|.*f)$' ){
+                        $toks[$i] = $i == $#toks ? '.*' : '.*?';
+                    } elsif( $toks[$i] =~ '%.(\d+)s' ){
+                        $toks[$i] = ".{$1}";
+                    } elsif( $toks[$i] =~ '^%l*([pxX])$' ){
+                        $toks[$i] = $1 eq 'X' ? '[\dA-F]+' : '[\da-f]+';
+                    }
+                } elsif( length( $toks[$i] ) ){
+                    $toks[$i] = quotemeta $toks[$i];
+                    $conlen += length( $toks[$i] );
+                }
+            }  
+            my $lhs = join( '', @toks );
+            $lhs =~ s/(\\\s)+/\\s+/g; # Replace lit space with multi-space match
+	    $transfmt{$header}{pat} =
+              "    s^\\s*$lhs\\s*\Q$header\Es\n\t&& return 1;\n";
+            $transfmt{$header}{len} = $conlen;
+	} else {
+            my $lhs = "\Q$header\E";
+            $lhs =~ s/(\\\s)+/\\s+/g; # Replace lit space with multi-space match
+            $transfmt{$header}{pat} =
+	      "    s^\\s*$lhs\\s*\Q$header\E\n\t && return 1;\n";
+            $transfmt{$header}{len} = length( $header );
+	} 
+
+	print STDERR __PACKAGE__.": Duplicate entry: \"$header\"\n"
+	    if $msg{$header};
+
+	$msg{$header} = '';
+	$seen_body = 0;
+    } 
+
+
+    close POD_DIAG unless *main::DATA eq *POD_DIAG;
+
+    die "No diagnostics?" unless %msg;
+
+    # Apply patterns in order of decreasing sum of lengths of fixed parts
+    # Seems the best way of hitting the right one.
+    for my $hdr ( sort { $transfmt{$b}{len} <=> $transfmt{$a}{len} }
+                  keys %transfmt ){
+        $transmo .= $transfmt{$hdr}{pat};
+    }
+    $transmo .= "    return 0;\n}\n";
+    print STDERR $transmo if $DEBUG;
+    eval $transmo;
+    die $@ if $@;
+}
+
+if ($standalone) {
+    if (!@ARGV and -t STDIN) { print STDERR "$0: Reading from STDIN\n" } 
+    while (defined (my $error = <>)) {
+	splainthis($error) || print THITHER $error;
+    } 
+    exit;
+} 
+
+my $olddie;
+my $oldwarn;
+
+sub import {
+    shift;
+    $^W = 1; # yup, clobbered the global variable; 
+	     # tough, if you want diags, you want diags.
+    return if defined $SIG{__WARN__} && ($SIG{__WARN__} eq \&warn_trap);
+
+    for (@_) {
+
+	/^-d(ebug)?$/ 	   	&& do {
+				    $DEBUG++;
+				    next;
+				   };
+
+	/^-v(erbose)?$/ 	&& do {
+				    $VERBOSE++;
+				    next;
+				   };
+
+	/^-p(retty)?$/ 		&& do {
+				    print STDERR "$0: I'm afraid it's too late for prettiness.\n";
+				    $PRETTY++;
+				    next;
+			       };
+	# matches trace and traceonly for legacy doc mixup reasons
+	/^-t(race(only)?)?$/	&& do {
+				    $TRACEONLY++;
+				    next;
+			       };
+	/^-w(arntrace)?$/ 	&& do {
+				    $WARNTRACE++;
+				    next;
+			       };
+
+	warn "Unknown flag: $_";
+    } 
+
+    $oldwarn = $SIG{__WARN__};
+    $olddie = $SIG{__DIE__};
+    $SIG{__WARN__} = \&warn_trap;
+    $SIG{__DIE__} = \&death_trap;
+} 
+
+sub enable { &import }
+
+sub disable {
+    shift;
+    return unless $SIG{__WARN__} eq \&warn_trap;
+    $SIG{__WARN__} = $oldwarn || '';
+    $SIG{__DIE__} = $olddie || '';
+} 
+
+sub warn_trap {
+    my $warning = $_[0];
+    if (caller eq __PACKAGE__ or !splainthis($warning)) {
+	if ($WARNTRACE) {
+	    print STDERR Carp::longmess($warning);
+	} else {
+	    print STDERR $warning;
+	}
+    } 
+    goto &$oldwarn if defined $oldwarn and $oldwarn and $oldwarn ne \&warn_trap;
+};
+
+sub death_trap {
+    my $exception = $_[0];
+
+    # See if we are coming from anywhere within an eval. If so we don't
+    # want to explain the exception because it's going to get caught.
+    my $in_eval = 0;
+    my $i = 0;
+    while (my $caller = (caller($i++))[3]) {
+      if ($caller eq '(eval)') {
+	$in_eval = 1;
+	last;
+      }
+    }
+
+    splainthis($exception) unless $in_eval;
+    if (caller eq __PACKAGE__) {
+	print STDERR "INTERNAL EXCEPTION: $exception";
+    } 
+    &$olddie if defined $olddie and $olddie and $olddie ne \&death_trap;
+
+    return if $in_eval;
+
+    # We don't want to unset these if we're coming from an eval because
+    # then we've turned off diagnostics.
+
+    # Switch off our die/warn handlers so we don't wind up in our own
+    # traps.
+    $SIG{__DIE__} = $SIG{__WARN__} = '';
+
+    $exception =~ s/\n(?=.)/\n\t/gas;
+
+    die Carp::longmess("__diagnostics__")
+	  =~ s/^__diagnostics__.*?line \d+\.?\n/
+		  "Uncaught exception from user code:\n\t$exception"
+	      /re;
+	# up we go; where we stop, nobody knows, but i think we die now
+	# but i'm deeply afraid of the &$olddie guy reraising and us getting
+	# into an indirect recursion loop
+};
+
+my %exact_duplicate;
+my %old_diag;
+my $count;
+my $wantspace;
+sub splainthis {
+  return 0 if $TRACEONLY;
+  for (my $tmp = shift) {
+    local $\;
+    local $!;
+    ### &finish_compilation unless %msg;
+    s/(\.\s*)?\n+$//;
+    my $orig = $_;
+    # return unless defined;
+
+    # get rid of the where-are-we-in-input part
+    s/, <.*?> (?:line|chunk).*$//;
+
+    # Discard 1st " at <file> line <no>" and all text beyond
+    # but be aware of messages containing " at this-or-that"
+    my $real = 0;
+    my @secs = split( / at / );
+    return unless @secs;
+    $_ = $secs[0];
+    for my $i ( 1..$#secs ){
+        if( $secs[$i] =~ /.+? (?:line|chunk) \d+/ ){
+            $real = 1;
+            last;
+        } else {
+            $_ .= ' at ' . $secs[$i];
+	}
+    }
+
+    # remove parenthesis occurring at the end of some messages 
+    s/^\((.*)\)$/$1/;
+
+    if ($exact_duplicate{$orig}++) {
+	return &transmo;
+    } else {
+	return 0 unless &transmo;
+    }
+
+    my $short = shorten($orig);
+    if ($old_diag{$_}) {
+	autodescribe();
+	print THITHER "$short (#$old_diag{$_})\n";
+	$wantspace = 1;
+    } elsif (!$msg{$_} && $orig =~ /\n./s) {
+	# A multiline message, like "Attempt to reload /
+	# Compilation failed"
+	my $found;
+	for (split /^/, $orig) {
+	    splainthis($_) and $found = 1;
+	}
+	return $found;
+    } else {
+	autodescribe();
+	$old_diag{$_} = ++$count;
+	print THITHER "\n" if $wantspace;
+	$wantspace = 0;
+	print THITHER "$short (#$old_diag{$_})\n";
+	if ($msg{$_}) {
+	    print THITHER $msg{$_};
+	} else {
+	    if (0 and $standalone) { 
+		print THITHER "    **** Error #$old_diag{$_} ",
+			($real ? "is" : "appears to be"),
+			" an unknown diagnostic message.\n\n";
+	    }
+	    return 0;
+	} 
+    }
+    return 1;
+  }
+} 
+
+sub autodescribe {
+    if ($VERBOSE and not $count) {
+	print THITHER &{$PRETTY ? \&bold : \&noop}("DESCRIPTION OF DIAGNOSTICS"),
+		"\n$msg{DESCRIPTION}\n";
+    } 
+} 
+
+sub unescape { 
+    s {
+            E<  
+            ( [A-Za-z]+ )       
+            >   
+    } { 
+         do {   
+             exists $HTML_Escapes{$1}
+                ? do { $HTML_Escapes{$1} }
+                : do {
+                    warn "Unknown escape: E<$1> in $_";
+                    "E<$1>";
+                } 
+         } 
+    }egx;
+}
+
+sub shorten {
+    my $line = $_[0];
+    if (length($line) > 79 and index($line, "\n") == -1) {
+	my $space_place = rindex($line, ' ', 79);
+	if ($space_place != -1) {
+	    substr($line, $space_place, 1) = "\n\t";
+	} 
+    } 
+    return $line;
+} 
+
+
+1 unless $standalone;  # or it'll complain about itself
+__END__ # wish diag dbase were more accessible
diff --git a/lib/5.24.1/dumpvar.pl b/lib/5.24.1/dumpvar.pl
new file mode 100644
index 00000000..b2f3798c
--- /dev/null
+++ b/lib/5.24.1/dumpvar.pl
@@ -0,0 +1,564 @@
+require 5.014;			# For more reliable $@ after eval
+package dumpvar;
+
+# Needed for PrettyPrinter only:
+
+# require 5.001;  # Well, it coredumps anyway undef DB in 5.000 (not now)
+
+# translate control chars to ^X - Randal Schwartz
+# Modifications to print types by Peter Gordon v1.0
+
+# Ilya Zakharevich -- patches after 5.001 (and some before ;-)
+
+# Won't dump symbol tables and contents of debugged files by default
+
+$winsize = 80 unless defined $winsize;
+
+sub ASCII { return ord('A') == 65; }
+
+
+# Defaults
+
+# $globPrint = 1;
+$printUndef = 1 unless defined $printUndef;
+$tick = "auto" unless defined $tick;
+$unctrl = 'quote' unless defined $unctrl;
+$subdump = 1;
+$dumpReused = 0 unless defined $dumpReused;
+$bareStringify = 1 unless defined $bareStringify;
+
+my $APC = chr utf8::unicode_to_native(0x9F);
+my $backslash_c_question = (ASCII) ? '\177' : $APC;
+
+sub main::dumpValue {
+  local %address;
+  local $^W=0;
+  (print "undef\n"), return unless defined $_[0];
+  (print &stringify($_[0]), "\n"), return unless ref $_[0];
+  push @_, -1 if @_ == 1;
+  dumpvar::unwrap($_[0], 0, $_[1]);
+}
+
+# This one is good for variable names:
+
+sub unctrl {
+    for (my($dummy) = shift) {
+	local($v) ; 
+
+	return \$_ if ref \$_ eq "GLOB";
+        s/([\000-\037])/ '^' . chr(utf8::unicode_to_native(ord($1)^64))/eg;
+        s/ $backslash_c_question /^?/xg;
+	return $_;
+    }
+}
+
+sub uniescape {
+    join("",
+	 map { $_ > 255 ? sprintf("\\x{%04X}", $_) : chr($_) }
+	     unpack("W*", $_[0]));
+}
+
+sub stringify {
+  my $string;
+  if (eval { $string = _stringify(@_); 1 }) {
+    return $string;
+  }
+
+  return "<< value could not be dumped: $@ >>";
+}
+
+sub _stringify {
+    (my $__, local $noticks) = @_;
+    for ($__) {
+	local($v) ; 
+	my $tick = $tick;
+
+	return 'undef' unless defined $_ or not $printUndef;
+	return $_ . "" if ref \$_ eq 'GLOB';
+	$_ = &{'overload::StrVal'}($_) 
+	  if $bareStringify and ref $_ 
+	    and %overload:: and defined &{'overload::StrVal'};
+	
+	if ($tick eq 'auto') {
+            if (/[^[:^cntrl:]\n]/u) {   # All controls but \n get '"'
+                $tick = '"';
+            } else {
+                $tick = "'";
+            }
+	}
+	if ($tick eq "'") {
+	  s/([\'\\])/\\$1/g;
+	} elsif ($unctrl eq 'unctrl') {
+	  s/([\"\\])/\\$1/g ;
+          $_ = &unctrl($_);
+	  # uniescape?
+	  s/([[:^ascii:]])/'\\0x'.sprintf('%2X',ord($1))/eg
+	    if $quoteHighBit;
+	} elsif ($unctrl eq 'quote') {
+	  s/([\"\\\$\@])/\\$1/g if $tick eq '"';
+	  s/\e/\\e/g;
+          s/([\000-\037$backslash_c_question])/'\\c'._escaped_ord($1)/eg;
+	}
+	$_ = uniescape($_);
+	s/([[:^ascii:]])/'\\'.sprintf('%3o',ord($1))/eg if $quoteHighBit;
+	return ($noticks || /^\d+(\.\d*)?\Z/) 
+	  ? $_ 
+	  : $tick . $_ . $tick;
+    }
+}
+
+# Ensure a resulting \ is escaped to be \\
+sub _escaped_ord {
+    my $chr = shift;
+    if ($chr eq $backslash_c_question) {
+        $chr = '?';
+    }
+    else {
+        $chr = chr(utf8::unicode_to_native(ord($chr)^64));
+        $chr =~ s{\\}{\\\\}g;
+    }
+    return $chr;
+}
+
+sub ShortArray {
+  my $tArrayDepth = $#{$_[0]} ; 
+  $tArrayDepth = $#{$_[0]} < $arrayDepth-1 ? $#{$_[0]} : $arrayDepth-1 
+    unless  $arrayDepth eq '' ; 
+  my $shortmore = "";
+  $shortmore = " ..." if $tArrayDepth < $#{$_[0]} ;
+  if (!grep(ref $_, @{$_[0]})) {
+    $short = "0..$#{$_[0]}  '" . 
+      join("' '", @{$_[0]}[0..$tArrayDepth]) . "'$shortmore";
+    return $short if length $short <= $compactDump;
+  }
+  undef;
+}
+
+sub DumpElem {
+  my $short = &stringify($_[0], ref $_[0]);
+  if ($veryCompact && ref $_[0]
+      && (ref $_[0] eq 'ARRAY' and !grep(ref $_, @{$_[0]}) )) {
+    my $end = "0..$#{$v}  '" . 
+      join("' '", @{$_[0]}[0..$tArrayDepth]) . "'$shortmore";
+  } elsif ($veryCompact && ref $_[0]
+      && (ref $_[0] eq 'HASH') and !grep(ref $_, values %{$_[0]})) {
+    my $end = 1;
+	  $short = $sp . "0..$#{$v}  '" . 
+	    join("' '", @{$v}[0..$tArrayDepth]) . "'$shortmore";
+  } else {
+    print "$short\n";
+    unwrap($_[0],$_[1],$_[2]) if ref $_[0];
+  }
+}
+
+sub unwrap {
+    return if $DB::signal;
+    local($v) = shift ; 
+    local($s) = shift ; # extra no of spaces
+    local($m) = shift ; # maximum recursion depth
+    return if $m == 0;
+    local(%v,@v,$sp,$value,$key,@sortKeys,$more,$shortmore,$short) ;
+    local($tHashDepth,$tArrayDepth) ;
+
+    $sp = " " x $s ;
+    $s += 3 ; 
+
+    eval {
+    # Check for reused addresses
+    if (ref $v) { 
+      my $val = $v;
+      $val = &{'overload::StrVal'}($v) 
+	if %overload:: and defined &{'overload::StrVal'};
+      # Match type and address.                      
+      # Unblessed references will look like TYPE(0x...)
+      # Blessed references will look like Class=TYPE(0x...)
+      $val =~ s/^.*=//; # suppress the Class part, just keep TYPE(0x...)
+      ($item_type, $address) = 
+        $val =~ /([^\(]+)        # Keep stuff that's     
+                                 # not an open paren
+                 \(              # Skip open paren
+                 (0x[0-9a-f]+)   # Save the address
+                 \)              # Skip close paren
+                 $/x;            # Should be at end now
+
+      if (!$dumpReused && defined $address) { 
+	$address{$address}++ ;
+	if ( $address{$address} > 1 ) { 
+	  print "${sp}-> REUSED_ADDRESS\n" ; 
+	  return ; 
+	} 
+      }
+    } elsif (ref \$v eq 'GLOB') {
+      # This is a raw glob. Special handling for that.
+      $address = "$v" . "";	# To avoid a bug with globs
+      $address{$address}++ ;
+      if ( $address{$address} > 1 ) { 
+	print "${sp}*DUMPED_GLOB*\n" ; 
+	return ; 
+      } 
+    }
+
+    if (ref $v eq 'Regexp') {
+      # Reformat the regexp to look the standard way.
+      my $re = "$v";
+      $re =~ s,/,\\/,g;
+      print "$sp-> qr/$re/\n";
+      return;
+    }
+
+    if ( $item_type eq 'HASH' ) { 
+        # Hash ref or hash-based object.
+	my @sortKeys = sort keys(%$v) ;
+	undef $more ; 
+	$tHashDepth = $#sortKeys ; 
+	$tHashDepth = $#sortKeys < $hashDepth-1 ? $#sortKeys : $hashDepth-1
+	  unless $hashDepth eq '' ; 
+	$more = "....\n" if $tHashDepth < $#sortKeys ; 
+	$shortmore = "";
+	$shortmore = ", ..." if $tHashDepth < $#sortKeys ; 
+	$#sortKeys = $tHashDepth ; 
+	if ($compactDump && !grep(ref $_, values %{$v})) {
+	  #$short = $sp . 
+	  #  (join ', ', 
+# Next row core dumps during require from DB on 5.000, even with map {"_"}
+	  #   map {&stringify($_) . " => " . &stringify($v->{$_})} 
+	  #   @sortKeys) . "'$shortmore";
+	  $short = $sp;
+	  my @keys;
+	  for (@sortKeys) {
+	    push @keys, &stringify($_) . " => " . &stringify($v->{$_});
+	  }
+	  $short .= join ', ', @keys;
+	  $short .= $shortmore;
+	  (print "$short\n"), return if length $short <= $compactDump;
+	}
+	for $key (@sortKeys) {
+	    return if $DB::signal;
+	    $value = $ {$v}{$key} ;
+	    print "$sp", &stringify($key), " => ";
+	    DumpElem $value, $s, $m-1;
+	}
+	print "$sp  empty hash\n" unless @sortKeys;
+	print "$sp$more" if defined $more ;
+    } elsif ( $item_type eq 'ARRAY' ) { 
+        # Array ref or array-based object. Also: undef.
+        # See how big the array is.
+	$tArrayDepth = $#{$v} ; 
+	undef $more ; 
+        # Bigger than the max?
+	$tArrayDepth = $#{$v} < $arrayDepth-1 ? $#{$v} : $arrayDepth-1 
+	  if defined $arrayDepth && $arrayDepth ne '';
+        # Yep. Don't show it all.
+	$more = "....\n" if $tArrayDepth < $#{$v} ; 
+	$shortmore = "";
+	$shortmore = " ..." if $tArrayDepth < $#{$v} ;
+
+	if ($compactDump && !grep(ref $_, @{$v})) {
+	  if ($#$v >= 0) {
+	    $short = $sp . "0..$#{$v}  " . 
+	      join(" ", 
+		   map {exists $v->[$_] ? stringify $v->[$_] : "empty"} (0..$tArrayDepth)
+		  ) . "$shortmore";
+	  } else {
+	    $short = $sp . "empty array";
+	  }
+	  (print "$short\n"), return if length $short <= $compactDump;
+	}
+	#if ($compactDump && $short = ShortArray($v)) {
+	#  print "$short\n";
+	#  return;
+	#}
+	for $num (0 .. $tArrayDepth) {
+	    return if $DB::signal;
+	    print "$sp$num  ";
+	    if (exists $v->[$num]) {
+                if (defined $v->[$num]) {
+	          DumpElem $v->[$num], $s, $m-1;
+                } 
+                else {
+                  print "undef\n";
+                }
+	    } else {
+	    	print "empty slot\n";
+	    }
+	}
+	print "$sp  empty array\n" unless @$v;
+	print "$sp$more" if defined $more ;  
+    } elsif ( $item_type eq 'SCALAR' ) { 
+            unless (defined $$v) {
+              print "$sp-> undef\n";
+              return;
+            }
+	    print "$sp-> ";
+	    DumpElem $$v, $s, $m-1;
+    } elsif ( $item_type eq 'REF' ) { 
+	    print "$sp-> $$v\n";
+            return unless defined $$v;
+	    unwrap($$v, $s+3, $m-1);
+    } elsif ( $item_type eq 'CODE' ) { 
+            # Code object or reference.
+	    print "$sp-> ";
+	    dumpsub (0, $v);
+    } elsif ( $item_type eq 'GLOB' ) {
+      # Glob object or reference.
+      print "$sp-> ",&stringify($$v,1),"\n";
+      if ($globPrint) {
+	$s += 3;
+       dumpglob($s, "{$$v}", $$v, 1, $m-1);
+      } elsif (defined ($fileno = eval {fileno($v)})) {
+	print( (' ' x ($s+3)) .  "FileHandle({$$v}) => fileno($fileno)\n" );
+      }
+    } elsif (ref \$v eq 'GLOB') {
+      # Raw glob (again?)
+      if ($globPrint) {
+       dumpglob($s, "{$v}", $v, 1, $m-1) if $globPrint;
+      } elsif (defined ($fileno = eval {fileno(\$v)})) {
+	print( (' ' x $s) .  "FileHandle({$v}) => fileno($fileno)\n" );
+      }
+    }
+    };
+    if ($@) {
+      print( (' ' x $s) .  "<< value could not be dumped: $@ >>\n");
+    }
+
+    return;
+}
+
+sub matchlex {
+  (my $var = $_[0]) =~ s/.//;
+  $var eq $_[1] or 
+    ($_[1] =~ /^([!~])(.)([\x00-\xff]*)/) and 
+      ($1 eq '!') ^ (eval { $var =~ /$2$3/ });
+}
+
+sub matchvar {
+  $_[0] eq $_[1] or 
+    ($_[1] =~ /^([!~])(.)([\x00-\xff]*)/) and 
+      ($1 eq '!') ^ (eval {($_[2] . "::" . $_[0]) =~ /$2$3/});
+}
+
+sub compactDump {
+  $compactDump = shift if @_;
+  $compactDump = 6*80-1 if $compactDump and $compactDump < 2;
+  $compactDump;
+}
+
+sub veryCompact {
+  $veryCompact = shift if @_;
+  compactDump(1) if !$compactDump and $veryCompact;
+  $veryCompact;
+}
+
+sub unctrlSet {
+  if (@_) {
+    my $in = shift;
+    if ($in eq 'unctrl' or $in eq 'quote') {
+      $unctrl = $in;
+    } else {
+      print "Unknown value for 'unctrl'.\n";
+    }
+  }
+  $unctrl;
+}
+
+sub quote {
+  if (@_ and $_[0] eq '"') {
+    $tick = '"';
+    $unctrl = 'quote';
+  } elsif (@_ and $_[0] eq 'auto') {
+    $tick = 'auto';
+    $unctrl = 'quote';
+  } elsif (@_) {		# Need to set
+    $tick = "'";
+    $unctrl = 'unctrl';
+  }
+  $tick;
+}
+
+sub dumpglob {
+    return if $DB::signal;
+    my ($off,$key, $val, $all, $m) = @_;
+    local(*entry) = $val;
+    my $fileno;
+    if (($key !~ /^_</ or $dumpDBFiles) and defined $entry) {
+      print( (' ' x $off) . "\$", &unctrl($key), " = " );
+      DumpElem $entry, 3+$off, $m;
+    }
+    if (($key !~ /^_</ or $dumpDBFiles) and @entry) {
+      print( (' ' x $off) . "\@$key = (\n" );
+      unwrap(\@entry,3+$off,$m) ;
+      print( (' ' x $off) .  ")\n" );
+    }
+    if ($key ne "main::" && $key ne "DB::" && %entry
+	&& ($dumpPackages or $key !~ /::$/)
+	&& ($key !~ /^_</ or $dumpDBFiles)
+	&& !($package eq "dumpvar" and $key eq "stab")) {
+      print( (' ' x $off) . "\%$key = (\n" );
+      unwrap(\%entry,3+$off,$m) ;
+      print( (' ' x $off) .  ")\n" );
+    }
+    if (defined ($fileno = eval{fileno(*entry)})) {
+      print( (' ' x $off) .  "FileHandle($key) => fileno($fileno)\n" );
+    }
+    if ($all) {
+      if (defined &entry) {
+	dumpsub($off, $key);
+      }
+    }
+}
+
+sub dumplex {
+  return if $DB::signal;
+  my ($key, $val, $m, @vars) = @_;
+  return if @vars && !grep( matchlex($key, $_), @vars );
+  local %address;
+  my $off = 0;  # It reads better this way
+  my $fileno;
+  if (UNIVERSAL::isa($val,'ARRAY')) {
+    print( (' ' x $off) . "$key = (\n" );
+    unwrap($val,3+$off,$m) ;
+    print( (' ' x $off) .  ")\n" );
+  }
+  elsif (UNIVERSAL::isa($val,'HASH')) {
+    print( (' ' x $off) . "$key = (\n" );
+    unwrap($val,3+$off,$m) ;
+    print( (' ' x $off) .  ")\n" );
+  }
+  elsif (UNIVERSAL::isa($val,'IO')) {
+    print( (' ' x $off) .  "FileHandle($key) => fileno($fileno)\n" );
+  }
+  #  No lexical subroutines yet...
+  #  elsif (UNIVERSAL::isa($val,'CODE')) {
+  #    dumpsub($off, $$val);
+  #  }
+  else {
+    print( (' ' x $off) . &unctrl($key), " = " );
+    DumpElem $$val, 3+$off, $m;
+  }
+}
+
+sub CvGV_name_or_bust {
+  my $in = shift;
+  return if $skipCvGV;		# Backdoor to avoid problems if XS broken...
+  $in = \&$in;			# Hard reference...
+  eval {require Devel::Peek; 1} or return;
+  my $gv = Devel::Peek::CvGV($in) or return;
+  *$gv{PACKAGE} . '::' . *$gv{NAME};
+}
+
+sub dumpsub {
+    my ($off,$sub) = @_;
+    my $ini = $sub;
+    my $s;
+    $sub = $1 if $sub =~ /^\{\*(.*)\}$/;
+    my $subref = defined $1 ? \&$sub : \&$ini;
+    my $place = $DB::sub{$sub} || (($s = $subs{"$subref"}) && $DB::sub{$s})
+      || (($s = CvGV_name_or_bust($subref)) && $DB::sub{$s})
+      || ($subdump && ($s = findsubs("$subref")) && $DB::sub{$s});
+    $place = '???' unless defined $place;
+    $s = $sub unless defined $s;
+    print( (' ' x $off) .  "&$s in $place\n" );
+}
+
+sub findsubs {
+  return undef unless %DB::sub;
+  my ($addr, $name, $loc);
+  while (($name, $loc) = each %DB::sub) {
+    $addr = \&$name;
+    $subs{"$addr"} = $name;
+  }
+  $subdump = 0;
+  $subs{ shift() };
+}
+
+sub main::dumpvar {
+    my ($package,$m,@vars) = @_;
+    local(%address,$key,$val,$^W);
+    $package .= "::" unless $package =~ /::$/;
+    *stab = *{"main::"};
+    while ($package =~ /(\w+?::)/g){
+      *stab = $ {stab}{$1};
+    }
+    local $TotalStrings = 0;
+    local $Strings = 0;
+    local $CompleteTotal = 0;
+    while (($key,$val) = each(%stab)) {
+      return if $DB::signal;
+      next if @vars && !grep( matchvar($key, $_), @vars );
+      if ($usageOnly) {
+	globUsage(\$val, $key)
+	  if ($package ne 'dumpvar' or $key ne 'stab')
+	     and ref(\$val) eq 'GLOB';
+      } else {
+       dumpglob(0,$key, $val, 0, $m);
+      }
+    }
+    if ($usageOnly) {
+      print "String space: $TotalStrings bytes in $Strings strings.\n";
+      $CompleteTotal += $TotalStrings;
+      print "Grand total = $CompleteTotal bytes (1 level deep) + overhead.\n";
+    }
+}
+
+sub scalarUsage {
+  my $size = length($_[0]);
+  $TotalStrings += $size;
+  $Strings++;
+  $size;
+}
+
+sub arrayUsage {		# array ref, name
+  my $size = 0;
+  map {$size += scalarUsage($_)} @{$_[0]};
+  my $len = @{$_[0]};
+  print "\@$_[1] = $len item", ($len > 1 ? "s" : ""),
+    " (data: $size bytes)\n"
+      if defined $_[1];
+  $CompleteTotal +=  $size;
+  $size;
+}
+
+sub hashUsage {		# hash ref, name
+  my @keys = keys %{$_[0]};
+  my @values = values %{$_[0]};
+  my $keys = arrayUsage \@keys;
+  my $values = arrayUsage \@values;
+  my $len = @keys;
+  my $total = $keys + $values;
+  print "\%$_[1] = $len item", ($len > 1 ? "s" : ""),
+    " (keys: $keys; values: $values; total: $total bytes)\n"
+      if defined $_[1];
+  $total;
+}
+
+sub globUsage {			# glob ref, name
+  local *name = *{$_[0]};
+  $total = 0;
+  $total += scalarUsage $name if defined $name;
+  $total += arrayUsage \@name, $_[1] if @name;
+  $total += hashUsage \%name, $_[1] if %name and $_[1] ne "main::" 
+    and $_[1] ne "DB::";   #and !($package eq "dumpvar" and $key eq "stab"));
+  $total;
+}
+
+sub packageUsage {
+  my ($package,@vars) = @_;
+  $package .= "::" unless $package =~ /::$/;
+  local *stab = *{"main::"};
+  while ($package =~ /(\w+?::)/g){
+    *stab = $ {stab}{$1};
+  }
+  local $TotalStrings = 0;
+  local $CompleteTotal = 0;
+  my ($key,$val);
+  while (($key,$val) = each(%stab)) {
+    next if @vars && !grep($key eq $_,@vars);
+    globUsage \$val, $key unless $package eq 'dumpvar' and $key eq 'stab';
+  }
+  print "String space: $TotalStrings.\n";
+  $CompleteTotal += $TotalStrings;
+  print "\nGrand total = $CompleteTotal bytes\n";
+}
+
+1;
+
diff --git a/lib/5.24.1/encoding/warnings.pm b/lib/5.24.1/encoding/warnings.pm
new file mode 100644
index 00000000..d5c41841
--- /dev/null
+++ b/lib/5.24.1/encoding/warnings.pm
@@ -0,0 +1,241 @@
+package encoding::warnings;
+$encoding::warnings::VERSION = '0.12';
+
+use strict;
+use 5.007;
+
+=head1 NAME
+
+encoding::warnings - Warn on implicit encoding conversions
+
+=head1 VERSION
+
+This document describes version 0.11 of encoding::warnings, released
+June 5, 2007.
+
+=head1 SYNOPSIS
+
+    use encoding::warnings; # or 'FATAL' to raise fatal exceptions
+
+    utf8::encode($a = chr(20000));  # a byte-string (raw bytes)
+    $b = chr(20000);		    # a unicode-string (wide characters)
+
+    # "Bytes implicitly upgraded into wide characters as iso-8859-1"
+    $c = $a . $b;
+
+=head1 DESCRIPTION
+
+=head2 Overview of the problem
+
+By default, there is a fundamental asymmetry in Perl's unicode model:
+implicit upgrading from byte-strings to unicode-strings assumes that
+they were encoded in I<ISO 8859-1 (Latin-1)>, but unicode-strings are
+downgraded with UTF-8 encoding.  This happens because the first 256
+codepoints in Unicode happens to agree with Latin-1.  
+
+However, this silent upgrading can easily cause problems, if you happen
+to mix unicode strings with non-Latin1 data -- i.e. byte-strings encoded
+in UTF-8 or other encodings.  The error will not manifest until the
+combined string is written to output, at which time it would be impossible
+to see where did the silent upgrading occur.
+
+=head2 Detecting the problem
+
+This module simplifies the process of diagnosing such problems.  Just put
+this line on top of your main program:
+
+    use encoding::warnings;
+
+Afterwards, implicit upgrading of high-bit bytes will raise a warning.
+Ex.: C<Bytes implicitly upgraded into wide characters as iso-8859-1 at
+- line 7>.
+
+However, strings composed purely of ASCII code points (C<0x00>..C<0x7F>)
+will I<not> trigger this warning.
+
+You can also make the warnings fatal by importing this module as:
+
+    use encoding::warnings 'FATAL';
+
+=head2 Solving the problem
+
+Most of the time, this warning occurs when a byte-string is concatenated
+with a unicode-string.  There are a number of ways to solve it:
+
+=over 4
+
+=item * Upgrade both sides to unicode-strings
+
+If your program does not need compatibility for Perl 5.6 and earlier,
+the recommended approach is to apply appropriate IO disciplines, so all
+data in your program become unicode-strings.  See L<encoding>, L<open> and
+L<perlfunc/binmode> for how.
+
+=item * Downgrade both sides to byte-strings
+
+The other way works too, especially if you are sure that all your data
+are under the same encoding, or if compatibility with older versions
+of Perl is desired.
+
+You may downgrade strings with C<Encode::encode> and C<utf8::encode>.
+See L<Encode> and L<utf8> for details.
+
+=item * Specify the encoding for implicit byte-string upgrading
+
+If you are confident that all byte-strings will be in a specific
+encoding like UTF-8, I<and> need not support older versions of Perl,
+use the C<encoding> pragma:
+
+    use encoding 'utf8';
+
+Similarly, this will silence warnings from this module, and preserve the
+default behaviour:
+
+    use encoding 'iso-8859-1';
+
+However, note that C<use encoding> actually had three distinct effects:
+
+=over 4
+
+=item * PerlIO layers for B<STDIN> and B<STDOUT>
+
+This is similar to what L<open> pragma does.
+
+=item * Literal conversions
+
+This turns I<all> literal string in your program into unicode-strings
+(equivalent to a C<use utf8>), by decoding them using the specified
+encoding.
+
+=item * Implicit upgrading for byte-strings
+
+This will silence warnings from this module, as shown above.
+
+=back
+
+Because literal conversions also work on empty strings, it may surprise
+some people:
+
+    use encoding 'big5';
+
+    my $byte_string = pack("C*", 0xA4, 0x40);
+    print length $a;	# 2 here.
+    $a .= "";		# concatenating with a unicode string...
+    print length $a;	# 1 here!
+
+In other words, do not C<use encoding> unless you are certain that the
+program will not deal with any raw, 8-bit binary data at all.
+
+However, the C<Filter =E<gt> 1> flavor of C<use encoding> will I<not>
+affect implicit upgrading for byte-strings, and is thus incapable of
+silencing warnings from this module.  See L<encoding> for more details.
+
+=back
+
+=head1 CAVEATS
+
+For Perl 5.9.4 or later, this module's effect is lexical.
+
+For Perl versions prior to 5.9.4, this module affects the whole script,
+instead of inside its lexical block.
+
+=cut
+
+# Constants.
+sub ASCII  () { 0 }
+sub LATIN1 () { 1 }
+sub FATAL  () { 2 }
+
+# Install a ${^ENCODING} handler if no other one are already in place.
+sub import {
+    my $class = shift;
+    my $fatal = shift || '';
+
+    local $@;
+    return if ${^ENCODING} and ref(${^ENCODING}) ne $class;
+    return unless eval { require Encode; 1 };
+
+    my $ascii  = Encode::find_encoding('us-ascii') or return;
+    my $latin1 = Encode::find_encoding('iso-8859-1') or return;
+
+    # Have to undef explicitly here
+    undef ${^ENCODING};
+
+    # Install a warning handler for decode()
+    my $decoder = bless(
+	[
+	    $ascii,
+	    $latin1,
+	    (($fatal eq 'FATAL') ? 'Carp::croak' : 'Carp::carp'),
+	], $class,
+    );
+
+    no warnings 'deprecated';
+    ${^ENCODING} = $decoder;
+    use warnings 'deprecated';
+    $^H{$class} = 1;
+}
+
+sub unimport {
+    my $class = shift;
+    $^H{$class} = undef;
+    undef ${^ENCODING};
+}
+
+# Don't worry about source code literals.
+sub cat_decode {
+    my $self = shift;
+    return $self->[LATIN1]->cat_decode(@_);
+}
+
+# Warn if the data is not purely US-ASCII.
+sub decode {
+    my $self = shift;
+
+    DO_WARN: {
+        if ($] >= 5.009004) {
+            my $hints = (caller(0))[10];
+            $hints->{ref($self)} or last DO_WARN;
+        }
+
+        local $@;
+        my $rv = eval { $self->[ASCII]->decode($_[0], Encode::FB_CROAK()) };
+        return $rv unless $@;
+
+        require Carp;
+        no strict 'refs';
+        $self->[FATAL]->(
+            "Bytes implicitly upgraded into wide characters as iso-8859-1"
+        );
+
+    }
+
+    return $self->[LATIN1]->decode(@_);
+}
+
+sub name { 'iso-8859-1' }
+
+1;
+
+__END__
+
+=head1 SEE ALSO
+
+L<perlunicode>, L<perluniintro>
+
+L<open>, L<utf8>, L<encoding>, L<Encode>
+
+=head1 AUTHORS
+
+Audrey Tang
+
+=head1 COPYRIGHT
+
+Copyright 2004, 2005, 2006, 2007 by Audrey Tang E<lt>cpan@audreyt.orgE<gt>.
+
+This program is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+See L<http://www.perl.com/perl/misc/Artistic.html>
+
+=cut
diff --git a/lib/5.24.1/experimental.pm b/lib/5.24.1/experimental.pm
new file mode 100644
index 00000000..8d747518
--- /dev/null
+++ b/lib/5.24.1/experimental.pm
@@ -0,0 +1,209 @@
+package experimental;
+$experimental::VERSION = '0.016';
+use strict;
+use warnings;
+use version ();
+
+use feature ();
+use Carp qw/croak carp/;
+
+my %warnings = map { $_ => 1 } grep { /^experimental::/ } keys %warnings::Offsets;
+my %features = map { $_ => 1 } $] > 5.015006 ? keys %feature::feature : do {
+	my @features;
+	if ($] >= 5.010) {
+		push @features, qw/switch say state/;
+		push @features, 'unicode_strings' if $] > 5.011002;
+	}
+	@features;
+};
+
+my %min_version = (
+	array_base      => '5',
+	autoderef       => '5.14.0',
+	bitwise         => '5.22.0',
+	current_sub     => '5.16.0',
+	evalbytes       => '5.16.0',
+	fc              => '5.16.0',
+	lexical_topic   => '5.10.0',
+	lexical_subs    => '5.18.0',
+	postderef       => '5.20.0',
+	postderef_qq    => '5.20.0',
+	refaliasing     => '5.22.0',
+	regex_sets      => '5.18.0',
+	say             => '5.10.0',
+	smartmatch      => '5.10.0',
+	signatures      => '5.20.0',
+	state           => '5.10.0',
+	switch          => '5.10.0',
+	unicode_eval    => '5.16.0',
+	unicode_strings => '5.12.0',
+);
+my %max_version = (
+	lexical_topic   => '5.23.4',
+);
+
+$_ = version->new($_) for values %min_version;
+$_ = version->new($_) for values %max_version;
+
+my %additional = (
+	postderef  => ['postderef_qq'],
+	switch     => ['smartmatch'],
+);
+
+sub _enable {
+	my $pragma = shift;
+	if ($warnings{"experimental::$pragma"}) {
+		warnings->unimport("experimental::$pragma");
+		feature->import($pragma) if exists $features{$pragma};
+		_enable(@{ $additional{$pragma} }) if $additional{$pragma};
+	}
+	elsif ($features{$pragma}) {
+		feature->import($pragma);
+		_enable(@{ $additional{$pragma} }) if $additional{$pragma};
+	}
+	elsif (not exists $min_version{$pragma}) {
+		croak "Can't enable unknown feature $pragma";
+	}
+	elsif ($] < $min_version{$pragma}) {
+		my $stable = $min_version{$pragma};
+		if ($stable->{version}[1] % 2) {
+			$stable = version->new(
+				"5.".($stable->{version}[1]+1).'.0'
+			);
+		}
+		croak "Need perl $stable or later for feature $pragma";
+	}
+	elsif ($] >= ($max_version{$pragma} || 7)) {
+		croak "Experimental feature $pragma has been removed from perl in version $max_version{$pragma}";
+	}
+}
+
+sub import {
+	my ($self, @pragmas) = @_;
+
+	for my $pragma (@pragmas) {
+		_enable($pragma);
+	}
+	return;
+}
+
+sub _disable {
+	my $pragma = shift;
+	if ($warnings{"experimental::$pragma"}) {
+		warnings->import("experimental::$pragma");
+		feature->unimport($pragma) if exists $features{$pragma};
+		_disable(@{ $additional{$pragma} }) if $additional{$pragma};
+	}
+	elsif ($features{$pragma}) {
+		feature->unimport($pragma);
+		_disable(@{ $additional{$pragma} }) if $additional{$pragma};
+	}
+	elsif (not exists $min_version{$pragma}) {
+		carp "Can't disable unknown feature $pragma, ignoring";
+	}
+}
+
+sub unimport {
+	my ($self, @pragmas) = @_;
+
+	for my $pragma (@pragmas) {
+		_disable($pragma);
+	}
+	return;
+}
+
+1;
+
+#ABSTRACT: Experimental features made easy
+
+__END__
+
+=pod
+
+=encoding UTF-8
+
+=head1 NAME
+
+experimental - Experimental features made easy
+
+=head1 VERSION
+
+version 0.016
+
+=head1 SYNOPSIS
+
+ use experimental 'lexical_subs', 'smartmatch';
+ my sub foo { $_[0] ~~ 1 }
+
+=head1 DESCRIPTION
+
+This pragma provides an easy and convenient way to enable or disable
+experimental features.
+
+Every version of perl has some number of features present but considered
+"experimental."  For much of the life of Perl 5, this was only a designation
+found in the documentation.  Starting in Perl v5.10.0, and more aggressively in
+v5.18.0, experimental features were placed behind pragmata used to enable the
+feature and disable associated warnings.
+
+The C<experimental> pragma exists to combine the required incantations into a
+single interface stable across releases of perl.  For every experimental
+feature, this should enable the feature and silence warnings for the enclosing
+lexical scope:
+
+  use experimental 'feature-name';
+
+To disable the feature and, if applicable, re-enable any warnings, use:
+
+  no experimental 'feature-name';
+
+The supported features, documented further below, are:
+
+	array_base    - allow the use of $[ to change the starting index of @array
+	autoderef     - allow push, each, keys, and other built-ins on references
+	lexical_topic - allow the use of lexical $_ via "my $_"
+	postderef     - allow the use of postfix dereferencing expressions, including
+	                in interpolating strings
+	refaliasing   - allow aliasing via \$x = \$y
+	regex_sets    - allow extended bracketed character classes in regexps
+	signatures    - allow subroutine signatures (for named arguments)
+	smartmatch    - allow the use of ~~
+	switch        - allow the use of ~~, given, and when
+
+=head2 Ordering matters
+
+Using this pragma to 'enable an experimental feature' is another way of saying
+that this pragma will disable the warnings which would result from using that
+feature.  Therefore, the order in which pragmas are applied is important.  In
+particular, you probably want to enable experimental features I<after> you
+enable warnings:
+
+  use warnings;
+  use experimental 'smartmatch';
+
+You also need to take care with modules that enable warnings for you.  A common
+example being Moose.  In this example, warnings for the 'smartmatch' feature are
+first turned on by the warnings pragma, off by the experimental pragma and back
+on again by the Moose module (fix is to switch the last two lines):
+
+  use warnings;
+  use experimental 'smartmatch';
+  use Moose;
+
+=head2 Disclaimer
+
+Because of the nature of the features it enables, forward compatibility can not
+be guaranteed in any way.
+
+=head1 AUTHOR
+
+Leon Timmermans <leont@cpan.org>
+
+=head1 COPYRIGHT AND LICENSE
+
+This software is copyright (c) 2013 by Leon Timmermans.
+
+This is free software; you can redistribute it and/or modify it under
+the same terms as the Perl 5 programming language system itself.
+
+=cut
diff --git a/lib/5.24.1/feature.pm b/lib/5.24.1/feature.pm
new file mode 100644
index 00000000..ec9fff7a
--- /dev/null
+++ b/lib/5.24.1/feature.pm
@@ -0,0 +1,521 @@
+# -*- buffer-read-only: t -*-
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is built by regen/feature.pl.
+# Any changes made here will be lost!
+
+package feature;
+
+our $VERSION = '1.42';
+
+our %feature = (
+    fc              => 'feature_fc',
+    say             => 'feature_say',
+    state           => 'feature_state',
+    switch          => 'feature_switch',
+    bitwise         => 'feature_bitwise',
+    evalbytes       => 'feature_evalbytes',
+    postderef       => 'feature_postderef',
+    array_base      => 'feature_arybase',
+    signatures      => 'feature_signatures',
+    current_sub     => 'feature___SUB__',
+    refaliasing     => 'feature_refaliasing',
+    lexical_subs    => 'feature_lexsubs',
+    postderef_qq    => 'feature_postderef_qq',
+    unicode_eval    => 'feature_unieval',
+    unicode_strings => 'feature_unicode',
+);
+
+our %feature_bundle = (
+    "5.10"    => [qw(array_base say state switch)],
+    "5.11"    => [qw(array_base say state switch unicode_strings)],
+    "5.15"    => [qw(current_sub evalbytes fc say state switch unicode_eval unicode_strings)],
+    "5.23"    => [qw(current_sub evalbytes fc postderef_qq say state switch unicode_eval unicode_strings)],
+    "all"     => [qw(array_base bitwise current_sub evalbytes fc lexical_subs postderef postderef_qq refaliasing say signatures state switch unicode_eval unicode_strings)],
+    "default" => [qw(array_base)],
+);
+
+$feature_bundle{"5.12"} = $feature_bundle{"5.11"};
+$feature_bundle{"5.13"} = $feature_bundle{"5.11"};
+$feature_bundle{"5.14"} = $feature_bundle{"5.11"};
+$feature_bundle{"5.16"} = $feature_bundle{"5.15"};
+$feature_bundle{"5.17"} = $feature_bundle{"5.15"};
+$feature_bundle{"5.18"} = $feature_bundle{"5.15"};
+$feature_bundle{"5.19"} = $feature_bundle{"5.15"};
+$feature_bundle{"5.20"} = $feature_bundle{"5.15"};
+$feature_bundle{"5.21"} = $feature_bundle{"5.15"};
+$feature_bundle{"5.22"} = $feature_bundle{"5.15"};
+$feature_bundle{"5.24"} = $feature_bundle{"5.23"};
+$feature_bundle{"5.9.5"} = $feature_bundle{"5.10"};
+
+our $hint_shift   = 26;
+our $hint_mask    = 0x1c000000;
+our @hint_bundles = qw( default 5.10 5.11 5.15 5.23 );
+
+# This gets set (for now) in $^H as well as in %^H,
+# for runtime speed of the uc/lc/ucfirst/lcfirst functions.
+# See HINT_UNI_8_BIT in perl.h.
+our $hint_uni8bit = 0x00000800;
+
+# TODO:
+# - think about versioned features (use feature switch => 2)
+
+=head1 NAME
+
+feature - Perl pragma to enable new features
+
+=head1 SYNOPSIS
+
+    use feature qw(say switch);
+    given ($foo) {
+        when (1)          { say "\$foo == 1" }
+        when ([2,3])      { say "\$foo == 2 || \$foo == 3" }
+        when (/^a[bc]d$/) { say "\$foo eq 'abd' || \$foo eq 'acd'" }
+        when ($_ > 100)   { say "\$foo > 100" }
+        default           { say "None of the above" }
+    }
+
+    use feature ':5.10'; # loads all features available in perl 5.10
+
+    use v5.10;           # implicitly loads :5.10 feature bundle
+
+=head1 DESCRIPTION
+
+It is usually impossible to add new syntax to Perl without breaking
+some existing programs.  This pragma provides a way to minimize that
+risk. New syntactic constructs, or new semantic meanings to older
+constructs, can be enabled by C<use feature 'foo'>, and will be parsed
+only when the appropriate feature pragma is in scope.  (Nevertheless, the
+C<CORE::> prefix provides access to all Perl keywords, regardless of this
+pragma.)
+
+=head2 Lexical effect
+
+Like other pragmas (C<use strict>, for example), features have a lexical
+effect.  C<use feature qw(foo)> will only make the feature "foo" available
+from that point to the end of the enclosing block.
+
+    {
+        use feature 'say';
+        say "say is available here";
+    }
+    print "But not here.\n";
+
+=head2 C<no feature>
+
+Features can also be turned off by using C<no feature "foo">.  This too
+has lexical effect.
+
+    use feature 'say';
+    say "say is available here";
+    {
+        no feature 'say';
+        print "But not here.\n";
+    }
+    say "Yet it is here.";
+
+C<no feature> with no features specified will reset to the default group.  To
+disable I<all> features (an unusual request!) use C<no feature ':all'>.
+
+=head1 AVAILABLE FEATURES
+
+=head2 The 'say' feature
+
+C<use feature 'say'> tells the compiler to enable the Perl 6 style
+C<say> function.
+
+See L<perlfunc/say> for details.
+
+This feature is available starting with Perl 5.10.
+
+=head2 The 'state' feature
+
+C<use feature 'state'> tells the compiler to enable C<state>
+variables.
+
+See L<perlsub/"Persistent Private Variables"> for details.
+
+This feature is available starting with Perl 5.10.
+
+=head2 The 'switch' feature
+
+B<WARNING>: Because the L<smartmatch operator|perlop/"Smartmatch Operator"> is
+experimental, Perl will warn when you use this feature, unless you have
+explicitly disabled the warning:
+
+    no warnings "experimental::smartmatch";
+
+C<use feature 'switch'> tells the compiler to enable the Perl 6
+given/when construct.
+
+See L<perlsyn/"Switch Statements"> for details.
+
+This feature is available starting with Perl 5.10.
+
+=head2 The 'unicode_strings' feature
+
+C<use feature 'unicode_strings'> tells the compiler to use Unicode rules
+in all string operations executed within its scope (unless they are also
+within the scope of either C<use locale> or C<use bytes>).  The same applies
+to all regular expressions compiled within the scope, even if executed outside
+it.  It does not change the internal representation of strings, but only how
+they are interpreted.
+
+C<no feature 'unicode_strings'> tells the compiler to use the traditional
+Perl rules wherein the native character set rules is used unless it is
+clear to Perl that Unicode is desired.  This can lead to some surprises
+when the behavior suddenly changes.  (See
+L<perlunicode/The "Unicode Bug"> for details.)  For this reason, if you are
+potentially using Unicode in your program, the
+C<use feature 'unicode_strings'> subpragma is B<strongly> recommended.
+
+This feature is available starting with Perl 5.12; was almost fully
+implemented in Perl 5.14; and extended in Perl 5.16 to cover C<quotemeta>.
+
+=head2 The 'unicode_eval' and 'evalbytes' features
+
+Under the C<unicode_eval> feature, Perl's C<eval> function, when passed a
+string, will evaluate it as a string of characters, ignoring any
+C<use utf8> declarations.  C<use utf8> exists to declare the encoding of
+the script, which only makes sense for a stream of bytes, not a string of
+characters.  Source filters are forbidden, as they also really only make
+sense on strings of bytes.  Any attempt to activate a source filter will
+result in an error.
+
+The C<evalbytes> feature enables the C<evalbytes> keyword, which evaluates
+the argument passed to it as a string of bytes.  It dies if the string
+contains any characters outside the 8-bit range.  Source filters work
+within C<evalbytes>: they apply to the contents of the string being
+evaluated.
+
+Together, these two features are intended to replace the historical C<eval>
+function, which has (at least) two bugs in it, that cannot easily be fixed
+without breaking existing programs:
+
+=over
+
+=item *
+
+C<eval> behaves differently depending on the internal encoding of the
+string, sometimes treating its argument as a string of bytes, and sometimes
+as a string of characters.
+
+=item *
+
+Source filters activated within C<eval> leak out into whichever I<file>
+scope is currently being compiled.  To give an example with the CPAN module
+L<Semi::Semicolons>:
+
+    BEGIN { eval "use Semi::Semicolons;  # not filtered here " }
+    # filtered here!
+
+C<evalbytes> fixes that to work the way one would expect:
+
+    use feature "evalbytes";
+    BEGIN { evalbytes "use Semi::Semicolons;  # filtered " }
+    # not filtered
+
+=back
+
+These two features are available starting with Perl 5.16.
+
+=head2 The 'current_sub' feature
+
+This provides the C<__SUB__> token that returns a reference to the current
+subroutine or C<undef> outside of a subroutine.
+
+This feature is available starting with Perl 5.16.
+
+=head2 The 'array_base' feature
+
+This feature supports the legacy C<$[> variable.  See L<perlvar/$[> and
+L<arybase>.  It is on by default but disabled under C<use v5.16> (see
+L</IMPLICIT LOADING>, below).
+
+This feature is available under this name starting with Perl 5.16.  In
+previous versions, it was simply on all the time, and this pragma knew
+nothing about it.
+
+=head2 The 'fc' feature
+
+C<use feature 'fc'> tells the compiler to enable the C<fc> function,
+which implements Unicode casefolding.
+
+See L<perlfunc/fc> for details.
+
+This feature is available from Perl 5.16 onwards.
+
+=head2 The 'lexical_subs' feature
+
+B<WARNING>: This feature is still experimental and the implementation may
+change in future versions of Perl.  For this reason, Perl will
+warn when you use the feature, unless you have explicitly disabled the
+warning:
+
+    no warnings "experimental::lexical_subs";
+
+This enables declaration of subroutines via C<my sub foo>, C<state sub foo>
+and C<our sub foo> syntax.  See L<perlsub/Lexical Subroutines> for details.
+
+This feature is available from Perl 5.18 onwards.
+
+=head2 The 'postderef' and 'postderef_qq' features
+
+The 'postderef_qq' feature extends the applicability of L<postfix
+dereference syntax|perlref/Postfix Dereference Syntax> so that postfix array
+and scalar dereference are available in double-quotish interpolations. For
+example, it makes the following two statements equivalent:
+
+  my $s = "[@{ $h->{a} }]";
+  my $s = "[$h->{a}->@*]";
+
+This feature is available from Perl 5.20 onwards. In Perl 5.20 and 5.22, it
+was classed as experimental, and Perl emitted a warning for its
+usage, except when explicitly disabled:
+
+  no warnings "experimental::postderef";
+
+As of Perl 5.24, use of this feature no longer triggers a warning, though
+the C<experimental::postderef> warning category still exists (for
+compatibility with code that disables it).
+
+The 'postderef' feature was used in Perl 5.20 and Perl 5.22 to enable
+postfix dereference syntax outside double-quotish interpolations. In those
+versions, using it triggered the C<experimental::postderef> warning in the
+same way as the 'postderef_qq' feature did. As of Perl 5.24, this syntax is
+not only no longer experimental, but it is enabled for all Perl code,
+regardless of what feature declarations are in scope.
+
+=head2 The 'signatures' feature
+
+B<WARNING>: This feature is still experimental and the implementation may
+change in future versions of Perl.  For this reason, Perl will
+warn when you use the feature, unless you have explicitly disabled the
+warning:
+
+    no warnings "experimental::signatures";
+
+This enables unpacking of subroutine arguments into lexical variables
+by syntax such as
+
+    sub foo ($left, $right) {
+	return $left + $right;
+    }
+
+See L<perlsub/Signatures> for details.
+
+This feature is available from Perl 5.20 onwards.
+
+=head2 The 'refaliasing' feature
+
+B<WARNING>: This feature is still experimental and the implementation may
+change in future versions of Perl.  For this reason, Perl will
+warn when you use the feature, unless you have explicitly disabled the
+warning:
+
+    no warnings "experimental::refaliasing";
+
+This enables aliasing via assignment to references:
+
+    \$a = \$b; # $a and $b now point to the same scalar
+    \@a = \@b; #                     to the same array
+    \%a = \%b;
+    \&a = \&b;
+    foreach \%hash (@array_of_hash_refs) {
+        ...
+    }
+
+See L<perlref/Assigning to References> for details.
+
+This feature is available from Perl 5.22 onwards.
+
+=head2 The 'bitwise' feature
+
+B<WARNING>: This feature is still experimental and the implementation may
+change in future versions of Perl.  For this reason, Perl will
+warn when you use the feature, unless you have explicitly disabled the
+warning:
+
+    no warnings "experimental::bitwise";
+
+This makes the four standard bitwise operators (C<& | ^ ~>) treat their
+operands consistently as numbers, and introduces four new dotted operators
+(C<&. |. ^. ~.>) that treat their operands consistently as strings.  The
+same applies to the assignment variants (C<&= |= ^= &.= |.= ^.=>).
+
+See L<perlop/Bitwise String Operators> for details.
+
+This feature is available from Perl 5.22 onwards.
+
+=head1 FEATURE BUNDLES
+
+It's possible to load multiple features together, using
+a I<feature bundle>.  The name of a feature bundle is prefixed with
+a colon, to distinguish it from an actual feature.
+
+  use feature ":5.10";
+
+The following feature bundles are available:
+
+  bundle    features included
+  --------- -----------------
+  :default  array_base
+
+  :5.10     say state switch array_base
+
+  :5.12     say state switch unicode_strings array_base
+
+  :5.14     say state switch unicode_strings array_base
+
+  :5.16     say state switch unicode_strings
+            unicode_eval evalbytes current_sub fc
+
+  :5.18     say state switch unicode_strings
+            unicode_eval evalbytes current_sub fc
+
+  :5.20     say state switch unicode_strings
+            unicode_eval evalbytes current_sub fc
+
+  :5.22     say state switch unicode_strings
+            unicode_eval evalbytes current_sub fc
+
+  :5.24     say state switch unicode_strings
+            unicode_eval evalbytes current_sub fc
+            postderef_qq
+
+The C<:default> bundle represents the feature set that is enabled before
+any C<use feature> or C<no feature> declaration.
+
+Specifying sub-versions such as the C<0> in C<5.14.0> in feature bundles has
+no effect.  Feature bundles are guaranteed to be the same for all sub-versions.
+
+  use feature ":5.14.0";    # same as ":5.14"
+  use feature ":5.14.1";    # same as ":5.14"
+
+=head1 IMPLICIT LOADING
+
+Instead of loading feature bundles by name, it is easier to let Perl do
+implicit loading of a feature bundle for you.
+
+There are two ways to load the C<feature> pragma implicitly:
+
+=over 4
+
+=item *
+
+By using the C<-E> switch on the Perl command-line instead of C<-e>.
+That will enable the feature bundle for that version of Perl in the
+main compilation unit (that is, the one-liner that follows C<-E>).
+
+=item *
+
+By explicitly requiring a minimum Perl version number for your program, with
+the C<use VERSION> construct.  That is,
+
+    use v5.10.0;
+
+will do an implicit
+
+    no feature ':all';
+    use feature ':5.10';
+
+and so on.  Note how the trailing sub-version
+is automatically stripped from the
+version.
+
+But to avoid portability warnings (see L<perlfunc/use>), you may prefer:
+
+    use 5.010;
+
+with the same effect.
+
+If the required version is older than Perl 5.10, the ":default" feature
+bundle is automatically loaded instead.
+
+=back
+
+=cut
+
+sub import {
+    shift;
+
+    if (!@_) {
+        croak("No features specified");
+    }
+
+    __common(1, @_);
+}
+
+sub unimport {
+    shift;
+
+    # A bare C<no feature> should reset to the default bundle
+    if (!@_) {
+	$^H &= ~($hint_uni8bit|$hint_mask);
+	return;
+    }
+
+    __common(0, @_);
+}
+
+
+sub __common {
+    my $import = shift;
+    my $bundle_number = $^H & $hint_mask;
+    my $features = $bundle_number != $hint_mask
+	&& $feature_bundle{$hint_bundles[$bundle_number >> $hint_shift]};
+    if ($features) {
+	# Features are enabled implicitly via bundle hints.
+	# Delete any keys that may be left over from last time.
+	delete @^H{ values(%feature) };
+	$^H |= $hint_mask;
+	for (@$features) {
+	    $^H{$feature{$_}} = 1;
+	    $^H |= $hint_uni8bit if $_ eq 'unicode_strings';
+	}
+    }
+    while (@_) {
+        my $name = shift;
+        if (substr($name, 0, 1) eq ":") {
+            my $v = substr($name, 1);
+            if (!exists $feature_bundle{$v}) {
+                $v =~ s/^([0-9]+)\.([0-9]+).[0-9]+$/$1.$2/;
+                if (!exists $feature_bundle{$v}) {
+                    unknown_feature_bundle(substr($name, 1));
+                }
+            }
+            unshift @_, @{$feature_bundle{$v}};
+            next;
+        }
+        if (!exists $feature{$name}) {
+            unknown_feature($name);
+        }
+	if ($import) {
+	    $^H{$feature{$name}} = 1;
+	    $^H |= $hint_uni8bit if $name eq 'unicode_strings';
+	} else {
+            delete $^H{$feature{$name}};
+            $^H &= ~ $hint_uni8bit if $name eq 'unicode_strings';
+        }
+    }
+}
+
+sub unknown_feature {
+    my $feature = shift;
+    croak(sprintf('Feature "%s" is not supported by Perl %vd',
+            $feature, $^V));
+}
+
+sub unknown_feature_bundle {
+    my $feature = shift;
+    croak(sprintf('Feature bundle "%s" is not supported by Perl %vd',
+            $feature, $^V));
+}
+
+sub croak {
+    require Carp;
+    Carp::croak(@_);
+}
+
+1;
+
+# ex: set ro:
diff --git a/lib/5.24.1/fields.pm b/lib/5.24.1/fields.pm
new file mode 100644
index 00000000..c40978bd
--- /dev/null
+++ b/lib/5.24.1/fields.pm
@@ -0,0 +1,320 @@
+use 5.008;
+package fields;
+
+require 5.005;
+use strict;
+no strict 'refs';
+unless( eval q{require warnings::register; warnings::register->import; 1} ) {
+    *warnings::warnif = sub { 
+        require Carp;
+        Carp::carp(@_);
+    }
+}
+use vars qw(%attr $VERSION);
+
+$VERSION = '2.23';
+$VERSION =~ tr/_//d;
+
+# constant.pm is slow
+sub PUBLIC     () { 2**0  }
+sub PRIVATE    () { 2**1  }
+sub INHERITED  () { 2**2  }
+sub PROTECTED  () { 2**3  }
+
+
+# The %attr hash holds the attributes of the currently assigned fields
+# per class.  The hash is indexed by class names and the hash value is
+# an array reference.  The first element in the array is the lowest field
+# number not belonging to a base class.  The remaining elements' indices
+# are the field numbers.  The values are integer bit masks, or undef
+# in the case of base class private fields (which occupy a slot but are
+# otherwise irrelevant to the class).
+
+sub import {
+    my $class = shift;
+    return unless @_;
+    my $package = caller(0);
+    # avoid possible typo warnings
+    %{"$package\::FIELDS"} = () unless %{"$package\::FIELDS"};
+    my $fields = \%{"$package\::FIELDS"};
+    my $fattr = ($attr{$package} ||= [1]);
+    my $next = @$fattr;
+
+    # Quiet pseudo-hash deprecation warning for uses of fields::new.
+    bless \%{"$package\::FIELDS"}, 'pseudohash';
+
+    if ($next > $fattr->[0]
+        and ($fields->{$_[0]} || 0) >= $fattr->[0])
+    {
+        # There are already fields not belonging to base classes.
+        # Looks like a possible module reload...
+        $next = $fattr->[0];
+    }
+    foreach my $f (@_) {
+        my $fno = $fields->{$f};
+
+        # Allow the module to be reloaded so long as field positions
+        # have not changed.
+        if ($fno and $fno != $next) {
+            require Carp;
+            if ($fno < $fattr->[0]) {
+              if ($] < 5.006001) {
+                warn("Hides field '$f' in base class") if $^W;
+              } else {
+                warnings::warnif("Hides field '$f' in base class") ;
+              }
+            } else {
+                Carp::croak("Field name '$f' already in use");
+            }
+        }
+        $fields->{$f} = $next;
+        $fattr->[$next] = ($f =~ /^_/) ? PRIVATE : PUBLIC;
+        $next += 1;
+    }
+    if (@$fattr > $next) {
+        # Well, we gave them the benefit of the doubt by guessing the
+        # module was reloaded, but they appear to be declaring fields
+        # in more than one place.  We can't be sure (without some extra
+        # bookkeeping) that the rest of the fields will be declared or
+        # have the same positions, so punt.
+        require Carp;
+        Carp::croak ("Reloaded module must declare all fields at once");
+    }
+}
+
+sub inherit {
+    require base;
+    goto &base::inherit_fields;
+}
+
+sub _dump  # sometimes useful for debugging
+{
+    for my $pkg (sort keys %attr) {
+        print "\n$pkg";
+        if (@{"$pkg\::ISA"}) {
+            print " (", join(", ", @{"$pkg\::ISA"}), ")";
+        }
+        print "\n";
+        my $fields = \%{"$pkg\::FIELDS"};
+        for my $f (sort {$fields->{$a} <=> $fields->{$b}} keys %$fields) {
+            my $no = $fields->{$f};
+            print "   $no: $f";
+            my $fattr = $attr{$pkg}[$no];
+            if (defined $fattr) {
+                my @a;
+                push(@a, "public")    if $fattr & PUBLIC;
+                push(@a, "private")   if $fattr & PRIVATE;
+                push(@a, "inherited") if $fattr & INHERITED;
+                print "\t(", join(", ", @a), ")";
+            }
+            print "\n";
+        }
+    }
+}
+
+if ($] < 5.009) {
+  *new = sub {
+    my $class = shift;
+    $class = ref $class if ref $class;
+    return bless [\%{$class . "::FIELDS"}], $class;
+  }
+} else {
+  *new = sub {
+    my $class = shift;
+    $class = ref $class if ref $class;
+    require Hash::Util;
+    my $self = bless {}, $class;
+
+    # The lock_keys() prototype won't work since we require Hash::Util :(
+    &Hash::Util::lock_keys(\%$self, _accessible_keys($class));
+    return $self;
+  }
+}
+
+sub _accessible_keys {
+    my ($class) = @_;
+    return (
+        keys %{$class.'::FIELDS'},
+        map(_accessible_keys($_), @{$class.'::ISA'}),
+    );
+}
+
+sub phash {
+    die "Pseudo-hashes have been removed from Perl" if $] >= 5.009;
+    my $h;
+    my $v;
+    if (@_) {
+       if (ref $_[0] eq 'ARRAY') {
+           my $a = shift;
+           @$h{@$a} = 1 .. @$a;
+           if (@_) {
+               $v = shift;
+               unless (! @_ and ref $v eq 'ARRAY') {
+                   require Carp;
+                   Carp::croak ("Expected at most two array refs\n");
+               }
+           }
+       }
+       else {
+           if (@_ % 2) {
+               require Carp;
+               Carp::croak ("Odd number of elements initializing pseudo-hash\n");
+           }
+           my $i = 0;
+           @$h{grep ++$i % 2, @_} = 1 .. @_ / 2;
+           $i = 0;
+           $v = [grep $i++ % 2, @_];
+       }
+    }
+    else {
+       $h = {};
+       $v = [];
+    }
+    [ $h, @$v ];
+
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+fields - compile-time class fields
+
+=head1 SYNOPSIS
+
+    {
+        package Foo;
+        use fields qw(foo bar _Foo_private);
+        sub new {
+            my Foo $self = shift;
+            unless (ref $self) {
+                $self = fields::new($self);
+                $self->{_Foo_private} = "this is Foo's secret";
+            }
+            $self->{foo} = 10;
+            $self->{bar} = 20;
+            return $self;
+        }
+    }
+
+    my $var = Foo->new;
+    $var->{foo} = 42;
+
+    # this will generate a run-time error
+    $var->{zap} = 42;
+
+    # this will generate a compile-time error
+    my Foo $foo = Foo->new;
+    $foo->{zap} = 24;
+
+    # subclassing
+    {
+        package Bar;
+        use base 'Foo';
+        use fields qw(baz _Bar_private);        # not shared with Foo
+        sub new {
+            my $class = shift;
+            my $self = fields::new($class);
+            $self->SUPER::new();                # init base fields
+            $self->{baz} = 10;                  # init own fields
+            $self->{_Bar_private} = "this is Bar's secret";
+            return $self;
+        }
+    }
+
+=head1 DESCRIPTION
+
+The C<fields> pragma enables compile-time and run-time verified class
+fields.
+
+NOTE: The current implementation keeps the declared fields in the %FIELDS
+hash of the calling package, but this may change in future versions.
+Do B<not> update the %FIELDS hash directly, because it must be created
+at compile-time for it to be fully useful, as is done by this pragma.
+
+If a typed lexical variable (C<my Class
+$var>) holding a reference is used to access a
+hash element and a package with the same name as the type has
+declared class fields using this pragma, then the hash key is
+verified at compile time.  If the variables are not typed, access is
+only checked at run time.
+
+The related C<base> pragma will combine fields from base classes and any
+fields declared using the C<fields> pragma.  This enables field
+inheritance to work properly.  Inherited fields can be overridden but
+will generate a warning if warnings are enabled.
+
+B<Only valid for Perl 5.8.x and earlier:> Field names that start with an
+underscore character are made private to the class and are not visible
+to subclasses.
+
+Also, B<in Perl 5.8.x and earlier>, this pragma uses pseudo-hashes, the
+effect being that you can have objects with named fields which are as
+compact and as fast arrays to access, as long as the objects are
+accessed through properly typed variables.
+
+The following functions are supported:
+
+=over 4
+
+=item new
+
+fields::new() creates and blesses a hash comprised of the fields declared
+using the C<fields> pragma into the specified class.  It is the
+recommended way to construct a fields-based object.
+
+This makes it possible to write a constructor like this:
+
+    package Critter::Sounds;
+    use fields qw(cat dog bird);
+
+    sub new {
+        my $self = shift;
+        $self = fields::new($self) unless ref $self;
+        $self->{cat} = 'meow';                      # scalar element
+        @$self{'dog','bird'} = ('bark','tweet');    # slice
+        return $self;
+    }
+
+=item phash
+
+B<This function only works in Perl 5.8.x and earlier.>  Pseudo-hashes
+were removed from Perl as of 5.10.  Consider using restricted hashes or
+fields::new() instead (which itself uses restricted hashes under 5.10+).
+See L<Hash::Util>.  Using fields::phash() under 5.10 or higher will
+cause an error.
+
+fields::phash() can be used to create and initialize a plain (unblessed)
+pseudo-hash.  This function should always be used instead of creating
+pseudo-hashes directly.
+
+If the first argument is a reference to an array, the pseudo-hash will
+be created with keys from that array.  If a second argument is supplied,
+it must also be a reference to an array whose elements will be used as
+the values.  If the second array contains less elements than the first,
+the trailing elements of the pseudo-hash will not be initialized.
+This makes it particularly useful for creating a pseudo-hash from
+subroutine arguments:
+
+    sub dogtag {
+       my $tag = fields::phash([qw(name rank ser_num)], [@_]);
+    }
+
+fields::phash() also accepts a list of key-value pairs that will
+be used to construct the pseudo hash.  Examples:
+
+    my $tag = fields::phash(name => "Joe",
+                            rank => "captain",
+                            ser_num => 42);
+
+    my $pseudohash = fields::phash(%args);
+
+=back
+
+=head1 SEE ALSO
+
+L<base>, L<Hash::Util>
+
+=cut
diff --git a/lib/5.24.1/filetest.pm b/lib/5.24.1/filetest.pm
new file mode 100644
index 00000000..a4049832
--- /dev/null
+++ b/lib/5.24.1/filetest.pm
@@ -0,0 +1,117 @@
+package filetest;
+
+our $VERSION = '1.03';
+
+=head1 NAME
+
+filetest - Perl pragma to control the filetest permission operators
+
+=head1 SYNOPSIS
+
+    $can_perhaps_read = -r "file";	# use the mode bits
+    {
+        use filetest 'access';		# intuit harder
+        $can_really_read = -r "file";
+    }
+    $can_perhaps_read = -r "file";	# use the mode bits again
+
+=head1 DESCRIPTION
+
+This pragma tells the compiler to change the behaviour of the filetest
+permission operators, C<-r> C<-w> C<-x> C<-R> C<-W> C<-X>
+(see L<perlfunc>).
+
+The default behaviour of file test operators is to use the simple
+mode bits as returned by the stat() family of system calls.  However,
+many operating systems have additional features to define more complex
+access rights, for example ACLs (Access Control Lists).
+For such environments, C<use filetest> may help the permission
+operators to return results more consistent with other tools.
+
+The C<use filetest> or C<no filetest> statements affect file tests defined in
+their block, up to the end of the closest enclosing block (they are lexically
+block-scoped).
+
+Currently, only the C<access> sub-pragma is implemented.  It enables (or
+disables) the use of access() when available, that is, on most UNIX systems and
+other POSIX environments.  See details below.
+
+=head2 Consider this carefully
+
+The stat() mode bits are probably right for most of the files and
+directories found on your system, because few people want to use the
+additional features offered by access(). But you may encounter surprises
+if your program runs on a system that uses ACLs, since the stat()
+information won't reflect the actual permissions.
+
+There may be a slight performance decrease in the filetest operations
+when the filetest pragma is in effect, because checking bits is very
+cheap.
+
+Also, note that using the file tests for security purposes is a lost cause
+from the start: there is a window open for race conditions (who is to
+say that the permissions will not change between the test and the real
+operation?).  Therefore if you are serious about security, just try
+the real operation and test for its success - think in terms of atomic
+operations.  Filetests are more useful for filesystem administrative
+tasks, when you have no need for the content of the elements on disk.
+
+=head2 The "access" sub-pragma
+
+UNIX and POSIX systems provide an abstract access() operating system call,
+which should be used to query the read, write, and execute rights. This
+function hides various distinct approaches in additional operating system
+specific security features, like Access Control Lists (ACLs)
+
+The extended filetest functionality is used by Perl only when the argument
+of the operators is a filename, not when it is a filehandle.
+
+=head2 Limitation with regard to C<_>
+
+Because access() does not invoke stat() (at least not in a way visible
+to Perl), B<the stat result cache "_" is not set>.  This means that the
+outcome of the following two tests is different.  The first has the stat
+bits of F</etc/passwd> in C<_>, and in the second case this still
+contains the bits of C</etc>.
+
+ { -d '/etc';
+   -w '/etc/passwd';
+   print -f _ ? 'Yes' : 'No';   # Yes
+ }
+
+ { use filetest 'access';
+   -d '/etc';
+   -w '/etc/passwd';
+   print -f _ ? 'Yes' : 'No';   # No
+ }
+
+Of course, unless your OS does not implement access(), in which case the
+pragma is simply ignored.  Best not to use C<_> at all in a file where
+the filetest pragma is active!
+
+As a side effect, as C<_> doesn't work, stacked filetest operators
+(C<-f -w $file>) won't work either.
+
+This limitation might be removed in a future version of perl.
+
+=cut
+
+$filetest::hint_bits = 0x00400000; # HINT_FILETEST_ACCESS
+
+sub import {
+    if ( $_[1] eq 'access' ) {
+	$^H |= $filetest::hint_bits;
+    } else {
+	die "filetest: the only implemented subpragma is 'access'.\n";
+    }
+}
+
+sub unimport {
+    if ( $_[1] eq 'access' ) {
+	$^H &= ~$filetest::hint_bits;
+    } else {
+	die "filetest: the only implemented subpragma is 'access'.\n";
+    }
+}
+
+1;
diff --git a/lib/5.24.1/if.pm b/lib/5.24.1/if.pm
new file mode 100644
index 00000000..1985df4d
--- /dev/null
+++ b/lib/5.24.1/if.pm
@@ -0,0 +1,113 @@
+package if;
+
+$VERSION = '0.0606';
+
+sub work {
+  my $method = shift() ? 'import' : 'unimport';
+  unless (@_ >= 2) {
+    my $type = ($method eq 'import') ? 'use' : 'no';
+    die "Too few arguments to '$type if' (some code returning an empty list in list context?)"
+  }
+  return unless shift;		# CONDITION
+
+  my $p = $_[0];		# PACKAGE
+  (my $file = "$p.pm") =~ s!::!/!g;
+  require $file;		# Works even if $_[0] is a keyword (like open)
+  my $m = $p->can($method);
+  goto &$m if $m;
+}
+
+sub import   { shift; unshift @_, 1; goto &work }
+sub unimport { shift; unshift @_, 0; goto &work }
+
+1;
+__END__
+
+=head1 NAME
+
+if - C<use> a Perl module if a condition holds (also can C<no> a module)
+
+=head1 SYNOPSIS
+
+  use if CONDITION, MODULE => ARGUMENTS;
+  no if CONDITION, MODULE => ARGUMENTS;
+
+=head1 DESCRIPTION
+
+The C<if> module is used to conditionally load or unload another module.
+The construct
+
+  use if CONDITION, MODULE => ARGUMENTS;
+
+will load MODULE only if CONDITION evaluates to true.
+The above statement has no effect unless C<CONDITION> is true.
+If the CONDITION does evaluate to true, then the above line has
+the same effect as:
+
+  use MODULE ARGUMENTS;
+
+The use of C<< => >> above provides necessary quoting of C<MODULE>.
+If you don't use the fat comma (eg you don't have any ARGUMENTS),
+then you'll need to quote the MODULE.
+
+=head2 EXAMPLES
+
+The following line is taken from the testsuite for L<File::Map>:
+
+  use if $^O ne 'MSWin32', POSIX => qw/setlocale LC_ALL/;
+
+If run on any operating system other than Windows,
+this will import the functions C<setlocale> and C<LC_ALL> from L<POSIX>.
+On Windows it does nothing.
+
+The following is used to L<deprecate> core modules beyond a certain version of Perl:
+
+  use if $] > 5.016, 'deprecate';
+
+This line is taken from L<Text::Soundex> 3.04,
+and marks it as deprecated beyond Perl 5.16.
+If you C<use Text::Soundex> in Perl 5.18, for example,
+and you have used L<warnings>,
+then you'll get a warning message
+(the deprecate module looks to see whether the
+calling module was C<use>'d from a core library directory,
+and if so, generates a warning),
+unless you've installed a more recent version of L<Text::Soundex> from CPAN.
+
+You can also specify to NOT use something:
+
+ no if $] ge 5.021_006, warnings => "locale";
+
+This warning category was added in the specified Perl version (a development
+release).  Without the C<'if'>, trying to use it in an earlier release would
+generate an unknown warning category error.
+
+=head1 BUGS
+
+The current implementation does not allow specification of the
+required version of the module.
+
+=head1 SEE ALSO
+
+L<Module::Requires> can be used to conditionally load one or modules,
+with constraints based on the version of the module.
+Unlike C<if> though, L<Module::Requires> is not a core module.
+
+L<Module::Load::Conditional> provides a number of functions you can use to
+query what modules are available, and then load one or more of them at runtime.
+
+L<provide> can be used to select one of several possible modules to load,
+based on what version of Perl is running.
+
+=head1 AUTHOR
+
+Ilya Zakharevich L<mailto:ilyaz@cpan.org>.
+
+=head1 COPYRIGHT AND LICENCE
+
+This software is copyright (c) 2002 by Ilya Zakharevich.
+
+This is free software; you can redistribute it and/or modify it under
+the same terms as the Perl 5 programming language system itself.
+
+=cut
diff --git a/lib/5.24.1/integer.pm b/lib/5.24.1/integer.pm
new file mode 100644
index 00000000..60a609cd
--- /dev/null
+++ b/lib/5.24.1/integer.pm
@@ -0,0 +1,93 @@
+package integer;
+
+our $VERSION = '1.01';
+
+=head1 NAME
+
+integer - Perl pragma to use integer arithmetic instead of floating point
+
+=head1 SYNOPSIS
+
+    use integer;
+    $x = 10/3;
+    # $x is now 3, not 3.33333333333333333
+
+=head1 DESCRIPTION
+
+This tells the compiler to use integer operations from here to the end
+of the enclosing BLOCK.  On many machines, this doesn't matter a great
+deal for most computations, but on those without floating point
+hardware, it can make a big difference in performance.
+
+Note that this only affects how most of the arithmetic and relational
+B<operators> handle their operands and results, and B<not> how all
+numbers everywhere are treated.  Specifically, C<use integer;> has the
+effect that before computing the results of the arithmetic operators
+(+, -, *, /, %, +=, -=, *=, /=, %=, and unary minus), the comparison
+operators (<, <=, >, >=, ==, !=, <=>), and the bitwise operators (|, &,
+^, <<, >>, |=, &=, ^=, <<=, >>=), the operands have their fractional
+portions truncated (or floored), and the result will have its
+fractional portion truncated as well.  In addition, the range of
+operands and results is restricted to that of familiar two's complement
+integers, i.e., -(2**31) .. (2**31-1) on 32-bit architectures, and
+-(2**63) .. (2**63-1) on 64-bit architectures.  For example, this code
+
+    use integer;
+    $x = 5.8;
+    $y = 2.5;
+    $z = 2.7;
+    $a = 2**31 - 1;  # Largest positive integer on 32-bit machines
+    $, = ", ";
+    print $x, -$x, $x+$y, $x-$y, $x/$y, $x*$y, $y==$z, $a, $a+1;
+
+will print:  5.8, -5, 7, 3, 2, 10, 1, 2147483647, -2147483648
+
+Note that $x is still printed as having its true non-integer value of
+5.8 since it wasn't operated on.  And note too the wrap-around from the
+largest positive integer to the largest negative one.   Also, arguments
+passed to functions and the values returned by them are B<not> affected
+by C<use integer;>.  E.g.,
+
+    srand(1.5);
+    $, = ", ";
+    print sin(.5), cos(.5), atan2(1,2), sqrt(2), rand(10);
+
+will give the same result with or without C<use integer;>  The power
+operator C<**> is also not affected, so that 2 ** .5 is always the
+square root of 2.  Now, it so happens that the pre- and post- increment
+and decrement operators, ++ and --, are not affected by C<use integer;>
+either.  Some may rightly consider this to be a bug -- but at least it's
+a long-standing one.
+
+Finally, C<use integer;> also has an additional affect on the bitwise
+operators.  Normally, the operands and results are treated as
+B<unsigned> integers, but with C<use integer;> the operands and results
+are B<signed>.  This means, among other things, that ~0 is -1, and -2 &
+-5 is -6.
+
+Internally, native integer arithmetic (as provided by your C compiler)
+is used.  This means that Perl's own semantics for arithmetic
+operations may not be preserved.  One common source of trouble is the
+modulus of negative numbers, which Perl does one way, but your hardware
+may do another.
+
+    % perl -le 'print (4 % -3)'
+    -2
+    % perl -Minteger -le 'print (4 % -3)'
+    1
+
+See L<perlmodlib/"Pragmatic Modules">, L<perlop/"Integer Arithmetic">
+
+=cut
+
+$integer::hint_bits = 0x1;
+
+sub import {
+    $^H |= $integer::hint_bits;
+}
+
+sub unimport {
+    $^H &= ~$integer::hint_bits;
+}
+
+1;
diff --git a/lib/5.24.1/less.pm b/lib/5.24.1/less.pm
new file mode 100644
index 00000000..d2528dfe
--- /dev/null
+++ b/lib/5.24.1/less.pm
@@ -0,0 +1,158 @@
+package less;
+use strict;
+use warnings;
+
+our $VERSION = '0.03';
+
+sub _pack_tags {
+    return join ' ', @_;
+}
+
+sub _unpack_tags {
+    return grep { defined and length }
+        map  { split ' ' }
+        grep {defined} @_;
+}
+
+sub stash_name { $_[0] }
+
+sub of {
+    my $class = shift @_;
+
+    # If no one wants the result, don't bother computing it.
+    return unless defined wantarray;
+
+    my $hinthash = ( caller 0 )[10];
+    my %tags;
+    @tags{ _unpack_tags( $hinthash->{ $class->stash_name } ) } = ();
+
+    if (@_) {
+        exists $tags{$_} and return !!1 for @_;
+        return;
+    }
+    else {
+        return keys %tags;
+    }
+}
+
+sub import {
+    my $class = shift @_;
+    my $stash = $class->stash_name;
+
+    @_ = 'please' if not @_;
+    my %tags;
+    @tags{ _unpack_tags( @_, $^H{ $stash } ) } = ();
+
+    $^H{$stash} = _pack_tags( keys %tags );
+    return;
+}
+
+sub unimport {
+    my $class = shift @_;
+
+    if (@_) {
+        my %tags;
+        @tags{ _unpack_tags( $^H{$class} ) } = ();
+        delete @tags{ _unpack_tags(@_) };
+        my $new = _pack_tags( keys %tags );
+
+        if ( not length $new ) {
+            delete $^H{ $class->stash_name };
+        }
+        else {
+            $^H{ $class->stash_name } = $new;
+        }
+    }
+    else {
+        delete $^H{ $class->stash_name };
+    }
+
+    return;
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+less - perl pragma to request less of something
+
+=head1 SYNOPSIS
+
+    use less 'CPU';
+
+=head1 DESCRIPTION
+
+This is a user-pragma. If you're very lucky some code you're using
+will know that you asked for less CPU usage or ram or fat or... we
+just can't know. Consult your documentation on everything you're
+currently using.
+
+For general suggestions, try requesting C<CPU> or C<memory>.
+
+    use less 'memory';
+    use less 'CPU';
+    use less 'fat';
+
+If you ask for nothing in particular, you'll be asking for C<less
+'please'>.
+
+    use less 'please';
+
+=head1 FOR MODULE AUTHORS
+
+L<less> has been in the core as a "joke" module for ages now and it
+hasn't had any real way to communicating any information to
+anything. Thanks to Nicholas Clark we have user pragmas (see
+L<perlpragma>) and now C<less> can do something.
+
+You can probably expect your users to be able to guess that they can
+request less CPU or memory or just "less" overall.
+
+If the user didn't specify anything, it's interpreted as having used
+the C<please> tag. It's up to you to make this useful.
+
+  # equivalent
+  use less;
+  use less 'please';
+
+=head2 C<< BOOLEAN = less->of( FEATURE ) >>
+
+The class method C<< less->of( NAME ) >> returns a boolean to tell you
+whether your user requested less of something.
+
+  if ( less->of( 'CPU' ) ) {
+      ...
+  }
+  elsif ( less->of( 'memory' ) ) {
+
+  }
+
+=head2 C<< FEATURES = less->of() >>
+
+If you don't ask for any feature, you get the list of features that
+the user requested you to be nice to. This has the nice side effect
+that if you don't respect anything in particular then you can just ask
+for it and use it like a boolean.
+
+  if ( less->of ) {
+      ...
+  }
+  else {
+      ...
+  }
+
+=head1 CAVEATS
+
+=over
+
+=item This probably does nothing.
+
+=item This works only on 5.10+
+
+At least it's backwards compatible in not doing much.
+
+=back
+
+=cut
diff --git a/lib/5.24.1/locale.pm b/lib/5.24.1/locale.pm
new file mode 100644
index 00000000..02e4bb24
--- /dev/null
+++ b/lib/5.24.1/locale.pm
@@ -0,0 +1,143 @@
+package locale;
+
+our $VERSION = '1.09';
+use Config;
+
+$Carp::Internal{ (__PACKAGE__) } = 1;
+
+=head1 NAME
+
+locale - Perl pragma to use or avoid POSIX locales for built-in operations
+
+=head1 WARNING
+
+DO NOT USE this pragma in scripts that have multiple
+L<threads|threads> active.  The locale is not local to a single thread.
+Another thread may change the locale at any time, which could cause at a
+minimum that a given thread is operating in a locale it isn't expecting
+to be in.  On some platforms, segfaults can also occur.  The locale
+change need not be explicit; some operations cause perl to change the
+locale itself.  You are vulnerable simply by having done a C<"use
+locale">.
+
+=head1 SYNOPSIS
+
+    @x = sort @y;      # Native-platform/Unicode code point sort order
+    {
+        use locale;
+        @x = sort @y;  # Locale-defined sort order
+    }
+    @x = sort @y;      # Native-platform/Unicode code point sort order
+                       # again
+
+=head1 DESCRIPTION
+
+This pragma tells the compiler to enable (or disable) the use of POSIX
+locales for built-in operations (for example, LC_CTYPE for regular
+expressions, LC_COLLATE for string comparison, and LC_NUMERIC for number
+formatting).  Each "use locale" or "no locale"
+affects statements to the end of the enclosing BLOCK.
+
+See L<perllocale> for more detailed information on how Perl supports
+locales.
+
+On systems that don't have locales, this pragma will cause your operations
+to behave as if in the "C" locale; attempts to change the locale will fail.
+
+=cut
+
+# A separate bit is used for each of the two forms of the pragma, to save
+# having to look at %^H for the normal case of a plain 'use locale' without an
+# argument.
+
+$locale::hint_bits = 0x4;
+$locale::partial_hint_bits = 0x10;  # If pragma has an argument
+
+# The pseudo-category :characters consists of 2 real ones; but it also is
+# given its own number, -1, because in the complement form it also has the
+# side effect of "use feature 'unicode_strings'"
+
+sub import {
+    shift;  # should be 'locale'; not checked
+
+    $^H{locale} = 0 unless defined $^H{locale};
+    if (! @_) { # If no parameter, use the plain form that changes all categories
+        $^H |= $locale::hint_bits;
+
+    }
+    else {
+        my @categories = ( qw(:ctype :collate :messages
+                              :numeric :monetary :time) );
+        for (my $i = 0; $i < @_; $i++) {
+            my $arg = $_[$i];
+            $complement = $arg =~ s/ : ( ! | not_ ) /:/x;
+            if (! grep { $arg eq $_ } @categories, ":characters") {
+                require Carp;
+                Carp::croak("Unknown parameter '$_[$i]' to 'use locale'");
+            }
+
+            if ($complement) {
+                if ($i != 0 || $i < @_ - 1)  {
+                    require Carp;
+                    Carp::croak("Only one argument to 'use locale' allowed"
+                                . "if is $complement");
+                }
+
+                if ($arg eq ':characters') {
+                    push @_, grep { $_ ne ':ctype' && $_ ne ':collate' }
+                                  @categories;
+                    # We add 1 to the category number;  This category number
+                    # is -1
+                    $^H{locale} |= (1 << 0);
+                }
+                else {
+                    push @_, grep { $_ ne $arg } @categories;
+                }
+                next;
+            }
+            elsif ($arg eq ':characters') {
+                push @_, ':ctype', ':collate';
+                next;
+            }
+
+            $^H |= $locale::partial_hint_bits;
+
+            # This form of the pragma overrides the other
+            $^H &= ~$locale::hint_bits;
+
+            $arg =~ s/^://;
+
+            eval { require POSIX; import POSIX 'locale_h'; };
+
+            # Map our names to the ones defined by POSIX
+            my $LC = "LC_" . uc($arg);
+
+            my $bit = eval "&POSIX::$LC";
+            if (defined $bit) { # XXX Should we warn that this category isn't
+                                # supported on this platform, or make it
+                                # always be the C locale?
+
+                # Verify our assumption.
+                if (! ($bit >= 0 && $bit < 31)) {
+                    require Carp;
+                    Carp::croak("Cannot have ':$arg' parameter to 'use locale'"
+                              . " on this platform.  Use the 'perlbug' utility"
+                              . " to report this problem, or send email to"
+                              . " 'perlbug\@perl.org'.  $LC=$bit");
+                }
+
+                # 1 is added so that the pseudo-category :characters, which is
+                # -1, comes out 0.
+                $^H{locale} |= 1 << ($bit + 1);
+            }
+        }
+    }
+
+}
+
+sub unimport {
+    $^H &= ~($locale::hint_bits|$locale::partial_hint_bits);
+    $^H{locale} = 0;
+}
+
+1;
diff --git a/lib/5.24.1/meta_notation.pm b/lib/5.24.1/meta_notation.pm
new file mode 100644
index 00000000..eea85875
--- /dev/null
+++ b/lib/5.24.1/meta_notation.pm
@@ -0,0 +1,53 @@
+use strict;
+use warnings;
+
+# A tiny private library routine which is a helper to several Perl core
+# modules, to allow a paradigm to be implemented in a single place.  The name,
+# contents, or even the existence of this file may be changed at any time and
+# are NOT to be used by anything outside the Perl core.
+
+sub _meta_notation ($) {
+
+    # Returns a copy of the input string with the nonprintable characters
+    # below 0x100 changed into printables.  Any ASCII printables or above 0xFF
+    # are unchanged.  (XXX Probably above-Latin1 characters should be
+    # converted to \X{...})
+    #
+    # \0 .. \x1F (which are "\c@" .. "\c_") are changed into ^@, ^A, ^B, ...
+    # ^Z, ^[, ^\, ^], ^^, ^_
+    # \c? is changed into ^?.
+    #
+    # The above accounts for all the ASCII-range nonprintables.
+    #
+    # On ASCII platforms, the upper-Latin1-range characters are converted to
+    # Meta notation, so that \xC1 becomes 'M-A', \xE2 becomes 'M-b', etc.
+    # This is how it always has worked, so is continued that way for backwards
+    # compatibility.  The range \x80 .. \x9F becomes M-^@ .. M-^A, M-^B, ...
+    # M-^Z, M-^[, M-^\, M-^], M-^, M-^_
+    #
+    # On EBCDIC platforms, the upper-Latin1-range characters are converted
+    # into '\x{...}'  Meta notation doesn't make sense on EBCDIC platforms
+    # because the ASCII-range printables are a mixture of upper bit set or
+    # not.  [A-Za-Z0-9] all have the upper bit set.  The underscore likely
+    # doesn't; and other punctuation may or may not.  There's no simple
+    # pattern.
+
+    my $string = shift;
+
+    $string =~ s/([\0-\037])/
+               sprintf("^%c",utf8::unicode_to_native(ord($1)^64))/xeg;
+    $string =~ s/\c?/^?/g;
+    if (ord("A") == 65) {
+        $string =~ s/([\200-\237])/sprintf("M-^%c",(ord($1)&0177)^64)/eg;
+        $string =~ s/([\240-\377])/sprintf("M-%c"  ,ord($1)&0177)/eg;
+    }
+    else {
+        no warnings 'experimental::regex_sets';
+        # Leave alone things above \xff
+        $string =~ s/( (?[ [\x00-\xFF] & [:^print:]])) /
+                  sprintf("\\x{%X}", ord($1))/xaeg;
+    }
+
+    return $string;
+}
+1
diff --git a/lib/5.24.1/ok.pm b/lib/5.24.1/ok.pm
new file mode 100644
index 00000000..02726ac9
--- /dev/null
+++ b/lib/5.24.1/ok.pm
@@ -0,0 +1,47 @@
+package ok;
+$ok::VERSION = '0.16';
+
+use strict;
+use Test::More ();
+
+sub import {
+    shift;
+
+    if (@_) {
+        goto &Test::More::pass if $_[0] eq 'ok';
+        goto &Test::More::use_ok;
+    }
+
+    # No argument list - croak as if we are prototyped like use_ok()
+    my (undef, $file, $line) = caller();
+    ($file =~ /^\(eval/) or die "Not enough arguments for 'use ok' at $file line $line\n";
+}
+
+
+__END__
+
+=head1 NAME
+
+ok - Alternative to Test::More::use_ok
+
+=head1 SYNOPSIS
+
+    use ok 'Some::Module';
+
+=head1 DESCRIPTION
+
+With this module, simply change all C<use_ok> in test scripts to C<use ok>,
+and they will be executed at C<BEGIN> time.
+
+Please see L<Test::use::ok> for the full description.
+
+=head1 CC0 1.0 Universal
+
+To the extent possible under law, �鳳 has waived all copyright and related
+or neighboring rights to L<Test-use-ok>.
+
+This work is published from Taiwan.
+
+L<http://creativecommons.org/publicdomain/zero/1.0>
+
+=cut
diff --git a/lib/5.24.1/open.pm b/lib/5.24.1/open.pm
new file mode 100644
index 00000000..fd22e1b9
--- /dev/null
+++ b/lib/5.24.1/open.pm
@@ -0,0 +1,266 @@
+package open;
+use warnings;
+
+our $VERSION = '1.10';
+
+require 5.008001; # for PerlIO::get_layers()
+
+my $locale_encoding;
+
+sub _get_encname {
+    return ($1, Encode::resolve_alias($1)) if $_[0] =~ /^:?encoding\((.+)\)$/;
+    return;
+}
+
+sub croak {
+    require Carp; goto &Carp::croak;
+}
+
+sub _drop_oldenc {
+    # If by the time we arrive here there already is at the top of the
+    # perlio layer stack an encoding identical to what we would like
+    # to push via this open pragma, we will pop away the old encoding
+    # (+utf8) so that we can push ourselves in place (this is easier
+    # than ignoring pushing ourselves because of the way how ${^OPEN}
+    # works).  So we are looking for something like
+    #
+    #   stdio encoding(xxx) utf8
+    #
+    # in the existing layer stack, and in the new stack chunk for
+    #
+    #   :encoding(xxx)
+    #
+    # If we find a match, we pop the old stack (once, since
+    # the utf8 is just a flag on the encoding layer)
+    my ($h, @new) = @_;
+    return unless @new >= 1 && $new[-1] =~ /^:encoding\(.+\)$/;
+    my @old = PerlIO::get_layers($h);
+    return unless @old >= 3 &&
+	          $old[-1] eq 'utf8' &&
+                  $old[-2] =~ /^encoding\(.+\)$/;
+    require Encode;
+    my ($loname, $lcname) = _get_encname($old[-2]);
+    unless (defined $lcname) { # Should we trust get_layers()?
+	croak("open: Unknown encoding '$loname'");
+    }
+    my ($voname, $vcname) = _get_encname($new[-1]);
+    unless (defined $vcname) {
+	croak("open: Unknown encoding '$voname'");
+    }
+    if ($lcname eq $vcname) {
+	binmode($h, ":pop"); # utf8 is part of the encoding layer
+    }
+}
+
+sub import {
+    my ($class,@args) = @_;
+    croak("open: needs explicit list of PerlIO layers") unless @args;
+    my $std;
+    my ($in,$out) = split(/\0/,(${^OPEN} || "\0"), -1);
+    while (@args) {
+	my $type = shift(@args);
+	my $dscp;
+	if ($type =~ /^:?(utf8|locale|encoding\(.+\))$/) {
+	    $type = 'IO';
+	    $dscp = ":$1";
+	} elsif ($type eq ':std') {
+	    $std = 1;
+	    next;
+	} else {
+	    $dscp = shift(@args) || '';
+	}
+	my @val;
+	foreach my $layer (split(/\s+/,$dscp)) {
+            $layer =~ s/^://;
+	    if ($layer eq 'locale') {
+		require Encode;
+		require encoding;
+		$locale_encoding = encoding::_get_locale_encoding()
+		    unless defined $locale_encoding;
+		(warnings::warnif("layer", "Cannot figure out an encoding to use"), last)
+		    unless defined $locale_encoding;
+                $layer = "encoding($locale_encoding)";
+		$std = 1;
+	    } else {
+		my $target = $layer;		# the layer name itself
+		$target =~ s/^(\w+)\(.+\)$/$1/;	# strip parameters
+
+		unless(PerlIO::Layer::->find($target,1)) {
+		    warnings::warnif("layer", "Unknown PerlIO layer '$target'");
+		}
+	    }
+	    push(@val,":$layer");
+	    if ($layer =~ /^(crlf|raw)$/) {
+		$^H{"open_$type"} = $layer;
+	    }
+	}
+	if ($type eq 'IN') {
+	    _drop_oldenc(*STDIN, @val) if $std;
+	    $in  = join(' ', @val);
+	}
+	elsif ($type eq 'OUT') {
+	    if ($std) {
+		_drop_oldenc(*STDOUT, @val);
+		_drop_oldenc(*STDERR, @val);
+	    }
+	    $out = join(' ', @val);
+	}
+	elsif ($type eq 'IO') {
+	    if ($std) {
+		_drop_oldenc(*STDIN, @val);
+		_drop_oldenc(*STDOUT, @val);
+		_drop_oldenc(*STDERR, @val);
+	    }
+	    $in = $out = join(' ', @val);
+	}
+	else {
+	    croak "Unknown PerlIO layer class '$type' (need IN, OUT or IO)";
+	}
+    }
+    ${^OPEN} = join("\0", $in, $out);
+    if ($std) {
+	if ($in) {
+	    if ($in =~ /:utf8\b/) {
+		    binmode(STDIN,  ":utf8");
+		} elsif ($in =~ /(\w+\(.+\))/) {
+		    binmode(STDIN,  ":$1");
+		}
+	}
+	if ($out) {
+	    if ($out =~ /:utf8\b/) {
+		binmode(STDOUT,  ":utf8");
+		binmode(STDERR,  ":utf8");
+	    } elsif ($out =~ /(\w+\(.+\))/) {
+		binmode(STDOUT,  ":$1");
+		binmode(STDERR,  ":$1");
+	    }
+	}
+    }
+}
+
+1;
+__END__
+
+=head1 NAME
+
+open - perl pragma to set default PerlIO layers for input and output
+
+=head1 SYNOPSIS
+
+    use open IN  => ":crlf", OUT => ":bytes";
+    use open OUT => ':utf8';
+    use open IO  => ":encoding(iso-8859-7)";
+
+    use open IO  => ':locale';
+
+    use open ':encoding(utf8)';
+    use open ':locale';
+    use open ':encoding(iso-8859-7)';
+
+    use open ':std';
+
+=head1 DESCRIPTION
+
+Full-fledged support for I/O layers is now implemented provided
+Perl is configured to use PerlIO as its IO system (which is now the
+default).
+
+The C<open> pragma serves as one of the interfaces to declare default
+"layers" (also known as "disciplines") for all I/O. Any two-argument
+open(), readpipe() (aka qx//) and similar operators found within the
+lexical scope of this pragma will use the declared defaults.
+Even three-argument opens may be affected by this pragma
+when they don't specify IO layers in MODE.
+
+With the C<IN> subpragma you can declare the default layers
+of input streams, and with the C<OUT> subpragma you can declare
+the default layers of output streams.  With the C<IO>  subpragma
+you can control both input and output streams simultaneously.
+
+If you have a legacy encoding, you can use the C<:encoding(...)> tag.
+
+If you want to set your encoding layers based on your
+locale environment variables, you can use the C<:locale> tag.
+For example:
+
+    $ENV{LANG} = 'ru_RU.KOI8-R';
+    # the :locale will probe the locale environment variables like LANG
+    use open OUT => ':locale';
+    open(O, ">koi8");
+    print O chr(0x430); # Unicode CYRILLIC SMALL LETTER A = KOI8-R 0xc1
+    close O;
+    open(I, "<koi8");
+    printf "%#x\n", ord(<I>), "\n"; # this should print 0xc1
+    close I;
+
+These are equivalent
+
+    use open ':encoding(utf8)';
+    use open IO => ':encoding(utf8)';
+
+as are these
+
+    use open ':locale';
+    use open IO => ':locale';
+
+and these
+
+    use open ':encoding(iso-8859-7)';
+    use open IO => ':encoding(iso-8859-7)';
+
+The matching of encoding names is loose: case does not matter, and
+many encodings have several aliases.  See L<Encode::Supported> for
+details and the list of supported locales.
+
+When open() is given an explicit list of layers (with the three-arg
+syntax), they override the list declared using this pragma.  open() can
+also be given a single colon (:) for a layer name, to override this pragma
+and use the default (C<:raw> on Unix, C<:crlf> on Windows).
+
+The C<:std> subpragma on its own has no effect, but if combined with
+the C<:utf8> or C<:encoding> subpragmas, it converts the standard
+filehandles (STDIN, STDOUT, STDERR) to comply with encoding selected
+for input/output handles.  For example, if both input and out are
+chosen to be C<:encoding(utf8)>, a C<:std> will mean that STDIN, STDOUT,
+and STDERR are also in C<:encoding(utf8)>.  On the other hand, if only
+output is chosen to be in C<< :encoding(koi8r) >>, a C<:std> will cause
+only the STDOUT and STDERR to be in C<koi8r>.  The C<:locale> subpragma
+implicitly turns on C<:std>.
+
+The logic of C<:locale> is described in full in L<encoding>,
+but in short it is first trying nl_langinfo(CODESET) and then
+guessing from the LC_ALL and LANG locale environment variables.
+
+Directory handles may also support PerlIO layers in the future.
+
+=head1 NONPERLIO FUNCTIONALITY
+
+If Perl is not built to use PerlIO as its IO system then only the two
+pseudo-layers C<:bytes> and C<:crlf> are available.
+
+The C<:bytes> layer corresponds to "binary mode" and the C<:crlf>
+layer corresponds to "text mode" on platforms that distinguish
+between the two modes when opening files (which is many DOS-like
+platforms, including Windows).  These two layers are no-ops on
+platforms where binmode() is a no-op, but perform their functions
+everywhere if PerlIO is enabled.
+
+=head1 IMPLEMENTATION DETAILS
+
+There is a class method in C<PerlIO::Layer> C<find> which is
+implemented as XS code.  It is called by C<import> to validate the
+layers:
+
+   PerlIO::Layer::->find("perlio")
+
+The return value (if defined) is a Perl object, of class
+C<PerlIO::Layer> which is created by the C code in F<perlio.c>.  As
+yet there is nothing useful you can do with the object at the perl
+level.
+
+=head1 SEE ALSO
+
+L<perlfunc/"binmode">, L<perlfunc/"open">, L<perlunicode>, L<PerlIO>,
+L<encoding>
+
+=cut
diff --git a/lib/5.24.1/overload.pm b/lib/5.24.1/overload.pm
new file mode 100644
index 00000000..4a1912c2
--- /dev/null
+++ b/lib/5.24.1/overload.pm
@@ -0,0 +1,1695 @@
+package overload;
+
+our $VERSION = '1.26';
+
+%ops = (
+    with_assign         => "+ - * / % ** << >> x .",
+    assign              => "+= -= *= /= %= **= <<= >>= x= .=",
+    num_comparison      => "< <= >  >= == !=",
+    '3way_comparison'   => "<=> cmp",
+    str_comparison      => "lt le gt ge eq ne",
+    binary              => '& &= | |= ^ ^= &. &.= |. |.= ^. ^.=',
+    unary               => "neg ! ~ ~.",
+    mutators            => '++ --',
+    func                => "atan2 cos sin exp abs log sqrt int",
+    conversion          => 'bool "" 0+ qr',
+    iterators           => '<>',
+    filetest            => "-X",
+    dereferencing       => '${} @{} %{} &{} *{}',
+    matching            => '~~',
+    special             => 'nomethod fallback =',
+);
+
+my %ops_seen;
+for $category (keys %ops) {
+    $ops_seen{$_}++ for (split /\s+/, $ops{$category});
+}
+
+sub nil {}
+
+sub OVERLOAD {
+  $package = shift;
+  my %arg = @_;
+  my $sub;
+  *{$package . "::(("} = \&nil; # Make it findable via fetchmethod.
+  for (keys %arg) {
+    if ($_ eq 'fallback') {
+      for my $sym (*{$package . "::()"}) {
+	*$sym = \&nil; # Make it findable via fetchmethod.
+	$$sym = $arg{$_};
+      }
+    } else {
+      warnings::warnif("overload arg '$_' is invalid")
+        unless $ops_seen{$_};
+      $sub = $arg{$_};
+      if (not ref $sub) {
+	$ {$package . "::(" . $_} = $sub;
+	$sub = \&nil;
+      }
+      #print STDERR "Setting '$ {'package'}::\cO$_' to \\&'$sub'.\n";
+      *{$package . "::(" . $_} = \&{ $sub };
+    }
+  }
+}
+
+sub import {
+  $package = (caller())[0];
+  # *{$package . "::OVERLOAD"} = \&OVERLOAD;
+  shift;
+  $package->overload::OVERLOAD(@_);
+}
+
+sub unimport {
+  $package = (caller())[0];
+  shift;
+  *{$package . "::(("} = \&nil;
+  for (@_) {
+      warnings::warnif("overload arg '$_' is invalid")
+        unless $ops_seen{$_};
+      delete $ {$package . "::"}{$_ eq 'fallback' ? '()' : "(" .$_};
+  }
+}
+
+sub Overloaded {
+  my $package = shift;
+  $package = ref $package if ref $package;
+  mycan ($package, '()') || mycan ($package, '((');
+}
+
+sub ov_method {
+  my $globref = shift;
+  return undef unless $globref;
+  my $sub = \&{*$globref};
+  no overloading;
+  return $sub if $sub != \&nil;
+  return shift->can($ {*$globref});
+}
+
+sub OverloadedStringify {
+  my $package = shift;
+  $package = ref $package if ref $package;
+  #$package->can('(""')
+  ov_method mycan($package, '(""'), $package
+    or ov_method mycan($package, '(0+'), $package
+    or ov_method mycan($package, '(bool'), $package
+    or ov_method mycan($package, '(nomethod'), $package;
+}
+
+sub Method {
+  my $package = shift;
+  if(ref $package) {
+    local $@;
+    local $!;
+    require Scalar::Util;
+    $package = Scalar::Util::blessed($package);
+    return undef if !defined $package;
+  }
+  #my $meth = $package->can('(' . shift);
+  ov_method mycan($package, '(' . shift), $package;
+  #return $meth if $meth ne \&nil;
+  #return $ {*{$meth}};
+}
+
+sub AddrRef {
+  no overloading;
+  "$_[0]";
+}
+
+*StrVal = *AddrRef;
+
+sub mycan {				# Real can would leave stubs.
+  my ($package, $meth) = @_;
+
+  local $@;
+  local $!;
+  require mro;
+
+  my $mro = mro::get_linear_isa($package);
+  foreach my $p (@$mro) {
+    my $fqmeth = $p . q{::} . $meth;
+    return \*{$fqmeth} if defined &{$fqmeth};
+  }
+
+  return undef;
+}
+
+%constants = (
+	      'integer'	  =>  0x1000, # HINT_NEW_INTEGER
+	      'float'	  =>  0x2000, # HINT_NEW_FLOAT
+	      'binary'	  =>  0x4000, # HINT_NEW_BINARY
+	      'q'	  =>  0x8000, # HINT_NEW_STRING
+	      'qr'	  => 0x10000, # HINT_NEW_RE
+	     );
+
+use warnings::register;
+sub constant {
+  # Arguments: what, sub
+  while (@_) {
+    if (@_ == 1) {
+        warnings::warnif ("Odd number of arguments for overload::constant");
+        last;
+    }
+    elsif (!exists $constants {$_ [0]}) {
+        warnings::warnif ("'$_[0]' is not an overloadable type");
+    }
+    elsif (!ref $_ [1] || "$_[1]" !~ /(^|=)CODE\(0x[0-9a-f]+\)$/) {
+        # Can't use C<ref $_[1] eq "CODE"> above as code references can be
+        # blessed, and C<ref> would return the package the ref is blessed into.
+        if (warnings::enabled) {
+            $_ [1] = "undef" unless defined $_ [1];
+            warnings::warn ("'$_[1]' is not a code reference");
+        }
+    }
+    else {
+        $^H{$_[0]} = $_[1];
+        $^H |= $constants{$_[0]};
+    }
+    shift, shift;
+  }
+}
+
+sub remove_constant {
+  # Arguments: what, sub
+  while (@_) {
+    delete $^H{$_[0]};
+    $^H &= ~ $constants{$_[0]};
+    shift, shift;
+  }
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+overload - Package for overloading Perl operations
+
+=head1 SYNOPSIS
+
+    package SomeThing;
+
+    use overload
+	'+' => \&myadd,
+	'-' => \&mysub;
+	# etc
+    ...
+
+    package main;
+    $a = SomeThing->new( 57 );
+    $b = 5 + $a;
+    ...
+    if (overload::Overloaded $b) {...}
+    ...
+    $strval = overload::StrVal $b;
+
+=head1 DESCRIPTION
+
+This pragma allows overloading of Perl's operators for a class.
+To overload built-in functions, see L<perlsub/Overriding Built-in Functions> instead.
+
+=head2 Fundamentals
+
+=head3 Declaration
+
+Arguments of the C<use overload> directive are (key, value) pairs.
+For the full set of legal keys, see L<Overloadable Operations> below.
+
+Operator implementations (the values) can be subroutines,
+references to subroutines, or anonymous subroutines
+- in other words, anything legal inside a C<&{ ... }> call.
+Values specified as strings are interpreted as method names.
+Thus
+
+    package Number;
+    use overload
+        "-" => "minus",
+        "*=" => \&muas,
+        '""' => sub { ...; };
+
+declares that subtraction is to be implemented by method C<minus()>
+in the class C<Number> (or one of its base classes),
+and that the function C<Number::muas()> is to be used for the
+assignment form of multiplication, C<*=>.
+It also defines an anonymous subroutine to implement stringification:
+this is called whenever an object blessed into the package C<Number>
+is used in a string context (this subroutine might, for example,
+return the number as a Roman numeral).
+
+=head3 Calling Conventions and Magic Autogeneration
+
+The following sample implementation of C<minus()> (which assumes
+that C<Number> objects are simply blessed references to scalars)
+illustrates the calling conventions:
+
+    package Number;
+    sub minus {
+        my ($self, $other, $swap) = @_;
+        my $result = $$self - $other;         # *
+        $result = -$result if $swap;
+        ref $result ? $result : bless \$result;
+    }
+    # * may recurse once - see table below
+
+Three arguments are passed to all subroutines specified in the
+C<use overload> directive (with exceptions - see below, particularly
+L</nomethod>).
+
+The first of these is the operand providing the overloaded
+operator implementation -
+in this case, the object whose C<minus()> method is being called.
+
+The second argument is the other operand, or C<undef> in the
+case of a unary operator.
+
+The third argument is set to TRUE if (and only if) the two
+operands have been swapped.  Perl may do this to ensure that the
+first argument (C<$self>) is an object implementing the overloaded
+operation, in line with general object calling conventions.
+For example, if C<$x> and C<$y> are C<Number>s:
+
+    operation   |   generates a call to
+    ============|======================
+    $x - $y     |   minus($x, $y, '')
+    $x - 7      |   minus($x, 7, '')
+    7 - $x      |   minus($x, 7, 1)
+
+Perl may also use C<minus()> to implement other operators which
+have not been specified in the C<use overload> directive,
+according to the rules for L<Magic Autogeneration> described later.
+For example, the C<use overload> above declared no subroutine
+for any of the operators C<-->, C<neg> (the overload key for
+unary minus), or C<-=>.  Thus
+
+    operation   |   generates a call to
+    ============|======================
+    -$x         |   minus($x, 0, 1)
+    $x--        |   minus($x, 1, undef)
+    $x -= 3     |   minus($x, 3, undef)
+
+Note the C<undef>s:
+where autogeneration results in the method for a standard
+operator which does not change either of its operands, such
+as C<->, being used to implement an operator which changes
+the operand ("mutators": here, C<--> and C<-=>),
+Perl passes undef as the third argument.
+This still evaluates as FALSE, consistent with the fact that
+the operands have not been swapped, but gives the subroutine
+a chance to alter its behaviour in these cases.
+
+In all the above examples, C<minus()> is required
+only to return the result of the subtraction:
+Perl takes care of the assignment to $x.
+In fact, such methods should I<not> modify their operands,
+even if C<undef> is passed as the third argument
+(see L<Overloadable Operations>).
+
+The same is not true of implementations of C<++> and C<-->:
+these are expected to modify their operand.
+An appropriate implementation of C<--> might look like
+
+    use overload '--' => "decr",
+        # ...
+    sub decr { --${$_[0]}; }
+
+If the experimental "bitwise" feature is enabled (see L<feature>), a fifth
+TRUE argument is passed to subroutines handling C<&>, C<|>, C<^> and C<~>.
+This indicates that the caller is expecting numeric behaviour.  The fourth
+argument will be C<undef>, as that position (C<$_[3]>) is reserved for use
+by L</nomethod>.
+
+=head3 Mathemagic, Mutators, and Copy Constructors
+
+The term 'mathemagic' describes the overloaded implementation
+of mathematical operators.
+Mathemagical operations raise an issue.
+Consider the code:
+
+    $a = $b;
+    --$a;
+
+If C<$a> and C<$b> are scalars then after these statements
+
+    $a == $b - 1
+
+An object, however, is a reference to blessed data, so if
+C<$a> and C<$b> are objects then the assignment C<$a = $b>
+copies only the reference, leaving C<$a> and C<$b> referring
+to the same object data.
+One might therefore expect the operation C<--$a> to decrement
+C<$b> as well as C<$a>.
+However, this would not be consistent with how we expect the
+mathematical operators to work.
+
+Perl resolves this dilemma by transparently calling a copy
+constructor before calling a method defined to implement
+a mutator (C<-->, C<+=>, and so on.).
+In the above example, when Perl reaches the decrement
+statement, it makes a copy of the object data in C<$a> and
+assigns to C<$a> a reference to the copied data.
+Only then does it call C<decr()>, which alters the copied
+data, leaving C<$b> unchanged.
+Thus the object metaphor is preserved as far as possible,
+while mathemagical operations still work according to the
+arithmetic metaphor.
+
+Note: the preceding paragraph describes what happens when
+Perl autogenerates the copy constructor for an object based
+on a scalar.
+For other cases, see L<Copy Constructor>.
+
+=head2 Overloadable Operations
+
+The complete list of keys that can be specified in the C<use overload>
+directive are given, separated by spaces, in the values of the
+hash C<%overload::ops>:
+
+ with_assign	  => '+ - * / % ** << >> x .',
+ assign		  => '+= -= *= /= %= **= <<= >>= x= .=',
+ num_comparison	  => '< <= > >= == !=',
+ '3way_comparison'=> '<=> cmp',
+ str_comparison	  => 'lt le gt ge eq ne',
+ binary		  => '& &= | |= ^ ^= &. &.= |. |.= ^. ^.=',
+ unary		  => 'neg ! ~ ~.',
+ mutators	  => '++ --',
+ func		  => 'atan2 cos sin exp abs log sqrt int',
+ conversion	  => 'bool "" 0+ qr',
+ iterators	  => '<>',
+ filetest         => '-X',
+ dereferencing	  => '${} @{} %{} &{} *{}',
+ matching	  => '~~',
+ special	  => 'nomethod fallback ='
+
+Most of the overloadable operators map one-to-one to these keys.
+Exceptions, including additional overloadable operations not
+apparent from this hash, are included in the notes which follow.
+This list is subject to growth over time.
+
+A warning is issued if an attempt is made to register an operator not found
+above.
+
+=over 5
+
+=item * C<not>
+
+The operator C<not> is not a valid key for C<use overload>.
+However, if the operator C<!> is overloaded then the same
+implementation will be used for C<not>
+(since the two operators differ only in precedence).
+
+=item * C<neg>
+
+The key C<neg> is used for unary minus to disambiguate it from
+binary C<->.
+
+=item * C<++>, C<-->
+
+Assuming they are to behave analogously to Perl's C<++> and C<-->,
+overloaded implementations of these operators are required to
+mutate their operands.
+
+No distinction is made between prefix and postfix forms of the
+increment and decrement operators: these differ only in the
+point at which Perl calls the associated subroutine when
+evaluating an expression.
+
+=item * I<Assignments>
+
+    +=  -=  *=  /=  %=  **=  <<=  >>=  x=  .=
+    &=  |=  ^=  &.=  |.=  ^.=
+
+Simple assignment is not overloadable (the C<'='> key is used
+for the L<Copy Constructor>).
+Perl does have a way to make assignments to an object do whatever
+you want, but this involves using tie(), not overload -
+see L<perlfunc/tie> and the L</COOKBOOK> examples below.
+
+The subroutine for the assignment variant of an operator is
+required only to return the result of the operation.
+It is permitted to change the value of its operand
+(this is safe because Perl calls the copy constructor first),
+but this is optional since Perl assigns the returned value to
+the left-hand operand anyway.
+
+An object that overloads an assignment operator does so only in
+respect of assignments to that object.
+In other words, Perl never calls the corresponding methods with
+the third argument (the "swap" argument) set to TRUE.
+For example, the operation
+
+    $a *= $b
+
+cannot lead to C<$b>'s implementation of C<*=> being called,
+even if C<$a> is a scalar.
+(It can, however, generate a call to C<$b>'s method for C<*>).
+
+=item * I<Non-mutators with a mutator variant>
+
+     +  -  *  /  %  **  <<  >>  x  .
+     &  |  ^  &.  |.  ^.
+
+As described L<above|"Calling Conventions and Magic Autogeneration">,
+Perl may call methods for operators like C<+> and C<&> in the course
+of implementing missing operations like C<++>, C<+=>, and C<&=>.
+While these methods may detect this usage by testing the definedness
+of the third argument, they should in all cases avoid changing their
+operands.
+This is because Perl does not call the copy constructor before
+invoking these methods.
+
+=item * C<int>
+
+Traditionally, the Perl function C<int> rounds to 0
+(see L<perlfunc/int>), and so for floating-point-like types one
+should follow the same semantic.
+
+=item * I<String, numeric, boolean, and regexp conversions>
+
+    ""  0+  bool
+
+These conversions are invoked according to context as necessary.
+For example, the subroutine for C<'""'> (stringify) may be used
+where the overloaded object is passed as an argument to C<print>,
+and that for C<'bool'> where it is tested in the condition of a flow
+control statement (like C<while>) or the ternary C<?:> operation.
+
+Of course, in contexts like, for example, C<$obj + 1>, Perl will
+invoke C<$obj>'s implementation of C<+> rather than (in this
+example) converting C<$obj> to a number using the numify method
+C<'0+'> (an exception to this is when no method has been provided
+for C<'+'> and L</fallback> is set to TRUE).
+
+The subroutines for C<'""'>, C<'0+'>, and C<'bool'> can return
+any arbitrary Perl value.
+If the corresponding operation for this value is overloaded too,
+the operation will be called again with this value.
+
+As a special case if the overload returns the object itself then it will
+be used directly.  An overloaded conversion returning the object is
+probably a bug, because you're likely to get something that looks like
+C<YourPackage=HASH(0x8172b34)>.
+
+    qr
+
+The subroutine for C<'qr'> is used wherever the object is
+interpolated into or used as a regexp, including when it
+appears on the RHS of a C<=~> or C<!~> operator.
+
+C<qr> must return a compiled regexp, or a ref to a compiled regexp
+(such as C<qr//> returns), and any further overloading on the return
+value will be ignored.
+
+=item * I<Iteration>
+
+If C<E<lt>E<gt>> is overloaded then the same implementation is used
+for both the I<read-filehandle> syntax C<E<lt>$varE<gt>> and
+I<globbing> syntax C<E<lt>${var}E<gt>>.
+
+=item * I<File tests>
+
+The key C<'-X'> is used to specify a subroutine to handle all the
+filetest operators (C<-f>, C<-x>, and so on: see L<perlfunc/-X> for
+the full list);
+it is not possible to overload any filetest operator individually.
+To distinguish them, the letter following the '-' is passed as the
+second argument (that is, in the slot that for binary operators
+is used to pass the second operand).
+
+Calling an overloaded filetest operator does not affect the stat value
+associated with the special filehandle C<_>.  It still refers to the
+result of the last C<stat>, C<lstat> or unoverloaded filetest.
+
+This overload was introduced in Perl 5.12.
+
+=item * I<Matching>
+
+The key C<"~~"> allows you to override the smart matching logic used by
+the C<~~> operator and the switch construct (C<given>/C<when>).  See
+L<perlsyn/Switch Statements> and L<feature>.
+
+Unusually, the overloaded implementation of the smart match operator
+does not get full control of the smart match behaviour.
+In particular, in the following code:
+
+    package Foo;
+    use overload '~~' => 'match';
+
+    my $obj =  Foo->new();
+    $obj ~~ [ 1,2,3 ];
+
+the smart match does I<not> invoke the method call like this:
+
+    $obj->match([1,2,3],0);
+
+rather, the smart match distributive rule takes precedence, so $obj is
+smart matched against each array element in turn until a match is found,
+so you may see between one and three of these calls instead:
+
+    $obj->match(1,0);
+    $obj->match(2,0);
+    $obj->match(3,0);
+
+Consult the match table in  L<perlop/"Smartmatch Operator"> for
+details of when overloading is invoked.
+
+=item * I<Dereferencing>
+
+    ${}  @{}  %{}  &{}  *{}
+
+If these operators are not explicitly overloaded then they
+work in the normal way, yielding the underlying scalar,
+array, or whatever stores the object data (or the appropriate
+error message if the dereference operator doesn't match it).
+Defining a catch-all C<'nomethod'> (see L<below|/nomethod>)
+makes no difference to this as the catch-all function will
+not be called to implement a missing dereference operator.
+
+If a dereference operator is overloaded then it must return a
+I<reference> of the appropriate type (for example, the
+subroutine for key C<'${}'> should return a reference to a
+scalar, not a scalar), or another object which overloads the
+operator: that is, the subroutine only determines what is
+dereferenced and the actual dereferencing is left to Perl.
+As a special case, if the subroutine returns the object itself
+then it will not be called again - avoiding infinite recursion.
+
+=item * I<Special>
+
+    nomethod  fallback  =
+
+See L<Special Keys for C<use overload>>.
+
+=back
+
+=head2 Magic Autogeneration
+
+If a method for an operation is not found then Perl tries to
+autogenerate a substitute implementation from the operations
+that have been defined.
+
+Note: the behaviour described in this section can be disabled
+by setting C<fallback> to FALSE (see L</fallback>).
+
+In the following tables, numbers indicate priority.
+For example, the table below states that,
+if no implementation for C<'!'> has been defined then Perl will
+implement it using C<'bool'> (that is, by inverting the value
+returned by the method for C<'bool'>);
+if boolean conversion is also unimplemented then Perl will
+use C<'0+'> or, failing that, C<'""'>.
+
+    operator | can be autogenerated from
+             |
+             | 0+   ""   bool   .   x
+    =========|==========================
+       0+    |       1     2
+       ""    |  1          2
+       bool  |  1    2
+       int   |  1    2     3
+       !     |  2    3     1
+       qr    |  2    1     3
+       .     |  2    1     3
+       x     |  2    1     3
+       .=    |  3    2     4    1
+       x=    |  3    2     4        1
+       <>    |  2    1     3
+       -X    |  2    1     3
+
+Note: The iterator (C<'E<lt>E<gt>'>) and file test (C<'-X'>)
+operators work as normal: if the operand is not a blessed glob or
+IO reference then it is converted to a string (using the method
+for C<'""'>, C<'0+'>, or C<'bool'>) to be interpreted as a glob
+or filename.
+
+    operator | can be autogenerated from
+             |
+             |  <   <=>   neg   -=    -
+    =========|==========================
+       neg   |                        1
+       -=    |                        1
+       --    |                   1    2
+       abs   | a1    a2    b1        b2    [*]
+       <     |        1
+       <=    |        1
+       >     |        1
+       >=    |        1
+       ==    |        1
+       !=    |        1
+
+    * one from [a1, a2] and one from [b1, b2]
+
+Just as numeric comparisons can be autogenerated from the method
+for C<< '<=>' >>, string comparisons can be autogenerated from
+that for C<'cmp'>:
+
+     operators          |  can be autogenerated from
+    ====================|===========================
+     lt gt le ge eq ne  |  cmp
+
+Similarly, autogeneration for keys C<'+='> and C<'++'> is analogous
+to C<'-='> and C<'--'> above:
+
+    operator | can be autogenerated from
+             |
+             |  +=    +
+    =========|==========================
+        +=   |        1
+        ++   |   1    2
+
+And other assignment variations are analogous to
+C<'+='> and C<'-='> (and similar to C<'.='> and C<'x='> above):
+
+              operator ||  *= /= %= **= <<= >>= &= ^= |= &.= ^.= |.=
+    -------------------||-------------------------------------------
+    autogenerated from ||  *  /  %  **  <<  >>  &  ^  |  &.  ^.  |.
+
+Note also that the copy constructor (key C<'='>) may be
+autogenerated, but only for objects based on scalars.
+See L<Copy Constructor>.
+
+=head3 Minimal Set of Overloaded Operations
+
+Since some operations can be automatically generated from others, there is
+a minimal set of operations that need to be overloaded in order to have
+the complete set of overloaded operations at one's disposal.
+Of course, the autogenerated operations may not do exactly what the user
+expects.  The minimal set is:
+
+    + - * / % ** << >> x
+    <=> cmp
+    & | ^ ~ &. |. ^. ~.
+    atan2 cos sin exp log sqrt int
+    "" 0+ bool
+    ~~
+
+Of the conversions, only one of string, boolean or numeric is
+needed because each can be generated from either of the other two.
+
+=head2 Special Keys for C<use overload>
+
+=head3 C<nomethod>
+
+The C<'nomethod'> key is used to specify a catch-all function to
+be called for any operator that is not individually overloaded.
+The specified function will be passed four parameters.
+The first three arguments coincide with those that would have been
+passed to the corresponding method if it had been defined.
+The fourth argument is the C<use overload> key for that missing
+method.  If the experimental "bitwise" feature is enabled (see L<feature>),
+a fifth TRUE argument is passed to subroutines handling C<&>, C<|>, C<^> and C<~> to indicate that the caller is expecting numeric behaviour.
+
+For example, if C<$a> is an object blessed into a package declaring
+
+    use overload 'nomethod' => 'catch_all', # ...
+
+then the operation
+
+    3 + $a
+
+could (unless a method is specifically declared for the key
+C<'+'>) result in a call
+
+    catch_all($a, 3, 1, '+')
+
+See L<How Perl Chooses an Operator Implementation>.
+
+=head3 C<fallback>
+
+The value assigned to the key C<'fallback'> tells Perl how hard
+it should try to find an alternative way to implement a missing
+operator.
+
+=over
+
+=item * defined, but FALSE
+
+    use overload "fallback" => 0, # ... ;
+
+This disables L<Magic Autogeneration>.
+
+=item * C<undef>
+
+In the default case where no value is explicitly assigned to
+C<fallback>, magic autogeneration is enabled.
+
+=item * TRUE
+
+The same as for C<undef>, but if a missing operator cannot be
+autogenerated then, instead of issuing an error message, Perl
+is allowed to revert to what it would have done for that
+operator if there had been no C<use overload> directive.
+
+Note: in most cases, particularly the L<Copy Constructor>,
+this is unlikely to be appropriate behaviour.
+
+=back
+
+See L<How Perl Chooses an Operator Implementation>.
+
+=head3 Copy Constructor
+
+As mentioned L<above|"Mathemagic, Mutators, and Copy Constructors">,
+this operation is called when a mutator is applied to a reference
+that shares its object with some other reference.
+For example, if C<$b> is mathemagical, and C<'++'> is overloaded
+with C<'incr'>, and C<'='> is overloaded with C<'clone'>, then the
+code
+
+    $a = $b;
+    # ... (other code which does not modify $a or $b) ...
+    ++$b;
+
+would be executed in a manner equivalent to
+
+    $a = $b;
+    # ...
+    $b = $b->clone(undef, "");
+    $b->incr(undef, "");
+
+Note:
+
+=over
+
+=item *
+
+The subroutine for C<'='> does not overload the Perl assignment
+operator: it is used only to allow mutators to work as described
+here.  (See L</Assignments> above.)
+
+=item *
+
+As for other operations, the subroutine implementing '=' is passed
+three arguments, though the last two are always C<undef> and C<''>.
+
+=item *
+
+The copy constructor is called only before a call to a function
+declared to implement a mutator, for example, if C<++$b;> in the
+code above is effected via a method declared for key C<'++'>
+(or 'nomethod', passed C<'++'> as the fourth argument) or, by
+autogeneration, C<'+='>.
+It is not called if the increment operation is effected by a call
+to the method for C<'+'> since, in the equivalent code,
+
+    $a = $b;
+    $b = $b + 1;
+
+the data referred to by C<$a> is unchanged by the assignment to
+C<$b> of a reference to new object data.
+
+=item *
+
+The copy constructor is not called if Perl determines that it is
+unnecessary because there is no other reference to the data being
+modified.
+
+=item *
+
+If C<'fallback'> is undefined or TRUE then a copy constructor
+can be autogenerated, but only for objects based on scalars.
+In other cases it needs to be defined explicitly.
+Where an object's data is stored as, for example, an array of
+scalars, the following might be appropriate:
+
+    use overload '=' => sub { bless [ @{$_[0]} ] },  # ...
+
+=item *
+
+If C<'fallback'> is TRUE and no copy constructor is defined then,
+for objects not based on scalars, Perl may silently fall back on
+simple assignment - that is, assignment of the object reference.
+In effect, this disables the copy constructor mechanism since
+no new copy of the object data is created.
+This is almost certainly not what you want.
+(It is, however, consistent: for example, Perl's fallback for the
+C<++> operator is to increment the reference itself.)
+
+=back
+
+=head2 How Perl Chooses an Operator Implementation
+
+Which is checked first, C<nomethod> or C<fallback>?
+If the two operands of an operator are of different types and
+both overload the operator, which implementation is used?
+The following are the precedence rules:
+
+=over
+
+=item 1.
+
+If the first operand has declared a subroutine to overload the
+operator then use that implementation.
+
+=item 2.
+
+Otherwise, if fallback is TRUE or undefined for the
+first operand then see if the
+L<rules for autogeneration|"Magic Autogeneration">
+allows another of its operators to be used instead.
+
+=item 3.
+
+Unless the operator is an assignment (C<+=>, C<-=>, etc.),
+repeat step (1) in respect of the second operand.
+
+=item 4.
+
+Repeat Step (2) in respect of the second operand.
+
+=item 5.
+
+If the first operand has a "nomethod" method then use that.
+
+=item 6.
+
+If the second operand has a "nomethod" method then use that.
+
+=item 7.
+
+If C<fallback> is TRUE for both operands
+then perform the usual operation for the operator,
+treating the operands as numbers, strings, or booleans
+as appropriate for the operator (see note).
+
+=item 8.
+
+Nothing worked - die.
+
+=back
+
+Where there is only one operand (or only one operand with
+overloading) the checks in respect of the other operand above are
+skipped.
+
+There are exceptions to the above rules for dereference operations
+(which, if Step 1 fails, always fall back to the normal, built-in
+implementations - see Dereferencing), and for C<~~> (which has its
+own set of rules - see C<Matching> under L</Overloadable Operations>
+above).
+
+Note on Step 7: some operators have a different semantic depending
+on the type of their operands.
+As there is no way to instruct Perl to treat the operands as, e.g.,
+numbers instead of strings, the result here may not be what you
+expect.
+See L<BUGS AND PITFALLS>.
+
+=head2 Losing Overloading
+
+The restriction for the comparison operation is that even if, for example,
+C<cmp> should return a blessed reference, the autogenerated C<lt>
+function will produce only a standard logical value based on the
+numerical value of the result of C<cmp>.  In particular, a working
+numeric conversion is needed in this case (possibly expressed in terms of
+other conversions).
+
+Similarly, C<.=>  and C<x=> operators lose their mathemagical properties
+if the string conversion substitution is applied.
+
+When you chop() a mathemagical object it is promoted to a string and its
+mathemagical properties are lost.  The same can happen with other
+operations as well.
+
+=head2 Inheritance and Overloading
+
+Overloading respects inheritance via the @ISA hierarchy.
+Inheritance interacts with overloading in two ways.
+
+=over
+
+=item Method names in the C<use overload> directive
+
+If C<value> in
+
+  use overload key => value;
+
+is a string, it is interpreted as a method name - which may
+(in the usual way) be inherited from another class.
+
+=item Overloading of an operation is inherited by derived classes
+
+Any class derived from an overloaded class is also overloaded
+and inherits its operator implementations.
+If the same operator is overloaded in more than one ancestor
+then the implementation is determined by the usual inheritance
+rules.
+
+For example, if C<A> inherits from C<B> and C<C> (in that order),
+C<B> overloads C<+> with C<\&D::plus_sub>, and C<C> overloads
+C<+> by C<"plus_meth">, then the subroutine C<D::plus_sub> will
+be called to implement operation C<+> for an object in package C<A>.
+
+=back
+
+Note that in Perl version prior to 5.18 inheritance of the C<fallback> key
+was not governed by the above rules.  The value of C<fallback> in the first 
+overloaded ancestor was used.  This was fixed in 5.18 to follow the usual
+rules of inheritance.
+
+=head2 Run-time Overloading
+
+Since all C<use> directives are executed at compile-time, the only way to
+change overloading during run-time is to
+
+    eval 'use overload "+" => \&addmethod';
+
+You can also use
+
+    eval 'no overload "+", "--", "<="';
+
+though the use of these constructs during run-time is questionable.
+
+=head2 Public Functions
+
+Package C<overload.pm> provides the following public functions:
+
+=over 5
+
+=item overload::StrVal(arg)
+
+Gives the string value of C<arg> as in the
+absence of stringify overloading.  If you
+are using this to get the address of a reference (useful for checking if two
+references point to the same thing) then you may be better off using
+C<Scalar::Util::refaddr()>, which is faster.
+
+=item overload::Overloaded(arg)
+
+Returns true if C<arg> is subject to overloading of some operations.
+
+=item overload::Method(obj,op)
+
+Returns C<undef> or a reference to the method that implements C<op>.
+
+=back
+
+=head2 Overloading Constants
+
+For some applications, the Perl parser mangles constants too much.
+It is possible to hook into this process via C<overload::constant()>
+and C<overload::remove_constant()> functions.
+
+These functions take a hash as an argument.  The recognized keys of this hash
+are:
+
+=over 8
+
+=item integer
+
+to overload integer constants,
+
+=item float
+
+to overload floating point constants,
+
+=item binary
+
+to overload octal and hexadecimal constants,
+
+=item q
+
+to overload C<q>-quoted strings, constant pieces of C<qq>- and C<qx>-quoted
+strings and here-documents,
+
+=item qr
+
+to overload constant pieces of regular expressions.
+
+=back
+
+The corresponding values are references to functions which take three arguments:
+the first one is the I<initial> string form of the constant, the second one
+is how Perl interprets this constant, the third one is how the constant is used.
+Note that the initial string form does not
+contain string delimiters, and has backslashes in backslash-delimiter
+combinations stripped (thus the value of delimiter is not relevant for
+processing of this string).  The return value of this function is how this
+constant is going to be interpreted by Perl.  The third argument is undefined
+unless for overloaded C<q>- and C<qr>- constants, it is C<q> in single-quote
+context (comes from strings, regular expressions, and single-quote HERE
+documents), it is C<tr> for arguments of C<tr>/C<y> operators,
+it is C<s> for right-hand side of C<s>-operator, and it is C<qq> otherwise.
+
+Since an expression C<"ab$cd,,"> is just a shortcut for C<'ab' . $cd . ',,'>,
+it is expected that overloaded constant strings are equipped with reasonable
+overloaded catenation operator, otherwise absurd results will result.
+Similarly, negative numbers are considered as negations of positive constants.
+
+Note that it is probably meaningless to call the functions overload::constant()
+and overload::remove_constant() from anywhere but import() and unimport() methods.
+From these methods they may be called as
+
+    sub import {
+       shift;
+       return unless @_;
+       die "unknown import: @_" unless @_ == 1 and $_[0] eq ':constant';
+       overload::constant integer => sub {Math::BigInt->new(shift)};
+    }
+
+=head1 IMPLEMENTATION
+
+What follows is subject to change RSN.
+
+The table of methods for all operations is cached in magic for the
+symbol table hash for the package.  The cache is invalidated during
+processing of C<use overload>, C<no overload>, new function
+definitions, and changes in @ISA.
+
+(Every SVish thing has a magic queue, and magic is an entry in that
+queue.  This is how a single variable may participate in multiple
+forms of magic simultaneously.  For instance, environment variables
+regularly have two forms at once: their %ENV magic and their taint
+magic.  However, the magic which implements overloading is applied to
+the stashes, which are rarely used directly, thus should not slow down
+Perl.)
+
+If a package uses overload, it carries a special flag.  This flag is also
+set when new functions are defined or @ISA is modified.  There will be a
+slight speed penalty on the very first operation thereafter that supports
+overloading, while the overload tables are updated.  If there is no
+overloading present, the flag is turned off.  Thus the only speed penalty
+thereafter is the checking of this flag.
+
+It is expected that arguments to methods that are not explicitly supposed
+to be changed are constant (but this is not enforced).
+
+=head1 COOKBOOK
+
+Please add examples to what follows!
+
+=head2 Two-face Scalars
+
+Put this in F<two_face.pm> in your Perl library directory:
+
+  package two_face;		# Scalars with separate string and
+                                # numeric values.
+  sub new { my $p = shift; bless [@_], $p }
+  use overload '""' => \&str, '0+' => \&num, fallback => 1;
+  sub num {shift->[1]}
+  sub str {shift->[0]}
+
+Use it as follows:
+
+  require two_face;
+  my $seven = two_face->new("vii", 7);
+  printf "seven=$seven, seven=%d, eight=%d\n", $seven, $seven+1;
+  print "seven contains 'i'\n" if $seven =~ /i/;
+
+(The second line creates a scalar which has both a string value, and a
+numeric value.)  This prints:
+
+  seven=vii, seven=7, eight=8
+  seven contains 'i'
+
+=head2 Two-face References
+
+Suppose you want to create an object which is accessible as both an
+array reference and a hash reference.
+
+  package two_refs;
+  use overload '%{}' => \&gethash, '@{}' => sub { $ {shift()} };
+  sub new {
+    my $p = shift;
+    bless \ [@_], $p;
+  }
+  sub gethash {
+    my %h;
+    my $self = shift;
+    tie %h, ref $self, $self;
+    \%h;
+  }
+
+  sub TIEHASH { my $p = shift; bless \ shift, $p }
+  my %fields;
+  my $i = 0;
+  $fields{$_} = $i++ foreach qw{zero one two three};
+  sub STORE {
+    my $self = ${shift()};
+    my $key = $fields{shift()};
+    defined $key or die "Out of band access";
+    $$self->[$key] = shift;
+  }
+  sub FETCH {
+    my $self = ${shift()};
+    my $key = $fields{shift()};
+    defined $key or die "Out of band access";
+    $$self->[$key];
+  }
+
+Now one can access an object using both the array and hash syntax:
+
+  my $bar = two_refs->new(3,4,5,6);
+  $bar->[2] = 11;
+  $bar->{two} == 11 or die 'bad hash fetch';
+
+Note several important features of this example.  First of all, the
+I<actual> type of $bar is a scalar reference, and we do not overload
+the scalar dereference.  Thus we can get the I<actual> non-overloaded
+contents of $bar by just using C<$$bar> (what we do in functions which
+overload dereference).  Similarly, the object returned by the
+TIEHASH() method is a scalar reference.
+
+Second, we create a new tied hash each time the hash syntax is used.
+This allows us not to worry about a possibility of a reference loop,
+which would lead to a memory leak.
+
+Both these problems can be cured.  Say, if we want to overload hash
+dereference on a reference to an object which is I<implemented> as a
+hash itself, the only problem one has to circumvent is how to access
+this I<actual> hash (as opposed to the I<virtual> hash exhibited by the
+overloaded dereference operator).  Here is one possible fetching routine:
+
+  sub access_hash {
+    my ($self, $key) = (shift, shift);
+    my $class = ref $self;
+    bless $self, 'overload::dummy'; # Disable overloading of %{}
+    my $out = $self->{$key};
+    bless $self, $class;	# Restore overloading
+    $out;
+  }
+
+To remove creation of the tied hash on each access, one may an extra
+level of indirection which allows a non-circular structure of references:
+
+  package two_refs1;
+  use overload '%{}' => sub { ${shift()}->[1] },
+               '@{}' => sub { ${shift()}->[0] };
+  sub new {
+    my $p = shift;
+    my $a = [@_];
+    my %h;
+    tie %h, $p, $a;
+    bless \ [$a, \%h], $p;
+  }
+  sub gethash {
+    my %h;
+    my $self = shift;
+    tie %h, ref $self, $self;
+    \%h;
+  }
+
+  sub TIEHASH { my $p = shift; bless \ shift, $p }
+  my %fields;
+  my $i = 0;
+  $fields{$_} = $i++ foreach qw{zero one two three};
+  sub STORE {
+    my $a = ${shift()};
+    my $key = $fields{shift()};
+    defined $key or die "Out of band access";
+    $a->[$key] = shift;
+  }
+  sub FETCH {
+    my $a = ${shift()};
+    my $key = $fields{shift()};
+    defined $key or die "Out of band access";
+    $a->[$key];
+  }
+
+Now if $baz is overloaded like this, then C<$baz> is a reference to a
+reference to the intermediate array, which keeps a reference to an
+actual array, and the access hash.  The tie()ing object for the access
+hash is a reference to a reference to the actual array, so
+
+=over
+
+=item *
+
+There are no loops of references.
+
+=item *
+
+Both "objects" which are blessed into the class C<two_refs1> are
+references to a reference to an array, thus references to a I<scalar>.
+Thus the accessor expression C<$$foo-E<gt>[$ind]> involves no
+overloaded operations.
+
+=back
+
+=head2 Symbolic Calculator
+
+Put this in F<symbolic.pm> in your Perl library directory:
+
+  package symbolic;		# Primitive symbolic calculator
+  use overload nomethod => \&wrap;
+
+  sub new { shift; bless ['n', @_] }
+  sub wrap {
+    my ($obj, $other, $inv, $meth) = @_;
+    ($obj, $other) = ($other, $obj) if $inv;
+    bless [$meth, $obj, $other];
+  }
+
+This module is very unusual as overloaded modules go: it does not
+provide any usual overloaded operators, instead it provides an
+implementation for L</C<nomethod>>.  In this example the C<nomethod>
+subroutine returns an object which encapsulates operations done over
+the objects: C<< symbolic->new(3) >> contains C<['n', 3]>, C<< 2 +
+symbolic->new(3) >> contains C<['+', 2, ['n', 3]]>.
+
+Here is an example of the script which "calculates" the side of
+circumscribed octagon using the above package:
+
+  require symbolic;
+  my $iter = 1;			# 2**($iter+2) = 8
+  my $side = symbolic->new(1);
+  my $cnt = $iter;
+
+  while ($cnt--) {
+    $side = (sqrt(1 + $side**2) - 1)/$side;
+  }
+  print "OK\n";
+
+The value of $side is
+
+  ['/', ['-', ['sqrt', ['+', 1, ['**', ['n', 1], 2]],
+	               undef], 1], ['n', 1]]
+
+Note that while we obtained this value using a nice little script,
+there is no simple way to I<use> this value.  In fact this value may
+be inspected in debugger (see L<perldebug>), but only if
+C<bareStringify> B<O>ption is set, and not via C<p> command.
+
+If one attempts to print this value, then the overloaded operator
+C<""> will be called, which will call C<nomethod> operator.  The
+result of this operator will be stringified again, but this result is
+again of type C<symbolic>, which will lead to an infinite loop.
+
+Add a pretty-printer method to the module F<symbolic.pm>:
+
+  sub pretty {
+    my ($meth, $a, $b) = @{+shift};
+    $a = 'u' unless defined $a;
+    $b = 'u' unless defined $b;
+    $a = $a->pretty if ref $a;
+    $b = $b->pretty if ref $b;
+    "[$meth $a $b]";
+  }
+
+Now one can finish the script by
+
+  print "side = ", $side->pretty, "\n";
+
+The method C<pretty> is doing object-to-string conversion, so it
+is natural to overload the operator C<""> using this method.  However,
+inside such a method it is not necessary to pretty-print the
+I<components> $a and $b of an object.  In the above subroutine
+C<"[$meth $a $b]"> is a catenation of some strings and components $a
+and $b.  If these components use overloading, the catenation operator
+will look for an overloaded operator C<.>; if not present, it will
+look for an overloaded operator C<"">.  Thus it is enough to use
+
+  use overload nomethod => \&wrap, '""' => \&str;
+  sub str {
+    my ($meth, $a, $b) = @{+shift};
+    $a = 'u' unless defined $a;
+    $b = 'u' unless defined $b;
+    "[$meth $a $b]";
+  }
+
+Now one can change the last line of the script to
+
+  print "side = $side\n";
+
+which outputs
+
+  side = [/ [- [sqrt [+ 1 [** [n 1 u] 2]] u] 1] [n 1 u]]
+
+and one can inspect the value in debugger using all the possible
+methods.
+
+Something is still amiss: consider the loop variable $cnt of the
+script.  It was a number, not an object.  We cannot make this value of
+type C<symbolic>, since then the loop will not terminate.
+
+Indeed, to terminate the cycle, the $cnt should become false.
+However, the operator C<bool> for checking falsity is overloaded (this
+time via overloaded C<"">), and returns a long string, thus any object
+of type C<symbolic> is true.  To overcome this, we need a way to
+compare an object to 0.  In fact, it is easier to write a numeric
+conversion routine.
+
+Here is the text of F<symbolic.pm> with such a routine added (and
+slightly modified str()):
+
+  package symbolic;		# Primitive symbolic calculator
+  use overload
+    nomethod => \&wrap, '""' => \&str, '0+' => \&num;
+
+  sub new { shift; bless ['n', @_] }
+  sub wrap {
+    my ($obj, $other, $inv, $meth) = @_;
+    ($obj, $other) = ($other, $obj) if $inv;
+    bless [$meth, $obj, $other];
+  }
+  sub str {
+    my ($meth, $a, $b) = @{+shift};
+    $a = 'u' unless defined $a;
+    if (defined $b) {
+      "[$meth $a $b]";
+    } else {
+      "[$meth $a]";
+    }
+  }
+  my %subr = ( n => sub {$_[0]},
+	       sqrt => sub {sqrt $_[0]},
+	       '-' => sub {shift() - shift()},
+	       '+' => sub {shift() + shift()},
+	       '/' => sub {shift() / shift()},
+	       '*' => sub {shift() * shift()},
+	       '**' => sub {shift() ** shift()},
+	     );
+  sub num {
+    my ($meth, $a, $b) = @{+shift};
+    my $subr = $subr{$meth}
+      or die "Do not know how to ($meth) in symbolic";
+    $a = $a->num if ref $a eq __PACKAGE__;
+    $b = $b->num if ref $b eq __PACKAGE__;
+    $subr->($a,$b);
+  }
+
+All the work of numeric conversion is done in %subr and num().  Of
+course, %subr is not complete, it contains only operators used in the
+example below.  Here is the extra-credit question: why do we need an
+explicit recursion in num()?  (Answer is at the end of this section.)
+
+Use this module like this:
+
+  require symbolic;
+  my $iter = symbolic->new(2);	# 16-gon
+  my $side = symbolic->new(1);
+  my $cnt = $iter;
+
+  while ($cnt) {
+    $cnt = $cnt - 1;		# Mutator '--' not implemented
+    $side = (sqrt(1 + $side**2) - 1)/$side;
+  }
+  printf "%s=%f\n", $side, $side;
+  printf "pi=%f\n", $side*(2**($iter+2));
+
+It prints (without so many line breaks)
+
+  [/ [- [sqrt [+ 1 [** [/ [- [sqrt [+ 1 [** [n 1] 2]]] 1]
+			  [n 1]] 2]]] 1]
+     [/ [- [sqrt [+ 1 [** [n 1] 2]]] 1] [n 1]]]=0.198912
+  pi=3.182598
+
+The above module is very primitive.  It does not implement
+mutator methods (C<++>, C<-=> and so on), does not do deep copying
+(not required without mutators!), and implements only those arithmetic
+operations which are used in the example.
+
+To implement most arithmetic operations is easy; one should just use
+the tables of operations, and change the code which fills %subr to
+
+  my %subr = ( 'n' => sub {$_[0]} );
+  foreach my $op (split " ", $overload::ops{with_assign}) {
+    $subr{$op} = $subr{"$op="} = eval "sub {shift() $op shift()}";
+  }
+  my @bins = qw(binary 3way_comparison num_comparison str_comparison);
+  foreach my $op (split " ", "@overload::ops{ @bins }") {
+    $subr{$op} = eval "sub {shift() $op shift()}";
+  }
+  foreach my $op (split " ", "@overload::ops{qw(unary func)}") {
+    print "defining '$op'\n";
+    $subr{$op} = eval "sub {$op shift()}";
+  }
+
+Since subroutines implementing assignment operators are not required
+to modify their operands (see L<Overloadable Operations> above),
+we do not need anything special to make C<+=> and friends work,
+besides adding these operators to %subr and defining a copy
+constructor (needed since Perl has no way to know that the
+implementation of C<'+='> does not mutate the argument -
+see L<Copy Constructor>).
+
+To implement a copy constructor, add C<< '=' => \&cpy >> to C<use overload>
+line, and code (this code assumes that mutators change things one level
+deep only, so recursive copying is not needed):
+
+  sub cpy {
+    my $self = shift;
+    bless [@$self], ref $self;
+  }
+
+To make C<++> and C<--> work, we need to implement actual mutators,
+either directly, or in C<nomethod>.  We continue to do things inside
+C<nomethod>, thus add
+
+    if ($meth eq '++' or $meth eq '--') {
+      @$obj = ($meth, (bless [@$obj]), 1); # Avoid circular reference
+      return $obj;
+    }
+
+after the first line of wrap().  This is not a most effective
+implementation, one may consider
+
+  sub inc { $_[0] = bless ['++', shift, 1]; }
+
+instead.
+
+As a final remark, note that one can fill %subr by
+
+  my %subr = ( 'n' => sub {$_[0]} );
+  foreach my $op (split " ", $overload::ops{with_assign}) {
+    $subr{$op} = $subr{"$op="} = eval "sub {shift() $op shift()}";
+  }
+  my @bins = qw(binary 3way_comparison num_comparison str_comparison);
+  foreach my $op (split " ", "@overload::ops{ @bins }") {
+    $subr{$op} = eval "sub {shift() $op shift()}";
+  }
+  foreach my $op (split " ", "@overload::ops{qw(unary func)}") {
+    $subr{$op} = eval "sub {$op shift()}";
+  }
+  $subr{'++'} = $subr{'+'};
+  $subr{'--'} = $subr{'-'};
+
+This finishes implementation of a primitive symbolic calculator in
+50 lines of Perl code.  Since the numeric values of subexpressions
+are not cached, the calculator is very slow.
+
+Here is the answer for the exercise: In the case of str(), we need no
+explicit recursion since the overloaded C<.>-operator will fall back
+to an existing overloaded operator C<"">.  Overloaded arithmetic
+operators I<do not> fall back to numeric conversion if C<fallback> is
+not explicitly requested.  Thus without an explicit recursion num()
+would convert C<['+', $a, $b]> to C<$a + $b>, which would just rebuild
+the argument of num().
+
+If you wonder why defaults for conversion are different for str() and
+num(), note how easy it was to write the symbolic calculator.  This
+simplicity is due to an appropriate choice of defaults.  One extra
+note: due to the explicit recursion num() is more fragile than sym():
+we need to explicitly check for the type of $a and $b.  If components
+$a and $b happen to be of some related type, this may lead to problems.
+
+=head2 I<Really> Symbolic Calculator
+
+One may wonder why we call the above calculator symbolic.  The reason
+is that the actual calculation of the value of expression is postponed
+until the value is I<used>.
+
+To see it in action, add a method
+
+  sub STORE {
+    my $obj = shift;
+    $#$obj = 1;
+    @$obj->[0,1] = ('=', shift);
+  }
+
+to the package C<symbolic>.  After this change one can do
+
+  my $a = symbolic->new(3);
+  my $b = symbolic->new(4);
+  my $c = sqrt($a**2 + $b**2);
+
+and the numeric value of $c becomes 5.  However, after calling
+
+  $a->STORE(12);  $b->STORE(5);
+
+the numeric value of $c becomes 13.  There is no doubt now that the module
+symbolic provides a I<symbolic> calculator indeed.
+
+To hide the rough edges under the hood, provide a tie()d interface to the
+package C<symbolic>.  Add methods
+
+  sub TIESCALAR { my $pack = shift; $pack->new(@_) }
+  sub FETCH { shift }
+  sub nop {  }		# Around a bug
+
+(the bug, fixed in Perl 5.14, is described in L<"BUGS">).  One can use this
+new interface as
+
+  tie $a, 'symbolic', 3;
+  tie $b, 'symbolic', 4;
+  $a->nop;  $b->nop;	# Around a bug
+
+  my $c = sqrt($a**2 + $b**2);
+
+Now numeric value of $c is 5.  After C<$a = 12; $b = 5> the numeric value
+of $c becomes 13.  To insulate the user of the module add a method
+
+  sub vars { my $p = shift; tie($_, $p), $_->nop foreach @_; }
+
+Now
+
+  my ($a, $b);
+  symbolic->vars($a, $b);
+  my $c = sqrt($a**2 + $b**2);
+
+  $a = 3; $b = 4;
+  printf "c5  %s=%f\n", $c, $c;
+
+  $a = 12; $b = 5;
+  printf "c13  %s=%f\n", $c, $c;
+
+shows that the numeric value of $c follows changes to the values of $a
+and $b.
+
+=head1 AUTHOR
+
+Ilya Zakharevich E<lt>F<ilya@math.mps.ohio-state.edu>E<gt>.
+
+=head1 SEE ALSO
+
+The C<overloading> pragma can be used to enable or disable overloaded
+operations within a lexical scope - see L<overloading>.
+
+=head1 DIAGNOSTICS
+
+When Perl is run with the B<-Do> switch or its equivalent, overloading
+induces diagnostic messages.
+
+Using the C<m> command of Perl debugger (see L<perldebug>) one can
+deduce which operations are overloaded (and which ancestor triggers
+this overloading).  Say, if C<eq> is overloaded, then the method C<(eq>
+is shown by debugger.  The method C<()> corresponds to the C<fallback>
+key (in fact a presence of this method shows that this package has
+overloading enabled, and it is what is used by the C<Overloaded>
+function of module C<overload>).
+
+The module might issue the following warnings:
+
+=over 4
+
+=item Odd number of arguments for overload::constant
+
+(W) The call to overload::constant contained an odd number of arguments.
+The arguments should come in pairs.
+
+=item '%s' is not an overloadable type
+
+(W) You tried to overload a constant type the overload package is unaware of.
+
+=item '%s' is not a code reference
+
+(W) The second (fourth, sixth, ...) argument of overload::constant needs
+to be a code reference.  Either an anonymous subroutine, or a reference
+to a subroutine.
+
+=item overload arg '%s' is invalid
+
+(W) C<use overload> was passed an argument it did not
+recognize.  Did you mistype an operator?
+
+=back
+
+=head1 BUGS AND PITFALLS
+
+=over
+
+=item *
+
+A pitfall when fallback is TRUE and Perl resorts to a built-in
+implementation of an operator is that some operators have more
+than one semantic, for example C<|>:
+
+        use overload '0+' => sub { $_[0]->{n}; },
+            fallback => 1;
+        my $x = bless { n => 4 }, "main";
+        my $y = bless { n => 8 }, "main";
+        print $x | $y, "\n";
+
+You might expect this to output "12".
+In fact, it prints "<": the ASCII result of treating "|"
+as a bitwise string operator - that is, the result of treating
+the operands as the strings "4" and "8" rather than numbers.
+The fact that numify (C<0+>) is implemented but stringify
+(C<"">) isn't makes no difference since the latter is simply
+autogenerated from the former.
+
+The only way to change this is to provide your own subroutine
+for C<'|'>.
+
+=item *
+
+Magic autogeneration increases the potential for inadvertently
+creating self-referential structures.
+Currently Perl will not free self-referential
+structures until cycles are explicitly broken.
+For example,
+
+    use overload '+' => 'add';
+    sub add { bless [ \$_[0], \$_[1] ] };
+
+is asking for trouble, since
+
+    $obj += $y;
+
+will effectively become
+
+    $obj = add($obj, $y, undef);
+
+with the same result as
+
+    $obj = [\$obj, \$foo];
+
+Even if no I<explicit> assignment-variants of operators are present in
+the script, they may be generated by the optimizer.
+For example,
+
+    "obj = $obj\n"
+
+may be optimized to
+
+    my $tmp = 'obj = ' . $obj;  $tmp .= "\n";
+
+=item *
+
+The symbol table is filled with names looking like line-noise.
+
+=item *
+
+This bug was fixed in Perl 5.18, but may still trip you up if you are using
+older versions:
+
+For the purpose of inheritance every overloaded package behaves as if
+C<fallback> is present (possibly undefined).  This may create
+interesting effects if some package is not overloaded, but inherits
+from two overloaded packages.
+
+=item *
+
+Before Perl 5.14, the relation between overloading and tie()ing was broken.
+Overloading was triggered or not based on the I<previous> class of the
+tie()d variable.
+
+This happened because the presence of overloading was checked
+too early, before any tie()d access was attempted.  If the
+class of the value FETCH()ed from the tied variable does not
+change, a simple workaround for code that is to run on older Perl
+versions is to access the value (via C<() = $foo> or some such)
+immediately after tie()ing, so that after this call the I<previous> class
+coincides with the current one.
+
+=item *
+
+Barewords are not covered by overloaded string constants.
+
+=item *
+
+The range operator C<..> cannot be overloaded.
+
+=back
+
+=cut
+
diff --git a/lib/5.24.1/overload/numbers.pm b/lib/5.24.1/overload/numbers.pm
new file mode 100644
index 00000000..ccea9e17
--- /dev/null
+++ b/lib/5.24.1/overload/numbers.pm
@@ -0,0 +1,176 @@
+# -*- buffer-read-only: t -*-
+#
+#    lib/overload/numbers.pm
+#
+#    Copyright (C) 2008 by Larry Wall and others
+#
+#    You may distribute under the terms of either the GNU General Public
+#    License or the Artistic License, as specified in the README file.
+#
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is built by regen/overload.pl.
+# Any changes made here will be lost!
+
+package overload::numbers;
+
+our @names = qw#
+    ()
+    (${}
+    (@{}
+    (%{}
+    (*{}
+    (&{}
+    (++
+    (--
+    (bool
+    (0+
+    (""
+    (!
+    (=
+    (abs
+    (neg
+    (<>
+    (int
+    (<
+    (<=
+    (>
+    (>=
+    (==
+    (!=
+    (lt
+    (le
+    (gt
+    (ge
+    (eq
+    (ne
+    (nomethod
+    (+
+    (+=
+    (-
+    (-=
+    (*
+    (*=
+    (/
+    (/=
+    (%
+    (%=
+    (**
+    (**=
+    (<<
+    (<<=
+    (>>
+    (>>=
+    (&
+    (&=
+    (&.
+    (&.=
+    (|
+    (|=
+    (|.
+    (|.=
+    (^
+    (^=
+    (^.
+    (^.=
+    (<=>
+    (cmp
+    (~
+    (~.
+    (atan2
+    (cos
+    (sin
+    (exp
+    (log
+    (sqrt
+    (x
+    (x=
+    (.
+    (.=
+    (~~
+    (-X
+    (qr
+#;
+
+our @enums = qw#
+    fallback
+    to_sv
+    to_av
+    to_hv
+    to_gv
+    to_cv
+    inc
+    dec
+    bool_
+    numer
+    string
+    not
+    copy
+    abs
+    neg
+    iter
+    int
+    lt
+    le
+    gt
+    ge
+    eq
+    ne
+    slt
+    sle
+    sgt
+    sge
+    seq
+    sne
+    nomethod
+    add
+    add_ass
+    subtr
+    subtr_ass
+    mult
+    mult_ass
+    div
+    div_ass
+    modulo
+    modulo_ass
+    pow
+    pow_ass
+    lshift
+    lshift_ass
+    rshift
+    rshift_ass
+    band
+    band_ass
+    sband
+    sband_ass
+    bor
+    bor_ass
+    sbor
+    sbor_ass
+    bxor
+    bxor_ass
+    sbxor
+    sbxor_ass
+    ncmp
+    scmp
+    compl
+    scompl
+    atan2
+    cos
+    sin
+    exp
+    log
+    sqrt
+    repeat
+    repeat_ass
+    concat
+    concat_ass
+    smart
+    ftest
+    regexp
+#;
+
+{ my $i = 0; our %names = map { $_ => $i++ } @names }
+
+{ my $i = 0; our %enums = map { $_ => $i++ } @enums }
+
+# ex: set ro:
diff --git a/lib/5.24.1/overloading.pm b/lib/5.24.1/overloading.pm
new file mode 100644
index 00000000..c7622270
--- /dev/null
+++ b/lib/5.24.1/overloading.pm
@@ -0,0 +1,99 @@
+package overloading;
+use warnings;
+
+our $VERSION = '0.02';
+
+my $HINT_NO_AMAGIC = 0x01000000; # see perl.h
+
+require 5.010001;
+
+sub _ops_to_nums {
+    require overload::numbers;
+
+    map { exists $overload::numbers::names{"($_"}
+	? $overload::numbers::names{"($_"}
+	: do { require Carp; Carp::croak("'$_' is not a valid overload") }
+    } @_;
+}
+
+sub import {
+    my ( $class, @ops ) = @_;
+
+    if ( @ops ) {
+	if ( $^H{overloading} ) {
+	    vec($^H{overloading} , $_, 1) = 0 for _ops_to_nums(@ops);
+	}
+
+	if ( $^H{overloading} !~ /[^\0]/ ) {
+	    delete $^H{overloading};
+	    $^H &= ~$HINT_NO_AMAGIC;
+	}
+    } else {
+	delete $^H{overloading};
+	$^H &= ~$HINT_NO_AMAGIC;
+    }
+}
+
+sub unimport {
+    my ( $class, @ops ) = @_;
+
+    if ( exists $^H{overloading} or not $^H & $HINT_NO_AMAGIC ) {
+	if ( @ops ) {
+	    vec($^H{overloading} ||= '', $_, 1) = 1 for _ops_to_nums(@ops);
+	} else {
+	    delete $^H{overloading};
+	}
+    }
+
+    $^H |= $HINT_NO_AMAGIC;
+}
+
+1;
+__END__
+
+=head1 NAME
+
+overloading - perl pragma to lexically control overloading
+
+=head1 SYNOPSIS
+
+    {
+	no overloading;
+	my $str = "$object"; # doesn't call stringification overload
+    }
+
+    # it's lexical, so this stringifies:
+    warn "$object";
+
+    # it can be enabled per op
+    no overloading qw("");
+    warn "$object";
+
+    # and also reenabled
+    use overloading;
+
+=head1 DESCRIPTION
+
+This pragma allows you to lexically disable or enable overloading.
+
+=over 6
+
+=item C<no overloading>
+
+Disables overloading entirely in the current lexical scope.
+
+=item C<no overloading @ops>
+
+Disables only specific overloads in the current lexical scope.
+
+=item C<use overloading>
+
+Reenables overloading in the current lexical scope.
+
+=item C<use overloading @ops>
+
+Reenables overloading only for specific ops in the current lexical scope.
+
+=back
+
+=cut
diff --git a/lib/5.24.1/parent.pm b/lib/5.24.1/parent.pm
new file mode 100644
index 00000000..f6e8cd49
--- /dev/null
+++ b/lib/5.24.1/parent.pm
@@ -0,0 +1,119 @@
+package parent;
+use strict;
+use vars qw($VERSION);
+$VERSION = '0.234';
+
+sub import {
+    my $class = shift;
+
+    my $inheritor = caller(0);
+
+    if ( @_ and $_[0] eq '-norequire' ) {
+        shift @_;
+    } else {
+        for ( my @filename = @_ ) {
+            s{::|'}{/}g;
+            require "$_.pm"; # dies if the file is not found
+        }
+    }
+
+    {
+        no strict 'refs';
+        push @{"$inheritor\::ISA"}, @_;
+    };
+};
+
+"All your base are belong to us"
+
+__END__
+
+=encoding utf8
+
+=head1 NAME
+
+parent - Establish an ISA relationship with base classes at compile time
+
+=head1 SYNOPSIS
+
+    package Baz;
+    use parent qw(Foo Bar);
+
+=head1 DESCRIPTION
+
+Allows you to both load one or more modules, while setting up inheritance from
+those modules at the same time.  Mostly similar in effect to
+
+    package Baz;
+    BEGIN {
+        require Foo;
+        require Bar;
+        push @ISA, qw(Foo Bar);
+    }
+
+By default, every base class needs to live in a file of its own.
+If you want to have a subclass and its parent class in the same file, you
+can tell C<parent> not to load any modules by using the C<-norequire> switch:
+
+  package Foo;
+  sub exclaim { "I CAN HAS PERL" }
+
+  package DoesNotLoadFooBar;
+  use parent -norequire, 'Foo', 'Bar';
+  # will not go looking for Foo.pm or Bar.pm
+
+This is equivalent to the following code:
+
+  package Foo;
+  sub exclaim { "I CAN HAS PERL" }
+
+  package DoesNotLoadFooBar;
+  push @DoesNotLoadFooBar::ISA, 'Foo', 'Bar';
+
+This is also helpful for the case where a package lives within
+a differently named file:
+
+  package MyHash;
+  use Tie::Hash;
+  use parent -norequire, 'Tie::StdHash';
+
+This is equivalent to the following code:
+
+  package MyHash;
+  require Tie::Hash;
+  push @ISA, 'Tie::StdHash';
+
+If you want to load a subclass from a file that C<require> would
+not consider an eligible filename (that is, it does not end in
+either C<.pm> or C<.pmc>), use the following code:
+
+  package MySecondPlugin;
+  require './plugins/custom.plugin'; # contains Plugin::Custom
+  use parent -norequire, 'Plugin::Custom';
+
+=head1 HISTORY
+
+This module was forked from L<base> to remove the cruft
+that had accumulated in it.
+
+=head1 CAVEATS
+
+=head1 SEE ALSO
+
+L<base>
+
+=head1 AUTHORS AND CONTRIBUTORS
+
+Rafaël Garcia-Suarez, Bart Lateur, Max Maischein, Anno Siegel, Michael Schwern
+
+=head1 MAINTAINER
+
+Max Maischein C< corion@cpan.org >
+
+Copyright (c) 2007-10 Max Maischein C<< <corion@cpan.org> >>
+Based on the idea of C<base.pm>, which was introduced with Perl 5.004_04.
+
+=head1 LICENSE
+
+This module is released under the same terms as Perl itself.
+
+=cut
diff --git a/lib/5.24.1/perl5db.pl b/lib/5.24.1/perl5db.pl
new file mode 100644
index 00000000..6dae6b0f
--- /dev/null
+++ b/lib/5.24.1/perl5db.pl
@@ -0,0 +1,10379 @@
+
+=head1 NAME
+
+perl5db.pl - the perl debugger
+
+=head1 SYNOPSIS
+
+    perl -d  your_Perl_script
+
+=head1 DESCRIPTION
+
+C<perl5db.pl> is the perl debugger. It is loaded automatically by Perl when
+you invoke a script with C<perl -d>. This documentation tries to outline the
+structure and services provided by C<perl5db.pl>, and to describe how you
+can use them.
+
+=head1 GENERAL NOTES
+
+The debugger can look pretty forbidding to many Perl programmers. There are
+a number of reasons for this, many stemming out of the debugger's history.
+
+When the debugger was first written, Perl didn't have a lot of its nicer
+features - no references, no lexical variables, no closures, no object-oriented
+programming. So a lot of the things one would normally have done using such
+features was done using global variables, globs and the C<local()> operator
+in creative ways.
+
+Some of these have survived into the current debugger; a few of the more
+interesting and still-useful idioms are noted in this section, along with notes
+on the comments themselves.
+
+=head2 Why not use more lexicals?
+
+Experienced Perl programmers will note that the debugger code tends to use
+mostly package globals rather than lexically-scoped variables. This is done
+to allow a significant amount of control of the debugger from outside the
+debugger itself.
+
+Unfortunately, though the variables are accessible, they're not well
+documented, so it's generally been a decision that hasn't made a lot of
+difference to most users. Where appropriate, comments have been added to
+make variables more accessible and usable, with the understanding that these
+I<are> debugger internals, and are therefore subject to change. Future
+development should probably attempt to replace the globals with a well-defined
+API, but for now, the variables are what we've got.
+
+=head2 Automated variable stacking via C<local()>
+
+As you may recall from reading C<perlfunc>, the C<local()> operator makes a
+temporary copy of a variable in the current scope. When the scope ends, the
+old copy is restored. This is often used in the debugger to handle the
+automatic stacking of variables during recursive calls:
+
+     sub foo {
+        local $some_global++;
+
+        # Do some stuff, then ...
+        return;
+     }
+
+What happens is that on entry to the subroutine, C<$some_global> is localized,
+then altered. When the subroutine returns, Perl automatically undoes the
+localization, restoring the previous value. Voila, automatic stack management.
+
+The debugger uses this trick a I<lot>. Of particular note is C<DB::eval>,
+which lets the debugger get control inside of C<eval>'ed code. The debugger
+localizes a saved copy of C<$@> inside the subroutine, which allows it to
+keep C<$@> safe until it C<DB::eval> returns, at which point the previous
+value of C<$@> is restored. This makes it simple (well, I<simpler>) to keep
+track of C<$@> inside C<eval>s which C<eval> other C<eval's>.
+
+In any case, watch for this pattern. It occurs fairly often.
+
+=head2 The C<^> trick
+
+This is used to cleverly reverse the sense of a logical test depending on
+the value of an auxiliary variable. For instance, the debugger's C<S>
+(search for subroutines by pattern) allows you to negate the pattern
+like this:
+
+   # Find all non-'foo' subs:
+   S !/foo/
+
+Boolean algebra states that the truth table for XOR looks like this:
+
+=over 4
+
+=item * 0 ^ 0 = 0
+
+(! not present and no match) --> false, don't print
+
+=item * 0 ^ 1 = 1
+
+(! not present and matches) --> true, print
+
+=item * 1 ^ 0 = 1
+
+(! present and no match) --> true, print
+
+=item * 1 ^ 1 = 0
+
+(! present and matches) --> false, don't print
+
+=back
+
+As you can see, the first pair applies when C<!> isn't supplied, and
+the second pair applies when it is. The XOR simply allows us to
+compact a more complicated if-then-elseif-else into a more elegant
+(but perhaps overly clever) single test. After all, it needed this
+explanation...
+
+=head2 FLAGS, FLAGS, FLAGS
+
+There is a certain C programming legacy in the debugger. Some variables,
+such as C<$single>, C<$trace>, and C<$frame>, have I<magical> values composed
+of 1, 2, 4, etc. (powers of 2) OR'ed together. This allows several pieces
+of state to be stored independently in a single scalar.
+
+A test like
+
+    if ($scalar & 4) ...
+
+is checking to see if the appropriate bit is on. Since each bit can be
+"addressed" independently in this way, C<$scalar> is acting sort of like
+an array of bits. Obviously, since the contents of C<$scalar> are just a
+bit-pattern, we can save and restore it easily (it will just look like
+a number).
+
+The problem, is of course, that this tends to leave magic numbers scattered
+all over your program whenever a bit is set, cleared, or checked. So why do
+it?
+
+=over 4
+
+=item *
+
+First, doing an arithmetical or bitwise operation on a scalar is
+just about the fastest thing you can do in Perl: C<use constant> actually
+creates a subroutine call, and array and hash lookups are much slower. Is
+this over-optimization at the expense of readability? Possibly, but the
+debugger accesses these  variables a I<lot>. Any rewrite of the code will
+probably have to benchmark alternate implementations and see which is the
+best balance of readability and speed, and then document how it actually
+works.
+
+=item *
+
+Second, it's very easy to serialize a scalar number. This is done in
+the restart code; the debugger state variables are saved in C<%ENV> and then
+restored when the debugger is restarted. Having them be just numbers makes
+this trivial.
+
+=item *
+
+Third, some of these variables are being shared with the Perl core
+smack in the middle of the interpreter's execution loop. It's much faster for
+a C program (like the interpreter) to check a bit in a scalar than to access
+several different variables (or a Perl array).
+
+=back
+
+=head2 What are those C<XXX> comments for?
+
+Any comment containing C<XXX> means that the comment is either somewhat
+speculative - it's not exactly clear what a given variable or chunk of
+code is doing, or that it is incomplete - the basics may be clear, but the
+subtleties are not completely documented.
+
+Send in a patch if you can clear up, fill out, or clarify an C<XXX>.
+
+=head1 DATA STRUCTURES MAINTAINED BY CORE
+
+There are a number of special data structures provided to the debugger by
+the Perl interpreter.
+
+The array C<@{$main::{'_<'.$filename}}> (aliased locally to C<@dbline>
+via glob assignment) contains the text from C<$filename>, with each
+element corresponding to a single line of C<$filename>. Additionally,
+breakable lines will be dualvars with the numeric component being the
+memory address of a COP node. Non-breakable lines are dualvar to 0.
+
+The hash C<%{'_<'.$filename}> (aliased locally to C<%dbline> via glob
+assignment) contains breakpoints and actions.  The keys are line numbers;
+you can set individual values, but not the whole hash. The Perl interpreter
+uses this hash to determine where breakpoints have been set. Any true value is
+considered to be a breakpoint; C<perl5db.pl> uses C<$break_condition\0$action>.
+Values are magical in numeric context: 1 if the line is breakable, 0 if not.
+
+The scalar C<${"_<$filename"}> simply contains the string C<$filename>.
+This is also the case for evaluated strings that contain subroutines, or
+which are currently being executed.  The $filename for C<eval>ed strings looks
+like C<(eval 34)>.
+
+=head1 DEBUGGER STARTUP
+
+When C<perl5db.pl> starts, it reads an rcfile (C<perl5db.ini> for
+non-interactive sessions, C<.perldb> for interactive ones) that can set a number
+of options. In addition, this file may define a subroutine C<&afterinit>
+that will be executed (in the debugger's context) after the debugger has
+initialized itself.
+
+Next, it checks the C<PERLDB_OPTS> environment variable and treats its
+contents as the argument of a C<o> command in the debugger.
+
+=head2 STARTUP-ONLY OPTIONS
+
+The following options can only be specified at startup.
+To set them in your rcfile, add a call to
+C<&parse_options("optionName=new_value")>.
+
+=over 4
+
+=item * TTY
+
+the TTY to use for debugging i/o.
+
+=item * noTTY
+
+if set, goes in NonStop mode.  On interrupt, if TTY is not set,
+uses the value of noTTY or F<$HOME/.perldbtty$$> to find TTY using
+Term::Rendezvous.  Current variant is to have the name of TTY in this
+file.
+
+=item * ReadLine
+
+if false, a dummy ReadLine is used, so you can debug
+ReadLine applications.
+
+=item * NonStop
+
+if true, no i/o is performed until interrupt.
+
+=item * LineInfo
+
+file or pipe to print line number info to.  If it is a
+pipe, a short "emacs like" message is used.
+
+=item * RemotePort
+
+host:port to connect to on remote host for remote debugging.
+
+=item * HistFile
+
+file to store session history to. There is no default and so no
+history file is written unless this variable is explicitly set.
+
+=item * HistSize
+
+number of commands to store to the file specified in C<HistFile>.
+Default is 100.
+
+=back
+
+=head3 SAMPLE RCFILE
+
+ &parse_options("NonStop=1 LineInfo=db.out");
+  sub afterinit { $trace = 1; }
+
+The script will run without human intervention, putting trace
+information into C<db.out>.  (If you interrupt it, you had better
+reset C<LineInfo> to something I<interactive>!)
+
+=head1 INTERNALS DESCRIPTION
+
+=head2 DEBUGGER INTERFACE VARIABLES
+
+Perl supplies the values for C<%sub>.  It effectively inserts
+a C<&DB::DB();> in front of each place that can have a
+breakpoint. At each subroutine call, it calls C<&DB::sub> with
+C<$DB::sub> set to the called subroutine. It also inserts a C<BEGIN
+{require 'perl5db.pl'}> before the first line.
+
+After each C<require>d file is compiled, but before it is executed, a
+call to C<&DB::postponed($main::{'_<'.$filename})> is done. C<$filename>
+is the expanded name of the C<require>d file (as found via C<%INC>).
+
+=head3 IMPORTANT INTERNAL VARIABLES
+
+=head4 C<$CreateTTY>
+
+Used to control when the debugger will attempt to acquire another TTY to be
+used for input.
+
+=over
+
+=item * 1 -  on C<fork()>
+
+=item * 2 - debugger is started inside debugger
+
+=item * 4 -  on startup
+
+=back
+
+=head4 C<$doret>
+
+The value -2 indicates that no return value should be printed.
+Any other positive value causes C<DB::sub> to print return values.
+
+=head4 C<$evalarg>
+
+The item to be eval'ed by C<DB::eval>. Used to prevent messing with the current
+contents of C<@_> when C<DB::eval> is called.
+
+=head4 C<$frame>
+
+Determines what messages (if any) will get printed when a subroutine (or eval)
+is entered or exited.
+
+=over 4
+
+=item * 0 -  No enter/exit messages
+
+=item * 1 - Print I<entering> messages on subroutine entry
+
+=item * 2 - Adds exit messages on subroutine exit. If no other flag is on, acts like 1+2.
+
+=item * 4 - Extended messages: C<< <in|out> I<context>=I<fully-qualified sub name> from I<file>:I<line> >>. If no other flag is on, acts like 1+4.
+
+=item * 8 - Adds parameter information to messages, and overloaded stringify and tied FETCH is enabled on the printed arguments. Ignored if C<4> is not on.
+
+=item * 16 - Adds C<I<context> return from I<subname>: I<value>> messages on subroutine/eval exit. Ignored if C<4> is not on.
+
+=back
+
+To get everything, use C<$frame=30> (or C<o f=30> as a debugger command).
+The debugger internally juggles the value of C<$frame> during execution to
+protect external modules that the debugger uses from getting traced.
+
+=head4 C<$level>
+
+Tracks current debugger nesting level. Used to figure out how many
+C<E<lt>E<gt>> pairs to surround the line number with when the debugger
+outputs a prompt. Also used to help determine if the program has finished
+during command parsing.
+
+=head4 C<$onetimeDump>
+
+Controls what (if anything) C<DB::eval()> will print after evaluating an
+expression.
+
+=over 4
+
+=item * C<undef> - don't print anything
+
+=item * C<dump> - use C<dumpvar.pl> to display the value returned
+
+=item * C<methods> - print the methods callable on the first item returned
+
+=back
+
+=head4 C<$onetimeDumpDepth>
+
+Controls how far down C<dumpvar.pl> will go before printing C<...> while
+dumping a structure. Numeric. If C<undef>, print all levels.
+
+=head4 C<$signal>
+
+Used to track whether or not an C<INT> signal has been detected. C<DB::DB()>,
+which is called before every statement, checks this and puts the user into
+command mode if it finds C<$signal> set to a true value.
+
+=head4 C<$single>
+
+Controls behavior during single-stepping. Stacked in C<@stack> on entry to
+each subroutine; popped again at the end of each subroutine.
+
+=over 4
+
+=item * 0 - run continuously.
+
+=item * 1 - single-step, go into subs. The C<s> command.
+
+=item * 2 - single-step, don't go into subs. The C<n> command.
+
+=item * 4 - print current sub depth (turned on to force this when C<too much
+recursion> occurs.
+
+=back
+
+=head4 C<$trace>
+
+Controls the output of trace information.
+
+=over 4
+
+=item * 1 - The C<t> command was entered to turn on tracing (every line executed is printed)
+
+=item * 2 - watch expressions are active
+
+=item * 4 - user defined a C<watchfunction()> in C<afterinit()>
+
+=back
+
+=head4 C<$slave_editor>
+
+1 if C<LINEINFO> was directed to a pipe; 0 otherwise.
+
+=head4 C<@cmdfhs>
+
+Stack of filehandles that C<DB::readline()> will read commands from.
+Manipulated by the debugger's C<source> command and C<DB::readline()> itself.
+
+=head4 C<@dbline>
+
+Local alias to the magical line array, C<@{$main::{'_<'.$filename}}> ,
+supplied by the Perl interpreter to the debugger. Contains the source.
+
+=head4 C<@old_watch>
+
+Previous values of watch expressions. First set when the expression is
+entered; reset whenever the watch expression changes.
+
+=head4 C<@saved>
+
+Saves important globals (C<$@>, C<$!>, C<$^E>, C<$,>, C<$/>, C<$\>, C<$^W>)
+so that the debugger can substitute safe values while it's running, and
+restore them when it returns control.
+
+=head4 C<@stack>
+
+Saves the current value of C<$single> on entry to a subroutine.
+Manipulated by the C<c> command to turn off tracing in all subs above the
+current one.
+
+=head4 C<@to_watch>
+
+The 'watch' expressions: to be evaluated before each line is executed.
+
+=head4 C<@typeahead>
+
+The typeahead buffer, used by C<DB::readline>.
+
+=head4 C<%alias>
+
+Command aliases. Stored as character strings to be substituted for a command
+entered.
+
+=head4 C<%break_on_load>
+
+Keys are file names, values are 1 (break when this file is loaded) or undef
+(don't break when it is loaded).
+
+=head4 C<%dbline>
+
+Keys are line numbers, values are C<condition\0action>. If used in numeric
+context, values are 0 if not breakable, 1 if breakable, no matter what is
+in the actual hash entry.
+
+=head4 C<%had_breakpoints>
+
+Keys are file names; values are bitfields:
+
+=over 4
+
+=item * 1 - file has a breakpoint in it.
+
+=item * 2 - file has an action in it.
+
+=back
+
+A zero or undefined value means this file has neither.
+
+=head4 C<%option>
+
+Stores the debugger options. These are character string values.
+
+=head4 C<%postponed>
+
+Saves breakpoints for code that hasn't been compiled yet.
+Keys are subroutine names, values are:
+
+=over 4
+
+=item * C<compile> - break when this sub is compiled
+
+=item * C<< break +0 if <condition> >> - break (conditionally) at the start of this routine. The condition will be '1' if no condition was specified.
+
+=back
+
+=head4 C<%postponed_file>
+
+This hash keeps track of breakpoints that need to be set for files that have
+not yet been compiled. Keys are filenames; values are references to hashes.
+Each of these hashes is keyed by line number, and its values are breakpoint
+definitions (C<condition\0action>).
+
+=head1 DEBUGGER INITIALIZATION
+
+The debugger's initialization actually jumps all over the place inside this
+package. This is because there are several BEGIN blocks (which of course
+execute immediately) spread through the code. Why is that?
+
+The debugger needs to be able to change some things and set some things up
+before the debugger code is compiled; most notably, the C<$deep> variable that
+C<DB::sub> uses to tell when a program has recursed deeply. In addition, the
+debugger has to turn off warnings while the debugger code is compiled, but then
+restore them to their original setting before the program being debugged begins
+executing.
+
+The first C<BEGIN> block simply turns off warnings by saving the current
+setting of C<$^W> and then setting it to zero. The second one initializes
+the debugger variables that are needed before the debugger begins executing.
+The third one puts C<$^X> back to its former value.
+
+We'll detail the second C<BEGIN> block later; just remember that if you need
+to initialize something before the debugger starts really executing, that's
+where it has to go.
+
+=cut
+
+package DB;
+
+use strict;
+
+use Cwd ();
+
+my $_initial_cwd;
+
+BEGIN {eval 'use IO::Handle'}; # Needed for flush only? breaks under miniperl
+
+BEGIN {
+    require feature;
+    $^V =~ /^v(\d+\.\d+)/;
+    feature->import(":$1");
+    $_initial_cwd = Cwd::getcwd();
+}
+
+# Debugger for Perl 5.00x; perl5db.pl patch level:
+use vars qw($VERSION $header);
+
+$VERSION = '1.49_05';
+
+$header = "perl5db.pl version $VERSION";
+
+=head1 DEBUGGER ROUTINES
+
+=head2 C<DB::eval()>
+
+This function replaces straight C<eval()> inside the debugger; it simplifies
+the process of evaluating code in the user's context.
+
+The code to be evaluated is passed via the package global variable
+C<$DB::evalarg>; this is done to avoid fiddling with the contents of C<@_>.
+
+Before we do the C<eval()>, we preserve the current settings of C<$trace>,
+C<$single>, C<$^D> and C<$usercontext>.  The latter contains the
+preserved values of C<$@>, C<$!>, C<$^E>, C<$,>, C<$/>, C<$\>, C<$^W> and the
+user's current package, grabbed when C<DB::DB> got control.  This causes the
+proper context to be used when the eval is actually done.  Afterward, we
+restore C<$trace>, C<$single>, and C<$^D>.
+
+Next we need to handle C<$@> without getting confused. We save C<$@> in a
+local lexical, localize C<$saved[0]> (which is where C<save()> will put
+C<$@>), and then call C<save()> to capture C<$@>, C<$!>, C<$^E>, C<$,>,
+C<$/>, C<$\>, and C<$^W>) and set C<$,>, C<$/>, C<$\>, and C<$^W> to values
+considered sane by the debugger. If there was an C<eval()> error, we print
+it on the debugger's output. If C<$onetimedump> is defined, we call
+C<dumpit> if it's set to 'dump', or C<methods> if it's set to
+'methods'. Setting it to something else causes the debugger to do the eval
+but not print the result - handy if you want to do something else with it
+(the "watch expressions" code does this to get the value of the watch
+expression but not show it unless it matters).
+
+In any case, we then return the list of output from C<eval> to the caller,
+and unwinding restores the former version of C<$@> in C<@saved> as well
+(the localization of C<$saved[0]> goes away at the end of this scope).
+
+=head3 Parameters and variables influencing execution of DB::eval()
+
+C<DB::eval> isn't parameterized in the standard way; this is to keep the
+debugger's calls to C<DB::eval()> from mucking with C<@_>, among other things.
+The variables listed below influence C<DB::eval()>'s execution directly.
+
+=over 4
+
+=item C<$evalarg> - the thing to actually be eval'ed
+
+=item C<$trace> - Current state of execution tracing
+
+=item C<$single> - Current state of single-stepping
+
+=item C<$onetimeDump> - what is to be displayed after the evaluation
+
+=item C<$onetimeDumpDepth> - how deep C<dumpit()> should go when dumping results
+
+=back
+
+The following variables are altered by C<DB::eval()> during its execution. They
+are "stacked" via C<local()>, enabling recursive calls to C<DB::eval()>.
+
+=over 4
+
+=item C<@res> - used to capture output from actual C<eval>.
+
+=item C<$otrace> - saved value of C<$trace>.
+
+=item C<$osingle> - saved value of C<$single>.
+
+=item C<$od> - saved value of C<$^D>.
+
+=item C<$saved[0]> - saved value of C<$@>.
+
+=item $\ - for output of C<$@> if there is an evaluation error.
+
+=back
+
+=head3 The problem of lexicals
+
+The context of C<DB::eval()> presents us with some problems. Obviously,
+we want to be 'sandboxed' away from the debugger's internals when we do
+the eval, but we need some way to control how punctuation variables and
+debugger globals are used.
+
+We can't use local, because the code inside C<DB::eval> can see localized
+variables; and we can't use C<my> either for the same reason. The code
+in this routine compromises and uses C<my>.
+
+After this routine is over, we don't have user code executing in the debugger's
+context, so we can use C<my> freely.
+
+=cut
+
+############################################## Begin lexical danger zone
+
+# 'my' variables used here could leak into (that is, be visible in)
+# the context that the code being evaluated is executing in. This means that
+# the code could modify the debugger's variables.
+#
+# Fiddling with the debugger's context could be Bad. We insulate things as
+# much as we can.
+
+use vars qw(
+    @args
+    %break_on_load
+    $CommandSet
+    $CreateTTY
+    $DBGR
+    @dbline
+    $dbline
+    %dbline
+    $dieLevel
+    $filename
+    $histfile
+    $histsize
+    $IN
+    $inhibit_exit
+    @ini_INC
+    $ini_warn
+    $maxtrace
+    $od
+    @options
+    $osingle
+    $otrace
+    $pager
+    $post
+    %postponed
+    $prc
+    $pre
+    $pretype
+    $psh
+    @RememberOnROptions
+    $remoteport
+    @res
+    $rl
+    @saved
+    $signalLevel
+    $sub
+    $term
+    $usercontext
+    $warnLevel
+);
+
+our (
+    @cmdfhs,
+    $evalarg,
+    $frame,
+    $hist,
+    $ImmediateStop,
+    $line,
+    $onetimeDump,
+    $onetimedumpDepth,
+    %option,
+    $OUT,
+    $packname,
+    $signal,
+    $single,
+    $start,
+    %sub,
+    $subname,
+    $trace,
+    $window,
+);
+
+# Used to save @ARGV and extract any debugger-related flags.
+use vars qw(@ARGS);
+
+# Used to prevent multiple entries to diesignal()
+# (if for instance diesignal() itself dies)
+use vars qw($panic);
+
+# Used to prevent the debugger from running nonstop
+# after a restart
+our ($second_time);
+
+sub _calc_usercontext {
+    my ($package) = @_;
+
+    # Cancel strict completely for the evaluated code, so the code
+    # the user evaluates won't be affected by it. (Shlomi Fish)
+    return 'no strict; ($@, $!, $^E, $,, $/, $\, $^W) = @DB::saved;'
+    . "package $package;";    # this won't let them modify, alas
+}
+
+sub eval {
+
+    # 'my' would make it visible from user code
+    #    but so does local! --tchrist
+    # Remember: this localizes @DB::res, not @main::res.
+    local @res;
+    {
+
+        # Try to keep the user code from messing  with us. Save these so that
+        # even if the eval'ed code changes them, we can put them back again.
+        # Needed because the user could refer directly to the debugger's
+        # package globals (and any 'my' variables in this containing scope)
+        # inside the eval(), and we want to try to stay safe.
+        local $otrace  = $trace;
+        local $osingle = $single;
+        local $od      = $^D;
+
+        # Untaint the incoming eval() argument.
+        { ($evalarg) = $evalarg =~ /(.*)/s; }
+
+        # $usercontext built in DB::DB near the comment
+        # "set up the context for DB::eval ..."
+        # Evaluate and save any results.
+        @res = eval "$usercontext $evalarg;\n";  # '\n' for nice recursive debug
+
+        # Restore those old values.
+        $trace  = $otrace;
+        $single = $osingle;
+        $^D     = $od;
+    }
+
+    # Save the current value of $@, and preserve it in the debugger's copy
+    # of the saved precious globals.
+    my $at = $@;
+
+    # Since we're only saving $@, we only have to localize the array element
+    # that it will be stored in.
+    local $saved[0];    # Preserve the old value of $@
+    eval { &DB::save };
+
+    # Now see whether we need to report an error back to the user.
+    if ($at) {
+        local $\ = '';
+        print $OUT $at;
+    }
+
+    # Display as required by the caller. $onetimeDump and $onetimedumpDepth
+    # are package globals.
+    elsif ($onetimeDump) {
+        if ( $onetimeDump eq 'dump' ) {
+            local $option{dumpDepth} = $onetimedumpDepth
+              if defined $onetimedumpDepth;
+            dumpit( $OUT, \@res );
+        }
+        elsif ( $onetimeDump eq 'methods' ) {
+            methods( $res[0] );
+        }
+    } ## end elsif ($onetimeDump)
+    @res;
+} ## end sub eval
+
+############################################## End lexical danger zone
+
+# After this point it is safe to introduce lexicals.
+# The code being debugged will be executing in its own context, and
+# can't see the inside of the debugger.
+#
+# However, one should not overdo it: leave as much control from outside as
+# possible. If you make something a lexical, it's not going to be addressable
+# from outside the debugger even if you know its name.
+
+# This file is automatically included if you do perl -d.
+# It's probably not useful to include this yourself.
+#
+# Before venturing further into these twisty passages, it is
+# wise to read the perldebguts man page or risk the ire of dragons.
+#
+# (It should be noted that perldebguts will tell you a lot about
+# the underlying mechanics of how the debugger interfaces into the
+# Perl interpreter, but not a lot about the debugger itself. The new
+# comments in this code try to address this problem.)
+
+# Note that no subroutine call is possible until &DB::sub is defined
+# (for subroutines defined outside of the package DB). In fact the same is
+# true if $deep is not defined.
+
+# Enhanced by ilya@math.ohio-state.edu (Ilya Zakharevich)
+
+# modified Perl debugger, to be run from Emacs in perldb-mode
+# Ray Lischner (uunet!mntgfx!lisch) as of 5 Nov 1990
+# Johan Vromans -- upgrade to 4.0 pl 10
+# Ilya Zakharevich -- patches after 5.001 (and some before ;-)
+########################################################################
+
+=head1 DEBUGGER INITIALIZATION
+
+The debugger starts up in phases.
+
+=head2 BASIC SETUP
+
+First, it initializes the environment it wants to run in: turning off
+warnings during its own compilation, defining variables which it will need
+to avoid warnings later, setting itself up to not exit when the program
+terminates, and defaulting to printing return values for the C<r> command.
+
+=cut
+
+# Needed for the statement after exec():
+#
+# This BEGIN block is simply used to switch off warnings during debugger
+# compilation. Probably it would be better practice to fix the warnings,
+# but this is how it's done at the moment.
+
+BEGIN {
+    $ini_warn = $^W;
+    $^W       = 0;
+}    # Switch compilation warnings off until another BEGIN.
+
+local ($^W) = 0;    # Switch run-time warnings off during init.
+
+=head2 THREADS SUPPORT
+
+If we are running under a threaded Perl, we require threads and threads::shared
+if the environment variable C<PERL5DB_THREADED> is set, to enable proper
+threaded debugger control.  C<-dt> can also be used to set this.
+
+Each new thread will be announced and the debugger prompt will always inform
+you of each new thread created.  It will also indicate the thread id in which
+we are currently running within the prompt like this:
+
+    [tid] DB<$i>
+
+Where C<[tid]> is an integer thread id and C<$i> is the familiar debugger
+command prompt.  The prompt will show: C<[0]> when running under threads, but
+not actually in a thread.  C<[tid]> is consistent with C<gdb> usage.
+
+While running under threads, when you set or delete a breakpoint (etc.), this
+will apply to all threads, not just the currently running one.  When you are
+in a currently executing thread, you will stay there until it completes.  With
+the current implementation it is not currently possible to hop from one thread
+to another.
+
+The C<e> and C<E> commands are currently fairly minimal - see C<h e> and C<h E>.
+
+Note that threading support was built into the debugger as of Perl version
+C<5.8.6> and debugger version C<1.2.8>.
+
+=cut
+
+BEGIN {
+    # ensure we can share our non-threaded variables or no-op
+    if ($ENV{PERL5DB_THREADED}) {
+        require threads;
+        require threads::shared;
+        import threads::shared qw(share);
+        $DBGR;
+        share(\$DBGR);
+        lock($DBGR);
+        print "Threads support enabled\n";
+    } else {
+        *lock = sub(*) {};
+        *share = sub(\[$@%]) {};
+    }
+}
+
+# These variables control the execution of 'dumpvar.pl'.
+{
+    package dumpvar;
+    use vars qw(
+    $hashDepth
+    $arrayDepth
+    $dumpDBFiles
+    $dumpPackages
+    $quoteHighBit
+    $printUndef
+    $globPrint
+    $usageOnly
+    );
+}
+
+# used to control die() reporting in diesignal()
+{
+    package Carp;
+    use vars qw($CarpLevel);
+}
+
+# without threads, $filename is not defined until DB::DB is called
+share($main::{'_<'.$filename}) if defined $filename;
+
+# Command-line + PERLLIB:
+# Save the contents of @INC before they are modified elsewhere.
+@ini_INC = @INC;
+
+# This was an attempt to clear out the previous values of various
+# trapped errors. Apparently it didn't help. XXX More info needed!
+# $prevwarn = $prevdie = $prevbus = $prevsegv = ''; # Does not help?!
+
+# We set these variables to safe values. We don't want to blindly turn
+# off warnings, because other packages may still want them.
+$trace = $signal = $single = 0;    # Uninitialized warning suppression
+                                   # (local $^W cannot help - other packages!).
+
+# Default to not exiting when program finishes; print the return
+# value when the 'r' command is used to return from a subroutine.
+$inhibit_exit = $option{PrintRet} = 1;
+
+use vars qw($trace_to_depth);
+
+# Default to 1E9 so it won't be limited to a certain recursion depth.
+$trace_to_depth = 1E9;
+
+=head1 OPTION PROCESSING
+
+The debugger's options are actually spread out over the debugger itself and
+C<dumpvar.pl>; some of these are variables to be set, while others are
+subs to be called with a value. To try to make this a little easier to
+manage, the debugger uses a few data structures to define what options
+are legal and how they are to be processed.
+
+First, the C<@options> array defines the I<names> of all the options that
+are to be accepted.
+
+=cut
+
+@options = qw(
+  CommandSet   HistFile      HistSize
+  hashDepth    arrayDepth    dumpDepth
+  DumpDBFiles  DumpPackages  DumpReused
+  compactDump  veryCompact   quote
+  HighBit      undefPrint    globPrint
+  PrintRet     UsageOnly     frame
+  AutoTrace    TTY           noTTY
+  ReadLine     NonStop       LineInfo
+  maxTraceLen  recallCommand ShellBang
+  pager        tkRunning     ornaments
+  signalLevel  warnLevel     dieLevel
+  inhibit_exit ImmediateStop bareStringify
+  CreateTTY    RemotePort    windowSize
+  DollarCaretP
+);
+
+@RememberOnROptions = qw(DollarCaretP);
+
+=pod
+
+Second, C<optionVars> lists the variables that each option uses to save its
+state.
+
+=cut
+
+use vars qw(%optionVars);
+
+%optionVars = (
+    hashDepth     => \$dumpvar::hashDepth,
+    arrayDepth    => \$dumpvar::arrayDepth,
+    CommandSet    => \$CommandSet,
+    DumpDBFiles   => \$dumpvar::dumpDBFiles,
+    DumpPackages  => \$dumpvar::dumpPackages,
+    DumpReused    => \$dumpvar::dumpReused,
+    HighBit       => \$dumpvar::quoteHighBit,
+    undefPrint    => \$dumpvar::printUndef,
+    globPrint     => \$dumpvar::globPrint,
+    UsageOnly     => \$dumpvar::usageOnly,
+    CreateTTY     => \$CreateTTY,
+    bareStringify => \$dumpvar::bareStringify,
+    frame         => \$frame,
+    AutoTrace     => \$trace,
+    inhibit_exit  => \$inhibit_exit,
+    maxTraceLen   => \$maxtrace,
+    ImmediateStop => \$ImmediateStop,
+    RemotePort    => \$remoteport,
+    windowSize    => \$window,
+    HistFile      => \$histfile,
+    HistSize      => \$histsize,
+);
+
+=pod
+
+Third, C<%optionAction> defines the subroutine to be called to process each
+option.
+
+=cut
+
+use vars qw(%optionAction);
+
+%optionAction = (
+    compactDump   => \&dumpvar::compactDump,
+    veryCompact   => \&dumpvar::veryCompact,
+    quote         => \&dumpvar::quote,
+    TTY           => \&TTY,
+    noTTY         => \&noTTY,
+    ReadLine      => \&ReadLine,
+    NonStop       => \&NonStop,
+    LineInfo      => \&LineInfo,
+    recallCommand => \&recallCommand,
+    ShellBang     => \&shellBang,
+    pager         => \&pager,
+    signalLevel   => \&signalLevel,
+    warnLevel     => \&warnLevel,
+    dieLevel      => \&dieLevel,
+    tkRunning     => \&tkRunning,
+    ornaments     => \&ornaments,
+    RemotePort    => \&RemotePort,
+    DollarCaretP  => \&DollarCaretP,
+);
+
+=pod
+
+Last, the C<%optionRequire> notes modules that must be C<require>d if an
+option is used.
+
+=cut
+
+# Note that this list is not complete: several options not listed here
+# actually require that dumpvar.pl be loaded for them to work, but are
+# not in the table. A subsequent patch will correct this problem; for
+# the moment, we're just recommenting, and we are NOT going to change
+# function.
+use vars qw(%optionRequire);
+
+%optionRequire = (
+    compactDump => 'dumpvar.pl',
+    veryCompact => 'dumpvar.pl',
+    quote       => 'dumpvar.pl',
+);
+
+=pod
+
+There are a number of initialization-related variables which can be set
+by putting code to set them in a BEGIN block in the C<PERL5DB> environment
+variable. These are:
+
+=over 4
+
+=item C<$rl> - readline control XXX needs more explanation
+
+=item C<$warnLevel> - whether or not debugger takes over warning handling
+
+=item C<$dieLevel> - whether or not debugger takes over die handling
+
+=item C<$signalLevel> - whether or not debugger takes over signal handling
+
+=item C<$pre> - preprompt actions (array reference)
+
+=item C<$post> - postprompt actions (array reference)
+
+=item C<$pretype>
+
+=item C<$CreateTTY> - whether or not to create a new TTY for this debugger
+
+=item C<$CommandSet> - which command set to use (defaults to new, documented set)
+
+=back
+
+=cut
+
+# These guys may be defined in $ENV{PERL5DB} :
+$rl          = 1     unless defined $rl;
+$warnLevel   = 1     unless defined $warnLevel;
+$dieLevel    = 1     unless defined $dieLevel;
+$signalLevel = 1     unless defined $signalLevel;
+$pre         = []    unless defined $pre;
+$post        = []    unless defined $post;
+$pretype     = []    unless defined $pretype;
+$CreateTTY   = 3     unless defined $CreateTTY;
+$CommandSet  = '580' unless defined $CommandSet;
+
+share($rl);
+share($warnLevel);
+share($dieLevel);
+share($signalLevel);
+share($pre);
+share($post);
+share($pretype);
+share($rl);
+share($CreateTTY);
+share($CommandSet);
+
+=pod
+
+The default C<die>, C<warn>, and C<signal> handlers are set up.
+
+=cut
+
+warnLevel($warnLevel);
+dieLevel($dieLevel);
+signalLevel($signalLevel);
+
+=pod
+
+The pager to be used is needed next. We try to get it from the
+environment first.  If it's not defined there, we try to find it in
+the Perl C<Config.pm>.  If it's not there, we default to C<more>. We
+then call the C<pager()> function to save the pager name.
+
+=cut
+
+# This routine makes sure $pager is set up so that '|' can use it.
+pager(
+
+    # If PAGER is defined in the environment, use it.
+    defined $ENV{PAGER}
+    ? $ENV{PAGER}
+
+      # If not, see if Config.pm defines it.
+    : eval { require Config }
+      && defined $Config::Config{pager}
+    ? $Config::Config{pager}
+
+      # If not, fall back to 'more'.
+    : 'more'
+  )
+  unless defined $pager;
+
+=pod
+
+We set up the command to be used to access the man pages, the command
+recall character (C<!> unless otherwise defined) and the shell escape
+character (C<!> unless otherwise defined). Yes, these do conflict, and
+neither works in the debugger at the moment.
+
+=cut
+
+setman();
+
+# Set up defaults for command recall and shell escape (note:
+# these currently don't work in linemode debugging).
+recallCommand("!") unless defined $prc;
+shellBang("!")     unless defined $psh;
+
+=pod
+
+We then set up the gigantic string containing the debugger help.
+We also set the limit on the number of arguments we'll display during a
+trace.
+
+=cut
+
+sethelp();
+
+# If we didn't get a default for the length of eval/stack trace args,
+# set it here.
+$maxtrace = 400 unless defined $maxtrace;
+
+=head2 SETTING UP THE DEBUGGER GREETING
+
+The debugger I<greeting> helps to inform the user how many debuggers are
+running, and whether the current debugger is the primary or a child.
+
+If we are the primary, we just hang onto our pid so we'll have it when
+or if we start a child debugger. If we are a child, we'll set things up
+so we'll have a unique greeting and so the parent will give us our own
+TTY later.
+
+We save the current contents of the C<PERLDB_PIDS> environment variable
+because we mess around with it. We'll also need to hang onto it because
+we'll need it if we restart.
+
+Child debuggers make a label out of the current PID structure recorded in
+PERLDB_PIDS plus the new PID. They also mark themselves as not having a TTY
+yet so the parent will give them one later via C<resetterm()>.
+
+=cut
+
+# Save the current contents of the environment; we're about to
+# much with it. We'll need this if we have to restart.
+use vars qw($ini_pids);
+$ini_pids = $ENV{PERLDB_PIDS};
+
+use vars qw ($pids $term_pid);
+
+if ( defined $ENV{PERLDB_PIDS} ) {
+
+    # We're a child. Make us a label out of the current PID structure
+    # recorded in PERLDB_PIDS plus our (new) PID. Mark us as not having
+    # a term yet so the parent will give us one later via resetterm().
+
+    my $env_pids = $ENV{PERLDB_PIDS};
+    $pids = "[$env_pids]";
+
+    # Unless we are on OpenVMS, all programs under the DCL shell run under
+    # the same PID.
+
+    if (($^O eq 'VMS') && ($env_pids =~ /\b$$\b/)) {
+        $term_pid         = $$;
+    }
+    else {
+        $ENV{PERLDB_PIDS} .= "->$$";
+        $term_pid = -1;
+    }
+
+} ## end if (defined $ENV{PERLDB_PIDS...
+else {
+
+    # We're the parent PID. Initialize PERLDB_PID in case we end up with a
+    # child debugger, and mark us as the parent, so we'll know to set up
+    # more TTY's is we have to.
+    $ENV{PERLDB_PIDS} = "$$";
+    $pids             = "[pid=$$]";
+    $term_pid         = $$;
+}
+
+use vars qw($pidprompt);
+$pidprompt = '';
+
+# Sets up $emacs as a synonym for $slave_editor.
+our ($slave_editor);
+*emacs = $slave_editor if $slave_editor;    # May be used in afterinit()...
+
+=head2 READING THE RC FILE
+
+The debugger will read a file of initialization options if supplied. If
+running interactively, this is C<.perldb>; if not, it's C<perldb.ini>.
+
+=cut
+
+# As noted, this test really doesn't check accurately that the debugger
+# is running at a terminal or not.
+
+use vars qw($rcfile);
+{
+    my $dev_tty = (($^O eq 'VMS') ? 'TT:' : '/dev/tty');
+    # this is the wrong metric!
+    $rcfile = ((-e $dev_tty) ? ".perldb" : "perldb.ini");
+}
+
+=pod
+
+The debugger does a safety test of the file to be read. It must be owned
+either by the current user or root, and must only be writable by the owner.
+
+=cut
+
+# This wraps a safety test around "do" to read and evaluate the init file.
+#
+# This isn't really safe, because there's a race
+# between checking and opening.  The solution is to
+# open and fstat the handle, but then you have to read and
+# eval the contents.  But then the silly thing gets
+# your lexical scope, which is unfortunate at best.
+sub safe_do {
+    my $file = shift;
+
+    # Just exactly what part of the word "CORE::" don't you understand?
+    local $SIG{__WARN__};
+    local $SIG{__DIE__};
+
+    unless ( is_safe_file($file) ) {
+        CORE::warn <<EO_GRIPE;
+perldb: Must not source insecure rcfile $file.
+        You or the superuser must be the owner, and it must not
+        be writable by anyone but its owner.
+EO_GRIPE
+        return;
+    } ## end unless (is_safe_file($file...
+
+    do $file;
+    CORE::warn("perldb: couldn't parse $file: $@") if $@;
+} ## end sub safe_do
+
+# This is the safety test itself.
+#
+# Verifies that owner is either real user or superuser and that no
+# one but owner may write to it.  This function is of limited use
+# when called on a path instead of upon a handle, because there are
+# no guarantees that filename (by dirent) whose file (by ino) is
+# eventually accessed is the same as the one tested.
+# Assumes that the file's existence is not in doubt.
+sub is_safe_file {
+    my $path = shift;
+    stat($path) || return;    # mysteriously vaporized
+    my ( $dev, $ino, $mode, $nlink, $uid, $gid ) = stat(_);
+
+    return 0 if $uid != 0 && $uid != $<;
+    return 0 if $mode & 022;
+    return 1;
+} ## end sub is_safe_file
+
+# If the rcfile (whichever one we decided was the right one to read)
+# exists, we safely do it.
+if ( -f $rcfile ) {
+    safe_do("./$rcfile");
+}
+
+# If there isn't one here, try the user's home directory.
+elsif ( defined $ENV{HOME} && -f "$ENV{HOME}/$rcfile" ) {
+    safe_do("$ENV{HOME}/$rcfile");
+}
+
+# Else try the login directory.
+elsif ( defined $ENV{LOGDIR} && -f "$ENV{LOGDIR}/$rcfile" ) {
+    safe_do("$ENV{LOGDIR}/$rcfile");
+}
+
+# If the PERLDB_OPTS variable has options in it, parse those out next.
+if ( defined $ENV{PERLDB_OPTS} ) {
+    parse_options( $ENV{PERLDB_OPTS} );
+}
+
+=pod
+
+The last thing we do during initialization is determine which subroutine is
+to be used to obtain a new terminal when a new debugger is started. Right now,
+the debugger only handles TCP sockets, X11, OS/2, amd Mac OS X
+(darwin).
+
+=cut
+
+# Set up the get_fork_TTY subroutine to be aliased to the proper routine.
+# Works if you're running an xterm or xterm-like window, or you're on
+# OS/2, or on Mac OS X. This may need some expansion.
+
+if (not defined &get_fork_TTY)       # only if no routine exists
+{
+    if ( defined $remoteport ) {
+                                                 # Expect an inetd-like server
+        *get_fork_TTY = \&socket_get_fork_TTY;   # to listen to us
+    }
+    elsif (defined $ENV{TERM}                    # If we know what kind
+                                                 # of terminal this is,
+        and $ENV{TERM} eq 'xterm'                # and it's an xterm,
+        and defined $ENV{DISPLAY}                # and what display it's on,
+      )
+    {
+        *get_fork_TTY = \&xterm_get_fork_TTY;    # use the xterm version
+    }
+    elsif ( $ENV{TMUX} ) {
+        *get_fork_TTY = \&tmux_get_fork_TTY;
+    }
+    elsif ( $^O eq 'os2' ) {                     # If this is OS/2,
+        *get_fork_TTY = \&os2_get_fork_TTY;      # use the OS/2 version
+    }
+    elsif ( $^O eq 'darwin'                      # If this is Mac OS X
+            and defined $ENV{TERM_PROGRAM}       # and we're running inside
+            and $ENV{TERM_PROGRAM}
+                eq 'Apple_Terminal'              # Terminal.app
+            )
+    {
+        *get_fork_TTY = \&macosx_get_fork_TTY;   # use the Mac OS X version
+    }
+} ## end if (not defined &get_fork_TTY...
+
+# untaint $^O, which may have been tainted by the last statement.
+# see bug [perl #24674]
+$^O =~ m/^(.*)\z/;
+$^O = $1;
+
+# Here begin the unreadable code.  It needs fixing.
+
+=head2 RESTART PROCESSING
+
+This section handles the restart command. When the C<R> command is invoked, it
+tries to capture all of the state it can into environment variables, and
+then sets C<PERLDB_RESTART>. When we start executing again, we check to see
+if C<PERLDB_RESTART> is there; if so, we reload all the information that
+the R command stuffed into the environment variables.
+
+  PERLDB_RESTART   - flag only, contains no restart data itself.
+  PERLDB_HIST      - command history, if it's available
+  PERLDB_ON_LOAD   - breakpoints set by the rc file
+  PERLDB_POSTPONE  - subs that have been loaded/not executed,
+                     and have actions
+  PERLDB_VISITED   - files that had breakpoints
+  PERLDB_FILE_...  - breakpoints for a file
+  PERLDB_OPT       - active options
+  PERLDB_INC       - the original @INC
+  PERLDB_PRETYPE   - preprompt debugger actions
+  PERLDB_PRE       - preprompt Perl code
+  PERLDB_POST      - post-prompt Perl code
+  PERLDB_TYPEAHEAD - typeahead captured by readline()
+
+We chug through all these variables and plug the values saved in them
+back into the appropriate spots in the debugger.
+
+=cut
+
+use vars qw(%postponed_file @typeahead);
+
+our (@hist, @truehist);
+
+sub _restore_shared_globals_after_restart
+{
+    @hist          = get_list('PERLDB_HIST');
+    %break_on_load = get_list("PERLDB_ON_LOAD");
+    %postponed     = get_list("PERLDB_POSTPONE");
+
+    share(@hist);
+    share(@truehist);
+    share(%break_on_load);
+    share(%postponed);
+}
+
+sub _restore_breakpoints_and_actions {
+
+    my @had_breakpoints = get_list("PERLDB_VISITED");
+
+    for my $file_idx ( 0 .. $#had_breakpoints ) {
+        my $filename = $had_breakpoints[$file_idx];
+        my %pf = get_list("PERLDB_FILE_$file_idx");
+        $postponed_file{ $filename } = \%pf if %pf;
+        my @lines = sort {$a <=> $b} keys(%pf);
+        my @enabled_statuses = get_list("PERLDB_FILE_ENABLED_$file_idx");
+        for my $line_idx (0 .. $#lines) {
+            _set_breakpoint_enabled_status(
+                $filename,
+                $lines[$line_idx],
+                ($enabled_statuses[$line_idx] ? 1 : ''),
+            );
+        }
+    }
+
+    return;
+}
+
+sub _restore_options_after_restart
+{
+    my %options_map = get_list("PERLDB_OPT");
+
+    while ( my ( $opt, $val ) = each %options_map ) {
+        $val =~ s/[\\\']/\\$1/g;
+        parse_options("$opt'$val'");
+    }
+
+    return;
+}
+
+sub _restore_globals_after_restart
+{
+    # restore original @INC
+    @INC     = get_list("PERLDB_INC");
+    @ini_INC = @INC;
+
+    # return pre/postprompt actions and typeahead buffer
+    $pretype   = [ get_list("PERLDB_PRETYPE") ];
+    $pre       = [ get_list("PERLDB_PRE") ];
+    $post      = [ get_list("PERLDB_POST") ];
+    @typeahead = get_list( "PERLDB_TYPEAHEAD", @typeahead );
+
+    return;
+}
+
+
+if ( exists $ENV{PERLDB_RESTART} ) {
+
+    # We're restarting, so we don't need the flag that says to restart anymore.
+    delete $ENV{PERLDB_RESTART};
+
+    # $restart = 1;
+    _restore_shared_globals_after_restart();
+
+    _restore_breakpoints_and_actions();
+
+    # restore options
+    _restore_options_after_restart();
+
+    _restore_globals_after_restart();
+} ## end if (exists $ENV{PERLDB_RESTART...
+
+=head2 SETTING UP THE TERMINAL
+
+Now, we'll decide how the debugger is going to interact with the user.
+If there's no TTY, we set the debugger to run non-stop; there's not going
+to be anyone there to enter commands.
+
+=cut
+
+use vars qw($notty $console $tty $LINEINFO);
+use vars qw($lineinfo $doccmd);
+
+our ($runnonstop);
+
+# Local autoflush to avoid rt#116769,
+# as calling IO::File methods causes an unresolvable loop
+# that results in debugger failure.
+sub _autoflush {
+    my $o = select($_[0]);
+    $|++;
+    select($o);
+}
+
+if ($notty) {
+    $runnonstop = 1;
+    share($runnonstop);
+}
+
+=pod
+
+If there is a TTY, we have to determine who it belongs to before we can
+proceed. If this is a slave editor or graphical debugger (denoted by
+the first command-line switch being '-emacs'), we shift this off and
+set C<$rl> to 0 (XXX ostensibly to do straight reads).
+
+=cut
+
+else {
+
+    # Is Perl being run from a slave editor or graphical debugger?
+    # If so, don't use readline, and set $slave_editor = 1.
+    if ($slave_editor = ( @main::ARGV && ( $main::ARGV[0] eq '-emacs' ) )) {
+        $rl = 0;
+        shift(@main::ARGV);
+    }
+
+    #require Term::ReadLine;
+
+=pod
+
+We then determine what the console should be on various systems:
+
+=over 4
+
+=item * Cygwin - We use C<stdin> instead of a separate device.
+
+=cut
+
+    if ( $^O eq 'cygwin' ) {
+
+        # /dev/tty is binary. use stdin for textmode
+        undef $console;
+    }
+
+=item * Unix - use F</dev/tty>.
+
+=cut
+
+    elsif ( -e "/dev/tty" ) {
+        $console = "/dev/tty";
+    }
+
+=item * Windows or MSDOS - use C<con>.
+
+=cut
+
+    elsif ( $^O eq 'dos' or -e "con" or $^O eq 'MSWin32' ) {
+        $console = "con";
+    }
+
+=item * AmigaOS - use C<CONSOLE:>.
+
+=cut
+
+    elsif ( $^O eq 'amigaos' ) {
+        $console = "CONSOLE:";
+    }
+
+=item * VMS - use C<sys$command>.
+
+=cut
+
+    elsif ($^O eq 'VMS') {
+        $console = 'sys$command';
+    }
+
+# Keep this last.
+
+    else {
+        _db_warn("Can't figure out your console, using stdin");
+        undef $console;
+    }
+
+=pod
+
+=back
+
+Several other systems don't use a specific console. We C<undef $console>
+for those (Windows using a slave editor/graphical debugger, NetWare, OS/2
+with a slave editor).
+
+=cut
+
+    if ( ( $^O eq 'MSWin32' ) and ( $slave_editor or defined $ENV{EMACS} ) ) {
+
+        # /dev/tty is binary. use stdin for textmode
+        $console = undef;
+    }
+
+    if ( $^O eq 'NetWare' ) {
+
+        # /dev/tty is binary. use stdin for textmode
+        $console = undef;
+    }
+
+    # In OS/2, we need to use STDIN to get textmode too, even though
+    # it pretty much looks like Unix otherwise.
+    if ( defined $ENV{OS2_SHELL} and ( $slave_editor or $ENV{WINDOWID} ) )
+    {    # In OS/2
+        $console = undef;
+    }
+
+=pod
+
+If there is a TTY hanging around from a parent, we use that as the console.
+
+=cut
+
+    $console = $tty if defined $tty;
+
+=head2 SOCKET HANDLING
+
+The debugger is capable of opening a socket and carrying out a debugging
+session over the socket.
+
+If C<RemotePort> was defined in the options, the debugger assumes that it
+should try to start a debugging session on that port. It builds the socket
+and then tries to connect the input and output filehandles to it.
+
+=cut
+
+    # Handle socket stuff.
+
+    if ( defined $remoteport ) {
+
+        # If RemotePort was defined in the options, connect input and output
+        # to the socket.
+        $IN = $OUT = connect_remoteport();
+    } ## end if (defined $remoteport)
+
+=pod
+
+If no C<RemotePort> was defined, and we want to create a TTY on startup,
+this is probably a situation where multiple debuggers are running (for example,
+a backticked command that starts up another debugger). We create a new IN and
+OUT filehandle, and do the necessary mojo to create a new TTY if we know how
+and if we can.
+
+=cut
+
+    # Non-socket.
+    else {
+
+        # Two debuggers running (probably a system or a backtick that invokes
+        # the debugger itself under the running one). create a new IN and OUT
+        # filehandle, and do the necessary mojo to create a new tty if we
+        # know how, and we can.
+        create_IN_OUT(4) if $CreateTTY & 4;
+        if ($console) {
+
+            # If we have a console, check to see if there are separate ins and
+            # outs to open. (They are assumed identical if not.)
+
+            my ( $i, $o ) = split /,/, $console;
+            $o = $i unless defined $o;
+
+            # read/write on in, or just read, or read on STDIN.
+            open( IN,      "+<$i" )
+              || open( IN, "<$i" )
+              || open( IN, "<&STDIN" );
+
+            # read/write/create/clobber out, or write/create/clobber out,
+            # or merge with STDERR, or merge with STDOUT.
+                 open( OUT, "+>$o" )
+              || open( OUT, ">$o" )
+              || open( OUT, ">&STDERR" )
+              || open( OUT, ">&STDOUT" );    # so we don't dongle stdout
+
+        } ## end if ($console)
+        elsif ( not defined $console ) {
+
+            # No console. Open STDIN.
+            open( IN, "<&STDIN" );
+
+            # merge with STDERR, or with STDOUT.
+            open( OUT,      ">&STDERR" )
+              || open( OUT, ">&STDOUT" );    # so we don't dongle stdout
+            $console = 'STDIN/OUT';
+        } ## end elsif (not defined $console)
+
+        # Keep copies of the filehandles so that when the pager runs, it
+        # can close standard input without clobbering ours.
+        if ($console or (not defined($console))) {
+            $IN = \*IN;
+            $OUT = \*OUT;
+        }
+    } ## end elsif (from if(defined $remoteport))
+
+    # Unbuffer DB::OUT. We need to see responses right away.
+    _autoflush($OUT);
+
+    # Line info goes to debugger output unless pointed elsewhere.
+    # Pointing elsewhere makes it possible for slave editors to
+    # keep track of file and position. We have both a filehandle
+    # and a I/O description to keep track of.
+    $LINEINFO = $OUT     unless defined $LINEINFO;
+    $lineinfo = $console unless defined $lineinfo;
+    # share($LINEINFO); # <- unable to share globs
+    share($lineinfo);   #
+
+=pod
+
+To finish initialization, we show the debugger greeting,
+and then call the C<afterinit()> subroutine if there is one.
+
+=cut
+
+    # Show the debugger greeting.
+    $header =~ s/.Header: ([^,]+),v(\s+\S+\s+\S+).*$/$1$2/;
+    unless ($runnonstop) {
+        local $\ = '';
+        local $, = '';
+        if ( $term_pid eq '-1' ) {
+            print $OUT "\nDaughter DB session started...\n";
+        }
+        else {
+            print $OUT "\nLoading DB routines from $header\n";
+            print $OUT (
+                "Editor support ",
+                $slave_editor ? "enabled" : "available", ".\n"
+            );
+            print $OUT
+"\nEnter h or 'h h' for help, or '$doccmd perldebug' for more help.\n\n";
+        } ## end else [ if ($term_pid eq '-1')
+    } ## end unless ($runnonstop)
+} ## end else [ if ($notty)
+
+# XXX This looks like a bug to me.
+# Why copy to @ARGS and then futz with @args?
+@ARGS = @ARGV;
+# for (@args) {
+    # Make sure backslashes before single quotes are stripped out, and
+    # keep args unless they are numeric (XXX why?)
+    # s/\'/\\\'/g;                      # removed while not justified understandably
+    # s/(.*)/'$1'/ unless /^-?[\d.]+$/; # ditto
+# }
+
+# If there was an afterinit() sub defined, call it. It will get
+# executed in our scope, so it can fiddle with debugger globals.
+if ( defined &afterinit ) {    # May be defined in $rcfile
+    afterinit();
+}
+
+# Inform us about "Stack dump during die enabled ..." in dieLevel().
+use vars qw($I_m_init);
+
+$I_m_init = 1;
+
+############################################################ Subroutines
+
+=head1 SUBROUTINES
+
+=head2 DB
+
+This gigantic subroutine is the heart of the debugger. Called before every
+statement, its job is to determine if a breakpoint has been reached, and
+stop if so; read commands from the user, parse them, and execute
+them, and then send execution off to the next statement.
+
+Note that the order in which the commands are processed is very important;
+some commands earlier in the loop will actually alter the C<$cmd> variable
+to create other commands to be executed later. This is all highly I<optimized>
+but can be confusing. Check the comments for each C<$cmd ... && do {}> to
+see what's happening in any given command.
+
+=cut
+
+# $cmd cannot be an our() variable unfortunately (possible perl bug?).
+
+use vars qw(
+    $action
+    $cmd
+    $file
+    $filename_ini
+    $finished
+    %had_breakpoints
+    $level
+    $max
+    $package
+    $try
+);
+
+our (
+    %alias,
+    $doret,
+    $end,
+    $fall_off_end,
+    $incr,
+    $laststep,
+    $rc,
+    $sh,
+    $stack_depth,
+    @stack,
+    @to_watch,
+    @old_watch,
+);
+
+sub _DB__determine_if_we_should_break
+{
+    # if we have something here, see if we should break.
+    # $stop is lexical and local to this block - $action on the other hand
+    # is global.
+    my $stop;
+
+    if ( $dbline{$line}
+        && _is_breakpoint_enabled($filename, $line)
+        && (( $stop, $action ) = split( /\0/, $dbline{$line} ) ) )
+    {
+
+        # Stop if the stop criterion says to just stop.
+        if ( $stop eq '1' ) {
+            $signal |= 1;
+        }
+
+        # It's a conditional stop; eval it in the user's context and
+        # see if we should stop. If so, remove the one-time sigil.
+        elsif ($stop) {
+            $evalarg = "\$DB::signal |= 1 if do {$stop}";
+            # The &-call is here to ascertain the mutability of @_.
+            &DB::eval;
+            # If the breakpoint is temporary, then delete its enabled status.
+            if ($dbline{$line} =~ s/;9($|\0)/$1/) {
+                _cancel_breakpoint_temp_enabled_status($filename, $line);
+            }
+        }
+    } ## end if ($dbline{$line} && ...
+}
+
+sub _DB__is_finished {
+    if ($finished and $level <= 1) {
+        end_report();
+        return 1;
+    }
+    else {
+        return;
+    }
+}
+
+sub _DB__read_next_cmd
+{
+    my ($tid) = @_;
+
+    # We have a terminal, or can get one ...
+    if (!$term) {
+        setterm();
+    }
+
+    # ... and it belongs to this PID or we get one for this PID ...
+    if ($term_pid != $$) {
+        resetterm(1);
+    }
+
+    # ... and we got a line of command input ...
+    $cmd = DB::readline(
+        "$pidprompt $tid DB"
+        . ( '<' x $level )
+        . ( $#hist + 1 )
+        . ( '>' x $level ) . " "
+    );
+
+    return defined($cmd);
+}
+
+sub _DB__trim_command_and_return_first_component {
+    my ($obj) = @_;
+
+    $cmd =~ s/\A\s+//s;    # trim annoying leading whitespace
+    $cmd =~ s/\s+\z//s;    # trim annoying trailing whitespace
+
+    my ($verb, $args) = $cmd =~ m{\A(\S*)\s*(.*)}s;
+
+    $obj->cmd_verb($verb);
+    $obj->cmd_args($args);
+
+    return;
+}
+
+sub _DB__handle_f_command {
+    my ($obj) = @_;
+
+    if ($file = $obj->cmd_args) {
+        # help for no arguments (old-style was return from sub).
+        if ( !$file ) {
+            print $OUT
+            "The old f command is now the r command.\n";    # hint
+            print $OUT "The new f command switches filenames.\n";
+            next CMD;
+        } ## end if (!$file)
+
+        # if not in magic file list, try a close match.
+        if ( !defined $main::{ '_<' . $file } ) {
+            if ( ($try) = grep( m#^_<.*$file#, keys %main:: ) ) {
+                {
+                    $try = substr( $try, 2 );
+                    print $OUT "Choosing $try matching '$file':\n";
+                    $file = $try;
+                }
+            } ## end if (($try) = grep(m#^_<.*$file#...
+        } ## end if (!defined $main::{ ...
+
+        # If not successfully switched now, we failed.
+        if ( !defined $main::{ '_<' . $file } ) {
+            print $OUT "No file matching '$file' is loaded.\n";
+            next CMD;
+        }
+
+        # We switched, so switch the debugger internals around.
+        elsif ( $file ne $filename ) {
+            *dbline   = $main::{ '_<' . $file };
+            $max      = $#dbline;
+            $filename = $file;
+            $start    = 1;
+            $cmd      = "l";
+        } ## end elsif ($file ne $filename)
+
+        # We didn't switch; say we didn't.
+        else {
+            print $OUT "Already in $file.\n";
+            next CMD;
+        }
+    }
+
+    return;
+}
+
+sub _DB__handle_dot_command {
+    my ($obj) = @_;
+
+    # . command.
+    if ($obj->_is_full('.')) {
+        $incr = -1;    # stay at current line
+
+        # Reset everything to the old location.
+        $start    = $line;
+        $filename = $filename_ini;
+        *dbline   = $main::{ '_<' . $filename };
+        $max      = $#dbline;
+
+        # Now where are we?
+        print_lineinfo($obj->position());
+        next CMD;
+    }
+
+    return;
+}
+
+sub _DB__handle_y_command {
+    my ($obj) = @_;
+
+    if (my ($match_level, $match_vars)
+        = $obj->cmd_args =~ /\A(?:(\d*)\s*(.*))?\z/) {
+
+        # See if we've got the necessary support.
+        if (!eval {
+            local @INC = @INC;
+            pop @INC if $INC[-1] eq '.';
+            require PadWalker; PadWalker->VERSION(0.08) }) {
+            my $Err = $@;
+            _db_warn(
+                $Err =~ /locate/
+                ? "PadWalker module not found - please install\n"
+                : $Err
+            );
+            next CMD;
+        }
+
+        # Load up dumpvar if we don't have it. If we can, that is.
+        do 'dumpvar.pl' || die $@ unless defined &main::dumpvar;
+        defined &main::dumpvar
+            or print $OUT "dumpvar.pl not available.\n"
+            and next CMD;
+
+        # Got all the modules we need. Find them and print them.
+        my @vars = split( ' ', $match_vars || '' );
+
+        # Find the pad.
+        my $h = eval { PadWalker::peek_my( ( $match_level || 0 ) + 2 ) };
+
+        # Oops. Can't find it.
+        if (my $Err = $@) {
+            $Err =~ s/ at .*//;
+            _db_warn($Err);
+            next CMD;
+        }
+
+        # Show the desired vars with dumplex().
+        my $savout = select($OUT);
+
+        # Have dumplex dump the lexicals.
+        foreach my $key (sort keys %$h) {
+            dumpvar::dumplex( $key, $h->{$key},
+                defined $option{dumpDepth} ? $option{dumpDepth} : -1,
+                @vars );
+        }
+        select($savout);
+        next CMD;
+    }
+}
+
+sub _DB__handle_c_command {
+    my ($obj) = @_;
+
+    my $i = $obj->cmd_args;
+
+    if ($i =~ m#\A[\w:]*\z#) {
+
+        # Hey, show's over. The debugged program finished
+        # executing already.
+        next CMD if _DB__is_finished();
+
+        # Capture the place to put a one-time break.
+        $subname = $i;
+
+        #  Probably not needed, since we finish an interactive
+        #  sub-session anyway...
+        # local $filename = $filename;
+        # local *dbline = *dbline; # XXX Would this work?!
+        #
+        # The above question wonders if localizing the alias
+        # to the magic array works or not. Since it's commented
+        # out, we'll just leave that to speculation for now.
+
+        # If the "subname" isn't all digits, we'll assume it
+        # is a subroutine name, and try to find it.
+        if ( $subname =~ /\D/ ) {    # subroutine name
+            # Qualify it to the current package unless it's
+            # already qualified.
+            $subname = $package . "::" . $subname
+            unless $subname =~ /::/;
+
+            # find_sub will return "file:line_number" corresponding
+            # to where the subroutine is defined; we call find_sub,
+            # break up the return value, and assign it in one
+            # operation.
+            ( $file, $i ) = ( find_sub($subname) =~ /^(.*):(.*)$/ );
+
+            # Force the line number to be numeric.
+            $i = $i + 0;
+
+            # If we got a line number, we found the sub.
+            if ($i) {
+
+                # Switch all the debugger's internals around so
+                # we're actually working with that file.
+                $filename = $file;
+                *dbline   = $main::{ '_<' . $filename };
+
+                # Mark that there's a breakpoint in this file.
+                $had_breakpoints{$filename} |= 1;
+
+                # Scan forward to the first executable line
+                # after the 'sub whatever' line.
+                $max = $#dbline;
+                my $_line_num = $i;
+                while ($dbline[$_line_num] == 0 && $_line_num< $max)
+                {
+                    $_line_num++;
+                }
+                $i = $_line_num;
+            } ## end if ($i)
+
+            # We didn't find a sub by that name.
+            else {
+                print $OUT "Subroutine $subname not found.\n";
+                next CMD;
+            }
+        } ## end if ($subname =~ /\D/)
+
+        # At this point, either the subname was all digits (an
+        # absolute line-break request) or we've scanned through
+        # the code following the definition of the sub, looking
+        # for an executable, which we may or may not have found.
+        #
+        # If $i (which we set $subname from) is non-zero, we
+        # got a request to break at some line somewhere. On
+        # one hand, if there wasn't any real subroutine name
+        # involved, this will be a request to break in the current
+        # file at the specified line, so we have to check to make
+        # sure that the line specified really is breakable.
+        #
+        # On the other hand, if there was a subname supplied, the
+        # preceding block has moved us to the proper file and
+        # location within that file, and then scanned forward
+        # looking for the next executable line. We have to make
+        # sure that one was found.
+        #
+        # On the gripping hand, we can't do anything unless the
+        # current value of $i points to a valid breakable line.
+        # Check that.
+        if ($i) {
+
+            # Breakable?
+            if ( $dbline[$i] == 0 ) {
+                print $OUT "Line $i not breakable.\n";
+                next CMD;
+            }
+
+            # Yes. Set up the one-time-break sigil.
+            $dbline{$i} =~ s/($|\0)/;9$1/;  # add one-time-only b.p.
+            _enable_breakpoint_temp_enabled_status($filename, $i);
+        } ## end if ($i)
+
+        # Turn off stack tracing from here up.
+        for my $j (0 .. $stack_depth) {
+            $stack[ $j ] &= ~1;
+        }
+        last CMD;
+    }
+
+    return;
+}
+
+sub _DB__handle_forward_slash_command {
+    my ($obj) = @_;
+
+    # The pattern as a string.
+    use vars qw($inpat);
+
+    if (($inpat) = $cmd =~ m#\A/(.*)\z#) {
+
+        # Remove the final slash.
+        $inpat =~ s:([^\\])/$:$1:;
+
+        # If the pattern isn't null ...
+        if ( $inpat ne "" ) {
+
+            # Turn off warn and die processing for a bit.
+            local $SIG{__DIE__};
+            local $SIG{__WARN__};
+
+            # Create the pattern.
+            eval 'no strict q/vars/; $inpat =~ m' . "\a$inpat\a";
+            if ( $@ ne "" ) {
+
+                # Oops. Bad pattern. No biscuit.
+                # Print the eval error and go back for more
+                # commands.
+                print {$OUT} "$@";
+                next CMD;
+            }
+            $obj->pat($inpat);
+        } ## end if ($inpat ne "")
+
+        # Set up to stop on wrap-around.
+        $end = $start;
+
+        # Don't move off the current line.
+        $incr = -1;
+
+        my $pat = $obj->pat;
+
+        # Done in eval so nothing breaks if the pattern
+        # does something weird.
+        eval
+        {
+            no strict q/vars/;
+            for (;;) {
+                # Move ahead one line.
+                ++$start;
+
+                # Wrap if we pass the last line.
+                if ($start > $max) {
+                    $start = 1;
+                }
+
+                # Stop if we have gotten back to this line again,
+                last if ($start == $end);
+
+                # A hit! (Note, though, that we are doing
+                # case-insensitive matching. Maybe a qr//
+                # expression would be better, so the user could
+                # do case-sensitive matching if desired.
+                if ($dbline[$start] =~ m/$pat/i) {
+                    if ($slave_editor) {
+                        # Handle proper escaping in the slave.
+                        print {$OUT} "\032\032$filename:$start:0\n";
+                    }
+                    else {
+                        # Just print the line normally.
+                        print {$OUT} "$start:\t",$dbline[$start],"\n";
+                    }
+                    # And quit since we found something.
+                    last;
+                }
+            }
+        };
+
+        if ($@) {
+            warn $@;
+        }
+
+        # If we wrapped, there never was a match.
+        if ( $start == $end ) {
+            print {$OUT} "/$pat/: not found\n";
+        }
+        next CMD;
+    }
+
+    return;
+}
+
+sub _DB__handle_question_mark_command {
+    my ($obj) = @_;
+
+    # ? - backward pattern search.
+    if (my ($inpat) = $cmd =~ m#\A\?(.*)\z#) {
+
+        # Get the pattern, remove trailing question mark.
+        $inpat =~ s:([^\\])\?$:$1:;
+
+        # If we've got one ...
+        if ( $inpat ne "" ) {
+
+            # Turn off die & warn handlers.
+            local $SIG{__DIE__};
+            local $SIG{__WARN__};
+            eval '$inpat =~ m' . "\a$inpat\a";
+
+            if ( $@ ne "" ) {
+
+                # Ouch. Not good. Print the error.
+                print $OUT $@;
+                next CMD;
+            }
+            $obj->pat($inpat);
+        } ## end if ($inpat ne "")
+
+        # Where we are now is where to stop after wraparound.
+        $end = $start;
+
+        # Don't move away from this line.
+        $incr = -1;
+
+        my $pat = $obj->pat;
+        # Search inside the eval to prevent pattern badness
+        # from killing us.
+        eval {
+            no strict q/vars/;
+            for (;;) {
+                # Back up a line.
+                --$start;
+
+                # Wrap if we pass the first line.
+
+                $start = $max if ($start <= 0);
+
+                # Quit if we get back where we started,
+                last if ($start == $end);
+
+                # Match?
+                if ($dbline[$start] =~ m/$pat/i) {
+                    if ($slave_editor) {
+                        # Yep, follow slave editor requirements.
+                        print $OUT "\032\032$filename:$start:0\n";
+                    }
+                    else {
+                        # Yep, just print normally.
+                        print $OUT "$start:\t",$dbline[$start],"\n";
+                    }
+
+                    # Found, so done.
+                    last;
+                }
+            }
+        };
+
+        # Say we failed if the loop never found anything,
+        if ( $start == $end ) {
+            print {$OUT} "?$pat?: not found\n";
+        }
+        next CMD;
+    }
+
+    return;
+}
+
+sub _DB__handle_restart_and_rerun_commands {
+    my ($obj) = @_;
+
+    my $cmd_cmd = $obj->cmd_verb;
+    my $cmd_params = $obj->cmd_args;
+    # R - restart execution.
+    # rerun - controlled restart execution.
+    if ($cmd_cmd eq 'rerun' or $cmd_params eq '') {
+
+        # Change directory to the initial current working directory on
+        # the script startup, so if the debugged program changed the
+        # directory, then we will still be able to find the path to the
+        # the program. (perl 5 RT #121509 ).
+        chdir ($_initial_cwd);
+
+        my @args = ($cmd_cmd eq 'R' ? restart() : rerun($cmd_params));
+
+        # Close all non-system fds for a clean restart.  A more
+        # correct method would be to close all fds that were not
+        # open when the process started, but this seems to be
+        # hard.  See "debugger 'R'estart and open database
+        # connections" on p5p.
+
+        my $max_fd = 1024; # default if POSIX can't be loaded
+        if (eval { require POSIX }) {
+            eval { $max_fd = POSIX::sysconf(POSIX::_SC_OPEN_MAX()) };
+        }
+
+        if (defined $max_fd) {
+            foreach ($^F+1 .. $max_fd-1) {
+                next unless open FD_TO_CLOSE, "<&=$_";
+                close(FD_TO_CLOSE);
+            }
+        }
+
+        # And run Perl again.  We use exec() to keep the
+        # PID stable (and that way $ini_pids is still valid).
+        exec(@args) or print {$OUT} "exec failed: $!\n";
+
+        last CMD;
+    }
+
+    return;
+}
+
+sub _DB__handle_run_command_in_pager_command {
+    my ($obj) = @_;
+
+    if ($cmd =~ m#\A\|\|?\s*[^|]#) {
+        if ( $pager =~ /^\|/ ) {
+
+            # Default pager is into a pipe. Redirect I/O.
+            open( SAVEOUT, ">&STDOUT" )
+            || _db_warn("Can't save STDOUT");
+            open( STDOUT, ">&OUT" )
+            || _db_warn("Can't redirect STDOUT");
+        } ## end if ($pager =~ /^\|/)
+        else {
+
+            # Not into a pipe. STDOUT is safe.
+            open( SAVEOUT, ">&OUT" ) || _db_warn("Can't save DB::OUT");
+        }
+
+        # Fix up environment to record we have less if so.
+        fix_less();
+
+        unless ( $obj->piped(scalar ( open( OUT, $pager ) ) ) ) {
+
+            # Couldn't open pipe to pager.
+            _db_warn("Can't pipe output to '$pager'");
+            if ( $pager =~ /^\|/ ) {
+
+                # Redirect I/O back again.
+                open( OUT, ">&STDOUT" )    # XXX: lost message
+                || _db_warn("Can't restore DB::OUT");
+                open( STDOUT, ">&SAVEOUT" )
+                || _db_warn("Can't restore STDOUT");
+                close(SAVEOUT);
+            } ## end if ($pager =~ /^\|/)
+            else {
+
+                # Redirect I/O. STDOUT already safe.
+                open( OUT, ">&STDOUT" )    # XXX: lost message
+                || _db_warn("Can't restore DB::OUT");
+            }
+            next CMD;
+        } ## end unless ($piped = open(OUT,...
+
+        # Set up broken-pipe handler if necessary.
+        $SIG{PIPE} = \&DB::catch
+        if $pager =~ /^\|/
+        && ( "" eq $SIG{PIPE} || "DEFAULT" eq $SIG{PIPE} );
+
+        _autoflush(\*OUT);
+        # Save current filehandle, and put it back.
+        $obj->selected(scalar( select(OUT) ));
+        # Don't put it back if pager was a pipe.
+        if ($cmd !~ /\A\|\|/)
+        {
+            select($obj->selected());
+            $obj->selected("");
+        }
+
+        # Trim off the pipe symbols and run the command now.
+        $cmd =~ s#\A\|+\s*##;
+        redo PIPE;
+    }
+
+    return;
+}
+
+sub _DB__handle_m_command {
+    my ($obj) = @_;
+
+    if ($cmd =~ s#\Am\s+([\w:]+)\s*\z# #) {
+        methods($1);
+        next CMD;
+    }
+
+    # m expr - set up DB::eval to do the work
+    if ($cmd =~ s#\Am\b# #) {    # Rest gets done by DB::eval()
+        $onetimeDump = 'methods';   #  method output gets used there
+    }
+
+    return;
+}
+
+sub _DB__at_end_of_every_command {
+    my ($obj) = @_;
+
+    # At the end of every command:
+    if ($obj->piped) {
+
+        # Unhook the pipe mechanism now.
+        if ( $pager =~ /^\|/ ) {
+
+            # No error from the child.
+            $? = 0;
+
+            # we cannot warn here: the handle is missing --tchrist
+            close(OUT) || print SAVEOUT "\nCan't close DB::OUT\n";
+
+            # most of the $? crud was coping with broken cshisms
+            # $? is explicitly set to 0, so this never runs.
+            if ($?) {
+                print SAVEOUT "Pager '$pager' failed: ";
+                if ( $? == -1 ) {
+                    print SAVEOUT "shell returned -1\n";
+                }
+                elsif ( $? >> 8 ) {
+                    print SAVEOUT ( $? & 127 )
+                    ? " (SIG#" . ( $? & 127 ) . ")"
+                    : "", ( $? & 128 ) ? " -- core dumped" : "", "\n";
+                }
+                else {
+                    print SAVEOUT "status ", ( $? >> 8 ), "\n";
+                }
+            } ## end if ($?)
+
+            # Reopen filehandle for our output (if we can) and
+            # restore STDOUT (if we can).
+            open( OUT, ">&STDOUT" ) || _db_warn("Can't restore DB::OUT");
+            open( STDOUT, ">&SAVEOUT" )
+            || _db_warn("Can't restore STDOUT");
+
+            # Turn off pipe exception handler if necessary.
+            $SIG{PIPE} = "DEFAULT" if $SIG{PIPE} eq \&DB::catch;
+
+            # Will stop ignoring SIGPIPE if done like nohup(1)
+            # does SIGINT but Perl doesn't give us a choice.
+        } ## end if ($pager =~ /^\|/)
+        else {
+
+            # Non-piped "pager". Just restore STDOUT.
+            open( OUT, ">&SAVEOUT" ) || _db_warn("Can't restore DB::OUT");
+        }
+
+        # Let Readline know about the new filehandles.
+        reset_IN_OUT( \*IN, \*OUT );
+
+        # Close filehandle pager was using, restore the normal one
+        # if necessary,
+        close(SAVEOUT);
+
+        if ($obj->selected() ne "") {
+            select($obj->selected);
+            $obj->selected("");
+        }
+
+        # No pipes now.
+        $obj->piped("");
+    } ## end if ($piped)
+
+    return;
+}
+
+sub _DB__handle_watch_expressions
+{
+    my $self = shift;
+
+    if ( $DB::trace & 2 ) {
+        for my $n (0 .. $#DB::to_watch) {
+            $DB::evalarg = $DB::to_watch[$n];
+            local $DB::onetimeDump;    # Tell DB::eval() to not output results
+
+            # Fix context DB::eval() wants to return an array, but
+            # we need a scalar here.
+            my ($val) = join( "', '", DB::eval(@_) );
+            $val = ( ( defined $val ) ? "'$val'" : 'undef' );
+
+            # Did it change?
+            if ( $val ne $DB::old_watch[$n] ) {
+
+                # Yep! Show the difference, and fake an interrupt.
+                $DB::signal = 1;
+                print {$DB::OUT} <<EOP;
+Watchpoint $n:\t$DB::to_watch[$n] changed:
+    old value:\t$DB::old_watch[$n]
+    new value:\t$val
+EOP
+                $DB::old_watch[$n] = $val;
+            } ## end if ($val ne $old_watch...
+        } ## end for my $n (0 ..
+    } ## end if ($trace & 2)
+
+    return;
+}
+
+# 't' is type.
+# 'm' is method.
+# 'v' is the value (i.e: method name or subroutine ref).
+# 's' is subroutine.
+my %cmd_lookup;
+
+BEGIN
+{
+    %cmd_lookup =
+(
+    '-' => { t => 'm', v => '_handle_dash_command', },
+    '.' => { t => 's', v => \&_DB__handle_dot_command, },
+    '=' => { t => 'm', v => '_handle_equal_sign_command', },
+    'H' => { t => 'm', v => '_handle_H_command', },
+    'S' => { t => 'm', v => '_handle_S_command', },
+    'T' => { t => 'm', v => '_handle_T_command', },
+    'W' => { t => 'm', v => '_handle_W_command', },
+    'c' => { t => 's', v => \&_DB__handle_c_command, },
+    'f' => { t => 's', v => \&_DB__handle_f_command, },
+    'm' => { t => 's', v => \&_DB__handle_m_command, },
+    'n' => { t => 'm', v => '_handle_n_command', },
+    'p' => { t => 'm', v => '_handle_p_command', },
+    'q' => { t => 'm', v => '_handle_q_command', },
+    'r' => { t => 'm', v => '_handle_r_command', },
+    's' => { t => 'm', v => '_handle_s_command', },
+    'save' => { t => 'm', v => '_handle_save_command', },
+    'source' => { t => 'm', v => '_handle_source_command', },
+    't' => { t => 'm', v => '_handle_t_command', },
+    'w' => { t => 'm', v => '_handle_w_command', },
+    'x' => { t => 'm', v => '_handle_x_command', },
+    'y' => { t => 's', v => \&_DB__handle_y_command, },
+    (map { $_ => { t => 'm', v => '_handle_V_command_and_X_command', }, }
+        ('X', 'V')),
+    (map { $_ => { t => 'm', v => '_handle_enable_disable_commands', }, }
+        qw(enable disable)),
+    (map { $_ =>
+        { t => 's', v => \&_DB__handle_restart_and_rerun_commands, },
+        } qw(R rerun)),
+    (map { $_ => {t => 'm', v => '_handle_cmd_wrapper_commands' }, }
+        qw(a A b B e E h i l L M o O v w W)),
+);
+};
+
+sub DB {
+
+    # lock the debugger and get the thread id for the prompt
+    lock($DBGR);
+    my $tid;
+    my $position;
+    my ($prefix, $after, $infix);
+    my $pat;
+    my $explicit_stop;
+    my $piped;
+    my $selected;
+
+    if ($ENV{PERL5DB_THREADED}) {
+        $tid = eval { "[".threads->tid."]" };
+    }
+
+    my $cmd_verb;
+    my $cmd_args;
+
+    my $obj = DB::Obj->new(
+        {
+            position => \$position,
+            prefix => \$prefix,
+            after => \$after,
+            explicit_stop => \$explicit_stop,
+            infix => \$infix,
+            cmd_args => \$cmd_args,
+            cmd_verb => \$cmd_verb,
+            pat => \$pat,
+            piped => \$piped,
+            selected => \$selected,
+        },
+    );
+
+    $obj->_DB_on_init__initialize_globals(@_);
+
+    # Preserve current values of $@, $!, $^E, $,, $/, $\, $^W.
+    # The code being debugged may have altered them.
+    DB::save();
+
+    # Since DB::DB gets called after every line, we can use caller() to
+    # figure out where we last were executing. Sneaky, eh? This works because
+    # caller is returning all the extra information when called from the
+    # debugger.
+    local ( $package, $filename, $line ) = caller;
+    $filename_ini = $filename;
+
+    # set up the context for DB::eval, so it can properly execute
+    # code on behalf of the user. We add the package in so that the
+    # code is eval'ed in the proper package (not in the debugger!).
+    local $usercontext = _calc_usercontext($package);
+
+    # Create an alias to the active file magical array to simplify
+    # the code here.
+    local (*dbline) = $main::{ '_<' . $filename };
+
+    # Last line in the program.
+    $max = $#dbline;
+
+    # The &-call is here to ascertain the mutability of @_.
+    &_DB__determine_if_we_should_break;
+
+    # Preserve the current stop-or-not, and see if any of the W
+    # (watch expressions) has changed.
+    my $was_signal = $signal;
+
+    # If we have any watch expressions ...
+    _DB__handle_watch_expressions($obj);
+
+=head2 C<watchfunction()>
+
+C<watchfunction()> is a function that can be defined by the user; it is a
+function which will be run on each entry to C<DB::DB>; it gets the
+current package, filename, and line as its parameters.
+
+The watchfunction can do anything it likes; it is executing in the
+debugger's context, so it has access to all of the debugger's internal
+data structures and functions.
+
+C<watchfunction()> can control the debugger's actions. Any of the following
+will cause the debugger to return control to the user's program after
+C<watchfunction()> executes:
+
+=over 4
+
+=item *
+
+Returning a false value from the C<watchfunction()> itself.
+
+=item *
+
+Altering C<$single> to a false value.
+
+=item *
+
+Altering C<$signal> to a false value.
+
+=item *
+
+Turning off the C<4> bit in C<$trace> (this also disables the
+check for C<watchfunction()>. This can be done with
+
+    $trace &= ~4;
+
+=back
+
+=cut
+
+    # If there's a user-defined DB::watchfunction, call it with the
+    # current package, filename, and line. The function executes in
+    # the DB:: package.
+    if ( $trace & 4 ) {    # User-installed watch
+        return
+          if watchfunction( $package, $filename, $line )
+          and not $single
+          and not $was_signal
+          and not( $trace & ~4 );
+    } ## end if ($trace & 4)
+
+    # Pick up any alteration to $signal in the watchfunction, and
+    # turn off the signal now.
+    $was_signal = $signal;
+    $signal     = 0;
+
+=head2 GETTING READY TO EXECUTE COMMANDS
+
+The debugger decides to take control if single-step mode is on, the
+C<t> command was entered, or the user generated a signal. If the program
+has fallen off the end, we set things up so that entering further commands
+won't cause trouble, and we say that the program is over.
+
+=cut
+
+    # Make sure that we always print if asked for explicitly regardless
+    # of $trace_to_depth .
+    $explicit_stop = ($single || $was_signal);
+
+    # Check to see if we should grab control ($single true,
+    # trace set appropriately, or we got a signal).
+    if ( $explicit_stop || ( $trace & 1 ) ) {
+        $obj->_DB__grab_control(@_);
+    } ## end if ($single || ($trace...
+
+=pod
+
+If there's an action to be executed for the line we stopped at, execute it.
+If there are any preprompt actions, execute those as well.
+
+=cut
+
+    # If there's an action, do it now.
+    if ($action) {
+        $evalarg = $action;
+        # The &-call is here to ascertain the mutability of @_.
+        &DB::eval;
+    }
+
+    # Are we nested another level (e.g., did we evaluate a function
+    # that had a breakpoint in it at the debugger prompt)?
+    if ( $single || $was_signal ) {
+
+        # Yes, go down a level.
+        local $level = $level + 1;
+
+        # Do any pre-prompt actions.
+        foreach $evalarg (@$pre) {
+            # The &-call is here to ascertain the mutability of @_.
+            &DB::eval;
+        }
+
+        # Complain about too much recursion if we passed the limit.
+        if ($single & 4) {
+            print $OUT $stack_depth . " levels deep in subroutine calls!\n";
+        }
+
+        # The line we're currently on. Set $incr to -1 to stay here
+        # until we get a command that tells us to advance.
+        $start = $line;
+        $incr  = -1;      # for backward motion.
+
+        # Tack preprompt debugger actions ahead of any actual input.
+        @typeahead = ( @$pretype, @typeahead );
+
+=head2 WHERE ARE WE?
+
+XXX Relocate this section?
+
+The debugger normally shows the line corresponding to the current line of
+execution. Sometimes, though, we want to see the next line, or to move elsewhere
+in the file. This is done via the C<$incr>, C<$start>, and C<$max> variables.
+
+C<$incr> controls by how many lines the I<current> line should move forward
+after a command is executed. If set to -1, this indicates that the I<current>
+line shouldn't change.
+
+C<$start> is the I<current> line. It is used for things like knowing where to
+move forwards or backwards from when doing an C<L> or C<-> command.
+
+C<$max> tells the debugger where the last line of the current file is. It's
+used to terminate loops most often.
+
+=head2 THE COMMAND LOOP
+
+Most of C<DB::DB> is actually a command parsing and dispatch loop. It comes
+in two parts:
+
+=over 4
+
+=item *
+
+The outer part of the loop, starting at the C<CMD> label. This loop
+reads a command and then executes it.
+
+=item *
+
+The inner part of the loop, starting at the C<PIPE> label. This part
+is wholly contained inside the C<CMD> block and only executes a command.
+Used to handle commands running inside a pager.
+
+=back
+
+So why have two labels to restart the loop? Because sometimes, it's easier to
+have a command I<generate> another command and then re-execute the loop to do
+the new command. This is faster, but perhaps a bit more convoluted.
+
+=cut
+
+        # The big command dispatch loop. It keeps running until the
+        # user yields up control again.
+        #
+        # If we have a terminal for input, and we get something back
+        # from readline(), keep on processing.
+
+      CMD:
+        while (_DB__read_next_cmd($tid))
+        {
+
+            share($cmd);
+            # ... try to execute the input as debugger commands.
+
+            # Don't stop running.
+            $single = 0;
+
+            # No signal is active.
+            $signal = 0;
+
+            # Handle continued commands (ending with \):
+            if ($cmd =~ s/\\\z/\n/) {
+                $cmd .= DB::readline("  cont: ");
+                redo CMD;
+            }
+
+=head4 The null command
+
+A newline entered by itself means I<re-execute the last command>. We grab the
+command out of C<$laststep> (where it was recorded previously), and copy it
+back into C<$cmd> to be executed below. If there wasn't any previous command,
+we'll do nothing below (no command will match). If there was, we also save it
+in the command history and fall through to allow the command parsing to pick
+it up.
+
+=cut
+
+            # Empty input means repeat the last command.
+            if ($cmd eq '') {
+                $cmd = $laststep;
+            }
+            chomp($cmd);    # get rid of the annoying extra newline
+            if (length($cmd) >= 2) {
+                push( @hist, $cmd );
+            }
+            push( @truehist, $cmd );
+            share(@hist);
+            share(@truehist);
+
+            # This is a restart point for commands that didn't arrive
+            # via direct user input. It allows us to 'redo PIPE' to
+            # re-execute command processing without reading a new command.
+          PIPE: {
+                _DB__trim_command_and_return_first_component($obj);
+
+=head3 COMMAND ALIASES
+
+The debugger can create aliases for commands (these are stored in the
+C<%alias> hash). Before a command is executed, the command loop looks it up
+in the alias hash and substitutes the contents of the alias for the command,
+completely replacing it.
+
+=cut
+
+                # See if there's an alias for the command, and set it up if so.
+                if ( $alias{$cmd_verb} ) {
+
+                    # Squelch signal handling; we want to keep control here
+                    # if something goes loco during the alias eval.
+                    local $SIG{__DIE__};
+                    local $SIG{__WARN__};
+
+                    # This is a command, so we eval it in the DEBUGGER's
+                    # scope! Otherwise, we can't see the special debugger
+                    # variables, or get to the debugger's subs. (Well, we
+                    # _could_, but why make it even more complicated?)
+                    eval "\$cmd =~ $alias{$cmd_verb}";
+                    if ($@) {
+                        local $\ = '';
+                        print $OUT "Couldn't evaluate '$cmd_verb' alias: $@";
+                        next CMD;
+                    }
+                    _DB__trim_command_and_return_first_component($obj);
+                } ## end if ($alias{$cmd_verb})
+
+=head3 MAIN-LINE COMMANDS
+
+All of these commands work up to and after the program being debugged has
+terminated.
+
+=head4 C<q> - quit
+
+Quit the debugger. This entails setting the C<$fall_off_end> flag, so we don't
+try to execute further, cleaning any restart-related stuff out of the
+environment, and executing with the last value of C<$?>.
+
+=cut
+
+                # All of these commands were remapped in perl 5.8.0;
+                # we send them off to the secondary dispatcher (see below).
+                $obj->_handle_special_char_cmd_wrapper_commands;
+                _DB__trim_command_and_return_first_component($obj);
+
+                if (my $cmd_rec = $cmd_lookup{$cmd_verb}) {
+                    my $type = $cmd_rec->{t};
+                    my $val = $cmd_rec->{v};
+                    if ($type eq 'm') {
+                        $obj->$val();
+                    }
+                    elsif ($type eq 's') {
+                        $val->($obj);
+                    }
+                }
+
+=head4 C<t> - trace [n]
+
+Turn tracing on or off. Inverts the appropriate bit in C<$trace> (q.v.).
+If level is specified, set C<$trace_to_depth>.
+
+=head4 C<S> - list subroutines matching/not matching a pattern
+
+Walks through C<%sub>, checking to see whether or not to print the name.
+
+=head4 C<X> - list variables in current package
+
+Since the C<V> command actually processes this, just change this to the
+appropriate C<V> command and fall through.
+
+=head4 C<V> - list variables
+
+Uses C<dumpvar.pl> to dump out the current values for selected variables.
+
+=head4 C<x> - evaluate and print an expression
+
+Hands the expression off to C<DB::eval>, setting it up to print the value
+via C<dumpvar.pl> instead of just printing it directly.
+
+=head4 C<m> - print methods
+
+Just uses C<DB::methods> to determine what methods are available.
+
+=head4 C<f> - switch files
+
+Switch to a different filename.
+
+=head4 C<.> - return to last-executed line.
+
+We set C<$incr> to -1 to indicate that the debugger shouldn't move ahead,
+and then we look up the line in the magical C<%dbline> hash.
+
+=head4 C<-> - back one window
+
+We change C<$start> to be one window back; if we go back past the first line,
+we set it to be the first line. We ser C<$incr> to put us back at the
+currently-executing line, and then put a C<l $start +> (list one window from
+C<$start>) in C<$cmd> to be executed later.
+
+=head3 PRE-580 COMMANDS VS. NEW COMMANDS: C<a, A, b, B, h, l, L, M, o, O, P, v, w, W, E<lt>, E<lt>E<lt>, E<0x7B>, E<0x7B>E<0x7B>>
+
+In Perl 5.8.0, a realignment of the commands was done to fix up a number of
+problems, most notably that the default case of several commands destroying
+the user's work in setting watchpoints, actions, etc. We wanted, however, to
+retain the old commands for those who were used to using them or who preferred
+them. At this point, we check for the new commands and call C<cmd_wrapper> to
+deal with them instead of processing them in-line.
+
+=head4 C<y> - List lexicals in higher scope
+
+Uses C<PadWalker> to find the lexicals supplied as arguments in a scope
+above the current one and then displays then using C<dumpvar.pl>.
+
+=head3 COMMANDS NOT WORKING AFTER PROGRAM ENDS
+
+All of the commands below this point don't work after the program being
+debugged has ended. All of them check to see if the program has ended; this
+allows the commands to be relocated without worrying about a 'line of
+demarcation' above which commands can be entered anytime, and below which
+they can't.
+
+=head4 C<n> - single step, but don't trace down into subs
+
+Done by setting C<$single> to 2, which forces subs to execute straight through
+when entered (see C<DB::sub>). We also save the C<n> command in C<$laststep>,
+so a null command knows what to re-execute.
+
+=head4 C<s> - single-step, entering subs
+
+Sets C<$single> to 1, which causes C<DB::sub> to continue tracing inside
+subs. Also saves C<s> as C<$lastcmd>.
+
+=head4 C<c> - run continuously, setting an optional breakpoint
+
+Most of the code for this command is taken up with locating the optional
+breakpoint, which is either a subroutine name or a line number. We set
+the appropriate one-time-break in C<@dbline> and then turn off single-stepping
+in this and all call levels above this one.
+
+=head4 C<r> - return from a subroutine
+
+For C<r> to work properly, the debugger has to stop execution again
+immediately after the return is executed. This is done by forcing
+single-stepping to be on in the call level above the current one. If
+we are printing return values when a C<r> is executed, set C<$doret>
+appropriately, and force us out of the command loop.
+
+=head4 C<T> - stack trace
+
+Just calls C<DB::print_trace>.
+
+=head4 C<w> - List window around current line.
+
+Just calls C<DB::cmd_w>.
+
+=head4 C<W> - watch-expression processing.
+
+Just calls C<DB::cmd_W>.
+
+=head4 C</> - search forward for a string in the source
+
+We take the argument and treat it as a pattern. If it turns out to be a
+bad one, we return the error we got from trying to C<eval> it and exit.
+If not, we create some code to do the search and C<eval> it so it can't
+mess us up.
+
+=cut
+
+                _DB__handle_forward_slash_command($obj);
+
+=head4 C<?> - search backward for a string in the source
+
+Same as for C</>, except the loop runs backwards.
+
+=cut
+
+                _DB__handle_question_mark_command($obj);
+
+=head4 C<$rc> - Recall command
+
+Manages the commands in C<@hist> (which is created if C<Term::ReadLine> reports
+that the terminal supports history). It finds the command required, puts it
+into C<$cmd>, and redoes the loop to execute it.
+
+=cut
+
+                # $rc - recall command.
+                $obj->_handle_rc_recall_command;
+
+=head4 C<$sh$sh> - C<system()> command
+
+Calls the C<_db_system()> to handle the command. This keeps the C<STDIN> and
+C<STDOUT> from getting messed up.
+
+=cut
+
+                $obj->_handle_sh_command;
+
+=head4 C<$rc I<pattern> $rc> - Search command history
+
+Another command to manipulate C<@hist>: this one searches it with a pattern.
+If a command is found, it is placed in C<$cmd> and executed via C<redo>.
+
+=cut
+
+                $obj->_handle_rc_search_history_command;
+
+=head4 C<$sh> - Invoke a shell
+
+Uses C<_db_system()> to invoke a shell.
+
+=cut
+
+=head4 C<$sh I<command>> - Force execution of a command in a shell
+
+Like the above, but the command is passed to the shell. Again, we use
+C<_db_system()> to avoid problems with C<STDIN> and C<STDOUT>.
+
+=head4 C<H> - display commands in history
+
+Prints the contents of C<@hist> (if any).
+
+=head4 C<man, doc, perldoc> - look up documentation
+
+Just calls C<runman()> to print the appropriate document.
+
+=cut
+
+                $obj->_handle_doc_command;
+
+=head4 C<p> - print
+
+Builds a C<print EXPR> expression in the C<$cmd>; this will get executed at
+the bottom of the loop.
+
+=head4 C<=> - define command alias
+
+Manipulates C<%alias> to add or list command aliases.
+
+=head4 C<source> - read commands from a file.
+
+Opens a lexical filehandle and stacks it on C<@cmdfhs>; C<DB::readline> will
+pick it up.
+
+=head4 C<enable> C<disable> - enable or disable breakpoints
+
+This enables or disables breakpoints.
+
+=head4 C<save> - send current history to a file
+
+Takes the complete history, (not the shrunken version you see with C<H>),
+and saves it to the given filename, so it can be replayed using C<source>.
+
+Note that all C<^(save|source)>'s are commented out with a view to minimise recursion.
+
+=head4 C<R> - restart
+
+Restart the debugger session.
+
+=head4 C<rerun> - rerun the current session
+
+Return to any given position in the B<true>-history list
+
+=head4 C<|, ||> - pipe output through the pager.
+
+For C<|>, we save C<OUT> (the debugger's output filehandle) and C<STDOUT>
+(the program's standard output). For C<||>, we only save C<OUT>. We open a
+pipe to the pager (restoring the output filehandles if this fails). If this
+is the C<|> command, we also set up a C<SIGPIPE> handler which will simply
+set C<$signal>, sending us back into the debugger.
+
+We then trim off the pipe symbols and C<redo> the command loop at the
+C<PIPE> label, causing us to evaluate the command in C<$cmd> without
+reading another.
+
+=cut
+
+                # || - run command in the pager, with output to DB::OUT.
+                _DB__handle_run_command_in_pager_command($obj);
+
+=head3 END OF COMMAND PARSING
+
+Anything left in C<$cmd> at this point is a Perl expression that we want to
+evaluate. We'll always evaluate in the user's context, and fully qualify
+any variables we might want to address in the C<DB> package.
+
+=cut
+
+            }    # PIPE:
+
+            # trace an expression
+            $cmd =~ s/^t\s/\$DB::trace |= 1;\n/;
+
+            # Make sure the flag that says "the debugger's running" is
+            # still on, to make sure we get control again.
+            $evalarg = "\$^D = \$^D | \$DB::db_stop;\n$cmd";
+
+            # Run *our* eval that executes in the caller's context.
+            # The &-call is here to ascertain the mutability of @_.
+            &DB::eval;
+
+            # Turn off the one-time-dump stuff now.
+            if ($onetimeDump) {
+                $onetimeDump      = undef;
+                $onetimedumpDepth = undef;
+            }
+            elsif ( $term_pid == $$ ) {
+                eval { # May run under miniperl, when not available...
+                    STDOUT->flush();
+                    STDERR->flush();
+                };
+
+                # XXX If this is the master pid, print a newline.
+                print {$OUT} "\n";
+            }
+        } ## end while (($term || &setterm...
+
+=head3 POST-COMMAND PROCESSING
+
+After each command, we check to see if the command output was piped anywhere.
+If so, we go through the necessary code to unhook the pipe and go back to
+our standard filehandles for input and output.
+
+=cut
+
+        continue {    # CMD:
+            _DB__at_end_of_every_command($obj);
+        }    # CMD:
+
+=head3 COMMAND LOOP TERMINATION
+
+When commands have finished executing, we come here. If the user closed the
+input filehandle, we turn on C<$fall_off_end> to emulate a C<q> command. We
+evaluate any post-prompt items. We restore C<$@>, C<$!>, C<$^E>, C<$,>, C<$/>,
+C<$\>, and C<$^W>, and return a null list as expected by the Perl interpreter.
+The interpreter will then execute the next line and then return control to us
+again.
+
+=cut
+
+        # No more commands? Quit.
+        $fall_off_end = 1 unless defined $cmd;    # Emulate 'q' on EOF
+
+        # Evaluate post-prompt commands.
+        foreach $evalarg (@$post) {
+            # The &-call is here to ascertain the mutability of @_.
+            &DB::eval;
+        }
+    }    # if ($single || $signal)
+
+    # Put the user's globals back where you found them.
+    ( $@, $!, $^E, $,, $/, $\, $^W ) = @saved;
+    ();
+} ## end sub DB
+
+# Because DB::Obj is used above,
+#
+#   my $obj = DB::Obj->new(
+#
+# The following package declaration must come before that,
+# or else runtime errors will occur with
+#
+#   PERLDB_OPTS="autotrace nonstop"
+#
+# ( rt#116771 )
+BEGIN {
+
+package DB::Obj;
+
+sub new {
+    my $class = shift;
+
+    my $self = bless {}, $class;
+
+    $self->_init(@_);
+
+    return $self;
+}
+
+sub _init {
+    my ($self, $args) = @_;
+
+    %{$self} = (%$self, %$args);
+
+    return;
+}
+
+{
+    no strict 'refs';
+    foreach my $slot_name (qw(
+        after explicit_stop infix pat piped position prefix selected cmd_verb
+        cmd_args
+        )) {
+        my $slot = $slot_name;
+        *{$slot} = sub {
+            my $self = shift;
+
+            if (@_) {
+                ${ $self->{$slot} } = shift;
+            }
+
+            return ${ $self->{$slot} };
+        };
+
+        *{"append_to_$slot"} = sub {
+            my $self = shift;
+            my $s = shift;
+
+            return $self->$slot($self->$slot . $s);
+        };
+    }
+}
+
+sub _DB_on_init__initialize_globals
+{
+    my $self = shift;
+
+    # Check for whether we should be running continuously or not.
+    # _After_ the perl program is compiled, $single is set to 1:
+    if ( $single and not $second_time++ ) {
+
+        # Options say run non-stop. Run until we get an interrupt.
+        if ($runnonstop) {    # Disable until signal
+                # If there's any call stack in place, turn off single
+                # stepping into subs throughout the stack.
+            for my $i (0 .. $stack_depth) {
+                $stack[ $i ] &= ~1;
+            }
+
+            # And we are now no longer in single-step mode.
+            $single = 0;
+
+            # If we simply returned at this point, we wouldn't get
+            # the trace info. Fall on through.
+            # return;
+        } ## end if ($runnonstop)
+
+        elsif ($ImmediateStop) {
+
+            # We are supposed to stop here; XXX probably a break.
+            $ImmediateStop = 0;    # We've processed it; turn it off
+            $signal        = 1;    # Simulate an interrupt to force
+                                   # us into the command loop
+        }
+    } ## end if ($single and not $second_time...
+
+    # If we're in single-step mode, or an interrupt (real or fake)
+    # has occurred, turn off non-stop mode.
+    $runnonstop = 0 if $single or $signal;
+
+    return;
+}
+
+sub _my_print_lineinfo
+{
+    my ($self, $i, $incr_pos) = @_;
+
+    if ($frame) {
+        # Print it indented if tracing is on.
+        DB::print_lineinfo( ' ' x $stack_depth,
+            "$i:\t$DB::dbline[$i]" . $self->after );
+    }
+    else {
+        DB::depth_print_lineinfo($self->explicit_stop, $incr_pos);
+    }
+}
+
+sub _curr_line {
+    return $DB::dbline[$line];
+}
+
+sub _is_full {
+    my ($self, $letter) = @_;
+
+    return ($DB::cmd eq $letter);
+}
+
+sub _DB__grab_control
+{
+    my $self = shift;
+
+    # Yes, grab control.
+    if ($slave_editor) {
+
+        # Tell the editor to update its position.
+        $self->position("\032\032${DB::filename}:$line:0\n");
+        DB::print_lineinfo($self->position());
+    }
+
+=pod
+
+Special check: if we're in package C<DB::fake>, we've gone through the
+C<END> block at least once. We set up everything so that we can continue
+to enter commands and have a valid context to be in.
+
+=cut
+
+    elsif ( $DB::package eq 'DB::fake' ) {
+
+        # Fallen off the end already.
+        if (!$DB::term) {
+            DB::setterm();
+        }
+
+        DB::print_help(<<EOP);
+Debugged program terminated.  Use B<q> to quit or B<R> to restart,
+use B<o> I<inhibit_exit> to avoid stopping after program termination,
+B<h q>, B<h R> or B<h o> to get additional info.
+EOP
+
+        # Set the DB::eval context appropriately.
+        # At program termination disable any user actions.
+        $DB::action = undef;
+
+        $DB::package     = 'main';
+        $DB::usercontext = DB::_calc_usercontext($DB::package);
+    } ## end elsif ($package eq 'DB::fake')
+
+=pod
+
+If the program hasn't finished executing, we scan forward to the
+next executable line, print that out, build the prompt from the file and line
+number information, and print that.
+
+=cut
+
+    else {
+
+
+        # Still somewhere in the midst of execution. Set up the
+        #  debugger prompt.
+        $DB::sub =~ s/\'/::/;    # Swap Perl 4 package separators (') to
+                             # Perl 5 ones (sorry, we don't print Klingon
+                             #module names)
+
+        $self->prefix($DB::sub =~ /::/ ? "" : ($DB::package . '::'));
+        $self->append_to_prefix( "$DB::sub(${DB::filename}:" );
+        $self->after( $self->_curr_line =~ /\n$/ ? '' : "\n" );
+
+        # Break up the prompt if it's really long.
+        if ( length($self->prefix()) > 30 ) {
+            $self->position($self->prefix . "$line):\n$line:\t" . $self->_curr_line . $self->after);
+            $self->prefix("");
+            $self->infix(":\t");
+        }
+        else {
+            $self->infix("):\t");
+            $self->position(
+                $self->prefix . $line. $self->infix
+                . $self->_curr_line . $self->after
+            );
+        }
+
+        # Print current line info, indenting if necessary.
+        $self->_my_print_lineinfo($line, $self->position);
+
+        my $i;
+        my $line_i = sub { return $DB::dbline[$i]; };
+
+        # Scan forward, stopping at either the end or the next
+        # unbreakable line.
+        for ( $i = $line + 1 ; $i <= $DB::max && $line_i->() == 0 ; ++$i )
+        {    #{ vi
+
+            # Drop out on null statements, block closers, and comments.
+            last if $line_i->() =~ /^\s*[\;\}\#\n]/;
+
+            # Drop out if the user interrupted us.
+            last if $signal;
+
+            # Append a newline if the line doesn't have one. Can happen
+            # in eval'ed text, for instance.
+            $self->after( $line_i->() =~ /\n$/ ? '' : "\n" );
+
+            # Next executable line.
+            my $incr_pos = $self->prefix . $i . $self->infix . $line_i->()
+                . $self->after;
+            $self->append_to_position($incr_pos);
+            $self->_my_print_lineinfo($i, $incr_pos);
+        } ## end for ($i = $line + 1 ; $i...
+    } ## end else [ if ($slave_editor)
+
+    return;
+}
+
+sub _handle_t_command {
+    my $self = shift;
+
+    my $levels = $self->cmd_args();
+
+    if ((!length($levels)) or ($levels !~ /\D/)) {
+        $trace ^= 1;
+        local $\ = '';
+        $DB::trace_to_depth = $levels ? $stack_depth + $levels : 1E9;
+        print {$OUT} "Trace = "
+        . ( ( $trace & 1 )
+            ? ( $levels ? "on (to level $DB::trace_to_depth)" : "on" )
+            : "off" ) . "\n";
+        next CMD;
+    }
+
+    return;
+}
+
+
+sub _handle_S_command {
+    my $self = shift;
+
+    if (my ($print_all_subs, $should_reverse, $Spatt)
+        = $self->cmd_args =~ /\A((!)?(.+))?\z/) {
+        # $Spatt is the pattern (if any) to use.
+        # Reverse scan?
+        my $Srev     = defined $should_reverse;
+        # No args - print all subs.
+        my $Snocheck = !defined $print_all_subs;
+
+        # Need to make these sane here.
+        local $\ = '';
+        local $, = '';
+
+        # Search through the debugger's magical hash of subs.
+        # If $nocheck is true, just print the sub name.
+        # Otherwise, check it against the pattern. We then use
+        # the XOR trick to reverse the condition as required.
+        foreach $subname ( sort( keys %sub ) ) {
+            if ( $Snocheck or $Srev ^ ( $subname =~ /$Spatt/ ) ) {
+                print $OUT $subname, "\n";
+            }
+        }
+        next CMD;
+    }
+
+    return;
+}
+
+sub _handle_V_command_and_X_command {
+    my $self = shift;
+
+    $DB::cmd =~ s/^X\b/V $DB::package/;
+
+    # Bare V commands get the currently-being-debugged package
+    # added.
+    if ($self->_is_full('V')) {
+        $DB::cmd = "V $DB::package";
+    }
+
+    # V - show variables in package.
+    if (my ($new_packname, $new_vars_str) =
+        $DB::cmd =~ /\AV\b\s*(\S+)\s*(.*)/) {
+
+        # Save the currently selected filehandle and
+        # force output to debugger's filehandle (dumpvar
+        # just does "print" for output).
+        my $savout = select($OUT);
+
+        # Grab package name and variables to dump.
+        $packname = $new_packname;
+        my @vars     = split( ' ', $new_vars_str );
+
+        # If main::dumpvar isn't here, get it.
+        do 'dumpvar.pl' || die $@ unless defined &main::dumpvar;
+        if ( defined &main::dumpvar ) {
+
+            # We got it. Turn off subroutine entry/exit messages
+            # for the moment, along with return values.
+            local $frame = 0;
+            local $doret = -2;
+
+            # must detect sigpipe failures  - not catching
+            # then will cause the debugger to die.
+            eval {
+                main::dumpvar(
+                    $packname,
+                    defined $option{dumpDepth}
+                    ? $option{dumpDepth}
+                    : -1,    # assume -1 unless specified
+                    @vars
+                );
+            };
+
+            # The die doesn't need to include the $@, because
+            # it will automatically get propagated for us.
+            if ($@) {
+                die unless $@ =~ /dumpvar print failed/;
+            }
+        } ## end if (defined &main::dumpvar)
+        else {
+
+            # Couldn't load dumpvar.
+            print $OUT "dumpvar.pl not available.\n";
+        }
+
+        # Restore the output filehandle, and go round again.
+        select($savout);
+        next CMD;
+    }
+
+    return;
+}
+
+sub _handle_dash_command {
+    my $self = shift;
+
+    if ($self->_is_full('-')) {
+
+        # back up by a window; go to 1 if back too far.
+        $start -= $incr + $window + 1;
+        $start = 1 if $start <= 0;
+        $incr  = $window - 1;
+
+        # Generate and execute a "l +" command (handled below).
+        $DB::cmd = 'l ' . ($start) . '+';
+        redo CMD;
+    }
+    return;
+}
+
+sub _n_or_s_commands_generic {
+    my ($self, $new_val) = @_;
+    # n - next
+    next CMD if DB::_DB__is_finished();
+
+    # Single step, but don't enter subs.
+    $single = $new_val;
+
+    # Save for empty command (repeat last).
+    $laststep = $DB::cmd;
+    last CMD;
+}
+
+sub _n_or_s {
+    my ($self, $letter, $new_val) = @_;
+
+    if ($self->_is_full($letter)) {
+        $self->_n_or_s_commands_generic($new_val);
+    }
+    else {
+        $self->_n_or_s_and_arg_commands_generic($letter, $new_val);
+    }
+
+    return;
+}
+
+sub _handle_n_command {
+    my $self = shift;
+
+    return $self->_n_or_s('n', 2);
+}
+
+sub _handle_s_command {
+    my $self = shift;
+
+    return $self->_n_or_s('s', 1);
+}
+
+sub _handle_r_command {
+    my $self = shift;
+
+    # r - return from the current subroutine.
+    if ($self->_is_full('r')) {
+
+        # Can't do anything if the program's over.
+        next CMD if DB::_DB__is_finished();
+
+        # Turn on stack trace.
+        $stack[$stack_depth] |= 1;
+
+        # Print return value unless the stack is empty.
+        $doret = $option{PrintRet} ? $stack_depth - 1 : -2;
+        last CMD;
+    }
+
+    return;
+}
+
+sub _handle_T_command {
+    my $self = shift;
+
+    if ($self->_is_full('T')) {
+        DB::print_trace( $OUT, 1 );    # skip DB
+        next CMD;
+    }
+
+    return;
+}
+
+sub _handle_w_command {
+    my $self = shift;
+
+    DB::cmd_w( 'w', $self->cmd_args() );
+    next CMD;
+
+    return;
+}
+
+sub _handle_W_command {
+    my $self = shift;
+
+    if (my $arg = $self->cmd_args) {
+        DB::cmd_W( 'W', $arg );
+        next CMD;
+    }
+
+    return;
+}
+
+sub _handle_rc_recall_command {
+    my $self = shift;
+
+    # $rc - recall command.
+    if (my ($minus, $arg) = $DB::cmd =~ m#\A$rc+\s*(-)?(\d+)?\z#) {
+
+        # No arguments, take one thing off history.
+        pop(@hist) if length($DB::cmd) > 1;
+
+        # Relative (- found)?
+        #  Y - index back from most recent (by 1 if bare minus)
+        #  N - go to that particular command slot or the last
+        #      thing if nothing following.
+
+        $self->cmd_verb(
+            scalar($minus ? ( $#hist - ( $arg || 1 ) ) : ( $arg || $#hist ))
+        );
+
+        # Pick out the command desired.
+        $DB::cmd = $hist[$self->cmd_verb];
+
+        # Print the command to be executed and restart the loop
+        # with that command in the buffer.
+        print {$OUT} $DB::cmd, "\n";
+        redo CMD;
+    }
+
+    return;
+}
+
+sub _handle_rc_search_history_command {
+    my $self = shift;
+
+    # $rc pattern $rc - find a command in the history.
+    if (my ($arg) = $DB::cmd =~ /\A$rc([^$rc].*)\z/) {
+
+        # Create the pattern to use.
+        my $pat = "^$arg";
+        $self->pat($pat);
+
+        # Toss off last entry if length is >1 (and it always is).
+        pop(@hist) if length($DB::cmd) > 1;
+
+        my $i;
+
+        # Look backward through the history.
+        SEARCH_HIST:
+        for ( $i = $#hist ; $i ; --$i ) {
+            # Stop if we find it.
+            last SEARCH_HIST if $hist[$i] =~ /$pat/;
+        }
+
+        if ( !$i ) {
+
+            # Never found it.
+            print $OUT "No such command!\n\n";
+            next CMD;
+        }
+
+        # Found it. Put it in the buffer, print it, and process it.
+        $DB::cmd = $hist[$i];
+        print $OUT $DB::cmd, "\n";
+        redo CMD;
+    }
+
+    return;
+}
+
+sub _handle_H_command {
+    my $self = shift;
+
+    if ($self->cmd_args =~ m#\A\*#) {
+        @hist = @truehist = ();
+        print $OUT "History cleansed\n";
+        next CMD;
+    }
+
+    if (my ($num) = $self->cmd_args =~ /\A(?:-(\d+))?/) {
+
+        # Anything other than negative numbers is ignored by
+        # the (incorrect) pattern, so this test does nothing.
+        $end = $num ? ( $#hist - $num ) : 0;
+
+        # Set to the minimum if less than zero.
+        $hist = 0 if $hist < 0;
+
+        # Start at the end of the array.
+        # Stay in while we're still above the ending value.
+        # Tick back by one each time around the loop.
+        my $i;
+
+        for ( $i = $#hist ; $i > $end ; $i-- ) {
+
+            # Print the command  unless it has no arguments.
+            print $OUT "$i: ", $hist[$i], "\n"
+            unless $hist[$i] =~ /^.?$/;
+        }
+
+        next CMD;
+    }
+
+    return;
+}
+
+sub _handle_doc_command {
+    my $self = shift;
+
+    # man, perldoc, doc - show manual pages.
+    if (my ($man_page)
+        = $DB::cmd =~ /\A(?:man|(?:perl)?doc)\b(?:\s+([^(]*))?\z/) {
+        DB::runman($man_page);
+        next CMD;
+    }
+
+    return;
+}
+
+sub _handle_p_command {
+    my $self = shift;
+
+    my $print_cmd = 'print {$DB::OUT} ';
+    # p - print (no args): print $_.
+    if ($self->_is_full('p')) {
+        $DB::cmd = $print_cmd . '$_';
+    }
+    else {
+        # p - print the given expression.
+        $DB::cmd =~ s/\Ap\b/$print_cmd /;
+    }
+
+    return;
+}
+
+sub _handle_equal_sign_command {
+    my $self = shift;
+
+    if ($DB::cmd =~ s/\A=\s*//) {
+        my @keys;
+        if ( length $DB::cmd == 0 ) {
+
+            # No args, get current aliases.
+            @keys = sort keys %alias;
+        }
+        elsif ( my ( $k, $v ) = ( $DB::cmd =~ /^(\S+)\s+(\S.*)/ ) ) {
+
+            # Creating a new alias. $k is alias name, $v is
+            # alias value.
+
+            # can't use $_ or kill //g state
+            for my $x ( $k, $v ) {
+
+                # Escape "alarm" characters.
+                $x =~ s/\a/\\a/g;
+            }
+
+            # Substitute key for value, using alarm chars
+            # as separators (which is why we escaped them in
+            # the command).
+            $alias{$k} = "s\a$k\a$v\a";
+
+            # Turn off standard warn and die behavior.
+            local $SIG{__DIE__};
+            local $SIG{__WARN__};
+
+            # Is it valid Perl?
+            unless ( eval "sub { s\a$k\a$v\a }; 1" ) {
+
+                # Nope. Bad alias. Say so and get out.
+                print $OUT "Can't alias $k to $v: $@\n";
+                delete $alias{$k};
+                next CMD;
+            }
+
+            # We'll only list the new one.
+            @keys = ($k);
+        } ## end elsif (my ($k, $v) = ($DB::cmd...
+
+        # The argument is the alias to list.
+        else {
+            @keys = ($DB::cmd);
+        }
+
+        # List aliases.
+        for my $k (@keys) {
+
+            # Messy metaquoting: Trim the substitution code off.
+            # We use control-G as the delimiter because it's not
+            # likely to appear in the alias.
+            if ( ( my $v = $alias{$k} ) =~ ss\a$k\a(.*)\a$1 ) {
+
+                # Print the alias.
+                print $OUT "$k\t= $1\n";
+            }
+            elsif ( defined $alias{$k} ) {
+
+                # Couldn't trim it off; just print the alias code.
+                print $OUT "$k\t$alias{$k}\n";
+            }
+            else {
+
+                # No such, dude.
+                print "No alias for $k\n";
+            }
+        } ## end for my $k (@keys)
+        next CMD;
+    }
+
+    return;
+}
+
+sub _handle_source_command {
+    my $self = shift;
+
+    # source - read commands from a file (or pipe!) and execute.
+    if (my $sourced_fn = $self->cmd_args) {
+        if ( open my $fh, $sourced_fn ) {
+
+            # Opened OK; stick it in the list of file handles.
+            push @cmdfhs, $fh;
+        }
+        else {
+
+            # Couldn't open it.
+            DB::_db_warn("Can't execute '$sourced_fn': $!\n");
+        }
+        next CMD;
+    }
+
+    return;
+}
+
+sub _handle_enable_disable_commands {
+    my $self = shift;
+
+    my $which_cmd = $self->cmd_verb;
+    my $position = $self->cmd_args;
+
+    if ($position !~ /\s/) {
+        my ($fn, $line_num);
+        if ($position =~ m{\A\d+\z})
+        {
+            $fn = $DB::filename;
+            $line_num = $position;
+        }
+        elsif (my ($new_fn, $new_line_num)
+            = $position =~ m{\A(.*):(\d+)\z}) {
+            ($fn, $line_num) = ($new_fn, $new_line_num);
+        }
+        else
+        {
+            DB::_db_warn("Wrong spec for enable/disable argument.\n");
+        }
+
+        if (defined($fn)) {
+            if (DB::_has_breakpoint_data_ref($fn, $line_num)) {
+                DB::_set_breakpoint_enabled_status($fn, $line_num,
+                    ($which_cmd eq 'enable' ? 1 : '')
+                );
+            }
+            else {
+                DB::_db_warn("No breakpoint set at ${fn}:${line_num}\n");
+            }
+        }
+
+        next CMD;
+    }
+
+    return;
+}
+
+sub _handle_save_command {
+    my $self = shift;
+
+    if (my $new_fn = $self->cmd_args) {
+        my $filename = $new_fn || '.perl5dbrc';    # default?
+        if ( open my $fh, '>', $filename ) {
+
+            # chomp to remove extraneous newlines from source'd files
+            chomp( my @truelist =
+                map { m/\A\s*(save|source)/ ? "#$_" : $_ }
+                @truehist );
+            print {$fh} join( "\n", @truelist );
+            print "commands saved in $filename\n";
+        }
+        else {
+            DB::_db_warn("Can't save debugger commands in '$new_fn': $!\n");
+        }
+        next CMD;
+    }
+
+    return;
+}
+
+sub _n_or_s_and_arg_commands_generic {
+    my ($self, $letter, $new_val) = @_;
+
+    # s - single-step. Remember the last command was 's'.
+    if ($DB::cmd =~ s#\A\Q$letter\E\s#\$DB::single = $new_val;\n#) {
+        $laststep = $letter;
+    }
+
+    return;
+}
+
+sub _handle_sh_command {
+    my $self = shift;
+
+    # $sh$sh - run a shell command (if it's all ASCII).
+    # Can't run shell commands with Unicode in the debugger, hmm.
+    my $my_cmd = $DB::cmd;
+    if ($my_cmd =~ m#\A$sh#gms) {
+
+        if ($my_cmd =~ m#\G\z#cgms) {
+            # Run the user's shell. If none defined, run Bourne.
+            # We resume execution when the shell terminates.
+            DB::_db_system( $ENV{SHELL} || "/bin/sh" );
+            next CMD;
+        }
+        elsif ($my_cmd =~ m#\G$sh\s*(.*)#cgms) {
+            # System it.
+            DB::_db_system($1);
+            next CMD;
+        }
+        elsif ($my_cmd =~ m#\G\s*(.*)#cgms) {
+            DB::_db_system( $ENV{SHELL} || "/bin/sh", "-c", $1 );
+            next CMD;
+        }
+    }
+}
+
+sub _handle_x_command {
+    my $self = shift;
+
+    if ($DB::cmd =~ s#\Ax\b# #) {    # Remainder gets done by DB::eval()
+        $onetimeDump = 'dump';    # main::dumpvar shows the output
+
+        # handle special  "x 3 blah" syntax XXX propagate
+        # doc back to special variables.
+        if ( $DB::cmd =~ s#\A\s*(\d+)(?=\s)# #) {
+            $onetimedumpDepth = $1;
+        }
+    }
+
+    return;
+}
+
+sub _handle_q_command {
+    my $self = shift;
+
+    if ($self->_is_full('q')) {
+        $fall_off_end = 1;
+        DB::clean_ENV();
+        exit $?;
+    }
+
+    return;
+}
+
+sub _handle_cmd_wrapper_commands {
+    my $self = shift;
+
+    DB::cmd_wrapper( $self->cmd_verb, $self->cmd_args, $line );
+    next CMD;
+}
+
+sub _handle_special_char_cmd_wrapper_commands {
+    my $self = shift;
+
+    # All of these commands were remapped in perl 5.8.0;
+    # we send them off to the secondary dispatcher (see below).
+    if (my ($cmd_letter, $my_arg) = $DB::cmd =~ /\A([<>\{]{1,2})\s*(.*)/so) {
+        DB::cmd_wrapper( $cmd_letter, $my_arg, $line );
+        next CMD;
+    }
+
+    return;
+}
+
+} ## end DB::Obj
+
+package DB;
+
+# The following code may be executed now:
+# BEGIN {warn 4}
+
+=head2 sub
+
+C<sub> is called whenever a subroutine call happens in the program being
+debugged. The variable C<$DB::sub> contains the name of the subroutine
+being called.
+
+The core function of this subroutine is to actually call the sub in the proper
+context, capturing its output. This of course causes C<DB::DB> to get called
+again, repeating until the subroutine ends and returns control to C<DB::sub>
+again. Once control returns, C<DB::sub> figures out whether or not to dump the
+return value, and returns its captured copy of the return value as its own
+return value. The value then feeds back into the program being debugged as if
+C<DB::sub> hadn't been there at all.
+
+C<sub> does all the work of printing the subroutine entry and exit messages
+enabled by setting C<$frame>. It notes what sub the autoloader got called for,
+and also prints the return value if needed (for the C<r> command and if
+the 16 bit is set in C<$frame>).
+
+It also tracks the subroutine call depth by saving the current setting of
+C<$single> in the C<@stack> package global; if this exceeds the value in
+C<$deep>, C<sub> automatically turns on printing of the current depth by
+setting the C<4> bit in C<$single>. In any case, it keeps the current setting
+of stop/don't stop on entry to subs set as it currently is set.
+
+=head3 C<caller()> support
+
+If C<caller()> is called from the package C<DB>, it provides some
+additional data, in the following order:
+
+=over 4
+
+=item * C<$package>
+
+The package name the sub was in
+
+=item * C<$filename>
+
+The filename it was defined in
+
+=item * C<$line>
+
+The line number it was defined on
+
+=item * C<$subroutine>
+
+The subroutine name; C<(eval)> if an C<eval>().
+
+=item * C<$hasargs>
+
+1 if it has arguments, 0 if not
+
+=item * C<$wantarray>
+
+1 if array context, 0 if scalar context
+
+=item * C<$evaltext>
+
+The C<eval>() text, if any (undefined for C<eval BLOCK>)
+
+=item * C<$is_require>
+
+frame was created by a C<use> or C<require> statement
+
+=item * C<$hints>
+
+pragma information; subject to change between versions
+
+=item * C<$bitmask>
+
+pragma information; subject to change between versions
+
+=item * C<@DB::args>
+
+arguments with which the subroutine was invoked
+
+=back
+
+=cut
+
+use vars qw($deep);
+
+# We need to fully qualify the name ("DB::sub") to make "use strict;"
+# happy. -- Shlomi Fish
+
+sub _indent_print_line_info {
+    my ($offset, $str) = @_;
+
+    print_lineinfo( ' ' x ($stack_depth - $offset), $str);
+
+    return;
+}
+
+sub _print_frame_message {
+    my ($al) = @_;
+
+    if ($frame) {
+        if ($frame & 4) {   # Extended frame entry message
+            _indent_print_line_info(-1, "in  ");
+
+            # Why -1? But it works! :-(
+            # Because print_trace will call add 1 to it and then call
+            # dump_trace; this results in our skipping -1+1 = 0 stack frames
+            # in dump_trace.
+            #
+            # Now it's 0 because we extracted a function.
+            print_trace( $LINEINFO, 0, 1, 1, "$sub$al" );
+        }
+        else {
+            _indent_print_line_info(-1, "entering $sub$al\n" );
+        }
+    }
+
+    return;
+}
+
+sub DB::sub {
+    # lock ourselves under threads
+    lock($DBGR);
+
+    # Whether or not the autoloader was running, a scalar to put the
+    # sub's return value in (if needed), and an array to put the sub's
+    # return value in (if needed).
+    my ( $al, $ret, @ret ) = "";
+    if ($sub eq 'threads::new' && $ENV{PERL5DB_THREADED}) {
+        print "creating new thread\n";
+    }
+
+    # If the last ten characters are '::AUTOLOAD', note we've traced
+    # into AUTOLOAD for $sub.
+    if ( length($sub) > 10 && substr( $sub, -10, 10 ) eq '::AUTOLOAD' ) {
+        no strict 'refs';
+        $al = " for $$sub" if defined $$sub;
+    }
+
+    # We stack the stack pointer and then increment it to protect us
+    # from a situation that might unwind a whole bunch of call frames
+    # at once. Localizing the stack pointer means that it will automatically
+    # unwind the same amount when multiple stack frames are unwound.
+    local $stack_depth = $stack_depth + 1;    # Protect from non-local exits
+
+    # Expand @stack.
+    $#stack = $stack_depth;
+
+    # Save current single-step setting.
+    $stack[-1] = $single;
+
+    # Turn off all flags except single-stepping.
+    $single &= 1;
+
+    # If we've gotten really deeply recursed, turn on the flag that will
+    # make us stop with the 'deep recursion' message.
+    $single |= 4 if $stack_depth == $deep;
+
+    # If frame messages are on ...
+
+    _print_frame_message($al);
+    # standard frame entry message
+
+    my $print_exit_msg = sub {
+        # Check for exit trace messages...
+        if ($frame & 2)
+        {
+            if ($frame & 4)    # Extended exit message
+            {
+                _indent_print_line_info(0, "out ");
+                print_trace( $LINEINFO, 0, 1, 1, "$sub$al" );
+            }
+            else
+            {
+                _indent_print_line_info(0, "exited $sub$al\n" );
+            }
+        }
+        return;
+    };
+
+    # Determine the sub's return type, and capture appropriately.
+    if (wantarray) {
+
+        # Called in array context. call sub and capture output.
+        # DB::DB will recursively get control again if appropriate; we'll come
+        # back here when the sub is finished.
+        {
+            no strict 'refs';
+            @ret = &$sub;
+        }
+
+        # Pop the single-step value back off the stack.
+        $single |= $stack[ $stack_depth-- ];
+
+        $print_exit_msg->();
+
+        # Print the return info if we need to.
+        if ( $doret eq $stack_depth or $frame & 16 ) {
+
+            # Turn off output record separator.
+            local $\ = '';
+            my $fh = ( $doret eq $stack_depth ? $OUT : $LINEINFO );
+
+            # Indent if we're printing because of $frame tracing.
+            if ($frame & 16)
+            {
+                print {$fh} ' ' x $stack_depth;
+            }
+
+            # Print the return value.
+            print {$fh} "list context return from $sub:\n";
+            dumpit( $fh, \@ret );
+
+            # And don't print it again.
+            $doret = -2;
+        } ## end if ($doret eq $stack_depth...
+            # And we have to return the return value now.
+        @ret;
+    } ## end if (wantarray)
+
+    # Scalar context.
+    else {
+        if ( defined wantarray ) {
+            no strict 'refs';
+            # Save the value if it's wanted at all.
+            $ret = &$sub;
+        }
+        else {
+            no strict 'refs';
+            # Void return, explicitly.
+            &$sub;
+            undef $ret;
+        }
+
+        # Pop the single-step value off the stack.
+        $single |= $stack[ $stack_depth-- ];
+
+        # If we're doing exit messages...
+        $print_exit_msg->();
+
+        # If we are supposed to show the return value... same as before.
+        if ( $doret eq $stack_depth or $frame & 16 and defined wantarray ) {
+            local $\ = '';
+            my $fh = ( $doret eq $stack_depth ? $OUT : $LINEINFO );
+            print $fh ( ' ' x $stack_depth ) if $frame & 16;
+            print $fh (
+                defined wantarray
+                ? "scalar context return from $sub: "
+                : "void context return from $sub\n"
+            );
+            dumpit( $fh, $ret ) if defined wantarray;
+            $doret = -2;
+        } ## end if ($doret eq $stack_depth...
+
+        # Return the appropriate scalar value.
+        $ret;
+    } ## end else [ if (wantarray)
+} ## end sub _sub
+
+sub lsub : lvalue {
+
+    no strict 'refs';
+
+    # lock ourselves under threads
+    lock($DBGR);
+
+    # Whether or not the autoloader was running, a scalar to put the
+    # sub's return value in (if needed), and an array to put the sub's
+    # return value in (if needed).
+    my ( $al, $ret, @ret ) = "";
+    if ($sub =~ /^threads::new$/ && $ENV{PERL5DB_THREADED}) {
+        print "creating new thread\n";
+    }
+
+    # If the last ten characters are C'::AUTOLOAD', note we've traced
+    # into AUTOLOAD for $sub.
+    if ( length($sub) > 10 && substr( $sub, -10, 10 ) eq '::AUTOLOAD' ) {
+        $al = " for $$sub";
+    }
+
+    # We stack the stack pointer and then increment it to protect us
+    # from a situation that might unwind a whole bunch of call frames
+    # at once. Localizing the stack pointer means that it will automatically
+    # unwind the same amount when multiple stack frames are unwound.
+    local $stack_depth = $stack_depth + 1;    # Protect from non-local exits
+
+    # Expand @stack.
+    $#stack = $stack_depth;
+
+    # Save current single-step setting.
+    $stack[-1] = $single;
+
+    # Turn off all flags except single-stepping.
+    # Use local so the single-step value is popped back off the
+    # stack for us.
+    local $single = $single & 1;
+
+    # If we've gotten really deeply recursed, turn on the flag that will
+    # make us stop with the 'deep recursion' message.
+    $single |= 4 if $stack_depth == $deep;
+
+    # If frame messages are on ...
+    _print_frame_message($al);
+
+    # call the original lvalue sub.
+    &$sub;
+}
+
+# Abstracting common code from multiple places elsewhere:
+sub depth_print_lineinfo {
+    my $always_print = shift;
+
+    print_lineinfo( @_ ) if ($always_print or $stack_depth < $trace_to_depth);
+}
+
+=head1 EXTENDED COMMAND HANDLING AND THE COMMAND API
+
+In Perl 5.8.0, there was a major realignment of the commands and what they did,
+Most of the changes were to systematize the command structure and to eliminate
+commands that threw away user input without checking.
+
+The following sections describe the code added to make it easy to support
+multiple command sets with conflicting command names. This section is a start
+at unifying all command processing to make it simpler to develop commands.
+
+Note that all the cmd_[a-zA-Z] subroutines require the command name, a line
+number, and C<$dbline> (the current line) as arguments.
+
+Support functions in this section which have multiple modes of failure C<die>
+on error; the rest simply return a false value.
+
+The user-interface functions (all of the C<cmd_*> functions) just output
+error messages.
+
+=head2 C<%set>
+
+The C<%set> hash defines the mapping from command letter to subroutine
+name suffix.
+
+C<%set> is a two-level hash, indexed by set name and then by command name.
+Note that trying to set the CommandSet to C<foobar> simply results in the
+5.8.0 command set being used, since there's no top-level entry for C<foobar>.
+
+=cut
+
+### The API section
+
+my %set = (    #
+    'pre580' => {
+        'a' => 'pre580_a',
+        'A' => 'pre580_null',
+        'b' => 'pre580_b',
+        'B' => 'pre580_null',
+        'd' => 'pre580_null',
+        'D' => 'pre580_D',
+        'h' => 'pre580_h',
+        'M' => 'pre580_null',
+        'O' => 'o',
+        'o' => 'pre580_null',
+        'v' => 'M',
+        'w' => 'v',
+        'W' => 'pre580_W',
+    },
+    'pre590' => {
+        '<'  => 'pre590_prepost',
+        '<<' => 'pre590_prepost',
+        '>'  => 'pre590_prepost',
+        '>>' => 'pre590_prepost',
+        '{'  => 'pre590_prepost',
+        '{{' => 'pre590_prepost',
+    },
+);
+
+my %breakpoints_data;
+
+sub _has_breakpoint_data_ref {
+    my ($filename, $line) = @_;
+
+    return (
+        exists( $breakpoints_data{$filename} )
+            and
+        exists( $breakpoints_data{$filename}{$line} )
+    );
+}
+
+sub _get_breakpoint_data_ref {
+    my ($filename, $line) = @_;
+
+    return ($breakpoints_data{$filename}{$line} ||= +{});
+}
+
+sub _delete_breakpoint_data_ref {
+    my ($filename, $line) = @_;
+
+    delete($breakpoints_data{$filename}{$line});
+    if (! scalar(keys( %{$breakpoints_data{$filename}} )) ) {
+        delete($breakpoints_data{$filename});
+    }
+
+    return;
+}
+
+sub _set_breakpoint_enabled_status {
+    my ($filename, $line, $status) = @_;
+
+    _get_breakpoint_data_ref($filename, $line)->{'enabled'} =
+        ($status ? 1 : '')
+        ;
+
+    return;
+}
+
+sub _enable_breakpoint_temp_enabled_status {
+    my ($filename, $line) = @_;
+
+    _get_breakpoint_data_ref($filename, $line)->{'temp_enabled'} = 1;
+
+    return;
+}
+
+sub _cancel_breakpoint_temp_enabled_status {
+    my ($filename, $line) = @_;
+
+    my $ref = _get_breakpoint_data_ref($filename, $line);
+
+    delete ($ref->{'temp_enabled'});
+
+    if (! %$ref) {
+        _delete_breakpoint_data_ref($filename, $line);
+    }
+
+    return;
+}
+
+sub _is_breakpoint_enabled {
+    my ($filename, $line) = @_;
+
+    my $data_ref = _get_breakpoint_data_ref($filename, $line);
+    return ($data_ref->{'enabled'} || $data_ref->{'temp_enabled'});
+}
+
+=head2 C<cmd_wrapper()> (API)
+
+C<cmd_wrapper()> allows the debugger to switch command sets
+depending on the value of the C<CommandSet> option.
+
+It tries to look up the command in the C<%set> package-level I<lexical>
+(which means external entities can't fiddle with it) and create the name of
+the sub to call based on the value found in the hash (if it's there). I<All>
+of the commands to be handled in a set have to be added to C<%set>; if they
+aren't found, the 5.8.0 equivalent is called (if there is one).
+
+This code uses symbolic references.
+
+=cut
+
+sub cmd_wrapper {
+    my $cmd      = shift;
+    my $line     = shift;
+    my $dblineno = shift;
+
+    # Assemble the command subroutine's name by looking up the
+    # command set and command name in %set. If we can't find it,
+    # default to the older version of the command.
+    my $call = 'cmd_'
+      . ( $set{$CommandSet}{$cmd}
+          || ( $cmd =~ /\A[<>{]+/o ? 'prepost' : $cmd ) );
+
+    # Call the command subroutine, call it by name.
+    return __PACKAGE__->can($call)->( $cmd, $line, $dblineno );
+} ## end sub cmd_wrapper
+
+=head3 C<cmd_a> (command)
+
+The C<a> command handles pre-execution actions. These are associated with a
+particular line, so they're stored in C<%dbline>. We default to the current
+line if none is specified.
+
+=cut
+
+sub cmd_a {
+    my $cmd    = shift;
+    my $line   = shift || '';    # [.|line] expr
+    my $dbline = shift;
+
+    # If it's dot (here), or not all digits,  use the current line.
+    $line =~ s/\A\./$dbline/;
+
+    # Should be a line number followed by an expression.
+    if ( my ($lineno, $expr) = $line =~ /^\s*(\d*)\s*(\S.+)/ ) {
+
+        if (! length($lineno)) {
+            $lineno = $dbline;
+        }
+
+        # If we have an expression ...
+        if ( length $expr ) {
+
+            # ... but the line isn't breakable, complain.
+            if ( $dbline[$lineno] == 0 ) {
+                print $OUT
+                  "Line $lineno($dbline[$lineno]) does not have an action?\n";
+            }
+            else {
+
+                # It's executable. Record that the line has an action.
+                $had_breakpoints{$filename} |= 2;
+
+                # Remove any action, temp breakpoint, etc.
+                $dbline{$lineno} =~ s/\0[^\0]*//;
+
+                # Add the action to the line.
+                $dbline{$lineno} .= "\0" . action($expr);
+
+                _set_breakpoint_enabled_status($filename, $lineno, 1);
+            }
+        } ## end if (length $expr)
+    } ## end if ($line =~ /^\s*(\d*)\s*(\S.+)/)
+    else {
+
+        # Syntax wrong.
+        print $OUT
+          "Adding an action requires an optional lineno and an expression\n"
+          ;    # hint
+    }
+} ## end sub cmd_a
+
+=head3 C<cmd_A> (command)
+
+Delete actions. Similar to above, except the delete code is in a separate
+subroutine, C<delete_action>.
+
+=cut
+
+sub cmd_A {
+    my $cmd    = shift;
+    my $line   = shift || '';
+    my $dbline = shift;
+
+    # Dot is this line.
+    $line =~ s/^\./$dbline/;
+
+    # Call delete_action with a null param to delete them all.
+    # The '1' forces the eval to be true. It'll be false only
+    # if delete_action blows up for some reason, in which case
+    # we print $@ and get out.
+    if ( $line eq '*' ) {
+        if (! eval { _delete_all_actions(); 1 }) {
+            print {$OUT} $@;
+            return;
+        }
+    }
+
+    # There's a real line  number. Pass it to delete_action.
+    # Error trapping is as above.
+    elsif ( $line =~ /^(\S.*)/ ) {
+        if (! eval { delete_action($1); 1 }) {
+            print {$OUT} $@;
+            return;
+        }
+    }
+
+    # Swing and a miss. Bad syntax.
+    else {
+        print $OUT
+          "Deleting an action requires a line number, or '*' for all\n" ; # hint
+    }
+} ## end sub cmd_A
+
+=head3 C<delete_action> (API)
+
+C<delete_action> accepts either a line number or C<undef>. If a line number
+is specified, we check for the line being executable (if it's not, it
+couldn't have had an  action). If it is, we just take the action off (this
+will get any kind of an action, including breakpoints).
+
+=cut
+
+sub _remove_action_from_dbline {
+    my $i = shift;
+
+    $dbline{$i} =~ s/\0[^\0]*//;    # \^a
+    delete $dbline{$i} if $dbline{$i} eq '';
+
+    return;
+}
+
+sub _delete_all_actions {
+    print {$OUT} "Deleting all actions...\n";
+
+    for my $file ( keys %had_breakpoints ) {
+        local *dbline = $main::{ '_<' . $file };
+        $max = $#dbline;
+        my $was;
+        for my $i (1 .. $max) {
+            if ( defined $dbline{$i} ) {
+                _remove_action_from_dbline($i);
+            }
+        }
+
+        unless ( $had_breakpoints{$file} &= ~2 ) {
+            delete $had_breakpoints{$file};
+        }
+    }
+
+    return;
+}
+
+sub delete_action {
+    my $i = shift;
+
+    if ( defined($i) ) {
+        # Can there be one?
+        die "Line $i has no action .\n" if $dbline[$i] == 0;
+
+        # Nuke whatever's there.
+        _remove_action_from_dbline($i);
+    }
+    else {
+        _delete_all_actions();
+    }
+}
+
+=head3 C<cmd_b> (command)
+
+Set breakpoints. Since breakpoints can be set in so many places, in so many
+ways, conditionally or not, the breakpoint code is kind of complex. Mostly,
+we try to parse the command type, and then shuttle it off to an appropriate
+subroutine to actually do the work of setting the breakpoint in the right
+place.
+
+=cut
+
+sub cmd_b {
+    my $cmd    = shift;
+    my $line   = shift;    # [.|line] [cond]
+    my $dbline = shift;
+
+    my $default_cond = sub {
+        my $cond = shift;
+        return length($cond) ? $cond : '1';
+    };
+
+    # Make . the current line number if it's there..
+    $line =~ s/^\.(\s|\z)/$dbline$1/;
+
+    # No line number, no condition. Simple break on current line.
+    if ( $line =~ /^\s*$/ ) {
+        cmd_b_line( $dbline, 1 );
+    }
+
+    # Break on load for a file.
+    elsif ( my ($file) = $line =~ /^load\b\s*(.*)/ ) {
+        $file =~ s/\s+\z//;
+        cmd_b_load($file);
+    }
+
+    # b compile|postpone <some sub> [<condition>]
+    # The interpreter actually traps this one for us; we just put the
+    # necessary condition in the %postponed hash.
+    elsif ( my ($action, $subname, $cond)
+        = $line =~ /^(postpone|compile)\b\s*([':A-Za-z_][':\w]*)\s*(.*)/ ) {
+
+        # De-Perl4-ify the name - ' separators to ::.
+        $subname =~ s/'/::/g;
+
+        # Qualify it into the current package unless it's already qualified.
+        $subname = "${package}::" . $subname unless $subname =~ /::/;
+
+        # Add main if it starts with ::.
+        $subname = "main" . $subname if substr( $subname, 0, 2 ) eq "::";
+
+        # Save the break type for this sub.
+        $postponed{$subname} = (($action eq 'postpone')
+            ? ( "break +0 if " . $default_cond->($cond) )
+            : "compile");
+    } ## end elsif ($line =~ ...
+    # b <filename>:<line> [<condition>]
+    elsif (my ($filename, $line_num, $cond)
+        = $line =~ /\A(\S+[^:]):(\d+)\s*(.*)/ms) {
+        cmd_b_filename_line(
+            $filename,
+            $line_num,
+            (length($cond) ? $cond : '1'),
+        );
+    }
+    # b <sub name> [<condition>]
+    elsif ( my ($new_subname, $new_cond) =
+        $line =~ /^([':A-Za-z_][':\w]*(?:\[.*\])?)\s*(.*)/ ) {
+
+        #
+        $subname = $new_subname;
+        cmd_b_sub( $subname, $default_cond->($new_cond) );
+    }
+
+    # b <line> [<condition>].
+    elsif ( my ($line_n, $cond) = $line =~ /^(\d*)\s*(.*)/ ) {
+
+        # Capture the line. If none, it's the current line.
+        $line = $line_n || $dbline;
+
+        # Break on line.
+        cmd_b_line( $line, $default_cond->($cond) );
+    }
+
+    # Line didn't make sense.
+    else {
+        print "confused by line($line)?\n";
+    }
+
+    return;
+} ## end sub cmd_b
+
+=head3 C<break_on_load> (API)
+
+We want to break when this file is loaded. Mark this file in the
+C<%break_on_load> hash, and note that it has a breakpoint in
+C<%had_breakpoints>.
+
+=cut
+
+sub break_on_load {
+    my $file = shift;
+    $break_on_load{$file} = 1;
+    $had_breakpoints{$file} |= 1;
+}
+
+=head3 C<report_break_on_load> (API)
+
+Gives us an array of filenames that are set to break on load. Note that
+only files with break-on-load are in here, so simply showing the keys
+suffices.
+
+=cut
+
+sub report_break_on_load {
+    sort keys %break_on_load;
+}
+
+=head3 C<cmd_b_load> (command)
+
+We take the file passed in and try to find it in C<%INC> (which maps modules
+to files they came from). We mark those files for break-on-load via
+C<break_on_load> and then report that it was done.
+
+=cut
+
+sub cmd_b_load {
+    my $file = shift;
+    my @files;
+
+    # This is a block because that way we can use a redo inside it
+    # even without there being any looping structure at all outside it.
+    {
+
+        # Save short name and full path if found.
+        push @files, $file;
+        push @files, $::INC{$file} if $::INC{$file};
+
+        # Tack on .pm and do it again unless there was a '.' in the name
+        # already.
+        $file .= '.pm', redo unless $file =~ /\./;
+    }
+
+    # Do the real work here.
+    break_on_load($_) for @files;
+
+    # All the files that have break-on-load breakpoints.
+    @files = report_break_on_load;
+
+    # Normalize for the purposes of our printing this.
+    local $\ = '';
+    local $" = ' ';
+    print $OUT "Will stop on load of '@files'.\n";
+} ## end sub cmd_b_load
+
+=head3 C<$filename_error> (API package global)
+
+Several of the functions we need to implement in the API need to work both
+on the current file and on other files. We don't want to duplicate code, so
+C<$filename_error> is used to contain the name of the file that's being
+worked on (if it's not the current one).
+
+We can now build functions in pairs: the basic function works on the current
+file, and uses C<$filename_error> as part of its error message. Since this is
+initialized to C<"">, no filename will appear when we are working on the
+current file.
+
+The second function is a wrapper which does the following:
+
+=over 4
+
+=item *
+
+Localizes C<$filename_error> and sets it to the name of the file to be processed.
+
+=item *
+
+Localizes the C<*dbline> glob and reassigns it to point to the file we want to process.
+
+=item *
+
+Calls the first function.
+
+The first function works on the I<current> file (i.e., the one we changed to),
+and prints C<$filename_error> in the error message (the name of the other file)
+if it needs to. When the functions return, C<*dbline> is restored to point
+to the actual current file (the one we're executing in) and
+C<$filename_error> is restored to C<"">. This restores everything to
+the way it was before the second function was called at all.
+
+See the comments in C<breakable_line> and C<breakable_line_in_file> for more
+details.
+
+=back
+
+=cut
+
+use vars qw($filename_error);
+$filename_error = '';
+
+=head3 breakable_line(from, to) (API)
+
+The subroutine decides whether or not a line in the current file is breakable.
+It walks through C<@dbline> within the range of lines specified, looking for
+the first line that is breakable.
+
+If C<$to> is greater than C<$from>, the search moves forwards, finding the
+first line I<after> C<$to> that's breakable, if there is one.
+
+If C<$from> is greater than C<$to>, the search goes I<backwards>, finding the
+first line I<before> C<$to> that's breakable, if there is one.
+
+=cut
+
+sub breakable_line {
+
+    my ( $from, $to ) = @_;
+
+    # $i is the start point. (Where are the FORTRAN programs of yesteryear?)
+    my $i = $from;
+
+    # If there are at least 2 arguments, we're trying to search a range.
+    if ( @_ >= 2 ) {
+
+        # $delta is positive for a forward search, negative for a backward one.
+        my $delta = $from < $to ? +1 : -1;
+
+        # Keep us from running off the ends of the file.
+        my $limit = $delta > 0 ? $#dbline : 1;
+
+        # Clever test. If you're a mathematician, it's obvious why this
+        # test works. If not:
+        # If $delta is positive (going forward), $limit will be $#dbline.
+        #    If $to is less than $limit, ($limit - $to) will be positive, times
+        #    $delta of 1 (positive), so the result is > 0 and we should use $to
+        #    as the stopping point.
+        #
+        #    If $to is greater than $limit, ($limit - $to) is negative,
+        #    times $delta of 1 (positive), so the result is < 0 and we should
+        #    use $limit ($#dbline) as the stopping point.
+        #
+        # If $delta is negative (going backward), $limit will be 1.
+        #    If $to is zero, ($limit - $to) will be 1, times $delta of -1
+        #    (negative) so the result is > 0, and we use $to as the stopping
+        #    point.
+        #
+        #    If $to is less than zero, ($limit - $to) will be positive,
+        #    times $delta of -1 (negative), so the result is not > 0, and
+        #    we use $limit (1) as the stopping point.
+        #
+        #    If $to is 1, ($limit - $to) will zero, times $delta of -1
+        #    (negative), still giving zero; the result is not > 0, and
+        #    we use $limit (1) as the stopping point.
+        #
+        #    if $to is >1, ($limit - $to) will be negative, times $delta of -1
+        #    (negative), giving a positive (>0) value, so we'll set $limit to
+        #    $to.
+
+        $limit = $to if ( $limit - $to ) * $delta > 0;
+
+        # The real search loop.
+        # $i starts at $from (the point we want to start searching from).
+        # We move through @dbline in the appropriate direction (determined
+        # by $delta: either -1 (back) or +1 (ahead).
+        # We stay in as long as we haven't hit an executable line
+        # ($dbline[$i] == 0 means not executable) and we haven't reached
+        # the limit yet (test similar to the above).
+        $i += $delta while $dbline[$i] == 0 and ( $limit - $i ) * $delta > 0;
+
+    } ## end if (@_ >= 2)
+
+    # If $i points to a line that is executable, return that.
+    return $i unless $dbline[$i] == 0;
+
+    # Format the message and print it: no breakable lines in range.
+    my ( $pl, $upto ) = ( '', '' );
+    ( $pl, $upto ) = ( 's', "..$to" ) if @_ >= 2 and $from != $to;
+
+    # If there's a filename in filename_error, we'll see it.
+    # If not, not.
+    die "Line$pl $from$upto$filename_error not breakable\n";
+} ## end sub breakable_line
+
+=head3 breakable_line_in_filename(file, from, to) (API)
+
+Like C<breakable_line>, but look in another file.
+
+=cut
+
+sub breakable_line_in_filename {
+
+    # Capture the file name.
+    my ($f) = shift;
+
+    # Swap the magic line array over there temporarily.
+    local *dbline = $main::{ '_<' . $f };
+
+    # If there's an error, it's in this other file.
+    local $filename_error = " of '$f'";
+
+    # Find the breakable line.
+    breakable_line(@_);
+
+    # *dbline and $filename_error get restored when this block ends.
+
+} ## end sub breakable_line_in_filename
+
+=head3 break_on_line(lineno, [condition]) (API)
+
+Adds a breakpoint with the specified condition (or 1 if no condition was
+specified) to the specified line. Dies if it can't.
+
+=cut
+
+sub break_on_line {
+    my $i = shift;
+    my $cond = @_ ? shift(@_) : 1;
+
+    my $inii  = $i;
+    my $after = '';
+    my $pl    = '';
+
+    # Woops, not a breakable line. $filename_error allows us to say
+    # if it was in a different file.
+    die "Line $i$filename_error not breakable.\n" if $dbline[$i] == 0;
+
+    # Mark this file as having breakpoints in it.
+    $had_breakpoints{$filename} |= 1;
+
+    # If there is an action or condition here already ...
+    if ( $dbline{$i} ) {
+
+        # ... swap this condition for the existing one.
+        $dbline{$i} =~ s/^[^\0]*/$cond/;
+    }
+    else {
+
+        # Nothing here - just add the condition.
+        $dbline{$i} = $cond;
+
+        _set_breakpoint_enabled_status($filename, $i, 1);
+    }
+
+    return;
+} ## end sub break_on_line
+
+=head3 cmd_b_line(line, [condition]) (command)
+
+Wrapper for C<break_on_line>. Prints the failure message if it
+doesn't work.
+
+=cut
+
+sub cmd_b_line {
+    if (not eval { break_on_line(@_); 1 }) {
+        local $\ = '';
+        print $OUT $@ and return;
+    }
+
+    return;
+} ## end sub cmd_b_line
+
+=head3 cmd_b_filename_line(line, [condition]) (command)
+
+Wrapper for C<break_on_filename_line>. Prints the failure message if it
+doesn't work.
+
+=cut
+
+sub cmd_b_filename_line {
+    if (not eval { break_on_filename_line(@_); 1 }) {
+        local $\ = '';
+        print $OUT $@ and return;
+    }
+
+    return;
+}
+
+=head3 break_on_filename_line(file, line, [condition]) (API)
+
+Switches to the file specified and then calls C<break_on_line> to set
+the breakpoint.
+
+=cut
+
+sub break_on_filename_line {
+    my $f = shift;
+    my $i = shift;
+    my $cond = @_ ? shift(@_) : 1;
+
+    # Switch the magical hash temporarily.
+    local *dbline = $main::{ '_<' . $f };
+
+    # Localize the variables that break_on_line uses to make its message.
+    local $filename_error = " of '$f'";
+    local $filename       = $f;
+
+    # Add the breakpoint.
+    break_on_line( $i, $cond );
+
+    return;
+} ## end sub break_on_filename_line
+
+=head3 break_on_filename_line_range(file, from, to, [condition]) (API)
+
+Switch to another file, search the range of lines specified for an
+executable one, and put a breakpoint on the first one you find.
+
+=cut
+
+sub break_on_filename_line_range {
+    my $f = shift;
+    my $from = shift;
+    my $to = shift;
+    my $cond = @_ ? shift(@_) : 1;
+
+    # Find a breakable line if there is one.
+    my $i = breakable_line_in_filename( $f, $from, $to );
+
+    # Add the breakpoint.
+    break_on_filename_line( $f, $i, $cond );
+
+    return;
+} ## end sub break_on_filename_line_range
+
+=head3 subroutine_filename_lines(subname, [condition]) (API)
+
+Search for a subroutine within a given file. The condition is ignored.
+Uses C<find_sub> to locate the desired subroutine.
+
+=cut
+
+sub subroutine_filename_lines {
+    my ( $subname ) = @_;
+
+    # Returned value from find_sub() is fullpathname:startline-endline.
+    # The match creates the list (fullpathname, start, end).
+    return (find_sub($subname) =~ /^(.*):(\d+)-(\d+)$/);
+} ## end sub subroutine_filename_lines
+
+=head3 break_subroutine(subname) (API)
+
+Places a break on the first line possible in the specified subroutine. Uses
+C<subroutine_filename_lines> to find the subroutine, and
+C<break_on_filename_line_range> to place the break.
+
+=cut
+
+sub break_subroutine {
+    my $subname = shift;
+
+    # Get filename, start, and end.
+    my ( $file, $s, $e ) = subroutine_filename_lines($subname)
+      or die "Subroutine $subname not found.\n";
+
+
+    # Null condition changes to '1' (always true).
+    my $cond = @_ ? shift(@_) : 1;
+
+    # Put a break the first place possible in the range of lines
+    # that make up this subroutine.
+    break_on_filename_line_range( $file, $s, $e, $cond );
+
+    return;
+} ## end sub break_subroutine
+
+=head3 cmd_b_sub(subname, [condition]) (command)
+
+We take the incoming subroutine name and fully-qualify it as best we can.
+
+=over 4
+
+=item 1. If it's already fully-qualified, leave it alone.
+
+=item 2. Try putting it in the current package.
+
+=item 3. If it's not there, try putting it in CORE::GLOBAL if it exists there.
+
+=item 4. If it starts with '::', put it in 'main::'.
+
+=back
+
+After all this cleanup, we call C<break_subroutine> to try to set the
+breakpoint.
+
+=cut
+
+sub cmd_b_sub {
+    my $subname = shift;
+    my $cond = @_ ? shift : 1;
+
+    # If the subname isn't a code reference, qualify it so that
+    # break_subroutine() will work right.
+    if ( ref($subname) ne 'CODE' ) {
+
+        # Not Perl 4.
+        $subname =~ s/'/::/g;
+        my $s = $subname;
+
+        # Put it in this package unless it's already qualified.
+        if ($subname !~ /::/)
+        {
+            $subname = $package . '::' . $subname;
+        };
+
+        # Requalify it into CORE::GLOBAL if qualifying it into this
+        # package resulted in its not being defined, but only do so
+        # if it really is in CORE::GLOBAL.
+        my $core_name = "CORE::GLOBAL::$s";
+        if ((!defined(&$subname))
+                and ($s !~ /::/)
+                and (defined &{$core_name}))
+        {
+            $subname = $core_name;
+        }
+
+        # Put it in package 'main' if it has a leading ::.
+        if ($subname =~ /\A::/)
+        {
+            $subname = "main" . $subname;
+        }
+    } ## end if ( ref($subname) ne 'CODE' ) {
+
+    # Try to set the breakpoint.
+    if (not eval { break_subroutine( $subname, $cond ); 1 }) {
+        local $\ = '';
+        print {$OUT} $@;
+        return;
+    }
+
+    return;
+} ## end sub cmd_b_sub
+
+=head3 C<cmd_B> - delete breakpoint(s) (command)
+
+The command mostly parses the command line and tries to turn the argument
+into a line spec. If it can't, it uses the current line. It then calls
+C<delete_breakpoint> to actually do the work.
+
+If C<*> is  specified, C<cmd_B> calls C<delete_breakpoint> with no arguments,
+thereby deleting all the breakpoints.
+
+=cut
+
+sub cmd_B {
+    my $cmd = shift;
+
+    # No line spec? Use dbline.
+    # If there is one, use it if it's non-zero, or wipe it out if it is.
+    my $line   = ( $_[0] =~ /\A\./ ) ? $dbline : (shift || '');
+    my $dbline = shift;
+
+    # If the line was dot, make the line the current one.
+    $line =~ s/^\./$dbline/;
+
+    # If it's * we're deleting all the breakpoints.
+    if ( $line eq '*' ) {
+        if (not eval { delete_breakpoint(); 1 }) {
+            print {$OUT} $@;
+        }
+    }
+
+    # If there is a line spec, delete the breakpoint on that line.
+    elsif ( $line =~ /\A(\S.*)/ ) {
+        if (not eval { delete_breakpoint( $line || $dbline ); 1 }) {
+            local $\ = '';
+            print {$OUT} $@;
+        }
+    } ## end elsif ($line =~ /^(\S.*)/)
+
+    # No line spec.
+    else {
+        print {$OUT}
+          "Deleting a breakpoint requires a line number, or '*' for all\n"
+          ;    # hint
+    }
+
+    return;
+} ## end sub cmd_B
+
+=head3 delete_breakpoint([line]) (API)
+
+This actually does the work of deleting either a single breakpoint, or all
+of them.
+
+For a single line, we look for it in C<@dbline>. If it's nonbreakable, we
+just drop out with a message saying so. If it is, we remove the condition
+part of the 'condition\0action' that says there's a breakpoint here. If,
+after we've done that, there's nothing left, we delete the corresponding
+line in C<%dbline> to signal that no action needs to be taken for this line.
+
+For all breakpoints, we iterate through the keys of C<%had_breakpoints>,
+which lists all currently-loaded files which have breakpoints. We then look
+at each line in each of these files, temporarily switching the C<%dbline>
+and C<@dbline> structures to point to the files in question, and do what
+we did in the single line case: delete the condition in C<@dbline>, and
+delete the key in C<%dbline> if nothing's left.
+
+We then wholesale delete C<%postponed>, C<%postponed_file>, and
+C<%break_on_load>, because these structures contain breakpoints for files
+and code that haven't been loaded yet. We can just kill these off because there
+are no magical debugger structures associated with them.
+
+=cut
+
+sub _remove_breakpoint_entry {
+    my ($fn, $i) = @_;
+
+    delete $dbline{$i};
+    _delete_breakpoint_data_ref($fn, $i);
+
+    return;
+}
+
+sub _delete_all_breakpoints {
+    print {$OUT} "Deleting all breakpoints...\n";
+
+    # %had_breakpoints lists every file that had at least one
+    # breakpoint in it.
+    for my $fn ( keys %had_breakpoints ) {
+
+        # Switch to the desired file temporarily.
+        local *dbline = $main::{ '_<' . $fn };
+
+        $max = $#dbline;
+
+        # For all lines in this file ...
+        for my $i (1 .. $max) {
+
+            # If there's a breakpoint or action on this line ...
+            if ( defined $dbline{$i} ) {
+
+                # ... remove the breakpoint.
+                $dbline{$i} =~ s/\A[^\0]+//;
+                if ( $dbline{$i} =~ s/\A\0?\z// ) {
+                    # Remove the entry altogether if no action is there.
+                    _remove_breakpoint_entry($fn, $i);
+                }
+            } ## end if (defined $dbline{$i...
+        } ## end for $i (1 .. $max)
+
+        # If, after we turn off the "there were breakpoints in this file"
+        # bit, the entry in %had_breakpoints for this file is zero,
+        # we should remove this file from the hash.
+        if ( not $had_breakpoints{$fn} &= (~1) ) {
+            delete $had_breakpoints{$fn};
+        }
+    } ## end for my $fn (keys %had_breakpoints)
+
+    # Kill off all the other breakpoints that are waiting for files that
+    # haven't been loaded yet.
+    undef %postponed;
+    undef %postponed_file;
+    undef %break_on_load;
+
+    return;
+}
+
+sub _delete_breakpoint_from_line {
+    my ($i) = @_;
+
+    # Woops. This line wasn't breakable at all.
+    die "Line $i not breakable.\n" if $dbline[$i] == 0;
+
+    # Kill the condition, but leave any action.
+    $dbline{$i} =~ s/\A[^\0]*//;
+
+    # Remove the entry entirely if there's no action left.
+    if ($dbline{$i} eq '') {
+        _remove_breakpoint_entry($filename, $i);
+    }
+
+    return;
+}
+
+sub delete_breakpoint {
+    my $i = shift;
+
+    # If we got a line, delete just that one.
+    if ( defined($i) ) {
+        _delete_breakpoint_from_line($i);
+    }
+    # No line; delete them all.
+    else {
+        _delete_all_breakpoints();
+    }
+
+    return;
+}
+
+=head3 cmd_stop (command)
+
+This is meant to be part of the new command API, but it isn't called or used
+anywhere else in the debugger. XXX It is probably meant for use in development
+of new commands.
+
+=cut
+
+sub cmd_stop {    # As on ^C, but not signal-safy.
+    $signal = 1;
+}
+
+=head3 C<cmd_e> - threads
+
+Display the current thread id:
+
+    e
+
+This could be how (when implemented) to send commands to this thread id (e cmd)
+or that thread id (e tid cmd).
+
+=cut
+
+sub cmd_e {
+    my $cmd  = shift;
+    my $line = shift;
+    unless (exists($INC{'threads.pm'})) {
+        print "threads not loaded($ENV{PERL5DB_THREADED})
+        please run the debugger with PERL5DB_THREADED=1 set in the environment\n";
+    } else {
+        my $tid = threads->tid;
+        print "thread id: $tid\n";
+    }
+} ## end sub cmd_e
+
+=head3 C<cmd_E> - list of thread ids
+
+Display the list of available thread ids:
+
+    E
+
+This could be used (when implemented) to send commands to all threads (E cmd).
+
+=cut
+
+sub cmd_E {
+    my $cmd  = shift;
+    my $line = shift;
+    unless (exists($INC{'threads.pm'})) {
+        print "threads not loaded($ENV{PERL5DB_THREADED})
+        please run the debugger with PERL5DB_THREADED=1 set in the environment\n";
+    } else {
+        my $tid = threads->tid;
+        print "thread ids: ".join(', ',
+            map { ($tid == $_->tid ? '<'.$_->tid.'>' : $_->tid) } threads->list
+        )."\n";
+    }
+} ## end sub cmd_E
+
+=head3 C<cmd_h> - help command (command)
+
+Does the work of either
+
+=over 4
+
+=item *
+
+Showing all the debugger help
+
+=item *
+
+Showing help for a specific command
+
+=back
+
+=cut
+
+use vars qw($help);
+use vars qw($summary);
+
+sub cmd_h {
+    my $cmd = shift;
+
+    # If we have no operand, assume null.
+    my $line = shift || '';
+
+    # 'h h'. Print the long-format help.
+    if ( $line =~ /\Ah\s*\z/ ) {
+        print_help($help);
+    }
+
+    # 'h <something>'. Search for the command and print only its help.
+    elsif ( my ($asked) = $line =~ /\A(\S.*)\z/ ) {
+
+        # support long commands; otherwise bogus errors
+        # happen when you ask for h on <CR> for example
+        my $qasked = quotemeta($asked);    # for searching; we don't
+                                           # want to use it as a pattern.
+                                           # XXX: finds CR but not <CR>
+
+        # Search the help string for the command.
+        if (
+            $help =~ /^                    # Start of a line
+                      <?                   # Optional '<'
+                      (?:[IB]<)            # Optional markup
+                      $qasked              # The requested command
+                     /mx
+          )
+        {
+
+            # It's there; pull it out and print it.
+            while (
+                $help =~ /^
+                              (<?            # Optional '<'
+                                 (?:[IB]<)   # Optional markup
+                                 $qasked     # The command
+                                 ([\s\S]*?)  # Description line(s)
+                              \n)            # End of last description line
+                              (?!\s)         # Next line not starting with
+                                             # whitespace
+                             /mgx
+              )
+            {
+                print_help($1);
+            }
+        }
+
+        # Not found; not a debugger command.
+        else {
+            print_help("B<$asked> is not a debugger command.\n");
+        }
+    } ## end elsif ($line =~ /^(\S.*)$/)
+
+    # 'h' - print the summary help.
+    else {
+        print_help($summary);
+    }
+} ## end sub cmd_h
+
+=head3 C<cmd_i> - inheritance display
+
+Display the (nested) parentage of the module or object given.
+
+=cut
+
+sub cmd_i {
+    my $cmd  = shift;
+    my $line = shift;
+    foreach my $isa ( split( /\s+/, $line ) ) {
+        $evalarg = $isa;
+        # The &-call is here to ascertain the mutability of @_.
+        ($isa) = &DB::eval;
+        no strict 'refs';
+        print join(
+            ', ',
+            map {
+                "$_"
+                  . (
+                    defined( ${"$_\::VERSION"} )
+                    ? ' ' . ${"$_\::VERSION"}
+                    : undef )
+              } @{mro::get_linear_isa(ref($isa) || $isa)}
+        );
+        print "\n";
+    }
+} ## end sub cmd_i
+
+=head3 C<cmd_l> - list lines (command)
+
+Most of the command is taken up with transforming all the different line
+specification syntaxes into 'start-stop'. After that is done, the command
+runs a loop over C<@dbline> for the specified range of lines. It handles
+the printing of each line and any markers (C<==E<gt>> for current line,
+C<b> for break on this line, C<a> for action on this line, C<:> for this
+line breakable).
+
+We save the last line listed in the C<$start> global for further listing
+later.
+
+=cut
+
+sub _min {
+    my $min = shift;
+    foreach my $v (@_) {
+        if ($min > $v) {
+            $min = $v;
+        }
+    }
+    return $min;
+}
+
+sub _max {
+    my $max = shift;
+    foreach my $v (@_) {
+        if ($max < $v) {
+            $max = $v;
+        }
+    }
+    return $max;
+}
+
+sub _minify_to_max {
+    my $ref = shift;
+
+    $$ref = _min($$ref, $max);
+
+    return;
+}
+
+sub _cmd_l_handle_var_name {
+    my $var_name = shift;
+
+    $evalarg = $var_name;
+
+    my ($s) = DB::eval();
+
+    # Ooops. Bad scalar.
+    if ($@) {
+        print {$OUT} "Error: $@\n";
+        next CMD;
+    }
+
+    # Good scalar. If it's a reference, find what it points to.
+    $s = CvGV_name($s);
+    print {$OUT} "Interpreted as: $1 $s\n";
+    $line = "$1 $s";
+
+    # Call self recursively to really do the command.
+    return _cmd_l_main( $s );
+}
+
+sub _cmd_l_handle_subname {
+
+    my $s = $subname;
+
+    # De-Perl4.
+    $subname =~ s/\'/::/;
+
+    # Put it in this package unless it starts with ::.
+    $subname = $package . "::" . $subname unless $subname =~ /::/;
+
+    # Put it in CORE::GLOBAL if t doesn't start with :: and
+    # it doesn't live in this package and it lives in CORE::GLOBAL.
+    $subname = "CORE::GLOBAL::$s"
+    if not defined &$subname
+        and $s !~ /::/
+        and defined &{"CORE::GLOBAL::$s"};
+
+    # Put leading '::' names into 'main::'.
+    $subname = "main" . $subname if substr( $subname, 0, 2 ) eq "::";
+
+    # Get name:start-stop from find_sub, and break this up at
+    # colons.
+    my @pieces = split( /:/, find_sub($subname) || $sub{$subname} );
+
+    # Pull off start-stop.
+    my $subrange = pop @pieces;
+
+    # If the name contained colons, the split broke it up.
+    # Put it back together.
+    $file = join( ':', @pieces );
+
+    # If we're not in that file, switch over to it.
+    if ( $file ne $filename ) {
+        if (! $slave_editor) {
+            print {$OUT} "Switching to file '$file'.\n";
+        }
+
+        # Switch debugger's magic structures.
+        *dbline   = $main::{ '_<' . $file };
+        $max      = $#dbline;
+        $filename = $file;
+    } ## end if ($file ne $filename)
+
+    # Subrange is 'start-stop'. If this is less than a window full,
+    # swap it to 'start+', which will list a window from the start point.
+    if ($subrange) {
+        if ( eval($subrange) < -$window ) {
+            $subrange =~ s/-.*/+/;
+        }
+
+        # Call self recursively to list the range.
+        return _cmd_l_main( $subrange );
+    } ## end if ($subrange)
+
+    # Couldn't find it.
+    else {
+        print {$OUT} "Subroutine $subname not found.\n";
+        return;
+    }
+}
+
+sub _cmd_l_empty {
+    # Compute new range to list.
+    $incr = $window - 1;
+
+    # Recurse to do it.
+    return _cmd_l_main( $start . '-' . ( $start + $incr ) );
+}
+
+sub _cmd_l_plus {
+    my ($new_start, $new_incr) = @_;
+
+    # Don't reset start for 'l +nnn'.
+    $start = $new_start if $new_start;
+
+    # Increment for list. Use window size if not specified.
+    # (Allows 'l +' to work.)
+    $incr = $new_incr || ($window - 1);
+
+    # Create a line range we'll understand, and recurse to do it.
+    return _cmd_l_main( $start . '-' . ( $start + $incr ) );
+}
+
+sub _cmd_l_calc_initial_end_and_i {
+    my ($spec, $start_match, $end_match) = @_;
+
+    # Determine end point; use end of file if not specified.
+    my $end = ( !defined $start_match ) ? $max :
+    ( $end_match ? $end_match : $start_match );
+
+    # Go on to the end, and then stop.
+    _minify_to_max(\$end);
+
+    # Determine start line.
+    my $i = $start_match;
+
+    if ($i eq '.') {
+        $i = $spec;
+    }
+
+    $i = _max($i, 1);
+
+    $incr = $end - $i;
+
+    return ($end, $i);
+}
+
+sub _cmd_l_range {
+    my ($spec, $current_line, $start_match, $end_match) = @_;
+
+    my ($end, $i) =
+        _cmd_l_calc_initial_end_and_i($spec, $start_match, $end_match);
+
+    # If we're running under a slave editor, force it to show the lines.
+    if ($slave_editor) {
+        print {$OUT} "\032\032$filename:$i:0\n";
+        $i = $end;
+    }
+    # We're doing it ourselves. We want to show the line and special
+    # markers for:
+    # - the current line in execution
+    # - whether a line is breakable or not
+    # - whether a line has a break or not
+    # - whether a line has an action or not
+    else {
+        I_TO_END:
+        for ( ; $i <= $end ; $i++ ) {
+
+            # Check for breakpoints and actions.
+            my ( $stop, $action );
+            if ($dbline{$i}) {
+                ( $stop, $action ) = split( /\0/, $dbline{$i} );
+            }
+
+            # ==> if this is the current line in execution,
+            # : if it's breakable.
+            my $arrow =
+            ( $i == $current_line and $filename eq $filename_ini )
+            ? '==>'
+            : ( $dbline[$i] + 0 ? ':' : ' ' );
+
+            # Add break and action indicators.
+            $arrow .= 'b' if $stop;
+            $arrow .= 'a' if $action;
+
+            # Print the line.
+            print {$OUT} "$i$arrow\t", $dbline[$i];
+
+            # Move on to the next line. Drop out on an interrupt.
+            if ($signal) {
+                $i++;
+                last I_TO_END;
+            }
+        } ## end for (; $i <= $end ; $i++)
+
+        # Line the prompt up; print a newline if the last line listed
+        # didn't have a newline.
+        if ($dbline[ $i - 1 ] !~ /\n\z/) {
+            print {$OUT} "\n";
+        }
+    } ## end else [ if ($slave_editor)
+
+    # Save the point we last listed to in case another relative 'l'
+    # command is desired. Don't let it run off the end.
+    $start = $i;
+    _minify_to_max(\$start);
+
+    return;
+}
+
+sub _cmd_l_main {
+    my $spec = shift;
+
+    # If this is '-something', delete any spaces after the dash.
+    $spec =~ s/\A-\s*\z/-/;
+
+    # If the line is '$something', assume this is a scalar containing a
+    # line number.
+    # Set up for DB::eval() - evaluate in *user* context.
+    if ( my ($var_name) = $spec =~ /\A(\$.*)/s ) {
+        return _cmd_l_handle_var_name($var_name);
+    }
+    # l name. Try to find a sub by that name.
+    elsif ( ($subname) = $spec =~ /\A([\':A-Za-z_][\':\w]*(?:\[.*\])?)/s ) {
+        return _cmd_l_handle_subname();
+    }
+    # Bare 'l' command.
+    elsif ( $spec !~ /\S/ ) {
+        return _cmd_l_empty();
+    }
+    # l [start]+number_of_lines
+    elsif ( my ($new_start, $new_incr) = $spec =~ /\A(\d*)\+(\d*)\z/ ) {
+        return _cmd_l_plus($new_start, $new_incr);
+    }
+    # l start-stop or l start,stop
+    elsif (my ($s, $e) = $spec =~ /^(?:(-?[\d\$\.]+)(?:[-,]([\d\$\.]+))?)?/ ) {
+        return _cmd_l_range($spec, $line, $s, $e);
+    }
+
+    return;
+} ## end sub cmd_l
+
+sub cmd_l {
+    my (undef, $line) = @_;
+
+    return _cmd_l_main($line);
+}
+
+=head3 C<cmd_L> - list breakpoints, actions, and watch expressions (command)
+
+To list breakpoints, the command has to look determine where all of them are
+first. It starts a C<%had_breakpoints>, which tells us what all files have
+breakpoints and/or actions. For each file, we switch the C<*dbline> glob (the
+magic source and breakpoint data structures) to the file, and then look
+through C<%dbline> for lines with breakpoints and/or actions, listing them
+out. We look through C<%postponed> not-yet-compiled subroutines that have
+breakpoints, and through C<%postponed_file> for not-yet-C<require>'d files
+that have breakpoints.
+
+Watchpoints are simpler: we just list the entries in C<@to_watch>.
+
+=cut
+
+sub _cmd_L_calc_arg {
+    # If no argument, list everything. Pre-5.8.0 version always lists
+    # everything
+    my $arg = shift || 'abw';
+    if ($CommandSet ne '580')
+    {
+        $arg = 'abw';
+    }
+
+    return $arg;
+}
+
+sub _cmd_L_calc_wanted_flags {
+    my $arg = _cmd_L_calc_arg(shift);
+
+    return (map { index($arg, $_) >= 0 ? 1 : 0 } qw(a b w));
+}
+
+
+sub _cmd_L_handle_breakpoints {
+    my ($handle_db_line) = @_;
+
+    BREAKPOINTS_SCAN:
+    # Look in all the files with breakpoints...
+    for my $file ( keys %had_breakpoints ) {
+
+        # Temporary switch to this file.
+        local *dbline = $main::{ '_<' . $file };
+
+        # Set up to look through the whole file.
+        $max = $#dbline;
+        my $was;    # Flag: did we print something
+        # in this file?
+
+        # For each line in the file ...
+        for my $i (1 .. $max) {
+
+            # We've got something on this line.
+            if ( defined $dbline{$i} ) {
+
+                # Print the header if we haven't.
+                if (not $was++) {
+                    print {$OUT} "$file:\n";
+                }
+
+                # Print the line.
+                print {$OUT} " $i:\t", $dbline[$i];
+
+                $handle_db_line->($dbline{$i});
+
+                # Quit if the user hit interrupt.
+                if ($signal) {
+                    last BREAKPOINTS_SCAN;
+                }
+            } ## end if (defined $dbline{$i...
+        } ## end for my $i (1 .. $max)
+    } ## end for my $file (keys %had_breakpoints)
+
+    return;
+}
+
+sub _cmd_L_handle_postponed_breakpoints {
+    my ($handle_db_line) = @_;
+
+    print {$OUT} "Postponed breakpoints in files:\n";
+
+    POSTPONED_SCANS:
+    for my $file ( keys %postponed_file ) {
+        my $db = $postponed_file{$file};
+        print {$OUT} " $file:\n";
+        for my $line ( sort { $a <=> $b } keys %$db ) {
+            print {$OUT} "  $line:\n";
+
+            $handle_db_line->($db->{$line});
+
+            if ($signal) {
+                last POSTPONED_SCANS;
+            }
+        }
+        if ($signal) {
+            last POSTPONED_SCANS;
+        }
+    }
+
+    return;
+}
+
+
+sub cmd_L {
+    my $cmd = shift;
+
+    my ($action_wanted, $break_wanted, $watch_wanted) =
+        _cmd_L_calc_wanted_flags(shift);
+
+    my $handle_db_line = sub {
+        my ($l) = @_;
+
+        my ( $stop, $action ) = split( /\0/, $l );
+
+        if ($stop and $break_wanted) {
+            print {$OUT} "    break if (", $stop, ")\n"
+        }
+
+        if ($action && $action_wanted) {
+            print {$OUT} "    action:  ", $action, "\n"
+        }
+
+        return;
+    };
+
+    # Breaks and actions are found together, so we look in the same place
+    # for both.
+    if ( $break_wanted or $action_wanted ) {
+        _cmd_L_handle_breakpoints($handle_db_line);
+    }
+
+    # Look for breaks in not-yet-compiled subs:
+    if ( %postponed and $break_wanted ) {
+        print {$OUT} "Postponed breakpoints in subroutines:\n";
+        my $subname;
+        SUBS_SCAN:
+        for $subname ( keys %postponed ) {
+            print {$OUT} " $subname\t$postponed{$subname}\n";
+            if ($signal) {
+                last SUBS_SCAN;
+            }
+        }
+    } ## end if (%postponed and $break_wanted)
+
+    # Find files that have not-yet-loaded breaks:
+    my @have = map {    # Combined keys
+        keys %{ $postponed_file{$_} }
+    } keys %postponed_file;
+
+    # If there are any, list them.
+    if ( @have and ( $break_wanted or $action_wanted ) ) {
+        _cmd_L_handle_postponed_breakpoints($handle_db_line);
+    } ## end if (@have and ($break_wanted...
+
+    if ( %break_on_load and $break_wanted ) {
+        print {$OUT} "Breakpoints on load:\n";
+        BREAK_ON_LOAD: for my $filename ( keys %break_on_load ) {
+            print {$OUT} " $filename\n";
+            last BREAK_ON_LOAD if $signal;
+        }
+    } ## end if (%break_on_load and...
+
+    if ($watch_wanted and ( $trace & 2 )) {
+        print {$OUT} "Watch-expressions:\n" if @to_watch;
+        TO_WATCH: for my $expr (@to_watch) {
+            print {$OUT} " $expr\n";
+            last TO_WATCH if $signal;
+        }
+    }
+
+    return;
+} ## end sub cmd_L
+
+=head3 C<cmd_M> - list modules (command)
+
+Just call C<list_modules>.
+
+=cut
+
+sub cmd_M {
+    list_modules();
+
+    return;
+}
+
+=head3 C<cmd_o> - options (command)
+
+If this is just C<o> by itself, we list the current settings via
+C<dump_option>. If there's a nonblank value following it, we pass that on to
+C<parse_options> for processing.
+
+=cut
+
+sub cmd_o {
+    my $cmd = shift;
+    my $opt = shift || '';    # opt[=val]
+
+    # Nonblank. Try to parse and process.
+    if ( $opt =~ /^(\S.*)/ ) {
+        parse_options($1);
+    }
+
+    # Blank. List the current option settings.
+    else {
+        for (@options) {
+            dump_option($_);
+        }
+    }
+} ## end sub cmd_o
+
+=head3 C<cmd_O> - nonexistent in 5.8.x (command)
+
+Advises the user that the O command has been renamed.
+
+=cut
+
+sub cmd_O {
+    print $OUT "The old O command is now the o command.\n";             # hint
+    print $OUT "Use 'h' to get current command help synopsis or\n";     #
+    print $OUT "use 'o CommandSet=pre580' to revert to old usage\n";    #
+}
+
+=head3 C<cmd_v> - view window (command)
+
+Uses the C<$preview> variable set in the second C<BEGIN> block (q.v.) to
+move back a few lines to list the selected line in context. Uses C<cmd_l>
+to do the actual listing after figuring out the range of line to request.
+
+=cut
+
+use vars qw($preview);
+
+sub cmd_v {
+    my $cmd  = shift;
+    my $line = shift;
+
+    # Extract the line to list around. (Astute readers will have noted that
+    # this pattern will match whether or not a numeric line is specified,
+    # which means that we'll always enter this loop (though a non-numeric
+    # argument results in no action at all)).
+    if ( $line =~ /^(\d*)$/ ) {
+
+        # Total number of lines to list (a windowful).
+        $incr = $window - 1;
+
+        # Set the start to the argument given (if there was one).
+        $start = $1 if $1;
+
+        # Back up by the context amount.
+        $start -= $preview;
+
+        # Put together a linespec that cmd_l will like.
+        $line = $start . '-' . ( $start + $incr );
+
+        # List the lines.
+        cmd_l( 'l', $line );
+    } ## end if ($line =~ /^(\d*)$/)
+} ## end sub cmd_v
+
+=head3 C<cmd_w> - add a watch expression (command)
+
+The 5.8 version of this command adds a watch expression if one is specified;
+it does nothing if entered with no operands.
+
+We extract the expression, save it, evaluate it in the user's context, and
+save the value. We'll re-evaluate it each time the debugger passes a line,
+and will stop (see the code at the top of the command loop) if the value
+of any of the expressions changes.
+
+=cut
+
+sub _add_watch_expr {
+    my $expr = shift;
+
+    # ... save it.
+    push @to_watch, $expr;
+
+    # Parameterize DB::eval and call it to get the expression's value
+    # in the user's context. This version can handle expressions which
+    # return a list value.
+    $evalarg = $expr;
+    # The &-call is here to ascertain the mutability of @_.
+    my ($val) = join( ' ', &DB::eval);
+    $val = ( defined $val ) ? "'$val'" : 'undef';
+
+    # Save the current value of the expression.
+    push @old_watch, $val;
+
+    # We are now watching expressions.
+    $trace |= 2;
+
+    return;
+}
+
+sub cmd_w {
+    my $cmd = shift;
+
+    # Null expression if no arguments.
+    my $expr = shift || '';
+
+    # If expression is not null ...
+    if ( $expr =~ /\A\S/ ) {
+        _add_watch_expr($expr);
+    } ## end if ($expr =~ /^(\S.*)/)
+
+    # You have to give one to get one.
+    else {
+        print $OUT "Adding a watch-expression requires an expression\n";  # hint
+    }
+
+    return;
+}
+
+=head3 C<cmd_W> - delete watch expressions (command)
+
+This command accepts either a watch expression to be removed from the list
+of watch expressions, or C<*> to delete them all.
+
+If C<*> is specified, we simply empty the watch expression list and the
+watch expression value list. We also turn off the bit that says we've got
+watch expressions.
+
+If an expression (or partial expression) is specified, we pattern-match
+through the expressions and remove the ones that match. We also discard
+the corresponding values. If no watch expressions are left, we turn off
+the I<watching expressions> bit.
+
+=cut
+
+sub cmd_W {
+    my $cmd  = shift;
+    my $expr = shift || '';
+
+    # Delete them all.
+    if ( $expr eq '*' ) {
+
+        # Not watching now.
+        $trace &= ~2;
+
+        print $OUT "Deleting all watch expressions ...\n";
+
+        # And all gone.
+        @to_watch = @old_watch = ();
+    }
+
+    # Delete one of them.
+    elsif ( $expr =~ /^(\S.*)/ ) {
+
+        # Where we are in the list.
+        my $i_cnt = 0;
+
+        # For each expression ...
+        foreach (@to_watch) {
+            my $val = $to_watch[$i_cnt];
+
+            # Does this one match the command argument?
+            if ( $val eq $expr ) {    # =~ m/^\Q$i$/) {
+                                      # Yes. Turn it off, and its value too.
+                splice( @to_watch,  $i_cnt, 1 );
+                splice( @old_watch, $i_cnt, 1 );
+            }
+            $i_cnt++;
+        } ## end foreach (@to_watch)
+
+        # We don't bother to turn watching off because
+        #  a) we don't want to stop calling watchfunction() if it exists
+        #  b) foreach over a null list doesn't do anything anyway
+
+    } ## end elsif ($expr =~ /^(\S.*)/)
+
+    # No command arguments entered.
+    else {
+        print $OUT
+          "Deleting a watch-expression requires an expression, or '*' for all\n"
+          ;    # hint
+    }
+} ## end sub cmd_W
+
+### END of the API section
+
+=head1 SUPPORT ROUTINES
+
+These are general support routines that are used in a number of places
+throughout the debugger.
+
+=head2 save
+
+save() saves the user's versions of globals that would mess us up in C<@saved>,
+and installs the versions we like better.
+
+=cut
+
+sub save {
+
+    # Save eval failure, command failure, extended OS error, output field
+    # separator, input record separator, output record separator and
+    # the warning setting.
+    @saved = ( $@, $!, $^E, $,, $/, $\, $^W );
+
+    $,  = "";      # output field separator is null string
+    $/  = "\n";    # input record separator is newline
+    $\  = "";      # output record separator is null string
+    $^W = 0;       # warnings are off
+} ## end sub save
+
+=head2 C<print_lineinfo> - show where we are now
+
+print_lineinfo prints whatever it is that it is handed; it prints it to the
+C<$LINEINFO> filehandle instead of just printing it to STDOUT. This allows
+us to feed line information to a slave editor without messing up the
+debugger output.
+
+=cut
+
+sub print_lineinfo {
+
+    # Make the terminal sensible if we're not the primary debugger.
+    resetterm(1) if $LINEINFO eq $OUT and $term_pid != $$;
+    local $\ = '';
+    local $, = '';
+    # $LINEINFO may be undef if $noTTY is set or some other issue.
+    if ($LINEINFO)
+    {
+        print {$LINEINFO} @_;
+    }
+} ## end sub print_lineinfo
+
+=head2 C<postponed_sub>
+
+Handles setting postponed breakpoints in subroutines once they're compiled.
+For breakpoints, we use C<DB::find_sub> to locate the source file and line
+range for the subroutine, then mark the file as having a breakpoint,
+temporarily switch the C<*dbline> glob over to the source file, and then
+search the given range of lines to find a breakable line. If we find one,
+we set the breakpoint on it, deleting the breakpoint from C<%postponed>.
+
+=cut
+
+# The following takes its argument via $evalarg to preserve current @_
+
+sub postponed_sub {
+
+    # Get the subroutine name.
+    my $subname = shift;
+
+    # If this is a 'break +<n> if <condition>' ...
+    if ( $postponed{$subname} =~ s/^break\s([+-]?\d+)\s+if\s// ) {
+
+        # If there's no offset, use '+0'.
+        my $offset = $1 || 0;
+
+        # find_sub's value is 'fullpath-filename:start-stop'. It's
+        # possible that the filename might have colons in it too.
+        my ( $file, $i ) = ( find_sub($subname) =~ /^(.*):(\d+)-.*$/ );
+        if ($i) {
+
+            # We got the start line. Add the offset '+<n>' from
+            # $postponed{subname}.
+            $i += $offset;
+
+            # Switch to the file this sub is in, temporarily.
+            local *dbline = $main::{ '_<' . $file };
+
+            # No warnings, please.
+            local $^W = 0;    # != 0 is magical below
+
+            # This file's got a breakpoint in it.
+            $had_breakpoints{$file} |= 1;
+
+            # Last line in file.
+            $max = $#dbline;
+
+            # Search forward until we hit a breakable line or get to
+            # the end of the file.
+            ++$i until $dbline[$i] != 0 or $i >= $max;
+
+            # Copy the breakpoint in and delete it from %postponed.
+            $dbline{$i} = delete $postponed{$subname};
+        } ## end if ($i)
+
+        # find_sub didn't find the sub.
+        else {
+            local $\ = '';
+            print $OUT "Subroutine $subname not found.\n";
+        }
+        return;
+    } ## end if ($postponed{$subname...
+    elsif ( $postponed{$subname} eq 'compile' ) { $signal = 1 }
+
+    #print $OUT "In postponed_sub for '$subname'.\n";
+} ## end sub postponed_sub
+
+=head2 C<postponed>
+
+Called after each required file is compiled, but before it is executed;
+also called if the name of a just-compiled subroutine is a key of
+C<%postponed>. Propagates saved breakpoints (from C<b compile>, C<b load>,
+etc.) into the just-compiled code.
+
+If this is a C<require>'d file, the incoming parameter is the glob
+C<*{"_<$filename"}>, with C<$filename> the name of the C<require>'d file.
+
+If it's a subroutine, the incoming parameter is the subroutine name.
+
+=cut
+
+sub postponed {
+
+    # If there's a break, process it.
+    if ($ImmediateStop) {
+
+        # Right, we've stopped. Turn it off.
+        $ImmediateStop = 0;
+
+        # Enter the command loop when DB::DB gets called.
+        $signal = 1;
+    }
+
+    # If this is a subroutine, let postponed_sub() deal with it.
+    if (ref(\$_[0]) ne 'GLOB') {
+        return postponed_sub(@_);
+    }
+
+    # Not a subroutine. Deal with the file.
+    local *dbline = shift;
+    my $filename = $dbline;
+    $filename =~ s/^_<//;
+    local $\ = '';
+    $signal = 1, print $OUT "'$filename' loaded...\n"
+      if $break_on_load{$filename};
+    print_lineinfo( ' ' x $stack_depth, "Package $filename.\n" ) if $frame;
+
+    # Do we have any breakpoints to put in this file?
+    return unless $postponed_file{$filename};
+
+    # Yes. Mark this file as having breakpoints.
+    $had_breakpoints{$filename} |= 1;
+
+    # "Cannot be done: insufficient magic" - we can't just put the
+    # breakpoints saved in %postponed_file into %dbline by assigning
+    # the whole hash; we have to do it one item at a time for the
+    # breakpoints to be set properly.
+    #%dbline = %{$postponed_file{$filename}};
+
+    # Set the breakpoints, one at a time.
+    my $key;
+
+    for $key ( keys %{ $postponed_file{$filename} } ) {
+
+        # Stash the saved breakpoint into the current file's magic line array.
+        $dbline{$key} = ${ $postponed_file{$filename} }{$key};
+    }
+
+    # This file's been compiled; discard the stored breakpoints.
+    delete $postponed_file{$filename};
+
+} ## end sub postponed
+
+=head2 C<dumpit>
+
+C<dumpit> is the debugger's wrapper around dumpvar.pl.
+
+It gets a filehandle (to which C<dumpvar.pl>'s output will be directed) and
+a reference to a variable (the thing to be dumped) as its input.
+
+The incoming filehandle is selected for output (C<dumpvar.pl> is printing to
+the currently-selected filehandle, thank you very much). The current
+values of the package globals C<$single> and C<$trace> are backed up in
+lexicals, and they are turned off (this keeps the debugger from trying
+to single-step through C<dumpvar.pl> (I think.)). C<$frame> is localized to
+preserve its current value and it is set to zero to prevent entry/exit
+messages from printing, and C<$doret> is localized as well and set to -2 to
+prevent return values from being shown.
+
+C<dumpit()> then checks to see if it needs to load C<dumpvar.pl> and
+tries to load it (note: if you have a C<dumpvar.pl>  ahead of the
+installed version in C<@INC>, yours will be used instead. Possible security
+problem?).
+
+It then checks to see if the subroutine C<main::dumpValue> is now defined
+it should have been defined by C<dumpvar.pl>). If it has, C<dumpit()>
+localizes the globals necessary for things to be sane when C<main::dumpValue()>
+is called, and picks up the variable to be dumped from the parameter list.
+
+It checks the package global C<%options> to see if there's a C<dumpDepth>
+specified. If not, -1 is assumed; if so, the supplied value gets passed on to
+C<dumpvar.pl>. This tells C<dumpvar.pl> where to leave off when dumping a
+structure: -1 means dump everything.
+
+C<dumpValue()> is then called if possible; if not, C<dumpit()>just prints a
+warning.
+
+In either case, C<$single>, C<$trace>, C<$frame>, and C<$doret> are restored
+and we then return to the caller.
+
+=cut
+
+sub dumpit {
+
+    # Save the current output filehandle and switch to the one
+    # passed in as the first parameter.
+    my $savout = select(shift);
+
+    # Save current settings of $single and $trace, and then turn them off.
+    my $osingle = $single;
+    my $otrace  = $trace;
+    $single = $trace = 0;
+
+    # XXX Okay, what do $frame and $doret do, again?
+    local $frame = 0;
+    local $doret = -2;
+
+    # Load dumpvar.pl unless we've already got the sub we need from it.
+    unless ( defined &main::dumpValue ) {
+        do 'dumpvar.pl' or die $@;
+    }
+
+    # If the load succeeded (or we already had dumpvalue()), go ahead
+    # and dump things.
+    if ( defined &main::dumpValue ) {
+        local $\ = '';
+        local $, = '';
+        local $" = ' ';
+        my $v = shift;
+        my $maxdepth = shift || $option{dumpDepth};
+        $maxdepth = -1 unless defined $maxdepth;    # -1 means infinite depth
+        main::dumpValue( $v, $maxdepth );
+    } ## end if (defined &main::dumpValue)
+
+    # Oops, couldn't load dumpvar.pl.
+    else {
+        local $\ = '';
+        print $OUT "dumpvar.pl not available.\n";
+    }
+
+    # Reset $single and $trace to their old values.
+    $single = $osingle;
+    $trace  = $otrace;
+
+    # Restore the old filehandle.
+    select($savout);
+} ## end sub dumpit
+
+=head2 C<print_trace>
+
+C<print_trace>'s job is to print a stack trace. It does this via the
+C<dump_trace> routine, which actually does all the ferreting-out of the
+stack trace data. C<print_trace> takes care of formatting it nicely and
+printing it to the proper filehandle.
+
+Parameters:
+
+=over 4
+
+=item *
+
+The filehandle to print to.
+
+=item *
+
+How many frames to skip before starting trace.
+
+=item *
+
+How many frames to print.
+
+=item *
+
+A flag: if true, print a I<short> trace without filenames, line numbers, or arguments
+
+=back
+
+The original comment below seems to be noting that the traceback may not be
+correct if this routine is called in a tied method.
+
+=cut
+
+# Tied method do not create a context, so may get wrong message:
+
+sub print_trace {
+    local $\ = '';
+    my $fh = shift;
+
+    # If this is going to a slave editor, but we're not the primary
+    # debugger, reset it first.
+    resetterm(1)
+      if $fh        eq $LINEINFO    # slave editor
+      and $LINEINFO eq $OUT         # normal output
+      and $term_pid != $$;          # not the primary
+
+    # Collect the actual trace information to be formatted.
+    # This is an array of hashes of subroutine call info.
+    my @sub = dump_trace( $_[0] + 1, $_[1] );
+
+    # Grab the "short report" flag from @_.
+    my $short = $_[2];              # Print short report, next one for sub name
+
+    # Run through the traceback info, format it, and print it.
+    my $s;
+    for my $i (0 .. $#sub) {
+
+        # Drop out if the user has lost interest and hit control-C.
+        last if $signal;
+
+        # Set the separator so arrays print nice.
+        local $" = ', ';
+
+        # Grab and stringify the arguments if they are there.
+        my $args =
+          defined $sub[$i]{args}
+          ? "(@{ $sub[$i]{args} })"
+          : '';
+
+        # Shorten them up if $maxtrace says they're too long.
+        $args = ( substr $args, 0, $maxtrace - 3 ) . '...'
+          if length $args > $maxtrace;
+
+        # Get the file name.
+        my $file = $sub[$i]{file};
+
+        # Put in a filename header if short is off.
+        $file = $file eq '-e' ? $file : "file '$file'" unless $short;
+
+        # Get the actual sub's name, and shorten to $maxtrace's requirement.
+        $s = $sub[$i]{'sub'};
+        $s = ( substr $s, 0, $maxtrace - 3 ) . '...' if length $s > $maxtrace;
+
+        # Short report uses trimmed file and sub names.
+        if ($short) {
+            my $sub = @_ >= 4 ? $_[3] : $s;
+            print $fh "$sub[$i]{context}=$sub$args from $file:$sub[$i]{line}\n";
+        } ## end if ($short)
+
+        # Non-short report includes full names.
+        else {
+            print $fh "$sub[$i]{context} = $s$args"
+              . " called from $file"
+              . " line $sub[$i]{line}\n";
+        }
+    } ## end for my $i (0 .. $#sub)
+} ## end sub print_trace
+
+=head2 dump_trace(skip[,count])
+
+Actually collect the traceback information available via C<caller()>. It does
+some filtering and cleanup of the data, but mostly it just collects it to
+make C<print_trace()>'s job easier.
+
+C<skip> defines the number of stack frames to be skipped, working backwards
+from the most current. C<count> determines the total number of frames to
+be returned; all of them (well, the first 10^9) are returned if C<count>
+is omitted.
+
+This routine returns a list of hashes, from most-recent to least-recent
+stack frame. Each has the following keys and values:
+
+=over 4
+
+=item * C<context> - C<.> (null), C<$> (scalar), or C<@> (array)
+
+=item * C<sub> - subroutine name, or C<eval> information
+
+=item * C<args> - undef, or a reference to an array of arguments
+
+=item * C<file> - the file in which this item was defined (if any)
+
+=item * C<line> - the line on which it was defined
+
+=back
+
+=cut
+
+sub _dump_trace_calc_saved_single_arg
+{
+    my ($nothard, $arg) = @_;
+
+    my $type;
+    if ( not defined $arg ) {    # undefined parameter
+        return "undef";
+    }
+
+    elsif ( $nothard and tied $arg ) {    # tied parameter
+        return "tied";
+    }
+    elsif ( $nothard and $type = ref $arg ) {    # reference
+        return "ref($type)";
+    }
+    else {                                       # can be stringified
+        local $_ =
+        "$arg";    # Safe to stringify now - should not call f().
+
+        # Backslash any single-quotes or backslashes.
+        s/([\'\\])/\\$1/g;
+
+        # Single-quote it unless it's a number or a colon-separated
+        # name.
+        s/(.*)/'$1'/s
+        unless /^(?: -?[\d.]+ | \*[\w:]* )$/x;
+
+        # Turn high-bit characters into meta-whatever, and controls into like
+        # '^D'.
+        require 'meta_notation.pm';
+        $_ = _meta_notation($_) if /[[:^print:]]/a;
+
+        return $_;
+    }
+}
+
+sub _dump_trace_calc_save_args {
+    my ($nothard) = @_;
+
+    return [
+        map { _dump_trace_calc_saved_single_arg($nothard, $_) } @args
+    ];
+}
+
+sub dump_trace {
+
+    # How many levels to skip.
+    my $skip = shift;
+
+    # How many levels to show. (1e9 is a cheap way of saying "all of them";
+    # it's unlikely that we'll have more than a billion stack frames. If you
+    # do, you've got an awfully big machine...)
+    my $count = shift || 1e9;
+
+    # We increment skip because caller(1) is the first level *back* from
+    # the current one.  Add $skip to the count of frames so we have a
+    # simple stop criterion, counting from $skip to $count+$skip.
+    $skip++;
+    $count += $skip;
+
+    # These variables are used to capture output from caller();
+    my ( $p, $file, $line, $sub, $h, $context );
+
+    my ( $e, $r, @sub, $args );
+
+    # XXX Okay... why'd we do that?
+    my $nothard = not $frame & 8;
+    local $frame = 0;
+
+    # Do not want to trace this.
+    my $otrace = $trace;
+    $trace = 0;
+
+    # Start out at the skip count.
+    # If we haven't reached the number of frames requested, and caller() is
+    # still returning something, stay in the loop. (If we pass the requested
+    # number of stack frames, or we run out - caller() returns nothing - we
+    # quit.
+    # Up the stack frame index to go back one more level each time.
+    for (
+        my $i = $skip ;
+        $i < $count
+        and ( $p, $file, $line, $sub, $h, $context, $e, $r ) = caller($i) ;
+        $i++
+    )
+    {
+
+        # Go through the arguments and save them for later.
+        my $save_args = _dump_trace_calc_save_args($nothard);
+
+        # If context is true, this is array (@)context.
+        # If context is false, this is scalar ($) context.
+        # If neither, context isn't defined. (This is apparently a 'can't
+        # happen' trap.)
+        $context = $context ? '@' : ( defined $context ? "\$" : '.' );
+
+        # if the sub has args ($h true), make an anonymous array of the
+        # dumped args.
+        $args = $h ? $save_args : undef;
+
+        # remove trailing newline-whitespace-semicolon-end of line sequence
+        # from the eval text, if any.
+        $e =~ s/\n\s*\;\s*\Z// if $e;
+
+        # Escape backslashed single-quotes again if necessary.
+        $e =~ s/([\\\'])/\\$1/g if $e;
+
+        # if the require flag is true, the eval text is from a require.
+        if ($r) {
+            $sub = "require '$e'";
+        }
+
+        # if it's false, the eval text is really from an eval.
+        elsif ( defined $r ) {
+            $sub = "eval '$e'";
+        }
+
+        # If the sub is '(eval)', this is a block eval, meaning we don't
+        # know what the eval'ed text actually was.
+        elsif ( $sub eq '(eval)' ) {
+            $sub = "eval {...}";
+        }
+
+        # Stick the collected information into @sub as an anonymous hash.
+        push(
+            @sub,
+            {
+                context => $context,
+                sub     => $sub,
+                args    => $args,
+                file    => $file,
+                line    => $line
+            }
+        );
+
+        # Stop processing frames if the user hit control-C.
+        last if $signal;
+    } ## end for ($i = $skip ; $i < ...
+
+    # Restore the trace value again.
+    $trace = $otrace;
+    @sub;
+} ## end sub dump_trace
+
+=head2 C<action()>
+
+C<action()> takes input provided as the argument to an add-action command,
+either pre- or post-, and makes sure it's a complete command. It doesn't do
+any fancy parsing; it just keeps reading input until it gets a string
+without a trailing backslash.
+
+=cut
+
+sub action {
+    my $action = shift;
+
+    while ( $action =~ s/\\$// ) {
+
+        # We have a backslash on the end. Read more.
+        $action .= gets();
+    } ## end while ($action =~ s/\\$//)
+
+    # Return the assembled action.
+    $action;
+} ## end sub action
+
+=head2 unbalanced
+
+This routine mostly just packages up a regular expression to be used
+to check that the thing it's being matched against has properly-matched
+curly braces.
+
+Of note is the definition of the C<$balanced_brace_re> global via C<||=>, which
+speeds things up by only creating the qr//'ed expression once; if it's
+already defined, we don't try to define it again. A speed hack.
+
+=cut
+
+use vars qw($balanced_brace_re);
+
+sub unbalanced {
+
+    # I hate using globals!
+    $balanced_brace_re ||= qr{
+        ^ \{
+             (?:
+                 (?> [^{}] + )              # Non-parens without backtracking
+                |
+                 (??{ $balanced_brace_re }) # Group with matching parens
+              ) *
+          \} $
+   }x;
+    return $_[0] !~ m/$balanced_brace_re/;
+} ## end sub unbalanced
+
+=head2 C<gets()>
+
+C<gets()> is a primitive (very primitive) routine to read continuations.
+It was devised for reading continuations for actions.
+it just reads more input with C<readline()> and returns it.
+
+=cut
+
+sub gets {
+    return DB::readline("cont: ");
+}
+
+=head2 C<_db_system()> - handle calls to<system()> without messing up the debugger
+
+The C<system()> function assumes that it can just go ahead and use STDIN and
+STDOUT, but under the debugger, we want it to use the debugger's input and
+outout filehandles.
+
+C<_db_system()> socks away the program's STDIN and STDOUT, and then substitutes
+the debugger's IN and OUT filehandles for them. It does the C<system()> call,
+and then puts everything back again.
+
+=cut
+
+sub _db_system {
+
+    # We save, change, then restore STDIN and STDOUT to avoid fork() since
+    # some non-Unix systems can do system() but have problems with fork().
+    open( SAVEIN,  "<&STDIN" )  || _db_warn("Can't save STDIN");
+    open( SAVEOUT, ">&STDOUT" ) || _db_warn("Can't save STDOUT");
+    open( STDIN,   "<&IN" )     || _db_warn("Can't redirect STDIN");
+    open( STDOUT,  ">&OUT" )    || _db_warn("Can't redirect STDOUT");
+
+    # XXX: using csh or tcsh destroys sigint retvals!
+    system(@_);
+    open( STDIN,  "<&SAVEIN" )  || _db_warn("Can't restore STDIN");
+    open( STDOUT, ">&SAVEOUT" ) || _db_warn("Can't restore STDOUT");
+    close(SAVEIN);
+    close(SAVEOUT);
+
+    # most of the $? crud was coping with broken cshisms
+    if ( $? >> 8 ) {
+        _db_warn( "(Command exited ", ( $? >> 8 ), ")\n" );
+    }
+    elsif ($?) {
+        _db_warn(
+            "(Command died of SIG#",
+            ( $? & 127 ),
+            ( ( $? & 128 ) ? " -- core dumped" : "" ),
+            ")", "\n"
+        );
+    } ## end elsif ($?)
+
+    return $?;
+
+} ## end sub system
+
+*system = \&_db_system;
+
+=head1 TTY MANAGEMENT
+
+The subs here do some of the terminal management for multiple debuggers.
+
+=head2 setterm
+
+Top-level function called when we want to set up a new terminal for use
+by the debugger.
+
+If the C<noTTY> debugger option was set, we'll either use the terminal
+supplied (the value of the C<noTTY> option), or we'll use C<Term::Rendezvous>
+to find one. If we're a forked debugger, we call C<resetterm> to try to
+get a whole new terminal if we can.
+
+In either case, we set up the terminal next. If the C<ReadLine> option was
+true, we'll get a C<Term::ReadLine> object for the current terminal and save
+the appropriate attributes. We then
+
+=cut
+
+use vars qw($ornaments);
+use vars qw($rl_attribs);
+
+sub setterm {
+
+    # Load Term::Readline, but quietly; don't debug it and don't trace it.
+    local $frame = 0;
+    local $doret = -2;
+    require Term::ReadLine;
+
+    # If noTTY is set, but we have a TTY name, go ahead and hook up to it.
+    if ($notty) {
+        if ($tty) {
+            my ( $i, $o ) = split $tty, /,/;
+            $o = $i unless defined $o;
+            open( IN,  "<$i" ) or die "Cannot open TTY '$i' for read: $!";
+            open( OUT, ">$o" ) or die "Cannot open TTY '$o' for write: $!";
+            $IN  = \*IN;
+            $OUT = \*OUT;
+            _autoflush($OUT);
+        } ## end if ($tty)
+
+        # We don't have a TTY - try to find one via Term::Rendezvous.
+        else {
+            require Term::Rendezvous;
+
+            # See if we have anything to pass to Term::Rendezvous.
+            # Use $HOME/.perldbtty$$ if not.
+            my $rv = $ENV{PERLDB_NOTTY} || "$ENV{HOME}/.perldbtty$$";
+
+            # Rendezvous and get the filehandles.
+            my $term_rv = Term::Rendezvous->new( $rv );
+            $IN  = $term_rv->IN;
+            $OUT = $term_rv->OUT;
+        } ## end else [ if ($tty)
+    } ## end if ($notty)
+
+    # We're a daughter debugger. Try to fork off another TTY.
+    if ( $term_pid eq '-1' ) {    # In a TTY with another debugger
+        resetterm(2);
+    }
+
+    # If we shouldn't use Term::ReadLine, don't.
+    if ( !$rl ) {
+        $term = Term::ReadLine::Stub->new( 'perldb', $IN, $OUT );
+    }
+
+    # We're using Term::ReadLine. Get all the attributes for this terminal.
+    else {
+        $term = Term::ReadLine->new( 'perldb', $IN, $OUT );
+
+        $rl_attribs = $term->Attribs;
+        $rl_attribs->{basic_word_break_characters} .= '-:+/*,[])}'
+          if defined $rl_attribs->{basic_word_break_characters}
+          and index( $rl_attribs->{basic_word_break_characters}, ":" ) == -1;
+        $rl_attribs->{special_prefixes} = '$@&%';
+        $rl_attribs->{completer_word_break_characters} .= '$@&%';
+        $rl_attribs->{completion_function} = \&db_complete;
+    } ## end else [ if (!$rl)
+
+    # Set up the LINEINFO filehandle.
+    $LINEINFO = $OUT     unless defined $LINEINFO;
+    $lineinfo = $console unless defined $lineinfo;
+
+    $term->MinLine(2);
+
+    load_hist();
+
+    if ( $term->Features->{setHistory} and "@hist" ne "?" ) {
+        $term->SetHistory(@hist);
+    }
+
+    # XXX Ornaments are turned on unconditionally, which is not
+    # always a good thing.
+    ornaments($ornaments) if defined $ornaments;
+    $term_pid = $$;
+} ## end sub setterm
+
+sub load_hist {
+    $histfile //= option_val("HistFile", undef);
+    return unless defined $histfile;
+    open my $fh, "<", $histfile or return;
+    local $/ = "\n";
+    @hist = ();
+    while (<$fh>) {
+        chomp;
+        push @hist, $_;
+    }
+    close $fh;
+}
+
+sub save_hist {
+    return unless defined $histfile;
+    eval { require File::Path } or return;
+    eval { require File::Basename } or return;
+    File::Path::mkpath(File::Basename::dirname($histfile));
+    open my $fh, ">", $histfile or die "Could not open '$histfile': $!";
+    $histsize //= option_val("HistSize",100);
+    my @copy = grep { $_ ne '?' } @hist;
+    my $start = scalar(@copy) > $histsize ? scalar(@copy)-$histsize : 0;
+    for ($start .. $#copy) {
+        print $fh "$copy[$_]\n";
+    }
+    close $fh or die "Could not write '$histfile': $!";
+}
+
+=head1 GET_FORK_TTY EXAMPLE FUNCTIONS
+
+When the process being debugged forks, or the process invokes a command
+via C<system()> which starts a new debugger, we need to be able to get a new
+C<IN> and C<OUT> filehandle for the new debugger. Otherwise, the two processes
+fight over the terminal, and you can never quite be sure who's going to get the
+input you're typing.
+
+C<get_fork_TTY> is a glob-aliased function which calls the real function that
+is tasked with doing all the necessary operating system mojo to get a new
+TTY (and probably another window) and to direct the new debugger to read and
+write there.
+
+The debugger provides C<get_fork_TTY> functions which work for TCP
+socket servers, X11, OS/2, and Mac OS X. Other systems are not
+supported. You are encouraged to write C<get_fork_TTY> functions which
+work for I<your> platform and contribute them.
+
+=head3 C<socket_get_fork_TTY>
+
+=cut
+
+sub connect_remoteport {
+    require IO::Socket;
+
+    my $socket = IO::Socket::INET->new(
+        Timeout  => '10',
+        PeerAddr => $remoteport,
+        Proto    => 'tcp',
+    );
+    if ( ! $socket ) {
+        die "Unable to connect to remote host: $remoteport\n";
+    }
+    return $socket;
+}
+
+sub socket_get_fork_TTY {
+    $tty = $LINEINFO = $IN = $OUT = connect_remoteport();
+
+    # Do I need to worry about setting $term?
+
+    reset_IN_OUT( $IN, $OUT );
+    return '';
+}
+
+=head3 C<xterm_get_fork_TTY>
+
+This function provides the C<get_fork_TTY> function for X11. If a
+program running under the debugger forks, a new <xterm> window is opened and
+the subsidiary debugger is directed there.
+
+The C<open()> call is of particular note here. We have the new C<xterm>
+we're spawning route file number 3 to STDOUT, and then execute the C<tty>
+command (which prints the device name of the TTY we'll want to use for input
+and output to STDOUT, then C<sleep> for a very long time, routing this output
+to file number 3. This way we can simply read from the <XT> filehandle (which
+is STDOUT from the I<commands> we ran) to get the TTY we want to use.
+
+Only works if C<xterm> is in your path and C<$ENV{DISPLAY}>, etc. are
+properly set up.
+
+=cut
+
+sub xterm_get_fork_TTY {
+    ( my $name = $0 ) =~ s,^.*[/\\],,s;
+    open XT,
+qq[3>&1 xterm -title "Daughter Perl debugger $pids $name" -e sh -c 'tty 1>&3;\
+ sleep 10000000' |];
+
+    # Get the output from 'tty' and clean it up a little.
+    my $tty = <XT>;
+    chomp $tty;
+
+    $pidprompt = '';    # Shown anyway in titlebar
+
+    # We need $term defined or we can not switch to the newly created xterm
+    if ($tty ne '' && !defined $term) {
+        require Term::ReadLine;
+        if ( !$rl ) {
+            $term = Term::ReadLine::Stub->new( 'perldb', $IN, $OUT );
+        }
+        else {
+            $term = Term::ReadLine->new( 'perldb', $IN, $OUT );
+        }
+    }
+    # There's our new TTY.
+    return $tty;
+} ## end sub xterm_get_fork_TTY
+
+=head3 C<os2_get_fork_TTY>
+
+XXX It behooves an OS/2 expert to write the necessary documentation for this!
+
+=cut
+
+# This example function resets $IN, $OUT itself
+my $c_pipe = 0;
+sub os2_get_fork_TTY { # A simplification of the following (and works without):
+    local $\  = '';
+    ( my $name = $0 ) =~ s,^.*[/\\],,s;
+    my %opt = ( title => "Daughter Perl debugger $pids $name",
+        ($rl ? (read_by_key => 1) : ()) );
+    require OS2::Process;
+    my ($in, $out, $pid) = eval { OS2::Process::io_term(related => 0, %opt) }
+      or return;
+    $pidprompt = '';    # Shown anyway in titlebar
+    reset_IN_OUT($in, $out);
+    $tty = '*reset*';
+    return '';          # Indicate that reset_IN_OUT is called
+} ## end sub os2_get_fork_TTY
+
+=head3 C<macosx_get_fork_TTY>
+
+The Mac OS X version uses AppleScript to tell Terminal.app to create
+a new window.
+
+=cut
+
+# Notes about Terminal.app's AppleScript support,
+# (aka things that might break in future OS versions).
+#
+# The "do script" command doesn't return a reference to the new window
+# it creates, but since it appears frontmost and windows are enumerated
+# front to back, we can use "first window" === "window 1".
+#
+# Since "do script" is implemented by supplying the argument (plus a
+# return character) as terminal input, there's a potential race condition
+# where the debugger could beat the shell to reading the command.
+# To prevent this, we wait for the screen to clear before proceeding.
+#
+# 10.3 and 10.4:
+# There's no direct accessor for the tty device name, so we fiddle
+# with the window title options until it says what we want.
+#
+# 10.5:
+# There _is_ a direct accessor for the tty device name, _and_ there's
+# a new possible component of the window title (the name of the settings
+# set).  A separate version is needed.
+
+my @script_versions=
+
+    ([237, <<'__LEOPARD__'],
+tell application "Terminal"
+    do script "clear;exec sleep 100000"
+    tell first tab of first window
+        copy tty to thetty
+        set custom title to "forked perl debugger"
+        set title displays custom title to true
+        repeat while (length of first paragraph of (get contents)) > 0
+            delay 0.1
+        end repeat
+    end tell
+end tell
+thetty
+__LEOPARD__
+
+     [100, <<'__JAGUAR_TIGER__'],
+tell application "Terminal"
+    do script "clear;exec sleep 100000"
+    tell first window
+        set title displays shell path to false
+        set title displays window size to false
+        set title displays file name to false
+        set title displays device name to true
+        set title displays custom title to true
+        set custom title to ""
+        copy "/dev/" & name to thetty
+        set custom title to "forked perl debugger"
+        repeat while (length of first paragraph of (get contents)) > 0
+            delay 0.1
+        end repeat
+    end tell
+end tell
+thetty
+__JAGUAR_TIGER__
+
+);
+
+sub macosx_get_fork_TTY
+{
+    my($version,$script,$pipe,$tty);
+
+    return unless $version=$ENV{TERM_PROGRAM_VERSION};
+    foreach my $entry (@script_versions) {
+        if ($version>=$entry->[0]) {
+            $script=$entry->[1];
+            last;
+        }
+    }
+    return unless defined($script);
+    return unless open($pipe,'-|','/usr/bin/osascript','-e',$script);
+    $tty=readline($pipe);
+    close($pipe);
+    return unless defined($tty) && $tty =~ m(^/dev/);
+    chomp $tty;
+    return $tty;
+}
+
+=head3 C<tmux_get_fork_TTY>
+
+Creates a split window for subprocesses when a process running under the
+perl debugger in Tmux forks.
+
+=cut
+
+sub tmux_get_fork_TTY {
+    return unless $ENV{TMUX};
+
+    my $pipe;
+
+    my $status = open $pipe, '-|', 'tmux', 'split-window',
+        '-P', '-F', '#{pane_tty}', 'sleep 100000';
+
+    if ( !$status ) {
+        return;
+    }
+
+    my $tty = <$pipe>;
+    close $pipe;
+
+    if ( $tty ) {
+        chomp $tty;
+
+        if ( !defined $term ) {
+            require Term::ReadLine;
+            if ( !$rl ) {
+                $term = Term::ReadLine::Stub->new( 'perldb', $IN, $OUT );
+            }
+            else {
+                $term = Term::ReadLine->new( 'perldb', $IN, $OUT );
+            }
+        }
+    }
+
+    return $tty;
+}
+
+=head2 C<create_IN_OUT($flags)>
+
+Create a new pair of filehandles, pointing to a new TTY. If impossible,
+try to diagnose why.
+
+Flags are:
+
+=over 4
+
+=item * 1 - Don't know how to create a new TTY.
+
+=item * 2 - Debugger has forked, but we can't get a new TTY.
+
+=item * 4 - standard debugger startup is happening.
+
+=back
+
+=cut
+
+use vars qw($fork_TTY);
+
+sub create_IN_OUT {    # Create a window with IN/OUT handles redirected there
+
+    # If we know how to get a new TTY, do it! $in will have
+    # the TTY name if get_fork_TTY works.
+    my $in = get_fork_TTY(@_) if defined &get_fork_TTY;
+
+    # It used to be that
+    $in = $fork_TTY if defined $fork_TTY;    # Backward compatibility
+
+    if ( not defined $in ) {
+        my $why = shift;
+
+        # We don't know how.
+        print_help(<<EOP) if $why == 1;
+I<#########> Forked, but do not know how to create a new B<TTY>. I<#########>
+EOP
+
+        # Forked debugger.
+        print_help(<<EOP) if $why == 2;
+I<#########> Daughter session, do not know how to change a B<TTY>. I<#########>
+  This may be an asynchronous session, so the parent debugger may be active.
+EOP
+
+        # Note that both debuggers are fighting over the same input.
+        print_help(<<EOP) if $why != 4;
+  Since two debuggers fight for the same TTY, input is severely entangled.
+
+EOP
+        print_help(<<EOP);
+  I know how to switch the output to a different window in xterms, OS/2
+  consoles, and Mac OS X Terminal.app only.  For a manual switch, put the name
+  of the created I<TTY> in B<\$DB::fork_TTY>, or define a function
+  B<DB::get_fork_TTY()> returning this.
+
+  On I<UNIX>-like systems one can get the name of a I<TTY> for the given window
+  by typing B<tty>, and disconnect the I<shell> from I<TTY> by B<sleep 1000000>.
+
+EOP
+    } ## end if (not defined $in)
+    elsif ( $in ne '' ) {
+        TTY($in);
+    }
+    else {
+        $console = '';    # Indicate no need to open-from-the-console
+    }
+    undef $fork_TTY;
+} ## end sub create_IN_OUT
+
+=head2 C<resetterm>
+
+Handles rejiggering the prompt when we've forked off a new debugger.
+
+If the new debugger happened because of a C<system()> that invoked a
+program under the debugger, the arrow between the old pid and the new
+in the prompt has I<two> dashes instead of one.
+
+We take the current list of pids and add this one to the end. If there
+isn't any list yet, we make one up out of the initial pid associated with
+the terminal and our new pid, sticking an arrow (either one-dashed or
+two dashed) in between them.
+
+If C<CreateTTY> is off, or C<resetterm> was called with no arguments,
+we don't try to create a new IN and OUT filehandle. Otherwise, we go ahead
+and try to do that.
+
+=cut
+
+sub resetterm {    # We forked, so we need a different TTY
+
+    # Needs to be passed to create_IN_OUT() as well.
+    my $in = shift;
+
+    # resetterm(2): got in here because of a system() starting a debugger.
+    # resetterm(1): just forked.
+    my $systemed = $in > 1 ? '-' : '';
+
+    # If there's already a list of pids, add this to the end.
+    if ($pids) {
+        $pids =~ s/\]/$systemed->$$]/;
+    }
+
+    # No pid list. Time to make one.
+    else {
+        $pids = "[$term_pid->$$]";
+    }
+
+    # The prompt we're going to be using for this debugger.
+    $pidprompt = $pids;
+
+    # We now 0wnz this terminal.
+    $term_pid = $$;
+
+    # Just return if we're not supposed to try to create a new TTY.
+    return unless $CreateTTY & $in;
+
+    # Try to create a new IN/OUT pair.
+    create_IN_OUT($in);
+} ## end sub resetterm
+
+=head2 C<readline>
+
+First, we handle stuff in the typeahead buffer. If there is any, we shift off
+the next line, print a message saying we got it, add it to the terminal
+history (if possible), and return it.
+
+If there's nothing in the typeahead buffer, check the command filehandle stack.
+If there are any filehandles there, read from the last one, and return the line
+if we got one. If not, we pop the filehandle off and close it, and try the
+next one up the stack.
+
+If we've emptied the filehandle stack, we check to see if we've got a socket
+open, and we read that and return it if we do. If we don't, we just call the
+core C<readline()> and return its value.
+
+=cut
+
+sub readline {
+
+    # Localize to prevent it from being smashed in the program being debugged.
+    local $.;
+
+    # If there are stacked filehandles to read from ...
+    # (Handle it before the typeahead, because we may call source/etc. from
+    # the typeahead.)
+    while (@cmdfhs) {
+
+        # Read from the last one in the stack.
+        my $line = CORE::readline( $cmdfhs[-1] );
+
+        # If we got a line ...
+        defined $line
+          ? ( print $OUT ">> $line" and return $line )    # Echo and return
+          : close pop @cmdfhs;                            # Pop and close
+    } ## end while (@cmdfhs)
+
+    # Pull a line out of the typeahead if there's stuff there.
+    if (@typeahead) {
+
+        # How many lines left.
+        my $left = @typeahead;
+
+        # Get the next line.
+        my $got = shift @typeahead;
+
+        # Print a message saying we got input from the typeahead.
+        local $\ = '';
+        print $OUT "auto(-$left)", shift, $got, "\n";
+
+        # Add it to the terminal history (if possible).
+        $term->AddHistory($got)
+          if length($got) > 1
+          and defined $term->Features->{addHistory};
+        return $got;
+    } ## end if (@typeahead)
+
+    # We really need to read some input. Turn off entry/exit trace and
+    # return value printing.
+    local $frame = 0;
+    local $doret = -2;
+
+    # Nothing on the filehandle stack. Socket?
+    if ( ref $OUT and UNIVERSAL::isa( $OUT, 'IO::Socket::INET' ) ) {
+
+        # Send anything we have to send.
+        $OUT->write( join( '', @_ ) );
+
+        # Receive anything there is to receive.
+        my $stuff = '';
+        my $buf;
+        my $first_time = 1;
+
+        while ($first_time or (length($buf) && ($stuff .= $buf) !~ /\n/))
+        {
+            $first_time = 0;
+            $IN->recv( $buf = '', 2048 );   # XXX "what's wrong with sysread?"
+                                            # XXX Don't know. You tell me.
+        }
+
+        # What we got.
+        return $stuff;
+    } ## end if (ref $OUT and UNIVERSAL::isa...
+
+    # No socket. Just read from the terminal.
+    else {
+        return $term->readline(@_);
+    }
+} ## end sub readline
+
+=head1 OPTIONS SUPPORT ROUTINES
+
+These routines handle listing and setting option values.
+
+=head2 C<dump_option> - list the current value of an option setting
+
+This routine uses C<option_val> to look up the value for an option.
+It cleans up escaped single-quotes and then displays the option and
+its value.
+
+=cut
+
+sub dump_option {
+    my ( $opt, $val ) = @_;
+    $val = option_val( $opt, 'N/A' );
+    $val =~ s/([\\\'])/\\$1/g;
+    printf $OUT "%20s = '%s'\n", $opt, $val;
+} ## end sub dump_option
+
+sub options2remember {
+    foreach my $k (@RememberOnROptions) {
+        $option{$k} = option_val( $k, 'N/A' );
+    }
+    return %option;
+}
+
+=head2 C<option_val> - find the current value of an option
+
+This can't just be a simple hash lookup because of the indirect way that
+the option values are stored. Some are retrieved by calling a subroutine,
+some are just variables.
+
+You must supply a default value to be used in case the option isn't set.
+
+=cut
+
+sub option_val {
+    my ( $opt, $default ) = @_;
+    my $val;
+
+    # Does this option exist, and is it a variable?
+    # If so, retrieve the value via the value in %optionVars.
+    if (    defined $optionVars{$opt}
+        and defined ${ $optionVars{$opt} } )
+    {
+        $val = ${ $optionVars{$opt} };
+    }
+
+    # Does this option exist, and it's a subroutine?
+    # If so, call the subroutine via the ref in %optionAction
+    # and capture the value.
+    elsif ( defined $optionAction{$opt}
+        and defined &{ $optionAction{$opt} } )
+    {
+        $val = &{ $optionAction{$opt} }();
+    }
+
+    # If there's an action or variable for the supplied option,
+    # but no value was set, use the default.
+    elsif (defined $optionAction{$opt} and not defined $option{$opt}
+        or defined $optionVars{$opt} and not defined ${ $optionVars{$opt} } )
+    {
+        $val = $default;
+    }
+
+    # Otherwise, do the simple hash lookup.
+    else {
+        $val = $option{$opt};
+    }
+
+    # If the value isn't defined, use the default.
+    # Then return whatever the value is.
+    $val = $default unless defined $val;
+    $val;
+} ## end sub option_val
+
+=head2 C<parse_options>
+
+Handles the parsing and execution of option setting/displaying commands.
+
+An option entered by itself is assumed to be I<set me to 1> (the default value)
+if the option is a boolean one. If not, the user is prompted to enter a valid
+value or to query the current value (via C<option? >).
+
+If C<option=value> is entered, we try to extract a quoted string from the
+value (if it is quoted). If it's not, we just use the whole value as-is.
+
+We load any modules required to service this option, and then we set it: if
+it just gets stuck in a variable, we do that; if there's a subroutine to
+handle setting the option, we call that.
+
+Finally, if we're running in interactive mode, we display the effect of the
+user's command back to the terminal, skipping this if we're setting things
+during initialization.
+
+=cut
+
+sub parse_options {
+    my ($s) = @_;
+    local $\ = '';
+
+    my $option;
+
+    # These options need a value. Don't allow them to be clobbered by accident.
+    my %opt_needs_val = map { ( $_ => 1 ) } qw{
+      dumpDepth arrayDepth hashDepth LineInfo maxTraceLen ornaments windowSize
+      pager quote ReadLine recallCommand RemotePort ShellBang TTY CommandSet
+    };
+
+    while (length($s)) {
+        my $val_defaulted;
+
+        # Clean off excess leading whitespace.
+        $s =~ s/^\s+// && next;
+
+        # Options are always all word characters, followed by a non-word
+        # separator.
+        if ($s !~ s/^(\w+)(\W?)//) {
+            print {$OUT} "Invalid option '$s'\n";
+            last;
+        }
+        my ( $opt, $sep ) = ( $1, $2 );
+
+        # Make sure that such an option exists.
+        my $matches = ( grep { /^\Q$opt/ && ( $option = $_ ) } @options )
+          || ( grep { /^\Q$opt/i && ( $option = $_ ) } @options );
+
+        unless ($matches) {
+            print {$OUT} "Unknown option '$opt'\n";
+            next;
+        }
+        if ($matches > 1) {
+            print {$OUT} "Ambiguous option '$opt'\n";
+            next;
+        }
+        my $val;
+
+        # '?' as separator means query, but must have whitespace after it.
+        if ( "?" eq $sep ) {
+            if ($s =~ /\A\S/) {
+                print {$OUT} "Option query '$opt?' followed by non-space '$s'\n" ;
+
+                last;
+            }
+
+            #&dump_option($opt);
+        } ## end if ("?" eq $sep)
+
+        # Separator is whitespace (or just a carriage return).
+        # They're going for a default, which we assume is 1.
+        elsif ( $sep !~ /\S/ ) {
+            $val_defaulted = 1;
+            $val           = "1";   #  this is an evil default; make 'em set it!
+        }
+
+        # Separator is =. Trying to set a value.
+        elsif ( $sep eq "=" ) {
+
+            # If quoted, extract a quoted string.
+            if ($s =~ s/ (["']) ( (?: \\. | (?! \1 ) [^\\] )* ) \1 //x) {
+                my $quote = $1;
+                ( $val = $2 ) =~ s/\\([$quote\\])/$1/g;
+            }
+
+            # Not quoted. Use the whole thing. Warn about 'option='.
+            else {
+                $s =~ s/^(\S*)//;
+                $val = $1;
+                print OUT qq(Option better cleared using $opt=""\n)
+                  unless length $val;
+            } ## end else [ if (s/ (["']) ( (?: \\. | (?! \1 ) [^\\] )* ) \1 //x)
+
+        } ## end elsif ($sep eq "=")
+
+        # "Quoted" with [], <>, or {}.
+        else {    #{ to "let some poor schmuck bounce on the % key in B<vi>."
+            my ($end) =
+              "\\" . substr( ")]>}$sep", index( "([<{", $sep ), 1 );    #}
+            $s =~ s/^(([^\\$end]|\\[\\$end])*)$end($|\s+)//
+              or print( $OUT "Unclosed option value '$opt$sep$_'\n" ), last;
+            ( $val = $1 ) =~ s/\\([\\$end])/$1/g;
+        } ## end else [ if ("?" eq $sep)
+
+        # Exclude non-booleans from getting set to 1 by default.
+        if ( $opt_needs_val{$option} && $val_defaulted ) {
+            my $cmd = ( $CommandSet eq '580' ) ? 'o' : 'O';
+            print {$OUT}
+"Option '$opt' is non-boolean.  Use '$cmd $option=VAL' to set, '$cmd $option?' to query\n";
+            next;
+        } ## end if ($opt_needs_val{$option...
+
+        # Save the option value.
+        $option{$option} = $val if defined $val;
+
+        # Load any module that this option requires.
+        if ( defined($optionRequire{$option}) && defined($val) ) {
+            eval qq{
+            local \$frame = 0;
+            local \$doret = -2;
+            require '$optionRequire{$option}';
+            1;
+            } || die $@   # XXX: shouldn't happen
+        }
+
+        # Set it.
+        # Stick it in the proper variable if it goes in a variable.
+        if (defined($optionVars{$option}) && defined($val)) {
+            ${ $optionVars{$option} } = $val;
+        }
+
+        # Call the appropriate sub if it gets set via sub.
+        if (defined($optionAction{$option})
+          && defined (&{ $optionAction{$option} })
+          && defined ($val))
+        {
+          &{ $optionAction{$option} }($val);
+        }
+
+        # Not initialization - echo the value we set it to.
+        dump_option($option) if ($OUT ne \*STDERR);
+    } ## end while (length)
+} ## end sub parse_options
+
+=head1 RESTART SUPPORT
+
+These routines are used to store (and restore) lists of items in environment
+variables during a restart.
+
+=head2 set_list
+
+Set_list packages up items to be stored in a set of environment variables
+(VAR_n, containing the number of items, and VAR_0, VAR_1, etc., containing
+the values). Values outside the standard ASCII charset are stored by encoding
+them as hexadecimal values.
+
+=cut
+
+sub set_list {
+    my ( $stem, @list ) = @_;
+    my $val;
+
+    # VAR_n: how many we have. Scalar assignment gets the number of items.
+    $ENV{"${stem}_n"} = @list;
+
+    # Grab each item in the list, escape the backslashes, encode the non-ASCII
+    # as hex, and then save in the appropriate VAR_0, VAR_1, etc.
+    for my $i ( 0 .. $#list ) {
+        $val = $list[$i];
+        $val =~ s/\\/\\\\/g;
+        no warnings 'experimental::regex_sets';
+        $val =~ s/ ( (?[ [\000-\xFF] & [:^print:] ]) ) /
+                                                "\\0x" . unpack('H2',$1)/xaeg;
+        $ENV{"${stem}_$i"} = $val;
+    } ## end for $i (0 .. $#list)
+} ## end sub set_list
+
+=head2 get_list
+
+Reverse the set_list operation: grab VAR_n to see how many we should be getting
+back, and then pull VAR_0, VAR_1. etc. back out.
+
+=cut
+
+sub get_list {
+    my $stem = shift;
+    my @list;
+    my $n = delete $ENV{"${stem}_n"};
+    my $val;
+    for my $i ( 0 .. $n - 1 ) {
+        $val = delete $ENV{"${stem}_$i"};
+        $val =~ s/\\((\\)|0x(..))/ $2 ? $2 : pack('H2', $3) /ge;
+        push @list, $val;
+    }
+    @list;
+} ## end sub get_list
+
+=head1 MISCELLANEOUS SIGNAL AND I/O MANAGEMENT
+
+=head2 catch()
+
+The C<catch()> subroutine is the essence of fast and low-impact. We simply
+set an already-existing global scalar variable to a constant value. This
+avoids allocating any memory possibly in the middle of something that will
+get all confused if we do, particularly under I<unsafe signals>.
+
+=cut
+
+sub catch {
+    $signal = 1;
+    return;    # Put nothing on the stack - malloc/free land!
+}
+
+=head2 C<warn()>
+
+C<warn> emits a warning, by joining together its arguments and printing
+them, with couple of fillips.
+
+If the composited message I<doesn't> end with a newline, we automatically
+add C<$!> and a newline to the end of the message. The subroutine expects $OUT
+to be set to the filehandle to be used to output warnings; it makes no
+assumptions about what filehandles are available.
+
+=cut
+
+sub _db_warn {
+    my ($msg) = join( "", @_ );
+    $msg .= ": $!\n" unless $msg =~ /\n$/;
+    local $\ = '';
+    print $OUT $msg;
+} ## end sub warn
+
+*warn = \&_db_warn;
+
+=head1 INITIALIZATION TTY SUPPORT
+
+=head2 C<reset_IN_OUT>
+
+This routine handles restoring the debugger's input and output filehandles
+after we've tried and failed to move them elsewhere.  In addition, it assigns
+the debugger's output filehandle to $LINEINFO if it was already open there.
+
+=cut
+
+sub reset_IN_OUT {
+    my $switch_li = $LINEINFO eq $OUT;
+
+    # If there's a term and it's able to get a new tty, try to get one.
+    if ( $term and $term->Features->{newTTY} ) {
+        ( $IN, $OUT ) = ( shift, shift );
+        $term->newTTY( $IN, $OUT );
+    }
+
+    # This term can't get a new tty now. Better luck later.
+    elsif ($term) {
+        _db_warn("Too late to set IN/OUT filehandles, enabled on next 'R'!\n");
+    }
+
+    # Set the filehndles up as they were.
+    else {
+        ( $IN, $OUT ) = ( shift, shift );
+    }
+
+    # Unbuffer the output filehandle.
+    _autoflush($OUT);
+
+    # Point LINEINFO to the same output filehandle if it was there before.
+    $LINEINFO = $OUT if $switch_li;
+} ## end sub reset_IN_OUT
+
+=head1 OPTION SUPPORT ROUTINES
+
+The following routines are used to process some of the more complicated
+debugger options.
+
+=head2 C<TTY>
+
+Sets the input and output filehandles to the specified files or pipes.
+If the terminal supports switching, we go ahead and do it. If not, and
+there's already a terminal in place, we save the information to take effect
+on restart.
+
+If there's no terminal yet (for instance, during debugger initialization),
+we go ahead and set C<$console> and C<$tty> to the file indicated.
+
+=cut
+
+sub TTY {
+
+    if ( @_ and $term and $term->Features->{newTTY} ) {
+
+        # This terminal supports switching to a new TTY.
+        # Can be a list of two files, or on string containing both names,
+        # comma-separated.
+        # XXX Should this perhaps be an assignment from @_?
+        my ( $in, $out ) = shift;
+        if ( $in =~ /,/ ) {
+
+            # Split list apart if supplied.
+            ( $in, $out ) = split /,/, $in, 2;
+        }
+        else {
+
+            # Use the same file for both input and output.
+            $out = $in;
+        }
+
+        # Open file onto the debugger's filehandles, if you can.
+        open IN,  $in     or die "cannot open '$in' for read: $!";
+        open OUT, ">$out" or die "cannot open '$out' for write: $!";
+
+        # Swap to the new filehandles.
+        reset_IN_OUT( \*IN, \*OUT );
+
+        # Save the setting for later.
+        return $tty = $in;
+    } ## end if (@_ and $term and $term...
+
+    # Terminal doesn't support new TTY, or doesn't support readline.
+    # Can't do it now, try restarting.
+    if ($term and @_) {
+        _db_warn("Too late to set TTY, enabled on next 'R'!\n");
+    }
+
+    # Useful if done through PERLDB_OPTS:
+    $console = $tty = shift if @_;
+
+    # Return whatever the TTY is.
+    $tty or $console;
+} ## end sub TTY
+
+=head2 C<noTTY>
+
+Sets the C<$notty> global, controlling whether or not the debugger tries to
+get a terminal to read from. If called after a terminal is already in place,
+we save the value to use it if we're restarted.
+
+=cut
+
+sub noTTY {
+    if ($term) {
+        _db_warn("Too late to set noTTY, enabled on next 'R'!\n") if @_;
+    }
+    $notty = shift if @_;
+    $notty;
+} ## end sub noTTY
+
+=head2 C<ReadLine>
+
+Sets the C<$rl> option variable. If 0, we use C<Term::ReadLine::Stub>
+(essentially, no C<readline> processing on this I<terminal>). Otherwise, we
+use C<Term::ReadLine>. Can't be changed after a terminal's in place; we save
+the value in case a restart is done so we can change it then.
+
+=cut
+
+sub ReadLine {
+    if ($term) {
+        _db_warn("Too late to set ReadLine, enabled on next 'R'!\n") if @_;
+    }
+    $rl = shift if @_;
+    $rl;
+} ## end sub ReadLine
+
+=head2 C<RemotePort>
+
+Sets the port that the debugger will try to connect to when starting up.
+If the terminal's already been set up, we can't do it, but we remember the
+setting in case the user does a restart.
+
+=cut
+
+sub RemotePort {
+    if ($term) {
+        _db_warn("Too late to set RemotePort, enabled on next 'R'!\n") if @_;
+    }
+    $remoteport = shift if @_;
+    $remoteport;
+} ## end sub RemotePort
+
+=head2 C<tkRunning>
+
+Checks with the terminal to see if C<Tk> is running, and returns true or
+false. Returns false if the current terminal doesn't support C<readline>.
+
+=cut
+
+sub tkRunning {
+    if ( ${ $term->Features }{tkRunning} ) {
+        return $term->tkRunning(@_);
+    }
+    else {
+        local $\ = '';
+        print $OUT "tkRunning not supported by current ReadLine package.\n";
+        0;
+    }
+} ## end sub tkRunning
+
+=head2 C<NonStop>
+
+Sets nonstop mode. If a terminal's already been set up, it's too late; the
+debugger remembers the setting in case you restart, though.
+
+=cut
+
+sub NonStop {
+    if ($term) {
+        _db_warn("Too late to set up NonStop mode, enabled on next 'R'!\n")
+          if @_;
+    }
+    $runnonstop = shift if @_;
+    $runnonstop;
+} ## end sub NonStop
+
+sub DollarCaretP {
+    if ($term) {
+        _db_warn("Some flag changes could not take effect until next 'R'!\n")
+          if @_;
+    }
+    $^P = parse_DollarCaretP_flags(shift) if @_;
+    expand_DollarCaretP_flags($^P);
+}
+
+=head2 C<pager>
+
+Set up the C<$pager> variable. Adds a pipe to the front unless there's one
+there already.
+
+=cut
+
+sub pager {
+    if (@_) {
+        $pager = shift;
+        $pager = "|" . $pager unless $pager =~ /^(\+?\>|\|)/;
+    }
+    $pager;
+} ## end sub pager
+
+=head2 C<shellBang>
+
+Sets the shell escape command, and generates a printable copy to be used
+in the help.
+
+=cut
+
+sub shellBang {
+
+    # If we got an argument, meta-quote it, and add '\b' if it
+    # ends in a word character.
+    if (@_) {
+        $sh = quotemeta shift;
+        $sh .= "\\b" if $sh =~ /\w$/;
+    }
+
+    # Generate the printable version for the help:
+    $psh = $sh;    # copy it
+    $psh =~ s/\\b$//;        # Take off trailing \b if any
+    $psh =~ s/\\(.)/$1/g;    # De-escape
+    $psh;                    # return the printable version
+} ## end sub shellBang
+
+=head2 C<ornaments>
+
+If the terminal has its own ornaments, fetch them. Otherwise accept whatever
+was passed as the argument. (This means you can't override the terminal's
+ornaments.)
+
+=cut
+
+sub ornaments {
+    if ( defined $term ) {
+
+        # We don't want to show warning backtraces, but we do want die() ones.
+        local $warnLevel = 0;
+        local $dieLevel = 1;
+
+        # No ornaments if the terminal doesn't support them.
+        if (not $term->Features->{ornaments}) {
+            return '';
+        }
+
+        return (eval { $term->ornaments(@_) } || '');
+    }
+
+    # Use what was passed in if we can't determine it ourselves.
+    else {
+        $ornaments = shift;
+
+        return $ornaments;
+    }
+
+} ## end sub ornaments
+
+=head2 C<recallCommand>
+
+Sets the recall command, and builds a printable version which will appear in
+the help text.
+
+=cut
+
+sub recallCommand {
+
+    # If there is input, metaquote it. Add '\b' if it ends with a word
+    # character.
+    if (@_) {
+        $rc = quotemeta shift;
+        $rc .= "\\b" if $rc =~ /\w$/;
+    }
+
+    # Build it into a printable version.
+    $prc = $rc;              # Copy it
+    $prc =~ s/\\b$//;        # Remove trailing \b
+    $prc =~ s/\\(.)/$1/g;    # Remove escapes
+    return $prc;             # Return the printable version
+} ## end sub recallCommand
+
+=head2 C<LineInfo> - where the line number information goes
+
+Called with no arguments, returns the file or pipe that line info should go to.
+
+Called with an argument (a file or a pipe), it opens that onto the
+C<LINEINFO> filehandle, unbuffers the filehandle, and then returns the
+file or pipe again to the caller.
+
+=cut
+
+sub LineInfo {
+    if (@_) {
+        $lineinfo = shift;
+
+        #  If this is a valid "thing to be opened for output", tack a
+        # '>' onto the front.
+        my $stream = ( $lineinfo =~ /^(\+?\>|\|)/ ) ? $lineinfo : ">$lineinfo";
+
+        # If this is a pipe, the stream points to a slave editor.
+        $slave_editor = ( $stream =~ /^\|/ );
+
+        my $new_lineinfo_fh;
+        # Open it up and unbuffer it.
+        open ($new_lineinfo_fh , $stream )
+            or _db_warn("Cannot open '$stream' for write");
+        $LINEINFO = $new_lineinfo_fh;
+        _autoflush($LINEINFO);
+    }
+
+    return $lineinfo;
+} ## end sub LineInfo
+
+=head1 COMMAND SUPPORT ROUTINES
+
+These subroutines provide functionality for various commands.
+
+=head2 C<list_modules>
+
+For the C<M> command: list modules loaded and their versions.
+Essentially just runs through the keys in %INC, picks each package's
+C<$VERSION> variable, gets the file name, and formats the information
+for output.
+
+=cut
+
+sub list_modules {    # versions
+    my %version;
+    my $file;
+
+    # keys are the "as-loaded" name, values are the fully-qualified path
+    # to the file itself.
+    for ( keys %INC ) {
+        $file = $_;                                # get the module name
+        s,\.p[lm]$,,i;                             # remove '.pl' or '.pm'
+        s,/,::,g;                                  # change '/' to '::'
+        s/^perl5db$/DB/;                           # Special case: debugger
+                                                   # moves to package DB
+        s/^Term::ReadLine::readline$/readline/;    # simplify readline
+
+        # If the package has a $VERSION package global (as all good packages
+        # should!) decode it and save as partial message.
+        my $pkg_version = do { no strict 'refs'; ${ $_ . '::VERSION' } };
+        if ( defined $pkg_version ) {
+            $version{$file} = "$pkg_version from ";
+        }
+
+        # Finish up the message with the file the package came from.
+        $version{$file} .= $INC{$file};
+    } ## end for (keys %INC)
+
+    # Hey, dumpit() formats a hash nicely, so why not use it?
+    dumpit( $OUT, \%version );
+} ## end sub list_modules
+
+=head2 C<sethelp()>
+
+Sets up the monster string used to format and print the help.
+
+=head3 HELP MESSAGE FORMAT
+
+The help message is a peculiar format unto itself; it mixes C<pod> I<ornaments>
+(C<< B<> >> C<< I<> >>) with tabs to come up with a format that's fairly
+easy to parse and portable, but which still allows the help to be a little
+nicer than just plain text.
+
+Essentially, you define the command name (usually marked up with C<< B<> >>
+and C<< I<> >>), followed by a tab, and then the descriptive text, ending in a
+newline. The descriptive text can also be marked up in the same way. If you
+need to continue the descriptive text to another line, start that line with
+just tabs and then enter the marked-up text.
+
+If you are modifying the help text, I<be careful>. The help-string parser is
+not very sophisticated, and if you don't follow these rules it will mangle the
+help beyond hope until you fix the string.
+
+=cut
+
+use vars qw($pre580_help);
+use vars qw($pre580_summary);
+
+sub sethelp {
+
+    # XXX: make sure there are tabs between the command and explanation,
+    #      or print_help will screw up your formatting if you have
+    #      eeevil ornaments enabled.  This is an insane mess.
+
+    $help = "
+Help is currently only available for the new 5.8 command set.
+No help is available for the old command set.
+We assume you know what you're doing if you switch to it.
+
+B<T>        Stack trace.
+B<s> [I<expr>]    Single step [in I<expr>].
+B<n> [I<expr>]    Next, steps over subroutine calls [in I<expr>].
+<B<CR>>        Repeat last B<n> or B<s> command.
+B<r>        Return from current subroutine.
+B<c> [I<line>|I<sub>]    Continue; optionally inserts a one-time-only breakpoint
+        at the specified position.
+B<l> I<min>B<+>I<incr>    List I<incr>+1 lines starting at I<min>.
+B<l> I<min>B<->I<max>    List lines I<min> through I<max>.
+B<l> I<line>        List single I<line>.
+B<l> I<subname>    List first window of lines from subroutine.
+B<l> I<\$var>        List first window of lines from subroutine referenced by I<\$var>.
+B<l>        List next window of lines.
+B<->        List previous window of lines.
+B<v> [I<line>]    View window around I<line>.
+B<.>        Return to the executed line.
+B<f> I<filename>    Switch to viewing I<filename>. File must be already loaded.
+        I<filename> may be either the full name of the file, or a regular
+        expression matching the full file name:
+        B<f> I</home/me/foo.pl> and B<f> I<oo\\.> may access the same file.
+        Evals (with saved bodies) are considered to be filenames:
+        B<f> I<(eval 7)> and B<f> I<eval 7\\b> access the body of the 7th eval
+        (in the order of execution).
+B</>I<pattern>B</>    Search forwards for I<pattern>; final B</> is optional.
+B<?>I<pattern>B<?>    Search backwards for I<pattern>; final B<?> is optional.
+B<L> [I<a|b|w>]        List actions and or breakpoints and or watch-expressions.
+B<S> [[B<!>]I<pattern>]    List subroutine names [not] matching I<pattern>.
+B<t> [I<n>]       Toggle trace mode (to max I<n> levels below current stack depth).
+B<t> [I<n>] I<expr>        Trace through execution of I<expr>.
+B<b>        Sets breakpoint on current line)
+B<b> [I<line>] [I<condition>]
+        Set breakpoint; I<line> defaults to the current execution line;
+        I<condition> breaks if it evaluates to true, defaults to '1'.
+B<b> I<subname> [I<condition>]
+        Set breakpoint at first line of subroutine.
+B<b> I<\$var>        Set breakpoint at first line of subroutine referenced by I<\$var>.
+B<b> B<load> I<filename> Set breakpoint on 'require'ing the given file.
+B<b> B<postpone> I<subname> [I<condition>]
+        Set breakpoint at first line of subroutine after
+        it is compiled.
+B<b> B<compile> I<subname>
+        Stop after the subroutine is compiled.
+B<B> [I<line>]    Delete the breakpoint for I<line>.
+B<B> I<*>             Delete all breakpoints.
+B<a> [I<line>] I<command>
+        Set an action to be done before the I<line> is executed;
+        I<line> defaults to the current execution line.
+        Sequence is: check for breakpoint/watchpoint, print line
+        if necessary, do action, prompt user if necessary,
+        execute line.
+B<a>        Does nothing
+B<A> [I<line>]    Delete the action for I<line>.
+B<A> I<*>             Delete all actions.
+B<w> I<expr>        Add a global watch-expression.
+B<w>             Does nothing
+B<W> I<expr>        Delete a global watch-expression.
+B<W> I<*>             Delete all watch-expressions.
+B<V> [I<pkg> [I<vars>]]    List some (default all) variables in package (default current).
+        Use B<~>I<pattern> and B<!>I<pattern> for positive and negative regexps.
+B<X> [I<vars>]    Same as \"B<V> I<currentpackage> [I<vars>]\".
+B<x> I<expr>        Evals expression in list context, dumps the result.
+B<m> I<expr>        Evals expression in list context, prints methods callable
+        on the first element of the result.
+B<m> I<class>        Prints methods callable via the given class.
+B<M>        Show versions of loaded modules.
+B<i> I<class>       Prints nested parents of given class.
+B<e>         Display current thread id.
+B<E>         Display all thread ids the current one will be identified: <n>.
+B<y> [I<n> [I<Vars>]]   List lexicals in higher scope <n>.  Vars same as B<V>.
+
+B<<> ?            List Perl commands to run before each prompt.
+B<<> I<expr>        Define Perl command to run before each prompt.
+B<<<> I<expr>        Add to the list of Perl commands to run before each prompt.
+B<< *>                Delete the list of perl commands to run before each prompt.
+B<>> ?            List Perl commands to run after each prompt.
+B<>> I<expr>        Define Perl command to run after each prompt.
+B<>>B<>> I<expr>        Add to the list of Perl commands to run after each prompt.
+B<>>B< *>        Delete the list of Perl commands to run after each prompt.
+B<{> I<db_command>    Define debugger command to run before each prompt.
+B<{> ?            List debugger commands to run before each prompt.
+B<{{> I<db_command>    Add to the list of debugger commands to run before each prompt.
+B<{ *>             Delete the list of debugger commands to run before each prompt.
+B<$prc> I<number>    Redo a previous command (default previous command).
+B<$prc> I<-number>    Redo number'th-to-last command.
+B<$prc> I<pattern>    Redo last command that started with I<pattern>.
+        See 'B<O> I<recallCommand>' too.
+B<$psh$psh> I<cmd>      Run cmd in a subprocess (reads from DB::IN, writes to DB::OUT)"
+      . (
+        $rc eq $sh
+        ? ""
+        : "
+B<$psh> [I<cmd>] Run I<cmd> in subshell (forces \"\$SHELL -c 'cmd'\")."
+      ) . "
+        See 'B<O> I<shellBang>' too.
+B<source> I<file>     Execute I<file> containing debugger commands (may nest).
+B<save> I<file>       Save current debugger session (actual history) to I<file>.
+B<rerun>           Rerun session to current position.
+B<rerun> I<n>         Rerun session to numbered command.
+B<rerun> I<-n>        Rerun session to number'th-to-last command.
+B<H> I<-number>    Display last number commands (default all).
+B<H> I<*>          Delete complete history.
+B<p> I<expr>        Same as \"I<print {DB::OUT} expr>\" in current package.
+B<|>I<dbcmd>        Run debugger command, piping DB::OUT to current pager.
+B<||>I<dbcmd>        Same as B<|>I<dbcmd> but DB::OUT is temporarily select()ed as well.
+B<\=> [I<alias> I<value>]    Define a command alias, or list current aliases.
+I<command>        Execute as a perl statement in current package.
+B<R>        Pure-man-restart of debugger, some of debugger state
+        and command-line options may be lost.
+        Currently the following settings are preserved:
+        history, breakpoints and actions, debugger B<O>ptions
+        and the following command-line options: I<-w>, I<-I>, I<-e>.
+
+B<o> [I<opt>] ...    Set boolean option to true
+B<o> [I<opt>B<?>]    Query options
+B<o> [I<opt>B<=>I<val>] [I<opt>=B<\">I<val>B<\">] ...
+        Set options.  Use quotes if spaces in value.
+    I<recallCommand>, I<ShellBang>    chars used to recall command or spawn shell;
+    I<pager>            program for output of \"|cmd\";
+    I<tkRunning>            run Tk while prompting (with ReadLine);
+    I<signalLevel> I<warnLevel> I<dieLevel>    level of verbosity;
+    I<inhibit_exit>        Allows stepping off the end of the script.
+    I<ImmediateStop>        Debugger should stop as early as possible.
+    I<RemotePort>            Remote hostname:port for remote debugging
+  The following options affect what happens with B<V>, B<X>, and B<x> commands:
+    I<arrayDepth>, I<hashDepth>     print only first N elements ('' for all);
+    I<compactDump>, I<veryCompact>     change style of array and hash dump;
+    I<globPrint>             whether to print contents of globs;
+    I<DumpDBFiles>         dump arrays holding debugged files;
+    I<DumpPackages>         dump symbol tables of packages;
+    I<DumpReused>             dump contents of \"reused\" addresses;
+    I<quote>, I<HighBit>, I<undefPrint>     change style of string dump;
+    I<bareStringify>         Do not print the overload-stringified value;
+  Other options include:
+    I<PrintRet>        affects printing of return value after B<r> command,
+    I<frame>        affects printing messages on subroutine entry/exit.
+    I<AutoTrace>    affects printing messages on possible breaking points.
+    I<maxTraceLen>    gives max length of evals/args listed in stack trace.
+    I<ornaments>     affects screen appearance of the command line.
+    I<CreateTTY>     bits control attempts to create a new TTY on events:
+            1: on fork()    2: debugger is started inside debugger
+            4: on startup
+    During startup options are initialized from \$ENV{PERLDB_OPTS}.
+    You can put additional initialization options I<TTY>, I<noTTY>,
+    I<ReadLine>, I<NonStop>, and I<RemotePort> there (or use
+    B<R> after you set them).
+
+B<q> or B<^D>        Quit. Set B<\$DB::finished = 0> to debug global destruction.
+B<h>        Summary of debugger commands.
+B<h> [I<db_command>]    Get help [on a specific debugger command], enter B<|h> to page.
+B<h h>        Long help for debugger commands
+B<$doccmd> I<manpage>    Runs the external doc viewer B<$doccmd> command on the
+        named Perl I<manpage>, or on B<$doccmd> itself if omitted.
+        Set B<\$DB::doccmd> to change viewer.
+
+Type '|h h' for a paged display if this was too hard to read.
+
+";    # Fix balance of vi % matching: }}}}
+
+    #  note: tabs in the following section are not-so-helpful
+    $summary = <<"END_SUM";
+I<List/search source lines:>               I<Control script execution:>
+  B<l> [I<ln>|I<sub>]  List source code            B<T>           Stack trace
+  B<-> or B<.>      List previous/current line  B<s> [I<expr>]    Single step [in expr]
+  B<v> [I<line>]    View around line            B<n> [I<expr>]    Next, steps over subs
+  B<f> I<filename>  View source in file         <B<CR>/B<Enter>>  Repeat last B<n> or B<s>
+  B</>I<pattern>B</> B<?>I<patt>B<?>   Search forw/backw    B<r>           Return from subroutine
+  B<M>           Show module versions        B<c> [I<ln>|I<sub>]  Continue until position
+I<Debugger controls:>                        B<L>           List break/watch/actions
+  B<o> [...]     Set debugger options        B<t> [I<n>] [I<expr>] Toggle trace [max depth] ][trace expr]
+  B<<>[B<<>]|B<{>[B<{>]|B<>>[B<>>] [I<cmd>] Do pre/post-prompt B<b> [I<ln>|I<event>|I<sub>] [I<cnd>] Set breakpoint
+  B<$prc> [I<N>|I<pat>]   Redo a previous command     B<B> I<ln|*>      Delete a/all breakpoints
+  B<H> [I<-num>]    Display last num commands   B<a> [I<ln>] I<cmd>  Do cmd before line
+  B<=> [I<a> I<val>]   Define/list an alias        B<A> I<ln|*>      Delete a/all actions
+  B<h> [I<db_cmd>]  Get help on command         B<w> I<expr>      Add a watch expression
+  B<h h>         Complete help page          B<W> I<expr|*>    Delete a/all watch exprs
+  B<|>[B<|>]I<db_cmd>  Send output to pager        B<$psh>\[B<$psh>\] I<syscmd> Run cmd in a subprocess
+  B<q> or B<^D>     Quit                        B<R>           Attempt a restart
+I<Data Examination:>     B<expr>     Execute perl code, also see: B<s>,B<n>,B<t> I<expr>
+  B<x>|B<m> I<expr>       Evals expr in list context, dumps the result or lists methods.
+  B<p> I<expr>         Print expression (uses script's current package).
+  B<S> [[B<!>]I<pat>]     List subroutine names [not] matching pattern
+  B<V> [I<Pk> [I<Vars>]]  List Variables in Package.  Vars can be ~pattern or !pattern.
+  B<X> [I<Vars>]       Same as \"B<V> I<current_package> [I<Vars>]\".  B<i> I<class> inheritance tree.
+  B<y> [I<n> [I<Vars>]]   List lexicals in higher scope <n>.  Vars same as B<V>.
+  B<e>     Display thread id     B<E> Display all thread ids.
+For more help, type B<h> I<cmd_letter>, or run B<$doccmd perldebug> for all docs.
+END_SUM
+
+    # ')}}; # Fix balance of vi % matching
+
+    # and this is really numb...
+    $pre580_help = "
+B<T>        Stack trace.
+B<s> [I<expr>]    Single step [in I<expr>].
+B<n> [I<expr>]    Next, steps over subroutine calls [in I<expr>].
+B<CR>>        Repeat last B<n> or B<s> command.
+B<r>        Return from current subroutine.
+B<c> [I<line>|I<sub>]    Continue; optionally inserts a one-time-only breakpoint
+        at the specified position.
+B<l> I<min>B<+>I<incr>    List I<incr>+1 lines starting at I<min>.
+B<l> I<min>B<->I<max>    List lines I<min> through I<max>.
+B<l> I<line>        List single I<line>.
+B<l> I<subname>    List first window of lines from subroutine.
+B<l> I<\$var>        List first window of lines from subroutine referenced by I<\$var>.
+B<l>        List next window of lines.
+B<->        List previous window of lines.
+B<w> [I<line>]    List window around I<line>.
+B<.>        Return to the executed line.
+B<f> I<filename>    Switch to viewing I<filename>. File must be already loaded.
+        I<filename> may be either the full name of the file, or a regular
+        expression matching the full file name:
+        B<f> I</home/me/foo.pl> and B<f> I<oo\\.> may access the same file.
+        Evals (with saved bodies) are considered to be filenames:
+        B<f> I<(eval 7)> and B<f> I<eval 7\\b> access the body of the 7th eval
+        (in the order of execution).
+B</>I<pattern>B</>    Search forwards for I<pattern>; final B</> is optional.
+B<?>I<pattern>B<?>    Search backwards for I<pattern>; final B<?> is optional.
+B<L>        List all breakpoints and actions.
+B<S> [[B<!>]I<pattern>]    List subroutine names [not] matching I<pattern>.
+B<t> [I<n>]       Toggle trace mode (to max I<n> levels below current stack depth) .
+B<t> [I<n>] I<expr>        Trace through execution of I<expr>.
+B<b> [I<line>] [I<condition>]
+        Set breakpoint; I<line> defaults to the current execution line;
+        I<condition> breaks if it evaluates to true, defaults to '1'.
+B<b> I<subname> [I<condition>]
+        Set breakpoint at first line of subroutine.
+B<b> I<\$var>        Set breakpoint at first line of subroutine referenced by I<\$var>.
+B<b> B<load> I<filename> Set breakpoint on 'require'ing the given file.
+B<b> B<postpone> I<subname> [I<condition>]
+        Set breakpoint at first line of subroutine after
+        it is compiled.
+B<b> B<compile> I<subname>
+        Stop after the subroutine is compiled.
+B<d> [I<line>]    Delete the breakpoint for I<line>.
+B<D>        Delete all breakpoints.
+B<a> [I<line>] I<command>
+        Set an action to be done before the I<line> is executed;
+        I<line> defaults to the current execution line.
+        Sequence is: check for breakpoint/watchpoint, print line
+        if necessary, do action, prompt user if necessary,
+        execute line.
+B<a> [I<line>]    Delete the action for I<line>.
+B<A>        Delete all actions.
+B<W> I<expr>        Add a global watch-expression.
+B<W>        Delete all watch-expressions.
+B<V> [I<pkg> [I<vars>]]    List some (default all) variables in package (default current).
+        Use B<~>I<pattern> and B<!>I<pattern> for positive and negative regexps.
+B<X> [I<vars>]    Same as \"B<V> I<currentpackage> [I<vars>]\".
+B<x> I<expr>        Evals expression in list context, dumps the result.
+B<m> I<expr>        Evals expression in list context, prints methods callable
+        on the first element of the result.
+B<m> I<class>        Prints methods callable via the given class.
+
+B<<> ?            List Perl commands to run before each prompt.
+B<<> I<expr>        Define Perl command to run before each prompt.
+B<<<> I<expr>        Add to the list of Perl commands to run before each prompt.
+B<>> ?            List Perl commands to run after each prompt.
+B<>> I<expr>        Define Perl command to run after each prompt.
+B<>>B<>> I<expr>        Add to the list of Perl commands to run after each prompt.
+B<{> I<db_command>    Define debugger command to run before each prompt.
+B<{> ?            List debugger commands to run before each prompt.
+B<{{> I<db_command>    Add to the list of debugger commands to run before each prompt.
+B<$prc> I<number>    Redo a previous command (default previous command).
+B<$prc> I<-number>    Redo number'th-to-last command.
+B<$prc> I<pattern>    Redo last command that started with I<pattern>.
+        See 'B<O> I<recallCommand>' too.
+B<$psh$psh> I<cmd>      Run cmd in a subprocess (reads from DB::IN, writes to DB::OUT)"
+      . (
+        $rc eq $sh
+        ? ""
+        : "
+B<$psh> [I<cmd>]     Run I<cmd> in subshell (forces \"\$SHELL -c 'cmd'\")."
+      ) . "
+        See 'B<O> I<shellBang>' too.
+B<source> I<file>        Execute I<file> containing debugger commands (may nest).
+B<H> I<-number>    Display last number commands (default all).
+B<p> I<expr>        Same as \"I<print {DB::OUT} expr>\" in current package.
+B<|>I<dbcmd>        Run debugger command, piping DB::OUT to current pager.
+B<||>I<dbcmd>        Same as B<|>I<dbcmd> but DB::OUT is temporarilly select()ed as well.
+B<\=> [I<alias> I<value>]    Define a command alias, or list current aliases.
+I<command>        Execute as a perl statement in current package.
+B<v>        Show versions of loaded modules.
+B<R>        Pure-man-restart of debugger, some of debugger state
+        and command-line options may be lost.
+        Currently the following settings are preserved:
+        history, breakpoints and actions, debugger B<O>ptions
+        and the following command-line options: I<-w>, I<-I>, I<-e>.
+
+B<O> [I<opt>] ...    Set boolean option to true
+B<O> [I<opt>B<?>]    Query options
+B<O> [I<opt>B<=>I<val>] [I<opt>=B<\">I<val>B<\">] ...
+        Set options.  Use quotes if spaces in value.
+    I<recallCommand>, I<ShellBang>    chars used to recall command or spawn shell;
+    I<pager>            program for output of \"|cmd\";
+    I<tkRunning>            run Tk while prompting (with ReadLine);
+    I<signalLevel> I<warnLevel> I<dieLevel>    level of verbosity;
+    I<inhibit_exit>        Allows stepping off the end of the script.
+    I<ImmediateStop>        Debugger should stop as early as possible.
+    I<RemotePort>            Remote hostname:port for remote debugging
+  The following options affect what happens with B<V>, B<X>, and B<x> commands:
+    I<arrayDepth>, I<hashDepth>     print only first N elements ('' for all);
+    I<compactDump>, I<veryCompact>     change style of array and hash dump;
+    I<globPrint>             whether to print contents of globs;
+    I<DumpDBFiles>         dump arrays holding debugged files;
+    I<DumpPackages>         dump symbol tables of packages;
+    I<DumpReused>             dump contents of \"reused\" addresses;
+    I<quote>, I<HighBit>, I<undefPrint>     change style of string dump;
+    I<bareStringify>         Do not print the overload-stringified value;
+  Other options include:
+    I<PrintRet>        affects printing of return value after B<r> command,
+    I<frame>        affects printing messages on subroutine entry/exit.
+    I<AutoTrace>    affects printing messages on possible breaking points.
+    I<maxTraceLen>    gives max length of evals/args listed in stack trace.
+    I<ornaments>     affects screen appearance of the command line.
+    I<CreateTTY>     bits control attempts to create a new TTY on events:
+            1: on fork()    2: debugger is started inside debugger
+            4: on startup
+    During startup options are initialized from \$ENV{PERLDB_OPTS}.
+    You can put additional initialization options I<TTY>, I<noTTY>,
+    I<ReadLine>, I<NonStop>, and I<RemotePort> there (or use
+    B<R> after you set them).
+
+B<q> or B<^D>        Quit. Set B<\$DB::finished = 0> to debug global destruction.
+B<h> [I<db_command>]    Get help [on a specific debugger command], enter B<|h> to page.
+B<h h>        Summary of debugger commands.
+B<$doccmd> I<manpage>    Runs the external doc viewer B<$doccmd> command on the
+        named Perl I<manpage>, or on B<$doccmd> itself if omitted.
+        Set B<\$DB::doccmd> to change viewer.
+
+Type '|h' for a paged display if this was too hard to read.
+
+";    # Fix balance of vi % matching: }}}}
+
+    #  note: tabs in the following section are not-so-helpful
+    $pre580_summary = <<"END_SUM";
+I<List/search source lines:>               I<Control script execution:>
+  B<l> [I<ln>|I<sub>]  List source code            B<T>           Stack trace
+  B<-> or B<.>      List previous/current line  B<s> [I<expr>]    Single step [in expr]
+  B<w> [I<line>]    List around line            B<n> [I<expr>]    Next, steps over subs
+  B<f> I<filename>  View source in file         <B<CR>/B<Enter>>  Repeat last B<n> or B<s>
+  B</>I<pattern>B</> B<?>I<patt>B<?>   Search forw/backw    B<r>           Return from subroutine
+  B<v>           Show versions of modules    B<c> [I<ln>|I<sub>]  Continue until position
+I<Debugger controls:>                        B<L>           List break/watch/actions
+  B<O> [...]     Set debugger options        B<t> [I<expr>]    Toggle trace [trace expr]
+  B<<>[B<<>]|B<{>[B<{>]|B<>>[B<>>] [I<cmd>] Do pre/post-prompt B<b> [I<ln>|I<event>|I<sub>] [I<cnd>] Set breakpoint
+  B<$prc> [I<N>|I<pat>]   Redo a previous command     B<d> [I<ln>] or B<D> Delete a/all breakpoints
+  B<H> [I<-num>]    Display last num commands   B<a> [I<ln>] I<cmd>  Do cmd before line
+  B<=> [I<a> I<val>]   Define/list an alias        B<W> I<expr>      Add a watch expression
+  B<h> [I<db_cmd>]  Get help on command         B<A> or B<W>      Delete all actions/watch
+  B<|>[B<|>]I<db_cmd>  Send output to pager        B<$psh>\[B<$psh>\] I<syscmd> Run cmd in a subprocess
+  B<q> or B<^D>     Quit                        B<R>           Attempt a restart
+I<Data Examination:>     B<expr>     Execute perl code, also see: B<s>,B<n>,B<t> I<expr>
+  B<x>|B<m> I<expr>       Evals expr in list context, dumps the result or lists methods.
+  B<p> I<expr>         Print expression (uses script's current package).
+  B<S> [[B<!>]I<pat>]     List subroutine names [not] matching pattern
+  B<V> [I<Pk> [I<Vars>]]  List Variables in Package.  Vars can be ~pattern or !pattern.
+  B<X> [I<Vars>]       Same as \"B<V> I<current_package> [I<Vars>]\".
+  B<y> [I<n> [I<Vars>]]   List lexicals in higher scope <n>.  Vars same as B<V>.
+For more help, type B<h> I<cmd_letter>, or run B<$doccmd perldebug> for all docs.
+END_SUM
+
+    # ')}}; # Fix balance of vi % matching
+
+} ## end sub sethelp
+
+=head2 C<print_help()>
+
+Most of what C<print_help> does is just text formatting. It finds the
+C<B> and C<I> ornaments, cleans them off, and substitutes the proper
+terminal control characters to simulate them (courtesy of
+C<Term::ReadLine::TermCap>).
+
+=cut
+
+sub print_help {
+    my $help_str = shift;
+
+    # Restore proper alignment destroyed by eeevil I<> and B<>
+    # ornaments: A pox on both their houses!
+    #
+    # A help command will have everything up to and including
+    # the first tab sequence padded into a field 16 (or if indented 20)
+    # wide.  If it's wider than that, an extra space will be added.
+    $help_str =~ s{
+        ^                       # only matters at start of line
+          ( \ {4} | \t )*       # some subcommands are indented
+          ( < ?                 # so <CR> works
+            [BI] < [^\t\n] + )  # find an eeevil ornament
+          ( \t+ )               # original separation, discarded
+          ( .* )                # this will now start (no earlier) than
+                                # column 16
+    } {
+        my($leadwhite, $command, $midwhite, $text) = ($1, $2, $3, $4);
+        my $clean = $command;
+        $clean =~ s/[BI]<([^>]*)>/$1/g;
+
+        # replace with this whole string:
+        ($leadwhite ? " " x 4 : "")
+      . $command
+      . ((" " x (16 + ($leadwhite ? 4 : 0) - length($clean))) || " ")
+      . $text;
+
+    }mgex;
+
+    $help_str =~ s{                          # handle bold ornaments
+       B < ( [^>] + | > ) >
+    } {
+          $Term::ReadLine::TermCap::rl_term_set[2]
+        . $1
+        . $Term::ReadLine::TermCap::rl_term_set[3]
+    }gex;
+
+    $help_str =~ s{                         # handle italic ornaments
+       I < ( [^>] + | > ) >
+    } {
+          $Term::ReadLine::TermCap::rl_term_set[0]
+        . $1
+        . $Term::ReadLine::TermCap::rl_term_set[1]
+    }gex;
+
+    local $\ = '';
+    print {$OUT} $help_str;
+
+    return;
+} ## end sub print_help
+
+=head2 C<fix_less>
+
+This routine does a lot of gyrations to be sure that the pager is C<less>.
+It checks for C<less> masquerading as C<more> and records the result in
+C<$fixed_less> so we don't have to go through doing the stats again.
+
+=cut
+
+use vars qw($fixed_less);
+
+sub _calc_is_less {
+    if ($pager =~ /\bless\b/)
+    {
+        return 1;
+    }
+    elsif ($pager =~ /\bmore\b/)
+    {
+        # Nope, set to more. See what's out there.
+        my @st_more = stat('/usr/bin/more');
+        my @st_less = stat('/usr/bin/less');
+
+        # is it really less, pretending to be more?
+        return (
+            @st_more
+            && @st_less
+            && $st_more[0] == $st_less[0]
+            && $st_more[1] == $st_less[1]
+        );
+    }
+    else {
+        return;
+    }
+}
+
+sub fix_less {
+
+    # We already know if this is set.
+    return if $fixed_less;
+
+    # changes environment!
+    # 'r' added so we don't do (slow) stats again.
+    $fixed_less = 1 if _calc_is_less();
+
+    return;
+} ## end sub fix_less
+
+=head1 DIE AND WARN MANAGEMENT
+
+=head2 C<diesignal>
+
+C<diesignal> is a just-drop-dead C<die> handler. It's most useful when trying
+to debug a debugger problem.
+
+It does its best to report the error that occurred, and then forces the
+program, debugger, and everything to die.
+
+=cut
+
+sub diesignal {
+
+    # No entry/exit messages.
+    local $frame = 0;
+
+    # No return value prints.
+    local $doret = -2;
+
+    # set the abort signal handling to the default (just terminate).
+    $SIG{'ABRT'} = 'DEFAULT';
+
+    # If we enter the signal handler recursively, kill myself with an
+    # abort signal (so we just terminate).
+    kill 'ABRT', $$ if $panic++;
+
+    # If we can show detailed info, do so.
+    if ( defined &Carp::longmess ) {
+
+        # Don't recursively enter the warn handler, since we're carping.
+        local $SIG{__WARN__} = '';
+
+        # Skip two levels before reporting traceback: we're skipping
+        # mydie and confess.
+        local $Carp::CarpLevel = 2;    # mydie + confess
+
+        # Tell us all about it.
+        _db_warn( Carp::longmess("Signal @_") );
+    }
+
+    # No Carp. Tell us about the signal as best we can.
+    else {
+        local $\ = '';
+        print $DB::OUT "Got signal @_\n";
+    }
+
+    # Drop dead.
+    kill 'ABRT', $$;
+} ## end sub diesignal
+
+=head2 C<dbwarn>
+
+The debugger's own default C<$SIG{__WARN__}> handler. We load C<Carp> to
+be able to get a stack trace, and output the warning message vi C<DB::dbwarn()>.
+
+=cut
+
+sub dbwarn {
+
+    # No entry/exit trace.
+    local $frame = 0;
+
+    # No return value printing.
+    local $doret = -2;
+
+    # Turn off warn and die handling to prevent recursive entries to this
+    # routine.
+    local $SIG{__WARN__} = '';
+    local $SIG{__DIE__}  = '';
+
+    # Load Carp if we can. If $^S is false (current thing being compiled isn't
+    # done yet), we may not be able to do a require.
+    eval { require Carp }
+      if defined $^S;    # If error/warning during compilation,
+                         # require may be broken.
+
+    # Use the core warn() unless Carp loaded OK.
+    CORE::warn( @_,
+        "\nCannot print stack trace, load with -MCarp option to see stack" ),
+      return
+      unless defined &Carp::longmess;
+
+    # Save the current values of $single and $trace, and then turn them off.
+    my ( $mysingle, $mytrace ) = ( $single, $trace );
+    $single = 0;
+    $trace  = 0;
+
+    # We can call Carp::longmess without its being "debugged" (which we
+    # don't want - we just want to use it!). Capture this for later.
+    my $mess = Carp::longmess(@_);
+
+    # Restore $single and $trace to their original values.
+    ( $single, $trace ) = ( $mysingle, $mytrace );
+
+    # Use the debugger's own special way of printing warnings to print
+    # the stack trace message.
+    _db_warn($mess);
+} ## end sub dbwarn
+
+=head2 C<dbdie>
+
+The debugger's own C<$SIG{__DIE__}> handler. Handles providing a stack trace
+by loading C<Carp> and calling C<Carp::longmess()> to get it. We turn off
+single stepping and tracing during the call to C<Carp::longmess> to avoid
+debugging it - we just want to use it.
+
+If C<dieLevel> is zero, we let the program being debugged handle the
+exceptions. If it's 1, you get backtraces for any exception. If it's 2,
+the debugger takes over all exception handling, printing a backtrace and
+displaying the exception via its C<dbwarn()> routine.
+
+=cut
+
+sub dbdie {
+    local $frame         = 0;
+    local $doret         = -2;
+    local $SIG{__DIE__}  = '';
+    local $SIG{__WARN__} = '';
+    if ( $dieLevel > 2 ) {
+        local $SIG{__WARN__} = \&dbwarn;
+        _db_warn(@_);    # Yell no matter what
+        return;
+    }
+    if ( $dieLevel < 2 ) {
+        die @_ if $^S;    # in eval propagate
+    }
+
+    # The code used to check $^S to see if compilation of the current thing
+    # hadn't finished. We don't do it anymore, figuring eval is pretty stable.
+    eval { require Carp };
+
+    die( @_,
+        "\nCannot print stack trace, load with -MCarp option to see stack" )
+      unless defined &Carp::longmess;
+
+    # We do not want to debug this chunk (automatic disabling works
+    # inside DB::DB, but not in Carp). Save $single and $trace, turn them off,
+    # get the stack trace from Carp::longmess (if possible), restore $signal
+    # and $trace, and then die with the stack trace.
+    my ( $mysingle, $mytrace ) = ( $single, $trace );
+    $single = 0;
+    $trace  = 0;
+    my $mess = "@_";
+    {
+
+        package Carp;    # Do not include us in the list
+        eval { $mess = Carp::longmess(@_); };
+    }
+    ( $single, $trace ) = ( $mysingle, $mytrace );
+    die $mess;
+} ## end sub dbdie
+
+=head2 C<warnlevel()>
+
+Set the C<$DB::warnLevel> variable that stores the value of the
+C<warnLevel> option. Calling C<warnLevel()> with a positive value
+results in the debugger taking over all warning handlers. Setting
+C<warnLevel> to zero leaves any warning handlers set up by the program
+being debugged in place.
+
+=cut
+
+sub warnLevel {
+    if (@_) {
+        my $prevwarn = $SIG{__WARN__} unless $warnLevel;
+        $warnLevel = shift;
+        if ($warnLevel) {
+            $SIG{__WARN__} = \&DB::dbwarn;
+        }
+        elsif ($prevwarn) {
+            $SIG{__WARN__} = $prevwarn;
+        } else {
+            undef $SIG{__WARN__};
+        }
+    } ## end if (@_)
+    $warnLevel;
+} ## end sub warnLevel
+
+=head2 C<dielevel>
+
+Similar to C<warnLevel>. Non-zero values for C<dieLevel> result in the
+C<DB::dbdie()> function overriding any other C<die()> handler. Setting it to
+zero lets you use your own C<die()> handler.
+
+=cut
+
+sub dieLevel {
+    local $\ = '';
+    if (@_) {
+        my $prevdie = $SIG{__DIE__} unless $dieLevel;
+        $dieLevel = shift;
+        if ($dieLevel) {
+
+            # Always set it to dbdie() for non-zero values.
+            $SIG{__DIE__} = \&DB::dbdie;    # if $dieLevel < 2;
+
+            # No longer exists, so don't try  to use it.
+            #$SIG{__DIE__} = \&DB::diehard if $dieLevel >= 2;
+
+            # If we've finished initialization, mention that stack dumps
+            # are enabled, If dieLevel is 1, we won't stack dump if we die
+            # in an eval().
+            print $OUT "Stack dump during die enabled",
+              ( $dieLevel == 1 ? " outside of evals" : "" ), ".\n"
+              if $I_m_init;
+
+            # XXX This is probably obsolete, given that diehard() is gone.
+            print $OUT "Dump printed too.\n" if $dieLevel > 2;
+        } ## end if ($dieLevel)
+
+        # Put the old one back if there was one.
+        elsif ($prevdie) {
+            $SIG{__DIE__} = $prevdie;
+            print $OUT "Default die handler restored.\n";
+        } else {
+            undef $SIG{__DIE__};
+            print $OUT "Die handler removed.\n";
+        }
+    } ## end if (@_)
+    $dieLevel;
+} ## end sub dieLevel
+
+=head2 C<signalLevel>
+
+Number three in a series: set C<signalLevel> to zero to keep your own
+signal handler for C<SIGSEGV> and/or C<SIGBUS>. Otherwise, the debugger
+takes over and handles them with C<DB::diesignal()>.
+
+=cut
+
+sub signalLevel {
+    if (@_) {
+        my $prevsegv = $SIG{SEGV} unless $signalLevel;
+        my $prevbus  = $SIG{BUS}  unless $signalLevel;
+        $signalLevel = shift;
+        if ($signalLevel) {
+            $SIG{SEGV} = \&DB::diesignal;
+            $SIG{BUS}  = \&DB::diesignal;
+        }
+        else {
+            $SIG{SEGV} = $prevsegv;
+            $SIG{BUS}  = $prevbus;
+        }
+    } ## end if (@_)
+    $signalLevel;
+} ## end sub signalLevel
+
+=head1 SUBROUTINE DECODING SUPPORT
+
+These subroutines are used during the C<x> and C<X> commands to try to
+produce as much information as possible about a code reference. They use
+L<Devel::Peek> to try to find the glob in which this code reference lives
+(if it does) - this allows us to actually code references which correspond
+to named subroutines (including those aliased via glob assignment).
+
+=head2 C<CvGV_name()>
+
+Wrapper for C<CvGV_name_or_bust>; tries to get the name of a reference
+via that routine. If this fails, return the reference again (when the
+reference is stringified, it'll come out as C<SOMETHING(0x...)>).
+
+=cut
+
+sub CvGV_name {
+    my $in   = shift;
+    my $name = CvGV_name_or_bust($in);
+    defined $name ? $name : $in;
+}
+
+=head2 C<CvGV_name_or_bust> I<coderef>
+
+Calls L<Devel::Peek> to try to find the glob the ref lives in; returns
+C<undef> if L<Devel::Peek> can't be loaded, or if C<Devel::Peek::CvGV> can't
+find a glob for this ref.
+
+Returns C<< I<package>::I<glob name> >> if the code ref is found in a glob.
+
+=cut
+
+use vars qw($skipCvGV);
+
+sub CvGV_name_or_bust {
+    my $in = shift;
+    return if $skipCvGV;    # Backdoor to avoid problems if XS broken...
+    return unless ref $in;
+    $in = \&$in;            # Hard reference...
+    eval { require Devel::Peek; 1 } or return;
+    my $gv = Devel::Peek::CvGV($in) or return;
+    *$gv{PACKAGE} . '::' . *$gv{NAME};
+} ## end sub CvGV_name_or_bust
+
+=head2 C<find_sub>
+
+A utility routine used in various places; finds the file where a subroutine
+was defined, and returns that filename and a line-number range.
+
+Tries to use C<@sub> first; if it can't find it there, it tries building a
+reference to the subroutine and uses C<CvGV_name_or_bust> to locate it,
+loading it into C<@sub> as a side effect (XXX I think). If it can't find it
+this way, it brute-force searches C<%sub>, checking for identical references.
+
+=cut
+
+sub _find_sub_helper {
+    my $subr = shift;
+
+    return unless defined &$subr;
+    my $name = CvGV_name_or_bust($subr);
+    my $data;
+    $data = $sub{$name} if defined $name;
+    return $data if defined $data;
+
+    # Old stupid way...
+    $subr = \&$subr;    # Hard reference
+    my $s;
+    for ( keys %sub ) {
+        $s = $_, last if $subr eq \&$_;
+    }
+    if ($s)
+    {
+        return $sub{$s};
+    }
+    else
+    {
+        return;
+    }
+
+}
+
+sub find_sub {
+    my $subr = shift;
+    return ( $sub{$subr} || _find_sub_helper($subr) );
+} ## end sub find_sub
+
+=head2 C<methods>
+
+A subroutine that uses the utility function C<methods_via> to find all the
+methods in the class corresponding to the current reference and in
+C<UNIVERSAL>.
+
+=cut
+
+use vars qw(%seen);
+
+sub methods {
+
+    # Figure out the class - either this is the class or it's a reference
+    # to something blessed into that class.
+    my $class = shift;
+    $class = ref $class if ref $class;
+
+    local %seen;
+
+    # Show the methods that this class has.
+    methods_via( $class, '', 1 );
+
+    # Show the methods that UNIVERSAL has.
+    methods_via( 'UNIVERSAL', 'UNIVERSAL', 0 );
+} ## end sub methods
+
+=head2 C<methods_via($class, $prefix, $crawl_upward)>
+
+C<methods_via> does the work of crawling up the C<@ISA> tree and reporting
+all the parent class methods. C<$class> is the name of the next class to
+try; C<$prefix> is the message prefix, which gets built up as we go up the
+C<@ISA> tree to show parentage; C<$crawl_upward> is 1 if we should try to go
+higher in the C<@ISA> tree, 0 if we should stop.
+
+=cut
+
+sub methods_via {
+
+    # If we've processed this class already, just quit.
+    my $class = shift;
+    return if $seen{$class}++;
+
+    # This is a package that is contributing the methods we're about to print.
+    my $prefix  = shift;
+    my $prepend = $prefix ? "via $prefix: " : '';
+    my @to_print;
+
+    # Extract from all the symbols in this class.
+    my $class_ref = do { no strict "refs"; \%{$class . '::'} };
+    while (my ($name, $glob) = each %$class_ref) {
+        # references directly in the symbol table are Proxy Constant
+        # Subroutines, and are by their very nature defined
+        # Otherwise, check if the thing is a typeglob, and if it is, it decays
+        # to a subroutine reference, which can be tested by defined.
+        # $glob might also be the value -1  (from sub foo;)
+        # or (say) '$$' (from sub foo ($$);)
+        # \$glob will be SCALAR in both cases.
+        if ((ref $glob || ($glob && ref \$glob eq 'GLOB' && defined &$glob))
+            && !$seen{$name}++) {
+            push @to_print, "$prepend$name\n";
+        }
+    }
+
+    {
+        local $\ = '';
+        local $, = '';
+        print $DB::OUT $_ foreach sort @to_print;
+    }
+
+    # If the $crawl_upward argument is false, just quit here.
+    return unless shift;
+
+    # $crawl_upward true: keep going up the tree.
+    # Find all the classes this one is a subclass of.
+    my $class_ISA_ref = do { no strict "refs"; \@{"${class}::ISA"} };
+    for my $name ( @$class_ISA_ref ) {
+
+        # Set up the new prefix.
+        $prepend = $prefix ? $prefix . " -> $name" : $name;
+
+        # Crawl up the tree and keep trying to crawl up.
+        methods_via( $name, $prepend, 1 );
+    }
+} ## end sub methods_via
+
+=head2 C<setman> - figure out which command to use to show documentation
+
+Just checks the contents of C<$^O> and sets the C<$doccmd> global accordingly.
+
+=cut
+
+sub setman {
+    $doccmd = $^O !~ /^(?:MSWin32|VMS|os2|dos|amigaos|riscos|NetWare)\z/s
+      ? "man"         # O Happy Day!
+      : "perldoc";    # Alas, poor unfortunates
+} ## end sub setman
+
+=head2 C<runman> - run the appropriate command to show documentation
+
+Accepts a man page name; runs the appropriate command to display it (set up
+during debugger initialization). Uses C<_db_system()> to avoid mucking up the
+program's STDIN and STDOUT.
+
+=cut
+
+sub runman {
+    my $page = shift;
+    unless ($page) {
+        _db_system("$doccmd $doccmd");
+        return;
+    }
+
+    # this way user can override, like with $doccmd="man -Mwhatever"
+    # or even just "man " to disable the path check.
+    if ( $doccmd ne 'man' ) {
+        _db_system("$doccmd $page");
+        return;
+    }
+
+    $page = 'perl' if lc($page) eq 'help';
+
+    require Config;
+    my $man1dir = $Config::Config{man1direxp};
+    my $man3dir = $Config::Config{man3direxp};
+    for ( $man1dir, $man3dir ) { s#/[^/]*\z## if /\S/ }
+    my $manpath = '';
+    $manpath .= "$man1dir:" if $man1dir =~ /\S/;
+    $manpath .= "$man3dir:" if $man3dir =~ /\S/ && $man1dir ne $man3dir;
+    chop $manpath if $manpath;
+
+    # harmless if missing, I figure
+    local $ENV{MANPATH} = $manpath if $manpath;
+    my $nopathopt = $^O =~ /dunno what goes here/;
+    if (
+        CORE::system(
+            $doccmd,
+
+            # I just *know* there are men without -M
+            ( ( $manpath && !$nopathopt ) ? ( "-M", $manpath ) : () ),
+            split ' ', $page
+        )
+      )
+    {
+        unless ( $page =~ /^perl\w/ ) {
+            # Previously the debugger contained a list which it slurped in,
+            # listing the known "perl" manpages. However, it was out of date,
+            # with errors both of omission and inclusion. This approach is
+            # considerably less complex. The failure mode on a butchered
+            # install is simply that the user has to run man or perldoc
+            # "manually" with the full manpage name.
+
+            # There is a list of $^O values in installperl to determine whether
+            # the directory is 'pods' or 'pod'. However, we can avoid tight
+            # coupling to that by simply checking the "non-standard" 'pods'
+            # first.
+            my $pods = "$Config::Config{privlibexp}/pods";
+            $pods = "$Config::Config{privlibexp}/pod"
+                unless -d $pods;
+            if (-f "$pods/perl$page.pod") {
+                CORE::system( $doccmd,
+                    ( ( $manpath && !$nopathopt ) ? ( "-M", $manpath ) : () ),
+                    "perl$page" );
+            }
+        }
+    } ## end if (CORE::system($doccmd...
+} ## end sub runman
+
+#use Carp;                          # This did break, left for debugging
+
+=head1 DEBUGGER INITIALIZATION - THE SECOND BEGIN BLOCK
+
+Because of the way the debugger interface to the Perl core is designed, any
+debugger package globals that C<DB::sub()> requires have to be defined before
+any subroutines can be called. These are defined in the second C<BEGIN> block.
+
+This block sets things up so that (basically) the world is sane
+before the debugger starts executing. We set up various variables that the
+debugger has to have set up before the Perl core starts running:
+
+=over 4
+
+=item *
+
+The debugger's own filehandles (copies of STD and STDOUT for now).
+
+=item *
+
+Characters for shell escapes, the recall command, and the history command.
+
+=item *
+
+The maximum recursion depth.
+
+=item *
+
+The size of a C<w> command's window.
+
+=item *
+
+The before-this-line context to be printed in a C<v> (view a window around this line) command.
+
+=item *
+
+The fact that we're not in a sub at all right now.
+
+=item *
+
+The default SIGINT handler for the debugger.
+
+=item *
+
+The appropriate value of the flag in C<$^D> that says the debugger is running
+
+=item *
+
+The current debugger recursion level
+
+=item *
+
+The list of postponed items and the C<$single> stack (XXX define this)
+
+=item *
+
+That we want no return values and no subroutine entry/exit trace.
+
+=back
+
+=cut
+
+# The following BEGIN is very handy if debugger goes havoc, debugging debugger?
+
+use vars qw($db_stop);
+
+BEGIN {    # This does not compile, alas. (XXX eh?)
+    $IN  = \*STDIN;     # For bugs before DB::OUT has been opened
+    $OUT = \*STDERR;    # For errors before DB::OUT has been opened
+
+    # Define characters used by command parsing.
+    $sh       = '!';      # Shell escape (does not work)
+    $rc       = ',';      # Recall command (does not work)
+    @hist     = ('?');    # Show history (does not work)
+    @truehist = ();       # Can be saved for replay (per session)
+
+    # This defines the point at which you get the 'deep recursion'
+    # warning. It MUST be defined or the debugger will not load.
+    $deep = 1000;
+
+    # Number of lines around the current one that are shown in the
+    # 'w' command.
+    $window = 10;
+
+    # How much before-the-current-line context the 'v' command should
+    # use in calculating the start of the window it will display.
+    $preview = 3;
+
+    # We're not in any sub yet, but we need this to be a defined value.
+    $sub = '';
+
+    # Set up the debugger's interrupt handler. It simply sets a flag
+    # ($signal) that DB::DB() will check before each command is executed.
+    $SIG{INT} = \&DB::catch;
+
+    # The following lines supposedly, if uncommented, allow the debugger to
+    # debug itself. Perhaps we can try that someday.
+    # This may be enabled to debug debugger:
+    #$warnLevel = 1 unless defined $warnLevel;
+    #$dieLevel = 1 unless defined $dieLevel;
+    #$signalLevel = 1 unless defined $signalLevel;
+
+    # This is the flag that says "a debugger is running, please call
+    # DB::DB and DB::sub". We will turn it on forcibly before we try to
+    # execute anything in the user's context, because we always want to
+    # get control back.
+    $db_stop = 0;          # Compiler warning ...
+    $db_stop = 1 << 30;    # ... because this is only used in an eval() later.
+
+    # This variable records how many levels we're nested in debugging. Used
+    # Used in the debugger prompt, and in determining whether it's all over or
+    # not.
+    $level = 0;            # Level of recursive debugging
+
+    # "Triggers bug (?) in perl if we postpone this until runtime."
+    # XXX No details on this yet, or whether we should fix the bug instead
+    # of work around it. Stay tuned.
+    @stack = (0);
+
+    # Used to track the current stack depth using the auto-stacked-variable
+    # trick.
+    $stack_depth = 0;      # Localized repeatedly; simple way to track $#stack
+
+    # Don't print return values on exiting a subroutine.
+    $doret = -2;
+
+    # No extry/exit tracing.
+    $frame = 0;
+
+} ## end BEGIN
+
+BEGIN { $^W = $ini_warn; }    # Switch warnings back
+
+=head1 READLINE SUPPORT - COMPLETION FUNCTION
+
+=head2 db_complete
+
+C<readline> support - adds command completion to basic C<readline>.
+
+Returns a list of possible completions to C<readline> when invoked. C<readline>
+will print the longest common substring following the text already entered.
+
+If there is only a single possible completion, C<readline> will use it in full.
+
+This code uses C<map> and C<grep> heavily to create lists of possible
+completion. Think LISP in this section.
+
+=cut
+
+sub db_complete {
+
+    # Specific code for b c l V m f O, &blah, $blah, @blah, %blah
+    # $text is the text to be completed.
+    # $line is the incoming line typed by the user.
+    # $start is the start of the text to be completed in the incoming line.
+    my ( $text, $line, $start ) = @_;
+
+    # Save the initial text.
+    # The search pattern is current package, ::, extract the next qualifier
+    # Prefix and pack are set to undef.
+    my ( $itext, $search, $prefix, $pack ) =
+      ( $text, "^\Q${package}::\E([^:]+)\$" );
+
+=head3 C<b postpone|compile>
+
+=over 4
+
+=item *
+
+Find all the subroutines that might match in this package
+
+=item *
+
+Add C<postpone>, C<load>, and C<compile> as possibles (we may be completing the keyword itself)
+
+=item *
+
+Include all the rest of the subs that are known
+
+=item *
+
+C<grep> out the ones that match the text we have so far
+
+=item *
+
+Return this as the list of possible completions
+
+=back
+
+=cut
+
+    return sort grep /^\Q$text/, ( keys %sub ),
+      qw(postpone load compile),    # subroutines
+      ( map { /$search/ ? ($1) : () } keys %sub )
+      if ( substr $line, 0, $start ) =~ /^\|*[blc]\s+((postpone|compile)\s+)?$/;
+
+=head3 C<b load>
+
+Get all the possible files from C<@INC> as it currently stands and
+select the ones that match the text so far.
+
+=cut
+
+    return sort grep /^\Q$text/, values %INC    # files
+      if ( substr $line, 0, $start ) =~ /^\|*b\s+load\s+$/;
+
+=head3  C<V> (list variable) and C<m> (list modules)
+
+There are two entry points for these commands:
+
+=head4 Unqualified package names
+
+Get the top-level packages and grab everything that matches the text
+so far. For each match, recursively complete the partial packages to
+get all possible matching packages. Return this sorted list.
+
+=cut
+
+    return sort map { ( $_, db_complete( $_ . "::", "V ", 2 ) ) }
+      grep /^\Q$text/, map { /^(.*)::$/ ? ($1) : () } keys %::    # top-packages
+      if ( substr $line, 0, $start ) =~ /^\|*[Vm]\s+$/ and $text =~ /^\w*$/;
+
+=head4 Qualified package names
+
+Take a partially-qualified package and find all subpackages for it
+by getting all the subpackages for the package so far, matching all
+the subpackages against the text, and discarding all of them which
+start with 'main::'. Return this list.
+
+=cut
+
+    return sort map { ( $_, db_complete( $_ . "::", "V ", 2 ) ) }
+      grep !/^main::/, grep /^\Q$text/,
+      map { /^(.*)::$/ ? ( $prefix . "::$1" ) : () }
+      do { no strict 'refs'; keys %{ $prefix . '::' } }
+      if ( substr $line, 0, $start ) =~ /^\|*[Vm]\s+$/
+      and $text =~ /^(.*[^:])::?(\w*)$/
+      and $prefix = $1;
+
+=head3 C<f> - switch files
+
+Here, we want to get a fully-qualified filename for the C<f> command.
+Possibilities are:
+
+=over 4
+
+=item 1. The original source file itself
+
+=item 2. A file from C<@INC>
+
+=item 3. An C<eval> (the debugger gets a C<(eval N)> fake file for each C<eval>).
+
+=back
+
+=cut
+
+    if ( $line =~ /^\|*f\s+(.*)/ ) {    # Loaded files
+           # We might possibly want to switch to an eval (which has a "filename"
+           # like '(eval 9)'), so we may need to clean up the completion text
+           # before proceeding.
+        $prefix = length($1) - length($text);
+        $text   = $1;
+
+=pod
+
+Under the debugger, source files are represented as C<_E<lt>/fullpath/to/file>
+(C<eval>s are C<_E<lt>(eval NNN)>) keys in C<%main::>. We pull all of these
+out of C<%main::>, add the initial source file, and extract the ones that
+match the completion text so far.
+
+=cut
+
+        return sort
+          map { substr $_, 2 + $prefix } grep /^_<\Q$text/, ( keys %main:: ),
+          $0;
+    } ## end if ($line =~ /^\|*f\s+(.*)/)
+
+=head3 Subroutine name completion
+
+We look through all of the defined subs (the keys of C<%sub>) and
+return both all the possible matches to the subroutine name plus
+all the matches qualified to the current package.
+
+=cut
+
+    if ( ( substr $text, 0, 1 ) eq '&' ) {    # subroutines
+        $text = substr $text, 1;
+        $prefix = "&";
+        return sort map "$prefix$_", grep /^\Q$text/, ( keys %sub ),
+          (
+            map { /$search/ ? ($1) : () }
+              keys %sub
+          );
+    } ## end if ((substr $text, 0, ...
+
+=head3  Scalar, array, and hash completion: partially qualified package
+
+Much like the above, except we have to do a little more cleanup:
+
+=cut
+
+    if ( $text =~ /^[\$@%](.*)::(.*)/ ) {    # symbols in a package
+
+=pod
+
+=over 4
+
+=item *
+
+Determine the package that the symbol is in. Put it in C<::> (effectively C<main::>) if no package is specified.
+
+=cut
+
+        $pack = ( $1 eq 'main' ? '' : $1 ) . '::';
+
+=pod
+
+=item *
+
+Figure out the prefix vs. what needs completing.
+
+=cut
+
+        $prefix = ( substr $text, 0, 1 ) . $1 . '::';
+        $text   = $2;
+
+=pod
+
+=item *
+
+Look through all the symbols in the package. C<grep> out all the possible hashes/arrays/scalars, and then C<grep> the possible matches out of those. C<map> the prefix onto all the possibilities.
+
+=cut
+
+        my @out = do {
+            no strict 'refs';
+            map "$prefix$_", grep /^\Q$text/, grep /^_?[a-zA-Z]/,
+            keys %$pack;
+        };
+
+=pod
+
+=item *
+
+If there's only one hit, and it's a package qualifier, and it's not equal to the initial text, re-complete it using the symbol we actually found.
+
+=cut
+
+        if ( @out == 1 and $out[0] =~ /::$/ and $out[0] ne $itext ) {
+            return db_complete( $out[0], $line, $start );
+        }
+
+        # Return the list of possibles.
+        return sort @out;
+
+    } ## end if ($text =~ /^[\$@%](.*)::(.*)/)
+
+=pod
+
+=back
+
+=head3 Symbol completion: current package or package C<main>.
+
+=cut
+
+    if ( $text =~ /^[\$@%]/ ) {    # symbols (in $package + packages in main)
+=pod
+
+=over 4
+
+=item *
+
+If it's C<main>, delete main to just get C<::> leading.
+
+=cut
+
+        $pack = ( $package eq 'main' ? '' : $package ) . '::';
+
+=pod
+
+=item *
+
+We set the prefix to the item's sigil, and trim off the sigil to get the text to be completed.
+
+=cut
+
+        $prefix = substr $text, 0, 1;
+        $text   = substr $text, 1;
+
+        my @out;
+
+=pod
+
+=item *
+
+We look for the lexical scope above DB::DB and auto-complete lexical variables
+if PadWalker could be loaded.
+
+=cut
+
+        if (not $text =~ /::/ and eval {
+            local @INC = @INC;
+            pop @INC if $INC[-1] eq '.';
+            require PadWalker } ) {
+            my $level = 1;
+            while (1) {
+                my @info = caller($level);
+                $level++;
+                $level = -1, last
+                  if not @info;
+                last if $info[3] eq 'DB::DB';
+            }
+            if ($level > 0) {
+                my $lexicals = PadWalker::peek_my($level);
+                push @out, grep /^\Q$prefix$text/, keys %$lexicals;
+            }
+        }
+
+=pod
+
+=item *
+
+If the package is C<::> (C<main>), create an empty list; if it's something else, create a list of all the packages known.  Append whichever list to a list of all the possible symbols in the current package. C<grep> out the matches to the text entered so far, then C<map> the prefix back onto the symbols.
+
+=cut
+
+        push @out, map "$prefix$_", grep /^\Q$text/,
+          ( grep /^_?[a-zA-Z]/, do { no strict 'refs'; keys %$pack } ),
+          ( $pack eq '::' ? () : ( grep /::$/, keys %:: ) );
+
+=item *
+
+If there's only one hit, it's a package qualifier, and it's not equal to the initial text, recomplete using this symbol.
+
+=back
+
+=cut
+
+        if ( @out == 1 and $out[0] =~ /::$/ and $out[0] ne $itext ) {
+            return db_complete( $out[0], $line, $start );
+        }
+
+        # Return the list of possibles.
+        return sort @out;
+    } ## end if ($text =~ /^[\$@%]/)
+
+=head3 Options
+
+We use C<option_val()> to look up the current value of the option. If there's
+only a single value, we complete the command in such a way that it is a
+complete command for setting the option in question. If there are multiple
+possible values, we generate a command consisting of the option plus a trailing
+question mark, which, if executed, will list the current value of the option.
+
+=cut
+
+    if ( ( substr $line, 0, $start ) =~ /^\|*[oO]\b.*\s$/ )
+    {    # Options after space
+           # We look for the text to be matched in the list of possible options,
+           # and fetch the current value.
+        my @out = grep /^\Q$text/, @options;
+        my $val = option_val( $out[0], undef );
+
+        # Set up a 'query option's value' command.
+        my $out = '? ';
+        if ( not defined $val or $val =~ /[\n\r]/ ) {
+
+            # There's really nothing else we can do.
+        }
+
+        # We have a value. Create a proper option-setting command.
+        elsif ( $val =~ /\s/ ) {
+
+            # XXX This may be an extraneous variable.
+            my $found;
+
+            # We'll want to quote the string (because of the embedded
+            # whtespace), but we want to make sure we don't end up with
+            # mismatched quote characters. We try several possibilities.
+            foreach my $l ( split //, qq/\"\'\#\|/ ) {
+
+                # If we didn't find this quote character in the value,
+                # quote it using this quote character.
+                $out = "$l$val$l ", last if ( index $val, $l ) == -1;
+            }
+        } ## end elsif ($val =~ /\s/)
+
+        # Don't need any quotes.
+        else {
+            $out = "=$val ";
+        }
+
+        # If there were multiple possible values, return '? ', which
+        # makes the command into a query command. If there was just one,
+        # have readline append that.
+        $rl_attribs->{completer_terminator_character} =
+          ( @out == 1 ? $out : '? ' );
+
+        # Return list of possibilities.
+        return sort @out;
+    } ## end if ((substr $line, 0, ...
+
+=head3 Filename completion
+
+For entering filenames. We simply call C<readline>'s C<filename_list()>
+method with the completion text to get the possible completions.
+
+=cut
+
+    return $term->filename_list($text);    # filenames
+
+} ## end sub db_complete
+
+=head1 MISCELLANEOUS SUPPORT FUNCTIONS
+
+Functions that possibly ought to be somewhere else.
+
+=head2 end_report
+
+Say we're done.
+
+=cut
+
+sub end_report {
+    local $\ = '';
+    print $OUT "Use 'q' to quit or 'R' to restart.  'h q' for details.\n";
+}
+
+=head2 clean_ENV
+
+If we have $ini_pids, save it in the environment; else remove it from the
+environment. Used by the C<R> (restart) command.
+
+=cut
+
+sub clean_ENV {
+    if ( defined($ini_pids) ) {
+        $ENV{PERLDB_PIDS} = $ini_pids;
+    }
+    else {
+        delete( $ENV{PERLDB_PIDS} );
+    }
+} ## end sub clean_ENV
+
+# PERLDBf_... flag names from perl.h
+our ( %DollarCaretP_flags, %DollarCaretP_flags_r );
+
+BEGIN {
+    %DollarCaretP_flags = (
+        PERLDBf_SUB       => 0x01,     # Debug sub enter/exit
+        PERLDBf_LINE      => 0x02,     # Keep line #
+        PERLDBf_NOOPT     => 0x04,     # Switch off optimizations
+        PERLDBf_INTER     => 0x08,     # Preserve more data
+        PERLDBf_SUBLINE   => 0x10,     # Keep subr source lines
+        PERLDBf_SINGLE    => 0x20,     # Start with single-step on
+        PERLDBf_NONAME    => 0x40,     # For _SUB: no name of the subr
+        PERLDBf_GOTO      => 0x80,     # Report goto: call DB::goto
+        PERLDBf_NAMEEVAL  => 0x100,    # Informative names for evals
+        PERLDBf_NAMEANON  => 0x200,    # Informative names for anon subs
+        PERLDBf_SAVESRC   => 0x400,    # Save source lines into @{"_<$filename"}
+        PERLDB_ALL        => 0x33f,    # No _NONAME, _GOTO
+    );
+    # PERLDBf_LINE also enables the actions of PERLDBf_SAVESRC, so the debugger
+    # doesn't need to set it. It's provided for the benefit of profilers and
+    # other code analysers.
+
+    %DollarCaretP_flags_r = reverse %DollarCaretP_flags;
+}
+
+sub parse_DollarCaretP_flags {
+    my $flags = shift;
+    $flags =~ s/^\s+//;
+    $flags =~ s/\s+$//;
+    my $acu = 0;
+    foreach my $f ( split /\s*\|\s*/, $flags ) {
+        my $value;
+        if ( $f =~ /^0x([[:xdigit:]]+)$/ ) {
+            $value = hex $1;
+        }
+        elsif ( $f =~ /^(\d+)$/ ) {
+            $value = int $1;
+        }
+        elsif ( $f =~ /^DEFAULT$/i ) {
+            $value = $DollarCaretP_flags{PERLDB_ALL};
+        }
+        else {
+            $f =~ /^(?:PERLDBf_)?(.*)$/i;
+            $value = $DollarCaretP_flags{ 'PERLDBf_' . uc($1) };
+            unless ( defined $value ) {
+                print $OUT (
+                    "Unrecognized \$^P flag '$f'!\n",
+                    "Acceptable flags are: "
+                      . join( ', ', sort keys %DollarCaretP_flags ),
+                    ", and hexadecimal and decimal numbers.\n"
+                );
+                return undef;
+            }
+        }
+        $acu |= $value;
+    }
+    $acu;
+}
+
+sub expand_DollarCaretP_flags {
+    my $DollarCaretP = shift;
+    my @bits         = (
+        map {
+            my $n = ( 1 << $_ );
+            ( $DollarCaretP & $n )
+              ? ( $DollarCaretP_flags_r{$n}
+                  || sprintf( '0x%x', $n ) )
+              : ()
+          } 0 .. 31
+    );
+    return @bits ? join( '|', @bits ) : 0;
+}
+
+=over 4
+
+=item rerun
+
+Rerun the current session to:
+
+    rerun        current position
+
+    rerun 4      command number 4
+
+    rerun -4     current command minus 4 (go back 4 steps)
+
+Whether this always makes sense, in the current context is unknowable, and is
+in part left as a useful exercise for the reader.  This sub returns the
+appropriate arguments to rerun the current session.
+
+=cut
+
+sub rerun {
+    my $i = shift;
+    my @args;
+    pop(@truehist);                      # strim
+    unless (defined $truehist[$i]) {
+        print "Unable to return to non-existent command: $i\n";
+    } else {
+        $#truehist = ($i < 0 ? $#truehist + $i : $i > 0 ? $i : $#truehist);
+        my @temp = @truehist;            # store
+        push(@DB::typeahead, @truehist); # saved
+        @truehist = @hist = ();          # flush
+        @args = restart();              # setup
+        get_list("PERLDB_HIST");        # clean
+        set_list("PERLDB_HIST", @temp); # reset
+    }
+    return @args;
+}
+
+=item restart
+
+Restarting the debugger is a complex operation that occurs in several phases.
+First, we try to reconstruct the command line that was used to invoke Perl
+and the debugger.
+
+=cut
+
+sub restart {
+    # I may not be able to resurrect you, but here goes ...
+    print $OUT
+"Warning: some settings and command-line options may be lost!\n";
+    my ( @script, @flags, $cl );
+
+    # If warn was on before, turn it on again.
+    push @flags, '-w' if $ini_warn;
+
+    # Rebuild the -I flags that were on the initial
+    # command line.
+    for (@ini_INC) {
+        push @flags, '-I', $_;
+    }
+
+    # Turn on taint if it was on before.
+    push @flags, '-T' if ${^TAINT};
+
+    # Arrange for setting the old INC:
+    # Save the current @init_INC in the environment.
+    set_list( "PERLDB_INC", @ini_INC );
+
+    # If this was a perl one-liner, go to the "file"
+    # corresponding to the one-liner read all the lines
+    # out of it (except for the first one, which is going
+    # to be added back on again when 'perl -d' runs: that's
+    # the 'require perl5db.pl;' line), and add them back on
+    # to the command line to be executed.
+    if ( $0 eq '-e' ) {
+        my $lines = *{$main::{'_<-e'}}{ARRAY};
+        for ( 1 .. $#$lines ) {  # The first line is PERL5DB
+            chomp( $cl = $lines->[$_] );
+            push @script, '-e', $cl;
+        }
+    } ## end if ($0 eq '-e')
+
+    # Otherwise we just reuse the original name we had
+    # before.
+    else {
+        @script = $0;
+    }
+
+=pod
+
+After the command line  has been reconstructed, the next step is to save
+the debugger's status in environment variables. The C<DB::set_list> routine
+is used to save aggregate variables (both hashes and arrays); scalars are
+just popped into environment variables directly.
+
+=cut
+
+    # If the terminal supported history, grab it and
+    # save that in the environment.
+    set_list( "PERLDB_HIST",
+          $term->Features->{getHistory}
+        ? $term->GetHistory
+        : @hist );
+
+    # Find all the files that were visited during this
+    # session (i.e., the debugger had magic hashes
+    # corresponding to them) and stick them in the environment.
+    my @had_breakpoints = keys %had_breakpoints;
+    set_list( "PERLDB_VISITED", @had_breakpoints );
+
+    # Save the debugger options we chose.
+    set_list( "PERLDB_OPT", %option );
+    # set_list( "PERLDB_OPT", options2remember() );
+
+    # Save the break-on-loads.
+    set_list( "PERLDB_ON_LOAD", %break_on_load );
+
+=pod
+
+The most complex part of this is the saving of all of the breakpoints. They
+can live in an awful lot of places, and we have to go through all of them,
+find the breakpoints, and then save them in the appropriate environment
+variable via C<DB::set_list>.
+
+=cut
+
+    # Go through all the breakpoints and make sure they're
+    # still valid.
+    my @hard;
+    for ( 0 .. $#had_breakpoints ) {
+
+        # We were in this file.
+        my $file = $had_breakpoints[$_];
+
+        # Grab that file's magic line hash.
+        *dbline = $main::{ '_<' . $file };
+
+        # Skip out if it doesn't exist, or if the breakpoint
+        # is in a postponed file (we'll do postponed ones
+        # later).
+        next unless %dbline or $postponed_file{$file};
+
+        # In an eval. This is a little harder, so we'll
+        # do more processing on that below.
+        ( push @hard, $file ), next
+          if $file =~ /^\(\w*eval/;
+
+        # XXX I have no idea what this is doing. Yet.
+        my @add;
+        @add = %{ $postponed_file{$file} }
+          if $postponed_file{$file};
+
+        # Save the list of all the breakpoints for this file.
+        set_list( "PERLDB_FILE_$_", %dbline, @add );
+
+        # Serialize the extra data %breakpoints_data hash.
+        # That's a bug fix.
+        set_list( "PERLDB_FILE_ENABLED_$_",
+            map { _is_breakpoint_enabled($file, $_) ? 1 : 0 }
+            sort { $a <=> $b } keys(%dbline)
+        )
+    } ## end for (0 .. $#had_breakpoints)
+
+    # The breakpoint was inside an eval. This is a little
+    # more difficult. XXX and I don't understand it.
+    foreach my $hard_file (@hard) {
+        # Get over to the eval in question.
+        *dbline = $main::{ '_<' . $hard_file };
+        my $quoted = quotemeta $hard_file;
+        my %subs;
+        for my $sub ( keys %sub ) {
+            if (my ($n1, $n2) = $sub{$sub} =~ /\A$quoted:(\d+)-(\d+)\z/) {
+                $subs{$sub} = [ $n1, $n2 ];
+            }
+        }
+        unless (%subs) {
+            print {$OUT}
+            "No subroutines in $hard_file, ignoring breakpoints.\n";
+            next;
+        }
+        LINES: foreach my $line ( keys %dbline ) {
+
+            # One breakpoint per sub only:
+            my ( $offset, $found );
+            SUBS: foreach my $sub ( keys %subs ) {
+                if (
+                    $subs{$sub}->[1] >= $line    # Not after the subroutine
+                    and (
+                        not defined $offset    # Not caught
+                            or $offset < 0
+                    )
+                )
+                {                              # or badly caught
+                    $found  = $sub;
+                    $offset = $line - $subs{$sub}->[0];
+                    if ($offset >= 0) {
+                        $offset = "+$offset";
+                        last SUBS;
+                    }
+                } ## end if ($subs{$sub}->[1] >=...
+            } ## end for $sub (keys %subs)
+            if ( defined $offset ) {
+                $postponed{$found} =
+                "break $offset if $dbline{$line}";
+            }
+            else {
+                print {$OUT}
+                ("Breakpoint in ${hard_file}:$line ignored:"
+                . " after all the subroutines.\n");
+            }
+        } ## end for $line (keys %dbline)
+    } ## end for (@hard)
+
+    # Save the other things that don't need to be
+    # processed.
+    set_list( "PERLDB_POSTPONE",  %postponed );
+    set_list( "PERLDB_PRETYPE",   @$pretype );
+    set_list( "PERLDB_PRE",       @$pre );
+    set_list( "PERLDB_POST",      @$post );
+    set_list( "PERLDB_TYPEAHEAD", @typeahead );
+
+    # We are officially restarting.
+    $ENV{PERLDB_RESTART} = 1;
+
+    # We are junking all child debuggers.
+    delete $ENV{PERLDB_PIDS};    # Restore ini state
+
+    # Set this back to the initial pid.
+    $ENV{PERLDB_PIDS} = $ini_pids if defined $ini_pids;
+
+=pod
+
+After all the debugger status has been saved, we take the command we built up
+and then return it, so we can C<exec()> it. The debugger will spot the
+C<PERLDB_RESTART> environment variable and realize it needs to reload its state
+from the environment.
+
+=cut
+
+    # And run Perl again. Add the "-d" flag, all the
+    # flags we built up, the script (whether a one-liner
+    # or a file), add on the -emacs flag for a slave editor,
+    # and then the old arguments.
+
+    return ($^X, '-d', @flags, @script, ($slave_editor ? '-emacs' : ()), @ARGS);
+
+};  # end restart
+
+=back
+
+=head1 END PROCESSING - THE C<END> BLOCK
+
+Come here at the very end of processing. We want to go into a
+loop where we allow the user to enter commands and interact with the
+debugger, but we don't want anything else to execute.
+
+First we set the C<$finished> variable, so that some commands that
+shouldn't be run after the end of program quit working.
+
+We then figure out whether we're truly done (as in the user entered a C<q>
+command, or we finished execution while running nonstop). If we aren't,
+we set C<$single> to 1 (causing the debugger to get control again).
+
+We then call C<DB::fake::at_exit()>, which returns the C<Use 'q' to quit ...>
+message and returns control to the debugger. Repeat.
+
+When the user finally enters a C<q> command, C<$fall_off_end> is set to
+1 and the C<END> block simply exits with C<$single> set to 0 (don't
+break, run to completion.).
+
+=cut
+
+END {
+    $finished = 1 if $inhibit_exit;    # So that some commands may be disabled.
+    $fall_off_end = 1 unless $inhibit_exit;
+
+    # Do not stop in at_exit() and destructors on exit:
+    if ($fall_off_end or $runnonstop) {
+        save_hist();
+    } else {
+        $DB::single = 1;
+        DB::fake::at_exit();
+    }
+} ## end END
+
+=head1 PRE-5.8 COMMANDS
+
+Some of the commands changed function quite a bit in the 5.8 command
+realignment, so much so that the old code had to be replaced completely.
+Because we wanted to retain the option of being able to go back to the
+former command set, we moved the old code off to this section.
+
+There's an awful lot of duplicated code here. We've duplicated the
+comments to keep things clear.
+
+=head2 Null command
+
+Does nothing. Used to I<turn off> commands.
+
+=cut
+
+sub cmd_pre580_null {
+
+    # do nothing...
+}
+
+=head2 Old C<a> command.
+
+This version added actions if you supplied them, and deleted them
+if you didn't.
+
+=cut
+
+sub cmd_pre580_a {
+    my $xcmd = shift;
+    my $cmd  = shift;
+
+    # Argument supplied. Add the action.
+    if ( $cmd =~ /^(\d*)\s*(.*)/ ) {
+
+        # If the line isn't there, use the current line.
+        my $i = $1 || $line;
+        my $j = $2;
+
+        # If there is an action ...
+        if ( length $j ) {
+
+            # ... but the line isn't breakable, skip it.
+            if ( $dbline[$i] == 0 ) {
+                print $OUT "Line $i may not have an action.\n";
+            }
+            else {
+
+                # ... and the line is breakable:
+                # Mark that there's an action in this file.
+                $had_breakpoints{$filename} |= 2;
+
+                # Delete any current action.
+                $dbline{$i} =~ s/\0[^\0]*//;
+
+                # Add the new action, continuing the line as needed.
+                $dbline{$i} .= "\0" . action($j);
+            }
+        } ## end if (length $j)
+
+        # No action supplied.
+        else {
+
+            # Delete the action.
+            $dbline{$i} =~ s/\0[^\0]*//;
+
+            # Mark as having no break or action if nothing's left.
+            delete $dbline{$i} if $dbline{$i} eq '';
+        }
+    } ## end if ($cmd =~ /^(\d*)\s*(.*)/)
+} ## end sub cmd_pre580_a
+
+=head2 Old C<b> command
+
+Add breakpoints.
+
+=cut
+
+sub cmd_pre580_b {
+    my $xcmd   = shift;
+    my $cmd    = shift;
+    my $dbline = shift;
+
+    # Break on load.
+    if ( $cmd =~ /^load\b\s*(.*)/ ) {
+        my $file = $1;
+        $file =~ s/\s+$//;
+        cmd_b_load($file);
+    }
+
+    # b compile|postpone <some sub> [<condition>]
+    # The interpreter actually traps this one for us; we just put the
+    # necessary condition in the %postponed hash.
+    elsif ( $cmd =~ /^(postpone|compile)\b\s*([':A-Za-z_][':\w]*)\s*(.*)/ ) {
+
+        # Capture the condition if there is one. Make it true if none.
+        my $cond = length $3 ? $3 : '1';
+
+        # Save the sub name and set $break to 1 if $1 was 'postpone', 0
+        # if it was 'compile'.
+        my ( $subname, $break ) = ( $2, $1 eq 'postpone' );
+
+        # De-Perl4-ify the name - ' separators to ::.
+        $subname =~ s/\'/::/g;
+
+        # Qualify it into the current package unless it's already qualified.
+        $subname = "${package}::" . $subname
+          unless $subname =~ /::/;
+
+        # Add main if it starts with ::.
+        $subname = "main" . $subname if substr( $subname, 0, 2 ) eq "::";
+
+        # Save the break type for this sub.
+        $postponed{$subname} = $break ? "break +0 if $cond" : "compile";
+    } ## end elsif ($cmd =~ ...
+
+    # b <sub name> [<condition>]
+    elsif ( $cmd =~ /^([':A-Za-z_][':\w]*(?:\[.*\])?)\s*(.*)/ ) {
+        my $subname = $1;
+        my $cond = length $2 ? $2 : '1';
+        cmd_b_sub( $subname, $cond );
+    }
+    # b <line> [<condition>].
+    elsif ( $cmd =~ /^(\d*)\s*(.*)/ ) {
+        my $i = $1 || $dbline;
+        my $cond = length $2 ? $2 : '1';
+        cmd_b_line( $i, $cond );
+    }
+} ## end sub cmd_pre580_b
+
+=head2 Old C<D> command.
+
+Delete all breakpoints unconditionally.
+
+=cut
+
+sub cmd_pre580_D {
+    my $xcmd = shift;
+    my $cmd  = shift;
+    if ( $cmd =~ /^\s*$/ ) {
+        print $OUT "Deleting all breakpoints...\n";
+
+        # %had_breakpoints lists every file that had at least one
+        # breakpoint in it.
+        my $file;
+        for $file ( keys %had_breakpoints ) {
+
+            # Switch to the desired file temporarily.
+            local *dbline = $main::{ '_<' . $file };
+
+            $max = $#dbline;
+            my $was;
+
+            # For all lines in this file ...
+            for my $i (1 .. $max) {
+
+                # If there's a breakpoint or action on this line ...
+                if ( defined $dbline{$i} ) {
+
+                    # ... remove the breakpoint.
+                    $dbline{$i} =~ s/^[^\0]+//;
+                    if ( $dbline{$i} =~ s/^\0?$// ) {
+
+                        # Remove the entry altogether if no action is there.
+                        delete $dbline{$i};
+                    }
+                } ## end if (defined $dbline{$i...
+            } ## end for my $i (1 .. $max)
+
+            # If, after we turn off the "there were breakpoints in this file"
+            # bit, the entry in %had_breakpoints for this file is zero,
+            # we should remove this file from the hash.
+            if ( not $had_breakpoints{$file} &= ~1 ) {
+                delete $had_breakpoints{$file};
+            }
+        } ## end for $file (keys %had_breakpoints)
+
+        # Kill off all the other breakpoints that are waiting for files that
+        # haven't been loaded yet.
+        undef %postponed;
+        undef %postponed_file;
+        undef %break_on_load;
+    } ## end if ($cmd =~ /^\s*$/)
+} ## end sub cmd_pre580_D
+
+=head2 Old C<h> command
+
+Print help. Defaults to printing the long-form help; the 5.8 version
+prints the summary by default.
+
+=cut
+
+sub cmd_pre580_h {
+    my $xcmd = shift;
+    my $cmd  = shift;
+
+    # Print the *right* help, long format.
+    if ( $cmd =~ /^\s*$/ ) {
+        print_help($pre580_help);
+    }
+
+    # 'h h' - explicitly-requested summary.
+    elsif ( $cmd =~ /^h\s*/ ) {
+        print_help($pre580_summary);
+    }
+
+    # Find and print a command's help.
+    elsif ( $cmd =~ /^h\s+(\S.*)$/ ) {
+        my $asked  = $1;                   # for proper errmsg
+        my $qasked = quotemeta($asked);    # for searching
+                                           # XXX: finds CR but not <CR>
+        if (
+            $pre580_help =~ /^
+                              <?           # Optional '<'
+                              (?:[IB]<)    # Optional markup
+                              $qasked      # The command name
+                            /mx
+          )
+        {
+
+            while (
+                $pre580_help =~ /^
+                                  (             # The command help:
+                                   <?           # Optional '<'
+                                   (?:[IB]<)    # Optional markup
+                                   $qasked      # The command name
+                                   ([\s\S]*?)   # Lines starting with tabs
+                                   \n           # Final newline
+                                  )
+                                  (?!\s)/mgx
+              )    # Line not starting with space
+                   # (Next command's help)
+            {
+                print_help($1);
+            }
+        } ## end if ($pre580_help =~ /^<?(?:[IB]<)$qasked/m)
+
+        # Help not found.
+        else {
+            print_help("B<$asked> is not a debugger command.\n");
+        }
+    } ## end elsif ($cmd =~ /^h\s+(\S.*)$/)
+} ## end sub cmd_pre580_h
+
+=head2 Old C<W> command
+
+C<W E<lt>exprE<gt>> adds a watch expression, C<W> deletes them all.
+
+=cut
+
+sub cmd_pre580_W {
+    my $xcmd = shift;
+    my $cmd  = shift;
+
+    # Delete all watch expressions.
+    if ( $cmd =~ /^$/ ) {
+
+        # No watching is going on.
+        $trace &= ~2;
+
+        # Kill all the watch expressions and values.
+        @to_watch = @old_watch = ();
+    }
+
+    # Add a watch expression.
+    elsif ( $cmd =~ /^(.*)/s ) {
+
+        # add it to the list to be watched.
+        push @to_watch, $1;
+
+        # Get the current value of the expression.
+        # Doesn't handle expressions returning list values!
+        $evalarg = $1;
+        # The &-call is here to ascertain the mutability of @_.
+        my ($val) = &DB::eval;
+        $val = ( defined $val ) ? "'$val'" : 'undef';
+
+        # Save it.
+        push @old_watch, $val;
+
+        # We're watching stuff.
+        $trace |= 2;
+
+    } ## end elsif ($cmd =~ /^(.*)/s)
+} ## end sub cmd_pre580_W
+
+=head1 PRE-AND-POST-PROMPT COMMANDS AND ACTIONS
+
+The debugger used to have a bunch of nearly-identical code to handle
+the pre-and-post-prompt action commands. C<cmd_pre590_prepost> and
+C<cmd_prepost> unify all this into one set of code to handle the
+appropriate actions.
+
+=head2 C<cmd_pre590_prepost>
+
+A small wrapper around C<cmd_prepost>; it makes sure that the default doesn't
+do something destructive. In pre 5.8 debuggers, the default action was to
+delete all the actions.
+
+=cut
+
+sub cmd_pre590_prepost {
+    my $cmd    = shift;
+    my $line   = shift || '*';
+    my $dbline = shift;
+
+    return cmd_prepost( $cmd, $line, $dbline );
+} ## end sub cmd_pre590_prepost
+
+=head2 C<cmd_prepost>
+
+Actually does all the handling for C<E<lt>>, C<E<gt>>, C<{{>, C<{>, etc.
+Since the lists of actions are all held in arrays that are pointed to by
+references anyway, all we have to do is pick the right array reference and
+then use generic code to all, delete, or list actions.
+
+=cut
+
+sub cmd_prepost {
+    my $cmd = shift;
+
+    # No action supplied defaults to 'list'.
+    my $line = shift || '?';
+
+    # Figure out what to put in the prompt.
+    my $which = '';
+
+    # Make sure we have some array or another to address later.
+    # This means that if for some reason the tests fail, we won't be
+    # trying to stash actions or delete them from the wrong place.
+    my $aref = [];
+
+    # < - Perl code to run before prompt.
+    if ( $cmd =~ /^\</o ) {
+        $which = 'pre-perl';
+        $aref  = $pre;
+    }
+
+    # > - Perl code to run after prompt.
+    elsif ( $cmd =~ /^\>/o ) {
+        $which = 'post-perl';
+        $aref  = $post;
+    }
+
+    # { - first check for properly-balanced braces.
+    elsif ( $cmd =~ /^\{/o ) {
+        if ( $cmd =~ /^\{.*\}$/o && unbalanced( substr( $cmd, 1 ) ) ) {
+            print $OUT
+"$cmd is now a debugger command\nuse ';$cmd' if you mean Perl code\n";
+        }
+
+        # Properly balanced. Pre-prompt debugger actions.
+        else {
+            $which = 'pre-debugger';
+            $aref  = $pretype;
+        }
+    } ## end elsif ( $cmd =~ /^\{/o )
+
+    # Did we find something that makes sense?
+    unless ($which) {
+        print $OUT "Confused by command: $cmd\n";
+    }
+
+    # Yes.
+    else {
+
+        # List actions.
+        if ( $line =~ /^\s*\?\s*$/o ) {
+            unless (@$aref) {
+
+                # Nothing there. Complain.
+                print $OUT "No $which actions.\n";
+            }
+            else {
+
+                # List the actions in the selected list.
+                print $OUT "$which commands:\n";
+                foreach my $action (@$aref) {
+                    print $OUT "\t$cmd -- $action\n";
+                }
+            } ## end else
+        } ## end if ( $line =~ /^\s*\?\s*$/o)
+
+        # Might be a delete.
+        else {
+            if ( length($cmd) == 1 ) {
+                if ( $line =~ /^\s*\*\s*$/o ) {
+
+                    # It's a delete. Get rid of the old actions in the
+                    # selected list..
+                    @$aref = ();
+                    print $OUT "All $cmd actions cleared.\n";
+                }
+                else {
+
+                    # Replace all the actions. (This is a <, >, or {).
+                    @$aref = action($line);
+                }
+            } ## end if ( length($cmd) == 1)
+            elsif ( length($cmd) == 2 ) {
+
+                # Add the action to the line. (This is a <<, >>, or {{).
+                push @$aref, action($line);
+            }
+            else {
+
+                # <<<, >>>>, {{{{{{ ... something not a command.
+                print $OUT
+                  "Confused by strange length of $which command($cmd)...\n";
+            }
+        } ## end else [ if ( $line =~ /^\s*\?\s*$/o)
+    } ## end else
+} ## end sub cmd_prepost
+
+=head1 C<DB::fake>
+
+Contains the C<at_exit> routine that the debugger uses to issue the
+C<Debugged program terminated ...> message after the program completes. See
+the C<END> block documentation for more details.
+
+=cut
+
+package DB::fake;
+
+sub at_exit {
+    "Debugged program terminated.  Use 'q' to quit or 'R' to restart.";
+}
+
+package DB;    # Do not trace this 1; below!
+
+1;
+
+
diff --git a/lib/5.24.1/perlfaq.pm b/lib/5.24.1/perlfaq.pm
new file mode 100644
index 00000000..0be9c18d
--- /dev/null
+++ b/lib/5.24.1/perlfaq.pm
@@ -0,0 +1,5 @@
+use strict;
+use warnings;
+package perlfaq;
+$perlfaq::VERSION = '5.021010';
+1;
diff --git a/lib/5.24.1/pod/perl.pod b/lib/5.24.1/pod/perl.pod
new file mode 100644
index 00000000..671044e7
--- /dev/null
+++ b/lib/5.24.1/pod/perl.pod
@@ -0,0 +1,424 @@
+=head1 NAME
+
+perl - The Perl 5 language interpreter
+
+=head1 SYNOPSIS
+
+B<perl>	S<[ B<-sTtuUWX> ]>
+	S<[ B<-hv> ] [ B<-V>[:I<configvar>] ]>
+	S<[ B<-cw> ] [ B<-d>[B<t>][:I<debugger>] ] [ B<-D>[I<number/list>] ]>
+	S<[ B<-pna> ] [ B<-F>I<pattern> ] [ B<-l>[I<octal>] ] [ B<-0>[I<octal/hexadecimal>] ]>
+	S<[ B<-I>I<dir> ] [ B<-m>[B<->]I<module> ] [ B<-M>[B<->]I<'module...'> ] [ B<-f> ]>
+	S<[ B<-C [I<number/list>] >]>
+	S<[ B<-S> ]>
+	S<[ B<-x>[I<dir>] ]>
+	S<[ B<-i>[I<extension>] ]>
+	S<[ [B<-e>|B<-E>] I<'command'> ] [ B<--> ] [ I<programfile> ] [ I<argument> ]...>
+
+For more information on these options, you can run C<perldoc perlrun>.
+
+=head1 GETTING HELP
+
+The F<perldoc> program gives you access to all the documentation that comes
+with Perl.  You can get more documentation, tutorials and community support
+online at L<http://www.perl.org/>.
+
+If you're new to Perl, you should start by running C<perldoc perlintro>,
+which is a general intro for beginners and provides some background to help
+you navigate the rest of Perl's extensive documentation.  Run C<perldoc
+perldoc> to learn more things you can do with F<perldoc>.
+
+For ease of access, the Perl manual has been split up into several sections.
+
+=begin buildtoc
+
+# This section is parsed by Porting/pod_lib.pl for use by pod/buildtoc etc
+
+flag =g  perluniprops perlmodlib perlapi perlintern
+flag =go perltoc
+flag =ro perlcn perljp perlko perltw
+flag =   perlvms
+
+path perlfaq.*               cpan/perlfaq/lib/
+path perlglossary            cpan/perlfaq/lib/
+path perlxs(?:tut|typemap)?  dist/ExtUtils-ParseXS/lib/
+path perldoc                 cpan/Pod-Perldoc/
+
+aux c2ph h2ph h2xs perlbug pl2pm pod2html pod2man splain xsubpp
+
+=end buildtoc
+
+=head2 Overview
+
+    perl		Perl overview (this section)
+    perlintro		Perl introduction for beginners
+    perlrun		Perl execution and options
+    perltoc		Perl documentation table of contents
+
+=head2 Tutorials
+
+    perlreftut		Perl references short introduction
+    perldsc		Perl data structures intro
+    perllol		Perl data structures: arrays of arrays
+
+    perlrequick 	Perl regular expressions quick start
+    perlretut		Perl regular expressions tutorial
+
+    perlootut		Perl OO tutorial for beginners
+
+    perlperf		Perl Performance and Optimization Techniques
+
+    perlstyle		Perl style guide
+
+    perlcheat		Perl cheat sheet
+    perltrap		Perl traps for the unwary
+    perldebtut		Perl debugging tutorial
+
+    perlfaq		Perl frequently asked questions
+      perlfaq1		General Questions About Perl
+      perlfaq2		Obtaining and Learning about Perl
+      perlfaq3		Programming Tools
+      perlfaq4		Data Manipulation
+      perlfaq5		Files and Formats
+      perlfaq6		Regexes
+      perlfaq7		Perl Language Issues
+      perlfaq8		System Interaction
+      perlfaq9		Networking
+
+=head2 Reference Manual
+
+    perlsyn		Perl syntax
+    perldata		Perl data structures
+    perlop		Perl operators and precedence
+    perlsub		Perl subroutines
+    perlfunc		Perl built-in functions
+      perlopentut	Perl open() tutorial
+      perlpacktut	Perl pack() and unpack() tutorial
+    perlpod		Perl plain old documentation
+    perlpodspec 	Perl plain old documentation format specification
+    perlpodstyle	Perl POD style guide
+    perldiag		Perl diagnostic messages
+    perllexwarn 	Perl warnings and their control
+    perldebug		Perl debugging
+    perlvar		Perl predefined variables
+    perlre		Perl regular expressions, the rest of the story
+    perlrebackslash	Perl regular expression backslash sequences
+    perlrecharclass	Perl regular expression character classes
+    perlreref		Perl regular expressions quick reference
+    perlref		Perl references, the rest of the story
+    perlform		Perl formats
+    perlobj		Perl objects
+    perltie		Perl objects hidden behind simple variables
+      perldbmfilter	Perl DBM filters
+
+    perlipc		Perl interprocess communication
+    perlfork		Perl fork() information
+    perlnumber		Perl number semantics
+
+    perlthrtut		Perl threads tutorial
+
+    perlport		Perl portability guide
+    perllocale		Perl locale support
+    perluniintro	Perl Unicode introduction
+    perlunicode 	Perl Unicode support
+    perlunicook 	Perl Unicode cookbook
+    perlunifaq		Perl Unicode FAQ
+    perluniprops	Index of Unicode properties in Perl
+    perlunitut		Perl Unicode tutorial
+    perlebcdic		Considerations for running Perl on EBCDIC platforms
+
+    perlsec		Perl security
+
+    perlmod		Perl modules: how they work
+    perlmodlib		Perl modules: how to write and use
+    perlmodstyle	Perl modules: how to write modules with style
+    perlmodinstall	Perl modules: how to install from CPAN
+    perlnewmod		Perl modules: preparing a new module for distribution
+    perlpragma		Perl modules: writing a user pragma
+
+    perlutil		utilities packaged with the Perl distribution
+
+    perlfilter		Perl source filters
+
+    perldtrace		Perl's support for DTrace
+
+    perlglossary	Perl Glossary
+
+=head2 Internals and C Language Interface
+
+    perlembed		Perl ways to embed perl in your C or C++ application
+    perldebguts 	Perl debugging guts and tips
+    perlxstut		Perl XS tutorial
+    perlxs		Perl XS application programming interface
+    perlxstypemap	Perl XS C/Perl type conversion tools
+    perlclib		Internal replacements for standard C library functions
+    perlguts		Perl internal functions for those doing extensions
+    perlcall		Perl calling conventions from C
+    perlmroapi		Perl method resolution plugin interface
+    perlreapi		Perl regular expression plugin interface
+    perlreguts		Perl regular expression engine internals
+
+    perlapi		Perl API listing (autogenerated)
+    perlintern		Perl internal functions (autogenerated)
+    perliol		C API for Perl's implementation of IO in Layers
+    perlapio		Perl internal IO abstraction interface
+
+    perlhack		Perl hackers guide
+    perlsource		Guide to the Perl source tree
+    perlinterp		Overview of the Perl interpreter source and how it works
+    perlhacktut 	Walk through the creation of a simple C code patch
+    perlhacktips	Tips for Perl core C code hacking
+    perlpolicy		Perl development policies
+    perlgit		Using git with the Perl repository
+
+=head2 Miscellaneous
+
+    perlbook		Perl book information
+    perlcommunity	Perl community information
+
+    perldoc		Look up Perl documentation in Pod format
+
+    perlhist		Perl history records
+    perldelta		Perl changes since previous version
+    perl5240delta	Perl changes in version 5.24.0
+    perl5222delta	Perl changes in version 5.22.2
+    perl5221delta	Perl changes in version 5.22.1
+    perl5220delta	Perl changes in version 5.22.0
+    perl5203delta	Perl changes in version 5.20.3
+    perl5202delta	Perl changes in version 5.20.2
+    perl5201delta	Perl changes in version 5.20.1
+    perl5200delta	Perl changes in version 5.20.0
+    perl5184delta	Perl changes in version 5.18.4
+    perl5182delta	Perl changes in version 5.18.2
+    perl5181delta	Perl changes in version 5.18.1
+    perl5180delta	Perl changes in version 5.18.0
+    perl5163delta	Perl changes in version 5.16.3
+    perl5162delta	Perl changes in version 5.16.2
+    perl5161delta	Perl changes in version 5.16.1
+    perl5160delta	Perl changes in version 5.16.0
+    perl5144delta	Perl changes in version 5.14.4
+    perl5143delta	Perl changes in version 5.14.3
+    perl5142delta	Perl changes in version 5.14.2
+    perl5141delta	Perl changes in version 5.14.1
+    perl5140delta	Perl changes in version 5.14.0
+    perl5125delta	Perl changes in version 5.12.5
+    perl5124delta	Perl changes in version 5.12.4
+    perl5123delta	Perl changes in version 5.12.3
+    perl5122delta	Perl changes in version 5.12.2
+    perl5121delta	Perl changes in version 5.12.1
+    perl5120delta	Perl changes in version 5.12.0
+    perl5101delta	Perl changes in version 5.10.1
+    perl5100delta	Perl changes in version 5.10.0
+    perl589delta	Perl changes in version 5.8.9
+    perl588delta	Perl changes in version 5.8.8
+    perl587delta	Perl changes in version 5.8.7
+    perl586delta	Perl changes in version 5.8.6
+    perl585delta	Perl changes in version 5.8.5
+    perl584delta	Perl changes in version 5.8.4
+    perl583delta	Perl changes in version 5.8.3
+    perl582delta	Perl changes in version 5.8.2
+    perl581delta	Perl changes in version 5.8.1
+    perl58delta 	Perl changes in version 5.8.0
+    perl561delta	Perl changes in version 5.6.1
+    perl56delta 	Perl changes in version 5.6
+    perl5005delta	Perl changes in version 5.005
+    perl5004delta	Perl changes in version 5.004
+
+    perlexperiment	A listing of experimental features in Perl
+
+    perlartistic	Perl Artistic License
+    perlgpl		GNU General Public License
+
+=head2 Language-Specific
+
+=for buildtoc flag +r
+
+    perlcn		Perl for Simplified Chinese (in EUC-CN)
+    perljp		Perl for Japanese (in EUC-JP)
+    perlko		Perl for Korean (in EUC-KR)
+    perltw		Perl for Traditional Chinese (in Big5)
+
+=head2 Platform-Specific
+
+    perlaix		Perl notes for AIX
+    perlamiga		Perl notes for AmigaOS
+    perlandroid		Perl notes for Android
+    perlbs2000		Perl notes for POSIX-BC BS2000
+    perlce		Perl notes for WinCE
+    perlcygwin		Perl notes for Cygwin
+    perldos		Perl notes for DOS
+    perlfreebsd 	Perl notes for FreeBSD
+    perlhaiku		Perl notes for Haiku
+    perlhpux		Perl notes for HP-UX
+    perlhurd		Perl notes for Hurd
+    perlirix		Perl notes for Irix
+    perllinux		Perl notes for Linux
+    perlmacos		Perl notes for Mac OS (Classic)
+    perlmacosx		Perl notes for Mac OS X
+    perlnetware 	Perl notes for NetWare
+    perlopenbsd 	Perl notes for OpenBSD
+    perlos2		Perl notes for OS/2
+    perlos390		Perl notes for OS/390
+    perlos400		Perl notes for OS/400
+    perlplan9		Perl notes for Plan 9
+    perlqnx		Perl notes for QNX
+    perlriscos		Perl notes for RISC OS
+    perlsolaris 	Perl notes for Solaris
+    perlsymbian 	Perl notes for Symbian
+    perlsynology 	Perl notes for Synology
+    perltru64		Perl notes for Tru64
+    perlvms		Perl notes for VMS
+    perlvos		Perl notes for Stratus VOS
+    perlwin32		Perl notes for Windows
+
+=for buildtoc flag -r
+
+=head2 Stubs for Deleted Documents
+
+    perlboot		
+    perlbot		
+    perlrepository
+    perltodo
+    perltooc		
+    perltoot		
+
+=for buildtoc __END__
+
+On a Unix-like system, these documentation files will usually also be
+available as manpages for use with the F<man> program.
+
+Some documentation is not available as man pages, so if a
+cross-reference is not found by man, try it with L<perldoc>.  Perldoc can
+also take you directly to documentation for functions (with the B<-f>
+switch). See C<perldoc --help> (or C<perldoc perldoc> or C<man perldoc>)
+for other helpful options L<perldoc> has to offer.
+
+In general, if something strange has gone wrong with your program and you're
+not sure where you should look for help, try making your code comply with
+B<use strict> and B<use warnings>.  These will often point out exactly
+where the trouble is.
+
+=head1 DESCRIPTION
+
+Perl officially stands for Practical Extraction and Report Language,
+except when it doesn't.
+
+Perl was originally a language optimized for scanning arbitrary
+text files, extracting information from those text files, and printing
+reports based on that information.  It quickly became a good language
+for many system management tasks. Over the years, Perl has grown into
+a general-purpose programming language. It's widely used for everything
+from quick "one-liners" to full-scale application development.
+
+The language is intended to be practical (easy to use, efficient,
+complete) rather than beautiful (tiny, elegant, minimal).  It combines
+(in the author's opinion, anyway) some of the best features of B<sed>,
+B<awk>, and B<sh>, making it familiar and easy to use for Unix users to
+whip up quick solutions to annoying problems.  Its general-purpose
+programming facilities support procedural, functional, and
+object-oriented programming paradigms, making Perl a comfortable
+language for the long haul on major projects, whatever your bent.
+
+Perl's roots in text processing haven't been forgotten over the years.
+It still boasts some of the most powerful regular expressions to be
+found anywhere, and its support for Unicode text is world-class.  It
+handles all kinds of structured text, too, through an extensive
+collection of extensions.  Those libraries, collected in the CPAN,
+provide ready-made solutions to an astounding array of problems.  When
+they haven't set the standard themselves, they steal from the best
+-- just like Perl itself.
+
+=head1 AVAILABILITY
+
+Perl is available for most operating systems, including virtually
+all Unix-like platforms.  See L<perlport/"Supported Platforms">
+for a listing.
+
+=head1 ENVIRONMENT
+
+See L<perlrun>.
+
+=head1 AUTHOR
+
+Larry Wall <larry@wall.org>, with the help of oodles of other folks.
+
+If your Perl success stories and testimonials may be of help to others 
+who wish to advocate the use of Perl in their applications, 
+or if you wish to simply express your gratitude to Larry and the 
+Perl developers, please write to perl-thanks@perl.org .
+
+=head1 FILES
+
+ "@INC"			locations of perl libraries
+
+"@INC" above is a reference to the built-in variable of the same name;
+see L<perlvar> for more information.
+
+=head1 SEE ALSO
+
+ http://www.perl.org/       the Perl homepage
+ http://www.perl.com/       Perl articles (O'Reilly)
+ http://www.cpan.org/       the Comprehensive Perl Archive
+ http://www.pm.org/         the Perl Mongers
+
+=head1 DIAGNOSTICS
+
+Using the C<use strict> pragma ensures that all variables are properly
+declared and prevents other misuses of legacy Perl features.
+
+The C<use warnings> pragma produces some lovely diagnostics. One can
+also use the B<-w> flag, but its use is normally discouraged, because
+it gets applied to all executed Perl code, including that not under
+your control.
+
+See L<perldiag> for explanations of all Perl's diagnostics.  The C<use
+diagnostics> pragma automatically turns Perl's normally terse warnings
+and errors into these longer forms.
+
+Compilation errors will tell you the line number of the error, with an
+indication of the next token or token type that was to be examined.
+(In a script passed to Perl via B<-e> switches, each
+B<-e> is counted as one line.)
+
+Setuid scripts have additional constraints that can produce error
+messages such as "Insecure dependency".  See L<perlsec>.
+
+Did we mention that you should definitely consider using the B<use warnings>
+pragma?
+
+=head1 BUGS
+
+The behavior implied by the B<use warnings> pragma is not mandatory.
+
+Perl is at the mercy of your machine's definitions of various
+operations such as type casting, atof(), and floating-point
+output with sprintf().
+
+If your stdio requires a seek or eof between reads and writes on a
+particular stream, so does Perl.  (This doesn't apply to sysread()
+and syswrite().)
+
+While none of the built-in data types have any arbitrary size limits
+(apart from memory size), there are still a few arbitrary limits:  a
+given variable name may not be longer than 251 characters.  Line numbers
+displayed by diagnostics are internally stored as short integers,
+so they are limited to a maximum of 65535 (higher numbers usually being
+affected by wraparound).
+
+You may mail your bug reports (be sure to include full configuration
+information as output by the myconfig program in the perl source
+tree, or by C<perl -V>) to perlbug@perl.org .  If you've succeeded
+in compiling perl, the L<perlbug> script in the F<utils/> subdirectory
+can be used to help mail in a bug report.
+
+Perl actually stands for Pathologically Eclectic Rubbish Lister, but
+don't tell anyone I said that.
+
+=head1 NOTES
+
+The Perl motto is "There's more than one way to do it."  Divining
+how many more is left as an exercise to the reader.
+
+The three principal virtues of a programmer are Laziness,
+Impatience, and Hubris.  See the Camel Book for why.
+
diff --git a/lib/5.24.1/pod/perl5004delta.pod b/lib/5.24.1/pod/perl5004delta.pod
new file mode 100644
index 00000000..fc5ae62b
--- /dev/null
+++ b/lib/5.24.1/pod/perl5004delta.pod
@@ -0,0 +1,1612 @@
+=head1 NAME
+
+perl5004delta - what's new for perl5.004
+
+=head1 DESCRIPTION
+
+This document describes differences between the 5.003 release (as
+documented in I<Programming Perl>, second edition--the Camel Book) and
+this one.
+
+=head1 Supported Environments
+
+Perl5.004 builds out of the box on Unix, Plan 9, LynxOS, VMS, OS/2,
+QNX, AmigaOS, and Windows NT.  Perl runs on Windows 95 as well, but it
+cannot be built there, for lack of a reasonable command interpreter.
+
+=head1 Core Changes
+
+Most importantly, many bugs were fixed, including several security
+problems.  See the F<Changes> file in the distribution for details.
+
+=head2 List assignment to %ENV works
+
+C<%ENV = ()> and C<%ENV = @list> now work as expected (except on VMS
+where it generates a fatal error).
+
+=head2 Change to "Can't locate Foo.pm in @INC" error
+
+The error "Can't locate Foo.pm in @INC" now lists the contents of @INC
+for easier debugging.
+
+=head2 Compilation option: Binary compatibility with 5.003
+
+There is a new Configure question that asks if you want to maintain
+binary compatibility with Perl 5.003.  If you choose binary
+compatibility, you do not have to recompile your extensions, but you
+might have symbol conflicts if you embed Perl in another application,
+just as in the 5.003 release.  By default, binary compatibility
+is preserved at the expense of symbol table pollution.
+
+=head2 $PERL5OPT environment variable
+
+You may now put Perl options in the $PERL5OPT environment variable.
+Unless Perl is running with taint checks, it will interpret this
+variable as if its contents had appeared on a "#!perl" line at the
+beginning of your script, except that hyphens are optional.  PERL5OPT
+may only be used to set the following switches: B<-[DIMUdmw]>.
+
+=head2 Limitations on B<-M>, B<-m>, and B<-T> options
+
+The C<-M> and C<-m> options are no longer allowed on the C<#!> line of
+a script.  If a script needs a module, it should invoke it with the
+C<use> pragma.
+
+The B<-T> option is also forbidden on the C<#!> line of a script,
+unless it was present on the Perl command line.  Due to the way C<#!>
+works, this usually means that B<-T> must be in the first argument.
+Thus:
+
+    #!/usr/bin/perl -T -w
+
+will probably work for an executable script invoked as C<scriptname>,
+while:
+
+    #!/usr/bin/perl -w -T
+
+will probably fail under the same conditions.  (Non-Unix systems will
+probably not follow this rule.)  But C<perl scriptname> is guaranteed
+to fail, since then there is no chance of B<-T> being found on the
+command line before it is found on the C<#!> line.
+
+=head2 More precise warnings
+
+If you removed the B<-w> option from your Perl 5.003 scripts because it
+made Perl too verbose, we recommend that you try putting it back when
+you upgrade to Perl 5.004.  Each new perl version tends to remove some
+undesirable warnings, while adding new warnings that may catch bugs in
+your scripts.
+
+=head2 Deprecated: Inherited C<AUTOLOAD> for non-methods
+
+Before Perl 5.004, C<AUTOLOAD> functions were looked up as methods
+(using the C<@ISA> hierarchy), even when the function to be autoloaded
+was called as a plain function (e.g. C<Foo::bar()>), not a method
+(e.g. C<< Foo->bar() >> or C<< $obj->bar() >>).
+
+Perl 5.005 will use method lookup only for methods' C<AUTOLOAD>s.
+However, there is a significant base of existing code that may be using
+the old behavior.  So, as an interim step, Perl 5.004 issues an optional
+warning when a non-method uses an inherited C<AUTOLOAD>.
+
+The simple rule is:  Inheritance will not work when autoloading
+non-methods.  The simple fix for old code is:  In any module that used to
+depend on inheriting C<AUTOLOAD> for non-methods from a base class named
+C<BaseClass>, execute C<*AUTOLOAD = \&BaseClass::AUTOLOAD> during startup.
+
+=head2 Previously deprecated %OVERLOAD is no longer usable
+
+Using %OVERLOAD to define overloading was deprecated in 5.003.
+Overloading is now defined using the overload pragma. %OVERLOAD is
+still used internally but should not be used by Perl scripts. See
+L<overload> for more details.
+
+=head2 Subroutine arguments created only when they're modified
+
+In Perl 5.004, nonexistent array and hash elements used as subroutine
+parameters are brought into existence only if they are actually
+assigned to (via C<@_>).
+
+Earlier versions of Perl vary in their handling of such arguments.
+Perl versions 5.002 and 5.003 always brought them into existence.
+Perl versions 5.000 and 5.001 brought them into existence only if
+they were not the first argument (which was almost certainly a bug).
+Earlier versions of Perl never brought them into existence.
+
+For example, given this code:
+
+     undef @a; undef %a;
+     sub show { print $_[0] };
+     sub change { $_[0]++ };
+     show($a[2]);
+     change($a{b});
+
+After this code executes in Perl 5.004, $a{b} exists but $a[2] does
+not.  In Perl 5.002 and 5.003, both $a{b} and $a[2] would have existed
+(but $a[2]'s value would have been undefined).
+
+=head2 Group vector changeable with C<$)>
+
+The C<$)> special variable has always (well, in Perl 5, at least)
+reflected not only the current effective group, but also the group list
+as returned by the C<getgroups()> C function (if there is one).
+However, until this release, there has not been a way to call the
+C<setgroups()> C function from Perl.
+
+In Perl 5.004, assigning to C<$)> is exactly symmetrical with examining
+it: The first number in its string value is used as the effective gid;
+if there are any numbers after the first one, they are passed to the
+C<setgroups()> C function (if there is one).
+
+=head2 Fixed parsing of $$<digit>, &$<digit>, etc.
+
+Perl versions before 5.004 misinterpreted any type marker followed by
+"$" and a digit.  For example, "$$0" was incorrectly taken to mean
+"${$}0" instead of "${$0}".  This bug is (mostly) fixed in Perl 5.004.
+
+However, the developers of Perl 5.004 could not fix this bug completely,
+because at least two widely-used modules depend on the old meaning of
+"$$0" in a string.  So Perl 5.004 still interprets "$$<digit>" in the
+old (broken) way inside strings; but it generates this message as a
+warning.  And in Perl 5.005, this special treatment will cease.
+
+=head2 Fixed localization of $<digit>, $&, etc.
+
+Perl versions before 5.004 did not always properly localize the
+regex-related special variables.  Perl 5.004 does localize them, as
+the documentation has always said it should.  This may result in $1,
+$2, etc. no longer being set where existing programs use them.
+
+=head2 No resetting of $. on implicit close
+
+The documentation for Perl 5.0 has always stated that C<$.> is I<not>
+reset when an already-open file handle is reopened with no intervening
+call to C<close>.  Due to a bug, perl versions 5.000 through 5.003
+I<did> reset C<$.> under that circumstance; Perl 5.004 does not.
+
+=head2 C<wantarray> may return undef
+
+The C<wantarray> operator returns true if a subroutine is expected to
+return a list, and false otherwise.  In Perl 5.004, C<wantarray> can
+also return the undefined value if a subroutine's return value will
+not be used at all, which allows subroutines to avoid a time-consuming
+calculation of a return value if it isn't going to be used.
+
+=head2 C<eval EXPR> determines value of EXPR in scalar context
+
+Perl (version 5) used to determine the value of EXPR inconsistently,
+sometimes incorrectly using the surrounding context for the determination.
+Now, the value of EXPR (before being parsed by eval) is always determined in
+a scalar context.  Once parsed, it is executed as before, by providing
+the context that the scope surrounding the eval provided.  This change
+makes the behavior Perl4 compatible, besides fixing bugs resulting from
+the inconsistent behavior.  This program:
+
+    @a = qw(time now is time);
+    print eval @a;
+    print '|', scalar eval @a;
+
+used to print something like "timenowis881399109|4", but now (and in perl4)
+prints "4|4".
+
+=head2 Changes to tainting checks
+
+A bug in previous versions may have failed to detect some insecure
+conditions when taint checks are turned on.  (Taint checks are used
+in setuid or setgid scripts, or when explicitly turned on with the
+C<-T> invocation option.)  Although it's unlikely, this may cause a
+previously-working script to now fail, which should be construed
+as a blessing since that indicates a potentially-serious security
+hole was just plugged.
+
+The new restrictions when tainting include:
+
+=over 4
+
+=item No glob() or <*>
+
+These operators may spawn the C shell (csh), which cannot be made
+safe.  This restriction will be lifted in a future version of Perl
+when globbing is implemented without the use of an external program.
+
+=item No spawning if tainted $CDPATH, $ENV, $BASH_ENV
+
+These environment variables may alter the behavior of spawned programs
+(especially shells) in ways that subvert security.  So now they are
+treated as dangerous, in the manner of $IFS and $PATH.
+
+=item No spawning if tainted $TERM doesn't look like a terminal name
+
+Some termcap libraries do unsafe things with $TERM.  However, it would be
+unnecessarily harsh to treat all $TERM values as unsafe, since only shell
+metacharacters can cause trouble in $TERM.  So a tainted $TERM is
+considered to be safe if it contains only alphanumerics, underscores,
+dashes, and colons, and unsafe if it contains other characters (including
+whitespace).
+
+=back
+
+=head2 New Opcode module and revised Safe module
+
+A new Opcode module supports the creation, manipulation and
+application of opcode masks.  The revised Safe module has a new API
+and is implemented using the new Opcode module.  Please read the new
+Opcode and Safe documentation.
+
+=head2 Embedding improvements
+
+In older versions of Perl it was not possible to create more than one
+Perl interpreter instance inside a single process without leaking like a
+sieve and/or crashing.  The bugs that caused this behavior have all been
+fixed.  However, you still must take care when embedding Perl in a C
+program.  See the updated perlembed manpage for tips on how to manage
+your interpreters.
+
+=head2 Internal change: FileHandle class based on IO::* classes
+
+File handles are now stored internally as type IO::Handle.  The
+FileHandle module is still supported for backwards compatibility, but
+it is now merely a front end to the IO::* modules, specifically
+IO::Handle, IO::Seekable, and IO::File.  We suggest, but do not
+require, that you use the IO::* modules in new code.
+
+In harmony with this change, C<*GLOB{FILEHANDLE}> is now just a
+backward-compatible synonym for C<*GLOB{IO}>.
+
+=head2 Internal change: PerlIO abstraction interface
+
+It is now possible to build Perl with AT&T's sfio IO package
+instead of stdio.  See L<perlapio> for more details, and
+the F<INSTALL> file for how to use it.
+
+=head2 New and changed syntax
+
+=over 4
+
+=item $coderef->(PARAMS)
+
+A subroutine reference may now be suffixed with an arrow and a
+(possibly empty) parameter list.  This syntax denotes a call of the
+referenced subroutine, with the given parameters (if any).
+
+This new syntax follows the pattern of S<C<< $hashref->{FOO} >>> and
+S<C<< $aryref->[$foo] >>>: You may now write S<C<&$subref($foo)>> as
+S<C<< $subref->($foo) >>>.  All these arrow terms may be chained;
+thus, S<C<< &{$table->{FOO}}($bar) >>> may now be written
+S<C<< $table->{FOO}->($bar) >>>.
+
+=back
+
+=head2 New and changed builtin constants
+
+=over 4
+
+=item __PACKAGE__
+
+The current package name at compile time, or the undefined value if
+there is no current package (due to a C<package;> directive).  Like
+C<__FILE__> and C<__LINE__>, C<__PACKAGE__> does I<not> interpolate
+into strings.
+
+=back
+
+=head2 New and changed builtin variables
+
+=over 4
+
+=item $^E
+
+Extended error message on some platforms.  (Also known as
+$EXTENDED_OS_ERROR if you C<use English>).
+
+=item $^H
+
+The current set of syntax checks enabled by C<use strict>.  See the
+documentation of C<strict> for more details.  Not actually new, but
+newly documented.
+Because it is intended for internal use by Perl core components,
+there is no C<use English> long name for this variable.
+
+=item $^M
+
+By default, running out of memory it is not trappable.  However, if
+compiled for this, Perl may use the contents of C<$^M> as an emergency
+pool after die()ing with this message.  Suppose that your Perl were
+compiled with -DPERL_EMERGENCY_SBRK and used Perl's malloc.  Then
+
+    $^M = 'a' x (1<<16);
+
+would allocate a 64K buffer for use when in emergency.
+See the F<INSTALL> file for information on how to enable this option.
+As a disincentive to casual use of this advanced feature,
+there is no C<use English> long name for this variable.
+
+=back
+
+=head2 New and changed builtin functions
+
+=over 4
+
+=item delete on slices
+
+This now works.  (e.g. C<delete @ENV{'PATH', 'MANPATH'}>)
+
+=item flock
+
+is now supported on more platforms, prefers fcntl to lockf when
+emulating, and always flushes before (un)locking.
+
+=item printf and sprintf
+
+Perl now implements these functions itself; it doesn't use the C
+library function sprintf() any more, except for floating-point
+numbers, and even then only known flags are allowed.  As a result, it
+is now possible to know which conversions and flags will work, and
+what they will do.
+
+The new conversions in Perl's sprintf() are:
+
+   %i	a synonym for %d
+   %p	a pointer (the address of the Perl value, in hexadecimal)
+   %n	special: *stores* the number of characters output so far
+        into the next variable in the parameter list 
+
+The new flags that go between the C<%> and the conversion are:
+
+   #	prefix octal with "0", hex with "0x"
+   h	interpret integer as C type "short" or "unsigned short"
+   V	interpret integer as Perl's standard integer type
+
+Also, where a number would appear in the flags, an asterisk ("*") may
+be used instead, in which case Perl uses the next item in the
+parameter list as the given number (that is, as the field width or
+precision).  If a field width obtained through "*" is negative, it has
+the same effect as the '-' flag: left-justification.
+
+See L<perlfunc/sprintf> for a complete list of conversion and flags.
+
+=item keys as an lvalue
+
+As an lvalue, C<keys> allows you to increase the number of hash buckets
+allocated for the given hash.  This can gain you a measure of efficiency if
+you know the hash is going to get big.  (This is similar to pre-extending
+an array by assigning a larger number to $#array.)  If you say
+
+    keys %hash = 200;
+
+then C<%hash> will have at least 200 buckets allocated for it.  These
+buckets will be retained even if you do C<%hash = ()>; use C<undef
+%hash> if you want to free the storage while C<%hash> is still in scope.
+You can't shrink the number of buckets allocated for the hash using
+C<keys> in this way (but you needn't worry about doing this by accident,
+as trying has no effect).
+
+=item my() in Control Structures
+
+You can now use my() (with or without the parentheses) in the control
+expressions of control structures such as:
+
+    while (defined(my $line = <>)) {
+        $line = lc $line;
+    } continue {
+        print $line;
+    }
+
+    if ((my $answer = <STDIN>) =~ /^y(es)?$/i) {
+        user_agrees();
+    } elsif ($answer =~ /^n(o)?$/i) {
+        user_disagrees();
+    } else {
+        chomp $answer;
+        die "`$answer' is neither `yes' nor `no'";
+    }
+
+Also, you can declare a foreach loop control variable as lexical by
+preceding it with the word "my".  For example, in:
+
+    foreach my $i (1, 2, 3) {
+        some_function();
+    }
+
+$i is a lexical variable, and the scope of $i extends to the end of
+the loop, but not beyond it.
+
+Note that you still cannot use my() on global punctuation variables
+such as $_ and the like.
+
+=item pack() and unpack()
+
+A new format 'w' represents a BER compressed integer (as defined in
+ASN.1).  Its format is a sequence of one or more bytes, each of which
+provides seven bits of the total value, with the most significant
+first.  Bit eight of each byte is set, except for the last byte, in
+which bit eight is clear.
+
+If 'p' or 'P' are given undef as values, they now generate a NULL
+pointer.
+
+Both pack() and unpack() now fail when their templates contain invalid
+types.  (Invalid types used to be ignored.)
+
+=item sysseek()
+
+The new sysseek() operator is a variant of seek() that sets and gets the
+file's system read/write position, using the lseek(2) system call.  It is
+the only reliable way to seek before using sysread() or syswrite().  Its
+return value is the new position, or the undefined value on failure.
+
+=item use VERSION
+
+If the first argument to C<use> is a number, it is treated as a version
+number instead of a module name.  If the version of the Perl interpreter
+is less than VERSION, then an error message is printed and Perl exits
+immediately.  Because C<use> occurs at compile time, this check happens
+immediately during the compilation process, unlike C<require VERSION>,
+which waits until runtime for the check.  This is often useful if you
+need to check the current Perl version before C<use>ing library modules
+which have changed in incompatible ways from older versions of Perl.
+(We try not to do this more than we have to.)
+
+=item use Module VERSION LIST
+
+If the VERSION argument is present between Module and LIST, then the
+C<use> will call the VERSION method in class Module with the given
+version as an argument.  The default VERSION method, inherited from
+the UNIVERSAL class, croaks if the given version is larger than the
+value of the variable $Module::VERSION.  (Note that there is not a
+comma after VERSION!)
+
+This version-checking mechanism is similar to the one currently used
+in the Exporter module, but it is faster and can be used with modules
+that don't use the Exporter.  It is the recommended method for new
+code.
+
+=item prototype(FUNCTION)
+
+Returns the prototype of a function as a string (or C<undef> if the
+function has no prototype).  FUNCTION is a reference to or the name of the
+function whose prototype you want to retrieve.
+(Not actually new; just never documented before.)
+
+=item srand
+
+The default seed for C<srand>, which used to be C<time>, has been changed.
+Now it's a heady mix of difficult-to-predict system-dependent values,
+which should be sufficient for most everyday purposes.
+
+Previous to version 5.004, calling C<rand> without first calling C<srand>
+would yield the same sequence of random numbers on most or all machines.
+Now, when perl sees that you're calling C<rand> and haven't yet called
+C<srand>, it calls C<srand> with the default seed. You should still call
+C<srand> manually if your code might ever be run on a pre-5.004 system,
+of course, or if you want a seed other than the default.
+
+=item $_ as Default
+
+Functions documented in the Camel to default to $_ now in
+fact do, and all those that do are so documented in L<perlfunc>.
+
+=item C<m//gc> does not reset search position on failure
+
+The C<m//g> match iteration construct has always reset its target
+string's search position (which is visible through the C<pos> operator)
+when a match fails; as a result, the next C<m//g> match after a failure
+starts again at the beginning of the string.  With Perl 5.004, this
+reset may be disabled by adding the "c" (for "continue") modifier,
+i.e. C<m//gc>.  This feature, in conjunction with the C<\G> zero-width
+assertion, makes it possible to chain matches together.  See L<perlop>
+and L<perlre>.
+
+=item C<m//x> ignores whitespace before ?*+{}
+
+The C<m//x> construct has always been intended to ignore all unescaped
+whitespace.  However, before Perl 5.004, whitespace had the effect of
+escaping repeat modifiers like "*" or "?"; for example, C</a *b/x> was
+(mis)interpreted as C</a\*b/x>.  This bug has been fixed in 5.004.
+
+=item nested C<sub{}> closures work now
+
+Prior to the 5.004 release, nested anonymous functions didn't work
+right.  They do now.
+
+=item formats work right on changing lexicals
+
+Just like anonymous functions that contain lexical variables
+that change (like a lexical index variable for a C<foreach> loop),
+formats now work properly.  For example, this silently failed
+before (printed only zeros), but is fine now:
+
+    my $i;
+    foreach $i ( 1 .. 10 ) {
+	write;
+    }
+    format =
+	my i is @#
+	$i
+    .
+
+However, it still fails (without a warning) if the foreach is within a
+subroutine:
+
+    my $i;
+    sub foo {
+      foreach $i ( 1 .. 10 ) {
+	write;
+      }
+    }
+    foo;
+    format =
+	my i is @#
+	$i
+    .
+
+=back
+
+=head2 New builtin methods
+
+The C<UNIVERSAL> package automatically contains the following methods that
+are inherited by all other classes:
+
+=over 4
+
+=item isa(CLASS)
+
+C<isa> returns I<true> if its object is blessed into a subclass of C<CLASS>
+
+C<isa> is also exportable and can be called as a sub with two arguments. This
+allows the ability to check what a reference points to. Example:
+
+    use UNIVERSAL qw(isa);
+
+    if(isa($ref, 'ARRAY')) {
+       ...
+    }
+
+=item can(METHOD)
+
+C<can> checks to see if its object has a method called C<METHOD>,
+if it does then a reference to the sub is returned; if it does not then
+I<undef> is returned.
+
+=item VERSION( [NEED] )
+
+C<VERSION> returns the version number of the class (package).  If the
+NEED argument is given then it will check that the current version (as
+defined by the $VERSION variable in the given package) not less than
+NEED; it will die if this is not the case.  This method is normally
+called as a class method.  This method is called automatically by the
+C<VERSION> form of C<use>.
+
+    use A 1.2 qw(some imported subs);
+    # implies:
+    A->VERSION(1.2);
+
+=back
+
+B<NOTE:> C<can> directly uses Perl's internal code for method lookup, and
+C<isa> uses a very similar method and caching strategy. This may cause
+strange effects if the Perl code dynamically changes @ISA in any package.
+
+You may add other methods to the UNIVERSAL class via Perl or XS code.
+You do not need to C<use UNIVERSAL> in order to make these methods
+available to your program.  This is necessary only if you wish to
+have C<isa> available as a plain subroutine in the current package.
+
+=head2 TIEHANDLE now supported
+
+See L<perltie> for other kinds of tie()s.
+
+=over 4
+
+=item TIEHANDLE classname, LIST
+
+This is the constructor for the class.  That means it is expected to
+return an object of some sort. The reference can be used to
+hold some internal information.
+
+    sub TIEHANDLE {
+	print "<shout>\n";
+	my $i;
+	return bless \$i, shift;
+    }
+
+=item PRINT this, LIST
+
+This method will be triggered every time the tied handle is printed to.
+Beyond its self reference it also expects the list that was passed to
+the print function.
+
+    sub PRINT {
+	$r = shift;
+	$$r++;
+	return print join( $, => map {uc} @_), $\;
+    }
+
+=item PRINTF this, LIST
+
+This method will be triggered every time the tied handle is printed to
+with the C<printf()> function.
+Beyond its self reference it also expects the format and list that was
+passed to the printf function.
+
+    sub PRINTF {
+        shift;
+	  my $fmt = shift;
+        print sprintf($fmt, @_)."\n";
+    }
+
+=item READ this LIST
+
+This method will be called when the handle is read from via the C<read>
+or C<sysread> functions.
+
+    sub READ {
+	$r = shift;
+	my($buf,$len,$offset) = @_;
+	print "READ called, \$buf=$buf, \$len=$len, \$offset=$offset";
+    }
+
+=item READLINE this
+
+This method will be called when the handle is read from. The method
+should return undef when there is no more data.
+
+    sub READLINE {
+	$r = shift;
+	return "PRINT called $$r times\n"
+    }
+
+=item GETC this
+
+This method will be called when the C<getc> function is called.
+
+    sub GETC { print "Don't GETC, Get Perl"; return "a"; }
+
+=item DESTROY this
+
+As with the other types of ties, this method will be called when the
+tied handle is about to be destroyed. This is useful for debugging and
+possibly for cleaning up.
+
+    sub DESTROY {
+	print "</shout>\n";
+    }
+
+=back
+
+=head2 Malloc enhancements
+
+If perl is compiled with the malloc included with the perl distribution
+(that is, if C<perl -V:d_mymalloc> is 'define') then you can print
+memory statistics at runtime by running Perl thusly:
+
+  env PERL_DEBUG_MSTATS=2 perl your_script_here
+
+The value of 2 means to print statistics after compilation and on
+exit; with a value of 1, the statistics are printed only on exit.
+(If you want the statistics at an arbitrary time, you'll need to
+install the optional module Devel::Peek.)
+
+Three new compilation flags are recognized by malloc.c.  (They have no
+effect if perl is compiled with system malloc().)
+
+=over 4
+
+=item -DPERL_EMERGENCY_SBRK
+
+If this macro is defined, running out of memory need not be a fatal
+error: a memory pool can allocated by assigning to the special
+variable C<$^M>.  See L<"$^M">.
+
+=item -DPACK_MALLOC
+
+Perl memory allocation is by bucket with sizes close to powers of two.
+Because of these malloc overhead may be big, especially for data of
+size exactly a power of two.  If C<PACK_MALLOC> is defined, perl uses
+a slightly different algorithm for small allocations (up to 64 bytes
+long), which makes it possible to have overhead down to 1 byte for
+allocations which are powers of two (and appear quite often).
+
+Expected memory savings (with 8-byte alignment in C<alignbytes>) is
+about 20% for typical Perl usage.  Expected slowdown due to additional
+malloc overhead is in fractions of a percent (hard to measure, because
+of the effect of saved memory on speed).
+
+=item -DTWO_POT_OPTIMIZE
+
+Similarly to C<PACK_MALLOC>, this macro improves allocations of data
+with size close to a power of two; but this works for big allocations
+(starting with 16K by default).  Such allocations are typical for big
+hashes and special-purpose scripts, especially image processing.
+
+On recent systems, the fact that perl requires 2M from system for 1M
+allocation will not affect speed of execution, since the tail of such
+a chunk is not going to be touched (and thus will not require real
+memory).  However, it may result in a premature out-of-memory error.
+So if you will be manipulating very large blocks with sizes close to
+powers of two, it would be wise to define this macro.
+
+Expected saving of memory is 0-100% (100% in applications which
+require most memory in such 2**n chunks); expected slowdown is
+negligible.
+
+=back
+
+=head2 Miscellaneous efficiency enhancements
+
+Functions that have an empty prototype and that do nothing but return
+a fixed value are now inlined (e.g. C<sub PI () { 3.14159 }>).
+
+Each unique hash key is only allocated once, no matter how many hashes
+have an entry with that key.  So even if you have 100 copies of the
+same hash, the hash keys never have to be reallocated.
+
+=head1 Support for More Operating Systems
+
+Support for the following operating systems is new in Perl 5.004.
+
+=head2 Win32
+
+Perl 5.004 now includes support for building a "native" perl under
+Windows NT, using the Microsoft Visual C++ compiler (versions 2.0
+and above) or the Borland C++ compiler (versions 5.02 and above).
+The resulting perl can be used under Windows 95 (if it
+is installed in the same directory locations as it got installed
+in Windows NT).  This port includes support for perl extension
+building tools like L<ExtUtils::MakeMaker> and L<h2xs>, so that many extensions
+available on the Comprehensive Perl Archive Network (CPAN) can now be
+readily built under Windows NT.  See http://www.perl.com/ for more
+information on CPAN and F<README.win32> in the perl distribution for more
+details on how to get started with building this port.
+
+There is also support for building perl under the Cygwin32 environment.
+Cygwin32 is a set of GNU tools that make it possible to compile and run
+many Unix programs under Windows NT by providing a mostly Unix-like 
+interface for compilation and execution.  See F<README.cygwin32> in the
+perl distribution for more details on this port and how to obtain the
+Cygwin32 toolkit.
+
+=head2 Plan 9
+
+See F<README.plan9> in the perl distribution.
+
+=head2 QNX
+
+See F<README.qnx> in the perl distribution.
+
+=head2 AmigaOS
+
+See F<README.amigaos> in the perl distribution.
+
+=head1 Pragmata
+
+Six new pragmatic modules exist:
+
+=over 4
+
+=item use autouse MODULE => qw(sub1 sub2 sub3)
+
+Defers C<require MODULE> until someone calls one of the specified
+subroutines (which must be exported by MODULE).  This pragma should be
+used with caution, and only when necessary.
+
+=item use blib
+
+=item use blib 'dir'
+
+Looks for MakeMaker-like I<'blib'> directory structure starting in
+I<dir> (or current directory) and working back up to five levels of
+parent directories.
+
+Intended for use on command line with B<-M> option as a way of testing
+arbitrary scripts against an uninstalled version of a package.
+
+=item use constant NAME => VALUE
+
+Provides a convenient interface for creating compile-time constants,
+See L<perlsub/"Constant Functions">.
+
+=item use locale
+
+Tells the compiler to enable (or disable) the use of POSIX locales for
+builtin operations.
+
+When C<use locale> is in effect, the current LC_CTYPE locale is used
+for regular expressions and case mapping; LC_COLLATE for string
+ordering; and LC_NUMERIC for numeric formatting in printf and sprintf
+(but B<not> in print).  LC_NUMERIC is always used in write, since
+lexical scoping of formats is problematic at best.
+
+Each C<use locale> or C<no locale> affects statements to the end of
+the enclosing BLOCK or, if not inside a BLOCK, to the end of the
+current file.  Locales can be switched and queried with
+POSIX::setlocale().
+
+See L<perllocale> for more information.
+
+=item use ops
+
+Disable unsafe opcodes, or any named opcodes, when compiling Perl code.
+
+=item use vmsish
+
+Enable VMS-specific language features.  Currently, there are three
+VMS-specific features available: 'status', which makes C<$?> and
+C<system> return genuine VMS status values instead of emulating POSIX;
+'exit', which makes C<exit> take a genuine VMS status value instead of
+assuming that C<exit 1> is an error; and 'time', which makes all times
+relative to the local time zone, in the VMS tradition.
+
+=back
+
+=head1 Modules
+
+=head2 Required Updates
+
+Though Perl 5.004 is compatible with almost all modules that work
+with Perl 5.003, there are a few exceptions:
+
+    Module   Required Version for Perl 5.004
+    ------   -------------------------------
+    Filter   Filter-1.12
+    LWP      libwww-perl-5.08
+    Tk       Tk400.202 (-w makes noise)
+
+Also, the majordomo mailing list program, version 1.94.1, doesn't work
+with Perl 5.004 (nor with perl 4), because it executes an invalid
+regular expression.  This bug is fixed in majordomo version 1.94.2.
+
+=head2 Installation directories
+
+The I<installperl> script now places the Perl source files for
+extensions in the architecture-specific library directory, which is
+where the shared libraries for extensions have always been.  This
+change is intended to allow administrators to keep the Perl 5.004
+library directory unchanged from a previous version, without running
+the risk of binary incompatibility between extensions' Perl source and
+shared libraries.
+
+=head2 Module information summary
+
+Brand new modules, arranged by topic rather than strictly
+alphabetically:
+
+    CGI.pm               Web server interface ("Common Gateway Interface")
+    CGI/Apache.pm        Support for Apache's Perl module
+    CGI/Carp.pm          Log server errors with helpful context
+    CGI/Fast.pm          Support for FastCGI (persistent server process)
+    CGI/Push.pm          Support for server push
+    CGI/Switch.pm        Simple interface for multiple server types
+
+    CPAN                 Interface to Comprehensive Perl Archive Network
+    CPAN::FirstTime      Utility for creating CPAN configuration file
+    CPAN::Nox            Runs CPAN while avoiding compiled extensions
+
+    IO.pm                Top-level interface to IO::* classes
+    IO/File.pm           IO::File extension Perl module
+    IO/Handle.pm         IO::Handle extension Perl module
+    IO/Pipe.pm           IO::Pipe extension Perl module
+    IO/Seekable.pm       IO::Seekable extension Perl module
+    IO/Select.pm         IO::Select extension Perl module
+    IO/Socket.pm         IO::Socket extension Perl module
+
+    Opcode.pm            Disable named opcodes when compiling Perl code
+
+    ExtUtils/Embed.pm    Utilities for embedding Perl in C programs
+    ExtUtils/testlib.pm  Fixes up @INC to use just-built extension
+
+    FindBin.pm           Find path of currently executing program
+
+    Class/Struct.pm      Declare struct-like datatypes as Perl classes
+    File/stat.pm         By-name interface to Perl's builtin stat
+    Net/hostent.pm       By-name interface to Perl's builtin gethost*
+    Net/netent.pm        By-name interface to Perl's builtin getnet*
+    Net/protoent.pm      By-name interface to Perl's builtin getproto*
+    Net/servent.pm       By-name interface to Perl's builtin getserv*
+    Time/gmtime.pm       By-name interface to Perl's builtin gmtime
+    Time/localtime.pm    By-name interface to Perl's builtin localtime
+    Time/tm.pm           Internal object for Time::{gm,local}time
+    User/grent.pm        By-name interface to Perl's builtin getgr*
+    User/pwent.pm        By-name interface to Perl's builtin getpw*
+
+    Tie/RefHash.pm       Base class for tied hashes with references as keys
+
+    UNIVERSAL.pm         Base class for *ALL* classes
+
+=head2 Fcntl
+
+New constants in the existing Fcntl modules are now supported,
+provided that your operating system happens to support them:
+
+    F_GETOWN F_SETOWN
+    O_ASYNC O_DEFER O_DSYNC O_FSYNC O_SYNC
+    O_EXLOCK O_SHLOCK
+
+These constants are intended for use with the Perl operators sysopen()
+and fcntl() and the basic database modules like SDBM_File.  For the
+exact meaning of these and other Fcntl constants please refer to your
+operating system's documentation for fcntl() and open().
+
+In addition, the Fcntl module now provides these constants for use
+with the Perl operator flock():
+
+	LOCK_SH LOCK_EX LOCK_NB LOCK_UN
+
+These constants are defined in all environments (because where there is
+no flock() system call, Perl emulates it).  However, for historical
+reasons, these constants are not exported unless they are explicitly
+requested with the ":flock" tag (e.g. C<use Fcntl ':flock'>).
+
+=head2 IO
+
+The IO module provides a simple mechanism to load all the IO modules at one
+go.  Currently this includes:
+
+     IO::Handle
+     IO::Seekable
+     IO::File
+     IO::Pipe
+     IO::Socket
+
+For more information on any of these modules, please see its
+respective documentation.
+
+=head2 Math::Complex
+
+The Math::Complex module has been totally rewritten, and now supports
+more operations.  These are overloaded:
+
+     + - * / ** <=> neg ~ abs sqrt exp log sin cos atan2 "" (stringify)
+
+And these functions are now exported:
+
+    pi i Re Im arg
+    log10 logn ln cbrt root
+    tan
+    csc sec cot
+    asin acos atan
+    acsc asec acot
+    sinh cosh tanh
+    csch sech coth
+    asinh acosh atanh
+    acsch asech acoth
+    cplx cplxe
+
+=head2 Math::Trig
+
+This new module provides a simpler interface to parts of Math::Complex for
+those who need trigonometric functions only for real numbers.
+
+=head2 DB_File
+
+There have been quite a few changes made to DB_File. Here are a few of
+the highlights:
+
+=over 4
+
+=item *
+
+Fixed a handful of bugs.
+
+=item *
+
+By public demand, added support for the standard hash function exists().
+
+=item *
+
+Made it compatible with Berkeley DB 1.86.
+
+=item *
+
+Made negative subscripts work with RECNO interface.
+
+=item *
+
+Changed the default flags from O_RDWR to O_CREAT|O_RDWR and the default
+mode from 0640 to 0666.
+
+=item *
+
+Made DB_File automatically import the open() constants (O_RDWR,
+O_CREAT etc.) from Fcntl, if available.
+
+=item *
+
+Updated documentation.
+
+=back
+
+Refer to the HISTORY section in DB_File.pm for a complete list of
+changes. Everything after DB_File 1.01 has been added since 5.003.
+
+=head2 Net::Ping
+
+Major rewrite - support added for both udp echo and real icmp pings.
+
+=head2 Object-oriented overrides for builtin operators
+
+Many of the Perl builtins returning lists now have
+object-oriented overrides.  These are:
+
+    File::stat
+    Net::hostent
+    Net::netent
+    Net::protoent
+    Net::servent
+    Time::gmtime
+    Time::localtime
+    User::grent
+    User::pwent
+
+For example, you can now say
+
+    use File::stat;
+    use User::pwent;
+    $his = (stat($filename)->st_uid == pwent($whoever)->pw_uid);
+
+=head1 Utility Changes
+
+=head2 pod2html
+
+=over 4
+
+=item Sends converted HTML to standard output
+
+The I<pod2html> utility included with Perl 5.004 is entirely new.
+By default, it sends the converted HTML to its standard output,
+instead of writing it to a file like Perl 5.003's I<pod2html> did.
+Use the B<--outfile=FILENAME> option to write to a file.
+
+=back
+
+=head2 xsubpp
+
+=over 4
+
+=item C<void> XSUBs now default to returning nothing
+
+Due to a documentation/implementation bug in previous versions of
+Perl, XSUBs with a return type of C<void> have actually been
+returning one value.  Usually that value was the GV for the XSUB,
+but sometimes it was some already freed or reused value, which would
+sometimes lead to program failure.
+
+In Perl 5.004, if an XSUB is declared as returning C<void>, it
+actually returns no value, i.e. an empty list (though there is a
+backward-compatibility exception; see below).  If your XSUB really
+does return an SV, you should give it a return type of C<SV *>.
+
+For backward compatibility, I<xsubpp> tries to guess whether a
+C<void> XSUB is really C<void> or if it wants to return an C<SV *>.
+It does so by examining the text of the XSUB: if I<xsubpp> finds
+what looks like an assignment to C<ST(0)>, it assumes that the
+XSUB's return type is really C<SV *>.
+
+=back
+
+=head1 C Language API Changes
+
+=over 4
+
+=item C<gv_fetchmethod> and C<perl_call_sv>
+
+The C<gv_fetchmethod> function finds a method for an object, just like
+in Perl 5.003.  The GV it returns may be a method cache entry.
+However, in Perl 5.004, method cache entries are not visible to users;
+therefore, they can no longer be passed directly to C<perl_call_sv>.
+Instead, you should use the C<GvCV> macro on the GV to extract its CV,
+and pass the CV to C<perl_call_sv>.
+
+The most likely symptom of passing the result of C<gv_fetchmethod> to
+C<perl_call_sv> is Perl's producing an "Undefined subroutine called"
+error on the I<second> call to a given method (since there is no cache
+on the first call).
+
+=item C<perl_eval_pv>
+
+A new function handy for eval'ing strings of Perl code inside C code.
+This function returns the value from the eval statement, which can
+be used instead of fetching globals from the symbol table.  See
+L<perlguts>, L<perlembed> and L<perlcall> for details and examples.
+
+=item Extended API for manipulating hashes
+
+Internal handling of hash keys has changed.  The old hashtable API is
+still fully supported, and will likely remain so.  The additions to the
+API allow passing keys as C<SV*>s, so that C<tied> hashes can be given
+real scalars as keys rather than plain strings (nontied hashes still
+can only use strings as keys).  New extensions must use the new hash
+access functions and macros if they wish to use C<SV*> keys.  These
+additions also make it feasible to manipulate C<HE*>s (hash entries),
+which can be more efficient.  See L<perlguts> for details.
+
+=back
+
+=head1 Documentation Changes
+
+Many of the base and library pods were updated.  These
+new pods are included in section 1:
+
+=over 4
+
+=item L<perldelta>
+
+This document.
+
+=item L<perlfaq>
+
+Frequently asked questions.
+
+=item L<perllocale>
+
+Locale support (internationalization and localization).
+
+=item L<perltoot>
+
+Tutorial on Perl OO programming.
+
+=item L<perlapio>
+
+Perl internal IO abstraction interface.
+
+=item L<perlmodlib>
+
+Perl module library and recommended practice for module creation.
+Extracted from L<perlmod> (which is much smaller as a result).
+
+=item L<perldebug>
+
+Although not new, this has been massively updated.
+
+=item L<perlsec>
+
+Although not new, this has been massively updated.
+
+=back
+
+=head1 New Diagnostics
+
+Several new conditions will trigger warnings that were
+silent before.  Some only affect certain platforms.
+The following new warnings and errors outline these.
+These messages are classified as follows (listed in
+increasing order of desperation):
+
+   (W) A warning (optional).
+   (D) A deprecation (optional).
+   (S) A severe warning (mandatory).
+   (F) A fatal error (trappable).
+   (P) An internal error you should never see (trappable).
+   (X) A very fatal error (nontrappable).
+   (A) An alien error message (not generated by Perl).
+
+=over 4
+
+=item "my" variable %s masks earlier declaration in same scope
+
+(W) A lexical variable has been redeclared in the same scope, effectively
+eliminating all access to the previous instance.  This is almost always
+a typographical error.  Note that the earlier variable will still exist
+until the end of the scope or until all closure referents to it are
+destroyed.
+
+=item %s argument is not a HASH element or slice
+
+(F) The argument to delete() must be either a hash element, such as
+
+    $foo{$bar}
+    $ref->[12]->{"susie"}
+
+or a hash slice, such as
+
+    @foo{$bar, $baz, $xyzzy}
+    @{$ref->[12]}{"susie", "queue"}
+
+=item Allocation too large: %lx
+
+(X) You can't allocate more than 64K on an MS-DOS machine.
+
+=item Allocation too large
+
+(F) You can't allocate more than 2^31+"small amount" bytes.
+
+=item Applying %s to %s will act on scalar(%s)
+
+(W) The pattern match (//), substitution (s///), and transliteration (tr///)
+operators work on scalar values.  If you apply one of them to an array
+or a hash, it will convert the array or hash to a scalar value (the
+length of an array or the population info of a hash) and then work on
+that scalar value.  This is probably not what you meant to do.  See
+L<perlfunc/grep> and L<perlfunc/map> for alternatives.
+
+=item Attempt to free nonexistent shared string
+
+(P) Perl maintains a reference counted internal table of strings to
+optimize the storage and access of hash keys and other strings.  This
+indicates someone tried to decrement the reference count of a string
+that can no longer be found in the table.
+
+=item Attempt to use reference as lvalue in substr
+
+(W) You supplied a reference as the first argument to substr() used
+as an lvalue, which is pretty strange.  Perhaps you forgot to
+dereference it first.  See L<perlfunc/substr>.
+
+=item Bareword "%s" refers to nonexistent package
+
+(W) You used a qualified bareword of the form C<Foo::>, but
+the compiler saw no other uses of that namespace before that point.
+Perhaps you need to predeclare a package?
+
+=item Can't redefine active sort subroutine %s
+
+(F) Perl optimizes the internal handling of sort subroutines and keeps
+pointers into them.  You tried to redefine one such sort subroutine when it
+was currently active, which is not allowed.  If you really want to do
+this, you should write C<sort { &func } @x> instead of C<sort func @x>.
+
+=item Can't use bareword ("%s") as %s ref while "strict refs" in use
+
+(F) Only hard references are allowed by "strict refs".  Symbolic references
+are disallowed.  See L<perlref>.
+
+=item Cannot resolve method `%s' overloading `%s' in package `%s'
+
+(P) Internal error trying to resolve overloading specified by a method
+name (as opposed to a subroutine reference).
+
+=item Constant subroutine %s redefined
+
+(S) You redefined a subroutine which had previously been eligible for
+inlining.  See L<perlsub/"Constant Functions"> for commentary and
+workarounds.
+
+=item Constant subroutine %s undefined
+
+(S) You undefined a subroutine which had previously been eligible for
+inlining.  See L<perlsub/"Constant Functions"> for commentary and
+workarounds.
+
+=item Copy method did not return a reference
+
+(F) The method which overloads "=" is buggy. See L<overload/Copy Constructor>.
+
+=item Died
+
+(F) You passed die() an empty string (the equivalent of C<die "">) or
+you called it with no args and both C<$@> and C<$_> were empty.
+
+=item Exiting pseudo-block via %s
+
+(W) You are exiting a rather special block construct (like a sort block or
+subroutine) by unconventional means, such as a goto, or a loop control
+statement.  See L<perlfunc/sort>.
+
+=item Identifier too long
+
+(F) Perl limits identifiers (names for variables, functions, etc.) to
+252 characters for simple names, somewhat more for compound names (like
+C<$A::B>).  You've exceeded Perl's limits.  Future versions of Perl are
+likely to eliminate these arbitrary limitations.
+
+=item Illegal character %s (carriage return)
+
+(F) A carriage return character was found in the input.  This is an
+error, and not a warning, because carriage return characters can break
+multi-line strings, including here documents (e.g., C<print <<EOF;>).
+
+=item Illegal switch in PERL5OPT: %s
+
+(X) The PERL5OPT environment variable may only be used to set the
+following switches: B<-[DIMUdmw]>.
+
+=item Integer overflow in hex number
+
+(S) The literal hex number you have specified is too big for your
+architecture. On a 32-bit architecture the largest hex literal is
+0xFFFFFFFF.
+
+=item Integer overflow in octal number
+
+(S) The literal octal number you have specified is too big for your
+architecture. On a 32-bit architecture the largest octal literal is
+037777777777.
+
+=item internal error: glob failed
+
+(P) Something went wrong with the external program(s) used for C<glob>
+and C<< <*.c> >>.  This may mean that your csh (C shell) is
+broken.  If so, you should change all of the csh-related variables in
+config.sh:  If you have tcsh, make the variables refer to it as if it
+were csh (e.g. C<full_csh='/usr/bin/tcsh'>); otherwise, make them all
+empty (except that C<d_csh> should be C<'undef'>) so that Perl will
+think csh is missing.  In either case, after editing config.sh, run
+C<./Configure -S> and rebuild Perl.
+
+=item Invalid conversion in %s: "%s"
+
+(W) Perl does not understand the given format conversion.
+See L<perlfunc/sprintf>.
+
+=item Invalid type in pack: '%s'
+
+(F) The given character is not a valid pack type.  See L<perlfunc/pack>.
+
+=item Invalid type in unpack: '%s'
+
+(F) The given character is not a valid unpack type.  See L<perlfunc/unpack>.
+
+=item Name "%s::%s" used only once: possible typo
+
+(W) Typographical errors often show up as unique variable names.
+If you had a good reason for having a unique name, then just mention
+it again somehow to suppress the message (the C<use vars> pragma is
+provided for just this purpose).
+
+=item Null picture in formline
+
+(F) The first argument to formline must be a valid format picture
+specification.  It was found to be empty, which probably means you
+supplied it an uninitialized value.  See L<perlform>.
+
+=item Offset outside string
+
+(F) You tried to do a read/write/send/recv operation with an offset
+pointing outside the buffer.  This is difficult to imagine.
+The sole exception to this is that C<sysread()>ing past the buffer
+will extend the buffer and zero pad the new area.
+
+=item Out of memory!
+
+(X|F) The malloc() function returned 0, indicating there was insufficient
+remaining memory (or virtual memory) to satisfy the request.
+
+The request was judged to be small, so the possibility to trap it
+depends on the way Perl was compiled.  By default it is not trappable.
+However, if compiled for this, Perl may use the contents of C<$^M> as
+an emergency pool after die()ing with this message.  In this case the
+error is trappable I<once>.
+
+=item Out of memory during request for %s
+
+(F) The malloc() function returned 0, indicating there was insufficient
+remaining memory (or virtual memory) to satisfy the request. However,
+the request was judged large enough (compile-time default is 64K), so
+a possibility to shut down by trapping this error is granted.
+
+=item panic: frexp
+
+(P) The library function frexp() failed, making printf("%f") impossible.
+
+=item Possible attempt to put comments in qw() list
+
+(W) qw() lists contain items separated by whitespace; as with literal
+strings, comment characters are not ignored, but are instead treated
+as literal data.  (You may have used different delimiters than the
+parentheses shown here; braces are also frequently used.)
+
+You probably wrote something like this:
+
+    @list = qw(
+        a # a comment
+        b # another comment
+    );
+
+when you should have written this:
+
+    @list = qw(
+        a
+        b
+    );
+
+If you really want comments, build your list the
+old-fashioned way, with quotes and commas:
+
+    @list = (
+        'a',    # a comment
+        'b',    # another comment
+    );
+
+=item Possible attempt to separate words with commas
+
+(W) qw() lists contain items separated by whitespace; therefore commas
+aren't needed to separate the items. (You may have used different
+delimiters than the parentheses shown here; braces are also frequently
+used.)
+
+You probably wrote something like this:
+
+    qw! a, b, c !;
+
+which puts literal commas into some of the list items.  Write it without
+commas if you don't want them to appear in your data:
+
+    qw! a b c !;
+
+=item Scalar value @%s{%s} better written as $%s{%s}
+
+(W) You've used a hash slice (indicated by @) to select a single element of
+a hash.  Generally it's better to ask for a scalar value (indicated by $).
+The difference is that C<$foo{&bar}> always behaves like a scalar, both when
+assigning to it and when evaluating its argument, while C<@foo{&bar}> behaves
+like a list when you assign to it, and provides a list context to its
+subscript, which can do weird things if you're expecting only one subscript.
+
+=item Stub found while resolving method `%s' overloading `%s' in %s
+
+(P) Overloading resolution over @ISA tree may be broken by importing stubs.
+Stubs should never be implicitly created, but explicit calls to C<can>
+may break this.
+
+=item Too late for "B<-T>" option
+
+(X) The #! line (or local equivalent) in a Perl script contains the
+B<-T> option, but Perl was not invoked with B<-T> in its argument
+list.  This is an error because, by the time Perl discovers a B<-T> in
+a script, it's too late to properly taint everything from the
+environment.  So Perl gives up.
+
+=item untie attempted while %d inner references still exist
+
+(W) A copy of the object returned from C<tie> (or C<tied>) was still
+valid when C<untie> was called.
+
+=item Unrecognized character %s
+
+(F) The Perl parser has no idea what to do with the specified character
+in your Perl script (or eval).  Perhaps you tried to run a compressed
+script, a binary program, or a directory as a Perl program.
+
+=item Unsupported function fork
+
+(F) Your version of executable does not support forking.
+
+Note that under some systems, like OS/2, there may be different flavors of
+Perl executables, some of which may support fork, some not. Try changing
+the name you call Perl by to C<perl_>, C<perl__>, and so on.
+
+=item Use of "$$<digit>" to mean "${$}<digit>" is deprecated
+
+(D) Perl versions before 5.004 misinterpreted any type marker followed
+by "$" and a digit.  For example, "$$0" was incorrectly taken to mean
+"${$}0" instead of "${$0}".  This bug is (mostly) fixed in Perl 5.004.
+
+However, the developers of Perl 5.004 could not fix this bug completely,
+because at least two widely-used modules depend on the old meaning of
+"$$0" in a string.  So Perl 5.004 still interprets "$$<digit>" in the
+old (broken) way inside strings; but it generates this message as a
+warning.  And in Perl 5.005, this special treatment will cease.
+
+=item Value of %s can be "0"; test with defined()
+
+(W) In a conditional expression, you used <HANDLE>, <*> (glob), C<each()>,
+or C<readdir()> as a boolean value.  Each of these constructs can return a
+value of "0"; that would make the conditional expression false, which is
+probably not what you intended.  When using these constructs in conditional
+expressions, test their values with the C<defined> operator.
+
+=item Variable "%s" may be unavailable
+
+(W) An inner (nested) I<anonymous> subroutine is inside a I<named>
+subroutine, and outside that is another subroutine; and the anonymous
+(innermost) subroutine is referencing a lexical variable defined in
+the outermost subroutine.  For example:
+
+   sub outermost { my $a; sub middle { sub { $a } } }
+
+If the anonymous subroutine is called or referenced (directly or
+indirectly) from the outermost subroutine, it will share the variable
+as you would expect.  But if the anonymous subroutine is called or
+referenced when the outermost subroutine is not active, it will see
+the value of the shared variable as it was before and during the
+*first* call to the outermost subroutine, which is probably not what
+you want.
+
+In these circumstances, it is usually best to make the middle
+subroutine anonymous, using the C<sub {}> syntax.  Perl has specific
+support for shared variables in nested anonymous subroutines; a named
+subroutine in between interferes with this feature.
+
+=item Variable "%s" will not stay shared
+
+(W) An inner (nested) I<named> subroutine is referencing a lexical
+variable defined in an outer subroutine.
+
+When the inner subroutine is called, it will probably see the value of
+the outer subroutine's variable as it was before and during the
+*first* call to the outer subroutine; in this case, after the first
+call to the outer subroutine is complete, the inner and outer
+subroutines will no longer share a common value for the variable.  In
+other words, the variable will no longer be shared.
+
+Furthermore, if the outer subroutine is anonymous and references a
+lexical variable outside itself, then the outer and inner subroutines
+will I<never> share the given variable.
+
+This problem can usually be solved by making the inner subroutine
+anonymous, using the C<sub {}> syntax.  When inner anonymous subs that
+reference variables in outer subroutines are called or referenced,
+they are automatically rebound to the current values of such
+variables.
+
+=item Warning: something's wrong
+
+(W) You passed warn() an empty string (the equivalent of C<warn "">) or
+you called it with no args and C<$_> was empty.
+
+=item Ill-formed logical name |%s| in prime_env_iter
+
+(W) A warning peculiar to VMS.  A logical name was encountered when preparing
+to iterate over %ENV which violates the syntactic rules governing logical
+names.  Since it cannot be translated normally, it is skipped, and will not
+appear in %ENV.  This may be a benign occurrence, as some software packages
+might directly modify logical name tables and introduce nonstandard names,
+or it may indicate that a logical name table has been corrupted.
+
+=item Got an error from DosAllocMem
+
+(P) An error peculiar to OS/2.  Most probably you're using an obsolete
+version of Perl, and this should not happen anyway.
+
+=item Malformed PERLLIB_PREFIX
+
+(F) An error peculiar to OS/2.  PERLLIB_PREFIX should be of the form
+
+    prefix1;prefix2
+
+or
+
+    prefix1 prefix2
+
+with nonempty prefix1 and prefix2.  If C<prefix1> is indeed a prefix
+of a builtin library search path, prefix2 is substituted.  The error
+may appear if components are not found, or are too long.  See
+"PERLLIB_PREFIX" in F<README.os2>.
+
+=item PERL_SH_DIR too long
+
+(F) An error peculiar to OS/2. PERL_SH_DIR is the directory to find the
+C<sh>-shell in.  See "PERL_SH_DIR" in F<README.os2>.
+
+=item Process terminated by SIG%s
+
+(W) This is a standard message issued by OS/2 applications, while *nix
+applications die in silence.  It is considered a feature of the OS/2
+port.  One can easily disable this by appropriate sighandlers, see
+L<perlipc/"Signals">.  See also "Process terminated by SIGTERM/SIGINT"
+in F<README.os2>.
+
+=back
+
+=head1 BUGS
+
+If you find what you think is a bug, you might check the headers of
+recently posted articles in the comp.lang.perl.misc newsgroup.
+There may also be information at http://www.perl.com/perl/ , the Perl
+Home Page.
+
+If you believe you have an unreported bug, please run the B<perlbug>
+program included with your release.  Make sure you trim your bug down
+to a tiny but sufficient test case.  Your bug report, along with the
+output of C<perl -V>, will be sent off to <F<perlbug@perl.com>> to be
+analysed by the Perl porting team.
+
+=head1 SEE ALSO
+
+The F<Changes> file for exhaustive details on what changed.
+
+The F<INSTALL> file for how to build Perl.  This file has been
+significantly updated for 5.004, so even veteran users should
+look through it.
+
+The F<README> file for general stuff.
+
+The F<Copying> file for copyright information.
+
+=head1 HISTORY
+
+Constructed by Tom Christiansen, grabbing material with permission
+from innumerable contributors, with kibitzing by more than a few Perl
+porters.
+
+Last update: Wed May 14 11:14:09 EDT 1997
diff --git a/lib/5.24.1/pod/perl5005delta.pod b/lib/5.24.1/pod/perl5005delta.pod
new file mode 100644
index 00000000..e73bcebc
--- /dev/null
+++ b/lib/5.24.1/pod/perl5005delta.pod
@@ -0,0 +1,993 @@
+=head1 NAME
+
+perl5005delta - what's new for perl5.005
+
+=head1 DESCRIPTION
+
+This document describes differences between the 5.004 release and this one.
+
+=head1 About the new versioning system
+
+Perl is now developed on two tracks: a maintenance track that makes
+small, safe updates to released production versions with emphasis on
+compatibility; and a development track that pursues more aggressive
+evolution.  Maintenance releases (which should be considered production
+quality) have subversion numbers that run from C<1> to C<49>, and
+development releases (which should be considered "alpha" quality) run
+from C<50> to C<99>.
+
+Perl 5.005 is the combined product of the new dual-track development
+scheme.
+
+=head1 Incompatible Changes
+
+=head2 WARNING:  This version is not binary compatible with Perl 5.004.
+
+Starting with Perl 5.004_50 there were many deep and far-reaching changes
+to the language internals.  If you have dynamically loaded extensions
+that you built under perl 5.003 or 5.004, you can continue to use them
+with 5.004, but you will need to rebuild and reinstall those extensions
+to use them 5.005.  See F<INSTALL> for detailed instructions on how to
+upgrade.
+
+=head2 Default installation structure has changed
+
+The new Configure defaults are designed to allow a smooth upgrade from
+5.004 to 5.005, but you should read F<INSTALL> for a detailed
+discussion of the changes in order to adapt them to your system.
+
+=head2 Perl Source Compatibility
+
+When none of the experimental features are enabled, there should be
+very few user-visible Perl source compatibility issues.
+
+If threads are enabled, then some caveats apply. C<@_> and C<$_> become
+lexical variables.  The effect of this should be largely transparent to
+the user, but there are some boundary conditions under which user will
+need to be aware of the issues.  For example, C<local(@_)> results in
+a "Can't localize lexical variable @_ ..." message.  This may be enabled
+in a future version.
+
+Some new keywords have been introduced.  These are generally expected to
+have very little impact on compatibility.  See L<New C<INIT> keyword>,
+L<New C<lock> keyword>, and L<New C<qrE<sol>E<sol>> operator>.
+
+Certain barewords are now reserved.  Use of these will provoke a warning
+if you have asked for them with the C<-w> switch.
+See L<C<our> is now a reserved word>.
+
+=head2 C Source Compatibility
+
+There have been a large number of changes in the internals to support
+the new features in this release.
+
+=over 4
+
+=item *
+
+Core sources now require ANSI C compiler
+
+An ANSI C compiler is now B<required> to build perl.  See F<INSTALL>.
+
+=item *
+
+All Perl global variables must now be referenced with an explicit prefix
+
+All Perl global variables that are visible for use by extensions now
+have a C<PL_> prefix.  New extensions should C<not> refer to perl globals
+by their unqualified names.  To preserve sanity, we provide limited
+backward compatibility for globals that are being widely used like
+C<sv_undef> and C<na> (which should now be written as C<PL_sv_undef>,
+C<PL_na> etc.)
+
+If you find that your XS extension does not compile anymore because a
+perl global is not visible, try adding a C<PL_> prefix to the global
+and rebuild.
+
+It is strongly recommended that all functions in the Perl API that don't
+begin with C<perl> be referenced with a C<Perl_> prefix.  The bare function
+names without the C<Perl_> prefix are supported with macros, but this
+support may cease in a future release.
+
+See L<perlapi>.
+
+=item *
+
+Enabling threads has source compatibility issues
+
+Perl built with threading enabled requires extensions to use the new
+C<dTHR> macro to initialize the handle to access per-thread data.
+If you see a compiler error that talks about the variable C<thr> not
+being declared (when building a module that has XS code),  you need
+to add C<dTHR;> at the beginning of the block that elicited the error.
+
+The API function C<perl_get_sv("@",GV_ADD)> should be used instead of
+directly accessing perl globals as C<GvSV(errgv)>.  The API call is
+backward compatible with existing perls and provides source compatibility
+with threading is enabled.
+
+See L<"C Source Compatibility"> for more information.
+
+=back
+
+=head2 Binary Compatibility
+
+This version is NOT binary compatible with older versions.  All extensions
+will need to be recompiled.  Further binaries built with threads enabled
+are incompatible with binaries built without.  This should largely be
+transparent to the user, as all binary incompatible configurations have
+their own unique architecture name, and extension binaries get installed at
+unique locations.  This allows coexistence of several configurations in
+the same directory hierarchy.  See F<INSTALL>.
+
+=head2 Security fixes may affect compatibility
+
+A few taint leaks and taint omissions have been corrected.  This may lead
+to "failure" of scripts that used to work with older versions.  Compiling
+with -DINCOMPLETE_TAINTS provides a perl with minimal amounts of changes
+to the tainting behavior.  But note that the resulting perl will have
+known insecurities.
+
+Oneliners with the C<-e> switch do not create temporary files anymore.
+
+=head2 Relaxed new mandatory warnings introduced in 5.004
+
+Many new warnings that were introduced in 5.004 have been made
+optional.  Some of these warnings are still present, but perl's new
+features make them less often a problem.  See L<New Diagnostics>.
+
+=head2 Licensing
+
+Perl has a new Social Contract for contributors.  See F<Porting/Contract>.
+
+The license included in much of the Perl documentation has changed.
+Most of the Perl documentation was previously under the implicit GNU
+General Public License or the Artistic License (at the user's choice).
+Now much of the documentation unambiguously states the terms under which
+it may be distributed.  Those terms are in general much less restrictive
+than the GNU GPL.  See L<perl> and the individual perl manpages listed
+therein.
+
+=head1 Core Changes
+
+
+=head2 Threads
+
+WARNING: Threading is considered an B<experimental> feature.  Details of the
+implementation may change without notice.  There are known limitations
+and some bugs.  These are expected to be fixed in future versions.
+
+See F<README.threads>.
+
+=head2 Compiler
+
+WARNING: The Compiler and related tools are considered B<experimental>.
+Features may change without notice, and there are known limitations
+and bugs.  Since the compiler is fully external to perl, the default
+configuration will build and install it.
+
+The Compiler produces three different types of transformations of a
+perl program.  The C backend generates C code that captures perl's state
+just before execution begins.  It eliminates the compile-time overheads
+of the regular perl interpreter, but the run-time performance remains
+comparatively the same.  The CC backend generates optimized C code
+equivalent to the code path at run-time.  The CC backend has greater
+potential for big optimizations, but only a few optimizations are
+implemented currently.  The Bytecode backend generates a platform
+independent bytecode representation of the interpreter's state
+just before execution.  Thus, the Bytecode back end also eliminates
+much of the compilation overhead of the interpreter.
+
+The compiler comes with several valuable utilities.
+
+C<B::Lint> is an experimental module to detect and warn about suspicious
+code, especially the cases that the C<-w> switch does not detect.
+
+C<B::Deparse> can be used to demystify perl code, and understand
+how perl optimizes certain constructs.
+
+C<B::Xref> generates cross reference reports of all definition and use
+of variables, subroutines and formats in a program.
+
+C<B::Showlex> show the lexical variables used by a subroutine or file
+at a glance.
+
+C<perlcc> is a simple frontend for compiling perl.
+
+See C<ext/B/README>, L<B>, and the respective compiler modules.
+
+=head2 Regular Expressions
+
+Perl's regular expression engine has been seriously overhauled, and
+many new constructs are supported.  Several bugs have been fixed.
+
+Here is an itemized summary:
+
+=over 4
+
+=item Many new and improved optimizations
+
+Changes in the RE engine:
+
+	Unneeded nodes removed;
+	Substrings merged together;
+	New types of nodes to process (SUBEXPR)* and similar expressions
+	    quickly, used if the SUBEXPR has no side effects and matches
+	    strings of the same length;
+	Better optimizations by lookup for constant substrings;
+	Better search for constants substrings anchored by $ ;
+
+Changes in Perl code using RE engine:
+
+	More optimizations to s/longer/short/;
+	study() was not working;
+	/blah/ may be optimized to an analogue of index() if $& $` $' not seen;
+	Unneeded copying of matched-against string removed;
+	Only matched part of the string is copying if $` $' were not seen;
+
+=item Many bug fixes
+
+Note that only the major bug fixes are listed here.  See F<Changes> for others.
+
+	Backtracking might not restore start of $3.
+	No feedback if max count for * or + on "complex" subexpression
+	    was reached, similarly (but at compile time) for {3,34567}
+	Primitive restrictions on max count introduced to decrease a 
+	    possibility of a segfault;
+	(ZERO-LENGTH)* could segfault;
+	(ZERO-LENGTH)* was prohibited;
+	Long REs were not allowed;
+	/RE/g could skip matches at the same position after a 
+	  zero-length match;
+
+=item New regular expression constructs
+
+The following new syntax elements are supported:
+
+	(?<=RE)
+	(?<!RE)
+	(?{ CODE })
+	(?i-x)
+	(?i:RE)
+	(?(COND)YES_RE|NO_RE)
+	(?>RE)
+	\z
+
+=item New operator for precompiled regular expressions
+
+See L<New C<qrE<sol>E<sol>> operator>.
+
+=item Other improvements
+
+	Better debugging output (possibly with colors),
+            even from non-debugging Perl;
+	RE engine code now looks like C, not like assembler;
+	Behaviour of RE modifiable by `use re' directive;
+	Improved documentation;
+	Test suite significantly extended;
+	Syntax [:^upper:] etc., reserved inside character classes;
+
+=item Incompatible changes
+
+	(?i) localized inside enclosing group;
+	$( is not interpolated into RE any more;
+	/RE/g may match at the same position (with non-zero length)
+	    after a zero-length match (bug fix).
+
+=back
+
+See L<perlre> and L<perlop>.
+
+=head2   Improved malloc()
+
+See banner at the beginning of C<malloc.c> for details.
+
+=head2 Quicksort is internally implemented
+
+Perl now contains its own highly optimized qsort() routine.  The new qsort()
+is resistant to inconsistent comparison functions, so Perl's C<sort()> will
+not provoke coredumps any more when given poorly written sort subroutines.
+(Some C library C<qsort()>s that were being used before used to have this
+problem.)  In our testing, the new C<qsort()> required the minimal number
+of pair-wise compares on average, among all known C<qsort()> implementations.
+
+See C<perlfunc/sort>.
+
+=head2 Reliable signals
+
+Perl's signal handling is susceptible to random crashes, because signals
+arrive asynchronously, and the Perl runtime is not reentrant at arbitrary
+times.
+
+However, one experimental implementation of reliable signals is available
+when threads are enabled.  See C<Thread::Signal>.  Also see F<INSTALL> for
+how to build a Perl capable of threads.
+
+=head2 Reliable stack pointers
+
+The internals now reallocate the perl stack only at predictable times.
+In particular, magic calls never trigger reallocations of the stack,
+because all reentrancy of the runtime is handled using a "stack of stacks".
+This should improve reliability of cached stack pointers in the internals
+and in XSUBs.
+
+=head2 More generous treatment of carriage returns
+
+Perl used to complain if it encountered literal carriage returns in
+scripts.  Now they are mostly treated like whitespace within program text.
+Inside string literals and here documents, literal carriage returns are
+ignored if they occur paired with linefeeds, or get interpreted as whitespace
+if they stand alone.  This behavior means that literal carriage returns
+in files should be avoided.  You can get the older, more compatible (but
+less generous) behavior by defining the preprocessor symbol
+C<PERL_STRICT_CR> when building perl.  Of course, all this has nothing
+whatever to do with how escapes like C<\r> are handled within strings.
+
+Note that this doesn't somehow magically allow you to keep all text files
+in DOS format.  The generous treatment only applies to files that perl
+itself parses.  If your C compiler doesn't allow carriage returns in
+files, you may still be unable to build modules that need a C compiler.
+
+=head2 Memory leaks
+
+C<substr>, C<pos> and C<vec> don't leak memory anymore when used in lvalue
+context.  Many small leaks that impacted applications that embed multiple
+interpreters have been fixed.
+
+=head2 Better support for multiple interpreters
+
+The build-time option C<-DMULTIPLICITY> has had many of the details
+reworked.  Some previously global variables that should have been
+per-interpreter now are.  With care, this allows interpreters to call
+each other.  See the C<PerlInterp> extension on CPAN.
+
+=head2 Behavior of local() on array and hash elements is now well-defined
+
+See L<perlsub/"Temporary Values via local()">.
+
+=head2 C<%!> is transparently tied to the L<Errno> module
+
+See L<perlvar>, and L<Errno>.
+
+=head2 Pseudo-hashes are supported
+
+See L<perlref>.
+
+=head2 C<EXPR foreach EXPR> is supported
+
+See L<perlsyn>.
+
+=head2 Keywords can be globally overridden
+
+See L<perlsub>.
+
+=head2 C<$^E> is meaningful on Win32
+
+See L<perlvar>.
+
+=head2 C<foreach (1..1000000)> optimized
+
+C<foreach (1..1000000)> is now optimized into a counting loop.  It does
+not try to allocate a 1000000-size list anymore.
+
+=head2 C<Foo::> can be used as implicitly quoted package name
+
+Barewords caused unintuitive behavior when a subroutine with the same
+name as a package happened to be defined.  Thus, C<new Foo @args>,
+use the result of the call to C<Foo()> instead of C<Foo> being treated
+as a literal.  The recommended way to write barewords in the indirect
+object slot is C<new Foo:: @args>.  Note that the method C<new()> is
+called with a first argument of C<Foo>, not C<Foo::> when you do that.
+
+=head2 C<exists $Foo::{Bar::}> tests existence of a package
+
+It was impossible to test for the existence of a package without
+actually creating it before.  Now C<exists $Foo::{Bar::}> can be
+used to test if the C<Foo::Bar> namespace has been created.
+
+=head2 Better locale support
+
+See L<perllocale>.
+
+=head2 Experimental support for 64-bit platforms
+
+Perl5 has always had 64-bit support on systems with 64-bit longs.
+Starting with 5.005, the beginnings of experimental support for systems
+with 32-bit long and 64-bit 'long long' integers has been added.
+If you add -DUSE_LONG_LONG to your ccflags in config.sh (or manually
+define it in perl.h) then perl will be built with 'long long' support.
+There will be many compiler warnings, and the resultant perl may not
+work on all systems.  There are many other issues related to
+third-party extensions and libraries.  This option exists to allow
+people to work on those issues.
+
+=head2 prototype() returns useful results on builtins
+
+See L<perlfunc/prototype>.
+
+=head2 Extended support for exception handling
+
+C<die()> now accepts a reference value, and C<$@> gets set to that
+value in exception traps.  This makes it possible to propagate
+exception objects.  This is an undocumented B<experimental> feature.
+
+=head2 Re-blessing in DESTROY() supported for chaining DESTROY() methods
+
+See L<perlobj/Destructors>.
+
+=head2 All C<printf> format conversions are handled internally
+
+See L<perlfunc/printf>.
+
+=head2 New C<INIT> keyword
+
+C<INIT> subs are like C<BEGIN> and C<END>, but they get run just before
+the perl runtime begins execution.  e.g., the Perl Compiler makes use of
+C<INIT> blocks to initialize and resolve pointers to XSUBs.
+
+=head2 New C<lock> keyword
+
+The C<lock> keyword is the fundamental synchronization primitive
+in threaded perl.  When threads are not enabled, it is currently a noop.
+
+To minimize impact on source compatibility this keyword is "weak", i.e., any
+user-defined subroutine of the same name overrides it, unless a C<use Thread>
+has been seen.
+
+=head2 New C<qr//> operator
+
+The C<qr//> operator, which is syntactically similar to the other quote-like
+operators, is used to create precompiled regular expressions.  This compiled
+form can now be explicitly passed around in variables, and interpolated in
+other regular expressions.  See L<perlop>.
+
+=head2 C<our> is now a reserved word
+
+Calling a subroutine with the name C<our> will now provoke a warning when
+using the C<-w> switch.
+
+=head2 Tied arrays are now fully supported
+
+See L<Tie::Array>.
+
+=head2 Tied handles support is better
+
+Several missing hooks have been added.  There is also a new base class for
+TIEARRAY implementations.  See L<Tie::Array>.
+
+=head2 4th argument to substr
+
+substr() can now both return and replace in one operation.  The optional
+4th argument is the replacement string.  See L<perlfunc/substr>.
+
+=head2 Negative LENGTH argument to splice
+
+splice() with a negative LENGTH argument now work similar to what the
+LENGTH did for substr().  Previously a negative LENGTH was treated as
+0.  See L<perlfunc/splice>.
+
+=head2 Magic lvalues are now more magical
+
+When you say something like C<substr($x, 5) = "hi">, the scalar returned
+by substr() is special, in that any modifications to it affect $x.
+(This is called a 'magic lvalue' because an 'lvalue' is something on
+the left side of an assignment.)  Normally, this is exactly what you
+would expect to happen, but Perl uses the same magic if you use substr(),
+pos(), or vec() in a context where they might be modified, like taking
+a reference with C<\> or as an argument to a sub that modifies C<@_>.
+In previous versions, this 'magic' only went one way, but now changes
+to the scalar the magic refers to ($x in the above example) affect the
+magic lvalue too. For instance, this code now acts differently:
+
+    $x = "hello";
+    sub printit {
+	$x = "g'bye";
+	print $_[0], "\n";
+    }
+    printit(substr($x, 0, 5));
+
+In previous versions, this would print "hello", but it now prints "g'bye".
+
+=head2 <> now reads in records
+
+If C<$/> is a reference to an integer, or a scalar that holds an integer,
+<> will read in records instead of lines. For more info, see
+L<perlvar/$E<sol>>.
+
+=head1 Supported Platforms
+
+Configure has many incremental improvements.  Site-wide policy for building
+perl can now be made persistent, via Policy.sh.  Configure also records
+the command-line arguments used in F<config.sh>.
+
+=head2 New Platforms
+
+BeOS is now supported.  See F<README.beos>.
+
+DOS is now supported under the DJGPP tools.  See F<README.dos> (installed 
+as L<perldos> on some systems).
+
+MiNT is now supported.  See F<README.mint>.
+
+MPE/iX is now supported.  See README.mpeix.
+
+MVS (aka OS390, aka Open Edition) is now supported.  See F<README.os390> 
+(installed as L<perlos390> on some systems).
+
+Stratus VOS is now supported.  See F<README.vos>.
+
+=head2 Changes in existing support
+
+Win32 support has been vastly enhanced.  Support for Perl Object, a C++
+encapsulation of Perl.  GCC and EGCS are now supported on Win32.
+See F<README.win32>, aka L<perlwin32>.
+
+VMS configuration system has been rewritten.  See F<README.vms> (installed 
+as F<README_vms> on some systems).
+
+The hints files for most Unix platforms have seen incremental improvements.
+
+=head1 Modules and Pragmata
+
+=head2 New Modules
+
+=over 4
+
+=item B
+
+Perl compiler and tools.  See L<B>.
+
+=item Data::Dumper
+
+A module to pretty print Perl data.  See L<Data::Dumper>.
+
+=item Dumpvalue
+
+A module to dump perl values to the screen. See L<Dumpvalue>.
+
+=item Errno
+
+A module to look up errors more conveniently.  See L<Errno>.
+
+=item File::Spec
+
+A portable API for file operations.
+
+=item ExtUtils::Installed
+
+Query and manage installed modules.
+
+=item ExtUtils::Packlist
+
+Manipulate .packlist files.
+
+=item Fatal
+
+Make functions/builtins succeed or die.
+
+=item IPC::SysV
+
+Constants and other support infrastructure for System V IPC operations
+in perl.
+
+=item Test
+
+A framework for writing test suites.
+
+=item Tie::Array
+
+Base class for tied arrays.
+
+=item Tie::Handle
+
+Base class for tied handles.
+
+=item Thread
+
+Perl thread creation, manipulation, and support.
+
+=item attrs
+
+Set subroutine attributes.
+
+=item fields
+
+Compile-time class fields.
+
+=item re
+
+Various pragmata to control behavior of regular expressions.
+
+=back
+
+=head2 Changes in existing modules
+
+=over 4
+
+=item Benchmark
+
+You can now run tests for I<x> seconds instead of guessing the right
+number of tests to run.
+
+Keeps better time.
+
+=item Carp
+
+Carp has a new function cluck(). cluck() warns, like carp(), but also adds
+a stack backtrace to the error message, like confess().
+
+=item CGI
+
+CGI has been updated to version 2.42.
+
+=item Fcntl
+
+More Fcntl constants added: F_SETLK64, F_SETLKW64, O_LARGEFILE for
+large (more than 4G) file access (the 64-bit support is not yet
+working, though, so no need to get overly excited), Free/Net/OpenBSD
+locking behaviour flags F_FLOCK, F_POSIX, Linux F_SHLCK, and
+O_ACCMODE: the mask of O_RDONLY, O_WRONLY, and O_RDWR.
+
+=item Math::Complex
+
+The accessors methods Re, Im, arg, abs, rho, theta, methods can
+($z->Re()) now also act as mutators ($z->Re(3)).
+
+=item Math::Trig
+
+A little bit of radial trigonometry (cylindrical and spherical) added,
+for example the great circle distance.
+
+=item POSIX
+
+POSIX now has its own platform-specific hints files.
+
+=item DB_File
+
+DB_File supports version 2.x of Berkeley DB.  See C<ext/DB_File/Changes>.
+
+=item MakeMaker
+
+MakeMaker now supports writing empty makefiles, provides a way to
+specify that site umask() policy should be honored.  There is also
+better support for manipulation of .packlist files, and getting
+information about installed modules.
+
+Extensions that have both architecture-dependent and
+architecture-independent files are now always installed completely in
+the architecture-dependent locations.  Previously, the shareable parts
+were shared both across architectures and across perl versions and were
+therefore liable to be overwritten with newer versions that might have
+subtle incompatibilities.
+
+=item CPAN
+
+See L<perlmodinstall> and L<CPAN>.
+
+=item Cwd
+
+Cwd::cwd is faster on most platforms.
+
+=back
+
+=head1 Utility Changes
+
+C<h2ph> and related utilities have been vastly overhauled.
+
+C<perlcc>, a new experimental front end for the compiler is available.
+
+The crude GNU C<configure> emulator is now called C<configure.gnu> to
+avoid trampling on C<Configure> under case-insensitive filesystems.
+
+C<perldoc> used to be rather slow.  The slower features are now optional.
+In particular, case-insensitive searches need the C<-i> switch, and
+recursive searches need C<-r>.  You can set these switches in the
+C<PERLDOC> environment variable to get the old behavior.
+
+=head1 Documentation Changes
+
+Config.pm now has a glossary of variables.
+
+F<Porting/patching.pod> has detailed instructions on how to create and
+submit patches for perl.
+
+L<perlport> specifies guidelines on how to write portably. 
+
+L<perlmodinstall> describes how to fetch and install modules from C<CPAN>
+sites.
+
+Some more Perl traps are documented now.  See L<perltrap>.
+
+L<perlopentut> gives a tutorial on using open().
+
+L<perlreftut> gives a tutorial on references.
+
+L<perlthrtut> gives a tutorial on threads.
+
+=head1 New Diagnostics
+
+=over 4
+
+=item Ambiguous call resolved as CORE::%s(), qualify as such or use &
+
+(W) A subroutine you have declared has the same name as a Perl keyword,
+and you have used the name without qualification for calling one or the
+other.  Perl decided to call the builtin because the subroutine is
+not imported.
+
+To force interpretation as a subroutine call, either put an ampersand
+before the subroutine name, or qualify the name with its package.
+Alternatively, you can import the subroutine (or pretend that it's
+imported with the C<use subs> pragma).
+
+To silently interpret it as the Perl operator, use the C<CORE::> prefix
+on the operator (e.g. C<CORE::log($x)>) or by declaring the subroutine
+to be an object method (see L</attrs>).
+
+=item Bad index while coercing array into hash
+
+(F) The index looked up in the hash found as the 0'th element of a
+pseudo-hash is not legal.  Index values must be at 1 or greater.
+See L<perlref>.
+
+=item Bareword "%s" refers to nonexistent package
+
+(W) You used a qualified bareword of the form C<Foo::>, but
+the compiler saw no other uses of that namespace before that point.
+Perhaps you need to predeclare a package?
+
+=item Can't call method "%s" on an undefined value
+
+(F) You used the syntax of a method call, but the slot filled by the
+object reference or package name contains an undefined value.
+Something like this will reproduce the error:
+
+    $BADREF = 42;
+    process $BADREF 1,2,3;
+    $BADREF->process(1,2,3);
+
+=item Can't check filesystem of script "%s" for nosuid
+
+(P) For some reason you can't check the filesystem of the script for nosuid.
+
+=item Can't coerce array into hash
+
+(F) You used an array where a hash was expected, but the array has no
+information on how to map from keys to array indices.  You can do that
+only with arrays that have a hash reference at index 0.
+
+=item Can't goto subroutine from an eval-string
+
+(F) The "goto subroutine" call can't be used to jump out of an eval "string".
+(You can use it to jump out of an eval {BLOCK}, but you probably don't want to.)
+
+=item Can't localize pseudo-hash element
+
+(F) You said something like C<< local $ar->{'key'} >>, where $ar is
+a reference to a pseudo-hash.  That hasn't been implemented yet, but
+you can get a similar effect by localizing the corresponding array
+element directly: C<< local $ar->[$ar->[0]{'key'}] >>.
+
+=item Can't use %%! because Errno.pm is not available
+
+(F) The first time the %! hash is used, perl automatically loads the
+Errno.pm module. The Errno module is expected to tie the %! hash to
+provide symbolic names for C<$!> errno values.
+
+=item Cannot find an opnumber for "%s"
+
+(F) A string of a form C<CORE::word> was given to prototype(), but
+there is no builtin with the name C<word>.
+
+=item Character class syntax [. .] is reserved for future extensions
+
+(W) Within regular expression character classes ([]) the syntax beginning
+with "[." and ending with ".]" is reserved for future extensions.
+If you need to represent those character sequences inside a regular
+expression character class, just quote the square brackets with the
+backslash: "\[." and ".\]".
+
+=item Character class syntax [: :] is reserved for future extensions
+
+(W) Within regular expression character classes ([]) the syntax beginning
+with "[:" and ending with ":]" is reserved for future extensions.
+If you need to represent those character sequences inside a regular
+expression character class, just quote the square brackets with the
+backslash: "\[:" and ":\]".
+
+=item Character class syntax [= =] is reserved for future extensions
+
+(W) Within regular expression character classes ([]) the syntax
+beginning with "[=" and ending with "=]" is reserved for future extensions.
+If you need to represent those character sequences inside a regular
+expression character class, just quote the square brackets with the
+backslash: "\[=" and "=\]".
+
+=item %s: Eval-group in insecure regular expression
+
+(F) Perl detected tainted data when trying to compile a regular expression
+that contains the C<(?{ ... })> zero-width assertion, which is unsafe.
+See L<perlre/(?{ code })>, and L<perlsec>.
+
+=item %s: Eval-group not allowed, use re 'eval'
+
+(F) A regular expression contained the C<(?{ ... })> zero-width assertion,
+but that construct is only allowed when the C<use re 'eval'> pragma is
+in effect.  See L<perlre/(?{ code })>.
+
+=item %s: Eval-group not allowed at run time
+
+(F) Perl tried to compile a regular expression containing the C<(?{ ... })>
+zero-width assertion at run time, as it would when the pattern contains
+interpolated values.  Since that is a security risk, it is not allowed.
+If you insist, you may still do this by explicitly building the pattern
+from an interpolated string at run time and using that in an eval().
+See L<perlre/(?{ code })>.
+
+=item Explicit blessing to '' (assuming package main)
+
+(W) You are blessing a reference to a zero length string.  This has
+the effect of blessing the reference into the package main.  This is
+usually not what you want.  Consider providing a default target
+package, e.g. bless($ref, $p || 'MyPackage');
+
+=item Illegal hex digit ignored
+
+(W) You may have tried to use a character other than 0 - 9 or A - F in a
+hexadecimal number.  Interpretation of the hexadecimal number stopped
+before the illegal character.
+
+=item No such array field
+
+(F) You tried to access an array as a hash, but the field name used is
+not defined.  The hash at index 0 should map all valid field names to
+array indices for that to work.
+
+=item No such field "%s" in variable %s of type %s
+
+(F) You tried to access a field of a typed variable where the type
+does not know about the field name.  The field names are looked up in
+the %FIELDS hash in the type package at compile time.  The %FIELDS hash
+is usually set up with the 'fields' pragma.
+
+=item Out of memory during ridiculously large request
+
+(F) You can't allocate more than 2^31+"small amount" bytes.  This error
+is most likely to be caused by a typo in the Perl program. e.g., C<$arr[time]>
+instead of C<$arr[$time]>.
+
+=item Range iterator outside integer range
+
+(F) One (or both) of the numeric arguments to the range operator ".."
+are outside the range which can be represented by integers internally.
+One possible workaround is to force Perl to use magical string
+increment by prepending "0" to your numbers.
+
+=item Recursive inheritance detected while looking for method '%s' %s
+
+(F) More than 100 levels of inheritance were encountered while invoking a
+method.  Probably indicates an unintended loop in your inheritance hierarchy.
+
+=item Reference found where even-sized list expected
+
+(W) You gave a single reference where Perl was expecting a list with
+an even number of elements (for assignment to a hash). This
+usually means that you used the anon hash constructor when you meant 
+to use parens. In any case, a hash requires key/value B<pairs>.
+
+    %hash = { one => 1, two => 2, };   # WRONG
+    %hash = [ qw/ an anon array / ];   # WRONG
+    %hash = ( one => 1, two => 2, );   # right
+    %hash = qw( one 1 two 2 );                 # also fine
+
+=item Undefined value assigned to typeglob
+
+(W) An undefined value was assigned to a typeglob, a la C<*foo = undef>.
+This does nothing.  It's possible that you really mean C<undef *foo>.
+
+=item Use of reserved word "%s" is deprecated
+
+(D) The indicated bareword is a reserved word.  Future versions of perl
+may use it as a keyword, so you're better off either explicitly quoting
+the word in a manner appropriate for its context of use, or using a
+different name altogether.  The warning can be suppressed for subroutine
+names by either adding a C<&> prefix, or using a package qualifier,
+e.g. C<&our()>, or C<Foo::our()>.
+
+=item perl: warning: Setting locale failed.
+
+(S) The whole warning message will look something like:
+
+       perl: warning: Setting locale failed.
+       perl: warning: Please check that your locale settings:
+               LC_ALL = "En_US",
+               LANG = (unset)
+           are supported and installed on your system.
+       perl: warning: Falling back to the standard locale ("C").
+
+Exactly what were the failed locale settings varies.  In the above the
+settings were that the LC_ALL was "En_US" and the LANG had no value.
+This error means that Perl detected that you and/or your system
+administrator have set up the so-called variable system but Perl could
+not use those settings.  This was not dead serious, fortunately: there
+is a "default locale" called "C" that Perl can and will use, the
+script will be run.  Before you really fix the problem, however, you
+will get the same error message each time you run Perl.  How to really
+fix the problem can be found in L<perllocale/"LOCALE PROBLEMS">.
+
+=back
+
+
+=head1 Obsolete Diagnostics
+
+=over 4
+
+=item Can't mktemp()
+
+(F) The mktemp() routine failed for some reason while trying to process
+a B<-e> switch.  Maybe your /tmp partition is full, or clobbered.
+
+Removed because B<-e> doesn't use temporary files any more.
+
+=item Can't write to temp file for B<-e>: %s
+
+(F) The write routine failed for some reason while trying to process
+a B<-e> switch.  Maybe your /tmp partition is full, or clobbered.
+
+Removed because B<-e> doesn't use temporary files any more.
+
+=item Cannot open temporary file
+
+(F) The create routine failed for some reason while trying to process
+a B<-e> switch.  Maybe your /tmp partition is full, or clobbered.
+
+Removed because B<-e> doesn't use temporary files any more.
+
+=item regexp too big
+
+(F) The current implementation of regular expressions uses shorts as
+address offsets within a string.  Unfortunately this means that if
+the regular expression compiles to longer than 32767, it'll blow up.
+Usually when you want a regular expression this big, there is a better
+way to do it with multiple statements.  See L<perlre>.
+
+=back
+
+=head1 Configuration Changes
+
+You can use "Configure -Uinstallusrbinperl" which causes installperl
+to skip installing perl also as /usr/bin/perl.  This is useful if you
+prefer not to modify /usr/bin for some reason or another but harmful
+because many scripts assume to find Perl in /usr/bin/perl.
+
+=head1 BUGS
+
+If you find what you think is a bug, you might check the headers of
+recently posted articles in the comp.lang.perl.misc newsgroup.
+There may also be information at http://www.perl.com/perl/ , the Perl
+Home Page.
+
+If you believe you have an unreported bug, please run the B<perlbug>
+program included with your release.  Make sure you trim your bug down
+to a tiny but sufficient test case.  Your bug report, along with the
+output of C<perl -V>, will be sent off to <F<perlbug@perl.com>> to be
+analysed by the Perl porting team.
+
+=head1 SEE ALSO
+
+The F<Changes> file for exhaustive details on what changed.
+
+The F<INSTALL> file for how to build Perl.
+
+The F<README> file for general stuff.
+
+The F<Artistic> and F<Copying> files for copyright information.
+
+=head1 HISTORY
+
+Written by Gurusamy Sarathy <F<gsar@activestate.com>>, with many contributions
+from The Perl Porters.
+
+Send omissions or corrections to <F<perlbug@perl.com>>.
+
+=cut
diff --git a/lib/5.24.1/pod/perl5100delta.pod b/lib/5.24.1/pod/perl5100delta.pod
new file mode 100644
index 00000000..10d71d68
--- /dev/null
+++ b/lib/5.24.1/pod/perl5100delta.pod
@@ -0,0 +1,1629 @@
+=encoding utf8
+
+=head1 NAME
+
+perl5100delta - what is new for perl 5.10.0
+
+=head1 DESCRIPTION
+
+This document describes the differences between the 5.8.8 release and
+the 5.10.0 release.
+
+Many of the bug fixes in 5.10.0 were already seen in the 5.8.X maintenance
+releases; they are not duplicated here and are documented in the set of
+man pages named perl58[1-8]?delta.
+
+=head1 Core Enhancements
+
+=head2 The C<feature> pragma
+
+The C<feature> pragma is used to enable new syntax that would break Perl's
+backwards-compatibility with older releases of the language. It's a lexical
+pragma, like C<strict> or C<warnings>.
+
+Currently the following new features are available: C<switch> (adds a
+switch statement), C<say> (adds a C<say> built-in function), and C<state>
+(adds a C<state> keyword for declaring "static" variables). Those
+features are described in their own sections of this document.
+
+The C<feature> pragma is also implicitly loaded when you require a minimal
+perl version (with the C<use VERSION> construct) greater than, or equal
+to, 5.9.5. See L<feature> for details.
+
+=head2 New B<-E> command-line switch
+
+B<-E> is equivalent to B<-e>, but it implicitly enables all
+optional features (like C<use feature ":5.10">).
+
+=head2 Defined-or operator
+
+A new operator C<//> (defined-or) has been implemented.
+The following expression:
+
+    $a // $b
+
+is merely equivalent to
+
+   defined $a ? $a : $b
+
+and the statement
+
+   $c //= $d;
+
+can now be used instead of
+
+   $c = $d unless defined $c;
+
+The C<//> operator has the same precedence and associativity as C<||>.
+Special care has been taken to ensure that this operator Do What You Mean
+while not breaking old code, but some edge cases involving the empty
+regular expression may now parse differently.  See L<perlop> for
+details.
+
+=head2 Switch and Smart Match operator
+
+Perl 5 now has a switch statement. It's available when C<use feature
+'switch'> is in effect. This feature introduces three new keywords,
+C<given>, C<when>, and C<default>:
+
+    given ($foo) {
+	when (/^abc/) { $abc = 1; }
+	when (/^def/) { $def = 1; }
+	when (/^xyz/) { $xyz = 1; }
+	default { $nothing = 1; }
+    }
+
+A more complete description of how Perl matches the switch variable
+against the C<when> conditions is given in L<perlsyn/"Switch statements">.
+
+This kind of match is called I<smart match>, and it's also possible to use
+it outside of switch statements, via the new C<~~> operator. See
+L<perlsyn/"Smart matching in detail">.
+
+This feature was contributed by Robin Houston.
+
+=head2 Regular expressions
+
+=over 4
+
+=item Recursive Patterns
+
+It is now possible to write recursive patterns without using the C<(??{})>
+construct. This new way is more efficient, and in many cases easier to
+read.
+
+Each capturing parenthesis can now be treated as an independent pattern
+that can be entered by using the C<(?PARNO)> syntax (C<PARNO> standing for
+"parenthesis number"). For example, the following pattern will match
+nested balanced angle brackets:
+
+    /
+     ^                      # start of line
+     (                      # start capture buffer 1
+	<                   #   match an opening angle bracket
+	(?:                 #   match one of:
+	    (?>             #     don't backtrack over the inside of this group
+	        [^<>]+      #       one or more non angle brackets
+	    )               #     end non backtracking group
+	|                   #     ... or ...
+	    (?1)            #     recurse to bracket 1 and try it again
+	)*                  #   0 or more times.
+	>                   #   match a closing angle bracket
+     )                      # end capture buffer one
+     $                      # end of line
+    /x
+
+PCRE users should note that Perl's recursive regex feature allows
+backtracking into a recursed pattern, whereas in PCRE the recursion is
+atomic or "possessive" in nature.  As in the example above, you can
+add (?>) to control this selectively.  (Yves Orton)
+
+=item Named Capture Buffers
+
+It is now possible to name capturing parenthesis in a pattern and refer to
+the captured contents by name. The naming syntax is C<< (?<NAME>....) >>.
+It's possible to backreference to a named buffer with the C<< \k<NAME> >>
+syntax. In code, the new magical hashes C<%+> and C<%-> can be used to
+access the contents of the capture buffers.
+
+Thus, to replace all doubled chars with a single copy, one could write
+
+    s/(?<letter>.)\k<letter>/$+{letter}/g
+
+Only buffers with defined contents will be "visible" in the C<%+> hash, so
+it's possible to do something like
+
+    foreach my $name (keys %+) {
+        print "content of buffer '$name' is $+{$name}\n";
+    }
+
+The C<%-> hash is a bit more complete, since it will contain array refs
+holding values from all capture buffers similarly named, if there should
+be many of them.
+
+C<%+> and C<%-> are implemented as tied hashes through the new module
+C<Tie::Hash::NamedCapture>.
+
+Users exposed to the .NET regex engine will find that the perl
+implementation differs in that the numerical ordering of the buffers
+is sequential, and not "unnamed first, then named". Thus in the pattern
+
+   /(A)(?<B>B)(C)(?<D>D)/
+
+$1 will be 'A', $2 will be 'B', $3 will be 'C' and $4 will be 'D' and not
+$1 is 'A', $2 is 'C' and $3 is 'B' and $4 is 'D' that a .NET programmer
+would expect. This is considered a feature. :-) (Yves Orton)
+
+=item Possessive Quantifiers
+
+Perl now supports the "possessive quantifier" syntax of the "atomic match"
+pattern. Basically a possessive quantifier matches as much as it can and never
+gives any back. Thus it can be used to control backtracking. The syntax is
+similar to non-greedy matching, except instead of using a '?' as the modifier
+the '+' is used. Thus C<?+>, C<*+>, C<++>, C<{min,max}+> are now legal
+quantifiers. (Yves Orton)
+
+=item Backtracking control verbs
+
+The regex engine now supports a number of special-purpose backtrack
+control verbs: (*THEN), (*PRUNE), (*MARK), (*SKIP), (*COMMIT), (*FAIL)
+and (*ACCEPT). See L<perlre> for their descriptions. (Yves Orton)
+
+=item Relative backreferences
+
+A new syntax C<\g{N}> or C<\gN> where "N" is a decimal integer allows a
+safer form of back-reference notation as well as allowing relative
+backreferences. This should make it easier to generate and embed patterns
+that contain backreferences. See L<perlre/"Capture buffers">. (Yves Orton)
+
+=item C<\K> escape
+
+The functionality of Jeff Pinyan's module Regexp::Keep has been added to
+the core. In regular expressions you can now use the special escape C<\K>
+as a way to do something like floating length positive lookbehind. It is
+also useful in substitutions like:
+
+  s/(foo)bar/$1/g
+
+that can now be converted to
+
+  s/foo\Kbar//g
+
+which is much more efficient. (Yves Orton)
+
+=item Vertical and horizontal whitespace, and linebreak
+
+Regular expressions now recognize the C<\v> and C<\h> escapes that match
+vertical and horizontal whitespace, respectively. C<\V> and C<\H>
+logically match their complements.
+
+C<\R> matches a generic linebreak, that is, vertical whitespace, plus
+the multi-character sequence C<"\x0D\x0A">.
+
+=item Optional pre-match and post-match captures with the /p flag
+
+There is a new flag C</p> for regular expressions.  Using this
+makes the engine preserve a copy of the part of the matched string before
+the matching substring to the new special variable C<${^PREMATCH}>, the
+part after the matching substring to C<${^POSTMATCH}>, and the matched
+substring itself to C<${^MATCH}>.
+
+Perl is still able to store these substrings to the special variables
+C<$`>, C<$'>, C<$&>, but using these variables anywhere in the program
+adds a penalty to all regular expression matches, whereas if you use
+the C</p> flag and the new special variables instead, you pay only for
+the regular expressions where the flag is used.
+
+For more detail on the new variables, see L<perlvar>; for the use of
+the regular expression flag, see L<perlop> and L<perlre>.
+
+=back
+
+=head2 C<say()>
+
+say() is a new built-in, only available when C<use feature 'say'> is in
+effect, that is similar to print(), but that implicitly appends a newline
+to the printed string. See L<perlfunc/say>. (Robin Houston)
+
+=head2 Lexical C<$_>
+
+The default variable C<$_> can now be lexicalized, by declaring it like
+any other lexical variable, with a simple
+
+    my $_;
+
+The operations that default on C<$_> will use the lexically-scoped
+version of C<$_> when it exists, instead of the global C<$_>.
+
+In a C<map> or a C<grep> block, if C<$_> was previously my'ed, then the
+C<$_> inside the block is lexical as well (and scoped to the block).
+
+In a scope where C<$_> has been lexicalized, you can still have access to
+the global version of C<$_> by using C<$::_>, or, more simply, by
+overriding the lexical declaration with C<our $_>. (Rafael Garcia-Suarez)
+
+=head2 The C<_> prototype
+
+A new prototype character has been added. C<_> is equivalent to C<$> but
+defaults to C<$_> if the corresponding argument isn't supplied (both C<$>
+and C<_> denote a scalar). Due to the optional nature of the argument, 
+you can only use it at the end of a prototype, or before a semicolon.
+
+This has a small incompatible consequence: the prototype() function has
+been adjusted to return C<_> for some built-ins in appropriate cases (for
+example, C<prototype('CORE::rmdir')>). (Rafael Garcia-Suarez)
+
+=head2 UNITCHECK blocks
+
+C<UNITCHECK>, a new special code block has been introduced, in addition to
+C<BEGIN>, C<CHECK>, C<INIT> and C<END>.
+
+C<CHECK> and C<INIT> blocks, while useful for some specialized purposes,
+are always executed at the transition between the compilation and the
+execution of the main program, and thus are useless whenever code is
+loaded at runtime. On the other hand, C<UNITCHECK> blocks are executed
+just after the unit which defined them has been compiled. See L<perlmod>
+for more information. (Alex Gough)
+
+=head2 New Pragma, C<mro>
+
+A new pragma, C<mro> (for Method Resolution Order) has been added. It
+permits to switch, on a per-class basis, the algorithm that perl uses to
+find inherited methods in case of a multiple inheritance hierarchy. The
+default MRO hasn't changed (DFS, for Depth First Search). Another MRO is
+available: the C3 algorithm. See L<mro> for more information.
+(Brandon Black)
+
+Note that, due to changes in the implementation of class hierarchy search,
+code that used to undef the C<*ISA> glob will most probably break. Anyway,
+undef'ing C<*ISA> had the side-effect of removing the magic on the @ISA
+array and should not have been done in the first place. Also, the
+cache C<*::ISA::CACHE::> no longer exists; to force reset the @ISA cache,
+you now need to use the C<mro> API, or more simply to assign to @ISA
+(e.g. with C<@ISA = @ISA>).
+
+=head2 readdir() may return a "short filename" on Windows
+
+The readdir() function may return a "short filename" when the long
+filename contains characters outside the ANSI codepage.  Similarly
+Cwd::cwd() may return a short directory name, and glob() may return short
+names as well.  On the NTFS file system these short names can always be
+represented in the ANSI codepage.  This will not be true for all other file
+system drivers; e.g. the FAT filesystem stores short filenames in the OEM
+codepage, so some files on FAT volumes remain unaccessible through the
+ANSI APIs.
+
+Similarly, $^X, @INC, and $ENV{PATH} are preprocessed at startup to make
+sure all paths are valid in the ANSI codepage (if possible).
+
+The Win32::GetLongPathName() function now returns the UTF-8 encoded
+correct long file name instead of using replacement characters to force
+the name into the ANSI codepage.  The new Win32::GetANSIPathName()
+function can be used to turn a long pathname into a short one only if the
+long one cannot be represented in the ANSI codepage.
+
+Many other functions in the C<Win32> module have been improved to accept
+UTF-8 encoded arguments.  Please see L<Win32> for details.
+
+=head2 readpipe() is now overridable
+
+The built-in function readpipe() is now overridable. Overriding it permits
+also to override its operator counterpart, C<qx//> (a.k.a. C<``>).
+Moreover, it now defaults to C<$_> if no argument is provided. (Rafael
+Garcia-Suarez)
+
+=head2 Default argument for readline()
+
+readline() now defaults to C<*ARGV> if no argument is provided. (Rafael
+Garcia-Suarez)
+
+=head2 state() variables
+
+A new class of variables has been introduced. State variables are similar
+to C<my> variables, but are declared with the C<state> keyword in place of
+C<my>. They're visible only in their lexical scope, but their value is
+persistent: unlike C<my> variables, they're not undefined at scope entry,
+but retain their previous value. (Rafael Garcia-Suarez, Nicholas Clark)
+
+To use state variables, one needs to enable them by using
+
+    use feature 'state';
+
+or by using the C<-E> command-line switch in one-liners.
+See L<perlsub/"Persistent Private Variables">.
+
+=head2 Stacked filetest operators
+
+As a new form of syntactic sugar, it's now possible to stack up filetest
+operators. You can now write C<-f -w -x $file> in a row to mean
+C<-x $file && -w _ && -f _>. See L<perlfunc/-X>.
+
+=head2 UNIVERSAL::DOES()
+
+The C<UNIVERSAL> class has a new method, C<DOES()>. It has been added to
+solve semantic problems with the C<isa()> method. C<isa()> checks for
+inheritance, while C<DOES()> has been designed to be overridden when
+module authors use other types of relations between classes (in addition
+to inheritance). (chromatic)
+
+See L<< UNIVERSAL/"$obj->DOES( ROLE )" >>.
+
+=head2 Formats
+
+Formats were improved in several ways. A new field, C<^*>, can be used for
+variable-width, one-line-at-a-time text. Null characters are now handled
+correctly in picture lines. Using C<@#> and C<~~> together will now
+produce a compile-time error, as those format fields are incompatible.
+L<perlform> has been improved, and miscellaneous bugs fixed.
+
+=head2 Byte-order modifiers for pack() and unpack()
+
+There are two new byte-order modifiers, C<E<gt>> (big-endian) and C<E<lt>>
+(little-endian), that can be appended to most pack() and unpack() template
+characters and groups to force a certain byte-order for that type or group.
+See L<perlfunc/pack> and L<perlpacktut> for details.
+
+=head2 C<no VERSION>
+
+You can now use C<no> followed by a version number to specify that you
+want to use a version of perl older than the specified one.
+
+=head2 C<chdir>, C<chmod> and C<chown> on filehandles
+
+C<chdir>, C<chmod> and C<chown> can now work on filehandles as well as
+filenames, if the system supports respectively C<fchdir>, C<fchmod> and
+C<fchown>, thanks to a patch provided by Gisle Aas.
+
+=head2 OS groups
+
+C<$(> and C<$)> now return groups in the order where the OS returns them,
+thanks to Gisle Aas. This wasn't previously the case.
+
+=head2 Recursive sort subs
+
+You can now use recursive subroutines with sort(), thanks to Robin Houston.
+
+=head2 Exceptions in constant folding
+
+The constant folding routine is now wrapped in an exception handler, and
+if folding throws an exception (such as attempting to evaluate 0/0), perl
+now retains the current optree, rather than aborting the whole program.
+Without this change, programs would not compile if they had expressions that
+happened to generate exceptions, even though those expressions were in code
+that could never be reached at runtime. (Nicholas Clark, Dave Mitchell)
+
+=head2 Source filters in @INC
+
+It's possible to enhance the mechanism of subroutine hooks in @INC by
+adding a source filter on top of the filehandle opened and returned by the
+hook. This feature was planned a long time ago, but wasn't quite working
+until now. See L<perlfunc/require> for details. (Nicholas Clark)
+
+=head2 New internal variables
+
+=over 4
+
+=item C<${^RE_DEBUG_FLAGS}>
+
+This variable controls what debug flags are in effect for the regular
+expression engine when running under C<use re "debug">. See L<re> for
+details.
+
+=item C<${^CHILD_ERROR_NATIVE}>
+
+This variable gives the native status returned by the last pipe close,
+backtick command, successful call to wait() or waitpid(), or from the
+system() operator. See L<perlvar> for details. (Contributed by Gisle Aas.)
+
+=item C<${^RE_TRIE_MAXBUF}>
+
+See L</"Trie optimisation of literal string alternations">.
+
+=item C<${^WIN32_SLOPPY_STAT}>
+
+See L</"Sloppy stat on Windows">.
+
+=back
+
+=head2 Miscellaneous
+
+C<unpack()> now defaults to unpacking the C<$_> variable.
+
+C<mkdir()> without arguments now defaults to C<$_>.
+
+The internal dump output has been improved, so that non-printable characters
+such as newline and backspace are output in C<\x> notation, rather than
+octal.
+
+The B<-C> option can no longer be used on the C<#!> line. It wasn't
+working there anyway, since the standard streams are already set up
+at this point in the execution of the perl interpreter. You can use
+binmode() instead to get the desired behaviour.
+
+=head2 UCD 5.0.0
+
+The copy of the Unicode Character Database included in Perl 5 has
+been updated to version 5.0.0.
+
+=head2 MAD
+
+MAD, which stands for I<Miscellaneous Attribute Decoration>, is a
+still-in-development work leading to a Perl 5 to Perl 6 converter. To
+enable it, it's necessary to pass the argument C<-Dmad> to Configure. The
+obtained perl isn't binary compatible with a regular perl 5.10, and has
+space and speed penalties; moreover not all regression tests still pass
+with it. (Larry Wall, Nicholas Clark)
+
+=head2 kill() on Windows
+
+On Windows platforms, C<kill(-9, $pid)> now kills a process tree.
+(On Unix, this delivers the signal to all processes in the same process
+group.)
+
+=head1 Incompatible Changes
+
+=head2 Packing and UTF-8 strings
+
+The semantics of pack() and unpack() regarding UTF-8-encoded data has been
+changed. Processing is now by default character per character instead of
+byte per byte on the underlying encoding. Notably, code that used things
+like C<pack("a*", $string)> to see through the encoding of string will now
+simply get back the original $string. Packed strings can also get upgraded
+during processing when you store upgraded characters. You can get the old
+behaviour by using C<use bytes>.
+
+To be consistent with pack(), the C<C0> in unpack() templates indicates
+that the data is to be processed in character mode, i.e. character by
+character; on the contrary, C<U0> in unpack() indicates UTF-8 mode, where
+the packed string is processed in its UTF-8-encoded Unicode form on a byte
+by byte basis. This is reversed with regard to perl 5.8.X, but now consistent
+between pack() and unpack().
+
+Moreover, C<C0> and C<U0> can also be used in pack() templates to specify
+respectively character and byte modes.
+
+C<C0> and C<U0> in the middle of a pack or unpack format now switch to the
+specified encoding mode, honoring parens grouping. Previously, parens were
+ignored.
+
+Also, there is a new pack() character format, C<W>, which is intended to
+replace the old C<C>. C<C> is kept for unsigned chars coded as bytes in
+the strings internal representation. C<W> represents unsigned (logical)
+character values, which can be greater than 255. It is therefore more
+robust when dealing with potentially UTF-8-encoded data (as C<C> will wrap
+values outside the range 0..255, and not respect the string encoding).
+
+In practice, that means that pack formats are now encoding-neutral, except
+C<C>.
+
+For consistency, C<A> in unpack() format now trims all Unicode whitespace
+from the end of the string. Before perl 5.9.2, it used to strip only the
+classical ASCII space characters.
+
+=head2 Byte/character count feature in unpack()
+
+A new unpack() template character, C<".">, returns the number of bytes or
+characters (depending on the selected encoding mode, see above) read so far.
+
+=head2 The C<$*> and C<$#> variables have been removed
+
+C<$*>, which was deprecated in favor of the C</s> and C</m> regexp
+modifiers, has been removed.
+
+The deprecated C<$#> variable (output format for numbers) has been
+removed.
+
+Two new severe warnings, C<$#/$* is no longer supported>, have been added.
+
+=head2 substr() lvalues are no longer fixed-length
+
+The lvalues returned by the three argument form of substr() used to be a
+"fixed length window" on the original string. In some cases this could
+cause surprising action at distance or other undefined behaviour. Now the
+length of the window adjusts itself to the length of the string assigned to
+it.
+
+=head2 Parsing of C<-f _>
+
+The identifier C<_> is now forced to be a bareword after a filetest
+operator. This solves a number of misparsing issues when a global C<_>
+subroutine is defined.
+
+=head2 C<:unique>
+
+The C<:unique> attribute has been made a no-op, since its current
+implementation was fundamentally flawed and not threadsafe.
+
+=head2 Effect of pragmas in eval
+
+The compile-time value of the C<%^H> hint variable can now propagate into
+eval("")uated code. This makes it more useful to implement lexical
+pragmas.
+
+As a side-effect of this, the overloaded-ness of constants now propagates
+into eval("").
+
+=head2 chdir FOO
+
+A bareword argument to chdir() is now recognized as a file handle.
+Earlier releases interpreted the bareword as a directory name.
+(Gisle Aas)
+
+=head2 Handling of .pmc files
+
+An old feature of perl was that before C<require> or C<use> look for a
+file with a F<.pm> extension, they will first look for a similar filename
+with a F<.pmc> extension. If this file is found, it will be loaded in
+place of any potentially existing file ending in a F<.pm> extension.
+
+Previously, F<.pmc> files were loaded only if more recent than the
+matching F<.pm> file. Starting with 5.9.4, they'll be always loaded if
+they exist.
+
+=head2 $^V is now a C<version> object instead of a v-string
+
+$^V can still be used with the C<%vd> format in printf, but any
+character-level operations will now access the string representation
+of the C<version> object and not the ordinals of a v-string.
+Expressions like C<< substr($^V, 0, 2) >> or C<< split //, $^V >>
+no longer work and must be rewritten.
+
+=head2 @- and @+ in patterns
+
+The special arrays C<@-> and C<@+> are no longer interpolated in regular
+expressions. (Sadahiro Tomoyuki)
+
+=head2 $AUTOLOAD can now be tainted
+
+If you call a subroutine by a tainted name, and if it defers to an
+AUTOLOAD function, then $AUTOLOAD will be (correctly) tainted.
+(Rick Delaney)
+
+=head2 Tainting and printf
+
+When perl is run under taint mode, C<printf()> and C<sprintf()> will now
+reject any tainted format argument. (Rafael Garcia-Suarez)
+
+=head2 undef and signal handlers
+
+Undefining or deleting a signal handler via C<undef $SIG{FOO}> is now
+equivalent to setting it to C<'DEFAULT'>. (Rafael Garcia-Suarez)
+
+=head2 strictures and dereferencing in defined()
+
+C<use strict 'refs'> was ignoring taking a hard reference in an argument
+to defined(), as in :
+
+    use strict 'refs';
+    my $x = 'foo';
+    if (defined $$x) {...}
+
+This now correctly produces the run-time error C<Can't use string as a
+SCALAR ref while "strict refs" in use>.
+
+C<defined @$foo> and C<defined %$bar> are now also subject to C<strict
+'refs'> (that is, C<$foo> and C<$bar> shall be proper references there.)
+(C<defined(@foo)> and C<defined(%bar)> are discouraged constructs anyway.)
+(Nicholas Clark)
+
+=head2 C<(?p{})> has been removed
+
+The regular expression construct C<(?p{})>, which was deprecated in perl
+5.8, has been removed. Use C<(??{})> instead. (Rafael Garcia-Suarez)
+
+=head2 Pseudo-hashes have been removed
+
+Support for pseudo-hashes has been removed from Perl 5.9. (The C<fields>
+pragma remains here, but uses an alternate implementation.)
+
+=head2 Removal of the bytecode compiler and of perlcc
+
+C<perlcc>, the byteloader and the supporting modules (B::C, B::CC,
+B::Bytecode, etc.) are no longer distributed with the perl sources. Those
+experimental tools have never worked reliably, and, due to the lack of
+volunteers to keep them in line with the perl interpreter developments, it
+was decided to remove them instead of shipping a broken version of those.
+The last version of those modules can be found with perl 5.9.4.
+
+However the B compiler framework stays supported in the perl core, as with
+the more useful modules it has permitted (among others, B::Deparse and
+B::Concise).
+
+=head2 Removal of the JPL
+
+The JPL (Java-Perl Lingo) has been removed from the perl sources tarball.
+
+=head2 Recursive inheritance detected earlier
+
+Perl will now immediately throw an exception if you modify any package's
+C<@ISA> in such a way that it would cause recursive inheritance.
+
+Previously, the exception would not occur until Perl attempted to make
+use of the recursive inheritance while resolving a method or doing a
+C<$foo-E<gt>isa($bar)> lookup.
+
+=head2 warnings::enabled and warnings::warnif changed to favor users of modules
+
+The behaviour in 5.10.x favors the person using the module;
+The behaviour in 5.8.x favors the module writer;
+
+Assume the following code:
+
+  main calls Foo::Bar::baz()
+  Foo::Bar inherits from Foo::Base
+  Foo::Bar::baz() calls Foo::Base::_bazbaz()
+  Foo::Base::_bazbaz() calls: warnings::warnif('substr', 'some warning 
+message');
+
+On 5.8.x, the code warns when Foo::Bar contains C<use warnings;>
+It does not matter if Foo::Base or main have warnings enabled
+to disable the warning one has to modify Foo::Bar.
+
+On 5.10.0 and newer, the code warns when main contains C<use warnings;>
+It does not matter if Foo::Base or Foo::Bar have warnings enabled
+to disable the warning one has to modify main.
+
+=head1 Modules and Pragmata
+
+=head2 Upgrading individual core modules
+
+Even more core modules are now also available separately through the
+CPAN.  If you wish to update one of these modules, you don't need to
+wait for a new perl release.  From within the cpan shell, running the
+'r' command will report on modules with upgrades available.  See
+C<perldoc CPAN> for more information.
+
+=head2 Pragmata Changes
+
+=over 4
+
+=item C<feature>
+
+The new pragma C<feature> is used to enable new features that might break
+old code. See L</"The C<feature> pragma"> above.
+
+=item C<mro>
+
+This new pragma enables to change the algorithm used to resolve inherited
+methods. See L</"New Pragma, C<mro>"> above.
+
+=item Scoping of the C<sort> pragma
+
+The C<sort> pragma is now lexically scoped. Its effect used to be global.
+
+=item Scoping of C<bignum>, C<bigint>, C<bigrat>
+
+The three numeric pragmas C<bignum>, C<bigint> and C<bigrat> are now
+lexically scoped. (Tels)
+
+=item C<base>
+
+The C<base> pragma now warns if a class tries to inherit from itself.
+(Curtis "Ovid" Poe)
+
+=item C<strict> and C<warnings>
+
+C<strict> and C<warnings> will now complain loudly if they are loaded via
+incorrect casing (as in C<use Strict;>). (Johan Vromans)
+
+=item C<version>
+
+The C<version> module provides support for version objects.
+
+=item C<warnings>
+
+The C<warnings> pragma doesn't load C<Carp> anymore. That means that code
+that used C<Carp> routines without having loaded it at compile time might
+need to be adjusted; typically, the following (faulty) code won't work
+anymore, and will require parentheses to be added after the function name:
+
+    use warnings;
+    require Carp;
+    Carp::confess 'argh';
+
+=item C<less>
+
+C<less> now does something useful (or at least it tries to). In fact, it
+has been turned into a lexical pragma. So, in your modules, you can now
+test whether your users have requested to use less CPU, or less memory,
+less magic, or maybe even less fat. See L<less> for more. (Joshua ben
+Jore)
+
+=back
+
+=head2 New modules
+
+=over 4
+
+=item *
+
+C<encoding::warnings>, by Audrey Tang, is a module to emit warnings
+whenever an ASCII character string containing high-bit bytes is implicitly
+converted into UTF-8. It's a lexical pragma since Perl 5.9.4; on older
+perls, its effect is global.
+
+=item *
+
+C<Module::CoreList>, by Richard Clamp, is a small handy module that tells
+you what versions of core modules ship with any versions of Perl 5. It
+comes with a command-line frontend, C<corelist>.
+
+=item *
+
+C<Math::BigInt::FastCalc> is an XS-enabled, and thus faster, version of
+C<Math::BigInt::Calc>.
+
+=item *
+
+C<Compress::Zlib> is an interface to the zlib compression library. It
+comes with a bundled version of zlib, so having a working zlib is not a
+prerequisite to install it. It's used by C<Archive::Tar> (see below).
+
+=item *
+
+C<IO::Zlib> is an C<IO::>-style interface to C<Compress::Zlib>.
+
+=item *
+
+C<Archive::Tar> is a module to manipulate C<tar> archives.
+
+=item *
+
+C<Digest::SHA> is a module used to calculate many types of SHA digests,
+has been included for SHA support in the CPAN module.
+
+=item *
+
+C<ExtUtils::CBuilder> and C<ExtUtils::ParseXS> have been added.
+
+=item *
+
+C<Hash::Util::FieldHash>, by Anno Siegel, has been added. This module
+provides support for I<field hashes>: hashes that maintain an association
+of a reference with a value, in a thread-safe garbage-collected way.
+Such hashes are useful to implement inside-out objects.
+
+=item *
+
+C<Module::Build>, by Ken Williams, has been added. It's an alternative to
+C<ExtUtils::MakeMaker> to build and install perl modules.
+
+=item *
+
+C<Module::Load>, by Jos Boumans, has been added. It provides a single
+interface to load Perl modules and F<.pl> files.
+
+=item *
+
+C<Module::Loaded>, by Jos Boumans, has been added. It's used to mark
+modules as loaded or unloaded.
+
+=item *
+
+C<Package::Constants>, by Jos Boumans, has been added. It's a simple
+helper to list all constants declared in a given package.
+
+=item *
+
+C<Win32API::File>, by Tye McQueen, has been added (for Windows builds).
+This module provides low-level access to Win32 system API calls for
+files/dirs.
+
+=item *
+
+C<Locale::Maketext::Simple>, needed by CPANPLUS, is a simple wrapper around
+C<Locale::Maketext::Lexicon>. Note that C<Locale::Maketext::Lexicon> isn't
+included in the perl core; the behaviour of C<Locale::Maketext::Simple>
+gracefully degrades when the later isn't present.
+
+=item *
+
+C<Params::Check> implements a generic input parsing/checking mechanism. It
+is used by CPANPLUS.
+
+=item *
+
+C<Term::UI> simplifies the task to ask questions at a terminal prompt.
+
+=item *
+
+C<Object::Accessor> provides an interface to create per-object accessors.
+
+=item *
+
+C<Module::Pluggable> is a simple framework to create modules that accept
+pluggable sub-modules.
+
+=item *
+
+C<Module::Load::Conditional> provides simple ways to query and possibly
+load installed modules.
+
+=item *
+
+C<Time::Piece> provides an object oriented interface to time functions,
+overriding the built-ins localtime() and gmtime().
+
+=item *
+
+C<IPC::Cmd> helps to find and run external commands, possibly
+interactively.
+
+=item *
+
+C<File::Fetch> provide a simple generic file fetching mechanism.
+
+=item *
+
+C<Log::Message> and C<Log::Message::Simple> are used by the log facility
+of C<CPANPLUS>.
+
+=item *
+
+C<Archive::Extract> is a generic archive extraction mechanism
+for F<.tar> (plain, gzipped or bzipped) or F<.zip> files.
+
+=item *
+
+C<CPANPLUS> provides an API and a command-line tool to access the CPAN
+mirrors.
+
+=item *
+
+C<Pod::Escapes> provides utilities that are useful in decoding Pod
+EE<lt>...E<gt> sequences.
+
+=item *
+
+C<Pod::Simple> is now the backend for several of the Pod-related modules
+included with Perl.
+
+=back
+
+=head2 Selected Changes to Core Modules
+
+=over 4
+
+=item C<Attribute::Handlers>
+
+C<Attribute::Handlers> can now report the caller's file and line number.
+(David Feldman)
+
+All interpreted attributes are now passed as array references. (Damian
+Conway)
+
+=item C<B::Lint>
+
+C<B::Lint> is now based on C<Module::Pluggable>, and so can be extended
+with plugins. (Joshua ben Jore)
+
+=item C<B>
+
+It's now possible to access the lexical pragma hints (C<%^H>) by using the
+method B::COP::hints_hash(). It returns a C<B::RHE> object, which in turn
+can be used to get a hash reference via the method B::RHE::HASH(). (Joshua
+ben Jore)
+
+=item C<Thread>
+
+As the old 5005thread threading model has been removed, in favor of the
+ithreads scheme, the C<Thread> module is now a compatibility wrapper, to
+be used in old code only. It has been removed from the default list of
+dynamic extensions.
+
+=back
+
+=head1 Utility Changes
+
+=over 4
+
+=item perl -d
+
+The Perl debugger can now save all debugger commands for sourcing later;
+notably, it can now emulate stepping backwards, by restarting and
+rerunning all bar the last command from a saved command history.
+
+It can also display the parent inheritance tree of a given class, with the
+C<i> command.
+
+=item ptar
+
+C<ptar> is a pure perl implementation of C<tar> that comes with
+C<Archive::Tar>.
+
+=item ptardiff
+
+C<ptardiff> is a small utility used to generate a diff between the contents
+of a tar archive and a directory tree. Like C<ptar>, it comes with
+C<Archive::Tar>.
+
+=item shasum
+
+C<shasum> is a command-line utility, used to print or to check SHA
+digests. It comes with the new C<Digest::SHA> module.
+
+=item corelist
+
+The C<corelist> utility is now installed with perl (see L</"New modules">
+above).
+
+=item h2ph and h2xs
+
+C<h2ph> and C<h2xs> have been made more robust with regard to
+"modern" C code.
+
+C<h2xs> implements a new option C<--use-xsloader> to force use of
+C<XSLoader> even in backwards compatible modules.
+
+The handling of authors' names that had apostrophes has been fixed.
+
+Any enums with negative values are now skipped.
+
+=item perlivp
+
+C<perlivp> no longer checks for F<*.ph> files by default.  Use the new C<-a>
+option to run I<all> tests.
+
+=item find2perl
+
+C<find2perl> now assumes C<-print> as a default action. Previously, it
+needed to be specified explicitly.
+
+Several bugs have been fixed in C<find2perl>, regarding C<-exec> and
+C<-eval>. Also the options C<-path>, C<-ipath> and C<-iname> have been
+added.
+
+=item config_data
+
+C<config_data> is a new utility that comes with C<Module::Build>. It
+provides a command-line interface to the configuration of Perl modules
+that use Module::Build's framework of configurability (that is,
+C<*::ConfigData> modules that contain local configuration information for
+their parent modules.)
+
+=item cpanp
+
+C<cpanp>, the CPANPLUS shell, has been added. (C<cpanp-run-perl>, a
+helper for CPANPLUS operation, has been added too, but isn't intended for
+direct use).
+
+=item cpan2dist
+
+C<cpan2dist> is a new utility that comes with CPANPLUS. It's a tool to
+create distributions (or packages) from CPAN modules.
+
+=item pod2html
+
+The output of C<pod2html> has been enhanced to be more customizable via
+CSS. Some formatting problems were also corrected. (Jari Aalto)
+
+=back
+
+=head1 New Documentation
+
+The L<perlpragma> manpage documents how to write one's own lexical
+pragmas in pure Perl (something that is possible starting with 5.9.4).
+
+The new L<perlglossary> manpage is a glossary of terms used in the Perl
+documentation, technical and otherwise, kindly provided by O'Reilly Media,
+Inc.
+
+The L<perlreguts> manpage, courtesy of Yves Orton, describes internals of the
+Perl regular expression engine.
+
+The L<perlreapi> manpage describes the interface to the perl interpreter
+used to write pluggable regular expression engines (by Ævar Arnfjörð
+Bjarmason).
+
+The L<perlunitut> manpage is an tutorial for programming with Unicode and
+string encodings in Perl, courtesy of Juerd Waalboer.
+
+A new manual page, L<perlunifaq> (the Perl Unicode FAQ), has been added
+(Juerd Waalboer).
+
+The L<perlcommunity> manpage gives a description of the Perl community
+on the Internet and in real life. (Edgar "Trizor" Bering)
+
+The L<CORE> manual page documents the C<CORE::> namespace. (Tels)
+
+The long-existing feature of C</(?{...})/> regexps setting C<$_> and pos()
+is now documented.
+
+=head1 Performance Enhancements
+
+=head2 In-place sorting
+
+Sorting arrays in place (C<@a = sort @a>) is now optimized to avoid
+making a temporary copy of the array.
+
+Likewise, C<reverse sort ...> is now optimized to sort in reverse,
+avoiding the generation of a temporary intermediate list.
+
+=head2 Lexical array access
+
+Access to elements of lexical arrays via a numeric constant between 0 and
+255 is now faster. (This used to be only the case for global arrays.)
+
+=head2 XS-assisted SWASHGET
+
+Some pure-perl code that perl was using to retrieve Unicode properties and
+transliteration mappings has been reimplemented in XS.
+
+=head2 Constant subroutines
+
+The interpreter internals now support a far more memory efficient form of
+inlineable constants. Storing a reference to a constant value in a symbol
+table is equivalent to a full typeglob referencing a constant subroutine,
+but using about 400 bytes less memory. This proxy constant subroutine is
+automatically upgraded to a real typeglob with subroutine if necessary.
+The approach taken is analogous to the existing space optimisation for
+subroutine stub declarations, which are stored as plain scalars in place
+of the full typeglob.
+
+Several of the core modules have been converted to use this feature for
+their system dependent constants - as a result C<use POSIX;> now takes about
+200K less memory.
+
+=head2 C<PERL_DONT_CREATE_GVSV>
+
+The new compilation flag C<PERL_DONT_CREATE_GVSV>, introduced as an option
+in perl 5.8.8, is turned on by default in perl 5.9.3. It prevents perl
+from creating an empty scalar with every new typeglob. See L<perl589delta>
+for details.
+
+=head2 Weak references are cheaper
+
+Weak reference creation is now I<O(1)> rather than I<O(n)>, courtesy of
+Nicholas Clark. Weak reference deletion remains I<O(n)>, but if deletion only
+happens at program exit, it may be skipped completely.
+
+=head2 sort() enhancements
+
+Salvador Fandiño provided improvements to reduce the memory usage of C<sort>
+and to speed up some cases.
+
+=head2 Memory optimisations
+
+Several internal data structures (typeglobs, GVs, CVs, formats) have been
+restructured to use less memory. (Nicholas Clark)
+
+=head2 UTF-8 cache optimisation
+
+The UTF-8 caching code is now more efficient, and used more often.
+(Nicholas Clark)
+
+=head2 Sloppy stat on Windows
+
+On Windows, perl's stat() function normally opens the file to determine
+the link count and update attributes that may have been changed through
+hard links. Setting ${^WIN32_SLOPPY_STAT} to a true value speeds up
+stat() by not performing this operation. (Jan Dubois)
+
+=head2 Regular expressions optimisations
+
+=over 4
+
+=item Engine de-recursivised
+
+The regular expression engine is no longer recursive, meaning that
+patterns that used to overflow the stack will either die with useful
+explanations, or run to completion, which, since they were able to blow
+the stack before, will likely take a very long time to happen. If you were
+experiencing the occasional stack overflow (or segfault) and upgrade to
+discover that now perl apparently hangs instead, look for a degenerate
+regex. (Dave Mitchell)
+
+=item Single char char-classes treated as literals
+
+Classes of a single character are now treated the same as if the character
+had been used as a literal, meaning that code that uses char-classes as an
+escaping mechanism will see a speedup. (Yves Orton)
+
+=item Trie optimisation of literal string alternations
+
+Alternations, where possible, are optimised into more efficient matching
+structures. String literal alternations are merged into a trie and are
+matched simultaneously.  This means that instead of O(N) time for matching
+N alternations at a given point, the new code performs in O(1) time.
+A new special variable, ${^RE_TRIE_MAXBUF}, has been added to fine-tune
+this optimization. (Yves Orton)
+
+B<Note:> Much code exists that works around perl's historic poor
+performance on alternations. Often the tricks used to do so will disable
+the new optimisations. Hopefully the utility modules used for this purpose
+will be educated about these new optimisations.
+
+=item Aho-Corasick start-point optimisation
+
+When a pattern starts with a trie-able alternation and there aren't
+better optimisations available, the regex engine will use Aho-Corasick
+matching to find the start point. (Yves Orton)
+
+=back
+
+=head1 Installation and Configuration Improvements
+
+=head2 Configuration improvements
+
+=over 4
+
+=item C<-Dusesitecustomize>
+
+Run-time customization of @INC can be enabled by passing the
+C<-Dusesitecustomize> flag to Configure. When enabled, this will make perl
+run F<$sitelibexp/sitecustomize.pl> before anything else.  This script can
+then be set up to add additional entries to @INC.
+
+=item Relocatable installations
+
+There is now Configure support for creating a relocatable perl tree. If
+you Configure with C<-Duserelocatableinc>, then the paths in @INC (and
+everything else in %Config) can be optionally located via the path of the
+perl executable.
+
+That means that, if the string C<".../"> is found at the start of any
+path, it's substituted with the directory of $^X. So, the relocation can
+be configured on a per-directory basis, although the default with
+C<-Duserelocatableinc> is that everything is relocated. The initial
+install is done to the original configured prefix.
+
+=item strlcat() and strlcpy()
+
+The configuration process now detects whether strlcat() and strlcpy() are
+available.  When they are not available, perl's own version is used (from
+Russ Allbery's public domain implementation).  Various places in the perl
+interpreter now use them. (Steve Peters)
+
+=item C<d_pseudofork> and C<d_printf_format_null>
+
+A new configuration variable, available as C<$Config{d_pseudofork}> in
+the L<Config> module, has been added, to distinguish real fork() support
+from fake pseudofork used on Windows platforms.
+
+A new configuration variable, C<d_printf_format_null>, has been added, 
+to see if printf-like formats are allowed to be NULL.
+
+=item Configure help
+
+C<Configure -h> has been extended with the most commonly used options.
+
+=back
+
+=head2 Compilation improvements
+
+=over 4
+
+=item Parallel build
+
+Parallel makes should work properly now, although there may still be problems
+if C<make test> is instructed to run in parallel.
+
+=item Borland's compilers support
+
+Building with Borland's compilers on Win32 should work more smoothly. In
+particular Steve Hay has worked to side step many warnings emitted by their
+compilers and at least one C compiler internal error.
+
+=item Static build on Windows
+
+Perl extensions on Windows now can be statically built into the Perl DLL.
+
+Also, it's now possible to build a C<perl-static.exe> that doesn't depend
+on the Perl DLL on Win32. See the Win32 makefiles for details.
+(Vadim Konovalov)
+
+=item ppport.h files
+
+All F<ppport.h> files in the XS modules bundled with perl are now
+autogenerated at build time. (Marcus Holland-Moritz)
+
+=item C++ compatibility
+
+Efforts have been made to make perl and the core XS modules compilable
+with various C++ compilers (although the situation is not perfect with
+some of the compilers on some of the platforms tested.)
+
+=item Support for Microsoft 64-bit compiler
+
+Support for building perl with Microsoft's 64-bit compiler has been
+improved. (ActiveState)
+
+=item Visual C++
+
+Perl can now be compiled with Microsoft Visual C++ 2005 (and 2008 Beta 2).
+
+=item Win32 builds
+
+All win32 builds (MS-Win, WinCE) have been merged and cleaned up.
+
+=back
+
+=head2 Installation improvements
+
+=over 4
+
+=item Module auxiliary files
+
+README files and changelogs for CPAN modules bundled with perl are no
+longer installed.
+
+=back
+
+=head2 New Or Improved Platforms
+
+Perl has been reported to work on Symbian OS. See L<perlsymbian> for more
+information.
+
+Many improvements have been made towards making Perl work correctly on
+z/OS.
+
+Perl has been reported to work on DragonFlyBSD and MidnightBSD.
+
+Perl has also been reported to work on NexentaOS
+( http://www.gnusolaris.org/ ).
+
+The VMS port has been improved. See L<perlvms>.
+
+Support for Cray XT4 Catamount/Qk has been added. See
+F<hints/catamount.sh> in the source code distribution for more
+information.
+
+Vendor patches have been merged for RedHat and Gentoo.
+
+DynaLoader::dl_unload_file() now works on Windows.
+
+=head1 Selected Bug Fixes
+
+=over 4
+
+=item strictures in regexp-eval blocks
+
+C<strict> wasn't in effect in regexp-eval blocks (C</(?{...})/>).
+
+=item Calling CORE::require()
+
+CORE::require() and CORE::do() were always parsed as require() and do()
+when they were overridden. This is now fixed.
+
+=item Subscripts of slices
+
+You can now use a non-arrowed form for chained subscripts after a list
+slice, like in:
+
+    ({foo => "bar"})[0]{foo}
+
+This used to be a syntax error; a C<< -> >> was required.
+
+=item C<no warnings 'category'> works correctly with -w
+
+Previously when running with warnings enabled globally via C<-w>, selective
+disabling of specific warning categories would actually turn off all warnings.
+This is now fixed; now C<no warnings 'io';> will only turn off warnings in the
+C<io> class. Previously it would erroneously turn off all warnings.
+
+=item threads improvements
+
+Several memory leaks in ithreads were closed. Also, ithreads were made
+less memory-intensive.
+
+C<threads> is now a dual-life module, also available on CPAN. It has been
+expanded in many ways. A kill() method is available for thread signalling.
+One can get thread status, or the list of running or joinable threads.
+
+A new C<< threads->exit() >> method is used to exit from the application
+(this is the default for the main thread) or from the current thread only
+(this is the default for all other threads). On the other hand, the exit()
+built-in now always causes the whole application to terminate. (Jerry
+D. Hedden)
+
+=item chr() and negative values
+
+chr() on a negative value now gives C<\x{FFFD}>, the Unicode replacement
+character, unless when the C<bytes> pragma is in effect, where the low
+eight bits of the value are used.
+
+=item PERL5SHELL and tainting
+
+On Windows, the PERL5SHELL environment variable is now checked for
+taintedness. (Rafael Garcia-Suarez)
+
+=item Using *FILE{IO}
+
+C<stat()> and C<-X> filetests now treat *FILE{IO} filehandles like *FILE
+filehandles. (Steve Peters)
+
+=item Overloading and reblessing
+
+Overloading now works when references are reblessed into another class.
+Internally, this has been implemented by moving the flag for "overloading"
+from the reference to the referent, which logically is where it should
+always have been. (Nicholas Clark)
+
+=item Overloading and UTF-8
+
+A few bugs related to UTF-8 handling with objects that have
+stringification overloaded have been fixed. (Nicholas Clark)
+
+=item eval memory leaks fixed
+
+Traditionally, C<eval 'syntax error'> has leaked badly. Many (but not all)
+of these leaks have now been eliminated or reduced. (Dave Mitchell)
+
+=item Random device on Windows
+
+In previous versions, perl would read the file F</dev/urandom> if it
+existed when seeding its random number generator.  That file is unlikely
+to exist on Windows, and if it did would probably not contain appropriate
+data, so perl no longer tries to read it on Windows. (Alex Davies)
+
+=item PERLIO_DEBUG
+
+The C<PERLIO_DEBUG> environment variable no longer has any effect for
+setuid scripts and for scripts run with B<-T>.
+
+Moreover, with a thread-enabled perl, using C<PERLIO_DEBUG> could lead to
+an internal buffer overflow. This has been fixed.
+
+=item PerlIO::scalar and read-only scalars
+
+PerlIO::scalar will now prevent writing to read-only scalars. Moreover,
+seek() is now supported with PerlIO::scalar-based filehandles, the
+underlying string being zero-filled as needed. (Rafael, Jarkko Hietaniemi)
+
+=item study() and UTF-8
+
+study() never worked for UTF-8 strings, but could lead to false results.
+It's now a no-op on UTF-8 data. (Yves Orton)
+
+=item Critical signals
+
+The signals SIGILL, SIGBUS and SIGSEGV are now always delivered in an
+"unsafe" manner (contrary to other signals, that are deferred until the
+perl interpreter reaches a reasonably stable state; see
+L<perlipc/"Deferred Signals (Safe Signals)">). (Rafael)
+
+=item @INC-hook fix
+
+When a module or a file is loaded through an @INC-hook, and when this hook
+has set a filename entry in %INC, __FILE__ is now set for this module
+accordingly to the contents of that %INC entry. (Rafael)
+
+=item C<-t> switch fix
+
+The C<-w> and C<-t> switches can now be used together without messing
+up which categories of warnings are activated. (Rafael)
+
+=item Duping UTF-8 filehandles
+
+Duping a filehandle which has the C<:utf8> PerlIO layer set will now
+properly carry that layer on the duped filehandle. (Rafael)
+
+=item Localisation of hash elements
+
+Localizing a hash element whose key was given as a variable didn't work
+correctly if the variable was changed while the local() was in effect (as
+in C<local $h{$x}; ++$x>). (Bo Lindbergh)
+
+=back
+
+=head1 New or Changed Diagnostics
+
+=over 4
+
+=item Use of uninitialized value
+
+Perl will now try to tell you the name of the variable (if any) that was
+undefined.
+
+=item Deprecated use of my() in false conditional
+
+A new deprecation warning, I<Deprecated use of my() in false conditional>,
+has been added, to warn against the use of the dubious and deprecated
+construct
+
+    my $x if 0;
+
+See L<perldiag>. Use C<state> variables instead.
+
+=item !=~ should be !~
+
+A new warning, C<!=~ should be !~>, is emitted to prevent this misspelling
+of the non-matching operator.
+
+=item Newline in left-justified string
+
+The warning I<Newline in left-justified string> has been removed.
+
+=item Too late for "-T" option
+
+The error I<Too late for "-T" option> has been reformulated to be more
+descriptive.
+
+=item "%s" variable %s masks earlier declaration
+
+This warning is now emitted in more consistent cases; in short, when one
+of the declarations involved is a C<my> variable:
+
+    my $x;   my $x;	# warns
+    my $x;  our $x;	# warns
+    our $x;  my $x;	# warns
+
+On the other hand, the following:
+
+    our $x; our $x;
+
+now gives a C<"our" variable %s redeclared> warning.
+
+=item readdir()/closedir()/etc. attempted on invalid dirhandle
+
+These new warnings are now emitted when a dirhandle is used but is
+either closed or not really a dirhandle.
+
+=item Opening dirhandle/filehandle %s also as a file/directory
+
+Two deprecation warnings have been added: (Rafael)
+
+    Opening dirhandle %s also as a file
+    Opening filehandle %s also as a directory
+
+=item Use of -P is deprecated
+
+Perl's command-line switch C<-P> is now deprecated.
+
+=item v-string in use/require is non-portable
+
+Perl will warn you against potential backwards compatibility problems with
+the C<use VERSION> syntax.
+
+=item perl -V
+
+C<perl -V> has several improvements, making it more useable from shell
+scripts to get the value of configuration variables. See L<perlrun> for
+details.
+
+=back
+
+=head1 Changed Internals
+
+In general, the source code of perl has been refactored, tidied up,
+and optimized in many places. Also, memory management and allocation
+has been improved in several points.
+
+When compiling the perl core with gcc, as many gcc warning flags are
+turned on as is possible on the platform.  (This quest for cleanliness
+doesn't extend to XS code because we cannot guarantee the tidiness of
+code we didn't write.)  Similar strictness flags have been added or
+tightened for various other C compilers.
+
+=head2 Reordering of SVt_* constants
+
+The relative ordering of constants that define the various types of C<SV>
+have changed; in particular, C<SVt_PVGV> has been moved before C<SVt_PVLV>,
+C<SVt_PVAV>, C<SVt_PVHV> and C<SVt_PVCV>.  This is unlikely to make any
+difference unless you have code that explicitly makes assumptions about that
+ordering. (The inheritance hierarchy of C<B::*> objects has been changed
+to reflect this.)
+
+=head2 Elimination of SVt_PVBM
+
+Related to this, the internal type C<SVt_PVBM> has been removed. This
+dedicated type of C<SV> was used by the C<index> operator and parts of the
+regexp engine to facilitate fast Boyer-Moore matches. Its use internally has
+been replaced by C<SV>s of type C<SVt_PVGV>.
+
+=head2 New type SVt_BIND
+
+A new type C<SVt_BIND> has been added, in readiness for the project to
+implement Perl 6 on 5. There deliberately is no implementation yet, and
+they cannot yet be created or destroyed.
+
+=head2 Removal of CPP symbols
+
+The C preprocessor symbols C<PERL_PM_APIVERSION> and
+C<PERL_XS_APIVERSION>, which were supposed to give the version number of
+the oldest perl binary-compatible (resp. source-compatible) with the
+present one, were not used, and sometimes had misleading values. They have
+been removed.
+
+=head2 Less space is used by ops
+
+The C<BASEOP> structure now uses less space. The C<op_seq> field has been
+removed and replaced by a single bit bit-field C<op_opt>. C<op_type> is now 9
+bits long. (Consequently, the C<B::OP> class doesn't provide an C<seq>
+method anymore.)
+
+=head2 New parser
+
+perl's parser is now generated by bison (it used to be generated by
+byacc.) As a result, it seems to be a bit more robust.
+
+Also, Dave Mitchell improved the lexer debugging output under C<-DT>.
+
+=head2 Use of C<const>
+
+Andy Lester supplied many improvements to determine which function
+parameters and local variables could actually be declared C<const> to the C
+compiler. Steve Peters provided new C<*_set> macros and reworked the core to
+use these rather than assigning to macros in LVALUE context.
+
+=head2 Mathoms
+
+A new file, F<mathoms.c>, has been added. It contains functions that are
+no longer used in the perl core, but that remain available for binary or
+source compatibility reasons. However, those functions will not be
+compiled in if you add C<-DNO_MATHOMS> in the compiler flags.
+
+=head2 C<AvFLAGS> has been removed
+
+The C<AvFLAGS> macro has been removed.
+
+=head2 C<av_*> changes
+
+The C<av_*()> functions, used to manipulate arrays, no longer accept null
+C<AV*> parameters.
+
+=head2 $^H and %^H
+
+The implementation of the special variables $^H and %^H has changed, to
+allow implementing lexical pragmas in pure Perl.
+
+=head2 B:: modules inheritance changed
+
+The inheritance hierarchy of C<B::> modules has changed; C<B::NV> now
+inherits from C<B::SV> (it used to inherit from C<B::IV>).
+
+=head2 Anonymous hash and array constructors
+
+The anonymous hash and array constructors now take 1 op in the optree
+instead of 3, now that pp_anonhash and pp_anonlist return a reference to
+an hash/array when the op is flagged with OPf_SPECIAL. (Nicholas Clark)
+
+=head1 Known Problems
+
+There's still a remaining problem in the implementation of the lexical
+C<$_>: it doesn't work inside C</(?{...})/> blocks. (See the TODO test in
+F<t/op/mydef.t>.)
+
+Stacked filetest operators won't work when the C<filetest> pragma is in
+effect, because they rely on the stat() buffer C<_> being populated, and
+filetest bypasses stat().
+
+=head2 UTF-8 problems
+
+The handling of Unicode still is unclean in several places, where it's
+dependent on whether a string is internally flagged as UTF-8. This will
+be made more consistent in perl 5.12, but that won't be possible without
+a certain amount of backwards incompatibility.
+
+=head1 Platform Specific Problems
+
+When compiled with g++ and thread support on Linux, it's reported that the
+C<$!> stops working correctly. This is related to the fact that the glibc
+provides two strerror_r(3) implementation, and perl selects the wrong
+one.
+
+=head1 Reporting Bugs
+
+If you find what you think is a bug, you might check the articles
+recently posted to the comp.lang.perl.misc newsgroup and the perl
+bug database at http://rt.perl.org/rt3/ .  There may also be
+information at http://www.perl.org/ , the Perl Home Page.
+
+If you believe you have an unreported bug, please run the B<perlbug>
+program included with your release.  Be sure to trim your bug down
+to a tiny but sufficient test case.  Your bug report, along with the
+output of C<perl -V>, will be sent off to perlbug@perl.org to be
+analysed by the Perl porting team.
+
+=head1 SEE ALSO
+
+The F<Changes> file and the perl590delta to perl595delta man pages for
+exhaustive details on what changed.
+
+The F<INSTALL> file for how to build Perl.
+
+The F<README> file for general stuff.
+
+The F<Artistic> and F<Copying> files for copyright information.
+
+=cut
diff --git a/lib/5.24.1/pod/perl5101delta.pod b/lib/5.24.1/pod/perl5101delta.pod
new file mode 100644
index 00000000..415ab6be
--- /dev/null
+++ b/lib/5.24.1/pod/perl5101delta.pod
@@ -0,0 +1,1773 @@
+=head1 NAME
+
+perl5101delta - what is new for perl v5.10.1
+
+=head1 DESCRIPTION
+
+This document describes differences between the 5.10.0 release and
+the 5.10.1 release.
+
+If you are upgrading from an earlier release such as 5.8.8, first read
+the L<perl5100delta>, which describes differences between 5.8.8 and
+5.10.0
+
+=head1 Incompatible Changes
+
+=head2 Switch statement changes
+
+The handling of complex expressions by the C<given>/C<when> switch
+statement has been enhanced. There are two new cases where C<when> now
+interprets its argument as a boolean, instead of an expression to be used
+in a smart match:
+
+=over 4
+
+=item flip-flop operators
+
+The C<..> and C<...> flip-flop operators are now evaluated in boolean
+context, following their usual semantics; see L<perlop/"Range Operators">.
+
+Note that, as in perl 5.10.0, C<when (1..10)> will not work to test
+whether a given value is an integer between 1 and 10; you should use
+C<when ([1..10])> instead (note the array reference).
+
+However, contrary to 5.10.0, evaluating the flip-flop operators in boolean
+context ensures it can now be useful in a C<when()>, notably for
+implementing bistable conditions, like in:
+
+    when (/^=begin/ .. /^=end/) {
+      # do something
+    }
+
+=item defined-or operator
+
+A compound expression involving the defined-or operator, as in
+C<when (expr1 // expr2)>, will be treated as boolean if the first
+expression is boolean. (This just extends the existing rule that applies
+to the regular or operator, as in C<when (expr1 || expr2)>.)
+
+=back
+
+The next section details more changes brought to the semantics to
+the smart match operator, that naturally also modify the behaviour
+of the switch statements where smart matching is implicitly used.
+
+=head2 Smart match changes
+
+=head3 Changes to type-based dispatch
+
+The smart match operator C<~~> is no longer commutative. The behaviour of
+a smart match now depends primarily on the type of its right hand
+argument. Moreover, its semantics have been adjusted for greater
+consistency or usefulness in several cases. While the general backwards
+compatibility is maintained, several changes must be noted:
+
+=over 4
+
+=item *
+
+Code references with an empty prototype are no longer treated specially.
+They are passed an argument like the other code references (even if they
+choose to ignore it).
+
+=item *
+
+C<%hash ~~ sub {}> and C<@array ~~ sub {}> now test that the subroutine
+returns a true value for each key of the hash (or element of the
+array), instead of passing the whole hash or array as a reference to
+the subroutine.
+
+=item *
+
+Due to the commutativity breakage, code references are no longer
+treated specially when appearing on the left of the C<~~> operator,
+but like any vulgar scalar.
+
+=item *
+
+C<undef ~~ %hash> is always false (since C<undef> can't be a key in a
+hash). No implicit conversion to C<""> is done (as was the case in perl
+5.10.0).
+
+=item *
+
+C<$scalar ~~ @array> now always distributes the smart match across the
+elements of the array. It's true if one element in @array verifies
+C<$scalar ~~ $element>. This is a generalization of the old behaviour
+that tested whether the array contained the scalar.
+
+=back
+
+The full dispatch table for the smart match operator is given in
+L<perlsyn/"Smart matching in detail">.
+
+=head3 Smart match and overloading
+
+According to the rule of dispatch based on the rightmost argument type,
+when an object overloading C<~~> appears on the right side of the
+operator, the overload routine will always be called (with a 3rd argument
+set to a true value, see L<overload>.) However, when the object will
+appear on the left, the overload routine will be called only when the
+rightmost argument is a simple scalar. This way distributivity of smart match
+across arrays is not broken, as well as the other behaviours with complex
+types (coderefs, hashes, regexes). Thus, writers of overloading routines
+for smart match mostly need to worry only with comparing against a scalar,
+and possibly with stringification overloading; the other common cases
+will be automatically handled consistently.
+
+C<~~> will now refuse to work on objects that do not overload it (in order
+to avoid relying on the object's underlying structure). (However, if the
+object overloads the stringification or the numification operators, and
+if overload fallback is active, it will be used instead, as usual.)
+
+=head2 Other incompatible changes
+
+=over 4
+
+=item *
+
+The semantics of C<use feature :5.10*> have changed slightly.
+See L<"Modules and Pragmata"> for more information.
+
+=item *
+
+It is now a run-time error to use the smart match operator C<~~>
+with an object that has no overload defined for it. (This way
+C<~~> will not break encapsulation by matching against the
+object's internal representation as a reference.)
+
+=item *
+
+The version control system used for the development of the perl
+interpreter has been switched from Perforce to git.  This is mainly an
+internal issue that only affects people actively working on the perl core;
+but it may have minor external visibility, for example in some of details
+of the output of C<perl -V>. See L<perlrepository> for more information.
+
+=item *
+
+The internal structure of the C<ext/> directory in the perl source has
+been reorganised. In general, a module C<Foo::Bar> whose source was
+stored under F<ext/Foo/Bar/> is now located under F<ext/Foo-Bar/>. Also,
+some modules have been moved from F<lib/> to F<ext/>. This is purely a
+source tarball change, and should make no difference to the compilation or
+installation of perl, unless you have a very customised build process that
+explicitly relies on this structure, or which hard-codes the C<nonxs_ext>
+F<Configure> parameter. Specifically, this change does not by default
+alter the location of any files in the final installation.
+
+=item *
+
+As part of the C<Test::Harness> 2.x to 3.x upgrade, the experimental
+C<Test::Harness::Straps> module has been removed.
+See L</"Updated Modules"> for more details.
+
+=item *
+
+As part of the C<ExtUtils::MakeMaker> upgrade, the
+C<ExtUtils::MakeMaker::bytes> and C<ExtUtils::MakeMaker::vmsish> modules
+have been removed from this distribution.
+
+=item *
+
+C<Module::CoreList> no longer contains the C<%:patchlevel> hash.
+
+=item *
+
+This one is actually a change introduced in 5.10.0, but it was missed
+from that release's perldelta, so it is mentioned here instead.
+
+A bugfix related to the handling of the C</m> modifier and C<qr> resulted
+in a change of behaviour between 5.8.x and 5.10.0:
+
+    # matches in 5.8.x, doesn't match in 5.10.0
+    $re = qr/^bar/; "foo\nbar" =~ /$re/m;
+
+=back
+
+=head1 Core Enhancements
+
+=head2 Unicode Character Database 5.1.0
+
+The copy of the Unicode Character Database included in Perl 5.10.1 has
+been updated to 5.1.0 from 5.0.0. See
+L<http://www.unicode.org/versions/Unicode5.1.0/#Notable_Changes> for the
+notable changes.
+
+=head2 A proper interface for pluggable Method Resolution Orders
+
+As of Perl 5.10.1 there is a new interface for plugging and using method
+resolution orders other than the default (linear depth first search).
+The C3 method resolution order added in 5.10.0 has been re-implemented as
+a plugin, without changing its Perl-space interface. See L<perlmroapi> for
+more information.
+
+=head2 The C<overloading> pragma
+
+This pragma allows you to lexically disable or enable overloading
+for some or all operations. (Yuval Kogman)
+
+=head2 Parallel tests
+
+The core distribution can now run its regression tests in parallel on
+Unix-like platforms. Instead of running C<make test>, set C<TEST_JOBS> in
+your environment to the number of tests to run in parallel, and run
+C<make test_harness>. On a Bourne-like shell, this can be done as
+
+    TEST_JOBS=3 make test_harness  # Run 3 tests in parallel
+
+An environment variable is used, rather than parallel make itself, because
+L<TAP::Harness> needs to be able to schedule individual non-conflicting test
+scripts itself, and there is no standard interface to C<make> utilities to
+interact with their job schedulers.
+
+Note that currently some test scripts may fail when run in parallel (most
+notably C<ext/IO/t/io_dir.t>). If necessary run just the failing scripts
+again sequentially and see if the failures go away.
+
+=head2 DTrace support
+
+Some support for DTrace has been added. See "DTrace support" in F<INSTALL>.
+
+=head2 Support for C<configure_requires> in CPAN module metadata
+
+Both C<CPAN> and C<CPANPLUS> now support the C<configure_requires> keyword
+in the C<META.yml> metadata file included in most recent CPAN distributions.
+This allows distribution authors to specify configuration prerequisites that
+must be installed before running F<Makefile.PL> or F<Build.PL>.
+
+See the documentation for C<ExtUtils::MakeMaker> or C<Module::Build> for more
+on how to specify C<configure_requires> when creating a distribution for CPAN.
+
+=head1 Modules and Pragmata
+
+=head2 New Modules and Pragmata
+
+=over 4
+
+=item C<autodie>
+
+This is a new lexically-scoped alternative for the C<Fatal> module.
+The bundled version is 2.06_01. Note that in this release, using a string
+eval when C<autodie> is in effect can cause the autodie behaviour to leak
+into the surrounding scope. See L<autodie/"BUGS"> for more details.
+
+=item C<Compress::Raw::Bzip2>
+
+This has been added to the core (version 2.020).
+
+=item C<parent>
+
+This pragma establishes an ISA relationship with base classes at compile
+time. It provides the key feature of C<base> without the feature creep.
+
+=item C<Parse::CPAN::Meta>
+
+This has been added to the core (version 1.39).
+
+=back
+
+=head2 Pragmata Changes
+
+=over 4
+
+=item C<attributes>
+
+Upgraded from version 0.08 to 0.09.
+
+=item C<attrs>
+
+Upgraded from version 1.02 to 1.03.
+
+=item C<base>
+
+Upgraded from version 2.13 to 2.14. See L<parent> for a replacement.
+
+=item C<bigint>
+
+Upgraded from version 0.22 to 0.23.
+
+=item C<bignum>
+
+Upgraded from version 0.22 to 0.23.
+
+=item C<bigrat>
+
+Upgraded from version 0.22 to 0.23.
+
+=item C<charnames>
+
+Upgraded from version 1.06 to 1.07.
+
+The Unicode F<NameAliases.txt> database file has been added. This has the
+effect of adding some extra C<\N> character names that formerly wouldn't
+have been recognised; for example, C<"\N{LATIN CAPITAL LETTER GHA}">.
+
+=item C<constant>
+
+Upgraded from version 1.13 to 1.17.
+
+=item C<feature>
+
+The meaning of the C<:5.10> and C<:5.10.X> feature bundles has
+changed slightly. The last component, if any (i.e. C<X>) is simply ignored.
+This is predicated on the assumption that new features will not, in
+general, be added to maintenance releases. So C<:5.10> and C<:5.10.X>
+have identical effect. This is a change to the behaviour documented for
+5.10.0.
+
+=item C<fields>
+
+Upgraded from version 2.13 to 2.14 (this was just a version bump; there
+were no functional changes).
+
+=item C<lib>
+
+Upgraded from version 0.5565 to 0.62.
+
+=item C<open>
+
+Upgraded from version 1.06 to 1.07.
+
+=item C<overload>
+
+Upgraded from version 1.06 to 1.07.
+
+=item C<overloading>
+
+See L</"The C<overloading> pragma"> above.
+
+=item C<version>
+
+Upgraded from version 0.74 to 0.77.
+
+=back
+
+=head2 Updated Modules
+
+=over 4
+
+=item C<Archive::Extract>
+
+Upgraded from version 0.24 to 0.34.
+
+=item C<Archive::Tar>
+
+Upgraded from version 1.38 to 1.52.
+
+=item C<Attribute::Handlers>
+
+Upgraded from version 0.79 to 0.85.
+
+=item C<AutoLoader>
+
+Upgraded from version 5.63 to 5.68.
+
+=item C<AutoSplit>
+
+Upgraded from version 1.05 to 1.06.
+
+=item C<B>
+
+Upgraded from version 1.17 to 1.22.
+
+=item C<B::Debug>
+
+Upgraded from version 1.05 to 1.11.
+
+=item C<B::Deparse>
+
+Upgraded from version 0.83 to 0.89.
+
+=item C<B::Lint>
+
+Upgraded from version 1.09 to 1.11.
+
+=item C<B::Xref>
+
+Upgraded from version 1.01 to 1.02.
+
+=item C<Benchmark>
+
+Upgraded from version 1.10 to 1.11.
+
+=item C<Carp>
+
+Upgraded from version 1.08 to 1.11.
+
+=item C<CGI>
+
+Upgraded from version 3.29 to 3.43.
+(also includes the "default_value for popup_menu()" fix from 3.45).
+
+=item C<Compress::Zlib>
+
+Upgraded from version 2.008 to 2.020.
+
+=item C<CPAN>
+
+Upgraded from version 1.9205 to 1.9402. C<CPAN::FTP> has a local fix to
+stop it being too verbose on download failure.
+
+=item C<CPANPLUS>
+
+Upgraded from version 0.84 to 0.88.
+
+=item C<CPANPLUS::Dist::Build>
+
+Upgraded from version 0.06_02 to 0.36.
+
+=item C<Cwd>
+
+Upgraded from version 3.25_01 to 3.30.
+
+=item C<Data::Dumper>
+
+Upgraded from version 2.121_14 to 2.124.
+
+=item C<DB>
+
+Upgraded from version 1.01 to 1.02.
+
+=item C<DB_File>
+
+Upgraded from version 1.816_1 to 1.820.
+
+=item C<Devel::PPPort>
+
+Upgraded from version 3.13 to 3.19.
+
+=item C<Digest::MD5>
+
+Upgraded from version 2.36_01 to 2.39.
+
+=item C<Digest::SHA>
+
+Upgraded from version 5.45 to 5.47.
+
+=item C<DirHandle>
+
+Upgraded from version 1.01 to 1.03.
+
+=item C<Dumpvalue>
+
+Upgraded from version 1.12 to 1.13.
+
+=item C<DynaLoader>
+
+Upgraded from version 1.08 to 1.10.
+
+=item C<Encode>
+
+Upgraded from version 2.23 to 2.35.
+
+=item C<Errno>
+
+Upgraded from version 1.10 to 1.11.
+
+=item C<Exporter>
+
+Upgraded from version 5.62 to 5.63.
+
+=item C<ExtUtils::CBuilder>
+
+Upgraded from version 0.21 to 0.2602.
+
+=item C<ExtUtils::Command>
+
+Upgraded from version 1.13 to 1.16.
+
+=item C<ExtUtils::Constant>
+
+Upgraded from 0.20 to 0.22. (Note that neither of these versions are
+available on CPAN.)
+
+=item C<ExtUtils::Embed>
+
+Upgraded from version 1.27 to 1.28.
+
+=item C<ExtUtils::Install>
+
+Upgraded from version 1.44 to 1.54.
+
+=item C<ExtUtils::MakeMaker>
+
+Upgraded from version 6.42 to 6.55_02.
+
+Note that C<ExtUtils::MakeMaker::bytes> and C<ExtUtils::MakeMaker::vmsish>
+have been removed from this distribution.
+
+=item C<ExtUtils::Manifest>
+
+Upgraded from version 1.51_01 to 1.56.
+
+=item C<ExtUtils::ParseXS>
+
+Upgraded from version 2.18_02 to 2.2002.
+
+=item C<Fatal>
+
+Upgraded from version 1.05 to 2.06_01. See also the new pragma C<autodie>.
+
+=item C<File::Basename>
+
+Upgraded from version 2.76 to 2.77.
+
+=item C<File::Compare>
+
+Upgraded from version 1.1005 to 1.1006.
+
+=item C<File::Copy>
+
+Upgraded from version 2.11 to 2.14.
+
+=item C<File::Fetch>
+
+Upgraded from version 0.14 to 0.20.
+
+=item C<File::Find>
+
+Upgraded from version 1.12 to 1.14.
+
+=item C<File::Path>
+
+Upgraded from version 2.04 to 2.07_03.
+
+=item C<File::Spec>
+
+Upgraded from version 3.2501 to 3.30.
+
+=item C<File::stat>
+
+Upgraded from version 1.00 to 1.01.
+
+=item C<File::Temp>
+
+Upgraded from version 0.18 to 0.22.
+
+=item C<FileCache>
+
+Upgraded from version 1.07 to 1.08.
+
+=item C<FileHandle>
+
+Upgraded from version 2.01 to 2.02.
+
+=item C<Filter::Simple>
+
+Upgraded from version 0.82 to 0.84.
+
+=item C<Filter::Util::Call>
+
+Upgraded from version 1.07 to 1.08.
+
+=item C<FindBin>
+
+Upgraded from version 1.49 to 1.50.
+
+=item C<GDBM_File>
+
+Upgraded from version 1.08 to 1.09.
+
+=item C<Getopt::Long>
+
+Upgraded from version 2.37 to 2.38.
+
+=item C<Hash::Util::FieldHash>
+
+Upgraded from version 1.03 to 1.04. This fixes a memory leak.
+
+=item C<I18N::Collate>
+
+Upgraded from version 1.00 to 1.01.
+
+=item C<IO>
+
+Upgraded from version 1.23_01 to 1.25.
+
+This makes non-blocking mode work on Windows in C<IO::Socket::INET>
+[CPAN #43573].
+
+=item C<IO::Compress::*>
+
+Upgraded from version 2.008 to 2.020.
+
+=item C<IO::Dir>
+
+Upgraded from version 1.06 to 1.07.
+
+=item C<IO::Handle>
+
+Upgraded from version 1.27 to 1.28.
+
+=item C<IO::Socket>
+
+Upgraded from version 1.30_01 to 1.31.
+
+=item C<IO::Zlib>
+
+Upgraded from version 1.07 to 1.09.
+
+=item C<IPC::Cmd>
+
+Upgraded from version 0.40_1 to 0.46.
+
+=item C<IPC::Open3>
+
+Upgraded from version 1.02 to 1.04.
+
+=item C<IPC::SysV>
+
+Upgraded from version 1.05 to 2.01.
+
+=item C<lib>
+
+Upgraded from version 0.5565 to 0.62.
+
+=item C<List::Util>
+
+Upgraded from version 1.19 to 1.21.
+
+=item C<Locale::MakeText>
+
+Upgraded from version 1.12 to 1.13.
+
+=item C<Log::Message>
+
+Upgraded from version 0.01 to 0.02.
+
+=item C<Math::BigFloat>
+
+Upgraded from version 1.59 to 1.60.
+
+=item C<Math::BigInt>
+
+Upgraded from version 1.88 to 1.89.
+
+=item C<Math::BigInt::FastCalc>
+
+Upgraded from version 0.16 to 0.19.
+
+=item C<Math::BigRat>
+
+Upgraded from version 0.21 to 0.22.
+
+=item C<Math::Complex>
+
+Upgraded from version 1.37 to 1.56.
+
+=item C<Math::Trig>
+
+Upgraded from version 1.04 to 1.20.
+
+=item C<Memoize>
+
+Upgraded from version 1.01_02 to 1.01_03 (just a minor documentation
+change).
+
+=item C<Module::Build>
+
+Upgraded from version 0.2808_01 to 0.34_02.
+
+=item C<Module::CoreList>
+
+Upgraded from version 2.13 to 2.18. This release no longer contains the
+C<%Module::CoreList::patchlevel> hash.
+
+=item C<Module::Load>
+
+Upgraded from version 0.12 to 0.16.
+
+=item C<Module::Load::Conditional>
+
+Upgraded from version 0.22 to 0.30.
+
+=item C<Module::Loaded>
+
+Upgraded from version 0.01 to 0.02.
+
+=item C<Module::Pluggable>
+
+Upgraded from version 3.6 to 3.9.
+
+=item C<NDBM_File>
+
+Upgraded from version 1.07 to 1.08.
+
+=item C<Net::Ping>
+
+Upgraded from version 2.33 to 2.36.
+
+=item C<NEXT>
+
+Upgraded from version 0.60_01 to 0.64.
+
+=item C<Object::Accessor>
+
+Upgraded from version 0.32 to 0.34.
+
+=item C<OS2::REXX>
+
+Upgraded from version 1.03 to 1.04.
+
+=item C<Package::Constants>
+
+Upgraded from version 0.01 to 0.02.
+
+=item C<PerlIO>
+
+Upgraded from version 1.04 to 1.06.
+
+=item C<PerlIO::via>
+
+Upgraded from version 0.04 to 0.07.
+
+=item C<Pod::Man>
+
+Upgraded from version 2.16 to 2.22.
+
+=item C<Pod::Parser>
+
+Upgraded from version 1.35 to 1.37.
+
+=item C<Pod::Simple>
+
+Upgraded from version 3.05 to 3.07.
+
+=item C<Pod::Text>
+
+Upgraded from version 3.08 to 3.13.
+
+=item C<POSIX>
+
+Upgraded from version 1.13 to 1.17.
+
+=item C<Safe>
+
+Upgraded from 2.12 to 2.18.
+
+=item C<Scalar::Util>
+
+Upgraded from version 1.19 to 1.21.
+
+=item C<SelectSaver>
+
+Upgraded from 1.01 to 1.02.
+
+=item C<SelfLoader>
+
+Upgraded from 1.11 to 1.17.
+
+=item C<Socket>
+
+Upgraded from 1.80 to 1.82.
+
+=item C<Storable>
+
+Upgraded from 2.18 to 2.20.
+
+=item C<Switch>
+
+Upgraded from version 2.13 to 2.14. Please see L</Deprecations>.
+
+=item C<Symbol>
+
+Upgraded from version 1.06 to 1.07.
+
+=item C<Sys::Syslog>
+
+Upgraded from version 0.22 to 0.27.
+
+=item C<Term::ANSIColor>
+
+Upgraded from version 1.12 to 2.00.
+
+=item C<Term::ReadLine>
+
+Upgraded from version 1.03 to 1.04.
+
+=item C<Term::UI>
+
+Upgraded from version 0.18 to 0.20.
+
+=item C<Test::Harness>
+
+Upgraded from version 2.64 to 3.17.
+
+Note that one side-effect of the 2.x to 3.x upgrade is that the
+experimental C<Test::Harness::Straps> module (and its supporting
+C<Assert>, C<Iterator>, C<Point> and C<Results> modules) have been
+removed. If you still need this, then they are available in the
+(unmaintained) C<Test-Harness-Straps> distribution on CPAN.
+
+=item C<Test::Simple>
+
+Upgraded from version 0.72 to 0.92.
+
+=item C<Text::ParseWords>
+
+Upgraded from version 3.26 to 3.27.
+
+=item C<Text::Tabs>
+
+Upgraded from version 2007.1117 to 2009.0305.
+
+=item C<Text::Wrap>
+
+Upgraded from version 2006.1117 to 2009.0305.
+
+=item C<Thread::Queue>
+
+Upgraded from version 2.00 to 2.11.
+
+=item C<Thread::Semaphore>
+
+Upgraded from version 2.01 to 2.09.
+
+=item C<threads>
+
+Upgraded from version 1.67 to 1.72.
+
+=item C<threads::shared>
+
+Upgraded from version 1.14 to 1.29.
+
+=item C<Tie::RefHash>
+
+Upgraded from version 1.37 to 1.38.
+
+=item C<Tie::StdHandle>
+
+This has documentation changes, and has been assigned a version for the
+first time: version 4.2.
+
+=item C<Time::HiRes>
+
+Upgraded from version 1.9711 to 1.9719.
+
+=item C<Time::Local>
+
+Upgraded from version 1.18 to 1.1901.
+
+=item C<Time::Piece>
+
+Upgraded from version 1.12 to 1.15.
+
+=item C<Unicode::Normalize>
+
+Upgraded from version 1.02 to 1.03.
+
+=item C<Unicode::UCD>
+
+Upgraded from version 0.25 to 0.27.
+
+C<charinfo()> now works on Unified CJK code points added to later versions
+of Unicode.
+
+C<casefold()> has new fields returned to provide both a simpler interface
+and previously missing information. The old fields are retained for
+backwards compatibility. Information about Turkic-specific code points is
+now returned.
+
+The documentation has been corrected and expanded.
+
+=item C<UNIVERSAL>
+
+Upgraded from version 1.04 to 1.05.
+
+=item C<Win32>
+
+Upgraded from version 0.34 to 0.39.
+
+=item C<Win32API::File>
+
+Upgraded from version 0.1001_01 to 0.1101.
+
+=item C<XSLoader>
+
+Upgraded from version 0.08 to 0.10.
+
+=back
+
+=head1 Utility Changes
+
+=over 4
+
+=item F<h2ph>
+
+Now looks in C<include-fixed> too, which is a recent addition to gcc's
+search path.
+
+=item F<h2xs>
+
+No longer incorrectly treats enum values like macros (Daniel Burr).
+
+Now handles C++ style constants (C<//>) properly in enums. (A patch from
+Rainer Weikusat was used; Daniel Burr also proposed a similar fix).
+
+=item F<perl5db.pl>
+
+C<LVALUE> subroutines now work under the debugger.
+
+The debugger now correctly handles proxy constant subroutines, and
+subroutine stubs.
+
+=item F<perlthanks>
+
+Perl 5.10.1 adds a new utility F<perlthanks>, which is a variant of
+F<perlbug>, but for sending non-bug-reports to the authors and maintainers
+of Perl. Getting nothing but bug reports can become a bit demoralising:
+we'll see if this changes things.
+
+=back
+
+=head1 New Documentation
+
+=over 4
+
+=item L<perlhaiku>
+
+This contains instructions on how to build perl for the Haiku platform.
+
+=item L<perlmroapi>
+
+This describes the new interface for pluggable Method Resolution Orders.
+
+=item L<perlperf>
+
+This document, by Richard Foley, provides an introduction to the use of
+performance and optimization techniques which can be used with particular
+reference to perl programs.
+
+=item L<perlrepository>
+
+This describes how to access the perl source using the I<git> version
+control system.
+
+=item L<perlthanks>
+
+This describes the new F<perlthanks> utility.
+
+=back
+
+=head1 Changes to Existing Documentation
+
+The various large C<Changes*> files (which listed every change made to perl
+over the last 18 years) have been removed, and replaced by a small file,
+also called C<Changes>, which just explains how that same information may
+be extracted from the git version control system.
+
+The file F<Porting/patching.pod> has been deleted, as it mainly described
+interacting with the old Perforce-based repository, which is now obsolete.
+Information still relevant has been moved to L<perlrepository>.
+
+L<perlapi>, L<perlintern>, L<perlmodlib> and L<perltoc> are now all
+generated at build time, rather than being shipped as part of the release.
+
+=head1 Performance Enhancements
+
+=over 4
+
+=item *
+
+A new internal cache means that C<isa()> will often be faster.
+
+=item *
+
+Under C<use locale>, the locale-relevant information is now cached on
+read-only values, such as the list returned by C<keys %hash>. This makes
+operations such as C<sort keys %hash> in the scope of C<use locale> much
+faster.
+
+=item *
+
+Empty C<DESTROY> methods are no longer called.
+
+=back
+
+=head1 Installation and Configuration Improvements
+
+=head2 F<ext/> reorganisation
+
+The layout of directories in F<ext> has been revised. Specifically, all
+extensions are now flat, and at the top level, with C</> in pathnames
+replaced by C<->, so that F<ext/Data/Dumper/> is now F<ext/Data-Dumper/>,
+etc.  The names of the extensions as specified to F<Configure>, and as
+reported by C<%Config::Config> under the keys C<dynamic_ext>,
+C<known_extensions>, C<nonxs_ext> and C<static_ext> have not changed, and
+still use C</>. Hence this change will not have any affect once perl is
+installed. However, C<Attribute::Handlers>, C<Safe> and C<mro> have now
+become extensions in their own right, so if you run F<Configure> with
+options to specify an exact list of extensions to build, you will need to
+change it to account for this.
+
+For 5.10.2, it is planned that many dual-life modules will have been moved
+from F<lib> to F<ext>; again this will have no effect on an installed
+perl, but will matter if you invoke F<Configure> with a pre-canned list of
+extensions to build.
+
+=head2 Configuration improvements
+
+If C<vendorlib> and C<vendorarch> are the same, then they are only added to
+C<@INC> once.
+
+C<$Config{usedevel}> and the C-level C<PERL_USE_DEVEL> are now defined if
+perl is built with  C<-Dusedevel>.
+
+F<Configure> will enable use of C<-fstack-protector>, to provide protection
+against stack-smashing attacks, if the compiler supports it.
+
+F<Configure> will now determine the correct prototypes for re-entrant
+functions, and for C<gconvert>, if you are using a C++ compiler rather
+than a C compiler.
+
+On Unix, if you build from a tree containing a git repository, the
+configuration process will note the commit hash you have checked out, for
+display in the output of C<perl -v> and C<perl -V>. Unpushed local commits
+are automatically added to the list of local patches displayed by
+C<perl -V>.
+
+=head2 Compilation improvements
+
+As part of the flattening of F<ext>, all extensions on all platforms are
+built by F<make_ext.pl>. This replaces the Unix-specific
+F<ext/util/make_ext>, VMS-specific F<make_ext.com> and Win32-specific
+F<win32/buildext.pl>.
+
+=head2 Platform Specific Changes
+
+=over 4
+
+=item AIX
+
+Removed F<libbsd> for AIX 5L and 6.1. Only flock() was used from F<libbsd>.
+
+Removed F<libgdbm> for AIX 5L and 6.1. The F<libgdbm> is delivered as an
+optional package with the AIX Toolbox. Unfortunately the 64 bit version 
+is broken.
+
+Hints changes mean that AIX 4.2 should work again.
+
+=item Cygwin
+
+On Cygwin we now strip the last number from the DLL. This has been the
+behaviour in the cygwin.com build for years. The hints files have been
+updated.
+
+=item FreeBSD
+
+The hints files now identify the correct threading libraries on FreeBSD 7
+and later.
+
+=item Irix
+
+We now work around a bizarre preprocessor bug in the Irix 6.5 compiler:
+C<cc -E -> unfortunately goes into K&R mode, but C<cc -E file.c> doesn't.
+
+=item Haiku
+
+Patches from the Haiku maintainers have been merged in. Perl should now
+build on Haiku.
+
+=item MirOS BSD
+
+Perl should now build on MirOS BSD.
+
+=item NetBSD
+
+Hints now supports versions 5.*.
+
+=item Stratus VOS
+
+Various changes from Stratus have been merged in.
+
+=item Symbian
+
+There is now support for Symbian S60 3.2 SDK and S60 5.0 SDK.
+
+=item Win32
+
+Improved message window handling means that C<alarm> and C<kill> messages
+will no longer be dropped under race conditions.
+
+=item VMS
+
+Reads from the in-memory temporary files of C<PerlIO::scalar> used to fail
+if C<$/> was set to a numeric reference (to indicate record-style reads).
+This is now fixed.
+
+VMS now supports C<getgrgid>.
+
+Many improvements and cleanups have been made to the VMS file name handling
+and conversion code.
+
+Enabling the C<PERL_VMS_POSIX_EXIT> logical name now encodes a POSIX exit
+status in a VMS condition value for better interaction with GNV's bash
+shell and other utilities that depend on POSIX exit values.  See
+L<perlvms/"$?"> for details.
+
+=back
+
+=head1 Selected Bug Fixes
+
+=over 4
+
+=item *
+
+5.10.0 inadvertently disabled an optimisation, which caused a measurable
+performance drop in list assignment, such as is often used to assign
+function parameters from C<@_>. The optimisation has been re-instated, and
+the performance regression fixed.
+
+=item *
+
+Fixed memory leak on C<while (1) { map 1, 1 }> [RT #53038].
+
+=item *
+
+Some potential coredumps in PerlIO fixed [RT #57322,54828].
+
+=item *
+
+The debugger now works with lvalue subroutines.
+
+=item *
+
+The debugger's C<m> command was broken on modules that defined constants
+[RT #61222].
+
+=item *
+
+C<crypt()> and string complement could return tainted values for untainted
+arguments [RT #59998].
+
+=item *
+
+The C<-i.suffix> command-line switch now recreates the file using
+restricted permissions, before changing its mode to match the original
+file. This eliminates a potential race condition [RT #60904].
+
+=item *
+
+On some Unix systems, the value in C<$?> would not have the top bit set
+(C<$? & 128>) even if the child core dumped.
+
+=item *
+
+Under some circumstances, $^R could incorrectly become undefined
+[RT #57042].
+
+=item *
+
+(XS) In various hash functions, passing a pre-computed hash to when the
+key is UTF-8 might result in an incorrect lookup.
+
+=item *
+
+(XS) Including F<XSUB.h> before F<perl.h> gave a compile-time error
+[RT #57176].
+
+=item *
+
+C<< $object->isa('Foo') >> would report false if the package C<Foo> didn't
+exist, even if the object's C<@ISA> contained C<Foo>.
+
+=item *
+
+Various bugs in the new-to 5.10.0 mro code, triggered by manipulating
+C<@ISA>, have been found and fixed.
+
+=item *
+
+Bitwise operations on references could crash the interpreter, e.g.
+C<$x=\$y; $x |= "foo"> [RT #54956].
+
+=item *
+
+Patterns including alternation might be sensitive to the internal UTF-8
+representation, e.g.
+
+    my $byte = chr(192);
+    my $utf8 = chr(192); utf8::upgrade($utf8);
+    $utf8 =~ /$byte|X}/i;	# failed in 5.10.0
+
+=item *
+
+Within UTF8-encoded Perl source files (i.e. where C<use utf8> is in
+effect), double-quoted literal strings could be corrupted where a C<\xNN>,
+C<\0NNN> or C<\N{}> is followed by a literal character with ordinal value
+greater than 255 [RT #59908].
+
+=item *
+
+C<B::Deparse> failed to correctly deparse various constructs:
+C<readpipe STRING> [RT #62428], C<CORE::require(STRING)> [RT #62488],
+C<sub foo(_)> [RT #62484].
+
+=item *
+
+Using C<setpgrp()> with no arguments could corrupt the perl stack.
+
+=item *
+
+The block form of C<eval> is now specifically trappable by C<Safe> and
+C<ops>.  Previously it was erroneously treated like string C<eval>.
+
+=item *
+
+In 5.10.0, the two characters C<[~> were sometimes parsed as the smart
+match operator (C<~~>) [RT #63854].
+
+=item *
+
+In 5.10.0, the C<*> quantifier in patterns was sometimes treated as
+C<{0,32767}> [RT #60034, #60464]. For example, this match would fail:
+
+    ("ab" x 32768) =~ /^(ab)*$/
+
+=item *
+
+C<shmget> was limited to a 32 bit segment size on a 64 bit OS [RT #63924].
+
+=item *
+
+Using C<next> or C<last> to exit a C<given> block no longer produces a
+spurious warning like the following:
+
+    Exiting given via last at foo.pl line 123
+
+=item *
+
+On Windows, C<'.\foo'> and C<'..\foo'>  were treated differently than
+C<'./foo'> and C<'../foo'> by C<do> and C<require> [RT #63492].
+
+=item *
+
+Assigning a format to a glob could corrupt the format; e.g.:
+
+     *bar=*foo{FORMAT}; # foo format now bad
+
+=item *
+
+Attempting to coerce a typeglob to a string or number could cause an
+assertion failure. The correct error message is now generated,
+C<Can't coerce GLOB to I<$type>>.
+
+=item *
+
+Under C<use filetest 'access'>, C<-x> was using the wrong access mode. This
+has been fixed [RT #49003].
+
+=item *
+
+C<length> on a tied scalar that returned a Unicode value would not be
+correct the first time. This has been fixed.
+
+=item *
+
+Using an array C<tie> inside in array C<tie> could SEGV. This has been
+fixed. [RT #51636]
+
+=item *
+
+A race condition inside C<PerlIOStdio_close()> has been identified and
+fixed. This used to cause various threading issues, including SEGVs.
+
+=item *
+
+In C<unpack>, the use of C<()> groups in scalar context was internally
+placing a list on the interpreter's stack, which manifested in various
+ways, including SEGVs.  This is now fixed [RT #50256].
+
+=item *
+
+Magic was called twice in C<substr>, C<\&$x>, C<tie $x, $m> and C<chop>.
+These have all been fixed.
+
+=item *
+
+A 5.10.0 optimisation to clear the temporary stack within the implicit
+loop of C<s///ge> has been reverted, as it turned out to be the cause of
+obscure bugs in seemingly unrelated parts of the interpreter [commit 
+ef0d4e17921ee3de].
+
+=item *
+
+The line numbers for warnings inside C<elsif> are now correct.
+
+=item *
+
+The C<..> operator now works correctly with ranges whose ends are at or
+close to the values of the smallest and largest integers.
+
+=item *
+
+C<binmode STDIN, ':raw'> could lead to segmentation faults on some platforms.
+This has been fixed [RT #54828].
+
+=item *
+
+An off-by-one error meant that C<index $str, ...> was effectively being
+executed as C<index "$str\0", ...>. This has been fixed [RT #53746].
+
+=item *
+
+Various leaks associated with named captures in regexes have been fixed
+[RT #57024].
+
+=item *
+
+A weak reference to a hash would leak. This was affecting C<DBI>
+[RT #56908].
+
+=item *
+
+Using (?|) in a regex could cause a segfault [RT #59734].
+
+=item *
+
+Use of a UTF-8 C<tr//> within a closure could cause a segfault [RT #61520].
+
+=item *
+
+Calling C<sv_chop()> or otherwise upgrading an SV could result in an
+unaligned 64-bit access on the SPARC architecture [RT #60574].
+
+=item *
+
+In the 5.10.0 release, C<inc_version_list> would incorrectly list
+C<5.10.*> after C<5.8.*>; this affected the C<@INC> search order
+[RT #67628].
+
+=item *
+
+In 5.10.0, C<pack "a*", $tainted_value> returned a non-tainted value
+[RT #52552].
+
+=item *
+
+In 5.10.0, C<printf> and C<sprintf> could produce the fatal error
+C<panic: utf8_mg_pos_cache_update> when printing UTF-8 strings
+[RT #62666].
+
+=item *
+
+In the 5.10.0 release, a dynamically created C<AUTOLOAD> method might be
+missed (method cache issue) [RT #60220,60232].
+
+=item *
+
+In the 5.10.0 release, a combination of C<use feature> and C<//ee> could
+cause a memory leak [RT #63110].
+
+=item *
+
+C<-C> on the shebang (C<#!>) line is once more permitted if it is also
+specified on the command line. C<-C> on the shebang line used to be a
+silent no-op I<if> it was not also on the command line, so perl 5.10.0
+disallowed it, which broke some scripts. Now perl checks whether it is
+also on the command line and only dies if it is not [RT #67880].
+
+=item *
+
+In 5.10.0, certain types of re-entrant regular expression could crash,
+or cause the following assertion failure [RT #60508]:
+
+    Assertion rx->sublen >= (s - rx->subbeg) + i failed
+
+
+=back
+
+=head1 New or Changed Diagnostics
+
+=over 4
+
+=item C<panic: sv_chop %s>
+
+This new fatal error occurs when the C routine C<Perl_sv_chop()> was
+passed a position that is not within the scalar's string buffer. This
+could be caused by buggy XS code, and at this point recovery is not
+possible.
+
+=item C<Can't locate package %s for the parents of %s>
+
+This warning has been removed. In general, it only got produced in
+conjunction with other warnings, and removing it allowed an ISA lookup
+optimisation to be added.
+
+=item C<v-string in use/require is non-portable>
+
+This warning has been removed.
+
+=item C<Deep recursion on subroutine "%s">
+
+It is now possible to change the depth threshold for this warning from the
+default of 100, by recompiling the F<perl> binary, setting the C
+pre-processor macro C<PERL_SUB_DEPTH_WARN> to the desired value.
+
+=back
+
+=head1 Changed Internals
+
+=over 4
+
+=item *
+
+The J.R.R. Tolkien quotes at the head of C source file have been checked and
+proper citations added, thanks to a patch from Tom Christiansen.
+
+=item *
+
+C<vcroak()> now accepts a null first argument. In addition, a full audit
+was made of the "not NULL" compiler annotations, and those for several
+other internal functions were corrected.
+
+=item *
+
+New macros C<dSAVEDERRNO>, C<dSAVE_ERRNO>, C<SAVE_ERRNO>, C<RESTORE_ERRNO>
+have been added to formalise the temporary saving of the C<errno>
+variable.
+
+=item *
+
+The function C<Perl_sv_insert_flags> has been added to augment
+C<Perl_sv_insert>.
+
+=item *
+
+The function C<Perl_newSV_type(type)> has been added, equivalent to
+C<Perl_newSV()> followed by C<Perl_sv_upgrade(type)>.
+
+=item *
+
+The function C<Perl_newSVpvn_flags()> has been added, equivalent to
+C<Perl_newSVpvn()> and then performing the action relevant to the flag.
+
+Two flag bits are currently supported.
+
+=over 4
+
+=item C<SVf_UTF8>
+
+This will call C<SvUTF8_on()> for you. (Note that this does not convert an
+sequence of ISO 8859-1 characters to UTF-8). A wrapper, C<newSVpvn_utf8()>
+is available for this.
+
+=item C<SVs_TEMP>
+
+Call C<sv_2mortal()> on the new SV.
+
+=back
+
+There is also a wrapper that takes constant strings, C<newSVpvs_flags()>.
+
+=item *
+
+The function C<Perl_croak_xs_usage> has been added as a wrapper to
+C<Perl_croak>.
+
+=item *
+
+The functions C<PerlIO_find_layer> and C<PerlIO_list_alloc> are now
+exported.
+
+=item *
+
+C<PL_na> has been exterminated from the core code, replaced by local STRLEN
+temporaries, or C<*_nolen()> calls. Either approach is faster than C<PL_na>,
+which is a pointer deference into the interpreter structure under ithreads,
+and a global variable otherwise.
+
+=item *
+
+C<Perl_mg_free()> used to leave freed memory accessible via SvMAGIC() on
+the scalar. It now updates the linked list to remove each piece of magic
+as it is freed.
+
+=item *
+
+Under ithreads, the regex in C<PL_reg_curpm> is now reference counted. This
+eliminates a lot of hackish workarounds to cope with it not being reference
+counted.
+
+=item *
+
+C<Perl_mg_magical()> would sometimes incorrectly turn on C<SvRMAGICAL()>.
+This has been fixed.
+
+=item *
+
+The I<public> IV and NV flags are now not set if the string value has
+trailing "garbage". This behaviour is consistent with not setting the
+public IV or NV flags if the value is out of range for the type.
+
+=item *
+
+SV allocation tracing has been added to the diagnostics enabled by C<-Dm>.
+The tracing can alternatively output via the C<PERL_MEM_LOG> mechanism, if
+that was enabled when the F<perl> binary was compiled.
+
+=item *
+
+Uses of C<Nullav>, C<Nullcv>, C<Nullhv>, C<Nullop>, C<Nullsv> etc have been
+replaced by C<NULL> in the core code, and non-dual-life modules, as C<NULL>
+is clearer to those unfamiliar with the core code.
+
+=item *
+
+A macro C<MUTABLE_PTR(p)> has been added, which on (non-pedantic) gcc will
+not cast away C<const>, returning a C<void *>. Macros C<MUTABLE_SV(av)>,
+C<MUTABLE_SV(cv)> etc build on this, casting to C<AV *> etc without
+casting away C<const>. This allows proper compile-time auditing of
+C<const> correctness in the core, and helped picked up some errors (now
+fixed).
+
+=item *
+
+Macros C<mPUSHs()> and C<mXPUSHs()> have been added, for pushing SVs on the
+stack and mortalizing them.
+
+=item *
+
+Use of the private structure C<mro_meta> has changed slightly. Nothing
+outside the core should be accessing this directly anyway.
+
+=item *
+
+A new tool, C<Porting/expand-macro.pl> has been added, that allows you
+to view how a C preprocessor macro would be expanded when compiled.
+This is handy when trying to decode the macro hell that is the perl
+guts.
+
+=back
+
+=head1 New Tests
+
+Many modules updated from CPAN incorporate new tests.
+
+Several tests that have the potential to hang forever if they fail now
+incorporate a "watchdog" functionality that will kill them after a timeout,
+which helps ensure that C<make test> and C<make test_harness> run to
+completion automatically. (Jerry Hedden).
+
+Some core-specific tests have been added:
+
+=over 4
+
+=item t/comp/retainedlines.t
+
+Check that the debugger can retain source lines from C<eval>.
+
+=item t/io/perlio_fail.t
+
+Check that bad layers fail.
+
+=item t/io/perlio_leaks.t
+
+Check that PerlIO layers are not leaking.
+
+=item t/io/perlio_open.t
+
+Check that certain special forms of open work.
+
+=item t/io/perlio.t
+
+General PerlIO tests.
+
+=item t/io/pvbm.t
+
+Check that there is no unexpected interaction between the internal types
+C<PVBM> and C<PVGV>.
+
+=item t/mro/package_aliases.t
+
+Check that mro works properly in the presence of aliased packages.
+
+=item t/op/dbm.t
+
+Tests for C<dbmopen> and C<dbmclose>.
+
+=item t/op/index_thr.t
+
+Tests for the interaction of C<index> and threads.
+
+=item t/op/pat_thr.t
+
+Tests for the interaction of esoteric patterns and threads.
+
+=item t/op/qr_gc.t
+
+Test that C<qr> doesn't leak.
+
+=item t/op/reg_email_thr.t
+
+Tests for the interaction of regex recursion and threads.
+
+=item t/op/regexp_qr_embed_thr.t
+
+Tests for the interaction of patterns with embedded C<qr//> and threads.
+
+=item t/op/regexp_unicode_prop.t
+
+Tests for Unicode properties in regular expressions.
+
+=item t/op/regexp_unicode_prop_thr.t
+
+Tests for the interaction of Unicode properties and threads.
+
+=item t/op/reg_nc_tie.t
+
+Test the tied methods of C<Tie::Hash::NamedCapture>.
+
+=item t/op/reg_posixcc.t 
+
+Check that POSIX character classes behave consistently.
+
+=item t/op/re.t
+
+Check that exportable C<re> functions in F<universal.c> work.
+
+=item t/op/setpgrpstack.t
+
+Check that C<setpgrp> works.
+
+=item t/op/substr_thr.t
+
+Tests for the interaction of C<substr> and threads.
+
+=item t/op/upgrade.t
+
+Check that upgrading and assigning scalars works.
+
+=item t/uni/lex_utf8.t
+
+Check that Unicode in the lexer works.
+
+=item t/uni/tie.t
+
+Check that Unicode and C<tie> work.
+
+=back
+
+=head1 Known Problems
+
+This is a list of some significant unfixed bugs, which are regressions
+from either 5.10.0 or 5.8.x.
+
+=over 4
+
+=item *
+
+C<List::Util::first> misbehaves in the presence of a lexical C<$_>
+(typically introduced by C<my $_> or implicitly by C<given>). The variable
+which gets set for each iteration is the package variable C<$_>, not the
+lexical C<$_> [RT #67694].
+
+A similar issue may occur in other modules that provide functions which
+take a block as their first argument, like
+
+    foo { ... $_ ...} list
+
+=item *
+
+The C<charnames> pragma may generate a run-time error when a regex is
+interpolated [RT #56444]:
+
+    use charnames ':full';
+    my $r1 = qr/\N{THAI CHARACTER SARA I}/;
+    "foo" =~ $r1;    # okay
+    "foo" =~ /$r1+/; # runtime error
+
+A workaround is to generate the character outside of the regex:
+
+    my $a = "\N{THAI CHARACTER SARA I}";
+    my $r1 = qr/$a/;
+
+=item *
+
+Some regexes may run much more slowly when run in a child thread compared
+with the thread the pattern was compiled into [RT #55600].
+
+
+=back
+
+=head1 Deprecations
+
+The following items are now deprecated.
+
+=over 4
+
+=item *
+
+C<Switch> is buggy and should be avoided. From perl 5.11.0 onwards, it is
+intended that any use of the core version of this module will emit a
+warning, and that the module will eventually be removed from the core
+(probably in perl 5.14.0). See L<perlsyn/"Switch statements"> for its
+replacement.
+
+=item *
+
+C<suidperl> will be removed in 5.12.0. This provides a mechanism to
+emulate setuid permission bits on systems that don't support it properly.
+
+=back
+
+=head1 Acknowledgements
+
+Some of the work in this release was funded by a TPF grant.
+
+Nicholas Clark officially retired from maintenance pumpking duty at the
+end of 2008; however in reality he has put much effort in since then to
+help get 5.10.1 into a fit state to be released, including writing a
+considerable chunk of this perldelta.
+
+Steffen Mueller and David Golden in particular helped getting CPAN modules
+polished and synchronised with their in-core equivalents.
+
+Craig Berry was tireless in getting maint to run under VMS, no matter how
+many times we broke it for him.
+
+The other core committers contributed most of the changes, and applied most
+of the patches sent in by the hundreds of contributors listed in F<AUTHORS>.
+
+(Sorry to all the people I haven't mentioned by name).
+
+Finally, thanks to Larry Wall, without whom none of this would be
+necessary.
+
+=head1 Reporting Bugs
+
+If you find what you think is a bug, you might check the articles
+recently posted to the comp.lang.perl.misc newsgroup and the perl
+bug database at http://rt.perl.org/perlbug/ .  There may also be
+information at http://www.perl.org/ , the Perl Home Page.
+
+If you believe you have an unreported bug, please run the B<perlbug>
+program included with your release.  Be sure to trim your bug down
+to a tiny but sufficient test case.  Your bug report, along with the
+output of C<perl -V>, will be sent off to perlbug@perl.org to be
+analysed by the Perl porting team.
+
+If the bug you are reporting has security implications, which make it
+inappropriate to send to a publicly archived mailing list, then please send
+it to perl5-security-report@perl.org. This points to a closed subscription
+unarchived mailing list, which includes
+all the core committers, who will be able
+to help assess the impact of issues, figure out a resolution, and help
+co-ordinate the release of patches to mitigate or fix the problem across all
+platforms on which Perl is supported. Please only use this address for
+security issues in the Perl core, not for modules independently
+distributed on CPAN.
+
+=head1 SEE ALSO
+
+The F<Changes> file for an explanation of how to view exhaustive details
+on what changed.
+
+The F<INSTALL> file for how to build Perl.
+
+The F<README> file for general stuff.
+
+The F<Artistic> and F<Copying> files for copyright information.
+
+=cut
diff --git a/lib/5.24.1/pod/perl5120delta.pod b/lib/5.24.1/pod/perl5120delta.pod
new file mode 100644
index 00000000..b8bd646b
--- /dev/null
+++ b/lib/5.24.1/pod/perl5120delta.pod
@@ -0,0 +1,3195 @@
+=encoding utf8
+
+=head1 NAME
+
+perl5120delta - what is new for perl v5.12.0
+
+=head1 DESCRIPTION
+
+This document describes differences between the 5.10.0 release and the
+5.12.0 release.
+
+Many of the bug fixes in 5.12.0 are already included in the 5.10.1
+maintenance release.
+
+You can see the list of those changes in the 5.10.1 release notes
+(L<perl5101delta>).
+
+
+=head1 Core Enhancements
+
+=head2 New C<package NAME VERSION> syntax
+
+This new syntax allows a module author to set the $VERSION of a namespace
+when the namespace is declared with 'package'. It eliminates the need
+for C<our $VERSION = ...> and similar constructs. E.g.
+
+      package Foo::Bar 1.23;
+      # $Foo::Bar::VERSION == 1.23
+
+There are several advantages to this:
+
+=over
+
+=item *
+
+C<$VERSION> is parsed in exactly the same way as C<use NAME VERSION>
+
+=item *
+
+C<$VERSION> is set at compile time
+
+=item *
+
+C<$VERSION> is a version object that provides proper overloading of
+comparison operators so comparing C<$VERSION> to decimal (1.23) or
+dotted-decimal (v1.2.3) version numbers works correctly.
+
+=item *
+
+Eliminates C<$VERSION = ...> and C<eval $VERSION> clutter
+
+=item *
+
+As it requires VERSION to be a numeric literal or v-string
+literal, it can be statically parsed by toolchain modules
+without C<eval> the way MM-E<gt>parse_version does for C<$VERSION = ...>
+
+=back
+
+It does not break old code with only C<package NAME>, but code that uses
+C<package NAME VERSION> will need to be restricted to perl 5.12.0 or newer
+This is analogous to the change to C<open> from two-args to three-args.
+Users requiring the latest Perl will benefit, and perhaps after several
+years, it will become a standard practice.
+
+
+However, C<package NAME VERSION> requires a new, 'strict' version
+number format. See L<"Version number formats"> for details.
+
+
+=head2 The C<...> operator
+
+A new operator, C<...>, nicknamed the Yada Yada operator, has been added.
+It is intended to mark placeholder code that is not yet implemented.
+See L<perlop/"Yada Yada Operator">.
+
+=head2 Implicit strictures
+
+Using the C<use VERSION> syntax with a version number greater or equal
+to 5.11.0 will lexically enable strictures just like C<use strict>
+would do (in addition to enabling features.) The following:
+
+    use 5.12.0;
+
+means:
+
+    use strict;
+    use feature ':5.12';
+
+=head2 Unicode improvements
+
+Perl 5.12 comes with Unicode 5.2, the latest version available to
+us at the time of release.  This version of Unicode was released in
+October 2009. See L<http://www.unicode.org/versions/Unicode5.2.0> for
+further details about what's changed in this version of the standard.
+See L<perlunicode> for instructions on installing and using other versions
+of Unicode.
+
+Additionally, Perl's developers have significantly improved Perl's Unicode
+implementation. For full details, see L</Unicode overhaul> below.
+
+=head2 Y2038 compliance
+
+Perl's core time-related functions are now Y2038 compliant. (It may not mean much to you, but your kids will love it!)
+
+=head2 qr overloading
+
+It is now possible to overload the C<qr//> operator, that is,
+conversion to regexp, like it was already possible to overload
+conversion to boolean, string or number of objects. It is invoked when
+an object appears on the right hand side of the C<=~> operator or when
+it is interpolated into a regexp. See L<overload>.
+
+=head2 Pluggable keywords
+
+Extension modules can now cleanly hook into the Perl parser to define
+new kinds of keyword-headed expression and compound statement. The
+syntax following the keyword is defined entirely by the extension. This
+allows a completely non-Perl sublanguage to be parsed inline, with the
+correct ops cleanly generated.
+
+See L<perlapi/PL_keyword_plugin> for the mechanism. The Perl core
+source distribution also includes a new module
+L<XS::APItest::KeywordRPN>, which implements reverse Polish notation
+arithmetic via pluggable keywords. This module is mainly used for test
+purposes, and is not normally installed, but also serves as an example
+of how to use the new mechanism.
+
+Perl's developers consider this feature to be experimental. We may remove
+it or change it in a backwards-incompatible way in Perl 5.14.
+
+=head2 APIs for more internals
+
+The lowest layers of the lexer and parts of the pad system now have C
+APIs available to XS extensions. These are necessary to support proper
+use of pluggable keywords, but have other uses too. The new APIs are
+experimental, and only cover a small proportion of what would be
+necessary to take full advantage of the core's facilities in these
+areas. It is intended that the Perl 5.13 development cycle will see the
+addition of a full range of clean, supported interfaces.
+
+Perl's developers consider this feature to be experimental. We may remove
+it or change it in a backwards-incompatible way in Perl 5.14.
+
+=head2 Overridable function lookup
+
+Where an extension module hooks the creation of rv2cv ops to modify the
+subroutine lookup process, this now works correctly for bareword
+subroutine calls. This means that prototypes on subroutines referenced
+this way will be processed correctly. (Previously bareword subroutine
+names were initially looked up, for parsing purposes, by an unhookable
+mechanism, so extensions could only properly influence subroutine names
+that appeared with an C<&> sigil.)
+
+=head2 A proper interface for pluggable Method Resolution Orders
+
+As of Perl 5.12.0 there is a new interface for plugging and using method
+resolution orders other than the default linear depth first search.
+The C3 method resolution order added in 5.10.0 has been re-implemented as
+a plugin, without changing its Perl-space interface. See L<perlmroapi> for
+more information.
+
+
+
+=head2 C<\N> experimental regex escape
+
+Perl now supports C<\N>, a new regex escape which you can think of as
+the inverse of C<\n>. It will match any character that is not a newline,
+independently from the presence or absence of the single line match
+modifier C</s>. It is not usable within a character class.  C<\N{3}>
+means to match 3 non-newlines; C<\N{5,}> means to match at least 5.
+C<\N{NAME}> still means the character or sequence named C<NAME>, but
+C<NAME> no longer can be things like C<3>, or C<5,>.
+
+This will break a L<custom charnames translator|charnames/CUSTOM
+TRANSLATORS> which allows numbers for character names, as C<\N{3}> will
+now mean to match 3 non-newline characters, and not the character whose
+name is C<3>. (No name defined by the Unicode standard is a number,
+so only custom translators might be affected.)
+
+Perl's developers are somewhat concerned about possible user confusion
+with the existing C<\N{...}> construct which matches characters by their
+Unicode name. Consequently, this feature is experimental. We may remove
+it or change it in a backwards-incompatible way in Perl 5.14.
+
+=head2 DTrace support
+
+Perl now has some support for DTrace. See "DTrace support" in F<INSTALL>.
+
+=head2 Support for C<configure_requires> in CPAN module metadata
+
+Both C<CPAN> and C<CPANPLUS> now support the C<configure_requires>
+keyword in the F<META.yml> metadata file included in most recent CPAN
+distributions.  This allows distribution authors to specify configuration
+prerequisites that must be installed before running F<Makefile.PL>
+or F<Build.PL>.
+
+See the documentation for C<ExtUtils::MakeMaker> or C<Module::Build> for
+more on how to specify C<configure_requires> when creating a distribution
+for CPAN.
+
+=head2 C<each>, C<keys>, C<values> are now more flexible
+
+The C<each>, C<keys>, C<values> function can now operate on arrays.
+
+=head2 C<when> as a statement modifier
+
+C<when> is now allowed to be used as a statement modifier.
+
+=head2 C<$,> flexibility
+
+The variable C<$,> may now be tied.
+
+=head2 // in when clauses
+
+// now behaves like || in when clauses
+
+=head2 Enabling warnings from your shell environment
+
+You can now set C<-W> from the C<PERL5OPT> environment variable
+
+=head2 C<delete local>
+
+C<delete local> now allows you to locally delete a hash entry.
+
+=head2 New support for Abstract namespace sockets
+
+Abstract namespace sockets are Linux-specific socket type that live in
+AF_UNIX family, slightly abusing it to be able to use arbitrary
+character arrays as addresses: They start with nul byte and are not
+terminated by nul byte, but with the length passed to the socket()
+system call.
+
+=head2 32-bit limit on substr arguments removed
+
+The 32-bit limit on C<substr> arguments has now been removed. The full
+range of the system's signed and unsigned integers is now available for
+the C<pos> and C<len> arguments.
+
+=head1 Potentially Incompatible Changes
+
+=head2 Deprecations warn by default
+
+Over the years, Perl's developers have deprecated a number of language
+features for a variety of reasons.  Perl now defaults to issuing a
+warning if a deprecated language feature is used. Many of the deprecations
+Perl now warns you about have been deprecated for many years.  You can
+find a list of what was deprecated in a given release of Perl in the
+C<perl5xxdelta.pod> file for that release.
+
+To disable this feature in a given lexical scope, you should use C<no
+warnings 'deprecated';> For information about which language features
+are deprecated and explanations of various deprecation warnings, please
+see L<perldiag>. See L</Deprecations> below for the list of features
+and modules Perl's developers have deprecated as part of this release.
+
+=head2 Version number formats
+
+Acceptable version number formats have been formalized into "strict" and
+"lax" rules. C<package NAME VERSION> takes a strict version number.
+C<UNIVERSAL::VERSION> and the L<version> object constructors take lax
+version numbers. Providing an invalid version will result in a fatal
+error. The version argument in C<use NAME VERSION> is first parsed as a
+numeric literal or v-string and then passed to C<UNIVERSAL::VERSION>
+(and must then pass the "lax" format test).
+
+These formats are documented fully in the L<version> module. To a first
+approximation, a "strict" version number is a positive decimal number
+(integer or decimal-fraction) without exponentiation or else a
+dotted-decimal v-string with a leading 'v' character and at least three
+components. A "lax" version number allows v-strings with fewer than
+three components or without a leading 'v'. Under "lax" rules, both
+decimal and dotted-decimal versions may have a trailing "alpha"
+component separated by an underscore character after a fractional or
+dotted-decimal component.
+
+The L<version> module adds C<version::is_strict> and C<version::is_lax>
+functions to check a scalar against these rules.
+
+=head2 @INC reorganization
+
+In C<@INC>, C<ARCHLIB> and C<PRIVLIB> now occur after the current
+version's C<site_perl> and C<vendor_perl>.  Modules installed into
+C<site_perl> and C<vendor_perl> will now be loaded in preference to
+those installed in C<ARCHLIB> and C<PRIVLIB>.
+
+
+=head2 REGEXPs are now first class
+
+Internally, Perl now treats compiled regular expressions (such as
+those created with C<qr//>) as first class entities. Perl modules which
+serialize, deserialize or otherwise have deep interaction with Perl's
+internal data structures need to be updated for this change.  Most
+affected CPAN modules have already been updated as of this writing.
+
+=head2 Switch statement changes
+
+The C<given>/C<when> switch statement handles complex statements better
+than Perl 5.10.0 did (These enhancements are also available in
+5.10.1 and subsequent 5.10 releases.) There are two new cases where
+C<when> now interprets its argument as a boolean, instead of an
+expression to be used in a smart match:
+
+=over
+
+=item flip-flop operators
+
+The C<..> and C<...> flip-flop operators are now evaluated in boolean
+context, following their usual semantics; see L<perlop/"Range Operators">.
+
+Note that, as in perl 5.10.0, C<when (1..10)> will not work to test
+whether a given value is an integer between 1 and 10; you should use
+C<when ([1..10])> instead (note the array reference).
+
+However, contrary to 5.10.0, evaluating the flip-flop operators in
+boolean context ensures it can now be useful in a C<when()>, notably
+for implementing bistable conditions, like in:
+
+    when (/^=begin/ .. /^=end/) {
+      # do something
+    }
+
+=item defined-or operator
+
+A compound expression involving the defined-or operator, as in
+C<when (expr1 // expr2)>, will be treated as boolean if the first
+expression is boolean. (This just extends the existing rule that applies
+to the regular or operator, as in C<when (expr1 || expr2)>.)
+
+=back
+
+=head2 Smart match changes
+
+Since Perl 5.10.0, Perl's developers have made a number of changes to
+the smart match operator. These, of course, also alter the behaviour
+of the switch statements where smart matching is implicitly used.
+These changes were also made for the 5.10.1 release, and will remain in
+subsequent 5.10 releases.
+
+=head3 Changes to type-based dispatch
+
+The smart match operator C<~~> is no longer commutative. The behaviour of
+a smart match now depends primarily on the type of its right hand
+argument. Moreover, its semantics have been adjusted for greater
+consistency or usefulness in several cases. While the general backwards
+compatibility is maintained, several changes must be noted:
+
+=over 4
+
+=item *
+
+Code references with an empty prototype are no longer treated specially.
+They are passed an argument like the other code references (even if they
+choose to ignore it).
+
+=item *
+
+C<%hash ~~ sub {}> and C<@array ~~ sub {}> now test that the subroutine
+returns a true value for each key of the hash (or element of the
+array), instead of passing the whole hash or array as a reference to
+the subroutine.
+
+=item *
+
+Due to the commutativity breakage, code references are no longer
+treated specially when appearing on the left of the C<~~> operator,
+but like any vulgar scalar.
+
+=item *
+
+C<undef ~~ %hash> is always false (since C<undef> can't be a key in a
+hash). No implicit conversion to C<""> is done (as was the case in perl
+5.10.0).
+
+=item *
+
+C<$scalar ~~ @array> now always distributes the smart match across the
+elements of the array. It's true if one element in @array verifies
+C<$scalar ~~ $element>. This is a generalization of the old behaviour
+that tested whether the array contained the scalar.
+
+=back
+
+The full dispatch table for the smart match operator is given in
+L<perlsyn/"Smart matching in detail">.
+
+=head3 Smart match and overloading
+
+According to the rule of dispatch based on the rightmost argument type,
+when an object overloading C<~~> appears on the right side of the
+operator, the overload routine will always be called (with a 3rd argument
+set to a true value, see L<overload>.) However, when the object will
+appear on the left, the overload routine will be called only when the
+rightmost argument is a simple scalar. This way, distributivity of smart
+match across arrays is not broken, as well as the other behaviours with
+complex types (coderefs, hashes, regexes). Thus, writers of overloading
+routines for smart match mostly need to worry only with comparing
+against a scalar, and possibly with stringification overloading; the
+other common cases will be automatically handled consistently.
+
+C<~~> will now refuse to work on objects that do not overload it (in order
+to avoid relying on the object's underlying structure). (However, if the
+object overloads the stringification or the numification operators, and
+if overload fallback is active, it will be used instead, as usual.)
+
+=head2 Other potentially incompatible changes
+
+=over 4
+
+=item *
+
+The definitions of a number of Unicode properties have changed to match
+those of the current Unicode standard. These are listed above under
+L</Unicode overhaul>. This change may break code that expects the old
+definitions.
+
+=item *
+
+The boolkeys op has moved to the group of hash ops. This breaks binary
+compatibility.
+
+=item *
+
+Filehandles are now always blessed into C<IO::File>.
+
+The previous behaviour was to bless Filehandles into L<FileHandle>
+(an empty proxy class) if it was loaded into memory and otherwise
+to bless them into C<IO::Handle>.
+
+=item *
+
+The semantics of C<use feature :5.10*> have changed slightly.
+See L<"Modules and Pragmata"> for more information.
+
+=item *
+
+Perl's developers now use git, rather than Perforce.  This should be
+a purely internal change only relevant to people actively working on
+the core.  However, you may see minor difference in perl as a consequence
+of the change.  For example in some of details of the output of C<perl
+-V>. See L<perlrepository> for more information.
+
+=item *
+
+As part of the C<Test::Harness> 2.x to 3.x upgrade, the experimental
+C<Test::Harness::Straps> module has been removed.
+See L</"Modules and Pragmata"> for more details.
+
+=item *
+
+As part of the C<ExtUtils::MakeMaker> upgrade, the
+C<ExtUtils::MakeMaker::bytes> and C<ExtUtils::MakeMaker::vmsish> modules
+have been removed from this distribution.
+
+=item *
+
+C<Module::CoreList> no longer contains the C<%:patchlevel> hash.
+
+=item *
+
+C<length undef> now returns undef.
+
+=item *
+
+Unsupported private C API functions are now declared "static" to prevent
+leakage to Perl's public API.
+
+=item *
+
+To support the bootstrapping process, F<miniperl> no longer builds with
+UTF-8 support in the regexp engine.
+
+This allows a build to complete with PERL_UNICODE set and a UTF-8 locale.
+Without this there's a bootstrapping problem, as miniperl can't load
+the UTF-8 components of the regexp engine, because they're not yet built.
+
+=item *
+
+F<miniperl>'s @INC is now restricted to just C<-I...>, the split of
+C<$ENV{PERL5LIB}>, and "C<.>"
+
+=item *
+
+A space or a newline is now required after a C<"#line XXX"> directive.
+
+=item *
+
+Tied filehandles now have an additional method EOF which provides the
+EOF type.
+
+=item *
+
+To better match all other flow control statements, C<foreach> may no
+longer be used as an attribute.
+
+=item *
+
+Perl's command-line switch "-P", which was deprecated in version 5.10.0, has
+now been removed. The CPAN module C<< Filter::cpp >> can be used as an 
+alternative.
+
+=back
+
+
+=head1 Deprecations
+
+From time to time, Perl's developers find it necessary to deprecate
+features or modules we've previously shipped as part of the core
+distribution. We are well aware of the pain and frustration that a
+backwards-incompatible change to Perl can cause for developers building
+or maintaining software in Perl. You can be sure that when we deprecate
+a functionality or syntax, it isn't a choice we make lightly. Sometimes,
+we choose to deprecate functionality or syntax because it was found to
+be poorly designed or implemented. Sometimes, this is because they're
+holding back other features or causing performance problems. Sometimes,
+the reasons are more complex. Wherever possible, we try to keep deprecated
+functionality available to developers in its previous form for at least
+one major release. So long as a deprecated feature isn't actively
+disrupting our ability to maintain and extend Perl, we'll try to leave
+it in place as long as possible.
+
+The following items are now deprecated:
+
+=over
+
+=item suidperl
+
+C<suidperl> is no longer part of Perl. It used to provide a mechanism to
+emulate setuid permission bits on systems that don't support it properly.
+
+=item Use of C<:=> to mean an empty attribute list
+
+An accident of Perl's parser meant that these constructions were all
+equivalent:
+
+    my $pi := 4;
+    my $pi : = 4;
+    my $pi :  = 4;
+
+with the C<:> being treated as the start of an attribute list, which
+ends before the C<=>. As whitespace is not significant here, all are
+parsed as an empty attribute list, hence all the above are equivalent
+to, and better written as
+
+    my $pi = 4;
+
+because no attribute processing is done for an empty list.
+
+As is, this meant that C<:=> cannot be used as a new token, without
+silently changing the meaning of existing code. Hence that particular
+form is now deprecated, and will become a syntax error. If it is
+absolutely necessary to have empty attribute lists (for example,
+because of a code generator) then avoid the warning by adding a space
+before the C<=>.
+
+=item C<< UNIVERSAL->import() >>
+
+The method C<< UNIVERSAL->import() >> is now deprecated. Attempting to
+pass import arguments to a C<use UNIVERSAL> statement will result in a
+deprecation warning.
+
+=item Use of "goto" to jump into a construct
+
+Using C<goto> to jump from an outer scope into an inner scope is now
+deprecated. This rare use case was causing problems in the
+implementation of scopes.
+
+=item Custom character names in \N{name} that don't look like names
+
+In C<\N{I<name>}>, I<name> can be just about anything. The standard
+Unicode names have a very limited domain, but a custom name translator
+could create names that are, for example, made up entirely of punctuation
+symbols. It is now deprecated to make names that don't begin with an
+alphabetic character, and aren't alphanumeric or contain other than
+a very few other characters, namely spaces, dashes, parentheses
+and colons. Because of the added meaning of C<\N> (See L</C<\N>
+experimental regex escape>), names that look like curly brace -enclosed
+quantifiers won't work. For example, C<\N{3,4}> now means to match 3 to
+4 non-newlines; before a custom name C<3,4> could have been created.
+
+=item Deprecated Modules
+
+The following modules will be removed from the core distribution in a
+future release, and should be installed from CPAN instead. Distributions
+on CPAN which require these should add them to their prerequisites. The
+core versions of these modules warnings will issue a deprecation warning.
+
+If you ship a packaged version of Perl, either alone or as part of a
+larger system, then you should carefully consider the repercussions of
+core module deprecations. You may want to consider shipping your default
+build of Perl with packages for some or all deprecated modules which
+install into C<vendor> or C<site> perl library directories. This will
+inhibit the deprecation warnings.
+
+Alternatively, you may want to consider patching F<lib/deprecate.pm>
+to provide deprecation warnings specific to your packaging system
+or distribution of Perl, consistent with how your packaging system
+or distribution manages a staged transition from a release where the
+installation of a single package provides the given functionality, to
+a later release where the system administrator needs to know to install
+multiple packages to get that same functionality.
+
+You can silence these deprecation warnings by installing the modules
+in question from CPAN.  To install the latest version of all of them,
+just install C<Task::Deprecations::5_12>.
+
+=over
+
+=item L<Class::ISA>
+
+=item L<Pod::Plainer>
+
+=item L<Shell>
+
+=item L<Switch>
+
+Switch is buggy and should be avoided. You may find Perl's new
+C<given>/C<when> feature a suitable replacement.  See L<perlsyn/"Switch
+statements"> for more information.
+
+=back
+
+=item Assignment to $[
+
+=item Use of the attribute :locked on subroutines
+
+=item Use of "locked" with the attributes pragma
+
+=item Use of "unique" with the attributes pragma
+
+=item Perl_pmflag
+
+C<Perl_pmflag> is no longer part of Perl's public API. Calling it now
+generates a deprecation warning, and it will be removed in a future
+release. Although listed as part of the API, it was never documented,
+and only ever used in F<toke.c>, and prior to 5.10, F<regcomp.c>. In
+core, it has been replaced by a static function.
+
+=item Numerous Perl 4-era libraries
+
+F<termcap.pl>, F<tainted.pl>, F<stat.pl>, F<shellwords.pl>, F<pwd.pl>,
+F<open3.pl>, F<open2.pl>, F<newgetopt.pl>, F<look.pl>, F<find.pl>,
+F<finddepth.pl>, F<importenv.pl>, F<hostname.pl>, F<getopts.pl>,
+F<getopt.pl>, F<getcwd.pl>, F<flush.pl>, F<fastcwd.pl>, F<exceptions.pl>,
+F<ctime.pl>, F<complete.pl>, F<cacheout.pl>, F<bigrat.pl>, F<bigint.pl>,
+F<bigfloat.pl>, F<assert.pl>, F<abbrev.pl>, F<dotsh.pl>, and
+F<timelocal.pl> are all now deprecated.  Earlier, Perl's developers
+intended to remove these libraries from Perl's core for the 5.14.0 release.
+
+During final testing before the release of 5.12.0, several developers
+discovered current production code using these ancient libraries, some
+inside the Perl core itself.  Accordingly, the pumpking granted them
+a stay of execution. They will begin to warn about their deprecation
+in the 5.14.0 release and will be removed in the 5.16.0 release.
+
+
+=back
+
+=head1 Unicode overhaul
+
+Perl's developers have made a concerted effort to update Perl to be in
+sync with the latest Unicode standard. Changes for this include:
+
+Perl can now handle every Unicode character property. New documentation,
+L<perluniprops>, lists all available non-Unihan character properties. By
+default, perl does not expose Unihan, deprecated or Unicode-internal
+properties.  See below for more details on these; there is also a section
+in the pod listing them, and explaining why they are not exposed.
+
+Perl now fully supports the Unicode compound-style of using C<=>
+and C<:> in writing regular expressions: C<\p{property=value}> and
+C<\p{property:value}> (both of which mean the same thing).
+
+Perl now fully supports the Unicode loose matching rules for text between
+the braces in C<\p{...}> constructs. In addition, Perl allows underscores
+between digits of numbers.
+
+Perl now accepts all the Unicode-defined synonyms for properties and
+property values.
+
+C<qr/\X/>, which matches a Unicode logical character, has
+been expanded to work better with various Asian languages. It
+now is defined as an I<extended grapheme cluster>. (See
+L<http://www.unicode.org/reports/tr29/>).  Anything matched previously
+and that made sense will continue to be accepted.   Additionally:
+
+=over
+
+=item *
+
+C<\X> will not break apart a C<S<CR LF>> sequence.
+
+=item *
+
+C<\X> will now match a sequence which includes the C<ZWJ> and C<ZWNJ>
+characters.
+
+=item *
+
+C<\X> will now always match at least one character, including an initial
+mark.  Marks generally come after a base character, but it is possible in
+Unicode to have them in isolation, and C<\X> will now handle that case,
+for example at the beginning of a line, or after a C<ZWSP>. And this is
+the part where C<\X> doesn't match the things that it used to that don't
+make sense. Formerly, for example, you could have the nonsensical case
+of an accented LF.
+
+=item *
+
+C<\X> will now match a (Korean) Hangul syllable sequence, and the Thai
+and Lao exception cases.
+
+=back
+
+Otherwise, this change should be transparent for the non-affected
+languages.
+
+C<\p{...}> matches using the Canonical_Combining_Class property were
+completely broken in previous releases of Perl.  They should now work
+correctly.
+
+Before Perl 5.12, the Unicode C<Decomposition_Type=Compat> property
+and a Perl extension had the same name, which led to neither matching
+all the correct values (with more than 100 mistakes in one, and several
+thousand in the other). The Perl extension has now been renamed to be
+C<Decomposition_Type=Noncanonical> (short: C<dt=noncanon>). It has the
+same meaning as was previously intended, namely the union of all the
+non-canonical Decomposition types, with Unicode C<Compat> being just
+one of those.
+
+C<\p{Decomposition_Type=Canonical}> now includes the Hangul syllables.
+
+C<\p{Uppercase}> and C<\p{Lowercase}> now work as the Unicode standard
+says they should.  This means they each match a few more characters than
+they used to.
+
+C<\p{Cntrl}> now matches the same characters as C<\p{Control}>. This
+means it no longer will match Private Use (gc=co), Surrogates (gc=cs),
+nor Format (gc=cf) code points. The Format code points represent the
+biggest possible problem. All but 36 of them are either officially
+deprecated or strongly discouraged from being used. Of those 36, likely
+the most widely used are the soft hyphen (U+00AD), and BOM, ZWSP, ZWNJ,
+WJ, and similar characters, plus bidirectional controls.
+
+C<\p{Alpha}> now matches the same characters as C<\p{Alphabetic}>. Before
+5.12, Perl's definition included a number of things that aren't
+really alpha (all marks) while omitting many that were. The definitions
+of C<\p{Alnum}> and C<\p{Word}> depend on Alpha's definition and have
+changed accordingly.
+
+C<\p{Word}> no longer incorrectly matches non-word characters such
+as fractions.
+
+C<\p{Print}> no longer matches the line control characters: Tab, LF,
+CR, FF, VT, and NEL. This brings it in line with standards and the
+documentation.
+
+C<\p{XDigit}> now matches the same characters as C<\p{Hex_Digit}>. This
+means that in addition to the characters it currently matches,
+C<[A-Fa-f0-9]>, it will also match the 22 fullwidth equivalents, for
+example U+FF10: FULLWIDTH DIGIT ZERO.
+
+The Numeric type property has been extended to include the Unihan
+characters.
+
+There is a new Perl extension, the 'Present_In', or simply 'In',
+property. This is an extension of the Unicode Age property, but
+C<\p{In=5.0}> matches any code point whose usage has been determined
+I<as of> Unicode version 5.0. The C<\p{Age=5.0}> only matches code points
+added in I<precisely> version 5.0.
+
+A number of properties now have the correct values for unassigned
+code points. The affected properties are Bidi_Class, East_Asian_Width,
+Joining_Type, Decomposition_Type, Hangul_Syllable_Type, Numeric_Type,
+and Line_Break.
+
+The Default_Ignorable_Code_Point, ID_Continue, and ID_Start properties
+are now up to date with current Unicode definitions.
+
+Earlier versions of Perl erroneously exposed certain properties that
+are supposed to be Unicode internal-only.  Use of these in regular
+expressions will now generate, if enabled, a deprecation warning message.
+The properties are: Other_Alphabetic, Other_Default_Ignorable_Code_Point,
+Other_Grapheme_Extend, Other_ID_Continue, Other_ID_Start, Other_Lowercase,
+Other_Math, and Other_Uppercase.
+
+It is now possible to change which Unicode properties Perl understands
+on a per-installation basis. As mentioned above, certain properties
+are turned off by default.  These include all the Unihan properties
+(which should be accessible via the CPAN module Unicode::Unihan) and any
+deprecated or Unicode internal-only property that Perl has never exposed.
+
+The generated files in the C<lib/unicore/To> directory are now more
+clearly marked as being stable, directly usable by applications.  New hash
+entries in them give the format of the normal entries, which allows for
+easier machine parsing. Perl can generate files in this directory for
+any property, though most are suppressed.  You can find instructions
+for changing which are written in L<perluniprops>.
+
+=head1 Modules and Pragmata
+
+=head2 New Modules and Pragmata
+
+=over 4
+
+=item C<autodie>
+
+C<autodie> is a new lexically-scoped alternative for the C<Fatal> module.
+The bundled version is 2.06_01. Note that in this release, using a string
+eval when C<autodie> is in effect can cause the autodie behaviour to leak
+into the surrounding scope. See L<autodie/"BUGS"> for more details.
+
+Version 2.06_01 has been added to the Perl core.
+
+=item C<Compress::Raw::Bzip2>
+
+Version 2.024 has been added to the Perl core.
+
+=item C<overloading>
+
+C<overloading> allows you to lexically disable or enable overloading
+for some or all operations.
+
+Version 0.001 has been added to the Perl core.
+
+=item C<parent>
+
+C<parent> establishes an ISA relationship with base classes at compile
+time. It provides the key feature of C<base> without further unwanted
+behaviors.
+
+Version 0.223 has been added to the Perl core.
+
+=item C<Parse::CPAN::Meta>
+
+Version 1.40 has been added to the Perl core.
+
+=item C<VMS::DCLsym>
+
+Version 1.03 has been added to the Perl core.
+
+=item C<VMS::Stdio>
+
+Version 2.4 has been added to the Perl core.
+
+=item C<XS::APItest::KeywordRPN>
+
+Version 0.003 has been added to the Perl core.
+
+=back
+
+=head2 Updated Pragmata
+
+=over 4
+
+=item C<base>
+
+Upgraded from version 2.13 to 2.15.
+
+=item C<bignum>
+
+Upgraded from version 0.22 to 0.23.
+
+=item C<charnames>
+
+C<charnames> now contains the Unicode F<NameAliases.txt> database file.
+This has the effect of adding some extra C<\N> character names that
+formerly wouldn't have been recognised; for example, C<"\N{LATIN CAPITAL
+LETTER GHA}">.
+
+Upgraded from version 1.06 to 1.07.
+
+=item C<constant>
+
+Upgraded from version 1.13 to 1.20.
+
+=item C<diagnostics>
+
+C<diagnostics> now supports %.0f formatting internally.
+
+C<diagnostics> no longer suppresses C<Use of uninitialized value in range
+(or flip)> warnings. [perl #71204]
+
+Upgraded from version 1.17 to 1.19.
+
+=item C<feature>
+
+In C<feature>, the meaning of the C<:5.10> and C<:5.10.X> feature
+bundles has changed slightly. The last component, if any (i.e. C<X>) is
+simply ignored.  This is predicated on the assumption that new features
+will not, in general, be added to maintenance releases. So C<:5.10>
+and C<:5.10.X> have identical effect. This is a change to the behaviour
+documented for 5.10.0.
+
+C<feature> now includes the C<unicode_strings> feature:
+
+    use feature "unicode_strings";
+
+This pragma turns on Unicode semantics for the case-changing operations
+(C<uc>, C<lc>, C<ucfirst>, C<lcfirst>) on strings that don't have the
+internal UTF-8 flag set, but that contain single-byte characters between
+128 and 255.
+
+Upgraded from version 1.11 to 1.16.
+
+=item C<less>
+
+C<less> now includes the C<stash_name> method to allow subclasses of
+C<less> to pick where in %^H to store their stash.
+
+Upgraded from version 0.02 to 0.03.
+
+=item C<lib>
+
+Upgraded from version 0.5565 to 0.62.
+
+=item C<mro>
+
+C<mro> is now implemented as an XS extension. The documented interface has
+not changed. Code relying on the implementation detail that some C<mro::>
+methods happened to be available at all times gets to "keep both pieces".
+
+Upgraded from version 1.00 to 1.02.
+
+=item C<overload>
+
+C<overload> now allow overloading of 'qr'.
+
+Upgraded from version 1.06 to 1.10.
+
+=item C<threads>
+
+Upgraded from version 1.67 to 1.75.
+
+=item C<threads::shared>
+
+Upgraded from version 1.14 to 1.32.
+
+=item C<version>
+
+C<version> now has support for L</Version number formats> as described
+earlier in this document and in its own documentation.
+
+Upgraded from version 0.74 to 0.82.
+
+=item C<warnings>
+
+C<warnings> has a new C<warnings::fatal_enabled()> function.  It also
+includes a new C<illegalproto> warning category. See also L</New or
+Changed Diagnostics> for this change.
+
+Upgraded from version 1.06 to 1.09.
+
+=back
+
+=head2 Updated Modules
+
+=over 4
+
+=item C<Archive::Extract>
+
+Upgraded from version 0.24 to 0.38.
+
+=item C<Archive::Tar>
+
+Upgraded from version 1.38 to 1.54.
+
+=item C<Attribute::Handlers>
+
+Upgraded from version 0.79 to 0.87.
+
+=item C<AutoLoader>
+
+Upgraded from version 5.63 to 5.70.
+
+=item C<B::Concise>
+
+Upgraded from version 0.74 to 0.78.
+
+=item C<B::Debug>
+
+Upgraded from version 1.05 to 1.12.
+
+=item C<B::Deparse>
+
+Upgraded from version 0.83 to 0.96.
+
+=item C<B::Lint>
+
+Upgraded from version 1.09 to 1.11_01.
+
+=item C<CGI>
+
+Upgraded from version 3.29 to 3.48.
+
+=item C<Class::ISA>
+
+Upgraded from version 0.33 to 0.36.
+
+NOTE: C<Class::ISA> is deprecated and may be removed from a future
+version of Perl.
+
+=item C<Compress::Raw::Zlib>
+
+Upgraded from version 2.008 to 2.024.
+
+=item C<CPAN>
+
+Upgraded from version 1.9205 to 1.94_56.
+
+=item C<CPANPLUS>
+
+Upgraded from version 0.84 to 0.90.
+
+=item C<CPANPLUS::Dist::Build>
+
+Upgraded from version 0.06_02 to 0.46.
+
+=item C<Data::Dumper>
+
+Upgraded from version 2.121_14 to 2.125.
+
+=item C<DB_File>
+
+Upgraded from version 1.816_1 to 1.820.
+
+=item C<Devel::PPPort>
+
+Upgraded from version 3.13 to 3.19.
+
+=item C<Digest>
+
+Upgraded from version 1.15 to 1.16.
+
+=item C<Digest::MD5>
+
+Upgraded from version 2.36_01 to 2.39.
+
+=item C<Digest::SHA>
+
+Upgraded from version 5.45 to 5.47.
+
+=item C<Encode>
+
+Upgraded from version 2.23 to 2.39.
+
+=item C<Exporter>
+
+Upgraded from version 5.62 to 5.64_01.
+
+=item C<ExtUtils::CBuilder>
+
+Upgraded from version 0.21 to 0.27.
+
+=item C<ExtUtils::Command>
+
+Upgraded from version 1.13 to 1.16.
+
+=item C<ExtUtils::Constant>
+
+Upgraded from version 0.2 to 0.22.
+
+=item C<ExtUtils::Install>
+
+Upgraded from version 1.44 to 1.55.
+
+=item C<ExtUtils::MakeMaker>
+
+Upgraded from version 6.42 to 6.56.
+
+=item C<ExtUtils::Manifest>
+
+Upgraded from version 1.51_01 to 1.57.
+
+=item C<ExtUtils::ParseXS>
+
+Upgraded from version 2.18_02 to 2.21.
+
+=item C<File::Fetch>
+
+Upgraded from version 0.14 to 0.24.
+
+=item C<File::Path>
+
+Upgraded from version 2.04 to 2.08_01.
+
+=item C<File::Temp>
+
+Upgraded from version 0.18 to 0.22.
+
+=item C<Filter::Simple>
+
+Upgraded from version 0.82 to 0.84.
+
+=item C<Filter::Util::Call>
+
+Upgraded from version 1.07 to 1.08.
+
+=item C<Getopt::Long>
+
+Upgraded from version 2.37 to 2.38.
+
+=item C<IO>
+
+Upgraded from version 1.23_01 to 1.25_02.
+
+=item C<IO::Zlib>
+
+Upgraded from version 1.07 to 1.10.
+
+=item C<IPC::Cmd>
+
+Upgraded from version 0.40_1 to 0.54.
+
+=item C<IPC::SysV>
+
+Upgraded from version 1.05 to 2.01.
+
+=item C<Locale::Maketext>
+
+Upgraded from version 1.12 to 1.14.
+
+=item C<Locale::Maketext::Simple>
+
+Upgraded from version 0.18 to 0.21.
+
+=item C<Log::Message>
+
+Upgraded from version 0.01 to 0.02.
+
+=item C<Log::Message::Simple>
+
+Upgraded from version 0.04 to 0.06.
+
+=item C<Math::BigInt>
+
+Upgraded from version 1.88 to 1.89_01.
+
+=item C<Math::BigInt::FastCalc>
+
+Upgraded from version 0.16 to 0.19.
+
+=item C<Math::BigRat>
+
+Upgraded from version 0.21 to 0.24.
+
+=item C<Math::Complex>
+
+Upgraded from version 1.37 to 1.56.
+
+=item C<Memoize>
+
+Upgraded from version 1.01_02 to 1.01_03.
+
+=item C<MIME::Base64>
+
+Upgraded from version 3.07_01 to 3.08.
+
+=item C<Module::Build>
+
+Upgraded from version 0.2808_01 to 0.3603.
+
+=item C<Module::CoreList>
+
+Upgraded from version 2.12 to 2.29.
+
+=item C<Module::Load>
+
+Upgraded from version 0.12 to 0.16.
+
+=item C<Module::Load::Conditional>
+
+Upgraded from version 0.22 to 0.34.
+
+=item C<Module::Loaded>
+
+Upgraded from version 0.01 to 0.06.
+
+=item C<Module::Pluggable>
+
+Upgraded from version 3.6 to 3.9.
+
+=item C<Net::Ping>
+
+Upgraded from version 2.33 to 2.36.
+
+=item C<NEXT>
+
+Upgraded from version 0.60_01 to 0.64.
+
+=item C<Object::Accessor>
+
+Upgraded from version 0.32 to 0.36.
+
+=item C<Package::Constants>
+
+Upgraded from version 0.01 to 0.02.
+
+=item C<PerlIO>
+
+Upgraded from version 1.04 to 1.06.
+
+=item C<Pod::Parser>
+
+Upgraded from version 1.35 to 1.37.
+
+=item C<Pod::Perldoc>
+
+Upgraded from version 3.14_02 to 3.15_02.
+
+=item C<Pod::Plainer>
+
+Upgraded from version 0.01 to 1.02.
+
+NOTE: C<Pod::Plainer> is deprecated and may be removed from a future
+version of Perl.
+
+=item C<Pod::Simple>
+
+Upgraded from version 3.05 to 3.13.
+
+=item C<Safe>
+
+Upgraded from version 2.12 to 2.22.
+
+=item C<SelfLoader>
+
+Upgraded from version 1.11 to 1.17.
+
+=item C<Storable>
+
+Upgraded from version 2.18 to 2.22.
+
+=item C<Switch>
+
+Upgraded from version 2.13 to 2.16.
+
+NOTE: C<Switch> is deprecated and may be removed from a future version
+of Perl.
+
+=item C<Sys::Syslog>
+
+Upgraded from version 0.22 to 0.27.
+
+=item C<Term::ANSIColor>
+
+Upgraded from version 1.12 to 2.02.
+
+=item C<Term::UI>
+
+Upgraded from version 0.18 to 0.20.
+
+=item C<Test>
+
+Upgraded from version 1.25 to 1.25_02.
+
+=item C<Test::Harness>
+
+Upgraded from version 2.64 to 3.17.
+
+=item C<Test::Simple>
+
+Upgraded from version 0.72 to 0.94.
+
+=item C<Text::Balanced>
+
+Upgraded from version 2.0.0 to 2.02.
+
+=item C<Text::ParseWords>
+
+Upgraded from version 3.26 to 3.27.
+
+=item C<Text::Soundex>
+
+Upgraded from version 3.03 to 3.03_01.
+
+=item C<Thread::Queue>
+
+Upgraded from version 2.00 to 2.11.
+
+=item C<Thread::Semaphore>
+
+Upgraded from version 2.01 to 2.09.
+
+=item C<Tie::RefHash>
+
+Upgraded from version 1.37 to 1.38.
+
+=item C<Time::HiRes>
+
+Upgraded from version 1.9711 to 1.9719.
+
+=item C<Time::Local>
+
+Upgraded from version 1.18 to 1.1901_01.
+
+=item C<Time::Piece>
+
+Upgraded from version 1.12 to 1.15.
+
+=item C<Unicode::Collate>
+
+Upgraded from version 0.52 to 0.52_01.
+
+=item C<Unicode::Normalize>
+
+Upgraded from version 1.02 to 1.03.
+
+=item C<Win32>
+
+Upgraded from version 0.34 to 0.39.
+
+=item C<Win32API::File>
+
+Upgraded from version 0.1001_01 to 0.1101.
+
+=item C<XSLoader>
+
+Upgraded from version 0.08 to 0.10.
+
+=back
+
+=head2 Removed Modules and Pragmata
+
+=over 4
+
+=item C<attrs>
+
+Removed from the Perl core.  Prior version was 1.02.
+
+=item C<CPAN::API::HOWTO>
+
+Removed from the Perl core.  Prior version was 'undef'.
+
+=item C<CPAN::DeferedCode>
+
+Removed from the Perl core.  Prior version was 5.50.
+
+=item C<CPANPLUS::inc>
+
+Removed from the Perl core.  Prior version was 'undef'.
+
+=item C<DCLsym>
+
+Removed from the Perl core.  Prior version was 1.03.
+
+=item C<ExtUtils::MakeMaker::bytes>
+
+Removed from the Perl core.  Prior version was 6.42.
+
+=item C<ExtUtils::MakeMaker::vmsish>
+
+Removed from the Perl core.  Prior version was 6.42.
+
+=item C<Stdio>
+
+Removed from the Perl core.  Prior version was 2.3.
+
+=item C<Test::Harness::Assert>
+
+Removed from the Perl core.  Prior version was 0.02.
+
+=item C<Test::Harness::Iterator>
+
+Removed from the Perl core.  Prior version was 0.02.
+
+=item C<Test::Harness::Point>
+
+Removed from the Perl core.  Prior version was 0.01.
+
+=item C<Test::Harness::Results>
+
+Removed from the Perl core.  Prior version was 0.01.
+
+=item C<Test::Harness::Straps>
+
+Removed from the Perl core.  Prior version was 0.26_01.
+
+=item C<Test::Harness::Util>
+
+Removed from the Perl core.  Prior version was 0.01.
+
+=item C<XSSymSet>
+
+Removed from the Perl core.  Prior version was 1.1.
+
+=back
+
+=head2 Deprecated Modules and Pragmata
+
+See L</Deprecated Modules> above.
+
+
+=head1 Documentation
+
+=head2 New Documentation
+
+=over 4
+
+=item *
+
+L<perlhaiku> contains instructions on how to build perl for the Haiku
+platform.
+
+=item *
+
+L<perlmroapi> describes the new interface for pluggable Method Resolution
+Orders.
+
+=item *
+
+L<perlperf>, by Richard Foley, provides an introduction to the use of
+performance and optimization techniques which can be used with particular
+reference to perl programs.
+
+=item *
+
+L<perlrepository> describes how to access the perl source using the I<git>
+version control system.
+
+=item *
+
+L<perlpolicy> extends the "Social contract about contributed modules" into
+the beginnings of a document on Perl porting policies.
+
+=back
+
+=head2 Changes to Existing Documentation
+
+
+=over
+
+=item *
+
+The various large F<Changes*> files (which listed every change made
+to perl over the last 18 years) have been removed, and replaced by a
+small file, also called F<Changes>, which just explains how that same
+information may be extracted from the git version control system.
+
+=item *
+
+F<Porting/patching.pod> has been deleted, as it mainly described
+interacting with the old Perforce-based repository, which is now obsolete.
+Information still relevant has been moved to L<perlrepository>.
+
+=item *
+
+The syntax C<unless (EXPR) BLOCK else BLOCK> is now documented as valid,
+as is the syntax C<unless (EXPR) BLOCK elsif (EXPR) BLOCK ... else
+BLOCK>, although actually using the latter may not be the best idea for
+the readability of your source code.
+
+=item *
+
+Documented -X overloading.
+
+=item *
+
+Documented that C<when()> treats specially most of the filetest operators
+
+=item *
+
+Documented C<when> as a syntax modifier.
+
+=item *
+
+Eliminated "Old Perl threads tutorial", which described 5005 threads.
+
+F<pod/perlthrtut.pod> is the same material reworked for ithreads.
+
+=item *
+
+Correct previous documentation: v-strings are not deprecated
+
+With version objects, we need them to use MODULE VERSION syntax. This
+patch removes the deprecation notice.
+
+=item *
+
+Security contact information is now part of L<perlsec>.
+
+=item *
+
+A significant fraction of the core documentation has been updated to
+clarify the behavior of Perl's Unicode handling.
+
+Much of the remaining core documentation has been reviewed and edited
+for clarity, consistent use of language, and to fix the spelling of Tom
+Christiansen's name.
+
+=item *
+
+The Pod specification (L<perlpodspec>) has been updated to bring the
+specification in line with modern usage already supported by most Pod
+systems. A parameter string may now follow the format name in a
+"begin/end" region. Links to URIs with a text description are now
+allowed. The usage of C<LE<lt>"section"E<gt>> has been marked as
+deprecated.
+
+=item *
+
+L<if.pm|if> has been documented in L<perlfunc/use> as a means to get
+conditional loading of modules despite the implicit BEGIN block around
+C<use>.
+
+=item *
+
+The documentation for C<$1> in perlvar.pod has been clarified.
+
+=item *
+
+C<\N{U+I<code point>}> is now documented.
+
+=back
+
+=head1 Selected Performance Enhancements
+
+=over 4
+
+=item *
+
+A new internal cache means that C<isa()> will often be faster.
+
+=item *
+
+The implementation of C<C3> Method Resolution Order has been
+optimised - linearisation for classes with single inheritance is 40%
+faster. Performance for multiple inheritance is unchanged.
+
+=item *
+
+Under C<use locale>, the locale-relevant information is now cached on
+read-only values, such as the list returned by C<keys %hash>. This makes
+operations such as C<sort keys %hash> in the scope of C<use locale>
+much faster.
+
+=item *
+
+Empty C<DESTROY> methods are no longer called.
+
+=item *
+
+C<Perl_sv_utf8_upgrade()> is now faster.
+
+=item *
+
+C<keys> on empty hash is now faster.
+
+=item *
+
+C<if (%foo)> has been optimized to be faster than C<if (keys %foo)>.
+
+=item *
+
+The string repetition operator (C<$str x $num>) is now several times
+faster when C<$str> has length one or C<$num> is large.
+
+=item *
+
+Reversing an array to itself (as in C<@a = reverse @a>) in void context
+now happens in-place and is several orders of magnitude faster than
+it used to be. It will also preserve non-existent elements whenever
+possible, i.e. for non magical arrays or tied arrays with C<EXISTS>
+and C<DELETE> methods.
+
+=back
+
+=head1 Installation and Configuration Improvements
+
+=over 4
+
+=item *
+
+L<perlapi>, L<perlintern>, L<perlmodlib> and L<perltoc> are now all
+generated at build time, rather than being shipped as part of the release.
+
+=item *
+
+If C<vendorlib> and C<vendorarch> are the same, then they are only added
+to C<@INC> once.
+
+=item *
+
+C<$Config{usedevel}> and the C-level C<PERL_USE_DEVEL> are now defined if
+perl is built with  C<-Dusedevel>.
+
+=item *
+
+F<Configure> will enable use of C<-fstack-protector>, to provide protection
+against stack-smashing attacks, if the compiler supports it.
+
+=item *
+
+F<Configure> will now determine the correct prototypes for re-entrant
+functions and for C<gconvert> if you are using a C++ compiler rather
+than a C compiler.
+
+=item *
+
+On Unix, if you build from a tree containing a git repository, the
+configuration process will note the commit hash you have checked out, for
+display in the output of C<perl -v> and C<perl -V>. Unpushed local commits
+are automatically added to the list of local patches displayed by
+C<perl -V>.
+
+=item *
+
+Perl now supports SystemTap's C<dtrace> compatibility layer and an
+issue with linking C<miniperl> has been fixed in the process.
+
+=item *
+
+perldoc now uses C<less -R> instead of C<less> for improved behaviour
+in the face of C<groff>'s new usage of ANSI escape codes.
+
+=item *
+
+
+C<perl -V> now reports use of the compile-time options C<USE_PERL_ATOF> and
+C<USE_ATTRIBUTES_FOR_PERLIO>.
+
+=item *
+
+As part of the flattening of F<ext>, all extensions on all platforms are
+built by F<make_ext.pl>. This replaces the Unix-specific
+F<ext/util/make_ext>, VMS-specific F<make_ext.com> and Win32-specific
+F<win32/buildext.pl>.
+
+=back
+
+=head1 Internal Changes
+
+Each release of Perl sees numerous internal changes which shouldn't
+affect day to day usage but may still be notable for developers working
+with Perl's source code.
+
+=over
+
+=item *
+
+The J.R.R. Tolkien quotes at the head of C source file have been checked
+and proper citations added, thanks to a patch from Tom Christiansen.
+
+=item *
+
+The internal structure of the dual-life modules traditionally found in
+the F<lib/> and F<ext/> directories in the perl source has changed
+significantly. Where possible, dual-lifed modules have been extracted
+from F<lib/> and F<ext/>.
+
+Dual-lifed modules maintained by Perl's developers as part of the Perl
+core now live in F<dist/>.  Dual-lifed modules maintained primarily on
+CPAN now live in F<cpan/>.  When reporting a bug in a module located
+under F<cpan/>, please send your bug report directly to the module's
+bug tracker or author, rather than Perl's bug tracker.
+
+=item *
+
+C<\N{...}> now compiles better, always forces UTF-8 internal representation
+
+Perl's developers have fixed several problems with the recognition of
+C<\N{...}> constructs.  As part of this, perl will store any scalar
+or regex containing C<\N{I<name>}> or C<\N{U+I<code point>}> in its
+definition in UTF-8 format. (This was true previously for all occurrences
+of C<\N{I<name>}> that did not use a custom translator, but now it's
+always true.)
+
+=item *
+
+Perl_magic_setmglob now knows about globs, fixing RT #71254.
+
+=item *
+
+C<SVt_RV> no longer exists. RVs are now stored in IVs.
+
+=item *
+
+C<Perl_vcroak()> now accepts a null first argument. In addition, a full
+audit was made of the "not NULL" compiler annotations, and those for
+several other internal functions were corrected.
+
+=item *
+
+New macros C<dSAVEDERRNO>, C<dSAVE_ERRNO>, C<SAVE_ERRNO>, C<RESTORE_ERRNO>
+have been added to formalise the temporary saving of the C<errno>
+variable.
+
+=item *
+
+The function C<Perl_sv_insert_flags> has been added to augment
+C<Perl_sv_insert>.
+
+=item *
+
+The function C<Perl_newSV_type(type)> has been added, equivalent to
+C<Perl_newSV()> followed by C<Perl_sv_upgrade(type)>.
+
+=item *
+
+The function C<Perl_newSVpvn_flags()> has been added, equivalent to
+C<Perl_newSVpvn()> and then performing the action relevant to the flag.
+
+Two flag bits are currently supported.
+
+=over 4
+
+=item *
+
+C<SVf_UTF8> will call C<SvUTF8_on()> for you. (Note that this does
+not convert an sequence of ISO 8859-1 characters to UTF-8). A wrapper,
+C<newSVpvn_utf8()> is available for this.
+
+=item *
+
+C<SVs_TEMP> now calls C<Perl_sv_2mortal()> on the new SV.
+
+=back
+
+There is also a wrapper that takes constant strings, C<newSVpvs_flags()>.
+
+=item *
+
+The function C<Perl_croak_xs_usage> has been added as a wrapper to
+C<Perl_croak>.
+
+=item *
+
+Perl now exports the functions C<PerlIO_find_layer> and C<PerlIO_list_alloc>.
+
+=item *
+
+C<PL_na> has been exterminated from the core code, replaced by local
+STRLEN temporaries, or C<*_nolen()> calls. Either approach is faster than
+C<PL_na>, which is a pointer dereference into the interpreter structure
+under ithreads, and a global variable otherwise.
+
+=item *
+
+C<Perl_mg_free()> used to leave freed memory accessible via C<SvMAGIC()>
+on the scalar. It now updates the linked list to remove each piece of
+magic as it is freed.
+
+=item *
+
+Under ithreads, the regex in C<PL_reg_curpm> is now reference
+counted. This eliminates a lot of hackish workarounds to cope with it
+not being reference counted.
+
+=item *
+
+C<Perl_mg_magical()> would sometimes incorrectly turn on C<SvRMAGICAL()>.
+This has been fixed.
+
+=item *
+
+The I<public> IV and NV flags are now not set if the string value has
+trailing "garbage". This behaviour is consistent with not setting the
+public IV or NV flags if the value is out of range for the type.
+
+=item *
+
+Uses of C<Nullav>, C<Nullcv>, C<Nullhv>, C<Nullop>, C<Nullsv> etc have
+been replaced by C<NULL> in the core code, and non-dual-life modules,
+as C<NULL> is clearer to those unfamiliar with the core code.
+
+=item *
+
+A macro C<MUTABLE_PTR(p)> has been added, which on (non-pedantic) gcc will
+not cast away C<const>, returning a C<void *>. Macros C<MUTABLE_SV(av)>,
+C<MUTABLE_SV(cv)> etc build on this, casting to C<AV *> etc without
+casting away C<const>. This allows proper compile-time auditing of
+C<const> correctness in the core, and helped picked up some errors
+(now fixed).
+
+=item *
+
+Macros C<mPUSHs()> and C<mXPUSHs()> have been added, for pushing SVs on the
+stack and mortalizing them.
+
+=item *
+
+Use of the private structure C<mro_meta> has changed slightly. Nothing
+outside the core should be accessing this directly anyway.
+
+=item *
+
+A new tool, F<Porting/expand-macro.pl> has been added, that allows you
+to view how a C preprocessor macro would be expanded when compiled.
+This is handy when trying to decode the macro hell that is the perl
+guts.
+
+=back
+
+=head1 Testing
+
+=head2 Testing improvements
+
+=over 4
+
+=item Parallel tests
+
+The core distribution can now run its regression tests in parallel on
+Unix-like platforms. Instead of running C<make test>, set C<TEST_JOBS> in
+your environment to the number of tests to run in parallel, and run
+C<make test_harness>. On a Bourne-like shell, this can be done as
+
+    TEST_JOBS=3 make test_harness  # Run 3 tests in parallel
+
+An environment variable is used, rather than parallel make itself, because
+L<TAP::Harness> needs to be able to schedule individual non-conflicting test
+scripts itself, and there is no standard interface to C<make> utilities to
+interact with their job schedulers.
+
+Note that currently some test scripts may fail when run in parallel (most
+notably C<ext/IO/t/io_dir.t>). If necessary run just the failing scripts
+again sequentially and see if the failures go away.
+
+=item Test harness flexibility
+
+It's now possible to override C<PERL5OPT> and friends in F<t/TEST>
+
+=item Test watchdog
+
+Several tests that have the potential to hang forever if they fail now
+incorporate a "watchdog" functionality that will kill them after a timeout,
+which helps ensure that C<make test> and C<make test_harness> run to
+completion automatically.
+
+
+=back
+
+=head2 New Tests
+
+Perl's developers have added a number of new tests to the core.
+In addition to the items listed below, many modules updated from CPAN
+incorporate new tests.
+
+=over 4
+
+=item *
+
+Significant cleanups to core tests to ensure that language and
+interpreter features are not used before they're tested.
+
+=item *
+
+C<make test_porting> now runs a number of important pre-commit checks
+which might be of use to anyone working on the Perl core.
+
+=item *
+
+F<t/porting/podcheck.t> automatically checks the well-formedness of
+POD found in all .pl, .pm and .pod files in the F<MANIFEST>, other than in
+dual-lifed modules which are primarily maintained outside the Perl core.
+
+=item *
+
+F<t/porting/manifest.t> now tests that all files listed in MANIFEST
+are present.
+
+=item *
+
+F<t/op/while_readdir.t> tests that a bare readdir in while loop sets $_.
+
+=item *
+
+F<t/comp/retainedlines.t> checks that the debugger can retain source
+lines from C<eval>.
+
+=item *
+
+F<t/io/perlio_fail.t> checks that bad layers fail.
+
+=item *
+
+F<t/io/perlio_leaks.t> checks that PerlIO layers are not leaking.
+
+=item *
+
+F<t/io/perlio_open.t> checks that certain special forms of open work.
+
+=item *
+
+F<t/io/perlio.t> includes general PerlIO tests.
+
+=item *
+
+F<t/io/pvbm.t> checks that there is no unexpected interaction between
+the internal types C<PVBM> and C<PVGV>.
+
+=item *
+
+F<t/mro/package_aliases.t> checks that mro works properly in the presence
+of aliased packages.
+
+=item *
+
+F<t/op/dbm.t> tests C<dbmopen> and C<dbmclose>.
+
+=item *
+
+F<t/op/index_thr.t> tests the interaction of C<index> and threads.
+
+=item *
+
+F<t/op/pat_thr.t> tests the interaction of esoteric patterns and threads.
+
+=item *
+
+F<t/op/qr_gc.t> tests that C<qr> doesn't leak.
+
+=item *
+
+F<t/op/reg_email_thr.t> tests the interaction of regex recursion and threads.
+
+=item *
+
+F<t/op/regexp_qr_embed_thr.t> tests the interaction of patterns with
+embedded C<qr//> and threads.
+
+=item *
+
+F<t/op/regexp_unicode_prop.t> tests Unicode properties in regular
+expressions.
+
+=item *
+
+F<t/op/regexp_unicode_prop_thr.t> tests the interaction of Unicode
+properties and threads.
+
+=item *
+
+F<t/op/reg_nc_tie.t> tests the tied methods of C<Tie::Hash::NamedCapture>.
+
+=item *
+
+F<t/op/reg_posixcc.t> checks that POSIX character classes behave
+consistently.
+
+=item *
+
+F<t/op/re.t> checks that exportable C<re> functions in F<universal.c> work.
+
+=item *
+
+F<t/op/setpgrpstack.t> checks that C<setpgrp> works.
+
+=item *
+
+F<t/op/substr_thr.t> tests the interaction of C<substr> and threads.
+
+=item *
+
+F<t/op/upgrade.t> checks that upgrading and assigning scalars works.
+
+=item *
+
+F<t/uni/lex_utf8.t> checks that Unicode in the lexer works.
+
+=item *
+
+F<t/uni/tie.t> checks that Unicode and C<tie> work.
+
+=item *
+
+F<t/comp/final_line_num.t> tests whether line numbers are correct at EOF
+
+=item *
+
+F<t/comp/form_scope.t> tests format scoping.
+
+=item *
+
+F<t/comp/line_debug.t> tests whether C<< @{"_<$file"} >> works.
+
+=item *
+
+F<t/op/filetest_t.t> tests if -t file test works.
+
+=item *
+
+F<t/op/qr.t> tests C<qr>.
+
+=item *
+
+F<t/op/utf8cache.t> tests malfunctions of the utf8 cache.
+
+=item *
+
+F<t/re/uniprops.t> test unicodes C<\p{}> regex constructs.
+
+=item *
+
+F<t/op/filehandle.t> tests some suitably portable filetest operators
+to check that they work as expected, particularly in the light of some
+internal changes made in how filehandles are blessed.
+
+=item *
+
+F<t/op/time_loop.t> tests that unix times greater than C<2**63>, which
+can now be handed to C<gmtime> and C<localtime>, do not cause an internal
+overflow or an excessively long loop.
+
+=back
+
+
+=head1 New or Changed Diagnostics
+
+=head2 New Diagnostics
+
+=over
+
+=item *
+
+SV allocation tracing has been added to the diagnostics enabled by C<-Dm>.
+The tracing can alternatively output via the C<PERL_MEM_LOG> mechanism, if
+that was enabled when the F<perl> binary was compiled.
+
+=item *
+
+Smartmatch resolution tracing has been added as a new diagnostic. Use
+C<-DM> to enable it.
+
+=item *
+
+A new debugging flag C<-DB> now dumps subroutine definitions, leaving
+C<-Dx> for its original purpose of dumping syntax trees.
+
+=item *
+
+Perl 5.12 provides a number of new diagnostic messages to help you write
+better code.  See L<perldiag> for details of these new messages.
+
+=over 4
+
+=item *
+
+C<Bad plugin affecting keyword '%s'>
+
+=item *
+
+C<gmtime(%.0f) too large>
+
+=item *
+
+C<Lexing code attempted to stuff non-Latin-1 character into Latin-1 input>
+
+=item *
+
+C<Lexing code internal error (%s)>
+
+=item *
+
+C<localtime(%.0f) too large>
+
+=item *
+
+C<Overloaded dereference did not return a reference>
+
+=item *
+
+C<Overloaded qr did not return a REGEXP>
+
+=item *
+
+C<Perl_pmflag() is deprecated, and will be removed from the XS API>
+
+=item *
+
+C<lvalue attribute ignored after the subroutine has been defined>
+
+This new warning is issued when one attempts to mark a subroutine as
+lvalue after it has been defined.
+
+=item *
+
+Perl now warns you if C<++> or C<--> are unable to change the value
+because it's beyond the limit of representation.
+
+This uses a new warnings category: "imprecision".
+
+=item *
+
+C<lc>, C<uc>, C<lcfirst>, and C<ucfirst> warn when passed undef.
+
+=item *
+
+C<Show constant in "Useless use of a constant in void context">
+
+=item *
+
+C<Prototype after '%s'>
+
+=item *
+
+C<panic: sv_chop %s>
+
+This new fatal error occurs when the C routine C<Perl_sv_chop()> was
+passed a position that is not within the scalar's string buffer. This
+could be caused by buggy XS code, and at this point recovery is not
+possible.
+
+=item *
+
+The fatal error C<Malformed UTF-8 returned by \N> is now produced if the
+C<charnames> handler returns malformed UTF-8.
+
+=item *
+
+If an unresolved named character or sequence was encountered when
+compiling a regex pattern then the fatal error C<\N{NAME} must be resolved
+by the lexer> is now produced. This can happen, for example, when using a
+single-quotish context like C<$re = '\N{SPACE}'; /$re/;>. See L<perldiag>
+for more examples of how the lexer can get bypassed.
+
+=item *
+
+C<Invalid hexadecimal number in \N{U+...}> is a new fatal error
+triggered when the character constant represented by C<...> is not a
+valid hexadecimal number.
+
+=item *
+
+The new meaning of C<\N> as C<[^\n]> is not valid in a bracketed character
+class, just like C<.> in a character class loses its special meaning,
+and will cause the fatal error C<\N in a character class must be a named
+character: \N{...}>.
+
+=item *
+
+The rules on what is legal for the C<...> in C<\N{...}> have been
+tightened up so that unless the C<...> begins with an alphabetic
+character and continues with a combination of alphanumerics, dashes,
+spaces, parentheses or colons then the warning C<Deprecated character(s)
+in \N{...} starting at '%s'> is now issued.
+
+=item *
+
+The warning C<Using just the first characters returned by \N{}> will
+be issued if the C<charnames> handler returns a sequence of characters
+which exceeds the limit of the number of characters that can be used. The
+message will indicate which characters were used and which were discarded.
+
+=back
+
+=back
+
+=head2 Changed Diagnostics
+
+A number of existing diagnostic messages have been improved or corrected:
+
+=over
+
+=item *
+
+A new warning category C<illegalproto> allows finer-grained control of
+warnings around function prototypes.
+
+The two warnings:
+
+=over
+
+=item C<Illegal character in prototype for %s : %s>
+
+=item C<Prototype after '%c' for %s : %s>
+
+=back
+
+have been moved from the C<syntax> top-level warnings category into a new
+first-level category, C<illegalproto>. These two warnings are currently
+the only ones emitted during parsing of an invalid/illegal prototype,
+so one can now use
+
+  no warnings 'illegalproto';
+
+to suppress only those, but not other syntax-related warnings. Warnings
+where prototypes are changed, ignored, or not met are still in the
+C<prototype> category as before.
+
+=item *
+
+C<Deep recursion on subroutine "%s">
+
+It is now possible to change the depth threshold for this warning from the
+default of 100, by recompiling the F<perl> binary, setting the C
+pre-processor macro C<PERL_SUB_DEPTH_WARN> to the desired value.
+
+=item *
+
+C<Illegal character in prototype> warning is now more precise
+when reporting illegal characters after _
+
+=item *
+
+mro merging error messages are now very similar to those produced by
+L<Algorithm::C3>.
+
+=item *
+
+Amelioration of the error message "Unrecognized character %s in column %d"
+
+Changes the error message to "Unrecognized character %s; marked by E<lt>--
+HERE after %sE<lt>-- HERE near column %d". This should make it a little
+simpler to spot and correct the suspicious character.
+
+=item *
+
+Perl now explicitly points to C<$.> when it causes an uninitialized
+warning for ranges in scalar context.
+
+=item *
+
+C<split> now warns when called in void context.
+
+=item *
+
+C<printf>-style functions called with too few arguments will now issue the
+warning C<"Missing argument in %s"> [perl #71000]
+
+=item *
+
+Perl now properly returns a syntax error instead of segfaulting
+if C<each>, C<keys>, or C<values> is used without an argument.
+
+=item *
+
+C<tell()> now fails properly if called without an argument and when no
+previous file was read.
+
+C<tell()> now returns C<-1>, and sets errno to C<EBADF>, thus restoring
+the 5.8.x behaviour.
+
+=item *
+
+C<overload> no longer implicitly unsets fallback on repeated 'use
+overload' lines.
+
+=item *
+
+POSIX::strftime() can now handle Unicode characters in the format string.
+
+=item *
+
+The C<syntax> category was removed from 5 warnings that should only be in
+C<deprecated>.
+
+=item *
+
+Three fatal C<pack>/C<unpack> error messages have been normalized to
+C<panic: %s>
+
+=item *
+
+C<Unicode character is illegal> has been rephrased to be more accurate
+
+It now reads C<Unicode non-character is illegal in interchange> and the
+perldiag documentation has been expanded a bit.
+
+=item *
+
+Currently, all but the first of the several characters that the
+C<charnames> handler may return are discarded when used in a regular
+expression pattern bracketed character class. If this happens then the
+warning C<Using just the first character returned by \N{} in character
+class> will be issued.
+
+=item *
+
+The warning C<Missing right brace on \N{} or unescaped left brace after
+\N.  Assuming the latter> will be issued if Perl encounters a C<\N{>
+but doesn't find a matching C<}>. In this case Perl doesn't know if it
+was mistakenly omitted, or if "match non-newline" followed by "match
+a C<{>" was desired.  It assumes the latter because that is actually a
+valid interpretation as written, unlike the other case.  If you meant
+the former, you need to add the matching right brace.  If you did mean
+the latter, you can silence this warning by writing instead C<\N\{>.
+
+=item *
+
+C<gmtime> and C<localtime> called with numbers smaller than they can
+reliably handle will now issue the warnings C<gmtime(%.0f) too small>
+and C<localtime(%.0f) too small>.
+
+=back
+
+The following diagnostic messages have been removed:
+
+=over 4
+
+=item *
+
+C<Runaway format>
+
+=item *
+
+C<Can't locate package %s for the parents of %s>
+
+In general this warning it only got produced in
+conjunction with other warnings, and removing it allowed an ISA lookup
+optimisation to be added.
+
+=item *
+
+C<v-string in use/require is non-portable>
+
+=back
+
+=head1 Utility Changes
+
+=over 4
+
+=item *
+
+F<h2ph> now looks in C<include-fixed> too, which is a recent addition
+to gcc's search path.
+
+=item *
+
+F<h2xs> no longer incorrectly treats enum values like macros.
+It also now handles C++ style comments (C<//>) properly in enums.
+
+=item *
+
+F<perl5db.pl> now supports C<LVALUE> subroutines.  Additionally, the
+debugger now correctly handles proxy constant subroutines, and
+subroutine stubs.
+
+=item *
+
+F<perlbug> now uses C<%Module::CoreList::bug_tracker> to print out
+upstream bug tracker URLs.  If a user identifies a particular module
+as the topic of their bug report and we're able to divine the URL for
+its upstream bug tracker, perlbug now provide a message to the user
+explaining that the core copies the CPAN version directly, and provide
+the URL for reporting the bug directly to the upstream author.
+
+F<perlbug> no longer reports "Message sent" when it hasn't actually sent
+the message
+
+=item *
+
+F<perlthanks> is a new utility for sending non-bug-reports to the
+authors and maintainers of Perl. Getting nothing but bug reports can
+become a bit demoralising. If Perl 5.12 works well for you, please try
+out F<perlthanks>. It will make the developers smile.
+
+=item *
+
+Perl's developers have fixed bugs in F<a2p> having to do with the
+C<match()> operator in list context.  Additionally, F<a2p> no longer
+generates code that uses the C<$[> variable.
+
+=back
+
+=head1 Selected Bug Fixes
+
+=over 4
+
+=item *
+
+U+0FFFF is now a legal character in regular expressions.
+
+=item *
+
+pp_qr now always returns a new regexp SV. Resolves RT #69852.
+
+Instead of returning a(nother) reference to the (pre-compiled) regexp
+in the optree, use reg_temp_copy() to create a copy of it, and return a
+reference to that. This resolves issues about Regexp::DESTROY not being
+called in a timely fashion (the original bug tracked by RT #69852), as
+well as bugs related to blessing regexps, and of assigning to regexps,
+as described in correspondence added to the ticket.
+
+It transpires that we also need to undo the SvPVX() sharing when ithreads
+cloning a Regexp SV, because mother_re is set to NULL, instead of a
+cloned copy of the mother_re. This change might fix bugs with regexps
+and threads in certain other situations, but as yet neither tests nor
+bug reports have indicated any problems, so it might not actually be an
+edge case that it's possible to reach.
+
+=item *
+
+Several compilation errors and segfaults when perl was built with C<-Dmad>
+were fixed.
+
+=item *
+
+Fixes for lexer API changes in 5.11.2 which broke NYTProf's savesrc option.
+
+=item *
+
+C<-t> should only return TRUE for file handles connected to a TTY
+
+The Microsoft C version of C<isatty()> returns TRUE for all character mode
+devices, including the F</dev/null>-style "nul" device and printers like
+"lpt1".
+
+=item *
+
+Fixed a regression caused by commit fafafbaf which caused a panic during
+parameter passing [perl #70171]
+
+=item *
+
+On systems which in-place edits without backup files, -i'*' now works as
+the documentation says it does [perl #70802]
+
+=item *
+
+Saving and restoring magic flags no longer loses readonly flag.
+
+=item *
+
+The malformed syntax C<grep EXPR LIST> (note the missing comma) no longer
+causes abrupt and total failure.
+
+=item *
+
+Regular expressions compiled with C<qr{}> literals properly set C<$'> when
+matching again.
+
+=item *
+
+Using named subroutines with C<sort> should no longer lead to bus errors
+[perl #71076]
+
+=item *
+
+Numerous bugfixes catch small issues caused by the recently-added Lexer API.
+
+=item *
+
+Smart match against C<@_> sometimes gave false negatives. [perl #71078]
+
+=item *
+
+C<$@> may now be assigned a read-only value (without error or busting
+the stack).
+
+=item *
+
+C<sort> called recursively from within an active comparison subroutine no
+longer causes a bus error if run multiple times. [perl #71076]
+
+=item *
+
+Tie::Hash::NamedCapture::* will not abort if passed bad input (RT #71828)
+
+=item *
+
+@_ and $_ no longer leak under threads (RT #34342 and #41138, also
+#70602, #70974)
+
+=item *
+
+C<-I> on shebang line now adds directories in front of @INC
+as documented, and as does C<-I> when specified on the command-line.
+
+=item *
+
+C<kill> is now fatal when called on non-numeric process identifiers.
+Previously, an C<undef> process identifier would be interpreted as a
+request to kill process 0, which would terminate the current process
+group on POSIX systems. Since process identifiers are always integers,
+killing a non-numeric process is now fatal.
+
+=item *
+
+5.10.0 inadvertently disabled an optimisation, which caused a measurable
+performance drop in list assignment, such as is often used to assign
+function parameters from C<@_>. The optimisation has been re-instated, and
+the performance regression fixed. (This fix is also present in 5.10.1)
+
+=item *
+
+Fixed memory leak on C<while (1) { map 1, 1 }> [RT #53038].
+
+=item *
+
+Some potential coredumps in PerlIO fixed [RT #57322,54828].
+
+=item *
+
+The debugger now works with lvalue subroutines.
+
+=item *
+
+The debugger's C<m> command was broken on modules that defined constants
+[RT #61222].
+
+=item *
+
+C<crypt> and string complement could return tainted values for untainted
+arguments [RT #59998].
+
+=item *
+
+The C<-i>I<.suffix> command-line switch now recreates the file using
+restricted permissions, before changing its mode to match the original
+file. This eliminates a potential race condition [RT #60904].
+
+=item *
+
+On some Unix systems, the value in C<$?> would not have the top bit set
+(C<$? & 128>) even if the child core dumped.
+
+=item *
+
+Under some circumstances, C<$^R> could incorrectly become undefined
+[RT #57042].
+
+=item *
+
+In the XS API, various hash functions, when passed a pre-computed hash where
+the key is UTF-8, might result in an incorrect lookup.
+
+=item *
+
+XS code including F<XSUB.h> before F<perl.h> gave a compile-time error
+[RT #57176].
+
+=item *
+
+C<< $object-E<gt>isa('Foo') >> would report false if the package C<Foo>
+didn't exist, even if the object's C<@ISA> contained C<Foo>.
+
+=item *
+
+Various bugs in the new-to 5.10.0 mro code, triggered by manipulating
+C<@ISA>, have been found and fixed.
+
+=item *
+
+Bitwise operations on references could crash the interpreter, e.g.
+C<$x=\$y; $x |= "foo"> [RT #54956].
+
+=item *
+
+Patterns including alternation might be sensitive to the internal UTF-8
+representation, e.g.
+
+    my $byte = chr(192);
+    my $utf8 = chr(192); utf8::upgrade($utf8);
+    $utf8 =~ /$byte|X}/i;	# failed in 5.10.0
+
+=item *
+
+Within UTF8-encoded Perl source files (i.e. where C<use utf8> is in
+effect), double-quoted literal strings could be corrupted where a C<\xNN>,
+C<\0NNN> or C<\N{}> is followed by a literal character with ordinal value
+greater than 255 [RT #59908].
+
+=item *
+
+C<B::Deparse> failed to correctly deparse various constructs:
+C<readpipe STRING> [RT #62428], C<CORE::require(STRING)> [RT #62488],
+C<sub foo(_)> [RT #62484].
+
+=item *
+
+Using C<setpgrp> with no arguments could corrupt the perl stack.
+
+=item *
+
+The block form of C<eval> is now specifically trappable by C<Safe> and
+C<ops>. Previously it was erroneously treated like string C<eval>.
+
+=item *
+
+In 5.10.0, the two characters C<[~> were sometimes parsed as the smart
+match operator (C<~~>) [RT #63854].
+
+=item *
+
+In 5.10.0, the C<*> quantifier in patterns was sometimes treated as
+C<{0,32767}> [RT #60034, #60464]. For example, this match would fail:
+
+    ("ab" x 32768) =~ /^(ab)*$/
+
+=item *
+
+C<shmget> was limited to a 32 bit segment size on a 64 bit OS [RT #63924].
+
+=item *
+
+Using C<next> or C<last> to exit a C<given> block no longer produces a
+spurious warning like the following:
+
+    Exiting given via last at foo.pl line 123
+
+=item *
+
+Assigning a format to a glob could corrupt the format; e.g.:
+
+     *bar=*foo{FORMAT}; # foo format now bad
+
+=item *
+
+Attempting to coerce a typeglob to a string or number could cause an
+assertion failure. The correct error message is now generated,
+C<Can't coerce GLOB to I<$type>>.
+
+=item *
+
+Under C<use filetest 'access'>, C<-x> was using the wrong access
+mode. This has been fixed [RT #49003].
+
+=item *
+
+C<length> on a tied scalar that returned a Unicode value would not be
+correct the first time. This has been fixed.
+
+=item *
+
+Using an array C<tie> inside in array C<tie> could SEGV. This has been
+fixed. [RT #51636]
+
+=item *
+
+A race condition inside C<PerlIOStdio_close()> has been identified and
+fixed. This used to cause various threading issues, including SEGVs.
+
+=item *
+
+In C<unpack>, the use of C<()> groups in scalar context was internally
+placing a list on the interpreter's stack, which manifested in various
+ways, including SEGVs. This is now fixed [RT #50256].
+
+=item *
+
+Magic was called twice in C<substr>, C<\&$x>, C<tie $x, $m> and C<chop>.
+These have all been fixed.
+
+=item *
+
+A 5.10.0 optimisation to clear the temporary stack within the implicit
+loop of C<s///ge> has been reverted, as it turned out to be the cause of
+obscure bugs in seemingly unrelated parts of the interpreter [commit
+ef0d4e17921ee3de].
+
+=item *
+
+The line numbers for warnings inside C<elsif> are now correct.
+
+=item *
+
+The C<..> operator now works correctly with ranges whose ends are at or
+close to the values of the smallest and largest integers.
+
+=item *
+
+C<binmode STDIN, ':raw'> could lead to segmentation faults on some platforms.
+This has been fixed [RT #54828].
+
+=item *
+
+An off-by-one error meant that C<index $str, ...> was effectively being
+executed as C<index "$str\0", ...>. This has been fixed [RT #53746].
+
+=item *
+
+Various leaks associated with named captures in regexes have been fixed
+[RT #57024].
+
+=item *
+
+A weak reference to a hash would leak. This was affecting C<DBI>
+[RT #56908].
+
+=item *
+
+Using (?|) in a regex could cause a segfault [RT #59734].
+
+=item *
+
+Use of a UTF-8 C<tr//> within a closure could cause a segfault [RT #61520].
+
+=item *
+
+Calling C<Perl_sv_chop()> or otherwise upgrading an SV could result in an
+unaligned 64-bit access on the SPARC architecture [RT #60574].
+
+=item *
+
+In the 5.10.0 release, C<inc_version_list> would incorrectly list
+C<5.10.*> after C<5.8.*>; this affected the C<@INC> search order
+[RT #67628].
+
+=item *
+
+In 5.10.0, C<pack "a*", $tainted_value> returned a non-tainted value
+[RT #52552].
+
+=item *
+
+In 5.10.0, C<printf> and C<sprintf> could produce the fatal error
+C<panic: utf8_mg_pos_cache_update> when printing UTF-8 strings
+[RT #62666].
+
+=item *
+
+In the 5.10.0 release, a dynamically created C<AUTOLOAD> method might be
+missed (method cache issue) [RT #60220,60232].
+
+=item *
+
+In the 5.10.0 release, a combination of C<use feature> and C<//ee> could
+cause a memory leak [RT #63110].
+
+=item *
+
+C<-C> on the shebang (C<#!>) line is once more permitted if it is also
+specified on the command line. C<-C> on the shebang line used to be a
+silent no-op I<if> it was not also on the command line, so perl 5.10.0
+disallowed it, which broke some scripts. Now perl checks whether it is
+also on the command line and only dies if it is not [RT #67880].
+
+=item *
+
+In 5.10.0, certain types of re-entrant regular expression could crash,
+or cause the following assertion failure [RT #60508]:
+
+    Assertion rx->sublen >= (s - rx->subbeg) + i failed
+
+=item *
+
+Perl now includes previously missing files from the Unicode Character
+Database.
+
+=item *
+
+Perl now honors C<TMPDIR> when opening an anonymous temporary file.
+
+=back
+
+
+=head1 Platform Specific Changes
+
+Perl is incredibly portable. In general, if a platform has a C compiler,
+someone has ported Perl to it (or will soon).  We're happy to announce
+that Perl 5.12 includes support for several new platforms.  At the same
+time, it's time to bid farewell to some (very) old friends.
+
+=head2 New Platforms
+
+=over
+
+=item Haiku
+
+Perl's developers have merged patches from Haiku's maintainers. Perl
+should now build on Haiku.
+
+=item MirOS BSD
+
+Perl should now build on MirOS BSD.
+
+=back
+
+=head2 Discontinued Platforms
+
+=over
+
+=item Domain/OS
+
+=item MiNT
+
+=item Tenon MachTen
+
+=back
+
+=head2 Updated Platforms
+
+=over 4
+
+=item AIX
+
+=over 4
+
+=item *
+
+Removed F<libbsd> for AIX 5L and 6.1. Only C<flock()> was used from
+F<libbsd>.
+
+=item *
+
+Removed F<libgdbm> for AIX 5L and 6.1 if F<libgdbm> < 1.8.3-5 is
+installed.  The F<libgdbm> is delivered as an optional package with the
+AIX Toolbox.  Unfortunately the versions below 1.8.3-5 are broken.
+
+=item *
+
+Hints changes mean that AIX 4.2 should work again.
+
+=back
+
+=item Cygwin
+
+=over 4
+
+=item *
+
+Perl now supports IPv6 on Cygwin 1.7 and newer.
+
+=item *
+
+On Cygwin we now strip the last number from the DLL. This has been the
+behaviour in the cygwin.com build for years. The hints files have been
+updated.
+
+=back
+
+=item Darwin (Mac OS X)
+
+=over 4
+
+=item *
+
+Skip testing the be_BY.CP1131 locale on Darwin 10 (Mac OS X 10.6),
+as it's still buggy.
+
+=item *
+
+Correct infelicities in the regexp used to identify buggy locales
+on Darwin 8 and 9 (Mac OS X 10.4 and 10.5, respectively).
+
+=back
+
+=item DragonFly BSD
+
+=over 4
+
+=item *
+
+Fix thread library selection [perl #69686]
+
+=back
+
+=item FreeBSD
+
+=over 4
+
+=item *
+
+The hints files now identify the correct threading libraries on FreeBSD 7
+and later.
+
+=back
+
+=item Irix
+
+=over 4
+
+=item *
+
+We now work around a bizarre preprocessor bug in the Irix 6.5 compiler:
+C<cc -E -> unfortunately goes into K&R mode, but C<cc -E file.c> doesn't.
+
+=back
+
+=item NetBSD
+
+=over 4
+
+=item *
+
+Hints now supports versions 5.*.
+
+=back
+
+=item OpenVMS
+
+=over 4
+
+=item *
+
+C<-UDEBUGGING> is now the default on VMS.
+
+Like it has been everywhere else for ages and ages. Also make command-line
+selection of -UDEBUGGING and -DDEBUGGING work in configure.com; before
+the only way to turn it off was by saying no in answer to the interactive
+question.
+
+=item *
+
+The default pipe buffer size on VMS has been updated to 8192 on 64-bit
+systems.
+
+=item *
+
+Reads from the in-memory temporary files of C<PerlIO::scalar> used to fail
+if C<$/> was set to a numeric reference (to indicate record-style reads).
+This is now fixed.
+
+=item *
+
+VMS now supports C<getgrgid>.
+
+=item *
+
+Many improvements and cleanups have been made to the VMS file name handling
+and conversion code.
+
+=item *
+
+Enabling the C<PERL_VMS_POSIX_EXIT> logical name now encodes a POSIX exit
+status in a VMS condition value for better interaction with GNV's bash
+shell and other utilities that depend on POSIX exit values. See
+L<perlvms/"$?"> for details.
+
+=item *
+
+C<File::Copy> now detects Unix compatibility mode on VMS.
+
+=back
+
+=item Stratus VOS
+
+=over 4
+
+=item *
+
+Various changes from Stratus have been merged in.
+
+=back
+
+=item Symbian
+
+=over 4
+
+=item *
+
+There is now support for Symbian S60 3.2 SDK and S60 5.0 SDK.
+
+=back
+
+=item Windows
+
+=over 4
+
+=item *
+
+Perl 5.12 supports Windows 2000 and later. The supporting code for
+legacy versions of Windows is still included, but will be removed
+during the next development cycle.
+
+=item *
+
+Initial support for building Perl with MinGW-w64 is now available.
+
+=item *
+
+F<perl.exe> now includes a manifest resource to specify the C<trustInfo>
+settings for Windows Vista and later. Without this setting Windows
+would treat F<perl.exe> as a legacy application and apply various
+heuristics like redirecting access to protected file system areas
+(like the "Program Files" folder) to the users "VirtualStore"
+instead of generating a proper "permission denied" error.
+
+The manifest resource also requests the Microsoft Common-Controls
+version 6.0 (themed controls introduced in Windows XP).  Check out the
+Win32::VisualStyles module on CPAN to switch back to old style
+unthemed controls for legacy applications.
+
+=item *
+
+The C<-t> filetest operator now only returns true if the filehandle
+is connected to a console window.  In previous versions of Perl it
+would return true for all character mode devices, including F<NUL>
+and F<LPT1>.
+
+=item *
+
+The C<-p> filetest operator now works correctly, and the
+Fcntl::S_IFIFO constant is defined when Perl is compiled with
+Microsoft Visual C.  In previous Perl versions C<-p> always
+returned a false value, and the Fcntl::S_IFIFO constant
+was not defined.
+
+This bug is specific to Microsoft Visual C and never affected
+Perl binaries built with MinGW.
+
+=item *
+
+The socket error codes are now more widely supported:  The POSIX
+module will define the symbolic names, like POSIX::EWOULDBLOCK,
+and stringification of socket error codes in $! works as well
+now;
+
+  C:\>perl -MPOSIX -E "$!=POSIX::EWOULDBLOCK; say $!"
+  A non-blocking socket operation could not be completed immediately.
+
+=item *
+
+flock() will now set sensible error codes in $!.  Previous Perl versions
+copied the value of $^E into $!, which caused much confusion.
+
+=item *
+
+select() now supports all empty C<fd_set>s more correctly.
+
+=item *
+
+C<'.\foo'> and C<'..\foo'>  were treated differently than
+C<'./foo'> and C<'../foo'> by C<do> and C<require> [RT #63492].
+
+=item *
+
+Improved message window handling means that C<alarm> and C<kill> messages
+will no longer be dropped under race conditions.
+
+=item *
+
+Various bits of Perl's build infrastructure are no longer converted to
+win32 line endings at release time. If this hurts you, please report the
+problem with the L<perlbug> program included with perl.
+
+=back
+
+=back
+
+
+=head1 Known Problems
+
+This is a list of some significant unfixed bugs, which are regressions
+from either 5.10.x or 5.8.x.
+
+=over 4
+
+=item *
+
+Some CPANPLUS tests may fail if there is a functioning file
+F<../../cpanp-run-perl> outside your build directory. The failure
+shouldn't imply there's a problem with the actual functional
+software. The bug is already fixed in [RT #74188] and is scheduled for
+inclusion in perl-v5.12.1.
+
+=item *
+
+C<List::Util::first> misbehaves in the presence of a lexical C<$_>
+(typically introduced by C<my $_> or implicitly by C<given>). The variable
+which gets set for each iteration is the package variable C<$_>, not the
+lexical C<$_> [RT #67694].
+
+A similar issue may occur in other modules that provide functions which
+take a block as their first argument, like
+
+    foo { ... $_ ...} list
+
+=item *
+
+Some regexes may run much more slowly when run in a child thread compared
+with the thread the pattern was compiled into [RT #55600].
+
+=item *
+
+Things like C<"\N{LATIN SMALL LIGATURE FF}" =~ /\N{LATIN SMALL LETTER F}+/>
+will appear to hang as they get into a very long running loop [RT #72998].
+
+=item *
+
+Several porters have reported mysterious crashes when Perl's entire
+test suite is run after a build on certain Windows 2000 systems. When
+run by hand, the individual tests reportedly work fine.
+
+=back
+
+=head1 Errata
+
+=over
+
+=item *
+
+This one is actually a change introduced in 5.10.0, but it was missed
+from that release's perldelta, so it is mentioned here instead.
+
+A bugfix related to the handling of the C</m> modifier and C<qr> resulted
+in a change of behaviour between 5.8.x and 5.10.0:
+
+    # matches in 5.8.x, doesn't match in 5.10.0
+    $re = qr/^bar/; "foo\nbar" =~ /$re/m;
+
+=back
+
+=head1 Acknowledgements
+
+Perl 5.12.0 represents approximately two years of development since
+Perl 5.10.0 and contains over 750,000 lines of changes across over
+3,000 files from over 200 authors and committers.
+
+Perl continues to flourish into its third decade thanks to a vibrant
+community of users and developers.  The following people are known to
+have contributed the improvements that became Perl 5.12.0:
+
+Aaron Crane, Abe Timmerman, Abhijit Menon-Sen, Abigail, Adam Russell,
+Adriano Ferreira, Ævar Arnfjörð Bjarmason, Alan Grover, Alexandr
+Ciornii, Alex Davies, Alex Vandiver, Andreas Koenig, Andrew Rodland,
+andrew@sundale.net, Andy Armstrong, Andy Dougherty, Jose AUGUSTE-ETIENNE,
+Benjamin Smith, Ben Morrow, bharanee rathna, Bo Borgerson, Bo Lindbergh,
+Brad Gilbert, Bram, Brendan O'Dea, brian d foy, Charles Bailey,
+Chip Salzenberg, Chris 'BinGOs' Williams, Christoph Lamprecht, Chris
+Williams, chromatic, Claes Jakobsson, Craig A. Berry, Dan Dascalescu,
+Daniel Frederick Crisman, Daniel M. Quinlan, Dan Jacobson, Dan Kogai,
+Dave Mitchell, Dave Rolsky, David Cantrell, David Dick, David Golden,
+David Mitchell, David M. Syzdek, David Nicol, David Wheeler, Dennis
+Kaarsemaker, Dintelmann, Peter, Dominic Dunlop, Dr.Ruud, Duke Leto,
+Enrico Sorcinelli, Eric Brine, Father Chrysostomos, Florian Ragwitz,
+Frank Wiegand, Gabor Szabo, Gene Sullivan, Geoffrey T. Dairiki, George
+Greer, Gerard Goossen, Gisle Aas, Goro Fuji, Graham Barr, Green, Paul,
+Hans Dieter Pearcey, Harmen, H. Merijn Brand, Hugo van der Sanden,
+Ian Goodacre, Igor Sutton, Ingo Weinhold, James Bence, James Mastros,
+Jan Dubois, Jari Aalto, Jarkko Hietaniemi, Jay Hannah, Jerry Hedden,
+Jesse Vincent, Jim Cromie, Jody Belka, John E. Malmberg, John Malmberg,
+John Peacock, John Peacock via RT, John P. Linderman, John Wright,
+Josh ben Jore, Jos I. Boumans, Karl Williamson, Kenichi Ishigaki, Ken
+Williams, Kevin Brintnall, Kevin Ryde, Kurt Starsinic, Leon Brocard,
+Lubomir Rintel, Luke Ross, Marcel Grünauer, Marcus Holland-Moritz, Mark
+Jason Dominus, Marko Asplund, Martin Hasch, Mashrab Kuvatov, Matt Kraai,
+Matt S Trout, Max Maischein, Michael Breen, Michael Cartmell, Michael
+G Schwern, Michael Witten, Mike Giroux, Milosz Tanski, Moritz Lenz,
+Nicholas Clark, Nick Cleaton, Niko Tyni, Offer Kaye, Osvaldo Villalon,
+Paul Fenwick, Paul Gaborit, Paul Green, Paul Johnson, Paul Marquess,
+Philip Hazel, Philippe Bruhat, Rafael Garcia-Suarez, Rainer Tammer,
+Rajesh Mandalemula, Reini Urban, Renée Bäcker, Ricardo Signes,
+Ricardo SIGNES, Richard Foley, Rich Rauenzahn, Rick Delaney, Risto
+Kankkunen, Robert May, Roberto C. Sanchez, Robin Barker, SADAHIRO
+Tomoyuki, Salvador Ortiz Garcia, Sam Vilain, Scott Lanning, Sébastien
+Aperghis-Tramoni, Sérgio Durigan Júnior, Shlomi Fish, Simon 'corecode'
+Schubert, Sisyphus, Slaven Rezic, Smylers, Steffen Müller, Steffen
+Ullrich, Stepan Kasal, Steve Hay, Steven Schubiger, Steve Peters, Tels,
+The Doctor, Tim Bunce, Tim Jenness, Todd Rinaldo, Tom Christiansen,
+Tom Hukins, Tom Wyant, Tony Cook, Torsten Schoenfeld, Tye McQueen,
+Vadim Konovalov, Vincent Pit, Hio YAMASHINA, Yasuhiro Matsumoto,
+Yitzchak Scott-Thoennes, Yuval Kogman, Yves Orton, Zefram, Zsban Ambrus
+
+This is woefully incomplete as it's automatically generated from version
+control history.  In particular, it doesn't include the names of the
+(very much appreciated) contributors who reported issues in previous
+versions of Perl that helped make Perl 5.12.0 better. For a more complete
+list of all of Perl's historical contributors, please see the C<AUTHORS>
+file in the Perl 5.12.0 distribution.
+
+Our "retired" pumpkings Nicholas Clark and Rafael Garcia-Suarez
+deserve special thanks for their brilliant and substantive ongoing
+contributions. Nicholas personally authored over 30% of the patches
+since 5.10.0. Rafael comes in second in patch authorship with 11%,
+but is first by a long shot in committing patches authored by others,
+pushing 44% of the commits since 5.10.0 in this category, often after
+providing considerable coaching to the patch authors. These statistics
+in no way comprise all of their contributions, but express in shorthand
+that we couldn't have done it without them.
+
+Many of the changes included in this version originated in the CPAN
+modules included in Perl's core. We're grateful to the entire CPAN
+community for helping Perl to flourish.
+
+=head1 Reporting Bugs
+
+If you find what you think is a bug, you might check the articles
+recently posted to the comp.lang.perl.misc newsgroup and the perl
+bug database at L<http://rt.perl.org/perlbug/>. There may also be
+information at L<http://www.perl.org/>, the Perl Home Page.
+
+If you believe you have an unreported bug, please run the B<perlbug>
+program included with your release. Be sure to trim your bug down
+to a tiny but sufficient test case. Your bug report, along with the
+output of C<perl -V>, will be sent off to perlbug@perl.org to be
+analyzed by the Perl porting team.
+
+If the bug you are reporting has security implications, which make it
+inappropriate to send to a publicly archived mailing list, then please send
+it to perl5-security-report@perl.org. This points to a closed subscription
+unarchived mailing list, which includes
+all the core committers, who will be able
+to help assess the impact of issues, figure out a resolution, and help
+co-ordinate the release of patches to mitigate or fix the problem across all
+platforms on which Perl is supported. Please only use this address for
+security issues in the Perl core, not for modules independently
+distributed on CPAN.
+
+=head1 SEE ALSO
+
+The F<Changes> file for an explanation of how to view exhaustive details
+on what changed.
+
+The F<INSTALL> file for how to build Perl.
+
+The F<README> file for general stuff.
+
+The F<Artistic> and F<Copying> files for copyright information.
+
+L<http://dev.perl.org/perl5/errata.html> for a list of issues
+found after this release, as well as a list of CPAN modules known
+to be incompatible with this release.
+
+=cut
diff --git a/lib/5.24.1/pod/perl5121delta.pod b/lib/5.24.1/pod/perl5121delta.pod
new file mode 100644
index 00000000..f1d8759d
--- /dev/null
+++ b/lib/5.24.1/pod/perl5121delta.pod
@@ -0,0 +1,411 @@
+=encoding utf8
+
+=head1 NAME
+
+perl5121delta - what is new for perl v5.12.1
+
+=head1 DESCRIPTION
+
+This document describes differences between the 5.12.0 release and
+the 5.12.1 release.
+
+If you are upgrading from an earlier release such as 5.10.1, first read
+L<perl5120delta>, which describes differences between 5.10.1 and
+5.12.0.
+
+=head1 Incompatible Changes
+
+There are no changes intentionally incompatible with 5.12.0. If any
+incompatibilities with 5.12.0 exist, they are bugs. Please report them.
+
+=head1 Core Enhancements
+
+Other than the bug fixes listed below, there should be no user-visible
+changes to the core language in this release.
+
+=head1 Modules and Pragmata
+
+=head2 Pragmata Changes
+
+=over 
+
+=item *
+
+We fixed exporting of C<is_strict> and C<is_lax> from L<version>.
+
+These were being exported with a wrapper that treated them as method
+calls, which caused them to fail.  They are just functions, are
+documented as such, and should never be subclassed, so this patch
+just exports them directly as functions without the wrapper.
+
+=back
+
+=head2 Updated Modules
+
+=over 
+
+=item *
+
+We upgraded L<CGI.pm> to version 3.49 to incorporate fixes for regressions
+introduced in the release we shipped with Perl 5.12.0.
+
+=item *
+
+We upgraded L<Pod::Simple> to version 3.14 to get an improvement to \C\<\< \>\>
+parsing.
+
+=item *
+
+We made a small fix to the L<CPANPLUS> test suite to fix an occasional spurious test failure.
+
+=item *
+
+We upgraded L<Safe> to version 2.27 to wrap coderefs returned by C<reval()> and C<rdo()>.
+
+=back
+
+=head1 Changes to Existing Documentation
+
+=over
+
+=item *
+
+We added the new maintenance release policy to L<perlpolicy.pod>
+
+=item *
+
+We've clarified the multiple-angle-bracket construct in the spec for POD
+in L<perlpodspec>
+
+=item *
+
+We added a missing explanation for a warning about C<:=> to L<perldiag.pod>
+
+=item *
+
+We removed a false claim in L<perlunitut> that all text strings are Unicode strings in Perl.
+
+=item *
+
+We updated the Github mirror link in L<perlrepository> to mirrors/perl, not github/perl
+
+=item *
+
+We fixed a minor error in L<perl5114delta.pod>.
+
+=item * 
+
+We replaced a mention of the now-obsolete L<Switch.pm> with F<given>/F<when>.
+
+=item *
+
+We improved documentation about F<$sitelibexp/sitecustomize.pl> in L<perlrun>.
+
+=item * 
+
+We corrected L<perlmodlib.pod> which had unintentionally omitted a number of modules.
+
+=item * 
+
+We updated the documentation for 'require' in L<perlfunc.pod> relating to putting Perl code in @INC.
+
+=item *
+
+We reinstated some erroneously-removed documentation about quotemeta in L<perlfunc>.
+
+=item *
+
+We fixed an F<a2p> example in L<perlutil.pod>.
+
+=item  *
+
+We filled in a blank in L<perlport.pod> with the release date of Perl 5.12.
+
+=item  *
+
+We fixed broken links in a number of perldelta files.
+
+=item * 
+
+The documentation for L<Carp.pm> incorrectly stated that the $Carp::Verbose
+variable makes cluck generate stack backtraces.
+
+=item *
+
+We fixed a number of typos in L<Pod::Functions>
+
+=item *
+
+We improved documentation of case-changing functions in L<perlfunc.pod>
+
+=item *
+
+We corrected L<perlgpl.pod> to contain the correct version of the GNU
+General Public License.
+
+
+
+=back
+
+=head1 Testing
+
+=head2 Testing Improvements
+
+=over
+
+=item *
+
+F<t/op/sselect.t> is now less prone to clock jitter during timing checks
+on Windows.
+
+sleep() time on Win32 may be rounded down to multiple of
+the clock tick interval.
+
+=item *
+
+F<lib/blib.t> and F<lib/locale.t>: Fixes for test failures on Darwin/PPC
+
+=item *
+
+F<perl5db.t>: Fix for test failures when C<Term::ReadLine::Gnu> is installed.
+
+=back
+
+=head1 Installation and Configuration Improvements
+
+=head2 Configuration improvements
+
+=over 
+
+=item * 
+
+We updated F<INSTALL> with notes about how to deal with broken F<dbm.h>
+on OpenSUSE (and possibly other platforms)
+
+=back
+
+=head1 Bug Fixes
+
+=over 4
+
+=item *
+
+A bug in how we process filetest operations could cause a segfault.
+Filetests don't always expect an op on the stack, so we now use
+TOPs only if we're sure that we're not stat'ing the _ filehandle.
+This is indicated by OPf_KIDS (as checked in ck_ftst).
+
+See also: L<http://rt.perl.org/rt3/Public/Bug/Display.html?id=74542>
+
+=item *
+
+When deparsing a nextstate op that has both a change of package (relative
+to the previous nextstate) and a label, the package declaration is now
+emitted first, because it is syntactically impermissible for a label to
+prefix a package declaration.
+
+=item * 
+
+XSUB.h now correctly redefines fgets under PERL_IMPLICIT_SYS
+
+See also: L<http://rt.cpan.org/Public/Bug/Display.html?id=55049>
+
+=item * 
+
+utf8::is_utf8 now respects GMAGIC (e.g. $1)
+
+=item * 
+
+XS code using C<fputc()> or C<fputs()>: on Windows could cause an error
+due to their arguments being swapped.
+
+See also: L<http://rt.perl.org/rt3/Public/Bug/Display.html?id=72704>
+
+=item *
+
+We fixed a small bug in lex_stuff_pvn() that caused spurious syntax errors
+in an obscure situation.  It happened when stuffing was performed on the
+last line of a file and the line ended with a statement that lacked a
+terminating semicolon.  
+
+See also: L<http://rt.perl.org/rt3/Public/Bug/Display.html?id=74006>
+
+=item *
+
+We fixed a bug that could cause \N{} constructs followed by a single . to
+be parsed incorrectly.
+
+See also: L<http://rt.perl.org/rt3/Public/Bug/Display.html?id=74978>
+
+=item *
+
+
+We fixed a bug that caused when(scalar) without an argument not to be
+treated as a syntax error.
+
+See also: L<http://rt.perl.org/rt3/Public/Bug/Display.html?id=74114>
+
+=item *
+
+We fixed a regression in the handling of labels immediately before string
+evals that was introduced in Perl 5.12.0.
+
+See also: L<http://rt.perl.org/rt3/Public/Bug/Display.html?id=74290>
+
+=item *
+
+We fixed a regression in case-insensitive matching of folded characters
+in regular expressions introduced in Perl 5.10.1.
+
+See also: L<http://rt.perl.org/rt3/Public/Bug/Display.html?id=72998>
+
+=back
+
+=head1 Platform Specific Notes
+
+=head2 HP-UX
+
+=over 
+
+=item *
+
+Perl now allows -Duse64bitint without promoting to use64bitall on HP-UX
+
+=back
+
+=head2 AIX
+
+=over
+
+=item * 
+
+Perl now builds on AIX 4.2
+
+The changes required work around AIX 4.2s' lack of support for IPv6,
+and limited support for POSIX C<sigaction()>.
+
+=back
+
+=head2 FreeBSD 7
+
+=over
+
+=item * 
+
+FreeBSD 7 no longer contains F</usr/bin/objformat>. At build time,
+Perl now skips the F<objformat> check for versions 7 and higher and
+assumes ELF.
+
+=back
+
+=head2 VMS
+
+=over
+
+=item *
+
+It's now possible to build extensions on older (pre 7.3-2) VMS systems.
+
+DCL symbol length was limited to 1K up until about seven years or
+so ago, but there was no particularly deep reason to prevent those
+older systems from configuring and building Perl.
+
+=item *
+
+We fixed the previously-broken C<-Uuseperlio> build on VMS.
+
+We were checking a variable that doesn't exist in the non-default
+case of disabling perlio.  Now we only look at it when it exists.
+
+=item *
+
+We fixed the -Uuseperlio command-line option in configure.com.
+
+Formerly it only worked if you went through all the questions
+interactively and explicitly answered no.
+
+=back
+
+=head1 Known Problems
+
+=over
+
+=item *
+
+C<List::Util::first> misbehaves in the presence of a lexical C<$_>
+(typically introduced by C<my $_> or implicitly by C<given>). The variable
+which gets set for each iteration is the package variable C<$_>, not the
+lexical C<$_>.
+
+A similar issue may occur in other modules that provide functions which
+take a block as their first argument, like
+
+    foo { ... $_ ...} list
+
+See also: L<http://rt.perl.org/rt3/Public/Bug/Display.html?id=67694>
+
+=item *
+
+C<Module::Load::Conditional> and C<version> have an unfortunate
+interaction which can cause C<CPANPLUS> to crash when it encounters
+an unparseable version string.  Upgrading to C<CPANPLUS> 0.9004 or
+C<Module::Load::Conditional> 0.38 from CPAN will resolve this issue.
+
+=back
+
+
+=head1 Acknowledgements
+
+Perl 5.12.1 represents approximately four weeks of development since
+Perl 5.12.0 and contains approximately 4,000 lines of changes
+across 142 files from 28 authors.
+
+Perl continues to flourish into its third decade thanks to a vibrant
+community of users and developers.  The following people are known to
+have contributed the improvements that became Perl 5.12.1:
+
+Ævar Arnfjörð Bjarmason, Chris Williams, chromatic, Craig A. Berry,
+David Golden, Father Chrysostomos, Florian Ragwitz, Frank Wiegand,
+Gene Sullivan, Goro Fuji, H.Merijn Brand, James E Keenan, Jan Dubois,
+Jesse Vincent, Josh ben Jore, Karl Williamson, Leon Brocard, Michael
+Schwern, Nga Tang Chan, Nicholas Clark, Niko Tyni, Philippe Bruhat,
+Rafael Garcia-Suarez, Ricardo Signes, Steffen Mueller, Todd Rinaldo,
+Vincent Pit and Zefram.
+
+=head1 Reporting Bugs
+
+If you find what you think is a bug, you might check the articles
+recently posted to the comp.lang.perl.misc newsgroup and the perl
+bug database at http://rt.perl.org/perlbug/ .  There may also be
+information at http://www.perl.org/ , the Perl Home Page.
+
+If you believe you have an unreported bug, please run the B<perlbug>
+program included with your release.  Be sure to trim your bug down
+to a tiny but sufficient test case.  Your bug report, along with the
+output of C<perl -V>, will be sent off to perlbug@perl.org to be
+analysed by the Perl porting team.
+
+If the bug you are reporting has security implications, which make it
+inappropriate to send to a publicly archived mailing list, then please send
+it to perl5-security-report@perl.org. This points to a closed subscription
+unarchived mailing list, which includes
+all the core committers, who will be able
+to help assess the impact of issues, figure out a resolution, and help
+co-ordinate the release of patches to mitigate or fix the problem across all
+platforms on which Perl is supported. Please only use this address for
+security issues in the Perl core, not for modules independently
+distributed on CPAN.
+
+=head1 SEE ALSO
+
+The F<Changes> file for an explanation of how to view exhaustive details
+on what changed.
+
+The F<INSTALL> file for how to build Perl.
+
+The F<README> file for general stuff.
+
+The F<Artistic> and F<Copying> files for copyright information.
+
+=cut
+
diff --git a/lib/5.24.1/pod/perl5122delta.pod b/lib/5.24.1/pod/perl5122delta.pod
new file mode 100644
index 00000000..f441a385
--- /dev/null
+++ b/lib/5.24.1/pod/perl5122delta.pod
@@ -0,0 +1,347 @@
+=encoding utf8
+
+=head1 NAME
+
+perl5122delta - what is new for perl v5.12.2
+
+=head1 DESCRIPTION
+
+This document describes differences between the 5.12.1 release and
+the 5.12.2 release.
+
+If you are upgrading from an earlier major version, such as 5.10.1,
+first read L<perl5120delta>, which describes differences between 5.10.1
+and 5.12.0, as well as L<perl5121delta>, which describes earlier changes
+in the 5.12 stable release series.
+
+=head1 Incompatible Changes
+
+There are no changes intentionally incompatible with 5.12.1. If any exist, they
+are bugs and reports are welcome.
+
+=head1 Core Enhancements
+
+Other than the bug fixes listed below, there should be no user-visible
+changes to the core language in this release.
+
+=head1 Modules and Pragmata
+
+=head2 New Modules and Pragmata
+
+This release does not introduce any new modules or pragmata.
+
+=head2 Pragmata Changes
+
+In the previous release, C<no I<VERSION>;> statements triggered a bug
+which could cause L<feature> bundles to be loaded and L<strict> mode to
+be enabled unintentionally.
+
+=head2 Updated Modules
+
+=over 4
+
+=item C<Carp>
+
+Upgraded from version 1.16 to 1.17.
+
+L<Carp> now detects incomplete L<caller()|perlfunc/"caller EXPR">
+overrides and avoids using bogus C<@DB::args>. To provide backtraces, Carp
+relies on particular behaviour of the caller built-in. Carp now detects
+if other code has overridden this with an incomplete implementation, and
+modifies its backtrace accordingly. Previously incomplete overrides would
+cause incorrect values in backtraces (best case), or obscure fatal errors
+(worst case)
+
+This fixes certain cases of C<Bizarre copy of ARRAY> caused by modules
+overriding C<caller()> incorrectly.
+
+=item C<CPANPLUS>
+
+A patch to F<cpanp-run-perl> has been backported from CPANPLUS C<0.9004>. This
+resolves L<RT #55964|http://rt.cpan.org/Public/Bug/Display.html?id=55964>
+and L<RT #57106|http://rt.cpan.org/Public/Bug/Display.html?id=57106>, both
+of which related to failures to install distributions that use
+C<Module::Install::DSL>.
+
+=item C<File::Glob>
+
+A regression which caused a failure to find C<CORE::GLOBAL::glob> after
+loading C<File::Glob> to crash has been fixed.  Now, it correctly falls back
+to external globbing via C<pp_glob>.
+
+=item C<File::Copy>
+
+C<File::Copy::copy(FILE, DIR)> is now documented.
+
+=item C<File::Spec>
+
+Upgraded from version 3.31 to 3.31_01.
+
+Several portability fixes were made in C<File::Spec::VMS>: a colon is now
+recognized as a delimiter in native filespecs; caret-escaped delimiters are
+recognized for better handling of extended filespecs; C<catpath()> returns
+an empty directory rather than the current directory if the input directory
+name is empty; C<abs2rel()> properly handles Unix-style input.
+
+=back
+
+=head1 Utility Changes
+
+=over
+
+=item *
+
+F<perlbug> now always gives the reporter a chance to change the email address it
+guesses for them.
+
+=item *
+
+F<perlbug> should no longer warn about uninitialized values when using the C<-d>
+and C<-v> options.
+
+=back
+
+=head1 Changes to Existing Documentation
+
+=over
+
+=item *
+
+The existing policy on backward-compatibility and deprecation has
+been added to L<perlpolicy>, along with definitions of terms like
+I<deprecation>.
+
+=item *
+
+L<perlfunc/srand>'s usage has been clarified.
+
+=item *
+
+The entry for L<perlfunc/die> was reorganized to emphasize its
+role in the exception mechanism.
+
+=item *
+
+Perl's L<INSTALL> file has been clarified to explicitly state that Perl
+requires a C89 compliant ANSI C Compiler.
+
+=item *
+
+L<IO::Socket>'s C<getsockopt()> and C<setsockopt()> have been documented.
+
+=item *
+
+F<alarm()>'s inability to interrupt blocking IO on Windows has been documented.
+
+=item *
+
+L<Math::TrulyRandom> hasn't been updated since 1996 and has been removed
+as a recommended solution for random number generation.
+
+=item *
+
+L<perlrun> has been updated to clarify the behaviour of octal flags to F<perl>.
+
+=item *
+
+To ease user confusion, C<$#> and C<$*>, two special variables that were
+removed in earlier versions of Perl have been documented.
+
+=item *
+
+The version of L<perlfaq> shipped with the Perl core has been updated from the
+official FAQ version, which is now maintained in the C<briandfoy/perlfaq>
+branch of the Perl repository at L<git://perl5.git.perl.org/perl.git>.
+
+=back
+
+=head1 Installation and Configuration Improvements
+
+=head2 Configuration improvements
+
+=over
+
+=item *
+
+The C<d_u32align> configuration probe on ARM has been fixed.
+
+=back
+
+=head2 Compilation improvements
+
+=over
+
+=item *
+
+An "C<incompatible operand types>" error in ternary expressions when building
+with C<clang> has been fixed.
+
+=item *
+
+Perl now skips setuid C<File::Copy> tests on partitions it detects to be mounted
+as C<nosuid>.
+
+=back
+
+=head1 Selected Bug Fixes
+
+=over 4
+
+=item *
+
+A possible segfault in the C<T_PRTOBJ> default typemap has been fixed.
+
+=item *
+
+A possible memory leak when using L<caller()|perlfunc/"caller EXPR"> to set
+C<@DB::args> has been fixed.
+
+=item *
+
+Several memory leaks when loading XS modules were fixed.
+
+=item *
+
+C<unpack()> now handles scalar context correctly for C<%32H> and C<%32u>,
+fixing a potential crash.  C<split()> would crash because the third item
+on the stack wasn't the regular expression it expected.  C<unpack("%2H",
+...)> would return both the unpacked result and the checksum on the stack,
+as would C<unpack("%2u", ...)>.
+L<[perl #73814]|http://rt.perl.org/rt3/Ticket/Display.html?id=73814>
+
+=item *
+
+Perl now avoids using memory after calling C<free()> in F<pp_require>
+when there are CODEREFs in C<@INC>.
+
+=item *
+
+A bug that could cause "C<Unknown error>" messages when
+"C<call_sv(code, G_EVAL)>" is called from an XS destructor has been fixed.
+
+=item *
+
+The implementation of the C<open $fh, 'E<gt>' \$buffer> feature
+now supports get/set magic and thus tied buffers correctly.
+
+=item *
+
+The C<pp_getc>, C<pp_tell>, and C<pp_eof> opcodes now make room on the
+stack for their return values in cases where no argument was passed in.
+
+=item *
+
+When matching unicode strings under some conditions inappropriate backtracking would
+result in a C<Malformed UTF-8 character (fatal)> error. This should no longer occur.
+See  L<[perl #75680]|http://rt.perl.org/rt3/Public/Bug/Display.html?id=75680>
+
+=back
+
+=head1 Platform Specific Notes
+
+=head2 AIX
+
+=over
+
+=item *
+
+F<README.aix> has been updated with information about the XL C/C++ V11 compiler
+suite.
+
+=back
+
+=head2 Windows
+
+=over
+
+=item *
+
+When building Perl with the mingw64 x64 cross-compiler C<incpath>,
+C<libpth>, C<ldflags>, C<lddlflags> and C<ldflags_nolargefiles> values
+in F<Config.pm> and F<Config_heavy.pl> were not previously being set
+correctly because, with that compiler, the include and lib directories
+are not immediately below C<$(CCHOME)>.
+
+=back
+
+=head2 VMS
+
+=over
+
+=item *
+
+F<git_version.h> is now installed on VMS. This was an oversight in v5.12.0 which
+caused some extensions to fail to build.
+
+=item *
+
+Several memory leaks in L<stat()|perlfunc/"stat FILEHANDLE"> have been fixed.
+
+=item *
+
+A memory leak in C<Perl_rename()> due to a double allocation has been
+fixed.
+
+=item *
+
+A memory leak in C<vms_fid_to_name()> (used by C<realpath()> and
+C<realname()>) has been fixed.
+
+=back
+
+=head1 Acknowledgements
+
+Perl 5.12.2 represents approximately three months of development since
+Perl 5.12.1 and contains approximately 2,000 lines of changes across
+100 files from 36 authors.
+
+Perl continues to flourish into its third decade thanks to a vibrant
+community of users and developers.  The following people are known to
+have contributed the improvements that became Perl 5.12.2:
+
+Abigail, Ævar Arnfjörð Bjarmason, Ben Morrow, brian d foy, Brian
+Phillips, Chas. Owens, Chris 'BinGOs' Williams, Chris Williams,
+Craig A. Berry, Curtis Jewell, Dan Dascalescu, David Golden, David
+Mitchell, Father Chrysostomos, Florian Ragwitz, George Greer, H.Merijn
+Brand, Jan Dubois, Jesse Vincent, Jim Cromie, Karl Williamson, Lars
+Dɪᴇᴄᴋ�ᴡ 迪拉斯, Leon Brocard, Maik Hentsche, Matt S Trout,
+Nicholas Clark, Rafael Garcia-Suarez, Rainer Tammer, Ricardo Signes,
+Salvador Ortiz Garcia, Sisyphus, Slaven Rezic, Steffen Mueller, Tony Cook,
+Vincent Pit and Yves Orton.
+
+=head1 Reporting Bugs
+
+If you find what you think is a bug, you might check the articles
+recently posted to the comp.lang.perl.misc newsgroup and the perl
+bug database at http://rt.perl.org/perlbug/ .  There may also be
+information at http://www.perl.org/ , the Perl Home Page.
+
+If you believe you have an unreported bug, please run the B<perlbug>
+program included with your release.  Be sure to trim your bug down
+to a tiny but sufficient test case.  Your bug report, along with the
+output of C<perl -V>, will be sent off to perlbug@perl.org to be
+analysed by the Perl porting team.
+
+If the bug you are reporting has security implications, which make it
+inappropriate to send to a publicly archived mailing list, then please send
+it to perl5-security-report@perl.org. This points to a closed subscription
+unarchived mailing list, which includes
+all the core committers, who will be able
+to help assess the impact of issues, figure out a resolution, and help
+co-ordinate the release of patches to mitigate or fix the problem across all
+platforms on which Perl is supported. Please only use this address for
+security issues in the Perl core, not for modules independently
+distributed on CPAN.
+
+=head1 SEE ALSO
+
+The F<Changes> file for an explanation of how to view exhaustive details
+on what changed.
+
+The F<INSTALL> file for how to build Perl.
+
+The F<README> file for general stuff.
+
+The F<Artistic> and F<Copying> files for copyright information.
+
+=cut
diff --git a/lib/5.24.1/pod/perl5123delta.pod b/lib/5.24.1/pod/perl5123delta.pod
new file mode 100644
index 00000000..580af240
--- /dev/null
+++ b/lib/5.24.1/pod/perl5123delta.pod
@@ -0,0 +1,118 @@
+=encoding utf8
+
+=head1 NAME
+
+perl5123delta - what is new for perl v5.12.3
+
+=head1 DESCRIPTION
+
+This document describes differences between the 5.12.2 release and
+the 5.12.3 release.
+
+If you are upgrading from an earlier release such as 5.12.1, first read
+L<perl5122delta>, which describes differences between 5.12.1 and
+5.12.2.  The major changes made in 5.12.0 are described in L<perl5120delta>.
+
+=head1 Incompatible Changes
+
+    There are no changes intentionally incompatible with 5.12.2. If any
+    exist, they are bugs and reports are welcome.
+
+=head1 Core Enhancements
+
+=head2 C<keys>, C<values> work on arrays
+
+You can now use the C<keys>, C<values>, C<each> builtin functions on arrays
+(previously you could only use them on hashes).  See L<perlfunc> for details.
+This is actually a change introduced in perl 5.12.0, but it was missed from
+that release's perldelta.
+
+=head1 Bug Fixes
+
+"no VERSION" will now correctly deparse with B::Deparse, as will certain
+constant expressions.
+
+Module::Build should be more reliably pass its tests under cygwin.
+
+Lvalue subroutines are again able to return copy-on-write scalars.  This
+had been broken since version 5.10.0.
+
+=head1 Platform Specific Notes
+
+=over 4
+
+=item Solaris
+
+A separate DTrace is now build for miniperl, which means that perl can be
+compiled with -Dusedtrace on Solaris again.
+
+=item VMS
+
+A number of regressions on VMS have been fixed.  In addition to minor cleanup
+of questionable expressions in F<vms.c>, file permissions should no longer be
+garbled by the PerlIO layer, and spurious record boundaries should no longer be
+introduced by the PerlIO layer during output.
+
+For more details and discussion on the latter, see:
+
+    http://www.nntp.perl.org/group/perl.vmsperl/2010/11/msg15419.html
+
+=item VOS
+
+A few very small changes were made to the build process on VOS to better
+support the platform.  Longer-than-32-character filenames are now supported on
+OpenVOS, and build properly without IPv6 support.
+
+=back
+
+=head1 Acknowledgements
+
+Perl 5.12.3 represents approximately four months of development since
+Perl 5.12.2 and contains approximately 2500 lines of changes across
+54 files from 16 authors.
+
+Perl continues to flourish into its third decade thanks to a vibrant
+community of users and developers.  The following people are known to
+have contributed the improvements that became Perl 5.12.3:
+
+Craig A. Berry, David Golden, David Leadbeater, Father Chrysostomos, Florian
+Ragwitz, Jesse Vincent, Karl Williamson, Nick Johnston, Nicolas Kaiser, Paul
+Green, Rafael Garcia-Suarez, Rainer Tammer, Ricardo Signes, Steffen Mueller,
+Zsbán Ambrus, Ævar Arnfjörð Bjarmason
+
+=head1 Reporting Bugs
+
+If you find what you think is a bug, you might check the articles
+recently posted to the comp.lang.perl.misc newsgroup and the perl
+bug database at http://rt.perl.org/perlbug/ .  There may also be
+information at http://www.perl.org/ , the Perl Home Page.
+
+If you believe you have an unreported bug, please run the B<perlbug>
+program included with your release.  Be sure to trim your bug down
+to a tiny but sufficient test case.  Your bug report, along with the
+output of C<perl -V>, will be sent off to perlbug@perl.org to be
+analysed by the Perl porting team.
+
+If the bug you are reporting has security implications, which make it
+inappropriate to send to a publicly archived mailing list, then please send
+it to perl5-security-report@perl.org. This points to a closed subscription
+unarchived mailing list, which includes
+all the core committers, who will be able
+to help assess the impact of issues, figure out a resolution, and help
+co-ordinate the release of patches to mitigate or fix the problem across all
+platforms on which Perl is supported. Please only use this address for
+security issues in the Perl core, not for modules independently
+distributed on CPAN.
+
+=head1 SEE ALSO
+
+The F<Changes> file for an explanation of how to view exhaustive details
+on what changed.
+
+The F<INSTALL> file for how to build Perl.
+
+The F<README> file for general stuff.
+
+The F<Artistic> and F<Copying> files for copyright information.
+
+=cut
diff --git a/lib/5.24.1/pod/perl5124delta.pod b/lib/5.24.1/pod/perl5124delta.pod
new file mode 100644
index 00000000..bd3a1db4
--- /dev/null
+++ b/lib/5.24.1/pod/perl5124delta.pod
@@ -0,0 +1,108 @@
+=encoding utf8
+
+=head1 NAME
+
+perl5124delta - what is new for perl v5.12.4
+
+=head1 DESCRIPTION
+
+This document describes differences between the 5.12.3 release and
+the 5.12.4 release.
+
+If you are upgrading from an earlier release such as 5.12.2, first read
+L<perl5123delta>, which describes differences between 5.12.2
+and 5.12.3. The major changes made in 5.12.0 are described in L<perl5120delta>.
+
+=head1 Incompatible Changes
+
+There are no changes intentionally incompatible with 5.12.3. If any
+exist, they are bugs and reports are welcome.
+
+=head1 Selected Bug Fixes
+
+When strict "refs" mode is off, C<%{...}> in rvalue context returns
+C<undef> if its argument is undefined.  An optimisation introduced in Perl
+5.12.0 to make C<keys %{...}> faster when used as a boolean did not take
+this into account, causing C<keys %{+undef}> (and C<keys %$foo> when
+C<$foo> is undefined) to be an error, which it should be so in strict
+mode only [perl #81750].
+
+C<lc>, C<uc>, C<lcfirst>, and C<ucfirst> no longer return untainted strings
+when the argument is tainted. This has been broken since perl 5.8.9
+[perl #87336].
+
+Fixed a case where it was possible that a freed buffer may have been read
+from when parsing a here document.
+
+=head1 Modules and Pragmata
+
+L<Module::CoreList> has been upgraded from version 2.43 to 2.50.
+
+=head1 Testing
+
+The F<cpan/CGI/t/http.t> test script has been fixed to work when the
+environment has HTTPS_* environment variables, such as HTTPS_PROXY.
+
+=head1 Documentation
+
+Updated the documentation for rand() in L<perlfunc> to note that it is not
+cryptographically secure.
+
+=head1 Platform Specific Notes
+
+=over 4
+
+=item Linux
+
+Support Ubuntu 11.04's new multi-arch library layout.
+
+=back
+
+=head1 Acknowledgements
+
+Perl 5.12.4 represents approximately 5 months of development since
+Perl 5.12.3 and contains approximately 200 lines of changes across
+11 files from 8 authors.
+
+Perl continues to flourish into its third decade thanks to a vibrant
+community of users and developers.  The following people are known to
+have contributed the improvements that became Perl 5.12.4:
+
+Andy Dougherty, David Golden, David Leadbeater, Father Chrysostomos,
+Florian Ragwitz, Jesse Vincent, Leon Brocard, Zsbán Ambrus.
+
+=head1 Reporting Bugs
+
+If you find what you think is a bug, you might check the articles
+recently posted to the comp.lang.perl.misc newsgroup and the perl
+bug database at http://rt.perl.org/perlbug/ .  There may also be
+information at http://www.perl.org/ , the Perl Home Page.
+
+If you believe you have an unreported bug, please run the B<perlbug>
+program included with your release.  Be sure to trim your bug down
+to a tiny but sufficient test case.  Your bug report, along with the
+output of C<perl -V>, will be sent off to perlbug@perl.org to be
+analysed by the Perl porting team.
+
+If the bug you are reporting has security implications, which make it
+inappropriate to send to a publicly archived mailing list, then please send
+it to perl5-security-report@perl.org. This points to a closed subscription
+unarchived mailing list, which includes all the core committers, who be able
+to help assess the impact of issues, figure out a resolution, and help
+co-ordinate the release of patches to mitigate or fix the problem across all
+platforms on which Perl is supported. Please only use this address for
+security issues in the Perl core, not for modules independently
+distributed on CPAN.
+
+=head1 SEE ALSO
+
+The F<Changes> file for an explanation of how to view exhaustive details
+on what changed.
+
+The F<INSTALL> file for how to build Perl.
+
+The F<README> file for general stuff.
+
+The F<Artistic> and F<Copying> files for copyright information.
+
+=cut
diff --git a/lib/5.24.1/pod/perl5125delta.pod b/lib/5.24.1/pod/perl5125delta.pod
new file mode 100644
index 00000000..90cb04a8
--- /dev/null
+++ b/lib/5.24.1/pod/perl5125delta.pod
@@ -0,0 +1,241 @@
+=encoding utf8
+
+=head1 NAME
+
+perl5125delta - what is new for perl v5.12.5
+
+=head1 DESCRIPTION
+
+This document describes differences between the 5.12.4 release and
+the 5.12.5 release.
+
+If you are upgrading from an earlier release such as 5.12.3, first read
+L<perl5124delta>, which describes differences between 5.12.3 and
+5.12.4.
+
+=head1 Security
+
+=head2 C<Encode> decode_xs n-byte heap-overflow (CVE-2011-2939)
+
+A bug in C<Encode> could, on certain inputs, cause the heap to overflow.
+This problem has been corrected.  Bug reported by Robert Zacek.
+
+=head2 C<File::Glob::bsd_glob()> memory error with GLOB_ALTDIRFUNC (CVE-2011-2728).
+
+Calling C<File::Glob::bsd_glob> with the unsupported flag GLOB_ALTDIRFUNC would 
+cause an access violation / segfault.  A Perl program that accepts a flags value from
+an external source could expose itself to denial of service or arbitrary code
+execution attacks.  There are no known exploits in the wild.  The problem has been
+corrected by explicitly disabling all unsupported flags and setting unused function
+pointers to null.  Bug reported by Clément Lecigne.
+
+=head2 Heap buffer overrun in 'x' string repeat operator (CVE-2012-5195)
+
+Poorly written perl code that allows an attacker to specify the count to
+perl's 'x' string repeat operator can already cause a memory exhaustion
+denial-of-service attack. A flaw in versions of perl before 5.15.5 can
+escalate that into a heap buffer overrun; coupled with versions of glibc
+before 2.16, it possibly allows the execution of arbitrary code.
+
+This problem has been fixed.
+
+=head1 Incompatible Changes
+
+There are no changes intentionally incompatible with 5.12.4. If any
+exist, they are bugs and reports are welcome.
+
+=head1 Modules and Pragmata
+
+=head2 Updated Modules
+
+=head3 L<B::Concise>
+
+L<B::Concise> no longer produces mangled output with the B<-tree> option
+[perl #80632].
+
+=head3 L<charnames>
+
+A regression introduced in Perl 5.8.8 has been fixed, that caused
+C<charnames::viacode(0)> to return C<undef> instead of the string "NULL"
+[perl #72624].
+
+=head3 L<Encode> has been upgraded from version 2.39 to version 2.39_01.
+
+See L</Security>.
+
+=head3 L<File::Glob> has been upgraded from version 1.07 to version 1.07_01.
+
+See L</Security>.
+
+=head3 L<Unicode::UCD>
+
+The documentation for the C<upper> function now actually says "upper", not
+"lower".
+
+=head3 L<Module::CoreList>
+
+L<Module::CoreList> has been updated to version 2.50_02 to add data for
+this release.
+
+=head1 Changes to Existing Documentation
+
+=head2 L<perlebcdic>
+
+The L<perlebcdic> document contains a helpful table to use in C<tr///> to
+convert between EBCDIC and Latin1/ASCII.  Unfortunately, the table was the
+inverse of the one it describes.  This has been corrected.
+
+=head2 L<perlunicode>
+
+The section on
+L<User-Defined Case Mappings|perlunicode/User-Defined Case Mappings> had
+some bad markup and unclear sentences, making parts of it unreadable.  This
+has been rectified.
+
+=head2 L<perluniprops>
+
+This document has been corrected to take non-ASCII platforms into account.
+
+=head1 Installation and Configuration Improvements
+
+=head2 Platform Specific Changes
+
+=over 4
+
+=item Mac OS X
+
+There have been configuration and test fixes to make Perl build cleanly on
+Lion and Mountain Lion.
+
+=item NetBSD
+
+The NetBSD hints file was corrected to be compatible with NetBSD 6.*
+
+=back
+
+=head1 Selected Bug Fixes
+
+=over 4
+
+=item *
+
+C<chop> now correctly handles characters above "\x{7fffffff}"
+[perl #73246].
+
+=item *
+
+C<< ($<,$>) = (...) >> stopped working properly in 5.12.0.  It is supposed
+to make a single C<setreuid()> call, rather than calling C<setruid()> and
+C<seteuid()> separately.  Consequently it did not work properly.  This has
+been fixed [perl #75212].
+
+=item *
+
+Fixed a regression of kill() when a match variable is used for the
+process ID to kill [perl #75812].
+
+=item *
+
+C<UNIVERSAL::VERSION> no longer leaks memory.  It started leaking in Perl
+5.10.0.
+
+=item *
+
+The C-level C<my_strftime> functions no longer leaks memory.  This fixes a
+memory leak in C<POSIX::strftime> [perl #73520].
+
+=item *
+
+C<caller> no longer leaks memory when called from the DB package if
+C<@DB::args> was assigned to after the first call to C<caller>.  L<Carp>
+was triggering this bug [perl #97010].
+
+=item *
+
+Passing to C<index> an offset beyond the end of the string when the string
+is encoded internally in UTF8 no longer causes panics [perl #75898].
+
+=item *
+
+Syntax errors in C<< (?{...}) >> blocks in regular expressions no longer
+cause panic messages [perl #2353].
+
+=item *
+
+Perl 5.10.0 introduced some faulty logic that made "U*" in the middle of
+a pack template equivalent to "U0" if the input string was empty.  This has
+been fixed [perl #90160].
+
+=back
+
+=head1 Errata
+
+=head2 split() and C<@_>
+
+split() no longer modifies C<@_> when called in scalar or void context.
+In void context it now produces a "Useless use of split" warning.
+This is actually a change introduced in perl 5.12.0, but it was missed from
+that release's L<perl5120delta>.
+
+=head1 Acknowledgements
+
+Perl 5.12.5 represents approximately 17 months of development since Perl 5.12.4
+and contains approximately 1,900 lines of changes across 64 files from 18
+authors.
+
+Perl continues to flourish into its third decade thanks to a vibrant community
+of users and developers. The following people are known to have contributed the
+improvements that became Perl 5.12.5:
+
+Andy Dougherty, Chris 'BinGOs' Williams, Craig A. Berry, David Mitchell,
+Dominic Hargreaves, Father Chrysostomos, Florian Ragwitz, George Greer, Goro
+Fuji, Jesse Vincent, Karl Williamson, Leon Brocard, Nicholas Clark, Rafael
+Garcia-Suarez, Reini Urban, Ricardo Signes, Steve Hay, Tony Cook.
+
+The list above is almost certainly incomplete as it is automatically generated
+from version control history. In particular, it does not include the names of
+the (very much appreciated) contributors who reported issues to the Perl bug
+tracker.
+
+Many of the changes included in this version originated in the CPAN modules
+included in Perl's core. We're grateful to the entire CPAN community for
+helping Perl to flourish.
+
+For a more complete list of all of Perl's historical contributors, please see
+the F<AUTHORS> file in the Perl source distribution.
+
+=head1 Reporting Bugs
+
+If you find what you think is a bug, you might check the articles
+recently posted to the comp.lang.perl.misc newsgroup and the perl
+bug database at http://rt.perl.org/perlbug/ .  There may also be
+information at http://www.perl.org/ , the Perl Home Page.
+
+If you believe you have an unreported bug, please run the B<perlbug>
+program included with your release.  Be sure to trim your bug down
+to a tiny but sufficient test case.  Your bug report, along with the
+output of C<perl -V>, will be sent off to perlbug@perl.org to be
+analysed by the Perl porting team.
+
+If the bug you are reporting has security implications, which make it
+inappropriate to send to a publicly archived mailing list, then please send
+it to perl5-security-report@perl.org. This points to a closed subscription
+unarchived mailing list, which includes all the core committers, who be able
+to help assess the impact of issues, figure out a resolution, and help
+co-ordinate the release of patches to mitigate or fix the problem across all
+platforms on which Perl is supported. Please only use this address for
+security issues in the Perl core, not for modules independently
+distributed on CPAN.
+
+=head1 SEE ALSO
+
+The F<Changes> file for an explanation of how to view exhaustive details
+on what changed.
+
+The F<INSTALL> file for how to build Perl.
+
+The F<README> file for general stuff.
+
+The F<Artistic> and F<Copying> files for copyright information.
+
+=cut
diff --git a/lib/5.24.1/pod/perl5140delta.pod b/lib/5.24.1/pod/perl5140delta.pod
new file mode 100644
index 00000000..26df41c6
--- /dev/null
+++ b/lib/5.24.1/pod/perl5140delta.pod
@@ -0,0 +1,4590 @@
+=encoding utf8
+
+=head1 NAME
+
+perl5140delta - what is new for perl v5.14.0
+
+=head1 DESCRIPTION
+
+This document describes differences between the 5.12.0 release and
+the 5.14.0 release.
+
+If you are upgrading from an earlier release such as 5.10.0, first read
+L<perl5120delta>, which describes differences between 5.10.0 and
+5.12.0.
+
+Some of the bug fixes in this release have been backported to subsequent
+releases of 5.12.x.  Those are indicated with the 5.12.x version in
+parentheses.
+
+=head1 Notice
+
+As described in L<perlpolicy>, the release of Perl 5.14.0 marks the
+official end of support for Perl 5.10.  Users of Perl 5.10 or earlier
+should consider upgrading to a more recent release of Perl.
+
+=head1 Core Enhancements
+
+=head2 Unicode
+
+=head3 Unicode Version 6.0 is now supported (mostly)
+
+Perl comes with the Unicode 6.0 data base updated with
+L<Corrigendum #8|http://www.unicode.org/versions/corrigendum8.html>,
+with one exception noted below.
+See L<http://unicode.org/versions/Unicode6.0.0/> for details on the new
+release.  Perl does not support any Unicode provisional properties,
+including the new ones for this release.
+
+Unicode 6.0 has chosen to use the name C<BELL> for the character at U+1F514,
+which is a symbol that looks like a bell, and is used in Japanese cell
+phones.  This conflicts with the long-standing Perl usage of having
+C<BELL> mean the ASCII C<BEL> character, U+0007.  In Perl 5.14,
+C<\N{BELL}> continues to mean U+0007, but its use generates a
+deprecation warning message unless such warnings are turned off.  The
+new name for U+0007 in Perl is C<ALERT>, which corresponds nicely
+with the existing shorthand sequence for it, C<"\a">.  C<\N{BEL}>
+means U+0007, with no warning given.  The character at U+1F514 has no
+name in 5.14, but can be referred to by C<\N{U+1F514}>. 
+In Perl 5.16, C<\N{BELL}> will refer to U+1F514; all code
+that uses C<\N{BELL}> should be converted to use C<\N{ALERT}>,
+C<\N{BEL}>, or C<"\a"> before upgrading.
+
+=head3 Full functionality for C<use feature 'unicode_strings'>
+
+This release provides full functionality for C<use feature
+'unicode_strings'>.  Under its scope, all string operations executed and
+regular expressions compiled (even if executed outside its scope) have
+Unicode semantics.  See L<feature/"the 'unicode_strings' feature">.
+However, see L</Inverted bracketed character classes and multi-character folds>,
+below.
+
+This feature avoids most forms of the "Unicode Bug" (see
+L<perlunicode/The "Unicode Bug"> for details).  If there is any
+possibility that your code will process Unicode strings, you are
+I<strongly> encouraged to use this subpragma to avoid nasty surprises.
+
+=head3 C<\N{I<NAME>}> and C<charnames> enhancements
+
+=over
+
+=item *
+
+C<\N{I<NAME>}> and C<charnames::vianame> now know about the abbreviated
+character names listed by Unicode, such as NBSP, SHY, LRO, ZWJ, etc.; all
+customary abbreviations for the C0 and C1 control characters (such as
+ACK, BEL, CAN, etc.); and a few new variants of some C1 full names that
+are in common usage.
+
+=item *
+
+Unicode has several I<named character sequences>, in which particular sequences
+of code points are given names.  C<\N{I<NAME>}> now recognizes these.
+
+=item *
+
+C<\N{I<NAME>}>, C<charnames::vianame>, and C<charnames::viacode>
+now know about every character in Unicode.  In earlier releases of
+Perl, they didn't know about the Hangul syllables nor several
+CJK (Chinese/Japanese/Korean) characters.
+
+=item *
+
+It is now possible to override Perl's abbreviations with your own custom aliases.
+
+=item *
+
+You can now create a custom alias of the ordinal of a
+character, known by C<\N{I<NAME>}>, C<charnames::vianame()>, and
+C<charnames::viacode()>.  Previously, aliases had to be to official
+Unicode character names.  This made it impossible to create an alias for
+unnamed code points, such as those reserved for private
+use.
+
+=item *
+
+The new function charnames::string_vianame() is a run-time version
+of C<\N{I<NAME>}}>, returning the string of characters whose Unicode
+name is its parameter.  It can handle Unicode named character
+sequences, whereas the pre-existing charnames::vianame() cannot,
+as the latter returns a single code point.
+
+=back
+
+See L<charnames> for details on all these changes.
+
+=head3 New warnings categories for problematic (non-)Unicode code points.
+
+Three new warnings subcategories of "utf8" have been added.  These
+allow you to turn off some "utf8" warnings, while allowing
+other warnings to remain on.  The three categories are:
+C<surrogate> when UTF-16 surrogates are encountered;
+C<nonchar> when Unicode non-character code points are encountered;
+and C<non_unicode> when code points above the legal Unicode
+maximum of 0x10FFFF are encountered.
+
+=head3 Any unsigned value can be encoded as a character
+
+With this release, Perl is adopting a model that any unsigned value
+can be treated as a code point and encoded internally (as utf8)
+without warnings, not just the code points that are legal in Unicode.
+However, unless utf8 or the corresponding sub-category (see previous
+item) of lexical warnings have been explicitly turned off, outputting
+or executing a Unicode-defined operation such as upper-casing
+on such a code point generates a warning.  Attempting to input these
+using strict rules (such as with the C<:encoding(UTF-8)> layer)
+will continue to fail.  Prior to this release, handling was
+inconsistent and in places, incorrect.
+
+Unicode non-characters, some of which previously were erroneously
+considered illegal in places by Perl, contrary to the Unicode Standard,
+are now always legal internally.  Inputting or outputting them 
+works the same as with the non-legal Unicode code points, because the Unicode
+Standard says they are (only) illegal for "open interchange".
+
+=head3 Unicode database files not installed
+
+The Unicode database files are no longer installed with Perl.  This
+doesn't affect any functionality in Perl and saves significant disk
+space.  If you need these files, you can download them from
+L<http://www.unicode.org/Public/zipped/6.0.0/>.
+
+=head2 Regular Expressions
+
+=head3 C<(?^...)> construct signifies default modifiers
+
+An ASCII caret C<"^"> immediately following a C<"(?"> in a regular
+expression now means that the subexpression does not inherit surrounding
+modifiers such as C</i>, but reverts to the Perl defaults.  Any modifiers
+following the caret override the defaults.
+
+Stringification of regular expressions now uses this notation.  
+For example, C<qr/hlagh/i> would previously be stringified as
+C<(?i-xsm:hlagh)>, but now it's stringified as C<(?^i:hlagh)>.
+
+The main purpose of this change is to allow tests that rely on the
+stringification I<not> to have to change whenever new modifiers are added.
+See L<perlre/Extended Patterns>.
+
+This change is likely to break code that compares stringified regular
+expressions with fixed strings containing C<?-xism>.
+
+=head3 C</d>, C</l>, C</u>, and C</a> modifiers
+
+Four new regular expression modifiers have been added.  These are mutually
+exclusive: one only can be turned on at a time.
+
+=over 
+
+=item *
+
+The C</l> modifier says to compile the regular expression as if it were
+in the scope of C<use locale>, even if it is not.
+
+=item *
+
+The C</u> modifier says to compile the regular expression as if it were
+in the scope of a C<use feature 'unicode_strings'> pragma.
+
+=item *
+
+The C</d> (default) modifier is used to override any C<use locale> and
+C<use feature 'unicode_strings'> pragmas in effect at the time
+of compiling the regular expression.
+
+=item *
+
+The C</a> regular expression modifier restricts C<\s>, C<\d> and C<\w> and
+the POSIX (C<[[:posix:]]>) character classes to the ASCII range.  Their
+complements and C<\b> and C<\B> are correspondingly
+affected.  Otherwise, C</a> behaves like the C</u> modifier, in that
+case-insensitive matching uses Unicode semantics.
+
+If the C</a> modifier is repeated, then additionally in case-insensitive
+matching, no ASCII character can match a non-ASCII character.
+For example,
+
+    "k"     =~ /\N{KELVIN SIGN}/ai
+    "\xDF" =~ /ss/ai
+
+match but 
+
+    "k"    =~ /\N{KELVIN SIGN}/aai
+    "\xDF" =~ /ss/aai
+
+do not match.
+
+=back
+
+See L<perlre/Modifiers> for more detail.
+
+=head3 Non-destructive substitution
+
+The substitution (C<s///>) and transliteration
+(C<y///>) operators now support an C</r> option that
+copies the input variable, carries out the substitution on
+the copy, and returns the result.  The original remains unmodified.
+
+  my $old = "cat";
+  my $new = $old =~ s/cat/dog/r;
+  # $old is "cat" and $new is "dog"
+
+This is particularly useful with C<map>.  See L<perlop> for more examples.
+
+=head3 Re-entrant regular expression engine
+
+It is now safe to use regular expressions within C<(?{...})> and
+C<(??{...})> code blocks inside regular expressions.
+
+These blocks are still experimental, however, and still have problems with
+lexical (C<my>) variables and abnormal exiting.
+
+=head3 C<use re '/flags'>
+
+The C<re> pragma now has the ability to turn on regular expression flags
+till the end of the lexical scope:
+
+    use re "/x";
+    "foo" =~ / (.+) /;  # /x implied
+
+See L<re/"'/flags' mode"> for details.
+
+=head3 \o{...} for octals
+
+There is a new octal escape sequence, C<"\o">, in doublequote-like
+contexts.  This construct allows large octal ordinals beyond the
+current max of 0777 to be represented.  It also allows you to specify a
+character in octal which can safely be concatenated with other regex
+snippets and which won't be confused with being a backreference to
+a regex capture group.  See L<perlre/Capture groups>.
+
+=head3 Add C<\p{Titlecase}> as a synonym for C<\p{Title}>
+
+This synonym is added for symmetry with the Unicode property names
+C<\p{Uppercase}> and C<\p{Lowercase}>.
+
+=head3 Regular expression debugging output improvement
+
+Regular expression debugging output (turned on by C<use re 'debug'>) now
+uses hexadecimal when escaping non-ASCII characters, instead of octal.
+
+=head3 Return value of C<delete $+{...}>
+
+Custom regular expression engines can now determine the return value of
+C<delete> on an entry of C<%+> or C<%->.
+
+=head2 Syntactical Enhancements
+
+=head3 Array and hash container functions accept references
+
+B<Warning:> This feature is considered experimental, as the exact behaviour
+may change in a future version of Perl.
+
+All builtin functions that operate directly on array or hash
+containers now also accept unblessed hard references to arrays
+or hashes:
+
+  |----------------------------+---------------------------|
+  | Traditional syntax         | Terse syntax              |
+  |----------------------------+---------------------------|
+  | push @$arrayref, @stuff    | push $arrayref, @stuff    |
+  | unshift @$arrayref, @stuff | unshift $arrayref, @stuff |
+  | pop @$arrayref             | pop $arrayref             |
+  | shift @$arrayref           | shift $arrayref           |
+  | splice @$arrayref, 0, 2    | splice $arrayref, 0, 2    |
+  | keys %$hashref             | keys $hashref             |
+  | keys @$arrayref            | keys $arrayref            |
+  | values %$hashref           | values $hashref           |
+  | values @$arrayref          | values $arrayref          |
+  | ($k,$v) = each %$hashref   | ($k,$v) = each $hashref   |
+  | ($k,$v) = each @$arrayref  | ($k,$v) = each $arrayref  |
+  |----------------------------+---------------------------|
+
+This allows these builtin functions to act on long dereferencing chains
+or on the return value of subroutines without needing to wrap them in
+C<@{}> or C<%{}>:
+
+  push @{$obj->tags}, $new_tag;  # old way
+  push $obj->tags,    $new_tag;  # new way
+
+  for ( keys %{$hoh->{genres}{artists}} ) {...} # old way 
+  for ( keys $hoh->{genres}{artists}    ) {...} # new way 
+
+=head3 Single term prototype
+
+The C<+> prototype is a special alternative to C<$> that acts like
+C<\[@%]> when given a literal array or hash variable, but will otherwise
+force scalar context on the argument.  See L<perlsub/Prototypes>.
+
+=head3 C<package> block syntax
+
+A package declaration can now contain a code block, in which case the
+declaration is in scope inside that block only.  So C<package Foo { ... }>
+is precisely equivalent to C<{ package Foo; ... }>.  It also works with
+a version number in the declaration, as in C<package Foo 1.2 { ... }>, 
+which is its most attractive feature.  See L<perlfunc>.
+
+=head3 Statement labels can appear in more places
+
+Statement labels can now occur before any type of statement or declaration,
+such as C<package>.
+
+=head3 Stacked labels
+
+Multiple statement labels can now appear before a single statement.
+
+=head3 Uppercase X/B allowed in hexadecimal/binary literals
+
+Literals may now use either upper case C<0X...> or C<0B...> prefixes,
+in addition to the already supported C<0x...> and C<0b...>
+syntax [perl #76296].
+
+C, Ruby, Python, and PHP already support this syntax, and it makes
+Perl more internally consistent: a round-trip with C<eval sprintf
+"%#X", 0x10> now returns C<16>, just like C<eval sprintf "%#x", 0x10>.
+
+=head3 Overridable tie functions
+
+C<tie>, C<tied> and C<untie> can now be overridden [perl #75902].
+
+=head2 Exception Handling
+
+To make them more reliable and consistent, several changes have been made
+to how C<die>, C<warn>, and C<$@> behave.
+
+=over
+
+=item * 
+
+When an exception is thrown inside an C<eval>, the exception is no
+longer at risk of being clobbered by destructor code running during unwinding.
+Previously, the exception was written into C<$@>
+early in the throwing process, and would be overwritten if C<eval> was
+used internally in the destructor for an object that had to be freed
+while exiting from the outer C<eval>.  Now the exception is written
+into C<$@> last thing before exiting the outer C<eval>, so the code
+running immediately thereafter can rely on the value in C<$@> correctly
+corresponding to that C<eval>.  (C<$@> is still also set before exiting the
+C<eval>, for the sake of destructors that rely on this.)
+
+Likewise, a C<local $@> inside an C<eval> no longer clobbers any
+exception thrown in its scope.  Previously, the restoration of C<$@> upon
+unwinding would overwrite any exception being thrown.  Now the exception
+gets to the C<eval> anyway.  So C<local $@> is safe before a C<die>.
+
+Exceptions thrown from object destructors no longer modify the C<$@>
+of the surrounding context.  (If the surrounding context was exception
+unwinding, this used to be another way to clobber the exception being
+thrown.)  Previously such an exception was
+sometimes emitted as a warning, and then either was
+string-appended to the surrounding C<$@> or completely replaced the
+surrounding C<$@>, depending on whether that exception and the surrounding
+C<$@> were strings or objects.  Now, an exception in this situation is
+always emitted as a warning, leaving the surrounding C<$@> untouched.
+In addition to object destructors, this also affects any function call
+run by XS code using the C<G_KEEPERR> flag.
+
+=item * 
+
+Warnings for C<warn> can now be objects in the same way as exceptions
+for C<die>.  If an object-based warning gets the default handling
+of writing to standard error, it is stringified as before with the
+filename and line number appended.  But a C<$SIG{__WARN__}> handler now
+receives an object-based warning as an object, where previously it
+was passed the result of stringifying the object.
+
+=back
+
+=head2 Other Enhancements
+
+=head3 Assignment to C<$0> sets the legacy process name with prctl() on Linux
+
+On Linux the legacy process name is now set with L<prctl(2)>, in
+addition to altering the POSIX name via C<argv[0]>, as Perl has done
+since version 4.000.  Now system utilities that read the legacy process
+name such as I<ps>, I<top>, and I<killall> recognize the name you set when
+assigning to C<$0>.  The string you supply is truncated at 16 bytes;
+this limitation is imposed by Linux.
+
+=head3 srand() now returns the seed
+
+This allows programs that need to have repeatable results not to have to come
+up with their own seed-generating mechanism.  Instead, they can use srand()
+and stash the return value for future use.  One example is a test program with
+too many combinations to test comprehensively in the time available for
+each run.  It can test a random subset each time and, should there be a failure,
+log the seed used for that run so this can later be used to produce the same results.
+
+=head3 printf-like functions understand post-1980 size modifiers
+
+Perl's printf and sprintf operators, and Perl's internal printf replacement
+function, now understand the C90 size modifiers "hh" (C<char>), "z"
+(C<size_t>), and "t" (C<ptrdiff_t>).  Also, when compiled with a C99
+compiler, Perl now understands the size modifier "j" (C<intmax_t>) 
+(but this is not portable).
+
+So, for example, on any modern machine, C<sprintf("%hhd", 257)> returns "1".
+
+=head3 New global variable C<${^GLOBAL_PHASE}>
+
+A new global variable, C<${^GLOBAL_PHASE}>, has been added to allow
+introspection of the current phase of the Perl interpreter.  It's explained in
+detail in L<perlvar/"${^GLOBAL_PHASE}"> and in
+L<perlmod/"BEGIN, UNITCHECK, CHECK, INIT and END">.
+
+=head3 C<-d:-foo> calls C<Devel::foo::unimport>
+
+The syntax B<-d:foo> was extended in 5.6.1 to make B<-d:foo=bar>
+equivalent to B<-MDevel::foo=bar>, which expands
+internally to C<use Devel::foo 'bar'>.
+Perl now allows prefixing the module name with B<->, with the same
+semantics as B<-M>; that is:
+
+=over 4
+
+=item C<-d:-foo>
+
+Equivalent to B<-M-Devel::foo>: expands to
+C<no Devel::foo> and calls C<< Devel::foo->unimport() >>
+if that method exists.
+
+=item C<-d:-foo=bar>
+
+Equivalent to B<-M-Devel::foo=bar>: expands to C<no Devel::foo 'bar'>,
+and calls C<< Devel::foo->unimport("bar") >> if that method exists.
+
+=back
+
+This is particularly useful for suppressing the default actions of a
+C<Devel::*> module's C<import> method whilst still loading it for debugging.
+
+=head3 Filehandle method calls load L<IO::File> on demand
+
+When a method call on a filehandle would die because the method cannot
+be resolved and L<IO::File> has not been loaded, Perl now loads L<IO::File>
+via C<require> and attempts method resolution again:
+
+  open my $fh, ">", $file;
+  $fh->binmode(":raw");     # loads IO::File and succeeds
+
+This also works for globs like C<STDOUT>, C<STDERR>, and C<STDIN>:
+
+  STDOUT->autoflush(1);
+
+Because this on-demand load happens only if method resolution fails, the
+legacy approach of manually loading an L<IO::File> parent class for partial
+method support still works as expected:
+
+  use IO::Handle;
+  open my $fh, ">", $file;
+  $fh->autoflush(1);        # IO::File not loaded
+
+=head3 Improved IPv6 support
+
+The C<Socket> module provides new affordances for IPv6,
+including implementations of the C<Socket::getaddrinfo()> and
+C<Socket::getnameinfo()> functions, along with related constants and a
+handful of new functions.  See L<Socket>.
+
+=head3 DTrace probes now include package name
+
+The C<DTrace> probes now include an additional argument, C<arg3>, which contains
+the package the subroutine being entered or left was compiled in.
+
+For example, using the following DTrace script:
+
+  perl$target:::sub-entry
+  {
+      printf("%s::%s\n", copyinstr(arg0), copyinstr(arg3));
+  }
+
+and then running:
+
+  $ perl -e 'sub test { }; test'
+
+C<DTrace> will print:
+
+  main::test
+
+=head2 New C APIs
+
+See L</Internal Changes>.
+
+=head1 Security
+
+=head2 User-defined regular expression properties
+
+L<perlunicode/"User-Defined Character Properties"> documented that you can
+create custom properties by defining subroutines whose names begin with
+"In" or "Is".  However, Perl did not actually enforce that naming
+restriction, so C<\p{foo::bar}> could call foo::bar() if it existed.  The documented
+convention is now enforced.
+
+Also, Perl no longer allows tainted regular expressions to invoke a
+user-defined property.  It simply dies instead [perl #82616].
+
+=head1 Incompatible Changes
+
+Perl 5.14.0 is not binary-compatible with any previous stable release.
+
+In addition to the sections that follow, see L</C API Changes>.
+
+=head2 Regular Expressions and String Escapes
+
+=head3 Inverted bracketed character classes and multi-character folds
+
+Some characters match a sequence of two or three characters in C</i>
+regular expression matching under Unicode rules.  One example is
+C<LATIN SMALL LETTER SHARP S> which matches the sequence C<ss>.
+
+ 'ss' =~ /\A[\N{LATIN SMALL LETTER SHARP S}]\z/i  # Matches
+
+This, however, can lead to very counter-intuitive results, especially
+when inverted.  Because of this, Perl 5.14 does not use multi-character C</i>
+matching in inverted character classes.
+
+ 'ss' =~ /\A[^\N{LATIN SMALL LETTER SHARP S}]+\z/i  # ???
+
+This should match any sequences of characters that aren't the C<SHARP S>
+nor what C<SHARP S> matches under C</i>.  C<"s"> isn't C<SHARP S>, but
+Unicode says that C<"ss"> is what C<SHARP S> matches under C</i>.  So
+which one "wins"? Do you fail the match because the string has C<ss> or
+accept it because it has an C<s> followed by another C<s>?
+
+Earlier releases of Perl did allow this multi-character matching,
+but due to bugs, it mostly did not work.
+
+=head3 \400-\777
+
+In certain circumstances, C<\400>-C<\777> in regexes have behaved
+differently than they behave in all other doublequote-like contexts.
+Since 5.10.1, Perl has issued a deprecation warning when this happens.
+Now, these literals behave the same in all doublequote-like contexts,
+namely to be equivalent to C<\x{100}>-C<\x{1FF}>, with no deprecation
+warning.
+
+Use of C<\400>-C<\777> in the command-line option B<-0> retain their
+conventional meaning.  They slurp whole input files; previously, this
+was documented only for B<-0777>.
+
+Because of various ambiguities, you should use the new
+C<\o{...}> construct to represent characters in octal instead.
+
+=head3 Most C<\p{}> properties are now immune to case-insensitive matching
+
+For most Unicode properties, it doesn't make sense to have them match
+differently under C</i> case-insensitive matching.  Doing so can lead
+to unexpected results and potential security holes.  For example
+
+ m/\p{ASCII_Hex_Digit}+/i
+
+could previously match non-ASCII characters because of the Unicode
+matching rules (although there were several bugs with this).  Now
+matching under C</i> gives the same results as non-C</i> matching except
+for those few properties where people have come to expect differences,
+namely the ones where casing is an integral part of their meaning, such
+as C<m/\p{Uppercase}/i> and C<m/\p{Lowercase}/i>, both of which match
+the same code points as matched by C<m/\p{Cased}/i>.
+Details are in L<perlrecharclass/Unicode Properties>.
+
+User-defined property handlers that need to match differently under C</i>
+must be changed to read the new boolean parameter passed to them, which
+is non-zero if case-insensitive matching is in effect and 0 otherwise.
+See L<perlunicode/User-Defined Character Properties>.
+
+=head3 \p{} implies Unicode semantics
+
+Specifying a Unicode property in the pattern indicates
+that the pattern is meant for matching according to Unicode rules, the way
+C<\N{I<NAME>}> does.
+
+=head3 Regular expressions retain their localeness when interpolated
+
+Regular expressions compiled under C<use locale> now retain this when
+interpolated into a new regular expression compiled outside a
+C<use locale>, and vice-versa.
+
+Previously, one regular expression interpolated into another inherited
+the localeness of the surrounding regex, losing whatever state it
+originally had.  This is considered a bug fix, but may trip up code that
+has come to rely on the incorrect behaviour.
+
+=head3 Stringification of regexes has changed
+
+Default regular expression modifiers are now notated using
+C<(?^...)>.  Code relying on the old stringification will fail.  
+This is so that when new modifiers are added, such code won't
+have to keep changing each time this happens, because the stringification 
+will automatically incorporate the new modifiers.
+
+Code that needs to work properly with both old- and new-style regexes
+can avoid the whole issue by using (for perls since 5.9.5; see L<re>):
+
+ use re qw(regexp_pattern);
+ my ($pat, $mods) = regexp_pattern($re_ref);
+
+If the actual stringification is important or older Perls need to be
+supported, you can use something like the following:
+
+    # Accept both old and new-style stringification
+    my $modifiers = (qr/foobar/ =~ /\Q(?^/) ? "^" : "-xism";
+
+And then use C<$modifiers> instead of C<-xism>.
+
+=head3 Run-time code blocks in regular expressions inherit pragmata
+
+Code blocks in regular expressions (C<(?{...})> and C<(??{...})>) previously
+did not inherit pragmata (strict, warnings, etc.) if the regular expression
+was compiled at run time as happens in cases like these two:
+
+  use re "eval";
+  $foo =~ $bar; # when $bar contains (?{...})
+  $foo =~ /$bar(?{ $finished = 1 })/;
+
+This bug has now been fixed, but code that relied on the buggy behaviour
+may need to be fixed to account for the correct behaviour.
+
+=head2 Stashes and Package Variables
+
+=head3 Localised tied hashes and arrays are no longed tied
+
+In the following:
+
+    tie @a, ...;
+    {
+	    local @a;
+	    # here, @a is a now a new, untied array
+    }
+    # here, @a refers again to the old, tied array
+
+Earlier versions of Perl incorrectly tied the new local array.  This has
+now been fixed.  This fix could however potentially cause a change in
+behaviour of some code.
+
+=head3 Stashes are now always defined
+
+C<defined %Foo::> now always returns true, even when no symbols have yet been
+defined in that package.
+
+This is a side-effect of removing a special-case kludge in the tokeniser,
+added for 5.10.0, to hide side-effects of changes to the internal storage of
+hashes.  The fix drastically reduces hashes' memory overhead.
+
+Calling defined on a stash has been deprecated since 5.6.0, warned on
+lexicals since 5.6.0, and warned for stashes and other package
+variables since 5.12.0.  C<defined %hash> has always exposed an
+implementation detail: emptying a hash by deleting all entries from it does
+not make C<defined %hash> false.  Hence C<defined %hash> is not valid code to
+determine whether an arbitrary hash is empty.  Instead, use the behaviour
+of an empty C<%hash> always returning false in scalar context.
+
+=head3 Clearing stashes
+
+Stash list assignment C<%foo:: = ()> used to make the stash temporarily 
+anonymous while it was being emptied.  Consequently, any of its
+subroutines referenced elsewhere would become anonymous,  showing up as
+"(unknown)" in C<caller>.  They now retain their package names such that
+C<caller> returns the original sub name if there is still a reference
+to its typeglob and "foo::__ANON__" otherwise [perl #79208].
+
+=head3 Dereferencing typeglobs
+
+If you assign a typeglob to a scalar variable:
+
+    $glob = *foo;
+
+the glob that is copied to C<$glob> is marked with a special flag
+indicating that the glob is just a copy.  This allows subsequent
+assignments to C<$glob> to overwrite the glob.  The original glob,
+however, is immutable.
+
+Some Perl operators did not distinguish between these two types of globs.
+This would result in strange behaviour in edge cases: C<untie $scalar>
+would not untie the scalar if the last thing assigned to it was a glob
+(because it treated it as C<untie *$scalar>, which unties a handle).
+Assignment to a glob slot (such as C<*$glob = \@some_array>) would simply
+assign C<\@some_array> to C<$glob>.
+
+To fix this, the C<*{}> operator (including its C<*foo> and C<*$foo> forms)
+has been modified to make a new immutable glob if its operand is a glob
+copy.  This allows operators that make a distinction between globs and
+scalars to be modified to treat only immutable globs as globs.  (C<tie>,
+C<tied> and C<untie> have been left as they are for compatibility's sake,
+but will warn.  See L</Deprecations>.)
+
+This causes an incompatible change in code that assigns a glob to the
+return value of C<*{}> when that operator was passed a glob copy.  Take the
+following code, for instance:
+
+    $glob = *foo;
+    *$glob = *bar;
+
+The C<*$glob> on the second line returns a new immutable glob.  That new
+glob is made an alias to C<*bar>.  Then it is discarded.  So the second
+assignment has no effect.
+
+See L<http://rt.perl.org/rt3/Public/Bug/Display.html?id=77810> for
+more detail.
+
+=head3 Magic variables outside the main package
+
+In previous versions of Perl, magic variables like C<$!>, C<%SIG>, etc. would
+"leak" into other packages.  So C<%foo::SIG> could be used to access signals,
+C<${"foo::!"}> (with strict mode off) to access C's C<errno>, etc.
+
+This was a bug, or an "unintentional" feature, which caused various ill effects,
+such as signal handlers being wiped when modules were loaded, etc.
+
+This has been fixed (or the feature has been removed, depending on how you see
+it).
+
+=head3 local($_) strips all magic from $_
+
+local() on scalar variables gives them a new value but keeps all
+their magic intact.  This has proven problematic for the default
+scalar variable $_, where L<perlsub> recommends that any subroutine
+that assigns to $_ should first localize it.  This would throw an
+exception if $_ is aliased to a read-only variable, and could in general have
+various unintentional side-effects.
+
+Therefore, as an exception to the general rule, local($_) will not
+only assign a new value to $_, but also remove all existing magic from
+it as well.
+
+=head3 Parsing of package and variable names
+
+Parsing the names of packages and package variables has changed: 
+multiple adjacent pairs of colons, as in C<foo::::bar>, are now all 
+treated as package separators.
+
+Regardless of this change, the exact parsing of package separators has
+never been guaranteed and is subject to change in future Perl versions.
+
+=head2 Changes to Syntax or to Perl Operators
+
+=head3 C<given> return values
+
+C<given> blocks now return the last evaluated
+expression, or an empty list if the block was exited by C<break>.  Thus you
+can now write:
+
+    my $type = do {
+     given ($num) {
+      break     when undef;
+      "integer" when /^[+-]?[0-9]+$/;
+      "float"   when /^[+-]?[0-9]+(?:\.[0-9]+)?$/;
+      "unknown";
+     }
+    };
+
+See L<perlsyn/Return value> for details.
+
+=head3 Change in parsing of certain prototypes
+
+Functions declared with the following prototypes now behave correctly as unary
+functions:
+
+  *
+  \$ \% \@ \* \&
+  \[...]
+  ;$ ;*
+  ;\$ ;\% etc.
+  ;\[...]
+
+Due to this bug fix [perl #75904], functions
+using the C<(*)>, C<(;$)> and C<(;*)> prototypes
+are parsed with higher precedence than before.  So
+in the following example:
+
+  sub foo(;$);
+  foo $a < $b;
+
+the second line is now parsed correctly as C<< foo($a) < $b >>, rather than
+C<< foo($a < $b) >>.  This happens when one of these operators is used in
+an unparenthesised argument:
+
+  < > <= >= lt gt le ge
+  == != <=> eq ne cmp ~~
+  &
+  | ^
+  &&
+  || //
+  .. ...
+  ?:
+  = += -= *= etc.
+  , =>
+
+=head3 Smart-matching against array slices
+
+Previously, the following code resulted in a successful match:
+
+    my @a = qw(a y0 z);
+    my @b = qw(a x0 z);
+    @a[0 .. $#b] ~~ @b;
+
+This odd behaviour has now been fixed [perl #77468].
+
+=head3 Negation treats strings differently from before
+
+The unary negation operator, C<->, now treats strings that look like numbers
+as numbers [perl #57706].
+
+=head3 Negative zero
+
+Negative zero (-0.0), when converted to a string, now becomes "0" on all
+platforms.  It used to become "-0" on some, but "0" on others.
+
+If you still need to determine whether a zero is negative, use
+C<sprintf("%g", $zero) =~ /^-/> or the L<Data::Float> module on CPAN.
+
+=head3 C<:=> is now a syntax error
+
+Previously C<my $pi := 4> was exactly equivalent to C<my $pi : = 4>,
+with the C<:> being treated as the start of an attribute list, ending before
+the C<=>.  The use of C<:=> to mean C<: => was deprecated in 5.12.0, and is
+now a syntax error.  This allows future use of C<:=> as a new token.
+
+Outside the core's tests for it, we find no Perl 5 code on CPAN
+using this construction, so we believe that this change will have
+little impact on real-world codebases.
+
+If it is absolutely necessary to have empty attribute lists (for example,
+because of a code generator), simply avoid the error by adding a space before
+the C<=>.
+
+=head3 Change in the parsing of identifiers
+
+Characters outside the Unicode "XIDStart" set are no longer allowed at the
+beginning of an identifier.  This means that certain accents and marks
+that normally follow an alphabetic character may no longer be the first
+character of an identifier.
+
+=head2 Threads and Processes
+
+=head3 Directory handles not copied to threads
+
+On systems other than Windows that do not have
+a C<fchdir> function, newly-created threads no
+longer inherit directory handles from their parent threads.  Such programs
+would usually have crashed anyway [perl #75154].
+
+=head3 C<close> on shared pipes
+
+To avoid deadlocks, the C<close> function no longer waits for the
+child process to exit if the underlying file descriptor is still
+in use by another thread.  It returns true in such cases.
+
+=head3 fork() emulation will not wait for signalled children
+
+On Windows parent processes would not terminate until all forked
+children had terminated first.  However, C<kill("KILL", ...)> is
+inherently unstable on pseudo-processes, and C<kill("TERM", ...)>
+might not get delivered if the child is blocked in a system call.
+
+To avoid the deadlock and still provide a safe mechanism to terminate
+the hosting process, Perl now no longer waits for children that
+have been sent a SIGTERM signal.  It is up to the parent process to
+waitpid() for these children if child-cleanup processing must be
+allowed to finish.  However, it is also then the responsibility of the
+parent to avoid the deadlock by making sure the child process
+can't be blocked on I/O.
+
+See L<perlfork> for more information about the fork() emulation on
+Windows.
+
+=head2 Configuration
+
+=head3 Naming fixes in Policy_sh.SH may invalidate Policy.sh
+
+Several long-standing typos and naming confusions in F<Policy_sh.SH> have
+been fixed, standardizing on the variable names used in F<config.sh>.
+
+This will change the behaviour of F<Policy.sh> if you happen to have been
+accidentally relying on its incorrect behaviour.
+
+=head3 Perl source code is read in text mode on Windows
+
+Perl scripts used to be read in binary mode on Windows for the benefit
+of the L<ByteLoader> module (which is no longer part of core Perl).  This
+had the side-effect of breaking various operations on the C<DATA> filehandle,
+including seek()/tell(), and even simply reading from C<DATA> after filehandles
+have been flushed by a call to system(), backticks, fork() etc.
+
+The default build options for Windows have been changed to read Perl source
+code on Windows in text mode now.  L<ByteLoader> will (hopefully) be updated on
+CPAN to automatically handle this situation [perl #28106].
+
+=head1 Deprecations
+
+See also L</Deprecated C APIs>.
+
+=head2 Omitting a space between a regular expression and subsequent word
+
+Omitting the space between a regular expression operator or
+its modifiers and the following word is deprecated.  For
+example, C<< m/foo/sand $bar >> is for now still parsed
+as C<< m/foo/s and $bar >>, but will now issue a warning.
+
+=head2 C<\cI<X>>
+
+The backslash-c construct was designed as a way of specifying
+non-printable characters, but there were no restrictions (on ASCII
+platforms) on what the character following the C<c> could be.  Now,
+a deprecation warning is raised if that character isn't an ASCII character.
+Also, a deprecation warning is raised for C<"\c{"> (which is the same
+as simply saying C<";">).
+
+=head2 C<"\b{"> and C<"\B{">
+
+In regular expressions, a literal C<"{"> immediately following a C<"\b">
+(not in a bracketed character class) or a C<"\B{"> is now deprecated
+to allow for its future use by Perl itself.
+
+=head2 Perl 4-era .pl libraries
+
+Perl bundles a handful of library files that predate Perl 5.
+This bundling is now deprecated for most of these files, which are now
+available from CPAN.  The affected files now warn when run, if they were
+installed as part of the core.
+
+This is a mandatory warning, not obeying B<-X> or lexical warning bits.
+The warning is modelled on that supplied by F<deprecate.pm> for
+deprecated-in-core F<.pm> libraries.  It points to the specific CPAN
+distribution that contains the F<.pl> libraries.  The CPAN versions, of
+course, do not generate the warning.
+
+=head2 List assignment to C<$[>
+
+Assignment to C<$[> was deprecated and started to give warnings in
+Perl version 5.12.0.  This version of Perl (5.14) now also emits a warning 
+when assigning to C<$[> in list context.  This fixes an oversight in 5.12.0.
+
+=head2 Use of qw(...) as parentheses
+
+Historically the parser fooled itself into thinking that C<qw(...)> literals
+were always enclosed in parentheses, and as a result you could sometimes omit
+parentheses around them:
+
+    for $x qw(a b c) { ... }
+
+The parser no longer lies to itself in this way.  Wrap the list literal in
+parentheses like this:
+
+    for $x (qw(a b c)) { ... }
+
+This is being deprecated because the parentheses in C<for $i (1,2,3) { ... }>
+are not part of expression syntax.  They are part of the statement
+syntax, with the C<for> statement wanting literal parentheses.
+The synthetic parentheses that a C<qw> expression acquired were only
+intended to be treated as part of expression syntax.
+
+Note that this does not change the behaviour of cases like:
+
+    use POSIX qw(setlocale localeconv);
+    our @EXPORT = qw(foo bar baz);
+
+where parentheses were never required around the expression.
+
+=head2 C<\N{BELL}>
+
+This is because Unicode is using that name for a different character.
+See L</Unicode Version 6.0 is now supported (mostly)> for more
+explanation.
+
+=head2 C<?PATTERN?>
+
+C<?PATTERN?> (without the initial C<m>) has been deprecated and now produces
+a warning.  This is to allow future use of C<?> in new operators.
+The match-once functionality is still available as C<m?PATTERN?>.
+
+=head2 Tie functions on scalars holding typeglobs
+
+Calling a tie function (C<tie>, C<tied>, C<untie>) with a scalar argument
+acts on a filehandle if the scalar happens to hold a typeglob.
+
+This is a long-standing bug that will be removed in Perl 5.16, as
+there is currently no way to tie the scalar itself when it holds
+a typeglob, and no way to untie a scalar that has had a typeglob
+assigned to it.
+
+Now there is a deprecation warning whenever a tie
+function is used on a handle without an explicit C<*>.
+
+=head2 User-defined case-mapping
+
+This feature is being deprecated due to its many issues, as documented in
+L<perlunicode/User-Defined Case Mappings (for serious hackers only)>.
+This feature will be removed in Perl 5.16.  Instead use the CPAN module
+L<Unicode::Casing>, which provides improved functionality.
+
+=head2 Deprecated modules
+
+The following module will be removed from the core distribution in a
+future release, and should be installed from CPAN instead.  Distributions
+on CPAN that require this should add it to their prerequisites.  The
+core version of these module now issues a deprecation warning.
+
+If you ship a packaged version of Perl, either alone or as part of a
+larger system, then you should carefully consider the repercussions of
+core module deprecations.  You may want to consider shipping your default
+build of Perl with a package for the deprecated module that
+installs into C<vendor> or C<site> Perl library directories.  This will
+inhibit the deprecation warnings.
+
+Alternatively, you may want to consider patching F<lib/deprecate.pm>
+to provide deprecation warnings specific to your packaging system
+or distribution of Perl, consistent with how your packaging system
+or distribution manages a staged transition from a release where the
+installation of a single package provides the given functionality, to
+a later release where the system administrator needs to know to install
+multiple packages to get that same functionality.
+
+You can silence these deprecation warnings by installing the module
+in question from CPAN.  To install the latest version of it by role
+rather than by name, just install C<Task::Deprecations::5_14>.
+
+=over
+
+=item L<Devel::DProf>
+
+We strongly recommend that you install and use L<Devel::NYTProf> instead
+of L<Devel::DProf>, as L<Devel::NYTProf> offers significantly
+improved profiling and reporting.
+
+=back
+
+=head1 Performance Enhancements
+
+=head2 "Safe signals" optimisation
+
+Signal dispatch has been moved from the runloop into control ops.
+This should give a few percent speed increase, and eliminates nearly
+all the speed penalty caused by the introduction of "safe signals"
+in 5.8.0.  Signals should still be dispatched within the same
+statement as they were previously.  If this does I<not> happen, or
+if you find it possible to create uninterruptible loops, this is a
+bug, and reports are encouraged of how to recreate such issues.
+
+=head2 Optimisation of shift() and pop() calls without arguments
+
+Two fewer OPs are used for shift() and pop() calls with no argument (with
+implicit C<@_>).  This change makes shift() 5% faster than C<shift @_>
+on non-threaded perls, and 25% faster on threaded ones.
+
+=head2 Optimisation of regexp engine string comparison work
+
+The C<foldEQ_utf8> API function for case-insensitive comparison of strings (which
+is used heavily by the regexp engine) was substantially refactored and
+optimised -- and its documentation much improved as a free bonus.
+
+=head2 Regular expression compilation speed-up
+
+Compiling regular expressions has been made faster when upgrading
+the regex to utf8 is necessary but this isn't known when the compilation begins.
+
+=head2 String appending is 100 times faster
+
+When doing a lot of string appending, perls built to use the system's
+C<malloc> could end up allocating a lot more memory than needed in a
+inefficient way.
+
+C<sv_grow>, the function used to allocate more memory if necessary
+when appending to a string, has been taught to round up the memory
+it requests to a certain geometric progression, making it much faster on
+certain platforms and configurations.  On Win32, it's now about 100 times
+faster.
+
+=head2 Eliminate C<PL_*> accessor functions under ithreads
+
+When C<MULTIPLICITY> was first developed, and interpreter state moved into
+an interpreter struct, thread- and interpreter-local C<PL_*> variables
+were defined as macros that called accessor functions (returning the
+address of the value) outside the Perl core.  The intent was to allow
+members within the interpreter struct to change size without breaking
+binary compatibility, so that bug fixes could be merged to a maintenance
+branch that necessitated such a size change.  This mechanism was redundant
+and penalised well-behaved code.  It has been removed.
+
+=head2 Freeing weak references
+
+When there are many weak references to an object, freeing that object
+can under some circumstances take O(I<N*N>) time to free, where
+I<N> is the number of references.  The circumstances in which this can happen
+have been reduced [perl #75254]
+
+=head2 Lexical array and hash assignments
+
+An earlier optimisation to speed up C<my @array = ...> and
+C<my %hash = ...> assignments caused a bug and was disabled in Perl 5.12.0.
+
+Now we have found another way to speed up these assignments [perl #82110].
+
+=head2 C<@_> uses less memory
+
+Previously, C<@_> was allocated for every subroutine at compile time with
+enough space for four entries.  Now this allocation is done on demand when
+the subroutine is called [perl #72416].
+
+=head2 Size optimisations to SV and HV structures
+
+C<xhv_fill> has been eliminated from C<struct xpvhv>, saving 1 IV per hash and
+on some systems will cause C<struct xpvhv> to become cache-aligned.  To avoid
+this memory saving causing a slowdown elsewhere, boolean use of C<HvFILL>
+now calls C<HvTOTALKEYS> instead (which is equivalent), so while the fill
+data when actually required are now calculated on demand, cases when
+this needs to be done should be rare.
+
+The order of structure elements in SV bodies has changed.  Effectively,
+the NV slot has swapped location with STASH and MAGIC.  As all access to
+SV members is via macros, this should be completely transparent.  This
+change allows the space saving for PVHVs documented above, and may reduce
+the memory allocation needed for PVIVs on some architectures.
+
+C<XPV>, C<XPVIV>, and C<XPVNV> now allocate only the parts of the C<SV> body
+they actually use, saving some space.
+
+Scalars containing regular expressions now allocate only the part of the C<SV>
+body they actually use, saving some space.
+
+=head2 Memory consumption improvements to Exporter
+
+The C<@EXPORT_FAIL> AV is no longer created unless needed, hence neither is
+the typeglob backing it.  This saves about 200 bytes for every package that
+uses Exporter but doesn't use this functionality.
+
+=head2 Memory savings for weak references
+
+For weak references, the common case of just a single weak reference
+per referent has been optimised to reduce the storage required.  In this
+case it saves the equivalent of one small Perl array per referent.
+
+=head2 C<%+> and C<%-> use less memory
+
+The bulk of the C<Tie::Hash::NamedCapture> module used to be in the Perl
+core.  It has now been moved to an XS module to reduce overhead for
+programs that do not use C<%+> or C<%->.
+
+=head2 Multiple small improvements to threads
+
+The internal structures of threading now make fewer API calls and fewer
+allocations, resulting in noticeably smaller object code.  Additionally,
+many thread context checks have been deferred so they're done only 
+as needed (although this is only possible for non-debugging builds).
+
+=head2 Adjacent pairs of nextstate opcodes are now optimized away
+
+Previously, in code such as
+
+    use constant DEBUG => 0;
+
+    sub GAK {
+        warn if DEBUG;
+        print "stuff\n";
+    }
+
+the ops for C<warn if DEBUG> would be folded to a C<null> op (C<ex-const>), but
+the C<nextstate> op would remain, resulting in a runtime op dispatch of
+C<nextstate>, C<nextstate>, etc.
+
+The execution of a sequence of C<nextstate> ops is indistinguishable from just
+the last C<nextstate> op so the peephole optimizer now eliminates the first of
+a pair of C<nextstate> ops except when the first carries a label, since labels
+must not be eliminated by the optimizer, and label usage isn't conclusively known
+at compile time.
+
+=head1 Modules and Pragmata
+
+=head2 New Modules and Pragmata
+
+=over 4
+
+=item *
+
+L<CPAN::Meta::YAML> 0.003 has been added as a dual-life module.  It supports a
+subset of YAML sufficient for reading and writing F<META.yml> and F<MYMETA.yml> files
+included with CPAN distributions or generated by the module installation
+toolchain.  It should not be used for any other general YAML parsing or
+generation task.
+
+=item *
+
+L<CPAN::Meta> version 2.110440 has been added as a dual-life module.  It
+provides a standard library to read, interpret and write CPAN distribution
+metadata files (like F<META.json> and F<META.yml>) that describe a
+distribution, its contents, and the requirements for building it and
+installing it.  The latest CPAN distribution metadata specification is
+included as L<CPAN::Meta::Spec> and notes on changes in the specification
+over time are given in L<CPAN::Meta::History>.
+
+=item *
+
+L<HTTP::Tiny> 0.012 has been added as a dual-life module.  It is a very
+small, simple HTTP/1.1 client designed for simple GET requests and file
+mirroring.  It has been added so that F<CPAN.pm> and L<CPANPLUS> can
+"bootstrap" HTTP access to CPAN using pure Perl without relying on external
+binaries like L<curl(1)> or L<wget(1)>.
+
+=item *
+
+L<JSON::PP> 2.27105 has been added as a dual-life module to allow CPAN
+clients to read F<META.json> files in CPAN distributions.
+
+=item *
+
+L<Module::Metadata> 1.000004 has been added as a dual-life module.  It gathers
+package and POD information from Perl module files.  It is a standalone module
+based on L<Module::Build::ModuleInfo> for use by other module installation
+toolchain components.  L<Module::Build::ModuleInfo> has been deprecated in
+favor of this module instead.
+
+=item *
+
+L<Perl::OSType> 1.002 has been added as a dual-life module.  It maps Perl
+operating system names (like "dragonfly" or "MSWin32") to more generic types
+with standardized names (like "Unix" or "Windows").  It has been refactored
+out of L<Module::Build> and L<ExtUtils::CBuilder> and consolidates such mappings into
+a single location for easier maintenance.
+
+=item *
+
+The following modules were added by the L<Unicode::Collate> 
+upgrade.  See below for details.
+
+L<Unicode::Collate::CJK::Big5>
+
+L<Unicode::Collate::CJK::GB2312>
+
+L<Unicode::Collate::CJK::JISX0208>
+
+L<Unicode::Collate::CJK::Korean>
+
+L<Unicode::Collate::CJK::Pinyin>
+
+L<Unicode::Collate::CJK::Stroke>
+
+=item *
+
+L<Version::Requirements> version 0.101020 has been added as a dual-life
+module.  It provides a standard library to model and manipulates module
+prerequisites and version constraints defined in L<CPAN::Meta::Spec>.
+
+=back
+
+=head2 Updated Modules and Pragma
+
+=over 4
+
+=item *
+
+L<attributes> has been upgraded from version 0.12 to 0.14.
+
+=item *
+
+L<Archive::Extract> has been upgraded from version 0.38 to 0.48.
+
+Updates since 0.38 include: a safe print method that guards
+L<Archive::Extract> from changes to C<$\>; a fix to the tests when run in core
+Perl; support for TZ files; a modification for the lzma
+logic to favour L<IO::Uncompress::Unlzma>; and a fix
+for an issue with NetBSD-current and its new L<unzip(1)>
+executable.
+
+=item *
+
+L<Archive::Tar> has been upgraded from version 1.54 to 1.76.
+
+Important changes since 1.54 include the following:
+
+=over
+
+=item *
+
+Compatibility with busybox implementations of L<tar(1)>.
+
+=item *
+
+A fix so that write() and create_archive()
+close only filehandles they themselves opened.
+
+=item *
+
+A bug was fixed regarding the exit code of extract_archive.
+
+=item *
+
+The L<ptar(1)> utility has a new option to allow safe creation of
+tarballs without world-writable files on Windows, allowing those
+archives to be uploaded to CPAN.
+
+=item *
+
+A new L<ptargrep(1)> utility for using regular expressions against 
+the contents of files in a tar archive.
+
+=item *
+
+L<pax> extended headers are now skipped.
+
+=back
+
+=item *
+
+L<Attribute::Handlers> has been upgraded from version 0.87 to 0.89.
+
+=item *
+
+L<autodie> has been upgraded from version 2.06_01 to 2.1001.
+
+=item *
+
+L<AutoLoader> has been upgraded from version 5.70 to 5.71.
+
+=item *
+
+The L<B> module has been upgraded from version 1.23 to 1.29.
+
+It no longer crashes when taking apart a C<y///> containing characters
+outside the octet range or compiled in a C<use utf8> scope.
+
+The size of the shared object has been reduced by about 40%, with no
+reduction in functionality.
+
+=item *
+
+L<B::Concise> has been upgraded from version 0.78 to 0.83.
+
+L<B::Concise> marks rv2sv(), rv2av(), and rv2hv() ops with the new
+C<OPpDEREF> flag as "DREFed".
+
+It no longer produces mangled output with the B<-tree> option
+[perl #80632].
+
+=item *
+
+L<B::Debug> has been upgraded from version 1.12 to 1.16.
+
+=item *
+
+L<B::Deparse> has been upgraded from version 0.96 to 1.03.
+
+The deparsing of a C<nextstate> op has changed when it has both a
+change of package relative to the previous nextstate, or a change of
+C<%^H> or other state and a label.  The label was previously emitted
+first, but is now emitted last (5.12.1).
+
+The C<no 5.13.2> or similar form is now correctly handled by L<B::Deparse>
+(5.12.3).
+
+L<B::Deparse> now properly handles the code that applies a conditional
+pattern match against implicit C<$_> as it was fixed in [perl #20444].
+
+Deparsing of C<our> followed by a variable with funny characters
+(as permitted under the C<use utf8> pragma) has also been fixed [perl #33752].
+
+=item *
+
+L<B::Lint> has been upgraded from version 1.11_01 to 1.13.
+
+=item *
+
+L<base> has been upgraded from version 2.15 to 2.16.
+
+=item *
+
+L<Benchmark> has been upgraded from version 1.11 to 1.12.
+
+=item *
+
+L<bignum> has been upgraded from version 0.23 to 0.27.
+
+=item *
+
+L<Carp> has been upgraded from version 1.15 to 1.20.
+
+L<Carp> now detects incomplete L<caller()|perlfunc/"caller EXPR">
+overrides and avoids using bogus C<@DB::args>.  To provide backtraces,
+Carp relies on particular behaviour of the caller() builtin.
+L<Carp> now detects if other code has overridden this with an
+incomplete implementation, and modifies its backtrace accordingly.
+Previously incomplete overrides would cause incorrect values in
+backtraces (best case), or obscure fatal errors (worst case).
+
+This fixes certain cases of "Bizarre copy of ARRAY" caused by modules
+overriding caller() incorrectly (5.12.2).
+
+It now also avoids using regular expressions that cause Perl to
+load its Unicode tables, so as to avoid the "BEGIN not safe after
+errors" error that ensue if there has been a syntax error
+[perl #82854].
+
+=item *
+
+L<CGI> has been upgraded from version 3.48 to 3.52.
+
+This provides the following security fixes: the MIME boundary in 
+multipart_init() is now random and the handling of 
+newlines embedded in header values has been improved.
+
+=item *
+
+L<Compress::Raw::Bzip2> has been upgraded from version 2.024 to 2.033.
+
+It has been updated to use L<bzip2(1)> 1.0.6.
+
+=item *
+
+L<Compress::Raw::Zlib> has been upgraded from version 2.024 to 2.033.
+
+=item *
+
+L<constant> has been upgraded from version 1.20 to 1.21.
+
+Unicode constants work once more.  They have been broken since Perl 5.10.0
+[CPAN RT #67525].
+
+=item *
+
+L<CPAN> has been upgraded from version 1.94_56 to 1.9600.
+
+Major highlights:
+
+=over 4
+
+=item * much less configuration dialog hassle
+
+=item * support for F<META/MYMETA.json>
+
+=item * support for L<local::lib>
+
+=item * support for L<HTTP::Tiny> to reduce the dependency on FTP sites 
+
+=item * automatic mirror selection
+
+=item * iron out all known bugs in configure_requires
+
+=item * support for distributions compressed with L<bzip2(1)>
+
+=item * allow F<Foo/Bar.pm> on the command line to mean C<Foo::Bar>
+
+=back
+
+=item *
+
+L<CPANPLUS> has been upgraded from version 0.90 to 0.9103.
+
+A change to F<cpanp-run-perl>
+resolves L<RT #55964|http://rt.cpan.org/Public/Bug/Display.html?id=55964>
+and L<RT #57106|http://rt.cpan.org/Public/Bug/Display.html?id=57106>, both
+of which related to failures to install distributions that use
+C<Module::Install::DSL> (5.12.2).
+
+A dependency on L<Config> was not recognised as a
+core module dependency.  This has been fixed.
+
+L<CPANPLUS> now includes support for F<META.json> and F<MYMETA.json>.
+
+=item *
+
+L<CPANPLUS::Dist::Build> has been upgraded from version 0.46 to 0.54.
+
+=item *
+
+L<Data::Dumper> has been upgraded from version 2.125 to 2.130_02.
+
+The indentation used to be off when C<$Data::Dumper::Terse> was set.  This
+has been fixed [perl #73604].
+
+This upgrade also fixes a crash when using custom sort functions that might
+cause the stack to change [perl #74170].
+
+L<Dumpxs> no longer crashes with globs returned by C<*$io_ref>
+[perl #72332].
+
+=item *
+
+L<DB_File> has been upgraded from version 1.820 to 1.821.
+
+=item *
+
+L<DBM_Filter> has been upgraded from version 0.03 to 0.04.
+
+=item *
+
+L<Devel::DProf> has been upgraded from version 20080331.00 to 20110228.00.
+
+Merely loading L<Devel::DProf> now no longer triggers profiling to start.
+Both C<use Devel::DProf> and C<perl -d:DProf ...> behave as before and start
+the profiler.
+
+B<NOTE>: L<Devel::DProf> is deprecated and will be removed from a future
+version of Perl.  We strongly recommend that you install and use
+L<Devel::NYTProf> instead, as it offers significantly improved
+profiling and reporting.
+
+=item *
+
+L<Devel::Peek> has been upgraded from version 1.04 to 1.07.
+
+=item *
+
+L<Devel::SelfStubber> has been upgraded from version 1.03 to 1.05.
+
+=item *
+
+L<diagnostics> has been upgraded from version 1.19 to 1.22.
+
+It now renders pod links slightly better, and has been taught to find
+descriptions for messages that share their descriptions with other
+messages.
+
+=item *
+
+L<Digest::MD5> has been upgraded from version 2.39 to 2.51.
+
+It is now safe to use this module in combination with threads.
+
+=item *
+
+L<Digest::SHA> has been upgraded from version 5.47 to 5.61.
+
+C<shasum> now more closely mimics L<sha1sum(1)>/L<md5sum(1)>.
+
+C<addfile> accepts all POSIX filenames.
+
+New SHA-512/224 and SHA-512/256 transforms (ref. NIST Draft FIPS 180-4
+[February 2011])
+
+=item *
+
+L<DirHandle> has been upgraded from version 1.03 to 1.04.
+
+=item *
+
+L<Dumpvalue> has been upgraded from version 1.13 to 1.16.
+
+=item *
+
+L<DynaLoader> has been upgraded from version 1.10 to 1.13.
+
+It fixes a buffer overflow when passed a very long file name.
+
+It no longer inherits from L<AutoLoader>; hence it no longer
+produces weird error messages for unsuccessful method calls on classes that
+inherit from L<DynaLoader> [perl #84358].
+
+=item *
+
+L<Encode> has been upgraded from version 2.39 to 2.42.
+
+Now, all 66 Unicode non-characters are treated the same way U+FFFF has
+always been treated: in cases when it was disallowed, all 66 are
+disallowed, and in cases where it warned, all 66 warn.
+
+=item *
+
+L<Env> has been upgraded from version 1.01 to 1.02.
+
+=item *
+
+L<Errno> has been upgraded from version 1.11 to 1.13.
+
+The implementation of L<Errno> has been refactored to use about 55% less memory.
+
+On some platforms with unusual header files, like Win32 L<gcc(1)> using C<mingw64>
+headers, some constants that weren't actually error numbers have been exposed
+by L<Errno>.  This has been fixed [perl #77416].
+
+=item *
+
+L<Exporter> has been upgraded from version 5.64_01 to 5.64_03.
+
+Exporter no longer overrides C<$SIG{__WARN__}> [perl #74472]
+
+=item *
+
+L<ExtUtils::CBuilder> has been upgraded from version 0.27 to 0.280203.
+
+=item *
+
+L<ExtUtils::Command> has been upgraded from version 1.16 to 1.17.
+
+=item *
+
+L<ExtUtils::Constant> has been upgraded from 0.22 to 0.23.
+
+The L<AUTOLOAD> helper code generated by C<ExtUtils::Constant::ProxySubs>
+can now croak() for missing constants, or generate a complete C<AUTOLOAD>
+subroutine in XS, allowing simplification of many modules that use it
+(L<Fcntl>, L<File::Glob>, L<GDBM_File>, L<I18N::Langinfo>, L<POSIX>,
+L<Socket>).
+
+L<ExtUtils::Constant::ProxySubs> can now optionally push the names of all
+constants onto the package's C<@EXPORT_OK>.
+
+=item *
+
+L<ExtUtils::Install> has been upgraded from version 1.55 to 1.56.
+
+=item *
+
+L<ExtUtils::MakeMaker> has been upgraded from version 6.56 to 6.57_05.
+
+=item *
+
+L<ExtUtils::Manifest> has been upgraded from version 1.57 to 1.58.
+
+=item *
+
+L<ExtUtils::ParseXS> has been upgraded from version 2.21 to 2.2210.
+
+=item *
+
+L<Fcntl> has been upgraded from version 1.06 to 1.11.
+
+=item *
+
+L<File::Basename> has been upgraded from version 2.78 to 2.82.
+
+=item *
+
+L<File::CheckTree> has been upgraded from version 4.4 to 4.41.
+
+=item *
+
+L<File::Copy> has been upgraded from version 2.17 to 2.21.
+
+=item *
+
+L<File::DosGlob> has been upgraded from version 1.01 to 1.04.
+
+It allows patterns containing literal parentheses: they no longer need to
+be escaped.  On Windows, it no longer
+adds an extra F<./> to file names
+returned when the pattern is a relative glob with a drive specification,
+like F<C:*.pl> [perl #71712].
+
+=item *
+
+L<File::Fetch> has been upgraded from version 0.24 to 0.32.
+
+L<HTTP::Lite> is now supported for the "http" scheme.
+
+The L<fetch(1)> utility is supported on FreeBSD, NetBSD, and
+Dragonfly BSD for the C<http> and C<ftp> schemes.
+
+=item *
+
+L<File::Find> has been upgraded from version 1.15 to 1.19.
+
+It improves handling of backslashes on Windows, so that paths like
+F<C:\dir\/file> are no longer generated [perl #71710].
+
+=item *
+
+L<File::Glob> has been upgraded from version 1.07 to 1.12.
+
+=item *
+
+L<File::Spec> has been upgraded from version 3.31 to 3.33.
+
+Several portability fixes were made in L<File::Spec::VMS>: a colon is now
+recognized as a delimiter in native filespecs; caret-escaped delimiters are
+recognized for better handling of extended filespecs; catpath() returns
+an empty directory rather than the current directory if the input directory
+name is empty; and abs2rel() properly handles Unix-style input (5.12.2).
+
+=item *
+
+L<File::stat> has been upgraded from 1.02 to 1.05.
+
+The C<-x> and C<-X> file test operators now work correctly when run
+by the superuser.
+
+=item *
+
+L<Filter::Simple> has been upgraded from version 0.84 to 0.86.
+
+=item *
+
+L<GDBM_File> has been upgraded from 1.10 to 1.14.
+
+This fixes a memory leak when DBM filters are used.
+
+=item *
+
+L<Hash::Util> has been upgraded from 0.07 to 0.11.
+
+L<Hash::Util> no longer emits spurious "uninitialized" warnings when
+recursively locking hashes that have undefined values [perl #74280].
+
+=item *
+
+L<Hash::Util::FieldHash> has been upgraded from version 1.04 to 1.09.
+
+=item *
+
+L<I18N::Collate> has been upgraded from version 1.01 to 1.02.
+
+=item *
+
+L<I18N::Langinfo> has been upgraded from version 0.03 to 0.08.
+
+langinfo() now defaults to using C<$_> if there is no argument given, just
+as the documentation has always claimed.
+
+=item *
+
+L<I18N::LangTags> has been upgraded from version 0.35 to 0.35_01.
+
+=item *
+
+L<if> has been upgraded from version 0.05 to 0.0601.
+
+=item *
+
+L<IO> has been upgraded from version 1.25_02 to 1.25_04.
+
+This version of L<IO> includes a new L<IO::Select>, which now allows L<IO::Handle>
+objects (and objects in derived classes) to be removed from an L<IO::Select> set
+even if the underlying file descriptor is closed or invalid.
+
+=item *
+
+L<IPC::Cmd> has been upgraded from version 0.54 to 0.70.
+
+Resolves an issue with splitting Win32 command lines.  An argument
+consisting of the single character "0" used to be omitted (CPAN RT #62961).
+
+=item *
+
+L<IPC::Open3> has been upgraded from 1.05 to 1.09.
+
+open3() now produces an error if the C<exec> call fails, allowing this
+condition to be distinguished from a child process that exited with a
+non-zero status [perl #72016].
+
+The internal xclose() routine now knows how to handle file descriptors as
+documented, so duplicating C<STDIN> in a child process using its file
+descriptor now works [perl #76474].
+
+=item *
+
+L<IPC::SysV> has been upgraded from version 2.01 to 2.03.
+
+=item *
+
+L<lib> has been upgraded from version 0.62 to 0.63.
+
+=item *
+
+L<Locale::Maketext> has been upgraded from version 1.14 to 1.19.
+
+L<Locale::Maketext> now supports external caches.
+
+This upgrade also fixes an infinite loop in
+C<Locale::Maketext::Guts::_compile()> when
+working with tainted values (CPAN RT #40727).
+
+C<< ->maketext >> calls now back up and restore C<$@> so error
+messages are not suppressed (CPAN RT #34182).
+
+=item *
+
+L<Log::Message> has been upgraded from version 0.02 to 0.04.
+
+=item *
+
+L<Log::Message::Simple> has been upgraded from version 0.06 to 0.08.
+
+=item *
+
+L<Math::BigInt> has been upgraded from version 1.89_01 to 1.994.
+
+This fixes, among other things, incorrect results when computing binomial
+coefficients [perl #77640].
+
+It also prevents C<sqrt($int)> from crashing under C<use bigrat>.
+[perl #73534].
+
+=item *
+
+L<Math::BigInt::FastCalc> has been upgraded from version 0.19 to 0.28.
+
+=item *
+
+L<Math::BigRat> has been upgraded from version 0.24 to 0.26_02.
+
+=item *
+
+L<Memoize> has been upgraded from version 1.01_03 to 1.02.
+
+=item *
+
+L<MIME::Base64> has been upgraded from 3.08 to 3.13.
+
+Includes new functions to calculate the length of encoded and decoded
+base64 strings.
+
+Now provides encode_base64url() and decode_base64url() functions to process
+the base64 scheme for "URL applications".
+
+=item *
+
+L<Module::Build> has been upgraded from version 0.3603 to 0.3800.
+
+A notable change is the deprecation of several modules.
+L<Module::Build::Version> has been deprecated and L<Module::Build> now
+relies on the L<version> pragma directly.  L<Module::Build::ModuleInfo> has
+been deprecated in favor of a standalone copy called L<Module::Metadata>.
+L<Module::Build::YAML> has been deprecated in favor of L<CPAN::Meta::YAML>.
+
+L<Module::Build> now also generates F<META.json> and F<MYMETA.json> files
+in accordance with version 2 of the CPAN distribution metadata specification,
+L<CPAN::Meta::Spec>.  The older format F<META.yml> and F<MYMETA.yml> files are
+still generated.
+
+=item *
+
+L<Module::CoreList> has been upgraded from version 2.29 to 2.47.
+
+Besides listing the updated core modules of this release, it also stops listing
+the C<Filespec> module.  That module never existed in core.  The scripts
+generating L<Module::CoreList> confused it with L<VMS::Filespec>, which actually
+is a core module as of Perl 5.8.7.
+
+=item *
+
+L<Module::Load> has been upgraded from version 0.16 to 0.18.
+
+=item *
+
+L<Module::Load::Conditional> has been upgraded from version 0.34 to 0.44.
+
+=item *
+
+The L<mro> pragma has been upgraded from version 1.02 to 1.07.
+
+=item *
+
+L<NDBM_File> has been upgraded from version 1.08 to 1.12.
+
+This fixes a memory leak when DBM filters are used.
+
+=item *
+
+L<Net::Ping> has been upgraded from version 2.36 to 2.38.
+
+=item *
+
+L<NEXT> has been upgraded from version 0.64 to 0.65.
+
+=item *
+
+L<Object::Accessor> has been upgraded from version 0.36 to 0.38.
+
+=item *
+
+L<ODBM_File> has been upgraded from version 1.07 to 1.10.
+
+This fixes a memory leak when DBM filters are used.
+
+=item *
+
+L<Opcode> has been upgraded from version 1.15 to 1.18.
+
+=item *
+
+The L<overload> pragma has been upgraded from 1.10 to 1.13.
+
+C<overload::Method> can now handle subroutines that are themselves blessed
+into overloaded classes [perl #71998].
+
+The documentation has greatly improved.  See L</Documentation> below.
+
+=item *
+
+L<Params::Check> has been upgraded from version 0.26 to 0.28.
+
+=item *
+
+The L<parent> pragma has been upgraded from version 0.223 to 0.225.
+
+=item *
+
+L<Parse::CPAN::Meta> has been upgraded from version 1.40 to 1.4401.
+
+The latest Parse::CPAN::Meta can now read YAML and JSON files using
+L<CPAN::Meta::YAML> and L<JSON::PP>, which are now part of the Perl core.
+
+=item *
+
+L<PerlIO::encoding> has been upgraded from version 0.12 to 0.14.
+
+=item *
+
+L<PerlIO::scalar> has been upgraded from 0.07 to 0.11.
+
+A read() after a seek() beyond the end of the string no longer thinks it
+has data to read [perl #78716].
+
+=item *
+
+L<PerlIO::via> has been upgraded from version 0.09 to 0.11.
+
+=item *
+
+L<Pod::Html> has been upgraded from version 1.09 to 1.11.
+
+=item *
+
+L<Pod::LaTeX> has been upgraded from version 0.58 to 0.59.
+
+=item *
+
+L<Pod::Perldoc> has been upgraded from version 3.15_02 to 3.15_03.
+
+=item *
+
+L<Pod::Simple> has been upgraded from version 3.13 to 3.16.
+
+=item *
+
+L<POSIX> has been upgraded from 1.19 to 1.24.
+
+It now includes constants for POSIX signal constants.
+
+=item *
+
+The L<re> pragma has been upgraded from version 0.11 to 0.18.
+
+The C<use re '/flags'> subpragma is new.
+
+The regmust() function used to crash when called on a regular expression
+belonging to a pluggable engine.  Now it croaks instead.
+
+regmust() no longer leaks memory.
+
+=item *
+
+L<Safe> has been upgraded from version 2.25 to 2.29.
+
+Coderefs returned by reval() and rdo() are now wrapped via
+wrap_code_refs() (5.12.1).
+
+This fixes a possible infinite loop when looking for coderefs.
+
+It adds several C<version::vxs::*> routines to the default share.
+
+=item *
+
+L<SDBM_File> has been upgraded from version 1.06 to 1.09.
+
+=item *
+
+L<SelfLoader> has been upgraded from 1.17 to 1.18.
+
+It now works in taint mode [perl #72062].
+
+=item *
+
+The L<sigtrap> pragma has been upgraded from version 1.04 to 1.05.
+
+It no longer tries to modify read-only arguments when generating a
+backtrace [perl #72340].
+
+=item *
+
+L<Socket> has been upgraded from version 1.87 to 1.94.
+
+See L</Improved IPv6 support> above.
+
+=item *
+
+L<Storable> has been upgraded from version 2.22 to 2.27.
+
+Includes performance improvement for overloaded classes.
+
+This adds support for serialising code references that contain UTF-8 strings
+correctly.  The L<Storable> minor version
+number changed as a result, meaning that
+L<Storable> users who set C<$Storable::accept_future_minor> to a C<FALSE> value
+will see errors (see L<Storable/FORWARD COMPATIBILITY> for more details).
+
+Freezing no longer gets confused if the Perl stack gets reallocated
+during freezing [perl #80074].
+
+=item *
+
+L<Sys::Hostname> has been upgraded from version 1.11 to 1.16.
+
+=item *
+
+L<Term::ANSIColor> has been upgraded from version 2.02 to 3.00.
+
+=item *
+
+L<Term::UI> has been upgraded from version 0.20 to 0.26.
+
+=item *
+
+L<Test::Harness> has been upgraded from version 3.17 to 3.23.
+
+=item *
+
+L<Test::Simple> has been upgraded from version 0.94 to 0.98.
+
+Among many other things, subtests without a C<plan> or C<no_plan> now have an
+implicit done_testing() added to them.
+
+=item *
+
+L<Thread::Semaphore> has been upgraded from version 2.09 to 2.12.
+
+It provides two new methods that give more control over the decrementing of
+semaphores: C<down_nb> and C<down_force>.
+
+=item *
+
+L<Thread::Queue> has been upgraded from version 2.11 to 2.12.
+
+=item *
+
+The L<threads> pragma has been upgraded from version 1.75 to 1.83.
+
+=item *
+
+The L<threads::shared> pragma has been upgraded from version 1.32 to 1.37.
+
+=item *
+
+L<Tie::Hash> has been upgraded from version 1.03 to 1.04.
+
+Calling C<< Tie::Hash->TIEHASH() >> used to loop forever.  Now it C<croak>s.
+
+=item *
+
+L<Tie::Hash::NamedCapture> has been upgraded from version 0.06 to 0.08.
+
+=item *
+
+L<Tie::RefHash> has been upgraded from version 1.38 to 1.39.
+
+=item *
+
+L<Time::HiRes> has been upgraded from version 1.9719 to 1.9721_01.
+
+=item *
+
+L<Time::Local> has been upgraded from version 1.1901_01 to 1.2000.
+
+=item *
+
+L<Time::Piece> has been upgraded from version 1.15_01 to 1.20_01.
+
+=item *
+
+L<Unicode::Collate> has been upgraded from version 0.52_01 to 0.73.
+
+L<Unicode::Collate> has been updated to use Unicode 6.0.0.
+
+L<Unicode::Collate::Locale> now supports a plethora of new locales: I<ar, be,
+bg, de__phonebook, hu, hy, kk, mk, nso, om, tn, vi, hr, ig, ja, ko, ru, sq, 
+se, sr, to, uk, zh, zh__big5han, zh__gb2312han, zh__pinyin>, and I<zh__stroke>.
+
+The following modules have been added:
+
+L<Unicode::Collate::CJK::Big5> for C<zh__big5han> which makes 
+tailoring of CJK Unified Ideographs in the order of CLDR's big5han ordering.
+
+L<Unicode::Collate::CJK::GB2312> for C<zh__gb2312han> which makes
+tailoring of CJK Unified Ideographs in the order of CLDR's gb2312han ordering.
+
+L<Unicode::Collate::CJK::JISX0208> which makes tailoring of 6355 kanji 
+(CJK Unified Ideographs) in the JIS X 0208 order.
+
+L<Unicode::Collate::CJK::Korean> which makes tailoring of CJK Unified Ideographs 
+in the order of CLDR's Korean ordering.
+
+L<Unicode::Collate::CJK::Pinyin> for C<zh__pinyin> which makes
+tailoring of CJK Unified Ideographs in the order of CLDR's pinyin ordering.
+
+L<Unicode::Collate::CJK::Stroke> for C<zh__stroke> which makes
+tailoring of CJK Unified Ideographs in the order of CLDR's stroke ordering.
+
+This also sees the switch from using the pure-Perl version of this
+module to the XS version.
+
+=item *
+
+L<Unicode::Normalize> has been upgraded from version 1.03 to 1.10.
+
+=item *
+
+L<Unicode::UCD> has been upgraded from version 0.27 to 0.32.
+
+A new function, Unicode::UCD::num(), has been added.  This function
+returns the numeric value of the string passed it or C<undef> if the string
+in its entirety has no "safe" numeric value.  (For more detail, and for the
+definition of "safe", see L<Unicode::UCD/num()>.)
+
+This upgrade also includes several bug fixes:
+
+=over 4
+
+=item charinfo()
+
+=over 4
+
+=item *
+
+It is now updated to Unicode Version 6.0.0 with I<Corrigendum #8>, 
+excepting that, just as with Perl 5.14, the code point at U+1F514 has no name.
+
+=item *
+
+Hangul syllable code points have the correct names, and their
+decompositions are always output without requiring L<Lingua::KO::Hangul::Util>
+to be installed.
+
+=item *
+
+CJK (Chinese-Japanese-Korean) code points U+2A700 to U+2B734
+and U+2B740 to U+2B81D are now properly handled.
+
+=item *
+
+Numeric values are now output for those CJK code points that have them.
+
+=item *
+
+Names output for code points with multiple aliases are now the
+corrected ones.
+
+=back
+
+=item charscript()
+
+This now correctly returns "Unknown" instead of C<undef> for the script
+of a code point that hasn't been assigned another one.
+
+=item charblock()
+
+This now correctly returns "No_Block" instead of C<undef> for the block
+of a code point that hasn't been assigned to another one.
+
+=back
+
+=item *
+
+The L<version> pragma has been upgraded from 0.82 to 0.88.
+
+Because of a bug, now fixed, the is_strict() and is_lax() functions did not
+work when exported (5.12.1).
+
+=item *
+
+The L<warnings> pragma has been upgraded from version 1.09 to 1.12.
+
+Calling C<use warnings> without arguments is now significantly more efficient.
+
+=item *
+
+The L<warnings::register> pragma has been upgraded from version 1.01 to 1.02.
+
+It is now possible to register warning categories other than the names of
+packages using L<warnings::register>.  See L<perllexwarn(1)> for more information.
+
+=item *
+
+L<XSLoader> has been upgraded from version 0.10 to 0.13.
+
+=item *
+
+L<VMS::DCLsym> has been upgraded from version 1.03 to 1.05.
+
+Two bugs have been fixed [perl #84086]:
+
+The symbol table name was lost when tying a hash, due to a thinko in
+C<TIEHASH>.  The result was that all tied hashes interacted with the
+local symbol table.
+
+Unless a symbol table name had been explicitly specified in the call
+to the constructor, querying the special key C<:LOCAL> failed to
+identify objects connected to the local symbol table.
+
+=item *
+
+The L<Win32> module has been upgraded from version 0.39 to 0.44.
+
+This release has several new functions: Win32::GetSystemMetrics(),
+Win32::GetProductInfo(), Win32::GetOSDisplayName().
+
+The names returned by Win32::GetOSName() and Win32::GetOSDisplayName()
+have been corrected.
+
+=item *
+
+L<XS::Typemap> has been upgraded from version 0.03 to 0.05.
+
+=back
+
+=head2 Removed Modules and Pragmata
+
+As promised in Perl 5.12.0's release notes, the following modules have
+been removed from the core distribution, and if needed should be installed
+from CPAN instead.
+
+=over
+
+=item *
+
+L<Class::ISA> has been removed from the Perl core.  Prior version was 0.36.
+
+=item *
+
+L<Pod::Plainer> has been removed from the Perl core.  Prior version was 1.02.
+
+=item *
+
+L<Switch> has been removed from the Perl core.  Prior version was 2.16.
+
+=back
+
+The removal of L<Shell> has been deferred until after 5.14, as the
+implementation of L<Shell> shipped with 5.12.0 did not correctly issue the
+warning that it was to be removed from core.
+
+=head1 Documentation
+
+=head2 New Documentation
+
+=head3 L<perlgpl>
+
+L<perlgpl> has been updated to contain GPL version 1, as is included in the
+F<README> distributed with Perl (5.12.1).
+
+=head3 Perl 5.12.x delta files
+
+The perldelta files for Perl 5.12.1 to 5.12.3 have been added from the
+maintenance branch: L<perl5121delta>, L<perl5122delta>, L<perl5123delta>.
+
+=head3 L<perlpodstyle>
+
+New style guide for POD documentation,
+split mostly from the NOTES section of the L<pod2man(1)> manpage.
+
+=head3 L<perlsource>, L<perlinterp>, L<perlhacktut>, and L<perlhacktips>
+
+See L</perlhack and perlrepository revamp>, below.
+
+=head2 Changes to Existing Documentation
+
+=head3 L<perlmodlib> is now complete
+
+The L<perlmodlib> manpage that came with Perl 5.12.0 was missing several
+modules due to a bug in the script that generates the list.  This has been
+fixed [perl #74332] (5.12.1).
+
+=head3 Replace incorrect tr/// table in L<perlebcdic>
+
+L<perlebcdic> contains a helpful table to use in C<tr///> to convert
+between EBCDIC and Latin1/ASCII.  The table was the inverse of the one
+it describes, though the code that used the table worked correctly for
+the specific example given.
+
+The table has been corrected and the sample code changed to correspond.
+
+The table has also been changed to hex from octal, and the recipes in the
+pod have been altered to print out leading zeros to make all values
+the same length.
+
+=head3 Tricks for user-defined casing
+
+L<perlunicode> now contains an explanation of how to override, mangle
+and otherwise tweak the way Perl handles upper-, lower- and other-case
+conversions on Unicode data, and how to provide scoped changes to alter
+one's own code's behaviour without stomping on anybody else's.
+
+=head3 INSTALL explicitly states that Perl requires a C89 compiler
+
+This was already true, but it's now Officially Stated For The Record
+(5.12.2).
+
+=head3 Explanation of C<\xI<HH>> and C<\oI<OOO>> escapes
+
+L<perlop> has been updated with more detailed explanation of these two
+character escapes.
+
+=head3 B<-0I<NNN>> switch
+
+In L<perlrun>, the behaviour of the B<-0NNN> switch for B<-0400> or higher
+has been clarified (5.12.2).
+
+=head3 Maintenance policy
+
+L<perlpolicy> now contains the policy on what patches are acceptable for
+maintenance branches (5.12.1).
+
+=head3 Deprecation policy
+
+L<perlpolicy> now contains the policy on compatibility and deprecation
+along with definitions of terms like "deprecation" (5.12.2).
+
+=head3 New descriptions in L<perldiag>
+
+The following existing diagnostics are now documented:
+
+=over 4
+
+=item *
+
+L<Ambiguous use of %c resolved as operator %c|perldiag/"Ambiguous use of %c resolved as operator %c">
+
+=item *
+
+L<Ambiguous use of %c{%s} resolved to %c%s|perldiag/"Ambiguous use of %c{%s} resolved to %c%s">
+
+=item *
+
+L<Ambiguous use of %c{%s[...]} resolved to %c%s[...]|perldiag/"Ambiguous use of %c{%s[...]} resolved to %c%s[...]">
+
+=item *
+
+L<Ambiguous use of %c{%s{...}} resolved to %c%s{...}|perldiag/"Ambiguous use of %c{%s{...}} resolved to %c%s{...}">
+
+=item *
+
+L<Ambiguous use of -%s resolved as -&%s()|perldiag/"Ambiguous use of -%s resolved as -&%s()">
+
+=item *
+
+L<Invalid strict version format (%s)|perldiag/"Invalid strict version format (%s)">
+
+=item *
+
+L<Invalid version format (%s)|perldiag/"Invalid version format (%s)">
+
+=item *
+
+L<Invalid version object|perldiag/"Invalid version object">
+
+=back
+
+=head3 L<perlbook>
+
+L<perlbook> has been expanded to cover many more popular books.
+
+=head3 C<SvTRUE> macro
+
+The documentation for the C<SvTRUE> macro in
+L<perlapi> was simply wrong in stating that
+get-magic is not processed.  It has been corrected.
+
+=head3 op manipulation functions
+
+Several API functions that process optrees have been newly documented.
+
+=head3 L<perlvar> revamp
+
+L<perlvar> reorders the variables and groups them by topic.  Each variable
+introduced after Perl 5.000 notes the first version in which it is 
+available.  L<perlvar> also has a new section for deprecated variables to
+note when they were removed.
+
+=head3 Array and hash slices in scalar context
+
+These are now documented in L<perldata>.
+
+=head3 C<use locale> and formats
+
+L<perlform> and L<perllocale> have been corrected to state that
+C<use locale> affects formats.
+
+=head3 L<overload>
+
+L<overload>'s documentation has practically undergone a rewrite.  It
+is now much more straightforward and clear.
+
+=head3 perlhack and perlrepository revamp
+
+The L<perlhack> document is now much shorter, and focuses on the Perl 5
+development process and submitting patches to Perl.  The technical content
+has been moved to several new documents, L<perlsource>, L<perlinterp>,
+L<perlhacktut>, and L<perlhacktips>.  This technical content has 
+been only lightly edited.
+
+The perlrepository document has been renamed to L<perlgit>.  This new
+document is just a how-to on using git with the Perl source code.
+Any other content that used to be in perlrepository has been moved
+to L<perlhack>.
+
+=head3 Time::Piece examples
+
+Examples in L<perlfaq4> have been updated to show the use of
+L<Time::Piece>.
+
+=head1 Diagnostics
+
+The following additions or changes have been made to diagnostic output,
+including warnings and fatal error messages.  For the complete list of
+diagnostic messages, see L<perldiag>.
+
+=head2 New Diagnostics
+
+=head3 New Errors
+
+=over
+
+=item Closure prototype called
+
+This error occurs when a subroutine reference passed to an attribute
+handler is called, if the subroutine is a closure [perl #68560].
+
+=item Insecure user-defined property %s
+
+Perl detected tainted data when trying to compile a regular
+expression that contains a call to a user-defined character property
+function, meaning C<\p{IsFoo}> or C<\p{InFoo}>.
+See L<perlunicode/User-Defined Character Properties> and L<perlsec>.
+
+=item panic: gp_free failed to free glob pointer - something is repeatedly re-creating entries
+
+This new error is triggered if a destructor called on an object in a
+typeglob that is being freed creates a new typeglob entry containing an
+object with a destructor that creates a new entry containing an object etc.
+
+=item Parsing code internal error (%s)
+
+This new fatal error is produced when parsing
+code supplied by an extension violates the
+parser's API in a detectable way.
+
+=item refcnt: fd %d%s
+
+This new error only occurs if a internal consistency check fails when a
+pipe is about to be closed.
+
+=item Regexp modifier "/%c" may not appear twice
+
+The regular expression pattern has one of the
+mutually exclusive modifiers repeated.
+
+=item Regexp modifiers "/%c" and "/%c" are mutually exclusive
+
+The regular expression pattern has more than one of the mutually
+exclusive modifiers.
+
+=item Using !~ with %s doesn't make sense
+
+This error occurs when C<!~> is used with C<s///r> or C<y///r>.
+
+=back
+
+=head3 New Warnings
+
+=over
+
+=item "\b{" is deprecated; use "\b\{" instead
+
+=item "\B{" is deprecated; use "\B\{" instead
+
+Use of an unescaped "{" immediately following a C<\b> or C<\B> is now
+deprecated in order to reserve its use for Perl itself in a future release.
+
+=item Operation "%s" returns its argument for ...
+
+Performing an operation requiring Unicode semantics (such as case-folding)
+on a Unicode surrogate or a non-Unicode character now triggers this
+warning.
+
+=item Use of qw(...) as parentheses is deprecated
+
+See L</"Use of qw(...) as parentheses">, above, for details.
+
+=back
+
+=head2 Changes to Existing Diagnostics
+
+=over 4
+
+=item *
+
+The "Variable $foo is not imported" warning that precedes a
+C<strict 'vars'> error has now been assigned the "misc" category, so that
+C<no warnings> will suppress it [perl #73712].
+
+=item *
+
+warn() and die() now produce "Wide character" warnings when fed a
+character outside the byte range if C<STDERR> is a byte-sized handle.
+
+=item *
+
+The "Layer does not match this perl" error message has been replaced with
+these more helpful messages [perl #73754]:
+
+=over 4
+
+=item *
+
+PerlIO layer function table size (%d) does not match size expected by this
+perl (%d)
+
+=item *
+
+PerlIO layer instance size (%d) does not match size expected by this perl
+(%d)
+
+=back
+
+=item *
+
+The "Found = in conditional" warning that is emitted when a constant is
+assigned to a variable in a condition is now withheld if the constant is
+actually a subroutine or one generated by C<use constant>, since the value
+of the constant may not be known at the time the program is written
+[perl #77762].
+
+=item *
+
+Previously, if none of the gethostbyaddr(), gethostbyname() and
+gethostent() functions were implemented on a given platform, they would
+all die with the message "Unsupported socket function 'gethostent' called",
+with analogous messages for getnet*() and getserv*().  This has been
+corrected.
+
+=item *
+
+The warning message about unrecognized regular expression escapes passed
+through has been changed to include any literal "{" following the
+two-character escape.  For example, "\q{" is now emitted instead of "\q".
+
+=back
+
+=head1 Utility Changes
+
+=head3 L<perlbug(1)>
+
+=over 4
+
+=item *
+
+L<perlbug> now looks in the EMAIL environment variable for a return address
+if the REPLY-TO and REPLYTO variables are empty.
+
+=item *
+
+L<perlbug> did not previously generate a "From:" header, potentially
+resulting in dropped mail; it now includes that header.
+
+=item *
+
+The user's address is now used as the Return-Path.
+
+Many systems these days don't have a valid Internet domain name, and
+perlbug@perl.org does not accept email with a return-path that does
+not resolve.  So the user's address is now passed to sendmail so it's
+less likely to get stuck in a mail queue somewhere [perl #82996].
+
+=item *
+
+L<perlbug> now always gives the reporter a chance to change the email
+address it guesses for them (5.12.2).
+
+=item *
+
+L<perlbug> should no longer warn about uninitialized values when using the B<-d>
+and B<-v> options (5.12.2).
+
+=back
+
+=head3 L<perl5db.pl>
+
+=over
+
+=item *
+
+The remote terminal works after forking and spawns new sessions, one
+per forked process.
+
+=back
+
+=head3 L<ptargrep>
+
+=over 4
+
+=item *
+
+L<ptargrep> is a new utility to apply pattern matching to the contents of
+files  in a tar archive.  It comes with C<Archive::Tar>.
+
+=back
+
+=head1 Configuration and Compilation
+
+See also L</"Naming fixes in Policy_sh.SH may invalidate Policy.sh">,
+above.
+
+=over 4
+
+=item *
+
+CCINCDIR and CCLIBDIR for the mingw64 cross-compiler are now correctly
+under F<$(CCHOME)\mingw\include> and F<\lib> rather than immediately below
+F<$(CCHOME)>.
+
+This means the "incpath", "libpth", "ldflags", "lddlflags" and
+"ldflags_nolargefiles" values in F<Config.pm> and F<Config_heavy.pl> are now
+set correctly.
+
+=item *
+
+C<make test.valgrind> has been adjusted to account for F<cpan/dist/ext>
+separation.
+
+=item *
+
+On compilers that support it, B<-Wwrite-strings> is now added to cflags by
+default.
+
+=item *
+
+The L<Encode> module can now (once again) be included in a static Perl
+build.  The special-case handling for this situation got broken in Perl
+5.11.0, and has now been repaired.
+
+=item *
+
+The previous default size of a PerlIO buffer (4096 bytes) has been increased
+to the larger of 8192 bytes and your local BUFSIZ.  Benchmarks show that doubling
+this decade-old default increases read and write performance by around
+25% to 50% when using the default layers of perlio on top of unix.  To choose
+a non-default size, such as to get back the old value or to obtain an even
+larger value, configure with:
+
+     ./Configure -Accflags=-DPERLIOBUF_DEFAULT_BUFSIZ=N
+
+where N is the desired size in bytes; it should probably be a multiple of
+your page size.
+
+=item *
+
+An "incompatible operand types" error in ternary expressions when building
+with C<clang> has been fixed (5.12.2).
+
+=item *
+
+Perl now skips setuid L<File::Copy> tests on partitions it detects mounted
+as C<nosuid> (5.12.2).
+
+=back
+
+=head1 Platform Support
+
+=head2 New Platforms
+
+=over 4
+
+=item AIX
+
+Perl now builds on AIX 4.2 (5.12.1).
+
+=back
+
+=head2 Discontinued Platforms
+
+=over 4
+
+=item Apollo DomainOS
+
+The last vestiges of support for this platform have been excised from
+the Perl distribution.  It was officially discontinued in version 5.12.0.
+It had not worked for years before that.
+
+=item MacOS Classic
+
+The last vestiges of support for this platform have been excised from the
+Perl distribution.  It was officially discontinued in an earlier version.
+
+=back
+
+=head2 Platform-Specific Notes
+
+=head3 AIX
+
+=over
+
+=item *
+
+F<README.aix> has been updated with information about the XL C/C++ V11 compiler
+suite (5.12.2).
+
+=back
+
+=head3 ARM
+
+=over
+
+=item *
+
+The C<d_u32align> configuration probe on ARM has been fixed (5.12.2).
+
+=back
+
+=head3 Cygwin
+
+=over 4
+
+=item *
+
+L<MakeMaker> has been updated to build manpages on cygwin.
+
+=item *
+
+Improved rebase behaviour
+
+If a DLL is updated on cygwin the old imagebase address is reused.
+This solves most rebase errors, especially when updating on core DLL's.
+See L<http://www.tishler.net/jason/software/rebase/rebase-2.4.2.README> 
+for more information.
+
+=item *
+
+Support for the standard cygwin dll prefix (needed for FFIs)
+
+=item *
+
+Updated build hints file
+
+=back
+
+=head3 FreeBSD 7
+
+=over
+
+=item * 
+
+FreeBSD 7 no longer contains F</usr/bin/objformat>.  At build time,
+Perl now skips the F<objformat> check for versions 7 and higher and
+assumes ELF (5.12.1).
+
+=back
+
+=head3 HP-UX
+
+=over 
+
+=item *
+
+Perl now allows B<-Duse64bitint> without promoting to C<use64bitall> on HP-UX
+(5.12.1).
+
+=back
+
+=head3 IRIX
+
+=over
+
+=item *
+
+Conversion of strings to floating-point numbers is now more accurate on
+IRIX systems [perl #32380].
+
+=back
+
+=head3 Mac OS X
+
+=over
+
+=item *
+
+Early versions of Mac OS X (Darwin) had buggy implementations of the
+setregid(), setreuid(), setrgid(,) and setruid() functions, so Perl
+would pretend they did not exist.
+
+These functions are now recognised on Mac OS 10.5 (Leopard; Darwin 9) and
+higher, as they have been fixed [perl #72990].
+
+=back
+
+=head3 MirBSD
+
+=over
+
+=item *
+
+Previously if you built Perl with a shared F<libperl.so> on MirBSD (the
+default config), it would work up to the installation; however, once
+installed, it would be unable to find F<libperl>.  Path handling is now
+treated as in the other BSD dialects.
+
+=back
+
+=head3 NetBSD
+
+=over
+
+=item *
+
+The NetBSD hints file has been changed to make the system malloc the
+default.
+
+=back
+
+=head3 OpenBSD
+
+=over
+
+=item *
+
+OpenBSD E<gt> 3.7 has a new malloc implementation which is I<mmap>-based,
+and as such can release memory back to the OS; however, Perl's use of
+this malloc causes a substantial slowdown, so we now default to using
+Perl's malloc instead [perl #75742].
+
+=back
+
+=head3 OpenVOS
+
+=over
+
+=item *
+
+Perl now builds again with OpenVOS (formerly known as Stratus VOS)
+[perl #78132] (5.12.3).
+
+=back
+
+=head3 Solaris
+
+=over
+
+=item *
+
+DTrace is now supported on Solaris.  There used to be build failures, but
+these have been fixed [perl #73630] (5.12.3).
+
+=back
+
+=head3 VMS
+
+=over
+
+=item *
+
+Extension building on older (pre 7.3-2) VMS systems was broken because
+configure.com hit the DCL symbol length limit of 1K.  We now work within
+this limit when assembling the list of extensions in the core build (5.12.1).
+
+=item *
+
+We fixed configuring and building Perl with B<-Uuseperlio> (5.12.1).
+
+=item *
+
+C<PerlIOUnix_open> now honours the default permissions on VMS.
+
+When C<perlio> became the default and C<unix> became the default bottom layer,
+the most common path for creating files from Perl became C<PerlIOUnix_open>,
+which has always explicitly used C<0666> as the permission mask.  This prevents
+inheriting permissions from RMS defaults and ACLs, so to avoid that problem,
+we now pass C<0777> to open().  In the VMS CRTL, C<0777> has a special
+meaning over and above intersecting with the current umask; specifically, it
+allows Unix syscalls to preserve native default permissions (5.12.3).
+
+=item *
+
+The shortening of symbols longer than 31 characters in the core C sources
+and in extensions is now by default done by the C compiler rather than by
+xsubpp (which could only do so for generated symbols in XS code).  You can
+reenable xsubpp's symbol shortening by configuring with -Uuseshortenedsymbols,
+but you'll have some work to do to get the core sources to compile.
+
+=item *
+
+Record-oriented files (record format variable or variable with fixed control)
+opened for write by the C<perlio> layer will now be line-buffered to prevent the
+introduction of spurious line breaks whenever the perlio buffer fills up.
+
+=item *
+
+F<git_version.h> is now installed on VMS.  This was an oversight in v5.12.0 which
+caused some extensions to fail to build (5.12.2).
+
+=item *
+
+Several memory leaks in L<stat()|perlfunc/"stat FILEHANDLE"> have been fixed (5.12.2).
+
+=item *
+
+A memory leak in Perl_rename() due to a double allocation has been
+fixed (5.12.2).
+
+=item *
+
+A memory leak in vms_fid_to_name() (used by realpath() and
+realname()> has been fixed (5.12.2).
+
+=back
+
+=head3 Windows
+
+See also L</"fork() emulation will not wait for signalled children"> and
+L</"Perl source code is read in text mode on Windows">, above.
+
+=over 4
+
+=item *
+
+Fixed build process for SDK2003SP1 compilers.
+
+=item *
+
+Compilation with Visual Studio 2010 is now supported.
+
+=item *
+
+When using old 32-bit compilers, the define C<_USE_32BIT_TIME_T> is now
+set in C<$Config{ccflags}>.  This improves portability when compiling
+XS extensions using new compilers, but for a Perl compiled with old 32-bit
+compilers.
+
+=item *
+
+C<$Config{gccversion}> is now set correctly when Perl is built using the
+mingw64 compiler from L<http://mingw64.org> [perl #73754].
+
+=item *
+
+When building Perl with the mingw64 x64 cross-compiler C<incpath>,
+C<libpth>, C<ldflags>, C<lddlflags> and C<ldflags_nolargefiles> values
+in F<Config.pm> and F<Config_heavy.pl> were not previously being set
+correctly because, with that compiler, the include and lib directories
+are not immediately below C<$(CCHOME)> (5.12.2).
+
+=item *
+
+The build process proceeds more smoothly with mingw and dmake when
+F<C:\MSYS\bin> is in the PATH, due to a C<Cwd> fix.
+
+=item *
+
+Support for building with Visual C++ 2010 is now underway, but is not yet
+complete.  See F<README.win32> or L<perlwin32> for more details.
+
+=item *
+
+The option to use an externally-supplied crypt(), or to build with no
+crypt() at all, has been removed.  Perl supplies its own crypt()
+implementation for Windows, and the political situation that required
+this part of the distribution to sometimes be omitted is long gone.
+
+=back
+
+=head1 Internal Changes
+
+=head2 New APIs
+
+=head3 CLONE_PARAMS structure added to ease correct thread creation
+
+Modules that create threads should now create C<CLONE_PARAMS> structures
+by calling the new function Perl_clone_params_new(), and free them with
+Perl_clone_params_del().  This will ensure compatibility with any future
+changes to the internals of the C<CLONE_PARAMS> structure layout, and that
+it is correctly allocated and initialised.
+
+=head3 New parsing functions
+
+Several functions have been added for parsing Perl statements and
+expressions.  These functions are meant to be used by XS code invoked
+during Perl parsing, in a recursive-descent manner, to allow modules to
+augment the standard Perl syntax.
+
+=over
+
+=item *
+
+L<parse_stmtseq()|perlapi/parse_stmtseq>
+parses a sequence of statements, up to closing brace or EOF.
+
+=item *
+
+L<parse_fullstmt()|perlapi/parse_fullstmt>
+parses a complete Perl statement, including optional label.
+
+=item *
+
+L<parse_barestmt()|perlapi/parse_barestmt>
+parses a statement without a label.
+
+=item *
+
+L<parse_block()|perlapi/parse_block>
+parses a code block.
+
+=item *
+
+L<parse_label()|perlapi/parse_label>
+parses a statement label, separate from statements.
+
+=item *
+
+L<C<parse_fullexpr()>|perlapi/parse_fullexpr>,
+L<C<parse_listexpr()>|perlapi/parse_listexpr>,
+L<C<parse_termexpr()>|perlapi/parse_termexpr>, and
+L<C<parse_arithexpr()>|perlapi/parse_arithexpr>
+parse expressions at various precedence levels.
+
+=back
+
+=head3 Hints hash API
+
+A new C API for introspecting the hinthash C<%^H> at runtime has been
+added.  See C<cop_hints_2hv>, C<cop_hints_fetchpvn>, C<cop_hints_fetchpvs>,
+C<cop_hints_fetchsv>, and C<hv_copy_hints_hv> in L<perlapi> for details.
+
+A new, experimental API has been added for accessing the internal
+structure that Perl uses for C<%^H>.  See the functions beginning with
+C<cophh_> in L<perlapi>.
+
+=head3 C interface to caller()
+
+The C<caller_cx> function has been added as an XSUB-writer's equivalent of
+caller().  See L<perlapi> for details.
+
+=head3 Custom per-subroutine check hooks
+
+XS code in an extension module can now annotate a subroutine (whether
+implemented in XS or in Perl) so that nominated XS code will be called
+at compile time (specifically as part of op checking) to change the op
+tree of that subroutine.  The compile-time check function (supplied by
+the extension module) can implement argument processing that can't be
+expressed as a prototype, generate customised compile-time warnings,
+perform constant folding for a pure function, inline a subroutine
+consisting of sufficiently simple ops, replace the whole call with a
+custom op, and so on.  This was previously all possible by hooking the
+C<entersub> op checker, but the new mechanism makes it easy to tie the
+hook to a specific subroutine.  See L<perlapi/cv_set_call_checker>.
+
+To help in writing custom check hooks, several subtasks within standard
+C<entersub> op checking have been separated out and exposed in the API.
+
+=head3 Improved support for custom OPs
+
+Custom ops can now be registered with the new C<custom_op_register> C
+function and the C<XOP> structure.  This will make it easier to add new
+properties of custom ops in the future.  Two new properties have been added
+already, C<xop_class> and C<xop_peep>.
+
+C<xop_class> is one of the OA_*OP constants.  It allows L<B> and other
+introspection mechanisms to work with custom ops
+that aren't BASEOPs.  C<xop_peep> is a pointer to
+a function that will be called for ops of this
+type from C<Perl_rpeep>.
+
+See L<perlguts/Custom Operators> and L<perlapi/Custom Operators> for more
+detail.
+
+The old C<PL_custom_op_names>/C<PL_custom_op_descs> interface is still
+supported but discouraged.
+
+=head3 Scope hooks
+
+It is now possible for XS code to hook into Perl's lexical scope
+mechanism at compile time, using the new C<Perl_blockhook_register>
+function.  See L<perlguts/"Compile-time scope hooks">.
+
+=head3 The recursive part of the peephole optimizer is now hookable
+
+In addition to C<PL_peepp>, for hooking into the toplevel peephole optimizer, a
+C<PL_rpeepp> is now available to hook into the optimizer recursing into
+side-chains of the optree.
+
+=head3 New non-magical variants of existing functions
+
+The following functions/macros have been added to the API.  The C<*_nomg>
+macros are equivalent to their non-C<_nomg> variants, except that they ignore
+get-magic.  Those ending in C<_flags> allow one to specify whether
+get-magic is processed.
+
+  sv_2bool_flags
+  SvTRUE_nomg
+  sv_2nv_flags
+  SvNV_nomg
+  sv_cmp_flags
+  sv_cmp_locale_flags
+  sv_eq_flags
+  sv_collxfrm_flags
+
+In some of these cases, the non-C<_flags> functions have
+been replaced with wrappers around the new functions. 
+
+=head3 pv/pvs/sv versions of existing functions
+
+Many functions ending with pvn now have equivalent C<pv/pvs/sv> versions.
+
+=head3 List op-building functions
+
+List op-building functions have been added to the
+API.  See L<op_append_elem|perlapi/op_append_elem>,
+L<op_append_list|perlapi/op_append_list>, and
+L<op_prepend_elem|perlapi/op_prepend_elem> in L<perlapi>.
+
+=head3 C<LINKLIST>
+
+The L<LINKLIST|perlapi/LINKLIST> macro, part of op building that
+constructs the execution-order op chain, has been added to the API.
+
+=head3 Localisation functions
+
+The C<save_freeop>, C<save_op>, C<save_pushi32ptr> and C<save_pushptrptr>
+functions have been added to the API.
+
+=head3 Stash names
+
+A stash can now have a list of effective names in addition to its usual
+name.  The first effective name can be accessed via the C<HvENAME> macro,
+which is now the recommended name to use in MRO linearisations (C<HvNAME>
+being a fallback if there is no C<HvENAME>).
+
+These names are added and deleted via C<hv_ename_add> and
+C<hv_ename_delete>.  These two functions are I<not> part of the API.
+
+=head3 New functions for finding and removing magic
+
+The L<C<mg_findext()>|perlapi/mg_findext> and
+L<C<sv_unmagicext()>|perlapi/sv_unmagicext>
+functions have been added to the API.
+They allow extension authors to find and remove magic attached to
+scalars based on both the magic type and the magic virtual table, similar to how
+sv_magicext() attaches magic of a certain type and with a given virtual table
+to a scalar.  This eliminates the need for extensions to walk the list of
+C<MAGIC> pointers of an C<SV> to find the magic that belongs to them.
+
+=head3 C<find_rundefsv>
+
+This function returns the SV representing C<$_>, whether it's lexical
+or dynamic.
+
+=head3 C<Perl_croak_no_modify>
+
+Perl_croak_no_modify() is short-hand for
+C<Perl_croak("%s", PL_no_modify)>.
+
+=head3 C<PERL_STATIC_INLINE> define
+
+The C<PERL_STATIC_INLINE> define has been added to provide the best-guess
+incantation to use for static inline functions, if the C compiler supports
+C99-style static inline.  If it doesn't, it'll give a plain C<static>.
+
+C<HAS_STATIC_INLINE> can be used to check if the compiler actually supports
+inline functions.
+
+=head3 New C<pv_escape> option for hexadecimal escapes
+
+A new option, C<PERL_PV_ESCAPE_NONASCII>, has been added to C<pv_escape> to
+dump all characters above ASCII in hexadecimal.  Before, one could get all
+characters as hexadecimal or the Latin1 non-ASCII as octal.
+
+=head3 C<lex_start>
+
+C<lex_start> has been added to the API, but is considered experimental.
+
+=head3 op_scope() and op_lvalue()
+
+The op_scope() and op_lvalue() functions have been added to the API,
+but are considered experimental.
+
+=head2 C API Changes
+
+=head3 C<PERL_POLLUTE> has been removed
+
+The option to define C<PERL_POLLUTE> to expose older 5.005 symbols for
+backwards compatibility has been removed.  Its use was always discouraged,
+and MakeMaker contains a more specific escape hatch:
+
+    perl Makefile.PL POLLUTE=1
+
+This can be used for modules that have not been upgraded to 5.6 naming
+conventions (and really should be completely obsolete by now).
+
+=head3 Check API compatibility when loading XS modules
+
+When Perl's API changes in incompatible ways (which usually happens between
+major releases), XS modules compiled for previous versions of Perl will no
+longer work.  They need to be recompiled against the new Perl.
+
+The C<XS_APIVERSION_BOOTCHECK> macro has been added to ensure that modules
+are recompiled and to prevent users from accidentally loading modules
+compiled for old perls into newer perls.  That macro, which is called when
+loading every newly compiled extension, compares the API version of the
+running perl with the version a module has been compiled for and raises an
+exception if they don't match.
+
+=head3 Perl_fetch_cop_label
+
+The first argument of the C API function C<Perl_fetch_cop_label> has changed
+from C<struct refcounted_he *> to C<COP *>, to insulate the user from
+implementation details.
+
+This API function was marked as "may change", and likely isn't in use outside
+the core.  (Neither an unpacked CPAN nor Google's codesearch finds any other
+references to it.)
+
+=head3 GvCV() and GvGP() are no longer lvalues
+
+The new GvCV_set() and GvGP_set() macros are now provided to replace
+assignment to those two macros.
+
+This allows a future commit to eliminate some backref magic between GV
+and CVs, which will require complete control over assignment to the
+C<gp_cv> slot.
+
+=head3 CvGV() is no longer an lvalue
+
+Under some circumstances, the CvGV() field of a CV is now
+reference-counted.  To ensure consistent behaviour, direct assignment to
+it, for example C<CvGV(cv) = gv> is now a compile-time error.  A new macro,
+C<CvGV_set(cv,gv)> has been introduced to run this operation
+safely.  Note that modification of this field is not part of the public
+API, regardless of this new macro (and despite its being listed in this section).
+
+=head3 CvSTASH() is no longer an lvalue
+
+The CvSTASH() macro can now only be used as an rvalue.  CvSTASH_set()
+has been added to replace assignment to CvSTASH().  This is to ensure
+that backreferences are handled properly.  These macros are not part of the
+API.
+
+=head3 Calling conventions for C<newFOROP> and C<newWHILEOP>
+
+The way the parser handles labels has been cleaned up and refactored.  As a
+result, the newFOROP() constructor function no longer takes a parameter
+stating what label is to go in the state op.
+
+The newWHILEOP() and newFOROP() functions no longer accept a line
+number as a parameter.
+
+=head3 Flags passed to C<uvuni_to_utf8_flags> and C<utf8n_to_uvuni>
+
+Some of the flags parameters to uvuni_to_utf8_flags() and
+utf8n_to_uvuni() have changed.  This is a result of Perl's now allowing
+internal storage and manipulation of code points that are problematic
+in some situations.  Hence, the default actions for these functions has
+been complemented to allow these code points.  The new flags are
+documented in L<perlapi>.  Code that requires the problematic code
+points to be rejected needs to change to use the new flags.  Some flag
+names are retained for backward source compatibility, though they do
+nothing, as they are now the default.  However the flags
+C<UNICODE_ALLOW_FDD0>, C<UNICODE_ALLOW_FFFF>, C<UNICODE_ILLEGAL>, and
+C<UNICODE_IS_ILLEGAL> have been removed, as they stem from a
+fundamentally broken model of how the Unicode non-character code points
+should be handled, which is now described in
+L<perlunicode/Non-character code points>.  See also the Unicode section
+under L</Selected Bug Fixes>.
+
+=head2 Deprecated C APIs
+
+=over
+
+=item C<Perl_ptr_table_clear>
+
+C<Perl_ptr_table_clear> is no longer part of Perl's public API.  Calling it
+now generates a deprecation warning, and it will be removed in a future
+release.
+
+=item C<sv_compile_2op>
+
+The sv_compile_2op() API function is now deprecated.  Searches suggest
+that nothing on CPAN is using it, so this should have zero impact.
+
+It attempted to provide an API to compile code down to an optree, but failed
+to bind correctly to lexicals in the enclosing scope.  It's not possible to
+fix this problem within the constraints of its parameters and return value.
+
+=item C<find_rundefsvoffset>
+
+The C<find_rundefsvoffset> function has been deprecated.  It appeared that
+its design was insufficient for reliably getting the lexical C<$_> at
+run-time.
+
+Use the new C<find_rundefsv> function or the C<UNDERBAR> macro
+instead.  They directly return the right SV
+representing C<$_>, whether it's
+lexical or dynamic.
+
+=item C<CALL_FPTR> and C<CPERLscope>
+
+Those are left from an old implementation of C<MULTIPLICITY> using C++ objects,
+which was removed in Perl 5.8.  Nowadays these macros do exactly nothing, so
+they shouldn't be used anymore.
+
+For compatibility, they are still defined for external C<XS> code.  Only
+extensions defining C<PERL_CORE> must be updated now.
+
+=back
+
+=head2 Other Internal Changes
+
+=head3 Stack unwinding
+
+The protocol for unwinding the C stack at the last stage of a C<die>
+has changed how it identifies the target stack frame.  This now uses
+a separate variable C<PL_restartjmpenv>, where previously it relied on
+the C<blk_eval.cur_top_env> pointer in the C<eval> context frame that
+has nominally just been discarded.  This change means that code running
+during various stages of Perl-level unwinding no longer needs to take
+care to avoid destroying the ghost frame.
+
+=head3 Scope stack entries
+
+The format of entries on the scope stack has been changed, resulting in a
+reduction of memory usage of about 10%.  In particular, the memory used by
+the scope stack to record each active lexical variable has been halved.
+
+=head3 Memory allocation for pointer tables
+
+Memory allocation for pointer tables has been changed.  Previously
+C<Perl_ptr_table_store> allocated memory from the same arena system as
+C<SV> bodies and C<HE>s, with freed memory remaining bound to those arenas
+until interpreter exit.  Now it allocates memory from arenas private to the
+specific pointer table, and that memory is returned to the system when
+C<Perl_ptr_table_free> is called.  Additionally, allocation and release are
+both less CPU intensive.
+
+=head3 C<UNDERBAR>
+
+The C<UNDERBAR> macro now calls C<find_rundefsv>.  C<dUNDERBAR> is now a
+noop but should still be used to ensure past and future compatibility.
+
+=head3 String comparison routines renamed
+
+The C<ibcmp_*> functions have been renamed and are now called C<foldEQ>,
+C<foldEQ_locale>, and C<foldEQ_utf8>.  The old names are still available as
+macros.
+
+=head3 C<chop> and C<chomp> implementations merged
+
+The opcode bodies for C<chop> and C<chomp> and for C<schop> and C<schomp>
+have been merged.  The implementation functions Perl_do_chop() and
+Perl_do_chomp(), never part of the public API, have been merged and
+moved to a static function in F<pp.c>.  This shrinks the Perl binary
+slightly, and should not affect any code outside the core (unless it is
+relying on the order of side-effects when C<chomp> is passed a I<list> of
+values).
+
+=head1 Selected Bug Fixes
+
+=head2 I/O
+
+=over 4
+
+=item *
+
+Perl no longer produces this warning:
+
+    $ perl -we 'open(my $f, ">", \my $x); binmode($f, "scalar")'
+    Use of uninitialized value in binmode at -e line 1.
+
+=item *
+
+Opening a glob reference via C<< open($fh, ">", \*glob) >> no longer
+causes the glob to be corrupted when the filehandle is printed to.  This would
+cause Perl to crash whenever the glob's contents were accessed
+[perl #77492].
+
+=item *
+
+PerlIO no longer crashes when called recursively, such as from a signal
+handler.  Now it just leaks memory [perl #75556].
+
+=item *
+
+Most I/O functions were not warning for unopened handles unless the
+"closed" and "unopened" warnings categories were both enabled.  Now only
+C<use warnings 'unopened'> is necessary to trigger these warnings, as
+had always been the intention.
+
+=item *
+
+There have been several fixes to PerlIO layers:
+
+When C<binmode(FH, ":crlf")> pushes the C<:crlf> layer on top of the stack,
+it no longer enables crlf layers lower in the stack so as to avoid
+unexpected results [perl #38456].
+
+Opening a file in C<:raw> mode now does what it advertises to do (first
+open the file, then C<binmode> it), instead of simply leaving off the top
+layer [perl #80764].
+
+The three layers C<:pop>, C<:utf8>, and C<:bytes> didn't allow stacking when
+opening a file.  For example
+this:
+
+    open(FH, ">:pop:perlio", "some.file") or die $!;
+
+would throw an "Invalid argument" error.  This has been fixed in this
+release [perl #82484].
+
+=back
+
+=head2 Regular Expression Bug Fixes
+
+=over
+
+=item *
+
+The regular expression engine no longer loops when matching
+C<"\N{LATIN SMALL LIGATURE FF}" =~ /f+/i> and similar expressions
+[perl #72998] (5.12.1).
+
+=item *
+
+The trie runtime code should no longer allocate massive amounts of memory,
+fixing #74484.
+
+=item *
+
+Syntax errors in C<< (?{...}) >> blocks no longer cause panic messages
+[perl #2353].
+
+=item *
+
+A pattern like C<(?:(o){2})?> no longer causes a "panic" error
+[perl #39233].
+
+=item *
+
+A fatal error in regular expressions containing C<(.*?)> when processing
+UTF-8 data has been fixed [perl #75680] (5.12.2).
+
+=item *
+
+An erroneous regular expression engine optimisation that caused regex verbs like
+C<*COMMIT> sometimes to be ignored has been removed.
+
+=item *
+
+The regular expression bracketed character class C<[\8\9]> was effectively the
+same as C<[89\000]>, incorrectly matching a NULL character.  It also gave
+incorrect warnings that the C<8> and C<9> were ignored.  Now C<[\8\9]> is the
+same as C<[89]> and gives legitimate warnings that C<\8> and C<\9> are
+unrecognized escape sequences, passed-through.
+
+=item *
+
+A regular expression match in the right-hand side of a global substitution
+(C<s///g>) that is in the same scope will no longer cause match variables
+to have the wrong values on subsequent iterations.  This can happen when an
+array or hash subscript is interpolated in the right-hand side, as in
+C<s|(.)|@a{ print($1), /./ }|g> [perl #19078].
+
+=item *
+
+Several cases in which characters in the Latin-1 non-ASCII range (0x80 to
+0xFF) used not to match themselves, or used to match both a character class
+and its complement, have been fixed.  For instance, U+00E2 could match both
+C<\w> and C<\W> [perl #78464] [perl #18281] [perl #60156].
+
+=item *
+
+Matching a Unicode character against an alternation containing characters
+that happened to match continuation bytes in the former's UTF8
+representation (like C<qq{\x{30ab}} =~ /\xab|\xa9/>) would cause erroneous
+warnings [perl #70998].
+
+=item *
+
+The trie optimisation was not taking empty groups into account, preventing
+"foo" from matching C</\A(?:(?:)foo|bar|zot)\z/> [perl #78356].
+
+=item *
+
+A pattern containing a C<+> inside a lookahead would sometimes cause an
+incorrect match failure in a global match (for example, C</(?=(\S+))/g>)
+[perl #68564].
+
+=item *
+
+A regular expression optimisation would sometimes cause a match with a
+C<{n,m}> quantifier to fail when it should have matched [perl #79152].
+
+=item *
+
+Case-insensitive matching in regular expressions compiled under
+C<use locale> now works much more sanely when the pattern or target
+string is internally encoded in UTF8.  Previously, under these
+conditions the localeness was completely lost.  Now, code points
+above 255 are treated as Unicode, but code points between 0 and 255
+are treated using the current locale rules, regardless of whether
+the pattern or the string is encoded in UTF8.  The few case-insensitive
+matches that cross the 255/256 boundary are not allowed.  For
+example, 0xFF does not caselessly match the character at 0x178,
+LATIN CAPITAL LETTER Y WITH DIAERESIS, because 0xFF may not be LATIN
+SMALL LETTER Y in the current locale, and Perl has no way of knowing
+if that character even exists in the locale, much less what code
+point it is.
+
+=item *
+
+The C<(?|...)> regular expression construct no longer crashes if the final
+branch has more sets of capturing parentheses than any other branch.  This
+was fixed in Perl 5.10.1 for the case of a single branch, but that fix did
+not take multiple branches into account [perl #84746].
+
+=item *
+
+A bug has been fixed in the implementation of C<{...}> quantifiers in
+regular expressions that prevented the code block in
+C</((\w+)(?{ print $2 })){2}/> from seeing the C<$2> sometimes
+[perl #84294].
+
+=back
+
+=head2 Syntax/Parsing Bugs
+
+=over
+
+=item *
+
+C<when (scalar) {...}> no longer crashes, but produces a syntax error
+[perl #74114] (5.12.1).
+
+=item *
+
+A label right before a string eval (C<foo: eval $string>) no longer causes
+the label to be associated also with the first statement inside the eval
+[perl #74290] (5.12.1).
+
+=item *
+
+The C<no 5.13.2> form of C<no> no longer tries to turn on features or
+pragmata (like L<strict>) [perl #70075] (5.12.2).
+
+=item *
+
+C<BEGIN {require 5.12.0}> now behaves as documented, rather than behaving
+identically to C<use 5.12.0>.  Previously, C<require> in a C<BEGIN> block
+was erroneously executing the C<use feature ':5.12.0'> and
+C<use strict> behaviour, which only C<use> was documented to
+provide [perl #69050].
+
+=item *
+
+A regression introduced in Perl 5.12.0, making
+C<< my $x = 3; $x = length(undef) >> result in C<$x> set to C<3> has been
+fixed.  C<$x> will now be C<undef> [perl #85508] (5.12.2).
+
+=item *
+
+When strict "refs" mode is off, C<%{...}> in rvalue context returns
+C<undef> if its argument is undefined.  An optimisation introduced in Perl
+5.12.0 to make C<keys %{...}> faster when used as a boolean did not take
+this into account, causing C<keys %{+undef}> (and C<keys %$foo> when
+C<$foo> is undefined) to be an error, which it should be so in strict
+mode only [perl #81750].
+
+=item *
+
+Constant-folding used to cause
+
+  $text =~ ( 1 ? /phoo/ : /bear/)
+
+to turn into
+
+  $text =~ /phoo/
+
+at compile time.  Now it correctly matches against C<$_> [perl #20444].
+
+=item *
+
+Parsing Perl code (either with string C<eval> or by loading modules) from
+within a C<UNITCHECK> block no longer causes the interpreter to crash
+[perl #70614].
+
+=item *
+
+String C<eval>s no longer fail after 2 billion scopes have been
+compiled [perl #83364].
+
+=item *
+
+The parser no longer hangs when encountering certain Unicode characters,
+such as U+387 [perl #74022].
+
+=item *
+
+Defining a constant with the same name as one of Perl's special blocks
+(like C<INIT>) stopped working in 5.12.0, but has now been fixed
+[perl #78634].
+
+=item *
+
+A reference to a literal value used as a hash key (C<$hash{\"foo"}>) used
+to be stringified, even if the hash was tied [perl #79178].
+
+=item *
+
+A closure containing an C<if> statement followed by a constant or variable
+is no longer treated as a constant [perl #63540].
+
+=item *
+
+C<state> can now be used with attributes.  It
+used to mean the same thing as
+C<my> if any attributes were present [perl #68658].
+
+=item *
+
+Expressions like C<< @$a > 3 >> no longer cause C<$a> to be mentioned in
+the "Use of uninitialized value in numeric gt" warning when C<$a> is
+undefined (since it is not part of the C<< > >> expression, but the operand
+of the C<@>) [perl #72090].
+
+=item *
+
+Accessing an element of a package array with a hard-coded number (as
+opposed to an arbitrary expression) would crash if the array did not exist.
+Usually the array would be autovivified during compilation, but typeglob
+manipulation could remove it, as in these two cases which used to crash:
+
+  *d = *a;  print $d[0];
+  undef *d; print $d[0];
+
+=item *
+
+The B<-C> command-line option, when used on the shebang line, can now be
+followed by other options [perl #72434].
+
+=item *
+
+The C<B> module was returning C<B::OP>s instead of C<B::LOGOP>s for
+C<entertry> [perl #80622].  This was due to a bug in the Perl core,
+not in C<B> itself.
+
+=back
+
+=head2 Stashes, Globs and Method Lookup
+
+Perl 5.10.0 introduced a new internal mechanism for caching MROs (method
+resolution orders, or lists of parent classes; aka "isa" caches) to make
+method lookup faster (so C<@ISA> arrays would not have to be searched
+repeatedly).  Unfortunately, this brought with it quite a few bugs.  Almost
+all of these have been fixed now, along with a few MRO-related bugs that
+existed before 5.10.0:
+
+=over
+
+=item *
+
+The following used to have erratic effects on method resolution, because
+the "isa" caches were not reset or otherwise ended up listing the wrong
+classes.  These have been fixed.
+
+=over
+
+=item Aliasing packages by assigning to globs [perl #77358]
+
+=item Deleting packages by deleting their containing stash elements
+
+=item Undefining the glob containing a package (C<undef *Foo::>)
+
+=item Undefining an ISA glob (C<undef *Foo::ISA>)
+
+=item Deleting an ISA stash element (C<delete $Foo::{ISA}>)
+
+=item Sharing @ISA arrays between classes (via C<*Foo::ISA = \@Bar::ISA> or
+C<*Foo::ISA = *Bar::ISA>) [perl #77238]
+
+=back
+
+C<undef *Foo::ISA> would even stop a new C<@Foo::ISA> array from updating
+caches.
+
+=item *
+
+Typeglob assignments would crash if the glob's stash no longer existed, so
+long as the glob assigned to were named C<ISA> or the glob on either side of
+the assignment contained a subroutine.
+
+=item *
+
+C<PL_isarev>, which is accessible to Perl via C<mro::get_isarev> is now
+updated properly when packages are deleted or removed from the C<@ISA> of
+other classes.  This allows many packages to be created and deleted without
+causing a memory leak [perl #75176].
+
+=back
+
+In addition, various other bugs related to typeglobs and stashes have been
+fixed:
+
+=over 
+
+=item *
+
+Some work has been done on the internal pointers that link between symbol
+tables (stashes), typeglobs, and subroutines.  This has the effect that
+various edge cases related to deleting stashes or stash entries (for example,
+<%FOO:: = ()>), and complex typeglob or code-reference aliasing, will no
+longer crash the interpreter.
+
+=item *
+
+Assigning a reference to a glob copy now assigns to a glob slot instead of
+overwriting the glob with a scalar [perl #1804] [perl #77508].
+
+=item *
+
+A bug when replacing the glob of a loop variable within the loop has been fixed
+[perl #21469].  This
+means the following code will no longer crash:
+
+    for $x (...) {
+        *x = *y;
+    }
+
+=item *
+
+Assigning a glob to a PVLV used to convert it to a plain string.  Now it
+works correctly, and a PVLV can hold a glob.  This would happen when a
+nonexistent hash or array element was passed to a subroutine:
+
+  sub { $_[0] = *foo }->($hash{key});
+  # $_[0] would have been the string "*main::foo"
+
+It also happened when a glob was assigned to, or returned from, an element
+of a tied array or hash [perl #36051].
+
+=item *
+
+When trying to report C<Use of uninitialized value $Foo::BAR>, crashes could
+occur if the glob holding the global variable in question had been detached
+from its original stash by, for example, C<delete $::{"Foo::"}>.  This has
+been fixed by disabling the reporting of variable names in those
+cases.
+
+=item *
+
+During the restoration of a localised typeglob on scope exit, any
+destructors called as a result would be able to see the typeglob in an
+inconsistent state, containing freed entries, which could result in a
+crash.  This would affect code like this:
+
+  local *@;
+  eval { die bless [] }; # puts an object in $@
+  sub DESTROY {
+    local $@; # boom
+  }
+
+Now the glob entries are cleared before any destructors are called.  This
+also means that destructors can vivify entries in the glob.  So Perl tries
+again and, if the entries are re-created too many times, dies with a
+"panic: gp_free ..." error message.
+
+=item *
+
+If a typeglob is freed while a subroutine attached to it is still
+referenced elsewhere, the subroutine is renamed to C<__ANON__> in the same
+package, unless the package has been undefined, in which case the C<__ANON__>
+package is used.  This could cause packages to be sometimes autovivified,
+such as if the package had been deleted.  Now this no longer occurs.
+The C<__ANON__> package is also now used when the original package is
+no longer attached to the symbol table.  This avoids memory leaks in some
+cases [perl #87664].
+
+=item *
+
+Subroutines and package variables inside a package whose name ends with
+C<::> can now be accessed with a fully qualified name.
+
+=back
+
+=head2 Unicode
+
+=over
+
+=item *
+
+What has become known as "the Unicode Bug" is almost completely resolved in
+this release.  Under C<use feature 'unicode_strings'> (which is
+automatically selected by C<use 5.012> and above), the internal
+storage format of a string no longer affects the external semantics.
+[perl #58182].
+
+There are two known exceptions:
+
+=over
+
+=item 1
+
+The now-deprecated, user-defined case-changing
+functions require utf8-encoded strings to operate.  The CPAN module
+L<Unicode::Casing> has been written to replace this feature without its
+drawbacks, and the feature is scheduled to be removed in 5.16.
+
+=item 2
+
+quotemeta() (and its in-line equivalent C<\Q>) can also give different
+results depending on whether a string is encoded in UTF-8.  See
+L<perlunicode/The "Unicode Bug">.
+
+=back
+
+=item *
+
+Handling of Unicode non-character code points has changed.
+Previously they were mostly considered illegal, except that in some
+place only one of the 66 of them was known.  The Unicode Standard
+considers them all legal, but forbids their "open interchange".
+This is part of the change to allow internal use of any code
+point (see L</Core Enhancements>).  Together, these changes resolve
+[perl #38722], [perl #51918], [perl #51936], and [perl #63446].
+
+=item *
+
+Case-insensitive C<"/i"> regular expression matching of Unicode
+characters that match multiple characters now works much more as
+intended.  For example
+
+ "\N{LATIN SMALL LIGATURE FFI}" =~ /ffi/ui
+
+and
+
+ "ffi" =~ /\N{LATIN SMALL LIGATURE FFI}/ui
+
+are both true.  Previously, there were many bugs with this feature.
+What hasn't been fixed are the places where the pattern contains the
+multiple characters, but the characters are split up by other things,
+such as in
+
+ "\N{LATIN SMALL LIGATURE FFI}" =~ /(f)(f)i/ui
+
+or
+
+ "\N{LATIN SMALL LIGATURE FFI}" =~ /ffi*/ui
+
+or
+
+ "\N{LATIN SMALL LIGATURE FFI}" =~ /[a-f][f-m][g-z]/ui
+
+None of these match.
+
+Also, this matching doesn't fully conform to the current Unicode
+Standard, which asks that the matching be made upon the NFD
+(Normalization Form Decomposed) of the text.  However, as of this
+writing (April 2010), the Unicode Standard is currently in flux about
+what they will recommend doing with regard in such scenarios.  It may be
+that they will throw out the whole concept of multi-character matches.
+[perl #71736].
+
+=item *
+
+Naming a deprecated character in C<\N{I<NAME>}> no longer leaks memory.
+
+=item *
+
+We fixed a bug that could cause C<\N{I<NAME>}> constructs followed by
+a single C<"."> to be parsed incorrectly [perl #74978] (5.12.1).
+
+=item *
+
+C<chop> now correctly handles characters above C<"\x{7fffffff}">
+[perl #73246].
+
+=item *
+
+Passing to C<index> an offset beyond the end of the string when the string
+is encoded internally in UTF8 no longer causes panics [perl #75898].
+
+=item *
+
+warn() and die() now respect utf8-encoded scalars [perl #45549].
+
+=item *
+
+Sometimes the UTF8 length cache would not be reset on a value
+returned by substr, causing C<length(substr($uni_string, ...))> to give
+wrong answers.  With C<${^UTF8CACHE}> set to -1, it would also produce
+a "panic" error message [perl #77692].
+
+=back
+
+=head2 Ties, Overloading and Other Magic
+
+=over
+
+=item *
+
+Overloading now works properly in conjunction with tied
+variables.  What formerly happened was that most ops checked their
+arguments for overloading I<before> checking for magic, so for example
+an overloaded object returned by a tied array access would usually be
+treated as not overloaded [RT #57012].
+
+=item *
+
+Various instances of magic (like tie methods) being called on tied variables
+too many or too few times have been fixed:
+
+=over
+
+=item *
+
+C<< $tied->() >> did not always call FETCH [perl #8438].
+
+=item *
+
+Filetest operators and C<y///> and C<tr///> were calling FETCH too
+many times.
+
+=item *
+
+The C<=> operator used to ignore magic on its right-hand side if the
+scalar happened to hold a typeglob (if a typeglob was the last thing
+returned from or assigned to a tied scalar) [perl #77498].
+
+=item *
+
+Dereference operators used to ignore magic if the argument was a
+reference already (such as from a previous FETCH) [perl #72144].
+
+=item *
+
+C<splice> now calls set-magic (so changes made
+by C<splice @ISA> are respected by method calls) [perl #78400].
+
+=item *
+
+In-memory files created by C<< open($fh, ">", \$buffer) >> were not calling
+FETCH/STORE at all [perl #43789] (5.12.2).
+
+=item *
+
+utf8::is_utf8() now respects get-magic (like C<$1>) (5.12.1).
+
+=back
+
+=item *
+
+Non-commutative binary operators used to swap their operands if the same
+tied scalar was used for both operands and returned a different value for
+each FETCH.  For instance, if C<$t> returned 2 the first time and 3 the
+second, then C<$t/$t> would evaluate to 1.5.  This has been fixed
+[perl #87708].
+
+=item *
+
+String C<eval> now detects taintedness of overloaded or tied
+arguments [perl #75716].
+
+=item *
+
+String C<eval> and regular expression matches against objects with string
+overloading no longer cause memory corruption or crashes [perl #77084].
+
+=item *
+
+L<readline|perlfunc/"readline EXPR"> now honors C<< <> >> overloading on tied
+arguments.
+
+=item *
+
+C<< <expr> >> always respects overloading now if the expression is
+overloaded.
+
+Because "S<< <> as >> glob" was parsed differently from
+"S<< <> as >> filehandle" from 5.6 onwards, something like C<< <$foo[0]> >> did
+not handle overloading, even if C<$foo[0]> was an overloaded object.  This
+was contrary to the documentation for L<overload>, and meant that C<< <> >>
+could not be used as a general overloaded iterator operator.
+
+=item *
+
+The fallback behaviour of overloading on binary operators was asymmetric
+[perl #71286].
+
+=item *
+
+Magic applied to variables in the main package no longer affects other packages.
+See L</Magic variables outside the main package> above [perl #76138].
+
+=item *
+
+Sometimes magic (ties, taintedness, etc.) attached to variables could cause
+an object to last longer than it should, or cause a crash if a tied
+variable were freed from within a tie method.  These have been fixed
+[perl #81230].
+
+=item *
+
+DESTROY methods of objects implementing ties are no longer able to crash by
+accessing the tied variable through a weak reference [perl #86328].
+
+=item *
+
+Fixed a regression of kill() when a match variable is used for the
+process ID to kill [perl #75812].
+
+=item *
+
+C<$AUTOLOAD> used to remain tainted forever if it ever became tainted.  Now
+it is correctly untainted if an autoloaded method is called and the method
+name was not tainted.
+
+=item *
+
+C<sprintf> now dies when passed a tainted scalar for the format.  It did
+already die for arbitrary expressions, but not for simple scalars
+[perl #82250].
+
+=item *
+
+C<lc>, C<uc>, C<lcfirst>, and C<ucfirst> no longer return untainted strings
+when the argument is tainted.  This has been broken since perl 5.8.9
+[perl #87336].
+
+=back
+
+=head2 The Debugger
+
+=over
+
+=item *
+
+The Perl debugger now also works in taint mode [perl #76872].
+
+=item *
+
+Subroutine redefinition works once more in the debugger [perl #48332].
+
+=item *
+
+When B<-d> is used on the shebang (C<#!>) line, the debugger now has access
+to the lines of the main program.  In the past, this sometimes worked and
+sometimes did not, depending on the order in which things happened to be
+arranged in memory [perl #71806].
+
+=item *
+
+A possible memory leak when using L<caller()|perlfunc/"caller EXPR"> to set
+C<@DB::args> has been fixed (5.12.2).
+
+=item *
+
+Perl no longer stomps on C<$DB::single>, C<$DB::trace>, and C<$DB::signal> 
+if these variables already have values when C<$^P> is assigned to [perl #72422].
+
+=item *
+
+C<#line> directives in string evals were not properly updating the arrays
+of lines of code (C<< @{"_< ..."} >>) that the debugger (or any debugging or
+profiling module) uses.  In threaded builds, they were not being updated at
+all.  In non-threaded builds, the line number was ignored, so any change to
+the existing line number would cause the lines to be misnumbered
+[perl #79442].
+
+=back
+
+=head2 Threads
+
+=over
+
+=item *
+
+Perl no longer accidentally clones lexicals in scope within active stack
+frames in the parent when creating a child thread [perl #73086].
+
+=item *
+
+Several memory leaks in cloning and freeing threaded Perl interpreters have been
+fixed [perl #77352].
+
+=item *
+
+Creating a new thread when directory handles were open used to cause a
+crash, because the handles were not cloned, but simply passed to the new
+thread, resulting in a double free.
+
+Now directory handles are cloned properly on Windows
+and on systems that have a C<fchdir> function.  On other
+systems, new threads simply do not inherit directory
+handles from their parent threads [perl #75154].
+
+=item *
+
+The typeglob C<*,>, which holds the scalar variable C<$,> (output field
+separator), had the wrong reference count in child threads.
+
+=item *
+
+[perl #78494] When pipes are shared between threads, the C<close> function
+(and any implicit close, such as on thread exit) no longer blocks.
+
+=item *
+
+Perl now does a timely cleanup of SVs that are cloned into a new
+thread but then discovered to be orphaned (that is, their owners
+are I<not> cloned).  This eliminates several "scalars leaked"
+warnings when joining threads.
+
+=back
+
+=head2 Scoping and Subroutines
+
+=over
+
+=item *
+
+Lvalue subroutines are again able to return copy-on-write scalars.  This
+had been broken since version 5.10.0 [perl #75656] (5.12.3).
+
+=item *
+
+C<require> no longer causes C<caller> to return the wrong file name for
+the scope that called C<require> and other scopes higher up that had the
+same file name [perl #68712].
+
+=item *
+
+C<sort> with a C<($$)>-prototyped comparison routine used to cause the value
+of C<@_> to leak out of the sort.  Taking a reference to C<@_> within the
+sorting routine could cause a crash [perl #72334].
+
+=item *
+
+Match variables (like C<$1>) no longer persist between calls to a sort
+subroutine [perl #76026].
+
+=item *
+
+Iterating with C<foreach> over an array returned by an lvalue sub now works
+[perl #23790].
+
+=item *
+
+C<$@> is now localised during calls to C<binmode> to prevent action at a
+distance [perl #78844].
+
+=item *
+
+Calling a closure prototype (what is passed to an attribute handler for a
+closure) now results in a "Closure prototype called" error message instead
+of a crash [perl #68560].
+
+=item *
+
+Mentioning a read-only lexical variable from the enclosing scope in a
+string C<eval> no longer causes the variable to become writable
+[perl #19135].
+
+=back
+
+=head2 Signals
+
+=over
+
+=item *
+
+Within signal handlers, C<$!> is now implicitly localized.
+
+=item *
+
+CHLD signals are no longer unblocked after a signal handler is called if
+they were blocked before by C<POSIX::sigprocmask> [perl #82040].
+
+=item *
+
+A signal handler called within a signal handler could cause leaks or
+double-frees.  Now fixed [perl #76248].
+
+=back
+
+=head2 Miscellaneous Memory Leaks
+
+=over
+
+=item *
+
+Several memory leaks when loading XS modules were fixed (5.12.2).
+
+=item *
+
+L<substr()|perlfunc/"substr EXPR,OFFSET,LENGTH,REPLACEMENT">,
+L<pos()|perlfunc/"index STR,SUBSTR,POSITION">, L<keys()|perlfunc/"keys HASH">,
+and L<vec()|perlfunc/"vec EXPR,OFFSET,BITS"> could, when used in combination
+with lvalues, result in leaking the scalar value they operate on, and cause its
+destruction to happen too late.  This has now been fixed.
+
+=item *
+
+The postincrement and postdecrement operators, C<++> and C<-->, used to cause
+leaks when used on references.  This has now been fixed.
+
+=item *
+
+Nested C<map> and C<grep> blocks no longer leak memory when processing
+large lists [perl #48004].
+
+=item *
+
+C<use I<VERSION>> and C<no I<VERSION>> no longer leak memory [perl #78436]
+[perl #69050].
+
+=item *
+
+C<.=> followed by C<< <> >> or C<readline> would leak memory if C<$/>
+contained characters beyond the octet range and the scalar assigned to
+happened to be encoded as UTF8 internally [perl #72246].
+
+=item *
+
+C<eval 'BEGIN{die}'> no longer leaks memory on non-threaded builds.
+
+=back
+
+=head2 Memory Corruption and Crashes
+
+=over
+
+=item *
+
+glob() no longer crashes when C<%File::Glob::> is empty and
+C<CORE::GLOBAL::glob> isn't present [perl #75464] (5.12.2).
+
+=item *
+
+readline() has been fixed when interrupted by signals so it no longer
+returns the "same thing" as before or random memory.
+
+=item *
+
+When assigning a list with duplicated keys to a hash, the assignment used to
+return garbage and/or freed values:
+
+    @a = %h = (list with some duplicate keys);
+
+This has now been fixed [perl #31865].
+
+=item *
+
+The mechanism for freeing objects in globs used to leave dangling
+pointers to freed SVs, meaning Perl users could see corrupted state
+during destruction.
+
+Perl now frees only the affected slots of the GV, rather than freeing
+the GV itself.  This makes sure that there are no dangling refs or
+corrupted state during destruction.
+
+=item *
+
+The interpreter no longer crashes when freeing deeply-nested arrays of
+arrays.  Hashes have not been fixed yet [perl #44225].
+
+=item *
+
+Concatenating long strings under C<use encoding> no longer causes Perl to
+crash [perl #78674].
+
+=item *
+
+Calling C<< ->import >> on a class lacking an import method could corrupt
+the stack, resulting in strange behaviour.  For instance,
+
+  push @a, "foo", $b = bar->import;
+
+would assign "foo" to C<$b> [perl #63790].
+
+=item *
+
+The C<recv> function could crash when called with the MSG_TRUNC flag
+[perl #75082].
+
+=item *
+
+C<formline> no longer crashes when passed a tainted format picture.  It also
+taints C<$^A> now if its arguments are tainted [perl #79138].
+
+=item *
+
+A bug in how we process filetest operations could cause a segfault.
+Filetests don't always expect an op on the stack, so we now use
+TOPs only if we're sure that we're not C<stat>ing the C<_> filehandle.
+This is indicated by C<OPf_KIDS> (as checked in ck_ftst) [perl #74542]
+(5.12.1).
+
+=item *
+
+unpack() now handles scalar context correctly for C<%32H> and C<%32u>,
+fixing a potential crash.  split() would crash because the third item
+on the stack wasn't the regular expression it expected.  C<unpack("%2H",
+...)> would return both the unpacked result and the checksum on the stack,
+as would C<unpack("%2u", ...)> [perl #73814] (5.12.2).
+
+=back
+
+=head2 Fixes to Various Perl Operators
+
+=over
+
+=item *
+
+The C<&>, C<|>, and C<^> bitwise operators no longer coerce read-only arguments
+[perl #20661].
+
+=item *
+
+Stringifying a scalar containing "-0.0" no longer has the effect of turning
+false into true [perl #45133].
+
+=item *
+
+Some numeric operators were converting integers to floating point,
+resulting in loss of precision on 64-bit platforms [perl #77456].
+
+=item *
+
+sprintf() was ignoring locales when called with constant arguments
+[perl #78632].
+
+=item *
+
+Combining the vector (C<%v>) flag and dynamic precision would
+cause C<sprintf> to confuse the order of its arguments, making it 
+treat the string as the precision and vice-versa [perl #83194].
+
+=back
+
+=head2 Bugs Relating to the C API
+
+=over
+
+=item *
+
+The C-level C<lex_stuff_pvn> function would sometimes cause a spurious
+syntax error on the last line of the file if it lacked a final semicolon
+[perl #74006] (5.12.1).
+
+=item *
+
+The C<eval_sv> and C<eval_pv> C functions now set C<$@> correctly when
+there is a syntax error and no C<G_KEEPERR> flag, and never set it if the
+C<G_KEEPERR> flag is present [perl #3719].
+
+=item *
+
+The XS multicall API no longer causes subroutines to lose reference counts
+if called via the multicall interface from within those very subroutines.
+This affects modules like L<List::Util>.  Calling one of its functions with an
+active subroutine as the first argument could cause a crash [perl #78070].
+
+=item *
+
+The C<SvPVbyte> function available to XS modules now calls magic before
+downgrading the SV, to avoid warnings about wide characters [perl #72398].
+
+=item *
+
+The ref types in the typemap for XS bindings now support magical variables
+[perl #72684].
+
+=item *
+
+C<sv_catsv_flags> no longer calls C<mg_get> on its second argument (the
+source string) if the flags passed to it do not include SV_GMAGIC.  So it
+now matches the documentation.
+
+=item *
+
+C<my_strftime> no longer leaks memory.  This fixes a memory leak in
+C<POSIX::strftime> [perl #73520].
+
+=item *
+
+F<XSUB.h> now correctly redefines fgets under PERL_IMPLICIT_SYS [perl #55049]
+(5.12.1).
+
+=item *
+
+XS code using fputc() or fputs() on Windows could cause an error
+due to their arguments being swapped [perl #72704] (5.12.1).
+
+=item *
+
+A possible segfault in the C<T_PTROBJ> default typemap has been fixed
+(5.12.2).
+
+=item *
+
+A bug that could cause "Unknown error" messages when
+C<call_sv(code, G_EVAL)> is called from an XS destructor has been fixed
+(5.12.2).
+
+=back
+
+=head1 Known Problems
+
+This is a list of significant unresolved issues which are regressions
+from earlier versions of Perl or which affect widely-used CPAN modules.
+
+=over 4
+
+=item *
+
+C<List::Util::first> misbehaves in the presence of a lexical C<$_>
+(typically introduced by C<my $_> or implicitly by C<given>).  The variable
+that gets set for each iteration is the package variable C<$_>, not the
+lexical C<$_>.
+
+A similar issue may occur in other modules that provide functions which
+take a block as their first argument, like
+
+    foo { ... $_ ...} list
+
+See also: L<http://rt.perl.org/rt3/Public/Bug/Display.html?id=67694>
+
+=item *
+
+readline() returns an empty string instead of a cached previous value
+when it is interrupted by a signal
+
+=item *
+
+The changes in prototype handling break L<Switch>.  A patch has been sent
+upstream and will hopefully appear on CPAN soon.
+
+=item *
+
+The upgrade to F<ExtUtils-MakeMaker-6.57_05> has caused
+some tests in the F<Module-Install> distribution on CPAN to
+fail. (Specifically, F<02_mymeta.t> tests 5 and 21; F<18_all_from.t>
+tests 6 and 15; F<19_authors.t> tests 5, 13, 21, and 29; and
+F<20_authors_with_special_characters.t> tests 6, 15, and 23 in version
+1.00 of that distribution now fail.)
+
+=item *
+
+On VMS, C<Time::HiRes> tests will fail due to a bug in the CRTL's
+implementation of C<setitimer>: previous timer values would be cleared
+if a timer expired but not if the timer was reset before expiring.  HP
+OpenVMS Engineering have corrected the problem and will release a patch
+in due course (Quix case # QXCM1001115136).
+
+=item *
+
+On VMS, there were a handful of C<Module::Build> test failures we didn't
+get to before the release; please watch CPAN for updates.
+
+=back
+
+=head1 Errata
+
+=head2 keys(), values(), and each() work on arrays
+
+You can now use the keys(), values(), and each() builtins on arrays;
+previously you could use them only on hashes.  See L<perlfunc> for details.
+This is actually a change introduced in perl 5.12.0, but it was missed from
+that release's L<perl5120delta>.
+
+=head2 split() and C<@_>
+
+split() no longer modifies C<@_> when called in scalar or void context.
+In void context it now produces a "Useless use of split" warning.
+This was also a perl 5.12.0 change that missed the perldelta.
+
+=head1 Obituary
+
+Randy Kobes, creator of http://kobesearch.cpan.org/ and
+contributor/maintainer to several core Perl toolchain modules, passed
+away on September 18, 2010 after a battle with lung cancer.  The community
+was richer for his involvement.  He will be missed.
+
+=head1 Acknowledgements
+
+Perl 5.14.0 represents one year of development since
+Perl 5.12.0 and contains nearly 550,000 lines of changes across nearly
+3,000 files from 150 authors and committers.
+
+Perl continues to flourish into its third decade thanks to a vibrant
+community of users and developers.  The following people are known to
+have contributed the improvements that became Perl 5.14.0:
+
+Aaron Crane, Abhijit Menon-Sen, Abigail, Ævar Arnfjörð Bjarmason,
+Alastair Douglas, Alexander Alekseev, Alexander Hartmaier, Alexandr
+Ciornii, Alex Davies, Alex Vandiver, Ali Polatel, Allen Smith, Andreas
+König, Andrew Rodland, Andy Armstrong, Andy Dougherty, Aristotle
+Pagaltzis, Arkturuz, Arvan, A. Sinan Unur, Ben Morrow, Bo Lindbergh,
+Boris Ratner, Brad Gilbert, Bram, brian d foy, Brian Phillips, Casey
+West, Charles Bailey, Chas. Owens, Chip Salzenberg, Chris 'BinGOs'
+Williams, chromatic, Craig A. Berry, Curtis Jewell, Dagfinn Ilmari
+Mannsåker, Dan Dascalescu, Dave Rolsky, David Caldwell, David Cantrell,
+David Golden, David Leadbeater, David Mitchell, David Wheeler, Eric
+Brine, Father Chrysostomos, Fingle Nark, Florian Ragwitz, Frank Wiegand,
+Franz Fasching, Gene Sullivan, George Greer, Gerard Goossen, Gisle Aas,
+Goro Fuji, Grant McLean, gregor herrmann, H.Merijn Brand, Hongwen Qiu,
+Hugo van der Sanden, Ian Goodacre, James E Keenan, James Mastros, Jan
+Dubois, Jay Hannah, Jerry D. Hedden, Jesse Vincent, Jim Cromie, Jirka
+Hruška, John Peacock, Joshua ben Jore, Joshua Pritikin, Karl Williamson,
+Kevin Ryde, kmx, Lars Dɪᴇᴄᴋ�ᴡ 迪拉斯, Larwan Berke, Leon Brocard, Leon
+Timmermans, Lubomir Rintel, Lukas Mai, Maik Hentsche, Marty Pauley,
+Marvin Humphrey, Matt Johnson, Matt S Trout, Max Maischein, Michael
+Breen, Michael Fig, Michael G Schwern, Michael Parker, Michael Stevens,
+Michael Witten, Mike Kelly, Moritz Lenz, Nicholas Clark, Nick Cleaton,
+Nick Johnston, Nicolas Kaiser, Niko Tyni, Noirin Shirley, Nuno Carvalho,
+Paul Evans, Paul Green, Paul Johnson, Paul Marquess, Peter J. Holzer,
+Peter John Acklam, Peter Martini, Philippe Bruhat (BooK), Piotr Fusik,
+Rafael Garcia-Suarez, Rainer Tammer, Reini Urban, Renee Baecker, Ricardo
+Signes, Richard Möhn, Richard Soderberg, Rob Hoelz, Robin Barker, Ruslan
+Zakirov, Salvador Fandiño, Salvador Ortiz Garcia, Shlomi Fish, Sinan
+Unur, Sisyphus, Slaven Rezic, Steffen Müller, Steve Hay, Steven
+Schubiger, Steve Peters, Sullivan Beck, Tatsuhiko Miyagawa, Tim Bunce,
+Todd Rinaldo, Tom Christiansen, Tom Hukins, Tony Cook, Tye McQueen,
+Vadim Konovalov, Vernon Lyon, Vincent Pit, Walt Mankowski, Wolfram
+Humann, Yves Orton, Zefram, and Zsbán Ambrus.
+
+This is woefully incomplete as it's automatically generated from version
+control history.  In particular, it doesn't include the names of the
+(very much appreciated) contributors who reported issues in previous
+versions of Perl that helped make Perl 5.14.0 better. For a more complete
+list of all of Perl's historical contributors, please see the C<AUTHORS>
+file in the Perl 5.14.0 distribution.
+
+Many of the changes included in this version originated in the CPAN
+modules included in Perl's core. We're grateful to the entire CPAN
+community for helping Perl to flourish.
+
+=head1 Reporting Bugs
+
+If you find what you think is a bug, you might check the articles
+recently posted to the comp.lang.perl.misc newsgroup and the Perl
+bug database at http://rt.perl.org/perlbug/ .  There may also be
+information at http://www.perl.org/ , the Perl Home Page.
+
+If you believe you have an unreported bug, please run the L<perlbug>
+program included with your release.  Be sure to trim your bug down
+to a tiny but sufficient test case.  Your bug report, along with the
+output of C<perl -V>, will be sent off to perlbug@perl.org to be
+analysed by the Perl porting team.
+
+If the bug you are reporting has security implications, which make it
+inappropriate to send to a publicly archived mailing list, then please send
+it to perl5-security-report@perl.org.  This points to a closed subscription
+unarchived mailing list, which includes all the core committers, who are able
+to help assess the impact of issues, figure out a resolution, and help
+co-ordinate the release of patches to mitigate or fix the problem across all
+platforms on which Perl is supported.  Please use this address for
+security issues in the Perl core I<only>, not for modules independently
+distributed on CPAN.
+
+=head1 SEE ALSO
+
+The F<Changes> file for an explanation of how to view exhaustive details
+on what changed.
+
+The F<INSTALL> file for how to build Perl.
+
+The F<README> file for general stuff.
+
+The F<Artistic> and F<Copying> files for copyright information.
+
+=cut
diff --git a/lib/5.24.1/pod/perl5141delta.pod b/lib/5.24.1/pod/perl5141delta.pod
new file mode 100644
index 00000000..db24343c
--- /dev/null
+++ b/lib/5.24.1/pod/perl5141delta.pod
@@ -0,0 +1,361 @@
+=encoding utf8
+
+=head1 NAME
+
+perl5141delta - what is new for perl v5.14.1
+
+=head1 DESCRIPTION
+
+This document describes differences between the 5.14.0 release and
+the 5.14.1 release.
+
+If you are upgrading from an earlier release such as 5.12.0, first read
+L<perl5140delta>, which describes differences between 5.12.0 and
+5.14.0.
+
+=head1 Core Enhancements
+
+No changes since 5.14.0.
+
+=head1 Security
+
+No changes since 5.14.0.
+
+=head1 Incompatible Changes
+
+There are no changes intentionally incompatible with 5.14.0. If any
+exist, they are bugs and reports are welcome.
+
+=head1 Deprecations
+
+There have been no deprecations since 5.14.0.
+
+=head1 Modules and Pragmata
+
+=head2 New Modules and Pragmata
+
+None
+
+=head2 Updated Modules and Pragmata
+
+=over 4
+
+=item *
+
+L<B::Deparse> has been upgraded from version 1.03 to 1.04, to address two
+regressions in Perl 5.14.0:
+
+Deparsing of the C<glob> operator and its diamond (C<< <> >>) form now
+works again. [perl #90898]
+
+The presence of subroutines named C<::::> or C<::::::> no longer causes
+B::Deparse to hang.
+
+=item *
+
+L<Pod::Perldoc> has been upgraded from version 3.15_03 to 3.15_04.
+
+It corrects the search paths on VMS. [perl #90640]
+
+=back
+
+=head2 Removed Modules and Pragmata
+
+None
+
+=head1 Documentation
+
+=head2 New Documentation
+
+None
+
+=head2 Changes to Existing Documentation
+
+=head3 L<perlfunc>
+
+=over
+
+=item *
+
+C<given>, C<when> and C<default> are now listed in L<perlfunc>.
+
+=item *
+
+Documentation for C<use> now includes a pointer to F<if.pm>.
+
+=back
+
+=head3 L<perllol>
+
+=over
+
+=item *
+
+L<perllol> has been expanded with examples using the new C<push $scalar>
+syntax introduced in Perl 5.14.0.
+
+=back
+
+=head3 L<perlop>
+
+=over 4
+
+=item *
+
+The explanation of bitwise operators has been expanded to explain how they
+work on Unicode strings.
+
+=item *
+
+The section on the triple-dot or yada-yada operator has been moved up, as
+it used to separate two closely related sections about the comma operator.
+
+=item *
+
+More examples for C<m//g> have been added.
+
+=item *
+
+The C<<< <<\FOO >>> here-doc syntax has been documented.
+
+=back
+
+=head3 L<perlrun>
+
+=over
+
+=item *
+
+L<perlrun> has undergone a significant clean-up.  Most notably, the
+B<-0x...> form of the B<-0> flag has been clarified, and the final section
+on environment variables has been corrected and expanded.
+
+=back
+
+=head3 L<POSIX>
+
+=over 
+
+=item *
+
+The invocation documentation for C<WIFEXITED>, C<WEXITSTATUS>,
+C<WIFSIGNALED>, C<WTERMSIG>, C<WIFSTOPPED>, and C<WSTOPSIG> was corrected.
+
+=back
+
+
+=head1 Diagnostics
+
+The following additions or changes have been made to diagnostic output,
+including warnings and fatal error messages.  For the complete list of
+diagnostic messages, see L<perldiag>.
+
+=head2 New Diagnostics
+
+None
+
+=head2 Changes to Existing Diagnostics
+
+None
+
+=head1 Utility Changes
+
+None
+
+=head1 Configuration and Compilation
+
+=over 4
+
+=item *
+
+F<regexp.h> has been modified for compatibility with GCC's C<-Werror>
+option, as used by some projects that include perl's header files.
+
+=back
+
+=head1 Testing
+
+=over 4
+
+=item *
+
+Some test failures in F<dist/Locale-Maketext/t/09_compile.t> that could
+occur depending on the environment have been fixed. [perl #89896]
+
+=item * 
+
+A watchdog timer for F<t/re/re.t> was lengthened to accommodate SH-4 systems
+which were unable to complete the tests before the previous timer ran out.
+
+
+=back
+
+=head1 Platform Support
+
+=head2 New Platforms
+
+None
+
+=head2 Discontinued Platforms
+
+None
+
+=head2 Platform-Specific Notes
+
+=head3 Solaris
+
+=over 
+
+=item *
+
+Documentation listing the Solaris packages required to build Perl on
+Solaris 9 and Solaris 10 has been corrected.
+
+=back
+
+=head3 Mac OS X
+
+=over
+
+=item * 
+
+The F<lib/locale.t> test script has been updated to work on the upcoming
+Lion release.
+
+=item * 
+
+Mac OS X specific compilation instructions have been clarified.
+
+=back
+
+=head3 Ubuntu Linux
+
+=over 
+
+=item *
+
+The L<ODBM_File> installation process has been updated with the new library
+paths on Ubuntu natty.
+
+=back
+
+=head1 Internal Changes
+
+=over 
+
+=item *
+
+The compiled representation of formats is now stored via the mg_ptr of
+their PERL_MAGIC_fm. Previously it was stored in the string buffer,
+beyond SvLEN(), the regular end of the string. SvCOMPILED() and
+SvCOMPILED_{on,off}() now exist solely for compatibility for XS code.
+The first is always 0, the other two now no-ops.
+
+=back
+
+=head1 Bug Fixes
+
+=over 4
+
+=item *
+
+A bug has been fixed that would cause a "Use of freed value in iteration"
+error if the next two hash elements that would be iterated over are
+deleted. [perl #85026]
+
+=item *
+
+Passing the same constant subroutine to both C<index> and C<formline> no
+longer causes one or the other to fail. [perl #89218]
+
+=item *
+
+5.14.0 introduced some memory leaks in regular expression character
+classes such as C<[\w\s]>, which have now been fixed.
+
+=item *
+
+An edge case in regular expression matching could potentially loop.
+This happened only under C</i> in bracketed character classes that have
+characters with multi-character folds, and the target string to match
+against includes the first portion of the fold, followed by another
+character that has a multi-character fold that begins with the remaining
+portion of the fold, plus some more.
+
+ "s\N{U+DF}" =~ /[\x{DF}foo]/i
+
+is one such case.  C<\xDF> folds to C<"ss">.
+
+=item * 
+
+Several Unicode case-folding bugs have been fixed.
+
+=item *
+
+The new (in 5.14.0) regular expression modifier C</a> when repeated like
+C</aa> forbids the characters outside the ASCII range that match
+characters inside that range from matching under C</i>.  This did not
+work under some circumstances, all involving alternation, such as:
+
+ "\N{KELVIN SIGN}" =~ /k|foo/iaa;
+
+succeeded inappropriately.  This is now fixed.
+
+=item *
+
+Fixed a case where it was possible that a freed buffer may have been read
+from when parsing a here document.
+
+=back
+
+=head1 Acknowledgements
+
+Perl 5.14.1 represents approximately four weeks of development since
+Perl 5.14.0 and contains approximately 3500 lines of changes
+across 38 files from 17 authors.
+
+Perl continues to flourish into its third decade thanks to a vibrant
+community of users and developers.  The following people are known to
+have contributed the improvements that became Perl 5.14.1:
+
+Bo Lindbergh, Claudio Ramirez, Craig A. Berry, David Leadbeater, Father
+Chrysostomos, Jesse Vincent, Jim Cromie, Justin Case, Karl Williamson,
+Leo Lapworth, Nicholas Clark, Nobuhiro Iwamatsu, smash, Tom Christiansen,
+Ton Hospel, Vladimir Timofeev, and Zsbán Ambrus.
+
+
+=head1 Reporting Bugs
+
+If you find what you think is a bug, you might check the articles
+recently posted to the comp.lang.perl.misc newsgroup and the perl
+bug database at http://rt.perl.org/perlbug/ .  There may also be
+information at http://www.perl.org/ , the Perl Home Page.
+
+If you believe you have an unreported bug, please run the L<perlbug>
+program included with your release.  Be sure to trim your bug down
+to a tiny but sufficient test case.  Your bug report, along with the
+output of C<perl -V>, will be sent off to perlbug@perl.org to be
+analysed by the Perl porting team.
+
+If the bug you are reporting has security implications, which make it
+inappropriate to send to a publicly archived mailing list, then please send
+it to perl5-security-report@perl.org. This points to a closed subscription
+unarchived mailing list, which includes all the core committers, who be able
+to help assess the impact of issues, figure out a resolution, and help
+co-ordinate the release of patches to mitigate or fix the problem across all
+platforms on which Perl is supported. Please only use this address for
+security issues in the Perl core, not for modules independently
+distributed on CPAN.
+
+=head1 SEE ALSO
+
+The F<Changes> file for an explanation of how to view exhaustive details
+on what changed.
+
+The F<INSTALL> file for how to build Perl.
+
+The F<README> file for general stuff.
+
+The F<Artistic> and F<Copying> files for copyright information.
+
+=cut
diff --git a/lib/5.24.1/pod/perl5142delta.pod b/lib/5.24.1/pod/perl5142delta.pod
new file mode 100644
index 00000000..3d78ba23
--- /dev/null
+++ b/lib/5.24.1/pod/perl5142delta.pod
@@ -0,0 +1,242 @@
+=encoding utf8
+
+=head1 NAME
+
+perl5142delta - what is new for perl v5.14.2
+
+=head1 DESCRIPTION
+
+This document describes differences between the 5.14.1 release and
+the 5.14.2 release.
+
+If you are upgrading from an earlier release such as 5.14.0, first read
+L<perl5141delta>, which describes differences between 5.14.0 and
+5.14.1.
+
+=head1 Core Enhancements
+
+No changes since 5.14.0.
+
+=head1 Security
+
+=head2 C<File::Glob::bsd_glob()> memory error with GLOB_ALTDIRFUNC (CVE-2011-2728).
+
+Calling C<File::Glob::bsd_glob> with the unsupported flag GLOB_ALTDIRFUNC would
+cause an access violation / segfault.  A Perl program that accepts a flags value from
+an external source could expose itself to denial of service or arbitrary code
+execution attacks.  There are no known exploits in the wild.  The problem has been
+corrected by explicitly disabling all unsupported flags and setting unused function
+pointers to null.  Bug reported by Clément Lecigne.
+
+=head2 C<Encode> decode_xs n-byte heap-overflow (CVE-2011-2939)
+
+A bug in C<Encode> could, on certain inputs, cause the heap to overflow.
+This problem has been corrected.  Bug reported by Robert Zacek.
+
+=head1 Incompatible Changes
+
+There are no changes intentionally incompatible with 5.14.0. If any
+exist, they are bugs and reports are welcome.
+
+=head1 Deprecations
+
+There have been no deprecations since 5.14.0.
+
+=head1 Modules and Pragmata
+
+=head2 New Modules and Pragmata
+
+None
+
+=head2 Updated Modules and Pragmata
+
+=over 4
+
+=item *
+
+L<CPAN> has been upgraded from version 1.9600 to version 1.9600_01.
+
+L<CPAN::Distribution> has been upgraded from version 1.9602 to 1.9602_01.
+
+Backported bugfixes from CPAN version 1.9800.  Ensures proper
+detection of C<configure_requires> prerequisites from CPAN Meta files
+in the case where C<dynamic_config> is true.  [rt.cpan.org #68835]
+
+Also ensures that C<configure_requires> is only checked in META files,
+not MYMETA files, so protect against MYMETA generation that drops
+C<configure_requires>.
+
+=item *
+
+L<Encode> has been upgraded from version 2.42 to 2.42_01.
+
+See L</Security>.
+
+=item *
+
+L<File::Glob> has been upgraded from version 1.12 to version 1.13.
+
+See L</Security>.
+
+=item *
+
+L<PerlIO::scalar> has been upgraded from version 0.11 to 0.11_01.
+
+It fixes a problem with C<< open my $fh, ">", \$scalar >> not working if
+C<$scalar> is a copy-on-write scalar.
+
+=back
+
+=head2 Removed Modules and Pragmata
+
+None
+
+=head1 Platform Support
+
+=head2 New Platforms
+
+None
+
+=head2 Discontinued Platforms
+
+None
+
+=head2 Platform-Specific Notes
+
+=over 4
+
+=item HP-UX PA-RISC/64 now supports gcc-4.x
+
+A fix to correct the socketsize now makes the test suite pass on HP-UX
+PA-RISC for 64bitall builds.
+
+=item Building on OS X 10.7 Lion and Xcode 4 works again
+
+The build system has been updated to work with the build tools under Mac OS X
+10.7.
+
+=back
+
+=head1 Bug Fixes
+
+=over 4
+
+=item *
+
+In @INC filters (subroutines returned by subroutines in @INC), $_ used to
+misbehave: If returned from a subroutine, it would not be copied, but the
+variable itself would be returned; and freeing $_ (e.g., with C<undef *_>)
+would cause perl to crash.  This has been fixed [perl #91880].
+
+=item *
+
+Perl 5.10.0 introduced some faulty logic that made "U*" in the middle of
+a pack template equivalent to "U0" if the input string was empty.  This has
+been fixed [perl #90160].
+
+=item *
+
+C<caller> no longer leaks memory when called from the DB package if
+C<@DB::args> was assigned to after the first call to C<caller>.  L<Carp>
+was triggering this bug [perl #97010].
+
+=item *
+
+C<utf8::decode> had a nasty bug that would modify copy-on-write scalars'
+string buffers in place (i.e., skipping the copy).  This could result in
+hashes having two elements with the same key [perl #91834].
+
+=item *
+
+Localising a tied variable used to make it read-only if it contained a
+copy-on-write string.
+
+=item *
+
+Elements of restricted hashes (see the L<fields> pragma) containing
+copy-on-write values couldn't be deleted, nor could such hashes be cleared
+(C<%hash = ()>).
+
+=item *
+
+Locking a hash element that is a glob copy no longer causes subsequent
+assignment to it to corrupt the glob.
+
+=item *
+
+A panic involving the combination of the regular expression modifiers
+C</aa> introduced in 5.14.0 and the C<\b> escape sequence has been
+fixed [perl #95964].
+
+=back
+
+=head1 Known Problems
+
+This is a list of some significant unfixed bugs, which are regressions
+from 5.12.0.
+
+=over 4
+
+=item *
+
+C<PERL_GLOBAL_STRUCT> is broken.
+
+Since perl 5.14.0, building with C<-DPERL_GLOBAL_STRUCT> hasn't been
+possible. This means that perl currently doesn't work on any platforms that
+require it to be built this way, including Symbian.
+
+While C<PERL_GLOBAL_STRUCT> now works again on recent development versions of
+perl, it actually working on Symbian again hasn't been verified.
+
+We'd be very interested in hearing from anyone working with Perl on Symbian.
+
+=back
+
+=head1 Acknowledgements
+
+Perl 5.14.2 represents approximately three months of development since
+Perl 5.14.1 and contains approximately 1200 lines of changes
+across 61 files from 9 authors.
+
+Perl continues to flourish into its third decade thanks to a vibrant
+community of users and developers.  The following people are known to
+have contributed the improvements that became Perl 5.14.2:
+
+Craig A. Berry, David Golden, Father Chrysostomos, Florian Ragwitz, H.Merijn
+Brand, Karl Williamson, Nicholas Clark, Pau Amma and Ricardo Signes.
+
+=head1 Reporting Bugs
+
+If you find what you think is a bug, you might check the articles
+recently posted to the comp.lang.perl.misc newsgroup and the perl
+bug database at http://rt.perl.org/perlbug/ .  There may also be
+information at http://www.perl.org/ , the Perl Home Page.
+
+If you believe you have an unreported bug, please run the L<perlbug>
+program included with your release.  Be sure to trim your bug down
+to a tiny but sufficient test case.  Your bug report, along with the
+output of C<perl -V>, will be sent off to perlbug@perl.org to be
+analysed by the Perl porting team.
+
+If the bug you are reporting has security implications, which make it
+inappropriate to send to a publicly archived mailing list, then please send
+it to perl5-security-report@perl.org. This points to a closed subscription
+unarchived mailing list, which includes all the core committers, who be able
+to help assess the impact of issues, figure out a resolution, and help
+co-ordinate the release of patches to mitigate or fix the problem across all
+platforms on which Perl is supported. Please only use this address for
+security issues in the Perl core, not for modules independently
+distributed on CPAN.
+
+=head1 SEE ALSO
+
+The F<Changes> file for an explanation of how to view exhaustive details
+on what changed.
+
+The F<INSTALL> file for how to build Perl.
+
+The F<README> file for general stuff.
+
+The F<Artistic> and F<Copying> files for copyright information.
+
+=cut
diff --git a/lib/5.24.1/pod/perl5143delta.pod b/lib/5.24.1/pod/perl5143delta.pod
new file mode 100644
index 00000000..093b6272
--- /dev/null
+++ b/lib/5.24.1/pod/perl5143delta.pod
@@ -0,0 +1,291 @@
+=encoding utf8
+
+=head1 NAME
+
+perl5143delta - what is new for perl v5.14.3
+
+=head1 DESCRIPTION
+
+This document describes differences between the 5.14.2 release and
+the 5.14.3 release.
+
+If you are upgrading from an earlier release such as 5.12.0, first read
+L<perl5140delta>, which describes differences between 5.12.0 and
+5.14.0.
+
+=head1 Core Enhancements
+
+No changes since 5.14.0.
+
+=head1 Security
+
+=head2 C<Digest> unsafe use of eval (CVE-2011-3597)
+
+The C<Digest-E<gt>new()> function did not properly sanitize input before
+using it in an eval() call, which could lead to the injection of arbitrary
+Perl code.
+
+In order to exploit this flaw, the attacker would need to be able to set
+the algorithm name used, or be able to execute arbitrary Perl code already.
+
+This problem has been fixed.
+
+=head2 Heap buffer overrun in 'x' string repeat operator (CVE-2012-5195)
+
+Poorly written perl code that allows an attacker to specify the count to
+perl's 'x' string repeat operator can already cause a memory exhaustion
+denial-of-service attack. A flaw in versions of perl before 5.15.5 can
+escalate that into a heap buffer overrun; coupled with versions of glibc
+before 2.16, it possibly allows the execution of arbitrary code.
+
+This problem has been fixed.
+
+=head1 Incompatible Changes
+
+There are no changes intentionally incompatible with 5.14.0. If any
+exist, they are bugs and reports are welcome.
+
+=head1 Deprecations
+
+There have been no deprecations since 5.14.0.
+
+=head1 Modules and Pragmata
+
+=head2 New Modules and Pragmata
+
+None
+
+=head2 Updated Modules and Pragmata
+
+=over 4
+
+=item *
+
+L<PerlIO::scalar> was updated to fix a bug in which opening a filehandle to
+a glob copy caused assertion failures (under debugging) or hangs or other
+erratic behaviour without debugging.
+
+=item *
+
+L<ODBM_File> and L<NDBM_File> were updated to allow building on GNU/Hurd.
+
+=item *
+
+L<IPC::Open3> has been updated to fix a regression introduced in perl
+5.12, which broke C<IPC::Open3::open3($in, $out, $err, '-')>.
+[perl #95748]
+
+=item *
+
+L<Digest> has been upgraded from version 1.16 to 1.16_01.
+
+See L</Security>.
+
+=item *
+
+L<Module::CoreList> has been updated to version 2.49_04 to add data for
+this release.
+
+=back
+
+=head2 Removed Modules and Pragmata
+
+None
+
+=head1 Documentation
+
+=head2 New Documentation
+
+None
+
+=head2 Changes to Existing Documentation
+
+=head3 L<perlcheat>
+
+=over 4
+
+=item *
+
+L<perlcheat> was updated to 5.14.
+
+=back
+
+=head1 Configuration and Compilation
+
+=over 4
+
+=item *
+
+h2ph was updated to search correctly gcc include directories on platforms
+such as Debian with multi-architecture support.
+
+=item *
+
+In Configure, the test for procselfexe was refactored into a loop.
+
+=back
+
+=head1 Platform Support
+
+=head2 New Platforms
+
+None
+
+=head2 Discontinued Platforms
+
+None
+
+=head2 Platform-Specific Notes
+
+=over 4
+
+=item FreeBSD
+
+The FreeBSD hints file was corrected to be compatible with FreeBSD 10.0.
+
+=item Solaris and NetBSD
+
+Configure was updated for "procselfexe" support on Solaris and NetBSD.
+
+=item HP-UX
+
+README.hpux was updated to note the existence of a broken header in
+HP-UX 11.00.
+
+=item Linux
+
+libutil is no longer used when compiling on Linux platforms, which avoids
+warnings being emitted.
+
+The system gcc (rather than any other gcc which might be in the compiling
+user's path) is now used when searching for libraries such as C<-lm>.
+
+=item Mac OS X
+
+The locale tests were updated to reflect the behaviour of locales in
+Mountain Lion.
+
+=item GNU/Hurd
+
+Various build and test fixes were included for GNU/Hurd.
+
+LFS support was enabled in GNU/Hurd.
+
+=item NetBSD
+
+The NetBSD hints file was corrected to be compatible with NetBSD 6.*
+
+=back
+
+=head1 Bug Fixes
+
+=over 4
+
+=item *
+
+A regression has been fixed that was introduced in 5.14, in C</i>
+regular expression matching, in which a match improperly fails if the
+pattern is in UTF-8, the target string is not, and a Latin-1 character
+precedes a character in the string that should match the pattern.  [perl
+#101710]
+
+=item *
+
+In case-insensitive regular expression pattern matching, no longer on
+UTF-8 encoded strings does the scan for the start of match only look at
+the first possible position.  This caused matches such as
+C<"f\x{FB00}" =~ /ff/i> to fail.
+
+=item *
+
+The sitecustomize support was made relocatableinc aware, so that
+-Dusesitecustomize and -Duserelocatableinc may be used together.
+
+=item *
+
+The smartmatch operator (C<~~>) was changed so that the right-hand side
+takes precedence during C<Any ~~ Object> operations.
+
+=item *
+
+A bug has been fixed in the tainting support, in which an C<index()>
+operation on a tainted constant would cause all other constants to become
+tainted.  [perl #64804]
+
+=item *
+
+A regression has been fixed that was introduced in perl 5.12, whereby
+tainting errors were not correctly propagated through C<die()>.
+[perl #111654]
+
+=item *
+
+A regression has been fixed that was introduced in perl 5.14, in which
+C</[[:lower:]]/i> and C</[[:upper:]]/i> no longer matched the opposite case.
+[perl #101970]
+
+=back
+
+=head1 Acknowledgements
+
+Perl 5.14.3 represents approximately 12 months of development since Perl 5.14.2
+and contains approximately 2,300 lines of changes across 64 files from 22
+authors.
+
+Perl continues to flourish into its third decade thanks to a vibrant community
+of users and developers. The following people are known to have contributed the
+improvements that became Perl 5.14.3:
+
+Abigail, Andy Dougherty, Carl Hayter, Chris 'BinGOs' Williams, Dave Rolsky,
+David Mitchell, Dominic Hargreaves, Father Chrysostomos, Florian Ragwitz,
+H.Merijn Brand, Jilles Tjoelker, Karl Williamson, Leon Timmermans, Michael G
+Schwern, Nicholas Clark, Niko Tyni, Pino Toscano, Ricardo Signes, Salvador
+Fandiño, Samuel Thibault, Steve Hay, Tony Cook.
+
+The list above is almost certainly incomplete as it is automatically generated
+from version control history. In particular, it does not include the names of
+the (very much appreciated) contributors who reported issues to the Perl bug
+tracker.
+
+Many of the changes included in this version originated in the CPAN modules
+included in Perl's core. We're grateful to the entire CPAN community for
+helping Perl to flourish.
+
+For a more complete list of all of Perl's historical contributors, please see
+the F<AUTHORS> file in the Perl source distribution.
+
+=head1 Reporting Bugs
+
+If you find what you think is a bug, you might check the articles
+recently posted to the comp.lang.perl.misc newsgroup and the perl
+bug database at http://rt.perl.org/perlbug/ .  There may also be
+information at http://www.perl.org/ , the Perl Home Page.
+
+If you believe you have an unreported bug, please run the L<perlbug>
+program included with your release.  Be sure to trim your bug down
+to a tiny but sufficient test case.  Your bug report, along with the
+output of C<perl -V>, will be sent off to perlbug@perl.org to be
+analysed by the Perl porting team.
+
+If the bug you are reporting has security implications, which make it
+inappropriate to send to a publicly archived mailing list, then please send
+it to perl5-security-report@perl.org. This points to a closed subscription
+unarchived mailing list, which includes all the core committers, who be able
+to help assess the impact of issues, figure out a resolution, and help
+co-ordinate the release of patches to mitigate or fix the problem across all
+platforms on which Perl is supported. Please only use this address for
+security issues in the Perl core, not for modules independently
+distributed on CPAN.
+
+=head1 SEE ALSO
+
+The F<Changes> file for an explanation of how to view exhaustive details
+on what changed.
+
+The F<INSTALL> file for how to build Perl.
+
+The F<README> file for general stuff.
+
+The F<Artistic> and F<Copying> files for copyright information.
+
+=cut
diff --git a/lib/5.24.1/pod/perl5144delta.pod b/lib/5.24.1/pod/perl5144delta.pod
new file mode 100644
index 00000000..23deecb4
--- /dev/null
+++ b/lib/5.24.1/pod/perl5144delta.pod
@@ -0,0 +1,240 @@
+=encoding utf8
+
+=head1 NAME
+
+perl5144delta - what is new for perl v5.14.4
+
+=head1 DESCRIPTION
+
+This document describes differences between the 5.14.3 release and
+the 5.14.4 release.
+
+If you are upgrading from an earlier release such as 5.12.0, first read
+L<perl5140delta>, which describes differences between 5.12.0 and
+5.14.0.
+
+=head1 Core Enhancements
+
+No changes since 5.14.0.
+
+=head1 Security
+
+This release contains one major, and medium, and a number of minor
+security fixes.  The latter are included mainly to allow the test suite to
+pass cleanly with the clang compiler's address sanitizer facility.
+
+=head2 CVE-2013-1667: memory exhaustion with arbitrary hash keys
+
+With a carefully crafted set of hash keys (for example arguments on a
+URL), it is possible to cause a hash to consume a large amount of memory
+and CPU, and thus possibly to achieve a Denial-of-Service.
+
+This problem has been fixed.
+
+=head2 memory leak in Encode
+
+The UTF-8 encoding implementation in Encode.xs had a memory leak which has been
+fixed.
+
+=head2 [perl #111594] Socket::unpack_sockaddr_un heap-buffer-overflow
+
+A read buffer overflow could occur when copying C<sockaddr> buffers.
+Fairly harmless.
+
+This problem has been fixed.
+
+=head2 [perl #111586] SDBM_File: fix off-by-one access to global ".dir"
+
+An extra byte was being copied for some string literals. Fairly harmless.
+
+This problem has been fixed.
+
+=head2 off-by-two error in List::Util
+
+A string literal was being used that included two bytes beyond the
+end of the string. Fairly harmless.
+
+This problem has been fixed.
+
+=head2 [perl #115994] fix segv in regcomp.c:S_join_exact()
+
+Under debugging builds, while marking optimised-out regex nodes as type
+C<OPTIMIZED>, it could treat blocks of exact text as if they were nodes,
+and thus SEGV. Fairly harmless.
+
+This problem has been fixed.
+
+=head2 [perl #115992] PL_eval_start use-after-free
+
+The statement C<local $[;>, when preceded by an C<eval>, and when not part
+of an assignment, could crash. Fairly harmless.
+
+This problem has been fixed.
+
+=head2 wrap-around with IO on long strings
+
+Reading or writing strings greater than 2**31 bytes in size could segfault
+due to integer wraparound.
+
+This problem has been fixed.
+
+=head1 Incompatible Changes
+
+There are no changes intentionally incompatible with 5.14.0. If any
+exist, they are bugs and reports are welcome.
+
+=head1 Deprecations
+
+There have been no deprecations since 5.14.0.
+
+=head1 Modules and Pragmata
+
+=head2 New Modules and Pragmata
+
+None
+
+=head2 Updated Modules and Pragmata
+
+The following modules have just the minor code fixes as listed above in
+L</Security> (version numbers have not changed):
+
+=over 4
+
+=item Socket
+
+=item SDBM_File
+
+=item List::Util
+
+=back
+
+L<Encode> has been upgraded from version 2.42_01 to version 2.42_02.
+
+L<Module::CoreList> has been updated to version 2.49_06 to add data for
+this release.
+
+=head2 Removed Modules and Pragmata
+
+None.
+
+=head1 Documentation
+
+=head2 New Documentation
+
+None.
+
+=head2 Changes to Existing Documentation
+
+None.
+
+=head1 Diagnostics
+
+No new or changed diagnostics.
+
+=head1 Utility Changes
+
+None
+
+=head1 Configuration and Compilation
+
+No changes.
+
+=head1 Platform Support
+
+=head2 New Platforms
+
+None.
+
+=head2 Discontinued Platforms
+
+None.
+
+=head2 Platform-Specific Notes
+
+=over 4
+
+=item VMS
+
+5.14.3 failed to compile on VMS due to incomplete application of a patch
+series that allowed C<userelocatableinc> and C<usesitecustomize> to be
+used simultaneously.  Other platforms were not affected and the problem
+has now been corrected.
+
+=back
+
+=head1 Selected Bug Fixes
+
+=over 4
+
+=item *
+
+In Perl 5.14.0, C<$tainted ~~ @array> stopped working properly.  Sometimes
+it would erroneously fail (when C<$tainted> contained a string that occurs
+in the array I<after> the first element) or erroneously succeed (when
+C<undef> occurred after the first element) [perl #93590].
+
+=back
+
+=head1 Known Problems
+
+None.
+
+=head1 Acknowledgements
+
+Perl 5.14.4 represents approximately 5 months of development since Perl 5.14.3
+and contains approximately 1,700 lines of changes across 49 files from 12
+authors.
+
+Perl continues to flourish into its third decade thanks to a vibrant community
+of users and developers. The following people are known to have contributed the
+improvements that became Perl 5.14.4:
+
+Andy Dougherty, Chris 'BinGOs' Williams, Christian Hansen, Craig A. Berry,
+Dave Rolsky, David Mitchell, Dominic Hargreaves, Father Chrysostomos,
+Florian Ragwitz, Reini Urban, Ricardo Signes, Yves Orton.
+
+
+The list above is almost certainly incomplete as it is automatically generated
+from version control history. In particular, it does not include the names of
+the (very much appreciated) contributors who reported issues to the Perl bug
+tracker.
+
+For a more complete list of all of Perl's historical contributors, please see
+the F<AUTHORS> file in the Perl source distribution.
+
+
+=head1 Reporting Bugs
+
+If you find what you think is a bug, you might check the articles
+recently posted to the comp.lang.perl.misc newsgroup and the perl
+bug database at http://rt.perl.org/perlbug/ .  There may also be
+information at http://www.perl.org/ , the Perl Home Page.
+
+If you believe you have an unreported bug, please run the L<perlbug>
+program included with your release.  Be sure to trim your bug down
+to a tiny but sufficient test case.  Your bug report, along with the
+output of C<perl -V>, will be sent off to perlbug@perl.org to be
+analysed by the Perl porting team.
+
+If the bug you are reporting has security implications, which make it
+inappropriate to send to a publicly archived mailing list, then please send
+it to perl5-security-report@perl.org. This points to a closed subscription
+unarchived mailing list, which includes all the core committers, who be able
+to help assess the impact of issues, figure out a resolution, and help
+co-ordinate the release of patches to mitigate or fix the problem across all
+platforms on which Perl is supported. Please only use this address for
+security issues in the Perl core, not for modules independently
+distributed on CPAN.
+
+=head1 SEE ALSO
+
+The F<Changes> file for an explanation of how to view exhaustive details
+on what changed.
+
+The F<INSTALL> file for how to build Perl.
+
+The F<README> file for general stuff.
+
+The F<Artistic> and F<Copying> files for copyright information.
+
+=cut
diff --git a/lib/5.24.1/pod/perl5160delta.pod b/lib/5.24.1/pod/perl5160delta.pod
new file mode 100644
index 00000000..ad293898
--- /dev/null
+++ b/lib/5.24.1/pod/perl5160delta.pod
@@ -0,0 +1,4314 @@
+=encoding utf8
+
+=head1 NAME
+
+perl5160delta - what is new for perl v5.16.0
+
+=head1 DESCRIPTION
+
+This document describes differences between the 5.14.0 release and
+the 5.16.0 release.
+
+If you are upgrading from an earlier release such as 5.12.0, first read
+L<perl5140delta>, which describes differences between 5.12.0 and
+5.14.0.
+
+Some bug fixes in this release have been backported to later
+releases of 5.14.x.  Those are indicated with the 5.14.x version in
+parentheses.
+
+=head1 Notice
+
+With the release of Perl 5.16.0, the 5.12.x series of releases is now out of
+its support period.  There may be future 5.12.x releases, but only in the
+event of a critical security issue.  Users of Perl 5.12 or earlier should
+consider upgrading to a more recent release of Perl.
+
+This policy is described in greater detail in
+L<perlpolicy|perlpolicy/MAINTENANCE AND SUPPORT>.
+
+=head1 Core Enhancements
+
+=head2 C<use I<VERSION>>
+
+As of this release, version declarations like C<use v5.16> now disable
+all features before enabling the new feature bundle.  This means that
+the following holds true:
+
+    use 5.016;
+    # only 5.16 features enabled here
+    use 5.014;
+    # only 5.14 features enabled here (not 5.16)
+
+C<use v5.12> and higher continue to enable strict, but explicit C<use
+strict> and C<no strict> now override the version declaration, even
+when they come first:
+
+    no strict;
+    use 5.012;
+    # no strict here
+
+There is a new ":default" feature bundle that represents the set of
+features enabled before any version declaration or C<use feature> has
+been seen.  Version declarations below 5.10 now enable the ":default"
+feature set.  This does not actually change the behavior of C<use
+v5.8>, because features added to the ":default" set are those that were
+traditionally enabled by default, before they could be turned off.
+
+C<< no feature >> now resets to the default feature set.  To disable all
+features (which is likely to be a pretty special-purpose request, since
+it presumably won't match any named set of semantics) you can now  
+write C<< no feature ':all' >>.
+
+C<$[> is now disabled under C<use v5.16>.  It is part of the default
+feature set and can be turned on or off explicitly with C<use feature
+'array_base'>.
+
+=head2 C<__SUB__>
+
+The new C<__SUB__> token, available under the C<current_sub> feature
+(see L<feature>) or C<use v5.16>, returns a reference to the current
+subroutine, making it easier to write recursive closures.
+
+=head2 New and Improved Built-ins
+
+=head3 More consistent C<eval>
+
+The C<eval> operator sometimes treats a string argument as a sequence of
+characters and sometimes as a sequence of bytes, depending on the
+internal encoding.  The internal encoding is not supposed to make any
+difference, but there is code that relies on this inconsistency.
+
+The new C<unicode_eval> and C<evalbytes> features (enabled under C<use
+5.16.0>) resolve this.  The C<unicode_eval> feature causes C<eval
+$string> to treat the string always as Unicode.  The C<evalbytes>
+features provides a function, itself called C<evalbytes>, which
+evaluates its argument always as a string of bytes.
+
+These features also fix oddities with source filters leaking to outer
+dynamic scopes.
+
+See L<feature> for more detail.
+
+=head3 C<substr> lvalue revamp
+
+=for comment Does this belong here, or under Incompatible Changes?
+
+When C<substr> is called in lvalue or potential lvalue context with two
+or three arguments, a special lvalue scalar is returned that modifies
+the original string (the first argument) when assigned to.
+
+Previously, the offsets (the second and third arguments) passed to
+C<substr> would be converted immediately to match the string, negative
+offsets being translated to positive and offsets beyond the end of the
+string being truncated.
+
+Now, the offsets are recorded without modification in the special
+lvalue scalar that is returned, and the original string is not even
+looked at by C<substr> itself, but only when the returned lvalue is
+read or modified.
+
+These changes result in an incompatible change:
+
+If the original string changes length after the call to C<substr> but
+before assignment to its return value, negative offsets will remember
+their position from the end of the string, affecting code like this:
+
+    my $string = "string";
+    my $lvalue = \substr $string, -4, 2;
+    print $$lvalue, "\n"; # prints "ri"
+    $string = "bailing twine";
+    print $$lvalue, "\n"; # prints "wi"; used to print "il"
+
+The same thing happens with an omitted third argument.  The returned
+lvalue will always extend to the end of the string, even if the string
+becomes longer.
+
+Since this change also allowed many bugs to be fixed (see
+L</The C<substr> operator>), and since the behavior
+of negative offsets has never been specified, the
+change was deemed acceptable.
+
+=head3 Return value of C<tied>
+
+The value returned by C<tied> on a tied variable is now the actual
+scalar that holds the object to which the variable is tied.  This
+lets ties be weakened with C<Scalar::Util::weaken(tied
+$tied_variable)>.
+
+=head2 Unicode Support
+
+=head3 Supports (I<almost>) Unicode 6.1
+
+Besides the addition of whole new scripts, and new characters in
+existing scripts, this new version of Unicode, as always, makes some
+changes to existing characters.  One change that may trip up some
+applications is that the General Category of two characters in the
+Latin-1 range, PILCROW SIGN and SECTION SIGN, has been changed from
+Other_Symbol to Other_Punctuation.  The same change has been made for
+a character in each of Tibetan, Ethiopic, and Aegean.
+The code points U+3248..U+324F (CIRCLED NUMBER TEN ON BLACK SQUARE
+through CIRCLED NUMBER EIGHTY ON BLACK SQUARE) have had their General
+Category changed from Other_Symbol to Other_Numeric.  The Line Break
+property has changes for Hebrew and Japanese; and because of
+other changes in 6.1, the Perl regular expression construct C<\X> now
+works differently for some characters in Thai and Lao.
+
+New aliases (synonyms) have been defined for many property values;
+these, along with the previously existing ones, are all cross-indexed in
+L<perluniprops>.
+
+The return value of C<charnames::viacode()> is affected by other
+changes:
+
+ Code point      Old Name             New Name
+   U+000A    LINE FEED (LF)        LINE FEED
+   U+000C    FORM FEED (FF)        FORM FEED
+   U+000D    CARRIAGE RETURN (CR)  CARRIAGE RETURN
+   U+0085    NEXT LINE (NEL)       NEXT LINE
+   U+008E    SINGLE-SHIFT 2        SINGLE-SHIFT-2
+   U+008F    SINGLE-SHIFT 3        SINGLE-SHIFT-3
+   U+0091    PRIVATE USE 1         PRIVATE USE-1
+   U+0092    PRIVATE USE 2         PRIVATE USE-2
+   U+2118    SCRIPT CAPITAL P      WEIERSTRASS ELLIPTIC FUNCTION
+
+Perl will accept any of these names as input, but
+C<charnames::viacode()> now returns the new name of each pair.  The
+change for U+2118 is considered by Unicode to be a correction, that is
+the original name was a mistake (but again, it will remain forever valid
+to use it to refer to U+2118).  But most of these changes are the
+fallout of the mistake Unicode 6.0 made in naming a character used in
+Japanese cell phones to be "BELL", which conflicts with the longstanding
+industry use of (and Unicode's recommendation to use) that name
+to mean the ASCII control character at U+0007.  Therefore, that name
+has been deprecated in Perl since v5.14, and any use of it will raise a
+warning message (unless turned off).  The name "ALERT" is now the
+preferred name for this code point, with "BEL" an acceptable short
+form.  The name for the new cell phone character, at code point U+1F514,
+remains undefined in this version of Perl (hence we don't 
+implement quite all of Unicode 6.1), but starting in v5.18, BELL will mean
+this character, and not U+0007.
+
+Unicode has taken steps to make sure that this sort of mistake does not
+happen again.  The Standard now includes all generally accepted
+names and abbreviations for control characters, whereas previously it
+didn't (though there were recommended names for most of them, which Perl
+used).  This means that most of those recommended names are now
+officially in the Standard.  Unicode did not recommend names for the
+four code points listed above between U+008E and U+008F, and in
+standardizing them Unicode subtly changed the names that Perl had
+previously given them, by replacing the final blank in each name by a
+hyphen.  Unicode also officially accepts names that Perl had deprecated,
+such as FILE SEPARATOR.  Now the only deprecated name is BELL.
+Finally, Perl now uses the new official names instead of the old
+(now considered obsolete) names for the first four code points in the
+list above (the ones which have the parentheses in them).
+
+Now that the names have been placed in the Unicode standard, these kinds
+of changes should not happen again, though corrections, such as to
+U+2118, are still possible.
+
+Unicode also added some name abbreviations, which Perl now accepts:
+SP for SPACE;
+TAB for CHARACTER TABULATION;
+NEW LINE, END OF LINE, NL, and EOL for LINE FEED;
+LOCKING-SHIFT ONE for SHIFT OUT;
+LOCKING-SHIFT ZERO for SHIFT IN;
+and ZWNBSP for ZERO WIDTH NO-BREAK SPACE.
+
+More details on this version of Unicode are provided in
+L<http://www.unicode.org/versions/Unicode6.1.0/>.
+
+=head3 C<use charnames> is no longer needed for C<\N{I<name>}>
+
+When C<\N{I<name>}> is encountered, the C<charnames> module is now
+automatically loaded when needed as if the C<:full> and C<:short>
+options had been specified.  See L<charnames> for more information.
+
+=head3 C<\N{...}> can now have Unicode loose name matching
+
+This is described in the C<charnames> item in
+L</Updated Modules and Pragmata> below.
+
+=head3 Unicode Symbol Names
+
+Perl now has proper support for Unicode in symbol names.  It used to be
+that C<*{$foo}> would ignore the internal UTF8 flag and use the bytes of
+the underlying representation to look up the symbol.  That meant that
+C<*{"\x{100}"}> and C<*{"\xc4\x80"}> would return the same thing.  All
+these parts of Perl have been fixed to account for Unicode:
+
+=over
+
+=item *
+
+Method names (including those passed to C<use overload>)
+
+=item *
+
+Typeglob names (including names of variables, subroutines, and filehandles)
+
+=item *
+
+Package names
+
+=item *
+
+C<goto>
+
+=item *
+
+Symbolic dereferencing
+
+=item *
+
+Second argument to C<bless()> and C<tie()>
+
+=item *
+
+Return value of C<ref()>
+
+=item *
+
+Subroutine prototypes
+
+=item *
+
+Attributes
+
+=item *
+
+Various warnings and error messages that mention variable names or values,
+methods, etc.
+
+=back
+
+In addition, a parsing bug has been fixed that prevented C<*{é}> from
+implicitly quoting the name, but instead interpreted it as C<*{+é}>, which
+would cause a strict violation.
+
+C<*{"*a::b"}> automatically strips off the * if it is followed by an ASCII
+letter.  That has been extended to all Unicode identifier characters.
+
+One-character non-ASCII non-punctuation variables (like C<$é>) are now
+subject to "Used only once" warnings.  They used to be exempt, as they
+were treated as punctuation variables.
+
+Also, single-character Unicode punctuation variables (like C<$‰>) are now
+supported [perl #69032].
+
+=head3 Improved ability to mix locales and Unicode, including UTF-8 locales
+
+An optional parameter has been added to C<use locale>
+
+ use locale ':not_characters';
+
+which tells Perl to use all but the C<LC_CTYPE> and C<LC_COLLATE>
+portions of the current locale.  Instead, the character set is assumed
+to be Unicode.  This lets locales and Unicode be seamlessly mixed,
+including the increasingly frequent UTF-8 locales.  When using this
+hybrid form of locales, the C<:locale> layer to the L<open> pragma can
+be used to interface with the file system, and there are CPAN modules
+available for ARGV and environment variable conversions.
+
+Full details are in L<perllocale>.
+
+=head3 New function C<fc> and corresponding escape sequence C<\F> for Unicode foldcase
+
+Unicode foldcase is an extension to lowercase that gives better results
+when comparing two strings case-insensitively.  It has long been used
+internally in regular expression C</i> matching.  Now it is available
+explicitly through the new C<fc> function call (enabled by
+S<C<"use feature 'fc'">>, or C<use v5.16>, or explicitly callable via
+C<CORE::fc>) or through the new C<\F> sequence in double-quotish
+strings.
+
+Full details are in L<perlfunc/fc>.
+
+=head3 The Unicode C<Script_Extensions> property is now supported.
+
+New in Unicode 6.0, this is an improved C<Script> property.  Details
+are in L<perlunicode/Scripts>.
+
+=head2 XS Changes
+
+=head3 Improved typemaps for Some Builtin Types
+
+Most XS authors will know there is a longstanding bug in the
+OUTPUT typemap for T_AVREF (C<AV*>), T_HVREF (C<HV*>), T_CVREF (C<CV*>),
+and T_SVREF (C<SVREF> or C<\$foo>) that requires manually decrementing
+the reference count of the return value instead of the typemap taking
+care of this.  For backwards-compatibility, this cannot be changed in the
+default typemaps.  But we now provide additional typemaps
+C<T_AVREF_REFCOUNT_FIXED>, etc. that do not exhibit this bug.  Using
+them in your extension is as simple as having one line in your
+C<TYPEMAP> section:
+
+  HV*	T_HVREF_REFCOUNT_FIXED
+
+=head3 C<is_utf8_char()>
+
+The XS-callable function C<is_utf8_char()>, when presented with
+malformed UTF-8 input, can read up to 12 bytes beyond the end of the
+string.  This cannot be fixed without changing its API, and so its
+use is now deprecated.  Use C<is_utf8_char_buf()> (described just below)
+instead.
+
+=head3 Added C<is_utf8_char_buf()>
+
+This function is designed to replace the deprecated L</is_utf8_char()>
+function.  It includes an extra parameter to make sure it doesn't read
+past the end of the input buffer.
+
+=head3 Other C<is_utf8_foo()> functions, as well as C<utf8_to_foo()>, etc.
+
+Most other XS-callable functions that take UTF-8 encoded input
+implicitly assume that the UTF-8 is valid (not malformed) with respect to
+buffer length.  Do not do things such as change a character's case or
+see if it is alphanumeric without first being sure that it is valid
+UTF-8.  This can be safely done for a whole string by using one of the
+functions C<is_utf8_string()>, C<is_utf8_string_loc()>, and
+C<is_utf8_string_loclen()>.
+
+=head3 New Pad API
+
+Many new functions have been added to the API for manipulating lexical
+pads.  See L<perlapi/Pad Data Structures> for more information.
+
+=head2 Changes to Special Variables
+
+=head3 C<$$> can be assigned to
+
+C<$$> was made read-only in Perl 5.8.0.  But only sometimes: C<local $$>
+would make it writable again.  Some CPAN modules were using C<local $$> or
+XS code to bypass the read-only check, so there is no reason to keep C<$$>
+read-only.  (This change also allowed a bug to be fixed while maintaining
+backward compatibility.)
+
+=head3 C<$^X> converted to an absolute path on FreeBSD, OS X and Solaris
+
+C<$^X> is now converted to an absolute path on OS X, FreeBSD (without
+needing F</proc> mounted) and Solaris 10 and 11.  This augments the
+previous approach of using F</proc> on Linux, FreeBSD, and NetBSD
+(in all cases, where mounted).
+
+This makes relocatable perl installations more useful on these platforms.
+(See "Relocatable @INC" in F<INSTALL>)
+
+=head2 Debugger Changes
+
+=head3 Features inside the debugger
+
+The current Perl's L<feature> bundle is now enabled for commands entered
+in the interactive debugger.
+
+=head3 New option for the debugger's B<t> command
+
+The B<t> command in the debugger, which toggles tracing mode, now
+accepts a numeric argument that determines how many levels of subroutine
+calls to trace.
+
+=head3 C<enable> and C<disable>
+
+The debugger now has C<disable> and C<enable> commands for disabling
+existing breakpoints and re-enabling them.  See L<perldebug>.
+
+=head3 Breakpoints with file names
+
+The debugger's "b" command for setting breakpoints now lets a line
+number be prefixed with a file name.  See
+L<perldebug/"b [file]:[line] [condition]">.
+
+=head2 The C<CORE> Namespace
+
+=head3 The C<CORE::> prefix
+
+The C<CORE::> prefix can now be used on keywords enabled by
+L<feature.pm|feature>, even outside the scope of C<use feature>.
+
+=head3 Subroutines in the C<CORE> namespace
+
+Many Perl keywords are now available as subroutines in the CORE namespace.
+This lets them be aliased:
+
+    BEGIN { *entangle = \&CORE::tie }
+    entangle $variable, $package, @args;
+
+And for prototypes to be bypassed:
+
+    sub mytie(\[%$*@]$@) {
+	my ($ref, $pack, @args) = @_;
+	... do something ...
+	goto &CORE::tie;
+    }
+
+Some of these cannot be called through references or via C<&foo> syntax,
+but must be called as barewords.
+
+See L<CORE> for details.
+
+=head2 Other Changes
+
+=head3 Anonymous handles
+
+Automatically generated file handles are now named __ANONIO__ when the
+variable name cannot be determined, rather than $__ANONIO__.
+
+=head3 Autoloaded sort Subroutines
+
+Custom sort subroutines can now be autoloaded [perl #30661]:
+
+    sub AUTOLOAD { ... }
+    @sorted = sort foo @list; # uses AUTOLOAD
+
+=head3 C<continue> no longer requires the "switch" feature
+
+The C<continue> keyword has two meanings.  It can introduce a C<continue>
+block after a loop, or it can exit the current C<when> block.  Up to now,
+the latter meaning was valid only with the "switch" feature enabled, and
+was a syntax error otherwise.  Since the main purpose of feature.pm is to
+avoid conflicts with user-defined subroutines, there is no reason for
+C<continue> to depend on it.
+
+=head3 DTrace probes for interpreter phase change
+
+The C<phase-change> probes will fire when the interpreter's phase
+changes, which tracks the C<${^GLOBAL_PHASE}> variable.  C<arg0> is
+the new phase name; C<arg1> is the old one.  This is useful 
+for limiting your instrumentation to one or more of: compile time,
+run time, or destruct time.
+
+=head3 C<__FILE__()> Syntax
+
+The C<__FILE__>, C<__LINE__> and C<__PACKAGE__> tokens can now be written
+with an empty pair of parentheses after them.  This makes them parse the
+same way as C<time>, C<fork> and other built-in functions.
+
+=head3 The C<\$> prototype accepts any scalar lvalue
+
+The C<\$> and C<\[$]> subroutine prototypes now accept any scalar lvalue
+argument.  Previously they accepted only scalars beginning with C<$> and
+hash and array elements.  This change makes them consistent with the way
+the built-in C<read> and C<recv> functions (among others) parse their
+arguments.  This means that one can override the built-in functions with
+custom subroutines that parse their arguments the same way.
+
+=head3 C<_> in subroutine prototypes
+
+The C<_> character in subroutine prototypes is now allowed before C<@> or
+C<%>.
+
+=head1 Security
+
+=head2 Use C<is_utf8_char_buf()> and not C<is_utf8_char()>
+
+The latter function is now deprecated because its API is insufficient to
+guarantee that it doesn't read (up to 12 bytes in the worst case) beyond
+the end of its input string.  See
+L<is_utf8_char_buf()|/Added is_utf8_char_buf()>.
+
+=head2 Malformed UTF-8 input could cause attempts to read beyond the end of the buffer
+
+Two new XS-accessible functions, C<utf8_to_uvchr_buf()> and
+C<utf8_to_uvuni_buf()> are now available to prevent this, and the Perl
+core has been converted to use them.
+See L</Internal Changes>.
+
+=head2 C<File::Glob::bsd_glob()> memory error with GLOB_ALTDIRFUNC (CVE-2011-2728).
+
+Calling C<File::Glob::bsd_glob> with the unsupported flag
+GLOB_ALTDIRFUNC would cause an access violation / segfault.  A Perl
+program that accepts a flags value from an external source could expose
+itself to denial of service or arbitrary code execution attacks.  There
+are no known exploits in the wild.  The problem has been corrected by
+explicitly disabling all unsupported flags and setting unused function
+pointers to null.  Bug reported by Clément Lecigne. (5.14.2)
+
+=head2 Privileges are now set correctly when assigning to C<$(>
+
+A hypothetical bug (probably unexploitable in practice) because the
+incorrect setting of the effective group ID while setting C<$(> has been
+fixed.  The bug would have affected only systems that have C<setresgid()>
+but not C<setregid()>, but no such systems are known to exist.
+
+=head1 Deprecations
+
+=head2 Don't read the Unicode data base files in F<lib/unicore>
+
+It is now deprecated to directly read the Unicode data base files.
+These are stored in the F<lib/unicore> directory.  Instead, you should
+use the new functions in L<Unicode::UCD>.  These provide a stable API,
+and give complete information.
+
+Perl may at some point in the future change or remove these files.  The
+file which applications were most likely to have used is
+F<lib/unicore/ToDigit.pl>.  L<Unicode::UCD/prop_invmap()> can be used to
+get at its data instead.
+
+=head2 XS functions C<is_utf8_char()>, C<utf8_to_uvchr()> and
+C<utf8_to_uvuni()>
+
+This function is deprecated because it could read beyond the end of the
+input string.  Use the new L<is_utf8_char_buf()|/Added is_utf8_char_buf()>,
+C<utf8_to_uvchr_buf()> and C<utf8_to_uvuni_buf()> instead.
+
+=head1 Future Deprecations
+
+This section serves as a notice of features that are I<likely> to be
+removed or L<deprecated|perlpolicy/deprecated> in the next release of
+perl (5.18.0).  If your code depends on these features, you should
+contact the Perl 5 Porters via the L<mailing
+list|http://lists.perl.org/list/perl5-porters.html> or L<perlbug> to
+explain your use case and inform the deprecation process.
+
+=head2 Core Modules
+
+These modules may be marked as deprecated I<from the core>.  This only
+means that they will no longer be installed by default with the core
+distribution, but will remain available on the CPAN.
+
+=over
+
+=item *
+
+CPANPLUS
+
+=item *
+
+Filter::Simple
+
+=item *
+
+PerlIO::mmap
+
+=item *
+
+Pod::LaTeX
+
+=item *
+
+Pod::Parser
+
+=item *
+
+SelfLoader
+
+=item *
+
+Text::Soundex
+
+=item *
+
+Thread.pm
+
+=back
+
+=head2 Platforms with no supporting programmers
+
+These platforms will probably have their
+special build support removed during the
+5.17.0 development series.
+
+=over
+
+=item *
+
+BeOS
+
+=item *
+
+djgpp
+
+=item *
+
+dgux
+
+=item *
+
+EPOC
+
+=item *
+
+MPE/iX
+
+=item *
+
+Rhapsody
+
+=item *
+
+UTS
+
+=item *
+
+VM/ESA
+
+=back
+
+=head2 Other Future Deprecations
+
+=over
+
+=item *
+
+Swapping of $< and $>
+
+For more information about this future deprecation, see L<the relevant RT
+ticket|https://rt.perl.org/rt3/Ticket/Display.html?id=96212>.
+
+=item *
+
+sfio, stdio
+
+Perl supports being built without PerlIO proper, using a stdio or sfio
+wrapper instead.  A perl build like this will not support IO layers and
+thus Unicode IO, making it rather handicapped.
+
+PerlIO supports a C<stdio> layer if stdio use is desired, and similarly a
+sfio layer could be produced.
+
+=item *
+
+Unescaped literal C<< "{" >> in regular expressions.
+
+Starting with v5.20, it is planned to require a literal C<"{"> to be
+escaped, for example by preceding it with a backslash.  In v5.18, a
+deprecated warning message will be emitted for all such uses.  
+This affects only patterns that are to match a literal C<"{">.  Other
+uses of this character, such as part of a quantifier or sequence as in
+those below, are completely unaffected:
+
+    /foo{3,5}/
+    /\p{Alphabetic}/
+    /\N{DIGIT ZERO}
+
+Removing this will permit extensions to Perl's pattern syntax and better
+error checking for existing syntax.  See L<perlre/Quantifiers> for an
+example.
+
+=item *
+
+Revamping C<< "\Q" >> semantics in double-quotish strings when combined with other escapes.
+
+There are several bugs and inconsistencies involving combinations
+of C<\Q> and escapes like C<\x>, C<\L>, etc., within a C<\Q...\E> pair.
+These need to be fixed, and doing so will necessarily change current
+behavior.  The changes have not yet been settled.
+
+=back
+
+=head1 Incompatible Changes
+
+=head2 Special blocks called in void context
+
+Special blocks (C<BEGIN>, C<CHECK>, C<INIT>, C<UNITCHECK>, C<END>) are now
+called in void context.  This avoids wasteful copying of the result of the
+last statement [perl #108794].
+
+=head2 The C<overloading> pragma and regexp objects
+
+With C<no overloading>, regular expression objects returned by C<qr//> are
+now stringified as "Regexp=REGEXP(0xbe600d)" instead of the regular
+expression itself [perl #108780].
+
+=head2 Two XS typemap Entries removed
+
+Two presumably unused XS typemap entries have been removed from the
+core typemap: T_DATAUNIT and T_CALLBACK.  If you are, against all odds,
+a user of these, please see the instructions on how to restore them
+in L<perlxstypemap>.
+
+=head2 Unicode 6.1 has incompatibilities with Unicode 6.0
+
+These are detailed in L</Supports (almost) Unicode 6.1> above.
+You can compile this version of Perl to use Unicode 6.0.  See
+L<perlunicode/Hacking Perl to work on earlier Unicode versions (for very serious hackers only)>.
+
+=head2 Borland compiler
+
+All support for the Borland compiler has been dropped.  The code had not
+worked for a long time anyway.
+
+=head2 Certain deprecated Unicode properties are no longer supported by default
+
+Perl should never have exposed certain Unicode properties that are used
+by Unicode internally and not meant to be publicly available.  Use of
+these has generated deprecated warning messages since Perl 5.12.  The
+removed properties are Other_Alphabetic,
+Other_Default_Ignorable_Code_Point, Other_Grapheme_Extend,
+Other_ID_Continue, Other_ID_Start, Other_Lowercase, Other_Math, and
+Other_Uppercase.
+
+Perl may be recompiled to include any or all of them; instructions are
+given in
+L<perluniprops/Unicode character properties that are NOT accepted by Perl>.
+
+=head2 Dereferencing IO thingies as typeglobs
+
+The C<*{...}> operator, when passed a reference to an IO thingy (as in
+C<*{*STDIN{IO}}>), creates a new typeglob containing just that IO object.
+Previously, it would stringify as an empty string, but some operators would
+treat it as undefined, producing an "uninitialized" warning.
+Now it stringifies as __ANONIO__ [perl #96326].
+
+=head2 User-defined case-changing operations
+
+This feature was deprecated in Perl 5.14, and has now been removed.
+The CPAN module L<Unicode::Casing> provides better functionality without
+the drawbacks that this feature had, as are detailed in the 5.14
+documentation:
+L<http://perldoc.perl.org/5.14.0/perlunicode.html#User-Defined-Case-Mappings-%28for-serious-hackers-only%29>
+
+=head2 XSUBs are now 'static'
+
+XSUB C functions are now 'static', that is, they are not visible from
+outside the compilation unit.  Users can use the new C<XS_EXTERNAL(name)>
+and C<XS_INTERNAL(name)> macros to pick the desired linking behavior.
+The ordinary C<XS(name)> declaration for XSUBs will continue to declare
+non-'static' XSUBs for compatibility, but the XS compiler,
+L<ExtUtils::ParseXS> (C<xsubpp>) will emit 'static' XSUBs by default.
+L<ExtUtils::ParseXS>'s behavior can be reconfigured from XS using the
+C<EXPORT_XSUB_SYMBOLS> keyword.  See L<perlxs> for details.
+
+=head2 Weakening read-only references
+
+Weakening read-only references is no longer permitted.  It should never
+have worked anyway, and could sometimes result in crashes.
+
+=head2 Tying scalars that hold typeglobs
+
+Attempting to tie a scalar after a typeglob was assigned to it would
+instead tie the handle in the typeglob's IO slot.  This meant that it was
+impossible to tie the scalar itself.  Similar problems affected C<tied> and
+C<untie>: C<tied $scalar> would return false on a tied scalar if the last
+thing returned was a typeglob, and C<untie $scalar> on such a tied scalar
+would do nothing.
+
+We fixed this problem before Perl 5.14.0, but it caused problems with some
+CPAN modules, so we put in a deprecation cycle instead.
+
+Now the deprecation has been removed and this bug has been fixed.  So
+C<tie $scalar> will always tie the scalar, not the handle it holds.  To tie
+the handle, use C<tie *$scalar> (with an explicit asterisk).  The same
+applies to C<tied *$scalar> and C<untie *$scalar>.
+
+=head2 IPC::Open3 no longer provides C<xfork()>, C<xclose_on_exec()>
+and C<xpipe_anon()>
+
+All three functions were private, undocumented, and unexported.  They do
+not appear to be used by any code on CPAN.  Two have been inlined and one
+deleted entirely.
+
+=head2 C<$$> no longer caches PID
+
+Previously, if one called fork(3) from C, Perl's
+notion of C<$$> could go out of sync with what getpid() returns.  By always
+fetching the value of C<$$> via getpid(), this potential bug is eliminated.
+Code that depends on the caching behavior will break.  As described in
+L<Core Enhancements|/C<$$> can be assigned to>,
+C<$$> is now writable, but it will be reset during a
+fork.
+
+=head2 C<$$> and C<getppid()> no longer emulate POSIX semantics under LinuxThreads
+
+The POSIX emulation of C<$$> and C<getppid()> under the obsolete
+LinuxThreads implementation has been removed.
+This only impacts users of Linux 2.4 and
+users of Debian GNU/kFreeBSD up to and including 6.0, not the vast
+majority of Linux installations that use NPTL threads.
+
+This means that C<getppid()>, like C<$$>, is now always guaranteed to
+return the OS's idea of the current state of the process, not perl's
+cached version of it.
+
+See the documentation for L<$$|perlvar/$$> for details.
+
+=head2 C<< $< >>, C<< $> >>, C<$(> and C<$)> are no longer cached
+
+Similarly to the changes to C<$$> and C<getppid()>, the internal
+caching of C<< $< >>, C<< $> >>, C<$(> and C<$)> has been removed.
+
+When we cached these values our idea of what they were would drift out
+of sync with reality if someone (e.g., someone embedding perl) called
+C<sete?[ug]id()> without updating C<PL_e?[ug]id>.  Having to deal with
+this complexity wasn't worth it given how cheap the C<gete?[ug]id()>
+system call is.
+
+This change will break a handful of CPAN modules that use the XS-level
+C<PL_uid>, C<PL_gid>, C<PL_euid> or C<PL_egid> variables.
+
+The fix for those breakages is to use C<PerlProc_gete?[ug]id()> to
+retrieve them (e.g., C<PerlProc_getuid()>), and not to assign to
+C<PL_e?[ug]id> if you change the UID/GID/EUID/EGID.  There is no longer
+any need to do so since perl will always retrieve the up-to-date
+version of those values from the OS.
+
+=head2 Which Non-ASCII characters get quoted by C<quotemeta> and C<\Q> has changed
+
+This is unlikely to result in a real problem, as Perl does not attach
+special meaning to any non-ASCII character, so it is currently
+irrelevant which are quoted or not.  This change fixes bug [perl #77654] and
+brings Perl's behavior more into line with Unicode's recommendations.
+See L<perlfunc/quotemeta>.
+
+=head1 Performance Enhancements
+
+=over
+
+=item *
+
+Improved performance for Unicode properties in regular expressions
+
+=for comment Can this be compacted some? -- rjbs, 2012-02-20
+
+Matching a code point against a Unicode property is now done via a
+binary search instead of linear.  This means for example that the worst
+case for a 1000 item property is 10 probes instead of 1000.  This
+inefficiency has been compensated for in the past by permanently storing
+in a hash the results of a given probe plus the results for the adjacent
+64 code points, under the theory that near-by code points are likely to
+be searched for.  A separate hash was used for each mention of a Unicode
+property in each regular expression.  Thus, C<qr/\p{foo}abc\p{foo}/>
+would generate two hashes.  Any probes in one instance would be unknown
+to the other, and the hashes could expand separately to be quite large
+if the regular expression were used on many different widely-separated
+code points.
+Now, however, there is just one hash shared by all instances of a given
+property.  This means that if C<\p{foo}> is matched against "A" in one
+regular expression in a thread, the result will be known immediately to
+all regular expressions, and the relentless march of using up memory is
+slowed considerably.
+
+=item *
+
+Version declarations with the C<use> keyword (e.g., C<use 5.012>) are now
+faster, as they enable features without loading F<feature.pm>.
+
+=item *
+
+C<local $_> is faster now, as it no longer iterates through magic that it
+is not going to copy anyway.
+
+=item *
+
+Perl 5.12.0 sped up the destruction of objects whose classes define
+empty C<DESTROY> methods (to prevent autoloading), by simply not
+calling such empty methods.  This release takes this optimization a
+step further, by not calling any C<DESTROY> method that begins with a
+C<return> statement.  This can be useful for destructors that are only
+used for debugging:
+
+    use constant DEBUG => 1;
+    sub DESTROY { return unless DEBUG; ... }
+
+Constant-folding will reduce the first statement to C<return;> if DEBUG
+is set to 0, triggering this optimization.
+
+=item *
+
+Assigning to a variable that holds a typeglob or copy-on-write scalar
+is now much faster.  Previously the typeglob would be stringified or
+the copy-on-write scalar would be copied before being clobbered.
+
+=item *
+
+Assignment to C<substr> in void context is now more than twice its
+previous speed.  Instead of creating and returning a special lvalue
+scalar that is then assigned to, C<substr> modifies the original string
+itself.
+
+=item *
+
+C<substr> no longer calculates a value to return when called in void
+context.
+
+=item *
+
+Due to changes in L<File::Glob>, Perl's C<glob> function and its C<<
+<...> >> equivalent are now much faster.  The splitting of the pattern
+into words has been rewritten in C, resulting in speed-ups of 20% for
+some cases.
+
+This does not affect C<glob> on VMS, as it does not use File::Glob.
+
+=item *
+
+The short-circuiting operators C<&&>, C<||>, and C<//>, when chained
+(such as C<$a || $b || $c>), are now considerably faster to short-circuit,
+due to reduced optree traversal.
+
+=item *
+
+The implementation of C<s///r> makes one fewer copy of the scalar's value.
+
+=item *
+
+Recursive calls to lvalue subroutines in lvalue scalar context use less
+memory.
+
+=back
+
+=head1 Modules and Pragmata
+
+=head2 Deprecated Modules
+
+=over
+
+=item L<Version::Requirements>
+
+Version::Requirements is now DEPRECATED, use L<CPAN::Meta::Requirements>,
+which is a drop-in replacement.  It will be deleted from perl.git blead
+in v5.17.0.
+
+=back
+
+=head2 New Modules and Pragmata
+
+=over 4
+
+=item *
+
+L<arybase> -- this new module implements the C<$[> variable.
+
+=item *
+
+L<PerlIO::mmap> 0.010 has been added to the Perl core.
+
+The C<mmap> PerlIO layer is no longer implemented by perl itself, but has
+been moved out into the new L<PerlIO::mmap> module.
+
+=back
+
+=head2 Updated Modules and Pragmata
+
+This is only an overview of selected module updates.  For a complete list of
+updates, run:
+
+    $ corelist --diff 5.14.0 5.16.0
+
+You can substitute your favorite version in place of 5.14.0, too.
+
+=over 4
+
+=item *
+
+L<Archive::Extract> has been upgraded from version 0.48 to 0.58.
+
+Includes a fix for FreeBSD to only use C<unzip> if it is located in
+C</usr/local/bin>, as FreeBSD 9.0 will ship with a limited C<unzip> in
+C</usr/bin>.
+
+=item *
+
+L<Archive::Tar> has been upgraded from version 1.76 to 1.82.
+
+Adjustments to handle files >8gb (>0777777777777 octal) and a feature
+to return the MD5SUM of files in the archive.
+
+=item *
+
+L<base> has been upgraded from version 2.16 to 2.18.
+
+C<base> no longer sets a module's C<$VERSION> to "-1" when a module it
+loads does not define a C<$VERSION>.  This change has been made because
+"-1" is not a valid version number under the new "lax" criteria used
+internally by C<UNIVERSAL::VERSION>.  (See L<version> for more on "lax"
+version criteria.)
+
+C<base> no longer internally skips loading modules it has already loaded
+and instead relies on C<require> to inspect C<%INC>.  This fixes a bug
+when C<base> is used with code that clear C<%INC> to force a module to
+be reloaded.
+
+=item *
+
+L<Carp> has been upgraded from version 1.20 to 1.26.
+
+It now includes last read filehandle info and puts a dot after the file
+and line number, just like errors from C<die> [perl #106538].
+
+=item *
+
+L<charnames> has been updated from version 1.18 to 1.30.
+
+C<charnames> can now be invoked with a new option, C<:loose>,
+which is like the existing C<:full> option, but enables Unicode loose
+name matching.  Details are in L<charnames/LOOSE MATCHES>.
+
+=item *
+
+L<B::Deparse> has been upgraded from version 1.03 to 1.14.  This fixes
+numerous deparsing bugs.
+
+=item *
+
+L<CGI> has been upgraded from version 3.52 to 3.59.
+
+It uses the public and documented FCGI.pm API in CGI::Fast.  CGI::Fast was
+using an FCGI API that was deprecated and removed from documentation
+more than ten years ago.  Usage of this deprecated API with FCGI E<gt>=
+0.70 or FCGI E<lt>= 0.73 introduces a security issue.
+L<https://rt.cpan.org/Public/Bug/Display.html?id=68380>
+L<http://web.nvd.nist.gov/view/vuln/detail?vulnId=CVE-2011-2766>
+
+Things that may break your code:
+
+C<url()> was fixed to return C<PATH_INFO> when it is explicitly requested
+with either the C<path=E<gt>1> or C<path_info=E<gt>1> flag.
+
+If your code is running under mod_rewrite (or compatible) and you are
+calling C<self_url()> or you are calling C<url()> and passing
+C<path_info=E<gt>1>, these methods will actually be returning
+C<PATH_INFO> now, as you have explicitly requested or C<self_url()>
+has requested on your behalf.
+
+The C<PATH_INFO> has been omitted in such URLs since the issue was
+introduced in the 3.12 release in December, 2005.
+
+This bug is so old your application may have come to depend on it or
+workaround it. Check for application before upgrading to this release.
+
+Examples of affected method calls:
+
+  $q->url(-absolute => 1, -query => 1, -path_info => 1);
+  $q->url(-path=>1);
+  $q->url(-full=>1,-path=>1);
+  $q->url(-rewrite=>1,-path=>1);
+  $q->self_url();
+
+We no longer read from STDIN when the Content-Length is not set,
+preventing requests with no Content-Length from sometimes freezing.
+This is consistent with the CGI RFC 3875, and is also consistent with
+CGI::Simple.  However, the old behavior may have been expected by some
+command-line uses of CGI.pm.
+
+In addition, the DELETE HTTP verb is now supported.
+
+=item *
+
+L<Compress::Zlib> has been upgraded from version 2.035 to 2.048.
+
+IO::Compress::Zip and IO::Uncompress::Unzip now have support for LZMA
+(method 14).  There is a fix for a CRC issue in IO::Compress::Unzip and
+it supports Streamed Stored context now.  And fixed a Zip64 issue in
+IO::Compress::Zip when the content size was exactly 0xFFFFFFFF.
+
+=item *
+
+L<Digest::SHA> has been upgraded from version 5.61 to 5.71.
+
+Added BITS mode to the addfile method and shasum.  This makes
+partial-byte inputs possible via files/STDIN and lets shasum check
+all 8074 NIST Msg vectors, where previously special programming was
+required to do this.
+
+=item *
+
+L<Encode> has been upgraded from version 2.42 to 2.44.
+
+Missing aliases added, a deep recursion error fixed and various
+documentation updates.
+
+Addressed 'decode_xs n-byte heap-overflow' security bug in Unicode.xs
+(CVE-2011-2939). (5.14.2)
+
+=item *
+
+L<ExtUtils::CBuilder> updated from version 0.280203 to 0.280206.
+
+The new version appends CFLAGS and LDFLAGS to their Config.pm
+counterparts.
+
+=item *
+
+L<ExtUtils::ParseXS> has been upgraded from version 2.2210 to 3.16.
+
+Much of L<ExtUtils::ParseXS>, the module behind the XS compiler C<xsubpp>,
+was rewritten and cleaned up.  It has been made somewhat more extensible
+and now finally uses strictures.
+
+The typemap logic has been moved into a separate module,
+L<ExtUtils::Typemaps>.  See L</New Modules and Pragmata>, above.
+
+For a complete set of changes, please see the ExtUtils::ParseXS
+changelog, available on the CPAN.
+
+=item *
+
+L<File::Glob> has been upgraded from version 1.12 to 1.17.
+
+On Windows, tilde (~) expansion now checks the C<USERPROFILE> environment
+variable, after checking C<HOME>.
+
+It has a new C<:bsd_glob> export tag, intended to replace C<:glob>.  Like
+C<:glob> it overrides C<glob> with a function that does not split the glob
+pattern into words, but, unlike C<:glob>, it iterates properly in scalar
+context, instead of returning the last file.
+
+There are other changes affecting Perl's own C<glob> operator (which uses
+File::Glob internally, except on VMS).  See L</Performance Enhancements>
+and L</Selected Bug Fixes>.
+
+=item *
+
+L<FindBin> updated from version 1.50 to 1.51.
+
+It no longer returns a wrong result if a script of the same name as the
+current one exists in the path and is executable.
+
+=item *
+
+L<HTTP::Tiny> has been upgraded from version 0.012 to 0.017.
+
+Added support for using C<$ENV{http_proxy}> to set the default proxy host.
+
+Adds additional shorthand methods for all common HTTP verbs,
+a C<post_form()> method for POST-ing x-www-form-urlencoded data and
+a C<www_form_urlencode()> utility method.
+
+=item *
+
+L<IO> has been upgraded from version 1.25_04 to 1.25_06, and L<IO::Handle>
+from version 1.31 to 1.33.
+
+Together, these upgrades fix a problem with IO::Handle's C<getline> and
+C<getlines> methods.  When these methods are called on the special ARGV
+handle, the next file is automatically opened, as happens with the built-in
+C<E<lt>E<gt>> and C<readline> functions.  But, unlike the built-ins, these
+methods were not respecting the caller's use of the L<open> pragma and
+applying the appropriate I/O layers to the newly-opened file
+[rt.cpan.org #66474].
+
+=item *
+
+L<IPC::Cmd> has been upgraded from version 0.70 to 0.76.
+
+Capturing of command output (both C<STDOUT> and C<STDERR>) is now supported
+using L<IPC::Open3> on MSWin32 without requiring L<IPC::Run>.
+
+=item *
+
+L<IPC::Open3> has been upgraded from version 1.09 to 1.12.
+
+Fixes a bug which prevented use of C<open3> on Windows when C<*STDIN>,
+C<*STDOUT> or C<*STDERR> had been localized.
+
+Fixes a bug which prevented duplicating numeric file descriptors on Windows.
+
+C<open3> with "-" for the program name works once more.  This was broken in
+version 1.06 (and hence in Perl 5.14.0) [perl #95748].
+
+=item *
+
+L<Locale::Codes> has been upgraded from version 3.16 to 3.21.
+
+Added Language Extension codes (langext) and Language Variation codes (langvar)
+as defined in the IANA language registry.
+
+Added language codes from ISO 639-5
+
+Added language/script codes from the IANA language subtag registry
+
+Fixed an uninitialized value warning [rt.cpan.org #67438].
+
+Fixed the return value for the all_XXX_codes and all_XXX_names functions
+[rt.cpan.org #69100].
+
+Reorganized modules to move Locale::MODULE to Locale::Codes::MODULE to allow
+for cleaner future additions.  The original four modules (Locale::Language,
+Locale::Currency, Locale::Country, Locale::Script) will continue to work, but
+all new sets of codes will be added in the Locale::Codes namespace.
+
+The code2XXX, XXX2code, all_XXX_codes, and all_XXX_names functions now
+support retired codes.  All codesets may be specified by a constant or
+by their name now.  Previously, they were specified only by a constant.
+
+The alias_code function exists for backward compatibility.  It has been
+replaced by rename_country_code.  The alias_code function will be
+removed some time after September, 2013.
+
+All work is now done in the central module (Locale::Codes).  Previously,
+some was still done in the wrapper modules (Locale::Codes::*).  Added
+Language Family codes (langfam) as defined in ISO 639-5.
+
+=item *
+
+L<Math::BigFloat> has been upgraded from version 1.993 to 1.997.
+
+The C<numify> method has been corrected to return a normalized Perl number
+(the result of C<0 + $thing>), instead of a string [rt.cpan.org #66732].
+
+=item *
+
+L<Math::BigInt> has been upgraded from version 1.994 to 1.998.
+
+It provides a new C<bsgn> method that complements the C<babs> method.
+
+It fixes the internal C<objectify> function's handling of "foreign objects"
+so they are converted to the appropriate class (Math::BigInt or
+Math::BigFloat).
+
+=item *
+
+L<Math::BigRat> has been upgraded from version 0.2602 to 0.2603.
+
+C<int()> on a Math::BigRat object containing -1/2 now creates a
+Math::BigInt containing 0, rather than -0.  L<Math::BigInt> does not even
+support negative zero, so the resulting object was actually malformed
+[perl #95530].
+
+=item *
+
+L<Math::Complex> has been upgraded from version 1.56 to 1.59
+and L<Math::Trig> from version 1.2 to 1.22.
+
+Fixes include: correct copy constructor usage; fix polarwise formatting with
+numeric format specifier; and more stable C<great_circle_direction> algorithm.
+
+=item *
+
+L<Module::CoreList> has been upgraded from version 2.51 to 2.66.
+
+The C<corelist> utility now understands the C<-r> option for displaying
+Perl release dates and the C<--diff> option to print the set of modlib
+changes between two perl distributions.
+
+=item *
+
+L<Module::Metadata> has been upgraded from version 1.000004 to 1.000009.
+
+Adds C<provides> method to generate a CPAN META provides data structure
+correctly; use of C<package_versions_from_directory> is discouraged.
+
+=item *
+
+L<ODBM_File> has been upgraded from version 1.10 to 1.12.
+
+The XS code is now compiled with C<PERL_NO_GET_CONTEXT>, which will aid
+performance under ithreads.
+
+=item *
+
+L<open> has been upgraded from version 1.08 to 1.10.
+
+It no longer turns off layers on standard handles when invoked without the
+":std" directive.  Similarly, when invoked I<with> the ":std" directive, it
+now clears layers on STDERR before applying the new ones, and not just on
+STDIN and STDOUT [perl #92728].
+
+=item *
+
+L<overload> has been upgraded from version 1.13 to 1.18.
+
+C<overload::Overloaded> no longer calls C<can> on the class, but uses
+another means to determine whether the object has overloading.  It was
+never correct for it to call C<can>, as overloading does not respect
+AUTOLOAD.  So classes that autoload methods and implement C<can> no longer
+have to account for overloading [perl #40333].
+
+A warning is now produced for invalid arguments.  See L</New Diagnostics>.
+
+=item *
+
+L<PerlIO::scalar> has been upgraded from version 0.11 to 0.14.
+
+(This is the module that implements C<< open $fh, '>', \$scalar >>.)
+
+It fixes a problem with C<< open my $fh, ">", \$scalar >> not working if
+C<$scalar> is a copy-on-write scalar. (5.14.2)
+
+It also fixes a hang that occurs with C<readline> or C<< <$fh> >> if a
+typeglob has been assigned to $scalar [perl #92258].
+
+It no longer assumes during C<seek> that $scalar is a string internally.
+If it didn't crash, it was close to doing so [perl #92706].  Also, the
+internal print routine no longer assumes that the position set by C<seek>
+is valid, but extends the string to that position, filling the intervening
+bytes (between the old length and the seek position) with nulls
+[perl #78980].
+
+Printing to an in-memory handle now works if the $scalar holds a reference,
+stringifying the reference before modifying it.  References used to be
+treated as empty strings.
+
+Printing to an in-memory handle no longer crashes if the $scalar happens to
+hold a number internally, but no string buffer.
+
+Printing to an in-memory handle no longer creates scalars that confuse
+the regular expression engine [perl #108398].
+
+=item *
+
+L<Pod::Functions> has been upgraded from version 1.04 to 1.05.
+
+F<Functions.pm> is now generated at perl build time from annotations in
+F<perlfunc.pod>.  This will ensure that L<Pod::Functions> and L<perlfunc>
+remain in synchronisation.
+
+=item *
+
+L<Pod::Html> has been upgraded from version 1.11 to 1.1502.
+
+This is an extensive rewrite of Pod::Html to use L<Pod::Simple> under
+the hood.  The output has changed significantly.
+
+=item *
+
+L<Pod::Perldoc> has been upgraded from version 3.15_03 to 3.17.
+
+It corrects the search paths on VMS [perl #90640]. (5.14.1)
+
+The B<-v> option now fetches the right section for C<$0>.
+
+This upgrade has numerous significant fixes.  Consult its changelog on
+the CPAN for more information.
+
+=item *
+
+L<POSIX> has been upgraded from version 1.24 to 1.30.
+
+L<POSIX> no longer uses L<AutoLoader>.  Any code which was relying on this
+implementation detail was buggy, and may fail because of this change.
+The module's Perl code has been considerably simplified, roughly halving
+the number of lines, with no change in functionality.  The XS code has
+been refactored to reduce the size of the shared object by about 12%,
+with no change in functionality.  More POSIX functions now have tests.
+
+C<sigsuspend> and C<pause> now run signal handlers before returning, as the
+whole point of these two functions is to wait until a signal has
+arrived, and then return I<after> it has been triggered.  Delayed, or
+"safe", signals were preventing that from happening, possibly resulting in
+race conditions [perl #107216].
+
+C<POSIX::sleep> is now a direct call into the underlying OS C<sleep>
+function, instead of being a Perl wrapper on C<CORE::sleep>.
+C<POSIX::dup2> now returns the correct value on Win32 (I<i.e.>, the file
+descriptor).  C<POSIX::SigSet> C<sigsuspend> and C<sigpending> and
+C<POSIX::pause> now dispatch safe signals immediately before returning to
+their caller.
+
+C<POSIX::Termios::setattr> now defaults the third argument to C<TCSANOW>,
+instead of 0. On most platforms C<TCSANOW> is defined to be 0, but on some
+0 is not a valid parameter, which caused a call with defaults to fail.
+
+=item *
+
+L<Socket> has been upgraded from version 1.94 to 2.001.
+
+It has new functions and constants for handling IPv6 sockets:
+
+    pack_ipv6_mreq
+    unpack_ipv6_mreq
+    IPV6_ADD_MEMBERSHIP
+    IPV6_DROP_MEMBERSHIP
+    IPV6_MTU
+    IPV6_MTU_DISCOVER
+    IPV6_MULTICAST_HOPS
+    IPV6_MULTICAST_IF
+    IPV6_MULTICAST_LOOP
+    IPV6_UNICAST_HOPS
+    IPV6_V6ONLY
+
+=item *
+
+L<Storable> has been upgraded from version 2.27 to 2.34.
+
+It no longer turns copy-on-write scalars into read-only scalars when
+freezing and thawing.
+
+=item *
+
+L<Sys::Syslog> has been upgraded from version 0.27 to 0.29.
+
+This upgrade closes many outstanding bugs.
+
+=item *
+
+L<Term::ANSIColor> has been upgraded from version 3.00 to 3.01.
+
+Only interpret an initial array reference as a list of colors, not any initial
+reference, allowing the colored function to work properly on objects with
+stringification defined.
+
+=item *
+
+L<Term::ReadLine> has been upgraded from version 1.07 to 1.09.
+
+Term::ReadLine now supports any event loop, including unpublished ones and
+simple L<IO::Select>, loops without the need to rewrite existing code for
+any particular framework [perl #108470].
+
+=item *
+
+L<threads::shared> has been upgraded from version 1.37 to 1.40.
+
+Destructors on shared objects used to be ignored sometimes if the objects
+were referenced only by shared data structures.  This has been mostly
+fixed, but destructors may still be ignored if the objects still exist at
+global destruction time [perl #98204].
+
+=item *
+
+L<Unicode::Collate> has been upgraded from version 0.73 to 0.89.
+
+Updated to CLDR 1.9.1
+
+Locales updated to CLDR 2.0: mk, mt, nb, nn, ro, ru, sk, sr, sv, uk,
+zh__pinyin, zh__stroke
+
+Newly supported locales: bn, fa, ml, mr, or, pa, sa, si, si__dictionary,
+sr_Latn, sv__reformed, ta, te, th, ur, wae.
+
+Tailored compatibility ideographs as well as unified ideographs for the
+locales: ja, ko, zh__big5han, zh__gb2312han, zh__pinyin, zh__stroke.
+
+Locale/*.pl files are now searched for in @INC.
+
+=item *
+
+L<Unicode::Normalize> has been upgraded from version 1.10 to 1.14.
+
+Fixes for the removal of F<unicore/CompositionExclusions.txt> from core.
+
+=item *
+
+L<Unicode::UCD> has been upgraded from version 0.32 to 0.43.
+
+This adds four new functions:  C<prop_aliases()> and
+C<prop_value_aliases()>, which are used to find all Unicode-approved
+synonyms for property names, or to convert from one name to another;
+C<prop_invlist> which returns all code points matching a given
+Unicode binary property; and C<prop_invmap> which returns the complete
+specification of a given Unicode property.
+
+=item *
+
+L<Win32API::File> has been upgraded from version 0.1101 to 0.1200.
+
+Added SetStdHandle and GetStdHandle functions
+
+=back
+
+=head2 Removed Modules and Pragmata
+
+As promised in Perl 5.14.0's release notes, the following modules have
+been removed from the core distribution, and if needed should be installed
+from CPAN instead.
+
+=over
+
+=item *
+
+L<Devel::DProf> has been removed from the Perl core.  Prior version was
+20110228.00.
+
+=item *
+
+L<Shell> has been removed from the Perl core.  Prior version was 0.72_01.
+
+=item *
+
+Several old perl4-style libraries which have been deprecated with 5.14
+are now removed:
+
+    abbrev.pl assert.pl bigfloat.pl bigint.pl bigrat.pl cacheout.pl
+    complete.pl ctime.pl dotsh.pl exceptions.pl fastcwd.pl flush.pl
+    getcwd.pl getopt.pl getopts.pl hostname.pl importenv.pl
+    lib/find{,depth}.pl look.pl newgetopt.pl open2.pl open3.pl
+    pwd.pl shellwords.pl stat.pl tainted.pl termcap.pl timelocal.pl
+
+They can be found on CPAN as L<Perl4::CoreLibs>.
+
+=back
+
+=head1 Documentation
+
+=head2 New Documentation
+
+=head3 L<perldtrace>
+
+L<perldtrace> describes Perl's DTrace support, listing the provided probes
+and gives examples of their use.
+
+=head3 L<perlexperiment>
+
+This document is intended to provide a list of experimental features in
+Perl.  It is still a work in progress.
+
+=head3 L<perlootut>
+
+This a new OO tutorial.  It focuses on basic OO concepts, and then recommends
+that readers choose an OO framework from CPAN.
+
+=head3 L<perlxstypemap>
+
+The new manual describes the XS typemapping mechanism in unprecedented
+detail and combines new documentation with information extracted from
+L<perlxs> and the previously unofficial list of all core typemaps.
+
+=head2 Changes to Existing Documentation
+
+=head3 L<perlapi>
+
+=over 4
+
+=item *
+
+The HV API has long accepted negative lengths to show that the key is
+in UTF8.  This is now documented.
+
+=item *
+
+The C<boolSV()> macro is now documented.
+
+=back
+
+=head3 L<perlfunc>
+
+=over 4
+
+=item *
+
+C<dbmopen> treats a 0 mode as a special case, that prevents a nonexistent
+file from being created.  This has been the case since Perl 5.000, but was
+never documented anywhere.  Now the perlfunc entry mentions it
+[perl #90064].
+
+=item *
+
+As an accident of history, C<open $fh, '<:', ...> applies the default
+layers for the platform (C<:raw> on Unix, C<:crlf> on Windows), ignoring
+whatever is declared by L<open.pm|open>.  This seems such a useful feature
+it has been documented in L<perlfunc|perlfunc/open> and L<open>.
+
+=item *
+
+The entry for C<split> has been rewritten.  It is now far clearer than
+before.
+
+=back
+
+=head3 L<perlguts>
+
+=over 4
+
+=item *
+
+A new section, L<Autoloading with XSUBs|perlguts/Autoloading with XSUBs>,
+has been added, which explains the two APIs for accessing the name of the
+autoloaded sub.
+
+=item *
+
+Some function descriptions in L<perlguts> were confusing, as it was
+not clear whether they referred to the function above or below the
+description.  This has been clarified [perl #91790].
+
+=back
+
+=head3 L<perlobj>
+
+=over 4
+
+=item *
+
+This document has been rewritten from scratch, and its coverage of various OO
+concepts has been expanded.
+
+=back
+
+=head3 L<perlop>
+
+=over 4
+
+=item *
+
+Documentation of the smartmatch operator has been reworked and moved from
+perlsyn to perlop where it belongs.
+
+It has also been corrected for the case of C<undef> on the left-hand
+side.  The list of different smart match behaviors had an item in the
+wrong place.
+
+=item *
+
+Documentation of the ellipsis statement (C<...>) has been reworked and
+moved from perlop to perlsyn.
+
+=item *
+
+The explanation of bitwise operators has been expanded to explain how they
+work on Unicode strings (5.14.1).
+
+=item *
+
+More examples for C<m//g> have been added (5.14.1).
+
+=item *
+
+The C<<< <<\FOO >>> here-doc syntax has been documented (5.14.1).
+
+=back
+
+=head3 L<perlpragma>
+
+=over 4
+
+=item *
+
+There is now a standard convention for naming keys in the C<%^H>,
+documented under L<Key naming|perlpragma/Key naming>.
+
+=back
+
+=head3 L<perlsec/Laundering and Detecting Tainted Data>
+
+=over 4
+
+=item *
+
+The example function for checking for taintedness contained a subtle
+error.  C<$@> needs to be localized to prevent its changing this
+global's value outside the function.  The preferred method to check for
+this remains L<Scalar::Util/tainted>.
+
+=back
+
+=head3 L<perllol>
+
+=over
+
+=item *
+
+L<perllol> has been expanded with examples using the new C<push $scalar>
+syntax introduced in Perl 5.14.0 (5.14.1).
+
+=back
+
+=head3 L<perlmod>
+
+=over
+
+=item *
+
+L<perlmod> now states explicitly that some types of explicit symbol table
+manipulation are not supported.  This codifies what was effectively already
+the case [perl #78074].
+
+=back
+
+=head3 L<perlpodstyle>
+
+=over 4
+
+=item *
+
+The tips on which formatting codes to use have been corrected and greatly
+expanded.
+
+=item *
+
+There are now a couple of example one-liners for previewing POD files after
+they have been edited.
+
+=back
+
+=head3 L<perlre>
+
+=over
+
+=item *
+
+The C<(*COMMIT)> directive is now listed in the right section
+(L<Verbs without an argument|perlre/Verbs without an argument>).
+
+=back
+
+=head3 L<perlrun>
+
+=over
+
+=item *
+
+L<perlrun> has undergone a significant clean-up.  Most notably, the
+B<-0x...> form of the B<-0> flag has been clarified, and the final section
+on environment variables has been corrected and expanded (5.14.1).
+
+=back
+
+=head3 L<perlsub>
+
+=over
+
+=item *
+
+The ($;) prototype syntax, which has existed for rather a long time, is now
+documented in L<perlsub>.  It lets a unary function have the same
+precedence as a list operator.
+
+=back
+
+=head3 L<perltie>
+
+=over
+
+=item *
+
+The required syntax for tying handles has been documented.
+
+=back
+
+=head3 L<perlvar>
+
+=over
+
+=item *
+
+The documentation for L<$!|perlvar/$!> has been corrected and clarified.
+It used to state that $! could be C<undef>, which is not the case.  It was
+also unclear whether system calls set C's C<errno> or Perl's C<$!>
+[perl #91614].
+
+=item *
+
+Documentation for L<$$|perlvar/$$> has been amended with additional
+cautions regarding changing the process ID.
+
+=back
+
+=head3 Other Changes
+
+=over 4
+
+=item *
+
+L<perlxs> was extended with documentation on inline typemaps.
+
+=item *
+
+L<perlref> has a new L<Circular References|perlref/Circular References>
+section explaining how circularities may not be freed and how to solve that
+with weak references.
+
+=item *
+
+Parts of L<perlapi> were clarified, and Perl equivalents of some C
+functions have been added as an additional mode of exposition.
+
+=item *
+
+A few parts of L<perlre> and L<perlrecharclass> were clarified.
+
+=back
+
+=head2 Removed Documentation
+
+=head3 Old OO Documentation
+
+The old OO tutorials, perltoot, perltooc, and perlboot, have been
+removed.  The perlbot (bag of object tricks) document has been removed
+as well.
+
+=head3 Development Deltas
+
+The perldelta files for development releases are no longer packaged with
+perl.  These can still be found in the perl source code repository.
+
+=head1 Diagnostics
+
+The following additions or changes have been made to diagnostic output,
+including warnings and fatal error messages.  For the complete list of
+diagnostic messages, see L<perldiag>.
+
+=head2 New Diagnostics
+
+=head3 New Errors
+
+=over 4
+
+=item *
+
+L<Cannot set tied @DB::args|perldiag/"Cannot set tied @DB::args">
+
+This error occurs when C<caller> tries to set C<@DB::args> but finds it
+tied.  Before this error was added, it used to crash instead.
+
+=item *
+
+L<Cannot tie unreifiable array|perldiag/"Cannot tie unreifiable array">
+
+This error is part of a safety check that the C<tie> operator does before
+tying a special array like C<@_>.  You should never see this message.
+
+=item *
+
+L<&CORE::%s cannot be called directly|perldiag/"&CORE::%s cannot be called directly">
+
+This occurs when a subroutine in the C<CORE::> namespace is called
+with C<&foo> syntax or through a reference.  Some subroutines
+in this package cannot yet be called that way, but must be
+called as barewords.  See L</Subroutines in the C<CORE> namespace>, above.
+
+=item *
+
+L<Source filters apply only to byte streams|perldiag/"Source filters apply only to byte streams">
+
+This new error occurs when you try to activate a source filter (usually by
+loading a source filter module) within a string passed to C<eval> under the
+C<unicode_eval> feature.
+
+=back
+
+=head3 New Warnings
+
+=over 4
+
+=item *
+
+L<defined(@array) is deprecated|perldiag/"defined(@array) is deprecated">
+
+The long-deprecated C<defined(@array)> now also warns for package variables.
+Previously it issued a warning for lexical variables only.
+
+=item *
+
+L<length() used on %s|perldiag/length() used on %s>
+
+This new warning occurs when C<length> is used on an array or hash, instead
+of C<scalar(@array)> or C<scalar(keys %hash)>.
+
+=item *
+
+L<lvalue attribute %s already-defined subroutine|perldiag/"lvalue attribute %s already-defined subroutine">
+
+L<attributes.pm|attributes> now emits this warning when the :lvalue
+attribute is applied to a Perl subroutine that has already been defined, as
+doing so can have unexpected side-effects.
+
+=item *
+
+L<overload arg '%s' is invalid|perldiag/"overload arg '%s' is invalid">
+
+This warning, in the "overload" category, is produced when the overload
+pragma is given an argument it doesn't recognize, presumably a mistyped
+operator.
+
+=item *
+
+L<$[ used in %s (did you mean $] ?)|perldiag/"$[ used in %s (did you mean $] ?)">
+
+This new warning exists to catch the mistaken use of C<$[> in version
+checks.  C<$]>, not C<$[>, contains the version number.
+
+=item *
+
+L<Useless assignment to a temporary|perldiag/"Useless assignment to a temporary">
+
+Assigning to a temporary scalar returned
+from an lvalue subroutine now produces this
+warning [perl #31946].
+
+=item *
+
+L<Useless use of \E|perldiag/"Useless use of \E">
+
+C<\E> does nothing unless preceded by C<\Q>, C<\L> or C<\U>.
+
+=back
+
+=head2 Removed Errors
+
+=over
+
+=item *
+
+"sort is now a reserved word"
+
+This error used to occur when C<sort> was called without arguments,
+followed by C<;> or C<)>.  (E.g., C<sort;> would die, but C<{sort}> was
+OK.)  This error message was added in Perl 3 to catch code like
+C<close(sort)> which would no longer work.  More than two decades later,
+this message is no longer appropriate.  Now C<sort> without arguments is
+always allowed, and returns an empty list, as it did in those cases
+where it was already allowed [perl #90030].
+
+=back
+
+=head2 Changes to Existing Diagnostics
+
+=over 4
+
+=item *
+
+The "Applying pattern match..." or similar warning produced when an
+array or hash is on the left-hand side of the C<=~> operator now
+mentions the name of the variable.
+
+=item *
+
+The "Attempt to free non-existent shared string" has had the spelling
+of "non-existent" corrected to "nonexistent".  It was already listed
+with the correct spelling in L<perldiag>.
+
+=item *
+
+The error messages for using C<default> and C<when> outside a
+topicalizer have been standardized to match the messages for C<continue>
+and loop controls.  They now read 'Can't "default" outside a
+topicalizer' and 'Can't "when" outside a topicalizer'.  They both used
+to be 'Can't use when() outside a topicalizer' [perl #91514].
+
+=item *
+
+The message, "Code point 0x%X is not Unicode, no properties match it;
+all inverse properties do" has been changed to "Code point 0x%X is not
+Unicode, all \p{} matches fail; all \P{} matches succeed".
+
+=item *
+
+Redefinition warnings for constant subroutines used to be mandatory,
+even occurring under C<no warnings>.  Now they respect the L<warnings>
+pragma.
+
+=item *
+
+The "glob failed" warning message is now suppressible via C<no warnings>
+[perl #111656].
+
+=item *
+
+The L<Invalid version format|perldiag/"Invalid version format (%s)">
+error message now says "negative version number" within the parentheses,
+rather than "non-numeric data", for negative numbers.
+
+=item *
+
+The two warnings
+L<Possible attempt to put comments in qw() list|perldiag/"Possible attempt to put comments in qw() list">
+and
+L<Possible attempt to separate words with commas|perldiag/"Possible attempt to separate words with commas">
+are no longer mutually exclusive: the same C<qw> construct may produce
+both.
+
+=item *
+
+The uninitialized warning for C<y///r> when C<$_> is implicit and
+undefined now mentions the variable name, just like the non-/r variation
+of the operator.
+
+=item *
+
+The 'Use of "foo" without parentheses is ambiguous' warning has been
+extended to apply also to user-defined subroutines with a (;$)
+prototype, and not just to built-in functions.
+
+=item *
+
+Warnings that mention the names of lexical (C<my>) variables with
+Unicode characters in them now respect the presence or absence of the
+C<:utf8> layer on the output handle, instead of outputting UTF8
+regardless.  Also, the correct names are included in the strings passed
+to C<$SIG{__WARN__}> handlers, rather than the raw UTF8 bytes.
+
+=back
+
+=head1 Utility Changes
+
+=head3 L<h2ph>
+
+=over 4
+
+=item *
+
+L<h2ph> used to generate code of the form
+
+  unless(defined(&FOO)) {
+    sub FOO () {42;}
+  }
+
+But the subroutine is a compile-time declaration, and is hence unaffected
+by the condition.  It has now been corrected to emit a string C<eval>
+around the subroutine [perl #99368].
+
+=back
+
+=head3 L<splain>
+
+=over 4
+
+=item *
+
+F<splain> no longer emits backtraces with the first line number repeated.
+
+This:
+
+    Uncaught exception from user code:
+            Cannot fwiddle the fwuddle at -e line 1.
+     at -e line 1
+            main::baz() called at -e line 1
+            main::bar() called at -e line 1
+            main::foo() called at -e line 1
+
+has become this:
+
+    Uncaught exception from user code:
+            Cannot fwiddle the fwuddle at -e line 1.
+            main::baz() called at -e line 1
+            main::bar() called at -e line 1
+            main::foo() called at -e line 1
+
+=item *
+
+Some error messages consist of multiple lines that are listed as separate
+entries in L<perldiag>.  splain has been taught to find the separate
+entries in these cases, instead of simply failing to find the message.
+
+=back
+
+=head3 L<zipdetails>
+
+=over 4
+
+=item *
+
+This is a new utility, included as part of an
+L<IO::Compress::Base> upgrade.
+
+L<zipdetails> displays information about the internal record structure
+of the zip file.  It is not concerned with displaying any details of
+the compressed data stored in the zip file.
+
+=back
+
+=head1 Configuration and Compilation
+
+=over 4
+
+=item *
+
+F<regexp.h> has been modified for compatibility with GCC's B<-Werror>
+option, as used by some projects that include perl's header files (5.14.1).
+
+=item *
+
+C<USE_LOCALE{,_COLLATE,_CTYPE,_NUMERIC}> have been added the output of perl -V
+as they have affect the behavior of the interpreter binary (albeit
+in only a small area).
+
+=item *
+
+The code and tests for L<IPC::Open2> have been moved from F<ext/IPC-Open2>
+into F<ext/IPC-Open3>, as C<IPC::Open2::open2()> is implemented as a thin
+wrapper around C<IPC::Open3::_open3()>, and hence is very tightly coupled to
+it.
+
+=item *
+
+The magic types and magic vtables are now generated from data in a new script
+F<regen/mg_vtable.pl>, instead of being maintained by hand.  As different
+EBCDIC variants can't agree on the code point for '~', the character to code
+point conversion is done at build time by F<generate_uudmap> to a new generated
+header F<mg_data.h>.  C<PL_vtbl_bm> and C<PL_vtbl_fm> are now defined by the
+pre-processor as C<PL_vtbl_regexp>, instead of being distinct C variables.
+C<PL_vtbl_sig> has been removed.
+
+=item *
+
+Building with C<-DPERL_GLOBAL_STRUCT> works again.  This configuration is not
+generally used.
+
+=item *
+
+Perl configured with I<MAD> now correctly frees C<MADPROP> structures when
+OPs are freed.  C<MADPROP>s are now allocated with C<PerlMemShared_malloc()>
+
+=item *
+
+F<makedef.pl> has been refactored.  This should have no noticeable affect on
+any of the platforms that use it as part of their build (AIX, VMS, Win32).
+
+=item *
+
+C<useperlio> can no longer be disabled.
+
+=item *
+
+The file F<global.sym> is no longer needed, and has been removed.  It
+contained a list of all exported functions, one of the files generated by
+F<regen/embed.pl> from data in F<embed.fnc> and F<regen/opcodes>.  The code
+has been refactored so that the only user of F<global.sym>, F<makedef.pl>,
+now reads F<embed.fnc> and F<regen/opcodes> directly, removing the need to
+store the list of exported functions in an intermediate file.
+
+As F<global.sym> was never installed, this change should not be visible
+outside the build process.
+
+=item *
+
+F<pod/buildtoc>, used by the build process to build L<perltoc>, has been
+refactored and simplified.  It now contains only code to build L<perltoc>;
+the code to regenerate Makefiles has been moved to F<Porting/pod_rules.pl>.
+It's a bug if this change has any material effect on the build process.
+
+=item *
+
+F<pod/roffitall> is now built by F<pod/buildtoc>, instead of being
+shipped with the distribution.  Its list of manpages is now generated
+(and therefore current).  See also RT #103202 for an unresolved related
+issue.
+
+=item *
+
+The man page for C<XS::Typemap> is no longer installed.  C<XS::Typemap>
+is a test module which is not installed, hence installing its
+documentation makes no sense.
+
+=item *
+
+The -Dusesitecustomize and -Duserelocatableinc options now work
+together properly.
+
+=back
+
+=head1 Platform Support
+
+=head2 Platform-Specific Notes
+
+=head3 Cygwin
+
+=over 4
+
+=item *
+
+Since version 1.7, Cygwin supports native UTF-8 paths.  If Perl is built
+under that environment, directory and filenames will be UTF-8 encoded.
+
+=item *
+
+Cygwin does not initialize all original Win32 environment variables.  See
+F<README.cygwin> for a discussion of the newly-added
+C<Cygwin::sync_winenv()> function [perl #110190] and for
+further links.
+
+=back
+
+=head3 HP-UX
+
+=over 4
+
+=item *
+
+HP-UX PA-RISC/64 now supports gcc-4.x
+
+A fix to correct the socketsize now makes the test suite pass on HP-UX
+PA-RISC for 64bitall builds. (5.14.2)
+
+=back
+
+=head3 VMS
+
+=over 4
+
+=item *
+
+Remove unnecessary includes, fix miscellaneous compiler warnings and
+close some unclosed comments on F<vms/vms.c>.
+
+=item *
+
+Remove sockadapt layer from the VMS build.
+
+=item *
+
+Explicit support for VMS versions before v7.0 and DEC C versions
+before v6.0 has been removed.
+
+=item *
+
+Since Perl 5.10.1, the home-grown C<stat> wrapper has been unable to
+distinguish between a directory name containing an underscore and an
+otherwise-identical filename containing a dot in the same position
+(e.g., t/test_pl as a directory and t/test.pl as a file).  This problem
+has been corrected.
+
+=item *
+
+The build on VMS now permits names of the resulting symbols in C code for
+Perl longer than 31 characters.  Symbols like
+C<Perl__it_was_the_best_of_times_it_was_the_worst_of_times> can now be
+created freely without causing the VMS linker to seize up.
+
+=back
+
+=head3 GNU/Hurd
+
+=over 4
+
+=item *
+
+Numerous build and test failures on GNU/Hurd have been resolved with hints
+for building DBM modules, detection of the library search path, and enabling
+of large file support.
+
+=back
+
+=head3 OpenVOS
+
+=over 4
+
+=item *
+
+Perl is now built with dynamic linking on OpenVOS, the minimum supported
+version of which is now Release 17.1.0.
+
+=back
+
+=head3 SunOS
+
+The CC workshop C++ compiler is now detected and used on systems that ship
+without cc.
+
+=head1 Internal Changes
+
+=over 4
+
+=item *
+
+The compiled representation of formats is now stored via the C<mg_ptr> of
+their C<PERL_MAGIC_fm>.  Previously it was stored in the string buffer,
+beyond C<SvLEN()>, the regular end of the string.  C<SvCOMPILED()> and
+C<SvCOMPILED_{on,off}()> now exist solely for compatibility for XS code.
+The first is always 0, the other two now no-ops. (5.14.1)
+
+=item *
+
+Some global variables have been marked C<const>, members in the interpreter
+structure have been re-ordered, and the opcodes have been re-ordered.  The
+op C<OP_AELEMFAST> has been split into C<OP_AELEMFAST> and C<OP_AELEMFAST_LEX>.
+
+=item *
+
+When empting a hash of its elements (e.g., via undef(%h), or %h=()), HvARRAY
+field is no longer temporarily zeroed.  Any destructors called on the freed
+elements see the remaining elements.  Thus, %h=() becomes more like
+C<delete $h{$_} for keys %h>.
+
+=item *
+
+Boyer-Moore compiled scalars are now PVMGs, and the Boyer-Moore tables are now
+stored via the mg_ptr of their C<PERL_MAGIC_bm>.
+Previously they were PVGVs, with the tables stored in
+the string buffer, beyond C<SvLEN()>.  This eliminates
+the last place where the core stores data beyond C<SvLEN()>.
+
+=item *
+
+Simplified logic in C<Perl_sv_magic()> introduces a small change of
+behavior for error cases involving unknown magic types.  Previously, if
+C<Perl_sv_magic()> was passed a magic type unknown to it, it would
+
+=over
+
+=item 1.
+
+Croak "Modification of a read-only value attempted" if read only
+
+=item 2.
+
+Return without error if the SV happened to already have this magic
+
+=item 3.
+
+otherwise croak "Don't know how to handle magic of type \\%o"
+
+=back
+
+Now it will always croak "Don't know how to handle magic of type \\%o", even
+on read-only values, or SVs which already have the unknown magic type.
+
+=item *
+
+The experimental C<fetch_cop_label> function has been renamed to
+C<cop_fetch_label>.
+
+=item *
+
+The C<cop_store_label> function has been added to the API, but is
+experimental.
+
+=item *
+
+F<embedvar.h> has been simplified, and one level of macro indirection for
+PL_* variables has been removed for the default (non-multiplicity)
+configuration.  PERLVAR*() macros now directly expand their arguments to
+tokens such as C<PL_defgv>, instead of expanding to C<PL_Idefgv>, with
+F<embedvar.h> defining a macro to map C<PL_Idefgv> to C<PL_defgv>.  XS code
+which has unwarranted chumminess with the implementation may need updating.
+
+=item *
+
+An API has been added to explicitly choose whether to export XSUB
+symbols.  More detail can be found in the comments for commit e64345f8.
+
+=item *
+
+The C<is_gv_magical_sv> function has been eliminated and merged with
+C<gv_fetchpvn_flags>.  It used to be called to determine whether a GV
+should be autovivified in rvalue context.  Now it has been replaced with a
+new C<GV_ADDMG> flag (not part of the API).
+
+=item *
+
+The returned code point from the function C<utf8n_to_uvuni()>
+when the input is malformed UTF-8, malformations are allowed, and
+C<utf8> warnings are off is now the Unicode REPLACEMENT CHARACTER
+whenever the malformation is such that no well-defined code point can be
+computed.  Previously the returned value was essentially garbage.  The
+only malformations that have well-defined values are a zero-length
+string (0 is the return), and overlong UTF-8 sequences.
+
+=item *
+
+Padlists are now marked C<AvREAL>; i.e., reference-counted.  They have
+always been reference-counted, but were not marked real, because F<pad.c>
+did its own clean-up, instead of using the usual clean-up code in F<sv.c>.
+That caused problems in thread cloning, so now the C<AvREAL> flag is on,
+but is turned off in F<pad.c> right before the padlist is freed (after
+F<pad.c> has done its custom freeing of the pads).
+
+=item *
+
+All C files that make up the Perl core have been converted to UTF-8.
+
+=item *
+
+These new functions have been added as part of the work on Unicode symbols:
+
+    HvNAMELEN
+    HvNAMEUTF8
+    HvENAMELEN
+    HvENAMEUTF8
+    gv_init_pv
+    gv_init_pvn
+    gv_init_pvsv
+    gv_fetchmeth_pv
+    gv_fetchmeth_pvn
+    gv_fetchmeth_sv
+    gv_fetchmeth_pv_autoload
+    gv_fetchmeth_pvn_autoload
+    gv_fetchmeth_sv_autoload
+    gv_fetchmethod_pv_flags
+    gv_fetchmethod_pvn_flags
+    gv_fetchmethod_sv_flags
+    gv_autoload_pv
+    gv_autoload_pvn
+    gv_autoload_sv
+    newGVgen_flags
+    sv_derived_from_pv
+    sv_derived_from_pvn
+    sv_derived_from_sv
+    sv_does_pv
+    sv_does_pvn
+    sv_does_sv
+    whichsig_pv
+    whichsig_pvn
+    whichsig_sv
+    newCONSTSUB_flags
+
+The gv_fetchmethod_*_flags functions, like gv_fetchmethod_flags, are
+experimental and may change in a future release.
+
+=item *
+
+The following functions were added.  These are I<not> part of the API:
+
+    GvNAMEUTF8
+    GvENAMELEN
+    GvENAME_HEK
+    CopSTASH_flags
+    CopSTASH_flags_set
+    PmopSTASH_flags
+    PmopSTASH_flags_set
+    sv_sethek
+    HEKfARG
+
+There is also a C<HEKf> macro corresponding to C<SVf>, for
+interpolating HEKs in formatted strings.
+
+=item *
+
+C<sv_catpvn_flags> takes a couple of new internal-only flags,
+C<SV_CATBYTES> and C<SV_CATUTF8>, which tell it whether the char array to
+be concatenated is UTF8.  This allows for more efficient concatenation than
+creating temporary SVs to pass to C<sv_catsv>.
+
+=item *
+
+For XS AUTOLOAD subs, $AUTOLOAD is set once more, as it was in 5.6.0.  This
+is in addition to setting C<SvPVX(cv)>, for compatibility with 5.8 to 5.14.
+See L<perlguts/Autoloading with XSUBs>.
+
+=item *
+
+Perl now checks whether the array (the linearized isa) returned by a MRO
+plugin begins with the name of the class itself, for which the array was
+created, instead of assuming that it does.  This prevents the first element
+from being skipped during method lookup.  It also means that
+C<mro::get_linear_isa> may return an array with one more element than the
+MRO plugin provided [perl #94306].
+
+=item *
+
+C<PL_curstash> is now reference-counted.
+
+=item *
+
+There are now feature bundle hints in C<PL_hints> (C<$^H>) that version
+declarations use, to avoid having to load F<feature.pm>.  One setting of
+the hint bits indicates a "custom" feature bundle, which means that the
+entries in C<%^H> still apply.  F<feature.pm> uses that.
+
+The C<HINT_FEATURE_MASK> macro is defined in F<perl.h> along with other
+hints.  Other macros for setting and testing features and bundles are in
+the new F<feature.h>.  C<FEATURE_IS_ENABLED> (which has moved to
+F<feature.h>) is no longer used throughout the codebase, but more specific
+macros, e.g., C<FEATURE_SAY_IS_ENABLED>, that are defined in F<feature.h>.
+
+=item *
+
+F<lib/feature.pm> is now a generated file, created by the new
+F<regen/feature.pl> script, which also generates F<feature.h>.
+
+=item *
+
+Tied arrays are now always C<AvREAL>.  If C<@_> or C<DB::args> is tied, it
+is reified first, to make sure this is always the case.
+
+=item *
+
+Two new functions C<utf8_to_uvchr_buf()> and C<utf8_to_uvuni_buf()> have
+been added.  These are the same as C<utf8_to_uvchr> and
+C<utf8_to_uvuni> (which are now deprecated), but take an extra parameter
+that is used to guard against reading beyond the end of the input
+string.
+See L<perlapi/utf8_to_uvchr_buf> and L<perlapi/utf8_to_uvuni_buf>.
+
+=item *
+
+The regular expression engine now does TRIE case insensitive matches
+under Unicode. This may change the output of C<< use re 'debug'; >>,
+and will speed up various things.
+
+=item *
+
+There is a new C<wrap_op_checker()> function, which provides a thread-safe
+alternative to writing to C<PL_check> directly.
+
+=back
+
+=head1 Selected Bug Fixes
+
+=head2 Array and hash
+
+=over
+
+=item *
+
+A bug has been fixed that would cause a "Use of freed value in iteration"
+error if the next two hash elements that would be iterated over are
+deleted [perl #85026]. (5.14.1)
+
+=item *
+
+Deleting the current hash iterator (the hash element that would be returned
+by the next call to C<each>) in void context used not to free it
+[perl #85026].
+
+=item *
+
+Deletion of methods via C<delete $Class::{method}> syntax used to update
+method caches if called in void context, but not scalar or list context.
+
+=item *
+
+When hash elements are deleted in void context, the internal hash entry is
+now freed before the value is freed, to prevent destructors called by that
+latter freeing from seeing the hash in an inconsistent state.  It was
+possible to cause double-frees if the destructor freed the hash itself
+[perl #100340].
+
+=item *
+
+A C<keys> optimization in Perl 5.12.0 to make it faster on empty hashes
+caused C<each> not to reset the iterator if called after the last element
+was deleted.
+
+=item *
+
+Freeing deeply nested hashes no longer crashes [perl #44225].
+
+=item *
+
+It is possible from XS code to create hashes with elements that have no
+values.  The hash element and slice operators used to crash
+when handling these in lvalue context.  They now
+produce a "Modification of non-creatable hash value attempted" error
+message.
+
+=item *
+
+If list assignment to a hash or array triggered destructors that freed the
+hash or array itself, a crash would ensue.  This is no longer the case
+[perl #107440].
+
+=item *
+
+It used to be possible to free the typeglob of a localized array or hash
+(e.g., C<local @{"x"}; delete $::{x}>), resulting in a crash on scope exit.
+
+=item *
+
+Some core bugs affecting L<Hash::Util> have been fixed: locking a hash
+element that is a glob copy no longer causes the next assignment to it to
+corrupt the glob (5.14.2), and unlocking a hash element that holds a
+copy-on-write scalar no longer causes modifications to that scalar to
+modify other scalars that were sharing the same string buffer.
+
+=back
+
+=head2 C API fixes
+
+=over
+
+=item *
+
+The C<newHVhv> XS function now works on tied hashes, instead of crashing or
+returning an empty hash.
+
+=item *
+
+The C<SvIsCOW> C macro now returns false for read-only copies of typeglobs,
+such as those created by:
+
+  $hash{elem} = *foo;
+  Hash::Util::lock_value %hash, 'elem';
+
+It used to return true.
+
+=item *
+
+The C<SvPVutf8> C function no longer tries to modify its argument,
+resulting in errors [perl #108994].
+
+=item *
+
+C<SvPVutf8> now works properly with magical variables.
+
+=item *
+
+C<SvPVbyte> now works properly non-PVs.
+
+=item *
+
+When presented with malformed UTF-8 input, the XS-callable functions
+C<is_utf8_string()>, C<is_utf8_string_loc()>, and
+C<is_utf8_string_loclen()> could read beyond the end of the input
+string by up to 12 bytes.  This no longer happens.  [perl #32080].
+However, currently, C<is_utf8_char()> still has this defect, see
+L</is_utf8_char()> above.
+
+=item *
+
+The C-level C<pregcomp> function could become confused about whether the
+pattern was in UTF8 if the pattern was an overloaded, tied, or otherwise
+magical scalar [perl #101940].
+
+=back
+
+=head2 Compile-time hints
+
+=over
+
+=item *
+
+Tying C<%^H> no longer causes perl to crash or ignore the contents of
+C<%^H> when entering a compilation scope [perl #106282].
+
+=item *
+
+C<eval $string> and C<require> used not to
+localize C<%^H> during compilation if it
+was empty at the time the C<eval> call itself was compiled.  This could
+lead to scary side effects, like C<use re "/m"> enabling other flags that
+the surrounding code was trying to enable for its caller [perl #68750].
+
+=item *
+
+C<eval $string> and C<require> no longer localize hints (C<$^H> and C<%^H>)
+at run time, but only during compilation of the $string or required file.
+This makes C<BEGIN { $^H{foo}=7 }> equivalent to
+C<BEGIN { eval '$^H{foo}=7' }> [perl #70151].
+
+=item *
+
+Creating a BEGIN block from XS code (via C<newXS> or C<newATTRSUB>) would,
+on completion, make the hints of the current compiling code the current
+hints.  This could cause warnings to occur in a non-warning scope.
+
+=back
+
+=head2 Copy-on-write scalars
+
+Copy-on-write or shared hash key scalars
+were introduced in 5.8.0, but most Perl code
+did not encounter them (they were used mostly internally).  Perl
+5.10.0 extended them, such that assigning C<__PACKAGE__> or a
+hash key to a scalar would make it copy-on-write.  Several parts
+of Perl were not updated to account for them, but have now been fixed.
+
+=over
+
+=item *
+
+C<utf8::decode> had a nasty bug that would modify copy-on-write scalars'
+string buffers in place (i.e., skipping the copy).  This could result in
+hashes having two elements with the same key [perl #91834]. (5.14.2)
+
+=item *
+
+Lvalue subroutines were not allowing COW scalars to be returned.  This was
+fixed for lvalue scalar context in Perl 5.12.3 and 5.14.0, but list context
+was not fixed until this release.
+
+=item *
+
+Elements of restricted hashes (see the L<fields> pragma) containing
+copy-on-write values couldn't be deleted, nor could such hashes be cleared
+(C<%hash = ()>). (5.14.2)
+
+=item *
+
+Localizing a tied variable used to make it read-only if it contained a
+copy-on-write string. (5.14.2)
+
+=item *
+
+Assigning a copy-on-write string to a stash
+element no longer causes a double free.  Regardless of this change, the
+results of such assignments are still undefined.
+
+=item *
+
+Assigning a copy-on-write string to a tied variable no longer stops that
+variable from being tied if it happens to be a PVMG or PVLV internally.
+
+=item *
+
+Doing a substitution on a tied variable returning a copy-on-write
+scalar used to cause an assertion failure or an "Attempt to free
+nonexistent shared string" warning.
+
+=item *
+
+This one is a regression from 5.12: In 5.14.0, the bitwise assignment
+operators C<|=>, C<^=> and C<&=> started leaving the left-hand side
+undefined if it happened to be a copy-on-write string [perl #108480].
+
+=item *
+
+L<Storable>, L<Devel::Peek> and L<PerlIO::scalar> had similar problems.
+See L</Updated Modules and Pragmata>, above.
+
+=back
+
+=head2 The debugger
+
+=over
+
+=item *
+
+F<dumpvar.pl>, and therefore the C<x> command in the debugger, have been
+fixed to handle objects blessed into classes whose names contain "=".  The
+contents of such objects used not to be dumped [perl #101814].
+
+=item *
+
+The "R" command for restarting a debugger session has been fixed to work on
+Windows, or any other system lacking a C<POSIX::_SC_OPEN_MAX> constant
+[perl #87740].
+
+=item *
+
+The C<#line 42 foo> directive used not to update the arrays of lines used
+by the debugger if it occurred in a string eval.  This was partially fixed
+in 5.14, but it worked only for a single C<#line 42 foo> in each eval.  Now
+it works for multiple.
+
+=item *
+
+When subroutine calls are intercepted by the debugger, the name of the
+subroutine or a reference to it is stored in C<$DB::sub>, for the debugger
+to access.  Sometimes (such as C<$foo = *bar; undef *bar; &$foo>)
+C<$DB::sub> would be set to a name that could not be used to find the
+subroutine, and so the debugger's attempt to call it would fail.  Now the
+check to see whether a reference is needed is more robust, so those
+problems should not happen anymore [rt.cpan.org #69862].
+
+=item *
+
+Every subroutine has a filename associated with it that the debugger uses.
+The one associated with constant subroutines used to be misallocated when
+cloned under threads.  Consequently, debugging threaded applications could
+result in memory corruption [perl #96126].
+
+=back
+
+=head2 Dereferencing operators
+
+=over
+
+=item *
+
+C<defined(${"..."})>, C<defined(*{"..."})>, etc., used to
+return true for most, but not all built-in variables, if
+they had not been used yet.  This bug affected C<${^GLOBAL_PHASE}> and
+C<${^UTF8CACHE}>, among others.  It also used to return false if the
+package name was given as well (C<${"::!"}>) [perl #97978, #97492].
+
+=item *
+
+Perl 5.10.0 introduced a similar bug: C<defined(*{"foo"})> where "foo"
+represents the name of a built-in global variable used to return false if
+the variable had never been used before, but only on the I<first> call.
+This, too, has been fixed.
+
+=item *
+
+Since 5.6.0, C<*{ ... }> has been inconsistent in how it treats undefined
+values.  It would die in strict mode or lvalue context for most undefined
+values, but would be treated as the empty string (with a warning) for the
+specific scalar return by C<undef()> (C<&PL_sv_undef> internally).  This
+has been corrected.  C<undef()> is now treated like other undefined
+scalars, as in Perl 5.005.
+
+=back
+
+=head2 Filehandle, last-accessed
+
+Perl has an internal variable that stores the last filehandle to be
+accessed.  It is used by C<$.> and by C<tell> and C<eof> without
+arguments.
+
+=over
+
+=item *
+
+It used to be possible to set this internal variable to a glob copy and
+then modify that glob copy to be something other than a glob, and still
+have the last-accessed filehandle associated with the variable after
+assigning a glob to it again:
+
+    my $foo = *STDOUT;  # $foo is a glob copy
+    <$foo>;             # $foo is now the last-accessed handle
+    $foo = 3;           # no longer a glob
+    $foo = *STDERR;     # still the last-accessed handle
+
+Now the C<$foo = 3> assignment unsets that internal variable, so there
+is no last-accessed filehandle, just as if C<< <$foo> >> had never
+happened.
+
+This also prevents some unrelated handle from becoming the last-accessed
+handle if $foo falls out of scope and the same internal SV gets used for
+another handle [perl #97988].
+
+=item *
+
+A regression in 5.14 caused these statements not to set that internal
+variable:
+
+    my $fh = *STDOUT;
+    tell $fh;
+    eof  $fh;
+    seek $fh, 0,0;
+    tell     *$fh;
+    eof      *$fh;
+    seek     *$fh, 0,0;
+    readline *$fh;
+
+This is now fixed, but C<tell *{ *$fh }> still has the problem, and it
+is not clear how to fix it [perl #106536].
+
+=back
+
+=head2 Filetests and C<stat>
+
+The term "filetests" refers to the operators that consist of a hyphen
+followed by a single letter: C<-r>, C<-x>, C<-M>, etc.  The term "stacked"
+when applied to filetests means followed by another filetest operator
+sharing the same operand, as in C<-r -x -w $fooo>.
+
+=over
+
+=item *
+
+C<stat> produces more consistent warnings.  It no longer warns for "_"
+[perl #71002] and no longer skips the warning at times for other unopened
+handles.  It no longer warns about an unopened handle when the operating
+system's C<fstat> function fails.
+
+=item *
+
+C<stat> would sometimes return negative numbers for large inode numbers,
+because it was using the wrong internal C type. [perl #84590]
+
+=item *
+
+C<lstat> is documented to fall back to C<stat> (with a warning) when given
+a filehandle.  When passed an IO reference, it was actually doing the
+equivalent of S<C<stat _>> and ignoring the handle.
+
+=item *
+
+C<-T _> with no preceding C<stat> used to produce a
+confusing "uninitialized" warning, even though there
+is no visible uninitialized value to speak of.
+
+=item *
+
+C<-T>, C<-B>, C<-l> and C<-t> now work
+when stacked with other filetest operators
+[perl #77388].
+
+=item *
+
+In 5.14.0, filetest ops (C<-r>, C<-x>, etc.) started calling FETCH on a
+tied argument belonging to the previous argument to a list operator, if
+called with a bareword argument or no argument at all.  This has been
+fixed, so C<push @foo, $tied, -r> no longer calls FETCH on C<$tied>.
+
+=item *
+
+In Perl 5.6, C<-l> followed by anything other than a bareword would treat
+its argument as a file name.  That was changed in 5.8 for glob references
+(C<\*foo>), but not for globs themselves (C<*foo>).  C<-l> started
+returning C<undef> for glob references without setting the last
+stat buffer that the "_" handle uses, but only if warnings
+were turned on.  With warnings off, it was the same as 5.6.
+In other words, it was simply buggy and inconsistent.  Now the 5.6
+behavior has been restored.
+
+=item *
+
+C<-l> followed by a bareword no longer "eats" the previous argument to
+the list operator in whose argument list it resides.  Hence,
+C<print "bar", -l foo> now actually prints "bar", because C<-l>
+on longer eats it.
+
+=item *
+
+Perl keeps several internal variables to keep track of the last stat
+buffer, from which file(handle) it originated, what type it was, and
+whether the last stat succeeded.
+
+There were various cases where these could get out of synch, resulting in
+inconsistent or erratic behavior in edge cases (every mention of C<-T>
+applies to C<-B> as well):
+
+=over
+
+=item *
+
+C<-T I<HANDLE>>, even though it does a C<stat>, was not resetting the last
+stat type, so an C<lstat _> following it would merrily return the wrong
+results.  Also, it was not setting the success status.
+
+=item *
+
+Freeing the handle last used by C<stat> or a filetest could result in
+S<C<-T _>> using an unrelated handle.
+
+=item *
+
+C<stat> with an IO reference would not reset the stat type or record the
+filehandle for S<C<-T _>> to use.
+
+=item *
+
+Fatal warnings could cause the stat buffer not to be reset
+for a filetest operator on an unopened filehandle or C<-l> on any handle.
+Fatal warnings also stopped C<-T> from setting C<$!>.
+
+=item *
+
+When the last stat was on an unreadable file, C<-T _> is supposed to
+return C<undef>, leaving the last stat buffer unchanged.  But it was
+setting the stat type, causing C<lstat _> to stop working.
+
+=item *
+
+C<-T I<FILENAME>> was not resetting the internal stat buffers for
+unreadable files.
+
+=back
+
+These have all been fixed.
+
+=back
+
+=head2 Formats
+
+=over
+
+=item *
+
+Several edge cases have been fixed with formats and C<formline>;
+in particular, where the format itself is potentially variable (such as
+with ties and overloading), and where the format and data differ in their
+encoding.  In both these cases, it used to possible for the output to be
+corrupted [perl #91032].
+
+=item *
+
+C<formline> no longer converts its argument into a string in-place.  So
+passing a reference to C<formline> no longer destroys the reference
+[perl #79532].
+
+=item *
+
+Assignment to C<$^A> (the format output accumulator) now recalculates
+the number of lines output.
+
+=back
+
+=head2 C<given> and C<when>
+
+=over
+
+=item *
+
+C<given> was not scoping its implicit $_ properly, resulting in memory
+leaks or "Variable is not available" warnings [perl #94682].
+
+=item *
+
+C<given> was not calling set-magic on the implicit lexical C<$_> that it
+uses.  This meant, for example, that C<pos> would be remembered from one
+execution of the same C<given> block to the next, even if the input were a
+different variable [perl #84526].
+
+=item *
+
+C<when> blocks are now capable of returning variables declared inside the
+enclosing C<given> block [perl #93548].
+
+=back
+
+=head2 The C<glob> operator
+
+=over
+
+=item *
+
+On OSes other than VMS, Perl's C<glob> operator (and the C<< <...> >> form)
+use L<File::Glob> underneath.  L<File::Glob> splits the pattern into words,
+before feeding each word to its C<bsd_glob> function.
+
+There were several inconsistencies in the way the split was done.  Now
+quotation marks (' and ") are always treated as shell-style word delimiters
+(that allow whitespace as part of a word) and backslashes are always
+preserved, unless they exist to escape quotation marks.  Before, those
+would only sometimes be the case, depending on whether the pattern
+contained whitespace.  Also, escaped whitespace at the end of the pattern
+is no longer stripped [perl #40470].
+
+=item *
+
+C<CORE::glob> now works as a way to call the default globbing function.  It
+used to respect overrides, despite the C<CORE::> prefix.
+
+=item *
+
+Under miniperl (used to configure modules when perl itself is built),
+C<glob> now clears %ENV before calling csh, since the latter croaks on some
+systems if it does not like the contents of the LS_COLORS environment
+variable [perl #98662].
+
+=back
+
+=head2 Lvalue subroutines
+
+=over
+
+=item *
+
+Explicit return now returns the actual argument passed to return, instead
+of copying it [perl #72724, #72706].
+
+=item *
+
+Lvalue subroutines used to enforce lvalue syntax (i.e., whatever can go on
+the left-hand side of C<=>) for the last statement and the arguments to
+return.  Since lvalue subroutines are not always called in lvalue context,
+this restriction has been lifted.
+
+=item *
+
+Lvalue subroutines are less restrictive about what values can be returned.
+It used to croak on values returned by C<shift> and C<delete> and from
+other subroutines, but no longer does so [perl #71172].
+
+=item *
+
+Empty lvalue subroutines (C<sub :lvalue {}>) used to return C<@_> in list
+context.  All subroutines used to do this, but regular subs were fixed in
+Perl 5.8.2.  Now lvalue subroutines have been likewise fixed.
+
+=item *
+
+Autovivification now works on values returned from lvalue subroutines
+[perl #7946], as does returning C<keys> in lvalue context.
+
+=item *
+
+Lvalue subroutines used to copy their return values in rvalue context.  Not
+only was this a waste of CPU cycles, but it also caused bugs.  A C<($)>
+prototype would cause an lvalue sub to copy its return value [perl #51408],
+and C<while(lvalue_sub() =~ m/.../g) { ... }> would loop endlessly
+[perl #78680].
+
+=item *
+
+When called in potential lvalue context
+(e.g., subroutine arguments or a list
+passed to C<for>), lvalue subroutines used to copy
+any read-only value that was returned.  E.g., C< sub :lvalue { $] } >
+would not return C<$]>, but a copy of it.
+
+=item *
+
+When called in potential lvalue context, an lvalue subroutine returning
+arrays or hashes used to bind the arrays or hashes to scalar variables,
+resulting in bugs.  This was fixed in 5.14.0 if an array were the first
+thing returned from the subroutine (but not for C<$scalar, @array> or
+hashes being returned).  Now a more general fix has been applied
+[perl #23790].
+
+=item *
+
+Method calls whose arguments were all surrounded with C<my()> or C<our()>
+(as in C<< $object->method(my($a,$b)) >>) used to force lvalue context on
+the subroutine.  This would prevent lvalue methods from returning certain
+values.
+
+=item *
+
+Lvalue sub calls that are not determined to be such at compile time
+(C<&$name> or &{"name"}) are no longer exempt from strict refs if they
+occur in the last statement of an lvalue subroutine [perl #102486].
+
+=item *
+
+Sub calls whose subs are not visible at compile time, if
+they occurred in the last statement of an lvalue subroutine,
+would reject non-lvalue subroutines and die with "Can't modify non-lvalue
+subroutine call" [perl #102486].
+
+Non-lvalue sub calls whose subs I<are> visible at compile time exhibited
+the opposite bug.  If the call occurred in the last statement of an lvalue
+subroutine, there would be no error when the lvalue sub was called in
+lvalue context.  Perl would blindly assign to the temporary value returned
+by the non-lvalue subroutine.
+
+=item *
+
+C<AUTOLOAD> routines used to take precedence over the actual sub being
+called (i.e., when autoloading wasn't needed), for sub calls in lvalue or
+potential lvalue context, if the subroutine was not visible at compile
+time.
+
+=item *
+
+Applying the C<:lvalue> attribute to an XSUB or to an aliased subroutine
+stub with C<< sub foo :lvalue; >> syntax stopped working in Perl 5.12.
+This has been fixed.
+
+=item *
+
+Applying the :lvalue attribute to subroutine that is already defined does
+not work properly, as the attribute changes the way the sub is compiled.
+Hence, Perl 5.12 began warning when an attempt is made to apply the
+attribute to an already defined sub.  In such cases, the attribute is
+discarded.
+
+But the change in 5.12 missed the case where custom attributes are also
+present: that case still silently and ineffectively applied the attribute.
+That omission has now been corrected.  C<sub foo :lvalue :Whatever> (when
+C<foo> is already defined) now warns about the :lvalue attribute, and does
+not apply it.
+
+=item *
+
+A bug affecting lvalue context propagation through nested lvalue subroutine
+calls has been fixed.  Previously, returning a value in nested rvalue
+context would be treated as lvalue context by the inner subroutine call,
+resulting in some values (such as read-only values) being rejected.
+
+=back
+
+=head2 Overloading
+
+=over
+
+=item *
+
+Arithmetic assignment (C<$left += $right>) involving overloaded objects
+that rely on the 'nomethod' override no longer segfault when the left
+operand is not overloaded.
+
+=item *
+
+Errors that occur when methods cannot be found during overloading now
+mention the correct package name, as they did in 5.8.x, instead of
+erroneously mentioning the "overload" package, as they have since 5.10.0.
+
+=item *
+
+Undefining C<%overload::> no longer causes a crash.
+
+=back
+
+=head2 Prototypes of built-in keywords
+
+=over
+
+=item *
+
+The C<prototype> function no longer dies for the C<__FILE__>, C<__LINE__>
+and C<__PACKAGE__> directives.  It now returns an empty-string prototype
+for them, because they are syntactically indistinguishable from nullary
+functions like C<time>.
+
+=item *
+
+C<prototype> now returns C<undef> for all overridable infix operators,
+such as C<eq>, which are not callable in any way resembling functions.
+It used to return incorrect prototypes for some and die for others
+[perl #94984].
+
+=item *
+
+The prototypes of several built-in functions--C<getprotobynumber>, C<lock>,
+C<not> and C<select>--have been corrected, or at least are now closer to
+reality than before.
+
+=back
+
+=head2 Regular expressions
+
+=for comment Is it possible to merge some of these items?
+
+=over 4
+
+=item *
+
+C</[[:ascii:]]/> and C</[[:blank:]]/> now use locale rules under
+C<use locale> when the platform supports that.  Previously, they used
+the platform's native character set.
+
+=item *
+
+C<m/[[:ascii:]]/i> and C</\p{ASCII}/i> now match identically (when not
+under a differing locale).  This fixes a regression introduced in 5.14
+in which the first expression could match characters outside of ASCII,
+such as the KELVIN SIGN.
+
+=item *
+
+C</.*/g> would sometimes refuse to match at the end of a string that ends
+with "\n".  This has been fixed [perl #109206].
+
+=item *
+
+Starting with 5.12.0, Perl used to get its internal bookkeeping muddled up
+after assigning C<${ qr// }> to a hash element and locking it with
+L<Hash::Util>.  This could result in double frees, crashes, or erratic
+behavior.
+
+=item *
+
+The new (in 5.14.0) regular expression modifier C</a> when repeated like
+C</aa> forbids the characters outside the ASCII range that match
+characters inside that range from matching under C</i>.  This did not
+work under some circumstances, all involving alternation, such as:
+
+ "\N{KELVIN SIGN}" =~ /k|foo/iaa;
+
+succeeded inappropriately.  This is now fixed.
+
+=item *
+
+5.14.0 introduced some memory leaks in regular expression character
+classes such as C<[\w\s]>, which have now been fixed. (5.14.1)
+
+=item *
+
+An edge case in regular expression matching could potentially loop.
+This happened only under C</i> in bracketed character classes that have
+characters with multi-character folds, and the target string to match
+against includes the first portion of the fold, followed by another
+character that has a multi-character fold that begins with the remaining
+portion of the fold, plus some more.
+
+ "s\N{U+DF}" =~ /[\x{DF}foo]/i
+
+is one such case.  C<\xDF> folds to C<"ss">. (5.14.1)
+
+=item *
+
+A few characters in regular expression pattern matches did not
+match correctly in some circumstances, all involving C</i>.  The
+affected characters are:
+COMBINING GREEK YPOGEGRAMMENI,
+GREEK CAPITAL LETTER IOTA,
+GREEK CAPITAL LETTER UPSILON,
+GREEK PROSGEGRAMMENI,
+GREEK SMALL LETTER IOTA WITH DIALYTIKA AND OXIA,
+GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS,
+GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND OXIA,
+GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS,
+LATIN SMALL LETTER LONG S,
+LATIN SMALL LIGATURE LONG S T,
+and
+LATIN SMALL LIGATURE ST.
+
+=item *
+
+A memory leak regression in regular expression compilation
+under threading has been fixed.
+
+=item *
+
+A regression introduced in 5.14.0 has
+been fixed.  This involved an inverted
+bracketed character class in a regular expression that consisted solely
+of a Unicode property.  That property wasn't getting inverted outside the
+Latin1 range.
+
+=item *
+
+Three problematic Unicode characters now work better in regex pattern matching under C</i>.
+
+In the past, three Unicode characters:
+LATIN SMALL LETTER SHARP S,
+GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS,
+and
+GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS,
+along with the sequences that they fold to
+(including "ss" for LATIN SMALL LETTER SHARP S),
+did not properly match under C</i>.  5.14.0 fixed some of these cases,
+but introduced others, including a panic when one of the characters or
+sequences was used in the C<(?(DEFINE)> regular expression predicate.
+The known bugs that were introduced in 5.14 have now been fixed; as well
+as some other edge cases that have never worked until now.  These all
+involve using the characters and sequences outside bracketed character
+classes under C</i>.  This closes [perl #98546].
+
+There remain known problems when using certain characters with
+multi-character folds inside bracketed character classes, including such
+constructs as C<qr/[\N{LATIN SMALL LETTER SHARP}a-z]/i>.  These
+remaining bugs are addressed in [perl #89774].
+
+=item *
+
+RT #78266: The regex engine has been leaking memory when accessing
+named captures that weren't matched as part of a regex ever since 5.10
+when they were introduced; e.g., this would consume over a hundred MB of
+memory:
+
+    for (1..10_000_000) {
+        if ("foo" =~ /(foo|(?<capture>bar))?/) {
+            my $capture = $+{capture}
+        }
+    }
+    system "ps -o rss $$"'
+
+=item *
+
+In 5.14, C</[[:lower:]]/i> and C</[[:upper:]]/i> no longer matched the
+opposite case.  This has been fixed [perl #101970].
+
+=item *
+
+A regular expression match with an overloaded object on the right-hand side
+would sometimes stringify the object too many times.
+
+=item *
+
+A regression has been fixed that was introduced in 5.14, in C</i>
+regular expression matching, in which a match improperly fails if the
+pattern is in UTF-8, the target string is not, and a Latin-1 character
+precedes a character in the string that should match the pattern.
+[perl #101710]
+
+=item *
+
+In case-insensitive regular expression pattern matching, no longer on
+UTF-8 encoded strings does the scan for the start of match look only at
+the first possible position.  This caused matches such as
+C<"f\x{FB00}" =~ /ff/i> to fail.
+
+=item *
+
+The regexp optimizer no longer crashes on debugging builds when merging
+fixed-string nodes with inconvenient contents.
+
+=item *
+
+A panic involving the combination of the regular expression modifiers
+C</aa> and the C<\b> escape sequence introduced in 5.14.0 has been
+fixed [perl #95964]. (5.14.2)
+
+=item *
+
+The combination of the regular expression modifiers C</aa> and the C<\b>
+and C<\B> escape sequences did not work properly on UTF-8 encoded
+strings.  All non-ASCII characters under C</aa> should be treated as
+non-word characters, but what was happening was that Unicode rules were
+used to determine wordness/non-wordness for non-ASCII characters.  This
+is now fixed [perl #95968].
+
+=item *
+
+C<< (?foo: ...) >> no longer loses passed in character set.
+
+=item *
+
+The trie optimization used to have problems with alternations containing
+an empty C<(?:)>, causing C<< "x" =~ /\A(?>(?:(?:)A|B|C?x))\z/ >> not to
+match, whereas it should [perl #111842].
+
+=item *
+
+Use of lexical (C<my>) variables in code blocks embedded in regular
+expressions will no longer result in memory corruption or crashes.
+
+Nevertheless, these code blocks are still experimental, as there are still
+problems with the wrong variables being closed over (in loops for instance)
+and with abnormal exiting (e.g., C<die>) causing memory corruption.
+
+=item *
+
+The C<\h>, C<\H>, C<\v> and C<\V> regular expression metacharacters used to
+cause a panic error message when trying to match at the end of the
+string [perl #96354].
+
+=item *
+
+The abbreviations for four C1 control characters C<MW> C<PM>, C<RI>, and
+C<ST> were previously unrecognized by C<\N{}>, vianame(), and
+string_vianame().
+
+=item *
+
+Mentioning a variable named "&" other than C<$&> (i.e., C<@&> or C<%&>) no
+longer stops C<$&> from working.  The same applies to variables named "'"
+and "`" [perl #24237].
+
+=item *
+
+Creating a C<UNIVERSAL::AUTOLOAD> sub no longer stops C<%+>, C<%-> and
+C<%!> from working some of the time [perl #105024].
+
+=back
+
+=head2 Smartmatching
+
+=over
+
+=item *
+
+C<~~> now correctly handles the precedence of Any~~Object, and is not tricked
+by an overloaded object on the left-hand side.
+
+=item *
+
+In Perl 5.14.0, C<$tainted ~~ @array> stopped working properly.  Sometimes
+it would erroneously fail (when C<$tainted> contained a string that occurs
+in the array I<after> the first element) or erroneously succeed (when
+C<undef> occurred after the first element) [perl #93590].
+
+=back
+
+=head2 The C<sort> operator
+
+=over
+
+=item *
+
+C<sort> was not treating C<sub {}> and C<sub {()}> as equivalent when
+such a sub was provided as the comparison routine.  It used to croak on
+C<sub {()}>.
+
+=item *
+
+C<sort> now works once more with custom sort routines that are XSUBs.  It
+stopped working in 5.10.0.
+
+=item *
+
+C<sort> with a constant for a custom sort routine, although it produces
+unsorted results, no longer crashes.  It started crashing in 5.10.0.
+
+=item *
+
+Warnings emitted by C<sort> when a custom comparison routine returns a
+non-numeric value now contain "in sort" and show the line number of the
+C<sort> operator, rather than the last line of the comparison routine.  The
+warnings also now occur only if warnings are enabled in the scope where
+C<sort> occurs.  Previously the warnings would occur if enabled in the
+comparison routine's scope.
+
+=item *
+
+C<< sort { $a <=> $b } >>, which is optimized internally, now produces
+"uninitialized" warnings for NaNs (not-a-number values), since C<< <=> >>
+returns C<undef> for those.  This brings it in line with
+S<C<< sort { 1; $a <=> $b } >>> and other more complex cases, which are not
+optimized [perl #94390].
+
+=back
+
+=head2 The C<substr> operator
+
+=over
+
+=item *
+
+Tied (and otherwise magical) variables are no longer exempt from the
+"Attempt to use reference as lvalue in substr" warning.
+
+=item *
+
+That warning now occurs when the returned lvalue is assigned to, not
+when C<substr> itself is called.  This makes a difference only if the
+return value of C<substr> is referenced and later assigned to.
+
+=item *
+
+Passing a substring of a read-only value or a typeglob to a function
+(potential lvalue context) no longer causes an immediate "Can't coerce"
+or "Modification of a read-only value" error.  That error occurs only 
+if the passed value is assigned to.
+
+The same thing happens with the "substr outside of string" error.  If
+the lvalue is only read from, not written to, it is now just a warning, as
+with rvalue C<substr>.
+
+=item *
+
+C<substr> assignments no longer call FETCH twice if the first argument
+is a tied variable, just once.
+
+=back
+
+=head2 Support for embedded nulls
+
+Some parts of Perl did not work correctly with nulls (C<chr 0>) embedded in
+strings.  That meant that, for instance, C<< $m = "a\0b"; foo->$m >> would
+call the "a" method, instead of the actual method name contained in $m.
+These parts of perl have been fixed to support nulls:
+
+=over
+
+=item *
+
+Method names
+
+=item *
+
+Typeglob names (including filehandle and subroutine names)
+
+=item *
+
+Package names, including the return value of C<ref()>
+
+=item *
+
+Typeglob elements (C<*foo{"THING\0stuff"}>)
+
+=item *
+
+Signal names
+
+=item *
+
+Various warnings and error messages that mention variable names or values,
+methods, etc.
+
+=back
+
+One side effect of these changes is that blessing into "\0" no longer
+causes C<ref()> to return false.
+
+=head2 Threading bugs
+
+=over
+
+=item *
+
+Typeglobs returned from threads are no longer cloned if the parent thread
+already has a glob with the same name.  This means that returned
+subroutines will now assign to the right package variables [perl #107366].
+
+=item *
+
+Some cases of threads crashing due to memory allocation during cloning have
+been fixed [perl #90006].
+
+=item *
+
+Thread joining would sometimes emit "Attempt to free unreferenced scalar"
+warnings if C<caller> had been used from the C<DB> package before thread
+creation [perl #98092].
+
+=item *
+
+Locking a subroutine (via C<lock &sub>) is no longer a compile-time error
+for regular subs.  For lvalue subroutines, it no longer tries to return the
+sub as a scalar, resulting in strange side effects like C<ref \$_>
+returning "CODE" in some instances.
+
+C<lock &sub> is now a run-time error if L<threads::shared> is loaded (a
+no-op otherwise), but that may be rectified in a future version.
+
+=back
+
+=head2 Tied variables
+
+=over
+
+=item *
+
+Various cases in which FETCH was being ignored or called too many times
+have been fixed:
+
+=over
+
+=item *
+
+C<PerlIO::get_layers> [perl #97956]
+
+=item *
+
+C<$tied =~ y/a/b/>, C<chop $tied> and C<chomp $tied> when $tied holds a
+reference.
+
+=item *
+
+When calling C<local $_> [perl #105912]
+
+=item *
+
+Four-argument C<select>
+
+=item *
+
+A tied buffer passed to C<sysread>
+
+=item *
+
+C<< $tied .= <> >>
+
+=item *
+
+Three-argument C<open>, the third being a tied file handle
+(as in C<< open $fh, ">&", $tied >>)
+
+=item *
+
+C<sort> with a reference to a tied glob for the comparison routine.
+
+=item *
+
+C<..> and C<...> in list context [perl #53554].
+
+=item *
+
+C<${$tied}>, C<@{$tied}>, C<%{$tied}> and C<*{$tied}> where the tied
+variable returns a string (C<&{}> was unaffected)
+
+=item *
+
+C<defined ${ $tied_variable }>
+
+=item *
+
+Various functions that take a filehandle argument in rvalue context
+(C<close>, C<readline>, etc.) [perl #97482]
+
+=item *
+
+Some cases of dereferencing a complex expression, such as
+C<${ (), $tied } = 1>, used to call C<FETCH> multiple times, but now call
+it once.
+
+=item *
+
+C<$tied-E<gt>method> where $tied returns a package name--even resulting in
+a failure to call the method, due to memory corruption
+
+=item *
+
+Assignments like C<*$tied = \&{"..."}> and C<*glob = $tied>
+
+=item *
+
+C<chdir>, C<chmod>, C<chown>, C<utime>, C<truncate>, C<stat>, C<lstat> and
+the filetest ops (C<-r>, C<-x>, etc.)
+
+=back
+
+=item *
+
+C<caller> sets C<@DB::args> to the subroutine arguments when called from
+the DB package.  It used to crash when doing so if C<@DB::args> happened to
+be tied.  Now it croaks instead.
+
+=item *
+
+Tying an element of %ENV or C<%^H> and then deleting that element would
+result in a call to the tie object's DELETE method, even though tying the
+element itself is supposed to be equivalent to tying a scalar (the element
+is, of course, a scalar) [perl #67490].
+
+=item *
+
+When Perl autovivifies an element of a tied array or hash (which entails
+calling STORE with a new reference), it now calls FETCH immediately after
+the STORE, instead of assuming that FETCH would have returned the same
+reference.  This can make it easier to implement tied objects [perl #35865, #43011].
+
+=item *
+
+Four-argument C<select> no longer produces its "Non-string passed as
+bitmask" warning on tied or tainted variables that are strings.
+
+=item *
+
+Localizing a tied scalar that returns a typeglob no longer stops it from
+being tied till the end of the scope.
+
+=item *
+
+Attempting to C<goto> out of a tied handle method used to cause memory
+corruption or crashes.  Now it produces an error message instead
+[perl #8611].
+
+=item *
+
+A bug has been fixed that occurs when a tied variable is used as a
+subroutine reference:  if the last thing assigned to or returned from the
+variable was a reference or typeglob, the C<\&$tied> could either crash or
+return the wrong subroutine.  The reference case is a regression introduced
+in Perl 5.10.0.  For typeglobs, it has probably never worked till now.
+
+=back
+
+=head2 Version objects and vstrings
+
+=over
+
+=item *
+
+The bitwise complement operator (and possibly other operators, too) when
+passed a vstring would leave vstring magic attached to the return value,
+even though the string had changed.  This meant that
+C<< version->new(~v1.2.3) >> would create a version looking like "v1.2.3"
+even though the string passed to C<< version->new >> was actually
+"\376\375\374".  This also caused L<B::Deparse> to deparse C<~v1.2.3>
+incorrectly, without the C<~> [perl #29070].
+
+=item *
+
+Assigning a vstring to a magic (e.g., tied, C<$!>) variable and then
+assigning something else used to blow away all magic.  This meant that
+tied variables would come undone, C<$!> would stop getting updated on
+failed system calls, C<$|> would stop setting autoflush, and other
+mischief would take place.  This has been fixed.
+
+=item *
+
+C<< version->new("version") >> and C<printf "%vd", "version"> no longer
+crash [perl #102586].
+
+=item *
+
+Version comparisons, such as those that happen implicitly with C<use
+v5.43>, no longer cause locale settings to change [perl #105784].
+
+=item *
+
+Version objects no longer cause memory leaks in boolean context
+[perl #109762].
+
+=back
+
+=head2 Warnings, redefinition
+
+=over
+
+=item *
+
+Subroutines from the C<autouse> namespace are once more exempt from
+redefinition warnings.  This used to work in 5.005, but was broken in
+5.6 for most subroutines.  For subs created via XS that redefine
+subroutines from the C<autouse> package, this stopped working in 5.10.
+
+=item *
+
+New XSUBs now produce redefinition warnings if they overwrite existing
+subs, as they did in 5.8.x.  (The C<autouse> logic was reversed in
+5.10-14.  Only subroutines from the C<autouse> namespace would warn
+when clobbered.)
+
+=item *
+
+C<newCONSTSUB> used to use compile-time warning hints, instead of
+run-time hints.  The following code should never produce a redefinition
+warning, but it used to, if C<newCONSTSUB> redefined an existing
+subroutine:
+
+    use warnings;
+    BEGIN {
+        no warnings;
+        some_XS_function_that_calls_new_CONSTSUB();
+    }
+
+=item *
+
+Redefinition warnings for constant subroutines are on by default (what
+are known as severe warnings in L<perldiag>).  This occurred only
+when it was a glob assignment or declaration of a Perl subroutine that
+caused the warning.  If the creation of XSUBs triggered the warning, it
+was not a default warning.  This has been corrected.
+
+=item *
+
+The internal check to see whether a redefinition warning should occur
+used to emit "uninitialized" warnings in cases like this:
+
+    use warnings "uninitialized";
+    use constant {u => undef, v => undef};
+    sub foo(){u}
+    sub foo(){v}
+
+=back
+
+=head2 Warnings, "Uninitialized"
+
+=over
+
+=item *
+
+Various functions that take a filehandle argument in rvalue context
+(C<close>, C<readline>, etc.) used to warn twice for an undefined handle
+[perl #97482].
+
+=item *
+
+C<dbmopen> now only warns once, rather than three times, if the mode
+argument is C<undef> [perl #90064].
+
+=item *
+
+The C<+=> operator does not usually warn when the left-hand side is
+C<undef>, but it was doing so for tied variables.  This has been fixed
+[perl #44895].
+
+=item *
+
+A bug fix in Perl 5.14 introduced a new bug, causing "uninitialized"
+warnings to report the wrong variable if the operator in question had
+two operands and one was C<%{...}> or C<@{...}>.  This has been fixed
+[perl #103766].
+
+=item *
+
+C<..> and C<...> in list context now mention the name of the variable in
+"uninitialized" warnings for string (as opposed to numeric) ranges.
+
+=back
+
+=head2 Weak references
+
+=over
+
+=item *
+
+Weakening the first argument to an automatically-invoked C<DESTROY> method
+could result in erroneous "DESTROY created new reference" errors or
+crashes.  Now it is an error to weaken a read-only reference.
+
+=item *
+
+Weak references to lexical hashes going out of scope were not going stale
+(becoming undefined), but continued to point to the hash.
+
+=item *
+
+Weak references to lexical variables going out of scope are now broken
+before any magical methods (e.g., DESTROY on a tie object) are called.
+This prevents such methods from modifying the variable that will be seen
+the next time the scope is entered.
+
+=item *
+
+Creating a weak reference to an @ISA array or accessing the array index
+(C<$#ISA>) could result in confused internal bookkeeping for elements
+later added to the @ISA array.  For instance, creating a weak
+reference to the element itself could push that weak reference on to @ISA;
+and elements added after use of C<$#ISA> would be ignored by method lookup
+[perl #85670].
+
+=back
+
+=head2 Other notable fixes
+
+=over
+
+=item *
+
+C<quotemeta> now quotes consistently the same non-ASCII characters under
+C<use feature 'unicode_strings'>, regardless of whether the string is
+encoded in UTF-8 or not, hence fixing the last vestiges (we hope) of the
+notorious L<perlunicode/The "Unicode Bug">.  [perl #77654].
+
+Which of these code points is quoted has changed, based on Unicode's
+recommendations.  See L<perlfunc/quotemeta> for details.
+
+=item *
+
+C<study> is now a no-op, presumably fixing all outstanding bugs related to
+study causing regex matches to behave incorrectly!
+
+=item *
+
+When one writes C<open foo || die>, which used to work in Perl 4, a
+"Precedence problem" warning is produced.  This warning used erroneously to
+apply to fully-qualified bareword handle names not followed by C<||>.  This
+has been corrected.
+
+=item *
+
+After package aliasing (C<*foo:: = *bar::>), C<select> with 0 or 1 argument
+would sometimes return a name that could not be used to refer to the
+filehandle, or sometimes it would return C<undef> even when a filehandle
+was selected.  Now it returns a typeglob reference in such cases.
+
+=item *
+
+C<PerlIO::get_layers> no longer ignores some arguments that it thinks are
+numeric, while treating others as filehandle names.  It is now consistent
+for flat scalars (i.e., not references).
+
+=item *
+
+Unrecognized switches on C<#!> line
+
+If a switch, such as B<-x>, that cannot occur on the C<#!> line is used
+there, perl dies with "Can't emulate...".
+
+It used to produce the same message for switches that perl did not
+recognize at all, whether on the command line or the C<#!> line.
+
+Now it produces the "Unrecognized switch" error message [perl #104288].
+
+=item *
+
+C<system> now temporarily blocks the SIGCHLD signal handler, to prevent the
+signal handler from stealing the exit status [perl #105700].
+
+=item *
+
+The %n formatting code for C<printf> and C<sprintf>, which causes the number
+of characters to be assigned to the next argument, now actually
+assigns the number of characters, instead of the number of bytes.
+
+It also works now with special lvalue functions like C<substr> and with
+nonexistent hash and array elements [perl #3471, #103492].
+
+=item *
+
+Perl skips copying values returned from a subroutine, for the sake of
+speed, if doing so would make no observable difference.  Because of faulty
+logic, this would happen with the
+result of C<delete>, C<shift> or C<splice>, even if the result was
+referenced elsewhere.  It also did so with tied variables about to be freed
+[perl #91844, #95548].
+
+=item *
+
+C<utf8::decode> now refuses to modify read-only scalars [perl #91850].
+
+=item *
+
+Freeing $_ inside a C<grep> or C<map> block, a code block embedded in a
+regular expression, or an @INC filter (a subroutine returned by a
+subroutine in @INC) used to result in double frees or crashes
+[perl #91880, #92254, #92256].
+
+=item *
+
+C<eval> returns C<undef> in scalar context or an empty list in list
+context when there is a run-time error.  When C<eval> was passed a
+string in list context and a syntax error occurred, it used to return a
+list containing a single undefined element.  Now it returns an empty
+list in list context for all errors [perl #80630].
+
+=item *
+
+C<goto &func> no longer crashes, but produces an error message, when
+the unwinding of the current subroutine's scope fires a destructor that
+undefines the subroutine being "goneto" [perl #99850].
+
+=item *
+
+Perl now holds an extra reference count on the package that code is
+currently compiling in.  This means that the following code no longer
+crashes [perl #101486]:
+
+    package Foo;
+    BEGIN {*Foo:: = *Bar::}
+    sub foo;
+
+=item *
+
+The C<x> repetition operator no longer crashes on 64-bit builds with large
+repeat counts [perl #94560].
+
+=item *
+
+Calling C<require> on an implicit C<$_> when C<*CORE::GLOBAL::require> has
+been overridden does not segfault anymore, and C<$_> is now passed to the
+overriding subroutine [perl #78260].
+
+=item *
+
+C<use> and C<require> are no longer affected by the I/O layers active in
+the caller's scope (enabled by L<open.pm|open>) [perl #96008].
+
+=item *
+
+C<our $::é; $é> (which is invalid) no longer produces the "Compilation
+error at lib/utf8_heavy.pl..." error message, which it started emitting in
+5.10.0 [perl #99984].
+
+=item *
+
+On 64-bit systems, C<read()> now understands large string offsets beyond
+the 32-bit range.
+
+=item *
+
+Errors that occur when processing subroutine attributes no longer cause the
+subroutine's op tree to leak.
+
+=item *
+
+Passing the same constant subroutine to both C<index> and C<formline> no
+longer causes one or the other to fail [perl #89218]. (5.14.1)
+
+=item *
+
+List assignment to lexical variables declared with attributes in the same
+statement (C<my ($x,@y) : blimp = (72,94)>) stopped working in Perl 5.8.0.
+It has now been fixed.
+
+=item *
+
+Perl 5.10.0 introduced some faulty logic that made "U*" in the middle of
+a pack template equivalent to "U0" if the input string was empty.  This has
+been fixed [perl #90160]. (5.14.2)
+
+=item *
+
+Destructors on objects were not called during global destruction on objects
+that were not referenced by any scalars.  This could happen if an array
+element were blessed (e.g., C<bless \$a[0]>) or if a closure referenced a
+blessed variable (C<bless \my @a; sub foo { @a }>).
+
+Now there is an extra pass during global destruction to fire destructors on
+any objects that might be left after the usual passes that check for
+objects referenced by scalars [perl #36347].
+
+=item *
+
+Fixed a case where it was possible that a freed buffer may have been read
+from when parsing a here document [perl #90128]. (5.14.1)
+
+=item *
+
+C<each(I<ARRAY>)> is now wrapped in C<defined(...)>, like C<each(I<HASH>)>,
+inside a C<while> condition [perl #90888].
+
+=item *
+
+A problem with context propagation when a C<do> block is an argument to
+C<return> has been fixed.  It used to cause C<undef> to be returned in
+certain cases of a C<return> inside an C<if> block which itself is followed by
+another C<return>.
+
+=item *
+
+Calling C<index> with a tainted constant no longer causes constants in
+subsequently compiled code to become tainted [perl #64804].
+
+=item *
+
+Infinite loops like C<1 while 1> used to stop C<strict 'subs'> mode from
+working for the rest of the block.
+
+=item *
+
+For list assignments like C<($a,$b) = ($b,$a)>, Perl has to make a copy of
+the items on the right-hand side before assignment them to the left.  For
+efficiency's sake, it assigns the values on the right straight to the items
+on the left if no one variable is mentioned on both sides, as in C<($a,$b) =
+($c,$d)>.  The logic for determining when it can cheat was faulty, in that
+C<&&> and C<||> on the right-hand side could fool it.  So C<($a,$b) =
+$some_true_value && ($b,$a)> would end up assigning the value of C<$b> to
+both scalars.
+
+=item *
+
+Perl no longer tries to apply lvalue context to the string in
+C<("string", $variable) ||= 1> (which used to be an error).  Since the
+left-hand side of C<||=> is evaluated in scalar context, that's a scalar
+comma operator, which gives all but the last item void context.  There is
+no such thing as void lvalue context, so it was a mistake for Perl to try
+to force it [perl #96942].
+
+=item *
+
+C<caller> no longer leaks memory when called from the DB package if
+C<@DB::args> was assigned to after the first call to C<caller>.  L<Carp>
+was triggering this bug [perl #97010]. (5.14.2)
+
+=item *
+
+C<close> and similar filehandle functions, when called on built-in global
+variables (like C<$+>), used to die if the variable happened to hold the
+undefined value, instead of producing the usual "Use of uninitialized
+value" warning.
+
+=item *
+
+When autovivified file handles were introduced in Perl 5.6.0, C<readline>
+was inadvertently made to autovivify when called as C<readline($foo)> (but
+not as C<E<lt>$fooE<gt>>).  It has now been fixed never to autovivify.
+
+=item *
+
+Calling an undefined anonymous subroutine (e.g., what $x holds after
+C<undef &{$x = sub{}}>) used to cause a "Not a CODE reference" error, which
+has been corrected to "Undefined subroutine called" [perl #71154].
+
+=item *
+
+Causing C<@DB::args> to be freed between uses of C<caller> no longer
+results in a crash [perl #93320].
+
+=item *
+
+C<setpgrp($foo)> used to be equivalent to C<($foo, setpgrp)>, because
+C<setpgrp> was ignoring its argument if there was just one.  Now it is
+equivalent to C<setpgrp($foo,0)>.
+
+=item *
+
+C<shmread> was not setting the scalar flags correctly when reading from
+shared memory, causing the existing cached numeric representation in the
+scalar to persist [perl #98480].
+
+=item *
+
+C<++> and C<--> now work on copies of globs, instead of dying.
+
+=item *
+
+C<splice()> doesn't warn when truncating
+
+You can now limit the size of an array using C<splice(@a,MAX_LEN)> without
+worrying about warnings.
+
+=item *
+
+C<< $$ >> is no longer tainted.  Since this value comes directly from
+C<< getpid() >>, it is always safe.
+
+=item *
+
+The parser no longer leaks a filehandle if STDIN was closed before parsing
+started [perl #37033].
+
+=item *
+
+C<< die; >> with a non-reference, non-string, or magical (e.g., tainted)
+value in $@ now properly propagates that value [perl #111654].
+
+=back
+
+=head1 Known Problems
+
+=over 4
+
+=item *
+
+On Solaris, we have two kinds of failure.
+
+If F<make> is Sun's F<make>, we get an error about a badly formed macro
+assignment in the F<Makefile>.  That happens when F<./Configure> tries to
+make depends.  F<Configure> then exits 0, but further F<make>-ing fails.
+
+If F<make> is F<gmake>, F<Configure> completes, then we get errors related
+to F</usr/include/stdbool.h>
+
+=item *
+
+On Win32, a number of tests hang unless STDERR is redirected.  The cause of
+this is still under investigation.
+
+=item *
+
+When building as root with a umask that prevents files from being
+other-readable, F<t/op/filetest.t> will fail.  This is a test bug, not a
+bug in perl's behavior.
+
+=item *
+
+Configuring with a recent gcc and link-time-optimization, such as
+C<Configure -Doptimize='-O2 -flto'> fails
+because the optimizer optimizes away some of Configure's tests.  A
+workaround is to omit the C<-flto> flag when running Configure, but add
+it back in while actually building, something like
+
+    sh Configure -Doptimize=-O2                                             
+    make OPTIMIZE='-O2 -flto'                                               
+
+=item *
+
+The following CPAN modules have test failures with perl 5.16.  Patches have
+been submitted for all of these, so hopefully there will be new releases
+soon:
+
+=over
+
+=item *
+
+L<Date::Pcalc> version 6.1
+
+=item *
+
+L<Module::CPANTS::Analyse> version 0.85
+
+This fails due to problems in L<Module::Find> 0.10 and L<File::MMagic>
+1.27.
+
+=item *
+
+L<PerlIO::Util> version 0.72
+
+=back
+
+=back
+
+=head1 Acknowledgements
+
+Perl 5.16.0 represents approximately 12 months of development since Perl
+5.14.0 and contains approximately 590,000 lines of changes across 2,500
+files from 139 authors.
+
+Perl continues to flourish into its third decade thanks to a vibrant
+community of users and developers.  The following people are known to
+have contributed the improvements that became Perl 5.16.0:
+
+Aaron Crane, Abhijit Menon-Sen, Abigail, Alan Haggai Alavi, Alberto
+Simões, Alexandr Ciornii, Andreas König, Andy Dougherty, Aristotle
+Pagaltzis, Bo Johansson, Bo Lindbergh, Breno G. de Oliveira, brian d
+foy, Brian Fraser, Brian Greenfield, Carl Hayter, Chas. Owens,
+Chia-liang Kao, Chip Salzenberg, Chris 'BinGOs' Williams, Christian
+Hansen, Christopher J. Madsen, chromatic, Claes Jacobsson, Claudio
+Ramirez, Craig A. Berry, Damian Conway, Daniel Kahn Gillmor, Darin
+McBride, Dave Rolsky, David Cantrell, David Golden, David Leadbeater,
+David Mitchell, Dee Newcum, Dennis Kaarsemaker, Dominic Hargreaves,
+Douglas Christopher Wilson, Eric Brine, Father Chrysostomos, Florian
+Ragwitz, Frederic Briere, George Greer, Gerard Goossen, Gisle Aas,
+H.Merijn Brand, Hojung Youn, Ian Goodacre, James E Keenan, Jan Dubois,
+Jerry D. Hedden, Jesse Luehrs, Jesse Vincent, Jilles Tjoelker, Jim
+Cromie, Jim Meyering, Joel Berger, Johan Vromans, Johannes Plunien, John
+Hawkinson, John P. Linderman, John Peacock, Joshua ben Jore, Juerd
+Waalboer, Karl Williamson, Karthik Rajagopalan, Keith Thompson, Kevin J.
+Woolley, Kevin Ryde, Laurent Dami, Leo Lapworth, Leon Brocard, Leon
+Timmermans, Louis Strous, Lukas Mai, Marc Green, Marcel Grünauer, Mark
+A.  Stratman, Mark Dootson, Mark Jason Dominus, Martin Hasch, Matthew
+Horsfall, Max Maischein, Michael G Schwern, Michael Witten, Mike
+Sheldrake, Moritz Lenz, Nicholas Clark, Niko Tyni, Nuno Carvalho, Pau
+Amma, Paul Evans, Paul Green, Paul Johnson, Perlover, Peter John Acklam,
+Peter Martini, Peter Scott, Phil Monsen, Pino Toscano, Rafael
+Garcia-Suarez, Rainer Tammer, Reini Urban, Ricardo Signes, Robin Barker,
+Rodolfo Carvalho, Salvador Fandiño, Sam Kimbrel, Samuel Thibault, Shawn
+M Moore, Shigeya Suzuki, Shirakata Kentaro, Shlomi Fish, Sisyphus,
+Slaven Rezic, Spiros Denaxas, Steffen Müller, Steffen Schwigon, Stephen
+Bennett, Stephen Oberholtzer, Stevan Little, Steve Hay, Steve Peters,
+Thomas Sibley, Thorsten Glaser, Timothe Litt, Todd Rinaldo, Tom
+Christiansen, Tom Hukins, Tony Cook, Vadim Konovalov, Vincent Pit,
+Vladimir Timofeev, Walt Mankowski, Yves Orton, Zefram, Zsbán Ambrus,
+Ævar Arnfjörð Bjarmason.
+
+The list above is almost certainly incomplete as it is automatically
+generated from version control history.  In particular, it does not
+include the names of the (very much appreciated) contributors who
+reported issues to the Perl bug tracker.
+
+Many of the changes included in this version originated in the CPAN
+modules included in Perl's core.  We're grateful to the entire CPAN
+community for helping Perl to flourish.
+
+For a more complete list of all of Perl's historical contributors,
+please see the F<AUTHORS> file in the Perl source distribution.
+
+=head1 Reporting Bugs
+
+If you find what you think is a bug, you might check the articles
+recently posted to the comp.lang.perl.misc newsgroup and the perl
+bug database at L<http://rt.perl.org/perlbug/>.  There may also be
+information at L<http://www.perl.org/>, the Perl Home Page.
+
+If you believe you have an unreported bug, please run the L<perlbug>
+program included with your release.  Be sure to trim your bug down
+to a tiny but sufficient test case.  Your bug report, along with the
+output of C<perl -V>, will be sent off to perlbug@perl.org to be
+analysed by the Perl porting team.
+
+If the bug you are reporting has security implications, which make it
+inappropriate to send to a publicly archived mailing list, then please
+send it to perl5-security-report@perl.org.  This points to a closed
+subscription unarchived mailing list, which includes all core
+committers, who will be able to help assess the impact of issues, figure
+out a resolution, and help co-ordinate the release of patches to
+mitigate or fix the problem across all platforms on which Perl is
+supported.  Please use this address only for security issues in the Perl
+core, not for modules independently distributed on CPAN.
+
+=head1 SEE ALSO
+
+The F<Changes> file for an explanation of how to view exhaustive details
+on what changed.
+
+The F<INSTALL> file for how to build Perl.
+
+The F<README> file for general stuff.
+
+The F<Artistic> and F<Copying> files for copyright information.
+
+=cut
diff --git a/lib/5.24.1/pod/perl5161delta.pod b/lib/5.24.1/pod/perl5161delta.pod
new file mode 100644
index 00000000..406e1cc3
--- /dev/null
+++ b/lib/5.24.1/pod/perl5161delta.pod
@@ -0,0 +1,198 @@
+=encoding utf8
+
+=head1 NAME
+
+perl5161delta - what is new for perl v5.16.1
+
+=head1 DESCRIPTION
+
+This document describes differences between the 5.16.0 release and
+the 5.16.1 release.
+
+If you are upgrading from an earlier release such as 5.14.0, first read
+L<perl5160delta>, which describes differences between 5.14.0 and
+5.16.0.
+
+=head1 Security
+
+=head2 an off-by-two error in Scalar-List-Util has been fixed
+
+The bugfix was in Scalar-List-Util 1.23_04, and perl 5.16.1 includes
+Scalar-List-Util 1.25.
+
+=head1 Incompatible Changes
+
+There are no changes intentionally incompatible with 5.16.0 If any
+exist, they are bugs, and we request that you submit a report.  See
+L</Reporting Bugs> below.
+
+=head1 Modules and Pragmata
+
+=head2 Updated Modules and Pragmata
+
+=over 4
+
+=item *
+
+L<Scalar::Util> and L<List::Util> have been upgraded from version 1.23 to
+version 1.25.
+
+=item *
+
+L<B::Deparse> has been updated from version 1.14 to 1.14_01.  An
+"uninitialized" warning emitted by B::Deparse has been squashed
+[perl #113464].
+
+=back
+
+=head1 Configuration and Compilation
+
+=over
+
+=item *
+
+Building perl with some Windows compilers used to fail due to a problem
+with miniperl's C<glob> operator (which uses the C<perlglob> program)
+deleting the PATH environment variable [perl #113798].
+
+=back
+
+=head1 Platform Support
+
+=head2 Platform-Specific Notes
+
+=over 4
+
+=item VMS
+
+All C header files from the top-level directory of the distribution are now
+installed on VMS, providing consistency with a long-standing practice on other
+platforms. Previously only a subset were installed, which broke non-core extension
+builds for extensions that depended on the missing include files.
+
+=back
+
+=head1 Selected Bug Fixes
+
+=over 4
+
+=item *
+
+A regression introduced in Perl v5.16.0 involving
+C<tr/I<SEARCHLIST>/I<REPLACEMENTLIST>/> has been fixed.  Only the first
+instance is supposed to be meaningful if a character appears more than
+once in C<I<SEARCHLIST>>.  Under some circumstances, the final instance
+was overriding all earlier ones.  [perl #113584]
+
+=item *
+
+C<B::COP::stashlen> has been added.   This provides access to an internal
+field added in perl 5.16 under threaded builds.  It was broken at the last
+minute before 5.16 was released [perl #113034].
+
+=item *
+
+The L<re> pragma will no longer clobber C<$_>. [perl #113750]
+
+=item *
+
+Unicode 6.1 published an incorrect alias for one of the
+Canonical_Combining_Class property's values (which range between 0 and
+254).  The alias C<CCC133> should have been C<CCC132>.  Perl now
+overrides the data file furnished by Unicode to give the correct value.
+
+=item *
+
+Duplicating scalar filehandles works again.  [perl #113764]
+
+=item *
+
+Under threaded perls, a runtime code block in a regular expression could
+corrupt the package name stored in the op tree, resulting in bad reads
+in C<caller>, and possibly crashes [perl #113060].
+
+=item *
+
+For efficiency's sake, many operators and built-in functions return the
+same scalar each time.  Lvalue subroutines and subroutines in the CORE::
+namespace were allowing this implementation detail to leak through.
+C<print &CORE::uc("a"), &CORE::uc("b")> used to print "BB".  The same thing
+would happen with an lvalue subroutine returning the return value of C<uc>.
+Now the value is copied in such cases [perl #113044].
+
+=item *
+
+C<__SUB__> now works in special blocks (C<BEGIN>, C<END>, etc.).
+
+=item *
+
+Formats that reference lexical variables from outside no longer result
+in crashes.
+
+=back
+
+=head1 Known Problems
+
+There are no new known problems, but consult L<perl5160delta/Known
+Problems> to see those identified in the 5.16.0 release.
+
+=head1 Acknowledgements
+
+Perl 5.16.1 represents approximately 2 months of development since Perl
+5.16.0 and contains approximately 14,000 lines of changes across 96
+files from 8 authors.
+
+Perl continues to flourish into its third decade thanks to a vibrant
+community of users and developers. The following people are known to
+have contributed the improvements that became Perl 5.16.1:
+
+Chris 'BinGOs' Williams, Craig A. Berry, Father Chrysostomos, Karl
+Williamson, Paul Johnson, Reini Urban, Ricardo Signes, Tony Cook.
+
+The list above is almost certainly incomplete as it is automatically
+generated from version control history. In particular, it does not
+include the names of the (very much appreciated) contributors who
+reported issues to the Perl bug tracker.
+
+Many of the changes included in this version originated in the CPAN
+modules included in Perl's core. We're grateful to the entire CPAN
+community for helping Perl to flourish.
+
+For a more complete list of all of Perl's historical contributors,
+please see the F<AUTHORS> file in the Perl source distribution.
+
+=head1 Reporting Bugs
+
+If you find what you think is a bug, you might check the articles
+recently posted to the comp.lang.perl.misc newsgroup and the perl
+bug database at http://rt.perl.org/perlbug/ .  There may also be
+information at http://www.perl.org/ , the Perl Home Page.
+
+If you believe you have an unreported bug, please run the L<perlbug>
+program included with your release.  Be sure to trim your bug down
+to a tiny but sufficient test case.  Your bug report, along with the
+output of C<perl -V>, will be sent off to perlbug@perl.org to be
+analysed by the Perl porting team.
+
+If the bug you are reporting has security implications, which make it
+inappropriate to send to a publicly archived mailing list, then please
+send it to perl5-security-report@perl.org. This points to a closed
+subscription unarchived mailing list, which includes all the core
+committers, who will be able to help assess the impact of issues, figure
+out a resolution, and help co-ordinate the release of patches to
+mitigate or fix the problem across all platforms on which Perl is
+supported. Please only use this address for security issues in the Perl
+core, not for modules independently distributed on CPAN.
+
+=head1 SEE ALSO
+
+The F<Changes> file for an explanation of how to view exhaustive details
+on what changed.
+
+The F<INSTALL> file for how to build Perl.
+
+The F<README> file for general stuff.
+
+The F<Artistic> and F<Copying> files for copyright information.
+
+=cut
diff --git a/lib/5.24.1/pod/perl5162delta.pod b/lib/5.24.1/pod/perl5162delta.pod
new file mode 100644
index 00000000..f87826f3
--- /dev/null
+++ b/lib/5.24.1/pod/perl5162delta.pod
@@ -0,0 +1,125 @@
+=encoding utf8
+
+=head1 NAME
+
+perl5162delta - what is new for perl v5.16.2
+
+=head1 DESCRIPTION
+
+This document describes differences between the 5.16.1 release and
+the 5.16.2 release.
+
+If you are upgrading from an earlier release such as 5.16.0, first read
+L<perl5161delta>, which describes differences between 5.16.0 and
+5.16.1.
+
+=head1 Incompatible Changes
+
+There are no changes intentionally incompatible with 5.16.0
+If any exist, they are bugs, and we request that you submit a
+report.  See L</Reporting Bugs> below.
+
+=head1 Modules and Pragmata
+
+=head2 Updated Modules and Pragmata
+
+=over 4
+
+=item *
+
+L<Module::CoreList> has been upgraded from version 2.70 to version 2.76.
+
+=back
+
+=head1 Configuration and Compilation
+
+=over 4
+
+=item * configuration should no longer be confused by ls colorization
+
+=back
+
+=head1 Platform Support
+
+=head2 Platform-Specific Notes
+
+=over 4
+
+=item AIX
+
+Configure now always adds -qlanglvl=extc99 to the CC flags on AIX when
+using xlC.  This will make it easier to compile a number of XS-based modules
+that assume C99 [perl #113778].
+
+=back
+
+=head1 Selected Bug Fixes
+
+=over 4
+
+=item * fix /\h/ equivalence with /[\h]/
+
+see [perl #114220]
+
+=back
+
+=head1 Known Problems
+
+There are no new known problems.
+
+=head1 Acknowledgements
+
+Perl 5.16.2 represents approximately 2 months of development since Perl
+5.16.1 and contains approximately 740 lines of changes across 20 files
+from 9 authors.
+
+Perl continues to flourish into its third decade thanks to a vibrant
+community of users and developers. The following people are known to
+have contributed the improvements that became Perl 5.16.2:
+
+Andy Dougherty, Craig A. Berry, Darin McBride, Dominic Hargreaves, Karen
+Etheridge, Karl Williamson, Peter Martini, Ricardo Signes, Tony Cook.
+
+The list above is almost certainly incomplete as it is automatically
+generated from version control history. In particular, it does not
+include the names of the (very much appreciated) contributors who
+reported issues to the Perl bug tracker.
+
+For a more complete list of all of Perl's historical contributors,
+please see the F<AUTHORS> file in the Perl source distribution.
+
+=head1 Reporting Bugs
+
+If you find what you think is a bug, you might check the articles
+recently posted to the comp.lang.perl.misc newsgroup and the perl
+bug database at http://rt.perl.org/perlbug/ .  There may also be
+information at http://www.perl.org/ , the Perl Home Page.
+
+If you believe you have an unreported bug, please run the L<perlbug>
+program included with your release.  Be sure to trim your bug down
+to a tiny but sufficient test case.  Your bug report, along with the
+output of C<perl -V>, will be sent off to perlbug@perl.org to be
+analysed by the Perl porting team.
+
+If the bug you are reporting has security implications, which make it
+inappropriate to send to a publicly archived mailing list, then please
+send it to perl5-security-report@perl.org. This points to a closed
+subscription unarchived mailing list, which includes all the core
+committers, who will be able to help assess the impact of issues, figure
+out a resolution, and help co-ordinate the release of patches to
+mitigate or fix the problem across all platforms on which Perl is
+supported. Please only use this address for security issues in the Perl
+core, not for modules independently distributed on CPAN.
+
+=head1 SEE ALSO
+
+The F<Changes> file for an explanation of how to view exhaustive details
+on what changed.
+
+The F<INSTALL> file for how to build Perl.
+
+The F<README> file for general stuff.
+
+The F<Artistic> and F<Copying> files for copyright information.
+
+=cut
diff --git a/lib/5.24.1/pod/perl5163delta.pod b/lib/5.24.1/pod/perl5163delta.pod
new file mode 100644
index 00000000..c97f1548
--- /dev/null
+++ b/lib/5.24.1/pod/perl5163delta.pod
@@ -0,0 +1,133 @@
+=encoding utf8
+
+=head1 NAME
+
+perl5163delta - what is new for perl v5.16.3
+
+=head1 DESCRIPTION
+
+This document describes differences between the 5.16.2 release and
+the 5.16.3 release.
+
+If you are upgrading from an earlier release such as 5.16.1, first read
+L<perl5162delta>, which describes differences between 5.16.1 and
+5.16.2.
+
+=head1 Core Enhancements
+
+No changes since 5.16.0.
+
+=head1 Security
+
+This release contains one major and a number of minor security fixes.
+These latter are included mainly to allow the test suite to pass cleanly
+with the clang compiler's address sanitizer facility.
+
+=head2 CVE-2013-1667: memory exhaustion with arbitrary hash keys
+
+With a carefully crafted set of hash keys (for example arguments on a
+URL), it is possible to cause a hash to consume a large amount of memory
+and CPU, and thus possibly to achieve a Denial-of-Service.
+
+This problem has been fixed.
+
+=head2 wrap-around with IO on long strings
+
+Reading or writing strings greater than 2**31 bytes in size could segfault
+due to integer wraparound.
+
+This problem has been fixed.
+
+=head2 memory leak in Encode
+
+The UTF-8 encoding implementation in Encode.xs had a memory leak which has been
+fixed.
+
+=head1 Incompatible Changes
+
+There are no changes intentionally incompatible with 5.16.0. If any
+exist, they are bugs and reports are welcome.
+
+=head1 Deprecations
+
+There have been no deprecations since 5.16.0.
+
+=head1 Modules and Pragmata
+
+=head2 Updated Modules and Pragmata
+
+=over 4
+
+=item *
+
+L<Encode> has been upgraded from version 2.44 to version 2.44_01.
+
+=item *
+
+L<Module::CoreList> has been upgraded from version 2.76 to version 2.76_02.
+
+=item *
+
+L<XS::APItest> has been upgraded from version 0.38 to version 0.39.
+
+=back
+
+=head1 Known Problems
+
+None.
+
+=head1 Acknowledgements
+
+Perl 5.16.3 represents approximately 4 months of development since Perl 5.16.2
+and contains approximately 870 lines of changes across 39 files from 7 authors.
+
+Perl continues to flourish into its third decade thanks to a vibrant community
+of users and developers. The following people are known to have contributed the
+improvements that became Perl 5.16.3:
+
+Andy Dougherty, Chris 'BinGOs' Williams, Dave Rolsky, David Mitchell, Michael
+Schroeder, Ricardo Signes, Yves Orton.
+
+The list above is almost certainly incomplete as it is automatically generated
+from version control history. In particular, it does not include the names of
+the (very much appreciated) contributors who reported issues to the Perl bug
+tracker.
+
+For a more complete list of all of Perl's historical contributors, please see
+the F<AUTHORS> file in the Perl source distribution.
+
+=head1 Reporting Bugs
+
+If you find what you think is a bug, you might check the articles
+recently posted to the comp.lang.perl.misc newsgroup and the perl
+bug database at http://rt.perl.org/perlbug/ .  There may also be
+information at http://www.perl.org/ , the Perl Home Page.
+
+If you believe you have an unreported bug, please run the L<perlbug>
+program included with your release.  Be sure to trim your bug down
+to a tiny but sufficient test case.  Your bug report, along with the
+output of C<perl -V>, will be sent off to perlbug@perl.org to be
+analysed by the Perl porting team.
+
+If the bug you are reporting has security implications, which make it
+inappropriate to send to a publicly archived mailing list, then please
+send it to perl5-security-report@perl.org. This points to a closed
+subscription unarchived mailing list, which includes all the core
+committers, who will be able to help assess the impact of issues, figure
+out a resolution, and help co-ordinate the release of patches to
+mitigate or fix the problem across all platforms on which Perl is
+supported. Please only use this address for security issues in the Perl
+core, not for modules independently distributed on CPAN.
+
+=head1 SEE ALSO
+
+The F<Changes> file for an explanation of how to view exhaustive details
+on what changed.
+
+The F<INSTALL> file for how to build Perl.
+
+The F<README> file for general stuff.
+
+The F<Artistic> and F<Copying> files for copyright information.
+
+=cut
diff --git a/lib/5.24.1/pod/perl5180delta.pod b/lib/5.24.1/pod/perl5180delta.pod
new file mode 100644
index 00000000..a5a3cae2
--- /dev/null
+++ b/lib/5.24.1/pod/perl5180delta.pod
@@ -0,0 +1,3785 @@
+=encoding utf8
+
+=head1 NAME
+
+perl5180delta - what is new for perl v5.18.0
+
+=head1 DESCRIPTION
+
+This document describes differences between the v5.16.0 release and the v5.18.0
+release.
+
+If you are upgrading from an earlier release such as v5.14.0, first read
+L<perl5160delta>, which describes differences between v5.14.0 and v5.16.0.
+
+=head1 Core Enhancements
+
+=head2 New mechanism for experimental features
+
+Newly-added experimental features will now require this incantation:
+
+    no warnings "experimental::feature_name";
+    use feature "feature_name";  # would warn without the prev line
+
+There is a new warnings category, called "experimental", containing
+warnings that the L<feature> pragma emits when enabling experimental
+features.
+
+Newly-added experimental features will also be given special warning IDs,
+which consist of "experimental::" followed by the name of the feature.  (The
+plan is to extend this mechanism eventually to all warnings, to allow them
+to be enabled or disabled individually, and not just by category.)
+
+By saying
+
+    no warnings "experimental::feature_name";
+
+you are taking responsibility for any breakage that future changes to, or
+removal of, the feature may cause.
+
+Since some features (like C<~~> or C<my $_>) now emit experimental warnings,
+and you may want to disable them in code that is also run on perls that do not
+recognize these warning categories, consider using the C<if> pragma like this:
+
+    no if $] >= 5.018, warnings => "experimental::feature_name";
+
+Existing experimental features may begin emitting these warnings, too.  Please
+consult L<perlexperiment> for information on which features are considered
+experimental.
+
+=head2 Hash overhaul
+
+Changes to the implementation of hashes in perl v5.18.0 will be one of the most
+visible changes to the behavior of existing code.
+
+By default, two distinct hash variables with identical keys and values may now
+provide their contents in a different order where it was previously identical.
+
+When encountering these changes, the key to cleaning up from them is to accept
+that B<hashes are unordered collections> and to act accordingly.
+
+=head3 Hash randomization
+
+The seed used by Perl's hash function is now random.  This means that the
+order which keys/values will be returned from functions like C<keys()>,
+C<values()>, and C<each()> will differ from run to run.
+
+This change was introduced to make Perl's hashes more robust to algorithmic
+complexity attacks, and also because we discovered that it exposes hash
+ordering dependency bugs and makes them easier to track down.
+
+Toolchain maintainers might want to invest in additional infrastructure to
+test for things like this.  Running tests several times in a row and then
+comparing results will make it easier to spot hash order dependencies in
+code.  Authors are strongly encouraged not to expose the key order of
+Perl's hashes to insecure audiences.
+
+Further, every hash has its own iteration order, which should make it much
+more difficult to determine what the current hash seed is.
+
+=head3 New hash functions
+
+Perl v5.18 includes support for multiple hash functions, and changed
+the default (to ONE_AT_A_TIME_HARD), you can choose a different
+algorithm by defining a symbol at compile time.  For a current list,
+consult the F<INSTALL> document.  Note that as of Perl v5.18 we can
+only recommend use of the default or SIPHASH. All the others are
+known to have security issues and are for research purposes only.
+
+=head3 PERL_HASH_SEED environment variable now takes a hex value
+
+C<PERL_HASH_SEED> no longer accepts an integer as a parameter;
+instead the value is expected to be a binary value encoded in a hex
+string, such as "0xf5867c55039dc724".  This is to make the
+infrastructure support hash seeds of arbitrary lengths, which might
+exceed that of an integer.  (SipHash uses a 16 byte seed.)
+
+=head3 PERL_PERTURB_KEYS environment variable added
+
+The C<PERL_PERTURB_KEYS> environment variable allows one to control the level of
+randomization applied to C<keys> and friends.
+
+When C<PERL_PERTURB_KEYS> is 0, perl will not randomize the key order at all. The
+chance that C<keys> changes due to an insert will be the same as in previous
+perls, basically only when the bucket size is changed.
+
+When C<PERL_PERTURB_KEYS> is 1, perl will randomize keys in a non-repeatable
+way. The chance that C<keys> changes due to an insert will be very high.  This
+is the most secure and default mode.
+
+When C<PERL_PERTURB_KEYS> is 2, perl will randomize keys in a repeatable way.
+Repeated runs of the same program should produce the same output every time.
+
+C<PERL_HASH_SEED> implies a non-default C<PERL_PERTURB_KEYS> setting. Setting
+C<PERL_HASH_SEED=0> (exactly one 0) implies C<PERL_PERTURB_KEYS=0> (hash key
+randomization disabled); setting C<PERL_HASH_SEED> to any other value implies
+C<PERL_PERTURB_KEYS=2> (deterministic and repeatable hash key randomization).
+Specifying C<PERL_PERTURB_KEYS> explicitly to a different level overrides this
+behavior.
+
+=head3 Hash::Util::hash_seed() now returns a string
+
+Hash::Util::hash_seed() now returns a string instead of an integer.  This
+is to make the infrastructure support hash seeds of arbitrary lengths
+which might exceed that of an integer.  (SipHash uses a 16 byte seed.)
+
+=head3 Output of PERL_HASH_SEED_DEBUG has been changed
+
+The environment variable PERL_HASH_SEED_DEBUG now makes perl show both the
+hash function perl was built with, I<and> the seed, in hex, in use for that
+process. Code parsing this output, should it exist, must change to accommodate
+the new format.  Example of the new format:
+
+    $ PERL_HASH_SEED_DEBUG=1 ./perl -e1
+    HASH_FUNCTION = MURMUR3 HASH_SEED = 0x1476bb9f
+
+=head2 Upgrade to Unicode 6.2
+
+Perl now supports Unicode 6.2.  A list of changes from Unicode
+6.1 is at L<http://www.unicode.org/versions/Unicode6.2.0>.
+
+=head2 Character name aliases may now include non-Latin1-range characters
+
+It is possible to define your own names for characters for use in
+C<\N{...}>, C<charnames::vianame()>, etc.  These names can now be
+comprised of characters from the whole Unicode range.  This allows for
+names to be in your native language, and not just English.  Certain
+restrictions apply to the characters that may be used (you can't define
+a name that has punctuation in it, for example).  See L<charnames/CUSTOM
+ALIASES>.
+
+=head2 New DTrace probes
+
+The following new DTrace probes have been added:
+
+=over 4
+
+=item *
+
+C<op-entry>
+
+=item *
+
+C<loading-file>
+
+=item *
+
+C<loaded-file>
+
+=back
+
+=head2 C<${^LAST_FH}>
+
+This new variable provides access to the filehandle that was last read.
+This is the handle used by C<$.> and by C<tell> and C<eof> without
+arguments.
+
+=head2 Regular Expression Set Operations
+
+This is an B<experimental> feature to allow matching against the union,
+intersection, etc., of sets of code points, similar to
+L<Unicode::Regex::Set>.  It can also be used to extend C</x> processing
+to [bracketed] character classes, and as a replacement of user-defined
+properties, allowing more complex expressions than they do.  See
+L<perlrecharclass/Extended Bracketed Character Classes>.
+
+=head2 Lexical subroutines
+
+This new feature is still considered B<experimental>.  To enable it:
+
+    use 5.018;
+    no warnings "experimental::lexical_subs";
+    use feature "lexical_subs";
+
+You can now declare subroutines with C<state sub foo>, C<my sub foo>, and
+C<our sub foo>.  (C<state sub> requires that the "state" feature be
+enabled, unless you write it as C<CORE::state sub foo>.)
+
+C<state sub> creates a subroutine visible within the lexical scope in which
+it is declared.  The subroutine is shared between calls to the outer sub.
+
+C<my sub> declares a lexical subroutine that is created each time the
+enclosing block is entered.  C<state sub> is generally slightly faster than
+C<my sub>.
+
+C<our sub> declares a lexical alias to the package subroutine of the same
+name.
+
+For more information, see L<perlsub/Lexical Subroutines>.
+
+=head2 Computed Labels
+
+The loop controls C<next>, C<last> and C<redo>, and the special C<dump>
+operator, now allow arbitrary expressions to be used to compute labels at run
+time.  Previously, any argument that was not a constant was treated as the
+empty string.
+
+=head2 More CORE:: subs
+
+Several more built-in functions have been added as subroutines to the
+CORE:: namespace - namely, those non-overridable keywords that can be
+implemented without custom parsers: C<defined>, C<delete>, C<exists>,
+C<glob>, C<pos>, C<prototype>, C<scalar>, C<split>, C<study>, and C<undef>.
+
+As some of these have prototypes, C<prototype('CORE::...')> has been
+changed to not make a distinction between overridable and non-overridable
+keywords.  This is to make C<prototype('CORE::pos')> consistent with
+C<prototype(&CORE::pos)>.
+
+=head2 C<kill> with negative signal names
+
+C<kill> has always allowed a negative signal number, which kills the
+process group instead of a single process.  It has also allowed signal
+names.  But it did not behave consistently, because negative signal names
+were treated as 0.  Now negative signals names like C<-INT> are supported
+and treated the same way as -2 [perl #112990].
+
+=head1 Security
+
+=head2 See also: hash overhaul
+
+Some of the changes in the L<hash overhaul|/"Hash overhaul"> were made to
+enhance security.  Please read that section.
+
+=head2 C<Storable> security warning in documentation
+
+The documentation for C<Storable> now includes a section which warns readers
+of the danger of accepting Storable documents from untrusted sources. The
+short version is that deserializing certain types of data can lead to loading
+modules and other code execution. This is documented behavior and wanted
+behavior, but this opens an attack vector for malicious entities.
+
+=head2 C<Locale::Maketext> allowed code injection via a malicious template
+
+If users could provide a translation string to Locale::Maketext, this could be
+used to invoke arbitrary Perl subroutines available in the current process.
+
+This has been fixed, but it is still possible to invoke any method provided by
+C<Locale::Maketext> itself or a subclass that you are using. One of these
+methods in turn will invoke the Perl core's C<sprintf> subroutine.
+
+In summary, allowing users to provide translation strings without auditing
+them is a bad idea.
+
+This vulnerability is documented in CVE-2012-6329.
+
+=head2 Avoid calling memset with a negative count
+
+Poorly written perl code that allows an attacker to specify the count to perl's
+C<x> string repeat operator can already cause a memory exhaustion
+denial-of-service attack. A flaw in versions of perl before v5.15.5 can escalate
+that into a heap buffer overrun; coupled with versions of glibc before 2.16, it
+possibly allows the execution of arbitrary code.
+
+The flaw addressed to this commit has been assigned identifier CVE-2012-5195
+and was researched by Tim Brown.
+
+=head1 Incompatible Changes
+
+=head2 See also: hash overhaul
+
+Some of the changes in the L<hash overhaul|/"Hash overhaul"> are not fully
+compatible with previous versions of perl.  Please read that section.
+
+=head2 An unknown character name in C<\N{...}> is now a syntax error
+
+Previously, it warned, and the Unicode REPLACEMENT CHARACTER was
+substituted.  Unicode now recommends that this situation be a syntax
+error.  Also, the previous behavior led to some confusing warnings and
+behaviors, and since the REPLACEMENT CHARACTER has no use other than as
+a stand-in for some unknown character, any code that has this problem is
+buggy.
+
+=head2 Formerly deprecated characters in C<\N{}> character name aliases are now errors.
+
+Since v5.12.0, it has been deprecated to use certain characters in
+user-defined C<\N{...}> character names.  These now cause a syntax
+error.  For example, it is now an error to begin a name with a digit,
+such as in
+
+ my $undraftable = "\N{4F}";    # Syntax error!
+
+or to have commas anywhere in the name.  See L<charnames/CUSTOM ALIASES>.
+
+=head2 C<\N{BELL}> now refers to U+1F514 instead of U+0007
+
+Unicode 6.0 reused the name "BELL" for a different code point than it
+traditionally had meant.  Since Perl v5.14, use of this name still
+referred to U+0007, but would raise a deprecation warning.  Now, "BELL"
+refers to U+1F514, and the name for U+0007 is "ALERT".  All the
+functions in L<charnames> have been correspondingly updated.
+
+=head2 New Restrictions in Multi-Character Case-Insensitive Matching in Regular Expression Bracketed Character Classes
+
+Unicode has now withdrawn their previous recommendation for regular
+expressions to automatically handle cases where a single character can
+match multiple characters case-insensitively, for example, the letter
+LATIN SMALL LETTER SHARP S and the sequence C<ss>.  This is because
+it turns out to be impracticable to do this correctly in all
+circumstances.  Because Perl has tried to do this as best it can, it
+will continue to do so.  (We are considering an option to turn it off.)
+However, a new restriction is being added on such matches when they
+occur in [bracketed] character classes.  People were specifying
+things such as C</[\0-\xff]/i>, and being surprised that it matches the
+two character sequence C<ss> (since LATIN SMALL LETTER SHARP S occurs in
+this range).  This behavior is also inconsistent with using a
+property instead of a range:  C<\p{Block=Latin1}> also includes LATIN
+SMALL LETTER SHARP S, but C</[\p{Block=Latin1}]/i> does not match C<ss>.
+The new rule is that for there to be a multi-character case-insensitive
+match within a bracketed character class, the character must be
+explicitly listed, and not as an end point of a range.  This more
+closely obeys the Principle of Least Astonishment.  See
+L<perlrecharclass/Bracketed Character Classes>.  Note that a bug [perl
+#89774], now fixed as part of this change, prevented the previous
+behavior from working fully.
+
+=head2 Explicit rules for variable names and identifiers
+
+Due to an oversight, single character variable names in v5.16 were
+completely unrestricted.  This opened the door to several kinds of
+insanity.  As of v5.18, these now follow the rules of other identifiers,
+in addition to accepting characters that match the C<\p{POSIX_Punct}>
+property.
+
+There is no longer any difference in the parsing of identifiers
+specified by using braces versus without braces.  For instance, perl
+used to allow C<${foo:bar}> (with a single colon) but not C<$foo:bar>.
+Now that both are handled by a single code path, they are both treated
+the same way: both are forbidden.  Note that this change is about the
+range of permissible literal identifiers, not other expressions.
+
+=head2 Vertical tabs are now whitespace
+
+No one could recall why C<\s> didn't match C<\cK>, the vertical tab.
+Now it does.  Given the extreme rarity of that character, very little
+breakage is expected.  That said, here's what it means:
+
+C<\s> in a regex now matches a vertical tab in all circumstances.
+
+Literal vertical tabs in a regex literal are ignored when the C</x>
+modifier is used.
+
+Leading vertical tabs, alone or mixed with other whitespace, are now
+ignored when interpreting a string as a number.  For example:
+
+  $dec = " \cK \t 123";
+  $hex = " \cK \t 0xF";
+
+  say 0 + $dec;   # was 0 with warning, now 123
+  say int $dec;   # was 0, now 123
+  say oct $hex;   # was 0, now  15
+
+=head2 C</(?{})/> and C</(??{})/> have been heavily reworked
+
+The implementation of this feature has been almost completely rewritten.
+Although its main intent is to fix bugs, some behaviors, especially
+related to the scope of lexical variables, will have changed.  This is
+described more fully in the L</Selected Bug Fixes> section.
+
+=head2 Stricter parsing of substitution replacement
+
+It is no longer possible to abuse the way the parser parses C<s///e> like
+this:
+
+    %_=(_,"Just another ");
+    $_="Perl hacker,\n";
+    s//_}->{_/e;print
+
+=head2 C<given> now aliases the global C<$_>
+
+Instead of assigning to an implicit lexical C<$_>, C<given> now makes the
+global C<$_> an alias for its argument, just like C<foreach>.  However, it
+still uses lexical C<$_> if there is lexical C<$_> in scope (again, just like
+C<foreach>) [perl #114020].
+
+=head2 The smartmatch family of features are now experimental
+
+Smart match, added in v5.10.0 and significantly revised in v5.10.1, has been
+a regular point of complaint.  Although there are a number of ways in which
+it is useful, it has also proven problematic and confusing for both users and
+implementors of Perl.  There have been a number of proposals on how to best
+address the problem.  It is clear that smartmatch is almost certainly either
+going to change or go away in the future.  Relying on its current behavior
+is not recommended.
+
+Warnings will now be issued when the parser sees C<~~>, C<given>, or C<when>.
+To disable these warnings, you can add this line to the appropriate scope:
+
+  no if $] >= 5.018, warnings => "experimental::smartmatch";
+
+Consider, though, replacing the use of these features, as they may change
+behavior again before becoming stable.
+
+=head2 Lexical C<$_> is now experimental
+
+Since it was introduced in Perl v5.10, it has caused much confusion with no
+obvious solution:
+
+=over
+
+=item *
+
+Various modules (e.g., List::Util) expect callback routines to use the
+global C<$_>.  C<use List::Util 'first'; my $_; first { $_ == 1 } @list>
+does not work as one would expect.
+
+=item *
+
+A C<my $_> declaration earlier in the same file can cause confusing closure
+warnings.
+
+=item *
+
+The "_" subroutine prototype character allows called subroutines to access
+your lexical C<$_>, so it is not really private after all.
+
+=item *
+
+Nevertheless, subroutines with a "(@)" prototype and methods cannot access
+the caller's lexical C<$_>, unless they are written in XS.
+
+=item *
+
+But even XS routines cannot access a lexical C<$_> declared, not in the
+calling subroutine, but in an outer scope, iff that subroutine happened not
+to mention C<$_> or use any operators that default to C<$_>.
+
+=back
+
+It is our hope that lexical C<$_> can be rehabilitated, but this may
+cause changes in its behavior.  Please use it with caution until it
+becomes stable.
+
+=head2 readline() with C<$/ = \N> now reads N characters, not N bytes
+
+Previously, when reading from a stream with I/O layers such as
+C<encoding>, the readline() function, otherwise known as the C<< <> >>
+operator, would read I<N> bytes from the top-most layer. [perl #79960]
+
+Now, I<N> characters are read instead.
+
+There is no change in behaviour when reading from streams with no
+extra layers, since bytes map exactly to characters.
+
+=head2 Overridden C<glob> is now passed one argument
+
+C<glob> overrides used to be passed a magical undocumented second argument
+that identified the caller.  Nothing on CPAN was using this, and it got in
+the way of a bug fix, so it was removed.  If you really need to identify
+the caller, see L<Devel::Callsite> on CPAN.
+
+=head2 Here doc parsing
+
+The body of a here document inside a quote-like operator now always begins
+on the line after the "<<foo" marker.  Previously, it was documented to
+begin on the line following the containing quote-like operator, but that
+was only sometimes the case [perl #114040].
+
+=head2 Alphanumeric operators must now be separated from the closing
+delimiter of regular expressions
+
+You may no longer write something like:
+
+ m/a/and 1
+
+Instead you must write
+
+ m/a/ and 1
+
+with whitespace separating the operator from the closing delimiter of
+the regular expression.  Not having whitespace has resulted in a
+deprecation warning since Perl v5.14.0.
+
+=head2 qw(...) can no longer be used as parentheses
+
+C<qw> lists used to fool the parser into thinking they were always
+surrounded by parentheses.  This permitted some surprising constructions
+such as C<foreach $x qw(a b c) {...}>, which should really be written
+C<foreach $x (qw(a b c)) {...}>.  These would sometimes get the lexer into
+the wrong state, so they didn't fully work, and the similar C<foreach qw(a
+b c) {...}> that one might expect to be permitted never worked at all.
+
+This side effect of C<qw> has now been abolished.  It has been deprecated
+since Perl v5.13.11.  It is now necessary to use real parentheses
+everywhere that the grammar calls for them.
+
+=head2 Interaction of lexical and default warnings
+
+Turning on any lexical warnings used first to disable all default warnings
+if lexical warnings were not already enabled:
+
+    $*; # deprecation warning
+    use warnings "void";
+    $#; # void warning; no deprecation warning
+
+Now, the C<debugging>, C<deprecated>, C<glob>, C<inplace> and C<malloc> warnings
+categories are left on when turning on lexical warnings (unless they are
+turned off by C<no warnings>, of course).
+
+This may cause deprecation warnings to occur in code that used to be free
+of warnings.
+
+Those are the only categories consisting only of default warnings.  Default
+warnings in other categories are still disabled by C<< use warnings "category" >>,
+as we do not yet have the infrastructure for controlling
+individual warnings.
+
+=head2 C<state sub> and C<our sub>
+
+Due to an accident of history, C<state sub> and C<our sub> were equivalent
+to a plain C<sub>, so one could even create an anonymous sub with
+C<our sub { ... }>.  These are now disallowed outside of the "lexical_subs"
+feature.  Under the "lexical_subs" feature they have new meanings described
+in L<perlsub/Lexical Subroutines>.
+
+=head2 Defined values stored in environment are forced to byte strings
+
+A value stored in an environment variable has always been stringified when
+inherited by child processes.
+
+In this release, when assigning to C<%ENV>, values are immediately stringified,
+and converted to be only a byte string.
+
+First, it is forced to be a only a string.  Then if the string is utf8 and the
+equivalent of C<utf8::downgrade()> works, that result is used; otherwise, the
+equivalent of C<utf8::encode()> is used, and a warning is issued about wide
+characters (L</Diagnostics>).
+
+=head2 C<require> dies for unreadable files
+
+When C<require> encounters an unreadable file, it now dies.  It used to
+ignore the file and continue searching the directories in C<@INC>
+[perl #113422].
+
+=head2 C<gv_fetchmeth_*> and SUPER
+
+The various C<gv_fetchmeth_*> XS functions used to treat a package whose
+named ended with C<::SUPER> specially.  A method lookup on the C<Foo::SUPER>
+package would be treated as a C<SUPER> method lookup on the C<Foo> package.  This
+is no longer the case.  To do a C<SUPER> lookup, pass the C<Foo> stash and the
+C<GV_SUPER> flag.
+
+=head2 C<split>'s first argument is more consistently interpreted
+
+After some changes earlier in v5.17, C<split>'s behavior has been
+simplified: if the PATTERN argument evaluates to a string
+containing one space, it is treated the way that a I<literal> string
+containing one space once was.
+
+=head1 Deprecations
+
+=head2 Module removals
+
+The following modules will be removed from the core distribution in a future
+release, and will at that time need to be installed from CPAN. Distributions
+on CPAN which require these modules will need to list them as prerequisites.
+
+The core versions of these modules will now issue C<"deprecated">-category
+warnings to alert you to this fact. To silence these deprecation warnings,
+install the modules in question from CPAN.
+
+Note that these are (with rare exceptions) fine modules that you are encouraged
+to continue to use. Their disinclusion from core primarily hinges on their
+necessity to bootstrapping a fully functional, CPAN-capable Perl installation,
+not usually on concerns over their design.
+
+=over
+
+=item L<encoding>
+
+The use of this pragma is now strongly discouraged. It conflates the encoding
+of source text with the encoding of I/O data, reinterprets escape sequences in
+source text (a questionable choice), and introduces the UTF-8 bug to all runtime
+handling of character strings. It is broken as designed and beyond repair.
+
+For using non-ASCII literal characters in source text, please refer to L<utf8>.
+For dealing with textual I/O data, please refer to L<Encode> and L<open>.
+
+=item L<Archive::Extract>
+
+=item L<B::Lint>
+
+=item L<B::Lint::Debug>
+
+=item L<CPANPLUS> and all included C<CPANPLUS::*> modules
+
+=item L<Devel::InnerPackage>
+
+=item L<Log::Message>
+
+=item L<Log::Message::Config>
+
+=item L<Log::Message::Handlers>
+
+=item L<Log::Message::Item>
+
+=item L<Log::Message::Simple>
+
+=item L<Module::Pluggable>
+
+=item L<Module::Pluggable::Object>
+
+=item L<Object::Accessor>
+
+=item L<Pod::LaTeX>
+
+=item L<Term::UI>
+
+=item L<Term::UI::History>
+
+=back
+
+=head2 Deprecated Utilities
+
+The following utilities will be removed from the core distribution in a
+future release as their associated modules have been deprecated. They
+will remain available with the applicable CPAN distribution.
+
+=over
+
+=item L<cpanp>
+
+=item C<cpanp-run-perl>
+
+=item L<cpan2dist>
+
+These items are part of the C<CPANPLUS> distribution.
+
+=item L<pod2latex>
+
+This item is part of the C<Pod::LaTeX> distribution.
+
+=back
+
+=head2 PL_sv_objcount
+
+This interpreter-global variable used to track the total number of
+Perl objects in the interpreter. It is no longer maintained and will
+be removed altogether in Perl v5.20.
+
+=head2 Five additional characters should be escaped in patterns with C</x>
+
+When a regular expression pattern is compiled with C</x>, Perl treats 6
+characters as white space to ignore, such as SPACE and TAB.  However,
+Unicode recommends 11 characters be treated thusly.  We will conform
+with this in a future Perl version.  In the meantime, use of any of the
+missing characters will raise a deprecation warning, unless turned off.
+The five characters are:
+
+    U+0085 NEXT LINE
+    U+200E LEFT-TO-RIGHT MARK
+    U+200F RIGHT-TO-LEFT MARK
+    U+2028 LINE SEPARATOR
+    U+2029 PARAGRAPH SEPARATOR
+
+=head2 User-defined charnames with surprising whitespace
+
+A user-defined character name with trailing or multiple spaces in a row is
+likely a typo.  This now generates a warning when defined, on the assumption
+that uses of it will be unlikely to include the excess whitespace.
+
+=head2 Various XS-callable functions are now deprecated
+
+All the functions used to classify characters will be removed from a
+future version of Perl, and should not be used.  With participating C
+compilers (e.g., gcc), compiling any file that uses any of these will
+generate a warning.  These were not intended for public use; there are
+equivalent, faster, macros for most of them.
+
+See L<perlapi/Character classes>.  The complete list is:
+
+C<is_uni_alnum>, C<is_uni_alnumc>, C<is_uni_alnumc_lc>,
+C<is_uni_alnum_lc>, C<is_uni_alpha>, C<is_uni_alpha_lc>,
+C<is_uni_ascii>, C<is_uni_ascii_lc>, C<is_uni_blank>,
+C<is_uni_blank_lc>, C<is_uni_cntrl>, C<is_uni_cntrl_lc>,
+C<is_uni_digit>, C<is_uni_digit_lc>, C<is_uni_graph>,
+C<is_uni_graph_lc>, C<is_uni_idfirst>, C<is_uni_idfirst_lc>,
+C<is_uni_lower>, C<is_uni_lower_lc>, C<is_uni_print>,
+C<is_uni_print_lc>, C<is_uni_punct>, C<is_uni_punct_lc>,
+C<is_uni_space>, C<is_uni_space_lc>, C<is_uni_upper>,
+C<is_uni_upper_lc>, C<is_uni_xdigit>, C<is_uni_xdigit_lc>,
+C<is_utf8_alnum>, C<is_utf8_alnumc>, C<is_utf8_alpha>,
+C<is_utf8_ascii>, C<is_utf8_blank>, C<is_utf8_char>,
+C<is_utf8_cntrl>, C<is_utf8_digit>, C<is_utf8_graph>,
+C<is_utf8_idcont>, C<is_utf8_idfirst>, C<is_utf8_lower>,
+C<is_utf8_mark>, C<is_utf8_perl_space>, C<is_utf8_perl_word>,
+C<is_utf8_posix_digit>, C<is_utf8_print>, C<is_utf8_punct>,
+C<is_utf8_space>, C<is_utf8_upper>, C<is_utf8_xdigit>,
+C<is_utf8_xidcont>, C<is_utf8_xidfirst>.
+
+In addition these three functions that have never worked properly are
+deprecated:
+C<to_uni_lower_lc>, C<to_uni_title_lc>, and C<to_uni_upper_lc>.
+
+=head2 Certain rare uses of backslashes within regexes are now deprecated
+
+There are three pairs of characters that Perl recognizes as
+metacharacters in regular expression patterns: C<{}>, C<[]>, and C<()>.
+These can be used as well to delimit patterns, as in:
+
+  m{foo}
+  s(foo)(bar)
+
+Since they are metacharacters, they have special meaning to regular
+expression patterns, and it turns out that you can't turn off that
+special meaning by the normal means of preceding them with a backslash,
+if you use them, paired, within a pattern delimited by them.  For
+example, in
+
+  m{foo\{1,3\}}
+
+the backslashes do not change the behavior, and this matches
+S<C<"f o">> followed by one to three more occurrences of C<"o">.
+
+Usages like this, where they are interpreted as metacharacters, are
+exceedingly rare; we think there are none, for example, in all of CPAN.
+Hence, this deprecation should affect very little code.  It does give
+notice, however, that any such code needs to change, which will in turn
+allow us to change the behavior in future Perl versions so that the
+backslashes do have an effect, and without fear that we are silently
+breaking any existing code.
+
+=head2 Splitting the tokens C<(?> and C<(*> in regular expressions
+
+A deprecation warning is now raised if the C<(> and C<?> are separated
+by white space or comments in C<(?...)> regular expression constructs.
+Similarly, if the C<(> and C<*> are separated in C<(*VERB...)>
+constructs.
+
+=head2 Pre-PerlIO IO implementations
+
+In theory, you can currently build perl without PerlIO.  Instead, you'd use a
+wrapper around stdio or sfio.  In practice, this isn't very useful.  It's not
+well tested, and without any support for IO layers or (thus) Unicode, it's not
+much of a perl.  Building without PerlIO will most likely be removed in the
+next version of perl.
+
+PerlIO supports a C<stdio> layer if stdio use is desired.  Similarly a
+sfio layer could be produced in the future, if needed.
+
+=head1 Future Deprecations
+
+=over
+
+=item *
+
+Platforms without support infrastructure
+
+Both Windows CE and z/OS have been historically under-maintained, and are
+currently neither successfully building nor regularly being smoke tested.
+Efforts are underway to change this situation, but it should not be taken for
+granted that the platforms are safe and supported.  If they do not become
+buildable and regularly smoked, support for them may be actively removed in
+future releases.  If you have an interest in these platforms and you can lend
+your time, expertise, or hardware to help support these platforms, please let
+the perl development effort know by emailing C<perl5-porters@perl.org>.
+
+Some platforms that appear otherwise entirely dead are also on the short list
+for removal between now and v5.20.0:
+
+=over
+
+=item DG/UX
+
+=item NeXT
+
+=back
+
+We also think it likely that current versions of Perl will no longer
+build AmigaOS, DJGPP, NetWare (natively), OS/2 and Plan 9. If you
+are using Perl on such a platform and have an interest in ensuring
+Perl's future on them, please contact us.
+
+We believe that Perl has long been unable to build on mixed endian
+architectures (such as PDP-11s), and intend to remove any remaining
+support code. Similarly, code supporting the long umaintained GNU
+dld will be removed soon if no-one makes themselves known as an
+active user.
+
+=item *
+
+Swapping of $< and $>
+
+Perl has supported the idiom of swapping $< and $> (and likewise $( and
+$)) to temporarily drop permissions since 5.0, like this:
+
+    ($<, $>) = ($>, $<);
+
+However, this idiom modifies the real user/group id, which can have
+undesirable side-effects, is no longer useful on any platform perl
+supports and complicates the implementation of these variables and list
+assignment in general.
+
+As an alternative, assignment only to C<< $> >> is recommended:
+
+    local $> = $<;
+
+See also: L<Setuid Demystified|http://www.cs.berkeley.edu/~daw/papers/setuid-usenix02.pdf>.
+
+=item *
+
+C<microperl>, long broken and of unclear present purpose, will be removed.
+
+=item *
+
+Revamping C<< "\Q" >> semantics in double-quotish strings when combined with
+other escapes.
+
+There are several bugs and inconsistencies involving combinations
+of C<\Q> and escapes like C<\x>, C<\L>, etc., within a C<\Q...\E> pair.
+These need to be fixed, and doing so will necessarily change current
+behavior.  The changes have not yet been settled.
+
+=item *
+
+Use of C<$x>, where C<x> stands for any actual (non-printing) C0 control
+character will be disallowed in a future Perl version.  Use C<${x}>
+instead (where again C<x> stands for a control character),
+or better, C<$^A> , where C<^> is a caret (CIRCUMFLEX ACCENT),
+and C<A> stands for any of the characters listed at the end of
+L<perlebcdic/OPERATOR DIFFERENCES>.
+
+=back
+
+=head1 Performance Enhancements
+
+=over 4
+
+=item *
+
+Lists of lexical variable declarations (C<my($x, $y)>) are now optimised
+down to a single op and are hence faster than before.
+
+=item *
+
+A new C preprocessor define C<NO_TAINT_SUPPORT> was added that, if set,
+disables Perl's taint support altogether.  Using the -T or -t command
+line flags will cause a fatal error.  Beware that both core tests as
+well as many a CPAN distribution's tests will fail with this change.  On
+the upside, it provides a small performance benefit due to reduced
+branching.
+
+B<Do not enable this unless you know exactly what you are getting yourself
+into.>
+
+=item *
+
+C<pack> with constant arguments is now constant folded in most cases
+[perl #113470].
+
+=item *
+
+Speed up in regular expression matching against Unicode properties.  The
+largest gain is for C<\X>, the Unicode "extended grapheme cluster."  The
+gain for it is about 35% - 40%.  Bracketed character classes, e.g.,
+C<[0-9\x{100}]> containing code points above 255 are also now faster.
+
+=item *
+
+On platforms supporting it, several former macros are now implemented as static
+inline functions. This should speed things up slightly on non-GCC platforms.
+
+=item *
+
+The optimisation of hashes in boolean context has been extended to
+affect C<scalar(%hash)>, C<%hash ? ... : ...>, and C<sub { %hash || ... }>.
+
+=item *
+
+Filetest operators manage the stack in a fractionally more efficient manner.
+
+=item *
+
+Globs used in a numeric context are now numified directly in most cases,
+rather than being numified via stringification.
+
+=item *
+
+The C<x> repetition operator is now folded to a single constant at compile
+time if called in scalar context with constant operands and no parentheses
+around the left operand.
+
+=back
+
+=head1 Modules and Pragmata
+
+=head2 New Modules and Pragmata
+
+=over 4
+
+=item *
+
+L<Config::Perl::V> version 0.16 has been added as a dual-lifed module.
+It provides structured data retrieval of C<perl -V> output including
+information only known to the C<perl> binary and not available via L<Config>.
+
+=back
+
+=head2 Updated Modules and Pragmata
+
+For a complete list of updates, run:
+
+  $ corelist --diff 5.16.0 5.18.0
+
+You can substitute your favorite version in place of C<5.16.0>, too.
+
+=over
+
+=item *
+
+L<Archive::Extract> has been upgraded to 0.68.
+
+Work around an edge case on Linux with Busybox's unzip.
+
+=item *
+
+L<Archive::Tar> has been upgraded to 1.90.
+
+ptar now supports the -T option as well as dashless options
+[rt.cpan.org #75473], [rt.cpan.org #75475].
+
+Auto-encode filenames marked as UTF-8 [rt.cpan.org #75474].
+
+Don't use C<tell> on L<IO::Zlib> handles [rt.cpan.org #64339].
+
+Don't try to C<chown> on symlinks.
+
+=item *
+
+L<autodie> has been upgraded to 2.13.
+
+C<autodie> now plays nicely with the 'open' pragma.
+
+=item *
+
+L<B> has been upgraded to 1.42.
+
+The C<stashoff> method of COPs has been added.   This provides access to an
+internal field added in perl 5.16 under threaded builds [perl #113034].
+
+C<B::COP::stashpv> now supports UTF-8 package names and embedded NULs.
+
+All C<CVf_*> and C<GVf_*>
+and more SV-related flag values are now provided as constants in the C<B::>
+namespace and available for export.  The default export list has not changed.
+
+This makes the module work with the new pad API.
+
+=item *
+
+L<B::Concise> has been upgraded to 0.95.
+
+The C<-nobanner> option has been fixed, and C<format>s can now be dumped.
+When passed a sub name to dump, it will check also to see whether it
+is the name of a format.  If a sub and a format share the same name,
+it will dump both.
+
+This adds support for the new C<OpMAYBE_TRUEBOOL> and C<OPpTRUEBOOL> flags.
+
+=item *
+
+L<B::Debug> has been upgraded to 1.18.
+
+This adds support (experimentally) for C<B::PADLIST>, which was
+added in Perl 5.17.4.
+
+=item *
+
+L<B::Deparse> has been upgraded to 1.20.
+
+Avoid warning when run under C<perl -w>.
+
+It now deparses
+loop controls with the correct precedence, and multiple statements in a
+C<format> line are also now deparsed correctly.
+
+This release suppresses trailing semicolons in formats.
+
+This release adds stub deparsing for lexical subroutines.
+
+It no longer dies when deparsing C<sort> without arguments.  It now
+correctly omits the comma for C<system $prog @args> and C<exec $prog
+@args>.
+
+=item *
+
+L<bignum>, L<bigint> and L<bigrat> have been upgraded to 0.33.
+
+The overrides for C<hex> and C<oct> have been rewritten, eliminating
+several problems, and making one incompatible change:
+
+=over
+
+=item *
+
+Formerly, whichever of C<use bigint> or C<use bigrat> was compiled later
+would take precedence over the other, causing C<hex> and C<oct> not to
+respect the other pragma when in scope.
+
+=item *
+
+Using any of these three pragmata would cause C<hex> and C<oct> anywhere
+else in the program to evaluate their arguments in list context and prevent
+them from inferring $_ when called without arguments.
+
+=item *
+
+Using any of these three pragmata would make C<oct("1234")> return 1234
+(for any number not beginning with 0) anywhere in the program.  Now "1234"
+is translated from octal to decimal, whether within the pragma's scope or
+not.
+
+=item *
+
+The global overrides that facilitate lexical use of C<hex> and C<oct> now
+respect any existing overrides that were in place before the new overrides
+were installed, falling back to them outside of the scope of C<use bignum>.
+
+=item *
+
+C<use bignum "hex">, C<use bignum "oct"> and similar invocations for bigint
+and bigrat now export a C<hex> or C<oct> function, instead of providing a
+global override.
+
+=back
+
+=item *
+
+L<Carp> has been upgraded to 1.29.
+
+Carp is no longer confused when C<caller> returns undef for a package that
+has been deleted.
+
+The C<longmess()> and C<shortmess()> functions are now documented.
+
+=item *
+
+L<CGI> has been upgraded to 3.63.
+
+Unrecognized HTML escape sequences are now handled better, problematic
+trailing newlines are no longer inserted after E<lt>formE<gt> tags
+by C<startform()> or C<start_form()>, and bogus "Insecure Dependency"
+warnings appearing with some versions of perl are now worked around.
+
+=item *
+
+L<Class::Struct> has been upgraded to 0.64.
+
+The constructor now respects overridden accessor methods [perl #29230].
+
+=item *
+
+L<Compress::Raw::Bzip2> has been upgraded to 2.060.
+
+The misuse of Perl's "magic" API has been fixed.
+
+=item *
+
+L<Compress::Raw::Zlib> has been upgraded to 2.060.
+
+Upgrade bundled zlib to version 1.2.7.
+
+Fix build failures on Irix, Solaris, and Win32, and also when building as C++
+[rt.cpan.org #69985], [rt.cpan.org #77030], [rt.cpan.org #75222].
+
+The misuse of Perl's "magic" API has been fixed.
+
+C<compress()>, C<uncompress()>, C<memGzip()> and C<memGunzip()> have
+been speeded up by making parameter validation more efficient.
+
+=item *
+
+L<CPAN::Meta::Requirements> has been upgraded to 2.122.
+
+Treat undef requirements to C<from_string_hash> as 0 (with a warning).
+
+Added C<requirements_for_module> method.
+
+=item *
+
+L<CPANPLUS> has been upgraded to 0.9135.
+
+Allow adding F<blib/script> to PATH.
+
+Save the history between invocations of the shell.
+
+Handle multiple C<makemakerargs> and C<makeflags> arguments better.
+
+This resolves issues with the SQLite source engine.
+
+=item *
+
+L<Data::Dumper> has been upgraded to 2.145.
+
+It has been optimized to only build a seen-scalar hash as necessary,
+thereby speeding up serialization drastically.
+
+Additional tests were added in order to improve statement, branch, condition
+and subroutine coverage.  On the basis of the coverage analysis, some of the
+internals of Dumper.pm were refactored.  Almost all methods are now
+documented.
+
+=item *
+
+L<DB_File> has been upgraded to 1.827.
+
+The main Perl module no longer uses the C<"@_"> construct.
+
+=item *
+
+L<Devel::Peek> has been upgraded to 1.11.
+
+This fixes compilation with C++ compilers and makes the module work with
+the new pad API.
+
+=item *
+
+L<Digest::MD5> has been upgraded to 2.52.
+
+Fix C<Digest::Perl::MD5> OO fallback [rt.cpan.org #66634].
+
+=item *
+
+L<Digest::SHA> has been upgraded to 5.84.
+
+This fixes a double-free bug, which might have caused vulnerabilities
+in some cases.
+
+=item *
+
+L<DynaLoader> has been upgraded to 1.18.
+
+This is due to a minor code change in the XS for the VMS implementation.
+
+This fixes warnings about using C<CODE> sections without an C<OUTPUT>
+section.
+
+=item *
+
+L<Encode> has been upgraded to 2.49.
+
+The Mac alias x-mac-ce has been added, and various bugs have been fixed
+in Encode::Unicode, Encode::UTF7 and Encode::GSM0338.
+
+=item *
+
+L<Env> has been upgraded to 1.04.
+
+Its SPLICE implementation no longer misbehaves in list context.
+
+=item *
+
+L<ExtUtils::CBuilder> has been upgraded to 0.280210.
+
+Manifest files are now correctly embedded for those versions of VC++ which
+make use of them. [perl #111782, #111798].
+
+A list of symbols to export can now be passed to C<link()> when on
+Windows, as on other OSes [perl #115100].
+
+=item *
+
+L<ExtUtils::ParseXS> has been upgraded to 3.18.
+
+The generated C code now avoids unnecessarily incrementing
+C<PL_amagic_generation> on Perl versions where it's done automatically
+(or on current Perl where the variable no longer exists).
+
+This avoids a bogus warning for initialised XSUB non-parameters [perl
+#112776].
+
+=item *
+
+L<File::Copy> has been upgraded to 2.26.
+
+C<copy()> no longer zeros files when copying into the same directory,
+and also now fails (as it has long been documented to do) when attempting
+to copy a file over itself.
+
+=item *
+
+L<File::DosGlob> has been upgraded to 1.10.
+
+The internal cache of file names that it keeps for each caller is now
+freed when that caller is freed.  This means
+C<< use File::DosGlob 'glob'; eval 'scalar <*>' >> no longer leaks memory.
+
+=item *
+
+L<File::Fetch> has been upgraded to 0.38.
+
+Added the 'file_default' option for URLs that do not have a file
+component.
+
+Use C<File::HomeDir> when available, and provide C<PERL5_CPANPLUS_HOME> to
+override the autodetection.
+
+Always re-fetch F<CHECKSUMS> if C<fetchdir> is set.
+
+=item *
+
+L<File::Find> has been upgraded to 1.23.
+
+This fixes inconsistent unixy path handling on VMS.
+
+Individual files may now appear in list of directories to be searched
+[perl #59750].
+
+=item *
+
+L<File::Glob> has been upgraded to 1.20.
+
+File::Glob has had exactly the same fix as File::DosGlob.  Since it is
+what Perl's own C<glob> operator itself uses (except on VMS), this means
+C<< eval 'scalar <*>' >> no longer leaks.
+
+A space-separated list of patterns return long lists of results no longer
+results in memory corruption or crashes.  This bug was introduced in
+Perl 5.16.0.  [perl #114984]
+
+=item *
+
+L<File::Spec::Unix> has been upgraded to 3.40.
+
+C<abs2rel> could produce incorrect results when given two relative paths or
+the root directory twice [perl #111510].
+
+=item *
+
+L<File::stat> has been upgraded to 1.07.
+
+C<File::stat> ignores the L<filetest> pragma, and warns when used in
+combination therewith.  But it was not warning for C<-r>.  This has been
+fixed [perl #111640].
+
+C<-p> now works, and does not return false for pipes [perl #111638].
+
+Previously C<File::stat>'s overloaded C<-x> and C<-X> operators did not give
+the correct results for directories or executable files when running as
+root. They had been treating executable permissions for root just like for
+any other user, performing group membership tests I<etc> for files not owned
+by root. They now follow the correct Unix behaviour - for a directory they
+are always true, and for a file if any of the three execute permission bits
+are set then they report that root can execute the file. Perl's builtin
+C<-x> and C<-X> operators have always been correct.
+
+=item *
+
+L<File::Temp> has been upgraded to 0.23
+
+Fixes various bugs involving directory removal.  Defers unlinking tempfiles if
+the initial unlink fails, which fixes problems on NFS.
+
+=item *
+
+L<GDBM_File> has been upgraded to 1.15.
+
+The undocumented optional fifth parameter to C<TIEHASH> has been
+removed. This was intended to provide control of the callback used by
+C<gdbm*> functions in case of fatal errors (such as filesystem problems),
+but did not work (and could never have worked). No code on CPAN even
+attempted to use it. The callback is now always the previous default,
+C<croak>. Problems on some platforms with how the C<C> C<croak> function
+is called have also been resolved.
+
+=item *
+
+L<Hash::Util> has been upgraded to 0.15.
+
+C<hash_unlocked> and C<hashref_unlocked> now returns true if the hash is
+unlocked, instead of always returning false [perl #112126].
+
+C<hash_unlocked>, C<hashref_unlocked>, C<lock_hash_recurse> and
+C<unlock_hash_recurse> are now exportable [perl #112126].
+
+Two new functions, C<hash_locked> and C<hashref_locked>, have been added.
+Oddly enough, these two functions were already exported, even though they
+did not exist [perl #112126].
+
+=item *
+
+L<HTTP::Tiny> has been upgraded to 0.025.
+
+Add SSL verification features [github #6], [github #9].
+
+Include the final URL in the response hashref.
+
+Add C<local_address> option.
+
+This improves SSL support.
+
+=item *
+
+L<IO> has been upgraded to 1.28.
+
+C<sync()> can now be called on read-only file handles [perl #64772].
+
+L<IO::Socket> tries harder to cache or otherwise fetch socket
+information.
+
+=item *
+
+L<IPC::Cmd> has been upgraded to 0.80.
+
+Use C<POSIX::_exit> instead of C<exit> in C<run_forked> [rt.cpan.org #76901].
+
+=item *
+
+L<IPC::Open3> has been upgraded to 1.13.
+
+The C<open3()> function no longer uses C<POSIX::close()> to close file
+descriptors since that breaks the ref-counting of file descriptors done by
+PerlIO in cases where the file descriptors are shared by PerlIO streams,
+leading to attempts to close the file descriptors a second time when
+any such PerlIO streams are closed later on.
+
+=item *
+
+L<Locale::Codes> has been upgraded to 3.25.
+
+It includes some new codes.
+
+=item *
+
+L<Memoize> has been upgraded to 1.03.
+
+Fix the C<MERGE> cache option.
+
+=item *
+
+L<Module::Build> has been upgraded to 0.4003.
+
+Fixed bug where modules without C<$VERSION> might have a version of '0' listed
+in 'provides' metadata, which will be rejected by PAUSE.
+
+Fixed bug in PodParser to allow numerals in module names.
+
+Fixed bug where giving arguments twice led to them becoming arrays, resulting
+in install paths like F<ARRAY(0xdeadbeef)/lib/Foo.pm>.
+
+A minor bug fix allows markup to be used around the leading "Name" in
+a POD "abstract" line, and some documentation improvements have been made.
+
+=item *
+
+L<Module::CoreList> has been upgraded to 2.90
+
+Version information is now stored as a delta, which greatly reduces the
+size of the F<CoreList.pm> file.
+
+This restores compatibility with older versions of perl and cleans up
+the corelist data for various modules.
+
+=item *
+
+L<Module::Load::Conditional> has been upgraded to 0.54.
+
+Fix use of C<requires> on perls installed to a path with spaces.
+
+Various enhancements include the new use of Module::Metadata.
+
+=item *
+
+L<Module::Metadata> has been upgraded to 1.000011.
+
+The creation of a Module::Metadata object for a typical module file has
+been sped up by about 40%, and some spurious warnings about C<$VERSION>s
+have been suppressed.
+
+=item *
+
+L<Module::Pluggable> has been upgraded to 4.7.
+
+Amongst other changes, triggers are now allowed on events, which gives
+a powerful way to modify behaviour.
+
+=item *
+
+L<Net::Ping> has been upgraded to 2.41.
+
+This fixes some test failures on Windows.
+
+=item *
+
+L<Opcode> has been upgraded to 1.25.
+
+Reflect the removal of the boolkeys opcode and the addition of the
+clonecv, introcv and padcv opcodes.
+
+=item *
+
+L<overload> has been upgraded to 1.22.
+
+C<no overload> now warns for invalid arguments, just like C<use overload>.
+
+=item *
+
+L<PerlIO::encoding> has been upgraded to 0.16.
+
+This is the module implementing the ":encoding(...)" I/O layer.  It no
+longer corrupts memory or crashes when the encoding back-end reallocates
+the buffer or gives it a typeglob or shared hash key scalar.
+
+=item *
+
+L<PerlIO::scalar> has been upgraded to 0.16.
+
+The buffer scalar supplied may now only contain code points 0xFF or
+lower. [perl #109828]
+
+=item *
+
+L<Perl::OSType> has been upgraded to 1.003.
+
+This fixes a bug detecting the VOS operating system.
+
+=item *
+
+L<Pod::Html> has been upgraded to 1.18.
+
+The option C<--libpods> has been reinstated. It is deprecated, and its use
+does nothing other than issue a warning that it is no longer supported.
+
+Since the HTML files generated by pod2html claim to have a UTF-8 charset,
+actually write the files out using UTF-8 [perl #111446].
+
+=item *
+
+L<Pod::Simple> has been upgraded to 3.28.
+
+Numerous improvements have been made, mostly to Pod::Simple::XHTML,
+which also has a compatibility change: the C<codes_in_verbatim> option
+is now disabled by default.  See F<cpan/Pod-Simple/ChangeLog> for the
+full details.
+
+=item *
+
+L<re> has been upgraded to 0.23
+
+Single character [class]es like C</[s]/> or C</[s]/i> are now optimized
+as if they did not have the brackets, i.e. C</s/> or C</s/i>.
+
+See note about C<op_comp> in the L</Internal Changes> section below.
+
+=item *
+
+L<Safe> has been upgraded to 2.35.
+
+Fix interactions with C<Devel::Cover>.
+
+Don't eval code under C<no strict>.
+
+=item *
+
+L<Scalar::Util> has been upgraded to version 1.27.
+
+Fix an overloading issue with C<sum>.
+
+C<first> and C<reduce> now check the callback first (so C<&first(1)> is
+disallowed).
+
+Fix C<tainted> on magical values [rt.cpan.org #55763].
+
+Fix C<sum> on previously magical values [rt.cpan.org #61118].
+
+Fix reading past the end of a fixed buffer [rt.cpan.org #72700].
+
+=item *
+
+L<Search::Dict> has been upgraded to 1.07.
+
+No longer require C<stat> on filehandles.
+
+Use C<fc> for casefolding.
+
+=item *
+
+L<Socket> has been upgraded to 2.009.
+
+Constants and functions required for IP multicast source group membership
+have been added.
+
+C<unpack_sockaddr_in()> and C<unpack_sockaddr_in6()> now return just the IP
+address in scalar context, and C<inet_ntop()> now guards against incorrect
+length scalars being passed in.
+
+This fixes an uninitialized memory read.
+
+=item *
+
+L<Storable> has been upgraded to 2.41.
+
+Modifying C<$_[0]> within C<STORABLE_freeze> no longer results in crashes
+[perl #112358].
+
+An object whose class implements C<STORABLE_attach> is now thawed only once
+when there are multiple references to it in the structure being thawed
+[perl #111918].
+
+Restricted hashes were not always thawed correctly [perl #73972].
+
+Storable would croak when freezing a blessed REF object with a
+C<STORABLE_freeze()> method [perl #113880].
+
+It can now freeze and thaw vstrings correctly.  This causes a slight
+incompatible change in the storage format, so the format version has
+increased to 2.9.
+
+This contains various bugfixes, including compatibility fixes for older
+versions of Perl and vstring handling.
+
+=item *
+
+L<Sys::Syslog> has been upgraded to 0.32.
+
+This contains several bug fixes relating to C<getservbyname()>,
+C<setlogsock()>and log levels in C<syslog()>, together with fixes for
+Windows, Haiku-OS and GNU/kFreeBSD.  See F<cpan/Sys-Syslog/Changes>
+for the full details.
+
+=item *
+
+L<Term::ANSIColor> has been upgraded to 4.02.
+
+Add support for italics.
+
+Improve error handling.
+
+=item *
+
+L<Term::ReadLine> has been upgraded to 1.10.  This fixes the
+use of the B<cpan> and B<cpanp> shells on Windows in the event that the current
+drive happens to contain a F<\dev\tty> file.
+
+=item *
+
+L<Test::Harness> has been upgraded to 3.26.
+
+Fix glob semantics on Win32 [rt.cpan.org #49732].
+
+Don't use C<Win32::GetShortPathName> when calling perl [rt.cpan.org #47890].
+
+Ignore -T when reading shebang [rt.cpan.org #64404].
+
+Handle the case where we don't know the wait status of the test more
+gracefully.
+
+Make the test summary 'ok' line overridable so that it can be changed to a
+plugin to make the output of prove idempotent.
+
+Don't run world-writable files.
+
+=item *
+
+L<Text::Tabs> and L<Text::Wrap> have been upgraded to
+2012.0818.  Support for Unicode combining characters has been added to them
+both.
+
+=item *
+
+L<threads::shared> has been upgraded to 1.31.
+
+This adds the option to warn about or ignore attempts to clone structures
+that can't be cloned, as opposed to just unconditionally dying in
+that case.
+
+This adds support for dual-valued values as created by
+L<Scalar::Util::dualvar|Scalar::Util/"dualvar NUM, STRING">.
+
+=item *
+
+L<Tie::StdHandle> has been upgraded to 4.3.
+
+C<READ> now respects the offset argument to C<read> [perl #112826].
+
+=item *
+
+L<Time::Local> has been upgraded to 1.2300.
+
+Seconds values greater than 59 but less than 60 no longer cause
+C<timegm()> and C<timelocal()> to croak.
+
+=item *
+
+L<Unicode::UCD> has been upgraded to 0.53.
+
+This adds a function L<all_casefolds()|Unicode::UCD/all_casefolds()>
+that returns all the casefolds.
+
+=item *
+
+L<Win32> has been upgraded to 0.47.
+
+New APIs have been added for getting and setting the current code page.
+
+=back
+
+
+=head2 Removed Modules and Pragmata
+
+=over
+
+=item *
+
+L<Version::Requirements> has been removed from the core distribution.  It is
+available under a different name: L<CPAN::Meta::Requirements>.
+
+=back
+
+=head1 Documentation
+
+=head2 Changes to Existing Documentation
+
+=head3 L<perlcheat>
+
+=over 4
+
+=item *
+
+L<perlcheat> has been reorganized, and a few new sections were added.
+
+=back
+
+=head3 L<perldata>
+
+=over 4
+
+=item *
+
+Now explicitly documents the behaviour of hash initializer lists that
+contain duplicate keys.
+
+=back
+
+=head3 L<perldiag>
+
+=over 4
+
+=item *
+
+The explanation of symbolic references being prevented by "strict refs"
+now doesn't assume that the reader knows what symbolic references are.
+
+=back
+
+=head3 L<perlfaq>
+
+=over 4
+
+=item *
+
+L<perlfaq> has been synchronized with version 5.0150040 from CPAN.
+
+=back
+
+=head3 L<perlfunc>
+
+=over 4
+
+=item *
+
+The return value of C<pipe> is now documented.
+
+=item *
+
+Clarified documentation of C<our>.
+
+=back
+
+=head3 L<perlop>
+
+=over 4
+
+=item *
+
+Loop control verbs (C<dump>, C<goto>, C<next>, C<last> and C<redo>) have always
+had the same precedence as assignment operators, but this was not documented
+until now.
+
+=back
+
+=head3 Diagnostics
+
+The following additions or changes have been made to diagnostic output,
+including warnings and fatal error messages.  For the complete list of
+diagnostic messages, see L<perldiag>.
+
+=head2 New Diagnostics
+
+=head3 New Errors
+
+=over 4
+
+=item *
+
+L<Unterminated delimiter for here document|perldiag/"Unterminated delimiter for here document">
+
+This message now occurs when a here document label has an initial quotation
+mark but the final quotation mark is missing.
+
+This replaces a bogus and misleading error message about not finding the label
+itself [perl #114104].
+
+=item *
+
+L<panic: child pseudo-process was never scheduled|perldiag/"panic: child pseudo-process was never scheduled">
+
+This error is thrown when a child pseudo-process in the ithreads implementation
+on Windows was not scheduled within the time period allowed and therefore was
+not able to initialize properly [perl #88840].
+
+=item *
+
+L<Group name must start with a non-digit word character in regex; marked by <-- HERE in mE<sol>%sE<sol>|perldiag/"Group name must start with a non-digit word character in regex; marked by <-- HERE in m/%s/">
+
+This error has been added for C<(?&0)>, which is invalid.  It used to
+produce an incomprehensible error message [perl #101666].
+
+=item *
+
+L<Can't use an undefined value as a subroutine reference|perldiag/"Can't use an undefined value as %s reference">
+
+Calling an undefined value as a subroutine now produces this error message.
+It used to, but was accidentally disabled, first in Perl 5.004 for
+non-magical variables, and then in Perl v5.14 for magical (e.g., tied)
+variables.  It has now been restored.  In the mean time, undef was treated
+as an empty string [perl #113576].
+
+=item *
+
+L<Experimental "%s" subs not enabled|perldiag/"Experimental "%s" subs not enabled">
+
+To use lexical subs, you must first enable them:
+
+    no warnings 'experimental::lexical_subs';
+    use feature 'lexical_subs';
+    my sub foo { ... }
+
+=back
+
+=head3 New Warnings
+
+=over 4
+
+=item *
+
+L<'Strings with code points over 0xFF may not be mapped into in-memory file handles'|perldiag/"Strings with code points over 0xFF may not be mapped into in-memory file handles">
+
+=item *
+
+L<'%s' resolved to '\o{%s}%d'|perldiag/"'%s' resolved to '\o{%s}%d'">
+
+=item *
+
+L<'Trailing white-space in a charnames alias definition is deprecated'|perldiag/"Trailing white-space in a charnames alias definition is deprecated">
+
+=item *
+
+L<'A sequence of multiple spaces in a charnames alias definition is deprecated'|perldiag/"A sequence of multiple spaces in a charnames alias definition is deprecated">
+
+=item *
+
+L<'Passing malformed UTF-8 to "%s" is deprecated'|perldiag/"Passing malformed UTF-8 to "%s" is deprecated">
+
+=item *
+
+L<Subroutine "&%s" is not available|perldiag/"Subroutine "&%s" is not available">
+
+(W closure) During compilation, an inner named subroutine or eval is
+attempting to capture an outer lexical subroutine that is not currently
+available.  This can happen for one of two reasons.  First, the lexical
+subroutine may be declared in an outer anonymous subroutine that has not
+yet been created.  (Remember that named subs are created at compile time,
+while anonymous subs are created at run-time.)  For example,
+
+    sub { my sub a {...} sub f { \&a } }
+
+At the time that f is created, it can't capture the current the "a" sub,
+since the anonymous subroutine hasn't been created yet.  Conversely, the
+following won't give a warning since the anonymous subroutine has by now
+been created and is live:
+
+    sub { my sub a {...} eval 'sub f { \&a }' }->();
+
+The second situation is caused by an eval accessing a variable that has
+gone out of scope, for example,
+
+    sub f {
+        my sub a {...}
+        sub { eval '\&a' }
+    }
+    f()->();
+
+Here, when the '\&a' in the eval is being compiled, f() is not currently
+being executed, so its &a is not available for capture.
+
+=item *
+
+L<"%s" subroutine &%s masks earlier declaration in same %s|perldiag/"%s" subroutine &%s masks earlier declaration in same %s>
+
+(W misc) A "my" or "state" subroutine has been redeclared in the
+current scope or statement, effectively eliminating all access to
+the previous instance.  This is almost always a typographical error.
+Note that the earlier subroutine will still exist until the end of
+the scope or until all closure references to it are destroyed.
+
+=item *
+
+L<The %s feature is experimental|perldiag/"The %s feature is experimental">
+
+(S experimental) This warning is emitted if you enable an experimental
+feature via C<use feature>.  Simply suppress the warning if you want
+to use the feature, but know that in doing so you are taking the risk
+of using an experimental feature which may change or be removed in a
+future Perl version:
+
+    no warnings "experimental::lexical_subs";
+    use feature "lexical_subs";
+
+=item *
+
+L<sleep(%u) too large|perldiag/"sleep(%u) too large">
+
+(W overflow) You called C<sleep> with a number that was larger than it can
+reliably handle and C<sleep> probably slept for less time than requested.
+
+=item *
+
+L<Wide character in setenv|perldiag/"Wide character in %s">
+
+Attempts to put wide characters into environment variables via C<%ENV> now
+provoke this warning.
+
+=item *
+
+"L<Invalid negative number (%s) in chr|perldiag/"Invalid negative number (%s) in chr">"
+
+C<chr()> now warns when passed a negative value [perl #83048].
+
+=item *
+
+"L<Integer overflow in srand|perldiag/"Integer overflow in srand">"
+
+C<srand()> now warns when passed a value that doesn't fit in a C<UV> (since the
+value will be truncated rather than overflowing) [perl #40605].
+
+=item *
+
+"L<-i used with no filenames on the command line, reading from STDIN|perldiag/"-i used with no filenames on the command line, reading from STDIN">"
+
+Running perl with the C<-i> flag now warns if no input files are provided on
+the command line [perl #113410].
+
+=back
+
+=head2 Changes to Existing Diagnostics
+
+=over 4
+
+=item *
+
+L<$* is no longer supported|perldiag/"$* is no longer supported">
+
+The warning that use of C<$*> and C<$#> is no longer supported is now
+generated for every location that references them.  Previously it would fail
+to be generated if another variable using the same typeglob was seen first
+(e.g. C<@*> before C<$*>), and would not be generated for the second and
+subsequent uses.  (It's hard to fix the failure to generate warnings at all
+without also generating them every time, and warning every time is
+consistent with the warnings that C<$[> used to generate.)
+
+=item *
+
+The warnings for C<\b{> and C<\B{> were added.  They are a deprecation
+warning which should be turned off by that category.  One should not
+have to turn off regular regexp warnings as well to get rid of these.
+
+=item *
+
+L<Constant(%s): Call to &{$^H{%s}} did not return a defined value|perldiag/Constant(%s): Call to &{$^H{%s}} did not return a defined value>
+
+Constant overloading that returns C<undef> results in this error message.
+For numeric constants, it used to say "Constant(undef)".  "undef" has been
+replaced with the number itself.
+
+=item *
+
+The error produced when a module cannot be loaded now includes a hint that
+the module may need to be installed: "Can't locate hopping.pm in @INC (you
+may need to install the hopping module) (@INC contains: ...)"
+
+=item *
+
+L<vector argument not supported with alpha versions|perldiag/vector argument not supported with alpha versions>
+
+This warning was not suppressible, even with C<no warnings>.  Now it is
+suppressible, and has been moved from the "internal" category to the
+"printf" category.
+
+=item *
+
+C<< Can't do {n,m} with n > m in regex; marked by <-- HERE in m/%s/ >>
+
+This fatal error has been turned into a warning that reads:
+
+L<< Quantifier {n,m} with n > m can't match in regex | perldiag/Quantifier {n,m} with n > m can't match in regex >>
+
+(W regexp) Minima should be less than or equal to maxima.  If you really want
+your regexp to match something 0 times, just put {0}.
+
+=item *
+
+The "Runaway prototype" warning that occurs in bizarre cases has been
+removed as being unhelpful and inconsistent.
+
+=item *
+
+The "Not a format reference" error has been removed, as the only case in
+which it could be triggered was a bug.
+
+=item *
+
+The "Unable to create sub named %s" error has been removed for the same
+reason.
+
+=item *
+
+The 'Can't use "my %s" in sort comparison' error has been downgraded to a
+warning, '"my %s" used in sort comparison' (with 'state' instead of 'my'
+for state variables).  In addition, the heuristics for guessing whether
+lexical $a or $b has been misused have been improved to generate fewer
+false positives.  Lexical $a and $b are no longer disallowed if they are
+outside the sort block.  Also, a named unary or list operator inside the
+sort block no longer causes the $a or $b to be ignored [perl #86136].
+
+=back
+
+=head1 Utility Changes
+
+=head3 L<h2xs>
+
+=over 4
+
+=item *
+
+F<h2xs> no longer produces invalid code for empty defines.  [perl #20636]
+
+=back
+
+=head1 Configuration and Compilation
+
+=over 4
+
+=item *
+
+Added C<useversionedarchname> option to Configure
+
+When set, it includes 'api_versionstring' in 'archname'. E.g.
+x86_64-linux-5.13.6-thread-multi.  It is unset by default.
+
+This feature was requested by Tim Bunce, who observed that
+C<INSTALL_BASE> creates a library structure that does not
+differentiate by perl version.  Instead, it places architecture
+specific files in "$install_base/lib/perl5/$archname".  This makes
+it difficult to use a common C<INSTALL_BASE> library path with
+multiple versions of perl.
+
+By setting C<-Duseversionedarchname>, the $archname will be
+distinct for architecture I<and> API version, allowing mixed use of
+C<INSTALL_BASE>.
+
+=item *
+
+Add a C<PERL_NO_INLINE_FUNCTIONS> option
+
+If C<PERL_NO_INLINE_FUNCTIONS> is defined, don't include "inline.h"
+
+This permits test code to include the perl headers for definitions without
+creating a link dependency on the perl library (which may not exist yet).
+
+=item *
+
+Configure will honour the external C<MAILDOMAIN> environment variable, if set.
+
+=item *
+
+C<installman> no longer ignores the silent option
+
+=item *
+
+Both C<META.yml> and C<META.json> files are now included in the distribution.
+
+=item *
+
+F<Configure> will now correctly detect C<isblank()> when compiling with a C++
+compiler.
+
+=item *
+
+The pager detection in F<Configure> has been improved to allow responses which
+specify options after the program name, e.g. B</usr/bin/less -R>, if the user
+accepts the default value.  This helps B<perldoc> when handling ANSI escapes
+[perl #72156].
+
+=back
+
+=head1 Testing
+
+=over 4
+
+=item *
+
+The test suite now has a section for tests that require very large amounts
+of memory.  These tests won't run by default; they can be enabled by
+setting the C<PERL_TEST_MEMORY> environment variable to the number of
+gibibytes of memory that may be safely used.
+
+=back
+
+=head1 Platform Support
+
+=head2 Discontinued Platforms
+
+=over 4
+
+=item BeOS
+
+BeOS was an operating system for personal computers developed by Be Inc,
+initially for their BeBox hardware. The OS Haiku was written as an open
+source replacement for/continuation of BeOS, and its perl port is current and
+actively maintained.
+
+=item UTS Global
+
+Support code relating to UTS global has been removed.  UTS was a mainframe
+version of System V created by Amdahl, subsequently sold to UTS Global.  The
+port has not been touched since before Perl v5.8.0, and UTS Global is now
+defunct.
+
+=item VM/ESA
+
+Support for VM/ESA has been removed. The port was tested on 2.3.0, which
+IBM ended service on in March 2002. 2.4.0 ended service in June 2003, and
+was superseded by Z/VM. The current version of Z/VM is V6.2.0, and scheduled
+for end of service on 2015/04/30.
+
+=item MPE/IX
+
+Support for MPE/IX has been removed.
+
+=item EPOC
+
+Support code relating to EPOC has been removed.  EPOC was a family of
+operating systems developed by Psion for mobile devices.  It was the
+predecessor of Symbian.  The port was last updated in April 2002.
+
+=item Rhapsody
+
+Support for Rhapsody has been removed.
+
+=back
+
+=head2 Platform-Specific Notes
+
+=head3 AIX
+
+Configure now always adds C<-qlanglvl=extc99> to the CC flags on AIX when
+using xlC.  This will make it easier to compile a number of XS-based modules
+that assume C99 [perl #113778].
+
+=head3 clang++
+
+There is now a workaround for a compiler bug that prevented compiling
+with clang++ since Perl v5.15.7 [perl #112786].
+
+=head3 C++
+
+When compiling the Perl core as C++ (which is only semi-supported), the
+mathom functions are now compiled as C<extern "C">, to ensure proper
+binary compatibility.  (However, binary compatibility isn't generally
+guaranteed anyway in the situations where this would matter.)
+
+=head3 Darwin
+
+Stop hardcoding an alignment on 8 byte boundaries to fix builds using
+-Dusemorebits.
+
+=head3 Haiku
+
+Perl should now work out of the box on Haiku R1 Alpha 4.
+
+=head3 MidnightBSD
+
+C<libc_r> was removed from recent versions of MidnightBSD and older versions
+work better with C<pthread>. Threading is now enabled using C<pthread> which
+corrects build errors with threading enabled on 0.4-CURRENT.
+
+=head3 Solaris
+
+In Configure, avoid running sed commands with flags not supported on Solaris.
+
+=head3 VMS
+
+=over
+
+=item *
+
+Where possible, the case of filenames and command-line arguments is now
+preserved by enabling the CRTL features C<DECC$EFS_CASE_PRESERVE> and
+C<DECC$ARGV_PARSE_STYLE> at start-up time.  The latter only takes effect
+when extended parse is enabled in the process from which Perl is run.
+
+=item *
+
+The character set for Extended Filename Syntax (EFS) is now enabled by default
+on VMS.  Among other things, this provides better handling of dots in directory
+names, multiple dots in filenames, and spaces in filenames.  To obtain the old
+behavior, set the logical name C<DECC$EFS_CHARSET> to C<DISABLE>.
+
+=item *
+
+Fixed linking on builds configured with C<-Dusemymalloc=y>.
+
+=item *
+
+Experimental support for building Perl with the HP C++ compiler is available
+by configuring with C<-Dusecxx>.
+
+=item *
+
+All C header files from the top-level directory of the distribution are now
+installed on VMS, providing consistency with a long-standing practice on other
+platforms. Previously only a subset were installed, which broke non-core
+extension builds for extensions that depended on the missing include files.
+
+=item *
+
+Quotes are now removed from the command verb (but not the parameters) for
+commands spawned via C<system>, backticks, or a piped C<open>.  Previously,
+quotes on the verb were passed through to DCL, which would fail to recognize
+the command.  Also, if the verb is actually a path to an image or command
+procedure on an ODS-5 volume, quoting it now allows the path to contain spaces.
+
+=item *
+
+The B<a2p> build has been fixed for the HP C++ compiler on OpenVMS.
+
+=back
+
+=head3 Win32
+
+=over
+
+=item *
+
+Perl can now be built using Microsoft's Visual C++ 2012 compiler by specifying
+CCTYPE=MSVC110 (or MSVC110FREE if you are using the free Express edition for
+Windows Desktop) in F<win32/Makefile>.
+
+=item *
+
+The option to build without C<USE_SOCKETS_AS_HANDLES> has been removed.
+
+=item *
+
+Fixed a problem where perl could crash while cleaning up threads (including the
+main thread) in threaded debugging builds on Win32 and possibly other platforms
+[perl #114496].
+
+=item *
+
+A rare race condition that would lead to L<sleep|perlfunc/sleep> taking more
+time than requested, and possibly even hanging, has been fixed [perl #33096].
+
+=item *
+
+C<link> on Win32 now attempts to set C<$!> to more appropriate values
+based on the Win32 API error code. [perl #112272]
+
+Perl no longer mangles the environment block, e.g. when launching a new
+sub-process, when the environment contains non-ASCII characters. Known
+problems still remain, however, when the environment contains characters
+outside of the current ANSI codepage (e.g. see the item about Unicode in
+C<%ENV> in L<http://perl5.git.perl.org/perl.git/blob/HEAD:/Porting/todo.pod>).
+[perl #113536]
+
+=item *
+
+Building perl with some Windows compilers used to fail due to a problem
+with miniperl's C<glob> operator (which uses the C<perlglob> program)
+deleting the PATH environment variable [perl #113798].
+
+=item *
+
+A new makefile option, C<USE_64_BIT_INT>, has been added to the Windows
+makefiles.  Set this to "define" when building a 32-bit perl if you want
+it to use 64-bit integers.
+
+Machine code size reductions, already made to the DLLs of XS modules in
+Perl v5.17.2, have now been extended to the perl DLL itself.
+
+Building with VC++ 6.0 was inadvertently broken in Perl v5.17.2 but has
+now been fixed again.
+
+=back
+
+=head3 WinCE
+
+Building on WinCE is now possible once again, although more work is required
+to fully restore a clean build.
+
+=head1 Internal Changes
+
+=over
+
+=item *
+
+Synonyms for the misleadingly named C<av_len()> have been created:
+C<av_top_index()> and C<av_tindex>.  All three of these return the
+number of the highest index in the array, not the number of elements it
+contains.
+
+=item *
+
+SvUPGRADE() is no longer an expression. Originally this macro (and its
+underlying function, sv_upgrade()) were documented as boolean, although
+in reality they always croaked on error and never returned false. In 2005
+the documentation was updated to specify a void return value, but
+SvUPGRADE() was left always returning 1 for backwards compatibility. This
+has now been removed, and SvUPGRADE() is now a statement with no return
+value.
+
+So this is now a syntax error:
+
+    if (!SvUPGRADE(sv)) { croak(...); }
+
+If you have code like that, simply replace it with
+
+    SvUPGRADE(sv);
+
+or to avoid compiler warnings with older perls, possibly
+
+    (void)SvUPGRADE(sv);
+
+=item *
+
+Perl has a new copy-on-write mechanism that allows any SvPOK scalar to be
+upgraded to a copy-on-write scalar.  A reference count on the string buffer
+is stored in the string buffer itself.  This feature is B<not enabled by
+default>.
+
+It can be enabled in a perl build by running F<Configure> with
+B<-Accflags=-DPERL_NEW_COPY_ON_WRITE>, and we would encourage XS authors
+to try their code with such an enabled perl, and provide feedback.
+Unfortunately, there is not yet a good guide to updating XS code to cope
+with COW.  Until such a document is available, consult the perl5-porters
+mailing list.
+
+It breaks a few XS modules by allowing copy-on-write scalars to go
+through code paths that never encountered them before.
+
+=item *
+
+Copy-on-write no longer uses the SvFAKE and SvREADONLY flags.  Hence,
+SvREADONLY indicates a true read-only SV.
+
+Use the SvIsCOW macro (as before) to identify a copy-on-write scalar.
+
+=item *
+
+C<PL_glob_index> is gone.
+
+=item *
+
+The private Perl_croak_no_modify has had its context parameter removed.  It is
+now has a void prototype.  Users of the public API croak_no_modify remain
+unaffected.
+
+=item *
+
+Copy-on-write (shared hash key) scalars are no longer marked read-only.
+C<SvREADONLY> returns false on such an SV, but C<SvIsCOW> still returns
+true.
+
+=item *
+
+A new op type, C<OP_PADRANGE> has been introduced.  The perl peephole
+optimiser will, where possible, substitute a single padrange op for a
+pushmark followed by one or more pad ops, and possibly also skipping list
+and nextstate ops.  In addition, the op can carry out the tasks associated
+with the RHS of a C<< my(...) = @_ >> assignment, so those ops may be optimised
+away too.
+
+=item *
+
+Case-insensitive matching inside a [bracketed] character class with a
+multi-character fold no longer excludes one of the possibilities in the
+circumstances that it used to. [perl #89774].
+
+=item *
+
+C<PL_formfeed> has been removed.
+
+=item *
+
+The regular expression engine no longer reads one byte past the end of the
+target string.  While for all internally well-formed scalars this should
+never have been a problem, this change facilitates clever tricks with
+string buffers in CPAN modules.  [perl #73542]
+
+=item *
+
+Inside a BEGIN block, C<PL_compcv> now points to the currently-compiling
+subroutine, rather than the BEGIN block itself.
+
+=item *
+
+C<mg_length> has been deprecated.
+
+=item *
+
+C<sv_len> now always returns a byte count and C<sv_len_utf8> a character
+count.  Previously, C<sv_len> and C<sv_len_utf8> were both buggy and would
+sometimes returns bytes and sometimes characters.  C<sv_len_utf8> no longer
+assumes that its argument is in UTF-8.  Neither of these creates UTF-8 caches
+for tied or overloaded values or for non-PVs any more.
+
+=item *
+
+C<sv_mortalcopy> now copies string buffers of shared hash key scalars when
+called from XS modules [perl #79824].
+
+=item *
+
+The new C<RXf_MODIFIES_VARS> flag can be set by custom regular expression
+engines to indicate that the execution of the regular expression may cause
+variables to be modified.  This lets C<s///> know to skip certain
+optimisations.  Perl's own regular expression engine sets this flag for the
+special backtracking verbs that set $REGMARK and $REGERROR.
+
+=item *
+
+The APIs for accessing lexical pads have changed considerably.
+
+C<PADLIST>s are now longer C<AV>s, but their own type instead.
+C<PADLIST>s now contain a C<PAD> and a C<PADNAMELIST> of C<PADNAME>s,
+rather than C<AV>s for the pad and the list of pad names.  C<PAD>s,
+C<PADNAMELIST>s, and C<PADNAME>s are to be accessed as such through the
+newly added pad API instead of the plain C<AV> and C<SV> APIs.  See
+L<perlapi> for details.
+
+=item *
+
+In the regex API, the numbered capture callbacks are passed an index
+indicating what match variable is being accessed. There are special
+index values for the C<$`, $&, $&> variables. Previously the same three
+values were used to retrieve C<${^PREMATCH}, ${^MATCH}, ${^POSTMATCH}>
+too, but these have now been assigned three separate values. See
+L<perlreapi/Numbered capture callbacks>.
+
+=item *
+
+C<PL_sawampersand> was previously a boolean indicating that any of
+C<$`, $&, $&> had been seen; it now contains three one-bit flags
+indicating the presence of each of the variables individually.
+
+=item *
+
+The C<CV *> typemap entry now supports C<&{}> overloading and typeglobs,
+just like C<&{...}> [perl #96872].
+
+=item *
+
+The C<SVf_AMAGIC> flag to indicate overloading is now on the stash, not the
+object.  It is now set automatically whenever a method or @ISA changes, so
+its meaning has changed, too.  It now means "potentially overloaded".  When
+the overload table is calculated, the flag is automatically turned off if
+there is no overloading, so there should be no noticeable slowdown.
+
+The staleness of the overload tables is now checked when overload methods
+are invoked, rather than during C<bless>.
+
+"A" magic is gone.  The changes to the handling of the C<SVf_AMAGIC> flag
+eliminate the need for it.
+
+C<PL_amagic_generation> has been removed as no longer necessary.  For XS
+modules, it is now a macro alias to C<PL_na>.
+
+The fallback overload setting is now stored in a stash entry separate from
+overloadedness itself.
+
+=item *
+
+The character-processing code has been cleaned up in places.  The changes
+should be operationally invisible.
+
+=item *
+
+The C<study> function was made a no-op in v5.16.  It was simply disabled via
+a C<return> statement; the code was left in place.  Now the code supporting
+what C<study> used to do has been removed.
+
+=item *
+
+Under threaded perls, there is no longer a separate PV allocated for every
+COP to store its package name (C<< cop->stashpv >>).  Instead, there is an
+offset (C<< cop->stashoff >>) into the new C<PL_stashpad> array, which
+holds stash pointers.
+
+=item *
+
+In the pluggable regex API, the C<regexp_engine> struct has acquired a new
+field C<op_comp>, which is currently just for perl's internal use, and
+should be initialized to NULL by other regex plugin modules.
+
+=item *
+
+A new function C<alloccopstash> has been added to the API, but is considered
+experimental.  See L<perlapi>.
+
+=item *
+
+Perl used to implement get magic in a way that would sometimes hide bugs in
+code that could call mg_get() too many times on magical values.  This hiding of
+errors no longer occurs, so long-standing bugs may become visible now.  If
+you see magic-related errors in XS code, check to make sure it, together
+with the Perl API functions it uses, calls mg_get() only once on SvGMAGICAL()
+values.
+
+=item *
+
+OP allocation for CVs now uses a slab allocator.  This simplifies
+memory management for OPs allocated to a CV, so cleaning up after a
+compilation error is simpler and safer [perl #111462][perl #112312].
+
+=item *
+
+C<PERL_DEBUG_READONLY_OPS> has been rewritten to work with the new slab
+allocator, allowing it to catch more violations than before.
+
+=item *
+
+The old slab allocator for ops, which was only enabled for C<PERL_IMPLICIT_SYS>
+and C<PERL_DEBUG_READONLY_OPS>, has been retired.
+
+=back
+
+=head1 Selected Bug Fixes
+
+=over 4
+
+=item *
+
+Here document terminators no longer require a terminating newline character when
+they occur at the end of a file.  This was already the case at the end of a
+string eval [perl #65838].
+
+=item *
+
+C<-DPERL_GLOBAL_STRUCT> builds now free the global struct B<after>
+they've finished using it.
+
+=item *
+
+A trailing '/' on a path in @INC will no longer have an additional '/'
+appended.
+
+=item *
+
+The C<:crlf> layer now works when unread data doesn't fit into its own
+buffer. [perl #112244].
+
+=item *
+
+C<ungetc()> now handles UTF-8 encoded data. [perl #116322].
+
+=item *
+
+A bug in the core typemap caused any C types that map to the T_BOOL core
+typemap entry to not be set, updated, or modified when the T_BOOL variable was
+used in an OUTPUT: section with an exception for RETVAL. T_BOOL in an INPUT:
+section was not affected. Using a T_BOOL return type for an XSUB (RETVAL)
+was not affected. A side effect of fixing this bug is, if a T_BOOL is specified
+in the OUTPUT: section (which previous did nothing to the SV), and a read only
+SV (literal) is passed to the XSUB, croaks like "Modification of a read-only
+value attempted" will happen. [perl #115796]
+
+=item *
+
+On many platforms, providing a directory name as the script name caused perl
+to do nothing and report success.  It should now universally report an error
+and exit nonzero. [perl #61362]
+
+=item *
+
+C<sort {undef} ...> under fatal warnings no longer crashes.  It had
+begun crashing in Perl v5.16.
+
+=item *
+
+Stashes blessed into each other
+(C<bless \%Foo::, 'Bar'; bless \%Bar::, 'Foo'>) no longer result in double
+frees.  This bug started happening in Perl v5.16.
+
+=item *
+
+Numerous memory leaks have been fixed, mostly involving fatal warnings and
+syntax errors.
+
+=item *
+
+Some failed regular expression matches such as C<'f' =~ /../g> were not
+resetting C<pos>.  Also, "match-once" patterns (C<m?...?g>) failed to reset
+it, too, when invoked a second time [perl #23180].
+
+=item *
+
+Several bugs involving C<local *ISA> and C<local *Foo::> causing stale
+MRO caches have been fixed.
+
+=item *
+
+Defining a subroutine when its typeglob has been aliased no longer results
+in stale method caches.  This bug was introduced in Perl v5.10.
+
+=item *
+
+Localising a typeglob containing a subroutine when the typeglob's package
+has been deleted from its parent stash no longer produces an error.  This
+bug was introduced in Perl v5.14.
+
+=item *
+
+Under some circumstances, C<local *method=...> would fail to reset method
+caches upon scope exit.
+
+=item *
+
+C</[.foo.]/> is no longer an error, but produces a warning (as before) and
+is treated as C</[.fo]/> [perl #115818].
+
+=item *
+
+C<goto $tied_var> now calls FETCH before deciding what type of goto
+(subroutine or label) this is.
+
+=item *
+
+Renaming packages through glob assignment
+(C<*Foo:: = *Bar::; *Bar:: = *Baz::>) in combination with C<m?...?> and
+C<reset> no longer makes threaded builds crash.
+
+=item *
+
+A number of bugs related to assigning a list to hash have been fixed. Many of
+these involve lists with repeated keys like C<(1, 1, 1, 1)>.
+
+=over 4
+
+=item *
+
+The expression C<scalar(%h = (1, 1, 1, 1))> now returns C<4>, not C<2>.
+
+=item *
+
+The return value of C<%h = (1, 1, 1)> in list context was wrong. Previously
+this would return C<(1, undef, 1)>, now it returns C<(1, undef)>.
+
+=item *
+
+Perl now issues the same warning on C<($s, %h) = (1, {})> as it does for
+C<(%h) = ({})>, "Reference found where even-sized list expected".
+
+=item *
+
+A number of additional edge cases in list assignment to hashes were
+corrected. For more details see commit 23b7025ebc.
+
+=back
+
+=item *
+
+Attributes applied to lexical variables no longer leak memory.
+[perl #114764]
+
+=item *
+
+C<dump>, C<goto>, C<last>, C<next>, C<redo> or C<require> followed by a
+bareword (or version) and then an infix operator is no longer a syntax
+error.  It used to be for those infix operators (like C<+>) that have a
+different meaning where a term is expected.  [perl #105924]
+
+=item *
+
+C<require a::b . 1> and C<require a::b + 1> no longer produce erroneous
+ambiguity warnings.  [perl #107002]
+
+=item *
+
+Class method calls are now allowed on any string, and not just strings
+beginning with an alphanumeric character.  [perl #105922]
+
+=item *
+
+An empty pattern created with C<qr//> used in C<m///> no longer triggers
+the "empty pattern reuses last pattern" behaviour.  [perl #96230]
+
+=item *
+
+Tying a hash during iteration no longer results in a memory leak.
+
+=item *
+
+Freeing a tied hash during iteration no longer results in a memory leak.
+
+=item *
+
+List assignment to a tied array or hash that dies on STORE no longer
+results in a memory leak.
+
+=item *
+
+If the hint hash (C<%^H>) is tied, compile-time scope entry (which copies
+the hint hash) no longer leaks memory if FETCH dies.  [perl #107000]
+
+=item *
+
+Constant folding no longer inappropriately triggers the special
+C<split " "> behaviour.  [perl #94490]
+
+=item *
+
+C<defined scalar(@array)>, C<defined do { &foo }>, and similar constructs
+now treat the argument to C<defined> as a simple scalar.  [perl #97466]
+
+=item *
+
+Running a custom debugging that defines no C<*DB::DB> glob or provides a
+subroutine stub for C<&DB::DB> no longer results in a crash, but an error
+instead.  [perl #114990]
+
+=item *
+
+C<reset ""> now matches its documentation.  C<reset> only resets C<m?...?>
+patterns when called with no argument.  An empty string for an argument now
+does nothing.  (It used to be treated as no argument.)  [perl #97958]
+
+=item *
+
+C<printf> with an argument returning an empty list no longer reads past the
+end of the stack, resulting in erratic behaviour.  [perl #77094]
+
+=item *
+
+C<--subname> no longer produces erroneous ambiguity warnings.
+[perl #77240]
+
+=item *
+
+C<v10> is now allowed as a label or package name.  This was inadvertently
+broken when v-strings were added in Perl v5.6.  [perl #56880]
+
+=item *
+
+C<length>, C<pos>, C<substr> and C<sprintf> could be confused by ties,
+overloading, references and typeglobs if the stringification of such
+changed the internal representation to or from UTF-8.  [perl #114410]
+
+=item *
+
+utf8::encode now calls FETCH and STORE on tied variables.  utf8::decode now
+calls STORE (it was already calling FETCH).
+
+=item *
+
+C<$tied =~ s/$non_utf8/$utf8/> no longer loops infinitely if the tied
+variable returns a Latin-1 string, shared hash key scalar, or reference or
+typeglob that stringifies as ASCII or Latin-1.  This was a regression from
+v5.12.
+
+=item *
+
+C<s///> without /e is now better at detecting when it needs to forego
+certain optimisations, fixing some buggy cases:
+
+=over
+
+=item *
+
+Match variables in certain constructs (C<&&>, C<||>, C<..> and others) in
+the replacement part; e.g., C<s/(.)/$l{$a||$1}/g>.  [perl #26986]
+
+=item *
+
+Aliases to match variables in the replacement.
+
+=item *
+
+C<$REGERROR> or C<$REGMARK> in the replacement.  [perl #49190]
+
+=item *
+
+An empty pattern (C<s//$foo/>) that causes the last-successful pattern to
+be used, when that pattern contains code blocks that modify the variables
+in the replacement.
+
+=back
+
+=item *
+
+The taintedness of the replacement string no longer affects the taintedness
+of the return value of C<s///e>.
+
+=item *
+
+The C<$|> autoflush variable is created on-the-fly when needed.  If this
+happened (e.g., if it was mentioned in a module or eval) when the
+currently-selected filehandle was a typeglob with an empty IO slot, it used
+to crash.  [perl #115206]
+
+=item *
+
+Line numbers at the end of a string eval are no longer off by one.
+[perl #114658]
+
+=item *
+
+@INC filters (subroutines returned by subroutines in @INC) that set $_ to a
+copy-on-write scalar no longer cause the parser to modify that string
+buffer in place.
+
+=item *
+
+C<length($object)> no longer returns the undefined value if the object has
+string overloading that returns undef.  [perl #115260]
+
+=item *
+
+The use of C<PL_stashcache>, the stash name lookup cache for method calls, has
+been restored,
+
+Commit da6b625f78f5f133 in August 2011 inadvertently broke the code that looks
+up values in C<PL_stashcache>. As it's a only cache, quite correctly everything
+carried on working without it.
+
+=item *
+
+The error "Can't localize through a reference" had disappeared in v5.16.0
+when C<local %$ref> appeared on the last line of an lvalue subroutine.
+This error disappeared for C<\local %$ref> in perl v5.8.1.  It has now
+been restored.
+
+=item *
+
+The parsing of here-docs has been improved significantly, fixing several
+parsing bugs and crashes and one memory leak, and correcting wrong
+subsequent line numbers under certain conditions.
+
+=item *
+
+Inside an eval, the error message for an unterminated here-doc no longer
+has a newline in the middle of it [perl #70836].
+
+=item *
+
+A substitution inside a substitution pattern (C<s/${s|||}//>) no longer
+confuses the parser.
+
+=item *
+
+It may be an odd place to allow comments, but C<s//"" # hello/e> has
+always worked, I<unless> there happens to be a null character before the
+first #.  Now it works even in the presence of nulls.
+
+=item *
+
+An invalid range in C<tr///> or C<y///> no longer results in a memory leak.
+
+=item *
+
+String eval no longer treats a semicolon-delimited quote-like operator at
+the very end (C<eval 'q;;'>) as a syntax error.
+
+=item *
+
+C<< warn {$_ => 1} + 1 >> is no longer a syntax error.  The parser used to
+get confused with certain list operators followed by an anonymous hash and
+then an infix operator that shares its form with a unary operator.
+
+=item *
+
+C<(caller $n)[6]> (which gives the text of the eval) used to return the
+actual parser buffer.  Modifying it could result in crashes.  Now it always
+returns a copy.  The string returned no longer has "\n;" tacked on to the
+end.  The returned text also includes here-doc bodies, which used to be
+omitted.
+
+=item *
+
+The UTF-8 position cache is now reset when accessing magical variables, to
+avoid the string buffer and the UTF-8 position cache getting out of sync
+[perl #114410].
+
+=item *
+
+Various cases of get magic being called twice for magical UTF-8
+strings have been fixed.
+
+=item *
+
+This code (when not in the presence of C<$&> etc)
+
+    $_ = 'x' x 1_000_000;
+    1 while /(.)/;
+
+used to skip the buffer copy for performance reasons, but suffered from C<$1>
+etc changing if the original string changed.  That's now been fixed.
+
+=item *
+
+Perl doesn't use PerlIO anymore to report out of memory messages, as PerlIO
+might attempt to allocate more memory.
+
+=item *
+
+In a regular expression, if something is quantified with C<{n,m}> where
+C<S<n E<gt> m>>, it can't possibly match.  Previously this was a fatal
+error, but now is merely a warning (and that something won't match).
+[perl #82954].
+
+=item *
+
+It used to be possible for formats defined in subroutines that have
+subsequently been undefined and redefined to close over variables in the
+wrong pad (the newly-defined enclosing sub), resulting in crashes or
+"Bizarre copy" errors.
+
+=item *
+
+Redefinition of XSUBs at run time could produce warnings with the wrong
+line number.
+
+=item *
+
+The %vd sprintf format does not support version objects for alpha versions.
+It used to output the format itself (%vd) when passed an alpha version, and
+also emit an "Invalid conversion in printf" warning.  It no longer does,
+but produces the empty string in the output.  It also no longer leaks
+memory in this case.
+
+=item *
+
+C<< $obj->SUPER::method >> calls in the main package could fail if the
+SUPER package had already been accessed by other means.
+
+=item *
+
+Stash aliasing (C<< *foo:: = *bar:: >>) no longer causes SUPER calls to ignore
+changes to methods or @ISA or use the wrong package.
+
+=item *
+
+Method calls on packages whose names end in ::SUPER are no longer treated
+as SUPER method calls, resulting in failure to find the method.
+Furthermore, defining subroutines in such packages no longer causes them to
+be found by SUPER method calls on the containing package [perl #114924].
+
+=item *
+
+C<\w> now matches the code points U+200C (ZERO WIDTH NON-JOINER) and U+200D
+(ZERO WIDTH JOINER).  C<\W> no longer matches these.  This change is because
+Unicode corrected their definition of what C<\w> should match.
+
+=item *
+
+C<dump LABEL> no longer leaks its label.
+
+=item *
+
+Constant folding no longer changes the behaviour of functions like C<stat()>
+and C<truncate()> that can take either filenames or handles.
+C<stat 1 ? foo : bar> nows treats its argument as a file name (since it is an
+arbitrary expression), rather than the handle "foo".
+
+=item *
+
+C<truncate FOO, $len> no longer falls back to treating "FOO" as a file name if
+the filehandle has been deleted.  This was broken in Perl v5.16.0.
+
+=item *
+
+Subroutine redefinitions after sub-to-glob and glob-to-glob assignments no
+longer cause double frees or panic messages.
+
+=item *
+
+C<s///> now turns vstrings into plain strings when performing a substitution,
+even if the resulting string is the same (C<s/a/a/>).
+
+=item *
+
+Prototype mismatch warnings no longer erroneously treat constant subs as having
+no prototype when they actually have "".
+
+=item *
+
+Constant subroutines and forward declarations no longer prevent prototype
+mismatch warnings from omitting the sub name.
+
+=item *
+
+C<undef> on a subroutine now clears call checkers.
+
+=item *
+
+The C<ref> operator started leaking memory on blessed objects in Perl v5.16.0.
+This has been fixed [perl #114340].
+
+=item *
+
+C<use> no longer tries to parse its arguments as a statement, making
+C<use constant { () };> a syntax error [perl #114222].
+
+=item *
+
+On debugging builds, "uninitialized" warnings inside formats no longer cause
+assertion failures.
+
+=item *
+
+On debugging builds, subroutines nested inside formats no longer cause
+assertion failures [perl #78550].
+
+=item *
+
+Formats and C<use> statements are now permitted inside formats.
+
+=item *
+
+C<print $x> and C<sub { print $x }-E<gt>()> now always produce the same output.
+It was possible for the latter to refuse to close over $x if the variable was
+not active; e.g., if it was defined outside a currently-running named
+subroutine.
+
+=item *
+
+Similarly, C<print $x> and C<print eval '$x'> now produce the same output.
+This also allows "my $x if 0" variables to be seen in the debugger [perl
+#114018].
+
+=item *
+
+Formats called recursively no longer stomp on their own lexical variables, but
+each recursive call has its own set of lexicals.
+
+=item *
+
+Attempting to free an active format or the handle associated with it no longer
+results in a crash.
+
+=item *
+
+Format parsing no longer gets confused by braces, semicolons and low-precedence
+operators.  It used to be possible to use braces as format delimiters (instead
+of C<=> and C<.>), but only sometimes.  Semicolons and low-precedence operators
+in format argument lines no longer confuse the parser into ignoring the line's
+return value.  In format argument lines, braces can now be used for anonymous
+hashes, instead of being treated always as C<do> blocks.
+
+=item *
+
+Formats can now be nested inside code blocks in regular expressions and other
+quoted constructs (C</(?{...})/> and C<qq/${...}/>) [perl #114040].
+
+=item *
+
+Formats are no longer created after compilation errors.
+
+=item *
+
+Under debugging builds, the B<-DA> command line option started crashing in Perl
+v5.16.0.  It has been fixed [perl #114368].
+
+=item *
+
+A potential deadlock scenario involving the premature termination of a pseudo-
+forked child in a Windows build with ithreads enabled has been fixed.  This
+resolves the common problem of the F<t/op/fork.t> test hanging on Windows [perl
+#88840].
+
+=item *
+
+The code which generates errors from C<require()> could potentially read one or
+two bytes before the start of the filename for filenames less than three bytes
+long and ending C</\.p?\z/>.  This has now been fixed.  Note that it could
+never have happened with module names given to C<use()> or C<require()> anyway.
+
+=item *
+
+The handling of pathnames of modules given to C<require()> has been made
+thread-safe on VMS.
+
+=item *
+
+Non-blocking sockets have been fixed on VMS.
+
+=item *
+
+Pod can now be nested in code inside a quoted construct outside of a string
+eval.  This used to work only within string evals [perl #114040].
+
+=item *
+
+C<goto ''> now looks for an empty label, producing the "goto must have
+label" error message, instead of exiting the program [perl #111794].
+
+=item *
+
+C<goto "\0"> now dies with "Can't find label" instead of "goto must have
+label".
+
+=item *
+
+The C function C<hv_store> used to result in crashes when used on C<%^H>
+[perl #111000].
+
+=item *
+
+A call checker attached to a closure prototype via C<cv_set_call_checker>
+is now copied to closures cloned from it.  So C<cv_set_call_checker> now
+works inside an attribute handler for a closure.
+
+=item *
+
+Writing to C<$^N> used to have no effect.  Now it croaks with "Modification
+of a read-only value" by default, but that can be overridden by a custom
+regular expression engine, as with C<$1> [perl #112184].
+
+=item *
+
+C<undef> on a control character glob (C<undef *^H>) no longer emits an
+erroneous warning about ambiguity [perl #112456].
+
+=item *
+
+For efficiency's sake, many operators and built-in functions return the
+same scalar each time.  Lvalue subroutines and subroutines in the CORE::
+namespace were allowing this implementation detail to leak through.
+C<print &CORE::uc("a"), &CORE::uc("b")> used to print "BB".  The same thing
+would happen with an lvalue subroutine returning the return value of C<uc>.
+Now the value is copied in such cases.
+
+=item *
+
+C<method {}> syntax with an empty block or a block returning an empty list
+used to crash or use some random value left on the stack as its invocant.
+Now it produces an error.
+
+=item *
+
+C<vec> now works with extremely large offsets (E<gt>2 GB) [perl #111730].
+
+=item *
+
+Changes to overload settings now take effect immediately, as do changes to
+inheritance that affect overloading.  They used to take effect only after
+C<bless>.
+
+Objects that were created before a class had any overloading used to remain
+non-overloaded even if the class gained overloading through C<use overload>
+or @ISA changes, and even after C<bless>.  This has been fixed
+[perl #112708].
+
+=item *
+
+Classes with overloading can now inherit fallback values.
+
+=item *
+
+Overloading was not respecting a fallback value of 0 if there were
+overloaded objects on both sides of an assignment operator like C<+=>
+[perl #111856].
+
+=item *
+
+C<pos> now croaks with hash and array arguments, instead of producing
+erroneous warnings.
+
+=item *
+
+C<while(each %h)> now implies C<while(defined($_ = each %h))>, like
+C<readline> and C<readdir>.
+
+=item *
+
+Subs in the CORE:: namespace no longer crash after C<undef *_> when called
+with no argument list (C<&CORE::time> with no parentheses).
+
+=item *
+
+C<unpack> no longer produces the "'/' must follow a numeric type in unpack"
+error when it is the data that are at fault [perl #60204].
+
+=item *
+
+C<join> and C<"@array"> now call FETCH only once on a tied C<$">
+[perl #8931].
+
+=item *
+
+Some subroutine calls generated by compiling core ops affected by a
+C<CORE::GLOBAL> override had op checking performed twice.  The checking
+is always idempotent for pure Perl code, but the double checking can
+matter when custom call checkers are involved.
+
+=item *
+
+A race condition used to exist around fork that could cause a signal sent to
+the parent to be handled by both parent and child. Signals are now blocked
+briefly around fork to prevent this from happening [perl #82580].
+
+=item *
+
+The implementation of code blocks in regular expressions, such as C<(?{})>
+and C<(??{})>, has been heavily reworked to eliminate a whole slew of bugs.
+The main user-visible changes are:
+
+=over 4
+
+=item *
+
+Code blocks within patterns are now parsed in the same pass as the
+surrounding code; in particular it is no longer necessary to have balanced
+braces: this now works:
+
+    /(?{  $x='{'  })/
+
+This means that this error message is no longer generated:
+
+    Sequence (?{...}) not terminated or not {}-balanced in regex
+
+but a new error may be seen:
+
+    Sequence (?{...}) not terminated with ')'
+
+In addition, literal code blocks within run-time patterns are only
+compiled once, at perl compile-time:
+
+    for my $p (...) {
+        # this 'FOO' block of code is compiled once,
+	# at the same time as the surrounding 'for' loop
+        /$p{(?{FOO;})/;
+    }
+
+=item *
+
+Lexical variables are now sane as regards scope, recursion and closure
+behavior. In particular, C</A(?{B})C/> behaves (from a closure viewpoint)
+exactly like C</A/ && do { B } && /C/>, while  C<qr/A(?{B})C/> is like
+C<sub {/A/ && do { B } && /C/}>. So this code now works how you might
+expect, creating three regexes that match 0, 1, and 2:
+
+    for my $i (0..2) {
+        push @r, qr/^(??{$i})$/;
+    }
+    "1" =~ $r[1]; # matches
+
+=item *
+
+The C<use re 'eval'> pragma is now only required for code blocks defined
+at runtime; in particular in the following, the text of the C<$r> pattern is
+still interpolated into the new pattern and recompiled, but the individual
+compiled code-blocks within C<$r> are reused rather than being recompiled,
+and C<use re 'eval'> isn't needed any more:
+
+    my $r = qr/abc(?{....})def/;
+    /xyz$r/;
+
+=item *
+
+Flow control operators no longer crash. Each code block runs in a new
+dynamic scope, so C<next> etc. will not see
+any enclosing loops. C<return> returns a value
+from the code block, not from any enclosing subroutine.
+
+=item *
+
+Perl normally caches the compilation of run-time patterns, and doesn't
+recompile if the pattern hasn't changed, but this is now disabled if
+required for the correct behavior of closures. For example:
+
+    my $code = '(??{$x})';
+    for my $x (1..3) {
+	# recompile to see fresh value of $x each time
+        $x =~ /$code/;
+    }
+
+=item *
+
+The C</msix> and C<(?msix)> etc. flags are now propagated into the return
+value from C<(??{})>; this now works:
+
+    "AB" =~ /a(??{'b'})/i;
+
+=item *
+
+Warnings and errors will appear to come from the surrounding code (or for
+run-time code blocks, from an eval) rather than from an C<re_eval>:
+
+    use re 'eval'; $c = '(?{ warn "foo" })'; /$c/;
+    /(?{ warn "foo" })/;
+
+formerly gave:
+
+    foo at (re_eval 1) line 1.
+    foo at (re_eval 2) line 1.
+
+and now gives:
+
+    foo at (eval 1) line 1.
+    foo at /some/prog line 2.
+
+=back
+
+=item *
+
+Perl now can be recompiled to use any Unicode version.  In v5.16, it
+worked on Unicodes 6.0 and 6.1, but there were various bugs if earlier
+releases were used; the older the release the more problems.
+
+=item *
+
+C<vec> no longer produces "uninitialized" warnings in lvalue context
+[perl #9423].
+
+=item *
+
+An optimization involving fixed strings in regular expressions could cause
+a severe performance penalty in edge cases.  This has been fixed
+[perl #76546].
+
+=item *
+
+In certain cases, including empty subpatterns within a regular expression (such
+as C<(?:)> or C<(?:|)>) could disable some optimizations. This has been fixed.
+
+=item *
+
+The "Can't find an opnumber" message that C<prototype> produces when passed
+a string like "CORE::nonexistent_keyword" now passes UTF-8 and embedded
+NULs through unchanged [perl #97478].
+
+=item *
+
+C<prototype> now treats magical variables like C<$1> the same way as
+non-magical variables when checking for the CORE:: prefix, instead of
+treating them as subroutine names.
+
+=item *
+
+Under threaded perls, a runtime code block in a regular expression could
+corrupt the package name stored in the op tree, resulting in bad reads
+in C<caller>, and possibly crashes [perl #113060].
+
+=item *
+
+Referencing a closure prototype (C<\&{$_[1]}> in an attribute handler for a
+closure) no longer results in a copy of the subroutine (or assertion
+failures on debugging builds).
+
+=item *
+
+C<eval '__PACKAGE__'> now returns the right answer on threaded builds if
+the current package has been assigned over (as in
+C<*ThisPackage:: = *ThatPackage::>) [perl #78742].
+
+=item *
+
+If a package is deleted by code that it calls, it is possible for C<caller>
+to see a stack frame belonging to that deleted package.  C<caller> could
+crash if the stash's memory address was reused for a scalar and a
+substitution was performed on the same scalar [perl #113486].
+
+=item *
+
+C<UNIVERSAL::can> no longer treats its first argument differently
+depending on whether it is a string or number internally.
+
+=item *
+
+C<open> with C<< <& >> for the mode checks to see whether the third argument is
+a number, in determining whether to treat it as a file descriptor or a handle
+name.  Magical variables like C<$1> were always failing the numeric check and
+being treated as handle names.
+
+=item *
+
+C<warn>'s handling of magical variables (C<$1>, ties) has undergone several
+fixes.  C<FETCH> is only called once now on a tied argument or a tied C<$@>
+[perl #97480].  Tied variables returning objects that stringify as "" are
+no longer ignored.  A tied C<$@> that happened to return a reference the
+I<previous> time it was used is no longer ignored.
+
+=item *
+
+C<warn ""> now treats C<$@> with a number in it the same way, regardless of
+whether it happened via C<$@=3> or C<$@="3">.  It used to ignore the
+former.  Now it appends "\t...caught", as it has always done with
+C<$@="3">.
+
+=item *
+
+Numeric operators on magical variables (e.g., S<C<$1 + 1>>) used to use
+floating point operations even where integer operations were more appropriate,
+resulting in loss of accuracy on 64-bit platforms [perl #109542].
+
+=item *
+
+Unary negation no longer treats a string as a number if the string happened
+to be used as a number at some point.  So, if C<$x> contains the string "dogs",
+C<-$x> returns "-dogs" even if C<$y=0+$x> has happened at some point.
+
+=item *
+
+In Perl v5.14, C<-'-10'> was fixed to return "10", not "+10".  But magical
+variables (C<$1>, ties) were not fixed till now [perl #57706].
+
+=item *
+
+Unary negation now treats strings consistently, regardless of the internal
+C<UTF8> flag.
+
+=item *
+
+A regression introduced in Perl v5.16.0 involving
+C<tr/I<SEARCHLIST>/I<REPLACEMENTLIST>/> has been fixed.  Only the first
+instance is supposed to be meaningful if a character appears more than
+once in C<I<SEARCHLIST>>.  Under some circumstances, the final instance
+was overriding all earlier ones.  [perl #113584]
+
+=item *
+
+Regular expressions like C<qr/\87/> previously silently inserted a NUL
+character, thus matching as if it had been written C<qr/\00087/>.  Now it
+matches as if it had been written as C<qr/87/>, with a message that the
+sequence C<"\8"> is unrecognized.
+
+=item *
+
+C<__SUB__> now works in special blocks (C<BEGIN>, C<END>, etc.).
+
+=item *
+
+Thread creation on Windows could theoretically result in a crash if done
+inside a C<BEGIN> block.  It still does not work properly, but it no longer
+crashes [perl #111610].
+
+=item *
+
+C<\&{''}> (with the empty string) now autovivifies a stub like any other
+sub name, and no longer produces the "Unable to create sub" error
+[perl #94476].
+
+=item *
+
+A regression introduced in v5.14.0 has been fixed, in which some calls
+to the C<re> module would clobber C<$_> [perl #113750].
+
+=item *
+
+C<do FILE> now always either sets or clears C<$@>, even when the file can't be
+read. This ensures that testing C<$@> first (as recommended by the
+documentation) always returns the correct result.
+
+=item *
+
+The array iterator used for the C<each @array> construct is now correctly
+reset when C<@array> is cleared [perl #75596]. This happens, for example, when
+the array is globally assigned to, as in C<@array = (...)>, but not when its
+B<values> are assigned to. In terms of the XS API, it means that C<av_clear()>
+will now reset the iterator.
+
+This mirrors the behaviour of the hash iterator when the hash is cleared.
+
+=item *
+
+C<< $class->can >>, C<< $class->isa >>, and C<< $class->DOES >> now return
+correct results, regardless of whether that package referred to by C<$class>
+exists [perl #47113].
+
+=item *
+
+Arriving signals no longer clear C<$@> [perl #45173].
+
+=item *
+
+Allow C<my ()> declarations with an empty variable list [perl #113554].
+
+=item *
+
+During parsing, subs declared after errors no longer leave stubs
+[perl #113712].
+
+=item *
+
+Closures containing no string evals no longer hang on to their containing
+subroutines, allowing variables closed over by outer subroutines to be
+freed when the outer sub is freed, even if the inner sub still exists
+[perl #89544].
+
+=item *
+
+Duplication of in-memory filehandles by opening with a "<&=" or ">&=" mode
+stopped working properly in v5.16.0.  It was causing the new handle to
+reference a different scalar variable.  This has been fixed [perl #113764].
+
+=item *
+
+C<qr//> expressions no longer crash with custom regular expression engines
+that do not set C<offs> at regular expression compilation time
+[perl #112962].
+
+=item *
+
+C<delete local> no longer crashes with certain magical arrays and hashes
+[perl #112966].
+
+=item *
+
+C<local> on elements of certain magical arrays and hashes used not to
+arrange to have the element deleted on scope exit, even if the element did
+not exist before C<local>.
+
+=item *
+
+C<scalar(write)> no longer returns multiple items [perl #73690].
+
+=item *
+
+String to floating point conversions no longer misparse certain strings under
+C<use locale> [perl #109318].
+
+=item *
+
+C<@INC> filters that die no longer leak memory [perl #92252].
+
+=item *
+
+The implementations of overloaded operations are now called in the correct
+context. This allows, among other things, being able to properly override
+C<< <> >> [perl #47119].
+
+=item *
+
+Specifying only the C<fallback> key when calling C<use overload> now behaves
+properly [perl #113010].
+
+=item *
+
+C<< sub foo { my $a = 0; while ($a) { ... } } >> and
+C<< sub foo { while (0) { ... } } >> now return the same thing [perl #73618].
+
+=item *
+
+String negation now behaves the same under C<use integer;> as it does
+without [perl #113012].
+
+=item *
+
+C<chr> now returns the Unicode replacement character (U+FFFD) for -1,
+regardless of the internal representation.  -1 used to wrap if the argument
+was tied or a string internally.
+
+=item *
+
+Using a C<format> after its enclosing sub was freed could crash as of
+perl v5.12.0, if the format referenced lexical variables from the outer sub.
+
+=item *
+
+Using a C<format> after its enclosing sub was undefined could crash as of
+perl v5.10.0, if the format referenced lexical variables from the outer sub.
+
+=item *
+
+Using a C<format> defined inside a closure, which format references
+lexical variables from outside, never really worked unless the C<write>
+call was directly inside the closure.  In v5.10.0 it even started crashing.
+Now the copy of that closure nearest the top of the call stack is used to
+find those variables.
+
+=item *
+
+Formats that close over variables in special blocks no longer crash if a
+stub exists with the same name as the special block before the special
+block is compiled.
+
+=item *
+
+The parser no longer gets confused, treating C<eval foo ()> as a syntax
+error if preceded by C<print;> [perl #16249].
+
+=item *
+
+The return value of C<syscall> is no longer truncated on 64-bit platforms
+[perl #113980].
+
+=item *
+
+Constant folding no longer causes C<print 1 ? FOO : BAR> to print to the
+FOO handle [perl #78064].
+
+=item *
+
+C<do subname> now calls the named subroutine and uses the file name it
+returns, instead of opening a file named "subname".
+
+=item *
+
+Subroutines looked up by rv2cv check hooks (registered by XS modules) are
+now taken into consideration when determining whether C<foo bar> should be
+the sub call C<foo(bar)> or the method call C<< "bar"->foo >>.
+
+=item *
+
+C<CORE::foo::bar> is no longer treated specially, allowing global overrides
+to be called directly via C<CORE::GLOBAL::uc(...)> [perl #113016].
+
+=item *
+
+Calling an undefined sub whose typeglob has been undefined now produces the
+customary "Undefined subroutine called" error, instead of "Not a CODE
+reference".
+
+=item *
+
+Two bugs involving @ISA have been fixed.  C<*ISA = *glob_without_array> and
+C<undef *ISA; @{*ISA}> would prevent future modifications to @ISA from
+updating the internal caches used to look up methods.  The
+*glob_without_array case was a regression from Perl v5.12.
+
+=item *
+
+Regular expression optimisations sometimes caused C<$> with C</m> to
+produce failed or incorrect matches [perl #114068].
+
+=item *
+
+C<__SUB__> now works in a C<sort> block when the enclosing subroutine is
+predeclared with C<sub foo;> syntax [perl #113710].
+
+=item *
+
+Unicode properties only apply to Unicode code points, which leads to
+some subtleties when regular expressions are matched against
+above-Unicode code points.  There is a warning generated to draw your
+attention to this.  However, this warning was being generated
+inappropriately in some cases, such as when a program was being parsed.
+Non-Unicode matches such as C<\w> and C<[:word:]> should not generate the
+warning, as their definitions don't limit them to apply to only Unicode
+code points.  Now the message is only generated when matching against
+C<\p{}> and C<\P{}>.  There remains a bug, [perl #114148], for the very
+few properties in Unicode that match just a single code point.  The
+warning is not generated if they are matched against an above-Unicode
+code point.
+
+=item *
+
+Uninitialized warnings mentioning hash elements would only mention the
+element name if it was not in the first bucket of the hash, due to an
+off-by-one error.
+
+=item *
+
+A regular expression optimizer bug could cause multiline "^" to behave
+incorrectly in the presence of line breaks, such that
+C<"/\n\n" =~ m#\A(?:^/$)#im> would not match [perl #115242].
+
+=item *
+
+Failed C<fork> in list context no longer corrupts the stack.
+C<@a = (1, 2, fork, 3)> used to gobble up the 2 and assign C<(1, undef, 3)>
+if the C<fork> call failed.
+
+=item *
+
+Numerous memory leaks have been fixed, mostly involving tied variables that
+die, regular expression character classes and code blocks, and syntax
+errors.
+
+=item *
+
+Assigning a regular expression (C<${qr//}>) to a variable that happens to
+hold a floating point number no longer causes assertion failures on
+debugging builds.
+
+=item *
+
+Assigning a regular expression to a scalar containing a number no longer
+causes subsequent numification to produce random numbers.
+
+=item *
+
+Assigning a regular expression to a magic variable no longer wipes away the
+magic.  This was a regression from v5.10.
+
+=item *
+
+Assigning a regular expression to a blessed scalar no longer results in
+crashes.  This was also a regression from v5.10.
+
+=item *
+
+Regular expression can now be assigned to tied hash and array elements with
+flattening into strings.
+
+=item *
+
+Numifying a regular expression no longer results in an uninitialized
+warning.
+
+=item *
+
+Negative array indices no longer cause EXISTS methods of tied variables to
+be ignored.  This was a regression from v5.12.
+
+=item *
+
+Negative array indices no longer result in crashes on arrays tied to
+non-objects.
+
+=item *
+
+C<$byte_overload .= $utf8> no longer results in doubly-encoded UTF-8 if the
+left-hand scalar happened to have produced a UTF-8 string the last time
+overloading was invoked.
+
+=item *
+
+C<goto &sub> now uses the current value of @_, instead of using the array
+the subroutine was originally called with.  This means
+C<local @_ = (...); goto &sub> now works [perl #43077].
+
+=item *
+
+If a debugger is invoked recursively, it no longer stomps on its own
+lexical variables.  Formerly under recursion all calls would share the same
+set of lexical variables [perl #115742].
+
+=item *
+
+C<*_{ARRAY}> returned from a subroutine no longer spontaneously
+becomes empty.
+
+=item *
+
+When using C<say> to print to a tied filehandle, the value of C<$\> is
+correctly localized, even if it was previously undef.  [perl #119927]
+
+=back
+
+=head1 Known Problems
+
+=over 4
+
+=item *
+
+UTF8-flagged strings in C<%ENV> on HP-UX 11.00 are buggy
+
+The interaction of UTF8-flagged strings and C<%ENV> on HP-UX 11.00 is
+currently dodgy in some not-yet-fully-diagnosed way.  Expect test
+failures in F<t/op/magic.t>, followed by unknown behavior when storing
+wide characters in the environment.
+
+=back
+
+=head1 Obituary
+
+Hojung Yoon (AMORETTE), 24, of Seoul, South Korea, went to his long rest
+on May 8, 2013 with llama figurine and autographed TIMTOADY card.  He
+was a brilliant young Perl 5 & 6 hacker and a devoted member of
+Seoul.pm.  He programmed Perl, talked Perl, ate Perl, and loved Perl.  We
+believe that he is still programming in Perl with his broken IBM laptop
+somewhere.  He will be missed.
+
+=head1 Acknowledgements
+
+Perl v5.18.0 represents approximately 12 months of development since
+Perl v5.16.0 and contains approximately 400,000 lines of changes across
+2,100 files from 113 authors.
+
+Perl continues to flourish into its third decade thanks to a vibrant
+community of users and developers. The following people are known to
+have contributed the improvements that became Perl v5.18.0:
+
+Aaron Crane, Aaron Trevena, Abhijit Menon-Sen, Adrian M. Enache, Alan
+Haggai Alavi, Alexandr Ciornii, Andrew Tam, Andy Dougherty, Anton Nikishaev,
+Aristotle Pagaltzis, Augustina Blair, Bob Ernst, Brad Gilbert, Breno G. de
+Oliveira, Brian Carlson, Brian Fraser, Charlie Gonzalez, Chip Salzenberg, Chris
+'BinGOs' Williams, Christian Hansen, Colin Kuskie, Craig A. Berry, Dagfinn
+Ilmari Mannsåker, Daniel Dragan, Daniel Perrett, Darin McBride, Dave Rolsky,
+David Golden, David Leadbeater, David Mitchell, David Nicol, Dominic
+Hargreaves, E. Choroba, Eric Brine, Evan Miller, Father Chrysostomos, Florian
+Ragwitz, François Perrad, George Greer, Goro Fuji, H.Merijn Brand, Herbert
+Breunung, Hugo van der Sanden, Igor Zaytsev, James E Keenan, Jan Dubois,
+Jasmine Ahuja, Jerry D. Hedden, Jess Robinson, Jesse Luehrs, Joaquin Ferrero,
+Joel Berger, John Goodyear, John Peacock, Karen Etheridge, Karl Williamson,
+Karthik Rajagopalan, Kent Fredric, Leon Timmermans, Lucas Holt, Lukas Mai,
+Marcus Holland-Moritz, Markus Jansen, Martin Hasch, Matthew Horsfall, Max
+Maischein, Michael G Schwern, Michael Schroeder, Moritz Lenz, Nicholas Clark,
+Niko Tyni, Oleg Nesterov, Patrik Hägglund, Paul Green, Paul Johnson, Paul
+Marquess, Peter Martini, Rafael Garcia-Suarez, Reini Urban, Renee Baecker,
+Rhesa Rozendaal, Ricardo Signes, Robin Barker, Ronald J. Kimball, Ruslan
+Zakirov, Salvador Fandiño, Sawyer X, Scott Lanning, Sergey Alekseev, Shawn M
+Moore, Shirakata Kentaro, Shlomi Fish, Sisyphus, Smylers, Steffen Müller,
+Steve Hay, Steve Peters, Steven Schubiger, Sullivan Beck, Sven Strickroth,
+Sébastien Aperghis-Tramoni, Thomas Sibley, Tobias Leich, Tom Wyant, Tony Cook,
+Vadim Konovalov, Vincent Pit, Volker Schatz, Walt Mankowski, Yves Orton,
+Zefram.
+
+The list above is almost certainly incomplete as it is automatically generated
+from version control history. In particular, it does not include the names of
+the (very much appreciated) contributors who reported issues to the Perl bug
+tracker.
+
+Many of the changes included in this version originated in the CPAN modules
+included in Perl's core. We're grateful to the entire CPAN community for
+helping Perl to flourish.
+
+For a more complete list of all of Perl's historical contributors, please see
+the F<AUTHORS> file in the Perl source distribution.
+
+=head1 Reporting Bugs
+
+If you find what you think is a bug, you might check the articles recently
+posted to the comp.lang.perl.misc newsgroup and the perl bug database at
+http://rt.perl.org/perlbug/ .  There may also be information at
+http://www.perl.org/ , the Perl Home Page.
+
+If you believe you have an unreported bug, please run the L<perlbug> program
+included with your release.  Be sure to trim your bug down to a tiny but
+sufficient test case.  Your bug report, along with the output of C<perl -V>,
+will be sent off to perlbug@perl.org to be analysed by the Perl porting team.
+
+If the bug you are reporting has security implications, which make it
+inappropriate to send to a publicly archived mailing list, then please send it
+to perl5-security-report@perl.org.  This points to a closed subscription
+unarchived mailing list, which includes all the core committers, who will be
+able to help assess the impact of issues, figure out a resolution, and help
+co-ordinate the release of patches to mitigate or fix the problem across all
+platforms on which Perl is supported.  Please only use this address for
+security issues in the Perl core, not for modules independently distributed on
+CPAN.
+
+=head1 SEE ALSO
+
+The F<Changes> file for an explanation of how to view exhaustive details on
+what changed.
+
+The F<INSTALL> file for how to build Perl.
+
+The F<README> file for general stuff.
+
+The F<Artistic> and F<Copying> files for copyright information.
+
+=cut
diff --git a/lib/5.24.1/pod/perl5181delta.pod b/lib/5.24.1/pod/perl5181delta.pod
new file mode 100644
index 00000000..93fb2519
--- /dev/null
+++ b/lib/5.24.1/pod/perl5181delta.pod
@@ -0,0 +1,217 @@
+=encoding utf8
+
+=head1 NAME
+
+perl5181delta - what is new for perl v5.18.1
+
+=head1 DESCRIPTION
+
+This document describes differences between the 5.18.0 release and the 5.18.1
+release.
+
+If you are upgrading from an earlier release such as 5.16.0, first read
+L<perl5180delta>, which describes differences between 5.16.0 and 5.18.0.
+
+=head1 Incompatible Changes
+
+There are no changes intentionally incompatible with 5.18.0
+If any exist, they are bugs, and we request that you submit a
+report.  See L</Reporting Bugs> below.
+
+=head1 Modules and Pragmata
+
+=head2 Updated Modules and Pragmata
+
+=over 4
+
+=item *
+
+B has been upgraded from 1.42 to 1.42_01, fixing bugs related to lexical
+subroutines.
+
+=item *
+
+Digest::SHA has been upgraded from 5.84 to 5.84_01, fixing a crashing bug.
+[RT #118649]
+
+=item *
+
+Module::CoreList has been upgraded from 2.89 to 2.96.
+
+=back
+
+=head1 Platform Support
+
+=head2 Platform-Specific Notes
+
+=over 4
+
+=item AIX
+
+A rarely-encounted configuration bug in the AIX hints file has been corrected.
+
+=item MidnightBSD
+
+After a patch to the relevant hints file, perl should now build correctly on
+MidnightBSD 0.4-RELEASE.
+
+=back
+
+=head1 Selected Bug Fixes
+
+=over 4
+
+=item *
+
+Starting in v5.18.0, a construct like C</[#](?{})/x> would have its C<#>
+incorrectly interpreted as a comment.  The code block would be skipped,
+unparsed.  This has been corrected.
+
+=item *
+
+A number of memory leaks related to the new, experimental regexp bracketed
+character class feature have been plugged.
+
+=item *
+
+The OP allocation code now returns correctly aligned memory in all cases
+for C<struct pmop>. Previously it could return memory only aligned to a
+4-byte boundary, which is not correct for an ithreads build with 64 bit IVs
+on some 32 bit platforms. Notably, this caused the build to fail completely
+on sparc GNU/Linux. [RT #118055]
+
+=item *
+
+The debugger's C<man> command been fixed. It was broken in the v5.18.0
+release. The C<man> command is aliased to the names C<doc> and C<perldoc> -
+all now work again.
+
+=item *
+
+C<@_> is now correctly visible in the debugger, fixing a regression
+introduced in v5.18.0's debugger. [RT #118169]
+
+=item *
+
+Fixed a small number of regexp constructions that could either fail to
+match or crash perl when the string being matched against was
+allocated above the 2GB line on 32-bit systems. [RT #118175]
+
+=item *
+
+Perl v5.16 inadvertently introduced a bug whereby calls to XSUBs that were
+not visible at compile time were treated as lvalues and could be assigned
+to, even when the subroutine was not an lvalue sub.  This has been fixed.
+[perl #117947]
+
+=item *
+
+Perl v5.18 inadvertently introduced a bug whereby dual-vars (i.e.
+variables with both string and numeric values, such as C<$!> ) where the
+truthness of the variable was determined by the numeric value rather than
+the string value. [RT #118159]
+
+=item *
+
+Perl v5.18 inadvertently introduced a bug whereby interpolating mixed up-
+and down-graded UTF-8 strings in a regex could result in malformed UTF-8
+in the pattern: specifically if a downgraded character in the range
+C<\x80..\xff> followed a UTF-8 string, e.g.
+
+    utf8::upgrade(  my $u = "\x{e5}");
+    utf8::downgrade(my $d = "\x{e5}");
+    /$u$d/
+
+[perl #118297].
+
+=item *
+
+Lexical constants (C<my sub a() { 42 }>) no longer crash when inlined.
+
+=item *
+
+Parameter prototypes attached to lexical subroutines are now respected when
+compiling sub calls without parentheses.  Previously, the prototypes were
+honoured only for calls I<with> parentheses. [RT #116735]
+
+=item *
+
+Syntax errors in lexical subroutines in combination with calls to the same
+subroutines no longer cause crashes at compile time.
+
+=item *
+
+The dtrace sub-entry probe now works with lexical subs, instead of
+crashing [perl #118305].
+
+=item *
+
+Undefining an inlinable lexical subroutine (C<my sub foo() { 42 } undef
+&foo>) would result in a crash if warnings were turned on.
+
+=item *
+
+Deep recursion warnings no longer crash lexical subroutines. [RT #118521]
+
+=back
+
+=head1 Acknowledgements
+
+Perl 5.18.1 represents approximately 2 months of development since Perl 5.18.0
+and contains approximately 8,400 lines of changes across 60 files from 12
+authors.
+
+Perl continues to flourish into its third decade thanks to a vibrant community
+of users and developers. The following people are known to have contributed the
+improvements that became Perl 5.18.1:
+
+Chris 'BinGOs' Williams, Craig A. Berry, Dagfinn Ilmari Mannsåker, David
+Mitchell, Father Chrysostomos, Karl Williamson, Lukas Mai, Nicholas Clark,
+Peter Martini, Ricardo Signes, Shlomi Fish, Tony Cook.
+
+The list above is almost certainly incomplete as it is automatically generated
+from version control history. In particular, it does not include the names of
+the (very much appreciated) contributors who reported issues to the Perl bug
+tracker.
+
+Many of the changes included in this version originated in the CPAN modules
+included in Perl's core. We're grateful to the entire CPAN community for
+helping Perl to flourish.
+
+For a more complete list of all of Perl's historical contributors, please see
+the F<AUTHORS> file in the Perl source distribution.
+
+=head1 Reporting Bugs
+
+If you find what you think is a bug, you might check the articles recently
+posted to the comp.lang.perl.misc newsgroup and the perl bug database at
+http://rt.perl.org/perlbug/ .  There may also be information at
+http://www.perl.org/ , the Perl Home Page.
+
+If you believe you have an unreported bug, please run the L<perlbug> program
+included with your release.  Be sure to trim your bug down to a tiny but
+sufficient test case.  Your bug report, along with the output of C<perl -V>,
+will be sent off to perlbug@perl.org to be analysed by the Perl porting team.
+
+If the bug you are reporting has security implications, which make it
+inappropriate to send to a publicly archived mailing list, then please send it
+to perl5-security-report@perl.org.  This points to a closed subscription
+unarchived mailing list, which includes all the core committers, who will be
+able to help assess the impact of issues, figure out a resolution, and help
+co-ordinate the release of patches to mitigate or fix the problem across all
+platforms on which Perl is supported.  Please only use this address for
+security issues in the Perl core, not for modules independently distributed on
+CPAN.
+
+=head1 SEE ALSO
+
+The F<Changes> file for an explanation of how to view exhaustive details on
+what changed.
+
+The F<INSTALL> file for how to build Perl.
+
+The F<README> file for general stuff.
+
+The F<Artistic> and F<Copying> files for copyright information.
+
+=cut
diff --git a/lib/5.24.1/pod/perl5182delta.pod b/lib/5.24.1/pod/perl5182delta.pod
new file mode 100644
index 00000000..53c5de6f
--- /dev/null
+++ b/lib/5.24.1/pod/perl5182delta.pod
@@ -0,0 +1,175 @@
+=encoding utf8
+
+=head1 NAME
+
+perl5182delta - what is new for perl v5.18.2
+
+=head1 DESCRIPTION
+
+This document describes differences between the 5.18.1 release and the 5.18.2
+release.
+
+If you are upgrading from an earlier release such as 5.18.0, first read
+L<perl5181delta>, which describes differences between 5.18.0 and 5.18.1.
+
+=head1 Modules and Pragmata
+
+=head2 Updated Modules and Pragmata
+
+=over 4
+
+=item *
+
+L<B> has been upgraded from version 1.42_01 to 1.42_02.
+
+The fix for [perl #118525] introduced a regression in the behaviour of
+C<B::CV::GV>, changing the return value from a C<B::SPECIAL> object on
+a C<NULL> C<CvGV> to C<undef>.  C<B::CV::GV> again returns a
+C<B::SPECIAL> object in this case.  [perl #119413]
+
+=item *
+
+L<B::Concise> has been upgraded from version 0.95 to 0.95_01.
+
+This fixes a bug in dumping unexpected SPECIALs.
+
+=item *
+
+L<English> has been upgraded from version 1.06 to 1.06_01.  This fixes an
+error about the performance of C<$`>, C<$&>, and C<$'>.
+
+=item *
+
+L<File::Glob> has been upgraded from version 1.20 to 1.20_01.
+
+=back
+
+=head1 Documentation
+
+=head2 Changes to Existing Documentation
+
+=over 4
+
+=item *
+
+L<perlrepository> has been restored with a pointer to more useful pages.
+
+=item *
+
+L<perlhack> has been updated with the latest changes from blead.
+
+=back
+
+=head1 Selected Bug Fixes
+
+=over 4
+
+=item *
+
+Perl 5.18.1 introduced a regression along with a bugfix for lexical subs.
+Some B::SPECIAL results from B::CV::GV became undefs instead.  This broke
+Devel::Cover among other libraries.  This has been fixed.  [perl #119351]
+
+=item *
+
+Perl 5.18.0 introduced a regression whereby C<[:^ascii:]>, if used in the same
+character class as other qualifiers, would fail to match characters in the
+Latin-1 block.  This has been fixed.  [perl #120799]
+
+=item *
+
+Perl 5.18.0 introduced a regression when using ->SUPER::method with AUTOLOAD
+by looking up AUTOLOAD from the current package, rather than the current
+package’s superclass.  This has been fixed. [perl #120694]
+
+=item *
+
+Perl 5.18.0 introduced a regression whereby C<-bareword> was no longer
+permitted under the C<strict> and C<integer> pragmata when used together.  This
+has been fixed.  [perl #120288]
+
+=item *
+
+Previously PerlIOBase_dup didn't check if pushing the new layer succeeded
+before (optionally) setting the utf8 flag. This could cause
+segfaults-by-nullpointer.  This has been fixed.
+
+=item *
+
+A buffer overflow with very long identifiers has been fixed.
+
+=item *
+
+A regression from 5.16 in the handling of padranges led to assertion failures
+if a keyword plugin declined to handle the second ‘my’, but only after creating
+a padop.
+
+This affected, at least, Devel::CallParser under threaded builds.
+
+This has been fixed.
+
+=item *
+
+The construct C<< $r=qr/.../; /$r/p >> is now handled properly, an issue which
+had been worsened by changes 5.18.0. [perl #118213]
+
+=back
+
+=head1 Acknowledgements
+
+Perl 5.18.2 represents approximately 3 months of development since Perl
+5.18.1 and contains approximately 980 lines of changes across 39 files from 4
+authors.
+
+Perl continues to flourish into its third decade thanks to a vibrant
+community of users and developers. The following people are known to have
+contributed the improvements that became Perl 5.18.2:
+
+Craig A. Berry, David Mitchell, Ricardo Signes, Tony Cook.
+
+The list above is almost certainly incomplete as it is automatically
+generated from version control history. In particular, it does not include
+the names of the (very much appreciated) contributors who reported issues to
+the Perl bug tracker.
+
+Many of the changes included in this version originated in the CPAN modules
+included in Perl's core. We're grateful to the entire CPAN community for
+helping Perl to flourish.
+
+For a more complete list of all of Perl's historical contributors, please see
+the F<AUTHORS> file in the Perl source distribution.
+
+=head1 Reporting Bugs
+
+If you find what you think is a bug, you might check the articles recently
+posted to the comp.lang.perl.misc newsgroup and the perl bug database at
+http://rt.perl.org/perlbug/ .  There may also be information at
+http://www.perl.org/ , the Perl Home Page.
+
+If you believe you have an unreported bug, please run the L<perlbug> program
+included with your release.  Be sure to trim your bug down to a tiny but
+sufficient test case.  Your bug report, along with the output of C<perl -V>,
+will be sent off to perlbug@perl.org to be analysed by the Perl porting team.
+
+If the bug you are reporting has security implications, which make it
+inappropriate to send to a publicly archived mailing list, then please send it
+to perl5-security-report@perl.org.  This points to a closed subscription
+unarchived mailing list, which includes all the core committers, who will be
+able to help assess the impact of issues, figure out a resolution, and help
+co-ordinate the release of patches to mitigate or fix the problem across all
+platforms on which Perl is supported.  Please only use this address for
+security issues in the Perl core, not for modules independently distributed on
+CPAN.
+
+=head1 SEE ALSO
+
+The F<Changes> file for an explanation of how to view exhaustive details on
+what changed.
+
+The F<INSTALL> file for how to build Perl.
+
+The F<README> file for general stuff.
+
+The F<Artistic> and F<Copying> files for copyright information.
+
+=cut
diff --git a/lib/5.24.1/pod/perl5184delta.pod b/lib/5.24.1/pod/perl5184delta.pod
new file mode 100644
index 00000000..3f1b3a37
--- /dev/null
+++ b/lib/5.24.1/pod/perl5184delta.pod
@@ -0,0 +1,153 @@
+=encoding utf8
+
+=head1 NAME
+
+perl5184delta - what is new for perl v5.18.4
+
+=head1 DESCRIPTION
+
+This document describes differences between the 5.18.4 release and the 5.18.2
+release.  B<Please note:>  This document ignores perl 5.18.3, a broken release
+which existed for a few hours only.
+
+If you are upgrading from an earlier release such as 5.18.1, first read
+L<perl5182delta>, which describes differences between 5.18.1 and 5.18.2.
+
+=head1 Modules and Pragmata
+
+=head2 Updated Modules and Pragmata
+
+=over 4
+
+=item *
+
+L<Digest::SHA> has been upgraded from 5.84_01 to 5.84_02.
+
+=item *
+
+L<perl5db.pl> has been upgraded from version 1.39_10 to 1.39_11.
+
+This fixes a crash in tab completion, where available. [perl #120827]  Also,
+filehandle information is properly reset after a pager is run. [perl #121456]
+
+=back
+
+=head1 Platform Support
+
+=head2 Platform-Specific Notes
+
+=over 4
+
+=item Win32
+
+=over 4
+
+=item *
+
+Introduced by
+L<perl #113536|https://rt.perl.org/Public/Bug/Display.html?id=113536>, a memory
+leak on every call to C<system> and backticks (C< `` >), on most Win32 Perls
+starting from 5.18.0 has been fixed.  The memory leak only occurred if you
+enabled psuedo-fork in your build of Win32 Perl, and were running that build on
+Server 2003 R2 or newer OS.  The leak does not appear on WinXP SP3.
+[L<perl #121676|https://rt.perl.org/Public/Bug/Display.html?id=121676>]
+
+=back
+
+=back
+
+=head1 Selected Bug Fixes
+
+=over 4
+
+=item *
+
+The debugger now properly resets filehandles as needed. [perl #121456]
+
+=item *
+
+A segfault in Digest::SHA has been addressed.  [perl #121421]
+
+=item *
+
+perl can again be built with USE_64_BIT_INT, with Visual C 2003, 32 bit.
+[perl #120925]
+
+=item *
+
+A leading { (brace) in formats is properly parsed again. [perl #119973]
+
+=item *
+
+Copy the values used to perturb hash iteration when cloning an
+interpreter.  This was fairly harmless but caused C<valgrind> to
+complain. [perl #121336]
+
+=item *
+
+In Perl v5.18 C<undef *_; goto &sub> and C<local *_; goto &sub> started
+crashing.  This has been fixed. [perl #119949]
+
+=back
+
+=head1 Acknowledgements
+
+Perl 5.18.4 represents approximately 9 months of development since Perl 5.18.2
+and contains approximately 2,000 lines of changes across 53 files from 13
+authors.
+
+Perl continues to flourish into its third decade thanks to a vibrant community
+of users and developers. The following people are known to have contributed the
+improvements that became Perl 5.18.4:
+
+Daniel Dragan, David Mitchell, Doug Bell, Father Chrysostomos, Hiroo Hayashi,
+James E Keenan, Karl Williamson, Mark Shelor, Ricardo Signes, Shlomi Fish,
+Smylers, Steve Hay, Tony Cook.
+
+The list above is almost certainly incomplete as it is automatically generated
+from version control history. In particular, it does not include the names of
+the (very much appreciated) contributors who reported issues to the Perl bug
+tracker.
+
+Many of the changes included in this version originated in the CPAN modules
+included in Perl's core. We're grateful to the entire CPAN community for
+helping Perl to flourish.
+
+For a more complete list of all of Perl's historical contributors, please see
+the F<AUTHORS> file in the Perl source distribution.
+
+=head1 Reporting Bugs
+
+If you find what you think is a bug, you might check the articles recently
+posted to the comp.lang.perl.misc newsgroup and the perl bug database at
+http://rt.perl.org/perlbug/ .  There may also be information at
+http://www.perl.org/ , the Perl Home Page.
+
+If you believe you have an unreported bug, please run the L<perlbug> program
+included with your release.  Be sure to trim your bug down to a tiny but
+sufficient test case.  Your bug report, along with the output of C<perl -V>,
+will be sent off to perlbug@perl.org to be analysed by the Perl porting team.
+
+If the bug you are reporting has security implications, which make it
+inappropriate to send to a publicly archived mailing list, then please send it
+to perl5-security-report@perl.org.  This points to a closed subscription
+unarchived mailing list, which includes all the core committers, who will be
+able to help assess the impact of issues, figure out a resolution, and help
+co-ordinate the release of patches to mitigate or fix the problem across all
+platforms on which Perl is supported.  Please only use this address for
+security issues in the Perl core, not for modules independently distributed on
+CPAN.
+
+=head1 SEE ALSO
+
+The F<Changes> file for an explanation of how to view exhaustive details on
+what changed.
+
+The F<INSTALL> file for how to build Perl.
+
+The F<README> file for general stuff.
+
+The F<Artistic> and F<Copying> files for copyright information.
+
+=cut
+
diff --git a/lib/5.24.1/pod/perl5200delta.pod b/lib/5.24.1/pod/perl5200delta.pod
new file mode 100644
index 00000000..874d8d10
--- /dev/null
+++ b/lib/5.24.1/pod/perl5200delta.pod
@@ -0,0 +1,3728 @@
+=encoding utf8
+
+=head1 NAME
+
+perl5200delta - what is new for perl v5.20.0
+
+=head1 DESCRIPTION
+
+This document describes differences between the 5.18.0 release and the
+5.20.0 release.
+
+If you are upgrading from an earlier release such as 5.16.0, first read
+L<perl5180delta>, which describes differences between 5.16.0 and 5.18.0.
+
+=head1 Core Enhancements
+
+=head2 Experimental Subroutine signatures
+
+Declarative syntax to unwrap argument list into lexical variables.
+C<sub foo ($a,$b) {...}> checks the number of arguments and puts the
+arguments into lexical variables.  Signatures are not equivalent to
+the existing idiom of C<sub foo { my($a,$b) = @_; ... }>.  Signatures
+are only available by enabling a non-default feature, and generate
+warnings about being experimental.  The syntactic clash with
+prototypes is managed by disabling the short prototype syntax when
+signatures are enabled.
+
+See L<perlsub/Signatures> for details.
+
+=head2 C<sub>s now take a C<prototype> attribute
+
+When declaring or defining a C<sub>, the prototype can now be specified inside
+of a C<prototype> attribute instead of in parens following the name.
+
+For example, C<sub foo($$){}> could be rewritten as
+C<sub foo : prototype($$){}>.
+
+=head2 More consistent prototype parsing
+
+Multiple semicolons in subroutine prototypes have long been tolerated and
+treated as a single semicolon.  There was one case where this did not
+happen.  A subroutine whose prototype begins with "*" or ";*" can affect
+whether a bareword is considered a method name or sub call.  This now
+applies also to ";;;*".
+
+Whitespace has long been allowed inside subroutine prototypes, so
+C<sub( $ $ )> is equivalent to C<sub($$)>, but until now it was stripped
+when the subroutine was parsed.  Hence, whitespace was I<not> allowed in
+prototypes set by C<Scalar::Util::set_prototype>.  Now it is permitted,
+and the parser no longer strips whitespace.  This means
+C<prototype &mysub> returns the original prototype, whitespace and all.
+
+=head2 C<rand> now uses a consistent random number generator
+
+Previously perl would use a platform specific random number generator, varying
+between the libc rand(), random() or drand48().
+
+This meant that the quality of perl's random numbers would vary from platform
+to platform, from the 15 bits of rand() on Windows to 48-bits on POSIX
+platforms such as Linux with drand48().
+
+Perl now uses its own internal drand48() implementation on all platforms.  This
+does not make perl's C<rand> cryptographically secure.  [perl #115928]
+
+=head2 New slice syntax
+
+The new C<%hash{...}> and C<%array[...]> syntax returns a list of key/value (or
+index/value) pairs.  See L<perldata/"Key/Value Hash Slices">.
+
+=head2 Experimental Postfix Dereferencing
+
+When the C<postderef> feature is in effect, the following syntactical
+equivalencies are set up:
+
+  $sref->$*;  # same as ${ $sref }  # interpolates
+  $aref->@*;  # same as @{ $aref }  # interpolates
+  $href->%*;  # same as %{ $href }
+  $cref->&*;  # same as &{ $cref }
+  $gref->**;  # same as *{ $gref }
+
+  $aref->$#*; # same as $#{ $aref }
+
+  $gref->*{ $slot }; # same as *{ $gref }{ $slot }
+
+  $aref->@[ ... ];  # same as @$aref[ ... ]  # interpolates
+  $href->@{ ... };  # same as @$href{ ... }  # interpolates
+  $aref->%[ ... ];  # same as %$aref[ ... ]
+  $href->%{ ... };  # same as %$href{ ... }
+
+Those marked as interpolating only interpolate if the associated
+C<postderef_qq> feature is also enabled.  This feature is B<experimental> and
+will trigger C<experimental::postderef>-category warnings when used, unless
+they are suppressed.
+
+For more information, consult L<the Postfix Dereference Syntax section of
+perlref|perlref/Postfix Dereference Syntax>.
+
+=head2 Unicode 6.3 now supported
+
+Perl now supports and is shipped with Unicode 6.3 (though Perl may be
+recompiled with any previous Unicode release as well).  A detailed list of
+Unicode 6.3 changes is at L<http://www.unicode.org/versions/Unicode6.3.0/>.
+
+=head2 New C<\p{Unicode}> regular expression pattern property
+
+This is a synonym for C<\p{Any}> and matches the set of Unicode-defined
+code points 0 - 0x10FFFF.
+
+=head2 Better 64-bit support
+
+On 64-bit platforms, the internal array functions now use 64-bit offsets,
+allowing Perl arrays to hold more than 2**31 elements, if you have the memory
+available.
+
+The regular expression engine now supports strings longer than 2**31
+characters.  [perl #112790, #116907]
+
+The functions PerlIO_get_bufsiz, PerlIO_get_cnt, PerlIO_set_cnt and
+PerlIO_set_ptrcnt now have SSize_t, rather than int, return values and
+parameters.
+
+=head2 C<S<use locale>> now works on UTF-8 locales
+
+Until this release, only single-byte locales, such as the ISO 8859
+series were supported.  Now, the increasingly common multi-byte UTF-8
+locales are also supported.  A UTF-8 locale is one in which the
+character set is Unicode and the encoding is UTF-8.  The POSIX
+C<LC_CTYPE> category operations (case changing (like C<lc()>, C<"\U">),
+and character classification (C<\w>, C<\D>, C<qr/[[:punct:]]/>)) under
+such a locale work just as if not under locale, but instead as if under
+C<S<use feature 'unicode_strings'>>, except taint rules are followed.
+Sorting remains by code point order in this release.  [perl #56820].
+
+=head2 C<S<use locale>> now compiles on systems without locale ability
+
+Previously doing this caused the program to not compile.  Within its
+scope the program behaves as if in the "C" locale.  Thus programs
+written for platforms that support locales can run on locale-less
+platforms without change.  Attempts to change the locale away from the
+"C" locale will, of course, fail.
+
+=head2 More locale initialization fallback options
+
+If there was an error with locales during Perl start-up, it immediately
+gave up and tried to use the C<"C"> locale.  Now it first tries using
+other locales given by the environment variables, as detailed in
+L<perllocale/ENVIRONMENT>.  For example, if C<LC_ALL> and C<LANG> are
+both set, and using the C<LC_ALL> locale fails, Perl will now try the
+C<LANG> locale, and only if that fails, will it fall back to C<"C">.  On
+Windows machines, Perl will try, ahead of using C<"C">, the system
+default locale if all the locales given by environment variables fail.
+
+=head2 C<-DL> runtime option now added for tracing locale setting
+
+This is designed for Perl core developers to aid in field debugging bugs
+regarding locales.
+
+=head2 B<-F> now implies B<-a> and B<-a> implies B<-n>
+
+Previously B<-F> without B<-a> was a no-op, and B<-a> without B<-n> or B<-p>
+was a no-op, with this change, if you supply B<-F> then both B<-a> and B<-n>
+are implied and if you supply B<-a> then B<-n> is implied.
+
+You can still use B<-p> for its extra behaviour. [perl #116190]
+
+=head2 $a and $b warnings exemption
+
+The special variables $a and $b, used in C<sort>, are now exempt from "used
+once" warnings, even where C<sort> is not used.  This makes it easier for
+CPAN modules to provide functions using $a and $b for similar purposes.
+[perl #120462]
+
+=head1 Security
+
+=head2 Avoid possible read of free()d memory during parsing
+
+It was possible that free()d memory could be read during parsing in the unusual
+circumstance of the Perl program ending with a heredoc and the last line of the
+file on disk having no terminating newline character.  This has now been fixed.
+
+=head1 Incompatible Changes
+
+=head2 C<do> can no longer be used to call subroutines
+
+The C<do SUBROUTINE(LIST)> form has resulted in a deprecation warning
+since Perl v5.0.0, and is now a syntax error.
+
+=head2 Quote-like escape changes
+
+The character after C<\c> in a double-quoted string ("..." or qq(...))
+or regular expression must now be a printable character and may not be
+C<{>.
+
+A literal C<{> after C<\B> or C<\b> is now fatal.
+
+These were deprecated in perl v5.14.0.
+
+=head2 Tainting happens under more circumstances; now conforms to documentation
+
+This affects regular expression matching and changing the case of a
+string (C<lc>, C<"\U">, I<etc>.) within the scope of C<use locale>.
+The result is now tainted based on the operation, no matter what the
+contents of the string were, as the documentation (L<perlsec>,
+L<perllocale/SECURITY>) indicates it should.  Previously, for the case
+change operation, if the string contained no characters whose case
+change could be affected by the locale, the result would not be tainted.
+For example, the result of C<uc()> on an empty string or one containing
+only above-Latin1 code points is now tainted, and wasn't before.  This
+leads to more consistent tainting results.  Regular expression patterns
+taint their non-binary results (like C<$&>, C<$2>) if and only if the
+pattern contains elements whose matching depends on the current
+(potentially tainted) locale.  Like the case changing functions, the
+actual contents of the string being matched now do not matter, whereas
+formerly it did.  For example, if the pattern contains a C<\w>, the
+results will be tainted even if the match did not have to use that
+portion of the pattern to succeed or fail, because what a C<\w> matches
+depends on locale.  However, for example, a C<.> in a pattern will not
+enable tainting, because the dot matches any single character, and what
+the current locale is doesn't change in any way what matches and what
+doesn't.
+
+=head2 C<\p{}>, C<\P{}> matching has changed for non-Unicode code
+points.
+
+C<\p{}> and C<\P{}> are defined by Unicode only on Unicode-defined code
+points (C<U+0000> through C<U+10FFFF>).  Their behavior on matching
+these legal Unicode code points is unchanged, but there are changes for
+code points C<0x110000> and above.  Previously, Perl treated the result
+of matching C<\p{}> and C<\P{}> against these as C<undef>, which
+translates into "false".  For C<\P{}>, this was then complemented into
+"true".  A warning was supposed to be raised when this happened.
+However, various optimizations could prevent the warning, and the
+results were often counter-intuitive, with both a match and its seeming
+complement being false.  Now all non-Unicode code points are treated as
+typical unassigned Unicode code points.  This generally is more
+Do-What-I-Mean.  A warning is raised only if the results are arguably
+different from a strict Unicode approach, and from what Perl used to do.
+Code that needs to be strictly Unicode compliant can make this warning
+fatal, and then Perl always raises the warning.
+
+Details are in L<perlunicode/Beyond Unicode code points>.
+
+=head2 C<\p{All}> has been expanded to match all possible code points
+
+The Perl-defined regular expression pattern element C<\p{All}>, unused
+on CPAN, used to match just the Unicode code points; now it matches all
+possible code points; that is, it is equivalent to C<qr/./s>.  Thus
+C<\p{All}> is no longer synonymous with C<\p{Any}>, which continues to
+match just the Unicode code points, as Unicode says it should.
+
+=head2 Data::Dumper's output may change
+
+Depending on the data structures dumped and the settings set for
+Data::Dumper, the dumped output may have changed from previous
+versions.
+
+If you have tests that depend on the exact output of Data::Dumper,
+they may fail.
+
+To avoid this problem in your code, test against the data structure
+from evaluating the dumped structure, instead of the dump itself.
+
+=head2 Locale decimal point character no longer leaks outside of S<C<use locale>> scope
+
+This is actually a bug fix, but some code has come to rely on the bug
+being present, so this change is listed here.  The current locale that
+the program is running under is not supposed to be visible to Perl code
+except within the scope of a S<C<use locale>>.  However, until now under
+certain circumstances, the character used for a decimal point (often a
+comma) leaked outside the scope.  If your code is affected by this
+change, simply add a S<C<use locale>>.
+
+=head2 Assignments of Windows sockets error codes to $! now prefer F<errno.h> values over WSAGetLastError() values
+
+In previous versions of Perl, Windows sockets error codes as returned by
+WSAGetLastError() were assigned to $!, and some constants such as ECONNABORTED,
+not in F<errno.h> in VC++ (or the various Windows ports of gcc) were defined to
+corresponding WSAE* values to allow $! to be tested against the E* constants
+exported by L<Errno> and L<POSIX>.
+
+This worked well until VC++ 2010 and later, which introduced new E* constants
+with values E<gt> 100 into F<errno.h>, including some being (re)defined by perl
+to WSAE* values.  That caused problems when linking XS code against other
+libraries which used the original definitions of F<errno.h> constants.
+
+To avoid this incompatibility, perl now maps WSAE* error codes to E* values
+where possible, and assigns those values to $!.  The E* constants exported by
+L<Errno> and L<POSIX> are updated to match so that testing $! against them,
+wherever previously possible, will continue to work as expected, and all E*
+constants found in F<errno.h> are now exported from those modules with their
+original F<errno.h> values.
+
+In order to avoid breakage in existing Perl code which assigns WSAE* values to
+$!, perl now intercepts the assignment and performs the same mapping to E*
+values as it uses internally when assigning to $! itself.
+
+However, one backwards-incompatibility remains: existing Perl code which
+compares $! against the numeric values of the WSAE* error codes that were
+previously assigned to $! will now be broken in those cases where a
+corresponding E* value has been assigned instead.  This is only an issue for
+those E* values E<lt> 100, which were always exported from L<Errno> and
+L<POSIX> with their original F<errno.h> values, and therefore could not be used
+for WSAE* error code tests (e.g. WSAEINVAL is 10022, but the corresponding
+EINVAL is 22).  (E* values E<gt> 100, if present, were redefined to WSAE*
+values anyway, so compatibility can be achieved by using the E* constants,
+which will work both before and after this change, albeit using different
+numeric values under the hood.)
+
+=head2 Functions C<PerlIO_vsprintf> and C<PerlIO_sprintf> have been removed
+
+These two functions, undocumented, unused in CPAN, and problematic, have been
+removed.
+
+=head1 Deprecations
+
+=head2 The C</\C/> character class
+
+The C</\C/> regular expression character class is deprecated. From perl
+5.22 onwards it will generate a warning, and from perl 5.24 onwards it
+will be a regular expression compiler error. If you need to examine the
+individual bytes that make up a UTF8-encoded character, then use
+C<utf8::encode()> on the string (or a copy) first.
+
+=head2 Literal control characters in variable names
+
+This deprecation affects things like $\cT, where \cT is a literal control (such
+as a C<NAK> or C<NEGATIVE ACKNOWLEDGE> character) in
+the source code.  Surprisingly, it appears that originally this was intended as
+the canonical way of accessing variables like $^T, with the caret form only
+being added as an alternative.
+
+The literal control form is being deprecated for two main reasons.  It has what
+are likely unfixable bugs, such as $\cI not working as an alias for $^I, and
+their usage not being portable to non-ASCII platforms: While $^T will work
+everywhere, \cT is whitespace in EBCDIC.  [perl #119123]
+
+=head2 References to non-integers and non-positive integers in C<$/>
+
+Setting C<$/> to a reference to zero or a reference to a negative integer is
+now deprecated, and will behave B<exactly> as though it was set to C<undef>.
+If you want slurp behavior set C<$/> to C<undef> explicitly.
+
+Setting C<$/> to a reference to a non integer is now forbidden and will
+throw an error. Perl has never documented what would happen in this
+context and while it used to behave the same as setting C<$/> to
+the address of the references in future it may behave differently, so we
+have forbidden this usage.
+
+=head2 Character matching routines in POSIX
+
+Use of any of these functions in the C<POSIX> module is now deprecated:
+C<isalnum>, C<isalpha>, C<iscntrl>, C<isdigit>, C<isgraph>, C<islower>,
+C<isprint>, C<ispunct>, C<isspace>, C<isupper>, and C<isxdigit>.  The
+functions are buggy and don't work on UTF-8 encoded strings.  See their
+entries in L<POSIX> for more information.
+
+A warning is raised on the first call to any of them from each place in
+the code that they are called.  (Hence a repeated statement in a loop
+will raise just the one warning.)
+
+=head2 Interpreter-based threads are now I<discouraged>
+
+The "interpreter-based threads" provided by Perl are not the fast, lightweight
+system for multitasking that one might expect or hope for.  Threads are
+implemented in a way that make them easy to misuse.  Few people know how to
+use them correctly or will be able to provide help.
+
+The use of interpreter-based threads in perl is officially
+L<discouraged|perlpolicy/discouraged>.
+
+=head2 Module removals
+
+The following modules will be removed from the core distribution in a
+future release, and will at that time need to be installed from CPAN.
+Distributions on CPAN which require these modules will need to list them as
+prerequisites.
+
+The core versions of these modules will now issue C<"deprecated">-category
+warnings to alert you to this fact.  To silence these deprecation warnings,
+install the modules in question from CPAN.
+
+Note that the planned removal of these modules from core does not reflect a
+judgement about the quality of the code and should not be taken as a suggestion
+that their use be halted.  Their disinclusion from core primarily hinges on
+their necessity to bootstrapping a fully functional, CPAN-capable Perl
+installation, not on concerns over their design.
+
+=over
+
+=item L<CGI> and its associated CGI:: packages
+
+=item L<inc::latest>
+
+=item L<Package::Constants>
+
+=item L<Module::Build> and its associated Module::Build:: packages
+
+=back
+
+=head2 Utility removals
+
+The following utilities will be removed from the core distribution in a
+future release, and will at that time need to be installed from CPAN.
+
+=over 4
+
+=item L<find2perl>
+
+=item L<s2p>
+
+=item L<a2p>
+
+=back
+
+=head1 Performance Enhancements
+
+=over 4
+
+=item *
+
+Perl has a new copy-on-write mechanism that avoids the need to copy the
+internal string buffer when assigning from one scalar to another. This
+makes copying large strings appear much faster.  Modifying one of the two
+(or more) strings after an assignment will force a copy internally. This
+makes it unnecessary to pass strings by reference for efficiency.
+
+This feature was already available in 5.18.0, but wasn't enabled by
+default. It is the default now, and so you no longer need build perl with
+the F<Configure> argument:
+
+    -Accflags=-DPERL_NEW_COPY_ON_WRITE
+
+It can be disabled (for now) in a perl build with:
+
+    -Accflags=-DPERL_NO_COW
+
+On some operating systems Perl can be compiled in such a way that any
+attempt to modify string buffers shared by multiple SVs will crash.  This
+way XS authors can test that their modules handle copy-on-write scalars
+correctly.  See L<perlguts/"Copy on Write"> for detail.
+
+=item *
+
+Perl has an optimizer for regular expression patterns.  It analyzes the pattern
+to find things such as the minimum length a string has to be to match, etc.  It
+now better handles code points that are above the Latin1 range.
+
+=item *
+
+Executing a regex that contains the C<^> anchor (or its variant under the
+C</m> flag) has been made much faster in several situations.
+
+=item *
+
+Precomputed hash values are now used in more places during method lookup.
+
+=item *
+
+Constant hash key lookups (C<$hash{key}> as opposed to C<$hash{$key}>) have
+long had the internal hash value computed at compile time, to speed up
+lookup.  This optimisation has only now been applied to hash slices as
+well.
+
+=item *
+
+Combined C<and> and C<or> operators in void context, like those
+generated for C<< unless ($a && $b) >> and C<< if ($a || b) >> now
+short circuit directly to the end of the statement. [perl #120128]
+
+=item *
+
+In certain situations, when C<return> is the last statement in a subroutine's
+main scope, it will be optimized out. This means code like:
+
+  sub baz { return $cat; }
+
+will now behave like:
+
+  sub baz { $cat; }
+
+which is notably faster.
+
+[perl #120765]
+
+=item *
+
+Code like:
+
+  my $x; # or @x, %x
+  my $y;
+
+is now optimized to:
+
+  my ($x, $y);
+
+In combination with the L<padrange optimization introduced in
+v5.18.0|perl5180delta/Internal Changes>, this means longer uninitialized my
+variable statements are also optimized, so:
+
+  my $x; my @y; my %z;
+
+becomes:
+
+  my ($x, @y, %z);
+
+[perl #121077]
+
+=item *
+
+The creation of certain sorts of lists, including array and hash slices, is now
+faster.
+
+=item *
+
+The optimisation for arrays indexed with a small constant integer is now
+applied for integers in the range -128..127, rather than 0..255. This should
+speed up Perl code using expressions like C<$x[-1]>, at the expense of
+(presumably much rarer) code using expressions like C<$x[200]>.
+
+=item *
+
+The first iteration over a large hash (using C<keys> or C<each>) is now
+faster. This is achieved by preallocating the hash's internal iterator
+state, rather than lazily creating it when the hash is first iterated. (For
+small hashes, the iterator is still created only when first needed. The
+assumption is that small hashes are more likely to be used as objects, and
+therefore never allocated. For large hashes, that's less likely to be true,
+and the cost of allocating the iterator is swamped by the cost of allocating
+space for the hash itself.)
+
+=item *
+
+When doing a global regex match on a string that came from the C<readline>
+or C<E<lt>E<gt>> operator, the data is no longer copied unnecessarily.
+[perl #121259]
+
+=item *
+
+Dereferencing (as in C<$obj-E<gt>[0]> or C<$obj-E<gt>{k}>) is now faster
+when C<$obj> is an instance of a class that has overloaded methods, but
+doesn't overload any of the dereferencing methods C<@{}>, C<%{}>, and so on.
+
+=item *
+
+Perl's optimiser no longer skips optimising code that follows certain
+C<eval {}> expressions (including those with an apparent infinite loop).
+
+=item *
+
+The implementation now does a better job of avoiding meaningless work at
+runtime. Internal effect-free "null" operations (created as a side-effect of
+parsing Perl programs) are normally deleted during compilation. That
+deletion is now applied in some situations that weren't previously handled.
+
+=item *
+
+Perl now does less disk I/O when dealing with Unicode properties that cover
+up to three ranges of consecutive code points.
+
+=back
+
+=head1 Modules and Pragmata
+
+=head2 New Modules and Pragmata
+
+=over 4
+
+=item *
+
+L<experimental> 0.007 has been added to the Perl core.
+
+=item *
+
+L<IO::Socket::IP> 0.29 has been added to the Perl core.
+
+=back
+
+=head2 Updated Modules and Pragmata
+
+=over 4
+
+=item *
+
+L<Archive::Tar> has been upgraded from version 1.90 to 1.96.
+
+=item *
+
+L<arybase> has been upgraded from version 0.06 to 0.07.
+
+=item *
+
+L<Attribute::Handlers> has been upgraded from version 0.94 to 0.96.
+
+=item *
+
+L<attributes> has been upgraded from version 0.21 to 0.22.
+
+=item *
+
+L<autodie> has been upgraded from version 2.13 to 2.23.
+
+=item *
+
+L<AutoLoader> has been upgraded from version 5.73 to 5.74.
+
+=item *
+
+L<autouse> has been upgraded from version 1.07 to 1.08.
+
+=item *
+
+L<B> has been upgraded from version 1.42 to 1.48.
+
+=item *
+
+L<B::Concise> has been upgraded from version 0.95 to 0.992.
+
+=item *
+
+L<B::Debug> has been upgraded from version 1.18 to 1.19.
+
+=item *
+
+L<B::Deparse> has been upgraded from version 1.20 to 1.26.
+
+=item *
+
+L<base> has been upgraded from version 2.18 to 2.22.
+
+=item *
+
+L<Benchmark> has been upgraded from version 1.15 to 1.18.
+
+=item *
+
+L<bignum> has been upgraded from version 0.33 to 0.37.
+
+=item *
+
+L<Carp> has been upgraded from version 1.29 to 1.3301.
+
+=item *
+
+L<CGI> has been upgraded from version 3.63 to 3.65.
+NOTE: L<CGI> is deprecated and may be removed from a future version of Perl.
+
+=item *
+
+L<charnames> has been upgraded from version 1.36 to 1.40.
+
+=item *
+
+L<Class::Struct> has been upgraded from version 0.64 to 0.65.
+
+=item *
+
+L<Compress::Raw::Bzip2> has been upgraded from version 2.060 to 2.064.
+
+=item *
+
+L<Compress::Raw::Zlib> has been upgraded from version 2.060 to 2.065.
+
+=item *
+
+L<Config::Perl::V> has been upgraded from version 0.17 to 0.20.
+
+=item *
+
+L<constant> has been upgraded from version 1.27 to 1.31.
+
+=item *
+
+L<CPAN> has been upgraded from version 2.00 to 2.05.
+
+=item *
+
+L<CPAN::Meta> has been upgraded from version 2.120921 to 2.140640.
+
+=item *
+
+L<CPAN::Meta::Requirements> has been upgraded from version 2.122 to 2.125.
+
+=item *
+
+L<CPAN::Meta::YAML> has been upgraded from version 0.008 to 0.012.
+
+=item *
+
+L<Data::Dumper> has been upgraded from version 2.145 to 2.151.
+
+=item *
+
+L<DB> has been upgraded from version 1.04 to 1.07.
+
+=item *
+
+L<DB_File> has been upgraded from version 1.827 to 1.831.
+
+=item *
+
+L<DBM_Filter> has been upgraded from version 0.05 to 0.06.
+
+=item *
+
+L<deprecate> has been upgraded from version 0.02 to 0.03.
+
+=item *
+
+L<Devel::Peek> has been upgraded from version 1.11 to 1.16.
+
+=item *
+
+L<Devel::PPPort> has been upgraded from version 3.20 to 3.21.
+
+=item *
+
+L<diagnostics> has been upgraded from version 1.31 to 1.34.
+
+=item *
+
+L<Digest::MD5> has been upgraded from version 2.52 to 2.53.
+
+=item *
+
+L<Digest::SHA> has been upgraded from version 5.84 to 5.88.
+
+=item *
+
+L<DynaLoader> has been upgraded from version 1.18 to 1.25.
+
+=item *
+
+L<Encode> has been upgraded from version 2.49 to 2.60.
+
+=item *
+
+L<encoding> has been upgraded from version 2.6_01 to 2.12.
+
+=item *
+
+L<English> has been upgraded from version 1.06 to 1.09.
+
+C<$OLD_PERL_VERSION> was added as an alias of C<$]>.
+
+=item *
+
+L<Errno> has been upgraded from version 1.18 to 1.20_03.
+
+=item *
+
+L<Exporter> has been upgraded from version 5.68 to 5.70.
+
+=item *
+
+L<ExtUtils::CBuilder> has been upgraded from version 0.280210 to 0.280216.
+
+=item *
+
+L<ExtUtils::Command> has been upgraded from version 1.17 to 1.18.
+
+=item *
+
+L<ExtUtils::Embed> has been upgraded from version 1.30 to 1.32.
+
+=item *
+
+L<ExtUtils::Install> has been upgraded from version 1.59 to 1.67.
+
+=item *
+
+L<ExtUtils::MakeMaker> has been upgraded from version 6.66 to 6.98.
+
+=item *
+
+L<ExtUtils::Miniperl> has been upgraded from version  to 1.01.
+
+=item *
+
+L<ExtUtils::ParseXS> has been upgraded from version 3.18 to 3.24.
+
+=item *
+
+L<ExtUtils::Typemaps> has been upgraded from version 3.19 to 3.24.
+
+=item *
+
+L<ExtUtils::XSSymSet> has been upgraded from version 1.2 to 1.3.
+
+=item *
+
+L<feature> has been upgraded from version 1.32 to 1.36.
+
+=item *
+
+L<fields> has been upgraded from version 2.16 to 2.17.
+
+=item *
+
+L<File::Basename> has been upgraded from version 2.84 to 2.85.
+
+=item *
+
+L<File::Copy> has been upgraded from version 2.26 to 2.29.
+
+=item *
+
+L<File::DosGlob> has been upgraded from version 1.10 to 1.12.
+
+=item *
+
+L<File::Fetch> has been upgraded from version 0.38 to 0.48.
+
+=item *
+
+L<File::Find> has been upgraded from version 1.23 to 1.27.
+
+=item *
+
+L<File::Glob> has been upgraded from version 1.20 to 1.23.
+
+=item *
+
+L<File::Spec> has been upgraded from version 3.40 to 3.47.
+
+=item *
+
+L<File::Temp> has been upgraded from version 0.23 to 0.2304.
+
+=item *
+
+L<FileCache> has been upgraded from version 1.08 to 1.09.
+
+=item *
+
+L<Filter::Simple> has been upgraded from version 0.89 to 0.91.
+
+=item *
+
+L<Filter::Util::Call> has been upgraded from version 1.45 to 1.49.
+
+=item *
+
+L<Getopt::Long> has been upgraded from version 2.39 to 2.42.
+
+=item *
+
+L<Getopt::Std> has been upgraded from version 1.07 to 1.10.
+
+=item *
+
+L<Hash::Util::FieldHash> has been upgraded from version 1.10 to 1.15.
+
+=item *
+
+L<HTTP::Tiny> has been upgraded from version 0.025 to 0.043.
+
+=item *
+
+L<I18N::Langinfo> has been upgraded from version 0.10 to 0.11.
+
+=item *
+
+L<I18N::LangTags> has been upgraded from version 0.39 to 0.40.
+
+=item *
+
+L<if> has been upgraded from version 0.0602 to 0.0603.
+
+=item *
+
+L<inc::latest> has been upgraded from version 0.4003 to 0.4205.
+NOTE: L<inc::latest> is deprecated and may be removed from a future version of Perl.
+
+=item *
+
+L<integer> has been upgraded from version 1.00 to 1.01.
+
+=item *
+
+L<IO> has been upgraded from version 1.28 to 1.31.
+
+=item *
+
+L<IO::Compress::Gzip> and friends have been upgraded from version 2.060 to
+2.064.
+
+=item *
+
+L<IPC::Cmd> has been upgraded from version 0.80 to 0.92.
+
+=item *
+
+L<IPC::Open3> has been upgraded from version 1.13 to 1.16.
+
+=item *
+
+L<IPC::SysV> has been upgraded from version 2.03 to 2.04.
+
+=item *
+
+L<JSON::PP> has been upgraded from version 2.27202 to 2.27203.
+
+=item *
+
+L<List::Util> has been upgraded from version 1.27 to 1.38.
+
+=item *
+
+L<locale> has been upgraded from version 1.02 to 1.03.
+
+=item *
+
+L<Locale::Codes> has been upgraded from version 3.25 to 3.30.
+
+=item *
+
+L<Locale::Maketext> has been upgraded from version 1.23 to 1.25.
+
+=item *
+
+L<Math::BigInt> has been upgraded from version 1.9991 to 1.9993.
+
+=item *
+
+L<Math::BigInt::FastCalc> has been upgraded from version 0.30 to 0.31.
+
+=item *
+
+L<Math::BigRat> has been upgraded from version 0.2604 to 0.2606.
+
+=item *
+
+L<MIME::Base64> has been upgraded from version 3.13 to 3.14.
+
+=item *
+
+L<Module::Build> has been upgraded from version 0.4003 to 0.4205.
+NOTE: L<Module::Build> is deprecated and may be removed from a future version of Perl.
+
+=item *
+
+L<Module::CoreList> has been upgraded from version 2.89 to 3.10.
+
+=item *
+
+L<Module::Load> has been upgraded from version 0.24 to 0.32.
+
+=item *
+
+L<Module::Load::Conditional> has been upgraded from version 0.54 to 0.62.
+
+=item *
+
+L<Module::Metadata> has been upgraded from version 1.000011 to 1.000019.
+
+=item *
+
+L<mro> has been upgraded from version 1.11 to 1.16.
+
+=item *
+
+L<Net::Ping> has been upgraded from version 2.41 to 2.43.
+
+=item *
+
+L<Opcode> has been upgraded from version 1.25 to 1.27.
+
+=item *
+
+L<Package::Constants> has been upgraded from version 0.02 to 0.04.
+NOTE: L<Package::Constants> is deprecated and may be removed from a future version of Perl.
+
+=item *
+
+L<Params::Check> has been upgraded from version 0.36 to 0.38.
+
+=item *
+
+L<parent> has been upgraded from version 0.225 to 0.228.
+
+=item *
+
+L<Parse::CPAN::Meta> has been upgraded from version 1.4404 to 1.4414.
+
+=item *
+
+L<Perl::OSType> has been upgraded from version 1.003 to 1.007.
+
+=item *
+
+L<perlfaq> has been upgraded from version 5.0150042 to 5.0150044.
+
+=item *
+
+L<PerlIO> has been upgraded from version 1.07 to 1.09.
+
+=item *
+
+L<PerlIO::encoding> has been upgraded from version 0.16 to 0.18.
+
+=item *
+
+L<PerlIO::scalar> has been upgraded from version 0.16 to 0.18.
+
+=item *
+
+L<PerlIO::via> has been upgraded from version 0.12 to 0.14.
+
+=item *
+
+L<Pod::Escapes> has been upgraded from version 1.04 to 1.06.
+
+=item *
+
+L<Pod::Functions> has been upgraded from version 1.06 to 1.08.
+
+=item *
+
+L<Pod::Html> has been upgraded from version 1.18 to 1.21.
+
+=item *
+
+L<Pod::Parser> has been upgraded from version 1.60 to 1.62.
+
+=item *
+
+L<Pod::Perldoc> has been upgraded from version 3.19 to 3.23.
+
+=item *
+
+L<Pod::Usage> has been upgraded from version 1.61 to 1.63.
+
+=item *
+
+L<POSIX> has been upgraded from version 1.32 to 1.38_03.
+
+=item *
+
+L<re> has been upgraded from version 0.23 to 0.26.
+
+=item *
+
+L<Safe> has been upgraded from version 2.35 to 2.37.
+
+=item *
+
+L<Scalar::Util> has been upgraded from version 1.27 to 1.38.
+
+=item *
+
+L<SDBM_File> has been upgraded from version 1.09 to 1.11.
+
+=item *
+
+L<Socket> has been upgraded from version 2.009 to 2.013.
+
+=item *
+
+L<Storable> has been upgraded from version 2.41 to 2.49.
+
+=item *
+
+L<strict> has been upgraded from version 1.07 to 1.08.
+
+=item *
+
+L<subs> has been upgraded from version 1.01 to 1.02.
+
+=item *
+
+L<Sys::Hostname> has been upgraded from version 1.17 to 1.18.
+
+=item *
+
+L<Sys::Syslog> has been upgraded from version 0.32 to 0.33.
+
+=item *
+
+L<Term::Cap> has been upgraded from version 1.13 to 1.15.
+
+=item *
+
+L<Term::ReadLine> has been upgraded from version 1.12 to 1.14.
+
+=item *
+
+L<Test::Harness> has been upgraded from version 3.26 to 3.30.
+
+=item *
+
+L<Test::Simple> has been upgraded from version 0.98 to 1.001002.
+
+=item *
+
+L<Text::ParseWords> has been upgraded from version 3.28 to 3.29.
+
+=item *
+
+L<Text::Tabs> has been upgraded from version 2012.0818 to 2013.0523.
+
+=item *
+
+L<Text::Wrap> has been upgraded from version 2012.0818 to 2013.0523.
+
+=item *
+
+L<Thread> has been upgraded from version 3.02 to 3.04.
+
+=item *
+
+L<Thread::Queue> has been upgraded from version 3.02 to 3.05.
+
+=item *
+
+L<threads> has been upgraded from version 1.86 to 1.93.
+
+=item *
+
+L<threads::shared> has been upgraded from version 1.43 to 1.46.
+
+=item *
+
+L<Tie::Array> has been upgraded from version 1.05 to 1.06.
+
+=item *
+
+L<Tie::File> has been upgraded from version 0.99 to 1.00.
+
+=item *
+
+L<Tie::Hash> has been upgraded from version 1.04 to 1.05.
+
+=item *
+
+L<Tie::Scalar> has been upgraded from version 1.02 to 1.03.
+
+=item *
+
+L<Tie::StdHandle> has been upgraded from version 4.3 to 4.4.
+
+=item *
+
+L<Time::HiRes> has been upgraded from version 1.9725 to 1.9726.
+
+=item *
+
+L<Time::Piece> has been upgraded from version 1.20_01 to 1.27.
+
+=item *
+
+L<Unicode::Collate> has been upgraded from version 0.97 to 1.04.
+
+=item *
+
+L<Unicode::Normalize> has been upgraded from version 1.16 to 1.17.
+
+=item *
+
+L<Unicode::UCD> has been upgraded from version 0.51 to 0.57.
+
+=item *
+
+L<utf8> has been upgraded from version 1.10 to 1.13.
+
+=item *
+
+L<version> has been upgraded from version 0.9902 to 0.9908.
+
+=item *
+
+L<vmsish> has been upgraded from version 1.03 to 1.04.
+
+=item *
+
+L<warnings> has been upgraded from version 1.18 to 1.23.
+
+=item *
+
+L<Win32> has been upgraded from version 0.47 to 0.49.
+
+=item *
+
+L<XS::Typemap> has been upgraded from version 0.10 to 0.13.
+
+=item *
+
+L<XSLoader> has been upgraded from version 0.16 to 0.17.
+
+=back
+
+=head1 Documentation
+
+=head2 New Documentation
+
+=head3 L<perlrepository>
+
+This document was removed (actually, renamed L<perlgit> and given a major
+overhaul) in Perl v5.14, causing Perl documentation websites to show the now
+out of date version in Perl v5.12 as the latest version.  It has now been
+restored in stub form, directing readers to current information.
+
+=head2 Changes to Existing Documentation
+
+=head3 L<perldata>
+
+=over 4
+
+=item *
+
+New sections have been added to document the new index/value array slice and
+key/value hash slice syntax.
+
+=back
+
+=head3 L<perldebguts>
+
+=over 4
+
+=item *
+
+The C<DB::goto> and C<DB::lsub> debugger subroutines are now documented.  [perl
+#77680]
+
+=back
+
+=head3 L<perlexperiment>
+
+=over
+
+=item *
+
+C<\s> matching C<\cK> is marked experimental.
+
+=item *
+
+ithreads were accepted in v5.8.0 (but are discouraged as of v5.20.0).
+
+=item *
+
+Long doubles are not considered experimental.
+
+=item *
+
+Code in regular expressions, regular expression backtracking verbs,
+and lvalue subroutines are no longer listed as experimental.  (This
+also affects L<perlre> and L<perlsub>.)
+
+=back
+
+=head3 L<perlfunc>
+
+=over
+
+=item *
+
+C<chop> and C<chomp> now note that they can reset the hash iterator.
+
+=item *
+
+C<exec>'s handling of arguments is now more clearly documented.
+
+=item *
+
+C<eval EXPR> now has caveats about expanding floating point numbers in some
+locales.
+
+=item *
+
+C<goto EXPR> is now documented to handle an expression that evalutes to a
+code reference as if it was C<goto &$coderef>.  This behavior is at least ten
+years old.
+
+=item *
+
+Since Perl v5.10, it has been possible for subroutines in C<@INC> to return
+a reference to a scalar holding initial source code to prepend to the file.
+This is now documented.
+
+=item *
+
+The documentation of C<ref> has been updated to recommend the use of
+C<blessed>, C<isa> and C<reftype> when dealing with references to blessed
+objects.
+
+=back
+
+=head3 L<perlguts>
+
+=over 4
+
+=item *
+
+Numerous minor changes have been made to reflect changes made to the perl
+internals in this release.
+
+=item *
+
+New sections on L<Read-Only Values|perlguts/"Read-Only Values"> and
+L<Copy on Write|perlguts/"Copy on Write"> have been added.
+
+=back
+
+=head3 L<perlhack>
+
+=over 4
+
+=item *
+
+The L<Super Quick Patch Guide|perlhack/SUPER QUICK PATCH GUIDE> section has
+been updated.
+
+=back
+
+=head3 L<perlhacktips>
+
+=over 4
+
+=item *
+
+The documentation has been updated to include some more examples of C<gdb>
+usage.
+
+=back
+
+=head3 L<perllexwarn>
+
+=over 4
+
+=item *
+
+The L<perllexwarn> documentation used to describe the hierarchy of warning
+categories understood by the L<warnings> pragma. That description has now
+been moved to the L<warnings> documentation itself, leaving L<perllexwarn>
+as a stub that points to it. This change consolidates all documentation for
+lexical warnings in a single place.
+
+=back
+
+=head3 L<perllocale>
+
+=over
+
+=item *
+
+The documentation now mentions F<fc()> and C<\F>, and includes many
+clarifications and corrections in general.
+
+=back
+
+=head3 L<perlop>
+
+=over 4
+
+=item *
+
+The language design of Perl has always called for monomorphic operators.
+This is now mentioned explicitly.
+
+=back
+
+=head3 L<perlopentut>
+
+=over 4
+
+=item *
+
+The C<open> tutorial has been completely rewritten by Tom Christiansen, and now
+focuses on covering only the basics, rather than providing a comprehensive
+reference to all things openable.  This rewrite came as the result of a
+vigorous discussion on perl5-porters kicked off by a set of improvements
+written by Alexander Hartmaier to the existing L<perlopentut>.  A "more than
+you ever wanted to know about C<open>" document may follow in subsequent
+versions of perl.
+
+=back
+
+=head3 L<perlre>
+
+=over 4
+
+=item *
+
+The fact that the regexp engine makes no effort to call (?{}) and (??{})
+constructs any specified number of times (although it will basically DWIM
+in case of a successful match) has been documented.
+
+=item *
+
+The C</r> modifier (for non-destructive substitution) is now documented. [perl
+#119151]
+
+=item *
+
+The documentation for C</x> and C<(?# comment)> has been expanded and clarified.
+
+=back
+
+=head3 L<perlreguts>
+
+=over 4
+
+=item *
+
+The documentation has been updated in the light of recent changes to
+F<regcomp.c>.
+
+=back
+
+=head3 L<perlsub>
+
+=over 4
+
+=item *
+
+The need to predeclare recursive functions with prototypes in order for the
+prototype to be honoured in the recursive call is now documented. [perl #2726]
+
+=item *
+
+A list of subroutine names used by the perl implementation is now included.
+[perl #77680]
+
+=back
+
+=head3 L<perltrap>
+
+=over 4
+
+=item *
+
+There is now a L<JavaScript|perltrap/JavaScript Traps> section.
+
+=back
+
+=head3 L<perlunicode>
+
+=over 4
+
+=item *
+
+The documentation has been updated to reflect C<Bidi_Class> changes in
+Unicode 6.3.
+
+=back
+
+=head3 L<perlvar>
+
+=over 4
+
+=item *
+
+A new section explaining the performance issues of $`, $& and $', including
+workarounds and changes in different versions of Perl, has been added.
+
+=item *
+
+Three L<English> variable names which have long been documented but do not
+actually exist have been removed from the documentation.  These were
+C<$OLD_PERL_VERSION>, C<$OFMT>, and C<$ARRAY_BASE>.
+
+(Actually, C<OLD_PERL_VERSION> I<does> exist, starting with this revision, but
+remained undocumented until perl 5.22.0.)
+
+=back
+
+=head3 L<perlxs>
+
+=over 4
+
+=item *
+
+Several problems in the C<MY_CXT> example have been fixed.
+
+=back
+
+=head1 Diagnostics
+
+The following additions or changes have been made to diagnostic output,
+including warnings and fatal error messages.  For the complete list of
+diagnostic messages, see L<perldiag>.
+
+=head2 New Diagnostics
+
+=head3 New Errors
+
+=over 4
+
+=item *
+
+L<delete argument is indexE<sol>value array slice, use array slice|perldiag/"delete argument is index/value array slice, use array slice">
+
+(F) You used index/value array slice syntax (C<%array[...]>) as the argument to
+C<delete>.  You probably meant C<@array[...]> with an @ symbol instead.
+
+=item *
+
+L<delete argument is keyE<sol>value hash slice, use hash slice|perldiag/"delete argument is key/value hash slice, use hash slice">
+
+(F) You used key/value hash slice syntax (C<%hash{...}>) as the argument to
+C<delete>.  You probably meant C<@hash{...}> with an @ symbol instead.
+
+=item *
+
+L<Magical list constants are not supported|perldiag/"Magical list constants are
+not supported">
+
+(F) You assigned a magical array to a stash element, and then tried to use the
+subroutine from the same slot.  You are asking Perl to do something it cannot
+do, details subject to change between Perl versions.
+
+=item *
+
+Added L<Setting $E<sol> to a %s reference is forbidden|perldiag/"Setting $E<sol> to %s reference is forbidden">
+
+=back
+
+=head3 New Warnings
+
+=over 4
+
+=item *
+
+L<%s on reference is experimental|perldiag/"push on reference is experimental">:
+
+The "auto-deref" feature is experimental.
+
+Starting in v5.14.0, it was possible to use push, pop, keys, and other
+built-in functions not only on aggregate types, but on references to
+them.  The feature was not deployed to its original intended
+specification, and now may become redundant to postfix dereferencing.
+It has always been categorized as an experimental feature, and in
+v5.20.0 is carries a warning as such.
+
+Warnings will now be issued at compile time when these operations are
+detected.
+
+  no if $] >= 5.01908, warnings => "experimental::autoderef";
+
+Consider, though, replacing the use of these features, as they may
+change behavior again before becoming stable.
+
+=item *
+
+L<A sequence of multiple spaces in a charnames alias definition is deprecated|perldiag/"A sequence of multiple spaces in a charnames alias definition is deprecated">
+
+L<Trailing white-space in a charnames alias definition is deprecated|perldiag/"Trailing white-space in a charnames alias definition is deprecated">
+
+These two deprecation warnings involving C<\N{...}> were incorrectly
+implemented.  They did not warn by default (now they do) and could not be
+made fatal via C<< use warnings FATAL => 'deprecated' >> (now they can).
+
+=item *
+
+L<Attribute prototype(%s) discards earlier prototype attribute in same sub|perldiag/"Attribute prototype(%s) discards earlier prototype attribute in same sub">
+
+(W misc) A sub was declared as C<sub foo : prototype(A) : prototype(B) {}>, for
+example.  Since each sub can only have one prototype, the earlier
+declaration(s) are discarded while the last one is applied.
+
+=item *
+
+L<Invalid \0 character in %s for %s: %s\0%s|perldiag/"Invalid \0 character in %s for %s: %s\0%s">
+
+(W syscalls) Embedded \0 characters in pathnames or other system call arguments
+produce a warning as of 5.20.  The parts after the \0 were formerly ignored by
+system calls.
+
+=item *
+
+L<Matched non-Unicode code point 0x%X against Unicode property; may not be portable|perldiag/"Matched non-Unicode code point 0x%X against Unicode property; may not be portable">.
+
+This replaces the message "Code point 0x%X is not Unicode, all \p{} matches
+fail; all \P{} matches succeed".
+
+=item *
+
+L<Missing ']' in prototype for %s : %s|perldiag/"Missing ']' in prototype for %s : %s">
+
+(W illegalproto) A grouping was started with C<[> but never closed with C<]>.
+
+=item *
+
+L<Possible precedence issue with control flow operator|perldiag/"Possible precedence issue with control flow operator">
+
+(W syntax) There is a possible problem with the mixing of a control flow
+operator (e.g. C<return>) and a low-precedence operator like C<or>.  Consider:
+
+    sub { return $a or $b; }
+
+This is parsed as:
+
+    sub { (return $a) or $b; }
+
+Which is effectively just:
+
+    sub { return $a; }
+
+Either use parentheses or the high-precedence variant of the operator.
+
+Note this may be also triggered for constructs like:
+
+    sub { 1 if die; }
+
+=item *
+
+L<Postfix dereference is experimental|perldiag/"Postfix dereference is experimental">
+
+(S experimental::postderef) This warning is emitted if you use the experimental
+postfix dereference syntax.  Simply suppress the warning if you want to use the
+feature, but know that in doing so you are taking the risk of using an
+experimental feature which may change or be removed in a future Perl version:
+
+    no warnings "experimental::postderef";
+    use feature "postderef", "postderef_qq";
+    $ref->$*;
+    $aref->@*;
+    $aref->@[@indices];
+    ... etc ...
+
+=item *
+
+L<Prototype '%s' overridden by attribute 'prototype(%s)' in %s|perldiag/"Prototype '%s' overridden by attribute 'prototype(%s)' in %s">
+
+(W prototype) A prototype was declared in both the parentheses after the sub
+name and via the prototype attribute.  The prototype in parentheses is useless,
+since it will be replaced by the prototype from the attribute before it's ever
+used.
+
+=item *
+
+L<Scalar value @%s[%s] better written as $%s[%s]|perldiag/"Scalar value @%s[%s] better written as $%s[%s]">
+
+(W syntax) In scalar context, you've used an array index/value slice (indicated
+by %) to select a single element of an array.  Generally it's better to ask for
+a scalar value (indicated by $).  The difference is that C<$foo[&bar]> always
+behaves like a scalar, both in the value it returns and when evaluating its
+argument, while C<%foo[&bar]> provides a list context to its subscript, which
+can do weird things if you're expecting only one subscript.  When called in
+list context, it also returns the index (what C<&bar> returns) in addition to
+the value.
+
+=item *
+
+L<Scalar value @%s{%s} better written as $%s{%s}|perldiag/"Scalar value @%s{%s} better written as $%s{%s}">
+
+(W syntax) In scalar context, you've used a hash key/value slice (indicated by
+%) to select a single element of a hash.  Generally it's better to ask for a
+scalar value (indicated by $).  The difference is that C<$foo{&bar}> always
+behaves like a scalar, both in the value it returns and when evaluating its
+argument, while C<@foo{&bar}> and provides a list context to its subscript,
+which can do weird things if you're expecting only one subscript.  When called
+in list context, it also returns the key in addition to the value.
+
+=item *
+
+L<Setting $E<sol> to a reference to %s as a form of slurp is deprecated, treating as undef|perldiag/"Setting $E<sol> to a reference to %s as a form of slurp is deprecated, treating as undef">
+
+=item *
+
+L<Unexpected exit %u|perldiag/"Unexpected exit %u">
+
+(S) exit() was called or the script otherwise finished gracefully when
+C<PERL_EXIT_WARN> was set in C<PL_exit_flags>.
+
+=item *
+
+L<Unexpected exit failure %d|perldiag/"Unexpected exit failure %d">
+
+(S) An uncaught die() was called when C<PERL_EXIT_WARN> was set in
+C<PL_exit_flags>.
+
+=item *
+
+L<Use of literal control characters in variable names is deprecated|perldiag/"Use of literal control characters in variable names is deprecated">
+
+(D deprecated) Using literal control characters in the source to refer to the
+^FOO variables, like $^X and ${^GLOBAL_PHASE} is now deprecated.  This only
+affects code like $\cT, where \cT is a control (like a C<SOH>) in the
+source code: ${"\cT"} and $^T remain valid.
+
+=item *
+
+L<Useless use of greediness modifier|perldiag/"Useless use of greediness modifier '%c' in regex; marked by <-- HERE in m/%s/">
+
+This fixes [Perl #42957].
+
+=back
+
+=head2 Changes to Existing Diagnostics
+
+=over 4
+
+=item *
+
+Warnings and errors from the regexp engine are now UTF-8 clean.
+
+=item *
+
+The "Unknown switch condition" error message has some slight changes.  This
+error triggers when there is an unknown condition in a C<(?(foo))> conditional.
+The error message used to read:
+
+    Unknown switch condition (?(%s in regex;
+
+But what %s could be was mostly up to luck.  For C<(?(foobar))>, you might have
+seen "fo" or "f".  For Unicode characters, you would generally get a corrupted
+string.  The message has been changed to read:
+
+    Unknown switch condition (?(...)) in regex;
+
+Additionally, the C<'E<lt>-- HERE'> marker in the error will now point to the
+correct spot in the regex.
+
+=item *
+
+The "%s "\x%X" does not map to Unicode" warning is now correctly listed as a
+severe warning rather than as a fatal error.
+
+=item *
+
+Under rare circumstances, one could get a "Can't coerce readonly REF to
+string" instead of the customary "Modification of a read-only value".  This
+alternate error message has been removed.
+
+=item *
+
+"Ambiguous use of * resolved as operator *": This and similar warnings
+about "%" and "&" used to occur in some circumstances where there was no
+operator of the type cited, so the warning was completely wrong.  This has
+been fixed [perl #117535, #76910].
+
+=item *
+
+Warnings about malformed subroutine prototypes are now more consistent in
+how the prototypes are rendered.  Some of these warnings would truncate
+prototypes containing nulls.  In other cases one warning would suppress
+another.  The warning about illegal characters in prototypes no longer says
+"after '_'" if the bad character came before the underscore.
+
+=item *
+
+L<Perl folding rules are not up-to-date for 0x%X; please use the perlbug
+utility to report; in regex; marked by <-- HERE in
+mE<sol>%sE<sol>|perldiag/"Perl folding rules are not up-to-date for 0x%X;
+please use the perlbug utility to report; in regex; marked by <-- HERE in
+m/%s/">
+
+This message is now only in the regexp category, and not in the deprecated
+category.  It is still a default (i.e., severe) warning [perl #89648].
+
+=item *
+
+L<%%s[%s] in scalar context better written as $%s[%s]|perldiag/"%%s[%s] in scalar context better written as $%s[%s]">
+
+This warning now occurs for any C<%array[$index]> or C<%hash{key}> known to
+be in scalar context at compile time.  Previously it was worded "Scalar
+value %%s[%s] better written as $%s[%s]".
+
+=item *
+
+L<Switch condition not recognized in regex; marked by <-- HERE in mE<sol>%sE<sol>|perldiag/"Switch condition not recognized in regex; marked by <-- HERE in m/%s/">:
+
+The description for this diagnostic has been extended to cover all cases where the warning may occur.
+Issues with the positioning of the arrow indicator have also been resolved.
+
+=item *
+
+The error messages for C<my($a?$b$c)> and C<my(do{})> now mention "conditional
+expression" and "do block", respectively, instead of reading 'Can't declare
+null operation in "my"'.
+
+=item *
+
+When C<use re "debug"> executes a regex containing a backreference, the
+debugging output now shows what string is being matched.
+
+=item *
+
+The now fatal error message C<Character following "\c" must be ASCII> has been
+reworded as C<Character following "\c" must be printable ASCII> to emphasize
+that in C<\cI<X>>, I<X> must be a I<printable (non-control)> ASCII character.
+
+=back
+
+=head1 Utility Changes
+
+=head3 L<a2p>
+
+=over 4
+
+=item *
+
+A possible crash from an off-by-one error when trying to access before the
+beginning of a buffer has been fixed.  [perl #120244]
+
+=back
+
+=head3 F<bisect.pl>
+
+The git bisection tool F<Porting/bisect.pl> has had many enhancements.
+
+It is provided as part of the source distribution but not installed because
+it is not self-contained as it relies on being run from within a git
+checkout. Note also that it makes no attempt to fix tests, correct runtime
+bugs or make something useful to install - its purpose is to make minimal
+changes to get any historical revision of interest to build and run as close
+as possible to "as-was", and thereby make C<git bisect> easy to use.
+
+=over 4
+
+=item *
+
+Can optionally run the test case with a timeout.
+
+=item *
+
+Can now run in-place in a clean git checkout.
+
+=item *
+
+Can run the test case under C<valgrind>.
+
+=item *
+
+Can apply user supplied patches and fixes to the source checkout before
+building.
+
+=item *
+
+Now has fixups to enable building several more historical ranges of bleadperl,
+which can be useful for pinpointing the origins of bugs or behaviour changes.
+
+=back
+
+=head3 L<find2perl>
+
+=over 4
+
+=item *
+
+L<find2perl> now handles C<?> wildcards correctly.  [perl #113054]
+
+=back
+
+=head3 L<perlbug>
+
+=over 4
+
+=item *
+
+F<perlbug> now has a C<-p> option for attaching patches with a bug report.
+
+=item *
+
+L<perlbug> has been modified to supply the report template with CRLF line
+endings on Windows.
+[L<perl #121277|https://rt.perl.org/Public/Bug/Display.html?id=121277>]
+
+=item *
+
+L<perlbug> now makes as few assumptions as possible about the encoding of the
+report.  This will likely change in the future to assume UTF-8 by default but
+allow a user override.
+
+=back
+
+=head1 Configuration and Compilation
+
+=over 4
+
+=item *
+
+The F<Makefile.PL> for L<SDBM_File> now generates a better F<Makefile>, which
+avoids a race condition during parallel makes, which could cause the build to
+fail.  This is the last known parallel make problem (on *nix platforms), and
+therefore we believe that a parallel make should now always be error free.
+
+=item *
+
+F<installperl> and F<installman>'s option handling has been refactored to use
+L<Getopt::Long>. Both are used by the F<Makefile> C<install> targets, and
+are not installed, so these changes are only likely to affect custom
+installation scripts.
+
+=over 4
+
+=item *
+
+Single letter options now also have long names.
+
+=item *
+
+Invalid options are now rejected.
+
+=item *
+
+Command line arguments that are not options are now rejected.
+
+=item *
+
+Each now has a C<--help> option to display the usage message.
+
+=back
+
+The behaviour for all valid documented invocations is unchanged.
+
+=item *
+
+Where possible, the build now avoids recursive invocations of F<make> when
+building pure-Perl extensions, without removing any parallelism from the
+build. Currently around 80 extensions can be processed directly by the
+F<make_ext.pl> tool, meaning that 80 invocations of F<make> and 160
+invocations of F<miniperl> are no longer made.
+
+=item *
+
+The build system now works correctly when compiling under GCC or Clang with
+link-time optimization enabled (the C<-flto> option). [perl #113022]
+
+=item *
+
+Distinct library basenames with C<d_libname_unique>.
+
+When compiling perl with this option, the library files for XS modules are
+named something "unique" -- for example, Hash/Util/Util.so becomes
+Hash/Util/PL_Hash__Util.so.  This behavior is similar to what currently
+happens on VMS, and serves as groundwork for the Android port.
+
+=item *
+
+C<sysroot> option to indicate the logical root directory under gcc and clang.
+
+When building with this option set, both Configure and the compilers search
+for all headers and libraries under this new sysroot, instead of /.
+
+This is a huge time saver if cross-compiling, but can also help
+on native builds if your toolchain's files have non-standard locations.
+
+=item *
+
+The cross-compilation model has been renovated.
+There's several new options, and some backwards-incompatible changes:
+
+We now build binaries for miniperl and generate_uudmap to be used on the host,
+rather than running every miniperl call on the target; this means that, short
+of 'make test', we no longer need access to the target system once Configure is
+done.  You can provide already-built binaries through the C<hostperl> and
+C<hostgenerate> options to Configure.
+
+Additionally, if targeting an EBCDIC platform from an ASCII host,
+or viceversa, you'll need to run Configure with C<-Uhostgenerate>, to
+indicate that generate_uudmap should be run on the target.
+
+Finally, there's also a way of having Configure end early, right after
+building the host binaries, by cross-compiling without specifying a
+C<targethost>.
+
+The incompatible changes include no longer using xconfig.h, xlib, or
+Cross.pm, so canned config files and Makefiles will have to be updated.
+
+=item *
+
+Related to the above, there is now a way of specifying the location of sh
+(or equivalent) on the target system: C<targetsh>.
+
+For example, Android has its sh in /system/bin/sh, so if cross-compiling
+from a more normal Unixy system with sh in /bin/sh, "targetsh" would end
+up as /system/bin/sh, and "sh" as /bin/sh.
+
+=item *
+
+By default, B<gcc> 4.9 does some optimizations that break perl.  The B<-fwrapv>
+option disables those optimizations (and probably others), so for B<gcc> 4.3
+and later (since the there might be similar problems lurking on older versions
+too, but B<-fwrapv> was broken before 4.3, and the optimizations probably won't
+go away), F<Configure> now adds B<-fwrapv> unless the user requests
+B<-fno-wrapv>, which disables B<-fwrapv>, or B<-fsanitize=undefined>, which
+turns the overflows B<-fwrapv> ignores into runtime errors.
+[L<perl #121505|https://rt.perl.org/Public/Bug/Display.html?id=121505>]
+
+=back
+
+=head1 Testing
+
+=over 4
+
+=item *
+
+The C<test.valgrind> make target now allows tests to be run in parallel.
+This target allows Perl's test suite to be run under Valgrind, which detects
+certain sorts of C programming errors, though at significant cost in running
+time. On suitable hardware, allowing parallel execution claws back a lot of
+that additional cost. [perl #121431]
+
+=item *
+
+Various tests in F<t/porting/> are no longer skipped when the perl
+F<.git> directory is outside the perl tree and pointed to by
+C<$GIT_DIR>. [perl #120505]
+
+=item *
+
+The test suite no longer fails when the user's interactive shell maintains a
+C<$PWD> environment variable, but the F</bin/sh> used for running tests
+doesn't.
+
+=back
+
+=head1 Platform Support
+
+=head2 New Platforms
+
+=over 4
+
+=item Android
+
+Perl can now be built for Android, either natively or through
+cross-compilation, for all three currently available architectures (ARM,
+MIPS, and x86), on a wide range of versions.
+
+=item Bitrig
+
+Compile support has been added for Bitrig, a fork of OpenBSD.
+
+=item FreeMiNT
+
+Support has been added for FreeMiNT, a free open-source OS for the Atari ST
+system and its successors, based on the original MiNT that was officially
+adopted by Atari.
+
+=item Synology
+
+Synology ships its NAS boxes with a lean Linux distribution (DSM) on relative
+cheap CPU's (like the Marvell Kirkwood mv6282 - ARMv5tel or Freescale QorIQ
+P1022 ppc - e500v2) not meant for workstations or development. These boxes
+should build now. The basic problems are the non-standard location for tools.
+
+=back
+
+=head2 Discontinued Platforms
+
+=over 4
+
+=item C<sfio>
+
+Code related to supporting the C<sfio> I/O system has been removed.
+
+Perl 5.004 added support to use the native API of C<sfio>, AT&T's Safe/Fast
+I/O library. This code still built with v5.8.0, albeit with many regression
+tests failing, but was inadvertently broken before the v5.8.1 release,
+meaning that it has not worked on any version of Perl released since then.
+In over a decade we have received no bug reports about this, hence it is clear
+that no-one is using this functionality on any version of Perl that is still
+supported to any degree.
+
+=item AT&T 3b1
+
+Configure support for the 3b1, also known as the AT&T Unix PC (and the similar
+AT&T 7300), has been removed.
+
+=item DG/UX
+
+DG/UX was a Unix sold by Data General. The last release was in April 2001.
+It only runs on Data General's own hardware.
+
+=item EBCDIC
+
+In the absence of a regular source of smoke reports, code intended to support
+native EBCDIC platforms will be removed from perl before 5.22.0.
+
+=back
+
+=head2 Platform-Specific Notes
+
+=over 4
+
+=item Cygwin
+
+=over 4
+
+=item *
+
+recv() on a connected handle would populate the returned sender
+address with whatever happened to be in the working buffer.  recv()
+now uses a workaround similar to the Win32 recv() wrapper and returns
+an empty string when recvfrom(2) doesn't modify the supplied address
+length. [perl #118843]
+
+=item *
+
+Fixed a build error in cygwin.c on Cygwin 1.7.28.
+
+Tests now handle the errors that occur when C<cygserver> isn't
+running.
+
+=back
+
+=item GNU/Hurd
+
+The BSD compatibility library C<libbsd> is no longer required for builds.
+
+=item Linux
+
+The hints file now looks for C<libgdbm_compat> only if C<libgdbm> itself is
+also wanted. The former is never useful without the latter, and in some
+circumstances, including it could actually prevent building.
+
+=item Mac OS
+
+The build system now honors an C<ld> setting supplied by the user running
+F<Configure>.
+
+=item MidnightBSD
+
+C<objformat> was removed from version 0.4-RELEASE of MidnightBSD and had been
+deprecated on earlier versions.  This caused the build environment to be
+erroneously configured for C<a.out> rather than C<elf>.  This has been now
+been corrected.
+
+=item Mixed-endian platforms
+
+The code supporting C<pack> and C<unpack> operations on mixed endian
+platforms has been removed. We believe that Perl has long been unable to
+build on mixed endian architectures (such as PDP-11s), so we don't think
+that this change will affect any platforms which were able to build v5.18.0.
+
+=item VMS
+
+=over 4
+
+=item *
+
+The C<PERL_ENV_TABLES> feature to control the population of %ENV at perl
+start-up was broken in Perl 5.16.0 but has now been fixed.
+
+=item *
+
+Skip access checks on remotes in opendir().  [perl #121002]
+
+=item *
+
+A check for glob metacharacters in a path returned by the
+L<C<glob()>|perlfunc/glob> operator has been replaced with a check for VMS
+wildcard characters.  This saves a significant number of unnecessary
+L<C<lstat()>|perlfunc/lstat> calls such that some simple glob operations become
+60-80% faster.
+
+=back
+
+=item Win32
+
+=over 4
+
+=item *
+
+C<rename> and C<link> on Win32 now set $! to ENOSPC and EDQUOT when
+appropriate.  [perl #119857]
+
+=item *
+
+The BUILD_STATIC and ALL_STATIC makefile options for linking some or (nearly)
+all extensions statically (into perl520.dll, and into a separate
+perl-static.exe too) were broken for MinGW builds. This has now been fixed.
+
+The ALL_STATIC option has also been improved to include the Encode and Win32
+extensions (for both VC++ and MinGW builds).
+
+=item *
+
+Support for building with Visual C++ 2013 has been added.  There are currently
+two possible test failures (see L<perlwin32/"Testing Perl on Windows">) which
+will hopefully be resolved soon.
+
+=item *
+
+Experimental support for building with Intel C++ Compiler has been added.  The
+nmake makefile (win32/Makefile) and the dmake makefile (win32/makefile.mk) can
+be used.  A "nmake test" will not pass at this time due to F<cpan/CGI/t/url.t>.
+
+=item *
+
+Killing a process tree with L<perlfunc/kill> and a negative signal, was broken
+starting in 5.18.0. In this bug, C<kill> always returned 0 for a negative
+signal even for valid PIDs, and no processes were terminated. This has been
+fixed [perl #121230].
+
+=item *
+
+The time taken to build perl on Windows has been reduced quite significantly
+(time savings in the region of 30-40% are typically seen) by reducing the
+number of, usually failing, I/O calls for each L<C<require()>|perlfunc/require>
+(for B<miniperl.exe> only).
+[L<perl #121119|https://rt.perl.org/Public/Bug/Display.html?id=121119>]
+
+=item *
+
+About 15 minutes of idle sleeping was removed from running C<make test> due to
+a bug in which the timeout monitor used for tests could not be cancelled once
+the test completes, and the full timeout period elapsed before running the next
+test file.
+[L<perl #121395|https://rt.perl.org/Public/Bug/Display.html?id=121395>]
+
+=item *
+
+On a perl built without pseudo-fork (pseudo-fork builds were not affected by
+this bug), killing a process tree with L<C<kill()>|perlfunc/kill> and a negative
+signal resulted in C<kill()> inverting the returned value.  For example, if
+C<kill()> killed 1 process tree PID then it returned 0 instead of 1, and if
+C<kill()> was passed 2 invalid PIDs then it returned 2 instead of 0.  This has
+probably been the case since the process tree kill feature was implemented on
+Win32.  It has now been corrected to follow the documented behaviour.
+[L<perl #121230|https://rt.perl.org/Public/Bug/Display.html?id=121230>]
+
+=item *
+
+When building a 64-bit perl, an uninitialized memory read in B<miniperl.exe>,
+used during the build process, could lead to a 4GB B<wperl.exe> being created.
+This has now been fixed.  (Note that B<perl.exe> itself was unaffected, but
+obviously B<wperl.exe> would have been completely broken.)
+[L<perl #121471|https://rt.perl.org/Public/Bug/Display.html?id=121471>]
+
+=item *
+
+Perl can now be built with B<gcc> version 4.8.1 from L<http://www.mingw.org>.
+This was previously broken due to an incorrect definition of DllMain() in one
+of perl's source files.  Earlier B<gcc> versions were also affected when using
+version 4 of the w32api package.  Versions of B<gcc> available from
+L<http://mingw-w64.sourceforge.net/> were not affected.
+[L<perl #121643|https://rt.perl.org/Public/Bug/Display.html?id=121643>]
+
+=item *
+
+The test harness now has no failures when perl is built on a FAT drive with the
+Windows OS on an NTFS drive.
+[L<perl #21442|https://rt.perl.org/Public/Bug/Display.html?id=21442>]
+
+=item *
+
+When cloning the context stack in fork() emulation, Perl_cx_dup()
+would crash accessing parameter information for context stack entries
+that included no parameters, as with C<&foo;>.
+[L<perl #121721|https://rt.perl.org/Public/Bug/Display.html?id=121721>]
+
+=item *
+
+Introduced by
+L<perl #113536|https://rt.perl.org/Public/Bug/Display.html?id=113536>, a memory
+leak on every call to C<system> and backticks (C< `` >), on most Win32 Perls
+starting from 5.18.0 has been fixed.  The memory leak only occurred if you
+enabled psuedo-fork in your build of Win32 Perl, and were running that build on
+Server 2003 R2 or newer OS.  The leak does not appear on WinXP SP3.
+[L<perl #121676|https://rt.perl.org/Public/Bug/Display.html?id=121676>]
+
+=back
+
+=item WinCE
+
+=over 4
+
+=item *
+
+The building of XS modules has largely been restored.  Several still cannot
+(yet) be built but it is now possible to build Perl on WinCE with only a couple
+of further patches (to L<Socket> and L<ExtUtils::MakeMaker>), hopefully to be
+incorporated soon.
+
+=item *
+
+Perl can now be built in one shot with no user intervention on WinCE by running
+C<nmake -f Makefile.ce all>.
+
+Support for building with EVC (Embedded Visual C++) 4 has been restored.  Perl
+can also be built using Smart Devices for Visual C++ 2005 or 2008.
+
+=back
+
+=back
+
+=head1 Internal Changes
+
+=over 4
+
+=item *
+
+The internal representation has changed for the match variables $1, $2 etc.,
+$`, $&, $', ${^PREMATCH}, ${^MATCH} and ${^POSTMATCH}.  It uses slightly less
+memory, avoids string comparisons and numeric conversions during lookup, and
+uses 23 fewer lines of C.  This change should not affect any external code.
+
+=item *
+
+Arrays now use NULL internally to represent unused slots, instead of
+&PL_sv_undef.  &PL_sv_undef is no longer treated as a special value, so
+av_store(av, 0, &PL_sv_undef) will cause element 0 of that array to hold a
+read-only undefined scalar.  C<$array[0] = anything> will croak and
+C<\$array[0]> will compare equal to C<\undef>.
+
+=item *
+
+The SV returned by HeSVKEY_force() now correctly reflects the UTF8ness of the
+underlying hash key when that key is not stored as a SV.  [perl #79074]
+
+=item *
+
+Certain rarely used functions and macros available to XS code are now
+deprecated.  These are:
+C<utf8_to_uvuni_buf> (use C<utf8_to_uvchr_buf> instead),
+C<valid_utf8_to_uvuni> (use C<utf8_to_uvchr_buf> instead),
+C<NATIVE_TO_NEED> (this did not work properly anyway),
+and C<ASCII_TO_NEED> (this did not work properly anyway).
+
+Starting in this release, almost never does application code need to
+distinguish between the platform's character set and Latin1, on which the
+lowest 256 characters of Unicode are based.  New code should not use
+C<utf8n_to_uvuni> (use C<utf8_to_uvchr_buf> instead),
+nor
+C<uvuni_to_utf8> (use C<uvchr_to_utf8> instead),
+
+=item *
+
+The Makefile shortcut targets for many rarely (or never) used testing and
+profiling targets have been removed, or merged into the only other Makefile
+target that uses them.  Specifically, these targets are gone, along with
+documentation that referenced them or explained how to use them:
+
+    check.third check.utf16 check.utf8 coretest minitest.prep
+    minitest.utf16 perl.config.dashg perl.config.dashpg
+    perl.config.gcov perl.gcov perl.gprof perl.gprof.config
+    perl.pixie perl.pixie.atom perl.pixie.config perl.pixie.irix
+    perl.third perl.third.config perl.valgrind.config purecovperl
+    pureperl quantperl test.deparse test.taintwarn test.third
+    test.torture test.utf16 test.utf8 test_notty.deparse
+    test_notty.third test_notty.valgrind test_prep.third
+    test_prep.valgrind torturetest ucheck ucheck.third ucheck.utf16
+    ucheck.valgrind utest utest.third utest.utf16 utest.valgrind
+
+It's still possible to run the relevant commands by "hand" - no underlying
+functionality has been removed.
+
+=item *
+
+It is now possible to keep Perl from initializing locale handling.
+For the most part, Perl doesn't pay attention to locale.  (See
+L<perllocale>.)  Nonetheless, until now, on startup, it has always
+initialized locale handling to the system default, just in case the
+program being executed ends up using locales.  (This is one of the first
+things a locale-aware program should do, long before Perl knows if it
+will actually be needed or not.)  This works well except when Perl is
+embedded in another application which wants a locale that isn't the
+system default.  Now, if the environment variable
+C<PERL_SKIP_LOCALE_INIT> is set at the time Perl is started, this
+initialization step is skipped.  Prior to this, on Windows platforms,
+the only workaround for this deficiency was to use a hacked-up copy of
+internal Perl code.  Applications that need to use older Perls can
+discover if the embedded Perl they are using needs the workaround by
+testing that the C preprocessor symbol C<HAS_SKIP_LOCALE_INIT> is not
+defined.  [RT #38193]
+
+=item *
+
+C<BmRARE> and C<BmPREVIOUS> have been removed.  They were not used anywhere
+and are not part of the API.  For XS modules, they are now #defined as 0.
+
+=item *
+
+C<sv_force_normal>, which usually croaks on read-only values, used to allow
+read-only values to be modified at compile time.  This has been changed to
+croak on read-only values regardless.  This change uncovered several core
+bugs.
+
+=item *
+
+Perl's new copy-on-write mechanism  (which is now enabled by default),
+allows any C<SvPOK> scalar to be automatically upgraded to a copy-on-write
+scalar when copied. A reference count on the string buffer is stored in
+the string buffer itself.
+
+For example:
+
+    $ perl -MDevel::Peek -e'$a="abc"; $b = $a; Dump $a; Dump $b'
+    SV = PV(0x260cd80) at 0x2620ad8
+      REFCNT = 1
+      FLAGS = (POK,IsCOW,pPOK)
+      PV = 0x2619bc0 "abc"\0
+      CUR = 3
+      LEN = 16
+      COW_REFCNT = 1
+    SV = PV(0x260ce30) at 0x2620b20
+      REFCNT = 1
+      FLAGS = (POK,IsCOW,pPOK)
+      PV = 0x2619bc0 "abc"\0
+      CUR = 3
+      LEN = 16
+      COW_REFCNT = 1
+
+Note that both scalars share the same PV buffer and have a COW_REFCNT
+greater than zero.
+
+This means that XS code which wishes to modify the C<SvPVX()> buffer of an
+SV should call C<SvPV_force()> or similar first, to ensure a valid (and
+unshared) buffer, and to call C<SvSETMAGIC()> afterwards. This in fact has
+always been the case (for example hash keys were already copy-on-write);
+this change just spreads the COW behaviour to a wider variety of SVs.
+
+One important difference is that before 5.18.0, shared hash-key scalars
+used to have the C<SvREADONLY> flag set; this is no longer the case.
+
+This new behaviour can still be disabled by running F<Configure> with
+B<-Accflags=-DPERL_NO_COW>.  This option will probably be removed in Perl
+5.22.
+
+=item *
+
+C<PL_sawampersand> is now a constant.  The switch this variable provided
+(to enable/disable the pre-match copy depending on whether C<$&> had been
+seen) has been removed and replaced with copy-on-write, eliminating a few
+bugs.
+
+The previous behaviour can still be enabled by running F<Configure> with
+B<-Accflags=-DPERL_SAWAMPERSAND>.
+
+=item *
+
+The functions C<my_swap>, C<my_htonl> and C<my_ntohl> have been removed.
+It is unclear why these functions were ever marked as I<A>, part of the
+API. XS code can't call them directly, as it can't rely on them being
+compiled. Unsurprisingly, no code on CPAN references them.
+
+=item *
+
+The signature of the C<Perl_re_intuit_start()> regex function has changed;
+the function pointer C<intuit> in the regex engine plugin structure
+has also changed accordingly. A new parameter, C<strbeg> has been added;
+this has the same meaning as the same-named parameter in
+C<Perl_regexec_flags>. Previously intuit would try to guess the start of
+the string from the passed SV (if any), and would sometimes get it wrong
+(e.g. with an overloaded SV).
+
+=item *
+
+The signature of the C<Perl_regexec_flags()> regex function has
+changed; the function pointer C<exec> in the regex engine plugin
+structure has also changed to match.  The C<minend> parameter now has
+type C<SSize_t> to better support 64-bit systems.
+
+=item *
+
+XS code may use various macros to change the case of a character or code
+point (for example C<toLOWER_utf8()>).  Only a couple of these were
+documented until now;
+and now they should be used in preference to calling the underlying
+functions.  See L<perlapi/Character case changing>.
+
+=item *
+
+The code dealt rather inconsistently with uids and gids. Some
+places assumed that they could be safely stored in UVs, others
+in IVs, others in ints. Four new macros are introduced:
+SvUID(), sv_setuid(), SvGID(), and sv_setgid()
+
+=item *
+
+C<sv_pos_b2u_flags> has been added to the API.  It is similar to C<sv_pos_b2u>,
+but supports long strings on 64-bit platforms.
+
+=item *
+
+C<PL_exit_flags> can now be used by perl embedders or other XS code to have
+perl C<warn> or C<abort> on an attempted exit. [perl #52000]
+
+=item *
+
+Compiling with C<-Accflags=-PERL_BOOL_AS_CHAR> now allows C99 and C++
+compilers to emulate the aliasing of C<bool> to C<char> that perl does for
+C89 compilers.  [perl #120314]
+
+=item *
+
+The C<sv> argument in L<perlapi/sv_2pv_flags>, L<perlapi/sv_2iv_flags>,
+L<perlapi/sv_2uv_flags>, and L<perlapi/sv_2nv_flags> and their older wrappers
+sv_2pv, sv_2iv, sv_2uv, sv_2nv, is now non-NULL. Passing NULL now will crash.
+When the non-NULL marker was introduced en masse in 5.9.3 the functions
+were marked non-NULL, but since the creation of the SV API in 5.0 alpha 2, if
+NULL was passed, the functions returned 0 or false-type values. The code that
+supports C<sv> argument being non-NULL dates to 5.0 alpha 2 directly, and
+indirectly to Perl 1.0 (pre 5.0 api). The lack of documentation that the
+functions accepted a NULL C<sv> was corrected in 5.11.0 and between 5.11.0
+and 5.19.5 the functions were marked NULLOK. As an optimization the NULLOK code
+has now been removed, and the functions became non-NULL marked again, because
+core getter-type macros never pass NULL to these functions and would crash
+before ever passing NULL.
+
+The only way a NULL C<sv> can be passed to sv_2*v* functions is if XS code
+directly calls sv_2*v*. This is unlikely as XS code uses Sv*V* macros to get
+the underlying value out of the SV. One possible situation which leads to
+a NULL C<sv> being passed to sv_2*v* functions, is if XS code defines its own
+getter type Sv*V* macros, which check for NULL B<before> dereferencing and
+checking the SV's flags through public API Sv*OK* macros or directly using
+private API C<SvFLAGS>, and if C<sv> is NULL, then calling the sv_2*v functions
+with a NULL litteral or passing the C<sv> containing a NULL value.
+
+=item *
+
+newATTRSUB is now a macro
+
+The public API newATTRSUB was previously a macro to the private
+function Perl_newATTRSUB. Function Perl_newATTRSUB has been removed. newATTRSUB
+is now macro to a different internal function.
+
+=item *
+
+Changes in warnings raised by C<utf8n_to_uvchr()>
+
+This bottom level function decodes the first character of a UTF-8 string
+into a code point.  It is accessible to C<XS> level code, but it's
+discouraged from using it directly.  There are higher level functions
+that call this that should be used instead, such as
+L<perlapi/utf8_to_uvchr_buf>.  For completeness though, this documents
+some changes to it.  Now, tests for malformations are done before any
+tests for other potential issues.  One of those issues involves code
+points so large that they have never appeared in any official standard
+(the current standard has scaled back the highest acceptable code point
+from earlier versions).  It is possible (though not done in CPAN) to
+warn and/or forbid these code points, while accepting smaller code
+points that are still above the legal Unicode maximum.  The warning
+message for this now includes the code point if representable on the
+machine.  Previously it always displayed raw bytes, which is what it
+still does for non-representable code points.
+
+=item *
+
+Regexp engine changes that affect the pluggable regex engine interface
+
+Many flags that used to be exposed via regexp.h and used to populate the
+extflags member of struct regexp have been removed. These fields were
+technically private to Perl's own regexp engine and should not have been
+exposed there in the first place.
+
+The affected flags are:
+
+    RXf_NOSCAN
+    RXf_CANY_SEEN
+    RXf_GPOS_SEEN
+    RXf_GPOS_FLOAT
+    RXf_ANCH_BOL
+    RXf_ANCH_MBOL
+    RXf_ANCH_SBOL
+    RXf_ANCH_GPOS
+
+As well as the follow flag masks:
+
+    RXf_ANCH_SINGLE
+    RXf_ANCH
+
+All have been renamed to PREGf_ equivalents and moved to regcomp.h.
+
+The behavior previously achieved by setting one or more of the RXf_ANCH_
+flags (via the RXf_ANCH mask) have now been replaced by a *single* flag bit
+in extflags:
+
+    RXf_IS_ANCHORED
+
+pluggable regex engines which previously used to set these flags should
+now set this flag ALONE.
+
+=item *
+
+The Perl core now consistently uses C<av_tindex()> ("the top index of an
+array") as a more clearly-named synonym for C<av_len()>.
+
+=item *
+
+The obscure interpreter variable C<PL_timesbuf> is expected to be removed
+early in the 5.21.x development series, so that Perl 5.22.0 will not provide
+it to XS authors.  While the variable still exists in 5.20.0, we hope that
+this advance warning of the deprecation will help anyone who is using that
+variable.
+
+=back
+
+=head1 Selected Bug Fixes
+
+=head2 Regular Expressions
+
+=over 4
+
+=item *
+
+Fixed a small number of regexp constructions that could either fail to
+match or crash perl when the string being matched against was
+allocated above the 2GB line on 32-bit systems. [RT #118175]
+
+=item *
+
+Various memory leaks involving the parsing of the C<(?[...])> regular
+expression construct have been fixed.
+
+=item *
+
+C<(?[...])> now allows interpolation of precompiled patterns consisting of
+C<(?[...])> with bracketed character classes inside (C<$pat =
+S<qr/(?[ [a] ])/;> S</(?[ $pat ])/>>).  Formerly, the brackets would
+confuse the regular expression parser.
+
+=item *
+
+The "Quantifier unexpected on zero-length expression" warning message could
+appear twice starting in Perl v5.10 for a regular expression also
+containing alternations (e.g., "a|b") triggering the trie optimisation.
+
+=item *
+
+Perl v5.18 inadvertently introduced a bug whereby interpolating mixed up-
+and down-graded UTF-8 strings in a regex could result in malformed UTF-8
+in the pattern: specifically if a downgraded character in the range
+C<\x80..\xff> followed a UTF-8 string, e.g.
+
+    utf8::upgrade(  my $u = "\x{e5}");
+    utf8::downgrade(my $d = "\x{e5}");
+    /$u$d/
+
+[RT #118297]
+
+=item *
+
+In regular expressions containing multiple code blocks, the values of
+C<$1>, C<$2>, etc., set by nested regular expression calls would leak from
+one block to the next.  Now these variables always refer to the outer
+regular expression at the start of an embedded block [perl #117917].
+
+=item *
+
+C</$qr/p> was broken in Perl 5.18.0; the C</p> flag was ignored.  This has been
+fixed. [perl #118213]
+
+=item *
+
+Starting in Perl 5.18.0, a construct like C</[#](?{})/x> would have its C<#>
+incorrectly interpreted as a comment.  The code block would be skipped,
+unparsed.  This has been corrected.
+
+=item *
+
+Starting in Perl 5.001, a regular expression like C</[#$a]/x> or C</[#]$a/x>
+would have its C<#> incorrectly interpreted as a comment, so the variable would
+not interpolate.  This has been corrected. [perl #45667]
+
+=item *
+
+Perl 5.18.0 inadvertently made dereferenced regular expressions
+S<(C<${ qr// }>)> false as booleans.  This has been fixed.
+
+=item *
+
+The use of C<\G> in regular expressions, where it's not at the start of the
+pattern, is now slightly less buggy (although it is still somewhat
+problematic).
+
+=item *
+
+Where a regular expression included code blocks (C</(?{...})/>), and where the
+use of constant overloading triggered a re-compilation of the code block, the
+second compilation didn't see its outer lexical scope.  This was a regression
+in Perl 5.18.0.
+
+=item *
+
+The string position set by C<pos> could shift if the string changed
+representation internally to or from utf8.  This could happen, e.g., with
+references to objects with string overloading.
+
+=item *
+
+Taking references to the return values of two C<pos> calls with the same
+argument, and then assigning a reference to one and C<undef> to the other,
+could result in assertion failures or memory leaks.
+
+=item *
+
+Elements of @- and @+ now update correctly when they refer to non-existent
+captures.  Previously, a referenced element (C<$ref = \$-[1]>) could refer to
+the wrong match after subsequent matches.
+
+=item *
+
+The code that parses regex backrefs (or ambiguous backref/octals) such as \123
+did a simple atoi(), which could wrap round to negative values on long digit
+strings and cause segmentation faults.  This has now been fixed.  [perl
+#119505]
+
+=item *
+
+Assigning another typeglob to C<*^R> no longer makes the regular expression
+engine crash.
+
+=item *
+
+The C<\N> regular expression escape, when used without the curly braces (to
+mean C<[^\n]>), was ignoring a following C<*> if followed by whitespace
+under /x.  It had been this way since C<\N> to mean C<[^\n]> was introduced
+in 5.12.0.
+
+=item *
+
+C<s///>, C<tr///> and C<y///> now work when a wide character is used as the
+delimiter.  [perl #120463]
+
+=item *
+
+Some cases of unterminated (?...) sequences in regular expressions (e.g.,
+C</(?</>) have been fixed to produce the proper error message instead of
+"panic: memory wrap".  Other cases (e.g., C</(?(/>) have yet to be fixed.
+
+=item *
+
+When a reference to a reference to an overloaded object was returned from
+a regular expression C<(??{...})> code block, an incorrect implicit
+dereference could take place if the inner reference had been returned by
+a code block previously.
+
+=item *
+
+A tied variable returned from C<(??{...})> sees the inner values of match
+variables (i.e., the $1 etc. from any matches inside the block) in its
+FETCH method.  This was not the case if a reference to an overloaded object
+was the last thing assigned to the tied variable.  Instead, the match
+variables referred to the outer pattern during the FETCH call.
+
+=item *
+
+Fix unexpected tainting via regexp using locale. Previously, under certain
+conditions, the use of character classes could cause tainting when it
+shouldn't. Some character classes are locale-dependent, but before this
+patch, sometimes tainting was happening even for character classes that
+don't depend on the locale. [perl #120675]
+
+=item *
+
+Under certain conditions, Perl would throw an error if in an lookbehind
+assertion in a regexp, the assertion referred to a named subpattern,
+complaining the lookbehind was variable when it wasn't. This has been
+fixed. [perl #120600], [perl #120618]. The current fix may be improved
+on in the future.
+
+=item *
+
+C<$^R> wasn't available outside of the regular expression that
+initialized it.  [perl #121070]
+
+=item *
+
+A large set of fixes and refactoring for re_intuit_start() was merged,
+the highlights are:
+
+=over
+
+=item *
+
+Fixed a panic when compiling the regular expression
+C</\x{100}[xy]\x{100}{2}/>.
+
+=item *
+
+Fixed a performance regression when performing a global pattern match
+against a UTF-8 string.  [perl #120692]
+
+=item *
+
+Fixed another performance issue where matching a regular expression
+like C</ab.{1,2}x/> against a long UTF-8 string would unnecessarily
+calculate byte offsets for a large portion of the string. [perl
+#120692]
+
+=back
+
+=item *
+
+Fixed an alignment error when compiling regular expressions when built
+with GCC on HP-UX 64-bit.
+
+=item *
+
+On 64-bit platforms C<pos> can now be set to a value higher than 2**31-1.
+[perl #72766]
+
+=back
+
+=head2 Perl 5 Debugger and -d
+
+=over 4
+
+=item *
+
+The debugger's C<man> command been fixed. It was broken in the v5.18.0
+release. The C<man> command is aliased to the names C<doc> and C<perldoc> -
+all now work again.
+
+=item *
+
+C<@_> is now correctly visible in the debugger, fixing a regression
+introduced in v5.18.0's debugger. [RT #118169]
+
+=item *
+
+Under copy-on-write builds (the default as of 5.20.0) C<< ${'_<-e'}[0] >>
+no longer gets mangled.  This is the first line of input saved for the
+debugger's use for one-liners [perl #118627].
+
+=item *
+
+On non-threaded builds, setting C<${"_E<lt>filename"}> to a reference or
+typeglob no longer causes C<__FILE__> and some error messages to produce a
+corrupt string, and no longer prevents C<#line> directives in string evals from
+providing the source lines to the debugger.  Threaded builds were unaffected.
+
+=item *
+
+Starting with Perl 5.12, line numbers were off by one if the B<-d> switch was
+used on the #! line.  Now they are correct.
+
+=item *
+
+C<*DB::DB = sub {} if 0> no longer stops Perl's debugging mode from finding
+C<DB::DB> subs declared thereafter.
+
+=item *
+
+C<%{'_<...'}> hashes now set breakpoints on the corresponding C<@{'_<...'}>
+rather than whichever array C<@DB::dbline> is aliased to.  [perl #119799]
+
+=item *
+
+Call set-magic when setting $DB::sub.  [perl #121255]
+
+=item *
+
+The debugger's "n" command now respects lvalue subroutines and steps over
+them [perl #118839].
+
+=back
+
+=head2 Lexical Subroutines
+
+=over 4
+
+=item *
+
+Lexical constants (C<my sub a() { 42 }>) no longer crash when inlined.
+
+=item *
+
+Parameter prototypes attached to lexical subroutines are now respected when
+compiling sub calls without parentheses.  Previously, the prototypes were
+honoured only for calls I<with> parentheses. [RT #116735]
+
+=item *
+
+Syntax errors in lexical subroutines in combination with calls to the same
+subroutines no longer cause crashes at compile time.
+
+=item *
+
+Deep recursion warnings no longer crash lexical subroutines. [RT #118521]
+
+=item *
+
+The dtrace sub-entry probe now works with lexical subs, instead of
+crashing [perl #118305].
+
+=item *
+
+Undefining an inlinable lexical subroutine (C<my sub foo() { 42 } undef
+&foo>) would result in a crash if warnings were turned on.
+
+=item *
+
+An undefined lexical sub used as an inherited method no longer crashes.
+
+=item *
+
+The presence of a lexical sub named "CORE" no longer stops the CORE::
+prefix from working.
+
+=back
+
+=head2 Everything Else
+
+=over 4
+
+=item *
+
+The OP allocation code now returns correctly aligned memory in all cases
+for C<struct pmop>. Previously it could return memory only aligned to a
+4-byte boundary, which is not correct for an ithreads build with 64 bit IVs
+on some 32 bit platforms. Notably, this caused the build to fail completely
+on sparc GNU/Linux. [RT #118055]
+
+=item *
+
+Evaluating large hashes in scalar context is now much faster, as the number
+of used chains in the hash is now cached for larger hashes. Smaller hashes
+continue not to store it and calculate it when needed, as this saves one IV.
+That would be 1 IV overhead for every object built from a hash. [RT #114576]
+
+=item *
+
+Perl v5.16 inadvertently introduced a bug whereby calls to XSUBs that were
+not visible at compile time were treated as lvalues and could be assigned
+to, even when the subroutine was not an lvalue sub.  This has been fixed.
+[RT #117947]
+
+=item *
+
+In Perl v5.18.0 dualvars that had an empty string for the string part but a
+non-zero number for the number part starting being treated as true.  In
+previous versions they were treated as false, the string representation
+taking precedeence.  The old behaviour has been restored. [RT #118159]
+
+=item *
+
+Since Perl v5.12, inlining of constants that override built-in keywords of
+the same name had countermanded C<use subs>, causing subsequent mentions of
+the constant to use the built-in keyword instead.  This has been fixed.
+
+=item *
+
+The warning produced by C<-l $handle> now applies to IO refs and globs, not
+just to glob refs.  That warning is also now UTF8-clean. [RT #117595]
+
+=item *
+
+C<delete local $ENV{nonexistent_env_var}> no longer leaks memory.
+
+=item *
+
+C<sort> and C<require> followed by a keyword prefixed with C<CORE::> now
+treat it as a keyword, and not as a subroutine or module name. [RT #24482]
+
+=item *
+
+Through certain conundrums, it is possible to cause the current package to
+be freed.  Certain operators (C<bless>, C<reset>, C<open>, C<eval>) could
+not cope and would crash.  They have been made more resilient. [RT #117941]
+
+=item *
+
+Aliasing filehandles through glob-to-glob assignment would not update
+internal method caches properly if a package of the same name as the
+filehandle existed, resulting in filehandle method calls going to the
+package instead.  This has been fixed.
+
+=item *
+
+C<./Configure -de -Dusevendorprefix> didn't default. [RT #64126]
+
+=item *
+
+The C<Statement unlikely to be reached> warning was listed in
+L<perldiag> as an C<exec>-category warning, but was enabled and disabled
+by the C<syntax> category.  On the other hand, the C<exec> category
+controlled its fatal-ness.  It is now entirely handled by the C<exec>
+category.
+
+=item *
+
+The "Replacement list is longer that search list" warning for C<tr///> and
+C<y///> no longer occurs in the presence of the C</c> flag. [RT #118047]
+
+=item *
+
+Stringification of NVs are not cached so that the lexical locale controls
+stringification of the decimal point. [perl #108378] [perl #115800]
+
+=item *
+
+There have been several fixes related to Perl's handling of locales.  perl
+#38193 was described above in L</Internal Changes>.
+Also fixed is 
+#118197, where the radix (decimal point) character had to be an ASCII
+character (which doesn't work for some non-Western languages);
+and #115808, in which C<POSIX::setlocale()> on failure returned an
+C<undef> which didn't warn about not being defined even if those
+warnings were enabled.
+
+=item *
+
+Compiling a C<split> operator whose third argument is a named constant
+evaluating to 0 no longer causes the constant's value to change.
+
+=item *
+
+A named constant used as the second argument to C<index> no longer gets
+coerced to a string if it is a reference, regular expression, dualvar, etc.
+
+=item *
+
+A named constant evaluating to the undefined value used as the second
+argument to C<index> no longer produces "uninitialized" warnings at compile
+time.  It will still produce them at run time.
+
+=item *
+
+When a scalar was returned from a subroutine in @INC, the referenced scalar
+was magically converted into an IO thingy, possibly resulting in "Bizarre
+copy" errors if that scalar continued to be used elsewhere.  Now Perl uses
+an internal copy of the scalar instead.
+
+=item *
+
+Certain uses of the C<sort> operator are optimised to modify an array in
+place, such as C<@a = sort @a>.  During the sorting, the array is made
+read-only.  If a sort block should happen to die, then the array remained
+read-only even outside the C<sort>.  This has been fixed.
+
+=item *
+
+C<$a> and C<$b> inside a sort block are aliased to the actual arguments to
+C<sort>, so they can be modified through those two variables.  This did not
+always work, e.g., for lvalue subs and C<$#ary>, and probably many other
+operators.  It works now.
+
+=item *
+
+The arguments to C<sort> are now all in list context.  If the C<sort>
+itself were called in void or scalar context, then I<some>, but not all, of
+the arguments used to be in void or scalar context.
+
+=item *
+
+Subroutine prototypes with Unicode characters above U+00FF were getting
+mangled during closure cloning.  This would happen with subroutines closing
+over lexical variables declared outside, and with lexical subs.
+
+=item *
+
+C<UNIVERSAL::can> now treats its first argument the same way that method
+calls do: Typeglobs and glob references with non-empty IO slots are treated
+as handles, and strings are treated as filehandles, rather than packages,
+if a handle with that name exists [perl #113932].
+
+=item *
+
+Method calls on typeglobs (e.g., C<< *ARGV->getline >>) used to stringify
+the typeglob and then look it up again.  Combined with changes in Perl
+5.18.0, this allowed C<< *foo->bar >> to call methods on the "foo" package
+(like C<< foo->bar >>).  In some cases it could cause the method to be
+called on the wrong handle.  Now a typeglob argument is treated as a
+handle (just like C<< (\*foo)->bar >>), or, if its IO slot is empty, an
+error is raised.
+
+=item *
+
+Assigning a vstring to a tied variable or to a subroutine argument aliased
+to a nonexistent hash or array element now works, without flattening the
+vstring into a regular string.
+
+=item *
+
+C<pos>, C<tie>, C<tied> and C<untie> did not work
+properly on subroutine arguments aliased to nonexistent
+hash and array elements [perl #77814, #27010].
+
+=item *
+
+The C<< => >> fat arrow operator can now quote built-in keywords even if it
+occurs on the next line, making it consistent with how it treats other
+barewords.
+
+=item *
+
+Autovivifying a subroutine stub via C<\&$glob> started causing crashes in Perl
+5.18.0 if the $glob was merely a copy of a real glob, i.e., a scalar that had
+had a glob assigned to it.  This has been fixed. [perl #119051]
+
+=item *
+
+Perl used to leak an implementation detail when it came to referencing the
+return values of certain operators.  C<for ($a+$b) { warn \$_; warn \$_ }> used
+to display two different memory addresses, because the C<\> operator was
+copying the variable.  Under threaded builds, it would also happen for
+constants (C<for(1) { ... }>).  This has been fixed. [perl #21979, #78194,
+#89188, #109746, #114838, #115388]
+
+=item *
+
+The range operator C<..> was returning the same modifiable scalars with each
+call, unless it was the only thing in a C<foreach> loop header.  This meant
+that changes to values within the list returned would be visible the next time
+the operator was executed. [perl #3105]
+
+=item *
+
+Constant folding and subroutine inlining no longer cause operations that would
+normally return new modifiable scalars to return read-only values instead.
+
+=item *
+
+Closures of the form C<sub () { $some_variable }> are no longer inlined,
+causing changes to the variable to be ignored by callers of the subroutine.
+[perl #79908]
+
+=item *
+
+Return values of certain operators such as C<ref> would sometimes be shared
+between recursive calls to the same subroutine, causing the inner call to
+modify the value returned by C<ref> in the outer call.  This has been fixed.
+
+=item *
+
+C<__PACKAGE__> and constants returning a package name or hash key are now
+consistently read-only.  In various previous Perl releases, they have become
+mutable under certain circumstances.
+
+=item *
+
+Enabling "used once" warnings no longer causes crashes on stash circularities
+created at compile time (C<*Foo::Bar::Foo:: = *Foo::>).
+
+=item *
+
+Undef constants used in hash keys (C<use constant u =E<gt> undef; $h{+u}>) no
+longer produce "uninitialized" warnings at compile time.
+
+=item *
+
+Modifying a substitution target inside the substitution replacement no longer
+causes crashes.
+
+=item *
+
+The first statement inside a string eval used to use the wrong pragma setting
+sometimes during constant folding.  C<eval 'uc chr 0xe0'> would randomly choose
+between Unicode, byte, and locale semantics.  This has been fixed.
+
+=item *
+
+The handling of return values of @INC filters (subroutines returned by
+subroutines in @INC) has been fixed in various ways.  Previously tied variables
+were mishandled, and setting $_ to a reference or typeglob could result in
+crashes.
+
+=item *
+
+The C<SvPVbyte> XS function has been fixed to work with tied scalars returning
+something other than a string.  It used to return utf8 in those cases where
+C<SvPV> would.
+
+=item *
+
+Perl 5.18.0 inadvertently made C<--> and C<++> crash on dereferenced regular
+expressions, and stopped C<++> from flattening vstrings.
+
+=item *
+
+C<bless> no longer dies with "Can't bless non-reference value" if its first
+argument is a tied reference.
+
+=item *
+
+C<reset> with an argument no longer skips copy-on-write scalars, regular
+expressions, typeglob copies, and vstrings.  Also, when encountering those or
+read-only values, it no longer skips any array or hash with the same name.
+
+=item *
+
+C<reset> with an argument now skips scalars aliased to typeglobs
+(C<for $z (*foo) { reset "z" }>).  Previously it would corrupt memory or crash.
+
+=item *
+
+C<ucfirst> and C<lcfirst> were not respecting the bytes pragma.  This was a
+regression from Perl 5.12. [perl #117355]
+
+=item *
+
+Changes to C<UNIVERSAL::DESTROY> now update DESTROY caches in all classes,
+instead of causing classes that have already had objects destroyed to continue
+using the old sub.  This was a regression in Perl 5.18. [perl #114864]
+
+=item *
+
+All known false-positive occurrences of the deprecation warning "Useless use of
+'\'; doesn't escape metacharacter '%c'", added in Perl 5.18.0, have been
+removed. [perl #119101]
+
+=item *
+
+The value of $^E is now saved across signal handlers on Windows.  [perl #85104]
+
+=item *
+
+A lexical filehandle (as in C<open my $fh...>) is usually given a name based on
+the current package and the name of the variable, e.g. "main::$fh".  Under
+recursion, the filehandle was losing the "$fh" part of the name.  This has been
+fixed.
+
+=item *
+
+Uninitialized values returned by XSUBs are no longer exempt from uninitialized
+warnings.  [perl #118693]
+
+=item *
+
+C<elsif ("")> no longer erroneously produces a warning about void context.
+[perl #118753]
+
+=item *
+
+Passing C<undef> to a subroutine now causes @_ to contain the same read-only
+undefined scalar that C<undef> returns.  Furthermore, C<exists $_[0]> will now
+return true if C<undef> was the first argument.  [perl #7508, #109726]
+
+=item *
+
+Passing a non-existent array element to a subroutine does not usually
+autovivify it unless the subroutine modifies its argument.  This did not work
+correctly with negative indices and with non-existent elements within the
+array.  The element would be vivified immediately.  The delayed vivification
+has been extended to work with those.  [perl #118691]
+
+=item *
+
+Assigning references or globs to the scalar returned by $#foo after the @foo
+array has been freed no longer causes assertion failures on debugging builds
+and memory leaks on regular builds.
+
+=item *
+
+On 64-bit platforms, large ranges like 1..1000000000000 no longer crash, but
+eat up all your memory instead.  [perl #119161]
+
+=item *
+
+C<__DATA__> now puts the C<DATA> handle in the right package, even if the
+current package has been renamed through glob assignment.
+
+=item *
+
+When C<die>, C<last>, C<next>, C<redo>, C<goto> and C<exit> unwind the scope,
+it is possible for C<DESTROY> recursively to call a subroutine or format that
+is currently being exited.  It that case, sometimes the lexical variables
+inside the sub would start out having values from the outer call, instead of
+being undefined as they should.  This has been fixed.  [perl #119311]
+
+=item *
+
+${^MPEN} is no longer treated as a synonym for ${^MATCH}.
+
+=item *
+
+Perl now tries a little harder to return the correct line number in
+C<(caller)[2]>.  [perl #115768]
+
+=item *
+
+Line numbers inside multiline quote-like operators are now reported correctly.
+[perl #3643]
+
+=item *
+
+C<#line> directives inside code embedded in quote-like operators are now
+respected.
+
+=item *
+
+Line numbers are now correct inside the second here-doc when two here-doc
+markers occur on the same line.
+
+=item *
+
+An optimization in Perl 5.18 made incorrect assumptions causing a bad
+interaction with the L<Devel::CallParser> CPAN module.  If the module was
+loaded then lexical variables declared in separate statements following a
+C<my(...)> list might fail to be cleared on scope exit.
+
+=item *
+
+C<&xsub> and C<goto &xsub> calls now allow the called subroutine to autovivify
+elements of @_.
+
+=item *
+
+C<&xsub> and C<goto &xsub> no longer crash if *_ has been undefined and has no
+ARRAY entry (i.e. @_ does not exist).
+
+=item *
+
+C<&xsub> and C<goto &xsub> now work with tied @_.
+
+=item *
+
+Overlong identifiers no longer cause a buffer overflow (and a crash).  They
+started doing so in Perl 5.18.
+
+=item *
+
+The warning "Scalar value @hash{foo} better written as $hash{foo}" now produces
+far fewer false positives.  In particular, C<@hash{+function_returning_a_list}>
+and C<@hash{ qw "foo bar baz" }> no longer warn.  The same applies to array
+slices.  [perl #28380, #114024]
+
+=item *
+
+C<$! = EINVAL; waitpid(0, WNOHANG);> no longer goes into an internal infinite
+loop.  [perl #85228]
+
+=item *
+
+A possible segmentation fault in filehandle duplication has been fixed.
+
+=item *
+
+A subroutine in @INC can return a reference to a scalar containing the initial
+contents of the file.  However, that scalar was freed prematurely if not
+referenced elsewhere, giving random results.
+
+=item *
+
+C<last> no longer returns values that the same statement has accumulated so
+far, fixing amongst other things the long-standing bug that C<push @a, last>
+would try to return the @a, copying it like a scalar in the process and
+resulting in the error, "Bizarre copy of ARRAY in last."  [perl #3112]
+
+=item *
+
+In some cases, closing file handles opened to pipe to or from a process, which
+had been duplicated into a standard handle, would call perl's internal waitpid
+wrapper with a pid of zero.  With the fix for [perl #85228] this zero pid was
+passed to C<waitpid>, possibly blocking the process.  This wait for process
+zero no longer occurs.  [perl #119893]
+
+=item *
+
+C<select> used to ignore magic on the fourth (timeout) argument, leading to
+effects such as C<select> blocking indefinitely rather than the expected sleep
+time.  This has now been fixed.  [perl #120102]
+
+=item *
+
+The class name in C<for my class $foo> is now parsed correctly.  In the case of
+the second character of the class name being followed by a digit (e.g. 'a1b')
+this used to give the error "Missing $ on loop variable".  [perl #120112]
+
+=item *
+
+Perl 5.18.0 accidentally disallowed C<-bareword> under C<use strict> and
+C<use integer>.  This has been fixed.  [perl #120288]
+
+=item *
+
+C<-a> at the start of a line (or a hyphen with any single letter that is
+not a filetest operator) no longer produces an erroneous 'Use of "-a"
+without parentheses is ambiguous' warning.  [perl #120288]
+
+=item *
+
+Lvalue context is now properly propagated into bare blocks and C<if> and
+C<else> blocks in lvalue subroutines.  Previously, arrays and hashes would
+sometimes incorrectly be flattened when returned in lvalue list context, or
+"Bizarre copy" errors could occur.  [perl #119797]
+
+=item *
+
+Lvalue context is now propagated to the branches of C<||> and C<&&> (and
+their alphabetic equivalents, C<or> and C<and>).  This means
+C<foreach (pos $x || pos $y) {...}> now allows C<pos> to be modified
+through $_.
+
+=item *
+
+C<stat> and C<readline> remember the last handle used; the former
+for the special C<_> filehandle, the latter for C<${^LAST_FH}>.
+C<eval "*foo if 0"> where *foo was the last handle passed to C<stat>
+or C<readline> could cause that handle to be forgotten if the
+handle were not opened yet.  This has been fixed.
+
+=item *
+
+Various cases of C<delete $::{a}>, C<delete $::{ENV}> etc. causing a crash
+have been fixed.  [perl #54044]
+
+=item *
+
+Setting C<$!> to EACCESS before calling C<require> could affect
+C<require>'s behaviour.  This has been fixed.
+
+=item *
+
+The "Can't use \1 to mean $1 in expression" warning message now only occurs
+on the right-hand (replacement) part of a substitution.  Formerly it could
+happen in code embedded in the left-hand side, or in any other quote-like
+operator.
+
+=item *
+
+Blessing into a reference (C<bless $thisref, $thatref>) has long been
+disallowed, but magical scalars for the second like C<$/> and those tied
+were exempt.  They no longer are.  [perl #119809]
+
+=item *
+
+Blessing into a reference was accidentally allowed in 5.18 if the class
+argument were a blessed reference with stale method caches (i.e., whose
+class had had subs defined since the last method call).  They are
+disallowed once more, as in 5.16.
+
+=item *
+
+C<< $x->{key} >> where $x was declared as C<my Class $x> no longer crashes
+if a Class::FIELDS subroutine stub has been declared.
+
+=item *
+
+C<@$obj{'key'}> and C<${$obj}{key}> used to be exempt from compile-time
+field checking ("No such class field"; see L<fields>) but no longer are.
+
+=item *
+
+A nonexistent array element with a large index passed to a subroutine that
+ties the array and then tries to access the element no longer results in a
+crash.
+
+=item *
+
+Declaring a subroutine stub named NEGATIVE_INDICES no longer makes negative
+array indices crash when the current package is a tied array class.
+
+=item *
+
+Declaring a C<require>, C<glob>, or C<do> subroutine stub in the
+CORE::GLOBAL:: package no longer makes compilation of calls to the
+corresponding functions crash.
+
+=item *
+
+Aliasing CORE::GLOBAL:: functions to constants stopped working in Perl 5.10
+but has now been fixed.
+
+=item *
+
+When C<`...`> or C<qx/.../> calls a C<readpipe> override, double-quotish
+interpolation now happens, as is the case when there is no override.
+Previously, the presence of an override would make these quote-like
+operators act like C<q{}>, suppressing interpolation.  [perl #115330]
+
+=item *
+
+C<<<<`...`> here-docs (with backticks as the delimiters) now call
+C<readpipe> overrides.  [perl #119827]
+
+=item *
+
+C<&CORE::exit()> and C<&CORE::die()> now respect L<vmsish> hints.
+
+=item *
+
+Undefining a glob that triggers a DESTROY method that undefines the same
+glob is now safe.  It used to produce "Attempt to free unreferenced glob
+pointer" warnings and leak memory.
+
+=item *
+
+If subroutine redefinition (C<eval 'sub foo{}'> or C<newXS> for XS code)
+triggers a DESTROY method on the sub that is being redefined, and that
+method assigns a subroutine to the same slot (C<*foo = sub {}>), C<$_[0]>
+is no longer left pointing to a freed scalar.  Now DESTROY is delayed until
+the new subroutine has been installed.
+
+=item *
+
+On Windows, perl no longer calls CloseHandle() on a socket handle.  This makes
+debugging easier on Windows by removing certain irrelevant bad handle
+exceptions.  It also fixes a race condition that made socket functions randomly
+fail in a Perl process with multiple OS threads, and possible test failures in
+F<dist/IO/t/cachepropagate-tcp.t>.  [perl #120091/118059]
+
+=item *
+
+Formats involving UTF-8 encoded strings, or strange vars like ties,
+overloads, or stringified refs (and in recent
+perls, pure NOK vars) would generally do the wrong thing in formats
+when the var is treated as a string and repeatedly chopped, as in
+C<< ^<<<~~ >> and similar. This has now been resolved.
+[perl #33832/45325/113868/119847/119849/119851]
+
+=item *
+
+C<< semctl(..., SETVAL, ...) >> would set the semaphore to the top
+32-bits of the supplied integer instead of the bottom 32-bits on
+64-bit big-endian systems. [perl #120635]
+
+=item *
+
+C<< readdir() >> now only sets C<$!> on error.  C<$!> is no longer set
+to C<EBADF> when then terminating C<undef> is read from the directory
+unless the system call sets C<$!>. [perl #118651]
+
+=item *
+
+C<&CORE::glob> no longer causes an intermittent crash due to perl's stack
+getting corrupted. [perl #119993]
+
+=item *
+
+C<open> with layers that load modules (e.g., "<:encoding(utf8)") no longer
+runs the risk of crashing due to stack corruption.
+
+=item *
+
+Perl 5.18 broke autoloading via C<< ->SUPER::foo >> method calls by looking
+up AUTOLOAD from the current package rather than the current package's
+superclass.  This has been fixed. [perl #120694]
+
+=item *
+
+A longstanding bug causing C<do {} until CONSTANT>, where the constant
+holds a true value, to read unallocated memory has been resolved.  This
+would usually happen after a syntax error.  In past versions of Perl it has
+crashed intermittently. [perl #72406]
+
+=item *
+
+Fix HP-UX C<$!> failure. HP-UX strerror() returns an empty string for an
+unknown error code.  This caused an assertion to fail under DEBUGGING
+builds.  Now instead, the returned string for C<"$!"> contains text
+indicating the code is for an unknown error.
+
+=item *
+
+Individually-tied elements of @INC (as in C<tie $INC[0]...>) are now
+handled correctly.  Formerly, whether a sub returned by such a tied element
+would be treated as a sub depended on whether a FETCH had occurred
+previously.
+
+=item *
+
+C<getc> on a byte-sized handle after the same C<getc> operator had been
+used on a utf8 handle used to treat the bytes as utf8, resulting in erratic
+behavior (e.g., malformed UTF-8 warnings).
+
+=item *
+
+An initial C<{> at the beginning of a format argument line was always
+interpreted as the beginning of a block prior to v5.18.  In Perl v5.18, it
+started being treated as an ambiguous token.  The parser would guess
+whether it was supposed to be an anonymous hash constructor or a block
+based on the contents.  Now the previous behavious has been restored.
+[perl #119973]
+
+=item *
+
+In Perl v5.18 C<undef *_; goto &sub> and C<local *_; goto &sub> started
+crashing.  This has been fixed. [perl #119949]
+
+=item *
+
+Backticks (C< `` > or C< qx// >) combined with multiple threads on
+Win32 could result in output sent to stdout on one thread being
+captured by backticks of an external command in another thread.
+
+This could occur for pseudo-forked processes too, as Win32's
+pseudo-fork is implemented in terms of threads.  [perl #77672]
+
+=item *
+
+C<< open $fh, ">+", undef >> no longer leaks memory when TMPDIR is set
+but points to a directory a temporary file cannot be created in.  [perl
+#120951]
+
+=item *
+
+C< for ( $h{k} || '' ) > no longer auto-vivifies C<$h{k}>.  [perl
+#120374]
+
+=item *
+
+On Windows machines, Perl now emulates the POSIX use of the environment
+for locale initialization.  Previously, the environment was ignored.
+See L<perllocale/ENVIRONMENT>.
+
+=item *
+
+Fixed a crash when destroying a self-referencing GLOB.  [perl #121242]
+
+=back
+
+=head1 Known Problems
+
+=over 4
+
+=item *
+
+L<IO::Socket> is known to fail tests on AIX 5.3.  There is
+L<a patch|https://rt.perl.org/Ticket/Display.html?id=120835> in the request
+tracker, #120835, which may be applied to future releases.
+
+=item *
+
+The following modules are known to have test failures with this version of
+Perl.  Patches have been submitted, so there will hopefully be new releases
+soon:
+
+=over
+
+=item *
+
+L<Data::Structure::Util> version 0.15
+
+=item *
+
+L<HTML::StripScripts> version 1.05
+
+=item *
+
+L<List::Gather> version 0.08.
+
+=back
+
+=back
+
+=head1 Obituary
+
+Diana Rosa, 27, of Rio de Janeiro, went to her long rest on May 10,
+2014, along with the plush camel she kept hanging on her computer screen
+all the time. She was a passionate Perl hacker who loved the language and its
+community, and who never missed a Rio.pm event. She was a true artist, an
+enthusiast about writing code, singing arias and graffiting walls. We'll never
+forget you.
+
+Greg McCarroll died on August 28, 2013.
+
+Greg was well known for many good reasons. He was one of the organisers of
+the first YAPC::Europe, which concluded with an unscheduled auction where he
+frantically tried to raise extra money to avoid the conference making a
+loss. It was Greg who mistakenly arrived for a london.pm meeting a week
+late; some years later he was the one who sold the choice of official
+meeting date at a YAPC::Europe auction, and eventually as glorious leader of
+london.pm he got to inherit the irreverent confusion that he had created.
+
+Always helpful, friendly and cheerfully optimistic, you will be missed, but
+never forgotten.
+
+=head1 Acknowledgements
+
+Perl 5.20.0 represents approximately 12 months of development since Perl 5.18.0
+and contains approximately 470,000 lines of changes across 2,900 files from 124
+authors.
+
+Excluding auto-generated files, documentation and release tools, there were
+approximately 280,000 lines of changes to 1,800 .pm, .t, .c and .h files.
+
+Perl continues to flourish into its third decade thanks to a vibrant community
+of users and developers. The following people are known to have contributed the
+improvements that became Perl 5.20.0:
+
+Aaron Crane, Abhijit Menon-Sen, Abigail, Abir Viqar, Alan Haggai Alavi, Alan
+Hourihane, Alexander Voronov, Alexandr Ciornii, Andy Dougherty, Anno Siegel,
+Aristotle Pagaltzis, Arthur Axel 'fREW' Schmidt, Brad Gilbert, Brendan Byrd,
+Brian Childs, Brian Fraser, Brian Gottreu, Chris 'BinGOs' Williams, Christian
+Millour, Colin Kuskie, Craig A. Berry, Dabrien 'Dabe' Murphy, Dagfinn Ilmari
+Mannsåker, Daniel Dragan, Darin McBride, David Golden, David Leadbeater, David
+Mitchell, David Nicol, David Steinbrunner, Dennis Kaarsemaker, Dominic
+Hargreaves, Ed Avis, Eric Brine, Evan Zacks, Father Chrysostomos, Florian
+Ragwitz, François Perrad, Gavin Shelley, Gideon Israel Dsouza, Gisle Aas,
+Graham Knop, H.Merijn Brand, Hauke D, Heiko Eissfeldt, Hiroo Hayashi, Hojung
+Youn, James E Keenan, Jarkko Hietaniemi, Jerry D. Hedden, Jess Robinson, Jesse
+Luehrs, Johan Vromans, John Gardiner Myers, John Goodyear, John P. Linderman,
+John Peacock, kafka, Kang-min Liu, Karen Etheridge, Karl Williamson, Keedi Kim,
+Kent Fredric, kevin dawson, Kevin Falcone, Kevin Ryde, Leon Timmermans, Lukas
+Mai, Marc Simpson, Marcel Grünauer, Marco Peereboom, Marcus Holland-Moritz,
+Mark Jason Dominus, Martin McGrath, Matthew Horsfall, Max Maischein, Mike
+Doherty, Moritz Lenz, Nathan Glenn, Nathan Trapuzzano, Neil Bowers, Neil
+Williams, Nicholas Clark, Niels Thykier, Niko Tyni, Olivier Mengué, Owain G.
+Ainsworth, Paul Green, Paul Johnson, Peter John Acklam, Peter Martini, Peter
+Rabbitson, Petr Písař, Philip Boulain, Philip Guenther, Piotr Roszatycki,
+Rafael Garcia-Suarez, Reini Urban, Reuben Thomas, Ricardo Signes, Ruslan
+Zakirov, Sergey Alekseev, Shirakata Kentaro, Shlomi Fish, Slaven Rezic,
+Smylers, Steffen Müller, Steve Hay, Sullivan Beck, Thomas Sibley, Tobias
+Leich, Toby Inkster, Tokuhiro Matsuno, Tom Christiansen, Tom Hukins, Tony Cook,
+Victor Efimov, Viktor Turskyi, Vladimir Timofeev, YAMASHINA Hio, Yves Orton,
+Zefram, Zsbán Ambrus, Ævar Arnfjörð Bjarmason.
+
+The list above is almost certainly incomplete as it is automatically generated
+from version control history. In particular, it does not include the names of
+the (very much appreciated) contributors who reported issues to the Perl bug
+tracker.
+
+Many of the changes included in this version originated in the CPAN modules
+included in Perl's core. We're grateful to the entire CPAN community for
+helping Perl to flourish.
+
+For a more complete list of all of Perl's historical contributors, please see
+the F<AUTHORS> file in the Perl source distribution.
+
+=head1 Reporting Bugs
+
+If you find what you think is a bug, you might check the articles recently
+posted to the comp.lang.perl.misc newsgroup and the perl bug database at
+http://rt.perl.org/perlbug/ .  There may also be information at
+http://www.perl.org/ , the Perl Home Page.
+
+If you believe you have an unreported bug, please run the L<perlbug> program
+included with your release.  Be sure to trim your bug down to a tiny but
+sufficient test case.  Your bug report, along with the output of C<perl -V>,
+will be sent off to perlbug@perl.org to be analysed by the Perl porting team.
+
+If the bug you are reporting has security implications, which make it
+inappropriate to send to a publicly archived mailing list, then please send it
+to perl5-security-report@perl.org.  This points to a closed subscription
+unarchived mailing list, which includes all the core committers, who will be
+able to help assess the impact of issues, figure out a resolution, and help
+co-ordinate the release of patches to mitigate or fix the problem across all
+platforms on which Perl is supported.  Please only use this address for
+security issues in the Perl core, not for modules independently distributed on
+CPAN.
+
+=head1 SEE ALSO
+
+The F<Changes> file for an explanation of how to view exhaustive details on
+what changed.
+
+The F<INSTALL> file for how to build Perl.
+
+The F<README> file for general stuff.
+
+The F<Artistic> and F<Copying> files for copyright information.
+
+=cut
diff --git a/lib/5.24.1/pod/perl5201delta.pod b/lib/5.24.1/pod/perl5201delta.pod
new file mode 100644
index 00000000..93528014
--- /dev/null
+++ b/lib/5.24.1/pod/perl5201delta.pod
@@ -0,0 +1,410 @@
+=encoding utf8
+
+=head1 NAME
+
+perl5201delta - what is new for perl v5.20.1
+
+=head1 DESCRIPTION
+
+This document describes differences between the 5.20.0 release and the 5.20.1
+release.
+
+If you are upgrading from an earlier release such as 5.18.0, first read
+L<perl5200delta>, which describes differences between 5.18.0 and 5.20.0.
+
+=head1 Incompatible Changes
+
+There are no changes intentionally incompatible with 5.20.0.  If any exist,
+they are bugs, and we request that you submit a report.  See L</Reporting Bugs>
+below.
+
+=head1 Performance Enhancements
+
+=over 4
+
+=item *
+
+An optimization to avoid problems with COW and deliberately overallocated PVs
+has been disabled because it interfered with another, more important,
+optimization, causing a slowdown on some platforms.
+L<[perl #121975]|https://rt.perl.org/Ticket/Display.html?id=121975>
+
+=item *
+
+Returning a string from a lexical variable could be slow in some cases.  This
+has now been fixed.
+L<[perl #121977]|https://rt.perl.org/Ticket/Display.html?id=121977>
+
+=back
+
+=head1 Modules and Pragmata
+
+=head2 Updated Modules and Pragmata
+
+=over 4
+
+=item *
+
+L<Config::Perl::V> has been upgraded from version 0.20 to 0.22.
+
+The list of Perl versions covered has been updated and some flaws in the
+parsing have been fixed.
+
+=item *
+
+L<Exporter> has been upgraded from version 5.70 to 5.71.
+
+Illegal POD syntax in the documentation has been corrected.
+
+=item *
+
+L<ExtUtils::CBuilder> has been upgraded from version 0.280216 to 0.280217.
+
+Android builds now link to both B<-lperl> and C<$Config::Config{perllibs}>.
+
+=item *
+
+L<File::Copy> has been upgraded from version 2.29 to 2.30.
+
+The documentation now notes that C<copy> will not overwrite read-only files.
+
+=item *
+
+L<Module::CoreList> has been upgraded from version 3.11 to 5.020001.
+
+The list of Perl versions covered has been updated.
+
+=item *
+
+The PathTools module collection has been upgraded from version 3.47 to 3.48.
+
+Fallbacks are now in place when cross-compiling for Android and
+C<$Config::Config{sh}> is not yet defined.
+L<[perl #121963]|https://rt.perl.org/Ticket/Display.html?id=121963>
+
+=item *
+
+L<PerlIO::via> has been upgraded from version 0.14 to 0.15.
+
+A minor portability improvement has been made to the XS implementation.
+
+=item *
+
+L<Unicode::UCD> has been upgraded from version 0.57 to 0.58.
+
+The documentation includes many clarifications and fixes.
+
+=item *
+
+L<utf8> has been upgraded from version 1.13 to 1.13_01.
+
+The documentation has some minor formatting improvements.
+
+=item *
+
+L<version> has been upgraded from version 0.9908 to 0.9909.
+
+External libraries and Perl may have different ideas of what the locale is.
+This is problematic when parsing version strings if the locale's numeric
+separator has been changed.  Version parsing has been patched to ensure it
+handles the locales correctly.
+L<[perl #121930]|https://rt.perl.org/Ticket/Display.html?id=121930>
+
+=back
+
+=head1 Documentation
+
+=head2 Changes to Existing Documentation
+
+=head3 L<perlapi>
+
+=over 4
+
+=item *
+
+C<av_len> - Emphasize that this returns the highest index in the array, not the
+size of the array.
+L<[perl #120386]|https://rt.perl.org/Ticket/Display.html?id=120386>
+
+=item *
+
+Note that C<SvSetSV> doesn't do set magic.
+
+=item *
+
+C<sv_usepvn_flags> - Fix documentation to mention the use of C<NewX> instead of
+C<malloc>.
+L<[perl #121869]|https://rt.perl.org/Ticket/Display.html?id=121869>
+
+=item *
+
+Clarify where C<NUL> may be embedded or is required to terminate a string.
+
+=back
+
+=head3 L<perlfunc>
+
+=over 4
+
+=item *
+
+Clarify the meaning of C<-B> and C<-T>.
+
+=item *
+
+C<-l> now notes that it will return false if symlinks aren't supported by the
+file system.
+L<[perl #121523]|https://rt.perl.org/Ticket/Display.html?id=121523>
+
+=item *
+
+Note that C<each>, C<keys> and C<values> may produce different orderings for
+tied hashes compared to other perl hashes.
+L<[perl #121404]|https://rt.perl.org/Ticket/Display.html?id=121404>
+
+=item *
+
+Note that C<exec LIST> and C<system LIST> may fall back to the shell on Win32.
+Only C<exec PROGRAM LIST> and C<system PROGRAM LIST> indirect object syntax
+will reliably avoid using the shell.  This has also been noted in L<perlport>.
+L<[perl #122046]|https://rt.perl.org/Ticket/Display.html?id=122046>
+
+=item *
+
+Clarify the meaning of C<our>.
+L<[perl #122132]|https://rt.perl.org/Ticket/Display.html?id=122132>
+
+=back
+
+=head3 L<perlguts>
+
+=over 4
+
+=item *
+
+Explain various ways of modifying an existing SV's buffer.
+L<[perl #116925]|https://rt.perl.org/Ticket/Display.html?id=116925>
+
+=back
+
+=head3 L<perlpolicy>
+
+=over 4
+
+=item *
+
+We now have a code of conduct for the I<< p5p >> mailing list, as documented in
+L<< perlpolicy/STANDARDS OF CONDUCT >>.
+
+=back
+
+=head3 L<perlre>
+
+=over 4
+
+=item *
+
+The C</x> modifier has been clarified to note that comments cannot be continued
+onto the next line by escaping them.
+
+=back
+
+=head3 L<perlsyn>
+
+=over 4
+
+=item *
+
+Mention the use of empty conditionals in C<for>/C<while> loops for infinite
+loops.
+
+=back
+
+=head3 L<perlxs>
+
+=over 4
+
+=item *
+
+Added a discussion of locale issues in XS code.
+
+=back
+
+=head1 Diagnostics
+
+The following additions or changes have been made to diagnostic output,
+including warnings and fatal error messages.  For the complete list of
+diagnostic messages, see L<perldiag>.
+
+=head2 Changes to Existing Diagnostics
+
+=over 4
+
+=item *
+
+L<Variable length lookbehind not implemented in regex mE<sol>%sE<sol>|perldiag/"Variable length lookbehind not implemented in regex m/%s/">
+
+Information about Unicode behaviour has been added.
+
+=back
+
+=head1 Configuration and Compilation
+
+=over 4
+
+=item *
+
+Building Perl no longer writes to the source tree when configured with
+F<Configure>'s B<-Dmksymlinks> option.
+L<[perl #121585]|https://rt.perl.org/Ticket/Display.html?id=121585>
+
+=back
+
+=head1 Platform Support
+
+=head2 Platform-Specific Notes
+
+=over 4
+
+=item Android
+
+Build support has been improved for cross-compiling in general and for Android
+in particular.
+
+=item OpenBSD
+
+Corrected architectures and version numbers used in configuration hints when
+building Perl.
+
+=item Solaris
+
+B<c99> options have been cleaned up, hints look for B<solstudio> as well as
+B<SUNWspro>, and support for native C<setenv> has been added.
+
+=item VMS
+
+An old bug in feature checking, mainly affecting pre-7.3 systems, has been
+fixed.
+
+=item Windows
+
+C<%I64d> is now being used instead of C<%lld> for MinGW.
+
+=back
+
+=head1 Internal Changes
+
+=over 4
+
+=item *
+
+Added L<perlapi/sync_locale>.
+Changing the program's locale should be avoided by XS code.  Nevertheless,
+certain non-Perl libraries called from XS, such as C<Gtk> do so.  When this
+happens, Perl needs to be told that the locale has changed.  Use this function
+to do so, before returning to Perl.
+
+=back
+
+=head1 Selected Bug Fixes
+
+=over 4
+
+=item *
+
+A bug has been fixed where zero-length assertions and code blocks inside of a
+regex could cause C<pos> to see an incorrect value.
+L<[perl #122460]|https://rt.perl.org/Ticket/Display.html?id=122460>
+
+=item *
+
+Using C<s///e> on tainted utf8 strings could issue bogus "Malformed UTF-8
+character (unexpected end of string)" warnings.  This has now been fixed.
+L<[perl #122148]|https://rt.perl.org/Ticket/Display.html?id=122148>
+
+=item *
+
+C<system> and friends should now work properly on more Android builds.
+
+Due to an oversight, the value specified through B<-Dtargetsh> to F<Configure>
+would end up being ignored by some of the build process.  This caused perls
+cross-compiled for Android to end up with defective versions of C<system>,
+C<exec> and backticks: the commands would end up looking for F</bin/sh> instead
+of F</system/bin/sh>, and so would fail for the vast majority of devices,
+leaving C<$!> as C<ENOENT>.
+
+=item *
+
+Many issues have been detected by L<Coverity|http://www.coverity.com/> and 
+fixed.
+
+=back
+
+=head1 Acknowledgements
+
+Perl 5.20.1 represents approximately 4 months of development since Perl 5.20.0
+and contains approximately 12,000 lines of changes across 170 files from 36
+authors.
+
+Excluding auto-generated files, documentation and release tools, there were
+approximately 2,600 lines of changes to 110 .pm, .t, .c and .h files.
+
+Perl continues to flourish into its third decade thanks to a vibrant community
+of users and developers.  The following people are known to have contributed
+the improvements that became Perl 5.20.1:
+
+Aaron Crane, Abigail, Alberto Simões, Alexandr Ciornii, Alexandre (Midnite)
+Jousset, Andrew Fresh, Andy Dougherty, Brian Fraser, Chris 'BinGOs' Williams,
+Craig A. Berry, Daniel Dragan, David Golden, David Mitchell, H.Merijn Brand,
+James E Keenan, Jan Dubois, Jarkko Hietaniemi, John Peacock, kafka, Karen
+Etheridge, Karl Williamson, Lukas Mai, Matthew Horsfall, Michael Bunk, Peter
+Martini, Rafael Garcia-Suarez, Reini Urban, Ricardo Signes, Shirakata Kentaro,
+Smylers, Steve Hay, Thomas Sibley, Todd Rinaldo, Tony Cook, Vladimir Marek,
+Yves Orton.
+
+The list above is almost certainly incomplete as it is automatically generated
+from version control history.  In particular, it does not include the names of
+the (very much appreciated) contributors who reported issues to the Perl bug
+tracker.
+
+Many of the changes included in this version originated in the CPAN modules
+included in Perl's core.  We're grateful to the entire CPAN community for
+helping Perl to flourish.
+
+For a more complete list of all of Perl's historical contributors, please see
+the F<AUTHORS> file in the Perl source distribution.
+
+=head1 Reporting Bugs
+
+If you find what you think is a bug, you might check the articles recently
+posted to the comp.lang.perl.misc newsgroup and the perl bug database at
+https://rt.perl.org/ .  There may also be information at http://www.perl.org/ ,
+the Perl Home Page.
+
+If you believe you have an unreported bug, please run the L<perlbug> program
+included with your release.  Be sure to trim your bug down to a tiny but
+sufficient test case.  Your bug report, along with the output of C<perl -V>,
+will be sent off to perlbug@perl.org to be analysed by the Perl porting team.
+
+If the bug you are reporting has security implications, which make it
+inappropriate to send to a publicly archived mailing list, then please send it
+to perl5-security-report@perl.org.  This points to a closed subscription
+unarchived mailing list, which includes all the core committers, who will be
+able to help assess the impact of issues, figure out a resolution, and help
+co-ordinate the release of patches to mitigate or fix the problem across all
+platforms on which Perl is supported.  Please only use this address for
+security issues in the Perl core, not for modules independently distributed on
+CPAN.
+
+=head1 SEE ALSO
+
+The F<Changes> file for an explanation of how to view exhaustive details on
+what changed.
+
+The F<INSTALL> file for how to build Perl.
+
+The F<README> file for general stuff.
+
+The F<Artistic> and F<Copying> files for copyright information.
+
+=cut
diff --git a/lib/5.24.1/pod/perl5202delta.pod b/lib/5.24.1/pod/perl5202delta.pod
new file mode 100644
index 00000000..98707fde
--- /dev/null
+++ b/lib/5.24.1/pod/perl5202delta.pod
@@ -0,0 +1,415 @@
+=encoding utf8
+
+=head1 NAME
+
+perl5202delta - what is new for perl v5.20.2
+
+=head1 DESCRIPTION
+
+This document describes differences between the 5.20.1 release and the 5.20.2
+release.
+
+If you are upgrading from an earlier release such as 5.20.0, first read
+L<perl5201delta>, which describes differences between 5.20.0 and 5.20.1.
+
+=head1 Incompatible Changes
+
+There are no changes intentionally incompatible with 5.20.1.  If any exist,
+they are bugs, and we request that you submit a report.  See L</Reporting Bugs>
+below.
+
+=head1 Modules and Pragmata
+
+=head2 Updated Modules and Pragmata
+
+=over 4
+
+=item *
+
+L<attributes> has been upgraded from version 0.22 to 0.23.
+
+The usage of C<memEQs> in the XS has been corrected.
+L<[perl #122701]|https://rt.perl.org/Ticket/Display.html?id=122701>
+
+=item *
+
+L<Data::Dumper> has been upgraded from version 2.151 to 2.151_01.
+
+Fixes CVE-2014-4330 by adding a configuration variable/option to limit
+recursion when dumping deep data structures.
+
+=item *
+
+L<Errno> has been upgraded from version 1.20_03 to 1.20_05.
+
+Warnings when building the XS on Windows with the Visual C++ compiler are now
+avoided.
+
+=item *
+
+L<feature> has been upgraded from version 1.36 to 1.36_01.
+
+The C<postderef> feature has now been documented.  This feature was actually
+added in Perl 5.20.0 but was accidentally omitted from the feature
+documentation until now.
+
+=item *
+
+L<IO::Socket> has been upgraded from version 1.37 to 1.38.
+
+Document the limitations of the connected() method.
+L<[perl #123096]|https://rt.perl.org/Ticket/Display.html?id=123096>
+
+=item *
+
+L<Module::CoreList> has been upgraded from version 5.020001 to 5.20150214.
+
+The list of Perl versions covered has been updated.
+
+=item *
+
+PathTools has been upgraded from version 3.48 to 3.48_01.
+
+A warning from the B<gcc> compiler is now avoided when building the XS.
+
+=item *
+
+L<PerlIO::scalar> has been upgraded from version 0.18 to 0.18_01.
+
+Reading from a position well past the end of the scalar now correctly returns
+end of file.
+L<[perl #123443]|https://rt.perl.org/Ticket/Display.html?id=123443>
+
+Seeking to a negative position still fails, but no longer leaves the file
+position set to a negation location.
+
+C<eof()> on a C<PerlIO::scalar> handle now properly returns true when the file
+position is past the 2GB mark on 32-bit systems.
+
+=item *
+
+L<Storable> has been upgraded from version 2.49 to 2.49_01.
+
+Minor grammatical change to the documentation only.
+
+=item *
+
+L<VMS::DCLsym> has been upgraded from version 1.05 to 1.05_01.
+
+Minor formatting change to the documentation only.
+
+=item *
+
+L<VMS::Stdio> has been upgraded from version 2.4 to 2.41.
+
+Minor formatting change to the documentation only.
+
+=back
+
+=head1 Documentation
+
+=head2 New Documentation
+
+=head3 L<perlunicook>
+
+This document, by Tom Christiansen, provides examples of handling Unicode in
+Perl.
+
+=head2 Changes to Existing Documentation
+
+=head3 L<perlexperiment>
+
+=over 4
+
+=item *
+
+Added reference to subroutine signatures.  This feature was actually added in
+Perl 5.20.0 but was accidentally omitted from the experimental feature
+documentation until now.
+
+=back
+
+=head3 L<perlpolicy>
+
+=over 4
+
+=item *
+
+The process whereby features may graduate from experimental status has now been
+formally documented.
+
+=back
+
+=head3 L<perlsyn>
+
+=over 4
+
+=item *
+
+An ambiguity in the documentation of the ellipsis statement has been corrected.
+L<[perl #122661]|https://rt.perl.org/Ticket/Display.html?id=122661>
+
+=back
+
+=head1 Diagnostics
+
+The following additions or changes have been made to diagnostic output,
+including warnings and fatal error messages.  For the complete list of
+diagnostic messages, see L<perldiag>.
+
+=head2 Changes to Existing Diagnostics
+
+=over 4
+
+=item *
+
+L<Bad symbol for scalar|perldiag/"Bad symbol for scalar"> is now documented.
+This error is not new, but was not previously documented here.
+
+=item *
+
+L<Missing right brace on \N{}|perldiag/"Missing right brace on \N{}"> is now
+documented.  This error is not new, but was not previously documented here.
+
+=back
+
+=head1 Testing
+
+=over 4
+
+=item *
+
+The test script F<re/rt122747.t> has been added to verify that
+L<perl #122747|https://rt.perl.org/Ticket/Display.html?id=122747> remains
+fixed.
+
+=back
+
+=head1 Platform Support
+
+=head2 Regained Platforms
+
+IRIX and Tru64 platforms are working again.  (Some C<make test> failures
+remain.)
+
+=head1 Selected Bug Fixes
+
+=over 4
+
+=item *
+
+AIX now sets the length in C<< getsockopt >> correctly.
+L<[perl #120835]|https://rt.perl.org/Ticket/Display.html?id=120835>,
+L<[cpan #91183]|https://rt.cpan.org/Ticket/Display.html?id=91183>,
+L<[cpan #85570]|https://rt.cpan.org/Ticket/Display.html?id=85570>
+
+=item *
+
+In Perl 5.20.0, C<$^N> accidentally had the internal UTF8 flag turned off if
+accessed from a code block within a regular expression, effectively
+UTF8-encoding the value.  This has been fixed.
+L<[perl #123135]|https://rt.perl.org/Ticket/Display.html?id=123135>
+
+=item *
+
+Various cases where the name of a sub is used (autoload, overloading, error
+messages) used to crash for lexical subs, but have been fixed.
+
+=item *
+
+An assertion failure when parsing C<sort> with debugging enabled has been
+fixed.
+L<[perl #122771]|https://rt.perl.org/Ticket/Display.html?id=122771>
+
+=item *
+
+Loading UTF8 tables during a regular expression match could cause assertion
+failures under debugging builds if the previous match used the very same
+regular expression.
+L<[perl #122747]|https://rt.perl.org/Ticket/Display.html?id=122747>
+
+=item *
+
+Due to a mistake in the string-copying logic, copying the value of a state
+variable could instead steal the value and undefine the variable.  This bug,
+introduced in Perl 5.20, would happen mostly for long strings (1250 chars or
+more), but could happen for any strings under builds with copy-on-write
+disabled.
+L<[perl #123029]|https://rt.perl.org/Ticket/Display.html?id=123029>
+
+=item *
+
+Fixed a bug that could cause perl to execute an infinite loop during
+compilation.
+L<[perl #122995]|https://rt.perl.org/Ticket/Display.html?id=122995>
+
+=item *
+
+On Win32, restoring in a child pseudo-process a variable that was C<local()>ed
+in a parent pseudo-process before the C<fork> happened caused memory corruption
+and a crash in the child pseudo-process (and therefore OS process).
+L<[perl #40565]|https://rt.perl.org/Ticket/Display.html?id=40565>
+
+=item *
+
+Tainted constants evaluated at compile time no longer cause unrelated
+statements to become tainted.
+L<[perl #122669]|https://rt.perl.org/Ticket/Display.html?id=122669>
+
+=item *
+
+Calling C<write> on a format with a C<^**> field could produce a panic in
+sv_chop() if there were insufficient arguments or if the variable used to fill
+the field was empty.
+L<[perl #123245]|https://rt.perl.org/Ticket/Display.html?id=123245>
+
+=item *
+
+In Perl 5.20.0, C<sort CORE::fake> where 'fake' is anything other than a
+keyword started chopping of the last 6 characters and treating the result as a
+sort sub name.  The previous behaviour of treating "CORE::fake" as a sort sub
+name has been restored.
+L<[perl #123410]|https://rt.perl.org/Ticket/Display.html?id=123410>
+
+=item *
+
+A bug in regular expression patterns that could lead to segfaults and other
+crashes has been fixed.  This occurred only in patterns compiled with C<"/i">,
+while taking into account the current POSIX locale (this usually means they
+have to be compiled within the scope of C<S<"use locale">>), and there must be
+a string of at least 128 consecutive bytes to match.
+L<[perl #123539]|https://rt.perl.org/Ticket/Display.html?id=123539>
+
+=item *
+
+C<qr/@array(?{block})/> no longer dies with "Bizarre copy of ARRAY".
+L<[perl #123344]|https://rt.perl.org/Ticket/Display.html?id=123344>
+
+=item *
+
+C<gmtime> no longer crashes with not-a-number values.
+L<[perl #123495]|https://rt.perl.org/Ticket/Display.html?id=123495>
+
+=item *
+
+Certain syntax errors in substitutions, such as C<< s/${<>{})// >>, would
+crash, and had done so since Perl 5.10.  (In some cases the crash did not start
+happening until Perl 5.16.)  The crash has, of course, been fixed.
+L<[perl #123542]|https://rt.perl.org/Ticket/Display.html?id=123542>
+
+=item *
+
+A memory leak in some regular expressions, introduced in Perl 5.20.1, has been
+fixed.
+L<[perl #123198]|https://rt.perl.org/Ticket/Display.html?id=123198>
+
+=item *
+
+C<< formline("@...", "a"); >> would crash.  The C<FF_CHECKNL> case in
+pp_formline() didn't set the pointer used to mark the chop position, which led
+to the C<FF_MORE> case crashing with a segmentation fault.  This has been
+fixed.
+L<[perl #123538]|https://rt.perl.org/Ticket/Display.html?id=123538>
+L<[perl #123622]|https://rt.perl.org/Ticket/Display.html?id=123622>
+
+=item *
+
+A possible buffer overrun and crash when parsing a literal pattern during
+regular expression compilation has been fixed.
+L<[perl #123604]|https://rt.perl.org/Ticket/Display.html?id=123604>
+
+=back
+
+=head1 Known Problems
+
+=over 4
+
+=item *
+
+It is a known bug that lexical subroutines cannot be used as the C<SUBNAME>
+argument to C<sort>.  This will be fixed in a future version of Perl.
+
+=back
+
+=head1 Errata From Previous Releases
+
+=over 4
+
+=item *
+
+A regression has been fixed that was introduced in Perl 5.20.0 (fixed in Perl
+5.20.1 as well as here) in which a UTF-8 encoded regular expression pattern
+that contains a single ASCII lowercase letter does not match its uppercase
+counterpart.
+L<[perl #122655]|https://rt.perl.org/Ticket/Display.html?id=122655>
+
+=back
+
+=head1 Acknowledgements
+
+Perl 5.20.2 represents approximately 5 months of development since Perl 5.20.1
+and contains approximately 6,300 lines of changes across 170 files from 34
+authors.
+
+Excluding auto-generated files, documentation and release tools, there were
+approximately 1,900 lines of changes to 80 .pm, .t, .c and .h files.
+
+Perl continues to flourish into its third decade thanks to a vibrant community
+of users and developers.  The following people are known to have contributed
+the improvements that became Perl 5.20.2:
+
+Aaron Crane, Abigail, Andreas Voegele, Andy Dougherty, Anthony Heading,
+Aristotle Pagaltzis, Chris 'BinGOs' Williams, Craig A. Berry, Daniel Dragan,
+Doug Bell, Ed J, Father Chrysostomos, Glenn D. Golden, H.Merijn Brand, Hugo van
+der Sanden, James E Keenan, Jarkko Hietaniemi, Jim Cromie, Karen Etheridge,
+Karl Williamson, kmx, Matthew Horsfall, Max Maischein, Peter Martini, Rafael
+Garcia-Suarez, Ricardo Signes, Shlomi Fish, Slaven Rezic, Steffen Müller,
+Steve Hay, Tadeusz Sośnierz, Tony Cook, Yves Orton, Ævar Arnfjörð
+Bjarmason.
+
+The list above is almost certainly incomplete as it is automatically generated
+from version control history.  In particular, it does not include the names of
+the (very much appreciated) contributors who reported issues to the Perl bug
+tracker.
+
+Many of the changes included in this version originated in the CPAN modules
+included in Perl's core.  We're grateful to the entire CPAN community for
+helping Perl to flourish.
+
+For a more complete list of all of Perl's historical contributors, please see
+the F<AUTHORS> file in the Perl source distribution.
+
+=head1 Reporting Bugs
+
+If you find what you think is a bug, you might check the articles recently
+posted to the comp.lang.perl.misc newsgroup and the perl bug database at
+https://rt.perl.org/ .  There may also be information at http://www.perl.org/ ,
+the Perl Home Page.
+
+If you believe you have an unreported bug, please run the L<perlbug> program
+included with your release.  Be sure to trim your bug down to a tiny but
+sufficient test case.  Your bug report, along with the output of C<perl -V>,
+will be sent off to perlbug@perl.org to be analysed by the Perl porting team.
+
+If the bug you are reporting has security implications, which make it
+inappropriate to send to a publicly archived mailing list, then please send it
+to perl5-security-report@perl.org.  This points to a closed subscription
+unarchived mailing list, which includes all the core committers, who will be
+able to help assess the impact of issues, figure out a resolution, and help
+co-ordinate the release of patches to mitigate or fix the problem across all
+platforms on which Perl is supported.  Please only use this address for
+security issues in the Perl core, not for modules independently distributed on
+CPAN.
+
+=head1 SEE ALSO
+
+The F<Changes> file for an explanation of how to view exhaustive details on
+what changed.
+
+The F<INSTALL> file for how to build Perl.
+
+The F<README> file for general stuff.
+
+The F<Artistic> and F<Copying> files for copyright information.
+
+=cut
diff --git a/lib/5.24.1/pod/perl5203delta.pod b/lib/5.24.1/pod/perl5203delta.pod
new file mode 100644
index 00000000..7c22b7b6
--- /dev/null
+++ b/lib/5.24.1/pod/perl5203delta.pod
@@ -0,0 +1,312 @@
+=encoding utf8
+
+=head1 NAME
+
+perl5203delta - what is new for perl v5.20.3
+
+=head1 DESCRIPTION
+
+This document describes differences between the 5.20.2 release and the 5.20.3
+release.
+
+If you are upgrading from an earlier release such as 5.20.1, first read
+L<perl5202delta>, which describes differences between 5.20.1 and 5.20.2.
+
+=head1 Incompatible Changes
+
+There are no changes intentionally incompatible with 5.20.2.  If any exist,
+they are bugs, and we request that you submit a report.  See L</Reporting Bugs>
+below.
+
+=head1 Modules and Pragmata
+
+=head2 Updated Modules and Pragmata
+
+=over 4
+
+=item *
+
+L<Errno> has been upgraded from version 1.20_05 to 1.20_06.
+
+Add B<-P> to the pre-processor command-line on GCC 5.  GCC added extra line
+directives, breaking parsing of error code definitions.
+L<[perl #123784]|https://rt.perl.org/Ticket/Display.html?id=123784>
+
+=item *
+
+L<Module::CoreList> has been upgraded from version 5.20150214 to 5.20150822.
+
+Updated to cover the latest releases of Perl.
+
+=item *
+
+L<perl5db.pl> has been upgraded from 1.44 to 1.44_01.
+
+The debugger would cause an assertion failure.
+L<[perl #124127]|https://rt.perl.org/Ticket/Display.html?id=124127>
+
+=back
+
+=head1 Documentation
+
+=head2 Changes to Existing Documentation
+
+=head3 L<perlfunc>
+
+=over 4
+
+=item *
+
+Mention that L<C<study()>|perlfunc/study> is currently a no-op.
+
+=back
+
+=head3 L<perlguts>
+
+=over 4
+
+=item *
+
+The OOK example has been updated to account for COW changes and a change in the
+storage of the offset.
+
+=back
+
+=head3 L<perlhacktips>
+
+=over 4
+
+=item *
+
+Documentation has been added illustrating the perils of assuming the contents
+of static memory pointed to by the return values of Perl wrappers for C library
+functions doesn't change.
+
+=back
+
+=head3 L<perlpodspec>
+
+=over 4
+
+=item *
+
+The specification of the POD language is changing so that the default encoding
+of PODs that aren't in UTF-8 (unless otherwise indicated) is CP1252 instead of
+ISO-8859-1 (Latin1).
+
+=back
+
+=head1 Utility Changes
+
+=head2 L<h2ph>
+
+=over 4
+
+=item *
+
+B<h2ph> now handles hexadecimal constants in the compiler's predefined macro
+definitions, as visible in C<$Config{cppsymbols}>.
+L<[perl #123784]|https://rt.perl.org/Ticket/Display.html?id=123784>
+
+=back
+
+=head1 Testing
+
+=over 4
+
+=item *
+
+F<t/perf/taint.t> has been added to see if optimisations with taint issues are
+keeping things fast.
+
+=item *
+
+F<t/porting/re_context.t> has been added to test that L<utf8> and its
+dependencies only use the subset of the C<$1..$n> capture vars that
+Perl_save_re_context() is hard-coded to localize, because that function has no
+efficient way of determining at runtime what vars to localize.
+
+=back
+
+=head1 Platform Support
+
+=head2 Platform-Specific Notes
+
+=over 4
+
+=item Win32
+
+=over 4
+
+=item *
+
+Previously, when compiling with a 64-bit Visual C++, every Perl XS module
+(including CPAN ones) and Perl aware C file would unconditionally have around a
+dozen warnings from F<hv_func.h>.  These warnings have been silenced.  GCC (all
+bitness) and 32-bit Visual C++ were not affected.
+
+=item *
+
+B<miniperl.exe> is now built with B<-fno-strict-aliasing>, allowing 64-bit
+builds to complete with GCC 4.8.
+L<[perl #123976]|https://rt.perl.org/Ticket/Display.html?id=123976>
+
+=back
+
+=back
+
+=head1 Selected Bug Fixes
+
+=over 4
+
+=item *
+
+Repeated global pattern matches in scalar context on large tainted strings were
+exponentially slow depending on the current match position in the string.
+L<[perl #123202]|https://rt.perl.org/Ticket/Display.html?id=123202>
+
+=item *
+
+The original visible value of L<C<$E<sol>>|perlvar/$E<sol>> is now preserved
+when it is set to an invalid value.  Previously if you set C<$/> to a reference
+to an array, for example, perl would produce a runtime error and not set PL_rs,
+but Perl code that checked C<$/> would see the array reference.
+L<[perl #123218]|https://rt.perl.org/Ticket/Display.html?id=123218>
+
+=item *
+
+Perl 5.14.0 introduced a bug whereby C<eval { LABEL: }> would crash.  This has
+been fixed.
+L<[perl #123652]|https://rt.perl.org/Ticket/Display.html?id=123652>
+
+=item *
+
+Extending an array cloned from a parent thread could result in "Modification of
+a read-only value attempted" errors when attempting to modify the new elements.
+L<[perl #124127]|https://rt.perl.org/Ticket/Display.html?id=124127>
+
+=item *
+
+Several cases of data used to store environment variable contents in core C
+code being potentially overwritten before being used have been fixed.
+L<[perl #123748]|https://rt.perl.org/Ticket/Display.html?id=123748>
+
+=item *
+
+UTF-8 variable names used in array indexes, unquoted UTF-8 HERE-document
+terminators and UTF-8 function names all now work correctly.
+L<[perl #124113]|https://rt.perl.org/Ticket/Display.html?id=124113>
+
+=item *
+
+A subtle bug introduced in Perl 5.20.2 involving UTF-8 in regular expressions
+and sometimes causing a crash has been fixed.  A new test script has been added
+to test this fix; see under L</Testing>.
+L<[perl #124109]|https://rt.perl.org/Ticket/Display.html?id=124109>
+
+=item *
+
+Some patterns starting with C</.*..../> matched against long strings have been
+slow since Perl 5.8, and some of the form C</.*..../i> have been slow since
+Perl 5.18.  They are now all fast again.
+L<[perl #123743]|https://rt.perl.org/Ticket/Display.html?id=123743>
+
+=item *
+
+Warning fatality is now ignored when rewinding the stack.  This prevents
+infinite recursion when the now fatal error also causes rewinding of the stack.
+L<[perl #123398]|https://rt.perl.org/Ticket/Display.html?id=123398>
+
+=item *
+
+C<setpgrp($nonzero)> (with one argument) was accidentally changed in Perl 5.16
+to mean C<setpgrp(0)>.  This has been fixed.
+
+=item *
+
+A crash with C<< %::=(); J->${\"::"} >> has been fixed.
+L<[perl #125541]|https://rt.perl.org/Ticket/Display.html?id=125541>
+
+=item *
+
+Regular expression possessive quantifier Perl 5.20 regression now fixed.
+C<qr/>I<PAT>C<{>I<min>,I<max>C<}+>C</> is supposed to behave identically to
+C<qr/(?E<gt>>I<PAT>C<{>I<min>,I<max>C<})/>.  Since Perl 5.20, this didn't work
+if I<min> and I<max> were equal.
+L<[perl #125825]|https://rt.perl.org/Ticket/Display.html?id=125825>
+
+=item *
+
+Code like C</$a[/> used to read the next line of input and treat it as though
+it came immediately after the opening bracket.  Some invalid code consequently
+would parse and run, but some code caused crashes, so this is now disallowed.
+L<[perl #123712]|https://rt.perl.org/Ticket/Display.html?id=123712>
+
+=back
+
+=head1 Acknowledgements
+
+Perl 5.20.3 represents approximately 7 months of development since Perl 5.20.2
+and contains approximately 3,200 lines of changes across 99 files from 26
+authors.
+
+Excluding auto-generated files, documentation and release tools, there were
+approximately 1,500 lines of changes to 43 .pm, .t, .c and .h files.
+
+Perl continues to flourish into its third decade thanks to a vibrant community
+of users and developers.  The following people are known to have contributed
+the improvements that became Perl 5.20.3:
+
+Alex Vandiver, Andy Dougherty, Aristotle Pagaltzis, Chris 'BinGOs' Williams,
+Craig A. Berry, Dagfinn Ilmari Mannsåker, Daniel Dragan, David Mitchell,
+Father Chrysostomos, H.Merijn Brand, James E Keenan, James McCoy, Jarkko
+Hietaniemi, Karen Etheridge, Karl Williamson, kmx, Lajos Veres, Lukas Mai,
+Matthew Horsfall, Petr Písař, Randy Stauner, Ricardo Signes, Sawyer X, Steve
+Hay, Tony Cook, Yves Orton.
+
+The list above is almost certainly incomplete as it is automatically generated
+from version control history.  In particular, it does not include the names of
+the (very much appreciated) contributors who reported issues to the Perl bug
+tracker.
+
+Many of the changes included in this version originated in the CPAN modules
+included in Perl's core.  We're grateful to the entire CPAN community for
+helping Perl to flourish.
+
+For a more complete list of all of Perl's historical contributors, please see
+the F<AUTHORS> file in the Perl source distribution.
+
+=head1 Reporting Bugs
+
+If you find what you think is a bug, you might check the articles recently
+posted to the comp.lang.perl.misc newsgroup and the perl bug database at
+https://rt.perl.org/ .  There may also be information at
+http://www.perl.org/ , the Perl Home Page.
+
+If you believe you have an unreported bug, please run the L<perlbug> program
+included with your release.  Be sure to trim your bug down to a tiny but
+sufficient test case.  Your bug report, along with the output of C<perl -V>,
+will be sent off to perlbug@perl.org to be analysed by the Perl porting team.
+
+If the bug you are reporting has security implications, which make it
+inappropriate to send to a publicly archived mailing list, then please send it
+to perl5-security-report@perl.org.  This points to a closed subscription
+unarchived mailing list, which includes all the core committers, who will be
+able to help assess the impact of issues, figure out a resolution, and help
+co-ordinate the release of patches to mitigate or fix the problem across all
+platforms on which Perl is supported.  Please only use this address for
+security issues in the Perl core, not for modules independently distributed on
+CPAN.
+
+=head1 SEE ALSO
+
+The F<Changes> file for an explanation of how to view exhaustive details on
+what changed.
+
+The F<INSTALL> file for how to build Perl.
+
+The F<README> file for general stuff.
+
+The F<Artistic> and F<Copying> files for copyright information.
+
+=cut
diff --git a/lib/5.24.1/pod/perl5220delta.pod b/lib/5.24.1/pod/perl5220delta.pod
new file mode 100644
index 00000000..52df04b9
--- /dev/null
+++ b/lib/5.24.1/pod/perl5220delta.pod
@@ -0,0 +1,4039 @@
+=encoding utf8
+
+=head1 NAME
+
+perl5220delta - what is new for perl v5.22.0
+
+=head1 DESCRIPTION
+
+This document describes differences between the 5.20.0 release and the 5.22.0
+release.
+
+If you are upgrading from an earlier release such as 5.18.0, first read
+L<perl5200delta>, which describes differences between 5.18.0 and 5.20.0.
+
+=head1 Core Enhancements
+
+=head2 New bitwise operators
+
+A new experimental facility has been added that makes the four standard
+bitwise operators (C<& | ^ ~>) treat their operands consistently as
+numbers, and introduces four new dotted operators (C<&. |. ^. ~.>) that
+treat their operands consistently as strings.  The same applies to the
+assignment variants (C<&= |= ^= &.= |.= ^.=>).
+
+To use this, enable the "bitwise" feature and disable the
+"experimental::bitwise" warnings category.  See L<perlop/Bitwise String
+Operators> for details.
+L<[perl #123466]|https://rt.perl.org/Ticket/Display.html?id=123466>.
+
+=head2 New double-diamond operator
+
+C<<< <<>> >>> is like C<< <> >> but uses three-argument C<open> to open
+each file in C<@ARGV>.  This means that each element of C<@ARGV> will be treated
+as an actual file name, and C<"|foo"> won't be treated as a pipe open.
+
+=head2 New C<\b> boundaries in regular expressions
+
+=head3 C<qr/\b{gcb}/>
+
+C<gcb> stands for Grapheme Cluster Boundary.  It is a Unicode property
+that finds the boundary between sequences of characters that look like a
+single character to a native speaker of a language.  Perl has long had
+the ability to deal with these through the C<\X> regular escape
+sequence.  Now, there is an alternative way of handling these.  See
+L<perlrebackslash/\b{}, \b, \B{}, \B> for details.
+
+=head3 C<qr/\b{wb}/>
+
+C<wb> stands for Word Boundary.  It is a Unicode property
+that finds the boundary between words.  This is similar to the plain
+C<\b> (without braces) but is more suitable for natural language
+processing.  It knows, for example, that apostrophes can occur in the
+middle of words.  See L<perlrebackslash/\b{}, \b, \B{}, \B> for details.
+
+=head3 C<qr/\b{sb}/>
+
+C<sb> stands for Sentence Boundary.  It is a Unicode property
+to aid in parsing natural language sentences.
+See L<perlrebackslash/\b{}, \b, \B{}, \B> for details.
+
+=head2 Non-Capturing Regular Expression Flag
+
+Regular expressions now support a C</n> flag that disables capturing
+and filling in C<$1>, C<$2>, etc inside of groups:
+
+  "hello" =~ /(hi|hello)/n; # $1 is not set
+
+This is equivalent to putting C<?:> at the beginning of every capturing group.
+
+See L<perlre/"n"> for more information.
+
+=head2 C<use re 'strict'>
+
+This applies stricter syntax rules to regular expression patterns
+compiled within its scope. This will hopefully alert you to typos and
+other unintentional behavior that backwards-compatibility issues prevent
+us from reporting in normal regular expression compilations.  Because the
+behavior of this is subject to change in future Perl releases as we gain
+experience, using this pragma will raise a warning of category
+C<experimental::re_strict>.
+See L<'strict' in re|re/'strict' mode>.
+
+=head2 Unicode 7.0 (with correction) is now supported
+
+For details on what is in this release, see
+L<http://www.unicode.org/versions/Unicode7.0.0/>.
+The version of Unicode 7.0 that comes with Perl includes
+a correction dealing with glyph shaping in Arabic
+(see L<http://www.unicode.org/errata/#current_errata>).
+
+
+=head2 S<C<use locale>> can restrict which locale categories are affected
+
+It is now possible to pass a parameter to S<C<use locale>> to specify
+a subset of locale categories to be locale-aware, with the remaining
+ones unaffected.  See L<perllocale/The "use locale" pragma> for details.
+
+=head2 Perl now supports POSIX 2008 locale currency additions
+
+On platforms that are able to handle POSIX.1-2008, the
+hash returned by
+L<C<POSIX::localeconv()>|perllocale/The localeconv function>
+includes the international currency fields added by that version of the
+POSIX standard.  These are
+C<int_n_cs_precedes>,
+C<int_n_sep_by_space>,
+C<int_n_sign_posn>,
+C<int_p_cs_precedes>,
+C<int_p_sep_by_space>,
+and
+C<int_p_sign_posn>.
+
+=head2 Better heuristics on older platforms for determining locale UTF-8ness
+
+On platforms that implement neither the C99 standard nor the POSIX 2001
+standard, determining if the current locale is UTF-8 or not depends on
+heuristics.  These are improved in this release.
+
+=head2 Aliasing via reference
+
+Variables and subroutines can now be aliased by assigning to a reference:
+
+    \$c = \$d;
+    \&x = \&y;
+
+Aliasing can also be accomplished
+by using a backslash before a C<foreach> iterator variable; this is
+perhaps the most useful idiom this feature provides:
+
+    foreach \%hash (@array_of_hash_refs) { ... }
+
+This feature is experimental and must be enabled via S<C<use feature
+'refaliasing'>>.  It will warn unless the C<experimental::refaliasing>
+warnings category is disabled.
+
+See L<perlref/Assigning to References>
+
+=head2 C<prototype> with no arguments
+
+C<prototype()> with no arguments now infers C<$_>.
+L<[perl #123514]|https://rt.perl.org/Ticket/Display.html?id=123514>.
+
+=head2 New C<:const> subroutine attribute
+
+The C<const> attribute can be applied to an anonymous subroutine.  It
+causes the new sub to be executed immediately whenever one is created
+(I<i.e.> when the C<sub> expression is evaluated).  Its value is captured
+and used to create a new constant subroutine that is returned.  This
+feature is experimental.  See L<perlsub/Constant Functions>.
+
+=head2 C<fileno> now works on directory handles
+
+When the relevant support is available in the operating system, the
+C<fileno> builtin now works on directory handles, yielding the
+underlying file descriptor in the same way as for filehandles. On
+operating systems without such support, C<fileno> on a directory handle
+continues to return the undefined value, as before, but also sets C<$!> to
+indicate that the operation is not supported.
+
+Currently, this uses either a C<dd_fd> member in the OS C<DIR>
+structure, or a C<dirfd(3)> function as specified by POSIX.1-2008.
+
+=head2 List form of pipe open implemented for Win32
+
+The list form of pipe:
+
+  open my $fh, "-|", "program", @arguments;
+
+is now implemented on Win32.  It has the same limitations as C<system
+LIST> on Win32, since the Win32 API doesn't accept program arguments
+as a list.
+
+=head2 Assignment to list repetition
+
+C<(...) x ...> can now be used within a list that is assigned to, as long
+as the left-hand side is a valid lvalue.  This allows S<C<(undef,undef,$foo)
+= that_function()>> to be written as S<C<((undef)x2, $foo) = that_function()>>.
+
+=head2 Infinity and NaN (not-a-number) handling improved
+
+Floating point values are able to hold the special values infinity, negative
+infinity, and NaN (not-a-number).  Now we more robustly recognize and
+propagate the value in computations, and on output normalize them to the strings
+C<Inf>, C<-Inf>, and C<NaN>.
+
+See also the L<POSIX> enhancements.
+
+=head2 Floating point parsing has been improved
+
+Parsing and printing of floating point values has been improved.
+
+As a completely new feature, hexadecimal floating point literals
+(like C<0x1.23p-4>)  are now supported, and they can be output with
+S<C<printf "%a">>. See L<perldata/Scalar value constructors> for more
+details.
+
+=head2 Packing infinity or not-a-number into a character is now fatal
+
+Before, when trying to pack infinity or not-a-number into a
+(signed) character, Perl would warn, and assumed you tried to
+pack C<< 0xFF >>; if you gave it as an argument to C<< chr >>,
+C<< U+FFFD >> was returned.
+
+But now, all such actions (C<< pack >>, C<< chr >>, and C<< print '%c' >>)
+result in a fatal error.
+
+=head2 Experimental C Backtrace API
+
+Perl now supports (via a C level API) retrieving
+the C level backtrace (similar to what symbolic debuggers like gdb do).
+
+The backtrace returns the stack trace of the C call frames,
+with the symbol names (function names), the object names (like "perl"),
+and if it can, also the source code locations (file:line).
+
+The supported platforms are Linux and OS X (some *BSD might work at
+least partly, but they have not yet been tested).
+
+The feature needs to be enabled with C<Configure -Dusecbacktrace>.
+
+See L<perlhacktips/"C backtrace"> for more information.
+
+=head1 Security
+
+=head2 Perl is now compiled with C<-fstack-protector-strong> if available
+
+Perl has been compiled with the anti-stack-smashing option
+C<-fstack-protector> since 5.10.1.  Now Perl uses the newer variant
+called C<-fstack-protector-strong>, if available.
+
+=head2 The L<Safe> module could allow outside packages to be replaced
+
+Critical bugfix: outside packages could be replaced.  L<Safe> has
+been patched to 2.38 to address this.
+
+=head2 Perl is now always compiled with C<-D_FORTIFY_SOURCE=2> if available
+
+The 'code hardening' option called C<_FORTIFY_SOURCE>, available in
+gcc 4.*, is now always used for compiling Perl, if available.
+
+Note that this isn't necessarily a huge step since in many platforms
+the step had already been taken several years ago: many Linux
+distributions (like Fedora) have been using this option for Perl,
+and OS X has enforced the same for many years.
+
+=head1 Incompatible Changes
+
+=head2 Subroutine signatures moved before attributes
+
+The experimental sub signatures feature, as introduced in 5.20, parsed
+signatures after attributes. In this release, following feedback from users
+of the experimental feature, the positioning has been moved such that
+signatures occur after the subroutine name (if any) and before the attribute
+list (if any).
+
+=head2 C<&> and C<\&> prototypes accepts only subs
+
+The C<&> prototype character now accepts only anonymous subs (C<sub
+{...}>), things beginning with C<\&>, or an explicit C<undef>.  Formerly
+it erroneously also allowed references to arrays, hashes, and lists.
+L<[perl #4539]|https://rt.perl.org/Ticket/Display.html?id=4539>.
+L<[perl #123062]|https://rt.perl.org/Ticket/Display.html?id=123062>.
+L<[perl #123062]|https://rt.perl.org/Ticket/Display.html?id=123475>.
+
+In addition, the C<\&> prototype was allowing subroutine calls, whereas
+now it only allows subroutines: C<&foo> is still permitted as an argument,
+while C<&foo()> and C<foo()> no longer are.
+L<[perl #77860]|https://rt.perl.org/Ticket/Display.html?id=77860>.
+
+=head2 C<use encoding> is now lexical
+
+The L<encoding> pragma's effect is now limited to lexical scope.  This
+pragma is deprecated, but in the meantime, it could adversely affect
+unrelated modules that are included in the same program; this change
+fixes that.
+
+=head2 List slices returning empty lists
+
+List slices now return an empty list only if the original list was empty
+(or if there are no indices).  Formerly, a list slice would return an empty
+list if all indices fell outside the original list; now it returns a list
+of C<undef> values in that case.
+L<[perl #114498]|https://rt.perl.org/Ticket/Display.html?id=114498>.
+
+=head2 C<\N{}> with a sequence of multiple spaces is now a fatal error
+
+E.g. S<C<\N{TOOE<nbsp>E<nbsp>MANY SPACES}>> or S<C<\N{TRAILING SPACE }>>.
+This has been deprecated since v5.18.
+
+=head2 S<C<use UNIVERSAL '...'>> is now a fatal error
+
+Importing functions from C<UNIVERSAL> has been deprecated since v5.12, and
+is now a fatal error.  S<C<use UNIVERSAL>> without any arguments is still
+allowed.
+
+=head2 In double-quotish C<\cI<X>>, I<X> must now be a printable ASCII character
+
+In prior releases, failure to do this raised a deprecation warning.
+
+=head2 Splitting the tokens C<(?> and C<(*> in regular expressions is now a fatal compilation error.
+
+These had been deprecated since v5.18.
+
+=head2 C<qr/foo/x> now ignores all Unicode pattern white space
+
+The C</x> regular expression modifier allows the pattern to contain
+white space and comments (both of which are ignored) for improved
+readability.  Until now, not all the white space characters that Unicode
+designates for this purpose were handled.  The additional ones now
+recognized are:
+
+    U+0085 NEXT LINE
+    U+200E LEFT-TO-RIGHT MARK
+    U+200F RIGHT-TO-LEFT MARK
+    U+2028 LINE SEPARATOR
+    U+2029 PARAGRAPH SEPARATOR
+
+The use of these characters with C</x> outside bracketed character
+classes and when not preceded by a backslash has raised a deprecation
+warning since v5.18.  Now they will be ignored.
+
+=head2 Comment lines within S<C<(?[ ])>> are now ended only by a C<\n>
+
+S<C<(?[ ])>>  is an experimental feature, introduced in v5.18.  It operates
+as if C</x> is always enabled.  But there was a difference: comment
+lines (following a C<#> character) were terminated by anything matching
+C<\R> which includes all vertical whitespace, such as form feeds.  For
+consistency, this is now changed to match what terminates comment lines
+outside S<C<(?[ ])>>, namely a C<\n> (even if escaped), which is the
+same as what terminates a heredoc string and formats.
+
+=head2 C<(?[...])> operators now follow standard Perl precedence
+
+This experimental feature allows set operations in regular expression patterns.
+Prior to this, the intersection operator had the same precedence as the other
+binary operators.  Now it has higher precedence.  This could lead to different
+outcomes than existing code expects (though the documentation has always noted
+that this change might happen, recommending fully parenthesizing the
+expressions).  See L<perlrecharclass/Extended Bracketed Character Classes>.
+
+=head2 Omitting C<%> and C<@> on hash and array names is no longer permitted
+
+Really old Perl let you omit the C<@> on array names and the C<%> on hash
+names in some spots.  This has issued a deprecation warning since Perl
+5.000, and is no longer permitted.
+
+=head2 C<"$!"> text is now in English outside the scope of C<use locale>
+
+Previously, the text, unlike almost everything else, always came out
+based on the current underlying locale of the program.  (Also affected
+on some systems is C<"$^E">.)  For programs that are unprepared to
+handle locale differences, this can cause garbage text to be displayed.
+It's better to display text that is translatable via some tool than
+garbage text which is much harder to figure out.
+
+=head2 C<"$!"> text will be returned in UTF-8 when appropriate
+
+The stringification of C<$!> and C<$^E> will have the UTF-8 flag set
+when the text is actually non-ASCII UTF-8.  This will enable programs
+that are set up to be locale-aware to properly output messages in the
+user's native language.  Code that needs to continue the 5.20 and
+earlier behavior can do the stringification within the scopes of both
+S<C<use bytes>> and S<C<use locale ":messages">>.  Within these two
+scopes, no other Perl operations will
+be affected by locale; only C<$!> and C<$^E> stringification.  The
+C<bytes> pragma causes the UTF-8 flag to not be set, just as in previous
+Perl releases.  This resolves
+L<[perl #112208]|https://rt.perl.org/Ticket/Display.html?id=112208>.
+
+=head2 Support for C<?PATTERN?> without explicit operator has been removed
+
+The C<m?PATTERN?> construct, which allows matching a regex only once,
+previously had an alternative form that was written directly with a question
+mark delimiter, omitting the explicit C<m> operator.  This usage has produced
+a deprecation warning since 5.14.0.  It is now a syntax error, so that the
+question mark can be available for use in new operators.
+
+=head2 C<defined(@array)> and C<defined(%hash)> are now fatal errors
+
+These have been deprecated since v5.6.1 and have raised deprecation
+warnings since v5.16.
+
+=head2 Using a hash or an array as a reference are now fatal errors
+
+For example, C<< %foo->{"bar"} >> now causes a fatal compilation
+error.  These have been deprecated since before v5.8, and have raised
+deprecation warnings since then.
+
+=head2 Changes to the C<*> prototype
+
+The C<*> character in a subroutine's prototype used to allow barewords to take
+precedence over most, but not all, subroutine names.  It was never
+consistent and exhibited buggy behavior.
+
+Now it has been changed, so subroutines always take precedence over barewords,
+which brings it into conformity with similarly prototyped built-in functions:
+
+    sub splat(*) { ... }
+    sub foo { ... }
+    splat(foo); # now always splat(foo())
+    splat(bar); # still splat('bar') as before
+    close(foo); # close(foo())
+    close(bar); # close('bar')
+
+=head1 Deprecations
+
+=head2 Setting C<${^ENCODING}> to anything but C<undef>
+
+This variable allows Perl scripts to be written in an encoding other than
+ASCII or UTF-8.  However, it affects all modules globally, leading
+to wrong answers and segmentation faults.  New scripts should be written
+in UTF-8; old scripts should be converted to UTF-8, which is easily done
+with the L<piconv> utility.
+
+=head2 Use of non-graphic characters in single-character variable names
+
+The syntax for single-character variable names is more lenient than
+for longer variable names, allowing the one-character name to be a
+punctuation character or even invisible (a non-graphic).  Perl v5.20
+deprecated the ASCII-range controls as such a name.  Now, all
+non-graphic characters that formerly were allowed are deprecated.
+The practical effect of this occurs only when not under C<S<use
+utf8>>, and affects just the C1 controls (code points 0x80 through
+0xFF), NO-BREAK SPACE, and SOFT HYPHEN.
+
+=head2 Inlining of C<sub () { $var }> with observable side-effects
+
+In many cases Perl makes S<C<sub () { $var }>> into an inlinable constant
+subroutine, capturing the value of C<$var> at the time the C<sub> expression
+is evaluated.  This can break the closure behavior in those cases where
+C<$var> is subsequently modified, since the subroutine won't return the
+changed value. (Note that this all only applies to anonymous subroutines
+with an empty prototype (S<C<sub ()>>).)
+
+This usage is now deprecated in those cases where the variable could be
+modified elsewhere.  Perl detects those cases and emits a deprecation
+warning.  Such code will likely change in the future and stop producing a
+constant.
+
+If your variable is only modified in the place where it is declared, then
+Perl will continue to make the sub inlinable with no warnings.
+
+    sub make_constant {
+        my $var = shift;
+        return sub () { $var }; # fine
+    }
+
+    sub make_constant_deprecated {
+        my $var;
+        $var = shift;
+        return sub () { $var }; # deprecated
+    }
+
+    sub make_constant_deprecated2 {
+        my $var = shift;
+        log_that_value($var); # could modify $var
+        return sub () { $var }; # deprecated
+    }
+
+In the second example above, detecting that C<$var> is assigned to only once
+is too hard to detect.  That it happens in a spot other than the C<my>
+declaration is enough for Perl to find it suspicious.
+
+This deprecation warning happens only for a simple variable for the body of
+the sub.  (A C<BEGIN> block or C<use> statement inside the sub is ignored,
+because it does not become part of the sub's body.)  For more complex
+cases, such as S<C<sub () { do_something() if 0; $var }>> the behavior has
+changed such that inlining does not happen if the variable is modifiable
+elsewhere.  Such cases should be rare.
+
+=head2 Use of multiple C</x> regexp modifiers
+
+It is now deprecated to say something like any of the following:
+
+    qr/foo/xx;
+    /(?xax:foo)/;
+    use re qw(/amxx);
+
+That is, now C<x> should only occur once in any string of contiguous
+regular expression pattern modifiers.  We do not believe there are any
+occurrences of this in all of CPAN.  This is in preparation for a future
+Perl release having C</xx> permit white-space for readability in
+bracketed character classes (those enclosed in square brackets:
+C<[...]>).
+
+=head2 Using a NO-BREAK space in a character alias for C<\N{...}> is now deprecated
+
+This non-graphic character is essentially indistinguishable from a
+regular space, and so should not be allowed.  See
+L<charnames/CUSTOM ALIASES>.
+
+=head2 A literal C<"{"> should now be escaped in a pattern
+
+If you want a literal left curly bracket (also called a left brace) in a
+regular expression pattern, you should now escape it by either
+preceding it with a backslash (C<"\{">) or enclosing it within square
+brackets C<"[{]">, or by using C<\Q>; otherwise a deprecation warning
+will be raised.  This was first announced as forthcoming in the v5.16
+release; it will allow future extensions to the language to happen.
+
+=head2 Making all warnings fatal is discouraged
+
+The documentation for L<fatal warnings|warnings/Fatal Warnings> notes that
+C<< use warnings FATAL => 'all' >> is discouraged, and provides stronger
+language about the risks of fatal warnings in general.
+
+=head1 Performance Enhancements
+
+=over 4
+
+=item *
+
+If a method or class name is known at compile time, a hash is precomputed
+to speed up run-time method lookup.  Also, compound method names like
+C<SUPER::new> are parsed at compile time, to save having to parse them at
+run time.
+
+=item *
+
+Array and hash lookups (especially nested ones) that use only constants
+or simple variables as keys, are now considerably faster. See
+L</Internal Changes> for more details.
+
+=item *
+
+C<(...)x1>, C<("constant")x0> and C<($scalar)x0> are now optimised in list
+context.  If the right-hand argument is a constant 1, the repetition
+operator disappears.  If the right-hand argument is a constant 0, the whole
+expression is optimised to the empty list, so long as the left-hand
+argument is a simple scalar or constant.  (That is, C<(foo())x0> is not
+subject to this optimisation.)
+
+=item *
+
+C<substr> assignment is now optimised into 4-argument C<substr> at the end
+of a subroutine (or as the argument to C<return>).  Previously, this
+optimisation only happened in void context.
+
+=item *
+
+In C<"\L...">, C<"\Q...">, etc., the extra "stringify" op is now optimised
+away, making these just as fast as C<lcfirst>, C<quotemeta>, etc.
+
+=item *
+
+Assignment to an empty list is now sometimes faster.  In particular, it
+never calls C<FETCH> on tied arguments on the right-hand side, whereas it
+used to sometimes.
+
+=item *
+
+There is a performance improvement of up to 20% when C<length> is applied to
+a non-magical, non-tied string, and either C<use bytes> is in scope or the
+string doesn't use UTF-8 internally.
+
+=item *
+
+On most perl builds with 64-bit integers, memory usage for non-magical,
+non-tied scalars containing only a floating point value has been reduced
+by between 8 and 32 bytes, depending on OS.
+
+=item *
+
+In C<@array = split>, the assignment can be optimized away, so that C<split>
+writes directly to the array.  This optimisation was happening only for
+package arrays other than C<@_>, and only sometimes.  Now this
+optimisation happens almost all the time.
+
+=item *
+
+C<join> is now subject to constant folding.  So for example
+S<C<join "-", "a", "b">> is converted at compile-time to C<"a-b">.
+Moreover, C<join> with a scalar or constant for the separator and a
+single-item list to join is simplified to a stringification, and the
+separator doesn't even get evaluated.
+
+=item *
+
+C<qq(@array)> is implemented using two ops: a stringify op and a join op.
+If the C<qq> contains nothing but a single array, the stringification is
+optimized away.
+
+=item *
+
+S<C<our $var>> and S<C<our($s,@a,%h)>> in void context are no longer evaluated at
+run time.  Even a whole sequence of S<C<our $foo;>> statements will simply be
+skipped over.  The same applies to C<state> variables.
+
+=item *
+
+Many internal functions have been refactored to improve performance and reduce
+their memory footprints.
+L<[perl #121436]|https://rt.perl.org/Ticket/Display.html?id=121436>
+L<[perl #121906]|https://rt.perl.org/Ticket/Display.html?id=121906>
+L<[perl #121969]|https://rt.perl.org/Ticket/Display.html?id=121969>
+
+=item *
+
+C<-T> and C<-B> filetests will return sooner when an empty file is detected.
+L<[perl #121489]|https://rt.perl.org/Ticket/Display.html?id=121489>
+
+=item *
+
+Hash lookups where the key is a constant are faster.
+
+=item *
+
+Subroutines with an empty prototype and a body containing just C<undef> are now
+eligible for inlining.
+L<[perl #122728]|https://rt.perl.org/Ticket/Display.html?id=122728>
+
+=item *
+
+Subroutines in packages no longer need to be stored in typeglobs:
+declaring a subroutine will now put a simple sub reference directly in the
+stash if possible, saving memory.  The typeglob still notionally exists,
+so accessing it will cause the stash entry to be upgraded to a typeglob
+(I<i.e.> this is just an internal implementation detail).
+This optimization does not currently apply to XSUBs or exported
+subroutines, and method calls will undo it, since they cache things in
+typeglobs.
+L<[perl #120441]|https://rt.perl.org/Ticket/Display.html?id=120441>
+
+=item *
+
+The functions C<utf8::native_to_unicode()> and C<utf8::unicode_to_native()>
+(see L<utf8>) are now optimized out on ASCII platforms.  There is now not even
+a minimal performance hit in writing code portable between ASCII and EBCDIC
+platforms.
+
+=item *
+
+Win32 Perl uses 8 KB less of per-process memory than before for every perl
+process, because some data is now memory mapped from disk and shared
+between processes from the same perl binary.
+
+=back
+
+=head1 Modules and Pragmata
+
+=head2 Updated Modules and Pragmata
+
+Many of the libraries distributed with perl have been upgraded since v5.20.0.
+For a complete list of changes, run:
+
+  corelist --diff 5.20.0 5.22.0
+
+You can substitute your favorite version in place of 5.20.0, too.
+
+Some notable changes include:
+
+=over 4
+
+=item *
+
+L<Archive::Tar> has been upgraded to version 2.04.
+
+Tests can now be run in parallel.
+
+=item *
+
+L<attributes> has been upgraded to version 0.27.
+
+The usage of C<memEQs> in the XS has been corrected.
+L<[perl #122701]|https://rt.perl.org/Ticket/Display.html?id=122701>
+
+Avoid reading beyond the end of a buffer. [perl #122629]
+
+=item *
+
+L<B> has been upgraded to version 1.58.
+
+It provides a new C<B::safename> function, based on the existing
+C<< B::GV->SAFENAME >>, that converts C<\cOPEN> to C<^OPEN>.
+
+Nulled COPs are now of class C<B::COP>, rather than C<B::OP>.
+
+C<B::REGEXP> objects now provide a C<qr_anoncv> method for accessing the
+implicit CV associated with C<qr//> things containing code blocks, and a
+C<compflags> method that returns the pertinent flags originating from the
+C<qr//blahblah> op.
+
+C<B::PMOP> now provides a C<pmregexp> method returning a C<B::REGEXP> object.
+Two new classes, C<B::PADNAME> and C<B::PADNAMELIST>, have been introduced.
+
+A bug where, after an ithread creation or psuedofork, special/immortal SVs in
+the child ithread/psuedoprocess did not have the correct class of
+C<B::SPECIAL>, has been fixed.
+The C<id> and C<outid> PADLIST methods have been added.
+
+=item *
+
+L<B::Concise> has been upgraded to version 0.996.
+
+Null ops that are part of the execution chain are now given sequence
+numbers.
+
+Private flags for nulled ops are now dumped with mnemonics as they would be
+for the non-nulled counterparts.
+
+=item *
+
+L<B::Deparse> has been upgraded to version 1.35.
+
+It now deparses C<+sub : attr { ... }> correctly at the start of a
+statement.  Without the initial C<+>, C<sub> would be a statement label.
+
+C<BEGIN> blocks are now emitted in the right place most of the time, but
+the change unfortunately introduced a regression, in that C<BEGIN> blocks
+occurring just before the end of the enclosing block may appear below it
+instead.
+
+C<B::Deparse> no longer puts erroneous C<local> here and there, such as for
+C<LIST = tr/a//d>.  [perl #119815]
+
+Adjacent C<use> statements are no longer accidentally nested if one
+contains a C<do> block.  [perl #115066]
+
+Parenthesised arrays in lists passed to C<\> are now correctly deparsed
+with parentheses (I<e.g.>, C<\(@a, (@b), @c)> now retains the parentheses
+around @b), thus preserving the flattening behavior of referenced
+parenthesised arrays.  Formerly, it only worked for one array: C<\(@a)>.
+
+C<local our> is now deparsed correctly, with the C<our> included.
+
+C<for($foo; !$bar; $baz) {...}> was deparsed without the C<!> (or C<not>).
+This has been fixed.
+
+Core keywords that conflict with lexical subroutines are now deparsed with
+the C<CORE::> prefix.
+
+C<foreach state $x (...) {...}> now deparses correctly with C<state> and
+not C<my>.
+
+C<our @array = split(...)> now deparses correctly with C<our> in those
+cases where the assignment is optimized away.
+
+It now deparses C<our(I<LIST>)> and typed lexical (C<my Dog $spot>) correctly.
+
+Deparse C<$#_> as that instead of as C<$#{_}>.
+L<[perl #123947]|https://rt.perl.org/Ticket/Display.html?id=123947>
+
+BEGIN blocks at the end of the enclosing scope are now deparsed in the
+right place.  [perl #77452]
+
+BEGIN blocks were sometimes deparsed as __ANON__, but are now always called
+BEGIN.
+
+Lexical subroutines are now fully deparsed.  [perl #116553]
+
+C<Anything =~ y///r> with C</r> no longer omits the left-hand operand.
+
+The op trees that make up regexp code blocks are now deparsed for real.
+Formerly, the original string that made up the regular expression was used.
+That caused problems with C<qr/(?{E<lt>E<lt>heredoc})/> and multiline code blocks,
+which were deparsed incorrectly.  [perl #123217] [perl #115256]
+
+C<$;> at the end of a statement no longer loses its semicolon.
+[perl #123357]
+
+Some cases of subroutine declarations stored in the stash in shorthand form
+were being omitted.
+
+Non-ASCII characters are now consistently escaped in strings, instead of
+some of the time.  (There are still outstanding problems with regular
+expressions and identifiers that have not been fixed.)
+
+When prototype sub calls are deparsed with C<&> (I<e.g.>, under the B<-P>
+option), C<scalar> is now added where appropriate, to force the scalar
+context implied by the prototype.
+
+C<require(foo())>, C<do(foo())>, C<goto(foo())> and similar constructs with
+loop controls are now deparsed correctly.  The outer parentheses are not
+optional.
+
+Whitespace is no longer escaped in regular expressions, because it was
+getting erroneously escaped within C<(?x:...)> sections.
+
+C<sub foo { foo() }> is now deparsed with those mandatory parentheses.
+
+C</@array/> is now deparsed as a regular expression, and not just
+C<@array>.
+
+C</@{-}/>, C</@{+}/> and C<$#{1}> are now deparsed with the braces, which
+are mandatory in these cases.
+
+In deparsing feature bundles, C<B::Deparse> was emitting C<no feature;> first
+instead of C<no feature ':all';>.  This has been fixed.
+
+C<chdir FH> is now deparsed without quotation marks.
+
+C<\my @a> is now deparsed without parentheses.  (Parenthese would flatten
+the array.)
+
+C<system> and C<exec> followed by a block are now deparsed correctly.
+Formerly there was an erroneous C<do> before the block.
+
+C<< use constant QR =E<gt> qr/.../flags >> followed by C<"" =~ QR> is no longer
+without the flags.
+
+Deparsing C<BEGIN { undef &foo }> with the B<-w> switch enabled started to
+emit 'uninitialized' warnings in Perl 5.14.  This has been fixed.
+
+Deparsing calls to subs with a C<(;+)> prototype resulted in an infinite
+loop.  The C<(;$>) C<(_)> and C<(;_)> prototypes were given the wrong
+precedence, causing C<foo($aE<lt>$b)> to be deparsed without the parentheses.
+
+Deparse now provides a defined state sub in inner subs.
+
+=item *
+
+L<B::Op_private> has been added.
+
+L<B::Op_private> provides detailed information about the flags used in the
+C<op_private> field of perl opcodes.
+
+=item *
+
+L<bigint>, L<bignum>, L<bigrat> have been upgraded to version 0.39.
+
+Document in CAVEATS that using strings as numbers won't always invoke
+the big number overloading, and how to invoke it.  [rt.perl.org #123064]
+
+=item *
+
+L<Carp> has been upgraded to version 1.36.
+
+C<Carp::Heavy> now ignores version mismatches with Carp if Carp is newer
+than 1.12, since C<Carp::Heavy>'s guts were merged into Carp at that
+point.
+L<[perl #121574]|https://rt.perl.org/Ticket/Display.html?id=121574>
+
+Carp now handles non-ASCII platforms better.
+
+Off-by-one error fix for Perl E<lt> 5.14.
+
+=item *
+
+L<constant> has been upgraded to version 1.33.
+
+It now accepts fully-qualified constant names, allowing constants to be defined
+in packages other than the caller.
+
+=item *
+
+L<CPAN> has been upgraded to version 2.11.
+
+Add support for C<Cwd::getdcwd()> and introduce workaround for a misbehavior
+seen on Strawberry Perl 5.20.1.
+
+Fix C<chdir()> after building dependencies bug.
+
+Introduce experimental support for plugins/hooks.
+
+Integrate the C<App::Cpan> sources.
+
+Do not check recursion on optional dependencies.
+
+Sanity check F<META.yml> to contain a hash.
+L<[cpan #95271]|https://rt.cpan.org/Ticket/Display.html?id=95271>
+
+=item *
+
+L<CPAN::Meta::Requirements> has been upgraded to version 2.132.
+
+Works around limitations in C<version::vpp> detecting v-string magic and adds
+support for forthcoming L<ExtUtils::MakeMaker> bootstrap F<version.pm> for
+Perls older than 5.10.0.
+
+=item *
+
+L<Data::Dumper> has been upgraded to version 2.158.
+
+Fixes CVE-2014-4330 by adding a configuration variable/option to limit
+recursion when dumping deep data structures.
+
+Changes to resolve Coverity issues.
+XS dumps incorrectly stored the name of code references stored in a
+GLOB.
+L<[perl #122070]|https://rt.perl.org/Ticket/Display.html?id=122070>
+
+=item *
+
+L<DynaLoader> has been upgraded to version 1.32.
+
+Remove C<dl_nonlazy> global if unused in Dynaloader. [perl #122926]
+
+=item *
+
+L<Encode> has been upgraded to version 2.72.
+
+C<piconv> now has better error handling when the encoding name is nonexistent,
+and a build breakage when upgrading L<Encode> in perl-5.8.2 and earlier has
+been fixed.
+
+Building in C++ mode on Windows now works.
+
+=item *
+
+L<Errno> has been upgraded to version 1.23.
+
+Add C<-P> to the preprocessor command-line on GCC 5.  GCC added extra
+line directives, breaking parsing of error code definitions.  [rt.perl.org
+#123784]
+
+=item *
+
+L<experimental> has been upgraded to version 0.013.
+
+Hardcodes features for Perls older than 5.15.7.
+
+=item *
+
+L<ExtUtils::CBuilder> has been upgraded to version 0.280221.
+
+Fixes a regression on Android.
+L<[perl #122675]|https://rt.perl.org/Ticket/Display.html?id=122675>
+
+=item *
+
+L<ExtUtils::Manifest> has been upgraded to version 1.70.
+
+Fixes a bug with C<maniread()>'s handling of quoted filenames and improves
+C<manifind()> to follow symlinks.
+L<[perl #122415]|https://rt.perl.org/Ticket/Display.html?id=122415>
+
+=item *
+
+L<ExtUtils::ParseXS> has been upgraded to version 3.28.
+
+Only declare C<file> unused if we actually define it.
+Improve generated C<RETVAL> code generation to avoid repeated
+references to C<ST(0)>.  [perl #123278]
+Broaden and document the C</OBJ$/> to C</REF$/> typemap optimization
+for the C<DESTROY> method.  [perl #123418]
+
+=item *
+
+L<Fcntl> has been upgraded to version 1.13.
+
+Add support for the Linux pipe buffer size C<fcntl()> commands.
+
+=item *
+
+L<File::Find> has been upgraded to version 1.29.
+
+C<find()> and C<finddepth()> will now warn if passed inappropriate or
+misspelled options.
+
+=item *
+
+L<File::Glob> has been upgraded to version 1.24.
+
+Avoid C<SvIV()> expanding to call C<get_sv()> three times in a few
+places. [perl #123606]
+
+=item *
+
+L<HTTP::Tiny> has been upgraded to version 0.054.
+
+C<keep_alive> is now fork-safe and thread-safe.
+
+=item *
+
+L<IO> has been upgraded to version 1.35.
+
+The XS implementation has been fixed for the sake of older Perls.
+
+=item *
+
+L<IO::Socket> has been upgraded to version 1.38.
+
+Document the limitations of the C<connected()> method.  [perl #123096]
+
+=item *
+
+L<IO::Socket::IP> has been upgraded to version 0.37.
+
+A better fix for subclassing C<connect()>.
+L<[cpan #95983]|https://rt.cpan.org/Ticket/Display.html?id=95983>
+L<[cpan #97050]|https://rt.cpan.org/Ticket/Display.html?id=97050>
+
+Implements Timeout for C<connect()>.
+L<[cpan #92075]|https://rt.cpan.org/Ticket/Display.html?id=92075>
+
+=item *
+
+The libnet collection of modules has been upgraded to version 3.05.
+
+Support for IPv6 and SSL to C<Net::FTP>, C<Net::NNTP>, C<Net::POP3> and C<Net::SMTP>.
+Improvements in C<Net::SMTP> authentication.
+
+=item *
+
+L<Locale::Codes> has been upgraded to version 3.34.
+
+Fixed a bug in the scripts used to extract data from spreadsheets that
+prevented the SHP currency code from being found.
+L<[cpan #94229]|https://rt.cpan.org/Ticket/Display.html?id=94229>
+
+New codes have been added.
+
+=item *
+
+L<Math::BigInt> has been upgraded to version 1.9997.
+
+Synchronize POD changes from the CPAN release.
+C<< Math::BigFloat->blog(x) >> would sometimes return C<blog(2*x)> when
+the accuracy was greater than 70 digits.
+The result of C<< Math::BigFloat->bdiv() >> in list context now
+satisfies C<< x = quotient * divisor + remainder >>.
+
+Correct handling of subclasses.
+L<[cpan #96254]|https://rt.cpan.org/Ticket/Display.html?id=96254>
+L<[cpan #96329]|https://rt.cpan.org/Ticket/Display.html?id=96329>
+
+=item *
+
+L<Module::Metadata> has been upgraded to version 1.000026.
+
+Support installations on older perls with an L<ExtUtils::MakeMaker> earlier
+than 6.63_03
+
+=item *
+
+L<overload> has been upgraded to version 1.26.
+
+A redundant C<ref $sub> check has been removed.
+
+=item *
+
+The PathTools module collection has been upgraded to version 3.56.
+
+A warning from the B<gcc> compiler is now avoided when building the XS.
+
+Don't turn leading C<//> into C</> on Cygwin. [perl #122635]
+
+=item *
+
+L<perl5db.pl> has been upgraded to version 1.49.
+
+The debugger would cause an assertion failure.
+L<[perl #124127]|https://rt.perl.org/Ticket/Display.html?id=124127>
+
+C<fork()> in the debugger under C<tmux> will now create a new window for
+the forked process. L<[perl
+#121333]|https://rt.perl.org/Ticket/Display.html?id=121333>
+
+The debugger now saves the current working directory on startup and
+restores it when you restart your program with C<R> or C<rerun>. L<[perl
+#121509]|https://rt.perl.org/Ticket/Display.html?id=121509>
+
+=item *
+
+L<PerlIO::scalar> has been upgraded to version 0.22.
+
+Reading from a position well past the end of the scalar now correctly
+returns end of file.  [perl #123443]
+
+Seeking to a negative position still fails, but no longer leaves the
+file position set to a negation location.
+
+C<eof()> on a C<PerlIO::scalar> handle now properly returns true when
+the file position is past the 2GB mark on 32-bit systems.
+
+Attempting to write at file positions impossible for the platform now
+fail early rather than wrapping at 4GB.
+
+=item *
+
+L<Pod::Perldoc> has been upgraded to version 3.25.
+
+Filehandles opened for reading or writing now have C<:encoding(UTF-8)> set.
+L<[cpan #98019]|https://rt.cpan.org/Ticket/Display.html?id=98019>
+
+=item *
+
+L<POSIX> has been upgraded to version 1.53.
+
+The C99 math functions and constants (for example C<acosh>, C<isinf>, C<isnan>, C<round>,
+C<trunc>; C<M_E>, C<M_SQRT2>, C<M_PI>) have been added.
+
+C<POSIX::tmpnam()> now produces a deprecation warning.  [perl #122005]
+
+=item *
+
+L<Safe> has been upgraded to version 2.39.
+
+C<reval> was not propagating void context properly.
+
+=item *
+
+Scalar-List-Utils has been upgraded to version 1.41.
+
+A new module, L<Sub::Util>, has been added, containing functions related to
+CODE refs, including C<subname> (inspired by C<Sub::Identity>) and C<set_subname>
+(copied and renamed from C<Sub::Name>).
+The use of C<GetMagic> in C<List::Util::reduce()> has also been fixed.
+L<[cpan #63211]|https://rt.cpan.org/Ticket/Display.html?id=63211>
+
+=item *
+
+L<SDBM_File> has been upgraded to version 1.13.
+
+Simplified the build process.  [perl #123413]
+
+=item *
+
+L<Time::Piece> has been upgraded to version 1.29.
+
+When pretty printing negative C<Time::Seconds>, the "minus" is no longer lost.
+
+=item *
+
+L<Unicode::Collate> has been upgraded to version 1.12.
+
+Version 0.67's improved discontiguous contractions is invalidated by default
+and is supported as a parameter C<long_contraction>.
+
+=item *
+
+L<Unicode::Normalize> has been upgraded to version 1.18.
+
+The XSUB implementation has been removed in favor of pure Perl.
+
+=item *
+
+L<Unicode::UCD> has been upgraded to version 0.61.
+
+A new function L<property_values()|Unicode::UCD/prop_values()>
+has been added to return a given property's possible values.
+
+A new function L<charprop()|Unicode::UCD/charprop()>
+has been added to return the value of a given property for a given code
+point.
+
+A new function L<charprops_all()|Unicode::UCD/charprops_all()>
+has been added to return the values of all Unicode properties for a
+given code point.
+
+A bug has been fixed so that L<propaliases()|Unicode::UCD/prop_aliases()>
+returns the correct short and long names for the Perl extensions where
+it was incorrect.
+
+A bug has been fixed so that
+L<prop_value_aliases()|Unicode::UCD/prop_value_aliases()>
+returns C<undef> instead of a wrong result for properties that are Perl
+extensions.
+
+This module now works on EBCDIC platforms.
+
+=item *
+
+L<utf8> has been upgraded to version 1.17
+
+A mismatch between the documentation and the code in C<utf8::downgrade()>
+was fixed in favor of the documentation. The optional second argument
+is now correctly treated as a perl boolean (true/false semantics) and
+not as an integer.
+
+=item *
+
+L<version> has been upgraded to version 0.9909.
+
+Numerous changes.  See the F<Changes> file in the CPAN distribution for
+details.
+
+=item *
+
+L<Win32> has been upgraded to version 0.51.
+
+C<GetOSName()> now supports Windows 8.1, and building in C++ mode now works.
+
+=item *
+
+L<Win32API::File> has been upgraded to version 0.1202
+
+Building in C++ mode now works.
+
+=item *
+
+L<XSLoader> has been upgraded to version 0.20.
+
+Allow XSLoader to load modules from a different namespace.
+[perl #122455]
+
+=back
+
+=head2 Removed Modules and Pragmata
+
+The following modules (and associated modules) have been removed from the core
+perl distribution:
+
+=over 4
+
+=item *
+
+L<CGI>
+
+=item *
+
+L<Module::Build>
+
+=back
+
+=head1 Documentation
+
+=head2 New Documentation
+
+=head3 L<perlunicook>
+
+This document, by Tom Christiansen, provides examples of handling Unicode in
+Perl.
+
+=head2 Changes to Existing Documentation
+
+=head3 L<perlaix>
+
+=over 4
+
+=item *
+
+A note on long doubles has been added.
+
+=back
+
+
+=head3 L<perlapi>
+
+=over 4
+
+=item *
+
+Note that C<SvSetSV> doesn't do set magic.
+
+=item *
+
+C<sv_usepvn_flags> - fix documentation to mention the use of C<Newx> instead of
+C<malloc>.
+
+L<[perl #121869]|https://rt.perl.org/Ticket/Display.html?id=121869>
+
+=item *
+
+Clarify where C<NUL> may be embedded or is required to terminate a string.
+
+=item *
+
+Some documentation that was previously missing due to formatting errors is
+now included.
+
+=item *
+
+Entries are now organized into groups rather than by the file where they
+are found.
+
+=item *
+
+Alphabetical sorting of entries is now done consistently (automatically
+by the POD generator) to make entries easier to find when scanning.
+
+=back
+
+=head3 L<perldata>
+
+=over 4
+
+=item *
+
+The syntax of single-character variable names has been brought
+up-to-date and more fully explained.
+
+=item *
+
+Hexadecimal floating point numbers are described, as are infinity and
+NaN.
+
+=back
+
+=head3 L<perlebcdic>
+
+=over 4
+
+=item *
+
+This document has been significantly updated in the light of recent
+improvements to EBCDIC support.
+
+=back
+
+=head3 L<perlfilter>
+
+=over 4
+
+=item *
+
+Added a L<LIMITATIONS|perlfilter/LIMITATIONS> section.
+
+=back
+
+
+=head3 L<perlfunc>
+
+=over 4
+
+=item *
+
+Mention that C<study()> is currently a no-op.
+
+=item *
+
+Calling C<delete> or C<exists> on array values is now described as "strongly
+discouraged" rather than "deprecated".
+
+=item *
+
+Improve documentation of C<< our >>.
+
+=item *
+
+C<-l> now notes that it will return false if symlinks aren't supported by the
+file system.
+L<[perl #121523]|https://rt.perl.org/Ticket/Display.html?id=121523>
+
+=item *
+
+Note that C<exec LIST> and C<system LIST> may fall back to the shell on
+Win32. Only the indirect-object syntax C<exec PROGRAM LIST> and
+C<system PROGRAM LIST> will reliably avoid using the shell.
+
+This has also been noted in L<perlport>.
+
+L<[perl #122046]|https://rt.perl.org/Ticket/Display.html?id=122046>
+
+=back
+
+=head3 L<perlguts>
+
+=over 4
+
+=item *
+
+The OOK example has been updated to account for COW changes and a change in the
+storage of the offset.
+
+=item *
+
+Details on C level symbols and libperl.t added.
+
+=item *
+
+Information on Unicode handling has been added
+
+=item *
+
+Information on EBCDIC handling has been added
+
+=back
+
+=head3 L<perlhack>
+
+=over 4
+
+=item *
+
+A note has been added about running on platforms with non-ASCII
+character sets
+
+=item *
+
+A note has been added about performance testing
+
+=back
+
+=head3 L<perlhacktips>
+
+=over 4
+
+=item *
+
+Documentation has been added illustrating the perils of assuming that
+there is no change to the contents of static memory pointed to by the
+return values of Perl's wrappers for C library functions.
+
+=item *
+
+Replacements for C<tmpfile>, C<atoi>, C<strtol>, and C<strtoul> are now
+recommended.
+
+=item *
+
+Updated documentation for the C<test.valgrind> C<make> target.
+L<[perl #121431]|https://rt.perl.org/Ticket/Display.html?id=121431>
+
+=item *
+
+Information is given about writing test files portably to non-ASCII
+platforms.
+
+=item *
+
+A note has been added about how to get a C language stack backtrace.
+
+=back
+
+=head3 L<perlhpux>
+
+=over 4
+
+=item *
+
+Note that the message "Redeclaration of "sendpath" with a different
+storage class specifier" is harmless.
+
+=back
+
+=head3 L<perllocale>
+
+=over 4
+
+=item *
+
+Updated for the enhancements in v5.22, along with some clarifications.
+
+=back
+
+=head3 L<perlmodstyle>
+
+=over 4
+
+=item *
+
+Instead of pointing to the module list, we are now pointing to
+L<PrePAN|http://prepan.org/>.
+
+=back
+
+=head3 L<perlop>
+
+=over 4
+
+=item *
+
+Updated for the enhancements in v5.22, along with some clarifications.
+
+=back
+
+=head3 L<perlpodspec>
+
+=over 4
+
+=item *
+
+The specification of the pod language is changing so that the default
+encoding of pods that aren't in UTF-8 (unless otherwise indicated) is
+CP1252 instead of ISO 8859-1 (Latin1).
+
+=back
+
+=head3 L<perlpolicy>
+
+=over 4
+
+=item *
+
+We now have a code of conduct for the I<< p5p >> mailing list, as documented
+in L<< perlpolicy/STANDARDS OF CONDUCT >>.
+
+=item *
+
+The conditions for marking an experimental feature as non-experimental are now
+set out.
+
+=item *
+
+Clarification has been made as to what sorts of changes are permissible in
+maintenance releases.
+
+=back
+
+=head3 L<perlport>
+
+=over 4
+
+=item *
+
+Out-of-date VMS-specific information has been fixed and/or simplified.
+
+=item *
+
+Notes about EBCDIC have been added.
+
+=back
+
+=head3 L<perlre>
+
+=over 4
+
+=item *
+
+The description of the C</x> modifier has been clarified to note that
+comments cannot be continued onto the next line by escaping them; and
+there is now a list of all the characters that are considered whitespace
+by this modifier.
+
+=item *
+
+The new C</n> modifier is described.
+
+=item *
+
+A note has been added on how to make bracketed character class ranges
+portable to non-ASCII machines.
+
+=back
+
+=head3 L<perlrebackslash>
+
+=over 4
+
+=item *
+
+Added documentation of C<\b{sb}>, C<\b{wb}>, C<\b{gcb}>, and C<\b{g}>.
+
+=back
+
+=head3 L<perlrecharclass>
+
+=over 4
+
+=item *
+
+Clarifications have been added to L<perlrecharclass/Character Ranges>
+to the effect C<[A-Z]>, C<[a-z]>, C<[0-9]> and
+any subranges thereof in regular expression bracketed character classes
+are guaranteed to match exactly what a naive English speaker would
+expect them to match, even on platforms (such as EBCDIC) where perl
+has to do extra work to accomplish this.
+
+=item *
+
+The documentation of Bracketed Character Classes has been expanded to cover the
+improvements in C<qr/[\N{named sequence}]/> (see under L</Selected Bug Fixes>).
+
+=back
+
+=head3 L<perlref>
+
+=over 4
+
+=item *
+
+A new section has been added
+L<Assigning to References|perlref/Assigning to References>
+
+=back
+
+=head3 L<perlsec>
+
+=over 4
+
+=item *
+
+Comments added on algorithmic complexity and tied hashes.
+
+=back
+
+=head3 L<perlsyn>
+
+=over 4
+
+=item *
+
+An ambiguity in the documentation of the C<...> statement has been corrected.
+L<[perl #122661]|https://rt.perl.org/Ticket/Display.html?id=122661>
+
+=item *
+
+The empty conditional in C<< for >> and C<< while >> is now documented
+in L<< perlsyn >>.
+
+=back
+
+=head3 L<perlunicode>
+
+=over 4
+
+=item *
+
+This has had extensive revisions to bring it up-to-date with current
+Unicode support and to make it more readable.  Notable is that Unicode
+7.0 changed what it should do with non-characters.  Perl retains the old
+way of handling for reasons of backward compatibility.  See
+L<perlunicode/Noncharacter code points>.
+
+=back
+
+=head3 L<perluniintro>
+
+=over 4
+
+=item *
+
+Advice for how to make sure your strings and regular expression patterns are
+interpreted as Unicode has been updated.
+
+=back
+
+=head3 L<perlvar>
+
+=over 4
+
+=item *
+
+C<$]> is no longer listed as being deprecated.  Instead, discussion has
+been added on the advantages and disadvantages of using it versus
+C<$^V>.  C<$OLD_PERL_VERSION> was re-added to the documentation as the long
+form of C<$]>.
+
+=item *
+
+C<${^ENCODING}> is now marked as deprecated.
+
+=item *
+
+The entry for C<%^H> has been clarified to indicate it can only handle
+simple values.
+
+=back
+
+=head3 L<perlvms>
+
+=over 4
+
+=item *
+
+Out-of-date and/or incorrect material has been removed.
+
+=item *
+
+Updated documentation on environment and shell interaction in VMS.
+
+=back
+
+=head3 L<perlxs>
+
+=over 4
+
+=item *
+
+Added a discussion of locale issues in XS code.
+
+=back
+
+=head1 Diagnostics
+
+The following additions or changes have been made to diagnostic output,
+including warnings and fatal error messages.  For the complete list of
+diagnostic messages, see L<perldiag>.
+
+=head2 New Diagnostics
+
+=head3 New Errors
+
+=over 4
+
+=item *
+
+L<Bad symbol for scalar|perldiag/"Bad symbol for scalar">
+
+(P) An internal request asked to add a scalar entry to something that
+wasn't a symbol table entry.
+
+=item *
+
+L<Can't use a hash as a reference|perldiag/"Can't use a hash as a reference">
+
+(F) You tried to use a hash as a reference, as in
+C<< %foo->{"bar"} >> or C<< %$ref->{"hello"} >>.  Versions of perl E<lt>= 5.6.1
+used to allow this syntax, but shouldn't have.
+
+=item *
+
+L<Can't use an array as a reference|perldiag/"Can't use an array as a reference">
+
+(F) You tried to use an array as a reference, as in
+C<< @foo->[23] >> or C<< @$ref->[99] >>.  Versions of perl E<lt>= 5.6.1 used to
+allow this syntax, but shouldn't have.
+
+=item *
+
+L<Can't use 'defined(@array)' (Maybe you should just omit the defined()?)|perldiag/"Can't use 'defined(@array)' (Maybe you should just omit the defined()?)">
+
+(F) C<defined()> is not useful on arrays because it
+checks for an undefined I<scalar> value.  If you want to see if the
+array is empty, just use S<C<if (@array) { # not empty }>> for example.
+
+=item *
+
+L<Can't use 'defined(%hash)' (Maybe you should just omit the defined()?)|perldiag/"Can't use 'defined(%hash)' (Maybe you should just omit the defined()?)">
+
+(F) C<defined()> is not usually right on hashes.
+
+Although S<C<defined %hash>> is false on a plain not-yet-used hash, it
+becomes true in several non-obvious circumstances, including iterators,
+weak references, stash names, even remaining true after S<C<undef %hash>>.
+These things make S<C<defined %hash>> fairly useless in practice, so it now
+generates a fatal error.
+
+If a check for non-empty is what you wanted then just put it in boolean
+context (see L<perldata/Scalar values>):
+
+    if (%hash) {
+       # not empty
+    }
+
+If you had S<C<defined %Foo::Bar::QUUX>> to check whether such a package
+variable exists then that's never really been reliable, and isn't
+a good way to enquire about the features of a package, or whether
+it's loaded, etc.
+
+=item *
+
+L<Cannot chr %f|perldiag/"Cannot chr %f">
+
+(F) You passed an invalid number (like an infinity or not-a-number) to
+C<chr>.
+
+=item *
+
+L<Cannot compress %f in pack|perldiag/"Cannot compress %f in pack">
+
+(F) You tried converting an infinity or not-a-number to an unsigned
+character, which makes no sense.
+
+=item *
+
+L<Cannot pack %f with '%c'|perldiag/"Cannot pack %f with '%c'">
+
+(F) You tried converting an infinity or not-a-number to a character,
+which makes no sense.
+
+=item *
+
+L<Cannot print %f with '%c'|perldiag/"Cannot printf %f with '%c'">
+
+(F) You tried printing an infinity or not-a-number as a character (C<%c>),
+which makes no sense.  Maybe you meant C<'%s'>, or just stringifying it?
+
+=item *
+
+L<charnames alias definitions may not contain a sequence of multiple spaces|perldiag/"charnames alias definitions may not contain a sequence of multiple spaces">
+
+(F) You defined a character name which had multiple space
+characters in a row.  Change them to single spaces.  Usually these
+names are defined in the C<:alias> import argument to C<use charnames>, but
+they could be defined by a translator installed into C<$^H{charnames}>.
+See L<charnames/CUSTOM ALIASES>.
+
+=item *
+
+L<charnames alias definitions may not contain trailing white-space|perldiag/"charnames alias definitions may not contain trailing white-space">
+
+(F) You defined a character name which ended in a space
+character.  Remove the trailing space(s).  Usually these names are
+defined in the C<:alias> import argument to C<use charnames>, but they
+could be defined by a translator installed into C<$^H{charnames}>.
+See L<charnames/CUSTOM ALIASES>.
+
+=item *
+
+L<:const is not permitted on named subroutines|perldiag/":const is not permitted on named subroutines">
+
+(F) The C<const> attribute causes an anonymous subroutine to be run and
+its value captured at the time that it is cloned.  Named subroutines are
+not cloned like this, so the attribute does not make sense on them.
+
+=item *
+
+L<Hexadecimal float: internal error|perldiag/"Hexadecimal float: internal error">
+
+(F) Something went horribly bad in hexadecimal float handling.
+
+=item *
+
+L<Hexadecimal float: unsupported long double format|perldiag/"Hexadecimal float: unsupported long double format">
+
+(F) You have configured Perl to use long doubles but
+the internals of the long double format are unknown,
+therefore the hexadecimal float output is impossible.
+
+=item *
+
+L<Illegal suidscript|perldiag/"Illegal suidscript">
+
+(F) The script run under suidperl was somehow illegal.
+
+=item *
+
+L<In '(?...)', the '(' and '?' must be adjacent in regex; marked by S<<-- HERE> in mE<sol>%sE<sol>|perldiag/"In '(?...)', the '(' and '?' must be adjacent in regex; marked by <-- HERE in m/%s/">
+
+(F) The two-character sequence C<"(?"> in
+this context in a regular expression pattern should be an
+indivisible token, with nothing intervening between the C<"(">
+and the C<"?">, but you separated them.
+
+=item *
+
+L<In '(*VERB...)', the '(' and '*' must be adjacent in regex; marked by S<<-- HERE> in mE<sol>%sE<sol>|perldiag/"In '(*VERB...)', the '(' and '*' must be adjacent in regex; marked by <-- HERE in m/%s/">
+
+(F) The two-character sequence C<"(*"> in
+this context in a regular expression pattern should be an
+indivisible token, with nothing intervening between the C<"(">
+and the C<"*">, but you separated them.
+
+=item *
+
+L<Invalid quantifier in {,} in regex; marked by <-- HERE in mE<sol>%sE<sol>|perldiag/"Invalid quantifier in {,} in regex; marked by <-- HERE in m/%s/">
+
+(F) The pattern looks like a {min,max} quantifier, but the min or max could not
+be parsed as a valid number: either it has leading zeroes, or it represents
+too big a number to cope with.  The S<<-- HERE> shows where in the regular
+expression the problem was discovered.  See L<perlre>.
+
+=item *
+
+L<'%s' is an unknown bound type in regex|perldiag/"'%s' is an unknown bound type in regex; marked by <-- HERE in m/%s/">
+
+(F) You used C<\b{...}> or C<\B{...}> and the C<...> is not known to
+Perl.  The current valid ones are given in
+L<perlrebackslash/\b{}, \b, \B{}, \B>.
+
+=item *
+
+L<Missing or undefined argument to require|perldiag/Missing or undefined argument to require>
+
+(F) You tried to call C<require> with no argument or with an undefined
+value as an argument.  C<require> expects either a package name or a
+file-specification as an argument.  See L<perlfunc/require>.
+
+Formerly, C<require> with no argument or C<undef> warned about a Null filename.
+
+=back
+
+=head3 New Warnings
+
+=over 4
+
+=item *
+
+L<\C is deprecated in regex|perldiag/"\C is deprecated in regex; marked by <-- HERE in m/%s/">
+
+(D deprecated) The C<< /\C/ >> character class was deprecated in v5.20, and
+now emits a warning. It is intended that it will become an error in v5.24.
+This character class matches a single byte even if it appears within a
+multi-byte character, breaks encapsulation, and can corrupt UTF-8
+strings.
+
+=item *
+
+L<"%s" is more clearly written simply as "%s" in regex; marked by E<lt>-- HERE in mE<sol>%sE<sol>|perldiag/"%s" is more clearly written simply as "%s" in regex; marked by <-- HERE in mE<sol>%sE<sol>>
+
+(W regexp) (only under C<S<use re 'strict'>> or within C<(?[...])>)
+
+You specified a character that has the given plainer way of writing it,
+and which is also portable to platforms running with different character
+sets.
+
+=item *
+
+L<Argument "%s" treated as 0 in increment (++)|perldiag/"Argument "%s" treated
+as 0 in increment (++)">
+
+(W numeric) The indicated string was fed as an argument to the C<++> operator
+which expects either a number or a string matching C</^[a-zA-Z]*[0-9]*\z/>.
+See L<perlop/Auto-increment and Auto-decrement> for details.
+
+=item *
+
+L<Both or neither range ends should be Unicode in regex; marked by E<lt>-- HERE in mE<sol>%sE<sol>|perldiag/"Both or neither range ends should be Unicode in regex; marked by <-- HERE in m/%s/">
+
+(W regexp) (only under C<S<use re 'strict'>> or within C<(?[...])>)
+
+In a bracketed character class in a regular expression pattern, you
+had a range which has exactly one end of it specified using C<\N{}>, and
+the other end is specified using a non-portable mechanism.  Perl treats
+the range as a Unicode range, that is, all the characters in it are
+considered to be the Unicode characters, and which may be different code
+points on some platforms Perl runs on.  For example, C<[\N{U+06}-\x08]>
+is treated as if you had instead said C<[\N{U+06}-\N{U+08}]>, that is it
+matches the characters whose code points in Unicode are 6, 7, and 8.
+But that C<\x08> might indicate that you meant something different, so
+the warning gets raised.
+
+=item *
+
+L<Can't do %s("%s") on non-UTF-8 locale; resolved to "%s".|perldiag/Can't do %s("%s") on non-UTF-8 locale; resolved to "%s".>
+
+(W locale) You are 1) running under "C<use locale>"; 2) the current
+locale is not a UTF-8 one; 3) you tried to do the designated case-change
+operation on the specified Unicode character; and 4) the result of this
+operation would mix Unicode and locale rules, which likely conflict.
+
+The warnings category C<locale> is new.
+
+=item *
+
+L<:const is experimental|perldiag/":const is experimental">
+
+(S experimental::const_attr) The C<const> attribute is experimental.
+If you want to use the feature, disable the warning with C<no warnings
+'experimental::const_attr'>, but know that in doing so you are taking
+the risk that your code may break in a future Perl version.
+
+=item *
+
+L<gmtime(%f) failed|perldiag/"gmtime(%f) failed">
+
+(W overflow) You called C<gmtime> with a number that it could not handle:
+too large, too small, or NaN.  The returned value is C<undef>.
+
+=item *
+
+L<Hexadecimal float: exponent overflow|perldiag/"Hexadecimal float: exponent overflow">
+
+(W overflow) The hexadecimal floating point has larger exponent
+than the floating point supports.
+
+=item *
+
+L<Hexadecimal float: exponent underflow|perldiag/"Hexadecimal float: exponent underflow">
+
+(W overflow) The hexadecimal floating point has smaller exponent
+than the floating point supports.
+
+=item *
+
+L<Hexadecimal float: mantissa overflow|perldiag/"Hexadecimal float: mantissa overflow">
+
+(W overflow) The hexadecimal floating point literal had more bits in
+the mantissa (the part between the C<0x> and the exponent, also known as
+the fraction or the significand) than the floating point supports.
+
+=item *
+
+L<Hexadecimal float: precision loss|perldiag/"Hexadecimal float: precision loss">
+
+(W overflow) The hexadecimal floating point had internally more
+digits than could be output.  This can be caused by unsupported
+long double formats, or by 64-bit integers not being available
+(needed to retrieve the digits under some configurations).
+
+=item *
+
+L<Locale '%s' may not work well.%s|perldiag/Locale '%s' may not work well.%s>
+
+(W locale) You are using the named locale, which is a non-UTF-8 one, and
+which perl has determined is not fully compatible with what it can
+handle.  The second C<%s> gives a reason.
+
+The warnings category C<locale> is new.
+
+=item *
+
+L<localtime(%f) failed|perldiag/"localtime(%f) failed">
+
+(W overflow) You called C<localtime> with a number that it could not handle:
+too large, too small, or NaN.  The returned value is C<undef>.
+
+=item *
+
+L<Negative repeat count does nothing|perldiag/"Negative repeat count does nothing">
+
+(W numeric) You tried to execute the
+L<C<x>|perlop/Multiplicative Operators> repetition operator fewer than 0
+times, which doesn't make sense.
+
+=item *
+
+L<NO-BREAK SPACE in a charnames alias definition is deprecated|perldiag/"NO-BREAK SPACE in a charnames alias definition is deprecated">
+
+(D deprecated) You defined a character name which contained a no-break
+space character.  Change it to a regular space.  Usually these names are
+defined in the C<:alias> import argument to C<use charnames>, but they
+could be defined by a translator installed into C<$^H{charnames}>.  See
+L<charnames/CUSTOM ALIASES>.
+
+=item *
+
+L<Non-finite repeat count does nothing|perldiag/"Non-finite repeat count does nothing">
+
+(W numeric) You tried to execute the
+L<C<x>|perlop/Multiplicative Operators> repetition operator C<Inf> (or
+C<-Inf>) or NaN times, which doesn't make sense.
+
+=item *
+
+L<PerlIO layer ':win32' is experimental|perldiag/"PerlIO layer ':win32' is experimental">
+
+(S experimental::win32_perlio) The C<:win32> PerlIO layer is
+experimental.  If you want to take the risk of using this layer,
+simply disable this warning:
+
+    no warnings "experimental::win32_perlio";
+
+=item *
+
+L<Ranges of ASCII printables should be some subset of "0-9", "A-Z", or "a-z" in regex; marked by E<lt>-- HERE in mE<sol>%sE<sol>|perldiag/"Ranges of ASCII printables should be some subset of "0-9", "A-Z", or "a-z" in regex; marked by <-- HERE in mE<sol>%sE<sol>">
+
+(W regexp) (only under C<S<use re 'strict'>> or within C<(?[...])>)
+
+Stricter rules help to find typos and other errors.  Perhaps you didn't
+even intend a range here, if the C<"-"> was meant to be some other
+character, or should have been escaped (like C<"\-">).  If you did
+intend a range, the one that was used is not portable between ASCII and
+EBCDIC platforms, and doesn't have an obvious meaning to a casual
+reader.
+
+ [3-7]    # OK; Obvious and portable
+ [d-g]    # OK; Obvious and portable
+ [A-Y]    # OK; Obvious and portable
+ [A-z]    # WRONG; Not portable; not clear what is meant
+ [a-Z]    # WRONG; Not portable; not clear what is meant
+ [%-.]    # WRONG; Not portable; not clear what is meant
+ [\x41-Z] # WRONG; Not portable; not obvious to non-geek
+
+(You can force portability by specifying a Unicode range, which means that
+the endpoints are specified by
+L<C<\N{...}>|perlrecharclass/Character Ranges>, but the meaning may
+still not be obvious.)
+The stricter rules require that ranges that start or stop with an ASCII
+character that is not a control have all their endpoints be a literal
+character, and not some escape sequence (like C<"\x41">), and the ranges
+must be all digits, or all uppercase letters, or all lowercase letters.
+
+=item *
+
+L<Ranges of digits should be from the same group in regex; marked by E<lt>-- HERE in mE<sol>%sE<sol>|perldiag/"Ranges of digits should be from the same group in regex; marked by <-- HERE in m/%s/">
+
+(W regexp) (only under C<S<use re 'strict'>> or within C<(?[...])>)
+
+Stricter rules help to find typos and other errors.  You included a
+range, and at least one of the end points is a decimal digit.  Under the
+stricter rules, when this happens, both end points should be digits in
+the same group of 10 consecutive digits.
+
+=item *
+
+L<Redundant argument in %s|perldiag/Redundant argument in %s>
+
+(W redundant) You called a function with more arguments than were
+needed, as indicated by information within other arguments you supplied
+(I<e.g>. a printf format). Currently only emitted when a printf-type format
+required fewer arguments than were supplied, but might be used in the
+future for I<e.g.> L<perlfunc/pack>.
+
+The warnings category C<< redundant >> is new. See also
+L<[perl #121025]|https://rt.perl.org/Ticket/Display.html?id=121025>.
+
+=item *
+
+L<Replacement list is longer than search list|perldiag/Replacement list is longer than search list>
+
+This is not a new diagnostic, but in earlier releases was accidentally
+not displayed if the transliteration contained wide characters.  This is
+now fixed, so that you may see this diagnostic in places where you
+previously didn't (but should have).
+
+=item *
+
+L<Use of \b{} for non-UTF-8 locale is wrong.  Assuming a UTF-8 locale|perldiag/"Use of \b{} for non-UTF-8 locale is wrong.  Assuming a UTF-8 locale">
+
+(W locale) You are matching a regular expression using locale rules,
+and a Unicode boundary is being matched, but the locale is not a Unicode
+one.  This doesn't make sense.  Perl will continue, assuming a Unicode
+(UTF-8) locale, but the results could well be wrong except if the locale
+happens to be ISO-8859-1 (Latin1) where this message is spurious and can
+be ignored.
+
+The warnings category C<locale> is new.
+
+=item *
+
+L<< Using E<sol>u for '%s' instead of E<sol>%s in regex; marked by E<lt>-- HERE in mE<sol>%sE<sol>|perldiag/"Using E<sol>u for '%s' instead of E<sol>%s in regex; marked by <-- HERE in mE<sol>%sE<sol>" >>
+
+(W regexp) You used a Unicode boundary (C<\b{...}> or C<\B{...}>) in a
+portion of a regular expression where the character set modifiers C</a>
+or C</aa> are in effect.  These two modifiers indicate an ASCII
+interpretation, and this doesn't make sense for a Unicode definition.
+The generated regular expression will compile so that the boundary uses
+all of Unicode.  No other portion of the regular expression is affected.
+
+=item *
+
+L<The bitwise feature is experimental|perldiag/"The bitwise feature is experimental">
+
+(S experimental::bitwise) This warning is emitted if you use bitwise
+operators (C<& | ^ ~ &. |. ^. ~.>) with the "bitwise" feature enabled.
+Simply suppress the warning if you want to use the feature, but know
+that in doing so you are taking the risk of using an experimental
+feature which may change or be removed in a future Perl version:
+
+    no warnings "experimental::bitwise";
+    use feature "bitwise";
+    $x |.= $y;
+
+=item *
+
+L<Unescaped left brace in regex is deprecated, passed through in regex; marked by <-- HERE in mE<sol>%sE<sol>|perldiag/"Unescaped left brace in regex is deprecated, passed through in regex; marked by <-- HERE in m/%s/">
+
+(D deprecated, regexp) You used a literal C<"{"> character in a regular
+expression pattern. You should change to use C<"\{"> instead, because a future
+version of Perl (tentatively v5.26) will consider this to be a syntax error.  If
+the pattern delimiters are also braces, any matching right brace
+(C<"}">) should also be escaped to avoid confusing the parser, for
+example,
+
+    qr{abc\{def\}ghi}
+
+=item *
+
+L<Use of literal non-graphic characters in variable names is deprecated|perldiag/"Use of literal non-graphic characters in variable names is deprecated">
+
+(D deprecated) Using literal non-graphic (including control)
+characters in the source to refer to the I<^FOO> variables, like C<$^X> and
+C<${^GLOBAL_PHASE}> is now deprecated.
+
+=item *
+
+L<Useless use of attribute "const"|perldiag/Useless use of attribute "const">
+
+(W misc) The C<const> attribute has no effect except
+on anonymous closure prototypes.  You applied it to
+a subroutine via L<attributes.pm|attributes>.  This is only useful
+inside an attribute handler for an anonymous subroutine.
+
+=item *
+
+L<Useless use of E<sol>d modifier in transliteration operator|perldiag/"Useless use of /d modifier in transliteration operator">
+
+This is not a new diagnostic, but in earlier releases was accidentally
+not displayed if the transliteration contained wide characters.  This is
+now fixed, so that you may see this diagnostic in places where you
+previously didn't (but should have).
+
+=item *
+
+L<E<quot>use re 'strict'E<quot> is experimental|perldiag/"use re 'strict'" is experimental>
+
+(S experimental::re_strict) The things that are different when a regular
+expression pattern is compiled under C<'strict'> are subject to change
+in future Perl releases in incompatible ways; there are also proposals
+to change how to enable strict checking instead of using this subpragma.
+This means that a pattern that compiles today may not in a future Perl
+release.  This warning is to alert you to that risk.
+
+=item *
+
+L<Warning: unable to close filehandle properly: %s|perldiag/"Warning: unable to close filehandle properly: %s">
+
+L<Warning: unable to close filehandle %s properly: %s|perldiag/"Warning: unable to close filehandle %s properly: %s">
+
+(S io) Previously, perl silently ignored any errors when doing an implicit
+close of a filehandle, I<i.e.> where the reference count of the filehandle
+reached zero and the user's code hadn't already called C<close()>; I<e.g.>
+
+    {
+        open my $fh, '>', $file  or die "open: '$file': $!\n";
+        print $fh, $data  or die;
+    } # implicit close here
+
+In a situation such as disk full, due to buffering, the error may only be
+detected during the final close, so not checking the result of the close is
+dangerous.
+
+So perl now warns in such situations.
+
+=item *
+
+L<Wide character (U+%X) in %s|perldiag/"Wide character (U+%X) in %s">
+
+(W locale) While in a single-byte locale (I<i.e.>, a non-UTF-8
+one), a multi-byte character was encountered.   Perl considers this
+character to be the specified Unicode code point.  Combining non-UTF-8
+locales and Unicode is dangerous.  Almost certainly some characters
+will have two different representations.  For example, in the ISO 8859-7
+(Greek) locale, the code point 0xC3 represents a Capital Gamma.  But so
+also does 0x393.  This will make string comparisons unreliable.
+
+You likely need to figure out how this multi-byte character got mixed up
+with your single-byte locale (or perhaps you thought you had a UTF-8
+locale, but Perl disagrees).
+
+The warnings category C<locale> is new.
+
+=back
+
+=head2 Changes to Existing Diagnostics
+
+=over 4
+
+=item *
+
+<> should be quotes
+
+This warning has been changed to
+L<< <> at require-statement should be quotes|perldiag/"<> at require-statement should be quotes" >>
+to make the issue more identifiable.
+
+=item *
+
+L<Argument "%s" isn't numeric%s|perldiag/"Argument "%s" isn't numeric%s">
+
+The L<perldiag> entry for this warning has added this clarifying note:
+
+ Note that for the Inf and NaN (infinity and not-a-number) the
+ definition of "numeric" is somewhat unusual: the strings themselves
+ (like "Inf") are considered numeric, and anything following them is
+ considered non-numeric.
+
+=item *
+
+L<Global symbol "%s" requires explicit package name|perldiag/"Global symbol "%s" requires explicit package name (did you forget to declare "my %s"?)">
+
+This message has had '(did you forget to declare "my %s"?)' appended to it, to
+make it more helpful to new Perl programmers.
+L<[perl #121638]|https://rt.perl.org/Ticket/Display.html?id=121638>
+
+=item *
+
+'"my" variable &foo::bar can't be in a package' has been reworded to say
+'subroutine' instead of 'variable'.
+
+=item *
+
+L<<< \N{} in character class restricted to one character in regex; marked by
+S<< <-- HERE >> in mE<sol>%sE<sol>|perldiag/"\N{} in inverted character
+class or as a range end-point is restricted to one character in regex;
+marked by <-- HERE in m/%s/" >>>
+
+This message has had I<character class> changed to I<inverted character
+class or as a range end-point is> to reflect improvements in
+C<qr/[\N{named sequence}]/> (see under L</Selected Bug Fixes>).
+
+=item *
+
+L<panic: frexp|perldiag/"panic: frexp: %f">
+
+This message has had ': C<%f>' appended to it, to show what the offending
+floating point number is.
+
+=item *
+
+I<Possible precedence problem on bitwise %c operator> reworded as
+L<Possible precedence problem on bitwise %s operator|perldiag/"Possible precedence problem on bitwise %s operator">.
+
+=item *
+
+L<Unsuccessful %s on filename containing newline|perldiag/"Unsuccessful %s on filename containing newline">
+
+This warning is now only produced when the newline is at the end of
+the filename.
+
+=item *
+
+"Variable C<%s> will not stay shared" has been changed to say "Subroutine"
+when it is actually a lexical sub that will not stay shared.
+
+=item *
+
+L<Variable length lookbehind not implemented in regex mE<sol>%sE<sol>|perldiag/"Variable length lookbehind not implemented in regex m/%s/">
+
+The L<perldiag> entry for this warning has had information about Unicode
+behavior added.
+
+=back
+
+=head2 Diagnostic Removals
+
+=over
+
+=item *
+
+"Ambiguous use of -foo resolved as -&foo()"
+
+There is actually no ambiguity here, and this impedes the use of negated
+constants; I<e.g.>, C<-Inf>.
+
+=item *
+
+"Constant is not a FOO reference"
+
+Compile-time checking of constant dereferencing (I<e.g.>, C<< my_constant->() >>)
+has been removed, since it was not taking overloading into account.
+L<[perl #69456]|https://rt.perl.org/Ticket/Display.html?id=69456>
+L<[perl #122607]|https://rt.perl.org/Ticket/Display.html?id=122607>
+
+=back
+
+=head1 Utility Changes
+
+=head2 F<find2perl>, F<s2p> and F<a2p> removal
+
+=over 4
+
+=item *
+
+The F<x2p/> directory has been removed from the Perl core.
+
+This removes find2perl, s2p and a2p. They have all been released to CPAN as
+separate distributions (C<App::find2perl>, C<App::s2p>, C<App::a2p>).
+
+=back
+
+=head2 L<h2ph>
+
+=over 4
+
+=item *
+
+F<h2ph> now handles hexadecimal constants in the compiler's predefined
+macro definitions, as visible in C<$Config{cppsymbols}>.
+L<[perl #123784]|https://rt.perl.org/Ticket/Display.html?id=123784>.
+
+=back
+
+=head2 L<encguess>
+
+=over 4
+
+=item *
+
+No longer depends on non-core modules.
+
+=back
+
+=head1 Configuration and Compilation
+
+=over 4
+
+=item *
+
+F<Configure> now checks for C<lrintl()>, C<lroundl()>, C<llrintl()>, and
+C<llroundl()>.
+
+=item *
+
+F<Configure> with C<-Dmksymlinks> should now be faster.
+L<[perl #122002]|https://rt.perl.org/Ticket/Display.html?id=122002>.
+
+=item *
+
+The C<pthreads> and C<cl> libraries will be linked by default if present.
+This allows XS modules that require threading to work on non-threaded
+perls. Note that you must still pass C<-Dusethreads> if you want a
+threaded perl.
+
+=item *
+
+To get more precision and range for floating point numbers one can now
+use the GCC quadmath library which implements the quadruple precision
+floating point numbers on x86 and IA-64 platforms.  See F<INSTALL> for
+details.
+
+=item *
+
+MurmurHash64A and MurmurHash64B can now be configured as the internal hash
+function.
+
+=item *
+
+C<make test.valgrind> now supports parallel testing.
+
+For example:
+
+    TEST_JOBS=9 make test.valgrind
+
+See L<perlhacktips/valgrind> for more information.
+
+L<[perl #121431]|https://rt.perl.org/Ticket/Display.html?id=121431>
+
+=item *
+
+The MAD (Misc Attribute Decoration) build option has been removed
+
+This was an unmaintained attempt at preserving
+the Perl parse tree more faithfully so that automatic conversion of
+Perl 5 to Perl 6 would have been easier.
+
+This build-time configuration option had been unmaintained for years,
+and had probably seriously diverged on both Perl 5 and Perl 6 sides.
+
+=item *
+
+A new compilation flag, C<< -DPERL_OP_PARENT >> is available. For details,
+see the discussion below at L<< /Internal Changes >>.
+
+=item *
+
+Pathtools no longer tries to load XS on miniperl. This speeds up building perl
+slightly.
+
+=back
+
+=head1 Testing
+
+=over 4
+
+=item *
+
+F<t/porting/re_context.t> has been added to test that L<utf8> and its
+dependencies only use the subset of the C<$1..$n> capture vars that
+C<Perl_save_re_context()> is hard-coded to localize, because that function
+has no efficient way of determining at runtime what vars to localize.
+
+=item *
+
+Tests for performance issues have been added in the file F<t/perf/taint.t>.
+
+=item *
+
+Some regular expression tests are written in such a way that they will
+run very slowly if certain optimizations break. These tests have been
+moved into new files, F<< t/re/speed.t >> and F<< t/re/speed_thr.t >>,
+and are run with a C<< watchdog() >>.
+
+=item *
+
+C<< test.pl >> now allows C<< plan skip_all => $reason >>, to make it
+more compatible with C<< Test::More >>.
+
+=item *
+
+A new test script, F<op/infnan.t>, has been added to test if infinity and NaN are
+working correctly.  See L</Infinity and NaN (not-a-number) handling improved>.
+
+=back
+
+=head1 Platform Support
+
+=head2 Regained Platforms
+
+=over 4
+
+=item IRIX and Tru64 platforms are working again.
+
+Some C<make test> failures remain:
+L<[perl #123977]|https://rt.perl.org/Ticket/Display.html?id=123977>
+and L<[perl #125298]|https://rt.perl.org/Ticket/Display.html?id=125298>
+for IRIX; L<[perl #124212]|https://rt.perl.org/Ticket/Display.html?id=124212>,
+L<[cpan #99605]|https://rt.cpan.org/Public/Bug/Display.html?id=99605>, and
+L<[cpan #104836]|https://rt.cpan.org/Ticket/Display.html?id=104836> for Tru64.
+
+=item z/OS running EBCDIC Code Page 1047
+
+Core perl now works on this EBCDIC platform.  Earlier perls also worked, but,
+even though support wasn't officially withdrawn, recent perls would not compile
+and run well.  Perl 5.20 would work, but had many bugs which have now been
+fixed.  Many CPAN modules that ship with Perl still fail tests, including
+C<Pod::Simple>.  However the version of C<Pod::Simple> currently on CPAN should work;
+it was fixed too late to include in Perl 5.22.  Work is under way to fix many
+of the still-broken CPAN modules, which likely will be installed on CPAN when
+completed, so that you may not have to wait until Perl 5.24 to get a working
+version.
+
+=back
+
+=head2 Discontinued Platforms
+
+=over 4
+
+=item NeXTSTEP/OPENSTEP
+
+NeXTSTEP was a proprietary operating system bundled with NeXT's
+workstations in the early to mid 90s; OPENSTEP was an API specification
+that provided a NeXTSTEP-like environment on a non-NeXTSTEP system.  Both
+are now long dead, so support for building Perl on them has been removed.
+
+=back
+
+=head2 Platform-Specific Notes
+
+=over 4
+
+=item EBCDIC
+
+Special handling is required of the perl interpreter on EBCDIC platforms
+to get C<qr/[i-j]/> to match only C<"i"> and C<"j">, since there are 7
+characters between the
+code points for C<"i"> and C<"j">.  This special handling had only been
+invoked when both ends of the range are literals.  Now it is also
+invoked if any of the C<\N{...}> forms for specifying a character by
+name or Unicode code point is used instead of a literal.  See
+L<perlrecharclass/Character Ranges>.
+
+=item HP-UX
+
+The archname now distinguishes use64bitint from use64bitall.
+
+=item Android
+
+Build support has been improved for cross-compiling in general and for
+Android in particular.
+
+=item VMS
+
+=over 4
+
+=item *
+
+When spawning a subprocess without waiting, the return value is now
+the correct PID.
+
+=item *
+
+Fix a prototype so linking doesn't fail under the VMS C++ compiler.
+
+=item *
+
+C<finite>, C<finitel>, and C<isfinite> detection has been added to
+C<configure.com>, environment handling has had some minor changes, and
+a fix for legacy feature checking status.
+
+=back
+
+=item Win32
+
+=over 4
+
+=item *
+
+F<miniperl.exe> is now built with C<-fno-strict-aliasing>, allowing 64-bit
+builds to complete on GCC 4.8.
+L<[perl #123976]|https://rt.perl.org/Ticket/Display.html?id=123976>
+
+=item *
+
+C<nmake minitest> now works on Win32.  Due to dependency issues you
+need to build C<nmake test-prep> first, and a small number of the
+tests fail.
+L<[perl #123394]|https://rt.perl.org/Ticket/Display.html?id=123394>
+
+=item *
+
+Perl can now be built in C++ mode on Windows by setting the makefile macro
+C<USE_CPLUSPLUS> to the value "define".
+
+=item *
+
+The list form of piped open has been implemented for Win32.  Note: unlike
+C<system LIST> this does not fall back to the shell.
+L<[perl #121159]|https://rt.perl.org/Ticket/Display.html?id=121159>
+
+=item *
+
+New C<DebugSymbols> and C<DebugFull> configuration options added to
+Windows makefiles.
+
+=item *
+
+Previously, compiling XS modules (including CPAN ones) using Visual C++ for
+Win64 resulted in around a dozen warnings per file from F<hv_func.h>.  These
+warnings have been silenced.
+
+=item *
+
+Support for building without PerlIO has been removed from the Windows
+makefiles.  Non-PerlIO builds were all but deprecated in Perl 5.18.0 and are
+already not supported by F<Configure> on POSIX systems.
+
+=item *
+
+Between 2 and 6 milliseconds and seven I/O calls have been saved per attempt
+to open a perl module for each path in C<@INC>.
+
+=item *
+
+Intel C builds are now always built with C99 mode on.
+
+=item *
+
+C<%I64d> is now being used instead of C<%lld> for MinGW.
+
+=item *
+
+In the experimental C<:win32> layer, a crash in C<open> was fixed. Also
+opening F</dev/null> (which works under Win32 Perl's default C<:unix>
+layer) was implemented for C<:win32>.
+L<[perl #122224]|https://rt.perl.org/Ticket/Display.html?id=122224>
+
+=item *
+
+A new makefile option, C<USE_LONG_DOUBLE>, has been added to the Windows
+dmake makefile for gcc builds only.  Set this to "define" if you want perl to
+use long doubles to give more accuracy and range for floating point numbers.
+
+=back
+
+=item OpenBSD
+
+On OpenBSD, Perl will now default to using the system C<malloc> due to the
+security features it provides. Perl's own malloc wrapper has been in use
+since v5.14 due to performance reasons, but the OpenBSD project believes
+the tradeoff is worth it and would prefer that users who need the speed
+specifically ask for it.
+
+L<[perl #122000]|https://rt.perl.org/Ticket/Display.html?id=122000>.
+
+=item Solaris
+
+=over 4
+
+=item *
+
+We now look for the Sun Studio compiler in both F</opt/solstudio*> and
+F</opt/solarisstudio*>.
+
+=item *
+
+Builds on Solaris 10 with C<-Dusedtrace> would fail early since make
+didn't follow implied dependencies to build C<perldtrace.h>.  Added an
+explicit dependency to C<depend>.
+L<[perl #120120]|https://rt.perl.org/Ticket/Display.html?id=120120>
+
+=item *
+
+C99 options have been cleaned up; hints look for C<solstudio>
+as well as C<SUNWspro>; and support for native C<setenv> has been added.
+
+=back
+
+=back
+
+=head1 Internal Changes
+
+=over 4
+
+=item *
+
+Experimental support has been added to allow ops in the optree to locate
+their parent, if any. This is enabled by the non-default build option
+C<-DPERL_OP_PARENT>. It is envisaged that this will eventually become
+enabled by default, so XS code which directly accesses the C<op_sibling>
+field of ops should be updated to be future-proofed.
+
+On C<PERL_OP_PARENT> builds, the C<op_sibling> field has been renamed
+C<op_sibparent> and a new flag, C<op_moresib>, added. On the last op in a
+sibling chain, C<op_moresib> is false and C<op_sibparent> points to the
+parent (if any) rather than being C<NULL>.
+
+To make existing code work transparently whether using C<PERL_OP_PARENT>
+or not, a number of new macros and functions have been added that should
+be used, rather than directly manipulating C<op_sibling>.
+
+For the case of just reading C<op_sibling> to determine the next sibling,
+two new macros have been added. A simple scan through a sibling chain
+like this:
+
+    for (; kid->op_sibling; kid = kid->op_sibling) { ... }
+
+should now be written as:
+
+    for (; OpHAS_SIBLING(kid); kid = OpSIBLING(kid)) { ... }
+
+For altering optrees, a general-purpose function C<op_sibling_splice()>
+has been added, which allows for manipulation of a chain of sibling ops.
+By analogy with the Perl function C<splice()>, it allows you to cut out
+zero or more ops from a sibling chain and replace them with zero or more
+new ops.  It transparently handles all the updating of sibling, parent,
+op_last pointers etc.
+
+If you need to manipulate ops at a lower level, then three new macros,
+C<OpMORESIB_set>, C<OpLASTSIB_set> and C<OpMAYBESIB_set> are intended to
+be a low-level portable way to set C<op_sibling> / C<op_sibparent> while
+also updating C<op_moresib>.  The first sets the sibling pointer to a new
+sibling, the second makes the op the last sibling, and the third
+conditionally does the first or second action.  Note that unlike
+C<op_sibling_splice()> these macros won't maintain consistency in the
+parent at the same time (I<e.g.> by updating C<op_first> and C<op_last> where
+appropriate).
+
+A C-level C<Perl_op_parent()> function and a Perl-level C<B::OP::parent()>
+method have been added. The C function only exists under
+C<PERL_OP_PARENT> builds (using it is build-time error on vanilla
+perls).  C<B::OP::parent()> exists always, but on a vanilla build it
+always returns C<NULL>. Under C<PERL_OP_PARENT>, they return the parent
+of the current op, if any. The variable C<$B::OP::does_parent> allows you
+to determine whether C<B> supports retrieving an op's parent.
+
+C<PERL_OP_PARENT> was introduced in 5.21.2, but the interface was
+changed considerably in 5.21.11. If you updated your code before the
+5.21.11 changes, it may require further revision. The main changes after
+5.21.2 were:
+
+=over 4
+
+=item *
+
+The C<OP_SIBLING> and C<OP_HAS_SIBLING> macros have been renamed
+C<OpSIBLING> and C<OpHAS_SIBLING> for consistency with other
+op-manipulating macros.
+
+=item *
+
+The C<op_lastsib> field has been renamed C<op_moresib>, and its meaning
+inverted.
+
+=item *
+
+The macro C<OpSIBLING_set> has been removed, and has been superseded by
+C<OpMORESIB_set> I<et al>.
+
+=item *
+
+The C<op_sibling_splice()> function now accepts a null C<parent> argument
+where the splicing doesn't affect the first or last ops in the sibling
+chain
+
+=back
+
+=item *
+
+Macros have been created to allow XS code to better manipulate the POSIX locale
+category C<LC_NUMERIC>.  See L<perlapi/Locale-related functions and macros>.
+
+=item *
+
+The previous C<atoi> I<et al> replacement function, C<grok_atou>, has now been
+superseded by C<grok_atoUV>.  See L<perlclib> for details.
+
+=item *
+
+A new function, C<Perl_sv_get_backrefs()>, has been added which allows you
+retrieve the weak references, if any, which point at an SV.
+
+=item *
+
+The C<screaminstr()> function has been removed. Although marked as
+public API, it was undocumented and had no usage in CPAN modules. Calling
+it has been fatal since 5.17.0.
+
+=item *
+
+The C<newDEFSVOP()>, C<block_start()>, C<block_end()> and C<intro_my()>
+functions have been added to the API.
+
+=item *
+
+The internal C<convert> function in F<op.c> has been renamed
+C<op_convert_list> and added to the API.
+
+=item *
+
+The C<sv_magic()> function no longer forbids "ext" magic on read-only
+values.  After all, perl can't know whether the custom magic will modify
+the SV or not.
+L<[perl #123103]|https://rt.perl.org/Ticket/Display.html?id=123103>.
+
+=item *
+
+Accessing L<perlapi/CvPADLIST> on an XSUB is now forbidden.
+
+The C<CvPADLIST> field has been reused for a different internal purpose
+for XSUBs. So in particular, you can no longer rely on it being NULL as a
+test of whether a CV is an XSUB. Use C<CvISXSUB()> instead.
+
+=item *
+
+SVs of type C<SVt_NV> are now sometimes bodiless when the build
+configuration and platform allow it: specifically, when C<< sizeof(NV) <=
+sizeof(IV) >>. "Bodiless" means that the NV value is stored directly in
+the head of an SV, without requiring a separate body to be allocated. This
+trick has already been used for IVs since 5.9.2 (though in the case of
+IVs, it is always used, regardless of platform and build configuration).
+
+=item *
+
+The C<$DB::single>, C<$DB::signal> and C<$DB::trace> variables now have set- and
+get-magic that stores their values as IVs, and those IVs are used when
+testing their values in C<pp_dbstate()>.  This prevents perl from
+recursing infinitely if an overloaded object is assigned to any of those
+variables.
+L<[perl #122445]|https://rt.perl.org/Ticket/Display.html?id=122445>.
+
+=item *
+
+C<Perl_tmps_grow()>, which is marked as public API but is undocumented, has
+been removed from the public API. This change does not affect XS code that
+uses the C<EXTEND_MORTAL> macro to pre-extend the mortal stack.
+
+=item *
+
+Perl's internals no longer sets or uses the C<SVs_PADMY> flag.
+C<SvPADMY()> now returns a true value for anything not marked C<PADTMP>
+and C<SVs_PADMY> is now defined as 0.
+
+=item *
+
+The macros C<SETsv> and C<SETsvUN> have been removed. They were no longer used
+in the core since commit 6f1401dc2a five years ago, and have not been
+found present on CPAN.
+
+=item *
+
+The C<< SvFAKE >> bit (unused on HVs) got informally reserved by
+David Mitchell for future work on vtables.
+
+=item *
+
+The C<sv_catpvn_flags()> function accepts C<SV_CATBYTES> and C<SV_CATUTF8>
+flags, which specify whether the appended string is bytes or UTF-8,
+respectively. (These flags have in fact been present since 5.16.0, but
+were formerly not regarded as part of the API.)
+
+=item *
+
+A new opcode class, C<< METHOP >>, has been introduced. It holds
+information used at runtime to improve the performance
+of class/object method calls.
+
+C<< OP_METHOD >> and C<< OP_METHOD_NAMED >> have changed from being
+C<< UNOP/SVOP >> to being C<< METHOP >>.
+
+=item *
+
+C<cv_name()> is a new API function that can be passed a CV or GV.  It
+returns an SV containing the name of the subroutine, for use in
+diagnostics.
+
+L<[perl #116735]|https://rt.perl.org/Ticket/Display.html?id=116735>
+L<[perl #120441]|https://rt.perl.org/Ticket/Display.html?id=120441>
+
+=item *
+
+C<cv_set_call_checker_flags()> is a new API function that works like
+C<cv_set_call_checker()>, except that it allows the caller to specify
+whether the call checker requires a full GV for reporting the subroutine's
+name, or whether it could be passed a CV instead.  Whatever value is
+passed will be acceptable to C<cv_name()>.  C<cv_set_call_checker()>
+guarantees there will be a GV, but it may have to create one on the fly,
+which is inefficient.
+L<[perl #116735]|https://rt.perl.org/Ticket/Display.html?id=116735>
+
+=item *
+
+C<CvGV> (which is not part of the API) is now a more complex macro, which may
+call a function and reify a GV.  For those cases where it has been used as a
+boolean, C<CvHASGV> has been added, which will return true for CVs that
+notionally have GVs, but without reifying the GV.  C<CvGV> also returns a GV
+now for lexical subs.
+L<[perl #120441]|https://rt.perl.org/Ticket/Display.html?id=120441>
+
+=item *
+
+The L<perlapi/sync_locale> function has been added to the public API.
+Changing the program's locale should be avoided by XS code. Nevertheless,
+certain non-Perl libraries called from XS need to do so, such as C<Gtk>.
+When this happens, Perl needs to be told that the locale has
+changed.  Use this function to do so, before returning to Perl.
+
+=item *
+
+The defines and labels for the flags in the C<op_private> field of OPs are now
+auto-generated from data in F<regen/op_private>.  The noticeable effect of this
+is that some of the flag output of C<Concise> might differ slightly, and the
+flag output of S<C<perl -Dx>> may differ considerably (they both use the same set
+of labels now).  Also, debugging builds now have a new assertion in
+C<op_free()> to ensure that the op doesn't have any unrecognized flags set in
+C<op_private>.
+
+=item *
+
+The deprecated variable C<PL_sv_objcount> has been removed.
+
+=item *
+
+Perl now tries to keep the locale category C<LC_NUMERIC> set to "C"
+except around operations that need it to be set to the program's
+underlying locale.  This protects the many XS modules that cannot cope
+with the decimal radix character not being a dot.  Prior to this
+release, Perl initialized this category to "C", but a call to
+C<POSIX::setlocale()> would change it.  Now such a call will change the
+underlying locale of the C<LC_NUMERIC> category for the program, but the
+locale exposed to XS code will remain "C".  There are new macros
+to manipulate the LC_NUMERIC locale, including
+C<STORE_LC_NUMERIC_SET_TO_NEEDED> and
+C<STORE_LC_NUMERIC_FORCE_TO_UNDERLYING>.
+See L<perlapi/Locale-related functions and macros>.
+
+=item *
+
+A new macro L<C<isUTF8_CHAR>|perlapi/isUTF8_CHAR> has been written which
+efficiently determines if the string given by its parameters begins
+with a well-formed UTF-8 encoded character.
+
+=item *
+
+The following private API functions had their context parameter removed:
+C<Perl_cast_ulong>,  C<Perl_cast_i32>, C<Perl_cast_iv>,    C<Perl_cast_uv>,
+C<Perl_cv_const_sv>, C<Perl_mg_find>,  C<Perl_mg_findext>, C<Perl_mg_magical>,
+C<Perl_mini_mktime>, C<Perl_my_dirfd>, C<Perl_sv_backoff>, C<Perl_utf8_hop>.
+
+Note that the prefix-less versions of those functions that are part of the
+public API, such as C<cast_i32()>, remain unaffected.
+
+=item *
+
+The C<PADNAME> and C<PADNAMELIST> types are now separate types, and no
+longer simply aliases for SV and AV.
+L<[perl #123223]|https://rt.perl.org/Ticket/Display.html?id=123223>.
+
+=item *
+
+Pad names are now always UTF-8.  The C<PadnameUTF8> macro always returns
+true.  Previously, this was effectively the case already, but any support
+for two different internal representations of pad names has now been
+removed.
+
+=item *
+
+A new op class, C<UNOP_AUX>, has been added. This is a subclass of
+C<UNOP> with an C<op_aux> field added, which points to an array of unions
+of UV, SV* etc. It is intended for where an op needs to store more data
+than a simple C<op_sv> or whatever. Currently the only op of this type is
+C<OP_MULTIDEREF> (see next item).
+
+=item *
+
+A new op has been added, C<OP_MULTIDEREF>, which performs one or more
+nested array and hash lookups where the key is a constant or simple
+variable. For example the expression C<$a[0]{$k}[$i]>, which previously
+involved ten C<rv2Xv>, C<Xelem>, C<gvsv> and C<const> ops is now performed
+by a single C<multideref> op. It can also handle C<local>, C<exists> and
+C<delete>. A non-simple index expression, such as C<[$i+1]> is still done
+using C<aelem>/C<helem>, and single-level array lookup with a small constant
+index is still done using C<aelemfast>.
+
+=back
+
+=head1 Selected Bug Fixes
+
+=over 4
+
+=item *
+
+C<close> now sets C<$!>
+
+When an I/O error occurs, the fact that there has been an error is recorded
+in the handle.  C<close> returns false for such a handle.  Previously, the
+value of C<$!> would be untouched by C<close>, so the common convention of
+writing S<C<close $fh or die $!>> did not work reliably.  Now the handle
+records the value of C<$!>, too, and C<close> restores it.
+
+=item *
+
+C<no re> now can turn off everything that C<use re> enables
+
+Previously, running C<no re> would turn off only a few things. Now it
+can turn off all the enabled things. For example, the only way to
+stop debugging, once enabled, was to exit the enclosing block; that is
+now fixed.
+
+=item *
+
+C<pack("D", $x)> and C<pack("F", $x)> now zero the padding on x86 long
+double builds.  Under some build options on GCC 4.8 and later, they used
+to either overwrite the zero-initialized padding, or bypass the
+initialized buffer entirely.  This caused F<op/pack.t> to fail.
+L<[perl #123971]|https://rt.perl.org/Ticket/Display.html?id=123971>
+
+=item *
+
+Extending an array cloned from a parent thread could result in "Modification of
+a read-only value attempted" errors when attempting to modify the new elements.
+L<[perl #124127]|https://rt.perl.org/Ticket/Display.html?id=124127>
+
+=item *
+
+An assertion failure and subsequent crash with C<< *x=<y> >> has been fixed.
+L<[perl #123790]|https://rt.perl.org/Ticket/Display.html?id=123790>
+
+=item *
+
+A possible crashing/looping bug related to compiling lexical subs has been
+fixed.
+L<[perl #124099]|https://rt.perl.org/Ticket/Display.html?id=124099>
+
+=item *
+
+UTF-8 now works correctly in function names, in unquoted HERE-document
+terminators, and in variable names used as array indexes.
+L<[perl #124113]|https://rt.perl.org/Ticket/Display.html?id=124113>
+
+=item *
+
+Repeated global pattern matches in scalar context on large tainted strings were
+exponentially slow depending on the current match position in the string.
+L<[perl #123202]|https://rt.perl.org/Ticket/Display.html?id=123202>
+
+=item *
+
+Various crashes due to the parser getting confused by syntax errors have been
+fixed.
+L<[perl #123801]|https://rt.perl.org/Ticket/Display.html?id=123801>
+L<[perl #123802]|https://rt.perl.org/Ticket/Display.html?id=123802>
+L<[perl #123955]|https://rt.perl.org/Ticket/Display.html?id=123955>
+L<[perl #123995]|https://rt.perl.org/Ticket/Display.html?id=123995>
+
+=item *
+
+C<split> in the scope of lexical C<$_> has been fixed not to fail assertions.
+L<[perl #123763]|https://rt.perl.org/Ticket/Display.html?id=123763>
+
+=item *
+
+C<my $x : attr> syntax inside various list operators no longer fails
+assertions.
+L<[perl #123817]|https://rt.perl.org/Ticket/Display.html?id=123817>
+
+=item *
+
+An C<@> sign in quotes followed by a non-ASCII digit (which is not a valid
+identifier) would cause the parser to crash, instead of simply trying the
+C<@> as literal.  This has been fixed.
+L<[perl #123963]|https://rt.perl.org/Ticket/Display.html?id=123963>
+
+=item *
+
+C<*bar::=*foo::=*glob_with_hash> has been crashing since Perl 5.14, but no
+longer does.
+L<[perl #123847]|https://rt.perl.org/Ticket/Display.html?id=123847>
+
+=item *
+
+C<foreach> in scalar context was not pushing an item on to the stack, resulting
+in bugs.  (S<C<print 4, scalar do { foreach(@x){} } + 1>> would print 5.)
+It has been fixed to return C<undef>.
+L<[perl #124004]|https://rt.perl.org/Ticket/Display.html?id=124004>
+
+=item *
+
+Several cases of data used to store environment variable contents in core C
+code being potentially overwritten before being used have been fixed.
+L<[perl #123748]|https://rt.perl.org/Ticket/Display.html?id=123748>
+
+=item *
+
+Some patterns starting with C</.*..../> matched against long strings have
+been slow since v5.8, and some of the form C</.*..../i> have been slow
+since v5.18. They are now all fast again.
+L<[perl #123743]|https://rt.perl.org/Ticket/Display.html?id=123743>.
+
+=item *
+
+The original visible value of C<$/> is now preserved when it is set to
+an invalid value.  Previously if you set C<$/> to a reference to an
+array, for example, perl would produce a runtime error and not set
+C<PL_rs>, but Perl code that checked C<$/> would see the array
+reference.
+L<[perl #123218]|https://rt.perl.org/Ticket/Display.html?id=123218>.
+
+=item *
+
+In a regular expression pattern, a POSIX class, like C<[:ascii:]>, must
+be inside a bracketed character class, like C<qr/[[:ascii:]]/>.  A
+warning is issued when something looking like a POSIX class is not
+inside a bracketed class.  That warning wasn't getting generated when
+the POSIX class was negated: C<[:^ascii:]>.  This is now fixed.
+
+=item *
+
+Perl 5.14.0 introduced a bug whereby S<C<eval { LABEL: }>> would crash.  This
+has been fixed.
+L<[perl #123652]|https://rt.perl.org/Ticket/Display.html?id=123652>.
+
+=item *
+
+Various crashes due to the parser getting confused by syntax errors have
+been fixed.
+L<[perl #123617]|https://rt.perl.org/Ticket/Display.html?id=123617>.
+L<[perl #123737]|https://rt.perl.org/Ticket/Display.html?id=123737>.
+L<[perl #123753]|https://rt.perl.org/Ticket/Display.html?id=123753>.
+L<[perl #123677]|https://rt.perl.org/Ticket/Display.html?id=123677>.
+
+=item *
+
+Code like C</$a[/> used to read the next line of input and treat it as
+though it came immediately after the opening bracket.  Some invalid code
+consequently would parse and run, but some code caused crashes, so this is
+now disallowed.
+L<[perl #123712]|https://rt.perl.org/Ticket/Display.html?id=123712>.
+
+=item *
+
+Fix argument underflow for C<pack>.
+L<[perl #123874]|https://rt.perl.org/Ticket/Display.html?id=123874>.
+
+=item *
+
+Fix handling of non-strict C<\x{}>. Now C<\x{}> is equivalent to C<\x{0}>
+instead of faulting.
+
+=item *
+
+C<stat -t> is now no longer treated as stackable, just like C<-t stat>.
+L<[perl #123816]|https://rt.perl.org/Ticket/Display.html?id=123816>.
+
+=item *
+
+The following no longer causes a SEGV: C<qr{x+(y(?0))*}>.
+
+=item *
+
+Fixed infinite loop in parsing backrefs in regexp patterns.
+
+=item *
+
+Several minor bug fixes in behavior of Infinity and NaN, including
+warnings when stringifying Infinity-like or NaN-like strings. For example,
+"NaNcy" doesn't numify to NaN anymore.
+
+=item *
+
+A bug in regular expression patterns that could lead to segfaults and
+other crashes has been fixed.  This occurred only in patterns compiled
+with C</i> while taking into account the current POSIX locale (which usually
+means they have to be compiled within the scope of C<S<use locale>>),
+and there must be a string of at least 128 consecutive bytes to match.
+L<[perl #123539]|https://rt.perl.org/Ticket/Display.html?id=123539>.
+
+=item *
+
+C<s///g> now works on very long strings (where there are more than 2
+billion iterations) instead of dying with 'Substitution loop'.
+L<[perl #103260]|https://rt.perl.org/Ticket/Display.html?id=103260>.
+L<[perl #123071]|https://rt.perl.org/Ticket/Display.html?id=123071>.
+
+=item *
+
+C<gmtime> no longer crashes with not-a-number values.
+L<[perl #123495]|https://rt.perl.org/Ticket/Display.html?id=123495>.
+
+=item *
+
+C<\()> (a reference to an empty list), and C<y///> with lexical C<$_> in
+scope, could both do a bad write past the end of the stack.  They have
+both been fixed to extend the stack first.
+
+=item *
+
+C<prototype()> with no arguments used to read the previous item on the
+stack, so S<C<print "foo", prototype()>> would print foo's prototype.
+It has been fixed to infer C<$_> instead.
+L<[perl #123514]|https://rt.perl.org/Ticket/Display.html?id=123514>.
+
+=item *
+
+Some cases of lexical state subs declared inside predeclared subs could
+crash, for example when evalling a string including the name of an outer
+variable, but no longer do.
+
+=item *
+
+Some cases of nested lexical state subs inside anonymous subs could cause
+'Bizarre copy' errors or possibly even crashes.
+
+=item *
+
+When trying to emit warnings, perl's default debugger (F<perl5db.pl>) was
+sometimes giving 'Undefined subroutine &DB::db_warn called' instead.  This
+bug, which started to occur in Perl 5.18, has been fixed.
+L<[perl #123553]|https://rt.perl.org/Ticket/Display.html?id=123553>.
+
+=item *
+
+Certain syntax errors in substitutions, such as C<< s/${<>{})// >>, would
+crash, and had done so since Perl 5.10.  (In some cases the crash did not
+start happening till 5.16.)  The crash has, of course, been fixed.
+L<[perl #123542]|https://rt.perl.org/Ticket/Display.html?id=123542>.
+
+=item *
+
+Fix a couple of string grow size calculation overflows; in particular,
+a repeat expression like S<C<33 x ~3>> could cause a large buffer
+overflow since the new output buffer size was not correctly handled by
+C<SvGROW()>.  An expression like this now properly produces a memory wrap
+panic.
+L<[perl #123554]|https://rt.perl.org/Ticket/Display.html?id=123554>.
+
+=item *
+
+C<< formline("@...", "a"); >> would crash.  The C<FF_CHECKNL> case in
+C<pp_formline()> didn't set the pointer used to mark the chop position,
+which led to the C<FF_MORE> case crashing with a segmentation fault.
+This has been fixed.
+L<[perl #123538]|https://rt.perl.org/Ticket/Display.html?id=123538>.
+
+=item *
+
+A possible buffer overrun and crash when parsing a literal pattern during
+regular expression compilation has been fixed.
+L<[perl #123604]|https://rt.perl.org/Ticket/Display.html?id=123604>.
+
+=item *
+
+C<fchmod()> and C<futimes()> now set C<$!> when they fail due to being
+passed a closed file handle.
+L<[perl #122703]|https://rt.perl.org/Ticket/Display.html?id=122703>.
+
+=item *
+
+C<op_free()> and C<scalarvoid()> no longer crash due to a stack overflow
+when freeing a deeply recursive op tree.
+L<[perl #108276]|https://rt.perl.org/Ticket/Display.html?id=108276>.
+
+=item *
+
+In Perl 5.20.0, C<$^N> accidentally had the internal UTF-8 flag turned off
+if accessed from a code block within a regular expression, effectively
+UTF-8-encoding the value.  This has been fixed.
+L<[perl #123135]|https://rt.perl.org/Ticket/Display.html?id=123135>.
+
+=item *
+
+A failed C<semctl> call no longer overwrites existing items on the stack,
+which means that C<(semctl(-1,0,0,0))[0]> no longer gives an
+"uninitialized" warning.
+
+=item *
+
+C<else{foo()}> with no space before C<foo> is now better at assigning the
+right line number to that statement.
+L<[perl #122695]|https://rt.perl.org/Ticket/Display.html?id=122695>.
+
+=item *
+
+Sometimes the assignment in C<@array = split> gets optimised so that C<split>
+itself writes directly to the array.  This caused a bug, preventing this
+assignment from being used in lvalue context.  So
+C<(@a=split//,"foo")=bar()> was an error.  (This bug probably goes back to
+Perl 3, when the optimisation was added.) It has now been fixed.
+L<[perl #123057]|https://rt.perl.org/Ticket/Display.html?id=123057>.
+
+=item *
+
+When an argument list fails the checks specified by a subroutine
+signature (which is still an experimental feature), the resulting error
+messages now give the file and line number of the caller, not of the
+called subroutine.
+L<[perl #121374]|https://rt.perl.org/Ticket/Display.html?id=121374>.
+
+=item *
+
+The flip-flop operators (C<..> and C<...> in scalar context) used to maintain
+a separate state for each recursion level (the number of times the
+enclosing sub was called recursively), contrary to the documentation.  Now
+each closure has one internal state for each flip-flop.
+L<[perl #122829]|https://rt.perl.org/Ticket/Display.html?id=122829>.
+
+=item *
+
+The flip-flop operator (C<..> in scalar context) would return the same
+scalar each time, unless the containing subroutine was called recursively.
+Now it always returns a new scalar.
+L<[perl #122829]|https://rt.perl.org/Ticket/Display.html?id=122829>.
+
+=item *
+
+C<use>, C<no>, statement labels, special blocks (C<BEGIN>) and pod are now
+permitted as the first thing in a C<map> or C<grep> block, the block after
+C<print> or C<say> (or other functions) returning a handle, and within
+C<${...}>, C<@{...}>, etc.
+L<[perl #122782]|https://rt.perl.org/Ticket/Display.html?id=122782>.
+
+=item *
+
+The repetition operator C<x> now propagates lvalue context to its left-hand
+argument when used in contexts like C<foreach>.  That allows
+S<C<for(($#that_array)x2) { ... }>> to work as expected if the loop modifies
+C<$_>.
+
+=item *
+
+C<(...) x ...> in scalar context used to corrupt the stack if one operand
+was an object with "x" overloading, causing erratic behavior.
+L<[perl #121827]|https://rt.perl.org/Ticket/Display.html?id=121827>.
+
+=item *
+
+Assignment to a lexical scalar is often optimised away; for example in
+C<my $x; $x = $y + $z>, the assign operator is optimised away and the add
+operator writes its result directly to C<$x>.  Various bugs related to
+this optimisation have been fixed.  Certain operators on the right-hand
+side would sometimes fail to assign the value at all or assign the wrong
+value, or would call STORE twice or not at all on tied variables.  The
+operators affected were C<$foo++>, C<$foo-->, and C<-$foo> under C<use
+integer>, C<chomp>, C<chr> and C<setpgrp>.
+
+=item *
+
+List assignments were sometimes buggy if the same scalar ended up on both
+sides of the assignment due to use of C<tied>, C<values> or C<each>.  The
+result would be the wrong value getting assigned.
+
+=item *
+
+C<setpgrp($nonzero)> (with one argument) was accidentally changed in 5.16
+to mean C<setpgrp(0)>.  This has been fixed.
+
+=item *
+
+C<__SUB__> could return the wrong value or even corrupt memory under the
+debugger (the C<-d> switch) and in subs containing C<eval $string>.
+
+=item *
+
+When S<C<sub () { $var }>> becomes inlinable, it now returns a different
+scalar each time, just as a non-inlinable sub would, though Perl still
+optimises the copy away in cases where it would make no observable
+difference.
+
+=item *
+
+S<C<my sub f () { $var }>> and S<C<sub () : attr { $var }>> are no longer
+eligible for inlining.  The former would crash; the latter would just
+throw the attributes away.  An exception is made for the little-known
+C<:method> attribute, which does nothing much.
+
+=item *
+
+Inlining of subs with an empty prototype is now more consistent than
+before. Previously, a sub with multiple statements, of which all but the last
+were optimised away, would be inlinable only if it were an anonymous sub
+containing a string C<eval> or C<state> declaration or closing over an
+outer lexical variable (or any anonymous sub under the debugger).  Now any
+sub that gets folded to a single constant after statements have been
+optimised away is eligible for inlining.  This applies to things like C<sub
+() { jabber() if DEBUG; 42 }>.
+
+Some subroutines with an explicit C<return> were being made inlinable,
+contrary to the documentation,  Now C<return> always prevents inlining.
+
+=item *
+
+On some systems, such as VMS, C<crypt> can return a non-ASCII string.  If a
+scalar assigned to had contained a UTF-8 string previously, then C<crypt>
+would not turn off the UTF-8 flag, thus corrupting the return value.  This
+would happen with S<C<$lexical = crypt ...>>.
+
+=item *
+
+C<crypt> no longer calls C<FETCH> twice on a tied first argument.
+
+=item *
+
+An unterminated here-doc on the last line of a quote-like operator
+(C<qq[${ <<END }]>, C</(?{ <<END })/>) no longer causes a double free.  It
+started doing so in 5.18.
+
+=item *
+
+C<index()> and C<rindex()> no longer crash when used on strings over 2GB in
+size.
+L<[perl #121562]|https://rt.perl.org/Ticket/Display.html?id=121562>.
+
+=item *
+
+A small, previously intentional, memory leak in
+C<PERL_SYS_INIT>/C<PERL_SYS_INIT3> on Win32 builds was fixed. This might
+affect embedders who repeatedly create and destroy perl engines within
+the same process.
+
+=item *
+
+C<POSIX::localeconv()> now returns the data for the program's underlying
+locale even when called from outside the scope of S<C<use locale>>.
+
+=item *
+
+C<POSIX::localeconv()> now works properly on platforms which don't have
+C<LC_NUMERIC> and/or C<LC_MONETARY>, or for which Perl has been compiled
+to disregard either or both of these locale categories.  In such
+circumstances, there are now no entries for the corresponding values in
+the hash returned by C<localeconv()>.
+
+=item *
+
+C<POSIX::localeconv()> now marks appropriately the values it returns as
+UTF-8 or not.  Previously they were always returned as bytes, even if
+they were supposed to be encoded as UTF-8.
+
+=item *
+
+On Microsoft Windows, within the scope of C<S<use locale>>, the following
+POSIX character classes gave results for many locales that did not
+conform to the POSIX standard:
+C<[[:alnum:]]>,
+C<[[:alpha:]]>,
+C<[[:blank:]]>,
+C<[[:digit:]]>,
+C<[[:graph:]]>,
+C<[[:lower:]]>,
+C<[[:print:]]>,
+C<[[:punct:]]>,
+C<[[:upper:]]>,
+C<[[:word:]]>,
+and
+C<[[:xdigit:]]>.
+This was because the underlying Microsoft implementation does not
+follow the standard.  Perl now takes special precautions to correct for
+this.
+
+=item *
+
+Many issues have been detected by L<Coverity|http://www.coverity.com/> and
+fixed.
+
+=item *
+
+C<system()> and friends should now work properly on more Android builds.
+
+Due to an oversight, the value specified through C<-Dtargetsh> to F<Configure>
+would end up being ignored by some of the build process.  This caused perls
+cross-compiled for Android to end up with defective versions of C<system()>,
+C<exec()> and backticks: the commands would end up looking for C</bin/sh>
+instead of C</system/bin/sh>, and so would fail for the vast majority
+of devices, leaving C<$!> as C<ENOENT>.
+
+=item *
+
+C<qr(...\(...\)...)>,
+C<qr[...\[...\]...]>,
+and
+C<qr{...\{...\}...}>
+now work.  Previously it was impossible to escape these three
+left-characters with a backslash within a regular expression pattern
+where otherwise they would be considered metacharacters, and the pattern
+opening delimiter was the character, and the closing delimiter was its
+mirror character.
+
+=item *
+
+C<< s///e >> on tainted UTF-8 strings corrupted C<< pos() >>. This bug,
+introduced in 5.20, is now fixed.
+L<[perl #122148]|https://rt.perl.org/Ticket/Display.html?id=122148>.
+
+=item *
+
+A non-word boundary in a regular expression (C<< \B >>) did not always
+match the end of the string; in particular C<< q{} =~ /\B/ >> did not
+match. This bug, introduced in perl 5.14, is now fixed.
+L<[perl #122090]|https://rt.perl.org/Ticket/Display.html?id=122090>.
+
+=item *
+
+C<< " P" =~ /(?=.*P)P/ >> should match, but did not. This is now fixed.
+L<[perl #122171]|https://rt.perl.org/Ticket/Display.html?id=122171>.
+
+=item *
+
+Failing to compile C<use Foo> in an C<eval> could leave a spurious
+C<BEGIN> subroutine definition, which would produce a "Subroutine
+BEGIN redefined" warning on the next use of C<use>, or other C<BEGIN>
+block.
+L<[perl #122107]|https://rt.perl.org/Ticket/Display.html?id=122107>.
+
+=item *
+
+C<method { BLOCK } ARGS> syntax now correctly parses the arguments if they
+begin with an opening brace.
+L<[perl #46947]|https://rt.perl.org/Ticket/Display.html?id=46947>.
+
+=item *
+
+External libraries and Perl may have different ideas of what the locale is.
+This is problematic when parsing version strings if the locale's numeric
+separator has been changed.  Version parsing has been patched to ensure
+it handles the locales correctly.
+L<[perl #121930]|https://rt.perl.org/Ticket/Display.html?id=121930>.
+
+=item *
+
+A bug has been fixed where zero-length assertions and code blocks inside of a
+regex could cause C<pos> to see an incorrect value.
+L<[perl #122460]|https://rt.perl.org/Ticket/Display.html?id=122460>.
+
+=item *
+
+Dereferencing of constants now works correctly for typeglob constants.  Previously
+the glob was stringified and its name looked up.  Now the glob itself is used.
+L<[perl #69456]|https://rt.perl.org/Ticket/Display.html?id=69456>
+
+=item *
+
+When parsing a sigil (C<$> C<@> C<%> C<&)> followed by braces,
+the parser no
+longer tries to guess whether it is a block or a hash constructor (causing a
+syntax error when it guesses the latter), since it can only be a block.
+
+=item *
+
+S<C<undef $reference>> now frees the referent immediately, instead of hanging on
+to it until the next statement.
+L<[perl #122556]|https://rt.perl.org/Ticket/Display.html?id=122556>
+
+=item *
+
+Various cases where the name of a sub is used (autoload, overloading, error
+messages) used to crash for lexical subs, but have been fixed.
+
+=item *
+
+Bareword lookup now tries to avoid vivifying packages if it turns out the
+bareword is not going to be a subroutine name.
+
+=item *
+
+Compilation of anonymous constants (I<e.g.>, C<sub () { 3 }>) no longer deletes
+any subroutine named C<__ANON__> in the current package.  Not only was
+C<*__ANON__{CODE}> cleared, but there was a memory leak, too.  This bug goes
+back to Perl 5.8.0.
+
+=item *
+
+Stub declarations like C<sub f;> and C<sub f ();> no longer wipe out constants
+of the same name declared by C<use constant>.  This bug was introduced in Perl
+5.10.0.
+
+=item *
+
+C<qr/[\N{named sequence}]/> now works properly in many instances.
+
+Some names
+known to C<\N{...}> refer to a sequence of multiple characters, instead of the
+usual single character.  Bracketed character classes generally only match
+single characters, but now special handling has been added so that they can
+match named sequences, but not if the class is inverted or the sequence is
+specified as the beginning or end of a range.  In these cases, the only
+behavior change from before is a slight rewording of the fatal error message
+given when this class is part of a C<?[...])> construct.  When the C<[...]>
+stands alone, the same non-fatal warning as before is raised, and only the
+first character in the sequence is used, again just as before.
+
+=item *
+
+Tainted constants evaluated at compile time no longer cause unrelated
+statements to become tainted.
+L<[perl #122669]|https://rt.perl.org/Ticket/Display.html?id=122669>
+
+=item *
+
+S<C<open $$fh, ...>>, which vivifies a handle with a name like
+C<"main::_GEN_0">, was not giving the handle the right reference count, so
+a double free could happen.
+
+=item *
+
+When deciding that a bareword was a method name, the parser would get confused
+if an C<our> sub with the same name existed, and look up the method in the
+package of the C<our> sub, instead of the package of the invocant.
+
+=item *
+
+The parser no longer gets confused by C<\U=> within a double-quoted string.  It
+used to produce a syntax error, but now compiles it correctly.
+L<[perl #80368]|https://rt.perl.org/Ticket/Display.html?id=80368>
+
+=item *
+
+It has always been the intention for the C<-B> and C<-T> file test operators to
+treat UTF-8 encoded files as text.  (L<perlfunc|perlfunc/-X FILEHANDLE> has
+been updated to say this.)  Previously, it was possible for some files to be
+considered UTF-8 that actually weren't valid UTF-8.  This is now fixed.  The
+operators now work on EBCDIC platforms as well.
+
+=item *
+
+Under some conditions warning messages raised during regular expression pattern
+compilation were being output more than once.  This has now been fixed.
+
+=item *
+
+Perl 5.20.0 introduced a regression in which a UTF-8 encoded regular
+expression pattern that contains a single ASCII lowercase letter did not
+match its uppercase counterpart. That has been fixed in both 5.20.1 and
+5.22.0.
+L<[perl #122655]|https://rt.perl.org/Ticket/Display.html?id=122655>
+
+=item *
+
+Constant folding could incorrectly suppress warnings if lexical warnings
+(C<use warnings> or C<no warnings>) were not in effect and C<$^W> were
+false at compile time and true at run time.
+
+=item *
+
+Loading Unicode tables during a regular expression match could cause assertion
+failures under debugging builds if the previous match used the very same
+regular expression.
+L<[perl #122747]|https://rt.perl.org/Ticket/Display.html?id=122747>
+
+=item *
+
+Thread cloning used to work incorrectly for lexical subs, possibly causing
+crashes or double frees on exit.
+
+=item *
+
+Since Perl 5.14.0, deleting C<$SomePackage::{__ANON__}> and then undefining an
+anonymous subroutine could corrupt things internally, resulting in
+L<Devel::Peek> crashing or L<B.pm|B> giving nonsensical data.  This has been
+fixed.
+
+=item *
+
+S<C<(caller $n)[3]>> now reports names of lexical subs, instead of
+treating them as C<"(unknown)">.
+
+=item *
+
+C<sort subname LIST> now supports using a lexical sub as the comparison
+routine.
+
+=item *
+
+Aliasing (I<e.g.>, via S<C<*x = *y>>) could confuse list assignments that mention the
+two names for the same variable on either side, causing wrong values to be
+assigned.
+L<[perl #15667]|https://rt.perl.org/Ticket/Display.html?id=15667>
+
+=item *
+
+Long here-doc terminators could cause a bad read on short lines of input.  This
+has been fixed.  It is doubtful that any crash could have occurred.  This bug
+goes back to when here-docs were introduced in Perl 3.000 twenty-five years
+ago.
+
+=item *
+
+An optimization in C<split> to treat S<C<split /^/>> like S<C<split /^/m>> had the
+unfortunate side-effect of also treating S<C<split /\A/>> like S<C<split /^/m>>,
+which it should not.  This has been fixed.  (Note, however, that S<C<split /^x/>>
+does not behave like S<C<split /^x/m>>, which is also considered to be a bug and
+will be fixed in a future version.)
+L<[perl #122761]|https://rt.perl.org/Ticket/Display.html?id=122761>
+
+=item *
+
+The little-known S<C<my Class $var>> syntax (see L<fields> and L<attributes>)
+could get confused in the scope of C<use utf8> if C<Class> were a constant
+whose value contained Latin-1 characters.
+
+=item *
+
+Locking and unlocking values via L<Hash::Util> or C<Internals::SvREADONLY>
+no longer has any effect on values that were read-only to begin with.
+Previously, unlocking such values could result in crashes, hangs or
+other erratic behavior.
+
+=item *
+
+Some unterminated C<(?(...)...)> constructs in regular expressions would
+either crash or give erroneous error messages.  C</(?(1)/> is one such
+example.
+
+=item *
+
+S<C<pack "w", $tied>> no longer calls FETCH twice.
+
+=item *
+
+List assignments like S<C<($x, $z) = (1, $y)>> now work correctly if C<$x> and
+C<$y> have been aliased by C<foreach>.
+
+=item *
+
+Some patterns including code blocks with syntax errors, such as
+S<C</ (?{(^{})/>>, would hang or fail assertions on debugging builds.  Now
+they produce errors.
+
+=item *
+
+An assertion failure when parsing C<sort> with debugging enabled has been
+fixed.
+L<[perl #122771]|https://rt.perl.org/Ticket/Display.html?id=122771>.
+
+=item *
+
+S<C<*a = *b; @a = split //, $b[1]>> could do a bad read and produce junk
+results.
+
+=item *
+
+In S<C<() = @array = split>>, the S<C<() =>> at the beginning no longer confuses
+the optimizer into assuming a limit of 1.
+
+=item *
+
+Fatal warnings no longer prevent the output of syntax errors.
+L<[perl #122966]|https://rt.perl.org/Ticket/Display.html?id=122966>.
+
+=item *
+
+Fixed a NaN double-to-long-double conversion error on VMS. For quiet NaNs
+(and only on Itanium, not Alpha) negative infinity instead of NaN was
+produced.
+
+=item *
+
+Fixed the issue that caused C<< make distclean >> to incorrectly leave some
+files behind.
+L<[perl #122820]|https://rt.perl.org/Ticket/Display.html?id=122820>.
+
+=item *
+
+AIX now sets the length in C<< getsockopt >> correctly.
+L<[perl #120835]|https://rt.perl.org/Ticket/Display.html?id=120835>.
+L<[cpan #91183]|https://rt.cpan.org/Ticket/Display.html?id=91183>.
+L<[cpan #85570]|https://rt.cpan.org/Ticket/Display.html?id=85570>.
+
+=item *
+
+The optimization phase of a regexp compilation could run "forever" and
+exhaust all memory under certain circumstances; now fixed.
+L<[perl #122283]|https://rt.perl.org/Ticket/Display.html?id=122283>.
+
+=item *
+
+The test script F<< t/op/crypt.t >> now uses the SHA-256 algorithm if the
+default one is disabled, rather than giving failures.
+L<[perl #121591]|https://rt.perl.org/Ticket/Display.html?id=121591>.
+
+=item *
+
+Fixed an off-by-one error when setting the size of a shared array.
+L<[perl #122950]|https://rt.perl.org/Ticket/Display.html?id=122950>.
+
+=item *
+
+Fixed a bug that could cause perl to enter an infinite loop during
+compilation. In particular, a C<while(1)> within a sublist, I<e.g.>
+
+    sub foo { () = ($a, my $b, ($c, do { while(1) {} })) }
+
+The bug was introduced in 5.20.0
+L<[perl #122995]|https://rt.perl.org/Ticket/Display.html?id=122995>.
+
+=item *
+
+On Win32, if a variable was C<local>-ized in a pseudo-process that later
+forked, restoring the original value in the child pseudo-process caused
+memory corruption and a crash in the child pseudo-process (and therefore the
+OS process).
+L<[perl #40565]|https://rt.perl.org/Ticket/Display.html?id=40565>.
+
+=item *
+
+Calling C<write> on a format with a C<^**> field could produce a panic
+in C<sv_chop()> if there were insufficient arguments or if the variable
+used to fill the field was empty.
+L<[perl #123245]|https://rt.perl.org/Ticket/Display.html?id=123245>.
+
+=item *
+
+Non-ASCII lexical sub names now appear without trailing junk when they
+appear in error messages.
+
+=item *
+
+The C<\@> subroutine prototype no longer flattens parenthesized arrays
+(taking a reference to each element), but takes a reference to the array
+itself.
+L<[perl #47363]|https://rt.perl.org/Ticket/Display.html?id=47363>.
+
+=item *
+
+A block containing nothing except a C-style C<for> loop could corrupt the
+stack, causing lists outside the block to lose elements or have elements
+overwritten.  This could happen with C<map { for(...){...} } ...> and with
+lists containing C<do { for(...){...} }>.
+L<[perl #123286]|https://rt.perl.org/Ticket/Display.html?id=123286>.
+
+=item *
+
+C<scalar()> now propagates lvalue context, so that
+S<C<for(scalar($#foo)) { ... }>> can modify C<$#foo> through C<$_>.
+
+=item *
+
+C<qr/@array(?{block})/> no longer dies with "Bizarre copy of ARRAY".
+L<[perl #123344]|https://rt.perl.org/Ticket/Display.html?id=123344>.
+
+=item *
+
+S<C<eval '$variable'>> in nested named subroutines would sometimes look up a
+global variable even with a lexical variable in scope.
+
+=item *
+
+In perl 5.20.0, C<sort CORE::fake> where 'fake' is anything other than a
+keyword, started chopping off the last 6 characters and treating the result
+as a sort sub name.  The previous behavior of treating C<CORE::fake> as a
+sort sub name has been restored.
+L<[perl #123410]|https://rt.perl.org/Ticket/Display.html?id=123410>.
+
+=item *
+
+Outside of C<use utf8>, a single-character Latin-1 lexical variable is
+disallowed.  The error message for it, "Can't use global C<$foo>...", was
+giving garbage instead of the variable name.
+
+=item *
+
+C<readline> on a nonexistent handle was causing C<${^LAST_FH}> to produce a
+reference to an undefined scalar (or fail an assertion).  Now
+C<${^LAST_FH}> ends up undefined.
+
+=item *
+
+C<(...) x ...> in void context now applies scalar context to the left-hand
+argument, instead of the context the current sub was called in.
+L<[perl #123020]|https://rt.perl.org/Ticket/Display.html?id=123020>.
+
+=back
+
+=head1 Known Problems
+
+=over 4
+
+=item *
+
+C<pack>-ing a NaN on a perl compiled with Visual C 6 does not behave properly,
+leading to a test failure in F<t/op/infnan.t>.
+L<[perl 125203]|https://rt.perl.org/Ticket/Display.html?id=125203>
+
+=item *
+
+A goal is for Perl to be able to be recompiled to work reasonably well on any
+Unicode version.  In Perl 5.22, though, the earliest such version is Unicode
+5.1 (current is 7.0).
+
+=item *
+
+EBCDIC platforms
+
+=over 4
+
+=item *
+
+The C<cmp> (and hence C<sort>) operators do not necessarily give the
+correct results when both operands are UTF-EBCDIC encoded strings and
+there is a mixture of ASCII and/or control characters, along with other
+characters.
+
+=item *
+
+Ranges containing C<\N{...}> in the C<tr///> (and C<y///>)
+transliteration operators are treated differently than the equivalent
+ranges in regular expression patterns.  They should, but don't, cause
+the values in the ranges to all be treated as Unicode code points, and
+not native ones.  (L<perlre/Version 8 Regular Expressions> gives
+details as to how it should work.)
+
+=item *
+
+Encode and encoding are mostly broken.
+
+=item *
+
+Many CPAN modules that are shipped with core show failing tests.
+
+=item *
+
+C<pack>/C<unpack> with C<"U0"> format may not work properly.
+
+=back
+
+=item *
+
+The following modules are known to have test failures with this version of
+Perl.  In many cases, patches have been submitted, so there will hopefully be
+new releases soon:
+
+=over
+
+=item *
+
+L<B::Generate> version 1.50
+
+=item *
+
+L<B::Utils> version 0.25
+
+=item *
+
+L<Coro> version 6.42
+
+=item *
+
+L<Dancer> version 1.3130
+
+=item *
+
+L<Data::Alias> version 1.18
+
+=item *
+
+L<Data::Dump::Streamer> version 2.38
+
+=item *
+
+L<Data::Util> version 0.63
+
+=item *
+
+L<Devel::Spy> version 0.07
+
+=item *
+
+L<invoker> version 0.34
+
+=item *
+
+L<Lexical::Var> version 0.009
+
+=item *
+
+L<LWP::ConsoleLogger> version 0.000018
+
+=item *
+
+L<Mason> version 2.22
+
+=item *
+
+L<NgxQueue> version 0.02
+
+=item *
+
+L<Padre> version 1.00
+
+=item *
+
+L<Parse::Keyword> 0.08
+
+=back
+
+=back
+
+=head1 Obituary
+
+Brian McCauley died on May 8, 2015.  He was a frequent poster to Usenet, Perl
+Monks, and other Perl forums, and made several CPAN contributions under the
+nick NOBULL, including to the Perl FAQ.  He attended almost every
+YAPC::Europe, and indeed, helped organise YAPC::Europe 2006 and the QA
+Hackathon 2009.  His wit and his delight in intricate systems were
+particularly apparent in his love of board games; many Perl mongers will
+have fond memories of playing Fluxx and other games with Brian.  He will be
+missed.
+
+=head1 Acknowledgements
+
+Perl 5.22.0 represents approximately 12 months of development since Perl 5.20.0
+and contains approximately 590,000 lines of changes across 2,400 files from 94
+authors.
+
+Excluding auto-generated files, documentation and release tools, there were
+approximately 370,000 lines of changes to 1,500 .pm, .t, .c and .h files.
+
+Perl continues to flourish into its third decade thanks to a vibrant community
+of users and developers. The following people are known to have contributed the
+improvements that became Perl 5.22.0:
+
+Aaron Crane, Abhijit Menon-Sen, Abigail, Alberto Simões, Alex Solovey, Alex
+Vandiver, Alexandr Ciornii, Alexandre (Midnite) Jousset, Andreas König,
+Andreas Voegele, Andrew Fresh, Andy Dougherty, Anthony Heading, Aristotle
+Pagaltzis, brian d foy, Brian Fraser, Chad Granum, Chris 'BinGOs' Williams,
+Craig A. Berry, Dagfinn Ilmari Mannsåker, Daniel Dragan, Darin McBride, Dave
+Rolsky, David Golden, David Mitchell, David Wheeler, Dmitri Tikhonov, Doug
+Bell, E. Choroba, Ed J, Eric Herman, Father Chrysostomos, George Greer, Glenn
+D. Golden, Graham Knop, H.Merijn Brand, Herbert Breunung, Hugo van der Sanden,
+James E Keenan, James McCoy, James Raspass, Jan Dubois, Jarkko Hietaniemi,
+Jasmine Ngan, Jerry D. Hedden, Jim Cromie, John Goodyear, kafka, Karen
+Etheridge, Karl Williamson, Kent Fredric, kmx, Lajos Veres, Leon Timmermans,
+Lukas Mai, Mathieu Arnold, Matthew Horsfall, Max Maischein, Michael Bunk,
+Nicholas Clark, Niels Thykier, Niko Tyni, Norman Koch, Olivier Mengué, Peter
+John Acklam, Peter Martini, Petr Písař, Philippe Bruhat (BooK), Pierre
+Bogossian, Rafael Garcia-Suarez, Randy Stauner, Reini Urban, Ricardo Signes,
+Rob Hoelz, Rostislav Skudnov, Sawyer X, Shirakata Kentaro, Shlomi Fish,
+Sisyphus, Slaven Rezic, Smylers, Steffen Müller, Steve Hay, Sullivan Beck,
+syber, Tadeusz Sośnierz, Thomas Sibley, Todd Rinaldo, Tony Cook, Vincent Pit,
+Vladimir Marek, Yaroslav Kuzmin, Yves Orton, Ævar Arnfjörð Bjarmason.
+
+The list above is almost certainly incomplete as it is automatically generated
+from version control history. In particular, it does not include the names of
+the (very much appreciated) contributors who reported issues to the Perl bug
+tracker.
+
+Many of the changes included in this version originated in the CPAN modules
+included in Perl's core. We're grateful to the entire CPAN community for
+helping Perl to flourish.
+
+For a more complete list of all of Perl's historical contributors, please see
+the F<AUTHORS> file in the Perl source distribution.
+
+=head1 Reporting Bugs
+
+If you find what you think is a bug, you might check the articles recently
+posted to the comp.lang.perl.misc newsgroup and the perl bug database at
+L<https://rt.perl.org/>.  There may also be information at
+L<http://www.perl.org/>, the Perl Home Page.
+
+If you believe you have an unreported bug, please run the L<perlbug> program
+included with your release.  Be sure to trim your bug down to a tiny but
+sufficient test case.  Your bug report, along with the output of C<perl -V>,
+will be sent off to perlbug@perl.org to be analysed by the Perl porting team.
+
+If the bug you are reporting has security implications, which make it
+inappropriate to send to a publicly archived mailing list, then please send it
+to perl5-security-report@perl.org.  This points to a closed subscription
+unarchived mailing list, which includes all the core committers, who will be
+able to help assess the impact of issues, figure out a resolution, and help
+co-ordinate the release of patches to mitigate or fix the problem across all
+platforms on which Perl is supported.  Please only use this address for
+security issues in the Perl core, not for modules independently distributed on
+CPAN.
+
+=head1 SEE ALSO
+
+The F<Changes> file for an explanation of how to view exhaustive details on
+what changed.
+
+The F<INSTALL> file for how to build Perl.
+
+The F<README> file for general stuff.
+
+The F<Artistic> and F<Copying> files for copyright information.
+
+=cut
diff --git a/lib/5.24.1/pod/perl5221delta.pod b/lib/5.24.1/pod/perl5221delta.pod
new file mode 100644
index 00000000..5d01a4b7
--- /dev/null
+++ b/lib/5.24.1/pod/perl5221delta.pod
@@ -0,0 +1,338 @@
+=encoding utf8
+
+=head1 NAME
+
+perl5221delta - what is new for perl v5.22.1
+
+=head1 DESCRIPTION
+
+This document describes differences between the 5.22.0 release and the 5.22.1
+release.
+
+If you are upgrading from an earlier release such as 5.20.0, first read
+L<perl5220delta>, which describes differences between 5.20.0 and 5.22.0.
+
+=head1 Incompatible Changes
+
+There are no changes intentionally incompatible with 5.20.0 other than the
+following single exception, which we deemed to be a sensible change to make in
+order to get the new C<\b{wb}> and (in particular) C<\b{sb}> features sane
+before people decided they're worthless because of bugs in their Perl 5.22.0
+implementation and avoided them in the future.
+If any others exist, they are bugs, and we request that you submit a report.
+See L</Reporting Bugs> below.
+
+=head2 Bounds Checking Constructs
+
+Several bugs, including a segmentation fault, have been fixed with the bounds
+checking constructs (introduced in Perl 5.22) C<\b{gcb}>, C<\b{sb}>, C<\b{wb}>,
+C<\B{gcb}>, C<\B{sb}>, and C<\B{wb}>.  All the C<\B{}> ones now match an empty
+string; none of the C<\b{}> ones do.
+L<[perl #126319]|https://rt.perl.org/Ticket/Display.html?id=126319>
+
+=head1 Modules and Pragmata
+
+=head2 Updated Modules and Pragmata
+
+=over 4
+
+=item *
+
+L<Module::CoreList> has been upgraded from version 5.20150520 to 5.20151213.
+
+=item *
+
+L<PerlIO::scalar> has been upgraded from version 0.22 to 0.23.
+
+=item *
+
+L<POSIX> has been upgraded from version 1.53 to 1.53_01.
+
+If C<POSIX::strerror> was passed C<$!> as its argument then it accidentally
+cleared C<$!>.  This has been fixed.
+L<[perl #126229]|https://rt.perl.org/Ticket/Display.html?id=126229>
+
+=item *
+
+L<Storable> has been upgraded from version 2.53 to 2.53_01.
+
+=item *
+
+L<warnings> has been upgraded from version 1.32 to 1.34.
+
+The C<warnings::enabled> example now actually uses C<warnings::enabled>.
+L<[perl #126051]|https://rt.perl.org/Ticket/Display.html?id=126051>
+
+=item *
+
+L<Win32> has been upgraded from version 0.51 to 0.52.
+
+This has been updated for Windows 8.1, 10 and 2012 R2 Server.
+
+=back
+
+=head1 Documentation
+
+=head2 Changes to Existing Documentation
+
+=head3 L<perltie>
+
+=over 4
+
+=item *
+
+The usage of C<FIRSTKEY> and C<NEXTKEY> has been clarified.
+
+=back
+
+=head3 L<perlvar>
+
+=over 4
+
+=item *
+
+The specific true value of C<$!{E...}> is now documented, noting that it is
+subject to change and not guaranteed.
+
+=back
+
+=head1 Diagnostics
+
+The following additions or changes have been made to diagnostic output,
+including warnings and fatal error messages.  For the complete list of
+diagnostic messages, see L<perldiag>.
+
+=head2 Changes to Existing Diagnostics
+
+=over 4
+
+=item *
+
+The C<printf> and C<sprintf> builtins are now more careful about the warnings
+they emit: argument reordering now disables the "redundant argument" warning in
+all cases.
+L<[perl #125469]|https://rt.perl.org/Ticket/Display.html?id=125469>
+
+=back
+
+=head1 Configuration and Compilation
+
+=over 4
+
+=item *
+
+Using the C<NO_HASH_SEED> define in combination with the default hash algorithm
+C<PERL_HASH_FUNC_ONE_AT_A_TIME_HARD> resulted in a fatal error while compiling
+the interpreter, since Perl 5.17.10.  This has been fixed.
+
+=item *
+
+Configuring with ccflags containing quotes (e.g.
+C<< -Accflags='-DAPPLLIB_EXP=\"/usr/libperl\"' >>) was broken in Perl 5.22.0
+but has now been fixed again.
+L<[perl #125314]|https://rt.perl.org/Ticket/Display.html?id=125314>
+
+=back
+
+=head1 Platform Support
+
+=head2 Platform-Specific Notes
+
+=over 4
+
+=item IRIX
+
+=over
+
+=item *
+
+Under some circumstances IRIX stdio fgetc() and fread() set the errno to
+C<ENOENT>, which made no sense according to either IRIX or POSIX docs.  Errno
+is now cleared in such cases.
+L<[perl #123977]|https://rt.perl.org/Ticket/Display.html?id=123977>
+
+=item *
+
+Problems when multiplying long doubles by infinity have been fixed.
+L<[perl #126396]|https://rt.perl.org/Ticket/Display.html?id=126396>
+
+=item *
+
+All tests pass now on IRIX with the default build configuration.
+
+=back
+
+=back
+
+=head1 Selected Bug Fixes
+
+=over 4
+
+=item *
+
+C<qr/(?[ () ])/> no longer segfaults, giving a syntax error message instead.
+L<[perl #125805]|https://rt.perl.org/Ticket/Display.html?id=125805>
+
+=item *
+
+Regular expression possessive quantifier Perl 5.20 regression now fixed.
+C<qr/>I<PAT>C<{>I<min>,I<max>C<}+>C</> is supposed to behave identically to
+C<qr/(?E<gt>>I<PAT>C<{>I<min>,I<max>C<})/>.  Since Perl 5.20, this didn't work
+if I<min> and I<max> were equal.
+L<[perl #125825]|https://rt.perl.org/Ticket/Display.html?id=125825>
+
+=item *
+
+Certain syntax errors in
+L<perlrecharclass/Extended Bracketed Character Classes> caused panics instead
+of the proper error message.  This has now been fixed.
+L<[perl #126481]|https://rt.perl.org/Ticket/Display.html?id=126481>
+
+=item *
+
+C<< BEGIN <> >> no longer segfaults and properly produces an error message.
+L<[perl #125341]|https://rt.perl.org/Ticket/Display.html?id=125341>
+
+=item *
+
+A regression from Perl 5.20 has been fixed, in which some syntax errors in
+L<C<(?[...])>|perlrecharclass/Extended Bracketed Character Classes> constructs
+within regular expression patterns could cause a segfault instead of a proper
+error message.
+L<[perl #126180]|https://rt.perl.org/Ticket/Display.html?id=126180>
+
+=item *
+
+Another problem with
+L<C<(?[...])>|perlrecharclass/Extended Bracketed Character Classes>
+constructs has been fixed wherein things like C<\c]> could cause panics.
+L<[perl #126181]|https://rt.perl.org/Ticket/Display.html?id=126181>
+
+=item *
+
+In Perl 5.22.0, the logic changed when parsing a numeric parameter to the -C
+option, such that the successfully parsed number was not saved as the option
+value if it parsed to the end of the argument.
+L<[perl #125381]|https://rt.perl.org/Ticket/Display.html?id=125381>
+
+=item *
+
+Warning fatality is now ignored when rewinding the stack.  This prevents
+infinite recursion when the now fatal error also causes rewinding of the stack.
+L<[perl #123398]|https://rt.perl.org/Ticket/Display.html?id=123398>
+
+=item *
+
+A crash with C<< %::=(); J->${\"::"} >> has been fixed.
+L<[perl #125541]|https://rt.perl.org/Ticket/Display.html?id=125541>
+
+=item *
+
+Nested quantifiers such as C</.{1}??/> should cause perl to throw a fatal
+error, but were being silently accepted since Perl 5.20.0.  This has been
+fixed.
+L<[perl #126253]|https://rt.perl.org/Ticket/Display.html?id=126253>
+
+=item *
+
+Regular expression sequences such as C</(?i/> (and similarly with other
+recognized flags or combination of flags) should cause perl to throw a fatal
+error, but were being silently accepted since Perl 5.18.0.  This has been
+fixed.
+L<[perl #126178]|https://rt.perl.org/Ticket/Display.html?id=126178>
+
+=item *
+
+A bug in hexadecimal floating point literal support meant that high-order bits
+could be lost in cases where mantissa overflow was caused by too many trailing
+zeros in the fractional part.  This has been fixed.
+L<[perl #126582]|https://rt.perl.org/Ticket/Display.html?id=126582>
+
+=item *
+
+Another hexadecimal floating point bug, causing low-order bits to be lost in
+cases where the last hexadecimal digit of the mantissa has bits straddling the
+limit of the number of bits allowed for the mantissa, has also been fixed.
+L<[perl #126586]|https://rt.perl.org/Ticket/Display.html?id=126586>
+
+=item *
+
+Further hexadecimal floating point bugs have been fixed: In some circumstances,
+the C<%a> format specifier could variously lose the sign of the negative zero,
+fail to display zeros after the radix point with the requested precision, or
+even lose the radix point after the leftmost hexadecimal digit completely.
+
+=item *
+
+A crash caused by incomplete expressions within C<< /(?[ ])/ >> (e.g.
+C<< /(?[[0]+()+])/ >>) has been fixed.
+L<[perl #126615]|https://rt.perl.org/Ticket/Display.html?id=126615>
+
+=back
+
+=head1 Acknowledgements
+
+Perl 5.22.1 represents approximately 6 months of development since Perl 5.22.0
+and contains approximately 19,000 lines of changes across 130 files from 27
+authors.
+
+Excluding auto-generated files, documentation and release tools, there were
+approximately 1,700 lines of changes to 44 .pm, .t, .c and .h files.
+
+Perl continues to flourish into its third decade thanks to a vibrant community
+of users and developers.  The following people are known to have contributed
+the improvements that became Perl 5.22.1:
+
+Aaron Crane, Abigail, Andy Broad, Aristotle Pagaltzis, Chase Whitener, Chris
+'BinGOs' Williams, Craig A. Berry, Daniel Dragan, David Mitchell, Father
+Chrysostomos, Herbert Breunung, Hugo van der Sanden, James E Keenan, Jan
+Dubois, Jarkko Hietaniemi, Karen Etheridge, Karl Williamson, Lukas Mai, Matthew
+Horsfall, Peter Martini, Rafael Garcia-Suarez, Ricardo Signes, Shlomi Fish,
+Sisyphus, Steve Hay, Tony Cook, Victor Adam.
+
+The list above is almost certainly incomplete as it is automatically generated
+from version control history.  In particular, it does not include the names of
+the (very much appreciated) contributors who reported issues to the Perl bug
+tracker.
+
+Many of the changes included in this version originated in the CPAN modules
+included in Perl's core.  We're grateful to the entire CPAN community for
+helping Perl to flourish.
+
+For a more complete list of all of Perl's historical contributors, please see
+the F<AUTHORS> file in the Perl source distribution.
+
+=head1 Reporting Bugs
+
+If you find what you think is a bug, you might check the articles recently
+posted to the comp.lang.perl.misc newsgroup and the perl bug database at
+https://rt.perl.org/ .  There may also be information at
+http://www.perl.org/ , the Perl Home Page.
+
+If you believe you have an unreported bug, please run the L<perlbug> program
+included with your release.  Be sure to trim your bug down to a tiny but
+sufficient test case.  Your bug report, along with the output of C<perl -V>,
+will be sent off to perlbug@perl.org to be analysed by the Perl porting team.
+
+If the bug you are reporting has security implications, which make it
+inappropriate to send to a publicly archived mailing list, then please send it
+to perl5-security-report@perl.org.  This points to a closed subscription
+unarchived mailing list, which includes all the core committers, who will be
+able to help assess the impact of issues, figure out a resolution, and help
+co-ordinate the release of patches to mitigate or fix the problem across all
+platforms on which Perl is supported.  Please only use this address for
+security issues in the Perl core, not for modules independently distributed on
+CPAN.
+
+=head1 SEE ALSO
+
+The F<Changes> file for an explanation of how to view exhaustive details on
+what changed.
+
+The F<INSTALL> file for how to build Perl.
+
+The F<README> file for general stuff.
+
+The F<Artistic> and F<Copying> files for copyright information.
+
+=cut
diff --git a/lib/5.24.1/pod/perl5222delta.pod b/lib/5.24.1/pod/perl5222delta.pod
new file mode 100644
index 00000000..034d5bc4
--- /dev/null
+++ b/lib/5.24.1/pod/perl5222delta.pod
@@ -0,0 +1,386 @@
+=encoding utf8
+
+=head1 NAME
+
+perl5222delta - what is new for perl v5.22.2
+
+=head1 DESCRIPTION
+
+This document describes differences between the 5.22.1 release and the 5.22.2
+release.
+
+If you are upgrading from an earlier release such as 5.22.0, first read
+L<perl5221delta>, which describes differences between 5.22.0 and 5.22.1.
+
+=head1 Security
+
+=head2 Fix out of boundary access in Win32 path handling
+
+This is CVE-2015-8608.  For more information see
+L<[perl #126755]|https://rt.perl.org/Ticket/Display.html?id=126755>.
+
+=head2 Fix loss of taint in C<canonpath()>
+
+This is CVE-2015-8607.  For more information see
+L<[perl #126862]|https://rt.perl.org/Ticket/Display.html?id=126862>.
+
+=head2 Set proper umask before calling C<mkstemp(3)>
+
+In 5.22.0 perl started setting umask to C<0600> before calling C<mkstemp(3)>
+and restoring it afterwards.  This wrongfully tells C<open(2)> to strip the
+owner read and write bits from the given mode before applying it, rather than
+the intended negation of leaving only those bits in place.
+
+Systems that use mode C<0666> in C<mkstemp(3)> (like old versions of glibc)
+create a file with permissions C<0066>, leaving world read and write permissions
+regardless of current umask.
+
+This has been fixed by using umask C<0177> instead.
+
+L<[perl #127322]|https://rt.perl.org/Ticket/Display.html?id=127322>
+
+=head2 Avoid accessing uninitialized memory in Win32 C<crypt()>
+
+Validation that will detect both a short salt and invalid characters in the
+salt has been added.
+
+L<[perl #126922]|https://rt.perl.org/Ticket/Display.html?id=126922>
+
+=head2 Remove duplicate environment variables from C<environ>
+
+Previously, if an environment variable appeared more than once in C<environ[]>,
+L<C<%ENV>|perlvar/%ENV> would contain the last entry for that name, while a
+typical C<getenv()> would return the first entry.  We now make sure C<%ENV>
+contains the same as what C<getenv()> returns.
+
+Secondly, we now remove duplicates from C<environ[]>, so if a setting with that
+name is set in C<%ENV> we won't pass an unsafe value to a child process.
+
+This is CVE-2016-2381.
+
+=head1 Incompatible Changes
+
+There are no changes intentionally incompatible with Perl 5.22.1.  If any
+exist, they are bugs, and we request that you submit a report.  See
+L</Reporting Bugs> below.
+
+=head1 Modules and Pragmata
+
+=head2 Updated Modules and Pragmata
+
+=over 4
+
+=item *
+
+L<File::Spec> has been upgraded from version 3.56 to 3.56_01.
+
+C<canonpath()> now preserves taint.  See L</"Fix loss of taint in
+C<canonpath()>">.
+
+=item *
+
+L<Module::CoreList> has been upgraded from version 5.20151213 to 5.20160429.
+
+The version number of L<Digest::SHA> listed for Perl 5.18.4 was wrong and has
+been corrected.  Likewise for the version number of L<Config> in 5.18.3 and
+5.18.4.
+L<[perl #127624]|https://rt.perl.org/Ticket/Display.html?id=127624>
+
+=back
+
+=head1 Documentation
+
+=head2 Changes to Existing Documentation
+
+=head3 L<perldiag>
+
+=over 4
+
+=item *
+
+The explanation of the warning "unable to close filehandle %s properly: %s"
+which can occur when doing an implicit close of a filehandle has been expanded
+and improved.
+
+=back
+
+=head3 L<perlfunc>
+
+=over 4
+
+=item *
+
+The documentation of L<C<hex()>|perlfunc/hex> has been revised to clarify valid
+inputs.
+
+=back
+
+=head1 Configuration and Compilation
+
+=over 4
+
+=item *
+
+Dtrace builds now build successfully on systems with a newer dtrace that
+require an input object file that uses the probes in the F<.d> file.
+
+Previously the probe would fail and cause a build failure.
+
+L<[perl #122287]|https://rt.perl.org/Ticket/Display.html?id=122287>
+
+=item *
+
+F<Configure> no longer probes for F<libnm> by default.  Originally this was the
+"New Math" library, but the name has been re-used by the GNOME NetworkManager.
+
+L<[perl #127131]|https://rt.perl.org/Ticket/Display.html?id=127131>
+
+=item *
+
+F<Configure> now knows about gcc 5.
+
+=item *
+
+Compiling perl with B<-DPERL_MEM_LOG> now works again.
+
+=back
+
+=head1 Platform Support
+
+=head2 Platform-Specific Notes
+
+=over 4
+
+=item Darwin
+
+Compiling perl with B<-Dusecbacktrace> on Darwin now works again.
+
+L<[perl #127764]|https://rt.perl.org/Ticket/Display.html?id=127764>
+
+=item OS X/Darwin
+
+Builds with both B<-DDEBUGGING> and threading enabled would fail with a "panic:
+free from wrong pool" error when built or tested from Terminal on OS X.  This
+was caused by perl's internal management of the environment conflicting with an
+atfork handler using the libc C<setenv()> function to update the environment.
+
+Perl now uses C<setenv()>/C<unsetenv()> to update the environment on OS X.
+
+L<[perl #126240]|https://rt.perl.org/Ticket/Display.html?id=126240>
+
+=item ppc64el
+
+The floating point format of ppc64el (Debian naming for little-endian PowerPC)
+is now detected correctly.
+
+=item Tru64
+
+A test failure in F<t/porting/extrefs.t> has been fixed.
+
+=back
+
+=head1 Internal Changes
+
+=over 4
+
+=item *
+
+An unwarranted assertion in C<Perl_newATTRSUB_x()> has been removed.  If a stub
+subroutine definition with a prototype has been seen, then any subsequent stub
+(or definition) of the same subroutine with an attribute was causing an
+assertion failure because of a null pointer.
+
+L<[perl #126845]|https://rt.perl.org/Ticket/Display.html?id=126845>
+
+=back
+
+=head1 Selected Bug Fixes
+
+=over 4
+
+=item *
+
+Calls to the placeholder C<&PL_sv_yes> used internally when an C<import()> or
+C<unimport()> method isn't found now correctly handle scalar context.
+L<[perl #126042]|https://rt.perl.org/Ticket/Display.html?id=126042>
+
+=item *
+
+The L<C<pipe()>|perlfunc/pipe> operator would assert for C<DEBUGGING> builds
+instead of producing the correct error message.  The condition asserted on is
+detected and reported on correctly without the assertions, so the assertions
+were removed.
+L<[perl #126480]|https://rt.perl.org/Ticket/Display.html?id=126480>
+
+=item *
+
+In some cases, failing to parse a here-doc would attempt to use freed memory.
+This was caused by a pointer not being restored correctly.
+L<[perl #126443]|https://rt.perl.org/Ticket/Display.html?id=126443>
+
+=item *
+
+Perl now reports more context when it sees an array where it expects to see an
+operator, and avoids an assertion failure.
+L<[perl #123737]|https://rt.perl.org/Ticket/Display.html?id=123737>
+
+=item *
+
+If a here-doc was found while parsing another operator, the parser had already
+read end of file, and the here-doc was not terminated, perl could produce an
+assertion or a segmentation fault.  This now reliably complains about the
+unterminated here-doc.
+L<[perl #125540]|https://rt.perl.org/Ticket/Display.html?id=125540>
+
+=item *
+
+Parsing beyond the end of the buffer when processing a C<#line> directive with
+no filename is now avoided.
+L<[perl #127334]|https://rt.perl.org/Ticket/Display.html?id=127334>
+
+=item *
+
+Perl 5.22.0 added support for the C99 hexadecimal floating point notation, but
+sometimes misparsed hex floats.  This has been fixed.
+L<[perl #127183]|https://rt.perl.org/Ticket/Display.html?id=127183>
+
+=item *
+
+Certain regex patterns involving a complemented posix class in an inverted
+bracketed character class, and matching something else optionally would
+improperly fail to match.  An example of one that could fail is
+C<qr/_?[^\Wbar]\x{100}/>.  This has been fixed.
+L<[perl #127537]|https://rt.perl.org/Ticket/Display.html?id=127537>
+
+=item *
+
+Fixed an issue with L<C<pack()>|perlfunc/pack> where C<< pack "H" >> (and
+C<< pack "h" >>) could read past the source when given a non-utf8 source and a
+utf8 target.
+L<[perl #126325]|https://rt.perl.org/Ticket/Display.html?id=126325>
+
+=item *
+
+Fixed some cases where perl would abort due to a segmentation fault, or a
+C-level assert.
+L<[perl #126193]|https://rt.perl.org/Ticket/Display.html?id=126193>
+L<[perl #126257]|https://rt.perl.org/Ticket/Display.html?id=126257>
+L<[perl #126258]|https://rt.perl.org/Ticket/Display.html?id=126258>
+L<[perl #126405]|https://rt.perl.org/Ticket/Display.html?id=126405>
+L<[perl #126602]|https://rt.perl.org/Ticket/Display.html?id=126602>
+L<[perl #127773]|https://rt.perl.org/Ticket/Display.html?id=127773>
+L<[perl #127786]|https://rt.perl.org/Ticket/Display.html?id=127786>
+
+=item *
+
+A memory leak when setting C<$ENV{foo}> on Darwin has been fixed.
+L<[perl #126240]|https://rt.perl.org/Ticket/Display.html?id=126240>
+
+=item *
+
+Perl now correctly raises an error when trying to compile patterns with
+unterminated character classes while there are trailing backslashes.
+L<[perl #126141]|https://rt.perl.org/Ticket/Display.html?id=126141>
+
+=item *
+
+C<NOTHING> regops and C<EXACTFU_SS> regops in C<make_trie()> are now handled
+properly.
+L<[perl #126206]|https://rt.perl.org/Ticket/Display.html?id=126206>
+
+=item *
+
+Perl now only tests C<semctl()> if we have everything needed to use it.  In
+FreeBSD the C<semctl()> entry point may exist, but it can be disabled by
+policy.
+L<[perl #127533]|https://rt.perl.org/Ticket/Display.html?id=127533>
+
+=item *
+
+A regression that allowed undeclared barewords as hash keys to work despite
+strictures has been fixed.
+L<[perl #126981]|https://rt.perl.org/Ticket/Display.html?id=126981>
+
+=item *
+
+As an optimization (introduced in Perl 5.20.0), L<C<uc()>|perlfunc/uc>,
+L<C<lc()>|perlfunc/lc>, L<C<ucfirst()>|perlfunc/ucfirst> and
+L<C<lcfirst()>|perlfunc/lcfirst> sometimes modify their argument in-place
+rather than returning a modified copy.  The criteria for this optimization has
+been made stricter to avoid these functions accidentally modifying in-place
+when they should not, which has been happening in some cases, e.g. in
+L<List::Util>.
+
+=item *
+
+Excessive memory usage in the compilation of some regular expressions involving
+non-ASCII characters has been reduced.  A more complete fix is forthcoming in
+Perl 5.24.0.
+
+=back
+
+=head1 Acknowledgements
+
+Perl 5.22.2 represents approximately 5 months of development since Perl 5.22.1
+and contains approximately 3,000 lines of changes across 110 files from 24
+authors.
+
+Excluding auto-generated files, documentation and release tools, there were
+approximately 1,500 lines of changes to 52 .pm, .t, .c and .h files.
+
+Perl continues to flourish into its third decade thanks to a vibrant community
+of users and developers.  The following people are known to have contributed
+the improvements that became Perl 5.22.2:
+
+Aaron Crane, Abigail, Andreas König, Aristotle Pagaltzis, Chris 'BinGOs'
+Williams, Craig A. Berry, Dagfinn Ilmari Mannsåker, David Golden, David
+Mitchell, H.Merijn Brand, James E Keenan, Jarkko Hietaniemi, Karen Etheridge,
+Karl Williamson, Matthew Horsfall, Niko Tyni, Ricardo Signes, Sawyer X, Stevan
+Little, Steve Hay, Todd Rinaldo, Tony Cook, Vladimir Timofeev, Yves Orton.
+
+The list above is almost certainly incomplete as it is automatically generated
+from version control history.  In particular, it does not include the names of
+the (very much appreciated) contributors who reported issues to the Perl bug
+tracker.
+
+Many of the changes included in this version originated in the CPAN modules
+included in Perl's core.  We're grateful to the entire CPAN community for
+helping Perl to flourish.
+
+For a more complete list of all of Perl's historical contributors, please see
+the F<AUTHORS> file in the Perl source distribution.
+
+=head1 Reporting Bugs
+
+If you find what you think is a bug, you might check the articles recently
+posted to the comp.lang.perl.misc newsgroup and the perl bug database at
+https://rt.perl.org/ .  There may also be information at http://www.perl.org/ ,
+the Perl Home Page.
+
+If you believe you have an unreported bug, please run the L<perlbug> program
+included with your release.  Be sure to trim your bug down to a tiny but
+sufficient test case.  Your bug report, along with the output of C<perl -V>,
+will be sent off to perlbug@perl.org to be analysed by the Perl porting team.
+
+If the bug you are reporting has security implications, which make it
+inappropriate to send to a publicly archived mailing list, then please send it
+to perl5-security-report@perl.org.  This points to a closed subscription
+unarchived mailing list, which includes all the core committers, who will be
+able to help assess the impact of issues, figure out a resolution, and help
+co-ordinate the release of patches to mitigate or fix the problem across all
+platforms on which Perl is supported.  Please only use this address for
+security issues in the Perl core, not for modules independently distributed on
+CPAN.
+
+=head1 SEE ALSO
+
+The F<Changes> file for an explanation of how to view exhaustive details on
+what changed.
+
+The F<INSTALL> file for how to build Perl.
+
+The F<README> file for general stuff.
+
+The F<Artistic> and F<Copying> files for copyright information.
+
+=cut
diff --git a/lib/5.24.1/pod/perl5240delta.pod b/lib/5.24.1/pod/perl5240delta.pod
new file mode 100644
index 00000000..0b0e8bc7
--- /dev/null
+++ b/lib/5.24.1/pod/perl5240delta.pod
@@ -0,0 +1,2254 @@
+=encoding utf8
+
+=head1 NAME
+
+perl5240delta - what is new for perl v5.24.0
+
+=head1 DESCRIPTION
+
+This document describes the differences between the 5.22.0 release and the
+5.24.0 release.
+
+=head1 Core Enhancements
+
+=head2 Postfix dereferencing is no longer experimental
+
+Using the C<postderef> and C<postderef_qq> features no longer emits a
+warning. Existing code that disables the C<experimental::postderef> warning
+category that they previously used will continue to work. The C<postderef>
+feature has no effect; all Perl code can use postfix dereferencing,
+regardless of what feature declarations are in scope. The C<5.24> feature
+bundle now includes the C<postderef_qq> feature.
+
+=head2 Unicode 8.0 is now supported
+
+For details on what is in this release, see
+L<http://www.unicode.org/versions/Unicode8.0.0/>.
+
+=head2 perl will now croak when closing an in-place output file fails
+
+Until now, failure to close the output file for an in-place edit was not
+detected, meaning that the input file could be clobbered without the edit being
+successfully completed.  Now, when the output file cannot be closed
+successfully, an exception is raised.
+
+=head2 New C<\b{lb}> boundary in regular expressions
+
+C<lb> stands for Line Break.  It is a Unicode property
+that determines where a line of text is suitable to break (typically so
+that it can be output without overflowing the available horizontal
+space).  This capability has long been furnished by the
+L<Unicode::LineBreak> module, but now a light-weight, non-customizable
+version that is suitable for many purposes is in core Perl.
+
+=head2 C<qr/(?[ ])/> now works in UTF-8 locales
+
+L<Extended Bracketed Character Classes|perlrecharclass/Extended Bracketed Character Classes>
+now will successfully compile when S<C<use locale>> is in effect.  The compiled
+pattern will use standard Unicode rules.  If the runtime locale is not a
+UTF-8 one, a warning is raised and standard Unicode rules are used
+anyway.  No tainting is done since the outcome does not actually depend
+on the locale.
+
+=head2 Integer shift (C<< << >> and C<< >> >>) now more explicitly defined
+
+Negative shifts are reverse shifts: left shift becomes right shift,
+and right shift becomes left shift.
+
+Shifting by the number of bits in a native integer (or more) is zero,
+except when the "overshift" is right shifting a negative value under
+C<use integer>, in which case the result is -1 (arithmetic shift).
+
+Until now negative shifting and overshifting have been undefined
+because they have relied on whatever the C implementation happens
+to do.  For example, for the overshift a common C behavior is
+"modulo shift":
+
+  1 >> 64 == 1 >> (64 % 64) == 1 >> 0 == 1  # Common C behavior.
+
+  # And the same for <<, while Perl now produces 0 for both.
+
+Now these behaviors are well-defined under Perl, regardless of what
+the underlying C implementation does.  Note, however, that you are still
+constrained by the native integer width: you need to know how far left you
+can go.  You can use for example:
+
+  use Config;
+  my $wordbits = $Config{uvsize} * 8;  # Or $Config{uvsize} << 3.
+
+If you need a more bits on the left shift, you can use for example
+the C<bigint> pragma, or the C<Bit::Vector> module from CPAN.
+
+=head2 printf and sprintf now allow reordered precision arguments
+
+That is, C<< sprintf '|%.*2$d|', 2, 3 >> now returns C<|002|>. This extends
+the existing reordering mechanism (which allows reordering for arguments
+that are used as format fields, widths, and vector separators).
+
+=head2 More fields provided to C<sigaction> callback with C<SA_SIGINFO>
+
+When passing the C<SA_SIGINFO> flag to L<sigaction|POSIX/sigaction>, the
+C<errno>, C<status>, C<uid>, C<pid>, C<addr> and C<band> fields are now
+included in the hash passed to the handler, if supported by the
+platform.
+
+=head2 Hashbang redirection to Perl 6
+
+Previously perl would redirect to another interpreter if it found a
+hashbang path unless the path contains "perl" (see L<perlrun>). To improve
+compatability with Perl 6 this behavior has been extended to also redirect
+if "perl" is followed by "6".
+
+=head1 Security
+
+=head2 Set proper umask before calling C<mkstemp(3)>
+
+In 5.22 perl started setting umask to 0600 before calling C<mkstemp(3)>
+and restoring it afterwards. This wrongfully tells C<open(2)> to strip
+the owner read and write bits from the given mode before applying it,
+rather than the intended negation of leaving only those bits in place.
+
+Systems that use mode 0666 in C<mkstemp(3)> (like old versions of
+glibc) create a file with permissions 0066, leaving world read and
+write permissions regardless of current umask.
+
+This has been fixed by using umask 0177 instead. [perl #127322]
+
+=head2 Fix out of boundary access in Win32 path handling
+
+This is CVE-2015-8608.  For more information see
+L<[perl #126755]|https://rt.perl.org/Ticket/Display.html?id=126755>
+
+=head2 Fix loss of taint in canonpath
+
+This is CVE-2015-8607.  For more information see
+L<[perl #126862]|https://rt.perl.org/Ticket/Display.html?id=126862>
+
+=head2 Avoid accessing uninitialized memory in win32 C<crypt()>
+
+Added validation that will detect both a short salt and invalid characters
+in the salt.
+L<[perl #126922]|https://rt.perl.org/Ticket/Display.html?id=126922>
+
+=head2 Remove duplicate environment variables from C<environ>
+
+Previously, if an environment variable appeared more than once in
+C<environ[]>, C<%ENV> would contain the last entry for that name,
+while a typical C<getenv()> would return the first entry. We now
+make sure C<%ENV> contains the same as what C<getenv> returns.
+
+Second, we remove duplicates from C<environ[]>, so if a setting
+with that name is set in C<%ENV>, we won't pass an unsafe value
+to a child process.
+
+[CVE-2016-2381]
+
+=head1 Incompatible Changes
+
+=head2 The C<autoderef> feature has been removed
+
+The experimental C<autoderef> feature (which allowed calling C<push>,
+C<pop>, C<shift>, C<unshift>, C<splice>, C<keys>, C<values>, and C<each> on
+a scalar argument) has been deemed unsuccessful. It has now been removed;
+trying to use the feature (or to disable the C<experimental::autoderef>
+warning it previously triggered) now yields an exception.
+
+=head2 Lexical $_ has been removed
+
+C<my $_> was introduced in Perl 5.10, and subsequently caused much confusion
+with no obvious solution.  In Perl 5.18.0, it was made experimental on the
+theory that it would either be removed or redesigned in a less confusing (but
+backward-incompatible) way.  Over the following years, no alternatives were
+proposed.  The feature has now been removed and will fail to compile.
+
+=head2 C<qr/\b{wb}/> is now tailored to Perl expectations
+
+This is now more suited to be a drop-in replacement for plain C<\b>, but
+giving better results for parsing natural language.  Previously it
+strictly followed the current Unicode rules which calls for it to match
+between each white space character.  Now it doesn't generally match
+within spans of white space, behaving like C<\b> does.  See
+L<perlrebackslash/\b{wb}>
+
+=head2 Regular expression compilation errors
+
+Some regular expression patterns that had runtime errors now
+don't compile at all.
+
+Almost all Unicode properties using the C<\p{}> and C<\P{}> regular
+expression pattern constructs are now checked for validity at pattern
+compilation time, and invalid ones will cause the program to not
+compile.  In earlier releases, this check was often deferred until run
+time.  Whenever an error check is moved from run- to compile time,
+erroneous code is caught 100% of the time, whereas before it would only
+get caught if and when the offending portion actually gets executed,
+which for unreachable code might be never.
+
+=head2 C<qr/\N{}/> now disallowed under C<use re "strict">
+
+An empty C<\N{}> makes no sense, but for backwards compatibility is
+accepted as doing nothing, though a deprecation warning is raised by
+default.  But now this is a fatal error under the experimental feature
+L<re/'strict' mode>.
+
+=head2 Nested declarations are now disallowed
+
+A C<my>, C<our>, or C<state> declaration is no longer allowed inside
+of another C<my>, C<our>, or C<state> declaration.
+
+For example, these are now fatal:
+
+   my ($x, my($y));
+   our (my $x);
+
+L<[perl #125587]|https://rt.perl.org/Ticket/Display.html?id=125587>
+
+L<[perl #121058]|https://rt.perl.org/Ticket/Display.html?id=121058>
+
+=head2 The C</\C/> character class has been removed.
+
+This regular expression character class was deprecated in v5.20.0 and has
+produced a deprecation warning since v5.22.0. It is now a compile-time
+error. If you need to examine the individual bytes that make up a
+UTF8-encoded character, then use C<utf8::encode()> on the string (or a
+copy) first.
+
+=head2 C<chdir('')> no longer chdirs home
+
+Using C<chdir('')> or C<chdir(undef)> to chdir home has been deprecated since
+perl v5.8, and will now fail.  Use C<chdir()> instead.
+
+=head2 ASCII characters in variable names must now be all visible
+
+It was legal until now on ASCII platforms for variable names to contain
+non-graphical ASCII control characters (ordinals 0 through 31, and 127,
+which are the C0 controls and C<DELETE>).  This usage has been
+deprecated since v5.20, and as of now causes a syntax error.  The
+variables these names referred to are special, reserved by Perl for
+whatever use it may choose, now, or in the future.  Each such variable
+has an alternative way of spelling it.  Instead of the single
+non-graphic control character, a two character sequence beginning with a
+caret is used, like C<$^]> and C<${^GLOBAL_PHASE}>.  Details are at
+L<perlvar>.   It remains legal, though unwise and deprecated (raising a
+deprecation warning), to use certain non-graphic non-ASCII characters in
+variables names when not under S<C<use utf8>>.  No code should do this,
+as all such variables are reserved by Perl, and Perl doesn't currently
+define any of them (but could at any time, without notice).
+
+=head2 An off by one issue in C<$Carp::MaxArgNums> has been fixed
+
+C<$Carp::MaxArgNums> is supposed to be the number of arguments to display.
+Prior to this version, it was instead showing C<$Carp::MaxArgNums> + 1 arguments,
+contrary to the documentation.
+
+=head2 Only blanks and tabs are now allowed within C<[...]> within C<(?[...])>.
+
+The experimental Extended Bracketed Character Classes can contain regular
+bracketed character classes within them.  These differ from regular ones in
+that white space is generally ignored, unless escaped by preceding it with a
+backslash.  The white space that is ignored is now limited to just tab C<\t>
+and SPACE characters.  Previously, it was any white space.  See
+L<perlrecharclass/Extended Bracketed Character Classes>.
+
+=head1 Deprecations
+
+=head2 Using code points above the platform's C<IV_MAX> is now deprecated
+
+Unicode defines code points in the range C<0..0x10FFFF>.  Some standards
+at one time defined them up to 2**31 - 1, but Perl has allowed them to
+be as high as anything that will fit in a word on the platform being
+used.  However, use of those above the platform's C<IV_MAX> is broken in
+some constructs, notably C<tr///>, regular expression patterns involving
+quantifiers, and in some arithmetic and comparison operations, such as
+being the upper limit of a loop.  Now the use of such code points raises
+a deprecation warning, unless that warning category is turned off.
+C<IV_MAX> is typically 2**31 -1 on 32-bit platforms, and 2**63-1 on
+64-bit ones.
+
+=head2 Doing bitwise operations on strings containing code points above
+0xFF is deprecated
+
+The string bitwise operators treat their operands as strings of bytes,
+and values beyond 0xFF are nonsensical in this context.  To operate on
+encoded bytes, first encode the strings.  To operate on code points'
+numeric values, use C<split> and C<map ord>.  In the future, this
+warning will be replaced by an exception.
+
+=head2 C<sysread()>, C<syswrite()>, C<recv()> and C<send()> are deprecated on
+:utf8 handles
+
+The C<sysread()>, C<recv()>, C<syswrite()> and C<send()> operators
+are deprecated on handles that have the C<:utf8> layer, either
+explicitly, or implicitly, eg., with the C<:encoding(UTF-16LE)> layer.
+
+Both C<sysread()> and C<recv()> currently use only the C<:utf8> flag for the
+stream, ignoring the actual layers.  Since C<sysread()> and C<recv()> do no
+UTF-8 validation they can end up creating invalidly encoded scalars.
+
+Similarly, C<syswrite()> and C<send()> use only the C<:utf8> flag, otherwise
+ignoring any layers.  If the flag is set, both write the value UTF-8
+encoded, even if the layer is some different encoding, such as the
+example above.
+
+Ideally, all of these operators would completely ignore the C<:utf8>
+state, working only with bytes, but this would result in silently
+breaking existing code.  To avoid this a future version of perl will
+throw an exception when any of C<sysread()>, C<recv()>, C<syswrite()> or C<send()>
+are called on handle with the C<:utf8> layer.
+
+=head1 Performance Enhancements
+
+=over 4
+
+=item *
+
+The overhead of scope entry and exit has been considerably reduced, so
+for example subroutine calls, loops and basic blocks are all faster now.
+This empty function call now takes about a third less time to execute:
+
+    sub f{} f();
+
+=item *
+
+Many languages, such as Chinese, are caseless.  Perl now knows about
+most common ones, and skips much of the work when
+a program tries to change case in them (like C<ucfirst()>) or match
+caselessly (C<qr//i>).  This will speed up a program, such as a web
+server, that can operate on multiple languages, while it is operating on a
+caseless one.
+
+=item *
+
+C</fixed-substr/> has been made much faster.
+
+On platforms with a libc C<memchr()> implementation which makes good use of
+underlying hardware support, patterns which include fixed substrings will now
+often be much faster; for example with glibc on a recent x86_64 CPU, this:
+
+    $s = "a" x 1000 . "wxyz";
+    $s =~ /wxyz/ for 1..30000
+
+is now about 7 times faster.  On systems with slow C<memchr()>, e.g. 32-bit ARM
+Raspberry Pi, there will be a small or little speedup.  Conversely, some
+pathological cases, such as C<"ab" x 1000 =~ /aa/> will be slower now; up to 3
+times slower on the rPi, 1.5x slower on x86_64.
+
+=item *
+
+Faster addition, subtraction and multiplication.
+
+Since 5.8.0, arithmetic became slower due to the need to support
+64-bit integers. To deal with 64-bit integers, a lot more corner
+cases need to be checked, which adds time. We now detect common
+cases where there is no need to check for those corner cases,
+and special-case them.
+
+=item *
+
+Preincrement, predecrement, postincrement, and postdecrement have been
+made faster by internally splitting the functions which handled multiple
+cases into different functions.
+
+=item *
+
+Creating Perl debugger data structures (see L<perldebguts/"Debugger Internals">)
+for XSUBs and const subs has been removed.  This removed one glob/scalar combo
+for each unique C<.c> file that XSUBs and const subs came from.  On startup
+(C<perl -e"0">) about half a dozen glob/scalar debugger combos were created.
+Loading XS modules created more glob/scalar combos.  These things were
+being created regardless of whether the perl debugger was being used,
+and despite the fact that it can't debug C code anyway
+
+=item *
+
+On Win32, C<stat>ing or C<-X>ing a path, if the file or directory does not
+exist, is now 3.5x faster than before.
+
+=item *
+
+Single arguments in list assign are now slightly faster:
+
+  ($x) = (...);
+  (...) = ($x);
+
+=item *
+
+Less peak memory is now used when compiling regular expression patterns.
+
+=back
+
+=head1 Modules and Pragmata
+
+=head2 Updated Modules and Pragmata
+
+=over
+
+=item *
+
+L<arybase> has been upgraded from version 0.10 to 0.11.
+
+=item *
+
+L<Attribute::Handlers> has been upgraded from version 0.97 to 0.99.
+
+=item *
+
+L<autodie> has been upgraded from version 2.26 to 2.29.
+
+=item *
+
+L<autouse> has been upgraded from version 1.08 to 1.11.
+
+=item *
+
+L<B> has been upgraded from version 1.58 to 1.62.
+
+=item *
+
+L<B::Deparse> has been upgraded from version 1.35 to 1.37.
+
+=item *
+
+L<base> has been upgraded from version 2.22 to 2.23.
+
+=item *
+
+L<Benchmark> has been upgraded from version 1.2 to 1.22.
+
+=item *
+
+L<bignum> has been upgraded from version 0.39 to 0.42.
+
+=item *
+
+L<bytes> has been upgraded from version 1.04 to 1.05.
+
+=item *
+
+L<Carp> has been upgraded from version 1.36 to 1.40.
+
+=item *
+
+L<Compress::Raw::Bzip2> has been upgraded from version 2.068 to 2.069.
+
+=item *
+
+L<Compress::Raw::Zlib> has been upgraded from version 2.068 to 2.069.
+
+=item *
+
+L<Config::Perl::V> has been upgraded from version 0.24 to 0.25.
+
+=item *
+
+L<CPAN::Meta> has been upgraded from version 2.150001 to 2.150005.
+
+=item *
+
+L<CPAN::Meta::Requirements> has been upgraded from version 2.132 to 2.140.
+
+=item *
+
+L<CPAN::Meta::YAML> has been upgraded from version 0.012 to 0.018.
+
+=item *
+
+L<Data::Dumper> has been upgraded from version 2.158 to 2.160.
+
+=item *
+
+L<Devel::Peek> has been upgraded from version 1.22 to 1.23.
+
+=item *
+
+L<Devel::PPPort> has been upgraded from version 3.31 to 3.32.
+
+=item *
+
+L<Dumpvalue> has been upgraded from version 1.17 to 1.18.
+
+=item *
+
+L<DynaLoader> has been upgraded from version 1.32 to 1.38.
+
+=item *
+
+L<Encode> has been upgraded from version 2.72 to 2.80.
+
+=item *
+
+L<encoding> has been upgraded from version 2.14 to 2.17.
+
+=item *
+
+L<encoding::warnings> has been upgraded from version 0.11 to 0.12.
+
+=item *
+
+L<English> has been upgraded from version 1.09 to 1.10.
+
+=item *
+
+L<Errno> has been upgraded from version 1.23 to 1.25.
+
+=item *
+
+L<experimental> has been upgraded from version 0.013 to 0.016.
+
+=item *
+
+L<ExtUtils::CBuilder> has been upgraded from version 0.280221 to 0.280225.
+
+=item *
+
+L<ExtUtils::Embed> has been upgraded from version 1.32 to 1.33.
+
+=item *
+
+L<ExtUtils::MakeMaker> has been upgraded from version 7.04_01 to 7.10_01.
+
+=item *
+
+L<ExtUtils::ParseXS> has been upgraded from version 3.28 to 3.31.
+
+=item *
+
+L<ExtUtils::Typemaps> has been upgraded from version 3.28 to 3.31.
+
+=item *
+
+L<feature> has been upgraded from version 1.40 to 1.42.
+
+=item *
+
+L<fields> has been upgraded from version 2.17 to 2.23.
+
+=item *
+
+L<File::Copy> has been upgraded from version 2.30 to 2.31.
+
+=item *
+
+L<File::Find> has been upgraded from version 1.29 to 1.34.
+
+=item *
+
+L<File::Glob> has been upgraded from version 1.24 to 1.26.
+
+=item *
+
+L<File::Path> has been upgraded from version 2.09 to 2.12_01.
+
+=item *
+
+L<File::Spec> has been upgraded from version 3.56 to 3.63.
+
+=item *
+
+L<Filter::Util::Call> has been upgraded from version 1.54 to 1.55.
+
+=item *
+
+L<Getopt::Long> has been upgraded from version 2.45 to 2.48.
+
+=item *
+
+L<Hash::Util> has been upgraded from version 0.18 to 0.19.
+
+=item *
+
+L<Hash::Util::FieldHash> has been upgraded from version 1.15 to 1.19.
+
+=item *
+
+L<HTTP::Tiny> has been upgraded from version 0.054 to 0.056.
+
+=item *
+
+L<I18N::Langinfo> has been upgraded from version 0.12 to 0.13.
+
+=item *
+
+L<if> has been upgraded from version 0.0604 to 0.0606.
+
+=item *
+
+L<IO> has been upgraded from version 1.35 to 1.36.
+
+=item *
+
+IO-Compress has been upgraded from version 2.068 to 2.069.
+
+=item *
+
+L<IPC::Open3> has been upgraded from version 1.18 to 1.20.
+
+=item *
+
+L<IPC::SysV> has been upgraded from version 2.04 to 2.06_01.
+
+=item *
+
+L<List::Util> has been upgraded from version 1.41 to 1.42_02.
+
+=item *
+
+L<locale> has been upgraded from version 1.06 to 1.08.
+
+=item *
+
+L<Locale::Codes> has been upgraded from version 3.34 to 3.37.
+
+=item *
+
+L<Math::BigInt> has been upgraded from version 1.9997 to 1.999715.
+
+=item *
+
+L<Math::BigInt::FastCalc> has been upgraded from version 0.31 to 0.40.
+
+=item *
+
+L<Math::BigRat> has been upgraded from version 0.2608 to 0.260802.
+
+=item *
+
+L<Module::CoreList> has been upgraded from version 5.20150520 to 5.20160506.
+
+=item *
+
+L<Module::Metadata> has been upgraded from version 1.000026 to 1.000031.
+
+=item *
+
+L<mro> has been upgraded from version 1.17 to 1.18.
+
+=item *
+
+L<ODBM_File> has been upgraded from version 1.12 to 1.14.
+
+=item *
+
+L<Opcode> has been upgraded from version 1.32 to 1.34.
+
+=item *
+
+L<parent> has been upgraded from version 0.232 to 0.234.
+
+=item *
+
+L<Parse::CPAN::Meta> has been upgraded from version 1.4414 to 1.4417.
+
+=item *
+
+L<Perl::OSType> has been upgraded from version 1.008 to 1.009.
+
+=item *
+
+L<perlfaq> has been upgraded from version 5.021009 to 5.021010.
+
+=item *
+
+L<PerlIO::encoding> has been upgraded from version 0.21 to 0.24.
+
+=item *
+
+L<PerlIO::mmap> has been upgraded from version 0.014 to 0.016.
+
+=item *
+
+L<PerlIO::scalar> has been upgraded from version 0.22 to 0.24.
+
+=item *
+
+L<PerlIO::via> has been upgraded from version 0.15 to 0.16.
+
+=item *
+
+podlators has been upgraded from version 2.28 to 4.07.
+
+=item *
+
+L<Pod::Functions> has been upgraded from version 1.09 to 1.10.
+
+=item *
+
+L<Pod::Perldoc> has been upgraded from version 3.25 to 3.25_02.
+
+=item *
+
+L<Pod::Simple> has been upgraded from version 3.29 to 3.32.
+
+=item *
+
+L<Pod::Usage> has been upgraded from version 1.64 to 1.68.
+
+=item *
+
+L<POSIX> has been upgraded from version 1.53 to 1.65.
+
+=item *
+
+L<Scalar::Util> has been upgraded from version 1.41 to 1.42_02.
+
+=item *
+
+L<SDBM_File> has been upgraded from version 1.13 to 1.14.
+
+=item *
+
+L<SelfLoader> has been upgraded from version 1.22 to 1.23.
+
+=item *
+
+L<Socket> has been upgraded from version 2.018 to 2.020_03.
+
+=item *
+
+L<Storable> has been upgraded from version 2.53 to 2.56.
+
+=item *
+
+L<strict> has been upgraded from version 1.09 to 1.11.
+
+=item *
+
+L<Term::ANSIColor> has been upgraded from version 4.03 to 4.04.
+
+=item *
+
+L<Term::Cap> has been upgraded from version 1.15 to 1.17.
+
+=item *
+
+L<Test> has been upgraded from version 1.26 to 1.28.
+
+=item *
+
+L<Test::Harness> has been upgraded from version 3.35 to 3.36.
+
+=item *
+
+L<Thread::Queue> has been upgraded from version 3.05 to 3.09.
+
+=item *
+
+L<threads> has been upgraded from version 2.01 to 2.07.
+
+=item *
+
+L<threads::shared> has been upgraded from version 1.48 to 1.51.
+
+=item *
+
+L<Tie::File> has been upgraded from version 1.01 to 1.02.
+
+=item *
+
+L<Tie::Scalar> has been upgraded from version 1.03 to 1.04.
+
+=item *
+
+L<Time::HiRes> has been upgraded from version 1.9726 to 1.9733.
+
+=item *
+
+L<Time::Piece> has been upgraded from version 1.29 to 1.31.
+
+=item *
+
+L<Unicode::Collate> has been upgraded from version 1.12 to 1.14.
+
+=item *
+
+L<Unicode::Normalize> has been upgraded from version 1.18 to 1.25.
+
+=item *
+
+L<Unicode::UCD> has been upgraded from version 0.61 to 0.64.
+
+=item *
+
+L<UNIVERSAL> has been upgraded from version 1.12 to 1.13.
+
+=item *
+
+L<utf8> has been upgraded from version 1.17 to 1.19.
+
+=item *
+
+L<version> has been upgraded from version 0.9909 to 0.9916.
+
+=item *
+
+L<warnings> has been upgraded from version 1.32 to 1.36.
+
+=item *
+
+L<Win32> has been upgraded from version 0.51 to 0.52.
+
+=item *
+
+L<Win32API::File> has been upgraded from version 0.1202 to 0.1203.
+
+=item *
+
+L<XS::Typemap> has been upgraded from version 0.13 to 0.14.
+
+=item *
+
+L<XSLoader> has been upgraded from version 0.20 to 0.21.
+
+=back
+
+=head1 Documentation
+
+=head2 Changes to Existing Documentation
+
+=head3 L<perlapi>
+
+=over 4
+
+=item *
+
+The process of using undocumented globals has been documented, namely, that one
+should send email to L<perl5-porters@perl.org|mailto:perl5-porters@perl.org>
+first to get the go-ahead for documenting and using an undocumented function or
+global variable.
+
+=back
+
+=head3 L<perlcall>
+
+=over 4
+
+=item *
+
+A number of cleanups have been made to perlcall, including:
+
+=over 4
+
+=item *
+
+use C<EXTEND(SP, n)> and C<PUSHs()> instead of C<XPUSHs()> where applicable
+and update prose to match
+
+=item *
+
+add POPu, POPul and POPpbytex to the "complete list of POP macros"
+and clarify the documentation for some of the existing entries, and
+a note about side-effects
+
+=item *
+
+add API documentation for POPu and POPul
+
+=item *
+
+use ERRSV more efficiently
+
+=item *
+
+approaches to thread-safety storage of SVs.
+
+=back
+
+=back
+
+=head3 L<perlfunc>
+
+=over 4
+
+=item *
+
+The documentation of C<hex> has been revised to clarify valid inputs.
+
+=item *
+
+Better explain meaning of negative PIDs in C<waitpid>.
+L<[perl #127080]|https://rt.perl.org/Ticket/Display.html?id=127080>
+
+=item *
+
+General cleanup: there's more consistency now (in POD usage, grammar, code
+examples), better practices in code examples (use of C<my>, removal of bareword
+filehandles, dropped usage of C<&> when calling subroutines, ...), etc.
+
+=back
+
+=head3 L<perlguts>
+
+=over 4
+
+=item *
+
+A new section has been added, L<perlguts/"Dynamic Scope and the Context
+Stack">, which explains how the perl context stack works.
+
+=back
+
+=head3 L<perllocale>
+
+=over 4
+
+=item *
+
+A stronger caution about using locales in threaded applications is
+given.  Locales are not thread-safe, and you can get wrong results or
+even segfaults if you use them there.
+
+=back
+
+=head3 L<perlmodlib>
+
+=over 4
+
+=item *
+
+We now recommend contacting the module-authors list or PAUSE in seeking
+guidance on the naming of modules.
+
+=back
+
+=head3 L<perlop>
+
+=over 4
+
+=item *
+
+The documentation of C<qx//> now describes how C<$?> is affected.
+
+=back
+
+=head3 L<perlpolicy>
+
+=over 4
+
+=item *
+
+This note has been added to perlpolicy:
+
+ While civility is required, kindness is encouraged; if you have any
+ doubt about whether you are being civil, simply ask yourself, "Am I
+ being kind?" and aspire to that.
+
+=back
+
+=head3 L<perlreftut>
+
+=over 4
+
+=item *
+
+Fix some examples to be L<strict> clean.
+
+=back
+
+=head3 L<perlrebackslash>
+
+=over 4
+
+=item *
+
+Clarify that in languages like Japanese and Thai, dictionary lookup
+is required to determine word boundaries.
+
+=back
+
+=head3 L<perlsub>
+
+=over 4
+
+=item *
+
+Updated to note that anonymous subroutines can have signatures.
+
+=back
+
+=head3 L<perlsyn>
+
+=over 4
+
+=item *
+
+Fixed a broken example where C<=> was used instead of
+C<==> in conditional in do/while example.
+
+=back
+
+=head3 L<perltie>
+
+=over 4
+
+=item *
+
+The usage of C<FIRSTKEY> and C<NEXTKEY> has been clarified.
+
+=back
+
+=head3 L<perlunicode>
+
+=over 4
+
+=item *
+
+Discourage use of 'In' as a prefix signifying the Unicode Block property.
+
+=back
+
+=head3 L<perlvar>
+
+=over 4
+
+=item *
+
+The documentation of C<$@> was reworded to clarify that it is not just for
+syntax errors in C<eval>.
+L<[perl #124034]|https://rt.perl.org/Ticket/Display.html?id=124034>
+
+=item *
+
+The specific true value of C<$!{E...}> is now documented, noting that it is
+subject to change and not guaranteed.
+
+=item *
+
+Use of C<$OLD_PERL_VERSION> is now discouraged.
+
+=back
+
+=head3 L<perlxs>
+
+=over 4
+
+=item *
+
+The documentation of C<PROTOTYPES> has been corrected; they are I<disabled>
+by default, not I<enabled>.
+
+=back
+
+=head1 Diagnostics
+
+The following additions or changes have been made to diagnostic output,
+including warnings and fatal error messages.  For the complete list of
+diagnostic messages, see L<perldiag>.
+
+=head2 New Diagnostics
+
+=head3 New Errors
+
+=over 4
+
+=item *
+
+L<%s must not be a named sequence in transliteration operator|perldiag/"%s must not be a named sequence in transliteration operator">
+
+=item *
+
+L<Can't find Unicode property definition "%s" in regex;|perldiag/"Can't find Unicode property definition "%s" in regex; marked by <-- HERE in m/%s/">
+
+=item *
+
+L<Can't redeclare "%s" in "%s"|perldiag/"Can't redeclare "%s" in "%s"">
+
+=item *
+
+L<Character following \p must be '{' or a single-character Unicode property name in regex;|perldiag/"Character following \%c must be '{' or a single-character Unicode property name in regex; marked by <-- HERE in m/%s/">
+
+=item *
+
+L<Empty \%c in regex; marked by E<lt>-- HERE in mE<sol>%sE<sol>
+|perldiag/"Empty \%c in regex; marked by <-- HERE in mE<sol>%sE<sol>">
+
+=item *
+
+L<Illegal user-defined property name|perldiag/"Illegal user-defined property name">
+
+=item *
+
+L<Invalid number '%s' for -C option.|perldiag/"Invalid number '%s' for -C option.">
+
+=item *
+
+L<<< Sequence (?... not terminated in regex; marked by S<<-- HERE> in mE<sol>%sE<sol>|perldiag/"Sequence (?... not terminated in regex; marked by <-- HERE in mE<sol>%sE<sol>" >>>
+
+=item *
+
+L<<< Sequence (?PE<lt>... not terminated in regex; marked by E<lt>-- HERE in mE<sol>%sE<sol>
+|perldiag/"Sequence (?PE<lt>... not terminated in regex; marked by <-- HERE in mE<sol>%sE<sol>" >>>
+
+=item *
+
+L<Sequence (?PE<gt>... not terminated in regex; marked by E<lt>-- HERE in mE<sol>%sE<sol>
+|perldiag/"Sequence (?PE<gt>... not terminated in regex; marked by <-- HERE in mE<sol>%sE<sol>">
+
+=back
+
+=head3 New Warnings
+
+=over 4
+
+=item *
+
+L<Assuming NOT a POSIX class since %s in regex; marked by E<lt>-- HERE in mE<sol>%sE<sol>|
+perldiag/Assuming NOT a POSIX class since %s in regex; marked by <-- HERE in mE<sol>%sE<sol>>
+
+=item *
+
+L<%s() is deprecated on :utf8 handles|perldiag/"%s() is deprecated on :utf8 handles">
+
+=back
+
+=head2 Changes to Existing Diagnostics
+
+=over 4
+
+=item *
+
+Accessing the C<IO> part of a glob as C<FILEHANDLE> instead of C<IO> is no
+longer deprecated.  It is discouraged to encourage uniformity (so that, for
+example, one can grep more easily) but it will not be removed.
+L<[perl #127060]|https://rt.perl.org/Ticket/Display.html?id=127060>
+
+=item *
+
+The diagnostic C<< Hexadecimal float: internal error >> has been changed to
+C<< Hexadecimal float: internal error (%s) >> to include more information.
+
+=item *
+
+L<Can't modify non-lvalue subroutine call of &%s|perldiag/"Can't modify non-lvalue subroutine call of &%s">
+
+This error now reports the name of the non-lvalue subroutine you attempted to
+use as an lvalue.
+
+=item *
+
+When running out of memory during an attempt the increase the stack
+size, previously, perl would die using the cryptic message
+C<< panic: av_extend_guts() negative count (-9223372036854775681) >>.
+This has been fixed to show the prettier message:
+L<< Out of memory during stack extend|perldiag/"Out of memory during %s extend" >>
+
+=back
+
+=head1 Configuration and Compilation
+
+=over 4
+
+=item *
+
+C<Configure> now acts as if the C<-O> option is always passed, allowing command
+line options to override saved configuration.  This should eliminate confusion
+when command line options are ignored for no obvious reason.  C<-O> is now
+permitted, but ignored.
+
+=item *
+
+Bison 3.0 is now supported.
+
+=item *
+
+F<Configure> no longer probes for F<libnm> by default.  Originally
+this was the "New Math" library, but the name has been re-used by the
+GNOME NetworkManager.
+L<[perl #127131]|https://rt.perl.org/Ticket/Display.html?id=127131>
+
+=item *
+
+Added F<Configure> probes for C<newlocale>, C<freelocale>, and C<uselocale>.
+
+=item *
+
+C<< PPPort.so/PPPort.dll >> no longer get installed, as they are
+not used by C<< PPPort.pm >>, only by its test files.
+
+=item *
+
+It is now possible to specify which compilation date to show on
+C<< perl -V >> output, by setting the macro C<< PERL_BUILD_DATE >>.
+
+=item *
+
+Using the C<NO_HASH_SEED> define in combination with the default hash algorithm
+C<PERL_HASH_FUNC_ONE_AT_A_TIME_HARD> resulted in a fatal error while compiling
+the interpreter, since Perl 5.17.10.  This has been fixed.
+
+=item *
+
+F<Configure> should handle spaces in paths a little better.
+
+=item *
+
+No longer generate EBCDIC POSIX-BC tables.  We don't believe anyone is
+using Perl and POSIX-BC at this time, and by not generating these tables
+it saves time during development, and makes the resulting tar ball smaller.
+
+=item *
+
+The GNU Make makefile for Win32 now supports parallel builds.  [perl #126632]
+
+=item *
+
+You can now build perl with MSVC++ on Win32 using GNU Make.  [perl #126632]
+
+=item *
+
+The Win32 miniperl now has a real C<getcwd> which increases build performance
+resulting in C<getcwd()> being 605x faster in Win32 miniperl.
+
+=item *
+
+Configure now takes C<-Dusequadmath> into account when calculating the
+C<alignbytes> configuration variable.  Previously the mis-calculated
+C<alignbytes> could cause alignment errors on debugging builds. [perl
+#127894]
+
+=back
+
+=head1 Testing
+
+=over 4
+
+=item *
+
+A new test (F<t/op/aassign.t>) has been added to test the list assignment operator
+C<OP_AASSIGN>.
+
+=item *
+
+Parallel building has been added to the dmake C<makefile.mk> makefile. All
+Win32 compilers are supported.
+
+=back
+
+=head1 Platform Support
+
+=head2 Platform-Specific Notes
+
+=over 4
+
+=item AmigaOS
+
+=over 4
+
+=item *
+
+The AmigaOS port has been reintegrated into the main tree, based off of
+Perl 5.22.1.
+
+=back
+
+=item Cygwin
+
+=over 4
+
+=item *
+
+Tests are more robust against unusual cygdrive prefixes.
+L<[perl #126834]|https://rt.perl.org/Ticket/Display.html?id=126834>
+
+=back
+
+=item EBCDIC
+
+=over 4
+
+=item UTF-EBCDIC extended
+
+UTF-EBCDIC is like UTF-8, but for EBCDIC platforms.  It now has been
+extended so that it can represent code points up to 2 ** 64 - 1 on
+platforms with 64-bit words.  This brings it into parity with UTF-8.
+This enhancement requires an incompatible change to the representation
+of code points in the range 2 ** 30 to 2 ** 31 -1 (the latter was the
+previous maximum representable code point).  This means that a file that
+contains one of these code points, written out with previous versions of
+perl cannot be read in, without conversion, by a perl containing this
+change.  We do not believe any such files are in existence, but if you
+do have one, submit a ticket at L<perlbug@perl.org|mailto:perlbug@perl.org>,
+and we will write a conversion script for you.
+
+=item EBCDIC C<cmp()> and C<sort()> fixed for UTF-EBCDIC strings
+
+Comparing two strings that were both encoded in UTF-8 (or more
+precisely, UTF-EBCDIC) did not work properly until now.  Since C<sort()>
+uses C<cmp()>, this fixes that as well.
+
+=item EBCDIC C<tr///> and C<y///> fixed for C<\N{}>, and C<S<use utf8>> ranges
+
+Perl v5.22 introduced the concept of portable ranges to regular
+expression patterns.  A portable range matches the same set of
+characters no matter what platform is being run on.  This concept is now
+extended to C<tr///>.  See
+C<L<trE<sol>E<sol>E<sol>|perlop/trE<sol>SEARCHLISTE<sol>REPLACEMENTLISTE<sol>cdsr>>.
+
+There were also some problems with these operations under S<C<use
+utf8>>, which are now fixed
+
+=back
+
+=item FreeBSD
+
+=over 4
+
+=item *
+
+Use the C<fdclose()> function from FreeBSD if it is available.
+L<[perl #126847]|https://rt.perl.org/Ticket/Display.html?id=126847>
+
+=back
+
+=item IRIX
+
+=over 4
+
+=item *
+
+Under some circumstances IRIX stdio C<fgetc()> and C<fread()> set the errno to
+C<ENOENT>, which made no sense according to either IRIX or POSIX docs.  Errno
+is now cleared in such cases.
+L<[perl #123977]|https://rt.perl.org/Ticket/Display.html?id=123977>
+
+=item *
+
+Problems when multiplying long doubles by infinity have been fixed.
+L<[perl #126396]|https://rt.perl.org/Ticket/Display.html?id=126396>
+
+=back
+
+=item MacOS X
+
+=over 4
+
+=item *
+
+Until now OS X builds of perl have specified a link target of 10.3 (Panther,
+2003) but have not specified a compiler target.  From now on, builds of perl on
+OS X 10.6 or later (Snow Leopard, 2008) by default capture the current OS X
+version and specify that as the explicit build target in both compiler and
+linker flags, thus preserving binary compatibility for extensions built later
+regardless of changes in OS X, SDK, or compiler and linker versions.  To
+override the default value used in the build and preserved in the flags,
+specify C<export MACOSX_DEPLOYMENT_TARGET=10.N> before configuring and building
+perl, where 10.N is the version of OS X you wish to target.  In OS X 10.5 or
+earlier there is no change to the behavior present when those systems were
+current; the link target is still OS X 10.3 and there is no explicit compiler
+target.
+
+=item *
+
+Builds with both -DDEBUGGING and threading enabled would fail with a
+"panic: free from wrong pool" error when built or tested from Terminal
+on OS X.  This was caused by perl's internal management of the
+environment conflicting with an atfork handler using the libc
+C<setenv()> function to update the environment.
+
+Perl now uses C<setenv()>/C<unsetenv()> to update the environment on OS X.
+L<[perl #126240]|https://rt.perl.org/Ticket/Display.html?id=126240>
+
+=back
+
+=item Solaris
+
+=over 4
+
+=item *
+
+All Solaris variants now build a shared libperl
+
+Solaris and variants like OpenIndiana now always build with the shared
+Perl library (Configure -Duseshrplib).  This was required for the
+OpenIndiana builds, but this has also been the setting for Oracle/Sun
+Perl builds for several years.
+
+=back
+
+=item Tru64
+
+=over 4
+
+=item *
+
+Workaround where Tru64 balks when prototypes are listed as
+C<< PERL_STATIC_INLINE >>, but where the test is build with
+C<< -DPERL_NO_INLINE_FUNCTIONS >>.
+
+=back
+
+=item VMS
+
+=over 4
+
+=item *
+
+On VMS, the math function prototypes in C<math.h> are now visible under C++.
+Now building the POSIX extension with C++ will no longer crash.
+
+=item *
+
+VMS has had C<setenv>/C<unsetenv> since v7.0 (released in 1996),
+C<Perl_vmssetenv> now always uses C<setenv>/C<unsetenv>.
+
+=item *
+
+Perl now implements its own C<killpg> by scanning for processes in the
+specified process group, which may not mean exactly the same thing as a Unix
+process group, but allows us to send a signal to a parent (or master) process
+and all of its sub-processes.  At the perl level, this means we can now send a
+negative pid like so:
+
+    kill SIGKILL, -$pid;
+
+to signal all processes in the same group as C<$pid>.
+
+=item *
+
+For those C<%ENV> elements based on the CRTL environ array, we've always
+preserved case when setting them but did look-ups only after upcasing the
+key first, which made lower- or mixed-case entries go missing. This problem
+has been corrected by making C<%ENV> elements derived from the environ array
+case-sensitive on look-up as well as case-preserving on store.
+
+=item *
+
+Environment look-ups for C<PERL5LIB> and C<PERLLIB> previously only
+considered logical names, but now consider all sources of C<%ENV> as
+determined by C<PERL_ENV_TABLES> and as documented in L<perlvms/%ENV>.
+
+=item *
+
+The minimum supported version of VMS is now v7.3-2, released in 2003.  As a
+side effect of this change, VAX is no longer supported as the terminal
+release of OpenVMS VAX was v7.3 in 2001.
+
+=back
+
+=item Win32
+
+=over 4
+
+=item *
+
+A new build option C<USE_NO_REGISTRY> has been added to the makefiles.  This
+option is off by default, meaning the default is to do Windows registry
+lookups.  This option stops Perl from looking inside the registry for anything.
+For what values are looked up in the registry see L<perlwin32>.  Internally, in
+C, the name of this option is C<WIN32_NO_REGISTRY>.
+
+=item *
+
+The behavior of Perl using C<HKEY_CURRENT_USER\Software\Perl> and
+C<HKEY_LOCAL_MACHINE\Software\Perl> to lookup certain values, including C<%ENV>
+vars starting with C<PERL> has changed.  Previously, the 2 keys were checked
+for entries at all times through the perl process's life time even if
+they did not
+exist.  For performance reasons, now, if the root key (i.e.
+C<HKEY_CURRENT_USER\Software\Perl> or C<HKEY_LOCAL_MACHINE\Software\Perl>) does
+not exist at process start time, it will not be checked again for C<%ENV>
+override entries for the remainder of the perl process's life.  This more
+closely matches Unix behavior in that the environment is copied or inherited
+on startup and changing the variable in the parent process or another process
+or editing F<.bashrc> will not change the environmental variable in other
+existing, running, processes.
+
+=item *
+
+One glob fetch was removed for each C<-X> or C<stat> call whether done from
+Perl code or internally from Perl's C code.  The glob being looked up was
+C<${^WIN32_SLOPPY_STAT}> which is a special variable.  This makes C<-X> and
+C<stat> slightly faster.
+
+=item *
+
+During miniperl's process startup, during the build process, 4 to 8 IO calls
+related to the process starting F<.pl> and the F<buildcustomize.pl> file were
+removed from the code opening and executing the first 1 or 2 F<.pl> files.
+
+=item *
+
+Builds using Microsoft Visual C++ 2003 and earlier no longer produce
+an "INTERNAL COMPILER ERROR" message.  [perl #126045]
+
+=item *
+
+Visual C++ 2013 builds will now execute on XP and higher. Previously they would
+only execute on Vista and higher.
+
+=item *
+
+You can now build perl with GNU Make and GCC.  [perl #123440]
+
+=item *
+
+C<truncate($filename, $size)> now works for files over 4GB in size.
+[perl #125347]
+
+=item *
+
+Parallel building has been added to the dmake C<makefile.mk> makefile. All
+Win32 compilers are supported.
+
+=item *
+
+Building a 64-bit perl with a 64-bit GCC but a 32-bit gmake would
+result in an invalid C<$Config{archname}> for the resulting perl.
+[perl #127584]
+
+=item *
+
+Errors set by Winsock functions are now put directly into C<$^E>, and the
+relevant C<WSAE*> error codes are now exported from the L<Errno> and L<POSIX>
+modules for testing this against.
+
+The previous behavior of putting the errors (converted to POSIX-style C<E*>
+error codes since Perl 5.20.0) into C<$!> was buggy due to the non-equivalence
+of like-named Winsock and POSIX error constants, a relationship between which
+has unfortunately been established in one way or another since Perl 5.8.0.
+
+The new behavior provides a much more robust solution for checking Winsock
+errors in portable software without accidentally matching POSIX tests that were
+intended for other OSes and may have different meanings for Winsock.
+
+The old behavior is currently retained, warts and all, for backwards
+compatibility, but users are encouraged to change any code that tests C<$!>
+against C<E*> constants for Winsock errors to instead test C<$^E> against
+C<WSAE*> constants.  After a suitable deprecation period, the old behavior may
+be removed, leaving C<$!> unchanged after Winsock function calls, to avoid any
+possible confusion over which error variable to check.
+
+=back
+
+=item ppc64el
+
+=over 4
+
+=item floating point
+
+The floating point format of ppc64el (Debian naming for little-endian
+PowerPC) is now detected correctly.
+
+=back
+
+=back
+
+=head1 Internal Changes
+
+=over 4
+
+=item *
+
+The implementation of perl's context stack system, and its internal API,
+have been heavily reworked. Note that no significant changes have been
+made to any external APIs, but XS code which relies on such internal
+details may need to be fixed. The main changes are:
+
+=over 4
+
+=item *
+
+The C<PUSHBLOCK()>, C<POPSUB()> etc. macros have been replaced with static
+inline functions such as C<cx_pushblock()>, C<cx_popsub()> etc. These use
+function args rather than implicitly relying on local vars such as
+C<gimme> and C<newsp> being available. Also their functionality has
+changed: in particular, C<cx_popblock()> no longer decrements
+C<cxstack_ix>. The ordering of the steps in the C<pp_leave*> functions
+involving C<cx_popblock()>, C<cx_popsub()> etc. has changed. See the new
+documentation, L<perlguts/"Dynamic Scope and the Context Stack">, for
+details on how to use them.
+
+=item *
+
+Various macros, which now consistently have a CX_ prefix, have been added:
+
+  CX_CUR(), CX_LEAVE_SCOPE(), CX_POP()
+
+or renamed:
+
+  CX_POP_SAVEARRAY(), CX_DEBUG(), CX_PUSHSUBST(), CX_POPSUBST()
+
+=item *
+
+C<cx_pushblock()> now saves C<PL_savestack_ix> and C<PL_tmps_floor>, so
+C<pp_enter*> and C<pp_leave*> no longer do
+
+  ENTER; SAVETMPS; ....; LEAVE
+
+=item *
+
+C<cx_popblock()> now also restores C<PL_curpm>.
+
+=item *
+
+In C<dounwind()> for every context type, the current savestack frame is
+now processed before each context is popped; formerly this was only done
+for sub-like context frames. This action has been removed from
+C<cx_popsub()> and placed into its own macro, C<CX_LEAVE_SCOPE(cx)>, which
+must be called before C<cx_popsub()> etc.
+
+C<dounwind()> now also does a C<cx_popblock()> on the last popped frame
+(formerly it only did the C<cx_popsub()> etc. actions on each frame).
+
+=item *
+
+The temps stack is now freed on scope exit; previously, temps created
+during the last statement of a block wouldn't be freed until the next
+C<nextstate> following the block (apart from an existing hack that did
+this for recursive subs in scalar context); and in something like
+C<f(g())>, the temps created by the last statement in C<g()> would
+formerly not be freed until the statement following the return from
+C<f()>.
+
+=item *
+
+Most values that were saved on the savestack on scope entry are now
+saved in suitable new fields in the context struct, and saved and
+restored directly by C<cx_pushfoo()> and C<cx_popfoo()>, which is much
+faster.
+
+=item *
+
+Various context struct fields have been added, removed or modified.
+
+=item *
+
+The handling of C<@_> in C<cx_pushsub()> and C<cx_popsub()> has been
+considerably tidied up, including removing the C<argarray> field from the
+context struct, and extracting out some common (but rarely used) code into
+a separate function, C<clear_defarray()>. Also, useful subsets of
+C<cx_popsub()> which had been unrolled in places like C<pp_goto> have been
+gathered into the new functions C<cx_popsub_args()> and
+C<cx_popsub_common()>.
+
+=item *
+
+C<pp_leavesub> and C<pp_leavesublv> now use the same function as the rest
+of the C<pp_leave*>'s to process return args.
+
+=item *
+
+C<CXp_FOR_PAD> and C<CXp_FOR_GV> flags have been added, and
+C<CXt_LOOP_FOR> has been split into C<CXt_LOOP_LIST>, C<CXt_LOOP_ARY>.
+
+=item *
+
+Some variables formerly declared by C<dMULTICALL> (but not documented) have
+been removed.
+
+=back
+
+=item *
+
+The obscure C<PL_timesbuf> variable, effectively a vestige of Perl 1, has
+been removed. It was documented as deprecated in Perl 5.20, with a statement
+that it would be removed early in the 5.21.x series; that has now finally
+happened.
+L<[perl #121351]|https://rt.perl.org/Ticket/Display.html?id=121351>
+
+=item *
+
+An unwarranted assertion in C<Perl_newATTRSUB_x()> has been removed.  If
+a stub subroutine
+definition with a prototype has been seen, then any subsequent stub (or
+definition) of the same subroutine with an attribute was causing an assertion
+failure because of a null pointer.
+L<[perl #126845]|https://rt.perl.org/Ticket/Display.html?id=126845>
+
+=item *
+
+C<::> has been replaced by C<__> in C<ExtUtils::ParseXS>, like it's done for
+parameters/return values. This is more consistent, and simplifies writing XS
+code wrapping C++ classes into a nested Perl namespace (it requires only
+a typedef for C<Foo__Bar> rather than two, one for C<Foo_Bar> and the other
+for C<Foo::Bar>).
+
+=item *
+
+The C<to_utf8_case()> function is now deprecated.  Instead use
+C<toUPPER_utf8>, C<toTITLE_utf8>, C<toLOWER_utf8>, and C<toFOLD_utf8>.
+(See L<http://nntp.perl.org/group/perl.perl5.porters/233287>.)
+
+=item *
+
+Perl core code and the threads extension have been annotated so that,
+if Perl is configured to use threads, then during compile-time clang (3.6
+or later) will warn about suspicious uses of mutexes.
+See L<http://clang.llvm.org/docs/ThreadSafetyAnalysis.html> for more
+information.
+
+=item *
+
+The C<signbit()> emulation has been enhanced.  This will help older
+and/or more exotic platforms or configurations.
+
+
+=item *
+
+Most EBCDIC-specific code in the core has been unified with non-EBCDIC
+code, to avoid repetition and make maintenance easier.
+
+=item *
+
+MSWin32 code for C<$^X> has been moved out of the F<win32> directory to
+F<caretx.c>, where other operating systems set that variable.
+
+=item *
+
+C<< sv_ref() >> is now part of the API.
+
+=item *
+
+L<perlapi/sv_backoff> had its return type changed from C<int> to C<void>.  It
+previously has always returned C<0> since Perl 5.000 stable but that was
+undocumented.  Although C<sv_backoff> is marked as public API, XS code is not
+expected to be impacted since the proper API call would be through public API
+C<sv_setsv(sv, &PL_sv_undef)>, or quasi-public C<SvOOK_off>, or non-public
+C<SvOK_off> calls, and the return value of C<sv_backoff> was previously a
+meaningless constant that can be rewritten as C<(sv_backoff(sv),0)>.
+
+=item *
+
+The C<EXTEND> and C<MEXTEND> macros have been improved to avoid various issues
+with integer truncation and wrapping.  In particular, some casts formerly used
+within the macros have been removed.  This means for example that passing an
+unsigned C<nitems> argument is likely to raise a compiler warning now
+(it's always been documented to require a signed value; formerly int,
+lately SSize_t).
+
+=item *
+
+C<PL_sawalias> and C<GPf_ALIASED_SV> have been removed.
+
+=item *
+
+C<GvASSIGN_GENERATION> and C<GvASSIGN_GENERATION_set> have been removed.
+
+=back
+
+=head1 Selected Bug Fixes
+
+=over 4
+
+=item *
+
+It now works properly to specify a user-defined property, such as
+
+ qr/\p{mypkg1::IsMyProperty}/i
+
+with C</i> caseless matching, an explicit package name, and
+I<IsMyProperty> not defined at the time of the pattern compilation.
+
+=item *
+
+Perl's C<memcpy()>, C<memmove()>, C<memset()> and C<memcmp()> fallbacks are now
+more compatible with the originals.  [perl #127619]
+
+=item *
+
+Fixed the issue where a C<< s///r >>) with B<< -DPERL_NO_COW >> attempts
+to modify the source SV, resulting in the program dying. [perl #127635]
+
+=item *
+
+Fixed an EBCDIC-platform-only case where a pattern could fail to match. This
+occurred when matching characters from the set of C1 controls when the
+target matched string was in UTF-8.
+
+=item *
+
+Narrow the filename check in F<strict.pm> and F<warnings.pm>. Previously,
+it assumed that if the filename (without the F<.pmc?> extension) differed
+from the package name, if was a misspelled use statement (i.e. C<use Strict>
+instead of C<use strict>). We now check whether there's really a 
+miscapitalization happening, and not some other issue.
+
+=item *
+
+Turn an assertion into a more user friendly failure when parsing
+regexes. [perl #127599]
+
+=item *
+
+Correctly raise an error when trying to compile patterns with 
+unterminated character classes while there are trailing backslashes.
+[perl #126141].
+
+=item *
+
+Line numbers larger than 2**31-1 but less than 2**32 are no longer
+returned by C<caller()> as negative numbers.  [perl #126991]
+
+=item *
+
+C<< unless ( I<assignment> ) >> now properly warns when syntax
+warnings are enabled.  [perl #127122]
+
+=item *
+
+Setting an C<ISA> glob to an array reference now properly adds
+C<isaelem> magic to any existing elements.  Previously modifying such
+an element would not update the ISA cache, so method calls would call
+the wrong function.  Perl would also crash if the C<ISA> glob was
+destroyed, since new code added in 5.23.7 would try to release the
+C<isaelem> magic from the elements.  [perl #127351]
+
+=item *
+
+If a here-doc was found while parsing another operator, the parser had
+already read end of file, and the here-doc was not terminated, perl
+could produce an assertion or a segmentation fault.  This now reliably
+complains about the unterminated here-doc.  [perl #125540]
+
+=item *
+
+C<untie()> would sometimes return the last value returned by the C<UNTIE()>
+handler as well as it's normal value, messing up the stack.  [perl
+#126621]
+
+=item *
+
+Fixed an operator precedence problem when C< castflags & 2> is true.
+[perl #127474]
+
+=item *
+
+Caching of DESTROY methods could result in a non-pointer or a
+non-STASH stored in the C<SvSTASH()> slot of a stash, breaking the B
+C<STASH()> method.  The DESTROY method is now cached in the MRO metadata
+for the stash.  [perl #126410]
+
+=item *
+
+The AUTOLOAD method is now called when searching for a DESTROY method,
+and correctly sets C<$AUTOLOAD> too.  [perl #124387]  [perl #127494]
+
+=item *
+
+Avoid parsing beyond the end of the buffer when processing a C<#line>
+directive with no filename.  [perl #127334]
+
+=item *
+
+Perl now raises a warning when a regular expression pattern looks like
+it was supposed to contain a POSIX class, like C<qr/[[:alpha:]]/>, but
+there was some slight defect in its specification which causes it to
+instead be treated as a regular bracketed character class.  An example
+would be missing the second colon in the above like this:
+C<qr/[[:alpha]]/>.  This compiles to match a sequence of two characters.
+The second is C<"]">, and the first is any of: C<"[">, C<":">, C<"a">,
+C<"h">, C<"l">, or C<"p">.   This is unlikely to be the intended
+meaning, and now a warning is raised.  No warning is raised unless the
+specification is very close to one of the 14 legal POSIX classes.  (See
+L<perlrecharclass/POSIX Character Classes>.)
+[perl #8904]
+
+=item *
+
+Certain regex patterns involving a complemented POSIX class in an
+inverted bracketed character class, and matching something else
+optionally would improperly fail to match.  An example of one that could
+fail is C<qr/_?[^\Wbar]\x{100}/>.  This has been fixed.
+[perl #127537]
+
+=item *
+
+Perl 5.22 added support to the C99 hexadecimal floating point notation,
+but sometimes misparses hex floats. This has been fixed.
+[perl #127183]
+
+=item *
+
+A regression that allowed undeclared barewords in hash keys to work despite
+strictures has been fixed.
+L<[perl #126981]|https://rt.perl.org/Ticket/Display.html?id=126981>
+
+=item *
+
+Calls to the placeholder C<&PL_sv_yes> used internally when an C<import()>
+or C<unimport()> method isn't found now correctly handle scalar context.
+L<[perl #126042]|https://rt.perl.org/Ticket/Display.html?id=126042>
+
+=item *
+
+Report more context when we see an array where we expect to see an
+operator and avoid an assertion failure.
+L<[perl #123737]|https://rt.perl.org/Ticket/Display.html?id=123737>
+
+=item *
+
+Modifying an array that was previously a package C<@ISA> no longer
+causes assertion failures or crashes.
+L<[perl #123788]|https://rt.perl.org/Ticket/Display.html?id=123788>
+
+=item *
+
+Retain binary compatibility across plain and DEBUGGING perl builds.
+L<[perl #127212]|https://rt.perl.org/Ticket/Display.html?id=127212>
+
+=item *
+
+Avoid leaking memory when setting C<$ENV{foo}> on darwin.
+L<[perl #126240]|https://rt.perl.org/Ticket/Display.html?id=126240>
+
+=item *
+
+C</...\G/> no longer crashes on utf8 strings. When C<\G> is a fixed number
+of characters from the start of the regex, perl needs to count back that
+many characters from the current C<pos()> position and start matching from
+there. However, it was counting back bytes rather than characters, which
+could lead to panics on utf8 strings.
+
+=item *
+
+In some cases operators that return integers would return negative
+integers as large positive integers.
+L<[perl #126635]|https://rt.perl.org/Ticket/Display.html?id=126635>
+
+=item *
+
+The C<pipe()> operator would assert for DEBUGGING builds instead of
+producing the correct error message.  The condition asserted on is
+detected and reported on correctly without the assertions, so the
+assertions were removed.
+L<[perl #126480]|https://rt.perl.org/Ticket/Display.html?id=126480>
+
+=item *
+
+In some cases, failing to parse a here-doc would attempt to use freed
+memory.  This was caused by a pointer not being restored correctly.
+L<[perl #126443]|https://rt.perl.org/Ticket/Display.html?id=126443>
+
+=item *
+
+C<< @x = sort { *a = 0; $a <=> $b } 0 .. 1 >> no longer frees the GP
+for *a before restoring its SV slot.
+L<[perl #124097]|https://rt.perl.org/Ticket/Display.html?id=124097>
+
+=item *
+
+Multiple problems with the new hexadecimal floating point printf
+format C<%a> were fixed:
+L<[perl #126582]|https://rt.perl.org/Ticket/Display.html?id=126582>,
+L<[perl #126586]|https://rt.perl.org/Ticket/Display.html?id=126586>,
+L<[perl #126822]|https://rt.perl.org/Ticket/Display.html?id=126822>
+
+=item *
+
+Calling C<mg_set()> in C<leave_scope()> no longer leaks.
+
+=item *
+
+A regression from Perl v5.20 was fixed in which debugging output of regular
+expression compilation was wrong.  (The pattern was correctly compiled, but
+what got displayed for it was wrong.)
+
+=item *
+
+C<\b{sb}> works much better.  In Perl v5.22.0, this new construct didn't
+seem to give the expected results, yet passed all the tests in the
+extensive suite furnished by Unicode.  It turns out that it was because
+these were short input strings, and the failures had to do with longer
+inputs.
+
+=item *
+
+Certain syntax errors in
+L<perlrecharclass/Extended Bracketed Character Classes> caused panics
+instead of the proper error message.  This has now been fixed. [perl
+#126481]
+
+=item *
+
+Perl 5.20 added a message when a quantifier in a regular
+expression was useless, but then caused the parser to skip it;
+this caused the surplus quantifier to be silently ignored, instead
+of throwing an error. This is now fixed. [perl #126253]
+
+=item *
+
+The switch to building non-XS modules last in win32/makefile.mk (introduced
+by design as part of the changes to enable parallel building) caused the
+build of POSIX to break due to problems with the version module. This
+is now fixed.
+
+=item *
+
+Improved parsing of hex float constants.
+
+=item *
+
+Fixed an issue with C<< pack >> where C<< pack "H" >> (and C<< pack "h" >>)
+could read past the source when given a non-utf8 source, and a utf8 target.
+[perl #126325]
+
+=item *
+
+Fixed several cases where perl would abort due to a segmentation fault,
+or a C-level assert. [perl #126615], [perl #126602], [perl #126193].
+
+=item *
+
+There were places in regular expression patterns where comments (C<(?#...)>)
+weren't allowed, but should have been.  This is now fixed.
+L<[perl #116639]|https://rt.perl.org/Ticket/Display.html?id=116639>
+
+=item *
+
+Some regressions from Perl 5.20 have been fixed, in which some syntax errors in
+L<C<(?[...])>|perlrecharclass/Extended Bracketed Character Classes> constructs
+within regular expression patterns could cause a segfault instead of a proper
+error message.
+L<[perl #126180]|https://rt.perl.org/Ticket/Display.html?id=126180>
+L<[perl #126404]|https://rt.perl.org/Ticket/Display.html?id=126404>
+
+=item *
+
+Another problem with
+L<C<(?[...])>|perlrecharclass/Extended Bracketed Character Classes>
+constructs has been fixed wherein things like C<\c]> could cause panics.
+L<[perl #126181]|https://rt.perl.org/Ticket/Display.html?id=126181>
+
+=item *
+
+Some problems with attempting to extend the perl stack to around 2G or 4G
+entries have been fixed.  This was particularly an issue on 32-bit perls built
+to use 64-bit integers, and was easily noticeable with the list repetition
+operator, e.g.
+
+    @a = (1) x $big_number
+
+Formerly perl may have crashed, depending on the exact value of C<$big_number>;
+now it will typically raise an exception.
+L<[perl #125937]|https://rt.perl.org/Ticket/Display.html?id=125937>
+
+=item *
+
+In a regex conditional expression C<(?(condition)yes-pattern|no-pattern)>, if
+the condition is C<(?!)> then perl failed the match outright instead of
+matching the no-pattern.  This has been fixed.
+L<[perl #126222]|https://rt.perl.org/Ticket/Display.html?id=126222>
+
+=item *
+
+The special backtracking control verbs C<(*VERB:ARG)> now all allow an optional
+argument and set C<REGERROR>/C<REGMARK> appropriately as well.
+L<[perl #126186]|https://rt.perl.org/Ticket/Display.html?id=126186>
+
+=item *
+
+Several bugs, including a segmentation fault, have been fixed with the boundary
+checking constructs (introduced in Perl 5.22) C<\b{gcb}>, C<\b{sb}>, C<\b{wb}>,
+C<\B{gcb}>, C<\B{sb}>, and C<\B{wb}>.  All the C<\B{}> ones now match an empty
+string; none of the C<\b{}> ones do.
+L<[perl #126319]|https://rt.perl.org/Ticket/Display.html?id=126319>
+
+=item *
+
+Duplicating a closed file handle for write no longer creates a
+filename of the form F<GLOB(0xXXXXXXXX)>.  [perl #125115]
+
+=item *
+
+Warning fatality is now ignored when rewinding the stack.  This
+prevents infinite recursion when the now fatal error also causes
+rewinding of the stack.  [perl #123398]
+
+=item * 
+
+In perl v5.22.0, the logic changed when parsing a numeric parameter to the -C
+option, such that the successfully parsed number was not saved as the option
+value if it parsed to the end of the argument.  [perl #125381]
+
+=item *
+
+The PadlistNAMES macro is an lvalue again.
+
+=item *
+
+Zero -DPERL_TRACE_OPS memory for sub-threads.
+
+C<perl_clone_using()> was missing Zero init of PL_op_exec_cnt[].  This
+caused sub-threads in threaded -DPERL_TRACE_OPS builds to spew exceedingly
+large op-counts at destruct.  These counts would print %x as "ABABABAB",
+clearly a mem-poison value.
+
+=item *
+
+A leak in the XS typemap caused one scalar to be leaked each time a C<FILE *>
+or a C<PerlIO *> was C<OUTPUT:>ed or imported to Perl, since perl 5.000. These
+particular typemap entries are thought to be extremely rarely used by XS
+modules. [perl #124181]
+
+=item *
+
+C<alarm()> and C<sleep()> will now warn if the argument is a negative number
+and return undef. Previously they would pass the negative value to the
+underlying C function which may have set up a timer with a surprising value.
+
+=item *
+
+Perl can again be compiled with any Unicode version.  This used to
+(mostly) work, but was lost in v5.18 through v5.20.  The property
+C<Name_Alias> did not exist prior to Unicode 5.0.  L<Unicode::UCD>
+incorrectly said it did.  This has been fixed.
+
+=item *
+
+Very large code-points (beyond Unicode) in regular expressions no
+longer cause a buffer overflow in some cases when converted to UTF-8.
+L<[perl #125826]|https://rt.perl.org/Ticket/Display.html?id=125826>
+
+=item *
+
+The integer overflow check for the range operator (...) in list
+context now correctly handles the case where the size of the range is
+larger than the address space.  This could happen on 32-bits with
+-Duse64bitint.
+L<[perl #125781]|https://rt.perl.org/Ticket/Display.html?id=125781>
+
+=item *
+
+A crash with C<< %::=(); J->${\"::"} >> has been fixed.
+L<[perl #125541]|https://rt.perl.org/Ticket/Display.html?id=125541>
+
+=item *
+
+C<qr/(?[ () ])/> no longer segfaults, giving a syntax error message instead.
+[perl #125805]
+
+=item *
+
+Regular expression possessive quantifier v5.20 regression now fixed.
+C<qr/>I<PAT>C<{>I<min>,I<max>C<}+>C</> is supposed to behave identically
+to C<qr/(?E<gt>>I<PAT>C<{>I<min>,I<max>C<})/>.  Since v5.20, this didn't
+work if I<min> and I<max> were equal.  [perl #125825]
+
+=item *
+
+C<< BEGIN <> >> no longer segfaults and properly produces an error
+message.  [perl #125341]
+
+=item *
+
+In C<tr///> an illegal backwards range like C<tr/\x{101}-\x{100}//> was
+not always detected, giving incorrect results.  This is now fixed.
+
+=back
+
+=head1 Known Problems
+
+=over 4
+
+=item *
+
+Some modules have been broken by the L<context stack rework|/Internal Changes>.
+These modules were relying on non-guaranteed implementation details in perl.
+Their maintainers have been informed, and should contact perl5-porters for
+advice if needed.  Below is a subset of these modules:
+
+=over 4
+
+=item L<Algorithm::Permute>
+
+=item L<Coro>
+
+L<Coro> and perl v5.22.0 were already incompatible due to a change in the perl,
+and the reworking on the perl context stack creates a further incompatibility.
+perl5-porters has L<discussed the issue on the mailing
+list|http://www.nntp.perl.org/group/perl.perl5.porters/2016/05/msg236174.html>.
+
+=item L<Data::Alias>
+
+=item L<RPerl>
+
+=item L<Scope::Upper>
+
+=item L<TryCatch>
+
+=back
+
+=item *
+
+The module L<lexical::underscore> no longer works on perl v5.24.0, because perl
+no longer has a lexical C<$_>!
+
+=item *
+
+C<mod_perl> has been patched for compatibility for v5.22.0 and later but no
+release has been made.  The relevant patch (and other changes) can be found in
+their source code repository, L<mirrored at
+GitHub|https://github.com/apache/mod_perl/commit/82827132efd3c2e25cc413c85af61bb63375da6e>.
+
+=back
+
+=head1 Acknowledgements
+
+Perl 5.24.0 represents approximately 11 months of development since Perl 5.22.0
+and contains approximately 360,000 lines of changes across 1,800 files from 77
+authors.
+
+Excluding auto-generated files, documentation and release tools, there were
+approximately 250,000 lines of changes to 1,200 .pm, .t, .c and .h files.
+
+Perl continues to flourish into its third decade thanks to a vibrant community
+of users and developers. The following people are known to have contributed the
+improvements that became Perl 5.24.0:
+
+Aaron Crane, Aaron Priven, Abigail, Achim Gratz, Alexander D'Archangel, Alex
+Vandiver, Andreas König, Andy Broad, Andy Dougherty, Aristotle Pagaltzis,
+Chase Whitener, Chas. Owens, Chris 'BinGOs' Williams, Craig A. Berry, Dagfinn
+Ilmari Mannsåker, Dan Collins, Daniel Dragan, David Golden, David Mitchell,
+Dominic Hargreaves, Doug Bell, Dr.Ruud, Ed Avis, Ed J, Father Chrysostomos,
+Herbert Breunung, H.Merijn Brand, Hugo van der Sanden, Ivan Pozdeev, James E
+Keenan, Jan Dubois, Jarkko Hietaniemi, Jerry D. Hedden, Jim Cromie, John
+Peacock, John SJ Anderson, Karen Etheridge, Karl Williamson, kmx, Leon
+Timmermans, Ludovic E. R. Tolhurst-Cleaver, Lukas Mai, Martijn Lievaart,
+Matthew Horsfall, Mattia Barbon, Max Maischein, Mohammed El-Afifi, Nicholas
+Clark, Nicolas R., Niko Tyni, Peter John Acklam, Peter Martini, Peter
+Rabbitson, Pip Cet, Rafael Garcia-Suarez, Reini Urban, Renee Baecker, Ricardo
+Signes, Sawyer X, Shlomi Fish, Sisyphus, Stanislaw Pusep, Steffen Müller,
+Stevan Little, Steve Hay, Sullivan Beck, Thomas Sibley, Todd Rinaldo, Tom
+Hukins, Tony Cook, Unicode Consortium, Victor Adam, Vincent Pit, Vladimir
+Timofeev, Yves Orton, Zachary Storer, Zefram.
+
+The list above is almost certainly incomplete as it is automatically generated
+from version control history. In particular, it does not include the names of
+the (very much appreciated) contributors who reported issues to the Perl bug
+tracker.
+
+Many of the changes included in this version originated in the CPAN modules
+included in Perl's core. We're grateful to the entire CPAN community for
+helping Perl to flourish.
+
+For a more complete list of all of Perl's historical contributors, please see
+the F<AUTHORS> file in the Perl source distribution.
+
+=head1 Reporting Bugs
+
+If you find what you think is a bug, you might check the articles recently
+posted to the comp.lang.perl.misc newsgroup and the perl bug database at
+https://rt.perl.org/ .  There may also be information at
+http://www.perl.org/ , the Perl Home Page.
+
+If you believe you have an unreported bug, please run the L<perlbug> program
+included with your release.  Be sure to trim your bug down to a tiny but
+sufficient test case.  Your bug report, along with the output of C<perl -V>,
+will be sent off to perlbug@perl.org to be analysed by the Perl porting team.
+
+If the bug you are reporting has security implications which make it
+inappropriate to send to a publicly archived mailing list, then see
+L<perlsec/SECURITY VULNERABILITY CONTACT INFORMATION>
+for details of how to report the issue.
+
+=head1 SEE ALSO
+
+The F<Changes> file for an explanation of how to view exhaustive details on
+what changed.
+
+The F<INSTALL> file for how to build Perl.
+
+The F<README> file for general stuff.
+
+The F<Artistic> and F<Copying> files for copyright information.
+
+=cut
diff --git a/lib/5.24.1/pod/perl5241delta.pod b/lib/5.24.1/pod/perl5241delta.pod
new file mode 100644
index 00000000..0608c024
--- /dev/null
+++ b/lib/5.24.1/pod/perl5241delta.pod
@@ -0,0 +1,308 @@
+=encoding utf8
+
+=head1 NAME
+
+perldelta - what is new for perl v5.24.1
+
+=head1 DESCRIPTION
+
+This document describes differences between the 5.24.0 release and the 5.24.1
+release.
+
+If you are upgrading from an earlier release such as 5.22.0, first read
+L<perl5240delta>, which describes differences between 5.22.0 and 5.24.0.
+
+=head1 Security
+
+=head2 B<-Di> switch is now required for PerlIO debugging output
+
+Previously PerlIO debugging output would be sent to the file specified by the
+C<PERLIO_DEBUG> environment variable if perl wasn't running setuid and the
+B<-T> or B<-t> switches hadn't been parsed yet.
+
+If perl performed output at a point where it hadn't yet parsed its switches
+this could result in perl creating or overwriting the file named by
+C<PERLIO_DEBUG> even when the B<-T> switch had been supplied.
+
+Perl now requires the B<-Di> switch to produce PerlIO debugging output.  By
+default this is written to C<stderr>, but can optionally be redirected to a
+file by setting the C<PERLIO_DEBUG> environment variable.
+
+If perl is running setuid or the B<-T> switch was supplied C<PERLIO_DEBUG> is
+ignored and the debugging output is sent to C<stderr> as for any other B<-D>
+switch.
+
+=head2 Core modules and tools no longer search F<"."> for optional modules
+
+The tools and many modules supplied in core no longer search the default
+current directory entry in L<C<@INC>|perlvar/@INC> for optional modules.  For
+example, L<Storable> will remove the final F<"."> from C<@INC> before trying to
+load L<Log::Agent>.
+
+This prevents an attacker injecting an optional module into a process run by
+another user where the current directory is writable by the attacker, e.g. the
+F</tmp> directory.
+
+In most cases this removal should not cause problems, but difficulties were
+encountered with L<base>, which treats every module name supplied as optional.
+These difficulties have not yet been resolved, so for this release there are no
+changes to L<base>.  We hope to have a fix for L<base> in Perl 5.24.2.
+
+To protect your own code from this attack, either remove the default F<".">
+entry from C<@INC> at the start of your script, so:
+
+  #!/usr/bin/perl
+  use strict;
+  ...
+
+becomes:
+
+  #!/usr/bin/perl
+  BEGIN { pop @INC if $INC[-1] eq '.' }
+  use strict;
+  ...
+
+or for modules, remove F<"."> from a localized C<@INC>, so:
+
+  my $can_foo = eval { require Foo; }
+
+becomes:
+
+  my $can_foo = eval {
+      local @INC = @INC;
+      pop @INC if $INC[-1] eq '.';
+      require Foo;
+  };
+
+=head1 Incompatible Changes
+
+Other than the security changes above there are no changes intentionally
+incompatible with Perl 5.24.0.  If any exist, they are bugs, and we request
+that you submit a report.  See L</Reporting Bugs> below.
+
+=head1 Modules and Pragmata
+
+=head2 Updated Modules and Pragmata
+
+=over 4
+
+=item *
+
+L<Archive::Tar> has been upgraded from version 2.04 to 2.04_01.
+
+=item *
+
+L<bignum> has been upgraded from version 0.42 to 0.42_01.
+
+=item *
+
+L<CPAN> has been upgraded from version 2.11 to 2.11_01.
+
+=item *
+
+L<Digest> has been upgraded from version 1.17 to 1.17_01.
+
+=item *
+
+L<Digest::SHA> has been upgraded from version 5.95 to 5.95_01.
+
+=item *
+
+L<Encode> has been upgraded from version 2.80 to 2.80_01.
+
+=item *
+
+L<ExtUtils::MakeMaker> has been upgraded from version 7.10_01 to 7.10_02.
+
+=item *
+
+L<File::Fetch> has been upgraded from version 0.48 to 0.48_01.
+
+=item *
+
+L<File::Spec> has been upgraded from version 3.63 to 3.63_01.
+
+=item *
+
+L<HTTP::Tiny> has been upgraded from version 0.056 to 0.056_001.
+
+=item *
+
+L<IO> has been upgraded from version 1.36 to 1.36_01.
+
+=item *
+
+The IO-Compress modules have been upgraded from version 2.069 to 2.069_001.
+
+=item *
+
+L<IPC::Cmd> has been upgraded from version 0.92 to 0.92_01.
+
+=item *
+
+L<JSON::PP> has been upgraded from version 2.27300 to 2.27300_01.
+
+=item *
+
+L<Locale::Maketext> has been upgraded from version 1.26 to 1.26_01.
+
+=item *
+
+L<Locale::Maketext::Simple> has been upgraded from version 0.21 to 0.21_01.
+
+=item *
+
+L<Memoize> has been upgraded from version 1.03 to 1.03_01.
+
+=item *
+
+L<Module::CoreList> has been upgraded from version 5.20160506 to 5.20170114_24.
+
+=item *
+
+L<Net::Ping> has been upgraded from version 2.43 to 2.43_01.
+
+=item *
+
+L<Parse::CPAN::Meta> has been upgraded from version 1.4417 to 1.4417_001.
+
+=item *
+
+L<Pod::Html> has been upgraded from version 1.22 to 1.2201.
+
+=item *
+
+L<Pod::Perldoc> has been upgraded from version 3.25_02 to 3.25_03.
+
+=item *
+
+L<Storable> has been upgraded from version 2.56 to 2.56_01.
+
+=item *
+
+L<Sys::Syslog> has been upgraded from version 0.33 to 0.33_01.
+
+=item *
+
+L<Test> has been upgraded from version 1.28 to 1.28_01.
+
+=item *
+
+L<Test::Harness> has been upgraded from version 3.36 to 3.36_01.
+
+=item *
+
+L<XSLoader> has been upgraded from version 0.21 to 0.22, fixing a security hole
+in which binary files could be loaded from a path outside of C<@INC>.
+L<[perl #128528]|https://rt.perl.org/Public/Bug/Display.html?id=128528>
+
+=back
+
+=head1 Documentation
+
+=head2 Changes to Existing Documentation
+
+=head3 L<perlapio>
+
+=over 4
+
+=item *
+
+The documentation of C<PERLIO_DEBUG> has been updated.
+
+=back
+
+=head3 L<perlrun>
+
+=over 4
+
+=item *
+
+The new B<-Di> switch has been documented, and the documentation of
+C<PERLIO_DEBUG> has been updated.
+
+=back
+
+=head1 Testing
+
+=over 4
+
+=item *
+
+A new test script, F<t/run/switchDx.t>, has been added to test that the new
+B<-Di> switch is working correctly.
+
+=back
+
+=head1 Selected Bug Fixes
+
+=over 4
+
+=item *
+
+The change to hashbang redirection introduced in Perl 5.24.0, whereby perl
+would redirect to another interpreter (Perl 6) if it found a hashbang path
+which contains "perl" followed by "6", has been reverted because it broke in
+cases such as C<#!/opt/perl64/bin/perl>.
+
+=back
+
+=head1 Acknowledgements
+
+Perl 5.24.1 represents approximately 8 months of development since Perl 5.24.0
+and contains approximately 8,100 lines of changes across 240 files from 18
+authors.
+
+Excluding auto-generated files, documentation and release tools, there were
+approximately 2,200 lines of changes to 170 .pm, .t, .c and .h files.
+
+Perl continues to flourish into its third decade thanks to a vibrant community
+of users and developers.  The following people are known to have contributed
+the improvements that became Perl 5.24.1:
+
+Aaron Crane, Alex Vandiver, Aristotle Pagaltzis, Chad Granum, Chris 'BinGOs'
+Williams, Craig A. Berry, Father Chrysostomos, James E Keenan, Jarkko
+Hietaniemi, Karen Etheridge, Leon Timmermans, Matthew Horsfall, Ricardo Signes,
+Sawyer X, Sébastien Aperghis-Tramoni, Stevan Little, Steve Hay, Tony Cook.
+
+The list above is almost certainly incomplete as it is automatically generated
+from version control history.  In particular, it does not include the names of
+the (very much appreciated) contributors who reported issues to the Perl bug
+tracker.
+
+Many of the changes included in this version originated in the CPAN modules
+included in Perl's core.  We're grateful to the entire CPAN community for
+helping Perl to flourish.
+
+For a more complete list of all of Perl's historical contributors, please see
+the F<AUTHORS> file in the Perl source distribution.
+
+=head1 Reporting Bugs
+
+If you find what you think is a bug, you might check the articles recently
+posted to the comp.lang.perl.misc newsgroup and the Perl bug database at
+L<https://rt.perl.org/> .  There may also be information at
+L<http://www.perl.org/> , the Perl Home Page.
+
+If you believe you have an unreported bug, please run the L<perlbug> program
+included with your release.  Be sure to trim your bug down to a tiny but
+sufficient test case.  Your bug report, along with the output of C<perl -V>,
+will be sent off to perlbug@perl.org to be analysed by the Perl porting team.
+
+If the bug you are reporting has security implications which make it
+inappropriate to send to a publicly archived mailing list, then see
+L<perlsec/SECURITY VULNERABILITY CONTACT INFORMATION> for details of how to
+report the issue.
+
+=head1 SEE ALSO
+
+The F<Changes> file for an explanation of how to view exhaustive details on
+what changed.
+
+The F<INSTALL> file for how to build Perl.
+
+The F<README> file for general stuff.
+
+The F<Artistic> and F<Copying> files for copyright information.
+
+=cut
diff --git a/lib/5.24.1/pod/perl561delta.pod b/lib/5.24.1/pod/perl561delta.pod
new file mode 100644
index 00000000..49ff54f8
--- /dev/null
+++ b/lib/5.24.1/pod/perl561delta.pod
@@ -0,0 +1,3660 @@
+=head1 NAME
+
+perl561delta - what's new for perl v5.6.1
+
+=head1 DESCRIPTION
+
+This document describes differences between the 5.005 release and the 5.6.1
+release.
+
+=head1 Summary of changes between 5.6.0 and 5.6.1
+
+This section contains a summary of the changes between the 5.6.0 release
+and the 5.6.1 release.  More details about the changes mentioned here
+may be found in the F<Changes> files that accompany the Perl source
+distribution.  See L<perlhack> for pointers to online resources where you
+can inspect the individual patches described by these changes.
+
+=head2 Security Issues
+
+suidperl will not run /bin/mail anymore, because some platforms have
+a /bin/mail that is vulnerable to buffer overflow attacks.
+
+Note that suidperl is neither built nor installed by default in
+any recent version of perl.  Use of suidperl is highly discouraged.
+If you think you need it, try alternatives such as sudo first.
+See http://www.courtesan.com/sudo/ .
+
+=head2 Core bug fixes
+
+This is not an exhaustive list.  It is intended to cover only the
+significant user-visible changes.
+
+=over
+
+=item C<UNIVERSAL::isa()>
+
+A bug in the caching mechanism used by C<UNIVERSAL::isa()> that affected
+base.pm has been fixed.  The bug has existed since the 5.005 releases,
+but wasn't tickled by base.pm in those releases.
+
+=item Memory leaks
+
+Various cases of memory leaks and attempts to access uninitialized memory
+have been cured.  See L</"Known Problems"> below for further issues.
+
+=item Numeric conversions
+
+Numeric conversions did not recognize changes in the string value
+properly in certain circumstances.
+
+In other situations, large unsigned numbers (those above 2**31) could
+sometimes lose their unsignedness, causing bogus results in arithmetic
+operations.
+
+Integer modulus on large unsigned integers sometimes returned
+incorrect values.
+
+Perl 5.6.0 generated "not a number" warnings on certain conversions where
+previous versions didn't.
+
+These problems have all been rectified.
+
+Infinity is now recognized as a number.
+
+=item qw(a\\b)
+
+In Perl 5.6.0, qw(a\\b) produced a string with two backslashes instead
+of one, in a departure from the behavior in previous versions.  The
+older behavior has been reinstated.  
+
+=item caller()
+
+caller() could cause core dumps in certain situations.  Carp was sometimes
+affected by this problem.
+
+=item Bugs in regular expressions
+
+Pattern matches on overloaded values are now handled correctly.
+
+Perl 5.6.0 parsed m/\x{ab}/ incorrectly, leading to spurious warnings.
+This has been corrected.
+
+The RE engine found in Perl 5.6.0 accidentally pessimised certain kinds
+of simple pattern matches.  These are now handled better.
+
+Regular expression debug output (whether through C<use re 'debug'>
+or via C<-Dr>) now looks better.
+
+Multi-line matches like C<"a\nxb\n" =~ /(?!\A)x/m> were flawed.  The
+bug has been fixed.
+
+Use of $& could trigger a core dump under some situations.  This
+is now avoided.
+
+Match variables $1 et al., weren't being unset when a pattern match
+was backtracking, and the anomaly showed up inside C</...(?{ ... }).../>
+etc.  These variables are now tracked correctly.
+
+pos() did not return the correct value within s///ge in earlier
+versions.  This is now handled correctly.
+
+=item "slurp" mode
+
+readline() on files opened in "slurp" mode could return an extra "" at
+the end in certain situations.  This has been corrected.
+
+=item Autovivification of symbolic references to special variables
+
+Autovivification of symbolic references of special variables described
+in L<perlvar> (as in C<${$num}>) was accidentally disabled.  This works
+again now.
+
+=item Lexical warnings 
+
+Lexical warnings now propagate correctly into C<eval "...">.
+
+C<use warnings qw(FATAL all)> did not work as intended.  This has been
+corrected.
+
+Lexical warnings could leak into other scopes in some situations.
+This is now fixed.
+
+warnings::enabled() now reports the state of $^W correctly if the caller
+isn't using lexical warnings.
+
+=item Spurious warnings and errors
+
+Perl 5.6.0 could emit spurious warnings about redefinition of dl_error()
+when statically building extensions into perl.  This has been corrected.
+
+"our" variables could result in bogus "Variable will not stay shared"
+warnings.  This is now fixed.
+
+"our" variables of the same name declared in two sibling blocks
+resulted in bogus warnings about "redeclaration" of the variables.
+The problem has been corrected.
+
+=item glob()
+
+Compatibility of the builtin glob() with old csh-based glob has been
+improved with the addition of GLOB_ALPHASORT option.  See C<File::Glob>.
+
+File::Glob::glob() has been renamed to File::Glob::bsd_glob()
+because the name clashes with the builtin glob().  The older
+name is still available for compatibility, but is deprecated.
+
+Spurious syntax errors generated in certain situations, when glob()
+caused File::Glob to be loaded for the first time, have been fixed.
+
+=item Tainting
+
+Some cases of inconsistent taint propagation (such as within hash
+values) have been fixed.
+
+The tainting behavior of sprintf() has been rationalized.  It does
+not taint the result of floating point formats anymore, making the
+behavior consistent with that of string interpolation.
+
+=item sort()
+
+Arguments to sort() weren't being provided the right wantarray() context.
+The comparison block is now run in scalar context, and the arguments to
+be sorted are always provided list context.
+
+sort() is also fully reentrant, in the sense that the sort function
+can itself call sort().  This did not work reliably in previous releases.
+
+=item #line directives
+
+#line directives now work correctly when they appear at the very
+beginning of C<eval "...">.
+
+=item Subroutine prototypes
+
+The (\&) prototype now works properly.
+
+=item map()
+
+map() could get pathologically slow when the result list it generates
+is larger than the source list.  The performance has been improved for
+common scenarios.
+
+=item Debugger
+
+Debugger exit code now reflects the script exit code.
+
+Condition C<"0"> in breakpoints is now treated correctly.
+
+The C<d> command now checks the line number.
+
+C<$.> is no longer corrupted by the debugger.
+
+All debugger output now correctly goes to the socket if RemotePort
+is set.
+
+=item PERL5OPT
+
+PERL5OPT can be set to more than one switch group.  Previously,
+it used to be limited to one group of options only.
+
+=item chop()
+
+chop(@list) in list context returned the characters chopped in reverse
+order.  This has been reversed to be in the right order.
+
+=item Unicode support
+
+Unicode support has seen a large number of incremental improvements,
+but continues to be highly experimental.  It is not expected to be
+fully supported in the 5.6.x maintenance releases.
+
+substr(), join(), repeat(), reverse(), quotemeta() and string
+concatenation were all handling Unicode strings incorrectly in
+Perl 5.6.0.  This has been corrected.
+
+Support for C<tr///CU> and C<tr///UC> etc., have been removed since
+we realized the interface is broken.  For similar functionality,
+see L<perlfunc/pack>.
+
+The Unicode Character Database has been updated to version 3.0.1
+with additions made available to the public as of August 30, 2000.
+
+The Unicode character classes \p{Blank} and \p{SpacePerl} have been
+added.  "Blank" is like C isblank(), that is, it contains only
+"horizontal whitespace" (the space character is, the newline isn't),
+and the "SpacePerl" is the Unicode equivalent of C<\s> (\p{Space}
+isn't, since that includes the vertical tabulator character, whereas
+C<\s> doesn't.)
+
+If you are experimenting with Unicode support in perl, the development
+versions of Perl may have more to offer.  In particular, I/O layers
+are now available in the development track, but not in the maintenance
+track, primarily to do backward compatibility issues.  Unicode support
+is also evolving rapidly on a daily basis in the development track--the
+maintenance track only reflects the most conservative of these changes.
+
+=item 64-bit support
+
+Support for 64-bit platforms has been improved, but continues to be
+experimental.  The level of support varies greatly among platforms.
+
+=item Compiler
+
+The B Compiler and its various backends have had many incremental
+improvements, but they continue to remain highly experimental.  Use in
+production environments is discouraged.
+
+The perlcc tool has been rewritten so that the user interface is much
+more like that of a C compiler.
+
+The perlbc tools has been removed.  Use C<perlcc -B> instead.
+
+=item Lvalue subroutines
+
+There have been various bugfixes to support lvalue subroutines better.
+However, the feature still remains experimental.
+
+=item IO::Socket
+
+IO::Socket::INET failed to open the specified port if the service
+name was not known.  It now correctly uses the supplied port number
+as is.
+
+=item File::Find
+
+File::Find now chdir()s correctly when chasing symbolic links.
+
+=item xsubpp
+
+xsubpp now tolerates embedded POD sections.
+
+=item C<no Module;>
+
+C<no Module;> does not produce an error even if Module does not have an
+unimport() method.  This parallels the behavior of C<use> vis-a-vis
+C<import>.
+
+=item Tests
+
+A large number of tests have been added.
+
+=back
+
+=head2 Core features
+
+untie() will now call an UNTIE() hook if it exists.  See L<perltie>
+for details.
+
+The C<-DT> command line switch outputs copious tokenizing information.
+See L<perlrun>.
+
+Arrays are now always interpolated in double-quotish strings.  Previously,
+C<"foo@bar.com"> used to be a fatal error at compile time, if an array
+C<@bar> was not used or declared.  This transitional behavior was
+intended to help migrate perl4 code, and is deemed to be no longer useful.
+See L</"Arrays now always interpolate into double-quoted strings">.
+
+keys(), each(), pop(), push(), shift(), splice() and unshift()
+can all be overridden now.
+
+C<my __PACKAGE__ $obj> now does the expected thing.
+
+=head2 Configuration issues
+
+On some systems (IRIX and Solaris among them) the system malloc is demonstrably
+better.  While the defaults haven't been changed in order to retain binary
+compatibility with earlier releases, you may be better off building perl
+with C<Configure -Uusemymalloc ...> as discussed in the F<INSTALL> file.
+
+C<Configure> has been enhanced in various ways:
+
+=over
+
+=item *
+
+Minimizes use of temporary files.
+
+=item *
+
+By default, does not link perl with libraries not used by it, such as
+the various dbm libraries.  SunOS 4.x hints preserve behavior on that
+platform.
+
+=item *
+
+Support for pdp11-style memory models has been removed due to obsolescence.
+
+=item *
+
+Building outside the source tree is supported on systems that have
+symbolic links. This is done by running
+
+    sh /path/to/source/Configure -Dmksymlinks ...
+    make all test install
+
+in a directory other than the perl source directory.  See F<INSTALL>.
+
+=item *
+
+C<Configure -S> can be run non-interactively.
+
+=back
+
+=head2 Documentation
+
+README.aix, README.solaris and README.macos have been added.
+README.posix-bc has been renamed to README.bs2000.  These are
+installed as L<perlaix>, L<perlsolaris>, L<perlmacos>, and
+L<perlbs2000> respectively.
+
+The following pod documents are brand new:
+
+    perlclib	Internal replacements for standard C library functions
+    perldebtut	Perl debugging tutorial
+    perlebcdic	Considerations for running Perl on EBCDIC platforms
+    perlnewmod	Perl modules: preparing a new module for distribution
+    perlrequick	Perl regular expressions quick start
+    perlretut	Perl regular expressions tutorial
+    perlutil	utilities packaged with the Perl distribution
+
+The F<INSTALL> file has been expanded to cover various issues, such as
+64-bit support.
+
+A longer list of contributors has been added to the source distribution.
+See the file C<AUTHORS>.
+
+Numerous other changes have been made to the included documentation and FAQs.
+
+=head2 Bundled modules
+
+The following modules have been added.
+
+=over
+
+=item B::Concise
+
+Walks Perl syntax tree, printing concise info about ops.  See L<B::Concise>.
+
+=item File::Temp
+
+Returns name and handle of a temporary file safely.  See L<File::Temp>.
+
+=item Pod::LaTeX
+
+Converts Pod data to formatted LaTeX.  See L<Pod::LaTeX>.
+
+=item Pod::Text::Overstrike
+
+Converts POD data to formatted overstrike text.  See L<Pod::Text::Overstrike>.
+
+=back
+
+The following modules have been upgraded.
+
+=over
+
+=item CGI
+
+CGI v2.752 is now included.
+
+=item CPAN
+
+CPAN v1.59_54 is now included.
+
+=item Class::Struct
+
+Various bugfixes have been added.
+
+=item DB_File
+
+DB_File v1.75 supports newer Berkeley DB versions, among other
+improvements.
+
+=item Devel::Peek
+
+Devel::Peek has been enhanced to support dumping of memory statistics,
+when perl is built with the included malloc().
+
+=item File::Find
+
+File::Find now supports pre and post-processing of the files in order
+to sort() them, etc.
+
+=item Getopt::Long
+
+Getopt::Long v2.25 is included.
+
+=item IO::Poll
+
+Various bug fixes have been included.
+
+=item IPC::Open3
+
+IPC::Open3 allows use of numeric file descriptors.
+
+=item Math::BigFloat
+
+The fmod() function supports modulus operations.  Various bug fixes
+have also been included.
+
+=item Math::Complex
+
+Math::Complex handles inf, NaN etc., better.
+
+=item Net::Ping
+
+ping() could fail on odd number of data bytes, and when the echo service
+isn't running.  This has been corrected.
+
+=item Opcode
+
+A memory leak has been fixed.
+
+=item Pod::Parser
+
+Version 1.13 of the Pod::Parser suite is included.
+
+=item Pod::Text
+
+Pod::Text and related modules have been upgraded to the versions
+in podlators suite v2.08.
+
+=item SDBM_File
+
+On dosish platforms, some keys went missing because of lack of support for
+files with "holes".  A workaround for the problem has been added.
+
+=item Sys::Syslog
+
+Various bug fixes have been included.
+
+=item Tie::RefHash
+
+Now supports Tie::RefHash::Nestable to automagically tie hashref values.
+
+=item Tie::SubstrHash
+
+Various bug fixes have been included.
+
+=back
+
+=head2 Platform-specific improvements
+
+The following new ports are now available.
+
+=over
+
+=item NCR MP-RAS
+
+=item NonStop-UX
+
+=back
+
+Perl now builds under Amdahl UTS.
+
+Perl has also been verified to build under Amiga OS.
+
+Support for EPOC has been much improved.  See README.epoc.
+
+Building perl with -Duseithreads or -Duse5005threads now works
+under HP-UX 10.20 (previously it only worked under 10.30 or later).
+You will need a thread library package installed.  See README.hpux.
+
+Long doubles should now work under Linux.
+
+Mac OS Classic is now supported in the mainstream source package.
+See README.macos.
+
+Support for MPE/iX has been updated.  See README.mpeix.
+
+Support for OS/2 has been improved.  See C<os2/Changes> and README.os2.
+
+Dynamic loading on z/OS (formerly OS/390) has been improved.  See
+README.os390.
+
+Support for VMS has seen many incremental improvements, including
+better support for operators like backticks and system(), and better
+%ENV handling.  See C<README.vms> and L<perlvms>.
+
+Support for Stratus VOS has been improved.  See C<vos/Changes> and README.vos.
+
+Support for Windows has been improved.
+
+=over
+
+=item *
+
+fork() emulation has been improved in various ways, but still continues
+to be experimental.  See L<perlfork> for known bugs and caveats.
+
+=item *
+
+%SIG has been enabled under USE_ITHREADS, but its use is completely
+unsupported under all configurations.
+
+=item *
+
+Borland C++ v5.5 is now a supported compiler that can build Perl.
+However, the generated binaries continue to be incompatible with those
+generated by the other supported compilers (GCC and Visual C++).
+
+=item *
+
+Non-blocking waits for child processes (or pseudo-processes) are
+supported via C<waitpid($pid, &POSIX::WNOHANG)>.
+
+=item *
+
+A memory leak in accept() has been fixed.
+
+=item *
+
+wait(), waitpid() and backticks now return the correct exit status under
+Windows 9x.
+
+=item *
+
+Trailing new %ENV entries weren't propagated to child processes.  This
+is now fixed.
+
+=item *
+
+Current directory entries in %ENV are now correctly propagated to child
+processes.
+
+=item *
+
+Duping socket handles with open(F, ">&MYSOCK") now works under Windows 9x.
+
+=item *
+
+The makefiles now provide a single switch to bulk-enable all the features
+enabled in ActiveState ActivePerl (a popular binary distribution).
+
+=item *
+
+Win32::GetCwd() correctly returns C:\ instead of C: when at the drive root.
+Other bugs in chdir() and Cwd::cwd() have also been fixed.
+
+=item *
+
+fork() correctly returns undef and sets EAGAIN when it runs out of
+pseudo-process handles.
+
+=item *
+
+ExtUtils::MakeMaker now uses $ENV{LIB} to search for libraries.
+
+=item *
+
+UNC path handling is better when perl is built to support fork().
+
+=item *
+
+A handle leak in socket handling has been fixed.
+
+=item *
+
+send() works from within a pseudo-process.
+
+=back
+
+Unless specifically qualified otherwise, the remainder of this document
+covers changes between the 5.005 and 5.6.0 releases.
+
+=head1 Core Enhancements
+
+=head2 Interpreter cloning, threads, and concurrency
+
+Perl 5.6.0 introduces the beginnings of support for running multiple
+interpreters concurrently in different threads.  In conjunction with
+the perl_clone() API call, which can be used to selectively duplicate
+the state of any given interpreter, it is possible to compile a
+piece of code once in an interpreter, clone that interpreter
+one or more times, and run all the resulting interpreters in distinct
+threads.
+
+On the Windows platform, this feature is used to emulate fork() at the
+interpreter level.  See L<perlfork> for details about that.
+
+This feature is still in evolution.  It is eventually meant to be used
+to selectively clone a subroutine and data reachable from that
+subroutine in a separate interpreter and run the cloned subroutine
+in a separate thread.  Since there is no shared data between the
+interpreters, little or no locking will be needed (unless parts of
+the symbol table are explicitly shared).  This is obviously intended
+to be an easy-to-use replacement for the existing threads support.
+
+Support for cloning interpreters and interpreter concurrency can be
+enabled using the -Dusethreads Configure option (see win32/Makefile for
+how to enable it on Windows.)  The resulting perl executable will be
+functionally identical to one that was built with -Dmultiplicity, but
+the perl_clone() API call will only be available in the former.
+
+-Dusethreads enables the cpp macro USE_ITHREADS by default, which in turn
+enables Perl source code changes that provide a clear separation between
+the op tree and the data it operates with.  The former is immutable, and
+can therefore be shared between an interpreter and all of its clones,
+while the latter is considered local to each interpreter, and is therefore
+copied for each clone.
+
+Note that building Perl with the -Dusemultiplicity Configure option
+is adequate if you wish to run multiple B<independent> interpreters
+concurrently in different threads.  -Dusethreads only provides the
+additional functionality of the perl_clone() API call and other
+support for running B<cloned> interpreters concurrently.
+
+    NOTE: This is an experimental feature.  Implementation details are
+    subject to change.
+
+=head2 Lexically scoped warning categories
+
+You can now control the granularity of warnings emitted by perl at a finer
+level using the C<use warnings> pragma.  L<warnings> and L<perllexwarn>
+have copious documentation on this feature.
+
+=head2 Unicode and UTF-8 support
+
+Perl now uses UTF-8 as its internal representation for character
+strings.  The C<utf8> and C<bytes> pragmas are used to control this support
+in the current lexical scope.  See L<perlunicode>, L<utf8> and L<bytes> for
+more information.
+
+This feature is expected to evolve quickly to support some form of I/O
+disciplines that can be used to specify the kind of input and output data
+(bytes or characters).  Until that happens, additional modules from CPAN
+will be needed to complete the toolkit for dealing with Unicode.
+
+    NOTE: This should be considered an experimental feature.  Implementation
+    details are subject to change.
+
+=head2 Support for interpolating named characters
+
+The new C<\N> escape interpolates named characters within strings.
+For example, C<"Hi! \N{WHITE SMILING FACE}"> evaluates to a string
+with a Unicode smiley face at the end.
+
+=head2 "our" declarations
+
+An "our" declaration introduces a value that can be best understood
+as a lexically scoped symbolic alias to a global variable in the
+package that was current where the variable was declared.  This is
+mostly useful as an alternative to the C<vars> pragma, but also provides
+the opportunity to introduce typing and other attributes for such
+variables.  See L<perlfunc/our>.
+
+=head2 Support for strings represented as a vector of ordinals
+
+Literals of the form C<v1.2.3.4> are now parsed as a string composed
+of characters with the specified ordinals.  This is an alternative, more
+readable way to construct (possibly Unicode) strings instead of
+interpolating characters, as in C<"\x{1}\x{2}\x{3}\x{4}">.  The leading
+C<v> may be omitted if there are more than two ordinals, so C<1.2.3> is
+parsed the same as C<v1.2.3>.
+
+Strings written in this form are also useful to represent version "numbers".
+It is easy to compare such version "numbers" (which are really just plain
+strings) using any of the usual string comparison operators C<eq>, C<ne>,
+C<lt>, C<gt>, etc., or perform bitwise string operations on them using C<|>,
+C<&>, etc.
+
+In conjunction with the new C<$^V> magic variable (which contains
+the perl version as a string), such literals can be used as a readable way
+to check if you're running a particular version of Perl:
+
+    # this will parse in older versions of Perl also
+    if ($^V and $^V gt v5.6.0) {
+        # new features supported
+    }
+
+C<require> and C<use> also have some special magic to support such literals.
+They will be interpreted as a version rather than as a module name:
+
+    require v5.6.0;		# croak if $^V lt v5.6.0
+    use v5.6.0;			# same, but croaks at compile-time
+
+Alternatively, the C<v> may be omitted if there is more than one dot:
+
+    require 5.6.0;
+    use 5.6.0;
+
+Also, C<sprintf> and C<printf> support the Perl-specific format flag C<%v>
+to print ordinals of characters in arbitrary strings:
+
+    printf "v%vd", $^V;		# prints current version, such as "v5.5.650"
+    printf "%*vX", ":", $addr;	# formats IPv6 address
+    printf "%*vb", " ", $bits;	# displays bitstring
+
+See L<perldata/"Scalar value constructors"> for additional information.
+
+=head2 Improved Perl version numbering system
+
+Beginning with Perl version 5.6.0, the version number convention has been
+changed to a "dotted integer" scheme that is more commonly found in open
+source projects.
+
+Maintenance versions of v5.6.0 will be released as v5.6.1, v5.6.2 etc.
+The next development series following v5.6.0 will be numbered v5.7.x,
+beginning with v5.7.0, and the next major production release following
+v5.6.0 will be v5.8.0.
+
+The English module now sets $PERL_VERSION to $^V (a string value) rather
+than C<$]> (a numeric value).  (This is a potential incompatibility.
+Send us a report via perlbug if you are affected by this.)
+
+The v1.2.3 syntax is also now legal in Perl.
+See L<Support for strings represented as a vector of ordinals> for more on that.
+
+To cope with the new versioning system's use of at least three significant
+digits for each version component, the method used for incrementing the
+subversion number has also changed slightly.  We assume that versions older
+than v5.6.0 have been incrementing the subversion component in multiples of
+10.  Versions after v5.6.0 will increment them by 1.  Thus, using the new
+notation, 5.005_03 is the "same" as v5.5.30, and the first maintenance
+version following v5.6.0 will be v5.6.1 (which should be read as being
+equivalent to a floating point value of 5.006_001 in the older format,
+stored in C<$]>).
+
+=head2 New syntax for declaring subroutine attributes
+
+Formerly, if you wanted to mark a subroutine as being a method call or
+as requiring an automatic lock() when it is entered, you had to declare
+that with a C<use attrs> pragma in the body of the subroutine.
+That can now be accomplished with declaration syntax, like this:
+
+    sub mymethod : locked method;
+    ...
+    sub mymethod : locked method {
+	...
+    }
+
+    sub othermethod :locked :method;
+    ...
+    sub othermethod :locked :method {
+	...
+    }
+
+
+(Note how only the first C<:> is mandatory, and whitespace surrounding
+the C<:> is optional.)
+
+F<AutoSplit.pm> and F<SelfLoader.pm> have been updated to keep the attributes
+with the stubs they provide.  See L<attributes>.
+
+=head2 File and directory handles can be autovivified
+
+Similar to how constructs such as C<< $x->[0] >> autovivify a reference,
+handle constructors (open(), opendir(), pipe(), socketpair(), sysopen(),
+socket(), and accept()) now autovivify a file or directory handle
+if the handle passed to them is an uninitialized scalar variable.  This
+allows the constructs such as C<open(my $fh, ...)> and C<open(local $fh,...)>
+to be used to create filehandles that will conveniently be closed
+automatically when the scope ends, provided there are no other references
+to them.  This largely eliminates the need for typeglobs when opening
+filehandles that must be passed around, as in the following example:
+
+    sub myopen {
+        open my $fh, "@_"
+	     or die "Can't open '@_': $!";
+	return $fh;
+    }
+
+    {
+        my $f = myopen("</etc/motd");
+	print <$f>;
+	# $f implicitly closed here
+    }
+
+=head2 open() with more than two arguments
+
+If open() is passed three arguments instead of two, the second argument
+is used as the mode and the third argument is taken to be the file name.
+This is primarily useful for protecting against unintended magic behavior
+of the traditional two-argument form.  See L<perlfunc/open>.
+
+=head2 64-bit support
+
+Any platform that has 64-bit integers either
+
+	(1) natively as longs or ints
+	(2) via special compiler flags
+	(3) using long long or int64_t
+
+is able to use "quads" (64-bit integers) as follows:
+
+=over 4
+
+=item *
+
+constants (decimal, hexadecimal, octal, binary) in the code 
+
+=item *
+
+arguments to oct() and hex()
+
+=item *
+
+arguments to print(), printf() and sprintf() (flag prefixes ll, L, q)
+
+=item *
+
+printed as such
+
+=item *
+
+pack() and unpack() "q" and "Q" formats
+
+=item *
+
+in basic arithmetics: + - * / % (NOTE: operating close to the limits
+of the integer values may produce surprising results)
+
+=item *
+
+in bit arithmetics: & | ^ ~ << >> (NOTE: these used to be forced 
+to be 32 bits wide but now operate on the full native width.)
+
+=item *
+
+vec()
+
+=back
+
+Note that unless you have the case (a) you will have to configure
+and compile Perl using the -Duse64bitint Configure flag.
+
+    NOTE: The Configure flags -Duselonglong and -Duse64bits have been
+    deprecated.  Use -Duse64bitint instead.
+
+There are actually two modes of 64-bitness: the first one is achieved
+using Configure -Duse64bitint and the second one using Configure
+-Duse64bitall.  The difference is that the first one is minimal and
+the second one maximal.  The first works in more places than the second.
+
+The C<use64bitint> does only as much as is required to get 64-bit
+integers into Perl (this may mean, for example, using "long longs")
+while your memory may still be limited to 2 gigabytes (because your
+pointers could still be 32-bit).  Note that the name C<64bitint> does
+not imply that your C compiler will be using 64-bit C<int>s (it might,
+but it doesn't have to): the C<use64bitint> means that you will be
+able to have 64 bits wide scalar values.
+
+The C<use64bitall> goes all the way by attempting to switch also
+integers (if it can), longs (and pointers) to being 64-bit.  This may
+create an even more binary incompatible Perl than -Duse64bitint: the
+resulting executable may not run at all in a 32-bit box, or you may
+have to reboot/reconfigure/rebuild your operating system to be 64-bit
+aware.
+
+Natively 64-bit systems like Alpha and Cray need neither -Duse64bitint
+nor -Duse64bitall.
+
+Last but not least: note that due to Perl's habit of always using
+floating point numbers, the quads are still not true integers.
+When quads overflow their limits (0...18_446_744_073_709_551_615 unsigned,
+-9_223_372_036_854_775_808...9_223_372_036_854_775_807 signed), they
+are silently promoted to floating point numbers, after which they will
+start losing precision (in their lower digits).
+
+    NOTE: 64-bit support is still experimental on most platforms.
+    Existing support only covers the LP64 data model.  In particular, the
+    LLP64 data model is not yet supported.  64-bit libraries and system
+    APIs on many platforms have not stabilized--your mileage may vary.
+
+=head2 Large file support
+
+If you have filesystems that support "large files" (files larger than
+2 gigabytes), you may now also be able to create and access them from
+Perl.
+
+    NOTE: The default action is to enable large file support, if
+    available on the platform.
+
+If the large file support is on, and you have a Fcntl constant
+O_LARGEFILE, the O_LARGEFILE is automatically added to the flags
+of sysopen().
+
+Beware that unless your filesystem also supports "sparse files" seeking
+to umpteen petabytes may be inadvisable.
+
+Note that in addition to requiring a proper file system to do large
+files you may also need to adjust your per-process (or your
+per-system, or per-process-group, or per-user-group) maximum filesize
+limits before running Perl scripts that try to handle large files,
+especially if you intend to write such files.
+
+Finally, in addition to your process/process group maximum filesize
+limits, you may have quota limits on your filesystems that stop you
+(your user id or your user group id) from using large files.
+
+Adjusting your process/user/group/file system/operating system limits
+is outside the scope of Perl core language.  For process limits, you
+may try increasing the limits using your shell's limits/limit/ulimit
+command before running Perl.  The BSD::Resource extension (not
+included with the standard Perl distribution) may also be of use, it
+offers the getrlimit/setrlimit interface that can be used to adjust
+process resource usage limits, including the maximum filesize limit.
+
+=head2 Long doubles
+
+In some systems you may be able to use long doubles to enhance the
+range and precision of your double precision floating point numbers
+(that is, Perl's numbers).  Use Configure -Duselongdouble to enable
+this support (if it is available).
+
+=head2 "more bits"
+
+You can "Configure -Dusemorebits" to turn on both the 64-bit support
+and the long double support.
+
+=head2 Enhanced support for sort() subroutines
+
+Perl subroutines with a prototype of C<($$)>, and XSUBs in general, can
+now be used as sort subroutines.  In either case, the two elements to
+be compared are passed as normal parameters in @_.  See L<perlfunc/sort>.
+
+For unprototyped sort subroutines, the historical behavior of passing 
+the elements to be compared as the global variables $a and $b remains
+unchanged.
+
+=head2 C<sort $coderef @foo> allowed
+
+sort() did not accept a subroutine reference as the comparison
+function in earlier versions.  This is now permitted.
+
+=head2 File globbing implemented internally
+
+Perl now uses the File::Glob implementation of the glob() operator
+automatically.  This avoids using an external csh process and the
+problems associated with it.
+
+    NOTE: This is currently an experimental feature.  Interfaces and
+    implementation are subject to change.
+
+=head2 Support for CHECK blocks
+
+In addition to C<BEGIN>, C<INIT>, C<END>, C<DESTROY> and C<AUTOLOAD>,
+subroutines named C<CHECK> are now special.  These are queued up during
+compilation and behave similar to END blocks, except they are called at
+the end of compilation rather than at the end of execution.  They cannot
+be called directly.
+
+=head2 POSIX character class syntax [: :] supported
+
+For example to match alphabetic characters use /[[:alpha:]]/.
+See L<perlre> for details.
+
+=head2 Better pseudo-random number generator
+
+In 5.005_0x and earlier, perl's rand() function used the C library
+rand(3) function.  As of 5.005_52, Configure tests for drand48(),
+random(), and rand() (in that order) and picks the first one it finds.
+
+These changes should result in better random numbers from rand().
+
+=head2 Improved C<qw//> operator
+
+The C<qw//> operator is now evaluated at compile time into a true list
+instead of being replaced with a run time call to C<split()>.  This
+removes the confusing misbehaviour of C<qw//> in scalar context, which
+had inherited that behaviour from split().
+
+Thus:
+
+    $foo = ($bar) = qw(a b c); print "$foo|$bar\n";
+
+now correctly prints "3|a", instead of "2|a".
+
+=head2 Better worst-case behavior of hashes
+
+Small changes in the hashing algorithm have been implemented in
+order to improve the distribution of lower order bits in the
+hashed value.  This is expected to yield better performance on
+keys that are repeated sequences.
+
+=head2 pack() format 'Z' supported
+
+The new format type 'Z' is useful for packing and unpacking null-terminated
+strings.  See L<perlfunc/"pack">.
+
+=head2 pack() format modifier '!' supported
+
+The new format type modifier '!' is useful for packing and unpacking
+native shorts, ints, and longs.  See L<perlfunc/"pack">.
+
+=head2 pack() and unpack() support counted strings
+
+The template character '/' can be used to specify a counted string
+type to be packed or unpacked.  See L<perlfunc/"pack">.
+
+=head2 Comments in pack() templates
+
+The '#' character in a template introduces a comment up to
+end of the line.  This facilitates documentation of pack()
+templates.
+
+=head2 Weak references
+
+In previous versions of Perl, you couldn't cache objects so as
+to allow them to be deleted if the last reference from outside 
+the cache is deleted.  The reference in the cache would hold a
+reference count on the object and the objects would never be
+destroyed.
+
+Another familiar problem is with circular references.  When an
+object references itself, its reference count would never go
+down to zero, and it would not get destroyed until the program
+is about to exit.
+
+Weak references solve this by allowing you to "weaken" any
+reference, that is, make it not count towards the reference count.
+When the last non-weak reference to an object is deleted, the object
+is destroyed and all the weak references to the object are
+automatically undef-ed.
+
+To use this feature, you need the Devel::WeakRef package from CPAN, which
+contains additional documentation.
+
+    NOTE: This is an experimental feature.  Details are subject to change.  
+
+=head2 Binary numbers supported
+
+Binary numbers are now supported as literals, in s?printf formats, and
+C<oct()>:
+
+    $answer = 0b101010;
+    printf "The answer is: %b\n", oct("0b101010");
+
+=head2 Lvalue subroutines
+
+Subroutines can now return modifiable lvalues.
+See L<perlsub/"Lvalue subroutines">.
+
+    NOTE: This is an experimental feature.  Details are subject to change.
+
+=head2 Some arrows may be omitted in calls through references
+
+Perl now allows the arrow to be omitted in many constructs
+involving subroutine calls through references.  For example,
+C<< $foo[10]->('foo') >> may now be written C<$foo[10]('foo')>.
+This is rather similar to how the arrow may be omitted from
+C<< $foo[10]->{'foo'} >>.  Note however, that the arrow is still
+required for C<< foo(10)->('bar') >>.
+
+=head2 Boolean assignment operators are legal lvalues
+
+Constructs such as C<($a ||= 2) += 1> are now allowed.
+
+=head2 exists() is supported on subroutine names
+
+The exists() builtin now works on subroutine names.  A subroutine
+is considered to exist if it has been declared (even if implicitly).
+See L<perlfunc/exists> for examples.
+
+=head2 exists() and delete() are supported on array elements
+
+The exists() and delete() builtins now work on simple arrays as well.
+The behavior is similar to that on hash elements.
+
+exists() can be used to check whether an array element has been
+initialized.  This avoids autovivifying array elements that don't exist.
+If the array is tied, the EXISTS() method in the corresponding tied
+package will be invoked.
+
+delete() may be used to remove an element from the array and return
+it.  The array element at that position returns to its uninitialized
+state, so that testing for the same element with exists() will return
+false.  If the element happens to be the one at the end, the size of
+the array also shrinks up to the highest element that tests true for
+exists(), or 0 if none such is found.  If the array is tied, the DELETE() 
+method in the corresponding tied package will be invoked.
+
+See L<perlfunc/exists> and L<perlfunc/delete> for examples.
+
+=head2 Pseudo-hashes work better
+
+Dereferencing some types of reference values in a pseudo-hash,
+such as C<< $ph->{foo}[1] >>, was accidentally disallowed.  This has
+been corrected.
+
+When applied to a pseudo-hash element, exists() now reports whether
+the specified value exists, not merely if the key is valid.
+
+delete() now works on pseudo-hashes.  When given a pseudo-hash element
+or slice it deletes the values corresponding to the keys (but not the keys
+themselves).  See L<perlref/"Pseudo-hashes: Using an array as a hash">.
+
+Pseudo-hash slices with constant keys are now optimized to array lookups
+at compile-time.
+
+List assignments to pseudo-hash slices are now supported.
+
+The C<fields> pragma now provides ways to create pseudo-hashes, via
+fields::new() and fields::phash().  See L<fields>.
+
+    NOTE: The pseudo-hash data type continues to be experimental.
+    Limiting oneself to the interface elements provided by the
+    fields pragma will provide protection from any future changes.
+
+=head2 Automatic flushing of output buffers
+
+fork(), exec(), system(), qx//, and pipe open()s now flush buffers
+of all files opened for output when the operation was attempted.  This
+mostly eliminates confusing buffering mishaps suffered by users unaware
+of how Perl internally handles I/O.
+
+This is not supported on some platforms like Solaris where a suitably
+correct implementation of fflush(NULL) isn't available.
+
+=head2 Better diagnostics on meaningless filehandle operations
+
+Constructs such as C<< open(<FH>) >> and C<< close(<FH>) >>
+are compile time errors.  Attempting to read from filehandles that
+were opened only for writing will now produce warnings (just as
+writing to read-only filehandles does).
+
+=head2 Where possible, buffered data discarded from duped input filehandle
+
+C<< open(NEW, "<&OLD") >> now attempts to discard any data that
+was previously read and buffered in C<OLD> before duping the handle.
+On platforms where doing this is allowed, the next read operation
+on C<NEW> will return the same data as the corresponding operation
+on C<OLD>.  Formerly, it would have returned the data from the start
+of the following disk block instead.
+
+=head2 eof() has the same old magic as <>
+
+C<eof()> would return true if no attempt to read from C<< <> >> had
+yet been made.  C<eof()> has been changed to have a little magic of its
+own, it now opens the C<< <> >> files.
+
+=head2 binmode() can be used to set :crlf and :raw modes
+
+binmode() now accepts a second argument that specifies a discipline
+for the handle in question.  The two pseudo-disciplines ":raw" and
+":crlf" are currently supported on DOS-derivative platforms.
+See L<perlfunc/"binmode"> and L<open>.
+
+=head2 C<-T> filetest recognizes UTF-8 encoded files as "text"
+
+The algorithm used for the C<-T> filetest has been enhanced to
+correctly identify UTF-8 content as "text".
+
+=head2 system(), backticks and pipe open now reflect exec() failure
+
+On Unix and similar platforms, system(), qx() and open(FOO, "cmd |")
+etc., are implemented via fork() and exec().  When the underlying
+exec() fails, earlier versions did not report the error properly,
+since the exec() happened to be in a different process.
+
+The child process now communicates with the parent about the
+error in launching the external command, which allows these
+constructs to return with their usual error value and set $!.
+
+=head2 Improved diagnostics
+
+Line numbers are no longer suppressed (under most likely circumstances)
+during the global destruction phase.
+
+Diagnostics emitted from code running in threads other than the main
+thread are now accompanied by the thread ID.
+
+Embedded null characters in diagnostics now actually show up.  They
+used to truncate the message in prior versions.
+
+$foo::a and $foo::b are now exempt from "possible typo" warnings only
+if sort() is encountered in package C<foo>.
+
+Unrecognized alphabetic escapes encountered when parsing quote
+constructs now generate a warning, since they may take on new
+semantics in later versions of Perl.
+
+Many diagnostics now report the internal operation in which the warning
+was provoked, like so:
+
+    Use of uninitialized value in concatenation (.) at (eval 1) line 1.
+    Use of uninitialized value in print at (eval 1) line 1.
+
+Diagnostics  that occur within eval may also report the file and line
+number where the eval is located, in addition to the eval sequence
+number and the line number within the evaluated text itself.  For
+example:
+
+    Not enough arguments for scalar at (eval 4)[newlib/perl5db.pl:1411] line 2, at EOF
+
+=head2 Diagnostics follow STDERR
+
+Diagnostic output now goes to whichever file the C<STDERR> handle
+is pointing at, instead of always going to the underlying C runtime
+library's C<stderr>.
+
+=head2 More consistent close-on-exec behavior
+
+On systems that support a close-on-exec flag on filehandles, the
+flag is now set for any handles created by pipe(), socketpair(),
+socket(), and accept(), if that is warranted by the value of $^F
+that may be in effect.  Earlier versions neglected to set the flag
+for handles created with these operators.  See L<perlfunc/pipe>,
+L<perlfunc/socketpair>, L<perlfunc/socket>, L<perlfunc/accept>,
+and L<perlvar/$^F>.
+
+=head2 syswrite() ease-of-use
+
+The length argument of C<syswrite()> has become optional.
+
+=head2 Better syntax checks on parenthesized unary operators
+
+Expressions such as:
+
+    print defined(&foo,&bar,&baz);
+    print uc("foo","bar","baz");
+    undef($foo,&bar);
+
+used to be accidentally allowed in earlier versions, and produced
+unpredictable behaviour.  Some produced ancillary warnings
+when used in this way; others silently did the wrong thing.
+
+The parenthesized forms of most unary operators that expect a single
+argument now ensure that they are not called with more than one
+argument, making the cases shown above syntax errors.  The usual
+behaviour of:
+
+    print defined &foo, &bar, &baz;
+    print uc "foo", "bar", "baz";
+    undef $foo, &bar;
+
+remains unchanged.  See L<perlop>.
+
+=head2 Bit operators support full native integer width
+
+The bit operators (& | ^ ~ << >>) now operate on the full native
+integral width (the exact size of which is available in $Config{ivsize}).
+For example, if your platform is either natively 64-bit or if Perl
+has been configured to use 64-bit integers, these operations apply
+to 8 bytes (as opposed to 4 bytes on 32-bit platforms).
+For portability, be sure to mask off the excess bits in the result of
+unary C<~>, e.g., C<~$x & 0xffffffff>.
+
+=head2 Improved security features
+
+More potentially unsafe operations taint their results for improved
+security.
+
+The C<passwd> and C<shell> fields returned by the getpwent(), getpwnam(),
+and getpwuid() are now tainted, because the user can affect their own
+encrypted password and login shell.
+
+The variable modified by shmread(), and messages returned by msgrcv()
+(and its object-oriented interface IPC::SysV::Msg::rcv) are also tainted,
+because other untrusted processes can modify messages and shared memory
+segments for their own nefarious purposes.
+
+=head2 More functional bareword prototype (*)
+
+Bareword prototypes have been rationalized to enable them to be used
+to override builtins that accept barewords and interpret them in
+a special way, such as C<require> or C<do>.
+
+Arguments prototyped as C<*> will now be visible within the subroutine
+as either a simple scalar or as a reference to a typeglob.
+See L<perlsub/Prototypes>.
+
+=head2 C<require> and C<do> may be overridden
+
+C<require> and C<do 'file'> operations may be overridden locally
+by importing subroutines of the same name into the current package 
+(or globally by importing them into the CORE::GLOBAL:: namespace).
+Overriding C<require> will also affect C<use>, provided the override
+is visible at compile-time.
+See L<perlsub/"Overriding Built-in Functions">.
+
+=head2 $^X variables may now have names longer than one character
+
+Formerly, $^X was synonymous with ${"\cX"}, but $^XY was a syntax
+error.  Now variable names that begin with a control character may be
+arbitrarily long.  However, for compatibility reasons, these variables
+I<must> be written with explicit braces, as C<${^XY}> for example.
+C<${^XYZ}> is synonymous with ${"\cXYZ"}.  Variable names with more
+than one control character, such as C<${^XY^Z}>, are illegal.
+
+The old syntax has not changed.  As before, `^X' may be either a
+literal control-X character or the two-character sequence `caret' plus
+`X'.  When braces are omitted, the variable name stops after the
+control character.  Thus C<"$^XYZ"> continues to be synonymous with
+C<$^X . "YZ"> as before.
+
+As before, lexical variables may not have names beginning with control
+characters.  As before, variables whose names begin with a control
+character are always forced to be in package `main'.  All such variables
+are reserved for future extensions, except those that begin with
+C<^_>, which may be used by user programs and are guaranteed not to
+acquire special meaning in any future version of Perl.
+
+=head2 New variable $^C reflects C<-c> switch
+
+C<$^C> has a boolean value that reflects whether perl is being run
+in compile-only mode (i.e. via the C<-c> switch).  Since
+BEGIN blocks are executed under such conditions, this variable
+enables perl code to determine whether actions that make sense
+only during normal running are warranted.  See L<perlvar>.
+
+=head2 New variable $^V contains Perl version as a string
+
+C<$^V> contains the Perl version number as a string composed of
+characters whose ordinals match the version numbers, i.e. v5.6.0.
+This may be used in string comparisons.
+
+See C<Support for strings represented as a vector of ordinals> for an
+example.
+
+=head2 Optional Y2K warnings
+
+If Perl is built with the cpp macro C<PERL_Y2KWARN> defined,
+it emits optional warnings when concatenating the number 19
+with another number.
+
+This behavior must be specifically enabled when running Configure.
+See F<INSTALL> and F<README.Y2K>.
+
+=head2 Arrays now always interpolate into double-quoted strings
+
+In double-quoted strings, arrays now interpolate, no matter what.  The
+behavior in earlier versions of perl 5 was that arrays would interpolate
+into strings if the array had been mentioned before the string was
+compiled, and otherwise Perl would raise a fatal compile-time error.
+In versions 5.000 through 5.003, the error was
+
+        Literal @example now requires backslash
+
+In versions 5.004_01 through 5.6.0, the error was
+
+        In string, @example now must be written as \@example
+
+The idea here was to get people into the habit of writing
+C<"fred\@example.com"> when they wanted a literal C<@> sign, just as
+they have always written C<"Give me back my \$5"> when they wanted a
+literal C<$> sign.
+
+Starting with 5.6.1, when Perl now sees an C<@> sign in a
+double-quoted string, it I<always> attempts to interpolate an array,
+regardless of whether or not the array has been used or declared
+already.  The fatal error has been downgraded to an optional warning:
+
+        Possible unintended interpolation of @example in string
+
+This warns you that C<"fred@example.com"> is going to turn into
+C<fred.com> if you don't backslash the C<@>.
+See http://perl.plover.com/at-error.html for more details
+about the history here.
+
+=head2 @- and @+ provide starting/ending offsets of regex submatches
+
+The new magic variables @- and @+ provide the starting and ending
+offsets, respectively, of $&, $1, $2, etc.  See L<perlvar> for
+details.
+
+=head1 Modules and Pragmata
+
+=head2 Modules
+
+=over 4
+
+=item attributes
+
+While used internally by Perl as a pragma, this module also
+provides a way to fetch subroutine and variable attributes.
+See L<attributes>.
+
+=item B
+
+The Perl Compiler suite has been extensively reworked for this
+release.  More of the standard Perl test suite passes when run
+under the Compiler, but there is still a significant way to
+go to achieve production quality compiled executables.
+
+    NOTE: The Compiler suite remains highly experimental.  The
+    generated code may not be correct, even when it manages to execute
+    without errors.
+
+=item Benchmark
+
+Overall, Benchmark results exhibit lower average error and better timing
+accuracy.  
+
+You can now run tests for I<n> seconds instead of guessing the right
+number of tests to run: e.g., timethese(-5, ...) will run each 
+code for at least 5 CPU seconds.  Zero as the "number of repetitions"
+means "for at least 3 CPU seconds".  The output format has also
+changed.  For example:
+
+   use Benchmark;$x=3;timethese(-5,{a=>sub{$x*$x},b=>sub{$x**2}})
+
+will now output something like this:
+
+   Benchmark: running a, b, each for at least 5 CPU seconds...
+            a:  5 wallclock secs ( 5.77 usr +  0.00 sys =  5.77 CPU) @ 200551.91/s (n=1156516)
+            b:  4 wallclock secs ( 5.00 usr +  0.02 sys =  5.02 CPU) @ 159605.18/s (n=800686)
+
+New features: "each for at least N CPU seconds...", "wallclock secs",
+and the "@ operations/CPU second (n=operations)".
+
+timethese() now returns a reference to a hash of Benchmark objects containing
+the test results, keyed on the names of the tests.
+
+timethis() now returns the iterations field in the Benchmark result object
+instead of 0.
+
+timethese(), timethis(), and the new cmpthese() (see below) can also take
+a format specifier of 'none' to suppress output.
+
+A new function countit() is just like timeit() except that it takes a
+TIME instead of a COUNT.
+
+A new function cmpthese() prints a chart comparing the results of each test
+returned from a timethese() call.  For each possible pair of tests, the
+percentage speed difference (iters/sec or seconds/iter) is shown.
+
+For other details, see L<Benchmark>.
+
+=item ByteLoader
+
+The ByteLoader is a dedicated extension to generate and run
+Perl bytecode.  See L<ByteLoader>.
+
+=item constant
+
+References can now be used.
+
+The new version also allows a leading underscore in constant names, but
+disallows a double leading underscore (as in "__LINE__").  Some other names
+are disallowed or warned against, including BEGIN, END, etc.  Some names
+which were forced into main:: used to fail silently in some cases; now they're
+fatal (outside of main::) and an optional warning (inside of main::).
+The ability to detect whether a constant had been set with a given name has
+been added.
+
+See L<constant>.
+
+=item charnames
+
+This pragma implements the C<\N> string escape.  See L<charnames>.
+
+=item Data::Dumper
+
+A C<Maxdepth> setting can be specified to avoid venturing
+too deeply into deep data structures.  See L<Data::Dumper>.
+
+The XSUB implementation of Dump() is now automatically called if the
+C<Useqq> setting is not in use.
+
+Dumping C<qr//> objects works correctly.
+
+=item DB
+
+C<DB> is an experimental module that exposes a clean abstraction
+to Perl's debugging API.
+
+=item DB_File
+
+DB_File can now be built with Berkeley DB versions 1, 2 or 3.
+See C<ext/DB_File/Changes>.
+
+=item Devel::DProf
+
+Devel::DProf, a Perl source code profiler has been added.  See
+L<Devel::DProf> and L<dprofpp>.
+
+=item Devel::Peek
+
+The Devel::Peek module provides access to the internal representation
+of Perl variables and data.  It is a data debugging tool for the XS programmer.
+
+=item Dumpvalue
+
+The Dumpvalue module provides screen dumps of Perl data.
+
+=item DynaLoader
+
+DynaLoader now supports a dl_unload_file() function on platforms that
+support unloading shared objects using dlclose().
+
+Perl can also optionally arrange to unload all extension shared objects
+loaded by Perl.  To enable this, build Perl with the Configure option
+C<-Accflags=-DDL_UNLOAD_ALL_AT_EXIT>.  (This maybe useful if you are
+using Apache with mod_perl.)
+
+=item English
+
+$PERL_VERSION now stands for C<$^V> (a string value) rather than for C<$]>
+(a numeric value).
+
+=item Env
+
+Env now supports accessing environment variables like PATH as array
+variables.
+
+=item Fcntl
+
+More Fcntl constants added: F_SETLK64, F_SETLKW64, O_LARGEFILE for
+large file (more than 4GB) access (NOTE: the O_LARGEFILE is
+automatically added to sysopen() flags if large file support has been
+configured, as is the default), Free/Net/OpenBSD locking behaviour
+flags F_FLOCK, F_POSIX, Linux F_SHLCK, and O_ACCMODE: the combined
+mask of O_RDONLY, O_WRONLY, and O_RDWR.  The seek()/sysseek()
+constants SEEK_SET, SEEK_CUR, and SEEK_END are available via the
+C<:seek> tag.  The chmod()/stat() S_IF* constants and S_IS* functions
+are available via the C<:mode> tag.
+
+=item File::Compare
+
+A compare_text() function has been added, which allows custom
+comparison functions.  See L<File::Compare>.
+
+=item File::Find
+
+File::Find now works correctly when the wanted() function is either
+autoloaded or is a symbolic reference.
+
+A bug that caused File::Find to lose track of the working directory
+when pruning top-level directories has been fixed.
+
+File::Find now also supports several other options to control its
+behavior.  It can follow symbolic links if the C<follow> option is
+specified.  Enabling the C<no_chdir> option will make File::Find skip
+changing the current directory when walking directories.  The C<untaint>
+flag can be useful when running with taint checks enabled.
+
+See L<File::Find>.
+
+=item File::Glob
+
+This extension implements BSD-style file globbing.  By default,
+it will also be used for the internal implementation of the glob()
+operator.  See L<File::Glob>.
+
+=item File::Spec
+
+New methods have been added to the File::Spec module: devnull() returns
+the name of the null device (/dev/null on Unix) and tmpdir() the name of
+the temp directory (normally /tmp on Unix).  There are now also methods
+to convert between absolute and relative filenames: abs2rel() and
+rel2abs().  For compatibility with operating systems that specify volume
+names in file paths, the splitpath(), splitdir(), and catdir() methods
+have been added.
+
+=item File::Spec::Functions
+
+The new File::Spec::Functions modules provides a function interface
+to the File::Spec module.  Allows shorthand
+
+    $fullname = catfile($dir1, $dir2, $file);
+
+instead of
+
+    $fullname = File::Spec->catfile($dir1, $dir2, $file);
+
+=item Getopt::Long
+
+Getopt::Long licensing has changed to allow the Perl Artistic License
+as well as the GPL. It used to be GPL only, which got in the way of
+non-GPL applications that wanted to use Getopt::Long.
+
+Getopt::Long encourages the use of Pod::Usage to produce help
+messages. For example:
+
+    use Getopt::Long;
+    use Pod::Usage;
+    my $man = 0;
+    my $help = 0;
+    GetOptions('help|?' => \$help, man => \$man) or pod2usage(2);
+    pod2usage(1) if $help;
+    pod2usage(-exitstatus => 0, -verbose => 2) if $man;
+
+    __END__
+
+    =head1 NAME
+
+    sample - Using Getopt::Long and Pod::Usage
+
+    =head1 SYNOPSIS
+
+    sample [options] [file ...]
+
+     Options:
+       -help            brief help message
+       -man             full documentation
+
+    =head1 OPTIONS
+
+    =over 8
+
+    =item B<-help>
+
+    Print a brief help message and exits.
+
+    =item B<-man>
+
+    Prints the manual page and exits.
+
+    =back
+
+    =head1 DESCRIPTION
+
+    B<This program> will read the given input file(s) and do something
+    useful with the contents thereof.
+
+    =cut
+
+See L<Pod::Usage> for details.
+
+A bug that prevented the non-option call-back <> from being
+specified as the first argument has been fixed.
+
+To specify the characters < and > as option starters, use ><. Note,
+however, that changing option starters is strongly deprecated. 
+
+=item IO
+
+write() and syswrite() will now accept a single-argument
+form of the call, for consistency with Perl's syswrite().
+
+You can now create a TCP-based IO::Socket::INET without forcing
+a connect attempt.  This allows you to configure its options
+(like making it non-blocking) and then call connect() manually.
+
+A bug that prevented the IO::Socket::protocol() accessor
+from ever returning the correct value has been corrected.
+
+IO::Socket::connect now uses non-blocking IO instead of alarm()
+to do connect timeouts.
+
+IO::Socket::accept now uses select() instead of alarm() for doing
+timeouts.
+
+IO::Socket::INET->new now sets $! correctly on failure. $@ is
+still set for backwards compatibility.
+
+=item JPL
+
+Java Perl Lingo is now distributed with Perl.  See jpl/README
+for more information.
+
+=item lib
+
+C<use lib> now weeds out any trailing duplicate entries.
+C<no lib> removes all named entries.
+
+=item Math::BigInt
+
+The bitwise operations C<<< << >>>, C<<< >> >>>, C<&>, C<|>,
+and C<~> are now supported on bigints.
+
+=item Math::Complex
+
+The accessor methods Re, Im, arg, abs, rho, and theta can now also
+act as mutators (accessor $z->Re(), mutator $z->Re(3)).
+
+The class method C<display_format> and the corresponding object method
+C<display_format>, in addition to accepting just one argument, now can
+also accept a parameter hash.  Recognized keys of a parameter hash are
+C<"style">, which corresponds to the old one parameter case, and two
+new parameters: C<"format">, which is a printf()-style format string
+(defaults usually to C<"%.15g">, you can revert to the default by
+setting the format string to C<undef>) used for both parts of a
+complex number, and C<"polar_pretty_print"> (defaults to true),
+which controls whether an attempt is made to try to recognize small
+multiples and rationals of pi (2pi, pi/2) at the argument (angle) of a
+polar complex number.
+
+The potentially disruptive change is that in list context both methods
+now I<return the parameter hash>, instead of only the value of the
+C<"style"> parameter.
+
+=item Math::Trig
+
+A little bit of radial trigonometry (cylindrical and spherical),
+radial coordinate conversions, and the great circle distance were added.
+
+=item Pod::Parser, Pod::InputObjects
+
+Pod::Parser is a base class for parsing and selecting sections of
+pod documentation from an input stream.  This module takes care of
+identifying pod paragraphs and commands in the input and hands off the
+parsed paragraphs and commands to user-defined methods which are free
+to interpret or translate them as they see fit.
+
+Pod::InputObjects defines some input objects needed by Pod::Parser, and
+for advanced users of Pod::Parser that need more about a command besides
+its name and text.
+
+As of release 5.6.0 of Perl, Pod::Parser is now the officially sanctioned
+"base parser code" recommended for use by all pod2xxx translators.
+Pod::Text (pod2text) and Pod::Man (pod2man) have already been converted
+to use Pod::Parser and efforts to convert Pod::HTML (pod2html) are already
+underway.  For any questions or comments about pod parsing and translating
+issues and utilities, please use the pod-people@perl.org mailing list.
+
+For further information, please see L<Pod::Parser> and L<Pod::InputObjects>.
+
+=item Pod::Checker, podchecker
+
+This utility checks pod files for correct syntax, according to
+L<perlpod>.  Obvious errors are flagged as such, while warnings are
+printed for mistakes that can be handled gracefully.  The checklist is
+not complete yet.  See L<Pod::Checker>.
+
+=item Pod::ParseUtils, Pod::Find
+
+These modules provide a set of gizmos that are useful mainly for pod
+translators.  L<Pod::Find|Pod::Find> traverses directory structures and
+returns found pod files, along with their canonical names (like
+C<File::Spec::Unix>).  L<Pod::ParseUtils|Pod::ParseUtils> contains
+B<Pod::List> (useful for storing pod list information), B<Pod::Hyperlink>
+(for parsing the contents of C<LE<lt>E<gt>> sequences) and B<Pod::Cache>
+(for caching information about pod files, e.g., link nodes).
+
+=item Pod::Select, podselect
+
+Pod::Select is a subclass of Pod::Parser which provides a function
+named "podselect()" to filter out user-specified sections of raw pod
+documentation from an input stream. podselect is a script that provides
+access to Pod::Select from other scripts to be used as a filter.
+See L<Pod::Select>.
+
+=item Pod::Usage, pod2usage
+
+Pod::Usage provides the function "pod2usage()" to print usage messages for
+a Perl script based on its embedded pod documentation.  The pod2usage()
+function is generally useful to all script authors since it lets them
+write and maintain a single source (the pods) for documentation, thus
+removing the need to create and maintain redundant usage message text
+consisting of information already in the pods.
+
+There is also a pod2usage script which can be used from other kinds of
+scripts to print usage messages from pods (even for non-Perl scripts
+with pods embedded in comments).
+
+For details and examples, please see L<Pod::Usage>.
+
+=item Pod::Text and Pod::Man
+
+Pod::Text has been rewritten to use Pod::Parser.  While pod2text() is
+still available for backwards compatibility, the module now has a new
+preferred interface.  See L<Pod::Text> for the details.  The new Pod::Text
+module is easily subclassed for tweaks to the output, and two such
+subclasses (Pod::Text::Termcap for man-page-style bold and underlining
+using termcap information, and Pod::Text::Color for markup with ANSI color
+sequences) are now standard.
+
+pod2man has been turned into a module, Pod::Man, which also uses
+Pod::Parser.  In the process, several outstanding bugs related to quotes
+in section headers, quoting of code escapes, and nested lists have been
+fixed.  pod2man is now a wrapper script around this module.
+
+=item SDBM_File
+
+An EXISTS method has been added to this module (and sdbm_exists() has
+been added to the underlying sdbm library), so one can now call exists
+on an SDBM_File tied hash and get the correct result, rather than a
+runtime error.
+
+A bug that may have caused data loss when more than one disk block
+happens to be read from the database in a single FETCH() has been
+fixed.
+
+=item Sys::Syslog
+
+Sys::Syslog now uses XSUBs to access facilities from syslog.h so it
+no longer requires syslog.ph to exist. 
+
+=item Sys::Hostname
+
+Sys::Hostname now uses XSUBs to call the C library's gethostname() or
+uname() if they exist.
+
+=item Term::ANSIColor
+
+Term::ANSIColor is a very simple module to provide easy and readable
+access to the ANSI color and highlighting escape sequences, supported by
+most ANSI terminal emulators.  It is now included standard.
+
+=item Time::Local
+
+The timelocal() and timegm() functions used to silently return bogus
+results when the date fell outside the machine's integer range.  They
+now consistently croak() if the date falls in an unsupported range.
+
+=item Win32
+
+The error return value in list context has been changed for all functions
+that return a list of values.  Previously these functions returned a list
+with a single element C<undef> if an error occurred.  Now these functions
+return the empty list in these situations.  This applies to the following
+functions:
+
+    Win32::FsType
+    Win32::GetOSVersion
+
+The remaining functions are unchanged and continue to return C<undef> on
+error even in list context.
+
+The Win32::SetLastError(ERROR) function has been added as a complement
+to the Win32::GetLastError() function.
+
+The new Win32::GetFullPathName(FILENAME) returns the full absolute
+pathname for FILENAME in scalar context.  In list context it returns
+a two-element list containing the fully qualified directory name and
+the filename.  See L<Win32>.
+
+=item XSLoader
+
+The XSLoader extension is a simpler alternative to DynaLoader.
+See L<XSLoader>.
+
+=item DBM Filters
+
+A new feature called "DBM Filters" has been added to all the
+DBM modules--DB_File, GDBM_File, NDBM_File, ODBM_File, and SDBM_File.
+DBM Filters add four new methods to each DBM module:
+
+    filter_store_key
+    filter_store_value
+    filter_fetch_key
+    filter_fetch_value
+
+These can be used to filter key-value pairs before the pairs are
+written to the database or just after they are read from the database.
+See L<perldbmfilter> for further information.
+
+=back
+
+=head2 Pragmata
+
+C<use attrs> is now obsolete, and is only provided for
+backward-compatibility.  It's been replaced by the C<sub : attributes>
+syntax.  See L<perlsub/"Subroutine Attributes"> and L<attributes>.
+
+Lexical warnings pragma, C<use warnings;>, to control optional warnings.
+See L<perllexwarn>.
+
+C<use filetest> to control the behaviour of filetests (C<-r> C<-w>
+...).  Currently only one subpragma implemented, "use filetest
+'access';", that uses access(2) or equivalent to check permissions
+instead of using stat(2) as usual.  This matters in filesystems
+where there are ACLs (access control lists): the stat(2) might lie,
+but access(2) knows better.
+
+The C<open> pragma can be used to specify default disciplines for
+handle constructors (e.g. open()) and for qx//.  The two
+pseudo-disciplines C<:raw> and C<:crlf> are currently supported on
+DOS-derivative platforms (i.e. where binmode is not a no-op).
+See also L</"binmode() can be used to set :crlf and :raw modes">.
+
+=head1 Utility Changes
+
+=head2 dprofpp
+
+C<dprofpp> is used to display profile data generated using C<Devel::DProf>.
+See L<dprofpp>.
+
+=head2 find2perl
+
+The C<find2perl> utility now uses the enhanced features of the File::Find
+module.  The -depth and -follow options are supported.  Pod documentation
+is also included in the script.
+
+=head2 h2xs
+
+The C<h2xs> tool can now work in conjunction with C<C::Scan> (available
+from CPAN) to automatically parse real-life header files.  The C<-M>,
+C<-a>, C<-k>, and C<-o> options are new.
+
+=head2 perlcc
+
+C<perlcc> now supports the C and Bytecode backends.  By default,
+it generates output from the simple C backend rather than the
+optimized C backend.
+
+Support for non-Unix platforms has been improved.
+
+=head2 perldoc
+
+C<perldoc> has been reworked to avoid possible security holes.
+It will not by default let itself be run as the superuser, but you
+may still use the B<-U> switch to try to make it drop privileges
+first.
+
+=head2 The Perl Debugger
+
+Many bug fixes and enhancements were added to F<perl5db.pl>, the
+Perl debugger.  The help documentation was rearranged.  New commands
+include C<< < ? >>, C<< > ? >>, and C<< { ? >> to list out current
+actions, C<man I<docpage>> to run your doc viewer on some perl
+docset, and support for quoted options.  The help information was
+rearranged, and should be viewable once again if you're using B<less>
+as your pager.  A serious security hole was plugged--you should
+immediately remove all older versions of the Perl debugger as
+installed in previous releases, all the way back to perl3, from
+your system to avoid being bitten by this.
+
+=head1 Improved Documentation
+
+Many of the platform-specific README files are now part of the perl
+installation.  See L<perl> for the complete list.
+
+=over 4
+
+=item perlapi.pod
+
+The official list of public Perl API functions.
+
+=item perlboot.pod
+
+A tutorial for beginners on object-oriented Perl.
+
+=item perlcompile.pod
+
+An introduction to using the Perl Compiler suite.
+
+=item perldbmfilter.pod
+
+A howto document on using the DBM filter facility.
+
+=item perldebug.pod
+
+All material unrelated to running the Perl debugger, plus all
+low-level guts-like details that risked crushing the casual user
+of the debugger, have been relocated from the old manpage to the
+next entry below.
+
+=item perldebguts.pod
+
+This new manpage contains excessively low-level material not related
+to the Perl debugger, but slightly related to debugging Perl itself.
+It also contains some arcane internal details of how the debugging
+process works that may only be of interest to developers of Perl
+debuggers.
+
+=item perlfork.pod
+
+Notes on the fork() emulation currently available for the Windows platform.
+
+=item perlfilter.pod
+
+An introduction to writing Perl source filters.
+
+=item perlhack.pod
+
+Some guidelines for hacking the Perl source code.
+
+=item perlintern.pod
+
+A list of internal functions in the Perl source code.
+(List is currently empty.)
+
+=item perllexwarn.pod
+
+Introduction and reference information about lexically scoped
+warning categories.
+
+=item perlnumber.pod
+
+Detailed information about numbers as they are represented in Perl.
+
+=item perlopentut.pod
+
+A tutorial on using open() effectively.
+
+=item perlreftut.pod
+
+A tutorial that introduces the essentials of references.
+
+=item perltootc.pod
+
+A tutorial on managing class data for object modules.
+
+=item perltodo.pod
+
+Discussion of the most often wanted features that may someday be
+supported in Perl.
+
+=item perlunicode.pod
+
+An introduction to Unicode support features in Perl.
+
+=back
+
+=head1 Performance enhancements
+
+=head2 Simple sort() using { $a <=> $b } and the like are optimized
+
+Many common sort() operations using a simple inlined block are now
+optimized for faster performance.
+
+=head2 Optimized assignments to lexical variables
+
+Certain operations in the RHS of assignment statements have been
+optimized to directly set the lexical variable on the LHS,
+eliminating redundant copying overheads.
+
+=head2 Faster subroutine calls
+
+Minor changes in how subroutine calls are handled internally
+provide marginal improvements in performance.
+
+=head2 delete(), each(), values() and hash iteration are faster
+
+The hash values returned by delete(), each(), values() and hashes in a
+list context are the actual values in the hash, instead of copies.
+This results in significantly better performance, because it eliminates
+needless copying in most situations.
+
+=head1 Installation and Configuration Improvements
+
+=head2 -Dusethreads means something different
+
+The -Dusethreads flag now enables the experimental interpreter-based thread
+support by default.  To get the flavor of experimental threads that was in
+5.005 instead, you need to run Configure with "-Dusethreads -Duse5005threads".
+
+As of v5.6.0, interpreter-threads support is still lacking a way to
+create new threads from Perl (i.e., C<use Thread;> will not work with
+interpreter threads).  C<use Thread;> continues to be available when you
+specify the -Duse5005threads option to Configure, bugs and all.
+
+    NOTE: Support for threads continues to be an experimental feature.
+    Interfaces and implementation are subject to sudden and drastic changes.
+
+=head2 New Configure flags
+
+The following new flags may be enabled on the Configure command line
+by running Configure with C<-Dflag>.
+
+    usemultiplicity
+    usethreads useithreads	(new interpreter threads: no Perl API yet)
+    usethreads use5005threads	(threads as they were in 5.005)
+
+    use64bitint			(equal to now deprecated 'use64bits')
+    use64bitall
+
+    uselongdouble
+    usemorebits
+    uselargefiles
+    usesocks			(only SOCKS v5 supported)
+
+=head2 Threadedness and 64-bitness now more daring
+
+The Configure options enabling the use of threads and the use of
+64-bitness are now more daring in the sense that they no more have an
+explicit list of operating systems of known threads/64-bit
+capabilities.  In other words: if your operating system has the
+necessary APIs and datatypes, you should be able just to go ahead and
+use them, for threads by Configure -Dusethreads, and for 64 bits
+either explicitly by Configure -Duse64bitint or implicitly if your
+system has 64-bit wide datatypes.  See also L<"64-bit support">.
+
+=head2 Long Doubles
+
+Some platforms have "long doubles", floating point numbers of even
+larger range than ordinary "doubles".  To enable using long doubles for
+Perl's scalars, use -Duselongdouble.
+
+=head2 -Dusemorebits
+
+You can enable both -Duse64bitint and -Duselongdouble with -Dusemorebits.
+See also L<"64-bit support">.
+
+=head2 -Duselargefiles
+
+Some platforms support system APIs that are capable of handling large files
+(typically, files larger than two gigabytes).  Perl will try to use these
+APIs if you ask for -Duselargefiles.
+
+See L<"Large file support"> for more information. 
+
+=head2 installusrbinperl
+
+You can use "Configure -Uinstallusrbinperl" which causes installperl
+to skip installing perl also as /usr/bin/perl.  This is useful if you
+prefer not to modify /usr/bin for some reason or another but harmful
+because many scripts assume to find Perl in /usr/bin/perl.
+
+=head2 SOCKS support
+
+You can use "Configure -Dusesocks" which causes Perl to probe
+for the SOCKS proxy protocol library (v5, not v4).  For more information
+on SOCKS, see:
+
+    http://www.socks.nec.com/
+
+=head2 C<-A> flag
+
+You can "post-edit" the Configure variables using the Configure C<-A>
+switch.  The editing happens immediately after the platform specific
+hints files have been processed but before the actual configuration
+process starts.  Run C<Configure -h> to find out the full C<-A> syntax.
+
+=head2 Enhanced Installation Directories
+
+The installation structure has been enriched to improve the support
+for maintaining multiple versions of perl, to provide locations for
+vendor-supplied modules, scripts, and manpages, and to ease maintenance
+of locally-added modules, scripts, and manpages.  See the section on
+Installation Directories in the INSTALL file for complete details.
+For most users building and installing from source, the defaults should
+be fine.
+
+If you previously used C<Configure -Dsitelib> or C<-Dsitearch> to set
+special values for library directories, you might wish to consider using
+the new C<-Dsiteprefix> setting instead.  Also, if you wish to re-use a
+config.sh file from an earlier version of perl, you should be sure to
+check that Configure makes sensible choices for the new directories.
+See INSTALL for complete details.
+
+=head2 gcc automatically tried if 'cc' does not seem to be working
+
+In many platforms the vendor-supplied 'cc' is too stripped-down to
+build Perl (basically, the 'cc' doesn't do ANSI C).  If this seems
+to be the case and the 'cc' does not seem to be the GNU C compiler
+'gcc', an automatic attempt is made to find and use 'gcc' instead.
+
+=head1 Platform specific changes
+
+=head2 Supported platforms
+
+=over 4
+
+=item *
+
+The Mach CThreads (NEXTSTEP, OPENSTEP) are now supported by the Thread
+extension.
+
+=item *
+
+GNU/Hurd is now supported.
+
+=item *
+
+Rhapsody/Darwin is now supported.
+
+=item *
+
+EPOC is now supported (on Psion 5).
+
+=item *
+
+The cygwin port (formerly cygwin32) has been greatly improved.
+
+=back
+
+=head2 DOS
+
+=over 4
+
+=item *
+
+Perl now works with djgpp 2.02 (and 2.03 alpha).
+
+=item *
+
+Environment variable names are not converted to uppercase any more.
+
+=item *
+
+Incorrect exit codes from backticks have been fixed.
+
+=item *
+
+This port continues to use its own builtin globbing (not File::Glob).
+
+=back
+
+=head2 OS390 (OpenEdition MVS)
+
+Support for this EBCDIC platform has not been renewed in this release.
+There are difficulties in reconciling Perl's standardization on UTF-8
+as its internal representation for characters with the EBCDIC character
+set, because the two are incompatible.
+
+It is unclear whether future versions will renew support for this
+platform, but the possibility exists.
+
+=head2 VMS
+
+Numerous revisions and extensions to configuration, build, testing, and
+installation process to accommodate core changes and VMS-specific options.
+
+Expand %ENV-handling code to allow runtime mapping to logical names,
+CLI symbols, and CRTL environ array.
+
+Extension of subprocess invocation code to accept filespecs as command
+"verbs".
+
+Add to Perl command line processing the ability to use default file types and
+to recognize Unix-style C<2E<gt>&1>.
+
+Expansion of File::Spec::VMS routines, and integration into ExtUtils::MM_VMS.
+
+Extension of ExtUtils::MM_VMS to handle complex extensions more flexibly.
+
+Barewords at start of Unix-syntax paths may be treated as text rather than
+only as logical names.
+
+Optional secure translation of several logical names used internally by Perl.
+
+Miscellaneous bugfixing and porting of new core code to VMS.
+
+Thanks are gladly extended to the many people who have contributed VMS
+patches, testing, and ideas.
+
+=head2 Win32
+
+Perl can now emulate fork() internally, using multiple interpreters running
+in different concurrent threads.  This support must be enabled at build
+time.  See L<perlfork> for detailed information.
+
+When given a pathname that consists only of a drivename, such as C<A:>,
+opendir() and stat() now use the current working directory for the drive
+rather than the drive root.
+
+The builtin XSUB functions in the Win32:: namespace are documented.  See
+L<Win32>.
+
+$^X now contains the full path name of the running executable.
+
+A Win32::GetLongPathName() function is provided to complement
+Win32::GetFullPathName() and Win32::GetShortPathName().  See L<Win32>.
+
+POSIX::uname() is supported.
+
+system(1,...) now returns true process IDs rather than process
+handles.  kill() accepts any real process id, rather than strictly
+return values from system(1,...).
+
+For better compatibility with Unix, C<kill(0, $pid)> can now be used to
+test whether a process exists.
+
+The C<Shell> module is supported.
+
+Better support for building Perl under command.com in Windows 95
+has been added.
+
+Scripts are read in binary mode by default to allow ByteLoader (and
+the filter mechanism in general) to work properly.  For compatibility,
+the DATA filehandle will be set to text mode if a carriage return is
+detected at the end of the line containing the __END__ or __DATA__
+token; if not, the DATA filehandle will be left open in binary mode.
+Earlier versions always opened the DATA filehandle in text mode.
+
+The glob() operator is implemented via the C<File::Glob> extension,
+which supports glob syntax of the C shell.  This increases the flexibility
+of the glob() operator, but there may be compatibility issues for
+programs that relied on the older globbing syntax.  If you want to
+preserve compatibility with the older syntax, you might want to run
+perl with C<-MFile::DosGlob>.  For details and compatibility information,
+see L<File::Glob>.
+
+=head1 Significant bug fixes
+
+=head2 <HANDLE> on empty files
+
+With C<$/> set to C<undef>, "slurping" an empty file returns a string of
+zero length (instead of C<undef>, as it used to) the first time the
+HANDLE is read after C<$/> is set to C<undef>.  Further reads yield
+C<undef>.
+
+This means that the following will append "foo" to an empty file (it used
+to do nothing):
+
+    perl -0777 -pi -e 's/^/foo/' empty_file
+
+The behaviour of:
+
+    perl -pi -e 's/^/foo/' empty_file
+
+is unchanged (it continues to leave the file empty).
+
+=head2 C<eval '...'> improvements
+
+Line numbers (as reflected by caller() and most diagnostics) within
+C<eval '...'> were often incorrect where here documents were involved.
+This has been corrected.
+
+Lexical lookups for variables appearing in C<eval '...'> within
+functions that were themselves called within an C<eval '...'> were
+searching the wrong place for lexicals.  The lexical search now
+correctly ends at the subroutine's block boundary.
+
+The use of C<return> within C<eval {...}> caused $@ not to be reset
+correctly when no exception occurred within the eval.  This has
+been fixed.
+
+Parsing of here documents used to be flawed when they appeared as
+the replacement expression in C<eval 's/.../.../e'>.  This has
+been fixed.
+
+=head2 All compilation errors are true errors
+
+Some "errors" encountered at compile time were by necessity 
+generated as warnings followed by eventual termination of the
+program.  This enabled more such errors to be reported in a
+single run, rather than causing a hard stop at the first error
+that was encountered.
+
+The mechanism for reporting such errors has been reimplemented
+to queue compile-time errors and report them at the end of the
+compilation as true errors rather than as warnings.  This fixes
+cases where error messages leaked through in the form of warnings
+when code was compiled at run time using C<eval STRING>, and
+also allows such errors to be reliably trapped using C<eval "...">.
+
+=head2 Implicitly closed filehandles are safer
+
+Sometimes implicitly closed filehandles (as when they are localized,
+and Perl automatically closes them on exiting the scope) could
+inadvertently set $? or $!.  This has been corrected.
+
+
+=head2 Behavior of list slices is more consistent
+
+When taking a slice of a literal list (as opposed to a slice of
+an array or hash), Perl used to return an empty list if the
+result happened to be composed of all undef values.
+
+The new behavior is to produce an empty list if (and only if)
+the original list was empty.  Consider the following example:
+
+    @a = (1,undef,undef,2)[2,1,2];
+
+The old behavior would have resulted in @a having no elements.
+The new behavior ensures it has three undefined elements.
+
+Note in particular that the behavior of slices of the following
+cases remains unchanged:
+
+    @a = ()[1,2];
+    @a = (getpwent)[7,0];
+    @a = (anything_returning_empty_list())[2,1,2];
+    @a = @b[2,1,2];
+    @a = @c{'a','b','c'};
+
+See L<perldata>.
+
+=head2 C<(\$)> prototype and C<$foo{a}>
+
+A scalar reference prototype now correctly allows a hash or
+array element in that slot.
+
+=head2 C<goto &sub> and AUTOLOAD
+
+The C<goto &sub> construct works correctly when C<&sub> happens
+to be autoloaded.
+
+=head2 C<-bareword> allowed under C<use integer>
+
+The autoquoting of barewords preceded by C<-> did not work
+in prior versions when the C<integer> pragma was enabled.
+This has been fixed.
+
+=head2 Failures in DESTROY()
+
+When code in a destructor threw an exception, it went unnoticed
+in earlier versions of Perl, unless someone happened to be
+looking in $@ just after the point the destructor happened to
+run.  Such failures are now visible as warnings when warnings are
+enabled.
+
+=head2 Locale bugs fixed
+
+printf() and sprintf() previously reset the numeric locale
+back to the default "C" locale.  This has been fixed.
+
+Numbers formatted according to the local numeric locale
+(such as using a decimal comma instead of a decimal dot) caused
+"isn't numeric" warnings, even while the operations accessing
+those numbers produced correct results.  These warnings have been
+discontinued.
+
+=head2 Memory leaks
+
+The C<eval 'return sub {...}'> construct could sometimes leak
+memory.  This has been fixed.
+
+Operations that aren't filehandle constructors used to leak memory
+when used on invalid filehandles.  This has been fixed.
+
+Constructs that modified C<@_> could fail to deallocate values
+in C<@_> and thus leak memory.  This has been corrected.
+
+=head2 Spurious subroutine stubs after failed subroutine calls
+
+Perl could sometimes create empty subroutine stubs when a
+subroutine was not found in the package.  Such cases stopped
+later method lookups from progressing into base packages.
+This has been corrected.
+
+=head2 Taint failures under C<-U>
+
+When running in unsafe mode, taint violations could sometimes
+cause silent failures.  This has been fixed.
+
+=head2 END blocks and the C<-c> switch
+
+Prior versions used to run BEGIN B<and> END blocks when Perl was
+run in compile-only mode.  Since this is typically not the expected
+behavior, END blocks are not executed anymore when the C<-c> switch
+is used, or if compilation fails.
+
+See L</"Support for CHECK blocks"> for how to run things when the compile 
+phase ends.
+
+=head2 Potential to leak DATA filehandles
+
+Using the C<__DATA__> token creates an implicit filehandle to
+the file that contains the token.  It is the program's
+responsibility to close it when it is done reading from it.
+
+This caveat is now better explained in the documentation.
+See L<perldata>.
+
+=head1 New or Changed Diagnostics
+
+=over 4
+
+=item "%s" variable %s masks earlier declaration in same %s
+
+(W misc) A "my" or "our" variable has been redeclared in the current scope or statement,
+effectively eliminating all access to the previous instance.  This is almost
+always a typographical error.  Note that the earlier variable will still exist
+until the end of the scope or until all closure referents to it are
+destroyed.
+
+=item "my sub" not yet implemented
+
+(F) Lexically scoped subroutines are not yet implemented.  Don't try that
+yet.
+
+=item "our" variable %s redeclared
+
+(W misc) You seem to have already declared the same global once before in the
+current lexical scope.
+
+=item '!' allowed only after types %s
+
+(F) The '!' is allowed in pack() and unpack() only after certain types.
+See L<perlfunc/pack>.
+
+=item / cannot take a count
+
+(F) You had an unpack template indicating a counted-length string,
+but you have also specified an explicit size for the string.
+See L<perlfunc/pack>.
+
+=item / must be followed by a, A or Z
+
+(F) You had an unpack template indicating a counted-length string,
+which must be followed by one of the letters a, A or Z
+to indicate what sort of string is to be unpacked.
+See L<perlfunc/pack>.
+
+=item / must be followed by a*, A* or Z*
+
+(F) You had a pack template indicating a counted-length string,
+Currently the only things that can have their length counted are a*, A* or Z*.
+See L<perlfunc/pack>.
+
+=item / must follow a numeric type
+
+(F) You had an unpack template that contained a '#',
+but this did not follow some numeric unpack specification.
+See L<perlfunc/pack>.
+
+=item /%s/: Unrecognized escape \\%c passed through
+
+(W regexp) You used a backslash-character combination which is not recognized
+by Perl.  This combination appears in an interpolated variable or a
+C<'>-delimited regular expression.  The character was understood literally.
+
+=item /%s/: Unrecognized escape \\%c in character class passed through
+
+(W regexp) You used a backslash-character combination which is not recognized
+by Perl inside character classes.  The character was understood literally.
+
+=item /%s/ should probably be written as "%s"
+
+(W syntax) You have used a pattern where Perl expected to find a string,
+as in the first argument to C<join>.  Perl will treat the true
+or false result of matching the pattern against $_ as the string,
+which is probably not what you had in mind.
+
+=item %s() called too early to check prototype
+
+(W prototype) You've called a function that has a prototype before the parser saw a
+definition or declaration for it, and Perl could not check that the call
+conforms to the prototype.  You need to either add an early prototype
+declaration for the subroutine in question, or move the subroutine
+definition ahead of the call to get proper prototype checking.  Alternatively,
+if you are certain that you're calling the function correctly, you may put
+an ampersand before the name to avoid the warning.  See L<perlsub>.
+
+=item %s argument is not a HASH or ARRAY element
+
+(F) The argument to exists() must be a hash or array element, such as:
+
+    $foo{$bar}
+    $ref->{"susie"}[12]
+
+=item %s argument is not a HASH or ARRAY element or slice
+
+(F) The argument to delete() must be either a hash or array element, such as:
+
+    $foo{$bar}
+    $ref->{"susie"}[12]
+
+or a hash or array slice, such as:
+
+    @foo[$bar, $baz, $xyzzy]
+    @{$ref->[12]}{"susie", "queue"}
+
+=item %s argument is not a subroutine name
+
+(F) The argument to exists() for C<exists &sub> must be a subroutine
+name, and not a subroutine call.  C<exists &sub()> will generate this error.
+
+=item %s package attribute may clash with future reserved word: %s
+
+(W reserved) A lowercase attribute name was used that had a package-specific handler.
+That name might have a meaning to Perl itself some day, even though it
+doesn't yet.  Perhaps you should use a mixed-case attribute name, instead.
+See L<attributes>.
+
+=item (in cleanup) %s
+
+(W misc) This prefix usually indicates that a DESTROY() method raised
+the indicated exception.  Since destructors are usually called by
+the system at arbitrary points during execution, and often a vast
+number of times, the warning is issued only once for any number
+of failures that would otherwise result in the same message being
+repeated.
+
+Failure of user callbacks dispatched using the C<G_KEEPERR> flag
+could also result in this warning.  See L<perlcall/G_KEEPERR>.
+
+=item <> should be quotes
+
+(F) You wrote C<< require <file> >> when you should have written
+C<require 'file'>.
+
+=item Attempt to join self
+
+(F) You tried to join a thread from within itself, which is an
+impossible task.  You may be joining the wrong thread, or you may
+need to move the join() to some other thread.
+
+=item Bad evalled substitution pattern
+
+(F) You've used the /e switch to evaluate the replacement for a
+substitution, but perl found a syntax error in the code to evaluate,
+most likely an unexpected right brace '}'.
+
+=item Bad realloc() ignored
+
+(S) An internal routine called realloc() on something that had never been
+malloc()ed in the first place. Mandatory, but can be disabled by
+setting environment variable C<PERL_BADFREE> to 1.
+
+=item Bareword found in conditional
+
+(W bareword) The compiler found a bareword where it expected a conditional,
+which often indicates that an || or && was parsed as part of the
+last argument of the previous construct, for example:
+
+    open FOO || die;
+
+It may also indicate a misspelled constant that has been interpreted
+as a bareword:
+
+    use constant TYPO => 1;
+    if (TYOP) { print "foo" }
+
+The C<strict> pragma is useful in avoiding such errors.
+
+=item Binary number > 0b11111111111111111111111111111111 non-portable
+
+(W portable) The binary number you specified is larger than 2**32-1
+(4294967295) and therefore non-portable between systems.  See
+L<perlport> for more on portability concerns.
+
+=item Bit vector size > 32 non-portable
+
+(W portable) Using bit vector sizes larger than 32 is non-portable.
+
+=item Buffer overflow in prime_env_iter: %s
+
+(W internal) A warning peculiar to VMS.  While Perl was preparing to iterate over
+%ENV, it encountered a logical name or symbol definition which was too long,
+so it was truncated to the string shown.
+
+=item Can't check filesystem of script "%s"
+
+(P) For some reason you can't check the filesystem of the script for nosuid.
+
+=item Can't declare class for non-scalar %s in "%s"
+
+(S) Currently, only scalar variables can declared with a specific class
+qualifier in a "my" or "our" declaration.  The semantics may be extended
+for other types of variables in future.
+
+=item Can't declare %s in "%s"
+
+(F) Only scalar, array, and hash variables may be declared as "my" or
+"our" variables.  They must have ordinary identifiers as names.
+
+=item Can't ignore signal CHLD, forcing to default
+
+(W signal) Perl has detected that it is being run with the SIGCHLD signal
+(sometimes known as SIGCLD) disabled.  Since disabling this signal
+will interfere with proper determination of exit status of child
+processes, Perl has reset the signal to its default value.
+This situation typically indicates that the parent program under
+which Perl may be running (e.g., cron) is being very careless.
+
+=item Can't modify non-lvalue subroutine call
+
+(F) Subroutines meant to be used in lvalue context should be declared as
+such, see L<perlsub/"Lvalue subroutines">.
+
+=item Can't read CRTL environ
+
+(S) A warning peculiar to VMS.  Perl tried to read an element of %ENV
+from the CRTL's internal environment array and discovered the array was
+missing.  You need to figure out where your CRTL misplaced its environ
+or define F<PERL_ENV_TABLES> (see L<perlvms>) so that environ is not searched.
+
+=item Can't remove %s: %s, skipping file 
+
+(S) You requested an inplace edit without creating a backup file.  Perl
+was unable to remove the original file to replace it with the modified
+file.  The file was left unmodified.
+
+=item Can't return %s from lvalue subroutine
+
+(F) Perl detected an attempt to return illegal lvalues (such
+as temporary or readonly values) from a subroutine used as an lvalue.
+This is not allowed.
+
+=item Can't weaken a nonreference
+
+(F) You attempted to weaken something that was not a reference.  Only
+references can be weakened.
+
+=item Character class [:%s:] unknown
+
+(F) The class in the character class [: :] syntax is unknown.
+See L<perlre>.
+
+=item Character class syntax [%s] belongs inside character classes
+
+(W unsafe) The character class constructs [: :], [= =], and [. .]  go
+I<inside> character classes, the [] are part of the construct,
+for example: /[012[:alpha:]345]/.  Note that [= =] and [. .]
+are not currently implemented; they are simply placeholders for
+future extensions.
+
+=item Constant is not %s reference
+
+(F) A constant value (perhaps declared using the C<use constant> pragma)
+is being dereferenced, but it amounts to the wrong type of reference.  The
+message indicates the type of reference that was expected. This usually
+indicates a syntax error in dereferencing the constant value.
+See L<perlsub/"Constant Functions"> and L<constant>.
+
+=item constant(%s): %s
+
+(F) The parser found inconsistencies either while attempting to define an
+overloaded constant, or when trying to find the character name specified
+in the C<\N{...}> escape.  Perhaps you forgot to load the corresponding
+C<overload> or C<charnames> pragma?  See L<charnames> and L<overload>.
+
+=item CORE::%s is not a keyword
+
+(F) The CORE:: namespace is reserved for Perl keywords.
+
+=item defined(@array) is deprecated
+
+(D) defined() is not usually useful on arrays because it checks for an
+undefined I<scalar> value.  If you want to see if the array is empty,
+just use C<if (@array) { # not empty }> for example.  
+
+=item defined(%hash) is deprecated
+
+(D) defined() is not usually useful on hashes because it checks for an
+undefined I<scalar> value.  If you want to see if the hash is empty,
+just use C<if (%hash) { # not empty }> for example.  
+
+=item Did not produce a valid header
+
+See Server error.
+
+=item (Did you mean "local" instead of "our"?)
+
+(W misc) Remember that "our" does not localize the declared global variable.
+You have declared it again in the same lexical scope, which seems superfluous.
+
+=item Document contains no data
+
+See Server error.
+
+=item entering effective %s failed
+
+(F) While under the C<use filetest> pragma, switching the real and
+effective uids or gids failed.
+
+=item false [] range "%s" in regexp
+
+(W regexp) A character class range must start and end at a literal character, not
+another character class like C<\d> or C<[:alpha:]>.  The "-" in your false
+range is interpreted as a literal "-".  Consider quoting the "-",  "\-".
+See L<perlre>.
+
+=item Filehandle %s opened only for output
+
+(W io) You tried to read from a filehandle opened only for writing.  If you
+intended it to be a read/write filehandle, you needed to open it with
+"+<" or "+>" or "+>>" instead of with "<" or nothing.  If
+you intended only to read from the file, use "<".  See
+L<perlfunc/open>.
+
+=item flock() on closed filehandle %s
+
+(W closed) The filehandle you're attempting to flock() got itself closed some
+time before now.  Check your logic flow.  flock() operates on filehandles.
+Are you attempting to call flock() on a dirhandle by the same name?
+
+=item Global symbol "%s" requires explicit package name
+
+(F) You've said "use strict vars", which indicates that all variables
+must either be lexically scoped (using "my"), declared beforehand using
+"our", or explicitly qualified to say which package the global variable
+is in (using "::").
+
+=item Hexadecimal number > 0xffffffff non-portable
+
+(W portable) The hexadecimal number you specified is larger than 2**32-1
+(4294967295) and therefore non-portable between systems.  See
+L<perlport> for more on portability concerns.
+
+=item Ill-formed CRTL environ value "%s"
+
+(W internal) A warning peculiar to VMS.  Perl tried to read the CRTL's internal
+environ array, and encountered an element without the C<=> delimiter
+used to separate keys from values.  The element is ignored.
+
+=item Ill-formed message in prime_env_iter: |%s|
+
+(W internal) A warning peculiar to VMS.  Perl tried to read a logical name
+or CLI symbol definition when preparing to iterate over %ENV, and
+didn't see the expected delimiter between key and value, so the
+line was ignored.
+
+=item Illegal binary digit %s
+
+(F) You used a digit other than 0 or 1 in a binary number.
+
+=item Illegal binary digit %s ignored
+
+(W digit) You may have tried to use a digit other than 0 or 1 in a binary number.
+Interpretation of the binary number stopped before the offending digit.
+
+=item Illegal number of bits in vec
+
+(F) The number of bits in vec() (the third argument) must be a power of
+two from 1 to 32 (or 64, if your platform supports that).
+
+=item Integer overflow in %s number
+
+(W overflow) The hexadecimal, octal or binary number you have specified either
+as a literal or as an argument to hex() or oct() is too big for your
+architecture, and has been converted to a floating point number.  On a
+32-bit architecture the largest hexadecimal, octal or binary number
+representable without overflow is 0xFFFFFFFF, 037777777777, or
+0b11111111111111111111111111111111 respectively.  Note that Perl
+transparently promotes all numbers to a floating point representation
+internally--subject to loss of precision errors in subsequent
+operations.
+
+=item Invalid %s attribute: %s
+
+The indicated attribute for a subroutine or variable was not recognized
+by Perl or by a user-supplied handler.  See L<attributes>.
+
+=item Invalid %s attributes: %s
+
+The indicated attributes for a subroutine or variable were not recognized
+by Perl or by a user-supplied handler.  See L<attributes>.
+
+=item invalid [] range "%s" in regexp
+
+The offending range is now explicitly displayed.
+
+=item Invalid separator character %s in attribute list
+
+(F) Something other than a colon or whitespace was seen between the
+elements of an attribute list.  If the previous attribute
+had a parenthesised parameter list, perhaps that list was terminated
+too soon.  See L<attributes>.
+
+=item Invalid separator character %s in subroutine attribute list
+
+(F) Something other than a colon or whitespace was seen between the
+elements of a subroutine attribute list.  If the previous attribute
+had a parenthesised parameter list, perhaps that list was terminated
+too soon.
+
+=item leaving effective %s failed
+
+(F) While under the C<use filetest> pragma, switching the real and
+effective uids or gids failed.
+
+=item Lvalue subs returning %s not implemented yet
+
+(F) Due to limitations in the current implementation, array and hash
+values cannot be returned in subroutines used in lvalue context.
+See L<perlsub/"Lvalue subroutines">.
+
+=item Method %s not permitted
+
+See Server error.
+
+=item Missing %sbrace%s on \N{}
+
+(F) Wrong syntax of character name literal C<\N{charname}> within
+double-quotish context.
+
+=item Missing command in piped open
+
+(W pipe) You used the C<open(FH, "| command")> or C<open(FH, "command |")>
+construction, but the command was missing or blank.
+
+=item Missing name in "my sub"
+
+(F) The reserved syntax for lexically scoped subroutines requires that they
+have a name with which they can be found.
+
+=item No %s specified for -%c
+
+(F) The indicated command line switch needs a mandatory argument, but
+you haven't specified one.
+
+=item No package name allowed for variable %s in "our"
+
+(F) Fully qualified variable names are not allowed in "our" declarations,
+because that doesn't make much sense under existing semantics.  Such
+syntax is reserved for future extensions.
+
+=item No space allowed after -%c
+
+(F) The argument to the indicated command line switch must follow immediately
+after the switch, without intervening spaces.
+
+=item no UTC offset information; assuming local time is UTC
+
+(S) A warning peculiar to VMS.  Perl was unable to find the local
+timezone offset, so it's assuming that local system time is equivalent
+to UTC.  If it's not, define the logical name F<SYS$TIMEZONE_DIFFERENTIAL>
+to translate to the number of seconds which need to be added to UTC to
+get local time.
+
+=item Octal number > 037777777777 non-portable
+
+(W portable) The octal number you specified is larger than 2**32-1 (4294967295)
+and therefore non-portable between systems.  See L<perlport> for more
+on portability concerns.
+
+See also L<perlport> for writing portable code.
+
+=item panic: del_backref
+
+(P) Failed an internal consistency check while trying to reset a weak
+reference.
+
+=item panic: kid popen errno read
+
+(F) forked child returned an incomprehensible message about its errno.
+
+=item panic: magic_killbackrefs
+
+(P) Failed an internal consistency check while trying to reset all weak
+references to an object.
+
+=item Parentheses missing around "%s" list
+
+(W parenthesis) You said something like
+
+    my $foo, $bar = @_;
+
+when you meant
+
+    my ($foo, $bar) = @_;
+
+Remember that "my", "our", and "local" bind tighter than comma.
+
+=item Possible unintended interpolation of %s in string
+
+(W ambiguous) It used to be that Perl would try to guess whether you
+wanted an array interpolated or a literal @.  It no longer does this;
+arrays are now I<always> interpolated into strings.  This means that 
+if you try something like:
+
+        print "fred@example.com";
+
+and the array C<@example> doesn't exist, Perl is going to print
+C<fred.com>, which is probably not what you wanted.  To get a literal
+C<@> sign in a string, put a backslash before it, just as you would
+to get a literal C<$> sign.
+
+=item Possible Y2K bug: %s
+
+(W y2k) You are concatenating the number 19 with another number, which
+could be a potential Year 2000 problem.
+
+=item pragma "attrs" is deprecated, use "sub NAME : ATTRS" instead
+
+(W deprecated) You have written something like this:
+
+    sub doit
+    {
+        use attrs qw(locked);
+    }
+
+You should use the new declaration syntax instead.
+
+    sub doit : locked
+    {
+        ...
+
+The C<use attrs> pragma is now obsolete, and is only provided for
+backward-compatibility. See L<perlsub/"Subroutine Attributes">.
+
+=item Premature end of script headers
+
+See Server error.
+
+=item Repeat count in pack overflows
+
+(F) You can't specify a repeat count so large that it overflows
+your signed integers.  See L<perlfunc/pack>.
+
+=item Repeat count in unpack overflows
+
+(F) You can't specify a repeat count so large that it overflows
+your signed integers.  See L<perlfunc/unpack>.
+
+=item realloc() of freed memory ignored
+
+(S) An internal routine called realloc() on something that had already
+been freed.
+
+=item Reference is already weak
+
+(W misc) You have attempted to weaken a reference that is already weak.
+Doing so has no effect.
+
+=item setpgrp can't take arguments
+
+(F) Your system has the setpgrp() from BSD 4.2, which takes no arguments,
+unlike POSIX setpgid(), which takes a process ID and process group ID.
+
+=item Strange *+?{} on zero-length expression
+
+(W regexp) You applied a regular expression quantifier in a place where it
+makes no sense, such as on a zero-width assertion.
+Try putting the quantifier inside the assertion instead.  For example,
+the way to match "abc" provided that it is followed by three
+repetitions of "xyz" is C</abc(?=(?:xyz){3})/>, not C</abc(?=xyz){3}/>.
+
+=item switching effective %s is not implemented
+
+(F) While under the C<use filetest> pragma, we cannot switch the
+real and effective uids or gids.
+
+=item This Perl can't reset CRTL environ elements (%s)
+
+=item This Perl can't set CRTL environ elements (%s=%s)
+
+(W internal) Warnings peculiar to VMS.  You tried to change or delete an element
+of the CRTL's internal environ array, but your copy of Perl wasn't
+built with a CRTL that contained the setenv() function.  You'll need to
+rebuild Perl with a CRTL that does, or redefine F<PERL_ENV_TABLES> (see
+L<perlvms>) so that the environ array isn't the target of the change to
+%ENV which produced the warning.
+
+=item Too late to run %s block
+
+(W void) A CHECK or INIT block is being defined during run time proper,
+when the opportunity to run them has already passed.  Perhaps you are
+loading a file with C<require> or C<do> when you should be using
+C<use> instead.  Or perhaps you should put the C<require> or C<do>
+inside a BEGIN block.
+
+=item Unknown open() mode '%s'
+
+(F) The second argument of 3-argument open() is not among the list
+of valid modes: C<< < >>, C<< > >>, C<<< >> >>>, C<< +< >>,
+C<< +> >>, C<<< +>> >>>, C<-|>, C<|->.
+
+=item Unknown process %x sent message to prime_env_iter: %s
+
+(P) An error peculiar to VMS.  Perl was reading values for %ENV before
+iterating over it, and someone else stuck a message in the stream of
+data Perl expected.  Someone's very confused, or perhaps trying to
+subvert Perl's population of %ENV for nefarious purposes.
+
+=item Unrecognized escape \\%c passed through
+
+(W misc) You used a backslash-character combination which is not recognized
+by Perl.  The character was understood literally.
+
+=item Unterminated attribute parameter in attribute list
+
+(F) The lexer saw an opening (left) parenthesis character while parsing an
+attribute list, but the matching closing (right) parenthesis
+character was not found.  You may need to add (or remove) a backslash
+character to get your parentheses to balance.  See L<attributes>.
+
+=item Unterminated attribute list
+
+(F) The lexer found something other than a simple identifier at the start
+of an attribute, and it wasn't a semicolon or the start of a
+block.  Perhaps you terminated the parameter list of the previous attribute
+too soon.  See L<attributes>.
+
+=item Unterminated attribute parameter in subroutine attribute list
+
+(F) The lexer saw an opening (left) parenthesis character while parsing a
+subroutine attribute list, but the matching closing (right) parenthesis
+character was not found.  You may need to add (or remove) a backslash
+character to get your parentheses to balance.
+
+=item Unterminated subroutine attribute list
+
+(F) The lexer found something other than a simple identifier at the start
+of a subroutine attribute, and it wasn't a semicolon or the start of a
+block.  Perhaps you terminated the parameter list of the previous attribute
+too soon.
+
+=item Value of CLI symbol "%s" too long
+
+(W misc) A warning peculiar to VMS.  Perl tried to read the value of an %ENV
+element from a CLI symbol table, and found a resultant string longer
+than 1024 characters.  The return value has been truncated to 1024
+characters.
+
+=item Version number must be a constant number
+
+(P) The attempt to translate a C<use Module n.n LIST> statement into
+its equivalent C<BEGIN> block found an internal inconsistency with
+the version number.
+
+=back
+
+=head1 New tests
+
+=over 4
+
+=item	lib/attrs
+
+Compatibility tests for C<sub : attrs> vs the older C<use attrs>.
+
+=item	lib/env
+
+Tests for new environment scalar capability (e.g., C<use Env qw($BAR);>).
+
+=item	lib/env-array
+
+Tests for new environment array capability (e.g., C<use Env qw(@PATH);>).
+
+=item	lib/io_const
+
+IO constants (SEEK_*, _IO*).
+
+=item	lib/io_dir
+
+Directory-related IO methods (new, read, close, rewind, tied delete).
+
+=item	lib/io_multihomed
+
+INET sockets with multi-homed hosts.
+
+=item	lib/io_poll
+
+IO poll().
+
+=item	lib/io_unix
+
+UNIX sockets.
+
+=item	op/attrs
+
+Regression tests for C<my ($x,@y,%z) : attrs> and <sub : attrs>.
+
+=item	op/filetest
+
+File test operators.
+
+=item	op/lex_assign
+
+Verify operations that access pad objects (lexicals and temporaries).
+
+=item	op/exists_sub
+
+Verify C<exists &sub> operations.
+
+=back
+
+=head1 Incompatible Changes
+
+=head2 Perl Source Incompatibilities
+
+Beware that any new warnings that have been added or old ones
+that have been enhanced are B<not> considered incompatible changes.
+
+Since all new warnings must be explicitly requested via the C<-w>
+switch or the C<warnings> pragma, it is ultimately the programmer's
+responsibility to ensure that warnings are enabled judiciously.
+
+=over 4
+
+=item CHECK is a new keyword
+
+All subroutine definitions named CHECK are now special.  See
+C</"Support for CHECK blocks"> for more information.
+
+=item Treatment of list slices of undef has changed
+
+There is a potential incompatibility in the behavior of list slices
+that are comprised entirely of undefined values.
+See L</"Behavior of list slices is more consistent">.
+
+=item Format of $English::PERL_VERSION is different
+
+The English module now sets $PERL_VERSION to $^V (a string value) rather
+than C<$]> (a numeric value).  This is a potential incompatibility.
+Send us a report via perlbug if you are affected by this.
+
+See L</"Improved Perl version numbering system"> for the reasons for
+this change.
+
+=item Literals of the form C<1.2.3> parse differently
+
+Previously, numeric literals with more than one dot in them were
+interpreted as a floating point number concatenated with one or more
+numbers.  Such "numbers" are now parsed as strings composed of the
+specified ordinals.
+
+For example, C<print 97.98.99> used to output C<97.9899> in earlier
+versions, but now prints C<abc>.
+
+See L</"Support for strings represented as a vector of ordinals">.
+
+=item Possibly changed pseudo-random number generator
+
+Perl programs that depend on reproducing a specific set of pseudo-random
+numbers may now produce different output due to improvements made to the
+rand() builtin.  You can use C<sh Configure -Drandfunc=rand> to obtain
+the old behavior.
+
+See L</"Better pseudo-random number generator">.
+
+=item Hashing function for hash keys has changed
+
+Even though Perl hashes are not order preserving, the apparently
+random order encountered when iterating on the contents of a hash
+is actually determined by the hashing algorithm used.  Improvements
+in the algorithm may yield a random order that is B<different> from
+that of previous versions, especially when iterating on hashes.
+
+See L</"Better worst-case behavior of hashes"> for additional
+information.
+
+=item C<undef> fails on read only values
+
+Using the C<undef> operator on a readonly value (such as $1) has
+the same effect as assigning C<undef> to the readonly value--it
+throws an exception.
+
+=item Close-on-exec bit may be set on pipe and socket handles
+
+Pipe and socket handles are also now subject to the close-on-exec
+behavior determined by the special variable $^F.
+
+See L</"More consistent close-on-exec behavior">.
+
+=item Writing C<"$$1"> to mean C<"${$}1"> is unsupported
+
+Perl 5.004 deprecated the interpretation of C<$$1> and
+similar within interpolated strings to mean C<$$ . "1">,
+but still allowed it.
+
+In Perl 5.6.0 and later, C<"$$1"> always means C<"${$1}">.
+
+=item delete(), each(), values() and C<\(%h)>
+
+operate on aliases to values, not copies
+
+delete(), each(), values() and hashes (e.g. C<\(%h)>)
+in a list context return the actual
+values in the hash, instead of copies (as they used to in earlier
+versions).  Typical idioms for using these constructs copy the
+returned values, but this can make a significant difference when
+creating references to the returned values.  Keys in the hash are still
+returned as copies when iterating on a hash.
+
+See also L</"delete(), each(), values() and hash iteration are faster">.
+
+=item vec(EXPR,OFFSET,BITS) enforces powers-of-two BITS
+
+vec() generates a run-time error if the BITS argument is not
+a valid power-of-two integer.
+
+=item Text of some diagnostic output has changed
+
+Most references to internal Perl operations in diagnostics
+have been changed to be more descriptive.  This may be an
+issue for programs that may incorrectly rely on the exact
+text of diagnostics for proper functioning.
+
+=item C<%@> has been removed
+
+The undocumented special variable C<%@> that used to accumulate
+"background" errors (such as those that happen in DESTROY())
+has been removed, because it could potentially result in memory
+leaks.
+
+=item Parenthesized not() behaves like a list operator
+
+The C<not> operator now falls under the "if it looks like a function,
+it behaves like a function" rule.
+
+As a result, the parenthesized form can be used with C<grep> and C<map>.
+The following construct used to be a syntax error before, but it works
+as expected now:
+
+    grep not($_), @things;
+
+On the other hand, using C<not> with a literal list slice may not
+work.  The following previously allowed construct:
+
+    print not (1,2,3)[0];
+
+needs to be written with additional parentheses now:
+
+    print not((1,2,3)[0]);
+
+The behavior remains unaffected when C<not> is not followed by parentheses.
+
+=item Semantics of bareword prototype C<(*)> have changed
+
+The semantics of the bareword prototype C<*> have changed.  Perl 5.005
+always coerced simple scalar arguments to a typeglob, which wasn't useful
+in situations where the subroutine must distinguish between a simple
+scalar and a typeglob.  The new behavior is to not coerce bareword
+arguments to a typeglob.  The value will always be visible as either
+a simple scalar or as a reference to a typeglob.
+
+See L</"More functional bareword prototype (*)">.
+
+=item Semantics of bit operators may have changed on 64-bit platforms
+
+If your platform is either natively 64-bit or if Perl has been
+configured to used 64-bit integers, i.e., $Config{ivsize} is 8, 
+there may be a potential incompatibility in the behavior of bitwise
+numeric operators (& | ^ ~ << >>).  These operators used to strictly
+operate on the lower 32 bits of integers in previous versions, but now
+operate over the entire native integral width.  In particular, note
+that unary C<~> will produce different results on platforms that have
+different $Config{ivsize}.  For portability, be sure to mask off
+the excess bits in the result of unary C<~>, e.g., C<~$x & 0xffffffff>.
+
+See L</"Bit operators support full native integer width">.
+
+=item More builtins taint their results
+
+As described in L</"Improved security features">, there may be more
+sources of taint in a Perl program.
+
+To avoid these new tainting behaviors, you can build Perl with the
+Configure option C<-Accflags=-DINCOMPLETE_TAINTS>.  Beware that the
+ensuing perl binary may be insecure.
+
+=back
+
+=head2 C Source Incompatibilities
+
+=over 4
+
+=item C<PERL_POLLUTE>
+
+Release 5.005 grandfathered old global symbol names by providing preprocessor
+macros for extension source compatibility.  As of release 5.6.0, these
+preprocessor definitions are not available by default.  You need to explicitly
+compile perl with C<-DPERL_POLLUTE> to get these definitions.  For
+extensions still using the old symbols, this option can be
+specified via MakeMaker:
+
+    perl Makefile.PL POLLUTE=1
+
+=item C<PERL_IMPLICIT_CONTEXT>
+
+This new build option provides a set of macros for all API functions
+such that an implicit interpreter/thread context argument is passed to
+every API function.  As a result of this, something like C<sv_setsv(foo,bar)>
+amounts to a macro invocation that actually translates to something like
+C<Perl_sv_setsv(my_perl,foo,bar)>.  While this is generally expected
+to not have any significant source compatibility issues, the difference
+between a macro and a real function call will need to be considered.
+
+This means that there B<is> a source compatibility issue as a result of
+this if your extensions attempt to use pointers to any of the Perl API
+functions.
+
+Note that the above issue is not relevant to the default build of
+Perl, whose interfaces continue to match those of prior versions
+(but subject to the other options described here).
+
+See L<perlguts/Background and PERL_IMPLICIT_CONTEXT> for detailed information
+on the ramifications of building Perl with this option.
+
+    NOTE: PERL_IMPLICIT_CONTEXT is automatically enabled whenever Perl is built
+    with one of -Dusethreads, -Dusemultiplicity, or both.  It is not
+    intended to be enabled by users at this time.
+
+=item C<PERL_POLLUTE_MALLOC>
+
+Enabling Perl's malloc in release 5.005 and earlier caused the namespace of
+the system's malloc family of functions to be usurped by the Perl versions,
+since by default they used the same names.  Besides causing problems on
+platforms that do not allow these functions to be cleanly replaced, this
+also meant that the system versions could not be called in programs that
+used Perl's malloc.  Previous versions of Perl have allowed this behaviour
+to be suppressed with the HIDEMYMALLOC and EMBEDMYMALLOC preprocessor
+definitions.
+
+As of release 5.6.0, Perl's malloc family of functions have default names
+distinct from the system versions.  You need to explicitly compile perl with
+C<-DPERL_POLLUTE_MALLOC> to get the older behaviour.  HIDEMYMALLOC
+and EMBEDMYMALLOC have no effect, since the behaviour they enabled is now
+the default.
+
+Note that these functions do B<not> constitute Perl's memory allocation API.
+See L<perlguts/"Memory Allocation"> for further information about that.
+
+=back
+
+=head2 Compatible C Source API Changes
+
+=over 4
+
+=item C<PATCHLEVEL> is now C<PERL_VERSION>
+
+The cpp macros C<PERL_REVISION>, C<PERL_VERSION>, and C<PERL_SUBVERSION>
+are now available by default from perl.h, and reflect the base revision,
+patchlevel, and subversion respectively.  C<PERL_REVISION> had no
+prior equivalent, while C<PERL_VERSION> and C<PERL_SUBVERSION> were
+previously available as C<PATCHLEVEL> and C<SUBVERSION>.
+
+The new names cause less pollution of the B<cpp> namespace and reflect what
+the numbers have come to stand for in common practice.  For compatibility,
+the old names are still supported when F<patchlevel.h> is explicitly
+included (as required before), so there is no source incompatibility
+from the change.
+
+=back
+
+=head2 Binary Incompatibilities
+
+In general, the default build of this release is expected to be binary
+compatible for extensions built with the 5.005 release or its maintenance
+versions.  However, specific platforms may have broken binary compatibility
+due to changes in the defaults used in hints files.  Therefore, please be
+sure to always check the platform-specific README files for any notes to
+the contrary.
+
+The usethreads or usemultiplicity builds are B<not> binary compatible
+with the corresponding builds in 5.005.
+
+On platforms that require an explicit list of exports (AIX, OS/2 and Windows,
+among others), purely internal symbols such as parser functions and the
+run time opcodes are not exported by default.  Perl 5.005 used to export
+all functions irrespective of whether they were considered part of the
+public API or not.
+
+For the full list of public API functions, see L<perlapi>.
+
+=head1 Known Problems
+
+=head2 Localizing a tied hash element may leak memory
+
+As of the 5.6.1 release, there is a known leak when code such as this
+is executed:
+
+    use Tie::Hash;
+    tie my %tie_hash => 'Tie::StdHash';
+
+    ...
+
+    local($tie_hash{Foo}) = 1; # leaks
+
+=head2 Known test failures
+
+=over
+
+=item *
+
+64-bit builds
+
+Subtest #15 of lib/b.t may fail under 64-bit builds on platforms such
+as HP-UX PA64 and Linux IA64.  The issue is still being investigated.
+
+The lib/io_multihomed test may hang in HP-UX if Perl has been
+configured to be 64-bit.  Because other 64-bit platforms do not
+hang in this test, HP-UX is suspect.  All other tests pass
+in 64-bit HP-UX.  The test attempts to create and connect to
+"multihomed" sockets (sockets which have multiple IP addresses).
+
+Note that 64-bit support is still experimental.
+
+=item *
+
+Failure of Thread tests
+
+The subtests 19 and 20 of lib/thr5005.t test are known to fail due to
+fundamental problems in the 5.005 threading implementation.  These are
+not new failures--Perl 5.005_0x has the same bugs, but didn't have these
+tests.  (Note that support for 5.005-style threading remains experimental.)
+
+=item *
+
+NEXTSTEP 3.3 POSIX test failure
+
+In NEXTSTEP 3.3p2 the implementation of the strftime(3) in the
+operating system libraries is buggy: the %j format numbers the days of
+a month starting from zero, which, while being logical to programmers,
+will cause the subtests 19 to 27 of the lib/posix test may fail.
+
+=item *
+
+Tru64 (aka Digital UNIX, aka DEC OSF/1) lib/sdbm test failure with gcc
+
+If compiled with gcc 2.95 the lib/sdbm test will fail (dump core).
+The cure is to use the vendor cc, it comes with the operating system
+and produces good code.
+
+=back
+
+=head2 EBCDIC platforms not fully supported
+
+In earlier releases of Perl, EBCDIC environments like OS390 (also
+known as Open Edition MVS) and VM-ESA were supported.  Due to changes
+required by the UTF-8 (Unicode) support, the EBCDIC platforms are not
+supported in Perl 5.6.0.
+
+The 5.6.1 release improves support for EBCDIC platforms, but they
+are not fully supported yet.
+
+=head2 UNICOS/mk CC failures during Configure run
+
+In UNICOS/mk the following errors may appear during the Configure run:
+
+	Guessing which symbols your C compiler and preprocessor define...
+	CC-20 cc: ERROR File = try.c, Line = 3
+	...
+	  bad switch yylook 79bad switch yylook 79bad switch yylook 79bad switch yylook 79#ifdef A29K
+	...
+	4 errors detected in the compilation of "try.c".
+
+The culprit is the broken awk of UNICOS/mk.  The effect is fortunately
+rather mild: Perl itself is not adversely affected by the error, only
+the h2ph utility coming with Perl, and that is rather rarely needed
+these days.
+
+=head2 Arrow operator and arrays
+
+When the left argument to the arrow operator C<< -> >> is an array, or
+the C<scalar> operator operating on an array, the result of the
+operation must be considered erroneous. For example:
+
+    @x->[2]
+    scalar(@x)->[2]
+
+These expressions will get run-time errors in some future release of
+Perl.
+
+=head2 Experimental features
+
+As discussed above, many features are still experimental.  Interfaces and
+implementation of these features are subject to change, and in extreme cases,
+even subject to removal in some future release of Perl.  These features
+include the following:
+
+=over 4
+
+=item Threads
+
+=item Unicode
+
+=item 64-bit support
+
+=item Lvalue subroutines
+
+=item Weak references
+
+=item The pseudo-hash data type
+
+=item The Compiler suite
+
+=item Internal implementation of file globbing
+
+=item The DB module
+
+=item The regular expression code constructs: 
+
+C<(?{ code })> and C<(??{ code })>
+
+=back
+
+=head1 Obsolete Diagnostics
+
+=over 4
+
+=item Character class syntax [: :] is reserved for future extensions
+
+(W) Within regular expression character classes ([]) the syntax beginning
+with "[:" and ending with ":]" is reserved for future extensions.
+If you need to represent those character sequences inside a regular
+expression character class, just quote the square brackets with the
+backslash: "\[:" and ":\]".
+
+=item Ill-formed logical name |%s| in prime_env_iter
+
+(W) A warning peculiar to VMS.  A logical name was encountered when preparing
+to iterate over %ENV which violates the syntactic rules governing logical
+names.  Because it cannot be translated normally, it is skipped, and will not
+appear in %ENV.  This may be a benign occurrence, as some software packages
+might directly modify logical name tables and introduce nonstandard names,
+or it may indicate that a logical name table has been corrupted.
+
+=item In string, @%s now must be written as \@%s
+
+The description of this error used to say:
+
+        (Someday it will simply assume that an unbackslashed @
+         interpolates an array.)
+
+That day has come, and this fatal error has been removed.  It has been
+replaced by a non-fatal warning instead.
+See L</Arrays now always interpolate into double-quoted strings> for
+details.
+
+=item Probable precedence problem on %s
+
+(W) The compiler found a bareword where it expected a conditional,
+which often indicates that an || or && was parsed as part of the
+last argument of the previous construct, for example:
+
+    open FOO || die;
+
+=item regexp too big
+
+(F) The current implementation of regular expressions uses shorts as
+address offsets within a string.  Unfortunately this means that if
+the regular expression compiles to longer than 32767, it'll blow up.
+Usually when you want a regular expression this big, there is a better
+way to do it with multiple statements.  See L<perlre>.
+
+=item Use of "$$<digit>" to mean "${$}<digit>" is deprecated
+
+(D) Perl versions before 5.004 misinterpreted any type marker followed
+by "$" and a digit.  For example, "$$0" was incorrectly taken to mean
+"${$}0" instead of "${$0}".  This bug is (mostly) fixed in Perl 5.004.
+
+However, the developers of Perl 5.004 could not fix this bug completely,
+because at least two widely-used modules depend on the old meaning of
+"$$0" in a string.  So Perl 5.004 still interprets "$$<digit>" in the
+old (broken) way inside strings; but it generates this message as a
+warning.  And in Perl 5.005, this special treatment will cease.
+
+=back
+
+=head1 Reporting Bugs
+
+If you find what you think is a bug, you might check the
+articles recently posted to the comp.lang.perl.misc newsgroup.
+There may also be information at http://www.perl.com/ , the Perl
+Home Page.
+
+If you believe you have an unreported bug, please run the B<perlbug>
+program included with your release.  Be sure to trim your bug down
+to a tiny but sufficient test case.  Your bug report, along with the
+output of C<perl -V>, will be sent off to perlbug@perl.org to be
+analysed by the Perl porting team.
+
+=head1 SEE ALSO
+
+The F<Changes> file for exhaustive details on what changed.
+
+The F<INSTALL> file for how to build Perl.
+
+The F<README> file for general stuff.
+
+The F<Artistic> and F<Copying> files for copyright information.
+
+=head1 HISTORY
+
+Written by Gurusamy Sarathy <F<gsar@ActiveState.com>>, with many
+contributions from The Perl Porters.
+
+Send omissions or corrections to <F<perlbug@perl.org>>.
+
+=cut
diff --git a/lib/5.24.1/pod/perl56delta.pod b/lib/5.24.1/pod/perl56delta.pod
new file mode 100644
index 00000000..24c2072c
--- /dev/null
+++ b/lib/5.24.1/pod/perl56delta.pod
@@ -0,0 +1,3022 @@
+=head1 NAME
+
+perl56delta - what's new for perl v5.6.0
+
+=head1 DESCRIPTION
+
+This document describes differences between the 5.005 release and the 5.6.0
+release.
+
+=head1 Core Enhancements
+
+=head2 Interpreter cloning, threads, and concurrency
+
+Perl 5.6.0 introduces the beginnings of support for running multiple
+interpreters concurrently in different threads.  In conjunction with
+the perl_clone() API call, which can be used to selectively duplicate
+the state of any given interpreter, it is possible to compile a
+piece of code once in an interpreter, clone that interpreter
+one or more times, and run all the resulting interpreters in distinct
+threads.
+
+On the Windows platform, this feature is used to emulate fork() at the
+interpreter level.  See L<perlfork> for details about that.
+
+This feature is still in evolution.  It is eventually meant to be used
+to selectively clone a subroutine and data reachable from that
+subroutine in a separate interpreter and run the cloned subroutine
+in a separate thread.  Since there is no shared data between the
+interpreters, little or no locking will be needed (unless parts of
+the symbol table are explicitly shared).  This is obviously intended
+to be an easy-to-use replacement for the existing threads support.
+
+Support for cloning interpreters and interpreter concurrency can be
+enabled using the -Dusethreads Configure option (see win32/Makefile for
+how to enable it on Windows.)  The resulting perl executable will be
+functionally identical to one that was built with -Dmultiplicity, but
+the perl_clone() API call will only be available in the former.
+
+-Dusethreads enables the cpp macro USE_ITHREADS by default, which in turn
+enables Perl source code changes that provide a clear separation between
+the op tree and the data it operates with.  The former is immutable, and
+can therefore be shared between an interpreter and all of its clones,
+while the latter is considered local to each interpreter, and is therefore
+copied for each clone.
+
+Note that building Perl with the -Dusemultiplicity Configure option
+is adequate if you wish to run multiple B<independent> interpreters
+concurrently in different threads.  -Dusethreads only provides the
+additional functionality of the perl_clone() API call and other
+support for running B<cloned> interpreters concurrently.
+
+    NOTE: This is an experimental feature.  Implementation details are
+    subject to change.
+
+=head2 Lexically scoped warning categories
+
+You can now control the granularity of warnings emitted by perl at a finer
+level using the C<use warnings> pragma.  L<warnings> and L<perllexwarn>
+have copious documentation on this feature.
+
+=head2 Unicode and UTF-8 support
+
+Perl now uses UTF-8 as its internal representation for character
+strings.  The C<utf8> and C<bytes> pragmas are used to control this support
+in the current lexical scope.  See L<perlunicode>, L<utf8> and L<bytes> for
+more information.
+
+This feature is expected to evolve quickly to support some form of I/O
+disciplines that can be used to specify the kind of input and output data
+(bytes or characters).  Until that happens, additional modules from CPAN
+will be needed to complete the toolkit for dealing with Unicode.
+
+    NOTE: This should be considered an experimental feature.  Implementation
+    details are subject to change.
+
+=head2 Support for interpolating named characters
+
+The new C<\N> escape interpolates named characters within strings.
+For example, C<"Hi! \N{WHITE SMILING FACE}"> evaluates to a string
+with a unicode smiley face at the end.
+
+=head2 "our" declarations
+
+An "our" declaration introduces a value that can be best understood
+as a lexically scoped symbolic alias to a global variable in the
+package that was current where the variable was declared.  This is
+mostly useful as an alternative to the C<vars> pragma, but also provides
+the opportunity to introduce typing and other attributes for such
+variables.  See L<perlfunc/our>.
+
+=head2 Support for strings represented as a vector of ordinals
+
+Literals of the form C<v1.2.3.4> are now parsed as a string composed
+of characters with the specified ordinals.  This is an alternative, more
+readable way to construct (possibly unicode) strings instead of
+interpolating characters, as in C<"\x{1}\x{2}\x{3}\x{4}">.  The leading
+C<v> may be omitted if there are more than two ordinals, so C<1.2.3> is
+parsed the same as C<v1.2.3>.
+
+Strings written in this form are also useful to represent version "numbers".
+It is easy to compare such version "numbers" (which are really just plain
+strings) using any of the usual string comparison operators C<eq>, C<ne>,
+C<lt>, C<gt>, etc., or perform bitwise string operations on them using C<|>,
+C<&>, etc.
+
+In conjunction with the new C<$^V> magic variable (which contains
+the perl version as a string), such literals can be used as a readable way
+to check if you're running a particular version of Perl:
+
+    # this will parse in older versions of Perl also
+    if ($^V and $^V gt v5.6.0) {
+        # new features supported
+    }
+
+C<require> and C<use> also have some special magic to support such
+literals, but this particular usage should be avoided because it leads to
+misleading error messages under versions of Perl which don't support vector
+strings.  Using a true version number will ensure correct behavior in all
+versions of Perl:
+
+    require 5.006;    # run time check for v5.6
+    use 5.006_001;    # compile time check for v5.6.1
+
+Also, C<sprintf> and C<printf> support the Perl-specific format flag C<%v>
+to print ordinals of characters in arbitrary strings:
+
+    printf "v%vd", $^V;		# prints current version, such as "v5.5.650"
+    printf "%*vX", ":", $addr;	# formats IPv6 address
+    printf "%*vb", " ", $bits;	# displays bitstring
+
+See L<perldata/"Scalar value constructors"> for additional information.
+
+=head2 Improved Perl version numbering system
+
+Beginning with Perl version 5.6.0, the version number convention has been
+changed to a "dotted integer" scheme that is more commonly found in open
+source projects.
+
+Maintenance versions of v5.6.0 will be released as v5.6.1, v5.6.2 etc.
+The next development series following v5.6.0 will be numbered v5.7.x,
+beginning with v5.7.0, and the next major production release following
+v5.6.0 will be v5.8.0.
+
+The English module now sets $PERL_VERSION to $^V (a string value) rather
+than C<$]> (a numeric value).  (This is a potential incompatibility.
+Send us a report via perlbug if you are affected by this.)
+
+The v1.2.3 syntax is also now legal in Perl.
+See L<Support for strings represented as a vector of ordinals> for more on that.
+
+To cope with the new versioning system's use of at least three significant
+digits for each version component, the method used for incrementing the
+subversion number has also changed slightly.  We assume that versions older
+than v5.6.0 have been incrementing the subversion component in multiples of
+10.  Versions after v5.6.0 will increment them by 1.  Thus, using the new
+notation, 5.005_03 is the "same" as v5.5.30, and the first maintenance
+version following v5.6.0 will be v5.6.1 (which should be read as being
+equivalent to a floating point value of 5.006_001 in the older format,
+stored in C<$]>).
+
+=head2 New syntax for declaring subroutine attributes
+
+Formerly, if you wanted to mark a subroutine as being a method call or
+as requiring an automatic lock() when it is entered, you had to declare
+that with a C<use attrs> pragma in the body of the subroutine.
+That can now be accomplished with declaration syntax, like this:
+
+    sub mymethod : locked method;
+    ...
+    sub mymethod : locked method {
+	...
+    }
+
+    sub othermethod :locked :method;
+    ...
+    sub othermethod :locked :method {
+	...
+    }
+
+
+(Note how only the first C<:> is mandatory, and whitespace surrounding
+the C<:> is optional.)
+
+F<AutoSplit.pm> and F<SelfLoader.pm> have been updated to keep the attributes
+with the stubs they provide.  See L<attributes>.
+
+=head2 File and directory handles can be autovivified
+
+Similar to how constructs such as C<< $x->[0] >> autovivify a reference,
+handle constructors (open(), opendir(), pipe(), socketpair(), sysopen(),
+socket(), and accept()) now autovivify a file or directory handle
+if the handle passed to them is an uninitialized scalar variable.  This
+allows the constructs such as C<open(my $fh, ...)> and C<open(local $fh,...)>
+to be used to create filehandles that will conveniently be closed
+automatically when the scope ends, provided there are no other references
+to them.  This largely eliminates the need for typeglobs when opening
+filehandles that must be passed around, as in the following example:
+
+    sub myopen {
+        open my $fh, "@_"
+	     or die "Can't open '@_': $!";
+	return $fh;
+    }
+
+    {
+        my $f = myopen("</etc/motd");
+	print <$f>;
+	# $f implicitly closed here
+    }
+
+=head2 open() with more than two arguments
+
+If open() is passed three arguments instead of two, the second argument
+is used as the mode and the third argument is taken to be the file name.
+This is primarily useful for protecting against unintended magic behavior
+of the traditional two-argument form.  See L<perlfunc/open>.
+
+=head2 64-bit support
+
+Any platform that has 64-bit integers either
+
+	(1) natively as longs or ints
+	(2) via special compiler flags
+	(3) using long long or int64_t
+
+is able to use "quads" (64-bit integers) as follows:
+
+=over 4
+
+=item *
+
+constants (decimal, hexadecimal, octal, binary) in the code 
+
+=item *
+
+arguments to oct() and hex()
+
+=item *
+
+arguments to print(), printf() and sprintf() (flag prefixes ll, L, q)
+
+=item *
+
+printed as such
+
+=item *
+
+pack() and unpack() "q" and "Q" formats
+
+=item *
+
+in basic arithmetics: + - * / % (NOTE: operating close to the limits
+of the integer values may produce surprising results)
+
+=item *
+
+in bit arithmetics: & | ^ ~ << >> (NOTE: these used to be forced 
+to be 32 bits wide but now operate on the full native width.)
+
+=item *
+
+vec()
+
+=back
+
+Note that unless you have the case (a) you will have to configure
+and compile Perl using the -Duse64bitint Configure flag.
+
+    NOTE: The Configure flags -Duselonglong and -Duse64bits have been
+    deprecated.  Use -Duse64bitint instead.
+
+There are actually two modes of 64-bitness: the first one is achieved
+using Configure -Duse64bitint and the second one using Configure
+-Duse64bitall.  The difference is that the first one is minimal and
+the second one maximal.  The first works in more places than the second.
+
+The C<use64bitint> does only as much as is required to get 64-bit
+integers into Perl (this may mean, for example, using "long longs")
+while your memory may still be limited to 2 gigabytes (because your
+pointers could still be 32-bit).  Note that the name C<64bitint> does
+not imply that your C compiler will be using 64-bit C<int>s (it might,
+but it doesn't have to): the C<use64bitint> means that you will be
+able to have 64 bits wide scalar values.
+
+The C<use64bitall> goes all the way by attempting to switch also
+integers (if it can), longs (and pointers) to being 64-bit.  This may
+create an even more binary incompatible Perl than -Duse64bitint: the
+resulting executable may not run at all in a 32-bit box, or you may
+have to reboot/reconfigure/rebuild your operating system to be 64-bit
+aware.
+
+Natively 64-bit systems like Alpha and Cray need neither -Duse64bitint
+nor -Duse64bitall.
+
+Last but not least: note that due to Perl's habit of always using
+floating point numbers, the quads are still not true integers.
+When quads overflow their limits (0...18_446_744_073_709_551_615 unsigned,
+-9_223_372_036_854_775_808...9_223_372_036_854_775_807 signed), they
+are silently promoted to floating point numbers, after which they will
+start losing precision (in their lower digits).
+
+    NOTE: 64-bit support is still experimental on most platforms.
+    Existing support only covers the LP64 data model.  In particular, the
+    LLP64 data model is not yet supported.  64-bit libraries and system
+    APIs on many platforms have not stabilized--your mileage may vary.
+
+=head2 Large file support
+
+If you have filesystems that support "large files" (files larger than
+2 gigabytes), you may now also be able to create and access them from
+Perl.
+
+    NOTE: The default action is to enable large file support, if
+    available on the platform.
+
+If the large file support is on, and you have a Fcntl constant
+O_LARGEFILE, the O_LARGEFILE is automatically added to the flags
+of sysopen().
+
+Beware that unless your filesystem also supports "sparse files" seeking
+to umpteen petabytes may be inadvisable.
+
+Note that in addition to requiring a proper file system to do large
+files you may also need to adjust your per-process (or your
+per-system, or per-process-group, or per-user-group) maximum filesize
+limits before running Perl scripts that try to handle large files,
+especially if you intend to write such files.
+
+Finally, in addition to your process/process group maximum filesize
+limits, you may have quota limits on your filesystems that stop you
+(your user id or your user group id) from using large files.
+
+Adjusting your process/user/group/file system/operating system limits
+is outside the scope of Perl core language.  For process limits, you
+may try increasing the limits using your shell's limits/limit/ulimit
+command before running Perl.  The BSD::Resource extension (not
+included with the standard Perl distribution) may also be of use, it
+offers the getrlimit/setrlimit interface that can be used to adjust
+process resource usage limits, including the maximum filesize limit.
+
+=head2 Long doubles
+
+In some systems you may be able to use long doubles to enhance the
+range and precision of your double precision floating point numbers
+(that is, Perl's numbers).  Use Configure -Duselongdouble to enable
+this support (if it is available).
+
+=head2 "more bits"
+
+You can "Configure -Dusemorebits" to turn on both the 64-bit support
+and the long double support.
+
+=head2 Enhanced support for sort() subroutines
+
+Perl subroutines with a prototype of C<($$)>, and XSUBs in general, can
+now be used as sort subroutines.  In either case, the two elements to
+be compared are passed as normal parameters in @_.  See L<perlfunc/sort>.
+
+For unprototyped sort subroutines, the historical behavior of passing 
+the elements to be compared as the global variables $a and $b remains
+unchanged.
+
+=head2 C<sort $coderef @foo> allowed
+
+sort() did not accept a subroutine reference as the comparison
+function in earlier versions.  This is now permitted.
+
+=head2 File globbing implemented internally
+
+Perl now uses the File::Glob implementation of the glob() operator
+automatically.  This avoids using an external csh process and the
+problems associated with it.
+
+    NOTE: This is currently an experimental feature.  Interfaces and
+    implementation are subject to change.
+
+=head2 Support for CHECK blocks
+
+In addition to C<BEGIN>, C<INIT>, C<END>, C<DESTROY> and C<AUTOLOAD>,
+subroutines named C<CHECK> are now special.  These are queued up during
+compilation and behave similar to END blocks, except they are called at
+the end of compilation rather than at the end of execution.  They cannot
+be called directly.
+
+=head2 POSIX character class syntax [: :] supported
+
+For example to match alphabetic characters use /[[:alpha:]]/.
+See L<perlre> for details.
+
+=head2 Better pseudo-random number generator
+
+In 5.005_0x and earlier, perl's rand() function used the C library
+rand(3) function.  As of 5.005_52, Configure tests for drand48(),
+random(), and rand() (in that order) and picks the first one it finds.
+
+These changes should result in better random numbers from rand().
+
+=head2 Improved C<qw//> operator
+
+The C<qw//> operator is now evaluated at compile time into a true list
+instead of being replaced with a run time call to C<split()>.  This
+removes the confusing misbehaviour of C<qw//> in scalar context, which
+had inherited that behaviour from split().
+
+Thus:
+
+    $foo = ($bar) = qw(a b c); print "$foo|$bar\n";
+
+now correctly prints "3|a", instead of "2|a".
+
+=head2 Better worst-case behavior of hashes
+
+Small changes in the hashing algorithm have been implemented in
+order to improve the distribution of lower order bits in the
+hashed value.  This is expected to yield better performance on
+keys that are repeated sequences.
+
+=head2 pack() format 'Z' supported
+
+The new format type 'Z' is useful for packing and unpacking null-terminated
+strings.  See L<perlfunc/"pack">.
+
+=head2 pack() format modifier '!' supported
+
+The new format type modifier '!' is useful for packing and unpacking
+native shorts, ints, and longs.  See L<perlfunc/"pack">.
+
+=head2 pack() and unpack() support counted strings
+
+The template character '/' can be used to specify a counted string
+type to be packed or unpacked.  See L<perlfunc/"pack">.
+
+=head2 Comments in pack() templates
+
+The '#' character in a template introduces a comment up to
+end of the line.  This facilitates documentation of pack()
+templates.
+
+=head2 Weak references
+
+In previous versions of Perl, you couldn't cache objects so as
+to allow them to be deleted if the last reference from outside 
+the cache is deleted.  The reference in the cache would hold a
+reference count on the object and the objects would never be
+destroyed.
+
+Another familiar problem is with circular references.  When an
+object references itself, its reference count would never go
+down to zero, and it would not get destroyed until the program
+is about to exit.
+
+Weak references solve this by allowing you to "weaken" any
+reference, that is, make it not count towards the reference count.
+When the last non-weak reference to an object is deleted, the object
+is destroyed and all the weak references to the object are
+automatically undef-ed.
+
+To use this feature, you need the Devel::WeakRef package from CPAN, which
+contains additional documentation.
+
+    NOTE: This is an experimental feature.  Details are subject to change.  
+
+=head2 Binary numbers supported
+
+Binary numbers are now supported as literals, in s?printf formats, and
+C<oct()>:
+
+    $answer = 0b101010;
+    printf "The answer is: %b\n", oct("0b101010");
+
+=head2 Lvalue subroutines
+
+Subroutines can now return modifiable lvalues.
+See L<perlsub/"Lvalue subroutines">.
+
+    NOTE: This is an experimental feature.  Details are subject to change.
+
+=head2 Some arrows may be omitted in calls through references
+
+Perl now allows the arrow to be omitted in many constructs
+involving subroutine calls through references.  For example,
+C<< $foo[10]->('foo') >> may now be written C<$foo[10]('foo')>.
+This is rather similar to how the arrow may be omitted from
+C<< $foo[10]->{'foo'} >>.  Note however, that the arrow is still
+required for C<< foo(10)->('bar') >>.
+
+=head2 Boolean assignment operators are legal lvalues
+
+Constructs such as C<($a ||= 2) += 1> are now allowed.
+
+=head2 exists() is supported on subroutine names
+
+The exists() builtin now works on subroutine names.  A subroutine
+is considered to exist if it has been declared (even if implicitly).
+See L<perlfunc/exists> for examples.
+
+=head2 exists() and delete() are supported on array elements
+
+The exists() and delete() builtins now work on simple arrays as well.
+The behavior is similar to that on hash elements.
+
+exists() can be used to check whether an array element has been
+initialized.  This avoids autovivifying array elements that don't exist.
+If the array is tied, the EXISTS() method in the corresponding tied
+package will be invoked.
+
+delete() may be used to remove an element from the array and return
+it.  The array element at that position returns to its uninitialized
+state, so that testing for the same element with exists() will return
+false.  If the element happens to be the one at the end, the size of
+the array also shrinks up to the highest element that tests true for
+exists(), or 0 if none such is found.  If the array is tied, the DELETE() 
+method in the corresponding tied package will be invoked.
+
+See L<perlfunc/exists> and L<perlfunc/delete> for examples.
+
+=head2 Pseudo-hashes work better
+
+Dereferencing some types of reference values in a pseudo-hash,
+such as C<< $ph->{foo}[1] >>, was accidentally disallowed.  This has
+been corrected.
+
+When applied to a pseudo-hash element, exists() now reports whether
+the specified value exists, not merely if the key is valid.
+
+delete() now works on pseudo-hashes.  When given a pseudo-hash element
+or slice it deletes the values corresponding to the keys (but not the keys
+themselves).  See L<perlref/"Pseudo-hashes: Using an array as a hash">.
+
+Pseudo-hash slices with constant keys are now optimized to array lookups
+at compile-time.
+
+List assignments to pseudo-hash slices are now supported.
+
+The C<fields> pragma now provides ways to create pseudo-hashes, via
+fields::new() and fields::phash().  See L<fields>.
+
+    NOTE: The pseudo-hash data type continues to be experimental.
+    Limiting oneself to the interface elements provided by the
+    fields pragma will provide protection from any future changes.
+
+=head2 Automatic flushing of output buffers
+
+fork(), exec(), system(), qx//, and pipe open()s now flush buffers
+of all files opened for output when the operation was attempted.  This
+mostly eliminates confusing buffering mishaps suffered by users unaware
+of how Perl internally handles I/O.
+
+This is not supported on some platforms like Solaris where a suitably
+correct implementation of fflush(NULL) isn't available.
+
+=head2 Better diagnostics on meaningless filehandle operations
+
+Constructs such as C<< open(<FH>) >> and C<< close(<FH>) >>
+are compile time errors.  Attempting to read from filehandles that
+were opened only for writing will now produce warnings (just as
+writing to read-only filehandles does).
+
+=head2 Where possible, buffered data discarded from duped input filehandle
+
+C<< open(NEW, "<&OLD") >> now attempts to discard any data that
+was previously read and buffered in C<OLD> before duping the handle.
+On platforms where doing this is allowed, the next read operation
+on C<NEW> will return the same data as the corresponding operation
+on C<OLD>.  Formerly, it would have returned the data from the start
+of the following disk block instead.
+
+=head2 eof() has the same old magic as <>
+
+C<eof()> would return true if no attempt to read from C<< <> >> had
+yet been made.  C<eof()> has been changed to have a little magic of its
+own, it now opens the C<< <> >> files.
+
+=head2 binmode() can be used to set :crlf and :raw modes
+
+binmode() now accepts a second argument that specifies a discipline
+for the handle in question.  The two pseudo-disciplines ":raw" and
+":crlf" are currently supported on DOS-derivative platforms.
+See L<perlfunc/"binmode"> and L<open>.
+
+=head2 C<-T> filetest recognizes UTF-8 encoded files as "text"
+
+The algorithm used for the C<-T> filetest has been enhanced to
+correctly identify UTF-8 content as "text".
+
+=head2 system(), backticks and pipe open now reflect exec() failure
+
+On Unix and similar platforms, system(), qx() and open(FOO, "cmd |")
+etc., are implemented via fork() and exec().  When the underlying
+exec() fails, earlier versions did not report the error properly,
+since the exec() happened to be in a different process.
+
+The child process now communicates with the parent about the
+error in launching the external command, which allows these
+constructs to return with their usual error value and set $!.
+
+=head2 Improved diagnostics
+
+Line numbers are no longer suppressed (under most likely circumstances)
+during the global destruction phase.
+
+Diagnostics emitted from code running in threads other than the main
+thread are now accompanied by the thread ID.
+
+Embedded null characters in diagnostics now actually show up.  They
+used to truncate the message in prior versions.
+
+$foo::a and $foo::b are now exempt from "possible typo" warnings only
+if sort() is encountered in package C<foo>.
+
+Unrecognized alphabetic escapes encountered when parsing quote
+constructs now generate a warning, since they may take on new
+semantics in later versions of Perl.
+
+Many diagnostics now report the internal operation in which the warning
+was provoked, like so:
+
+    Use of uninitialized value in concatenation (.) at (eval 1) line 1.
+    Use of uninitialized value in print at (eval 1) line 1.
+
+Diagnostics  that occur within eval may also report the file and line
+number where the eval is located, in addition to the eval sequence
+number and the line number within the evaluated text itself.  For
+example:
+
+    Not enough arguments for scalar at (eval 4)[newlib/perl5db.pl:1411] line 2, at EOF
+
+=head2 Diagnostics follow STDERR
+
+Diagnostic output now goes to whichever file the C<STDERR> handle
+is pointing at, instead of always going to the underlying C runtime
+library's C<stderr>.
+
+=head2 More consistent close-on-exec behavior
+
+On systems that support a close-on-exec flag on filehandles, the
+flag is now set for any handles created by pipe(), socketpair(),
+socket(), and accept(), if that is warranted by the value of $^F
+that may be in effect.  Earlier versions neglected to set the flag
+for handles created with these operators.  See L<perlfunc/pipe>,
+L<perlfunc/socketpair>, L<perlfunc/socket>, L<perlfunc/accept>,
+and L<perlvar/$^F>.
+
+=head2 syswrite() ease-of-use
+
+The length argument of C<syswrite()> has become optional.
+
+=head2 Better syntax checks on parenthesized unary operators
+
+Expressions such as:
+
+    print defined(&foo,&bar,&baz);
+    print uc("foo","bar","baz");
+    undef($foo,&bar);
+
+used to be accidentally allowed in earlier versions, and produced
+unpredictable behaviour.  Some produced ancillary warnings
+when used in this way; others silently did the wrong thing.
+
+The parenthesized forms of most unary operators that expect a single
+argument now ensure that they are not called with more than one
+argument, making the cases shown above syntax errors.  The usual
+behaviour of:
+
+    print defined &foo, &bar, &baz;
+    print uc "foo", "bar", "baz";
+    undef $foo, &bar;
+
+remains unchanged.  See L<perlop>.
+
+=head2 Bit operators support full native integer width
+
+The bit operators (& | ^ ~ << >>) now operate on the full native
+integral width (the exact size of which is available in $Config{ivsize}).
+For example, if your platform is either natively 64-bit or if Perl
+has been configured to use 64-bit integers, these operations apply
+to 8 bytes (as opposed to 4 bytes on 32-bit platforms).
+For portability, be sure to mask off the excess bits in the result of
+unary C<~>, e.g., C<~$x & 0xffffffff>.
+
+=head2 Improved security features
+
+More potentially unsafe operations taint their results for improved
+security.
+
+The C<passwd> and C<shell> fields returned by the getpwent(), getpwnam(),
+and getpwuid() are now tainted, because the user can affect their own
+encrypted password and login shell.
+
+The variable modified by shmread(), and messages returned by msgrcv()
+(and its object-oriented interface IPC::SysV::Msg::rcv) are also tainted,
+because other untrusted processes can modify messages and shared memory
+segments for their own nefarious purposes.
+
+=head2 More functional bareword prototype (*)
+
+Bareword prototypes have been rationalized to enable them to be used
+to override builtins that accept barewords and interpret them in
+a special way, such as C<require> or C<do>.
+
+Arguments prototyped as C<*> will now be visible within the subroutine
+as either a simple scalar or as a reference to a typeglob.
+See L<perlsub/Prototypes>.
+
+=head2 C<require> and C<do> may be overridden
+
+C<require> and C<do 'file'> operations may be overridden locally
+by importing subroutines of the same name into the current package 
+(or globally by importing them into the CORE::GLOBAL:: namespace).
+Overriding C<require> will also affect C<use>, provided the override
+is visible at compile-time.
+See L<perlsub/"Overriding Built-in Functions">.
+
+=head2 $^X variables may now have names longer than one character
+
+Formerly, $^X was synonymous with ${"\cX"}, but $^XY was a syntax
+error.  Now variable names that begin with a control character may be
+arbitrarily long.  However, for compatibility reasons, these variables
+I<must> be written with explicit braces, as C<${^XY}> for example.
+C<${^XYZ}> is synonymous with ${"\cXYZ"}.  Variable names with more
+than one control character, such as C<${^XY^Z}>, are illegal.
+
+The old syntax has not changed.  As before, `^X' may be either a
+literal control-X character or the two-character sequence `caret' plus
+`X'.  When braces are omitted, the variable name stops after the
+control character.  Thus C<"$^XYZ"> continues to be synonymous with
+C<$^X . "YZ"> as before.
+
+As before, lexical variables may not have names beginning with control
+characters.  As before, variables whose names begin with a control
+character are always forced to be in package `main'.  All such variables
+are reserved for future extensions, except those that begin with
+C<^_>, which may be used by user programs and are guaranteed not to
+acquire special meaning in any future version of Perl.
+
+=head2 New variable $^C reflects C<-c> switch
+
+C<$^C> has a boolean value that reflects whether perl is being run
+in compile-only mode (i.e. via the C<-c> switch).  Since
+BEGIN blocks are executed under such conditions, this variable
+enables perl code to determine whether actions that make sense
+only during normal running are warranted.  See L<perlvar>.
+
+=head2 New variable $^V contains Perl version as a string
+
+C<$^V> contains the Perl version number as a string composed of
+characters whose ordinals match the version numbers, i.e. v5.6.0.
+This may be used in string comparisons.
+
+See C<Support for strings represented as a vector of ordinals> for an
+example.
+
+=head2 Optional Y2K warnings
+
+If Perl is built with the cpp macro C<PERL_Y2KWARN> defined,
+it emits optional warnings when concatenating the number 19
+with another number.
+
+This behavior must be specifically enabled when running Configure.
+See F<INSTALL> and F<README.Y2K>.
+
+=head2 Arrays now always interpolate into double-quoted strings
+
+In double-quoted strings, arrays now interpolate, no matter what.  The
+behavior in earlier versions of perl 5 was that arrays would interpolate
+into strings if the array had been mentioned before the string was
+compiled, and otherwise Perl would raise a fatal compile-time error.
+In versions 5.000 through 5.003, the error was
+
+        Literal @example now requires backslash
+
+In versions 5.004_01 through 5.6.0, the error was
+
+        In string, @example now must be written as \@example
+
+The idea here was to get people into the habit of writing
+C<"fred\@example.com"> when they wanted a literal C<@> sign, just as
+they have always written C<"Give me back my \$5"> when they wanted a
+literal C<$> sign.
+
+Starting with 5.6.1, when Perl now sees an C<@> sign in a
+double-quoted string, it I<always> attempts to interpolate an array,
+regardless of whether or not the array has been used or declared
+already.  The fatal error has been downgraded to an optional warning:
+
+        Possible unintended interpolation of @example in string
+
+This warns you that C<"fred@example.com"> is going to turn into
+C<fred.com> if you don't backslash the C<@>.
+See http://perl.plover.com/at-error.html for more details
+about the history here.
+
+=head2 @- and @+ provide starting/ending offsets of regex matches
+
+The new magic variables @- and @+ provide the starting and ending
+offsets, respectively, of $&, $1, $2, etc.  See L<perlvar> for
+details.
+
+=head1 Modules and Pragmata
+
+=head2 Modules
+
+=over 4
+
+=item attributes
+
+While used internally by Perl as a pragma, this module also
+provides a way to fetch subroutine and variable attributes.
+See L<attributes>.
+
+=item B
+
+The Perl Compiler suite has been extensively reworked for this
+release.  More of the standard Perl test suite passes when run
+under the Compiler, but there is still a significant way to
+go to achieve production quality compiled executables.
+
+    NOTE: The Compiler suite remains highly experimental.  The
+    generated code may not be correct, even when it manages to execute
+    without errors.
+
+=item Benchmark
+
+Overall, Benchmark results exhibit lower average error and better timing
+accuracy.  
+
+You can now run tests for I<n> seconds instead of guessing the right
+number of tests to run: e.g., timethese(-5, ...) will run each 
+code for at least 5 CPU seconds.  Zero as the "number of repetitions"
+means "for at least 3 CPU seconds".  The output format has also
+changed.  For example:
+
+   use Benchmark;$x=3;timethese(-5,{a=>sub{$x*$x},b=>sub{$x**2}})
+
+will now output something like this:
+
+   Benchmark: running a, b, each for at least 5 CPU seconds...
+            a:  5 wallclock secs ( 5.77 usr +  0.00 sys =  5.77 CPU) @ 200551.91/s (n=1156516)
+            b:  4 wallclock secs ( 5.00 usr +  0.02 sys =  5.02 CPU) @ 159605.18/s (n=800686)
+
+New features: "each for at least N CPU seconds...", "wallclock secs",
+and the "@ operations/CPU second (n=operations)".
+
+timethese() now returns a reference to a hash of Benchmark objects containing
+the test results, keyed on the names of the tests.
+
+timethis() now returns the iterations field in the Benchmark result object
+instead of 0.
+
+timethese(), timethis(), and the new cmpthese() (see below) can also take
+a format specifier of 'none' to suppress output.
+
+A new function countit() is just like timeit() except that it takes a
+TIME instead of a COUNT.
+
+A new function cmpthese() prints a chart comparing the results of each test
+returned from a timethese() call.  For each possible pair of tests, the
+percentage speed difference (iters/sec or seconds/iter) is shown.
+
+For other details, see L<Benchmark>.
+
+=item ByteLoader
+
+The ByteLoader is a dedicated extension to generate and run
+Perl bytecode.  See L<ByteLoader>.
+
+=item constant
+
+References can now be used.
+
+The new version also allows a leading underscore in constant names, but
+disallows a double leading underscore (as in "__LINE__").  Some other names
+are disallowed or warned against, including BEGIN, END, etc.  Some names
+which were forced into main:: used to fail silently in some cases; now they're
+fatal (outside of main::) and an optional warning (inside of main::).
+The ability to detect whether a constant had been set with a given name has
+been added.
+
+See L<constant>.
+
+=item charnames
+
+This pragma implements the C<\N> string escape.  See L<charnames>.
+
+=item Data::Dumper
+
+A C<Maxdepth> setting can be specified to avoid venturing
+too deeply into deep data structures.  See L<Data::Dumper>.
+
+The XSUB implementation of Dump() is now automatically called if the
+C<Useqq> setting is not in use.
+
+Dumping C<qr//> objects works correctly.
+
+=item DB
+
+C<DB> is an experimental module that exposes a clean abstraction
+to Perl's debugging API.
+
+=item DB_File
+
+DB_File can now be built with Berkeley DB versions 1, 2 or 3.
+See C<ext/DB_File/Changes>.
+
+=item Devel::DProf
+
+Devel::DProf, a Perl source code profiler has been added.  See
+L<Devel::DProf> and L<dprofpp>.
+
+=item Devel::Peek
+
+The Devel::Peek module provides access to the internal representation
+of Perl variables and data.  It is a data debugging tool for the XS programmer.
+
+=item Dumpvalue
+
+The Dumpvalue module provides screen dumps of Perl data.
+
+=item DynaLoader
+
+DynaLoader now supports a dl_unload_file() function on platforms that
+support unloading shared objects using dlclose().
+
+Perl can also optionally arrange to unload all extension shared objects
+loaded by Perl.  To enable this, build Perl with the Configure option
+C<-Accflags=-DDL_UNLOAD_ALL_AT_EXIT>.  (This maybe useful if you are
+using Apache with mod_perl.)
+
+=item English
+
+$PERL_VERSION now stands for C<$^V> (a string value) rather than for C<$]>
+(a numeric value).
+
+=item Env
+
+Env now supports accessing environment variables like PATH as array
+variables.
+
+=item Fcntl
+
+More Fcntl constants added: F_SETLK64, F_SETLKW64, O_LARGEFILE for
+large file (more than 4GB) access (NOTE: the O_LARGEFILE is
+automatically added to sysopen() flags if large file support has been
+configured, as is the default), Free/Net/OpenBSD locking behaviour
+flags F_FLOCK, F_POSIX, Linux F_SHLCK, and O_ACCMODE: the combined
+mask of O_RDONLY, O_WRONLY, and O_RDWR.  The seek()/sysseek()
+constants SEEK_SET, SEEK_CUR, and SEEK_END are available via the
+C<:seek> tag.  The chmod()/stat() S_IF* constants and S_IS* functions
+are available via the C<:mode> tag.
+
+=item File::Compare
+
+A compare_text() function has been added, which allows custom
+comparison functions.  See L<File::Compare>.
+
+=item File::Find
+
+File::Find now works correctly when the wanted() function is either
+autoloaded or is a symbolic reference.
+
+A bug that caused File::Find to lose track of the working directory
+when pruning top-level directories has been fixed.
+
+File::Find now also supports several other options to control its
+behavior.  It can follow symbolic links if the C<follow> option is
+specified.  Enabling the C<no_chdir> option will make File::Find skip
+changing the current directory when walking directories.  The C<untaint>
+flag can be useful when running with taint checks enabled.
+
+See L<File::Find>.
+
+=item File::Glob
+
+This extension implements BSD-style file globbing.  By default,
+it will also be used for the internal implementation of the glob()
+operator.  See L<File::Glob>.
+
+=item File::Spec
+
+New methods have been added to the File::Spec module: devnull() returns
+the name of the null device (/dev/null on Unix) and tmpdir() the name of
+the temp directory (normally /tmp on Unix).  There are now also methods
+to convert between absolute and relative filenames: abs2rel() and
+rel2abs().  For compatibility with operating systems that specify volume
+names in file paths, the splitpath(), splitdir(), and catdir() methods
+have been added.
+
+=item File::Spec::Functions
+
+The new File::Spec::Functions modules provides a function interface
+to the File::Spec module.  Allows shorthand
+
+    $fullname = catfile($dir1, $dir2, $file);
+
+instead of
+
+    $fullname = File::Spec->catfile($dir1, $dir2, $file);
+
+=item Getopt::Long
+
+Getopt::Long licensing has changed to allow the Perl Artistic License
+as well as the GPL. It used to be GPL only, which got in the way of
+non-GPL applications that wanted to use Getopt::Long.
+
+Getopt::Long encourages the use of Pod::Usage to produce help
+messages. For example:
+
+    use Getopt::Long;
+    use Pod::Usage;
+    my $man = 0;
+    my $help = 0;
+    GetOptions('help|?' => \$help, man => \$man) or pod2usage(2);
+    pod2usage(1) if $help;
+    pod2usage(-exitstatus => 0, -verbose => 2) if $man;
+
+    __END__
+
+    =head1 NAME
+
+    sample - Using Getopt::Long and Pod::Usage
+
+    =head1 SYNOPSIS
+
+    sample [options] [file ...]
+
+     Options:
+       -help            brief help message
+       -man             full documentation
+
+    =head1 OPTIONS
+
+    =over 8
+
+    =item B<-help>
+
+    Print a brief help message and exits.
+
+    =item B<-man>
+
+    Prints the manual page and exits.
+
+    =back
+
+    =head1 DESCRIPTION
+
+    B<This program> will read the given input file(s) and do something
+    useful with the contents thereof.
+
+    =cut
+
+See L<Pod::Usage> for details.
+
+A bug that prevented the non-option call-back <> from being
+specified as the first argument has been fixed.
+
+To specify the characters < and > as option starters, use ><. Note,
+however, that changing option starters is strongly deprecated. 
+
+=item IO
+
+write() and syswrite() will now accept a single-argument
+form of the call, for consistency with Perl's syswrite().
+
+You can now create a TCP-based IO::Socket::INET without forcing
+a connect attempt.  This allows you to configure its options
+(like making it non-blocking) and then call connect() manually.
+
+A bug that prevented the IO::Socket::protocol() accessor
+from ever returning the correct value has been corrected.
+
+IO::Socket::connect now uses non-blocking IO instead of alarm()
+to do connect timeouts.
+
+IO::Socket::accept now uses select() instead of alarm() for doing
+timeouts.
+
+IO::Socket::INET->new now sets $! correctly on failure. $@ is
+still set for backwards compatibility.
+
+=item JPL
+
+Java Perl Lingo is now distributed with Perl.  See jpl/README
+for more information.
+
+=item lib
+
+C<use lib> now weeds out any trailing duplicate entries.
+C<no lib> removes all named entries.
+
+=item Math::BigInt
+
+The bitwise operations C<<< << >>>, C<<< >> >>>, C<&>, C<|>,
+and C<~> are now supported on bigints.
+
+=item Math::Complex
+
+The accessor methods Re, Im, arg, abs, rho, and theta can now also
+act as mutators (accessor $z->Re(), mutator $z->Re(3)).
+
+The class method C<display_format> and the corresponding object method
+C<display_format>, in addition to accepting just one argument, now can
+also accept a parameter hash.  Recognized keys of a parameter hash are
+C<"style">, which corresponds to the old one parameter case, and two
+new parameters: C<"format">, which is a printf()-style format string
+(defaults usually to C<"%.15g">, you can revert to the default by
+setting the format string to C<undef>) used for both parts of a
+complex number, and C<"polar_pretty_print"> (defaults to true),
+which controls whether an attempt is made to try to recognize small
+multiples and rationals of pi (2pi, pi/2) at the argument (angle) of a
+polar complex number.
+
+The potentially disruptive change is that in list context both methods
+now I<return the parameter hash>, instead of only the value of the
+C<"style"> parameter.
+
+=item Math::Trig
+
+A little bit of radial trigonometry (cylindrical and spherical),
+radial coordinate conversions, and the great circle distance were added.
+
+=item Pod::Parser, Pod::InputObjects
+
+Pod::Parser is a base class for parsing and selecting sections of
+pod documentation from an input stream.  This module takes care of
+identifying pod paragraphs and commands in the input and hands off the
+parsed paragraphs and commands to user-defined methods which are free
+to interpret or translate them as they see fit.
+
+Pod::InputObjects defines some input objects needed by Pod::Parser, and
+for advanced users of Pod::Parser that need more about a command besides
+its name and text.
+
+As of release 5.6.0 of Perl, Pod::Parser is now the officially sanctioned
+"base parser code" recommended for use by all pod2xxx translators.
+Pod::Text (pod2text) and Pod::Man (pod2man) have already been converted
+to use Pod::Parser and efforts to convert Pod::HTML (pod2html) are already
+underway.  For any questions or comments about pod parsing and translating
+issues and utilities, please use the pod-people@perl.org mailing list.
+
+For further information, please see L<Pod::Parser> and L<Pod::InputObjects>.
+
+=item Pod::Checker, podchecker
+
+This utility checks pod files for correct syntax, according to
+L<perlpod>.  Obvious errors are flagged as such, while warnings are
+printed for mistakes that can be handled gracefully.  The checklist is
+not complete yet.  See L<Pod::Checker>.
+
+=item Pod::ParseUtils, Pod::Find
+
+These modules provide a set of gizmos that are useful mainly for pod
+translators.  L<Pod::Find|Pod::Find> traverses directory structures and
+returns found pod files, along with their canonical names (like
+C<File::Spec::Unix>).  L<Pod::ParseUtils|Pod::ParseUtils> contains
+B<Pod::List> (useful for storing pod list information), B<Pod::Hyperlink>
+(for parsing the contents of C<LE<lt>E<gt>> sequences) and B<Pod::Cache>
+(for caching information about pod files, e.g., link nodes).
+
+=item Pod::Select, podselect
+
+Pod::Select is a subclass of Pod::Parser which provides a function
+named "podselect()" to filter out user-specified sections of raw pod
+documentation from an input stream. podselect is a script that provides
+access to Pod::Select from other scripts to be used as a filter.
+See L<Pod::Select>.
+
+=item Pod::Usage, pod2usage
+
+Pod::Usage provides the function "pod2usage()" to print usage messages for
+a Perl script based on its embedded pod documentation.  The pod2usage()
+function is generally useful to all script authors since it lets them
+write and maintain a single source (the pods) for documentation, thus
+removing the need to create and maintain redundant usage message text
+consisting of information already in the pods.
+
+There is also a pod2usage script which can be used from other kinds of
+scripts to print usage messages from pods (even for non-Perl scripts
+with pods embedded in comments).
+
+For details and examples, please see L<Pod::Usage>.
+
+=item Pod::Text and Pod::Man
+
+Pod::Text has been rewritten to use Pod::Parser.  While pod2text() is
+still available for backwards compatibility, the module now has a new
+preferred interface.  See L<Pod::Text> for the details.  The new Pod::Text
+module is easily subclassed for tweaks to the output, and two such
+subclasses (Pod::Text::Termcap for man-page-style bold and underlining
+using termcap information, and Pod::Text::Color for markup with ANSI color
+sequences) are now standard.
+
+pod2man has been turned into a module, Pod::Man, which also uses
+Pod::Parser.  In the process, several outstanding bugs related to quotes
+in section headers, quoting of code escapes, and nested lists have been
+fixed.  pod2man is now a wrapper script around this module.
+
+=item SDBM_File
+
+An EXISTS method has been added to this module (and sdbm_exists() has
+been added to the underlying sdbm library), so one can now call exists
+on an SDBM_File tied hash and get the correct result, rather than a
+runtime error.
+
+A bug that may have caused data loss when more than one disk block
+happens to be read from the database in a single FETCH() has been
+fixed.
+
+=item Sys::Syslog
+
+Sys::Syslog now uses XSUBs to access facilities from syslog.h so it
+no longer requires syslog.ph to exist. 
+
+=item Sys::Hostname
+
+Sys::Hostname now uses XSUBs to call the C library's gethostname() or
+uname() if they exist.
+
+=item Term::ANSIColor
+
+Term::ANSIColor is a very simple module to provide easy and readable
+access to the ANSI color and highlighting escape sequences, supported by
+most ANSI terminal emulators.  It is now included standard.
+
+=item Time::Local
+
+The timelocal() and timegm() functions used to silently return bogus
+results when the date fell outside the machine's integer range.  They
+now consistently croak() if the date falls in an unsupported range.
+
+=item Win32
+
+The error return value in list context has been changed for all functions
+that return a list of values.  Previously these functions returned a list
+with a single element C<undef> if an error occurred.  Now these functions
+return the empty list in these situations.  This applies to the following
+functions:
+
+    Win32::FsType
+    Win32::GetOSVersion
+
+The remaining functions are unchanged and continue to return C<undef> on
+error even in list context.
+
+The Win32::SetLastError(ERROR) function has been added as a complement
+to the Win32::GetLastError() function.
+
+The new Win32::GetFullPathName(FILENAME) returns the full absolute
+pathname for FILENAME in scalar context.  In list context it returns
+a two-element list containing the fully qualified directory name and
+the filename.  See L<Win32>.
+
+=item XSLoader
+
+The XSLoader extension is a simpler alternative to DynaLoader.
+See L<XSLoader>.
+
+=item DBM Filters
+
+A new feature called "DBM Filters" has been added to all the
+DBM modules--DB_File, GDBM_File, NDBM_File, ODBM_File, and SDBM_File.
+DBM Filters add four new methods to each DBM module:
+
+    filter_store_key
+    filter_store_value
+    filter_fetch_key
+    filter_fetch_value
+
+These can be used to filter key-value pairs before the pairs are
+written to the database or just after they are read from the database.
+See L<perldbmfilter> for further information.
+
+=back
+
+=head2 Pragmata
+
+C<use attrs> is now obsolete, and is only provided for
+backward-compatibility.  It's been replaced by the C<sub : attributes>
+syntax.  See L<perlsub/"Subroutine Attributes"> and L<attributes>.
+
+Lexical warnings pragma, C<use warnings;>, to control optional warnings.
+See L<perllexwarn>.
+
+C<use filetest> to control the behaviour of filetests (C<-r> C<-w>
+...).  Currently only one subpragma implemented, "use filetest
+'access';", that uses access(2) or equivalent to check permissions
+instead of using stat(2) as usual.  This matters in filesystems
+where there are ACLs (access control lists): the stat(2) might lie,
+but access(2) knows better.
+
+The C<open> pragma can be used to specify default disciplines for
+handle constructors (e.g. open()) and for qx//.  The two
+pseudo-disciplines C<:raw> and C<:crlf> are currently supported on
+DOS-derivative platforms (i.e. where binmode is not a no-op).
+See also L</"binmode() can be used to set :crlf and :raw modes">.
+
+=head1 Utility Changes
+
+=head2 dprofpp
+
+C<dprofpp> is used to display profile data generated using C<Devel::DProf>.
+See L<dprofpp>.
+
+=head2 find2perl
+
+The C<find2perl> utility now uses the enhanced features of the File::Find
+module.  The -depth and -follow options are supported.  Pod documentation
+is also included in the script.
+
+=head2 h2xs
+
+The C<h2xs> tool can now work in conjunction with C<C::Scan> (available
+from CPAN) to automatically parse real-life header files.  The C<-M>,
+C<-a>, C<-k>, and C<-o> options are new.
+
+=head2 perlcc
+
+C<perlcc> now supports the C and Bytecode backends.  By default,
+it generates output from the simple C backend rather than the
+optimized C backend.
+
+Support for non-Unix platforms has been improved.
+
+=head2 perldoc
+
+C<perldoc> has been reworked to avoid possible security holes.
+It will not by default let itself be run as the superuser, but you
+may still use the B<-U> switch to try to make it drop privileges
+first.
+
+=head2 The Perl Debugger
+
+Many bug fixes and enhancements were added to F<perl5db.pl>, the
+Perl debugger.  The help documentation was rearranged.  New commands
+include C<< < ? >>, C<< > ? >>, and C<< { ? >> to list out current
+actions, C<man I<docpage>> to run your doc viewer on some perl
+docset, and support for quoted options.  The help information was
+rearranged, and should be viewable once again if you're using B<less>
+as your pager.  A serious security hole was plugged--you should
+immediately remove all older versions of the Perl debugger as
+installed in previous releases, all the way back to perl3, from
+your system to avoid being bitten by this.
+
+=head1 Improved Documentation
+
+Many of the platform-specific README files are now part of the perl
+installation.  See L<perl> for the complete list.
+
+=over 4
+
+=item perlapi.pod
+
+The official list of public Perl API functions.
+
+=item perlboot.pod
+
+A tutorial for beginners on object-oriented Perl.
+
+=item perlcompile.pod
+
+An introduction to using the Perl Compiler suite.
+
+=item perldbmfilter.pod
+
+A howto document on using the DBM filter facility.
+
+=item perldebug.pod
+
+All material unrelated to running the Perl debugger, plus all
+low-level guts-like details that risked crushing the casual user
+of the debugger, have been relocated from the old manpage to the
+next entry below.
+
+=item perldebguts.pod
+
+This new manpage contains excessively low-level material not related
+to the Perl debugger, but slightly related to debugging Perl itself.
+It also contains some arcane internal details of how the debugging
+process works that may only be of interest to developers of Perl
+debuggers.
+
+=item perlfork.pod
+
+Notes on the fork() emulation currently available for the Windows platform.
+
+=item perlfilter.pod
+
+An introduction to writing Perl source filters.
+
+=item perlhack.pod
+
+Some guidelines for hacking the Perl source code.
+
+=item perlintern.pod
+
+A list of internal functions in the Perl source code.
+(List is currently empty.)
+
+=item perllexwarn.pod
+
+Introduction and reference information about lexically scoped
+warning categories.
+
+=item perlnumber.pod
+
+Detailed information about numbers as they are represented in Perl.
+
+=item perlopentut.pod
+
+A tutorial on using open() effectively.
+
+=item perlreftut.pod
+
+A tutorial that introduces the essentials of references.
+
+=item perltootc.pod
+
+A tutorial on managing class data for object modules.
+
+=item perltodo.pod
+
+Discussion of the most often wanted features that may someday be
+supported in Perl.
+
+=item perlunicode.pod
+
+An introduction to Unicode support features in Perl.
+
+=back
+
+=head1 Performance enhancements
+
+=head2 Simple sort() using { $a <=> $b } and the like are optimized
+
+Many common sort() operations using a simple inlined block are now
+optimized for faster performance.
+
+=head2 Optimized assignments to lexical variables
+
+Certain operations in the RHS of assignment statements have been
+optimized to directly set the lexical variable on the LHS,
+eliminating redundant copying overheads.
+
+=head2 Faster subroutine calls
+
+Minor changes in how subroutine calls are handled internally
+provide marginal improvements in performance.
+
+=head2 delete(), each(), values() and hash iteration are faster
+
+The hash values returned by delete(), each(), values() and hashes in a
+list context are the actual values in the hash, instead of copies.
+This results in significantly better performance, because it eliminates
+needless copying in most situations.
+
+=head1 Installation and Configuration Improvements
+
+=head2 -Dusethreads means something different
+
+The -Dusethreads flag now enables the experimental interpreter-based thread
+support by default.  To get the flavor of experimental threads that was in
+5.005 instead, you need to run Configure with "-Dusethreads -Duse5005threads".
+
+As of v5.6.0, interpreter-threads support is still lacking a way to
+create new threads from Perl (i.e., C<use Thread;> will not work with
+interpreter threads).  C<use Thread;> continues to be available when you
+specify the -Duse5005threads option to Configure, bugs and all.
+
+    NOTE: Support for threads continues to be an experimental feature.
+    Interfaces and implementation are subject to sudden and drastic changes.
+
+=head2 New Configure flags
+
+The following new flags may be enabled on the Configure command line
+by running Configure with C<-Dflag>.
+
+    usemultiplicity
+    usethreads useithreads	(new interpreter threads: no Perl API yet)
+    usethreads use5005threads	(threads as they were in 5.005)
+
+    use64bitint			(equal to now deprecated 'use64bits')
+    use64bitall
+
+    uselongdouble
+    usemorebits
+    uselargefiles
+    usesocks			(only SOCKS v5 supported)
+
+=head2 Threadedness and 64-bitness now more daring
+
+The Configure options enabling the use of threads and the use of
+64-bitness are now more daring in the sense that they no more have an
+explicit list of operating systems of known threads/64-bit
+capabilities.  In other words: if your operating system has the
+necessary APIs and datatypes, you should be able just to go ahead and
+use them, for threads by Configure -Dusethreads, and for 64 bits
+either explicitly by Configure -Duse64bitint or implicitly if your
+system has 64-bit wide datatypes.  See also L<"64-bit support">.
+
+=head2 Long Doubles
+
+Some platforms have "long doubles", floating point numbers of even
+larger range than ordinary "doubles".  To enable using long doubles for
+Perl's scalars, use -Duselongdouble.
+
+=head2 -Dusemorebits
+
+You can enable both -Duse64bitint and -Duselongdouble with -Dusemorebits.
+See also L<"64-bit support">.
+
+=head2 -Duselargefiles
+
+Some platforms support system APIs that are capable of handling large files
+(typically, files larger than two gigabytes).  Perl will try to use these
+APIs if you ask for -Duselargefiles.
+
+See L<"Large file support"> for more information. 
+
+=head2 installusrbinperl
+
+You can use "Configure -Uinstallusrbinperl" which causes installperl
+to skip installing perl also as /usr/bin/perl.  This is useful if you
+prefer not to modify /usr/bin for some reason or another but harmful
+because many scripts assume to find Perl in /usr/bin/perl.
+
+=head2 SOCKS support
+
+You can use "Configure -Dusesocks" which causes Perl to probe
+for the SOCKS proxy protocol library (v5, not v4).  For more information
+on SOCKS, see:
+
+    http://www.socks.nec.com/
+
+=head2 C<-A> flag
+
+You can "post-edit" the Configure variables using the Configure C<-A>
+switch.  The editing happens immediately after the platform specific
+hints files have been processed but before the actual configuration
+process starts.  Run C<Configure -h> to find out the full C<-A> syntax.
+
+=head2 Enhanced Installation Directories
+
+The installation structure has been enriched to improve the support
+for maintaining multiple versions of perl, to provide locations for
+vendor-supplied modules, scripts, and manpages, and to ease maintenance
+of locally-added modules, scripts, and manpages.  See the section on
+Installation Directories in the INSTALL file for complete details.
+For most users building and installing from source, the defaults should
+be fine.
+
+If you previously used C<Configure -Dsitelib> or C<-Dsitearch> to set
+special values for library directories, you might wish to consider using
+the new C<-Dsiteprefix> setting instead.  Also, if you wish to re-use a
+config.sh file from an earlier version of perl, you should be sure to
+check that Configure makes sensible choices for the new directories.
+See INSTALL for complete details.
+
+=head1 Platform specific changes
+
+=head2 Supported platforms
+
+=over 4
+
+=item *
+
+The Mach CThreads (NEXTSTEP, OPENSTEP) are now supported by the Thread
+extension.
+
+=item *
+
+GNU/Hurd is now supported.
+
+=item *
+
+Rhapsody/Darwin is now supported.
+
+=item *
+
+EPOC is now supported (on Psion 5).
+
+=item *
+
+The cygwin port (formerly cygwin32) has been greatly improved.
+
+=back
+
+=head2 DOS
+
+=over 4
+
+=item *
+
+Perl now works with djgpp 2.02 (and 2.03 alpha).
+
+=item *
+
+Environment variable names are not converted to uppercase any more.
+
+=item *
+
+Incorrect exit codes from backticks have been fixed.
+
+=item *
+
+This port continues to use its own builtin globbing (not File::Glob).
+
+=back
+
+=head2 OS390 (OpenEdition MVS)
+
+Support for this EBCDIC platform has not been renewed in this release.
+There are difficulties in reconciling Perl's standardization on UTF-8
+as its internal representation for characters with the EBCDIC character
+set, because the two are incompatible.
+
+It is unclear whether future versions will renew support for this
+platform, but the possibility exists.
+
+=head2 VMS
+
+Numerous revisions and extensions to configuration, build, testing, and
+installation process to accommodate core changes and VMS-specific options.
+
+Expand %ENV-handling code to allow runtime mapping to logical names,
+CLI symbols, and CRTL environ array.
+
+Extension of subprocess invocation code to accept filespecs as command
+"verbs".
+
+Add to Perl command line processing the ability to use default file types and
+to recognize Unix-style C<2E<gt>&1>.
+
+Expansion of File::Spec::VMS routines, and integration into ExtUtils::MM_VMS.
+
+Extension of ExtUtils::MM_VMS to handle complex extensions more flexibly.
+
+Barewords at start of Unix-syntax paths may be treated as text rather than
+only as logical names.
+
+Optional secure translation of several logical names used internally by Perl.
+
+Miscellaneous bugfixing and porting of new core code to VMS.
+
+Thanks are gladly extended to the many people who have contributed VMS
+patches, testing, and ideas.
+
+=head2 Win32
+
+Perl can now emulate fork() internally, using multiple interpreters running
+in different concurrent threads.  This support must be enabled at build
+time.  See L<perlfork> for detailed information.
+
+When given a pathname that consists only of a drivename, such as C<A:>,
+opendir() and stat() now use the current working directory for the drive
+rather than the drive root.
+
+The builtin XSUB functions in the Win32:: namespace are documented.  See
+L<Win32>.
+
+$^X now contains the full path name of the running executable.
+
+A Win32::GetLongPathName() function is provided to complement
+Win32::GetFullPathName() and Win32::GetShortPathName().  See L<Win32>.
+
+POSIX::uname() is supported.
+
+system(1,...) now returns true process IDs rather than process
+handles.  kill() accepts any real process id, rather than strictly
+return values from system(1,...).
+
+For better compatibility with Unix, C<kill(0, $pid)> can now be used to
+test whether a process exists.
+
+The C<Shell> module is supported.
+
+Better support for building Perl under command.com in Windows 95
+has been added.
+
+Scripts are read in binary mode by default to allow ByteLoader (and
+the filter mechanism in general) to work properly.  For compatibility,
+the DATA filehandle will be set to text mode if a carriage return is
+detected at the end of the line containing the __END__ or __DATA__
+token; if not, the DATA filehandle will be left open in binary mode.
+Earlier versions always opened the DATA filehandle in text mode.
+
+The glob() operator is implemented via the C<File::Glob> extension,
+which supports glob syntax of the C shell.  This increases the flexibility
+of the glob() operator, but there may be compatibility issues for
+programs that relied on the older globbing syntax.  If you want to
+preserve compatibility with the older syntax, you might want to run
+perl with C<-MFile::DosGlob>.  For details and compatibility information,
+see L<File::Glob>.
+
+=head1 Significant bug fixes
+
+=head2 <HANDLE> on empty files
+
+With C<$/> set to C<undef>, "slurping" an empty file returns a string of
+zero length (instead of C<undef>, as it used to) the first time the
+HANDLE is read after C<$/> is set to C<undef>.  Further reads yield
+C<undef>.
+
+This means that the following will append "foo" to an empty file (it used
+to do nothing):
+
+    perl -0777 -pi -e 's/^/foo/' empty_file
+
+The behaviour of:
+
+    perl -pi -e 's/^/foo/' empty_file
+
+is unchanged (it continues to leave the file empty).
+
+=head2 C<eval '...'> improvements
+
+Line numbers (as reflected by caller() and most diagnostics) within
+C<eval '...'> were often incorrect where here documents were involved.
+This has been corrected.
+
+Lexical lookups for variables appearing in C<eval '...'> within
+functions that were themselves called within an C<eval '...'> were
+searching the wrong place for lexicals.  The lexical search now
+correctly ends at the subroutine's block boundary.
+
+The use of C<return> within C<eval {...}> caused $@ not to be reset
+correctly when no exception occurred within the eval.  This has
+been fixed.
+
+Parsing of here documents used to be flawed when they appeared as
+the replacement expression in C<eval 's/.../.../e'>.  This has
+been fixed.
+
+=head2 All compilation errors are true errors
+
+Some "errors" encountered at compile time were by necessity 
+generated as warnings followed by eventual termination of the
+program.  This enabled more such errors to be reported in a
+single run, rather than causing a hard stop at the first error
+that was encountered.
+
+The mechanism for reporting such errors has been reimplemented
+to queue compile-time errors and report them at the end of the
+compilation as true errors rather than as warnings.  This fixes
+cases where error messages leaked through in the form of warnings
+when code was compiled at run time using C<eval STRING>, and
+also allows such errors to be reliably trapped using C<eval "...">.
+
+=head2 Implicitly closed filehandles are safer
+
+Sometimes implicitly closed filehandles (as when they are localized,
+and Perl automatically closes them on exiting the scope) could
+inadvertently set $? or $!.  This has been corrected.
+
+
+=head2 Behavior of list slices is more consistent
+
+When taking a slice of a literal list (as opposed to a slice of
+an array or hash), Perl used to return an empty list if the
+result happened to be composed of all undef values.
+
+The new behavior is to produce an empty list if (and only if)
+the original list was empty.  Consider the following example:
+
+    @a = (1,undef,undef,2)[2,1,2];
+
+The old behavior would have resulted in @a having no elements.
+The new behavior ensures it has three undefined elements.
+
+Note in particular that the behavior of slices of the following
+cases remains unchanged:
+
+    @a = ()[1,2];
+    @a = (getpwent)[7,0];
+    @a = (anything_returning_empty_list())[2,1,2];
+    @a = @b[2,1,2];
+    @a = @c{'a','b','c'};
+
+See L<perldata>.
+
+=head2 C<(\$)> prototype and C<$foo{a}>
+
+A scalar reference prototype now correctly allows a hash or
+array element in that slot.
+
+=head2 C<goto &sub> and AUTOLOAD
+
+The C<goto &sub> construct works correctly when C<&sub> happens
+to be autoloaded.
+
+=head2 C<-bareword> allowed under C<use integer>
+
+The autoquoting of barewords preceded by C<-> did not work
+in prior versions when the C<integer> pragma was enabled.
+This has been fixed.
+
+=head2 Failures in DESTROY()
+
+When code in a destructor threw an exception, it went unnoticed
+in earlier versions of Perl, unless someone happened to be
+looking in $@ just after the point the destructor happened to
+run.  Such failures are now visible as warnings when warnings are
+enabled.
+
+=head2 Locale bugs fixed
+
+printf() and sprintf() previously reset the numeric locale
+back to the default "C" locale.  This has been fixed.
+
+Numbers formatted according to the local numeric locale
+(such as using a decimal comma instead of a decimal dot) caused
+"isn't numeric" warnings, even while the operations accessing
+those numbers produced correct results.  These warnings have been
+discontinued.
+
+=head2 Memory leaks
+
+The C<eval 'return sub {...}'> construct could sometimes leak
+memory.  This has been fixed.
+
+Operations that aren't filehandle constructors used to leak memory
+when used on invalid filehandles.  This has been fixed.
+
+Constructs that modified C<@_> could fail to deallocate values
+in C<@_> and thus leak memory.  This has been corrected.
+
+=head2 Spurious subroutine stubs after failed subroutine calls
+
+Perl could sometimes create empty subroutine stubs when a
+subroutine was not found in the package.  Such cases stopped
+later method lookups from progressing into base packages.
+This has been corrected.
+
+=head2 Taint failures under C<-U>
+
+When running in unsafe mode, taint violations could sometimes
+cause silent failures.  This has been fixed.
+
+=head2 END blocks and the C<-c> switch
+
+Prior versions used to run BEGIN B<and> END blocks when Perl was
+run in compile-only mode.  Since this is typically not the expected
+behavior, END blocks are not executed anymore when the C<-c> switch
+is used, or if compilation fails.
+
+See L</"Support for CHECK blocks"> for how to run things when the compile 
+phase ends.
+
+=head2 Potential to leak DATA filehandles
+
+Using the C<__DATA__> token creates an implicit filehandle to
+the file that contains the token.  It is the program's
+responsibility to close it when it is done reading from it.
+
+This caveat is now better explained in the documentation.
+See L<perldata>.
+
+=head1 New or Changed Diagnostics
+
+=over 4
+
+=item "%s" variable %s masks earlier declaration in same %s
+
+(W misc) A "my" or "our" variable has been redeclared in the current scope or statement,
+effectively eliminating all access to the previous instance.  This is almost
+always a typographical error.  Note that the earlier variable will still exist
+until the end of the scope or until all closure referents to it are
+destroyed.
+
+=item "my sub" not yet implemented
+
+(F) Lexically scoped subroutines are not yet implemented.  Don't try that
+yet.
+
+=item "our" variable %s redeclared
+
+(W misc) You seem to have already declared the same global once before in the
+current lexical scope.
+
+=item '!' allowed only after types %s
+
+(F) The '!' is allowed in pack() and unpack() only after certain types.
+See L<perlfunc/pack>.
+
+=item / cannot take a count
+
+(F) You had an unpack template indicating a counted-length string,
+but you have also specified an explicit size for the string.
+See L<perlfunc/pack>.
+
+=item / must be followed by a, A or Z
+
+(F) You had an unpack template indicating a counted-length string,
+which must be followed by one of the letters a, A or Z
+to indicate what sort of string is to be unpacked.
+See L<perlfunc/pack>.
+
+=item / must be followed by a*, A* or Z*
+
+(F) You had a pack template indicating a counted-length string,
+Currently the only things that can have their length counted are a*, A* or Z*.
+See L<perlfunc/pack>.
+
+=item / must follow a numeric type
+
+(F) You had an unpack template that contained a '#',
+but this did not follow some numeric unpack specification.
+See L<perlfunc/pack>.
+
+=item /%s/: Unrecognized escape \\%c passed through
+
+(W regexp) You used a backslash-character combination which is not recognized
+by Perl.  This combination appears in an interpolated variable or a
+C<'>-delimited regular expression.  The character was understood literally.
+
+=item /%s/: Unrecognized escape \\%c in character class passed through
+
+(W regexp) You used a backslash-character combination which is not recognized
+by Perl inside character classes.  The character was understood literally.
+
+=item /%s/ should probably be written as "%s"
+
+(W syntax) You have used a pattern where Perl expected to find a string,
+as in the first argument to C<join>.  Perl will treat the true
+or false result of matching the pattern against $_ as the string,
+which is probably not what you had in mind.
+
+=item %s() called too early to check prototype
+
+(W prototype) You've called a function that has a prototype before the parser saw a
+definition or declaration for it, and Perl could not check that the call
+conforms to the prototype.  You need to either add an early prototype
+declaration for the subroutine in question, or move the subroutine
+definition ahead of the call to get proper prototype checking.  Alternatively,
+if you are certain that you're calling the function correctly, you may put
+an ampersand before the name to avoid the warning.  See L<perlsub>.
+
+=item %s argument is not a HASH or ARRAY element
+
+(F) The argument to exists() must be a hash or array element, such as:
+
+    $foo{$bar}
+    $ref->{"susie"}[12]
+
+=item %s argument is not a HASH or ARRAY element or slice
+
+(F) The argument to delete() must be either a hash or array element, such as:
+
+    $foo{$bar}
+    $ref->{"susie"}[12]
+
+or a hash or array slice, such as:
+
+    @foo[$bar, $baz, $xyzzy]
+    @{$ref->[12]}{"susie", "queue"}
+
+=item %s argument is not a subroutine name
+
+(F) The argument to exists() for C<exists &sub> must be a subroutine
+name, and not a subroutine call.  C<exists &sub()> will generate this error.
+
+=item %s package attribute may clash with future reserved word: %s
+
+(W reserved) A lowercase attribute name was used that had a package-specific handler.
+That name might have a meaning to Perl itself some day, even though it
+doesn't yet.  Perhaps you should use a mixed-case attribute name, instead.
+See L<attributes>.
+
+=item (in cleanup) %s
+
+(W misc) This prefix usually indicates that a DESTROY() method raised
+the indicated exception.  Since destructors are usually called by
+the system at arbitrary points during execution, and often a vast
+number of times, the warning is issued only once for any number
+of failures that would otherwise result in the same message being
+repeated.
+
+Failure of user callbacks dispatched using the C<G_KEEPERR> flag
+could also result in this warning.  See L<perlcall/G_KEEPERR>.
+
+=item <> should be quotes
+
+(F) You wrote C<< require <file> >> when you should have written
+C<require 'file'>.
+
+=item Attempt to join self
+
+(F) You tried to join a thread from within itself, which is an
+impossible task.  You may be joining the wrong thread, or you may
+need to move the join() to some other thread.
+
+=item Bad evalled substitution pattern
+
+(F) You've used the /e switch to evaluate the replacement for a
+substitution, but perl found a syntax error in the code to evaluate,
+most likely an unexpected right brace '}'.
+
+=item Bad realloc() ignored
+
+(S) An internal routine called realloc() on something that had never been
+malloc()ed in the first place. Mandatory, but can be disabled by
+setting environment variable C<PERL_BADFREE> to 1.
+
+=item Bareword found in conditional
+
+(W bareword) The compiler found a bareword where it expected a conditional,
+which often indicates that an || or && was parsed as part of the
+last argument of the previous construct, for example:
+
+    open FOO || die;
+
+It may also indicate a misspelled constant that has been interpreted
+as a bareword:
+
+    use constant TYPO => 1;
+    if (TYOP) { print "foo" }
+
+The C<strict> pragma is useful in avoiding such errors.
+
+=item Binary number > 0b11111111111111111111111111111111 non-portable
+
+(W portable) The binary number you specified is larger than 2**32-1
+(4294967295) and therefore non-portable between systems.  See
+L<perlport> for more on portability concerns.
+
+=item Bit vector size > 32 non-portable
+
+(W portable) Using bit vector sizes larger than 32 is non-portable.
+
+=item Buffer overflow in prime_env_iter: %s
+
+(W internal) A warning peculiar to VMS.  While Perl was preparing to iterate over
+%ENV, it encountered a logical name or symbol definition which was too long,
+so it was truncated to the string shown.
+
+=item Can't check filesystem of script "%s"
+
+(P) For some reason you can't check the filesystem of the script for nosuid.
+
+=item Can't declare class for non-scalar %s in "%s"
+
+(S) Currently, only scalar variables can declared with a specific class
+qualifier in a "my" or "our" declaration.  The semantics may be extended
+for other types of variables in future.
+
+=item Can't declare %s in "%s"
+
+(F) Only scalar, array, and hash variables may be declared as "my" or
+"our" variables.  They must have ordinary identifiers as names.
+
+=item Can't ignore signal CHLD, forcing to default
+
+(W signal) Perl has detected that it is being run with the SIGCHLD signal
+(sometimes known as SIGCLD) disabled.  Since disabling this signal
+will interfere with proper determination of exit status of child
+processes, Perl has reset the signal to its default value.
+This situation typically indicates that the parent program under
+which Perl may be running (e.g., cron) is being very careless.
+
+=item Can't modify non-lvalue subroutine call
+
+(F) Subroutines meant to be used in lvalue context should be declared as
+such, see L<perlsub/"Lvalue subroutines">.
+
+=item Can't read CRTL environ
+
+(S) A warning peculiar to VMS.  Perl tried to read an element of %ENV
+from the CRTL's internal environment array and discovered the array was
+missing.  You need to figure out where your CRTL misplaced its environ
+or define F<PERL_ENV_TABLES> (see L<perlvms>) so that environ is not searched.
+
+=item Can't remove %s: %s, skipping file 
+
+(S) You requested an inplace edit without creating a backup file.  Perl
+was unable to remove the original file to replace it with the modified
+file.  The file was left unmodified.
+
+=item Can't return %s from lvalue subroutine
+
+(F) Perl detected an attempt to return illegal lvalues (such
+as temporary or readonly values) from a subroutine used as an lvalue.
+This is not allowed.
+
+=item Can't weaken a nonreference
+
+(F) You attempted to weaken something that was not a reference.  Only
+references can be weakened.
+
+=item Character class [:%s:] unknown
+
+(F) The class in the character class [: :] syntax is unknown.
+See L<perlre>.
+
+=item Character class syntax [%s] belongs inside character classes
+
+(W unsafe) The character class constructs [: :], [= =], and [. .]  go
+I<inside> character classes, the [] are part of the construct,
+for example: /[012[:alpha:]345]/.  Note that [= =] and [. .]
+are not currently implemented; they are simply placeholders for
+future extensions.
+
+=item Constant is not %s reference
+
+(F) A constant value (perhaps declared using the C<use constant> pragma)
+is being dereferenced, but it amounts to the wrong type of reference.  The
+message indicates the type of reference that was expected. This usually
+indicates a syntax error in dereferencing the constant value.
+See L<perlsub/"Constant Functions"> and L<constant>.
+
+=item constant(%s): %s
+
+(F) The parser found inconsistencies either while attempting to define an
+overloaded constant, or when trying to find the character name specified
+in the C<\N{...}> escape.  Perhaps you forgot to load the corresponding
+C<overload> or C<charnames> pragma?  See L<charnames> and L<overload>.
+
+=item CORE::%s is not a keyword
+
+(F) The CORE:: namespace is reserved for Perl keywords.
+
+=item defined(@array) is deprecated
+
+(D) defined() is not usually useful on arrays because it checks for an
+undefined I<scalar> value.  If you want to see if the array is empty,
+just use C<if (@array) { # not empty }> for example.  
+
+=item defined(%hash) is deprecated
+
+(D) defined() is not usually useful on hashes because it checks for an
+undefined I<scalar> value.  If you want to see if the hash is empty,
+just use C<if (%hash) { # not empty }> for example.  
+
+=item Did not produce a valid header
+
+See Server error.
+
+=item (Did you mean "local" instead of "our"?)
+
+(W misc) Remember that "our" does not localize the declared global variable.
+You have declared it again in the same lexical scope, which seems superfluous.
+
+=item Document contains no data
+
+See Server error.
+
+=item entering effective %s failed
+
+(F) While under the C<use filetest> pragma, switching the real and
+effective uids or gids failed.
+
+=item false [] range "%s" in regexp
+
+(W regexp) A character class range must start and end at a literal character, not
+another character class like C<\d> or C<[:alpha:]>.  The "-" in your false
+range is interpreted as a literal "-".  Consider quoting the "-",  "\-".
+See L<perlre>.
+
+=item Filehandle %s opened only for output
+
+(W io) You tried to read from a filehandle opened only for writing.  If you
+intended it to be a read/write filehandle, you needed to open it with
+"+<" or "+>" or "+>>" instead of with "<" or nothing.  If
+you intended only to read from the file, use "<".  See
+L<perlfunc/open>.
+
+=item flock() on closed filehandle %s
+
+(W closed) The filehandle you're attempting to flock() got itself closed some
+time before now.  Check your logic flow.  flock() operates on filehandles.
+Are you attempting to call flock() on a dirhandle by the same name?
+
+=item Global symbol "%s" requires explicit package name
+
+(F) You've said "use strict vars", which indicates that all variables
+must either be lexically scoped (using "my"), declared beforehand using
+"our", or explicitly qualified to say which package the global variable
+is in (using "::").
+
+=item Hexadecimal number > 0xffffffff non-portable
+
+(W portable) The hexadecimal number you specified is larger than 2**32-1
+(4294967295) and therefore non-portable between systems.  See
+L<perlport> for more on portability concerns.
+
+=item Ill-formed CRTL environ value "%s"
+
+(W internal) A warning peculiar to VMS.  Perl tried to read the CRTL's internal
+environ array, and encountered an element without the C<=> delimiter
+used to separate keys from values.  The element is ignored.
+
+=item Ill-formed message in prime_env_iter: |%s|
+
+(W internal) A warning peculiar to VMS.  Perl tried to read a logical name
+or CLI symbol definition when preparing to iterate over %ENV, and
+didn't see the expected delimiter between key and value, so the
+line was ignored.
+
+=item Illegal binary digit %s
+
+(F) You used a digit other than 0 or 1 in a binary number.
+
+=item Illegal binary digit %s ignored
+
+(W digit) You may have tried to use a digit other than 0 or 1 in a binary number.
+Interpretation of the binary number stopped before the offending digit.
+
+=item Illegal number of bits in vec
+
+(F) The number of bits in vec() (the third argument) must be a power of
+two from 1 to 32 (or 64, if your platform supports that).
+
+=item Integer overflow in %s number
+
+(W overflow) The hexadecimal, octal or binary number you have specified either
+as a literal or as an argument to hex() or oct() is too big for your
+architecture, and has been converted to a floating point number.  On a
+32-bit architecture the largest hexadecimal, octal or binary number
+representable without overflow is 0xFFFFFFFF, 037777777777, or
+0b11111111111111111111111111111111 respectively.  Note that Perl
+transparently promotes all numbers to a floating point representation
+internally--subject to loss of precision errors in subsequent
+operations.
+
+=item Invalid %s attribute: %s
+
+The indicated attribute for a subroutine or variable was not recognized
+by Perl or by a user-supplied handler.  See L<attributes>.
+
+=item Invalid %s attributes: %s
+
+The indicated attributes for a subroutine or variable were not recognized
+by Perl or by a user-supplied handler.  See L<attributes>.
+
+=item invalid [] range "%s" in regexp
+
+The offending range is now explicitly displayed.
+
+=item Invalid separator character %s in attribute list
+
+(F) Something other than a colon or whitespace was seen between the
+elements of an attribute list.  If the previous attribute
+had a parenthesised parameter list, perhaps that list was terminated
+too soon.  See L<attributes>.
+
+=item Invalid separator character %s in subroutine attribute list
+
+(F) Something other than a colon or whitespace was seen between the
+elements of a subroutine attribute list.  If the previous attribute
+had a parenthesised parameter list, perhaps that list was terminated
+too soon.
+
+=item leaving effective %s failed
+
+(F) While under the C<use filetest> pragma, switching the real and
+effective uids or gids failed.
+
+=item Lvalue subs returning %s not implemented yet
+
+(F) Due to limitations in the current implementation, array and hash
+values cannot be returned in subroutines used in lvalue context.
+See L<perlsub/"Lvalue subroutines">.
+
+=item Method %s not permitted
+
+See Server error.
+
+=item Missing %sbrace%s on \N{}
+
+(F) Wrong syntax of character name literal C<\N{charname}> within
+double-quotish context.
+
+=item Missing command in piped open
+
+(W pipe) You used the C<open(FH, "| command")> or C<open(FH, "command |")>
+construction, but the command was missing or blank.
+
+=item Missing name in "my sub"
+
+(F) The reserved syntax for lexically scoped subroutines requires that they
+have a name with which they can be found.
+
+=item No %s specified for -%c
+
+(F) The indicated command line switch needs a mandatory argument, but
+you haven't specified one.
+
+=item No package name allowed for variable %s in "our"
+
+(F) Fully qualified variable names are not allowed in "our" declarations,
+because that doesn't make much sense under existing semantics.  Such
+syntax is reserved for future extensions.
+
+=item No space allowed after -%c
+
+(F) The argument to the indicated command line switch must follow immediately
+after the switch, without intervening spaces.
+
+=item no UTC offset information; assuming local time is UTC
+
+(S) A warning peculiar to VMS.  Perl was unable to find the local
+timezone offset, so it's assuming that local system time is equivalent
+to UTC.  If it's not, define the logical name F<SYS$TIMEZONE_DIFFERENTIAL>
+to translate to the number of seconds which need to be added to UTC to
+get local time.
+
+=item Octal number > 037777777777 non-portable
+
+(W portable) The octal number you specified is larger than 2**32-1 (4294967295)
+and therefore non-portable between systems.  See L<perlport> for more
+on portability concerns.
+
+See also L<perlport> for writing portable code.
+
+=item panic: del_backref
+
+(P) Failed an internal consistency check while trying to reset a weak
+reference.
+
+=item panic: kid popen errno read
+
+(F) forked child returned an incomprehensible message about its errno.
+
+=item panic: magic_killbackrefs
+
+(P) Failed an internal consistency check while trying to reset all weak
+references to an object.
+
+=item Parentheses missing around "%s" list
+
+(W parenthesis) You said something like
+
+    my $foo, $bar = @_;
+
+when you meant
+
+    my ($foo, $bar) = @_;
+
+Remember that "my", "our", and "local" bind tighter than comma.
+
+=item Possible unintended interpolation of %s in string
+
+(W ambiguous) It used to be that Perl would try to guess whether you
+wanted an array interpolated or a literal @.  It no longer does this;
+arrays are now I<always> interpolated into strings.  This means that 
+if you try something like:
+
+        print "fred@example.com";
+
+and the array C<@example> doesn't exist, Perl is going to print
+C<fred.com>, which is probably not what you wanted.  To get a literal
+C<@> sign in a string, put a backslash before it, just as you would
+to get a literal C<$> sign.
+
+=item Possible Y2K bug: %s
+
+(W y2k) You are concatenating the number 19 with another number, which
+could be a potential Year 2000 problem.
+
+=item pragma "attrs" is deprecated, use "sub NAME : ATTRS" instead
+
+(W deprecated) You have written something like this:
+
+    sub doit
+    {
+        use attrs qw(locked);
+    }
+
+You should use the new declaration syntax instead.
+
+    sub doit : locked
+    {
+        ...
+
+The C<use attrs> pragma is now obsolete, and is only provided for
+backward-compatibility. See L<perlsub/"Subroutine Attributes">.
+
+=item Premature end of script headers
+
+See Server error.
+
+=item Repeat count in pack overflows
+
+(F) You can't specify a repeat count so large that it overflows
+your signed integers.  See L<perlfunc/pack>.
+
+=item Repeat count in unpack overflows
+
+(F) You can't specify a repeat count so large that it overflows
+your signed integers.  See L<perlfunc/unpack>.
+
+=item realloc() of freed memory ignored
+
+(S) An internal routine called realloc() on something that had already
+been freed.
+
+=item Reference is already weak
+
+(W misc) You have attempted to weaken a reference that is already weak.
+Doing so has no effect.
+
+=item setpgrp can't take arguments
+
+(F) Your system has the setpgrp() from BSD 4.2, which takes no arguments,
+unlike POSIX setpgid(), which takes a process ID and process group ID.
+
+=item Strange *+?{} on zero-length expression
+
+(W regexp) You applied a regular expression quantifier in a place where it
+makes no sense, such as on a zero-width assertion.
+Try putting the quantifier inside the assertion instead.  For example,
+the way to match "abc" provided that it is followed by three
+repetitions of "xyz" is C</abc(?=(?:xyz){3})/>, not C</abc(?=xyz){3}/>.
+
+=item switching effective %s is not implemented
+
+(F) While under the C<use filetest> pragma, we cannot switch the
+real and effective uids or gids.
+
+=item This Perl can't reset CRTL environ elements (%s)
+
+=item This Perl can't set CRTL environ elements (%s=%s)
+
+(W internal) Warnings peculiar to VMS.  You tried to change or delete an element
+of the CRTL's internal environ array, but your copy of Perl wasn't
+built with a CRTL that contained the setenv() function.  You'll need to
+rebuild Perl with a CRTL that does, or redefine F<PERL_ENV_TABLES> (see
+L<perlvms>) so that the environ array isn't the target of the change to
+%ENV which produced the warning.
+
+=item Too late to run %s block
+
+(W void) A CHECK or INIT block is being defined during run time proper,
+when the opportunity to run them has already passed.  Perhaps you are
+loading a file with C<require> or C<do> when you should be using
+C<use> instead.  Or perhaps you should put the C<require> or C<do>
+inside a BEGIN block.
+
+=item Unknown open() mode '%s'
+
+(F) The second argument of 3-argument open() is not among the list
+of valid modes: C<< < >>, C<< > >>, C<<< >> >>>, C<< +< >>,
+C<< +> >>, C<<< +>> >>>, C<-|>, C<|->.
+
+=item Unknown process %x sent message to prime_env_iter: %s
+
+(P) An error peculiar to VMS.  Perl was reading values for %ENV before
+iterating over it, and someone else stuck a message in the stream of
+data Perl expected.  Someone's very confused, or perhaps trying to
+subvert Perl's population of %ENV for nefarious purposes.
+
+=item Unrecognized escape \\%c passed through
+
+(W misc) You used a backslash-character combination which is not recognized
+by Perl.  The character was understood literally.
+
+=item Unterminated attribute parameter in attribute list
+
+(F) The lexer saw an opening (left) parenthesis character while parsing an
+attribute list, but the matching closing (right) parenthesis
+character was not found.  You may need to add (or remove) a backslash
+character to get your parentheses to balance.  See L<attributes>.
+
+=item Unterminated attribute list
+
+(F) The lexer found something other than a simple identifier at the start
+of an attribute, and it wasn't a semicolon or the start of a
+block.  Perhaps you terminated the parameter list of the previous attribute
+too soon.  See L<attributes>.
+
+=item Unterminated attribute parameter in subroutine attribute list
+
+(F) The lexer saw an opening (left) parenthesis character while parsing a
+subroutine attribute list, but the matching closing (right) parenthesis
+character was not found.  You may need to add (or remove) a backslash
+character to get your parentheses to balance.
+
+=item Unterminated subroutine attribute list
+
+(F) The lexer found something other than a simple identifier at the start
+of a subroutine attribute, and it wasn't a semicolon or the start of a
+block.  Perhaps you terminated the parameter list of the previous attribute
+too soon.
+
+=item Value of CLI symbol "%s" too long
+
+(W misc) A warning peculiar to VMS.  Perl tried to read the value of an %ENV
+element from a CLI symbol table, and found a resultant string longer
+than 1024 characters.  The return value has been truncated to 1024
+characters.
+
+=item Version number must be a constant number
+
+(P) The attempt to translate a C<use Module n.n LIST> statement into
+its equivalent C<BEGIN> block found an internal inconsistency with
+the version number.
+
+=back
+
+=head1 New tests
+
+=over 4
+
+=item	lib/attrs
+
+Compatibility tests for C<sub : attrs> vs the older C<use attrs>.
+
+=item	lib/env
+
+Tests for new environment scalar capability (e.g., C<use Env qw($BAR);>).
+
+=item	lib/env-array
+
+Tests for new environment array capability (e.g., C<use Env qw(@PATH);>).
+
+=item	lib/io_const
+
+IO constants (SEEK_*, _IO*).
+
+=item	lib/io_dir
+
+Directory-related IO methods (new, read, close, rewind, tied delete).
+
+=item	lib/io_multihomed
+
+INET sockets with multi-homed hosts.
+
+=item	lib/io_poll
+
+IO poll().
+
+=item	lib/io_unix
+
+UNIX sockets.
+
+=item	op/attrs
+
+Regression tests for C<my ($x,@y,%z) : attrs> and <sub : attrs>.
+
+=item	op/filetest
+
+File test operators.
+
+=item	op/lex_assign
+
+Verify operations that access pad objects (lexicals and temporaries).
+
+=item	op/exists_sub
+
+Verify C<exists &sub> operations.
+
+=back
+
+=head1 Incompatible Changes
+
+=head2 Perl Source Incompatibilities
+
+Beware that any new warnings that have been added or old ones
+that have been enhanced are B<not> considered incompatible changes.
+
+Since all new warnings must be explicitly requested via the C<-w>
+switch or the C<warnings> pragma, it is ultimately the programmer's
+responsibility to ensure that warnings are enabled judiciously.
+
+=over 4
+
+=item CHECK is a new keyword
+
+All subroutine definitions named CHECK are now special.  See
+C</"Support for CHECK blocks"> for more information.
+
+=item Treatment of list slices of undef has changed
+
+There is a potential incompatibility in the behavior of list slices
+that are comprised entirely of undefined values.
+See L</"Behavior of list slices is more consistent">.
+
+=item Format of $English::PERL_VERSION is different
+
+The English module now sets $PERL_VERSION to $^V (a string value) rather
+than C<$]> (a numeric value).  This is a potential incompatibility.
+Send us a report via perlbug if you are affected by this.
+
+See L</"Improved Perl version numbering system"> for the reasons for
+this change.
+
+=item Literals of the form C<1.2.3> parse differently
+
+Previously, numeric literals with more than one dot in them were
+interpreted as a floating point number concatenated with one or more
+numbers.  Such "numbers" are now parsed as strings composed of the
+specified ordinals.
+
+For example, C<print 97.98.99> used to output C<97.9899> in earlier
+versions, but now prints C<abc>.
+
+See L</"Support for strings represented as a vector of ordinals">.
+
+=item Possibly changed pseudo-random number generator
+
+Perl programs that depend on reproducing a specific set of pseudo-random
+numbers may now produce different output due to improvements made to the
+rand() builtin.  You can use C<sh Configure -Drandfunc=rand> to obtain
+the old behavior.
+
+See L</"Better pseudo-random number generator">.
+
+=item Hashing function for hash keys has changed
+
+Even though Perl hashes are not order preserving, the apparently
+random order encountered when iterating on the contents of a hash
+is actually determined by the hashing algorithm used.  Improvements
+in the algorithm may yield a random order that is B<different> from
+that of previous versions, especially when iterating on hashes.
+
+See L</"Better worst-case behavior of hashes"> for additional
+information.
+
+=item C<undef> fails on read only values
+
+Using the C<undef> operator on a readonly value (such as $1) has
+the same effect as assigning C<undef> to the readonly value--it
+throws an exception.
+
+=item Close-on-exec bit may be set on pipe and socket handles
+
+Pipe and socket handles are also now subject to the close-on-exec
+behavior determined by the special variable $^F.
+
+See L</"More consistent close-on-exec behavior">.
+
+=item Writing C<"$$1"> to mean C<"${$}1"> is unsupported
+
+Perl 5.004 deprecated the interpretation of C<$$1> and
+similar within interpolated strings to mean C<$$ . "1">,
+but still allowed it.
+
+In Perl 5.6.0 and later, C<"$$1"> always means C<"${$1}">.
+
+=item delete(), each(), values() and C<\(%h)>
+
+operate on aliases to values, not copies
+
+delete(), each(), values() and hashes (e.g. C<\(%h)>)
+in a list context return the actual
+values in the hash, instead of copies (as they used to in earlier
+versions).  Typical idioms for using these constructs copy the
+returned values, but this can make a significant difference when
+creating references to the returned values.  Keys in the hash are still
+returned as copies when iterating on a hash.
+
+See also L</"delete(), each(), values() and hash iteration are faster">.
+
+=item vec(EXPR,OFFSET,BITS) enforces powers-of-two BITS
+
+vec() generates a run-time error if the BITS argument is not
+a valid power-of-two integer.
+
+=item Text of some diagnostic output has changed
+
+Most references to internal Perl operations in diagnostics
+have been changed to be more descriptive.  This may be an
+issue for programs that may incorrectly rely on the exact
+text of diagnostics for proper functioning.
+
+=item C<%@> has been removed
+
+The undocumented special variable C<%@> that used to accumulate
+"background" errors (such as those that happen in DESTROY())
+has been removed, because it could potentially result in memory
+leaks.
+
+=item Parenthesized not() behaves like a list operator
+
+The C<not> operator now falls under the "if it looks like a function,
+it behaves like a function" rule.
+
+As a result, the parenthesized form can be used with C<grep> and C<map>.
+The following construct used to be a syntax error before, but it works
+as expected now:
+
+    grep not($_), @things;
+
+On the other hand, using C<not> with a literal list slice may not
+work.  The following previously allowed construct:
+
+    print not (1,2,3)[0];
+
+needs to be written with additional parentheses now:
+
+    print not((1,2,3)[0]);
+
+The behavior remains unaffected when C<not> is not followed by parentheses.
+
+=item Semantics of bareword prototype C<(*)> have changed
+
+The semantics of the bareword prototype C<*> have changed.  Perl 5.005
+always coerced simple scalar arguments to a typeglob, which wasn't useful
+in situations where the subroutine must distinguish between a simple
+scalar and a typeglob.  The new behavior is to not coerce bareword
+arguments to a typeglob.  The value will always be visible as either
+a simple scalar or as a reference to a typeglob.
+
+See L</"More functional bareword prototype (*)">.
+
+=item Semantics of bit operators may have changed on 64-bit platforms
+
+If your platform is either natively 64-bit or if Perl has been
+configured to used 64-bit integers, i.e., $Config{ivsize} is 8, 
+there may be a potential incompatibility in the behavior of bitwise
+numeric operators (& | ^ ~ << >>).  These operators used to strictly
+operate on the lower 32 bits of integers in previous versions, but now
+operate over the entire native integral width.  In particular, note
+that unary C<~> will produce different results on platforms that have
+different $Config{ivsize}.  For portability, be sure to mask off
+the excess bits in the result of unary C<~>, e.g., C<~$x & 0xffffffff>.
+
+See L</"Bit operators support full native integer width">.
+
+=item More builtins taint their results
+
+As described in L</"Improved security features">, there may be more
+sources of taint in a Perl program.
+
+To avoid these new tainting behaviors, you can build Perl with the
+Configure option C<-Accflags=-DINCOMPLETE_TAINTS>.  Beware that the
+ensuing perl binary may be insecure.
+
+=back
+
+=head2 C Source Incompatibilities
+
+=over 4
+
+=item C<PERL_POLLUTE>
+
+Release 5.005 grandfathered old global symbol names by providing preprocessor
+macros for extension source compatibility.  As of release 5.6.0, these
+preprocessor definitions are not available by default.  You need to explicitly
+compile perl with C<-DPERL_POLLUTE> to get these definitions.  For
+extensions still using the old symbols, this option can be
+specified via MakeMaker:
+
+    perl Makefile.PL POLLUTE=1
+
+=item C<PERL_IMPLICIT_CONTEXT>
+
+This new build option provides a set of macros for all API functions
+such that an implicit interpreter/thread context argument is passed to
+every API function.  As a result of this, something like C<sv_setsv(foo,bar)>
+amounts to a macro invocation that actually translates to something like
+C<Perl_sv_setsv(my_perl,foo,bar)>.  While this is generally expected
+to not have any significant source compatibility issues, the difference
+between a macro and a real function call will need to be considered.
+
+This means that there B<is> a source compatibility issue as a result of
+this if your extensions attempt to use pointers to any of the Perl API
+functions.
+
+Note that the above issue is not relevant to the default build of
+Perl, whose interfaces continue to match those of prior versions
+(but subject to the other options described here).
+
+
+See L<perlguts/Background and PERL_IMPLICIT_CONTEXT> for detailed information on the
+ramifications of building Perl with this option.
+
+    NOTE: PERL_IMPLICIT_CONTEXT is automatically enabled whenever Perl is built
+    with one of -Dusethreads, -Dusemultiplicity, or both.  It is not
+    intended to be enabled by users at this time.
+
+=item C<PERL_POLLUTE_MALLOC>
+
+Enabling Perl's malloc in release 5.005 and earlier caused the namespace of
+the system's malloc family of functions to be usurped by the Perl versions,
+since by default they used the same names.  Besides causing problems on
+platforms that do not allow these functions to be cleanly replaced, this
+also meant that the system versions could not be called in programs that
+used Perl's malloc.  Previous versions of Perl have allowed this behaviour
+to be suppressed with the HIDEMYMALLOC and EMBEDMYMALLOC preprocessor
+definitions.
+
+As of release 5.6.0, Perl's malloc family of functions have default names
+distinct from the system versions.  You need to explicitly compile perl with
+C<-DPERL_POLLUTE_MALLOC> to get the older behaviour.  HIDEMYMALLOC
+and EMBEDMYMALLOC have no effect, since the behaviour they enabled is now
+the default.
+
+Note that these functions do B<not> constitute Perl's memory allocation API.
+See L<perlguts/"Memory Allocation"> for further information about that.
+
+=back
+
+=head2 Compatible C Source API Changes
+
+=over 4
+
+=item C<PATCHLEVEL> is now C<PERL_VERSION>
+
+The cpp macros C<PERL_REVISION>, C<PERL_VERSION>, and C<PERL_SUBVERSION>
+are now available by default from perl.h, and reflect the base revision,
+patchlevel, and subversion respectively.  C<PERL_REVISION> had no
+prior equivalent, while C<PERL_VERSION> and C<PERL_SUBVERSION> were
+previously available as C<PATCHLEVEL> and C<SUBVERSION>.
+
+The new names cause less pollution of the B<cpp> namespace and reflect what
+the numbers have come to stand for in common practice.  For compatibility,
+the old names are still supported when F<patchlevel.h> is explicitly
+included (as required before), so there is no source incompatibility
+from the change.
+
+=back
+
+=head2 Binary Incompatibilities
+
+In general, the default build of this release is expected to be binary
+compatible for extensions built with the 5.005 release or its maintenance
+versions.  However, specific platforms may have broken binary compatibility
+due to changes in the defaults used in hints files.  Therefore, please be
+sure to always check the platform-specific README files for any notes to
+the contrary.
+
+The usethreads or usemultiplicity builds are B<not> binary compatible
+with the corresponding builds in 5.005.
+
+On platforms that require an explicit list of exports (AIX, OS/2 and Windows,
+among others), purely internal symbols such as parser functions and the
+run time opcodes are not exported by default.  Perl 5.005 used to export
+all functions irrespective of whether they were considered part of the
+public API or not.
+
+For the full list of public API functions, see L<perlapi>.
+
+=head1 Known Problems
+
+=head2 Thread test failures
+
+The subtests 19 and 20 of lib/thr5005.t test are known to fail due to
+fundamental problems in the 5.005 threading implementation.  These are
+not new failures--Perl 5.005_0x has the same bugs, but didn't have these
+tests.
+
+=head2 EBCDIC platforms not supported
+
+In earlier releases of Perl, EBCDIC environments like OS390 (also
+known as Open Edition MVS) and VM-ESA were supported.  Due to changes
+required by the UTF-8 (Unicode) support, the EBCDIC platforms are not
+supported in Perl 5.6.0.
+
+=head2 In 64-bit HP-UX the lib/io_multihomed test may hang
+
+The lib/io_multihomed test may hang in HP-UX if Perl has been
+configured to be 64-bit.  Because other 64-bit platforms do not
+hang in this test, HP-UX is suspect.  All other tests pass
+in 64-bit HP-UX.  The test attempts to create and connect to
+"multihomed" sockets (sockets which have multiple IP addresses).
+
+=head2 NEXTSTEP 3.3 POSIX test failure
+
+In NEXTSTEP 3.3p2 the implementation of the strftime(3) in the
+operating system libraries is buggy: the %j format numbers the days of
+a month starting from zero, which, while being logical to programmers,
+will cause the subtests 19 to 27 of the lib/posix test may fail.
+
+=head2 Tru64 (aka Digital UNIX, aka DEC OSF/1) lib/sdbm test failure with gcc
+
+If compiled with gcc 2.95 the lib/sdbm test will fail (dump core).
+The cure is to use the vendor cc, it comes with the operating system
+and produces good code.
+
+=head2 UNICOS/mk CC failures during Configure run
+
+In UNICOS/mk the following errors may appear during the Configure run:
+
+	Guessing which symbols your C compiler and preprocessor define...
+	CC-20 cc: ERROR File = try.c, Line = 3
+	...
+	  bad switch yylook 79bad switch yylook 79bad switch yylook 79bad switch yylook 79#ifdef A29K
+	...
+	4 errors detected in the compilation of "try.c".
+
+The culprit is the broken awk of UNICOS/mk.  The effect is fortunately
+rather mild: Perl itself is not adversely affected by the error, only
+the h2ph utility coming with Perl, and that is rather rarely needed
+these days.
+
+=head2 Arrow operator and arrays
+
+When the left argument to the arrow operator C<< -> >> is an array, or
+the C<scalar> operator operating on an array, the result of the
+operation must be considered erroneous. For example:
+
+    @x->[2]
+    scalar(@x)->[2]
+
+These expressions will get run-time errors in some future release of
+Perl.
+
+=head2 Experimental features
+
+As discussed above, many features are still experimental.  Interfaces and
+implementation of these features are subject to change, and in extreme cases,
+even subject to removal in some future release of Perl.  These features
+include the following:
+
+=over 4
+
+=item Threads
+
+=item Unicode
+
+=item 64-bit support
+
+=item Lvalue subroutines
+
+=item Weak references
+
+=item The pseudo-hash data type
+
+=item The Compiler suite
+
+=item Internal implementation of file globbing
+
+=item The DB module
+
+=item The regular expression code constructs: 
+
+C<(?{ code })> and C<(??{ code })>
+
+=back
+
+=head1 Obsolete Diagnostics
+
+=over 4
+
+=item Character class syntax [: :] is reserved for future extensions
+
+(W) Within regular expression character classes ([]) the syntax beginning
+with "[:" and ending with ":]" is reserved for future extensions.
+If you need to represent those character sequences inside a regular
+expression character class, just quote the square brackets with the
+backslash: "\[:" and ":\]".
+
+=item Ill-formed logical name |%s| in prime_env_iter
+
+(W) A warning peculiar to VMS.  A logical name was encountered when preparing
+to iterate over %ENV which violates the syntactic rules governing logical
+names.  Because it cannot be translated normally, it is skipped, and will not
+appear in %ENV.  This may be a benign occurrence, as some software packages
+might directly modify logical name tables and introduce nonstandard names,
+or it may indicate that a logical name table has been corrupted.
+
+=item In string, @%s now must be written as \@%s
+
+The description of this error used to say:
+
+        (Someday it will simply assume that an unbackslashed @
+         interpolates an array.)
+
+That day has come, and this fatal error has been removed.  It has been
+replaced by a non-fatal warning instead.
+See L</Arrays now always interpolate into double-quoted strings> for
+details.
+
+=item Probable precedence problem on %s
+
+(W) The compiler found a bareword where it expected a conditional,
+which often indicates that an || or && was parsed as part of the
+last argument of the previous construct, for example:
+
+    open FOO || die;
+
+=item regexp too big
+
+(F) The current implementation of regular expressions uses shorts as
+address offsets within a string.  Unfortunately this means that if
+the regular expression compiles to longer than 32767, it'll blow up.
+Usually when you want a regular expression this big, there is a better
+way to do it with multiple statements.  See L<perlre>.
+
+=item Use of "$$<digit>" to mean "${$}<digit>" is deprecated
+
+(D) Perl versions before 5.004 misinterpreted any type marker followed
+by "$" and a digit.  For example, "$$0" was incorrectly taken to mean
+"${$}0" instead of "${$0}".  This bug is (mostly) fixed in Perl 5.004.
+
+However, the developers of Perl 5.004 could not fix this bug completely,
+because at least two widely-used modules depend on the old meaning of
+"$$0" in a string.  So Perl 5.004 still interprets "$$<digit>" in the
+old (broken) way inside strings; but it generates this message as a
+warning.  And in Perl 5.005, this special treatment will cease.
+
+=back
+
+=head1 Reporting Bugs
+
+If you find what you think is a bug, you might check the
+articles recently posted to the comp.lang.perl.misc newsgroup.
+There may also be information at http://www.perl.com/perl/ , the Perl
+Home Page.
+
+If you believe you have an unreported bug, please run the B<perlbug>
+program included with your release.  Be sure to trim your bug down
+to a tiny but sufficient test case.  Your bug report, along with the
+output of C<perl -V>, will be sent off to perlbug@perl.org to be
+analysed by the Perl porting team.
+
+=head1 SEE ALSO
+
+The F<Changes> file for exhaustive details on what changed.
+
+The F<INSTALL> file for how to build Perl.
+
+The F<README> file for general stuff.
+
+The F<Artistic> and F<Copying> files for copyright information.
+
+=head1 HISTORY
+
+Written by Gurusamy Sarathy <F<gsar@activestate.com>>, with many
+contributions from The Perl Porters.
+
+Send omissions or corrections to <F<perlbug@perl.org>>.
+
+=cut
diff --git a/lib/5.24.1/pod/perl581delta.pod b/lib/5.24.1/pod/perl581delta.pod
new file mode 100644
index 00000000..cd88c73b
--- /dev/null
+++ b/lib/5.24.1/pod/perl581delta.pod
@@ -0,0 +1,1102 @@
+=head1 NAME
+
+perl581delta - what is new for perl v5.8.1
+
+=head1 DESCRIPTION
+
+This document describes differences between the 5.8.0 release and
+the 5.8.1 release.
+
+If you are upgrading from an earlier release such as 5.6.1, first read
+the L<perl58delta>, which describes differences between 5.6.0 and
+5.8.0.
+
+In case you are wondering about 5.6.1, it was bug-fix-wise rather
+identical to the development release 5.7.1.  Confused?  This timeline
+hopefully helps a bit: it lists the new major releases, their maintenance
+releases, and the development releases.
+
+          New     Maintenance  Development
+
+          5.6.0                             2000-Mar-22
+                               5.7.0        2000-Sep-02
+                  5.6.1                     2001-Apr-08
+                               5.7.1        2001-Apr-09
+                               5.7.2        2001-Jul-13
+                               5.7.3        2002-Mar-05
+          5.8.0                             2002-Jul-18
+                  5.8.1                     2003-Sep-25
+
+=head1 Incompatible Changes
+
+=head2 Hash Randomisation
+
+Mainly due to security reasons, the "random ordering" of hashes
+has been made even more random.  Previously while the order of hash
+elements from keys(), values(), and each() was essentially random,
+it was still repeatable.  Now, however, the order varies between
+different runs of Perl.
+
+B<Perl has never guaranteed any ordering of the hash keys>, and the
+ordering has already changed several times during the lifetime of
+Perl 5.  Also, the ordering of hash keys has always been, and
+continues to be, affected by the insertion order.
+
+The added randomness may affect applications.
+
+One possible scenario is when output of an application has included
+hash data.  For example, if you have used the Data::Dumper module to
+dump data into different files, and then compared the files to see
+whether the data has changed, now you will have false positives since
+the order in which hashes are dumped will vary.  In general the cure
+is to sort the keys (or the values); in particular for Data::Dumper to
+use the C<Sortkeys> option.  If some particular order is really
+important, use tied hashes: for example the Tie::IxHash module
+which by default preserves the order in which the hash elements
+were added.
+
+More subtle problem is reliance on the order of "global destruction".
+That is what happens at the end of execution: Perl destroys all data
+structures, including user data.  If your destructors (the DESTROY
+subroutines) have assumed any particular ordering to the global
+destruction, there might be problems ahead.  For example, in a
+destructor of one object you cannot assume that objects of any other
+class are still available, unless you hold a reference to them.
+If the environment variable PERL_DESTRUCT_LEVEL is set to a non-zero
+value, or if Perl is exiting a spawned thread, it will also destruct
+the ordinary references and the symbol tables that are no longer in use.
+You can't call a class method or an ordinary function on a class that
+has been collected that way.
+
+The hash randomisation is certain to reveal hidden assumptions about
+some particular ordering of hash elements, and outright bugs: it
+revealed a few bugs in the Perl core and core modules.
+
+To disable the hash randomisation in runtime, set the environment
+variable PERL_HASH_SEED to 0 (zero) before running Perl (for more
+information see L<perlrun/PERL_HASH_SEED>), or to disable the feature
+completely in compile time, compile with C<-DNO_HASH_SEED> (see F<INSTALL>).
+
+See L<perlsec/"Algorithmic Complexity Attacks"> for the original
+rationale behind this change.
+
+=head2 UTF-8 On Filehandles No Longer Activated By Locale
+
+In Perl 5.8.0 all filehandles, including the standard filehandles,
+were implicitly set to be in Unicode UTF-8 if the locale settings
+indicated the use of UTF-8.  This feature caused too many problems,
+so the feature was turned off and redesigned: see L</"Core Enhancements">.
+
+=head2 Single-number v-strings are no longer v-strings before "=>"
+
+The version strings or v-strings (see L<perldata/"Version Strings">)
+feature introduced in Perl 5.6.0 has been a source of some confusion--
+especially when the user did not want to use it, but Perl thought it
+knew better.  Especially troublesome has been the feature that before
+a "=>" a version string (a "v" followed by digits) has been interpreted
+as a v-string instead of a string literal.  In other words:
+
+	%h = ( v65 => 42 );
+
+has meant since Perl 5.6.0
+
+	%h = ( 'A' => 42 );
+
+(at least in platforms of ASCII progeny)  Perl 5.8.1 restores the
+more natural interpretation
+
+	%h = ( 'v65' => 42 );
+
+The multi-number v-strings like v65.66 and 65.66.67 still continue to
+be v-strings in Perl 5.8.
+
+=head2 (Win32) The -C Switch Has Been Repurposed
+
+The -C switch has changed in an incompatible way.  The old semantics
+of this switch only made sense in Win32 and only in the "use utf8"
+universe in 5.6.x releases, and do not make sense for the Unicode
+implementation in 5.8.0.  Since this switch could not have been used
+by anyone, it has been repurposed.  The behavior that this switch
+enabled in 5.6.x releases may be supported in a transparent,
+data-dependent fashion in a future release.
+
+For the new life of this switch, see L<"UTF-8 no longer default under
+UTF-8 locales">, and L<perlrun/-C>.
+
+=head2 (Win32) The /d Switch Of cmd.exe
+
+Perl 5.8.1 uses the /d switch when running the cmd.exe shell
+internally for system(), backticks, and when opening pipes to external
+programs.  The extra switch disables the execution of AutoRun commands
+from the registry, which is generally considered undesirable when
+running external programs.  If you wish to retain compatibility with
+the older behavior, set PERL5SHELL in your environment to C<cmd /x/c>.
+
+=head1 Core Enhancements
+
+=head2 UTF-8 no longer default under UTF-8 locales
+
+In Perl 5.8.0 many Unicode features were introduced.   One of them
+was found to be of more nuisance than benefit: the automagic
+(and silent) "UTF-8-ification" of filehandles, including the
+standard filehandles, if the user's locale settings indicated
+use of UTF-8.
+
+For example, if you had C<en_US.UTF-8> as your locale, your STDIN and
+STDOUT were automatically "UTF-8", in other words an implicit
+binmode(..., ":utf8") was made.  This meant that trying to print, say,
+chr(0xff), ended up printing the bytes 0xc3 0xbf.  Hardly what
+you had in mind unless you were aware of this feature of Perl 5.8.0.
+The problem is that the vast majority of people weren't: for example
+in RedHat releases 8 and 9 the B<default> locale setting is UTF-8, so
+all RedHat users got UTF-8 filehandles, whether they wanted it or not.
+The pain was intensified by the Unicode implementation of Perl 5.8.0
+(still) having nasty bugs, especially related to the use of s/// and
+tr///.  (Bugs that have been fixed in 5.8.1)
+
+Therefore a decision was made to backtrack the feature and change it
+from implicit silent default to explicit conscious option.  The new
+Perl command line option C<-C> and its counterpart environment
+variable PERL_UNICODE can now be used to control how Perl and Unicode
+interact at interfaces like I/O and for example the command line
+arguments.  See L<perlrun/-C> and L<perlrun/PERL_UNICODE> for more
+information.
+
+=head2 Unsafe signals again available
+
+In Perl 5.8.0 the so-called "safe signals" were introduced.  This
+means that Perl no longer handles signals immediately but instead
+"between opcodes", when it is safe to do so.  The earlier immediate
+handling easily could corrupt the internal state of Perl, resulting
+in mysterious crashes.
+
+However, the new safer model has its problems too.  Because now an
+opcode, a basic unit of Perl execution, is never interrupted but
+instead let to run to completion, certain operations that can take a
+long time now really do take a long time.  For example, certain
+network operations have their own blocking and timeout mechanisms, and
+being able to interrupt them immediately would be nice.
+
+Therefore perl 5.8.1 introduces a "backdoor" to restore the pre-5.8.0
+(pre-5.7.3, really) signal behaviour.  Just set the environment variable
+PERL_SIGNALS to C<unsafe>, and the old immediate (and unsafe)
+signal handling behaviour returns.  See L<perlrun/PERL_SIGNALS>
+and L<perlipc/"Deferred Signals (Safe Signals)">.
+
+In completely unrelated news, you can now use safe signals with
+POSIX::SigAction.  See L<POSIX/POSIX::SigAction>.
+
+=head2 Tied Arrays with Negative Array Indices
+
+Formerly, the indices passed to C<FETCH>, C<STORE>, C<EXISTS>, and
+C<DELETE> methods in tied array class were always non-negative.  If
+the actual argument was negative, Perl would call FETCHSIZE implicitly
+and add the result to the index before passing the result to the tied
+array method.  This behaviour is now optional.  If the tied array class
+contains a package variable named C<$NEGATIVE_INDICES> which is set to
+a true value, negative values will be passed to C<FETCH>, C<STORE>,
+C<EXISTS>, and C<DELETE> unchanged.
+
+=head2 local ${$x}
+
+The syntaxes
+
+	local ${$x}
+	local @{$x}
+	local %{$x}
+
+now do localise variables, given that the $x is a valid variable name.
+
+=head2 Unicode Character Database 4.0.0
+
+The copy of the Unicode Character Database included in Perl 5.8 has
+been updated to 4.0.0 from 3.2.0.  This means for example that the
+Unicode character properties are as in Unicode 4.0.0.
+
+=head2 Deprecation Warnings
+
+There is one new feature deprecation.  Perl 5.8.0 forgot to add
+some deprecation warnings, these warnings have now been added.
+Finally, a reminder of an impending feature removal.
+
+=head3 (Reminder) Pseudo-hashes are deprecated (really)
+
+Pseudo-hashes were deprecated in Perl 5.8.0 and will be removed in
+Perl 5.10.0, see L<perl58delta> for details.  Each attempt to access
+pseudo-hashes will trigger the warning C<Pseudo-hashes are deprecated>.
+If you really want to continue using pseudo-hashes but not to see the
+deprecation warnings, use:
+
+    no warnings 'deprecated';
+
+Or you can continue to use the L<fields> pragma, but please don't
+expect the data structures to be pseudohashes any more.
+
+=head3 (Reminder) 5.005-style threads are deprecated (really)
+
+5.005-style threads (activated by C<use Thread;>) were deprecated in
+Perl 5.8.0 and will be removed after Perl 5.8, see L<perl58delta> for
+details.  Each 5.005-style thread creation will trigger the warning
+C<5.005 threads are deprecated>.  If you really want to continue
+using the 5.005 threads but not to see the deprecation warnings, use:
+
+    no warnings 'deprecated';
+
+=head3 (Reminder) The $* variable is deprecated (really)
+
+The C<$*> variable controlling multi-line matching has been deprecated
+and will be removed after 5.8.  The variable has been deprecated for a
+long time, and a deprecation warning C<Use of $* is deprecated> is given,
+now the variable will just finally be removed.  The functionality has
+been supplanted by the C</s> and C</m> modifiers on pattern matching.
+If you really want to continue using the C<$*>-variable but not to see
+the deprecation warnings, use:
+
+    no warnings 'deprecated';
+
+=head2 Miscellaneous Enhancements
+
+C<map> in void context is no longer expensive. C<map> is now context
+aware, and will not construct a list if called in void context.
+
+If a socket gets closed by the server while printing to it, the client
+now gets a SIGPIPE.  While this new feature was not planned, it fell
+naturally out of PerlIO changes, and is to be considered an accidental
+feature.
+
+PerlIO::get_layers(FH) returns the names of the PerlIO layers
+active on a filehandle.
+
+PerlIO::via layers can now have an optional UTF8 method to
+indicate whether the layer wants to "auto-:utf8" the stream.
+
+utf8::is_utf8() has been added as a quick way to test whether
+a scalar is encoded internally in UTF-8 (Unicode).
+
+=head1 Modules and Pragmata
+
+=head2 Updated Modules And Pragmata
+
+The following modules and pragmata have been updated since Perl 5.8.0:
+
+=over 4
+
+=item base
+
+=item B::Bytecode
+
+In much better shape than it used to be.  Still far from perfect, but
+maybe worth a try.
+
+=item B::Concise
+
+=item B::Deparse
+
+=item Benchmark
+
+An optional feature, C<:hireswallclock>, now allows for high
+resolution wall clock times (uses Time::HiRes).
+
+=item ByteLoader
+
+See B::Bytecode.
+
+=item bytes
+
+Now has bytes::substr.
+
+=item CGI
+
+=item charnames
+
+One can now have custom character name aliases.
+
+=item CPAN
+
+There is now a simple command line frontend to the CPAN.pm
+module called F<cpan>.
+
+=item Data::Dumper
+
+A new option, Pair, allows choosing the separator between hash keys
+and values.
+
+=item DB_File
+
+=item Devel::PPPort
+
+=item Digest::MD5
+
+=item Encode
+
+Significant updates on the encoding pragma functionality
+(tr/// and the DATA filehandle, formats).
+
+If a filehandle has been marked as to have an encoding, unmappable
+characters are detected already during input, not later (when the
+corrupted data is being used).
+
+The ISO 8859-6 conversion table has been corrected (the 0x30..0x39
+erroneously mapped to U+0660..U+0669, instead of U+0030..U+0039).  The
+GSM 03.38 conversion did not handle escape sequences correctly.  The
+UTF-7 encoding has been added (making Encode feature-complete with
+Unicode::String).
+
+=item fields
+
+=item libnet
+
+=item Math::BigInt
+
+A lot of bugs have been fixed since v1.60, the version included in Perl
+v5.8.0. Especially noteworthy are the bug in Calc that caused div and mod to
+fail for some large values, and the fixes to the handling of bad inputs.
+
+Some new features were added, e.g. the broot() method, you can now pass
+parameters to config() to change some settings at runtime, and it is now
+possible to trap the creation of NaN and infinity.
+
+As usual, some optimizations took place and made the math overall a tad
+faster. In some cases, quite a lot faster, actually. Especially alternative
+libraries like Math::BigInt::GMP benefit from this. In addition, a lot of the
+quite clunky routines like fsqrt() and flog() are now much much faster.
+
+=item MIME::Base64
+
+=item NEXT
+
+Diamond inheritance now works.
+
+=item Net::Ping
+
+=item PerlIO::scalar
+
+Reading from non-string scalars (like the special variables, see
+L<perlvar>) now works.
+
+=item podlators
+
+=item Pod::LaTeX
+
+=item PodParsers
+
+=item Pod::Perldoc
+
+Complete rewrite.  As a side-effect, no longer refuses to startup when
+run by root.
+
+=item Scalar::Util
+
+New utilities: refaddr, isvstring, looks_like_number, set_prototype.
+
+=item Storable
+
+Can now store code references (via B::Deparse, so not foolproof).
+
+=item strict
+
+Earlier versions of the strict pragma did not check the parameters
+implicitly passed to its "import" (use) and "unimport" (no) routine.
+This caused the false idiom such as:
+
+        use strict qw(@ISA);
+        @ISA = qw(Foo);
+
+This however (probably) raised the false expectation that the strict
+refs, vars and subs were being enforced (and that @ISA was somehow
+"declared").  But the strict refs, vars, and subs are B<not> enforced
+when using this false idiom.
+
+Starting from Perl 5.8.1, the above B<will> cause an error to be
+raised.  This may cause programs which used to execute seemingly
+correctly without warnings and errors to fail when run under 5.8.1.
+This happens because
+
+        use strict qw(@ISA);
+
+will now fail with the error:
+
+        Unknown 'strict' tag(s) '@ISA'
+
+The remedy to this problem is to replace this code with the correct idiom:
+
+        use strict;
+        use vars qw(@ISA);
+        @ISA = qw(Foo);
+
+=item Term::ANSIcolor
+
+=item Test::Harness
+
+Now much more picky about extra or missing output from test scripts.
+
+=item Test::More
+
+=item Test::Simple
+
+=item Text::Balanced
+
+=item Time::HiRes
+
+Use of nanosleep(), if available, allows mixing subsecond sleeps with
+alarms.
+
+=item threads
+
+Several fixes, for example for join() problems and memory
+leaks.  In some platforms (like Linux) that use glibc the minimum memory
+footprint of one ithread has been reduced by several hundred kilobytes.
+
+=item threads::shared
+
+Many memory leaks have been fixed.
+
+=item Unicode::Collate
+
+=item Unicode::Normalize
+
+=item Win32::GetFolderPath
+
+=item Win32::GetOSVersion
+
+Now returns extra information.
+
+=back
+
+=head1 Utility Changes
+
+The C<h2xs> utility now produces a more modern layout:
+F<Foo-Bar/lib/Foo/Bar.pm> instead of F<Foo/Bar/Bar.pm>.
+Also, the boilerplate test is now called F<t/Foo-Bar.t>
+instead of F<t/1.t>.
+
+The Perl debugger (F<lib/perl5db.pl>) has now been extensively
+documented and bugs found while documenting have been fixed.
+
+C<perldoc> has been rewritten from scratch to be more robust and
+feature rich.
+
+C<perlcc -B> works now at least somewhat better, while C<perlcc -c>
+is rather more broken.  (The Perl compiler suite as a whole continues
+to be experimental.)
+
+=head1 New Documentation
+
+perl573delta has been added to list the differences between the
+(now quite obsolete) development releases 5.7.2 and 5.7.3.
+
+perl58delta has been added: it is the perldelta of 5.8.0, detailing
+the differences between 5.6.0 and 5.8.0.
+
+perlartistic has been added: it is the Artistic License in pod format,
+making it easier for modules to refer to it.
+
+perlcheat has been added: it is a Perl cheat sheet.
+
+perlgpl has been added: it is the GNU General Public License in pod
+format, making it easier for modules to refer to it.
+
+perlmacosx has been added to tell about the installation and use
+of Perl in Mac OS X.
+
+perlos400 has been added to tell about the installation and use
+of Perl in OS/400 PASE.
+
+perlreref has been added: it is a regular expressions quick reference.
+
+=head1 Installation and Configuration Improvements
+
+The Unix standard Perl location, F</usr/bin/perl>, is no longer
+overwritten by default if it exists.  This change was very prudent
+because so many Unix vendors already provide a F</usr/bin/perl>,
+but simultaneously many system utilities may depend on that
+exact version of Perl, so better not to overwrite it.
+
+One can now specify installation directories for site and vendor man
+and HTML pages, and site and vendor scripts.  See F<INSTALL>.
+
+One can now specify a destination directory for Perl installation
+by specifying the DESTDIR variable for C<make install>.  (This feature
+is slightly different from the previous C<Configure -Dinstallprefix=...>.)
+See F<INSTALL>.
+
+gcc versions 3.x introduced a new warning that caused a lot of noise
+during Perl compilation: C<gcc -Ialreadyknowndirectory (warning:
+changing search order)>.  This warning has now been avoided by
+Configure weeding out such directories before the compilation.
+
+One can now build subsets of Perl core modules by using the
+Configure flags C<-Dnoextensions=...> and C<-Donlyextensions=...>,
+see F<INSTALL>.
+
+=head2 Platform-specific enhancements
+
+In Cygwin Perl can now be built with threads (C<Configure -Duseithreads>).
+This works with both Cygwin 1.3.22 and Cygwin 1.5.3.
+
+In newer FreeBSD releases Perl 5.8.0 compilation failed because of
+trying to use F<malloc.h>, which in FreeBSD is just a dummy file, and
+a fatal error to even try to use.  Now F<malloc.h> is not used.
+
+Perl is now known to build also in Hitachi HI-UXMPP.
+
+Perl is now known to build again in LynxOS.
+
+Mac OS X now installs with Perl version number embedded in
+installation directory names for easier upgrading of user-compiled
+Perl, and the installation directories in general are more standard.
+In other words, the default installation no longer breaks the
+Apple-provided Perl.  On the other hand, with C<Configure -Dprefix=/usr>
+you can now really replace the Apple-supplied Perl (B<please be careful>).
+
+Mac OS X now builds Perl statically by default.  This change was done
+mainly for faster startup times.  The Apple-provided Perl is still
+dynamically linked and shared, and you can enable the sharedness for
+your own Perl builds by C<Configure -Duseshrplib>.
+
+Perl has been ported to IBM's OS/400 PASE environment.  The best way
+to build a Perl for PASE is to use an AIX host as a cross-compilation
+environment.  See README.os400.
+
+Yet another cross-compilation option has been added: now Perl builds
+on OpenZaurus, an Linux distribution based on Mandrake + Embedix for
+the Sharp Zaurus PDA.  See the Cross/README file.
+
+Tru64 when using gcc 3 drops the optimisation for F<toke.c> to C<-O2>
+because of gigantic memory use with the default C<-O3>.
+
+Tru64 can now build Perl with the newer Berkeley DBs.
+
+Building Perl on WinCE has been much enhanced, see F<README.ce>
+and F<README.perlce>.
+
+=head1 Selected Bug Fixes
+
+=head2 Closures, eval and lexicals
+
+There have been many fixes in the area of anonymous subs, lexicals and
+closures.  Although this means that Perl is now more "correct", it is
+possible that some existing code will break that happens to rely on
+the faulty behaviour.  In practice this is unlikely unless your code
+contains a very complex nesting of anonymous subs, evals and lexicals.
+
+=head2 Generic fixes
+
+If an input filehandle is marked C<:utf8> and Perl sees illegal UTF-8
+coming in when doing C<< <FH> >>, if warnings are enabled a warning is
+immediately given - instead of being silent about it and Perl being
+unhappy about the broken data later.  (The C<:encoding(utf8)> layer
+also works the same way.)
+
+binmode(SOCKET, ":utf8") only worked on the input side, not on the
+output side of the socket.  Now it works both ways.
+
+For threaded Perls certain system database functions like getpwent()
+and getgrent() now grow their result buffer dynamically, instead of
+failing.  This means that at sites with lots of users and groups the
+functions no longer fail by returning only partial results.
+
+Perl 5.8.0 had accidentally broken the capability for users
+to define their own uppercase<->lowercase Unicode mappings
+(as advertised by the Camel).  This feature has been fixed and
+is also documented better.
+
+In 5.8.0 this
+
+	$some_unicode .= <FH>;
+
+didn't work correctly but instead corrupted the data.  This has now
+been fixed.
+
+Tied methods like FETCH etc. may now safely access tied values, i.e.
+resulting in a recursive call to FETCH etc.  Remember to break the
+recursion, though.
+
+At startup Perl blocks the SIGFPE signal away since there isn't much
+Perl can do about it.  Previously this blocking was in effect also for
+programs executed from within Perl.  Now Perl restores the original
+SIGFPE handling routine, whatever it was, before running external
+programs.
+
+Linenumbers in Perl scripts may now be greater than 65536, or 2**16.
+(Perl scripts have always been able to be larger than that, it's just
+that the linenumber for reported errors and warnings have "wrapped
+around".)  While scripts that large usually indicate a need to rethink
+your code a bit, such Perl scripts do exist, for example as results
+from generated code.  Now linenumbers can go all the way to
+4294967296, or 2**32.
+
+=head2 Platform-specific fixes
+
+Linux
+
+=over 4
+
+=item *
+
+Setting $0 works again (with certain limitations that
+Perl cannot do much about: see L<perlvar/$0>)
+
+=back
+
+HP-UX
+
+=over 4
+
+=item *
+
+Setting $0 now works.
+
+=back
+
+VMS
+
+=over 4
+
+=item *
+
+Configuration now tests for the presence of C<poll()>, and IO::Poll
+now uses the vendor-supplied function if detected.
+
+=item *
+
+A rare access violation at Perl start-up could occur if the Perl image was
+installed with privileges or if there was an identifier with the
+subsystem attribute set in the process's rightslist.  Either of these
+circumstances triggered tainting code that contained a pointer bug. 
+The faulty pointer arithmetic has been fixed.
+
+=item *
+
+The length limit on values (not keys) in the %ENV hash has been raised
+from 255 bytes to 32640 bytes (except when the PERL_ENV_TABLES setting
+overrides the default use of logical names for %ENV).  If it is
+necessary to access these long values from outside Perl, be aware that
+they are implemented using search list logical names that store the
+value in pieces, each 255-byte piece (up to 128 of them) being an
+element in the search list. When doing a lookup in %ENV from within
+Perl, the elements are combined into a single value.  The existing
+VMS-specific ability to access individual elements of a search list
+logical name via the $ENV{'foo;N'} syntax (where N is the search list
+index) is unimpaired.
+
+=item *
+
+The piping implementation now uses local rather than global DCL
+symbols for inter-process communication.
+
+=item *
+
+File::Find could become confused when navigating to a relative
+directory whose name collided with a logical name.  This problem has
+been corrected by adding directory syntax to relative path names, thus
+preventing logical name translation.
+
+=back
+
+Win32
+
+=over 4
+
+=item *
+
+A memory leak in the fork() emulation has been fixed.
+
+=item *
+
+The return value of the ioctl() built-in function was accidentally
+broken in 5.8.0.  This has been corrected.
+
+=item *
+
+The internal message loop executed by perl during blocking operations
+sometimes interfered with messages that were external to Perl.
+This often resulted in blocking operations terminating prematurely or
+returning incorrect results, when Perl was executing under environments
+that could generate Windows messages.  This has been corrected.
+
+=item *
+
+Pipes and sockets are now automatically in binary mode.
+
+=item *
+
+The four-argument form of select() did not preserve $! (errno) properly
+when there were errors in the underlying call.  This is now fixed.
+
+=item *
+
+The "CR CR LF" problem of has been fixed, binmode(FH, ":crlf")
+is now effectively a no-op.
+
+=back
+
+=head1 New or Changed Diagnostics
+
+All the warnings related to pack() and unpack() were made more
+informative and consistent.
+
+=head2 Changed "A thread exited while %d threads were running"
+
+The old version
+
+    A thread exited while %d other threads were still running
+
+was misleading because the "other" included also the thread giving
+the warning.
+
+=head2 Removed "Attempt to clear a restricted hash"
+
+It is not illegal to clear a restricted hash, so the warning
+was removed.
+
+=head2 New "Illegal declaration of anonymous subroutine"
+
+You must specify the block of code for C<sub>.
+
+=head2 Changed "Invalid range "%s" in transliteration operator"
+
+The old version
+
+    Invalid [] range "%s" in transliteration operator
+
+was simply wrong because there are no "[] ranges" in tr///.
+
+=head2 New "Missing control char name in \c"
+
+Self-explanatory.
+
+=head2 New "Newline in left-justified string for %s"
+
+The padding spaces would appear after the newline, which is
+probably not what you had in mind.
+
+=head2 New "Possible precedence problem on bitwise %c operator"
+
+If you think this
+
+    $x & $y == 0
+
+tests whether the bitwise AND of $x and $y is zero,
+you will like this warning.
+
+=head2 New "Pseudo-hashes are deprecated"
+
+This warning should have been already in 5.8.0, since they are.
+
+=head2 New "read() on %s filehandle %s"
+
+You cannot read() (or sysread()) from a closed or unopened filehandle.
+
+=head2 New "5.005 threads are deprecated"
+
+This warning should have been already in 5.8.0, since they are.
+
+=head2 New "Tied variable freed while still in use"
+
+Something pulled the plug on a live tied variable, Perl plays
+safe by bailing out.
+
+=head2 New "To%s: illegal mapping '%s'"
+
+An illegal user-defined Unicode casemapping was specified.
+
+=head2 New "Use of freed value in iteration"
+
+Something modified the values being iterated over.  This is not good.
+
+=head1 Changed Internals
+
+These news matter to you only if you either write XS code or like to
+know about or hack Perl internals (using Devel::Peek or any of the
+C<B::> modules counts), or like to run Perl with the C<-D> option.
+
+The embedding examples of L<perlembed> have been reviewed to be
+up to date and consistent: for example, the correct use of
+PERL_SYS_INIT3() and PERL_SYS_TERM().
+
+Extensive reworking of the pad code (the code responsible
+for lexical variables) has been conducted by Dave Mitchell.
+
+Extensive work on the v-strings by John Peacock.
+
+UTF-8 length and position cache: to speed up the handling of Unicode
+(UTF-8) scalars, a cache was introduced.  Potential problems exist if
+an extension bypasses the official APIs and directly modifies the PV
+of an SV: the UTF-8 cache does not get cleared as it should.
+
+APIs obsoleted in Perl 5.8.0, like sv_2pv, sv_catpvn, sv_catsv,
+sv_setsv, are again available.
+
+Certain Perl core C APIs like cxinc and regatom are no longer
+available at all to code outside the Perl core of the Perl core
+extensions.  This is intentional.  They never should have been
+available with the shorter names, and if you application depends on
+them, you should (be ashamed and) contact perl5-porters to discuss
+what are the proper APIs.
+
+Certain Perl core C APIs like C<Perl_list> are no longer available
+without their C<Perl_> prefix.  If your XS module stops working
+because some functions cannot be found, in many cases a simple fix is
+to add the C<Perl_> prefix to the function and the thread context
+C<aTHX_> as the first argument of the function call.  This is also how
+it should always have been done: letting the Perl_-less forms to leak
+from the core was an accident.  For cleaner embedding you can also
+force this for all APIs by defining at compile time the cpp define
+PERL_NO_SHORT_NAMES.
+
+Perl_save_bool() has been added.
+
+Regexp objects (those created with C<qr>) now have S-magic rather than
+R-magic.  This fixed regexps of the form /...(??{...;$x})/ to no
+longer ignore changes made to $x.  The S-magic avoids dropping
+the caching optimization and making (??{...}) constructs obscenely
+slow (and consequently useless).  See also L<perlguts/"Magic Variables">.
+Regexp::Copy was affected by this change.
+
+The Perl internal debugging macros DEBUG() and DEB() have been renamed
+to PERL_DEBUG() and PERL_DEB() to avoid namespace conflicts.
+
+C<-DL> removed (the leaktest had been broken and unsupported for years,
+use alternative debugging mallocs or tools like valgrind and Purify).
+
+Verbose modifier C<v> added for C<-DXv> and C<-Dsv>, see L<perlrun>.
+
+=head1 New Tests
+
+In Perl 5.8.0 there were about 69000 separate tests in about 700 test files,
+in Perl 5.8.1 there are about 77000 separate tests in about 780 test files.
+The exact numbers depend on the Perl configuration and on the operating
+system platform.
+
+=head1 Known Problems
+
+The hash randomisation mentioned in L</Incompatible Changes> is definitely
+problematic: it will wake dormant bugs and shake out bad assumptions.
+
+If you want to use mod_perl 2.x with Perl 5.8.1, you will need
+mod_perl-1.99_10 or higher.  Earlier versions of mod_perl 2.x
+do not work with the randomised hashes.  (mod_perl 1.x works fine.)
+You will also need Apache::Test 1.04 or higher.
+
+Many of the rarer platforms that worked 100% or pretty close to it
+with perl 5.8.0 have been left a little bit untended since their
+maintainers have been otherwise busy lately, and therefore there will
+be more failures on those platforms.  Such platforms include Mac OS
+Classic, IBM z/OS (and other EBCDIC platforms), and NetWare.  The most
+common Perl platforms (Unix and Unix-like, Microsoft platforms, and
+VMS) have large enough testing and expert population that they are
+doing well.
+
+=head2 Tied hashes in scalar context
+
+Tied hashes do not currently return anything useful in scalar context,
+for example when used as boolean tests:
+
+	if (%tied_hash) { ... }
+
+The current nonsensical behaviour is always to return false,
+regardless of whether the hash is empty or has elements.
+
+The root cause is that there is no interface for the implementors of
+tied hashes to implement the behaviour of a hash in scalar context.
+
+=head2 Net::Ping 450_service and 510_ping_udp failures
+
+The subtests 9 and 18 of lib/Net/Ping/t/450_service.t, and the
+subtest 2 of lib/Net/Ping/t/510_ping_udp.t might fail if you have
+an unusual networking setup.  For example in the latter case the
+test is trying to send a UDP ping to the IP address 127.0.0.1.
+
+=head2 B::C
+
+The C-generating compiler backend B::C (the frontend being
+C<perlcc -c>) is even more broken than it used to be because of
+the extensive lexical variable changes.  (The good news is that
+B::Bytecode and ByteLoader are better than they used to be.)
+
+=head1 Platform Specific Problems
+
+=head2 EBCDIC Platforms
+
+IBM z/OS and other EBCDIC platforms continue to be problematic
+regarding Unicode support.  Many Unicode tests are skipped when
+they really should be fixed.
+
+=head2 Cygwin 1.5 problems
+
+In Cygwin 1.5 the F<io/tell> and F<op/sysio> tests have failures for
+some yet unknown reason.  In 1.5.5 the threads tests stress_cv,
+stress_re, and stress_string are failing unless the environment
+variable PERLIO is set to "perlio" (which makes also the io/tell
+failure go away).
+
+Perl 5.8.1 does build and work well with Cygwin 1.3: with (uname -a)
+C<CYGWIN_NT-5.0 ... 1.3.22(0.78/3/2) 2003-03-18 09:20 i686 ...>
+a 100% "make test"  was achieved with C<Configure -des -Duseithreads>.
+
+=head2 HP-UX: HP cc warnings about sendfile and sendpath
+
+With certain HP C compiler releases (e.g. B.11.11.02) you will
+get many warnings like this (lines wrapped for easier reading):
+
+  cc: "/usr/include/sys/socket.h", line 504: warning 562:
+    Redeclaration of "sendfile" with a different storage class specifier:
+      "sendfile" will have internal linkage.
+  cc: "/usr/include/sys/socket.h", line 505: warning 562:
+    Redeclaration of "sendpath" with a different storage class specifier:
+      "sendpath" will have internal linkage.
+
+The warnings show up both during the build of Perl and during certain
+lib/ExtUtils tests that invoke the C compiler.  The warning, however,
+is not serious and can be ignored.
+
+=head2 IRIX: t/uni/tr_7jis.t falsely failing
+
+The test t/uni/tr_7jis.t is known to report failure under 'make test'
+or the test harness with certain releases of IRIX (at least IRIX 6.5
+and MIPSpro Compilers Version 7.3.1.1m), but if run manually the test
+fully passes.
+
+=head2 Mac OS X: no usemymalloc
+
+The Perl malloc (C<-Dusemymalloc>) does not work at all in Mac OS X.
+This is not that serious, though, since the native malloc works just
+fine.
+
+=head2 Tru64: No threaded builds with GNU cc (gcc)
+
+In the latest Tru64 releases (e.g. v5.1B or later) gcc cannot be used
+to compile a threaded Perl (-Duseithreads) because the system
+C<< <pthread.h> >> file doesn't know about gcc.
+
+=head2 Win32: sysopen, sysread, syswrite
+
+As of the 5.8.0 release, sysopen()/sysread()/syswrite() do not behave
+like they used to in 5.6.1 and earlier with respect to "text" mode.
+These built-ins now always operate in "binary" mode (even if sysopen()
+was passed the O_TEXT flag, or if binmode() was used on the file
+handle).  Note that this issue should only make a difference for disk
+files, as sockets and pipes have always been in "binary" mode in the
+Windows port.  As this behavior is currently considered a bug,
+compatible behavior may be re-introduced in a future release.  Until
+then, the use of sysopen(), sysread() and syswrite() is not supported
+for "text" mode operations.
+
+=head1 Future Directions
+
+The following things B<might> happen in future.  The first publicly
+available releases having these characteristics will be the developer
+releases Perl 5.9.x, culminating in the Perl 5.10.0 release.  These
+are our best guesses at the moment: we reserve the right to rethink.
+
+=over 4
+
+=item *
+
+PerlIO will become The Default.  Currently (in Perl 5.8.x) the stdio
+library is still used if Perl thinks it can use certain tricks to
+make stdio go B<really> fast.  For future releases our goal is to
+make PerlIO go even faster.
+
+=item *
+
+A new feature called I<assertions> will be available.  This means that
+one can have code called assertions sprinkled in the code: usually
+they are optimised away, but they can be enabled with the C<-A> option.
+
+=item *
+
+A new operator C<//> (defined-or) will be available.  This means that
+one will be able to say
+
+    $a // $b
+
+instead of
+
+   defined $a ? $a : $b
+
+and
+
+   $c //= $d;
+
+instead of
+
+   $c = $d unless defined $c;
+
+The operator will have the same precedence and associativity as C<||>.
+A source code patch against the Perl 5.8.1 sources will be available
+in CPAN as F<authors/id/H/HM/HMBRAND/dor-5.8.1.diff>.
+
+=item *
+
+C<unpack()> will default to unpacking the C<$_>.
+
+=item *
+
+Various Copy-On-Write techniques will be investigated in hopes
+of speeding up Perl.
+
+=item *
+
+CPANPLUS, Inline, and Module::Build will become core modules.
+
+=item *
+
+The ability to write true lexically scoped pragmas will be introduced.
+
+=item *
+
+Work will continue on the bytecompiler and byteloader.
+
+=item *
+
+v-strings as they currently exist are scheduled to be deprecated.  The
+v-less form (1.2.3) will become a "version object" when used with C<use>,
+C<require>, and C<$VERSION>.  $^V will also be a "version object" so the
+printf("%vd",...) construct will no longer be needed.  The v-ful version
+(v1.2.3) will become obsolete.  The equivalence of strings and v-strings (e.g.
+that currently 5.8.0 is equal to "\5\8\0") will go away.  B<There may be no
+deprecation warning for v-strings>, though: it is quite hard to detect when
+v-strings are being used safely, and when they are not.
+
+=item *
+
+5.005 Threads Will Be Removed
+
+=item *
+
+The C<$*> Variable Will Be Removed
+(it was deprecated a long time ago)
+
+=item *
+
+Pseudohashes Will Be Removed
+
+=back
+
+=head1 Reporting Bugs
+
+If you find what you think is a bug, you might check the articles
+recently posted to the comp.lang.perl.misc newsgroup and the perl
+bug database at http://bugs.perl.org/ .  There may also be
+information at http://www.perl.com/ , the Perl Home Page.
+
+If you believe you have an unreported bug, please run the B<perlbug>
+program included with your release.  Be sure to trim your bug down
+to a tiny but sufficient test case.  Your bug report, along with the
+output of C<perl -V>, will be sent off to perlbug@perl.org to be
+analysed by the Perl porting team.  You can browse and search
+the Perl 5 bugs at http://bugs.perl.org/
+
+=head1 SEE ALSO
+
+The F<Changes> file for exhaustive details on what changed.
+
+The F<INSTALL> file for how to build Perl.
+
+The F<README> file for general stuff.
+
+The F<Artistic> and F<Copying> files for copyright information.
+
+=cut
diff --git a/lib/5.24.1/pod/perl582delta.pod b/lib/5.24.1/pod/perl582delta.pod
new file mode 100644
index 00000000..87080702
--- /dev/null
+++ b/lib/5.24.1/pod/perl582delta.pod
@@ -0,0 +1,162 @@
+=head1 NAME
+
+perl582delta - what is new for perl v5.8.2
+
+=head1 DESCRIPTION
+
+This document describes differences between the 5.8.1 release and
+the 5.8.2 release.
+
+If you are upgrading from an earlier release such as 5.6.1, first read
+the L<perl58delta>, which describes differences between 5.6.0 and
+5.8.0, and the L<perl581delta>, which describes differences between
+5.8.0 and 5.8.1.
+
+=head1 Incompatible Changes
+
+For threaded builds for modules calling certain re-entrant system calls,
+binary compatibility was accidentally lost between 5.8.0 and 5.8.1.
+Binary compatibility with 5.8.0 has been restored in 5.8.2, which
+necessitates breaking compatibility with 5.8.1. We see this as the
+lesser of two evils.
+
+This will only affect people who have a threaded perl 5.8.1, and compiled
+modules which use these calls, and now attempt to run the compiled modules
+with 5.8.2. The fix is to re-compile and re-install the modules using 5.8.2.
+
+=head1 Core Enhancements
+
+=head2 Hash Randomisation
+
+The hash randomisation introduced with 5.8.1 has been amended. It
+transpired that although the implementation introduced in 5.8.1 was source
+compatible with 5.8.0, it was not binary compatible in certain cases. 5.8.2
+contains an improved implementation which is both source and binary
+compatible with both 5.8.0 and 5.8.1, and remains robust against the form of
+attack which prompted the change for 5.8.1.
+
+We are grateful to the Debian project for their input in this area.
+See L<perlsec/"Algorithmic Complexity Attacks"> for the original
+rationale behind this change.
+
+=head2 Threading
+
+Several memory leaks associated with variables shared between threads
+have been fixed.
+
+=head1 Modules and Pragmata
+
+=head2 Updated Modules And Pragmata
+
+The following modules and pragmata have been updated since Perl 5.8.1:
+
+=over 4
+
+=item Devel::PPPort
+
+=item Digest::MD5
+
+=item I18N::LangTags
+
+=item libnet
+
+=item MIME::Base64
+
+=item Pod::Perldoc
+
+=item strict
+
+Documentation improved
+
+=item Tie::Hash
+
+Documentation improved
+
+=item Time::HiRes
+
+=item Unicode::Collate
+
+=item Unicode::Normalize
+
+=item UNIVERSAL
+
+Documentation improved
+
+=back
+
+=head1 Selected Bug Fixes
+
+Some syntax errors involving unrecognized filetest operators are now handled
+correctly by the parser.
+
+=head1 Changed Internals
+
+Interpreter initialization is more complete when -DMULTIPLICITY is off.
+This should resolve problems with initializing and destroying the Perl
+interpreter more than once in a single process.                      
+
+=head1 Platform Specific Problems
+
+Dynamic linker flags have been tweaked for Solaris and OS X, which should
+solve problems seen while building some XS modules.
+
+Bugs in OS/2 sockets and tmpfile have been fixed.
+
+In OS X C<setreuid> and friends are troublesome - perl will now work
+around their problems as best possible.
+
+=head1 Future Directions
+
+Starting with 5.8.3 we intend to make more frequent maintenance releases,
+with a smaller number of changes in each. The intent is to propagate
+bug fixes out to stable releases more rapidly and make upgrading stable
+releases less of an upheaval. This should give end users more
+flexibility in their choice of upgrade timing, and allow them easier
+assessment of the impact of upgrades. The current plan is for code freezes
+as follows
+
+=over 4
+
+=item *
+
+5.8.3 23:59:59 GMT, Wednesday December 31st 2003
+
+=item *
+
+5.8.4 23:59:59 GMT, Wednesday March 31st 2004
+
+=item *
+
+5.8.5 23:59:59 GMT, Wednesday June 30th 2004
+
+=back
+
+with the release following soon after, when testing is complete.
+
+See L<perl581delta/"Future Directions"> for more soothsaying.
+
+=head1 Reporting Bugs
+
+If you find what you think is a bug, you might check the articles
+recently posted to the comp.lang.perl.misc newsgroup and the perl
+bug database at http://bugs.perl.org/.  There may also be
+information at http://www.perl.com/, the Perl Home Page.
+
+If you believe you have an unreported bug, please run the B<perlbug>
+program included with your release.  Be sure to trim your bug down
+to a tiny but sufficient test case.  Your bug report, along with the
+output of C<perl -V>, will be sent off to perlbug@perl.org to be
+analysed by the Perl porting team.  You can browse and search
+the Perl 5 bugs at http://bugs.perl.org/
+
+=head1 SEE ALSO
+
+The F<Changes> file for exhaustive details on what changed.
+
+The F<INSTALL> file for how to build Perl.
+
+The F<README> file for general stuff.
+
+The F<Artistic> and F<Copying> files for copyright information.
+
+=cut
diff --git a/lib/5.24.1/pod/perl583delta.pod b/lib/5.24.1/pod/perl583delta.pod
new file mode 100644
index 00000000..2981a983
--- /dev/null
+++ b/lib/5.24.1/pod/perl583delta.pod
@@ -0,0 +1,210 @@
+=head1 NAME
+
+perl583delta - what is new for perl v5.8.3
+
+=head1 DESCRIPTION
+
+This document describes differences between the 5.8.2 release and
+the 5.8.3 release.
+
+If you are upgrading from an earlier release such as 5.6.1, first read
+the L<perl58delta>, which describes differences between 5.6.0 and
+5.8.0, and the L<perl581delta> and L<perl582delta>, which describe differences
+between 5.8.0, 5.8.1 and 5.8.2
+
+=head1 Incompatible Changes
+
+There are no changes incompatible with 5.8.2.
+
+=head1 Core Enhancements
+
+A C<SCALAR> method is now available for tied hashes. This is called when
+a tied hash is used in scalar context, such as
+
+    if (%tied_hash) {
+	...
+    }
+
+
+The old behaviour was that %tied_hash would return whatever would have been
+returned for that hash before the hash was tied (so usually 0). The new
+behaviour in the absence of a SCALAR method is to return TRUE if in the
+middle of an C<each> iteration, and otherwise call FIRSTKEY to check if the
+hash is empty (making sure that a subsequent C<each> will also begin by
+calling FIRSTKEY). Please see L<perltie/SCALAR> for the full details and
+caveats.
+
+=head1 Modules and Pragmata
+
+=over 4
+
+=item CGI
+
+=item Cwd
+
+=item Digest
+
+=item Digest::MD5
+
+=item Encode
+
+=item File::Spec
+
+=item FindBin
+
+A function C<again> is provided to resolve problems where modules in different
+directories wish to use FindBin.
+
+=item List::Util
+
+You can now weaken references to read only values.
+
+=item Math::BigInt
+
+=item PodParser
+
+=item Pod::Perldoc
+
+=item POSIX
+
+=item Unicode::Collate
+
+=item Unicode::Normalize
+
+=item Test::Harness
+
+=item threads::shared
+
+C<cond_wait> has a new two argument form. C<cond_timedwait> has been added.
+
+=back
+
+=head1 Utility Changes
+
+C<find2perl> now assumes C<-print> as a default action. Previously, it
+needed to be specified explicitly.
+
+A new utility, C<prove>, makes it easy to run an individual regression test
+at the command line. C<prove> is part of Test::Harness, which users of earlier
+Perl versions can install from CPAN.
+
+=head1 New Documentation
+
+The documentation has been revised in places to produce more standard manpages.
+
+The documentation for the special code blocks (BEGIN, CHECK, INIT, END)
+has been improved.
+
+=head1 Installation and Configuration Improvements
+
+Perl now builds on OpenVMS I64
+
+=head1 Selected Bug Fixes
+
+Using substr() on a UTF8 string could cause subsequent accesses on that
+string to return garbage. This was due to incorrect UTF8 offsets being
+cached, and is now fixed.
+
+join() could return garbage when the same join() statement was used to
+process 8 bit data having earlier processed UTF8 data, due to the flags
+on that statement's temporary workspace not being reset correctly. This
+is now fixed.
+
+C<$a .. $b> will now work as expected when either $a or $b is C<undef>
+
+Using Unicode keys with tied hashes should now work correctly.
+
+Reading $^E now preserves $!. Previously, the C code implementing $^E
+did not preserve C<errno>, so reading $^E could cause C<errno> and therefore
+C<$!> to change unexpectedly.
+
+Reentrant functions will (once more) work with C++. 5.8.2 introduced a bugfix
+which accidentally broke the compilation of Perl extensions written in C++
+
+=head1 New or Changed Diagnostics
+
+The fatal error "DESTROY created new reference to dead object" is now
+documented in L<perldiag>.
+
+=head1 Changed Internals
+
+The hash code has been refactored to reduce source duplication. The
+external interface is unchanged, and aside from the bug fixes described
+above, there should be no change in behaviour.
+
+C<hv_clear_placeholders> is now part of the perl API
+
+Some C macros have been tidied. In particular macros which create temporary
+local variables now name these variables more defensively, which should
+avoid bugs where names clash.
+
+<signal.h> is now always included.
+
+=head1 Configuration and Building
+
+C<Configure> now invokes callbacks regardless of the value of the variable
+they are called for. Previously callbacks were only invoked in the
+C<case $variable $define)> branch. This change should only affect platform
+maintainers writing configuration hints files.
+
+=head1 Platform Specific Problems
+
+The regression test ext/threads/shared/t/wait.t fails on early RedHat 9
+and HP-UX 10.20 due to bugs in their threading implementations.
+RedHat users should see https://rhn.redhat.com/errata/RHBA-2003-136.html
+and consider upgrading their glibc.
+
+=head1 Known Problems
+
+Detached threads aren't supported on Windows yet, as they may lead to 
+memory access violation problems.
+
+There is a known race condition opening scripts in C<suidperl>. C<suidperl>
+is neither built nor installed by default, and has been deprecated since
+perl 5.8.0. You are advised to replace use of suidperl with tools such
+as sudo ( http://www.courtesan.com/sudo/ )
+
+We have a backlog of unresolved bugs. Dealing with bugs and bug reports
+is unglamorous work; not something ideally suited to volunteer labour,
+but that is all that we have.
+
+The perl5 development team are implementing changes to help address this
+problem, which should go live in early 2004.
+
+=head1 Future Directions
+
+Code freeze for the next maintenance release (5.8.4) is on March 31st 2004,
+with release expected by mid April. Similarly 5.8.5's freeze will be at
+the end of June, with release by mid July.
+
+=head1 Obituary
+
+Iain 'Spoon' Truskett, Perl hacker, author of L<perlreref> and
+contributor to CPAN, died suddenly on 29th December 2003, aged 24.
+He will be missed.
+
+=head1 Reporting Bugs
+
+If you find what you think is a bug, you might check the articles
+recently posted to the comp.lang.perl.misc newsgroup and the perl
+bug database at http://bugs.perl.org.  There may also be
+information at http://www.perl.org, the Perl Home Page.
+
+If you believe you have an unreported bug, please run the B<perlbug>
+program included with your release.  Be sure to trim your bug down
+to a tiny but sufficient test case.  Your bug report, along with the
+output of C<perl -V>, will be sent off to perlbug@perl.org to be
+analysed by the Perl porting team.  You can browse and search
+the Perl 5 bugs at http://bugs.perl.org/
+
+=head1 SEE ALSO
+
+The F<Changes> file for exhaustive details on what changed.
+
+The F<INSTALL> file for how to build Perl.
+
+The F<README> file for general stuff.
+
+The F<Artistic> and F<Copying> files for copyright information.
+
+=cut
diff --git a/lib/5.24.1/pod/perl584delta.pod b/lib/5.24.1/pod/perl584delta.pod
new file mode 100644
index 00000000..b2cdcc6b
--- /dev/null
+++ b/lib/5.24.1/pod/perl584delta.pod
@@ -0,0 +1,263 @@
+=head1 NAME
+
+perl584delta - what is new for perl v5.8.4
+
+=head1 DESCRIPTION
+
+This document describes differences between the 5.8.3 release and
+the 5.8.4 release.
+
+=head1 Incompatible Changes
+
+Many minor bugs have been fixed. Scripts which happen to rely on previously
+erroneous behaviour will consider these fixes as incompatible changes :-)
+You are advised to perform sufficient acceptance testing on this release
+to satisfy yourself that this does not affect you, before putting this
+release into production.
+
+The diagnostic output of Carp has been changed slightly, to add a space after
+the comma between arguments. This makes it much easier for tools such as
+web browsers to wrap it, but might confuse any automatic tools which perform
+detailed parsing of Carp output.
+
+The internal dump output has been improved, so that non-printable characters
+such as newline and backspace are output in C<\x> notation, rather than
+octal. This might just confuse non-robust tools which parse the output of
+modules such as Devel::Peek.
+
+=head1 Core Enhancements
+
+=head2 Malloc wrapping
+
+Perl can now be built to detect attempts to assign pathologically large chunks
+of memory.  Previously such assignments would suffer from integer wrap-around
+during size calculations causing a misallocation, which would crash perl, and
+could theoretically be used for "stack smashing" attacks.  The wrapping
+defaults to enabled on platforms where we know it works (most AIX
+configurations, BSDi, Darwin, DEC OSF/1, FreeBSD, HP/UX, GNU Linux, OpenBSD,
+Solaris, VMS and most Win32 compilers) and defaults to disabled on other
+platforms.
+
+=head2 Unicode Character Database 4.0.1
+
+The copy of the Unicode Character Database included in Perl 5.8 has
+been updated to 4.0.1 from 4.0.0.
+
+=head2 suidperl less insecure
+
+Paul Szabo has analysed and patched C<suidperl> to remove existing known
+insecurities. Currently there are no known holes in C<suidperl>, but previous
+experience shows that we cannot be confident that these were the last. You may
+no longer invoke the set uid perl directly, so to preserve backwards
+compatibility with scripts that invoke #!/usr/bin/suidperl the only set uid
+binary is now C<sperl5.8.>I<n> (C<sperl5.8.4> for this release). C<suidperl>
+is installed as a hard link to C<perl>; both C<suidperl> and C<perl> will
+invoke C<sperl5.8.4> automatically the set uid binary, so this change should
+be completely transparent.
+
+For new projects the core perl team would strongly recommend that you use
+dedicated, single purpose security tools such as C<sudo> in preference to
+C<suidperl>.
+
+=head2 format
+
+In addition to bug fixes, C<format>'s features have been enhanced. See
+L<perlform>
+
+=head1 Modules and Pragmata
+
+The (mis)use of C</tmp> in core modules and documentation has been tidied up.
+Some modules available both within the perl core and independently from CPAN
+("dual-life modules") have not yet had these changes applied; the changes
+will be integrated into future stable perl releases as the modules are
+updated on CPAN.
+
+=head2 Updated modules
+
+=over 4
+
+=item Attribute::Handlers
+
+=item B
+
+=item Benchmark
+
+=item CGI
+
+=item Carp
+
+=item Cwd
+
+=item Exporter
+
+=item File::Find
+
+=item IO
+
+=item IPC::Open3
+
+=item Local::Maketext
+
+=item Math::BigFloat
+
+=item Math::BigInt
+
+=item Math::BigRat
+
+=item MIME::Base64
+
+=item ODBM_File
+
+=item POSIX
+
+=item Shell
+
+=item Socket
+
+There is experimental support for Linux abstract Unix domain sockets.
+
+=item Storable
+
+=item Switch
+
+Synced with its CPAN version 2.10
+
+=item Sys::Syslog
+
+C<syslog()> can now use numeric constants for facility names and priorities,
+in addition to strings.
+
+=item Term::ANSIColor
+
+=item Time::HiRes
+
+=item Unicode::UCD
+
+=item Win32
+
+Win32.pm/Win32.xs has moved from the libwin32 module to core Perl
+
+=item base
+
+=item open
+
+=item threads
+
+Detached threads are now also supported on Windows.
+
+=item utf8
+
+=back
+
+=head1 Performance Enhancements
+
+=over 4
+
+=item *
+
+Accelerated Unicode case mappings (C</i>, C<lc>, C<uc>, etc).
+
+=item *
+
+In place sort optimised (eg C<@a = sort @a>)
+
+=item *
+
+Unnecessary assignment optimised away in
+
+  my $s = undef;
+  my @a = ();
+  my %h = ();
+
+=item *
+
+Optimised C<map> in scalar context
+
+=back
+
+=head1 Utility Changes
+
+The Perl debugger (F<lib/perl5db.pl>) can now save all debugger commands for
+sourcing later, and can display the parent inheritance tree of a given class.
+
+=head1 Installation and Configuration Improvements
+
+The build process on both VMS and Windows has had several minor improvements
+made. On Windows Borland's C compiler can now compile perl with PerlIO and/or
+USE_LARGE_FILES enabled.
+
+C<perl.exe> on Windows now has a "Camel" logo icon. The use of a camel with
+the topic of Perl is a trademark of O'Reilly and Associates Inc., and is used
+with their permission (ie distribution of the source, compiling a Windows
+executable from it, and using that executable locally). Use of the supplied
+camel for anything other than a perl executable's icon is specifically not
+covered, and anyone wishing to redistribute perl binaries I<with> the icon
+should check directly with O'Reilly beforehand.
+
+Perl should build cleanly on Stratus VOS once more.
+
+=head1 Selected Bug Fixes
+
+More utf8 bugs fixed, notably in how C<chomp>, C<chop>, C<send>, and
+C<syswrite> and interact with utf8 data. Concatenation now works correctly
+when C<use bytes;> is in scope.
+
+Pragmata are now correctly propagated into (?{...}) constructions in regexps.
+Code such as
+
+   my $x = qr{ ... (??{ $x }) ... };
+
+will now (correctly) fail under use strict. (As the inner C<$x> is and
+has always referred to C<$::x>)
+
+The "const in void context" warning has been suppressed for a constant in an
+optimised-away boolean expression such as C<5 || print;>
+
+C<perl -i> could C<fchmod(stdin)> by mistake. This is serious if stdin is
+attached to a terminal, and perl is running as root. Now fixed.
+
+=head1 New or Changed Diagnostics
+
+C<Carp> and the internal diagnostic routines used by C<Devel::Peek> have been
+made clearer, as described in L</Incompatible Changes>
+
+=head1 Changed Internals
+
+Some bugs have been fixed in the hash internals. Restricted hashes and
+their place holders are now allocated and deleted at slightly different times,
+but this should not be visible to user code.
+
+=head1 Future Directions
+
+Code freeze for the next maintenance release (5.8.5) will be on 30th June
+2004, with release by mid July.
+
+=head1 Platform Specific Problems
+
+This release is known not to build on Windows 95.
+
+=head1 Reporting Bugs
+
+If you find what you think is a bug, you might check the articles
+recently posted to the comp.lang.perl.misc newsgroup and the perl
+bug database at http://bugs.perl.org.  There may also be
+information at http://www.perl.org, the Perl Home Page.
+
+If you believe you have an unreported bug, please run the B<perlbug>
+program included with your release.  Be sure to trim your bug down
+to a tiny but sufficient test case.  Your bug report, along with the
+output of C<perl -V>, will be sent off to perlbug@perl.org to be
+analysed by the Perl porting team.  You can browse and search
+the Perl 5 bugs at http://bugs.perl.org/
+
+=head1 SEE ALSO
+
+The F<Changes> file for exhaustive details on what changed.
+
+The F<INSTALL> file for how to build Perl.
+
+The F<README> file for general stuff.
+
+The F<Artistic> and F<Copying> files for copyright information.
+
+=cut
diff --git a/lib/5.24.1/pod/perl585delta.pod b/lib/5.24.1/pod/perl585delta.pod
new file mode 100644
index 00000000..1717c74e
--- /dev/null
+++ b/lib/5.24.1/pod/perl585delta.pod
@@ -0,0 +1,257 @@
+=head1 NAME
+
+perl585delta - what is new for perl v5.8.5
+
+=head1 DESCRIPTION
+
+This document describes differences between the 5.8.4 release and
+the 5.8.5 release.
+
+=head1 Incompatible Changes
+
+There are no changes incompatible with 5.8.4.
+
+=head1 Core Enhancements
+
+Perl's regular expression engine now contains support for matching on the
+intersection of two Unicode character classes. You can also now refer to
+user-defined character classes from within other user defined character
+classes.
+
+=head1 Modules and Pragmata
+
+=over 4
+
+=item *
+
+Carp improved to work nicely with Safe. Carp's message reporting should now
+be anomaly free - it will always print out line number information.
+
+=item *
+
+CGI upgraded to version 3.05
+
+=item *
+
+charnames now avoids clobbering $_
+
+=item *
+
+Digest upgraded to version 1.08
+
+=item *
+
+Encode upgraded to version 2.01
+
+=item *
+
+FileCache upgraded to version 1.04
+
+=item *
+
+libnet upgraded to version 1.19
+
+=item *
+
+Pod::Parser upgraded to version 1.28
+
+=item *
+
+Pod::Perldoc upgraded to version 3.13
+
+=item *
+
+Pod::LaTeX upgraded to version 0.57
+
+=item *
+
+Safe now works properly with Carp
+
+=item *
+
+Scalar-List-Utils upgraded to version 1.14
+
+=item *
+
+Shell's documentation has been re-written, and its historical partial
+auto-quoting of command arguments can now be disabled.
+
+=item *
+
+Test upgraded to version 1.25
+
+=item *
+
+Test::Harness upgraded to version 2.42
+
+=item *
+
+Time::Local upgraded to version 1.10
+
+=item *
+
+Unicode::Collate upgraded to version 0.40
+
+=item *
+
+Unicode::Normalize upgraded to version 0.30
+
+=back
+
+=head1 Utility Changes
+
+=head2 Perl's debugger
+
+The debugger can now emulate stepping backwards, by restarting and rerunning
+all bar the last command from a saved command history.
+
+=head2 h2ph
+
+F<h2ph> is now able to understand a very limited set of C inline functions
+-- basically, the inline functions that look like CPP macros. This has
+been introduced to deal with some of the headers of the newest versions of
+the glibc. The standard warning still applies; to quote F<h2ph>'s
+documentation, I<you may need to dicker with the files produced>.
+
+=head1 Installation and Configuration Improvements
+
+Perl 5.8.5 should build cleanly from source on LynxOS.
+
+=head1 Selected Bug Fixes
+
+=over 4
+
+=item *
+
+The in-place sort optimisation introduced in 5.8.4 had a bug. For example,
+in code such as
+
+    @a = sort ($b, @a)
+
+the result would omit the value $b. This is now fixed.
+
+=item *
+
+The optimisation for unnecessary assignments introduced in 5.8.4 could give
+spurious warnings. This has been fixed.
+
+=item *
+
+Perl should now correctly detect and read BOM-marked and (BOMless) UTF-16
+scripts of either endianness.
+
+=item *
+
+Creating a new thread when weak references exist was buggy, and would often
+cause warnings at interpreter destruction time. The known bug is now fixed.
+
+=item *
+
+Several obscure bugs involving manipulating Unicode strings with C<substr> have
+been fixed.
+
+=item *
+
+Previously if Perl's file globbing function encountered a directory that it
+did not have permission to open it would return immediately, leading to
+unexpected truncation of the list of results. This has been fixed, to be
+consistent with Unix shells' globbing behaviour.
+
+=item *
+
+Thread creation time could vary wildly between identical runs. This was caused
+by a poor hashing algorithm in the thread cloning routines, which has now
+been fixed.
+
+=item *
+
+The internals of the ithreads implementation were not checking if OS-level
+thread creation had failed. threads->create() now returns C<undef> in if
+thread creation fails instead of crashing perl.
+
+=back
+
+=head1 New or Changed Diagnostics
+
+=over 4
+
+=item *
+
+Perl -V has several improvements
+
+=over 4
+
+=item  *
+
+correctly outputs local patch names that contain embedded code snippets
+or other characters that used to confuse it.
+
+=item * 
+
+arguments to -V that look like regexps will give multiple lines of output.
+
+=item *
+
+a trailing colon suppresses the linefeed and ';'  terminator, allowing
+embedding of queries into shell commands.
+
+=item *
+
+a leading colon removes the 'name=' part of the response, allowing mapping to
+any name.
+
+=back
+
+=item *
+
+When perl fails to find the specified script, it now outputs a second line
+suggesting that the user use the C<-S> flag:
+
+    $ perl5.8.5 missing.pl
+    Can't open perl script "missing.pl": No such file or directory.
+    Use -S to search $PATH for it.
+
+=back
+
+=head1 Changed Internals
+
+The Unicode character class files used by the regular expression engine are
+now built at build time from the supplied Unicode consortium data files,
+instead of being shipped prebuilt. This makes the compressed Perl source
+tarball about 200K smaller. A side effect is that the layout of files inside
+lib/unicore has changed.
+
+=head1 Known Problems
+
+The regression test F<t/uni/class.t> is now performing considerably more
+tests, and can take several minutes to run even on a fast machine.
+
+=head1 Platform Specific Problems
+
+This release is known not to build on Windows 95.
+
+=head1 Reporting Bugs
+
+If you find what you think is a bug, you might check the articles
+recently posted to the comp.lang.perl.misc newsgroup and the perl
+bug database at http://bugs.perl.org.  There may also be
+information at http://www.perl.org, the Perl Home Page.
+
+If you believe you have an unreported bug, please run the B<perlbug>
+program included with your release.  Be sure to trim your bug down
+to a tiny but sufficient test case.  Your bug report, along with the
+output of C<perl -V>, will be sent off to perlbug@perl.org to be
+analysed by the Perl porting team.  You can browse and search
+the Perl 5 bugs at http://bugs.perl.org/
+
+=head1 SEE ALSO
+
+The F<Changes> file for exhaustive details on what changed.
+
+The F<INSTALL> file for how to build Perl.
+
+The F<README> file for general stuff.
+
+The F<Artistic> and F<Copying> files for copyright information.
+
+=cut
diff --git a/lib/5.24.1/pod/perl586delta.pod b/lib/5.24.1/pod/perl586delta.pod
new file mode 100644
index 00000000..6cd0fa85
--- /dev/null
+++ b/lib/5.24.1/pod/perl586delta.pod
@@ -0,0 +1,170 @@
+=head1 NAME
+
+perl586delta - what is new for perl v5.8.6
+
+=head1 DESCRIPTION
+
+This document describes differences between the 5.8.5 release and
+the 5.8.6 release.
+
+=head1 Incompatible Changes
+
+There are no changes incompatible with 5.8.5.
+
+=head1 Core Enhancements
+
+The perl interpreter is now more tolerant of UTF-16-encoded scripts.
+
+On Win32, Perl can now use non-IFS compatible LSPs, which allows Perl to
+work in conjunction with firewalls such as McAfee Guardian. For full details
+see the file F<README.win32>, particularly if you're running Win95.
+
+=head1 Modules and Pragmata
+
+=over 4
+
+=item *
+
+With the C<base> pragma, an intermediate class with no fields used to messes
+up private fields in the base class. This has been fixed.
+
+=item *
+
+Cwd upgraded to version 3.01 (as part of the new PathTools distribution)
+
+=item *
+
+Devel::PPPort upgraded to version 3.03
+
+=item *
+
+File::Spec upgraded to version 3.01 (as part of the new PathTools distribution)
+
+=item *
+
+Encode upgraded to version 2.08
+
+=item *
+
+ExtUtils::MakeMaker remains at version 6.17, as later stable releases currently
+available on CPAN have some issues with core modules on some core platforms.
+
+=item *
+
+I18N::LangTags upgraded to version 0.35
+
+=item *
+
+Math::BigInt upgraded to version 1.73
+
+=item *
+
+Math::BigRat upgraded to version 0.13
+
+=item *
+
+MIME::Base64 upgraded to version 3.05
+
+=item *
+
+POSIX::sigprocmask function can now retrieve the current signal mask without
+also setting it.
+
+=item *
+
+Time::HiRes upgraded to version 1.65
+
+=back
+
+=head1 Utility Changes
+
+Perl has a new -dt command-line flag, which enables threads support in the
+debugger.
+
+=head1 Performance Enhancements
+
+C<reverse sort ...> is now optimized to sort in reverse, avoiding the
+generation of a temporary intermediate list.
+
+C<for (reverse @foo)> now iterates in reverse, avoiding the generation of a
+temporary reversed list.
+
+=head1 Selected Bug Fixes
+
+The regexp engine is now more robust when given invalid utf8 input, as is
+sometimes generated by buggy XS modules.
+
+C<foreach> on threads::shared array used to be able to crash Perl. This bug
+has now been fixed.
+
+A regexp in C<STDOUT>'s destructor used to coredump, because the regexp pad
+was already freed. This has been fixed.
+
+C<goto &> is now more robust - bugs in deep recursion and chained C<goto &>
+have been fixed.
+
+Using C<delete> on an array no longer leaks memory. A C<pop> of an item from a
+shared array reference no longer causes a leak.
+
+C<eval_sv()> failing a taint test could corrupt the stack - this has been
+fixed.
+
+On platforms with 64 bit pointers numeric comparison operators used to
+erroneously compare the addresses of references that are overloaded, rather
+than using the overloaded values. This has been fixed.
+
+C<read> into a UTF8-encoded buffer with an offset off the end of the buffer
+no longer mis-calculates buffer lengths.
+
+Although Perl has promised since version 5.8 that C<sort()> would be
+stable, the two cases C<sort {$b cmp $a}> and C<< sort {$b <=> $a} >> could
+produce non-stable sorts.   This is corrected in perl5.8.6.
+
+Localising C<$^D> no longer generates a diagnostic message about valid -D
+flags.
+
+=head1 New or Changed Diagnostics
+
+For -t and -T,
+   Too late for "-T" option
+has been changed to the more informative
+   "-T" is on the #! line, it must also be used on the command line
+
+=head1 Changed Internals
+
+From now on all applications embedding perl will behave as if perl
+were compiled with -DPERL_USE_SAFE_PUTENV.  See "Environment access" in
+the F<INSTALL> file for details.
+
+Most C<C> source files now have comments at the top explaining their purpose,
+which should help anyone wishing to get an overview of the implementation.
+
+=head1 New Tests
+
+There are significantly more tests for the C<B> suite of modules.
+
+=head1 Reporting Bugs
+
+If you find what you think is a bug, you might check the articles
+recently posted to the comp.lang.perl.misc newsgroup and the perl
+bug database at http://bugs.perl.org.  There may also be
+information at http://www.perl.org, the Perl Home Page.
+
+If you believe you have an unreported bug, please run the B<perlbug>
+program included with your release.  Be sure to trim your bug down
+to a tiny but sufficient test case.  Your bug report, along with the
+output of C<perl -V>, will be sent off to perlbug@perl.org to be
+analysed by the Perl porting team.  You can browse and search
+the Perl 5 bugs at http://bugs.perl.org/
+
+=head1 SEE ALSO
+
+The F<Changes> file for exhaustive details on what changed.
+
+The F<INSTALL> file for how to build Perl.
+
+The F<README> file for general stuff.
+
+The F<Artistic> and F<Copying> files for copyright information.
+
+=cut
diff --git a/lib/5.24.1/pod/perl587delta.pod b/lib/5.24.1/pod/perl587delta.pod
new file mode 100644
index 00000000..34ee8f21
--- /dev/null
+++ b/lib/5.24.1/pod/perl587delta.pod
@@ -0,0 +1,379 @@
+=head1 NAME
+
+perl587delta - what is new for perl v5.8.7
+
+=head1 DESCRIPTION
+
+This document describes differences between the 5.8.6 release and
+the 5.8.7 release.
+
+=head1 Incompatible Changes
+
+There are no changes incompatible with 5.8.6.
+
+=head1 Core Enhancements
+
+=head2 Unicode Character Database 4.1.0
+
+The copy of the Unicode Character Database included in Perl 5.8 has
+been updated to 4.1.0 from 4.0.1. See
+L<http://www.unicode.org/versions/Unicode4.1.0/#NotableChanges> for the
+notable changes.
+
+=head2 suidperl less insecure
+
+A pair of exploits in C<suidperl> involving debugging code have been closed.
+
+For new projects the core perl team strongly recommends that you use
+dedicated, single purpose security tools such as C<sudo> in preference to
+C<suidperl>.
+
+=head2 Optional site customization script
+
+The perl interpreter can be built to allow the use of a site customization
+script. By default this is not enabled, to be consistent with previous perl
+releases. To use this, add C<-Dusesitecustomize> to the command line flags
+when running the C<Configure> script. See also L<perlrun/-f>.
+
+=head2 C<Config.pm> is now much smaller.
+
+C<Config.pm> is now about 3K rather than 32K, with the infrequently used
+code and C<%Config> values loaded on demand. This is transparent to the
+programmer, but means that most code will save parsing and loading 29K of
+script (for example, code that uses C<File::Find>).
+
+=head1 Modules and Pragmata
+
+=over 4
+
+=item *
+
+B upgraded to version 1.09
+
+=item *
+
+base upgraded to version 2.07
+
+=item *
+
+bignum upgraded to version 0.17
+
+=item *
+
+bytes upgraded to version 1.02
+
+=item *
+
+Carp upgraded to version 1.04
+
+=item *
+
+CGI upgraded to version 3.10
+
+=item *
+
+Class::ISA upgraded to version 0.33
+
+=item *
+
+Data::Dumper upgraded to version 2.121_02
+
+=item *
+
+DB_File upgraded to version 1.811
+
+=item *
+
+Devel::PPPort upgraded to version 3.06
+
+=item *
+
+Digest upgraded to version 1.10
+
+=item *
+
+Encode upgraded to version 2.10
+
+=item *
+
+FileCache upgraded to version 1.05
+
+=item *
+
+File::Path upgraded to version 1.07
+
+=item *
+
+File::Temp upgraded to version 0.16
+
+=item *
+
+IO::File upgraded to version 1.11
+
+=item *
+
+IO::Socket upgraded to version 1.28
+
+=item *
+
+Math::BigInt upgraded to version 1.77
+
+=item *
+
+Math::BigRat upgraded to version 0.15
+
+=item *
+
+overload upgraded to version 1.03
+
+=item *
+
+PathTools upgraded to version 3.05
+
+=item *
+
+Pod::HTML upgraded to version 1.0503
+
+=item *
+
+Pod::Perldoc upgraded to version 3.14
+
+=item *
+
+Pod::LaTeX upgraded to version 0.58
+
+=item *
+
+Pod::Parser upgraded to version 1.30
+
+=item *
+
+Symbol upgraded to version 1.06
+
+=item *
+
+Term::ANSIColor upgraded to version 1.09
+
+=item *
+
+Test::Harness upgraded to version 2.48
+
+=item *
+
+Test::Simple upgraded to version 0.54
+
+=item *
+
+Text::Wrap upgraded to version 2001.09293, to fix a bug when wrap() was
+called with a non-space separator.
+
+=item *
+
+threads::shared upgraded to version 0.93
+
+=item *
+
+Time::HiRes upgraded to version 1.66
+
+=item *
+
+Time::Local upgraded to version 1.11
+
+=item *
+
+Unicode::Normalize upgraded to version 0.32
+
+=item *
+
+utf8 upgraded to version 1.05
+
+=item *
+
+Win32 upgraded to version 0.24, which provides Win32::GetFileVersion
+
+=back
+
+=head1 Utility Changes
+
+=head2 find2perl enhancements
+
+C<find2perl> has new options C<-iname>, C<-path> and C<-ipath>.
+
+=head1 Performance Enhancements
+
+The internal pointer mapping hash used during ithreads cloning now uses an
+arena for memory allocation. In tests this reduced ithreads cloning time by
+about 10%.
+
+=head1 Installation and Configuration Improvements
+
+=over 4
+
+=item *
+
+The Win32 "dmake" makefile.mk has been updated to make it compatible
+with the latest versions of dmake.
+
+=item *
+
+C<PERL_MALLOC>, C<DEBUG_MSTATS>, C<PERL_HASH_SEED_EXPLICIT> and C<NO_HASH_SEED>
+should now work in Win32 makefiles.
+
+=back
+
+=head1 Selected Bug Fixes
+
+=over 4
+
+=item *
+
+The socket() function on Win32 has been fixed so that it is able to use
+transport providers which specify a protocol of 0 (meaning any protocol
+is allowed) once more.  (This was broken in 5.8.6, and typically caused
+the use of ICMP sockets to fail.)
+
+=item *
+
+Another obscure bug involving C<substr> and UTF-8 caused by bad internal
+offset caching has been identified and fixed.
+
+=item *
+
+A bug involving the loading of UTF-8 tables by the regexp engine has been
+fixed - code such as C<"\x{100}" =~ /[[:print:]]/> will no longer give
+corrupt results.
+
+=item *
+
+Case conversion operations such as C<uc> on a long Unicode string could
+exhaust memory. This has been fixed.
+
+=item *
+
+C<index>/C<rindex> were buggy for some combinations of Unicode and
+non-Unicode data. This has been fixed.
+
+=item *
+
+C<read> (and presumably C<sysread>) would expose the UTF-8 internals when
+reading from a byte oriented file handle into a UTF-8 scalar. This has
+been fixed.
+
+=item *
+
+Several C<pack>/C<unpack> bug fixes:
+
+=over 4
+
+=item *
+
+Checksums with C<b> or C<B> formats were broken.
+
+=item *
+
+C<unpack> checksums could overflow with the C<C> format.
+
+=item *
+
+C<U0> and C<C0> are now scoped to C<()> C<pack> sub-templates.
+
+=item *
+
+Counted length prefixes now don't change C<C0>/C<U0> mode.
+
+=item *
+
+C<pack> C<Z0> used to destroy the preceding character.
+
+=item *
+
+C<P>/C<p> C<pack> formats used to only recognise literal C<undef> 
+
+=back
+
+=item *
+
+Using closures with ithreads could cause perl to crash. This was due to
+failure to correctly lock internal OP structures, and has been fixed.
+
+=item *
+
+The return value of C<close> now correctly reflects any file errors that
+occur while flushing the handle's data, instead of just giving failure if
+the actual underlying file close operation failed.
+
+=item *
+
+C<not() || 1> used to segfault. C<not()> now behaves like C<not(0)>, which was
+the pre 5.6.0 behaviour.
+
+=item *
+
+C<h2ph> has various enhancements to cope with constructs in header files that
+used to result in incorrect or invalid output.
+
+=back
+
+=head1 New or Changed Diagnostics
+
+There is a new taint error, "%ENV is aliased to %s". This error is thrown
+when taint checks are enabled and when C<*ENV> has been aliased, so that
+C<%ENV> has no env-magic anymore and hence the environment cannot be verified
+as taint-free.
+
+The internals of C<pack> and C<unpack> have been updated. All legitimate
+templates should work as before, but there may be some changes in the error
+reported for complex failure cases. Any behaviour changes for non-error cases
+are bugs, and should be reported.
+
+=head1 Changed Internals
+
+There has been a fair amount of refactoring of the C<C> source code, partly to
+make it tidier and more maintainable. The resulting object code and the
+C<perl> binary may well be smaller than 5.8.6, and hopefully faster in some
+cases, but apart from this there should be no user-detectable changes.
+
+C<${^UTF8LOCALE}> has been added to give perl space access to C<PL_utf8locale>.
+
+The size of the arenas used to allocate SV heads and most SV bodies can now
+be changed at compile time. The old size was 1008 bytes, the new default size
+is 4080 bytes.
+
+=head1 Known Problems
+
+Unicode strings returned from overloaded operators can be buggy. This is a
+long standing bug reported since 5.8.6 was released, but we do not yet have
+a suitable fix for it.
+
+=head1 Platform Specific Problems
+
+On UNICOS, lib/Math/BigInt/t/bigintc.t hangs burning CPU.
+ext/B/t/bytecode.t and ext/Socket/t/socketpair.t both fail tests.
+These are unlikely to be resolved, as our valiant UNICOS porter's last
+Cray is being decommissioned.
+
+=head1 Reporting Bugs
+
+If you find what you think is a bug, you might check the articles
+recently posted to the comp.lang.perl.misc newsgroup and the perl
+bug database at http://bugs.perl.org.  There may also be
+information at http://www.perl.org, the Perl Home Page.
+
+If you believe you have an unreported bug, please run the B<perlbug>
+program included with your release.  Be sure to trim your bug down
+to a tiny but sufficient test case.  Your bug report, along with the
+output of C<perl -V>, will be sent off to perlbug@perl.org to be
+analysed by the Perl porting team.  You can browse and search
+the Perl 5 bugs at http://bugs.perl.org/
+
+=head1 SEE ALSO
+
+The F<Changes> file for exhaustive details on what changed.
+
+The F<INSTALL> file for how to build Perl.
+
+The F<README> file for general stuff.
+
+The F<Artistic> and F<Copying> files for copyright information.
+
+=cut
diff --git a/lib/5.24.1/pod/perl588delta.pod b/lib/5.24.1/pod/perl588delta.pod
new file mode 100644
index 00000000..b2203bcf
--- /dev/null
+++ b/lib/5.24.1/pod/perl588delta.pod
@@ -0,0 +1,1634 @@
+=encoding utf8
+
+=head1 NAME
+
+perl588delta - what is new for perl v5.8.8
+
+=head1 DESCRIPTION
+
+This document describes differences between the 5.8.7 release and
+the 5.8.8 release.
+
+=head1 Incompatible Changes
+
+There are no changes intentionally incompatible with 5.8.7. If any exist,
+they are bugs and reports are welcome.
+
+=head1 Core Enhancements
+
+=over
+
+=item *
+
+C<chdir>, C<chmod> and C<chown> can now work on filehandles as well as
+filenames, if the system supports respectively C<fchdir>, C<fchmod> and
+C<fchown>, thanks to a patch provided by Gisle Aas.
+
+=back
+
+=head1 Modules and Pragmata
+
+=over
+
+=item *
+
+C<Attribute::Handlers> upgraded to version 0.78_02
+
+=over
+
+=item *
+
+Documentation typo fix
+
+=back
+
+=item *
+
+C<attrs> upgraded to version 1.02
+
+=over
+
+=item *
+
+Internal cleanup only
+
+=back
+
+=item *
+
+C<autouse> upgraded to version 1.05
+
+=over
+
+=item *
+
+Simplified implementation
+
+=back
+
+=item *
+
+C<B> upgraded to version 1.09_01
+
+=over
+
+=item *
+
+The inheritance hierarchy of the C<B::> modules has been corrected;
+C<B::NV> now inherits from C<B::SV> (instead of C<B::IV>).
+
+=back
+
+=item *
+
+C<blib> upgraded to version 1.03
+
+=over
+
+=item *
+
+Documentation typo fix
+
+=back
+
+=item *
+
+C<ByteLoader> upgraded to version 0.06
+
+=over
+
+=item *
+
+Internal cleanup
+
+=back
+
+=item *
+
+C<CGI> upgraded to version 3.15
+
+=over
+
+=item *
+
+Extraneous "?" from C<self_url()> removed
+
+=item *
+
+C<scrolling_list()> select attribute fixed
+
+=item *
+
+C<virtual_port> now works properly with the https protocol
+
+=item *
+
+C<upload_hook()> and C<append()> now works in function-oriented mode
+
+=item *
+
+C<POST_MAX> doesn't cause the client to hang any more
+
+=item *
+
+Automatic tab indexes are now disabled and new C<-tabindex> pragma has
+been added to turn automatic indexes back on
+
+=item *
+
+C<end_form()> doesn't emit empty (and non-validating) C<< <div> >>
+
+=item *
+
+C<CGI::Carp> works better in certain mod_perl configurations
+
+=item *
+
+Setting C<$CGI::TMPDIRECTORY> is now effective
+
+=item *
+
+Enhanced documentation
+
+=back
+
+=item *
+
+C<charnames> upgraded to version 1.05
+
+=over
+
+=item *
+
+C<viacode()> now accept hex strings and has been optimized.
+
+=back
+
+=item *
+
+C<CPAN> upgraded to version 1.76_02
+
+=over
+
+=item *
+
+1 minor bug fix for Win32
+
+=back
+
+=item *
+
+C<Cwd> upgraded to version 3.12
+
+=over
+
+=item *
+
+C<canonpath()> on Win32 now collapses F<foo\..> sections correctly.
+
+=item *
+
+Improved behaviour on Symbian OS.
+
+=item *
+
+Enhanced documentation and typo fixes
+
+=item *
+
+Internal cleanup
+
+=back
+
+=item *
+
+C<Data::Dumper> upgraded to version 2.121_08
+
+=over
+
+=item *
+
+A problem where C<Data::Dumper> would sometimes update the iterator state
+of hashes has been fixed
+
+=item *
+
+Numeric labels now work
+
+=item *
+
+Internal cleanup
+
+=back
+
+=item *
+
+C<DB> upgraded to version 1.01
+
+=over
+
+=item *
+
+A problem where the state of the regexp engine would sometimes get clobbered when running
+under the debugger has been fixed.
+
+=back
+
+=item *
+
+C<DB_File> upgraded to version 1.814
+
+=over
+
+=item *
+
+Adds support for Berkeley DB 4.4.
+
+=back
+
+=item *
+
+C<Devel::DProf> upgraded to version 20050603.00
+
+=over
+
+=item *
+
+Internal cleanup
+
+=back
+
+=item *
+
+C<Devel::Peek> upgraded to version 1.03
+
+=over
+
+=item *
+
+Internal cleanup
+
+=back
+
+=item *
+
+C<Devel::PPPort> upgraded to version 3.06_01
+
+=over
+
+=item *
+
+C<--compat-version> argument checking has been improved
+
+=item *
+
+Files passed on the command line are filtered by default
+
+=item *
+
+C<--nofilter> option to override the filtering has been added
+
+=item *
+
+Enhanced documentation
+
+=back
+
+=item *
+
+C<diagnostics> upgraded to version 1.15
+
+=over
+
+=item *
+
+Documentation typo fix
+
+=back
+
+=item *
+
+C<Digest> upgraded to version 1.14
+
+=over
+
+=item *
+
+The constructor now knows which module implements SHA-224
+
+=item *
+
+Documentation tweaks and typo fixes
+
+=back
+
+=item *
+
+C<Digest::MD5> upgraded to version 2.36
+
+=over
+
+=item *
+
+C<XSLoader> is now used for faster loading
+
+=item *
+
+Enhanced documentation including MD5 weaknesses discovered lately
+
+=back
+
+=item *
+
+C<Dumpvalue> upgraded to version 1.12
+
+=over
+
+=item *
+
+Documentation fix
+
+=back
+
+=item *
+
+C<DynaLoader> upgraded but unfortunately we're not able to increment its version number :-(
+
+=over
+
+=item *
+
+Implements C<dl_unload_file> on Win32
+
+=item *
+
+Internal cleanup
+
+=item *
+
+C<XSLoader> 0.06 incorporated; small optimisation for calling
+C<bootstrap_inherit()> and documentation enhancements.
+
+=back
+
+=item *
+
+C<Encode> upgraded to version 2.12
+
+=over
+
+=item *
+
+A coderef is now acceptable for C<CHECK>!
+
+=item *
+
+3 new characters added to the ISO-8859-7 encoding
+
+=item *
+
+New encoding C<MIME-Header-ISO_2022_JP> added
+
+=item *
+
+Problem with partial characters and C<< encoding(utf-8-strict) >> fixed.
+
+=item *
+
+Documentation enhancements and typo fixes
+
+=back
+
+=item *
+
+C<English> upgraded to version 1.02
+
+=over
+
+=item *
+
+the C<< $COMPILING >> variable has been added
+
+=back
+
+=item *
+
+C<ExtUtils::Constant> upgraded to version 0.17
+
+=over
+
+=item *
+
+Improved compatibility with older versions of perl
+
+=back
+
+=item *
+
+C<ExtUtils::MakeMaker> upgraded to version 6.30 (was 6.17)
+
+=over
+
+=item *
+
+Too much to list here;  see L<http://search.cpan.org/dist/ExtUtils-MakeMaker/Changes>
+
+=back
+
+=item *
+
+C<File::Basename> upgraded to version 2.74, with changes contributed by Michael Schwern.
+
+=over
+
+=item *
+
+Documentation clarified and errors corrected.
+
+=item *
+
+C<basename> now strips trailing path separators before processing the name.
+
+=item *
+
+C<basename> now returns C</> for parameter C</>, to make C<basename>
+consistent with the shell utility of the same name.
+
+=item *
+
+The suffix is no longer stripped if it is identical to the remaining characters
+in the name, again for consistency with the shell utility.
+
+=item *
+
+Some internal code cleanup.
+
+=back
+
+=item *
+
+C<File::Copy> upgraded to version 2.09
+
+=over
+
+=item *
+
+Copying a file onto itself used to fail.
+
+=item *
+
+Moving a file between file systems now preserves the access and
+modification time stamps
+
+=back
+
+=item *
+
+C<File::Find> upgraded to version 1.10
+
+=over
+
+=item *
+
+Win32 portability fixes
+
+=item *
+
+Enhanced documentation
+
+=back
+
+=item *
+
+C<File::Glob> upgraded to version 1.05
+
+=over
+
+=item *
+
+Internal cleanup
+
+=back
+
+=item *
+
+C<File::Path> upgraded to version 1.08
+
+=over
+
+=item *
+
+C<mkpath> now preserves C<errno> when C<mkdir> fails
+
+=back
+
+=item *
+
+C<File::Spec> upgraded to version 3.12
+
+=over
+
+=item *
+
+C<File::Spec->rootdir()> now returns C<\> on Win32, instead of C</>
+
+=item *
+
+C<$^O> could sometimes become tainted. This has been fixed.
+
+=item *
+
+C<canonpath> on Win32 now collapses C<foo/..> (or C<foo\..>) sections
+correctly, rather than doing the "misguided" work it was previously doing.
+Note that C<canonpath> on Unix still does B<not> collapse these sections, as
+doing so would be incorrect.
+
+=item *
+
+Some documentation improvements
+
+=item *
+
+Some internal code cleanup
+
+=back
+
+=item *
+
+C<FileCache> upgraded to version 1.06
+
+=over
+
+=item *
+
+POD formatting errors in the documentation fixed
+
+=back
+
+=item *
+
+C<Filter::Simple> upgraded to version 0.82
+
+=item *
+
+C<FindBin> upgraded to version 1.47
+
+=over
+
+=item *
+
+Now works better with directories where access rights are more
+restrictive than usual.
+
+=back
+
+=item *
+
+C<GDBM_File> upgraded to version 1.08
+
+=over
+
+=item *
+
+Internal cleanup
+
+=back
+
+=item *
+
+C<Getopt::Long> upgraded to version 2.35
+
+=over
+
+=item *
+
+C<prefix_pattern> has now been complemented by a new configuration
+option C<long_prefix_pattern> that allows the user to specify what
+prefix patterns should have long option style semantics applied.
+
+=item *
+
+Options can now take multiple values at once (experimental)
+
+=item *
+
+Various bug fixes
+
+=back
+
+=item *
+
+C<if> upgraded to version 0.05
+
+=over
+
+=item *
+
+Give more meaningful error messages from C<if> when invoked with a
+condition in list context.
+
+=item *
+
+Restore backwards compatibility with earlier versions of perl
+
+=back
+
+=item *
+
+C<IO> upgraded to version 1.22
+
+=over
+
+=item *
+
+Enhanced documentation
+
+=item *
+
+Internal cleanup
+
+=back
+
+=item *
+
+C<IPC::Open2> upgraded to version 1.02
+
+=over
+
+=item *
+
+Enhanced documentation
+
+=back
+
+=item *
+
+C<IPC::Open3> upgraded to version 1.02
+
+=over
+
+=item *
+
+Enhanced documentation
+
+=back
+
+=item *
+
+C<List::Util> upgraded to version 1.18 (was 1.14)
+
+=over
+
+=item *
+
+Fix pure-perl version of C<refaddr> to avoid blessing an un-blessed reference
+
+=item *
+
+Use C<XSLoader> for faster loading
+
+=item *
+
+Fixed various memory leaks
+
+=item *
+
+Internal cleanup and portability fixes
+
+=back
+
+=item *
+
+C<Math::Complex> upgraded to version 1.35
+
+=over
+
+=item *
+
+C<atan2(0, i)> now works, as do all the (computable) complex argument cases
+
+=item *
+
+Fixes for certain bugs in C<make> and C<emake>
+
+=item *
+
+Support returning the I<k>th root directly
+
+=item *
+
+Support C<[2,-3pi/8]> in C<emake>
+
+=item *
+
+Support C<inf> for C<make>/C<emake>
+
+=item *
+
+Document C<make>/C<emake> more visibly
+
+=back
+
+=item *
+
+C<Math::Trig> upgraded to version 1.03
+
+=over
+
+=item *
+
+Add more great circle routines: C<great_circle_waypoint> and
+C<great_circle_destination>
+
+=back
+
+=item *
+
+C<MIME::Base64> upgraded to version 3.07
+
+=over
+
+=item *
+
+Use C<XSLoader> for faster loading
+
+=item *
+
+Enhanced documentation
+
+=item *
+
+Internal cleanup
+
+=back
+
+=item *
+
+C<NDBM_File> upgraded to version 1.06
+
+=over
+
+=item *
+
+Enhanced documentation
+
+=back
+
+=item *
+
+C<ODBM_File> upgraded to version 1.06
+
+=over
+
+=item *
+
+Documentation typo fixed
+
+=item *
+
+Internal cleanup
+
+=back
+
+=item *
+
+C<Opcode> upgraded to version 1.06
+
+=over
+
+=item *
+
+Enhanced documentation
+
+=item *
+
+Internal cleanup
+
+=back
+
+=item *
+
+C<open> upgraded to version 1.05
+
+=over
+
+=item *
+
+Enhanced documentation
+
+=back
+
+=item *
+
+C<overload> upgraded to version 1.04
+
+=over
+
+=item *
+
+Enhanced documentation
+
+=back
+
+=item *
+
+C<PerlIO> upgraded to version 1.04
+
+=over
+
+=item *
+
+C<PerlIO::via> iterate over layers properly now
+
+=item *
+
+C<PerlIO::scalar> understands C<< $/ = "" >> now
+
+=item *
+
+C<encoding(utf-8-strict)> with partial characters now works
+
+=item *
+
+Enhanced documentation
+
+=item *
+
+Internal cleanup
+
+=back
+
+=item *
+
+C<Pod::Functions> upgraded to version 1.03
+
+=over
+
+=item *
+
+Documentation typos fixed
+
+=back
+
+=item *
+
+C<Pod::Html> upgraded to version 1.0504
+
+=over
+
+=item *
+
+HTML output will now correctly link
+to C<=item>s on the same page, and should be valid XHTML.
+
+=item *
+
+Variable names are recognized as intended
+
+=item *
+
+Documentation typos fixed
+
+=back
+
+=item *
+
+C<Pod::Parser> upgraded to version 1.32
+
+=over
+
+=item *
+
+Allow files that start with C<=head> on the first line
+
+=item *
+
+Win32 portability fix
+
+=item *
+
+Exit status of C<pod2usage> fixed
+
+=item *
+
+New C<-noperldoc> switch for C<pod2usage>
+
+=item *
+
+Arbitrary URL schemes now allowed
+
+=item *
+
+Documentation typos fixed
+
+=back
+
+=item *
+
+C<POSIX> upgraded to version 1.09
+
+=over
+
+=item *
+
+Documentation typos fixed
+
+=item *
+
+Internal cleanup
+
+=back
+
+=item *
+
+C<re> upgraded to version 0.05
+
+=over
+
+=item *
+
+Documentation typo fixed
+
+=back
+
+=item *
+
+C<Safe> upgraded to version 2.12
+
+=over
+
+=item *
+
+Minor documentation enhancement
+
+=back
+
+=item *
+
+C<SDBM_File> upgraded to version 1.05
+
+=over
+
+=item *
+
+Documentation typo fixed
+
+=item *
+
+Internal cleanup
+
+=back
+
+=item *
+
+C<Socket> upgraded to version 1.78
+
+=over
+
+=item *
+
+Internal cleanup
+
+=back
+
+=item *
+
+C<Storable> upgraded to version 2.15
+
+=over
+
+=item *
+
+This includes the C<STORABLE_attach> hook functionality added by
+Adam Kennedy, and more frugal memory requirements when storing under C<ithreads>, by
+using the C<ithreads> cloning tracking code.
+
+=back
+
+=item *
+
+C<Switch> upgraded to version 2.10_01
+
+=over
+
+=item *
+
+Documentation typos fixed
+
+=back
+
+=item *
+
+C<Sys::Syslog> upgraded to version 0.13
+
+=over
+
+=item *
+
+Now provides numeric macros and meaningful C<Exporter> tags.
+
+=item *
+
+No longer uses C<Sys::Hostname> as it may provide useless values in
+unconfigured network environments, so instead uses C<INADDR_LOOPBACK> directly.
+
+=item *
+
+C<syslog()> now uses local timestamp.
+
+=item *
+
+C<setlogmask()> now behaves like its C counterpart.
+
+=item *
+
+C<setlogsock()> will now C<croak()> as documented.
+
+=item *
+
+Improved error and warnings messages.
+
+=item *
+
+Improved documentation.
+
+=back
+
+=item *
+
+C<Term::ANSIColor> upgraded to version 1.10
+
+=over
+
+=item *
+
+Fixes a bug in C<colored> when C<$EACHLINE> is set that caused it to not color
+lines consisting solely of 0 (literal zero).
+
+=item *
+
+Improved tests.
+
+=back
+
+=item *
+
+C<Term::ReadLine> upgraded to version 1.02
+
+=over
+
+=item *
+
+Documentation tweaks
+
+=back
+
+=item *
+
+C<Test::Harness> upgraded to version 2.56 (was 2.48)
+
+=over
+
+=item *
+
+The C<Test::Harness> timer is now off by default.
+
+=item *
+
+Now shows elapsed time in milliseconds.
+
+=item *
+
+Various bug fixes
+
+=back
+
+=item *
+
+C<Test::Simple> upgraded to version 0.62 (was 0.54)
+
+=over
+
+=item *
+
+C<is_deeply()> no longer fails to work for many cases
+
+=item *
+
+Various minor bug fixes
+
+=item *
+
+Documentation enhancements
+
+=back
+
+=item *
+
+C<Text::Tabs> upgraded to version 2005.0824
+
+=over
+
+=item *
+
+Provides a faster implementation of C<expand>
+
+=back
+
+=item *
+
+C<Text::Wrap> upgraded to version 2005.082401
+
+=over
+
+=item *
+
+Adds C<$Text::Wrap::separator2>, which allows you to preserve existing newlines
+but add line-breaks with some other string.
+
+=back
+
+=item *
+
+C<threads> upgraded to version 1.07
+
+=over
+
+=item *
+
+C<threads> will now honour C<no warnings 'threads'>
+
+=item *
+
+A thread's interpreter is now freed after C<< $t->join() >> rather than after
+C<undef $t>, which should fix some C<ithreads> memory leaks. (Fixed by Dave
+Mitchell)
+
+=item *
+
+Some documentation typo fixes.
+
+=back
+
+=item *
+
+C<threads::shared> upgraded to version 0.94
+
+=over
+
+=item *
+
+Documentation changes only
+
+=item *
+
+Note: An improved implementation of C<threads::shared> is available on
+CPAN - this will be merged into 5.8.9 if it proves stable.
+
+=back
+
+=item *
+
+C<Tie::Hash> upgraded to version 1.02
+
+=over
+
+=item *
+
+Documentation typo fixed
+
+=back
+
+=item *
+
+C<Time::HiRes> upgraded to version 1.86 (was 1.66)
+
+=over
+
+=item *
+
+C<clock_nanosleep()> and C<clock()> functions added
+
+=item *
+
+Support for the POSIX C<clock_gettime()> and C<clock_getres()> has been added
+
+=item *
+
+Return C<undef> or an empty list if the C C<gettimeofday()> function fails
+
+=item *
+
+Improved C<nanosleep> detection
+
+=item *
+
+Internal cleanup
+
+=item *
+
+Enhanced documentation
+
+=back
+
+=item *
+
+C<Unicode::Collate> upgraded to version 0.52
+
+=over
+
+=item *
+
+Now implements UCA Revision 14 (based on Unicode 4.1.0).
+
+=item *
+
+C<Unicode::Collate->new> method no longer overwrites user's C<$_>
+
+=item *
+
+Enhanced documentation
+
+=back
+
+=item *
+
+C<Unicode::UCD> upgraded to version 0.24
+
+=over
+
+=item *
+
+Documentation typos fixed
+
+=back
+
+=item *
+
+C<User::grent> upgraded to version 1.01
+
+=over
+
+=item *
+
+Documentation typo fixed
+
+=back
+
+=item *
+
+C<utf8> upgraded to version 1.06
+
+=over
+
+=item *
+
+Documentation typos fixed
+
+=back
+
+=item *
+
+C<vmsish> upgraded to version 1.02
+
+=over
+
+=item *
+
+Documentation typos fixed
+
+=back
+
+=item *
+
+C<warnings> upgraded to version 1.05
+
+=over
+
+=item *
+
+Gentler messing with C<Carp::> internals
+
+=item *
+
+Internal cleanup
+
+=item *
+
+Documentation update
+
+=back
+
+=item *
+
+C<Win32> upgraded to version 0.2601
+
+=for cynics And how many perl 5.8.x versions can I release ahead of Vista?
+
+=over
+
+=item *
+
+Provides Windows Vista support to C<Win32::GetOSName>
+
+=item *
+
+Documentation enhancements
+
+=back
+
+=item *
+
+C<XS::Typemap> upgraded to version 0.02
+
+=over
+
+=item *
+
+Internal cleanup
+
+=back
+
+=back
+
+=head1 Utility Changes
+
+=head2 C<h2xs> enhancements
+
+C<h2xs> implements new option C<--use-xsloader> to force use of
+C<XSLoader> even in backwards compatible modules.
+
+The handling of authors' names that had apostrophes has been fixed.
+
+Any enums with negative values are now skipped.
+
+=head2 C<perlivp> enhancements
+
+C<perlivp> implements new option C<-a> and will not check for F<*.ph>
+files by default any more.  Use the C<-a> option to run I<all> tests.
+
+=head1 New Documentation
+
+The L<perlglossary> manpage is a glossary of terms used in the Perl
+documentation, technical and otherwise, kindly provided by O'Reilly Media,
+inc.
+
+=head1 Performance Enhancements
+
+=over 4
+
+=item *
+
+Weak reference creation is now I<O(1)> rather than I<O(n)>, courtesy of
+Nicholas Clark. Weak reference deletion remains I<O(n)>, but if deletion only
+happens at program exit, it may be skipped completely.
+
+=item *
+
+Salvador Fandiño provided improvements to reduce the memory usage of C<sort>
+and to speed up some cases.
+
+=item *
+
+Jarkko Hietaniemi and Andy Lester worked to mark as much data as possible in
+the C source files as C<static>, to increase the proportion of the executable
+file that the operating system can share between process, and thus reduce
+real memory usage on multi-user systems.
+
+=back
+
+=head1 Installation and Configuration Improvements
+
+Parallel makes should work properly now, although there may still be problems
+if C<make test> is instructed to run in parallel.
+
+Building with Borland's compilers on Win32 should work more smoothly. In
+particular Steve Hay has worked to side step many warnings emitted by their
+compilers and at least one C compiler internal error.
+
+C<Configure> will now detect C<clearenv> and C<unsetenv>, thanks to a patch
+from Alan Burlison. It will also probe for C<futimes> and whether C<sprintf>
+correctly returns the length of the formatted string, which will both be used
+in perl 5.8.9.
+
+There are improved hints for next-3.0, vmesa, IX, Darwin, Solaris, Linux,
+DEC/OSF, HP-UX and MPE/iX
+
+Perl extensions on Windows now can be statically built into the Perl DLL,
+thanks to a work by Vadim Konovalov. (This improvement was actually in 5.8.7,
+but was accidentally omitted from L<perl587delta>).
+
+=head1 Selected Bug Fixes
+
+=head2 no warnings 'category' works correctly with -w
+
+Previously when running with warnings enabled globally via C<-w>, selective
+disabling of specific warning categories would actually turn off all warnings.
+This is now fixed; now C<no warnings 'io';> will only turn off warnings in the
+C<io> class. Previously it would erroneously turn off all warnings.
+
+This bug fix may cause some programs to start correctly issuing warnings.
+
+=head2 Remove over-optimisation
+
+Perl 5.8.4 introduced a change so that assignments of C<undef> to a
+scalar, or of an empty list to an array or a hash, were optimised away. As
+this could cause problems when C<goto> jumps were involved, this change
+has been backed out.
+
+=head2 sprintf() fixes
+
+Using the sprintf() function with some formats could lead to a buffer
+overflow in some specific cases. This has been fixed, along with several
+other bugs, notably in bounds checking.
+
+In related fixes, it was possible for badly written code that did not follow
+the documentation of C<Sys::Syslog> to have formatting vulnerabilities.
+C<Sys::Syslog> has been changed to protect people from poor quality third
+party code.
+
+=head2 Debugger and Unicode slowdown
+
+It had been reported that running under perl's debugger when processing
+Unicode data could cause unexpectedly large slowdowns. The most likely cause
+of this was identified and fixed by Nicholas Clark.
+
+=head2 Smaller fixes
+
+=over 4
+
+=item *
+
+C<FindBin> now works better with directories where access rights are more
+restrictive than usual.
+
+=item *
+
+Several memory leaks in ithreads were closed. An improved implementation of
+C<threads::shared> is available on CPAN - this will be merged into 5.8.9 if
+it proves stable.
+
+=item *
+
+Trailing spaces are now trimmed from C<$!> and C<$^E>.
+
+=item *
+
+Operations that require perl to read a process's list of groups, such as reads
+of C<$(> and C<$)>, now dynamically allocate memory rather than using a
+fixed sized array. The fixed size array could cause C stack exhaustion on
+systems configured to use large numbers of groups.
+
+=item *
+
+C<PerlIO::scalar> now works better with non-default C<$/> settings.
+
+=item *
+
+You can now use the C<x> operator to repeat a C<qw//> list. This used
+to raise a syntax error.
+
+=item *
+
+The debugger now traces correctly execution in eval("")uated code that
+contains #line directives.
+
+=item *
+
+The value of the C<open> pragma is no longer ignored for three-argument
+opens.
+
+=item *
+
+The optimisation of C<for (reverse @a)> introduced in perl 5.8.6 could
+misbehave when the array had undefined elements and was used in LVALUE
+context. Dave Mitchell provided a fix.
+
+=item *
+
+Some case insensitive matches between UTF-8 encoded data and 8 bit regexps,
+and vice versa, could give malformed character warnings. These have been
+fixed by Dave Mitchell and Yves Orton.
+
+=item *
+
+C<lcfirst> and C<ucfirst> could corrupt the string for certain cases where
+the length UTF-8 encoding of the string in lower case, upper case or title
+case differed. This was fixed by Nicholas Clark.
+
+=item *
+
+Perl will now use the C library calls C<unsetenv> and C<clearenv> if present
+to delete keys from C<%ENV> and delete C<%ENV> entirely, thanks to a patch
+from Alan Burlison.
+
+=back
+
+=head1 New or Changed Diagnostics
+
+=head2 Attempt to set length of freed array
+
+This is a new warning, produced in situations such as this:
+
+    $r = do {my @a; \$#a};
+    $$r = 503;
+
+=head2 Non-string passed as bitmask
+
+This is a new warning, produced when number has been passed as a argument to
+select(), instead of a bitmask.
+
+    # Wrong, will now warn
+    $rin = fileno(STDIN);
+    ($nfound,$timeleft) = select($rout=$rin, undef, undef, $timeout);
+    
+    # Should be
+    $rin = '';
+    vec($rin,fileno(STDIN),1) = 1;
+    ($nfound,$timeleft) = select($rout=$rin, undef, undef, $timeout);
+
+=head2 Search pattern not terminated or ternary operator parsed as search pattern
+
+This syntax error indicates that the lexer couldn't find the final
+delimiter of a C<?PATTERN?> construct. Mentioning the ternary operator in
+this error message makes it easier to diagnose syntax errors.
+
+=head1 Changed Internals
+
+There has been a fair amount of refactoring of the C<C> source code, partly to
+make it tidier and more maintainable. The resulting object code and the
+C<perl> binary may well be smaller than 5.8.7, in particular due to a change
+contributed by Dave Mitchell which reworked the warnings code to be
+significantly smaller. Apart from being smaller and possibly faster, there
+should be no user-detectable changes.
+
+Andy Lester supplied many improvements to determine which function
+parameters and local variables could actually be declared C<const> to the C
+compiler. Steve Peters provided new C<*_set> macros and reworked the core to
+use these rather than assigning to macros in LVALUE context.
+
+Dave Mitchell improved the lexer debugging output under C<-DT>
+
+Nicholas Clark changed the string buffer allocation so that it is now rounded
+up to the next multiple of 4 (or 8 on platforms with 64 bit pointers). This
+should reduce the number of calls to C<realloc> without actually using any
+extra memory.
+
+The C<HV>'s array of C<HE*>s is now allocated at the correct (minimal) size,
+thanks to another change by Nicholas Clark. Compile with
+C<-DPERL_USE_LARGE_HV_ALLOC> to use the old, sloppier, default.
+
+For XS or embedding debugging purposes, if perl is compiled with
+C<-DDEBUG_LEAKING_SCALARS_FORK_DUMP> in addition to
+C<-DDEBUG_LEAKING_SCALARS> then a child process is C<fork>ed just before
+global destruction, which is used to display the values of any scalars
+found to have leaked at the end of global destruction. Without this, the
+scalars have already been freed sufficiently at the point of detection that
+it is impossible to produce any meaningful dump of their contents.  This
+feature was implemented by the indefatigable Nicholas Clark, based on an idea
+by Mike Giroux.
+
+=head1 Platform Specific Problems
+
+The optimiser on HP-UX 11.23 (Itanium 2) is currently partly disabled (scaled
+down to +O1) when using HP C-ANSI-C; the cause of problems at higher
+optimisation levels is still unclear.
+
+There are a handful of remaining test failures on VMS, mostly due to
+test fixes and minor module tweaks with too many dependencies to
+integrate into this release from the development stream, where they have
+all been corrected.  The following is a list of expected failures with
+the patch number of the fix where that is known:
+
+    ext/Devel/PPPort/t/ppphtest.t  #26913
+    ext/List/Util/t/p_tainted.t    #26912
+    lib/ExtUtils/t/PL_FILES.t      #26813
+    lib/ExtUtils/t/basic.t         #26813
+    t/io/fs.t
+    t/op/cmp.t
+
+=head1 Reporting Bugs
+
+If you find what you think is a bug, you might check the articles
+recently posted to the comp.lang.perl.misc newsgroup and the perl
+bug database at http://bugs.perl.org.  There may also be
+information at http://www.perl.org, the Perl Home Page.
+
+If you believe you have an unreported bug, please run the B<perlbug>
+program included with your release.  Be sure to trim your bug down
+to a tiny but sufficient test case.  Your bug report, along with the
+output of C<perl -V>, will be sent off to perlbug@perl.org to be
+analysed by the Perl porting team.  You can browse and search
+the Perl 5 bugs at http://bugs.perl.org/
+
+=head1 SEE ALSO
+
+The F<Changes> file for exhaustive details on what changed.
+
+The F<INSTALL> file for how to build Perl.
+
+The F<README> file for general stuff.
+
+The F<Artistic> and F<Copying> files for copyright information.
+
+=cut
diff --git a/lib/5.24.1/pod/perl589delta.pod b/lib/5.24.1/pod/perl589delta.pod
new file mode 100644
index 00000000..f10099cc
--- /dev/null
+++ b/lib/5.24.1/pod/perl589delta.pod
@@ -0,0 +1,2337 @@
+=head1 NAME
+
+perl589delta - what is new for perl v5.8.9
+
+=head1 DESCRIPTION
+
+This document describes differences between the 5.8.8 release and
+the 5.8.9 release.
+
+=head1 Notice
+
+The 5.8.9 release will be the last significant release of the 5.8.x
+series. Any future releases of 5.8.x will likely only be to deal with
+security issues, and platform build failures. Hence you should look to
+migrating to 5.10.x, if you have not started already.
+See L</"Known Problems"> for more information.
+
+=head1 Incompatible Changes
+
+A particular construction in the source code of extensions written in C++
+may need changing. See L</"Changed Internals"> for more details. All
+extensions written in C, most written in C++, and all existing compiled
+extensions are unaffected. This was necessary to improve C++ support.
+
+Other than this, there are no changes intentionally incompatible with 5.8.8.
+If any exist, they are bugs and reports are welcome.
+
+=head1 Core Enhancements
+
+=head2 Unicode Character Database 5.1.0.
+
+The copy of the Unicode Character Database included in Perl 5.8 has
+been updated to 5.1.0 from 4.1.0. See
+L<http://www.unicode.org/versions/Unicode5.1.0/#NotableChanges> for the
+notable changes.
+
+=head2 stat and -X on directory handles
+
+It is now possible to call C<stat> and the C<-X> filestat operators on
+directory handles. As both directory and file handles are barewords, there
+can be ambiguities over which was intended. In these situations the file
+handle semantics are preferred. Both also treat C<*FILE{IO}> filehandles
+like C<*FILE> filehandles.
+
+=head2 Source filters in @INC
+
+It's possible to enhance the mechanism of subroutine hooks in @INC by
+adding a source filter on top of the filehandle opened and returned by the
+hook. This feature was planned a long time ago, but wasn't quite working
+until now. See L<perlfunc/require> for details. (Nicholas Clark)
+
+=head2 Exceptions in constant folding
+
+The constant folding routine is now wrapped in an exception handler, and
+if folding throws an exception (such as attempting to evaluate 0/0), perl
+now retains the current optree, rather than aborting the whole program.
+Without this change, programs would not compile if they had expressions that
+happened to generate exceptions, even though those expressions were in code
+that could never be reached at runtime. (Nicholas Clark, Dave Mitchell)
+
+=head2 C<no VERSION>
+
+You can now use C<no> followed by a version number to specify that you
+want to use a version of perl older than the specified one.
+
+=head2 Improved internal UTF-8 caching code
+
+The code that caches calculated UTF-8 byte offsets for character offsets for
+a string has been re-written. Several bugs have been located and eliminated,
+and the code now makes better use of the information it has, so should be
+faster. In particular, it doesn't scan to the end of a string before
+calculating an offset within the string, which should speed up some operations
+on long strings. It is now possible to disable the caching code at run time,
+to verify that it is not the cause of suspected problems.
+
+=head2 Runtime relocatable installations
+
+There is now F<Configure> support for creating a perl tree that is relocatable
+at run time. see L</Relocatable installations>.
+
+=head2 New internal variables
+
+=over 4
+
+=item C<${^CHILD_ERROR_NATIVE}>
+
+This variable gives the native status returned by the last pipe close,
+backtick command, successful call to C<wait> or C<waitpid>, or from the
+C<system> operator. See L<perlvar> for details. (Contributed by Gisle Aas.)
+
+=item C<${^UTF8CACHE}>
+
+This variable controls the state of the internal UTF-8 offset caching code.
+1 for on (the default), 0 for off, -1 to debug the caching code by checking
+all its results against linear scans, and panicking on any discrepancy.
+
+=back
+
+=head2 C<readpipe> is now overridable
+
+The built-in function C<readpipe> is now overridable. Overriding it permits
+also to override its operator counterpart, C<qx//> (also known as C<``>).
+
+=head2 simple exception handling macros
+
+Perl 5.8.9 (and 5.10.0 onwards) now provides a couple of macros to do very
+basic exception handling in XS modules. You can use these macros if you call
+code that may C<croak>, but you need to do some cleanup before giving control
+back to Perl. See L<perlguts/Exception Handling> for more details.
+
+=head2 -D option enhancements 
+
+=over
+
+=item *
+
+C<-Dq> suppresses the I<EXECUTING...> message when running under C<-D>
+
+=item *
+
+C<-Dl> logs runops loop entry and exit, and jump level popping.
+
+=item *
+
+C<-Dv> displays the process id as part of the trace output.
+
+=back
+
+=head2 XS-assisted SWASHGET
+
+Some pure-perl code that the regexp engine was using to retrieve Unicode
+properties and transliteration mappings has been reimplemented in XS
+for faster execution.
+(SADAHIRO Tomoyuki)
+
+=head2 Constant subroutines
+
+The interpreter internals now support a far more memory efficient form of
+inlineable constants. Storing a reference to a constant value in a symbol
+table is equivalent to a full typeglob referencing a constant subroutine,
+but using about 400 bytes less memory. This proxy constant subroutine is
+automatically upgraded to a real typeglob with subroutine if necessary.
+The approach taken is analogous to the existing space optimisation for
+subroutine stub declarations, which are stored as plain scalars in place
+of the full typeglob.
+
+However, to aid backwards compatibility of existing code, which (wrongly)
+does not expect anything other than typeglobs in symbol tables, nothing in
+core uses this feature, other than the regression tests.
+
+Stubs for prototyped subroutines have been stored in symbol tables as plain
+strings, and stubs for unprototyped subroutines as the number -1, since 5.005,
+so code which assumes that the core only places typeglobs in symbol tables
+has been making incorrect assumptions for over 10 years.
+
+=head1 New Platforms
+
+Compile support added for:
+
+=over
+
+=item *
+
+DragonFlyBSD
+
+=item *
+
+MidnightBSD
+
+=item *
+
+MirOS BSD
+
+=item *
+
+RISC OS 
+
+=item *
+
+Cray XT4/Catamount
+
+=back
+
+=head1 Modules and Pragmata
+
+=head2 New Modules
+
+=over
+
+=item *
+
+C<Module::Pluggable> is a simple framework to create modules that accept
+pluggable sub-modules. The bundled version is 3.8
+
+=item *
+
+C<Module::CoreList> is a hash of hashes that is keyed on perl version as
+indicated in C<$]>. The bundled version is 2.17
+
+=item *
+
+C<Win32API::File> now available in core on Microsoft Windows. The bundled
+version is 0.1001_01
+
+=item * 
+
+C<Devel::InnerPackage> finds all the packages defined by a single file. It is
+part of the C<Module::Pluggable> distribution. The bundled version is 0.3
+
+=back
+
+=head2 Updated Modules
+
+=over
+
+=item *
+
+C<attributes> upgraded to version 0.09
+
+=item *
+
+C<AutoLoader> upgraded to version 5.67
+
+=item *
+
+C<AutoSplit> upgraded to 1.06
+
+=item *
+
+C<autouse> upgraded to version 1.06
+
+=item *
+
+C<B> upgraded from 1.09_01 to 1.19
+
+=over
+
+=item *
+
+provides new pad related abstraction macros C<B::NV::COP_SEQ_RANGE_LOW>,
+C<B::NV::COP_SEQ_RANGE_HIGH>, C<B::NV::PARENT_PAD_INDEX>,
+C<B::NV::PARENT_FAKELEX_FLAGS>, which hides the difference in storage in
+5.10.0 and later.
+
+=item *
+
+provides C<B::sub_generation>, which exposes C<PL_sub_generation>
+
+=item *
+
+provides C<B::GV::isGV_with_GP>, which on pre-5.10 perls always returns true.
+
+=item *
+
+New type C<B::HE> added with methods C<VAL>, C<HASH> and C<SVKEY_force>
+
+=item *
+
+The C<B::GVf_IMPORTED_CV> flag is now set correctly when a proxy
+constant subroutine is imported.
+
+=item *
+
+bugs fixed in the handling of C<PMOP>s.
+
+=item *
+
+C<B::BM::PREVIOUS> returns now C<U32>, not C<U16>.
+C<B::CV::START> and C<B:CV::ROOT> return now C<NULL> on an XSUB,
+C<B::CV::XSUB> and C<B::CV::XSUBANY> return 0 on a non-XSUB.
+
+=back
+
+=item *
+
+C<B::C> upgraded to 1.05
+
+=item *
+
+C<B::Concise> upgraded to 0.76
+
+=over
+
+=item *
+
+new option C<-src> causes the rendering of each statement (starting with
+the nextstate OP) to be preceded by the first line of source code that
+generates it.
+
+=item *
+
+new option C<-stash="somepackage">, C<require>s "somepackage", and then renders
+each function defined in its namespace.
+
+=item *
+
+now has documentation of detailed hint symbols.
+
+=back
+
+=item *
+
+C<B::Debug> upgraded to version 1.05
+
+=item *
+
+C<B::Deparse> upgraded to version 0.87
+
+=over 4
+
+=item *
+
+properly deparse C<print readpipe $x, $y>.
+
+=item *
+
+now handles C<''->()>, C<::()>, C<sub :: {}>, I<etc.> correctly [RT #43010].
+All bugs in parsing these kinds of syntax are now fixed:
+
+    perl -MO=Deparse -e '"my %h = "->()'
+    perl -MO=Deparse -e '::->()'
+    perl -MO=Deparse -e 'sub :: {}'
+    perl -MO=Deparse -e 'package a; sub a::b::c {}'
+    perl -MO=Deparse -e 'sub the::main::road {}'
+
+=item *
+
+does B<not> deparse C<$^H{v_string}>, which is automatically set by the
+internals.
+
+=back
+
+=item *
+
+C<B::Lint> upgraded to version 1.11
+
+=item *
+
+C<B::Terse> upgraded to version 1.05
+
+=item *
+
+C<base> upgraded to version 2.13
+
+=over 4
+
+=item *
+
+loading a module via base.pm would mask a global C<$SIG{__DIE__}> in that
+module.
+
+=item *
+
+push all classes at once in C<@ISA>
+
+=back
+
+=item *
+
+C<Benchmark> upgraded to version 1.10
+
+=item *
+
+C<bigint> upgraded to 0.23
+
+=item *
+
+C<bignum> upgraded to 0.23
+
+=item *
+
+C<bigrat> upgraded to 0.23
+
+=item *
+
+C<blib> upgraded to 0.04
+
+=item *
+
+C<Carp> upgraded to version 1.10
+
+The argument backtrace code now shows C<undef> as C<undef>,
+instead of a string I<"undef">.
+
+=item *
+
+C<CGI> upgraded to version 3.42
+
+=item *
+
+C<charnames> upgraded to 1.06
+
+=item *
+
+C<constant> upgraded to version 1.17
+
+=item *
+
+C<CPAN> upgraded to version 1.9301
+
+=item *
+
+C<Cwd> upgraded to version 3.29 with some platform specific
+improvements (including for VMS).
+
+=item *
+
+C<Data::Dumper> upgraded to version 2.121_17
+
+=over
+
+=item *
+
+Fixes hash iterator current position with the pure Perl version [RT #40668]
+
+=item *
+
+Performance enhancements, which will be most evident on platforms where
+repeated calls to C's C<realloc()> are slow, such as Win32.
+
+=back
+
+=item *
+
+C<DB_File> upgraded to version 1.817
+
+=item *
+
+C<DB_Filter> upgraded to version 0.02
+
+=item *
+
+C<Devel::DProf> upgraded to version 20080331.00
+
+=item *
+
+C<Devel::Peek> upgraded to version 1.04
+
+=item *
+
+C<Devel::PPPort> upgraded to version 3.14
+
+=item *
+
+C<diagnostics> upgraded to version 1.16
+
+=item *
+
+C<Digest> upgraded to version 1.15
+
+=item *
+
+C<Digest::MD5> upgraded to version 2.37
+
+=item *
+
+C<DirHandle> upgraded to version 1.02
+
+=over
+
+=item *
+
+now localises C<$.>, C<$@>, C<$!>, C<$^E>, and C<$?> before closing the
+directory handle to suppress leaking any side effects of warnings about it
+already being closed.
+
+=back
+
+=item *
+
+C<DynaLoader> upgraded to version 1.09
+
+C<DynaLoader> can now dynamically load a loadable object from a file with a
+non-default file extension.
+
+=item *
+
+C<Encode> upgraded to version 2.26
+
+C<Encode::Alias> includes a fix for encoding "646" on Solaris (better known as
+ASCII).
+
+=item *
+
+C<English> upgraded to version 1.03
+
+=item *
+
+C<Errno> upgraded to version 1.10
+
+=item *
+
+C<Exporter> upgraded to version 5.63
+
+=item *
+
+C<ExtUtils::Command> upgraded to version 1.15
+
+=item *
+
+C<ExtUtils::Constant> upgraded to version 0.21
+
+=item *
+
+C<ExtUtils::Embed> upgraded to version 1.28
+
+=item *
+
+C<ExtUtils::Install> upgraded to version 1.50_01
+
+=item *
+
+C<ExtUtils::Installed> upgraded to version 1.43
+
+=item *
+
+C<ExtUtils::MakeMaker> upgraded to version 6.48
+
+=over
+
+=item *
+
+support for C<INSTALLSITESCRIPT> and C<INSTALLVENDORSCRIPT>
+configuration.
+
+=back
+
+=item *
+
+C<ExtUtils::Manifest> upgraded to version 1.55
+
+=item *
+
+C<ExtUtils::ParseXS> upgraded to version 2.19
+
+=item *
+
+C<Fatal> upgraded to version 1.06
+
+=over
+
+=item *
+
+allows built-ins in C<CORE::GLOBAL> to be made fatal.
+
+=back
+
+=item *
+
+C<Fcntl> upgraded to version 1.06
+
+=item *
+
+C<fields> upgraded to version 2.12
+
+=item *
+
+C<File::Basename> upgraded to version 2.77
+
+=item *
+
+C<FileCache> upgraded to version 1.07
+
+=item *
+
+C<File::Compare> upgraded to 1.1005
+
+=item *
+
+C<File::Copy> upgraded to 2.13
+
+=over 4
+
+=item *
+
+now uses 3-arg open.
+
+=back
+
+=item *
+
+C<File::DosGlob> upgraded to 1.01
+
+=item *
+
+C<File::Find> upgraded to version 1.13
+
+=item *
+
+C<File::Glob> upgraded to version 1.06
+
+=over
+
+=item *
+
+fixes spurious results with brackets inside braces.
+
+=back
+
+=item *
+
+C<File::Path> upgraded to version 2.07_02
+
+=item *
+
+C<File::Spec> upgraded to version 3.29
+
+=over 4
+
+=item *
+
+improved handling of bad arguments.
+
+=item *
+
+some platform specific improvements (including for VMS and Cygwin), with
+an optimisation on C<abs2rel> when handling both relative arguments.
+
+=back
+
+=item *
+
+C<File::stat> upgraded to version 1.01
+
+=item *
+
+C<File::Temp> upgraded to version 0.20
+
+=item *
+
+C<filetest> upgraded to version 1.02
+
+=item *
+
+C<Filter::Util::Call> upgraded to version 1.07
+
+=item *
+
+C<Filter::Simple> upgraded to version 0.83
+
+=item * 
+
+C<FindBin> upgraded to version 1.49
+
+=item *
+
+C<GDBM_File> upgraded to version 1.09
+
+=item *
+
+C<Getopt::Long> upgraded to version 2.37
+
+=item *
+
+C<Getopt::Std> upgraded to version 1.06
+
+=item *
+
+C<Hash::Util> upgraded to version 0.06
+
+=item *
+
+C<if> upgraded to version 0.05
+
+=item *
+
+C<IO> upgraded to version 1.23
+
+Reduced number of calls to C<getpeername> in C<IO::Socket>
+
+=item *
+
+C<IPC::Open> upgraded to version 1.03
+
+=item *
+
+C<IPC::Open3> upgraded to version 1.03
+
+=item *
+
+C<IPC::SysV> upgraded to version 2.00
+
+=item *
+
+C<lib> upgraded to version 0.61
+
+=over
+
+=item *
+
+avoid warning about loading F<.par> files.
+
+=back
+
+=item *
+
+C<libnet> upgraded to version 1.22
+
+=item *
+
+C<List::Util> upgraded to 1.19
+
+=item *
+
+C<Locale::Maketext> upgraded to 1.13
+
+=item *
+
+C<Math::BigFloat> upgraded to version 1.60
+
+=item *
+
+C<Math::BigInt> upgraded to version 1.89
+
+=item *
+
+C<Math::BigRat> upgraded to version 0.22
+
+=over 4
+
+=item *
+
+implements new C<as_float> method.
+
+=back
+
+=item *
+
+C<Math::Complex> upgraded to version 1.54.
+
+=item *
+
+C<Math::Trig> upgraded to version 1.18.
+
+=item *
+
+C<NDBM_File> upgraded to version 1.07
+
+=over
+
+=item *
+
+improve F<g++> handling for systems using GDBM compatibility headers.
+
+=back
+
+=item *
+
+C<Net::Ping> upgraded to version 2.35
+
+=item *
+
+C<NEXT> upgraded to version 0.61
+
+=over
+
+=item *
+
+fix several bugs with C<NEXT> when working with C<AUTOLOAD>, C<eval> block, and
+within overloaded stringification.
+
+=back
+
+=item *
+
+C<ODBM_File> upgraded to 1.07
+
+=item *
+
+C<open> upgraded to 1.06
+
+=item *
+
+C<ops> upgraded to 1.02
+
+=item *
+
+C<PerlIO::encoding> upgraded to version 0.11
+
+=item *
+
+C<PerlIO::scalar> upgraded to version 0.06
+
+=over 4
+
+=item *
+
+[RT #40267] C<PerlIO::scalar> doesn't respect readonly-ness.
+
+=back
+
+=item *
+
+C<PerlIO::via> upgraded to version 0.05
+
+=item *
+
+C<Pod::Html> upgraded to version 1.09
+
+=item *
+
+C<Pod::Parser> upgraded to version 1.35
+
+=item * 
+
+C<Pod::Usage> upgraded to version 1.35
+
+=item *
+
+C<POSIX> upgraded to version 1.15
+
+=over
+
+=item *
+
+C<POSIX> constants that duplicate those in C<Fcntl> are now imported from
+C<Fcntl> and re-exported, rather than being duplicated by C<POSIX>
+
+=item *
+
+C<POSIX::remove> can remove empty directories.
+
+=item *
+
+C<POSIX::setlocale> safer to call multiple times.
+
+=item *
+
+C<POSIX::SigRt> added, which provides access to POSIX realtime signal
+functionality on systems that support it.
+
+=back
+
+=item *
+
+C<re> upgraded to version 0.06_01
+
+=item *
+
+C<Safe> upgraded to version 2.16
+
+=item *
+
+C<Scalar::Util> upgraded to 1.19
+
+=item *
+
+C<SDBM_File> upgraded to version 1.06
+
+=item *
+
+C<SelfLoader> upgraded to version 1.17
+
+=item *
+
+C<Shell> upgraded to version 0.72
+
+=item *
+
+C<sigtrap> upgraded to version 1.04
+
+=item *
+
+C<Socket> upgraded to version 1.81
+
+=over
+
+=item *
+
+this fixes an optimistic use of C<gethostbyname>
+
+=back
+
+=item *
+
+C<Storable> upgraded to 2.19
+
+=item *
+
+C<Switch> upgraded to version 2.13
+
+=item *
+
+C<Sys::Syslog> upgraded to version 0.27
+
+=item *
+
+C<Term::ANSIColor> upgraded to version 1.12
+
+=item *
+
+C<Term::Cap> upgraded to version 1.12
+
+=item *
+
+C<Term::ReadLine> upgraded to version 1.03
+
+=item *
+
+C<Test::Builder> upgraded to version 0.80
+
+=item *
+
+C<Test::Harness> upgraded version to 2.64
+
+=over
+
+=item *
+
+this makes it able to handle newlines.
+
+=back
+
+=item *
+
+C<Test::More> upgraded to version 0.80
+
+=item *
+
+C<Test::Simple> upgraded to version 0.80
+
+=item *
+
+C<Text::Balanced> upgraded to version 1.98
+
+=item *
+
+C<Text::ParseWords> upgraded to version 3.27
+
+=item *
+
+C<Text::Soundex> upgraded to version 3.03
+
+=item *
+
+C<Text::Tabs> upgraded to version 2007.1117
+
+=item *
+
+C<Text::Wrap> upgraded to version 2006.1117
+
+=item *
+
+C<Thread> upgraded to version 2.01
+
+=item *
+
+C<Thread::Semaphore> upgraded to version 2.09
+
+=item *
+
+C<Thread::Queue> upgraded to version 2.11
+
+=over
+
+=item *
+
+added capability to add complex structures (e.g., hash of hashes) to queues.
+
+=item *
+
+added capability to dequeue multiple items at once.
+
+=item *
+
+added new methods to inspect and manipulate queues:  C<peek>, C<insert> and
+C<extract>
+
+=back
+
+=item *
+
+C<Tie::Handle> upgraded to version 4.2
+
+=item *
+
+C<Tie::Hash> upgraded to version 1.03
+
+=item *
+
+C<Tie::Memoize> upgraded to version 1.1
+
+=over
+
+=item *
+
+C<Tie::Memoize::EXISTS> now correctly caches its results.
+
+=back
+
+=item *
+
+C<Tie::RefHash> upgraded to version 1.38
+
+=item *
+
+C<Tie::Scalar> upgraded to version 1.01
+
+=item *
+
+C<Tie::StdHandle> upgraded to version 4.2
+
+=item *
+
+C<Time::gmtime> upgraded to version 1.03
+
+=item *
+
+C<Time::Local> upgraded to version 1.1901
+
+=item *
+
+C<Time::HiRes> upgraded to version 1.9715 with various build improvements 
+(including VMS) and minor platform-specific bug fixes (including
+for HP-UX 11 ia64).
+
+=item *
+
+C<threads> upgraded to 1.71
+
+=over
+
+=item *
+
+new thread state information methods: C<is_running>, C<is_detached>
+and C<is_joinable>.  C<list> method enhanced to return running or joinable
+threads.
+
+=item *
+
+new thread signal method: C<kill>
+
+=item *
+
+added capability to specify thread stack size.
+
+=item *
+
+added capability to control thread exiting behavior.  Added a new C<exit>
+method.
+
+=back
+
+=item *
+
+C<threads::shared> upgraded to version 1.27
+
+=over
+
+=item *
+
+smaller and faster implementation that eliminates one internal structure and
+the consequent level of indirection.
+
+=item *
+
+user locks are now stored in a safer manner.
+
+=item *
+
+new function C<shared_clone> creates a copy of an object leaving
+shared elements as-is and deep-cloning non-shared elements.
+
+=item *
+
+added new C<is_shared> method.
+
+=back
+
+=item *
+
+C<Unicode::Normalize> upgraded to version 1.02
+
+=item *
+
+C<Unicode::UCD> upgraded to version 0.25
+
+=item *
+
+C<warnings> upgraded to version 1.05_01
+
+=item *
+
+C<Win32> upgraded to version 0.38
+
+=over 4
+
+=item *
+
+added new function C<GetCurrentProcessId> which returns the regular Windows
+process identifier of the current process, even when called from within a fork.
+
+=back
+
+=item *
+
+C<XSLoader> upgraded to version 0.10
+
+=item *
+
+C<XS::APItest> and C<XS::Typemap> are for internal use only and hence
+no longer installed. Many more tests have been added to C<XS::APItest>.
+
+=back
+
+=head1 Utility Changes
+
+=head2 debugger upgraded to version 1.31
+
+=over 4
+
+=item *
+
+Andreas KE<ouml>nig contributed two functions to save and load the debugger
+history.
+
+=item *
+
+C<NEXT::AUTOLOAD> no longer emits warnings under the debugger.
+
+=item *
+
+The debugger should now correctly find tty the device on OS X 10.5 and VMS
+when the program C<fork>s.
+
+=item *
+
+LVALUE subs now work inside the debugger.
+
+=back
+
+=head2 F<perlthanks>
+
+Perl 5.8.9 adds a new utility F<perlthanks>, which is a variant of F<perlbug>,
+but for sending non-bug-reports to the authors and maintainers of Perl.
+Getting nothing but bug reports can become a bit demoralising - we'll see if
+this changes things.
+
+=head2 F<perlbug>
+
+F<perlbug> now checks if you're reporting about a non-core module and suggests
+you report it to the CPAN author instead.
+
+=head2 F<h2xs>
+
+=over
+
+=item *
+
+won't define an empty string as a constant [RT #25366]
+
+=item *
+
+has examples for C<h2xs -X>
+
+=back
+
+=head2 F<h2ph>
+
+=over 4
+
+=item *
+
+now attempts to deal sensibly with the difference in path implications
+between C<""> and C<< E<lt>E<gt> >> quoting in C<#include> statements.
+
+=item *
+
+now generates correct code for C<#if defined A || defined B>
+[RT #39130]
+
+=back
+
+=head1 New Documentation
+
+As usual, the documentation received its share of corrections, clarifications
+and other nitfixes. More C<< X<...> >> tags were added for indexing.
+
+L<perlunitut> is a tutorial written by Juerd Waalboer on Unicode-related
+terminology and how to correctly handle Unicode in Perl scripts.
+
+L<perlunicode> is updated in section user defined properties.
+
+L<perluniintro> has been updated in the example of detecting data that is not
+valid in particular encoding. 
+
+L<perlcommunity> provides an overview of the Perl Community along with further
+resources.
+
+L<CORE> documents the pseudo-namespace for Perl's core routines.
+
+=head1 Changes to Existing Documentation
+
+L<perlglossary> adds I<deprecated modules and features> and I<to be dropped modules>.
+
+L<perlhack> has been updated and added resources on smoke testing.
+
+The Perl FAQs (F<perlfaq1>..F<perlfaq9>) have been updated.
+
+L<perlcheat> is updated with better details on C<\w>, C<\d>, and C<\s>.
+
+L<perldebug> is updated with information on how to call the debugger.
+
+L<perldiag> documentation updated with I<subroutine with an ampersand> on the
+argument to C<exists> and C<delete> and also several terminology updates on
+warnings.
+
+L<perlfork> documents the limitation of C<exec> inside pseudo-processes.
+
+L<perlfunc>:
+
+=over
+
+=item *
+
+Documentation is fixed in section C<caller> and C<pop>. 
+
+=item *
+
+Function C<alarm> now mentions C<Time::HiRes::ualarm> in preference
+to C<select>.
+
+=item *
+
+Regarding precedence in C<-X>, filetest operators are the same as unary
+operators, but not regarding parsing and parentheses (spotted by Eirik Berg
+Hanssen).
+
+=item *
+
+C<reverse> function documentation received scalar context examples.
+
+=back
+
+L<perllocale> documentation is adjusted for number localization and
+C<POSIX::setlocale> to fix Debian bug #379463.
+
+L<perlmodlib> is updated with C<CPAN::API::HOWTO> and
+C<Sys::Syslog::win32::Win32> 
+
+L<perlre> documentation updated to reflect the differences between
+C<[[:xxxxx:]]> and C<\p{IsXxxxx}> matches. Also added section on C</g> and
+C</c> modifiers.
+
+L<perlreguts> describe the internals of the regular expressions engine. It has
+been contributed by Yves Orton.
+
+L<perlrebackslash> describes all perl regular expression backslash and escape
+sequences.
+
+L<perlrecharclass> describes the syntax and use of character classes in
+Perl Regular Expressions.
+
+L<perlrun> is updated to clarify on the hash seed I<PERL_HASH_SEED>. Also more
+information in options C<-x> and C<-u>.
+
+L<perlsub> example is updated to use a lexical variable for C<opendir> syntax.
+
+L<perlvar> fixes confusion about real GID C<$(> and effective GID C<$)>. 
+
+Perl thread tutorial example is fixed in section
+L<perlthrtut/Queues: Passing Data Around> and L<perlthrtut>.
+
+L<perlhack> documentation extensively improved by Jarkko Hietaniemi and others.
+
+L<perltoot> provides information on modifying C<@UNIVERSAL::ISA>.
+
+L<perlport> documentation extended to include different C<kill(-9, ...)>
+semantics on Windows. It also clearly states C<dump> is not supported on Win32
+and cygwin.
+
+F<INSTALL> has been updated and modernised.
+
+=head1 Performance Enhancements
+
+=over
+
+=item *
+
+The default since perl 5.000 has been for perl to create an empty scalar
+with every new typeglob. The increased use of lexical variables means that
+most are now unused. Thanks to Nicholas Clark's efforts, Perl can now be
+compiled with C<-DPERL_DONT_CREATE_GVSV> to avoid creating these empty scalars.
+This will significantly decrease the number of scalars allocated for all
+configurations, and the number of scalars that need to be copied for ithread
+creation. Whilst this option is binary compatible with existing perl
+installations, it does change a long-standing assumption about the
+internals, hence it is not enabled by default, as some third party code may
+rely on the old behaviour.
+
+We would recommend testing with this configuration on new deployments of
+perl, particularly for multi-threaded servers, to see whether all third party
+code is compatible with it, as this configuration may give useful performance
+improvements. For existing installations we would not recommend changing to
+this configuration unless thorough testing is performed before deployment.
+
+=item *
+
+C<diagnostics> no longer uses C<$&>, which results in large speedups
+for regexp matching in all code using it.
+
+=item *
+
+Regular expressions classes of a single character are now treated the same as
+if the character had been used as a literal, meaning that code that uses
+char-classes as an escaping mechanism will see a speedup. (Yves Orton)
+
+=item *
+
+Creating anonymous array and hash references (ie. C<[]> and C<{}>) now incurs
+no more overhead than creating an anonymous list or hash. Nicholas Clark
+provided changes with a saving of two ops and one stack push, which was measured
+as a slightly better than 5% improvement for these operations.
+
+=item *
+
+Many calls to C<strlen()> have been eliminated, either because the length was
+already known, or by adopting or enhancing APIs that pass lengths. This has
+been aided by the adoption of a C<my_sprintf()> wrapper, which returns the
+correct C89 value - the length of the formatted string. Previously we could
+not rely on the return value of C<sprintf()>, because on some ancient but
+extant platforms it still returns C<char *>.
+
+=item * 
+
+C<index> is now faster if the search string is stored in UTF-8 but only contains
+characters in the Latin-1 range.
+
+=item *
+
+The Unicode swatch cache inside the regexp engine is now used. (the lookup had
+a key mismatch, present since the initial implementation). [RT #42839]
+
+=back
+
+=head1 Installation and Configuration Improvements
+
+=head2 Relocatable installations
+
+There is now F<Configure> support for creating a relocatable perl tree. If
+you F<Configure> with C<-Duserelocatableinc>, then the paths in C<@INC> (and
+everything else in C<%Config>) can be optionally located via the path of the
+F<perl> executable.
+
+At start time, if any paths in C<@INC> or C<Config> that F<Configure> marked
+as relocatable (by starting them with C<".../">), then they are prefixed the
+directory of C<$^X>. This allows the relocation can be configured on a
+per-directory basis, although the default with C<-Duserelocatableinc> is that
+everything is relocated. The initial install is done to the original configured
+prefix.
+
+=head2 Configuration improvements
+
+F<Configure> is now better at removing temporary files. Tom Callaway
+(from RedHat) also contributed patches that complete the set of flags
+passed to the compiler and the linker, in particular that C<-fPIC> is now
+enabled on Linux. It will also croak when your F</dev/null> isn't a device.
+
+A new configuration variable C<d_pseudofork> has been to F<Configure>, and is
+available as  C<$Config{d_pseudofork}> in the C<Config> module. This
+distinguishes real C<fork> support from the pseudofork emulation used on
+Windows platforms.
+
+F<Config.pod> and F<config.sh> are now placed correctly for cross-compilation.
+
+C<$Config{useshrplib}> is now 'true' rather than 'yes' when using a shared perl
+library.
+
+=head2 Compilation improvements
+
+Parallel makes should work properly now, although there may still be problems
+if C<make test> is instructed to run in parallel.
+
+Many compilation warnings have been cleaned up. A very stubborn compiler
+warning in C<S_emulate_eaccess()> was killed after six attempts.
+F<g++> support has been tuned, especially for FreeBSD.
+
+F<mkppport> has been integrated, and all F<ppport.h> files in the core will now
+be autogenerated at build time (and removed during cleanup).
+
+=head2 Installation improvements.
+
+F<installman> now works with C<-Duserelocatableinc> and C<DESTDIR>.
+
+F<installperl> no longer installs:
+
+=over 4
+
+=item *
+
+static library files of statically linked extensions when a shared perl library
+is being used. (They are not needed. See L</Windows> below).
+
+=item *
+
+F<SIGNATURE> and F<PAUSE*.pub> (CPAN files)
+
+=item *
+
+F<NOTES> and F<PATCHING> (ExtUtils files)
+
+=item *
+
+F<perlld> and F<ld2> (Cygwin files)
+
+=back
+
+=head2 Platform Specific Changes
+
+There are improved hints for AIX, Cygwin, DEC/OSF, FreeBSD, HP/UX, Irix 6
+Linux, MachTen, NetBSD, OS/390, QNX, SCO, Solaris, SunOS, System V Release 5.x
+(UnixWare 7, OpenUNIX 8), Ultrix, UMIPS, uts and VOS.
+
+=head3 FreeBSD
+
+=over 4
+
+=item *
+
+Drop C<-std=c89> and C<-ansi> if using C<long long> as the main integral type,
+else in FreeBSD 6.2 (and perhaps other releases), system headers do not
+declare some functions required by perl.
+
+=back
+
+=head3 Solaris
+
+=over 4
+
+=item *
+
+Starting with Solaris 10, we do not want versioned shared libraries, because
+those often indicate a private use only library. These problems could often
+be triggered when L<SUNWbdb> (Berkeley DB) was installed. Hence if Solaris 10
+is detected set C<ignore_versioned_solibs=y>.
+
+=back
+
+=head3 VMS
+
+=over 4
+
+=item *
+
+Allow IEEE math to be deselected on OpenVMS I64 (but it remains the default).
+
+=item *
+
+Record IEEE usage in C<config.h>
+
+=item *
+
+Help older VMS compilers by using C<ccflags> when building C<munchconfig.exe>.
+
+=item * 
+
+Don't try to build old C<Thread> extension on VMS when C<-Duseithreads> has
+been chosen.
+
+=item *
+
+Passing a raw string of "NaN" to F<nawk> causes a core dump - so the string
+has been changed to "*NaN*"
+
+=item *
+
+F<t/op/stat.t> tests will now test hard links on VMS if they are supported.
+
+=back
+
+=head3 Windows
+
+=over 4
+
+=item *
+
+When using a shared perl library F<installperl> no longer installs static
+library files, import library files and export library files (of statically
+linked extensions) and empty bootstrap files (of dynamically linked
+extensions). This fixes a problem building PAR-Packer on Win32 with a debug
+build of perl.
+
+=item *
+
+Various improvements to the win32 build process, including support for Visual
+C++ 2005 Express Edition (aka Visual C++ 8.x).
+
+=item * 
+
+F<perl.exe> will now have an icon if built with MinGW or Borland. 
+
+=item *
+
+Improvements to the perl-static.exe build process.
+
+=item *
+
+Add Win32 makefile option to link all extensions statically.
+
+=item *
+
+The F<WinCE> directory has been merged into the F<Win32> directory.
+
+=item *
+
+C<setlocale> tests have been re-enabled for Windows XP onwards.
+
+=back
+
+=head1 Selected Bug Fixes
+
+=head2 Unicode
+
+Many many bugs related to the internal Unicode implementation (UTF-8) have
+been fixed. In particular, long standing bugs related to returning Unicode
+via C<tie>, overloading or C<$@> are now gone, some of which were never
+reported.
+
+C<unpack> will internally convert the string back from UTF-8 on numeric types.
+This is a compromise between the full consistency now in 5.10, and the current
+behaviour, which is often used as a "feature" on string types.
+
+Using C<:crlf> and C<UTF-16> IO layers together will now work.
+
+Fixed problems with C<split>, Unicode C</\s+/> and C</ \0/>.
+
+Fixed bug RT #40641 - encoding of Unicode characters in regular expressions.
+
+Fixed a bug where using certain patterns in a regexp led to a panic.
+[RT #45337]
+
+Perl no longer segfaults (due to infinite internal recursion) if the locale's
+character is not UTF-8 [RT #41442]:
+
+    use open ':locale';
+    print STDERR "\x{201e}"; # &bdquo;
+
+=head2 PerlIO
+
+Inconsistencies have been fixed in the reference counting PerlIO uses to keep
+track of Unix file descriptors, and the API used by XS code to manage getting
+and releasing C<FILE *>s
+
+=head2 Magic
+
+Several bugs have been fixed in Magic, the internal system used to implement
+features such as C<tie>, tainting and threads sharing.
+
+C<undef @array> on a tied array now correctly calls the C<CLEAR> method.
+
+Some of the bitwise ops were not checking whether their arguments were magical
+before using them. [RT #24816]
+
+Magic is no longer invoked twice by the expression C<\&$x>
+
+A bug with assigning large numbers and tainting has been resolved.
+[RT #40708]
+
+A new entry has been added to the MAGIC vtable - C<svt_local>. This is used
+when copying magic to the new value during C<local>, allowing certain problems
+with localising shared variables to be resolved.
+
+For the implementation details, see L<perlguts/Magic Virtual Tables>.
+
+=head2 Reblessing overloaded objects now works
+
+Internally, perl object-ness is on the referent, not the reference, even
+though methods can only be called via a reference. However, the original
+implementation of overloading stored flags related to overloading on the
+reference, relying on the flags being copied when the reference was copied,
+or set at the creation of a new reference. This manifests in a bug - if you
+rebless an object from a class that has overloading, into one that does not,
+then any other existing references think that they (still) point to an
+overloaded object, choose these C code paths, and then throw errors.
+Analogously, blessing into an overloaded class when other references exist will
+result in them not using overloading.
+
+The implementation has been fixed for 5.10, but this fix changes the semantics
+of flag bits, so is not binary compatible, so can't be applied to 5.8.9.
+However, 5.8.9 has a work-around that implements the same bug fix. If the
+referent has multiple references, then all the other references are located and
+corrected. A full search is avoided whenever possible by scanning lexicals
+outwards from the current subroutine, and the argument stack.
+
+A certain well known Linux vendor applied incomplete versions of this bug fix
+to their F</usr/bin/perl> and then prematurely closed bug reports about
+performance issues without consulting back upstream. This not being enough,
+they then proceeded to ignore the necessary fixes to these unreleased changes
+for 11 months, until massive pressure was applied by their long-suffering
+paying customers, catalysed by the failings being featured on a prominent blog
+and Slashdot.
+
+=head2 C<strict> now propagates correctly into string evals
+
+Under 5.8.8 and earlier:
+
+    $ perl5.8.8 -e 'use strict; eval "use foo bar" or die $@'
+    Can't locate foo.pm in @INC (@INC contains: ... .) at (eval 1) line 2.
+    BEGIN failed--compilation aborted at (eval 1) line 2.
+
+Under 5.8.9 and later:
+
+    $ perl5.8.9 -e 'use strict; eval "use foo bar" or die $@'
+    Bareword "bar" not allowed while "strict subs" in use at (eval 1) line 1.
+
+This may cause problems with programs that parse the error message and rely
+on the buggy behaviour.
+
+=head2 Other fixes
+
+=over
+
+=item *
+
+The tokenizer no longer treats C<=cute> (and other words beginning
+with C<=cut>) as a synonym for C<=cut>.
+
+=item *
+
+Calling C<CORE::require>
+
+C<CORE::require> and C<CORE::do> were always parsed as C<require> and C<do>
+when they were overridden. This is now fixed.
+
+=item *
+
+Stopped memory leak on long F</etc/groups> entries.
+
+=item *
+
+C<while (my $x ...) { ...; redo }> shouldn't C<undef $x>.
+
+In the presence of C<my> in the conditional of a C<while()>, C<until()>,
+or C<for(;;)> loop, we now add an extra scope to the body so that C<redo>
+doesn't C<undef> the lexical.
+
+=item *
+
+The C<encoding> pragma now correctly ignores anything following an C<@> 
+character in the C<LC_ALL> and C<LANG> environment variables. [RT # 49646]
+
+=item *
+
+A segfault observed with some F<gcc> 3.3 optimisations is resolved.
+
+=item *
+
+A possible segfault when C<unpack> used in scalar context with C<()> groups
+is resolved. [RT #50256]
+
+=item *
+
+Resolved issue where C<$!> could be changed by a signal handler interrupting
+a C<system> call.
+
+=item *
+
+Fixed bug RT #37886, symbolic dereferencing was allowed in the argument of
+C<defined> even under the influence of C<use strict 'refs'>.
+
+=item *
+
+Fixed bug RT #43207, where C<lc>/C<uc> inside C<sort> affected the return
+value.
+
+=item *
+
+Fixed bug RT #45607, where C<*{"BONK"} = \&{"BONK"}> didn't work correctly.
+
+=item *
+
+Fixed bug RT #35878, croaking from a XSUB called via C<goto &xsub> corrupts perl
+internals.
+
+=item *
+
+Fixed bug RT #32539, F<DynaLoader.o> is moved into F<libperl.so> to avoid the
+need to statically link DynaLoader into the stub perl executable. With this
+F<libperl.so> provides everything needed to get a functional embedded perl
+interpreter to run.
+
+=item *
+
+Fix bug RT #36267 so that assigning to a tied hash doesn't change the
+underlying hash.
+
+=item *
+
+Fix bug RT #6006, regexp replaces using large replacement variables
+fail some of the time, I<i.e.> when substitution contains something
+like C<${10}> (note the bracket) instead of just C<$10>.
+
+=item *
+
+Fix bug RT #45053, C<Perl_newCONSTSUB()> is now thread safe.
+
+=back
+
+=head2 Platform Specific Fixes
+
+=head3 Darwin / MacOS X
+
+=over 4
+
+=item *
+
+Various improvements to 64 bit builds.
+
+=item *
+
+Mutex protection added in C<PerlIOStdio_close()> to avoid race conditions.
+Hopefully this fixes failures in the threads tests F<free.t> and F<blocks.t>.
+
+=item *
+
+Added forked terminal support to the debugger, with the ability to update the
+window title.
+
+=back
+
+=head3 OS/2
+
+=over 4
+
+=item *
+
+A build problem with specifying C<USE_MULTI> and C<USE_ITHREADS> but without
+C<USE_IMP_SYS> has been fixed.
+
+=item *
+
+C<OS2::REXX> upgraded to version 1.04
+
+=back
+
+=head3 Tru64
+
+=over 4
+
+=item *
+
+Aligned floating point build policies for F<cc> and F<gcc>.
+
+=back
+
+=head3 RedHat Linux
+
+=over 4
+
+=item *
+
+Revisited a patch from 5.6.1 for RH7.2 for Intel's F<icc> [RT #7916], added an
+additional check for C<$Config{gccversion}>.
+
+=back
+
+=head3 Solaris/i386
+
+=over 4
+
+=item *
+
+Use C<-DPTR_IS_LONG> when using 64 bit integers
+
+=back
+
+=head3 VMS
+
+=over 4
+
+=item *
+
+Fixed C<PerlIO::Scalar> in-memory file record-style reads.
+
+=item *
+
+pipe shutdown at process exit should now be more robust.
+
+=item *
+
+Bugs in VMS exit handling tickled by C<Test::Harness> 2.64 have been fixed.
+
+=item *
+
+Fix C<fcntl()> locking capability test in F<configure.com>.
+
+=item *
+
+Replaced C<shrplib='define'> with C<useshrplib='true'> on VMS.
+
+=back
+
+=head3 Windows
+
+=over 4
+
+=item *
+
+C<File::Find> used to fail when the target directory is a bare drive letter and
+C<no_chdir> is 1 (the default is 0). [RT #41555]
+
+=item *
+
+A build problem with specifying C<USE_MULTI> and C<USE_ITHREADS> but without
+C<USE_IMP_SYS> has been fixed.
+
+=item *
+
+The process id is no longer truncated to 16 bits on some Windows platforms
+( http://bugs.activestate.com/show_bug.cgi?id=72443 )
+
+=item *
+
+Fixed bug RT #54828 in F<perlio.c> where calling C<binmode> on Win32 and Cygwin
+may cause a segmentation fault.
+
+=back
+
+=head2 Smaller fixes
+
+=over 4
+
+=item *
+
+It is now possible to overload C<eq> when using C<nomethod>.
+
+=item *
+
+Various problems using C<overload> with 64 bit integers corrected.
+
+=item *
+
+The reference count of C<PerlIO> file descriptors is now correctly handled.
+
+=item *
+
+On VMS, escaped dots will be preserved when converted to Unix syntax.
+
+=item *
+
+C<keys %+> no longer throws an C<'ambiguous'> warning.
+
+=item * 
+
+Using C<#!perl -d> could trigger an assertion, which has been fixed.
+
+=item *
+
+Don't stringify tied code references in C<@INC> when calling C<require>.
+
+=item *
+
+Code references in C<@INC> report the correct file name when C<__FILE__> is
+used.
+
+=item *
+
+Width and precision in sprintf didn't handle characters above 255 correctly.
+[RT #40473]
+
+=item *
+
+List slices with indices out of range now work more consistently.
+[RT #39882]
+
+=item *
+
+A change introduced with perl 5.8.1 broke the parsing of arguments of the form
+C<-foo=bar> with the C<-s> on the <#!> line. This has been fixed. See
+http://bugs.activestate.com/show_bug.cgi?id=43483
+
+=item *
+
+C<tr///> is now threadsafe. Previously it was storing a swash inside its OP,
+rather than in a pad.
+
+=item *
+
+F<pod2html> labels anchors more consistently and handles nested definition
+lists better.
+
+=item *
+
+C<threads> cleanup veto has been extended to include C<perl_free()> and
+C<perl_destruct()>
+
+=item *
+
+On some systems, changes to C<$ENV{TZ}> would not always be
+respected by the underlying calls to C<localtime_r()>.  Perl now
+forces the inspection of the environment on these systems.
+
+=item *
+
+The special variable C<$^R> is now more consistently set when executing
+regexps using the C<(?{...})> construct.  In particular, it will still
+be set even if backreferences or optional sub-patterns C<(?:...)?> are
+used.
+
+=back
+
+=head1 New or Changed Diagnostics
+
+=head2 panic: sv_chop %s
+
+This new fatal error occurs when the C routine C<Perl_sv_chop()> was passed a
+position that is not within the scalar's string buffer. This is caused by
+buggy XS code, and at this point recovery is not possible.
+
+=head2 Maximal count of pending signals (%s) exceeded
+
+This new fatal error occurs when the perl process has to abort due to
+too many pending signals, which is bound to prevent perl from being
+able to handle further incoming signals safely.
+
+=head2 panic: attempt to call %s in %s
+
+This new fatal error occurs when the ACL version file test operator is used
+where it is not available on the current platform. Earlier checks mean that
+it should never be possible to get this.
+
+=head2 FETCHSIZE returned a negative value
+
+New error indicating that a tied array has claimed to have a negative
+number of elements.
+
+=head2 Can't upgrade %s (%d) to %d
+
+Previously the internal error from the SV upgrade code was the less informative
+I<Can't upgrade that kind of scalar>. It now reports the current internal type,
+and the new type requested.
+
+=head2 %s argument is not a HASH or ARRAY element or a subroutine
+
+This error, thrown if an invalid argument is provided to C<exists> now
+correctly includes "or a subroutine". [RT #38955]
+
+=head2 Cannot make the non-overridable builtin %s fatal
+
+This error in C<Fatal> previously did not show the name of the builtin in
+question (now represented by %s above).
+
+=head2 Unrecognized character '%s' in column %d
+
+This error previously did not state the column.
+
+=head2 Offset outside string
+
+This can now also be generated by a C<seek> on a file handle using
+C<PerlIO::scalar>.
+
+=head2 Invalid escape in the specified encoding in regexp; marked by <-- HERE in m/%s/
+
+New error, introduced as part of the fix to RT #40641 to handle encoding
+of Unicode characters in regular expression comments.
+
+=head2 Your machine doesn't support dump/undump.
+
+A more informative fatal error issued when calling C<dump> on Win32 and
+Cygwin. (Given that the purpose of C<dump> is to abort with a core dump,
+and core dumps can't be produced on these platforms, this is more useful than
+silently exiting.)
+
+=head1 Changed Internals
+
+The perl sources can now be compiled with a C++ compiler instead of a C
+compiler. A necessary implementation details is that under C++, the macro
+C<XS> used to define XSUBs now includes an C<extern "C"> definition. A side
+effect of this is that B<C++> code that used the construction
+
+    typedef XS(SwigPerlWrapper);
+
+now needs to be written
+
+    typedef XSPROTO(SwigPerlWrapper);
+
+using the new C<XSPROTO> macro, in order to compile. C extensions are
+unaffected, although C extensions are encouraged to use C<XSPROTO> too.
+This change was present in the 5.10.0 release of perl, so any actively
+maintained code that happened to use this construction should already have
+been adapted. Code that needs changing will fail with a compilation error.
+
+C<set> magic on localizing/assigning to a magic variable will now only
+trigger for I<container magics>, i.e. it will for C<%ENV> or C<%SIG>
+but not for C<$#array>.
+
+The new API macro C<newSVpvs()> can be used in place of constructions such as
+C<newSVpvn("ISA", 3)>. It takes a single string constant, and at C compile
+time determines its length.
+
+The new API function C<Perl_newSV_type()> can be used as a more efficient
+replacement of the common idiom
+
+    sv = newSV(0);
+    sv_upgrade(sv, type);
+
+Similarly C<Perl_newSVpvn_flags()> can be used to combine
+C<Perl_newSVpv()> with C<Perl_sv_2mortal()> or the equivalent
+C<Perl_sv_newmortal()> with C<Perl_sv_setpvn()>
+
+Two new macros C<mPUSHs()> and C<mXPUSHs()> are added, to make it easier to
+push mortal SVs onto the stack. They were then used to fix several bugs where
+values on the stack had not been mortalised.
+
+A C<Perl_signbit()> function was added to test the sign of an C<NV>. It 
+maps to the system one when available.
+
+C<Perl_av_reify()>, C<Perl_lex_end()>, C<Perl_mod()>, C<Perl_op_clear()>,
+C<Perl_pop_return()>, C<Perl_qerror()>, C<Perl_setdefout()>,
+C<Perl_vivify_defelem()> and C<Perl_yylex()> are now visible to extensions.
+This was required to allow C<Data::Alias> to work on Windows.
+
+C<Perl_find_runcv()> is now visible to perl core extensions. This was required
+to allow C<Sub::Current> to work on Windows.
+
+C<ptr_table*> functions are now available in unthreaded perl. C<Storable>
+takes advantage of this.
+
+There have been many small cleanups made to the internals. In particular,
+C<Perl_sv_upgrade()> has been simplified considerably, with a straight-through
+code path that uses C<memset()> and C<memcpy()> to initialise the new body,
+rather than assignment via multiple temporary variables. It has also
+benefited from simplification and de-duplication of the arena management
+code.
+
+A lot of small improvements in the code base were made due to reports from
+the Coverity static code analyzer.
+
+Corrected use and documentation of C<Perl_gv_stashpv()>, C<Perl_gv_stashpvn()>,
+C<Perl_gv_stashsv()> functions (last parameter is a bitmask, not boolean).
+
+C<PERL_SYS_INIT>, C<PERL_SYS_INIT3> and C<PERL_SYS_TERM> macros have been
+changed into functions.
+
+C<PERLSYS_TERM> no longer requires a context. C<PerlIO_teardown()>
+is now called without a context, and debugging output in this function has
+been disabled because that required that an interpreter was present, an invalid
+assumption at termination time.
+
+All compile time options which affect binary compatibility have been grouped
+together into a global variable (C<PL_bincompat_options>).
+
+The values of C<PERL_REVISION>, C<PERL_VERSION> and C<PERL_SUBVERSION> are
+now baked into global variables (and hence into any shared perl library).
+Additionally under C<MULTIPLICITY>, the perl executable now records the size of
+the interpreter structure (total, and for this version). Coupled with
+C<PL_bincompat_options> this will allow 5.8.10 (and later), when compiled with a
+shared perl library, to perform sanity checks in C<main()> to verify that the
+shared library is indeed binary compatible.
+
+Symbolic references can now have embedded NULs. The new public function
+C<Perl_get_cvn_flags()> can be used in extensions if you have to handle them.
+
+=head2 Macro cleanups
+
+The core code, and XS code in F<ext> that is not dual-lived on CPAN, no longer
+uses the macros C<PL_na>, C<NEWSV()>, C<Null()>, C<Nullav>, C<Nullcv>,
+C<Nullhv>, C<Nullhv> I<etc>. Their use is discouraged in new code,
+particularly C<PL_na>, which is a small performance hit.
+
+=head1 New Tests
+
+Many modules updated from CPAN incorporate new tests. Some core specific
+tests have been added:
+
+=over 4
+
+=item ext/DynaLoader/t/DynaLoader.t
+
+Tests for the C<DynaLoader> module.
+
+=item t/comp/fold.t
+
+Tests for compile-time constant folding.
+
+=item t/io/pvbm.t
+
+Tests incorporated from 5.10.0 which check that there is no unexpected
+interaction between the internal types C<PVBM> and C<PVGV>.
+
+=item t/lib/proxy_constant_subs.t
+
+Tests for the new form of constant subroutines.
+
+=item t/op/attrhand.t
+
+Tests for C<Attribute::Handlers>.
+
+=item t/op/dbm.t
+
+Tests for C<dbmopen>.
+
+=item t/op/inccode-tie.t
+
+Calls all tests in F<t/op/inccode.t> after first tying C<@INC>.
+
+=item t/op/incfilter.t
+
+Tests for source filters returned from code references in C<@INC>.
+
+=item t/op/kill0.t
+
+Tests for RT #30970.
+
+=item t/op/qrstack.t
+
+Tests for RT #41484.
+
+=item t/op/qr.t
+
+Tests for the C<qr//> construct.
+
+=item t/op/regexp_qr_embed.t
+
+Tests for the C<qr//> construct within another regexp.
+
+=item t/op/regexp_qr.t
+
+Tests for the C<qr//> construct.
+
+=item t/op/rxcode.t
+
+Tests for RT #32840.
+
+=item t/op/studytied.t
+
+Tests for C<study> on tied scalars.
+
+=item t/op/substT.t
+
+Tests for C<subst> run under C<-T> mode.
+
+=item t/op/symbolcache.t
+
+Tests for C<undef> and C<delete> on stash entries that are bound to
+subroutines or methods.
+
+=item t/op/upgrade.t
+
+Tests for C<Perl_sv_upgrade()>.
+
+=item t/mro/package_aliases.t
+
+MRO tests for C<isa> and package aliases.
+
+=item t/pod/twice.t
+
+Tests for calling C<Pod::Parser> twice.
+
+=item t/run/cloexec.t
+
+Tests for inheriting file descriptors across C<exec> (close-on-exec).
+
+=item t/uni/cache.t
+
+Tests for the UTF-8 caching code.
+
+=item t/uni/chr.t
+
+Test that strange encodings do not upset C<Perl_pp_chr()>.
+
+=item t/uni/greek.t
+
+Tests for RT #40641.
+
+=item t/uni/latin2.t
+
+Tests for RT #40641.
+
+=item t/uni/overload.t
+
+Tests for returning Unicode from overloaded values.
+
+=item t/uni/tie.t
+
+Tests for returning Unicode from tied variables.
+
+=back
+
+=head1 Known Problems
+
+There are no known new bugs.
+
+However, programs that rely on bugs that have been fixed will have problems.
+Also, many bug fixes present in 5.10.0 can't be back-ported to the 5.8.x
+branch, because they require changes that are binary incompatible, or because
+the code changes are too large and hence too risky to incorporate.
+
+We have only limited volunteer labour, and the maintenance burden is
+getting increasingly complex. Hence this will be the last significant
+release of the 5.8.x series. Any future releases of 5.8.x will likely
+only be to deal with security issues, and platform build
+failures. Hence you should look to migrating to 5.10.x, if you have
+not started already. Alternatively, if business requirements constrain
+you to continue to use 5.8.x, you may wish to consider commercial
+support from firms such as ActiveState.
+
+=head1 Platform Specific Notes
+
+=head2 Win32
+
+C<readdir()>, C<cwd()>, C<$^X> and C<@INC> now use the alternate (short)
+filename if the long name is outside the current codepage (Jan Dubois).
+
+=head3 Updated Modules
+
+=over 4
+
+=item *
+
+C<Win32> upgraded to version 0.38. Now has a documented 'WinVista' response
+from C<GetOSName> and support for Vista's privilege elevation in C<IsAdminUser>.
+Support for Unicode characters in path names. Improved cygwin and Win64
+compatibility. 
+
+=item *
+
+C<Win32API> updated to 0.1001_01
+
+=item *
+
+C<killpg()> support added to C<MSWin32> (Jan Dubois).
+
+=item *
+
+C<File::Spec::Win32> upgraded to version 3.2701
+
+=back
+
+=head2 OS/2
+
+=head3 Updated Modules
+
+=over 4
+
+=item *
+
+C<OS2::Process> upgraded to 1.03
+
+Ilya Zakharevich has added and documented several C<Window*> and C<Clipbrd*>
+functions.
+
+=item *
+
+C<OS2::REXX::DLL>, C<OS2::REXX> updated to version 1.03
+
+=back
+
+=head2 VMS
+
+=head3 Updated Modules
+
+=over 4
+
+=item *
+
+C<DCLsym> upgraded to version 1.03
+
+=item *
+
+C<Stdio> upgraded to version 2.4
+
+=item *
+
+C<VMS::XSSymSet> upgraded to 1.1.
+
+=back
+
+=head1 Obituary
+
+Nick Ing-Simmons, long time Perl hacker, author of the C<Tk> and C<Encode>
+modules, F<perlio.c> in the core, and 5.003_02 pumpking, died of a heart
+attack on 25th September 2006. He will be missed.
+
+=head1 Acknowledgements
+
+Some of the work in this release was funded by a TPF grant.
+
+Steve Hay worked behind the scenes working out the causes of the differences
+between core modules, their CPAN releases, and previous core releases, and
+the best way to rectify them. He doesn't want to do it again. I know this
+feeling, and I'm very glad he did it this time, instead of me.
+
+Paul Fenwick assembled a team of 18 volunteers, who broke the back of writing
+this document. In particular, Bradley Dean, Eddy Tan, and Vincent Pit
+provided half the team's contribution.
+
+Schwern verified the list of updated module versions, correcting quite a few
+errors that I (and everyone else) had missed, both wrongly stated module
+versions, and changed modules that had not been listed.
+
+The crack Berlin-based QA team of Andreas KE<ouml>nig and Slaven Rezic
+tirelessly re-built snapshots, tested most everything CPAN against
+them, and then identified the changes responsible for any module regressions,
+ensuring that several show-stopper bugs were stomped before the first release
+candidate was cut.
+
+The other core committers contributed most of the changes, and applied most
+of the patches sent in by the hundreds of contributors listed in F<AUTHORS>.
+
+And obviously, Larry Wall, without whom we wouldn't have Perl.
+
+=head1 Reporting Bugs
+
+If you find what you think is a bug, you might check the articles
+recently posted to the comp.lang.perl.misc newsgroup and the perl
+bug database at http://bugs.perl.org.  There may also be
+information at http://www.perl.org, the Perl Home Page.
+
+If you believe you have an unreported bug, please run the B<perlbug>
+program included with your release.  Be sure to trim your bug down
+to a tiny but sufficient test case.  Your bug report, along with the
+output of C<perl -V>, will be sent off to perlbug@perl.org to be
+analysed by the Perl porting team.  You can browse and search
+the Perl 5 bugs at http://bugs.perl.org/
+
+If the bug you are reporting has security implications, which make it
+inappropriate to send to a publicly archived mailing list, then please send
+it to perl5-security-report@perl.org. This points to a closed subscription
+unarchived mailing list, which includes
+all the core committers, who will be able
+to help assess the impact of issues, figure out a resolution, and help
+co-ordinate the release of patches to mitigate or fix the problem across all
+platforms on which Perl is supported. Please only use this address for security
+issues in the Perl core, not for modules independently distributed on CPAN.
+
+=head1 SEE ALSO
+
+The F<Changes> file for exhaustive details on what changed.
+
+The F<INSTALL> file for how to build Perl.
+
+The F<README> file for general stuff.
+
+The F<Artistic> and F<Copying> files for copyright information.
+
+=cut
diff --git a/lib/5.24.1/pod/perl58delta.pod b/lib/5.24.1/pod/perl58delta.pod
new file mode 100644
index 00000000..8b81d4c2
--- /dev/null
+++ b/lib/5.24.1/pod/perl58delta.pod
@@ -0,0 +1,3751 @@
+=head1 NAME
+
+perl58delta - what is new for perl v5.8.0
+
+=head1 DESCRIPTION
+
+This document describes differences between the 5.6.0 release and
+the 5.8.0 release.
+
+Many of the bug fixes in 5.8.0 were already seen in the 5.6.1
+maintenance release since the two releases were kept closely
+coordinated (while 5.8.0 was still called 5.7.something).
+
+Changes that were integrated into the 5.6.1 release are marked C<[561]>.
+Many of these changes have been further developed since 5.6.1 was released,
+those are marked C<[561+]>.
+
+You can see the list of changes in the 5.6.1 release (both from the
+5.005_03 release and the 5.6.0 release) by reading L<perl561delta>.
+
+=head1 Highlights In 5.8.0
+
+=over 4
+
+=item *
+
+Better Unicode support
+
+=item *
+
+New IO Implementation
+
+=item *
+
+New Thread Implementation
+
+=item *
+
+Better Numeric Accuracy
+
+=item *
+
+Safe Signals
+
+=item *
+
+Many New Modules
+
+=item *
+
+More Extensive Regression Testing
+
+=back
+
+=head1 Incompatible Changes
+
+=head2 Binary Incompatibility
+
+B<Perl 5.8 is not binary compatible with earlier releases of Perl.>
+
+B<You have to recompile your XS modules.>
+
+(Pure Perl modules should continue to work.)
+
+The major reason for the discontinuity is the new IO architecture
+called PerlIO.  PerlIO is the default configuration because without
+it many new features of Perl 5.8 cannot be used.  In other words:
+you just have to recompile your modules containing XS code, sorry
+about that.
+
+In future releases of Perl, non-PerlIO aware XS modules may become
+completely unsupported.  This shouldn't be too difficult for module
+authors, however: PerlIO has been designed as a drop-in replacement
+(at the source code level) for the stdio interface.
+
+Depending on your platform, there are also other reasons why
+we decided to break binary compatibility, please read on.
+
+=head2 64-bit platforms and malloc
+
+If your pointers are 64 bits wide, the Perl malloc is no longer being
+used because it does not work well with 8-byte pointers.  Also,
+usually the system mallocs on such platforms are much better optimized
+for such large memory models than the Perl malloc.  Some memory-hungry
+Perl applications like the PDL don't work well with Perl's malloc.
+Finally, other applications than Perl (such as mod_perl) tend to prefer
+the system malloc.  Such platforms include Alpha and 64-bit HPPA,
+MIPS, PPC, and Sparc.
+
+=head2 AIX Dynaloading
+
+The AIX dynaloading now uses in AIX releases 4.3 and newer the native
+dlopen interface of AIX instead of the old emulated interface.  This
+change will probably break backward compatibility with compiled
+modules.  The change was made to make Perl more compliant with other
+applications like mod_perl which are using the AIX native interface.
+
+=head2 Attributes for C<my> variables now handled at run-time
+
+The C<my EXPR : ATTRS> syntax now applies variable attributes at
+run-time.  (Subroutine and C<our> variables still get attributes applied
+at compile-time.)  See L<attributes> for additional details.  In particular,
+however, this allows variable attributes to be useful for C<tie> interfaces,
+which was a deficiency of earlier releases.  Note that the new semantics
+doesn't work with the Attribute::Handlers module (as of version 0.76).
+
+=head2 Socket Extension Dynamic in VMS
+
+The Socket extension is now dynamically loaded instead of being
+statically built in.  This may or may not be a problem with ancient
+TCP/IP stacks of VMS: we do not know since we weren't able to test
+Perl in such configurations.
+
+=head2 IEEE-format Floating Point Default on OpenVMS Alpha
+
+Perl now uses IEEE format (T_FLOAT) as the default internal floating
+point format on OpenVMS Alpha, potentially breaking binary compatibility
+with external libraries or existing data.  G_FLOAT is still available as
+a configuration option.  The default on VAX (D_FLOAT) has not changed.
+
+=head2 New Unicode Semantics (no more C<use utf8>, almost)
+
+Previously in Perl 5.6 to use Unicode one would say "use utf8" and
+then the operations (like string concatenation) were Unicode-aware
+in that lexical scope.
+
+This was found to be an inconvenient interface, and in Perl 5.8 the
+Unicode model has completely changed: now the "Unicodeness" is bound
+to the data itself, and for most of the time "use utf8" is not needed
+at all.  The only remaining use of "use utf8" is when the Perl script
+itself has been written in the UTF-8 encoding of Unicode.  (UTF-8 has
+not been made the default since there are many Perl scripts out there
+that are using various national eight-bit character sets, which would
+be illegal in UTF-8.)
+
+See L<perluniintro> for the explanation of the current model,
+and L<utf8> for the current use of the utf8 pragma.
+
+=head2 New Unicode Properties
+
+Unicode I<scripts> are now supported. Scripts are similar to (and superior
+to) Unicode I<blocks>. The difference between scripts and blocks is that
+scripts are the glyphs used by a language or a group of languages, while
+the blocks are more artificial groupings of (mostly) 256 characters based
+on the Unicode numbering.
+
+In general, scripts are more inclusive, but not universally so. For
+example, while the script C<Latin> includes all the Latin characters and
+their various diacritic-adorned versions, it does not include the various
+punctuation or digits (since they are not solely C<Latin>).
+
+A number of other properties are now supported, including C<\p{L&}>,
+C<\p{Any}> C<\p{Assigned}>, C<\p{Unassigned}>, C<\p{Blank}> [561] and
+C<\p{SpacePerl}> [561] (along with their C<\P{...}> versions, of course).
+See L<perlunicode> for details, and more additions.
+
+The C<In> or C<Is> prefix to names used with the C<\p{...}> and C<\P{...}>
+are now almost always optional. The only exception is that a C<In> prefix
+is required to signify a Unicode block when a block name conflicts with a
+script name. For example, C<\p{Tibetan}> refers to the script, while
+C<\p{InTibetan}> refers to the block. When there is no name conflict, you
+can omit the C<In> from the block name (e.g. C<\p{BraillePatterns}>), but
+to be safe, it's probably best to always use the C<In>).
+
+=head2 REF(...) Instead Of SCALAR(...)
+
+A reference to a reference now stringifies as "REF(0x81485ec)" instead
+of "SCALAR(0x81485ec)" in order to be more consistent with the return
+value of ref().
+
+=head2 pack/unpack D/F recycled
+
+The undocumented pack/unpack template letters D/F have been recycled
+for better use: now they stand for long double (if supported by the
+platform) and NV (Perl internal floating point type).  (They used
+to be aliases for d/f, but you never knew that.)
+
+=head2 glob() now returns filenames in alphabetical order
+
+The list of filenames from glob() (or <...>) is now by default sorted
+alphabetically to be csh-compliant (which is what happened before
+in most Unix platforms).  (bsd_glob() does still sort platform
+natively, ASCII or EBCDIC, unless GLOB_ALPHASORT is specified.) [561]
+
+=head2 Deprecations
+
+=over 4
+
+=item *
+
+The semantics of bless(REF, REF) were unclear and until someone proves
+it to make some sense, it is forbidden.
+
+=item *
+
+The obsolete chat2 library that should never have been allowed
+to escape the laboratory has been decommissioned.
+
+=item *
+
+Using chdir("") or chdir(undef) instead of explicit chdir() is
+doubtful.  A failure (think chdir(some_function()) can lead into
+unintended chdir() to the home directory, therefore this behaviour
+is deprecated.
+
+=item *
+
+The builtin dump() function has probably outlived most of its
+usefulness.  The core-dumping functionality will remain in future
+available as an explicit call to C<CORE::dump()>, but in future
+releases the behaviour of an unqualified C<dump()> call may change.
+
+=item *
+
+The very dusty examples in the eg/ directory have been removed.
+Suggestions for new shiny examples welcome but the main issue is that
+the examples need to be documented, tested and (most importantly)
+maintained.
+
+=item *
+
+The (bogus) escape sequences \8 and \9 now give an optional warning
+("Unrecognized escape passed through").  There is no need to \-escape
+any C<\w> character.
+
+=item *
+
+The *glob{FILEHANDLE} is deprecated, use *glob{IO} instead.
+
+=item *
+
+The C<package;> syntax (C<package> without an argument) has been
+deprecated.  Its semantics were never that clear and its
+implementation even less so.  If you have used that feature to
+disallow all but fully qualified variables, C<use strict;> instead.
+
+=item *
+
+The unimplemented POSIX regex features [[.cc.]] and [[=c=]] are still
+recognised but now cause fatal errors.  The previous behaviour of
+ignoring them by default and warning if requested was unacceptable
+since it, in a way, falsely promised that the features could be used.
+
+=item *
+
+In future releases, non-PerlIO aware XS modules may become completely
+unsupported.  Since PerlIO is a drop-in replacement for stdio at the
+source code level, this shouldn't be that drastic a change.
+
+=item *
+
+Previous versions of perl and some readings of some sections of Camel
+III implied that the C<:raw> "discipline" was the inverse of C<:crlf>.
+Turning off "clrfness" is no longer enough to make a stream truly
+binary. So the PerlIO C<:raw> layer (or "discipline", to use the Camel
+book's older terminology) is now formally defined as being equivalent
+to binmode(FH) - which is in turn defined as doing whatever is
+necessary to pass each byte as-is without any translation.  In
+particular binmode(FH) - and hence C<:raw> - will now turn off both
+CRLF and UTF-8 translation and remove other layers (e.g. :encoding())
+which would modify byte stream.
+
+=item *
+
+The current user-visible implementation of pseudo-hashes (the weird
+use of the first array element) is deprecated starting from Perl 5.8.0
+and will be removed in Perl 5.10.0, and the feature will be
+implemented differently.  Not only is the current interface rather
+ugly, but the current implementation slows down normal array and hash
+use quite noticeably. The C<fields> pragma interface will remain
+available.  The I<restricted hashes> interface is expected to
+be the replacement interface (see L<Hash::Util>).  If your existing
+programs depends on the underlying implementation, consider using
+L<Class::PseudoHash> from CPAN.
+
+=item *
+
+The syntaxes C<< @a->[...] >> and  C<< %h->{...} >> have now been deprecated.
+
+=item *
+
+After years of trying, suidperl is considered to be too complex to
+ever be considered truly secure.  The suidperl functionality is likely
+to be removed in a future release.
+
+=item *
+
+The 5.005 threads model (module C<Thread>) is deprecated and expected
+to be removed in Perl 5.10.  Multithreaded code should be migrated to
+the new ithreads model (see L<threads>, L<threads::shared> and
+L<perlthrtut>).
+
+=item *
+
+The long deprecated uppercase aliases for the string comparison
+operators (EQ, NE, LT, LE, GE, GT) have now been removed.
+
+=item *
+
+The tr///C and tr///U features have been removed and will not return;
+the interface was a mistake.  Sorry about that.  For similar
+functionality, see pack('U0', ...) and pack('C0', ...). [561]
+
+=item *
+
+Earlier Perls treated "sub foo (@bar)" as equivalent to "sub foo (@)".
+The prototypes are now checked better at compile-time for invalid
+syntax.  An optional warning is generated ("Illegal character in
+prototype...")  but this may be upgraded to a fatal error in a future
+release.
+
+=item *
+
+The C<exec LIST> and C<system LIST> operations now produce warnings on
+tainted data and in some future release they will produce fatal errors.
+
+=item *
+
+The existing behaviour when localising tied arrays and hashes is wrong,
+and will be changed in a future release, so do not rely on the existing
+behaviour. See L<"Localising Tied Arrays and Hashes Is Broken">.
+
+=back
+
+=head1 Core Enhancements
+
+=head2 Unicode Overhaul
+
+Unicode in general should be now much more usable than in Perl 5.6.0
+(or even in 5.6.1).  Unicode can be used in hash keys, Unicode in
+regular expressions should work now, Unicode in tr/// should work now,
+Unicode in I/O should work now.  See L<perluniintro> for introduction
+and L<perlunicode> for details.
+
+=over 4
+
+=item *
+
+The Unicode Character Database coming with Perl has been upgraded
+to Unicode 3.2.0.  For more information, see http://www.unicode.org/ .
+[561+] (5.6.1 has UCD 3.0.1.)
+
+=item *
+
+For developers interested in enhancing Perl's Unicode capabilities:
+almost all the UCD files are included with the Perl distribution in
+the F<lib/unicore> subdirectory.  The most notable omission, for space
+considerations, is the Unihan database.
+
+=item *
+
+The properties \p{Blank} and \p{SpacePerl} have been added. "Blank" is like
+C isblank(), that is, it contains only "horizontal whitespace" (the space
+character is, the newline isn't), and the "SpacePerl" is the Unicode
+equivalent of C<\s> (\p{Space} isn't, since that includes the vertical
+tabulator character, whereas C<\s> doesn't.)
+
+See "New Unicode Properties" earlier in this document for additional
+information on changes with Unicode properties.
+
+=back
+
+=head2 PerlIO is Now The Default
+
+=over 4
+
+=item *
+
+IO is now by default done via PerlIO rather than system's "stdio".
+PerlIO allows "layers" to be "pushed" onto a file handle to alter the
+handle's behaviour.  Layers can be specified at open time via 3-arg
+form of open:
+
+   open($fh,'>:crlf :utf8', $path) || ...
+
+or on already opened handles via extended C<binmode>:
+
+   binmode($fh,':encoding(iso-8859-7)');
+
+The built-in layers are: unix (low level read/write), stdio (as in
+previous Perls), perlio (re-implementation of stdio buffering in a
+portable manner), crlf (does CRLF <=> "\n" translation as on Win32,
+but available on any platform).  A mmap layer may be available if
+platform supports it (mostly Unixes).
+
+Layers to be applied by default may be specified via the 'open' pragma.
+
+See L</"Installation and Configuration Improvements"> for the effects
+of PerlIO on your architecture name.
+
+=item *
+
+If your platform supports fork(), you can use the list form of C<open>
+for pipes.  For example:
+
+    open KID_PS, "-|", "ps", "aux" or die $!;
+
+forks the ps(1) command (without spawning a shell, as there are more
+than three arguments to open()), and reads its standard output via the
+C<KID_PS> filehandle.  See L<perlipc>.
+
+=item *
+
+File handles can be marked as accepting Perl's internal encoding of Unicode
+(UTF-8 or UTF-EBCDIC depending on platform) by a pseudo layer ":utf8" :
+
+   open($fh,">:utf8","Uni.txt");
+
+Note for EBCDIC users: the pseudo layer ":utf8" is erroneously named
+for you since it's not UTF-8 what you will be getting but instead
+UTF-EBCDIC.  See L<perlunicode>, L<utf8>, and
+http://www.unicode.org/unicode/reports/tr16/ for more information.
+In future releases this naming may change.  See L<perluniintro>
+for more information about UTF-8.
+
+=item *
+
+If your environment variables (LC_ALL, LC_CTYPE, LANG) look like you
+want to use UTF-8 (any of the variables match C</utf-?8/i>), your
+STDIN, STDOUT, STDERR handles and the default open layer (see L<open>)
+are marked as UTF-8.  (This feature, like other new features that
+combine Unicode and I/O, work only if you are using PerlIO, but that's
+the default.)
+
+Note that after this Perl really does assume that everything is UTF-8:
+for example if some input handle is not, Perl will probably very soon
+complain about the input data like this "Malformed UTF-8 ..." since
+any old eight-bit data is not legal UTF-8.
+
+Note for code authors: if you want to enable your users to use UTF-8
+as their default encoding  but in your code still have eight-bit I/O streams
+(such as images or zip files), you need to explicitly open() or binmode()
+with C<:bytes> (see L<perlfunc/open> and L<perlfunc/binmode>), or you
+can just use C<binmode(FH)> (nice for pre-5.8.0 backward compatibility).
+
+=item *
+
+File handles can translate character encodings from/to Perl's internal
+Unicode form on read/write via the ":encoding()" layer.
+
+=item *
+
+File handles can be opened to "in memory" files held in Perl scalars via:
+
+   open($fh,'>', \$variable) || ...
+
+=item *
+
+Anonymous temporary files are available without need to
+'use FileHandle' or other module via
+
+   open($fh,"+>", undef) || ...
+
+That is a literal undef, not an undefined value.
+
+=back
+
+=head2 ithreads
+
+The new interpreter threads ("ithreads" for short) implementation of
+multithreading, by Arthur Bergman, replaces the old "5.005 threads"
+implementation.  In the ithreads model any data sharing between
+threads must be explicit, as opposed to the model where data sharing
+was implicit.  See L<threads> and L<threads::shared>, and
+L<perlthrtut>.
+
+As a part of the ithreads implementation Perl will also use
+any necessary and detectable reentrant libc interfaces.
+
+=head2 Restricted Hashes
+
+A restricted hash is restricted to a certain set of keys, no keys
+outside the set can be added.  Also individual keys can be restricted
+so that the key cannot be deleted and the value cannot be changed.
+No new syntax is involved: the Hash::Util module is the interface.
+
+=head2 Safe Signals
+
+Perl used to be fragile in that signals arriving at inopportune moments
+could corrupt Perl's internal state.  Now Perl postpones handling of
+signals until it's safe (between opcodes).
+
+This change may have surprising side effects because signals no longer
+interrupt Perl instantly.  Perl will now first finish whatever it was
+doing, like finishing an internal operation (like sort()) or an
+external operation (like an I/O operation), and only then look at any
+arrived signals (and before starting the next operation).  No more corrupt
+internal state since the current operation is always finished first,
+but the signal may take more time to get heard.  Note that breaking
+out from potentially blocking operations should still work, though.
+
+=head2 Understanding of Numbers
+
+In general a lot of fixing has happened in the area of Perl's
+understanding of numbers, both integer and floating point.  Since in
+many systems the standard number parsing functions like C<strtoul()>
+and C<atof()> seem to have bugs, Perl tries to work around their
+deficiencies.  This results hopefully in more accurate numbers.
+
+Perl now tries internally to use integer values in numeric conversions
+and basic arithmetics (+ - * /) if the arguments are integers, and
+tries also to keep the results stored internally as integers.
+This change leads to often slightly faster and always less lossy
+arithmetics. (Previously Perl always preferred floating point numbers
+in its math.)
+
+=head2 Arrays now always interpolate into double-quoted strings [561]
+
+In double-quoted strings, arrays now interpolate, no matter what.  The
+behavior in earlier versions of perl 5 was that arrays would interpolate
+into strings if the array had been mentioned before the string was
+compiled, and otherwise Perl would raise a fatal compile-time error.
+In versions 5.000 through 5.003, the error was
+
+        Literal @example now requires backslash
+
+In versions 5.004_01 through 5.6.0, the error was
+
+        In string, @example now must be written as \@example
+
+The idea here was to get people into the habit of writing
+C<"fred\@example.com"> when they wanted a literal C<@> sign, just as
+they have always written C<"Give me back my \$5"> when they wanted a
+literal C<$> sign.
+
+Starting with 5.6.1, when Perl now sees an C<@> sign in a
+double-quoted string, it I<always> attempts to interpolate an array,
+regardless of whether or not the array has been used or declared
+already.  The fatal error has been downgraded to an optional warning:
+
+        Possible unintended interpolation of @example in string
+
+This warns you that C<"fred@example.com"> is going to turn into
+C<fred.com> if you don't backslash the C<@>.
+See http://perl.plover.com/at-error.html for more details
+about the history here.
+
+=head2 Miscellaneous Changes
+
+=over 4
+
+=item *
+
+AUTOLOAD is now lvaluable, meaning that you can add the :lvalue attribute
+to AUTOLOAD subroutines and you can assign to the AUTOLOAD return value.
+
+=item *
+
+The $Config{byteorder} (and corresponding BYTEORDER in config.h) was
+previously wrong in platforms if sizeof(long) was 4, but sizeof(IV)
+was 8.  The byteorder was only sizeof(long) bytes long (1234 or 4321),
+but now it is correctly sizeof(IV) bytes long, (12345678 or 87654321).
+(This problem didn't affect Windows platforms.)
+
+Also, $Config{byteorder} is now computed dynamically--this is more
+robust with "fat binaries" where an executable image contains binaries
+for more than one binary platform, and when cross-compiling.
+
+=item *
+
+C<perl -d:Module=arg,arg,arg> now works (previously one couldn't pass
+in multiple arguments.)
+
+=item *
+
+C<do> followed by a bareword now ensures that this bareword isn't
+a keyword (to avoid a bug where C<do q(foo.pl)> tried to call a
+subroutine called C<q>).  This means that for example instead of
+C<do format()> you must write C<do &format()>.
+
+=item *
+
+The builtin dump() now gives an optional warning
+C<dump() better written as CORE::dump()>,
+meaning that by default C<dump(...)> is resolved as the builtin
+dump() which dumps core and aborts, not as (possibly) user-defined
+C<sub dump>.  To call the latter, qualify the call as C<&dump(...)>.
+(The whole dump() feature is to considered deprecated, and possibly
+removed/changed in future releases.)
+
+=item *
+
+chomp() and chop() are now overridable.  Note, however, that their
+prototype (as given by C<prototype("CORE::chomp")> is undefined,
+because it cannot be expressed and therefore one cannot really write
+replacements to override these builtins.
+
+=item *
+
+END blocks are now run even if you exit/die in a BEGIN block.
+Internally, the execution of END blocks is now controlled by
+PL_exit_flags & PERL_EXIT_DESTRUCT_END. This enables the new
+behaviour for Perl embedders. This will default in 5.10. See
+L<perlembed>.
+
+=item *
+
+Formats now support zero-padded decimal fields.
+
+=item *
+
+Although "you shouldn't do that", it was possible to write code that
+depends on Perl's hashed key order (Data::Dumper does this).  The new
+algorithm "One-at-a-Time" produces a different hashed key order.
+More details are in L</"Performance Enhancements">.
+
+=item *
+
+lstat(FILEHANDLE) now gives a warning because the operation makes no sense.
+In future releases this may become a fatal error.
+
+=item *
+
+Spurious syntax errors generated in certain situations, when glob()
+caused File::Glob to be loaded for the first time, have been fixed. [561]
+
+=item *
+
+Lvalue subroutines can now return C<undef> in list context.  However,
+the lvalue subroutine feature still remains experimental.  [561+]
+
+=item *
+
+A lost warning "Can't declare ... dereference in my" has been
+restored (Perl had it earlier but it became lost in later releases.)
+
+=item *
+
+A new special regular expression variable has been introduced:
+C<$^N>, which contains the most-recently closed group (submatch).
+
+=item *
+
+C<no Module;> does not produce an error even if Module does not have an
+unimport() method.  This parallels the behavior of C<use> vis-a-vis
+C<import>. [561]
+
+=item *
+
+The numerical comparison operators return C<undef> if either operand
+is a NaN.  Previously the behaviour was unspecified.
+
+=item *
+
+C<our> can now have an experimental optional attribute C<unique> that
+affects how global variables are shared among multiple interpreters,
+see L<perlfunc/our>.
+
+=item *
+
+The following builtin functions are now overridable: each(), keys(),
+pop(), push(), shift(), splice(), unshift(). [561]
+
+=item *
+
+C<pack() / unpack()> can now group template letters with C<()> and then
+apply repetition/count modifiers on the groups.
+
+=item *
+
+C<pack() / unpack()> can now process the Perl internal numeric types:
+IVs, UVs, NVs-- and also long doubles, if supported by the platform.
+The template letters are C<j>, C<J>, C<F>, and C<D>.
+
+=item *
+
+C<pack('U0a*', ...)> can now be used to force a string to UTF-8.
+
+=item *
+
+my __PACKAGE__ $obj now works. [561]
+
+=item *
+
+POSIX::sleep() now returns the number of I<unslept> seconds
+(as the POSIX standard says), as opposed to CORE::sleep() which
+returns the number of slept seconds.
+
+=item *
+
+printf() and sprintf() now support parameter reordering using the
+C<%\d+\$> and C<*\d+\$> syntaxes.  For example
+
+    printf "%2\$s %1\$s\n", "foo", "bar";
+
+will print "bar foo\n".  This feature helps in writing
+internationalised software, and in general when the order
+of the parameters can vary.
+
+=item *
+
+The (\&) prototype now works properly. [561]
+
+=item *
+
+prototype(\[$@%&]) is now available to implicitly create references
+(useful for example if you want to emulate the tie() interface).
+
+=item *
+
+A new command-line option, C<-t> is available.  It is the
+little brother of C<-T>: instead of dying on taint violations,
+lexical warnings are given.  B<This is only meant as a temporary
+debugging aid while securing the code of old legacy applications.
+This is not a substitute for -T.>
+
+=item *
+
+In other taint news, the C<exec LIST> and C<system LIST> have now been
+considered too risky (think C<exec @ARGV>: it can start any program
+with any arguments), and now the said forms cause a warning under
+lexical warnings.  You should carefully launder the arguments to
+guarantee their validity.  In future releases of Perl the forms will
+become fatal errors so consider starting laundering now.
+
+=item *
+
+Tied hash interfaces are now required to have the EXISTS and DELETE
+methods (either own or inherited).
+
+=item *
+
+If tr/// is just counting characters, it doesn't attempt to
+modify its target.
+
+=item *
+
+untie() will now call an UNTIE() hook if it exists.  See L<perltie>
+for details. [561]
+
+=item *
+
+L<perlfunc/utime> now supports C<utime undef, undef, @files> to change the
+file timestamps to the current time.
+
+=item *
+
+The rules for allowing underscores (underbars) in numeric constants
+have been relaxed and simplified: now you can have an underscore
+simply B<between digits>.
+
+=item *
+
+Rather than relying on C's argv[0] (which may not contain a full pathname)
+where possible $^X is now set by asking the operating system.
+(eg by reading F</proc/self/exe> on Linux, F</proc/curproc/file> on FreeBSD)
+
+=item *
+
+A new variable, C<${^TAINT}>, indicates whether taint mode is enabled.
+
+=item *
+
+You can now override the readline() builtin, and this overrides also
+the <FILEHANDLE> angle bracket operator.
+
+=item *
+
+The command-line options -s and -F are now recognized on the shebang
+(#!) line.
+
+=item *
+
+Use of the C</c> match modifier without an accompanying C</g> modifier
+elicits a new warning: C<Use of /c modifier is meaningless without /g>.
+
+Use of C</c> in substitutions, even with C</g>, elicits
+C<Use of /c modifier is meaningless in s///>.
+
+Use of C</g> with C<split> elicits C<Use of /g modifier is meaningless
+in split>.
+
+=item *
+
+Support for the C<CLONE> special subroutine had been added.
+With ithreads, when a new thread is created, all Perl data is cloned,
+however non-Perl data cannot be cloned automatically.  In C<CLONE> you
+can do whatever you need to do, like for example handle the cloning of
+non-Perl data, if necessary.  C<CLONE> will be executed once for every
+package that has it defined or inherited.  It will be called in the
+context of the new thread, so all modifications are made in the new area.
+
+See L<perlmod>
+
+=back
+
+=head1 Modules and Pragmata
+
+=head2 New Modules and Pragmata
+
+=over 4
+
+=item *
+
+C<Attribute::Handlers>, originally by Damian Conway and now maintained
+by Arthur Bergman, allows a class to define attribute handlers.
+
+    package MyPack;
+    use Attribute::Handlers;
+    sub Wolf :ATTR(SCALAR) { print "howl!\n" }
+
+    # later, in some package using or inheriting from MyPack...
+
+    my MyPack $Fluffy : Wolf; # the attribute handler Wolf will be called
+
+Both variables and routines can have attribute handlers.  Handlers can
+be specific to type (SCALAR, ARRAY, HASH, or CODE), or specific to the
+exact compilation phase (BEGIN, CHECK, INIT, or END).
+See L<Attribute::Handlers>.
+
+=item *
+
+C<B::Concise>, by Stephen McCamant, is a new compiler backend for
+walking the Perl syntax tree, printing concise info about ops.
+The output is highly customisable.  See L<B::Concise>. [561+]
+
+=item *
+
+The new bignum, bigint, and bigrat pragmas, by Tels, implement
+transparent bignum support (using the Math::BigInt, Math::BigFloat,
+and Math::BigRat backends).
+
+=item *
+
+C<Class::ISA>, by Sean Burke, is a module for reporting the search
+path for a class's ISA tree.  See L<Class::ISA>.
+
+=item *
+
+C<Cwd> now has a split personality: if possible, an XS extension is
+used, (this will hopefully be faster, more secure, and more robust)
+but if not possible, the familiar Perl implementation is used.
+
+=item *
+
+C<Devel::PPPort>, originally by Kenneth Albanowski and now
+maintained by Paul Marquess, has been added.  It is primarily used
+by C<h2xs> to enhance portability of XS modules between different
+versions of Perl.  See L<Devel::PPPort>.
+
+=item *
+
+C<Digest>, frontend module for calculating digests (checksums), from
+Gisle Aas, has been added.  See L<Digest>.
+
+=item *
+
+C<Digest::MD5> for calculating MD5 digests (checksums) as defined in
+RFC 1321, from Gisle Aas, has been added.  See L<Digest::MD5>.
+
+    use Digest::MD5 'md5_hex';
+
+    $digest = md5_hex("Thirsty Camel");
+
+    print $digest, "\n"; # 01d19d9d2045e005c3f1b80e8b164de1
+
+NOTE: the C<MD5> backward compatibility module is deliberately not
+included since its further use is discouraged.
+
+See also L<PerlIO::via::QuotedPrint>.
+
+=item *
+
+C<Encode>, originally by Nick Ing-Simmons and now maintained by Dan
+Kogai, provides a mechanism to translate between different character
+encodings.  Support for Unicode, ISO-8859-1, and ASCII are compiled in
+to the module.  Several other encodings (like the rest of the
+ISO-8859, CP*/Win*, Mac, KOI8-R, three variants EBCDIC, Chinese,
+Japanese, and Korean encodings) are included and can be loaded at
+runtime.  (For space considerations, the largest Chinese encodings
+have been separated into their own CPAN module, Encode::HanExtra,
+which Encode will use if available).  See L<Encode>.
+
+Any encoding supported by Encode module is also available to the
+":encoding()" layer if PerlIO is used.
+
+=item *
+
+C<Hash::Util> is the interface to the new I<restricted hashes>
+feature.  (Implemented by Jeffrey Friedl, Nick Ing-Simmons, and
+Michael Schwern.)  See L<Hash::Util>.
+
+=item *
+
+C<I18N::Langinfo> can be used to query locale information.
+See L<I18N::Langinfo>.
+
+=item *
+
+C<I18N::LangTags>, by Sean Burke, has functions for dealing with
+RFC3066-style language tags.  See L<I18N::LangTags>.
+
+=item *
+
+C<ExtUtils::Constant>, by Nicholas Clark, is a new tool for extension
+writers for generating XS code to import C header constants.
+See L<ExtUtils::Constant>.
+
+=item *
+
+C<Filter::Simple>, by Damian Conway, is an easy-to-use frontend to
+Filter::Util::Call.  See L<Filter::Simple>.
+
+    # in MyFilter.pm:
+
+    package MyFilter;
+
+    use Filter::Simple sub {
+        while (my ($from, $to) = splice @_, 0, 2) {
+                s/$from/$to/g;
+        }
+    };
+
+    1;
+
+    # in user's code:
+
+    use MyFilter qr/red/ => 'green';
+
+    print "red\n";   # this code is filtered, will print "green\n"
+    print "bored\n"; # this code is filtered, will print "bogreen\n"
+
+    no MyFilter;
+
+    print "red\n";   # this code is not filtered, will print "red\n"
+
+=item *
+
+C<File::Temp>, by Tim Jenness, allows one to create temporary files
+and directories in an easy, portable, and secure way.  See L<File::Temp>.
+[561+]
+
+=item *
+
+C<Filter::Util::Call>, by Paul Marquess, provides you with the
+framework to write I<source filters> in Perl.  For most uses, the
+frontend Filter::Simple is to be preferred.  See L<Filter::Util::Call>.
+
+=item *
+
+C<if>, by Ilya Zakharevich, is a new pragma for conditional inclusion
+of modules.
+
+=item *
+
+L<libnet>, by Graham Barr, is a collection of perl5 modules related
+to network programming.  See L<Net::FTP>, L<Net::NNTP>, L<Net::Ping>
+(not part of libnet, but related), L<Net::POP3>, L<Net::SMTP>,
+and L<Net::Time>.
+
+Perl installation leaves libnet unconfigured; use F<libnetcfg>
+to configure it.
+
+=item *
+
+C<List::Util>, by Graham Barr, is a selection of general-utility
+list subroutines, such as sum(), min(), first(), and shuffle().
+See L<List::Util>.
+
+=item *
+
+C<Locale::Constants>, C<Locale::Country>, C<Locale::Currency>
+C<Locale::Language>, and L<Locale::Script>, by Neil Bowers, have
+been added.  They provide the codes for various locale standards, such
+as "fr" for France, "usd" for US Dollar, and "ja" for Japanese.
+
+    use Locale::Country;
+
+    $country = code2country('jp');               # $country gets 'Japan'
+    $code    = country2code('Norway');           # $code gets 'no'
+
+See L<Locale::Constants>, L<Locale::Country>, L<Locale::Currency>,
+and L<Locale::Language>.
+
+=item *
+
+C<Locale::Maketext>, by Sean Burke, is a localization framework.  See
+L<Locale::Maketext>, and L<Locale::Maketext::TPJ13>.  The latter is an
+article about software localization, originally published in The Perl
+Journal #13, and republished here with kind permission.
+
+=item *
+
+C<Math::BigRat> for big rational numbers, to accompany Math::BigInt and
+Math::BigFloat, from Tels.  See L<Math::BigRat>.
+
+=item *
+
+C<Memoize> can make your functions faster by trading space for time,
+from Mark-Jason Dominus.  See L<Memoize>.
+
+=item *
+
+C<MIME::Base64>, by Gisle Aas, allows you to encode data in base64,
+as defined in RFC 2045 - I<MIME (Multipurpose Internet Mail
+Extensions)>.
+
+    use MIME::Base64;
+
+    $encoded = encode_base64('Aladdin:open sesame');
+    $decoded = decode_base64($encoded);
+
+    print $encoded, "\n"; # "QWxhZGRpbjpvcGVuIHNlc2FtZQ=="
+
+See L<MIME::Base64>.
+
+=item *
+
+C<MIME::QuotedPrint>, by Gisle Aas, allows you to encode data
+in quoted-printable encoding, as defined in RFC 2045 - I<MIME
+(Multipurpose Internet Mail Extensions)>.
+
+    use MIME::QuotedPrint;
+
+    $encoded = encode_qp("\xDE\xAD\xBE\xEF");
+    $decoded = decode_qp($encoded);
+
+    print $encoded, "\n"; # "=DE=AD=BE=EF\n"
+    print $decoded, "\n"; # "\xDE\xAD\xBE\xEF\n"
+
+See also L<PerlIO::via::QuotedPrint>.
+
+=item *
+
+C<NEXT>, by Damian Conway, is a pseudo-class for method redispatch.
+See L<NEXT>.
+
+=item *
+
+C<open> is a new pragma for setting the default I/O layers
+for open().
+
+=item *
+
+C<PerlIO::scalar>, by Nick Ing-Simmons, provides the implementation
+of IO to "in memory" Perl scalars as discussed above.  It also serves
+as an example of a loadable PerlIO layer.  Other future possibilities
+include PerlIO::Array and PerlIO::Code.  See L<PerlIO::scalar>.
+
+=item *
+
+C<PerlIO::via>, by Nick Ing-Simmons, acts as a PerlIO layer and wraps
+PerlIO layer functionality provided by a class (typically implemented
+in Perl code).
+
+=item *
+
+C<PerlIO::via::QuotedPrint>, by Elizabeth Mattijsen, is an example
+of a C<PerlIO::via> class:
+
+    use PerlIO::via::QuotedPrint;
+    open($fh,">:via(QuotedPrint)",$path);
+
+This will automatically convert everything output to C<$fh> to
+Quoted-Printable.  See L<PerlIO::via> and L<PerlIO::via::QuotedPrint>.
+
+=item *
+
+C<Pod::ParseLink>, by Russ Allbery, has been added,
+to parse LZ<><> links in pods as described in the new
+perlpodspec.
+
+=item *
+
+C<Pod::Text::Overstrike>, by Joe Smith, has been added.
+It converts POD data to formatted overstrike text.
+See L<Pod::Text::Overstrike>. [561+]
+
+=item *
+
+C<Scalar::Util> is a selection of general-utility scalar subroutines,
+such as blessed(), reftype(), and tainted().  See L<Scalar::Util>.
+
+=item *
+
+C<sort> is a new pragma for controlling the behaviour of sort().
+
+=item *
+
+C<Storable> gives persistence to Perl data structures by allowing the
+storage and retrieval of Perl data to and from files in a fast and
+compact binary format.  Because in effect Storable does serialisation
+of Perl data structures, with it you can also clone deep, hierarchical
+datastructures.  Storable was originally created by Raphael Manfredi,
+but it is now maintained by Abhijit Menon-Sen.  Storable has been
+enhanced to understand the two new hash features, Unicode keys and
+restricted hashes.  See L<Storable>.
+
+=item *
+
+C<Switch>, by Damian Conway, has been added.  Just by saying
+
+    use Switch;
+
+you have C<switch> and C<case> available in Perl.
+
+    use Switch;
+
+    switch ($val) {
+
+		case 1		{ print "number 1" }
+		case "a"	{ print "string a" }
+		case [1..10,42]	{ print "number in list" }
+		case (@array)	{ print "number in list" }
+		case /\w+/	{ print "pattern" }
+		case qr/\w+/	{ print "pattern" }
+		case (%hash)	{ print "entry in hash" }
+		case (\%hash)	{ print "entry in hash" }
+		case (\&sub)	{ print "arg to subroutine" }
+		else		{ print "previous case not true" }
+    }
+
+See L<Switch>.
+
+=item *
+
+C<Test::More>, by Michael Schwern, is yet another framework for writing
+test scripts, more extensive than Test::Simple.  See L<Test::More>.
+
+=item *
+
+C<Test::Simple>, by Michael Schwern, has basic utilities for writing
+tests.   See L<Test::Simple>.
+
+=item *
+
+C<Text::Balanced>, by Damian Conway, has been added, for extracting
+delimited text sequences from strings.
+
+    use Text::Balanced 'extract_delimited';
+
+    ($a, $b) = extract_delimited("'never say never', he never said", "'", '');
+
+$a will be "'never say never'", $b will be ', he never said'.
+
+In addition to extract_delimited(), there are also extract_bracketed(),
+extract_quotelike(), extract_codeblock(), extract_variable(),
+extract_tagged(), extract_multiple(), gen_delimited_pat(), and
+gen_extract_tagged().  With these, you can implement rather advanced
+parsing algorithms.  See L<Text::Balanced>.
+
+=item *
+
+C<threads>, by Arthur Bergman, is an interface to interpreter threads.
+Interpreter threads (ithreads) is the new thread model introduced in
+Perl 5.6 but only available as an internal interface for extension
+writers (and for Win32 Perl for C<fork()> emulation).  See L<threads>,
+L<threads::shared>, and L<perlthrtut>.
+
+=item *
+
+C<threads::shared>, by Arthur Bergman, allows data sharing for
+interpreter threads.  See L<threads::shared>.
+
+=item *
+
+C<Tie::File>, by Mark-Jason Dominus, associates a Perl array with the
+lines of a file.  See L<Tie::File>.
+
+=item *
+
+C<Tie::Memoize>, by Ilya Zakharevich, provides on-demand loaded hashes.
+See L<Tie::Memoize>.
+
+=item *
+
+C<Tie::RefHash::Nestable>, by Edward Avis, allows storing hash
+references (unlike the standard Tie::RefHash)  The module is contained
+within Tie::RefHash.  See L<Tie::RefHash>.
+
+=item *
+
+C<Time::HiRes>, by Douglas E. Wegscheid, provides high resolution
+timing (ualarm, usleep, and gettimeofday).  See L<Time::HiRes>.
+
+=item *
+
+C<Unicode::UCD> offers a querying interface to the Unicode Character
+Database.  See L<Unicode::UCD>.
+
+=item *
+
+C<Unicode::Collate>, by SADAHIRO Tomoyuki, implements the UCA
+(Unicode Collation Algorithm) for sorting Unicode strings.
+See L<Unicode::Collate>.
+
+=item *
+
+C<Unicode::Normalize>, by SADAHIRO Tomoyuki, implements the various
+Unicode normalization forms.  See L<Unicode::Normalize>.
+
+=item *
+
+C<XS::APItest>, by Tim Jenness, is a test extension that exercises XS
+APIs.  Currently only C<printf()> is tested: how to output various
+basic data types from XS.
+
+=item *
+
+C<XS::Typemap>, by Tim Jenness, is a test extension that exercises
+XS typemaps.  Nothing gets installed, but the code is worth studying
+for extension writers.
+
+=back
+
+=head2 Updated And Improved Modules and Pragmata
+
+=over 4
+
+=item *
+
+The following independently supported modules have been updated to the
+newest versions from CPAN: CGI, CPAN, DB_File, File::Spec, File::Temp,
+Getopt::Long, Math::BigFloat, Math::BigInt, the podlators bundle
+(Pod::Man, Pod::Text), Pod::LaTeX [561+], Pod::Parser, Storable,
+Term::ANSIColor, Test, Text-Tabs+Wrap.
+
+=item *
+
+attributes::reftype() now works on tied arguments.
+
+=item *
+
+AutoLoader can now be disabled with C<no AutoLoader;>.
+
+=item *
+
+B::Deparse has been significantly enhanced by Robin Houston.  It can
+now deparse almost all of the standard test suite (so that the tests
+still succeed).  There is a make target "test.deparse" for trying this
+out.
+
+=item *
+
+Carp now has better interface documentation, and the @CARP_NOT
+interface has been added to get optional control over where errors
+are reported independently of @ISA, by Ben Tilly.
+
+=item *
+
+Class::Struct can now define the classes in compile time.
+
+=item *
+
+Class::Struct now assigns the array/hash element if the accessor
+is called with an array/hash element as the B<sole> argument.
+
+=item *
+
+The return value of Cwd::fastcwd() is now tainted.
+
+=item *
+
+Data::Dumper now has an option to sort hashes.
+
+=item *
+
+Data::Dumper now has an option to dump code references
+using B::Deparse.
+
+=item *
+
+DB_File now supports newer Berkeley DB versions, among
+other improvements.
+
+=item *
+
+Devel::Peek now has an interface for the Perl memory statistics
+(this works only if you are using perl's malloc, and if you have
+compiled with debugging).
+
+=item *
+
+The English module can now be used without the infamous performance
+hit by saying
+
+	use English '-no_match_vars';
+
+(Assuming, of course, that you don't need the troublesome variables
+C<$`>, C<$&>, or C<$'>.)  Also, introduced C<@LAST_MATCH_START> and
+C<@LAST_MATCH_END> English aliases for C<@-> and C<@+>.
+
+=item *
+
+ExtUtils::MakeMaker has been significantly cleaned up and fixed.
+The enhanced version has also been backported to earlier releases
+of Perl and submitted to CPAN so that the earlier releases can
+enjoy the fixes.
+
+=item *
+
+The arguments of WriteMakefile() in Makefile.PL are now checked
+for sanity much more carefully than before.  This may cause new
+warnings when modules are being installed.  See L<ExtUtils::MakeMaker>
+for more details.
+
+=item *
+
+ExtUtils::MakeMaker now uses File::Spec internally, which hopefully
+leads to better portability.
+
+=item *
+
+Fcntl, Socket, and Sys::Syslog have been rewritten by Nicholas Clark
+to use the new-style constant dispatch section (see L<ExtUtils::Constant>).
+This means that they will be more robust and hopefully faster.
+
+=item *
+
+File::Find now chdir()s correctly when chasing symbolic links. [561]
+
+=item *
+
+File::Find now has pre- and post-processing callbacks.  It also
+correctly changes directories when chasing symbolic links.  Callbacks
+(naughtily) exiting with "next;" instead of "return;" now work.
+
+=item *
+
+File::Find is now (again) reentrant.  It also has been made
+more portable.
+
+=item *
+
+The warnings issued by File::Find now belong to their own category.
+You can enable/disable them with C<use/no warnings 'File::Find';>.
+
+=item *
+
+File::Glob::glob() has been renamed to File::Glob::bsd_glob()
+because the name clashes with the builtin glob().  The older
+name is still available for compatibility, but is deprecated. [561]
+
+=item *
+
+File::Glob now supports C<GLOB_LIMIT> constant to limit the size of
+the returned list of filenames.
+
+=item *
+
+IPC::Open3 now allows the use of numeric file descriptors.
+
+=item *
+
+IO::Socket now has an atmark() method, which returns true if the socket
+is positioned at the out-of-band mark.  The method is also exportable
+as a sockatmark() function.
+
+=item *
+
+IO::Socket::INET failed to open the specified port if the service name
+was not known.  It now correctly uses the supplied port number as is. [561]
+
+=item *
+
+IO::Socket::INET has support for the ReusePort option (if your
+platform supports it).  The Reuse option now has an alias, ReuseAddr.
+For clarity, you may want to prefer ReuseAddr.
+
+=item *
+
+IO::Socket::INET now supports a value of zero for C<LocalPort>
+(usually meaning that the operating system will make one up.)
+
+=item *
+
+'use lib' now works identically to @INC.  Removing directories
+with 'no lib' now works.
+
+=item *
+
+Math::BigFloat and Math::BigInt have undergone a full rewrite by Tels.
+They are now magnitudes faster, and they support various bignum
+libraries such as GMP and PARI as their backends.
+
+=item *
+
+Math::Complex handles inf, NaN etc., better.
+
+=item *
+
+Net::Ping has been considerably enhanced by Rob Brown: multihoming is
+now supported, Win32 functionality is better, there is now time
+measuring functionality (optionally high-resolution using
+Time::HiRes), and there is now "external" protocol which uses
+Net::Ping::External module which runs your external ping utility and
+parses the output.  A version of Net::Ping::External is available in
+CPAN.
+
+Note that some of the Net::Ping tests are disabled when running
+under the Perl distribution since one cannot assume one or more
+of the following: enabled echo port at localhost, full Internet
+connectivity, or sympathetic firewalls.  You can set the environment
+variable PERL_TEST_Net_Ping to "1" (one) before running the Perl test
+suite to enable all the Net::Ping tests.
+
+=item *
+
+POSIX::sigaction() is now much more flexible and robust.
+You can now install coderef handlers, 'DEFAULT', and 'IGNORE'
+handlers, installing new handlers was not atomic.
+
+=item *
+
+In Safe, C<%INC> is now localised in a Safe compartment so that
+use/require work.
+
+=item *
+
+In SDBM_File on DOSish platforms, some keys went missing because of
+lack of support for files with "holes".  A workaround for the problem
+has been added.
+
+=item *
+
+In Search::Dict one can now have a pre-processing hook for the
+lines being searched.
+
+=item *
+
+The Shell module now has an OO interface.
+
+=item *
+
+In Sys::Syslog there is now a failover mechanism that will go
+through alternative connection mechanisms until the message
+is successfully logged.
+
+=item *
+
+The Test module has been significantly enhanced.
+
+=item *
+
+Time::Local::timelocal() does not handle fractional seconds anymore.
+The rationale is that neither does localtime(), and timelocal() and
+localtime() are supposed to be inverses of each other.
+
+=item *
+
+The vars pragma now supports declaring fully qualified variables.
+(Something that C<our()> does not and will not support.)
+
+=item *
+
+The C<utf8::> name space (as in the pragma) provides various
+Perl-callable functions to provide low level access to Perl's
+internal Unicode representation.  At the moment only length()
+has been implemented.
+
+=back
+
+=head1 Utility Changes
+
+=over 4
+
+=item *
+
+Emacs perl mode (emacs/cperl-mode.el) has been updated to version
+4.31.
+
+=item *
+
+F<emacs/e2ctags.pl> is now much faster.
+
+=item *
+
+C<enc2xs> is a tool for people adding their own encodings to the
+Encode module.
+
+=item *
+
+C<h2ph> now supports C trigraphs.
+
+=item *
+
+C<h2xs> now produces a template README.
+
+=item *
+
+C<h2xs> now uses C<Devel::PPPort> for better portability between
+different versions of Perl.
+
+=item *
+
+C<h2xs> uses the new L<ExtUtils::Constant|ExtUtils::Constant> module
+which will affect newly created extensions that define constants.
+Since the new code is more correct (if you have two constants where the
+first one is a prefix of the second one, the first constant B<never>
+got defined), less lossy (it uses integers for integer constant,
+as opposed to the old code that used floating point numbers even for
+integer constants), and slightly faster, you might want to consider
+regenerating your extension code (the new scheme makes regenerating
+easy).  L<h2xs> now also supports C trigraphs.
+
+=item *
+
+C<libnetcfg> has been added to configure libnet.
+
+=item *
+
+C<perlbug> is now much more robust.  It also sends the bug report to
+perl.org, not perl.com.
+
+=item *
+
+C<perlcc> has been rewritten and its user interface (that is,
+command line) is much more like that of the Unix C compiler, cc.
+(The perlbc tools has been removed.  Use C<perlcc -B> instead.)
+B<Note that perlcc is still considered very experimental and
+unsupported.> [561]
+
+=item *
+
+C<perlivp> is a new Installation Verification Procedure utility
+for running any time after installing Perl.
+
+=item *
+
+C<piconv> is an implementation of the character conversion utility
+C<iconv>, demonstrating the new Encode module.
+
+=item *
+
+C<pod2html> now allows specifying a cache directory.
+
+=item *
+
+C<pod2html> now produces XHTML 1.0.
+
+=item *
+
+C<pod2html> now understands POD written using different line endings
+(PC-like CRLF versus Unix-like LF versus MacClassic-like CR).
+
+=item *
+
+C<s2p> has been completely rewritten in Perl.  (It is in fact a full
+implementation of sed in Perl: you can use the sed functionality by
+using the C<psed> utility.)
+
+=item *
+
+C<xsubpp> now understands POD documentation embedded in the *.xs
+files. [561]
+
+=item *
+
+C<xsubpp> now supports the OUT keyword.
+
+=back
+
+=head1 New Documentation
+
+=over 4
+
+=item *
+
+perl56delta details the changes between the 5.005 release and the
+5.6.0 release.
+
+=item *
+
+perlclib documents the internal replacements for standard C library
+functions.  (Interesting only for extension writers and Perl core
+hackers.) [561+]
+
+=item *
+
+perldebtut is a Perl debugging tutorial. [561+]
+
+=item *
+
+perlebcdic contains considerations for running Perl on EBCDIC
+platforms. [561+]
+
+=item *
+
+perlintro is a gentle introduction to Perl.
+
+=item *
+
+perliol documents the internals of PerlIO with layers.
+
+=item *
+
+perlmodstyle is a style guide for writing modules.
+
+=item *
+
+perlnewmod tells about writing and submitting a new module. [561+]
+
+=item *
+
+perlpacktut is a pack() tutorial.
+
+=item *
+
+perlpod has been rewritten to be clearer and to record the best
+practices gathered over the years.
+
+=item *
+
+perlpodspec is a more formal specification of the pod format,
+mainly of interest for writers of pod applications, not to
+people writing in pod.
+
+=item *
+
+perlretut is a regular expression tutorial. [561+]
+
+=item *
+
+perlrequick is a regular expressions quick-start guide.
+Yes, much quicker than perlretut. [561]
+
+=item *
+
+perltodo has been updated.
+
+=item *
+
+perltootc has been renamed as perltooc (to not to conflict
+with perltoot in filesystems restricted to "8.3" names).
+
+=item *
+
+perluniintro is an introduction to using Unicode in Perl.
+(perlunicode is more of a detailed reference and background
+information)
+
+=item *
+
+perlutil explains the command line utilities packaged with the Perl
+distribution. [561+]
+
+=back
+
+The following platform-specific documents are available before
+the installation as README.I<platform>, and after the installation
+as perlI<platform>:
+
+    perlaix perlamiga perlapollo perlbeos perlbs2000
+    perlce perlcygwin perldgux perldos perlepoc perlfreebsd perlhpux
+    perlhurd perlirix perlmachten perlmacos perlmint perlmpeix
+    perlnetware perlos2 perlos390 perlplan9 perlqnx perlsolaris
+    perltru64 perluts perlvmesa perlvms perlvos perlwin32
+
+These documents usually detail one or more of the following subjects:
+configuring, building, testing, installing, and sometimes also using
+Perl on the said platform.
+
+Eastern Asian Perl users are now welcomed in their own languages:
+README.jp (Japanese), README.ko (Korean), README.cn (simplified
+Chinese) and README.tw (traditional Chinese), which are written in
+normal pod but encoded in EUC-JP, EUC-KR, EUC-CN and Big5.  These
+will get installed as
+
+   perljp perlko perlcn perltw
+
+=over 4
+
+=item *
+
+The documentation for the POSIX-BC platform is called "BS2000", to avoid
+confusion with the Perl POSIX module.
+
+=item *
+
+The documentation for the WinCE platform is called perlce (README.ce
+in the source code kit), to avoid confusion with the perlwin32
+documentation on 8.3-restricted filesystems.
+
+=back
+
+=head1 Performance Enhancements
+
+=over 4
+
+=item *
+
+map() could get pathologically slow when the result list it generates
+is larger than the source list.  The performance has been improved for
+common scenarios. [561]
+
+=item *
+
+sort() is also fully reentrant, in the sense that the sort function
+can itself call sort().  This did not work reliably in previous
+releases. [561]
+
+=item *
+
+sort() has been changed to use primarily mergesort internally as
+opposed to the earlier quicksort.  For very small lists this may
+result in slightly slower sorting times, but in general the speedup
+should be at least 20%.  Additional bonuses are that the worst case
+behaviour of sort() is now better (in computer science terms it now
+runs in time O(N log N), as opposed to quicksort's Theta(N**2)
+worst-case run time behaviour), and that sort() is now stable
+(meaning that elements with identical keys will stay ordered as they
+were before the sort).  See the C<sort> pragma for information.
+
+The story in more detail: suppose you want to serve yourself a little
+slice of Pi.
+
+    @digits = ( 3,1,4,1,5,9 );
+
+A numerical sort of the digits will yield (1,1,3,4,5,9), as expected.
+Which C<1> comes first is hard to know, since one C<1> looks pretty
+much like any other.  You can regard this as totally trivial,
+or somewhat profound.  However, if you just want to sort the even
+digits ahead of the odd ones, then what will
+
+    sort { ($a % 2) <=> ($b % 2) } @digits;
+
+yield?  The only even digit, C<4>, will come first.  But how about
+the odd numbers, which all compare equal?  With the quicksort algorithm
+used to implement Perl 5.6 and earlier, the order of ties is left up
+to the sort.  So, as you add more and more digits of Pi, the order
+in which the sorted even and odd digits appear will change.
+and, for sufficiently large slices of Pi, the quicksort algorithm
+in Perl 5.8 won't return the same results even if reinvoked with the
+same input.  The justification for this rests with quicksort's
+worst case behavior.  If you run
+
+   sort { $a <=> $b } ( 1 .. $N , 1 .. $N );
+
+(something you might approximate if you wanted to merge two sorted
+arrays using sort), doubling $N doesn't just double the quicksort time,
+it I<quadruples> it.  Quicksort has a worst case run time that can
+grow like N**2, so-called I<quadratic> behaviour, and it can happen
+on patterns that may well arise in normal use.  You won't notice this
+for small arrays, but you I<will> notice it with larger arrays,
+and you may not live long enough for the sort to complete on arrays
+of a million elements.  So the 5.8 quicksort scrambles large arrays
+before sorting them, as a statistical defence against quadratic behaviour.
+But that means if you sort the same large array twice, ties may be
+broken in different ways.
+
+Because of the unpredictability of tie-breaking order, and the quadratic
+worst-case behaviour, quicksort was I<almost> replaced completely with
+a stable mergesort.  I<Stable> means that ties are broken to preserve
+the original order of appearance in the input array.  So
+
+    sort { ($a % 2) <=> ($b % 2) } (3,1,4,1,5,9);
+
+will yield (4,3,1,1,5,9), guaranteed.  The even and odd numbers
+appear in the output in the same order they appeared in the input.
+Mergesort has worst case O(N log N) behaviour, the best value
+attainable.  And, ironically, this mergesort does particularly
+well where quicksort goes quadratic:  mergesort sorts (1..$N, 1..$N)
+in O(N) time.  But quicksort was rescued at the last moment because
+it is faster than mergesort on certain inputs and platforms.
+For example, if you really I<don't> care about the order of even
+and odd digits, quicksort will run in O(N) time; it's very good
+at sorting many repetitions of a small number of distinct elements.
+The quicksort divide and conquer strategy works well on platforms
+with relatively small, very fast, caches.  Eventually, the problem gets
+whittled down to one that fits in the cache, from which point it
+benefits from the increased memory speed.
+
+Quicksort was rescued by implementing a sort pragma to control aspects
+of the sort.  The B<stable> subpragma forces stable behaviour,
+regardless of algorithm.  The B<_quicksort> and B<_mergesort>
+subpragmas are heavy-handed ways to select the underlying implementation.
+The leading C<_> is a reminder that these subpragmas may not survive
+beyond 5.8.  More appropriate mechanisms for selecting the implementation
+exist, but they wouldn't have arrived in time to save quicksort.
+
+=item *
+
+Hashes now use Bob Jenkins "One-at-a-Time" hashing key algorithm
+( http://burtleburtle.net/bob/hash/doobs.html ).  This algorithm is
+reasonably fast while producing a much better spread of values than
+the old hashing algorithm (originally by Chris Torek, later tweaked by
+Ilya Zakharevich).  Hash values output from the algorithm on a hash of
+all 3-char printable ASCII keys comes much closer to passing the
+DIEHARD random number generation tests.  According to perlbench, this
+change has not affected the overall speed of Perl.
+
+=item *
+
+unshift() should now be noticeably faster.
+
+=back
+
+=head1 Installation and Configuration Improvements
+
+=head2 Generic Improvements
+
+=over 4
+
+=item *
+
+INSTALL now explains how you can configure Perl to use 64-bit
+integers even on non-64-bit platforms.
+
+=item *
+
+Policy.sh policy change: if you are reusing a Policy.sh file
+(see INSTALL) and you use Configure -Dprefix=/foo/bar and in the old
+Policy $prefix eq $siteprefix and $prefix eq $vendorprefix, all of
+them will now be changed to the new prefix, /foo/bar.  (Previously
+only $prefix changed.)  If you do not like this new behaviour,
+specify prefix, siteprefix, and vendorprefix explicitly.
+
+=item *
+
+A new optional location for Perl libraries, otherlibdirs, is available.
+It can be used for example for vendor add-ons without disturbing Perl's
+own library directories.
+
+=item *
+
+In many platforms, the vendor-supplied 'cc' is too stripped-down to
+build Perl (basically, 'cc' doesn't do ANSI C).  If this seems
+to be the case and 'cc' does not seem to be the GNU C compiler
+'gcc', an automatic attempt is made to find and use 'gcc' instead.
+
+=item *
+
+gcc needs to closely track the operating system release to avoid
+build problems. If Configure finds that gcc was built for a different
+operating system release than is running, it now gives a clearly visible
+warning that there may be trouble ahead.
+
+=item *
+
+Since Perl 5.8 is not binary-compatible with previous releases
+of Perl, Configure no longer suggests including the 5.005
+modules in @INC.
+
+=item *
+
+Configure C<-S> can now run non-interactively. [561]
+
+=item *
+
+Configure support for pdp11-style memory models has been removed due
+to obsolescence. [561]
+
+=item *
+
+configure.gnu now works with options with whitespace in them.
+
+=item *
+
+installperl now outputs everything to STDERR.
+
+=item *
+
+Because PerlIO is now the default on most platforms, "-perlio" doesn't
+get appended to the $Config{archname} (also known as $^O) anymore.
+Instead, if you explicitly choose not to use perlio (Configure command
+line option -Uuseperlio), you will get "-stdio" appended.
+
+=item *
+
+Another change related to the architecture name is that "-64all"
+(-Duse64bitall, or "maximally 64-bit") is appended only if your
+pointers are 64 bits wide.  (To be exact, the use64bitall is ignored.)
+
+=item *
+
+In AFS installations, one can configure the root of the AFS to be
+somewhere else than the default F</afs> by using the Configure
+parameter C<-Dafsroot=/some/where/else>.
+
+=item *
+
+APPLLIB_EXP, a lesser-known configuration-time definition, has been
+documented.  It can be used to prepend site-specific directories
+to Perl's default search path (@INC); see INSTALL for information.
+
+=item *
+
+The version of Berkeley DB used when the Perl (and, presumably, the
+DB_File extension) was built is now available as
+C<@Config{qw(db_version_major db_version_minor db_version_patch)}>
+from Perl and as C<DB_VERSION_MAJOR_CFG DB_VERSION_MINOR_CFG
+DB_VERSION_PATCH_CFG> from C.
+
+=item *
+
+Building Berkeley DB3 for compatibility modes for DB, NDBM, and ODBM
+has been documented in INSTALL.
+
+=item *
+
+If you have CPAN access (either network or a local copy such as a
+CD-ROM) you can during specify extra modules to Configure to build and
+install with Perl using the -Dextras=...  option.  See INSTALL for
+more details.
+
+=item *
+
+In addition to config.over, a new override file, config.arch, is
+available.  This file is supposed to be used by hints file writers
+for architecture-wide changes (as opposed to config.over which is
+for site-wide changes).
+
+=item *
+
+If your file system supports symbolic links, you can build Perl outside
+of the source directory by
+
+	mkdir perl/build/directory
+	cd perl/build/directory
+	sh /path/to/perl/source/Configure -Dmksymlinks ...
+
+This will create in perl/build/directory a tree of symbolic links
+pointing to files in /path/to/perl/source.  The original files are left
+unaffected.  After Configure has finished, you can just say
+
+	make all test
+
+and Perl will be built and tested, all in perl/build/directory.
+[561]
+
+=item *
+
+For Perl developers, several new make targets for profiling
+and debugging have been added; see L<perlhack>.
+
+=over 8
+
+=item *
+
+Use of the F<gprof> tool to profile Perl has been documented in
+L<perlhack>.  There is a make target called "perl.gprof" for
+generating a gprofiled Perl executable.
+
+=item *
+
+If you have GCC 3, there is a make target called "perl.gcov" for
+creating a gcoved Perl executable for coverage analysis.  See
+L<perlhack>.
+
+=item *
+
+If you are on IRIX or Tru64 platforms, new profiling/debugging options
+have been added; see L<perlhack> for more information about pixie and
+Third Degree.
+
+=back
+
+=item *
+
+Guidelines of how to construct minimal Perl installations have
+been added to INSTALL.
+
+=item *
+
+The Thread extension is now not built at all under ithreads
+(C<Configure -Duseithreads>) because it wouldn't work anyway (the
+Thread extension requires being Configured with C<-Duse5005threads>).
+
+B<Note that the 5.005 threads are unsupported and deprecated: if you
+have code written for the old threads you should migrate it to the
+new ithreads model.>
+
+=item *
+
+The Gconvert macro ($Config{d_Gconvert}) used by perl for stringifying
+floating-point numbers is now more picky about using sprintf %.*g
+rules for the conversion.  Some platforms that used to use gcvt may
+now resort to the slower sprintf.
+
+=item *
+
+The obsolete method of making a special (e.g., debugging) flavor
+of perl by saying
+
+	make LIBPERL=libperld.a
+
+has been removed. Use -DDEBUGGING instead.
+
+=back
+
+=head2 New Or Improved Platforms
+
+For the list of platforms known to support Perl,
+see L<perlport/"Supported Platforms">.
+
+=over 4
+
+=item *
+
+AIX dynamic loading should be now better supported.
+
+=item *
+
+AIX should now work better with gcc, threads, and 64-bitness.  Also the
+long doubles support in AIX should be better now.  See L<perlaix>.
+
+=item *
+
+AtheOS ( http://www.atheos.cx/ ) is a new platform.
+
+=item *
+
+BeOS has been reclaimed.
+
+=item *
+
+The DG/UX platform now supports 5.005-style threads.
+See L<perldgux>.
+
+=item *
+
+The DYNIX/ptx platform (also known as dynixptx) is supported at or
+near osvers 4.5.2.
+
+=item *
+
+EBCDIC platforms (z/OS (also known as OS/390), POSIX-BC, and VM/ESA)
+have been regained.  Many test suite tests still fail and the
+co-existence of Unicode and EBCDIC isn't quite settled, but the
+situation is much better than with Perl 5.6.  See L<perlos390>,
+L<perlbs2000> (for POSIX-BC), and perlvmesa for more information.
+(B<Note:> support for VM/ESA was removed in Perl v5.18.0. The relevant
+information was in F<README.vmesa>)
+
+=item *
+
+Building perl with -Duseithreads or -Duse5005threads now works under
+HP-UX 10.20 (previously it only worked under 10.30 or later). You will
+need a thread library package installed. See README.hpux. [561]
+
+=item *
+
+Mac OS Classic is now supported in the mainstream source package
+(MacPerl has of course been available since perl 5.004 but now the
+source code bases of standard Perl and MacPerl have been synchronised)
+[561]
+
+=item *
+
+Mac OS X (or Darwin) should now be able to build Perl even on HFS+
+filesystems.  (The case-insensitivity used to confuse the Perl build
+process.)
+
+=item *
+
+NCR MP-RAS is now supported. [561]
+
+=item *
+
+All the NetBSD specific patches (except for the installation
+specific ones) have been merged back to the main distribution.
+
+=item *
+
+NetWare from Novell is now supported.  See L<perlnetware>.
+
+=item *
+
+NonStop-UX is now supported. [561]
+
+=item *
+
+NEC SUPER-UX is now supported.
+
+=item *
+
+All the OpenBSD specific patches (except for the installation
+specific ones) have been merged back to the main distribution.
+
+=item *
+
+Perl has been tested with the GNU pth userlevel thread package
+( http://www.gnu.org/software/pth/pth.html ).  All thread tests
+of Perl now work, but not without adding some yield()s to the tests,
+so while pth (and other userlevel thread implementations) can be
+considered to be "working" with Perl ithreads, keep in mind the
+possible non-preemptability of the underlying thread implementation.
+
+=item *
+
+Stratus VOS is now supported using Perl's native build method
+(Configure).  This is the recommended method to build Perl on
+VOS.  The older methods, which build miniperl, are still
+available.  See L<perlvos>. [561+]
+
+=item *
+
+The Amdahl UTS Unix mainframe platform is now supported. [561]
+
+=item *
+
+WinCE is now supported.  See L<perlce>.
+
+=item *
+
+z/OS (formerly known as OS/390, formerly known as MVS OE) now has
+support for dynamic loading.  This is not selected by default,
+however, you must specify -Dusedl in the arguments of Configure. [561]
+
+=back
+
+=head1 Selected Bug Fixes
+
+Numerous memory leaks and uninitialized memory accesses have been
+hunted down.  Most importantly, anonymous subs used to leak quite
+a bit. [561]
+
+=over 4
+
+=item *
+
+The autouse pragma didn't work for Multi::Part::Function::Names.
+
+=item *
+
+caller() could cause core dumps in certain situations.  Carp was
+sometimes affected by this problem.  In particular, caller() now
+returns a subroutine name of C<(unknown)> for subroutines that have
+been removed from the symbol table.
+
+=item *
+
+chop(@list) in list context returned the characters chopped in
+reverse order.  This has been reversed to be in the right order. [561]
+
+=item *
+
+Configure no longer includes the DBM libraries (dbm, gdbm, db, ndbm)
+when building the Perl binary.  The only exception to this is SunOS 4.x,
+which needs them. [561]
+
+=item *
+
+The behaviour of non-decimal but numeric string constants such as
+"0x23" was platform-dependent: in some platforms that was seen as 35,
+in some as 0, in some as a floating point number (don't ask).  This
+was caused by Perl's using the operating system libraries in a situation
+where the result of the string to number conversion is undefined: now
+Perl consistently handles such strings as zero in numeric contexts.
+
+=item *
+
+Several debugger fixes: exit code now reflects the script exit code,
+condition C<"0"> now treated correctly, the C<d> command now checks
+line number, C<$.> no longer gets corrupted, and all debugger output
+now goes correctly to the socket if RemotePort is set. [561]
+
+=item *
+
+The debugger (perl5db.pl) has been modified to present a more
+consistent commands interface, via (CommandSet=580).  perl5db.t was
+also added to test the changes, and as a placeholder for further tests.
+
+See L<perldebug>.
+
+=item *
+
+The debugger has a new C<dumpDepth> option to control the maximum
+depth to which nested structures are dumped.  The C<x> command has
+been extended so that C<x N EXPR> dumps out the value of I<EXPR> to a
+depth of at most I<N> levels.
+
+=item *
+
+The debugger can now show lexical variables if you have the CPAN
+module PadWalker installed.
+
+=item *
+
+The order of DESTROYs has been made more predictable.
+
+=item *
+
+Perl 5.6.0 could emit spurious warnings about redefinition of
+dl_error() when statically building extensions into perl.
+This has been corrected. [561]
+
+=item *
+
+L<dprofpp> -R didn't work.
+
+=item *
+
+C<*foo{FORMAT}> now works.
+
+=item *
+
+Infinity is now recognized as a number.
+
+=item *
+
+UNIVERSAL::isa no longer caches methods incorrectly.  (This broke
+the Tk extension with 5.6.0.) [561]
+
+=item *
+
+Lexicals I: lexicals outside an eval "" weren't resolved
+correctly inside a subroutine definition inside the eval "" if they
+were not already referenced in the top level of the eval""ed code.
+
+=item *
+
+Lexicals II: lexicals leaked at file scope into subroutines that
+were declared before the lexicals.
+
+=item *
+
+Lexical warnings now propagating correctly between scopes
+and into C<eval "...">.
+
+=item *
+
+C<use warnings qw(FATAL all)> did not work as intended.  This has been
+corrected. [561]
+
+=item *
+
+warnings::enabled() now reports the state of $^W correctly if the caller
+isn't using lexical warnings. [561]
+
+=item *
+
+Line renumbering with eval and C<#line> now works. [561]
+
+=item *
+
+Fixed numerous memory leaks, especially in eval "".
+
+=item *
+
+Localised tied variables no longer leak memory
+
+    use Tie::Hash;
+    tie my %tied_hash => 'Tie::StdHash';
+
+    ...
+
+    # Used to leak memory every time local() was called;
+    # in a loop, this added up.
+    local($tied_hash{Foo}) = 1;
+
+=item *
+
+Localised hash elements (and %ENV) are correctly unlocalised to not
+exist, if they didn't before they were localised.
+
+
+    use Tie::Hash;
+    tie my %tied_hash => 'Tie::StdHash';
+
+    ...
+
+    # Nothing has set the FOO element so far
+
+    { local $tied_hash{FOO} = 'Bar' }
+
+    # This used to print, but not now.
+    print "exists!\n" if exists $tied_hash{FOO};
+
+As a side effect of this fix, tied hash interfaces B<must> define
+the EXISTS and DELETE methods.
+
+=item *
+
+mkdir() now ignores trailing slashes in the directory name,
+as mandated by POSIX.
+
+=item *
+
+Some versions of glibc have a broken modfl().  This affects builds
+with C<-Duselongdouble>.  This version of Perl detects this brokenness
+and has a workaround for it.  The glibc release 2.2.2 is known to have
+fixed the modfl() bug.
+
+=item *
+
+Modulus of unsigned numbers now works (4063328477 % 65535 used to
+return 27406, instead of 27047). [561]
+
+=item *
+
+Some "not a number" warnings introduced in 5.6.0 eliminated to be
+more compatible with 5.005.  Infinity is now recognised as a number. [561]
+
+=item *
+
+Numeric conversions did not recognize changes in the string value
+properly in certain circumstances. [561]
+
+=item *
+
+Attributes (such as :shared) didn't work with our().
+
+=item *
+
+our() variables will not cause bogus "Variable will not stay shared"
+warnings. [561]
+
+=item *
+
+"our" variables of the same name declared in two sibling blocks
+resulted in bogus warnings about "redeclaration" of the variables.
+The problem has been corrected. [561]
+
+=item *
+
+pack "Z" now correctly terminates the string with "\0".
+
+=item *
+
+Fix password routines which in some shadow password platforms
+(e.g. HP-UX) caused getpwent() to return every other entry.
+
+=item *
+
+The PERL5OPT environment variable (for passing command line arguments
+to Perl) didn't work for more than a single group of options. [561]
+
+=item *
+
+PERL5OPT with embedded spaces didn't work.
+
+=item *
+
+printf() no longer resets the numeric locale to "C".
+
+=item *
+
+C<qw(a\\b)> now parses correctly as C<'a\\b'>: that is, as three
+characters, not four. [561]
+
+=item *
+
+pos() did not return the correct value within s///ge in earlier
+versions.  This is now handled correctly. [561]
+
+=item *
+
+Printing quads (64-bit integers) with printf/sprintf now works
+without the q L ll prefixes (assuming you are on a quad-capable platform).
+
+=item *
+
+Regular expressions on references and overloaded scalars now work. [561+]
+
+=item *
+
+Right-hand side magic (GMAGIC) could in many cases such as string
+concatenation be invoked too many times.
+
+=item *
+
+scalar() now forces scalar context even when used in void context.
+
+=item *
+
+SOCKS support is now much more robust.
+
+=item *
+
+sort() arguments are now compiled in the right wantarray context
+(they were accidentally using the context of the sort() itself).
+The comparison block is now run in scalar context, and the arguments
+to be sorted are always provided list context. [561]
+
+=item *
+
+Changed the POSIX character class C<[[:space:]]> to include the (very
+rarely used) vertical tab character.  Added a new POSIX-ish character
+class C<[[:blank:]]> which stands for horizontal whitespace
+(currently, the space and the tab).
+
+=item *
+
+The tainting behaviour of sprintf() has been rationalized.  It does
+not taint the result of floating point formats anymore, making the
+behaviour consistent with that of string interpolation. [561]
+
+=item *
+
+Some cases of inconsistent taint propagation (such as within hash
+values) have been fixed.
+
+=item *
+
+The RE engine found in Perl 5.6.0 accidentally pessimised certain kinds
+of simple pattern matches.  These are now handled better. [561]
+
+=item *
+
+Regular expression debug output (whether through C<use re 'debug'>
+or via C<-Dr>) now looks better. [561]
+
+=item *
+
+Multi-line matches like C<"a\nxb\n" =~ /(?!\A)x/m> were flawed.  The
+bug has been fixed. [561]
+
+=item *
+
+Use of $& could trigger a core dump under some situations.  This
+is now avoided. [561]
+
+=item *
+
+The regular expression captured submatches ($1, $2, ...) are now
+more consistently unset if the match fails, instead of leaving false
+data lying around in them. [561]
+
+=item *
+
+readline() on files opened in "slurp" mode could return an extra
+"" (blank line) at the end in certain situations.  This has been
+corrected. [561]
+
+=item *
+
+Autovivification of symbolic references of special variables described
+in L<perlvar> (as in C<${$num}>) was accidentally disabled.  This works
+again now. [561]
+
+=item *
+
+Sys::Syslog ignored the C<LOG_AUTH> constant.
+
+=item *
+
+$AUTOLOAD, sort(), lock(), and spawning subprocesses
+in multiple threads simultaneously are now thread-safe.
+
+=item *
+
+Tie::Array's SPLICE method was broken.
+
+=item *
+
+Allow a read-only string on the left-hand side of a non-modifying tr///.
+
+=item *
+
+If C<STDERR> is tied, warnings caused by C<warn> and C<die> now
+correctly pass to it.
+
+=item *
+
+Several Unicode fixes.
+
+=over 8
+
+=item *
+
+BOMs (byte order marks) at the beginning of Perl files
+(scripts, modules) should now be transparently skipped.
+UTF-16 and UCS-2 encoded Perl files should now be read correctly.
+
+=item *
+
+The character tables have been updated to Unicode 3.2.0.
+
+=item *
+
+Comparing with utf8 data does not magically upgrade non-utf8 data
+into utf8.  (This was a problem for example if you were mixing data
+from I/O and Unicode data: your output might have got magically encoded
+as UTF-8.)
+
+=item *
+
+Generating illegal Unicode code points such as U+FFFE, or the UTF-16
+surrogates, now also generates an optional warning.
+
+=item *
+
+C<IsAlnum>, C<IsAlpha>, and C<IsWord> now match titlecase.
+
+=item *
+
+Concatenation with the C<.> operator or via variable interpolation,
+C<eq>, C<substr>, C<reverse>, C<quotemeta>, the C<x> operator,
+substitution with C<s///>, single-quoted UTF-8, should now work.
+
+=item *
+
+The C<tr///> operator now works.  Note that the C<tr///CU>
+functionality has been removed (but see pack('U0', ...)).
+
+=item *
+
+C<eval "v200"> now works.
+
+=item *
+
+Perl 5.6.0 parsed m/\x{ab}/ incorrectly, leading to spurious warnings.
+This has been corrected. [561]
+
+=item *
+
+Zero entries were missing from the Unicode classes such as C<IsDigit>.
+
+=back
+
+=item *
+
+Large unsigned numbers (those above 2**31) could sometimes lose their
+unsignedness, causing bogus results in arithmetic operations. [561]
+
+=item *
+
+The Perl parser has been stress tested using both random input and
+Markov chain input and the few found crashes and lockups have been
+fixed.
+
+=back
+
+=head2 Platform Specific Changes and Fixes
+
+=over 4
+
+=item *
+
+BSDI 4.*
+
+Perl now works on post-4.0 BSD/OSes.
+
+=item *
+
+All BSDs
+
+Setting C<$0> now works (as much as possible; see L<perlvar> for details).
+
+=item *
+
+Cygwin
+
+Numerous updates; currently synchronised with Cygwin 1.3.10.
+
+=item *
+
+Previously DYNIX/ptx had problems in its Configure probe for non-blocking I/O.
+
+=item *
+
+EPOC
+
+EPOC now better supported.  See README.epoc. [561]
+
+=item *
+
+FreeBSD 3.*
+
+Perl now works on post-3.0 FreeBSDs.
+
+=item *
+
+HP-UX
+
+README.hpux updated; C<Configure -Duse64bitall> now works;
+now uses HP-UX malloc instead of Perl malloc.
+
+=item *
+
+IRIX
+
+Numerous compilation flag and hint enhancements; accidental mixing
+of 32-bit and 64-bit libraries (a doomed attempt) made much harder.
+
+=item *
+
+Linux
+
+=over 8
+
+=item *
+
+Long doubles should now work (see INSTALL). [561]
+
+=item *
+
+Linux previously had problems related to sockaddrlen when using
+accept(), recvfrom() (in Perl: recv()), getpeername(), and
+getsockname().
+
+=back
+
+=item *
+
+Mac OS Classic
+
+Compilation of the standard Perl distribution in Mac OS Classic should
+now work if you have the Metrowerks development environment and the
+missing Mac-specific toolkit bits.  Contact the macperl mailing list
+for details.
+
+=item *
+
+MPE/iX
+
+MPE/iX update after Perl 5.6.0.  See README.mpeix. [561]
+
+=item *
+
+NetBSD/threads: try installing the GNU pth (should be in the
+packages collection, or http://www.gnu.org/software/pth/),
+and Configure with -Duseithreads.
+
+=item *
+
+NetBSD/sparc
+
+Perl now works on NetBSD/sparc.
+
+=item *
+
+OS/2
+
+Now works with usethreads (see INSTALL). [561]
+
+=item *
+
+Solaris
+
+64-bitness using the Sun Workshop compiler now works.
+
+=item *
+
+Stratus VOS
+
+The native build method requires at least VOS Release 14.5.0
+and GNU C++/GNU Tools 2.0.1 or later.  The Perl pack function
+now maps overflowed values to +infinity and underflowed values
+to -infinity.
+
+=item *
+
+Tru64 (aka Digital UNIX, aka DEC OSF/1)
+
+The operating system version letter now recorded in $Config{osvers}.
+Allow compiling with gcc (previously explicitly forbidden).  Compiling
+with gcc still not recommended because buggy code results, even with
+gcc 2.95.2.
+
+=item *
+
+Unicos
+
+Fixed various alignment problems that lead into core dumps either
+during build or later; no longer dies on math errors at runtime;
+now using full quad integers (64 bits), previously was using
+only 46 bit integers for speed.
+
+=item *
+
+VMS
+
+See L</"Socket Extension Dynamic in VMS"> and L</"IEEE-format Floating Point
+Default on OpenVMS Alpha"> for important changes not otherwise listed here.
+
+chdir() now works better despite a CRT bug; now works with MULTIPLICITY
+(see INSTALL); now works with Perl's malloc.
+
+The tainting of C<%ENV> elements via C<keys> or C<values> was previously
+unimplemented.  It now works as documented.
+
+The C<waitpid> emulation has been improved.  The worst bug (now fixed)
+was that a pid of -1 would cause a wildcard search of all processes on
+the system.
+
+POSIX-style signals are now emulated much better on VMS versions prior
+to 7.0.
+
+The C<system> function and backticks operator have improved
+functionality and better error handling. [561]
+
+File access tests now use current process privileges rather than the
+user's default privileges, which could sometimes result in a mismatch
+between reported access and actual access.  This improvement is only
+available on VMS v6.0 and later.
+
+There is a new C<kill> implementation based on C<sys$sigprc> that allows
+older VMS systems (pre-7.0) to use C<kill> to send signals rather than
+simply force exit.  This implementation also allows later systems to
+call C<kill> from within a signal handler.
+
+Iterative logical name translations are now limited to 10 iterations in
+imitation of SHOW LOGICAL and other OpenVMS facilities.
+
+=item *
+
+Windows
+
+=over 8
+
+=item *
+
+Signal handling now works better than it used to.  It is now implemented
+using a Windows message loop, and is therefore less prone to random
+crashes.
+
+=item *
+
+fork() emulation is now more robust, but still continues to have a few
+esoteric bugs and caveats.  See L<perlfork> for details. [561+]
+
+=item *
+
+A failed (pseudo)fork now returns undef and sets errno to EAGAIN. [561]
+
+=item *
+
+The following modules now work on Windows:
+
+    ExtUtils::Embed         [561]
+    IO::Pipe
+    IO::Poll
+    Net::Ping
+
+=item *
+
+IO::File::new_tmpfile() is no longer limited to 32767 invocations
+per-process.
+
+=item *
+
+Better chdir() return value for a non-existent directory.
+
+=item *
+
+Compiling perl using the 64-bit Platform SDK tools is now supported.
+
+=item *
+
+The Win32::SetChildShowWindow() builtin can be used to control the
+visibility of windows created by child processes.  See L<Win32> for
+details.
+
+=item *
+
+Non-blocking waits for child processes (or pseudo-processes) are
+supported via C<waitpid($pid, &POSIX::WNOHANG)>.
+
+=item *
+
+The behavior of system() with multiple arguments has been rationalized.
+Each unquoted argument will be automatically quoted to protect whitespace,
+and any existing whitespace in the arguments will be preserved.  This
+improves the portability of system(@args) by avoiding the need for
+Windows C<cmd> shell specific quoting in perl programs.
+
+Note that this means that some scripts that may have relied on earlier
+buggy behavior may no longer work correctly.  For example,
+C<system("nmake /nologo", @args)> will now attempt to run the file
+C<nmake /nologo> and will fail when such a file isn't found.
+On the other hand, perl will now execute code such as
+C<system("c:/Program Files/MyApp/foo.exe", @args)> correctly.
+
+=item *
+
+The perl header files no longer suppress common warnings from the
+Microsoft Visual C++ compiler.  This means that additional warnings may
+now show up when compiling XS code.
+
+=item *
+
+Borland C++ v5.5 is now a supported compiler that can build Perl.
+However, the generated binaries continue to be incompatible with those
+generated by the other supported compilers (GCC and Visual C++). [561]
+
+=item *
+
+Duping socket handles with open(F, ">&MYSOCK") now works under Windows 9x.
+[561]
+
+=item *
+
+Current directory entries in %ENV are now correctly propagated to child
+processes. [561]
+
+=item *
+
+New %ENV entries now propagate to subprocesses. [561]
+
+=item *
+
+Win32::GetCwd() correctly returns C:\ instead of C: when at the drive root.
+Other bugs in chdir() and Cwd::cwd() have also been fixed. [561]
+
+=item *
+
+The makefiles now default to the features enabled in ActiveState ActivePerl
+(a popular Win32 binary distribution). [561]
+
+=item *
+
+HTML files will now be installed in c:\perl\html instead of
+c:\perl\lib\pod\html
+
+=item *
+
+REG_EXPAND_SZ keys are now allowed in registry settings used by perl. [561]
+
+=item *
+
+Can now send() from all threads, not just the first one. [561]
+
+=item *
+
+ExtUtils::MakeMaker now uses $ENV{LIB} to search for libraries. [561]
+
+=item *
+
+Less stack reserved per thread so that more threads can run
+concurrently. (Still 16M per thread.) [561]
+
+=item *
+
+C<< File::Spec->tmpdir() >> now prefers C:/temp over /tmp
+(works better when perl is running as service).
+
+=item *
+
+Better UNC path handling under ithreads. [561]
+
+=item *
+
+wait(), waitpid(), and backticks now return the correct exit status
+under Windows 9x. [561]
+
+=item *
+
+A socket handle leak in accept() has been fixed. [561]
+
+=back
+
+=back
+
+=head1 New or Changed Diagnostics
+
+Please see L<perldiag> for more details.
+
+=over 4
+
+=item *
+
+Ambiguous range in the transliteration operator (like a-z-9) now
+gives a warning.
+
+=item *
+
+chdir("") and chdir(undef) now give a deprecation warning because they
+cause a possible unintentional chdir to the home directory.
+Say chdir() if you really mean that.
+
+=item *
+
+Two new debugging options have been added: if you have compiled your
+Perl with debugging, you can use the -DT [561] and -DR options to trace
+tokenising and to add reference counts to displaying variables,
+respectively.
+
+=item *
+
+The lexical warnings category "deprecated" is no longer a sub-category
+of the "syntax" category. It is now a top-level category in its own
+right.
+
+=item *
+
+Unadorned dump() will now give a warning suggesting to
+use explicit CORE::dump() if that's what really is meant.
+
+=item *
+
+The "Unrecognized escape" warning has been extended to include C<\8>,
+C<\9>, and C<\_>.  There is no need to escape any of the C<\w> characters.
+
+=item *
+
+All regular expression compilation error messages are now hopefully
+easier to understand both because the error message now comes before
+the failed regex and because the point of failure is now clearly
+marked by a C<E<lt>-- HERE> marker.
+
+=item *
+
+Various I/O (and socket) functions like binmode(), close(), and so
+forth now more consistently warn if they are used illogically either
+on a yet unopened or on an already closed filehandle (or socket).
+
+=item *
+
+Using lstat() on a filehandle now gives a warning.  (It's a non-sensical
+thing to do.)
+
+=item *
+
+The C<-M> and C<-m> options now warn if you didn't supply the module name.
+
+=item *
+
+If you in C<use> specify a required minimum version, modules matching
+the name and but not defining a $VERSION will cause a fatal failure.
+
+=item *
+
+Using negative offset for vec() in lvalue context is now a warnable offense.
+
+=item *
+
+Odd number of arguments to overload::constant now elicits a warning.
+
+=item *
+
+Odd number of elements in anonymous hash now elicits a warning.
+
+=item *
+
+The various "opened only for", "on closed", "never opened" warnings
+drop the C<main::> prefix for filehandles in the C<main> package,
+for example C<STDIN> instead of C<main::STDIN>.
+
+=item *
+
+Subroutine prototypes are now checked more carefully, you may
+get warnings for example if you have used non-prototype characters.
+
+=item *
+
+If an attempt to use a (non-blessed) reference as an array index
+is made, a warning is given.
+
+=item *
+
+C<push @a;> and C<unshift @a;> (with no values to push or unshift)
+now give a warning.  This may be a problem for generated and eval'ed
+code.
+
+=item *
+
+If you try to L<perlfunc/pack> a number less than 0 or larger than 255
+using the C<"C"> format you will get an optional warning.  Similarly
+for the C<"c"> format and a number less than -128 or more than 127.
+
+=item *
+
+pack C<P> format now demands an explicit size.
+
+=item *
+
+unpack C<w> now warns of unterminated compressed integers.
+
+=item *
+
+Warnings relating to the use of PerlIO have been added.
+
+=item *
+
+Certain regex modifiers such as C<(?o)> make sense only if applied to
+the entire regex.  You will get an optional warning if you try to do
+otherwise.
+
+=item *
+
+Variable length lookbehind has not yet been implemented, trying to
+use it will tell that.
+
+=item *
+
+Using arrays or hashes as references (e.g. C<< %foo->{bar} >>
+has been deprecated for a while.  Now you will get an optional warning.
+
+=item *
+
+Warnings relating to the use of the new restricted hashes feature
+have been added.
+
+=item *
+
+Self-ties of arrays and hashes are not supported and fatal errors
+will happen even at an attempt to do so.
+
+=item *
+
+Using C<sort> in scalar context now issues an optional warning.
+This didn't do anything useful, as the sort was not performed.
+
+=item *
+
+Using the /g modifier in split() is meaningless and will cause a warning.
+
+=item *
+
+Using splice() past the end of an array now causes a warning.
+
+=item *
+
+Malformed Unicode encodings (UTF-8 and UTF-16) cause a lot of warnings,
+as does trying to use UTF-16 surrogates (which are unimplemented).
+
+=item *
+
+Trying to use Unicode characters on an I/O stream without marking the
+stream's encoding (using open() or binmode()) will cause "Wide character"
+warnings.
+
+=item *
+
+Use of v-strings in use/require causes a (backward) portability warning.
+
+=item *
+
+Warnings relating to the use interpreter threads and their shared data
+have been added.
+
+=back
+
+=head1 Changed Internals
+
+=over 4
+
+=item *
+
+PerlIO is now the default.
+
+=item *
+
+perlapi.pod (a companion to perlguts) now attempts to document the
+internal API.
+
+=item *
+
+You can now build a really minimal perl called microperl.
+Building microperl does not require even running Configure;
+C<make -f Makefile.micro> should be enough.  Beware: microperl makes
+many assumptions, some of which may be too bold; the resulting
+executable may crash or otherwise misbehave in wondrous ways.
+For careful hackers only.
+
+=item *
+
+Added rsignal(), whichsig(), do_join(), op_clear, op_null,
+ptr_table_clear(), ptr_table_free(), sv_setref_uv(), and several UTF-8
+interfaces to the publicised API.  For the full list of the available
+APIs see L<perlapi>.
+
+=item *
+
+Made possible to propagate customised exceptions via croak()ing.
+
+=item *
+
+Now xsubs can have attributes just like subs.  (Well, at least the
+built-in attributes.)
+
+=item *
+
+dTHR and djSP have been obsoleted; the former removed (because it's
+a no-op) and the latter replaced with dSP.
+
+=item *
+
+PERL_OBJECT has been completely removed.
+
+=item *
+
+The MAGIC constants (e.g. C<'P'>) have been macrofied
+(e.g. C<PERL_MAGIC_TIED>) for better source code readability
+and maintainability.
+
+=item *
+
+The regex compiler now maintains a structure that identifies nodes in
+the compiled bytecode with the corresponding syntactic features of the
+original regex expression.  The information is attached to the new
+C<offsets> member of the C<struct regexp>. See L<perldebguts> for more
+complete information.
+
+=item *
+
+The C code has been made much more C<gcc -Wall> clean.  Some warning
+messages still remain in some platforms, so if you are compiling with
+gcc you may see some warnings about dubious practices.  The warnings
+are being worked on.
+
+=item *
+
+F<perly.c>, F<sv.c>, and F<sv.h> have now been extensively commented.
+
+=item *
+
+Documentation on how to use the Perl source repository has been added
+to F<Porting/repository.pod>.
+
+=item *
+
+There are now several profiling make targets.
+
+=back
+
+=head1 Security Vulnerability Closed [561]
+
+(This change was already made in 5.7.0 but bears repeating here.)
+(5.7.0 came out before 5.6.1: the development branch 5.7 released
+earlier than the maintenance branch 5.6)
+
+A potential security vulnerability in the optional suidperl component
+of Perl was identified in August 2000.  suidperl is neither built nor
+installed by default.  As of November 2001 the only known vulnerable
+platform is Linux, most likely all Linux distributions.  CERT and
+various vendors and distributors have been alerted about the vulnerability.
+See http://www.cpan.org/src/5.0/sperl-2000-08-05/sperl-2000-08-05.txt
+for more information.
+
+The problem was caused by Perl trying to report a suspected security
+exploit attempt using an external program, /bin/mail.  On Linux
+platforms the /bin/mail program had an undocumented feature which
+when combined with suidperl gave access to a root shell, resulting in
+a serious compromise instead of reporting the exploit attempt.  If you
+don't have /bin/mail, or if you have 'safe setuid scripts', or if
+suidperl is not installed, you are safe.
+
+The exploit attempt reporting feature has been completely removed from
+Perl 5.8.0 (and the maintenance release 5.6.1, and it was removed also
+from all the Perl 5.7 releases), so that particular vulnerability
+isn't there anymore.  However, further security vulnerabilities are,
+unfortunately, always possible.  The suidperl functionality is most
+probably going to be removed in Perl 5.10.  In any case, suidperl
+should only be used by security experts who know exactly what they are
+doing and why they are using suidperl instead of some other solution
+such as sudo ( see http://www.courtesan.com/sudo/ ).
+
+=head1 New Tests
+
+Several new tests have been added, especially for the F<lib> and
+F<ext> subsections.  There are now about 69 000 individual tests
+(spread over about 700 test scripts), in the regression suite (5.6.1
+has about 11 700 tests, in 258 test scripts)  The exact numbers depend
+on the platform and Perl configuration used.  Many of the new tests
+are of course introduced by the new modules, but still in general Perl
+is now more thoroughly tested.
+
+Because of the large number of tests, running the regression suite
+will take considerably longer time than it used to: expect the suite
+to take up to 4-5 times longer to run than in perl 5.6.  On a really
+fast machine you can hope to finish the suite in about 6-8 minutes
+(wallclock time).
+
+The tests are now reported in a different order than in earlier Perls.
+(This happens because the test scripts from under t/lib have been moved
+to be closer to the library/extension they are testing.)
+
+=head1 Known Problems
+
+=head2 The Compiler Suite Is Still Very Experimental
+
+The compiler suite is slowly getting better but it continues to be
+highly experimental.  Use in production environments is discouraged.
+
+=head2 Localising Tied Arrays and Hashes Is Broken
+
+    local %tied_array;
+
+doesn't work as one would expect: the old value is restored
+incorrectly.  This will be changed in a future release, but we don't
+know yet what the new semantics will exactly be.  In any case, the
+change will break existing code that relies on the current
+(ill-defined) semantics, so just avoid doing this in general.
+
+=head2 Building Extensions Can Fail Because Of Largefiles
+
+Some extensions like mod_perl are known to have issues with
+`largefiles', a change brought by Perl 5.6.0 in which file offsets
+default to 64 bits wide, where supported.  Modules may fail to compile
+at all, or they may compile and work incorrectly.  Currently, there
+is no good solution for the problem, but Configure now provides
+appropriate non-largefile ccflags, ldflags, libswanted, and libs
+in the %Config hash (e.g., $Config{ccflags_nolargefiles}) so the
+extensions that are having problems can try configuring themselves
+without the largefileness.  This is admittedly not a clean solution,
+and the solution may not even work at all.  One potential failure is
+whether one can (or, if one can, whether it's a good idea to) link
+together at all binaries with different ideas about file offsets;
+all this is platform-dependent.
+
+=head2 Modifying $_ Inside for(..)
+
+   for (1..5) { $_++ }
+
+works without complaint.  It shouldn't.  (You should be able to
+modify only lvalue elements inside the loops.)  You can see the
+correct behaviour by replacing the 1..5 with 1, 2, 3, 4, 5.
+
+=head2 mod_perl 1.26 Doesn't Build With Threaded Perl
+
+Use mod_perl 1.27 or higher.
+
+=head2 lib/ftmp-security tests warn 'system possibly insecure'
+
+Don't panic.  Read the 'make test' section of INSTALL instead.
+
+=head2 libwww-perl (LWP) fails base/date #51
+
+Use libwww-perl 5.65 or later.
+
+=head2 PDL failing some tests
+
+Use PDL 2.3.4 or later.
+
+=head2 Perl_get_sv
+
+You may get errors like 'Undefined symbol "Perl_get_sv"' or "can't
+resolve symbol 'Perl_get_sv'", or the symbol may be "Perl_sv_2pv".
+This probably means that you are trying to use an older shared Perl
+library (or extensions linked with such) with Perl 5.8.0 executable.
+Perl used to have such a subroutine, but that is no more the case.
+Check your shared library path, and any shared Perl libraries in those
+directories.
+
+Sometimes this problem may also indicate a partial Perl 5.8.0
+installation, see L</"Mac OS X dyld undefined symbols"> for an
+example and how to deal with it.
+
+=head2 Self-tying Problems
+
+Self-tying of arrays and hashes is broken in rather deep and
+hard-to-fix ways.  As a stop-gap measure to avoid people from getting
+frustrated at the mysterious results (core dumps, most often), it is
+forbidden for now (you will get a fatal error even from an attempt).
+
+A change to self-tying of globs has caused them to be recursively
+referenced (see: L<perlobj/"Two-Phased Garbage Collection">).  You
+will now need an explicit untie to destroy a self-tied glob.  This
+behaviour may be fixed at a later date.
+
+Self-tying of scalars and IO thingies works.
+
+=head2 ext/threads/t/libc
+
+If this test fails, it indicates that your libc (C library) is not
+threadsafe.  This particular test stress tests the localtime() call to
+find out whether it is threadsafe.  See L<perlthrtut> for more information.
+
+=head2 Failure of Thread (5.005-style) tests
+
+B<Note that support for 5.005-style threading is deprecated,
+experimental and practically unsupported.  In 5.10, it is expected
+to be removed.  You should migrate your code to ithreads.>
+
+The following tests are known to fail due to fundamental problems in
+the 5.005 threading implementation. These are not new failures--Perl
+5.005_0x has the same bugs, but didn't have these tests.
+
+ ../ext/B/t/xref.t                    255 65280    14   12  85.71%  3-14
+ ../ext/List/Util/t/first.t           255 65280     7    4  57.14%  2 5-7
+ ../lib/English.t                       2   512    54    2   3.70%  2-3
+ ../lib/FileCache.t                                 5    1  20.00%  5
+ ../lib/Filter/Simple/t/data.t                      6    3  50.00%  1-3
+ ../lib/Filter/Simple/t/filter_only.                9    3  33.33%  1-2 5
+ ../lib/Math/BigInt/t/bare_mbf.t                 1627    4   0.25%  8 11 1626-1627
+ ../lib/Math/BigInt/t/bigfltpm.t                 1629    4   0.25%  10 13 1628-
+                                                                    1629
+ ../lib/Math/BigInt/t/sub_mbf.t                  1633    4   0.24%  8 11 1632-1633
+ ../lib/Math/BigInt/t/with_sub.t                 1628    4   0.25%  9 12 1627-1628
+ ../lib/Tie/File/t/31_autodefer.t     255 65280    65   32  49.23%  34-65
+ ../lib/autouse.t                                  10    1  10.00%  4
+ op/flip.t                                         15    1   6.67%  15
+
+These failures are unlikely to get fixed as 5.005-style threads
+are considered fundamentally broken.  (Basically what happens is that
+competing threads can corrupt shared global state, one good example
+being regular expression engine's state.)
+
+=head2 Timing problems
+
+The following tests may fail intermittently because of timing
+problems, for example if the system is heavily loaded.
+
+    t/op/alarm.t
+    ext/Time/HiRes/HiRes.t
+    lib/Benchmark.t
+    lib/Memoize/t/expmod_t.t
+    lib/Memoize/t/speed.t
+
+In case of failure please try running them manually, for example
+
+    ./perl -Ilib ext/Time/HiRes/HiRes.t
+
+=head2 Tied/Magical Array/Hash Elements Do Not Autovivify
+
+For normal arrays C<$foo = \$bar[1]> will assign C<undef> to
+C<$bar[1]> (assuming that it didn't exist before), but for
+tied/magical arrays and hashes such autovivification does not happen
+because there is currently no way to catch the reference creation.
+The same problem affects slicing over non-existent indices/keys of
+a tied/magical array/hash.
+
+=head2 Unicode in package/class and subroutine names does not work
+
+One can have Unicode in identifier names, but not in package/class or
+subroutine names.  While some limited functionality towards this does
+exist as of Perl 5.8.0, that is more accidental than designed; use of
+Unicode for the said purposes is unsupported.
+
+One reason of this unfinishedness is its (currently) inherent
+unportability: since both package names and subroutine names may
+need to be mapped to file and directory names, the Unicode capability
+of the filesystem becomes important-- and there unfortunately aren't
+portable answers.
+
+=head1 Platform Specific Problems
+
+=head2 AIX
+
+=over 4
+
+=item *
+
+If using the AIX native make command, instead of just "make" issue
+"make all".  In some setups the former has been known to spuriously
+also try to run "make install".  Alternatively, you may want to use
+GNU make.
+
+=item *
+
+In AIX 4.2, Perl extensions that use C++ functions that use statics
+may have problems in that the statics are not getting initialized.
+In newer AIX releases, this has been solved by linking Perl with
+the libC_r library, but unfortunately in AIX 4.2 the said library
+has an obscure bug where the various functions related to time
+(such as time() and gettimeofday()) return broken values, and
+therefore in AIX 4.2 Perl is not linked against libC_r.
+
+=item *
+
+vac 5.0.0.0 May Produce Buggy Code For Perl
+
+The AIX C compiler vac version 5.0.0.0 may produce buggy code,
+resulting in a few random tests failing when run as part of "make
+test", but when the failing tests are run by hand, they succeed.
+We suggest upgrading to at least vac version 5.0.1.0, that has been
+known to compile Perl correctly.  "lslpp -L|grep vac.C" will tell
+you the vac version.  See README.aix.
+
+=item *
+
+If building threaded Perl, you may get compilation warning from pp_sys.c:
+
+  "pp_sys.c", line 4651.39: 1506-280 (W) Function argument assignment between types "unsigned char*" and "const void*" is not allowed.
+
+This is harmless; it is caused by the getnetbyaddr() and getnetbyaddr_r()
+having slightly different types for their first argument.
+
+=back
+
+=head2 Alpha systems with old gccs fail several tests
+
+If you see op/pack, op/pat, op/regexp, or ext/Storable tests failing
+in a Linux/alpha or *BSD/Alpha, it's probably time to upgrade your gcc.
+gccs prior to 2.95.3 are definitely not good enough, and gcc 3.1 may
+be even better.  (RedHat Linux/alpha with gcc 3.1 reported no problems,
+as did Linux 2.4.18 with gcc 2.95.4.)  (In Tru64, it is preferable to
+use the bundled C compiler.)
+
+=head2 AmigaOS
+
+Perl 5.8.0 doesn't build in AmigaOS.  It broke at some point during
+the ithreads work and we could not find Amiga experts to unbreak the
+problems.  Perl 5.6.1 still works for AmigaOS (as does the 5.7.2
+development release).
+
+=head2 BeOS
+
+The following tests fail on 5.8.0 Perl in BeOS Personal 5.03:
+
+ t/op/lfs............................FAILED at test 17
+ t/op/magic..........................FAILED at test 24
+ ext/Fcntl/t/syslfs..................FAILED at test 17
+ ext/File/Glob/t/basic...............FAILED at test 3
+ ext/POSIX/t/sigaction...............FAILED at test 13
+ ext/POSIX/t/waitpid.................FAILED at test 1
+
+(B<Note:> more information was available in F<README.beos> until support for
+BeOS was removed in Perl v5.18.0)
+
+=head2 Cygwin "unable to remap"
+
+For example when building the Tk extension for Cygwin,
+you may get an error message saying "unable to remap".
+This is known problem with Cygwin, and a workaround is
+detailed in here: http://sources.redhat.com/ml/cygwin/2001-12/msg00894.html
+
+=head2 Cygwin ndbm tests fail on FAT
+
+One can build but not install (or test the build of) the NDBM_File
+on FAT filesystems.  Installation (or build) on NTFS works fine.
+If one attempts the test on a FAT install (or build) the following
+failures are expected:
+
+ ../ext/NDBM_File/ndbm.t       13  3328    71   59  83.10%  1-2 4 16-71
+ ../ext/ODBM_File/odbm.t      255 65280    ??   ??       %  ??
+ ../lib/AnyDBM_File.t           2   512    12    2  16.67%  1 4
+ ../lib/Memoize/t/errors.t      0   139    11    5  45.45%  7-11
+ ../lib/Memoize/t/tie_ndbm.t   13  3328     4    4 100.00%  1-4
+ run/fresh_perl.t                          97    1   1.03%  91
+
+NDBM_File fails and ODBM_File just coredumps.
+
+If you intend to run only on FAT (or if using AnyDBM_File on FAT),
+run Configure with the -Ui_ndbm and -Ui_dbm options to prevent
+NDBM_File and ODBM_File being built.
+
+=head2 DJGPP Failures
+
+ t/op/stat............................FAILED at test 29
+ lib/File/Find/t/find.................FAILED at test 1
+ lib/File/Find/t/taint................FAILED at test 1
+ lib/h2xs.............................FAILED at test 15
+ lib/Pod/t/eol........................FAILED at test 1
+ lib/Test/Harness/t/strap-analyze.....FAILED at test 8
+ lib/Test/Harness/t/test-harness......FAILED at test 23
+ lib/Test/Simple/t/exit...............FAILED at test 1
+
+The above failures are known as of 5.8.0 with native builds with long
+filenames, but there are a few more if running under dosemu because of
+limitations (and maybe bugs) of dosemu:
+
+ t/comp/cpp...........................FAILED at test 3
+ t/op/inccode.........................(crash)
+
+and a few lib/ExtUtils tests, and several hundred Encode/t/Aliases.t
+failures that work fine with long filenames.  So you really might
+prefer native builds and long filenames.
+
+=head2 FreeBSD built with ithreads coredumps reading large directories
+
+This is a known bug in FreeBSD 4.5's readdir_r(), it has been fixed in
+FreeBSD 4.6 (see L<perlfreebsd> (README.freebsd)).
+
+=head2 FreeBSD Failing locale Test 117 For ISO 8859-15 Locales
+
+The ISO 8859-15 locales may fail the locale test 117 in FreeBSD.
+This is caused by the characters \xFF (y with diaeresis) and \xBE
+(Y with diaeresis) not behaving correctly when being matched
+case-insensitively.  Apparently this problem has been fixed in
+the latest FreeBSD releases.
+( http://www.freebsd.org/cgi/query-pr.cgi?pr=34308 )
+
+=head2 IRIX fails ext/List/Util/t/shuffle.t or Digest::MD5
+
+IRIX with MIPSpro 7.3.1.2m or 7.3.1.3m compiler may fail the List::Util
+test ext/List/Util/t/shuffle.t by dumping core.  This seems to be
+a compiler error since if compiled with gcc no core dump ensues, and
+no failures have been seen on the said test on any other platform.
+
+Similarly, building the Digest::MD5 extension has been
+known to fail with "*** Termination code 139 (bu21)".
+
+The cure is to drop optimization level (Configure -Doptimize=-O2).
+
+=head2 HP-UX lib/posix Subtest 9 Fails When LP64-Configured
+
+If perl is configured with -Duse64bitall, the successful result of the
+subtest 10 of lib/posix may arrive before the successful result of the
+subtest 9, which confuses the test harness so much that it thinks the
+subtest 9 failed.
+
+=head2 Linux with glibc 2.2.5 fails t/op/int subtest #6 with -Duse64bitint
+
+This is a known bug in the glibc 2.2.5 with long long integers.
+( http://bugzilla.redhat.com/bugzilla/show_bug.cgi?id=65612 )
+
+=head2 Linux With Sfio Fails op/misc Test 48
+
+No known fix.
+
+=head2 Mac OS X
+
+Please remember to set your environment variable LC_ALL to "C"
+(setenv LC_ALL C) before running "make test" to avoid a lot of
+warnings about the broken locales of Mac OS X.
+
+The following tests are known to fail in Mac OS X 10.1.5 because of
+buggy (old) implementations of Berkeley DB included in Mac OS X:
+
+ Failed Test                 Stat Wstat Total Fail  Failed  List of Failed
+ -------------------------------------------------------------------------
+ ../ext/DB_File/t/db-btree.t    0    11    ??   ??       %  ??
+ ../ext/DB_File/t/db-recno.t              149    3   2.01%  61 63 65
+
+If you are building on a UFS partition, you will also probably see
+t/op/stat.t subtest #9 fail.  This is caused by Darwin's UFS not
+supporting inode change time.
+
+Also the ext/POSIX/t/posix.t subtest #10 fails but it is skipped for
+now because the failure is Apple's fault, not Perl's (blocked signals
+are lost).
+
+If you Configure with ithreads, ext/threads/t/libc.t will fail. Again,
+this is not Perl's fault-- the libc of Mac OS X is not threadsafe
+(in this particular test, the localtime() call is found to be
+threadunsafe.)
+
+=head2 Mac OS X dyld undefined symbols
+
+If after installing Perl 5.8.0 you are getting warnings about missing
+symbols, for example
+
+    dyld: perl Undefined symbols
+    _perl_sv_2pv
+    _perl_get_sv
+
+you probably have an old pre-Perl-5.8.0 installation (or parts of one)
+in /Library/Perl (the undefined symbols used to exist in pre-5.8.0 Perls).
+It seems that for some reason "make install" doesn't always completely
+overwrite the files in /Library/Perl.  You can move the old Perl
+shared library out of the way like this:
+
+    cd /Library/Perl/darwin/CORE
+    mv libperl.dylib libperlold.dylib
+
+and then reissue "make install".  Note that the above of course is
+extremely disruptive for anything using the /usr/local/bin/perl.
+If that doesn't help, you may have to try removing all the .bundle
+files from beneath /Library/Perl, and again "make install"-ing.
+
+=head2 OS/2 Test Failures
+
+The following tests are known to fail on OS/2 (for clarity
+only the failures are shown, not the full error messages):
+
+ ../lib/ExtUtils/t/Mkbootstrap.t    1   256    18    1   5.56%  8
+ ../lib/ExtUtils/t/Packlist.t       1   256    34    1   2.94%  17
+ ../lib/ExtUtils/t/basic.t          1   256    17    1   5.88%  14
+ lib/os2_process.t                  2   512   227    2   0.88%  174 209
+ lib/os2_process_kid.t                        227    2   0.88%  174 209
+ lib/rx_cmprt.t                   255 65280    18    3  16.67%  16-18
+
+=head2 op/sprintf tests 91, 129, and 130
+
+The op/sprintf tests 91, 129, and 130 are known to fail on some platforms.
+Examples include any platform using sfio, and Compaq/Tandem's NonStop-UX.
+
+Test 91 is known to fail on QNX6 (nto), because C<sprintf '%e',0>
+incorrectly produces C<0.000000e+0> instead of C<0.000000e+00>.
+
+For tests 129 and 130, the failing platforms do not comply with
+the ANSI C Standard: lines 19ff on page 134 of ANSI X3.159 1989, to
+be exact.  (They produce something other than "1" and "-1" when
+formatting 0.6 and -0.6 using the printf format "%.0f"; most often,
+they produce "0" and "-0".)
+
+=head2 SCO
+
+The socketpair tests are known to be unhappy in SCO 3.2v5.0.4:
+
+ ext/Socket/socketpair.t...............FAILED tests 15-45
+
+=head2 Solaris 2.5
+
+In case you are still using Solaris 2.5 (aka SunOS 5.5), you may
+experience failures (the test core dumping) in lib/locale.t.
+The suggested cure is to upgrade your Solaris.
+
+=head2 Solaris x86 Fails Tests With -Duse64bitint
+
+The following tests are known to fail in Solaris x86 with Perl
+configured to use 64 bit integers:
+
+ ext/Data/Dumper/t/dumper.............FAILED at test 268
+ ext/Devel/Peek/Peek..................FAILED at test 7
+
+=head2 SUPER-UX (NEC SX)
+
+The following tests are known to fail on SUPER-UX:
+
+ op/64bitint...........................FAILED tests 29-30, 32-33, 35-36
+ op/arith..............................FAILED tests 128-130
+ op/pack...............................FAILED tests 25-5625
+ op/pow................................
+ op/taint..............................# msgsnd failed
+ ../ext/IO/lib/IO/t/io_poll............FAILED tests 3-4
+ ../ext/IPC/SysV/ipcsysv...............FAILED tests 2, 5-6
+ ../ext/IPC/SysV/t/msg.................FAILED tests 2, 4-6
+ ../ext/Socket/socketpair..............FAILED tests 12
+ ../lib/IPC/SysV.......................FAILED tests 2, 5-6
+ ../lib/warnings.......................FAILED tests 115-116, 118-119
+
+The op/pack failure ("Cannot compress negative numbers at op/pack.t line 126")
+is serious but as of yet unsolved.  It points at some problems with the
+signedness handling of the C compiler, as do the 64bitint, arith, and pow
+failures.  Most of the rest point at problems with SysV IPC.
+
+=head2 Term::ReadKey not working on Win32
+
+Use Term::ReadKey 2.20 or later.
+
+=head2 UNICOS/mk
+
+=over 4
+
+=item *
+
+During Configure, the test
+
+    Guessing which symbols your C compiler and preprocessor define...
+
+will probably fail with error messages like
+
+    CC-20 cc: ERROR File = try.c, Line = 3
+      The identifier "bad" is undefined.
+
+      bad switch yylook 79bad switch yylook 79bad switch yylook 79bad switch yylook 79#ifdef A29K
+      ^
+
+    CC-65 cc: ERROR File = try.c, Line = 3
+      A semicolon is expected at this point.
+
+This is caused by a bug in the awk utility of UNICOS/mk.  You can ignore
+the error, but it does cause a slight problem: you cannot fully
+benefit from the h2ph utility (see L<h2ph>) that can be used to
+convert C headers to Perl libraries, mainly used to be able to access
+from Perl the constants defined using C preprocessor, cpp.  Because of
+the above error, parts of the converted headers will be invisible.
+Luckily, these days the need for h2ph is rare.
+
+=item *
+
+If building Perl with interpreter threads (ithreads), the
+getgrent(), getgrnam(), and getgrgid() functions cannot return the
+list of the group members due to a bug in the multithreaded support of
+UNICOS/mk.  What this means is that in list context the functions will
+return only three values, not four.
+
+=back
+
+=head2 UTS
+
+There are a few known test failures.  (B<Note:> the relevant information was
+available in F<README.uts> until support for UTS was removed in Perl
+v5.18.0)
+
+=head2 VOS (Stratus)
+
+When Perl is built using the native build process on VOS Release
+14.5.0 and GNU C++/GNU Tools 2.0.1, all attempted tests either
+pass or result in TODO (ignored) failures.
+
+=head2 VMS
+
+There should be no reported test failures with a default configuration,
+though there are a number of tests marked TODO that point to areas
+needing further debugging and/or porting work.
+
+=head2 Win32
+
+In multi-CPU boxes, there are some problems with the I/O buffering:
+some output may appear twice.
+
+=head2 XML::Parser not working
+
+Use XML::Parser 2.31 or later.
+
+=head2 z/OS (OS/390)
+
+z/OS has rather many test failures but the situation is actually much
+better than it was in 5.6.0; it's just that so many new modules and
+tests have been added.
+
+ Failed Test                   Stat Wstat Total Fail  Failed  List of Failed
+ ---------------------------------------------------------------------------
+ ../ext/Data/Dumper/t/dumper.t              357    8   2.24%  311 314 325 327
+                                                              331 333 337 339
+ ../ext/IO/lib/IO/t/io_unix.t                 5    4  80.00%  2-5
+ ../ext/Storable/t/downgrade.t   12  3072   169   12   7.10%  14-15 46-47 78-79
+                                                              110-111 150 161
+ ../lib/ExtUtils/t/Constant.t   121 30976    48   48 100.00%  1-48
+ ../lib/ExtUtils/t/Embed.t                    9    9 100.00%  1-9
+ op/pat.t                                   922    7   0.76%  665 776 785 832-
+                                                              834 845
+ op/sprintf.t                               224    3   1.34%  98 100 136
+ op/tr.t                                     97    5   5.15%  63 71-74
+ uni/fold.t                                 780    6   0.77%  61 169 196 661
+                                                              710-711
+
+The failures in dumper.t and downgrade.t are problems in the tests,
+those in io_unix and sprintf are problems in the USS (UDP sockets and
+printf formats).  The pat, tr, and fold failures are genuine Perl
+problems caused by EBCDIC (and in the pat and fold cases, combining
+that with Unicode).  The Constant and Embed are probably problems in
+the tests (since they test Perl's ability to build extensions, and
+that seems to be working reasonably well.)
+
+=head2 Unicode Support on EBCDIC Still Spotty
+
+Though mostly working, Unicode support still has problem spots on
+EBCDIC platforms.  One such known spot are the C<\p{}> and C<\P{}>
+regular expression constructs for code points less than 256: the
+C<pP> are testing for Unicode code points, not knowing about EBCDIC.
+
+=head2 Seen In Perl 5.7 But Gone Now
+
+C<Time::Piece> (previously known as C<Time::Object>) was removed
+because it was felt that it didn't have enough value in it to be a
+core module.  It is still a useful module, though, and is available
+from the CPAN.
+
+Perl 5.8 unfortunately does not build anymore on AmigaOS; this broke
+accidentally at some point.  Since there are not that many Amiga
+developers available, we could not get this fixed and tested in time
+for 5.8.0.  Perl 5.6.1 still works for AmigaOS (as does the 5.7.2
+development release).
+
+The C<PerlIO::Scalar> and C<PerlIO::Via> (capitalised) were renamed as
+C<PerlIO::scalar> and C<PerlIO::via> (all lowercase) just before 5.8.0.
+The main rationale was to have all core PerlIO layers to have all
+lowercase names.  The "plugins" are named as usual, for example
+C<PerlIO::via::QuotedPrint>.
+
+The C<threads::shared::queue> and C<threads::shared::semaphore> were
+renamed as C<Thread::Queue> and C<Thread::Semaphore> just before 5.8.0.
+The main rationale was to have thread modules to obey normal naming,
+C<Thread::> (the C<threads> and C<threads::shared> themselves are
+more pragma-like, they affect compile-time, so they stay lowercase).
+
+=head1 Reporting Bugs
+
+If you find what you think is a bug, you might check the articles
+recently posted to the comp.lang.perl.misc newsgroup and the perl
+bug database at http://bugs.perl.org/ .  There may also be
+information at http://www.perl.com/ , the Perl Home Page.
+
+If you believe you have an unreported bug, please run the B<perlbug>
+program included with your release.  Be sure to trim your bug down
+to a tiny but sufficient test case.  Your bug report, along with the
+output of C<perl -V>, will be sent off to perlbug@perl.org to be
+analysed by the Perl porting team.
+
+=head1 SEE ALSO
+
+The F<Changes> file for exhaustive details on what changed.
+
+The F<INSTALL> file for how to build Perl.
+
+The F<README> file for general stuff.
+
+The F<Artistic> and F<Copying> files for copyright information.
+
+=head1 HISTORY
+
+Written by Jarkko Hietaniemi <F<jhi@iki.fi>>.
+
+=cut
diff --git a/lib/5.24.1/pod/perlaix.pod b/lib/5.24.1/pod/perlaix.pod
new file mode 100644
index 00000000..2b02db90
--- /dev/null
+++ b/lib/5.24.1/pod/perlaix.pod
@@ -0,0 +1,516 @@
+If you read this file _as_is_, just ignore the funny characters you see.
+It is written in the POD format (see pod/perlpod.pod) which is specially
+designed to be readable as is.
+
+=head1 NAME
+
+perlaix - Perl version 5 on IBM AIX (UNIX) systems
+
+=head1 DESCRIPTION
+
+This document describes various features of IBM's UNIX operating
+system AIX that will affect how Perl version 5 (hereafter just Perl)
+is compiled and/or runs.
+
+=head2 Compiling Perl 5 on AIX
+
+For information on compilers on older versions of AIX, see L<Compiling
+Perl 5 on older AIX versions up to 4.3.3>.
+
+When compiling Perl, you must use an ANSI C compiler. AIX does not ship
+an ANSI compliant C compiler with AIX by default, but binary builds of
+gcc for AIX are widely available. A version of gcc is also included in
+the AIX Toolbox which is shipped with AIX.
+
+=head2 Supported Compilers
+
+Currently all versions of IBM's "xlc", "xlc_r", "cc", "cc_r" or
+"vac" ANSI/C compiler will work for building Perl if that compiler
+works on your system.
+
+If you plan to link Perl to any module that requires thread-support,
+like DBD::Oracle, it is better to use the _r version of the compiler.
+This will not build a threaded Perl, but a thread-enabled Perl. See
+also L<Threaded Perl> later on.
+
+As of writing (2010-09) only the I<IBM XL C for AIX> or I<IBM XL C/C++
+for AIX> compiler is supported by IBM on AIX 5L/6.1/7.1.
+
+The following compiler versions are currently supported by IBM:
+
+    IBM XL C and IBM XL C/C++ V8, V9, V10, V11
+
+The XL C for AIX is integrated in the XL C/C++ for AIX compiler and
+therefore also supported.
+
+If you choose XL C/C++ V9 you need APAR IZ35785 installed
+otherwise the integrated SDBM_File do not compile correctly due
+to an optimization bug. You can circumvent this problem by
+adding -qipa to the optimization flags (-Doptimize='-O -qipa').
+The PTF for APAR IZ35785 which solves this problem is available
+from IBM (April 2009 PTF for XL C/C++ Enterprise Edition for AIX, V9.0).
+
+If you choose XL C/C++ V11 you need the April 2010 PTF (or newer)
+installed otherwise you will not get a working Perl version.
+
+Perl can be compiled with either IBM's ANSI C compiler or with gcc.
+The former is recommended, as not only it can compile Perl with no
+difficulty, but also can take advantage of features listed later
+that require the use of IBM compiler-specific command-line flags.
+
+If you decide to use gcc, make sure your installation is recent and
+complete, and be sure to read the Perl INSTALL file for more gcc-specific
+details. Please report any hoops you had to jump through to the
+development team.
+
+=head2 Incompatibility with AIX Toolbox lib gdbm
+
+If the AIX Toolbox version of lib gdbm < 1.8.3-5 is installed on your
+system then Perl will not work. This library contains the header files
+/opt/freeware/include/gdbm/dbm.h|ndbm.h which conflict with the AIX
+system versions. The lib gdbm will be automatically removed from the
+wanted libraries if the presence of one of these two header files is
+detected. If you want to build Perl with GDBM support then please install
+at least gdbm-devel-1.8.3-5 (or higher).
+
+=head2 Perl 5 was successfully compiled and tested on:
+
+ Perl   | AIX Level           | Compiler Level          | w th | w/o th
+ -------+---------------------+-------------------------+------+-------
+ 5.12.2 |5.1 TL9 32 bit       | XL C/C++ V7             | OK   | OK
+ 5.12.2 |5.1 TL9 64 bit       | XL C/C++ V7             | OK   | OK
+ 5.12.2 |5.2 TL10 SP8 32 bit  | XL C/C++ V8             | OK   | OK
+ 5.12.2 |5.2 TL10 SP8 32 bit  | gcc 3.2.2               | OK   | OK
+ 5.12.2 |5.2 TL10 SP8 64 bit  | XL C/C++ V8             | OK   | OK
+ 5.12.2 |5.3 TL8 SP8 32 bit   | XL C/C++ V9 + IZ35785   | OK   | OK
+ 5.12.2 |5.3 TL8 SP8 32 bit   | gcc 4.2.4               | OK   | OK
+ 5.12.2 |5.3 TL8 SP8 64 bit   | XL C/C++ V9 + IZ35785   | OK   | OK
+ 5.12.2 |5.3 TL10 SP3 32 bit  | XL C/C++ V11 + Apr 2010 | OK   | OK
+ 5.12.2 |5.3 TL10 SP3 64 bit  | XL C/C++ V11 + Apr 2010 | OK   | OK
+ 5.12.2 |6.1 TL1 SP7 32 bit   | XL C/C++ V10            | OK   | OK
+ 5.12.2 |6.1 TL1 SP7 64 bit   | XL C/C++ V10            | OK   | OK
+ 5.13   |7.1 TL0 SP1 32 bit   | XL C/C++ V11 + Jul 2010 | OK   | OK
+ 5.13   |7.1 TL0 SP1 64 bit   | XL C/C++ V11 + Jul 2010 | OK   | OK
+
+ w th   = with thread support
+ w/o th = without thread support
+ OK     = tested
+
+Successfully tested means that all "make test" runs finish with a
+result of 100% OK. All tests were conducted with -Duseshrplib set.
+
+All tests were conducted on the oldest supported AIX technology level
+with the latest support package applied. If the tested AIX version is
+out of support (AIX 4.3.3, 5.1, 5.2) then the last available support
+level was used.
+
+=head2 Building Dynamic Extensions on AIX
+
+Starting from Perl 5.7.2 (and consequently 5.8.x / 5.10.x / 5.12.x)
+and AIX 4.3 or newer Perl uses the AIX native dynamic loading interface
+in the so called runtime linking mode instead of the emulated interface
+that was used in Perl releases 5.6.1 and earlier or, for AIX releases
+4.2 and earlier. This change does break backward compatibility with
+compiled modules from earlier Perl releases. The change was made to make
+Perl more compliant with other applications like Apache/mod_perl which are
+using the AIX native interface. This change also enables the use of
+C++ code with static constructors and destructors in Perl extensions,
+which was not possible using the emulated interface.
+
+It is highly recommended to use the new interface.
+
+=head2 Using Large Files with Perl
+
+Should yield no problems.
+
+=head2 Threaded Perl
+
+Should yield no problems with AIX 5.1 / 5.2 / 5.3 / 6.1 / 7.1.
+
+IBM uses the AIX system Perl (V5.6.0 on AIX 5.1 and V5.8.2 on
+AIX 5.2 / 5.3 and 6.1; V5.8.8 on AIX 5.3 TL11 and AIX 6.1 TL4; V5.10.1
+on AIX 7.1) for some AIX system scripts. If you switch the links in
+/usr/bin from the AIX system Perl (/usr/opt/perl5) to the newly build
+Perl then you get the same features as with the IBM AIX system Perl if
+the threaded options are used.
+
+The threaded Perl build works also on AIX 5.1 but the IBM Perl
+build (Perl v5.6.0) is not threaded on AIX 5.1.
+
+Perl 5.12 an newer is not compatible with the IBM fileset perl.libext.
+
+=head2 64-bit Perl
+
+If your AIX system is installed with 64-bit support, you can expect 64-bit
+configurations to work. If you want to use 64-bit Perl on AIX 6.1
+you need an APAR for a libc.a bug which affects (n)dbm_XXX functions.
+The APAR number for this problem is IZ39077.
+
+If you need more memory (larger data segment) for your Perl programs you
+can set:
+
+    /etc/security/limits
+    default:                    (or your user)
+        data = -1               (default is 262144 * 512 byte)
+
+With the default setting the size is limited to 128MB.
+The -1 removes this limit. If the "make test" fails please change
+your /etc/security/limits as stated above.
+
+=head2 Long doubles
+
+IBM calls its implementation of long doubles 128-bit, but it is not
+the IEEE 128-bit ("quadruple precision") which would give 116 bit of
+mantissa (nor it is implemented in hardware), instead it's a special
+software implementation called "double-double", which gives 106 bits
+of mantissa.
+
+There seem to be various problems in this long double implementation.
+If Configure detects this brokenness, it will disable the long double support.
+This can be overriden with explicit C<-Duselongdouble> (or C<-Dusemorebits>,
+which enables both long doubles and 64 bit integers).  If you decide to
+enable long doubles, for most of the broken things Perl has implemented
+workarounds, but the handling of the special values infinity and NaN
+remains badly broken: for example infinity plus zero results in NaN.
+
+=head2 Recommended Options AIX 5.1/5.2/5.3/6.1 and 7.1 (threaded/32-bit)
+
+With the following options you get a threaded Perl version which
+passes all make tests in threaded 32-bit mode, which is the default
+configuration for the Perl builds that AIX ships with.
+
+    rm config.sh
+    ./Configure \
+    -d \
+    -Dcc=cc_r \
+    -Duseshrplib \
+    -Dusethreads \
+    -Dprefix=/usr/opt/perl5_32
+
+The -Dprefix option will install Perl in a directory parallel to the 
+IBM AIX system Perl installation.
+
+=head2 Recommended Options AIX 5.1/5.2/5.3/6.1 and 7.1 (32-bit)
+
+With the following options you get a Perl version which passes 
+all make tests in 32-bit mode.
+
+    rm config.sh
+    ./Configure \
+    -d \
+    -Dcc=cc_r \
+    -Duseshrplib \
+    -Dprefix=/usr/opt/perl5_32
+
+The -Dprefix option will install Perl in a directory parallel to the
+IBM AIX system Perl installation.
+
+=head2 Recommended Options AIX 5.1/5.2/5.3/6.1 and 7.1 (threaded/64-bit)
+
+With the following options you get a threaded Perl version which
+passes all make tests in 64-bit mode.
+
+ export OBJECT_MODE=64 / setenv OBJECT_MODE 64 (depending on your shell)
+
+ rm config.sh
+ ./Configure \
+ -d \
+ -Dcc=cc_r \
+ -Duseshrplib \
+ -Dusethreads \
+ -Duse64bitall \
+ -Dprefix=/usr/opt/perl5_64
+
+=head2 Recommended Options AIX 5.1/5.2/5.3/6.1 and 7.1 (64-bit)
+
+With the following options you get a Perl version which passes all
+make tests in 64-bit mode. 
+
+ export OBJECT_MODE=64 / setenv OBJECT_MODE 64 (depending on your shell)
+
+ rm config.sh
+ ./Configure \
+ -d \
+ -Dcc=cc_r \
+ -Duseshrplib \
+ -Duse64bitall \
+ -Dprefix=/usr/opt/perl5_64
+
+The -Dprefix option will install Perl in a directory parallel to the
+IBM AIX system Perl installation.
+
+If you choose gcc to compile 64-bit Perl then you need to add the
+following option:
+
+    -Dcc='gcc -maix64'
+
+
+=head2 Compiling Perl 5 on AIX 7.1.0
+
+A regression in AIX 7 causes a failure in make test in Time::Piece during
+daylight savings time.  APAR IV16514 provides the fix for this.  A quick
+test to see if it's required, assuming it is currently daylight savings
+in Eastern Time, would be to run C< TZ=EST5 date +%Z >.  This will come
+back with C<EST> normally, but nothing if you have the problem.
+
+
+=head2 Compiling Perl 5 on older AIX versions up to 4.3.3
+
+Due to the fact that AIX 4.3.3 reached end-of-service in December 31,
+2003 this information is provided as is. The Perl versions prior to
+Perl 5.8.9 could be compiled on AIX up to 4.3.3 with the following
+settings (your mileage may vary):
+
+When compiling Perl, you must use an ANSI C compiler. AIX does not ship
+an ANSI compliant C-compiler with AIX by default, but binary builds of
+gcc for AIX are widely available.
+
+At the moment of writing, AIX supports two different native C compilers,
+for which you have to pay: B<xlC> and B<vac>. If you decide to use either
+of these two (which is quite a lot easier than using gcc), be sure to
+upgrade to the latest available patch level. Currently:
+
+    xlC.C     3.1.4.10 or 3.6.6.0 or 4.0.2.2 or 5.0.2.9 or 6.0.0.3
+    vac.C     4.4.0.3  or 5.0.2.6 or 6.0.0.1
+
+note that xlC has the OS version in the name as of version 4.0.2.0, so
+you will find xlC.C for AIX-5.0 as package
+
+    xlC.aix50.rte   5.0.2.0 or 6.0.0.3
+
+subversions are not the same "latest" on all OS versions. For example,
+the latest xlC-5 on aix41 is 5.0.2.9, while on aix43, it is 5.0.2.7.
+
+Perl can be compiled with either IBM's ANSI C compiler or with gcc.
+The former is recommended, as not only can it compile Perl with no
+difficulty, but also can take advantage of features listed later that
+require the use of IBM compiler-specific command-line flags.
+
+The IBM's compiler patch levels 5.0.0.0 and 5.0.1.0 have compiler
+optimization bugs that affect compiling perl.c and regcomp.c,
+respectively.  If Perl's configuration detects those compiler patch
+levels, optimization is turned off for the said source code files.
+Upgrading to at least 5.0.2.0 is recommended.
+
+If you decide to use gcc, make sure your installation is recent and
+complete, and be sure to read the Perl INSTALL file for more gcc-specific
+details. Please report any hoops you had to jump through to the development
+team.
+
+=head2 OS level
+
+Before installing the patches to the IBM C-compiler you need to know the
+level of patching for the Operating System. IBM's command 'oslevel' will
+show the base, but is not always complete (in this example oslevel shows
+4.3.NULL, whereas the system might run most of 4.3.THREE):
+
+    # oslevel
+    4.3.0.0
+    # lslpp -l | grep 'bos.rte '
+    bos.rte           4.3.3.75  COMMITTED  Base Operating System Runtime
+    bos.rte            4.3.2.0  COMMITTED  Base Operating System Runtime
+    #
+
+The same might happen to AIX 5.1 or other OS levels. As a side note, Perl
+cannot be built without bos.adt.syscalls and bos.adt.libm installed
+
+    # lslpp -l | egrep "syscalls|libm"
+    bos.adt.libm      5.1.0.25  COMMITTED  Base Application Development
+    bos.adt.syscalls  5.1.0.36  COMMITTED  System Calls Application
+    #
+
+=head2 Building Dynamic Extensions on AIX E<lt> 5L
+
+AIX supports dynamically loadable objects as well as shared libraries.
+Shared libraries by convention end with the suffix .a, which is a bit
+misleading, as an archive can contain static as well as dynamic members.
+For Perl dynamically loaded objects we use the .so suffix also used on
+many other platforms.
+
+Note that starting from Perl 5.7.2 (and consequently 5.8.0) and AIX 4.3
+or newer Perl uses the AIX native dynamic loading interface in the so
+called runtime linking mode instead of the emulated interface that was
+used in Perl releases 5.6.1 and earlier or, for AIX releases 4.2 and
+earlier.  This change does break backward compatibility with compiled
+modules from earlier Perl releases.  The change was made to make Perl
+more compliant with other applications like Apache/mod_perl which are
+using the AIX native interface. This change also enables the use of C++
+code with static constructors and destructors in Perl extensions, which
+was not possible using the emulated interface.
+
+=head2 The IBM ANSI C Compiler
+
+All defaults for Configure can be used.
+
+If you've chosen to use vac 4, be sure to run 4.4.0.3. Older versions
+will turn up nasty later on. For vac 5 be sure to run at least 5.0.1.0,
+but vac 5.0.2.6 or up is highly recommended. Note that since IBM has
+removed vac 5.0.2.1 through 5.0.2.5 from the software depot, these
+versions should be considered obsolete.
+
+Here's a brief lead of how to upgrade the compiler to the latest
+level.  Of course this is subject to changes.  You can only upgrade
+versions from ftp-available updates if the first three digit groups
+are the same (in where you can skip intermediate unlike the patches
+in the developer snapshots of Perl), or to one version up where the
+"base" is available.  In other words, the AIX compiler patches are
+cumulative.
+
+ vac.C.4.4.0.1 => vac.C.4.4.0.3  is OK     (vac.C.4.4.0.2 not needed)
+ xlC.C.3.1.3.3 => xlC.C.3.1.4.10 is NOT OK (xlC.C.3.1.4.0 is not
+                                                              available)
+
+ # ftp ftp.software.ibm.com
+ Connected to service.boulder.ibm.com.
+ : welcome message ...
+ Name (ftp.software.ibm.com:merijn): anonymous
+ 331 Guest login ok, send your complete e-mail address as password.
+ Password:
+ ... accepted login stuff
+ ftp> cd /aix/fixes/v4/
+ ftp> dir other other.ll
+ output to local-file: other.ll? y
+ 200 PORT command successful.
+ 150 Opening ASCII mode data connection for /bin/ls.
+ 226 Transfer complete.
+ ftp> dir xlc xlc.ll
+ output to local-file: xlc.ll? y
+ 200 PORT command successful.
+ 150 Opening ASCII mode data connection for /bin/ls.
+ 226 Transfer complete.
+ ftp> bye
+ ... goodbye messages
+ # ls -l *.ll
+ -rw-rw-rw-   1 merijn   system    1169432 Nov  2 17:29 other.ll
+ -rw-rw-rw-   1 merijn   system      29170 Nov  2 17:29 xlc.ll
+
+On AIX 4.2 using xlC, we continue:
+
+ # lslpp -l | fgrep 'xlC.C '
+   xlC.C                     3.1.4.9  COMMITTED  C for AIX Compiler
+   xlC.C                     3.1.4.0  COMMITTED  C for AIX Compiler
+ # grep 'xlC.C.3.1.4.*.bff' xlc.ll
+ -rw-r--r--   1 45776101 1       6286336 Jul 22 1996  xlC.C.3.1.4.1.bff
+ -rw-rw-r--   1 45776101 1       6173696 Aug 24 1998  xlC.C.3.1.4.10.bff
+ -rw-r--r--   1 45776101 1       6319104 Aug 14 1996  xlC.C.3.1.4.2.bff
+ -rw-r--r--   1 45776101 1       6316032 Oct 21 1996  xlC.C.3.1.4.3.bff
+ -rw-r--r--   1 45776101 1       6315008 Dec 20 1996  xlC.C.3.1.4.4.bff
+ -rw-rw-r--   1 45776101 1       6178816 Mar 28 1997  xlC.C.3.1.4.5.bff
+ -rw-rw-r--   1 45776101 1       6188032 May 22 1997  xlC.C.3.1.4.6.bff
+ -rw-rw-r--   1 45776101 1       6191104 Sep  5 1997  xlC.C.3.1.4.7.bff
+ -rw-rw-r--   1 45776101 1       6185984 Jan 13 1998  xlC.C.3.1.4.8.bff
+ -rw-rw-r--   1 45776101 1       6169600 May 27 1998  xlC.C.3.1.4.9.bff
+ # wget ftp://ftp.software.ibm.com/aix/fixes/v4/xlc/xlC.C.3.1.4.10.bff
+ #
+
+On AIX 4.3 using vac, we continue:
+
+ # lslpp -l | grep 'vac.C '
+  vac.C                      5.0.2.2  COMMITTED  C for AIX Compiler
+  vac.C                      5.0.2.0  COMMITTED  C for AIX Compiler
+ # grep 'vac.C.5.0.2.*.bff' other.ll
+ -rw-rw-r--   1 45776101 1       13592576 Apr 16 2001  vac.C.5.0.2.0.bff
+ -rw-rw-r--   1 45776101 1       14133248 Apr  9 2002  vac.C.5.0.2.3.bff
+ -rw-rw-r--   1 45776101 1       14173184 May 20 2002  vac.C.5.0.2.4.bff
+ -rw-rw-r--   1 45776101 1       14192640 Nov 22 2002  vac.C.5.0.2.6.bff
+ # wget ftp://ftp.software.ibm.com/aix/fixes/v4/other/vac.C.5.0.2.6.bff
+ #
+
+Likewise on all other OS levels. Then execute the following command, and
+fill in its choices
+
+ # smit install_update
+  -> Install and Update from LATEST Available Software
+  * INPUT device / directory for software [ vac.C.5.0.2.6.bff    ]
+  [ OK ]
+  [ OK ]
+
+Follow the messages ... and you're done.
+
+If you like a more web-like approach, a good start point can be
+http://www14.software.ibm.com/webapp/download/downloadaz.jsp and click
+"C for AIX", and follow the instructions.
+
+=head2 The usenm option
+
+If linking miniperl
+
+ cc -o miniperl ... miniperlmain.o opmini.o perl.o ... -lm -lc ...
+
+causes error like this
+
+ ld: 0711-317 ERROR: Undefined symbol: .aintl
+ ld: 0711-317 ERROR: Undefined symbol: .copysignl
+ ld: 0711-317 ERROR: Undefined symbol: .syscall
+ ld: 0711-317 ERROR: Undefined symbol: .eaccess
+ ld: 0711-317 ERROR: Undefined symbol: .setresuid
+ ld: 0711-317 ERROR: Undefined symbol: .setresgid
+ ld: 0711-317 ERROR: Undefined symbol: .setproctitle
+ ld: 0711-345 Use the -bloadmap or -bnoquiet option to obtain more
+                                                            information.
+
+you could retry with
+
+ make realclean
+ rm config.sh
+ ./Configure -Dusenm ...
+
+which makes Configure to use the C<nm> tool when scanning for library
+symbols, which usually is not done in AIX.
+
+Related to this, you probably should not use the C<-r> option of
+Configure in AIX, because that affects of how the C<nm> tool is used.
+
+=head2 Using GNU's gcc for building Perl
+
+Using gcc-3.x (tested with 3.0.4, 3.1, and 3.2) now works out of the box,
+as do recent gcc-2.9 builds available directly from IBM as part of their
+Linux compatibility packages, available here:
+
+  http://www.ibm.com/servers/aix/products/aixos/linux/
+
+=head2 Using Large Files with Perl E<lt> 5L
+
+Should yield no problems.
+
+=head2 Threaded Perl E<lt> 5L
+
+Threads seem to work OK, though at the moment not all tests pass when
+threads are used in combination with 64-bit configurations.
+
+You may get a warning when doing a threaded build:
+
+  "pp_sys.c", line 4640.39: 1506-280 (W) Function argument assignment 
+  between types "unsigned char*" and "const void*" is not allowed.
+
+The exact line number may vary, but if the warning (W) comes from a line
+line this
+
+  hent = PerlSock_gethostbyaddr(addr, (Netdb_hlen_t) addrlen, addrtype);
+
+in the "pp_ghostent" function, you may ignore it safely.  The warning
+is caused by the reentrant variant of gethostbyaddr() having a slightly
+different prototype than its non-reentrant variant, but the difference
+is not really significant here.
+
+=head2 64-bit Perl E<lt> 5L
+
+If your AIX is installed with 64-bit support, you can expect 64-bit
+configurations to work. In combination with threads some tests might
+still fail.
+
+=head2 AIX 4.2 and extensions using C++ with statics
+
+In AIX 4.2 Perl extensions that use C++ functions that use statics
+may have problems in that the statics are not getting initialized.
+In newer AIX releases this has been solved by linking Perl with
+the libC_r library, but unfortunately in AIX 4.2 the said library
+has an obscure bug where the various functions related to time
+(such as time() and gettimeofday()) return broken values, and
+therefore in AIX 4.2 Perl is not linked against the libC_r.
+
+=head1 AUTHORS
+
+Rainer Tammer <tammer@tammer.net>
+
+=cut
diff --git a/lib/5.24.1/pod/perlamiga.pod b/lib/5.24.1/pod/perlamiga.pod
new file mode 100644
index 00000000..41345c1a
--- /dev/null
+++ b/lib/5.24.1/pod/perlamiga.pod
@@ -0,0 +1,223 @@
+If you read this file _as_is_, just ignore the funny characters you
+see. It is written in the POD format (see perlpod manpage) which is
+specially designed to be readable as is.
+
+=head1 NAME
+
+perlamiga - Perl under AmigaOS 4.1
+
+=head1 NOTE
+
+This is a port of Perl 5.22.1, it is a fresh port and not in any way
+compatible with my previous ports of Perl 5.8 and 5.16.3. This means
+you will need to reinstall / rebuild any third party modules you have
+installed.
+
+newlib.library version 53.28 or greater is required.
+
+=head1 SYNOPSIS
+
+Once perl is installed you can read this document in the following way
+
+	sh -c "perldoc perlamiga"
+
+or you may read I<as is>: either as F<README.amiga>, or F<pod/perlamiga.pod>.
+
+=cut
+
+       NAME
+       SYNOPSIS
+       DESCRIPTION
+         -  Prerequisites
+         -  Starting Perl programs under AmigaOS
+         -  Shortcomings of Perl under AmigaOS
+       INSTALLATION
+       CHANGES
+
+=head1 DESCRIPTION
+
+=head2 Prerequisites for running Perl 5.22.1 under AmigaOS 4.1
+
+=over 6
+
+=item B<AmigaOS 4.1 update 6 with all updates applied as of 9th October 2013>
+
+The most important of which is:
+
+=item B<newlib.library version 53.28 or greater>
+
+=item B<AmigaOS SDK>
+
+Perl installs into the SDK directory structure and expects many of the
+build tools present in the SDK to be available. So for the best results
+install the SDK first.
+
+=item B<abc-shell>
+
+If you do not have the SDK installed you must at least have abc-shell
+installed or some other suitable sh port. This is required to run
+external commands and should be available as 'sh' in your path.
+
+=back
+
+=head2 Starting Perl programs under AmigaOS 4.1
+
+Perl may be run from the AmigaOS shell but for best results should be
+run under abc-shell.  (abc-shell handles file globbing, pattern
+expansion, and sets up environment variables in the UN*Xy way that
+Perl expects.)
+
+For example:
+
+	New Shell process 10
+	10.AmigaOS4:> sh
+	/AmigaOS4>perl path:to/myprog arg1 arrg2 arg3
+
+Abc-shell can also launch programs via the #! syntax at the start of
+the program file, it's best use the form #!SDK:Local/C/perl so that
+the AmigaOS shell may also find perl in the same way. AmigaOS requires
+the script bit to be set for this to work
+
+	10.AmigaOS4:> sh
+	/AmigaOS4>myprog arg1 arrg2 arg3
+
+=head2 Limitations of Perl under AmigaOS 4.1
+
+=over 6
+
+=item B<Nested Piped programs can crash when run from older abc-shells>
+
+abc-shell version 53.2 has a bug that can cause crashes in the
+subprocesses used to run piped programs, if a later version is
+available you should install it instead.
+
+=item B<Incorrect or unexpected command line unescaping>
+
+newlib.library 53.30 and earlier incorrectly unescape slashed escape
+sequences e.g. \" \n \t etc requiring unusual extra escaping.
+
+=item B<Starting subprocesses via open has limitations>
+
+	open FH, "command |"
+
+Subprocesses started with open use a minimal popen() routine and
+therefore they do not return pids usable with waitpid etc.
+
+=item If you find any other limitations or bugs then let me know.
+
+Please report bugs in this version of perl to andy@broad.ology.org.uk
+in the first instance.
+
+=back
+
+=head1 INSTALLATION
+
+This guide assumes you have obtained a prebuilt archive from os4depot.net.
+
+Unpack the main archive to a temporary location (RAM: is fine).
+
+Execute the provided install script from shell or via its icon.
+
+You B<must not> attempt to install by hand.
+
+Once installed you may delete the temporary archive.
+
+This approach will preserve links in the installation without creating
+duplicate binaries.
+
+If you have the earlier ports perl 5.16 or 5.8 installed you may like
+to rename your perl executable to perl516 or perl58 or something
+similar before the installation of 5.22.1, this will allow you to use
+both versions at the same time.
+
+=head1 Amiga Specific Modules
+
+=head2 Amiga::ARexx
+
+The Amiga::ARexx module allows you to easily create a perl based ARexx
+host or to send ARexx commands to other programs.
+
+Try C<perldoc Amiga::ARexx> for more info.
+
+=head2 Amiga::Exec
+
+The Amiga::Exec module introduces support for Wait().
+
+Try C<perldoc Amiga::Exec> for more info.
+
+=head1 BUILDING
+
+To build perl under AmigaOS from the patched sources you will need to
+have a recent version of the SDK. Version 53.29 is recommended,
+earlier versions will probably work too.
+
+With the help of Jarkko Hietaniemi the Configure system has been tweaked to
+run under abc-shell so the recommend build process is as follows.
+
+	stack 2000000
+	sh Configure -de
+	gmake
+
+This will build the default setup that installs under SDK:local/newlib/lib/
+
+=head1 CHANGES
+
+=over 6
+
+=item B<August 2015>
+
+=over 2
+
+=item Port to Perl 5.22
+
+=item Add handling of NIL: to afstat()
+
+=item Fix inheritance of environment variables by subprocesses.
+
+=item Fix exec, and exit in "forked" subprocesses.
+
+=item Fix issue with newlib's unlink, which could cause infinite loops.
+
+=item Add flock() emulation using IDOS->LockRecord thanks to Tony Cook
+for the suggestion.
+
+=item Fix issue where kill was using the wrong kind of process ID
+
+=back
+
+=item B<27th November 2013>
+
+=over 2
+
+=item Create new installation system based on installperl links
+and Amiga protection bits now set correctly.
+
+=item Pod now defaults to text.
+
+=item File::Spec should now recognise an Amiga style absolute path as well
+as an Unix style one. Relative paths must always be Unix style.
+
+=back
+
+=item B<20th November 2013>
+
+=over 2
+
+=item Configured to use SDK:Local/C/perl to start standard scripts
+
+=item Added Amiga::Exec module with support for Wait() and AmigaOS signal numbers.
+
+=back
+
+=item B<10th October 13>
+
+First release of port to 5.16.3.
+
+=back
+
+=head1 SEE ALSO
+
+You like this port?  See L<http://www.broad.ology.org.uk/amiga/>
+for how you can help.
+
+=cut
diff --git a/lib/5.24.1/pod/perlandroid.pod b/lib/5.24.1/pod/perlandroid.pod
new file mode 100644
index 00000000..defcd959
--- /dev/null
+++ b/lib/5.24.1/pod/perlandroid.pod
@@ -0,0 +1,204 @@
+If you read this file _as_is_, just ignore the funny characters you
+see. It is written in the POD format (see pod/perlpod.pod) which is
+specially designed to be readable as is.
+
+=head1 NAME
+
+perlandroid - Perl under Android
+
+=head1 SYNOPSIS
+
+The first portions of this documents contains instructions
+to cross-compile Perl for Android 2.0 and later, using the
+binaries provided by Google.  The latter portion describes how to build
+perl native using one of the toolchains available on the Play Store.
+
+=head1 DESCRIPTION
+
+This document describes how to set up your host environment when
+attempting to build Perl for Android.
+
+=head1 Cross-compilation
+
+These instructions assume an Unixish build environment on your host system;
+they've been tested on Linux and OS X, and may work on Cygwin and MSYS.
+While Google also provides an NDK for Windows, these steps won't work
+native there, although it may be possible to cross-compile through different
+means.
+
+If your host system's architecture is 32 bits, remember to change the
+C<x86_64>'s below to C<x86>'s.  On a similar vein, the examples below
+use the 4.8 toolchain; if you want to use something older or newer (for
+example, the 4.4.3 toolchain included in the 8th revision of the NDK), just
+change those to the relevant version.
+
+=head2 Get the Android Native Development Kit (NDK)
+
+You can download the NDK from L<https://developer.android.com/tools/sdk/ndk/index.html>.
+You'll want the normal, non-legacy version.
+
+=head2 Determine the architecture you'll be cross-compiling for
+
+There's three possible options: arm-linux-androideabi for ARM,
+mipsel-linux-android for MIPS, and simply x86 for x86.
+As of 2014, most Android devices run on ARM, so that is generally a safe bet.
+
+With those two in hand, you should add
+
+  $ANDROID_NDK/toolchains/$TARGETARCH-4.8/prebuilt/`uname | tr '[A-Z]' '[a-z]'`-x86_64/bin
+
+to your C<PATH>, where C<$ANDROID_NDK> is the location where you unpacked the
+NDK, and C<$TARGETARCH> is your target's architecture.
+
+=head2 Set up a standalone toolchain
+
+This creates a working sysroot that we can feed to Configure later.
+
+    $ export ANDROID_TOOLCHAIN=/tmp/my-toolchain-$TARGETARCH
+    $ export SYSROOT=$ANDROID_TOOLCHAIN/sysroot
+    $ $ANDROID_NDK/build/tools/make-standalone-toolchain.sh \
+            --platform=android-9 \
+            --install-dir=$ANDROID_TOOLCHAIN \
+            --system=`uname | tr '[A-Z]' '[a-z]'`-x86_64 \
+            --toolchain=$TARGETARCH-4.8
+
+=head2 adb or ssh?
+
+adb is the Android Debug Bridge.  For our purposes, it's basically a way
+of establishing an ssh connection to an Android device without having to
+install anything on the device itself, as long as the device is either on
+the same local network as the host, or it is connected to the host through
+USB.
+
+Perl can be cross-compiled using either adb or a normal ssh connection;
+in general, if you can connect your device to the host using a USB port,
+or if you don't feel like installing an sshd app on your device,
+you may want to use adb, although you may be forced to switch to ssh if
+your device is not rooted and you're unlucky -- more on that later.
+Alternatively, if you're cross-compiling to an emulator, you'll have to
+use adb.
+
+=head3 adb
+
+To use adb, download the Android SDK from L<https://developer.android.com/sdk/index.html>.
+The "SDK Tools Only" version should suffice -- if you downloaded the ADT
+Bundle, you can find the sdk under F<$ADT_BUNDLE/sdk/>.
+
+Add F<$ANDROID_SDK/platform-tools> to your C<PATH>, which should give you access
+to adb.  You'll now have to find your device's name using C<adb devices>,
+and later pass that to Configure through C<-Dtargethost=$DEVICE>.
+
+However, before calling Configure, you need to check if using adb is a
+viable choice in the first place.  Because Android doesn't have a F</tmp>,
+nor does it allow executables in the sdcard, we need to find somewhere in
+the device for Configure to put some files in, as well as for the tests
+to run in. If your device is rooted, then you're good.  Try running these:
+
+    $ export TARGETDIR=/mnt/asec/perl
+    $ adb -s $DEVICE shell "echo sh -c '\"mkdir $TARGETDIR\"' | su --"
+
+Which will create the directory we need, and you can move on to the next
+step.  F</mnt/asec> is mounted as a tmpfs in Android, but it's only
+accessible to root.
+
+If your device is not rooted, you may still be in luck. Try running this:
+
+    $ export TARGETDIR=/data/local/tmp/perl
+    $ adb -s $DEVICE shell "mkdir $TARGETDIR"
+
+If the command works, you can move to the next step, but beware:
+B<You'll have to remove the directory from the device once you are done!
+Unlike F</mnt/asec>, F</data/local/tmp> may not get automatically garbage
+collected once you shut off the phone>.
+
+If neither of those work, then you can't use adb to cross-compile to your
+device.  Either try rooting it, or go for the ssh route.
+
+=head3 ssh
+
+To use ssh, you'll need to install and run a sshd app and set it up
+properly.  There are several paid and free apps that do this rather
+easily, so you should be able to spot one on the store.
+Remember that Perl requires a passwordless connection, so set up a 
+public key.
+
+Note that several apps spew crap to stderr every time you
+connect, which can throw off Configure.  You may need to monkeypatch
+the part of Configure that creates C<run-ssh> to have it discard stderr.
+
+Since you're using ssh, you'll have to pass some extra arguments to
+Configure:
+
+  -Dtargetrun=ssh -Dtargethost=$TARGETHOST -Dtargetuser=$TARGETUSER -Dtargetport=$TARGETPORT
+
+=head2 Configure and beyond
+
+With all of the previous done, you're now ready to call Configure.
+
+If using adb, a "basic" Configure line will look like this:
+
+  $ ./Configure -des -Dusedevel -Dusecrosscompile -Dtargetrun=adb \
+      -Dcc=$TARGETARCH-gcc   \
+      -Dsysroot=$SYSROOT     \
+      -Dtargetdir=$TARGETDIR \
+      -Dtargethost=$DEVICE
+
+If using ssh, it's not too different -- we just change targetrun to ssh,
+and pass in targetuser and targetport.  It ends up looking like this:
+
+  $ ./Configure -des -Dusedevel -Dusecrosscompile -Dtargetrun=ssh \
+      -Dcc=$TARGETARCH-gcc        \
+      -Dsysroot=$SYSROOT          \
+      -Dtargetdir=$TARGETDIR      \
+      -Dtargethost="$TARGETHOST"  \
+      -Dtargetuser=$TARGETUSER    \
+      -Dtargetport=$TARGETPORT
+
+Now you're ready to run C<make> and C<make test>!
+
+As a final word of warning, if you're using adb, C<make test> may appear to
+hang; this is because it doesn't output anything until it finishes
+running all tests.  You can check its progress by logging into the
+device, moving to F<$TARGETDIR>, and looking at the file F<output.stdout>.
+
+=head3 Notes
+
+=over
+
+=item *
+
+If you are targetting x86 Android, you will have to change C<$TARGETARCH-gcc>
+to C<i686-linux-android-gcc>.
+
+=item *
+
+On some older low-end devices -- think early 2.2 era -- some tests,
+particularly F<t/re/uniprops.t>, may crash the phone, causing it to turn
+itself off once, and then back on again.
+
+=back
+
+=head1 Native Builds
+
+While Google doesn't provide a native toolchain for Android,
+you can still get one from the Play Store; for example, there's the CCTools
+app which you can get for free.
+Keep in mind that you want a full
+toolchain; some apps tend to default to installing only a barebones
+version without some important utilities, like ar or nm.
+
+Once you have the toolchain set up properly, the only
+remaining hurdle is actually locating where in the device it was installed
+in.  For example, CCTools installs its toolchain in 
+F</data/data/com.pdaxrom.cctools/root/cctools>.  With the path in hand,
+compiling perl is little more than:
+
+ export SYSROOT=<location of the native toolchain>
+ export LD_LIBRARY_PATH="$SYSROOT/lib:`pwd`:`pwd`/lib:`pwd`/lib/auto:$LD_LIBRARY_PATH"
+ sh Configure -des -Dsysroot=$SYSROOT -Alibpth="/system/lib /vendor/lib"
+
+=head1 AUTHOR
+
+Brian Fraser <fraserbn@gmail.com>
+
+=cut
diff --git a/lib/5.24.1/pod/perlapi.pod b/lib/5.24.1/pod/perlapi.pod
new file mode 100644
index 00000000..4ef0ad8c
--- /dev/null
+++ b/lib/5.24.1/pod/perlapi.pod
@@ -0,0 +1,15241 @@
+-*- buffer-read-only: t -*-
+!!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+This file is built by autodoc.pl extracting documentation from the C source
+files.
+Any changes made here will be lost!
+
+=head1 NAME
+
+perlapi - autogenerated documentation for the perl public API
+
+=head1 DESCRIPTION
+X<Perl API> X<API> X<api>
+
+This file contains the documentation of the perl public API generated by
+F<embed.pl>, specifically a listing of functions, macros, flags, and variables
+that may be used by extension writers.  L<At the end|/Undocumented functions>
+is a list of functions which have yet to be documented.  The interfaces of
+those are subject to change without notice.  Anything not listed here is
+not part of the public API, and should not be used by extension writers at
+all.  For these reasons, blindly using functions listed in proto.h is to be
+avoided when writing extensions.
+
+In Perl, unlike C, a string of characters may generally contain embedded
+C<NUL> characters.  Sometimes in the documentation a Perl string is referred
+to as a "buffer" to distinguish it from a C string, but sometimes they are
+both just referred to as strings.
+
+Note that all Perl API global variables must be referenced with the C<PL_>
+prefix.  Again, those not listed here are not to be used by extension writers,
+and can be changed or removed without notice; same with macros.
+Some macros are provided for compatibility with the older,
+unadorned names, but this support may be disabled in a future release.
+
+Perl was originally written to handle US-ASCII only (that is characters
+whose ordinal numbers are in the range 0 - 127).
+And documentation and comments may still use the term ASCII, when
+sometimes in fact the entire range from 0 - 255 is meant.
+
+The non-ASCII characters below 256 can have various meanings, depending on
+various things.  (See, most notably, L<perllocale>.)  But usually the whole
+range can be referred to as ISO-8859-1.  Often, the term "Latin-1" (or
+"Latin1") is used as an equivalent for ISO-8859-1.  But some people treat
+"Latin1" as referring just to the characters in the range 128 through 255, or
+somethimes from 160 through 255.
+This documentation uses "Latin1" and "Latin-1" to refer to all 256 characters.
+
+Note that Perl can be compiled and run under either ASCII or EBCDIC (See
+L<perlebcdic>).  Most of the documentation (and even comments in the code)
+ignore the EBCDIC possibility.  
+For almost all purposes the differences are transparent.
+As an example, under EBCDIC,
+instead of UTF-8, UTF-EBCDIC is used to encode Unicode strings, and so
+whenever this documentation refers to C<utf8>
+(and variants of that name, including in function names),
+it also (essentially transparently) means C<UTF-EBCDIC>.
+But the ordinals of characters differ between ASCII, EBCDIC, and
+the UTF- encodings, and a string encoded in UTF-EBCDIC may occupy a different
+number of bytes than in UTF-8.
+
+The listing below is alphabetical, case insensitive.
+
+
+=head1 Array Manipulation Functions
+
+=over 8
+
+=item av_clear
+X<av_clear>
+
+Frees the all the elements of an array, leaving it empty.
+The XS equivalent of C<@array = ()>.  See also L</av_undef>.
+
+Note that it is possible that the actions of a destructor called directly
+or indirectly by freeing an element of the array could cause the reference
+count of the array itself to be reduced (e.g. by deleting an entry in the
+symbol table). So it is a possibility that the AV could have been freed
+(or even reallocated) on return from the call unless you hold a reference
+to it.
+
+	void	av_clear(AV *av)
+
+=for hackers
+Found in file av.c
+
+=item av_create_and_push
+X<av_create_and_push>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Push an SV onto the end of the array, creating the array if necessary.
+A small internal helper function to remove a commonly duplicated idiom.
+
+	void	av_create_and_push(AV **const avp,
+		                   SV *const val)
+
+=for hackers
+Found in file av.c
+
+=item av_create_and_unshift_one
+X<av_create_and_unshift_one>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Unshifts an SV onto the beginning of the array, creating the array if
+necessary.
+A small internal helper function to remove a commonly duplicated idiom.
+
+	SV**	av_create_and_unshift_one(AV **const avp,
+		                          SV *const val)
+
+=for hackers
+Found in file av.c
+
+=item av_delete
+X<av_delete>
+
+Deletes the element indexed by C<key> from the array, makes the element mortal,
+and returns it.  If C<flags> equals C<G_DISCARD>, the element is freed and null
+is returned.  Perl equivalent: S<C<my $elem = delete($myarray[$idx]);>> for the
+non-C<G_DISCARD> version and a void-context S<C<delete($myarray[$idx]);>> for the
+C<G_DISCARD> version.
+
+	SV*	av_delete(AV *av, SSize_t key, I32 flags)
+
+=for hackers
+Found in file av.c
+
+=item av_exists
+X<av_exists>
+
+Returns true if the element indexed by C<key> has been initialized.
+
+This relies on the fact that uninitialized array elements are set to
+C<NULL>.
+
+Perl equivalent: C<exists($myarray[$key])>.
+
+	bool	av_exists(AV *av, SSize_t key)
+
+=for hackers
+Found in file av.c
+
+=item av_extend
+X<av_extend>
+
+Pre-extend an array.  The C<key> is the index to which the array should be
+extended.
+
+	void	av_extend(AV *av, SSize_t key)
+
+=for hackers
+Found in file av.c
+
+=item av_fetch
+X<av_fetch>
+
+Returns the SV at the specified index in the array.  The C<key> is the
+index.  If lval is true, you are guaranteed to get a real SV back (in case
+it wasn't real before), which you can then modify.  Check that the return
+value is non-null before dereferencing it to a C<SV*>.
+
+See L<perlguts/"Understanding the Magic of Tied Hashes and Arrays"> for
+more information on how to use this function on tied arrays. 
+
+The rough perl equivalent is C<$myarray[$idx]>.
+
+	SV**	av_fetch(AV *av, SSize_t key, I32 lval)
+
+=for hackers
+Found in file av.c
+
+=item AvFILL
+X<AvFILL>
+
+Same as C<av_top_index()>.  Deprecated, use C<av_top_index()> instead.
+
+	int	AvFILL(AV* av)
+
+=for hackers
+Found in file av.h
+
+=item av_fill
+X<av_fill>
+
+Set the highest index in the array to the given number, equivalent to
+Perl's S<C<$#array = $fill;>>.
+
+The number of elements in the array will be S<C<fill + 1>> after
+C<av_fill()> returns.  If the array was previously shorter, then the
+additional elements appended are set to NULL.  If the array
+was longer, then the excess elements are freed.  S<C<av_fill(av, -1)>> is
+the same as C<av_clear(av)>.
+
+	void	av_fill(AV *av, SSize_t fill)
+
+=for hackers
+Found in file av.c
+
+=item av_len
+X<av_len>
+
+Same as L</av_top_index>.  Note that, unlike what the name implies, it returns
+the highest index in the array, so to get the size of the array you need to use
+S<C<av_len(av) + 1>>.  This is unlike L</sv_len>, which returns what you would
+expect.
+
+	SSize_t	av_len(AV *av)
+
+=for hackers
+Found in file av.c
+
+=item av_make
+X<av_make>
+
+Creates a new AV and populates it with a list of SVs.  The SVs are copied
+into the array, so they may be freed after the call to C<av_make>.  The new AV
+will have a reference count of 1.
+
+Perl equivalent: C<my @new_array = ($scalar1, $scalar2, $scalar3...);>
+
+	AV*	av_make(SSize_t size, SV **strp)
+
+=for hackers
+Found in file av.c
+
+=item av_pop
+X<av_pop>
+
+Removes one SV from the end of the array, reducing its size by one and
+returning the SV (transferring control of one reference count) to the
+caller.  Returns C<&PL_sv_undef> if the array is empty.
+
+Perl equivalent: C<pop(@myarray);>
+
+	SV*	av_pop(AV *av)
+
+=for hackers
+Found in file av.c
+
+=item av_push
+X<av_push>
+
+Pushes an SV (transferring control of one reference count) onto the end of the
+array.  The array will grow automatically to accommodate the addition.
+
+Perl equivalent: C<push @myarray, $elem;>.
+
+	void	av_push(AV *av, SV *val)
+
+=for hackers
+Found in file av.c
+
+=item av_shift
+X<av_shift>
+
+Removes one SV from the start of the array, reducing its size by one and
+returning the SV (transferring control of one reference count) to the
+caller.  Returns C<&PL_sv_undef> if the array is empty.
+
+Perl equivalent: C<shift(@myarray);>
+
+	SV*	av_shift(AV *av)
+
+=for hackers
+Found in file av.c
+
+=item av_store
+X<av_store>
+
+Stores an SV in an array.  The array index is specified as C<key>.  The
+return value will be C<NULL> if the operation failed or if the value did not
+need to be actually stored within the array (as in the case of tied
+arrays).  Otherwise, it can be dereferenced
+to get the C<SV*> that was stored
+there (= C<val>)).
+
+Note that the caller is responsible for suitably incrementing the reference
+count of C<val> before the call, and decrementing it if the function
+returned C<NULL>.
+
+Approximate Perl equivalent: C<$myarray[$key] = $val;>.
+
+See L<perlguts/"Understanding the Magic of Tied Hashes and Arrays"> for
+more information on how to use this function on tied arrays.
+
+	SV**	av_store(AV *av, SSize_t key, SV *val)
+
+=for hackers
+Found in file av.c
+
+=item av_tindex
+X<av_tindex>
+
+Same as C<av_top_index()>.
+
+	int	av_tindex(AV* av)
+
+=for hackers
+Found in file av.h
+
+=item av_top_index
+X<av_top_index>
+
+Returns the highest index in the array.  The number of elements in the
+array is S<C<av_top_index(av) + 1>>.  Returns -1 if the array is empty.
+
+The Perl equivalent for this is C<$#myarray>.
+
+(A slightly shorter form is C<av_tindex>.)
+
+	SSize_t	av_top_index(AV *av)
+
+=for hackers
+Found in file av.c
+
+=item av_undef
+X<av_undef>
+
+Undefines the array. The XS equivalent of C<undef(@array)>.
+
+As well as freeing all the elements of the array (like C<av_clear()>), this
+also frees the memory used by the av to store its list of scalars.
+
+See L</av_clear> for a note about the array possibly being invalid on
+return.
+
+	void	av_undef(AV *av)
+
+=for hackers
+Found in file av.c
+
+=item av_unshift
+X<av_unshift>
+
+Unshift the given number of C<undef> values onto the beginning of the
+array.  The array will grow automatically to accommodate the addition.  You
+must then use C<av_store> to assign values to these new elements.
+
+Perl equivalent: S<C<unshift @myarray, ( (undef) x $n );>>
+
+	void	av_unshift(AV *av, SSize_t num)
+
+=for hackers
+Found in file av.c
+
+=item get_av
+X<get_av>
+
+Returns the AV of the specified Perl global or package array with the given
+name (so it won't work on lexical variables).  C<flags> are passed 
+to C<gv_fetchpv>.  If C<GV_ADD> is set and the
+Perl variable does not exist then it will be created.  If C<flags> is zero
+and the variable does not exist then NULL is returned.
+
+Perl equivalent: C<@{"$name"}>.
+
+NOTE: the perl_ form of this function is deprecated.
+
+	AV*	get_av(const char *name, I32 flags)
+
+=for hackers
+Found in file perl.c
+
+=item newAV
+X<newAV>
+
+Creates a new AV.  The reference count is set to 1.
+
+Perl equivalent: C<my @array;>.
+
+	AV*	newAV()
+
+=for hackers
+Found in file av.h
+
+=item sortsv
+X<sortsv>
+
+Sort an array.  Here is an example:
+
+    sortsv(AvARRAY(av), av_top_index(av)+1, Perl_sv_cmp_locale);
+
+Currently this always uses mergesort.  See C<L</sortsv_flags>> for a more
+flexible routine.
+
+	void	sortsv(SV** array, size_t num_elts,
+		       SVCOMPARE_t cmp)
+
+=for hackers
+Found in file pp_sort.c
+
+=item sortsv_flags
+X<sortsv_flags>
+
+Sort an array, with various options.
+
+	void	sortsv_flags(SV** array, size_t num_elts,
+		             SVCOMPARE_t cmp, U32 flags)
+
+=for hackers
+Found in file pp_sort.c
+
+
+=back
+
+=head1 Callback Functions
+
+=over 8
+
+=item call_argv
+X<call_argv>
+
+Performs a callback to the specified named and package-scoped Perl subroutine 
+with C<argv> (a C<NULL>-terminated array of strings) as arguments.  See
+L<perlcall>.
+
+Approximate Perl equivalent: C<&{"$sub_name"}(@$argv)>.
+
+NOTE: the perl_ form of this function is deprecated.
+
+	I32	call_argv(const char* sub_name, I32 flags,
+		          char** argv)
+
+=for hackers
+Found in file perl.c
+
+=item call_method
+X<call_method>
+
+Performs a callback to the specified Perl method.  The blessed object must
+be on the stack.  See L<perlcall>.
+
+NOTE: the perl_ form of this function is deprecated.
+
+	I32	call_method(const char* methname, I32 flags)
+
+=for hackers
+Found in file perl.c
+
+=item call_pv
+X<call_pv>
+
+Performs a callback to the specified Perl sub.  See L<perlcall>.
+
+NOTE: the perl_ form of this function is deprecated.
+
+	I32	call_pv(const char* sub_name, I32 flags)
+
+=for hackers
+Found in file perl.c
+
+=item call_sv
+X<call_sv>
+
+Performs a callback to the Perl sub specified by the SV.
+
+If neither the C<G_METHOD> nor C<G_METHOD_NAMED> flag is supplied, the
+SV may be any of a CV, a GV, a reference to a CV, a reference to a GV
+or C<SvPV(sv)> will be used as the name of the sub to call.
+
+If the C<G_METHOD> flag is supplied, the SV may be a reference to a CV or
+C<SvPV(sv)> will be used as the name of the method to call.
+
+If the C<G_METHOD_NAMED> flag is supplied, C<SvPV(sv)> will be used as
+the name of the method to call.
+
+Some other values are treated specially for internal use and should
+not be depended on.
+
+See L<perlcall>.
+
+NOTE: the perl_ form of this function is deprecated.
+
+	I32	call_sv(SV* sv, VOL I32 flags)
+
+=for hackers
+Found in file perl.c
+
+=item ENTER
+X<ENTER>
+
+Opening bracket on a callback.  See C<L</LEAVE>> and L<perlcall>.
+
+		ENTER;
+
+=for hackers
+Found in file scope.h
+
+=item eval_pv
+X<eval_pv>
+
+Tells Perl to C<eval> the given string in scalar context and return an SV* result.
+
+NOTE: the perl_ form of this function is deprecated.
+
+	SV*	eval_pv(const char* p, I32 croak_on_error)
+
+=for hackers
+Found in file perl.c
+
+=item eval_sv
+X<eval_sv>
+
+Tells Perl to C<eval> the string in the SV.  It supports the same flags
+as C<call_sv>, with the obvious exception of C<G_EVAL>.  See L<perlcall>.
+
+NOTE: the perl_ form of this function is deprecated.
+
+	I32	eval_sv(SV* sv, I32 flags)
+
+=for hackers
+Found in file perl.c
+
+=item FREETMPS
+X<FREETMPS>
+
+Closing bracket for temporaries on a callback.  See C<L</SAVETMPS>> and
+L<perlcall>.
+
+		FREETMPS;
+
+=for hackers
+Found in file scope.h
+
+=item LEAVE
+X<LEAVE>
+
+Closing bracket on a callback.  See C<L</ENTER>> and L<perlcall>.
+
+		LEAVE;
+
+=for hackers
+Found in file scope.h
+
+=item SAVETMPS
+X<SAVETMPS>
+
+Opening bracket for temporaries on a callback.  See C<L</FREETMPS>> and
+L<perlcall>.
+
+		SAVETMPS;
+
+=for hackers
+Found in file scope.h
+
+
+=back
+
+=head1 Character case changing
+
+=over 8
+
+=item toFOLD
+X<toFOLD>
+
+Converts the specified character to foldcase.  If the input is anything but an
+ASCII uppercase character, that input character itself is returned.  Variant
+C<toFOLD_A> is equivalent.  (There is no equivalent C<to_FOLD_L1> for the full
+Latin1 range, as the full generality of L</toFOLD_uvchr> is needed there.)
+
+	U8	toFOLD(U8 ch)
+
+=for hackers
+Found in file handy.h
+
+=item toFOLD_utf8
+X<toFOLD_utf8>
+
+Converts the UTF-8 encoded character at C<p> to its foldcase version, and
+stores that in UTF-8 in C<s>, and its length in bytes in C<lenp>.  Note
+that the buffer pointed to by C<s> needs to be at least C<UTF8_MAXBYTES_CASE+1>
+bytes since the foldcase version may be longer than the original character.
+
+The first code point of the foldcased version is returned
+(but note, as explained just above, that there may be more.)
+
+The input character at C<p> is assumed to be well-formed.
+
+	UV	toFOLD_utf8(U8* p, U8* s, STRLEN* lenp)
+
+=for hackers
+Found in file handy.h
+
+=item toFOLD_uvchr
+X<toFOLD_uvchr>
+
+Converts the code point C<cp> to its foldcase version, and
+stores that in UTF-8 in C<s>, and its length in bytes in C<lenp>.  The code
+point is interpreted as native if less than 256; otherwise as Unicode.  Note
+that the buffer pointed to by C<s> needs to be at least C<UTF8_MAXBYTES_CASE+1>
+bytes since the foldcase version may be longer than the original character.
+
+The first code point of the foldcased version is returned
+(but note, as explained just above, that there may be more.)
+
+	UV	toFOLD_uvchr(UV cp, U8* s, STRLEN* lenp)
+
+=for hackers
+Found in file handy.h
+
+=item toLOWER
+X<toLOWER>
+
+Converts the specified character to lowercase.  If the input is anything but an
+ASCII uppercase character, that input character itself is returned.  Variant
+C<toLOWER_A> is equivalent.
+
+	U8	toLOWER(U8 ch)
+
+=for hackers
+Found in file handy.h
+
+=item toLOWER_L1
+X<toLOWER_L1>
+
+Converts the specified Latin1 character to lowercase.  The results are
+undefined if the input doesn't fit in a byte.
+
+	U8	toLOWER_L1(U8 ch)
+
+=for hackers
+Found in file handy.h
+
+=item toLOWER_LC
+X<toLOWER_LC>
+
+Converts the specified character to lowercase using the current locale's rules,
+if possible; otherwise returns the input character itself.
+
+	U8	toLOWER_LC(U8 ch)
+
+=for hackers
+Found in file handy.h
+
+=item toLOWER_utf8
+X<toLOWER_utf8>
+
+Converts the UTF-8 encoded character at C<p> to its lowercase version, and
+stores that in UTF-8 in C<s>, and its length in bytes in C<lenp>.  Note
+that the buffer pointed to by C<s> needs to be at least C<UTF8_MAXBYTES_CASE+1>
+bytes since the lowercase version may be longer than the original character.
+
+The first code point of the lowercased version is returned
+(but note, as explained just above, that there may be more.)
+
+The input character at C<p> is assumed to be well-formed.
+
+	UV	toLOWER_utf8(U8* p, U8* s, STRLEN* lenp)
+
+=for hackers
+Found in file handy.h
+
+=item toLOWER_uvchr
+X<toLOWER_uvchr>
+
+Converts the code point C<cp> to its lowercase version, and
+stores that in UTF-8 in C<s>, and its length in bytes in C<lenp>.  The code
+point is interpreted as native if less than 256; otherwise as Unicode.  Note
+that the buffer pointed to by C<s> needs to be at least C<UTF8_MAXBYTES_CASE+1>
+bytes since the lowercase version may be longer than the original character.
+
+The first code point of the lowercased version is returned
+(but note, as explained just above, that there may be more.)
+
+	UV	toLOWER_uvchr(UV cp, U8* s, STRLEN* lenp)
+
+=for hackers
+Found in file handy.h
+
+=item toTITLE
+X<toTITLE>
+
+Converts the specified character to titlecase.  If the input is anything but an
+ASCII lowercase character, that input character itself is returned.  Variant
+C<toTITLE_A> is equivalent.  (There is no C<toTITLE_L1> for the full Latin1
+range, as the full generality of L</toTITLE_uvchr> is needed there.  Titlecase is
+not a concept used in locale handling, so there is no functionality for that.)
+
+	U8	toTITLE(U8 ch)
+
+=for hackers
+Found in file handy.h
+
+=item toTITLE_utf8
+X<toTITLE_utf8>
+
+Converts the UTF-8 encoded character at C<p> to its titlecase version, and
+stores that in UTF-8 in C<s>, and its length in bytes in C<lenp>.  Note
+that the buffer pointed to by C<s> needs to be at least C<UTF8_MAXBYTES_CASE+1>
+bytes since the titlecase version may be longer than the original character.
+
+The first code point of the titlecased version is returned
+(but note, as explained just above, that there may be more.)
+
+The input character at C<p> is assumed to be well-formed.
+
+	UV	toTITLE_utf8(U8* p, U8* s, STRLEN* lenp)
+
+=for hackers
+Found in file handy.h
+
+=item toTITLE_uvchr
+X<toTITLE_uvchr>
+
+Converts the code point C<cp> to its titlecase version, and
+stores that in UTF-8 in C<s>, and its length in bytes in C<lenp>.  The code
+point is interpreted as native if less than 256; otherwise as Unicode.  Note
+that the buffer pointed to by C<s> needs to be at least C<UTF8_MAXBYTES_CASE+1>
+bytes since the titlecase version may be longer than the original character.
+
+The first code point of the titlecased version is returned
+(but note, as explained just above, that there may be more.)
+
+	UV	toTITLE_uvchr(UV cp, U8* s, STRLEN* lenp)
+
+=for hackers
+Found in file handy.h
+
+=item toUPPER
+X<toUPPER>
+
+Converts the specified character to uppercase.  If the input is anything but an
+ASCII lowercase character, that input character itself is returned.  Variant
+C<toUPPER_A> is equivalent.
+
+	U8	toUPPER(U8 ch)
+
+=for hackers
+Found in file handy.h
+
+=item toUPPER_utf8
+X<toUPPER_utf8>
+
+Converts the UTF-8 encoded character at C<p> to its uppercase version, and
+stores that in UTF-8 in C<s>, and its length in bytes in C<lenp>.  Note
+that the buffer pointed to by C<s> needs to be at least C<UTF8_MAXBYTES_CASE+1>
+bytes since the uppercase version may be longer than the original character.
+
+The first code point of the uppercased version is returned
+(but note, as explained just above, that there may be more.)
+
+The input character at C<p> is assumed to be well-formed.
+
+	UV	toUPPER_utf8(U8* p, U8* s, STRLEN* lenp)
+
+=for hackers
+Found in file handy.h
+
+=item toUPPER_uvchr
+X<toUPPER_uvchr>
+
+Converts the code point C<cp> to its uppercase version, and
+stores that in UTF-8 in C<s>, and its length in bytes in C<lenp>.  The code
+point is interpreted as native if less than 256; otherwise as Unicode.  Note
+that the buffer pointed to by C<s> needs to be at least C<UTF8_MAXBYTES_CASE+1>
+bytes since the uppercase version may be longer than the original character.
+
+The first code point of the uppercased version is returned
+(but note, as explained just above, that there may be more.)
+
+	UV	toUPPER_uvchr(UV cp, U8* s, STRLEN* lenp)
+
+=for hackers
+Found in file handy.h
+
+
+=back
+
+=head1 Character classification
+
+This section is about functions (really macros) that classify characters
+into types, such as punctuation versus alphabetic, etc.  Most of these are
+analogous to regular expression character classes.  (See
+L<perlrecharclass/POSIX Character Classes>.)  There are several variants for
+each class.  (Not all macros have all variants; each item below lists the
+ones valid for it.)  None are affected by C<use bytes>, and only the ones
+with C<LC> in the name are affected by the current locale.
+
+The base function, e.g., C<isALPHA()>, takes an octet (either a C<char> or a
+C<U8>) as input and returns a boolean as to whether or not the character
+represented by that octet is (or on non-ASCII platforms, corresponds to) an
+ASCII character in the named class based on platform, Unicode, and Perl rules.
+If the input is a number that doesn't fit in an octet, FALSE is returned.
+
+Variant C<isFOO_A> (e.g., C<isALPHA_A()>) is identical to the base function
+with no suffix C<"_A">.
+
+Variant C<isFOO_L1> imposes the Latin-1 (or EBCDIC equivlalent) character set
+onto the platform.  That is, the code points that are ASCII are unaffected,
+since ASCII is a subset of Latin-1.  But the non-ASCII code points are treated
+as if they are Latin-1 characters.  For example, C<isWORDCHAR_L1()> will return
+true when called with the code point 0xDF, which is a word character in both
+ASCII and EBCDIC (though it represents different characters in each).
+
+Variant C<isFOO_uvchr> is like the C<isFOO_L1> variant, but accepts any UV code
+point as input.  If the code point is larger than 255, Unicode rules are used
+to determine if it is in the character class.  For example,
+C<isWORDCHAR_uvchr(0x100)> returns TRUE, since 0x100 is LATIN CAPITAL LETTER A
+WITH MACRON in Unicode, and is a word character.
+
+Variant C<isFOO_utf8> is like C<isFOO_uvchr>, but the input is a pointer to a
+(known to be well-formed) UTF-8 encoded string (C<U8*> or C<char*>, and
+possibly containing embedded C<NUL> characters).  The classification of just
+the first (possibly multi-byte) character in the string is tested.
+
+Variant C<isFOO_LC> is like the C<isFOO_A> and C<isFOO_L1> variants, but the
+result is based on the current locale, which is what C<LC> in the name stands
+for.  If Perl can determine that the current locale is a UTF-8 locale, it uses
+the published Unicode rules; otherwise, it uses the C library function that
+gives the named classification.  For example, C<isDIGIT_LC()> when not in a
+UTF-8 locale returns the result of calling C<isdigit()>.  FALSE is always
+returned if the input won't fit into an octet.  On some platforms where the C
+library function is known to be defective, Perl changes its result to follow
+the POSIX standard's rules.
+
+Variant C<isFOO_LC_uvchr> is like C<isFOO_LC>, but is defined on any UV.  It
+returns the same as C<isFOO_LC> for input code points less than 256, and
+returns the hard-coded, not-affected-by-locale, Unicode results for larger ones.
+
+Variant C<isFOO_LC_utf8> is like C<isFOO_LC_uvchr>, but the input is a pointer
+to a (known to be well-formed) UTF-8 encoded string (C<U8*> or C<char*>, and
+possibly containing embedded C<NUL> characters).  The classification of just
+the first (possibly multi-byte) character in the string is tested.
+
+
+=over 8
+
+=item isALPHA
+X<isALPHA>
+
+Returns a boolean indicating whether the specified character is an
+alphabetic character, analogous to C<m/[[:alpha:]]/>.
+See the L<top of this section|/Character classification> for an explanation of
+variants
+C<isALPHA_A>, C<isALPHA_L1>, C<isALPHA_uvchr>, C<isALPHA_utf8>, C<isALPHA_LC>,
+C<isALPHA_LC_uvchr>, and C<isALPHA_LC_utf8>.
+
+	bool	isALPHA(char ch)
+
+=for hackers
+Found in file handy.h
+
+=item isALPHANUMERIC
+X<isALPHANUMERIC>
+
+Returns a boolean indicating whether the specified character is a either an
+alphabetic character or decimal digit, analogous to C<m/[[:alnum:]]/>.
+See the L<top of this section|/Character classification> for an explanation of
+variants
+C<isALPHANUMERIC_A>, C<isALPHANUMERIC_L1>, C<isALPHANUMERIC_uvchr>,
+C<isALPHANUMERIC_utf8>, C<isALPHANUMERIC_LC>, C<isALPHANUMERIC_LC_uvchr>, and
+C<isALPHANUMERIC_LC_utf8>.
+
+	bool	isALPHANUMERIC(char ch)
+
+=for hackers
+Found in file handy.h
+
+=item isASCII
+X<isASCII>
+
+Returns a boolean indicating whether the specified character is one of the 128
+characters in the ASCII character set, analogous to C<m/[[:ascii:]]/>.
+On non-ASCII platforms, it returns TRUE iff this
+character corresponds to an ASCII character.  Variants C<isASCII_A()> and
+C<isASCII_L1()> are identical to C<isASCII()>.
+See the L<top of this section|/Character classification> for an explanation of
+variants
+C<isASCII_uvchr>, C<isASCII_utf8>, C<isASCII_LC>, C<isASCII_LC_uvchr>, and
+C<isASCII_LC_utf8>.  Note, however, that some platforms do not have the C
+library routine C<isascii()>.  In these cases, the variants whose names contain
+C<LC> are the same as the corresponding ones without.
+
+Also note, that because all ASCII characters are UTF-8 invariant (meaning they
+have the exact same representation (always a single byte) whether encoded in
+UTF-8 or not), C<isASCII> will give the correct results when called with any
+byte in any string encoded or not in UTF-8.  And similarly C<isASCII_utf8> will
+work properly on any string encoded or not in UTF-8.
+
+	bool	isASCII(char ch)
+
+=for hackers
+Found in file handy.h
+
+=item isBLANK
+X<isBLANK>
+
+Returns a boolean indicating whether the specified character is a
+character considered to be a blank, analogous to C<m/[[:blank:]]/>.
+See the L<top of this section|/Character classification> for an explanation of
+variants
+C<isBLANK_A>, C<isBLANK_L1>, C<isBLANK_uvchr>, C<isBLANK_utf8>, C<isBLANK_LC>,
+C<isBLANK_LC_uvchr>, and C<isBLANK_LC_utf8>.  Note, however, that some
+platforms do not have the C library routine C<isblank()>.  In these cases, the
+variants whose names contain C<LC> are the same as the corresponding ones
+without.
+
+	bool	isBLANK(char ch)
+
+=for hackers
+Found in file handy.h
+
+=item isCNTRL
+X<isCNTRL>
+
+Returns a boolean indicating whether the specified character is a
+control character, analogous to C<m/[[:cntrl:]]/>.
+See the L<top of this section|/Character classification> for an explanation of
+variants
+C<isCNTRL_A>, C<isCNTRL_L1>, C<isCNTRL_uvchr>, C<isCNTRL_utf8>, C<isCNTRL_LC>,
+C<isCNTRL_LC_uvchr>, and C<isCNTRL_LC_utf8>
+On EBCDIC platforms, you almost always want to use the C<isCNTRL_L1> variant.
+
+	bool	isCNTRL(char ch)
+
+=for hackers
+Found in file handy.h
+
+=item isDIGIT
+X<isDIGIT>
+
+Returns a boolean indicating whether the specified character is a
+digit, analogous to C<m/[[:digit:]]/>.
+Variants C<isDIGIT_A> and C<isDIGIT_L1> are identical to C<isDIGIT>.
+See the L<top of this section|/Character classification> for an explanation of
+variants
+C<isDIGIT_uvchr>, C<isDIGIT_utf8>, C<isDIGIT_LC>, C<isDIGIT_LC_uvchr>, and
+C<isDIGIT_LC_utf8>.
+
+	bool	isDIGIT(char ch)
+
+=for hackers
+Found in file handy.h
+
+=item isGRAPH
+X<isGRAPH>
+
+Returns a boolean indicating whether the specified character is a
+graphic character, analogous to C<m/[[:graph:]]/>.
+See the L<top of this section|/Character classification> for an explanation of
+variants
+C<isGRAPH_A>, C<isGRAPH_L1>, C<isGRAPH_uvchr>, C<isGRAPH_utf8>, C<isGRAPH_LC>,
+C<isGRAPH_LC_uvchr>, and C<isGRAPH_LC_utf8>.
+
+	bool	isGRAPH(char ch)
+
+=for hackers
+Found in file handy.h
+
+=item isIDCONT
+X<isIDCONT>
+
+Returns a boolean indicating whether the specified character can be the
+second or succeeding character of an identifier.  This is very close to, but
+not quite the same as the official Unicode property C<XID_Continue>.  The
+difference is that this returns true only if the input character also matches
+L</isWORDCHAR>.  See the L<top of this section|/Character classification> for
+an
+explanation of variants C<isIDCONT_A>, C<isIDCONT_L1>, C<isIDCONT_uvchr>,
+C<isIDCONT_utf8>, C<isIDCONT_LC>, C<isIDCONT_LC_uvchr>, and
+C<isIDCONT_LC_utf8>.
+
+	bool	isIDCONT(char ch)
+
+=for hackers
+Found in file handy.h
+
+=item isIDFIRST
+X<isIDFIRST>
+
+Returns a boolean indicating whether the specified character can be the first
+character of an identifier.  This is very close to, but not quite the same as
+the official Unicode property C<XID_Start>.  The difference is that this
+returns true only if the input character also matches L</isWORDCHAR>.
+See the L<top of this section|/Character classification> for an explanation of
+variants
+C<isIDFIRST_A>, C<isIDFIRST_L1>, C<isIDFIRST_uvchr>, C<isIDFIRST_utf8>,
+C<isIDFIRST_LC>, C<isIDFIRST_LC_uvchr>, and C<isIDFIRST_LC_utf8>.
+
+	bool	isIDFIRST(char ch)
+
+=for hackers
+Found in file handy.h
+
+=item isLOWER
+X<isLOWER>
+
+Returns a boolean indicating whether the specified character is a
+lowercase character, analogous to C<m/[[:lower:]]/>.
+See the L<top of this section|/Character classification> for an explanation of
+variants
+C<isLOWER_A>, C<isLOWER_L1>, C<isLOWER_uvchr>, C<isLOWER_utf8>, C<isLOWER_LC>,
+C<isLOWER_LC_uvchr>, and C<isLOWER_LC_utf8>.
+
+	bool	isLOWER(char ch)
+
+=for hackers
+Found in file handy.h
+
+=item isOCTAL
+X<isOCTAL>
+
+Returns a boolean indicating whether the specified character is an
+octal digit, [0-7].
+The only two variants are C<isOCTAL_A> and C<isOCTAL_L1>; each is identical to
+C<isOCTAL>.
+
+	bool	isOCTAL(char ch)
+
+=for hackers
+Found in file handy.h
+
+=item isPRINT
+X<isPRINT>
+
+Returns a boolean indicating whether the specified character is a
+printable character, analogous to C<m/[[:print:]]/>.
+See the L<top of this section|/Character classification> for an explanation of
+variants
+C<isPRINT_A>, C<isPRINT_L1>, C<isPRINT_uvchr>, C<isPRINT_utf8>, C<isPRINT_LC>,
+C<isPRINT_LC_uvchr>, and C<isPRINT_LC_utf8>.
+
+	bool	isPRINT(char ch)
+
+=for hackers
+Found in file handy.h
+
+=item isPSXSPC
+X<isPSXSPC>
+
+(short for Posix Space)
+Starting in 5.18, this is identical in all its forms to the
+corresponding C<isSPACE()> macros.
+The locale forms of this macro are identical to their corresponding
+C<isSPACE()> forms in all Perl releases.  In releases prior to 5.18, the
+non-locale forms differ from their C<isSPACE()> forms only in that the
+C<isSPACE()> forms don't match a Vertical Tab, and the C<isPSXSPC()> forms do.
+Otherwise they are identical.  Thus this macro is analogous to what
+C<m/[[:space:]]/> matches in a regular expression.
+See the L<top of this section|/Character classification> for an explanation of
+variants C<isPSXSPC_A>, C<isPSXSPC_L1>, C<isPSXSPC_uvchr>, C<isPSXSPC_utf8>,
+C<isPSXSPC_LC>, C<isPSXSPC_LC_uvchr>, and C<isPSXSPC_LC_utf8>.
+
+	bool	isPSXSPC(char ch)
+
+=for hackers
+Found in file handy.h
+
+=item isPUNCT
+X<isPUNCT>
+
+Returns a boolean indicating whether the specified character is a
+punctuation character, analogous to C<m/[[:punct:]]/>.
+Note that the definition of what is punctuation isn't as
+straightforward as one might desire.  See L<perlrecharclass/POSIX Character
+Classes> for details.
+See the L<top of this section|/Character classification> for an explanation of
+variants
+C<isPUNCT_A>, C<isPUNCT_L1>, C<isPUNCT_uvchr>, C<isPUNCT_utf8>, C<isPUNCT_LC>,
+C<isPUNCT_LC_uvchr>, and C<isPUNCT_LC_utf8>.
+
+	bool	isPUNCT(char ch)
+
+=for hackers
+Found in file handy.h
+
+=item isSPACE
+X<isSPACE>
+
+Returns a boolean indicating whether the specified character is a
+whitespace character.  This is analogous
+to what C<m/\s/> matches in a regular expression.  Starting in Perl 5.18
+this also matches what C<m/[[:space:]]/> does.  Prior to 5.18, only the
+locale forms of this macro (the ones with C<LC> in their names) matched
+precisely what C<m/[[:space:]]/> does.  In those releases, the only difference,
+in the non-locale variants, was that C<isSPACE()> did not match a vertical tab.
+(See L</isPSXSPC> for a macro that matches a vertical tab in all releases.)
+See the L<top of this section|/Character classification> for an explanation of
+variants
+C<isSPACE_A>, C<isSPACE_L1>, C<isSPACE_uvchr>, C<isSPACE_utf8>, C<isSPACE_LC>,
+C<isSPACE_LC_uvchr>, and C<isSPACE_LC_utf8>.
+
+	bool	isSPACE(char ch)
+
+=for hackers
+Found in file handy.h
+
+=item isUPPER
+X<isUPPER>
+
+Returns a boolean indicating whether the specified character is an
+uppercase character, analogous to C<m/[[:upper:]]/>.
+See the L<top of this section|/Character classification> for an explanation of
+variants
+C<isUPPER_A>, C<isUPPER_L1>, C<isUPPER_uvchr>, C<isUPPER_utf8>, C<isUPPER_LC>,
+C<isUPPER_LC_uvchr>, and C<isUPPER_LC_utf8>.
+
+	bool	isUPPER(char ch)
+
+=for hackers
+Found in file handy.h
+
+=item isWORDCHAR
+X<isWORDCHAR>
+
+Returns a boolean indicating whether the specified character is a character
+that is a word character, analogous to what C<m/\w/> and C<m/[[:word:]]/> match
+in a regular expression.  A word character is an alphabetic character, a
+decimal digit, a connecting punctuation character (such as an underscore), or
+a "mark" character that attaches to one of those (like some sort of accent).
+C<isALNUM()> is a synonym provided for backward compatibility, even though a
+word character includes more than the standard C language meaning of
+alphanumeric.
+See the L<top of this section|/Character classification> for an explanation of
+variants
+C<isWORDCHAR_A>, C<isWORDCHAR_L1>, C<isWORDCHAR_uvchr>, and C<isWORDCHAR_utf8>.
+C<isWORDCHAR_LC>, C<isWORDCHAR_LC_uvchr>, and C<isWORDCHAR_LC_utf8> are also as
+described there, but additionally include the platform's native underscore.
+
+	bool	isWORDCHAR(char ch)
+
+=for hackers
+Found in file handy.h
+
+=item isXDIGIT
+X<isXDIGIT>
+
+Returns a boolean indicating whether the specified character is a hexadecimal
+digit.  In the ASCII range these are C<[0-9A-Fa-f]>.  Variants C<isXDIGIT_A()>
+and C<isXDIGIT_L1()> are identical to C<isXDIGIT()>.
+See the L<top of this section|/Character classification> for an explanation of
+variants
+C<isXDIGIT_uvchr>, C<isXDIGIT_utf8>, C<isXDIGIT_LC>, C<isXDIGIT_LC_uvchr>, and
+C<isXDIGIT_LC_utf8>.
+
+	bool	isXDIGIT(char ch)
+
+=for hackers
+Found in file handy.h
+
+
+=back
+
+=head1 Cloning an interpreter
+
+=over 8
+
+=item perl_clone
+X<perl_clone>
+
+Create and return a new interpreter by cloning the current one.
+
+C<perl_clone> takes these flags as parameters:
+
+C<CLONEf_COPY_STACKS> - is used to, well, copy the stacks also,
+without it we only clone the data and zero the stacks,
+with it we copy the stacks and the new perl interpreter is
+ready to run at the exact same point as the previous one.
+The pseudo-fork code uses C<COPY_STACKS> while the
+threads->create doesn't.
+
+C<CLONEf_KEEP_PTR_TABLE> -
+C<perl_clone> keeps a ptr_table with the pointer of the old
+variable as a key and the new variable as a value,
+this allows it to check if something has been cloned and not
+clone it again but rather just use the value and increase the
+refcount.  If C<KEEP_PTR_TABLE> is not set then C<perl_clone> will kill
+the ptr_table using the function
+C<ptr_table_free(PL_ptr_table); PL_ptr_table = NULL;>,
+reason to keep it around is if you want to dup some of your own
+variable who are outside the graph perl scans, an example of this
+code is in F<threads.xs> create.
+
+C<CLONEf_CLONE_HOST> -
+This is a win32 thing, it is ignored on unix, it tells perls
+win32host code (which is c++) to clone itself, this is needed on
+win32 if you want to run two threads at the same time,
+if you just want to do some stuff in a separate perl interpreter
+and then throw it away and return to the original one,
+you don't need to do anything.
+
+	PerlInterpreter* perl_clone(
+	                     PerlInterpreter *proto_perl,
+	                     UV flags
+	                 )
+
+=for hackers
+Found in file sv.c
+
+
+=back
+
+=head1 Compile-time scope hooks
+
+=over 8
+
+=item BhkDISABLE
+X<BhkDISABLE>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Temporarily disable an entry in this BHK structure, by clearing the
+appropriate flag.  C<which> is a preprocessor token indicating which
+entry to disable.
+
+	void	BhkDISABLE(BHK *hk, which)
+
+=for hackers
+Found in file op.h
+
+=item BhkENABLE
+X<BhkENABLE>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Re-enable an entry in this BHK structure, by setting the appropriate
+flag.  C<which> is a preprocessor token indicating which entry to enable.
+This will assert (under -DDEBUGGING) if the entry doesn't contain a valid
+pointer.
+
+	void	BhkENABLE(BHK *hk, which)
+
+=for hackers
+Found in file op.h
+
+=item BhkENTRY_set
+X<BhkENTRY_set>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Set an entry in the BHK structure, and set the flags to indicate it is
+valid.  C<which> is a preprocessing token indicating which entry to set.
+The type of C<ptr> depends on the entry.
+
+	void	BhkENTRY_set(BHK *hk, which, void *ptr)
+
+=for hackers
+Found in file op.h
+
+=item blockhook_register
+X<blockhook_register>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Register a set of hooks to be called when the Perl lexical scope changes
+at compile time.  See L<perlguts/"Compile-time scope hooks">.
+
+NOTE: this function must be explicitly called as Perl_blockhook_register with an aTHX_ parameter.
+
+	void	Perl_blockhook_register(pTHX_ BHK *hk)
+
+=for hackers
+Found in file op.c
+
+
+=back
+
+=head1 COP Hint Hashes
+
+=over 8
+
+=item cophh_2hv
+X<cophh_2hv>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Generates and returns a standard Perl hash representing the full set of
+key/value pairs in the cop hints hash C<cophh>.  C<flags> is currently
+unused and must be zero.
+
+	HV *	cophh_2hv(const COPHH *cophh, U32 flags)
+
+=for hackers
+Found in file cop.h
+
+=item cophh_copy
+X<cophh_copy>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Make and return a complete copy of the cop hints hash C<cophh>.
+
+	COPHH *	cophh_copy(COPHH *cophh)
+
+=for hackers
+Found in file cop.h
+
+=item cophh_delete_pv
+X<cophh_delete_pv>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Like L</cophh_delete_pvn>, but takes a nul-terminated string instead of
+a string/length pair.
+
+	COPHH *	cophh_delete_pv(const COPHH *cophh,
+		                const char *key, U32 hash,
+		                U32 flags)
+
+=for hackers
+Found in file cop.h
+
+=item cophh_delete_pvn
+X<cophh_delete_pvn>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Delete a key and its associated value from the cop hints hash C<cophh>,
+and returns the modified hash.  The returned hash pointer is in general
+not the same as the hash pointer that was passed in.  The input hash is
+consumed by the function, and the pointer to it must not be subsequently
+used.  Use L</cophh_copy> if you need both hashes.
+
+The key is specified by C<keypv> and C<keylen>.  If C<flags> has the
+C<COPHH_KEY_UTF8> bit set, the key octets are interpreted as UTF-8,
+otherwise they are interpreted as Latin-1.  C<hash> is a precomputed
+hash of the key string, or zero if it has not been precomputed.
+
+	COPHH *	cophh_delete_pvn(COPHH *cophh,
+		                 const char *keypv,
+		                 STRLEN keylen, U32 hash,
+		                 U32 flags)
+
+=for hackers
+Found in file cop.h
+
+=item cophh_delete_pvs
+X<cophh_delete_pvs>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Like L</cophh_delete_pvn>, but takes a C<NUL>-terminated literal string instead
+of a string/length pair, and no precomputed hash.
+
+	COPHH *	cophh_delete_pvs(const COPHH *cophh,
+		                 const char *key, U32 flags)
+
+=for hackers
+Found in file cop.h
+
+=item cophh_delete_sv
+X<cophh_delete_sv>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Like L</cophh_delete_pvn>, but takes a Perl scalar instead of a
+string/length pair.
+
+	COPHH *	cophh_delete_sv(const COPHH *cophh, SV *key,
+		                U32 hash, U32 flags)
+
+=for hackers
+Found in file cop.h
+
+=item cophh_fetch_pv
+X<cophh_fetch_pv>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Like L</cophh_fetch_pvn>, but takes a nul-terminated string instead of
+a string/length pair.
+
+	SV *	cophh_fetch_pv(const COPHH *cophh,
+		               const char *key, U32 hash,
+		               U32 flags)
+
+=for hackers
+Found in file cop.h
+
+=item cophh_fetch_pvn
+X<cophh_fetch_pvn>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Look up the entry in the cop hints hash C<cophh> with the key specified by
+C<keypv> and C<keylen>.  If C<flags> has the C<COPHH_KEY_UTF8> bit set,
+the key octets are interpreted as UTF-8, otherwise they are interpreted
+as Latin-1.  C<hash> is a precomputed hash of the key string, or zero if
+it has not been precomputed.  Returns a mortal scalar copy of the value
+associated with the key, or C<&PL_sv_placeholder> if there is no value
+associated with the key.
+
+	SV *	cophh_fetch_pvn(const COPHH *cophh,
+		                const char *keypv,
+		                STRLEN keylen, U32 hash,
+		                U32 flags)
+
+=for hackers
+Found in file cop.h
+
+=item cophh_fetch_pvs
+X<cophh_fetch_pvs>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Like L</cophh_fetch_pvn>, but takes a C<NUL>-terminated literal string instead
+of a string/length pair, and no precomputed hash.
+
+	SV *	cophh_fetch_pvs(const COPHH *cophh,
+		                const char *key, U32 flags)
+
+=for hackers
+Found in file cop.h
+
+=item cophh_fetch_sv
+X<cophh_fetch_sv>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Like L</cophh_fetch_pvn>, but takes a Perl scalar instead of a
+string/length pair.
+
+	SV *	cophh_fetch_sv(const COPHH *cophh, SV *key,
+		               U32 hash, U32 flags)
+
+=for hackers
+Found in file cop.h
+
+=item cophh_free
+X<cophh_free>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Discard the cop hints hash C<cophh>, freeing all resources associated
+with it.
+
+	void	cophh_free(COPHH *cophh)
+
+=for hackers
+Found in file cop.h
+
+=item cophh_new_empty
+X<cophh_new_empty>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Generate and return a fresh cop hints hash containing no entries.
+
+	COPHH *	cophh_new_empty()
+
+=for hackers
+Found in file cop.h
+
+=item cophh_store_pv
+X<cophh_store_pv>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Like L</cophh_store_pvn>, but takes a nul-terminated string instead of
+a string/length pair.
+
+	COPHH *	cophh_store_pv(const COPHH *cophh,
+		               const char *key, U32 hash,
+		               SV *value, U32 flags)
+
+=for hackers
+Found in file cop.h
+
+=item cophh_store_pvn
+X<cophh_store_pvn>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Stores a value, associated with a key, in the cop hints hash C<cophh>,
+and returns the modified hash.  The returned hash pointer is in general
+not the same as the hash pointer that was passed in.  The input hash is
+consumed by the function, and the pointer to it must not be subsequently
+used.  Use L</cophh_copy> if you need both hashes.
+
+The key is specified by C<keypv> and C<keylen>.  If C<flags> has the
+C<COPHH_KEY_UTF8> bit set, the key octets are interpreted as UTF-8,
+otherwise they are interpreted as Latin-1.  C<hash> is a precomputed
+hash of the key string, or zero if it has not been precomputed.
+
+C<value> is the scalar value to store for this key.  C<value> is copied
+by this function, which thus does not take ownership of any reference
+to it, and later changes to the scalar will not be reflected in the
+value visible in the cop hints hash.  Complex types of scalar will not
+be stored with referential integrity, but will be coerced to strings.
+
+	COPHH *	cophh_store_pvn(COPHH *cophh, const char *keypv,
+		                STRLEN keylen, U32 hash,
+		                SV *value, U32 flags)
+
+=for hackers
+Found in file cop.h
+
+=item cophh_store_pvs
+X<cophh_store_pvs>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Like L</cophh_store_pvn>, but takes a C<NUL>-terminated literal string instead
+of a string/length pair, and no precomputed hash.
+
+	COPHH *	cophh_store_pvs(const COPHH *cophh,
+		                const char *key, SV *value,
+		                U32 flags)
+
+=for hackers
+Found in file cop.h
+
+=item cophh_store_sv
+X<cophh_store_sv>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Like L</cophh_store_pvn>, but takes a Perl scalar instead of a
+string/length pair.
+
+	COPHH *	cophh_store_sv(const COPHH *cophh, SV *key,
+		               U32 hash, SV *value, U32 flags)
+
+=for hackers
+Found in file cop.h
+
+
+=back
+
+=head1 COP Hint Reading
+
+=over 8
+
+=item cop_hints_2hv
+X<cop_hints_2hv>
+
+Generates and returns a standard Perl hash representing the full set of
+hint entries in the cop C<cop>.  C<flags> is currently unused and must
+be zero.
+
+	HV *	cop_hints_2hv(const COP *cop, U32 flags)
+
+=for hackers
+Found in file cop.h
+
+=item cop_hints_fetch_pv
+X<cop_hints_fetch_pv>
+
+Like L</cop_hints_fetch_pvn>, but takes a nul-terminated string instead
+of a string/length pair.
+
+	SV *	cop_hints_fetch_pv(const COP *cop,
+		                   const char *key, U32 hash,
+		                   U32 flags)
+
+=for hackers
+Found in file cop.h
+
+=item cop_hints_fetch_pvn
+X<cop_hints_fetch_pvn>
+
+Look up the hint entry in the cop C<cop> with the key specified by
+C<keypv> and C<keylen>.  If C<flags> has the C<COPHH_KEY_UTF8> bit set,
+the key octets are interpreted as UTF-8, otherwise they are interpreted
+as Latin-1.  C<hash> is a precomputed hash of the key string, or zero if
+it has not been precomputed.  Returns a mortal scalar copy of the value
+associated with the key, or C<&PL_sv_placeholder> if there is no value
+associated with the key.
+
+	SV *	cop_hints_fetch_pvn(const COP *cop,
+		                    const char *keypv,
+		                    STRLEN keylen, U32 hash,
+		                    U32 flags)
+
+=for hackers
+Found in file cop.h
+
+=item cop_hints_fetch_pvs
+X<cop_hints_fetch_pvs>
+
+Like L</cop_hints_fetch_pvn>, but takes a C<NUL>-terminated literal string
+instead of a string/length pair, and no precomputed hash.
+
+	SV *	cop_hints_fetch_pvs(const COP *cop,
+		                    const char *key, U32 flags)
+
+=for hackers
+Found in file cop.h
+
+=item cop_hints_fetch_sv
+X<cop_hints_fetch_sv>
+
+Like L</cop_hints_fetch_pvn>, but takes a Perl scalar instead of a
+string/length pair.
+
+	SV *	cop_hints_fetch_sv(const COP *cop, SV *key,
+		                   U32 hash, U32 flags)
+
+=for hackers
+Found in file cop.h
+
+
+=back
+
+=head1 Custom Operators
+
+=over 8
+
+=item custom_op_register
+X<custom_op_register>
+
+Register a custom op.  See L<perlguts/"Custom Operators">.
+
+NOTE: this function must be explicitly called as Perl_custom_op_register with an aTHX_ parameter.
+
+	void	Perl_custom_op_register(pTHX_ 
+		                        Perl_ppaddr_t ppaddr,
+		                        const XOP *xop)
+
+=for hackers
+Found in file op.c
+
+=item custom_op_xop
+X<custom_op_xop>
+
+Return the XOP structure for a given custom op.  This macro should be
+considered internal to C<OP_NAME> and the other access macros: use them instead.
+This macro does call a function.  Prior
+to 5.19.6, this was implemented as a
+function.
+
+NOTE: this function must be explicitly called as Perl_custom_op_xop with an aTHX_ parameter.
+
+	const XOP * Perl_custom_op_xop(pTHX_ const OP *o)
+
+=for hackers
+Found in file op.c
+
+=item XopDISABLE
+X<XopDISABLE>
+
+Temporarily disable a member of the XOP, by clearing the appropriate flag.
+
+	void	XopDISABLE(XOP *xop, which)
+
+=for hackers
+Found in file op.h
+
+=item XopENABLE
+X<XopENABLE>
+
+Reenable a member of the XOP which has been disabled.
+
+	void	XopENABLE(XOP *xop, which)
+
+=for hackers
+Found in file op.h
+
+=item XopENTRY
+X<XopENTRY>
+
+Return a member of the XOP structure.  C<which> is a cpp token
+indicating which entry to return.  If the member is not set
+this will return a default value.  The return type depends
+on C<which>.  This macro evaluates its arguments more than
+once.  If you are using C<Perl_custom_op_xop> to retreive a
+C<XOP *> from a C<OP *>, use the more efficient L</XopENTRYCUSTOM> instead.
+
+		XopENTRY(XOP *xop, which)
+
+=for hackers
+Found in file op.h
+
+=item XopENTRYCUSTOM
+X<XopENTRYCUSTOM>
+
+Exactly like C<XopENTRY(XopENTRY(Perl_custom_op_xop(aTHX_ o), which)> but more
+efficient.  The C<which> parameter is identical to L</XopENTRY>.
+
+		XopENTRYCUSTOM(const OP *o, which)
+
+=for hackers
+Found in file op.h
+
+=item XopENTRY_set
+X<XopENTRY_set>
+
+Set a member of the XOP structure.  C<which> is a cpp token
+indicating which entry to set.  See L<perlguts/"Custom Operators">
+for details about the available members and how
+they are used.  This macro evaluates its argument
+more than once.
+
+	void	XopENTRY_set(XOP *xop, which, value)
+
+=for hackers
+Found in file op.h
+
+=item XopFLAGS
+X<XopFLAGS>
+
+Return the XOP's flags.
+
+	U32	XopFLAGS(XOP *xop)
+
+=for hackers
+Found in file op.h
+
+
+=back
+
+=head1 CV Manipulation Functions
+
+This section documents functions to manipulate CVs which are code-values,
+or subroutines.  For more information, see L<perlguts>.
+
+
+=over 8
+
+=item caller_cx
+X<caller_cx>
+
+The XSUB-writer's equivalent of L<caller()|perlfunc/caller>.  The
+returned C<PERL_CONTEXT> structure can be interrogated to find all the
+information returned to Perl by C<caller>.  Note that XSUBs don't get a
+stack frame, so C<caller_cx(0, NULL)> will return information for the
+immediately-surrounding Perl code.
+
+This function skips over the automatic calls to C<&DB::sub> made on the
+behalf of the debugger.  If the stack frame requested was a sub called by
+C<DB::sub>, the return value will be the frame for the call to
+C<DB::sub>, since that has the correct line number/etc. for the call
+site.  If I<dbcxp> is non-C<NULL>, it will be set to a pointer to the
+frame for the sub call itself.
+
+	const PERL_CONTEXT * caller_cx(
+	                         I32 level,
+	                         const PERL_CONTEXT **dbcxp
+	                     )
+
+=for hackers
+Found in file pp_ctl.c
+
+=item CvSTASH
+X<CvSTASH>
+
+Returns the stash of the CV.  A stash is the symbol table hash, containing
+the package-scoped variables in the package where the subroutine was defined.
+For more information, see L<perlguts>.
+
+This also has a special use with XS AUTOLOAD subs.
+See L<perlguts/Autoloading with XSUBs>.
+
+	HV*	CvSTASH(CV* cv)
+
+=for hackers
+Found in file cv.h
+
+=item find_runcv
+X<find_runcv>
+
+Locate the CV corresponding to the currently executing sub or eval.
+If C<db_seqp> is non_null, skip CVs that are in the DB package and populate
+C<*db_seqp> with the cop sequence number at the point that the DB:: code was
+entered.  (This allows debuggers to eval in the scope of the breakpoint
+rather than in the scope of the debugger itself.)
+
+	CV*	find_runcv(U32 *db_seqp)
+
+=for hackers
+Found in file pp_ctl.c
+
+=item get_cv
+X<get_cv>
+
+Uses C<strlen> to get the length of C<name>, then calls C<get_cvn_flags>.
+
+NOTE: the perl_ form of this function is deprecated.
+
+	CV*	get_cv(const char* name, I32 flags)
+
+=for hackers
+Found in file perl.c
+
+=item get_cvn_flags
+X<get_cvn_flags>
+
+Returns the CV of the specified Perl subroutine.  C<flags> are passed to
+C<gv_fetchpvn_flags>.  If C<GV_ADD> is set and the Perl subroutine does not
+exist then it will be declared (which has the same effect as saying
+C<sub name;>).  If C<GV_ADD> is not set and the subroutine does not exist
+then NULL is returned.
+
+NOTE: the perl_ form of this function is deprecated.
+
+	CV*	get_cvn_flags(const char* name, STRLEN len,
+		              I32 flags)
+
+=for hackers
+Found in file perl.c
+
+
+=back
+
+=head1 C<xsubpp> variables and internal functions
+
+=over 8
+
+=item ax
+X<ax>
+
+Variable which is setup by C<xsubpp> to indicate the stack base offset,
+used by the C<ST>, C<XSprePUSH> and C<XSRETURN> macros.  The C<dMARK> macro
+must be called prior to setup the C<MARK> variable.
+
+	I32	ax
+
+=for hackers
+Found in file XSUB.h
+
+=item CLASS
+X<CLASS>
+
+Variable which is setup by C<xsubpp> to indicate the 
+class name for a C++ XS constructor.  This is always a C<char*>.  See
+C<L</THIS>>.
+
+	char*	CLASS
+
+=for hackers
+Found in file XSUB.h
+
+=item dAX
+X<dAX>
+
+Sets up the C<ax> variable.
+This is usually handled automatically by C<xsubpp> by calling C<dXSARGS>.
+
+		dAX;
+
+=for hackers
+Found in file XSUB.h
+
+=item dAXMARK
+X<dAXMARK>
+
+Sets up the C<ax> variable and stack marker variable C<mark>.
+This is usually handled automatically by C<xsubpp> by calling C<dXSARGS>.
+
+		dAXMARK;
+
+=for hackers
+Found in file XSUB.h
+
+=item dITEMS
+X<dITEMS>
+
+Sets up the C<items> variable.
+This is usually handled automatically by C<xsubpp> by calling C<dXSARGS>.
+
+		dITEMS;
+
+=for hackers
+Found in file XSUB.h
+
+=item dUNDERBAR
+X<dUNDERBAR>
+
+Sets up any variable needed by the C<UNDERBAR> macro.  It used to define
+C<padoff_du>, but it is currently a noop.  However, it is strongly advised
+to still use it for ensuring past and future compatibility.
+
+		dUNDERBAR;
+
+=for hackers
+Found in file XSUB.h
+
+=item dXSARGS
+X<dXSARGS>
+
+Sets up stack and mark pointers for an XSUB, calling C<dSP> and C<dMARK>.
+Sets up the C<ax> and C<items> variables by calling C<dAX> and C<dITEMS>.
+This is usually handled automatically by C<xsubpp>.
+
+		dXSARGS;
+
+=for hackers
+Found in file XSUB.h
+
+=item dXSI32
+X<dXSI32>
+
+Sets up the C<ix> variable for an XSUB which has aliases.  This is usually
+handled automatically by C<xsubpp>.
+
+		dXSI32;
+
+=for hackers
+Found in file XSUB.h
+
+=item items
+X<items>
+
+Variable which is setup by C<xsubpp> to indicate the number of 
+items on the stack.  See L<perlxs/"Variable-length Parameter Lists">.
+
+	I32	items
+
+=for hackers
+Found in file XSUB.h
+
+=item ix
+X<ix>
+
+Variable which is setup by C<xsubpp> to indicate which of an 
+XSUB's aliases was used to invoke it.  See L<perlxs/"The ALIAS: Keyword">.
+
+	I32	ix
+
+=for hackers
+Found in file XSUB.h
+
+=item RETVAL
+X<RETVAL>
+
+Variable which is setup by C<xsubpp> to hold the return value for an 
+XSUB.  This is always the proper type for the XSUB.  See 
+L<perlxs/"The RETVAL Variable">.
+
+	(whatever)	RETVAL
+
+=for hackers
+Found in file XSUB.h
+
+=item ST
+X<ST>
+
+Used to access elements on the XSUB's stack.
+
+	SV*	ST(int ix)
+
+=for hackers
+Found in file XSUB.h
+
+=item THIS
+X<THIS>
+
+Variable which is setup by C<xsubpp> to designate the object in a C++ 
+XSUB.  This is always the proper type for the C++ object.  See C<L</CLASS>> and
+L<perlxs/"Using XS With C++">.
+
+	(whatever)	THIS
+
+=for hackers
+Found in file XSUB.h
+
+=item UNDERBAR
+X<UNDERBAR>
+
+The SV* corresponding to the C<$_> variable.  Works even if there
+is a lexical C<$_> in scope.
+
+=for hackers
+Found in file XSUB.h
+
+=item XS
+X<XS>
+
+Macro to declare an XSUB and its C parameter list.  This is handled by
+C<xsubpp>.  It is the same as using the more explicit C<XS_EXTERNAL> macro.
+
+=for hackers
+Found in file XSUB.h
+
+=item XS_EXTERNAL
+X<XS_EXTERNAL>
+
+Macro to declare an XSUB and its C parameter list explicitly exporting the symbols.
+
+=for hackers
+Found in file XSUB.h
+
+=item XS_INTERNAL
+X<XS_INTERNAL>
+
+Macro to declare an XSUB and its C parameter list without exporting the symbols.
+This is handled by C<xsubpp> and generally preferable over exporting the XSUB
+symbols unnecessarily.
+
+=for hackers
+Found in file XSUB.h
+
+
+=back
+
+=head1 Debugging Utilities
+
+=over 8
+
+=item dump_all
+X<dump_all>
+
+Dumps the entire optree of the current program starting at C<PL_main_root> to 
+C<STDERR>.  Also dumps the optrees for all visible subroutines in
+C<PL_defstash>.
+
+	void	dump_all()
+
+=for hackers
+Found in file dump.c
+
+=item dump_packsubs
+X<dump_packsubs>
+
+Dumps the optrees for all visible subroutines in C<stash>.
+
+	void	dump_packsubs(const HV* stash)
+
+=for hackers
+Found in file dump.c
+
+=item op_dump
+X<op_dump>
+
+Dumps the optree starting at OP C<o> to C<STDERR>.
+
+	void	op_dump(const OP *o)
+
+=for hackers
+Found in file dump.c
+
+=item sv_dump
+X<sv_dump>
+
+Dumps the contents of an SV to the C<STDERR> filehandle.
+
+For an example of its output, see L<Devel::Peek>.
+
+	void	sv_dump(SV* sv)
+
+=for hackers
+Found in file dump.c
+
+
+=back
+
+=head1 Display and Dump functions
+
+=over 8
+
+=item pv_display
+X<pv_display>
+
+Similar to
+
+  pv_escape(dsv,pv,cur,pvlim,PERL_PV_ESCAPE_QUOTE);
+
+except that an additional "\0" will be appended to the string when
+len > cur and pv[cur] is "\0".
+
+Note that the final string may be up to 7 chars longer than pvlim.
+
+	char*	pv_display(SV *dsv, const char *pv, STRLEN cur,
+		           STRLEN len, STRLEN pvlim)
+
+=for hackers
+Found in file dump.c
+
+=item pv_escape
+X<pv_escape>
+
+Escapes at most the first C<count> chars of C<pv> and puts the results into
+C<dsv> such that the size of the escaped string will not exceed C<max> chars
+and will not contain any incomplete escape sequences.  The number of bytes
+escaped will be returned in the C<STRLEN *escaped> parameter if it is not null.
+When the C<dsv> parameter is null no escaping actually occurs, but the number
+of bytes that would be escaped were it not null will be calculated.
+
+If flags contains C<PERL_PV_ESCAPE_QUOTE> then any double quotes in the string
+will also be escaped.
+
+Normally the SV will be cleared before the escaped string is prepared,
+but when C<PERL_PV_ESCAPE_NOCLEAR> is set this will not occur.
+
+If C<PERL_PV_ESCAPE_UNI> is set then the input string is treated as UTF-8
+if C<PERL_PV_ESCAPE_UNI_DETECT> is set then the input string is scanned
+using C<is_utf8_string()> to determine if it is UTF-8.
+
+If C<PERL_PV_ESCAPE_ALL> is set then all input chars will be output
+using C<\x01F1> style escapes, otherwise if C<PERL_PV_ESCAPE_NONASCII> is set, only
+non-ASCII chars will be escaped using this style; otherwise, only chars above
+255 will be so escaped; other non printable chars will use octal or
+common escaped patterns like C<\n>.
+Otherwise, if C<PERL_PV_ESCAPE_NOBACKSLASH>
+then all chars below 255 will be treated as printable and
+will be output as literals.
+
+If C<PERL_PV_ESCAPE_FIRSTCHAR> is set then only the first char of the
+string will be escaped, regardless of max.  If the output is to be in hex,
+then it will be returned as a plain hex
+sequence.  Thus the output will either be a single char,
+an octal escape sequence, a special escape like C<\n> or a hex value.
+
+If C<PERL_PV_ESCAPE_RE> is set then the escape char used will be a C<"%"> and
+not a C<"\\">.  This is because regexes very often contain backslashed
+sequences, whereas C<"%"> is not a particularly common character in patterns.
+
+Returns a pointer to the escaped text as held by C<dsv>.
+
+	char*	pv_escape(SV *dsv, char const * const str,
+		          const STRLEN count, const STRLEN max,
+		          STRLEN * const escaped,
+		          const U32 flags)
+
+=for hackers
+Found in file dump.c
+
+=item pv_pretty
+X<pv_pretty>
+
+Converts a string into something presentable, handling escaping via
+C<pv_escape()> and supporting quoting and ellipses.
+
+If the C<PERL_PV_PRETTY_QUOTE> flag is set then the result will be
+double quoted with any double quotes in the string escaped.  Otherwise
+if the C<PERL_PV_PRETTY_LTGT> flag is set then the result be wrapped in
+angle brackets. 
+
+If the C<PERL_PV_PRETTY_ELLIPSES> flag is set and not all characters in
+string were output then an ellipsis C<...> will be appended to the
+string.  Note that this happens AFTER it has been quoted.
+
+If C<start_color> is non-null then it will be inserted after the opening
+quote (if there is one) but before the escaped text.  If C<end_color>
+is non-null then it will be inserted after the escaped text but before
+any quotes or ellipses.
+
+Returns a pointer to the prettified text as held by C<dsv>.
+
+	char*	pv_pretty(SV *dsv, char const * const str,
+		          const STRLEN count, const STRLEN max,
+		          char const * const start_color,
+		          char const * const end_color,
+		          const U32 flags)
+
+=for hackers
+Found in file dump.c
+
+
+=back
+
+=head1 Embedding Functions
+
+=over 8
+
+=item cv_clone
+X<cv_clone>
+
+Clone a CV, making a lexical closure.  C<proto> supplies the prototype
+of the function: its code, pad structure, and other attributes.
+The prototype is combined with a capture of outer lexicals to which the
+code refers, which are taken from the currently-executing instance of
+the immediately surrounding code.
+
+	CV *	cv_clone(CV *proto)
+
+=for hackers
+Found in file pad.c
+
+=item cv_name
+X<cv_name>
+
+Returns an SV containing the name of the CV, mainly for use in error
+reporting.  The CV may actually be a GV instead, in which case the returned
+SV holds the GV's name.  Anything other than a GV or CV is treated as a
+string already holding the sub name, but this could change in the future.
+
+An SV may be passed as a second argument.  If so, the name will be assigned
+to it and it will be returned.  Otherwise the returned SV will be a new
+mortal.
+
+If C<flags> has the C<CV_NAME_NOTQUAL> bit set, then the package name will not be
+included.  If the first argument is neither a CV nor a GV, this flag is
+ignored (subject to change).
+
+	SV *	cv_name(CV *cv, SV *sv, U32 flags)
+
+=for hackers
+Found in file pad.c
+
+=item cv_undef
+X<cv_undef>
+
+Clear out all the active components of a CV.  This can happen either
+by an explicit C<undef &foo>, or by the reference count going to zero.
+In the former case, we keep the C<CvOUTSIDE> pointer, so that any anonymous
+children can still follow the full lexical scope chain.
+
+	void	cv_undef(CV* cv)
+
+=for hackers
+Found in file pad.c
+
+=item find_rundefsv
+X<find_rundefsv>
+
+Returns the global variable C<$_>.
+
+	SV *	find_rundefsv()
+
+=for hackers
+Found in file pad.c
+
+=item find_rundefsvoffset
+X<find_rundefsvoffset>
+
+
+DEPRECATED!  It is planned to remove this function from a
+future release of Perl.  Do not use it for new code; remove it from
+existing code.
+
+
+Until the lexical C<$_> feature was removed, this function would
+find the position of the lexical C<$_> in the pad of the
+currently-executing function and returns the offset in the current pad,
+or C<NOT_IN_PAD>.
+
+Now it always returns C<NOT_IN_PAD>.
+
+NOTE: the perl_ form of this function is deprecated.
+
+	PADOFFSET find_rundefsvoffset()
+
+=for hackers
+Found in file pad.c
+
+=item intro_my
+X<intro_my>
+
+"Introduce" C<my> variables to visible status.  This is called during parsing
+at the end of each statement to make lexical variables visible to subsequent
+statements.
+
+	U32	intro_my()
+
+=for hackers
+Found in file pad.c
+
+=item load_module
+X<load_module>
+
+Loads the module whose name is pointed to by the string part of name.
+Note that the actual module name, not its filename, should be given.
+Eg, "Foo::Bar" instead of "Foo/Bar.pm".  flags can be any of
+C<PERL_LOADMOD_DENY>, C<PERL_LOADMOD_NOIMPORT>, or C<PERL_LOADMOD_IMPORT_OPS>
+(or 0 for no flags).  ver, if specified
+and not NULL, provides version semantics
+similar to C<use Foo::Bar VERSION>.  The optional trailing SV*
+arguments can be used to specify arguments to the module's C<import()>
+method, similar to C<use Foo::Bar VERSION LIST>.  They must be
+terminated with a final C<NULL> pointer.  Note that this list can only
+be omitted when the C<PERL_LOADMOD_NOIMPORT> flag has been used.
+Otherwise at least a single C<NULL> pointer to designate the default
+import list is required.
+
+The reference count for each specified C<SV*> parameter is decremented.
+
+	void	load_module(U32 flags, SV* name, SV* ver, ...)
+
+=for hackers
+Found in file op.c
+
+=item newPADNAMELIST
+X<newPADNAMELIST>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Creates a new pad name list.  C<max> is the highest index for which space
+is allocated.
+
+	PADNAMELIST * newPADNAMELIST(size_t max)
+
+=for hackers
+Found in file pad.c
+
+=item newPADNAMEouter
+X<newPADNAMEouter>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Constructs and returns a new pad name.  Only use this function for names
+that refer to outer lexicals.  (See also L</newPADNAMEpvn>.)  C<outer> is
+the outer pad name that this one mirrors.  The returned pad name has the
+C<PADNAMEt_OUTER> flag already set.
+
+	PADNAME * newPADNAMEouter(PADNAME *outer)
+
+=for hackers
+Found in file pad.c
+
+=item newPADNAMEpvn
+X<newPADNAMEpvn>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Constructs and returns a new pad name.  C<s> must be a UTF-8 string.  Do not
+use this for pad names that point to outer lexicals.  See
+C<L</newPADNAMEouter>>.
+
+	PADNAME * newPADNAMEpvn(const char *s, STRLEN len)
+
+=for hackers
+Found in file pad.c
+
+=item nothreadhook
+X<nothreadhook>
+
+Stub that provides thread hook for perl_destruct when there are
+no threads.
+
+	int	nothreadhook()
+
+=for hackers
+Found in file perl.c
+
+=item pad_add_anon
+X<pad_add_anon>
+
+Allocates a place in the currently-compiling pad (via L</pad_alloc>)
+for an anonymous function that is lexically scoped inside the
+currently-compiling function.
+The function C<func> is linked into the pad, and its C<CvOUTSIDE> link
+to the outer scope is weakened to avoid a reference loop.
+
+One reference count is stolen, so you may need to do C<SvREFCNT_inc(func)>.
+
+C<optype> should be an opcode indicating the type of operation that the
+pad entry is to support.  This doesn't affect operational semantics,
+but is used for debugging.
+
+	PADOFFSET pad_add_anon(CV *func, I32 optype)
+
+=for hackers
+Found in file pad.c
+
+=item pad_add_name_pv
+X<pad_add_name_pv>
+
+Exactly like L</pad_add_name_pvn>, but takes a nul-terminated string
+instead of a string/length pair.
+
+	PADOFFSET pad_add_name_pv(const char *name, U32 flags,
+	                          HV *typestash, HV *ourstash)
+
+=for hackers
+Found in file pad.c
+
+=item pad_add_name_pvn
+X<pad_add_name_pvn>
+
+Allocates a place in the currently-compiling pad for a named lexical
+variable.  Stores the name and other metadata in the name part of the
+pad, and makes preparations to manage the variable's lexical scoping.
+Returns the offset of the allocated pad slot.
+
+C<namepv>/C<namelen> specify the variable's name, including leading sigil.
+If C<typestash> is non-null, the name is for a typed lexical, and this
+identifies the type.  If C<ourstash> is non-null, it's a lexical reference
+to a package variable, and this identifies the package.  The following
+flags can be OR'ed together:
+
+ padadd_OUR          redundantly specifies if it's a package var
+ padadd_STATE        variable will retain value persistently
+ padadd_NO_DUP_CHECK skip check for lexical shadowing
+
+	PADOFFSET pad_add_name_pvn(const char *namepv,
+	                           STRLEN namelen, U32 flags,
+	                           HV *typestash, HV *ourstash)
+
+=for hackers
+Found in file pad.c
+
+=item pad_add_name_sv
+X<pad_add_name_sv>
+
+Exactly like L</pad_add_name_pvn>, but takes the name string in the form
+of an SV instead of a string/length pair.
+
+	PADOFFSET pad_add_name_sv(SV *name, U32 flags,
+	                          HV *typestash, HV *ourstash)
+
+=for hackers
+Found in file pad.c
+
+=item pad_alloc
+X<pad_alloc>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Allocates a place in the currently-compiling pad,
+returning the offset of the allocated pad slot.
+No name is initially attached to the pad slot.
+C<tmptype> is a set of flags indicating the kind of pad entry required,
+which will be set in the value SV for the allocated pad entry:
+
+    SVs_PADMY    named lexical variable ("my", "our", "state")
+    SVs_PADTMP   unnamed temporary store
+    SVf_READONLY constant shared between recursion levels
+
+C<SVf_READONLY> has been supported here only since perl 5.20.  To work with
+earlier versions as well, use C<SVf_READONLY|SVs_PADTMP>.  C<SVf_READONLY>
+does not cause the SV in the pad slot to be marked read-only, but simply
+tells C<pad_alloc> that it I<will> be made read-only (by the caller), or at
+least should be treated as such.
+
+C<optype> should be an opcode indicating the type of operation that the
+pad entry is to support.  This doesn't affect operational semantics,
+but is used for debugging.
+
+	PADOFFSET pad_alloc(I32 optype, U32 tmptype)
+
+=for hackers
+Found in file pad.c
+
+=item pad_findmy_pv
+X<pad_findmy_pv>
+
+Exactly like L</pad_findmy_pvn>, but takes a nul-terminated string
+instead of a string/length pair.
+
+	PADOFFSET pad_findmy_pv(const char *name, U32 flags)
+
+=for hackers
+Found in file pad.c
+
+=item pad_findmy_pvn
+X<pad_findmy_pvn>
+
+Given the name of a lexical variable, find its position in the
+currently-compiling pad.
+C<namepv>/C<namelen> specify the variable's name, including leading sigil.
+C<flags> is reserved and must be zero.
+If it is not in the current pad but appears in the pad of any lexically
+enclosing scope, then a pseudo-entry for it is added in the current pad.
+Returns the offset in the current pad,
+or C<NOT_IN_PAD> if no such lexical is in scope.
+
+	PADOFFSET pad_findmy_pvn(const char *namepv,
+	                         STRLEN namelen, U32 flags)
+
+=for hackers
+Found in file pad.c
+
+=item pad_findmy_sv
+X<pad_findmy_sv>
+
+Exactly like L</pad_findmy_pvn>, but takes the name string in the form
+of an SV instead of a string/length pair.
+
+	PADOFFSET pad_findmy_sv(SV *name, U32 flags)
+
+=for hackers
+Found in file pad.c
+
+=item padnamelist_fetch
+X<padnamelist_fetch>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Fetches the pad name from the given index.
+
+	PADNAME * padnamelist_fetch(PADNAMELIST *pnl,
+	                            SSize_t key)
+
+=for hackers
+Found in file pad.c
+
+=item padnamelist_store
+X<padnamelist_store>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Stores the pad name (which may be null) at the given index, freeing any
+existing pad name in that slot.
+
+	PADNAME ** padnamelist_store(PADNAMELIST *pnl,
+	                             SSize_t key, PADNAME *val)
+
+=for hackers
+Found in file pad.c
+
+=item pad_setsv
+X<pad_setsv>
+
+Set the value at offset C<po> in the current (compiling or executing) pad.
+Use the macro C<PAD_SETSV()> rather than calling this function directly.
+
+	void	pad_setsv(PADOFFSET po, SV *sv)
+
+=for hackers
+Found in file pad.c
+
+=item pad_sv
+X<pad_sv>
+
+Get the value at offset C<po> in the current (compiling or executing) pad.
+Use macro C<PAD_SV> instead of calling this function directly.
+
+	SV *	pad_sv(PADOFFSET po)
+
+=for hackers
+Found in file pad.c
+
+=item pad_tidy
+X<pad_tidy>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Tidy up a pad at the end of compilation of the code to which it belongs.
+Jobs performed here are: remove most stuff from the pads of anonsub
+prototypes; give it a C<@_>; mark temporaries as such.  C<type> indicates
+the kind of subroutine:
+
+    padtidy_SUB        ordinary subroutine
+    padtidy_SUBCLONE   prototype for lexical closure
+    padtidy_FORMAT     format
+
+	void	pad_tidy(padtidy_type type)
+
+=for hackers
+Found in file pad.c
+
+=item perl_alloc
+X<perl_alloc>
+
+Allocates a new Perl interpreter.  See L<perlembed>.
+
+	PerlInterpreter* perl_alloc()
+
+=for hackers
+Found in file perl.c
+
+=item perl_construct
+X<perl_construct>
+
+Initializes a new Perl interpreter.  See L<perlembed>.
+
+	void	perl_construct(PerlInterpreter *my_perl)
+
+=for hackers
+Found in file perl.c
+
+=item perl_destruct
+X<perl_destruct>
+
+Shuts down a Perl interpreter.  See L<perlembed>.
+
+	int	perl_destruct(PerlInterpreter *my_perl)
+
+=for hackers
+Found in file perl.c
+
+=item perl_free
+X<perl_free>
+
+Releases a Perl interpreter.  See L<perlembed>.
+
+	void	perl_free(PerlInterpreter *my_perl)
+
+=for hackers
+Found in file perl.c
+
+=item perl_parse
+X<perl_parse>
+
+Tells a Perl interpreter to parse a Perl script.  See L<perlembed>.
+
+	int	perl_parse(PerlInterpreter *my_perl,
+		           XSINIT_t xsinit, int argc,
+		           char** argv, char** env)
+
+=for hackers
+Found in file perl.c
+
+=item perl_run
+X<perl_run>
+
+Tells a Perl interpreter to run.  See L<perlembed>.
+
+	int	perl_run(PerlInterpreter *my_perl)
+
+=for hackers
+Found in file perl.c
+
+=item require_pv
+X<require_pv>
+
+Tells Perl to C<require> the file named by the string argument.  It is
+analogous to the Perl code C<eval "require '$file'">.  It's even
+implemented that way; consider using load_module instead.
+
+NOTE: the perl_ form of this function is deprecated.
+
+	void	require_pv(const char* pv)
+
+=for hackers
+Found in file perl.c
+
+
+=back
+
+=head1 Exception Handling (simple) Macros
+
+=over 8
+
+=item dXCPT
+X<dXCPT>
+
+Set up necessary local variables for exception handling.
+See L<perlguts/"Exception Handling">.
+
+		dXCPT;
+
+=for hackers
+Found in file XSUB.h
+
+=item XCPT_CATCH
+X<XCPT_CATCH>
+
+Introduces a catch block.  See L<perlguts/"Exception Handling">.
+
+=for hackers
+Found in file XSUB.h
+
+=item XCPT_RETHROW
+X<XCPT_RETHROW>
+
+Rethrows a previously caught exception.  See L<perlguts/"Exception Handling">.
+
+		XCPT_RETHROW;
+
+=for hackers
+Found in file XSUB.h
+
+=item XCPT_TRY_END
+X<XCPT_TRY_END>
+
+Ends a try block.  See L<perlguts/"Exception Handling">.
+
+=for hackers
+Found in file XSUB.h
+
+=item XCPT_TRY_START
+X<XCPT_TRY_START>
+
+Starts a try block.  See L<perlguts/"Exception Handling">.
+
+=for hackers
+Found in file XSUB.h
+
+
+=back
+
+=head1 Functions in file scope.c
+
+
+=over 8
+
+=item save_gp
+X<save_gp>
+
+Saves the current GP of gv on the save stack to be restored on scope exit.
+
+If empty is true, replace the GP with a new GP.
+
+If empty is false, mark gv with GVf_INTRO so the next reference
+assigned is localized, which is how C< local *foo = $someref; > works.
+
+	void	save_gp(GV* gv, I32 empty)
+
+=for hackers
+Found in file scope.c
+
+
+=back
+
+=head1 Functions in file vutil.c
+
+
+=over 8
+
+=item new_version
+X<new_version>
+
+Returns a new version object based on the passed in SV:
+
+    SV *sv = new_version(SV *ver);
+
+Does not alter the passed in ver SV.  See "upg_version" if you
+want to upgrade the SV.
+
+	SV*	new_version(SV *ver)
+
+=for hackers
+Found in file vutil.c
+
+=item prescan_version
+X<prescan_version>
+
+Validate that a given string can be parsed as a version object, but doesn't
+actually perform the parsing.  Can use either strict or lax validation rules.
+Can optionally set a number of hint variables to save the parsing code
+some time when tokenizing.
+
+	const char* prescan_version(const char *s, bool strict,
+	                            const char** errstr,
+	                            bool *sqv,
+	                            int *ssaw_decimal,
+	                            int *swidth, bool *salpha)
+
+=for hackers
+Found in file vutil.c
+
+=item scan_version
+X<scan_version>
+
+Returns a pointer to the next character after the parsed
+version string, as well as upgrading the passed in SV to
+an RV.
+
+Function must be called with an already existing SV like
+
+    sv = newSV(0);
+    s = scan_version(s, SV *sv, bool qv);
+
+Performs some preprocessing to the string to ensure that
+it has the correct characteristics of a version.  Flags the
+object if it contains an underscore (which denotes this
+is an alpha version).  The boolean qv denotes that the version
+should be interpreted as if it had multiple decimals, even if
+it doesn't.
+
+	const char* scan_version(const char *s, SV *rv, bool qv)
+
+=for hackers
+Found in file vutil.c
+
+=item upg_version
+X<upg_version>
+
+In-place upgrade of the supplied SV to a version object.
+
+    SV *sv = upg_version(SV *sv, bool qv);
+
+Returns a pointer to the upgraded SV.  Set the boolean qv if you want
+to force this SV to be interpreted as an "extended" version.
+
+	SV*	upg_version(SV *ver, bool qv)
+
+=for hackers
+Found in file vutil.c
+
+=item vcmp
+X<vcmp>
+
+Version object aware cmp.  Both operands must already have been 
+converted into version objects.
+
+	int	vcmp(SV *lhv, SV *rhv)
+
+=for hackers
+Found in file vutil.c
+
+=item vnormal
+X<vnormal>
+
+Accepts a version object and returns the normalized string
+representation.  Call like:
+
+    sv = vnormal(rv);
+
+NOTE: you can pass either the object directly or the SV
+contained within the RV.
+
+The SV returned has a refcount of 1.
+
+	SV*	vnormal(SV *vs)
+
+=for hackers
+Found in file vutil.c
+
+=item vnumify
+X<vnumify>
+
+Accepts a version object and returns the normalized floating
+point representation.  Call like:
+
+    sv = vnumify(rv);
+
+NOTE: you can pass either the object directly or the SV
+contained within the RV.
+
+The SV returned has a refcount of 1.
+
+	SV*	vnumify(SV *vs)
+
+=for hackers
+Found in file vutil.c
+
+=item vstringify
+X<vstringify>
+
+In order to maintain maximum compatibility with earlier versions
+of Perl, this function will return either the floating point
+notation or the multiple dotted notation, depending on whether
+the original version contained 1 or more dots, respectively.
+
+The SV returned has a refcount of 1.
+
+	SV*	vstringify(SV *vs)
+
+=for hackers
+Found in file vutil.c
+
+=item vverify
+X<vverify>
+
+Validates that the SV contains valid internal structure for a version object.
+It may be passed either the version object (RV) or the hash itself (HV).  If
+the structure is valid, it returns the HV.  If the structure is invalid,
+it returns NULL.
+
+    SV *hv = vverify(sv);
+
+Note that it only confirms the bare minimum structure (so as not to get
+confused by derived classes which may contain additional hash entries):
+
+	SV*	vverify(SV *vs)
+
+=for hackers
+Found in file vutil.c
+
+
+=back
+
+=head1 "Gimme" Values
+
+=over 8
+
+=item G_ARRAY
+X<G_ARRAY>
+
+Used to indicate list context.  See C<L</GIMME_V>>, C<L</GIMME>> and
+L<perlcall>.
+
+=for hackers
+Found in file cop.h
+
+=item G_DISCARD
+X<G_DISCARD>
+
+Indicates that arguments returned from a callback should be discarded.  See
+L<perlcall>.
+
+=for hackers
+Found in file cop.h
+
+=item G_EVAL
+X<G_EVAL>
+
+Used to force a Perl C<eval> wrapper around a callback.  See
+L<perlcall>.
+
+=for hackers
+Found in file cop.h
+
+=item GIMME
+X<GIMME>
+
+A backward-compatible version of C<GIMME_V> which can only return
+C<G_SCALAR> or C<G_ARRAY>; in a void context, it returns C<G_SCALAR>.
+Deprecated.  Use C<GIMME_V> instead.
+
+	U32	GIMME
+
+=for hackers
+Found in file op.h
+
+=item GIMME_V
+X<GIMME_V>
+
+The XSUB-writer's equivalent to Perl's C<wantarray>.  Returns C<G_VOID>,
+C<G_SCALAR> or C<G_ARRAY> for void, scalar or list context,
+respectively.  See L<perlcall> for a usage example.
+
+	U32	GIMME_V
+
+=for hackers
+Found in file op.h
+
+=item G_NOARGS
+X<G_NOARGS>
+
+Indicates that no arguments are being sent to a callback.  See
+L<perlcall>.
+
+=for hackers
+Found in file cop.h
+
+=item G_SCALAR
+X<G_SCALAR>
+
+Used to indicate scalar context.  See C<L</GIMME_V>>, C<L</GIMME>>, and
+L<perlcall>.
+
+=for hackers
+Found in file cop.h
+
+=item G_VOID
+X<G_VOID>
+
+Used to indicate void context.  See C<L</GIMME_V>> and L<perlcall>.
+
+=for hackers
+Found in file cop.h
+
+
+=back
+
+=head1 Global Variables
+
+These variables are global to an entire process.  They are shared between
+all interpreters and all threads in a process.  Any variables not documented
+here may be changed or removed without notice, so don't use them!
+If you feel you really do need to use an unlisted variable, first send email to
+L<perl5-porters@perl.org|mailto:perl5-porters@perl.org>.  It may be that
+someone there will point out a way to accomplish what you need without using an
+internal variable.  But if not, you should get a go-ahead to document and then
+use the variable.
+
+
+=over 8
+
+=item PL_check
+X<PL_check>
+
+Array, indexed by opcode, of functions that will be called for the "check"
+phase of optree building during compilation of Perl code.  For most (but
+not all) types of op, once the op has been initially built and populated
+with child ops it will be filtered through the check function referenced
+by the appropriate element of this array.  The new op is passed in as the
+sole argument to the check function, and the check function returns the
+completed op.  The check function may (as the name suggests) check the op
+for validity and signal errors.  It may also initialise or modify parts of
+the ops, or perform more radical surgery such as adding or removing child
+ops, or even throw the op away and return a different op in its place.
+
+This array of function pointers is a convenient place to hook into the
+compilation process.  An XS module can put its own custom check function
+in place of any of the standard ones, to influence the compilation of a
+particular type of op.  However, a custom check function must never fully
+replace a standard check function (or even a custom check function from
+another module).  A module modifying checking must instead B<wrap> the
+preexisting check function.  A custom check function must be selective
+about when to apply its custom behaviour.  In the usual case where
+it decides not to do anything special with an op, it must chain the
+preexisting op function.  Check functions are thus linked in a chain,
+with the core's base checker at the end.
+
+For thread safety, modules should not write directly to this array.
+Instead, use the function L</wrap_op_checker>.
+
+=for hackers
+Found in file perlvars.h
+
+=item PL_keyword_plugin
+X<PL_keyword_plugin>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Function pointer, pointing at a function used to handle extended keywords.
+The function should be declared as
+
+	int keyword_plugin_function(pTHX_
+		char *keyword_ptr, STRLEN keyword_len,
+		OP **op_ptr)
+
+The function is called from the tokeniser, whenever a possible keyword
+is seen.  C<keyword_ptr> points at the word in the parser's input
+buffer, and C<keyword_len> gives its length; it is not null-terminated.
+The function is expected to examine the word, and possibly other state
+such as L<%^H|perlvar/%^H>, to decide whether it wants to handle it
+as an extended keyword.  If it does not, the function should return
+C<KEYWORD_PLUGIN_DECLINE>, and the normal parser process will continue.
+
+If the function wants to handle the keyword, it first must
+parse anything following the keyword that is part of the syntax
+introduced by the keyword.  See L</Lexer interface> for details.
+
+When a keyword is being handled, the plugin function must build
+a tree of C<OP> structures, representing the code that was parsed.
+The root of the tree must be stored in C<*op_ptr>.  The function then
+returns a constant indicating the syntactic role of the construct that
+it has parsed: C<KEYWORD_PLUGIN_STMT> if it is a complete statement, or
+C<KEYWORD_PLUGIN_EXPR> if it is an expression.  Note that a statement
+construct cannot be used inside an expression (except via C<do BLOCK>
+and similar), and an expression is not a complete statement (it requires
+at least a terminating semicolon).
+
+When a keyword is handled, the plugin function may also have
+(compile-time) side effects.  It may modify C<%^H>, define functions, and
+so on.  Typically, if side effects are the main purpose of a handler,
+it does not wish to generate any ops to be included in the normal
+compilation.  In this case it is still required to supply an op tree,
+but it suffices to generate a single null op.
+
+That's how the C<*PL_keyword_plugin> function needs to behave overall.
+Conventionally, however, one does not completely replace the existing
+handler function.  Instead, take a copy of C<PL_keyword_plugin> before
+assigning your own function pointer to it.  Your handler function should
+look for keywords that it is interested in and handle those.  Where it
+is not interested, it should call the saved plugin function, passing on
+the arguments it received.  Thus C<PL_keyword_plugin> actually points
+at a chain of handler functions, all of which have an opportunity to
+handle keywords, and only the last function in the chain (built into
+the Perl core) will normally return C<KEYWORD_PLUGIN_DECLINE>.
+
+=for hackers
+Found in file perlvars.h
+
+
+=back
+
+=head1 GV Functions
+
+A GV is a structure which corresponds to to a Perl typeglob, ie *foo.
+It is a structure that holds a pointer to a scalar, an array, a hash etc,
+corresponding to $foo, @foo, %foo.
+
+GVs are usually found as values in stashes (symbol table hashes) where
+Perl stores its global variables.
+
+
+=over 8
+
+=item GvAV
+X<GvAV>
+
+Return the AV from the GV.
+
+	AV*	GvAV(GV* gv)
+
+=for hackers
+Found in file gv.h
+
+=item gv_const_sv
+X<gv_const_sv>
+
+If C<gv> is a typeglob whose subroutine entry is a constant sub eligible for
+inlining, or C<gv> is a placeholder reference that would be promoted to such
+a typeglob, then returns the value returned by the sub.  Otherwise, returns
+C<NULL>.
+
+	SV*	gv_const_sv(GV* gv)
+
+=for hackers
+Found in file gv.c
+
+=item GvCV
+X<GvCV>
+
+Return the CV from the GV.
+
+	CV*	GvCV(GV* gv)
+
+=for hackers
+Found in file gv.h
+
+=item gv_fetchmeth
+X<gv_fetchmeth>
+
+Like L</gv_fetchmeth_pvn>, but lacks a flags parameter.
+
+	GV*	gv_fetchmeth(HV* stash, const char* name,
+		             STRLEN len, I32 level)
+
+=for hackers
+Found in file gv.c
+
+=item gv_fetchmethod_autoload
+X<gv_fetchmethod_autoload>
+
+Returns the glob which contains the subroutine to call to invoke the method
+on the C<stash>.  In fact in the presence of autoloading this may be the
+glob for "AUTOLOAD".  In this case the corresponding variable C<$AUTOLOAD> is
+already setup.
+
+The third parameter of C<gv_fetchmethod_autoload> determines whether
+AUTOLOAD lookup is performed if the given method is not present: non-zero
+means yes, look for AUTOLOAD; zero means no, don't look for AUTOLOAD.
+Calling C<gv_fetchmethod> is equivalent to calling C<gv_fetchmethod_autoload>
+with a non-zero C<autoload> parameter.
+
+These functions grant C<"SUPER"> token
+as a prefix of the method name.  Note
+that if you want to keep the returned glob for a long time, you need to
+check for it being "AUTOLOAD", since at the later time the call may load a
+different subroutine due to C<$AUTOLOAD> changing its value.  Use the glob
+created as a side effect to do this.
+
+These functions have the same side-effects as C<gv_fetchmeth> with
+C<level==0>.  The warning against passing the GV returned by
+C<gv_fetchmeth> to C<call_sv> applies equally to these functions.
+
+	GV*	gv_fetchmethod_autoload(HV* stash,
+		                        const char* name,
+		                        I32 autoload)
+
+=for hackers
+Found in file gv.c
+
+=item gv_fetchmeth_autoload
+X<gv_fetchmeth_autoload>
+
+This is the old form of L</gv_fetchmeth_pvn_autoload>, which has no flags
+parameter.
+
+	GV*	gv_fetchmeth_autoload(HV* stash,
+		                      const char* name,
+		                      STRLEN len, I32 level)
+
+=for hackers
+Found in file gv.c
+
+=item gv_fetchmeth_pv
+X<gv_fetchmeth_pv>
+
+Exactly like L</gv_fetchmeth_pvn>, but takes a nul-terminated string 
+instead of a string/length pair.
+
+	GV*	gv_fetchmeth_pv(HV* stash, const char* name,
+		                I32 level, U32 flags)
+
+=for hackers
+Found in file gv.c
+
+=item gv_fetchmeth_pvn
+X<gv_fetchmeth_pvn>
+
+Returns the glob with the given C<name> and a defined subroutine or
+C<NULL>.  The glob lives in the given C<stash>, or in the stashes
+accessible via C<@ISA> and C<UNIVERSAL::>.
+
+The argument C<level> should be either 0 or -1.  If C<level==0>, as a
+side-effect creates a glob with the given C<name> in the given C<stash>
+which in the case of success contains an alias for the subroutine, and sets
+up caching info for this glob.
+
+The only significant values for C<flags> are C<GV_SUPER> and C<SVf_UTF8>.
+
+C<GV_SUPER> indicates that we want to look up the method in the superclasses
+of the C<stash>.
+
+The
+GV returned from C<gv_fetchmeth> may be a method cache entry, which is not
+visible to Perl code.  So when calling C<call_sv>, you should not use
+the GV directly; instead, you should use the method's CV, which can be
+obtained from the GV with the C<GvCV> macro.
+
+	GV*	gv_fetchmeth_pvn(HV* stash, const char* name,
+		                 STRLEN len, I32 level,
+		                 U32 flags)
+
+=for hackers
+Found in file gv.c
+
+=item gv_fetchmeth_pvn_autoload
+X<gv_fetchmeth_pvn_autoload>
+
+Same as C<gv_fetchmeth_pvn()>, but looks for autoloaded subroutines too.
+Returns a glob for the subroutine.
+
+For an autoloaded subroutine without a GV, will create a GV even
+if C<level < 0>.  For an autoloaded subroutine without a stub, C<GvCV()>
+of the result may be zero.
+
+Currently, the only significant value for C<flags> is C<SVf_UTF8>.
+
+	GV*	gv_fetchmeth_pvn_autoload(HV* stash,
+		                          const char* name,
+		                          STRLEN len, I32 level,
+		                          U32 flags)
+
+=for hackers
+Found in file gv.c
+
+=item gv_fetchmeth_pv_autoload
+X<gv_fetchmeth_pv_autoload>
+
+Exactly like L</gv_fetchmeth_pvn_autoload>, but takes a nul-terminated string
+instead of a string/length pair.
+
+	GV*	gv_fetchmeth_pv_autoload(HV* stash,
+		                         const char* name,
+		                         I32 level, U32 flags)
+
+=for hackers
+Found in file gv.c
+
+=item gv_fetchmeth_sv
+X<gv_fetchmeth_sv>
+
+Exactly like L</gv_fetchmeth_pvn>, but takes the name string in the form
+of an SV instead of a string/length pair.
+
+	GV*	gv_fetchmeth_sv(HV* stash, SV* namesv,
+		                I32 level, U32 flags)
+
+=for hackers
+Found in file gv.c
+
+=item gv_fetchmeth_sv_autoload
+X<gv_fetchmeth_sv_autoload>
+
+Exactly like L</gv_fetchmeth_pvn_autoload>, but takes the name string in the form
+of an SV instead of a string/length pair.
+
+	GV*	gv_fetchmeth_sv_autoload(HV* stash, SV* namesv,
+		                         I32 level, U32 flags)
+
+=for hackers
+Found in file gv.c
+
+=item GvHV
+X<GvHV>
+
+Return the HV from the GV.
+
+	HV*	GvHV(GV* gv)
+
+=for hackers
+Found in file gv.h
+
+=item gv_init
+X<gv_init>
+
+The old form of C<gv_init_pvn()>.  It does not work with UTF-8 strings, as it
+has no flags parameter.  If the C<multi> parameter is set, the
+C<GV_ADDMULTI> flag will be passed to C<gv_init_pvn()>.
+
+	void	gv_init(GV* gv, HV* stash, const char* name,
+		        STRLEN len, int multi)
+
+=for hackers
+Found in file gv.c
+
+=item gv_init_pv
+X<gv_init_pv>
+
+Same as C<gv_init_pvn()>, but takes a nul-terminated string for the name
+instead of separate char * and length parameters.
+
+	void	gv_init_pv(GV* gv, HV* stash, const char* name,
+		           U32 flags)
+
+=for hackers
+Found in file gv.c
+
+=item gv_init_pvn
+X<gv_init_pvn>
+
+Converts a scalar into a typeglob.  This is an incoercible typeglob;
+assigning a reference to it will assign to one of its slots, instead of
+overwriting it as happens with typeglobs created by C<SvSetSV>.  Converting
+any scalar that is C<SvOK()> may produce unpredictable results and is reserved
+for perl's internal use.
+
+C<gv> is the scalar to be converted.
+
+C<stash> is the parent stash/package, if any.
+
+C<name> and C<len> give the name.  The name must be unqualified;
+that is, it must not include the package name.  If C<gv> is a
+stash element, it is the caller's responsibility to ensure that the name
+passed to this function matches the name of the element.  If it does not
+match, perl's internal bookkeeping will get out of sync.
+
+C<flags> can be set to C<SVf_UTF8> if C<name> is a UTF-8 string, or
+the return value of SvUTF8(sv).  It can also take the
+C<GV_ADDMULTI> flag, which means to pretend that the GV has been
+seen before (i.e., suppress "Used once" warnings).
+
+	void	gv_init_pvn(GV* gv, HV* stash, const char* name,
+		            STRLEN len, U32 flags)
+
+=for hackers
+Found in file gv.c
+
+=item gv_init_sv
+X<gv_init_sv>
+
+Same as C<gv_init_pvn()>, but takes an SV * for the name instead of separate
+char * and length parameters.  C<flags> is currently unused.
+
+	void	gv_init_sv(GV* gv, HV* stash, SV* namesv,
+		           U32 flags)
+
+=for hackers
+Found in file gv.c
+
+=item gv_stashpv
+X<gv_stashpv>
+
+Returns a pointer to the stash for a specified package.  Uses C<strlen> to
+determine the length of C<name>, then calls C<gv_stashpvn()>.
+
+	HV*	gv_stashpv(const char* name, I32 flags)
+
+=for hackers
+Found in file gv.c
+
+=item gv_stashpvn
+X<gv_stashpvn>
+
+Returns a pointer to the stash for a specified package.  The C<namelen>
+parameter indicates the length of the C<name>, in bytes.  C<flags> is passed
+to C<gv_fetchpvn_flags()>, so if set to C<GV_ADD> then the package will be
+created if it does not already exist.  If the package does not exist and
+C<flags> is 0 (or any other setting that does not create packages) then C<NULL>
+is returned.
+
+Flags may be one of:
+
+    GV_ADD
+    SVf_UTF8
+    GV_NOADD_NOINIT
+    GV_NOINIT
+    GV_NOEXPAND
+    GV_ADDMG
+
+The most important of which are probably C<GV_ADD> and C<SVf_UTF8>.
+
+Note, use of C<gv_stashsv> instead of C<gv_stashpvn> where possible is strongly
+recommended for performance reasons.
+
+	HV*	gv_stashpvn(const char* name, U32 namelen,
+		            I32 flags)
+
+=for hackers
+Found in file gv.c
+
+=item gv_stashpvs
+X<gv_stashpvs>
+
+Like C<gv_stashpvn>, but takes a C<NUL>-terminated literal string instead of a
+string/length pair.
+
+	HV*	gv_stashpvs(const char* name, I32 create)
+
+=for hackers
+Found in file handy.h
+
+=item gv_stashsv
+X<gv_stashsv>
+
+Returns a pointer to the stash for a specified package.  See
+C<L</gv_stashpvn>>.
+
+Note this interface is strongly preferred over C<gv_stashpvn> for performance
+reasons.
+
+	HV*	gv_stashsv(SV* sv, I32 flags)
+
+=for hackers
+Found in file gv.c
+
+=item GvSV
+X<GvSV>
+
+Return the SV from the GV.
+
+	SV*	GvSV(GV* gv)
+
+=for hackers
+Found in file gv.h
+
+=item setdefout
+X<setdefout>
+
+Sets C<PL_defoutgv>, the default file handle for output, to the passed in
+typeglob.  As C<PL_defoutgv> "owns" a reference on its typeglob, the reference
+count of the passed in typeglob is increased by one, and the reference count
+of the typeglob that C<PL_defoutgv> points to is decreased by one.
+
+	void	setdefout(GV* gv)
+
+=for hackers
+Found in file pp_sys.c
+
+
+=back
+
+=head1 Handy Values
+
+=over 8
+
+=item Nullav
+X<Nullav>
+
+Null AV pointer.
+
+(deprecated - use C<(AV *)NULL> instead)
+
+=for hackers
+Found in file av.h
+
+=item Nullch
+X<Nullch>
+
+Null character pointer.  (No longer available when C<PERL_CORE> is
+defined.)
+
+=for hackers
+Found in file handy.h
+
+=item Nullcv
+X<Nullcv>
+
+Null CV pointer.
+
+(deprecated - use C<(CV *)NULL> instead)
+
+=for hackers
+Found in file cv.h
+
+=item Nullhv
+X<Nullhv>
+
+Null HV pointer.
+
+(deprecated - use C<(HV *)NULL> instead)
+
+=for hackers
+Found in file hv.h
+
+=item Nullsv
+X<Nullsv>
+
+Null SV pointer.  (No longer available when C<PERL_CORE> is defined.)
+
+=for hackers
+Found in file handy.h
+
+
+=back
+
+=head1 Hash Manipulation Functions
+
+A HV structure represents a Perl hash.  It consists mainly of an array
+of pointers, each of which points to a linked list of HE structures.  The
+array is indexed by the hash function of the key, so each linked list
+represents all the hash entries with the same hash value.  Each HE contains
+a pointer to the actual value, plus a pointer to a HEK structure which
+holds the key and hash value.
+
+
+=over 8
+
+=item cop_fetch_label
+X<cop_fetch_label>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Returns the label attached to a cop.
+The flags pointer may be set to C<SVf_UTF8> or 0.
+
+	const char * cop_fetch_label(COP *const cop,
+	                             STRLEN *len, U32 *flags)
+
+=for hackers
+Found in file hv.c
+
+=item cop_store_label
+X<cop_store_label>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Save a label into a C<cop_hints_hash>.
+You need to set flags to C<SVf_UTF8>
+for a UTF-8 label.
+
+	void	cop_store_label(COP *const cop,
+		                const char *label, STRLEN len,
+		                U32 flags)
+
+=for hackers
+Found in file hv.c
+
+=item get_hv
+X<get_hv>
+
+Returns the HV of the specified Perl hash.  C<flags> are passed to
+C<gv_fetchpv>.  If C<GV_ADD> is set and the
+Perl variable does not exist then it will be created.  If C<flags> is zero
+and the variable does not exist then C<NULL> is returned.
+
+NOTE: the perl_ form of this function is deprecated.
+
+	HV*	get_hv(const char *name, I32 flags)
+
+=for hackers
+Found in file perl.c
+
+=item HEf_SVKEY
+X<HEf_SVKEY>
+
+This flag, used in the length slot of hash entries and magic structures,
+specifies the structure contains an C<SV*> pointer where a C<char*> pointer
+is to be expected.  (For information only--not to be used).
+
+=for hackers
+Found in file hv.h
+
+=item HeHASH
+X<HeHASH>
+
+Returns the computed hash stored in the hash entry.
+
+	U32	HeHASH(HE* he)
+
+=for hackers
+Found in file hv.h
+
+=item HeKEY
+X<HeKEY>
+
+Returns the actual pointer stored in the key slot of the hash entry.  The
+pointer may be either C<char*> or C<SV*>, depending on the value of
+C<HeKLEN()>.  Can be assigned to.  The C<HePV()> or C<HeSVKEY()> macros are
+usually preferable for finding the value of a key.
+
+	void*	HeKEY(HE* he)
+
+=for hackers
+Found in file hv.h
+
+=item HeKLEN
+X<HeKLEN>
+
+If this is negative, and amounts to C<HEf_SVKEY>, it indicates the entry
+holds an C<SV*> key.  Otherwise, holds the actual length of the key.  Can
+be assigned to.  The C<HePV()> macro is usually preferable for finding key
+lengths.
+
+	STRLEN	HeKLEN(HE* he)
+
+=for hackers
+Found in file hv.h
+
+=item HePV
+X<HePV>
+
+Returns the key slot of the hash entry as a C<char*> value, doing any
+necessary dereferencing of possibly C<SV*> keys.  The length of the string
+is placed in C<len> (this is a macro, so do I<not> use C<&len>).  If you do
+not care about what the length of the key is, you may use the global
+variable C<PL_na>, though this is rather less efficient than using a local
+variable.  Remember though, that hash keys in perl are free to contain
+embedded nulls, so using C<strlen()> or similar is not a good way to find
+the length of hash keys.  This is very similar to the C<SvPV()> macro
+described elsewhere in this document.  See also C<L</HeUTF8>>.
+
+If you are using C<HePV> to get values to pass to C<newSVpvn()> to create a
+new SV, you should consider using C<newSVhek(HeKEY_hek(he))> as it is more
+efficient.
+
+	char*	HePV(HE* he, STRLEN len)
+
+=for hackers
+Found in file hv.h
+
+=item HeSVKEY
+X<HeSVKEY>
+
+Returns the key as an C<SV*>, or C<NULL> if the hash entry does not
+contain an C<SV*> key.
+
+	SV*	HeSVKEY(HE* he)
+
+=for hackers
+Found in file hv.h
+
+=item HeSVKEY_force
+X<HeSVKEY_force>
+
+Returns the key as an C<SV*>.  Will create and return a temporary mortal
+C<SV*> if the hash entry contains only a C<char*> key.
+
+	SV*	HeSVKEY_force(HE* he)
+
+=for hackers
+Found in file hv.h
+
+=item HeSVKEY_set
+X<HeSVKEY_set>
+
+Sets the key to a given C<SV*>, taking care to set the appropriate flags to
+indicate the presence of an C<SV*> key, and returns the same
+C<SV*>.
+
+	SV*	HeSVKEY_set(HE* he, SV* sv)
+
+=for hackers
+Found in file hv.h
+
+=item HeUTF8
+X<HeUTF8>
+
+Returns whether the C<char *> value returned by C<HePV> is encoded in UTF-8,
+doing any necessary dereferencing of possibly C<SV*> keys.  The value returned
+will be 0 or non-0, not necessarily 1 (or even a value with any low bits set),
+so B<do not> blindly assign this to a C<bool> variable, as C<bool> may be a
+typedef for C<char>.
+
+	U32	HeUTF8(HE* he)
+
+=for hackers
+Found in file hv.h
+
+=item HeVAL
+X<HeVAL>
+
+Returns the value slot (type C<SV*>)
+stored in the hash entry.  Can be assigned
+to.
+
+  SV *foo= HeVAL(hv);
+  HeVAL(hv)= sv;
+
+
+	SV*	HeVAL(HE* he)
+
+=for hackers
+Found in file hv.h
+
+=item hv_assert
+X<hv_assert>
+
+Check that a hash is in an internally consistent state.
+
+	void	hv_assert(HV *hv)
+
+=for hackers
+Found in file hv.c
+
+=item hv_clear
+X<hv_clear>
+
+Frees the all the elements of a hash, leaving it empty.
+The XS equivalent of C<%hash = ()>.  See also L</hv_undef>.
+
+See L</av_clear> for a note about the hash possibly being invalid on
+return.
+
+	void	hv_clear(HV *hv)
+
+=for hackers
+Found in file hv.c
+
+=item hv_clear_placeholders
+X<hv_clear_placeholders>
+
+Clears any placeholders from a hash.  If a restricted hash has any of its keys
+marked as readonly and the key is subsequently deleted, the key is not actually
+deleted but is marked by assigning it a value of C<&PL_sv_placeholder>.  This tags
+it so it will be ignored by future operations such as iterating over the hash,
+but will still allow the hash to have a value reassigned to the key at some
+future point.  This function clears any such placeholder keys from the hash.
+See C<L<Hash::Util::lock_keys()|Hash::Util/lock_keys>> for an example of its
+use.
+
+	void	hv_clear_placeholders(HV *hv)
+
+=for hackers
+Found in file hv.c
+
+=item hv_copy_hints_hv
+X<hv_copy_hints_hv>
+
+A specialised version of L</newHVhv> for copying C<%^H>.  C<ohv> must be
+a pointer to a hash (which may have C<%^H> magic, but should be generally
+non-magical), or C<NULL> (interpreted as an empty hash).  The content
+of C<ohv> is copied to a new hash, which has the C<%^H>-specific magic
+added to it.  A pointer to the new hash is returned.
+
+	HV *	hv_copy_hints_hv(HV *ohv)
+
+=for hackers
+Found in file hv.c
+
+=item hv_delete
+X<hv_delete>
+
+Deletes a key/value pair in the hash.  The value's SV is removed from
+the hash, made mortal, and returned to the caller.  The absolute
+value of C<klen> is the length of the key.  If C<klen> is negative the
+key is assumed to be in UTF-8-encoded Unicode.  The C<flags> value
+will normally be zero; if set to C<G_DISCARD> then C<NULL> will be returned.
+C<NULL> will also be returned if the key is not found.
+
+	SV*	hv_delete(HV *hv, const char *key, I32 klen,
+		          I32 flags)
+
+=for hackers
+Found in file hv.c
+
+=item hv_delete_ent
+X<hv_delete_ent>
+
+Deletes a key/value pair in the hash.  The value SV is removed from the hash,
+made mortal, and returned to the caller.  The C<flags> value will normally be
+zero; if set to C<G_DISCARD> then C<NULL> will be returned.  C<NULL> will also
+be returned if the key is not found.  C<hash> can be a valid precomputed hash
+value, or 0 to ask for it to be computed.
+
+	SV*	hv_delete_ent(HV *hv, SV *keysv, I32 flags,
+		              U32 hash)
+
+=for hackers
+Found in file hv.c
+
+=item HvENAME
+X<HvENAME>
+
+Returns the effective name of a stash, or NULL if there is none.  The
+effective name represents a location in the symbol table where this stash
+resides.  It is updated automatically when packages are aliased or deleted.
+A stash that is no longer in the symbol table has no effective name.  This
+name is preferable to C<HvNAME> for use in MRO linearisations and isa
+caches.
+
+	char*	HvENAME(HV* stash)
+
+=for hackers
+Found in file hv.h
+
+=item HvENAMELEN
+X<HvENAMELEN>
+
+Returns the length of the stash's effective name.
+
+	STRLEN	HvENAMELEN(HV *stash)
+
+=for hackers
+Found in file hv.h
+
+=item HvENAMEUTF8
+X<HvENAMEUTF8>
+
+Returns true if the effective name is in UTF-8 encoding.
+
+	unsigned char HvENAMEUTF8(HV *stash)
+
+=for hackers
+Found in file hv.h
+
+=item hv_exists
+X<hv_exists>
+
+Returns a boolean indicating whether the specified hash key exists.  The
+absolute value of C<klen> is the length of the key.  If C<klen> is
+negative the key is assumed to be in UTF-8-encoded Unicode.
+
+	bool	hv_exists(HV *hv, const char *key, I32 klen)
+
+=for hackers
+Found in file hv.c
+
+=item hv_exists_ent
+X<hv_exists_ent>
+
+Returns a boolean indicating whether
+the specified hash key exists.  C<hash>
+can be a valid precomputed hash value, or 0 to ask for it to be
+computed.
+
+	bool	hv_exists_ent(HV *hv, SV *keysv, U32 hash)
+
+=for hackers
+Found in file hv.c
+
+=item hv_fetch
+X<hv_fetch>
+
+Returns the SV which corresponds to the specified key in the hash.
+The absolute value of C<klen> is the length of the key.  If C<klen> is
+negative the key is assumed to be in UTF-8-encoded Unicode.  If
+C<lval> is set then the fetch will be part of a store.  This means that if
+there is no value in the hash associated with the given key, then one is
+created and a pointer to it is returned.  The C<SV*> it points to can be
+assigned to.  But always check that the
+return value is non-null before dereferencing it to an C<SV*>.
+
+See L<perlguts/"Understanding the Magic of Tied Hashes and Arrays"> for more
+information on how to use this function on tied hashes.
+
+	SV**	hv_fetch(HV *hv, const char *key, I32 klen,
+		         I32 lval)
+
+=for hackers
+Found in file hv.c
+
+=item hv_fetchs
+X<hv_fetchs>
+
+Like C<hv_fetch>, but takes a C<NUL>-terminated literal string instead of a
+string/length pair.
+
+	SV**	hv_fetchs(HV* tb, const char* key, I32 lval)
+
+=for hackers
+Found in file handy.h
+
+=item hv_fetch_ent
+X<hv_fetch_ent>
+
+Returns the hash entry which corresponds to the specified key in the hash.
+C<hash> must be a valid precomputed hash number for the given C<key>, or 0
+if you want the function to compute it.  IF C<lval> is set then the fetch
+will be part of a store.  Make sure the return value is non-null before
+accessing it.  The return value when C<hv> is a tied hash is a pointer to a
+static location, so be sure to make a copy of the structure if you need to
+store it somewhere.
+
+See L<perlguts/"Understanding the Magic of Tied Hashes and Arrays"> for more
+information on how to use this function on tied hashes.
+
+	HE*	hv_fetch_ent(HV *hv, SV *keysv, I32 lval,
+		             U32 hash)
+
+=for hackers
+Found in file hv.c
+
+=item hv_fill
+X<hv_fill>
+
+Returns the number of hash buckets that
+happen to be in use.  This function is
+wrapped by the macro C<HvFILL>.
+
+Previously this value was always stored in the HV structure, which created an
+overhead on every hash (and pretty much every object) for something that was
+rarely used.  Now we calculate it on demand the first
+time that it is needed, and cache it if that calculation
+is going to be costly to repeat.  The cached
+value is updated by insertions and deletions, but (currently) discarded if
+the hash is split.
+
+	STRLEN	hv_fill(HV *const hv)
+
+=for hackers
+Found in file hv.c
+
+=item hv_iterinit
+X<hv_iterinit>
+
+Prepares a starting point to traverse a hash table.  Returns the number of
+keys in the hash (i.e. the same as C<HvUSEDKEYS(hv)>).  The return value is
+currently only meaningful for hashes without tie magic.
+
+NOTE: Before version 5.004_65, C<hv_iterinit> used to return the number of
+hash buckets that happen to be in use.  If you still need that esoteric
+value, you can get it through the macro C<HvFILL(hv)>.
+
+
+	I32	hv_iterinit(HV *hv)
+
+=for hackers
+Found in file hv.c
+
+=item hv_iterkey
+X<hv_iterkey>
+
+Returns the key from the current position of the hash iterator.  See
+C<L</hv_iterinit>>.
+
+	char*	hv_iterkey(HE* entry, I32* retlen)
+
+=for hackers
+Found in file hv.c
+
+=item hv_iterkeysv
+X<hv_iterkeysv>
+
+Returns the key as an C<SV*> from the current position of the hash
+iterator.  The return value will always be a mortal copy of the key.  Also
+see C<L</hv_iterinit>>.
+
+	SV*	hv_iterkeysv(HE* entry)
+
+=for hackers
+Found in file hv.c
+
+=item hv_iternext
+X<hv_iternext>
+
+Returns entries from a hash iterator.  See C<L</hv_iterinit>>.
+
+You may call C<hv_delete> or C<hv_delete_ent> on the hash entry that the
+iterator currently points to, without losing your place or invalidating your
+iterator.  Note that in this case the current entry is deleted from the hash
+with your iterator holding the last reference to it.  Your iterator is flagged
+to free the entry on the next call to C<hv_iternext>, so you must not discard
+your iterator immediately else the entry will leak - call C<hv_iternext> to
+trigger the resource deallocation.
+
+	HE*	hv_iternext(HV *hv)
+
+=for hackers
+Found in file hv.c
+
+=item hv_iternextsv
+X<hv_iternextsv>
+
+Performs an C<hv_iternext>, C<hv_iterkey>, and C<hv_iterval> in one
+operation.
+
+	SV*	hv_iternextsv(HV *hv, char **key, I32 *retlen)
+
+=for hackers
+Found in file hv.c
+
+=item hv_iternext_flags
+X<hv_iternext_flags>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Returns entries from a hash iterator.  See C<L</hv_iterinit>> and
+C<L</hv_iternext>>.
+The C<flags> value will normally be zero; if C<HV_ITERNEXT_WANTPLACEHOLDERS> is
+set the placeholders keys (for restricted hashes) will be returned in addition
+to normal keys.  By default placeholders are automatically skipped over.
+Currently a placeholder is implemented with a value that is
+C<&PL_sv_placeholder>.  Note that the implementation of placeholders and
+restricted hashes may change, and the implementation currently is
+insufficiently abstracted for any change to be tidy.
+
+	HE*	hv_iternext_flags(HV *hv, I32 flags)
+
+=for hackers
+Found in file hv.c
+
+=item hv_iterval
+X<hv_iterval>
+
+Returns the value from the current position of the hash iterator.  See
+C<L</hv_iterkey>>.
+
+	SV*	hv_iterval(HV *hv, HE *entry)
+
+=for hackers
+Found in file hv.c
+
+=item hv_magic
+X<hv_magic>
+
+Adds magic to a hash.  See C<L</sv_magic>>.
+
+	void	hv_magic(HV *hv, GV *gv, int how)
+
+=for hackers
+Found in file hv.c
+
+=item HvNAME
+X<HvNAME>
+
+Returns the package name of a stash, or C<NULL> if C<stash> isn't a stash.
+See C<L</SvSTASH>>, C<L</CvSTASH>>.
+
+	char*	HvNAME(HV* stash)
+
+=for hackers
+Found in file hv.h
+
+=item HvNAMELEN
+X<HvNAMELEN>
+
+Returns the length of the stash's name.
+
+	STRLEN	HvNAMELEN(HV *stash)
+
+=for hackers
+Found in file hv.h
+
+=item HvNAMEUTF8
+X<HvNAMEUTF8>
+
+Returns true if the name is in UTF-8 encoding.
+
+	unsigned char HvNAMEUTF8(HV *stash)
+
+=for hackers
+Found in file hv.h
+
+=item hv_scalar
+X<hv_scalar>
+
+Evaluates the hash in scalar context and returns the result.  Handles magic
+when the hash is tied.
+
+	SV*	hv_scalar(HV *hv)
+
+=for hackers
+Found in file hv.c
+
+=item hv_store
+X<hv_store>
+
+Stores an SV in a hash.  The hash key is specified as C<key> and the
+absolute value of C<klen> is the length of the key.  If C<klen> is
+negative the key is assumed to be in UTF-8-encoded Unicode.  The
+C<hash> parameter is the precomputed hash value; if it is zero then
+Perl will compute it.
+
+The return value will be
+C<NULL> if the operation failed or if the value did not need to be actually
+stored within the hash (as in the case of tied hashes).  Otherwise it can
+be dereferenced to get the original C<SV*>.  Note that the caller is
+responsible for suitably incrementing the reference count of C<val> before
+the call, and decrementing it if the function returned C<NULL>.  Effectively
+a successful C<hv_store> takes ownership of one reference to C<val>.  This is
+usually what you want; a newly created SV has a reference count of one, so
+if all your code does is create SVs then store them in a hash, C<hv_store>
+will own the only reference to the new SV, and your code doesn't need to do
+anything further to tidy up.  C<hv_store> is not implemented as a call to
+C<hv_store_ent>, and does not create a temporary SV for the key, so if your
+key data is not already in SV form then use C<hv_store> in preference to
+C<hv_store_ent>.
+
+See L<perlguts/"Understanding the Magic of Tied Hashes and Arrays"> for more
+information on how to use this function on tied hashes.
+
+	SV**	hv_store(HV *hv, const char *key, I32 klen,
+		         SV *val, U32 hash)
+
+=for hackers
+Found in file hv.c
+
+=item hv_stores
+X<hv_stores>
+
+Like C<hv_store>, but takes a C<NUL>-terminated literal string instead of a
+string/length pair
+and omits the hash parameter.
+
+	SV**	hv_stores(HV* tb, const char* key,
+		          NULLOK SV* val)
+
+=for hackers
+Found in file handy.h
+
+=item hv_store_ent
+X<hv_store_ent>
+
+Stores C<val> in a hash.  The hash key is specified as C<key>.  The C<hash>
+parameter is the precomputed hash value; if it is zero then Perl will
+compute it.  The return value is the new hash entry so created.  It will be
+C<NULL> if the operation failed or if the value did not need to be actually
+stored within the hash (as in the case of tied hashes).  Otherwise the
+contents of the return value can be accessed using the C<He?> macros
+described here.  Note that the caller is responsible for suitably
+incrementing the reference count of C<val> before the call, and
+decrementing it if the function returned NULL.  Effectively a successful
+C<hv_store_ent> takes ownership of one reference to C<val>.  This is
+usually what you want; a newly created SV has a reference count of one, so
+if all your code does is create SVs then store them in a hash, C<hv_store>
+will own the only reference to the new SV, and your code doesn't need to do
+anything further to tidy up.  Note that C<hv_store_ent> only reads the C<key>;
+unlike C<val> it does not take ownership of it, so maintaining the correct
+reference count on C<key> is entirely the caller's responsibility.  C<hv_store>
+is not implemented as a call to C<hv_store_ent>, and does not create a temporary
+SV for the key, so if your key data is not already in SV form then use
+C<hv_store> in preference to C<hv_store_ent>.
+
+See L<perlguts/"Understanding the Magic of Tied Hashes and Arrays"> for more
+information on how to use this function on tied hashes.
+
+	HE*	hv_store_ent(HV *hv, SV *key, SV *val, U32 hash)
+
+=for hackers
+Found in file hv.c
+
+=item hv_undef
+X<hv_undef>
+
+Undefines the hash.  The XS equivalent of C<undef(%hash)>.
+
+As well as freeing all the elements of the hash (like C<hv_clear()>), this
+also frees any auxiliary data and storage associated with the hash.
+
+See L</av_clear> for a note about the hash possibly being invalid on
+return.
+
+	void	hv_undef(HV *hv)
+
+=for hackers
+Found in file hv.c
+
+=item newHV
+X<newHV>
+
+Creates a new HV.  The reference count is set to 1.
+
+	HV*	newHV()
+
+=for hackers
+Found in file hv.h
+
+
+=back
+
+=head1 Hook manipulation
+
+These functions provide convenient and thread-safe means of manipulating
+hook variables.
+
+
+=over 8
+
+=item wrap_op_checker
+X<wrap_op_checker>
+
+Puts a C function into the chain of check functions for a specified op
+type.  This is the preferred way to manipulate the L</PL_check> array.
+C<opcode> specifies which type of op is to be affected.  C<new_checker>
+is a pointer to the C function that is to be added to that opcode's
+check chain, and C<old_checker_p> points to the storage location where a
+pointer to the next function in the chain will be stored.  The value of
+C<new_pointer> is written into the L</PL_check> array, while the value
+previously stored there is written to C<*old_checker_p>.
+
+The function should be defined like this:
+
+    static OP *new_checker(pTHX_ OP *op) { ... }
+
+It is intended to be called in this manner:
+
+    new_checker(aTHX_ op)
+
+C<old_checker_p> should be defined like this:
+
+    static Perl_check_t old_checker_p;
+
+L</PL_check> is global to an entire process, and a module wishing to
+hook op checking may find itself invoked more than once per process,
+typically in different threads.  To handle that situation, this function
+is idempotent.  The location C<*old_checker_p> must initially (once
+per process) contain a null pointer.  A C variable of static duration
+(declared at file scope, typically also marked C<static> to give
+it internal linkage) will be implicitly initialised appropriately,
+if it does not have an explicit initialiser.  This function will only
+actually modify the check chain if it finds C<*old_checker_p> to be null.
+This function is also thread safe on the small scale.  It uses appropriate
+locking to avoid race conditions in accessing L</PL_check>.
+
+When this function is called, the function referenced by C<new_checker>
+must be ready to be called, except for C<*old_checker_p> being unfilled.
+In a threading situation, C<new_checker> may be called immediately,
+even before this function has returned.  C<*old_checker_p> will always
+be appropriately set before C<new_checker> is called.  If C<new_checker>
+decides not to do anything special with an op that it is given (which
+is the usual case for most uses of op check hooking), it must chain the
+check function referenced by C<*old_checker_p>.
+
+If you want to influence compilation of calls to a specific subroutine,
+then use L</cv_set_call_checker> rather than hooking checking of all
+C<entersub> ops.
+
+	void	wrap_op_checker(Optype opcode,
+		                Perl_check_t new_checker,
+		                Perl_check_t *old_checker_p)
+
+=for hackers
+Found in file op.c
+
+
+=back
+
+=head1 Lexer interface
+
+This is the lower layer of the Perl parser, managing characters and tokens.
+
+
+=over 8
+
+=item lex_bufutf8
+X<lex_bufutf8>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Indicates whether the octets in the lexer buffer
+(L</PL_parser-E<gt>linestr>) should be interpreted as the UTF-8 encoding
+of Unicode characters.  If not, they should be interpreted as Latin-1
+characters.  This is analogous to the C<SvUTF8> flag for scalars.
+
+In UTF-8 mode, it is not guaranteed that the lexer buffer actually
+contains valid UTF-8.  Lexing code must be robust in the face of invalid
+encoding.
+
+The actual C<SvUTF8> flag of the L</PL_parser-E<gt>linestr> scalar
+is significant, but not the whole story regarding the input character
+encoding.  Normally, when a file is being read, the scalar contains octets
+and its C<SvUTF8> flag is off, but the octets should be interpreted as
+UTF-8 if the C<use utf8> pragma is in effect.  During a string eval,
+however, the scalar may have the C<SvUTF8> flag on, and in this case its
+octets should be interpreted as UTF-8 unless the C<use bytes> pragma
+is in effect.  This logic may change in the future; use this function
+instead of implementing the logic yourself.
+
+	bool	lex_bufutf8()
+
+=for hackers
+Found in file toke.c
+
+=item lex_discard_to
+X<lex_discard_to>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Discards the first part of the L</PL_parser-E<gt>linestr> buffer,
+up to C<ptr>.  The remaining content of the buffer will be moved, and
+all pointers into the buffer updated appropriately.  C<ptr> must not
+be later in the buffer than the position of L</PL_parser-E<gt>bufptr>:
+it is not permitted to discard text that has yet to be lexed.
+
+Normally it is not necessarily to do this directly, because it suffices to
+use the implicit discarding behaviour of L</lex_next_chunk> and things
+based on it.  However, if a token stretches across multiple lines,
+and the lexing code has kept multiple lines of text in the buffer for
+that purpose, then after completion of the token it would be wise to
+explicitly discard the now-unneeded earlier lines, to avoid future
+multi-line tokens growing the buffer without bound.
+
+	void	lex_discard_to(char *ptr)
+
+=for hackers
+Found in file toke.c
+
+=item lex_grow_linestr
+X<lex_grow_linestr>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Reallocates the lexer buffer (L</PL_parser-E<gt>linestr>) to accommodate
+at least C<len> octets (including terminating C<NUL>).  Returns a
+pointer to the reallocated buffer.  This is necessary before making
+any direct modification of the buffer that would increase its length.
+L</lex_stuff_pvn> provides a more convenient way to insert text into
+the buffer.
+
+Do not use C<SvGROW> or C<sv_grow> directly on C<PL_parser-E<gt>linestr>;
+this function updates all of the lexer's variables that point directly
+into the buffer.
+
+	char *	lex_grow_linestr(STRLEN len)
+
+=for hackers
+Found in file toke.c
+
+=item lex_next_chunk
+X<lex_next_chunk>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Reads in the next chunk of text to be lexed, appending it to
+L</PL_parser-E<gt>linestr>.  This should be called when lexing code has
+looked to the end of the current chunk and wants to know more.  It is
+usual, but not necessary, for lexing to have consumed the entirety of
+the current chunk at this time.
+
+If L</PL_parser-E<gt>bufptr> is pointing to the very end of the current
+chunk (i.e., the current chunk has been entirely consumed), normally the
+current chunk will be discarded at the same time that the new chunk is
+read in.  If C<flags> has the C<LEX_KEEP_PREVIOUS> bit set, the current chunk
+will not be discarded.  If the current chunk has not been entirely
+consumed, then it will not be discarded regardless of the flag.
+
+Returns true if some new text was added to the buffer, or false if the
+buffer has reached the end of the input text.
+
+	bool	lex_next_chunk(U32 flags)
+
+=for hackers
+Found in file toke.c
+
+=item lex_peek_unichar
+X<lex_peek_unichar>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Looks ahead one (Unicode) character in the text currently being lexed.
+Returns the codepoint (unsigned integer value) of the next character,
+or -1 if lexing has reached the end of the input text.  To consume the
+peeked character, use L</lex_read_unichar>.
+
+If the next character is in (or extends into) the next chunk of input
+text, the next chunk will be read in.  Normally the current chunk will be
+discarded at the same time, but if C<flags> has the C<LEX_KEEP_PREVIOUS>
+bit set, then the current chunk will not be discarded.
+
+If the input is being interpreted as UTF-8 and a UTF-8 encoding error
+is encountered, an exception is generated.
+
+	I32	lex_peek_unichar(U32 flags)
+
+=for hackers
+Found in file toke.c
+
+=item lex_read_space
+X<lex_read_space>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Reads optional spaces, in Perl style, in the text currently being
+lexed.  The spaces may include ordinary whitespace characters and
+Perl-style comments.  C<#line> directives are processed if encountered.
+L</PL_parser-E<gt>bufptr> is moved past the spaces, so that it points
+at a non-space character (or the end of the input text).
+
+If spaces extend into the next chunk of input text, the next chunk will
+be read in.  Normally the current chunk will be discarded at the same
+time, but if C<flags> has the C<LEX_KEEP_PREVIOUS> bit set, then the current
+chunk will not be discarded.
+
+	void	lex_read_space(U32 flags)
+
+=for hackers
+Found in file toke.c
+
+=item lex_read_to
+X<lex_read_to>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Consume text in the lexer buffer, from L</PL_parser-E<gt>bufptr> up
+to C<ptr>.  This advances L</PL_parser-E<gt>bufptr> to match C<ptr>,
+performing the correct bookkeeping whenever a newline character is passed.
+This is the normal way to consume lexed text.
+
+Interpretation of the buffer's octets can be abstracted out by
+using the slightly higher-level functions L</lex_peek_unichar> and
+L</lex_read_unichar>.
+
+	void	lex_read_to(char *ptr)
+
+=for hackers
+Found in file toke.c
+
+=item lex_read_unichar
+X<lex_read_unichar>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Reads the next (Unicode) character in the text currently being lexed.
+Returns the codepoint (unsigned integer value) of the character read,
+and moves L</PL_parser-E<gt>bufptr> past the character, or returns -1
+if lexing has reached the end of the input text.  To non-destructively
+examine the next character, use L</lex_peek_unichar> instead.
+
+If the next character is in (or extends into) the next chunk of input
+text, the next chunk will be read in.  Normally the current chunk will be
+discarded at the same time, but if C<flags> has the C<LEX_KEEP_PREVIOUS>
+bit set, then the current chunk will not be discarded.
+
+If the input is being interpreted as UTF-8 and a UTF-8 encoding error
+is encountered, an exception is generated.
+
+	I32	lex_read_unichar(U32 flags)
+
+=for hackers
+Found in file toke.c
+
+=item lex_start
+X<lex_start>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Creates and initialises a new lexer/parser state object, supplying
+a context in which to lex and parse from a new source of Perl code.
+A pointer to the new state object is placed in L</PL_parser>.  An entry
+is made on the save stack so that upon unwinding the new state object
+will be destroyed and the former value of L</PL_parser> will be restored.
+Nothing else need be done to clean up the parsing context.
+
+The code to be parsed comes from C<line> and C<rsfp>.  C<line>, if
+non-null, provides a string (in SV form) containing code to be parsed.
+A copy of the string is made, so subsequent modification of C<line>
+does not affect parsing.  C<rsfp>, if non-null, provides an input stream
+from which code will be read to be parsed.  If both are non-null, the
+code in C<line> comes first and must consist of complete lines of input,
+and C<rsfp> supplies the remainder of the source.
+
+The C<flags> parameter is reserved for future use.  Currently it is only
+used by perl internally, so extensions should always pass zero.
+
+	void	lex_start(SV *line, PerlIO *rsfp, U32 flags)
+
+=for hackers
+Found in file toke.c
+
+=item lex_stuff_pv
+X<lex_stuff_pv>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Insert characters into the lexer buffer (L</PL_parser-E<gt>linestr>),
+immediately after the current lexing point (L</PL_parser-E<gt>bufptr>),
+reallocating the buffer if necessary.  This means that lexing code that
+runs later will see the characters as if they had appeared in the input.
+It is not recommended to do this as part of normal parsing, and most
+uses of this facility run the risk of the inserted characters being
+interpreted in an unintended manner.
+
+The string to be inserted is represented by octets starting at C<pv>
+and continuing to the first nul.  These octets are interpreted as either
+UTF-8 or Latin-1, according to whether the C<LEX_STUFF_UTF8> flag is set
+in C<flags>.  The characters are recoded for the lexer buffer, according
+to how the buffer is currently being interpreted (L</lex_bufutf8>).
+If it is not convenient to nul-terminate a string to be inserted, the
+L</lex_stuff_pvn> function is more appropriate.
+
+	void	lex_stuff_pv(const char *pv, U32 flags)
+
+=for hackers
+Found in file toke.c
+
+=item lex_stuff_pvn
+X<lex_stuff_pvn>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Insert characters into the lexer buffer (L</PL_parser-E<gt>linestr>),
+immediately after the current lexing point (L</PL_parser-E<gt>bufptr>),
+reallocating the buffer if necessary.  This means that lexing code that
+runs later will see the characters as if they had appeared in the input.
+It is not recommended to do this as part of normal parsing, and most
+uses of this facility run the risk of the inserted characters being
+interpreted in an unintended manner.
+
+The string to be inserted is represented by C<len> octets starting
+at C<pv>.  These octets are interpreted as either UTF-8 or Latin-1,
+according to whether the C<LEX_STUFF_UTF8> flag is set in C<flags>.
+The characters are recoded for the lexer buffer, according to how the
+buffer is currently being interpreted (L</lex_bufutf8>).  If a string
+to be inserted is available as a Perl scalar, the L</lex_stuff_sv>
+function is more convenient.
+
+	void	lex_stuff_pvn(const char *pv, STRLEN len,
+		              U32 flags)
+
+=for hackers
+Found in file toke.c
+
+=item lex_stuff_pvs
+X<lex_stuff_pvs>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Like L</lex_stuff_pvn>, but takes a C<NUL>-terminated literal string instead of
+a string/length pair.
+
+	void	lex_stuff_pvs(const char *pv, U32 flags)
+
+=for hackers
+Found in file handy.h
+
+=item lex_stuff_sv
+X<lex_stuff_sv>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Insert characters into the lexer buffer (L</PL_parser-E<gt>linestr>),
+immediately after the current lexing point (L</PL_parser-E<gt>bufptr>),
+reallocating the buffer if necessary.  This means that lexing code that
+runs later will see the characters as if they had appeared in the input.
+It is not recommended to do this as part of normal parsing, and most
+uses of this facility run the risk of the inserted characters being
+interpreted in an unintended manner.
+
+The string to be inserted is the string value of C<sv>.  The characters
+are recoded for the lexer buffer, according to how the buffer is currently
+being interpreted (L</lex_bufutf8>).  If a string to be inserted is
+not already a Perl scalar, the L</lex_stuff_pvn> function avoids the
+need to construct a scalar.
+
+	void	lex_stuff_sv(SV *sv, U32 flags)
+
+=for hackers
+Found in file toke.c
+
+=item lex_unstuff
+X<lex_unstuff>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Discards text about to be lexed, from L</PL_parser-E<gt>bufptr> up to
+C<ptr>.  Text following C<ptr> will be moved, and the buffer shortened.
+This hides the discarded text from any lexing code that runs later,
+as if the text had never appeared.
+
+This is not the normal way to consume lexed text.  For that, use
+L</lex_read_to>.
+
+	void	lex_unstuff(char *ptr)
+
+=for hackers
+Found in file toke.c
+
+=item parse_arithexpr
+X<parse_arithexpr>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Parse a Perl arithmetic expression.  This may contain operators of precedence
+down to the bit shift operators.  The expression must be followed (and thus
+terminated) either by a comparison or lower-precedence operator or by
+something that would normally terminate an expression such as semicolon.
+If C<flags> has the C<PARSE_OPTIONAL> bit set, then the expression is optional,
+otherwise it is mandatory.  It is up to the caller to ensure that the
+dynamic parser state (L</PL_parser> et al) is correctly set to reflect
+the source of the code to be parsed and the lexical context for the
+expression.
+
+The op tree representing the expression is returned.  If an optional
+expression is absent, a null pointer is returned, otherwise the pointer
+will be non-null.
+
+If an error occurs in parsing or compilation, in most cases a valid op
+tree is returned anyway.  The error is reflected in the parser state,
+normally resulting in a single exception at the top level of parsing
+which covers all the compilation errors that occurred.  Some compilation
+errors, however, will throw an exception immediately.
+
+	OP *	parse_arithexpr(U32 flags)
+
+=for hackers
+Found in file toke.c
+
+=item parse_barestmt
+X<parse_barestmt>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Parse a single unadorned Perl statement.  This may be a normal imperative
+statement or a declaration that has compile-time effect.  It does not
+include any label or other affixture.  It is up to the caller to ensure
+that the dynamic parser state (L</PL_parser> et al) is correctly set to
+reflect the source of the code to be parsed and the lexical context for
+the statement.
+
+The op tree representing the statement is returned.  This may be a
+null pointer if the statement is null, for example if it was actually
+a subroutine definition (which has compile-time side effects).  If not
+null, it will be ops directly implementing the statement, suitable to
+pass to L</newSTATEOP>.  It will not normally include a C<nextstate> or
+equivalent op (except for those embedded in a scope contained entirely
+within the statement).
+
+If an error occurs in parsing or compilation, in most cases a valid op
+tree (most likely null) is returned anyway.  The error is reflected in
+the parser state, normally resulting in a single exception at the top
+level of parsing which covers all the compilation errors that occurred.
+Some compilation errors, however, will throw an exception immediately.
+
+The C<flags> parameter is reserved for future use, and must always
+be zero.
+
+	OP *	parse_barestmt(U32 flags)
+
+=for hackers
+Found in file toke.c
+
+=item parse_block
+X<parse_block>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Parse a single complete Perl code block.  This consists of an opening
+brace, a sequence of statements, and a closing brace.  The block
+constitutes a lexical scope, so C<my> variables and various compile-time
+effects can be contained within it.  It is up to the caller to ensure
+that the dynamic parser state (L</PL_parser> et al) is correctly set to
+reflect the source of the code to be parsed and the lexical context for
+the statement.
+
+The op tree representing the code block is returned.  This is always a
+real op, never a null pointer.  It will normally be a C<lineseq> list,
+including C<nextstate> or equivalent ops.  No ops to construct any kind
+of runtime scope are included by virtue of it being a block.
+
+If an error occurs in parsing or compilation, in most cases a valid op
+tree (most likely null) is returned anyway.  The error is reflected in
+the parser state, normally resulting in a single exception at the top
+level of parsing which covers all the compilation errors that occurred.
+Some compilation errors, however, will throw an exception immediately.
+
+The C<flags> parameter is reserved for future use, and must always
+be zero.
+
+	OP *	parse_block(U32 flags)
+
+=for hackers
+Found in file toke.c
+
+=item parse_fullexpr
+X<parse_fullexpr>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Parse a single complete Perl expression.  This allows the full
+expression grammar, including the lowest-precedence operators such
+as C<or>.  The expression must be followed (and thus terminated) by a
+token that an expression would normally be terminated by: end-of-file,
+closing bracketing punctuation, semicolon, or one of the keywords that
+signals a postfix expression-statement modifier.  If C<flags> has the
+C<PARSE_OPTIONAL> bit set, then the expression is optional, otherwise it is
+mandatory.  It is up to the caller to ensure that the dynamic parser
+state (L</PL_parser> et al) is correctly set to reflect the source of
+the code to be parsed and the lexical context for the expression.
+
+The op tree representing the expression is returned.  If an optional
+expression is absent, a null pointer is returned, otherwise the pointer
+will be non-null.
+
+If an error occurs in parsing or compilation, in most cases a valid op
+tree is returned anyway.  The error is reflected in the parser state,
+normally resulting in a single exception at the top level of parsing
+which covers all the compilation errors that occurred.  Some compilation
+errors, however, will throw an exception immediately.
+
+	OP *	parse_fullexpr(U32 flags)
+
+=for hackers
+Found in file toke.c
+
+=item parse_fullstmt
+X<parse_fullstmt>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Parse a single complete Perl statement.  This may be a normal imperative
+statement or a declaration that has compile-time effect, and may include
+optional labels.  It is up to the caller to ensure that the dynamic
+parser state (L</PL_parser> et al) is correctly set to reflect the source
+of the code to be parsed and the lexical context for the statement.
+
+The op tree representing the statement is returned.  This may be a
+null pointer if the statement is null, for example if it was actually
+a subroutine definition (which has compile-time side effects).  If not
+null, it will be the result of a L</newSTATEOP> call, normally including
+a C<nextstate> or equivalent op.
+
+If an error occurs in parsing or compilation, in most cases a valid op
+tree (most likely null) is returned anyway.  The error is reflected in
+the parser state, normally resulting in a single exception at the top
+level of parsing which covers all the compilation errors that occurred.
+Some compilation errors, however, will throw an exception immediately.
+
+The C<flags> parameter is reserved for future use, and must always
+be zero.
+
+	OP *	parse_fullstmt(U32 flags)
+
+=for hackers
+Found in file toke.c
+
+=item parse_label
+X<parse_label>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Parse a single label, possibly optional, of the type that may prefix a
+Perl statement.  It is up to the caller to ensure that the dynamic parser
+state (L</PL_parser> et al) is correctly set to reflect the source of
+the code to be parsed.  If C<flags> has the C<PARSE_OPTIONAL> bit set, then the
+label is optional, otherwise it is mandatory.
+
+The name of the label is returned in the form of a fresh scalar.  If an
+optional label is absent, a null pointer is returned.
+
+If an error occurs in parsing, which can only occur if the label is
+mandatory, a valid label is returned anyway.  The error is reflected in
+the parser state, normally resulting in a single exception at the top
+level of parsing which covers all the compilation errors that occurred.
+
+	SV *	parse_label(U32 flags)
+
+=for hackers
+Found in file toke.c
+
+=item parse_listexpr
+X<parse_listexpr>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Parse a Perl list expression.  This may contain operators of precedence
+down to the comma operator.  The expression must be followed (and thus
+terminated) either by a low-precedence logic operator such as C<or> or by
+something that would normally terminate an expression such as semicolon.
+If C<flags> has the C<PARSE_OPTIONAL> bit set, then the expression is optional,
+otherwise it is mandatory.  It is up to the caller to ensure that the
+dynamic parser state (L</PL_parser> et al) is correctly set to reflect
+the source of the code to be parsed and the lexical context for the
+expression.
+
+The op tree representing the expression is returned.  If an optional
+expression is absent, a null pointer is returned, otherwise the pointer
+will be non-null.
+
+If an error occurs in parsing or compilation, in most cases a valid op
+tree is returned anyway.  The error is reflected in the parser state,
+normally resulting in a single exception at the top level of parsing
+which covers all the compilation errors that occurred.  Some compilation
+errors, however, will throw an exception immediately.
+
+	OP *	parse_listexpr(U32 flags)
+
+=for hackers
+Found in file toke.c
+
+=item parse_stmtseq
+X<parse_stmtseq>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Parse a sequence of zero or more Perl statements.  These may be normal
+imperative statements, including optional labels, or declarations
+that have compile-time effect, or any mixture thereof.  The statement
+sequence ends when a closing brace or end-of-file is encountered in a
+place where a new statement could have validly started.  It is up to
+the caller to ensure that the dynamic parser state (L</PL_parser> et al)
+is correctly set to reflect the source of the code to be parsed and the
+lexical context for the statements.
+
+The op tree representing the statement sequence is returned.  This may
+be a null pointer if the statements were all null, for example if there
+were no statements or if there were only subroutine definitions (which
+have compile-time side effects).  If not null, it will be a C<lineseq>
+list, normally including C<nextstate> or equivalent ops.
+
+If an error occurs in parsing or compilation, in most cases a valid op
+tree is returned anyway.  The error is reflected in the parser state,
+normally resulting in a single exception at the top level of parsing
+which covers all the compilation errors that occurred.  Some compilation
+errors, however, will throw an exception immediately.
+
+The C<flags> parameter is reserved for future use, and must always
+be zero.
+
+	OP *	parse_stmtseq(U32 flags)
+
+=for hackers
+Found in file toke.c
+
+=item parse_termexpr
+X<parse_termexpr>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Parse a Perl term expression.  This may contain operators of precedence
+down to the assignment operators.  The expression must be followed (and thus
+terminated) either by a comma or lower-precedence operator or by
+something that would normally terminate an expression such as semicolon.
+If C<flags> has the C<PARSE_OPTIONAL> bit set, then the expression is optional,
+otherwise it is mandatory.  It is up to the caller to ensure that the
+dynamic parser state (L</PL_parser> et al) is correctly set to reflect
+the source of the code to be parsed and the lexical context for the
+expression.
+
+The op tree representing the expression is returned.  If an optional
+expression is absent, a null pointer is returned, otherwise the pointer
+will be non-null.
+
+If an error occurs in parsing or compilation, in most cases a valid op
+tree is returned anyway.  The error is reflected in the parser state,
+normally resulting in a single exception at the top level of parsing
+which covers all the compilation errors that occurred.  Some compilation
+errors, however, will throw an exception immediately.
+
+	OP *	parse_termexpr(U32 flags)
+
+=for hackers
+Found in file toke.c
+
+=item PL_parser
+X<PL_parser>
+
+Pointer to a structure encapsulating the state of the parsing operation
+currently in progress.  The pointer can be locally changed to perform
+a nested parse without interfering with the state of an outer parse.
+Individual members of C<PL_parser> have their own documentation.
+
+=for hackers
+Found in file toke.c
+
+=item PL_parser-E<gt>bufend
+X<PL_parser-E<gt>bufend>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Direct pointer to the end of the chunk of text currently being lexed, the
+end of the lexer buffer.  This is equal to C<SvPVX(PL_parser-E<gt>linestr)
++ SvCUR(PL_parser-E<gt>linestr)>.  A C<NUL> character (zero octet) is
+always located at the end of the buffer, and does not count as part of
+the buffer's contents.
+
+=for hackers
+Found in file toke.c
+
+=item PL_parser-E<gt>bufptr
+X<PL_parser-E<gt>bufptr>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Points to the current position of lexing inside the lexer buffer.
+Characters around this point may be freely examined, within
+the range delimited by C<SvPVX(L</PL_parser-E<gt>linestr>)> and
+L</PL_parser-E<gt>bufend>.  The octets of the buffer may be intended to be
+interpreted as either UTF-8 or Latin-1, as indicated by L</lex_bufutf8>.
+
+Lexing code (whether in the Perl core or not) moves this pointer past
+the characters that it consumes.  It is also expected to perform some
+bookkeeping whenever a newline character is consumed.  This movement
+can be more conveniently performed by the function L</lex_read_to>,
+which handles newlines appropriately.
+
+Interpretation of the buffer's octets can be abstracted out by
+using the slightly higher-level functions L</lex_peek_unichar> and
+L</lex_read_unichar>.
+
+=for hackers
+Found in file toke.c
+
+=item PL_parser-E<gt>linestart
+X<PL_parser-E<gt>linestart>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Points to the start of the current line inside the lexer buffer.
+This is useful for indicating at which column an error occurred, and
+not much else.  This must be updated by any lexing code that consumes
+a newline; the function L</lex_read_to> handles this detail.
+
+=for hackers
+Found in file toke.c
+
+=item PL_parser-E<gt>linestr
+X<PL_parser-E<gt>linestr>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Buffer scalar containing the chunk currently under consideration of the
+text currently being lexed.  This is always a plain string scalar (for
+which C<SvPOK> is true).  It is not intended to be used as a scalar by
+normal scalar means; instead refer to the buffer directly by the pointer
+variables described below.
+
+The lexer maintains various C<char*> pointers to things in the
+C<PL_parser-E<gt>linestr> buffer.  If C<PL_parser-E<gt>linestr> is ever
+reallocated, all of these pointers must be updated.  Don't attempt to
+do this manually, but rather use L</lex_grow_linestr> if you need to
+reallocate the buffer.
+
+The content of the text chunk in the buffer is commonly exactly one
+complete line of input, up to and including a newline terminator,
+but there are situations where it is otherwise.  The octets of the
+buffer may be intended to be interpreted as either UTF-8 or Latin-1.
+The function L</lex_bufutf8> tells you which.  Do not use the C<SvUTF8>
+flag on this scalar, which may disagree with it.
+
+For direct examination of the buffer, the variable
+L</PL_parser-E<gt>bufend> points to the end of the buffer.  The current
+lexing position is pointed to by L</PL_parser-E<gt>bufptr>.  Direct use
+of these pointers is usually preferable to examination of the scalar
+through normal scalar means.
+
+=for hackers
+Found in file toke.c
+
+
+=back
+
+=head1 Locale-related functions and macros
+
+=over 8
+
+=item DECLARATION_FOR_LC_NUMERIC_MANIPULATION
+X<DECLARATION_FOR_LC_NUMERIC_MANIPULATION>
+
+This macro should be used as a statement.  It declares a private variable
+(whose name begins with an underscore) that is needed by the other macros in
+this section.  Failing to include this correctly should lead to a syntax error.
+For compatibility with C89 C compilers it should be placed in a block before
+any executable statements.
+
+	void	DECLARATION_FOR_LC_NUMERIC_MANIPULATION
+
+=for hackers
+Found in file perl.h
+
+=item RESTORE_LC_NUMERIC
+X<RESTORE_LC_NUMERIC>
+
+This is used in conjunction with one of the macros
+L</STORE_LC_NUMERIC_SET_TO_NEEDED>
+and
+L</STORE_LC_NUMERIC_FORCE_TO_UNDERLYING>
+
+to properly restore the C<LC_NUMERIC> state.
+
+A call to L</DECLARATION_FOR_LC_NUMERIC_MANIPULATION> must have been made to
+declare at compile time a private variable used by this macro and the two
+C<STORE> ones.  This macro should be called as a single statement, not an
+expression, but with an empty argument list, like this:
+
+ {
+    DECLARATION_FOR_LC_NUMERIC_MANIPULATION;
+     ...
+    RESTORE_LC_NUMERIC();
+     ...
+ }
+
+	void	RESTORE_LC_NUMERIC()
+
+=for hackers
+Found in file perl.h
+
+=item STORE_LC_NUMERIC_FORCE_TO_UNDERLYING
+X<STORE_LC_NUMERIC_FORCE_TO_UNDERLYING>
+
+This is used by XS code that that is C<LC_NUMERIC> locale-aware to force the
+locale for category C<LC_NUMERIC> to be what perl thinks is the current
+underlying locale.  (The perl interpreter could be wrong about what the
+underlying locale actually is if some C or XS code has called the C library
+function L<setlocale(3)> behind its back; calling L</sync_locale> before calling
+this macro will update perl's records.)
+
+A call to L</DECLARATION_FOR_LC_NUMERIC_MANIPULATION> must have been made to
+declare at compile time a private variable used by this macro.  This macro
+should be called as a single statement, not an expression, but with an empty
+argument list, like this:
+
+ {
+    DECLARATION_FOR_LC_NUMERIC_MANIPULATION;
+     ...
+    STORE_LC_NUMERIC_FORCE_TO_UNDERLYING();
+     ...
+    RESTORE_LC_NUMERIC();
+     ...
+ }
+
+The private variable is used to save the current locale state, so
+that the requisite matching call to L</RESTORE_LC_NUMERIC> can restore it.
+
+	void	STORE_LC_NUMERIC_FORCE_TO_UNDERLYING()
+
+=for hackers
+Found in file perl.h
+
+=item STORE_LC_NUMERIC_SET_TO_NEEDED
+X<STORE_LC_NUMERIC_SET_TO_NEEDED>
+
+This is used to help wrap XS or C code that that is C<LC_NUMERIC> locale-aware.
+This locale category is generally kept set to the C locale by Perl for
+backwards compatibility, and because most XS code that reads floating point
+values can cope only with the decimal radix character being a dot.
+
+This macro makes sure the current C<LC_NUMERIC> state is set properly, to be
+aware of locale if the call to the XS or C code from the Perl program is
+from within the scope of a S<C<use locale>>; or to ignore locale if the call is
+instead from outside such scope.
+
+This macro is the start of wrapping the C or XS code; the wrap ending is done
+by calling the L</RESTORE_LC_NUMERIC> macro after the operation.  Otherwise
+the state can be changed that will adversely affect other XS code.
+
+A call to L</DECLARATION_FOR_LC_NUMERIC_MANIPULATION> must have been made to
+declare at compile time a private variable used by this macro.  This macro
+should be called as a single statement, not an expression, but with an empty
+argument list, like this:
+
+ {
+    DECLARATION_FOR_LC_NUMERIC_MANIPULATION;
+     ...
+    STORE_LC_NUMERIC_SET_TO_NEEDED();
+     ...
+    RESTORE_LC_NUMERIC();
+     ...
+ }
+
+	void	STORE_LC_NUMERIC_SET_TO_NEEDED()
+
+=for hackers
+Found in file perl.h
+
+=item sync_locale
+X<sync_locale>
+
+Changing the program's locale should be avoided by XS code.  Nevertheless,
+certain non-Perl libraries called from XS, such as C<Gtk> do so.  When this
+happens, Perl needs to be told that the locale has changed.  Use this function
+to do so, before returning to Perl.
+
+	void	sync_locale()
+
+=for hackers
+Found in file locale.c
+
+
+=back
+
+=head1 Magical Functions
+
+=over 8
+
+=item mg_clear
+X<mg_clear>
+
+Clear something magical that the SV represents.  See C<L</sv_magic>>.
+
+	int	mg_clear(SV* sv)
+
+=for hackers
+Found in file mg.c
+
+=item mg_copy
+X<mg_copy>
+
+Copies the magic from one SV to another.  See C<L</sv_magic>>.
+
+	int	mg_copy(SV *sv, SV *nsv, const char *key,
+		        I32 klen)
+
+=for hackers
+Found in file mg.c
+
+=item mg_find
+X<mg_find>
+
+Finds the magic pointer for C<type> matching the SV.  See C<L</sv_magic>>.
+
+	MAGIC*	mg_find(const SV* sv, int type)
+
+=for hackers
+Found in file mg.c
+
+=item mg_findext
+X<mg_findext>
+
+Finds the magic pointer of C<type> with the given C<vtbl> for the C<SV>.  See
+C<L</sv_magicext>>.
+
+	MAGIC*	mg_findext(const SV* sv, int type,
+		           const MGVTBL *vtbl)
+
+=for hackers
+Found in file mg.c
+
+=item mg_free
+X<mg_free>
+
+Free any magic storage used by the SV.  See C<L</sv_magic>>.
+
+	int	mg_free(SV* sv)
+
+=for hackers
+Found in file mg.c
+
+=item mg_free_type
+X<mg_free_type>
+
+Remove any magic of type C<how> from the SV C<sv>.  See L</sv_magic>.
+
+	void	mg_free_type(SV *sv, int how)
+
+=for hackers
+Found in file mg.c
+
+=item mg_get
+X<mg_get>
+
+Do magic before a value is retrieved from the SV.  The type of SV must
+be >= C<SVt_PVMG>.  See C<L</sv_magic>>.
+
+	int	mg_get(SV* sv)
+
+=for hackers
+Found in file mg.c
+
+=item mg_length
+X<mg_length>
+
+
+DEPRECATED!  It is planned to remove this function from a
+future release of Perl.  Do not use it for new code; remove it from
+existing code.
+
+
+Reports on the SV's length in bytes, calling length magic if available,
+but does not set the UTF8 flag on C<sv>.  It will fall back to 'get'
+magic if there is no 'length' magic, but with no indication as to
+whether it called 'get' magic.  It assumes C<sv> is a C<PVMG> or
+higher.  Use C<sv_len()> instead.
+
+	U32	mg_length(SV* sv)
+
+=for hackers
+Found in file mg.c
+
+=item mg_magical
+X<mg_magical>
+
+Turns on the magical status of an SV.  See C<L</sv_magic>>.
+
+	void	mg_magical(SV* sv)
+
+=for hackers
+Found in file mg.c
+
+=item mg_set
+X<mg_set>
+
+Do magic after a value is assigned to the SV.  See C<L</sv_magic>>.
+
+	int	mg_set(SV* sv)
+
+=for hackers
+Found in file mg.c
+
+=item SvGETMAGIC
+X<SvGETMAGIC>
+
+Invokes C<mg_get> on an SV if it has 'get' magic.  For example, this
+will call C<FETCH> on a tied variable.  This macro evaluates its
+argument more than once.
+
+	void	SvGETMAGIC(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvLOCK
+X<SvLOCK>
+
+Arranges for a mutual exclusion lock to be obtained on C<sv> if a suitable module
+has been loaded.
+
+	void	SvLOCK(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvSETMAGIC
+X<SvSETMAGIC>
+
+Invokes C<mg_set> on an SV if it has 'set' magic.  This is necessary
+after modifying a scalar, in case it is a magical variable like C<$|>
+or a tied variable (it calls C<STORE>).  This macro evaluates its
+argument more than once.
+
+	void	SvSETMAGIC(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvSetMagicSV
+X<SvSetMagicSV>
+
+Like C<SvSetSV>, but does any set magic required afterwards.
+
+	void	SvSetMagicSV(SV* dsv, SV* ssv)
+
+=for hackers
+Found in file sv.h
+
+=item SvSetMagicSV_nosteal
+X<SvSetMagicSV_nosteal>
+
+Like C<SvSetSV_nosteal>, but does any set magic required afterwards.
+
+	void	SvSetMagicSV_nosteal(SV* dsv, SV* ssv)
+
+=for hackers
+Found in file sv.h
+
+=item SvSetSV
+X<SvSetSV>
+
+Calls C<sv_setsv> if C<dsv> is not the same as C<ssv>.  May evaluate arguments
+more than once.  Does not handle 'set' magic on the destination SV.
+
+	void	SvSetSV(SV* dsv, SV* ssv)
+
+=for hackers
+Found in file sv.h
+
+=item SvSetSV_nosteal
+X<SvSetSV_nosteal>
+
+Calls a non-destructive version of C<sv_setsv> if C<dsv> is not the same as
+C<ssv>.  May evaluate arguments more than once.
+
+	void	SvSetSV_nosteal(SV* dsv, SV* ssv)
+
+=for hackers
+Found in file sv.h
+
+=item SvSHARE
+X<SvSHARE>
+
+Arranges for C<sv> to be shared between threads if a suitable module
+has been loaded.
+
+	void	SvSHARE(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvUNLOCK
+X<SvUNLOCK>
+
+Releases a mutual exclusion lock on C<sv> if a suitable module
+has been loaded.
+
+	void	SvUNLOCK(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+
+=back
+
+=head1 Memory Management
+
+=over 8
+
+=item Copy
+X<Copy>
+
+The XSUB-writer's interface to the C C<memcpy> function.  The C<src> is the
+source, C<dest> is the destination, C<nitems> is the number of items, and
+C<type> is the type.  May fail on overlapping copies.  See also C<L</Move>>.
+
+	void	Copy(void* src, void* dest, int nitems, type)
+
+=for hackers
+Found in file handy.h
+
+=item CopyD
+X<CopyD>
+
+Like C<Copy> but returns C<dest>.  Useful
+for encouraging compilers to tail-call
+optimise.
+
+	void *	CopyD(void* src, void* dest, int nitems, type)
+
+=for hackers
+Found in file handy.h
+
+=item Move
+X<Move>
+
+The XSUB-writer's interface to the C C<memmove> function.  The C<src> is the
+source, C<dest> is the destination, C<nitems> is the number of items, and
+C<type> is the type.  Can do overlapping moves.  See also C<L</Copy>>.
+
+	void	Move(void* src, void* dest, int nitems, type)
+
+=for hackers
+Found in file handy.h
+
+=item MoveD
+X<MoveD>
+
+Like C<Move> but returns C<dest>.  Useful
+for encouraging compilers to tail-call
+optimise.
+
+	void *	MoveD(void* src, void* dest, int nitems, type)
+
+=for hackers
+Found in file handy.h
+
+=item Newx
+X<Newx>
+
+The XSUB-writer's interface to the C C<malloc> function.
+
+Memory obtained by this should B<ONLY> be freed with L<"Safefree">.
+
+In 5.9.3, Newx() and friends replace the older New() API, and drops
+the first parameter, I<x>, a debug aid which allowed callers to identify
+themselves.  This aid has been superseded by a new build option,
+PERL_MEM_LOG (see L<perlhacktips/PERL_MEM_LOG>).  The older API is still
+there for use in XS modules supporting older perls.
+
+	void	Newx(void* ptr, int nitems, type)
+
+=for hackers
+Found in file handy.h
+
+=item Newxc
+X<Newxc>
+
+The XSUB-writer's interface to the C C<malloc> function, with
+cast.  See also C<L</Newx>>.
+
+Memory obtained by this should B<ONLY> be freed with L<"Safefree">.
+
+	void	Newxc(void* ptr, int nitems, type, cast)
+
+=for hackers
+Found in file handy.h
+
+=item Newxz
+X<Newxz>
+
+The XSUB-writer's interface to the C C<malloc> function.  The allocated
+memory is zeroed with C<memzero>.  See also C<L</Newx>>.
+
+Memory obtained by this should B<ONLY> be freed with L<"Safefree">.
+
+	void	Newxz(void* ptr, int nitems, type)
+
+=for hackers
+Found in file handy.h
+
+=item Poison
+X<Poison>
+
+PoisonWith(0xEF) for catching access to freed memory.
+
+	void	Poison(void* dest, int nitems, type)
+
+=for hackers
+Found in file handy.h
+
+=item PoisonFree
+X<PoisonFree>
+
+PoisonWith(0xEF) for catching access to freed memory.
+
+	void	PoisonFree(void* dest, int nitems, type)
+
+=for hackers
+Found in file handy.h
+
+=item PoisonNew
+X<PoisonNew>
+
+PoisonWith(0xAB) for catching access to allocated but uninitialized memory.
+
+	void	PoisonNew(void* dest, int nitems, type)
+
+=for hackers
+Found in file handy.h
+
+=item PoisonWith
+X<PoisonWith>
+
+Fill up memory with a byte pattern (a byte repeated over and over
+again) that hopefully catches attempts to access uninitialized memory.
+
+	void	PoisonWith(void* dest, int nitems, type,
+		           U8 byte)
+
+=for hackers
+Found in file handy.h
+
+=item Renew
+X<Renew>
+
+The XSUB-writer's interface to the C C<realloc> function.
+
+Memory obtained by this should B<ONLY> be freed with L<"Safefree">.
+
+	void	Renew(void* ptr, int nitems, type)
+
+=for hackers
+Found in file handy.h
+
+=item Renewc
+X<Renewc>
+
+The XSUB-writer's interface to the C C<realloc> function, with
+cast.
+
+Memory obtained by this should B<ONLY> be freed with L<"Safefree">.
+
+	void	Renewc(void* ptr, int nitems, type, cast)
+
+=for hackers
+Found in file handy.h
+
+=item Safefree
+X<Safefree>
+
+The XSUB-writer's interface to the C C<free> function.
+
+This should B<ONLY> be used on memory obtained using L<"Newx"> and friends.
+
+	void	Safefree(void* ptr)
+
+=for hackers
+Found in file handy.h
+
+=item savepv
+X<savepv>
+
+Perl's version of C<strdup()>.  Returns a pointer to a newly allocated
+string which is a duplicate of C<pv>.  The size of the string is
+determined by C<strlen()>, which means it may not contain embedded C<NUL>
+characters and must have a trailing C<NUL>.  The memory allocated for the new
+string can be freed with the C<Safefree()> function.
+
+On some platforms, Windows for example, all allocated memory owned by a thread
+is deallocated when that thread ends.  So if you need that not to happen, you
+need to use the shared memory functions, such as C<L</savesharedpv>>.
+
+	char*	savepv(const char* pv)
+
+=for hackers
+Found in file util.c
+
+=item savepvn
+X<savepvn>
+
+Perl's version of what C<strndup()> would be if it existed.  Returns a
+pointer to a newly allocated string which is a duplicate of the first
+C<len> bytes from C<pv>, plus a trailing
+C<NUL> byte.  The memory allocated for
+the new string can be freed with the C<Safefree()> function.
+
+On some platforms, Windows for example, all allocated memory owned by a thread
+is deallocated when that thread ends.  So if you need that not to happen, you
+need to use the shared memory functions, such as C<L</savesharedpvn>>.
+
+	char*	savepvn(const char* pv, I32 len)
+
+=for hackers
+Found in file util.c
+
+=item savepvs
+X<savepvs>
+
+Like C<savepvn>, but takes a C<NUL>-terminated literal string instead of a
+string/length pair.
+
+	char*	savepvs(const char* s)
+
+=for hackers
+Found in file handy.h
+
+=item savesharedpv
+X<savesharedpv>
+
+A version of C<savepv()> which allocates the duplicate string in memory
+which is shared between threads.
+
+	char*	savesharedpv(const char* pv)
+
+=for hackers
+Found in file util.c
+
+=item savesharedpvn
+X<savesharedpvn>
+
+A version of C<savepvn()> which allocates the duplicate string in memory
+which is shared between threads.  (With the specific difference that a C<NULL>
+pointer is not acceptable)
+
+	char*	savesharedpvn(const char *const pv,
+		              const STRLEN len)
+
+=for hackers
+Found in file util.c
+
+=item savesharedpvs
+X<savesharedpvs>
+
+A version of C<savepvs()> which allocates the duplicate string in memory
+which is shared between threads.
+
+	char*	savesharedpvs(const char* s)
+
+=for hackers
+Found in file handy.h
+
+=item savesharedsvpv
+X<savesharedsvpv>
+
+A version of C<savesharedpv()> which allocates the duplicate string in
+memory which is shared between threads.
+
+	char*	savesharedsvpv(SV *sv)
+
+=for hackers
+Found in file util.c
+
+=item savesvpv
+X<savesvpv>
+
+A version of C<savepv()>/C<savepvn()> which gets the string to duplicate from
+the passed in SV using C<SvPV()>
+
+On some platforms, Windows for example, all allocated memory owned by a thread
+is deallocated when that thread ends.  So if you need that not to happen, you
+need to use the shared memory functions, such as C<L</savesharedsvpv>>.
+
+	char*	savesvpv(SV* sv)
+
+=for hackers
+Found in file util.c
+
+=item StructCopy
+X<StructCopy>
+
+This is an architecture-independent macro to copy one structure to another.
+
+	void	StructCopy(type *src, type *dest, type)
+
+=for hackers
+Found in file handy.h
+
+=item Zero
+X<Zero>
+
+The XSUB-writer's interface to the C C<memzero> function.  The C<dest> is the
+destination, C<nitems> is the number of items, and C<type> is the type.
+
+	void	Zero(void* dest, int nitems, type)
+
+=for hackers
+Found in file handy.h
+
+=item ZeroD
+X<ZeroD>
+
+Like C<Zero> but returns dest.  Useful
+for encouraging compilers to tail-call
+optimise.
+
+	void *	ZeroD(void* dest, int nitems, type)
+
+=for hackers
+Found in file handy.h
+
+
+=back
+
+=head1 Miscellaneous Functions
+
+=over 8
+
+=item dump_c_backtrace
+X<dump_c_backtrace>
+
+Dumps the C backtrace to the given C<fp>.
+
+Returns true if a backtrace could be retrieved, false if not.
+
+	bool	dump_c_backtrace(PerlIO* fp, int max_depth,
+		                 int skip)
+
+=for hackers
+Found in file util.c
+
+=item fbm_compile
+X<fbm_compile>
+
+Analyses the string in order to make fast searches on it using C<fbm_instr()>
+-- the Boyer-Moore algorithm.
+
+	void	fbm_compile(SV* sv, U32 flags)
+
+=for hackers
+Found in file util.c
+
+=item fbm_instr
+X<fbm_instr>
+
+Returns the location of the SV in the string delimited by C<big> and
+C<bigend> (C<bigend>) is the char following the last char).
+It returns C<NULL> if the string can't be found.  The C<sv>
+does not have to be C<fbm_compiled>, but the search will not be as fast
+then.
+
+	char*	fbm_instr(unsigned char* big,
+		          unsigned char* bigend, SV* littlestr,
+		          U32 flags)
+
+=for hackers
+Found in file util.c
+
+=item foldEQ
+X<foldEQ>
+
+Returns true if the leading C<len> bytes of the strings C<s1> and C<s2> are the
+same
+case-insensitively; false otherwise.  Uppercase and lowercase ASCII range bytes
+match themselves and their opposite case counterparts.  Non-cased and non-ASCII
+range bytes match only themselves.
+
+	I32	foldEQ(const char* a, const char* b, I32 len)
+
+=for hackers
+Found in file util.c
+
+=item foldEQ_locale
+X<foldEQ_locale>
+
+Returns true if the leading C<len> bytes of the strings C<s1> and C<s2> are the
+same case-insensitively in the current locale; false otherwise.
+
+	I32	foldEQ_locale(const char* a, const char* b,
+		              I32 len)
+
+=for hackers
+Found in file util.c
+
+=item form
+X<form>
+
+Takes a sprintf-style format pattern and conventional
+(non-SV) arguments and returns the formatted string.
+
+    (char *) Perl_form(pTHX_ const char* pat, ...)
+
+can be used any place a string (char *) is required:
+
+    char * s = Perl_form("%d.%d",major,minor);
+
+Uses a single private buffer so if you want to format several strings you
+must explicitly copy the earlier strings away (and free the copies when you
+are done).
+
+	char*	form(const char* pat, ...)
+
+=for hackers
+Found in file util.c
+
+=item getcwd_sv
+X<getcwd_sv>
+
+Fill C<sv> with current working directory
+
+	int	getcwd_sv(SV* sv)
+
+=for hackers
+Found in file util.c
+
+=item get_c_backtrace_dump
+X<get_c_backtrace_dump>
+
+Returns a SV containing a dump of C<depth> frames of the call stack, skipping
+the C<skip> innermost ones.  C<depth> of 20 is usually enough.
+
+The appended output looks like:
+
+...
+1   10e004812:0082   Perl_croak   util.c:1716    /usr/bin/perl
+2   10df8d6d2:1d72   perl_parse   perl.c:3975    /usr/bin/perl
+...
+
+The fields are tab-separated.  The first column is the depth (zero
+being the innermost non-skipped frame).  In the hex:offset, the hex is
+where the program counter was in C<S_parse_body>, and the :offset (might
+be missing) tells how much inside the C<S_parse_body> the program counter was.
+
+The C<util.c:1716> is the source code file and line number.
+
+The F</usr/bin/perl> is obvious (hopefully).
+
+Unknowns are C<"-">.  Unknowns can happen unfortunately quite easily:
+if the platform doesn't support retrieving the information;
+if the binary is missing the debug information;
+if the optimizer has transformed the code by for example inlining.
+
+	SV*	get_c_backtrace_dump(int max_depth, int skip)
+
+=for hackers
+Found in file util.c
+
+=item ibcmp
+X<ibcmp>
+
+This is a synonym for S<C<(! foldEQ())>>
+
+	I32	ibcmp(const char* a, const char* b, I32 len)
+
+=for hackers
+Found in file util.h
+
+=item ibcmp_locale
+X<ibcmp_locale>
+
+This is a synonym for S<C<(! foldEQ_locale())>>
+
+	I32	ibcmp_locale(const char* a, const char* b,
+		             I32 len)
+
+=for hackers
+Found in file util.h
+
+=item is_safe_syscall
+X<is_safe_syscall>
+
+Test that the given C<pv> doesn't contain any internal C<NUL> characters.
+If it does, set C<errno> to C<ENOENT>, optionally warn, and return FALSE.
+
+Return TRUE if the name is safe.
+
+Used by the C<IS_SAFE_SYSCALL()> macro.
+
+	bool	is_safe_syscall(const char *pv, STRLEN len,
+		                const char *what,
+		                const char *op_name)
+
+=for hackers
+Found in file inline.h
+
+=item memEQ
+X<memEQ>
+
+Test two buffers (which may contain embedded C<NUL> characters, to see if they
+are equal.  The C<len> parameter indicates the number of bytes to compare.
+Returns zero if equal, or non-zero if non-equal.
+
+	bool	memEQ(char* s1, char* s2, STRLEN len)
+
+=for hackers
+Found in file handy.h
+
+=item memNE
+X<memNE>
+
+Test two buffers (which may contain embedded C<NUL> characters, to see if they
+are not equal.  The C<len> parameter indicates the number of bytes to compare.
+Returns zero if non-equal, or non-zero if equal.
+
+	bool	memNE(char* s1, char* s2, STRLEN len)
+
+=for hackers
+Found in file handy.h
+
+=item mess
+X<mess>
+
+Take a sprintf-style format pattern and argument list.  These are used to
+generate a string message.  If the message does not end with a newline,
+then it will be extended with some indication of the current location
+in the code, as described for L</mess_sv>.
+
+Normally, the resulting message is returned in a new mortal SV.
+During global destruction a single SV may be shared between uses of
+this function.
+
+	SV *	mess(const char *pat, ...)
+
+=for hackers
+Found in file util.c
+
+=item mess_sv
+X<mess_sv>
+
+Expands a message, intended for the user, to include an indication of
+the current location in the code, if the message does not already appear
+to be complete.
+
+C<basemsg> is the initial message or object.  If it is a reference, it
+will be used as-is and will be the result of this function.  Otherwise it
+is used as a string, and if it already ends with a newline, it is taken
+to be complete, and the result of this function will be the same string.
+If the message does not end with a newline, then a segment such as C<at
+foo.pl line 37> will be appended, and possibly other clauses indicating
+the current state of execution.  The resulting message will end with a
+dot and a newline.
+
+Normally, the resulting message is returned in a new mortal SV.
+During global destruction a single SV may be shared between uses of this
+function.  If C<consume> is true, then the function is permitted (but not
+required) to modify and return C<basemsg> instead of allocating a new SV.
+
+	SV *	mess_sv(SV *basemsg, bool consume)
+
+=for hackers
+Found in file util.c
+
+=item my_snprintf
+X<my_snprintf>
+
+The C library C<snprintf> functionality, if available and
+standards-compliant (uses C<vsnprintf>, actually).  However, if the
+C<vsnprintf> is not available, will unfortunately use the unsafe
+C<vsprintf> which can overrun the buffer (there is an overrun check,
+but that may be too late).  Consider using C<sv_vcatpvf> instead, or
+getting C<vsnprintf>.
+
+	int	my_snprintf(char *buffer, const Size_t len,
+		            const char *format, ...)
+
+=for hackers
+Found in file util.c
+
+=item my_sprintf
+X<my_sprintf>
+
+The C library C<sprintf>, wrapped if necessary, to ensure that it will return
+the length of the string written to the buffer.  Only rare pre-ANSI systems
+need the wrapper function - usually this is a direct call to C<sprintf>.
+
+	int	my_sprintf(char *buffer, const char *pat, ...)
+
+=for hackers
+Found in file util.c
+
+=item my_strlcat
+X<my_strlcat>
+
+The C library C<strlcat> if available, or a Perl implementation of it.
+This operates on C C<NUL>-terminated strings.
+
+C<my_strlcat()> appends string C<src> to the end of C<dst>.  It will append at
+most S<C<size - strlen(dst) - 1>> characters.  It will then C<NUL>-terminate,
+unless C<size> is 0 or the original C<dst> string was longer than C<size> (in
+practice this should not happen as it means that either C<size> is incorrect or
+that C<dst> is not a proper C<NUL>-terminated string).
+
+Note that C<size> is the full size of the destination buffer and
+the result is guaranteed to be C<NUL>-terminated if there is room.  Note that
+room for the C<NUL> should be included in C<size>.
+
+	Size_t	my_strlcat(char *dst, const char *src,
+		           Size_t size)
+
+=for hackers
+Found in file util.c
+
+=item my_strlcpy
+X<my_strlcpy>
+
+The C library C<strlcpy> if available, or a Perl implementation of it.
+This operates on C C<NUL>-terminated strings.
+
+C<my_strlcpy()> copies up to S<C<size - 1>> characters from the string C<src>
+to C<dst>, C<NUL>-terminating the result if C<size> is not 0.
+
+	Size_t	my_strlcpy(char *dst, const char *src,
+		           Size_t size)
+
+=for hackers
+Found in file util.c
+
+=item my_vsnprintf
+X<my_vsnprintf>
+
+The C library C<vsnprintf> if available and standards-compliant.
+However, if if the C<vsnprintf> is not available, will unfortunately
+use the unsafe C<vsprintf> which can overrun the buffer (there is an
+overrun check, but that may be too late).  Consider using
+C<sv_vcatpvf> instead, or getting C<vsnprintf>.
+
+	int	my_vsnprintf(char *buffer, const Size_t len,
+		             const char *format, va_list ap)
+
+=for hackers
+Found in file util.c
+
+=item ninstr
+X<ninstr>
+
+Find the first (leftmost) occurrence of a sequence of bytes within another
+sequence.  This is the Perl version of C<strstr()>, extended to handle
+arbitrary sequences, potentially containing embedded C<NUL> characters (C<NUL>
+is what the initial C<n> in the function name stands for; some systems have an
+equivalent, C<memmem()>, but with a somewhat different API).
+
+Another way of thinking about this function is finding a needle in a haystack.
+C<big> points to the first byte in the haystack.  C<big_end> points to one byte
+beyond the final byte in the haystack.  C<little> points to the first byte in
+the needle.  C<little_end> points to one byte beyond the final byte in the
+needle.  All the parameters must be non-C<NULL>.
+
+The function returns C<NULL> if there is no occurrence of C<little> within
+C<big>.  If C<little> is the empty string, C<big> is returned.
+
+Because this function operates at the byte level, and because of the inherent
+characteristics of UTF-8 (or UTF-EBCDIC), it will work properly if both the
+needle and the haystack are strings with the same UTF-8ness, but not if the
+UTF-8ness differs.
+
+	char *	ninstr(char * big, char * bigend, char * little,
+		       char * little_end)
+
+=for hackers
+Found in file util.c
+
+=item PERL_SYS_INIT
+X<PERL_SYS_INIT>
+
+Provides system-specific tune up of the C runtime environment necessary to
+run Perl interpreters.  This should be called only once, before creating
+any Perl interpreters.
+
+	void	PERL_SYS_INIT(int *argc, char*** argv)
+
+=for hackers
+Found in file perl.h
+
+=item PERL_SYS_INIT3
+X<PERL_SYS_INIT3>
+
+Provides system-specific tune up of the C runtime environment necessary to
+run Perl interpreters.  This should be called only once, before creating
+any Perl interpreters.
+
+	void	PERL_SYS_INIT3(int *argc, char*** argv,
+		               char*** env)
+
+=for hackers
+Found in file perl.h
+
+=item PERL_SYS_TERM
+X<PERL_SYS_TERM>
+
+Provides system-specific clean up of the C runtime environment after
+running Perl interpreters.  This should be called only once, after
+freeing any remaining Perl interpreters.
+
+	void	PERL_SYS_TERM()
+
+=for hackers
+Found in file perl.h
+
+=item quadmath_format_needed
+X<quadmath_format_needed>
+
+C<quadmath_format_needed()> returns true if the C<format> string seems to
+contain at least one non-Q-prefixed C<%[efgaEFGA]> format specifier,
+or returns false otherwise.
+
+The format specifier detection is not complete printf-syntax detection,
+but it should catch most common cases.
+
+If true is returned, those arguments B<should> in theory be processed
+with C<quadmath_snprintf()>, but in case there is more than one such
+format specifier (see L</quadmath_format_single>), and if there is
+anything else beyond that one (even just a single byte), they
+B<cannot> be processed because C<quadmath_snprintf()> is very strict,
+accepting only one format spec, and nothing else.
+In this case, the code should probably fail.
+
+	bool	quadmath_format_needed(const char* format)
+
+=for hackers
+Found in file util.c
+
+=item quadmath_format_single
+X<quadmath_format_single>
+
+C<quadmath_snprintf()> is very strict about its C<format> string and will
+fail, returning -1, if the format is invalid.  It accepts exactly
+one format spec.
+
+C<quadmath_format_single()> checks that the intended single spec looks
+sane: begins with C<%>, has only one C<%>, ends with C<[efgaEFGA]>,
+and has C<Q> before it.  This is not a full "printf syntax check",
+just the basics.
+
+Returns the format if it is valid, NULL if not.
+
+C<quadmath_format_single()> can and will actually patch in the missing
+C<Q>, if necessary.  In this case it will return the modified copy of
+the format, B<which the caller will need to free.>
+
+See also L</quadmath_format_needed>.
+
+	const char* quadmath_format_single(const char* format)
+
+=for hackers
+Found in file util.c
+
+=item READ_XDIGIT
+X<READ_XDIGIT>
+
+Returns the value of an ASCII-range hex digit and advances the string pointer.
+Behaviour is only well defined when isXDIGIT(*str) is true.
+
+	U8	READ_XDIGIT(char str*)
+
+=for hackers
+Found in file handy.h
+
+=item rninstr
+X<rninstr>
+
+Like C<L</ninstr>>, but instead finds the final (rightmost) occurrence of a
+sequence of bytes within another sequence, returning C<NULL> if there is no
+such occurrence.
+
+	char *	rninstr(char * big, char * bigend,
+		        char * little, char * little_end)
+
+=for hackers
+Found in file util.c
+
+=item strEQ
+X<strEQ>
+
+Test two C<NUL>-terminated strings to see if they are equal.  Returns true or
+false.
+
+	bool	strEQ(char* s1, char* s2)
+
+=for hackers
+Found in file handy.h
+
+=item strGE
+X<strGE>
+
+Test two C<NUL>-terminated strings to see if the first, C<s1>, is greater than
+or equal to the second, C<s2>.  Returns true or false.
+
+	bool	strGE(char* s1, char* s2)
+
+=for hackers
+Found in file handy.h
+
+=item strGT
+X<strGT>
+
+Test two C<NUL>-terminated strings to see if the first, C<s1>, is greater than
+the second, C<s2>.  Returns true or false.
+
+	bool	strGT(char* s1, char* s2)
+
+=for hackers
+Found in file handy.h
+
+=item strLE
+X<strLE>
+
+Test two C<NUL>-terminated strings to see if the first, C<s1>, is less than or
+equal to the second, C<s2>.  Returns true or false.
+
+	bool	strLE(char* s1, char* s2)
+
+=for hackers
+Found in file handy.h
+
+=item strLT
+X<strLT>
+
+Test two C<NUL>-terminated strings to see if the first, C<s1>, is less than the
+second, C<s2>.  Returns true or false.
+
+	bool	strLT(char* s1, char* s2)
+
+=for hackers
+Found in file handy.h
+
+=item strNE
+X<strNE>
+
+Test two C<NUL>-terminated strings to see if they are different.  Returns true
+or false.
+
+	bool	strNE(char* s1, char* s2)
+
+=for hackers
+Found in file handy.h
+
+=item strnEQ
+X<strnEQ>
+
+Test two C<NUL>-terminated strings to see if they are equal.  The C<len>
+parameter indicates the number of bytes to compare.  Returns true or false.  (A
+wrapper for C<strncmp>).
+
+	bool	strnEQ(char* s1, char* s2, STRLEN len)
+
+=for hackers
+Found in file handy.h
+
+=item strnNE
+X<strnNE>
+
+Test two C<NUL>-terminated strings to see if they are different.  The C<len>
+parameter indicates the number of bytes to compare.  Returns true or false.  (A
+wrapper for C<strncmp>).
+
+	bool	strnNE(char* s1, char* s2, STRLEN len)
+
+=for hackers
+Found in file handy.h
+
+=item sv_destroyable
+X<sv_destroyable>
+
+Dummy routine which reports that object can be destroyed when there is no
+sharing module present.  It ignores its single SV argument, and returns
+'true'.  Exists to avoid test for a C<NULL> function pointer and because it
+could potentially warn under some level of strict-ness.
+
+	bool	sv_destroyable(SV *sv)
+
+=for hackers
+Found in file util.c
+
+=item sv_nosharing
+X<sv_nosharing>
+
+Dummy routine which "shares" an SV when there is no sharing module present.
+Or "locks" it.  Or "unlocks" it.  In other
+words, ignores its single SV argument.
+Exists to avoid test for a C<NULL> function pointer and because it could
+potentially warn under some level of strict-ness.
+
+	void	sv_nosharing(SV *sv)
+
+=for hackers
+Found in file util.c
+
+=item vmess
+X<vmess>
+
+C<pat> and C<args> are a sprintf-style format pattern and encapsulated
+argument list, respectively.  These are used to generate a string message.  If
+the
+message does not end with a newline, then it will be extended with
+some indication of the current location in the code, as described for
+L</mess_sv>.
+
+Normally, the resulting message is returned in a new mortal SV.
+During global destruction a single SV may be shared between uses of
+this function.
+
+	SV *	vmess(const char *pat, va_list *args)
+
+=for hackers
+Found in file util.c
+
+
+=back
+
+=head1 MRO Functions
+
+These functions are related to the method resolution order of perl classes
+
+
+=over 8
+
+=item mro_get_linear_isa
+X<mro_get_linear_isa>
+
+Returns the mro linearisation for the given stash.  By default, this
+will be whatever C<mro_get_linear_isa_dfs> returns unless some
+other MRO is in effect for the stash.  The return value is a
+read-only AV*.
+
+You are responsible for C<SvREFCNT_inc()> on the
+return value if you plan to store it anywhere
+semi-permanently (otherwise it might be deleted
+out from under you the next time the cache is
+invalidated).
+
+	AV*	mro_get_linear_isa(HV* stash)
+
+=for hackers
+Found in file mro_core.c
+
+=item mro_method_changed_in
+X<mro_method_changed_in>
+
+Invalidates method caching on any child classes
+of the given stash, so that they might notice
+the changes in this one.
+
+Ideally, all instances of C<PL_sub_generation++> in
+perl source outside of F<mro.c> should be
+replaced by calls to this.
+
+Perl automatically handles most of the common
+ways a method might be redefined.  However, there
+are a few ways you could change a method in a stash
+without the cache code noticing, in which case you
+need to call this method afterwards:
+
+1) Directly manipulating the stash HV entries from
+XS code.
+
+2) Assigning a reference to a readonly scalar
+constant into a stash entry in order to create
+a constant subroutine (like F<constant.pm>
+does).
+
+This same method is available from pure perl
+via, C<mro::method_changed_in(classname)>.
+
+	void	mro_method_changed_in(HV* stash)
+
+=for hackers
+Found in file mro_core.c
+
+=item mro_register
+X<mro_register>
+
+Registers a custom mro plugin.  See L<perlmroapi> for details.
+
+	void	mro_register(const struct mro_alg *mro)
+
+=for hackers
+Found in file mro_core.c
+
+
+=back
+
+=head1 Multicall Functions
+
+=over 8
+
+=item dMULTICALL
+X<dMULTICALL>
+
+Declare local variables for a multicall.  See L<perlcall/LIGHTWEIGHT CALLBACKS>.
+
+		dMULTICALL;
+
+=for hackers
+Found in file cop.h
+
+=item MULTICALL
+X<MULTICALL>
+
+Make a lightweight callback.  See L<perlcall/LIGHTWEIGHT CALLBACKS>.
+
+		MULTICALL;
+
+=for hackers
+Found in file cop.h
+
+=item POP_MULTICALL
+X<POP_MULTICALL>
+
+Closing bracket for a lightweight callback.
+See L<perlcall/LIGHTWEIGHT CALLBACKS>.
+
+		POP_MULTICALL;
+
+=for hackers
+Found in file cop.h
+
+=item PUSH_MULTICALL
+X<PUSH_MULTICALL>
+
+Opening bracket for a lightweight callback.
+See L<perlcall/LIGHTWEIGHT CALLBACKS>.
+
+		PUSH_MULTICALL;
+
+=for hackers
+Found in file cop.h
+
+
+=back
+
+=head1 Numeric functions
+
+=over 8
+
+=item grok_bin
+X<grok_bin>
+
+converts a string representing a binary number to numeric form.
+
+On entry C<start> and C<*len> give the string to scan, C<*flags> gives
+conversion flags, and C<result> should be C<NULL> or a pointer to an NV.
+The scan stops at the end of the string, or the first invalid character.
+Unless C<PERL_SCAN_SILENT_ILLDIGIT> is set in C<*flags>, encountering an
+invalid character will also trigger a warning.
+On return C<*len> is set to the length of the scanned string,
+and C<*flags> gives output flags.
+
+If the value is <= C<UV_MAX> it is returned as a UV, the output flags are clear,
+and nothing is written to C<*result>.  If the value is > C<UV_MAX>, C<grok_bin>
+returns C<UV_MAX>, sets C<PERL_SCAN_GREATER_THAN_UV_MAX> in the output flags,
+and writes the value to C<*result> (or the value is discarded if C<result>
+is NULL).
+
+The binary number may optionally be prefixed with C<"0b"> or C<"b"> unless
+C<PERL_SCAN_DISALLOW_PREFIX> is set in C<*flags> on entry.  If
+C<PERL_SCAN_ALLOW_UNDERSCORES> is set in C<*flags> then the binary
+number may use C<"_"> characters to separate digits.
+
+	UV	grok_bin(const char* start, STRLEN* len_p,
+		         I32* flags, NV *result)
+
+=for hackers
+Found in file numeric.c
+
+=item grok_hex
+X<grok_hex>
+
+converts a string representing a hex number to numeric form.
+
+On entry C<start> and C<*len_p> give the string to scan, C<*flags> gives
+conversion flags, and C<result> should be C<NULL> or a pointer to an NV.
+The scan stops at the end of the string, or the first invalid character.
+Unless C<PERL_SCAN_SILENT_ILLDIGIT> is set in C<*flags>, encountering an
+invalid character will also trigger a warning.
+On return C<*len> is set to the length of the scanned string,
+and C<*flags> gives output flags.
+
+If the value is <= C<UV_MAX> it is returned as a UV, the output flags are clear,
+and nothing is written to C<*result>.  If the value is > C<UV_MAX>, C<grok_hex>
+returns C<UV_MAX>, sets C<PERL_SCAN_GREATER_THAN_UV_MAX> in the output flags,
+and writes the value to C<*result> (or the value is discarded if C<result>
+is C<NULL>).
+
+The hex number may optionally be prefixed with C<"0x"> or C<"x"> unless
+C<PERL_SCAN_DISALLOW_PREFIX> is set in C<*flags> on entry.  If
+C<PERL_SCAN_ALLOW_UNDERSCORES> is set in C<*flags> then the hex
+number may use C<"_"> characters to separate digits.
+
+	UV	grok_hex(const char* start, STRLEN* len_p,
+		         I32* flags, NV *result)
+
+=for hackers
+Found in file numeric.c
+
+=item grok_infnan
+X<grok_infnan>
+
+Helper for C<grok_number()>, accepts various ways of spelling "infinity"
+or "not a number", and returns one of the following flag combinations:
+
+  IS_NUMBER_INFINITE
+  IS_NUMBER_NAN
+  IS_NUMBER_INFINITE | IS_NUMBER_NEG
+  IS_NUMBER_NAN | IS_NUMBER_NEG
+  0
+
+possibly |-ed with C<IS_NUMBER_TRAILING>.
+
+If an infinity or a not-a-number is recognized, C<*sp> will point to
+one byte past the end of the recognized string.  If the recognition fails,
+zero is returned, and C<*sp> will not move.
+
+	int	grok_infnan(const char** sp, const char *send)
+
+=for hackers
+Found in file numeric.c
+
+=item grok_number
+X<grok_number>
+
+Identical to C<grok_number_flags()> with C<flags> set to zero.
+
+	int	grok_number(const char *pv, STRLEN len,
+		            UV *valuep)
+
+=for hackers
+Found in file numeric.c
+
+=item grok_number_flags
+X<grok_number_flags>
+
+Recognise (or not) a number.  The type of the number is returned
+(0 if unrecognised), otherwise it is a bit-ORed combination of
+C<IS_NUMBER_IN_UV>, C<IS_NUMBER_GREATER_THAN_UV_MAX>, C<IS_NUMBER_NOT_INT>,
+C<IS_NUMBER_NEG>, C<IS_NUMBER_INFINITY>, C<IS_NUMBER_NAN> (defined in perl.h).
+
+If the value of the number can fit in a UV, it is returned in C<*valuep>.
+C<IS_NUMBER_IN_UV> will be set to indicate that C<*valuep> is valid, C<IS_NUMBER_IN_UV>
+will never be set unless C<*valuep> is valid, but C<*valuep> may have been assigned
+to during processing even though C<IS_NUMBER_IN_UV> is not set on return.
+If C<valuep> is C<NULL>, C<IS_NUMBER_IN_UV> will be set for the same cases as when
+C<valuep> is non-C<NULL>, but no actual assignment (or SEGV) will occur.
+
+C<IS_NUMBER_NOT_INT> will be set with C<IS_NUMBER_IN_UV> if trailing decimals were
+seen (in which case C<*valuep> gives the true value truncated to an integer), and
+C<IS_NUMBER_NEG> if the number is negative (in which case C<*valuep> holds the
+absolute value).  C<IS_NUMBER_IN_UV> is not set if e notation was used or the
+number is larger than a UV.
+
+C<flags> allows only C<PERL_SCAN_TRAILING>, which allows for trailing
+non-numeric text on an otherwise successful I<grok>, setting
+C<IS_NUMBER_TRAILING> on the result.
+
+	int	grok_number_flags(const char *pv, STRLEN len,
+		                  UV *valuep, U32 flags)
+
+=for hackers
+Found in file numeric.c
+
+=item grok_numeric_radix
+X<grok_numeric_radix>
+
+Scan and skip for a numeric decimal separator (radix).
+
+	bool	grok_numeric_radix(const char **sp,
+		                   const char *send)
+
+=for hackers
+Found in file numeric.c
+
+=item grok_oct
+X<grok_oct>
+
+converts a string representing an octal number to numeric form.
+
+On entry C<start> and C<*len> give the string to scan, C<*flags> gives
+conversion flags, and C<result> should be C<NULL> or a pointer to an NV.
+The scan stops at the end of the string, or the first invalid character.
+Unless C<PERL_SCAN_SILENT_ILLDIGIT> is set in C<*flags>, encountering an
+8 or 9 will also trigger a warning.
+On return C<*len> is set to the length of the scanned string,
+and C<*flags> gives output flags.
+
+If the value is <= C<UV_MAX> it is returned as a UV, the output flags are clear,
+and nothing is written to C<*result>.  If the value is > C<UV_MAX>, C<grok_oct>
+returns C<UV_MAX>, sets C<PERL_SCAN_GREATER_THAN_UV_MAX> in the output flags,
+and writes the value to C<*result> (or the value is discarded if C<result>
+is C<NULL>).
+
+If C<PERL_SCAN_ALLOW_UNDERSCORES> is set in C<*flags> then the octal
+number may use C<"_"> characters to separate digits.
+
+	UV	grok_oct(const char* start, STRLEN* len_p,
+		         I32* flags, NV *result)
+
+=for hackers
+Found in file numeric.c
+
+=item isinfnan
+X<isinfnan>
+
+C<Perl_isinfnan()> is utility function that returns true if the NV
+argument is either an infinity or a C<NaN>, false otherwise.  To test
+in more detail, use C<Perl_isinf()> and C<Perl_isnan()>.
+
+This is also the logical inverse of Perl_isfinite().
+
+	bool	isinfnan(NV nv)
+
+=for hackers
+Found in file numeric.c
+
+=item Perl_signbit
+X<Perl_signbit>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Return a non-zero integer if the sign bit on an NV is set, and 0 if
+it is not.  
+
+If F<Configure> detects this system has a C<signbit()> that will work with
+our NVs, then we just use it via the C<#define> in F<perl.h>.  Otherwise,
+fall back on this implementation.  The main use of this function
+is catching C<-0.0>.
+
+C<Configure> notes:  This function is called C<'Perl_signbit'> instead of a
+plain C<'signbit'> because it is easy to imagine a system having a C<signbit()>
+function or macro that doesn't happen to work with our particular choice
+of NVs.  We shouldn't just re-C<#define> C<signbit> as C<Perl_signbit> and expect
+the standard system headers to be happy.  Also, this is a no-context
+function (no C<pTHX_>) because C<Perl_signbit()> is usually re-C<#defined> in
+F<perl.h> as a simple macro call to the system's C<signbit()>.
+Users should just always call C<Perl_signbit()>.
+
+	int	Perl_signbit(NV f)
+
+=for hackers
+Found in file numeric.c
+
+=item scan_bin
+X<scan_bin>
+
+For backwards compatibility.  Use C<grok_bin> instead.
+
+	NV	scan_bin(const char* start, STRLEN len,
+		         STRLEN* retlen)
+
+=for hackers
+Found in file numeric.c
+
+=item scan_hex
+X<scan_hex>
+
+For backwards compatibility.  Use C<grok_hex> instead.
+
+	NV	scan_hex(const char* start, STRLEN len,
+		         STRLEN* retlen)
+
+=for hackers
+Found in file numeric.c
+
+=item scan_oct
+X<scan_oct>
+
+For backwards compatibility.  Use C<grok_oct> instead.
+
+	NV	scan_oct(const char* start, STRLEN len,
+		         STRLEN* retlen)
+
+=for hackers
+Found in file numeric.c
+
+
+=back
+
+=head1 Obsolete backwards compatibility functions
+
+Some of these are also deprecated.  You can exclude these from
+your compiled Perl by adding this option to Configure:
+C<-Accflags='-DNO_MATHOMS'>
+
+
+=over 8
+
+=item custom_op_desc
+X<custom_op_desc>
+
+Return the description of a given custom op.  This was once used by the
+C<OP_DESC> macro, but is no longer: it has only been kept for
+compatibility, and should not be used.
+
+	const char * custom_op_desc(const OP *o)
+
+=for hackers
+Found in file mathoms.c
+
+=item custom_op_name
+X<custom_op_name>
+
+Return the name for a given custom op.  This was once used by the C<OP_NAME>
+macro, but is no longer: it has only been kept for compatibility, and
+should not be used.
+
+	const char * custom_op_name(const OP *o)
+
+=for hackers
+Found in file mathoms.c
+
+=item gv_fetchmethod
+X<gv_fetchmethod>
+
+See L</gv_fetchmethod_autoload>.
+
+	GV*	gv_fetchmethod(HV* stash, const char* name)
+
+=for hackers
+Found in file mathoms.c
+
+=item is_utf8_char
+X<is_utf8_char>
+
+
+DEPRECATED!  It is planned to remove this function from a
+future release of Perl.  Do not use it for new code; remove it from
+existing code.
+
+
+Tests if some arbitrary number of bytes begins in a valid UTF-8
+character.  Note that an INVARIANT (i.e. ASCII on non-EBCDIC machines)
+character is a valid UTF-8 character.  The actual number of bytes in the UTF-8
+character will be returned if it is valid, otherwise 0.
+
+This function is deprecated due to the possibility that malformed input could
+cause reading beyond the end of the input buffer.  Use L</isUTF8_CHAR>
+instead.
+
+	STRLEN	is_utf8_char(const U8 *s)
+
+=for hackers
+Found in file mathoms.c
+
+=item is_utf8_char_buf
+X<is_utf8_char_buf>
+
+This is identical to the macro L</isUTF8_CHAR>.
+
+	STRLEN	is_utf8_char_buf(const U8 *buf,
+		                 const U8 *buf_end)
+
+=for hackers
+Found in file mathoms.c
+
+=item pack_cat
+X<pack_cat>
+
+The engine implementing C<pack()> Perl function.  Note: parameters
+C<next_in_list> and C<flags> are not used.  This call should not be used; use
+C<packlist> instead.
+
+	void	pack_cat(SV *cat, const char *pat,
+		         const char *patend, SV **beglist,
+		         SV **endlist, SV ***next_in_list,
+		         U32 flags)
+
+=for hackers
+Found in file mathoms.c
+
+=item pad_compname_type
+X<pad_compname_type>
+
+Looks up the type of the lexical variable at position C<po> in the
+currently-compiling pad.  If the variable is typed, the stash of the
+class to which it is typed is returned.  If not, C<NULL> is returned.
+
+	HV *	pad_compname_type(PADOFFSET po)
+
+=for hackers
+Found in file mathoms.c
+
+=item sv_2pvbyte_nolen
+X<sv_2pvbyte_nolen>
+
+Return a pointer to the byte-encoded representation of the SV.
+May cause the SV to be downgraded from UTF-8 as a side-effect.
+
+Usually accessed via the C<SvPVbyte_nolen> macro.
+
+	char*	sv_2pvbyte_nolen(SV* sv)
+
+=for hackers
+Found in file mathoms.c
+
+=item sv_2pvutf8_nolen
+X<sv_2pvutf8_nolen>
+
+Return a pointer to the UTF-8-encoded representation of the SV.
+May cause the SV to be upgraded to UTF-8 as a side-effect.
+
+Usually accessed via the C<SvPVutf8_nolen> macro.
+
+	char*	sv_2pvutf8_nolen(SV* sv)
+
+=for hackers
+Found in file mathoms.c
+
+=item sv_2pv_nolen
+X<sv_2pv_nolen>
+
+Like C<sv_2pv()>, but doesn't return the length too.  You should usually
+use the macro wrapper C<SvPV_nolen(sv)> instead.
+
+	char*	sv_2pv_nolen(SV* sv)
+
+=for hackers
+Found in file mathoms.c
+
+=item sv_catpvn_mg
+X<sv_catpvn_mg>
+
+Like C<sv_catpvn>, but also handles 'set' magic.
+
+	void	sv_catpvn_mg(SV *sv, const char *ptr,
+		             STRLEN len)
+
+=for hackers
+Found in file mathoms.c
+
+=item sv_catsv_mg
+X<sv_catsv_mg>
+
+Like C<sv_catsv>, but also handles 'set' magic.
+
+	void	sv_catsv_mg(SV *dsv, SV *ssv)
+
+=for hackers
+Found in file mathoms.c
+
+=item sv_force_normal
+X<sv_force_normal>
+
+Undo various types of fakery on an SV: if the PV is a shared string, make
+a private copy; if we're a ref, stop refing; if we're a glob, downgrade to
+an C<xpvmg>.  See also C<L</sv_force_normal_flags>>.
+
+	void	sv_force_normal(SV *sv)
+
+=for hackers
+Found in file mathoms.c
+
+=item sv_iv
+X<sv_iv>
+
+A private implementation of the C<SvIVx> macro for compilers which can't
+cope with complex macro expressions.  Always use the macro instead.
+
+	IV	sv_iv(SV* sv)
+
+=for hackers
+Found in file mathoms.c
+
+=item sv_nolocking
+X<sv_nolocking>
+
+Dummy routine which "locks" an SV when there is no locking module present.
+Exists to avoid test for a C<NULL> function pointer and because it could
+potentially warn under some level of strict-ness.
+
+"Superseded" by C<sv_nosharing()>.
+
+	void	sv_nolocking(SV *sv)
+
+=for hackers
+Found in file mathoms.c
+
+=item sv_nounlocking
+X<sv_nounlocking>
+
+Dummy routine which "unlocks" an SV when there is no locking module present.
+Exists to avoid test for a C<NULL> function pointer and because it could
+potentially warn under some level of strict-ness.
+
+"Superseded" by C<sv_nosharing()>.
+
+	void	sv_nounlocking(SV *sv)
+
+=for hackers
+Found in file mathoms.c
+
+=item sv_nv
+X<sv_nv>
+
+A private implementation of the C<SvNVx> macro for compilers which can't
+cope with complex macro expressions.  Always use the macro instead.
+
+	NV	sv_nv(SV* sv)
+
+=for hackers
+Found in file mathoms.c
+
+=item sv_pv
+X<sv_pv>
+
+Use the C<SvPV_nolen> macro instead
+
+	char*	sv_pv(SV *sv)
+
+=for hackers
+Found in file mathoms.c
+
+=item sv_pvbyte
+X<sv_pvbyte>
+
+Use C<SvPVbyte_nolen> instead.
+
+	char*	sv_pvbyte(SV *sv)
+
+=for hackers
+Found in file mathoms.c
+
+=item sv_pvbyten
+X<sv_pvbyten>
+
+A private implementation of the C<SvPVbyte> macro for compilers
+which can't cope with complex macro expressions.  Always use the macro
+instead.
+
+	char*	sv_pvbyten(SV *sv, STRLEN *lp)
+
+=for hackers
+Found in file mathoms.c
+
+=item sv_pvn
+X<sv_pvn>
+
+A private implementation of the C<SvPV> macro for compilers which can't
+cope with complex macro expressions.  Always use the macro instead.
+
+	char*	sv_pvn(SV *sv, STRLEN *lp)
+
+=for hackers
+Found in file mathoms.c
+
+=item sv_pvutf8
+X<sv_pvutf8>
+
+Use the C<SvPVutf8_nolen> macro instead
+
+	char*	sv_pvutf8(SV *sv)
+
+=for hackers
+Found in file mathoms.c
+
+=item sv_pvutf8n
+X<sv_pvutf8n>
+
+A private implementation of the C<SvPVutf8> macro for compilers
+which can't cope with complex macro expressions.  Always use the macro
+instead.
+
+	char*	sv_pvutf8n(SV *sv, STRLEN *lp)
+
+=for hackers
+Found in file mathoms.c
+
+=item sv_taint
+X<sv_taint>
+
+Taint an SV.  Use C<SvTAINTED_on> instead.
+
+	void	sv_taint(SV* sv)
+
+=for hackers
+Found in file mathoms.c
+
+=item sv_unref
+X<sv_unref>
+
+Unsets the RV status of the SV, and decrements the reference count of
+whatever was being referenced by the RV.  This can almost be thought of
+as a reversal of C<newSVrv>.  This is C<sv_unref_flags> with the C<flag>
+being zero.  See C<L</SvROK_off>>.
+
+	void	sv_unref(SV* sv)
+
+=for hackers
+Found in file mathoms.c
+
+=item sv_usepvn
+X<sv_usepvn>
+
+Tells an SV to use C<ptr> to find its string value.  Implemented by
+calling C<sv_usepvn_flags> with C<flags> of 0, hence does not handle 'set'
+magic.  See C<L</sv_usepvn_flags>>.
+
+	void	sv_usepvn(SV* sv, char* ptr, STRLEN len)
+
+=for hackers
+Found in file mathoms.c
+
+=item sv_usepvn_mg
+X<sv_usepvn_mg>
+
+Like C<sv_usepvn>, but also handles 'set' magic.
+
+	void	sv_usepvn_mg(SV *sv, char *ptr, STRLEN len)
+
+=for hackers
+Found in file mathoms.c
+
+=item sv_uv
+X<sv_uv>
+
+A private implementation of the C<SvUVx> macro for compilers which can't
+cope with complex macro expressions.  Always use the macro instead.
+
+	UV	sv_uv(SV* sv)
+
+=for hackers
+Found in file mathoms.c
+
+=item unpack_str
+X<unpack_str>
+
+The engine implementing C<unpack()> Perl function.  Note: parameters C<strbeg>,
+C<new_s> and C<ocnt> are not used.  This call should not be used, use
+C<unpackstring> instead.
+
+	I32	unpack_str(const char *pat, const char *patend,
+		           const char *s, const char *strbeg,
+		           const char *strend, char **new_s,
+		           I32 ocnt, U32 flags)
+
+=for hackers
+Found in file mathoms.c
+
+=item utf8_to_uvchr
+X<utf8_to_uvchr>
+
+
+DEPRECATED!  It is planned to remove this function from a
+future release of Perl.  Do not use it for new code; remove it from
+existing code.
+
+
+Returns the native code point of the first character in the string C<s>
+which is assumed to be in UTF-8 encoding; C<retlen> will be set to the
+length, in bytes, of that character.
+
+Some, but not all, UTF-8 malformations are detected, and in fact, some
+malformed input could cause reading beyond the end of the input buffer, which
+is why this function is deprecated.  Use L</utf8_to_uvchr_buf> instead.
+
+If C<s> points to one of the detected malformations, and UTF8 warnings are
+enabled, zero is returned and C<*retlen> is set (if C<retlen> isn't
+C<NULL>) to -1.  If those warnings are off, the computed value if well-defined (or
+the Unicode REPLACEMENT CHARACTER, if not) is silently returned, and C<*retlen>
+is set (if C<retlen> isn't NULL) so that (S<C<s> + C<*retlen>>) is the
+next possible position in C<s> that could begin a non-malformed character.
+See L</utf8n_to_uvchr> for details on when the REPLACEMENT CHARACTER is returned.
+
+	UV	utf8_to_uvchr(const U8 *s, STRLEN *retlen)
+
+=for hackers
+Found in file mathoms.c
+
+=item utf8_to_uvuni
+X<utf8_to_uvuni>
+
+
+DEPRECATED!  It is planned to remove this function from a
+future release of Perl.  Do not use it for new code; remove it from
+existing code.
+
+
+Returns the Unicode code point of the first character in the string C<s>
+which is assumed to be in UTF-8 encoding; C<retlen> will be set to the
+length, in bytes, of that character.
+
+Some, but not all, UTF-8 malformations are detected, and in fact, some
+malformed input could cause reading beyond the end of the input buffer, which
+is one reason why this function is deprecated.  The other is that only in
+extremely limited circumstances should the Unicode versus native code point be
+of any interest to you.  See L</utf8_to_uvuni_buf> for alternatives.
+
+If C<s> points to one of the detected malformations, and UTF8 warnings are
+enabled, zero is returned and C<*retlen> is set (if C<retlen> doesn't point to
+NULL) to -1.  If those warnings are off, the computed value if well-defined (or
+the Unicode REPLACEMENT CHARACTER, if not) is silently returned, and C<*retlen>
+is set (if C<retlen> isn't NULL) so that (S<C<s> + C<*retlen>>) is the
+next possible position in C<s> that could begin a non-malformed character.
+See L</utf8n_to_uvchr> for details on when the REPLACEMENT CHARACTER is returned.
+
+	UV	utf8_to_uvuni(const U8 *s, STRLEN *retlen)
+
+=for hackers
+Found in file mathoms.c
+
+
+=back
+
+=head1 Optree construction
+
+=over 8
+
+=item newASSIGNOP
+X<newASSIGNOP>
+
+Constructs, checks, and returns an assignment op.  C<left> and C<right>
+supply the parameters of the assignment; they are consumed by this
+function and become part of the constructed op tree.
+
+If C<optype> is C<OP_ANDASSIGN>, C<OP_ORASSIGN>, or C<OP_DORASSIGN>, then
+a suitable conditional optree is constructed.  If C<optype> is the opcode
+of a binary operator, such as C<OP_BIT_OR>, then an op is constructed that
+performs the binary operation and assigns the result to the left argument.
+Either way, if C<optype> is non-zero then C<flags> has no effect.
+
+If C<optype> is zero, then a plain scalar or list assignment is
+constructed.  Which type of assignment it is is automatically determined.
+C<flags> gives the eight bits of C<op_flags>, except that C<OPf_KIDS>
+will be set automatically, and, shifted up eight bits, the eight bits
+of C<op_private>, except that the bit with value 1 or 2 is automatically
+set as required.
+
+	OP *	newASSIGNOP(I32 flags, OP *left, I32 optype,
+		            OP *right)
+
+=for hackers
+Found in file op.c
+
+=item newBINOP
+X<newBINOP>
+
+Constructs, checks, and returns an op of any binary type.  C<type>
+is the opcode.  C<flags> gives the eight bits of C<op_flags>, except
+that C<OPf_KIDS> will be set automatically, and, shifted up eight bits,
+the eight bits of C<op_private>, except that the bit with value 1 or
+2 is automatically set as required.  C<first> and C<last> supply up to
+two ops to be the direct children of the binary op; they are consumed
+by this function and become part of the constructed op tree.
+
+	OP *	newBINOP(I32 type, I32 flags, OP *first,
+		         OP *last)
+
+=for hackers
+Found in file op.c
+
+=item newCONDOP
+X<newCONDOP>
+
+Constructs, checks, and returns a conditional-expression (C<cond_expr>)
+op.  C<flags> gives the eight bits of C<op_flags>, except that C<OPf_KIDS>
+will be set automatically, and, shifted up eight bits, the eight bits of
+C<op_private>, except that the bit with value 1 is automatically set.
+C<first> supplies the expression selecting between the two branches,
+and C<trueop> and C<falseop> supply the branches; they are consumed by
+this function and become part of the constructed op tree.
+
+	OP *	newCONDOP(I32 flags, OP *first, OP *trueop,
+		          OP *falseop)
+
+=for hackers
+Found in file op.c
+
+=item newDEFSVOP
+X<newDEFSVOP>
+
+Constructs and returns an op to access C<$_>.
+
+	OP *	newDEFSVOP()
+
+=for hackers
+Found in file op.c
+
+=item newFOROP
+X<newFOROP>
+
+Constructs, checks, and returns an op tree expressing a C<foreach>
+loop (iteration through a list of values).  This is a heavyweight loop,
+with structure that allows exiting the loop by C<last> and suchlike.
+
+C<sv> optionally supplies the variable that will be aliased to each
+item in turn; if null, it defaults to C<$_>.
+C<expr> supplies the list of values to iterate over.  C<block> supplies
+the main body of the loop, and C<cont> optionally supplies a C<continue>
+block that operates as a second half of the body.  All of these optree
+inputs are consumed by this function and become part of the constructed
+op tree.
+
+C<flags> gives the eight bits of C<op_flags> for the C<leaveloop>
+op and, shifted up eight bits, the eight bits of C<op_private> for
+the C<leaveloop> op, except that (in both cases) some bits will be set
+automatically.
+
+	OP *	newFOROP(I32 flags, OP *sv, OP *expr, OP *block,
+		         OP *cont)
+
+=for hackers
+Found in file op.c
+
+=item newGIVENOP
+X<newGIVENOP>
+
+Constructs, checks, and returns an op tree expressing a C<given> block.
+C<cond> supplies the expression that will be locally assigned to a lexical
+variable, and C<block> supplies the body of the C<given> construct; they
+are consumed by this function and become part of the constructed op tree.
+C<defsv_off> must be zero (it used to identity the pad slot of lexical $_).
+
+	OP *	newGIVENOP(OP *cond, OP *block,
+		           PADOFFSET defsv_off)
+
+=for hackers
+Found in file op.c
+
+=item newGVOP
+X<newGVOP>
+
+Constructs, checks, and returns an op of any type that involves an
+embedded reference to a GV.  C<type> is the opcode.  C<flags> gives the
+eight bits of C<op_flags>.  C<gv> identifies the GV that the op should
+reference; calling this function does not transfer ownership of any
+reference to it.
+
+	OP *	newGVOP(I32 type, I32 flags, GV *gv)
+
+=for hackers
+Found in file op.c
+
+=item newLISTOP
+X<newLISTOP>
+
+Constructs, checks, and returns an op of any list type.  C<type> is
+the opcode.  C<flags> gives the eight bits of C<op_flags>, except that
+C<OPf_KIDS> will be set automatically if required.  C<first> and C<last>
+supply up to two ops to be direct children of the list op; they are
+consumed by this function and become part of the constructed op tree.
+
+For most list operators, the check function expects all the kid ops to be
+present already, so calling C<newLISTOP(OP_JOIN, ...)> (e.g.) is not
+appropriate.  What you want to do in that case is create an op of type
+C<OP_LIST>, append more children to it, and then call L</op_convert_list>.
+See L</op_convert_list> for more information.
+
+
+	OP *	newLISTOP(I32 type, I32 flags, OP *first,
+		          OP *last)
+
+=for hackers
+Found in file op.c
+
+=item newLOGOP
+X<newLOGOP>
+
+Constructs, checks, and returns a logical (flow control) op.  C<type>
+is the opcode.  C<flags> gives the eight bits of C<op_flags>, except
+that C<OPf_KIDS> will be set automatically, and, shifted up eight bits,
+the eight bits of C<op_private>, except that the bit with value 1 is
+automatically set.  C<first> supplies the expression controlling the
+flow, and C<other> supplies the side (alternate) chain of ops; they are
+consumed by this function and become part of the constructed op tree.
+
+	OP *	newLOGOP(I32 type, I32 flags, OP *first,
+		         OP *other)
+
+=for hackers
+Found in file op.c
+
+=item newLOOPEX
+X<newLOOPEX>
+
+Constructs, checks, and returns a loop-exiting op (such as C<goto>
+or C<last>).  C<type> is the opcode.  C<label> supplies the parameter
+determining the target of the op; it is consumed by this function and
+becomes part of the constructed op tree.
+
+	OP *	newLOOPEX(I32 type, OP *label)
+
+=for hackers
+Found in file op.c
+
+=item newLOOPOP
+X<newLOOPOP>
+
+Constructs, checks, and returns an op tree expressing a loop.  This is
+only a loop in the control flow through the op tree; it does not have
+the heavyweight loop structure that allows exiting the loop by C<last>
+and suchlike.  C<flags> gives the eight bits of C<op_flags> for the
+top-level op, except that some bits will be set automatically as required.
+C<expr> supplies the expression controlling loop iteration, and C<block>
+supplies the body of the loop; they are consumed by this function and
+become part of the constructed op tree.  C<debuggable> is currently
+unused and should always be 1.
+
+	OP *	newLOOPOP(I32 flags, I32 debuggable, OP *expr,
+		          OP *block)
+
+=for hackers
+Found in file op.c
+
+=item newMETHOP
+X<newMETHOP>
+
+Constructs, checks, and returns an op of method type with a method name
+evaluated at runtime.  C<type> is the opcode.  C<flags> gives the eight
+bits of C<op_flags>, except that C<OPf_KIDS> will be set automatically,
+and, shifted up eight bits, the eight bits of C<op_private>, except that
+the bit with value 1 is automatically set.  C<dynamic_meth> supplies an
+op which evaluates method name; it is consumed by this function and
+become part of the constructed op tree.
+Supported optypes: C<OP_METHOD>.
+
+	OP *	newMETHOP(I32 type, I32 flags, OP *first)
+
+=for hackers
+Found in file op.c
+
+=item newMETHOP_named
+X<newMETHOP_named>
+
+Constructs, checks, and returns an op of method type with a constant
+method name.  C<type> is the opcode.  C<flags> gives the eight bits of
+C<op_flags>, and, shifted up eight bits, the eight bits of
+C<op_private>.  C<const_meth> supplies a constant method name;
+it must be a shared COW string.
+Supported optypes: C<OP_METHOD_NAMED>.
+
+	OP *	newMETHOP_named(I32 type, I32 flags,
+		                SV *const_meth)
+
+=for hackers
+Found in file op.c
+
+=item newNULLLIST
+X<newNULLLIST>
+
+Constructs, checks, and returns a new C<stub> op, which represents an
+empty list expression.
+
+	OP *	newNULLLIST()
+
+=for hackers
+Found in file op.c
+
+=item newOP
+X<newOP>
+
+Constructs, checks, and returns an op of any base type (any type that
+has no extra fields).  C<type> is the opcode.  C<flags> gives the
+eight bits of C<op_flags>, and, shifted up eight bits, the eight bits
+of C<op_private>.
+
+	OP *	newOP(I32 type, I32 flags)
+
+=for hackers
+Found in file op.c
+
+=item newPADOP
+X<newPADOP>
+
+Constructs, checks, and returns an op of any type that involves a
+reference to a pad element.  C<type> is the opcode.  C<flags> gives the
+eight bits of C<op_flags>.  A pad slot is automatically allocated, and
+is populated with C<sv>; this function takes ownership of one reference
+to it.
+
+This function only exists if Perl has been compiled to use ithreads.
+
+	OP *	newPADOP(I32 type, I32 flags, SV *sv)
+
+=for hackers
+Found in file op.c
+
+=item newPMOP
+X<newPMOP>
+
+Constructs, checks, and returns an op of any pattern matching type.
+C<type> is the opcode.  C<flags> gives the eight bits of C<op_flags>
+and, shifted up eight bits, the eight bits of C<op_private>.
+
+	OP *	newPMOP(I32 type, I32 flags)
+
+=for hackers
+Found in file op.c
+
+=item newPVOP
+X<newPVOP>
+
+Constructs, checks, and returns an op of any type that involves an
+embedded C-level pointer (PV).  C<type> is the opcode.  C<flags> gives
+the eight bits of C<op_flags>.  C<pv> supplies the C-level pointer, which
+must have been allocated using C<PerlMemShared_malloc>; the memory will
+be freed when the op is destroyed.
+
+	OP *	newPVOP(I32 type, I32 flags, char *pv)
+
+=for hackers
+Found in file op.c
+
+=item newRANGE
+X<newRANGE>
+
+Constructs and returns a C<range> op, with subordinate C<flip> and
+C<flop> ops.  C<flags> gives the eight bits of C<op_flags> for the
+C<flip> op and, shifted up eight bits, the eight bits of C<op_private>
+for both the C<flip> and C<range> ops, except that the bit with value
+1 is automatically set.  C<left> and C<right> supply the expressions
+controlling the endpoints of the range; they are consumed by this function
+and become part of the constructed op tree.
+
+	OP *	newRANGE(I32 flags, OP *left, OP *right)
+
+=for hackers
+Found in file op.c
+
+=item newSLICEOP
+X<newSLICEOP>
+
+Constructs, checks, and returns an C<lslice> (list slice) op.  C<flags>
+gives the eight bits of C<op_flags>, except that C<OPf_KIDS> will
+be set automatically, and, shifted up eight bits, the eight bits of
+C<op_private>, except that the bit with value 1 or 2 is automatically
+set as required.  C<listval> and C<subscript> supply the parameters of
+the slice; they are consumed by this function and become part of the
+constructed op tree.
+
+	OP *	newSLICEOP(I32 flags, OP *subscript,
+		           OP *listval)
+
+=for hackers
+Found in file op.c
+
+=item newSTATEOP
+X<newSTATEOP>
+
+Constructs a state op (COP).  The state op is normally a C<nextstate> op,
+but will be a C<dbstate> op if debugging is enabled for currently-compiled
+code.  The state op is populated from C<PL_curcop> (or C<PL_compiling>).
+If C<label> is non-null, it supplies the name of a label to attach to
+the state op; this function takes ownership of the memory pointed at by
+C<label>, and will free it.  C<flags> gives the eight bits of C<op_flags>
+for the state op.
+
+If C<o> is null, the state op is returned.  Otherwise the state op is
+combined with C<o> into a C<lineseq> list op, which is returned.  C<o>
+is consumed by this function and becomes part of the returned op tree.
+
+	OP *	newSTATEOP(I32 flags, char *label, OP *o)
+
+=for hackers
+Found in file op.c
+
+=item newSVOP
+X<newSVOP>
+
+Constructs, checks, and returns an op of any type that involves an
+embedded SV.  C<type> is the opcode.  C<flags> gives the eight bits
+of C<op_flags>.  C<sv> gives the SV to embed in the op; this function
+takes ownership of one reference to it.
+
+	OP *	newSVOP(I32 type, I32 flags, SV *sv)
+
+=for hackers
+Found in file op.c
+
+=item newUNOP
+X<newUNOP>
+
+Constructs, checks, and returns an op of any unary type.  C<type> is
+the opcode.  C<flags> gives the eight bits of C<op_flags>, except that
+C<OPf_KIDS> will be set automatically if required, and, shifted up eight
+bits, the eight bits of C<op_private>, except that the bit with value 1
+is automatically set.  C<first> supplies an optional op to be the direct
+child of the unary op; it is consumed by this function and become part
+of the constructed op tree.
+
+	OP *	newUNOP(I32 type, I32 flags, OP *first)
+
+=for hackers
+Found in file op.c
+
+=item newUNOP_AUX
+X<newUNOP_AUX>
+
+Similar to C<newUNOP>, but creates an C<UNOP_AUX> struct instead, with C<op_aux>
+initialised to C<aux>
+
+	OP*	newUNOP_AUX(I32 type, I32 flags, OP* first,
+		            UNOP_AUX_item *aux)
+
+=for hackers
+Found in file op.c
+
+=item newWHENOP
+X<newWHENOP>
+
+Constructs, checks, and returns an op tree expressing a C<when> block.
+C<cond> supplies the test expression, and C<block> supplies the block
+that will be executed if the test evaluates to true; they are consumed
+by this function and become part of the constructed op tree.  C<cond>
+will be interpreted DWIMically, often as a comparison against C<$_>,
+and may be null to generate a C<default> block.
+
+	OP *	newWHENOP(OP *cond, OP *block)
+
+=for hackers
+Found in file op.c
+
+=item newWHILEOP
+X<newWHILEOP>
+
+Constructs, checks, and returns an op tree expressing a C<while> loop.
+This is a heavyweight loop, with structure that allows exiting the loop
+by C<last> and suchlike.
+
+C<loop> is an optional preconstructed C<enterloop> op to use in the
+loop; if it is null then a suitable op will be constructed automatically.
+C<expr> supplies the loop's controlling expression.  C<block> supplies the
+main body of the loop, and C<cont> optionally supplies a C<continue> block
+that operates as a second half of the body.  All of these optree inputs
+are consumed by this function and become part of the constructed op tree.
+
+C<flags> gives the eight bits of C<op_flags> for the C<leaveloop>
+op and, shifted up eight bits, the eight bits of C<op_private> for
+the C<leaveloop> op, except that (in both cases) some bits will be set
+automatically.  C<debuggable> is currently unused and should always be 1.
+C<has_my> can be supplied as true to force the
+loop body to be enclosed in its own scope.
+
+	OP *	newWHILEOP(I32 flags, I32 debuggable,
+		           LOOP *loop, OP *expr, OP *block,
+		           OP *cont, I32 has_my)
+
+=for hackers
+Found in file op.c
+
+
+=back
+
+=head1 Optree Manipulation Functions
+
+=over 8
+
+=item alloccopstash
+X<alloccopstash>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Available only under threaded builds, this function allocates an entry in
+C<PL_stashpad> for the stash passed to it.
+
+	PADOFFSET alloccopstash(HV *hv)
+
+=for hackers
+Found in file op.c
+
+=item block_end
+X<block_end>
+
+Handles compile-time scope exit.  C<floor>
+is the savestack index returned by
+C<block_start>, and C<seq> is the body of the block.  Returns the block,
+possibly modified.
+
+	OP *	block_end(I32 floor, OP *seq)
+
+=for hackers
+Found in file op.c
+
+=item block_start
+X<block_start>
+
+Handles compile-time scope entry.
+Arranges for hints to be restored on block
+exit and also handles pad sequence numbers to make lexical variables scope
+right.  Returns a savestack index for use with C<block_end>.
+
+	int	block_start(int full)
+
+=for hackers
+Found in file op.c
+
+=item ck_entersub_args_list
+X<ck_entersub_args_list>
+
+Performs the default fixup of the arguments part of an C<entersub>
+op tree.  This consists of applying list context to each of the
+argument ops.  This is the standard treatment used on a call marked
+with C<&>, or a method call, or a call through a subroutine reference,
+or any other call where the callee can't be identified at compile time,
+or a call where the callee has no prototype.
+
+	OP *	ck_entersub_args_list(OP *entersubop)
+
+=for hackers
+Found in file op.c
+
+=item ck_entersub_args_proto
+X<ck_entersub_args_proto>
+
+Performs the fixup of the arguments part of an C<entersub> op tree
+based on a subroutine prototype.  This makes various modifications to
+the argument ops, from applying context up to inserting C<refgen> ops,
+and checking the number and syntactic types of arguments, as directed by
+the prototype.  This is the standard treatment used on a subroutine call,
+not marked with C<&>, where the callee can be identified at compile time
+and has a prototype.
+
+C<protosv> supplies the subroutine prototype to be applied to the call.
+It may be a normal defined scalar, of which the string value will be used.
+Alternatively, for convenience, it may be a subroutine object (a C<CV*>
+that has been cast to C<SV*>) which has a prototype.  The prototype
+supplied, in whichever form, does not need to match the actual callee
+referenced by the op tree.
+
+If the argument ops disagree with the prototype, for example by having
+an unacceptable number of arguments, a valid op tree is returned anyway.
+The error is reflected in the parser state, normally resulting in a single
+exception at the top level of parsing which covers all the compilation
+errors that occurred.  In the error message, the callee is referred to
+by the name defined by the C<namegv> parameter.
+
+	OP *	ck_entersub_args_proto(OP *entersubop,
+		                       GV *namegv, SV *protosv)
+
+=for hackers
+Found in file op.c
+
+=item ck_entersub_args_proto_or_list
+X<ck_entersub_args_proto_or_list>
+
+Performs the fixup of the arguments part of an C<entersub> op tree either
+based on a subroutine prototype or using default list-context processing.
+This is the standard treatment used on a subroutine call, not marked
+with C<&>, where the callee can be identified at compile time.
+
+C<protosv> supplies the subroutine prototype to be applied to the call,
+or indicates that there is no prototype.  It may be a normal scalar,
+in which case if it is defined then the string value will be used
+as a prototype, and if it is undefined then there is no prototype.
+Alternatively, for convenience, it may be a subroutine object (a C<CV*>
+that has been cast to C<SV*>), of which the prototype will be used if it
+has one.  The prototype (or lack thereof) supplied, in whichever form,
+does not need to match the actual callee referenced by the op tree.
+
+If the argument ops disagree with the prototype, for example by having
+an unacceptable number of arguments, a valid op tree is returned anyway.
+The error is reflected in the parser state, normally resulting in a single
+exception at the top level of parsing which covers all the compilation
+errors that occurred.  In the error message, the callee is referred to
+by the name defined by the C<namegv> parameter.
+
+	OP *	ck_entersub_args_proto_or_list(OP *entersubop,
+		                               GV *namegv,
+		                               SV *protosv)
+
+=for hackers
+Found in file op.c
+
+=item cv_const_sv
+X<cv_const_sv>
+
+If C<cv> is a constant sub eligible for inlining, returns the constant
+value returned by the sub.  Otherwise, returns C<NULL>.
+
+Constant subs can be created with C<newCONSTSUB> or as described in
+L<perlsub/"Constant Functions">.
+
+	SV*	cv_const_sv(const CV *const cv)
+
+=for hackers
+Found in file op.c
+
+=item cv_get_call_checker
+X<cv_get_call_checker>
+
+Retrieves the function that will be used to fix up a call to C<cv>.
+Specifically, the function is applied to an C<entersub> op tree for a
+subroutine call, not marked with C<&>, where the callee can be identified
+at compile time as C<cv>.
+
+The C-level function pointer is returned in C<*ckfun_p>, and an SV
+argument for it is returned in C<*ckobj_p>.  The function is intended
+to be called in this manner:
+
+ entersubop = (*ckfun_p)(aTHX_ entersubop, namegv, (*ckobj_p));
+
+In this call, C<entersubop> is a pointer to the C<entersub> op,
+which may be replaced by the check function, and C<namegv> is a GV
+supplying the name that should be used by the check function to refer
+to the callee of the C<entersub> op if it needs to emit any diagnostics.
+It is permitted to apply the check function in non-standard situations,
+such as to a call to a different subroutine or to a method call.
+
+By default, the function is
+L<Perl_ck_entersub_args_proto_or_list|/ck_entersub_args_proto_or_list>,
+and the SV parameter is C<cv> itself.  This implements standard
+prototype processing.  It can be changed, for a particular subroutine,
+by L</cv_set_call_checker>.
+
+	void	cv_get_call_checker(CV *cv,
+		                    Perl_call_checker *ckfun_p,
+		                    SV **ckobj_p)
+
+=for hackers
+Found in file op.c
+
+=item cv_set_call_checker
+X<cv_set_call_checker>
+
+The original form of L</cv_set_call_checker_flags>, which passes it the
+C<CALL_CHECKER_REQUIRE_GV> flag for backward-compatibility.
+
+	void	cv_set_call_checker(CV *cv,
+		                    Perl_call_checker ckfun,
+		                    SV *ckobj)
+
+=for hackers
+Found in file op.c
+
+=item cv_set_call_checker_flags
+X<cv_set_call_checker_flags>
+
+Sets the function that will be used to fix up a call to C<cv>.
+Specifically, the function is applied to an C<entersub> op tree for a
+subroutine call, not marked with C<&>, where the callee can be identified
+at compile time as C<cv>.
+
+The C-level function pointer is supplied in C<ckfun>, and an SV argument
+for it is supplied in C<ckobj>.  The function should be defined like this:
+
+    STATIC OP * ckfun(pTHX_ OP *op, GV *namegv, SV *ckobj)
+
+It is intended to be called in this manner:
+
+    entersubop = ckfun(aTHX_ entersubop, namegv, ckobj);
+
+In this call, C<entersubop> is a pointer to the C<entersub> op,
+which may be replaced by the check function, and C<namegv> supplies
+the name that should be used by the check function to refer
+to the callee of the C<entersub> op if it needs to emit any diagnostics.
+It is permitted to apply the check function in non-standard situations,
+such as to a call to a different subroutine or to a method call.
+
+C<namegv> may not actually be a GV.  For efficiency, perl may pass a
+CV or other SV instead.  Whatever is passed can be used as the first
+argument to L</cv_name>.  You can force perl to pass a GV by including
+C<CALL_CHECKER_REQUIRE_GV> in the C<flags>.
+
+The current setting for a particular CV can be retrieved by
+L</cv_get_call_checker>.
+
+	void	cv_set_call_checker_flags(
+		    CV *cv, Perl_call_checker ckfun, SV *ckobj,
+		    U32 flags
+		)
+
+=for hackers
+Found in file op.c
+
+=item LINKLIST
+X<LINKLIST>
+
+Given the root of an optree, link the tree in execution order using the
+C<op_next> pointers and return the first op executed.  If this has
+already been done, it will not be redone, and C<< o->op_next >> will be
+returned.  If C<< o->op_next >> is not already set, C<o> should be at
+least an C<UNOP>.
+
+	OP*	LINKLIST(OP *o)
+
+=for hackers
+Found in file op.h
+
+=item newCONSTSUB
+X<newCONSTSUB>
+
+See L</newCONSTSUB_flags>.
+
+	CV*	newCONSTSUB(HV* stash, const char* name, SV* sv)
+
+=for hackers
+Found in file op.c
+
+=item newCONSTSUB_flags
+X<newCONSTSUB_flags>
+
+Creates a constant sub equivalent to Perl S<C<sub FOO () { 123 }>> which is
+eligible for inlining at compile-time.
+
+Currently, the only useful value for C<flags> is C<SVf_UTF8>.
+
+The newly created subroutine takes ownership of a reference to the passed in
+SV.
+
+Passing C<NULL> for SV creates a constant sub equivalent to S<C<sub BAR () {}>>,
+which won't be called if used as a destructor, but will suppress the overhead
+of a call to C<AUTOLOAD>.  (This form, however, isn't eligible for inlining at
+compile time.)
+
+	CV*	newCONSTSUB_flags(HV* stash, const char* name,
+		                  STRLEN len, U32 flags, SV* sv)
+
+=for hackers
+Found in file op.c
+
+=item newXS
+X<newXS>
+
+Used by C<xsubpp> to hook up XSUBs as Perl subs.  C<filename> needs to be
+static storage, as it is used directly as CvFILE(), without a copy being made.
+
+=for hackers
+Found in file op.c
+
+=item op_append_elem
+X<op_append_elem>
+
+Append an item to the list of ops contained directly within a list-type
+op, returning the lengthened list.  C<first> is the list-type op,
+and C<last> is the op to append to the list.  C<optype> specifies the
+intended opcode for the list.  If C<first> is not already a list of the
+right type, it will be upgraded into one.  If either C<first> or C<last>
+is null, the other is returned unchanged.
+
+	OP *	op_append_elem(I32 optype, OP *first, OP *last)
+
+=for hackers
+Found in file op.c
+
+=item op_append_list
+X<op_append_list>
+
+Concatenate the lists of ops contained directly within two list-type ops,
+returning the combined list.  C<first> and C<last> are the list-type ops
+to concatenate.  C<optype> specifies the intended opcode for the list.
+If either C<first> or C<last> is not already a list of the right type,
+it will be upgraded into one.  If either C<first> or C<last> is null,
+the other is returned unchanged.
+
+	OP *	op_append_list(I32 optype, OP *first, OP *last)
+
+=for hackers
+Found in file op.c
+
+=item OP_CLASS
+X<OP_CLASS>
+
+Return the class of the provided OP: that is, which of the *OP
+structures it uses.  For core ops this currently gets the information out
+of C<PL_opargs>, which does not always accurately reflect the type used.
+For custom ops the type is returned from the registration, and it is up
+to the registree to ensure it is accurate.  The value returned will be
+one of the C<OA_>* constants from F<op.h>.
+
+	U32	OP_CLASS(OP *o)
+
+=for hackers
+Found in file op.h
+
+=item op_contextualize
+X<op_contextualize>
+
+Applies a syntactic context to an op tree representing an expression.
+C<o> is the op tree, and C<context> must be C<G_SCALAR>, C<G_ARRAY>,
+or C<G_VOID> to specify the context to apply.  The modified op tree
+is returned.
+
+	OP *	op_contextualize(OP *o, I32 context)
+
+=for hackers
+Found in file op.c
+
+=item op_convert_list
+X<op_convert_list>
+
+Converts C<o> into a list op if it is not one already, and then converts it
+into the specified C<type>, calling its check function, allocating a target if
+it needs one, and folding constants.
+
+A list-type op is usually constructed one kid at a time via C<newLISTOP>,
+C<op_prepend_elem> and C<op_append_elem>.  Then finally it is passed to
+C<op_convert_list> to make it the right type.
+
+	OP *	op_convert_list(I32 type, I32 flags, OP *o)
+
+=for hackers
+Found in file op.c
+
+=item OP_DESC
+X<OP_DESC>
+
+Return a short description of the provided OP.
+
+	const char * OP_DESC(OP *o)
+
+=for hackers
+Found in file op.h
+
+=item op_free
+X<op_free>
+
+Free an op.  Only use this when an op is no longer linked to from any
+optree.
+
+	void	op_free(OP *o)
+
+=for hackers
+Found in file op.c
+
+=item OpHAS_SIBLING
+X<OpHAS_SIBLING>
+
+Returns true if C<o> has a sibling
+
+	bool	OpHAS_SIBLING(OP *o)
+
+=for hackers
+Found in file op.h
+
+=item OpLASTSIB_set
+X<OpLASTSIB_set>
+
+Marks C<o> as having no further siblings. On C<PERL_OP_PARENT> builds, marks
+o as having the specified parent. See also C<L</OpMORESIB_set>> and
+C<OpMAYBESIB_set>. For a higher-level interface, see
+C<L</op_sibling_splice>>.
+
+	void	OpLASTSIB_set(OP *o, OP *parent)
+
+=for hackers
+Found in file op.h
+
+=item op_linklist
+X<op_linklist>
+
+This function is the implementation of the L</LINKLIST> macro.  It should
+not be called directly.
+
+	OP*	op_linklist(OP *o)
+
+=for hackers
+Found in file op.c
+
+=item op_lvalue
+X<op_lvalue>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Propagate lvalue ("modifiable") context to an op and its children.
+C<type> represents the context type, roughly based on the type of op that
+would do the modifying, although C<local()> is represented by C<OP_NULL>,
+because it has no op type of its own (it is signalled by a flag on
+the lvalue op).
+
+This function detects things that can't be modified, such as C<$x+1>, and
+generates errors for them.  For example, C<$x+1 = 2> would cause it to be
+called with an op of type C<OP_ADD> and a C<type> argument of C<OP_SASSIGN>.
+
+It also flags things that need to behave specially in an lvalue context,
+such as C<$$x = 5> which might have to vivify a reference in C<$x>.
+
+	OP *	op_lvalue(OP *o, I32 type)
+
+=for hackers
+Found in file op.c
+
+=item OpMAYBESIB_set
+X<OpMAYBESIB_set>
+
+Conditionally does C<OpMORESIB_set> or C<OpLASTSIB_set> depending on whether
+C<sib> is non-null. For a higher-level interface, see C<L</op_sibling_splice>>.
+
+	void	OpMAYBESIB_set(OP *o, OP *sib, OP *parent)
+
+=for hackers
+Found in file op.h
+
+=item OpMORESIB_set
+X<OpMORESIB_set>
+
+Sets the sibling of C<o> to the non-zero value C<sib>. See also C<L</OpLASTSIB_set>>
+and C<L</OpMAYBESIB_set>>. For a higher-level interface, see
+C<L</op_sibling_splice>>.
+
+	void	OpMORESIB_set(OP *o, OP *sib)
+
+=for hackers
+Found in file op.h
+
+=item OP_NAME
+X<OP_NAME>
+
+Return the name of the provided OP.  For core ops this looks up the name
+from the op_type; for custom ops from the op_ppaddr.
+
+	const char * OP_NAME(OP *o)
+
+=for hackers
+Found in file op.h
+
+=item op_null
+X<op_null>
+
+Neutralizes an op when it is no longer needed, but is still linked to from
+other ops.
+
+	void	op_null(OP *o)
+
+=for hackers
+Found in file op.c
+
+=item op_parent
+X<op_parent>
+
+Returns the parent OP of C<o>, if it has a parent. Returns C<NULL> otherwise.
+This function is only available on perls built with C<-DPERL_OP_PARENT>.
+
+	OP*	op_parent(OP *o)
+
+=for hackers
+Found in file op.c
+
+=item op_prepend_elem
+X<op_prepend_elem>
+
+Prepend an item to the list of ops contained directly within a list-type
+op, returning the lengthened list.  C<first> is the op to prepend to the
+list, and C<last> is the list-type op.  C<optype> specifies the intended
+opcode for the list.  If C<last> is not already a list of the right type,
+it will be upgraded into one.  If either C<first> or C<last> is null,
+the other is returned unchanged.
+
+	OP *	op_prepend_elem(I32 optype, OP *first, OP *last)
+
+=for hackers
+Found in file op.c
+
+=item op_scope
+X<op_scope>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Wraps up an op tree with some additional ops so that at runtime a dynamic
+scope will be created.  The original ops run in the new dynamic scope,
+and then, provided that they exit normally, the scope will be unwound.
+The additional ops used to create and unwind the dynamic scope will
+normally be an C<enter>/C<leave> pair, but a C<scope> op may be used
+instead if the ops are simple enough to not need the full dynamic scope
+structure.
+
+	OP *	op_scope(OP *o)
+
+=for hackers
+Found in file op.c
+
+=item OpSIBLING
+X<OpSIBLING>
+
+Returns the sibling of C<o>, or C<NULL> if there is no sibling
+
+	OP*	OpSIBLING(OP *o)
+
+=for hackers
+Found in file op.h
+
+=item op_sibling_splice
+X<op_sibling_splice>
+
+A general function for editing the structure of an existing chain of
+op_sibling nodes.  By analogy with the perl-level C<splice()> function, allows
+you to delete zero or more sequential nodes, replacing them with zero or
+more different nodes.  Performs the necessary op_first/op_last
+housekeeping on the parent node and op_sibling manipulation on the
+children.  The last deleted node will be marked as as the last node by
+updating the op_sibling/op_sibparent or op_moresib field as appropriate.
+
+Note that op_next is not manipulated, and nodes are not freed; that is the
+responsibility of the caller.  It also won't create a new list op for an
+empty list etc; use higher-level functions like op_append_elem() for that.
+
+C<parent> is the parent node of the sibling chain. It may passed as C<NULL> if
+the splicing doesn't affect the first or last op in the chain.
+
+C<start> is the node preceding the first node to be spliced.  Node(s)
+following it will be deleted, and ops will be inserted after it.  If it is
+C<NULL>, the first node onwards is deleted, and nodes are inserted at the
+beginning.
+
+C<del_count> is the number of nodes to delete.  If zero, no nodes are deleted.
+If -1 or greater than or equal to the number of remaining kids, all
+remaining kids are deleted.
+
+C<insert> is the first of a chain of nodes to be inserted in place of the nodes.
+If C<NULL>, no nodes are inserted.
+
+The head of the chain of deleted ops is returned, or C<NULL> if no ops were
+deleted.
+
+For example:
+
+    action                    before      after         returns
+    ------                    -----       -----         -------
+
+                              P           P
+    splice(P, A, 2, X-Y-Z)    |           |             B-C
+                              A-B-C-D     A-X-Y-Z-D
+
+                              P           P
+    splice(P, NULL, 1, X-Y)   |           |             A
+                              A-B-C-D     X-Y-B-C-D
+
+                              P           P
+    splice(P, NULL, 3, NULL)  |           |             A-B-C
+                              A-B-C-D     D
+
+                              P           P
+    splice(P, B, 0, X-Y)      |           |             NULL
+                              A-B-C-D     A-B-X-Y-C-D
+
+
+For lower-level direct manipulation of C<op_sibparent> and C<op_moresib>,
+see C<L</OpMORESIB_set>>, C<L</OpLASTSIB_set>>, C<L</OpMAYBESIB_set>>.
+
+	OP*	op_sibling_splice(OP *parent, OP *start,
+		                  int del_count, OP* insert)
+
+=for hackers
+Found in file op.c
+
+=item OP_TYPE_IS
+X<OP_TYPE_IS>
+
+Returns true if the given OP is not a C<NULL> pointer
+and if it is of the given type.
+
+The negation of this macro, C<OP_TYPE_ISNT> is also available
+as well as C<OP_TYPE_IS_NN> and C<OP_TYPE_ISNT_NN> which elide
+the NULL pointer check.
+
+	bool	OP_TYPE_IS(OP *o, Optype type)
+
+=for hackers
+Found in file op.h
+
+=item OP_TYPE_IS_OR_WAS
+X<OP_TYPE_IS_OR_WAS>
+
+Returns true if the given OP is not a NULL pointer and
+if it is of the given type or used to be before being
+replaced by an OP of type OP_NULL.
+
+The negation of this macro, C<OP_TYPE_ISNT_AND_WASNT>
+is also available as well as C<OP_TYPE_IS_OR_WAS_NN>
+and C<OP_TYPE_ISNT_AND_WASNT_NN> which elide
+the C<NULL> pointer check.
+
+	bool	OP_TYPE_IS_OR_WAS(OP *o, Optype type)
+
+=for hackers
+Found in file op.h
+
+=item rv2cv_op_cv
+X<rv2cv_op_cv>
+
+Examines an op, which is expected to identify a subroutine at runtime,
+and attempts to determine at compile time which subroutine it identifies.
+This is normally used during Perl compilation to determine whether
+a prototype can be applied to a function call.  C<cvop> is the op
+being considered, normally an C<rv2cv> op.  A pointer to the identified
+subroutine is returned, if it could be determined statically, and a null
+pointer is returned if it was not possible to determine statically.
+
+Currently, the subroutine can be identified statically if the RV that the
+C<rv2cv> is to operate on is provided by a suitable C<gv> or C<const> op.
+A C<gv> op is suitable if the GV's CV slot is populated.  A C<const> op is
+suitable if the constant value must be an RV pointing to a CV.  Details of
+this process may change in future versions of Perl.  If the C<rv2cv> op
+has the C<OPpENTERSUB_AMPER> flag set then no attempt is made to identify
+the subroutine statically: this flag is used to suppress compile-time
+magic on a subroutine call, forcing it to use default runtime behaviour.
+
+If C<flags> has the bit C<RV2CVOPCV_MARK_EARLY> set, then the handling
+of a GV reference is modified.  If a GV was examined and its CV slot was
+found to be empty, then the C<gv> op has the C<OPpEARLY_CV> flag set.
+If the op is not optimised away, and the CV slot is later populated with
+a subroutine having a prototype, that flag eventually triggers the warning
+"called too early to check prototype".
+
+If C<flags> has the bit C<RV2CVOPCV_RETURN_NAME_GV> set, then instead
+of returning a pointer to the subroutine it returns a pointer to the
+GV giving the most appropriate name for the subroutine in this context.
+Normally this is just the C<CvGV> of the subroutine, but for an anonymous
+(C<CvANON>) subroutine that is referenced through a GV it will be the
+referencing GV.  The resulting C<GV*> is cast to C<CV*> to be returned.
+A null pointer is returned as usual if there is no statically-determinable
+subroutine.
+
+	CV *	rv2cv_op_cv(OP *cvop, U32 flags)
+
+=for hackers
+Found in file op.c
+
+
+=back
+
+=head1 Pack and Unpack
+
+=over 8
+
+=item packlist
+X<packlist>
+
+The engine implementing C<pack()> Perl function.
+
+	void	packlist(SV *cat, const char *pat,
+		         const char *patend, SV **beglist,
+		         SV **endlist)
+
+=for hackers
+Found in file pp_pack.c
+
+=item unpackstring
+X<unpackstring>
+
+The engine implementing the C<unpack()> Perl function.
+
+Using the template C<pat..patend>, this function unpacks the string
+C<s..strend> into a number of mortal SVs, which it pushes onto the perl
+argument (C<@_>) stack (so you will need to issue a C<PUTBACK> before and
+C<SPAGAIN> after the call to this function).  It returns the number of
+pushed elements.
+
+The C<strend> and C<patend> pointers should point to the byte following the
+last character of each string.
+
+Although this function returns its values on the perl argument stack, it
+doesn't take any parameters from that stack (and thus in particular
+there's no need to do a C<PUSHMARK> before calling it, unlike L</call_pv> for
+example).
+
+	I32	unpackstring(const char *pat,
+		             const char *patend, const char *s,
+		             const char *strend, U32 flags)
+
+=for hackers
+Found in file pp_pack.c
+
+
+=back
+
+=head1 Pad Data Structures
+
+=over 8
+
+=item CvPADLIST
+X<CvPADLIST>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+CV's can have CvPADLIST(cv) set to point to a PADLIST.  This is the CV's
+scratchpad, which stores lexical variables and opcode temporary and
+per-thread values.
+
+For these purposes "formats" are a kind-of CV; eval""s are too (except they're
+not callable at will and are always thrown away after the eval"" is done
+executing).  Require'd files are simply evals without any outer lexical
+scope.
+
+XSUBs do not have a C<CvPADLIST>.  C<dXSTARG> fetches values from C<PL_curpad>,
+but that is really the callers pad (a slot of which is allocated by
+every entersub). Do not get or set C<CvPADLIST> if a CV is an XSUB (as
+determined by C<CvISXSUB()>), C<CvPADLIST> slot is reused for a different
+internal purpose in XSUBs.
+
+The PADLIST has a C array where pads are stored.
+
+The 0th entry of the PADLIST is a PADNAMELIST
+which represents the "names" or rather
+the "static type information" for lexicals.  The individual elements of a
+PADNAMELIST are PADNAMEs.  Future
+refactorings might stop the PADNAMELIST from being stored in the PADLIST's
+array, so don't rely on it.  See L</PadlistNAMES>.
+
+The CvDEPTH'th entry of a PADLIST is a PAD (an AV) which is the stack frame
+at that depth of recursion into the CV.  The 0th slot of a frame AV is an
+AV which is C<@_>.  Other entries are storage for variables and op targets.
+
+Iterating over the PADNAMELIST iterates over all possible pad
+items.  Pad slots for targets (C<SVs_PADTMP>)
+and GVs end up having &PL_padname_undef "names", while slots for constants 
+have C<&PL_padname_const> "names" (see C<L</pad_alloc>>).  That
+C<&PL_padname_undef>
+and C<&PL_padname_const> are used is an implementation detail subject to
+change.  To test for them, use C<!PadnamePV(name)> and
+S<C<PadnamePV(name) && !PadnameLEN(name)>>, respectively.
+
+Only C<my>/C<our> variable slots get valid names.
+The rest are op targets/GVs/constants which are statically allocated
+or resolved at compile time.  These don't have names by which they
+can be looked up from Perl code at run time through eval"" the way
+C<my>/C<our> variables can be.  Since they can't be looked up by "name"
+but only by their index allocated at compile time (which is usually
+in C<PL_op->op_targ>), wasting a name SV for them doesn't make sense.
+
+The pad names in the PADNAMELIST have their PV holding the name of
+the variable.  The C<COP_SEQ_RANGE_LOW> and C<_HIGH> fields form a range
+(low+1..high inclusive) of cop_seq numbers for which the name is
+valid.  During compilation, these fields may hold the special value
+PERL_PADSEQ_INTRO to indicate various stages:
+
+ COP_SEQ_RANGE_LOW        _HIGH
+ -----------------        -----
+ PERL_PADSEQ_INTRO            0   variable not yet introduced:
+                                  { my ($x
+ valid-seq#   PERL_PADSEQ_INTRO   variable in scope:
+                                  { my ($x)
+ valid-seq#          valid-seq#   compilation of scope complete:
+                                  { my ($x) }
+
+For typed lexicals C<PadnameTYPE> points at the type stash.  For C<our>
+lexicals, C<PadnameOURSTASH> points at the stash of the associated global (so
+that duplicate C<our> declarations in the same package can be detected).
+C<PadnameGEN> is sometimes used to store the generation number during
+compilation.
+
+If C<PadnameOUTER> is set on the pad name, then that slot in the frame AV
+is a REFCNT'ed reference to a lexical from "outside".  Such entries
+are sometimes referred to as 'fake'.  In this case, the name does not
+use 'low' and 'high' to store a cop_seq range, since it is in scope
+throughout.  Instead 'high' stores some flags containing info about
+the real lexical (is it declared in an anon, and is it capable of being
+instantiated multiple times?), and for fake ANONs, 'low' contains the index
+within the parent's pad where the lexical's value is stored, to make
+cloning quicker.
+
+If the 'name' is C<&> the corresponding entry in the PAD
+is a CV representing a possible closure.
+
+Note that formats are treated as anon subs, and are cloned each time
+write is called (if necessary).
+
+The flag C<SVs_PADSTALE> is cleared on lexicals each time the C<my()> is executed,
+and set on scope exit.  This allows the
+C<"Variable $x is not available"> warning
+to be generated in evals, such as 
+
+    { my $x = 1; sub f { eval '$x'} } f();
+
+For state vars, C<SVs_PADSTALE> is overloaded to mean 'not yet initialised',
+but this internal state is stored in a separate pad entry.
+
+	PADLIST * CvPADLIST(CV *cv)
+
+=for hackers
+Found in file pad.c
+
+=item pad_add_name_pvs
+X<pad_add_name_pvs>
+
+Exactly like L</pad_add_name_pvn>, but takes a C<NUL>-terminated literal string
+instead of a string/length pair.
+
+	PADOFFSET pad_add_name_pvs(const char *name, U32 flags,
+	                           HV *typestash, HV *ourstash)
+
+=for hackers
+Found in file pad.h
+
+=item PadARRAY
+X<PadARRAY>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+The C array of pad entries.
+
+	SV **	PadARRAY(PAD pad)
+
+=for hackers
+Found in file pad.h
+
+=item pad_findmy_pvs
+X<pad_findmy_pvs>
+
+Exactly like L</pad_findmy_pvn>, but takes a C<NUL>-terminated literal string
+instead of a string/length pair.
+
+	PADOFFSET pad_findmy_pvs(const char *name, U32 flags)
+
+=for hackers
+Found in file pad.h
+
+=item PadlistARRAY
+X<PadlistARRAY>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+The C array of a padlist, containing the pads.  Only subscript it with
+numbers >= 1, as the 0th entry is not guaranteed to remain usable.
+
+	PAD **	PadlistARRAY(PADLIST padlist)
+
+=for hackers
+Found in file pad.h
+
+=item PadlistMAX
+X<PadlistMAX>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+The index of the last allocated space in the padlist.  Note that the last
+pad may be in an earlier slot.  Any entries following it will be C<NULL> in
+that case.
+
+	SSize_t	PadlistMAX(PADLIST padlist)
+
+=for hackers
+Found in file pad.h
+
+=item PadlistNAMES
+X<PadlistNAMES>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+The names associated with pad entries.
+
+	PADNAMELIST * PadlistNAMES(PADLIST padlist)
+
+=for hackers
+Found in file pad.h
+
+=item PadlistNAMESARRAY
+X<PadlistNAMESARRAY>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+The C array of pad names.
+
+	PADNAME ** PadlistNAMESARRAY(PADLIST padlist)
+
+=for hackers
+Found in file pad.h
+
+=item PadlistNAMESMAX
+X<PadlistNAMESMAX>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+The index of the last pad name.
+
+	SSize_t	PadlistNAMESMAX(PADLIST padlist)
+
+=for hackers
+Found in file pad.h
+
+=item PadlistREFCNT
+X<PadlistREFCNT>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+The reference count of the padlist.  Currently this is always 1.
+
+	U32	PadlistREFCNT(PADLIST padlist)
+
+=for hackers
+Found in file pad.h
+
+=item PadMAX
+X<PadMAX>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+The index of the last pad entry.
+
+	SSize_t	PadMAX(PAD pad)
+
+=for hackers
+Found in file pad.h
+
+=item PadnameLEN
+X<PadnameLEN>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+The length of the name.
+
+	STRLEN	PadnameLEN(PADNAME pn)
+
+=for hackers
+Found in file pad.h
+
+=item PadnamelistARRAY
+X<PadnamelistARRAY>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+The C array of pad names.
+
+	PADNAME ** PadnamelistARRAY(PADNAMELIST pnl)
+
+=for hackers
+Found in file pad.h
+
+=item PadnamelistMAX
+X<PadnamelistMAX>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+The index of the last pad name.
+
+	SSize_t	PadnamelistMAX(PADNAMELIST pnl)
+
+=for hackers
+Found in file pad.h
+
+=item PadnamelistREFCNT
+X<PadnamelistREFCNT>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+The reference count of the pad name list.
+
+	SSize_t	PadnamelistREFCNT(PADNAMELIST pnl)
+
+=for hackers
+Found in file pad.h
+
+=item PadnamelistREFCNT_dec
+X<PadnamelistREFCNT_dec>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Lowers the reference count of the pad name list.
+
+	void	PadnamelistREFCNT_dec(PADNAMELIST pnl)
+
+=for hackers
+Found in file pad.h
+
+=item PadnamePV
+X<PadnamePV>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+The name stored in the pad name struct.  This returns C<NULL> for a target
+slot.
+
+	char *	PadnamePV(PADNAME pn)
+
+=for hackers
+Found in file pad.h
+
+=item PadnameREFCNT
+X<PadnameREFCNT>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+The reference count of the pad name.
+
+	SSize_t	PadnameREFCNT(PADNAME pn)
+
+=for hackers
+Found in file pad.h
+
+=item PadnameREFCNT_dec
+X<PadnameREFCNT_dec>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Lowers the reference count of the pad name.
+
+
+	void	PadnameREFCNT_dec(PADNAME pn)
+
+=for hackers
+Found in file pad.h
+
+=item PadnameSV
+X<PadnameSV>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Returns the pad name as a mortal SV.
+
+	SV *	PadnameSV(PADNAME pn)
+
+=for hackers
+Found in file pad.h
+
+=item PadnameUTF8
+X<PadnameUTF8>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Whether PadnamePV is in UTF-8.  Currently, this is always true.
+
+	bool	PadnameUTF8(PADNAME pn)
+
+=for hackers
+Found in file pad.h
+
+=item pad_new
+X<pad_new>
+
+Create a new padlist, updating the global variables for the
+currently-compiling padlist to point to the new padlist.  The following
+flags can be OR'ed together:
+
+    padnew_CLONE	this pad is for a cloned CV
+    padnew_SAVE		save old globals on the save stack
+    padnew_SAVESUB	also save extra stuff for start of sub
+
+	PADLIST * pad_new(int flags)
+
+=for hackers
+Found in file pad.c
+
+=item PL_comppad
+X<PL_comppad>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+During compilation, this points to the array containing the values
+part of the pad for the currently-compiling code.  (At runtime a CV may
+have many such value arrays; at compile time just one is constructed.)
+At runtime, this points to the array containing the currently-relevant
+values for the pad for the currently-executing code.
+
+=for hackers
+Found in file pad.c
+
+=item PL_comppad_name
+X<PL_comppad_name>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+During compilation, this points to the array containing the names part
+of the pad for the currently-compiling code.
+
+=for hackers
+Found in file pad.c
+
+=item PL_curpad
+X<PL_curpad>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Points directly to the body of the L</PL_comppad> array.
+(I.e., this is C<PAD_ARRAY(PL_comppad)>.)
+
+=for hackers
+Found in file pad.c
+
+
+=back
+
+=head1 Per-Interpreter Variables
+
+=over 8
+
+=item PL_modglobal
+X<PL_modglobal>
+
+C<PL_modglobal> is a general purpose, interpreter global HV for use by
+extensions that need to keep information on a per-interpreter basis.
+In a pinch, it can also be used as a symbol table for extensions
+to share data among each other.  It is a good idea to use keys
+prefixed by the package name of the extension that owns the data.
+
+	HV*	PL_modglobal
+
+=for hackers
+Found in file intrpvar.h
+
+=item PL_na
+X<PL_na>
+
+A convenience variable which is typically used with C<SvPV> when one
+doesn't care about the length of the string.  It is usually more efficient
+to either declare a local variable and use that instead or to use the
+C<SvPV_nolen> macro.
+
+	STRLEN	PL_na
+
+=for hackers
+Found in file intrpvar.h
+
+=item PL_opfreehook
+X<PL_opfreehook>
+
+When non-C<NULL>, the function pointed by this variable will be called each time an OP is freed with the corresponding OP as the argument.
+This allows extensions to free any extra attribute they have locally attached to an OP.
+It is also assured to first fire for the parent OP and then for its kids.
+
+When you replace this variable, it is considered a good practice to store the possibly previously installed hook and that you recall it inside your own.
+
+	Perl_ophook_t	PL_opfreehook
+
+=for hackers
+Found in file intrpvar.h
+
+=item PL_peepp
+X<PL_peepp>
+
+Pointer to the per-subroutine peephole optimiser.  This is a function
+that gets called at the end of compilation of a Perl subroutine (or
+equivalently independent piece of Perl code) to perform fixups of
+some ops and to perform small-scale optimisations.  The function is
+called once for each subroutine that is compiled, and is passed, as sole
+parameter, a pointer to the op that is the entry point to the subroutine.
+It modifies the op tree in place.
+
+The peephole optimiser should never be completely replaced.  Rather,
+add code to it by wrapping the existing optimiser.  The basic way to do
+this can be seen in L<perlguts/Compile pass 3: peephole optimization>.
+If the new code wishes to operate on ops throughout the subroutine's
+structure, rather than just at the top level, it is likely to be more
+convenient to wrap the L</PL_rpeepp> hook.
+
+	peep_t	PL_peepp
+
+=for hackers
+Found in file intrpvar.h
+
+=item PL_rpeepp
+X<PL_rpeepp>
+
+Pointer to the recursive peephole optimiser.  This is a function
+that gets called at the end of compilation of a Perl subroutine (or
+equivalently independent piece of Perl code) to perform fixups of some
+ops and to perform small-scale optimisations.  The function is called
+once for each chain of ops linked through their C<op_next> fields;
+it is recursively called to handle each side chain.  It is passed, as
+sole parameter, a pointer to the op that is at the head of the chain.
+It modifies the op tree in place.
+
+The peephole optimiser should never be completely replaced.  Rather,
+add code to it by wrapping the existing optimiser.  The basic way to do
+this can be seen in L<perlguts/Compile pass 3: peephole optimization>.
+If the new code wishes to operate only on ops at a subroutine's top level,
+rather than throughout the structure, it is likely to be more convenient
+to wrap the L</PL_peepp> hook.
+
+	peep_t	PL_rpeepp
+
+=for hackers
+Found in file intrpvar.h
+
+=item PL_sv_no
+X<PL_sv_no>
+
+This is the C<false> SV.  See C<L</PL_sv_yes>>.  Always refer to this as
+C<&PL_sv_no>.
+
+	SV	PL_sv_no
+
+=for hackers
+Found in file intrpvar.h
+
+=item PL_sv_undef
+X<PL_sv_undef>
+
+This is the C<undef> SV.  Always refer to this as C<&PL_sv_undef>.
+
+	SV	PL_sv_undef
+
+=for hackers
+Found in file intrpvar.h
+
+=item PL_sv_yes
+X<PL_sv_yes>
+
+This is the C<true> SV.  See C<L</PL_sv_no>>.  Always refer to this as
+C<&PL_sv_yes>.
+
+	SV	PL_sv_yes
+
+=for hackers
+Found in file intrpvar.h
+
+
+=back
+
+=head1 REGEXP Functions
+
+=over 8
+
+=item SvRX
+X<SvRX>
+
+Convenience macro to get the REGEXP from a SV.  This is approximately
+equivalent to the following snippet:
+
+    if (SvMAGICAL(sv))
+        mg_get(sv);
+    if (SvROK(sv))
+        sv = MUTABLE_SV(SvRV(sv));
+    if (SvTYPE(sv) == SVt_REGEXP)
+        return (REGEXP*) sv;
+
+C<NULL> will be returned if a REGEXP* is not found.
+
+	REGEXP * SvRX(SV *sv)
+
+=for hackers
+Found in file regexp.h
+
+=item SvRXOK
+X<SvRXOK>
+
+Returns a boolean indicating whether the SV (or the one it references)
+is a REGEXP.
+
+If you want to do something with the REGEXP* later use SvRX instead
+and check for NULL.
+
+	bool	SvRXOK(SV* sv)
+
+=for hackers
+Found in file regexp.h
+
+
+=back
+
+=head1 Stack Manipulation Macros
+
+=over 8
+
+=item dMARK
+X<dMARK>
+
+Declare a stack marker variable, C<mark>, for the XSUB.  See C<L</MARK>> and
+C<L</dORIGMARK>>.
+
+		dMARK;
+
+=for hackers
+Found in file pp.h
+
+=item dORIGMARK
+X<dORIGMARK>
+
+Saves the original stack mark for the XSUB.  See C<L</ORIGMARK>>.
+
+		dORIGMARK;
+
+=for hackers
+Found in file pp.h
+
+=item dSP
+X<dSP>
+
+Declares a local copy of perl's stack pointer for the XSUB, available via
+the C<SP> macro.  See C<L</SP>>.
+
+		dSP;
+
+=for hackers
+Found in file pp.h
+
+=item EXTEND
+X<EXTEND>
+
+Used to extend the argument stack for an XSUB's return values.  Once
+used, guarantees that there is room for at least C<nitems> to be pushed
+onto the stack.
+
+	void	EXTEND(SP, SSize_t nitems)
+
+=for hackers
+Found in file pp.h
+
+=item MARK
+X<MARK>
+
+Stack marker variable for the XSUB.  See C<L</dMARK>>.
+
+=for hackers
+Found in file pp.h
+
+=item mPUSHi
+X<mPUSHi>
+
+Push an integer onto the stack.  The stack must have room for this element.
+Does not use C<TARG>.  See also C<L</PUSHi>>, C<L</mXPUSHi>> and C<L</XPUSHi>>.
+
+	void	mPUSHi(IV iv)
+
+=for hackers
+Found in file pp.h
+
+=item mPUSHn
+X<mPUSHn>
+
+Push a double onto the stack.  The stack must have room for this element.
+Does not use C<TARG>.  See also C<L</PUSHn>>, C<L</mXPUSHn>> and C<L</XPUSHn>>.
+
+	void	mPUSHn(NV nv)
+
+=for hackers
+Found in file pp.h
+
+=item mPUSHp
+X<mPUSHp>
+
+Push a string onto the stack.  The stack must have room for this element.
+The C<len> indicates the length of the string.  Does not use C<TARG>.
+See also C<L</PUSHp>>, C<L</mXPUSHp>> and C<L</XPUSHp>>.
+
+	void	mPUSHp(char* str, STRLEN len)
+
+=for hackers
+Found in file pp.h
+
+=item mPUSHs
+X<mPUSHs>
+
+Push an SV onto the stack and mortalizes the SV.  The stack must have room
+for this element.  Does not use C<TARG>.  See also C<L</PUSHs>> and
+C<L</mXPUSHs>>.
+
+	void	mPUSHs(SV* sv)
+
+=for hackers
+Found in file pp.h
+
+=item mPUSHu
+X<mPUSHu>
+
+Push an unsigned integer onto the stack.  The stack must have room for this
+element.  Does not use C<TARG>.  See also C<L</PUSHu>>, C<L</mXPUSHu>> and
+C<L</XPUSHu>>.
+
+	void	mPUSHu(UV uv)
+
+=for hackers
+Found in file pp.h
+
+=item mXPUSHi
+X<mXPUSHi>
+
+Push an integer onto the stack, extending the stack if necessary.
+Does not use C<TARG>.  See also C<L</XPUSHi>>, C<L</mPUSHi>> and C<L</PUSHi>>.
+
+	void	mXPUSHi(IV iv)
+
+=for hackers
+Found in file pp.h
+
+=item mXPUSHn
+X<mXPUSHn>
+
+Push a double onto the stack, extending the stack if necessary.
+Does not use C<TARG>.  See also C<L</XPUSHn>>, C<L</mPUSHn>> and C<L</PUSHn>>.
+
+	void	mXPUSHn(NV nv)
+
+=for hackers
+Found in file pp.h
+
+=item mXPUSHp
+X<mXPUSHp>
+
+Push a string onto the stack, extending the stack if necessary.  The C<len>
+indicates the length of the string.  Does not use C<TARG>.  See also
+C<L</XPUSHp>>, C<mPUSHp> and C<PUSHp>.
+
+	void	mXPUSHp(char* str, STRLEN len)
+
+=for hackers
+Found in file pp.h
+
+=item mXPUSHs
+X<mXPUSHs>
+
+Push an SV onto the stack, extending the stack if necessary and mortalizes
+the SV.  Does not use C<TARG>.  See also C<L</XPUSHs>> and C<L</mPUSHs>>.
+
+	void	mXPUSHs(SV* sv)
+
+=for hackers
+Found in file pp.h
+
+=item mXPUSHu
+X<mXPUSHu>
+
+Push an unsigned integer onto the stack, extending the stack if necessary.
+Does not use C<TARG>.  See also C<L</XPUSHu>>, C<L</mPUSHu>> and C<L</PUSHu>>.
+
+	void	mXPUSHu(UV uv)
+
+=for hackers
+Found in file pp.h
+
+=item ORIGMARK
+X<ORIGMARK>
+
+The original stack mark for the XSUB.  See C<L</dORIGMARK>>.
+
+=for hackers
+Found in file pp.h
+
+=item POPi
+X<POPi>
+
+Pops an integer off the stack.
+
+	IV	POPi
+
+=for hackers
+Found in file pp.h
+
+=item POPl
+X<POPl>
+
+Pops a long off the stack.
+
+	long	POPl
+
+=for hackers
+Found in file pp.h
+
+=item POPn
+X<POPn>
+
+Pops a double off the stack.
+
+	NV	POPn
+
+=for hackers
+Found in file pp.h
+
+=item POPp
+X<POPp>
+
+Pops a string off the stack.
+
+	char*	POPp
+
+=for hackers
+Found in file pp.h
+
+=item POPpbytex
+X<POPpbytex>
+
+Pops a string off the stack which must consist of bytes i.e. characters < 256.
+
+	char*	POPpbytex
+
+=for hackers
+Found in file pp.h
+
+=item POPpx
+X<POPpx>
+
+Pops a string off the stack.  Identical to POPp.  There are two names for
+historical reasons.
+
+	char*	POPpx
+
+=for hackers
+Found in file pp.h
+
+=item POPs
+X<POPs>
+
+Pops an SV off the stack.
+
+	SV*	POPs
+
+=for hackers
+Found in file pp.h
+
+=item POPu
+X<POPu>
+
+Pops an unsigned integer off the stack.
+
+	UV	POPu
+
+=for hackers
+Found in file pp.h
+
+=item POPul
+X<POPul>
+
+Pops an unsigned long off the stack.
+
+	long	POPul
+
+=for hackers
+Found in file pp.h
+
+=item PUSHi
+X<PUSHi>
+
+Push an integer onto the stack.  The stack must have room for this element.
+Handles 'set' magic.  Uses C<TARG>, so C<dTARGET> or C<dXSTARG> should be
+called to declare it.  Do not call multiple C<TARG>-oriented macros to 
+return lists from XSUB's - see C<L</mPUSHi>> instead.  See also C<L</XPUSHi>>
+and C<L</mXPUSHi>>.
+
+	void	PUSHi(IV iv)
+
+=for hackers
+Found in file pp.h
+
+=item PUSHMARK
+X<PUSHMARK>
+
+Opening bracket for arguments on a callback.  See C<L</PUTBACK>> and
+L<perlcall>.
+
+	void	PUSHMARK(SP)
+
+=for hackers
+Found in file pp.h
+
+=item PUSHmortal
+X<PUSHmortal>
+
+Push a new mortal SV onto the stack.  The stack must have room for this
+element.  Does not use C<TARG>.  See also C<L</PUSHs>>, C<L</XPUSHmortal>> and
+C<L</XPUSHs>>.
+
+	void	PUSHmortal()
+
+=for hackers
+Found in file pp.h
+
+=item PUSHn
+X<PUSHn>
+
+Push a double onto the stack.  The stack must have room for this element.
+Handles 'set' magic.  Uses C<TARG>, so C<dTARGET> or C<dXSTARG> should be
+called to declare it.  Do not call multiple C<TARG>-oriented macros to
+return lists from XSUB's - see C<L</mPUSHn>> instead.  See also C<L</XPUSHn>>
+and C<L</mXPUSHn>>.
+
+	void	PUSHn(NV nv)
+
+=for hackers
+Found in file pp.h
+
+=item PUSHp
+X<PUSHp>
+
+Push a string onto the stack.  The stack must have room for this element.
+The C<len> indicates the length of the string.  Handles 'set' magic.  Uses
+C<TARG>, so C<dTARGET> or C<dXSTARG> should be called to declare it.  Do not
+call multiple C<TARG>-oriented macros to return lists from XSUB's - see
+C<L</mPUSHp>> instead.  See also C<L</XPUSHp>> and C<L</mXPUSHp>>.
+
+	void	PUSHp(char* str, STRLEN len)
+
+=for hackers
+Found in file pp.h
+
+=item PUSHs
+X<PUSHs>
+
+Push an SV onto the stack.  The stack must have room for this element.
+Does not handle 'set' magic.  Does not use C<TARG>.  See also
+C<L</PUSHmortal>>, C<L</XPUSHs>>, and C<L</XPUSHmortal>>.
+
+	void	PUSHs(SV* sv)
+
+=for hackers
+Found in file pp.h
+
+=item PUSHu
+X<PUSHu>
+
+Push an unsigned integer onto the stack.  The stack must have room for this
+element.  Handles 'set' magic.  Uses C<TARG>, so C<dTARGET> or C<dXSTARG>
+should be called to declare it.  Do not call multiple C<TARG>-oriented
+macros to return lists from XSUB's - see C<L</mPUSHu>> instead.  See also
+C<L</XPUSHu>> and C<L</mXPUSHu>>.
+
+	void	PUSHu(UV uv)
+
+=for hackers
+Found in file pp.h
+
+=item PUTBACK
+X<PUTBACK>
+
+Closing bracket for XSUB arguments.  This is usually handled by C<xsubpp>.
+See C<L</PUSHMARK>> and L<perlcall> for other uses.
+
+		PUTBACK;
+
+=for hackers
+Found in file pp.h
+
+=item SP
+X<SP>
+
+Stack pointer.  This is usually handled by C<xsubpp>.  See C<L</dSP>> and
+C<SPAGAIN>.
+
+=for hackers
+Found in file pp.h
+
+=item SPAGAIN
+X<SPAGAIN>
+
+Refetch the stack pointer.  Used after a callback.  See L<perlcall>.
+
+		SPAGAIN;
+
+=for hackers
+Found in file pp.h
+
+=item XPUSHi
+X<XPUSHi>
+
+Push an integer onto the stack, extending the stack if necessary.  Handles
+'set' magic.  Uses C<TARG>, so C<dTARGET> or C<dXSTARG> should be called to
+declare it.  Do not call multiple C<TARG>-oriented macros to return lists
+from XSUB's - see C<L</mXPUSHi>> instead.  See also C<L</PUSHi>> and
+C<L</mPUSHi>>.
+
+	void	XPUSHi(IV iv)
+
+=for hackers
+Found in file pp.h
+
+=item XPUSHmortal
+X<XPUSHmortal>
+
+Push a new mortal SV onto the stack, extending the stack if necessary.
+Does not use C<TARG>.  See also C<L</XPUSHs>>, C<L</PUSHmortal>> and
+C<L</PUSHs>>.
+
+	void	XPUSHmortal()
+
+=for hackers
+Found in file pp.h
+
+=item XPUSHn
+X<XPUSHn>
+
+Push a double onto the stack, extending the stack if necessary.  Handles
+'set' magic.  Uses C<TARG>, so C<dTARGET> or C<dXSTARG> should be called to
+declare it.  Do not call multiple C<TARG>-oriented macros to return lists
+from XSUB's - see C<L</mXPUSHn>> instead.  See also C<L</PUSHn>> and
+C<L</mPUSHn>>.
+
+	void	XPUSHn(NV nv)
+
+=for hackers
+Found in file pp.h
+
+=item XPUSHp
+X<XPUSHp>
+
+Push a string onto the stack, extending the stack if necessary.  The C<len>
+indicates the length of the string.  Handles 'set' magic.  Uses C<TARG>, so
+C<dTARGET> or C<dXSTARG> should be called to declare it.  Do not call
+multiple C<TARG>-oriented macros to return lists from XSUB's - see
+C<L</mXPUSHp>> instead.  See also C<L</PUSHp>> and C<L</mPUSHp>>.
+
+	void	XPUSHp(char* str, STRLEN len)
+
+=for hackers
+Found in file pp.h
+
+=item XPUSHs
+X<XPUSHs>
+
+Push an SV onto the stack, extending the stack if necessary.  Does not
+handle 'set' magic.  Does not use C<TARG>.  See also C<L</XPUSHmortal>>,
+C<PUSHs> and C<PUSHmortal>.
+
+	void	XPUSHs(SV* sv)
+
+=for hackers
+Found in file pp.h
+
+=item XPUSHu
+X<XPUSHu>
+
+Push an unsigned integer onto the stack, extending the stack if necessary.
+Handles 'set' magic.  Uses C<TARG>, so C<dTARGET> or C<dXSTARG> should be
+called to declare it.  Do not call multiple C<TARG>-oriented macros to
+return lists from XSUB's - see C<L</mXPUSHu>> instead.  See also C<L</PUSHu>> and
+C<L</mPUSHu>>.
+
+	void	XPUSHu(UV uv)
+
+=for hackers
+Found in file pp.h
+
+=item XSRETURN
+X<XSRETURN>
+
+Return from XSUB, indicating number of items on the stack.  This is usually
+handled by C<xsubpp>.
+
+	void	XSRETURN(int nitems)
+
+=for hackers
+Found in file XSUB.h
+
+=item XSRETURN_EMPTY
+X<XSRETURN_EMPTY>
+
+Return an empty list from an XSUB immediately.
+
+		XSRETURN_EMPTY;
+
+=for hackers
+Found in file XSUB.h
+
+=item XSRETURN_IV
+X<XSRETURN_IV>
+
+Return an integer from an XSUB immediately.  Uses C<XST_mIV>.
+
+	void	XSRETURN_IV(IV iv)
+
+=for hackers
+Found in file XSUB.h
+
+=item XSRETURN_NO
+X<XSRETURN_NO>
+
+Return C<&PL_sv_no> from an XSUB immediately.  Uses C<XST_mNO>.
+
+		XSRETURN_NO;
+
+=for hackers
+Found in file XSUB.h
+
+=item XSRETURN_NV
+X<XSRETURN_NV>
+
+Return a double from an XSUB immediately.  Uses C<XST_mNV>.
+
+	void	XSRETURN_NV(NV nv)
+
+=for hackers
+Found in file XSUB.h
+
+=item XSRETURN_PV
+X<XSRETURN_PV>
+
+Return a copy of a string from an XSUB immediately.  Uses C<XST_mPV>.
+
+	void	XSRETURN_PV(char* str)
+
+=for hackers
+Found in file XSUB.h
+
+=item XSRETURN_UNDEF
+X<XSRETURN_UNDEF>
+
+Return C<&PL_sv_undef> from an XSUB immediately.  Uses C<XST_mUNDEF>.
+
+		XSRETURN_UNDEF;
+
+=for hackers
+Found in file XSUB.h
+
+=item XSRETURN_UV
+X<XSRETURN_UV>
+
+Return an integer from an XSUB immediately.  Uses C<XST_mUV>.
+
+	void	XSRETURN_UV(IV uv)
+
+=for hackers
+Found in file XSUB.h
+
+=item XSRETURN_YES
+X<XSRETURN_YES>
+
+Return C<&PL_sv_yes> from an XSUB immediately.  Uses C<XST_mYES>.
+
+		XSRETURN_YES;
+
+=for hackers
+Found in file XSUB.h
+
+=item XST_mIV
+X<XST_mIV>
+
+Place an integer into the specified position C<pos> on the stack.  The
+value is stored in a new mortal SV.
+
+	void	XST_mIV(int pos, IV iv)
+
+=for hackers
+Found in file XSUB.h
+
+=item XST_mNO
+X<XST_mNO>
+
+Place C<&PL_sv_no> into the specified position C<pos> on the
+stack.
+
+	void	XST_mNO(int pos)
+
+=for hackers
+Found in file XSUB.h
+
+=item XST_mNV
+X<XST_mNV>
+
+Place a double into the specified position C<pos> on the stack.  The value
+is stored in a new mortal SV.
+
+	void	XST_mNV(int pos, NV nv)
+
+=for hackers
+Found in file XSUB.h
+
+=item XST_mPV
+X<XST_mPV>
+
+Place a copy of a string into the specified position C<pos> on the stack. 
+The value is stored in a new mortal SV.
+
+	void	XST_mPV(int pos, char* str)
+
+=for hackers
+Found in file XSUB.h
+
+=item XST_mUNDEF
+X<XST_mUNDEF>
+
+Place C<&PL_sv_undef> into the specified position C<pos> on the
+stack.
+
+	void	XST_mUNDEF(int pos)
+
+=for hackers
+Found in file XSUB.h
+
+=item XST_mYES
+X<XST_mYES>
+
+Place C<&PL_sv_yes> into the specified position C<pos> on the
+stack.
+
+	void	XST_mYES(int pos)
+
+=for hackers
+Found in file XSUB.h
+
+
+=back
+
+=head1 SV-Body Allocation
+
+=over 8
+
+=item looks_like_number
+X<looks_like_number>
+
+Test if the content of an SV looks like a number (or is a number).
+C<Inf> and C<Infinity> are treated as numbers (so will not issue a
+non-numeric warning), even if your C<atof()> doesn't grok them.  Get-magic is
+ignored.
+
+	I32	looks_like_number(SV *const sv)
+
+=for hackers
+Found in file sv.c
+
+=item newRV_noinc
+X<newRV_noinc>
+
+Creates an RV wrapper for an SV.  The reference count for the original
+SV is B<not> incremented.
+
+	SV*	newRV_noinc(SV *const tmpRef)
+
+=for hackers
+Found in file sv.c
+
+=item newSV
+X<newSV>
+
+Creates a new SV.  A non-zero C<len> parameter indicates the number of
+bytes of preallocated string space the SV should have.  An extra byte for a
+trailing C<NUL> is also reserved.  (C<SvPOK> is not set for the SV even if string
+space is allocated.)  The reference count for the new SV is set to 1.
+
+In 5.9.3, C<newSV()> replaces the older C<NEWSV()> API, and drops the first
+parameter, I<x>, a debug aid which allowed callers to identify themselves.
+This aid has been superseded by a new build option, C<PERL_MEM_LOG> (see
+L<perlhacktips/PERL_MEM_LOG>).  The older API is still there for use in XS
+modules supporting older perls.
+
+	SV*	newSV(const STRLEN len)
+
+=for hackers
+Found in file sv.c
+
+=item newSVhek
+X<newSVhek>
+
+Creates a new SV from the hash key structure.  It will generate scalars that
+point to the shared string table where possible.  Returns a new (undefined)
+SV if C<hek> is NULL.
+
+	SV*	newSVhek(const HEK *const hek)
+
+=for hackers
+Found in file sv.c
+
+=item newSViv
+X<newSViv>
+
+Creates a new SV and copies an integer into it.  The reference count for the
+SV is set to 1.
+
+	SV*	newSViv(const IV i)
+
+=for hackers
+Found in file sv.c
+
+=item newSVnv
+X<newSVnv>
+
+Creates a new SV and copies a floating point value into it.
+The reference count for the SV is set to 1.
+
+	SV*	newSVnv(const NV n)
+
+=for hackers
+Found in file sv.c
+
+=item newSVpv
+X<newSVpv>
+
+Creates a new SV and copies a string (which may contain C<NUL> (C<\0>)
+characters) into it.  The reference count for the
+SV is set to 1.  If C<len> is zero, Perl will compute the length using
+C<strlen()>, (which means if you use this option, that C<s> can't have embedded
+C<NUL> characters and has to have a terminating C<NUL> byte).
+
+For efficiency, consider using C<newSVpvn> instead.
+
+	SV*	newSVpv(const char *const s, const STRLEN len)
+
+=for hackers
+Found in file sv.c
+
+=item newSVpvf
+X<newSVpvf>
+
+Creates a new SV and initializes it with the string formatted like
+C<sv_catpvf>.
+
+	SV*	newSVpvf(const char *const pat, ...)
+
+=for hackers
+Found in file sv.c
+
+=item newSVpvn
+X<newSVpvn>
+
+Creates a new SV and copies a string into it, which may contain C<NUL> characters
+(C<\0>) and other binary data.  The reference count for the SV is set to 1.
+Note that if C<len> is zero, Perl will create a zero length (Perl) string.  You
+are responsible for ensuring that the source buffer is at least
+C<len> bytes long.  If the C<buffer> argument is NULL the new SV will be
+undefined.
+
+	SV*	newSVpvn(const char *const s, const STRLEN len)
+
+=for hackers
+Found in file sv.c
+
+=item newSVpvn_flags
+X<newSVpvn_flags>
+
+Creates a new SV and copies a string (which may contain C<NUL> (C<\0>)
+characters) into it.  The reference count for the
+SV is set to 1.  Note that if C<len> is zero, Perl will create a zero length
+string.  You are responsible for ensuring that the source string is at least
+C<len> bytes long.  If the C<s> argument is NULL the new SV will be undefined.
+Currently the only flag bits accepted are C<SVf_UTF8> and C<SVs_TEMP>.
+If C<SVs_TEMP> is set, then C<sv_2mortal()> is called on the result before
+returning.  If C<SVf_UTF8> is set, C<s>
+is considered to be in UTF-8 and the
+C<SVf_UTF8> flag will be set on the new SV.
+C<newSVpvn_utf8()> is a convenience wrapper for this function, defined as
+
+    #define newSVpvn_utf8(s, len, u)			\
+	newSVpvn_flags((s), (len), (u) ? SVf_UTF8 : 0)
+
+	SV*	newSVpvn_flags(const char *const s,
+		               const STRLEN len,
+		               const U32 flags)
+
+=for hackers
+Found in file sv.c
+
+=item newSVpvn_share
+X<newSVpvn_share>
+
+Creates a new SV with its C<SvPVX_const> pointing to a shared string in the string
+table.  If the string does not already exist in the table, it is
+created first.  Turns on the C<SvIsCOW> flag (or C<READONLY>
+and C<FAKE> in 5.16 and earlier).  If the C<hash> parameter
+is non-zero, that value is used; otherwise the hash is computed.
+The string's hash can later be retrieved from the SV
+with the C<SvSHARED_HASH()> macro.  The idea here is
+that as the string table is used for shared hash keys these strings will have
+C<SvPVX_const == HeKEY> and hash lookup will avoid string compare.
+
+	SV*	newSVpvn_share(const char* s, I32 len, U32 hash)
+
+=for hackers
+Found in file sv.c
+
+=item newSVpvs
+X<newSVpvs>
+
+Like C<newSVpvn>, but takes a C<NUL>-terminated literal string instead of a
+string/length pair.
+
+	SV*	newSVpvs(const char* s)
+
+=for hackers
+Found in file handy.h
+
+=item newSVpvs_flags
+X<newSVpvs_flags>
+
+Like C<newSVpvn_flags>, but takes a C<NUL>-terminated literal string instead of
+a string/length pair.
+
+	SV*	newSVpvs_flags(const char* s, U32 flags)
+
+=for hackers
+Found in file handy.h
+
+=item newSVpv_share
+X<newSVpv_share>
+
+Like C<newSVpvn_share>, but takes a C<NUL>-terminated string instead of a
+string/length pair.
+
+	SV*	newSVpv_share(const char* s, U32 hash)
+
+=for hackers
+Found in file sv.c
+
+=item newSVpvs_share
+X<newSVpvs_share>
+
+Like C<newSVpvn_share>, but takes a C<NUL>-terminated literal string instead of
+a string/length pair and omits the hash parameter.
+
+	SV*	newSVpvs_share(const char* s)
+
+=for hackers
+Found in file handy.h
+
+=item newSVrv
+X<newSVrv>
+
+Creates a new SV for the existing RV, C<rv>, to point to.  If C<rv> is not an
+RV then it will be upgraded to one.  If C<classname> is non-null then the new
+SV will be blessed in the specified package.  The new SV is returned and its
+reference count is 1.  The reference count 1 is owned by C<rv>.
+
+	SV*	newSVrv(SV *const rv,
+		        const char *const classname)
+
+=for hackers
+Found in file sv.c
+
+=item newSVsv
+X<newSVsv>
+
+Creates a new SV which is an exact duplicate of the original SV.
+(Uses C<sv_setsv>.)
+
+	SV*	newSVsv(SV *const old)
+
+=for hackers
+Found in file sv.c
+
+=item newSV_type
+X<newSV_type>
+
+Creates a new SV, of the type specified.  The reference count for the new SV
+is set to 1.
+
+	SV*	newSV_type(const svtype type)
+
+=for hackers
+Found in file sv.c
+
+=item newSVuv
+X<newSVuv>
+
+Creates a new SV and copies an unsigned integer into it.
+The reference count for the SV is set to 1.
+
+	SV*	newSVuv(const UV u)
+
+=for hackers
+Found in file sv.c
+
+=item sv_2bool
+X<sv_2bool>
+
+This macro is only used by C<sv_true()> or its macro equivalent, and only if
+the latter's argument is neither C<SvPOK>, C<SvIOK> nor C<SvNOK>.
+It calls C<sv_2bool_flags> with the C<SV_GMAGIC> flag.
+
+	bool	sv_2bool(SV *const sv)
+
+=for hackers
+Found in file sv.c
+
+=item sv_2bool_flags
+X<sv_2bool_flags>
+
+This function is only used by C<sv_true()> and friends,  and only if
+the latter's argument is neither C<SvPOK>, C<SvIOK> nor C<SvNOK>.  If the flags
+contain C<SV_GMAGIC>, then it does an C<mg_get()> first.
+
+
+	bool	sv_2bool_flags(SV *sv, I32 flags)
+
+=for hackers
+Found in file sv.c
+
+=item sv_2cv
+X<sv_2cv>
+
+Using various gambits, try to get a CV from an SV; in addition, try if
+possible to set C<*st> and C<*gvp> to the stash and GV associated with it.
+The flags in C<lref> are passed to C<gv_fetchsv>.
+
+	CV*	sv_2cv(SV* sv, HV **const st, GV **const gvp,
+		       const I32 lref)
+
+=for hackers
+Found in file sv.c
+
+=item sv_2io
+X<sv_2io>
+
+Using various gambits, try to get an IO from an SV: the IO slot if its a
+GV; or the recursive result if we're an RV; or the IO slot of the symbol
+named after the PV if we're a string.
+
+'Get' magic is ignored on the C<sv> passed in, but will be called on
+C<SvRV(sv)> if C<sv> is an RV.
+
+	IO*	sv_2io(SV *const sv)
+
+=for hackers
+Found in file sv.c
+
+=item sv_2iv_flags
+X<sv_2iv_flags>
+
+Return the integer value of an SV, doing any necessary string
+conversion.  If C<flags> has the C<SV_GMAGIC> bit set, does an C<mg_get()> first.
+Normally used via the C<SvIV(sv)> and C<SvIVx(sv)> macros.
+
+	IV	sv_2iv_flags(SV *const sv, const I32 flags)
+
+=for hackers
+Found in file sv.c
+
+=item sv_2mortal
+X<sv_2mortal>
+
+Marks an existing SV as mortal.  The SV will be destroyed "soon", either
+by an explicit call to C<FREETMPS>, or by an implicit call at places such as
+statement boundaries.  C<SvTEMP()> is turned on which means that the SV's
+string buffer can be "stolen" if this SV is copied.  See also
+C<L</sv_newmortal>> and C<L</sv_mortalcopy>>.
+
+	SV*	sv_2mortal(SV *const sv)
+
+=for hackers
+Found in file sv.c
+
+=item sv_2nv_flags
+X<sv_2nv_flags>
+
+Return the num value of an SV, doing any necessary string or integer
+conversion.  If C<flags> has the C<SV_GMAGIC> bit set, does an C<mg_get()> first.
+Normally used via the C<SvNV(sv)> and C<SvNVx(sv)> macros.
+
+	NV	sv_2nv_flags(SV *const sv, const I32 flags)
+
+=for hackers
+Found in file sv.c
+
+=item sv_2pvbyte
+X<sv_2pvbyte>
+
+Return a pointer to the byte-encoded representation of the SV, and set C<*lp>
+to its length.  May cause the SV to be downgraded from UTF-8 as a
+side-effect.
+
+Usually accessed via the C<SvPVbyte> macro.
+
+	char*	sv_2pvbyte(SV *sv, STRLEN *const lp)
+
+=for hackers
+Found in file sv.c
+
+=item sv_2pvutf8
+X<sv_2pvutf8>
+
+Return a pointer to the UTF-8-encoded representation of the SV, and set C<*lp>
+to its length.  May cause the SV to be upgraded to UTF-8 as a side-effect.
+
+Usually accessed via the C<SvPVutf8> macro.
+
+	char*	sv_2pvutf8(SV *sv, STRLEN *const lp)
+
+=for hackers
+Found in file sv.c
+
+=item sv_2pv_flags
+X<sv_2pv_flags>
+
+Returns a pointer to the string value of an SV, and sets C<*lp> to its length.
+If flags has the C<SV_GMAGIC> bit set, does an C<mg_get()> first.  Coerces C<sv> to a
+string if necessary.  Normally invoked via the C<SvPV_flags> macro.
+C<sv_2pv()> and C<sv_2pv_nomg> usually end up here too.
+
+	char*	sv_2pv_flags(SV *const sv, STRLEN *const lp,
+		             const I32 flags)
+
+=for hackers
+Found in file sv.c
+
+=item sv_2uv_flags
+X<sv_2uv_flags>
+
+Return the unsigned integer value of an SV, doing any necessary string
+conversion.  If C<flags> has the C<SV_GMAGIC> bit set, does an C<mg_get()> first.
+Normally used via the C<SvUV(sv)> and C<SvUVx(sv)> macros.
+
+	UV	sv_2uv_flags(SV *const sv, const I32 flags)
+
+=for hackers
+Found in file sv.c
+
+=item sv_backoff
+X<sv_backoff>
+
+Remove any string offset.  You should normally use the C<SvOOK_off> macro
+wrapper instead.
+
+	void	sv_backoff(SV *const sv)
+
+=for hackers
+Found in file sv.c
+
+=item sv_bless
+X<sv_bless>
+
+Blesses an SV into a specified package.  The SV must be an RV.  The package
+must be designated by its stash (see C<L</gv_stashpv>>).  The reference count
+of the SV is unaffected.
+
+	SV*	sv_bless(SV *const sv, HV *const stash)
+
+=for hackers
+Found in file sv.c
+
+=item sv_catpv
+X<sv_catpv>
+
+Concatenates the C<NUL>-terminated string onto the end of the string which is
+in the SV.
+If the SV has the UTF-8 status set, then the bytes appended should be
+valid UTF-8.  Handles 'get' magic, but not 'set' magic.  See
+C<L</sv_catpv_mg>>.
+
+	void	sv_catpv(SV *const sv, const char* ptr)
+
+=for hackers
+Found in file sv.c
+
+=item sv_catpvf
+X<sv_catpvf>
+
+Processes its arguments like C<sv_catpvfn>, and appends the formatted
+output to an SV.  As with C<sv_catpvfn> called with a non-null C-style
+variable argument list, argument reordering is not supported.
+If the appended data contains "wide" characters
+(including, but not limited to, SVs with a UTF-8 PV formatted with C<%s>,
+and characters >255 formatted with C<%c>), the original SV might get
+upgraded to UTF-8.  Handles 'get' magic, but not 'set' magic.  See
+C<L</sv_catpvf_mg>>.  If the original SV was UTF-8, the pattern should be
+valid UTF-8; if the original SV was bytes, the pattern should be too.
+
+	void	sv_catpvf(SV *const sv, const char *const pat,
+		          ...)
+
+=for hackers
+Found in file sv.c
+
+=item sv_catpvf_mg
+X<sv_catpvf_mg>
+
+Like C<sv_catpvf>, but also handles 'set' magic.
+
+	void	sv_catpvf_mg(SV *const sv,
+		             const char *const pat, ...)
+
+=for hackers
+Found in file sv.c
+
+=item sv_catpvn
+X<sv_catpvn>
+
+Concatenates the string onto the end of the string which is in the SV.
+C<len> indicates number of bytes to copy.  If the SV has the UTF-8
+status set, then the bytes appended should be valid UTF-8.
+Handles 'get' magic, but not 'set' magic.  See C<L</sv_catpvn_mg>>.
+
+	void	sv_catpvn(SV *dsv, const char *sstr, STRLEN len)
+
+=for hackers
+Found in file sv.c
+
+=item sv_catpvn_flags
+X<sv_catpvn_flags>
+
+Concatenates the string onto the end of the string which is in the SV.  The
+C<len> indicates number of bytes to copy.
+
+By default, the string appended is assumed to be valid UTF-8 if the SV has
+the UTF-8 status set, and a string of bytes otherwise.  One can force the
+appended string to be interpreted as UTF-8 by supplying the C<SV_CATUTF8>
+flag, and as bytes by supplying the C<SV_CATBYTES> flag; the SV or the
+string appended will be upgraded to UTF-8 if necessary.
+
+If C<flags> has the C<SV_SMAGIC> bit set, will
+C<mg_set> on C<dsv> afterwards if appropriate.
+C<sv_catpvn> and C<sv_catpvn_nomg> are implemented
+in terms of this function.
+
+	void	sv_catpvn_flags(SV *const dstr,
+		                const char *sstr,
+		                const STRLEN len,
+		                const I32 flags)
+
+=for hackers
+Found in file sv.c
+
+=item sv_catpvs
+X<sv_catpvs>
+
+Like C<sv_catpvn>, but takes a C<NUL>-terminated literal string instead of a
+string/length pair.
+
+	void	sv_catpvs(SV* sv, const char* s)
+
+=for hackers
+Found in file handy.h
+
+=item sv_catpvs_flags
+X<sv_catpvs_flags>
+
+Like C<sv_catpvn_flags>, but takes a C<NUL>-terminated literal string instead
+of a string/length pair.
+
+	void	sv_catpvs_flags(SV* sv, const char* s,
+		                I32 flags)
+
+=for hackers
+Found in file handy.h
+
+=item sv_catpvs_mg
+X<sv_catpvs_mg>
+
+Like C<sv_catpvn_mg>, but takes a C<NUL>-terminated literal string instead of a
+string/length pair.
+
+	void	sv_catpvs_mg(SV* sv, const char* s)
+
+=for hackers
+Found in file handy.h
+
+=item sv_catpvs_nomg
+X<sv_catpvs_nomg>
+
+Like C<sv_catpvn_nomg>, but takes a C<NUL>-terminated literal string instead of
+a string/length pair.
+
+	void	sv_catpvs_nomg(SV* sv, const char* s)
+
+=for hackers
+Found in file handy.h
+
+=item sv_catpv_flags
+X<sv_catpv_flags>
+
+Concatenates the C<NUL>-terminated string onto the end of the string which is
+in the SV.
+If the SV has the UTF-8 status set, then the bytes appended should
+be valid UTF-8.  If C<flags> has the C<SV_SMAGIC> bit set, will C<mg_set>
+on the modified SV if appropriate.
+
+	void	sv_catpv_flags(SV *dstr, const char *sstr,
+		               const I32 flags)
+
+=for hackers
+Found in file sv.c
+
+=item sv_catpv_mg
+X<sv_catpv_mg>
+
+Like C<sv_catpv>, but also handles 'set' magic.
+
+	void	sv_catpv_mg(SV *const sv, const char *const ptr)
+
+=for hackers
+Found in file sv.c
+
+=item sv_catsv
+X<sv_catsv>
+
+Concatenates the string from SV C<ssv> onto the end of the string in SV
+C<dsv>.  If C<ssv> is null, does nothing; otherwise modifies only C<dsv>.
+Handles 'get' magic on both SVs, but no 'set' magic.  See C<L</sv_catsv_mg>>
+and C<L</sv_catsv_nomg>>.
+
+	void	sv_catsv(SV *dstr, SV *sstr)
+
+=for hackers
+Found in file sv.c
+
+=item sv_catsv_flags
+X<sv_catsv_flags>
+
+Concatenates the string from SV C<ssv> onto the end of the string in SV
+C<dsv>.  If C<ssv> is null, does nothing; otherwise modifies only C<dsv>.
+If C<flags> has the C<SV_GMAGIC> bit set, will call C<mg_get> on both SVs if
+appropriate.  If C<flags> has the C<SV_SMAGIC> bit set, C<mg_set> will be called on
+the modified SV afterward, if appropriate.  C<sv_catsv>, C<sv_catsv_nomg>,
+and C<sv_catsv_mg> are implemented in terms of this function.
+
+	void	sv_catsv_flags(SV *const dsv, SV *const ssv,
+		               const I32 flags)
+
+=for hackers
+Found in file sv.c
+
+=item sv_chop
+X<sv_chop>
+
+Efficient removal of characters from the beginning of the string buffer.
+C<SvPOK(sv)>, or at least C<SvPOKp(sv)>, must be true and C<ptr> must be a
+pointer to somewhere inside the string buffer.  C<ptr> becomes the first
+character of the adjusted string.  Uses the C<OOK> hack.  On return, only
+C<SvPOK(sv)> and C<SvPOKp(sv)> among the C<OK> flags will be true.
+
+Beware: after this function returns, C<ptr> and SvPVX_const(sv) may no longer
+refer to the same chunk of data.
+
+The unfortunate similarity of this function's name to that of Perl's C<chop>
+operator is strictly coincidental.  This function works from the left;
+C<chop> works from the right.
+
+	void	sv_chop(SV *const sv, const char *const ptr)
+
+=for hackers
+Found in file sv.c
+
+=item sv_clear
+X<sv_clear>
+
+Clear an SV: call any destructors, free up any memory used by the body,
+and free the body itself.  The SV's head is I<not> freed, although
+its type is set to all 1's so that it won't inadvertently be assumed
+to be live during global destruction etc.
+This function should only be called when C<REFCNT> is zero.  Most of the time
+you'll want to call C<sv_free()> (or its macro wrapper C<SvREFCNT_dec>)
+instead.
+
+	void	sv_clear(SV *const orig_sv)
+
+=for hackers
+Found in file sv.c
+
+=item sv_cmp
+X<sv_cmp>
+
+Compares the strings in two SVs.  Returns -1, 0, or 1 indicating whether the
+string in C<sv1> is less than, equal to, or greater than the string in
+C<sv2>.  Is UTF-8 and S<C<'use bytes'>> aware, handles get magic, and will
+coerce its args to strings if necessary.  See also C<L</sv_cmp_locale>>.
+
+	I32	sv_cmp(SV *const sv1, SV *const sv2)
+
+=for hackers
+Found in file sv.c
+
+=item sv_cmp_flags
+X<sv_cmp_flags>
+
+Compares the strings in two SVs.  Returns -1, 0, or 1 indicating whether the
+string in C<sv1> is less than, equal to, or greater than the string in
+C<sv2>.  Is UTF-8 and S<C<'use bytes'>> aware and will coerce its args to strings
+if necessary.  If the flags has the C<SV_GMAGIC> bit set, it handles get magic.  See
+also C<L</sv_cmp_locale_flags>>.
+
+	I32	sv_cmp_flags(SV *const sv1, SV *const sv2,
+		             const U32 flags)
+
+=for hackers
+Found in file sv.c
+
+=item sv_cmp_locale
+X<sv_cmp_locale>
+
+Compares the strings in two SVs in a locale-aware manner.  Is UTF-8 and
+S<C<'use bytes'>> aware, handles get magic, and will coerce its args to strings
+if necessary.  See also C<L</sv_cmp>>.
+
+	I32	sv_cmp_locale(SV *const sv1, SV *const sv2)
+
+=for hackers
+Found in file sv.c
+
+=item sv_cmp_locale_flags
+X<sv_cmp_locale_flags>
+
+Compares the strings in two SVs in a locale-aware manner.  Is UTF-8 and
+S<C<'use bytes'>> aware and will coerce its args to strings if necessary.  If
+the flags contain C<SV_GMAGIC>, it handles get magic.  See also
+C<L</sv_cmp_flags>>.
+
+	I32	sv_cmp_locale_flags(SV *const sv1,
+		                    SV *const sv2,
+		                    const U32 flags)
+
+=for hackers
+Found in file sv.c
+
+=item sv_collxfrm
+X<sv_collxfrm>
+
+This calls C<sv_collxfrm_flags> with the SV_GMAGIC flag.  See
+C<L</sv_collxfrm_flags>>.
+
+	char*	sv_collxfrm(SV *const sv, STRLEN *const nxp)
+
+=for hackers
+Found in file sv.c
+
+=item sv_collxfrm_flags
+X<sv_collxfrm_flags>
+
+Add Collate Transform magic to an SV if it doesn't already have it.  If the
+flags contain C<SV_GMAGIC>, it handles get-magic.
+
+Any scalar variable may carry C<PERL_MAGIC_collxfrm> magic that contains the
+scalar data of the variable, but transformed to such a format that a normal
+memory comparison can be used to compare the data according to the locale
+settings.
+
+	char*	sv_collxfrm_flags(SV *const sv,
+		                  STRLEN *const nxp,
+		                  I32 const flags)
+
+=for hackers
+Found in file sv.c
+
+=item sv_copypv_flags
+X<sv_copypv_flags>
+
+Implementation of C<sv_copypv> and C<sv_copypv_nomg>.  Calls get magic iff flags
+has the C<SV_GMAGIC> bit set.
+
+	void	sv_copypv_flags(SV *const dsv, SV *const ssv,
+		                const I32 flags)
+
+=for hackers
+Found in file sv.c
+
+=item sv_copypv_nomg
+X<sv_copypv_nomg>
+
+Like C<sv_copypv>, but doesn't invoke get magic first.
+
+	void	sv_copypv_nomg(SV *const dsv, SV *const ssv)
+
+=for hackers
+Found in file sv.c
+
+=item sv_dec
+X<sv_dec>
+
+Auto-decrement of the value in the SV, doing string to numeric conversion
+if necessary.  Handles 'get' magic and operator overloading.
+
+	void	sv_dec(SV *const sv)
+
+=for hackers
+Found in file sv.c
+
+=item sv_dec_nomg
+X<sv_dec_nomg>
+
+Auto-decrement of the value in the SV, doing string to numeric conversion
+if necessary.  Handles operator overloading.  Skips handling 'get' magic.
+
+	void	sv_dec_nomg(SV *const sv)
+
+=for hackers
+Found in file sv.c
+
+=item sv_eq
+X<sv_eq>
+
+Returns a boolean indicating whether the strings in the two SVs are
+identical.  Is UTF-8 and S<C<'use bytes'>> aware, handles get magic, and will
+coerce its args to strings if necessary.
+
+	I32	sv_eq(SV* sv1, SV* sv2)
+
+=for hackers
+Found in file sv.c
+
+=item sv_eq_flags
+X<sv_eq_flags>
+
+Returns a boolean indicating whether the strings in the two SVs are
+identical.  Is UTF-8 and S<C<'use bytes'>> aware and coerces its args to strings
+if necessary.  If the flags has the C<SV_GMAGIC> bit set, it handles get-magic, too.
+
+	I32	sv_eq_flags(SV* sv1, SV* sv2, const U32 flags)
+
+=for hackers
+Found in file sv.c
+
+=item sv_force_normal_flags
+X<sv_force_normal_flags>
+
+Undo various types of fakery on an SV, where fakery means
+"more than" a string: if the PV is a shared string, make
+a private copy; if we're a ref, stop refing; if we're a glob, downgrade to
+an C<xpvmg>; if we're a copy-on-write scalar, this is the on-write time when
+we do the copy, and is also used locally; if this is a
+vstring, drop the vstring magic.  If C<SV_COW_DROP_PV> is set
+then a copy-on-write scalar drops its PV buffer (if any) and becomes
+C<SvPOK_off> rather than making a copy.  (Used where this
+scalar is about to be set to some other value.)  In addition,
+the C<flags> parameter gets passed to C<sv_unref_flags()>
+when unreffing.  C<sv_force_normal> calls this function
+with flags set to 0.
+
+This function is expected to be used to signal to perl that this SV is
+about to be written to, and any extra book-keeping needs to be taken care
+of.  Hence, it croaks on read-only values.
+
+	void	sv_force_normal_flags(SV *const sv,
+		                      const U32 flags)
+
+=for hackers
+Found in file sv.c
+
+=item sv_free
+X<sv_free>
+
+Decrement an SV's reference count, and if it drops to zero, call
+C<sv_clear> to invoke destructors and free up any memory used by
+the body; finally, deallocating the SV's head itself.
+Normally called via a wrapper macro C<SvREFCNT_dec>.
+
+	void	sv_free(SV *const sv)
+
+=for hackers
+Found in file sv.c
+
+=item sv_gets
+X<sv_gets>
+
+Get a line from the filehandle and store it into the SV, optionally
+appending to the currently-stored string.  If C<append> is not 0, the
+line is appended to the SV instead of overwriting it.  C<append> should
+be set to the byte offset that the appended string should start at
+in the SV (typically, C<SvCUR(sv)> is a suitable choice).
+
+	char*	sv_gets(SV *const sv, PerlIO *const fp,
+		        I32 append)
+
+=for hackers
+Found in file sv.c
+
+=item sv_get_backrefs
+X<sv_get_backrefs>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+If C<sv> is the target of a weak reference then it returns the back
+references structure associated with the sv; otherwise return C<NULL>.
+
+When returning a non-null result the type of the return is relevant. If it
+is an AV then the elements of the AV are the weak reference RVs which
+point at this item. If it is any other type then the item itself is the
+weak reference.
+
+See also C<Perl_sv_add_backref()>, C<Perl_sv_del_backref()>,
+C<Perl_sv_kill_backrefs()>
+
+	SV*	sv_get_backrefs(SV *const sv)
+
+=for hackers
+Found in file sv.c
+
+=item sv_grow
+X<sv_grow>
+
+Expands the character buffer in the SV.  If necessary, uses C<sv_unref> and
+upgrades the SV to C<SVt_PV>.  Returns a pointer to the character buffer.
+Use the C<SvGROW> wrapper instead.
+
+	char*	sv_grow(SV *const sv, STRLEN newlen)
+
+=for hackers
+Found in file sv.c
+
+=item sv_inc
+X<sv_inc>
+
+Auto-increment of the value in the SV, doing string to numeric conversion
+if necessary.  Handles 'get' magic and operator overloading.
+
+	void	sv_inc(SV *const sv)
+
+=for hackers
+Found in file sv.c
+
+=item sv_inc_nomg
+X<sv_inc_nomg>
+
+Auto-increment of the value in the SV, doing string to numeric conversion
+if necessary.  Handles operator overloading.  Skips handling 'get' magic.
+
+	void	sv_inc_nomg(SV *const sv)
+
+=for hackers
+Found in file sv.c
+
+=item sv_insert
+X<sv_insert>
+
+Inserts a string at the specified offset/length within the SV.  Similar to
+the Perl C<substr()> function.  Handles get magic.
+
+	void	sv_insert(SV *const bigstr, const STRLEN offset,
+		          const STRLEN len,
+		          const char *const little,
+		          const STRLEN littlelen)
+
+=for hackers
+Found in file sv.c
+
+=item sv_insert_flags
+X<sv_insert_flags>
+
+Same as C<sv_insert>, but the extra C<flags> are passed to the
+C<SvPV_force_flags> that applies to C<bigstr>.
+
+	void	sv_insert_flags(SV *const bigstr,
+		                const STRLEN offset,
+		                const STRLEN len,
+		                const char *const little,
+		                const STRLEN littlelen,
+		                const U32 flags)
+
+=for hackers
+Found in file sv.c
+
+=item sv_isa
+X<sv_isa>
+
+Returns a boolean indicating whether the SV is blessed into the specified
+class.  This does not check for subtypes; use C<sv_derived_from> to verify
+an inheritance relationship.
+
+	int	sv_isa(SV* sv, const char *const name)
+
+=for hackers
+Found in file sv.c
+
+=item sv_isobject
+X<sv_isobject>
+
+Returns a boolean indicating whether the SV is an RV pointing to a blessed
+object.  If the SV is not an RV, or if the object is not blessed, then this
+will return false.
+
+	int	sv_isobject(SV* sv)
+
+=for hackers
+Found in file sv.c
+
+=item sv_len
+X<sv_len>
+
+Returns the length of the string in the SV.  Handles magic and type
+coercion and sets the UTF8 flag appropriately.  See also C<L</SvCUR>>, which
+gives raw access to the C<xpv_cur> slot.
+
+	STRLEN	sv_len(SV *const sv)
+
+=for hackers
+Found in file sv.c
+
+=item sv_len_utf8
+X<sv_len_utf8>
+
+Returns the number of characters in the string in an SV, counting wide
+UTF-8 bytes as a single character.  Handles magic and type coercion.
+
+	STRLEN	sv_len_utf8(SV *const sv)
+
+=for hackers
+Found in file sv.c
+
+=item sv_magic
+X<sv_magic>
+
+Adds magic to an SV.  First upgrades C<sv> to type C<SVt_PVMG> if
+necessary, then adds a new magic item of type C<how> to the head of the
+magic list.
+
+See C<L</sv_magicext>> (which C<sv_magic> now calls) for a description of the
+handling of the C<name> and C<namlen> arguments.
+
+You need to use C<sv_magicext> to add magic to C<SvREADONLY> SVs and also
+to add more than one instance of the same C<how>.
+
+	void	sv_magic(SV *const sv, SV *const obj,
+		         const int how, const char *const name,
+		         const I32 namlen)
+
+=for hackers
+Found in file sv.c
+
+=item sv_magicext
+X<sv_magicext>
+
+Adds magic to an SV, upgrading it if necessary.  Applies the
+supplied C<vtable> and returns a pointer to the magic added.
+
+Note that C<sv_magicext> will allow things that C<sv_magic> will not.
+In particular, you can add magic to C<SvREADONLY> SVs, and add more than
+one instance of the same C<how>.
+
+If C<namlen> is greater than zero then a C<savepvn> I<copy> of C<name> is
+stored, if C<namlen> is zero then C<name> is stored as-is and - as another
+special case - if C<(name && namlen == HEf_SVKEY)> then C<name> is assumed
+to contain an SV* and is stored as-is with its C<REFCNT> incremented.
+
+(This is now used as a subroutine by C<sv_magic>.)
+
+	MAGIC *	sv_magicext(SV *const sv, SV *const obj,
+		            const int how,
+		            const MGVTBL *const vtbl,
+		            const char *const name,
+		            const I32 namlen)
+
+=for hackers
+Found in file sv.c
+
+=item sv_mortalcopy
+X<sv_mortalcopy>
+
+Creates a new SV which is a copy of the original SV (using C<sv_setsv>).
+The new SV is marked as mortal.  It will be destroyed "soon", either by an
+explicit call to C<FREETMPS>, or by an implicit call at places such as
+statement boundaries.  See also C<L</sv_newmortal>> and C<L</sv_2mortal>>.
+
+	SV*	sv_mortalcopy(SV *const oldsv)
+
+=for hackers
+Found in file sv.c
+
+=item sv_newmortal
+X<sv_newmortal>
+
+Creates a new null SV which is mortal.  The reference count of the SV is
+set to 1.  It will be destroyed "soon", either by an explicit call to
+C<FREETMPS>, or by an implicit call at places such as statement boundaries.
+See also C<L</sv_mortalcopy>> and C<L</sv_2mortal>>.
+
+	SV*	sv_newmortal()
+
+=for hackers
+Found in file sv.c
+
+=item sv_newref
+X<sv_newref>
+
+Increment an SV's reference count.  Use the C<SvREFCNT_inc()> wrapper
+instead.
+
+	SV*	sv_newref(SV *const sv)
+
+=for hackers
+Found in file sv.c
+
+=item sv_pos_b2u
+X<sv_pos_b2u>
+
+Converts the value pointed to by C<offsetp> from a count of bytes from the
+start of the string, to a count of the equivalent number of UTF-8 chars.
+Handles magic and type coercion.
+
+Use C<sv_pos_b2u_flags> in preference, which correctly handles strings
+longer than 2Gb.
+
+	void	sv_pos_b2u(SV *const sv, I32 *const offsetp)
+
+=for hackers
+Found in file sv.c
+
+=item sv_pos_b2u_flags
+X<sv_pos_b2u_flags>
+
+Converts C<offset> from a count of bytes from the start of the string, to
+a count of the equivalent number of UTF-8 chars.  Handles type coercion.
+C<flags> is passed to C<SvPV_flags>, and usually should be
+C<SV_GMAGIC|SV_CONST_RETURN> to handle magic.
+
+	STRLEN	sv_pos_b2u_flags(SV *const sv,
+		                 STRLEN const offset, U32 flags)
+
+=for hackers
+Found in file sv.c
+
+=item sv_pos_u2b
+X<sv_pos_u2b>
+
+Converts the value pointed to by C<offsetp> from a count of UTF-8 chars from
+the start of the string, to a count of the equivalent number of bytes; if
+C<lenp> is non-zero, it does the same to C<lenp>, but this time starting from
+the offset, rather than from the start of the string.  Handles magic and
+type coercion.
+
+Use C<sv_pos_u2b_flags> in preference, which correctly handles strings longer
+than 2Gb.
+
+	void	sv_pos_u2b(SV *const sv, I32 *const offsetp,
+		           I32 *const lenp)
+
+=for hackers
+Found in file sv.c
+
+=item sv_pos_u2b_flags
+X<sv_pos_u2b_flags>
+
+Converts the offset from a count of UTF-8 chars from
+the start of the string, to a count of the equivalent number of bytes; if
+C<lenp> is non-zero, it does the same to C<lenp>, but this time starting from
+C<offset>, rather than from the start
+of the string.  Handles type coercion.
+C<flags> is passed to C<SvPV_flags>, and usually should be
+C<SV_GMAGIC|SV_CONST_RETURN> to handle magic.
+
+	STRLEN	sv_pos_u2b_flags(SV *const sv, STRLEN uoffset,
+		                 STRLEN *const lenp, U32 flags)
+
+=for hackers
+Found in file sv.c
+
+=item sv_pvbyten_force
+X<sv_pvbyten_force>
+
+The backend for the C<SvPVbytex_force> macro.  Always use the macro
+instead.
+
+	char*	sv_pvbyten_force(SV *const sv, STRLEN *const lp)
+
+=for hackers
+Found in file sv.c
+
+=item sv_pvn_force
+X<sv_pvn_force>
+
+Get a sensible string out of the SV somehow.
+A private implementation of the C<SvPV_force> macro for compilers which
+can't cope with complex macro expressions.  Always use the macro instead.
+
+	char*	sv_pvn_force(SV* sv, STRLEN* lp)
+
+=for hackers
+Found in file sv.c
+
+=item sv_pvn_force_flags
+X<sv_pvn_force_flags>
+
+Get a sensible string out of the SV somehow.
+If C<flags> has the C<SV_GMAGIC> bit set, will C<mg_get> on C<sv> if
+appropriate, else not.  C<sv_pvn_force> and C<sv_pvn_force_nomg> are
+implemented in terms of this function.
+You normally want to use the various wrapper macros instead: see
+C<L</SvPV_force>> and C<L</SvPV_force_nomg>>.
+
+	char*	sv_pvn_force_flags(SV *const sv,
+		                   STRLEN *const lp,
+		                   const I32 flags)
+
+=for hackers
+Found in file sv.c
+
+=item sv_pvutf8n_force
+X<sv_pvutf8n_force>
+
+The backend for the C<SvPVutf8x_force> macro.  Always use the macro
+instead.
+
+	char*	sv_pvutf8n_force(SV *const sv, STRLEN *const lp)
+
+=for hackers
+Found in file sv.c
+
+=item sv_ref
+X<sv_ref>
+
+Returns a SV describing what the SV passed in is a reference to.
+
+dst can be a SV to be set to the description or NULL, in which case a
+mortal SV is returned.
+
+If ob is true and the SV is blessed, the description is the class
+name, otherwise it is the type of the SV, "SCALAR", "ARRAY" etc.
+
+	SV*	sv_ref(SV *dst, const SV *const sv,
+		       const int ob)
+
+=for hackers
+Found in file sv.c
+
+=item sv_reftype
+X<sv_reftype>
+
+Returns a string describing what the SV is a reference to.
+
+If ob is true and the SV is blessed, the string is the class name,
+otherwise it is the type of the SV, "SCALAR", "ARRAY" etc.
+
+	const char* sv_reftype(const SV *const sv, const int ob)
+
+=for hackers
+Found in file sv.c
+
+=item sv_replace
+X<sv_replace>
+
+Make the first argument a copy of the second, then delete the original.
+The target SV physically takes over ownership of the body of the source SV
+and inherits its flags; however, the target keeps any magic it owns,
+and any magic in the source is discarded.
+Note that this is a rather specialist SV copying operation; most of the
+time you'll want to use C<sv_setsv> or one of its many macro front-ends.
+
+	void	sv_replace(SV *const sv, SV *const nsv)
+
+=for hackers
+Found in file sv.c
+
+=item sv_reset
+X<sv_reset>
+
+Underlying implementation for the C<reset> Perl function.
+Note that the perl-level function is vaguely deprecated.
+
+	void	sv_reset(const char* s, HV *const stash)
+
+=for hackers
+Found in file sv.c
+
+=item sv_rvweaken
+X<sv_rvweaken>
+
+Weaken a reference: set the C<SvWEAKREF> flag on this RV; give the
+referred-to SV C<PERL_MAGIC_backref> magic if it hasn't already; and
+push a back-reference to this RV onto the array of backreferences
+associated with that magic.  If the RV is magical, set magic will be
+called after the RV is cleared.
+
+	SV*	sv_rvweaken(SV *const sv)
+
+=for hackers
+Found in file sv.c
+
+=item sv_setiv
+X<sv_setiv>
+
+Copies an integer into the given SV, upgrading first if necessary.
+Does not handle 'set' magic.  See also C<L</sv_setiv_mg>>.
+
+	void	sv_setiv(SV *const sv, const IV num)
+
+=for hackers
+Found in file sv.c
+
+=item sv_setiv_mg
+X<sv_setiv_mg>
+
+Like C<sv_setiv>, but also handles 'set' magic.
+
+	void	sv_setiv_mg(SV *const sv, const IV i)
+
+=for hackers
+Found in file sv.c
+
+=item sv_setnv
+X<sv_setnv>
+
+Copies a double into the given SV, upgrading first if necessary.
+Does not handle 'set' magic.  See also C<L</sv_setnv_mg>>.
+
+	void	sv_setnv(SV *const sv, const NV num)
+
+=for hackers
+Found in file sv.c
+
+=item sv_setnv_mg
+X<sv_setnv_mg>
+
+Like C<sv_setnv>, but also handles 'set' magic.
+
+	void	sv_setnv_mg(SV *const sv, const NV num)
+
+=for hackers
+Found in file sv.c
+
+=item sv_setpv
+X<sv_setpv>
+
+Copies a string into an SV.  The string must be terminated with a C<NUL>
+character.
+Does not handle 'set' magic.  See C<L</sv_setpv_mg>>.
+
+	void	sv_setpv(SV *const sv, const char *const ptr)
+
+=for hackers
+Found in file sv.c
+
+=item sv_setpvf
+X<sv_setpvf>
+
+Works like C<sv_catpvf> but copies the text into the SV instead of
+appending it.  Does not handle 'set' magic.  See C<L</sv_setpvf_mg>>.
+
+	void	sv_setpvf(SV *const sv, const char *const pat,
+		          ...)
+
+=for hackers
+Found in file sv.c
+
+=item sv_setpvf_mg
+X<sv_setpvf_mg>
+
+Like C<sv_setpvf>, but also handles 'set' magic.
+
+	void	sv_setpvf_mg(SV *const sv,
+		             const char *const pat, ...)
+
+=for hackers
+Found in file sv.c
+
+=item sv_setpviv
+X<sv_setpviv>
+
+Copies an integer into the given SV, also updating its string value.
+Does not handle 'set' magic.  See C<L</sv_setpviv_mg>>.
+
+	void	sv_setpviv(SV *const sv, const IV num)
+
+=for hackers
+Found in file sv.c
+
+=item sv_setpviv_mg
+X<sv_setpviv_mg>
+
+Like C<sv_setpviv>, but also handles 'set' magic.
+
+	void	sv_setpviv_mg(SV *const sv, const IV iv)
+
+=for hackers
+Found in file sv.c
+
+=item sv_setpvn
+X<sv_setpvn>
+
+Copies a string (possibly containing embedded C<NUL> characters) into an SV.
+The C<len> parameter indicates the number of
+bytes to be copied.  If the C<ptr> argument is NULL the SV will become
+undefined.  Does not handle 'set' magic.  See C<L</sv_setpvn_mg>>.
+
+	void	sv_setpvn(SV *const sv, const char *const ptr,
+		          const STRLEN len)
+
+=for hackers
+Found in file sv.c
+
+=item sv_setpvn_mg
+X<sv_setpvn_mg>
+
+Like C<sv_setpvn>, but also handles 'set' magic.
+
+	void	sv_setpvn_mg(SV *const sv,
+		             const char *const ptr,
+		             const STRLEN len)
+
+=for hackers
+Found in file sv.c
+
+=item sv_setpvs
+X<sv_setpvs>
+
+Like C<sv_setpvn>, but takes a C<NUL>-terminated literal string instead of a
+string/length pair.
+
+	void	sv_setpvs(SV* sv, const char* s)
+
+=for hackers
+Found in file handy.h
+
+=item sv_setpvs_mg
+X<sv_setpvs_mg>
+
+Like C<sv_setpvn_mg>, but takes a C<NUL>-terminated literal string instead of a
+string/length pair.
+
+	void	sv_setpvs_mg(SV* sv, const char* s)
+
+=for hackers
+Found in file handy.h
+
+=item sv_setpv_mg
+X<sv_setpv_mg>
+
+Like C<sv_setpv>, but also handles 'set' magic.
+
+	void	sv_setpv_mg(SV *const sv, const char *const ptr)
+
+=for hackers
+Found in file sv.c
+
+=item sv_setref_iv
+X<sv_setref_iv>
+
+Copies an integer into a new SV, optionally blessing the SV.  The C<rv>
+argument will be upgraded to an RV.  That RV will be modified to point to
+the new SV.  The C<classname> argument indicates the package for the
+blessing.  Set C<classname> to C<NULL> to avoid the blessing.  The new SV
+will have a reference count of 1, and the RV will be returned.
+
+	SV*	sv_setref_iv(SV *const rv,
+		             const char *const classname,
+		             const IV iv)
+
+=for hackers
+Found in file sv.c
+
+=item sv_setref_nv
+X<sv_setref_nv>
+
+Copies a double into a new SV, optionally blessing the SV.  The C<rv>
+argument will be upgraded to an RV.  That RV will be modified to point to
+the new SV.  The C<classname> argument indicates the package for the
+blessing.  Set C<classname> to C<NULL> to avoid the blessing.  The new SV
+will have a reference count of 1, and the RV will be returned.
+
+	SV*	sv_setref_nv(SV *const rv,
+		             const char *const classname,
+		             const NV nv)
+
+=for hackers
+Found in file sv.c
+
+=item sv_setref_pv
+X<sv_setref_pv>
+
+Copies a pointer into a new SV, optionally blessing the SV.  The C<rv>
+argument will be upgraded to an RV.  That RV will be modified to point to
+the new SV.  If the C<pv> argument is C<NULL>, then C<PL_sv_undef> will be placed
+into the SV.  The C<classname> argument indicates the package for the
+blessing.  Set C<classname> to C<NULL> to avoid the blessing.  The new SV
+will have a reference count of 1, and the RV will be returned.
+
+Do not use with other Perl types such as HV, AV, SV, CV, because those
+objects will become corrupted by the pointer copy process.
+
+Note that C<sv_setref_pvn> copies the string while this copies the pointer.
+
+	SV*	sv_setref_pv(SV *const rv,
+		             const char *const classname,
+		             void *const pv)
+
+=for hackers
+Found in file sv.c
+
+=item sv_setref_pvn
+X<sv_setref_pvn>
+
+Copies a string into a new SV, optionally blessing the SV.  The length of the
+string must be specified with C<n>.  The C<rv> argument will be upgraded to
+an RV.  That RV will be modified to point to the new SV.  The C<classname>
+argument indicates the package for the blessing.  Set C<classname> to
+C<NULL> to avoid the blessing.  The new SV will have a reference count
+of 1, and the RV will be returned.
+
+Note that C<sv_setref_pv> copies the pointer while this copies the string.
+
+	SV*	sv_setref_pvn(SV *const rv,
+		              const char *const classname,
+		              const char *const pv,
+		              const STRLEN n)
+
+=for hackers
+Found in file sv.c
+
+=item sv_setref_pvs
+X<sv_setref_pvs>
+
+Like C<sv_setref_pvn>, but takes a C<NUL>-terminated literal string instead of
+a string/length pair.
+
+	SV *	sv_setref_pvs(const char* s)
+
+=for hackers
+Found in file handy.h
+
+=item sv_setref_uv
+X<sv_setref_uv>
+
+Copies an unsigned integer into a new SV, optionally blessing the SV.  The C<rv>
+argument will be upgraded to an RV.  That RV will be modified to point to
+the new SV.  The C<classname> argument indicates the package for the
+blessing.  Set C<classname> to C<NULL> to avoid the blessing.  The new SV
+will have a reference count of 1, and the RV will be returned.
+
+	SV*	sv_setref_uv(SV *const rv,
+		             const char *const classname,
+		             const UV uv)
+
+=for hackers
+Found in file sv.c
+
+=item sv_setsv
+X<sv_setsv>
+
+Copies the contents of the source SV C<ssv> into the destination SV
+C<dsv>.  The source SV may be destroyed if it is mortal, so don't use this
+function if the source SV needs to be reused.  Does not handle 'set' magic on
+destination SV.  Calls 'get' magic on source SV.  Loosely speaking, it
+performs a copy-by-value, obliterating any previous content of the
+destination.
+
+You probably want to use one of the assortment of wrappers, such as
+C<SvSetSV>, C<SvSetSV_nosteal>, C<SvSetMagicSV> and
+C<SvSetMagicSV_nosteal>.
+
+	void	sv_setsv(SV *dstr, SV *sstr)
+
+=for hackers
+Found in file sv.c
+
+=item sv_setsv_flags
+X<sv_setsv_flags>
+
+Copies the contents of the source SV C<ssv> into the destination SV
+C<dsv>.  The source SV may be destroyed if it is mortal, so don't use this
+function if the source SV needs to be reused.  Does not handle 'set' magic.
+Loosely speaking, it performs a copy-by-value, obliterating any previous
+content of the destination.
+If the C<flags> parameter has the C<SV_GMAGIC> bit set, will C<mg_get> on
+C<ssv> if appropriate, else not.  If the C<flags>
+parameter has the C<SV_NOSTEAL> bit set then the
+buffers of temps will not be stolen.  C<sv_setsv>
+and C<sv_setsv_nomg> are implemented in terms of this function.
+
+You probably want to use one of the assortment of wrappers, such as
+C<SvSetSV>, C<SvSetSV_nosteal>, C<SvSetMagicSV> and
+C<SvSetMagicSV_nosteal>.
+
+This is the primary function for copying scalars, and most other
+copy-ish functions and macros use this underneath.
+
+	void	sv_setsv_flags(SV *dstr, SV *sstr,
+		               const I32 flags)
+
+=for hackers
+Found in file sv.c
+
+=item sv_setsv_mg
+X<sv_setsv_mg>
+
+Like C<sv_setsv>, but also handles 'set' magic.
+
+	void	sv_setsv_mg(SV *const dstr, SV *const sstr)
+
+=for hackers
+Found in file sv.c
+
+=item sv_setuv
+X<sv_setuv>
+
+Copies an unsigned integer into the given SV, upgrading first if necessary.
+Does not handle 'set' magic.  See also C<L</sv_setuv_mg>>.
+
+	void	sv_setuv(SV *const sv, const UV num)
+
+=for hackers
+Found in file sv.c
+
+=item sv_setuv_mg
+X<sv_setuv_mg>
+
+Like C<sv_setuv>, but also handles 'set' magic.
+
+	void	sv_setuv_mg(SV *const sv, const UV u)
+
+=for hackers
+Found in file sv.c
+
+=item sv_tainted
+X<sv_tainted>
+
+Test an SV for taintedness.  Use C<SvTAINTED> instead.
+
+	bool	sv_tainted(SV *const sv)
+
+=for hackers
+Found in file sv.c
+
+=item sv_true
+X<sv_true>
+
+Returns true if the SV has a true value by Perl's rules.
+Use the C<SvTRUE> macro instead, which may call C<sv_true()> or may
+instead use an in-line version.
+
+	I32	sv_true(SV *const sv)
+
+=for hackers
+Found in file sv.c
+
+=item sv_unmagic
+X<sv_unmagic>
+
+Removes all magic of type C<type> from an SV.
+
+	int	sv_unmagic(SV *const sv, const int type)
+
+=for hackers
+Found in file sv.c
+
+=item sv_unmagicext
+X<sv_unmagicext>
+
+Removes all magic of type C<type> with the specified C<vtbl> from an SV.
+
+	int	sv_unmagicext(SV *const sv, const int type,
+		              MGVTBL *vtbl)
+
+=for hackers
+Found in file sv.c
+
+=item sv_unref_flags
+X<sv_unref_flags>
+
+Unsets the RV status of the SV, and decrements the reference count of
+whatever was being referenced by the RV.  This can almost be thought of
+as a reversal of C<newSVrv>.  The C<cflags> argument can contain
+C<SV_IMMEDIATE_UNREF> to force the reference count to be decremented
+(otherwise the decrementing is conditional on the reference count being
+different from one or the reference being a readonly SV).
+See C<L</SvROK_off>>.
+
+	void	sv_unref_flags(SV *const ref, const U32 flags)
+
+=for hackers
+Found in file sv.c
+
+=item sv_untaint
+X<sv_untaint>
+
+Untaint an SV.  Use C<SvTAINTED_off> instead.
+
+	void	sv_untaint(SV *const sv)
+
+=for hackers
+Found in file sv.c
+
+=item sv_upgrade
+X<sv_upgrade>
+
+Upgrade an SV to a more complex form.  Generally adds a new body type to the
+SV, then copies across as much information as possible from the old body.
+It croaks if the SV is already in a more complex form than requested.  You
+generally want to use the C<SvUPGRADE> macro wrapper, which checks the type
+before calling C<sv_upgrade>, and hence does not croak.  See also
+C<L</svtype>>.
+
+	void	sv_upgrade(SV *const sv, svtype new_type)
+
+=for hackers
+Found in file sv.c
+
+=item sv_usepvn_flags
+X<sv_usepvn_flags>
+
+Tells an SV to use C<ptr> to find its string value.  Normally the
+string is stored inside the SV, but sv_usepvn allows the SV to use an
+outside string.  C<ptr> should point to memory that was allocated
+by L<C<Newx>|perlclib/Memory Management and String Handling>.  It must be
+the start of a C<Newx>-ed block of memory, and not a pointer to the
+middle of it (beware of L<C<OOK>|perlguts/Offsets> and copy-on-write),
+and not be from a non-C<Newx> memory allocator like C<malloc>.  The
+string length, C<len>, must be supplied.  By default this function
+will C<Renew> (i.e. realloc, move) the memory pointed to by C<ptr>,
+so that pointer should not be freed or used by the programmer after
+giving it to C<sv_usepvn>, and neither should any pointers from "behind"
+that pointer (e.g. ptr + 1) be used.
+
+If S<C<flags & SV_SMAGIC>> is true, will call C<SvSETMAGIC>.  If
+S<C<flags> & SV_HAS_TRAILING_NUL>> is true, then C<ptr[len]> must be C<NUL>,
+and the realloc
+will be skipped (i.e. the buffer is actually at least 1 byte longer than
+C<len>, and already meets the requirements for storing in C<SvPVX>).
+
+	void	sv_usepvn_flags(SV *const sv, char* ptr,
+		                const STRLEN len,
+		                const U32 flags)
+
+=for hackers
+Found in file sv.c
+
+=item sv_utf8_decode
+X<sv_utf8_decode>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+If the PV of the SV is an octet sequence in UTF-8
+and contains a multiple-byte character, the C<SvUTF8> flag is turned on
+so that it looks like a character.  If the PV contains only single-byte
+characters, the C<SvUTF8> flag stays off.
+Scans PV for validity and returns false if the PV is invalid UTF-8.
+
+	bool	sv_utf8_decode(SV *const sv)
+
+=for hackers
+Found in file sv.c
+
+=item sv_utf8_downgrade
+X<sv_utf8_downgrade>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Attempts to convert the PV of an SV from characters to bytes.
+If the PV contains a character that cannot fit
+in a byte, this conversion will fail;
+in this case, either returns false or, if C<fail_ok> is not
+true, croaks.
+
+This is not a general purpose Unicode to byte encoding interface:
+use the C<Encode> extension for that.
+
+	bool	sv_utf8_downgrade(SV *const sv,
+		                  const bool fail_ok)
+
+=for hackers
+Found in file sv.c
+
+=item sv_utf8_encode
+X<sv_utf8_encode>
+
+Converts the PV of an SV to UTF-8, but then turns the C<SvUTF8>
+flag off so that it looks like octets again.
+
+	void	sv_utf8_encode(SV *const sv)
+
+=for hackers
+Found in file sv.c
+
+=item sv_utf8_upgrade
+X<sv_utf8_upgrade>
+
+Converts the PV of an SV to its UTF-8-encoded form.
+Forces the SV to string form if it is not already.
+Will C<mg_get> on C<sv> if appropriate.
+Always sets the C<SvUTF8> flag to avoid future validity checks even
+if the whole string is the same in UTF-8 as not.
+Returns the number of bytes in the converted string
+
+This is not a general purpose byte encoding to Unicode interface:
+use the Encode extension for that.
+
+	STRLEN	sv_utf8_upgrade(SV *sv)
+
+=for hackers
+Found in file sv.c
+
+=item sv_utf8_upgrade_flags
+X<sv_utf8_upgrade_flags>
+
+Converts the PV of an SV to its UTF-8-encoded form.
+Forces the SV to string form if it is not already.
+Always sets the SvUTF8 flag to avoid future validity checks even
+if all the bytes are invariant in UTF-8.
+If C<flags> has C<SV_GMAGIC> bit set,
+will C<mg_get> on C<sv> if appropriate, else not.
+
+If C<flags> has C<SV_FORCE_UTF8_UPGRADE> set, this function assumes that the PV
+will expand when converted to UTF-8, and skips the extra work of checking for
+that.  Typically this flag is used by a routine that has already parsed the
+string and found such characters, and passes this information on so that the
+work doesn't have to be repeated.
+
+Returns the number of bytes in the converted string.
+
+This is not a general purpose byte encoding to Unicode interface:
+use the Encode extension for that.
+
+	STRLEN	sv_utf8_upgrade_flags(SV *const sv,
+		                      const I32 flags)
+
+=for hackers
+Found in file sv.c
+
+=item sv_utf8_upgrade_flags_grow
+X<sv_utf8_upgrade_flags_grow>
+
+Like C<sv_utf8_upgrade_flags>, but has an additional parameter C<extra>, which is
+the number of unused bytes the string of C<sv> is guaranteed to have free after
+it upon return.  This allows the caller to reserve extra space that it intends
+to fill, to avoid extra grows.
+
+C<sv_utf8_upgrade>, C<sv_utf8_upgrade_nomg>, and C<sv_utf8_upgrade_flags>
+are implemented in terms of this function.
+
+Returns the number of bytes in the converted string (not including the spares).
+
+	STRLEN	sv_utf8_upgrade_flags_grow(SV *const sv,
+		                           const I32 flags,
+		                           STRLEN extra)
+
+=for hackers
+Found in file sv.c
+
+=item sv_utf8_upgrade_nomg
+X<sv_utf8_upgrade_nomg>
+
+Like C<sv_utf8_upgrade>, but doesn't do magic on C<sv>.
+
+	STRLEN	sv_utf8_upgrade_nomg(SV *sv)
+
+=for hackers
+Found in file sv.c
+
+=item sv_vcatpvf
+X<sv_vcatpvf>
+
+Processes its arguments like C<sv_catpvfn> called with a non-null C-style
+variable argument list, and appends the formatted
+to an SV.  Does not handle 'set' magic.  See C<L</sv_vcatpvf_mg>>.
+
+Usually used via its frontend C<sv_catpvf>.
+
+	void	sv_vcatpvf(SV *const sv, const char *const pat,
+		           va_list *const args)
+
+=for hackers
+Found in file sv.c
+
+=item sv_vcatpvfn
+X<sv_vcatpvfn>
+
+	void	sv_vcatpvfn(SV *const sv, const char *const pat,
+		            const STRLEN patlen,
+		            va_list *const args,
+		            SV **const svargs, const I32 svmax,
+		            bool *const maybe_tainted)
+
+=for hackers
+Found in file sv.c
+
+=item sv_vcatpvfn_flags
+X<sv_vcatpvfn_flags>
+
+Processes its arguments like C<vsprintf> and appends the formatted output
+to an SV.  Uses an array of SVs if the C-style variable argument list is
+missing (C<NULL>). Argument reordering (using format specifiers like C<%2$d>
+or C<%*2$d>) is supported only when using an array of SVs; using a C-style
+C<va_list> argument list with a format string that uses argument reordering
+will yield an exception.
+
+When running with taint checks enabled, indicates via
+C<maybe_tainted> if results are untrustworthy (often due to the use of
+locales).
+
+If called as C<sv_vcatpvfn> or flags has the C<SV_GMAGIC> bit set, calls get magic.
+
+Usually used via one of its frontends C<sv_vcatpvf> and C<sv_vcatpvf_mg>.
+
+	void	sv_vcatpvfn_flags(SV *const sv,
+		                  const char *const pat,
+		                  const STRLEN patlen,
+		                  va_list *const args,
+		                  SV **const svargs,
+		                  const I32 svmax,
+		                  bool *const maybe_tainted,
+		                  const U32 flags)
+
+=for hackers
+Found in file sv.c
+
+=item sv_vcatpvf_mg
+X<sv_vcatpvf_mg>
+
+Like C<sv_vcatpvf>, but also handles 'set' magic.
+
+Usually used via its frontend C<sv_catpvf_mg>.
+
+	void	sv_vcatpvf_mg(SV *const sv,
+		              const char *const pat,
+		              va_list *const args)
+
+=for hackers
+Found in file sv.c
+
+=item sv_vsetpvf
+X<sv_vsetpvf>
+
+Works like C<sv_vcatpvf> but copies the text into the SV instead of
+appending it.  Does not handle 'set' magic.  See C<L</sv_vsetpvf_mg>>.
+
+Usually used via its frontend C<sv_setpvf>.
+
+	void	sv_vsetpvf(SV *const sv, const char *const pat,
+		           va_list *const args)
+
+=for hackers
+Found in file sv.c
+
+=item sv_vsetpvfn
+X<sv_vsetpvfn>
+
+Works like C<sv_vcatpvfn> but copies the text into the SV instead of
+appending it.
+
+Usually used via one of its frontends C<sv_vsetpvf> and C<sv_vsetpvf_mg>.
+
+	void	sv_vsetpvfn(SV *const sv, const char *const pat,
+		            const STRLEN patlen,
+		            va_list *const args,
+		            SV **const svargs, const I32 svmax,
+		            bool *const maybe_tainted)
+
+=for hackers
+Found in file sv.c
+
+=item sv_vsetpvf_mg
+X<sv_vsetpvf_mg>
+
+Like C<sv_vsetpvf>, but also handles 'set' magic.
+
+Usually used via its frontend C<sv_setpvf_mg>.
+
+	void	sv_vsetpvf_mg(SV *const sv,
+		              const char *const pat,
+		              va_list *const args)
+
+=for hackers
+Found in file sv.c
+
+
+=back
+
+=head1 SV Flags
+
+=over 8
+
+=item SVt_INVLIST
+X<SVt_INVLIST>
+
+Type flag for scalars.  See L</svtype>.
+
+=for hackers
+Found in file sv.h
+
+=item SVt_IV
+X<SVt_IV>
+
+Type flag for scalars.  See L</svtype>.
+
+=for hackers
+Found in file sv.h
+
+=item SVt_NULL
+X<SVt_NULL>
+
+Type flag for scalars.  See L</svtype>.
+
+=for hackers
+Found in file sv.h
+
+=item SVt_NV
+X<SVt_NV>
+
+Type flag for scalars.  See L</svtype>.
+
+=for hackers
+Found in file sv.h
+
+=item SVt_PV
+X<SVt_PV>
+
+Type flag for scalars.  See L</svtype>.
+
+=for hackers
+Found in file sv.h
+
+=item SVt_PVAV
+X<SVt_PVAV>
+
+Type flag for arrays.  See L</svtype>.
+
+=for hackers
+Found in file sv.h
+
+=item SVt_PVCV
+X<SVt_PVCV>
+
+Type flag for subroutines.  See L</svtype>.
+
+=for hackers
+Found in file sv.h
+
+=item SVt_PVFM
+X<SVt_PVFM>
+
+Type flag for formats.  See L</svtype>.
+
+=for hackers
+Found in file sv.h
+
+=item SVt_PVGV
+X<SVt_PVGV>
+
+Type flag for typeglobs.  See L</svtype>.
+
+=for hackers
+Found in file sv.h
+
+=item SVt_PVHV
+X<SVt_PVHV>
+
+Type flag for hashes.  See L</svtype>.
+
+=for hackers
+Found in file sv.h
+
+=item SVt_PVIO
+X<SVt_PVIO>
+
+Type flag for I/O objects.  See L</svtype>.
+
+=for hackers
+Found in file sv.h
+
+=item SVt_PVIV
+X<SVt_PVIV>
+
+Type flag for scalars.  See L</svtype>.
+
+=for hackers
+Found in file sv.h
+
+=item SVt_PVLV
+X<SVt_PVLV>
+
+Type flag for scalars.  See L</svtype>.
+
+=for hackers
+Found in file sv.h
+
+=item SVt_PVMG
+X<SVt_PVMG>
+
+Type flag for scalars.  See L</svtype>.
+
+=for hackers
+Found in file sv.h
+
+=item SVt_PVNV
+X<SVt_PVNV>
+
+Type flag for scalars.  See L</svtype>.
+
+=for hackers
+Found in file sv.h
+
+=item SVt_REGEXP
+X<SVt_REGEXP>
+
+Type flag for regular expressions.  See L</svtype>.
+
+=for hackers
+Found in file sv.h
+
+=item svtype
+X<svtype>
+
+An enum of flags for Perl types.  These are found in the file F<sv.h>
+in the C<svtype> enum.  Test these flags with the C<SvTYPE> macro.
+
+The types are:
+
+    SVt_NULL
+    SVt_IV
+    SVt_NV
+    SVt_RV
+    SVt_PV
+    SVt_PVIV
+    SVt_PVNV
+    SVt_PVMG
+    SVt_INVLIST
+    SVt_REGEXP
+    SVt_PVGV
+    SVt_PVLV
+    SVt_PVAV
+    SVt_PVHV
+    SVt_PVCV
+    SVt_PVFM
+    SVt_PVIO
+
+These are most easily explained from the bottom up.
+
+C<SVt_PVIO> is for I/O objects, C<SVt_PVFM> for formats, C<SVt_PVCV> for
+subroutines, C<SVt_PVHV> for hashes and C<SVt_PVAV> for arrays.
+
+All the others are scalar types, that is, things that can be bound to a
+C<$> variable.  For these, the internal types are mostly orthogonal to
+types in the Perl language.
+
+Hence, checking C<< SvTYPE(sv) < SVt_PVAV >> is the best way to see whether
+something is a scalar.
+
+C<SVt_PVGV> represents a typeglob.  If C<!SvFAKE(sv)>, then it is a real,
+incoercible typeglob.  If C<SvFAKE(sv)>, then it is a scalar to which a
+typeglob has been assigned.  Assigning to it again will stop it from being
+a typeglob.  C<SVt_PVLV> represents a scalar that delegates to another scalar
+behind the scenes.  It is used, e.g., for the return value of C<substr> and
+for tied hash and array elements.  It can hold any scalar value, including
+a typeglob.  C<SVt_REGEXP> is for regular
+expressions.  C<SVt_INVLIST> is for Perl
+core internal use only.
+
+C<SVt_PVMG> represents a "normal" scalar (not a typeglob, regular expression,
+or delegate).  Since most scalars do not need all the internal fields of a
+PVMG, we save memory by allocating smaller structs when possible.  All the
+other types are just simpler forms of C<SVt_PVMG>, with fewer internal fields.
+C<SVt_NULL> can only hold undef.  C<SVt_IV> can hold undef, an integer, or a
+reference.  (C<SVt_RV> is an alias for C<SVt_IV>, which exists for backward
+compatibility.)  C<SVt_NV> can hold any of those or a double.  C<SVt_PV> can only
+hold C<undef> or a string.  C<SVt_PVIV> is a superset of C<SVt_PV> and C<SVt_IV>.
+C<SVt_PVNV> is similar.  C<SVt_PVMG> can hold anything C<SVt_PVNV> can hold, but it
+can, but does not have to, be blessed or magical.
+
+=for hackers
+Found in file sv.h
+
+
+=back
+
+=head1 SV Manipulation Functions
+
+=over 8
+
+=item boolSV
+X<boolSV>
+
+Returns a true SV if C<b> is a true value, or a false SV if C<b> is 0.
+
+See also C<L</PL_sv_yes>> and C<L</PL_sv_no>>.
+
+	SV *	boolSV(bool b)
+
+=for hackers
+Found in file sv.h
+
+=item croak_xs_usage
+X<croak_xs_usage>
+
+A specialised variant of C<croak()> for emitting the usage message for xsubs
+
+    croak_xs_usage(cv, "eee_yow");
+
+works out the package name and subroutine name from C<cv>, and then calls
+C<croak()>.  Hence if C<cv> is C<&ouch::awk>, it would call C<croak> as:
+
+ Perl_croak(aTHX_ "Usage: %"SVf"::%"SVf"(%s)", "ouch" "awk",
+                                                     "eee_yow");
+
+	void	croak_xs_usage(const CV *const cv,
+		               const char *const params)
+
+=for hackers
+Found in file universal.c
+
+=item get_sv
+X<get_sv>
+
+Returns the SV of the specified Perl scalar.  C<flags> are passed to
+C<gv_fetchpv>.  If C<GV_ADD> is set and the
+Perl variable does not exist then it will be created.  If C<flags> is zero
+and the variable does not exist then NULL is returned.
+
+NOTE: the perl_ form of this function is deprecated.
+
+	SV*	get_sv(const char *name, I32 flags)
+
+=for hackers
+Found in file perl.c
+
+=item newRV_inc
+X<newRV_inc>
+
+Creates an RV wrapper for an SV.  The reference count for the original SV is
+incremented.
+
+	SV*	newRV_inc(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item newSVpadname
+X<newSVpadname>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Creates a new SV containing the pad name.
+
+	SV*	newSVpadname(PADNAME *pn)
+
+=for hackers
+Found in file sv.h
+
+=item newSVpvn_utf8
+X<newSVpvn_utf8>
+
+Creates a new SV and copies a string (which may contain C<NUL> (C<\0>)
+characters) into it.  If C<utf8> is true, calls
+C<SvUTF8_on> on the new SV.  Implemented as a wrapper around C<newSVpvn_flags>.
+
+	SV*	newSVpvn_utf8(NULLOK const char* s, STRLEN len,
+		              U32 utf8)
+
+=for hackers
+Found in file sv.h
+
+=item sv_catpvn_nomg
+X<sv_catpvn_nomg>
+
+Like C<sv_catpvn> but doesn't process magic.
+
+	void	sv_catpvn_nomg(SV* sv, const char* ptr,
+		               STRLEN len)
+
+=for hackers
+Found in file sv.h
+
+=item sv_catpv_nomg
+X<sv_catpv_nomg>
+
+Like C<sv_catpv> but doesn't process magic.
+
+	void	sv_catpv_nomg(SV* sv, const char* ptr)
+
+=for hackers
+Found in file sv.h
+
+=item sv_catsv_nomg
+X<sv_catsv_nomg>
+
+Like C<sv_catsv> but doesn't process magic.
+
+	void	sv_catsv_nomg(SV* dsv, SV* ssv)
+
+=for hackers
+Found in file sv.h
+
+=item SvCUR
+X<SvCUR>
+
+Returns the length of the string which is in the SV.  See C<L</SvLEN>>.
+
+	STRLEN	SvCUR(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvCUR_set
+X<SvCUR_set>
+
+Set the current length of the string which is in the SV.  See C<L</SvCUR>>
+and C<SvIV_set>>.
+
+	void	SvCUR_set(SV* sv, STRLEN len)
+
+=for hackers
+Found in file sv.h
+
+=item sv_derived_from
+X<sv_derived_from>
+
+Exactly like L</sv_derived_from_pv>, but doesn't take a C<flags> parameter.
+
+	bool	sv_derived_from(SV* sv, const char *const name)
+
+=for hackers
+Found in file universal.c
+
+=item sv_derived_from_pv
+X<sv_derived_from_pv>
+
+Exactly like L</sv_derived_from_pvn>, but takes a nul-terminated string 
+instead of a string/length pair.
+
+	bool	sv_derived_from_pv(SV* sv,
+		                   const char *const name,
+		                   U32 flags)
+
+=for hackers
+Found in file universal.c
+
+=item sv_derived_from_pvn
+X<sv_derived_from_pvn>
+
+Returns a boolean indicating whether the SV is derived from the specified class
+I<at the C level>.  To check derivation at the Perl level, call C<isa()> as a
+normal Perl method.
+
+Currently, the only significant value for C<flags> is SVf_UTF8.
+
+	bool	sv_derived_from_pvn(SV* sv,
+		                    const char *const name,
+		                    const STRLEN len, U32 flags)
+
+=for hackers
+Found in file universal.c
+
+=item sv_derived_from_sv
+X<sv_derived_from_sv>
+
+Exactly like L</sv_derived_from_pvn>, but takes the name string in the form
+of an SV instead of a string/length pair.
+
+	bool	sv_derived_from_sv(SV* sv, SV *namesv,
+		                   U32 flags)
+
+=for hackers
+Found in file universal.c
+
+=item sv_does
+X<sv_does>
+
+Like L</sv_does_pv>, but doesn't take a C<flags> parameter.
+
+	bool	sv_does(SV* sv, const char *const name)
+
+=for hackers
+Found in file universal.c
+
+=item sv_does_pv
+X<sv_does_pv>
+
+Like L</sv_does_sv>, but takes a nul-terminated string instead of an SV.
+
+	bool	sv_does_pv(SV* sv, const char *const name,
+		           U32 flags)
+
+=for hackers
+Found in file universal.c
+
+=item sv_does_pvn
+X<sv_does_pvn>
+
+Like L</sv_does_sv>, but takes a string/length pair instead of an SV.
+
+	bool	sv_does_pvn(SV* sv, const char *const name,
+		            const STRLEN len, U32 flags)
+
+=for hackers
+Found in file universal.c
+
+=item sv_does_sv
+X<sv_does_sv>
+
+Returns a boolean indicating whether the SV performs a specific, named role.
+The SV can be a Perl object or the name of a Perl class.
+
+	bool	sv_does_sv(SV* sv, SV* namesv, U32 flags)
+
+=for hackers
+Found in file universal.c
+
+=item SvEND
+X<SvEND>
+
+Returns a pointer to the spot just after the last character in
+the string which is in the SV, where there is usually a trailing
+C<NUL> character (even though Perl scalars do not strictly require it).
+See C<L</SvCUR>>.  Access the character as C<*(SvEND(sv))>.
+
+Warning: If C<SvCUR> is equal to C<SvLEN>, then C<SvEND> points to
+unallocated memory.
+
+	char*	SvEND(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvGAMAGIC
+X<SvGAMAGIC>
+
+Returns true if the SV has get magic or
+overloading.  If either is true then
+the scalar is active data, and has the potential to return a new value every
+time it is accessed.  Hence you must be careful to
+only read it once per user logical operation and work
+with that returned value.  If neither is true then
+the scalar's value cannot change unless written to.
+
+	U32	SvGAMAGIC(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvGROW
+X<SvGROW>
+
+Expands the character buffer in the SV so that it has room for the
+indicated number of bytes (remember to reserve space for an extra trailing
+C<NUL> character).  Calls C<sv_grow> to perform the expansion if necessary.
+Returns a pointer to the character
+buffer.  SV must be of type >= C<SVt_PV>.  One
+alternative is to call C<sv_grow> if you are not sure of the type of SV.
+
+	char *	SvGROW(SV* sv, STRLEN len)
+
+=for hackers
+Found in file sv.h
+
+=item SvIOK
+X<SvIOK>
+
+Returns a U32 value indicating whether the SV contains an integer.
+
+	U32	SvIOK(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvIOK_notUV
+X<SvIOK_notUV>
+
+Returns a boolean indicating whether the SV contains a signed integer.
+
+	bool	SvIOK_notUV(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvIOK_off
+X<SvIOK_off>
+
+Unsets the IV status of an SV.
+
+	void	SvIOK_off(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvIOK_on
+X<SvIOK_on>
+
+Tells an SV that it is an integer.
+
+	void	SvIOK_on(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvIOK_only
+X<SvIOK_only>
+
+Tells an SV that it is an integer and disables all other C<OK> bits.
+
+	void	SvIOK_only(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvIOK_only_UV
+X<SvIOK_only_UV>
+
+Tells an SV that it is an unsigned integer and disables all other C<OK> bits.
+
+	void	SvIOK_only_UV(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvIOKp
+X<SvIOKp>
+
+Returns a U32 value indicating whether the SV contains an integer.  Checks
+the B<private> setting.  Use C<SvIOK> instead.
+
+	U32	SvIOKp(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvIOK_UV
+X<SvIOK_UV>
+
+Returns a boolean indicating whether the SV contains an integer that must be
+interpreted as unsigned.  A non-negative integer whose value is within the
+range of both an IV and a UV may be be flagged as either C<SvUOK> or C<SVIOK>.
+
+	bool	SvIOK_UV(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvIsCOW
+X<SvIsCOW>
+
+Returns a U32 value indicating whether the SV is Copy-On-Write (either shared
+hash key scalars, or full Copy On Write scalars if 5.9.0 is configured for
+COW).
+
+	U32	SvIsCOW(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvIsCOW_shared_hash
+X<SvIsCOW_shared_hash>
+
+Returns a boolean indicating whether the SV is Copy-On-Write shared hash key
+scalar.
+
+	bool	SvIsCOW_shared_hash(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvIV
+X<SvIV>
+
+Coerces the given SV to an integer and returns it.  See C<L</SvIVx>> for a
+version which guarantees to evaluate C<sv> only once.
+
+	IV	SvIV(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvIV_nomg
+X<SvIV_nomg>
+
+Like C<SvIV> but doesn't process magic.
+
+	IV	SvIV_nomg(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvIV_set
+X<SvIV_set>
+
+Set the value of the IV pointer in sv to val.  It is possible to perform
+the same function of this macro with an lvalue assignment to C<SvIVX>.
+With future Perls, however, it will be more efficient to use 
+C<SvIV_set> instead of the lvalue assignment to C<SvIVX>.
+
+	void	SvIV_set(SV* sv, IV val)
+
+=for hackers
+Found in file sv.h
+
+=item SvIVX
+X<SvIVX>
+
+Returns the raw value in the SV's IV slot, without checks or conversions.
+Only use when you are sure C<SvIOK> is true.  See also C<L</SvIV>>.
+
+	IV	SvIVX(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvIVx
+X<SvIVx>
+
+Coerces the given SV to an integer and returns it.
+Guarantees to evaluate C<sv> only once.  Only use
+this if C<sv> is an expression with side effects,
+otherwise use the more efficient C<SvIV>.
+
+	IV	SvIVx(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvLEN
+X<SvLEN>
+
+Returns the size of the string buffer in the SV, not including any part
+attributable to C<SvOOK>.  See C<L</SvCUR>>.
+
+	STRLEN	SvLEN(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvLEN_set
+X<SvLEN_set>
+
+Set the size of the string buffer for the SV. See C<L</SvLEN>>.
+
+	void	SvLEN_set(SV* sv, STRLEN len)
+
+=for hackers
+Found in file sv.h
+
+=item SvMAGIC_set
+X<SvMAGIC_set>
+
+Set the value of the MAGIC pointer in C<sv> to val.  See C<L</SvIV_set>>.
+
+	void	SvMAGIC_set(SV* sv, MAGIC* val)
+
+=for hackers
+Found in file sv.h
+
+=item SvNIOK
+X<SvNIOK>
+
+Returns a U32 value indicating whether the SV contains a number, integer or
+double.
+
+	U32	SvNIOK(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvNIOK_off
+X<SvNIOK_off>
+
+Unsets the NV/IV status of an SV.
+
+	void	SvNIOK_off(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvNIOKp
+X<SvNIOKp>
+
+Returns a U32 value indicating whether the SV contains a number, integer or
+double.  Checks the B<private> setting.  Use C<SvNIOK> instead.
+
+	U32	SvNIOKp(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvNOK
+X<SvNOK>
+
+Returns a U32 value indicating whether the SV contains a double.
+
+	U32	SvNOK(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvNOK_off
+X<SvNOK_off>
+
+Unsets the NV status of an SV.
+
+	void	SvNOK_off(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvNOK_on
+X<SvNOK_on>
+
+Tells an SV that it is a double.
+
+	void	SvNOK_on(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvNOK_only
+X<SvNOK_only>
+
+Tells an SV that it is a double and disables all other OK bits.
+
+	void	SvNOK_only(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvNOKp
+X<SvNOKp>
+
+Returns a U32 value indicating whether the SV contains a double.  Checks the
+B<private> setting.  Use C<SvNOK> instead.
+
+	U32	SvNOKp(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvNV
+X<SvNV>
+
+Coerce the given SV to a double and return it.  See C<L</SvNVx>> for a version
+which guarantees to evaluate C<sv> only once.
+
+	NV	SvNV(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvNV_nomg
+X<SvNV_nomg>
+
+Like C<SvNV> but doesn't process magic.
+
+	NV	SvNV_nomg(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvNV_set
+X<SvNV_set>
+
+Set the value of the NV pointer in C<sv> to val.  See C<L</SvIV_set>>.
+
+	void	SvNV_set(SV* sv, NV val)
+
+=for hackers
+Found in file sv.h
+
+=item SvNVX
+X<SvNVX>
+
+Returns the raw value in the SV's NV slot, without checks or conversions.
+Only use when you are sure C<SvNOK> is true.  See also C<L</SvNV>>.
+
+	NV	SvNVX(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvNVx
+X<SvNVx>
+
+Coerces the given SV to a double and returns it.
+Guarantees to evaluate C<sv> only once.  Only use
+this if C<sv> is an expression with side effects,
+otherwise use the more efficient C<SvNV>.
+
+	NV	SvNVx(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvOK
+X<SvOK>
+
+Returns a U32 value indicating whether the value is defined.  This is
+only meaningful for scalars.
+
+	U32	SvOK(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvOOK
+X<SvOOK>
+
+Returns a U32 indicating whether the pointer to the string buffer is offset.
+This hack is used internally to speed up removal of characters from the
+beginning of a C<SvPV>.  When C<SvOOK> is true, then the start of the
+allocated string buffer is actually C<SvOOK_offset()> bytes before C<SvPVX>.
+This offset used to be stored in C<SvIVX>, but is now stored within the spare
+part of the buffer.
+
+	U32	SvOOK(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvOOK_offset
+X<SvOOK_offset>
+
+Reads into C<len> the offset from C<SvPVX> back to the true start of the
+allocated buffer, which will be non-zero if C<sv_chop> has been used to
+efficiently remove characters from start of the buffer.  Implemented as a
+macro, which takes the address of C<len>, which must be of type C<STRLEN>.
+Evaluates C<sv> more than once.  Sets C<len> to 0 if C<SvOOK(sv)> is false.
+
+	void	SvOOK_offset(NN SV*sv, STRLEN len)
+
+=for hackers
+Found in file sv.h
+
+=item SvPOK
+X<SvPOK>
+
+Returns a U32 value indicating whether the SV contains a character
+string.
+
+	U32	SvPOK(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvPOK_off
+X<SvPOK_off>
+
+Unsets the PV status of an SV.
+
+	void	SvPOK_off(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvPOK_on
+X<SvPOK_on>
+
+Tells an SV that it is a string.
+
+	void	SvPOK_on(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvPOK_only
+X<SvPOK_only>
+
+Tells an SV that it is a string and disables all other C<OK> bits.
+Will also turn off the UTF-8 status.
+
+	void	SvPOK_only(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvPOK_only_UTF8
+X<SvPOK_only_UTF8>
+
+Tells an SV that it is a string and disables all other C<OK> bits,
+and leaves the UTF-8 status as it was.
+
+	void	SvPOK_only_UTF8(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvPOKp
+X<SvPOKp>
+
+Returns a U32 value indicating whether the SV contains a character string.
+Checks the B<private> setting.  Use C<SvPOK> instead.
+
+	U32	SvPOKp(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvPV
+X<SvPV>
+
+Returns a pointer to the string in the SV, or a stringified form of
+the SV if the SV does not contain a string.  The SV may cache the
+stringified version becoming C<SvPOK>.  Handles 'get' magic.  The
+C<len> variable will be set to the length of the string (this is a macro, so
+don't use C<&len>).  See also C<L</SvPVx>> for a version which guarantees to
+evaluate C<sv> only once.
+
+Note that there is no guarantee that the return value of C<SvPV()> is
+equal to C<SvPVX(sv)>, or that C<SvPVX(sv)> contains valid data, or that
+successive calls to C<SvPV(sv)> will return the same pointer value each
+time.  This is due to the way that things like overloading and
+Copy-On-Write are handled.  In these cases, the return value may point to
+a temporary buffer or similar.  If you absolutely need the C<SvPVX> field to
+be valid (for example, if you intend to write to it), then see
+C<L</SvPV_force>>.
+
+	char*	SvPV(SV* sv, STRLEN len)
+
+=for hackers
+Found in file sv.h
+
+=item SvPVbyte
+X<SvPVbyte>
+
+Like C<SvPV>, but converts C<sv> to byte representation first if necessary.
+
+	char*	SvPVbyte(SV* sv, STRLEN len)
+
+=for hackers
+Found in file sv.h
+
+=item SvPVbyte_force
+X<SvPVbyte_force>
+
+Like C<SvPV_force>, but converts C<sv> to byte representation first if necessary.
+
+	char*	SvPVbyte_force(SV* sv, STRLEN len)
+
+=for hackers
+Found in file sv.h
+
+=item SvPVbyte_nolen
+X<SvPVbyte_nolen>
+
+Like C<SvPV_nolen>, but converts C<sv> to byte representation first if necessary.
+
+	char*	SvPVbyte_nolen(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvPVbytex
+X<SvPVbytex>
+
+Like C<SvPV>, but converts C<sv> to byte representation first if necessary.
+Guarantees to evaluate C<sv> only once; use the more efficient C<SvPVbyte>
+otherwise.
+
+	char*	SvPVbytex(SV* sv, STRLEN len)
+
+=for hackers
+Found in file sv.h
+
+=item SvPVbytex_force
+X<SvPVbytex_force>
+
+Like C<SvPV_force>, but converts C<sv> to byte representation first if necessary.
+Guarantees to evaluate C<sv> only once; use the more efficient C<SvPVbyte_force>
+otherwise.
+
+	char*	SvPVbytex_force(SV* sv, STRLEN len)
+
+=for hackers
+Found in file sv.h
+
+=item SvPV_force
+X<SvPV_force>
+
+Like C<SvPV> but will force the SV into containing a string (C<SvPOK>), and
+only a string (C<SvPOK_only>), by hook or by crook.  You need force if you are
+going to update the C<SvPVX> directly.  Processes get magic.
+
+Note that coercing an arbitrary scalar into a plain PV will potentially
+strip useful data from it.  For example if the SV was C<SvROK>, then the
+referent will have its reference count decremented, and the SV itself may
+be converted to an C<SvPOK> scalar with a string buffer containing a value
+such as C<"ARRAY(0x1234)">.
+
+	char*	SvPV_force(SV* sv, STRLEN len)
+
+=for hackers
+Found in file sv.h
+
+=item SvPV_force_nomg
+X<SvPV_force_nomg>
+
+Like C<SvPV_force>, but doesn't process get magic.
+
+	char*	SvPV_force_nomg(SV* sv, STRLEN len)
+
+=for hackers
+Found in file sv.h
+
+=item SvPV_nolen
+X<SvPV_nolen>
+
+Like C<SvPV> but doesn't set a length variable.
+
+	char*	SvPV_nolen(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvPV_nomg
+X<SvPV_nomg>
+
+Like C<SvPV> but doesn't process magic.
+
+	char*	SvPV_nomg(SV* sv, STRLEN len)
+
+=for hackers
+Found in file sv.h
+
+=item SvPV_nomg_nolen
+X<SvPV_nomg_nolen>
+
+Like C<SvPV_nolen> but doesn't process magic.
+
+	char*	SvPV_nomg_nolen(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvPV_set
+X<SvPV_set>
+
+This is probably not what you want to use, you probably wanted
+L</sv_usepvn_flags> or L</sv_setpvn> or L</sv_setpvs>.
+
+Set the value of the PV pointer in C<sv> to the Perl allocated
+C<NUL>-terminated string C<val>.  See also C<L</SvIV_set>>.
+
+Remember to free the previous PV buffer. There are many things to check.
+Beware that the existing pointer may be involved in copy-on-write or other
+mischief, so do C<SvOOK_off(sv)> and use C<sv_force_normal> or
+C<SvPV_force> (or check the C<SvIsCOW> flag) first to make sure this
+modification is safe. Then finally, if it is not a COW, call C<SvPV_free> to
+free the previous PV buffer.
+
+	void	SvPV_set(SV* sv, char* val)
+
+=for hackers
+Found in file sv.h
+
+=item SvPVutf8
+X<SvPVutf8>
+
+Like C<SvPV>, but converts C<sv> to UTF-8 first if necessary.
+
+	char*	SvPVutf8(SV* sv, STRLEN len)
+
+=for hackers
+Found in file sv.h
+
+=item SvPVutf8x
+X<SvPVutf8x>
+
+Like C<SvPV>, but converts C<sv> to UTF-8 first if necessary.
+Guarantees to evaluate C<sv> only once; use the more efficient C<SvPVutf8>
+otherwise.
+
+	char*	SvPVutf8x(SV* sv, STRLEN len)
+
+=for hackers
+Found in file sv.h
+
+=item SvPVutf8x_force
+X<SvPVutf8x_force>
+
+Like C<SvPV_force>, but converts C<sv> to UTF-8 first if necessary.
+Guarantees to evaluate C<sv> only once; use the more efficient C<SvPVutf8_force>
+otherwise.
+
+	char*	SvPVutf8x_force(SV* sv, STRLEN len)
+
+=for hackers
+Found in file sv.h
+
+=item SvPVutf8_force
+X<SvPVutf8_force>
+
+Like C<SvPV_force>, but converts C<sv> to UTF-8 first if necessary.
+
+	char*	SvPVutf8_force(SV* sv, STRLEN len)
+
+=for hackers
+Found in file sv.h
+
+=item SvPVutf8_nolen
+X<SvPVutf8_nolen>
+
+Like C<SvPV_nolen>, but converts C<sv> to UTF-8 first if necessary.
+
+	char*	SvPVutf8_nolen(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvPVX
+X<SvPVX>
+
+Returns a pointer to the physical string in the SV.  The SV must contain a
+string.  Prior to 5.9.3 it is not safe
+to execute this macro unless the SV's
+type >= C<SVt_PV>.
+
+This is also used to store the name of an autoloaded subroutine in an XS
+AUTOLOAD routine.  See L<perlguts/Autoloading with XSUBs>.
+
+	char*	SvPVX(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvPVx
+X<SvPVx>
+
+A version of C<SvPV> which guarantees to evaluate C<sv> only once.
+Only use this if C<sv> is an expression with side effects, otherwise use the
+more efficient C<SvPV>.
+
+	char*	SvPVx(SV* sv, STRLEN len)
+
+=for hackers
+Found in file sv.h
+
+=item SvREFCNT
+X<SvREFCNT>
+
+Returns the value of the object's reference count.
+
+	U32	SvREFCNT(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvREFCNT_dec
+X<SvREFCNT_dec>
+
+Decrements the reference count of the given SV.  C<sv> may be C<NULL>.
+
+	void	SvREFCNT_dec(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvREFCNT_dec_NN
+X<SvREFCNT_dec_NN>
+
+Same as C<SvREFCNT_dec>, but can only be used if you know C<sv>
+is not C<NULL>.  Since we don't have to check the NULLness, it's faster
+and smaller.
+
+	void	SvREFCNT_dec_NN(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvREFCNT_inc
+X<SvREFCNT_inc>
+
+Increments the reference count of the given SV, returning the SV.
+
+All of the following C<SvREFCNT_inc>* macros are optimized versions of
+C<SvREFCNT_inc>, and can be replaced with C<SvREFCNT_inc>.
+
+	SV*	SvREFCNT_inc(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvREFCNT_inc_NN
+X<SvREFCNT_inc_NN>
+
+Same as C<SvREFCNT_inc>, but can only be used if you know C<sv>
+is not C<NULL>.  Since we don't have to check the NULLness, it's faster
+and smaller.
+
+	SV*	SvREFCNT_inc_NN(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvREFCNT_inc_simple
+X<SvREFCNT_inc_simple>
+
+Same as C<SvREFCNT_inc>, but can only be used with expressions without side
+effects.  Since we don't have to store a temporary value, it's faster.
+
+	SV*	SvREFCNT_inc_simple(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvREFCNT_inc_simple_NN
+X<SvREFCNT_inc_simple_NN>
+
+Same as C<SvREFCNT_inc_simple>, but can only be used if you know C<sv>
+is not C<NULL>.  Since we don't have to check the NULLness, it's faster
+and smaller.
+
+	SV*	SvREFCNT_inc_simple_NN(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvREFCNT_inc_simple_void
+X<SvREFCNT_inc_simple_void>
+
+Same as C<SvREFCNT_inc_simple>, but can only be used if you don't need the
+return value.  The macro doesn't need to return a meaningful value.
+
+	void	SvREFCNT_inc_simple_void(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvREFCNT_inc_simple_void_NN
+X<SvREFCNT_inc_simple_void_NN>
+
+Same as C<SvREFCNT_inc>, but can only be used if you don't need the return
+value, and you know that C<sv> is not C<NULL>.  The macro doesn't need
+to return a meaningful value, or check for NULLness, so it's smaller
+and faster.
+
+	void	SvREFCNT_inc_simple_void_NN(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvREFCNT_inc_void
+X<SvREFCNT_inc_void>
+
+Same as C<SvREFCNT_inc>, but can only be used if you don't need the
+return value.  The macro doesn't need to return a meaningful value.
+
+	void	SvREFCNT_inc_void(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvREFCNT_inc_void_NN
+X<SvREFCNT_inc_void_NN>
+
+Same as C<SvREFCNT_inc>, but can only be used if you don't need the return
+value, and you know that C<sv> is not C<NULL>.  The macro doesn't need
+to return a meaningful value, or check for NULLness, so it's smaller
+and faster.
+
+	void	SvREFCNT_inc_void_NN(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item sv_report_used
+X<sv_report_used>
+
+Dump the contents of all SVs not yet freed (debugging aid).
+
+	void	sv_report_used()
+
+=for hackers
+Found in file sv.c
+
+=item SvROK
+X<SvROK>
+
+Tests if the SV is an RV.
+
+	U32	SvROK(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvROK_off
+X<SvROK_off>
+
+Unsets the RV status of an SV.
+
+	void	SvROK_off(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvROK_on
+X<SvROK_on>
+
+Tells an SV that it is an RV.
+
+	void	SvROK_on(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvRV
+X<SvRV>
+
+Dereferences an RV to return the SV.
+
+	SV*	SvRV(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvRV_set
+X<SvRV_set>
+
+Set the value of the RV pointer in C<sv> to val.  See C<L</SvIV_set>>.
+
+	void	SvRV_set(SV* sv, SV* val)
+
+=for hackers
+Found in file sv.h
+
+=item sv_setsv_nomg
+X<sv_setsv_nomg>
+
+Like C<sv_setsv> but doesn't process magic.
+
+	void	sv_setsv_nomg(SV* dsv, SV* ssv)
+
+=for hackers
+Found in file sv.h
+
+=item SvSTASH
+X<SvSTASH>
+
+Returns the stash of the SV.
+
+	HV*	SvSTASH(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvSTASH_set
+X<SvSTASH_set>
+
+Set the value of the STASH pointer in C<sv> to val.  See C<L</SvIV_set>>.
+
+	void	SvSTASH_set(SV* sv, HV* val)
+
+=for hackers
+Found in file sv.h
+
+=item SvTAINT
+X<SvTAINT>
+
+Taints an SV if tainting is enabled, and if some input to the current
+expression is tainted--usually a variable, but possibly also implicit
+inputs such as locale settings.  C<SvTAINT> propagates that taintedness to
+the outputs of an expression in a pessimistic fashion; i.e., without paying
+attention to precisely which outputs are influenced by which inputs.
+
+	void	SvTAINT(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvTAINTED
+X<SvTAINTED>
+
+Checks to see if an SV is tainted.  Returns TRUE if it is, FALSE if
+not.
+
+	bool	SvTAINTED(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvTAINTED_off
+X<SvTAINTED_off>
+
+Untaints an SV.  Be I<very> careful with this routine, as it short-circuits
+some of Perl's fundamental security features.  XS module authors should not
+use this function unless they fully understand all the implications of
+unconditionally untainting the value.  Untainting should be done in the
+standard perl fashion, via a carefully crafted regexp, rather than directly
+untainting variables.
+
+	void	SvTAINTED_off(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvTAINTED_on
+X<SvTAINTED_on>
+
+Marks an SV as tainted if tainting is enabled.
+
+	void	SvTAINTED_on(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvTRUE
+X<SvTRUE>
+
+Returns a boolean indicating whether Perl would evaluate the SV as true or
+false.  See C<L</SvOK>> for a defined/undefined test.  Handles 'get' magic
+unless the scalar is already C<SvPOK>, C<SvIOK> or C<SvNOK> (the public, not the
+private flags).
+
+	bool	SvTRUE(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvTRUE_nomg
+X<SvTRUE_nomg>
+
+Returns a boolean indicating whether Perl would evaluate the SV as true or
+false.  See C<L</SvOK>> for a defined/undefined test.  Does not handle 'get' magic.
+
+	bool	SvTRUE_nomg(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvTYPE
+X<SvTYPE>
+
+Returns the type of the SV.  See C<L</svtype>>.
+
+	svtype	SvTYPE(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvUOK
+X<SvUOK>
+
+Returns a boolean indicating whether the SV contains an integer that must be
+interpreted as unsigned.  A non-negative integer whose value is within the
+range of both an IV and a UV may be be flagged as either C<SvUOK> or C<SVIOK>.
+
+	bool	SvUOK(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvUPGRADE
+X<SvUPGRADE>
+
+Used to upgrade an SV to a more complex form.  Uses C<sv_upgrade> to
+perform the upgrade if necessary.  See C<L</svtype>>.
+
+	void	SvUPGRADE(SV* sv, svtype type)
+
+=for hackers
+Found in file sv.h
+
+=item SvUTF8
+X<SvUTF8>
+
+Returns a U32 value indicating the UTF-8 status of an SV.  If things are set-up
+properly, this indicates whether or not the SV contains UTF-8 encoded data.
+You should use this I<after> a call to C<SvPV()> or one of its variants, in
+case any call to string overloading updates the internal flag.
+
+If you want to take into account the L<bytes> pragma, use C<L</DO_UTF8>>
+instead.
+
+	U32	SvUTF8(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item sv_utf8_upgrade_nomg
+X<sv_utf8_upgrade_nomg>
+
+Like C<sv_utf8_upgrade>, but doesn't do magic on C<sv>.
+
+	STRLEN	sv_utf8_upgrade_nomg(NN SV *sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvUTF8_off
+X<SvUTF8_off>
+
+Unsets the UTF-8 status of an SV (the data is not changed, just the flag).
+Do not use frivolously.
+
+	void	SvUTF8_off(SV *sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvUTF8_on
+X<SvUTF8_on>
+
+Turn on the UTF-8 status of an SV (the data is not changed, just the flag).
+Do not use frivolously.
+
+	void	SvUTF8_on(SV *sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvUV
+X<SvUV>
+
+Coerces the given SV to an unsigned integer and returns it.  See C<L</SvUVx>>
+for a version which guarantees to evaluate C<sv> only once.
+
+	UV	SvUV(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvUV_nomg
+X<SvUV_nomg>
+
+Like C<SvUV> but doesn't process magic.
+
+	UV	SvUV_nomg(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvUV_set
+X<SvUV_set>
+
+Set the value of the UV pointer in C<sv> to val.  See C<L</SvIV_set>>.
+
+	void	SvUV_set(SV* sv, UV val)
+
+=for hackers
+Found in file sv.h
+
+=item SvUVX
+X<SvUVX>
+
+Returns the raw value in the SV's UV slot, without checks or conversions.
+Only use when you are sure C<SvIOK> is true.  See also C<L</SvUV>>.
+
+	UV	SvUVX(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvUVx
+X<SvUVx>
+
+Coerces the given SV to an unsigned integer and
+returns it.  Guarantees to evaluate C<sv> only once.  Only
+use this if C<sv> is an expression with side effects,
+otherwise use the more efficient C<SvUV>.
+
+	UV	SvUVx(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+=item SvVOK
+X<SvVOK>
+
+Returns a boolean indicating whether the SV contains a v-string.
+
+	bool	SvVOK(SV* sv)
+
+=for hackers
+Found in file sv.h
+
+
+=back
+
+=head1 Unicode Support
+
+L<perlguts/Unicode Support> has an introduction to this API.
+
+See also L</Character classification>,
+and L</Character case changing>.
+Various functions outside this section also work specially with Unicode.
+Search for the string "utf8" in this document.
+
+
+=over 8
+
+=item bytes_cmp_utf8
+X<bytes_cmp_utf8>
+
+Compares the sequence of characters (stored as octets) in C<b>, C<blen> with the
+sequence of characters (stored as UTF-8)
+in C<u>, C<ulen>.  Returns 0 if they are
+equal, -1 or -2 if the first string is less than the second string, +1 or +2
+if the first string is greater than the second string.
+
+-1 or +1 is returned if the shorter string was identical to the start of the
+longer string.  -2 or +2 is returned if
+there was a difference between characters
+within the strings.
+
+	int	bytes_cmp_utf8(const U8 *b, STRLEN blen,
+		               const U8 *u, STRLEN ulen)
+
+=for hackers
+Found in file utf8.c
+
+=item bytes_from_utf8
+X<bytes_from_utf8>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Converts a string C<s> of length C<len> from UTF-8 into native byte encoding.
+Unlike L</utf8_to_bytes> but like L</bytes_to_utf8>, returns a pointer to
+the newly-created string, and updates C<len> to contain the new
+length.  Returns the original string if no conversion occurs, C<len>
+is unchanged.  Do nothing if C<is_utf8> points to 0.  Sets C<is_utf8> to
+0 if C<s> is converted or consisted entirely of characters that are invariant
+in UTF-8 (i.e., US-ASCII on non-EBCDIC machines).
+
+	U8*	bytes_from_utf8(const U8 *s, STRLEN *len,
+		                bool *is_utf8)
+
+=for hackers
+Found in file utf8.c
+
+=item bytes_to_utf8
+X<bytes_to_utf8>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Converts a string C<s> of length C<len> bytes from the native encoding into
+UTF-8.
+Returns a pointer to the newly-created string, and sets C<len> to
+reflect the new length in bytes.
+
+A C<NUL> character will be written after the end of the string.
+
+If you want to convert to UTF-8 from encodings other than
+the native (Latin1 or EBCDIC),
+see L</sv_recode_to_utf8>().
+
+	U8*	bytes_to_utf8(const U8 *s, STRLEN *len)
+
+=for hackers
+Found in file utf8.c
+
+=item DO_UTF8
+X<DO_UTF8>
+
+Returns a bool giving whether or not the PV in C<sv> is to be treated as being
+encoded in UTF-8.
+
+You should use this I<after> a call to C<SvPV()> or one of its variants, in
+case any call to string overloading updates the internal UTF-8 encoding flag.
+
+	bool	DO_UTF8(SV* sv)
+
+=for hackers
+Found in file utf8.h
+
+=item foldEQ_utf8
+X<foldEQ_utf8>
+
+Returns true if the leading portions of the strings C<s1> and C<s2> (either or both
+of which may be in UTF-8) are the same case-insensitively; false otherwise.
+How far into the strings to compare is determined by other input parameters.
+
+If C<u1> is true, the string C<s1> is assumed to be in UTF-8-encoded Unicode;
+otherwise it is assumed to be in native 8-bit encoding.  Correspondingly for C<u2>
+with respect to C<s2>.
+
+If the byte length C<l1> is non-zero, it says how far into C<s1> to check for fold
+equality.  In other words, C<s1>+C<l1> will be used as a goal to reach.  The
+scan will not be considered to be a match unless the goal is reached, and
+scanning won't continue past that goal.  Correspondingly for C<l2> with respect to
+C<s2>.
+
+If C<pe1> is non-C<NULL> and the pointer it points to is not C<NULL>, that pointer is
+considered an end pointer to the position 1 byte past the maximum point
+in C<s1> beyond which scanning will not continue under any circumstances.
+(This routine assumes that UTF-8 encoded input strings are not malformed;
+malformed input can cause it to read past C<pe1>).
+This means that if both C<l1> and C<pe1> are specified, and C<pe1>
+is less than C<s1>+C<l1>, the match will never be successful because it can
+never
+get as far as its goal (and in fact is asserted against).  Correspondingly for
+C<pe2> with respect to C<s2>.
+
+At least one of C<s1> and C<s2> must have a goal (at least one of C<l1> and
+C<l2> must be non-zero), and if both do, both have to be
+reached for a successful match.   Also, if the fold of a character is multiple
+characters, all of them must be matched (see tr21 reference below for
+'folding').
+
+Upon a successful match, if C<pe1> is non-C<NULL>,
+it will be set to point to the beginning of the I<next> character of C<s1>
+beyond what was matched.  Correspondingly for C<pe2> and C<s2>.
+
+For case-insensitiveness, the "casefolding" of Unicode is used
+instead of upper/lowercasing both the characters, see
+L<http://www.unicode.org/unicode/reports/tr21/> (Case Mappings).
+
+	I32	foldEQ_utf8(const char *s1, char **pe1, UV l1,
+		            bool u1, const char *s2, char **pe2,
+		            UV l2, bool u2)
+
+=for hackers
+Found in file utf8.c
+
+=item is_ascii_string
+X<is_ascii_string>
+
+This is a misleadingly-named synonym for L</is_invariant_string>.
+On ASCII-ish platforms, the name isn't misleading: the ASCII-range characters
+are exactly the UTF-8 invariants.  But EBCDIC machines have more invariants
+than just the ASCII characters, so C<is_invariant_string> is preferred.
+
+	bool	is_ascii_string(const U8 *s, STRLEN len)
+
+=for hackers
+Found in file utf8.h
+
+=item is_invariant_string
+X<is_invariant_string>
+
+Returns true iff the first C<len> bytes of the string C<s> are the same
+regardless of the UTF-8 encoding of the string (or UTF-EBCDIC encoding on
+EBCDIC machines).  That is, if they are UTF-8 invariant.  On ASCII-ish
+machines, all the ASCII characters and only the ASCII characters fit this
+definition.  On EBCDIC machines, the ASCII-range characters are invariant, but
+so also are the C1 controls and C<\c?> (which isn't in the ASCII range on
+EBCDIC).
+
+If C<len> is 0, it will be calculated using C<strlen(s)>, (which means if you
+use this option, that C<s> can't have embedded C<NUL> characters and has to
+have a terminating C<NUL> byte).
+
+See also L</is_utf8_string>(), L</is_utf8_string_loclen>(), and L</is_utf8_string_loc>().
+
+	bool	is_invariant_string(const U8 *s, STRLEN len)
+
+=for hackers
+Found in file utf8.c
+
+=item is_utf8_string
+X<is_utf8_string>
+
+Returns true if the first C<len> bytes of string C<s> form a valid
+UTF-8 string, false otherwise.  If C<len> is 0, it will be calculated
+using C<strlen(s)> (which means if you use this option, that C<s> can't have
+embedded C<NUL> characters and has to have a terminating C<NUL> byte).  Note
+that all characters being ASCII constitute 'a valid UTF-8 string'.
+
+See also L</is_invariant_string>(), L</is_utf8_string_loclen>(), and L</is_utf8_string_loc>().
+
+	bool	is_utf8_string(const U8 *s, STRLEN len)
+
+=for hackers
+Found in file utf8.c
+
+=item is_utf8_string_loc
+X<is_utf8_string_loc>
+
+Like L</is_utf8_string> but stores the location of the failure (in the
+case of "utf8ness failure") or the location C<s>+C<len> (in the case of
+"utf8ness success") in the C<ep>.
+
+See also L</is_utf8_string_loclen>() and L</is_utf8_string>().
+
+	bool	is_utf8_string_loc(const U8 *s, STRLEN len,
+		                   const U8 **ep)
+
+=for hackers
+Found in file utf8.c
+
+=item is_utf8_string_loclen
+X<is_utf8_string_loclen>
+
+Like L</is_utf8_string>() but stores the location of the failure (in the
+case of "utf8ness failure") or the location C<s>+C<len> (in the case of
+"utf8ness success") in the C<ep>, and the number of UTF-8
+encoded characters in the C<el>.
+
+See also L</is_utf8_string_loc>() and L</is_utf8_string>().
+
+	bool	is_utf8_string_loclen(const U8 *s, STRLEN len,
+		                      const U8 **ep, STRLEN *el)
+
+=for hackers
+Found in file utf8.c
+
+=item isUTF8_CHAR
+X<isUTF8_CHAR>
+
+Returns the number of bytes beginning at C<s> which form a legal UTF-8 (or
+UTF-EBCDIC) encoded character, looking no further than S<C<e - s>> bytes into
+C<s>.  Returns 0 if the sequence starting at C<s> through S<C<e - 1>> is not
+well-formed UTF-8.
+
+Note that an INVARIANT character (i.e. ASCII on non-EBCDIC
+machines) is a valid UTF-8 character.
+
+	STRLEN	isUTF8_CHAR(const U8 *s, const U8 *e)
+
+=for hackers
+Found in file utf8.h
+
+=item pv_uni_display
+X<pv_uni_display>
+
+Build to the scalar C<dsv> a displayable version of the string C<spv>,
+length C<len>, the displayable version being at most C<pvlim> bytes long
+(if longer, the rest is truncated and C<"..."> will be appended).
+
+The C<flags> argument can have C<UNI_DISPLAY_ISPRINT> set to display
+C<isPRINT()>able characters as themselves, C<UNI_DISPLAY_BACKSLASH>
+to display the C<\\[nrfta\\]> as the backslashed versions (like C<"\n">)
+(C<UNI_DISPLAY_BACKSLASH> is preferred over C<UNI_DISPLAY_ISPRINT> for C<"\\">).
+C<UNI_DISPLAY_QQ> (and its alias C<UNI_DISPLAY_REGEX>) have both
+C<UNI_DISPLAY_BACKSLASH> and C<UNI_DISPLAY_ISPRINT> turned on.
+
+The pointer to the PV of the C<dsv> is returned.
+
+See also L</sv_uni_display>.
+
+	char*	pv_uni_display(SV *dsv, const U8 *spv,
+		               STRLEN len, STRLEN pvlim,
+		               UV flags)
+
+=for hackers
+Found in file utf8.c
+
+=item sv_cat_decode
+X<sv_cat_decode>
+
+C<encoding> is assumed to be an C<Encode> object, the PV of C<ssv> is
+assumed to be octets in that encoding and decoding the input starts
+from the position which S<C<(PV + *offset)>> pointed to.  C<dsv> will be
+concatenated with the decoded UTF-8 string from C<ssv>.  Decoding will terminate
+when the string C<tstr> appears in decoding output or the input ends on
+the PV of C<ssv>.  The value which C<offset> points will be modified
+to the last input position on C<ssv>.
+
+Returns TRUE if the terminator was found, else returns FALSE.
+
+	bool	sv_cat_decode(SV* dsv, SV *encoding, SV *ssv,
+		              int *offset, char* tstr, int tlen)
+
+=for hackers
+Found in file sv.c
+
+=item sv_recode_to_utf8
+X<sv_recode_to_utf8>
+
+C<encoding> is assumed to be an C<Encode> object, on entry the PV
+of C<sv> is assumed to be octets in that encoding, and C<sv>
+will be converted into Unicode (and UTF-8).
+
+If C<sv> already is UTF-8 (or if it is not C<POK>), or if C<encoding>
+is not a reference, nothing is done to C<sv>.  If C<encoding> is not
+an C<Encode::XS> Encoding object, bad things will happen.
+(See F<cpan/Encode/encoding.pm> and L<Encode>.)
+
+The PV of C<sv> is returned.
+
+	char*	sv_recode_to_utf8(SV* sv, SV *encoding)
+
+=for hackers
+Found in file sv.c
+
+=item sv_uni_display
+X<sv_uni_display>
+
+Build to the scalar C<dsv> a displayable version of the scalar C<sv>,
+the displayable version being at most C<pvlim> bytes long
+(if longer, the rest is truncated and "..." will be appended).
+
+The C<flags> argument is as in L</pv_uni_display>().
+
+The pointer to the PV of the C<dsv> is returned.
+
+	char*	sv_uni_display(SV *dsv, SV *ssv, STRLEN pvlim,
+		               UV flags)
+
+=for hackers
+Found in file utf8.c
+
+=item to_utf8_case
+X<to_utf8_case>
+
+
+DEPRECATED!  It is planned to remove this function from a
+future release of Perl.  Do not use it for new code; remove it from
+existing code.
+
+
+Instead use the appropriate one of L</toUPPER_utf8>,
+L</toTITLE_utf8>,
+L</toLOWER_utf8>,
+or L</toFOLD_utf8>.
+
+C<p> contains the pointer to the UTF-8 string encoding
+the character that is being converted.  This routine assumes that the character
+at C<p> is well-formed.
+
+C<ustrp> is a pointer to the character buffer to put the
+conversion result to.  C<lenp> is a pointer to the length
+of the result.
+
+C<swashp> is a pointer to the swash to use.
+
+Both the special and normal mappings are stored in F<lib/unicore/To/Foo.pl>,
+and loaded by C<SWASHNEW>, using F<lib/utf8_heavy.pl>.  C<special> (usually,
+but not always, a multicharacter mapping), is tried first.
+
+C<special> is a string, normally C<NULL> or C<"">.  C<NULL> means to not use
+any special mappings; C<""> means to use the special mappings.  Values other
+than these two are treated as the name of the hash containing the special
+mappings, like C<"utf8::ToSpecLower">.
+
+C<normal> is a string like C<"ToLower"> which means the swash
+C<%utf8::ToLower>.
+
+Code points above the platform's C<IV_MAX> will raise a deprecation warning,
+unless those are turned off.
+
+	UV	to_utf8_case(const U8 *p, U8* ustrp,
+		             STRLEN *lenp, SV **swashp,
+		             const char *normal,
+		             const char *special)
+
+=for hackers
+Found in file utf8.c
+
+=item to_utf8_fold
+X<to_utf8_fold>
+
+Instead use L</toFOLD_utf8>.
+
+	UV	to_utf8_fold(const U8 *p, U8* ustrp,
+		             STRLEN *lenp)
+
+=for hackers
+Found in file utf8.c
+
+=item to_utf8_lower
+X<to_utf8_lower>
+
+Instead use L</toLOWER_utf8>.
+
+	UV	to_utf8_lower(const U8 *p, U8* ustrp,
+		              STRLEN *lenp)
+
+=for hackers
+Found in file utf8.c
+
+=item to_utf8_title
+X<to_utf8_title>
+
+Instead use L</toTITLE_utf8>.
+
+	UV	to_utf8_title(const U8 *p, U8* ustrp,
+		              STRLEN *lenp)
+
+=for hackers
+Found in file utf8.c
+
+=item to_utf8_upper
+X<to_utf8_upper>
+
+Instead use L</toUPPER_utf8>.
+
+	UV	to_utf8_upper(const U8 *p, U8* ustrp,
+		              STRLEN *lenp)
+
+=for hackers
+Found in file utf8.c
+
+=item utf8n_to_uvchr
+X<utf8n_to_uvchr>
+
+THIS FUNCTION SHOULD BE USED IN ONLY VERY SPECIALIZED CIRCUMSTANCES.
+Most code should use L</utf8_to_uvchr_buf>() rather than call this directly.
+
+Bottom level UTF-8 decode routine.
+Returns the native code point value of the first character in the string C<s>,
+which is assumed to be in UTF-8 (or UTF-EBCDIC) encoding, and no longer than
+C<curlen> bytes; C<*retlen> (if C<retlen> isn't NULL) will be set to
+the length, in bytes, of that character.
+
+The value of C<flags> determines the behavior when C<s> does not point to a
+well-formed UTF-8 character.  If C<flags> is 0, when a malformation is found,
+zero is returned and C<*retlen> is set so that (S<C<s> + C<*retlen>>) is the
+next possible position in C<s> that could begin a non-malformed character.
+Also, if UTF-8 warnings haven't been lexically disabled, a warning is raised.
+
+Various ALLOW flags can be set in C<flags> to allow (and not warn on)
+individual types of malformations, such as the sequence being overlong (that
+is, when there is a shorter sequence that can express the same code point;
+overlong sequences are expressly forbidden in the UTF-8 standard due to
+potential security issues).  Another malformation example is the first byte of
+a character not being a legal first byte.  See F<utf8.h> for the list of such
+flags.  For allowed 0 length strings, this function returns 0; for allowed
+overlong sequences, the computed code point is returned; for all other allowed
+malformations, the Unicode REPLACEMENT CHARACTER is returned, as these have no
+determinable reasonable value.
+
+The C<UTF8_CHECK_ONLY> flag overrides the behavior when a non-allowed (by other
+flags) malformation is found.  If this flag is set, the routine assumes that
+the caller will raise a warning, and this function will silently just set
+C<retlen> to C<-1> (cast to C<STRLEN>) and return zero.
+
+Note that this API requires disambiguation between successful decoding a C<NUL>
+character, and an error return (unless the C<UTF8_CHECK_ONLY> flag is set), as
+in both cases, 0 is returned.  To disambiguate, upon a zero return, see if the
+first byte of C<s> is 0 as well.  If so, the input was a C<NUL>; if not, the
+input had an error.
+
+Certain code points are considered problematic.  These are Unicode surrogates,
+Unicode non-characters, and code points above the Unicode maximum of 0x10FFFF.
+By default these are considered regular code points, but certain situations
+warrant special handling for them.  If C<flags> contains
+C<UTF8_DISALLOW_ILLEGAL_INTERCHANGE>, all three classes are treated as
+malformations and handled as such.  The flags C<UTF8_DISALLOW_SURROGATE>,
+C<UTF8_DISALLOW_NONCHAR>, and C<UTF8_DISALLOW_SUPER> (meaning above the legal
+Unicode maximum) can be set to disallow these categories individually.
+
+The flags C<UTF8_WARN_ILLEGAL_INTERCHANGE>, C<UTF8_WARN_SURROGATE>,
+C<UTF8_WARN_NONCHAR>, and C<UTF8_WARN_SUPER> will cause warning messages to be
+raised for their respective categories, but otherwise the code points are
+considered valid (not malformations).  To get a category to both be treated as
+a malformation and raise a warning, specify both the WARN and DISALLOW flags.
+(But note that warnings are not raised if lexically disabled nor if
+C<UTF8_CHECK_ONLY> is also specified.)
+
+It is now deprecated to have very high code points (above C<IV_MAX> on the
+platforms) and this function will raise a deprecation warning for these (unless
+such warnings are turned off).  This value, is typically 0x7FFF_FFFF (2**31 -1)
+in a 32-bit word.
+
+Code points above 0x7FFF_FFFF (2**31 - 1) were never specified in any standard,
+so using them is more problematic than other above-Unicode code points.  Perl
+invented an extension to UTF-8 to represent the ones above 2**36-1, so it is
+likely that non-Perl languages will not be able to read files that contain
+these that written by the perl interpreter; nor would Perl understand files
+written by something that uses a different extension.  For these reasons, there
+is a separate set of flags that can warn and/or disallow these extremely high
+code points, even if other above-Unicode ones are accepted.  These are the
+C<UTF8_WARN_ABOVE_31_BIT> and C<UTF8_DISALLOW_ABOVE_31_BIT> flags.  These
+are entirely independent from the deprecation warning for code points above
+C<IV_MAX>.  On 32-bit machines, it will eventually be forbidden to have any
+code point that needs more than 31 bits to represent.  When that happens,
+effectively the C<UTF8_DISALLOW_ABOVE_31_BIT> flag will always be set on
+32-bit machines.  (Of course C<UTF8_DISALLOW_SUPER> will treat all
+above-Unicode code points, including these, as malformations; and
+C<UTF8_WARN_SUPER> warns on these.)
+
+On EBCDIC platforms starting in Perl v5.24, the Perl extension for representing
+extremely high code points kicks in at 0x3FFF_FFFF (2**30 -1), which is lower
+than on ASCII.  Prior to that, code points 2**31 and higher were simply
+unrepresentable, and a different, incompatible method was used to represent
+code points between 2**30 and 2**31 - 1.  The flags C<UTF8_WARN_ABOVE_31_BIT>
+and C<UTF8_DISALLOW_ABOVE_31_BIT> have the same function as on ASCII
+platforms, warning and disallowing 2**31 and higher.
+
+All other code points corresponding to Unicode characters, including private
+use and those yet to be assigned, are never considered malformed and never
+warn.
+
+	UV	utf8n_to_uvchr(const U8 *s, STRLEN curlen,
+		               STRLEN *retlen, U32 flags)
+
+=for hackers
+Found in file utf8.c
+
+=item utf8n_to_uvuni
+X<utf8n_to_uvuni>
+
+Instead use L</utf8_to_uvchr_buf>, or rarely, L</utf8n_to_uvchr>.
+
+This function was useful for code that wanted to handle both EBCDIC and
+ASCII platforms with Unicode properties, but starting in Perl v5.20, the
+distinctions between the platforms have mostly been made invisible to most
+code, so this function is quite unlikely to be what you want.  If you do need
+this precise functionality, use instead
+C<L<NATIVE_TO_UNI(utf8_to_uvchr_buf(...))|/utf8_to_uvchr_buf>>
+or C<L<NATIVE_TO_UNI(utf8n_to_uvchr(...))|/utf8n_to_uvchr>>.
+
+	UV	utf8n_to_uvuni(const U8 *s, STRLEN curlen,
+		               STRLEN *retlen, U32 flags)
+
+=for hackers
+Found in file utf8.c
+
+=item UTF8SKIP
+X<UTF8SKIP>
+
+returns the number of bytes in the UTF-8 encoded character whose first (perhaps
+only) byte is pointed to by C<s>.
+
+	STRLEN	UTF8SKIP(char* s)
+
+=for hackers
+Found in file utf8.h
+
+=item utf8_distance
+X<utf8_distance>
+
+Returns the number of UTF-8 characters between the UTF-8 pointers C<a>
+and C<b>.
+
+WARNING: use only if you *know* that the pointers point inside the
+same UTF-8 buffer.
+
+	IV	utf8_distance(const U8 *a, const U8 *b)
+
+=for hackers
+Found in file utf8.c
+
+=item utf8_hop
+X<utf8_hop>
+
+Return the UTF-8 pointer C<s> displaced by C<off> characters, either
+forward or backward.
+
+WARNING: do not use the following unless you *know* C<off> is within
+the UTF-8 data pointed to by C<s> *and* that on entry C<s> is aligned
+on the first byte of character or just after the last byte of a character.
+
+	U8*	utf8_hop(const U8 *s, SSize_t off)
+
+=for hackers
+Found in file utf8.c
+
+=item utf8_length
+X<utf8_length>
+
+Return the length of the UTF-8 char encoded string C<s> in characters.
+Stops at C<e> (inclusive).  If C<e E<lt> s> or if the scan would end
+up past C<e>, croaks.
+
+	STRLEN	utf8_length(const U8* s, const U8 *e)
+
+=for hackers
+Found in file utf8.c
+
+=item utf8_to_bytes
+X<utf8_to_bytes>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Converts a string C<s> of length C<len> from UTF-8 into native byte encoding.
+Unlike L</bytes_to_utf8>, this over-writes the original string, and
+updates C<len> to contain the new length.
+Returns zero on failure, setting C<len> to -1.
+
+If you need a copy of the string, see L</bytes_from_utf8>.
+
+	U8*	utf8_to_bytes(U8 *s, STRLEN *len)
+
+=for hackers
+Found in file utf8.c
+
+=item utf8_to_uvchr_buf
+X<utf8_to_uvchr_buf>
+
+Returns the native code point of the first character in the string C<s> which
+is assumed to be in UTF-8 encoding; C<send> points to 1 beyond the end of C<s>.
+C<*retlen> will be set to the length, in bytes, of that character.
+
+If C<s> does not point to a well-formed UTF-8 character and UTF8 warnings are
+enabled, zero is returned and C<*retlen> is set (if C<retlen> isn't
+C<NULL>) to -1.  If those warnings are off, the computed value, if well-defined
+(or the Unicode REPLACEMENT CHARACTER if not), is silently returned, and
+C<*retlen> is set (if C<retlen> isn't C<NULL>) so that (S<C<s> + C<*retlen>>) is
+the next possible position in C<s> that could begin a non-malformed character.
+See L</utf8n_to_uvchr> for details on when the REPLACEMENT CHARACTER is
+returned.
+
+Code points above the platform's C<IV_MAX> will raise a deprecation warning,
+unless those are turned off.
+
+	UV	utf8_to_uvchr_buf(const U8 *s, const U8 *send,
+		                  STRLEN *retlen)
+
+=for hackers
+Found in file utf8.c
+
+=item utf8_to_uvuni_buf
+X<utf8_to_uvuni_buf>
+
+
+DEPRECATED!  It is planned to remove this function from a
+future release of Perl.  Do not use it for new code; remove it from
+existing code.
+
+
+Only in very rare circumstances should code need to be dealing in Unicode
+(as opposed to native) code points.  In those few cases, use
+C<L<NATIVE_TO_UNI(utf8_to_uvchr_buf(...))|/utf8_to_uvchr_buf>> instead.
+
+Returns the Unicode (not-native) code point of the first character in the
+string C<s> which
+is assumed to be in UTF-8 encoding; C<send> points to 1 beyond the end of C<s>.
+C<retlen> will be set to the length, in bytes, of that character.
+
+If C<s> does not point to a well-formed UTF-8 character and UTF8 warnings are
+enabled, zero is returned and C<*retlen> is set (if C<retlen> isn't
+NULL) to -1.  If those warnings are off, the computed value if well-defined (or
+the Unicode REPLACEMENT CHARACTER, if not) is silently returned, and C<*retlen>
+is set (if C<retlen> isn't NULL) so that (S<C<s> + C<*retlen>>) is the
+next possible position in C<s> that could begin a non-malformed character.
+See L</utf8n_to_uvchr> for details on when the REPLACEMENT CHARACTER is returned.
+
+Code points above the platform's C<IV_MAX> will raise a deprecation warning,
+unless those are turned off.
+
+	UV	utf8_to_uvuni_buf(const U8 *s, const U8 *send,
+		                  STRLEN *retlen)
+
+=for hackers
+Found in file utf8.c
+
+=item UVCHR_SKIP
+X<UVCHR_SKIP>
+
+returns the number of bytes required to represent the code point C<cp> when
+encoded as UTF-8.  C<cp> is a native (ASCII or EBCDIC) code point if less than
+255; a Unicode code point otherwise.
+
+	STRLEN	UVCHR_SKIP(UV cp)
+
+=for hackers
+Found in file utf8.h
+
+=item uvchr_to_utf8
+X<uvchr_to_utf8>
+
+Adds the UTF-8 representation of the native code point C<uv> to the end
+of the string C<d>; C<d> should have at least C<UVCHR_SKIP(uv)+1> (up to
+C<UTF8_MAXBYTES+1>) free bytes available.  The return value is the pointer to
+the byte after the end of the new character.  In other words,
+
+    d = uvchr_to_utf8(d, uv);
+
+is the recommended wide native character-aware way of saying
+
+    *(d++) = uv;
+
+This function accepts any UV as input, but very high code points (above
+C<IV_MAX> on the platform)  will raise a deprecation warning.  This is
+typically 0x7FFF_FFFF in a 32-bit word.
+
+It is possible to forbid or warn on non-Unicode code points, or those that may
+be problematic by using L</uvchr_to_utf8_flags>.
+
+	U8*	uvchr_to_utf8(U8 *d, UV uv)
+
+=for hackers
+Found in file utf8.c
+
+=item uvchr_to_utf8_flags
+X<uvchr_to_utf8_flags>
+
+Adds the UTF-8 representation of the native code point C<uv> to the end
+of the string C<d>; C<d> should have at least C<UVCHR_SKIP(uv)+1> (up to
+C<UTF8_MAXBYTES+1>) free bytes available.  The return value is the pointer to
+the byte after the end of the new character.  In other words,
+
+    d = uvchr_to_utf8_flags(d, uv, flags);
+
+or, in most cases,
+
+    d = uvchr_to_utf8_flags(d, uv, 0);
+
+This is the Unicode-aware way of saying
+
+    *(d++) = uv;
+
+If C<flags> is 0, this function accepts any UV as input, but very high code
+points (above C<IV_MAX> for the platform)  will raise a deprecation warning.
+This is typically 0x7FFF_FFFF in a 32-bit word.
+
+Specifying C<flags> can further restrict what is allowed and not warned on, as
+follows:
+
+If C<uv> is a Unicode surrogate code point and C<UNICODE_WARN_SURROGATE> is set,
+the function will raise a warning, provided UTF8 warnings are enabled.  If
+instead C<UNICODE_DISALLOW_SURROGATE> is set, the function will fail and return
+NULL.  If both flags are set, the function will both warn and return NULL.
+
+Similarly, the C<UNICODE_WARN_NONCHAR> and C<UNICODE_DISALLOW_NONCHAR> flags
+affect how the function handles a Unicode non-character.
+
+And likewise, the C<UNICODE_WARN_SUPER> and C<UNICODE_DISALLOW_SUPER> flags
+affect the handling of code points that are above the Unicode maximum of
+0x10FFFF.  Languages other than Perl may not be able to accept files that
+contain these.
+
+The flag C<UNICODE_WARN_ILLEGAL_INTERCHANGE> selects all three of
+the above WARN flags; and C<UNICODE_DISALLOW_ILLEGAL_INTERCHANGE> selects all
+three DISALLOW flags.
+
+Code points above 0x7FFF_FFFF (2**31 - 1) were never specified in any standard,
+so using them is more problematic than other above-Unicode code points.  Perl
+invented an extension to UTF-8 to represent the ones above 2**36-1, so it is
+likely that non-Perl languages will not be able to read files that contain
+these that written by the perl interpreter; nor would Perl understand files
+written by something that uses a different extension.  For these reasons, there
+is a separate set of flags that can warn and/or disallow these extremely high
+code points, even if other above-Unicode ones are accepted.  These are the
+C<UNICODE_WARN_ABOVE_31_BIT> and C<UNICODE_DISALLOW_ABOVE_31_BIT> flags.  These
+are entirely independent from the deprecation warning for code points above
+C<IV_MAX>.  On 32-bit machines, it will eventually be forbidden to have any
+code point that needs more than 31 bits to represent.  When that happens,
+effectively the C<UNICODE_DISALLOW_ABOVE_31_BIT> flag will always be set on
+32-bit machines.  (Of course C<UNICODE_DISALLOW_SUPER> will treat all
+above-Unicode code points, including these, as malformations; and
+C<UNICODE_WARN_SUPER> warns on these.)
+
+On EBCDIC platforms starting in Perl v5.24, the Perl extension for representing
+extremely high code points kicks in at 0x3FFF_FFFF (2**30 -1), which is lower
+than on ASCII.  Prior to that, code points 2**31 and higher were simply
+unrepresentable, and a different, incompatible method was used to represent
+code points between 2**30 and 2**31 - 1.  The flags C<UNICODE_WARN_ABOVE_31_BIT>
+and C<UNICODE_DISALLOW_ABOVE_31_BIT> have the same function as on ASCII
+platforms, warning and disallowing 2**31 and higher.
+
+	U8*	uvchr_to_utf8_flags(U8 *d, UV uv, UV flags)
+
+=for hackers
+Found in file utf8.c
+
+=item uvoffuni_to_utf8_flags
+X<uvoffuni_to_utf8_flags>
+
+THIS FUNCTION SHOULD BE USED IN ONLY VERY SPECIALIZED CIRCUMSTANCES.
+Instead, B<Almost all code should use L</uvchr_to_utf8> or
+L</uvchr_to_utf8_flags>>.
+
+This function is like them, but the input is a strict Unicode
+(as opposed to native) code point.  Only in very rare circumstances should code
+not be using the native code point.
+
+For details, see the description for L</uvchr_to_utf8_flags>.
+
+	U8*	uvoffuni_to_utf8_flags(U8 *d, UV uv, UV flags)
+
+=for hackers
+Found in file utf8.c
+
+=item uvuni_to_utf8_flags
+X<uvuni_to_utf8_flags>
+
+Instead you almost certainly want to use L</uvchr_to_utf8> or
+L</uvchr_to_utf8_flags>.
+
+This function is a deprecated synonym for L</uvoffuni_to_utf8_flags>,
+which itself, while not deprecated, should be used only in isolated
+circumstances.  These functions were useful for code that wanted to handle
+both EBCDIC and ASCII platforms with Unicode properties, but starting in Perl
+v5.20, the distinctions between the platforms have mostly been made invisible
+to most code, so this function is quite unlikely to be what you want.
+
+	U8*	uvuni_to_utf8_flags(U8 *d, UV uv, UV flags)
+
+=for hackers
+Found in file utf8.c
+
+
+=back
+
+=head1 Variables created by C<xsubpp> and C<xsubpp> internal functions
+
+=over 8
+
+=item newXSproto
+X<newXSproto>
+
+Used by C<xsubpp> to hook up XSUBs as Perl subs.  Adds Perl prototypes to
+the subs.
+
+=for hackers
+Found in file XSUB.h
+
+=item XS_APIVERSION_BOOTCHECK
+X<XS_APIVERSION_BOOTCHECK>
+
+Macro to verify that the perl api version an XS module has been compiled against
+matches the api version of the perl interpreter it's being loaded into.
+
+		XS_APIVERSION_BOOTCHECK;
+
+=for hackers
+Found in file XSUB.h
+
+=item XS_VERSION
+X<XS_VERSION>
+
+The version identifier for an XS module.  This is usually
+handled automatically by C<ExtUtils::MakeMaker>.  See
+C<L</XS_VERSION_BOOTCHECK>>.
+
+=for hackers
+Found in file XSUB.h
+
+=item XS_VERSION_BOOTCHECK
+X<XS_VERSION_BOOTCHECK>
+
+Macro to verify that a PM module's C<$VERSION> variable matches the XS
+module's C<XS_VERSION> variable.  This is usually handled automatically by
+C<xsubpp>.  See L<perlxs/"The VERSIONCHECK: Keyword">.
+
+		XS_VERSION_BOOTCHECK;
+
+=for hackers
+Found in file XSUB.h
+
+
+=back
+
+=head1 Warning and Dieing
+
+=over 8
+
+=item croak
+X<croak>
+
+This is an XS interface to Perl's C<die> function.
+
+Take a sprintf-style format pattern and argument list.  These are used to
+generate a string message.  If the message does not end with a newline,
+then it will be extended with some indication of the current location
+in the code, as described for L</mess_sv>.
+
+The error message will be used as an exception, by default
+returning control to the nearest enclosing C<eval>, but subject to
+modification by a C<$SIG{__DIE__}> handler.  In any case, the C<croak>
+function never returns normally.
+
+For historical reasons, if C<pat> is null then the contents of C<ERRSV>
+(C<$@>) will be used as an error message or object instead of building an
+error message from arguments.  If you want to throw a non-string object,
+or build an error message in an SV yourself, it is preferable to use
+the L</croak_sv> function, which does not involve clobbering C<ERRSV>.
+
+	void	croak(const char *pat, ...)
+
+=for hackers
+Found in file util.c
+
+=item croak_no_modify
+X<croak_no_modify>
+
+Exactly equivalent to C<Perl_croak(aTHX_ "%s", PL_no_modify)>, but generates
+terser object code than using C<Perl_croak>.  Less code used on exception code
+paths reduces CPU cache pressure.
+
+	void	croak_no_modify()
+
+=for hackers
+Found in file util.c
+
+=item croak_sv
+X<croak_sv>
+
+This is an XS interface to Perl's C<die> function.
+
+C<baseex> is the error message or object.  If it is a reference, it
+will be used as-is.  Otherwise it is used as a string, and if it does
+not end with a newline then it will be extended with some indication of
+the current location in the code, as described for L</mess_sv>.
+
+The error message or object will be used as an exception, by default
+returning control to the nearest enclosing C<eval>, but subject to
+modification by a C<$SIG{__DIE__}> handler.  In any case, the C<croak_sv>
+function never returns normally.
+
+To die with a simple string message, the L</croak> function may be
+more convenient.
+
+	void	croak_sv(SV *baseex)
+
+=for hackers
+Found in file util.c
+
+=item die
+X<die>
+
+Behaves the same as L</croak>, except for the return type.
+It should be used only where the C<OP *> return type is required.
+The function never actually returns.
+
+	OP *	die(const char *pat, ...)
+
+=for hackers
+Found in file util.c
+
+=item die_sv
+X<die_sv>
+
+Behaves the same as L</croak_sv>, except for the return type.
+It should be used only where the C<OP *> return type is required.
+The function never actually returns.
+
+	OP *	die_sv(SV *baseex)
+
+=for hackers
+Found in file util.c
+
+=item vcroak
+X<vcroak>
+
+This is an XS interface to Perl's C<die> function.
+
+C<pat> and C<args> are a sprintf-style format pattern and encapsulated
+argument list.  These are used to generate a string message.  If the
+message does not end with a newline, then it will be extended with
+some indication of the current location in the code, as described for
+L</mess_sv>.
+
+The error message will be used as an exception, by default
+returning control to the nearest enclosing C<eval>, but subject to
+modification by a C<$SIG{__DIE__}> handler.  In any case, the C<croak>
+function never returns normally.
+
+For historical reasons, if C<pat> is null then the contents of C<ERRSV>
+(C<$@>) will be used as an error message or object instead of building an
+error message from arguments.  If you want to throw a non-string object,
+or build an error message in an SV yourself, it is preferable to use
+the L</croak_sv> function, which does not involve clobbering C<ERRSV>.
+
+	void	vcroak(const char *pat, va_list *args)
+
+=for hackers
+Found in file util.c
+
+=item vwarn
+X<vwarn>
+
+This is an XS interface to Perl's C<warn> function.
+
+C<pat> and C<args> are a sprintf-style format pattern and encapsulated
+argument list.  These are used to generate a string message.  If the
+message does not end with a newline, then it will be extended with
+some indication of the current location in the code, as described for
+L</mess_sv>.
+
+The error message or object will by default be written to standard error,
+but this is subject to modification by a C<$SIG{__WARN__}> handler.
+
+Unlike with L</vcroak>, C<pat> is not permitted to be null.
+
+	void	vwarn(const char *pat, va_list *args)
+
+=for hackers
+Found in file util.c
+
+=item warn
+X<warn>
+
+This is an XS interface to Perl's C<warn> function.
+
+Take a sprintf-style format pattern and argument list.  These are used to
+generate a string message.  If the message does not end with a newline,
+then it will be extended with some indication of the current location
+in the code, as described for L</mess_sv>.
+
+The error message or object will by default be written to standard error,
+but this is subject to modification by a C<$SIG{__WARN__}> handler.
+
+Unlike with L</croak>, C<pat> is not permitted to be null.
+
+	void	warn(const char *pat, ...)
+
+=for hackers
+Found in file util.c
+
+=item warn_sv
+X<warn_sv>
+
+This is an XS interface to Perl's C<warn> function.
+
+C<baseex> is the error message or object.  If it is a reference, it
+will be used as-is.  Otherwise it is used as a string, and if it does
+not end with a newline then it will be extended with some indication of
+the current location in the code, as described for L</mess_sv>.
+
+The error message or object will by default be written to standard error,
+but this is subject to modification by a C<$SIG{__WARN__}> handler.
+
+To warn with a simple string message, the L</warn> function may be
+more convenient.
+
+	void	warn_sv(SV *baseex)
+
+=for hackers
+Found in file util.c
+
+
+=back
+
+=head1 Undocumented functions
+
+The following functions have been flagged as part of the public API,
+but are currently undocumented.  Use them at your own risk, as the
+interfaces are subject to change.  Functions that are not listed in this
+document are not intended for public use, and should NOT be used under any
+circumstances.
+
+If you feel you need to use one of these functions, first send email to
+L<perl5-porters@perl.org|mailto:perl5-porters@perl.org>.  It may be
+that there is a good reason for the function not being documented, and it
+should be removed from this list; or it may just be that no one has gotten
+around to documenting it.  In the latter case, you will be asked to submit a
+patch to document the function.  Once your patch is accepted, it will indicate
+that the interface is stable (unless it is explicitly marked otherwise) and
+usable by you.
+
+=over
+
+=item GetVars
+X<GetVars>
+
+=item Gv_AMupdate
+X<Gv_AMupdate>
+
+=item PerlIO_clearerr
+X<PerlIO_clearerr>
+
+=item PerlIO_close
+X<PerlIO_close>
+
+=item PerlIO_context_layers
+X<PerlIO_context_layers>
+
+=item PerlIO_eof
+X<PerlIO_eof>
+
+=item PerlIO_error
+X<PerlIO_error>
+
+=item PerlIO_fileno
+X<PerlIO_fileno>
+
+=item PerlIO_fill
+X<PerlIO_fill>
+
+=item PerlIO_flush
+X<PerlIO_flush>
+
+=item PerlIO_get_base
+X<PerlIO_get_base>
+
+=item PerlIO_get_bufsiz
+X<PerlIO_get_bufsiz>
+
+=item PerlIO_get_cnt
+X<PerlIO_get_cnt>
+
+=item PerlIO_get_ptr
+X<PerlIO_get_ptr>
+
+=item PerlIO_read
+X<PerlIO_read>
+
+=item PerlIO_seek
+X<PerlIO_seek>
+
+=item PerlIO_set_cnt
+X<PerlIO_set_cnt>
+
+=item PerlIO_set_ptrcnt
+X<PerlIO_set_ptrcnt>
+
+=item PerlIO_setlinebuf
+X<PerlIO_setlinebuf>
+
+=item PerlIO_stderr
+X<PerlIO_stderr>
+
+=item PerlIO_stdin
+X<PerlIO_stdin>
+
+=item PerlIO_stdout
+X<PerlIO_stdout>
+
+=item PerlIO_tell
+X<PerlIO_tell>
+
+=item PerlIO_unread
+X<PerlIO_unread>
+
+=item PerlIO_write
+X<PerlIO_write>
+
+=item amagic_call
+X<amagic_call>
+
+=item amagic_deref_call
+X<amagic_deref_call>
+
+=item any_dup
+X<any_dup>
+
+=item atfork_lock
+X<atfork_lock>
+
+=item atfork_unlock
+X<atfork_unlock>
+
+=item av_arylen_p
+X<av_arylen_p>
+
+=item av_iter_p
+X<av_iter_p>
+
+=item block_gimme
+X<block_gimme>
+
+=item call_atexit
+X<call_atexit>
+
+=item call_list
+X<call_list>
+
+=item calloc
+X<calloc>
+
+=item cast_i32
+X<cast_i32>
+
+=item cast_iv
+X<cast_iv>
+
+=item cast_ulong
+X<cast_ulong>
+
+=item cast_uv
+X<cast_uv>
+
+=item ck_warner
+X<ck_warner>
+
+=item ck_warner_d
+X<ck_warner_d>
+
+=item ckwarn
+X<ckwarn>
+
+=item ckwarn_d
+X<ckwarn_d>
+
+=item clear_defarray
+X<clear_defarray>
+
+=item clone_params_del
+X<clone_params_del>
+
+=item clone_params_new
+X<clone_params_new>
+
+=item croak_memory_wrap
+X<croak_memory_wrap>
+
+=item croak_nocontext
+X<croak_nocontext>
+
+=item csighandler
+X<csighandler>
+
+=item cx_dump
+X<cx_dump>
+
+=item cx_dup
+X<cx_dup>
+
+=item cxinc
+X<cxinc>
+
+=item deb
+X<deb>
+
+=item deb_nocontext
+X<deb_nocontext>
+
+=item debop
+X<debop>
+
+=item debprofdump
+X<debprofdump>
+
+=item debstack
+X<debstack>
+
+=item debstackptrs
+X<debstackptrs>
+
+=item delimcpy
+X<delimcpy>
+
+=item despatch_signals
+X<despatch_signals>
+
+=item die_nocontext
+X<die_nocontext>
+
+=item dirp_dup
+X<dirp_dup>
+
+=item do_aspawn
+X<do_aspawn>
+
+=item do_binmode
+X<do_binmode>
+
+=item do_close
+X<do_close>
+
+=item do_gv_dump
+X<do_gv_dump>
+
+=item do_gvgv_dump
+X<do_gvgv_dump>
+
+=item do_hv_dump
+X<do_hv_dump>
+
+=item do_join
+X<do_join>
+
+=item do_magic_dump
+X<do_magic_dump>
+
+=item do_op_dump
+X<do_op_dump>
+
+=item do_open
+X<do_open>
+
+=item do_open9
+X<do_open9>
+
+=item do_openn
+X<do_openn>
+
+=item do_pmop_dump
+X<do_pmop_dump>
+
+=item do_spawn
+X<do_spawn>
+
+=item do_spawn_nowait
+X<do_spawn_nowait>
+
+=item do_sprintf
+X<do_sprintf>
+
+=item do_sv_dump
+X<do_sv_dump>
+
+=item doing_taint
+X<doing_taint>
+
+=item doref
+X<doref>
+
+=item dounwind
+X<dounwind>
+
+=item dowantarray
+X<dowantarray>
+
+=item dump_eval
+X<dump_eval>
+
+=item dump_form
+X<dump_form>
+
+=item dump_indent
+X<dump_indent>
+
+=item dump_mstats
+X<dump_mstats>
+
+=item dump_sub
+X<dump_sub>
+
+=item dump_vindent
+X<dump_vindent>
+
+=item filter_add
+X<filter_add>
+
+=item filter_del
+X<filter_del>
+
+=item filter_read
+X<filter_read>
+
+=item foldEQ_latin1
+X<foldEQ_latin1>
+
+=item form_nocontext
+X<form_nocontext>
+
+=item fp_dup
+X<fp_dup>
+
+=item fprintf_nocontext
+X<fprintf_nocontext>
+
+=item free_global_struct
+X<free_global_struct>
+
+=item free_tmps
+X<free_tmps>
+
+=item get_context
+X<get_context>
+
+=item get_mstats
+X<get_mstats>
+
+=item get_op_descs
+X<get_op_descs>
+
+=item get_op_names
+X<get_op_names>
+
+=item get_ppaddr
+X<get_ppaddr>
+
+=item get_vtbl
+X<get_vtbl>
+
+=item gp_dup
+X<gp_dup>
+
+=item gp_free
+X<gp_free>
+
+=item gp_ref
+X<gp_ref>
+
+=item gv_AVadd
+X<gv_AVadd>
+
+=item gv_HVadd
+X<gv_HVadd>
+
+=item gv_IOadd
+X<gv_IOadd>
+
+=item gv_SVadd
+X<gv_SVadd>
+
+=item gv_add_by_type
+X<gv_add_by_type>
+
+=item gv_autoload4
+X<gv_autoload4>
+
+=item gv_autoload_pv
+X<gv_autoload_pv>
+
+=item gv_autoload_pvn
+X<gv_autoload_pvn>
+
+=item gv_autoload_sv
+X<gv_autoload_sv>
+
+=item gv_check
+X<gv_check>
+
+=item gv_dump
+X<gv_dump>
+
+=item gv_efullname
+X<gv_efullname>
+
+=item gv_efullname3
+X<gv_efullname3>
+
+=item gv_efullname4
+X<gv_efullname4>
+
+=item gv_fetchfile
+X<gv_fetchfile>
+
+=item gv_fetchfile_flags
+X<gv_fetchfile_flags>
+
+=item gv_fetchpv
+X<gv_fetchpv>
+
+=item gv_fetchpvn_flags
+X<gv_fetchpvn_flags>
+
+=item gv_fetchsv
+X<gv_fetchsv>
+
+=item gv_fullname
+X<gv_fullname>
+
+=item gv_fullname3
+X<gv_fullname3>
+
+=item gv_fullname4
+X<gv_fullname4>
+
+=item gv_handler
+X<gv_handler>
+
+=item gv_name_set
+X<gv_name_set>
+
+=item he_dup
+X<he_dup>
+
+=item hek_dup
+X<hek_dup>
+
+=item hv_common
+X<hv_common>
+
+=item hv_common_key_len
+X<hv_common_key_len>
+
+=item hv_delayfree_ent
+X<hv_delayfree_ent>
+
+=item hv_eiter_p
+X<hv_eiter_p>
+
+=item hv_eiter_set
+X<hv_eiter_set>
+
+=item hv_free_ent
+X<hv_free_ent>
+
+=item hv_ksplit
+X<hv_ksplit>
+
+=item hv_name_set
+X<hv_name_set>
+
+=item hv_placeholders_get
+X<hv_placeholders_get>
+
+=item hv_placeholders_set
+X<hv_placeholders_set>
+
+=item hv_rand_set
+X<hv_rand_set>
+
+=item hv_riter_p
+X<hv_riter_p>
+
+=item hv_riter_set
+X<hv_riter_set>
+
+=item ibcmp_utf8
+X<ibcmp_utf8>
+
+=item init_global_struct
+X<init_global_struct>
+
+=item init_stacks
+X<init_stacks>
+
+=item init_tm
+X<init_tm>
+
+=item instr
+X<instr>
+
+=item is_lvalue_sub
+X<is_lvalue_sub>
+
+=item leave_scope
+X<leave_scope>
+
+=item load_module_nocontext
+X<load_module_nocontext>
+
+=item magic_dump
+X<magic_dump>
+
+=item malloc
+X<malloc>
+
+=item markstack_grow
+X<markstack_grow>
+
+=item mess_nocontext
+X<mess_nocontext>
+
+=item mfree
+X<mfree>
+
+=item mg_dup
+X<mg_dup>
+
+=item mg_size
+X<mg_size>
+
+=item mini_mktime
+X<mini_mktime>
+
+=item moreswitches
+X<moreswitches>
+
+=item mro_get_from_name
+X<mro_get_from_name>
+
+=item mro_get_private_data
+X<mro_get_private_data>
+
+=item mro_set_mro
+X<mro_set_mro>
+
+=item mro_set_private_data
+X<mro_set_private_data>
+
+=item my_atof
+X<my_atof>
+
+=item my_atof2
+X<my_atof2>
+
+=item my_bcopy
+X<my_bcopy>
+
+=item my_bzero
+X<my_bzero>
+
+=item my_chsize
+X<my_chsize>
+
+=item my_cxt_index
+X<my_cxt_index>
+
+=item my_cxt_init
+X<my_cxt_init>
+
+=item my_dirfd
+X<my_dirfd>
+
+=item my_exit
+X<my_exit>
+
+=item my_failure_exit
+X<my_failure_exit>
+
+=item my_fflush_all
+X<my_fflush_all>
+
+=item my_fork
+X<my_fork>
+
+=item my_lstat
+X<my_lstat>
+
+=item my_memcmp
+X<my_memcmp>
+
+=item my_memset
+X<my_memset>
+
+=item my_pclose
+X<my_pclose>
+
+=item my_popen
+X<my_popen>
+
+=item my_popen_list
+X<my_popen_list>
+
+=item my_setenv
+X<my_setenv>
+
+=item my_socketpair
+X<my_socketpair>
+
+=item my_stat
+X<my_stat>
+
+=item my_strftime
+X<my_strftime>
+
+=item newANONATTRSUB
+X<newANONATTRSUB>
+
+=item newANONHASH
+X<newANONHASH>
+
+=item newANONLIST
+X<newANONLIST>
+
+=item newANONSUB
+X<newANONSUB>
+
+=item newATTRSUB
+X<newATTRSUB>
+
+=item newAVREF
+X<newAVREF>
+
+=item newCVREF
+X<newCVREF>
+
+=item newFORM
+X<newFORM>
+
+=item newGVREF
+X<newGVREF>
+
+=item newGVgen
+X<newGVgen>
+
+=item newGVgen_flags
+X<newGVgen_flags>
+
+=item newHVREF
+X<newHVREF>
+
+=item newHVhv
+X<newHVhv>
+
+=item newIO
+X<newIO>
+
+=item newMYSUB
+X<newMYSUB>
+
+=item newPROG
+X<newPROG>
+
+=item newRV
+X<newRV>
+
+=item newSUB
+X<newSUB>
+
+=item newSVREF
+X<newSVREF>
+
+=item newSVpvf_nocontext
+X<newSVpvf_nocontext>
+
+=item new_stackinfo
+X<new_stackinfo>
+
+=item op_refcnt_lock
+X<op_refcnt_lock>
+
+=item op_refcnt_unlock
+X<op_refcnt_unlock>
+
+=item parser_dup
+X<parser_dup>
+
+=item perl_alloc_using
+X<perl_alloc_using>
+
+=item perl_clone_using
+X<perl_clone_using>
+
+=item pmop_dump
+X<pmop_dump>
+
+=item pop_scope
+X<pop_scope>
+
+=item pregcomp
+X<pregcomp>
+
+=item pregexec
+X<pregexec>
+
+=item pregfree
+X<pregfree>
+
+=item pregfree2
+X<pregfree2>
+
+=item printf_nocontext
+X<printf_nocontext>
+
+=item ptr_table_fetch
+X<ptr_table_fetch>
+
+=item ptr_table_free
+X<ptr_table_free>
+
+=item ptr_table_new
+X<ptr_table_new>
+
+=item ptr_table_split
+X<ptr_table_split>
+
+=item ptr_table_store
+X<ptr_table_store>
+
+=item push_scope
+X<push_scope>
+
+=item re_compile
+X<re_compile>
+
+=item re_dup_guts
+X<re_dup_guts>
+
+=item re_intuit_start
+X<re_intuit_start>
+
+=item re_intuit_string
+X<re_intuit_string>
+
+=item realloc
+X<realloc>
+
+=item reentrant_free
+X<reentrant_free>
+
+=item reentrant_init
+X<reentrant_init>
+
+=item reentrant_retry
+X<reentrant_retry>
+
+=item reentrant_size
+X<reentrant_size>
+
+=item ref
+X<ref>
+
+=item reg_named_buff_all
+X<reg_named_buff_all>
+
+=item reg_named_buff_exists
+X<reg_named_buff_exists>
+
+=item reg_named_buff_fetch
+X<reg_named_buff_fetch>
+
+=item reg_named_buff_firstkey
+X<reg_named_buff_firstkey>
+
+=item reg_named_buff_nextkey
+X<reg_named_buff_nextkey>
+
+=item reg_named_buff_scalar
+X<reg_named_buff_scalar>
+
+=item regdump
+X<regdump>
+
+=item regdupe_internal
+X<regdupe_internal>
+
+=item regexec_flags
+X<regexec_flags>
+
+=item regfree_internal
+X<regfree_internal>
+
+=item reginitcolors
+X<reginitcolors>
+
+=item regnext
+X<regnext>
+
+=item repeatcpy
+X<repeatcpy>
+
+=item rsignal
+X<rsignal>
+
+=item rsignal_state
+X<rsignal_state>
+
+=item runops_debug
+X<runops_debug>
+
+=item runops_standard
+X<runops_standard>
+
+=item rvpv_dup
+X<rvpv_dup>
+
+=item safesyscalloc
+X<safesyscalloc>
+
+=item safesysfree
+X<safesysfree>
+
+=item safesysmalloc
+X<safesysmalloc>
+
+=item safesysrealloc
+X<safesysrealloc>
+
+=item save_I16
+X<save_I16>
+
+=item save_I32
+X<save_I32>
+
+=item save_I8
+X<save_I8>
+
+=item save_adelete
+X<save_adelete>
+
+=item save_aelem
+X<save_aelem>
+
+=item save_aelem_flags
+X<save_aelem_flags>
+
+=item save_alloc
+X<save_alloc>
+
+=item save_aptr
+X<save_aptr>
+
+=item save_ary
+X<save_ary>
+
+=item save_bool
+X<save_bool>
+
+=item save_clearsv
+X<save_clearsv>
+
+=item save_delete
+X<save_delete>
+
+=item save_destructor
+X<save_destructor>
+
+=item save_destructor_x
+X<save_destructor_x>
+
+=item save_freeop
+X<save_freeop>
+
+=item save_freepv
+X<save_freepv>
+
+=item save_freesv
+X<save_freesv>
+
+=item save_generic_pvref
+X<save_generic_pvref>
+
+=item save_generic_svref
+X<save_generic_svref>
+
+=item save_hash
+X<save_hash>
+
+=item save_hdelete
+X<save_hdelete>
+
+=item save_helem
+X<save_helem>
+
+=item save_helem_flags
+X<save_helem_flags>
+
+=item save_hints
+X<save_hints>
+
+=item save_hptr
+X<save_hptr>
+
+=item save_int
+X<save_int>
+
+=item save_item
+X<save_item>
+
+=item save_iv
+X<save_iv>
+
+=item save_list
+X<save_list>
+
+=item save_long
+X<save_long>
+
+=item save_mortalizesv
+X<save_mortalizesv>
+
+=item save_nogv
+X<save_nogv>
+
+=item save_op
+X<save_op>
+
+=item save_padsv_and_mortalize
+X<save_padsv_and_mortalize>
+
+=item save_pptr
+X<save_pptr>
+
+=item save_pushi32ptr
+X<save_pushi32ptr>
+
+=item save_pushptr
+X<save_pushptr>
+
+=item save_pushptrptr
+X<save_pushptrptr>
+
+=item save_re_context
+X<save_re_context>
+
+=item save_scalar
+X<save_scalar>
+
+=item save_set_svflags
+X<save_set_svflags>
+
+=item save_shared_pvref
+X<save_shared_pvref>
+
+=item save_sptr
+X<save_sptr>
+
+=item save_svref
+X<save_svref>
+
+=item save_vptr
+X<save_vptr>
+
+=item savestack_grow
+X<savestack_grow>
+
+=item savestack_grow_cnt
+X<savestack_grow_cnt>
+
+=item scan_num
+X<scan_num>
+
+=item scan_vstring
+X<scan_vstring>
+
+=item seed
+X<seed>
+
+=item set_context
+X<set_context>
+
+=item set_numeric_local
+X<set_numeric_local>
+
+=item set_numeric_radix
+X<set_numeric_radix>
+
+=item set_numeric_standard
+X<set_numeric_standard>
+
+=item share_hek
+X<share_hek>
+
+=item si_dup
+X<si_dup>
+
+=item ss_dup
+X<ss_dup>
+
+=item stack_grow
+X<stack_grow>
+
+=item start_subparse
+X<start_subparse>
+
+=item str_to_version
+X<str_to_version>
+
+=item sv_2iv
+X<sv_2iv>
+
+=item sv_2pv
+X<sv_2pv>
+
+=item sv_2uv
+X<sv_2uv>
+
+=item sv_catpvf_mg_nocontext
+X<sv_catpvf_mg_nocontext>
+
+=item sv_catpvf_nocontext
+X<sv_catpvf_nocontext>
+
+=item sv_dup
+X<sv_dup>
+
+=item sv_dup_inc
+X<sv_dup_inc>
+
+=item sv_peek
+X<sv_peek>
+
+=item sv_pvn_nomg
+X<sv_pvn_nomg>
+
+=item sv_setpvf_mg_nocontext
+X<sv_setpvf_mg_nocontext>
+
+=item sv_setpvf_nocontext
+X<sv_setpvf_nocontext>
+
+=item sys_init
+X<sys_init>
+
+=item sys_init3
+X<sys_init3>
+
+=item sys_intern_clear
+X<sys_intern_clear>
+
+=item sys_intern_dup
+X<sys_intern_dup>
+
+=item sys_intern_init
+X<sys_intern_init>
+
+=item sys_term
+X<sys_term>
+
+=item taint_env
+X<taint_env>
+
+=item taint_proper
+X<taint_proper>
+
+=item unlnk
+X<unlnk>
+
+=item unsharepvn
+X<unsharepvn>
+
+=item utf16_to_utf8
+X<utf16_to_utf8>
+
+=item utf16_to_utf8_reversed
+X<utf16_to_utf8_reversed>
+
+=item uvuni_to_utf8
+X<uvuni_to_utf8>
+
+=item vdeb
+X<vdeb>
+
+=item vform
+X<vform>
+
+=item vload_module
+X<vload_module>
+
+=item vnewSVpvf
+X<vnewSVpvf>
+
+=item vwarner
+X<vwarner>
+
+=item warn_nocontext
+X<warn_nocontext>
+
+=item warner
+X<warner>
+
+=item warner_nocontext
+X<warner_nocontext>
+
+=item whichsig
+X<whichsig>
+
+=item whichsig_pv
+X<whichsig_pv>
+
+=item whichsig_pvn
+X<whichsig_pvn>
+
+=item whichsig_sv
+X<whichsig_sv>
+
+=back
+
+
+=head1 AUTHORS
+
+Until May 1997, this document was maintained by Jeff Okamoto
+<okamoto@corp.hp.com>.  It is now maintained as part of Perl itself.
+
+With lots of help and suggestions from Dean Roehrich, Malcolm Beattie,
+Andreas Koenig, Paul Hudson, Ilya Zakharevich, Paul Marquess, Neil
+Bowers, Matthew Green, Tim Bunce, Spider Boardman, Ulrich Pfeifer,
+Stephen McCamant, and Gurusamy Sarathy.
+
+API Listing originally by Dean Roehrich <roehrich@cray.com>.
+
+Updated to be autogenerated from comments in the source by Benjamin Stuhl.
+
+=head1 SEE ALSO
+
+L<perlguts>, L<perlxs>, L<perlxstut>, L<perlintern>
+
+=cut
+
+ex: set ro:
diff --git a/lib/5.24.1/pod/perlapio.pod b/lib/5.24.1/pod/perlapio.pod
new file mode 100644
index 00000000..8e0f82e7
--- /dev/null
+++ b/lib/5.24.1/pod/perlapio.pod
@@ -0,0 +1,523 @@
+=head1 NAME
+
+perlapio - perl's IO abstraction interface.
+
+=head1 SYNOPSIS
+
+  #define PERLIO_NOT_STDIO 0    /* For co-existence with stdio only */
+  #include <perlio.h>           /* Usually via #include <perl.h> */
+
+  PerlIO *PerlIO_stdin(void);
+  PerlIO *PerlIO_stdout(void);
+  PerlIO *PerlIO_stderr(void);
+
+  PerlIO *PerlIO_open(const char *path,const char *mode);
+  PerlIO *PerlIO_fdopen(int fd, const char *mode);
+  PerlIO *PerlIO_reopen(const char *path, /* deprecated */
+          const char *mode, PerlIO *old);
+  int     PerlIO_close(PerlIO *f);
+
+  int     PerlIO_stdoutf(const char *fmt,...)
+  int     PerlIO_puts(PerlIO *f,const char *string);
+  int     PerlIO_putc(PerlIO *f,int ch);
+  SSize_t PerlIO_write(PerlIO *f,const void *buf,size_t numbytes);
+  int     PerlIO_printf(PerlIO *f, const char *fmt,...);
+  int     PerlIO_vprintf(PerlIO *f, const char *fmt, va_list args);
+  int     PerlIO_flush(PerlIO *f);
+
+  int     PerlIO_eof(PerlIO *f);
+  int     PerlIO_error(PerlIO *f);
+  void    PerlIO_clearerr(PerlIO *f);
+
+  int     PerlIO_getc(PerlIO *d);
+  int     PerlIO_ungetc(PerlIO *f,int ch);
+  SSize_t PerlIO_read(PerlIO *f, void *buf, size_t numbytes);
+
+  int     PerlIO_fileno(PerlIO *f);
+
+  void    PerlIO_setlinebuf(PerlIO *f);
+
+  Off_t   PerlIO_tell(PerlIO *f);
+  int     PerlIO_seek(PerlIO *f, Off_t offset, int whence);
+  void    PerlIO_rewind(PerlIO *f);
+
+  int     PerlIO_getpos(PerlIO *f, SV *save);    /* prototype changed */
+  int     PerlIO_setpos(PerlIO *f, SV *saved);   /* prototype changed */
+
+  int     PerlIO_fast_gets(PerlIO *f);
+  int     PerlIO_has_cntptr(PerlIO *f);
+  SSize_t PerlIO_get_cnt(PerlIO *f);
+  char   *PerlIO_get_ptr(PerlIO *f);
+  void    PerlIO_set_ptrcnt(PerlIO *f, char *ptr, SSize_t count);
+
+  int     PerlIO_canset_cnt(PerlIO *f);              /* deprecated */
+  void    PerlIO_set_cnt(PerlIO *f, int count);      /* deprecated */
+
+  int     PerlIO_has_base(PerlIO *f);
+  char   *PerlIO_get_base(PerlIO *f);
+  SSize_t PerlIO_get_bufsiz(PerlIO *f);
+
+  PerlIO *PerlIO_importFILE(FILE *stdio, const char *mode);
+  FILE   *PerlIO_exportFILE(PerlIO *f, int flags);
+  FILE   *PerlIO_findFILE(PerlIO *f);
+  void    PerlIO_releaseFILE(PerlIO *f,FILE *stdio);
+
+  int     PerlIO_apply_layers(PerlIO *f, const char *mode,
+                                                    const char *layers);
+  int     PerlIO_binmode(PerlIO *f, int ptype, int imode,
+                                                    const char *layers);
+  void    PerlIO_debug(const char *fmt,...)
+
+=head1 DESCRIPTION
+
+Perl's source code, and extensions that want maximum portability,
+should use the above functions instead of those defined in ANSI C's
+I<stdio.h>.  The perl headers (in particular "perlio.h") will
+C<#define> them to the I/O mechanism selected at Configure time.
+
+The functions are modeled on those in I<stdio.h>, but parameter order
+has been "tidied up a little".
+
+C<PerlIO *> takes the place of FILE *. Like FILE * it should be
+treated as opaque (it is probably safe to assume it is a pointer to
+something).
+
+There are currently three implementations:
+
+=over 4
+
+=item 1. USE_STDIO
+
+All above are #define'd to stdio functions or are trivial wrapper
+functions which call stdio. In this case I<only> PerlIO * is a FILE *.
+This has been the default implementation since the abstraction was
+introduced in perl5.003_02.
+
+=item 2. USE_PERLIO
+
+Introduced just after perl5.7.0, this is a re-implementation of the
+above abstraction which allows perl more control over how IO is done
+as it decouples IO from the way the operating system and C library
+choose to do things. For USE_PERLIO PerlIO * has an extra layer of
+indirection - it is a pointer-to-a-pointer.  This allows the PerlIO *
+to remain with a known value while swapping the implementation around
+underneath I<at run time>. In this case all the above are true (but
+very simple) functions which call the underlying implementation.
+
+This is the only implementation for which C<PerlIO_apply_layers()>
+does anything "interesting".
+
+The USE_PERLIO implementation is described in L<perliol>.
+
+=back
+
+Because "perlio.h" is a thin layer (for efficiency) the semantics of
+these functions are somewhat dependent on the underlying implementation.
+Where these variations are understood they are noted below.
+
+Unless otherwise noted, functions return 0 on success, or a negative
+value (usually C<EOF> which is usually -1) and set C<errno> on error.
+
+=over 4
+
+=item B<PerlIO_stdin()>, B<PerlIO_stdout()>, B<PerlIO_stderr()>
+
+Use these rather than C<stdin>, C<stdout>, C<stderr>. They are written
+to look like "function calls" rather than variables because this makes
+it easier to I<make them> function calls if platform cannot export data
+to loaded modules, or if (say) different "threads" might have different
+values.
+
+=item B<PerlIO_open(path, mode)>, B<PerlIO_fdopen(fd,mode)>
+
+These correspond to fopen()/fdopen() and the arguments are the same.
+Return C<NULL> and set C<errno> if there is an error.  There may be an
+implementation limit on the number of open handles, which may be lower
+than the limit on the number of open files - C<errno> may not be set
+when C<NULL> is returned if this limit is exceeded.
+
+=item B<PerlIO_reopen(path,mode,f)>
+
+While this currently exists in all three implementations perl itself
+does not use it. I<As perl does not use it, it is not well tested.>
+
+Perl prefers to C<dup> the new low-level descriptor to the descriptor
+used by the existing PerlIO. This may become the behaviour of this
+function in the future.
+
+=item B<PerlIO_printf(f,fmt,...)>, B<PerlIO_vprintf(f,fmt,a)>
+
+These are fprintf()/vfprintf() equivalents.
+
+=item B<PerlIO_stdoutf(fmt,...)>
+
+This is printf() equivalent. printf is #defined to this function,
+so it is (currently) legal to use C<printf(fmt,...)> in perl sources.
+
+=item B<PerlIO_read(f,buf,count)>, B<PerlIO_write(f,buf,count)>
+
+These correspond functionally to fread() and fwrite() but the
+arguments and return values are different.  The PerlIO_read() and
+PerlIO_write() signatures have been modeled on the more sane low level
+read() and write() functions instead: The "file" argument is passed
+first, there is only one "count", and the return value can distinguish
+between error and C<EOF>.
+
+Returns a byte count if successful (which may be zero or
+positive), returns negative value and sets C<errno> on error.
+Depending on implementation C<errno> may be C<EINTR> if operation was
+interrupted by a signal.
+
+=item B<PerlIO_close(f)>
+
+Depending on implementation C<errno> may be C<EINTR> if operation was
+interrupted by a signal.
+
+=item B<PerlIO_puts(f,s)>, B<PerlIO_putc(f,c)>
+
+These correspond to fputs() and fputc().
+Note that arguments have been revised to have "file" first.
+
+=item B<PerlIO_ungetc(f,c)>
+
+This corresponds to ungetc().  Note that arguments have been revised
+to have "file" first.  Arranges that next read operation will return
+the byte B<c>.  Despite the implied "character" in the name only
+values in the range 0..0xFF are defined. Returns the byte B<c> on
+success or -1 (C<EOF>) on error.  The number of bytes that can be
+"pushed back" may vary, only 1 character is certain, and then only if
+it is the last character that was read from the handle.
+
+=item B<PerlIO_getc(f)>
+
+This corresponds to getc().
+Despite the c in the name only byte range 0..0xFF is supported.
+Returns the character read or -1 (C<EOF>) on error.
+
+=item B<PerlIO_eof(f)>
+
+This corresponds to feof().  Returns a true/false indication of
+whether the handle is at end of file.  For terminal devices this may
+or may not be "sticky" depending on the implementation.  The flag is
+cleared by PerlIO_seek(), or PerlIO_rewind().
+
+=item B<PerlIO_error(f)>
+
+This corresponds to ferror().  Returns a true/false indication of
+whether there has been an IO error on the handle.
+
+=item B<PerlIO_fileno(f)>
+
+This corresponds to fileno(), note that on some platforms, the meaning
+of "fileno" may not match Unix. Returns -1 if the handle has no open
+descriptor associated with it.
+
+=item B<PerlIO_clearerr(f)>
+
+This corresponds to clearerr(), i.e., clears 'error' and (usually)
+'eof' flags for the "stream". Does not return a value.
+
+=item B<PerlIO_flush(f)>
+
+This corresponds to fflush().  Sends any buffered write data to the
+underlying file.  If called with C<NULL> this may flush all open
+streams (or core dump with some USE_STDIO implementations).  Calling
+on a handle open for read only, or on which last operation was a read
+of some kind may lead to undefined behaviour on some USE_STDIO
+implementations.  The USE_PERLIO (layers) implementation tries to
+behave better: it flushes all open streams when passed C<NULL>, and
+attempts to retain data on read streams either in the buffer or by
+seeking the handle to the current logical position.
+
+=item B<PerlIO_seek(f,offset,whence)>
+
+This corresponds to fseek().  Sends buffered write data to the
+underlying file, or discards any buffered read data, then positions
+the file descriptor as specified by B<offset> and B<whence> (sic).
+This is the correct thing to do when switching between read and write
+on the same handle (see issues with PerlIO_flush() above).  Offset is
+of type C<Off_t> which is a perl Configure value which may not be same
+as stdio's C<off_t>.
+
+=item B<PerlIO_tell(f)>
+
+This corresponds to ftell().  Returns the current file position, or
+(Off_t) -1 on error.  May just return value system "knows" without
+making a system call or checking the underlying file descriptor (so
+use on shared file descriptors is not safe without a
+PerlIO_seek()). Return value is of type C<Off_t> which is a perl
+Configure value which may not be same as stdio's C<off_t>.
+
+=item B<PerlIO_getpos(f,p)>, B<PerlIO_setpos(f,p)>
+
+These correspond (loosely) to fgetpos() and fsetpos(). Rather than
+stdio's Fpos_t they expect a "Perl Scalar Value" to be passed. What is
+stored there should be considered opaque. The layout of the data may
+vary from handle to handle.  When not using stdio or if platform does
+not have the stdio calls then they are implemented in terms of
+PerlIO_tell() and PerlIO_seek().
+
+=item B<PerlIO_rewind(f)>
+
+This corresponds to rewind(). It is usually defined as being
+
+    PerlIO_seek(f,(Off_t)0L, SEEK_SET);
+    PerlIO_clearerr(f);
+
+=item B<PerlIO_tmpfile()>
+
+This corresponds to tmpfile(), i.e., returns an anonymous PerlIO or
+NULL on error.  The system will attempt to automatically delete the
+file when closed.  On Unix the file is usually C<unlink>-ed just after
+it is created so it does not matter how it gets closed. On other
+systems the file may only be deleted if closed via PerlIO_close()
+and/or the program exits via C<exit>.  Depending on the implementation
+there may be "race conditions" which allow other processes access to
+the file, though in general it will be safer in this regard than
+ad. hoc. schemes.
+
+=item B<PerlIO_setlinebuf(f)>
+
+This corresponds to setlinebuf().  Does not return a value. What
+constitutes a "line" is implementation dependent but usually means
+that writing "\n" flushes the buffer.  What happens with things like
+"this\nthat" is uncertain.  (Perl core uses it I<only> when "dumping";
+it has nothing to do with $| auto-flush.)
+
+=back
+
+=head2 Co-existence with stdio
+
+There is outline support for co-existence of PerlIO with stdio.
+Obviously if PerlIO is implemented in terms of stdio there is no
+problem. However in other cases then mechanisms must exist to create a
+FILE * which can be passed to library code which is going to use stdio
+calls.
+
+The first step is to add this line:
+
+   #define PERLIO_NOT_STDIO 0
+
+I<before> including any perl header files. (This will probably become
+the default at some point).  That prevents "perlio.h" from attempting
+to #define stdio functions onto PerlIO functions.
+
+XS code is probably better using "typemap" if it expects FILE *
+arguments.  The standard typemap will be adjusted to comprehend any
+changes in this area.
+
+=over 4
+
+=item B<PerlIO_importFILE(f,mode)>
+
+Used to get a PerlIO * from a FILE *.
+
+The mode argument should be a string as would be passed to
+fopen/PerlIO_open.  If it is NULL then - for legacy support - the code
+will (depending upon the platform and the implementation) either
+attempt to empirically determine the mode in which I<f> is open, or
+use "r+" to indicate a read/write stream.
+
+Once called the FILE * should I<ONLY> be closed by calling
+C<PerlIO_close()> on the returned PerlIO *.
+
+The PerlIO is set to textmode. Use PerlIO_binmode if this is
+not the desired mode.
+
+This is B<not> the reverse of PerlIO_exportFILE().
+
+=item B<PerlIO_exportFILE(f,mode)>
+
+Given a PerlIO * create a 'native' FILE * suitable for passing to code
+expecting to be compiled and linked with ANSI C I<stdio.h>.  The mode
+argument should be a string as would be passed to fopen/PerlIO_open.
+If it is NULL then - for legacy support - the FILE * is opened in same
+mode as the PerlIO *.
+
+The fact that such a FILE * has been 'exported' is recorded, (normally
+by pushing a new :stdio "layer" onto the PerlIO *), which may affect
+future PerlIO operations on the original PerlIO *.  You should not
+call C<fclose()> on the file unless you call C<PerlIO_releaseFILE()>
+to disassociate it from the PerlIO *.  (Do not use PerlIO_importFILE()
+for doing the disassociation.)
+
+Calling this function repeatedly will create a FILE * on each call
+(and will push an :stdio layer each time as well).
+
+=item B<PerlIO_releaseFILE(p,f)>
+
+Calling PerlIO_releaseFILE informs PerlIO that all use of FILE * is
+complete. It is removed from the list of 'exported' FILE *s, and the
+associated PerlIO * should revert to its original behaviour.
+
+Use this to disassociate a file from a PerlIO * that was associated
+using PerlIO_exportFILE().
+
+=item B<PerlIO_findFILE(f)>
+
+Returns a native FILE * used by a stdio layer. If there is none, it
+will create one with PerlIO_exportFILE. In either case the FILE *
+should be considered as belonging to PerlIO subsystem and should
+only be closed by calling C<PerlIO_close()>.
+
+
+=back
+
+=head2 "Fast gets" Functions
+
+In addition to standard-like API defined so far above there is an
+"implementation" interface which allows perl to get at internals of
+PerlIO.  The following calls correspond to the various FILE_xxx macros
+determined by Configure - or their equivalent in other
+implementations. This section is really of interest to only those
+concerned with detailed perl-core behaviour, implementing a PerlIO
+mapping or writing code which can make use of the "read ahead" that
+has been done by the IO system in the same way perl does. Note that
+any code that uses these interfaces must be prepared to do things the
+traditional way if a handle does not support them.
+
+=over 4
+
+=item B<PerlIO_fast_gets(f)>
+
+Returns true if implementation has all the interfaces required to
+allow perl's C<sv_gets> to "bypass" normal IO mechanism.  This can
+vary from handle to handle.
+
+  PerlIO_fast_gets(f) = PerlIO_has_cntptr(f) && \
+                        PerlIO_canset_cnt(f) && \
+                        'Can set pointer into buffer'
+
+=item B<PerlIO_has_cntptr(f)>
+
+Implementation can return pointer to current position in the "buffer"
+and a count of bytes available in the buffer.  Do not use this - use
+PerlIO_fast_gets.
+
+=item B<PerlIO_get_cnt(f)>
+
+Return count of readable bytes in the buffer. Zero or negative return
+means no more bytes available.
+
+=item B<PerlIO_get_ptr(f)>
+
+Return pointer to next readable byte in buffer, accessing via the
+pointer (dereferencing) is only safe if PerlIO_get_cnt() has returned
+a positive value.  Only positive offsets up to value returned by
+PerlIO_get_cnt() are allowed.
+
+=item B<PerlIO_set_ptrcnt(f,p,c)>
+
+Set pointer into buffer, and a count of bytes still in the
+buffer. Should be used only to set pointer to within range implied by
+previous calls to C<PerlIO_get_ptr> and C<PerlIO_get_cnt>. The two
+values I<must> be consistent with each other (implementation may only
+use one or the other or may require both).
+
+=item B<PerlIO_canset_cnt(f)>
+
+Implementation can adjust its idea of number of bytes in the buffer.
+Do not use this - use PerlIO_fast_gets.
+
+=item B<PerlIO_set_cnt(f,c)>
+
+Obscure - set count of bytes in the buffer. Deprecated.  Only usable
+if PerlIO_canset_cnt() returns true.  Currently used in only doio.c to
+force count less than -1 to -1.  Perhaps should be PerlIO_set_empty or
+similar.  This call may actually do nothing if "count" is deduced from
+pointer and a "limit".  Do not use this - use PerlIO_set_ptrcnt().
+
+=item B<PerlIO_has_base(f)>
+
+Returns true if implementation has a buffer, and can return pointer
+to whole buffer and its size. Used by perl for B<-T> / B<-B> tests.
+Other uses would be very obscure...
+
+=item B<PerlIO_get_base(f)>
+
+Return I<start> of buffer. Access only positive offsets in the buffer
+up to the value returned by PerlIO_get_bufsiz().
+
+=item B<PerlIO_get_bufsiz(f)>
+
+Return the I<total number of bytes> in the buffer, this is neither the
+number that can be read, nor the amount of memory allocated to the
+buffer. Rather it is what the operating system and/or implementation
+happened to C<read()> (or whatever) last time IO was requested.
+
+=back
+
+=head2 Other Functions
+
+=over 4
+
+=item PerlIO_apply_layers(f,mode,layers)
+
+The new interface to the USE_PERLIO implementation. The layers ":crlf"
+and ":raw" are only ones allowed for other implementations and those
+are silently ignored. (As of perl5.8 ":raw" is deprecated.)  Use
+PerlIO_binmode() below for the portable case.
+
+=item PerlIO_binmode(f,ptype,imode,layers)
+
+The hook used by perl's C<binmode> operator.
+B<ptype> is perl's character for the kind of IO:
+
+=over 8
+
+=item 'E<lt>' read
+
+=item 'E<gt>' write
+
+=item '+' read/write
+
+=back
+
+B<imode> is C<O_BINARY> or C<O_TEXT>.
+
+B<layers> is a string of layers to apply, only ":crlf" makes sense in
+the non USE_PERLIO case. (As of perl5.8 ":raw" is deprecated in favour
+of passing NULL.)
+
+Portable cases are:
+
+    PerlIO_binmode(f,ptype,O_BINARY,NULL);
+and
+    PerlIO_binmode(f,ptype,O_TEXT,":crlf");
+
+On Unix these calls probably have no effect whatsoever.  Elsewhere
+they alter "\n" to CR,LF translation and possibly cause a special text
+"end of file" indicator to be written or honoured on read. The effect
+of making the call after doing any IO to the handle depends on the
+implementation. (It may be ignored, affect any data which is already
+buffered as well, or only apply to subsequent data.)
+
+=item PerlIO_debug(fmt,...)
+
+PerlIO_debug is a printf()-like function which can be used for
+debugging.  No return value. Its main use is inside PerlIO where using
+real printf, warn() etc. would recursively call PerlIO and be a
+problem.
+
+PerlIO_debug writes to the file named by $ENV{'PERLIO_DEBUG'} or defaults
+to stderr if the environment variable is not defined. Typical
+use might be
+
+  Bourne shells (sh, ksh, bash, zsh, ash, ...):
+   PERLIO_DEBUG=/tmp/perliodebug.log ./perl -Di somescript some args
+
+  Csh/Tcsh:
+   setenv PERLIO_DEBUG /tmp/perliodebug.log
+   ./perl -Di somescript some args
+
+  If you have the "env" utility:
+   env PERLIO_DEBUG=/tmp/perliodebug.log ./perl -Di somescript args
+
+  Win32:
+   set PERLIO_DEBUG=perliodebug.log
+   perl -Di somescript some args
+
+On a Perl built without C<-DDEBUGGING>, or when the C<-Di> command-line switch
+is not specified, or under taint, PerlIO_debug() is a no-op.
+
+=back
diff --git a/lib/5.24.1/pod/perlartistic.pod b/lib/5.24.1/pod/perlartistic.pod
new file mode 100644
index 00000000..63813ff4
--- /dev/null
+++ b/lib/5.24.1/pod/perlartistic.pod
@@ -0,0 +1,224 @@
+
+=head1 NAME
+
+perlartistic - the Perl Artistic License
+
+=head1 SYNOPSIS
+
+ You can refer to this document in Pod via "L<perlartistic>"
+ Or you can see this document by entering "perldoc perlartistic"
+
+=head1 DESCRIPTION
+
+Perl is free software; you can redistribute it and/or modify
+it under the terms of either:
+
+        a) the GNU General Public License as published by the Free
+        Software Foundation; either version 1, or (at your option) any
+        later version, or
+
+        b) the "Artistic License" which comes with this Kit.
+
+This is B<"The Artistic License">.
+It's here so that modules, programs, etc., that want to declare
+this as their distribution license can link to it.
+
+For the GNU General Public License, see L<perlgpl>.
+
+=head1 The "Artistic License"
+
+=head2 Preamble
+
+The intent of this document is to state the conditions under which a
+Package may be copied, such that the Copyright Holder maintains some
+semblance of artistic control over the development of the package,
+while giving the users of the package the right to use and distribute
+the Package in a more-or-less customary fashion, plus the right to make
+reasonable modifications.
+
+=head2 Definitions
+
+=over
+
+=item "Package"
+
+refers to the collection of files distributed by the
+Copyright Holder, and derivatives of that collection of files created
+through textual modification.
+
+=item "Standard Version"
+
+refers to such a Package if it has not been
+modified, or has been modified in accordance with the wishes of the
+Copyright Holder as specified below.
+
+=item "Copyright Holder"
+
+is whoever is named in the copyright or
+copyrights for the package.
+
+=item "You"
+
+is you, if you're thinking about copying or distributing this Package.
+
+=item "Reasonable copying fee"
+
+is whatever you can justify on the basis
+of media cost, duplication charges, time of people involved, and so on.
+(You will not be required to justify it to the Copyright Holder, but
+only to the computing community at large as a market that must bear the
+fee.)
+
+=item "Freely Available"
+
+means that no fee is charged for the item
+itself, though there may be fees involved in handling the item. It also
+means that recipients of the item may redistribute it under the same
+conditions they received it.
+
+=back
+
+=head2 Conditions
+
+=over
+
+=item 1.
+
+You may make and give away verbatim copies of the source form of the
+Standard Version of this Package without restriction, provided that you
+duplicate all of the original copyright notices and associated disclaimers.
+
+=item 2.
+
+You may apply bug fixes, portability fixes and other modifications
+derived from the Public Domain or from the Copyright Holder.  A Package
+modified in such a way shall still be considered the Standard Version.
+
+=item 3.
+
+You may otherwise modify your copy of this Package in any way, provided
+that you insert a prominent notice in each changed file stating how and
+when you changed that file, and provided that you do at least ONE of the
+following:
+
+=over
+
+=item a)
+
+place your modifications in the Public Domain or otherwise make them
+Freely Available, such as by posting said modifications to Usenet or an
+equivalent medium, or placing the modifications on a major archive site
+such as uunet.uu.net, or by allowing the Copyright Holder to include
+your modifications in the Standard Version of the Package.
+
+=item b)
+
+use the modified Package only within your corporation or organization.
+
+=item c)
+
+rename any non-standard executables so the names do not conflict with
+standard executables, which must also be provided, and provide a
+separate manual page for each non-standard executable that clearly
+documents how it differs from the Standard Version.
+
+=item d)
+
+make other distribution arrangements with the Copyright Holder.
+
+=back
+
+=item 4.
+
+You may distribute the programs of this Package in object code or
+executable form, provided that you do at least ONE of the following:
+
+=over
+
+=item a)
+
+distribute a Standard Version of the executables and library files,
+together with instructions (in the manual page or equivalent) on where
+to get the Standard Version.
+
+=item b)
+
+accompany the distribution with the machine-readable source of the
+Package with your modifications.
+
+=item c)
+
+give non-standard executables non-standard names, and clearly
+document the differences in manual pages (or equivalent), together with
+instructions on where to get the Standard Version.
+
+=item d)
+
+make other distribution arrangements with the Copyright Holder.
+
+=back
+
+=item 5.
+
+You may charge a reasonable copying fee for any distribution of this
+Package.  You may charge any fee you choose for support of this
+Package.  You may not charge a fee for this Package itself.  However,
+you may distribute this Package in aggregate with other (possibly
+commercial) programs as part of a larger (possibly commercial) software
+distribution provided that you do not advertise this Package as a
+product of your own.  You may embed this Package's interpreter within
+an executable of yours (by linking); this shall be construed as a mere
+form of aggregation, provided that the complete Standard Version of the
+interpreter is so embedded.
+
+=item 6.
+
+The scripts and library files supplied as input to or produced as
+output from the programs of this Package do not automatically fall
+under the copyright of this Package, but belong to whoever generated
+them, and may be sold commercially, and may be aggregated with this
+Package.  If such scripts or library files are aggregated with this
+Package via the so-called "undump" or "unexec" methods of producing a
+binary executable image, then distribution of such an image shall
+neither be construed as a distribution of this Package nor shall it
+fall under the restrictions of Paragraphs 3 and 4, provided that you do
+not represent such an executable image as a Standard Version of this
+Package.
+
+=item 7.
+
+C subroutines (or comparably compiled subroutines in other
+languages) supplied by you and linked into this Package in order to
+emulate subroutines and variables of the language defined by this
+Package shall not be considered part of this Package, but are the
+equivalent of input as in Paragraph 6, provided these subroutines do
+not change the language in any way that would cause it to fail the
+regression tests for the language.
+
+=item 8.
+
+Aggregation of this Package with a commercial distribution is always
+permitted provided that the use of this Package is embedded; that is,
+when no overt attempt is made to make this Package's interfaces visible
+to the end user of the commercial distribution.  Such use shall not be
+construed as a distribution of this Package.
+
+=item 9.
+
+The name of the Copyright Holder may not be used to endorse or promote
+products derived from this software without specific prior written permission.
+
+
+=item 10.
+
+THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR
+IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
+WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
+
+=back
+
+The End
+
+=cut
+
+
diff --git a/lib/5.24.1/pod/perlbook.pod b/lib/5.24.1/pod/perlbook.pod
new file mode 100644
index 00000000..e03a1d32
--- /dev/null
+++ b/lib/5.24.1/pod/perlbook.pod
@@ -0,0 +1,321 @@
+=head1 NAME
+
+perlbook - Books about and related to Perl
+
+=head1 DESCRIPTION
+
+There are many books on Perl and Perl-related. A few of these are
+good, some are OK, but many aren't worth your money. There is a list
+of these books, some with extensive reviews, at
+L<http://books.perl.org/> . We list some of the books here, and while
+listing a book implies our
+endorsement, don't think that not including a book means anything.
+
+Most of these books are available online through Safari Books Online
+( L<http://safaribooksonline.com/> ).
+
+=head2 The most popular books
+
+The major reference book on Perl, written by the creator of Perl, is
+I<Programming Perl>:
+
+=over 4
+
+=item I<Programming Perl> (the "Camel Book"):
+
+ by Tom Christiansen, brian d foy, Larry Wall with Jon Orwant
+ ISBN 978-0-596-00492-7 [4th edition February 2012]
+ ISBN 978-1-4493-9890-3 [ebook]
+ http://oreilly.com/catalog/9780596004927
+
+=back
+
+The Ram is a cookbook with hundreds of examples of using Perl to
+accomplish specific tasks:
+
+=over 4
+
+=item I<The Perl Cookbook> (the "Ram Book"):
+
+ by Tom Christiansen and Nathan Torkington,
+ with Foreword by Larry Wall
+ ISBN 978-0-596-00313-5 [2nd Edition August 2003]
+ ISBN 978-0-596-15888-0 [ebook]
+ http://oreilly.com/catalog/9780596003135/
+
+=back
+
+If you want to learn the basics of Perl, you might start with the
+Llama book, which assumes that you already know a little about
+programming:
+
+=over 4
+
+=item I<Learning Perl>  (the "Llama Book")
+
+ by Randal L. Schwartz, Tom Phoenix, and brian d foy
+ ISBN 978-1-4493-0358-7 [6th edition June 2011]
+ ISBN 978-1-4493-0458-4 [ebook]
+ http://www.learning-perl.com/
+
+=back
+
+The tutorial started in the Llama continues in the Alpaca, which
+introduces the intermediate features of references, data structures,
+object-oriented programming, and modules:
+
+=over 4
+
+=item I<Intermediate Perl> (the "Alpaca Book")
+
+ by Randal L. Schwartz and brian d foy, with Tom Phoenix
+         foreword by Damian Conway
+ ISBN 978-1-4493-9309-0 [2nd edition August 2012]
+ ISBN 978-1-4493-0459-1 [ebook]
+ http://www.intermediateperl.com/
+
+=back
+
+=head2 References
+
+You might want to keep these desktop references close by your keyboard:
+
+=over 4
+
+=item I<Perl 5 Pocket Reference>
+
+ by Johan Vromans
+ ISBN 978-1-4493-0370-9 [5th edition July 2011]
+ ISBN 978-1-4493-0813-1 [ebook]
+ http://oreilly.com/catalog/0636920018476/
+
+=item I<Perl Debugger Pocket Reference>
+
+ by Richard Foley
+ ISBN 978-0-596-00503-0 [1st edition January 2004]
+ ISBN 978-0-596-55625-9 [ebook]
+ http://oreilly.com/catalog/9780596005030/
+
+=item I<Regular Expression Pocket Reference>
+
+ by Tony Stubblebine
+ ISBN 978-0-596-51427-3 [2nd edition July 2007]
+ ISBN 978-0-596-55782-9 [ebook]
+ http://oreilly.com/catalog/9780596514273/
+
+=back
+
+=head2 Tutorials
+
+=over 4
+
+=item I<Beginning Perl>
+
+(There are 2 books with this title)
+
+ by Curtis 'Ovid' Poe
+ ISBN 978-1-118-01384-7
+ http://www.wrox.com/WileyCDA/WroxTitle/productCd-1118013840.html
+
+ by James Lee
+ ISBN 1-59059-391-X [3rd edition April 2010 & ebook]
+ http://www.apress.com/9781430227939
+
+=item I<Learning Perl> (the "Llama Book")
+
+ by Randal L. Schwartz, Tom Phoenix, and brian d foy
+ ISBN 978-1-4493-0358-7 [6th edition June 2011]
+ ISBN 978-1-4493-0458-4 [ebook]
+ http://www.learning-perl.com/
+
+=item I<Intermediate Perl> (the "Alpaca Book")
+
+ by Randal L. Schwartz and brian d foy, with Tom Phoenix
+         foreword by Damian Conway
+ ISBN 978-1-4493-9309-0 [2nd edition August 2012]
+ ISBN 978-1-4493-0459-1 [ebook]
+ http://www.intermediateperl.com/
+
+=item I<Mastering Perl>
+
+    by brian d foy
+ ISBN 9978-1-4493-9311-3 [2st edition January 2014]
+ ISBN 978-1-4493-6487-8 [ebook]
+ http://www.masteringperl.org/
+
+=item I<Effective Perl Programming>
+
+ by Joseph N. Hall, Joshua A. McAdams, brian d foy
+ ISBN 0-321-49694-9 [2nd edition 2010]
+ http://www.effectiveperlprogramming.com/
+
+=back
+
+=head2 Task-Oriented
+
+=over 4
+
+=item I<Writing Perl Modules for CPAN>
+
+ by Sam Tregar
+ ISBN 1-59059-018-X [1st edition August 2002 & ebook]
+ http://www.apress.com/9781590590188
+
+=item I<The Perl Cookbook>
+
+ by Tom Christiansen and Nathan Torkington,
+     with Foreword by Larry Wall
+ ISBN 978-0-596-00313-5 [2nd Edition August 2003]
+ ISBN 978-0-596-15888-0 [ebook]
+ http://oreilly.com/catalog/9780596003135/
+
+=item I<Automating System Administration with Perl>
+
+ by David N. Blank-Edelman
+ ISBN 978-0-596-00639-6 [2nd edition May 2009]
+ ISBN 978-0-596-80251-6 [ebook]
+ http://oreilly.com/catalog/9780596006396
+
+=item I<Real World SQL Server Administration with Perl>
+
+ by Linchi Shea
+ ISBN 1-59059-097-X [1st edition July 2003 & ebook]
+ http://www.apress.com/9781590590973
+
+=back
+
+=head2 Special Topics
+
+=over 4
+
+=item I<Regular Expressions Cookbook>
+
+ by Jan Goyvaerts and Steven Levithan
+ ISBN 978-1-4493-1943-4 [2nd edition August 2012]
+ ISBN 978-1-4493-2747-7 [ebook]
+ http://shop.oreilly.com/product/0636920023630.do
+
+=item I<Programming the Perl DBI>
+
+ by Tim Bunce and Alligator Descartes
+ ISBN 978-1-56592-699-8 [February 2000]
+ ISBN 978-1-4493-8670-2 [ebook]
+ http://oreilly.com/catalog/9781565926998
+
+=item I<Perl Best Practices>
+
+ by Damian Conway
+ ISBN 978-0-596-00173-5 [1st edition July 2005]
+ ISBN 978-0-596-15900-9 [ebook]
+ http://oreilly.com/catalog/9780596001735
+
+=item I<Higher-Order Perl>
+
+ by Mark-Jason Dominus
+ ISBN 1-55860-701-3 [1st edition March 2005]
+ free ebook http://hop.perl.plover.com/book/
+ http://hop.perl.plover.com/
+
+=item I<Mastering Regular Expressions>
+
+ by Jeffrey E. F. Friedl
+ ISBN 978-0-596-52812-6 [3rd edition August 2006]
+ ISBN 978-0-596-55899-4 [ebook]
+ http://oreilly.com/catalog/9780596528126
+
+=item I<Network Programming with Perl>
+
+ by Lincoln Stein
+ ISBN 0-201-61571-1 [1st edition 2001]
+ http://www.pearsonhighered.com/educator/product/Network-Programming-with-Perl/9780201615715.page
+
+=item I<Perl Template Toolkit>
+
+ by Darren Chamberlain, Dave Cross, and Andy Wardley
+ ISBN 978-0-596-00476-7 [December 2003]
+ ISBN 978-1-4493-8647-4 [ebook]
+ http://oreilly.com/catalog/9780596004767
+
+=item I<Object Oriented Perl>
+
+ by Damian Conway
+     with foreword by Randal L. Schwartz
+ ISBN 1-884777-79-1 [1st edition August 1999 & ebook]
+ http://www.manning.com/conway/
+
+=item I<Data Munging with Perl>
+
+ by Dave Cross
+ ISBN 1-930110-00-6 [1st edition 2001 & ebook]
+ http://www.manning.com/cross
+
+=item I<Mastering Perl/Tk>
+
+ by Steve Lidie and Nancy Walsh
+ ISBN 978-1-56592-716-2 [1st edition January 2002]
+ ISBN 978-0-596-10344-6 [ebook]
+ http://oreilly.com/catalog/9781565927162
+
+=item I<Extending and Embedding Perl>
+
+ by Tim Jenness and Simon Cozens
+ ISBN 1-930110-82-0 [1st edition August 2002 & ebook]
+ http://www.manning.com/jenness
+
+=item I<Pro Perl Debugging>
+
+ by Richard Foley with Andy Lester
+ ISBN 1-59059-454-1 [1st edition July 2005 & ebook]
+ http://www.apress.com/9781590594544
+
+=back
+
+=head2 Free (as in beer) books
+
+Some of these books are available as free downloads.
+
+I<Higher-Order Perl>: L<http://hop.perl.plover.com/>
+
+I<Modern Perl>: L<http://onyxneon.com/books/modern_perl/>
+
+=head2 Other interesting, non-Perl books
+
+You might notice several familiar Perl concepts in this collection of
+ACM columns from Jon Bentley. The similarity to the title of the major
+Perl book (which came later) is not completely accidental:
+
+=over 4
+
+=item I<Programming Pearls>
+
+ by Jon Bentley
+ ISBN 978-0-201-65788-3 [2 edition, October 1999]
+
+=item I<More Programming Pearls>
+
+ by Jon Bentley
+ ISBN 0-201-11889-0 [January 1988]
+
+=back
+
+=head2 A note on freshness
+
+Each version of Perl comes with the documentation that was current at
+the time of release. This poses a problem for content such as book
+lists. There are probably very nice books published after this list
+was included in your Perl release, and you can check the latest
+released version at L<http://perldoc.perl.org/perlbook.html> .
+
+Some of the books we've listed appear almost ancient in internet
+scale, but we've included those books because they still describe the
+current way of doing things. Not everything in Perl changes every day.
+Many of the beginner-level books, too, go over basic features and
+techniques that are still valid today. In general though, we try to
+limit this list to books published in the past five years.
+
+=head2 Get your book listed
+
+If your Perl book isn't listed and you think it should be, let us know.
+L<mailto:perl5-porters@perl.org>
+
+=cut
diff --git a/lib/5.24.1/pod/perlboot.pod b/lib/5.24.1/pod/perlboot.pod
new file mode 100644
index 00000000..82599980
--- /dev/null
+++ b/lib/5.24.1/pod/perlboot.pod
@@ -0,0 +1,15 @@
+=encoding utf8
+
+=head1 NAME
+
+perlboot - Links to information on object-oriented programming in Perl
+
+=head1 DESCRIPTION
+
+For information on OO programming with Perl, please see L<perlootut>
+and L<perlobj>.
+
+(The above documents supersede the tutorial that was formerly here in
+perlboot.)
+
+=cut
diff --git a/lib/5.24.1/pod/perlbot.pod b/lib/5.24.1/pod/perlbot.pod
new file mode 100644
index 00000000..cbf6649b
--- /dev/null
+++ b/lib/5.24.1/pod/perlbot.pod
@@ -0,0 +1,15 @@
+=encoding utf8
+
+=head1 NAME
+
+perlbot - Links to information on object-oriented programming in Perl
+
+=head1 DESCRIPTION
+
+For information on OO programming with Perl, please see L<perlootut>
+and L<perlobj>.
+
+(The above documents supersede the collection of tricks that was formerly here
+in perlbot.)
+
+=cut
diff --git a/lib/5.24.1/pod/perlbs2000.pod b/lib/5.24.1/pod/perlbs2000.pod
new file mode 100644
index 00000000..92cf0ed8
--- /dev/null
+++ b/lib/5.24.1/pod/perlbs2000.pod
@@ -0,0 +1,244 @@
+This document is written in pod format hence there are punctuation
+characters in odd places.  Do not worry, you've apparently got the
+ASCII->EBCDIC translation worked out correctly.  You can read more
+about pod in pod/perlpod.pod or the short summary in the INSTALL file.
+
+=head1 NAME
+
+perlbs2000 - building and installing Perl for BS2000.
+
+B<This document needs to be updated, but we don't know what it should say.
+Please email comments to L<perlbug@perl.org|mailto:perlbug@perl.org>.>
+
+=head1 SYNOPSIS
+
+This document will help you Configure, build, test and install Perl
+on BS2000 in the POSIX subsystem.
+
+=head1 DESCRIPTION
+
+This is a ported perl for the POSIX subsystem in BS2000 VERSION OSD
+V3.1A or later.  It may work on other versions, but we started porting
+and testing it with 3.1A and are currently using Version V4.0A.
+
+You may need the following GNU programs in order to install perl:
+
+=head2 gzip on BS2000
+
+We used version 1.2.4, which could be installed out of the box with
+one failure during 'make check'.
+
+=head2 bison on BS2000
+
+The yacc coming with BS2000 POSIX didn't work for us.  So we had to
+use bison.  We had to make a few changes to perl in order to use the
+pure (reentrant) parser of bison.  We used version 1.25, but we had to
+add a few changes due to EBCDIC.  See below for more details
+concerning yacc.
+
+=head2 Unpacking Perl Distribution on BS2000
+
+To extract an ASCII tar archive on BS2000 POSIX you need an ASCII
+filesystem (we used the mountpoint /usr/local/ascii for this).  Now
+you extract the archive in the ASCII filesystem without
+I/O-conversion:
+
+cd /usr/local/ascii
+export IO_CONVERSION=NO
+gunzip < /usr/local/src/perl.tar.gz | pax -r
+
+You may ignore the error message for the first element of the archive
+(this doesn't look like a tar archive / skipping to next file...),
+it's only the directory which will be created automatically anyway.
+
+After extracting the archive you copy the whole directory tree to your
+EBCDIC filesystem.  B<This time you use I/O-conversion>:
+
+cd /usr/local/src
+IO_CONVERSION=YES
+cp -r /usr/local/ascii/perl5.005_02 ./
+
+=head2 Compiling Perl on BS2000
+
+There is a "hints" file for BS2000 called hints.posix-bc (because
+posix-bc is the OS name given by `uname`) that specifies the correct
+values for most things.  The major problem is (of course) the EBCDIC
+character set.  We have german EBCDIC version.
+
+Because of our problems with the native yacc we used GNU bison to
+generate a pure (=reentrant) parser for perly.y.  So our yacc is
+really the following script:
+
+-----8<-----/usr/local/bin/yacc-----8<-----
+#! /usr/bin/sh
+
+# Bison as a reentrant yacc:
+
+# save parameters:
+params=""
+while [[ $# -gt 1 ]]; do
+    params="$params $1"
+    shift
+done
+
+# add flag %pure_parser:
+
+tmpfile=/tmp/bison.$$.y
+echo %pure_parser > $tmpfile
+cat $1 >> $tmpfile
+
+# call bison:
+
+echo "/usr/local/bin/bison --yacc $params $1\t\t\t(Pure Parser)"
+/usr/local/bin/bison --yacc $params $tmpfile
+
+# cleanup:
+
+rm -f $tmpfile
+-----8<----------8<-----
+
+We still use the normal yacc for a2p.y though!!!  We made a softlink
+called byacc to distinguish between the two versions:
+
+ln -s /usr/bin/yacc /usr/local/bin/byacc
+
+We build perl using GNU make.  We tried the native make once and it
+worked too.
+
+=head2 Testing Perl on BS2000
+
+We still got a few errors during C<make test>.  Some of them are the
+result of using bison.  Bison prints I<parser error> instead of I<syntax
+error>, so we may ignore them.  The following list shows
+our errors, your results may differ:
+
+op/numconvert.......FAILED tests 1409-1440
+op/regexp...........FAILED tests 483, 496
+op/regexp_noamp.....FAILED tests 483, 496
+pragma/overload.....FAILED tests 152-153, 170-171
+pragma/warnings.....FAILED tests 14, 82, 129, 155, 192, 205, 207
+lib/bigfloat........FAILED tests 351-352, 355
+lib/bigfltpm........FAILED tests 354-355, 358
+lib/complex.........FAILED tests 267, 487
+lib/dumper..........FAILED tests 43, 45
+Failed 11/231 test scripts, 95.24% okay. 57/10595 subtests failed, 99.46% okay.
+
+=head2 Installing Perl on BS2000
+
+We have no nroff on BS2000 POSIX (yet), so we ignored any errors while
+installing the documentation.
+
+
+=head2 Using Perl in the Posix-Shell of BS2000
+
+BS2000 POSIX doesn't support the shebang notation
+(C<#!/usr/local/bin/perl>), so you have to use the following lines
+instead:
+
+: # use perl
+    eval 'exec /usr/local/bin/perl -S $0 ${1+"$@"}'
+        if $running_under_some_shell;
+
+=head2 Using Perl in "native" BS2000
+
+We don't have much experience with this yet, but try the following:
+
+Copy your Perl executable to a BS2000 LLM using bs2cp:
+
+C<bs2cp /usr/local/bin/perl 'bs2:perl(perl,l)'>
+
+Now you can start it with the following (SDF) command:
+
+C</START-PROG FROM-FILE=*MODULE(PERL,PERL),PROG-MODE=*ANY,RUN-MODE=*ADV>
+
+First you get the BS2000 commandline prompt ('*').  Here you may enter
+your parameters, e.g. C<-e 'print "Hello World!\\n";'> (note the
+double backslash!) or C<-w> and the name of your Perl script.
+Filenames starting with C</> are searched in the Posix filesystem,
+others are searched in the BS2000 filesystem.  You may even use
+wildcards if you put a C<%> in front of your filename (e.g. C<-w
+checkfiles.pl %*.c>).  Read your C/C++ manual for additional
+possibilities of the commandline prompt (look for
+PARAMETER-PROMPTING).
+
+=head2 Floating point anomalies on BS2000
+
+There appears to be a bug in the floating point implementation on BS2000 POSIX
+systems such that calling int() on the product of a number and a small
+magnitude number is not the same as calling int() on the quotient of
+that number and a large magnitude number.  For example, in the following
+Perl code:
+
+    my $x = 100000.0;
+    my $y = int($x * 1e-5) * 1e5; # '0'
+    my $z = int($x / 1e+5) * 1e5;  # '100000'
+    print "\$y is $y and \$z is $z\n"; # $y is 0 and $z is 100000
+
+Although one would expect the quantities $y and $z to be the same and equal
+to 100000 they will differ and instead will be 0 and 100000 respectively.
+
+=head2 Using PerlIO and different encodings on ASCII and EBCDIC partitions
+
+Since version 5.8 Perl uses the new PerlIO on BS2000.  This enables
+you using different encodings per IO channel.  For example you may use
+
+    use Encode;
+    open($f, ">:encoding(ascii)", "test.ascii");
+    print $f "Hello World!\n";
+    open($f, ">:encoding(posix-bc)", "test.ebcdic");
+    print $f "Hello World!\n";
+    open($f, ">:encoding(latin1)", "test.latin1");
+    print $f "Hello World!\n";
+    open($f, ">:encoding(utf8)", "test.utf8");
+    print $f "Hello World!\n";
+
+to get two files containing "Hello World!\n" in ASCII, EBCDIC, ISO
+Latin-1 (in this example identical to ASCII) respective UTF-EBCDIC (in
+this example identical to normal EBCDIC).  See the documentation of
+Encode::PerlIO for details.
+
+As the PerlIO layer uses raw IO internally, all this totally ignores
+the type of your filesystem (ASCII or EBCDIC) and the IO_CONVERSION
+environment variable.  If you want to get the old behavior, that the
+BS2000 IO functions determine conversion depending on the filesystem
+PerlIO still is your friend.  You use IO_CONVERSION as usual and tell
+Perl, that it should use the native IO layer:
+
+    export IO_CONVERSION=YES
+    export PERLIO=stdio
+
+Now your IO would be ASCII on ASCII partitions and EBCDIC on EBCDIC
+partitions.  See the documentation of PerlIO (without C<Encode::>!)
+for further possibilities.
+
+=head1 AUTHORS
+
+Thomas Dorner
+
+=head1 SEE ALSO
+
+L<INSTALL>, L<perlport>.
+
+=head2 Mailing list
+
+If you are interested in the z/OS (formerly known as OS/390)
+and POSIX-BC (BS2000) ports of Perl then see the perl-mvs mailing list.
+To subscribe, send an empty message to perl-mvs-subscribe@perl.org.
+
+See also:
+
+    http://lists.perl.org/list/perl-mvs.html
+
+There are web archives of the mailing list at:
+
+    http://www.xray.mpe.mpg.de/mailing-lists/perl-mvs/
+    http://archive.develooper.com/perl-mvs@perl.org/
+
+=head1 HISTORY
+
+This document was originally written by Thomas Dorner for the 5.005
+release of Perl.
+
+This document was podified for the 5.6 release of perl 11 July 2000.
+
+=cut
diff --git a/lib/5.24.1/pod/perlcall.pod b/lib/5.24.1/pod/perlcall.pod
new file mode 100644
index 00000000..c41d8357
--- /dev/null
+++ b/lib/5.24.1/pod/perlcall.pod
@@ -0,0 +1,1985 @@
+=head1 NAME
+
+perlcall - Perl calling conventions from C
+
+=head1 DESCRIPTION
+
+The purpose of this document is to show you how to call Perl subroutines
+directly from C, i.e., how to write I<callbacks>.
+
+Apart from discussing the C interface provided by Perl for writing
+callbacks the document uses a series of examples to show how the
+interface actually works in practice.  In addition some techniques for
+coding callbacks are covered.
+
+Examples where callbacks are necessary include
+
+=over 5
+
+=item * An Error Handler
+
+You have created an XSUB interface to an application's C API.
+
+A fairly common feature in applications is to allow you to define a C
+function that will be called whenever something nasty occurs. What we
+would like is to be able to specify a Perl subroutine that will be
+called instead.
+
+=item * An Event-Driven Program
+
+The classic example of where callbacks are used is when writing an
+event driven program, such as for an X11 application.  In this case
+you register functions to be called whenever specific events occur,
+e.g., a mouse button is pressed, the cursor moves into a window or a
+menu item is selected.
+
+=back
+
+Although the techniques described here are applicable when embedding
+Perl in a C program, this is not the primary goal of this document.
+There are other details that must be considered and are specific to
+embedding Perl. For details on embedding Perl in C refer to
+L<perlembed>.
+
+Before you launch yourself head first into the rest of this document,
+it would be a good idea to have read the following two documents--L<perlxs>
+and L<perlguts>.
+
+=head1 THE CALL_ FUNCTIONS
+
+Although this stuff is easier to explain using examples, you first need
+be aware of a few important definitions.
+
+Perl has a number of C functions that allow you to call Perl
+subroutines.  They are
+
+    I32 call_sv(SV* sv, I32 flags);
+    I32 call_pv(char *subname, I32 flags);
+    I32 call_method(char *methname, I32 flags);
+    I32 call_argv(char *subname, I32 flags, char **argv);
+
+The key function is I<call_sv>.  All the other functions are
+fairly simple wrappers which make it easier to call Perl subroutines in
+special cases. At the end of the day they will all call I<call_sv>
+to invoke the Perl subroutine.
+
+All the I<call_*> functions have a C<flags> parameter which is
+used to pass a bit mask of options to Perl.  This bit mask operates
+identically for each of the functions.  The settings available in the
+bit mask are discussed in L</FLAG VALUES>.
+
+Each of the functions will now be discussed in turn.
+
+=over 5
+
+=item call_sv
+
+I<call_sv> takes two parameters. The first, C<sv>, is an SV*.
+This allows you to specify the Perl subroutine to be called either as a
+C string (which has first been converted to an SV) or a reference to a
+subroutine. The section, L</Using call_sv>, shows how you can make
+use of I<call_sv>.
+
+=item call_pv
+
+The function, I<call_pv>, is similar to I<call_sv> except it
+expects its first parameter to be a C char* which identifies the Perl
+subroutine you want to call, e.g., C<call_pv("fred", 0)>.  If the
+subroutine you want to call is in another package, just include the
+package name in the string, e.g., C<"pkg::fred">.
+
+=item call_method
+
+The function I<call_method> is used to call a method from a Perl
+class.  The parameter C<methname> corresponds to the name of the method
+to be called.  Note that the class that the method belongs to is passed
+on the Perl stack rather than in the parameter list. This class can be
+either the name of the class (for a static method) or a reference to an
+object (for a virtual method).  See L<perlobj> for more information on
+static and virtual methods and L</Using call_method> for an example
+of using I<call_method>.
+
+=item call_argv
+
+I<call_argv> calls the Perl subroutine specified by the C string
+stored in the C<subname> parameter. It also takes the usual C<flags>
+parameter.  The final parameter, C<argv>, consists of a NULL-terminated
+list of C strings to be passed as parameters to the Perl subroutine.
+See L</Using call_argv>.
+
+=back
+
+All the functions return an integer. This is a count of the number of
+items returned by the Perl subroutine. The actual items returned by the
+subroutine are stored on the Perl stack.
+
+As a general rule you should I<always> check the return value from
+these functions.  Even if you are expecting only a particular number of
+values to be returned from the Perl subroutine, there is nothing to
+stop someone from doing something unexpected--don't say you haven't
+been warned.
+
+=head1 FLAG VALUES
+
+The C<flags> parameter in all the I<call_*> functions is one of G_VOID,
+G_SCALAR, or G_ARRAY, which indicate the call context, OR'ed together
+with a bit mask of any combination of the other G_* symbols defined below.
+
+=head2  G_VOID
+
+Calls the Perl subroutine in a void context.
+
+This flag has 2 effects:
+
+=over 5
+
+=item 1.
+
+It indicates to the subroutine being called that it is executing in
+a void context (if it executes I<wantarray> the result will be the
+undefined value).
+
+=item 2.
+
+It ensures that nothing is actually returned from the subroutine.
+
+=back
+
+The value returned by the I<call_*> function indicates how many
+items have been returned by the Perl subroutine--in this case it will
+be 0.
+
+
+=head2  G_SCALAR
+
+Calls the Perl subroutine in a scalar context.  This is the default
+context flag setting for all the I<call_*> functions.
+
+This flag has 2 effects:
+
+=over 5
+
+=item 1.
+
+It indicates to the subroutine being called that it is executing in a
+scalar context (if it executes I<wantarray> the result will be false).
+
+=item 2.
+
+It ensures that only a scalar is actually returned from the subroutine.
+The subroutine can, of course,  ignore the I<wantarray> and return a
+list anyway. If so, then only the last element of the list will be
+returned.
+
+=back
+
+The value returned by the I<call_*> function indicates how many
+items have been returned by the Perl subroutine - in this case it will
+be either 0 or 1.
+
+If 0, then you have specified the G_DISCARD flag.
+
+If 1, then the item actually returned by the Perl subroutine will be
+stored on the Perl stack - the section L</Returning a Scalar> shows how
+to access this value on the stack.  Remember that regardless of how
+many items the Perl subroutine returns, only the last one will be
+accessible from the stack - think of the case where only one value is
+returned as being a list with only one element.  Any other items that
+were returned will not exist by the time control returns from the
+I<call_*> function.  The section L</Returning a List in Scalar
+Context> shows an example of this behavior.
+
+
+=head2 G_ARRAY
+
+Calls the Perl subroutine in a list context.
+
+As with G_SCALAR, this flag has 2 effects:
+
+=over 5
+
+=item 1.
+
+It indicates to the subroutine being called that it is executing in a
+list context (if it executes I<wantarray> the result will be true).
+
+=item 2.
+
+It ensures that all items returned from the subroutine will be
+accessible when control returns from the I<call_*> function.
+
+=back
+
+The value returned by the I<call_*> function indicates how many
+items have been returned by the Perl subroutine.
+
+If 0, then you have specified the G_DISCARD flag.
+
+If not 0, then it will be a count of the number of items returned by
+the subroutine. These items will be stored on the Perl stack.  The
+section L</Returning a List of Values> gives an example of using the
+G_ARRAY flag and the mechanics of accessing the returned items from the
+Perl stack.
+
+=head2 G_DISCARD
+
+By default, the I<call_*> functions place the items returned from
+by the Perl subroutine on the stack.  If you are not interested in
+these items, then setting this flag will make Perl get rid of them
+automatically for you.  Note that it is still possible to indicate a
+context to the Perl subroutine by using either G_SCALAR or G_ARRAY.
+
+If you do not set this flag then it is I<very> important that you make
+sure that any temporaries (i.e., parameters passed to the Perl
+subroutine and values returned from the subroutine) are disposed of
+yourself.  The section L</Returning a Scalar> gives details of how to
+dispose of these temporaries explicitly and the section L</Using Perl to
+Dispose of Temporaries> discusses the specific circumstances where you
+can ignore the problem and let Perl deal with it for you.
+
+=head2 G_NOARGS
+
+Whenever a Perl subroutine is called using one of the I<call_*>
+functions, it is assumed by default that parameters are to be passed to
+the subroutine.  If you are not passing any parameters to the Perl
+subroutine, you can save a bit of time by setting this flag.  It has
+the effect of not creating the C<@_> array for the Perl subroutine.
+
+Although the functionality provided by this flag may seem
+straightforward, it should be used only if there is a good reason to do
+so.  The reason for being cautious is that, even if you have specified
+the G_NOARGS flag, it is still possible for the Perl subroutine that
+has been called to think that you have passed it parameters.
+
+In fact, what can happen is that the Perl subroutine you have called
+can access the C<@_> array from a previous Perl subroutine.  This will
+occur when the code that is executing the I<call_*> function has
+itself been called from another Perl subroutine. The code below
+illustrates this
+
+    sub fred
+      { print "@_\n"  }
+
+    sub joe
+      { &fred }
+
+    &joe(1,2,3);
+
+This will print
+
+    1 2 3
+
+What has happened is that C<fred> accesses the C<@_> array which
+belongs to C<joe>.
+
+
+=head2 G_EVAL
+
+It is possible for the Perl subroutine you are calling to terminate
+abnormally, e.g., by calling I<die> explicitly or by not actually
+existing.  By default, when either of these events occurs, the
+process will terminate immediately.  If you want to trap this
+type of event, specify the G_EVAL flag.  It will put an I<eval { }>
+around the subroutine call.
+
+Whenever control returns from the I<call_*> function you need to
+check the C<$@> variable as you would in a normal Perl script.
+
+The value returned from the I<call_*> function is dependent on
+what other flags have been specified and whether an error has
+occurred.  Here are all the different cases that can occur:
+
+=over 5
+
+=item *
+
+If the I<call_*> function returns normally, then the value
+returned is as specified in the previous sections.
+
+=item *
+
+If G_DISCARD is specified, the return value will always be 0.
+
+=item *
+
+If G_ARRAY is specified I<and> an error has occurred, the return value
+will always be 0.
+
+=item *
+
+If G_SCALAR is specified I<and> an error has occurred, the return value
+will be 1 and the value on the top of the stack will be I<undef>. This
+means that if you have already detected the error by checking C<$@> and
+you want the program to continue, you must remember to pop the I<undef>
+from the stack.
+
+=back
+
+See L</Using G_EVAL> for details on using G_EVAL.
+
+=head2 G_KEEPERR
+
+Using the G_EVAL flag described above will always set C<$@>: clearing
+it if there was no error, and setting it to describe the error if there
+was an error in the called code.  This is what you want if your intention
+is to handle possible errors, but sometimes you just want to trap errors
+and stop them interfering with the rest of the program.
+
+This scenario will mostly be applicable to code that is meant to be called
+from within destructors, asynchronous callbacks, and signal handlers.
+In such situations, where the code being called has little relation to the
+surrounding dynamic context, the main program needs to be insulated from
+errors in the called code, even if they can't be handled intelligently.
+It may also be useful to do this with code for C<__DIE__> or C<__WARN__>
+hooks, and C<tie> functions.
+
+The G_KEEPERR flag is meant to be used in conjunction with G_EVAL in
+I<call_*> functions that are used to implement such code, or with
+C<eval_sv>.  This flag has no effect on the C<call_*> functions when
+G_EVAL is not used.
+
+When G_KEEPERR is used, any error in the called code will terminate the
+call as usual, and the error will not propagate beyond the call (as usual
+for G_EVAL), but it will not go into C<$@>.  Instead the error will be
+converted into a warning, prefixed with the string "\t(in cleanup)".
+This can be disabled using C<no warnings 'misc'>.  If there is no error,
+C<$@> will not be cleared.
+
+Note that the G_KEEPERR flag does not propagate into inner evals; these
+may still set C<$@>.
+
+The G_KEEPERR flag was introduced in Perl version 5.002.
+
+See L</Using G_KEEPERR> for an example of a situation that warrants the
+use of this flag.
+
+=head2 Determining the Context
+
+As mentioned above, you can determine the context of the currently
+executing subroutine in Perl with I<wantarray>.  The equivalent test
+can be made in C by using the C<GIMME_V> macro, which returns
+C<G_ARRAY> if you have been called in a list context, C<G_SCALAR> if
+in a scalar context, or C<G_VOID> if in a void context (i.e., the
+return value will not be used).  An older version of this macro is
+called C<GIMME>; in a void context it returns C<G_SCALAR> instead of
+C<G_VOID>.  An example of using the C<GIMME_V> macro is shown in
+section L</Using GIMME_V>.
+
+=head1 EXAMPLES
+
+Enough of the definition talk! Let's have a few examples.
+
+Perl provides many macros to assist in accessing the Perl stack.
+Wherever possible, these macros should always be used when interfacing
+to Perl internals.  We hope this should make the code less vulnerable
+to any changes made to Perl in the future.
+
+Another point worth noting is that in the first series of examples I
+have made use of only the I<call_pv> function.  This has been done
+to keep the code simpler and ease you into the topic.  Wherever
+possible, if the choice is between using I<call_pv> and
+I<call_sv>, you should always try to use I<call_sv>.  See
+L</Using call_sv> for details.
+
+=head2 No Parameters, Nothing Returned
+
+This first trivial example will call a Perl subroutine, I<PrintUID>, to
+print out the UID of the process.
+
+    sub PrintUID
+    {
+        print "UID is $<\n";
+    }
+
+and here is a C function to call it
+
+    static void
+    call_PrintUID()
+    {
+        dSP;
+
+        PUSHMARK(SP);
+        call_pv("PrintUID", G_DISCARD|G_NOARGS);
+    }
+
+Simple, eh?
+
+A few points to note about this example:
+
+=over 5
+
+=item 1.
+
+Ignore C<dSP> and C<PUSHMARK(SP)> for now. They will be discussed in
+the next example.
+
+=item 2.
+
+We aren't passing any parameters to I<PrintUID> so G_NOARGS can be
+specified.
+
+=item 3.
+
+We aren't interested in anything returned from I<PrintUID>, so
+G_DISCARD is specified. Even if I<PrintUID> was changed to
+return some value(s), having specified G_DISCARD will mean that they
+will be wiped by the time control returns from I<call_pv>.
+
+=item 4.
+
+As I<call_pv> is being used, the Perl subroutine is specified as a
+C string. In this case the subroutine name has been 'hard-wired' into the
+code.
+
+=item 5.
+
+Because we specified G_DISCARD, it is not necessary to check the value
+returned from I<call_pv>. It will always be 0.
+
+=back
+
+=head2 Passing Parameters
+
+Now let's make a slightly more complex example. This time we want to
+call a Perl subroutine, C<LeftString>, which will take 2 parameters--a
+string ($s) and an integer ($n).  The subroutine will simply
+print the first $n characters of the string.
+
+So the Perl subroutine would look like this:
+
+    sub LeftString
+    {
+        my($s, $n) = @_;
+        print substr($s, 0, $n), "\n";
+    }
+
+The C function required to call I<LeftString> would look like this:
+
+    static void
+    call_LeftString(a, b)
+    char * a;
+    int b;
+    {
+        dSP;
+
+	ENTER;
+        SAVETMPS;
+
+        PUSHMARK(SP);
+        EXTEND(SP, 2);
+        PUSHs(sv_2mortal(newSVpv(a, 0)));
+        PUSHs(sv_2mortal(newSViv(b)));
+        PUTBACK;
+
+        call_pv("LeftString", G_DISCARD);
+
+        FREETMPS;
+        LEAVE;
+    }
+
+Here are a few notes on the C function I<call_LeftString>.
+
+=over 5
+
+=item 1.
+
+Parameters are passed to the Perl subroutine using the Perl stack.
+This is the purpose of the code beginning with the line C<dSP> and
+ending with the line C<PUTBACK>.  The C<dSP> declares a local copy
+of the stack pointer.  This local copy should B<always> be accessed
+as C<SP>.
+
+=item 2.
+
+If you are going to put something onto the Perl stack, you need to know
+where to put it. This is the purpose of the macro C<dSP>--it declares
+and initializes a I<local> copy of the Perl stack pointer.
+
+All the other macros which will be used in this example require you to
+have used this macro.
+
+The exception to this rule is if you are calling a Perl subroutine
+directly from an XSUB function. In this case it is not necessary to
+use the C<dSP> macro explicitly--it will be declared for you
+automatically.
+
+=item 3.
+
+Any parameters to be pushed onto the stack should be bracketed by the
+C<PUSHMARK> and C<PUTBACK> macros.  The purpose of these two macros, in
+this context, is to count the number of parameters you are
+pushing automatically.  Then whenever Perl is creating the C<@_> array for the
+subroutine, it knows how big to make it.
+
+The C<PUSHMARK> macro tells Perl to make a mental note of the current
+stack pointer. Even if you aren't passing any parameters (like the
+example shown in the section L</No Parameters, Nothing Returned>) you
+must still call the C<PUSHMARK> macro before you can call any of the
+I<call_*> functions--Perl still needs to know that there are no
+parameters.
+
+The C<PUTBACK> macro sets the global copy of the stack pointer to be
+the same as our local copy. If we didn't do this, I<call_pv>
+wouldn't know where the two parameters we pushed were--remember that
+up to now all the stack pointer manipulation we have done is with our
+local copy, I<not> the global copy.
+
+=item 4.
+
+Next, we come to EXTEND and PUSHs. This is where the parameters
+actually get pushed onto the stack. In this case we are pushing a
+string and an integer.
+
+Alternatively you can use the XPUSHs() macro, which combines a
+C<EXTEND(SP, 1)> and C<PUSHs()>.  This is less efficient if you're
+pushing multiple values.
+
+See L<perlguts/"XSUBs and the Argument Stack"> for details
+on how the PUSH macros work.
+
+=item 5.
+
+Because we created temporary values (by means of sv_2mortal() calls)
+we will have to tidy up the Perl stack and dispose of mortal SVs.
+
+This is the purpose of
+
+    ENTER;
+    SAVETMPS;
+
+at the start of the function, and
+
+    FREETMPS;
+    LEAVE;
+
+at the end. The C<ENTER>/C<SAVETMPS> pair creates a boundary for any
+temporaries we create.  This means that the temporaries we get rid of
+will be limited to those which were created after these calls.
+
+The C<FREETMPS>/C<LEAVE> pair will get rid of any values returned by
+the Perl subroutine (see next example), plus it will also dump the
+mortal SVs we have created.  Having C<ENTER>/C<SAVETMPS> at the
+beginning of the code makes sure that no other mortals are destroyed.
+
+Think of these macros as working a bit like C<{> and C<}> in Perl
+to limit the scope of local variables.
+
+See the section L</Using Perl to Dispose of Temporaries> for details of
+an alternative to using these macros.
+
+=item 6.
+
+Finally, I<LeftString> can now be called via the I<call_pv> function.
+The only flag specified this time is G_DISCARD. Because we are passing
+2 parameters to the Perl subroutine this time, we have not specified
+G_NOARGS.
+
+=back
+
+=head2 Returning a Scalar
+
+Now for an example of dealing with the items returned from a Perl
+subroutine.
+
+Here is a Perl subroutine, I<Adder>, that takes 2 integer parameters
+and simply returns their sum.
+
+    sub Adder
+    {
+        my($a, $b) = @_;
+        $a + $b;
+    }
+
+Because we are now concerned with the return value from I<Adder>, the C
+function required to call it is now a bit more complex.
+
+    static void
+    call_Adder(a, b)
+    int a;
+    int b;
+    {
+        dSP;
+        int count;
+
+        ENTER;
+        SAVETMPS;
+
+        PUSHMARK(SP);
+        EXTEND(SP, 2);
+        PUSHs(sv_2mortal(newSViv(a)));
+        PUSHs(sv_2mortal(newSViv(b)));
+        PUTBACK;
+
+        count = call_pv("Adder", G_SCALAR);
+
+        SPAGAIN;
+
+        if (count != 1)
+            croak("Big trouble\n");
+
+        printf ("The sum of %d and %d is %d\n", a, b, POPi);
+
+        PUTBACK;
+        FREETMPS;
+        LEAVE;
+    }
+
+Points to note this time are
+
+=over 5
+
+=item 1.
+
+The only flag specified this time was G_SCALAR. That means that the C<@_>
+array will be created and that the value returned by I<Adder> will
+still exist after the call to I<call_pv>.
+
+=item 2.
+
+The purpose of the macro C<SPAGAIN> is to refresh the local copy of the
+stack pointer. This is necessary because it is possible that the memory
+allocated to the Perl stack has been reallocated during the
+I<call_pv> call.
+
+If you are making use of the Perl stack pointer in your code you must
+always refresh the local copy using SPAGAIN whenever you make use
+of the I<call_*> functions or any other Perl internal function.
+
+=item 3.
+
+Although only a single value was expected to be returned from I<Adder>,
+it is still good practice to check the return code from I<call_pv>
+anyway.
+
+Expecting a single value is not quite the same as knowing that there
+will be one. If someone modified I<Adder> to return a list and we
+didn't check for that possibility and take appropriate action the Perl
+stack would end up in an inconsistent state. That is something you
+I<really> don't want to happen ever.
+
+=item 4.
+
+The C<POPi> macro is used here to pop the return value from the stack.
+In this case we wanted an integer, so C<POPi> was used.
+
+
+Here is the complete list of POP macros available, along with the types
+they return.
+
+    POPs	SV
+    POPp	pointer (PV)
+    POPpbytex   pointer to bytes (PV)
+    POPn	double (NV)
+    POPi	integer (IV)
+    POPu        unsigned integer (UV)
+    POPl	long
+    POPul       unsigned long
+
+Since these macros have side-effects don't use them as arguments to
+macros that may evaluate their argument several times, for example:
+
+  /* Bad idea, don't do this */
+  STRLEN len;
+  const char *s = SvPV(POPs, len);
+
+Instead, use a temporary:
+
+  STRLEN len;
+  SV *sv = POPs;
+  const char *s = SvPV(sv, len);
+
+or a macro that guarantees it will evaluate its arguments only once:
+
+  STRLEN len;
+  const char *s = SvPVx(POPs, len);
+
+=item 5.
+
+The final C<PUTBACK> is used to leave the Perl stack in a consistent
+state before exiting the function.  This is necessary because when we
+popped the return value from the stack with C<POPi> it updated only our
+local copy of the stack pointer.  Remember, C<PUTBACK> sets the global
+stack pointer to be the same as our local copy.
+
+=back
+
+
+=head2 Returning a List of Values
+
+Now, let's extend the previous example to return both the sum of the
+parameters and the difference.
+
+Here is the Perl subroutine
+
+    sub AddSubtract
+    {
+       my($a, $b) = @_;
+       ($a+$b, $a-$b);
+    }
+
+and this is the C function
+
+    static void
+    call_AddSubtract(a, b)
+    int a;
+    int b;
+    {
+        dSP;
+        int count;
+
+        ENTER;
+        SAVETMPS;
+
+        PUSHMARK(SP);
+        EXTEND(SP, 2);
+        PUSHs(sv_2mortal(newSViv(a)));
+        PUSHs(sv_2mortal(newSViv(b)));
+        PUTBACK;
+
+        count = call_pv("AddSubtract", G_ARRAY);
+
+        SPAGAIN;
+
+        if (count != 2)
+            croak("Big trouble\n");
+
+        printf ("%d - %d = %d\n", a, b, POPi);
+        printf ("%d + %d = %d\n", a, b, POPi);
+
+        PUTBACK;
+        FREETMPS;
+        LEAVE;
+    }
+
+If I<call_AddSubtract> is called like this
+
+    call_AddSubtract(7, 4);
+
+then here is the output
+
+    7 - 4 = 3
+    7 + 4 = 11
+
+Notes
+
+=over 5
+
+=item 1.
+
+We wanted list context, so G_ARRAY was used.
+
+=item 2.
+
+Not surprisingly C<POPi> is used twice this time because we were
+retrieving 2 values from the stack. The important thing to note is that
+when using the C<POP*> macros they come off the stack in I<reverse>
+order.
+
+=back
+
+=head2 Returning a List in Scalar Context
+
+Say the Perl subroutine in the previous section was called in a scalar
+context, like this
+
+    static void
+    call_AddSubScalar(a, b)
+    int a;
+    int b;
+    {
+        dSP;
+        int count;
+        int i;
+
+        ENTER;
+        SAVETMPS;
+
+        PUSHMARK(SP);
+        EXTEND(SP, 2);
+        PUSHs(sv_2mortal(newSViv(a)));
+        PUSHs(sv_2mortal(newSViv(b)));
+        PUTBACK;
+
+        count = call_pv("AddSubtract", G_SCALAR);
+
+        SPAGAIN;
+
+        printf ("Items Returned = %d\n", count);
+
+        for (i = 1; i <= count; ++i)
+            printf ("Value %d = %d\n", i, POPi);
+
+        PUTBACK;
+        FREETMPS;
+        LEAVE;
+    }
+
+The other modification made is that I<call_AddSubScalar> will print the
+number of items returned from the Perl subroutine and their value (for
+simplicity it assumes that they are integer).  So if
+I<call_AddSubScalar> is called
+
+    call_AddSubScalar(7, 4);
+
+then the output will be
+
+    Items Returned = 1
+    Value 1 = 3
+
+In this case the main point to note is that only the last item in the
+list is returned from the subroutine. I<AddSubtract> actually made it back to
+I<call_AddSubScalar>.
+
+
+=head2 Returning Data from Perl via the Parameter List
+
+It is also possible to return values directly via the parameter
+list--whether it is actually desirable to do it is another matter entirely.
+
+The Perl subroutine, I<Inc>, below takes 2 parameters and increments
+each directly.
+
+    sub Inc
+    {
+        ++ $_[0];
+        ++ $_[1];
+    }
+
+and here is a C function to call it.
+
+    static void
+    call_Inc(a, b)
+    int a;
+    int b;
+    {
+        dSP;
+        int count;
+        SV * sva;
+        SV * svb;
+
+        ENTER;
+        SAVETMPS;
+
+        sva = sv_2mortal(newSViv(a));
+        svb = sv_2mortal(newSViv(b));
+
+        PUSHMARK(SP);
+        EXTEND(SP, 2);
+        PUSHs(sva);
+        PUSHs(svb);
+        PUTBACK;
+
+        count = call_pv("Inc", G_DISCARD);
+
+        if (count != 0)
+            croak ("call_Inc: expected 0 values from 'Inc', got %d\n",
+                   count);
+
+        printf ("%d + 1 = %d\n", a, SvIV(sva));
+        printf ("%d + 1 = %d\n", b, SvIV(svb));
+
+	FREETMPS;
+	LEAVE;
+    }
+
+To be able to access the two parameters that were pushed onto the stack
+after they return from I<call_pv> it is necessary to make a note
+of their addresses--thus the two variables C<sva> and C<svb>.
+
+The reason this is necessary is that the area of the Perl stack which
+held them will very likely have been overwritten by something else by
+the time control returns from I<call_pv>.
+
+
+
+
+=head2 Using G_EVAL
+
+Now an example using G_EVAL. Below is a Perl subroutine which computes
+the difference of its 2 parameters. If this would result in a negative
+result, the subroutine calls I<die>.
+
+    sub Subtract
+    {
+        my ($a, $b) = @_;
+
+        die "death can be fatal\n" if $a < $b;
+
+        $a - $b;
+    }
+
+and some C to call it
+
+ static void
+ call_Subtract(a, b)
+ int a;
+ int b;
+ {
+     dSP;
+     int count;
+     SV *err_tmp;
+
+     ENTER;
+     SAVETMPS;
+
+     PUSHMARK(SP);
+     EXTEND(SP, 2);
+     PUSHs(sv_2mortal(newSViv(a)));
+     PUSHs(sv_2mortal(newSViv(b)));
+     PUTBACK;
+
+     count = call_pv("Subtract", G_EVAL|G_SCALAR);
+
+     SPAGAIN;
+
+     /* Check the eval first */
+     err_tmp = ERRSV;
+     if (SvTRUE(err_tmp))
+     {
+         printf ("Uh oh - %s\n", SvPV_nolen(err_tmp));
+         POPs;
+     }
+     else
+     {
+       if (count != 1)
+        croak("call_Subtract: wanted 1 value from 'Subtract', got %d\n",
+              count);
+
+         printf ("%d - %d = %d\n", a, b, POPi);
+     }
+
+     PUTBACK;
+     FREETMPS;
+     LEAVE;
+ }
+
+If I<call_Subtract> is called thus
+
+    call_Subtract(4, 5)
+
+the following will be printed
+
+    Uh oh - death can be fatal
+
+Notes
+
+=over 5
+
+=item 1.
+
+We want to be able to catch the I<die> so we have used the G_EVAL
+flag.  Not specifying this flag would mean that the program would
+terminate immediately at the I<die> statement in the subroutine
+I<Subtract>.
+
+=item 2.
+
+The code
+
+    err_tmp = ERRSV;
+    if (SvTRUE(err_tmp))
+    {
+        printf ("Uh oh - %s\n", SvPV_nolen(err_tmp));
+        POPs;
+    }
+
+is the direct equivalent of this bit of Perl
+
+    print "Uh oh - $@\n" if $@;
+
+C<PL_errgv> is a perl global of type C<GV *> that points to the symbol
+table entry containing the error.  C<ERRSV> therefore refers to the C
+equivalent of C<$@>.  We use a local temporary, C<err_tmp>, since
+C<ERRSV> is a macro that calls a function, and C<SvTRUE(ERRSV)> would
+end up calling that function multiple times.
+
+=item 3.
+
+Note that the stack is popped using C<POPs> in the block where
+C<SvTRUE(err_tmp)> is true.  This is necessary because whenever a
+I<call_*> function invoked with G_EVAL|G_SCALAR returns an error,
+the top of the stack holds the value I<undef>. Because we want the
+program to continue after detecting this error, it is essential that
+the stack be tidied up by removing the I<undef>.
+
+=back
+
+
+=head2 Using G_KEEPERR
+
+Consider this rather facetious example, where we have used an XS
+version of the call_Subtract example above inside a destructor:
+
+    package Foo;
+    sub new { bless {}, $_[0] }
+    sub Subtract {
+        my($a,$b) = @_;
+        die "death can be fatal" if $a < $b;
+        $a - $b;
+    }
+    sub DESTROY { call_Subtract(5, 4); }
+    sub foo { die "foo dies"; }
+
+    package main;
+    {
+	my $foo = Foo->new;
+	eval { $foo->foo };
+    }
+    print "Saw: $@" if $@;             # should be, but isn't
+
+This example will fail to recognize that an error occurred inside the
+C<eval {}>.  Here's why: the call_Subtract code got executed while perl
+was cleaning up temporaries when exiting the outer braced block, and because
+call_Subtract is implemented with I<call_pv> using the G_EVAL
+flag, it promptly reset C<$@>.  This results in the failure of the
+outermost test for C<$@>, and thereby the failure of the error trap.
+
+Appending the G_KEEPERR flag, so that the I<call_pv> call in
+call_Subtract reads:
+
+        count = call_pv("Subtract", G_EVAL|G_SCALAR|G_KEEPERR);
+
+will preserve the error and restore reliable error handling.
+
+=head2 Using call_sv
+
+In all the previous examples I have 'hard-wired' the name of the Perl
+subroutine to be called from C.  Most of the time though, it is more
+convenient to be able to specify the name of the Perl subroutine from
+within the Perl script, and you'll want to use
+L<call_sv|perlapi/call_sv>.
+
+Consider the Perl code below
+
+    sub fred
+    {
+        print "Hello there\n";
+    }
+
+    CallSubPV("fred");
+
+Here is a snippet of XSUB which defines I<CallSubPV>.
+
+    void
+    CallSubPV(name)
+    	char *	name
+    	CODE:
+	PUSHMARK(SP);
+	call_pv(name, G_DISCARD|G_NOARGS);
+
+That is fine as far as it goes. The thing is, the Perl subroutine
+can be specified as only a string, however, Perl allows references
+to subroutines and anonymous subroutines.
+This is where I<call_sv> is useful.
+
+The code below for I<CallSubSV> is identical to I<CallSubPV> except
+that the C<name> parameter is now defined as an SV* and we use
+I<call_sv> instead of I<call_pv>.
+
+    void
+    CallSubSV(name)
+    	SV *	name
+    	CODE:
+	PUSHMARK(SP);
+	call_sv(name, G_DISCARD|G_NOARGS);
+
+Because we are using an SV to call I<fred> the following can all be used:
+
+    CallSubSV("fred");
+    CallSubSV(\&fred);
+    $ref = \&fred;
+    CallSubSV($ref);
+    CallSubSV( sub { print "Hello there\n" } );
+
+As you can see, I<call_sv> gives you much greater flexibility in
+how you can specify the Perl subroutine.
+
+You should note that, if it is necessary to store the SV (C<name> in the
+example above) which corresponds to the Perl subroutine so that it can
+be used later in the program, it not enough just to store a copy of the
+pointer to the SV. Say the code above had been like this:
+
+    static SV * rememberSub;
+
+    void
+    SaveSub1(name)
+    	SV *	name
+    	CODE:
+	rememberSub = name;
+
+    void
+    CallSavedSub1()
+    	CODE:
+	PUSHMARK(SP);
+	call_sv(rememberSub, G_DISCARD|G_NOARGS);
+
+The reason this is wrong is that, by the time you come to use the
+pointer C<rememberSub> in C<CallSavedSub1>, it may or may not still refer
+to the Perl subroutine that was recorded in C<SaveSub1>.  This is
+particularly true for these cases:
+
+    SaveSub1(\&fred);
+    CallSavedSub1();
+
+    SaveSub1( sub { print "Hello there\n" } );
+    CallSavedSub1();
+
+By the time each of the C<SaveSub1> statements above has been executed,
+the SV*s which corresponded to the parameters will no longer exist.
+Expect an error message from Perl of the form
+
+    Can't use an undefined value as a subroutine reference at ...
+
+for each of the C<CallSavedSub1> lines.
+
+Similarly, with this code
+
+    $ref = \&fred;
+    SaveSub1($ref);
+    $ref = 47;
+    CallSavedSub1();
+
+you can expect one of these messages (which you actually get is dependent on
+the version of Perl you are using)
+
+    Not a CODE reference at ...
+    Undefined subroutine &main::47 called ...
+
+The variable $ref may have referred to the subroutine C<fred>
+whenever the call to C<SaveSub1> was made but by the time
+C<CallSavedSub1> gets called it now holds the number C<47>. Because we
+saved only a pointer to the original SV in C<SaveSub1>, any changes to
+$ref will be tracked by the pointer C<rememberSub>. This means that
+whenever C<CallSavedSub1> gets called, it will attempt to execute the
+code which is referenced by the SV* C<rememberSub>.  In this case
+though, it now refers to the integer C<47>, so expect Perl to complain
+loudly.
+
+A similar but more subtle problem is illustrated with this code:
+
+    $ref = \&fred;
+    SaveSub1($ref);
+    $ref = \&joe;
+    CallSavedSub1();
+
+This time whenever C<CallSavedSub1> gets called it will execute the Perl
+subroutine C<joe> (assuming it exists) rather than C<fred> as was
+originally requested in the call to C<SaveSub1>.
+
+To get around these problems it is necessary to take a full copy of the
+SV.  The code below shows C<SaveSub2> modified to do that.
+
+    /* this isn't thread-safe */
+    static SV * keepSub = (SV*)NULL;
+
+    void
+    SaveSub2(name)
+        SV *	name
+    	CODE:
+     	/* Take a copy of the callback */
+    	if (keepSub == (SV*)NULL)
+    	    /* First time, so create a new SV */
+	    keepSub = newSVsv(name);
+    	else
+    	    /* Been here before, so overwrite */
+	    SvSetSV(keepSub, name);
+
+    void
+    CallSavedSub2()
+    	CODE:
+	PUSHMARK(SP);
+	call_sv(keepSub, G_DISCARD|G_NOARGS);
+
+To avoid creating a new SV every time C<SaveSub2> is called,
+the function first checks to see if it has been called before.  If not,
+then space for a new SV is allocated and the reference to the Perl
+subroutine C<name> is copied to the variable C<keepSub> in one
+operation using C<newSVsv>.  Thereafter, whenever C<SaveSub2> is called,
+the existing SV, C<keepSub>, is overwritten with the new value using
+C<SvSetSV>.
+
+Note: using a static or global variable to store the SV isn't
+thread-safe.  You can either use the C<MY_CXT> mechanism documented in
+L<perlxs/Safely Storing Static Data in XS> which is fast, or store the
+values in perl global variables, using get_sv(), which is much slower.
+
+=head2 Using call_argv
+
+Here is a Perl subroutine which prints whatever parameters are passed
+to it.
+
+    sub PrintList
+    {
+        my(@list) = @_;
+
+        foreach (@list) { print "$_\n" }
+    }
+
+And here is an example of I<call_argv> which will call
+I<PrintList>.
+
+    static char * words[] = {"alpha", "beta", "gamma", "delta", NULL};
+
+    static void
+    call_PrintList()
+    {
+        dSP;
+
+        call_argv("PrintList", G_DISCARD, words);
+    }
+
+Note that it is not necessary to call C<PUSHMARK> in this instance.
+This is because I<call_argv> will do it for you.
+
+=head2 Using call_method
+
+Consider the following Perl code:
+
+    {
+        package Mine;
+
+        sub new
+        {
+            my($type) = shift;
+            bless [@_]
+        }
+
+        sub Display
+        {
+            my ($self, $index) = @_;
+            print "$index: $$self[$index]\n";
+        }
+
+        sub PrintID
+        {
+            my($class) = @_;
+            print "This is Class $class version 1.0\n";
+        }
+    }
+
+It implements just a very simple class to manage an array.  Apart from
+the constructor, C<new>, it declares methods, one static and one
+virtual. The static method, C<PrintID>, prints out simply the class
+name and a version number. The virtual method, C<Display>, prints out a
+single element of the array.  Here is an all-Perl example of using it.
+
+    $a = Mine->new('red', 'green', 'blue');
+    $a->Display(1);
+    Mine->PrintID;
+
+will print
+
+    1: green
+    This is Class Mine version 1.0
+
+Calling a Perl method from C is fairly straightforward. The following
+things are required:
+
+=over 5
+
+=item *
+
+A reference to the object for a virtual method or the name of the class
+for a static method
+
+=item *
+
+The name of the method
+
+=item *
+
+Any other parameters specific to the method
+
+=back
+
+Here is a simple XSUB which illustrates the mechanics of calling both
+the C<PrintID> and C<Display> methods from C.
+
+    void
+    call_Method(ref, method, index)
+        SV *	ref
+        char *	method
+        int		index
+        CODE:
+        PUSHMARK(SP);
+        EXTEND(SP, 2);
+        PUSHs(ref);
+        PUSHs(sv_2mortal(newSViv(index)));
+        PUTBACK;
+
+        call_method(method, G_DISCARD);
+
+    void
+    call_PrintID(class, method)
+        char *	class
+        char *	method
+        CODE:
+        PUSHMARK(SP);
+        XPUSHs(sv_2mortal(newSVpv(class, 0)));
+        PUTBACK;
+
+        call_method(method, G_DISCARD);
+
+
+So the methods C<PrintID> and C<Display> can be invoked like this:
+
+    $a = Mine->new('red', 'green', 'blue');
+    call_Method($a, 'Display', 1);
+    call_PrintID('Mine', 'PrintID');
+
+The only thing to note is that, in both the static and virtual methods,
+the method name is not passed via the stack--it is used as the first
+parameter to I<call_method>.
+
+=head2 Using GIMME_V
+
+Here is a trivial XSUB which prints the context in which it is
+currently executing.
+
+    void
+    PrintContext()
+        CODE:
+        U8 gimme = GIMME_V;
+        if (gimme == G_VOID)
+            printf ("Context is Void\n");
+        else if (gimme == G_SCALAR)
+            printf ("Context is Scalar\n");
+        else
+            printf ("Context is Array\n");
+
+And here is some Perl to test it.
+
+    PrintContext;
+    $a = PrintContext;
+    @a = PrintContext;
+
+The output from that will be
+
+    Context is Void
+    Context is Scalar
+    Context is Array
+
+=head2 Using Perl to Dispose of Temporaries
+
+In the examples given to date, any temporaries created in the callback
+(i.e., parameters passed on the stack to the I<call_*> function or
+values returned via the stack) have been freed by one of these methods:
+
+=over 5
+
+=item *
+
+Specifying the G_DISCARD flag with I<call_*>
+
+=item *
+
+Explicitly using the C<ENTER>/C<SAVETMPS>--C<FREETMPS>/C<LEAVE> pairing
+
+=back
+
+There is another method which can be used, namely letting Perl do it
+for you automatically whenever it regains control after the callback
+has terminated.  This is done by simply not using the
+
+    ENTER;
+    SAVETMPS;
+    ...
+    FREETMPS;
+    LEAVE;
+
+sequence in the callback (and not, of course, specifying the G_DISCARD
+flag).
+
+If you are going to use this method you have to be aware of a possible
+memory leak which can arise under very specific circumstances.  To
+explain these circumstances you need to know a bit about the flow of
+control between Perl and the callback routine.
+
+The examples given at the start of the document (an error handler and
+an event driven program) are typical of the two main sorts of flow
+control that you are likely to encounter with callbacks.  There is a
+very important distinction between them, so pay attention.
+
+In the first example, an error handler, the flow of control could be as
+follows.  You have created an interface to an external library.
+Control can reach the external library like this
+
+    perl --> XSUB --> external library
+
+Whilst control is in the library, an error condition occurs. You have
+previously set up a Perl callback to handle this situation, so it will
+get executed. Once the callback has finished, control will drop back to
+Perl again.  Here is what the flow of control will be like in that
+situation
+
+    perl --> XSUB --> external library
+                      ...
+                      error occurs
+                      ...
+                      external library --> call_* --> perl
+                                                          |
+    perl <-- XSUB <-- external library <-- call_* <----+
+
+After processing of the error using I<call_*> is completed,
+control reverts back to Perl more or less immediately.
+
+In the diagram, the further right you go the more deeply nested the
+scope is.  It is only when control is back with perl on the extreme
+left of the diagram that you will have dropped back to the enclosing
+scope and any temporaries you have left hanging around will be freed.
+
+In the second example, an event driven program, the flow of control
+will be more like this
+
+    perl --> XSUB --> event handler
+                      ...
+                      event handler --> call_* --> perl
+                                                       |
+                      event handler <-- call_* <----+
+                      ...
+                      event handler --> call_* --> perl
+                                                       |
+                      event handler <-- call_* <----+
+                      ...
+                      event handler --> call_* --> perl
+                                                       |
+                      event handler <-- call_* <----+
+
+In this case the flow of control can consist of only the repeated
+sequence
+
+    event handler --> call_* --> perl
+
+for practically the complete duration of the program.  This means that
+control may I<never> drop back to the surrounding scope in Perl at the
+extreme left.
+
+So what is the big problem? Well, if you are expecting Perl to tidy up
+those temporaries for you, you might be in for a long wait.  For Perl
+to dispose of your temporaries, control must drop back to the
+enclosing scope at some stage.  In the event driven scenario that may
+never happen.  This means that, as time goes on, your program will
+create more and more temporaries, none of which will ever be freed. As
+each of these temporaries consumes some memory your program will
+eventually consume all the available memory in your system--kapow!
+
+So here is the bottom line--if you are sure that control will revert
+back to the enclosing Perl scope fairly quickly after the end of your
+callback, then it isn't absolutely necessary to dispose explicitly of
+any temporaries you may have created. Mind you, if you are at all
+uncertain about what to do, it doesn't do any harm to tidy up anyway.
+
+
+=head2 Strategies for Storing Callback Context Information
+
+
+Potentially one of the trickiest problems to overcome when designing a
+callback interface can be figuring out how to store the mapping between
+the C callback function and the Perl equivalent.
+
+To help understand why this can be a real problem first consider how a
+callback is set up in an all C environment.  Typically a C API will
+provide a function to register a callback.  This will expect a pointer
+to a function as one of its parameters.  Below is a call to a
+hypothetical function C<register_fatal> which registers the C function
+to get called when a fatal error occurs.
+
+    register_fatal(cb1);
+
+The single parameter C<cb1> is a pointer to a function, so you must
+have defined C<cb1> in your code, say something like this
+
+    static void
+    cb1()
+    {
+        printf ("Fatal Error\n");
+        exit(1);
+    }
+
+Now change that to call a Perl subroutine instead
+
+    static SV * callback = (SV*)NULL;
+
+    static void
+    cb1()
+    {
+        dSP;
+
+        PUSHMARK(SP);
+
+        /* Call the Perl sub to process the callback */
+        call_sv(callback, G_DISCARD);
+    }
+
+
+    void
+    register_fatal(fn)
+        SV *	fn
+        CODE:
+        /* Remember the Perl sub */
+        if (callback == (SV*)NULL)
+            callback = newSVsv(fn);
+        else
+            SvSetSV(callback, fn);
+
+        /* register the callback with the external library */
+        register_fatal(cb1);
+
+where the Perl equivalent of C<register_fatal> and the callback it
+registers, C<pcb1>, might look like this
+
+    # Register the sub pcb1
+    register_fatal(\&pcb1);
+
+    sub pcb1
+    {
+        die "I'm dying...\n";
+    }
+
+The mapping between the C callback and the Perl equivalent is stored in
+the global variable C<callback>.
+
+This will be adequate if you ever need to have only one callback
+registered at any time. An example could be an error handler like the
+code sketched out above. Remember though, repeated calls to
+C<register_fatal> will replace the previously registered callback
+function with the new one.
+
+Say for example you want to interface to a library which allows asynchronous
+file i/o.  In this case you may be able to register a callback whenever
+a read operation has completed. To be of any use we want to be able to
+call separate Perl subroutines for each file that is opened.  As it
+stands, the error handler example above would not be adequate as it
+allows only a single callback to be defined at any time. What we
+require is a means of storing the mapping between the opened file and
+the Perl subroutine we want to be called for that file.
+
+Say the i/o library has a function C<asynch_read> which associates a C
+function C<ProcessRead> with a file handle C<fh>--this assumes that it
+has also provided some routine to open the file and so obtain the file
+handle.
+
+    asynch_read(fh, ProcessRead)
+
+This may expect the C I<ProcessRead> function of this form
+
+    void
+    ProcessRead(fh, buffer)
+    int	fh;
+    char *	buffer;
+    {
+         ...
+    }
+
+To provide a Perl interface to this library we need to be able to map
+between the C<fh> parameter and the Perl subroutine we want called.  A
+hash is a convenient mechanism for storing this mapping.  The code
+below shows a possible implementation
+
+    static HV * Mapping = (HV*)NULL;
+
+    void
+    asynch_read(fh, callback)
+        int	fh
+        SV *	callback
+        CODE:
+        /* If the hash doesn't already exist, create it */
+        if (Mapping == (HV*)NULL)
+            Mapping = newHV();
+
+        /* Save the fh -> callback mapping */
+        hv_store(Mapping, (char*)&fh, sizeof(fh), newSVsv(callback), 0);
+
+        /* Register with the C Library */
+        asynch_read(fh, asynch_read_if);
+
+and C<asynch_read_if> could look like this
+
+    static void
+    asynch_read_if(fh, buffer)
+    int	fh;
+    char *	buffer;
+    {
+        dSP;
+        SV ** sv;
+
+        /* Get the callback associated with fh */
+        sv =  hv_fetch(Mapping, (char*)&fh , sizeof(fh), FALSE);
+        if (sv == (SV**)NULL)
+            croak("Internal error...\n");
+
+        PUSHMARK(SP);
+        EXTEND(SP, 2);
+        PUSHs(sv_2mortal(newSViv(fh)));
+        PUSHs(sv_2mortal(newSVpv(buffer, 0)));
+        PUTBACK;
+
+        /* Call the Perl sub */
+        call_sv(*sv, G_DISCARD);
+    }
+
+For completeness, here is C<asynch_close>.  This shows how to remove
+the entry from the hash C<Mapping>.
+
+    void
+    asynch_close(fh)
+        int	fh
+        CODE:
+        /* Remove the entry from the hash */
+        (void) hv_delete(Mapping, (char*)&fh, sizeof(fh), G_DISCARD);
+
+        /* Now call the real asynch_close */
+        asynch_close(fh);
+
+So the Perl interface would look like this
+
+    sub callback1
+    {
+        my($handle, $buffer) = @_;
+    }
+
+    # Register the Perl callback
+    asynch_read($fh, \&callback1);
+
+    asynch_close($fh);
+
+The mapping between the C callback and Perl is stored in the global
+hash C<Mapping> this time. Using a hash has the distinct advantage that
+it allows an unlimited number of callbacks to be registered.
+
+What if the interface provided by the C callback doesn't contain a
+parameter which allows the file handle to Perl subroutine mapping?  Say
+in the asynchronous i/o package, the callback function gets passed only
+the C<buffer> parameter like this
+
+    void
+    ProcessRead(buffer)
+    char *	buffer;
+    {
+        ...
+    }
+
+Without the file handle there is no straightforward way to map from the
+C callback to the Perl subroutine.
+
+In this case a possible way around this problem is to predefine a
+series of C functions to act as the interface to Perl, thus
+
+    #define MAX_CB		3
+    #define NULL_HANDLE	-1
+    typedef void (*FnMap)();
+
+    struct MapStruct {
+        FnMap    Function;
+        SV *     PerlSub;
+        int      Handle;
+      };
+
+    static void  fn1();
+    static void  fn2();
+    static void  fn3();
+
+    static struct MapStruct Map [MAX_CB] =
+        {
+            { fn1, NULL, NULL_HANDLE },
+            { fn2, NULL, NULL_HANDLE },
+            { fn3, NULL, NULL_HANDLE }
+        };
+
+    static void
+    Pcb(index, buffer)
+    int index;
+    char * buffer;
+    {
+        dSP;
+
+        PUSHMARK(SP);
+        XPUSHs(sv_2mortal(newSVpv(buffer, 0)));
+        PUTBACK;
+
+        /* Call the Perl sub */
+        call_sv(Map[index].PerlSub, G_DISCARD);
+    }
+
+    static void
+    fn1(buffer)
+    char * buffer;
+    {
+        Pcb(0, buffer);
+    }
+
+    static void
+    fn2(buffer)
+    char * buffer;
+    {
+        Pcb(1, buffer);
+    }
+
+    static void
+    fn3(buffer)
+    char * buffer;
+    {
+        Pcb(2, buffer);
+    }
+
+    void
+    array_asynch_read(fh, callback)
+        int		fh
+        SV *	callback
+        CODE:
+        int index;
+        int null_index = MAX_CB;
+
+        /* Find the same handle or an empty entry */
+        for (index = 0; index < MAX_CB; ++index)
+        {
+            if (Map[index].Handle == fh)
+                break;
+
+            if (Map[index].Handle == NULL_HANDLE)
+                null_index = index;
+        }
+
+        if (index == MAX_CB && null_index == MAX_CB)
+            croak ("Too many callback functions registered\n");
+
+        if (index == MAX_CB)
+            index = null_index;
+
+        /* Save the file handle */
+        Map[index].Handle = fh;
+
+        /* Remember the Perl sub */
+        if (Map[index].PerlSub == (SV*)NULL)
+            Map[index].PerlSub = newSVsv(callback);
+        else
+            SvSetSV(Map[index].PerlSub, callback);
+
+        asynch_read(fh, Map[index].Function);
+
+    void
+    array_asynch_close(fh)
+        int	fh
+        CODE:
+        int index;
+
+        /* Find the file handle */
+        for (index = 0; index < MAX_CB; ++ index)
+            if (Map[index].Handle == fh)
+                break;
+
+        if (index == MAX_CB)
+            croak ("could not close fh %d\n", fh);
+
+        Map[index].Handle = NULL_HANDLE;
+        SvREFCNT_dec(Map[index].PerlSub);
+        Map[index].PerlSub = (SV*)NULL;
+
+        asynch_close(fh);
+
+In this case the functions C<fn1>, C<fn2>, and C<fn3> are used to
+remember the Perl subroutine to be called. Each of the functions holds
+a separate hard-wired index which is used in the function C<Pcb> to
+access the C<Map> array and actually call the Perl subroutine.
+
+There are some obvious disadvantages with this technique.
+
+Firstly, the code is considerably more complex than with the previous
+example.
+
+Secondly, there is a hard-wired limit (in this case 3) to the number of
+callbacks that can exist simultaneously. The only way to increase the
+limit is by modifying the code to add more functions and then
+recompiling.  None the less, as long as the number of functions is
+chosen with some care, it is still a workable solution and in some
+cases is the only one available.
+
+To summarize, here are a number of possible methods for you to consider
+for storing the mapping between C and the Perl callback
+
+=over 5
+
+=item 1. Ignore the problem - Allow only 1 callback
+
+For a lot of situations, like interfacing to an error handler, this may
+be a perfectly adequate solution.
+
+=item 2. Create a sequence of callbacks - hard wired limit
+
+If it is impossible to tell from the parameters passed back from the C
+callback what the context is, then you may need to create a sequence of C
+callback interface functions, and store pointers to each in an array.
+
+=item 3. Use a parameter to map to the Perl callback
+
+A hash is an ideal mechanism to store the mapping between C and Perl.
+
+=back
+
+
+=head2 Alternate Stack Manipulation
+
+
+Although I have made use of only the C<POP*> macros to access values
+returned from Perl subroutines, it is also possible to bypass these
+macros and read the stack using the C<ST> macro (See L<perlxs> for a
+full description of the C<ST> macro).
+
+Most of the time the C<POP*> macros should be adequate; the main
+problem with them is that they force you to process the returned values
+in sequence. This may not be the most suitable way to process the
+values in some cases. What we want is to be able to access the stack in
+a random order. The C<ST> macro as used when coding an XSUB is ideal
+for this purpose.
+
+The code below is the example given in the section L</Returning a List
+of Values> recoded to use C<ST> instead of C<POP*>.
+
+    static void
+    call_AddSubtract2(a, b)
+    int a;
+    int b;
+    {
+        dSP;
+        I32 ax;
+        int count;
+
+        ENTER;
+        SAVETMPS;
+
+        PUSHMARK(SP);
+        EXTEND(SP, 2);
+        PUSHs(sv_2mortal(newSViv(a)));
+        PUSHs(sv_2mortal(newSViv(b)));
+        PUTBACK;
+
+        count = call_pv("AddSubtract", G_ARRAY);
+
+        SPAGAIN;
+        SP -= count;
+        ax = (SP - PL_stack_base) + 1;
+
+        if (count != 2)
+            croak("Big trouble\n");
+
+        printf ("%d + %d = %d\n", a, b, SvIV(ST(0)));
+        printf ("%d - %d = %d\n", a, b, SvIV(ST(1)));
+
+        PUTBACK;
+        FREETMPS;
+        LEAVE;
+    }
+
+Notes
+
+=over 5
+
+=item 1.
+
+Notice that it was necessary to define the variable C<ax>.  This is
+because the C<ST> macro expects it to exist.  If we were in an XSUB it
+would not be necessary to define C<ax> as it is already defined for
+us.
+
+=item 2.
+
+The code
+
+        SPAGAIN;
+        SP -= count;
+        ax = (SP - PL_stack_base) + 1;
+
+sets the stack up so that we can use the C<ST> macro.
+
+=item 3.
+
+Unlike the original coding of this example, the returned
+values are not accessed in reverse order.  So C<ST(0)> refers to the
+first value returned by the Perl subroutine and C<ST(count-1)>
+refers to the last.
+
+=back
+
+=head2 Creating and Calling an Anonymous Subroutine in C
+
+As we've already shown, C<call_sv> can be used to invoke an
+anonymous subroutine.  However, our example showed a Perl script
+invoking an XSUB to perform this operation.  Let's see how it can be
+done inside our C code:
+
+ ...
+
+ SV *cvrv
+    = eval_pv("sub {
+                print 'You will not find me cluttering any namespace!'
+               }", TRUE);
+
+ ...
+
+ call_sv(cvrv, G_VOID|G_NOARGS);
+
+C<eval_pv> is used to compile the anonymous subroutine, which
+will be the return value as well (read more about C<eval_pv> in
+L<perlapi/eval_pv>).  Once this code reference is in hand, it
+can be mixed in with all the previous examples we've shown.
+
+=head1 LIGHTWEIGHT CALLBACKS
+
+Sometimes you need to invoke the same subroutine repeatedly.
+This usually happens with a function that acts on a list of
+values, such as Perl's built-in sort(). You can pass a
+comparison function to sort(), which will then be invoked
+for every pair of values that needs to be compared. The first()
+and reduce() functions from L<List::Util> follow a similar
+pattern.
+
+In this case it is possible to speed up the routine (often
+quite substantially) by using the lightweight callback API.
+The idea is that the calling context only needs to be
+created and destroyed once, and the sub can be called
+arbitrarily many times in between.
+
+It is usual to pass parameters using global variables (typically
+$_ for one parameter, or $a and $b for two parameters) rather
+than via @_. (It is possible to use the @_ mechanism if you know
+what you're doing, though there is as yet no supported API for
+it. It's also inherently slower.)
+
+The pattern of macro calls is like this:
+
+    dMULTICALL;			/* Declare local variables */
+    U8 gimme = G_SCALAR;	/* context of the call: G_SCALAR,
+				 * G_ARRAY, or G_VOID */
+
+    PUSH_MULTICALL(cv);		/* Set up the context for calling cv,
+				   and set local vars appropriately */
+
+    /* loop */ {
+        /* set the value(s) af your parameter variables */
+        MULTICALL;		/* Make the actual call */
+    } /* end of loop */
+
+    POP_MULTICALL;		/* Tear down the calling context */
+
+For some concrete examples, see the implementation of the
+first() and reduce() functions of List::Util 1.18. There you
+will also find a header file that emulates the multicall API
+on older versions of perl.
+
+=head1 SEE ALSO
+
+L<perlxs>, L<perlguts>, L<perlembed>
+
+=head1 AUTHOR
+
+Paul Marquess 
+
+Special thanks to the following people who assisted in the creation of
+the document.
+
+Jeff Okamoto, Tim Bunce, Nick Gianniotis, Steve Kelem, Gurusamy Sarathy
+and Larry Wall.
+
+=head1 DATE
+
+Last updated for perl 5.23.1.
diff --git a/lib/5.24.1/pod/perlce.pod b/lib/5.24.1/pod/perlce.pod
new file mode 100644
index 00000000..fdf636f8
--- /dev/null
+++ b/lib/5.24.1/pod/perlce.pod
@@ -0,0 +1,453 @@
+If you read this file _as_is_, just ignore the funny characters you
+see.  It is written in the POD format (see pod/perlpod.pod) which is
+specifically designed to be readable as is.
+
+=head1 NAME
+
+perlce - Perl for WinCE
+
+=head1 Building Perl for WinCE
+
+=head2 WARNING
+
+B<< Much of this document has become very out of date and needs updating,
+rewriting or deleting. The build process was overhauled during the 5.19
+development track and the current instructions as of that time are given
+in L</CURRENT BUILD INSTRUCTIONS>; the previous build instructions, which
+are largely superseded but may still contain some useful information, are
+left in L</OLD BUILD INSTRUCTIONS> but really need removing after anything
+of use has been extracted from them. >>
+
+=head2 DESCRIPTION
+
+This file gives the instructions for building Perl5.8 and above for
+WinCE.  Please read and understand the terms under which this
+software is distributed.
+
+=head2 General explanations on cross-compiling WinCE
+
+=over
+
+=item *
+
+F<miniperl> is built. This is a single executable (without DLL), intended
+to run on Win32, and it will facilitate remaining build process; all binaries
+built after it are foreign and should not run locally.
+
+F<miniperl> is built using F<./win32/Makefile>; this is part of normal
+build process invoked as dependency from wince/Makefile.ce
+
+=item *
+
+After F<miniperl> is built, F<configpm> is invoked to create right F<Config.pm>
+in right place and its corresponding Cross.pm.
+
+Unlike Win32 build, miniperl will not have F<Config.pm> of host within reach;
+it rather will use F<Config.pm> from within cross-compilation directories.
+
+File F<Cross.pm> is dead simple: for given cross-architecture places in @INC
+a path where perl modules are, and right F<Config.pm> in that place.
+
+That said, C<miniperl -Ilib -MConfig -we 1> should report an error, because
+it can not find F<Config.pm>. If it does not give an error -- wrong F<Config.pm>
+is substituted, and resulting binaries will be a mess.
+
+C<miniperl -MCross -MConfig -we 1> should run okay, and it will provide right
+F<Config.pm> for further compilations.
+
+=item *
+
+During extensions build phase, a script F<./win32/buildext.pl> is invoked,
+which in turn steps in F<./ext> subdirectories and performs a build of
+each extension in turn.
+
+All invokes of F<Makefile.PL> are provided with C<-MCross> so to enable cross-
+compile.
+
+=back
+
+=head2 CURRENT BUILD INSTRUCTIONS
+
+(These instructions assume the host is 32-bit Windows. If you're on 64-bit
+Windows then change "C:\Program Files" to "C:\Program Files (x86)" throughout.)
+
+1. Install EVC4 from
+
+ http://download.microsoft.com/download/c/3/f/c3f8b58b-9753-4c2e-8b96-2dfe3476a2f7/eVC4.exe
+
+Use the key mentioned at 
+
+ http://download.cnet.com/Microsoft-eMbedded-Visual-C/3000-2212_4-10108490.html?tag=bc
+
+The installer is ancient and has a few bugs on the paths it uses. You 
+will have to fix them later. Basically, some things go into "C:/Program 
+Files/Windows CE Tools", others go into "C:/Windows CE Tools" regardless 
+of the path you gave to the installer (the default will be "C:/Windows 
+CE Tools"). Reboots will be required for the installer to proceed. Also 
+.c and .h associations with Visual Studio might get overridden when 
+installing EVC4. You have been warned.
+
+2. Download celib from GitHub (using "Download ZIP") at
+
+    https://github.com/bulk88/celib 
+
+Extract it to a spaceless path but not into the perl build source.
+I call this directory "celib-palm-3.0" but in the GitHub 
+snapshot it will be called "celib-master". Make a copy of the 
+"wince-arm-pocket-wce300-release" folder and rename the copy to 
+"wince-arm-pocket-wce400". This is a hack so we can build a CE 4.0 
+binary by linking in CE 3.0 ARM asm; the linker doesn't care. Windows 
+Mobile/WinCE are backwards compatible with machine code like Desktop Windows.
+
+3. Download console-1.3-src.tar.gz from 
+
+ http://sourceforge.net/projects/perlce/files/PerlCE%20support%20files/console/
+
+Extract it to a spaceless path but not into the perl build source. 
+Don't extract it into the same directory as celib. Make a copy of the 
+"wince-arm-pocket-wce300" folder and rename the copy to 
+"wince-arm-pocket-wce400". This is a hack so we can build a CE 4.0 
+binary by linking in CE 3.0 ARM asm; the linker doesn't care. Windows 
+Mobile/WinCE are backwards compatible with machine code like Desktop Windows.
+
+4. Open a command prompt, run your regular batch file to set the environment
+for desktop Visual C building, goto the perl source directory, cd into win32/,
+fill out Makefile, and do a "nmake all" to build a Desktop Perl.
+
+5. Open win32/Makefile.ce in a text editor and do something similar to the 
+following patch.
+
+    -CELIBDLLDIR  = h:\src\wince\celib-palm-3.0
+    -CECONSOLEDIR = h:\src\wince\w32console
+    +CELIBDLLDIR  = C:\sources\celib-palm-3.0
+    +CECONSOLEDIR = C:\sources\w32console
+
+Also change
+
+    !if "$(MACHINE)" == ""
+    MACHINE=wince-arm-hpc-wce300
+    #MACHINE=wince-arm-hpc-wce211
+    #MACHINE=wince-sh3-hpc-wce211
+    #MACHINE=wince-mips-hpc-wce211
+    #MACHINE=wince-sh3-hpc-wce200
+    #MACHINE=wince-mips-hpc-wce200
+    #MACHINE=wince-arm-pocket-wce300
+    #MACHINE=wince-mips-pocket-wce300
+    #MACHINE=wince-sh3-pocket-wce300
+    #MACHINE=wince-x86em-pocket-wce300
+    #MACHINE=wince-mips-palm-wce211
+    #MACHINE=wince-sh3-palm-wce211
+    #MACHINE=wince-x86em-palm-wce211
+    #MACHINE=wince-x86-hpc-wce300
+    #MACHINE=wince-arm-pocket-wce400
+    !endif
+
+to
+
+    !if "$(MACHINE)" == ""
+    #MACHINE=wince-arm-hpc-wce300
+    #MACHINE=wince-arm-hpc-wce211
+    #MACHINE=wince-sh3-hpc-wce211
+    #MACHINE=wince-mips-hpc-wce211
+    #MACHINE=wince-sh3-hpc-wce200
+    #MACHINE=wince-mips-hpc-wce200
+    #MACHINE=wince-arm-pocket-wce300
+    #MACHINE=wince-mips-pocket-wce300
+    #MACHINE=wince-sh3-pocket-wce300
+    #MACHINE=wince-x86em-pocket-wce300
+    #MACHINE=wince-mips-palm-wce211
+    #MACHINE=wince-sh3-palm-wce211
+    #MACHINE=wince-x86em-palm-wce211
+    #MACHINE=wince-x86-hpc-wce300
+    MACHINE=wince-arm-pocket-wce400
+    !endif
+
+so wince-arm-pocket-wce400 is the MACHINE type.
+
+6. Use a text editor to open "C:\Program Files\Microsoft eMbedded C++ 
+4.0\EVC\WCE400\BIN\WCEARMV4.BAT". Look for
+
+    if "%SDKROOT%"=="" set SDKROOT=...
+
+On a new install it is "C:\Windows CE Tools". Goto 
+"C:\Windows CE Tools" in a file manager and see if "C:\Windows CE 
+Tools\wce400\STANDARDSDK\Include\Armv4" exists on your disk. If not
+the SDKROOT need to be changed to "C:\Program Files\Windows CE Tools".
+
+Goto celib-palm-3.0\inc\cewin32.h, search for
+
+    typedef struct _ABC {
+
+and uncomment the struct.
+
+7. Open another command prompt, ensure PLATFORM is not set to anything
+already unless you know what you're doing (so that the correct default
+value is set by the next command), and run "C:\Program Files\Microsoft
+eMbedded C++ 4.0\EVC\WCE400\BIN\WCEARMV4.BAT"
+
+8. In the WinCE command prompt you made with WCEARMV4.BAT, goto the perl 
+source directory, cd into win32/ and run "nmake -f Makefile.ce".
+
+9. The ARM perl interpreter (perl519.dll and perl.exe) will be in something
+like "C:\perl519\src\win32\wince-arm-pocket-wce400", with the XS DLLs in
+"C:\perl519\src\xlib\wince-arm-hpc-wce400\auto".
+
+To prove success on the host machine, run
+"dumpbin /headers wince-arm-pocket-wce400\perl.exe" from the win32/ folder
+and look for "machine (ARM)" in the FILE HEADER VALUES and
+"subsystem (Windows CE GUI)" in the OPTIONAL HEADER VALUES.
+
+=head2 OLD BUILD INSTRUCTIONS
+
+This section describes the steps to be performed to build PerlCE.
+You may find additional information about building perl for WinCE
+at L<http://perlce.sourceforge.net> and some pre-built binaries.
+
+=head3 Tools & SDK
+
+For compiling, you need following:
+
+=over 4
+
+=item * Microsoft Embedded Visual Tools
+
+=item * Microsoft Visual C++
+
+=item * Rainer Keuchel's celib-sources
+
+=item * Rainer Keuchel's console-sources
+
+=back
+
+Needed source files can be downloaded at
+L<http://perlce.sourceforge.net>
+
+=head3 Make
+
+Normally you only need to edit F<./win32/ce-helpers/compile.bat>
+to reflect your system and run it.
+
+File F<./win32/ce-helpers/compile.bat> is actually a wrapper to call
+C<nmake -f makefile.ce> with appropriate parameters and it accepts extra
+parameters and forwards them to C<nmake> command as additional
+arguments. You should pass target this way.
+
+To prepare distribution you need to do following:
+
+=over 4
+
+=item * go to F<./win32> subdirectory
+
+=item * edit file F<./win32/ce-helpers/compile.bat>
+
+=item * run 
+  compile.bat
+
+=item * run 
+  compile.bat dist
+
+=back
+
+F<Makefile.ce> has C<CROSS_NAME> macro, and it is used further to refer to
+your cross-compilation scheme. You could assign a name to it, but this
+is not necessary, because by default it is assigned after your machine
+configuration name, such as "wince-sh3-hpc-wce211", and this is enough
+to distinguish different builds at the same time. This option could be
+handy for several different builds on same platform to perform, say,
+threaded build. In a following example we assume that all required
+environment variables are set properly for C cross-compiler (a special
+*.bat file could fit perfectly to this purpose) and your F<compile.bat>
+has proper "MACHINE" parameter set, to, say, C<wince-mips-pocket-wce300>.
+
+  compile.bat
+  compile.bat dist
+  compile.bat CROSS_NAME=mips-wce300-thr "USE_ITHREADS=define" ^
+    "USE_IMP_SYS=define" "USE_MULTI=define"
+  compile.bat CROSS_NAME=mips-wce300-thr "USE_ITHREADS=define" ^
+    "USE_IMP_SYS=define" "USE_MULTI=define" dist
+
+If all goes okay and no errors during a build, you'll get two independent
+distributions: C<wince-mips-pocket-wce300> and C<mips-wce300-thr>.
+
+Target C<dist> prepares distribution file set. Target C<zipdist> performs
+same as C<dist> but additionally compresses distribution files into zip
+archive.
+
+NOTE: during a build there could be created a number (or one) of F<Config.pm>
+for cross-compilation ("foreign" F<Config.pm>) and those are hidden inside
+F<../xlib/$(CROSS_NAME)> with other auxiliary files, but, and this is important to
+note, there should be B<no> F<Config.pm> for host miniperl.
+If you'll get an error that perl could not find Config.pm somewhere in building
+process this means something went wrong. Most probably you forgot to
+specify a cross-compilation when invoking miniperl.exe to Makefile.PL
+When building an extension for cross-compilation your command line should
+look like
+
+  ..\miniperl.exe -I..\lib -MCross=mips-wce300-thr Makefile.PL
+
+or just
+
+  ..\miniperl.exe -I..\lib -MCross Makefile.PL
+
+to refer a cross-compilation that was created last time.
+
+All questions related to building for WinCE devices could be asked in
+F<perlce-user@lists.sourceforge.net> mailing list.
+
+=head1 Using Perl on WinCE
+
+=head2 DESCRIPTION
+
+PerlCE is currently linked with a simple console window, so it also
+works on non-hpc devices.
+
+The simple stdio implementation creates the files F<stdin.txt>,
+F<stdout.txt> and F<stderr.txt>, so you might examine them if your
+console has only a limited number of cols.
+
+When exitcode is non-zero, a message box appears, otherwise the
+console closes, so you might have to catch an exit with
+status 0 in your program to see any output.
+
+stdout/stderr now go into the files F</perl-stdout.txt> and
+F</perl-stderr.txt.>
+
+PerlIDE is handy to deal with perlce.
+
+=head2 LIMITATIONS
+
+No fork(), pipe(), popen() etc.
+
+=head2 ENVIRONMENT
+
+All environment vars must be stored in HKLM\Environment as
+strings. They are read at process startup.
+
+=over
+
+=item PERL5LIB
+
+Usual perl lib path (semi-list).
+
+=item PATH
+
+Semi-list for executables.
+
+=item TMP
+
+- Tempdir.
+
+=item UNIXROOTPATH
+
+- Root for accessing some special files, i.e. F</dev/null>, F</etc/services>.
+
+=item ROWS/COLS
+
+- Rows/cols for console.
+
+=item HOME
+
+- Home directory.
+
+=item CONSOLEFONTSIZE
+
+- Size for console font.
+
+=back
+
+You can set these with cereg.exe, a (remote) registry editor
+or via the PerlIDE.
+
+=head2 REGISTRY
+
+To start perl by clicking on a perl source file, you have
+to make the according entries in HKCR (see F<ce-helpers/wince-reg.bat>).
+cereg.exe (which must be executed on a desktop pc with
+ActiveSync) is reported not to work on some devices.
+You have to create the registry entries by hand using a 
+registry editor.
+
+=head2 XS
+
+The following Win32-Methods are built-in:
+
+	newXS("Win32::GetCwd", w32_GetCwd, file);
+	newXS("Win32::SetCwd", w32_SetCwd, file);
+	newXS("Win32::GetTickCount", w32_GetTickCount, file);
+	newXS("Win32::GetOSVersion", w32_GetOSVersion, file);
+	newXS("Win32::IsWinNT", w32_IsWinNT, file);
+	newXS("Win32::IsWin95", w32_IsWin95, file);
+	newXS("Win32::IsWinCE", w32_IsWinCE, file);
+	newXS("Win32::CopyFile", w32_CopyFile, file);
+	newXS("Win32::Sleep", w32_Sleep, file);
+	newXS("Win32::MessageBox", w32_MessageBox, file);
+	newXS("Win32::GetPowerStatus", w32_GetPowerStatus, file);
+	newXS("Win32::GetOemInfo", w32_GetOemInfo, file);
+	newXS("Win32::ShellEx", w32_ShellEx, file);
+
+=head2 BUGS
+
+Opening files for read-write is currently not supported if
+they use stdio (normal perl file handles).
+
+If you find bugs or if it does not work at all on your
+device, send mail to the address below. Please report
+the details of your device (processor, ceversion, 
+devicetype (hpc/palm/pocket)) and the date of the downloaded
+files. 
+
+=head2 INSTALLATION
+
+Currently installation instructions are at L<http://perlce.sourceforge.net/>.
+
+After installation & testing processes will stabilize, information will
+be more precise.
+
+=head1 ACKNOWLEDGEMENTS
+
+The port for Win32 was used as a reference.
+
+=head1 History of WinCE port
+
+=over
+
+=item 5.6.0
+
+Initial port of perl to WinCE. It was performed in separate directory
+named F<wince>. This port was based on contents of F<./win32> directory.
+F<miniperl> was not built, user must have HOST perl and properly edit
+F<makefile.ce> to reflect this.
+
+=item 5.8.0
+
+wince port was kept in the same F<./wince> directory, and F<wince/Makefile.ce>
+was used to invoke native compiler to create HOST miniperl, which then
+facilitates cross-compiling process.
+Extension building support was added.
+
+=item 5.9.4
+
+Two directories F<./win32> and F<./wince> were merged, so perlce build
+process comes in F<./win32> directory.
+
+=back
+
+=head1 AUTHORS
+
+=over
+
+=item Rainer Keuchel <coyxc@rainer-keuchel.de>
+
+provided initial port of Perl, which appears to be most essential work, as
+it was a breakthrough on having Perl ported at all.
+Many thanks and obligations to Rainer!
+
+=item Vadim Konovalov
+
+made further support of WinCE port.
+
+=item Daniel Dragan
+
+updated the build process during the 5.19 development track.
+
+=back
diff --git a/lib/5.24.1/pod/perlcheat.pod b/lib/5.24.1/pod/perlcheat.pod
new file mode 100644
index 00000000..6e4e919f
--- /dev/null
+++ b/lib/5.24.1/pod/perlcheat.pod
@@ -0,0 +1,108 @@
+=head1 NAME
+
+perlcheat - Perl 5 Cheat Sheet
+
+=head1 DESCRIPTION
+
+This 'cheat sheet' is a handy reference, meant for beginning Perl
+programmers. Not everything is mentioned, but 195 features may
+already be overwhelming.
+
+=head2 The sheet
+
+  CONTEXTS  SIGILS  ref        ARRAYS        HASHES
+  void      $scalar SCALAR     @array        %hash
+  scalar    @array  ARRAY      @array[0, 2]  @hash{'a', 'b'}
+  list      %hash   HASH       $array[0]     $hash{'a'}
+            &sub    CODE
+            *glob   GLOB       SCALAR VALUES
+                    FORMAT     number, string, ref, glob, undef
+  REFERENCES
+  \      reference       $$foo[1]       aka $foo->[1]
+  $@%&*  dereference     $$foo{bar}     aka $foo->{bar}
+  []     anon. arrayref  ${$$foo[1]}[2] aka $foo->[1]->[2]
+  {}     anon. hashref   ${$$foo[1]}[2] aka $foo->[1][2]
+  \()    list of refs
+                         SYNTAX
+  OPERATOR PRECEDENCE    foreach (LIST) { }     for (a;b;c) { }
+  ->                     while   (e) { }        until (e)   { }
+  ++ --                  if      (e) { } elsif (e) { } else { }
+  **                     unless  (e) { } elsif (e) { } else { }
+  ! ~ \ u+ u-            given   (e) { when (e) {} default {} }
+  =~ !~
+  * / % x                 NUMBERS vs STRINGS  FALSE vs TRUE
+  + - .                   =          =        undef, "", 0, "0"
+  << >>                   +          .        anything else
+  named uops              == !=      eq ne
+  < > <= >= lt gt le ge   < > <= >=  lt gt le ge
+  == != <=> eq ne cmp ~~  <=>        cmp
+  &
+  | ^             REGEX MODIFIERS       REGEX METACHARS
+  &&              /i case insensitive   ^      string begin
+  || //           /m line based ^$      $      str end (bfr \n)
+  .. ...          /s . includes \n      +      one or more
+  ?:              /x ignore wh.space    *      zero or more
+  = += last goto  /p preserve           ?      zero or one
+  , =>            /a ASCII    /aa safe  {3,7}  repeat in range
+  list ops        /l locale   /d  dual  |      alternation
+  not             /u Unicode            []     character class
+  and             /e evaluate /ee rpts  \b     boundary
+  or xor          /g global             \z     string end
+                  /o compile pat once   ()     capture
+  DEBUG                                 (?:p)  no capture
+  -MO=Deparse     REGEX CHARCLASSES     (?#t)  comment
+  -MO=Terse       .   [^\n]             (?=p)  ZW pos ahead
+  -D##            \s  whitespace        (?!p)  ZW neg ahead
+  -d:Trace        \w  word chars        (?<=p) ZW pos behind \K
+                  \d  digits            (?<!p) ZW neg behind
+  CONFIGURATION   \pP named property    (?>p)  no backtrack
+  perl -V:ivsize  \h  horiz.wh.space    (?|p|p)branch reset
+                  \R  linebreak         (?<n>p)named capture
+                  \S \W \D \H negate    \g{n}  ref to named cap
+                                        \K     keep left part
+  FUNCTION RETURN LISTS
+  stat      localtime    caller         SPECIAL VARIABLES
+   0 dev    0 second      0 package     $_    default variable
+   1 ino    1 minute      1 filename    $0    program name
+   2 mode   2 hour        2 line        $/    input separator
+   3 nlink  3 day         3 subroutine  $\    output separator
+   4 uid    4 month-1     4 hasargs     $|    autoflush
+   5 gid    5 year-1900   5 wantarray   $!    sys/libcall error
+   6 rdev   6 weekday     6 evaltext    $@    eval error
+   7 size   7 yearday     7 is_require  $$    process ID
+   8 atime  8 is_dst      8 hints       $.    line number
+   9 mtime                9 bitmask     @ARGV command line args
+  10 ctime               10 hinthash    @INC  include paths
+  11 blksz               3..10 only     @_    subroutine args
+  12 blcks               with EXPR      %ENV  environment
+
+=head1 ACKNOWLEDGEMENTS
+
+The first version of this document appeared on Perl Monks, where several
+people had useful suggestions. Thank you, Perl Monks.
+
+A special thanks to Damian Conway, who didn't only suggest important changes,
+but also took the time to count the number of listed features and make a
+Perl 6 version to show that Perl will stay Perl.
+
+=head1 AUTHOR
+
+Juerd Waalboer <#####@juerd.nl>, with the help of many Perl Monks.
+
+=head1 SEE ALSO
+
+=over 4
+
+=item *
+
+L<http://perlmonks.org/?node_id=216602> - the original PM post
+
+=item *
+
+L<http://perlmonks.org/?node_id=238031> - Damian Conway's Perl 6 version
+
+=item *
+
+L<http://juerd.nl/site.plp/perlcheat> - home of the Perl Cheat Sheet
+
+=back
diff --git a/lib/5.24.1/pod/perlclib.pod b/lib/5.24.1/pod/perlclib.pod
new file mode 100644
index 00000000..b366c7f8
--- /dev/null
+++ b/lib/5.24.1/pod/perlclib.pod
@@ -0,0 +1,256 @@
+=head1 NAME
+
+perlclib - Internal replacements for standard C library functions
+
+=head1 DESCRIPTION
+
+One thing Perl porters should note is that F<perl> doesn't tend to use that
+much of the C standard library internally; you'll see very little use of, 
+for example, the F<ctype.h> functions in there. This is because Perl
+tends to reimplement or abstract standard library functions, so that we
+know exactly how they're going to operate.
+
+This is a reference card for people who are familiar with the C library
+and who want to do things the Perl way; to tell them which functions
+they ought to use instead of the more normal C functions. 
+
+=head2 Conventions
+
+In the following tables:
+
+=over 3
+
+=item C<t>
+
+is a type.
+
+=item C<p>
+
+is a pointer.
+
+=item C<n>
+
+is a number.
+
+=item C<s>
+
+is a string.
+
+=back
+
+C<sv>, C<av>, C<hv>, etc. represent variables of their respective types.
+
+=head2 File Operations
+
+Instead of the F<stdio.h> functions, you should use the Perl abstraction
+layer. Instead of C<FILE*> types, you need to be handling C<PerlIO*>
+types.  Don't forget that with the new PerlIO layered I/O abstraction 
+C<FILE*> types may not even be available. See also the C<perlapio>
+documentation for more information about the following functions:
+
+ Instead Of:                 Use:
+
+ stdin                       PerlIO_stdin()
+ stdout                      PerlIO_stdout()
+ stderr                      PerlIO_stderr()
+
+ fopen(fn, mode)             PerlIO_open(fn, mode)
+ freopen(fn, mode, stream)   PerlIO_reopen(fn, mode, perlio) (Dep-
+                               recated)
+ fflush(stream)              PerlIO_flush(perlio)
+ fclose(stream)              PerlIO_close(perlio)
+
+=head2 File Input and Output
+
+ Instead Of:                 Use:
+
+ fprintf(stream, fmt, ...)   PerlIO_printf(perlio, fmt, ...)
+
+ [f]getc(stream)             PerlIO_getc(perlio)
+ [f]putc(stream, n)          PerlIO_putc(perlio, n)
+ ungetc(n, stream)           PerlIO_ungetc(perlio, n)
+
+Note that the PerlIO equivalents of C<fread> and C<fwrite> are slightly
+different from their C library counterparts:
+
+ fread(p, size, n, stream)   PerlIO_read(perlio, buf, numbytes)
+ fwrite(p, size, n, stream)  PerlIO_write(perlio, buf, numbytes)
+
+ fputs(s, stream)            PerlIO_puts(perlio, s)
+
+There is no equivalent to C<fgets>; one should use C<sv_gets> instead:
+
+ fgets(s, n, stream)         sv_gets(sv, perlio, append)
+
+=head2 File Positioning
+
+ Instead Of:                 Use:
+
+ feof(stream)                PerlIO_eof(perlio)
+ fseek(stream, n, whence)    PerlIO_seek(perlio, n, whence)
+ rewind(stream)              PerlIO_rewind(perlio)
+
+ fgetpos(stream, p)          PerlIO_getpos(perlio, sv)
+ fsetpos(stream, p)          PerlIO_setpos(perlio, sv)
+
+ ferror(stream)              PerlIO_error(perlio)
+ clearerr(stream)            PerlIO_clearerr(perlio)
+
+=head2 Memory Management and String Handling
+
+ Instead Of:                    Use:
+
+ t* p = malloc(n)               Newx(p, n, t)
+ t* p = calloc(n, s)            Newxz(p, n, t)
+ p = realloc(p, n)              Renew(p, n, t)
+ memcpy(dst, src, n)            Copy(src, dst, n, t)
+ memmove(dst, src, n)           Move(src, dst, n, t)
+ memcpy(dst, src, sizeof(t))    StructCopy(src, dst, t)
+ memset(dst, 0, n * sizeof(t))  Zero(dst, n, t)
+ memzero(dst, 0)                Zero(dst, n, char)
+ free(p)                        Safefree(p)
+
+ strdup(p)                      savepv(p)
+ strndup(p, n)                  savepvn(p, n) (Hey, strndup doesn't
+                                               exist!)
+
+ strstr(big, little)            instr(big, little)
+ strcmp(s1, s2)                 strLE(s1, s2) / strEQ(s1, s2)
+                                              / strGT(s1,s2)
+ strncmp(s1, s2, n)             strnNE(s1, s2, n) / strnEQ(s1, s2, n)
+
+ memcmp(p1, p2, n)              memNE(p1, p2, n)
+ !memcmp(p1, p2, n)             memEQ(p1, p2, n)
+
+Notice the different order of arguments to C<Copy> and C<Move> than used
+in C<memcpy> and C<memmove>.
+
+Most of the time, though, you'll want to be dealing with SVs internally
+instead of raw C<char *> strings:
+
+ strlen(s)                   sv_len(sv)
+ strcpy(dt, src)             sv_setpv(sv, s)
+ strncpy(dt, src, n)         sv_setpvn(sv, s, n)
+ strcat(dt, src)             sv_catpv(sv, s)
+ strncat(dt, src)            sv_catpvn(sv, s)
+ sprintf(s, fmt, ...)        sv_setpvf(sv, fmt, ...)
+
+Note also the existence of C<sv_catpvf> and C<sv_vcatpvfn>, combining
+concatenation with formatting.
+
+Sometimes instead of zeroing the allocated heap by using Newxz() you
+should consider "poisoning" the data.  This means writing a bit
+pattern into it that should be illegal as pointers (and floating point
+numbers), and also hopefully surprising enough as integers, so that
+any code attempting to use the data without forethought will break
+sooner rather than later.  Poisoning can be done using the Poison()
+macros, which have similar arguments to Zero():
+
+ PoisonWith(dst, n, t, b)    scribble memory with byte b
+ PoisonNew(dst, n, t)        equal to PoisonWith(dst, n, t, 0xAB)
+ PoisonFree(dst, n, t)       equal to PoisonWith(dst, n, t, 0xEF)
+ Poison(dst, n, t)           equal to PoisonFree(dst, n, t)
+
+=head2 Character Class Tests
+
+There are several types of character class tests that Perl implements.
+The only ones described here are those that directly correspond to C
+library functions that operate on 8-bit characters, but there are
+equivalents that operate on wide characters, and UTF-8 encoded strings.
+All are more fully described in L<perlapi/Character classification> and
+L<perlapi/Character case changing>.
+
+The C library routines listed in the table below return values based on
+the current locale.  Use the entries in the final column for that
+functionality.  The other two columns always assume a POSIX (or C)
+locale.  The entries in the ASCII column are only meaningful for ASCII
+inputs, returning FALSE for anything else.  Use these only when you
+B<know> that is what you want.  The entries in the Latin1 column assume
+that the non-ASCII 8-bit characters are as Unicode defines, them, the
+same as ISO-8859-1, often called Latin 1.
+
+ Instead Of:  Use for ASCII:   Use for Latin1:      Use for locale:
+
+ isalnum(c)  isALPHANUMERIC(c) isALPHANUMERIC_L1(c) isALPHANUMERIC_LC(c)
+ isalpha(c)  isALPHA(c)        isALPHA_L1(c)        isALPHA_LC(u )
+ isascii(c)  isASCII(c)                             isASCII_LC(c)
+ isblank(c)  isBLANK(c)        isBLANK_L1(c)        isBLANK_LC(c)
+ iscntrl(c)  isCNTRL(c)        isCNTRL_L1(c)        isCNTRL_LC(c)
+ isdigit(c)  isDIGIT(c)        isDIGIT_L1(c)        isDIGIT_LC(c)
+ isgraph(c)  isGRAPH(c)        isGRAPH_L1(c)        isGRAPH_LC(c)
+ islower(c)  isLOWER(c)        isLOWER_L1(c)        isLOWER_LC(c)
+ isprint(c)  isPRINT(c)        isPRINT_L1(c)        isPRINT_LC(c)
+ ispunct(c)  isPUNCT(c)        isPUNCT_L1(c)        isPUNCT_LC(c)
+ isspace(c)  isSPACE(c)        isSPACE_L1(c)        isSPACE_LC(c)
+ isupper(c)  isUPPER(c)        isUPPER_L1(c)        isUPPER_LC(c)
+ isxdigit(c) isXDIGIT(c)       isXDIGIT_L1(c)       isXDIGIT_LC(c)
+
+ tolower(c)  toLOWER(c)        toLOWER_L1(c)        toLOWER_LC(c)
+ toupper(c)  toUPPER(c)                             toUPPER_LC(c)
+
+To emphasize that you are operating only on ASCII characters, you can
+append C<_A> to each of the macros in the ASCII column: C<isALPHA_A>,
+C<isDIGIT_A>, and so on.
+
+(There is no entry in the Latin1 column for C<isascii> even though there
+is an C<isASCII_L1>, which is identical to C<isASCII>;  the
+latter name is clearer.  There is no entry in the Latin1 column for
+C<toupper> because the result can be non-Latin1.  You have to use
+C<toUPPER_uni>, as described in L<perlapi/Character case changing>.)
+
+=head2 F<stdlib.h> functions
+
+ Instead Of:                 Use:
+
+ atof(s)                     Atof(s)
+ atoi(s)                     grok_atoUV(s, &uv, &e)
+ atol(s)                     grok_atoUV(s, &uv, &e)
+ strtod(s, &p)               Nothing.  Just don't use it.
+ strtol(s, &p, n)            grok_atoUV(s, &uv, &e)
+ strtoul(s, &p, n)           grok_atoUV(s, &uv, &e)
+
+Typical use is to do range checks on C<uv> before casting:
+
+  int i; UV uv; char* end_ptr;
+  if (grok_atoUV(input, &uv, &end_ptr)
+      && uv <= INT_MAX)
+    i = (int)uv;
+    ... /* continue parsing from end_ptr */
+  } else {
+    ... /* parse error: not a decimal integer in range 0 .. MAX_IV */
+  }
+
+Notice also the C<grok_bin>, C<grok_hex>, and C<grok_oct> functions in
+F<numeric.c> for converting strings representing numbers in the respective
+bases into C<NV>s.  Note that grok_atoUV() doesn't handle negative inputs,
+or leading whitespace (being purposefully strict).
+
+Note that strtol() and strtoul() may be disguised as Strtol(), Strtoul(),
+Atol(), Atoul().  Avoid those, too.
+
+In theory C<Strtol> and C<Strtoul> may not be defined if the machine perl is
+built on doesn't actually have strtol and strtoul. But as those 2
+functions are part of the 1989 ANSI C spec we suspect you'll find them
+everywhere by now.
+
+ int rand()                  double Drand01()
+ srand(n)                    { seedDrand01((Rand_seed_t)n);
+                               PL_srand_called = TRUE; }
+
+ exit(n)                     my_exit(n)
+ system(s)                   Don't. Look at pp_system or use my_popen.
+
+ getenv(s)                   PerlEnv_getenv(s)
+ setenv(s, val)              my_setenv(s, val)
+
+=head2 Miscellaneous functions
+
+You should not even B<want> to use F<setjmp.h> functions, but if you
+think you do, use the C<JMPENV> stack in F<scope.h> instead.
+
+For C<signal>/C<sigaction>, use C<rsignal(signo, handler)>.
+
+=head1 SEE ALSO
+
+L<perlapi>, L<perlapio>, L<perlguts>
+
diff --git a/lib/5.24.1/pod/perlcn.pod b/lib/5.24.1/pod/perlcn.pod
new file mode 100644
index 00000000..04eb4de5
--- /dev/null
+++ b/lib/5.24.1/pod/perlcn.pod
@@ -0,0 +1,144 @@
+=encoding utf8
+
+如果你用一般的文字编辑器阅览这份文件, 请忽略文中奇特的注记字符.
+这份文件是以 POD (简明文件格�) 写�; 这�格�是为了能让人直接阅读,
+而特别设计的. 关于此格�的进一步信�, 请�考 perlpod 线上文件.
+
+=head1 NAME
+
+perlcn - 简体中文 Perl 指�
+
+=head1 DESCRIPTION
+
+欢迎�到 Perl 的天地!
+
+从 5.8.0 版开始, Perl 具备了完善的 Unicode (统一�) 支�,
+也连带支�了许多拉�语系以外的编�方�; CJK (中日韩) 便是其中的一部份.
+Unicode 是国际性的标准, 试图涵盖世界上所有的字符: 西方世界, 东方世界,
+以�两者间的一切 (希腊文, �利亚文, 亚拉伯文, 希伯�文, �度文,
+�地安文, 等等). 它也容纳了多�作业系统与平� (如 PC �麦金塔).
+
+Perl 本身以 Unicode 进行�作. 这表示 Perl 内部的字符串数��用 Unicode
+表示; Perl 的函�与算符 (例如正规表示�比对) 也能对 Unicode 进行�作.
+在输入�输出时, 为了处�以 Unicode 之�的编�方�存放的数�, Perl
+�供了 Encode 这个模�, �以让你轻易地读��写入旧有的编�数�.
+
+Encode 延伸模�支�下列简体中文的编�方� ('gb2312' 表示 'euc-cn'):
+
+    euc-cn	Unix 延伸字符集, 也就是俗称的国标�
+    gb2312-raw	未�处�的 (低比特) GB2312 字符表
+    gb12345	未�处�的中国用�体中文编�
+    iso-ir-165	GB2312 + GB6345 + GB8565 + 新增字符
+    cp936	字�页 936, 也�以用 'GBK' (扩充国标�) 指明
+    hz		7 比特逸出� GB2312 编�
+
+举例�说, 将 EUC-CN 编�的档案转� Unicode, 祗需键入下列指令:
+
+    perl -Mencoding=euc-cn,STDOUT,utf8 -pe1 < file.euc-cn > file.utf8
+
+Perl 也内附了 "piconv", 一支完全以 Perl 写�的字符转�工具程�, 用法如下:
+
+    piconv -f euc-cn -t utf8 < file.euc-cn > file.utf8
+    piconv -f utf8 -t euc-cn < file.utf8 > file.euc-cn
+
+�外, 利用 encoding 模�, 你�以轻易写出以字符为��的程��, 如下所示:
+
+    #!/usr/bin/env perl
+    # �动 euc-cn 字串解�; 标准输出入�标准错误都设为 euc-cn 编�
+    use encoding 'euc-cn', STDIN => 'euc-cn', STDOUT => 'euc-cn';
+    print length("骆驼");	     #  2 (�引�表示字符)
+    print length('骆驼');	     #  4 (�引�表示字节)
+    print index("谆谆教诲", "蛔唤"); # -1 (�包�此�字符串)
+    print index('谆谆教诲', '蛔唤'); #  1 (从第二个字节开始)
+
+在最�一列例�里, "谆" 的第二个字节与 "谆" 的第一个字节结�� EUC-CN
+�的 "蛔"; "谆" 的第二个字节则与 "教" 的第一个字节结�� "唤".
+这解决了以� EUC-CN �比对处�上常�的问题.
+
+=head2 �外的中文编�
+
+如果需�更多的中文编�, �以从 CPAN (L<http://www.cpan.org/>) 下载
+Encode::HanExtra 模�. 它目��供下列编�方�:
+
+    gb18030	扩充过的国标�, 包��体中文
+
+�外, Encode::HanConvert 模�则�供了简�转�用的两�编�:
+
+    big5-simp	Big5 �体中文与 Unicode 简体中文互转
+    gbk-trad	GBK 简体中文与 Unicode �体中文互转
+
+若想在 GBK 与 Big5 之间互转, 请�考该模�内附的 b2g.pl 与 g2b.pl 两支程�,
+或在程�内使用下列写法:
+
+    use Encode::HanConvert;
+    $euc_cn = big5_to_gb($big5); # 从 Big5 转为 GBK
+    $big5 = gb_to_big5($euc_cn); # 从 GBK 转为 Big5
+
+=head2 进一步的信�
+
+请�考 Perl 内附的大�说明文件 (�幸全是用英文写的), �学习更多关于
+Perl 的知识, 以� Unicode 的使用方�. �过, 外部的资�相当丰富:
+
+=head2 �供 Perl 资�的网�
+
+=over 4
+
+=item L<http://www.perl.com/>
+
+Perl 的首页 (由欧莱礼公�维护)
+
+=item L<http://www.cpan.org/>
+
+Perl 综�典�网 (Comprehensive Perl Archive Network)
+
+=item L<http://lists.perl.org/>
+
+Perl 邮递论�一览
+
+=back
+
+=head2 学习 Perl 的网�
+
+=over 4
+
+=item L<http://www.oreilly.com.cn/index.php?func=booklist&cat=68>
+
+简体中文版的欧莱礼 Perl 书藉
+
+=back
+
+=head2 Perl 使用者集会
+
+=over 4
+
+=item L<http://www.pm.org/groups/asia.html>
+
+中国 Perl 推广组一览
+
+=back
+
+=head2 Unicode 相关网�
+
+=over 4
+
+=item L<http://www.unicode.org/>
+
+Unicode 学术学会 (Unicode 标准的制定者)
+
+=item L<http://www.cl.cam.ac.uk/%7Emgk25/unicode.html>
+
+Unix/Linux 上的 UTF-8 � Unicode 答客问
+
+=back
+
+=head1 SEE ALSO
+
+L<Encode>, L<Encode::CN>, L<encoding>, L<perluniintro>, L<perlunicode>
+
+=head1 AUTHORS
+
+Jarkko Hietaniemi E<lt>jhi@iki.fiE<gt>
+
+Audrey Tang (�凤) E<lt>audreyt@audreyt.orgE<gt>
+
+=cut
diff --git a/lib/5.24.1/pod/perlcommunity.pod b/lib/5.24.1/pod/perlcommunity.pod
new file mode 100644
index 00000000..4b86740a
--- /dev/null
+++ b/lib/5.24.1/pod/perlcommunity.pod
@@ -0,0 +1,183 @@
+=head1 NAME
+
+perlcommunity - a brief overview of the Perl community
+
+=head1 DESCRIPTION
+
+This document aims to provide an overview of the vast perl community, which is
+far too large and diverse to provide a detailed listing. If any specific niche
+has been forgotten, it is not meant as an insult but an omission for the sake
+of brevity.
+
+The Perl community is as diverse as Perl, and there is a large amount of
+evidence that the Perl users apply TMTOWTDI to all endeavors, not just
+programming. From websites, to IRC, to mailing lists, there is more than one
+way to get involved in the community.
+
+=head2 Where to Find the Community
+
+There is a central directory for the Perl community: L<http://perl.org>
+maintained by the Perl Foundation (L<http://www.perlfoundation.org/>),
+which tracks and provides services for a variety of other community sites.
+
+=head2 Mailing Lists and Newsgroups
+
+Perl runs on e-mail; there is no doubt about it. The Camel book was originally
+written mostly over e-mail and today Perl's development is co-ordinated through
+mailing lists. The largest repository of Perl mailing lists is located at
+L<http://lists.perl.org>.
+
+Most Perl-related projects set up mailing lists for both users and
+contributors. If you don't see a certain project listed at
+L<http://lists.perl.org>, check the particular website for that project.
+Most mailing lists are archived at L<http://nntp.perl.org/>.
+
+There are also plenty of Perl related newsgroups located under
+C<comp.lang.perl.*>.
+
+=head2 IRC
+
+The Perl community has a rather large IRC presence. For starters, it has its
+own IRC network, L<irc://irc.perl.org>. General (not help-oriented) chat can be
+found at L<irc://irc.perl.org/#perl>. Many other more specific chats are also
+hosted on the network. Information about irc.perl.org is located on the
+network's website: L<http://www.irc.perl.org>. For a more help-oriented #perl,
+check out L<irc://irc.freenode.net/#perl>. Perl 6 development also has a
+presence in L<irc://irc.freenode.net/#perl6>. Most Perl-related channels will
+be kind enough to point you in the right direction if you ask nicely.
+
+Any large IRC network (Dalnet, EFnet) is also likely to have a #perl channel,
+with varying activity levels.
+
+=head2 Websites
+
+Perl websites come in a variety of forms, but they fit into two large
+categories: forums and news websites. There are many Perl-related
+websites, so only a few of the community's largest are mentioned here.
+
+=head3 News sites
+
+=over 4
+
+=item L<http://perl.com/>
+
+Originally run by O'Reilly Media (the publisher of L<the Camel Book|perlbook>,
+this site provides quality articles mostly about technical details of Perl.
+
+=item L<http://blogs.perl.org/>
+
+Many members of the community have a Perl-related blog on this site. If
+you'd like to join them, you can sign up for free.
+
+=item L<http://perlsphere.net/>
+
+Perlsphere is one of several aggregators of Perl-related blog feeds.
+
+=item L<http://perlweekly.com/>
+
+Perl Weekly is a weekly mailing list that keeps you up to date on conferences,
+releases and notable blog posts.
+
+=item L<http://use.perl.org/>
+
+use Perl; used to provide a slashdot-style news/blog website covering all
+things Perl, from minutes of the meetings of the Perl 6 Design team to
+conference announcements with (ir)relevant discussion. It no longer accepts
+updates, but you can still use the site to read old entries and comments.
+
+=back
+
+=head3 Forums
+
+=over 4
+
+=item L<http://www.perlmonks.org/>
+
+PerlMonks is one of the largest Perl forums, and describes itself as "A place
+for individuals to polish, improve, and showcase their Perl skills." and "A
+community which allows everyone to grow and learn from each other."
+
+=item L<http://stackoverflow.com/>
+
+Stack Overflow is a free question-and-answer site for programmers. It's not
+focussed solely on Perl, but it does have an active group of users who do
+their best to help people with their Perl programming questions.
+
+=item L<http://prepan.org/>
+
+PrePAN is used as a place to discuss modules that you're considering uploading
+to the CPAN.  You can get feedback on their design before you upload.
+
+=back
+
+=head2 User Groups
+
+Many cities around the world have local Perl Mongers chapters. A Perl Mongers
+chapter is a local user group which typically holds regular in-person meetings,
+both social and technical; helps organize local conferences, workshops, and
+hackathons; and provides a mailing list or other continual contact method for
+its members to keep in touch.
+
+To find your local Perl Mongers (or PM as they're commonly abbreviated) group
+check the international Perl Mongers directory at L<http://www.pm.org/>.
+
+=head2 Workshops
+
+Perl workshops are, as the name might suggest, workshops where Perl is taught
+in a variety of ways. At the workshops, subjects range from a beginner's
+introduction (such as the Pittsburgh Perl Workshop's "Zero To Perl") to much
+more advanced subjects.
+
+There are several great resources for locating workshops: the
+L<websites|"Websites"> mentioned above, the
+L<calendar|"Calendar of Perl Events"> mentioned below, and the YAPC Europe
+website, L<http://www.yapceurope.org/>, which is probably the best resource for
+European Perl events.
+
+=head2 Hackathons
+
+Hackathons are a very different kind of gathering where Perl hackers gather to
+do just that, hack nonstop for an extended (several day) period on a specific
+project or projects. Information about hackathons can be located in the same
+place as information about L<workshops|"Workshops"> as well as in
+L<irc://irc.perl.org/#perl>.
+
+If you have never been to a hackathon, here are a few basic things you need to
+know before attending: have a working laptop and know how to use it; check out
+the involved projects beforehand; have the necessary version control client;
+and bring backup equipment (an extra LAN cable, additional power strips, etc.)
+because someone will forget.
+
+=head2 Conventions
+
+Perl has two major annual conventions: The Perl Conference (now part of OSCON),
+put on by O'Reilly, and Yet Another Perl Conference or YAPC (pronounced
+yap-see), which is localized into several regional YAPCs (North America,
+Europe, Asia) in a stunning grassroots display by the Perl community. For more
+information about either conference, check out their respective web pages:
+OSCON L<http://conferences.oreillynet.com/>; YAPC L<http://www.yapc.org>.
+
+A relatively new conference franchise with a large Perl portion is the
+Open Source Developers Conference or OSDC. First held in Australia it has
+recently also spread to Israel and France. More information can be found at:
+L<http://www.osdc.com.au/> for Australia, L<http://www.osdc.org.il>
+for Israel, and L<http://www.osdc.fr/> for France.
+
+=head2 Calendar of Perl Events
+
+The Perl Review, L<http://www.theperlreview.com> maintains a website
+and Google calendar
+(L<http://www.theperlreview.com/community_calendar>) for tracking
+workshops, hackathons, Perl Mongers meetings, and other events. Views
+of this calendar are at L<http://www.perl.org/events.html> and
+L<http://www.yapc.org>.
+
+Not every event or Perl Mongers group is on that calendar, so don't lose
+heart if you don't see yours posted. To have your event or group listed,
+contact brian d foy (brian@theperlreview.com).
+
+=head1 AUTHOR
+
+Edgar "Trizor" Bering <trizor@gmail.com>
+
+=cut
diff --git a/lib/5.24.1/pod/perlcygwin.pod b/lib/5.24.1/pod/perlcygwin.pod
new file mode 100644
index 00000000..90fb14ba
--- /dev/null
+++ b/lib/5.24.1/pod/perlcygwin.pod
@@ -0,0 +1,781 @@
+If you read this file _as_is_, just ignore the funny characters you
+see. It is written in the POD format (see F<pod/perlpod.pod>) which is
+specially designed to be readable as is.
+
+=head1 NAME
+
+perlcygwin - Perl for Cygwin
+
+=head1 SYNOPSIS
+
+This document will help you configure, make, test and install Perl
+on Cygwin.  This document also describes features of Cygwin that will
+affect how Perl behaves at runtime.
+
+B<NOTE:> There are pre-built Perl packages available for Cygwin and a
+version of Perl is provided in the normal Cygwin install.  If you do
+not need to customize the configuration, consider using one of those
+packages.
+
+
+=head1 PREREQUISITES FOR COMPILING PERL ON CYGWIN
+
+=head2 Cygwin = GNU+Cygnus+Windows (Don't leave UNIX without it)
+
+The Cygwin tools are ports of the popular GNU development tools for Win32
+platforms.  They run thanks to the Cygwin library which provides the UNIX
+system calls and environment these programs expect.  More information
+about this project can be found at:
+
+L<http://www.cygwin.com/>
+
+A recent net or commercial release of Cygwin is required.
+
+At the time this document was last updated, Cygwin 1.7.16 was current.
+
+
+=head2 Cygwin Configuration
+
+While building Perl some changes may be necessary to your Cygwin setup so
+that Perl builds cleanly.  These changes are B<not> required for normal
+Perl usage.
+
+B<NOTE:> The binaries that are built will run on all Win32 versions.
+They do not depend on your host system (WinXP/Win2K/Win7) or your
+Cygwin configuration (binary/text mounts, cvgserver).
+The only dependencies come from hard-coded pathnames like F</usr/local>.
+However, your host system and Cygwin configuration will affect Perl's
+runtime behavior (see L</"TEST">).
+
+=over 4
+
+=item * C<PATH>
+
+Set the C<PATH> environment variable so that Configure finds the Cygwin
+versions of programs. Any not-needed Windows directories should be removed or
+moved to the end of your C<PATH>.
+
+=item * I<nroff>
+
+If you do not have I<nroff> (which is part of the I<groff> package),
+Configure will B<not> prompt you to install I<man> pages.
+
+=back
+
+=head1 CONFIGURE PERL ON CYGWIN
+
+The default options gathered by Configure with the assistance of
+F<hints/cygwin.sh> will build a Perl that supports dynamic loading
+(which requires a shared F<cygperl5_16.dll>).
+
+This will run Configure and keep a record:
+
+  ./Configure 2>&1 | tee log.configure
+
+If you are willing to accept all the defaults run Configure with B<-de>.
+However, several useful customizations are available.
+
+=head2 Stripping Perl Binaries on Cygwin
+
+It is possible to strip the EXEs and DLLs created by the build process.
+The resulting binaries will be significantly smaller.  If you want the
+binaries to be stripped, you can either add a B<-s> option when Configure
+prompts you,
+
+  Any additional ld flags (NOT including libraries)? [none] -s
+  Any special flags to pass to g++ to create a dynamically loaded
+  library?
+  [none] -s
+  Any special flags to pass to gcc to use dynamic linking? [none] -s
+
+or you can edit F<hints/cygwin.sh> and uncomment the relevant variables
+near the end of the file.
+
+=head2 Optional Libraries for Perl on Cygwin
+
+Several Perl functions and modules depend on the existence of
+some optional libraries.  Configure will find them if they are
+installed in one of the directories listed as being used for library
+searches.  Pre-built packages for most of these are available from
+the Cygwin installer.
+
+=over 4
+
+=item * C<-lcrypt>
+
+The crypt package distributed with Cygwin is a Linux compatible 56-bit
+DES crypt port by Corinna Vinschen.
+
+Alternatively, the crypt libraries in GNU libc have been ported to Cygwin.
+
+As of libcrypt 1.3 (March 2016), you will need to install the
+libcrypt-devel package for Configure to detect crypt().
+
+=item * C<-lgdbm_compat> (C<use GDBM_File>)
+
+GDBM is available for Cygwin.
+
+NOTE: The GDBM library only works on NTFS partitions.
+
+=item * C<-ldb> (C<use DB_File>)
+
+BerkeleyDB is available for Cygwin.
+
+NOTE: The BerkeleyDB library only completely works on NTFS partitions.
+
+=item * C<cygserver> (C<use IPC::SysV>)
+
+A port of SysV IPC is available for Cygwin.
+
+NOTE: This has B<not> been extensively tested.  In particular,
+C<d_semctl_semun> is undefined because it fails a Configure test
+and on Win9x the I<shm*()> functions seem to hang.  It also creates
+a compile time dependency because F<perl.h> includes F<<sys/ipc.h>>
+and F<<sys/sem.h>> (which will be required in the future when compiling
+CPAN modules). CURRENTLY NOT SUPPORTED!
+
+=item * C<-lutil>
+
+Included with the standard Cygwin netrelease is the inetutils package
+which includes libutil.a.
+
+=back
+
+=head2 Configure-time Options for Perl on Cygwin
+
+The F<INSTALL> document describes several Configure-time options.  Some of
+these will work with Cygwin, others are not yet possible.  Also, some of
+these are experimental.  You can either select an option when Configure
+prompts you or you can define (undefine) symbols on the command line.
+
+=over 4
+
+=item * C<-Uusedl>
+
+Undefining this symbol forces Perl to be compiled statically.
+
+=item * C<-Dusemymalloc>
+
+By default Perl does not use the C<malloc()> included with the Perl source,
+because it was slower and not entirely thread-safe.  If you want to force
+Perl to build with the old -Dusemymalloc define this.
+
+=item * C<-Uuseperlio>
+
+Undefining this symbol disables the PerlIO abstraction.  PerlIO is now the
+default; it is not recommended to disable PerlIO.
+
+=item * C<-Dusemultiplicity>
+
+Multiplicity is required when embedding Perl in a C program and using
+more than one interpreter instance.  This is only required when you build
+a not-threaded perl with C<-Uuseithreads>.
+
+=item * C<-Uuse64bitint>
+
+By default Perl uses 64 bit integers.  If you want to use smaller 32 bit
+integers, define this symbol.
+
+=item * C<-Duselongdouble>
+
+I<gcc> supports long doubles (12 bytes).  However, several additional
+long double math functions are necessary to use them within Perl
+(I<{atan2, cos, exp, floor, fmod, frexp, isnan, log, modf, pow, sin, sqrt}l,
+strtold>).
+These are B<not> yet available with newlib, the Cygwin libc.
+
+=item * C<-Uuseithreads>
+
+Define this symbol if you want not-threaded faster perl.
+
+=item * C<-Duselargefiles>
+
+Cygwin uses 64-bit integers for internal size and position calculations,
+this will be correctly detected and defined by Configure.
+
+=item * C<-Dmksymlinks>
+
+Use this to build perl outside of the source tree.  Details can be
+found in the F<INSTALL> document.  This is the recommended way to
+build perl from sources.
+
+=back
+
+=head2 Suspicious Warnings on Cygwin
+
+You may see some messages during Configure that seem suspicious.
+
+=over 4
+
+=item * Win9x and C<d_eofnblk>
+
+Win9x does not correctly report C<EOF> with a non-blocking read on a
+closed pipe.  You will see the following messages:
+
+ But it also returns -1 to signal EOF, so be careful!
+ WARNING: you can't distinguish between EOF and no data!
+
+ *** WHOA THERE!!! ***
+     The recommended value for $d_eofnblk on this machine was
+     "define"!
+     Keep the recommended value? [y]
+
+At least for consistency with WinNT, you should keep the recommended
+value.
+
+=item * Compiler/Preprocessor defines
+
+The following error occurs because of the Cygwin C<#define> of
+C<_LONG_DOUBLE>:
+
+  Guessing which symbols your C compiler and preprocessor define...
+  try.c:<line#>: missing binary operator
+
+This failure does not seem to cause any problems.  With older gcc
+versions, "parse error" is reported instead of "missing binary
+operator".
+
+=back
+
+=head1 MAKE ON CYGWIN
+
+Simply run I<make> and wait:
+
+  make 2>&1 | tee log.make
+
+=head1 TEST ON CYGWIN
+
+There are two steps to running the test suite:
+
+  make test 2>&1 | tee log.make-test
+
+  cd t; ./perl harness 2>&1 | tee ../log.harness
+
+The same tests are run both times, but more information is provided when
+running as C<./perl harness>.
+
+Test results vary depending on your host system and your Cygwin
+configuration.  If a test can pass in some Cygwin setup, it is always
+attempted and explainable test failures are documented.  It is possible
+for Perl to pass all the tests, but it is more likely that some tests
+will fail for one of the reasons listed below.
+
+=head2 File Permissions on Cygwin
+
+UNIX file permissions are based on sets of mode bits for
+{read,write,execute} for each {user,group,other}.  By default Cygwin
+only tracks the Win32 read-only attribute represented as the UNIX file
+user write bit (files are always readable, files are executable if they
+have a F<.{com,bat,exe}> extension or begin with C<#!>, directories are
+always readable and executable).  On WinNT with the I<ntea> C<CYGWIN>
+setting, the additional mode bits are stored as extended file attributes.
+On WinNT with the default I<ntsec> C<CYGWIN> setting, permissions use the
+standard WinNT security descriptors and access control lists. Without one of
+these options, these tests will fail (listing not updated yet):
+
+  Failed Test           List of failed
+  ------------------------------------
+  io/fs.t               5, 7, 9-10
+  lib/anydbm.t          2
+  lib/db-btree.t        20
+  lib/db-hash.t         16
+  lib/db-recno.t        18
+  lib/gdbm.t            2
+  lib/ndbm.t            2
+  lib/odbm.t            2
+  lib/sdbm.t            2
+  op/stat.t             9, 20 (.tmp not an executable extension)
+
+=head2 NDBM_File and ODBM_File do not work on FAT filesystems
+
+Do not use NDBM_File or ODBM_File on FAT filesystem.  They can be
+built on a FAT filesystem, but many tests will fail:
+
+ ../ext/NDBM_File/ndbm.t       13  3328    71   59  83.10%  1-2 4 16-71
+ ../ext/ODBM_File/odbm.t      255 65280    ??   ??       %  ??
+ ../lib/AnyDBM_File.t           2   512    12    2  16.67%  1 4
+ ../lib/Memoize/t/errors.t      0   139    11    5  45.45%  7-11
+ ../lib/Memoize/t/tie_ndbm.t   13  3328     4    4 100.00%  1-4
+ run/fresh_perl.t                          97    1   1.03%  91
+
+If you intend to run only on FAT (or if using AnyDBM_File on FAT),
+run Configure with the -Ui_ndbm and -Ui_dbm options to prevent
+NDBM_File and ODBM_File being built.
+
+With NTFS (and no CYGWIN=nontsec), there should be no problems even if
+perl was built on FAT.
+
+=head2 C<fork()> failures in io_* tests
+
+A C<fork()> failure may result in the following tests failing:
+
+  ext/IO/lib/IO/t/io_multihomed.t
+  ext/IO/lib/IO/t/io_sock.t
+  ext/IO/lib/IO/t/io_unix.t
+
+See comment on fork in L</Miscellaneous> below.
+
+=head1 Specific features of the Cygwin port
+
+=head2 Script Portability on Cygwin
+
+Cygwin does an outstanding job of providing UNIX-like semantics on top of
+Win32 systems.  However, in addition to the items noted above, there are
+some differences that you should know about.  This is a very brief guide
+to portability, more information can be found in the Cygwin documentation.
+
+=over 4
+
+=item * Pathnames
+
+Cygwin pathnames are separated by forward (F</>) slashes, Universal
+Naming Codes (F<//UNC>) are also supported Since cygwin-1.7 non-POSIX
+pathnames are discouraged.  Names may contain all printable
+characters.
+
+File names are case insensitive, but case preserving.  A pathname that
+contains a backslash or drive letter is a Win32 pathname, and not
+subject to the translations applied to POSIX style pathnames, but
+cygwin will warn you, so better convert them to POSIX.
+
+For conversion we have C<Cygwin::win_to_posix_path()> and
+C<Cygwin::posix_to_win_path()>.
+
+Since cygwin-1.7 pathnames are UTF-8 encoded.
+
+=item * Text/Binary
+
+Since cygwin-1.7 textmounts are deprecated and strongly discouraged.
+
+When a file is opened it is in either text or binary mode.  In text mode
+a file is subject to CR/LF/Ctrl-Z translations.  With Cygwin, the default
+mode for an C<open()> is determined by the mode of the mount that underlies
+the file. See L</Cygwin::is_binmount>(). Perl provides a C<binmode()> function
+to set binary mode on files that otherwise would be treated as text.
+C<sysopen()> with the C<O_TEXT> flag sets text mode on files that otherwise
+would be treated as binary:
+
+    sysopen(FOO, "bar", O_WRONLY|O_CREAT|O_TEXT)
+
+C<lseek()>, C<tell()> and C<sysseek()> only work with files opened in binary
+mode.
+
+The text/binary issue is covered at length in the Cygwin documentation.
+
+=item * PerlIO
+
+PerlIO overrides the default Cygwin Text/Binary behaviour.  A file will
+always be treated as binary, regardless of the mode of the mount it lives
+on, just like it is in UNIX.  So CR/LF translation needs to be requested in
+either the C<open()> call like this:
+
+  open(FH, ">:crlf", "out.txt");
+
+which will do conversion from LF to CR/LF on the output, or in the
+environment settings (add this to your .bashrc):
+
+  export PERLIO=crlf
+
+which will pull in the crlf PerlIO layer which does LF -> CRLF conversion
+on every output generated by perl.
+
+=item * F<.exe>
+
+The Cygwin C<stat()>, C<lstat()> and C<readlink()> functions make the F<.exe>
+extension transparent by looking for F<foo.exe> when you ask for F<foo>
+(unless a F<foo> also exists).  Cygwin does not require a F<.exe>
+extension, but I<gcc> adds it automatically when building a program.
+However, when accessing an executable as a normal file (e.g., I<cp>
+in a makefile) the F<.exe> is not transparent.  The I<install> program
+included with Cygwin automatically appends a F<.exe> when necessary.
+
+=item * Cygwin vs. Windows process ids
+
+Cygwin processes have their own pid, which is different from the
+underlying windows pid.  Most posix compliant Proc functions expect
+the cygwin pid, but several Win32::Process functions expect the
+winpid. E.g. C<$$> is the cygwin pid of F</usr/bin/perl>, which is not
+the winpid.  Use C<Cygwin::pid_to_winpid()> and C<Cygwin::winpid_to_pid()>
+to translate between them.
+
+=item * Cygwin vs. Windows errors
+
+Under Cygwin, $^E is the same as $!.  When using L<Win32 API Functions|Win32>,
+use C<Win32::GetLastError()> to get the last Windows error.
+
+=item * rebase errors on fork or system
+
+Using C<fork()> or C<system()> out to another perl after loading multiple dlls
+may result on a DLL baseaddress conflict. The internal cygwin error
+looks like like the following:
+
+ 0 [main] perl 8916 child_info_fork::abort: data segment start:
+ parent (0xC1A000) != child(0xA6A000)
+
+or:
+
+ 183 [main] perl 3588 C:\cygwin\bin\perl.exe: *** fatal error -
+ unable to remap C:\cygwin\bin\cygsvn_subr-1-0.dll to same address
+ as parent(0x6FB30000) != 0x6FE60000 46 [main] perl 3488 fork: child
+ 3588 - died waiting for dll loading, errno11
+
+See L<http://cygwin.com/faq/faq-nochunks.html#faq.using.fixing-fork-failures>
+It helps if not too many DLLs are loaded in memory so the available address space is larger,
+e.g. stopping the MS Internet Explorer might help.
+
+Use the perlrebase or rebase utilities to resolve the conflicting dll addresses.
+The rebase package is included in the Cygwin setup. Use F<setup.exe>
+from L<http://www.cygwin.com/setup.exe> to install it.
+
+1. kill all perl processes and run C<perlrebase> or
+
+2. kill all cygwin processes and services, start dash from cmd.exe and run C<rebaseall>.
+
+=item * C<chown()>
+
+On WinNT C<chown()> can change a file's user and group IDs.  On Win9x C<chown()>
+is a no-op, although this is appropriate since there is no security model.
+
+=item * Miscellaneous
+
+File locking using the C<F_GETLK> command to C<fcntl()> is a stub that
+returns C<ENOSYS>.
+
+Win9x can not C<rename()> an open file (although WinNT can).
+
+The Cygwin C<chroot()> implementation has holes (it can not restrict file
+access by native Win32 programs).
+
+Inplace editing C<perl -i> of files doesn't work without doing a backup
+of the file being edited C<perl -i.bak> because of windowish restrictions,
+therefore Perl adds the suffix C<.bak> automatically if you use C<perl -i>
+without specifying a backup extension.
+
+=back
+
+=head2 Prebuilt methods:
+
+=over 4
+
+=item C<Cwd::cwd>
+
+Returns the current working directory.
+
+=item C<Cygwin::pid_to_winpid>
+
+Translates a cygwin pid to the corresponding Windows pid (which may or
+may not be the same).
+
+=item C<Cygwin::winpid_to_pid>
+
+Translates a Windows pid to the corresponding cygwin pid (if any).
+
+=item C<Cygwin::win_to_posix_path>
+
+Translates a Windows path to the corresponding cygwin path respecting
+the current mount points. With a second non-null argument returns an
+absolute path. Double-byte characters will not be translated.
+
+=item C<Cygwin::posix_to_win_path>
+
+Translates a cygwin path to the corresponding cygwin path respecting
+the current mount points. With a second non-null argument returns an
+absolute path. Double-byte characters will not be translated.
+
+=item C<Cygwin::mount_table()>
+
+Returns an array of [mnt_dir, mnt_fsname, mnt_type, mnt_opts].
+
+  perl -e 'for $i (Cygwin::mount_table) {print join(" ",@$i),"\n";}'
+  /bin c:\cygwin\bin system binmode,cygexec
+  /usr/bin c:\cygwin\bin system binmode
+  /usr/lib c:\cygwin\lib system binmode
+  / c:\cygwin system binmode
+  /cygdrive/c c: system binmode,noumount
+  /cygdrive/d d: system binmode,noumount
+  /cygdrive/e e: system binmode,noumount
+
+=item C<Cygwin::mount_flags>
+
+Returns the mount type and flags for a specified mount point.
+A comma-separated string of mntent->mnt_type (always
+"system" or "user"), then the mntent->mnt_opts, where
+the first is always "binmode" or "textmode".
+
+  system|user,binmode|textmode,exec,cygexec,cygdrive,mixed,
+  notexec,managed,nosuid,devfs,proc,noumount
+
+If the argument is "/cygdrive", then just the volume mount settings,
+and the cygdrive mount prefix are returned.
+
+User mounts override system mounts.
+
+  $ perl -e 'print Cygwin::mount_flags "/usr/bin"'
+  system,binmode,cygexec
+  $ perl -e 'print Cygwin::mount_flags "/cygdrive"'
+  binmode,cygdrive,/cygdrive
+
+=item C<Cygwin::is_binmount>
+
+Returns true if the given cygwin path is binary mounted, false if the
+path is mounted in textmode.
+
+=item C<Cygwin::sync_winenv>
+
+Cygwin does not initialize all original Win32 environment variables.
+See the bottom of this page L<http://cygwin.com/cygwin-ug-net/setup-env.html>
+for "Restricted Win32 environment".
+
+Certain Win32 programs called from cygwin programs might need some environment
+variable, such as e.g. ADODB needs %COMMONPROGRAMFILES%.
+Call Cygwin::sync_winenv() to copy all Win32 environment variables to your
+process and note that cygwin will warn on every encounter of non-POSIX paths.
+
+=back
+
+=head1 INSTALL PERL ON CYGWIN
+
+This will install Perl, including I<man> pages.
+
+  make install 2>&1 | tee log.make-install
+
+NOTE: If C<STDERR> is redirected C<make install> will B<not> prompt
+you to install I<perl> into F</usr/bin>.
+
+You may need to be I<Administrator> to run C<make install>.  If you
+are not, you must have write access to the directories in question.
+
+Information on installing the Perl documentation in HTML format can be
+found in the F<INSTALL> document.
+
+=head1 MANIFEST ON CYGWIN
+
+These are the files in the Perl release that contain references to Cygwin.
+These very brief notes attempt to explain the reason for all conditional
+code.  Hopefully, keeping this up to date will allow the Cygwin port to
+be kept as clean as possible.
+
+=over 4
+
+=item Documentation
+
+ INSTALL README.cygwin README.win32 MANIFEST
+ pod/perl.pod pod/perlport.pod pod/perlfaq3.pod
+ pod/perldelta.pod pod/perl5004delta.pod pod/perl56delta.pod
+ pod/perl561delta.pod pod/perl570delta.pod pod/perl572delta.pod
+ pod/perl573delta.pod pod/perl58delta.pod pod/perl581delta.pod
+ pod/perl590delta.pod pod/perlhist.pod pod/perlmodlib.pod
+ pod/perltoc.pod Porting/Glossary pod/perlgit.pod
+ Porting/checkAUTHORS.pl
+ dist/Cwd/Changes ext/Compress-Raw-Zlib/Changes
+ dist/Time-HiRes/Changes
+ ext/Compress-Raw-Zlib/README ext/Compress-Zlib/Changes
+ ext/DB_File/Changes ext/Encode/Changes ext/Sys-Syslog/Changes
+ ext/Win32API-File/Changes
+ lib/ExtUtils/CBuilder/Changes lib/ExtUtils/Changes
+ lib/ExtUtils/NOTES lib/ExtUtils/PATCHING lib/ExtUtils/README
+ lib/Net/Ping/Changes lib/Test/Harness/Changes
+ lib/Term/ANSIColor/ChangeLog lib/Term/ANSIColor/README
+ README.symbian symbian/TODO
+
+=item Build, Configure, Make, Install
+
+ cygwin/Makefile.SHs
+ ext/IPC/SysV/hints/cygwin.pl
+ ext/NDBM_File/hints/cygwin.pl
+ ext/ODBM_File/hints/cygwin.pl
+ hints/cygwin.sh
+ Configure             - help finding hints from uname,
+                         shared libperl required for dynamic loading
+ Makefile.SH Cross/Makefile-cross-SH
+                       - linklibperl
+ Porting/patchls       - cygwin in port list
+ installman            - man pages with :: translated to .
+ installperl           - install dll, install to 'pods'
+ makedepend.SH         - uwinfix
+ regen_lib.pl          - file permissions
+
+ NetWare/Makefile
+ plan9/mkfile
+ symbian/sanity.pl symbian/sisify.pl
+ hints/uwin.sh
+ vms/descrip_mms.template
+ win32/Makefile win32/makefile.mk
+
+=item Tests
+
+ t/io/fs.t             - no file mode checks if not ntsec
+                         skip rename() check when not
+                         check_case:relaxed
+ t/io/tell.t           - binmode
+ t/lib/cygwin.t        - builtin cygwin function tests
+ t/op/groups.t         - basegroup has ID = 0
+ t/op/magic.t          - $^X/symlink WORKAROUND, s/.exe//
+ t/op/stat.t           - no /dev, skip Win32 ftCreationTime quirk
+                         (cache manager sometimes preserves ctime of
+                         file previously created and deleted), no -u
+                         (setuid)
+ t/op/taint.t          - can't use empty path under Cygwin Perl
+ t/op/time.t           - no tzset()
+
+=item Compiled Perl Source
+
+ EXTERN.h              - __declspec(dllimport)
+ XSUB.h                - __declspec(dllexport)
+ cygwin/cygwin.c       - os_extras (getcwd, spawn, and several
+                         Cygwin:: functions)
+ perl.c                - os_extras, -i.bak
+ perl.h                - binmode
+ doio.c                - win9x can not rename a file when it is open
+ pp_sys.c              - do not define h_errno, init
+                         _pwent_struct.pw_comment
+ util.c                - use setenv
+ util.h                - PERL_FILE_IS_ABSOLUTE macro
+ pp.c                  - Comment about Posix vs IEEE math under
+                         Cygwin
+ perlio.c              - CR/LF mode
+ perliol.c             - Comment about EXTCONST under Cygwin
+
+=item Compiled Module Source
+
+ ext/Compress-Raw-Zlib/Makefile.PL
+                       - Can't install via CPAN shell under Cygwin
+ ext/Compress-Raw-Zlib/zlib-src/zutil.h
+                       - Cygwin is Unix-like and has vsnprintf
+ ext/Errno/Errno_pm.PL - Special handling for Win32 Perl under
+                         Cygwin
+ ext/POSIX/POSIX.xs    - tzname defined externally
+ ext/SDBM_File/sdbm/pair.c
+                       - EXTCONST needs to be redefined from
+                         EXTERN.h
+ ext/SDBM_File/sdbm/sdbm.c
+                       - binary open
+ ext/Sys/Syslog/Syslog.xs
+                       - Cygwin has syslog.h
+ ext/Sys/Syslog/win32/compile.pl
+                       - Convert paths to Windows paths
+ ext/Time-HiRes/HiRes.xs
+                       - Various timers not available
+ ext/Time-HiRes/Makefile.PL
+                       - Find w32api/windows.h
+ ext/Win32/Makefile.PL - Use various libraries under Cygwin
+ ext/Win32/Win32.xs    - Child dir and child env under Cygwin
+ ext/Win32API-File/File.xs
+                       - _open_osfhandle not implemented under
+                         Cygwin
+ ext/Win32CORE/Win32CORE.c
+                       - __declspec(dllexport)
+
+=item Perl Modules/Scripts
+
+ ext/B/t/OptreeCheck.pm - Comment about stderr/stdout order under
+                          Cygwin
+ ext/Digest-SHA/bin/shasum
+                       - Use binary mode under Cygwin
+ ext/Sys/Syslog/win32/Win32.pm
+                       - Convert paths to Windows paths
+ ext/Time-HiRes/HiRes.pm
+                       - Comment about various timers not available
+ ext/Win32API-File/File.pm
+                       - _open_osfhandle not implemented under
+                         Cygwin
+ ext/Win32CORE/Win32CORE.pm
+                       - History of Win32CORE under Cygwin
+ lib/Cwd.pm            - hook to internal Cwd::cwd
+ lib/ExtUtils/CBuilder/Platform/cygwin.pm
+                       - use gcc for ld, and link to libperl.dll.a
+ lib/ExtUtils/CBuilder.pm
+                       - Cygwin is Unix-like
+ lib/ExtUtils/Install.pm - Install and rename issues under Cygwin
+ lib/ExtUtils/MM.pm    - OS classifications
+ lib/ExtUtils/MM_Any.pm - Example for Cygwin
+ lib/ExtUtils/MakeMaker.pm
+                       - require MM_Cygwin.pm
+ lib/ExtUtils/MM_Cygwin.pm
+                       - canonpath, cflags, manifypods, perl_archive
+ lib/File/Fetch.pm     - Comment about quotes using a Cygwin example
+ lib/File/Find.pm      - on remote drives stat() always sets
+                         st_nlink to 1
+ lib/File/Spec/Cygwin.pm - case_tolerant
+ lib/File/Spec/Unix.pm - preserve //unc
+ lib/File/Spec/Win32.pm - References a message on cygwin.com
+ lib/File/Spec.pm      - Pulls in lib/File/Spec/Cygwin.pm
+ lib/File/Temp.pm      - no directory sticky bit
+ lib/Module/CoreList.pm - List of all module files and versions
+ lib/Net/Domain.pm     - No domainname command under Cygwin
+ lib/Net/Netrc.pm      - Bypass using stat() under Cygwin
+ lib/Net/Ping.pm       - ECONREFUSED is EAGAIN under Cygwin
+ lib/Pod/Find.pm       - Set 'pods' dir
+ lib/Pod/Perldoc/ToMan.pm - '-c' switch for pod2man
+ lib/Pod/Perldoc.pm    - Use 'less' pager, and use .exe extension
+ lib/Term/ANSIColor.pm - Cygwin terminal info
+ lib/perl5db.pl        - use stdin not /dev/tty
+ utils/perlbug.PL      - Add CYGWIN environment variable to report
+
+=item Perl Module Tests
+
+ dist/Cwd/t/cwd.t
+ ext/Compress-Zlib/t/14gzopen.t
+ ext/DB_File/t/db-btree.t
+ ext/DB_File/t/db-hash.t
+ ext/DB_File/t/db-recno.t
+ ext/DynaLoader/t/DynaLoader.t
+ ext/File-Glob/t/basic.t
+ ext/GDBM_File/t/gdbm.t
+ ext/POSIX/t/sysconf.t
+ ext/POSIX/t/time.t
+ ext/SDBM_File/t/sdbm.t
+ ext/Sys/Syslog/t/syslog.t
+ ext/Time-HiRes/t/HiRes.t
+ ext/Win32/t/Unicode.t
+ ext/Win32API-File/t/file.t
+ ext/Win32CORE/t/win32core.t
+ lib/AnyDBM_File.t
+ lib/Archive/Extract/t/01_Archive-Extract.t
+ lib/Archive/Tar/t/02_methods.t
+ lib/ExtUtils/t/Embed.t
+ lib/ExtUtils/t/eu_command.t
+ lib/ExtUtils/t/MM_Cygwin.t
+ lib/ExtUtils/t/MM_Unix.t
+ lib/File/Compare.t
+ lib/File/Copy.t
+ lib/File/Find/t/find.t
+ lib/File/Path.t
+ lib/File/Spec/t/crossplatform.t
+ lib/File/Spec/t/Spec.t
+ lib/Net/hostent.t
+ lib/Net/Ping/t/110_icmp_inst.t
+ lib/Net/Ping/t/500_ping_icmp.t
+ lib/Net/t/netrc.t
+ lib/Pod/Simple/t/perlcyg.pod
+ lib/Pod/Simple/t/perlcygo.txt
+ lib/Pod/Simple/t/perlfaq.pod
+ lib/Pod/Simple/t/perlfaqo.txt
+ lib/User/grent.t
+ lib/User/pwent.t
+
+=back
+
+=head1 BUGS ON CYGWIN
+
+Support for swapping real and effective user and group IDs is incomplete.
+On WinNT Cygwin provides C<setuid()>, C<seteuid()>, C<setgid()> and C<setegid()>.
+However, additional Cygwin calls for manipulating WinNT access tokens
+and security contexts are required.
+
+=head1 AUTHORS
+
+Charles Wilson <cwilson@ece.gatech.edu>,
+Eric Fifer <egf7@columbia.edu>,
+alexander smishlajev <als@turnhere.com>,
+Steven Morlock <newspost@morlock.net>,
+Sebastien Barre <Sebastien.Barre@utc.fr>,
+Teun Burgers <burgers@ecn.nl>,
+Gerrit P. Haase <gp@familiehaase.de>,
+Reini Urban <rurban@cpan.org>,
+Jan Dubois <jand@activestate.com>,
+Jerry D. Hedden <jdhedden@cpan.org>.
+
+=head1 HISTORY
+
+Last updated: 2012-02-08
diff --git a/lib/5.24.1/pod/perldata.pod b/lib/5.24.1/pod/perldata.pod
new file mode 100644
index 00000000..a285eb7d
--- /dev/null
+++ b/lib/5.24.1/pod/perldata.pod
@@ -0,0 +1,1121 @@
+=head1 NAME
+
+perldata - Perl data types
+
+=head1 DESCRIPTION
+
+=head2 Variable names
+X<variable, name> X<variable name> X<data type> X<type>
+
+Perl has three built-in data types: scalars, arrays of scalars, and
+associative arrays of scalars, known as "hashes".  A scalar is a 
+single string (of any size, limited only by the available memory),
+number, or a reference to something (which will be discussed
+in L<perlref>).  Normal arrays are ordered lists of scalars indexed
+by number, starting with 0.  Hashes are unordered collections of scalar 
+values indexed by their associated string key.
+
+Values are usually referred to by name, or through a named reference.
+The first character of the name tells you to what sort of data
+structure it refers.  The rest of the name tells you the particular
+value to which it refers.  Usually this name is a single I<identifier>,
+that is, a string beginning with a letter or underscore, and
+containing letters, underscores, and digits.  In some cases, it may
+be a chain of identifiers, separated by C<::> (or by the slightly
+archaic C<'>); all but the last are interpreted as names of packages,
+to locate the namespace in which to look up the final identifier
+(see L<perlmod/Packages> for details).  For a more in-depth discussion
+on identifiers, see L<Identifier parsing>.  It's possible to
+substitute for a simple identifier, an expression that produces a reference
+to the value at runtime.   This is described in more detail below
+and in L<perlref>.
+X<identifier>
+
+Perl also has its own built-in variables whose names don't follow
+these rules.  They have strange names so they don't accidentally
+collide with one of your normal variables.  Strings that match
+parenthesized parts of a regular expression are saved under names
+containing only digits after the C<$> (see L<perlop> and L<perlre>).
+In addition, several special variables that provide windows into
+the inner working of Perl have names containing punctuation characters.
+These are documented in L<perlvar>.
+X<variable, built-in>
+
+Scalar values are always named with '$', even when referring to a
+scalar that is part of an array or a hash.  The '$' symbol works
+semantically like the English word "the" in that it indicates a
+single value is expected.
+X<scalar>
+
+    $days		# the simple scalar value "days"
+    $days[28]		# the 29th element of array @days
+    $days{'Feb'}	# the 'Feb' value from hash %days
+    $#days		# the last index of array @days
+
+Entire arrays (and slices of arrays and hashes) are denoted by '@',
+which works much as the word "these" or "those" does in English,
+in that it indicates multiple values are expected.
+X<array>
+
+    @days		# ($days[0], $days[1],... $days[n])
+    @days[3,4,5]	# same as ($days[3],$days[4],$days[5])
+    @days{'a','c'}	# same as ($days{'a'},$days{'c'})
+
+Entire hashes are denoted by '%':
+X<hash>
+
+    %days		# (key1, val1, key2, val2 ...)
+
+In addition, subroutines are named with an initial '&', though this
+is optional when unambiguous, just as the word "do" is often redundant
+in English.  Symbol table entries can be named with an initial '*',
+but you don't really care about that yet (if ever :-).
+
+Every variable type has its own namespace, as do several
+non-variable identifiers.  This means that you can, without fear
+of conflict, use the same name for a scalar variable, an array, or
+a hash--or, for that matter, for a filehandle, a directory handle, a
+subroutine name, a format name, or a label.  This means that $foo
+and @foo are two different variables.  It also means that C<$foo[1]>
+is a part of @foo, not a part of $foo.  This may seem a bit weird,
+but that's okay, because it is weird.
+X<namespace>
+
+Because variable references always start with '$', '@', or '%', the
+"reserved" words aren't in fact reserved with respect to variable
+names.  They I<are> reserved with respect to labels and filehandles,
+however, which don't have an initial special character.  You can't
+have a filehandle named "log", for instance.  Hint: you could say
+C<open(LOG,'logfile')> rather than C<open(log,'logfile')>.  Using
+uppercase filehandles also improves readability and protects you
+from conflict with future reserved words.  Case I<is> significant--"FOO",
+"Foo", and "foo" are all different names.  Names that start with a
+letter or underscore may also contain digits and underscores.
+X<identifier, case sensitivity>
+X<case>
+
+It is possible to replace such an alphanumeric name with an expression
+that returns a reference to the appropriate type.  For a description
+of this, see L<perlref>.
+
+Names that start with a digit may contain only more digits.  Names
+that do not start with a letter, underscore, digit or a caret are
+limited to one character, e.g.,  C<$%> or
+C<$$>.  (Most of these one character names have a predefined
+significance to Perl.  For instance, C<$$> is the current process
+id.  And all such names are reserved for Perl's possible use.)
+
+=head2 Identifier parsing
+X<identifiers>
+
+Up until Perl 5.18, the actual rules of what a valid identifier
+was were a bit fuzzy.  However, in general, anything defined here should
+work on previous versions of Perl, while the opposite -- edge cases
+that work in previous versions, but aren't defined here -- probably
+won't work on newer versions.
+As an important side note, please note that the following only applies
+to bareword identifiers as found in Perl source code, not identifiers
+introduced through symbolic references, which have much fewer
+restrictions.
+If working under the effect of the C<use utf8;> pragma, the following
+rules apply:
+
+    / (?[ ( \p{Word} & \p{XID_Start} ) + [_] ])
+      (?[ ( \p{Word} & \p{XID_Continue} ) ]) *    /x
+
+That is, a "start" character followed by any number of "continue"
+characters.  Perl requires every character in an identifier to also
+match C<\w> (this prevents some problematic cases); and Perl
+additionally accepts identfier names beginning with an underscore.
+
+If not under C<use utf8>, the source is treated as ASCII + 128 extra
+generic characters, and identifiers should match
+
+    / (?aa) (?!\d) \w+ /x
+
+That is, any word character in the ASCII range, as long as the first
+character is not a digit.
+
+There are two package separators in Perl: A double colon (C<::>) and a single
+quote (C<'>).  Normal identifiers can start or end with a double colon, and
+can contain several parts delimited by double colons.
+Single quotes have similar rules, but with the exception that they are not
+legal at the end of an identifier: That is, C<$'foo> and C<$foo'bar> are
+legal, but C<$foo'bar'> is not.
+
+Additionally, if the identifier is preceded by a sigil --
+that is, if the identifier is part of a variable name -- it
+may optionally be enclosed in braces.
+
+While you can mix double colons with singles quotes, the quotes must come
+after the colons: C<$::::'foo> and C<$foo::'bar> are legal, but C<$::'::foo>
+and C<$foo'::bar> are not.
+
+Put together, a grammar to match a basic identifier becomes
+
+ /
+  (?(DEFINE)
+      (?<variable>
+          (?&sigil)
+          (?:
+                  (?&normal_identifier)
+              |   \{ \s* (?&normal_identifier) \s* \}
+          )
+      )
+      (?<normal_identifier>
+          (?: :: )* '?
+           (?&basic_identifier)
+           (?: (?= (?: :: )+ '? | (?: :: )* ' ) (?&normal_identifier) )?
+          (?: :: )*
+      )
+      (?<basic_identifier>
+        # is use utf8 on?
+          (?(?{ (caller(0))[8] & $utf8::hint_bits })
+              (?&Perl_XIDS) (?&Perl_XIDC)*
+            | (?aa) (?!\d) \w+
+          )
+      )
+      (?<sigil> [&*\$\@\%])
+      (?<Perl_XIDS> (?[ ( \p{Word} & \p{XID_Start} ) + [_] ]) )
+      (?<Perl_XIDC> (?[ \p{Word} & \p{XID_Continue} ]) )
+  )
+ /x
+
+Meanwhile, special identifiers don't follow the above rules; For the most
+part, all of the identifiers in this category have a special meaning given
+by Perl.  Because they have special parsing rules, these generally can't be
+fully-qualified.  They come in six forms (but don't use forms 5 and 6):
+
+=over
+
+=item 1.
+
+A sigil, followed solely by digits matching C<\p{POSIX_Digit}>, like
+C<$0>, C<$1>, or C<$10000>.
+
+=item 2.
+
+A sigil followed by a single character matching the C<\p{POSIX_Punct}>
+property, like C<$!> or C<%+>, except the character C<"{"> doesn't work.
+
+=item 3.
+
+A sigil, followed by a caret and any one of the characters
+C<[][A-Z^_?\]>, like C<$^V> or C<$^]>.
+
+=item 4.
+
+Similar to the above, a sigil, followed by bareword text in braces,
+where the first character is a caret.  The next character is any one of
+the characters C<[][A-Z^_?\]>, followed by ASCII word characters.  An
+example is C<${^GLOBAL_PHASE}>.
+
+=item 5.
+
+A sigil, followed by any single character in the range C<[\x80-\xFF]>
+when not under C<S<"use utf8">>.  (Under C<S<"use utf8">>, the normal
+identifier rules given earlier in this section apply.)  Use of
+non-graphic characters (the C1 controls, the NO-BREAK SPACE, and the
+SOFT HYPHEN) is deprecated and will be forbidden in a future Perl
+version.  The use of the other characters is unwise, as these are all
+reserved to have special meaning to Perl, and none of them currently
+do have special meaning, though this could change without notice.
+
+Note that an implication of this form is that there are identifiers only
+legal under C<S<"use utf8">>, and vice-versa, for example the identifier
+C<$E<233>tat> is legal under C<S<"use utf8">>, but is otherwise
+considered to be the single character variable C<$E<233>> followed by
+the bareword C<"tat">, the combination of which is a syntax error.
+
+=item 6.
+
+This is a combination of the previous two forms.  It is valid only when
+not under S<C<"use utf8">> (normal identifier rules apply when under
+S<C<"use utf8">>).  The form is a sigil, followed by text in braces,
+where the first character is any one of the characters in the range
+C<[\x80-\xFF]> followed by ASCII word characters up to the trailing
+brace.
+
+The same caveats as the previous form apply:  The non-graphic characters
+are deprecated, it is unwise to use this form at all, and utf8ness makes
+a big difference.
+
+=back
+
+Prior to Perl v5.24, non-graphical ASCII control characters were also
+allowed in some situations; this had been deprecated since v5.20.
+
+=head2 Context
+X<context> X<scalar context> X<list context>
+
+The interpretation of operations and values in Perl sometimes depends
+on the requirements of the context around the operation or value.
+There are two major contexts: list and scalar.  Certain operations
+return list values in contexts wanting a list, and scalar values
+otherwise.  If this is true of an operation it will be mentioned in
+the documentation for that operation.  In other words, Perl overloads
+certain operations based on whether the expected return value is
+singular or plural.  Some words in English work this way, like "fish"
+and "sheep".
+
+In a reciprocal fashion, an operation provides either a scalar or a
+list context to each of its arguments.  For example, if you say
+
+    int( <STDIN> )
+
+the integer operation provides scalar context for the <>
+operator, which responds by reading one line from STDIN and passing it
+back to the integer operation, which will then find the integer value
+of that line and return that.  If, on the other hand, you say
+
+    sort( <STDIN> )
+
+then the sort operation provides list context for <>, which
+will proceed to read every line available up to the end of file, and
+pass that list of lines back to the sort routine, which will then
+sort those lines and return them as a list to whatever the context
+of the sort was.
+
+Assignment is a little bit special in that it uses its left argument
+to determine the context for the right argument.  Assignment to a
+scalar evaluates the right-hand side in scalar context, while
+assignment to an array or hash evaluates the righthand side in list
+context.  Assignment to a list (or slice, which is just a list
+anyway) also evaluates the right-hand side in list context.
+
+When you use the C<use warnings> pragma or Perl's B<-w> command-line 
+option, you may see warnings
+about useless uses of constants or functions in "void context".
+Void context just means the value has been discarded, such as a
+statement containing only C<"fred";> or C<getpwuid(0);>.  It still
+counts as scalar context for functions that care whether or not
+they're being called in list context.
+
+User-defined subroutines may choose to care whether they are being
+called in a void, scalar, or list context.  Most subroutines do not
+need to bother, though.  That's because both scalars and lists are
+automatically interpolated into lists.  See L<perlfunc/wantarray>
+for how you would dynamically discern your function's calling
+context.
+
+=head2 Scalar values
+X<scalar> X<number> X<string> X<reference>
+
+All data in Perl is a scalar, an array of scalars, or a hash of
+scalars.  A scalar may contain one single value in any of three
+different flavors: a number, a string, or a reference.  In general,
+conversion from one form to another is transparent.  Although a
+scalar may not directly hold multiple values, it may contain a
+reference to an array or hash which in turn contains multiple values.
+
+Scalars aren't necessarily one thing or another.  There's no place
+to declare a scalar variable to be of type "string", type "number",
+type "reference", or anything else.  Because of the automatic
+conversion of scalars, operations that return scalars don't need
+to care (and in fact, cannot care) whether their caller is looking
+for a string, a number, or a reference.  Perl is a contextually
+polymorphic language whose scalars can be strings, numbers, or
+references (which includes objects).  Although strings and numbers
+are considered pretty much the same thing for nearly all purposes,
+references are strongly-typed, uncastable pointers with builtin
+reference-counting and destructor invocation.
+
+A scalar value is interpreted as FALSE in the Boolean sense
+if it is undefined, the null string or the number 0 (or its
+string equivalent, "0"), and TRUE if it is anything else.  The
+Boolean context is just a special kind of scalar context where no 
+conversion to a string or a number is ever performed.
+X<boolean> X<bool> X<true> X<false> X<truth>
+
+There are actually two varieties of null strings (sometimes referred
+to as "empty" strings), a defined one and an undefined one.  The
+defined version is just a string of length zero, such as C<"">.
+The undefined version is the value that indicates that there is
+no real value for something, such as when there was an error, or
+at end of file, or when you refer to an uninitialized variable or
+element of an array or hash.  Although in early versions of Perl,
+an undefined scalar could become defined when first used in a
+place expecting a defined value, this no longer happens except for
+rare cases of autovivification as explained in L<perlref>.  You can
+use the defined() operator to determine whether a scalar value is
+defined (this has no meaning on arrays or hashes), and the undef()
+operator to produce an undefined value.
+X<defined> X<undefined> X<undef> X<null> X<string, null>
+
+To find out whether a given string is a valid non-zero number, it's
+sometimes enough to test it against both numeric 0 and also lexical
+"0" (although this will cause noises if warnings are on).  That's 
+because strings that aren't numbers count as 0, just as they do in B<awk>:
+
+    if ($str == 0 && $str ne "0")  {
+	warn "That doesn't look like a number";
+    }
+
+That method may be best because otherwise you won't treat IEEE
+notations like C<NaN> or C<Infinity> properly.  At other times, you
+might prefer to determine whether string data can be used numerically
+by calling the POSIX::strtod() function or by inspecting your string
+with a regular expression (as documented in L<perlre>).
+
+    warn "has nondigits"	if     /\D/;
+    warn "not a natural number" unless /^\d+$/;             # rejects -3
+    warn "not an integer"       unless /^-?\d+$/;           # rejects +3
+    warn "not an integer"       unless /^[+-]?\d+$/;
+    warn "not a decimal number" unless /^-?\d+\.?\d*$/;     # rejects .2
+    warn "not a decimal number" unless /^-?(?:\d+(?:\.\d*)?|\.\d+)$/;
+    warn "not a C float"
+	unless /^([+-]?)(?=\d|\.\d)\d*(\.\d*)?([Ee]([+-]?\d+))?$/;
+
+The length of an array is a scalar value.  You may find the length
+of array @days by evaluating C<$#days>, as in B<csh>.  However, this
+isn't the length of the array; it's the subscript of the last element,
+which is a different value since there is ordinarily a 0th element.
+Assigning to C<$#days> actually changes the length of the array.
+Shortening an array this way destroys intervening values.  Lengthening
+an array that was previously shortened does not recover values
+that were in those elements.
+X<$#> X<array, length>
+
+You can also gain some minuscule measure of efficiency by pre-extending
+an array that is going to get big.  You can also extend an array
+by assigning to an element that is off the end of the array.  You
+can truncate an array down to nothing by assigning the null list
+() to it.  The following are equivalent:
+
+    @whatever = ();
+    $#whatever = -1;
+
+If you evaluate an array in scalar context, it returns the length
+of the array.  (Note that this is not true of lists, which return
+the last value, like the C comma operator, nor of built-in functions,
+which return whatever they feel like returning.)  The following is
+always true:
+X<array, length>
+
+    scalar(@whatever) == $#whatever + 1;
+
+Some programmers choose to use an explicit conversion so as to 
+leave nothing to doubt:
+
+    $element_count = scalar(@whatever);
+
+If you evaluate a hash in scalar context, it returns false if the
+hash is empty.  If there are any key/value pairs, it returns true;
+more precisely, the value returned is a string consisting of the
+number of used buckets and the number of allocated buckets, separated
+by a slash.  This is pretty much useful only to find out whether
+Perl's internal hashing algorithm is performing poorly on your data
+set.  For example, you stick 10,000 things in a hash, but evaluating
+%HASH in scalar context reveals C<"1/16">, which means only one out
+of sixteen buckets has been touched, and presumably contains all
+10,000 of your items.  This isn't supposed to happen.  If a tied hash
+is evaluated in scalar context, the C<SCALAR> method is called (with a
+fallback to C<FIRSTKEY>).
+X<hash, scalar context> X<hash, bucket> X<bucket>
+
+You can preallocate space for a hash by assigning to the keys() function.
+This rounds up the allocated buckets to the next power of two:
+
+    keys(%users) = 1000;		# allocate 1024 buckets
+
+=head2 Scalar value constructors
+X<scalar, literal> X<scalar, constant>
+
+Numeric literals are specified in any of the following floating point or
+integer formats:
+
+ 12345
+ 12345.67
+ .23E-10             # a very small number
+ 3.14_15_92          # a very important number
+ 4_294_967_296       # underscore for legibility
+ 0xff                # hex
+ 0xdead_beef         # more hex
+ 0377                # octal (only numbers, begins with 0)
+ 0b011011            # binary
+ 0x1.999ap-4         # hexadecimal floating point (the 'p' is required)
+
+You are allowed to use underscores (underbars) in numeric literals
+between digits for legibility (but not multiple underscores in a row:
+C<23__500> is not legal; C<23_500> is).
+You could, for example, group binary
+digits by threes (as for a Unix-style mode argument such as 0b110_100_100)
+or by fours (to represent nibbles, as in 0b1010_0110) or in other groups.
+X<number, literal>
+
+String literals are usually delimited by either single or double
+quotes.  They work much like quotes in the standard Unix shells:
+double-quoted string literals are subject to backslash and variable
+substitution; single-quoted strings are not (except for C<\'> and
+C<\\>).  The usual C-style backslash rules apply for making
+characters such as newline, tab, etc., as well as some more exotic
+forms.  See L<perlop/"Quote and Quote-like Operators"> for a list.
+X<string, literal>
+
+Hexadecimal, octal, or binary, representations in string literals
+(e.g. '0xff') are not automatically converted to their integer
+representation.  The hex() and oct() functions make these conversions
+for you.  See L<perlfunc/hex> and L<perlfunc/oct> for more details.
+
+Hexadecimal floating point can start just like a hexadecimal literal,
+and it can be followed by an optional fractional hexadecimal part,
+but it must be followed by C<p>, an optional sign, and a power of two.
+The format is useful for accurately presenting floating point values,
+avoiding conversions to or from decimal floating point, and therefore
+avoiding possible loss in precision.  Notice that while most current
+platforms use the 64-bit IEEE 754 floating point, not all do.  Another
+potential source of (low-order) differences are the floating point
+rounding modes, which can differ between CPUs, operating systems,
+and compilers, and which Perl doesn't control.
+
+You can also embed newlines directly in your strings, i.e., they can end
+on a different line than they begin.  This is nice, but if you forget
+your trailing quote, the error will not be reported until Perl finds
+another line containing the quote character, which may be much further
+on in the script.  Variable substitution inside strings is limited to
+scalar variables, arrays, and array or hash slices.  (In other words,
+names beginning with $ or @, followed by an optional bracketed
+expression as a subscript.)  The following code segment prints out "The
+price is $Z<>100."
+X<interpolation>
+
+    $Price = '$100';	# not interpolated
+    print "The price is $Price.\n";	# interpolated
+
+There is no double interpolation in Perl, so the C<$100> is left as is.
+
+By default floating point numbers substituted inside strings use the
+dot (".")  as the decimal separator.  If C<use locale> is in effect,
+and POSIX::setlocale() has been called, the character used for the
+decimal separator is affected by the LC_NUMERIC locale.
+See L<perllocale> and L<POSIX>.
+
+As in some shells, you can enclose the variable name in braces to
+disambiguate it from following alphanumerics (and underscores).
+You must also do
+this when interpolating a variable into a string to separate the
+variable name from a following double-colon or an apostrophe, since
+these would be otherwise treated as a package separator:
+X<interpolation>
+
+    $who = "Larry";
+    print PASSWD "${who}::0:0:Superuser:/:/bin/perl\n";
+    print "We use ${who}speak when ${who}'s here.\n";
+
+Without the braces, Perl would have looked for a $whospeak, a
+C<$who::0>, and a C<$who's> variable.  The last two would be the
+$0 and the $s variables in the (presumably) non-existent package
+C<who>.
+
+In fact, a simple identifier within such curlies is forced to be
+a string, and likewise within a hash subscript.  Neither need
+quoting.  Our earlier example, C<$days{'Feb'}> can be written as
+C<$days{Feb}> and the quotes will be assumed automatically.  But
+anything more complicated in the subscript will be interpreted as an
+expression.  This means for example that C<$version{2.0}++> is
+equivalent to C<$version{2}++>, not to C<$version{'2.0'}++>.
+
+=head3 Special floating point: infinity (Inf) and not-a-number (NaN)
+
+Floating point values include the special values C<Inf> and C<NaN>,
+for infinity and not-a-number.  The infinity can be also negative.
+
+The infinity is the result of certain math operations that overflow
+the floating point range, like 9**9**9.  The not-a-number is the
+result when the result is undefined or unrepresentable.  Though note
+that you cannot get C<NaN> from some common "undefined" or
+"out-of-range" operations like dividing by zero, or square root of
+a negative number, since Perl generates fatal errors for those.
+
+The infinity and not-a-number have their own special arithmetic rules.
+The general rule is that they are "contagious": C<Inf> plus one is
+C<Inf>, and C<NaN> plus one is C<NaN>.  Where things get interesting
+is when you combine infinities and not-a-numbers: C<Inf> minus C<Inf>
+and C<Inf> divided by C<INf> are C<NaN> (while C<Inf> plus C<Inf> is
+C<Inf> and C<Inf> times C<Inf> is C<Inf>).  C<NaN> is also curious
+in that it does not equal any number, I<including> itself:
+C<NaN> != C<NaN>.
+
+Perl doesn't understand C<Inf> and C<NaN> as numeric literals, but
+you can have them as strings, and Perl will convert them as needed:
+"Inf" + 1.  (You can, however, import them from the POSIX extension;
+C<use POSIX qw(Inf NaN);> and then use them as literals.)
+
+Note that on input (string to number) Perl accepts C<Inf> and C<NaN>
+in many forms.   Case is ignored, and the Win32-specific forms like
+C<1.#INF> are understood, but on output the values are normalized to
+C<Inf> and C<NaN>.
+
+=head3 Version Strings
+X<version string> X<vstring> X<v-string>
+
+A literal of the form C<v1.20.300.4000> is parsed as a string composed
+of characters with the specified ordinals.  This form, known as
+v-strings, provides an alternative, more readable way to construct
+strings, rather than use the somewhat less readable interpolation form
+C<"\x{1}\x{14}\x{12c}\x{fa0}">.  This is useful for representing
+Unicode strings, and for comparing version "numbers" using the string
+comparison operators, C<cmp>, C<gt>, C<lt> etc.  If there are two or
+more dots in the literal, the leading C<v> may be omitted.
+
+    print v9786;              # prints SMILEY, "\x{263a}"
+    print v102.111.111;       # prints "foo"
+    print 102.111.111;        # same
+
+Such literals are accepted by both C<require> and C<use> for
+doing a version check.  Note that using the v-strings for IPv4
+addresses is not portable unless you also use the
+inet_aton()/inet_ntoa() routines of the Socket package.
+
+Note that since Perl 5.8.1 the single-number v-strings (like C<v65>)
+are not v-strings before the C<< => >> operator (which is usually used
+to separate a hash key from a hash value); instead they are interpreted
+as literal strings ('v65').  They were v-strings from Perl 5.6.0 to
+Perl 5.8.0, but that caused more confusion and breakage than good.
+Multi-number v-strings like C<v65.66> and C<65.66.67> continue to
+be v-strings always.
+
+=head3 Special Literals
+X<special literal> X<__END__> X<__DATA__> X<END> X<DATA>
+X<end> X<data> X<^D> X<^Z>
+
+The special literals __FILE__, __LINE__, and __PACKAGE__
+represent the current filename, line number, and package name at that
+point in your program.  __SUB__ gives a reference to the current
+subroutine.  They may be used only as separate tokens; they
+will not be interpolated into strings.  If there is no current package
+(due to an empty C<package;> directive), __PACKAGE__ is the undefined
+value.  (But the empty C<package;> is no longer supported, as of version
+5.10.)  Outside of a subroutine, __SUB__ is the undefined value.  __SUB__
+is only available in 5.16 or higher, and only with a C<use v5.16> or
+C<use feature "current_sub"> declaration.
+X<__FILE__> X<__LINE__> X<__PACKAGE__> X<__SUB__>
+X<line> X<file> X<package>
+
+The two control characters ^D and ^Z, and the tokens __END__ and __DATA__
+may be used to indicate the logical end of the script before the actual
+end of file.  Any following text is ignored.
+
+Text after __DATA__ may be read via the filehandle C<PACKNAME::DATA>,
+where C<PACKNAME> is the package that was current when the __DATA__
+token was encountered.  The filehandle is left open pointing to the
+line after __DATA__.  The program should C<close DATA> when it is done
+reading from it.  (Leaving it open leaks filehandles if the module is
+reloaded for any reason, so it's a safer practice to close it.)  For
+compatibility with older scripts written before __DATA__ was
+introduced, __END__ behaves like __DATA__ in the top level script (but
+not in files loaded with C<require> or C<do>) and leaves the remaining
+contents of the file accessible via C<main::DATA>.
+
+See L<SelfLoader> for more description of __DATA__, and
+an example of its use.  Note that you cannot read from the DATA
+filehandle in a BEGIN block: the BEGIN block is executed as soon
+as it is seen (during compilation), at which point the corresponding
+__DATA__ (or __END__) token has not yet been seen.
+
+=head3 Barewords
+X<bareword>
+
+A word that has no other interpretation in the grammar will
+be treated as if it were a quoted string.  These are known as
+"barewords".  As with filehandles and labels, a bareword that consists
+entirely of lowercase letters risks conflict with future reserved
+words, and if you use the C<use warnings> pragma or the B<-w> switch, 
+Perl will warn you about any such words.  Perl limits barewords (like
+identifiers) to about 250 characters.  Future versions of Perl are likely
+to eliminate these arbitrary limitations.
+
+Some people may wish to outlaw barewords entirely.  If you
+say
+
+    use strict 'subs';
+
+then any bareword that would NOT be interpreted as a subroutine call
+produces a compile-time error instead.  The restriction lasts to the
+end of the enclosing block.  An inner block may countermand this
+by saying C<no strict 'subs'>.
+
+=head3 Array Interpolation
+X<array, interpolation> X<interpolation, array> X<$">
+
+Arrays and slices are interpolated into double-quoted strings
+by joining the elements with the delimiter specified in the C<$">
+variable (C<$LIST_SEPARATOR> if "use English;" is specified), 
+space by default.  The following are equivalent:
+
+    $temp = join($", @ARGV);
+    system "echo $temp";
+
+    system "echo @ARGV";
+
+Within search patterns (which also undergo double-quotish substitution)
+there is an unfortunate ambiguity:  Is C</$foo[bar]/> to be interpreted as
+C</${foo}[bar]/> (where C<[bar]> is a character class for the regular
+expression) or as C</${foo[bar]}/> (where C<[bar]> is the subscript to array
+@foo)?  If @foo doesn't otherwise exist, then it's obviously a
+character class.  If @foo exists, Perl takes a good guess about C<[bar]>,
+and is almost always right.  If it does guess wrong, or if you're just
+plain paranoid, you can force the correct interpretation with curly
+braces as above.
+
+If you're looking for the information on how to use here-documents,
+which used to be here, that's been moved to
+L<perlop/Quote and Quote-like Operators>.
+
+=head2 List value constructors
+X<list>
+
+List values are denoted by separating individual values by commas
+(and enclosing the list in parentheses where precedence requires it):
+
+    (LIST)
+
+In a context not requiring a list value, the value of what appears
+to be a list literal is simply the value of the final element, as
+with the C comma operator.  For example,
+
+    @foo = ('cc', '-E', $bar);
+
+assigns the entire list value to array @foo, but
+
+    $foo = ('cc', '-E', $bar);
+
+assigns the value of variable $bar to the scalar variable $foo.
+Note that the value of an actual array in scalar context is the
+length of the array; the following assigns the value 3 to $foo:
+
+    @foo = ('cc', '-E', $bar);
+    $foo = @foo;                # $foo gets 3
+
+You may have an optional comma before the closing parenthesis of a
+list literal, so that you can say:
+
+    @foo = (
+        1,
+        2,
+        3,
+    );
+
+To use a here-document to assign an array, one line per element,
+you might use an approach like this:
+
+    @sauces = <<End_Lines =~ m/(\S.*\S)/g;
+        normal tomato
+        spicy tomato
+        green chile
+        pesto
+        white wine
+    End_Lines
+
+LISTs do automatic interpolation of sublists.  That is, when a LIST is
+evaluated, each element of the list is evaluated in list context, and
+the resulting list value is interpolated into LIST just as if each
+individual element were a member of LIST.  Thus arrays and hashes lose their
+identity in a LIST--the list
+
+    (@foo,@bar,&SomeSub,%glarch)
+
+contains all the elements of @foo followed by all the elements of @bar,
+followed by all the elements returned by the subroutine named SomeSub 
+called in list context, followed by the key/value pairs of %glarch.
+To make a list reference that does I<NOT> interpolate, see L<perlref>.
+
+The null list is represented by ().  Interpolating it in a list
+has no effect.  Thus ((),(),()) is equivalent to ().  Similarly,
+interpolating an array with no elements is the same as if no
+array had been interpolated at that point.
+
+This interpolation combines with the facts that the opening
+and closing parentheses are optional (except when necessary for
+precedence) and lists may end with an optional comma to mean that
+multiple commas within lists are legal syntax.  The list C<1,,3> is a
+concatenation of two lists, C<1,> and C<3>, the first of which ends
+with that optional comma.  C<1,,3> is C<(1,),(3)> is C<1,3> (And
+similarly for C<1,,,3> is C<(1,),(,),3> is C<1,3> and so on.)  Not that
+we'd advise you to use this obfuscation.
+
+A list value may also be subscripted like a normal array.  You must
+put the list in parentheses to avoid ambiguity.  For example:
+
+    # Stat returns list value.
+    $time = (stat($file))[8];
+
+    # SYNTAX ERROR HERE.
+    $time = stat($file)[8];  # OOPS, FORGOT PARENTHESES
+
+    # Find a hex digit.
+    $hexdigit = ('a','b','c','d','e','f')[$digit-10];
+
+    # A "reverse comma operator".
+    return (pop(@foo),pop(@foo))[0];
+
+Lists may be assigned to only when each element of the list
+is itself legal to assign to:
+
+    ($a, $b, $c) = (1, 2, 3);
+
+    ($map{'red'}, $map{'blue'}, $map{'green'}) = (0x00f, 0x0f0, 0xf00);
+
+An exception to this is that you may assign to C<undef> in a list.
+This is useful for throwing away some of the return values of a
+function:
+
+    ($dev, $ino, undef, undef, $uid, $gid) = stat($file);
+
+As of Perl 5.22, you can also use C<(undef)x2> instead of C<undef, undef>.
+(You can also do C<($x) x 2>, which is less useful, because it assigns to
+the same variable twice, clobbering the first value assigned.)
+
+List assignment in scalar context returns the number of elements
+produced by the expression on the right side of the assignment:
+
+    $x = (($foo,$bar) = (3,2,1));       # set $x to 3, not 2
+    $x = (($foo,$bar) = f());           # set $x to f()'s return count
+
+This is handy when you want to do a list assignment in a Boolean
+context, because most list functions return a null list when finished,
+which when assigned produces a 0, which is interpreted as FALSE.
+
+It's also the source of a useful idiom for executing a function or
+performing an operation in list context and then counting the number of
+return values, by assigning to an empty list and then using that
+assignment in scalar context.  For example, this code:
+
+    $count = () = $string =~ /\d+/g;
+
+will place into $count the number of digit groups found in $string.
+This happens because the pattern match is in list context (since it
+is being assigned to the empty list), and will therefore return a list
+of all matching parts of the string.  The list assignment in scalar
+context will translate that into the number of elements (here, the
+number of times the pattern matched) and assign that to $count.  Note
+that simply using
+
+    $count = $string =~ /\d+/g;
+
+would not have worked, since a pattern match in scalar context will
+only return true or false, rather than a count of matches.
+
+The final element of a list assignment may be an array or a hash:
+
+    ($a, $b, @rest) = split;
+    my($a, $b, %rest) = @_;
+
+You can actually put an array or hash anywhere in the list, but the first one
+in the list will soak up all the values, and anything after it will become
+undefined.  This may be useful in a my() or local().
+
+A hash can be initialized using a literal list holding pairs of
+items to be interpreted as a key and a value:
+
+    # same as map assignment above
+    %map = ('red',0x00f,'blue',0x0f0,'green',0xf00);
+
+While literal lists and named arrays are often interchangeable, that's
+not the case for hashes.  Just because you can subscript a list value like
+a normal array does not mean that you can subscript a list value as a
+hash.  Likewise, hashes included as parts of other lists (including
+parameters lists and return lists from functions) always flatten out into
+key/value pairs.  That's why it's good to use references sometimes.
+
+It is often more readable to use the C<< => >> operator between key/value
+pairs.  The C<< => >> operator is mostly just a more visually distinctive
+synonym for a comma, but it also arranges for its left-hand operand to be
+interpreted as a string if it's a bareword that would be a legal simple
+identifier.  C<< => >> doesn't quote compound identifiers, that contain
+double colons.  This makes it nice for initializing hashes:
+
+    %map = (
+                 red   => 0x00f,
+                 blue  => 0x0f0,
+                 green => 0xf00,
+   );
+
+or for initializing hash references to be used as records:
+
+    $rec = {
+                witch => 'Mable the Merciless',
+                cat   => 'Fluffy the Ferocious',
+                date  => '10/31/1776',
+    };
+
+or for using call-by-named-parameter to complicated functions:
+
+   $field = $query->radio_group(
+               name      => 'group_name',
+               values    => ['eenie','meenie','minie'],
+               default   => 'meenie',
+               linebreak => 'true',
+               labels    => \%labels
+   );
+
+Note that just because a hash is initialized in that order doesn't
+mean that it comes out in that order.  See L<perlfunc/sort> for examples
+of how to arrange for an output ordering.
+
+If a key appears more than once in the initializer list of a hash, the last
+occurrence wins:
+
+    %circle = (
+                  center => [5, 10],
+                  center => [27, 9],
+                  radius => 100,
+                  color => [0xDF, 0xFF, 0x00],
+                  radius => 54,
+    );
+
+    # same as
+    %circle = (
+                  center => [27, 9],
+                  color => [0xDF, 0xFF, 0x00],
+                  radius => 54,
+    );
+
+This can be used to provide overridable configuration defaults:
+
+    # values in %args take priority over %config_defaults
+    %config = (%config_defaults, %args);
+
+=head2 Subscripts
+
+An array can be accessed one scalar at a
+time by specifying a dollar sign (C<$>), then the
+name of the array (without the leading C<@>), then the subscript inside
+square brackets.  For example:
+
+    @myarray = (5, 50, 500, 5000);
+    print "The Third Element is", $myarray[2], "\n";
+
+The array indices start with 0.  A negative subscript retrieves its 
+value from the end.  In our example, C<$myarray[-1]> would have been 
+5000, and C<$myarray[-2]> would have been 500.
+
+Hash subscripts are similar, only instead of square brackets curly brackets
+are used.  For example:
+
+    %scientists = 
+    (
+        "Newton" => "Isaac",
+        "Einstein" => "Albert",
+        "Darwin" => "Charles",
+        "Feynman" => "Richard",
+    );
+
+    print "Darwin's First Name is ", $scientists{"Darwin"}, "\n";
+
+You can also subscript a list to get a single element from it:
+
+    $dir = (getpwnam("daemon"))[7];
+
+=head2 Multi-dimensional array emulation
+
+Multidimensional arrays may be emulated by subscripting a hash with a
+list.  The elements of the list are joined with the subscript separator
+(see L<perlvar/$;>).
+
+    $foo{$a,$b,$c}
+
+is equivalent to
+
+    $foo{join($;, $a, $b, $c)}
+
+The default subscript separator is "\034", the same as SUBSEP in B<awk>.
+
+=head2 Slices
+X<slice> X<array, slice> X<hash, slice>
+
+A slice accesses several elements of a list, an array, or a hash
+simultaneously using a list of subscripts.  It's more convenient
+than writing out the individual elements as a list of separate
+scalar values.
+
+    ($him, $her)   = @folks[0,-1];              # array slice
+    @them          = @folks[0 .. 3];            # array slice
+    ($who, $home)  = @ENV{"USER", "HOME"};      # hash slice
+    ($uid, $dir)   = (getpwnam("daemon"))[2,7]; # list slice
+
+Since you can assign to a list of variables, you can also assign to
+an array or hash slice.
+
+    @days[3..5]    = qw/Wed Thu Fri/;
+    @colors{'red','blue','green'} 
+                   = (0xff0000, 0x0000ff, 0x00ff00);
+    @folks[0, -1]  = @folks[-1, 0];
+
+The previous assignments are exactly equivalent to
+
+    ($days[3], $days[4], $days[5]) = qw/Wed Thu Fri/;
+    ($colors{'red'}, $colors{'blue'}, $colors{'green'})
+                   = (0xff0000, 0x0000ff, 0x00ff00);
+    ($folks[0], $folks[-1]) = ($folks[-1], $folks[0]);
+
+Since changing a slice changes the original array or hash that it's
+slicing, a C<foreach> construct will alter some--or even all--of the
+values of the array or hash.
+
+    foreach (@array[ 4 .. 10 ]) { s/peter/paul/ } 
+
+    foreach (@hash{qw[key1 key2]}) {
+        s/^\s+//;           # trim leading whitespace
+        s/\s+$//;           # trim trailing whitespace
+        s/(\w+)/\u\L$1/g;   # "titlecase" words
+    }
+
+As a special exception, when you slice a list (but not an array or a hash),
+if the list evaluates to empty, then taking a slice of that empty list will
+always yield the empty list in turn.  Thus:
+
+    @a = ()[0,1];          # @a has no elements
+    @b = (@a)[0,1];        # @b has no elements
+    @c = (sub{}->())[0,1]; # @c has no elements
+    @d = ('a','b')[0,1];   # @d has two elements
+    @e = (@d)[0,1,8,9];    # @e has four elements
+    @f = (@d)[8,9];        # @f has two elements
+
+This makes it easy to write loops that terminate when a null list
+is returned:
+
+    while ( ($home, $user) = (getpwent)[7,0] ) {
+        printf "%-8s %s\n", $user, $home;
+    }
+
+As noted earlier in this document, the scalar sense of list assignment
+is the number of elements on the right-hand side of the assignment.
+The null list contains no elements, so when the password file is
+exhausted, the result is 0, not 2.
+
+Slices in scalar context return the last item of the slice.
+
+    @a = qw/first second third/;
+    %h = (first => 'A', second => 'B');
+    $t = @a[0, 1];                  # $t is now 'second'
+    $u = @h{'first', 'second'};     # $u is now 'B'
+
+If you're confused about why you use an '@' there on a hash slice
+instead of a '%', think of it like this.  The type of bracket (square
+or curly) governs whether it's an array or a hash being looked at.
+On the other hand, the leading symbol ('$' or '@') on the array or
+hash indicates whether you are getting back a singular value (a
+scalar) or a plural one (a list).
+
+=head3 Key/Value Hash Slices
+
+Starting in Perl 5.20, a hash slice operation
+with the % symbol is a variant of slice operation
+returning a list of key/value pairs rather than just values:
+
+    %h = (blonk => 2, foo => 3, squink => 5, bar => 8);
+    %subset = %h{'foo', 'bar'}; # key/value hash slice
+    # %subset is now (foo => 3, bar => 8)
+
+However, the result of such a slice cannot be localized, deleted or used
+in assignment.  These are otherwise very much consistent with hash slices
+using the @ symbol.
+
+=head3 Index/Value Array Slices
+
+Similar to key/value hash slices (and also introduced
+in Perl 5.20), the % array slice syntax returns a list
+of index/value pairs:
+
+    @a = "a".."z";
+    @list = %a[3,4,6];
+    # @list is now (3, "d", 4, "e", 6, "g")
+
+=head2 Typeglobs and Filehandles
+X<typeglob> X<filehandle> X<*>
+
+Perl uses an internal type called a I<typeglob> to hold an entire
+symbol table entry.  The type prefix of a typeglob is a C<*>, because
+it represents all types.  This used to be the preferred way to
+pass arrays and hashes by reference into a function, but now that
+we have real references, this is seldom needed.  
+
+The main use of typeglobs in modern Perl is create symbol table aliases.
+This assignment:
+
+    *this = *that;
+
+makes $this an alias for $that, @this an alias for @that, %this an alias
+for %that, &this an alias for &that, etc.  Much safer is to use a reference.
+This:
+
+    local *Here::blue = \$There::green;
+
+temporarily makes $Here::blue an alias for $There::green, but doesn't
+make @Here::blue an alias for @There::green, or %Here::blue an alias for
+%There::green, etc.  See L<perlmod/"Symbol Tables"> for more examples
+of this.  Strange though this may seem, this is the basis for the whole
+module import/export system.
+
+Another use for typeglobs is to pass filehandles into a function or
+to create new filehandles.  If you need to use a typeglob to save away
+a filehandle, do it this way:
+
+    $fh = *STDOUT;
+
+or perhaps as a real reference, like this:
+
+    $fh = \*STDOUT;
+
+See L<perlsub> for examples of using these as indirect filehandles
+in functions.
+
+Typeglobs are also a way to create a local filehandle using the local()
+operator.  These last until their block is exited, but may be passed back.
+For example:
+
+    sub newopen {
+        my $path = shift;
+        local  *FH;  # not my!
+        open   (FH, $path)          or  return undef;
+        return *FH;
+    }
+    $fh = newopen('/etc/passwd');
+
+Now that we have the C<*foo{THING}> notation, typeglobs aren't used as much
+for filehandle manipulations, although they're still needed to pass brand
+new file and directory handles into or out of functions.  That's because
+C<*HANDLE{IO}> only works if HANDLE has already been used as a handle.
+In other words, C<*FH> must be used to create new symbol table entries;
+C<*foo{THING}> cannot.  When in doubt, use C<*FH>.
+
+All functions that are capable of creating filehandles (open(),
+opendir(), pipe(), socketpair(), sysopen(), socket(), and accept())
+automatically create an anonymous filehandle if the handle passed to
+them is an uninitialized scalar variable.  This allows the constructs
+such as C<open(my $fh, ...)> and C<open(local $fh,...)> to be used to
+create filehandles that will conveniently be closed automatically when
+the scope ends, provided there are no other references to them.  This
+largely eliminates the need for typeglobs when opening filehandles
+that must be passed around, as in the following example:
+
+    sub myopen {
+        open my $fh, "@_"
+             or die "Can't open '@_': $!";
+        return $fh;
+    }
+
+    {
+        my $f = myopen("</etc/motd");
+        print <$f>;
+        # $f implicitly closed here
+    }
+
+Note that if an initialized scalar variable is used instead the
+result is different: C<my $fh='zzz'; open($fh, ...)> is equivalent
+to C<open( *{'zzz'}, ...)>.
+C<use strict 'refs'> forbids such practice.
+
+Another way to create anonymous filehandles is with the Symbol
+module or with the IO::Handle module and its ilk.  These modules
+have the advantage of not hiding different types of the same name
+during the local().  See the bottom of L<perlfunc/open> for an
+example.
+
+=head1 SEE ALSO
+
+See L<perlvar> for a description of Perl's built-in variables and
+a discussion of legal variable names.  See L<perlref>, L<perlsub>,
+and L<perlmod/"Symbol Tables"> for more discussion on typeglobs and
+the C<*foo{THING}> syntax.
diff --git a/lib/5.24.1/pod/perldbmfilter.pod b/lib/5.24.1/pod/perldbmfilter.pod
new file mode 100644
index 00000000..4130a9f2
--- /dev/null
+++ b/lib/5.24.1/pod/perldbmfilter.pod
@@ -0,0 +1,167 @@
+=head1 NAME
+
+perldbmfilter - Perl DBM Filters
+
+=head1 SYNOPSIS
+
+    $db = tie %hash, 'DBM', ...
+
+    $old_filter = $db->filter_store_key  ( sub { ... } );
+    $old_filter = $db->filter_store_value( sub { ... } );
+    $old_filter = $db->filter_fetch_key  ( sub { ... } );
+    $old_filter = $db->filter_fetch_value( sub { ... } );
+
+=head1 DESCRIPTION
+
+The four C<filter_*> methods shown above are available in all the DBM
+modules that ship with Perl, namely DB_File, GDBM_File, NDBM_File,
+ODBM_File and SDBM_File.
+
+Each of the methods works identically, and is used to install (or
+uninstall) a single DBM Filter. The only difference between them is the
+place that the filter is installed.
+
+To summarise:
+
+=over 5
+
+=item B<filter_store_key>
+
+If a filter has been installed with this method, it will be invoked
+every time you write a key to a DBM database.
+
+=item B<filter_store_value>
+
+If a filter has been installed with this method, it will be invoked
+every time you write a value to a DBM database.
+
+=item B<filter_fetch_key>
+
+If a filter has been installed with this method, it will be invoked
+every time you read a key from a DBM database.
+
+=item B<filter_fetch_value>
+
+If a filter has been installed with this method, it will be invoked
+every time you read a value from a DBM database.
+
+=back
+
+You can use any combination of the methods from none to all four.
+
+All filter methods return the existing filter, if present, or C<undef>
+if not.
+
+To delete a filter pass C<undef> to it.
+
+=head2 The Filter
+
+When each filter is called by Perl, a local copy of C<$_> will contain
+the key or value to be filtered. Filtering is achieved by modifying
+the contents of C<$_>. The return code from the filter is ignored.
+
+=head2 An Example: the NULL termination problem.
+
+DBM Filters are useful for a class of problems where you I<always>
+want to make the same transformation to all keys, all values or both.
+
+For example, consider the following scenario. You have a DBM database
+that you need to share with a third-party C application. The C application
+assumes that I<all> keys and values are NULL terminated. Unfortunately
+when Perl writes to DBM databases it doesn't use NULL termination, so
+your Perl application will have to manage NULL termination itself. When
+you write to the database you will have to use something like this:
+
+    $hash{"$key\0"} = "$value\0";
+
+Similarly the NULL needs to be taken into account when you are considering
+the length of existing keys/values.
+
+It would be much better if you could ignore the NULL terminations issue
+in the main application code and have a mechanism that automatically
+added the terminating NULL to all keys and values whenever you write to
+the database and have them removed when you read from the database. As I'm
+sure you have already guessed, this is a problem that DBM Filters can
+fix very easily.
+
+    use strict;
+    use warnings;
+    use SDBM_File;
+    use Fcntl;
+
+    my %hash;
+    my $filename = "filt";
+    unlink $filename;
+
+    my $db = tie(%hash, 'SDBM_File', $filename, O_RDWR|O_CREAT, 0640)
+      or die "Cannot open $filename: $!\n";
+
+    # Install DBM Filters
+    $db->filter_fetch_key  ( sub { s/\0$//    } );
+    $db->filter_store_key  ( sub { $_ .= "\0" } );
+    $db->filter_fetch_value( 
+        sub { no warnings 'uninitialized'; s/\0$// } );
+    $db->filter_store_value( sub { $_ .= "\0" } );
+
+    $hash{"abc"} = "def";
+    my $a = $hash{"ABC"};
+    # ...
+    undef $db;
+    untie %hash;
+
+The code above uses SDBM_File, but it will work with any of the DBM
+modules.
+
+Hopefully the contents of each of the filters should be
+self-explanatory. Both "fetch" filters remove the terminating NULL,
+and both "store" filters add a terminating NULL.
+
+
+=head2 Another Example: Key is a C int.
+
+Here is another real-life example. By default, whenever Perl writes to
+a DBM database it always writes the key and value as strings. So when
+you use this:
+
+    $hash{12345} = "something";
+
+the key 12345 will get stored in the DBM database as the 5 byte string
+"12345". If you actually want the key to be stored in the DBM database
+as a C int, you will have to use C<pack> when writing, and C<unpack>
+when reading.
+
+Here is a DBM Filter that does it:
+
+    use strict;
+    use warnings;
+    use DB_File;
+    my %hash;
+    my $filename = "filt";
+    unlink $filename;
+
+
+    my $db = tie %hash, 'DB_File', $filename, O_CREAT|O_RDWR, 0666,
+        $DB_HASH or die "Cannot open $filename: $!\n";
+
+    $db->filter_fetch_key  ( sub { $_ = unpack("i", $_) } );
+    $db->filter_store_key  ( sub { $_ = pack ("i", $_) } );
+    $hash{123} = "def";
+    # ...
+    undef $db;
+    untie %hash;
+
+The code above uses DB_File, but again it will work with any of the
+DBM modules.
+
+This time only two filters have been used; we only need to manipulate
+the contents of the key, so it wasn't necessary to install any value
+filters.
+
+=head1 SEE ALSO
+
+L<DB_File>, L<GDBM_File>, L<NDBM_File>, L<ODBM_File> and L<SDBM_File>.
+
+=head1 AUTHOR
+
+Paul Marquess
+
diff --git a/lib/5.24.1/pod/perldebguts.pod b/lib/5.24.1/pod/perldebguts.pod
new file mode 100644
index 00000000..c463ff03
--- /dev/null
+++ b/lib/5.24.1/pod/perldebguts.pod
@@ -0,0 +1,1025 @@
+=head1 NAME
+
+perldebguts - Guts of Perl debugging 
+
+=head1 DESCRIPTION
+
+This is not L<perldebug>, which tells you how to use
+the debugger.  This manpage describes low-level details concerning
+the debugger's internals, which range from difficult to impossible
+to understand for anyone who isn't incredibly intimate with Perl's guts.
+Caveat lector.
+
+=head1 Debugger Internals
+
+Perl has special debugging hooks at compile-time and run-time used
+to create debugging environments.  These hooks are not to be confused
+with the I<perl -Dxxx> command described in L<perlrun>, which is
+usable only if a special Perl is built per the instructions in the
+F<INSTALL> podpage in the Perl source tree.
+
+For example, whenever you call Perl's built-in C<caller> function
+from the package C<DB>, the arguments that the corresponding stack
+frame was called with are copied to the C<@DB::args> array.  These
+mechanisms are enabled by calling Perl with the B<-d> switch.
+Specifically, the following additional features are enabled
+(cf. L<perlvar/$^P>):
+
+=over 4
+
+=item *
+
+Perl inserts the contents of C<$ENV{PERL5DB}> (or C<BEGIN {require
+'perl5db.pl'}> if not present) before the first line of your program.
+
+=item *
+
+Each array C<@{"_<$filename"}> holds the lines of $filename for a
+file compiled by Perl.  The same is also true for C<eval>ed strings
+that contain subroutines, or which are currently being executed.
+The $filename for C<eval>ed strings looks like C<(eval 34)>.
+
+Values in this array are magical in numeric context: they compare
+equal to zero only if the line is not breakable.
+
+=item *
+
+Each hash C<%{"_<$filename"}> contains breakpoints and actions keyed
+by line number.  Individual entries (as opposed to the whole hash)
+are settable.  Perl only cares about Boolean true here, although
+the values used by F<perl5db.pl> have the form
+C<"$break_condition\0$action">.  
+
+The same holds for evaluated strings that contain subroutines, or
+which are currently being executed.  The $filename for C<eval>ed strings
+looks like C<(eval 34)>.
+
+=item *
+
+Each scalar C<${"_<$filename"}> contains C<"_<$filename">.  This is
+also the case for evaluated strings that contain subroutines, or
+which are currently being executed.  The $filename for C<eval>ed
+strings looks like C<(eval 34)>.
+
+=item *
+
+After each C<require>d file is compiled, but before it is executed,
+C<DB::postponed(*{"_<$filename"})> is called if the subroutine
+C<DB::postponed> exists.  Here, the $filename is the expanded name of
+the C<require>d file, as found in the values of %INC.
+
+=item *
+
+After each subroutine C<subname> is compiled, the existence of
+C<$DB::postponed{subname}> is checked.  If this key exists,
+C<DB::postponed(subname)> is called if the C<DB::postponed> subroutine
+also exists.
+
+=item *
+
+A hash C<%DB::sub> is maintained, whose keys are subroutine names
+and whose values have the form C<filename:startline-endline>.
+C<filename> has the form C<(eval 34)> for subroutines defined inside
+C<eval>s.
+
+=item *
+
+When the execution of your program reaches a point that can hold a
+breakpoint, the C<DB::DB()> subroutine is called if any of the variables
+C<$DB::trace>, C<$DB::single>, or C<$DB::signal> is true.  These variables
+are not C<local>izable.  This feature is disabled when executing
+inside C<DB::DB()>, including functions called from it 
+unless C<< $^D & (1<<30) >> is true.
+
+=item *
+
+When execution of the program reaches a subroutine call, a call to
+C<&DB::sub>(I<args>) is made instead, with C<$DB::sub> holding the
+name of the called subroutine. (This doesn't happen if the subroutine
+was compiled in the C<DB> package.)
+
+X<&DB::lsub>If the call is to an lvalue subroutine, and C<&DB::lsub>
+is defined C<&DB::lsub>(I<args>) is called instead, otherwise falling
+back to C<&DB::sub>(I<args>).
+
+=item *
+
+When execution of the program uses C<goto> to enter a non-XS
+subroutine and the 0x80 bit is set in C<$^P>, a call to C<&DB::goto>
+is made, with C<$DB::sub> holding the name of the subroutine being
+entered.
+
+=back
+
+Note that if C<&DB::sub> needs external data for it to work, no
+subroutine call is possible without it. As an example, the standard
+debugger's C<&DB::sub> depends on the C<$DB::deep> variable
+(it defines how many levels of recursion deep into the debugger you can go
+before a mandatory break).  If C<$DB::deep> is not defined, subroutine
+calls are not possible, even though C<&DB::sub> exists.
+
+=head2 Writing Your Own Debugger
+
+=head3 Environment Variables
+
+The C<PERL5DB> environment variable can be used to define a debugger.
+For example, the minimal "working" debugger (it actually doesn't do anything)
+consists of one line:
+
+  sub DB::DB {}
+
+It can easily be defined like this:
+
+  $ PERL5DB="sub DB::DB {}" perl -d your-script
+
+Another brief debugger, slightly more useful, can be created
+with only the line:
+
+  sub DB::DB {print ++$i; scalar <STDIN>}
+
+This debugger prints a number which increments for each statement
+encountered and waits for you to hit a newline before continuing
+to the next statement.
+
+The following debugger is actually useful:
+
+  {
+    package DB;
+    sub DB  {}
+    sub sub {print ++$i, " $sub\n"; &$sub}
+  }
+
+It prints the sequence number of each subroutine call and the name of the
+called subroutine.  Note that C<&DB::sub> is being compiled into the
+package C<DB> through the use of the C<package> directive.
+
+When it starts, the debugger reads your rc file (F<./.perldb> or
+F<~/.perldb> under Unix), which can set important options.
+(A subroutine (C<&afterinit>) can be defined here as well; it is executed
+after the debugger completes its own initialization.)
+
+After the rc file is read, the debugger reads the PERLDB_OPTS
+environment variable and uses it to set debugger options. The
+contents of this variable are treated as if they were the argument
+of an C<o ...> debugger command (q.v. in L<perldebug/"Configurable Options">).
+
+=head3 Debugger Internal Variables
+
+In addition to the file and subroutine-related variables mentioned above,
+the debugger also maintains various magical internal variables.
+
+=over 4
+
+=item *
+
+C<@DB::dbline> is an alias for C<@{"::_<current_file"}>, which
+holds the lines of the currently-selected file (compiled by Perl), either
+explicitly chosen with the debugger's C<f> command, or implicitly by flow
+of execution.
+
+Values in this array are magical in numeric context: they compare
+equal to zero only if the line is not breakable.
+
+=item *
+
+C<%DB::dbline> is an alias for C<%{"::_<current_file"}>, which
+contains breakpoints and actions keyed by line number in
+the currently-selected file, either explicitly chosen with the
+debugger's C<f> command, or implicitly by flow of execution.
+
+As previously noted, individual entries (as opposed to the whole hash)
+are settable.  Perl only cares about Boolean true here, although
+the values used by F<perl5db.pl> have the form
+C<"$break_condition\0$action">.
+
+=back
+
+=head3 Debugger Customization Functions
+
+Some functions are provided to simplify customization.
+
+=over 4
+
+=item *
+
+See L<perldebug/"Configurable Options"> for a description of options parsed by
+C<DB::parse_options(string)>.
+
+=item *
+
+C<DB::dump_trace(skip[,count])> skips the specified number of frames
+and returns a list containing information about the calling frames (all
+of them, if C<count> is missing).  Each entry is reference to a hash
+with keys C<context> (either C<.>, C<$>, or C<@>), C<sub> (subroutine
+name, or info about C<eval>), C<args> (C<undef> or a reference to
+an array), C<file>, and C<line>.
+
+=item *
+
+C<DB::print_trace(FH, skip[, count[, short]])> prints
+formatted info about caller frames.  The last two functions may be
+convenient as arguments to C<< < >>, C<< << >> commands.
+
+=back
+
+Note that any variables and functions that are not documented in
+this manpages (or in L<perldebug>) are considered for internal   
+use only, and as such are subject to change without notice.
+
+=head1 Frame Listing Output Examples
+
+The C<frame> option can be used to control the output of frame 
+information.  For example, contrast this expression trace:
+
+ $ perl -de 42
+ Stack dump during die enabled outside of evals.
+
+ Loading DB routines from perl5db.pl patch level 0.94
+ Emacs support available.
+
+ Enter h or 'h h' for help.
+
+ main::(-e:1):   0
+   DB<1> sub foo { 14 }
+
+   DB<2> sub bar { 3 }
+
+   DB<3> t print foo() * bar()
+ main::((eval 172):3):   print foo() + bar();
+ main::foo((eval 168):2):
+ main::bar((eval 170):2):
+ 42
+
+with this one, once the C<o>ption C<frame=2> has been set:
+
+   DB<4> o f=2
+                frame = '2'
+   DB<5> t print foo() * bar()
+ 3:      foo() * bar()
+ entering main::foo
+  2:     sub foo { 14 };
+ exited main::foo
+ entering main::bar
+  2:     sub bar { 3 };
+ exited main::bar
+ 42
+
+By way of demonstration, we present below a laborious listing
+resulting from setting your C<PERLDB_OPTS> environment variable to
+the value C<f=n N>, and running I<perl -d -V> from the command line.
+Examples using various values of C<n> are shown to give you a feel
+for the difference between settings.  Long though it may be, this
+is not a complete listing, but only excerpts.
+
+=over 4
+
+=item 1
+
+ entering main::BEGIN
+  entering Config::BEGIN
+   Package lib/Exporter.pm.
+   Package lib/Carp.pm.
+  Package lib/Config.pm.
+  entering Config::TIEHASH
+  entering Exporter::import
+   entering Exporter::export
+ entering Config::myconfig
+  entering Config::FETCH
+  entering Config::FETCH
+  entering Config::FETCH
+  entering Config::FETCH
+
+=item 2
+
+ entering main::BEGIN
+  entering Config::BEGIN
+   Package lib/Exporter.pm.
+   Package lib/Carp.pm.
+  exited Config::BEGIN
+  Package lib/Config.pm.
+  entering Config::TIEHASH
+  exited Config::TIEHASH
+  entering Exporter::import
+   entering Exporter::export
+   exited Exporter::export
+  exited Exporter::import
+ exited main::BEGIN
+ entering Config::myconfig
+  entering Config::FETCH
+  exited Config::FETCH
+  entering Config::FETCH
+  exited Config::FETCH
+  entering Config::FETCH
+
+=item 3
+
+ in  $=main::BEGIN() from /dev/null:0
+  in  $=Config::BEGIN() from lib/Config.pm:2
+   Package lib/Exporter.pm.
+   Package lib/Carp.pm.
+  Package lib/Config.pm.
+  in  $=Config::TIEHASH('Config') from lib/Config.pm:644
+  in  $=Exporter::import('Config', 'myconfig', 'config_vars') from /dev/null:0
+   in  $=Exporter::export('Config', 'main', 'myconfig', 'config_vars') from li
+ in  @=Config::myconfig() from /dev/null:0
+  in  $=Config::FETCH(ref(Config), 'package') from lib/Config.pm:574
+  in  $=Config::FETCH(ref(Config), 'baserev') from lib/Config.pm:574
+  in  $=Config::FETCH(ref(Config), 'PERL_VERSION') from lib/Config.pm:574
+  in  $=Config::FETCH(ref(Config), 'PERL_SUBVERSION') from lib/Config.pm:574
+  in  $=Config::FETCH(ref(Config), 'osname') from lib/Config.pm:574
+  in  $=Config::FETCH(ref(Config), 'osvers') from lib/Config.pm:574
+
+=item 4
+
+ in  $=main::BEGIN() from /dev/null:0
+  in  $=Config::BEGIN() from lib/Config.pm:2
+   Package lib/Exporter.pm.
+   Package lib/Carp.pm.
+  out $=Config::BEGIN() from lib/Config.pm:0
+  Package lib/Config.pm.
+  in  $=Config::TIEHASH('Config') from lib/Config.pm:644
+  out $=Config::TIEHASH('Config') from lib/Config.pm:644
+  in  $=Exporter::import('Config', 'myconfig', 'config_vars') from /dev/null:0
+   in  $=Exporter::export('Config', 'main', 'myconfig', 'config_vars') from lib/
+   out $=Exporter::export('Config', 'main', 'myconfig', 'config_vars') from lib/
+  out $=Exporter::import('Config', 'myconfig', 'config_vars') from /dev/null:0
+ out $=main::BEGIN() from /dev/null:0
+ in  @=Config::myconfig() from /dev/null:0
+  in  $=Config::FETCH(ref(Config), 'package') from lib/Config.pm:574
+  out $=Config::FETCH(ref(Config), 'package') from lib/Config.pm:574
+  in  $=Config::FETCH(ref(Config), 'baserev') from lib/Config.pm:574
+  out $=Config::FETCH(ref(Config), 'baserev') from lib/Config.pm:574
+  in  $=Config::FETCH(ref(Config), 'PERL_VERSION') from lib/Config.pm:574
+  out $=Config::FETCH(ref(Config), 'PERL_VERSION') from lib/Config.pm:574
+  in  $=Config::FETCH(ref(Config), 'PERL_SUBVERSION') from lib/Config.pm:574
+
+=item 5
+
+ in  $=main::BEGIN() from /dev/null:0
+  in  $=Config::BEGIN() from lib/Config.pm:2
+   Package lib/Exporter.pm.
+   Package lib/Carp.pm.
+  out $=Config::BEGIN() from lib/Config.pm:0
+  Package lib/Config.pm.
+  in  $=Config::TIEHASH('Config') from lib/Config.pm:644
+  out $=Config::TIEHASH('Config') from lib/Config.pm:644
+  in  $=Exporter::import('Config', 'myconfig', 'config_vars') from /dev/null:0
+   in  $=Exporter::export('Config', 'main', 'myconfig', 'config_vars') from lib/E
+   out $=Exporter::export('Config', 'main', 'myconfig', 'config_vars') from lib/E
+  out $=Exporter::import('Config', 'myconfig', 'config_vars') from /dev/null:0
+ out $=main::BEGIN() from /dev/null:0
+ in  @=Config::myconfig() from /dev/null:0
+  in  $=Config::FETCH('Config=HASH(0x1aa444)', 'package') from lib/Config.pm:574
+  out $=Config::FETCH('Config=HASH(0x1aa444)', 'package') from lib/Config.pm:574
+  in  $=Config::FETCH('Config=HASH(0x1aa444)', 'baserev') from lib/Config.pm:574
+  out $=Config::FETCH('Config=HASH(0x1aa444)', 'baserev') from lib/Config.pm:574
+
+=item 6
+
+ in  $=CODE(0x15eca4)() from /dev/null:0
+  in  $=CODE(0x182528)() from lib/Config.pm:2
+   Package lib/Exporter.pm.
+  out $=CODE(0x182528)() from lib/Config.pm:0
+  scalar context return from CODE(0x182528): undef
+  Package lib/Config.pm.
+  in  $=Config::TIEHASH('Config') from lib/Config.pm:628
+  out $=Config::TIEHASH('Config') from lib/Config.pm:628
+  scalar context return from Config::TIEHASH:   empty hash
+  in  $=Exporter::import('Config', 'myconfig', 'config_vars') from /dev/null:0
+   in  $=Exporter::export('Config', 'main', 'myconfig', 'config_vars') from lib/Exporter.pm:171
+   out $=Exporter::export('Config', 'main', 'myconfig', 'config_vars') from lib/Exporter.pm:171
+   scalar context return from Exporter::export: ''
+  out $=Exporter::import('Config', 'myconfig', 'config_vars') from /dev/null:0
+  scalar context return from Exporter::import: ''
+
+=back
+
+In all cases shown above, the line indentation shows the call tree.
+If bit 2 of C<frame> is set, a line is printed on exit from a
+subroutine as well.  If bit 4 is set, the arguments are printed
+along with the caller info.  If bit 8 is set, the arguments are
+printed even if they are tied or references.  If bit 16 is set, the
+return value is printed, too.
+
+When a package is compiled, a line like this
+
+    Package lib/Carp.pm.
+
+is printed with proper indentation.
+
+=head1 Debugging Regular Expressions
+
+There are two ways to enable debugging output for regular expressions.
+
+If your perl is compiled with C<-DDEBUGGING>, you may use the
+B<-Dr> flag on the command line.
+
+Otherwise, one can C<use re 'debug'>, which has effects at
+compile time and run time.  Since Perl 5.9.5, this pragma is lexically
+scoped.
+
+=head2 Compile-time Output
+
+The debugging output at compile time looks like this:
+
+  Compiling REx '[bc]d(ef*g)+h[ij]k$'
+  size 45 Got 364 bytes for offset annotations.
+  first at 1
+  rarest char g at 0
+  rarest char d at 0
+     1: ANYOF[bc](12)
+    12: EXACT <d>(14)
+    14: CURLYX[0] {1,32767}(28)
+    16:   OPEN1(18)
+    18:     EXACT <e>(20)
+    20:     STAR(23)
+    21:       EXACT <f>(0)
+    23:     EXACT <g>(25)
+    25:   CLOSE1(27)
+    27:   WHILEM[1/1](0)
+    28: NOTHING(29)
+    29: EXACT <h>(31)
+    31: ANYOF[ij](42)
+    42: EXACT <k>(44)
+    44: EOL(45)
+    45: END(0)
+  anchored 'de' at 1 floating 'gh' at 3..2147483647 (checking floating) 
+        stclass 'ANYOF[bc]' minlen 7 
+  Offsets: [45]
+  	1[4] 0[0] 0[0] 0[0] 0[0] 0[0] 0[0] 0[0] 0[0] 0[0] 0[0] 5[1]
+  	0[0] 12[1] 0[0] 6[1] 0[0] 7[1] 0[0] 9[1] 8[1] 0[0] 10[1] 0[0]
+  	11[1] 0[0] 12[0] 12[0] 13[1] 0[0] 14[4] 0[0] 0[0] 0[0] 0[0]
+  	0[0] 0[0] 0[0] 0[0] 0[0] 0[0] 18[1] 0[0] 19[1] 20[0]  
+  Omitting $` $& $' support.
+
+The first line shows the pre-compiled form of the regex.  The second
+shows the size of the compiled form (in arbitrary units, usually
+4-byte words) and the total number of bytes allocated for the
+offset/length table, usually 4+C<size>*8.  The next line shows the
+label I<id> of the first node that does a match.
+
+The 
+
+  anchored 'de' at 1 floating 'gh' at 3..2147483647 (checking floating) 
+        stclass 'ANYOF[bc]' minlen 7 
+
+line (split into two lines above) contains optimizer
+information.  In the example shown, the optimizer found that the match 
+should contain a substring C<de> at offset 1, plus substring C<gh>
+at some offset between 3 and infinity.  Moreover, when checking for
+these substrings (to abandon impossible matches quickly), Perl will check
+for the substring C<gh> before checking for the substring C<de>.  The
+optimizer may also use the knowledge that the match starts (at the
+C<first> I<id>) with a character class, and no string 
+shorter than 7 characters can possibly match.
+
+The fields of interest which may appear in this line are
+
+=over 4
+
+=item C<anchored> I<STRING> C<at> I<POS>
+
+=item C<floating> I<STRING> C<at> I<POS1..POS2>
+
+See above.
+
+=item C<matching floating/anchored>
+
+Which substring to check first.
+
+=item C<minlen>
+
+The minimal length of the match.
+
+=item C<stclass> I<TYPE>
+
+Type of first matching node.
+
+=item C<noscan>
+
+Don't scan for the found substrings.
+
+=item C<isall>
+
+Means that the optimizer information is all that the regular
+expression contains, and thus one does not need to enter the regex engine at
+all.
+
+=item C<GPOS>
+
+Set if the pattern contains C<\G>.
+
+=item C<plus> 
+
+Set if the pattern starts with a repeated char (as in C<x+y>).
+
+=item C<implicit>
+
+Set if the pattern starts with C<.*>.
+
+=item C<with eval> 
+
+Set if the pattern contain eval-groups, such as C<(?{ code })> and
+C<(??{ code })>.
+
+=item C<anchored(TYPE)>
+
+If the pattern may match only at a handful of places, with C<TYPE>
+being C<SBOL>, C<MBOL>, or C<GPOS>.  See the table below.
+
+=back
+
+If a substring is known to match at end-of-line only, it may be
+followed by C<$>, as in C<floating 'k'$>.
+
+The optimizer-specific information is used to avoid entering (a slow) regex
+engine on strings that will not definitely match.  If the C<isall> flag
+is set, a call to the regex engine may be avoided even when the optimizer
+found an appropriate place for the match.
+
+Above the optimizer section is the list of I<nodes> of the compiled
+form of the regex.  Each line has format 
+
+C<   >I<id>: I<TYPE> I<OPTIONAL-INFO> (I<next-id>)
+
+=head2 Types of Nodes
+
+Here are the current possible types, with short descriptions:
+
+=for comment
+This table is generated by regen/regcomp.pl.  Any changes made here
+will be lost.
+
+=for regcomp.pl begin
+
+ # TYPE arg-description [num-args] [longjump-len] DESCRIPTION
+
+ # Exit points
+
+ END             no         End of program.
+ SUCCEED         no         Return from a subroutine, basically.
+
+ # Line Start Anchors:
+ SBOL            no         Match "" at beginning of line: /^/, /\A/
+ MBOL            no         Same, assuming multiline: /^/m
+
+ # Line End Anchors:
+ SEOL            no         Match "" at end of line: /$/
+ MEOL            no         Same, assuming multiline: /$/m
+ EOS             no         Match "" at end of string: /\z/
+
+ # Match Start Anchors:
+ GPOS            no         Matches where last m//g left off.
+
+ # Word Boundary Opcodes:
+ BOUND           no         Like BOUNDA for non-utf8, otherwise match ""
+                            between any Unicode \w\W or \W\w
+ BOUNDL          no         Like BOUND/BOUNDU, but \w and \W are defined
+                            by current locale
+ BOUNDU          no         Match "" at any boundary of a given type
+                            using Unicode rules
+ BOUNDA          no         Match "" at any boundary between \w\W or
+                            \W\w, where \w is [_a-zA-Z0-9]
+ NBOUND          no         Like NBOUNDA for non-utf8, otherwise match
+                            "" between any Unicode \w\w or \W\W
+ NBOUNDL         no         Like NBOUND/NBOUNDU, but \w and \W are
+                            defined by current locale
+ NBOUNDU         no         Match "" at any non-boundary of a given type
+                            using using Unicode rules
+ NBOUNDA         no         Match "" betweeen any \w\w or \W\W, where \w
+                            is [_a-zA-Z0-9]
+
+ # [Special] alternatives:
+ REG_ANY         no         Match any one character (except newline).
+ SANY            no         Match any one character.
+ ANYOF           sv 1       Match character in (or not in) this class,
+                            single char match only
+ ANYOFD          sv 1       Like ANYOF, but /d is in effect
+ ANYOFL          sv 1       Like ANYOF, but /l is in effect
+
+ # POSIX Character Classes:
+ POSIXD          none       Some [[:class:]] under /d; the FLAGS field
+                            gives which one
+ POSIXL          none       Some [[:class:]] under /l; the FLAGS field
+                            gives which one
+ POSIXU          none       Some [[:class:]] under /u; the FLAGS field
+                            gives which one
+ POSIXA          none       Some [[:class:]] under /a; the FLAGS field
+                            gives which one
+ NPOSIXD         none       complement of POSIXD, [[:^class:]]
+ NPOSIXL         none       complement of POSIXL, [[:^class:]]
+ NPOSIXU         none       complement of POSIXU, [[:^class:]]
+ NPOSIXA         none       complement of POSIXA, [[:^class:]]
+
+ CLUMP           no         Match any extended grapheme cluster sequence
+
+ # Alternation
+
+ # BRANCH        The set of branches constituting a single choice are
+ #               hooked together with their "next" pointers, since
+ #               precedence prevents anything being concatenated to
+ #               any individual branch.  The "next" pointer of the last
+ #               BRANCH in a choice points to the thing following the
+ #               whole choice.  This is also where the final "next"
+ #               pointer of each individual branch points; each branch
+ #               starts with the operand node of a BRANCH node.
+ #
+ BRANCH          node       Match this alternative, or the next...
+
+ # Literals
+
+ EXACT           str        Match this string (preceded by length).
+ EXACTL          str        Like EXACT, but /l is in effect (used so
+                            locale-related warnings can be checked for).
+ EXACTF          str        Match this non-UTF-8 string (not guaranteed
+                            to be folded) using /id rules (w/len).
+ EXACTFL         str        Match this string (not guaranteed to be
+                            folded) using /il rules (w/len).
+ EXACTFU         str        Match this string (folded iff in UTF-8,
+                            length in folding doesn't change if not in
+                            UTF-8) using /iu rules (w/len).
+ EXACTFA         str        Match this string (not guaranteed to be
+                            folded) using /iaa rules (w/len).
+
+ EXACTFU_SS      str        Match this string (folded iff in UTF-8,
+                            length in folding may change even if not in
+                            UTF-8) using /iu rules (w/len).
+ EXACTFLU8       str        Rare cirucmstances: like EXACTFU, but is
+                            under /l, UTF-8, folded, and everything in
+                            it is above 255.
+ EXACTFA_NO_TRIE str        Match this string (which is not trie-able;
+                            not guaranteed to be folded) using /iaa
+                            rules (w/len).
+
+ # Do nothing types
+
+ NOTHING         no         Match empty string.
+ # A variant of above which delimits a group, thus stops optimizations
+ TAIL            no         Match empty string. Can jump here from
+                            outside.
+
+ # Loops
+
+ # STAR,PLUS    '?', and complex '*' and '+', are implemented as
+ #               circular BRANCH structures.  Simple cases
+ #               (one character per match) are implemented with STAR
+ #               and PLUS for speed and to minimize recursive plunges.
+ #
+ STAR            node       Match this (simple) thing 0 or more times.
+ PLUS            node       Match this (simple) thing 1 or more times.
+
+ CURLY           sv 2       Match this simple thing {n,m} times.
+ CURLYN          no 2       Capture next-after-this simple thing
+ CURLYM          no 2       Capture this medium-complex thing {n,m}
+                            times.
+ CURLYX          sv 2       Match this complex thing {n,m} times.
+
+ # This terminator creates a loop structure for CURLYX
+ WHILEM          no         Do curly processing and see if rest matches.
+
+ # Buffer related
+
+ # OPEN,CLOSE,GROUPP     ...are numbered at compile time.
+ OPEN            num 1      Mark this point in input as start of #n.
+ CLOSE           num 1      Analogous to OPEN.
+
+ REF             num 1      Match some already matched string
+ REFF            num 1      Match already matched string, folded using
+                            native charset rules for non-utf8
+ REFFL           num 1      Match already matched string, folded in loc.
+ REFFU           num 1      Match already matched string, folded using
+                            unicode rules for non-utf8
+ REFFA           num 1      Match already matched string, folded using
+                            unicode rules for non-utf8, no mixing ASCII,
+                            non-ASCII
+
+ # Named references.  Code in regcomp.c assumes that these all are after
+ # the numbered references
+ NREF            no-sv 1    Match some already matched string
+ NREFF           no-sv 1    Match already matched string, folded using
+                            native charset rules for non-utf8
+ NREFFL          no-sv 1    Match already matched string, folded in loc.
+ NREFFU          num 1      Match already matched string, folded using
+                            unicode rules for non-utf8
+ NREFFA          num 1      Match already matched string, folded using
+                            unicode rules for non-utf8, no mixing ASCII,
+                            non-ASCII
+
+ # Support for long RE
+ LONGJMP         off 1 1    Jump far away.
+ BRANCHJ         off 1 1    BRANCH with long offset.
+
+ # Special Case Regops
+ IFMATCH         off 1 2    Succeeds if the following matches.
+ UNLESSM         off 1 2    Fails if the following matches.
+ SUSPEND         off 1 1    "Independent" sub-RE.
+ IFTHEN          off 1 1    Switch, should be preceded by switcher.
+ GROUPP          num 1      Whether the group matched.
+
+ # The heavy worker
+
+ EVAL            evl/flags  Execute some Perl code.
+                 2L
+
+ # Modifiers
+
+ MINMOD          no         Next operator is not greedy.
+ LOGICAL         no         Next opcode should set the flag only.
+
+ # This is not used yet
+ RENUM           off 1 1    Group with independently numbered parens.
+
+ # Trie Related
+
+ # Behave the same as A|LIST|OF|WORDS would. The '..C' variants
+ # have inline charclass data (ascii only), the 'C' store it in the
+ # structure.
+
+ TRIE            trie 1     Match many EXACT(F[ALU]?)? at once.
+                            flags==type
+ TRIEC           trie       Same as TRIE, but with embedded charclass
+                 charclass  data
+
+ AHOCORASICK     trie 1     Aho Corasick stclass. flags==type
+ AHOCORASICKC    trie       Same as AHOCORASICK, but with embedded
+                 charclass  charclass data
+
+ # Regex Subroutines
+ GOSUB           num/ofs 2L recurse to paren arg1 at (signed) ofs arg2
+
+ # Special conditionals
+ NGROUPP         no-sv 1    Whether the group matched.
+ INSUBP          num 1      Whether we are in a specific recurse.
+ DEFINEP         none 1     Never execute directly.
+
+ # Backtracking Verbs
+ ENDLIKE         none       Used only for the type field of verbs
+ OPFAIL          no-sv 1    Same as (?!), but with verb arg
+ ACCEPT          no-sv/num  Accepts the current matched string, with
+                 2L         verbar
+
+ # Verbs With Arguments
+ VERB            no-sv 1    Used only for the type field of verbs
+ PRUNE           no-sv 1    Pattern fails at this startpoint if no-
+                            backtracking through this
+ MARKPOINT       no-sv 1    Push the current location for rollback by
+                            cut.
+ SKIP            no-sv 1    On failure skip forward (to the mark) before
+                            retrying
+ COMMIT          no-sv 1    Pattern fails outright if backtracking
+                            through this
+ CUTGROUP        no-sv 1    On failure go to the next alternation in the
+                            group
+
+ # Control what to keep in $&.
+ KEEPS           no         $& begins here.
+
+ # New charclass like patterns
+ LNBREAK         none       generic newline pattern
+
+ # SPECIAL  REGOPS
+
+ # This is not really a node, but an optimized away piece of a "long"
+ # node.  To simplify debugging output, we mark it as if it were a node
+ OPTIMIZED       off        Placeholder for dump.
+
+ # Special opcode with the property that no opcode in a compiled program
+ # will ever be of this type. Thus it can be used as a flag value that
+ # no other opcode has been seen. END is used similarly, in that an END
+ # node cant be optimized. So END implies "unoptimizable" and PSEUDO
+ # mean "not seen anything to optimize yet".
+ PSEUDO          off        Pseudo opcode for internal use.
+
+=for regcomp.pl end
+
+=for unprinted-credits
+Next section M-J. Dominus (mjd-perl-patch+@plover.com) 20010421
+
+Following the optimizer information is a dump of the offset/length
+table, here split across several lines:
+
+  Offsets: [45]
+  	1[4] 0[0] 0[0] 0[0] 0[0] 0[0] 0[0] 0[0] 0[0] 0[0] 0[0] 5[1]
+  	0[0] 12[1] 0[0] 6[1] 0[0] 7[1] 0[0] 9[1] 8[1] 0[0] 10[1] 0[0]
+  	11[1] 0[0] 12[0] 12[0] 13[1] 0[0] 14[4] 0[0] 0[0] 0[0] 0[0]
+  	0[0] 0[0] 0[0] 0[0] 0[0] 0[0] 18[1] 0[0] 19[1] 20[0]  
+
+The first line here indicates that the offset/length table contains 45
+entries.  Each entry is a pair of integers, denoted by C<offset[length]>.
+Entries are numbered starting with 1, so entry #1 here is C<1[4]> and
+entry #12 is C<5[1]>.  C<1[4]> indicates that the node labeled C<1:>
+(the C<1: ANYOF[bc]>) begins at character position 1 in the
+pre-compiled form of the regex, and has a length of 4 characters.
+C<5[1]> in position 12 
+indicates that the node labeled C<12:>
+(the C<< 12: EXACT <d> >>) begins at character position 5 in the
+pre-compiled form of the regex, and has a length of 1 character.
+C<12[1]> in position 14 
+indicates that the node labeled C<14:>
+(the C<< 14: CURLYX[0] {1,32767} >>) begins at character position 12 in the
+pre-compiled form of the regex, and has a length of 1 character---that
+is, it corresponds to the C<+> symbol in the precompiled regex.
+
+C<0[0]> items indicate that there is no corresponding node.
+
+=head2 Run-time Output
+
+First of all, when doing a match, one may get no run-time output even
+if debugging is enabled.  This means that the regex engine was never
+entered and that all of the job was therefore done by the optimizer.
+
+If the regex engine was entered, the output may look like this:
+
+  Matching '[bc]d(ef*g)+h[ij]k$' against 'abcdefg__gh__'
+    Setting an EVAL scope, savestack=3
+     2 <ab> <cdefg__gh_>    |  1: ANYOF
+     3 <abc> <defg__gh_>    | 11: EXACT <d>
+     4 <abcd> <efg__gh_>    | 13: CURLYX {1,32767}
+     4 <abcd> <efg__gh_>    | 26:   WHILEM
+				0 out of 1..32767  cc=effff31c
+     4 <abcd> <efg__gh_>    | 15:     OPEN1
+     4 <abcd> <efg__gh_>    | 17:     EXACT <e>
+     5 <abcde> <fg__gh_>    | 19:     STAR
+			     EXACT <f> can match 1 times out of 32767...
+    Setting an EVAL scope, savestack=3
+     6 <bcdef> <g__gh__>    | 22:       EXACT <g>
+     7 <bcdefg> <__gh__>    | 24:       CLOSE1
+     7 <bcdefg> <__gh__>    | 26:       WHILEM
+				    1 out of 1..32767  cc=effff31c
+    Setting an EVAL scope, savestack=12
+     7 <bcdefg> <__gh__>    | 15:         OPEN1
+     7 <bcdefg> <__gh__>    | 17:         EXACT <e>
+       restoring \1 to 4(4)..7
+				    failed, try continuation...
+     7 <bcdefg> <__gh__>    | 27:         NOTHING
+     7 <bcdefg> <__gh__>    | 28:         EXACT <h>
+				    failed...
+				failed...
+
+The most significant information in the output is about the particular I<node>
+of the compiled regex that is currently being tested against the target string.
+The format of these lines is
+
+C<    >I<STRING-OFFSET> <I<PRE-STRING>> <I<POST-STRING>>   |I<ID>:  I<TYPE>
+
+The I<TYPE> info is indented with respect to the backtracking level.
+Other incidental information appears interspersed within.
+
+=head1 Debugging Perl Memory Usage
+
+Perl is a profligate wastrel when it comes to memory use.  There
+is a saying that to estimate memory usage of Perl, assume a reasonable
+algorithm for memory allocation, multiply that estimate by 10, and
+while you still may miss the mark, at least you won't be quite so
+astonished.  This is not absolutely true, but may provide a good
+grasp of what happens.
+
+Assume that an integer cannot take less than 20 bytes of memory, a
+float cannot take less than 24 bytes, a string cannot take less
+than 32 bytes (all these examples assume 32-bit architectures, the
+result are quite a bit worse on 64-bit architectures).  If a variable
+is accessed in two of three different ways (which require an integer,
+a float, or a string), the memory footprint may increase yet another
+20 bytes.  A sloppy malloc(3) implementation can inflate these
+numbers dramatically.
+
+On the opposite end of the scale, a declaration like
+
+  sub foo;
+
+may take up to 500 bytes of memory, depending on which release of Perl
+you're running.
+
+Anecdotal estimates of source-to-compiled code bloat suggest an
+eightfold increase.  This means that the compiled form of reasonable
+(normally commented, properly indented etc.) code will take
+about eight times more space in memory than the code took
+on disk.
+
+The B<-DL> command-line switch is obsolete since circa Perl 5.6.0
+(it was available only if Perl was built with C<-DDEBUGGING>).
+The switch was used to track Perl's memory allocations and possible
+memory leaks.  These days the use of malloc debugging tools like
+F<Purify> or F<valgrind> is suggested instead.  See also
+L<perlhacktips/PERL_MEM_LOG>.
+
+One way to find out how much memory is being used by Perl data
+structures is to install the Devel::Size module from CPAN: it gives
+you the minimum number of bytes required to store a particular data
+structure.  Please be mindful of the difference between the size()
+and total_size().
+
+If Perl has been compiled using Perl's malloc you can analyze Perl
+memory usage by setting $ENV{PERL_DEBUG_MSTATS}.
+
+=head2 Using C<$ENV{PERL_DEBUG_MSTATS}>
+
+If your perl is using Perl's malloc() and was compiled with the
+necessary switches (this is the default), then it will print memory
+usage statistics after compiling your code when C<< $ENV{PERL_DEBUG_MSTATS}
+> 1 >>, and before termination of the program when C<<
+$ENV{PERL_DEBUG_MSTATS} >= 1 >>.  The report format is similar to
+the following example:
+
+ $ PERL_DEBUG_MSTATS=2 perl -e "require Carp"
+ Memory allocation statistics after compilation: (buckets 4(4)..8188(8192)
+    14216 free:   130   117    28     7     9   0   2     2   1 0 0
+		437    61    36     0     5
+    60924 used:   125   137   161    55     7   8   6    16   2 0 1
+		 74   109   304    84    20
+ Total sbrk(): 77824/21:119. Odd ends: pad+heads+chain+tail: 0+636+0+2048.
+ Memory allocation statistics after execution:   (buckets 4(4)..8188(8192)
+    30888 free:   245    78    85    13     6   2   1     3   2 0 1
+		315   162    39    42    11
+   175816 used:   265   176  1112   111    26  22  11    27   2 1 1
+		196   178  1066   798    39
+ Total sbrk(): 215040/47:145. Odd ends: pad+heads+chain+tail: 0+2192+0+6144.
+
+It is possible to ask for such a statistic at arbitrary points in
+your execution using the mstat() function out of the standard
+Devel::Peek module.
+
+Here is some explanation of that format:
+
+=over 4
+
+=item C<buckets SMALLEST(APPROX)..GREATEST(APPROX)>
+
+Perl's malloc() uses bucketed allocations.  Every request is rounded
+up to the closest bucket size available, and a bucket is taken from
+the pool of buckets of that size.
+
+The line above describes the limits of buckets currently in use.
+Each bucket has two sizes: memory footprint and the maximal size
+of user data that can fit into this bucket.  Suppose in the above
+example that the smallest bucket were size 4.  The biggest bucket
+would have usable size 8188, and the memory footprint would be 8192.
+
+In a Perl built for debugging, some buckets may have negative usable
+size.  This means that these buckets cannot (and will not) be used.
+For larger buckets, the memory footprint may be one page greater
+than a power of 2.  If so, the corresponding power of two is
+printed in the C<APPROX> field above.
+
+=item Free/Used
+
+The 1 or 2 rows of numbers following that correspond to the number
+of buckets of each size between C<SMALLEST> and C<GREATEST>.  In
+the first row, the sizes (memory footprints) of buckets are powers
+of two--or possibly one page greater.  In the second row, if present,
+the memory footprints of the buckets are between the memory footprints
+of two buckets "above".
+
+For example, suppose under the previous example, the memory footprints
+were
+
+   free:    8     16    32    64    128  256 512 1024 2048 4096 8192
+	   4     12    24    48    80
+
+With a non-C<DEBUGGING> perl, the buckets starting from C<128> have
+a 4-byte overhead, and thus an 8192-long bucket may take up to
+8188-byte allocations.
+
+=item C<Total sbrk(): SBRKed/SBRKs:CONTINUOUS>
+
+The first two fields give the total amount of memory perl sbrk(2)ed
+(ess-broken? :-) and number of sbrk(2)s used.  The third number is
+what perl thinks about continuity of returned chunks.  So long as
+this number is positive, malloc() will assume that it is probable
+that sbrk(2) will provide continuous memory.
+
+Memory allocated by external libraries is not counted.
+
+=item C<pad: 0>
+
+The amount of sbrk(2)ed memory needed to keep buckets aligned.
+
+=item C<heads: 2192>
+
+Although memory overhead of bigger buckets is kept inside the bucket, for
+smaller buckets, it is kept in separate areas.  This field gives the
+total size of these areas.
+
+=item C<chain: 0>
+
+malloc() may want to subdivide a bigger bucket into smaller buckets.
+If only a part of the deceased bucket is left unsubdivided, the rest
+is kept as an element of a linked list.  This field gives the total
+size of these chunks.
+
+=item C<tail: 6144>
+
+To minimize the number of sbrk(2)s, malloc() asks for more memory.  This
+field gives the size of the yet unused part, which is sbrk(2)ed, but
+never touched.
+
+=back
+
+=head1 SEE ALSO
+
+L<perldebug>,
+L<perlguts>,
+L<perlrun>
+L<re>,
+and
+L<Devel::DProf>.
diff --git a/lib/5.24.1/pod/perldebtut.pod b/lib/5.24.1/pod/perldebtut.pod
new file mode 100644
index 00000000..2558ed27
--- /dev/null
+++ b/lib/5.24.1/pod/perldebtut.pod
@@ -0,0 +1,736 @@
+=head1 NAME
+
+perldebtut - Perl debugging tutorial
+
+=head1 DESCRIPTION
+
+A (very) lightweight introduction in the use of the perl debugger, and a
+pointer to existing, deeper sources of information on the subject of debugging
+perl programs.  
+
+There's an extraordinary number of people out there who don't appear to know
+anything about using the perl debugger, though they use the language every
+day.  
+This is for them.  
+
+
+=head1 use strict
+
+First of all, there's a few things you can do to make your life a lot more
+straightforward when it comes to debugging perl programs, without using the
+debugger at all.  To demonstrate, here's a simple script, named "hello", with
+a problem:
+
+	#!/usr/bin/perl
+
+	$var1 = 'Hello World'; # always wanted to do that :-)
+	$var2 = "$varl\n";
+
+	print $var2; 
+	exit;
+
+While this compiles and runs happily, it probably won't do what's expected,
+namely it doesn't print "Hello World\n" at all;  It will on the other hand do
+exactly what it was told to do, computers being a bit that way inclined.  That
+is, it will print out a newline character, and you'll get what looks like a
+blank line.  It looks like there's 2 variables when (because of the typo)
+there's really 3:
+
+	$var1 = 'Hello World';
+	$varl = undef;
+	$var2 = "\n";
+
+To catch this kind of problem, we can force each variable to be declared
+before use by pulling in the strict module, by putting 'use strict;' after the
+first line of the script.
+
+Now when you run it, perl complains about the 3 undeclared variables and we
+get four error messages because one variable is referenced twice:
+
+ Global symbol "$var1" requires explicit package name at ./t1 line 4.
+ Global symbol "$var2" requires explicit package name at ./t1 line 5.
+ Global symbol "$varl" requires explicit package name at ./t1 line 5.
+ Global symbol "$var2" requires explicit package name at ./t1 line 7.
+ Execution of ./hello aborted due to compilation errors.     
+
+Luvverly! and to fix this we declare all variables explicitly and now our
+script looks like this:	
+
+	#!/usr/bin/perl
+	use strict;
+
+	my $var1 = 'Hello World';
+	my $varl = undef;
+	my $var2 = "$varl\n";
+
+	print $var2; 
+	exit;
+
+We then do (always a good idea) a syntax check before we try to run it again:
+
+	> perl -c hello
+	hello syntax OK 
+
+And now when we run it, we get "\n" still, but at least we know why.  Just
+getting this script to compile has exposed the '$varl' (with the letter 'l')
+variable, and simply changing $varl to $var1 solves the problem.
+
+
+=head1 Looking at data and -w and v
+
+Ok, but how about when you want to really see your data, what's in that
+dynamic variable, just before using it?
+
+	#!/usr/bin/perl 
+	use strict;
+
+	my $key = 'welcome';
+	my %data = (
+		'this' => qw(that), 
+		'tom' => qw(and jerry),
+		'welcome' => q(Hello World),
+		'zip' => q(welcome),
+	);
+	my @data = keys %data;
+
+	print "$data{$key}\n";
+	exit;                               
+
+Looks OK, after it's been through the syntax check (perl -c scriptname), we
+run it and all we get is a blank line again!  Hmmmm.
+
+One common debugging approach here, would be to liberally sprinkle a few print
+statements, to add a check just before we print out our data, and another just
+after:
+
+	print "All OK\n" if grep($key, keys %data);
+	print "$data{$key}\n";
+	print "done: '$data{$key}'\n";
+
+And try again:
+
+	> perl data
+	All OK     
+
+	done: ''
+
+After much staring at the same piece of code and not seeing the wood for the
+trees for some time, we get a cup of coffee and try another approach.  That
+is, we bring in the cavalry by giving perl the 'B<-d>' switch on the command
+line:
+
+	> perl -d data 
+	Default die handler restored.
+
+	Loading DB routines from perl5db.pl version 1.07
+	Editor support available.
+
+	Enter h or `h h' for help, or `man perldebug' for more help.
+
+	main::(./data:4):     my $key = 'welcome';   
+
+Now, what we've done here is to launch the built-in perl debugger on our
+script.  It's stopped at the first line of executable code and is waiting for
+input.
+
+Before we go any further, you'll want to know how to quit the debugger: use
+just the letter 'B<q>', not the words 'quit' or 'exit':
+
+	DB<1> q
+	>
+
+That's it, you're back on home turf again.
+
+
+=head1 help
+
+Fire the debugger up again on your script and we'll look at the help menu. 
+There's a couple of ways of calling help: a simple 'B<h>' will get the summary 
+help list, 'B<|h>' (pipe-h) will pipe the help through your pager (which is 
+(probably 'more' or 'less'), and finally, 'B<h h>' (h-space-h) will give you 
+the entire help screen.  Here is the summary page:
+
+DB<1>h
+
+ List/search source lines:               Control script execution:
+  l [ln|sub]  List source code            T           Stack trace
+  - or .      List previous/current line  s [expr]    Single step
+                                                               [in expr]
+  v [line]    View around line            n [expr]    Next, steps over
+                                                                    subs
+  f filename  View source in file         <CR/Enter>  Repeat last n or s
+  /pattern/ ?patt?   Search forw/backw    r           Return from
+                                                              subroutine
+  M           Show module versions        c [ln|sub]  Continue until
+                                                                position
+ Debugger controls:                       L           List break/watch/
+                                                                 actions
+  o [...]     Set debugger options        t [expr]    Toggle trace
+                                                            [trace expr]
+  <[<]|{[{]|>[>] [cmd] Do pre/post-prompt b [ln|event|sub] [cnd] Set
+                                                              breakpoint
+  ! [N|pat]   Redo a previous command     B ln|*      Delete a/all
+                                                             breakpoints
+  H [-num]    Display last num commands   a [ln] cmd  Do cmd before line
+  = [a val]   Define/list an alias        A ln|*      Delete a/all
+                                                                 actions
+  h [db_cmd]  Get help on command         w expr      Add a watch
+                                                              expression
+  h h         Complete help page          W expr|*    Delete a/all watch
+                                                                   exprs
+  |[|]db_cmd  Send output to pager        ![!] syscmd Run cmd in a
+                                                              subprocess
+  q or ^D     Quit                        R           Attempt a restart
+ Data Examination:     expr     Execute perl code, also see: s,n,t expr
+  x|m expr       Evals expr in list context, dumps the result or lists
+                                                                methods.
+  p expr         Print expression (uses script's current package).
+  S [[!]pat]     List subroutine names [not] matching pattern
+  V [Pk [Vars]]  List Variables in Package.  Vars can be ~pattern or
+                                                               !pattern.
+  X [Vars]       Same as "V current_package [Vars]".
+  y [n [Vars]]   List lexicals in higher scope <n>.  Vars same as V.
+ For more help, type h cmd_letter, or run man perldebug for all docs. 
+
+More confusing options than you can shake a big stick at!  It's not as bad as
+it looks and it's very useful to know more about all of it, and fun too!
+
+There's a couple of useful ones to know about straight away.  You wouldn't
+think we're using any libraries at all at the moment, but 'B<M>' will show
+which modules are currently loaded, and their version number, while 'B<m>' 
+will show the methods, and 'B<S>' shows all subroutines (by pattern) as 
+shown below.  'B<V>' and 'B<X>' show variables in the program by package 
+scope and can be constrained by pattern. 
+
+	DB<2>S str 
+	dumpvar::stringify
+	strict::bits
+	strict::import
+	strict::unimport  
+
+Using 'X' and cousins requires you not to use the type identifiers ($@%), just
+the 'name':
+
+	DM<3>X ~err
+	FileHandle(stderr) => fileno(2)    
+
+Remember we're in our tiny program with a problem, we should have a look at
+where we are, and what our data looks like. First of all let's view some code 
+at our present position (the first line of code in this case), via 'B<v>':
+
+	DB<4> v
+	1       #!/usr/bin/perl
+	2:      use strict;
+	3
+	4==>    my $key = 'welcome';
+	5:      my %data = (
+	6               'this' => qw(that),
+	7               'tom' => qw(and jerry),
+	8               'welcome' => q(Hello World),
+	9               'zip' => q(welcome),
+	10      );                                 
+
+At line number 4 is a helpful pointer, that tells you where you are now.  To
+see more code, type 'v' again:
+
+	DB<4> v
+	8               'welcome' => q(Hello World),
+	9               'zip' => q(welcome),
+	10      );
+	11:     my @data = keys %data;
+	12:     print "All OK\n" if grep($key, keys %data);
+	13:     print "$data{$key}\n";
+	14:     print "done: '$data{$key}'\n";
+	15:     exit;      
+
+And if you wanted to list line 5 again, type 'l 5', (note the space):
+
+	DB<4> l 5
+	5:      my %data = (
+
+In this case, there's not much to see, but of course normally there's pages of
+stuff to wade through, and 'l' can be very useful.  To reset your view to the
+line we're about to execute, type a lone period '.':
+
+	DB<5> .
+	main::(./data_a:4):     my $key = 'welcome';  
+
+The line shown is the one that is about to be executed B<next>, it hasn't
+happened yet.  So while we can print a variable with the letter 'B<p>', at
+this point all we'd get is an empty (undefined) value back.  What we need to
+do is to step through the next executable statement with an 'B<s>':
+
+	DB<6> s
+	main::(./data_a:5):     my %data = (
+	main::(./data_a:6):             'this' => qw(that),
+	main::(./data_a:7):             'tom' => qw(and jerry),
+	main::(./data_a:8):             'welcome' => q(Hello World),
+	main::(./data_a:9):             'zip' => q(welcome),
+	main::(./data_a:10):    );   
+
+Now we can have a look at that first ($key) variable:
+
+	DB<7> p $key 
+	welcome 
+
+line 13 is where the action is, so let's continue down to there via the letter
+'B<c>', which by the way, inserts a 'one-time-only' breakpoint at the given
+line or sub routine:
+
+	DB<8> c 13
+	All OK
+	main::(./data_a:13):    print "$data{$key}\n";
+
+We've gone past our check (where 'All OK' was printed) and have stopped just
+before the meat of our task.  We could try to print out a couple of variables
+to see what is happening:
+
+	DB<9> p $data{$key}
+
+Not much in there, lets have a look at our hash:
+
+	DB<10> p %data
+	Hello Worldziptomandwelcomejerrywelcomethisthat 
+
+	DB<11> p keys %data
+	Hello Worldtomwelcomejerrythis  
+
+Well, this isn't very easy to read, and using the helpful manual (B<h h>), the
+'B<x>' command looks promising:
+
+	DB<12> x %data
+	0  'Hello World'
+	1  'zip'
+	2  'tom'
+	3  'and'
+	4  'welcome'
+	5  undef
+	6  'jerry'
+	7  'welcome'
+	8  'this'
+	9  'that'     
+
+That's not much help, a couple of welcomes in there, but no indication of
+which are keys, and which are values, it's just a listed array dump and, in
+this case, not particularly helpful.  The trick here, is to use a B<reference>
+to the data structure:
+
+	DB<13> x \%data
+	0  HASH(0x8194bc4)
+	   'Hello World' => 'zip'
+	   'jerry' => 'welcome'
+	   'this' => 'that'
+	   'tom' => 'and'
+	   'welcome' => undef  
+
+The reference is truly dumped and we can finally see what we're dealing with. 
+Our quoting was perfectly valid but wrong for our purposes, with 'and jerry'
+being treated as 2 separate words rather than a phrase, thus throwing the
+evenly paired hash structure out of alignment.
+
+The 'B<-w>' switch would have told us about this, had we used it at the start,
+and saved us a lot of trouble: 
+
+	> perl -w data
+	Odd number of elements in hash assignment at ./data line 5.    
+
+We fix our quoting: 'tom' => q(and jerry), and run it again, this time we get
+our expected output:
+
+	> perl -w data
+	Hello World
+
+
+While we're here, take a closer look at the 'B<x>' command, it's really useful
+and will merrily dump out nested references, complete objects, partial objects
+- just about whatever you throw at it:
+
+Let's make a quick object and x-plode it, first we'll start the debugger:
+it wants some form of input from STDIN, so we give it something non-committal,
+a zero:
+
+ > perl -de 0
+ Default die handler restored.
+
+ Loading DB routines from perl5db.pl version 1.07
+ Editor support available.
+
+ Enter h or `h h' for help, or `man perldebug' for more help.
+
+ main::(-e:1):   0
+
+Now build an on-the-fly object over a couple of lines (note the backslash):
+
+ DB<1> $obj = bless({'unique_id'=>'123', 'attr'=> \
+ cont: 	{'col' => 'black', 'things' => [qw(this that etc)]}}, 'MY_class')
+
+And let's have a look at it:
+
+  	DB<2> x $obj
+ 0  MY_class=HASH(0x828ad98)
+   		'attr' => HASH(0x828ad68)
+      	'col' => 'black'
+      	'things' => ARRAY(0x828abb8)
+         	0  'this'
+         	1  'that'
+         	2  'etc'
+   		'unique_id' => 123       
+  	DB<3>
+
+Useful, huh?  You can eval nearly anything in there, and experiment with bits
+of code or regexes until the cows come home:
+
+ DB<3> @data = qw(this that the other atheism leather theory scythe)
+
+ DB<4> p 'saw -> '.($cnt += map { print "\t:\t$_\n" } grep(/the/, sort @data))
+ atheism
+ leather
+ other
+ scythe
+ the
+ theory
+ saw -> 6
+
+If you want to see the command History, type an 'B<H>':
+
+ DB<5> H
+ 4: p 'saw -> '.($cnt += map { print "\t:\t$_\n" } grep(/the/, sort @data))
+ 3: @data = qw(this that the other atheism leather theory scythe)
+ 2: x $obj
+ 1: $obj = bless({'unique_id'=>'123', 'attr'=>
+ {'col' => 'black', 'things' => [qw(this that etc)]}}, 'MY_class')
+ DB<5>
+
+And if you want to repeat any previous command, use the exclamation: 'B<!>':
+
+ DB<5> !4
+ p 'saw -> '.($cnt += map { print "$_\n" } grep(/the/, sort @data))
+ atheism
+ leather
+ other
+ scythe
+ the
+ theory
+ saw -> 12
+
+For more on references see L<perlref> and L<perlreftut>
+
+
+=head1 Stepping through code
+
+Here's a simple program which converts between Celsius and Fahrenheit, it too
+has a problem:
+
+ #!/usr/bin/perl -w
+ use strict;
+
+ my $arg = $ARGV[0] || '-c20';
+
+ if ($arg =~ /^\-(c|f)((\-|\+)*\d+(\.\d+)*)$/) {
+	my ($deg, $num) = ($1, $2);
+	my ($in, $out) = ($num, $num);
+	if ($deg eq 'c') {
+		$deg = 'f';
+		$out = &c2f($num);
+	} else {
+		$deg = 'c';
+		$out = &f2c($num);
+	}
+	$out = sprintf('%0.2f', $out);
+	$out =~ s/^((\-|\+)*\d+)\.0+$/$1/;
+	print "$out $deg\n";
+ } else {
+	print "Usage: $0 -[c|f] num\n";
+ }
+ exit;
+
+ sub f2c {
+	my $f = shift;
+	my $c = 5 * $f - 32 / 9;
+	return $c;
+ }
+
+ sub c2f {
+	my $c = shift;
+	my $f = 9 * $c / 5 + 32;
+	return $f;
+ }
+
+
+For some reason, the Fahrenheit to Celsius conversion fails to return the
+expected output.  This is what it does:
+
+ > temp -c0.72
+ 33.30 f
+
+ > temp -f33.3
+ 162.94 c
+
+Not very consistent!  We'll set a breakpoint in the code manually and run it
+under the debugger to see what's going on.  A breakpoint is a flag, to which
+the debugger will run without interruption, when it reaches the breakpoint, it
+will stop execution and offer a prompt for further interaction.  In normal
+use, these debugger commands are completely ignored, and they are safe - if a
+little messy, to leave in production code.
+
+	my ($in, $out) = ($num, $num);
+	$DB::single=2; # insert at line 9!
+	if ($deg eq 'c') 
+		...
+
+	> perl -d temp -f33.3
+	Default die handler restored.
+
+	Loading DB routines from perl5db.pl version 1.07
+	Editor support available.
+
+	Enter h or `h h' for help, or `man perldebug' for more help.
+
+	main::(temp:4): my $arg = $ARGV[0] || '-c100';     
+
+We'll simply continue down to our pre-set breakpoint with a 'B<c>':
+
+  	DB<1> c
+	main::(temp:10):                if ($deg eq 'c') {   
+
+Followed by a view command to see where we are:
+
+	DB<1> v
+	7:              my ($deg, $num) = ($1, $2);
+	8:              my ($in, $out) = ($num, $num);
+	9:              $DB::single=2;
+	10==>           if ($deg eq 'c') {
+	11:                     $deg = 'f';
+	12:                     $out = &c2f($num);
+	13              } else {
+	14:                     $deg = 'c';
+	15:                     $out = &f2c($num);
+	16              }                             
+
+And a print to show what values we're currently using:
+
+	DB<1> p $deg, $num
+	f33.3
+
+We can put another break point on any line beginning with a colon, we'll use
+line 17 as that's just as we come out of the subroutine, and we'd like to
+pause there later on:
+
+	DB<2> b 17
+
+There's no feedback from this, but you can see what breakpoints are set by
+using the list 'L' command:
+
+	DB<3> L
+	temp:
+ 		17:            print "$out $deg\n";
+   		break if (1)     
+
+Note that to delete a breakpoint you use 'B'.
+
+Now we'll continue down into our subroutine, this time rather than by line
+number, we'll use the subroutine name, followed by the now familiar 'v':
+
+	DB<3> c f2c
+	main::f2c(temp:30):             my $f = shift;  
+
+	DB<4> v
+	24:     exit;
+	25
+	26      sub f2c {
+	27==>           my $f = shift;
+	28:             my $c = 5 * $f - 32 / 9; 
+	29:             return $c;
+	30      }
+	31
+	32      sub c2f {
+	33:             my $c = shift;   
+
+
+Note that if there was a subroutine call between us and line 29, and we wanted
+to B<single-step> through it, we could use the 'B<s>' command, and to step
+over it we would use 'B<n>' which would execute the sub, but not descend into
+it for inspection.  In this case though, we simply continue down to line 29:
+
+	DB<4> c 29  
+	main::f2c(temp:29):             return $c;
+
+And have a look at the return value:
+
+	DB<5> p $c
+	162.944444444444
+
+This is not the right answer at all, but the sum looks correct.  I wonder if
+it's anything to do with operator precedence?  We'll try a couple of other
+possibilities with our sum:
+
+	DB<6> p (5 * $f - 32 / 9)
+	162.944444444444
+
+	DB<7> p 5 * $f - (32 / 9) 
+	162.944444444444
+
+	DB<8> p (5 * $f) - 32 / 9
+	162.944444444444
+
+	DB<9> p 5 * ($f - 32) / 9
+	0.722222222222221
+
+:-) that's more like it!  Ok, now we can set our return variable and we'll
+return out of the sub with an 'r':
+
+	DB<10> $c = 5 * ($f - 32) / 9
+
+	DB<11> r
+	scalar context return from main::f2c: 0.722222222222221
+
+Looks good, let's just continue off the end of the script:
+
+	DB<12> c
+	0.72 c 
+	Debugged program terminated.  Use q to quit or R to restart,
+  	use O inhibit_exit to avoid stopping after program termination,
+  	h q, h R or h O to get additional info.   
+
+A quick fix to the offending line (insert the missing parentheses) in the
+actual program and we're finished.
+
+
+=head1 Placeholder for a, w, t, T
+
+Actions, watch variables, stack traces etc.: on the TODO list.
+
+	a 
+
+	w 
+
+	t 
+
+	T
+
+
+=head1 REGULAR EXPRESSIONS
+
+Ever wanted to know what a regex looked like?  You'll need perl compiled with
+the DEBUGGING flag for this one:
+
+  > perl -Dr -e '/^pe(a)*rl$/i'
+  Compiling REx `^pe(a)*rl$'
+  size 17 first at 2
+  rarest char
+   at 0
+     1: BOL(2)
+     2: EXACTF <pe>(4)
+     4: CURLYN[1] {0,32767}(14)
+     6:   NOTHING(8)
+     8:   EXACTF <a>(0)
+    12:   WHILEM(0)
+    13: NOTHING(14)
+    14: EXACTF <rl>(16)
+    16: EOL(17)
+    17: END(0)
+  floating `'$ at 4..2147483647 (checking floating) stclass
+    `EXACTF <pe>' anchored(BOL) minlen 4
+  Omitting $` $& $' support.
+
+  EXECUTING...
+
+  Freeing REx: `^pe(a)*rl$'
+
+Did you really want to know? :-)
+For more gory details on getting regular expressions to work, have a look at
+L<perlre>, L<perlretut>, and to decode the mysterious labels (BOL and CURLYN,
+etc. above), see L<perldebguts>.
+
+
+=head1 OUTPUT TIPS
+
+To get all the output from your error log, and not miss any messages via
+helpful operating system buffering, insert a line like this, at the start of
+your script:
+
+	$|=1;	
+
+To watch the tail of a dynamically growing logfile, (from the command line):
+
+	tail -f $error_log
+
+Wrapping all die calls in a handler routine can be useful to see how, and from
+where, they're being called, L<perlvar> has more information:
+
+    BEGIN { $SIG{__DIE__} = sub { require Carp; Carp::confess(@_) } }
+
+Various useful techniques for the redirection of STDOUT and STDERR filehandles
+are explained in L<perlopentut> and L<perlfaq8>.
+
+
+=head1 CGI
+
+Just a quick hint here for all those CGI programmers who can't figure out how
+on earth to get past that 'waiting for input' prompt, when running their CGI
+script from the command-line, try something like this:
+
+	> perl -d my_cgi.pl -nodebug 
+
+Of course L<CGI> and L<perlfaq9> will tell you more.
+
+
+=head1 GUIs
+
+The command line interface is tightly integrated with an B<emacs> extension
+and there's a B<vi> interface too.  
+
+You don't have to do this all on the command line, though, there are a few GUI
+options out there.  The nice thing about these is you can wave a mouse over a
+variable and a dump of its data will appear in an appropriate window, or in a
+popup balloon, no more tiresome typing of 'x $varname' :-)
+
+In particular have a hunt around for the following:
+
+B<ptkdb> perlTK based wrapper for the built-in debugger
+
+B<ddd> data display debugger
+
+B<PerlDevKit> and B<PerlBuilder> are NT specific
+
+NB. (more info on these and others would be appreciated).
+
+
+=head1 SUMMARY
+
+We've seen how to encourage good coding practices with B<use strict> and
+B<-w>.  We can run the perl debugger B<perl -d scriptname> to inspect your
+data from within the perl debugger with the B<p> and B<x> commands.  You can
+walk through your code, set breakpoints with B<b> and step through that code
+with B<s> or B<n>, continue with B<c> and return from a sub with B<r>.  Fairly
+intuitive stuff when you get down to it.  
+
+There is of course lots more to find out about, this has just scratched the
+surface.  The best way to learn more is to use perldoc to find out more about
+the language, to read the on-line help (L<perldebug> is probably the next
+place to go), and of course, experiment.  
+
+
+=head1 SEE ALSO
+
+L<perldebug>, 
+L<perldebguts>, 
+L<perldiag>,
+L<perlrun>
+
+
+=head1 AUTHOR
+
+Richard Foley <richard.foley@rfi.net> Copyright (c) 2000
+
+
+=head1 CONTRIBUTORS
+
+Various people have made helpful suggestions and contributions, in particular:
+
+Ronald J Kimball <rjk@linguist.dartmouth.edu>
+
+Hugo van der Sanden <hv@crypt0.demon.co.uk>
+
+Peter Scott <Peter@PSDT.com>
+
diff --git a/lib/5.24.1/pod/perldebug.pod b/lib/5.24.1/pod/perldebug.pod
new file mode 100644
index 00000000..5762235a
--- /dev/null
+++ b/lib/5.24.1/pod/perldebug.pod
@@ -0,0 +1,1235 @@
+=head1 NAME
+X<debug> X<debugger>
+
+perldebug - Perl debugging
+
+=head1 DESCRIPTION
+
+First of all, have you tried using L<C<use strict;>|strict> and
+L<C<use warnings;>|warnings>?
+
+
+If you're new to the Perl debugger, you may prefer to read
+L<perldebtut>, which is a tutorial introduction to the debugger.
+
+=head1 The Perl Debugger
+
+If you invoke Perl with the B<-d> switch, your script runs under the
+Perl source debugger.  This works like an interactive Perl
+environment, prompting for debugger commands that let you examine
+source code, set breakpoints, get stack backtraces, change the values of
+variables, etc.  This is so convenient that you often fire up
+the debugger all by itself just to test out Perl constructs
+interactively to see what they do.  For example:
+X<-d>
+
+    $ perl -d -e 42
+
+In Perl, the debugger is not a separate program the way it usually is in the
+typical compiled environment.  Instead, the B<-d> flag tells the compiler
+to insert source information into the parse trees it's about to hand off
+to the interpreter.  That means your code must first compile correctly
+for the debugger to work on it.  Then when the interpreter starts up, it
+preloads a special Perl library file containing the debugger.
+
+The program will halt I<right before> the first run-time executable
+statement (but see below regarding compile-time statements) and ask you
+to enter a debugger command.  Contrary to popular expectations, whenever
+the debugger halts and shows you a line of code, it always displays the
+line it's I<about> to execute, rather than the one it has just executed.
+
+Any command not recognized by the debugger is directly executed
+(C<eval>'d) as Perl code in the current package.  (The debugger
+uses the DB package for keeping its own state information.)
+
+Note that the said C<eval> is bound by an implicit scope. As a
+result any newly introduced lexical variable or any modified
+capture buffer content is lost after the eval. The debugger is a
+nice environment to learn Perl, but if you interactively experiment using
+material which should be in the same scope, stuff it in one line.
+
+For any text entered at the debugger prompt, leading and trailing whitespace
+is first stripped before further processing.  If a debugger command
+coincides with some function in your own program, merely precede the
+function with something that doesn't look like a debugger command, such
+as a leading C<;> or perhaps a C<+>, or by wrapping it with parentheses
+or braces.
+
+=head2 Calling the Debugger
+
+There are several ways to call the debugger:
+
+=over 4
+
+=item perl -d program_name
+
+On the given program identified by C<program_name>.
+
+=item perl -d -e 0 
+
+Interactively supply an arbitrary C<expression> using C<-e>.
+
+=item perl -d:ptkdb program_name
+
+Debug a given program via the C<Devel::ptkdb> GUI.
+
+=item perl -dt threaded_program_name
+
+Debug a given program using threads (experimental).
+
+=back
+
+=head2 Debugger Commands
+
+The interactive debugger understands the following commands:
+
+=over 12
+
+=item h
+X<debugger command, h>
+
+Prints out a summary help message
+
+=item h [command]
+
+Prints out a help message for the given debugger command.
+
+=item h h
+
+The special argument of C<h h> produces the entire help page, which is quite long.
+
+If the output of the C<h h> command (or any command, for that matter) scrolls
+past your screen, precede the command with a leading pipe symbol so
+that it's run through your pager, as in
+
+    DB> |h h
+
+You may change the pager which is used via C<o pager=...> command.
+
+=item p expr
+X<debugger command, p>
+
+Same as C<print {$DB::OUT} expr> in the current package.  In particular,
+because this is just Perl's own C<print> function, this means that nested
+data structures and objects are not dumped, unlike with the C<x> command.
+
+The C<DB::OUT> filehandle is opened to F</dev/tty>, regardless of
+where STDOUT may be redirected to.
+
+=item x [maxdepth] expr
+X<debugger command, x>
+
+Evaluates its expression in list context and dumps out the result in a
+pretty-printed fashion.  Nested data structures are printed out
+recursively, unlike the real C<print> function in Perl.  When dumping
+hashes, you'll probably prefer 'x \%h' rather than 'x %h'.
+See L<Dumpvalue> if you'd like to do this yourself.
+
+The output format is governed by multiple options described under
+L<"Configurable Options">.
+
+If the C<maxdepth> is included, it must be a numeral I<N>; the value is
+dumped only I<N> levels deep, as if the C<dumpDepth> option had been
+temporarily set to I<N>.
+
+=item V [pkg [vars]]
+X<debugger command, V>
+
+Display all (or some) variables in package (defaulting to C<main>)
+using a data pretty-printer (hashes show their keys and values so
+you see what's what, control characters are made printable, etc.).
+Make sure you don't put the type specifier (like C<$>) there, just
+the symbol names, like this:
+
+    V DB filename line
+
+Use C<~pattern> and C<!pattern> for positive and negative regexes.
+
+This is similar to calling the C<x> command on each applicable var.
+
+=item X [vars]
+X<debugger command, X>
+
+Same as C<V currentpackage [vars]>.
+
+=item y [level [vars]]
+X<debugger command, y>
+
+Display all (or some) lexical variables (mnemonic: C<mY> variables)
+in the current scope or I<level> scopes higher.  You can limit the
+variables that you see with I<vars> which works exactly as it does
+for the C<V> and C<X> commands.  Requires the C<PadWalker> module
+version 0.08 or higher; will warn if this isn't installed.  Output
+is pretty-printed in the same style as for C<V> and the format is
+controlled by the same options.
+
+=item T
+X<debugger command, T> X<backtrace> X<stack, backtrace>
+
+Produce a stack backtrace.  See below for details on its output.
+
+=item s [expr]
+X<debugger command, s> X<step>
+
+Single step.  Executes until the beginning of another
+statement, descending into subroutine calls.  If an expression is
+supplied that includes function calls, it too will be single-stepped.
+
+=item n [expr]
+X<debugger command, n>
+
+Next.  Executes over subroutine calls, until the beginning
+of the next statement.  If an expression is supplied that includes
+function calls, those functions will be executed with stops before
+each statement.
+
+=item r
+X<debugger command, r>
+
+Continue until the return from the current subroutine.
+Dump the return value if the C<PrintRet> option is set (default).
+
+=item <CR>
+
+Repeat last C<n> or C<s> command.
+
+=item c [line|sub]
+X<debugger command, c>
+
+Continue, optionally inserting a one-time-only breakpoint
+at the specified line or subroutine.
+
+=item l
+X<debugger command, l>
+
+List next window of lines.
+
+=item l min+incr
+
+List C<incr+1> lines starting at C<min>.
+
+=item l min-max
+
+List lines C<min> through C<max>.  C<l -> is synonymous to C<->.
+
+=item l line
+
+List a single line.
+
+=item l subname
+
+List first window of lines from subroutine.  I<subname> may
+be a variable that contains a code reference.
+
+=item -
+X<debugger command, ->
+
+List previous window of lines.
+
+=item v [line]
+X<debugger command, v>
+
+View a few lines of code around the current line.
+
+=item .
+X<debugger command, .>
+
+Return the internal debugger pointer to the line last
+executed, and print out that line.
+
+=item f filename
+X<debugger command, f>
+
+Switch to viewing a different file or C<eval> statement.  If I<filename>
+is not a full pathname found in the values of %INC, it is considered
+a regex.
+
+C<eval>ed strings (when accessible) are considered to be filenames:
+C<f (eval 7)> and C<f eval 7\b> access the body of the 7th C<eval>ed string
+(in the order of execution).  The bodies of the currently executed C<eval>
+and of C<eval>ed strings that define subroutines are saved and thus
+accessible.
+
+=item /pattern/
+
+Search forwards for pattern (a Perl regex); final / is optional.
+The search is case-insensitive by default.
+
+=item ?pattern?
+
+Search backwards for pattern; final ? is optional.
+The search is case-insensitive by default.
+
+=item L [abw]
+X<debugger command, L>
+
+List (default all) actions, breakpoints and watch expressions
+
+=item S [[!]regex]
+X<debugger command, S>
+
+List subroutine names [not] matching the regex.
+
+=item t [n]
+X<debugger command, t>
+
+Toggle trace mode (see also the C<AutoTrace> option).
+Optional argument is the maximum number of levels to trace below
+the current one; anything deeper than that will be silent.
+
+=item t [n] expr
+X<debugger command, t>
+
+Trace through execution of C<expr>.
+Optional first argument is the maximum number of levels to trace below
+the current one; anything deeper than that will be silent.
+See L<perldebguts/"Frame Listing Output Examples"> for examples.
+
+=item b
+X<breakpoint>
+X<debugger command, b>
+
+Sets breakpoint on current line
+
+=item b [line] [condition]
+X<breakpoint>
+X<debugger command, b>
+
+Set a breakpoint before the given line.  If a condition
+is specified, it's evaluated each time the statement is reached: a
+breakpoint is taken only if the condition is true.  Breakpoints may
+only be set on lines that begin an executable statement.  Conditions
+don't use C<if>:
+
+    b 237 $x > 30
+    b 237 ++$count237 < 11
+    b 33 /pattern/i
+
+If the line number is C<.>, sets a breakpoint on the current line:
+
+    b . $n > 100
+
+=item b [file]:[line] [condition]
+X<breakpoint>
+X<debugger command, b>
+
+Set a breakpoint before the given line in a (possibly different) file.  If a
+condition is specified, it's evaluated each time the statement is reached: a
+breakpoint is taken only if the condition is true.  Breakpoints may only be set
+on lines that begin an executable statement.  Conditions don't use C<if>:
+
+    b lib/MyModule.pm:237 $x > 30
+    b /usr/lib/perl5/site_perl/CGI.pm:100 ++$count100 < 11
+
+=item b subname [condition]
+X<breakpoint>
+X<debugger command, b>
+
+Set a breakpoint before the first line of the named subroutine.  I<subname> may
+be a variable containing a code reference (in this case I<condition>
+is not supported).
+
+=item b postpone subname [condition]
+X<breakpoint>
+X<debugger command, b>
+
+Set a breakpoint at first line of subroutine after it is compiled.
+
+=item b load filename
+X<breakpoint>
+X<debugger command, b>
+
+Set a breakpoint before the first executed line of the I<filename>,
+which should be a full pathname found amongst the %INC values.
+
+=item b compile subname
+X<breakpoint>
+X<debugger command, b>
+
+Sets a breakpoint before the first statement executed after the specified
+subroutine is compiled.
+
+=item B line
+X<breakpoint>
+X<debugger command, B>
+
+Delete a breakpoint from the specified I<line>.
+
+=item B *
+X<breakpoint>
+X<debugger command, B>
+
+Delete all installed breakpoints.
+
+=item disable [file]:[line]
+X<breakpoint>
+X<debugger command, disable>
+X<disable>
+
+Disable the breakpoint so it won't stop the execution of the program. 
+Breakpoints are enabled by default and can be re-enabled using the C<enable>
+command.
+
+=item disable [line]
+X<breakpoint>
+X<debugger command, disable>
+X<disable>
+
+Disable the breakpoint so it won't stop the execution of the program. 
+Breakpoints are enabled by default and can be re-enabled using the C<enable>
+command.
+
+This is done for a breakpoint in the current file.
+
+=item enable [file]:[line]
+X<breakpoint>
+X<debugger command, disable>
+X<disable>
+
+Enable the breakpoint so it will stop the execution of the program. 
+
+=item enable [line]
+X<breakpoint>
+X<debugger command, disable>
+X<disable>
+
+Enable the breakpoint so it will stop the execution of the program. 
+
+This is done for a breakpoint in the current file.
+
+=item a [line] command
+X<debugger command, a>
+
+Set an action to be done before the line is executed.  If I<line> is
+omitted, set an action on the line about to be executed.
+The sequence of steps taken by the debugger is
+
+  1. check for a breakpoint at this line
+  2. print the line if necessary (tracing)
+  3. do any actions associated with that line
+  4. prompt user if at a breakpoint or in single-step
+  5. evaluate line
+
+For example, this will print out $foo every time line
+53 is passed:
+
+    a 53 print "DB FOUND $foo\n"
+
+=item A line
+X<debugger command, A>
+
+Delete an action from the specified line.
+
+=item A *
+X<debugger command, A>
+
+Delete all installed actions.
+
+=item w expr
+X<debugger command, w>
+
+Add a global watch-expression. Whenever a watched global changes the
+debugger will stop and display the old and new values.
+
+=item W expr
+X<debugger command, W>
+
+Delete watch-expression
+
+=item W *
+X<debugger command, W>
+
+Delete all watch-expressions.
+
+=item o
+X<debugger command, o>
+
+Display all options.
+
+=item o booloption ...
+X<debugger command, o>
+
+Set each listed Boolean option to the value C<1>.
+
+=item o anyoption? ...
+X<debugger command, o>
+
+Print out the value of one or more options.
+
+=item o option=value ...
+X<debugger command, o>
+
+Set the value of one or more options.  If the value has internal
+whitespace, it should be quoted.  For example, you could set C<o
+pager="less -MQeicsNfr"> to call B<less> with those specific options.
+You may use either single or double quotes, but if you do, you must
+escape any embedded instances of same sort of quote you began with,
+as well as any escaping any escapes that immediately precede that
+quote but which are not meant to escape the quote itself.  In other
+words, you follow single-quoting rules irrespective of the quote;
+eg: C<o option='this isn\'t bad'> or C<o option="She said, \"Isn't
+it?\"">.
+
+For historical reasons, the C<=value> is optional, but defaults to
+1 only where it is safe to do so--that is, mostly for Boolean
+options.  It is always better to assign a specific value using C<=>.
+The C<option> can be abbreviated, but for clarity probably should
+not be.  Several options can be set together.  See L<"Configurable Options">
+for a list of these.
+
+=item < ?
+X<< debugger command, < >>
+
+List out all pre-prompt Perl command actions.
+
+=item < [ command ]
+X<< debugger command, < >>
+
+Set an action (Perl command) to happen before every debugger prompt.
+A multi-line command may be entered by backslashing the newlines.
+
+=item < *
+X<< debugger command, < >>
+
+Delete all pre-prompt Perl command actions.
+
+=item << command
+X<< debugger command, << >>
+
+Add an action (Perl command) to happen before every debugger prompt.
+A multi-line command may be entered by backwhacking the newlines.
+
+=item > ?
+X<< debugger command, > >>
+
+List out post-prompt Perl command actions.
+
+=item > command
+X<< debugger command, > >>
+
+Set an action (Perl command) to happen after the prompt when you've
+just given a command to return to executing the script.  A multi-line
+command may be entered by backslashing the newlines (we bet you
+couldn't have guessed this by now).
+
+=item > *
+X<< debugger command, > >>
+
+Delete all post-prompt Perl command actions.
+
+=item >> command
+X<<< debugger command, >> >>>
+
+Adds an action (Perl command) to happen after the prompt when you've
+just given a command to return to executing the script.  A multi-line
+command may be entered by backslashing the newlines.
+
+=item { ?
+X<debugger command, {>
+
+List out pre-prompt debugger commands.
+
+=item { [ command ]
+
+Set an action (debugger command) to happen before every debugger prompt.
+A multi-line command may be entered in the customary fashion.
+
+Because this command is in some senses new, a warning is issued if
+you appear to have accidentally entered a block instead.  If that's
+what you mean to do, write it as with C<;{ ... }> or even
+C<do { ... }>.
+
+=item { *
+X<debugger command, {>
+
+Delete all pre-prompt debugger commands.
+
+=item {{ command
+X<debugger command, {{>
+
+Add an action (debugger command) to happen before every debugger prompt.
+A multi-line command may be entered, if you can guess how: see above.
+
+=item ! number
+X<debugger command, !>
+
+Redo a previous command (defaults to the previous command).
+
+=item ! -number
+X<debugger command, !>
+
+Redo number'th previous command.
+
+=item ! pattern
+X<debugger command, !>
+
+Redo last command that started with pattern.
+See C<o recallCommand>, too.
+
+=item !! cmd
+X<debugger command, !!>
+
+Run cmd in a subprocess (reads from DB::IN, writes to DB::OUT) See
+C<o shellBang>, also.  Note that the user's current shell (well,
+their C<$ENV{SHELL}> variable) will be used, which can interfere
+with proper interpretation of exit status or signal and coredump
+information.
+
+=item source file
+X<debugger command, source>
+
+Read and execute debugger commands from I<file>.
+I<file> may itself contain C<source> commands.
+
+=item H -number
+X<debugger command, H>
+
+Display last n commands.  Only commands longer than one character are
+listed.  If I<number> is omitted, list them all.
+
+=item q or ^D
+X<debugger command, q>
+X<debugger command, ^D>
+
+Quit.  ("quit" doesn't work for this, unless you've made an alias)
+This is the only supported way to exit the debugger, though typing
+C<exit> twice might work.
+
+Set the C<inhibit_exit> option to 0 if you want to be able to step
+off the end the script.  You may also need to set $finished to 0
+if you want to step through global destruction.
+
+=item R
+X<debugger command, R>
+
+Restart the debugger by C<exec()>ing a new session.  We try to maintain
+your history across this, but internal settings and command-line options
+may be lost.
+
+The following setting are currently preserved: history, breakpoints,
+actions, debugger options, and the Perl command-line
+options B<-w>, B<-I>, and B<-e>.
+
+=item |dbcmd
+X<debugger command, |>
+
+Run the debugger command, piping DB::OUT into your current pager.
+
+=item ||dbcmd
+X<debugger command, ||>
+
+Same as C<|dbcmd> but DB::OUT is temporarily C<select>ed as well.
+
+=item = [alias value]
+X<debugger command, =>
+
+Define a command alias, like
+
+    = quit q
+
+or list current aliases.
+
+=item command
+
+Execute command as a Perl statement.  A trailing semicolon will be
+supplied.  If the Perl statement would otherwise be confused for a
+Perl debugger, use a leading semicolon, too.
+
+=item m expr
+X<debugger command, m>
+
+List which methods may be called on the result of the evaluated
+expression.  The expression may evaluated to a reference to a
+blessed object, or to a package name.
+
+=item M
+X<debugger command, M>
+
+Display all loaded modules and their versions.
+
+=item man [manpage]
+X<debugger command, man>
+
+Despite its name, this calls your system's default documentation
+viewer on the given page, or on the viewer itself if I<manpage> is
+omitted.  If that viewer is B<man>, the current C<Config> information
+is used to invoke B<man> using the proper MANPATH or S<B<-M>
+I<manpath>> option.  Failed lookups of the form C<XXX> that match
+known manpages of the form I<perlXXX> will be retried.  This lets
+you type C<man debug> or C<man op> from the debugger.
+
+On systems traditionally bereft of a usable B<man> command, the
+debugger invokes B<perldoc>.  Occasionally this determination is
+incorrect due to recalcitrant vendors or rather more felicitously,
+to enterprising users.  If you fall into either category, just
+manually set the $DB::doccmd variable to whatever viewer to view
+the Perl documentation on your system.  This may be set in an rc
+file, or through direct assignment.  We're still waiting for a
+working example of something along the lines of:
+
+    $DB::doccmd = 'netscape -remote http://something.here/';
+
+=back
+
+=head2 Configurable Options
+
+The debugger has numerous options settable using the C<o> command,
+either interactively or from the environment or an rc file.
+(./.perldb or ~/.perldb under Unix.)
+
+
+=over 12
+
+=item C<recallCommand>, C<ShellBang>
+X<debugger option, recallCommand>
+X<debugger option, ShellBang>
+
+The characters used to recall a command or spawn a shell.  By
+default, both are set to C<!>, which is unfortunate.
+
+=item C<pager>
+X<debugger option, pager>
+
+Program to use for output of pager-piped commands (those beginning
+with a C<|> character.)  By default, C<$ENV{PAGER}> will be used.
+Because the debugger uses your current terminal characteristics
+for bold and underlining, if the chosen pager does not pass escape
+sequences through unchanged, the output of some debugger commands
+will not be readable when sent through the pager.
+
+=item C<tkRunning>
+X<debugger option, tkRunning>
+
+Run Tk while prompting (with ReadLine).
+
+=item C<signalLevel>, C<warnLevel>, C<dieLevel>
+X<debugger option, signalLevel> X<debugger option, warnLevel>
+X<debugger option, dieLevel>
+
+Level of verbosity.  By default, the debugger leaves your exceptions
+and warnings alone, because altering them can break correctly running
+programs.  It will attempt to print a message when uncaught INT, BUS, or
+SEGV signals arrive.  (But see the mention of signals in L</BUGS> below.)
+
+To disable this default safe mode, set these values to something higher
+than 0.  At a level of 1, you get backtraces upon receiving any kind
+of warning (this is often annoying) or exception (this is
+often valuable).  Unfortunately, the debugger cannot discern fatal
+exceptions from non-fatal ones.  If C<dieLevel> is even 1, then your
+non-fatal exceptions are also traced and unceremoniously altered if they
+came from C<eval'ed> strings or from any kind of C<eval> within modules
+you're attempting to load.  If C<dieLevel> is 2, the debugger doesn't
+care where they came from:  It usurps your exception handler and prints
+out a trace, then modifies all exceptions with its own embellishments.
+This may perhaps be useful for some tracing purposes, but tends to hopelessly
+destroy any program that takes its exception handling seriously.
+
+=item C<AutoTrace>
+X<debugger option, AutoTrace>
+
+Trace mode (similar to C<t> command, but can be put into
+C<PERLDB_OPTS>).
+
+=item C<LineInfo>
+X<debugger option, LineInfo>
+
+File or pipe to print line number info to.  If it is a pipe (say,
+C<|visual_perl_db>), then a short message is used.  This is the
+mechanism used to interact with a slave editor or visual debugger,
+such as the special C<vi> or C<emacs> hooks, or the C<ddd> graphical
+debugger.
+
+=item C<inhibit_exit>
+X<debugger option, inhibit_exit>
+
+If 0, allows I<stepping off> the end of the script.
+
+=item C<PrintRet>
+X<debugger option, PrintRet>
+
+Print return value after C<r> command if set (default).
+
+=item C<ornaments>
+X<debugger option, ornaments>
+
+Affects screen appearance of the command line (see L<Term::ReadLine>).
+There is currently no way to disable these, which can render
+some output illegible on some displays, or with some pagers.
+This is considered a bug.
+
+=item C<frame>
+X<debugger option, frame>
+
+Affects the printing of messages upon entry and exit from subroutines.  If
+C<frame & 2> is false, messages are printed on entry only. (Printing
+on exit might be useful if interspersed with other messages.)
+
+If C<frame & 4>, arguments to functions are printed, plus context
+and caller info.  If C<frame & 8>, overloaded C<stringify> and
+C<tie>d C<FETCH> is enabled on the printed arguments.  If C<frame
+& 16>, the return value from the subroutine is printed.
+
+The length at which the argument list is truncated is governed by the
+next option:
+
+=item C<maxTraceLen>
+X<debugger option, maxTraceLen>
+
+Length to truncate the argument list when the C<frame> option's
+bit 4 is set.
+
+=item C<windowSize>
+X<debugger option, windowSize>
+
+Change the size of code list window (default is 10 lines).
+
+=back
+
+The following options affect what happens with C<V>, C<X>, and C<x>
+commands:
+
+=over 12
+
+=item C<arrayDepth>, C<hashDepth>
+X<debugger option, arrayDepth> X<debugger option, hashDepth>
+
+Print only first N elements ('' for all).
+
+=item C<dumpDepth>
+X<debugger option, dumpDepth>
+
+Limit recursion depth to N levels when dumping structures.
+Negative values are interpreted as infinity.  Default: infinity.
+
+=item C<compactDump>, C<veryCompact>
+X<debugger option, compactDump> X<debugger option, veryCompact>
+
+Change the style of array and hash output.  If C<compactDump>, short array
+may be printed on one line.
+
+=item C<globPrint>
+X<debugger option, globPrint>
+
+Whether to print contents of globs.
+
+=item C<DumpDBFiles>
+X<debugger option, DumpDBFiles>
+
+Dump arrays holding debugged files.
+
+=item C<DumpPackages>
+X<debugger option, DumpPackages>
+
+Dump symbol tables of packages.
+
+=item C<DumpReused>
+X<debugger option, DumpReused>
+
+Dump contents of "reused" addresses.
+
+=item C<quote>, C<HighBit>, C<undefPrint>
+X<debugger option, quote> X<debugger option, HighBit>
+X<debugger option, undefPrint>
+
+Change the style of string dump.  The default value for C<quote>
+is C<auto>; one can enable double-quotish or single-quotish format
+by setting it to C<"> or C<'>, respectively.  By default, characters
+with their high bit set are printed verbatim.
+
+=item C<UsageOnly>
+X<debugger option, UsageOnly>
+
+Rudimentary per-package memory usage dump.  Calculates total
+size of strings found in variables in the package.  This does not
+include lexicals in a module's file scope, or lost in closures.
+
+=item C<HistFile>
+X<debugger option, history, HistFile>
+
+The path of the file from which the history (assuming a usable
+Term::ReadLine backend) will be read on the debugger's startup, and to which
+it will be saved on shutdown (for persistence across sessions). Similar in
+concept to Bash's C<.bash_history> file.
+
+=item C<HistSize>
+X<debugger option, history, HistSize>
+
+The count of the saved lines in the history (assuming C<HistFile> above).
+
+=back
+
+After the rc file is read, the debugger reads the C<$ENV{PERLDB_OPTS}>
+environment variable and parses this as the remainder of a "O ..."
+line as one might enter at the debugger prompt.  You may place the
+initialization options C<TTY>, C<noTTY>, C<ReadLine>, and C<NonStop>
+there.
+
+If your rc file contains:
+
+  parse_options("NonStop=1 LineInfo=db.out AutoTrace");
+
+then your script will run without human intervention, putting trace
+information into the file I<db.out>.  (If you interrupt it, you'd
+better reset C<LineInfo> to F</dev/tty> if you expect to see anything.)
+
+=over 12
+
+=item C<TTY>
+X<debugger option, TTY>
+
+The TTY to use for debugging I/O.
+
+=item C<noTTY>
+X<debugger option, noTTY>
+
+If set, the debugger goes into C<NonStop> mode and will not connect to a TTY.  If
+interrupted (or if control goes to the debugger via explicit setting of
+$DB::signal or $DB::single from the Perl script), it connects to a TTY
+specified in the C<TTY> option at startup, or to a tty found at
+runtime using the C<Term::Rendezvous> module of your choice.
+
+This module should implement a method named C<new> that returns an object
+with two methods: C<IN> and C<OUT>.  These should return filehandles to use
+for debugging input and output correspondingly.  The C<new> method should
+inspect an argument containing the value of C<$ENV{PERLDB_NOTTY}> at
+startup, or C<"$ENV{HOME}/.perldbtty$$"> otherwise.  This file is not
+inspected for proper ownership, so security hazards are theoretically
+possible.
+
+=item C<ReadLine>
+X<debugger option, ReadLine>
+
+If false, readline support in the debugger is disabled in order
+to debug applications that themselves use ReadLine.
+
+=item C<NonStop>
+X<debugger option, NonStop>
+
+If set, the debugger goes into non-interactive mode until interrupted, or
+programmatically by setting $DB::signal or $DB::single.
+
+=back
+
+Here's an example of using the C<$ENV{PERLDB_OPTS}> variable:
+
+    $ PERLDB_OPTS="NonStop frame=2" perl -d myprogram
+
+That will run the script B<myprogram> without human intervention,
+printing out the call tree with entry and exit points.  Note that
+C<NonStop=1 frame=2> is equivalent to C<N f=2>, and that originally,
+options could be uniquely abbreviated by the first letter (modulo
+the C<Dump*> options).  It is nevertheless recommended that you
+always spell them out in full for legibility and future compatibility.
+
+Other examples include
+
+    $ PERLDB_OPTS="NonStop LineInfo=listing frame=2" perl -d myprogram
+
+which runs script non-interactively, printing info on each entry
+into a subroutine and each executed line into the file named F<listing>.
+(If you interrupt it, you would better reset C<LineInfo> to something
+"interactive"!)
+
+Other examples include (using standard shell syntax to show environment
+variable settings):
+
+  $ ( PERLDB_OPTS="NonStop frame=1 AutoTrace LineInfo=tperl.out"
+      perl -d myprogram )
+
+which may be useful for debugging a program that uses C<Term::ReadLine>
+itself.  Do not forget to detach your shell from the TTY in the window that
+corresponds to F</dev/ttyXX>, say, by issuing a command like
+
+  $ sleep 1000000
+
+See L<perldebguts/"Debugger Internals"> for details.
+
+=head2 Debugger Input/Output
+
+=over 8
+
+=item Prompt
+
+The debugger prompt is something like
+
+    DB<8>
+
+or even
+
+    DB<<17>>
+
+where that number is the command number, and which you'd use to
+access with the built-in B<csh>-like history mechanism.  For example,
+C<!17> would repeat command number 17.  The depth of the angle
+brackets indicates the nesting depth of the debugger.  You could
+get more than one set of brackets, for example, if you'd already
+at a breakpoint and then printed the result of a function call that
+itself has a breakpoint, or you step into an expression via C<s/n/t
+expression> command.
+
+=item Multiline commands
+
+If you want to enter a multi-line command, such as a subroutine
+definition with several statements or a format, escape the newline
+that would normally end the debugger command with a backslash.
+Here's an example:
+
+      DB<1> for (1..4) {         \
+      cont:     print "ok\n";   \
+      cont: }
+      ok
+      ok
+      ok
+      ok
+
+Note that this business of escaping a newline is specific to interactive
+commands typed into the debugger.
+
+=item Stack backtrace
+X<backtrace> X<stack, backtrace>
+
+Here's an example of what a stack backtrace via C<T> command might
+look like:
+
+ $ = main::infested called from file 'Ambulation.pm' line 10
+ @ = Ambulation::legs(1, 2, 3, 4) called from file 'camel_flea'
+                                                          line 7
+ $ = main::pests('bactrian', 4) called from file 'camel_flea'
+                                                          line 4
+
+The left-hand character up there indicates the context in which the
+function was called, with C<$> and C<@> meaning scalar or list
+contexts respectively, and C<.> meaning void context (which is
+actually a sort of scalar context).  The display above says
+that you were in the function C<main::infested> when you ran the
+stack dump, and that it was called in scalar context from line
+10 of the file I<Ambulation.pm>, but without any arguments at all,
+meaning it was called as C<&infested>.  The next stack frame shows
+that the function C<Ambulation::legs> was called in list context
+from the I<camel_flea> file with four arguments.  The last stack
+frame shows that C<main::pests> was called in scalar context,
+also from I<camel_flea>, but from line 4.
+
+If you execute the C<T> command from inside an active C<use>
+statement, the backtrace will contain both a C<require> frame and
+an C<eval> frame.
+
+=item Line Listing Format
+
+This shows the sorts of output the C<l> command can produce:
+
+   DB<<13>> l
+ 101:        @i{@i} = ();
+ 102:b       @isa{@i,$pack} = ()
+ 103             if(exists $i{$prevpack} || exists $isa{$pack});
+ 104     }
+ 105
+ 106     next
+ 107==>      if(exists $isa{$pack});
+ 108
+ 109:a   if ($extra-- > 0) {
+ 110:        %isa = ($pack,1);
+
+Breakable lines are marked with C<:>.  Lines with breakpoints are
+marked by C<b> and those with actions by C<a>.  The line that's
+about to be executed is marked by C<< ==> >>.
+
+Please be aware that code in debugger listings may not look the same
+as your original source code.  Line directives and external source
+filters can alter the code before Perl sees it, causing code to move
+from its original positions or take on entirely different forms.
+
+=item Frame listing
+
+When the C<frame> option is set, the debugger would print entered (and
+optionally exited) subroutines in different styles.  See L<perldebguts>
+for incredibly long examples of these.
+
+=back
+
+=head2 Debugging Compile-Time Statements
+
+If you have compile-time executable statements (such as code within
+BEGIN, UNITCHECK and CHECK blocks or C<use> statements), these will
+I<not> be stopped by debugger, although C<require>s and INIT blocks
+will, and compile-time statements can be traced with the C<AutoTrace>
+option set in C<PERLDB_OPTS>).  From your own Perl code, however, you
+can transfer control back to the debugger using the following
+statement, which is harmless if the debugger is not running:
+
+    $DB::single = 1;
+
+If you set C<$DB::single> to 2, it's equivalent to having
+just typed the C<n> command, whereas a value of 1 means the C<s>
+command.  The C<$DB::trace>  variable should be set to 1 to simulate
+having typed the C<t> command.
+
+Another way to debug compile-time code is to start the debugger, set a
+breakpoint on the I<load> of some module:
+
+    DB<7> b load f:/perllib/lib/Carp.pm
+  Will stop on load of 'f:/perllib/lib/Carp.pm'.
+
+and then restart the debugger using the C<R> command (if possible).  One can use C<b
+compile subname> for the same purpose.
+
+=head2 Debugger Customization
+
+The debugger probably contains enough configuration hooks that you
+won't ever have to modify it yourself.  You may change the behaviour
+of the debugger from within the debugger using its C<o> command, from
+the command line via the C<PERLDB_OPTS> environment variable, and
+from customization files.
+
+You can do some customization by setting up a F<.perldb> file, which
+contains initialization code.  For instance, you could make aliases
+like these (the last one is one people expect to be there):
+
+    $DB::alias{'len'}  = 's/^len(.*)/p length($1)/';
+    $DB::alias{'stop'} = 's/^stop (at|in)/b/';
+    $DB::alias{'ps'}   = 's/^ps\b/p scalar /';
+    $DB::alias{'quit'} = 's/^quit(\s*)/exit/';
+
+You can change options from F<.perldb> by using calls like this one;
+
+    parse_options("NonStop=1 LineInfo=db.out AutoTrace=1 frame=2");
+
+The code is executed in the package C<DB>.  Note that F<.perldb> is
+processed before processing C<PERLDB_OPTS>.  If F<.perldb> defines the
+subroutine C<afterinit>, that function is called after debugger
+initialization ends.  F<.perldb> may be contained in the current
+directory, or in the home directory.  Because this file is sourced
+in by Perl and may contain arbitrary commands, for security reasons,
+it must be owned by the superuser or the current user, and writable
+by no one but its owner.
+
+You can mock TTY input to debugger by adding arbitrary commands to
+@DB::typeahead. For example, your F<.perldb> file might contain:
+
+    sub afterinit { push @DB::typeahead, "b 4", "b 6"; }
+
+Which would attempt to set breakpoints on lines 4 and 6 immediately
+after debugger initialization. Note that @DB::typeahead is not a supported
+interface and is subject to change in future releases.
+
+If you want to modify the debugger, copy F<perl5db.pl> from the
+Perl library to another name and hack it to your heart's content.
+You'll then want to set your C<PERL5DB> environment variable to say
+something like this:
+
+    BEGIN { require "myperl5db.pl" }
+
+As a last resort, you could also use C<PERL5DB> to customize the debugger
+by directly setting internal variables or calling debugger functions.
+
+Note that any variables and functions that are not documented in
+this document (or in L<perldebguts>) are considered for internal
+use only, and as such are subject to change without notice.
+
+=head2 Readline Support / History in the Debugger
+
+As shipped, the only command-line history supplied is a simplistic one
+that checks for leading exclamation points.  However, if you install
+the Term::ReadKey and Term::ReadLine modules from CPAN (such as
+Term::ReadLine::Gnu, Term::ReadLine::Perl, ...) you will
+have full editing capabilities much like those GNU I<readline>(3) provides.
+Look for these in the F<modules/by-module/Term> directory on CPAN.
+These do not support normal B<vi> command-line editing, however.
+
+A rudimentary command-line completion is also available, including
+lexical variables in the current scope if the C<PadWalker> module
+is installed.
+
+Without Readline support you may see the symbols "^[[A", "^[[C", "^[[B",
+"^[[D"", "^H", ... when using the arrow keys and/or the backspace key.
+
+=head2 Editor Support for Debugging
+
+If you have the GNU's version of B<emacs> installed on your system,
+it can interact with the Perl debugger to provide an integrated
+software development environment reminiscent of its interactions
+with C debuggers.
+
+Recent versions of Emacs come with a
+start file for making B<emacs> act like a
+syntax-directed editor that understands (some of) Perl's syntax.
+See L<perlfaq3>.
+
+Users of B<vi> should also look into B<vim> and B<gvim>, the mousey
+and windy version, for coloring of Perl keywords.
+
+Note that only perl can truly parse Perl, so all such CASE tools
+fall somewhat short of the mark, especially if you don't program
+your Perl as a C programmer might.
+
+=head2 The Perl Profiler
+X<profile> X<profiling> X<profiler>
+
+If you wish to supply an alternative debugger for Perl to run,
+invoke your script with a colon and a package argument given to the
+B<-d> flag.  Perl's alternative debuggers include a Perl profiler,
+L<Devel::NYTProf>, which is available separately as a CPAN
+distribution.  To profile your Perl program in the file F<mycode.pl>,
+just type:
+
+    $ perl -d:NYTProf mycode.pl
+
+When the script terminates the profiler will create a database of the
+profile information that you can turn into reports using the profiler's
+tools. See <perlperf> for details.
+
+=head1 Debugging Regular Expressions
+X<regular expression, debugging>
+X<regex, debugging> X<regexp, debugging>
+
+C<use re 'debug'> enables you to see the gory details of how the Perl
+regular expression engine works. In order to understand this typically
+voluminous output, one must not only have some idea about how regular
+expression matching works in general, but also know how Perl's regular
+expressions are internally compiled into an automaton. These matters
+are explored in some detail in
+L<perldebguts/"Debugging Regular Expressions">.
+
+=head1 Debugging Memory Usage
+X<memory usage>
+
+Perl contains internal support for reporting its own memory usage,
+but this is a fairly advanced concept that requires some understanding
+of how memory allocation works.
+See L<perldebguts/"Debugging Perl Memory Usage"> for the details.
+
+=head1 SEE ALSO
+
+You do have C<use strict> and C<use warnings> enabled, don't you?
+
+L<perldebtut>,
+L<perldebguts>,
+L<re>,
+L<DB>,
+L<Devel::NYTProf>,
+L<Dumpvalue>,
+and
+L<perlrun>.
+
+When debugging a script that uses #! and is thus normally found in
+$PATH, the -S option causes perl to search $PATH for it, so you don't
+have to type the path or C<which $scriptname>.
+
+  $ perl -Sd foo.pl
+
+=head1 BUGS
+
+You cannot get stack frame information or in any fashion debug functions
+that were not compiled by Perl, such as those from C or C++ extensions.
+
+If you alter your @_ arguments in a subroutine (such as with C<shift>
+or C<pop>), the stack backtrace will not show the original values.
+
+The debugger does not currently work in conjunction with the B<-W>
+command-line switch, because it itself is not free of warnings.
+
+If you're in a slow syscall (like C<wait>ing, C<accept>ing, or C<read>ing
+from your keyboard or a socket) and haven't set up your own C<$SIG{INT}>
+handler, then you won't be able to CTRL-C your way back to the debugger,
+because the debugger's own C<$SIG{INT}> handler doesn't understand that
+it needs to raise an exception to longjmp(3) out of slow syscalls.
diff --git a/lib/5.24.1/pod/perldelta.pod b/lib/5.24.1/pod/perldelta.pod
new file mode 100644
index 00000000..0608c024
--- /dev/null
+++ b/lib/5.24.1/pod/perldelta.pod
@@ -0,0 +1,308 @@
+=encoding utf8
+
+=head1 NAME
+
+perldelta - what is new for perl v5.24.1
+
+=head1 DESCRIPTION
+
+This document describes differences between the 5.24.0 release and the 5.24.1
+release.
+
+If you are upgrading from an earlier release such as 5.22.0, first read
+L<perl5240delta>, which describes differences between 5.22.0 and 5.24.0.
+
+=head1 Security
+
+=head2 B<-Di> switch is now required for PerlIO debugging output
+
+Previously PerlIO debugging output would be sent to the file specified by the
+C<PERLIO_DEBUG> environment variable if perl wasn't running setuid and the
+B<-T> or B<-t> switches hadn't been parsed yet.
+
+If perl performed output at a point where it hadn't yet parsed its switches
+this could result in perl creating or overwriting the file named by
+C<PERLIO_DEBUG> even when the B<-T> switch had been supplied.
+
+Perl now requires the B<-Di> switch to produce PerlIO debugging output.  By
+default this is written to C<stderr>, but can optionally be redirected to a
+file by setting the C<PERLIO_DEBUG> environment variable.
+
+If perl is running setuid or the B<-T> switch was supplied C<PERLIO_DEBUG> is
+ignored and the debugging output is sent to C<stderr> as for any other B<-D>
+switch.
+
+=head2 Core modules and tools no longer search F<"."> for optional modules
+
+The tools and many modules supplied in core no longer search the default
+current directory entry in L<C<@INC>|perlvar/@INC> for optional modules.  For
+example, L<Storable> will remove the final F<"."> from C<@INC> before trying to
+load L<Log::Agent>.
+
+This prevents an attacker injecting an optional module into a process run by
+another user where the current directory is writable by the attacker, e.g. the
+F</tmp> directory.
+
+In most cases this removal should not cause problems, but difficulties were
+encountered with L<base>, which treats every module name supplied as optional.
+These difficulties have not yet been resolved, so for this release there are no
+changes to L<base>.  We hope to have a fix for L<base> in Perl 5.24.2.
+
+To protect your own code from this attack, either remove the default F<".">
+entry from C<@INC> at the start of your script, so:
+
+  #!/usr/bin/perl
+  use strict;
+  ...
+
+becomes:
+
+  #!/usr/bin/perl
+  BEGIN { pop @INC if $INC[-1] eq '.' }
+  use strict;
+  ...
+
+or for modules, remove F<"."> from a localized C<@INC>, so:
+
+  my $can_foo = eval { require Foo; }
+
+becomes:
+
+  my $can_foo = eval {
+      local @INC = @INC;
+      pop @INC if $INC[-1] eq '.';
+      require Foo;
+  };
+
+=head1 Incompatible Changes
+
+Other than the security changes above there are no changes intentionally
+incompatible with Perl 5.24.0.  If any exist, they are bugs, and we request
+that you submit a report.  See L</Reporting Bugs> below.
+
+=head1 Modules and Pragmata
+
+=head2 Updated Modules and Pragmata
+
+=over 4
+
+=item *
+
+L<Archive::Tar> has been upgraded from version 2.04 to 2.04_01.
+
+=item *
+
+L<bignum> has been upgraded from version 0.42 to 0.42_01.
+
+=item *
+
+L<CPAN> has been upgraded from version 2.11 to 2.11_01.
+
+=item *
+
+L<Digest> has been upgraded from version 1.17 to 1.17_01.
+
+=item *
+
+L<Digest::SHA> has been upgraded from version 5.95 to 5.95_01.
+
+=item *
+
+L<Encode> has been upgraded from version 2.80 to 2.80_01.
+
+=item *
+
+L<ExtUtils::MakeMaker> has been upgraded from version 7.10_01 to 7.10_02.
+
+=item *
+
+L<File::Fetch> has been upgraded from version 0.48 to 0.48_01.
+
+=item *
+
+L<File::Spec> has been upgraded from version 3.63 to 3.63_01.
+
+=item *
+
+L<HTTP::Tiny> has been upgraded from version 0.056 to 0.056_001.
+
+=item *
+
+L<IO> has been upgraded from version 1.36 to 1.36_01.
+
+=item *
+
+The IO-Compress modules have been upgraded from version 2.069 to 2.069_001.
+
+=item *
+
+L<IPC::Cmd> has been upgraded from version 0.92 to 0.92_01.
+
+=item *
+
+L<JSON::PP> has been upgraded from version 2.27300 to 2.27300_01.
+
+=item *
+
+L<Locale::Maketext> has been upgraded from version 1.26 to 1.26_01.
+
+=item *
+
+L<Locale::Maketext::Simple> has been upgraded from version 0.21 to 0.21_01.
+
+=item *
+
+L<Memoize> has been upgraded from version 1.03 to 1.03_01.
+
+=item *
+
+L<Module::CoreList> has been upgraded from version 5.20160506 to 5.20170114_24.
+
+=item *
+
+L<Net::Ping> has been upgraded from version 2.43 to 2.43_01.
+
+=item *
+
+L<Parse::CPAN::Meta> has been upgraded from version 1.4417 to 1.4417_001.
+
+=item *
+
+L<Pod::Html> has been upgraded from version 1.22 to 1.2201.
+
+=item *
+
+L<Pod::Perldoc> has been upgraded from version 3.25_02 to 3.25_03.
+
+=item *
+
+L<Storable> has been upgraded from version 2.56 to 2.56_01.
+
+=item *
+
+L<Sys::Syslog> has been upgraded from version 0.33 to 0.33_01.
+
+=item *
+
+L<Test> has been upgraded from version 1.28 to 1.28_01.
+
+=item *
+
+L<Test::Harness> has been upgraded from version 3.36 to 3.36_01.
+
+=item *
+
+L<XSLoader> has been upgraded from version 0.21 to 0.22, fixing a security hole
+in which binary files could be loaded from a path outside of C<@INC>.
+L<[perl #128528]|https://rt.perl.org/Public/Bug/Display.html?id=128528>
+
+=back
+
+=head1 Documentation
+
+=head2 Changes to Existing Documentation
+
+=head3 L<perlapio>
+
+=over 4
+
+=item *
+
+The documentation of C<PERLIO_DEBUG> has been updated.
+
+=back
+
+=head3 L<perlrun>
+
+=over 4
+
+=item *
+
+The new B<-Di> switch has been documented, and the documentation of
+C<PERLIO_DEBUG> has been updated.
+
+=back
+
+=head1 Testing
+
+=over 4
+
+=item *
+
+A new test script, F<t/run/switchDx.t>, has been added to test that the new
+B<-Di> switch is working correctly.
+
+=back
+
+=head1 Selected Bug Fixes
+
+=over 4
+
+=item *
+
+The change to hashbang redirection introduced in Perl 5.24.0, whereby perl
+would redirect to another interpreter (Perl 6) if it found a hashbang path
+which contains "perl" followed by "6", has been reverted because it broke in
+cases such as C<#!/opt/perl64/bin/perl>.
+
+=back
+
+=head1 Acknowledgements
+
+Perl 5.24.1 represents approximately 8 months of development since Perl 5.24.0
+and contains approximately 8,100 lines of changes across 240 files from 18
+authors.
+
+Excluding auto-generated files, documentation and release tools, there were
+approximately 2,200 lines of changes to 170 .pm, .t, .c and .h files.
+
+Perl continues to flourish into its third decade thanks to a vibrant community
+of users and developers.  The following people are known to have contributed
+the improvements that became Perl 5.24.1:
+
+Aaron Crane, Alex Vandiver, Aristotle Pagaltzis, Chad Granum, Chris 'BinGOs'
+Williams, Craig A. Berry, Father Chrysostomos, James E Keenan, Jarkko
+Hietaniemi, Karen Etheridge, Leon Timmermans, Matthew Horsfall, Ricardo Signes,
+Sawyer X, Sébastien Aperghis-Tramoni, Stevan Little, Steve Hay, Tony Cook.
+
+The list above is almost certainly incomplete as it is automatically generated
+from version control history.  In particular, it does not include the names of
+the (very much appreciated) contributors who reported issues to the Perl bug
+tracker.
+
+Many of the changes included in this version originated in the CPAN modules
+included in Perl's core.  We're grateful to the entire CPAN community for
+helping Perl to flourish.
+
+For a more complete list of all of Perl's historical contributors, please see
+the F<AUTHORS> file in the Perl source distribution.
+
+=head1 Reporting Bugs
+
+If you find what you think is a bug, you might check the articles recently
+posted to the comp.lang.perl.misc newsgroup and the Perl bug database at
+L<https://rt.perl.org/> .  There may also be information at
+L<http://www.perl.org/> , the Perl Home Page.
+
+If you believe you have an unreported bug, please run the L<perlbug> program
+included with your release.  Be sure to trim your bug down to a tiny but
+sufficient test case.  Your bug report, along with the output of C<perl -V>,
+will be sent off to perlbug@perl.org to be analysed by the Perl porting team.
+
+If the bug you are reporting has security implications which make it
+inappropriate to send to a publicly archived mailing list, then see
+L<perlsec/SECURITY VULNERABILITY CONTACT INFORMATION> for details of how to
+report the issue.
+
+=head1 SEE ALSO
+
+The F<Changes> file for an explanation of how to view exhaustive details on
+what changed.
+
+The F<INSTALL> file for how to build Perl.
+
+The F<README> file for general stuff.
+
+The F<Artistic> and F<Copying> files for copyright information.
+
+=cut
diff --git a/lib/5.24.1/pod/perldiag.pod b/lib/5.24.1/pod/perldiag.pod
new file mode 100644
index 00000000..78aeb164
--- /dev/null
+++ b/lib/5.24.1/pod/perldiag.pod
@@ -0,0 +1,7250 @@
+=head1 NAME
+
+perldiag - various Perl diagnostics
+
+=head1 DESCRIPTION
+
+These messages are classified as follows (listed in increasing order of
+desperation):
+
+    (W) A warning (optional).
+    (D) A deprecation (enabled by default).
+    (S) A severe warning (enabled by default).
+    (F) A fatal error (trappable).
+    (P) An internal error you should never see (trappable).
+    (X) A very fatal error (nontrappable).
+    (A) An alien error message (not generated by Perl).
+
+The majority of messages from the first three classifications above
+(W, D & S) can be controlled using the C<warnings> pragma.
+
+If a message can be controlled by the C<warnings> pragma, its warning
+category is included with the classification letter in the description
+below.  E.g. C<(W closed)> means a warning in the C<closed> category.
+
+Optional warnings are enabled by using the C<warnings> pragma or the B<-w>
+and B<-W> switches.  Warnings may be captured by setting C<$SIG{__WARN__}>
+to a reference to a routine that will be called on each warning instead
+of printing it.  See L<perlvar>.
+
+Severe warnings are always enabled, unless they are explicitly disabled
+with the C<warnings> pragma or the B<-X> switch.
+
+Trappable errors may be trapped using the eval operator.  See
+L<perlfunc/eval>.  In almost all cases, warnings may be selectively
+disabled or promoted to fatal errors using the C<warnings> pragma.
+See L<warnings>.
+
+The messages are in alphabetical order, without regard to upper or
+lower-case.  Some of these messages are generic.  Spots that vary are
+denoted with a %s or other printf-style escape.  These escapes are
+ignored by the alphabetical order, as are all characters other than
+letters.  To look up your message, just ignore anything that is not a
+letter.
+
+=over 4
+
+=item accept() on closed socket %s
+
+(W closed) You tried to do an accept on a closed socket.  Did you forget
+to check the return value of your socket() call?  See
+L<perlfunc/accept>.
+
+=item Aliasing via reference is experimental
+
+(S experimental::refaliasing) This warning is emitted if you use
+a reference constructor on the left-hand side of an assignment to
+alias one variable to another.  Simply suppress the warning if you
+want to use the feature, but know that in doing so you are taking
+the risk of using an experimental feature which may change or be
+removed in a future Perl version:
+
+    no warnings "experimental::refaliasing";
+    use feature "refaliasing";
+    \$x = \$y;
+
+=item Allocation too large: %x
+
+(X) You can't allocate more than 64K on an MS-DOS machine.
+
+=item '%c' allowed only after types %s in %s
+
+(F) The modifiers '!', '<' and '>' are allowed in pack() or unpack() only
+after certain types.  See L<perlfunc/pack>.
+
+=item alpha->numify() is lossy
+
+(W numeric) An alpha version can not be numified without losing
+information.
+
+=item Ambiguous call resolved as CORE::%s(), qualify as such or use &
+
+(W ambiguous) A subroutine you have declared has the same name as a Perl
+keyword, and you have used the name without qualification for calling
+one or the other.  Perl decided to call the builtin because the
+subroutine is not imported.
+
+To force interpretation as a subroutine call, either put an ampersand
+before the subroutine name, or qualify the name with its package.
+Alternatively, you can import the subroutine (or pretend that it's
+imported with the C<use subs> pragma).
+
+To silently interpret it as the Perl operator, use the C<CORE::> prefix
+on the operator (e.g. C<CORE::log($x)>) or declare the subroutine
+to be an object method (see L<perlsub/"Subroutine Attributes"> or
+L<attributes>).
+
+=item Ambiguous range in transliteration operator
+
+(F) You wrote something like C<tr/a-z-0//> which doesn't mean anything at
+all.  To include a C<-> character in a transliteration, put it either
+first or last.  (In the past, C<tr/a-z-0//> was synonymous with
+C<tr/a-y//>, which was probably not what you would have expected.)
+
+=item Ambiguous use of %s resolved as %s
+
+(S ambiguous) You said something that may not be interpreted the way
+you thought.  Normally it's pretty easy to disambiguate it by supplying
+a missing quote, operator, parenthesis pair or declaration.
+
+=item Ambiguous use of -%s resolved as -&%s()
+
+(S ambiguous) You wrote something like C<-foo>, which might be the
+string C<"-foo">, or a call to the function C<foo>, negated.  If you meant
+the string, just write C<"-foo">.  If you meant the function call,
+write C<-foo()>.
+
+=item Ambiguous use of %c resolved as operator %c
+
+(S ambiguous) C<%>, C<&>, and C<*> are both infix operators (modulus,
+bitwise and, and multiplication) I<and> initial special characters
+(denoting hashes, subroutines and typeglobs), and you said something
+like C<*foo * foo> that might be interpreted as either of them.  We
+assumed you meant the infix operator, but please try to make it more
+clear -- in the example given, you might write C<*foo * foo()> if you
+really meant to multiply a glob by the result of calling a function.
+
+=item Ambiguous use of %c{%s} resolved to %c%s
+
+(W ambiguous) You wrote something like C<@{foo}>, which might be
+asking for the variable C<@foo>, or it might be calling a function
+named foo, and dereferencing it as an array reference.  If you wanted
+the variable, you can just write C<@foo>.  If you wanted to call the
+function, write C<@{foo()}> ... or you could just not have a variable
+and a function with the same name, and save yourself a lot of trouble.
+
+=item Ambiguous use of %c{%s[...]} resolved to %c%s[...]
+
+=item Ambiguous use of %c{%s{...}} resolved to %c%s{...}
+
+(W ambiguous) You wrote something like C<${foo[2]}> (where foo represents
+the name of a Perl keyword), which might be looking for element number
+2 of the array named C<@foo>, in which case please write C<$foo[2]>, or you
+might have meant to pass an anonymous arrayref to the function named
+foo, and then do a scalar deref on the value it returns.  If you meant
+that, write C<${foo([2])}>.
+
+In regular expressions, the C<${foo[2]}> syntax is sometimes necessary
+to disambiguate between array subscripts and character classes.
+C</$length[2345]/>, for instance, will be interpreted as C<$length> followed
+by the character class C<[2345]>.  If an array subscript is what you
+want, you can avoid the warning by changing C</${length[2345]}/> to the
+unsightly C</${\$length[2345]}/>, by renaming your array to something
+that does not coincide with a built-in keyword, or by simply turning
+off warnings with C<no warnings 'ambiguous';>.
+
+=item '|' and '<' may not both be specified on command line
+
+(F) An error peculiar to VMS.  Perl does its own command line
+redirection, and found that STDIN was a pipe, and that you also tried to
+redirect STDIN using '<'.  Only one STDIN stream to a customer, please.
+
+=item '|' and '>' may not both be specified on command line
+
+(F) An error peculiar to VMS.  Perl does its own command line
+redirection, and thinks you tried to redirect stdout both to a file and
+into a pipe to another command.  You need to choose one or the other,
+though nothing's stopping you from piping into a program or Perl script
+which 'splits' output into two streams, such as
+
+    open(OUT,">$ARGV[0]") or die "Can't write to $ARGV[0]: $!";
+    while (<STDIN>) {
+        print;
+        print OUT;
+    }
+    close OUT;
+
+=item Applying %s to %s will act on scalar(%s)
+
+(W misc) The pattern match (C<//>), substitution (C<s///>), and
+transliteration (C<tr///>) operators work on scalar values.  If you apply
+one of them to an array or a hash, it will convert the array or hash to
+a scalar value (the length of an array, or the population info of a
+hash) and then work on that scalar value.  This is probably not what
+you meant to do.  See L<perlfunc/grep> and L<perlfunc/map> for
+alternatives.
+
+=item Arg too short for msgsnd
+
+(F) msgsnd() requires a string at least as long as sizeof(long).
+
+=item Argument "%s" isn't numeric%s
+
+(W numeric) The indicated string was fed as an argument to an operator
+that expected a numeric value instead.  If you're fortunate the message
+will identify which operator was so unfortunate.
+
+Note that for the C<Inf> and C<NaN> (infinity and not-a-number) the
+definition of "numeric" is somewhat unusual: the strings themselves
+(like "Inf") are considered numeric, and anything following them is
+considered non-numeric.
+
+=item Argument list not closed for PerlIO layer "%s"
+
+(W layer) When pushing a layer with arguments onto the Perl I/O
+system you forgot the ) that closes the argument list.  (Layers
+take care of transforming data between external and internal
+representations.)  Perl stopped parsing the layer list at this
+point and did not attempt to push this layer.  If your program
+didn't explicitly request the failing operation, it may be the
+result of the value of the environment variable PERLIO.
+
+=item Argument "%s" treated as 0 in increment (++)
+
+(W numeric) The indicated string was fed as an argument to the C<++>
+operator which expects either a number or a string matching
+C</^[a-zA-Z]*[0-9]*\z/>.  See L<perlop/Auto-increment and
+Auto-decrement> for details.
+
+=item Array passed to stat will be coerced to a scalar%s
+
+(W syntax) You called stat() on an array, but the array will be
+coerced to a scalar - the number of elements in the array.
+
+=item assertion botched: %s
+
+(X) The malloc package that comes with Perl had an internal failure.
+
+=item Assertion %s failed: file "%s", line %d
+
+(X) A general assertion failed.  The file in question must be examined.
+
+=item Assigned value is not a reference
+
+(F) You tried to assign something that was not a reference to an lvalue
+reference (e.g., C<\$x = $y>).  If you meant to make $x an alias to $y, use
+C<\$x = \$y>.
+
+=item Assigned value is not %s reference
+
+(F) You tried to assign a reference to a reference constructor, but the
+two references were not of the same type.  You cannot alias a scalar to
+an array, or an array to a hash; the two types must match.
+
+    \$x = \@y;  # error
+    \@x = \%y;  # error
+     $y = [];
+    \$x = $y;   # error; did you mean \$y?
+
+=item Assigning non-zero to $[ is no longer possible
+
+(F) When the "array_base" feature is disabled (e.g., under C<use v5.16;>)
+the special variable C<$[>, which is deprecated, is now a fixed zero value.
+
+=item Assignment to both a list and a scalar
+
+(F) If you assign to a conditional operator, the 2nd and 3rd arguments
+must either both be scalars or both be lists.  Otherwise Perl won't
+know which context to supply to the right side.
+
+=item Assuming NOT a POSIX class since %s in regex; marked by S<<-- HERE> in m/%s/
+
+(W regexp) You had something like these:
+
+ [[:alnum]]
+ [[:digit:xyz]
+
+They look like they might have been meant to be the POSIX classes
+C<[:alnum:]> or C<[:digit:]>.  If so, they should be written:
+
+ [[:alnum:]]
+ [[:digit:]xyz]
+
+Since these aren't legal POSIX class specifications, but are legal
+bracketed character classes, Perl treats them as the latter.  In the
+first example, it matches the characters C<":">, C<"[">, C<"a">, C<"l">,
+C<"m">, C<"n">, and C<"u">.
+
+If these weren't meant to be POSIX classes, this warning message is
+spurious, and can be suppressed by reordering things, such as
+
+ [[al:num]]
+
+or
+
+ [[:munla]]
+
+=item <> at require-statement should be quotes
+
+(F) You wrote C<< require <file> >> when you should have written
+C<require 'file'>.
+
+=item Attempt to access disallowed key '%s' in a restricted hash
+
+(F) The failing code has attempted to get or set a key which is not in
+the current set of allowed keys of a restricted hash.
+
+=item Attempt to bless into a freed package
+
+(F) You wrote C<bless $foo> with one argument after somehow causing
+the current package to be freed.  Perl cannot figure out what to
+do, so it throws up in hands in despair.
+
+=item Attempt to bless into a reference
+
+(F) The CLASSNAME argument to the bless() operator is expected to be
+the name of the package to bless the resulting object into.  You've
+supplied instead a reference to something: perhaps you wrote
+
+    bless $self, $proto;
+
+when you intended
+
+    bless $self, ref($proto) || $proto;
+
+If you actually want to bless into the stringified version
+of the reference supplied, you need to stringify it yourself, for
+example by:
+
+    bless $self, "$proto";
+
+=item Attempt to clear deleted array
+
+(S debugging) An array was assigned to when it was being freed.
+Freed values are not supposed to be visible to Perl code.  This
+can also happen if XS code calls C<av_clear> from a custom magic
+callback on the array.
+
+=item Attempt to delete disallowed key '%s' from a restricted hash
+
+(F) The failing code attempted to delete from a restricted hash a key
+which is not in its key set.
+
+=item Attempt to delete readonly key '%s' from a restricted hash
+
+(F) The failing code attempted to delete a key whose value has been
+declared readonly from a restricted hash.
+
+=item Attempt to free non-arena SV: 0x%x
+
+(S internal) All SV objects are supposed to be allocated from arenas
+that will be garbage collected on exit.  An SV was discovered to be
+outside any of those arenas.
+
+=item Attempt to free nonexistent shared string '%s'%s
+
+(S internal) Perl maintains a reference-counted internal table of
+strings to optimize the storage and access of hash keys and other
+strings.  This indicates someone tried to decrement the reference count
+of a string that can no longer be found in the table.
+
+=item Attempt to free temp prematurely: SV 0x%x
+
+(S debugging) Mortalized values are supposed to be freed by the
+free_tmps() routine.  This indicates that something else is freeing the
+SV before the free_tmps() routine gets a chance, which means that the
+free_tmps() routine will be freeing an unreferenced scalar when it does
+try to free it.
+
+=item Attempt to free unreferenced glob pointers
+
+(S internal) The reference counts got screwed up on symbol aliases.
+
+=item Attempt to free unreferenced scalar: SV 0x%x
+
+(S internal) Perl went to decrement the reference count of a scalar to
+see if it would go to 0, and discovered that it had already gone to 0
+earlier, and should have been freed, and in fact, probably was freed.
+This could indicate that SvREFCNT_dec() was called too many times, or
+that SvREFCNT_inc() was called too few times, or that the SV was
+mortalized when it shouldn't have been, or that memory has been
+corrupted.
+
+=item Attempt to pack pointer to temporary value
+
+(W pack) You tried to pass a temporary value (like the result of a
+function, or a computed expression) to the "p" pack() template.  This
+means the result contains a pointer to a location that could become
+invalid anytime, even before the end of the current statement.  Use
+literals or global values as arguments to the "p" pack() template to
+avoid this warning.
+
+=item Attempt to reload %s aborted.
+
+(F) You tried to load a file with C<use> or C<require> that failed to
+compile once already.  Perl will not try to compile this file again
+unless you delete its entry from %INC.  See L<perlfunc/require> and
+L<perlvar/%INC>.
+
+=item Attempt to set length of freed array
+
+(W misc) You tried to set the length of an array which has
+been freed.  You can do this by storing a reference to the
+scalar representing the last index of an array and later
+assigning through that reference.  For example
+
+    $r = do {my @a; \$#a};
+    $$r = 503
+
+=item Attempt to use reference as lvalue in substr
+
+(W substr) You supplied a reference as the first argument to substr()
+used as an lvalue, which is pretty strange.  Perhaps you forgot to
+dereference it first.  See L<perlfunc/substr>.
+
+=item Attribute "locked" is deprecated
+
+(D deprecated) You have used the attributes pragma to modify the
+"locked" attribute on a code reference.  The :locked attribute is
+obsolete, has had no effect since 5005 threads were removed, and
+will be removed in a future release of Perl 5.
+
+=item Attribute prototype(%s) discards earlier prototype attribute in same sub
+
+(W misc) A sub was declared as sub foo : prototype(A) : prototype(B) {}, for
+example.  Since each sub can only have one prototype, the earlier
+declaration(s) are discarded while the last one is applied.
+
+=item Attribute "unique" is deprecated
+
+(D deprecated) You have used the attributes pragma to modify
+the "unique" attribute on an array, hash or scalar reference.
+The :unique attribute has had no effect since Perl 5.8.8, and
+will be removed in a future release of Perl 5.
+
+=item av_reify called on tied array
+
+(S debugging) This indicates that something went wrong and Perl got I<very>
+confused about C<@_> or C<@DB::args> being tied.
+
+=item Bad arg length for %s, is %u, should be %d
+
+(F) You passed a buffer of the wrong size to one of msgctl(), semctl()
+or shmctl().  In C parlance, the correct sizes are, respectively,
+S<sizeof(struct msqid_ds *)>, S<sizeof(struct semid_ds *)>, and
+S<sizeof(struct shmid_ds *)>.
+
+=item Bad evalled substitution pattern
+
+(F) You've used the C</e> switch to evaluate the replacement for a
+substitution, but perl found a syntax error in the code to evaluate,
+most likely an unexpected right brace '}'.
+
+=item Bad filehandle: %s
+
+(F) A symbol was passed to something wanting a filehandle, but the
+symbol has no filehandle associated with it.  Perhaps you didn't do an
+open(), or did it in another package.
+
+=item Bad free() ignored
+
+(S malloc) An internal routine called free() on something that had never
+been malloc()ed in the first place.  Mandatory, but can be disabled by
+setting environment variable C<PERL_BADFREE> to 0.
+
+This message can be seen quite often with DB_File on systems with "hard"
+dynamic linking, like C<AIX> and C<OS/2>.  It is a bug of C<Berkeley DB>
+which is left unnoticed if C<DB> uses I<forgiving> system malloc().
+
+=item Bad hash
+
+(P) One of the internal hash routines was passed a null HV pointer.
+
+=item Badly placed ()'s
+
+(A) You've accidentally run your script through B<csh> instead
+of Perl.  Check the #! line, or manually feed your script into
+Perl yourself.
+
+=item Bad name after %s
+
+(F) You started to name a symbol by using a package prefix, and then
+didn't finish the symbol.  In particular, you can't interpolate outside
+of quotes, so
+
+    $var = 'myvar';
+    $sym = mypack::$var;
+
+is not the same as
+
+    $var = 'myvar';
+    $sym = "mypack::$var";
+
+=item Bad plugin affecting keyword '%s'
+
+(F) An extension using the keyword plugin mechanism violated the
+plugin API.
+
+=item Bad realloc() ignored
+
+(S malloc) An internal routine called realloc() on something that
+had never been malloc()ed in the first place.  Mandatory, but can
+be disabled by setting the environment variable C<PERL_BADFREE> to 1.
+
+=item Bad symbol for array
+
+(P) An internal request asked to add an array entry to something that
+wasn't a symbol table entry.
+
+=item Bad symbol for dirhandle
+
+(P) An internal request asked to add a dirhandle entry to something
+that wasn't a symbol table entry.
+
+=item Bad symbol for filehandle
+
+(P) An internal request asked to add a filehandle entry to something
+that wasn't a symbol table entry.
+
+=item Bad symbol for hash
+
+(P) An internal request asked to add a hash entry to something that
+wasn't a symbol table entry.
+
+=item Bad symbol for scalar
+
+(P) An internal request asked to add a scalar entry to something that
+wasn't a symbol table entry.
+
+=item Bareword found in conditional
+
+(W bareword) The compiler found a bareword where it expected a
+conditional, which often indicates that an || or && was parsed as part
+of the last argument of the previous construct, for example:
+
+    open FOO || die;
+
+It may also indicate a misspelled constant that has been interpreted as
+a bareword:
+
+    use constant TYPO => 1;
+    if (TYOP) { print "foo" }
+
+The C<strict> pragma is useful in avoiding such errors.
+
+=item Bareword "%s" not allowed while "strict subs" in use
+
+(F) With "strict subs" in use, a bareword is only allowed as a
+subroutine identifier, in curly brackets or to the left of the "=>"
+symbol.  Perhaps you need to predeclare a subroutine?
+
+=item Bareword "%s" refers to nonexistent package
+
+(W bareword) You used a qualified bareword of the form C<Foo::>, but the
+compiler saw no other uses of that namespace before that point.  Perhaps
+you need to predeclare a package?
+
+=item BEGIN failed--compilation aborted
+
+(F) An untrapped exception was raised while executing a BEGIN
+subroutine.  Compilation stops immediately and the interpreter is
+exited.
+
+=item BEGIN not safe after errors--compilation aborted
+
+(F) Perl found a C<BEGIN {}> subroutine (or a C<use> directive, which
+implies a C<BEGIN {}>) after one or more compilation errors had already
+occurred.  Since the intended environment for the C<BEGIN {}> could not
+be guaranteed (due to the errors), and since subsequent code likely
+depends on its correct operation, Perl just gave up.
+
+=item \%d better written as $%d
+
+(W syntax) Outside of patterns, backreferences live on as variables.
+The use of backslashes is grandfathered on the right-hand side of a
+substitution, but stylistically it's better to use the variable form
+because other Perl programmers will expect it, and it works better if
+there are more than 9 backreferences.
+
+=item Binary number > 0b11111111111111111111111111111111 non-portable
+
+(W portable) The binary number you specified is larger than 2**32-1
+(4294967295) and therefore non-portable between systems.  See
+L<perlport> for more on portability concerns.
+
+=item bind() on closed socket %s
+
+(W closed) You tried to do a bind on a closed socket.  Did you forget to
+check the return value of your socket() call?  See L<perlfunc/bind>.
+
+=item binmode() on closed filehandle %s
+
+(W unopened) You tried binmode() on a filehandle that was never opened.
+Check your control flow and number of arguments.
+
+=item Bit vector size > 32 non-portable
+
+(W portable) Using bit vector sizes larger than 32 is non-portable.
+
+=item Bizarre copy of %s
+
+(P) Perl detected an attempt to copy an internal value that is not
+copiable.
+
+=item Bizarre SvTYPE [%d]
+
+(P) When starting a new thread or returning values from a thread, Perl
+encountered an invalid data type.
+
+=item Both or neither range ends should be Unicode in regex; marked by
+S<<-- HERE> in m/%s/
+
+(W regexp) (only under C<S<use re 'strict'>> or within C<(?[...])>)
+
+In a bracketed character class in a regular expression pattern, you
+had a range which has exactly one end of it specified using C<\N{}>, and
+the other end is specified using a non-portable mechanism.  Perl treats
+the range as a Unicode range, that is, all the characters in it are
+considered to be the Unicode characters, and which may be different code
+points on some platforms Perl runs on.  For example, C<[\N{U+06}-\x08]>
+is treated as if you had instead said C<[\N{U+06}-\N{U+08}]>, that is it
+matches the characters whose code points in Unicode are 6, 7, and 8.
+But that C<\x08> might indicate that you meant something different, so
+the warning gets raised.
+
+=item Buffer overflow in prime_env_iter: %s
+
+(W internal) A warning peculiar to VMS.  While Perl was preparing to
+iterate over %ENV, it encountered a logical name or symbol definition
+which was too long, so it was truncated to the string shown.
+
+=item Callback called exit
+
+(F) A subroutine invoked from an external package via call_sv()
+exited by calling exit.
+
+=item %s() called too early to check prototype
+
+(W prototype) You've called a function that has a prototype before the
+parser saw a definition or declaration for it, and Perl could not check
+that the call conforms to the prototype.  You need to either add an
+early prototype declaration for the subroutine in question, or move the
+subroutine definition ahead of the call to get proper prototype
+checking.  Alternatively, if you are certain that you're calling the
+function correctly, you may put an ampersand before the name to avoid
+the warning.  See L<perlsub>.
+
+=item Calling POSIX::%s() is deprecated
+
+(D deprecated) You called a function whose use is deprecated.  See
+the function's name in L<POSIX> for details.
+
+=item Cannot chr %f
+
+(F) You passed an invalid number (like an infinity or not-a-number) to C<chr>.
+
+=item Cannot compress %f in pack
+
+(F) You tried compressing an infinity or not-a-number as an unsigned
+integer with BER, which makes no sense.
+
+=item Cannot compress integer in pack
+
+(F) An argument to pack("w",...) was too large to compress.
+The BER compressed integer format can only be used with positive
+integers, and you attempted to compress a very large number (> 1e308).
+See L<perlfunc/pack>.
+
+=item Cannot compress negative numbers in pack
+
+(F) An argument to pack("w",...) was negative.  The BER compressed integer
+format can only be used with positive integers.  See L<perlfunc/pack>.
+
+=item Cannot convert a reference to %s to typeglob
+
+(F) You manipulated Perl's symbol table directly, stored a reference
+in it, then tried to access that symbol via conventional Perl syntax.
+The access triggers Perl to autovivify that typeglob, but it there is
+no legal conversion from that type of reference to a typeglob.
+
+=item Cannot copy to %s
+
+(P) Perl detected an attempt to copy a value to an internal type that cannot
+be directly assigned to.
+
+=item Cannot find encoding "%s"
+
+(S io) You tried to apply an encoding that did not exist to a filehandle,
+either with open() or binmode().
+
+=item Cannot pack %f with '%c'
+
+(F) You tried converting an infinity or not-a-number to an integer,
+which makes no sense.
+
+=item Cannot printf %f with '%c'
+
+(F) You tried printing an infinity or not-a-number as a character (%c),
+which makes no sense.  Maybe you meant '%s', or just stringifying it?
+
+=item Cannot set tied @DB::args
+
+(F) C<caller> tried to set C<@DB::args>, but found it tied.  Tying C<@DB::args>
+is not supported.  (Before this error was added, it used to crash.)
+
+=item Cannot tie unreifiable array
+
+(P) You somehow managed to call C<tie> on an array that does not
+keep a reference count on its arguments and cannot be made to
+do so.  Such arrays are not even supposed to be accessible to
+Perl code, but are only used internally.
+
+=item Cannot yet reorder sv_catpvfn() arguments from va_list
+
+(F) Some XS code tried to use C<sv_catpvfn()> or a related function with a
+format string that specifies explicit indexes for some of the elements, and
+using a C-style variable-argument list (a C<va_list>). This is not currently
+supported. XS authors wanting to do this must instead construct a C array of
+C<SV*> scalars containing the arguments.
+
+=item Can only compress unsigned integers in pack
+
+(F) An argument to pack("w",...) was not an integer.  The BER compressed
+integer format can only be used with positive integers, and you attempted
+to compress something else.  See L<perlfunc/pack>.
+
+=item Can't bless non-reference value
+
+(F) Only hard references may be blessed.  This is how Perl "enforces"
+encapsulation of objects.  See L<perlobj>.
+
+=item Can't "break" in a loop topicalizer
+
+(F) You called C<break>, but you're in a C<foreach> block rather than
+a C<given> block.  You probably meant to use C<next> or C<last>.
+
+=item Can't "break" outside a given block
+
+(F) You called C<break>, but you're not inside a C<given> block.
+
+=item Can't call method "%s" on an undefined value
+
+(F) You used the syntax of a method call, but the slot filled by the
+object reference or package name contains an undefined value.  Something
+like this will reproduce the error:
+
+    $BADREF = undef;
+    process $BADREF 1,2,3;
+    $BADREF->process(1,2,3);
+
+=item Can't call method "%s" on unblessed reference
+
+(F) A method call must know in what package it's supposed to run.  It
+ordinarily finds this out from the object reference you supply, but you
+didn't supply an object reference in this case.  A reference isn't an
+object reference until it has been blessed.  See L<perlobj>.
+
+=item Can't call method "%s" without a package or object reference
+
+(F) You used the syntax of a method call, but the slot filled by the
+object reference or package name contains an expression that returns a
+defined value which is neither an object reference nor a package name.
+Something like this will reproduce the error:
+
+    $BADREF = 42;
+    process $BADREF 1,2,3;
+    $BADREF->process(1,2,3);
+
+=item Can't call mro_isa_changed_in() on anonymous symbol table
+
+(P) Perl got confused as to whether a hash was a plain hash or a
+symbol table hash when trying to update @ISA caches.
+
+=item Can't call mro_method_changed_in() on anonymous symbol table
+
+(F) An XS module tried to call C<mro_method_changed_in> on a hash that was
+not attached to the symbol table.
+
+=item Can't chdir to %s
+
+(F) You called C<perl -x/foo/bar>, but F</foo/bar> is not a directory
+that you can chdir to, possibly because it doesn't exist.
+
+=item Can't check filesystem of script "%s" for nosuid
+
+(P) For some reason you can't check the filesystem of the script for
+nosuid.
+
+=item Can't coerce %s to %s in %s
+
+(F) Certain types of SVs, in particular real symbol table entries
+(typeglobs), can't be forced to stop being what they are.  So you can't
+say things like:
+
+    *foo += 1;
+
+You CAN say
+
+    $foo = *foo;
+    $foo += 1;
+
+but then $foo no longer contains a glob.
+
+=item Can't "continue" outside a when block
+
+(F) You called C<continue>, but you're not inside a C<when>
+or C<default> block.
+
+=item Can't create pipe mailbox
+
+(P) An error peculiar to VMS.  The process is suffering from exhausted
+quotas or other plumbing problems.
+
+=item Can't declare %s in "%s"
+
+(F) Only scalar, array, and hash variables may be declared as "my", "our" or
+"state" variables.  They must have ordinary identifiers as names.
+
+=item Can't "default" outside a topicalizer
+
+(F) You have used a C<default> block that is neither inside a
+C<foreach> loop nor a C<given> block.  (Note that this error is
+issued on exit from the C<default> block, so you won't get the
+error if you use an explicit C<continue>.)
+
+=item Can't do inplace edit: %s is not a regular file
+
+(S inplace) You tried to use the B<-i> switch on a special file, such as
+a file in /dev, a FIFO or an uneditable directory.  The file was ignored.
+
+=item Can't do inplace edit on %s: %s
+
+(S inplace) The creation of the new file failed for the indicated
+reason.
+
+=item Can't do inplace edit without backup
+
+(F) You're on a system such as MS-DOS that gets confused if you try
+reading from a deleted (but still opened) file.  You have to say
+C<-i.bak>, or some such.
+
+=item Can't do inplace edit: %s would not be unique
+
+(S inplace) Your filesystem does not support filenames longer than 14
+characters and Perl was unable to create a unique filename during
+inplace editing with the B<-i> switch.  The file was ignored.
+
+=item Can't do %s("%s") on non-UTF-8 locale; resolved to "%s".
+
+(W locale) You are 1) running under "C<use locale>"; 2) the current
+locale is not a UTF-8 one; 3) you tried to do the designated case-change
+operation on the specified Unicode character; and 4) the result of this
+operation would mix Unicode and locale rules, which likely conflict.
+Mixing of different rule types is forbidden, so the operation was not
+done; instead the result is the indicated value, which is the best
+available that uses entirely Unicode rules.  That turns out to almost
+always be the original character, unchanged.
+
+It is generally a bad idea to mix non-UTF-8 locales and Unicode, and
+this issue is one of the reasons why.  This warning is raised when
+Unicode rules would normally cause the result of this operation to
+contain a character that is in the range specified by the locale,
+0..255, and hence is subject to the locale's rules, not Unicode's.
+
+If you are using locale purely for its characteristics related to things
+like its numeric and time formatting (and not C<LC_CTYPE>), consider
+using a restricted form of the locale pragma (see L<perllocale/The "use
+locale" pragma>) like "S<C<use locale ':not_characters'>>".
+
+Note that failed case-changing operations done as a result of
+case-insensitive C</i> regular expression matching will show up in this
+warning as having the C<fc> operation (as that is what the regular
+expression engine calls behind the scenes.)
+
+=item Can't do waitpid with flags
+
+(F) This machine doesn't have either waitpid() or wait4(), so only
+waitpid() without flags is emulated.
+
+=item Can't emulate -%s on #! line
+
+(F) The #! line specifies a switch that doesn't make sense at this
+point.  For example, it'd be kind of silly to put a B<-x> on the #!
+line.
+
+=item Can't %s %s-endian %ss on this platform
+
+(F) Your platform's byte-order is neither big-endian nor little-endian,
+or it has a very strange pointer size.  Packing and unpacking big- or
+little-endian floating point values and pointers may not be possible.
+See L<perlfunc/pack>.
+
+=item Can't exec "%s": %s
+
+(W exec) A system(), exec(), or piped open call could not execute the
+named program for the indicated reason.  Typical reasons include: the
+permissions were wrong on the file, the file wasn't found in
+C<$ENV{PATH}>, the executable in question was compiled for another
+architecture, or the #! line in a script points to an interpreter that
+can't be run for similar reasons.  (Or maybe your system doesn't support
+#! at all.)
+
+=item Can't exec %s
+
+(F) Perl was trying to execute the indicated program for you because
+that's what the #! line said.  If that's not what you wanted, you may
+need to mention "perl" on the #! line somewhere.
+
+=item Can't execute %s
+
+(F) You used the B<-S> switch, but the copies of the script to execute
+found in the PATH did not have correct permissions.
+
+=item Can't find an opnumber for "%s"
+
+(F) A string of a form C<CORE::word> was given to prototype(), but there
+is no builtin with the name C<word>.
+
+=item Can't find label %s
+
+(F) You said to goto a label that isn't mentioned anywhere that it's
+possible for us to go to.  See L<perlfunc/goto>.
+
+=item Can't find %s on PATH
+
+(F) You used the B<-S> switch, but the script to execute could not be
+found in the PATH.
+
+=item Can't find %s on PATH, '.' not in PATH
+
+(F) You used the B<-S> switch, but the script to execute could not be
+found in the PATH, or at least not with the correct permissions.  The
+script exists in the current directory, but PATH prohibits running it.
+
+=item Can't find string terminator %s anywhere before EOF
+
+(F) Perl strings can stretch over multiple lines.  This message means
+that the closing delimiter was omitted.  Because bracketed quotes count
+nesting levels, the following is missing its final parenthesis:
+
+    print q(The character '(' starts a side comment.);
+
+If you're getting this error from a here-document, you may have
+included unseen whitespace before or after your closing tag or there
+may not be a linebreak after it.  A good programmer's editor will have
+a way to help you find these characters (or lack of characters).  See
+L<perlop> for the full details on here-documents.
+
+=item Can't find Unicode property definition "%s"
+
+=item Can't find Unicode property definition "%s" in regex; marked by <-- HERE in m/%s/
+
+(F) The named property which you specified via C<\p> or C<\P> is not one
+known to Perl.  Perhaps you misspelled the name?  See
+L<perluniprops/Properties accessible through \p{} and \P{}>
+for a complete list of available official
+properties.  If it is a
+L<user-defined property|perlunicode/User-Defined Character Properties>
+it must have been defined by the time the regular expression is
+matched.
+
+If you didn't mean to use a Unicode property, escape the C<\p>, either
+by C<\\p> (just the C<\p>) or by C<\Q\p> (the rest of the string, or
+until C<\E>).
+
+=item Can't fork: %s
+
+(F) A fatal error occurred while trying to fork while opening a
+pipeline.
+
+=item Can't fork, trying again in 5 seconds
+
+(W pipe) A fork in a piped open failed with EAGAIN and will be retried
+after five seconds.
+
+=item Can't get filespec - stale stat buffer?
+
+(S) A warning peculiar to VMS.  This arises because of the difference
+between access checks under VMS and under the Unix model Perl assumes.
+Under VMS, access checks are done by filename, rather than by bits in
+the stat buffer, so that ACLs and other protections can be taken into
+account.  Unfortunately, Perl assumes that the stat buffer contains all
+the necessary information, and passes it, instead of the filespec, to
+the access-checking routine.  It will try to retrieve the filespec using
+the device name and FID present in the stat buffer, but this works only
+if you haven't made a subsequent call to the CRTL stat() routine,
+because the device name is overwritten with each call.  If this warning
+appears, the name lookup failed, and the access-checking routine gave up
+and returned FALSE, just to be conservative.  (Note: The access-checking
+routine knows about the Perl C<stat> operator and file tests, so you
+shouldn't ever see this warning in response to a Perl command; it arises
+only if some internal code takes stat buffers lightly.)
+
+=item Can't get pipe mailbox device name
+
+(P) An error peculiar to VMS.  After creating a mailbox to act as a
+pipe, Perl can't retrieve its name for later use.
+
+=item Can't get SYSGEN parameter value for MAXBUF
+
+(P) An error peculiar to VMS.  Perl asked $GETSYI how big you want your
+mailbox buffers to be, and didn't get an answer.
+
+=item Can't "goto" into the middle of a foreach loop
+
+(F) A "goto" statement was executed to jump into the middle of a foreach
+loop.  You can't get there from here.  See L<perlfunc/goto>.
+
+=item Can't "goto" out of a pseudo block
+
+(F) A "goto" statement was executed to jump out of what might look like
+a block, except that it isn't a proper block.  This usually occurs if
+you tried to jump out of a sort() block or subroutine, which is a no-no.
+See L<perlfunc/goto>.
+
+=item Can't goto subroutine from an eval-%s
+
+(F) The "goto subroutine" call can't be used to jump out of an eval
+"string" or block.
+
+=item Can't goto subroutine from a sort sub (or similar callback)
+
+(F) The "goto subroutine" call can't be used to jump out of the
+comparison sub for a sort(), or from a similar callback (such
+as the reduce() function in List::Util).
+
+=item Can't goto subroutine outside a subroutine
+
+(F) The deeply magical "goto subroutine" call can only replace one
+subroutine call for another.  It can't manufacture one out of whole
+cloth.  In general you should be calling it out of only an AUTOLOAD
+routine anyway.  See L<perlfunc/goto>.
+
+=item Can't ignore signal CHLD, forcing to default
+
+(W signal) Perl has detected that it is being run with the SIGCHLD
+signal (sometimes known as SIGCLD) disabled.  Since disabling this
+signal will interfere with proper determination of exit status of child
+processes, Perl has reset the signal to its default value.  This
+situation typically indicates that the parent program under which Perl
+may be running (e.g. cron) is being very careless.
+
+=item Can't kill a non-numeric process ID
+
+(F) Process identifiers must be (signed) integers.  It is a fatal error to
+attempt to kill() an undefined, empty-string or otherwise non-numeric
+process identifier.
+
+=item Can't "last" outside a loop block
+
+(F) A "last" statement was executed to break out of the current block,
+except that there's this itty bitty problem called there isn't a current
+block.  Note that an "if" or "else" block doesn't count as a "loopish"
+block, as doesn't a block given to sort(), map() or grep().  You can
+usually double the curlies to get the same effect though, because the
+inner curlies will be considered a block that loops once.  See
+L<perlfunc/last>.
+
+=item Can't linearize anonymous symbol table
+
+(F) Perl tried to calculate the method resolution order (MRO) of a
+package, but failed because the package stash has no name.
+
+=item Can't load '%s' for module %s
+
+(F) The module you tried to load failed to load a dynamic extension.
+This may either mean that you upgraded your version of perl to one
+that is incompatible with your old dynamic extensions (which is known
+to happen between major versions of perl), or (more likely) that your
+dynamic extension was built against an older version of the library
+that is installed on your system.  You may need to rebuild your old
+dynamic extensions.
+
+=item Can't localize lexical variable %s
+
+(F) You used local on a variable name that was previously declared as a
+lexical variable using "my" or "state".  This is not allowed.  If you
+want to localize a package variable of the same name, qualify it with
+the package name.
+
+=item Can't localize through a reference
+
+(F) You said something like C<local $$ref>, which Perl can't currently
+handle, because when it goes to restore the old value of whatever $ref
+pointed to after the scope of the local() is finished, it can't be sure
+that $ref will still be a reference.
+
+=item Can't locate %s
+
+(F) You said to C<do> (or C<require>, or C<use>) a file that couldn't be found.
+Perl looks for the file in all the locations mentioned in @INC, unless
+the file name included the full path to the file.  Perhaps you need
+to set the PERL5LIB or PERL5OPT environment variable to say where the
+extra library is, or maybe the script needs to add the library name
+to @INC.  Or maybe you just misspelled the name of the file.  See
+L<perlfunc/require> and L<lib>.
+
+=item Can't locate auto/%s.al in @INC
+
+(F) A function (or method) was called in a package which allows
+autoload, but there is no function to autoload.  Most probable causes
+are a misprint in a function/method name or a failure to C<AutoSplit>
+the file, say, by doing C<make install>.
+
+=item Can't locate loadable object for module %s in @INC
+
+(F) The module you loaded is trying to load an external library, like
+for example, F<foo.so> or F<bar.dll>, but the L<DynaLoader> module was
+unable to locate this library.  See L<DynaLoader>.
+
+=item Can't locate object method "%s" via package "%s"
+
+(F) You called a method correctly, and it correctly indicated a package
+functioning as a class, but that package doesn't define that particular
+method, nor does any of its base classes.  See L<perlobj>.
+
+=item Can't locate object method "%s" via package "%s" (perhaps you forgot
+to load "%s"?)
+
+(F) You called a method on a class that did not exist, and the method
+could not be found in UNIVERSAL.  This often means that a method
+requires a package that has not been loaded.
+
+=item Can't locate package %s for @%s::ISA
+
+(W syntax) The @ISA array contained the name of another package that
+doesn't seem to exist.
+
+=item Can't locate PerlIO%s
+
+(F) You tried to use in open() a PerlIO layer that does not exist,
+e.g. open(FH, ">:nosuchlayer", "somefile").
+
+=item Can't make list assignment to %ENV on this system
+
+(F) List assignment to %ENV is not supported on some systems, notably
+VMS.
+
+=item Can't make loaded symbols global on this platform while loading %s
+
+(S) A module passed the flag 0x01 to DynaLoader::dl_load_file() to request
+that symbols from the stated file are made available globally within the
+process, but that functionality is not available on this platform.  Whilst
+the module likely will still work, this may prevent the perl interpreter
+from loading other XS-based extensions which need to link directly to
+functions defined in the C or XS code in the stated file.
+
+=item Can't modify %s in %s
+
+(F) You aren't allowed to assign to the item indicated, or otherwise try
+to change it, such as with an auto-increment.
+
+=item Can't modify nonexistent substring
+
+(P) The internal routine that does assignment to a substr() was handed
+a NULL.
+
+=item Can't modify non-lvalue subroutine call of &%s
+
+(F) Subroutines meant to be used in lvalue context should be declared as
+such.  See L<perlsub/"Lvalue subroutines">.
+
+=item Can't modify reference to %s in %s assignment
+
+(F) Only a limited number of constructs can be used as the argument to a
+reference constructor on the left-hand side of an assignment, and what
+you used was not one of them.  See L<perlref/Assigning to References>.
+
+=item Can't modify reference to localized parenthesized array in list
+assignment
+
+(F) Assigning to C<\local(@array)> or C<\(local @array)> is not supported, as
+it is not clear exactly what it should do.  If you meant to make @array
+refer to some other array, use C<\@array = \@other_array>.  If you want to
+make the elements of @array aliases of the scalars referenced on the
+right-hand side, use C<\(@array) = @scalar_refs>.
+
+=item Can't modify reference to parenthesized hash in list assignment
+
+(F) Assigning to C<\(%hash)> is not supported.  If you meant to make %hash
+refer to some other hash, use C<\%hash = \%other_hash>.  If you want to
+make the elements of %hash into aliases of the scalars referenced on the
+right-hand side, use a hash slice: C<\@hash{@keys} = @those_scalar_refs>.
+
+=item Can't msgrcv to read-only var
+
+(F) The target of a msgrcv must be modifiable to be used as a receive
+buffer.
+
+=item Can't "next" outside a loop block
+
+(F) A "next" statement was executed to reiterate the current block, but
+there isn't a current block.  Note that an "if" or "else" block doesn't
+count as a "loopish" block, as doesn't a block given to sort(), map() or
+grep().  You can usually double the curlies to get the same effect
+though, because the inner curlies will be considered a block that loops
+once.  See L<perlfunc/next>.
+
+=item Can't open %s: %s
+
+(S inplace) The implicit opening of a file through use of the C<< <> >>
+filehandle, either implicitly under the C<-n> or C<-p> command-line
+switches, or explicitly, failed for the indicated reason.  Usually
+this is because you don't have read permission for a file which
+you named on the command line.
+
+(F) You tried to call perl with the B<-e> switch, but F</dev/null> (or
+your operating system's equivalent) could not be opened.
+
+=item Can't open a reference
+
+(W io) You tried to open a scalar reference for reading or writing,
+using the 3-arg open() syntax:
+
+    open FH, '>', $ref;
+
+but your version of perl is compiled without perlio, and this form of
+open is not supported.
+
+=item Can't open bidirectional pipe
+
+(W pipe) You tried to say C<open(CMD, "|cmd|")>, which is not supported.
+You can try any of several modules in the Perl library to do this, such
+as IPC::Open2.  Alternately, direct the pipe's output to a file using
+">", and then read it in under a different file handle.
+
+=item Can't open error file %s as stderr
+
+(F) An error peculiar to VMS.  Perl does its own command line
+redirection, and couldn't open the file specified after '2>' or '2>>' on
+the command line for writing.
+
+=item Can't open input file %s as stdin
+
+(F) An error peculiar to VMS.  Perl does its own command line
+redirection, and couldn't open the file specified after '<' on the
+command line for reading.
+
+=item Can't open output file %s as stdout
+
+(F) An error peculiar to VMS.  Perl does its own command line
+redirection, and couldn't open the file specified after '>' or '>>' on
+the command line for writing.
+
+=item Can't open output pipe (name: %s)
+
+(P) An error peculiar to VMS.  Perl does its own command line
+redirection, and couldn't open the pipe into which to send data destined
+for stdout.
+
+=item Can't open perl script "%s": %s
+
+(F) The script you specified can't be opened for the indicated reason.
+
+If you're debugging a script that uses #!, and normally relies on the
+shell's $PATH search, the -S option causes perl to do that search, so
+you don't have to type the path or C<`which $scriptname`>.
+
+=item Can't read CRTL environ
+
+(S) A warning peculiar to VMS.  Perl tried to read an element of %ENV
+from the CRTL's internal environment array and discovered the array was
+missing.  You need to figure out where your CRTL misplaced its environ
+or define F<PERL_ENV_TABLES> (see L<perlvms>) so that environ is not
+searched.
+
+=item Can't redeclare "%s" in "%s"
+
+(F) A "my", "our" or "state" declaration was found within another declaration,
+such as C<my ($x, my($y), $z)> or C<our (my $x)>.
+
+=item Can't "redo" outside a loop block
+
+(F) A "redo" statement was executed to restart the current block, but
+there isn't a current block.  Note that an "if" or "else" block doesn't
+count as a "loopish" block, as doesn't a block given to sort(), map()
+or grep().  You can usually double the curlies to get the same effect
+though, because the inner curlies will be considered a block that
+loops once.  See L<perlfunc/redo>.
+
+=item Can't remove %s: %s, skipping file
+
+(S inplace) You requested an inplace edit without creating a backup
+file.  Perl was unable to remove the original file to replace it with
+the modified file.  The file was left unmodified.
+
+=item Can't rename %s to %s: %s, skipping file
+
+(S inplace) The rename done by the B<-i> switch failed for some reason,
+probably because you don't have write permission to the directory.
+
+=item Can't reopen input pipe (name: %s) in binary mode
+
+(P) An error peculiar to VMS.  Perl thought stdin was a pipe, and tried
+to reopen it to accept binary data.  Alas, it failed.
+
+=item Can't represent character for Ox%X on this platform
+
+(F) There is a hard limit to how big a character code point can be due
+to the fundamental properties of UTF-8, especially on EBCDIC
+platforms.  The given code point exceeds that.  The only work-around is
+to not use such a large code point.
+
+=item Can't reset %ENV on this system
+
+(F) You called C<reset('E')> or similar, which tried to reset
+all variables in the current package beginning with "E".  In
+the main package, that includes %ENV.  Resetting %ENV is not
+supported on some systems, notably VMS.
+
+=item Can't resolve method "%s" overloading "%s" in package "%s"
+
+(F)(P) Error resolving overloading specified by a method name (as
+opposed to a subroutine reference): no such method callable via the
+package.  If the method name is C<???>, this is an internal error.
+
+=item Can't return %s from lvalue subroutine
+
+(F) Perl detected an attempt to return illegal lvalues (such as
+temporary or readonly values) from a subroutine used as an lvalue.  This
+is not allowed.
+
+=item Can't return outside a subroutine
+
+(F) The return statement was executed in mainline code, that is, where
+there was no subroutine call to return out of.  See L<perlsub>.
+
+=item Can't return %s to lvalue scalar context
+
+(F) You tried to return a complete array or hash from an lvalue
+subroutine, but you called the subroutine in a way that made Perl
+think you meant to return only one value.  You probably meant to
+write parentheses around the call to the subroutine, which tell
+Perl that the call should be in list context.
+
+=item Can't stat script "%s"
+
+(P) For some reason you can't fstat() the script even though you have it
+open already.  Bizarre.
+
+=item Can't take log of %g
+
+(F) For ordinary real numbers, you can't take the logarithm of a
+negative number or zero.  There's a Math::Complex package that comes
+standard with Perl, though, if you really want to do that for the
+negative numbers.
+
+=item Can't take sqrt of %g
+
+(F) For ordinary real numbers, you can't take the square root of a
+negative number.  There's a Math::Complex package that comes standard
+with Perl, though, if you really want to do that.
+
+=item Can't undef active subroutine
+
+(F) You can't undefine a routine that's currently running.  You can,
+however, redefine it while it's running, and you can even undef the
+redefined subroutine while the old routine is running.  Go figure.
+
+=item Can't upgrade %s (%d) to %d
+
+(P) The internal sv_upgrade routine adds "members" to an SV, making it
+into a more specialized kind of SV.  The top several SV types are so
+specialized, however, that they cannot be interconverted.  This message
+indicates that such a conversion was attempted.
+
+=item Can't use '%c' after -mname
+
+(F) You tried to call perl with the B<-m> switch, but you put something
+other than "=" after the module name.
+
+=item Can't use a hash as a reference
+
+(F) You tried to use a hash as a reference, as in
+C<< %foo->{"bar"} >> or C<< %$ref->{"hello"} >>.  Versions of perl
+<= 5.22.0 used to allow this syntax, but shouldn't
+have.  This was deprecated in perl 5.6.1.
+
+=item Can't use an array as a reference
+
+(F) You tried to use an array as a reference, as in
+C<< @foo->[23] >> or C<< @$ref->[99] >>.  Versions of perl <= 5.22.0
+used to allow this syntax, but shouldn't have.  This
+was deprecated in perl 5.6.1.
+
+=item Can't use anonymous symbol table for method lookup
+
+(F) The internal routine that does method lookup was handed a symbol
+table that doesn't have a name.  Symbol tables can become anonymous
+for example by undefining stashes: C<undef %Some::Package::>.
+
+=item Can't use an undefined value as %s reference
+
+(F) A value used as either a hard reference or a symbolic reference must
+be a defined value.  This helps to delurk some insidious errors.
+
+=item Can't use bareword ("%s") as %s ref while "strict refs" in use
+
+(F) Only hard references are allowed by "strict refs".  Symbolic
+references are disallowed.  See L<perlref>.
+
+=item Can't use %! because Errno.pm is not available
+
+(F) The first time the C<%!> hash is used, perl automatically loads the
+Errno.pm module.  The Errno module is expected to tie the %! hash to
+provide symbolic names for C<$!> errno values.
+
+=item Can't use both '<' and '>' after type '%c' in %s
+
+(F) A type cannot be forced to have both big-endian and little-endian
+byte-order at the same time, so this combination of modifiers is not
+allowed.  See L<perlfunc/pack>.
+
+=item Can't use 'defined(@array)' (Maybe you should just omit the defined()?)
+
+(F) defined() is not useful on arrays because it
+checks for an undefined I<scalar> value.  If you want to see if the
+array is empty, just use C<if (@array) { # not empty }> for example.
+
+=item Can't use 'defined(%hash)' (Maybe you should just omit the defined()?)
+
+(F) C<defined()> is not usually right on hashes.
+
+Although C<defined %hash> is false on a plain not-yet-used hash, it
+becomes true in several non-obvious circumstances, including iterators,
+weak references, stash names, even remaining true after C<undef %hash>.
+These things make C<defined %hash> fairly useless in practice, so it now
+generates a fatal error.
+
+If a check for non-empty is what you wanted then just put it in boolean
+context (see L<perldata/Scalar values>):
+
+    if (%hash) {
+       # not empty
+    }
+
+If you had C<defined %Foo::Bar::QUUX> to check whether such a package
+variable exists then that's never really been reliable, and isn't
+a good way to enquire about the features of a package, or whether
+it's loaded, etc.
+
+=item Can't use %s for loop variable
+
+(P) The parser got confused when trying to parse a C<foreach> loop.
+
+=item Can't use global %s in "%s"
+
+(F) You tried to declare a magical variable as a lexical variable.  This
+is not allowed, because the magic can be tied to only one location
+(namely the global variable) and it would be incredibly confusing to
+have variables in your program that looked like magical variables but
+weren't.
+
+=item Can't use '%c' in a group with different byte-order in %s
+
+(F) You attempted to force a different byte-order on a type
+that is already inside a group with a byte-order modifier.
+For example you cannot force little-endianness on a type that
+is inside a big-endian group.
+
+=item Can't use "my %s" in sort comparison
+
+(F) The global variables $a and $b are reserved for sort comparisons.
+You mentioned $a or $b in the same line as the <=> or cmp operator,
+and the variable had earlier been declared as a lexical variable.
+Either qualify the sort variable with the package name, or rename the
+lexical variable.
+
+=item Can't use %s ref as %s ref
+
+(F) You've mixed up your reference types.  You have to dereference a
+reference of the type needed.  You can use the ref() function to
+test the type of the reference, if need be.
+
+=item Can't use string ("%s") as %s ref while "strict refs" in use
+
+=item Can't use string ("%s"...) as %s ref while "strict refs" in use
+
+(F) You've told Perl to dereference a string, something which
+C<use strict> blocks to prevent it happening accidentally.  See
+L<perlref/"Symbolic references">.  This can be triggered by an C<@> or C<$>
+in a double-quoted string immediately before interpolating a variable,
+for example in C<"user @$twitter_id">, which says to treat the contents
+of C<$twitter_id> as an array reference; use a C<\> to have a literal C<@>
+symbol followed by the contents of C<$twitter_id>: C<"user \@$twitter_id">.
+
+=item Can't use subscript on %s
+
+(F) The compiler tried to interpret a bracketed expression as a
+subscript.  But to the left of the brackets was an expression that
+didn't look like a hash or array reference, or anything else subscriptable.
+
+=item Can't use \%c to mean $%c in expression
+
+(W syntax) In an ordinary expression, backslash is a unary operator that
+creates a reference to its argument.  The use of backslash to indicate a
+backreference to a matched substring is valid only as part of a regular
+expression pattern.  Trying to do this in ordinary Perl code produces a
+value that prints out looking like SCALAR(0xdecaf).  Use the $1 form
+instead.
+
+=item Can't weaken a nonreference
+
+(F) You attempted to weaken something that was not a reference.  Only
+references can be weakened.
+
+=item Can't "when" outside a topicalizer
+
+(F) You have used a when() block that is neither inside a C<foreach>
+loop nor a C<given> block.  (Note that this error is issued on exit
+from the C<when> block, so you won't get the error if the match fails,
+or if you use an explicit C<continue>.)
+
+=item Can't x= to read-only value
+
+(F) You tried to repeat a constant value (often the undefined value)
+with an assignment operator, which implies modifying the value itself.
+Perhaps you need to copy the value to a temporary, and repeat that.
+
+=item Character following "\c" must be printable ASCII
+
+(F) In C<\cI<X>>, I<X> must be a printable (non-control) ASCII character.
+
+Note that ASCII characters that don't map to control characters are
+discouraged, and will generate the warning (when enabled)
+L</""\c%c" is more clearly written simply as "%s"">.
+
+=item Character following \%c must be '{' or a single-character Unicode property name in regex; marked by <-- HERE in m/%s/
+
+(F) (In the above the C<%c> is replaced by either C<p> or C<P>.)  You
+specified something that isn't a legal Unicode property name.  Most
+Unicode properties are specified by C<\p{...}>.  But if the name is a
+single character one, the braces may be omitted.
+
+=item Character in 'C' format wrapped in pack
+
+(W pack) You said
+
+    pack("C", $x)
+
+where $x is either less than 0 or more than 255; the C<"C"> format is
+only for encoding native operating system characters (ASCII, EBCDIC,
+and so on) and not for Unicode characters, so Perl behaved as if you meant
+
+    pack("C", $x & 255)
+
+If you actually want to pack Unicode codepoints, use the C<"U"> format
+instead.
+
+=item Character in 'c' format wrapped in pack
+
+(W pack) You said
+
+    pack("c", $x)
+
+where $x is either less than -128 or more than 127; the C<"c"> format
+is only for encoding native operating system characters (ASCII, EBCDIC,
+and so on) and not for Unicode characters, so Perl behaved as if you meant
+
+    pack("c", $x & 255);
+
+If you actually want to pack Unicode codepoints, use the C<"U"> format
+instead.
+
+=item Character in '%c' format wrapped in unpack
+
+(W unpack) You tried something like
+
+   unpack("H", "\x{2a1}")
+
+where the format expects to process a byte (a character with a value
+below 256), but a higher value was provided instead.  Perl uses the
+value modulus 256 instead, as if you had provided:
+
+   unpack("H", "\x{a1}")
+
+=item Character in 'W' format wrapped in pack
+
+(W pack) You said
+
+    pack("U0W", $x)
+
+where $x is either less than 0 or more than 255.  However, C<U0>-mode
+expects all values to fall in the interval [0, 255], so Perl behaved
+as if you meant:
+
+    pack("U0W", $x & 255)
+
+=item Character(s) in '%c' format wrapped in pack
+
+(W pack) You tried something like
+
+   pack("u", "\x{1f3}b")
+
+where the format expects to process a sequence of bytes (character with a
+value below 256), but some of the characters had a higher value.  Perl
+uses the character values modulus 256 instead, as if you had provided:
+
+   pack("u", "\x{f3}b")
+
+=item Character(s) in '%c' format wrapped in unpack
+
+(W unpack) You tried something like
+
+   unpack("s", "\x{1f3}b")
+
+where the format expects to process a sequence of bytes (character with a
+value below 256), but some of the characters had a higher value.  Perl
+uses the character values modulus 256 instead, as if you had provided:
+
+   unpack("s", "\x{f3}b")
+
+=item charnames alias definitions may not contain a sequence of multiple spaces
+
+(F) You defined a character name which had multiple space characters
+in a row.  Change them to single spaces.  Usually these names are
+defined in the C<:alias> import argument to C<use charnames>, but they
+could be defined by a translator installed into C<$^H{charnames}>.  See
+L<charnames/CUSTOM ALIASES>.
+
+=item charnames alias definitions may not contain trailing white-space
+
+(F) You defined a character name which ended in a space
+character.  Remove the trailing space(s).  Usually these names are
+defined in the C<:alias> import argument to C<use charnames>, but they
+could be defined by a translator installed into C<$^H{charnames}>.
+See L<charnames/CUSTOM ALIASES>.
+
+=item chdir() on unopened filehandle %s
+
+(W unopened) You tried chdir() on a filehandle that was never opened.
+
+=item "\c%c" is more clearly written simply as "%s"
+
+(W syntax) The C<\cI<X>> construct is intended to be a way to specify
+non-printable characters.  You used it for a printable one, which
+is better written as simply itself, perhaps preceded by a backslash
+for non-word characters.  Doing it the way you did is not portable
+between ASCII and EBCDIC platforms.
+
+=item Cloning substitution context is unimplemented
+
+(F) Creating a new thread inside the C<s///> operator is not supported.
+
+=item closedir() attempted on invalid dirhandle %s
+
+(W io) The dirhandle you tried to close is either closed or not really
+a dirhandle.  Check your control flow.
+
+=item close() on unopened filehandle %s
+
+(W unopened) You tried to close a filehandle that was never opened.
+
+=item Closure prototype called
+
+(F) If a closure has attributes, the subroutine passed to an attribute
+handler is the prototype that is cloned when a new closure is created.
+This subroutine cannot be called.
+
+=item \C no longer supported in regex; marked by S<<-- HERE> in m/%s/
+
+(F) The \C character class used to allow a match of single byte
+within a multi-byte utf-8 character, but was removed in v5.24 as
+it broke encapsulation and its implementation was extremely buggy.
+If you really need to process the individual bytes, you probably
+want to convert your string to one where each underlying byte is
+stored as a character, with utf8::encode().
+
+=item Code missing after '/'
+
+(F) You had a (sub-)template that ends with a '/'.  There must be
+another template code following the slash.  See L<perlfunc/pack>.
+
+=item Code point 0x%X is not Unicode, and not portable
+
+(S non_unicode) You had a code point that has never been in any
+standard, so it is likely that languages other than Perl will NOT
+understand it.  At one time, it was legal in some standards to have code
+points up to 0x7FFF_FFFF, but not higher, and this code point is higher.
+
+Acceptance of these code points is a Perl extension, and you should
+expect that nothing other than Perl can handle them; Perl itself on
+EBCDIC platforms before v5.24 does not handle them.
+
+Code points above 0xFFFF_FFFF require larger than a 32 bit word.
+
+Perl also makes no guarantees that the representation of these code
+points won't change at some point in the future, say when machines
+become available that have larger than a 64-bit word.  At that time,
+files written by an older Perl would require conversion before being
+readable by a newer Perl.
+
+=item Code point 0x%X is not Unicode, may not be portable
+
+(S non_unicode) You had a code point above the Unicode maximum
+of U+10FFFF.
+
+Perl allows strings to contain a superset of Unicode code points, but
+these may not be accepted by other languages/systems.  Further, even if
+these languages/systems accept these large code points, they may have
+chosen a different representation for them than the UTF-8-like one that
+Perl has, which would mean files are not exchangeable between them and
+Perl.
+
+On EBCDIC platforms, code points above 0x3FFF_FFFF have a different
+representation in Perl v5.24 than before, so any file containing these
+that was written before that version will require conversion before
+being readable by a later Perl.
+
+=item %s: Command not found
+
+(A) You've accidentally run your script through B<csh> or another shell
+instead of Perl.  Check the #! line, or manually feed your script into
+Perl yourself.  The #! line at the top of your file could look like
+
+  #!/usr/bin/perl -w
+
+=item Compilation failed in require
+
+(F) Perl could not compile a file specified in a C<require> statement.
+Perl uses this generic message when none of the errors that it
+encountered were severe enough to halt compilation immediately.
+
+=item Complex regular subexpression recursion limit (%d) exceeded
+
+(W regexp) The regular expression engine uses recursion in complex
+situations where back-tracking is required.  Recursion depth is limited
+to 32766, or perhaps less in architectures where the stack cannot grow
+arbitrarily.  ("Simple" and "medium" situations are handled without
+recursion and are not subject to a limit.)  Try shortening the string
+under examination; looping in Perl code (e.g. with C<while>) rather than
+in the regular expression engine; or rewriting the regular expression so
+that it is simpler or backtracks less.  (See L<perlfaq2> for information
+on I<Mastering Regular Expressions>.)
+
+=item connect() on closed socket %s
+
+(W closed) You tried to do a connect on a closed socket.  Did you forget
+to check the return value of your socket() call?  See
+L<perlfunc/connect>.
+
+=item Constant(%s): Call to &{$^H{%s}} did not return a defined value
+
+(F) The subroutine registered to handle constant overloading
+(see L<overload>) or a custom charnames handler (see
+L<charnames/CUSTOM TRANSLATORS>) returned an undefined value.
+
+=item Constant(%s): $^H{%s} is not defined
+
+(F) The parser found inconsistencies while attempting to define an
+overloaded constant.  Perhaps you forgot to load the corresponding
+L<overload> pragma?
+
+=item Constant is not %s reference
+
+(F) A constant value (perhaps declared using the C<use constant> pragma)
+is being dereferenced, but it amounts to the wrong type of reference.
+The message indicates the type of reference that was expected.  This
+usually indicates a syntax error in dereferencing the constant value.
+See L<perlsub/"Constant Functions"> and L<constant>.
+
+=item Constants from lexical variables potentially modified elsewhere are
+deprecated
+
+(D deprecated) You wrote something like
+
+    my $var;
+    $sub = sub () { $var };
+
+but $var is referenced elsewhere and could be modified after the C<sub>
+expression is evaluated.  Either it is explicitly modified elsewhere
+(C<$var = 3>) or it is passed to a subroutine or to an operator like
+C<printf> or C<map>, which may or may not modify the variable.
+
+Traditionally, Perl has captured the value of the variable at that
+point and turned the subroutine into a constant eligible for inlining.
+In those cases where the variable can be modified elsewhere, this
+breaks the behavior of closures, in which the subroutine captures
+the variable itself, rather than its value, so future changes to the
+variable are reflected in the subroutine's return value.
+
+This usage is deprecated, because the behavior is likely to change
+in a future version of Perl.
+
+If you intended for the subroutine to be eligible for inlining, then
+make sure the variable is not referenced elsewhere, possibly by
+copying it:
+
+    my $var2 = $var;
+    $sub = sub () { $var2 };
+
+If you do want this subroutine to be a closure that reflects future
+changes to the variable that it closes over, add an explicit C<return>:
+
+    my $var;
+    $sub = sub () { return $var };
+
+=item Constant subroutine %s redefined
+
+(W redefine)(S) You redefined a subroutine which had previously
+been eligible for inlining.  See L<perlsub/"Constant Functions">
+for commentary and workarounds.
+
+=item Constant subroutine %s undefined
+
+(W misc) You undefined a subroutine which had previously been eligible
+for inlining.  See L<perlsub/"Constant Functions"> for commentary and
+workarounds.
+
+=item Constant(%s) unknown
+
+(F) The parser found inconsistencies either while attempting
+to define an overloaded constant, or when trying to find the
+character name specified in the C<\N{...}> escape.  Perhaps you
+forgot to load the corresponding L<overload> pragma?
+
+=item :const is experimental
+
+(S experimental::const_attr) The "const" attribute is experimental.
+If you want to use the feature, disable the warning with C<no warnings
+'experimental::const_attr'>, but know that in doing so you are taking
+the risk that your code may break in a future Perl version.
+
+=item :const is not permitted on named subroutines
+
+(F) The "const" attribute causes an anonymous subroutine to be run and
+its value captured at the time that it is cloned.  Named subroutines are
+not cloned like this, so the attribute does not make sense on them.
+
+=item Copy method did not return a reference
+
+(F) The method which overloads "=" is buggy.  See
+L<overload/Copy Constructor>.
+
+=item &CORE::%s cannot be called directly
+
+(F) You tried to call a subroutine in the C<CORE::> namespace
+with C<&foo> syntax or through a reference.  Some subroutines
+in this package cannot yet be called that way, but must be
+called as barewords.  Something like this will work:
+
+    BEGIN { *shove = \&CORE::push; }
+    shove @array, 1,2,3; # pushes on to @array
+
+=item CORE::%s is not a keyword
+
+(F) The CORE:: namespace is reserved for Perl keywords.
+
+=item Corrupted regexp opcode %d > %d
+
+(P) This is either an error in Perl, or, if you're using
+one, your L<custom regular expression engine|perlreapi>.  If not the
+latter, report the problem through the L<perlbug> utility.
+
+=item corrupted regexp pointers
+
+(P) The regular expression engine got confused by what the regular
+expression compiler gave it.
+
+=item corrupted regexp program
+
+(P) The regular expression engine got passed a regexp program without a
+valid magic number.
+
+=item Corrupt malloc ptr 0x%x at 0x%x
+
+(P) The malloc package that comes with Perl had an internal failure.
+
+=item Count after length/code in unpack
+
+(F) You had an unpack template indicating a counted-length string, but
+you have also specified an explicit size for the string.  See
+L<perlfunc/pack>.
+
+=for comment
+The following are used in lib/diagnostics.t for testing two =items that
+share the same description.  Changes here need to be propagated to there
+
+=item Deep recursion on anonymous subroutine
+
+=item Deep recursion on subroutine "%s"
+
+(W recursion) This subroutine has called itself (directly or indirectly)
+100 times more than it has returned.  This probably indicates an
+infinite recursion, unless you're writing strange benchmark programs, in
+which case it indicates something else.
+
+This threshold can be changed from 100, by recompiling the F<perl> binary,
+setting the C pre-processor macro C<PERL_SUB_DEPTH_WARN> to the desired value.
+
+=item (?(DEFINE)....) does not allow branches in regex; marked by
+S<<-- HERE> in m/%s/
+
+(F) You used something like C<(?(DEFINE)...|..)> which is illegal.  The
+most likely cause of this error is that you left out a parenthesis inside
+of the C<....> part.
+
+The S<<-- HERE> shows whereabouts in the regular expression the problem was
+discovered.
+
+=item %s defines neither package nor VERSION--version check failed
+
+(F) You said something like "use Module 42" but in the Module file
+there are neither package declarations nor a C<$VERSION>.
+
+=item delete argument is index/value array slice, use array slice
+
+(F) You used index/value array slice syntax (C<%array[...]>) as
+the argument to C<delete>.  You probably meant C<@array[...]> with
+an @ symbol instead.
+
+=item delete argument is key/value hash slice, use hash slice
+
+(F) You used key/value hash slice syntax (C<%hash{...}>) as the argument to
+C<delete>.  You probably meant C<@hash{...}> with an @ symbol instead.
+
+=item delete argument is not a HASH or ARRAY element or slice
+
+(F) The argument to C<delete> must be either a hash or array element,
+such as:
+
+    $foo{$bar}
+    $ref->{"susie"}[12]
+
+or a hash or array slice, such as:
+
+    @foo[$bar, $baz, $xyzzy]
+    @{$ref->[12]}{"susie", "queue"}
+
+=item Delimiter for here document is too long
+
+(F) In a here document construct like C<<<FOO>, the label C<FOO> is too
+long for Perl to handle.  You have to be seriously twisted to write code
+that triggers this error.
+
+=item Deprecated use of my() in false conditional
+
+(D deprecated) You used a declaration similar to C<my $x if 0>.  There
+has been a long-standing bug in Perl that causes a lexical variable
+not to be cleared at scope exit when its declaration includes a false
+conditional.  Some people have exploited this bug to achieve a kind of
+static variable.  Since we intend to fix this bug, we don't want people
+relying on this behavior.  You can achieve a similar static effect by
+declaring the variable in a separate block outside the function, eg
+
+    sub f { my $x if 0; return $x++ }
+
+becomes
+
+    { my $x; sub f { return $x++ } }
+
+Beginning with perl 5.10.0, you can also use C<state> variables to have
+lexicals that are initialized only once (see L<feature>):
+
+    sub f { state $x; return $x++ }
+
+=item DESTROY created new reference to dead object '%s'
+
+(F) A DESTROY() method created a new reference to the object which is
+just being DESTROYed.  Perl is confused, and prefers to abort rather
+than to create a dangling reference.
+
+=item Did not produce a valid header
+
+See Server error.
+
+=item %s did not return a true value
+
+(F) A required (or used) file must return a true value to indicate that
+it compiled correctly and ran its initialization code correctly.  It's
+traditional to end such a file with a "1;", though any true value would
+do.  See L<perlfunc/require>.
+
+=item (Did you mean &%s instead?)
+
+(W misc) You probably referred to an imported subroutine &FOO as $FOO or
+some such.
+
+=item (Did you mean "local" instead of "our"?)
+
+(W misc) Remember that "our" does not localize the declared global
+variable.  You have declared it again in the same lexical scope, which
+seems superfluous.
+
+=item (Did you mean $ or @ instead of %?)
+
+(W) You probably said %hash{$key} when you meant $hash{$key} or
+@hash{@keys}.  On the other hand, maybe you just meant %hash and got
+carried away.
+
+=item Died
+
+(F) You passed die() an empty string (the equivalent of C<die "">) or
+you called it with no args and C<$@> was empty.
+
+=item Document contains no data
+
+See Server error.
+
+=item %s does not define %s::VERSION--version check failed
+
+(F) You said something like "use Module 42" but the Module did not
+define a C<$VERSION>.
+
+=item '/' does not take a repeat count
+
+(F) You cannot put a repeat count of any kind right after the '/' code.
+See L<perlfunc/pack>.
+
+=item Don't know how to get file name
+
+(P) C<PerlIO_getname>, a perl internal I/O function specific to VMS, was
+somehow called on another platform.  This should not happen.
+
+=item Don't know how to handle magic of type \%o
+
+(P) The internal handling of magical variables has been cursed.
+
+=item do_study: out of memory
+
+(P) This should have been caught by safemalloc() instead.
+
+=item (Do you need to predeclare %s?)
+
+(S syntax) This is an educated guess made in conjunction with the message
+"%s found where operator expected".  It often means a subroutine or module
+name is being referenced that hasn't been declared yet.  This may be
+because of ordering problems in your file, or because of a missing
+"sub", "package", "require", or "use" statement.  If you're referencing
+something that isn't defined yet, you don't actually have to define the
+subroutine or package before the current location.  You can use an empty
+"sub foo;" or "package FOO;" to enter a "forward" declaration.
+
+=item dump() better written as CORE::dump()
+
+(W misc) You used the obsolescent C<dump()> built-in function, without fully
+qualifying it as C<CORE::dump()>.  Maybe it's a typo.  See L<perlfunc/dump>.
+
+=item dump is not supported
+
+(F) Your machine doesn't support dump/undump.
+
+=item Duplicate free() ignored
+
+(S malloc) An internal routine called free() on something that had
+already been freed.
+
+=item Duplicate modifier '%c' after '%c' in %s
+
+(W unpack) You have applied the same modifier more than once after a
+type in a pack template.  See L<perlfunc/pack>.
+
+=item elseif should be elsif
+
+(S syntax) There is no keyword "elseif" in Perl because Larry thinks
+it's ugly.  Your code will be interpreted as an attempt to call a method
+named "elseif" for the class returned by the following block.  This is
+unlikely to be what you want.
+
+=item Empty \%c in regex; marked by S<<-- HERE> in m/%s/
+
+=item Empty \%c{} in regex; marked by S<<-- HERE> in m/%s/
+
+(F) C<\p> and C<\P> are used to introduce a named Unicode property, as
+described in L<perlunicode> and L<perlre>.  You used C<\p> or C<\P> in
+a regular expression without specifying the property name.
+
+=item entering effective %s failed
+
+(F) While under the C<use filetest> pragma, switching the real and
+effective uids or gids failed.
+
+=item %ENV is aliased to %s
+
+(F) You're running under taint mode, and the C<%ENV> variable has been
+aliased to another hash, so it doesn't reflect anymore the state of the
+program's environment.  This is potentially insecure.
+
+=item Error converting file specification %s
+
+(F) An error peculiar to VMS.  Because Perl may have to deal with file
+specifications in either VMS or Unix syntax, it converts them to a
+single form when it must operate on them directly.  Either you've passed
+an invalid file specification to Perl, or you've found a case the
+conversion routines don't handle.  Drat.
+
+=item Eval-group in insecure regular expression
+
+(F) Perl detected tainted data when trying to compile a regular
+expression that contains the C<(?{ ... })> zero-width assertion, which
+is unsafe.  See L<perlre/(?{ code })>, and L<perlsec>.
+
+=item Eval-group not allowed at runtime, use re 'eval' in regex m/%s/
+
+(F) Perl tried to compile a regular expression containing the
+C<(?{ ... })> zero-width assertion at run time, as it would when the
+pattern contains interpolated values.  Since that is a security risk,
+it is not allowed.  If you insist, you may still do this by using the
+C<re 'eval'> pragma or by explicitly building the pattern from an
+interpolated string at run time and using that in an eval().  See
+L<perlre/(?{ code })>.
+
+=item Eval-group not allowed, use re 'eval' in regex m/%s/
+
+(F) A regular expression contained the C<(?{ ... })> zero-width
+assertion, but that construct is only allowed when the C<use re 'eval'>
+pragma is in effect.  See L<perlre/(?{ code })>.
+
+=item EVAL without pos change exceeded limit in regex; marked by
+S<<-- HERE> in m/%s/
+
+(F) You used a pattern that nested too many EVAL calls without consuming
+any text.  Restructure the pattern so that text is consumed.
+
+The S<<-- HERE> shows whereabouts in the regular expression the problem was
+discovered.
+
+=item Excessively long <> operator
+
+(F) The contents of a <> operator may not exceed the maximum size of a
+Perl identifier.  If you're just trying to glob a long list of
+filenames, try using the glob() operator, or put the filenames into a
+variable and glob that.
+
+=item exec? I'm not *that* kind of operating system
+
+(F) The C<exec> function is not implemented on some systems, e.g., Symbian
+OS.  See L<perlport>.
+
+=item Execution of %s aborted due to compilation errors.
+
+(F) The final summary message when a Perl compilation fails.
+
+=item exists argument is not a HASH or ARRAY element or a subroutine
+
+(F) The argument to C<exists> must be a hash or array element or a
+subroutine with an ampersand, such as:
+
+    $foo{$bar}
+    $ref->{"susie"}[12]
+    &do_something
+
+=item exists argument is not a subroutine name
+
+(F) The argument to C<exists> for C<exists &sub> must be a subroutine name,
+and not a subroutine call.  C<exists &sub()> will generate this error.
+
+=item Exiting eval via %s
+
+(W exiting) You are exiting an eval by unconventional means, such as a
+goto, or a loop control statement.
+
+=item Exiting format via %s
+
+(W exiting) You are exiting a format by unconventional means, such as a
+goto, or a loop control statement.
+
+=item Exiting pseudo-block via %s
+
+(W exiting) You are exiting a rather special block construct (like a
+sort block or subroutine) by unconventional means, such as a goto, or a
+loop control statement.  See L<perlfunc/sort>.
+
+=item Exiting subroutine via %s
+
+(W exiting) You are exiting a subroutine by unconventional means, such
+as a goto, or a loop control statement.
+
+=item Exiting substitution via %s
+
+(W exiting) You are exiting a substitution by unconventional means, such
+as a return, a goto, or a loop control statement.
+
+=item Expecting close bracket in regex; marked by S<<-- HERE> in m/%s/
+
+(F) You wrote something like
+
+ (?13
+
+to denote a capturing group of the form
+L<C<(?I<PARNO>)>|perlre/(?PARNO) (?-PARNO) (?+PARNO) (?R) (?0)>,
+but omitted the C<")">.
+
+=item Expecting '(?flags:(?[...' in regex; marked by S<<-- HERE> in m/%s/
+
+(F) The C<(?[...])> extended character class regular expression construct
+only allows character classes (including character class escapes like
+C<\d>), operators, and parentheses.  The one exception is C<(?flags:...)>
+containing at least one flag and exactly one C<(?[...])> construct.
+This allows a regular expression containing just C<(?[...])> to be
+interpolated.  If you see this error message, then you probably
+have some other C<(?...)> construct inside your character class.  See
+L<perlrecharclass/Extended Bracketed Character Classes>.
+
+=item Experimental aliasing via reference not enabled
+
+(F) To do aliasing via references, you must first enable the feature:
+
+    no warnings "experimental::refaliasing";
+    use feature "refaliasing";
+    \$x = \$y;
+
+=item Experimental %s on scalar is now forbidden
+
+(F) An experimental feature added in Perl 5.14 allowed C<each>, C<keys>,
+C<push>, C<pop>, C<shift>, C<splice>, C<unshift>, and C<values> to be called with a
+scalar argument.  This experiment is considered unsuccessful, and
+has been removed.  The C<postderef> feature may meet your needs better.
+
+=item Experimental subroutine signatures not enabled
+
+(F) To use subroutine signatures, you must first enable them:
+
+    no warnings "experimental::signatures";
+    use feature "signatures";
+    sub foo ($left, $right) { ... }
+
+=item Experimental "%s" subs not enabled
+
+(F) To use lexical subs, you must first enable them:
+
+    no warnings 'experimental::lexical_subs';
+    use feature 'lexical_subs';
+    my sub foo { ... }
+
+=item Explicit blessing to '' (assuming package main)
+
+(W misc) You are blessing a reference to a zero length string.  This has
+the effect of blessing the reference into the package main.  This is
+usually not what you want.  Consider providing a default target package,
+e.g. bless($ref, $p || 'MyPackage');
+
+=item %s: Expression syntax
+
+(A) You've accidentally run your script through B<csh> instead of Perl.
+Check the #! line, or manually feed your script into Perl yourself.
+
+=item %s failed--call queue aborted
+
+(F) An untrapped exception was raised while executing a UNITCHECK,
+CHECK, INIT, or END subroutine.  Processing of the remainder of the
+queue of such routines has been prematurely ended.
+
+=item Failed to close in-place edit file %s: %s
+
+(F) Closing an output file from in-place editing, as with the C<-i>
+command-line switch, failed.
+
+=item False [] range "%s" in regex; marked by S<<-- HERE> in m/%s/
+
+(W regexp)(F) A character class range must start and end at a literal
+character, not another character class like C<\d> or C<[:alpha:]>.  The "-"
+in your false range is interpreted as a literal "-".  In a C<(?[...])>
+construct, this is an error, rather than a warning.  Consider quoting
+the "-", "\-".  The S<<-- HERE> shows whereabouts in the regular expression
+the problem was discovered.  See L<perlre>.
+
+=item Fatal VMS error (status=%d) at %s, line %d
+
+(P) An error peculiar to VMS.  Something untoward happened in a VMS
+system service or RTL routine; Perl's exit status should provide more
+details.  The filename in "at %s" and the line number in "line %d" tell
+you which section of the Perl source code is distressed.
+
+=item fcntl is not implemented
+
+(F) Your machine apparently doesn't implement fcntl().  What is this, a
+PDP-11 or something?
+
+=item FETCHSIZE returned a negative value
+
+(F) A tied array claimed to have a negative number of elements, which
+is not possible.
+
+=item Field too wide in 'u' format in pack
+
+(W pack) Each line in an uuencoded string starts with a length indicator
+which can't encode values above 63.  So there is no point in asking for
+a line length bigger than that.  Perl will behave as if you specified
+C<u63> as the format.
+
+=item Filehandle %s opened only for input
+
+(W io) You tried to write on a read-only filehandle.  If you intended
+it to be a read-write filehandle, you needed to open it with "+<" or
+"+>" or "+>>" instead of with "<" or nothing.  If you intended only to
+write the file, use ">" or ">>".  See L<perlfunc/open>.
+
+=item Filehandle %s opened only for output
+
+(W io) You tried to read from a filehandle opened only for writing, If
+you intended it to be a read/write filehandle, you needed to open it
+with "+<" or "+>" or "+>>" instead of with ">".  If you intended only to
+read from the file, use "<".  See L<perlfunc/open>.  Another possibility
+is that you attempted to open filedescriptor 0 (also known as STDIN) for
+output (maybe you closed STDIN earlier?).
+
+=item Filehandle %s reopened as %s only for input
+
+(W io) You opened for reading a filehandle that got the same filehandle id
+as STDOUT or STDERR.  This occurred because you closed STDOUT or STDERR
+previously.
+
+=item Filehandle STDIN reopened as %s only for output
+
+(W io) You opened for writing a filehandle that got the same filehandle id
+as STDIN.  This occurred because you closed STDIN previously.
+
+=item Final $ should be \$ or $name
+
+(F) You must now decide whether the final $ in a string was meant to be
+a literal dollar sign, or was meant to introduce a variable name that
+happens to be missing.  So you have to put either the backslash or the
+name.
+
+=item flock() on closed filehandle %s
+
+(W closed) The filehandle you're attempting to flock() got itself closed
+some time before now.  Check your control flow.  flock() operates on
+filehandles.  Are you attempting to call flock() on a dirhandle by the
+same name?
+
+=item Format not terminated
+
+(F) A format must be terminated by a line with a solitary dot.  Perl got
+to the end of your file without finding such a line.
+
+=item Format %s redefined
+
+(W redefine) You redefined a format.  To suppress this warning, say
+
+    {
+	no warnings 'redefine';
+	eval "format NAME =...";
+    }
+
+=item Found = in conditional, should be ==
+
+(W syntax) You said
+
+    if ($foo = 123)
+
+when you meant
+
+    if ($foo == 123)
+
+(or something like that).
+
+=item %s found where operator expected
+
+(S syntax) The Perl lexer knows whether to expect a term or an operator.
+If it sees what it knows to be a term when it was expecting to see an
+operator, it gives you this warning.  Usually it indicates that an
+operator or delimiter was omitted, such as a semicolon.
+
+=item gdbm store returned %d, errno %d, key "%s"
+
+(S) A warning from the GDBM_File extension that a store failed.
+
+=item gethostent not implemented
+
+(F) Your C library apparently doesn't implement gethostent(), probably
+because if it did, it'd feel morally obligated to return every hostname
+on the Internet.
+
+=item get%sname() on closed socket %s
+
+(W closed) You tried to get a socket or peer socket name on a closed
+socket.  Did you forget to check the return value of your socket() call?
+
+=item getpwnam returned invalid UIC %#o for user "%s"
+
+(S) A warning peculiar to VMS.  The call to C<sys$getuai> underlying the
+C<getpwnam> operator returned an invalid UIC.
+
+=item getsockopt() on closed socket %s
+
+(W closed) You tried to get a socket option on a closed socket.  Did you
+forget to check the return value of your socket() call?  See
+L<perlfunc/getsockopt>.
+
+=item given is experimental
+
+(S experimental::smartmatch) C<given> depends on smartmatch, which
+is experimental, so its behavior may change or even be removed
+in any future release of perl.  See the explanation under
+L<perlsyn/Experimental Details on given and when>.
+
+=item Global symbol "%s" requires explicit package name (did you forget to
+declare "my %s"?)
+
+(F) You've said "use strict" or "use strict vars", which indicates 
+that all variables must either be lexically scoped (using "my" or "state"), 
+declared beforehand using "our", or explicitly qualified to say 
+which package the global variable is in (using "::").
+
+=item glob failed (%s)
+
+(S glob) Something went wrong with the external program(s) used
+for C<glob> and C<< <*.c> >>.  Usually, this means that you supplied a C<glob>
+pattern that caused the external program to fail and exit with a
+nonzero status.  If the message indicates that the abnormal exit
+resulted in a coredump, this may also mean that your csh (C shell)
+is broken.  If so, you should change all of the csh-related variables
+in config.sh:  If you have tcsh, make the variables refer to it as
+if it were csh (e.g. C<full_csh='/usr/bin/tcsh'>); otherwise, make them
+all empty (except that C<d_csh> should be C<'undef'>) so that Perl will
+think csh is missing.  In either case, after editing config.sh, run
+C<./Configure -S> and rebuild Perl.
+
+=item Glob not terminated
+
+(F) The lexer saw a left angle bracket in a place where it was expecting
+a term, so it's looking for the corresponding right angle bracket, and
+not finding it.  Chances are you left some needed parentheses out
+earlier in the line, and you really meant a "less than".
+
+=item gmtime(%f) failed
+
+(W overflow) You called C<gmtime> with a number that it could not handle:
+too large, too small, or NaN.  The returned value is C<undef>.
+
+=item gmtime(%f) too large
+
+(W overflow) You called C<gmtime> with a number that was larger than
+it can reliably handle and C<gmtime> probably returned the wrong
+date.  This warning is also triggered with NaN (the special
+not-a-number value).
+
+=item gmtime(%f) too small
+
+(W overflow) You called C<gmtime> with a number that was smaller than
+it can reliably handle and C<gmtime> probably returned the wrong date.
+
+=item Got an error from DosAllocMem
+
+(P) An error peculiar to OS/2.  Most probably you're using an obsolete
+version of Perl, and this should not happen anyway.
+
+=item goto must have label
+
+(F) Unlike with "next" or "last", you're not allowed to goto an
+unspecified destination.  See L<perlfunc/goto>.
+
+=item Goto undefined subroutine%s
+
+(F) You tried to call a subroutine with C<goto &sub> syntax, but
+the indicated subroutine hasn't been defined, or if it was, it
+has since been undefined.
+
+=item Group name must start with a non-digit word character in regex; marked by 
+S<<-- HERE> in m/%s/
+
+(F) Group names must follow the rules for perl identifiers, meaning
+they must start with a non-digit word character.  A common cause of
+this error is using (?&0) instead of (?0).  See L<perlre>.
+
+=item ()-group starts with a count
+
+(F) A ()-group started with a count.  A count is supposed to follow
+something: a template character or a ()-group.  See L<perlfunc/pack>.
+
+=item %s had compilation errors.
+
+(F) The final summary message when a C<perl -c> fails.
+
+=item Had to create %s unexpectedly
+
+(S internal) A routine asked for a symbol from a symbol table that ought
+to have existed already, but for some reason it didn't, and had to be
+created on an emergency basis to prevent a core dump.
+
+=item %s has too many errors
+
+(F) The parser has given up trying to parse the program after 10 errors.
+Further error messages would likely be uninformative.
+
+=item Having more than one /%c regexp modifier is deprecated
+
+(D deprecated, regexp) You used the indicated regular expression pattern
+modifier at least twice in a string of modifiers.  It is deprecated to
+do this with this particular modifier, to allow future extensions to the
+Perl language.
+
+=item Hexadecimal float: exponent overflow
+
+(W overflow) The hexadecimal floating point has a larger exponent
+than the floating point supports.
+
+=item Hexadecimal float: exponent underflow
+
+(W overflow) The hexadecimal floating point has a smaller exponent
+than the floating point supports.
+
+=item Hexadecimal float: internal error (%s)
+
+(F) Something went horribly bad in hexadecimal float handling.
+
+=item Hexadecimal float: mantissa overflow
+
+(W overflow) The hexadecimal floating point literal had more bits in
+the mantissa (the part between the 0x and the exponent, also known as
+the fraction or the significand) than the floating point supports.
+
+=item Hexadecimal float: precision loss
+
+(W overflow) The hexadecimal floating point had internally more
+digits than could be output.  This can be caused by unsupported
+long double formats, or by 64-bit integers not being available
+(needed to retrieve the digits under some configurations).
+
+=item Hexadecimal float: unsupported long double format
+
+(F) You have configured Perl to use long doubles but
+the internals of the long double format are unknown;
+therefore the hexadecimal float output is impossible.
+
+=item Hexadecimal number > 0xffffffff non-portable
+
+(W portable) The hexadecimal number you specified is larger than 2**32-1
+(4294967295) and therefore non-portable between systems.  See
+L<perlport> for more on portability concerns.
+
+=item Identifier too long
+
+(F) Perl limits identifiers (names for variables, functions, etc.) to
+about 250 characters for simple names, and somewhat more for compound
+names (like C<$A::B>).  You've exceeded Perl's limits.  Future versions
+of Perl are likely to eliminate these arbitrary limitations.
+
+=item Ignoring zero length \N{} in character class in regex; marked by
+S<<-- HERE> in m/%s/
+
+(W regexp) Named Unicode character escapes (C<\N{...}>) may return a
+zero-length sequence.  When such an escape is used in a character
+class its behavior is not well defined.  Check that the correct
+escape has been used, and the correct charname handler is in scope.
+
+=item Illegal binary digit %s
+
+(F) You used a digit other than 0 or 1 in a binary number.
+
+=item Illegal binary digit %s ignored
+
+(W digit) You may have tried to use a digit other than 0 or 1 in a
+binary number.  Interpretation of the binary number stopped before the
+offending digit.
+
+=item Illegal character after '_' in prototype for %s : %s
+
+(W illegalproto) An illegal character was found in a prototype
+declaration.  The '_' in a prototype must be followed by a ';',
+indicating the rest of the parameters are optional, or one of '@'
+or '%', since those two will accept 0 or more final parameters.
+
+=item Illegal character \%o (carriage return)
+
+(F) Perl normally treats carriage returns in the program text as it
+would any other whitespace, which means you should never see this error
+when Perl was built using standard options.  For some reason, your
+version of Perl appears to have been built without this support.  Talk
+to your Perl administrator.
+
+=item Illegal character in prototype for %s : %s
+
+(W illegalproto) An illegal character was found in a prototype declaration.
+Legal characters in prototypes are $, @, %, *, ;, [, ], &, \, and +.
+Perhaps you were trying to write a subroutine signature but didn't enable
+that feature first (C<use feature 'signatures'>), so your signature was
+instead interpreted as a bad prototype.
+
+=item Illegal declaration of anonymous subroutine
+
+(F) When using the C<sub> keyword to construct an anonymous subroutine,
+you must always specify a block of code.  See L<perlsub>.
+
+=item Illegal declaration of subroutine %s
+
+(F) A subroutine was not declared correctly.  See L<perlsub>.
+
+=item Illegal division by zero
+
+(F) You tried to divide a number by 0.  Either something was wrong in
+your logic, or you need to put a conditional in to guard against
+meaningless input.
+
+=item Illegal hexadecimal digit %s ignored
+
+(W digit) You may have tried to use a character other than 0 - 9 or
+A - F, a - f in a hexadecimal number.  Interpretation of the hexadecimal
+number stopped before the illegal character.
+
+=item Illegal modulus zero
+
+(F) You tried to divide a number by 0 to get the remainder.  Most
+numbers don't take to this kindly.
+
+=item Illegal number of bits in vec
+
+(F) The number of bits in vec() (the third argument) must be a power of
+two from 1 to 32 (or 64, if your platform supports that).
+
+=item Illegal octal digit %s
+
+(F) You used an 8 or 9 in an octal number.
+
+=item Illegal octal digit %s ignored
+
+(W digit) You may have tried to use an 8 or 9 in an octal number.
+Interpretation of the octal number stopped before the 8 or 9.
+
+=item Illegal pattern in regex; marked by S<<-- HERE> in m/%s/
+
+(F) You wrote something like
+
+ (?+foo)
+
+The C<"+"> is valid only when followed by digits, indicating a
+capturing group.  See
+L<C<(?I<PARNO>)>|perlre/(?PARNO) (?-PARNO) (?+PARNO) (?R) (?0)>.
+
+=item Illegal suidscript
+
+(F) The script run under suidperl was somehow illegal.
+
+=item Illegal switch in PERL5OPT: -%c
+
+(X) The PERL5OPT environment variable may only be used to set the
+following switches: B<-[CDIMUdmtw]>.
+
+=item Illegal user-defined property name
+
+(F) You specified a Unicode-like property name in a regular expression
+pattern (using C<\p{}> or C<\P{}>) that Perl knows isn't an official
+Unicode property, and was likely meant to be a user-defined property
+name, but it can't be one of those, as they must begin with either C<In>
+or C<Is>.  Check the spelling.  See also
+L</Can't find Unicode property definition "%s">.
+
+=item Ill-formed CRTL environ value "%s"
+
+(W internal) A warning peculiar to VMS.  Perl tried to read the CRTL's
+internal environ array, and encountered an element without the C<=>
+delimiter used to separate keys from values.  The element is ignored.
+
+=item Ill-formed message in prime_env_iter: |%s|
+
+(W internal) A warning peculiar to VMS.  Perl tried to read a logical
+name or CLI symbol definition when preparing to iterate over %ENV, and
+didn't see the expected delimiter between key and value, so the line was
+ignored.
+
+=item (in cleanup) %s
+
+(W misc) This prefix usually indicates that a DESTROY() method raised
+the indicated exception.  Since destructors are usually called by the
+system at arbitrary points during execution, and often a vast number of
+times, the warning is issued only once for any number of failures that
+would otherwise result in the same message being repeated.
+
+Failure of user callbacks dispatched using the C<G_KEEPERR> flag could
+also result in this warning.  See L<perlcall/G_KEEPERR>.
+
+=item Incomplete expression within '(?[ ])' in regex; marked by S<<-- HERE>
+in m/%s/
+
+(F) There was a syntax error within the C<(?[ ])>.  This can happen if the
+expression inside the construct was completely empty, or if there are
+too many or few operands for the number of operators.  Perl is not smart
+enough to give you a more precise indication as to what is wrong.
+
+=item Inconsistent hierarchy during C3 merge of class '%s': merging failed on 
+parent '%s'
+
+(F) The method resolution order (MRO) of the given class is not
+C3-consistent, and you have enabled the C3 MRO for this class.  See the C3
+documentation in L<mro> for more information.
+
+=item Infinite recursion in regex
+
+(F) You used a pattern that references itself without consuming any input
+text.  You should check the pattern to ensure that recursive patterns
+either consume text or fail.
+
+=item Initialization of state variables in list context currently forbidden
+
+(F) Currently the implementation of "state" only permits the
+initialization of scalar variables in scalar context.  Re-write
+C<state ($a) = 42> as C<state $a = 42> to change from list to scalar
+context.  Constructions such as C<state (@a) = foo()> will be
+supported in a future perl release.
+
+=item %%s[%s] in scalar context better written as $%s[%s]
+
+(W syntax) In scalar context, you've used an array index/value slice
+(indicated by %) to select a single element of an array.  Generally
+it's better to ask for a scalar value (indicated by $).  The difference
+is that C<$foo[&bar]> always behaves like a scalar, both in the value it
+returns and when evaluating its argument, while C<%foo[&bar]> provides
+a list context to its subscript, which can do weird things if you're
+expecting only one subscript.  When called in list context, it also
+returns the index (what C<&bar> returns) in addition to the value.
+
+=item %%s{%s} in scalar context better written as $%s{%s}
+
+(W syntax) In scalar context, you've used a hash key/value slice
+(indicated by %) to select a single element of a hash.  Generally it's
+better to ask for a scalar value (indicated by $).  The difference
+is that C<$foo{&bar}> always behaves like a scalar, both in the value
+it returns and when evaluating its argument, while C<@foo{&bar}> and
+provides a list context to its subscript, which can do weird things
+if you're expecting only one subscript.  When called in list context,
+it also returns the key in addition to the value.
+
+=item Insecure dependency in %s
+
+(F) You tried to do something that the tainting mechanism didn't like.
+The tainting mechanism is turned on when you're running setuid or
+setgid, or when you specify B<-T> to turn it on explicitly.  The
+tainting mechanism labels all data that's derived directly or indirectly
+from the user, who is considered to be unworthy of your trust.  If any
+such data is used in a "dangerous" operation, you get this error.  See
+L<perlsec> for more information.
+
+=item Insecure directory in %s
+
+(F) You can't use system(), exec(), or a piped open in a setuid or
+setgid script if C<$ENV{PATH}> contains a directory that is writable by
+the world.  Also, the PATH must not contain any relative directory.
+See L<perlsec>.
+
+=item Insecure $ENV{%s} while running %s
+
+(F) You can't use system(), exec(), or a piped open in a setuid or
+setgid script if any of C<$ENV{PATH}>, C<$ENV{IFS}>, C<$ENV{CDPATH}>,
+C<$ENV{ENV}>, C<$ENV{BASH_ENV}> or C<$ENV{TERM}> are derived from data
+supplied (or potentially supplied) by the user.  The script must set
+the path to a known value, using trustworthy data.  See L<perlsec>.
+
+=item Insecure user-defined property %s
+
+(F) Perl detected tainted data when trying to compile a regular
+expression that contains a call to a user-defined character property
+function, i.e. C<\p{IsFoo}> or C<\p{InFoo}>.
+See L<perlunicode/User-Defined Character Properties> and L<perlsec>.
+
+=item Integer overflow in format string for %s
+
+(F) The indexes and widths specified in the format string of C<printf()>
+or C<sprintf()> are too large.  The numbers must not overflow the size of
+integers for your architecture.
+
+=item Integer overflow in %s number
+
+(S overflow) The hexadecimal, octal or binary number you have specified
+either as a literal or as an argument to hex() or oct() is too big for
+your architecture, and has been converted to a floating point number.
+On a 32-bit architecture the largest hexadecimal, octal or binary number
+representable without overflow is 0xFFFFFFFF, 037777777777, or
+0b11111111111111111111111111111111 respectively.  Note that Perl
+transparently promotes all numbers to a floating point representation
+internally--subject to loss of precision errors in subsequent
+operations.
+
+=item Integer overflow in srand
+
+(S overflow) The number you have passed to srand is too big to fit
+in your architecture's integer representation.  The number has been
+replaced with the largest integer supported (0xFFFFFFFF on 32-bit
+architectures).  This means you may be getting less randomness than
+you expect, because different random seeds above the maximum will
+return the same sequence of random numbers.
+
+=item Integer overflow in version
+
+=item Integer overflow in version %d
+
+(W overflow) Some portion of a version initialization is too large for
+the size of integers for your architecture.  This is not a warning
+because there is no rational reason for a version to try and use an
+element larger than typically 2**32.  This is usually caused by trying
+to use some odd mathematical operation as a version, like 100/9.
+
+=item Internal disaster in regex; marked by S<<-- HERE> in m/%s/
+
+(P) Something went badly wrong in the regular expression parser.
+The S<<-- HERE> shows whereabouts in the regular expression the problem was
+discovered.
+
+=item Internal inconsistency in tracking vforks
+
+(S) A warning peculiar to VMS.  Perl keeps track of the number of times
+you've called C<fork> and C<exec>, to determine whether the current call
+to C<exec> should affect the current script or a subprocess (see
+L<perlvms/"exec LIST">).  Somehow, this count has become scrambled, so
+Perl is making a guess and treating this C<exec> as a request to
+terminate the Perl script and execute the specified command.
+
+=item internal %<num>p might conflict with future printf extensions
+
+(S internal) Perl's internal routine that handles C<printf> and C<sprintf>
+formatting follows a slightly different set of rules when called from
+C or XS code.  Specifically, formats consisting of digits followed
+by "p" (e.g., "%7p") are reserved for future use.  If you see this
+message, then an XS module tried to call that routine with one such
+reserved format.
+
+=item Internal urp in regex; marked by S<<-- HERE> in m/%s/
+
+(P) Something went badly awry in the regular expression parser.  The
+S<<-- HERE> shows whereabouts in the regular expression the problem was
+discovered.
+
+=item %s (...) interpreted as function
+
+(W syntax) You've run afoul of the rule that says that any list operator
+followed by parentheses turns into a function, with all the list
+operators arguments found inside the parentheses.  See
+L<perlop/Terms and List Operators (Leftward)>.
+
+=item In '(?...)', the '(' and '?' must be adjacent in regex;
+marked by S<<-- HERE> in m/%s/
+
+(F) The two-character sequence C<"(?"> in this context in a regular
+expression pattern should be an indivisible token, with nothing
+intervening between the C<"("> and the C<"?">, but you separated them
+with whitespace.
+
+=item Invalid %s attribute: %s
+
+(F) The indicated attribute for a subroutine or variable was not recognized
+by Perl or by a user-supplied handler.  See L<attributes>.
+
+=item Invalid %s attributes: %s
+
+(F) The indicated attributes for a subroutine or variable were not
+recognized by Perl or by a user-supplied handler.  See L<attributes>.
+
+=item Invalid character in charnames alias definition; marked by
+S<<-- HERE> in '%s
+
+(F) You tried to create a custom alias for a character name, with
+the C<:alias> option to C<use charnames> and the specified character in
+the indicated name isn't valid.  See L<charnames/CUSTOM ALIASES>.
+
+=item Invalid \0 character in %s for %s: %s\0%s
+
+(W syscalls) Embedded \0 characters in pathnames or other system call
+arguments produce a warning as of 5.20.  The parts after the \0 were
+formerly ignored by system calls.
+
+=item Invalid character in \N{...}; marked by S<<-- HERE> in \N{%s}
+
+(F) Only certain characters are valid for character names.  The
+indicated one isn't.  See L<charnames/CUSTOM ALIASES>.
+
+=item Invalid conversion in %s: "%s"
+
+(W printf) Perl does not understand the given format conversion.  See
+L<perlfunc/sprintf>.
+
+=item Invalid escape in the specified encoding in regex; marked by
+S<<-- HERE> in m/%s/
+
+(W regexp)(F) The numeric escape (for example C<\xHH>) of value < 256
+didn't correspond to a single character through the conversion
+from the encoding specified by the encoding pragma.
+The escape was replaced with REPLACEMENT CHARACTER (U+FFFD)
+instead, except within S<C<(?[   ])>>, where it is a fatal error.
+The S<<-- HERE> shows whereabouts in the regular expression the
+escape was discovered.
+
+=item Invalid hexadecimal number in \N{U+...}
+
+=item Invalid hexadecimal number in \N{U+...} in regex; marked by
+S<<-- HERE> in m/%s/
+
+(F) The character constant represented by C<...> is not a valid hexadecimal
+number.  Either it is empty, or you tried to use a character other than
+0 - 9 or A - F, a - f in a hexadecimal number.
+
+=item Invalid module name %s with -%c option: contains single ':'
+
+(F) The module argument to perl's B<-m> and B<-M> command-line options
+cannot contain single colons in the module name, but only in the
+arguments after "=".  In other words, B<-MFoo::Bar=:baz> is ok, but
+B<-MFoo:Bar=baz> is not.
+
+=item Invalid mro name: '%s'
+
+(F) You tried to C<mro::set_mro("classname", "foo")> or C<use mro 'foo'>,
+where C<foo> is not a valid method resolution order (MRO).  Currently,
+the only valid ones supported are C<dfs> and C<c3>, unless you have loaded
+a module that is a MRO plugin.  See L<mro> and L<perlmroapi>.
+
+=item Invalid negative number (%s) in chr
+
+(W utf8) You passed a negative number to C<chr>.  Negative numbers are
+not valid character numbers, so it returns the Unicode replacement
+character (U+FFFD).
+
+=item Invalid number '%s' for -C option.
+
+(F) You supplied a number to the -C option that either has extra leading
+zeroes or overflows perl's unsigned integer representation.
+
+=item invalid option -D%c, use -D'' to see choices
+
+(S debugging) Perl was called with invalid debugger flags.  Call perl
+with the B<-D> option with no flags to see the list of acceptable values.
+See also L<perlrun/-Dletters>.
+
+=item Invalid quantifier in {,} in regex; marked by S<<-- HERE> in m/%s/
+
+(F) The pattern looks like a {min,max} quantifier, but the min or max
+could not be parsed as a valid number - either it has leading zeroes,
+or it represents too big a number to cope with.  The S<<-- HERE> shows
+where in the regular expression the problem was discovered.  See L<perlre>.
+
+=item Invalid [] range "%s" in regex; marked by S<<-- HERE> in m/%s/
+
+(F) The range specified in a character class had a minimum character
+greater than the maximum character.  One possibility is that you forgot the
+C<{}> from your ending C<\x{}> - C<\x> without the curly braces can go only
+up to C<ff>.  The S<<-- HERE> shows whereabouts in the regular expression the
+problem was discovered.  See L<perlre>.
+
+=item Invalid range "%s" in transliteration operator
+
+(F) The range specified in the tr/// or y/// operator had a minimum
+character greater than the maximum character.  See L<perlop>.
+
+=item Invalid separator character %s in attribute list
+
+(F) Something other than a colon or whitespace was seen between the
+elements of an attribute list.  If the previous attribute had a
+parenthesised parameter list, perhaps that list was terminated too soon.
+See L<attributes>.
+
+=item Invalid separator character %s in PerlIO layer specification %s
+
+(W layer) When pushing layers onto the Perl I/O system, something other
+than a colon or whitespace was seen between the elements of a layer list.
+If the previous attribute had a parenthesised parameter list, perhaps that
+list was terminated too soon.
+
+=item Invalid strict version format (%s)
+
+(F) A version number did not meet the "strict" criteria for versions.
+A "strict" version number is a positive decimal number (integer or
+decimal-fraction) without exponentiation or else a dotted-decimal
+v-string with a leading 'v' character and at least three components.
+The parenthesized text indicates which criteria were not met.
+See the L<version> module for more details on allowed version formats.
+
+=item Invalid type '%s' in %s
+
+(F) The given character is not a valid pack or unpack type.
+See L<perlfunc/pack>.
+
+(W) The given character is not a valid pack or unpack type but used to be
+silently ignored.
+
+=item Invalid version format (%s)
+
+(F) A version number did not meet the "lax" criteria for versions.
+A "lax" version number is a positive decimal number (integer or
+decimal-fraction) without exponentiation or else a dotted-decimal
+v-string.  If the v-string has fewer than three components, it
+must have a leading 'v' character.  Otherwise, the leading 'v' is
+optional.  Both decimal and dotted-decimal versions may have a
+trailing "alpha" component separated by an underscore character
+after a fractional or dotted-decimal component.  The parenthesized
+text indicates which criteria were not met.  See the L<version> module
+for more details on allowed version formats.
+
+=item Invalid version object
+
+(F) The internal structure of the version object was invalid.
+Perhaps the internals were modified directly in some way or
+an arbitrary reference was blessed into the "version" class.
+
+=item In '(*VERB...)', the '(' and '*' must be adjacent in regex;
+marked by S<<-- HERE> in m/%s/
+
+(F) The two-character sequence C<"(*"> in
+this context in a regular expression pattern should be an
+indivisible token, with nothing intervening between the C<"(">
+and the C<"*">, but you separated them.
+
+=item ioctl is not implemented
+
+(F) Your machine apparently doesn't implement ioctl(), which is pretty
+strange for a machine that supports C.
+
+=item ioctl() on unopened %s
+
+(W unopened) You tried ioctl() on a filehandle that was never opened.
+Check your control flow and number of arguments.
+
+=item IO layers (like '%s') unavailable
+
+(F) Your Perl has not been configured to have PerlIO, and therefore
+you cannot use IO layers.  To have PerlIO, Perl must be configured
+with 'useperlio'.
+
+=item IO::Socket::atmark not implemented on this architecture
+
+(F) Your machine doesn't implement the sockatmark() functionality,
+neither as a system call nor an ioctl call (SIOCATMARK).
+
+=item '%s' is an unknown bound type in regex; marked by S<<-- HERE> in m/%s/
+
+(F) You used C<\b{...}> or C<\B{...}> and the C<...> is not known to
+Perl.  The current valid ones are given in
+L<perlrebackslash/\b{}, \b, \B{}, \B>.
+
+=item %s() is deprecated on :utf8 handles
+
+(W deprecated) The sysread(), recv(), syswrite() and send() operators are
+deprecated on handles that have the C<:utf8> layer, either explicitly, or
+implicitly, eg., with the C<:encoding(UTF-16LE)> layer.
+
+Both sysread() and recv() currently use only the C<:utf8> flag for the stream,
+ignoring the actual layers.  Since sysread() and recv() do no UTF-8
+validation they can end up creating invalidly encoded scalars.
+
+Similarly, syswrite() and send() use only the C<:utf8> flag, otherwise ignoring
+any layers.  If the flag is set, both write the value UTF-8 encoded, even if
+the layer is some different encoding, such as the example above.
+
+Ideally, all of these operators would completely ignore the C<:utf8> state,
+working only with bytes, but this would result in silently breaking existing
+code.  To avoid this a future version of perl will throw an exception when
+any of sysread(), recv(), syswrite() or send() are called on handle with the
+C<:utf8> layer.
+
+=item "%s" is more clearly written simply as "%s" in regex; marked by S<<-- HERE> in m/%s/
+
+(W regexp) (only under C<S<use re 'strict'>> or within C<(?[...])>)
+
+You specified a character that has the given plainer way of writing it,
+and which is also portable to platforms running with different character
+sets.
+
+=item $* is no longer supported
+
+(D deprecated, syntax) The special variable C<$*>, deprecated in older
+perls, has been removed as of 5.10.0 and is no longer supported.  In
+previous versions of perl the use of C<$*> enabled or disabled multi-line
+matching within a string.
+
+Instead of using C<$*> you should use the C</m> (and maybe C</s>) regexp
+modifiers.  You can enable C</m> for a lexical scope (even a whole file)
+with C<use re '/m'>.  (In older versions: when C<$*> was set to a true value
+then all regular expressions behaved as if they were written using C</m>.)
+
+=item $# is no longer supported
+
+(D deprecated, syntax) The special variable C<$#>, deprecated in older
+perls, has been removed as of 5.10.0 and is no longer supported.  You
+should use the printf/sprintf functions instead.
+
+=item '%s' is not a code reference
+
+(W overload) The second (fourth, sixth, ...) argument of
+overload::constant needs to be a code reference.  Either
+an anonymous subroutine, or a reference to a subroutine.
+
+=item '%s' is not an overloadable type
+
+(W overload) You tried to overload a constant type the overload package is
+unaware of.
+
+=item -i used with no filenames on the command line, reading from STDIN
+
+(S inplace) The C<-i> option was passed on the command line, indicating
+that the script is intended to edit files in place, but no files were
+given.  This is usually a mistake, since editing STDIN in place doesn't
+make sense, and can be confusing because it can make perl look like
+it is hanging when it is really just trying to read from STDIN.  You
+should either pass a filename to edit, or remove C<-i> from the command
+line.  See L<perlrun> for more details.
+
+=item Junk on end of regexp in regex m/%s/
+
+(P) The regular expression parser is confused.
+
+=item Label not found for "last %s"
+
+(F) You named a loop to break out of, but you're not currently in a loop
+of that name, not even if you count where you were called from.  See
+L<perlfunc/last>.
+
+=item Label not found for "next %s"
+
+(F) You named a loop to continue, but you're not currently in a loop of
+that name, not even if you count where you were called from.  See
+L<perlfunc/last>.
+
+=item Label not found for "redo %s"
+
+(F) You named a loop to restart, but you're not currently in a loop of
+that name, not even if you count where you were called from.  See
+L<perlfunc/last>.
+
+=item leaving effective %s failed
+
+(F) While under the C<use filetest> pragma, switching the real and
+effective uids or gids failed.
+
+=item length/code after end of string in unpack
+
+(F) While unpacking, the string buffer was already used up when an unpack
+length/code combination tried to obtain more data.  This results in
+an undefined value for the length.  See L<perlfunc/pack>.
+
+=item length() used on %s (did you mean "scalar(%s)"?)
+
+(W syntax) You used length() on either an array or a hash when you
+probably wanted a count of the items.
+
+Array size can be obtained by doing:
+
+    scalar(@array);
+
+The number of items in a hash can be obtained by doing:
+
+    scalar(keys %hash);
+
+=item Lexing code attempted to stuff non-Latin-1 character into Latin-1 input
+
+(F) An extension is attempting to insert text into the current parse
+(using L<lex_stuff_pvn|perlapi/lex_stuff_pvn> or similar), but tried to insert a character that
+couldn't be part of the current input.  This is an inherent pitfall
+of the stuffing mechanism, and one of the reasons to avoid it.  Where
+it is necessary to stuff, stuffing only plain ASCII is recommended.
+
+=item Lexing code internal error (%s)
+
+(F) Lexing code supplied by an extension violated the lexer's API in a
+detectable way.
+
+=item listen() on closed socket %s
+
+(W closed) You tried to do a listen on a closed socket.  Did you forget
+to check the return value of your socket() call?  See
+L<perlfunc/listen>.
+
+=item List form of piped open not implemented
+
+(F) On some platforms, notably Windows, the three-or-more-arguments
+form of C<open> does not support pipes, such as C<open($pipe, '|-', @args)>.
+Use the two-argument C<open($pipe, '|prog arg1 arg2...')> form instead.
+
+=item %s: loadable library and perl binaries are mismatched (got handshake key %p, needed %p)
+
+(P) A dynamic loading library C<.so> or C<.dll> was being loaded into the
+process that was built against a different build of perl than the
+said library was compiled against.  Reinstalling the XS module will
+likely fix this error.
+
+=item Locale '%s' may not work well.%s
+
+(W locale) You are using the named locale, which is a non-UTF-8 one, and
+which perl has determined is not fully compatible with what it can
+handle.  The second C<%s> gives a reason.
+
+By far the most common reason is that the locale has characters in it
+that are represented by more than one byte.  The only such locales that
+Perl can handle are the UTF-8 locales.  Most likely the specified locale
+is a non-UTF-8 one for an East Asian language such as Chinese or
+Japanese.  If the locale is a superset of ASCII, the ASCII portion of it
+may work in Perl.
+
+Some essentially obsolete locales that aren't supersets of ASCII, mainly
+those in ISO 646 or other 7-bit locales, such as ASMO 449, can also have
+problems, depending on what portions of the ASCII character set get
+changed by the locale and are also used by the program.
+The warning message lists the determinable conflicting characters.
+
+Note that not all incompatibilities are found.
+
+If this happens to you, there's not much you can do except switch to use a
+different locale or use L<Encode> to translate from the locale into
+UTF-8; if that's impracticable, you have been warned that some things
+may break.
+
+This message is output once each time a bad locale is switched into
+within the scope of C<S<use locale>>, or on the first possibly-affected
+operation if the C<S<use locale>> inherits a bad one.  It is not raised
+for any operations from the L<POSIX> module.
+
+=item localtime(%f) failed
+
+(W overflow) You called C<localtime> with a number that it could not handle:
+too large, too small, or NaN.  The returned value is C<undef>.
+
+=item localtime(%f) too large
+
+(W overflow) You called C<localtime> with a number that was larger
+than it can reliably handle and C<localtime> probably returned the
+wrong date.  This warning is also triggered with NaN (the special
+not-a-number value).
+
+=item localtime(%f) too small
+
+(W overflow) You called C<localtime> with a number that was smaller
+than it can reliably handle and C<localtime> probably returned the
+wrong date.
+
+=item Lookbehind longer than %d not implemented in regex m/%s/
+
+(F) There is currently a limit on the length of string which lookbehind can
+handle.  This restriction may be eased in a future release. 
+
+=item Lost precision when %s %f by 1
+
+(W imprecision) The value you attempted to increment or decrement by one
+is too large for the underlying floating point representation to store
+accurately, hence the target of C<++> or C<--> is unchanged.  Perl issues this
+warning because it has already switched from integers to floating point
+when values are too large for integers, and now even floating point is
+insufficient.  You may wish to switch to using L<Math::BigInt> explicitly.
+
+=item lstat() on filehandle%s
+
+(W io) You tried to do an lstat on a filehandle.  What did you mean
+by that?  lstat() makes sense only on filenames.  (Perl did a fstat()
+instead on the filehandle.)
+
+=item lvalue attribute %s already-defined subroutine
+
+(W misc) Although L<attributes.pm|attributes> allows this, turning the lvalue
+attribute on or off on a Perl subroutine that is already defined
+does not always work properly.  It may or may not do what you
+want, depending on what code is inside the subroutine, with exact
+details subject to change between Perl versions.  Only do this
+if you really know what you are doing.
+
+=item lvalue attribute ignored after the subroutine has been defined
+
+(W misc) Using the C<:lvalue> declarative syntax to make a Perl
+subroutine an lvalue subroutine after it has been defined is
+not permitted.  To make the subroutine an lvalue subroutine,
+add the lvalue attribute to the definition, or put the C<sub
+foo :lvalue;> declaration before the definition.
+
+See also L<attributes.pm|attributes>.
+
+=item Magical list constants are not supported
+
+(F) You assigned a magical array to a stash element, and then tried
+to use the subroutine from the same slot.  You are asking Perl to do
+something it cannot do, details subject to change between Perl versions.
+
+=item Malformed integer in [] in pack
+
+(F) Between the brackets enclosing a numeric repeat count only digits
+are permitted.  See L<perlfunc/pack>.
+
+=item Malformed integer in [] in unpack
+
+(F) Between the brackets enclosing a numeric repeat count only digits
+are permitted.  See L<perlfunc/pack>.
+
+=item Malformed PERLLIB_PREFIX
+
+(F) An error peculiar to OS/2.  PERLLIB_PREFIX should be of the form
+
+    prefix1;prefix2
+
+or
+    prefix1 prefix2
+
+with nonempty prefix1 and prefix2.  If C<prefix1> is indeed a prefix of
+a builtin library search path, prefix2 is substituted.  The error may
+appear if components are not found, or are too long.  See
+"PERLLIB_PREFIX" in L<perlos2>.
+
+=item Malformed prototype for %s: %s
+
+(F) You tried to use a function with a malformed prototype.  The
+syntax of function prototypes is given a brief compile-time check for
+obvious errors like invalid characters.  A more rigorous check is run
+when the function is called.
+Perhaps the function's author was trying to write a subroutine signature
+but didn't enable that feature first (C<use feature 'signatures'>),
+so the signature was instead interpreted as a bad prototype.
+
+=item Malformed UTF-8 character (%s)
+
+(S utf8)(F) Perl detected a string that didn't comply with UTF-8
+encoding rules, even though it had the UTF8 flag on.
+
+One possible cause is that you set the UTF8 flag yourself for data that
+you thought to be in UTF-8 but it wasn't (it was for example legacy
+8-bit data).  To guard against this, you can use Encode::decode_utf8.
+
+If you use the C<:encoding(UTF-8)> PerlIO layer for input, invalid byte
+sequences are handled gracefully, but if you use C<:utf8>, the flag is
+set without validating the data, possibly resulting in this error
+message.
+
+See also L<Encode/"Handling Malformed Data">.
+
+=item Malformed UTF-8 character immediately after '%s'
+
+(F) You said C<use utf8>, but the program file doesn't comply with UTF-8
+encoding rules.  The message prints out the properly encoded characters
+just before the first bad one.  If C<utf8> warnings are enabled, a
+warning is generated that gives more details about the type of
+malformation.
+
+=item Malformed UTF-8 returned by \N{%s} immediately after '%s'
+
+(F) The charnames handler returned malformed UTF-8.
+
+=item Malformed UTF-8 string in '%c' format in unpack
+
+(F) You tried to unpack something that didn't comply with UTF-8 encoding
+rules and perl was unable to guess how to make more progress.
+
+=item Malformed UTF-8 string in pack
+
+(F) You tried to pack something that didn't comply with UTF-8 encoding
+rules and perl was unable to guess how to make more progress.
+
+=item Malformed UTF-8 string in unpack
+
+(F) You tried to unpack something that didn't comply with UTF-8 encoding
+rules and perl was unable to guess how to make more progress.
+
+=item Malformed UTF-16 surrogate
+
+(F) Perl thought it was reading UTF-16 encoded character data but while
+doing it Perl met a malformed Unicode surrogate.
+
+=item Mandatory parameter follows optional parameter
+
+(F) In a subroutine signature, you wrote something like "$a = undef,
+$b", making an earlier parameter optional and a later one mandatory.
+Parameters are filled from left to right, so it's impossible for the
+caller to omit an earlier one and pass a later one.  If you want to act
+as if the parameters are filled from right to left, declare the rightmost
+optional and then shuffle the parameters around in the subroutine's body.
+
+=item Matched non-Unicode code point 0x%X against Unicode property; may
+not be portable
+
+(S non_unicode) Perl allows strings to contain a superset of
+Unicode code points; each code point may be as large as what is storable
+in an unsigned integer on your system, but these may not be accepted by
+other languages/systems.  This message occurs when you matched a string
+containing such a code point against a regular expression pattern, and
+the code point was matched against a Unicode property, C<\p{...}> or
+C<\P{...}>.  Unicode properties are only defined on Unicode code points,
+so the result of this match is undefined by Unicode, but Perl (starting
+in v5.20) treats non-Unicode code points as if they were typical
+unassigned Unicode ones, and matched this one accordingly.  Whether a
+given property matches these code points or not is specified in
+L<perluniprops/Properties accessible through \p{} and \P{}>.
+
+This message is suppressed (unless it has been made fatal) if it is
+immaterial to the results of the match if the code point is Unicode or
+not.  For example, the property C<\p{ASCII_Hex_Digit}> only can match
+the 22 characters C<[0-9A-Fa-f]>, so obviously all other code points,
+Unicode or not, won't match it.  (And C<\P{ASCII_Hex_Digit}> will match
+every code point except these 22.)
+
+Getting this message indicates that the outcome of the match arguably
+should have been the opposite of what actually happened.  If you think
+that is the case, you may wish to make the C<non_unicode> warnings
+category fatal; if you agree with Perl's decision, you may wish to turn
+off this category.
+
+See L<perlunicode/Beyond Unicode code points> for more information.
+
+=item %s matches null string many times in regex; marked by S<<-- HERE> in
+m/%s/
+
+(W regexp) The pattern you've specified would be an infinite loop if the
+regular expression engine didn't specifically check for that.  The S<<-- HERE>
+shows whereabouts in the regular expression the problem was discovered.
+See L<perlre>.
+
+=item Maximal count of pending signals (%u) exceeded
+
+(F) Perl aborted due to too high a number of signals pending.  This
+usually indicates that your operating system tried to deliver signals
+too fast (with a very high priority), starving the perl process from
+resources it would need to reach a point where it can process signals
+safely.  (See L<perlipc/"Deferred Signals (Safe Signals)">.)
+
+=item "%s" may clash with future reserved word
+
+(W) This warning may be due to running a perl5 script through a perl4
+interpreter, especially if the word that is being warned about is
+"use" or "my".
+
+=item '%' may not be used in pack
+
+(F) You can't pack a string by supplying a checksum, because the
+checksumming process loses information, and you can't go the other way.
+See L<perlfunc/unpack>.
+
+=item Method for operation %s not found in package %s during blessing
+
+(F) An attempt was made to specify an entry in an overloading table that
+doesn't resolve to a valid subroutine.  See L<overload>.
+
+=item Method %s not permitted
+
+See Server error.
+
+=item Might be a runaway multi-line %s string starting on line %d
+
+(S) An advisory indicating that the previous error may have been caused
+by a missing delimiter on a string or pattern, because it eventually
+ended earlier on the current line.
+
+=item Misplaced _ in number
+
+(W syntax) An underscore (underbar) in a numeric constant did not
+separate two digits.
+
+=item Missing argument in %s
+
+(W missing) You called a function with fewer arguments than other
+arguments you supplied indicated would be needed.
+
+Currently only emitted when a printf-type format required more
+arguments than were supplied, but might be used in the future for
+other cases where we can statically determine that arguments to
+functions are missing, e.g. for the L<perlfunc/pack> function.
+
+=item Missing argument to -%c
+
+(F) The argument to the indicated command line switch must follow
+immediately after the switch, without intervening spaces.
+
+=item Missing braces on \N{}
+
+=item Missing braces on \N{} in regex; marked by S<<-- HERE> in m/%s/
+
+(F) Wrong syntax of character name literal C<\N{charname}> within
+double-quotish context.  This can also happen when there is a space
+(or comment) between the C<\N> and the C<{> in a regex with the C</x> modifier.
+This modifier does not change the requirement that the brace immediately
+follow the C<\N>.
+
+=item Missing braces on \o{}
+
+(F) A C<\o> must be followed immediately by a C<{> in double-quotish context.
+
+=item Missing comma after first argument to %s function
+
+(F) While certain functions allow you to specify a filehandle or an
+"indirect object" before the argument list, this ain't one of them.
+
+=item Missing command in piped open
+
+(W pipe) You used the C<open(FH, "| command")> or
+C<open(FH, "command |")> construction, but the command was missing or
+blank.
+
+=item Missing control char name in \c
+
+(F) A double-quoted string ended with "\c", without the required control
+character name.
+
+=item Missing ']' in prototype for %s : %s
+
+(W illegalproto) A grouping was started with C<[> but never closed with C<]>.
+
+=item Missing name in "%s sub"
+
+(F) The syntax for lexically scoped subroutines requires that
+they have a name with which they can be found.
+
+=item Missing $ on loop variable
+
+(F) Apparently you've been programming in B<csh> too much.  Variables
+are always mentioned with the $ in Perl, unlike in the shells, where it
+can vary from one line to the next.
+
+=item (Missing operator before %s?)
+
+(S syntax) This is an educated guess made in conjunction with the message
+"%s found where operator expected".  Often the missing operator is a comma.
+
+=item Missing or undefined argument to require
+
+(F) You tried to call require with no argument or with an undefined
+value as an argument.  Require expects either a package name or a
+file-specification as an argument.  See L<perlfunc/require>.
+
+=item Missing right brace on \%c{} in regex; marked by S<<-- HERE> in m/%s/
+
+(F) Missing right brace in C<\x{...}>, C<\p{...}>, C<\P{...}>, or C<\N{...}>.
+
+=item Missing right brace on \N{}
+
+=item Missing right brace on \N{} or unescaped left brace after \N
+
+(F) C<\N> has two meanings.
+
+The traditional one has it followed by a name enclosed in braces,
+meaning the character (or sequence of characters) given by that
+name.  Thus C<\N{ASTERISK}> is another way of writing C<*>, valid in both
+double-quoted strings and regular expression patterns.  In patterns,
+it doesn't have the meaning an unescaped C<*> does.
+
+Starting in Perl 5.12.0, C<\N> also can have an additional meaning (only)
+in patterns, namely to match a non-newline character.  (This is short
+for C<[^\n]>, and like C<.> but is not affected by the C</s> regex modifier.)
+
+This can lead to some ambiguities.  When C<\N> is not followed immediately
+by a left brace, Perl assumes the C<[^\n]> meaning.  Also, if the braces
+form a valid quantifier such as C<\N{3}> or C<\N{5,}>, Perl assumes that this
+means to match the given quantity of non-newlines (in these examples,
+3; and 5 or more, respectively).  In all other case, where there is a
+C<\N{> and a matching C<}>, Perl assumes that a character name is desired.
+
+However, if there is no matching C<}>, Perl doesn't know if it was
+mistakenly omitted, or if C<[^\n]{> was desired, and raises this error.
+If you meant the former, add the right brace; if you meant the latter,
+escape the brace with a backslash, like so: C<\N\{>
+
+=item Missing right curly or square bracket
+
+(F) The lexer counted more opening curly or square brackets than closing
+ones.  As a general rule, you'll find it's missing near the place you
+were last editing.
+
+=item (Missing semicolon on previous line?)
+
+(S syntax) This is an educated guess made in conjunction with the message
+"%s found where operator expected".  Don't automatically put a semicolon on
+the previous line just because you saw this message.
+
+=item Modification of a read-only value attempted
+
+(F) You tried, directly or indirectly, to change the value of a
+constant.  You didn't, of course, try "2 = 1", because the compiler
+catches that.  But an easy way to do the same thing is:
+
+    sub mod { $_[0] = 1 }
+    mod(2);
+
+Another way is to assign to a substr() that's off the end of the string.
+
+Yet another way is to assign to a C<foreach> loop I<VAR> when I<VAR>
+is aliased to a constant in the look I<LIST>:
+
+    $x = 1;
+    foreach my $n ($x, 2) {
+        $n *= 2; # modifies the $x, but fails on attempt to
+    }            # modify the 2
+
+=item Modification of non-creatable array value attempted, %s
+
+(F) You tried to make an array value spring into existence, and the
+subscript was probably negative, even counting from end of the array
+backwards.
+
+=item Modification of non-creatable hash value attempted, %s
+
+(P) You tried to make a hash value spring into existence, and it
+couldn't be created for some peculiar reason.
+
+=item Module name must be constant
+
+(F) Only a bare module name is allowed as the first argument to a "use".
+
+=item Module name required with -%c option
+
+(F) The C<-M> or C<-m> options say that Perl should load some module, but
+you omitted the name of the module.  Consult L<perlrun> for full details
+about C<-M> and C<-m>.
+
+=item More than one argument to '%s' open
+
+(F) The C<open> function has been asked to open multiple files.  This
+can happen if you are trying to open a pipe to a command that takes a
+list of arguments, but have forgotten to specify a piped open mode.
+See L<perlfunc/open> for details.
+
+=item mprotect for COW string %p %u failed with %d
+
+(S) You compiled perl with B<-D>PERL_DEBUG_READONLY_COW (see
+L<perlguts/"Copy on Write">), but a shared string buffer
+could not be made read-only.
+
+=item mprotect for %p %u failed with %d
+
+(S) You compiled perl with B<-D>PERL_DEBUG_READONLY_OPS (see L<perlhacktips>),
+but an op tree could not be made read-only.
+
+=item mprotect RW for COW string %p %u failed with %d
+
+(S) You compiled perl with B<-D>PERL_DEBUG_READONLY_COW (see
+L<perlguts/"Copy on Write">), but a read-only shared string
+buffer could not be made mutable.
+
+=item mprotect RW for %p %u failed with %d
+
+(S) You compiled perl with B<-D>PERL_DEBUG_READONLY_OPS (see
+L<perlhacktips>), but a read-only op tree could not be made
+mutable before freeing the ops.
+
+=item msg%s not implemented
+
+(F) You don't have System V message IPC on your system.
+
+=item Multidimensional syntax %s not supported
+
+(W syntax) Multidimensional arrays aren't written like C<$foo[1,2,3]>.
+They're written like C<$foo[1][2][3]>, as in C.
+
+=item '/' must follow a numeric type in unpack
+
+(F) You had an unpack template that contained a '/', but this did not
+follow some unpack specification producing a numeric value.
+See L<perlfunc/pack>.
+
+=item %s must not be a named sequence in transliteration operator
+
+(F) Transliteration (C<tr///> and C<y///>) transliterates individual
+characters.  But a named sequence by definition is more than an
+individual charater, and hence doing this operation on it doesn't make
+sense.
+
+=item "my sub" not yet implemented
+
+(F) Lexically scoped subroutines are not yet implemented.  Don't try
+that yet.
+
+=item "my" subroutine %s can't be in a package
+
+(F) Lexically scoped subroutines aren't in a package, so it doesn't make
+sense to try to declare one with a package qualifier on the front.
+
+=item "my %s" used in sort comparison
+
+(W syntax) The package variables $a and $b are used for sort comparisons.
+You used $a or $b in as an operand to the C<< <=> >> or C<cmp> operator inside a
+sort comparison block, and the variable had earlier been declared as a
+lexical variable.  Either qualify the sort variable with the package
+name, or rename the lexical variable.
+
+=item "my" variable %s can't be in a package
+
+(F) Lexically scoped variables aren't in a package, so it doesn't make
+sense to try to declare one with a package qualifier on the front.  Use
+local() if you want to localize a package variable.
+
+=item Name "%s::%s" used only once: possible typo
+
+(W once) Typographical errors often show up as unique variable
+names.  If you had a good reason for having a unique name, then
+just mention it again somehow to suppress the message.  The C<our>
+declaration is also provided for this purpose.
+
+NOTE: This warning detects package symbols that have been used
+only once.  This means lexical variables will never trigger this
+warning.  It also means that all of the package variables $c, @c,
+%c, as well as *c, &c, sub c{}, c(), and c (the filehandle or
+format) are considered the same; if a program uses $c only once
+but also uses any of the others it will not trigger this warning.
+Symbols beginning with an underscore and symbols using special
+identifiers (q.v. L<perldata>) are exempt from this warning.
+
+=item Need exactly 3 octal digits in regex; marked by S<<-- HERE> in m/%s/
+
+(F) Within S<C<(?[   ])>>, all constants interpreted as octal need to be
+exactly 3 digits long.  This helps catch some ambiguities.  If your
+constant is too short, add leading zeros, like
+
+ (?[ [ \078 ] ])     # Syntax error!
+ (?[ [ \0078 ] ])    # Works
+ (?[ [ \007 8 ] ])   # Clearer
+
+The maximum number this construct can express is C<\777>.  If you
+need a larger one, you need to use L<\o{}|perlrebackslash/Octal escapes> instead.  If you meant
+two separate things, you need to separate them:
+
+ (?[ [ \7776 ] ])        # Syntax error!
+ (?[ [ \o{7776} ] ])     # One meaning
+ (?[ [ \777 6 ] ])       # Another meaning
+ (?[ [ \777 \006 ] ])    # Still another
+
+=item Negative '/' count in unpack
+
+(F) The length count obtained from a length/code unpack operation was
+negative.  See L<perlfunc/pack>.
+
+=item Negative length
+
+(F) You tried to do a read/write/send/recv operation with a buffer
+length that is less than 0.  This is difficult to imagine.
+
+=item Negative offset to vec in lvalue context
+
+(F) When C<vec> is called in an lvalue context, the second argument must be
+greater than or equal to zero.
+
+=item Negative repeat count does nothing
+
+(W numeric) You tried to execute the
+L<C<x>|perlop/Multiplicative Operators> repetition operator fewer than 0
+times, which doesn't make sense.
+
+=item Nested quantifiers in regex; marked by S<<-- HERE> in m/%s/
+
+(F) You can't quantify a quantifier without intervening parentheses.
+So things like ** or +* or ?* are illegal.  The S<<-- HERE> shows
+whereabouts in the regular expression the problem was discovered.
+
+Note that the minimal matching quantifiers, C<*?>, C<+?>, and
+C<??> appear to be nested quantifiers, but aren't.  See L<perlre>.
+
+=item %s never introduced
+
+(S internal) The symbol in question was declared but somehow went out of
+scope before it could possibly have been used.
+
+=item next::method/next::can/maybe::next::method cannot find enclosing method
+
+(F) C<next::method> needs to be called within the context of a
+real method in a real package, and it could not find such a context.
+See L<mro>.
+
+=item \N in a character class must be a named character: \N{...} in regex; 
+marked by S<<-- HERE> in m/%s/
+
+(F) The new (as of Perl 5.12) meaning of C<\N> as C<[^\n]> is not valid in a
+bracketed character class, for the same reason that C<.> in a character
+class loses its specialness: it matches almost everything, which is
+probably not what you want.
+
+=item \N{} in inverted character class or as a range end-point is restricted to one character in regex; marked by <-- HERE in m/%s/
+
+(F) Named Unicode character escapes (C<\N{...}>) may return a
+multi-character sequence.  Even though a character class is
+supposed to match just one character of input, perl will match the
+whole thing correctly, except when the class is inverted (C<[^...]>),
+or the escape is the beginning or final end point of a range.  The
+mathematically logical behavior for what matches when inverting
+is very different from what people expect, so we have decided to
+forbid it.  Similarly unclear is what should be generated when the
+C<\N{...}> is used as one of the end points of the range, such as in
+
+ [\x{41}-\N{ARABIC SEQUENCE YEH WITH HAMZA ABOVE WITH AE}]
+
+What is meant here is unclear, as the C<\N{...}> escape is a sequence
+of code points, so this is made an error.
+
+=item \N{NAME} must be resolved by the lexer in regex; marked by
+S<<-- HERE> in m/%s/
+
+(F) When compiling a regex pattern, an unresolved named character or
+sequence was encountered.  This can happen in any of several ways that
+bypass the lexer, such as using single-quotish context, or an extra
+backslash in double-quotish:
+
+    $re = '\N{SPACE}';	# Wrong!
+    $re = "\\N{SPACE}";	# Wrong!
+    /$re/;
+
+Instead, use double-quotes with a single backslash:
+
+    $re = "\N{SPACE}";	# ok
+    /$re/;
+
+The lexer can be bypassed as well by creating the pattern from smaller
+components:
+
+    $re = '\N';
+    /${re}{SPACE}/;	# Wrong!
+
+It's not a good idea to split a construct in the middle like this, and
+it doesn't work here.  Instead use the solution above.
+
+Finally, the message also can happen under the C</x> regex modifier when the
+C<\N> is separated by spaces from the C<{>, in which case, remove the spaces.
+
+    /\N {SPACE}/x;	# Wrong!
+    /\N{SPACE}/x;	# ok
+
+=item No %s allowed while running setuid
+
+(F) Certain operations are deemed to be too insecure for a setuid or
+setgid script to even be allowed to attempt.  Generally speaking there
+will be another way to do what you want that is, if not secure, at least
+securable.  See L<perlsec>.
+
+=item NO-BREAK SPACE in a charnames alias definition is deprecated
+
+(D deprecated) You defined a character name which contained a no-break
+space character.  Change it to a regular space.  Usually these names are
+defined in the C<:alias> import argument to C<use charnames>, but they
+could be defined by a translator installed into C<$^H{charnames}>.  See
+L<charnames/CUSTOM ALIASES>.
+
+=item No code specified for -%c
+
+(F) Perl's B<-e> and B<-E> command-line options require an argument.  If
+you want to run an empty program, pass the empty string as a separate
+argument or run a program consisting of a single 0 or 1:
+
+    perl -e ""
+    perl -e0
+    perl -e1
+
+=item No comma allowed after %s
+
+(F) A list operator that has a filehandle or "indirect object" is
+not allowed to have a comma between that and the following arguments.
+Otherwise it'd be just another one of the arguments.
+
+One possible cause for this is that you expected to have imported
+a constant to your name space with B<use> or B<import> while no such
+importing took place, it may for example be that your operating
+system does not support that particular constant.  Hopefully you did
+use an explicit import list for the constants you expect to see;
+please see L<perlfunc/use> and L<perlfunc/import>.  While an
+explicit import list would probably have caught this error earlier
+it naturally does not remedy the fact that your operating system
+still does not support that constant.  Maybe you have a typo in
+the constants of the symbol import list of B<use> or B<import> or in the
+constant name at the line where this error was triggered?
+
+=item No command into which to pipe on command line
+
+(F) An error peculiar to VMS.  Perl handles its own command line
+redirection, and found a '|' at the end of the command line, so it
+doesn't know where you want to pipe the output from this command.
+
+=item No DB::DB routine defined
+
+(F) The currently executing code was compiled with the B<-d> switch, but
+for some reason the current debugger (e.g. F<perl5db.pl> or a C<Devel::>
+module) didn't define a routine to be called at the beginning of each
+statement.
+
+=item No dbm on this machine
+
+(P) This is counted as an internal error, because every machine should
+supply dbm nowadays, because Perl comes with SDBM.  See L<SDBM_File>.
+
+=item No DB::sub routine defined
+
+(F) The currently executing code was compiled with the B<-d> switch, but
+for some reason the current debugger (e.g. F<perl5db.pl> or a C<Devel::>
+module) didn't define a C<DB::sub> routine to be called at the beginning
+of each ordinary subroutine call.
+
+=item No directory specified for -I
+
+(F) The B<-I> command-line switch requires a directory name as part of the
+I<same> argument.  Use B<-Ilib>, for instance.  B<-I lib> won't work.
+
+=item No error file after 2> or 2>> on command line
+
+(F) An error peculiar to VMS.  Perl handles its own command line
+redirection, and found a '2>' or a '2>>' on the command line, but can't
+find the name of the file to which to write data destined for stderr.
+
+=item No group ending character '%c' found in template
+
+(F) A pack or unpack template has an opening '(' or '[' without its
+matching counterpart.  See L<perlfunc/pack>.
+
+=item No input file after < on command line
+
+(F) An error peculiar to VMS.  Perl handles its own command line
+redirection, and found a '<' on the command line, but can't find the
+name of the file from which to read data for stdin.
+
+=item No next::method '%s' found for %s
+
+(F) C<next::method> found no further instances of this method name
+in the remaining packages of the MRO of this class.  If you don't want
+it throwing an exception, use C<maybe::next::method>
+or C<next::can>.  See L<mro>.
+
+=item Non-finite repeat count does nothing
+
+(W numeric) You tried to execute the
+L<C<x>|perlop/Multiplicative Operators> repetition operator C<Inf> (or
+C<-Inf>) or C<NaN> times, which doesn't make sense.
+
+=item Non-hex character in regex; marked by S<<-- HERE> in m/%s/
+
+(F) In a regular expression, there was a non-hexadecimal character where
+a hex one was expected, like
+
+ (?[ [ \xDG ] ])
+ (?[ [ \x{DEKA} ] ])
+
+=item Non-octal character in regex; marked by S<<-- HERE> in m/%s/
+
+(F) In a regular expression, there was a non-octal character where
+an octal one was expected, like
+
+ (?[ [ \o{1278} ] ])
+
+=item Non-octal character '%c'.  Resolved as "%s"
+
+(W digit) In parsing an octal numeric constant, a character was
+unexpectedly encountered that isn't octal.  The resulting value
+is as indicated.
+
+=item "no" not allowed in expression
+
+(F) The "no" keyword is recognized and executed at compile time, and
+returns no useful value.  See L<perlmod>.
+
+=item Non-string passed as bitmask
+
+(W misc) A number has been passed as a bitmask argument to select().
+Use the vec() function to construct the file descriptor bitmasks for
+select.  See L<perlfunc/select>.
+
+=item No output file after > on command line
+
+(F) An error peculiar to VMS.  Perl handles its own command line
+redirection, and found a lone '>' at the end of the command line, so it
+doesn't know where you wanted to redirect stdout.
+
+=item No output file after > or >> on command line
+
+(F) An error peculiar to VMS.  Perl handles its own command line
+redirection, and found a '>' or a '>>' on the command line, but can't
+find the name of the file to which to write data destined for stdout.
+
+=item No package name allowed for variable %s in "our"
+
+(F) Fully qualified variable names are not allowed in "our"
+declarations, because that doesn't make much sense under existing
+rules.  Such syntax is reserved for future extensions.
+
+=item No Perl script found in input
+
+(F) You called C<perl -x>, but no line was found in the file beginning
+with #! and containing the word "perl".
+
+=item No setregid available
+
+(F) Configure didn't find anything resembling the setregid() call for
+your system.
+
+=item No setreuid available
+
+(F) Configure didn't find anything resembling the setreuid() call for
+your system.
+
+=item No such class %s
+
+(F) You provided a class qualifier in a "my", "our" or "state"
+declaration, but this class doesn't exist at this point in your program.
+
+=item No such class field "%s" in variable %s of type %s
+
+(F) You tried to access a key from a hash through the indicated typed
+variable but that key is not allowed by the package of the same type.
+The indicated package has restricted the set of allowed keys using the
+L<fields> pragma.
+
+=item No such hook: %s
+
+(F) You specified a signal hook that was not recognized by Perl.
+Currently, Perl accepts C<__DIE__> and C<__WARN__> as valid signal hooks.
+
+=item No such pipe open
+
+(P) An error peculiar to VMS.  The internal routine my_pclose() tried to
+close a pipe which hadn't been opened.  This should have been caught
+earlier as an attempt to close an unopened filehandle.
+
+=item No such signal: SIG%s
+
+(W signal) You specified a signal name as a subscript to %SIG that was
+not recognized.  Say C<kill -l> in your shell to see the valid signal
+names on your system.
+
+=item Not a CODE reference
+
+(F) Perl was trying to evaluate a reference to a code value (that is, a
+subroutine), but found a reference to something else instead.  You can
+use the ref() function to find out what kind of ref it really was.  See
+also L<perlref>.
+
+=item Not a GLOB reference
+
+(F) Perl was trying to evaluate a reference to a "typeglob" (that is, a
+symbol table entry that looks like C<*foo>), but found a reference to
+something else instead.  You can use the ref() function to find out what
+kind of ref it really was.  See L<perlref>.
+
+=item Not a HASH reference
+
+(F) Perl was trying to evaluate a reference to a hash value, but found a
+reference to something else instead.  You can use the ref() function to
+find out what kind of ref it really was.  See L<perlref>.
+
+=item Not an ARRAY reference
+
+(F) Perl was trying to evaluate a reference to an array value, but found
+a reference to something else instead.  You can use the ref() function
+to find out what kind of ref it really was.  See L<perlref>.
+
+=item Not an unblessed ARRAY reference
+
+(F) You passed a reference to a blessed array to C<push>, C<shift> or
+another array function.  These only accept unblessed array references
+or arrays beginning explicitly with C<@>.
+
+=item Not a SCALAR reference
+
+(F) Perl was trying to evaluate a reference to a scalar value, but found
+a reference to something else instead.  You can use the ref() function
+to find out what kind of ref it really was.  See L<perlref>.
+
+=item Not a subroutine reference
+
+(F) Perl was trying to evaluate a reference to a code value (that is, a
+subroutine), but found a reference to something else instead.  You can
+use the ref() function to find out what kind of ref it really was.  See
+also L<perlref>.
+
+=item Not a subroutine reference in overload table
+
+(F) An attempt was made to specify an entry in an overloading table that
+doesn't somehow point to a valid subroutine.  See L<overload>.
+
+=item Not enough arguments for %s
+
+(F) The function requires more arguments than you specified.
+
+=item Not enough format arguments
+
+(W syntax) A format specified more picture fields than the next line
+supplied.  See L<perlform>.
+
+=item %s: not found
+
+(A) You've accidentally run your script through the Bourne shell instead
+of Perl.  Check the #! line, or manually feed your script into Perl
+yourself.
+
+=item (?[...]) not valid in locale in regex; marked by S<<-- HERE> in m/%s/
+
+(F) C<(?[...])> cannot be used within the scope of a C<S<use locale>> or with
+an C</l> regular expression modifier, as that would require deferring
+to run-time the calculation of what it should evaluate to, and it is
+regex compile-time only.
+
+=item no UTC offset information; assuming local time is UTC
+
+(S) A warning peculiar to VMS.  Perl was unable to find the local
+timezone offset, so it's assuming that local system time is equivalent
+to UTC.  If it's not, define the logical name
+F<SYS$TIMEZONE_DIFFERENTIAL> to translate to the number of seconds which
+need to be added to UTC to get local time.
+
+=item NULL OP IN RUN
+
+(S debugging) Some internal routine called run() with a null opcode
+pointer.
+
+=item Null picture in formline
+
+(F) The first argument to formline must be a valid format picture
+specification.  It was found to be empty, which probably means you
+supplied it an uninitialized value.  See L<perlform>.
+
+=item Null realloc
+
+(P) An attempt was made to realloc NULL.
+
+=item NULL regexp argument
+
+(P) The internal pattern matching routines blew it big time.
+
+=item NULL regexp parameter
+
+(P) The internal pattern matching routines are out of their gourd.
+
+=item Number too long
+
+(F) Perl limits the representation of decimal numbers in programs to
+about 250 characters.  You've exceeded that length.  Future
+versions of Perl are likely to eliminate this arbitrary limitation.  In
+the meantime, try using scientific notation (e.g. "1e6" instead of
+"1_000_000").
+
+=item Number with no digits
+
+(F) Perl was looking for a number but found nothing that looked like
+a number.  This happens, for example with C<\o{}>, with no number between
+the braces.
+
+=item Octal number > 037777777777 non-portable
+
+(W portable) The octal number you specified is larger than 2**32-1
+(4294967295) and therefore non-portable between systems.  See
+L<perlport> for more on portability concerns.
+
+=item Odd name/value argument for subroutine
+
+(F) A subroutine using a slurpy hash parameter in its signature
+received an odd number of arguments to populate the hash.  It requires
+the arguments to be paired, with the same number of keys as values.
+The caller of the subroutine is presumably at fault.  Inconveniently,
+this error will be reported at the location of the subroutine, not that
+of the caller.
+
+=item Odd number of arguments for overload::constant
+
+(W overload) The call to overload::constant contained an odd number of
+arguments.  The arguments should come in pairs.
+
+=item Odd number of elements in anonymous hash
+
+(W misc) You specified an odd number of elements to initialize a hash,
+which is odd, because hashes come in key/value pairs.
+
+=item Odd number of elements in hash assignment
+
+(W misc) You specified an odd number of elements to initialize a hash,
+which is odd, because hashes come in key/value pairs.
+
+=item Offset outside string
+
+(F)(W layer) You tried to do a read/write/send/recv/seek operation
+with an offset pointing outside the buffer.  This is difficult to
+imagine.  The sole exceptions to this are that zero padding will
+take place when going past the end of the string when either
+C<sysread()>ing a file, or when seeking past the end of a scalar opened
+for I/O (in anticipation of future reads and to imitate the behavior
+with real files).
+
+=item %s() on unopened %s
+
+(W unopened) An I/O operation was attempted on a filehandle that was
+never initialized.  You need to do an open(), a sysopen(), or a socket()
+call, or call a constructor from the FileHandle package.
+
+=item -%s on unopened filehandle %s
+
+(W unopened) You tried to invoke a file test operator on a filehandle
+that isn't open.  Check your control flow.  See also L<perlfunc/-X>.
+
+=item oops: oopsAV
+
+(S internal) An internal warning that the grammar is screwed up.
+
+=item oops: oopsHV
+
+(S internal) An internal warning that the grammar is screwed up.
+
+=item Opening dirhandle %s also as a file
+
+(D io, deprecated) You used open() to associate a filehandle to
+a symbol (glob or scalar) that already holds a dirhandle.
+Although legal, this idiom might render your code confusing
+and is deprecated.
+
+=item Opening filehandle %s also as a directory
+
+(D io, deprecated) You used opendir() to associate a dirhandle to
+a symbol (glob or scalar) that already holds a filehandle.
+Although legal, this idiom might render your code confusing
+and is deprecated.
+
+=item Operand with no preceding operator in regex; marked by S<<-- HERE> in
+m/%s/
+
+(F) You wrote something like
+
+ (?[ \p{Digit} \p{Thai} ])
+
+There are two operands, but no operator giving how you want to combine
+them.
+
+=item Operation "%s": no method found, %s
+
+(F) An attempt was made to perform an overloaded operation for which no
+handler was defined.  While some handlers can be autogenerated in terms
+of other handlers, there is no default handler for any operation, unless
+the C<fallback> overloading key is specified to be true.  See L<overload>.
+
+=item Operation "%s" returns its argument for non-Unicode code point 0x%X
+
+(S non_unicode) You performed an operation requiring Unicode rules
+on a code point that is not in Unicode, so what it should do is not
+defined.  Perl has chosen to have it do nothing, and warn you.
+
+If the operation shown is "ToFold", it means that case-insensitive
+matching in a regular expression was done on the code point.
+
+If you know what you are doing you can turn off this warning by
+C<no warnings 'non_unicode';>.
+
+=item Operation "%s" returns its argument for UTF-16 surrogate U+%X
+
+(S surrogate) You performed an operation requiring Unicode
+rules on a Unicode surrogate.  Unicode frowns upon the use
+of surrogates for anything but storing strings in UTF-16, but
+rules are (reluctantly) defined for the surrogates, and
+they are to do nothing for this operation.  Because the use of
+surrogates can be dangerous, Perl warns.
+
+If the operation shown is "ToFold", it means that case-insensitive
+matching in a regular expression was done on the code point.
+
+If you know what you are doing you can turn off this warning by
+C<no warnings 'surrogate';>.
+
+=item Operator or semicolon missing before %s
+
+(S ambiguous) You used a variable or subroutine call where the parser
+was expecting an operator.  The parser has assumed you really meant to
+use an operator, but this is highly likely to be incorrect.  For
+example, if you say "*foo *foo" it will be interpreted as if you said
+"*foo * 'foo'".
+
+=item Optional parameter lacks default expression
+
+(F) In a subroutine signature, you wrote something like "$a =", making a
+named optional parameter without a default value.  A nameless optional
+parameter is permitted to have no default value, but a named one must
+have a specific default.  You probably want "$a = undef".
+
+=item "our" variable %s redeclared
+
+(W misc) You seem to have already declared the same global once before
+in the current lexical scope.
+
+=item Out of memory!
+
+(X) The malloc() function returned 0, indicating there was insufficient
+remaining memory (or virtual memory) to satisfy the request.  Perl has
+no option but to exit immediately.
+
+At least in Unix you may be able to get past this by increasing your
+process datasize limits: in csh/tcsh use C<limit> and
+C<limit datasize n> (where C<n> is the number of kilobytes) to check
+the current limits and change them, and in ksh/bash/zsh use C<ulimit -a>
+and C<ulimit -d n>, respectively.
+
+=item Out of memory during %s extend
+
+(X) An attempt was made to extend an array, a list, or a string beyond
+the largest possible memory allocation.
+
+=item Out of memory during "large" request for %s
+
+(F) The malloc() function returned 0, indicating there was insufficient
+remaining memory (or virtual memory) to satisfy the request.  However,
+the request was judged large enough (compile-time default is 64K), so a
+possibility to shut down by trapping this error is granted.
+
+=item Out of memory during request for %s
+
+(X)(F) The malloc() function returned 0, indicating there was
+insufficient remaining memory (or virtual memory) to satisfy the
+request.
+
+The request was judged to be small, so the possibility to trap it
+depends on the way perl was compiled.  By default it is not trappable.
+However, if compiled for this, Perl may use the contents of C<$^M> as an
+emergency pool after die()ing with this message.  In this case the error
+is trappable I<once>, and the error message will include the line and file
+where the failed request happened.
+
+=item Out of memory during ridiculously large request
+
+(F) You can't allocate more than 2^31+"small amount" bytes.  This error
+is most likely to be caused by a typo in the Perl program. e.g.,
+C<$arr[time]> instead of C<$arr[$time]>.
+
+=item Out of memory for yacc stack
+
+(F) The yacc parser wanted to grow its stack so it could continue
+parsing, but realloc() wouldn't give it more memory, virtual or
+otherwise.
+
+=item '.' outside of string in pack
+
+(F) The argument to a '.' in your template tried to move the working
+position to before the start of the packed string being built.
+
+=item '@' outside of string in unpack
+
+(F) You had a template that specified an absolute position outside
+the string being unpacked.  See L<perlfunc/pack>.
+
+=item '@' outside of string with malformed UTF-8 in unpack
+
+(F) You had a template that specified an absolute position outside
+the string being unpacked.  The string being unpacked was also invalid
+UTF-8.  See L<perlfunc/pack>.
+
+=item overload arg '%s' is invalid
+
+(W overload) The L<overload> pragma was passed an argument it did not
+recognize.  Did you mistype an operator?
+
+=item Overloaded dereference did not return a reference
+
+(F) An object with an overloaded dereference operator was dereferenced,
+but the overloaded operation did not return a reference.  See
+L<overload>.
+
+=item Overloaded qr did not return a REGEXP
+
+(F) An object with a C<qr> overload was used as part of a match, but the
+overloaded operation didn't return a compiled regexp.  See L<overload>.
+
+=item %s package attribute may clash with future reserved word: %s
+
+(W reserved) A lowercase attribute name was used that had a
+package-specific handler.  That name might have a meaning to Perl itself
+some day, even though it doesn't yet.  Perhaps you should use a
+mixed-case attribute name, instead.  See L<attributes>.
+
+=item pack/unpack repeat count overflow
+
+(F) You can't specify a repeat count so large that it overflows your
+signed integers.  See L<perlfunc/pack>.
+
+=item page overflow
+
+(W io) A single call to write() produced more lines than can fit on a
+page.  See L<perlform>.
+
+=item panic: %s
+
+(P) An internal error.
+
+=item panic: attempt to call %s in %s
+
+(P) One of the file test operators entered a code branch that calls
+an ACL related-function, but that function is not available on this
+platform.  Earlier checks mean that it should not be possible to
+enter this branch on this platform.
+
+=item panic: child pseudo-process was never scheduled
+
+(P) A child pseudo-process in the ithreads implementation on Windows
+was not scheduled within the time period allowed and therefore was not
+able to initialize properly.
+
+=item panic: ck_grep, type=%u
+
+(P) Failed an internal consistency check trying to compile a grep.
+
+=item panic: ck_split, type=%u
+
+(P) Failed an internal consistency check trying to compile a split.
+
+=item panic: corrupt saved stack index %ld
+
+(P) The savestack was requested to restore more localized values than
+there are in the savestack.
+
+=item panic: del_backref
+
+(P) Failed an internal consistency check while trying to reset a weak
+reference.
+
+=item panic: do_subst
+
+(P) The internal pp_subst() routine was called with invalid operational
+data.
+
+=item panic: do_trans_%s
+
+(P) The internal do_trans routines were called with invalid operational
+data.
+
+=item panic: fold_constants JMPENV_PUSH returned %d
+
+(P) While attempting folding constants an exception other than an C<eval>
+failure was caught.
+
+=item panic: frexp: %f
+
+(P) The library function frexp() failed, making printf("%f") impossible.
+
+=item panic: goto, type=%u, ix=%ld
+
+(P) We popped the context stack to a context with the specified label,
+and then discovered it wasn't a context we know how to do a goto in.
+
+=item panic: gp_free failed to free glob pointer
+
+(P) The internal routine used to clear a typeglob's entries tried
+repeatedly, but each time something re-created entries in the glob.
+Most likely the glob contains an object with a reference back to
+the glob and a destructor that adds a new object to the glob.
+
+=item panic: INTERPCASEMOD, %s
+
+(P) The lexer got into a bad state at a case modifier.
+
+=item panic: INTERPCONCAT, %s
+
+(P) The lexer got into a bad state parsing a string with brackets.
+
+=item panic: kid popen errno read
+
+(F) A forked child returned an incomprehensible message about its errno.
+
+=item panic: last, type=%u
+
+(P) We popped the context stack to a block context, and then discovered
+it wasn't a block context.
+
+=item panic: leave_scope clearsv
+
+(P) A writable lexical variable became read-only somehow within the
+scope.
+
+=item panic: leave_scope inconsistency %u
+
+(P) The savestack probably got out of sync.  At least, there was an
+invalid enum on the top of it.
+
+=item panic: magic_killbackrefs
+
+(P) Failed an internal consistency check while trying to reset all weak
+references to an object.
+
+=item panic: malloc, %s
+
+(P) Something requested a negative number of bytes of malloc.
+
+=item panic: memory wrap
+
+(P) Something tried to allocate either more memory than possible or a
+negative amount.
+
+=item panic: pad_alloc, %p!=%p
+
+(P) The compiler got confused about which scratch pad it was allocating
+and freeing temporaries and lexicals from.
+
+=item panic: pad_free curpad, %p!=%p
+
+(P) The compiler got confused about which scratch pad it was allocating
+and freeing temporaries and lexicals from.
+
+=item panic: pad_free po
+
+(P) A zero scratch pad offset was detected internally.  An attempt was
+made to free a target that had not been allocated to begin with.
+
+=item panic: pad_reset curpad, %p!=%p
+
+(P) The compiler got confused about which scratch pad it was allocating
+and freeing temporaries and lexicals from.
+
+=item panic: pad_sv po
+
+(P) A zero scratch pad offset was detected internally.  Most likely
+an operator needed a target but that target had not been allocated
+for whatever reason.
+
+=item panic: pad_swipe curpad, %p!=%p
+
+(P) The compiler got confused about which scratch pad it was allocating
+and freeing temporaries and lexicals from.
+
+=item panic: pad_swipe po
+
+(P) An invalid scratch pad offset was detected internally.
+
+=item panic: pp_iter, type=%u
+
+(P) The foreach iterator got called in a non-loop context frame.
+
+=item panic: pp_match%s
+
+(P) The internal pp_match() routine was called with invalid operational
+data.
+
+=item panic: pp_split, pm=%p, s=%p
+
+(P) Something terrible went wrong in setting up for the split.
+
+=item panic: realloc, %s
+
+(P) Something requested a negative number of bytes of realloc.
+
+=item panic: reference miscount on nsv in sv_replace() (%d != 1)
+
+(P) The internal sv_replace() function was handed a new SV with a
+reference count other than 1.
+
+=item panic: restartop in %s
+
+(P) Some internal routine requested a goto (or something like it), and
+didn't supply the destination.
+
+=item panic: return, type=%u
+
+(P) We popped the context stack to a subroutine or eval context, and
+then discovered it wasn't a subroutine or eval context.
+
+=item panic: scan_num, %s
+
+(P) scan_num() got called on something that wasn't a number.
+
+=item panic: Sequence (?{...}): no code block found in regex m/%s/
+
+(P) While compiling a pattern that has embedded (?{}) or (??{}) code
+blocks, perl couldn't locate the code block that should have already been
+seen and compiled by perl before control passed to the regex compiler.
+
+=item panic: strxfrm() gets absurd - a => %u, ab => %u
+
+(P) The interpreter's sanity check of the C function strxfrm() failed.
+In your current locale the returned transformation of the string "ab"
+is shorter than that of the string "a", which makes no sense.
+
+=item panic: sv_chop %s
+
+(P) The sv_chop() routine was passed a position that is not within the
+scalar's string buffer.
+
+=item panic: sv_insert, midend=%p, bigend=%p
+
+(P) The sv_insert() routine was told to remove more string than there
+was string.
+
+=item panic: top_env
+
+(P) The compiler attempted to do a goto, or something weird like that.
+
+=item panic: unimplemented op %s (#%d) called
+
+(P) The compiler is screwed up and attempted to use an op that isn't
+permitted at run time.
+
+=item panic: utf16_to_utf8: odd bytelen
+
+(P) Something tried to call utf16_to_utf8 with an odd (as opposed
+to even) byte length.
+
+=item panic: utf16_to_utf8_reversed: odd bytelen
+
+(P) Something tried to call utf16_to_utf8_reversed with an odd (as opposed
+to even) byte length.
+
+=item panic: yylex, %s
+
+(P) The lexer got into a bad state while processing a case modifier.
+
+=item Parentheses missing around "%s" list
+
+(W parenthesis) You said something like
+
+    my $foo, $bar = @_;
+
+when you meant
+
+    my ($foo, $bar) = @_;
+
+Remember that "my", "our", "local" and "state" bind tighter than comma.
+
+=item Parsing code internal error (%s)
+
+(F) Parsing code supplied by an extension violated the parser's API in
+a detectable way.
+
+=item Passing malformed UTF-8 to "%s" is deprecated
+
+(D deprecated, utf8) This message indicates a bug either in the Perl
+core or in XS code.  Such code was trying to find out if a character,
+allegedly stored internally encoded as UTF-8, was of a given type, such
+as being punctuation or a digit.  But the character was not encoded in
+legal UTF-8.  The C<%s> is replaced by a string that can be used by
+knowledgeable people to determine what the type being checked against
+was.  If C<utf8> warnings are enabled, a further message is raised,
+giving details of the malformation.
+
+=item Pattern subroutine nesting without pos change exceeded limit in regex
+
+(F) You used a pattern that uses too many nested subpattern calls without
+consuming any text.  Restructure the pattern so text is consumed before
+the nesting limit is exceeded.
+
+=item C<-p> destination: %s
+
+(F) An error occurred during the implicit output invoked by the C<-p>
+command-line switch.  (This output goes to STDOUT unless you've
+redirected it with select().)
+
+=item Perl API version %s of %s does not match %s
+
+(F) The XS module in question was compiled against a different incompatible
+version of Perl than the one that has loaded the XS module.
+
+=item Perl folding rules are not up-to-date for 0x%X; please use the perlbug
+utility to report; in regex; marked by S<<-- HERE> in m/%s/
+
+(S regexp) You used a regular expression with case-insensitive matching,
+and there is a bug in Perl in which the built-in regular expression
+folding rules are not accurate.  This may lead to incorrect results.
+Please report this as a bug using the L<perlbug> utility.
+
+=item PerlIO layer ':win32' is experimental
+
+(S experimental::win32_perlio) The C<:win32> PerlIO layer is
+experimental.  If you want to take the risk of using this layer,
+simply disable this warning:
+
+    no warnings "experimental::win32_perlio";
+
+=item Perl_my_%s() not available
+
+(F) Your platform has very uncommon byte-order and integer size,
+so it was not possible to set up some or all fixed-width byte-order
+conversion functions.  This is only a problem when you're using the
+'<' or '>' modifiers in (un)pack templates.  See L<perlfunc/pack>.
+
+=item Perl %s required (did you mean %s?)--this is only %s, stopped
+
+(F) The code you are trying to run has asked for a newer version of
+Perl than you are running.  Perhaps C<use 5.10> was written instead
+of C<use 5.010> or C<use v5.10>.  Without the leading C<v>, the number is
+interpreted as a decimal, with every three digits after the
+decimal point representing a part of the version number.  So 5.10
+is equivalent to v5.100.
+
+=item Perl %s required--this is only %s, stopped
+
+(F) The module in question uses features of a version of Perl more
+recent than the currently running version.  How long has it been since
+you upgraded, anyway?  See L<perlfunc/require>.
+
+=item PERL_SH_DIR too long
+
+(F) An error peculiar to OS/2.  PERL_SH_DIR is the directory to find the
+C<sh>-shell in.  See "PERL_SH_DIR" in L<perlos2>.
+
+=item PERL_SIGNALS illegal: "%s"
+
+(X) See L<perlrun/PERL_SIGNALS> for legal values.
+
+=item Perls since %s too modern--this is %s, stopped
+
+(F) The code you are trying to run claims it will not run
+on the version of Perl you are using because it is too new.
+Maybe the code needs to be updated, or maybe it is simply
+wrong and the version check should just be removed.
+
+=item perl: warning: Non hex character in '$ENV{PERL_HASH_SEED}', seed only partially set
+
+(S) PERL_HASH_SEED should match /^\s*(?:0x)?[0-9a-fA-F]+\s*\z/ but it
+contained a non hex character.  This could mean you are not using the
+hash seed you think you are.
+
+=item perl: warning: Setting locale failed.
+
+(S) The whole warning message will look something like:
+
+	perl: warning: Setting locale failed.
+	perl: warning: Please check that your locale settings:
+	        LC_ALL = "En_US",
+	        LANG = (unset)
+	    are supported and installed on your system.
+	perl: warning: Falling back to the standard locale ("C").
+
+Exactly what were the failed locale settings varies.  In the above the
+settings were that the LC_ALL was "En_US" and the LANG had no value.
+This error means that Perl detected that you and/or your operating
+system supplier and/or system administrator have set up the so-called
+locale system but Perl could not use those settings.  This was not
+dead serious, fortunately: there is a "default locale" called "C" that
+Perl can and will use, and the script will be run.  Before you really
+fix the problem, however, you will get the same error message each
+time you run Perl.  How to really fix the problem can be found in
+L<perllocale> section B<LOCALE PROBLEMS>.
+
+=item perl: warning: strange setting in '$ENV{PERL_PERTURB_KEYS}': '%s'
+
+(S) Perl was run with the environment variable PERL_PERTURB_KEYS defined
+but containing an unexpected value.  The legal values of this setting
+are as follows.
+
+  Numeric | String        | Result
+  --------+---------------+-----------------------------------------
+  0       | NO            | Disables key traversal randomization
+  1       | RANDOM        | Enables full key traversal randomization
+  2       | DETERMINISTIC | Enables repeatable key traversal
+          |               | randomization
+
+Both numeric and string values are accepted, but note that string values are
+case sensitive.  The default for this setting is "RANDOM" or 1.
+
+=item pid %x not a child
+
+(W exec) A warning peculiar to VMS.  Waitpid() was asked to wait for a
+process which isn't a subprocess of the current process.  While this is
+fine from VMS' perspective, it's probably not what you intended.
+
+=item 'P' must have an explicit size in unpack
+
+(F) The unpack format P must have an explicit size, not "*".
+
+=item POSIX class [:%s:] unknown in regex; marked by S<<-- HERE> in m/%s/
+
+(F) The class in the character class [: :] syntax is unknown.  The S<<-- HERE>
+shows whereabouts in the regular expression the problem was discovered.
+Note that the POSIX character classes do B<not> have the C<is> prefix
+the corresponding C interfaces have: in other words, it's C<[[:print:]]>,
+not C<isprint>.  See L<perlre>.
+
+=item POSIX getpgrp can't take an argument
+
+(F) Your system has POSIX getpgrp(), which takes no argument, unlike
+the BSD version, which takes a pid.
+
+=item POSIX syntax [%c %c] belongs inside character classes%s in regex; marked by
+S<<-- HERE> in m/%s/
+
+(W regexp) Perl thinks that you intended to write a POSIX character
+class, but didn't use enough brackets.  These POSIX class constructs [:
+:], [= =], and [. .]  go I<inside> character classes, the [] are part of
+the construct, for example: C<qr/[012[:alpha:]345]/>.  What the regular
+expression pattern compiled to is probably not what you were intending.
+For example, C<qr/[:alpha:]/> compiles to a regular bracketed character
+class consisting of the four characters C<":">,  C<"a">,  C<"l">,
+C<"h">, and C<"p">.  To specify the POSIX class, it should have been
+written C<qr/[[:alpha:]]/>.
+
+Note that [= =] and [. .] are not currently
+implemented; they are simply placeholders for future extensions and
+will cause fatal errors.  The S<<-- HERE> shows whereabouts in the regular
+expression the problem was discovered.  See L<perlre>.
+
+If the specification of the class was not completely valid, the message
+indicates that.
+
+=item POSIX syntax [. .] is reserved for future extensions in regex; marked by 
+S<<-- HERE> in m/%s/
+
+(F) Within regular expression character classes ([]) the syntax beginning
+with "[." and ending with ".]" is reserved for future extensions.  If you
+need to represent those character sequences inside a regular expression
+character class, just quote the square brackets with the backslash: "\[."
+and ".\]".  The S<<-- HERE> shows whereabouts in the regular expression the
+problem was discovered.  See L<perlre>.
+
+=item POSIX syntax [= =] is reserved for future extensions in regex; marked by 
+S<<-- HERE> in m/%s/
+
+(F) Within regular expression character classes ([]) the syntax beginning
+with "[=" and ending with "=]" is reserved for future extensions.  If you
+need to represent those character sequences inside a regular expression
+character class, just quote the square brackets with the backslash: "\[="
+and "=\]".  The S<<-- HERE> shows whereabouts in the regular expression the
+problem was discovered.  See L<perlre>.
+
+=item Possible attempt to put comments in qw() list
+
+(W qw) qw() lists contain items separated by whitespace; as with literal
+strings, comment characters are not ignored, but are instead treated as
+literal data.  (You may have used different delimiters than the
+parentheses shown here; braces are also frequently used.)
+
+You probably wrote something like this:
+
+    @list = qw(
+	a # a comment
+        b # another comment
+    );
+
+when you should have written this:
+
+    @list = qw(
+	a
+        b
+    );
+
+If you really want comments, build your list the
+old-fashioned way, with quotes and commas:
+
+    @list = (
+        'a',    # a comment
+        'b',    # another comment
+    );
+
+=item Possible attempt to separate words with commas
+
+(W qw) qw() lists contain items separated by whitespace; therefore
+commas aren't needed to separate the items.  (You may have used
+different delimiters than the parentheses shown here; braces are also
+frequently used.)
+
+You probably wrote something like this:
+
+    qw! a, b, c !;
+
+which puts literal commas into some of the list items.  Write it without
+commas if you don't want them to appear in your data:
+
+    qw! a b c !;
+
+=item Possible memory corruption: %s overflowed 3rd argument
+
+(F) An ioctl() or fcntl() returned more than Perl was bargaining for.
+Perl guesses a reasonable buffer size, but puts a sentinel byte at the
+end of the buffer just in case.  This sentinel byte got clobbered, and
+Perl assumes that memory is now corrupted.  See L<perlfunc/ioctl>.
+
+=item Possible precedence issue with control flow operator
+
+(W syntax) There is a possible problem with the mixing of a control
+flow operator (e.g. C<return>) and a low-precedence operator like
+C<or>.  Consider:
+
+    sub { return $a or $b; }
+
+This is parsed as:
+
+    sub { (return $a) or $b; }
+
+Which is effectively just:
+
+    sub { return $a; }
+
+Either use parentheses or the high-precedence variant of the operator.
+
+Note this may be also triggered for constructs like:
+
+    sub { 1 if die; }
+
+=item Possible precedence problem on bitwise %s operator
+
+(W precedence) Your program uses a bitwise logical operator in conjunction
+with a numeric comparison operator, like this :
+
+    if ($x & $y == 0) { ... }
+
+This expression is actually equivalent to C<$x & ($y == 0)>, due to the
+higher precedence of C<==>.  This is probably not what you want.  (If you
+really meant to write this, disable the warning, or, better, put the
+parentheses explicitly and write C<$x & ($y == 0)>).
+
+=item Possible unintended interpolation of $\ in regex
+
+(W ambiguous) You said something like C<m/$\/> in a regex.
+The regex C<m/foo$\s+bar/m> translates to: match the word 'foo', the output
+record separator (see L<perlvar/$\>) and the letter 's' (one time or more)
+followed by the word 'bar'.
+
+If this is what you intended then you can silence the warning by using 
+C<m/${\}/> (for example: C<m/foo${\}s+bar/>).
+
+If instead you intended to match the word 'foo' at the end of the line
+followed by whitespace and the word 'bar' on the next line then you can use
+C<m/$(?)\/> (for example: C<m/foo$(?)\s+bar/>).
+
+=item Possible unintended interpolation of %s in string
+
+(W ambiguous) You said something like '@foo' in a double-quoted string
+but there was no array C<@foo> in scope at the time.  If you wanted a
+literal @foo, then write it as \@foo; otherwise find out what happened
+to the array you apparently lost track of.
+
+=item Precedence problem: open %s should be open(%s)
+
+(S precedence) The old irregular construct
+
+    open FOO || die;
+
+is now misinterpreted as
+
+    open(FOO || die);
+
+because of the strict regularization of Perl 5's grammar into unary and
+list operators.  (The old open was a little of both.)  You must put
+parentheses around the filehandle, or use the new "or" operator instead
+of "||".
+
+=item Premature end of script headers
+
+See Server error.
+
+=item printf() on closed filehandle %s
+
+(W closed) The filehandle you're writing to got itself closed sometime
+before now.  Check your control flow.
+
+=item print() on closed filehandle %s
+
+(W closed) The filehandle you're printing on got itself closed sometime
+before now.  Check your control flow.
+
+=item Process terminated by SIG%s
+
+(W) This is a standard message issued by OS/2 applications, while *nix
+applications die in silence.  It is considered a feature of the OS/2
+port.  One can easily disable this by appropriate sighandlers, see
+L<perlipc/"Signals">.  See also "Process terminated by SIGTERM/SIGINT"
+in L<perlos2>.
+
+=item Prototype after '%c' for %s : %s
+
+(W illegalproto) A character follows % or @ in a prototype.  This is
+useless, since % and @ gobble the rest of the subroutine arguments.
+
+=item Prototype mismatch: %s vs %s
+
+(S prototype) The subroutine being declared or defined had previously been
+declared or defined with a different function prototype.
+
+=item Prototype not terminated
+
+(F) You've omitted the closing parenthesis in a function prototype
+definition.
+
+=item Prototype '%s' overridden by attribute 'prototype(%s)' in %s
+
+(W prototype) A prototype was declared in both the parentheses after
+the sub name and via the prototype attribute.  The prototype in
+parentheses is useless, since it will be replaced by the prototype
+from the attribute before it's ever used.
+
+=item Quantifier follows nothing in regex; marked by S<<-- HERE> in m/%s/
+
+(F) You started a regular expression with a quantifier.  Backslash it if
+you meant it literally.  The S<<-- HERE> shows whereabouts in the regular
+expression the problem was discovered.  See L<perlre>.
+
+=item Quantifier in {,} bigger than %d in regex; marked by S<<-- HERE> in m/%s/
+
+(F) There is currently a limit to the size of the min and max values of
+the {min,max} construct.  The S<<-- HERE> shows whereabouts in the regular
+expression the problem was discovered.  See L<perlre>.
+
+=item Quantifier {n,m} with n > m can't match in regex
+
+=item Quantifier {n,m} with n > m can't match in regex; marked by
+S<<-- HERE> in m/%s/
+
+(W regexp) Minima should be less than or equal to maxima.  If you really
+want your regexp to match something 0 times, just put {0}.
+
+=item Quantifier unexpected on zero-length expression in regex m/%s/
+
+(W regexp) You applied a regular expression quantifier in a place where
+it makes no sense, such as on a zero-width assertion.  Try putting the
+quantifier inside the assertion instead.  For example, the way to match
+"abc" provided that it is followed by three repetitions of "xyz" is
+C</abc(?=(?:xyz){3})/>, not C</abc(?=xyz){3}/>.
+
+=item Range iterator outside integer range
+
+(F) One (or both) of the numeric arguments to the range operator ".."
+are outside the range which can be represented by integers internally.
+One possible workaround is to force Perl to use magical string increment
+by prepending "0" to your numbers.
+
+=item Ranges of ASCII printables should be some subset of "0-9", "A-Z", or
+"a-z" in regex; marked by S<<-- HERE> in m/%s/
+
+(W regexp) (only under C<S<use re 'strict'>> or within C<(?[...])>)
+
+Stricter rules help to find typos and other errors.  Perhaps you didn't
+even intend a range here, if the C<"-"> was meant to be some other
+character, or should have been escaped (like C<"\-">).  If you did
+intend a range, the one that was used is not portable between ASCII and
+EBCDIC platforms, and doesn't have an obvious meaning to a casual
+reader.
+
+ [3-7]    # OK; Obvious and portable
+ [d-g]    # OK; Obvious and portable
+ [A-Y]    # OK; Obvious and portable
+ [A-z]    # WRONG; Not portable; not clear what is meant
+ [a-Z]    # WRONG; Not portable; not clear what is meant
+ [%-.]    # WRONG; Not portable; not clear what is meant
+ [\x41-Z] # WRONG; Not portable; not obvious to non-geek
+
+(You can force portability by specifying a Unicode range, which means that
+the endpoints are specified by
+L<C<\N{...}>|perlrecharclass/Character Ranges>, but the meaning may
+still not be obvious.)
+The stricter rules require that ranges that start or stop with an ASCII
+character that is not a control have all their endpoints be the literal
+character, and not some escape sequence (like C<"\x41">), and the ranges
+must be all digits, or all uppercase letters, or all lowercase letters.
+
+=item Ranges of digits should be from the same group in regex; marked by
+S<<-- HERE> in m/%s/
+
+(W regexp) (only under C<S<use re 'strict'>> or within C<(?[...])>)
+
+Stricter rules help to find typos and other errors.  You included a
+range, and at least one of the end points is a decimal digit.  Under the
+stricter rules, when this happens, both end points should be digits in
+the same group of 10 consecutive digits.
+
+=item readdir() attempted on invalid dirhandle %s
+
+(W io) The dirhandle you're reading from is either closed or not really
+a dirhandle.  Check your control flow.
+
+=item readline() on closed filehandle %s
+
+(W closed) The filehandle you're reading from got itself closed sometime
+before now.  Check your control flow.
+
+=item read() on closed filehandle %s
+
+(W closed) You tried to read from a closed filehandle.
+
+=item read() on unopened filehandle %s
+
+(W unopened) You tried to read from a filehandle that was never opened.
+
+=item Reallocation too large: %x
+
+(F) You can't allocate more than 64K on an MS-DOS machine.
+
+=item realloc() of freed memory ignored
+
+(S malloc) An internal routine called realloc() on something that had
+already been freed.
+
+=item Recompile perl with B<-D>DEBUGGING to use B<-D> switch
+
+(S debugging) You can't use the B<-D> option unless the code to produce
+the desired output is compiled into Perl, which entails some overhead,
+which is why it's currently left out of your copy.
+
+=item Recursive call to Perl_load_module in PerlIO_find_layer
+
+(P) It is currently not permitted to load modules when creating
+a filehandle inside an %INC hook.  This can happen with C<open my
+$fh, '<', \$scalar>, which implicitly loads PerlIO::scalar.  Try
+loading PerlIO::scalar explicitly first.
+
+=item Recursive inheritance detected in package '%s'
+
+(F) While calculating the method resolution order (MRO) of a package, Perl
+believes it found an infinite loop in the C<@ISA> hierarchy.  This is a
+crude check that bails out after 100 levels of C<@ISA> depth.
+
+=item Redundant argument in %s
+
+(W redundant) You called a function with more arguments than other
+arguments you supplied indicated would be needed.  Currently only
+emitted when a printf-type format required fewer arguments than were
+supplied, but might be used in the future for e.g. L<perlfunc/pack>.
+
+=item refcnt_dec: fd %d%s
+
+=item refcnt: fd %d%s
+
+=item refcnt_inc: fd %d%s
+
+(P) Perl's I/O implementation failed an internal consistency check.  If
+you see this message, something is very wrong.
+
+=item Reference found where even-sized list expected
+
+(W misc) You gave a single reference where Perl was expecting a list
+with an even number of elements (for assignment to a hash).  This
+usually means that you used the anon hash constructor when you meant
+to use parens.  In any case, a hash requires key/value B<pairs>.
+
+    %hash = { one => 1, two => 2, };	# WRONG
+    %hash = [ qw/ an anon array / ];	# WRONG
+    %hash = ( one => 1, two => 2, );	# right
+    %hash = qw( one 1 two 2 );			# also fine
+
+=item Reference is already weak
+
+(W misc) You have attempted to weaken a reference that is already weak.
+Doing so has no effect.
+
+=item Reference to invalid group 0 in regex; marked by S<<-- HERE> in m/%s/
+
+(F) You used C<\g0> or similar in a regular expression.  You may refer
+to capturing parentheses only with strictly positive integers
+(normal backreferences) or with strictly negative integers (relative
+backreferences).  Using 0 does not make sense.
+
+=item Reference to nonexistent group in regex; marked by S<<-- HERE> in
+m/%s/
+
+(F) You used something like C<\7> in your regular expression, but there are
+not at least seven sets of capturing parentheses in the expression.  If
+you wanted to have the character with ordinal 7 inserted into the regular
+expression, prepend zeroes to make it three digits long: C<\007>
+
+The S<<-- HERE> shows whereabouts in the regular expression the problem was
+discovered.
+
+=item Reference to nonexistent named group in regex; marked by S<<-- HERE>
+in m/%s/
+
+(F) You used something like C<\k'NAME'> or C<< \k<NAME> >> in your regular
+expression, but there is no corresponding named capturing parentheses
+such as C<(?'NAME'...)> or C<< (?<NAME>...) >>.  Check if the name has been
+spelled correctly both in the backreference and the declaration.
+
+The S<<-- HERE> shows whereabouts in the regular expression the problem was
+discovered.
+
+=item Reference to nonexistent or unclosed group in regex; marked by
+S<<-- HERE> in m/%s/
+
+(F) You used something like C<\g{-7}> in your regular expression, but there
+are not at least seven sets of closed capturing parentheses in the
+expression before where the C<\g{-7}> was located.
+
+The S<<-- HERE> shows whereabouts in the regular expression the problem was
+discovered.
+
+=item regexp memory corruption
+
+(P) The regular expression engine got confused by what the regular
+expression compiler gave it.
+
+=item Regexp modifier "/%c" may appear a maximum of twice
+
+=item Regexp modifier "%c" may appear a maximum of twice in regex; marked
+by S<<-- HERE> in m/%s/
+
+(F) The regular expression pattern had too many occurrences
+of the specified modifier.  Remove the extraneous ones.
+
+=item Regexp modifier "%c" may not appear after the "-" in regex; marked by <-- 
+HERE in m/%s/
+
+(F) Turning off the given modifier has the side effect of turning on
+another one.  Perl currently doesn't allow this.  Reword the regular
+expression to use the modifier you want to turn on (and place it before
+the minus), instead of the one you want to turn off.
+
+=item Regexp modifier "/%c" may not appear twice
+
+=item Regexp modifier "%c" may not appear twice in regex; marked by <--
+HERE in m/%s/
+
+(F) The regular expression pattern had too many occurrences
+of the specified modifier.  Remove the extraneous ones.
+
+=item Regexp modifiers "/%c" and "/%c" are mutually exclusive
+
+=item Regexp modifiers "%c" and "%c" are mutually exclusive in regex;
+marked by S<<-- HERE> in m/%s/
+
+(F) The regular expression pattern had more than one of these
+mutually exclusive modifiers.  Retain only the modifier that is
+supposed to be there.
+
+=item Regexp out of space in regex m/%s/
+
+(P) A "can't happen" error, because safemalloc() should have caught it
+earlier.
+
+=item Repeated format line will never terminate (~~ and @#)
+
+(F) Your format contains the ~~ repeat-until-blank sequence and a
+numeric field that will never go blank so that the repetition never
+terminates.  You might use ^# instead.  See L<perlform>.
+
+=item Replacement list is longer than search list
+
+(W misc) You have used a replacement list that is longer than the
+search list.  So the additional elements in the replacement list
+are meaningless.
+
+=item '%s' resolved to '\o{%s}%d'
+
+(W misc, regexp)  You wrote something like C<\08>, or C<\179> in a
+double-quotish string.  All but the last digit is treated as a single
+character, specified in octal.  The last digit is the next character in
+the string.  To tell Perl that this is indeed what you want, you can use
+the C<\o{ }> syntax, or use exactly three digits to specify the octal
+for the character.
+
+=item Reversed %s= operator
+
+(W syntax) You wrote your assignment operator backwards.  The = must
+always come last, to avoid ambiguity with subsequent unary operators.
+
+=item rewinddir() attempted on invalid dirhandle %s
+
+(W io) The dirhandle you tried to do a rewinddir() on is either closed
+or not really a dirhandle.  Check your control flow.
+
+=item Scalars leaked: %d
+
+(S internal) Something went wrong in Perl's internal bookkeeping
+of scalars: not all scalar variables were deallocated by the time
+Perl exited.  What this usually indicates is a memory leak, which
+is of course bad, especially if the Perl program is intended to be
+long-running.
+
+=item Scalar value @%s[%s] better written as $%s[%s]
+
+(W syntax) You've used an array slice (indicated by @) to select a
+single element of an array.  Generally it's better to ask for a scalar
+value (indicated by $).  The difference is that C<$foo[&bar]> always
+behaves like a scalar, both when assigning to it and when evaluating its
+argument, while C<@foo[&bar]> behaves like a list when you assign to it,
+and provides a list context to its subscript, which can do weird things
+if you're expecting only one subscript.
+
+On the other hand, if you were actually hoping to treat the array
+element as a list, you need to look into how references work, because
+Perl will not magically convert between scalars and lists for you.  See
+L<perlref>.
+
+=item Scalar value @%s{%s} better written as $%s{%s}
+
+(W syntax) You've used a hash slice (indicated by @) to select a single
+element of a hash.  Generally it's better to ask for a scalar value
+(indicated by $).  The difference is that C<$foo{&bar}> always behaves
+like a scalar, both when assigning to it and when evaluating its
+argument, while C<@foo{&bar}> behaves like a list when you assign to it,
+and provides a list context to its subscript, which can do weird things
+if you're expecting only one subscript.
+
+On the other hand, if you were actually hoping to treat the hash element
+as a list, you need to look into how references work, because Perl will
+not magically convert between scalars and lists for you.  See
+L<perlref>.
+
+=item Search pattern not terminated
+
+(F) The lexer couldn't find the final delimiter of a // or m{}
+construct.  Remember that bracketing delimiters count nesting level.
+Missing the leading C<$> from a variable C<$m> may cause this error.
+
+Note that since Perl 5.10.0 a // can also be the I<defined-or>
+construct, not just the empty search pattern.  Therefore code written
+in Perl 5.10.0 or later that uses the // as the I<defined-or> can be
+misparsed by pre-5.10.0 Perls as a non-terminated search pattern.
+
+=item seekdir() attempted on invalid dirhandle %s
+
+(W io) The dirhandle you are doing a seekdir() on is either closed or not
+really a dirhandle.  Check your control flow.
+
+=item %sseek() on unopened filehandle
+
+(W unopened) You tried to use the seek() or sysseek() function on a
+filehandle that was either never opened or has since been closed.
+
+=item select not implemented
+
+(F) This machine doesn't implement the select() system call.
+
+=item Self-ties of arrays and hashes are not supported
+
+(F) Self-ties are of arrays and hashes are not supported in
+the current implementation.
+
+=item Semicolon seems to be missing
+
+(W semicolon) A nearby syntax error was probably caused by a missing
+semicolon, or possibly some other missing operator, such as a comma.
+
+=item semi-panic: attempt to dup freed string
+
+(S internal) The internal newSVsv() routine was called to duplicate a
+scalar that had previously been marked as free.
+
+=item sem%s not implemented
+
+(F) You don't have System V semaphore IPC on your system.
+
+=item send() on closed socket %s
+
+(W closed) The socket you're sending to got itself closed sometime
+before now.  Check your control flow.
+
+=item Sequence "\c{" invalid
+
+(F) These three characters may not appear in sequence in a
+double-quotish context.  This message is raised only on non-ASCII
+platforms (a different error message is output on ASCII ones).  If you
+were intending to specify a control character with this sequence, you'll
+have to use a different way to specify it.
+
+=item Sequence (? incomplete in regex; marked by S<<-- HERE> in m/%s/
+
+(F) A regular expression ended with an incomplete extension (?.  The
+S<<-- HERE> shows whereabouts in the regular expression the problem was
+discovered.  See L<perlre>.
+
+=item Sequence (?%c...) not implemented in regex; marked by S<<-- HERE> in
+m/%s/
+
+(F) A proposed regular expression extension has the character reserved
+but has not yet been written.  The S<<-- HERE> shows whereabouts in the
+regular expression the problem was discovered.  See L<perlre>.
+
+=item Sequence (?%s...) not recognized in regex; marked by S<<-- HERE> in
+m/%s/
+
+(F) You used a regular expression extension that doesn't make sense.
+The S<<-- HERE> shows whereabouts in the regular expression the problem was
+discovered.  This may happen when using the C<(?^...)> construct to tell
+Perl to use the default regular expression modifiers, and you
+redundantly specify a default modifier.  For other
+causes, see L<perlre>.
+
+=item Sequence (?#... not terminated in regex m/%s/
+
+(F) A regular expression comment must be terminated by a closing
+parenthesis.  Embedded parentheses aren't allowed.  See
+L<perlre>.
+
+=item Sequence (?&... not terminated in regex; marked by S<<-- HERE> in
+m/%s/
+
+(F) A named reference of the form C<(?&...)> was missing the final
+closing parenthesis after the name.  The S<<-- HERE> shows whereabouts
+in the regular expression the problem was discovered.
+
+=item Sequence (?%c... not terminated in regex; marked by S<<-- HERE>
+in m/%s/
+
+(F) A named group of the form C<(?'...')> or C<< (?<...>) >> was missing the final
+closing quote or angle bracket.  The S<<-- HERE> shows whereabouts in the
+regular expression the problem was discovered.
+
+=item Sequence (?(%c... not terminated in regex; marked by S<<-- HERE>
+in m/%s/
+
+(F) A named reference of the form C<(?('...')...)> or C<< (?(<...>)...) >> was
+missing the final closing quote or angle bracket after the name.  The
+S<<-- HERE> shows whereabouts in the regular expression the problem was
+discovered.
+
+=item Sequence (?... not terminated in regex; marked by S<<-- HERE> in
+m/%s/
+
+(F) There was no matching closing parenthesis for the '('.  The
+S<<-- HERE> shows whereabouts in the regular expression the problem was
+discovered.
+
+=item Sequence \%s... not terminated in regex; marked by S<<-- HERE> in
+m/%s/
+
+(F) The regular expression expects a mandatory argument following the escape
+sequence and this has been omitted or incorrectly written.
+
+=item Sequence (?{...}) not terminated with ')'
+
+(F) The end of the perl code contained within the {...} must be
+followed immediately by a ')'.
+
+=item Sequence (?PE<gt>... not terminated in regex; marked by S<<-- HERE> in m/%s/
+
+(F) A named reference of the form C<(?PE<gt>...)> was missing the final
+closing parenthesis after the name.  The S<<-- HERE> shows whereabouts
+in the regular expression the problem was discovered.
+
+=item Sequence (?PE<lt>... not terminated in regex; marked by S<<-- HERE> in m/%s/
+
+(F) A named group of the form C<(?PE<lt>...E<gt>')> was missing the final
+closing angle bracket.  The S<<-- HERE> shows whereabouts in the
+regular expression the problem was discovered.
+
+=item Sequence ?P=... not terminated in regex; marked by S<<-- HERE> in
+m/%s/
+
+(F) A named reference of the form C<(?P=...)> was missing the final
+closing parenthesis after the name.  The S<<-- HERE> shows whereabouts
+in the regular expression the problem was discovered.
+
+=item Sequence (?R) not terminated in regex m/%s/
+
+(F) An C<(?R)> or C<(?0)> sequence in a regular expression was missing the
+final parenthesis.
+
+=item Server error (a.k.a. "500 Server error")
+
+(A) This is the error message generally seen in a browser window
+when trying to run a CGI program (including SSI) over the web.  The
+actual error text varies widely from server to server.  The most
+frequently-seen variants are "500 Server error", "Method (something)
+not permitted", "Document contains no data", "Premature end of script
+headers", and "Did not produce a valid header".
+
+B<This is a CGI error, not a Perl error>.
+
+You need to make sure your script is executable, is accessible by
+the user CGI is running the script under (which is probably not the
+user account you tested it under), does not rely on any environment
+variables (like PATH) from the user it isn't running under, and isn't
+in a location where the CGI server can't find it, basically, more or
+less.  Please see the following for more information:
+
+	http://www.perl.org/CGI_MetaFAQ.html
+	http://www.htmlhelp.org/faq/cgifaq.html
+	http://www.w3.org/Security/Faq/
+
+You should also look at L<perlfaq9>.
+
+=item setegid() not implemented
+
+(F) You tried to assign to C<$)>, and your operating system doesn't
+support the setegid() system call (or equivalent), or at least Configure
+didn't think so.
+
+=item seteuid() not implemented
+
+(F) You tried to assign to C<< $> >>, and your operating system doesn't
+support the seteuid() system call (or equivalent), or at least Configure
+didn't think so.
+
+=item setpgrp can't take arguments
+
+(F) Your system has the setpgrp() from BSD 4.2, which takes no
+arguments, unlike POSIX setpgid(), which takes a process ID and process
+group ID.
+
+=item setrgid() not implemented
+
+(F) You tried to assign to C<$(>, and your operating system doesn't
+support the setrgid() system call (or equivalent), or at least Configure
+didn't think so.
+
+=item setruid() not implemented
+
+(F) You tried to assign to C<$<>, and your operating system doesn't
+support the setruid() system call (or equivalent), or at least Configure
+didn't think so.
+
+=item setsockopt() on closed socket %s
+
+(W closed) You tried to set a socket option on a closed socket.  Did you
+forget to check the return value of your socket() call?  See
+L<perlfunc/setsockopt>.
+
+=item Setting ${^ENCODING} is deprecated
+
+(D deprecated) You assigned a non-C<undef> value to C<${^ENCODING}>.
+This is deprecated; see C<L<perlvar/${^ENCODING}>> for details.
+
+=item Setting $/ to a reference to %s as a form of slurp is deprecated, treating as undef
+
+(D deprecated) You assigned a reference to a scalar to C<$/> where the
+referenced item is not a positive integer.  In older perls this B<appeared>
+to work the same as setting it to C<undef> but was in fact internally
+different, less efficient and with very bad luck could have resulted in
+your file being split by a stringified form of the reference.
+
+In Perl 5.20.0 this was changed so that it would be B<exactly> the same as
+setting C<$/> to undef, with the exception that this warning would be
+thrown.
+
+You are recommended to change your code to set C<$/> to C<undef> explicitly
+if you wish to slurp the file. In future versions of Perl assigning
+a reference to will throw a fatal error.
+
+=item Setting $/ to %s reference is forbidden
+
+(F) You tried to assign a reference to a non integer to C<$/>.  In older
+Perls this would have behaved similarly to setting it to a reference to
+a positive integer, where the integer was the address of the reference.
+As of Perl 5.20.0 this is a fatal error, to allow future versions of Perl
+to use non-integer refs for more interesting purposes.
+
+=item shm%s not implemented
+
+(F) You don't have System V shared memory IPC on your system.
+
+=item !=~ should be !~
+
+(W syntax) The non-matching operator is !~, not !=~.  !=~ will be
+interpreted as the != (numeric not equal) and ~ (1's complement)
+operators: probably not what you intended.
+
+=item /%s/ should probably be written as "%s"
+
+(W syntax) You have used a pattern where Perl expected to find a string,
+as in the first argument to C<join>.  Perl will treat the true or false
+result of matching the pattern against $_ as the string, which is
+probably not what you had in mind.
+
+=item shutdown() on closed socket %s
+
+(W closed) You tried to do a shutdown on a closed socket.  Seems a bit
+superfluous.
+
+=item SIG%s handler "%s" not defined
+
+(W signal) The signal handler named in %SIG doesn't, in fact, exist.
+Perhaps you put it into the wrong package?
+
+=item Slab leaked from cv %p
+
+(S) If you see this message, then something is seriously wrong with the
+internal bookkeeping of op trees.  An op tree needed to be freed after
+a compilation error, but could not be found, so it was leaked instead.
+
+=item sleep(%u) too large
+
+(W overflow) You called C<sleep> with a number that was larger than
+it can reliably handle and C<sleep> probably slept for less time than
+requested.
+
+=item Slurpy parameter not last
+
+(F) In a subroutine signature, you put something after a slurpy (array or
+hash) parameter.  The slurpy parameter takes all the available arguments,
+so there can't be any left to fill later parameters.
+
+=item Smart matching a non-overloaded object breaks encapsulation
+
+(F) You should not use the C<~~> operator on an object that does not
+overload it: Perl refuses to use the object's underlying structure
+for the smart match.
+
+=item Smartmatch is experimental
+
+(S experimental::smartmatch) This warning is emitted if you
+use the smartmatch (C<~~>) operator.  This is currently an experimental
+feature, and its details are subject to change in future releases of
+Perl.  Particularly, its current behavior is noticed for being
+unnecessarily complex and unintuitive, and is very likely to be
+overhauled.
+
+=item sort is now a reserved word
+
+(F) An ancient error message that almost nobody ever runs into anymore.
+But before sort was a keyword, people sometimes used it as a filehandle.
+
+=item Source filters apply only to byte streams
+
+(F) You tried to activate a source filter (usually by loading a
+source filter module) within a string passed to C<eval>.  This is
+not permitted under the C<unicode_eval> feature.  Consider using
+C<evalbytes> instead.  See L<feature>.
+
+=item splice() offset past end of array
+
+(W misc) You attempted to specify an offset that was past the end of
+the array passed to splice().  Splicing will instead commence at the
+end of the array, rather than past it.  If this isn't what you want,
+try explicitly pre-extending the array by assigning $#array = $offset.
+See L<perlfunc/splice>.
+
+=item Split loop
+
+(P) The split was looping infinitely.  (Obviously, a split shouldn't
+iterate more times than there are characters of input, which is what
+happened.)  See L<perlfunc/split>.
+
+=item Statement unlikely to be reached
+
+(W exec) You did an exec() with some statement after it other than a
+die().  This is almost always an error, because exec() never returns
+unless there was a failure.  You probably wanted to use system()
+instead, which does return.  To suppress this warning, put the exec() in
+a block by itself.
+
+=item "state" subroutine %s can't be in a package
+
+(F) Lexically scoped subroutines aren't in a package, so it doesn't make
+sense to try to declare one with a package qualifier on the front.
+
+=item "state %s" used in sort comparison
+
+(W syntax) The package variables $a and $b are used for sort comparisons.
+You used $a or $b in as an operand to the C<< <=> >> or C<cmp> operator inside a
+sort comparison block, and the variable had earlier been declared as a
+lexical variable.  Either qualify the sort variable with the package
+name, or rename the lexical variable.
+
+=item "state" variable %s can't be in a package
+
+(F) Lexically scoped variables aren't in a package, so it doesn't make
+sense to try to declare one with a package qualifier on the front.  Use
+local() if you want to localize a package variable.
+
+=item stat() on unopened filehandle %s
+
+(W unopened) You tried to use the stat() function on a filehandle that
+was either never opened or has since been closed.
+
+=item Strings with code points over 0xFF may not be mapped into in-memory file handles
+
+(W utf8) You tried to open a reference to a scalar for read or append
+where the scalar contained code points over 0xFF.  In-memory files
+model on-disk files and can only contain bytes.
+
+=item Stub found while resolving method "%s" overloading "%s" in package "%s"
+
+(P) Overloading resolution over @ISA tree may be broken by importation
+stubs.  Stubs should never be implicitly created, but explicit calls to
+C<can> may break this.
+
+=item Subroutine "&%s" is not available
+
+(W closure) During compilation, an inner named subroutine or eval is
+attempting to capture an outer lexical subroutine that is not currently
+available.  This can happen for one of two reasons.  First, the lexical
+subroutine may be declared in an outer anonymous subroutine that has
+not yet been created.  (Remember that named subs are created at compile
+time, while anonymous subs are created at run-time.)  For example,
+
+    sub { my sub a {...} sub f { \&a } }
+
+At the time that f is created, it can't capture the current "a" sub,
+since the anonymous subroutine hasn't been created yet.  Conversely, the
+following won't give a warning since the anonymous subroutine has by now
+been created and is live:
+
+    sub { my sub a {...} eval 'sub f { \&a }' }->();
+
+The second situation is caused by an eval accessing a lexical subroutine
+that has gone out of scope, for example,
+
+    sub f {
+	my sub a {...}
+	sub { eval '\&a' }
+    }
+    f()->();
+
+Here, when the '\&a' in the eval is being compiled, f() is not currently
+being executed, so its &a is not available for capture.
+
+=item "%s" subroutine &%s masks earlier declaration in same %s
+
+(W misc) A "my" or "state" subroutine has been redeclared in the
+current scope or statement, effectively eliminating all access to
+the previous instance.  This is almost always a typographical error.
+Note that the earlier subroutine will still exist until the end of
+the scope or until all closure references to it are destroyed.
+
+=item Subroutine %s redefined
+
+(W redefine) You redefined a subroutine.  To suppress this warning, say
+
+    {
+	no warnings 'redefine';
+	eval "sub name { ... }";
+    }
+
+=item Subroutine "%s" will not stay shared
+
+(W closure) An inner (nested) I<named> subroutine is referencing a "my"
+subroutine defined in an outer named subroutine.
+
+When the inner subroutine is called, it will see the value of the outer
+subroutine's lexical subroutine as it was before and during the *first*
+call to the outer subroutine; in this case, after the first call to the
+outer subroutine is complete, the inner and outer subroutines will no
+longer share a common value for the lexical subroutine.  In other words,
+it will no longer be shared.  This will especially make a difference
+if the lexical subroutines accesses lexical variables declared in its
+surrounding scope.
+
+This problem can usually be solved by making the inner subroutine
+anonymous, using the C<sub {}> syntax.  When inner anonymous subs that
+reference lexical subroutines in outer subroutines are created, they
+are automatically rebound to the current values of such lexical subs.
+
+=item Substitution loop
+
+(P) The substitution was looping infinitely.  (Obviously, a substitution
+shouldn't iterate more times than there are characters of input, which
+is what happened.)  See the discussion of substitution in
+L<perlop/"Regexp Quote-Like Operators">.
+
+=item Substitution pattern not terminated
+
+(F) The lexer couldn't find the interior delimiter of an s/// or s{}{}
+construct.  Remember that bracketing delimiters count nesting level.
+Missing the leading C<$> from variable C<$s> may cause this error.
+
+=item Substitution replacement not terminated
+
+(F) The lexer couldn't find the final delimiter of an s/// or s{}{}
+construct.  Remember that bracketing delimiters count nesting level.
+Missing the leading C<$> from variable C<$s> may cause this error.
+
+=item substr outside of string
+
+(W substr)(F) You tried to reference a substr() that pointed outside of
+a string.  That is, the absolute value of the offset was larger than the
+length of the string.  See L<perlfunc/substr>.  This warning is fatal if
+substr is used in an lvalue context (as the left hand side of an
+assignment or as a subroutine argument for example).
+
+=item sv_upgrade from type %d down to type %d
+
+(P) Perl tried to force the upgrade of an SV to a type which was actually
+inferior to its current type.
+
+=item SWASHNEW didn't return an HV ref
+
+(P) Something went wrong internally when Perl was trying to look up
+Unicode characters.
+
+=item Switch (?(condition)... contains too many branches in regex; marked by 
+S<<-- HERE> in m/%s/
+
+(F) A (?(condition)if-clause|else-clause) construct can have at most
+two branches (the if-clause and the else-clause).  If you want one or
+both to contain alternation, such as using C<this|that|other>, enclose
+it in clustering parentheses:
+
+    (?(condition)(?:this|that|other)|else-clause)
+
+The S<<-- HERE> shows whereabouts in the regular expression the problem
+was discovered.  See L<perlre>.
+
+=item Switch condition not recognized in regex; marked by S<<-- HERE> in
+m/%s/
+
+(F) The condition part of a (?(condition)if-clause|else-clause) construct
+is not known.  The condition must be one of the following:
+
+ (1) (2) ...        true if 1st, 2nd, etc., capture matched
+ (<NAME>) ('NAME')  true if named capture matched
+ (?=...) (?<=...)   true if subpattern matches
+ (?!...) (?<!...)   true if subpattern fails to match
+ (?{ CODE })        true if code returns a true value
+ (R)                true if evaluating inside recursion
+ (R1) (R2) ...      true if directly inside capture group 1, 2, etc.
+ (R&NAME)           true if directly inside named capture
+ (DEFINE)           always false; for defining named subpatterns
+
+The S<<-- HERE> shows whereabouts in the regular expression the problem was
+discovered.  See L<perlre>.
+
+=item Switch (?(condition)... not terminated in regex; marked by
+S<<-- HERE> in m/%s/
+
+(F) You omitted to close a (?(condition)...) block somewhere
+in the pattern.  Add a closing parenthesis in the appropriate
+position.  See L<perlre>.
+
+=item switching effective %s is not implemented
+
+(F) While under the C<use filetest> pragma, we cannot switch the real
+and effective uids or gids.
+
+=item syntax error
+
+(F) Probably means you had a syntax error.  Common reasons include:
+
+    A keyword is misspelled.
+    A semicolon is missing.
+    A comma is missing.
+    An opening or closing parenthesis is missing.
+    An opening or closing brace is missing.
+    A closing quote is missing.
+
+Often there will be another error message associated with the syntax
+error giving more information.  (Sometimes it helps to turn on B<-w>.)
+The error message itself often tells you where it was in the line when
+it decided to give up.  Sometimes the actual error is several tokens
+before this, because Perl is good at understanding random input.
+Occasionally the line number may be misleading, and once in a blue moon
+the only way to figure out what's triggering the error is to call
+C<perl -c> repeatedly, chopping away half the program each time to see
+if the error went away.  Sort of the cybernetic version of S<20 questions>.
+
+=item syntax error at line %d: '%s' unexpected
+
+(A) You've accidentally run your script through the Bourne shell instead
+of Perl.  Check the #! line, or manually feed your script into Perl
+yourself.
+
+=item syntax error in file %s at line %d, next 2 tokens "%s"
+
+(F) This error is likely to occur if you run a perl5 script through
+a perl4 interpreter, especially if the next 2 tokens are "use strict"
+or "my $var" or "our $var".
+
+=item Syntax error in (?[...]) in regex m/%s/
+
+(F) Perl could not figure out what you meant inside this construct; this
+notifies you that it is giving up trying.
+
+=item %s syntax OK
+
+(F) The final summary message when a C<perl -c> succeeds.
+
+=item sysread() on closed filehandle %s
+
+(W closed) You tried to read from a closed filehandle.
+
+=item sysread() on unopened filehandle %s
+
+(W unopened) You tried to read from a filehandle that was never opened.
+
+=item System V %s is not implemented on this machine
+
+(F) You tried to do something with a function beginning with "sem",
+"shm", or "msg" but that System V IPC is not implemented in your
+machine.  In some machines the functionality can exist but be
+unconfigured.  Consult your system support.
+
+=item syswrite() on closed filehandle %s
+
+(W closed) The filehandle you're writing to got itself closed sometime
+before now.  Check your control flow.
+
+=item C<-T> and C<-B> not implemented on filehandles
+
+(F) Perl can't peek at the stdio buffer of filehandles when it doesn't
+know about your kind of stdio.  You'll have to use a filename instead.
+
+=item Target of goto is too deeply nested
+
+(F) You tried to use C<goto> to reach a label that was too deeply nested
+for Perl to reach.  Perl is doing you a favor by refusing.
+
+=item telldir() attempted on invalid dirhandle %s
+
+(W io) The dirhandle you tried to telldir() is either closed or not really
+a dirhandle.  Check your control flow.
+
+=item tell() on unopened filehandle
+
+(W unopened) You tried to use the tell() function on a filehandle that
+was either never opened or has since been closed.
+
+=item That use of $[ is unsupported
+
+(F) Assignment to C<$[> is now strictly circumscribed, and interpreted
+as a compiler directive.  You may say only one of
+
+    $[ = 0;
+    $[ = 1;
+    ...
+    local $[ = 0;
+    local $[ = 1;
+    ...
+
+This is to prevent the problem of one module changing the array base out
+from under another module inadvertently.  See L<perlvar/$[> and L<arybase>.
+
+=item The bitwise feature is experimental
+
+(S experimental::bitwise) This warning is emitted if you use bitwise
+operators (C<& | ^ ~ &. |. ^. ~.>) with the "bitwise" feature enabled.
+Simply suppress the warning if you want to use the feature, but know
+that in doing so you are taking the risk of using an experimental
+feature which may change or be removed in a future Perl version:
+
+    no warnings "experimental::bitwise";
+    use feature "bitwise";
+    $x |.= $y;
+
+=item The crypt() function is unimplemented due to excessive paranoia.
+
+(F) Configure couldn't find the crypt() function on your machine,
+probably because your vendor didn't supply it, probably because they
+think the U.S. Government thinks it's a secret, or at least that they
+will continue to pretend that it is.  And if you quote me on that, I
+will deny it.
+
+=item The %s function is unimplemented
+
+(F) The function indicated isn't implemented on this architecture,
+according to the probings of Configure.
+
+=item The lexical_subs feature is experimental
+
+(S experimental::lexical_subs) This warning is emitted if you
+declare a sub with C<my> or C<state>.  Simply suppress the warning
+if you want to use the feature, but know that in doing so you
+are taking the risk of using an experimental feature which may
+change or be removed in a future Perl version:
+
+    no warnings "experimental::lexical_subs";
+    use feature "lexical_subs";
+    my sub foo { ... }
+
+=item The regex_sets feature is experimental
+
+(S experimental::regex_sets) This warning is emitted if you
+use the syntax S<C<(?[   ])>> in a regular expression.
+The details of this feature are subject to change.
+if you want to use it, but know that in doing so you
+are taking the risk of using an experimental feature which may
+change in a future Perl version, you can do this to silence the
+warning:
+
+    no warnings "experimental::regex_sets";
+
+=item The signatures feature is experimental
+
+(S experimental::signatures) This warning is emitted if you unwrap a
+subroutine's arguments using a signature.  Simply suppress the warning
+if you want to use the feature, but know that in doing so you are taking
+the risk of using an experimental feature which may change or be removed
+in a future Perl version:
+
+    no warnings "experimental::signatures";
+    use feature "signatures";
+    sub foo ($left, $right) { ... }
+
+=item The stat preceding %s wasn't an lstat
+
+(F) It makes no sense to test the current stat buffer for symbolic
+linkhood if the last stat that wrote to the stat buffer already went
+past the symlink to get to the real file.  Use an actual filename
+instead.
+
+=item The 'unique' attribute may only be applied to 'our' variables
+
+(F) This attribute was never supported on C<my> or C<sub> declarations.
+
+=item This Perl can't reset CRTL environ elements (%s)
+
+=item This Perl can't set CRTL environ elements (%s=%s)
+
+(W internal) Warnings peculiar to VMS.  You tried to change or delete an
+element of the CRTL's internal environ array, but your copy of Perl
+wasn't built with a CRTL that contained the setenv() function.  You'll
+need to rebuild Perl with a CRTL that does, or redefine
+F<PERL_ENV_TABLES> (see L<perlvms>) so that the environ array isn't the
+target of the change to
+%ENV which produced the warning.
+
+=item This Perl has not been built with support for randomized hash key traversal but something called Perl_hv_rand_set().
+
+(F) Something has attempted to use an internal API call which
+depends on Perl being compiled with the default support for randomized hash
+key traversal, but this Perl has been compiled without it.  You should
+report this warning to the relevant upstream party, or recompile perl
+with default options.
+
+=item times not implemented
+
+(F) Your version of the C library apparently doesn't do times().  I
+suspect you're not running on Unix.
+
+=item "-T" is on the #! line, it must also be used on the command line
+
+(X) The #! line (or local equivalent) in a Perl script contains
+the B<-T> option (or the B<-t> option), but Perl was not invoked with
+B<-T> in its command line.  This is an error because, by the time
+Perl discovers a B<-T> in a script, it's too late to properly taint
+everything from the environment.  So Perl gives up.
+
+If the Perl script is being executed as a command using the #!
+mechanism (or its local equivalent), this error can usually be
+fixed by editing the #! line so that the B<-%c> option is a part of
+Perl's first argument: e.g. change C<perl -n -%c> to C<perl -%c -n>.
+
+If the Perl script is being executed as C<perl scriptname>, then the
+B<-%c> option must appear on the command line: C<perl -%c scriptname>.
+
+=item To%s: illegal mapping '%s'
+
+(F) You tried to define a customized To-mapping for lc(), lcfirst,
+uc(), or ucfirst() (or their string-inlined versions), but you
+specified an illegal mapping.
+See L<perlunicode/"User-Defined Character Properties">.
+
+=item Too deeply nested ()-groups
+
+(F) Your template contains ()-groups with a ridiculously deep nesting level.
+
+=item Too few args to syscall
+
+(F) There has to be at least one argument to syscall() to specify the
+system call to call, silly dilly.
+
+=item Too few arguments for subroutine
+
+(F) A subroutine using a signature received fewer arguments than required
+by the signature.  The caller of the subroutine is presumably at fault.
+Inconveniently, this error will be reported at the location of the
+subroutine, not that of the caller.
+
+=item Too late for "-%s" option
+
+(X) The #! line (or local equivalent) in a Perl script contains the
+B<-M>, B<-m> or B<-C> option.
+
+In the case of B<-M> and B<-m>, this is an error because those options
+are not intended for use inside scripts.  Use the C<use> pragma instead.
+
+The B<-C> option only works if it is specified on the command line as
+well (with the same sequence of letters or numbers following).  Either
+specify this option on the command line, or, if your system supports
+it, make your script executable and run it directly instead of passing
+it to perl.
+
+=item Too late to run %s block
+
+(W void) A CHECK or INIT block is being defined during run time proper,
+when the opportunity to run them has already passed.  Perhaps you are
+loading a file with C<require> or C<do> when you should be using C<use>
+instead.  Or perhaps you should put the C<require> or C<do> inside a
+BEGIN block.
+
+=item Too many args to syscall
+
+(F) Perl supports a maximum of only 14 args to syscall().
+
+=item Too many arguments for %s
+
+(F) The function requires fewer arguments than you specified.
+
+=item Too many arguments for subroutine
+
+(F) A subroutine using a signature received more arguments than required
+by the signature.  The caller of the subroutine is presumably at fault.
+Inconveniently, this error will be reported at the location of the
+subroutine, not that of the caller.
+
+=item Too many )'s
+
+(A) You've accidentally run your script through B<csh> instead of Perl.
+Check the #! line, or manually feed your script into Perl yourself.
+
+=item Too many ('s
+
+(A) You've accidentally run your script through B<csh> instead of Perl.
+Check the #! line, or manually feed your script into Perl yourself.
+
+=item Trailing \ in regex m/%s/
+
+(F) The regular expression ends with an unbackslashed backslash.
+Backslash it.   See L<perlre>.
+
+=item Transliteration pattern not terminated
+
+(F) The lexer couldn't find the interior delimiter of a tr/// or tr[][]
+or y/// or y[][] construct.  Missing the leading C<$> from variables
+C<$tr> or C<$y> may cause this error.
+
+=item Transliteration replacement not terminated
+
+(F) The lexer couldn't find the final delimiter of a tr///, tr[][],
+y/// or y[][] construct.
+
+=item '%s' trapped by operation mask
+
+(F) You tried to use an operator from a Safe compartment in which it's
+disallowed.  See L<Safe>.
+
+=item truncate not implemented
+
+(F) Your machine doesn't implement a file truncation mechanism that
+Configure knows about.
+
+=item Type of arg %d to &CORE::%s must be %s
+
+(F) The subroutine in question in the CORE package requires its argument
+to be a hard reference to data of the specified type.  Overloading is
+ignored, so a reference to an object that is not the specified type, but
+nonetheless has overloading to handle it, will still not be accepted.
+
+=item Type of arg %d to %s must be %s (not %s)
+
+(F) This function requires the argument in that position to be of a
+certain type.  Arrays must be @NAME or C<@{EXPR}>.  Hashes must be
+%NAME or C<%{EXPR}>.  No implicit dereferencing is allowed--use the
+{EXPR} forms as an explicit dereference.  See L<perlref>.
+
+=item umask not implemented
+
+(F) Your machine doesn't implement the umask function and you tried to
+use it to restrict permissions for yourself (EXPR & 0700).
+
+=item Unbalanced context: %d more PUSHes than POPs
+
+(S internal) The exit code detected an internal inconsistency in how
+many execution contexts were entered and left.
+
+=item Unbalanced saves: %d more saves than restores
+
+(S internal) The exit code detected an internal inconsistency in how
+many values were temporarily localized.
+
+=item Unbalanced scopes: %d more ENTERs than LEAVEs
+
+(S internal) The exit code detected an internal inconsistency in how
+many blocks were entered and left.
+
+=item Unbalanced string table refcount: (%d) for "%s"
+
+(S internal) On exit, Perl found some strings remaining in the shared
+string table used for copy on write and for hash keys.  The entries
+should have been freed, so this indicates a bug somewhere.
+
+=item Unbalanced tmps: %d more allocs than frees
+
+(S internal) The exit code detected an internal inconsistency in how
+many mortal scalars were allocated and freed.
+
+=item Undefined format "%s" called
+
+(F) The format indicated doesn't seem to exist.  Perhaps it's really in
+another package?  See L<perlform>.
+
+=item Undefined sort subroutine "%s" called
+
+(F) The sort comparison routine specified doesn't seem to exist.
+Perhaps it's in a different package?  See L<perlfunc/sort>.
+
+=item Undefined subroutine &%s called
+
+(F) The subroutine indicated hasn't been defined, or if it was, it has
+since been undefined.
+
+=item Undefined subroutine called
+
+(F) The anonymous subroutine you're trying to call hasn't been defined,
+or if it was, it has since been undefined.
+
+=item Undefined subroutine in sort
+
+(F) The sort comparison routine specified is declared but doesn't seem
+to have been defined yet.  See L<perlfunc/sort>.
+
+=item Undefined top format "%s" called
+
+(F) The format indicated doesn't seem to exist.  Perhaps it's really in
+another package?  See L<perlform>.
+
+=item Undefined value assigned to typeglob
+
+(W misc) An undefined value was assigned to a typeglob, a la
+C<*foo = undef>.  This does nothing.  It's possible that you really mean
+C<undef *foo>.
+
+=item %s: Undefined variable
+
+(A) You've accidentally run your script through B<csh> instead of Perl.
+Check the #! line, or manually feed your script into Perl yourself.
+
+=item Unescaped left brace in regex is deprecated, passed through in regex;
+marked by S<<-- HERE> in m/%s/
+
+(D deprecated, regexp) You used a literal C<"{"> character in a regular
+expression pattern.  You should change to use C<"\{"> instead, because a
+future version of Perl (tentatively v5.26) will consider this to be a
+syntax error.  If the pattern delimiters are also braces, any matching
+right brace (C<"}">) should also be escaped to avoid confusing the parser,
+for example,
+
+    qr{abc\{def\}ghi}
+
+=item unexec of %s into %s failed!
+
+(F) The unexec() routine failed for some reason.  See your local FSF
+representative, who probably put it there in the first place.
+
+=item Unexpected binary operator '%c' with no preceding operand in regex;
+marked by S<<-- HERE> in m/%s/
+
+(F) You had something like this:
+
+ (?[ | \p{Digit} ])
+
+where the C<"|"> is a binary operator with an operand on the right, but
+no operand on the left.
+
+=item Unexpected character in regex; marked by S<<-- HERE> in m/%s/
+
+(F) You had something like this:
+
+ (?[ z ])
+
+Within C<(?[ ])>, no literal characters are allowed unless they are
+within an inner pair of square brackets, like
+
+ (?[ [ z ] ])
+
+Another possibility is that you forgot a backslash.  Perl isn't smart
+enough to figure out what you really meant.
+
+=item Unexpected constant lvalue entersub entry via type/targ %d:%d
+
+(P) When compiling a subroutine call in lvalue context, Perl failed an
+internal consistency check.  It encountered a malformed op tree.
+
+=item Unexpected exit %u
+
+(S) exit() was called or the script otherwise finished gracefully when
+C<PERL_EXIT_WARN> was set in C<PL_exit_flags>.
+
+=item Unexpected exit failure %d
+
+(S) An uncaught die() was called when C<PERL_EXIT_WARN> was set in
+C<PL_exit_flags>.
+
+=item Unexpected ')' in regex; marked by S<<-- HERE> in m/%s/
+
+(F) You had something like this:
+
+ (?[ ( \p{Digit} + ) ])
+
+The C<")"> is out-of-place.  Something apparently was supposed to
+be combined with the digits, or the C<"+"> shouldn't be there, or
+something like that.  Perl can't figure out what was intended.
+
+=item Unexpected '(' with no preceding operator in regex; marked by
+S<<-- HERE> in m/%s/
+
+(F) You had something like this:
+
+ (?[ \p{Digit} ( \p{Lao} + \p{Thai} ) ])
+
+There should be an operator before the C<"(">, as there's
+no indication as to how the digits are to be combined
+with the characters in the Lao and Thai scripts.
+
+=item Unicode non-character U+%X is not recommended for open interchange
+
+(S nonchar) Certain codepoints, such as U+FFFE and U+FFFF, are
+defined by the Unicode standard to be non-characters.  Those
+are legal codepoints, but are reserved for internal use; so,
+applications shouldn't attempt to exchange them.  An application
+may not be expecting any of these characters at all, and receiving
+them may lead to bugs.  If you know what you are doing you can
+turn off this warning by C<no warnings 'nonchar';>.
+
+This is not really a "severe" error, but it is supposed to be
+raised by default even if warnings are not enabled, and currently
+the only way to do that in Perl is to mark it as serious.
+
+=item Unicode surrogate U+%X is illegal in UTF-8
+
+(S surrogate) You had a UTF-16 surrogate in a context where they are
+not considered acceptable.  These code points, between U+D800 and
+U+DFFF (inclusive), are used by Unicode only for UTF-16.  However, Perl
+internally allows all unsigned integer code points (up to the size limit
+available on your platform), including surrogates.  But these can cause
+problems when being input or output, which is likely where this message
+came from.  If you really really know what you are doing you can turn
+off this warning by C<no warnings 'surrogate';>.
+
+=item Unknown charname '' is deprecated
+
+(D deprecated) You had a C<\N{}> with nothing between the braces.  This
+usage is deprecated, and will be made a syntax error in a future Perl
+version.
+
+=item Unknown charname '%s'
+
+(F) The name you used inside C<\N{}> is unknown to Perl.  Check the
+spelling.  You can say C<use charnames ":loose"> to not have to be
+so precise about spaces, hyphens, and capitalization on standard Unicode
+names.  (Any custom aliases that have been created must be specified
+exactly, regardless of whether C<:loose> is used or not.)  This error may
+also happen if the C<\N{}> is not in the scope of the corresponding
+C<S<use charnames>>.
+
+=item Unknown error
+
+(P) Perl was about to print an error message in C<$@>, but the C<$@> variable
+did not exist, even after an attempt to create it.
+
+=item Unknown open() mode '%s'
+
+(F) The second argument of 3-argument open() is not among the list
+of valid modes: C<< < >>, C<< > >>, C<<< >> >>>, C<< +< >>,
+C<< +> >>, C<<< +>> >>>, C<-|>, C<|->, C<< <& >>, C<< >& >>.
+
+=item Unknown PerlIO layer "%s"
+
+(W layer) An attempt was made to push an unknown layer onto the Perl I/O
+system.  (Layers take care of transforming data between external and
+internal representations.)  Note that some layers, such as C<mmap>,
+are not supported in all environments.  If your program didn't
+explicitly request the failing operation, it may be the result of the
+value of the environment variable PERLIO.
+
+=item Unknown process %x sent message to prime_env_iter: %s
+
+(P) An error peculiar to VMS.  Perl was reading values for %ENV before
+iterating over it, and someone else stuck a message in the stream of
+data Perl expected.  Someone's very confused, or perhaps trying to
+subvert Perl's population of %ENV for nefarious purposes.
+
+=item Unknown regex modifier "%s"
+
+(F) Alphanumerics immediately following the closing delimiter
+of a regular expression pattern are interpreted by Perl as modifier
+flags for the regex.  One of the ones you specified is invalid.  One way
+this can happen is if you didn't put in white space between the end of
+the regex and a following alphanumeric operator:
+
+ if ($a =~ /foo/and $bar == 3) { ... }
+
+The C<"a"> is a valid modifier flag, but the C<"n"> is not, and raises
+this error.  Likely what was meant instead was:
+
+ if ($a =~ /foo/ and $bar == 3) { ... }
+
+=item Unknown "re" subpragma '%s' (known ones are: %s)
+
+(W) You tried to use an unknown subpragma of the "re" pragma.
+
+=item Unknown switch condition (?(...)) in regex; marked by S<<-- HERE> in
+m/%s/
+
+(F) The condition part of a (?(condition)if-clause|else-clause) construct
+is not known.  The condition must be one of the following:
+
+ (1) (2) ...        true if 1st, 2nd, etc., capture matched
+ (<NAME>) ('NAME')  true if named capture matched
+ (?=...) (?<=...)   true if subpattern matches
+ (?!...) (?<!...)   true if subpattern fails to match
+ (?{ CODE })        true if code returns a true value
+ (R)                true if evaluating inside recursion
+ (R1) (R2) ...      true if directly inside capture group 1, 2, etc.
+ (R&NAME)           true if directly inside named capture
+ (DEFINE)           always false; for defining named subpatterns
+
+The S<<-- HERE> shows whereabouts in the regular expression the problem was
+discovered.  See L<perlre>.
+
+=item Unknown Unicode option letter '%c'
+
+(F) You specified an unknown Unicode option.  See L<perlrun> documentation
+of the C<-C> switch for the list of known options.
+
+=item Unknown Unicode option value %d
+
+(F) You specified an unknown Unicode option.  See L<perlrun> documentation
+of the C<-C> switch for the list of known options.
+
+=item Unknown verb pattern '%s' in regex; marked by S<<-- HERE> in m/%s/
+
+(F) You either made a typo or have incorrectly put a C<*> quantifier
+after an open brace in your pattern.  Check the pattern and review
+L<perlre> for details on legal verb patterns.
+
+=item Unknown warnings category '%s'
+
+(F) An error issued by the C<warnings> pragma.  You specified a warnings
+category that is unknown to perl at this point.
+
+Note that if you want to enable a warnings category registered by a
+module (e.g. C<use warnings 'File::Find'>), you must have loaded this
+module first.
+
+=item Unmatched [ in regex; marked by S<<-- HERE> in m/%s/
+
+(F) The brackets around a character class must match.  If you wish to
+include a closing bracket in a character class, backslash it or put it
+first.  The S<<-- HERE> shows whereabouts in the regular expression the
+problem was discovered.  See L<perlre>.
+
+=item Unmatched ( in regex; marked by S<<-- HERE> in m/%s/
+
+=item Unmatched ) in regex; marked by S<<-- HERE> in m/%s/
+
+(F) Unbackslashed parentheses must always be balanced in regular
+expressions.  If you're a vi user, the % key is valuable for finding
+the matching parenthesis.  The S<<-- HERE> shows whereabouts in the
+regular expression the problem was discovered.  See L<perlre>.
+
+=item Unmatched right %s bracket
+
+(F) The lexer counted more closing curly or square brackets than opening
+ones, so you're probably missing a matching opening bracket.  As a
+general rule, you'll find the missing one (so to speak) near the place
+you were last editing.
+
+=item Unquoted string "%s" may clash with future reserved word
+
+(W reserved) You used a bareword that might someday be claimed as a
+reserved word.  It's best to put such a word in quotes, or capitalize it
+somehow, or insert an underbar into it.  You might also declare it as a
+subroutine.
+
+=item Unrecognized character %s; marked by S<<-- HERE> after %s near column
+%d
+
+(F) The Perl parser has no idea what to do with the specified character
+in your Perl script (or eval) near the specified column.  Perhaps you
+tried  to run a compressed script, a binary program, or a directory as
+a Perl program.
+
+=item Unrecognized escape \%c in character class in regex; marked by
+S<<-- HERE> in m/%s/
+
+(F) You used a backslash-character combination which is not
+recognized by Perl inside character classes.  This is a fatal
+error when the character class is used within C<(?[ ])>.
+
+=item Unrecognized escape \%c in character class passed through in regex; 
+marked by S<<-- HERE> in m/%s/
+
+(W regexp) You used a backslash-character combination which is not
+recognized by Perl inside character classes.  The character was
+understood literally, but this may change in a future version of Perl.
+The S<<-- HERE> shows whereabouts in the regular expression the
+escape was discovered.
+
+=item Unrecognized escape \%c passed through
+
+(W misc) You used a backslash-character combination which is not
+recognized by Perl.  The character was understood literally, but this may
+change in a future version of Perl.
+
+=item Unrecognized escape \%s passed through in regex; marked by
+S<<-- HERE> in m/%s/
+
+(W regexp) You used a backslash-character combination which is not
+recognized by Perl.  The character(s) were understood literally, but
+this may change in a future version of Perl.  The S<<-- HERE> shows
+whereabouts in the regular expression the escape was discovered.
+
+=item Unrecognized signal name "%s"
+
+(F) You specified a signal name to the kill() function that was not
+recognized.  Say C<kill -l> in your shell to see the valid signal names
+on your system.
+
+=item Unrecognized switch: -%s  (-h will show valid options)
+
+(F) You specified an illegal option to Perl.  Don't do that.  (If you
+think you didn't do that, check the #! line to see if it's supplying the
+bad switch on your behalf.)
+
+=item Unsuccessful %s on filename containing newline
+
+(W newline) A file operation was attempted on a filename, and that
+operation failed, PROBABLY because the filename contained a newline,
+PROBABLY because you forgot to chomp() it off.  See L<perlfunc/chomp>.
+
+=item Unsupported directory function "%s" called
+
+(F) Your machine doesn't support opendir() and readdir().
+
+=item Unsupported function %s
+
+(F) This machine doesn't implement the indicated function, apparently.
+At least, Configure doesn't think so.
+
+=item Unsupported function fork
+
+(F) Your version of executable does not support forking.
+
+Note that under some systems, like OS/2, there may be different flavors
+of Perl executables, some of which may support fork, some not.  Try
+changing the name you call Perl by to C<perl_>, C<perl__>, and so on.
+
+=item Unsupported script encoding %s
+
+(F) Your program file begins with a Unicode Byte Order Mark (BOM) which
+declares it to be in a Unicode encoding that Perl cannot read.
+
+=item Unsupported socket function "%s" called
+
+(F) Your machine doesn't support the Berkeley socket mechanism, or at
+least that's what Configure thought.
+
+=item Unterminated attribute list
+
+(F) The lexer found something other than a simple identifier at the
+start of an attribute, and it wasn't a semicolon or the start of a
+block.  Perhaps you terminated the parameter list of the previous
+attribute too soon.  See L<attributes>.
+
+=item Unterminated attribute parameter in attribute list
+
+(F) The lexer saw an opening (left) parenthesis character while parsing
+an attribute list, but the matching closing (right) parenthesis
+character was not found.  You may need to add (or remove) a backslash
+character to get your parentheses to balance.  See L<attributes>.
+
+=item Unterminated compressed integer
+
+(F) An argument to unpack("w",...) was incompatible with the BER
+compressed integer format and could not be converted to an integer.
+See L<perlfunc/pack>.
+
+=item Unterminated delimiter for here document
+
+(F) This message occurs when a here document label has an initial
+quotation mark but the final quotation mark is missing.  Perhaps
+you wrote:
+
+    <<"foo
+
+instead of:
+
+    <<"foo"
+
+=item Unterminated \g... pattern in regex; marked by S<<-- HERE> in m/%s/
+
+=item Unterminated \g{...} pattern in regex; marked by S<<-- HERE> in m/%s/
+
+(F) In a regular expression, you had a C<\g> that wasn't followed by a
+proper group reference.  In the case of C<\g{>, the closing brace is
+missing; otherwise the C<\g> must be followed by an integer.  Fix the
+pattern and retry.
+
+=item Unterminated <> operator
+
+(F) The lexer saw a left angle bracket in a place where it was expecting
+a term, so it's looking for the corresponding right angle bracket, and
+not finding it.  Chances are you left some needed parentheses out
+earlier in the line, and you really meant a "less than".
+
+=item Unterminated verb pattern argument in regex; marked by S<<-- HERE> in
+m/%s/
+
+(F) You used a pattern of the form C<(*VERB:ARG)> but did not terminate
+the pattern with a C<)>.  Fix the pattern and retry.
+
+=item Unterminated verb pattern in regex; marked by S<<-- HERE> in m/%s/
+
+(F) You used a pattern of the form C<(*VERB)> but did not terminate
+the pattern with a C<)>.  Fix the pattern and retry.
+
+=item untie attempted while %d inner references still exist
+
+(W untie) A copy of the object returned from C<tie> (or C<tied>) was
+still valid when C<untie> was called.
+
+=item Usage: POSIX::%s(%s)
+
+(F) You called a POSIX function with incorrect arguments.
+See L<POSIX/FUNCTIONS> for more information.
+
+=item Usage: Win32::%s(%s)
+
+(F) You called a Win32 function with incorrect arguments.
+See L<Win32> for more information.
+
+=item $[ used in %s (did you mean $] ?)
+
+(W syntax) You used C<$[> in a comparison, such as:
+
+    if ($[ > 5.006) {
+	...
+    }
+
+You probably meant to use C<$]> instead.  C<$[> is the base for indexing
+arrays.  C<$]> is the Perl version number in decimal.
+
+=item Use "%s" instead of "%s"
+
+(F) The second listed construct is no longer legal.  Use the first one
+instead.
+
+=item Useless assignment to a temporary
+
+(W misc) You assigned to an lvalue subroutine, but what
+the subroutine returned was a temporary scalar about to
+be discarded, so the assignment had no effect.
+
+=item Useless (?-%s) - don't use /%s modifier in regex; marked by
+S<<-- HERE> in m/%s/
+
+(W regexp) You have used an internal modifier such as (?-o) that has no
+meaning unless removed from the entire regexp:
+
+    if ($string =~ /(?-o)$pattern/o) { ... }
+
+must be written as
+
+    if ($string =~ /$pattern/) { ... }
+
+The S<<-- HERE> shows whereabouts in the regular expression the problem was
+discovered.  See L<perlre>.
+
+=item Useless localization of %s
+
+(W syntax) The localization of lvalues such as C<local($x=10)> is legal,
+but in fact the local() currently has no effect.  This may change at
+some point in the future, but in the meantime such code is discouraged.
+
+=item Useless (?%s) - use /%s modifier in regex; marked by S<<-- HERE> in
+m/%s/
+
+(W regexp) You have used an internal modifier such as (?o) that has no
+meaning unless applied to the entire regexp:
+
+    if ($string =~ /(?o)$pattern/) { ... }
+
+must be written as
+
+    if ($string =~ /$pattern/o) { ... }
+
+The S<<-- HERE> shows whereabouts in the regular expression the problem was
+discovered.  See L<perlre>.
+
+=item Useless use of attribute "const"
+
+(W misc) The C<const> attribute has no effect except
+on anonymous closure prototypes.  You applied it to
+a subroutine via L<attributes.pm|attributes>.  This is only useful
+inside an attribute handler for an anonymous subroutine.
+
+=item Useless use of /d modifier in transliteration operator
+
+(W misc) You have used the /d modifier where the searchlist has the
+same length as the replacelist.  See L<perlop> for more information
+about the /d modifier.
+
+=item Useless use of \E
+
+(W misc) You have a \E in a double-quotish string without a C<\U>,
+C<\L> or C<\Q> preceding it.
+
+=item Useless use of greediness modifier '%c' in regex; marked by S<<-- HERE> in m/%s/
+
+(W regexp) You specified something like these:
+
+ qr/a{3}?/
+ qr/b{1,1}+/
+
+The C<"?"> and C<"+"> don't have any effect, as they modify whether to
+match more or fewer when there is a choice, and by specifying to match
+exactly a given numer, there is no room left for a choice.
+
+=item Useless use of %s in void context
+
+(W void) You did something without a side effect in a context that does
+nothing with the return value, such as a statement that doesn't return a
+value from a block, or the left side of a scalar comma operator.  Very
+often this points not to stupidity on your part, but a failure of Perl
+to parse your program the way you thought it would.  For example, you'd
+get this if you mixed up your C precedence with Python precedence and
+said
+
+    $one, $two = 1, 2;
+
+when you meant to say
+
+    ($one, $two) = (1, 2);
+
+Another common error is to use ordinary parentheses to construct a list
+reference when you should be using square or curly brackets, for
+example, if you say
+
+    $array = (1,2);
+
+when you should have said
+
+    $array = [1,2];
+
+The square brackets explicitly turn a list value into a scalar value,
+while parentheses do not.  So when a parenthesized list is evaluated in
+a scalar context, the comma is treated like C's comma operator, which
+throws away the left argument, which is not what you want.  See
+L<perlref> for more on this.
+
+This warning will not be issued for numerical constants equal to 0 or 1
+since they are often used in statements like
+
+    1 while sub_with_side_effects();
+
+String constants that would normally evaluate to 0 or 1 are warned
+about.
+
+=item Useless use of (?-p) in regex; marked by S<<-- HERE> in m/%s/
+
+(W regexp) The C<p> modifier cannot be turned off once set.  Trying to do
+so is futile.
+
+=item Useless use of "re" pragma
+
+(W) You did C<use re;> without any arguments.  That isn't very useful.
+
+=item Useless use of sort in scalar context
+
+(W void) You used sort in scalar context, as in :
+
+    my $x = sort @y;
+
+This is not very useful, and perl currently optimizes this away.
+
+=item Useless use of %s with no values
+
+(W syntax) You used the push() or unshift() function with no arguments
+apart from the array, like C<push(@x)> or C<unshift(@foo)>.  That won't
+usually have any effect on the array, so is completely useless.  It's
+possible in principle that push(@tied_array) could have some effect
+if the array is tied to a class which implements a PUSH method.  If so,
+you can write it as C<push(@tied_array,())> to avoid this warning.
+
+=item "use" not allowed in expression
+
+(F) The "use" keyword is recognized and executed at compile time, and
+returns no useful value.  See L<perlmod>.
+
+=item Use of assignment to $[ is deprecated
+
+(D deprecated) The C<$[> variable (index of the first element in an array)
+is deprecated.  See L<perlvar/"$[">.
+
+=item Use of bare << to mean <<"" is deprecated
+
+(D deprecated) You are now encouraged to use the explicitly quoted
+form if you wish to use an empty line as the terminator of the
+here-document.
+
+=item Use of /c modifier is meaningless in s///
+
+(W regexp) You used the /c modifier in a substitution.  The /c
+modifier is not presently meaningful in substitutions.
+
+=item Use of /c modifier is meaningless without /g
+
+(W regexp) You used the /c modifier with a regex operand, but didn't
+use the /g modifier.  Currently, /c is meaningful only when /g is
+used.  (This may change in the future.)
+
+=item Use of code point 0x%s is deprecated; the permissible max is 0x%s
+
+(D deprecated) You used a code point that will not be allowed in a
+future perl version, because it is too large.  Unicode only allows code
+points up to 0x10FFFF, but Perl allows much larger ones.  However, the
+largest possible ones break the perl interpreter in some constructs,
+including causing it to hang in a few cases.  The known problem areas
+are in C<tr///>, regular expression pattern matching using quantifiers,
+and as the upper limits in loops.
+
+If your code is to run on various platforms, keep in mind that the upper
+limit depends on the platform.  It is much larger on 64-bit word sizes
+than 32-bit ones.
+
+=item Use of comma-less variable list is deprecated
+
+(D deprecated) The values you give to a format should be
+separated by commas, not just aligned on a line.
+
+=item Use of each() on hash after insertion without resetting hash iterator results in undefined behavior
+
+(S internal) The behavior of C<each()> after insertion is undefined;
+it may skip items, or visit items more than once.  Consider using
+C<keys()> instead of C<each()>.
+
+=item Use of := for an empty attribute list is not allowed
+
+(F) The construction C<my $x := 42> used to parse as equivalent to
+C<my $x : = 42> (applying an empty attribute list to C<$x>).
+This construct was deprecated in 5.12.0, and has now been made a syntax
+error, so C<:=> can be reclaimed as a new operator in the future.
+
+If you need an empty attribute list, for example in a code generator, add
+a space before the C<=>.
+
+=item Use of %s for non-UTF-8 locale is wrong.  Assuming a UTF-8 locale
+
+(W locale)  You are matching a regular expression using locale rules,
+and the specified construct was encountered.  This construct is only
+valid for UTF-8 locales, which the current locale isn't.  This doesn't
+make sense.  Perl will continue, assuming a Unicode (UTF-8) locale, but
+the results are likely to be wrong.
+
+=item Use of freed value in iteration
+
+(F) Perhaps you modified the iterated array within the loop?
+This error is typically caused by code like the following:
+
+    @a = (3,4);
+    @a = () for (1,2,@a);
+
+You are not supposed to modify arrays while they are being iterated over.
+For speed and efficiency reasons, Perl internally does not do full
+reference-counting of iterated items, hence deleting such an item in the
+middle of an iteration causes Perl to see a freed value.
+
+=item Use of *glob{FILEHANDLE} is deprecated
+
+(D deprecated) You are now encouraged to use the shorter *glob{IO} form
+to access the filehandle slot within a typeglob.
+
+=item Use of /g modifier is meaningless in split
+
+(W regexp) You used the /g modifier on the pattern for a C<split>
+operator.  Since C<split> always tries to match the pattern
+repeatedly, the C</g> has no effect.
+
+=item Use of "goto" to jump into a construct is deprecated
+
+(D deprecated) Using C<goto> to jump from an outer scope into an inner
+scope is deprecated and should be avoided.
+
+=item Use of inherited AUTOLOAD for non-method %s() is deprecated
+
+(D deprecated) As an (ahem) accidental feature, C<AUTOLOAD>
+subroutines are looked up as methods (using the C<@ISA> hierarchy)
+even when the subroutines to be autoloaded were called as plain
+functions (e.g. C<Foo::bar()>), not as methods (e.g. C<< Foo->bar() >> or
+C<< $obj->bar() >>).
+
+This bug will be rectified in future by using method lookup only for
+methods' C<AUTOLOAD>s.  However, there is a significant base of existing
+code that may be using the old behavior.  So, as an interim step, Perl
+currently issues an optional warning when non-methods use inherited
+C<AUTOLOAD>s.
+
+The simple rule is:  Inheritance will not work when autoloading
+non-methods.  The simple fix for old code is:  In any module that used
+to depend on inheriting C<AUTOLOAD> for non-methods from a base class
+named C<BaseClass>, execute C<*AUTOLOAD = \&BaseClass::AUTOLOAD> during
+startup.
+
+In code that currently says C<use AutoLoader; @ISA = qw(AutoLoader);>
+you should remove AutoLoader from @ISA and change C<use AutoLoader;> to
+C<use AutoLoader 'AUTOLOAD';>.
+
+=item Use of %s in printf format not supported
+
+(F) You attempted to use a feature of printf that is accessible from
+only C.  This usually means there's a better way to do it in Perl.
+
+=item Use of %s is deprecated
+
+(D deprecated) The construct indicated is no longer recommended for use,
+generally because there's a better way to do it, and also because the
+old way has bad side effects.
+
+=item Use of literal control characters in variable names is deprecated
+
+=item Use of literal non-graphic characters in variable names is deprecated
+
+(D deprecated) Using literal non-graphic (including control)
+characters in the source to refer to the ^FOO variables, like C<$^X> and
+C<${^GLOBAL_PHASE}> is now deprecated.  (We use C<^X> and C<^G> here for
+legibility.  They actually represent the non-printable control
+characters, code points 0x18 and 0x07, respectively; C<^A> would mean
+the control character whose code point is 0x01.) This only affects
+code like C<$\cT>, where C<\cT> is a control in the source code; C<${"\cT"}> and
+C<$^T> remain valid.  Things that are non-controls and also not graphic
+are NO-BREAK SPACE and SOFT HYPHEN, which were previously only allowed
+for historical reasons.
+
+=item Use of -l on filehandle%s
+
+(W io) A filehandle represents an opened file, and when you opened the file
+it already went past any symlink you are presumably trying to look for.
+The operation returned C<undef>.  Use a filename instead.
+
+=item Use of %s on a handle without * is deprecated
+
+(D deprecated) You used C<tie>, C<tied> or C<untie> on a scalar but that scalar
+happens to hold a typeglob, which means its filehandle will be tied.  If
+you mean to tie a handle, use an explicit * as in C<tie *$handle>.
+
+This was a long-standing bug that was removed in Perl 5.16, as there was
+no way to tie the scalar itself when it held a typeglob, and no way to
+untie a scalar that had had a typeglob assigned to it.  If you see this
+message, you must be using an older version.
+
+=item Use of reference "%s" as array index
+
+(W misc) You tried to use a reference as an array index; this probably
+isn't what you mean, because references in numerical context tend
+to be huge numbers, and so usually indicates programmer error.
+
+If you really do mean it, explicitly numify your reference, like so:
+C<$array[0+$ref]>.  This warning is not given for overloaded objects,
+however, because you can overload the numification and stringification
+operators and then you presumably know what you are doing.
+
+=item Use of state $_ is experimental
+
+(S experimental::lexical_topic) Lexical $_ is an experimental feature and
+its behavior may change or even be removed in any future release of perl.
+See the explanation under L<perlvar/$_>.
+
+=item Use of strings with code points over 0xFF as arguments to %s
+operator is deprecated
+
+(D deprecated) You tried to use one of the string bitwise operators
+(C<&> or C<|> or C<^> or C<~>) on a string containing a code point over
+0xFF.  The string bitwise operators treat their operands as strings of
+bytes, and values beyond 0xFF are nonsensical in this context.
+
+=item Use of tainted arguments in %s is deprecated
+
+(W taint, deprecated) You have supplied C<system()> or C<exec()> with multiple
+arguments and at least one of them is tainted.  This used to be allowed
+but will become a fatal error in a future version of perl.  Untaint your
+arguments.  See L<perlsec>.
+
+=item Use of uninitialized value%s
+
+(W uninitialized) An undefined value was used as if it were already
+defined.  It was interpreted as a "" or a 0, but maybe it was a mistake.
+To suppress this warning assign a defined value to your variables.
+
+To help you figure out what was undefined, perl will try to tell you
+the name of the variable (if any) that was undefined.  In some cases
+it cannot do this, so it also tells you what operation you used the
+undefined value in.  Note, however, that perl optimizes your program
+and the operation displayed in the warning may not necessarily appear
+literally in your program.  For example, C<"that $foo"> is usually
+optimized into C<"that " . $foo>, and the warning will refer to the
+C<concatenation (.)> operator, even though there is no C<.> in
+your program.
+
+=item "use re 'strict'" is experimental
+
+(S experimental::re_strict) The things that are different when a regular
+expression pattern is compiled under C<'strict'> are subject to change
+in future Perl releases in incompatible ways.  This means that a pattern
+that compiles today may not in a future Perl release.  This warning is
+to alert you to that risk.
+
+=item Use \x{...} for more than two hex characters in regex; marked by
+S<<-- HERE> in m/%s/
+
+(F) In a regular expression, you said something like
+
+ (?[ [ \xBEEF ] ])
+
+Perl isn't sure if you meant this
+
+ (?[ [ \x{BEEF} ] ])
+
+or if you meant this
+
+ (?[ [ \x{BE} E F ] ])
+
+You need to add either braces or blanks to disambiguate.
+
+=item Using just the first character returned by \N{} in character class in 
+regex; marked by S<<-- HERE> in m/%s/
+
+(W regexp) Named Unicode character escapes C<(\N{...})> may return
+a multi-character sequence.  Even though a character class is
+supposed to match just one character of input, perl will match
+the whole thing correctly, except when the class is inverted
+(C<[^...]>), or the escape is the beginning or final end point of
+a range.  For these, what should happen isn't clear at all.  In
+these circumstances, Perl discards all but the first character
+of the returned sequence, which is not likely what you want.
+
+=item Using /u for '%s' instead of /%s in regex; marked by S<<-- HERE> in m/%s/
+
+(W regexp) You used a Unicode boundary (C<\b{...}> or C<\B{...}>) in a
+portion of a regular expression where the character set modifiers C</a>
+or C</aa> are in effect.  These two modifiers indicate an ASCII
+interpretation, and this doesn't make sense for a Unicode defintion.
+The generated regular expression will compile so that the boundary uses
+all of Unicode.  No other portion of the regular expression is affected.
+
+=item Using !~ with %s doesn't make sense
+
+(F) Using the C<!~> operator with C<s///r>, C<tr///r> or C<y///r> is
+currently reserved for future use, as the exact behavior has not
+been decided.  (Simply returning the boolean opposite of the
+modified string is usually not particularly useful.)
+
+=item UTF-16 surrogate U+%X
+
+(S surrogate) You had a UTF-16 surrogate in a context where they are
+not considered acceptable.  These code points, between U+D800 and
+U+DFFF (inclusive), are used by Unicode only for UTF-16.  However, Perl
+internally allows all unsigned integer code points (up to the size limit
+available on your platform), including surrogates.  But these can cause
+problems when being input or output, which is likely where this message
+came from.  If you really really know what you are doing you can turn
+off this warning by C<no warnings 'surrogate';>.
+
+=item Value of %s can be "0"; test with defined()
+
+(W misc) In a conditional expression, you used <HANDLE>, <*> (glob),
+C<each()>, or C<readdir()> as a boolean value.  Each of these constructs
+can return a value of "0"; that would make the conditional expression
+false, which is probably not what you intended.  When using these
+constructs in conditional expressions, test their values with the
+C<defined> operator.
+
+=item Value of CLI symbol "%s" too long
+
+(W misc) A warning peculiar to VMS.  Perl tried to read the value of an
+%ENV element from a CLI symbol table, and found a resultant string
+longer than 1024 characters.  The return value has been truncated to
+1024 characters.
+
+=item Variable "%s" is not available
+
+(W closure) During compilation, an inner named subroutine or eval is
+attempting to capture an outer lexical that is not currently available.
+This can happen for one of two reasons.  First, the outer lexical may be
+declared in an outer anonymous subroutine that has not yet been created.
+(Remember that named subs are created at compile time, while anonymous
+subs are created at run-time.)  For example,
+
+    sub { my $a; sub f { $a } }
+
+At the time that f is created, it can't capture the current value of $a,
+since the anonymous subroutine hasn't been created yet.  Conversely,
+the following won't give a warning since the anonymous subroutine has by
+now been created and is live:
+
+    sub { my $a; eval 'sub f { $a }' }->();
+
+The second situation is caused by an eval accessing a variable that has
+gone out of scope, for example,
+
+    sub f {
+	my $a;
+	sub { eval '$a' }
+    }
+    f()->();
+
+Here, when the '$a' in the eval is being compiled, f() is not currently
+being executed, so its $a is not available for capture.
+
+=item Variable "%s" is not imported%s
+
+(S misc) With "use strict" in effect, you referred to a global variable
+that you apparently thought was imported from another module, because
+something else of the same name (usually a subroutine) is exported by
+that module.  It usually means you put the wrong funny character on the
+front of your variable.
+
+=item Variable length lookbehind not implemented in regex m/%s/
+
+(F) Lookbehind is allowed only for subexpressions whose length is fixed and
+known at compile time.  For positive lookbehind, you can use the C<\K>
+regex construct as a way to get the equivalent functionality.  See
+L<perlre/(?<=pattern) \K>.
+
+There are non-obvious Unicode rules under C</i> that can match variably,
+but which you might not think could.  For example, the substring C<"ss">
+can match the single character LATIN SMALL LETTER SHARP S.  There are
+other sequences of ASCII characters that can match single ligature
+characters, such as LATIN SMALL LIGATURE FFI matching C<qr/ffi/i>.
+Starting in Perl v5.16, if you only care about ASCII matches, adding the
+C</aa> modifier to the regex will exclude all these non-obvious matches,
+thus getting rid of this message.  You can also say C<S<use re qw(/aa)>>
+to apply C</aa> to all regular expressions compiled within its scope.
+See L<re>.
+
+=item "%s" variable %s masks earlier declaration in same %s
+
+(W misc) A "my", "our" or "state" variable has been redeclared in the
+current scope or statement, effectively eliminating all access to the
+previous instance.  This is almost always a typographical error.  Note
+that the earlier variable will still exist until the end of the scope
+or until all closure references to it are destroyed.
+
+=item Variable syntax
+
+(A) You've accidentally run your script through B<csh> instead
+of Perl.  Check the #! line, or manually feed your script into
+Perl yourself.
+
+=item Variable "%s" will not stay shared
+
+(W closure) An inner (nested) I<named> subroutine is referencing a
+lexical variable defined in an outer named subroutine.
+
+When the inner subroutine is called, it will see the value of
+the outer subroutine's variable as it was before and during the *first*
+call to the outer subroutine; in this case, after the first call to the
+outer subroutine is complete, the inner and outer subroutines will no
+longer share a common value for the variable.  In other words, the
+variable will no longer be shared.
+
+This problem can usually be solved by making the inner subroutine
+anonymous, using the C<sub {}> syntax.  When inner anonymous subs that
+reference variables in outer subroutines are created, they
+are automatically rebound to the current values of such variables.
+
+=item vector argument not supported with alpha versions
+
+(S printf) The %vd (s)printf format does not support version objects
+with alpha parts.
+
+=item Verb pattern '%s' has a mandatory argument in regex; marked by
+S<<-- HERE> in m/%s/ 
+
+(F) You used a verb pattern that requires an argument.  Supply an
+argument or check that you are using the right verb.
+
+=item Verb pattern '%s' may not have an argument in regex; marked by
+S<<-- HERE> in m/%s/ 
+
+(F) You used a verb pattern that is not allowed an argument.  Remove the 
+argument or check that you are using the right verb.
+
+=item Version number must be a constant number
+
+(P) The attempt to translate a C<use Module n.n LIST> statement into
+its equivalent C<BEGIN> block found an internal inconsistency with
+the version number.
+
+=item Version string '%s' contains invalid data; ignoring: '%s'
+
+(W misc) The version string contains invalid characters at the end, which
+are being ignored.
+
+=item Warning: something's wrong
+
+(W) You passed warn() an empty string (the equivalent of C<warn "">) or
+you called it with no args and C<$@> was empty.
+
+=item Warning: unable to close filehandle %s properly
+
+(S) The implicit close() done by an open() got an error indication on
+the close().  This usually indicates your file system ran out of disk
+space.
+
+=item Warning: unable to close filehandle properly: %s
+
+=item Warning: unable to close filehandle %s properly: %s
+
+(S io) There were errors during the implicit close() done on a filehandle
+when its reference count reached zero while it was still open, e.g.:
+
+    {
+        open my $fh, '>', $file  or die "open: '$file': $!\n";
+        print $fh $data or die "print: $!";
+    } # implicit close here
+
+Because various errors may only be detected by close() (e.g. buffering could
+allow the C<print> in this example to return true even when the disk is full),
+it is dangerous to ignore its result. So when it happens implicitly, perl will
+signal errors by warning.
+
+B<Prior to version 5.22.0, perl ignored such errors>, so the common idiom shown
+above was liable to cause B<silent data loss>.
+
+=item Warning: Use of "%s" without parentheses is ambiguous
+
+(S ambiguous) You wrote a unary operator followed by something that
+looks like a binary operator that could also have been interpreted as a
+term or unary operator.  For instance, if you know that the rand
+function has a default argument of 1.0, and you write
+
+    rand + 5;
+
+you may THINK you wrote the same thing as
+
+    rand() + 5;
+
+but in actual fact, you got
+
+    rand(+5);
+
+So put in parentheses to say what you really mean.
+
+=item when is experimental
+
+(S experimental::smartmatch) C<when> depends on smartmatch, which is
+experimental.  Additionally, it has several special cases that may
+not be immediately obvious, and their behavior may change or
+even be removed in any future release of perl.  See the explanation
+under L<perlsyn/Experimental Details on given and when>.
+
+=item Wide character in %s
+
+(S utf8) Perl met a wide character (>255) when it wasn't expecting
+one.  This warning is by default on for I/O (like print).  The easiest
+way to quiet this warning is simply to add the C<:utf8> layer to the
+output, e.g. C<binmode STDOUT, ':utf8'>.  Another way to turn off the
+warning is to add C<no warnings 'utf8';> but that is often closer to
+cheating.  In general, you are supposed to explicitly mark the
+filehandle with an encoding, see L<open> and L<perlfunc/binmode>.
+
+=item Wide character (U+%X) in %s
+
+(W locale) While in a single-byte locale (I<i.e.>, a non-UTF-8
+one), a multi-byte character was encountered.   Perl considers this
+character to be the specified Unicode code point.  Combining non-UTF-8
+locales and Unicode is dangerous.  Almost certainly some characters
+will have two different representations.  For example, in the ISO 8859-7
+(Greek) locale, the code point 0xC3 represents a Capital Gamma.  But so
+also does 0x393.  This will make string comparisons unreliable.
+
+You likely need to figure out how this multi-byte character got mixed up
+with your single-byte locale (or perhaps you thought you had a UTF-8
+locale, but Perl disagrees).
+
+=item Within []-length '%c' not allowed
+
+(F) The count in the (un)pack template may be replaced by C<[TEMPLATE]>
+only if C<TEMPLATE> always matches the same amount of packed bytes that
+can be determined from the template alone.  This is not possible if
+it contains any of the codes @, /, U, u, w or a *-length.  Redesign
+the template.
+
+=item %s() with negative argument
+
+(S misc) Certain operations make no sense with negative arguments.
+Warning is given and the operation is not done.
+
+=item write() on closed filehandle %s
+
+(W closed) The filehandle you're writing to got itself closed sometime
+before now.  Check your control flow.
+
+=item %s "\x%X" does not map to Unicode
+
+(S utf8) When reading in different encodings, Perl tries to
+map everything into Unicode characters.  The bytes you read
+in are not legal in this encoding.  For example
+
+    utf8 "\xE4" does not map to Unicode
+
+if you try to read in the a-diaereses Latin-1 as UTF-8.
+
+=item 'X' outside of string
+
+(F) You had a (un)pack template that specified a relative position before
+the beginning of the string being (un)packed.  See L<perlfunc/pack>.
+
+=item 'x' outside of string in unpack
+
+(F) You had a pack template that specified a relative position after
+the end of the string being unpacked.  See L<perlfunc/pack>.
+
+=item YOU HAVEN'T DISABLED SET-ID SCRIPTS IN THE KERNEL YET!
+
+(F) And you probably never will, because you probably don't have the
+sources to your kernel, and your vendor probably doesn't give a rip
+about what you want.  Your best bet is to put a setuid C wrapper around
+your script.
+
+=item You need to quote "%s"
+
+(W syntax) You assigned a bareword as a signal handler name.
+Unfortunately, you already have a subroutine of that name declared,
+which means that Perl 5 will try to call the subroutine when the
+assignment is executed, which is probably not what you want.  (If it IS
+what you want, put an & in front.)
+
+=item Your random numbers are not that random
+
+(F) When trying to initialize the random seed for hashes, Perl could
+not get any randomness out of your system.  This usually indicates
+Something Very Wrong.
+
+=item Zero length \N{} in regex; marked by S<<-- HERE> in m/%s/
+
+(F) Named Unicode character escapes (C<\N{...}>) may return a zero-length
+sequence.  Such an escape was used in an extended character class, i.e.
+C<(?[...])>, or under C<use re 'strict'>, which is not permitted.  Check
+that the correct escape has been used, and the correct charnames handler
+is in scope.  The S<<-- HERE> shows whereabouts in the regular
+expression the problem was discovered.
+
+=back
+
+=head1 SEE ALSO
+
+L<warnings>, L<diagnostics>.
+
+=cut
diff --git a/lib/5.24.1/pod/perldoc.pod b/lib/5.24.1/pod/perldoc.pod
new file mode 100644
index 00000000..79d79cdc
--- /dev/null
+++ b/lib/5.24.1/pod/perldoc.pod
@@ -0,0 +1,292 @@
+
+=head1 NAME
+
+perldoc - Look up Perl documentation in Pod format.
+
+=head1 SYNOPSIS
+
+    perldoc [-h] [-D] [-t] [-u] [-m] [-l] [-F]
+        [-i] [-V] [-T] [-r]
+        [-d destination_file]
+        [-o formatname]
+        [-M FormatterClassName]
+        [-w formatteroption:value]
+        [-n nroff-replacement]
+        [-X]
+        [-L language_code]
+        PageName|ModuleName|ProgramName|URL
+
+Examples:
+
+    perldoc -f BuiltinFunction
+
+    perldoc -L it -f BuiltinFunction
+
+    perldoc -q FAQ Keyword
+
+    perldoc -L fr -q FAQ Keyword
+
+    perldoc -v PerlVariable
+
+    perldoc -a PerlAPI
+
+See below for more description of the switches.
+
+=head1 DESCRIPTION
+
+B<perldoc> looks up a piece of documentation in .pod format that is
+embedded in the perl installation tree or in a perl script, and displays
+it via C<groff -man | $PAGER>. (In addition, if running under HP-UX,
+C<col -x> will be used.) This is primarily used for the documentation for
+the perl library modules.
+
+Your system may also have man pages installed for those modules, in
+which case you can probably just use the man(1) command.
+
+If you are looking for a table of contents to the Perl library modules
+documentation, see the L<perltoc> page.
+
+=head1 OPTIONS
+
+=over 5
+
+=item B<-h>
+
+Prints out a brief B<h>elp message.
+
+=item B<-D>
+
+B<D>escribes search for the item in B<d>etail.
+
+=item B<-t>
+
+Display docs using plain B<t>ext converter, instead of nroff. This may be faster,
+but it probably won't look as nice.
+
+=item B<-u>
+
+Skip the real Pod formatting, and just show the raw Pod source (B<U>nformatted)
+
+=item B<-m> I<module>
+
+Display the entire module: both code and unformatted pod documentation.
+This may be useful if the docs don't explain a function in the detail
+you need, and you'd like to inspect the code directly; perldoc will find
+the file for you and simply hand it off for display.
+
+=item B<-l>
+
+Display onB<l>y the file name of the module found.
+
+=item B<-F>
+
+Consider arguments as file names; no search in directories will be performed.
+
+=item B<-f> I<perlfunc>
+
+The B<-f> option followed by the name of a perl built-in function will
+extract the documentation of this function from L<perlfunc>.
+
+Example:
+
+      perldoc -f sprintf
+
+
+=item B<-q> I<perlfaq-search-regexp>
+
+The B<-q> option takes a regular expression as an argument.  It will search
+the B<q>uestion headings in perlfaq[1-9] and print the entries matching
+the regular expression.
+
+Example:
+
+     perldoc -q shuffle
+
+=item B<-a> I<perlapifunc>
+
+The B<-a> option followed by the name of a perl api function will
+extract the documentation of this function from L<perlapi>.
+
+Example:
+
+     perldoc -a newHV
+
+=item B<-v> I<perlvar>
+
+The B<-v> option followed by the name of a Perl predefined variable will
+extract the documentation of this variable from L<perlvar>.
+
+Examples:
+
+     perldoc -v '$"'
+     perldoc -v @+
+     perldoc -v DATA
+
+
+=item B<-T>
+
+This specifies that the output is not to be sent to a pager, but is to
+be sent directly to STDOUT.
+
+=item B<-d> I<destination-filename>
+
+This specifies that the output is to be sent neither to a pager nor
+to STDOUT, but is to be saved to the specified filename.  Example:
+C<perldoc -oLaTeX -dtextwrapdocs.tex Text::Wrap>
+
+=item B<-o> I<output-formatname>
+
+This specifies that you want Perldoc to try using a Pod-formatting
+class for the output format that you specify.  For example:
+C<-oman>.  This is actually just a wrapper around the C<-M> switch;
+using C<-oI<formatname>> just looks for a loadable class by adding
+that format name (with different capitalizations) to the end of
+different classname prefixes.
+
+For example, C<-oLaTeX> currently tries all of the following classes:
+Pod::Perldoc::ToLaTeX Pod::Perldoc::Tolatex Pod::Perldoc::ToLatex
+Pod::Perldoc::ToLATEX Pod::Simple::LaTeX Pod::Simple::latex
+Pod::Simple::Latex Pod::Simple::LATEX Pod::LaTeX Pod::latex Pod::Latex
+Pod::LATEX.
+
+=item B<-M> I<module-name>
+
+This specifies the module that you want to try using for formatting the
+pod.  The class must at least provide a C<parse_from_file> method.
+For example: C<perldoc -MPod::Perldoc::ToChecker>.
+
+You can specify several classes to try by joining them with commas
+or semicolons, as in C<-MTk::SuperPod;Tk::Pod>.
+
+=item B<-w> I<option:value> or B<-w> I<option>
+
+This specifies an option to call the formatter B<w>ith.  For example,
+C<-w textsize:15> will call
+C<< $formatter->textsize(15) >> on the formatter object before it is
+used to format the object.  For this to be valid, the formatter class
+must provide such a method, and the value you pass should be valid.
+(So if C<textsize> expects an integer, and you do C<-w textsize:big>,
+expect trouble.)
+
+You can use C<-w optionname> (without a value) as shorthand for
+C<-w optionname:I<TRUE>>.  This is presumably useful in cases of on/off
+features like: C<-w page_numbering>.
+
+You can use an "=" instead of the ":", as in: C<-w textsize=15>.  This
+might be more (or less) convenient, depending on what shell you use.
+
+=item B<-X>
+
+Use an index if it is present. The B<-X> option looks for an entry
+whose basename matches the name given on the command line in the file
+C<$Config{archlib}/pod.idx>. The F<pod.idx> file should contain fully
+qualified filenames, one per line.
+
+=item B<-L> I<language_code>
+
+This allows one to specify the I<language code> for the desired language
+translation. If the C<POD2::E<lt>language_codeE<gt>> package isn't
+installed in your system, the switch is ignored.
+All available translation packages are to be found under the C<POD2::>
+namespace. See L<POD2::IT> (or L<POD2::FR>) to see how to create new
+localized C<POD2::*> documentation packages and integrate them into
+L<Pod::Perldoc>.
+
+=item B<PageName|ModuleName|ProgramName|URL>
+
+The item you want to look up.  Nested modules (such as C<File::Basename>)
+are specified either as C<File::Basename> or C<< File/Basename >>.  You may also
+give a descriptive name of a page, such as C<perlfunc>.  For URLs, HTTP and
+HTTPS are the only kind currently supported.
+
+For simple names like 'foo', when the normal search fails to find
+a matching page, a search with the "perl" prefix is tried as well.
+So "perldoc intro" is enough to find/render "perlintro.pod".
+
+=item B<-n> I<some-formatter>
+
+Specify replacement for groff
+
+=item B<-r>
+
+Recursive search.
+
+=item B<-i>
+
+Ignore case.
+
+=item B<-V>
+
+Displays the version of perldoc you're running.
+
+=back
+
+=head1 SECURITY
+
+Because B<perldoc> does not run properly tainted, and is known to
+have security issues, when run as the superuser it will attempt to
+drop privileges by setting the effective and real IDs to nobody's
+or nouser's account, or -2 if unavailable.  If it cannot relinquish
+its privileges, it will not run.
+
+=head1 ENVIRONMENT
+
+Any switches in the C<PERLDOC> environment variable will be used before the
+command line arguments.
+
+Useful values for C<PERLDOC> include C<-oterm>, C<-otext>, C<-ortf>,
+C<-oxml>, and so on, depending on what modules you have on hand; or
+the formatter class may be specified exactly with C<-MPod::Perldoc::ToTerm>
+or the like.
+
+C<perldoc> also searches directories
+specified by the C<PERL5LIB> (or C<PERLLIB> if C<PERL5LIB> is not
+defined) and C<PATH> environment variables.
+(The latter is so that embedded pods for executables, such as
+C<perldoc> itself, are available.)
+
+In directories where either C<Makefile.PL> or C<Build.PL> exist, C<perldoc>
+will add C<.> and C<lib> first to its search path, and as long as you're not
+the superuser will add C<blib> too.  This is really helpful if you're working
+inside of a build directory and want to read through the docs even if you
+have a version of a module previously installed.
+
+C<perldoc> will use, in order of preference, the pager defined in
+C<PERLDOC_PAGER>, C<MANPAGER>, or C<PAGER> before trying to find a pager
+on its own. (C<MANPAGER> is not used if C<perldoc> was told to display
+plain text or unformatted pod.)
+
+When using perldoc in it's C<-m> mode (display module source code),
+C<perldoc> will attempt to use the pager set in C<PERLDOC_SRC_PAGER>.
+A useful setting for this command is your favorite editor as in
+C</usr/bin/nano>. (Don't judge me.)
+
+One useful value for C<PERLDOC_PAGER> is C<less -+C -E>.
+
+Having PERLDOCDEBUG set to a positive integer will make perldoc emit
+even more descriptive output than the C<-D> switch does; the higher the
+number, the more it emits.
+
+
+=head1 CHANGES
+
+Up to 3.14_05, the switch B<-v> was used to produce verbose
+messages of B<perldoc> operation, which is now enabled by B<-D>.
+
+=head1 SEE ALSO
+
+L<perlpod>, L<Pod::Perldoc>
+
+=head1 AUTHOR
+
+Current maintainer: Mark Allen C<< <mallen@cpan.org> >>
+
+Past contributors are:
+brian d foy C<< <bdfoy@cpan.org> >> 
+Adriano R. Ferreira C<< <ferreira@cpan.org> >>,
+Sean M. Burke C<< <sburke@cpan.org> >>,
+Kenneth Albanowski C<< <kjahds@kjahds.com> >>,
+Andy Dougherty  C<< <doughera@lafcol.lafayette.edu> >>,
+and many others.
+
+=cut
diff --git a/lib/5.24.1/pod/perldos.pod b/lib/5.24.1/pod/perldos.pod
new file mode 100644
index 00000000..ef3578f8
--- /dev/null
+++ b/lib/5.24.1/pod/perldos.pod
@@ -0,0 +1,331 @@
+If you read this file _as_is_, just ignore the funny characters you
+see. It is written in the POD format (see perlpod manpage) which is
+specially designed to be readable as is.
+
+=head1 NAME
+
+perldos - Perl under DOS, W31, W95.
+
+=head1 SYNOPSIS
+
+These are instructions for building Perl under DOS (or w??), using
+DJGPP v2.03 or later.  Under w95 long filenames are supported.
+
+=head1 DESCRIPTION
+
+Before you start, you should glance through the README file
+found in the top-level directory where the Perl distribution
+was extracted.  Make sure you read and understand the terms under
+which this software is being distributed.
+
+This port currently supports MakeMaker (the set of modules that
+is used to build extensions to perl).  Therefore, you should be
+able to build and install most extensions found in the CPAN sites.
+
+Detailed instructions on how to build and install perl extension
+modules, including XS-type modules, is included.  See 'BUILDING AND
+INSTALLING MODULES'.
+
+=head2 Prerequisites for Compiling Perl on DOS
+
+=over 4
+
+=item DJGPP
+
+DJGPP is a port of GNU C/C++ compiler and development tools to 32-bit,
+protected-mode environment on Intel 32-bit CPUs running MS-DOS and compatible
+operating systems, by DJ Delorie <dj@delorie.com> and friends.
+
+For more details (FAQ), check out the home of DJGPP at:
+
+        http://www.delorie.com/djgpp/
+
+If you have questions about DJGPP, try posting to the DJGPP newsgroup:
+comp.os.msdos.djgpp, or use the email gateway djgpp@delorie.com.
+
+You can find the full DJGPP distribution on any of the mirrors listed here:
+
+        http://www.delorie.com/djgpp/getting.html
+
+You need the following files to build perl (or add new modules):
+
+        v2/djdev203.zip
+        v2gnu/bnu2112b.zip
+        v2gnu/gcc2953b.zip
+        v2gnu/bsh204b.zip
+        v2gnu/mak3791b.zip
+        v2gnu/fil40b.zip
+        v2gnu/sed3028b.zip
+        v2gnu/txt20b.zip
+        v2gnu/dif272b.zip
+        v2gnu/grep24b.zip
+        v2gnu/shl20jb.zip
+        v2gnu/gwk306b.zip
+        v2misc/csdpmi5b.zip
+
+or possibly any newer version.
+
+=item Pthreads
+
+Thread support is not tested in this version of the djgpp perl.
+
+=back
+
+=head2 Shortcomings of Perl under DOS
+
+Perl under DOS lacks some features of perl under UNIX because of
+deficiencies in the UNIX-emulation, most notably:
+
+=over 4
+
+=item *
+
+fork() and pipe()
+
+=item *
+
+some features of the UNIX filesystem regarding link count and file dates
+
+=item *
+
+in-place operation is a little bit broken with short filenames
+
+=item *
+
+sockets
+
+=back
+
+=head2 Building Perl on DOS
+
+=over 4
+
+=item *
+
+Unpack the source package F<perl5.8*.tar.gz> with djtarx. If you want
+to use long file names under w95 and also to get Perl to pass all its
+tests, don't forget to use
+
+        set LFN=y
+        set FNCASE=y
+
+before unpacking the archive.
+
+=item *
+
+Create a "symlink" or copy your bash.exe to sh.exe in your C<($DJDIR)/bin>
+directory.
+
+        ln -s bash.exe sh.exe
+
+[If you have the recommended version of bash for DJGPP, this is already
+done for you.]
+
+And make the C<SHELL> environment variable point to this F<sh.exe>:
+
+        set SHELL=c:/djgpp/bin/sh.exe (use full path name!)
+
+You can do this in F<djgpp.env> too. Add this line BEFORE any section
+definition:
+
+        +SHELL=%DJDIR%/bin/sh.exe
+
+=item *
+
+If you have F<split.exe> and F<gsplit.exe> in your path, then rename 
+F<split.exe> to F<djsplit.exe>, and F<gsplit.exe> to F<split.exe>.
+Copy or link F<gecho.exe> to F<echo.exe> if you don't have F<echo.exe>.
+Copy or link F<gawk.exe> to F<awk.exe> if you don't have F<awk.exe>.
+
+[If you have the recommended versions of djdev, shell utilities and
+gawk, all these are already done for you, and you will not need to do
+anything.]
+
+=item *
+
+Chdir to the djgpp subdirectory of perl toplevel and type the following
+commands:
+
+        set FNCASE=y
+        configure.bat
+
+This will do some preprocessing then run the Configure script for you.
+The Configure script is interactive, but in most cases you just need to
+press ENTER.  The "set" command ensures that DJGPP preserves the letter
+case of file names when reading directories.  If you already issued this
+set command when unpacking the archive, and you are in the same DOS
+session as when you unpacked the archive, you don't have to issue the
+set command again.  This command is necessary *before* you start to 
+(re)configure or (re)build perl in order to ensure both that perl builds 
+correctly and that building XS-type modules can succeed.  See the DJGPP 
+info entry for "_preserve_fncase" for more information:
+
+        info libc alphabetical _preserve_fncase
+
+If the script says that your package is incomplete, and asks whether
+to continue, just answer with Y (this can only happen if you don't use
+long filenames or forget to issue "set FNCASE=y" first).
+
+When Configure asks about the extensions, I suggest IO and Fcntl,
+and if you want database handling then SDBM_File or GDBM_File
+(you need to install gdbm for this one). If you want to use the
+POSIX extension (this is the default), make sure that the stack
+size of your F<cc1.exe> is at least 512kbyte (you can check this
+with: C<stubedit cc1.exe>).
+
+You can use the Configure script in non-interactive mode too.
+When I built my F<perl.exe>, I used something like this:
+
+        configure.bat -des
+
+You can find more info about Configure's command line switches in
+the F<INSTALL> file.
+
+When the script ends, and you want to change some values in the
+generated F<config.sh> file, then run
+
+        sh Configure -S
+
+after you made your modifications.
+
+IMPORTANT: if you use this C<-S> switch, be sure to delete the CONFIG
+environment variable before running the script:
+
+        set CONFIG=
+
+=item *
+
+Now you can compile Perl. Type:
+
+        make
+
+=back
+
+=head2 Testing Perl on DOS
+
+Type:
+
+        make test
+
+If you're lucky you should see "All tests successful". But there can be
+a few failed subtests (less than 5 hopefully) depending on some external
+conditions (e.g. some subtests fail under linux/dosemu or plain dos
+with short filenames only).
+
+=head2 Installation of Perl on DOS
+
+Type:
+
+        make install
+
+This will copy the newly compiled perl and libraries into your DJGPP
+directory structure. Perl.exe and the utilities go into C<($DJDIR)/bin>,
+and the library goes under C<($DJDIR)/lib/perl5>. The pod documentation
+goes under C<($DJDIR)/lib/perl5/pod>.
+
+=head1 BUILDING AND INSTALLING MODULES ON DOS
+
+=head2 Building Prerequisites for Perl on DOS
+
+For building and installing non-XS modules, all you need is a working
+perl under DJGPP.  Non-XS modules do not require re-linking the perl
+binary, and so are simpler to build and install.
+
+XS-type modules do require re-linking the perl binary, because part of
+an XS module is written in "C", and has to be linked together with the
+perl binary to be executed.  This is required because perl under DJGPP
+is built with the "static link" option, due to the lack of "dynamic
+linking" in the DJGPP environment.
+
+Because XS modules require re-linking of the perl binary, you need both
+the perl binary distribution and the perl source distribution to build
+an XS extension module.  In addition, you will have to have built your
+perl binary from the source distribution so that all of the components
+of the perl binary are available for the required link step.
+
+=head2 Unpacking CPAN Modules on DOS
+
+First, download the module package from CPAN (e.g., the "Comma Separated
+Value" text package, Text-CSV-0.01.tar.gz).  Then expand the contents of
+the package into some location on your disk.  Most CPAN modules are
+built with an internal directory structure, so it is usually safe to
+expand it in the root of your DJGPP installation.  Some people prefer to
+locate source trees under /usr/src (i.e., C<($DJDIR)/usr/src>), but you may
+put it wherever seems most logical to you, *EXCEPT* under the same
+directory as your perl source code.  There are special rules that apply
+to modules which live in the perl source tree that do not apply to most
+of the modules in CPAN.
+
+Unlike other DJGPP packages, which are normal "zip" files, most CPAN
+module packages are "gzipped tarballs".  Recent versions of WinZip will
+safely unpack and expand them, *UNLESS* they have zero-length files.  It
+is a known WinZip bug (as of v7.0) that it will not extract zero-length
+files.
+
+From the command line, you can use the djtar utility provided with DJGPP
+to unpack and expand these files.  For example:
+
+        C:\djgpp>djtarx -v Text-CSV-0.01.tar.gz
+
+This will create the new directory C<($DJDIR)/Text-CSV-0.01>, filling
+it with the source for this module.
+
+=head2 Building Non-XS Modules on DOS
+
+To build a non-XS module, you can use the standard module-building
+instructions distributed with perl modules.
+
+    perl Makefile.PL
+    make
+    make test
+    make install
+
+This is sufficient because non-XS modules install only ".pm" files and
+(sometimes) pod and/or man documentation.  No re-linking of the perl
+binary is needed to build, install or use non-XS modules.
+
+=head2 Building XS Modules on DOS
+
+To build an XS module, you must use the standard module-building
+instructions distributed with perl modules *PLUS* three extra
+instructions specific to the DJGPP "static link" build environment.
+
+    set FNCASE=y
+    perl Makefile.PL
+    make
+    make perl
+    make test
+    make -f Makefile.aperl inst_perl MAP_TARGET=perl.exe
+    make install
+
+The first extra instruction sets DJGPP's FNCASE environment variable so
+that the new perl binary which you must build for an XS-type module will
+build correctly.  The second extra instruction re-builds the perl binary
+in your module directory before you run "make test", so that you are
+testing with the new module code you built with "make".  The third extra
+instruction installs the perl binary from your module directory into the
+standard DJGPP binary directory, C<($DJDIR)/bin>, replacing your
+previous perl binary.
+
+Note that the MAP_TARGET value *must* have the ".exe" extension or you
+will not create a "perl.exe" to replace the one in C<($DJDIR)/bin>.
+
+When you are done, the XS-module install process will have added information
+to your "perllocal" information telling that the perl binary has been replaced,
+and what module was installed.  You can view this information at any time
+by using the command:
+
+        perl -S perldoc perllocal
+
+=head1 AUTHOR
+
+Laszlo Molnar, F<laszlo.molnar@eth.ericsson.se> [Installing/building perl]
+
+Peter J. Farley III F<pjfarley@banet.net> [Building/installing modules]
+
+=head1 SEE ALSO
+
+perl(1).
+
+=cut
+
diff --git a/lib/5.24.1/pod/perldsc.pod b/lib/5.24.1/pod/perldsc.pod
new file mode 100644
index 00000000..7564b97c
--- /dev/null
+++ b/lib/5.24.1/pod/perldsc.pod
@@ -0,0 +1,844 @@
+=head1 NAME
+X<data structure> X<complex data structure> X<struct>
+
+perldsc - Perl Data Structures Cookbook
+
+=head1 DESCRIPTION
+
+Perl lets us have complex data structures.  You can write something like
+this and all of a sudden, you'd have an array with three dimensions!
+
+    for my $x (1 .. 10) {
+        for my $y (1 .. 10) {
+            for my $z (1 .. 10) {
+                $AoA[$x][$y][$z] =
+                    $x ** $y + $z;
+            }
+        }
+    }
+
+Alas, however simple this may appear, underneath it's a much more
+elaborate construct than meets the eye!
+
+How do you print it out?  Why can't you say just C<print @AoA>?  How do
+you sort it?  How can you pass it to a function or get one of these back
+from a function?  Is it an object?  Can you save it to disk to read
+back later?  How do you access whole rows or columns of that matrix?  Do
+all the values have to be numeric?
+
+As you see, it's quite easy to become confused.  While some small portion
+of the blame for this can be attributed to the reference-based
+implementation, it's really more due to a lack of existing documentation with
+examples designed for the beginner.
+
+This document is meant to be a detailed but understandable treatment of the
+many different sorts of data structures you might want to develop.  It
+should also serve as a cookbook of examples.  That way, when you need to
+create one of these complex data structures, you can just pinch, pilfer, or
+purloin a drop-in example from here.
+
+Let's look at each of these possible constructs in detail.  There are separate
+sections on each of the following:
+
+=over 5
+
+=item * arrays of arrays
+
+=item * hashes of arrays
+
+=item * arrays of hashes
+
+=item * hashes of hashes
+
+=item * more elaborate constructs
+
+=back
+
+But for now, let's look at general issues common to all
+these types of data structures.
+
+=head1 REFERENCES
+X<reference> X<dereference> X<dereferencing> X<pointer>
+
+The most important thing to understand about all data structures in
+Perl--including multidimensional arrays--is that even though they might
+appear otherwise, Perl C<@ARRAY>s and C<%HASH>es are all internally
+one-dimensional.  They can hold only scalar values (meaning a string,
+number, or a reference).  They cannot directly contain other arrays or
+hashes, but instead contain I<references> to other arrays or hashes.
+X<multidimensional array> X<array, multidimensional>
+
+You can't use a reference to an array or hash in quite the same way that you
+would a real array or hash.  For C or C++ programmers unused to
+distinguishing between arrays and pointers to the same, this can be
+confusing.  If so, just think of it as the difference between a structure
+and a pointer to a structure.
+
+You can (and should) read more about references in L<perlref>.
+Briefly, references are rather like pointers that know what they
+point to.  (Objects are also a kind of reference, but we won't be needing
+them right away--if ever.)  This means that when you have something which
+looks to you like an access to a two-or-more-dimensional array and/or hash,
+what's really going on is that the base type is
+merely a one-dimensional entity that contains references to the next
+level.  It's just that you can I<use> it as though it were a
+two-dimensional one.  This is actually the way almost all C
+multidimensional arrays work as well.
+
+    $array[7][12]                       # array of arrays
+    $array[7]{string}                   # array of hashes
+    $hash{string}[7]                    # hash of arrays
+    $hash{string}{'another string'}     # hash of hashes
+
+Now, because the top level contains only references, if you try to print
+out your array in with a simple print() function, you'll get something
+that doesn't look very nice, like this:
+
+    my @AoA = ( [2, 3], [4, 5, 7], [0] );
+    print $AoA[1][2];
+  7
+    print @AoA;
+  ARRAY(0x83c38)ARRAY(0x8b194)ARRAY(0x8b1d0)
+
+
+That's because Perl doesn't (ever) implicitly dereference your variables.
+If you want to get at the thing a reference is referring to, then you have
+to do this yourself using either prefix typing indicators, like
+C<${$blah}>, C<@{$blah}>, C<@{$blah[$i]}>, or else postfix pointer arrows,
+like C<$a-E<gt>[3]>, C<$h-E<gt>{fred}>, or even C<$ob-E<gt>method()-E<gt>[3]>.
+
+=head1 COMMON MISTAKES
+
+The two most common mistakes made in constructing something like
+an array of arrays is either accidentally counting the number of
+elements or else taking a reference to the same memory location
+repeatedly.  Here's the case where you just get the count instead
+of a nested array:
+
+    for my $i (1..10) {
+        my @array = somefunc($i);
+        $AoA[$i] = @array;      # WRONG!
+    }
+
+That's just the simple case of assigning an array to a scalar and getting
+its element count.  If that's what you really and truly want, then you
+might do well to consider being a tad more explicit about it, like this:
+
+    for my $i (1..10) {
+        my @array = somefunc($i);
+        $counts[$i] = scalar @array;
+    }
+
+Here's the case of taking a reference to the same memory location
+again and again:
+
+    # Either without strict or having an outer-scope my @array;
+    # declaration.
+
+    for my $i (1..10) {
+        @array = somefunc($i);
+        $AoA[$i] = \@array;     # WRONG!
+    }
+
+So, what's the big problem with that?  It looks right, doesn't it?
+After all, I just told you that you need an array of references, so by
+golly, you've made me one!
+
+Unfortunately, while this is true, it's still broken.  All the references
+in @AoA refer to the I<very same place>, and they will therefore all hold
+whatever was last in @array!  It's similar to the problem demonstrated in
+the following C program:
+
+    #include <pwd.h>
+    main() {
+        struct passwd *getpwnam(), *rp, *dp;
+        rp = getpwnam("root");
+        dp = getpwnam("daemon");
+
+        printf("daemon name is %s\nroot name is %s\n",
+                dp->pw_name, rp->pw_name);
+    }
+
+Which will print
+
+    daemon name is daemon
+    root name is daemon
+
+The problem is that both C<rp> and C<dp> are pointers to the same location
+in memory!  In C, you'd have to remember to malloc() yourself some new
+memory.  In Perl, you'll want to use the array constructor C<[]> or the
+hash constructor C<{}> instead.   Here's the right way to do the preceding
+broken code fragments:
+X<[]> X<{}>
+
+    # Either without strict or having an outer-scope my @array;
+    # declaration.
+
+    for my $i (1..10) {
+        @array = somefunc($i);
+        $AoA[$i] = [ @array ];
+    }
+
+The square brackets make a reference to a new array with a I<copy>
+of what's in @array at the time of the assignment.  This is what
+you want.
+
+Note that this will produce something similar, but it's
+much harder to read:
+
+    # Either without strict or having an outer-scope my @array;
+    # declaration.
+    for my $i (1..10) {
+        @array = 0 .. $i;
+        @{$AoA[$i]} = @array;
+    }
+
+Is it the same?  Well, maybe so--and maybe not.  The subtle difference
+is that when you assign something in square brackets, you know for sure
+it's always a brand new reference with a new I<copy> of the data.
+Something else could be going on in this new case with the C<@{$AoA[$i]}>
+dereference on the left-hand-side of the assignment.  It all depends on
+whether C<$AoA[$i]> had been undefined to start with, or whether it
+already contained a reference.  If you had already populated @AoA with
+references, as in
+
+    $AoA[3] = \@another_array;
+
+Then the assignment with the indirection on the left-hand-side would
+use the existing reference that was already there:
+
+    @{$AoA[3]} = @array;
+
+Of course, this I<would> have the "interesting" effect of clobbering
+@another_array.  (Have you ever noticed how when a programmer says
+something is "interesting", that rather than meaning "intriguing",
+they're disturbingly more apt to mean that it's "annoying",
+"difficult", or both?  :-)
+
+So just remember always to use the array or hash constructors with C<[]>
+or C<{}>, and you'll be fine, although it's not always optimally
+efficient.
+
+Surprisingly, the following dangerous-looking construct will
+actually work out fine:
+
+    for my $i (1..10) {
+        my @array = somefunc($i);
+        $AoA[$i] = \@array;
+    }
+
+That's because my() is more of a run-time statement than it is a
+compile-time declaration I<per se>.  This means that the my() variable is
+remade afresh each time through the loop.  So even though it I<looks> as
+though you stored the same variable reference each time, you actually did
+not!  This is a subtle distinction that can produce more efficient code at
+the risk of misleading all but the most experienced of programmers.  So I
+usually advise against teaching it to beginners.  In fact, except for
+passing arguments to functions, I seldom like to see the gimme-a-reference
+operator (backslash) used much at all in code.  Instead, I advise
+beginners that they (and most of the rest of us) should try to use the
+much more easily understood constructors C<[]> and C<{}> instead of
+relying upon lexical (or dynamic) scoping and hidden reference-counting to
+do the right thing behind the scenes.
+
+In summary:
+
+    $AoA[$i] = [ @array ];     # usually best
+    $AoA[$i] = \@array;        # perilous; just how my() was that array?
+    @{ $AoA[$i] } = @array;    # way too tricky for most programmers
+
+
+=head1 CAVEAT ON PRECEDENCE
+X<dereference, precedence> X<dereferencing, precedence>
+
+Speaking of things like C<@{$AoA[$i]}>, the following are actually the
+same thing:
+X<< -> >>
+
+    $aref->[2][2]       # clear
+    $$aref[2][2]        # confusing
+
+That's because Perl's precedence rules on its five prefix dereferencers
+(which look like someone swearing: C<$ @ * % &>) make them bind more
+tightly than the postfix subscripting brackets or braces!  This will no
+doubt come as a great shock to the C or C++ programmer, who is quite
+accustomed to using C<*a[i]> to mean what's pointed to by the I<i'th>
+element of C<a>.  That is, they first take the subscript, and only then
+dereference the thing at that subscript.  That's fine in C, but this isn't C.
+
+The seemingly equivalent construct in Perl, C<$$aref[$i]> first does
+the deref of $aref, making it take $aref as a reference to an
+array, and then dereference that, and finally tell you the I<i'th> value
+of the array pointed to by $AoA. If you wanted the C notion, you'd have to
+write C<${$AoA[$i]}> to force the C<$AoA[$i]> to get evaluated first
+before the leading C<$> dereferencer.
+
+=head1 WHY YOU SHOULD ALWAYS C<use strict>
+
+If this is starting to sound scarier than it's worth, relax.  Perl has
+some features to help you avoid its most common pitfalls.  The best
+way to avoid getting confused is to start every program like this:
+
+    #!/usr/bin/perl -w
+    use strict;
+
+This way, you'll be forced to declare all your variables with my() and
+also disallow accidental "symbolic dereferencing".  Therefore if you'd done
+this:
+
+    my $aref = [
+        [ "fred", "barney", "pebbles", "bambam", "dino", ],
+        [ "homer", "bart", "marge", "maggie", ],
+        [ "george", "jane", "elroy", "judy", ],
+    ];
+
+    print $aref[2][2];
+
+The compiler would immediately flag that as an error I<at compile time>,
+because you were accidentally accessing C<@aref>, an undeclared
+variable, and it would thereby remind you to write instead:
+
+    print $aref->[2][2]
+
+=head1 DEBUGGING
+X<data structure, debugging> X<complex data structure, debugging>
+X<AoA, debugging> X<HoA, debugging> X<AoH, debugging> X<HoH, debugging>
+X<array of arrays, debugging> X<hash of arrays, debugging>
+X<array of hashes, debugging> X<hash of hashes, debugging>
+
+You can use the debugger's C<x> command to dump out complex data structures.
+For example, given the assignment to $AoA above, here's the debugger output:
+
+    DB<1> x $AoA
+    $AoA = ARRAY(0x13b5a0)
+       0  ARRAY(0x1f0a24)
+          0  'fred'
+          1  'barney'
+          2  'pebbles'
+          3  'bambam'
+          4  'dino'
+       1  ARRAY(0x13b558)
+          0  'homer'
+          1  'bart'
+          2  'marge'
+          3  'maggie'
+       2  ARRAY(0x13b540)
+          0  'george'
+          1  'jane'
+          2  'elroy'
+          3  'judy'
+
+=head1 CODE EXAMPLES
+
+Presented with little comment (these will get their own manpages someday)
+here are short code examples illustrating access of various
+types of data structures.
+
+=head1 ARRAYS OF ARRAYS
+X<array of arrays> X<AoA>
+
+=head2 Declaration of an ARRAY OF ARRAYS
+
+ @AoA = (
+        [ "fred", "barney" ],
+        [ "george", "jane", "elroy" ],
+        [ "homer", "marge", "bart" ],
+      );
+
+=head2 Generation of an ARRAY OF ARRAYS
+
+ # reading from file
+ while ( <> ) {
+     push @AoA, [ split ];
+ }
+
+ # calling a function
+ for $i ( 1 .. 10 ) {
+     $AoA[$i] = [ somefunc($i) ];
+ }
+
+ # using temp vars
+ for $i ( 1 .. 10 ) {
+     @tmp = somefunc($i);
+     $AoA[$i] = [ @tmp ];
+ }
+
+ # add to an existing row
+ push @{ $AoA[0] }, "wilma", "betty";
+
+=head2 Access and Printing of an ARRAY OF ARRAYS
+
+ # one element
+ $AoA[0][0] = "Fred";
+
+ # another element
+ $AoA[1][1] =~ s/(\w)/\u$1/;
+
+ # print the whole thing with refs
+ for $aref ( @AoA ) {
+     print "\t [ @$aref ],\n";
+ }
+
+ # print the whole thing with indices
+ for $i ( 0 .. $#AoA ) {
+     print "\t [ @{$AoA[$i]} ],\n";
+ }
+
+ # print the whole thing one at a time
+ for $i ( 0 .. $#AoA ) {
+     for $j ( 0 .. $#{ $AoA[$i] } ) {
+         print "elt $i $j is $AoA[$i][$j]\n";
+     }
+ }
+
+=head1 HASHES OF ARRAYS
+X<hash of arrays> X<HoA>
+
+=head2 Declaration of a HASH OF ARRAYS
+
+ %HoA = (
+        flintstones        => [ "fred", "barney" ],
+        jetsons            => [ "george", "jane", "elroy" ],
+        simpsons           => [ "homer", "marge", "bart" ],
+      );
+
+=head2 Generation of a HASH OF ARRAYS
+
+ # reading from file
+ # flintstones: fred barney wilma dino
+ while ( <> ) {
+     next unless s/^(.*?):\s*//;
+     $HoA{$1} = [ split ];
+ }
+
+ # reading from file; more temps
+ # flintstones: fred barney wilma dino
+ while ( $line = <> ) {
+     ($who, $rest) = split /:\s*/, $line, 2;
+     @fields = split ' ', $rest;
+     $HoA{$who} = [ @fields ];
+ }
+
+ # calling a function that returns a list
+ for $group ( "simpsons", "jetsons", "flintstones" ) {
+     $HoA{$group} = [ get_family($group) ];
+ }
+
+ # likewise, but using temps
+ for $group ( "simpsons", "jetsons", "flintstones" ) {
+     @members = get_family($group);
+     $HoA{$group} = [ @members ];
+ }
+
+ # append new members to an existing family
+ push @{ $HoA{"flintstones"} }, "wilma", "betty";
+
+=head2 Access and Printing of a HASH OF ARRAYS
+
+ # one element
+ $HoA{flintstones}[0] = "Fred";
+
+ # another element
+ $HoA{simpsons}[1] =~ s/(\w)/\u$1/;
+
+ # print the whole thing
+ foreach $family ( keys %HoA ) {
+     print "$family: @{ $HoA{$family} }\n"
+ }
+
+ # print the whole thing with indices
+ foreach $family ( keys %HoA ) {
+     print "family: ";
+     foreach $i ( 0 .. $#{ $HoA{$family} } ) {
+         print " $i = $HoA{$family}[$i]";
+     }
+     print "\n";
+ }
+
+ # print the whole thing sorted by number of members
+ foreach $family ( sort { @{$HoA{$b}} <=> @{$HoA{$a}} } keys %HoA ) {
+     print "$family: @{ $HoA{$family} }\n"
+ }
+
+ # print the whole thing sorted by number of members and name
+ foreach $family ( sort {
+                            @{$HoA{$b}} <=> @{$HoA{$a}}
+                                        ||
+                                    $a cmp $b
+            } keys %HoA )
+ {
+     print "$family: ", join(", ", sort @{ $HoA{$family} }), "\n";
+ }
+
+=head1 ARRAYS OF HASHES
+X<array of hashes> X<AoH>
+
+=head2 Declaration of an ARRAY OF HASHES
+
+ @AoH = (
+        {
+            Lead     => "fred",
+            Friend   => "barney",
+        },
+        {
+            Lead     => "george",
+            Wife     => "jane",
+            Son      => "elroy",
+        },
+        {
+            Lead     => "homer",
+            Wife     => "marge",
+            Son      => "bart",
+        }
+  );
+
+=head2 Generation of an ARRAY OF HASHES
+
+ # reading from file
+ # format: LEAD=fred FRIEND=barney
+ while ( <> ) {
+     $rec = {};
+     for $field ( split ) {
+         ($key, $value) = split /=/, $field;
+         $rec->{$key} = $value;
+     }
+     push @AoH, $rec;
+ }
+
+
+ # reading from file
+ # format: LEAD=fred FRIEND=barney
+ # no temp
+ while ( <> ) {
+     push @AoH, { split /[\s+=]/ };
+ }
+
+ # calling a function  that returns a key/value pair list, like
+ # "lead","fred","daughter","pebbles"
+ while ( %fields = getnextpairset() ) {
+     push @AoH, { %fields };
+ }
+
+ # likewise, but using no temp vars
+ while (<>) {
+     push @AoH, { parsepairs($_) };
+ }
+
+ # add key/value to an element
+ $AoH[0]{pet} = "dino";
+ $AoH[2]{pet} = "santa's little helper";
+
+=head2 Access and Printing of an ARRAY OF HASHES
+
+ # one element
+ $AoH[0]{lead} = "fred";
+
+ # another element
+ $AoH[1]{lead} =~ s/(\w)/\u$1/;
+
+ # print the whole thing with refs
+ for $href ( @AoH ) {
+     print "{ ";
+     for $role ( keys %$href ) {
+         print "$role=$href->{$role} ";
+     }
+     print "}\n";
+ }
+
+ # print the whole thing with indices
+ for $i ( 0 .. $#AoH ) {
+     print "$i is { ";
+     for $role ( keys %{ $AoH[$i] } ) {
+         print "$role=$AoH[$i]{$role} ";
+     }
+     print "}\n";
+ }
+
+ # print the whole thing one at a time
+ for $i ( 0 .. $#AoH ) {
+     for $role ( keys %{ $AoH[$i] } ) {
+         print "elt $i $role is $AoH[$i]{$role}\n";
+     }
+ }
+
+=head1 HASHES OF HASHES
+X<hash of hashes> X<HoH>
+
+=head2 Declaration of a HASH OF HASHES
+
+ %HoH = (
+        flintstones => {
+                lead      => "fred",
+                pal       => "barney",
+        },
+        jetsons     => {
+                lead      => "george",
+                wife      => "jane",
+                "his boy" => "elroy",
+        },
+        simpsons    => {
+                lead      => "homer",
+                wife      => "marge",
+                kid       => "bart",
+        },
+ );
+
+=head2 Generation of a HASH OF HASHES
+
+ # reading from file
+ # flintstones: lead=fred pal=barney wife=wilma pet=dino
+ while ( <> ) {
+     next unless s/^(.*?):\s*//;
+     $who = $1;
+     for $field ( split ) {
+         ($key, $value) = split /=/, $field;
+         $HoH{$who}{$key} = $value;
+     }
+
+
+ # reading from file; more temps
+ while ( <> ) {
+     next unless s/^(.*?):\s*//;
+     $who = $1;
+     $rec = {};
+     $HoH{$who} = $rec;
+     for $field ( split ) {
+         ($key, $value) = split /=/, $field;
+         $rec->{$key} = $value;
+     }
+ }
+
+ # calling a function  that returns a key,value hash
+ for $group ( "simpsons", "jetsons", "flintstones" ) {
+     $HoH{$group} = { get_family($group) };
+ }
+
+ # likewise, but using temps
+ for $group ( "simpsons", "jetsons", "flintstones" ) {
+     %members = get_family($group);
+     $HoH{$group} = { %members };
+ }
+
+ # append new members to an existing family
+ %new_folks = (
+     wife => "wilma",
+     pet  => "dino",
+ );
+
+ for $what (keys %new_folks) {
+     $HoH{flintstones}{$what} = $new_folks{$what};
+ }
+
+=head2 Access and Printing of a HASH OF HASHES
+
+ # one element
+ $HoH{flintstones}{wife} = "wilma";
+
+ # another element
+ $HoH{simpsons}{lead} =~ s/(\w)/\u$1/;
+
+ # print the whole thing
+ foreach $family ( keys %HoH ) {
+     print "$family: { ";
+     for $role ( keys %{ $HoH{$family} } ) {
+         print "$role=$HoH{$family}{$role} ";
+     }
+     print "}\n";
+ }
+
+ # print the whole thing  somewhat sorted
+ foreach $family ( sort keys %HoH ) {
+     print "$family: { ";
+     for $role ( sort keys %{ $HoH{$family} } ) {
+         print "$role=$HoH{$family}{$role} ";
+     }
+     print "}\n";
+ }
+
+
+ # print the whole thing sorted by number of members
+ foreach $family ( sort { keys %{$HoH{$b}} <=> keys %{$HoH{$a}} }
+                                                             keys %HoH )
+ {
+     print "$family: { ";
+     for $role ( sort keys %{ $HoH{$family} } ) {
+         print "$role=$HoH{$family}{$role} ";
+     }
+     print "}\n";
+ }
+
+ # establish a sort order (rank) for each role
+ $i = 0;
+ for ( qw(lead wife son daughter pal pet) ) { $rank{$_} = ++$i }
+
+ # now print the whole thing sorted by number of members
+ foreach $family ( sort { keys %{ $HoH{$b} } <=> keys %{ $HoH{$a} } }
+                                                             keys %HoH )
+ {
+     print "$family: { ";
+     # and print these according to rank order
+     for $role ( sort { $rank{$a} <=> $rank{$b} }
+                                               keys %{ $HoH{$family} } )
+     {
+         print "$role=$HoH{$family}{$role} ";
+     }
+     print "}\n";
+ }
+
+
+=head1 MORE ELABORATE RECORDS
+X<record> X<structure> X<struct>
+
+=head2 Declaration of MORE ELABORATE RECORDS
+
+Here's a sample showing how to create and use a record whose fields are of
+many different sorts:
+
+     $rec = {
+         TEXT      => $string,
+         SEQUENCE  => [ @old_values ],
+         LOOKUP    => { %some_table },
+         THATCODE  => \&some_function,
+         THISCODE  => sub { $_[0] ** $_[1] },
+         HANDLE    => \*STDOUT,
+     };
+
+     print $rec->{TEXT};
+
+     print $rec->{SEQUENCE}[0];
+     $last = pop @ { $rec->{SEQUENCE} };
+
+     print $rec->{LOOKUP}{"key"};
+     ($first_k, $first_v) = each %{ $rec->{LOOKUP} };
+
+     $answer = $rec->{THATCODE}->($arg);
+     $answer = $rec->{THISCODE}->($arg1, $arg2);
+
+     # careful of extra block braces on fh ref
+     print { $rec->{HANDLE} } "a string\n";
+
+     use FileHandle;
+     $rec->{HANDLE}->autoflush(1);
+     $rec->{HANDLE}->print(" a string\n");
+
+=head2 Declaration of a HASH OF COMPLEX RECORDS
+
+     %TV = (
+        flintstones => {
+            series   => "flintstones",
+            nights   => [ qw(monday thursday friday) ],
+            members  => [
+                { name => "fred",    role => "lead", age  => 36, },
+                { name => "wilma",   role => "wife", age  => 31, },
+                { name => "pebbles", role => "kid",  age  =>  4, },
+            ],
+        },
+
+        jetsons     => {
+            series   => "jetsons",
+            nights   => [ qw(wednesday saturday) ],
+            members  => [
+                { name => "george",  role => "lead", age  => 41, },
+                { name => "jane",    role => "wife", age  => 39, },
+                { name => "elroy",   role => "kid",  age  =>  9, },
+            ],
+         },
+
+        simpsons    => {
+            series   => "simpsons",
+            nights   => [ qw(monday) ],
+            members  => [
+                { name => "homer", role => "lead", age  => 34, },
+                { name => "marge", role => "wife", age => 37, },
+                { name => "bart",  role => "kid",  age  =>  11, },
+            ],
+         },
+      );
+
+=head2 Generation of a HASH OF COMPLEX RECORDS
+
+     # reading from file
+     # this is most easily done by having the file itself be
+     # in the raw data format as shown above.  perl is happy
+     # to parse complex data structures if declared as data, so
+     # sometimes it's easiest to do that
+
+     # here's a piece by piece build up
+     $rec = {};
+     $rec->{series} = "flintstones";
+     $rec->{nights} = [ find_days() ];
+
+     @members = ();
+     # assume this file in field=value syntax
+     while (<>) {
+         %fields = split /[\s=]+/;
+         push @members, { %fields };
+     }
+     $rec->{members} = [ @members ];
+
+     # now remember the whole thing
+     $TV{ $rec->{series} } = $rec;
+
+     ###########################################################
+     # now, you might want to make interesting extra fields that
+     # include pointers back into the same data structure so if
+     # change one piece, it changes everywhere, like for example
+     # if you wanted a {kids} field that was a reference
+     # to an array of the kids' records without having duplicate
+     # records and thus update problems.
+     ###########################################################
+     foreach $family (keys %TV) {
+         $rec = $TV{$family}; # temp pointer
+         @kids = ();
+         for $person ( @{ $rec->{members} } ) {
+             if ($person->{role} =~ /kid|son|daughter/) {
+                 push @kids, $person;
+             }
+         }
+         # REMEMBER: $rec and $TV{$family} point to same data!!
+         $rec->{kids} = [ @kids ];
+     }
+
+     # you copied the array, but the array itself contains pointers
+     # to uncopied objects. this means that if you make bart get
+     # older via
+
+     $TV{simpsons}{kids}[0]{age}++;
+
+     # then this would also change in
+     print $TV{simpsons}{members}[2]{age};
+
+     # because $TV{simpsons}{kids}[0] and $TV{simpsons}{members}[2]
+     # both point to the same underlying anonymous hash table
+
+     # print the whole thing
+     foreach $family ( keys %TV ) {
+         print "the $family";
+         print " is on during @{ $TV{$family}{nights} }\n";
+         print "its members are:\n";
+         for $who ( @{ $TV{$family}{members} } ) {
+             print " $who->{name} ($who->{role}), age $who->{age}\n";
+         }
+         print "it turns out that $TV{$family}{lead} has ";
+         print scalar ( @{ $TV{$family}{kids} } ), " kids named ";
+         print join (", ", map { $_->{name} } @{ $TV{$family}{kids} } );
+         print "\n";
+     }
+
+=head1 Database Ties
+
+You cannot easily tie a multilevel data structure (such as a hash of
+hashes) to a dbm file.  The first problem is that all but GDBM and
+Berkeley DB have size limitations, but beyond that, you also have problems
+with how references are to be represented on disk.  One experimental
+module that does partially attempt to address this need is the MLDBM
+module.  Check your nearest CPAN site as described in L<perlmodlib> for
+source code to MLDBM.
+
+=head1 SEE ALSO
+
+L<perlref>, L<perllol>, L<perldata>, L<perlobj>
+
+=head1 AUTHOR
+
+Tom Christiansen <F<tchrist@perl.com>>
diff --git a/lib/5.24.1/pod/perldtrace.pod b/lib/5.24.1/pod/perldtrace.pod
new file mode 100644
index 00000000..2b603517
--- /dev/null
+++ b/lib/5.24.1/pod/perldtrace.pod
@@ -0,0 +1,236 @@
+=head1 NAME
+
+perldtrace - Perl's support for DTrace
+
+=head1 SYNOPSIS
+
+ # dtrace -Zn 'perl::sub-entry, perl::sub-return { trace(copyinstr(arg0)) }'
+ dtrace: description 'perl::sub-entry, perl::sub-return ' matched 10 probes
+
+ # perl -E 'sub outer { inner(@_) } sub inner { say shift } outer("hello")'
+ hello
+
+ (dtrace output)
+ CPU     ID                    FUNCTION:NAME
+   0  75915       Perl_pp_entersub:sub-entry   BEGIN
+   0  75915       Perl_pp_entersub:sub-entry   import
+   0  75922      Perl_pp_leavesub:sub-return   import
+   0  75922      Perl_pp_leavesub:sub-return   BEGIN
+   0  75915       Perl_pp_entersub:sub-entry   outer
+   0  75915       Perl_pp_entersub:sub-entry   inner
+   0  75922      Perl_pp_leavesub:sub-return   inner
+   0  75922      Perl_pp_leavesub:sub-return   outer
+
+=head1 DESCRIPTION
+
+DTrace is a framework for comprehensive system- and application-level
+tracing. Perl is a DTrace I<provider>, meaning it exposes several
+I<probes> for instrumentation. You can use these in conjunction
+with kernel-level probes, as well as probes from other providers
+such as MySQL, in order to diagnose software defects, or even just
+your application's bottlenecks.
+
+Perl must be compiled with the C<-Dusedtrace> option in order to
+make use of the provided probes. While DTrace aims to have no
+overhead when its instrumentation is not active, Perl's support
+itself cannot uphold that guarantee, so it is built without DTrace
+probes under most systems. One notable exception is that Mac OS X
+ships a F</usr/bin/perl> with DTrace support enabled.
+
+=head1 HISTORY
+
+=over 4
+
+=item 5.10.1
+
+Perl's initial DTrace support was added, providing C<sub-entry> and
+C<sub-return> probes.
+
+=item 5.14.0
+
+The C<sub-entry> and C<sub-return> probes gain a fourth argument: the
+package name of the function.
+
+=item 5.16.0
+
+The C<phase-change> probe was added.
+
+=item 5.18.0
+
+The C<op-entry>, C<loading-file>, and C<loaded-file> probes were added.
+
+=back
+
+=head1 PROBES
+
+=over 4
+
+=item sub-entry(SUBNAME, FILE, LINE, PACKAGE)
+
+Traces the entry of any subroutine. Note that all of the variables
+refer to the subroutine that is being invoked; there is currently
+no way to get ahold of any information about the subroutine's
+I<caller> from a DTrace action.
+
+ :*perl*::sub-entry {
+     printf("%s::%s entered at %s line %d\n",
+           copyinstr(arg3), copyinstr(arg0), copyinstr(arg1), arg2);
+ }
+
+=item sub-return(SUBNAME, FILE, LINE, PACKAGE)
+
+Traces the exit of any subroutine. Note that all of the variables
+refer to the subroutine that is returning; there is currently no
+way to get ahold of any information about the subroutine's I<caller>
+from a DTrace action.
+
+ :*perl*::sub-return {
+     printf("%s::%s returned at %s line %d\n",
+           copyinstr(arg3), copyinstr(arg0), copyinstr(arg1), arg2);
+ }
+
+=item phase-change(NEWPHASE, OLDPHASE)
+
+Traces changes to Perl's interpreter state. You can internalize this
+as tracing changes to Perl's C<${^GLOBAL_PHASE}> variable, especially
+since the values for C<NEWPHASE> and C<OLDPHASE> are the strings that
+C<${^GLOBAL_PHASE}> reports.
+
+ :*perl*::phase-change {
+     printf("Phase changed from %s to %s\n",
+         copyinstr(arg1), copyinstr(arg0));
+ }
+
+=item op-entry(OPNAME)
+
+Traces the execution of each opcode in the Perl runloop. This probe
+is fired before the opcode is executed. When the Perl debugger is
+enabled, the DTrace probe is fired I<after> the debugger hooks (but
+still before the opcode itself is executed).
+
+ :*perl*::op-entry {
+     printf("About to execute opcode %s\n", copyinstr(arg0));
+ }
+
+=item loading-file(FILENAME)
+
+Fires when Perl is about to load an individual file, whether from
+C<use>, C<require>, or C<do>. This probe fires before the file is
+read from disk. The filename argument is converted to local filesystem
+paths instead of providing C<Module::Name>-style names.
+
+ :*perl*:loading-file {
+     printf("About to load %s\n", copyinstr(arg0));
+ }
+
+=item loaded-file(FILENAME)
+
+Fires when Perl has successfully loaded an individual file, whether
+from C<use>, C<require>, or C<do>. This probe fires after the file
+is read from disk and its contents evaluated. The filename argument
+is converted to local filesystem paths instead of providing
+C<Module::Name>-style names.
+
+ :*perl*:loaded-file {
+     printf("Successfully loaded %s\n", copyinstr(arg0));
+ }
+
+=back
+
+=head1 EXAMPLES
+
+=over 4
+
+=item Most frequently called functions
+
+ # dtrace -qZn 'sub-entry { @[strjoin(strjoin(copyinstr(arg3),"::"),copyinstr(arg0))] = count() } END {trunc(@, 10)}'
+
+ Class::MOP::Attribute::slots                                    400
+ Try::Tiny::catch                                                411
+ Try::Tiny::try                                                  411
+ Class::MOP::Instance::inline_slot_access                        451
+ Class::MOP::Class::Immutable::Trait:::around                    472
+ Class::MOP::Mixin::AttributeCore::has_initializer               496
+ Class::MOP::Method::Wrapped::__ANON__                           544
+ Class::MOP::Package::_package_stash                             737
+ Class::MOP::Class::initialize                                  1128
+ Class::MOP::get_metaclass_by_name                              1204
+
+=item Trace function calls
+
+ # dtrace -qFZn 'sub-entry, sub-return { trace(copyinstr(arg0)) }'
+
+ 0  -> Perl_pp_entersub                        BEGIN
+ 0  <- Perl_pp_leavesub                        BEGIN
+ 0  -> Perl_pp_entersub                        BEGIN
+ 0    -> Perl_pp_entersub                      import
+ 0    <- Perl_pp_leavesub                      import
+ 0  <- Perl_pp_leavesub                        BEGIN
+ 0  -> Perl_pp_entersub                        BEGIN
+ 0    -> Perl_pp_entersub                      dress
+ 0    <- Perl_pp_leavesub                      dress
+ 0    -> Perl_pp_entersub                      dirty
+ 0    <- Perl_pp_leavesub                      dirty
+ 0    -> Perl_pp_entersub                      whiten
+ 0    <- Perl_pp_leavesub                      whiten
+ 0  <- Perl_dounwind                           BEGIN
+
+=item Function calls during interpreter cleanup
+
+ # dtrace -Zn 'phase-change /copyinstr(arg0) == "END"/ { self->ending = 1 } sub-entry /self->ending/ { trace(copyinstr(arg0)) }'
+
+ CPU     ID                    FUNCTION:NAME
+   1  77214       Perl_pp_entersub:sub-entry   END
+   1  77214       Perl_pp_entersub:sub-entry   END
+   1  77214       Perl_pp_entersub:sub-entry   cleanup
+   1  77214       Perl_pp_entersub:sub-entry   _force_writable
+   1  77214       Perl_pp_entersub:sub-entry   _force_writable
+
+=item System calls at compile time
+
+ # dtrace -qZn 'phase-change /copyinstr(arg0) == "START"/ { self->interesting = 1 } phase-change /copyinstr(arg0) == "RUN"/ { self->interesting = 0 } syscall::: /self->interesting/ { @[probefunc] = count() } END { trunc(@, 3) }'
+
+ lseek                                                           310
+ read                                                            374
+ stat64                                                         1056
+
+=item Perl functions that execute the most opcodes
+
+ # dtrace -qZn 'sub-entry { self->fqn = strjoin(copyinstr(arg3), strjoin("::", copyinstr(arg0))) } op-entry /self->fqn != ""/ { @[self->fqn] = count() } END { trunc(@, 3) }'
+
+ warnings::unimport                                             4589
+ Exporter::Heavy::_rebuild_cache                                5039
+ Exporter::import                                              14578
+
+=back
+
+=head1 REFERENCES
+
+=over 4
+
+=item DTrace Dynamic Tracing Guide
+
+L<http://dtrace.org/guide/preface.html>
+
+=item DTrace: Dynamic Tracing in Oracle Solaris, Mac OS X and FreeBSD
+
+L<http://www.amazon.com/DTrace-Dynamic-Tracing-Solaris-FreeBSD/dp/0132091518/>
+
+=back
+
+=head1 SEE ALSO
+
+=over 4
+
+=item L<Devel::DTrace::Provider>
+
+This CPAN module lets you create application-level DTrace probes written in
+Perl.
+
+=back
+
+=head1 AUTHORS
+
+Shawn M Moore C<sartak@gmail.com>
+
+=cut
diff --git a/lib/5.24.1/pod/perlebcdic.pod b/lib/5.24.1/pod/perlebcdic.pod
new file mode 100644
index 00000000..a53879c7
--- /dev/null
+++ b/lib/5.24.1/pod/perlebcdic.pod
@@ -0,0 +1,1920 @@
+=encoding utf8
+
+=head1 NAME
+
+perlebcdic - Considerations for running Perl on EBCDIC platforms
+
+=head1 DESCRIPTION
+
+An exploration of some of the issues facing Perl programmers
+on EBCDIC based computers.
+
+Portions of this document that are still incomplete are marked with XXX.
+
+Early Perl versions worked on some EBCDIC machines, but the last known
+version that ran on EBCDIC was v5.8.7, until v5.22, when the Perl core
+again works on z/OS.  Theoretically, it could work on OS/400 or Siemens'
+BS2000  (or their successors), but this is untested.  In v5.22 and 5.24,
+not all
+the modules found on CPAN but shipped with core Perl work on z/OS.
+
+If you want to use Perl on a non-z/OS EBCDIC machine, please let us know
+by sending mail to perlbug@perl.org
+
+Writing Perl on an EBCDIC platform is really no different than writing
+on an L</ASCII> one, but with different underlying numbers, as we'll see
+shortly.  You'll have to know something about those L</ASCII> platforms
+because the documentation is biased and will frequently use example
+numbers that don't apply to EBCDIC.  There are also very few CPAN
+modules that are written for EBCDIC and which don't work on ASCII;
+instead the vast majority of CPAN modules are written for ASCII, and
+some may happen to work on EBCDIC, while a few have been designed to
+portably work on both.
+
+If your code just uses the 52 letters A-Z and a-z, plus SPACE, the
+digits 0-9, and the punctuation characters that Perl uses, plus a few
+controls that are denoted by escape sequences like C<\n> and C<\t>, then
+there's nothing special about using Perl, and your code may very well
+work on an ASCII machine without change.
+
+But if you write code that uses C<\005> to mean a TAB or C<\xC1> to mean
+an "A", or C<\xDF> to mean a "E<yuml>" (small C<"y"> with a diaeresis),
+then your code may well work on your EBCDIC platform, but not on an
+ASCII one.  That's fine to do if no one will ever want to run your code
+on an ASCII platform; but the bias in this document will be towards writing
+code portable between EBCDIC and ASCII systems.  Again, if every
+character you care about is easily enterable from your keyboard, you
+don't have to know anything about ASCII, but many keyboards don't easily
+allow you to directly enter, say, the character C<\xDF>, so you have to
+specify it indirectly, such as by using the C<"\xDF"> escape sequence.
+In those cases it's easiest to know something about the ASCII/Unicode
+character sets.  If you know that the small "E<yuml>" is C<U+00FF>, then
+you can instead specify it as C<"\N{U+FF}">, and have the computer
+automatically translate it to C<\xDF> on your platform, and leave it as
+C<\xFF> on ASCII ones.  Or you could specify it by name, C<\N{LATIN
+SMALL LETTER Y WITH DIAERESIS> and not have to know the  numbers.
+Either way works, but both require familiarity with Unicode.
+
+=head1 COMMON CHARACTER CODE SETS
+
+=head2 ASCII
+
+The American Standard Code for Information Interchange (ASCII or
+US-ASCII) is a set of
+integers running from 0 to 127 (decimal) that have standardized
+interpretations by the computers which use ASCII.  For example, 65 means
+the letter "A".
+The range 0..127 can be covered by setting various bits in a 7-bit binary
+digit, hence the set is sometimes referred to as "7-bit ASCII".
+ASCII was described by the American National Standards Institute
+document ANSI X3.4-1986.  It was also described by ISO 646:1991
+(with localization for currency symbols).  The full ASCII set is
+given in the table L<below|/recipe 3> as the first 128 elements.
+Languages that
+can be written adequately with the characters in ASCII include
+English, Hawaiian, Indonesian, Swahili and some Native American
+languages.
+
+Most non-EBCDIC character sets are supersets of ASCII.  That is the
+integers 0-127 mean what ASCII says they mean.  But integers 128 and
+above are specific to the character set.
+
+Many of these fit entirely into 8 bits, using ASCII as 0-127, while
+specifying what 128-255 mean, and not using anything above 255.
+Thus, these are single-byte (or octet if you prefer) character sets.
+One important one (since Unicode is a superset of it) is the ISO 8859-1
+character set.
+
+=head2 ISO 8859
+
+The ISO 8859-I<B<$n>> are a collection of character code sets from the
+International Organization for Standardization (ISO), each of which adds
+characters to the ASCII set that are typically found in various
+languages, many of which are based on the Roman, or Latin, alphabet.
+Most are for European languages, but there are also ones for Arabic,
+Greek, Hebrew, and Thai.  There are good references on the web about
+all these.
+
+=head2 Latin 1 (ISO 8859-1)
+
+A particular 8-bit extension to ASCII that includes grave and acute
+accented Latin characters.  Languages that can employ ISO 8859-1
+include all the languages covered by ASCII as well as Afrikaans,
+Albanian, Basque, Catalan, Danish, Faroese, Finnish, Norwegian,
+Portuguese, Spanish, and Swedish.  Dutch is covered albeit without
+the ij ligature.  French is covered too but without the oe ligature.
+German can use ISO 8859-1 but must do so without German-style
+quotation marks.  This set is based on Western European extensions
+to ASCII and is commonly encountered in world wide web work.
+In IBM character code set identification terminology, ISO 8859-1 is
+also known as CCSID 819 (or sometimes 0819 or even 00819).
+
+=head2 EBCDIC
+
+The Extended Binary Coded Decimal Interchange Code refers to a
+large collection of single- and multi-byte coded character sets that are
+quite different from ASCII and ISO 8859-1, and are all slightly
+different from each other; they typically run on host computers.  The
+EBCDIC encodings derive from 8-bit byte extensions of Hollerith punched
+card encodings, which long predate ASCII.  The layout on the
+cards was such that high bits were set for the upper and lower case
+alphabetic
+characters C<[a-z]> and C<[A-Z]>, but there were gaps within each Latin
+alphabet range, visible in the table L<below|/recipe 3>.  These gaps can
+cause complications.
+
+Some IBM EBCDIC character sets may be known by character code set
+identification numbers (CCSID numbers) or code page numbers.
+
+Perl can be compiled on platforms that run any of three commonly used EBCDIC
+character sets, listed below.
+
+=head3 The 13 variant characters
+
+Among IBM EBCDIC character code sets there are 13 characters that
+are often mapped to different integer values.  Those characters
+are known as the 13 "variant" characters and are:
+
+    \ [ ] { } ^ ~ ! # | $ @ `
+
+When Perl is compiled for a platform, it looks at all of these characters to
+guess which EBCDIC character set the platform uses, and adapts itself
+accordingly to that platform.  If the platform uses a character set that is not
+one of the three Perl knows about, Perl will either fail to compile, or
+mistakenly and silently choose one of the three.
+
+=head3 EBCDIC code sets recognized by Perl
+
+=over
+
+=item B<0037>
+
+Character code set ID 0037 is a mapping of the ASCII plus Latin-1
+characters (i.e. ISO 8859-1) to an EBCDIC set.  0037 is used
+in North American English locales on the OS/400 operating system
+that runs on AS/400 computers.  CCSID 0037 differs from ISO 8859-1
+in 236 places; in other words they agree on only 20 code point values.
+
+=item B<1047>
+
+Character code set ID 1047 is also a mapping of the ASCII plus
+Latin-1 characters (i.e. ISO 8859-1) to an EBCDIC set.  1047 is
+used under Unix System Services for OS/390 or z/OS, and OpenEdition
+for VM/ESA.  CCSID 1047 differs from CCSID 0037 in eight places,
+and from ISO 8859-1 in 236.
+
+=item B<POSIX-BC>
+
+The EBCDIC code page in use on Siemens' BS2000 system is distinct from
+1047 and 0037.  It is identified below as the POSIX-BC set.
+Like 0037 and 1047, it is the same as ISO 8859-1 in 20 code point
+values.
+
+=back
+
+=head2 Unicode code points versus EBCDIC code points
+
+In Unicode terminology a I<code point> is the number assigned to a
+character: for example, in EBCDIC the character "A" is usually assigned
+the number 193.  In Unicode, the character "A" is assigned the number 65.
+All the code points in ASCII and Latin-1 (ISO 8859-1) have the same
+meaning in Unicode.  All three of the recognized EBCDIC code sets have
+256 code points, and in each code set, all 256 code points are mapped to
+equivalent Latin1 code points.  Obviously, "A" will map to "A", "B" =>
+"B", "%" => "%", etc., for all printable characters in Latin1 and these
+code pages.
+
+It also turns out that EBCDIC has nearly precise equivalents for the
+ASCII/Latin1 C0 controls and the DELETE control.  (The C0 controls are
+those whose ASCII code points are 0..0x1F; things like TAB, ACK, BEL,
+etc.)  A mapping is set up between these ASCII/EBCDIC controls.  There
+isn't such a precise mapping between the C1 controls on ASCII platforms
+and the remaining EBCDIC controls.  What has been done is to map these
+controls, mostly arbitrarily, to some otherwise unmatched character in
+the other character set.  Most of these are very very rarely used
+nowadays in EBCDIC anyway, and their names have been dropped, without
+much complaint.  For example the EO (Eight Ones) EBCDIC control
+(consisting of eight one bits = 0xFF) is mapped to the C1 APC control
+(0x9F), and you can't use the name "EO".
+
+The EBCDIC controls provide three possible line terminator characters,
+CR (0x0D), LF (0x25), and NL (0x15).  On ASCII platforms, the symbols
+"NL" and "LF" refer to the same character, but in strict EBCDIC
+terminology they are different ones.  The EBCDIC NL is mapped to the C1
+control called "NEL" ("Next Line"; here's a case where the mapping makes
+quite a bit of sense, and hence isn't just arbitrary).  On some EBCDIC
+platforms, this NL or NEL is the typical line terminator.  This is true
+of z/OS and BS2000.  In these platforms, the C compilers will swap the
+LF and NEL code points, so that C<"\n"> is 0x15, and refers to NL.  Perl
+does that too; you can see it in the code chart L<below|/recipe 3>.
+This makes things generally "just work" without you even having to be
+aware that there is a swap.
+
+=head2 Unicode and UTF
+
+UTF stands for "Unicode Transformation Format".
+UTF-8 is an encoding of Unicode into a sequence of 8-bit byte chunks, based on
+ASCII and Latin-1.
+The length of a sequence required to represent a Unicode code point
+depends on the ordinal number of that code point,
+with larger numbers requiring more bytes.
+UTF-EBCDIC is like UTF-8, but based on EBCDIC.
+They are enough alike that often, casual usage will conflate the two
+terms, and use "UTF-8" to mean both the UTF-8 found on ASCII platforms,
+and the UTF-EBCDIC found on EBCDIC ones.
+
+You may see the term "invariant" character or code point.
+This simply means that the character has the same numeric
+value and representation when encoded in UTF-8 (or UTF-EBCDIC) as when
+not.  (Note that this is a very different concept from L</The 13 variant
+characters> mentioned above.  Careful prose will use the term "UTF-8
+invariant" instead of just "invariant", but most often you'll see just
+"invariant".) For example, the ordinal value of "A" is 193 in most
+EBCDIC code pages, and also is 193 when encoded in UTF-EBCDIC.  All
+UTF-8 (or UTF-EBCDIC) variant code points occupy at least two bytes when
+encoded in UTF-8 (or UTF-EBCDIC); by definition, the UTF-8 (or
+UTF-EBCDIC) invariant code points are exactly one byte whether encoded
+in UTF-8 (or UTF-EBCDIC), or not.  (By now you see why people typically
+just say "UTF-8" when they also mean "UTF-EBCDIC".  For the rest of this
+document, we'll mostly be casual about it too.)
+In ASCII UTF-8, the code points corresponding to the lowest 128
+ordinal numbers (0 - 127: the ASCII characters) are invariant.
+In UTF-EBCDIC, there are 160 invariant characters.
+(If you care, the EBCDIC invariants are those characters
+which have ASCII equivalents, plus those that correspond to
+the C1 controls (128 - 159 on ASCII platforms).)
+
+A string encoded in UTF-EBCDIC may be longer (very rarely shorter) than
+one encoded in UTF-8.  Perl extends both UTF-8 and UTF-EBCDIC so that
+they can encode code points above the Unicode maximum of U+10FFFF.  Both
+extensions are constructed to allow encoding of any code point that fits
+in a 64-bit word.
+
+UTF-EBCDIC is defined by
+L<Unicode Technical Report #16|http://www.unicode.org/reports/tr16>
+(often referred to as just TR16).
+It is defined based on CCSID 1047, not allowing for the differences for
+other code pages.  This allows for easy interchange of text between
+computers running different code pages, but makes it unusable, without
+adaptation, for Perl on those other code pages.
+
+The reason for this unusability is that a fundamental assumption of Perl
+is that the characters it cares about for parsing and lexical analysis
+are the same whether or not the text is in UTF-8.  For example, Perl
+expects the character C<"["> to have the same representation, no matter
+if the string containing it (or program text) is UTF-8 encoded or not.
+To ensure this, Perl adapts UTF-EBCDIC to the particular code page so
+that all characters it expects to be UTF-8 invariant are in fact UTF-8
+invariant.  This means that text generated on a computer running one
+version of Perl's UTF-EBCDIC has to be translated to be intelligible to
+a computer running another.
+
+TR16 implies a method to extend UTF-EBCDIC to encode points up through
+S<C<2 ** 31 - 1>>.  Perl uses this method for code points up through
+S<C<2 ** 30 - 1>>, but uses an incompatible method for larger ones, to
+enable it to handle much larger code points than otherwise.
+
+=head2 Using Encode
+
+Starting from Perl 5.8 you can use the standard module Encode
+to translate from EBCDIC to Latin-1 code points.
+Encode knows about more EBCDIC character sets than Perl can currently
+be compiled to run on.
+
+   use Encode 'from_to';
+
+   my %ebcdic = ( 176 => 'cp37', 95 => 'cp1047', 106 => 'posix-bc' );
+
+   # $a is in EBCDIC code points
+   from_to($a, $ebcdic{ord '^'}, 'latin1');
+   # $a is ISO 8859-1 code points
+
+and from Latin-1 code points to EBCDIC code points
+
+   use Encode 'from_to';
+
+   my %ebcdic = ( 176 => 'cp37', 95 => 'cp1047', 106 => 'posix-bc' );
+
+   # $a is ISO 8859-1 code points
+   from_to($a, 'latin1', $ebcdic{ord '^'});
+   # $a is in EBCDIC code points
+
+For doing I/O it is suggested that you use the autotranslating features
+of PerlIO, see L<perluniintro>.
+
+Since version 5.8 Perl uses the PerlIO I/O library.  This enables
+you to use different encodings per IO channel.  For example you may use
+
+    use Encode;
+    open($f, ">:encoding(ascii)", "test.ascii");
+    print $f "Hello World!\n";
+    open($f, ">:encoding(cp37)", "test.ebcdic");
+    print $f "Hello World!\n";
+    open($f, ">:encoding(latin1)", "test.latin1");
+    print $f "Hello World!\n";
+    open($f, ">:encoding(utf8)", "test.utf8");
+    print $f "Hello World!\n";
+
+to get four files containing "Hello World!\n" in ASCII, CP 0037 EBCDIC,
+ISO 8859-1 (Latin-1) (in this example identical to ASCII since only ASCII
+characters were printed), and
+UTF-EBCDIC (in this example identical to normal EBCDIC since only characters
+that don't differ between EBCDIC and UTF-EBCDIC were printed).  See the
+documentation of L<Encode::PerlIO> for details.
+
+As the PerlIO layer uses raw IO (bytes) internally, all this totally
+ignores things like the type of your filesystem (ASCII or EBCDIC).
+
+=head1 SINGLE OCTET TABLES
+
+The following tables list the ASCII and Latin 1 ordered sets including
+the subsets: C0 controls (0..31), ASCII graphics (32..7e), delete (7f),
+C1 controls (80..9f), and Latin-1 (a.k.a. ISO 8859-1) (a0..ff).  In the
+table names of the Latin 1
+extensions to ASCII have been labelled with character names roughly
+corresponding to I<The Unicode Standard, Version 6.1> albeit with
+substitutions such as C<s/LATIN//> and C<s/VULGAR//> in all cases;
+S<C<s/CAPITAL LETTER//>> in some cases; and
+S<C<s/SMALL LETTER ([A-Z])/\l$1/>> in some other
+cases.  Controls are listed using their Unicode 6.2 abbreviations.
+The differences between the 0037 and 1047 sets are
+flagged with C<**>.  The differences between the 1047 and POSIX-BC sets
+are flagged with C<##.>  All C<ord()> numbers listed are decimal.  If you
+would rather see this table listing octal values, then run the table
+(that is, the pod source text of this document, since this recipe may not
+work with a pod2_other_format translation) through:
+
+=over 4
+
+=item recipe 0
+
+=back
+
+    perl -ne 'if(/(.{29})(\d+)\s+(\d+)\s+(\d+)\s+(\d+)/)' \
+     -e '{printf("%s%-5.03o%-5.03o%-5.03o%.03o\n",$1,$2,$3,$4,$5)}' \
+     perlebcdic.pod
+
+If you want to retain the UTF-x code points then in script form you
+might want to write:
+
+=over 4
+
+=item recipe 1
+
+=back
+
+ open(FH,"<perlebcdic.pod") or die "Could not open perlebcdic.pod: $!";
+ while (<FH>) {
+     if (/(.{29})(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\.?(\d*)
+                                                     \s+(\d+)\.?(\d*)/x)
+     {
+         if ($7 ne '' && $9 ne '') {
+             printf(
+                "%s%-5.03o%-5.03o%-5.03o%-5.03o%-3o.%-5o%-3o.%.03o\n",
+                                            $1,$2,$3,$4,$5,$6,$7,$8,$9);
+         }
+         elsif ($7 ne '') {
+             printf("%s%-5.03o%-5.03o%-5.03o%-5.03o%-3o.%-5o%.03o\n",
+                                           $1,$2,$3,$4,$5,$6,$7,$8);
+         }
+         else {
+             printf("%s%-5.03o%-5.03o%-5.03o%-5.03o%-5.03o%.03o\n",
+                                                $1,$2,$3,$4,$5,$6,$8);
+         }
+     }
+ }
+
+If you would rather see this table listing hexadecimal values then
+run the table through:
+
+=over 4
+
+=item recipe 2
+
+=back
+
+    perl -ne 'if(/(.{29})(\d+)\s+(\d+)\s+(\d+)\s+(\d+)/)' \
+     -e '{printf("%s%-5.02X%-5.02X%-5.02X%.02X\n",$1,$2,$3,$4,$5)}' \
+     perlebcdic.pod
+
+Or, in order to retain the UTF-x code points in hexadecimal:
+
+=over 4
+
+=item recipe 3
+
+=back
+
+ open(FH,"<perlebcdic.pod") or die "Could not open perlebcdic.pod: $!";
+ while (<FH>) {
+     if (/(.{29})(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\.?(\d*)
+                                                     \s+(\d+)\.?(\d*)/x)
+     {
+         if ($7 ne '' && $9 ne '') {
+             printf(
+                "%s%-5.02X%-5.02X%-5.02X%-5.02X%-2X.%-6.02X%02X.%02X\n",
+                                           $1,$2,$3,$4,$5,$6,$7,$8,$9);
+         }
+         elsif ($7 ne '') {
+             printf("%s%-5.02X%-5.02X%-5.02X%-5.02X%-2X.%-6.02X%02X\n",
+                                              $1,$2,$3,$4,$5,$6,$7,$8);
+         }
+         else {
+             printf("%s%-5.02X%-5.02X%-5.02X%-5.02X%-5.02X%02X\n",
+                                                  $1,$2,$3,$4,$5,$6,$8);
+         }
+     }
+ }
+
+
+                          ISO
+                         8859-1             POS-         CCSID
+                         CCSID  CCSID CCSID IX-          1047
+  chr                     0819   0037 1047  BC  UTF-8  UTF-EBCDIC
+ ---------------------------------------------------------------------
+ <NUL>                       0    0    0    0    0        0
+ <SOH>                       1    1    1    1    1        1
+ <STX>                       2    2    2    2    2        2
+ <ETX>                       3    3    3    3    3        3
+ <EOT>                       4    55   55   55   4        55
+ <ENQ>                       5    45   45   45   5        45
+ <ACK>                       6    46   46   46   6        46
+ <BEL>                       7    47   47   47   7        47
+ <BS>                        8    22   22   22   8        22
+ <HT>                        9    5    5    5    9        5
+ <LF>                        10   37   21   21   10       21  **
+ <VT>                        11   11   11   11   11       11
+ <FF>                        12   12   12   12   12       12
+ <CR>                        13   13   13   13   13       13
+ <SO>                        14   14   14   14   14       14
+ <SI>                        15   15   15   15   15       15
+ <DLE>                       16   16   16   16   16       16
+ <DC1>                       17   17   17   17   17       17
+ <DC2>                       18   18   18   18   18       18
+ <DC3>                       19   19   19   19   19       19
+ <DC4>                       20   60   60   60   20       60
+ <NAK>                       21   61   61   61   21       61
+ <SYN>                       22   50   50   50   22       50
+ <ETB>                       23   38   38   38   23       38
+ <CAN>                       24   24   24   24   24       24
+ <EOM>                       25   25   25   25   25       25
+ <SUB>                       26   63   63   63   26       63
+ <ESC>                       27   39   39   39   27       39
+ <FS>                        28   28   28   28   28       28
+ <GS>                        29   29   29   29   29       29
+ <RS>                        30   30   30   30   30       30
+ <US>                        31   31   31   31   31       31
+ <SPACE>                     32   64   64   64   32       64
+ !                           33   90   90   90   33       90
+ "                           34   127  127  127  34       127
+ #                           35   123  123  123  35       123
+ $                           36   91   91   91   36       91
+ %                           37   108  108  108  37       108
+ &                           38   80   80   80   38       80
+ '                           39   125  125  125  39       125
+ (                           40   77   77   77   40       77
+ )                           41   93   93   93   41       93
+ *                           42   92   92   92   42       92
+ +                           43   78   78   78   43       78
+ ,                           44   107  107  107  44       107
+ -                           45   96   96   96   45       96
+ .                           46   75   75   75   46       75
+ /                           47   97   97   97   47       97
+ 0                           48   240  240  240  48       240
+ 1                           49   241  241  241  49       241
+ 2                           50   242  242  242  50       242
+ 3                           51   243  243  243  51       243
+ 4                           52   244  244  244  52       244
+ 5                           53   245  245  245  53       245
+ 6                           54   246  246  246  54       246
+ 7                           55   247  247  247  55       247
+ 8                           56   248  248  248  56       248
+ 9                           57   249  249  249  57       249
+ :                           58   122  122  122  58       122
+ ;                           59   94   94   94   59       94
+ <                           60   76   76   76   60       76
+ =                           61   126  126  126  61       126
+ >                           62   110  110  110  62       110
+ ?                           63   111  111  111  63       111
+ @                           64   124  124  124  64       124
+ A                           65   193  193  193  65       193
+ B                           66   194  194  194  66       194
+ C                           67   195  195  195  67       195
+ D                           68   196  196  196  68       196
+ E                           69   197  197  197  69       197
+ F                           70   198  198  198  70       198
+ G                           71   199  199  199  71       199
+ H                           72   200  200  200  72       200
+ I                           73   201  201  201  73       201
+ J                           74   209  209  209  74       209
+ K                           75   210  210  210  75       210
+ L                           76   211  211  211  76       211
+ M                           77   212  212  212  77       212
+ N                           78   213  213  213  78       213
+ O                           79   214  214  214  79       214
+ P                           80   215  215  215  80       215
+ Q                           81   216  216  216  81       216
+ R                           82   217  217  217  82       217
+ S                           83   226  226  226  83       226
+ T                           84   227  227  227  84       227
+ U                           85   228  228  228  85       228
+ V                           86   229  229  229  86       229
+ W                           87   230  230  230  87       230
+ X                           88   231  231  231  88       231
+ Y                           89   232  232  232  89       232
+ Z                           90   233  233  233  90       233
+ [                           91   186  173  187  91       173  ** ##
+ \                           92   224  224  188  92       224  ##
+ ]                           93   187  189  189  93       189  **
+ ^                           94   176  95   106  94       95   ** ##
+ _                           95   109  109  109  95       109
+ `                           96   121  121  74   96       121  ##
+ a                           97   129  129  129  97       129
+ b                           98   130  130  130  98       130
+ c                           99   131  131  131  99       131
+ d                           100  132  132  132  100      132
+ e                           101  133  133  133  101      133
+ f                           102  134  134  134  102      134
+ g                           103  135  135  135  103      135
+ h                           104  136  136  136  104      136
+ i                           105  137  137  137  105      137
+ j                           106  145  145  145  106      145
+ k                           107  146  146  146  107      146
+ l                           108  147  147  147  108      147
+ m                           109  148  148  148  109      148
+ n                           110  149  149  149  110      149
+ o                           111  150  150  150  111      150
+ p                           112  151  151  151  112      151
+ q                           113  152  152  152  113      152
+ r                           114  153  153  153  114      153
+ s                           115  162  162  162  115      162
+ t                           116  163  163  163  116      163
+ u                           117  164  164  164  117      164
+ v                           118  165  165  165  118      165
+ w                           119  166  166  166  119      166
+ x                           120  167  167  167  120      167
+ y                           121  168  168  168  121      168
+ z                           122  169  169  169  122      169
+ {                           123  192  192  251  123      192  ##
+ |                           124  79   79   79   124      79
+ }                           125  208  208  253  125      208  ##
+ ~                           126  161  161  255  126      161  ##
+ <DEL>                       127  7    7    7    127      7
+ <PAD>                       128  32   32   32   194.128  32
+ <HOP>                       129  33   33   33   194.129  33
+ <BPH>                       130  34   34   34   194.130  34
+ <NBH>                       131  35   35   35   194.131  35
+ <IND>                       132  36   36   36   194.132  36
+ <NEL>                       133  21   37   37   194.133  37   **
+ <SSA>                       134  6    6    6    194.134  6
+ <ESA>                       135  23   23   23   194.135  23
+ <HTS>                       136  40   40   40   194.136  40
+ <HTJ>                       137  41   41   41   194.137  41
+ <VTS>                       138  42   42   42   194.138  42
+ <PLD>                       139  43   43   43   194.139  43
+ <PLU>                       140  44   44   44   194.140  44
+ <RI>                        141  9    9    9    194.141  9
+ <SS2>                       142  10   10   10   194.142  10
+ <SS3>                       143  27   27   27   194.143  27
+ <DCS>                       144  48   48   48   194.144  48
+ <PU1>                       145  49   49   49   194.145  49
+ <PU2>                       146  26   26   26   194.146  26
+ <STS>                       147  51   51   51   194.147  51
+ <CCH>                       148  52   52   52   194.148  52
+ <MW>                        149  53   53   53   194.149  53
+ <SPA>                       150  54   54   54   194.150  54
+ <EPA>                       151  8    8    8    194.151  8
+ <SOS>                       152  56   56   56   194.152  56
+ <SGC>                       153  57   57   57   194.153  57
+ <SCI>                       154  58   58   58   194.154  58
+ <CSI>                       155  59   59   59   194.155  59
+ <ST>                        156  4    4    4    194.156  4
+ <OSC>                       157  20   20   20   194.157  20
+ <PM>                        158  62   62   62   194.158  62
+ <APC>                       159  255  255  95   194.159  255      ##
+ <NON-BREAKING SPACE>        160  65   65   65   194.160  128.65
+ <INVERTED "!" >             161  170  170  170  194.161  128.66
+ <CENT SIGN>                 162  74   74   176  194.162  128.67   ##
+ <POUND SIGN>                163  177  177  177  194.163  128.68
+ <CURRENCY SIGN>             164  159  159  159  194.164  128.69
+ <YEN SIGN>                  165  178  178  178  194.165  128.70
+ <BROKEN BAR>                166  106  106  208  194.166  128.71   ##
+ <SECTION SIGN>              167  181  181  181  194.167  128.72
+ <DIAERESIS>                 168  189  187  121  194.168  128.73   ** ##
+ <COPYRIGHT SIGN>            169  180  180  180  194.169  128.74
+ <FEMININE ORDINAL>          170  154  154  154  194.170  128.81
+ <LEFT POINTING GUILLEMET>   171  138  138  138  194.171  128.82
+ <NOT SIGN>                  172  95   176  186  194.172  128.83   ** ##
+ <SOFT HYPHEN>               173  202  202  202  194.173  128.84
+ <REGISTERED TRADE MARK>     174  175  175  175  194.174  128.85
+ <MACRON>                    175  188  188  161  194.175  128.86   ##
+ <DEGREE SIGN>               176  144  144  144  194.176  128.87
+ <PLUS-OR-MINUS SIGN>        177  143  143  143  194.177  128.88
+ <SUPERSCRIPT TWO>           178  234  234  234  194.178  128.89
+ <SUPERSCRIPT THREE>         179  250  250  250  194.179  128.98
+ <ACUTE ACCENT>              180  190  190  190  194.180  128.99
+ <MICRO SIGN>                181  160  160  160  194.181  128.100
+ <PARAGRAPH SIGN>            182  182  182  182  194.182  128.101
+ <MIDDLE DOT>                183  179  179  179  194.183  128.102
+ <CEDILLA>                   184  157  157  157  194.184  128.103
+ <SUPERSCRIPT ONE>           185  218  218  218  194.185  128.104
+ <MASC. ORDINAL INDICATOR>   186  155  155  155  194.186  128.105
+ <RIGHT POINTING GUILLEMET>  187  139  139  139  194.187  128.106
+ <FRACTION ONE QUARTER>      188  183  183  183  194.188  128.112
+ <FRACTION ONE HALF>         189  184  184  184  194.189  128.113
+ <FRACTION THREE QUARTERS>   190  185  185  185  194.190  128.114
+ <INVERTED QUESTION MARK>    191  171  171  171  194.191  128.115
+ <A WITH GRAVE>              192  100  100  100  195.128  138.65
+ <A WITH ACUTE>              193  101  101  101  195.129  138.66
+ <A WITH CIRCUMFLEX>         194  98   98   98   195.130  138.67
+ <A WITH TILDE>              195  102  102  102  195.131  138.68
+ <A WITH DIAERESIS>          196  99   99   99   195.132  138.69
+ <A WITH RING ABOVE>         197  103  103  103  195.133  138.70
+ <CAPITAL LIGATURE AE>       198  158  158  158  195.134  138.71
+ <C WITH CEDILLA>            199  104  104  104  195.135  138.72
+ <E WITH GRAVE>              200  116  116  116  195.136  138.73
+ <E WITH ACUTE>              201  113  113  113  195.137  138.74
+ <E WITH CIRCUMFLEX>         202  114  114  114  195.138  138.81
+ <E WITH DIAERESIS>          203  115  115  115  195.139  138.82
+ <I WITH GRAVE>              204  120  120  120  195.140  138.83
+ <I WITH ACUTE>              205  117  117  117  195.141  138.84
+ <I WITH CIRCUMFLEX>         206  118  118  118  195.142  138.85
+ <I WITH DIAERESIS>          207  119  119  119  195.143  138.86
+ <CAPITAL LETTER ETH>        208  172  172  172  195.144  138.87
+ <N WITH TILDE>              209  105  105  105  195.145  138.88
+ <O WITH GRAVE>              210  237  237  237  195.146  138.89
+ <O WITH ACUTE>              211  238  238  238  195.147  138.98
+ <O WITH CIRCUMFLEX>         212  235  235  235  195.148  138.99
+ <O WITH TILDE>              213  239  239  239  195.149  138.100
+ <O WITH DIAERESIS>          214  236  236  236  195.150  138.101
+ <MULTIPLICATION SIGN>       215  191  191  191  195.151  138.102
+ <O WITH STROKE>             216  128  128  128  195.152  138.103
+ <U WITH GRAVE>              217  253  253  224  195.153  138.104  ##
+ <U WITH ACUTE>              218  254  254  254  195.154  138.105
+ <U WITH CIRCUMFLEX>         219  251  251  221  195.155  138.106  ##
+ <U WITH DIAERESIS>          220  252  252  252  195.156  138.112
+ <Y WITH ACUTE>              221  173  186  173  195.157  138.113  ** ##
+ <CAPITAL LETTER THORN>      222  174  174  174  195.158  138.114
+ <SMALL LETTER SHARP S>      223  89   89   89   195.159  138.115
+ <a WITH GRAVE>              224  68   68   68   195.160  139.65
+ <a WITH ACUTE>              225  69   69   69   195.161  139.66
+ <a WITH CIRCUMFLEX>         226  66   66   66   195.162  139.67
+ <a WITH TILDE>              227  70   70   70   195.163  139.68
+ <a WITH DIAERESIS>          228  67   67   67   195.164  139.69
+ <a WITH RING ABOVE>         229  71   71   71   195.165  139.70
+ <SMALL LIGATURE ae>         230  156  156  156  195.166  139.71
+ <c WITH CEDILLA>            231  72   72   72   195.167  139.72
+ <e WITH GRAVE>              232  84   84   84   195.168  139.73
+ <e WITH ACUTE>              233  81   81   81   195.169  139.74
+ <e WITH CIRCUMFLEX>         234  82   82   82   195.170  139.81
+ <e WITH DIAERESIS>          235  83   83   83   195.171  139.82
+ <i WITH GRAVE>              236  88   88   88   195.172  139.83
+ <i WITH ACUTE>              237  85   85   85   195.173  139.84
+ <i WITH CIRCUMFLEX>         238  86   86   86   195.174  139.85
+ <i WITH DIAERESIS>          239  87   87   87   195.175  139.86
+ <SMALL LETTER eth>          240  140  140  140  195.176  139.87
+ <n WITH TILDE>              241  73   73   73   195.177  139.88
+ <o WITH GRAVE>              242  205  205  205  195.178  139.89
+ <o WITH ACUTE>              243  206  206  206  195.179  139.98
+ <o WITH CIRCUMFLEX>         244  203  203  203  195.180  139.99
+ <o WITH TILDE>              245  207  207  207  195.181  139.100
+ <o WITH DIAERESIS>          246  204  204  204  195.182  139.101
+ <DIVISION SIGN>             247  225  225  225  195.183  139.102
+ <o WITH STROKE>             248  112  112  112  195.184  139.103
+ <u WITH GRAVE>              249  221  221  192  195.185  139.104  ##
+ <u WITH ACUTE>              250  222  222  222  195.186  139.105
+ <u WITH CIRCUMFLEX>         251  219  219  219  195.187  139.106
+ <u WITH DIAERESIS>          252  220  220  220  195.188  139.112
+ <y WITH ACUTE>              253  141  141  141  195.189  139.113
+ <SMALL LETTER thorn>        254  142  142  142  195.190  139.114
+ <y WITH DIAERESIS>          255  223  223  223  195.191  139.115
+
+If you would rather see the above table in CCSID 0037 order rather than
+ASCII + Latin-1 order then run the table through:
+
+=over 4
+
+=item recipe 4
+
+=back
+
+ perl \
+    -ne 'if(/.{29}\d{1,3}\s{2,4}\d{1,3}\s{2,4}\d{1,3}\s{2,4}\d{1,3}/)'\
+     -e '{push(@l,$_)}' \
+     -e 'END{print map{$_->[0]}' \
+     -e '          sort{$a->[1] <=> $b->[1]}' \
+     -e '          map{[$_,substr($_,34,3)]}@l;}' perlebcdic.pod
+
+If you would rather see it in CCSID 1047 order then change the number
+34 in the last line to 39, like this:
+
+=over 4
+
+=item recipe 5
+
+=back
+
+ perl \
+    -ne 'if(/.{29}\d{1,3}\s{2,4}\d{1,3}\s{2,4}\d{1,3}\s{2,4}\d{1,3}/)'\
+    -e '{push(@l,$_)}' \
+    -e 'END{print map{$_->[0]}' \
+    -e '          sort{$a->[1] <=> $b->[1]}' \
+    -e '          map{[$_,substr($_,39,3)]}@l;}' perlebcdic.pod
+
+If you would rather see it in POSIX-BC order then change the number
+34 in the last line to 44, like this:
+
+=over 4
+
+=item recipe 6
+
+=back
+
+ perl \
+    -ne 'if(/.{29}\d{1,3}\s{2,4}\d{1,3}\s{2,4}\d{1,3}\s{2,4}\d{1,3}/)'\
+     -e '{push(@l,$_)}' \
+     -e 'END{print map{$_->[0]}' \
+     -e '          sort{$a->[1] <=> $b->[1]}' \
+     -e '          map{[$_,substr($_,44,3)]}@l;}' perlebcdic.pod
+
+=head2 Table in hex, sorted in 1047 order
+
+Since this document was first written, the convention has become more
+and more to use hexadecimal notation for code points.  To do this with
+the recipes and to also sort is a multi-step process, so here, for
+convenience, is the table from above, re-sorted to be in Code Page 1047
+order, and using hex notation.
+
+                          ISO
+                         8859-1             POS-         CCSID
+                         CCSID  CCSID CCSID IX-          1047
+  chr                     0819   0037 1047  BC  UTF-8  UTF-EBCDIC
+ ---------------------------------------------------------------------
+ <NUL>                       00   00   00   00   00       00
+ <SOH>                       01   01   01   01   01       01
+ <STX>                       02   02   02   02   02       02
+ <ETX>                       03   03   03   03   03       03
+ <ST>                        9C   04   04   04   C2.9C    04
+ <HT>                        09   05   05   05   09       05
+ <SSA>                       86   06   06   06   C2.86    06
+ <DEL>                       7F   07   07   07   7F       07
+ <EPA>                       97   08   08   08   C2.97    08
+ <RI>                        8D   09   09   09   C2.8D    09
+ <SS2>                       8E   0A   0A   0A   C2.8E    0A
+ <VT>                        0B   0B   0B   0B   0B       0B
+ <FF>                        0C   0C   0C   0C   0C       0C
+ <CR>                        0D   0D   0D   0D   0D       0D
+ <SO>                        0E   0E   0E   0E   0E       0E
+ <SI>                        0F   0F   0F   0F   0F       0F
+ <DLE>                       10   10   10   10   10       10
+ <DC1>                       11   11   11   11   11       11
+ <DC2>                       12   12   12   12   12       12
+ <DC3>                       13   13   13   13   13       13
+ <OSC>                       9D   14   14   14   C2.9D    14
+ <LF>                        0A   25   15   15   0A       15    **
+ <BS>                        08   16   16   16   08       16
+ <ESA>                       87   17   17   17   C2.87    17
+ <CAN>                       18   18   18   18   18       18
+ <EOM>                       19   19   19   19   19       19
+ <PU2>                       92   1A   1A   1A   C2.92    1A
+ <SS3>                       8F   1B   1B   1B   C2.8F    1B
+ <FS>                        1C   1C   1C   1C   1C       1C
+ <GS>                        1D   1D   1D   1D   1D       1D
+ <RS>                        1E   1E   1E   1E   1E       1E
+ <US>                        1F   1F   1F   1F   1F       1F
+ <PAD>                       80   20   20   20   C2.80    20
+ <HOP>                       81   21   21   21   C2.81    21
+ <BPH>                       82   22   22   22   C2.82    22
+ <NBH>                       83   23   23   23   C2.83    23
+ <IND>                       84   24   24   24   C2.84    24
+ <NEL>                       85   15   25   25   C2.85    25     **
+ <ETB>                       17   26   26   26   17       26
+ <ESC>                       1B   27   27   27   1B       27
+ <HTS>                       88   28   28   28   C2.88    28
+ <HTJ>                       89   29   29   29   C2.89    29
+ <VTS>                       8A   2A   2A   2A   C2.8A    2A
+ <PLD>                       8B   2B   2B   2B   C2.8B    2B
+ <PLU>                       8C   2C   2C   2C   C2.8C    2C
+ <ENQ>                       05   2D   2D   2D   05       2D
+ <ACK>                       06   2E   2E   2E   06       2E
+ <BEL>                       07   2F   2F   2F   07       2F
+ <DCS>                       90   30   30   30   C2.90    30
+ <PU1>                       91   31   31   31   C2.91    31
+ <SYN>                       16   32   32   32   16       32
+ <STS>                       93   33   33   33   C2.93    33
+ <CCH>                       94   34   34   34   C2.94    34
+ <MW>                        95   35   35   35   C2.95    35
+ <SPA>                       96   36   36   36   C2.96    36
+ <EOT>                       04   37   37   37   04       37
+ <SOS>                       98   38   38   38   C2.98    38
+ <SGC>                       99   39   39   39   C2.99    39
+ <SCI>                       9A   3A   3A   3A   C2.9A    3A
+ <CSI>                       9B   3B   3B   3B   C2.9B    3B
+ <DC4>                       14   3C   3C   3C   14       3C
+ <NAK>                       15   3D   3D   3D   15       3D
+ <PM>                        9E   3E   3E   3E   C2.9E    3E
+ <SUB>                       1A   3F   3F   3F   1A       3F
+ <SPACE>                     20   40   40   40   20       40
+ <NON-BREAKING SPACE>        A0   41   41   41   C2.A0    80.41
+ <a WITH CIRCUMFLEX>         E2   42   42   42   C3.A2    8B.43
+ <a WITH DIAERESIS>          E4   43   43   43   C3.A4    8B.45
+ <a WITH GRAVE>              E0   44   44   44   C3.A0    8B.41
+ <a WITH ACUTE>              E1   45   45   45   C3.A1    8B.42
+ <a WITH TILDE>              E3   46   46   46   C3.A3    8B.44
+ <a WITH RING ABOVE>         E5   47   47   47   C3.A5    8B.46
+ <c WITH CEDILLA>            E7   48   48   48   C3.A7    8B.48
+ <n WITH TILDE>              F1   49   49   49   C3.B1    8B.58
+ <CENT SIGN>                 A2   4A   4A   B0   C2.A2    80.43  ##
+ .                           2E   4B   4B   4B   2E       4B
+ <                           3C   4C   4C   4C   3C       4C
+ (                           28   4D   4D   4D   28       4D
+ +                           2B   4E   4E   4E   2B       4E
+ |                           7C   4F   4F   4F   7C       4F
+ &                           26   50   50   50   26       50
+ <e WITH ACUTE>              E9   51   51   51   C3.A9    8B.4A
+ <e WITH CIRCUMFLEX>         EA   52   52   52   C3.AA    8B.51
+ <e WITH DIAERESIS>          EB   53   53   53   C3.AB    8B.52
+ <e WITH GRAVE>              E8   54   54   54   C3.A8    8B.49
+ <i WITH ACUTE>              ED   55   55   55   C3.AD    8B.54
+ <i WITH CIRCUMFLEX>         EE   56   56   56   C3.AE    8B.55
+ <i WITH DIAERESIS>          EF   57   57   57   C3.AF    8B.56
+ <i WITH GRAVE>              EC   58   58   58   C3.AC    8B.53
+ <SMALL LETTER SHARP S>      DF   59   59   59   C3.9F    8A.73
+ !                           21   5A   5A   5A   21       5A
+ $                           24   5B   5B   5B   24       5B
+ *                           2A   5C   5C   5C   2A       5C
+ )                           29   5D   5D   5D   29       5D
+ ;                           3B   5E   5E   5E   3B       5E
+ ^                           5E   B0   5F   6A   5E       5F     ** ##
+ -                           2D   60   60   60   2D       60
+ /                           2F   61   61   61   2F       61
+ <A WITH CIRCUMFLEX>         C2   62   62   62   C3.82    8A.43
+ <A WITH DIAERESIS>          C4   63   63   63   C3.84    8A.45
+ <A WITH GRAVE>              C0   64   64   64   C3.80    8A.41
+ <A WITH ACUTE>              C1   65   65   65   C3.81    8A.42
+ <A WITH TILDE>              C3   66   66   66   C3.83    8A.44
+ <A WITH RING ABOVE>         C5   67   67   67   C3.85    8A.46
+ <C WITH CEDILLA>            C7   68   68   68   C3.87    8A.48
+ <N WITH TILDE>              D1   69   69   69   C3.91    8A.58
+ <BROKEN BAR>                A6   6A   6A   D0   C2.A6    80.47  ##
+ ,                           2C   6B   6B   6B   2C       6B
+ %                           25   6C   6C   6C   25       6C
+ _                           5F   6D   6D   6D   5F       6D
+ >                           3E   6E   6E   6E   3E       6E
+ ?                           3F   6F   6F   6F   3F       6F
+ <o WITH STROKE>             F8   70   70   70   C3.B8    8B.67
+ <E WITH ACUTE>              C9   71   71   71   C3.89    8A.4A
+ <E WITH CIRCUMFLEX>         CA   72   72   72   C3.8A    8A.51
+ <E WITH DIAERESIS>          CB   73   73   73   C3.8B    8A.52
+ <E WITH GRAVE>              C8   74   74   74   C3.88    8A.49
+ <I WITH ACUTE>              CD   75   75   75   C3.8D    8A.54
+ <I WITH CIRCUMFLEX>         CE   76   76   76   C3.8E    8A.55
+ <I WITH DIAERESIS>          CF   77   77   77   C3.8F    8A.56
+ <I WITH GRAVE>              CC   78   78   78   C3.8C    8A.53
+ `                           60   79   79   4A   60       79     ##
+ :                           3A   7A   7A   7A   3A       7A
+ #                           23   7B   7B   7B   23       7B
+ @                           40   7C   7C   7C   40       7C
+ '                           27   7D   7D   7D   27       7D
+ =                           3D   7E   7E   7E   3D       7E
+ "                           22   7F   7F   7F   22       7F
+ <O WITH STROKE>             D8   80   80   80   C3.98    8A.67
+ a                           61   81   81   81   61       81
+ b                           62   82   82   82   62       82
+ c                           63   83   83   83   63       83
+ d                           64   84   84   84   64       84
+ e                           65   85   85   85   65       85
+ f                           66   86   86   86   66       86
+ g                           67   87   87   87   67       87
+ h                           68   88   88   88   68       88
+ i                           69   89   89   89   69       89
+ <LEFT POINTING GUILLEMET>   AB   8A   8A   8A   C2.AB    80.52
+ <RIGHT POINTING GUILLEMET>  BB   8B   8B   8B   C2.BB    80.6A
+ <SMALL LETTER eth>          F0   8C   8C   8C   C3.B0    8B.57
+ <y WITH ACUTE>              FD   8D   8D   8D   C3.BD    8B.71
+ <SMALL LETTER thorn>        FE   8E   8E   8E   C3.BE    8B.72
+ <PLUS-OR-MINUS SIGN>        B1   8F   8F   8F   C2.B1    80.58
+ <DEGREE SIGN>               B0   90   90   90   C2.B0    80.57
+ j                           6A   91   91   91   6A       91
+ k                           6B   92   92   92   6B       92
+ l                           6C   93   93   93   6C       93
+ m                           6D   94   94   94   6D       94
+ n                           6E   95   95   95   6E       95
+ o                           6F   96   96   96   6F       96
+ p                           70   97   97   97   70       97
+ q                           71   98   98   98   71       98
+ r                           72   99   99   99   72       99
+ <FEMININE ORDINAL>          AA   9A   9A   9A   C2.AA    80.51
+ <MASC. ORDINAL INDICATOR>   BA   9B   9B   9B   C2.BA    80.69
+ <SMALL LIGATURE ae>         E6   9C   9C   9C   C3.A6    8B.47
+ <CEDILLA>                   B8   9D   9D   9D   C2.B8    80.67
+ <CAPITAL LIGATURE AE>       C6   9E   9E   9E   C3.86    8A.47
+ <CURRENCY SIGN>             A4   9F   9F   9F   C2.A4    80.45
+ <MICRO SIGN>                B5   A0   A0   A0   C2.B5    80.64
+ ~                           7E   A1   A1   FF   7E       A1     ##
+ s                           73   A2   A2   A2   73       A2
+ t                           74   A3   A3   A3   74       A3
+ u                           75   A4   A4   A4   75       A4
+ v                           76   A5   A5   A5   76       A5
+ w                           77   A6   A6   A6   77       A6
+ x                           78   A7   A7   A7   78       A7
+ y                           79   A8   A8   A8   79       A8
+ z                           7A   A9   A9   A9   7A       A9
+ <INVERTED "!" >             A1   AA   AA   AA   C2.A1    80.42
+ <INVERTED QUESTION MARK>    BF   AB   AB   AB   C2.BF    80.73
+ <CAPITAL LETTER ETH>        D0   AC   AC   AC   C3.90    8A.57
+ [                           5B   BA   AD   BB   5B       AD     ** ##
+ <CAPITAL LETTER THORN>      DE   AE   AE   AE   C3.9E    8A.72
+ <REGISTERED TRADE MARK>     AE   AF   AF   AF   C2.AE    80.55
+ <NOT SIGN>                  AC   5F   B0   BA   C2.AC    80.53  ** ##
+ <POUND SIGN>                A3   B1   B1   B1   C2.A3    80.44
+ <YEN SIGN>                  A5   B2   B2   B2   C2.A5    80.46
+ <MIDDLE DOT>                B7   B3   B3   B3   C2.B7    80.66
+ <COPYRIGHT SIGN>            A9   B4   B4   B4   C2.A9    80.4A
+ <SECTION SIGN>              A7   B5   B5   B5   C2.A7    80.48
+ <PARAGRAPH SIGN>            B6   B6   B6   B6   C2.B6    80.65
+ <FRACTION ONE QUARTER>      BC   B7   B7   B7   C2.BC    80.70
+ <FRACTION ONE HALF>         BD   B8   B8   B8   C2.BD    80.71
+ <FRACTION THREE QUARTERS>   BE   B9   B9   B9   C2.BE    80.72
+ <Y WITH ACUTE>              DD   AD   BA   AD   C3.9D    8A.71  ** ##
+ <DIAERESIS>                 A8   BD   BB   79   C2.A8    80.49  ** ##
+ <MACRON>                    AF   BC   BC   A1   C2.AF    80.56  ##
+ ]                           5D   BB   BD   BD   5D       BD     **
+ <ACUTE ACCENT>              B4   BE   BE   BE   C2.B4    80.63
+ <MULTIPLICATION SIGN>       D7   BF   BF   BF   C3.97    8A.66
+ {                           7B   C0   C0   FB   7B       C0     ##
+ A                           41   C1   C1   C1   41       C1
+ B                           42   C2   C2   C2   42       C2
+ C                           43   C3   C3   C3   43       C3
+ D                           44   C4   C4   C4   44       C4
+ E                           45   C5   C5   C5   45       C5
+ F                           46   C6   C6   C6   46       C6
+ G                           47   C7   C7   C7   47       C7
+ H                           48   C8   C8   C8   48       C8
+ I                           49   C9   C9   C9   49       C9
+ <SOFT HYPHEN>               AD   CA   CA   CA   C2.AD    80.54
+ <o WITH CIRCUMFLEX>         F4   CB   CB   CB   C3.B4    8B.63
+ <o WITH DIAERESIS>          F6   CC   CC   CC   C3.B6    8B.65
+ <o WITH GRAVE>              F2   CD   CD   CD   C3.B2    8B.59
+ <o WITH ACUTE>              F3   CE   CE   CE   C3.B3    8B.62
+ <o WITH TILDE>              F5   CF   CF   CF   C3.B5    8B.64
+ }                           7D   D0   D0   FD   7D       D0     ##
+ J                           4A   D1   D1   D1   4A       D1
+ K                           4B   D2   D2   D2   4B       D2
+ L                           4C   D3   D3   D3   4C       D3
+ M                           4D   D4   D4   D4   4D       D4
+ N                           4E   D5   D5   D5   4E       D5
+ O                           4F   D6   D6   D6   4F       D6
+ P                           50   D7   D7   D7   50       D7
+ Q                           51   D8   D8   D8   51       D8
+ R                           52   D9   D9   D9   52       D9
+ <SUPERSCRIPT ONE>           B9   DA   DA   DA   C2.B9    80.68
+ <u WITH CIRCUMFLEX>         FB   DB   DB   DB   C3.BB    8B.6A
+ <u WITH DIAERESIS>          FC   DC   DC   DC   C3.BC    8B.70
+ <u WITH GRAVE>              F9   DD   DD   C0   C3.B9    8B.68  ##
+ <u WITH ACUTE>              FA   DE   DE   DE   C3.BA    8B.69
+ <y WITH DIAERESIS>          FF   DF   DF   DF   C3.BF    8B.73
+ \                           5C   E0   E0   BC   5C       E0     ##
+ <DIVISION SIGN>             F7   E1   E1   E1   C3.B7    8B.66
+ S                           53   E2   E2   E2   53       E2
+ T                           54   E3   E3   E3   54       E3
+ U                           55   E4   E4   E4   55       E4
+ V                           56   E5   E5   E5   56       E5
+ W                           57   E6   E6   E6   57       E6
+ X                           58   E7   E7   E7   58       E7
+ Y                           59   E8   E8   E8   59       E8
+ Z                           5A   E9   E9   E9   5A       E9
+ <SUPERSCRIPT TWO>           B2   EA   EA   EA   C2.B2    80.59
+ <O WITH CIRCUMFLEX>         D4   EB   EB   EB   C3.94    8A.63
+ <O WITH DIAERESIS>          D6   EC   EC   EC   C3.96    8A.65
+ <O WITH GRAVE>              D2   ED   ED   ED   C3.92    8A.59
+ <O WITH ACUTE>              D3   EE   EE   EE   C3.93    8A.62
+ <O WITH TILDE>              D5   EF   EF   EF   C3.95    8A.64
+ 0                           30   F0   F0   F0   30       F0
+ 1                           31   F1   F1   F1   31       F1
+ 2                           32   F2   F2   F2   32       F2
+ 3                           33   F3   F3   F3   33       F3
+ 4                           34   F4   F4   F4   34       F4
+ 5                           35   F5   F5   F5   35       F5
+ 6                           36   F6   F6   F6   36       F6
+ 7                           37   F7   F7   F7   37       F7
+ 8                           38   F8   F8   F8   38       F8
+ 9                           39   F9   F9   F9   39       F9
+ <SUPERSCRIPT THREE>         B3   FA   FA   FA   C2.B3    80.62
+ <U WITH CIRCUMFLEX>         DB   FB   FB   DD   C3.9B    8A.6A  ##
+ <U WITH DIAERESIS>          DC   FC   FC   FC   C3.9C    8A.70
+ <U WITH GRAVE>              D9   FD   FD   E0   C3.99    8A.68  ##
+ <U WITH ACUTE>              DA   FE   FE   FE   C3.9A    8A.69
+ <APC>                       9F   FF   FF   5F   C2.9F    FF     ##
+
+=head1 IDENTIFYING CHARACTER CODE SETS
+
+It is possible to determine which character set you are operating under.
+But first you need to be really really sure you need to do this.  Your
+code will be simpler and probably just as portable if you don't have
+to test the character set and do different things, depending.  There are
+actually only very few circumstances where it's not easy to write
+straight-line code portable to all character sets.  See
+L<perluniintro/Unicode and EBCDIC> for how to portably specify
+characters.
+
+But there are some cases where you may want to know which character set
+you are running under.  One possible example is doing
+L<sorting|/SORTING> in inner loops where performance is critical.
+
+To determine if you are running under ASCII or EBCDIC, you can use the
+return value of C<ord()> or C<chr()> to test one or more character
+values.  For example:
+
+    $is_ascii  = "A" eq chr(65);
+    $is_ebcdic = "A" eq chr(193);
+    $is_ascii  = ord("A") == 65;
+    $is_ebcdic = ord("A") == 193;
+
+There's even less need to distinguish between EBCDIC code pages, but to
+do so try looking at one or more of the characters that differ between
+them.
+
+    $is_ascii           = ord('[') == 91;
+    $is_ebcdic_37       = ord('[') == 186;
+    $is_ebcdic_1047     = ord('[') == 173;
+    $is_ebcdic_POSIX_BC = ord('[') == 187;
+
+However, it would be unwise to write tests such as:
+
+    $is_ascii = "\r" ne chr(13);  #  WRONG
+    $is_ascii = "\n" ne chr(10);  #  ILL ADVISED
+
+Obviously the first of these will fail to distinguish most ASCII
+platforms from either a CCSID 0037, a 1047, or a POSIX-BC EBCDIC
+platform since S<C<"\r" eq chr(13)>> under all of those coded character
+sets.  But note too that because C<"\n"> is C<chr(13)> and C<"\r"> is
+C<chr(10)> on old Macintosh (which is an ASCII platform) the second
+C<$is_ascii> test will lead to trouble there.
+
+To determine whether or not perl was built under an EBCDIC
+code page you can use the Config module like so:
+
+    use Config;
+    $is_ebcdic = $Config{'ebcdic'} eq 'define';
+
+=head1 CONVERSIONS
+
+=head2 C<utf8::unicode_to_native()> and C<utf8::native_to_unicode()>
+
+These functions take an input numeric code point in one encoding and
+return what its equivalent value is in the other.
+
+See L<utf8>.
+
+=head2 tr///
+
+In order to convert a string of characters from one character set to
+another a simple list of numbers, such as in the right columns in the
+above table, along with Perl's C<tr///> operator is all that is needed.
+The data in the table are in ASCII/Latin1 order, hence the EBCDIC columns
+provide easy-to-use ASCII/Latin1 to EBCDIC operations that are also easily
+reversed.
+
+For example, to convert ASCII/Latin1 to code page 037 take the output of the
+second numbers column from the output of recipe 2 (modified to add
+C<"\"> characters), and use it in C<tr///> like so:
+
+    $cp_037 =
+    '\x00\x01\x02\x03\x37\x2D\x2E\x2F\x16\x05\x25\x0B\x0C\x0D\x0E\x0F' .
+    '\x10\x11\x12\x13\x3C\x3D\x32\x26\x18\x19\x3F\x27\x1C\x1D\x1E\x1F' .
+    '\x40\x5A\x7F\x7B\x5B\x6C\x50\x7D\x4D\x5D\x5C\x4E\x6B\x60\x4B\x61' .
+    '\xF0\xF1\xF2\xF3\xF4\xF5\xF6\xF7\xF8\xF9\x7A\x5E\x4C\x7E\x6E\x6F' .
+    '\x7C\xC1\xC2\xC3\xC4\xC5\xC6\xC7\xC8\xC9\xD1\xD2\xD3\xD4\xD5\xD6' .
+    '\xD7\xD8\xD9\xE2\xE3\xE4\xE5\xE6\xE7\xE8\xE9\xBA\xE0\xBB\xB0\x6D' .
+    '\x79\x81\x82\x83\x84\x85\x86\x87\x88\x89\x91\x92\x93\x94\x95\x96' .
+    '\x97\x98\x99\xA2\xA3\xA4\xA5\xA6\xA7\xA8\xA9\xC0\x4F\xD0\xA1\x07' .
+    '\x20\x21\x22\x23\x24\x15\x06\x17\x28\x29\x2A\x2B\x2C\x09\x0A\x1B' .
+    '\x30\x31\x1A\x33\x34\x35\x36\x08\x38\x39\x3A\x3B\x04\x14\x3E\xFF' .
+    '\x41\xAA\x4A\xB1\x9F\xB2\x6A\xB5\xBD\xB4\x9A\x8A\x5F\xCA\xAF\xBC' .
+    '\x90\x8F\xEA\xFA\xBE\xA0\xB6\xB3\x9D\xDA\x9B\x8B\xB7\xB8\xB9\xAB' .
+    '\x64\x65\x62\x66\x63\x67\x9E\x68\x74\x71\x72\x73\x78\x75\x76\x77' .
+    '\xAC\x69\xED\xEE\xEB\xEF\xEC\xBF\x80\xFD\xFE\xFB\xFC\xAD\xAE\x59' .
+    '\x44\x45\x42\x46\x43\x47\x9C\x48\x54\x51\x52\x53\x58\x55\x56\x57' .
+    '\x8C\x49\xCD\xCE\xCB\xCF\xCC\xE1\x70\xDD\xDE\xDB\xDC\x8D\x8E\xDF';
+
+    my $ebcdic_string = $ascii_string;
+    eval '$ebcdic_string =~ tr/\000-\377/' . $cp_037 . '/';
+
+To convert from EBCDIC 037 to ASCII just reverse the order of the tr///
+arguments like so:
+
+    my $ascii_string = $ebcdic_string;
+    eval '$ascii_string =~ tr/' . $cp_037 . '/\000-\377/';
+
+Similarly one could take the output of the third numbers column from recipe 2
+to obtain a C<$cp_1047> table.  The fourth numbers column of the output from
+recipe 2 could provide a C<$cp_posix_bc> table suitable for transcoding as
+well.
+
+If you wanted to see the inverse tables, you would first have to sort on the
+desired numbers column as in recipes 4, 5 or 6, then take the output of the
+first numbers column.
+
+=head2 iconv
+
+XPG operability often implies the presence of an I<iconv> utility
+available from the shell or from the C library.  Consult your system's
+documentation for information on iconv.
+
+On OS/390 or z/OS see the L<iconv(1)> manpage.  One way to invoke the C<iconv>
+shell utility from within perl would be to:
+
+    # OS/390 or z/OS example
+    $ascii_data = `echo '$ebcdic_data'| iconv -f IBM-1047 -t ISO8859-1`
+
+or the inverse map:
+
+    # OS/390 or z/OS example
+    $ebcdic_data = `echo '$ascii_data'| iconv -f ISO8859-1 -t IBM-1047`
+
+For other Perl-based conversion options see the C<Convert::*> modules on CPAN.
+
+=head2 C RTL
+
+The OS/390 and z/OS C run-time libraries provide C<_atoe()> and C<_etoa()> functions.
+
+=head1 OPERATOR DIFFERENCES
+
+The C<..> range operator treats certain character ranges with
+care on EBCDIC platforms.  For example the following array
+will have twenty six elements on either an EBCDIC platform
+or an ASCII platform:
+
+    @alphabet = ('A'..'Z');   #  $#alphabet == 25
+
+The bitwise operators such as & ^ | may return different results
+when operating on string or character data in a Perl program running
+on an EBCDIC platform than when run on an ASCII platform.  Here is
+an example adapted from the one in L<perlop>:
+
+    # EBCDIC-based examples
+    print "j p \n" ^ " a h";                      # prints "JAPH\n"
+    print "JA" | "  ph\n";                        # prints "japh\n"
+    print "JAPH\nJunk" & "\277\277\277\277\277";  # prints "japh\n";
+    print 'p N$' ^ " E<H\n";                      # prints "Perl\n";
+
+An interesting property of the 32 C0 control characters
+in the ASCII table is that they can "literally" be constructed
+as control characters in Perl, e.g. C<(chr(0)> eq C<\c@>)>
+C<(chr(1)> eq C<\cA>)>, and so on.  Perl on EBCDIC platforms has been
+ported to take C<\c@> to C<chr(0)> and C<\cA> to C<chr(1)>, etc. as well, but the
+characters that result depend on which code page you are
+using.  The table below uses the standard acronyms for the controls.
+The POSIX-BC and 1047 sets are
+identical throughout this range and differ from the 0037 set at only
+one spot (21 decimal).  Note that the line terminator character
+may be generated by C<\cJ> on ASCII platforms but by C<\cU> on 1047 or POSIX-BC
+platforms and cannot be generated as a C<"\c.letter."> control character on
+0037 platforms.  Note also that C<\c\> cannot be the final element in a string
+or regex, as it will absorb the terminator.   But C<\c\I<X>> is a C<FILE
+SEPARATOR> concatenated with I<X> for all I<X>.
+The outlier C<\c?> on ASCII, which yields a non-C0 control C<DEL>,
+yields the outlier control C<APC> on EBCDIC, the one that isn't in the
+block of contiguous controls.  Note that a subtlety of this is that
+C<\c?> on ASCII platforms is an ASCII character, while it isn't
+equivalent to any ASCII character in EBCDIC platforms.
+
+ chr   ord   8859-1    0037    1047 && POSIX-BC
+ -----------------------------------------------------------------------
+ \c@     0   <NUL>     <NUL>        <NUL>
+ \cA     1   <SOH>     <SOH>        <SOH>
+ \cB     2   <STX>     <STX>        <STX>
+ \cC     3   <ETX>     <ETX>        <ETX>
+ \cD     4   <EOT>     <ST>         <ST>
+ \cE     5   <ENQ>     <HT>         <HT>
+ \cF     6   <ACK>     <SSA>        <SSA>
+ \cG     7   <BEL>     <DEL>        <DEL>
+ \cH     8   <BS>      <EPA>        <EPA>
+ \cI     9   <HT>      <RI>         <RI>
+ \cJ    10   <LF>      <SS2>        <SS2>
+ \cK    11   <VT>      <VT>         <VT>
+ \cL    12   <FF>      <FF>         <FF>
+ \cM    13   <CR>      <CR>         <CR>
+ \cN    14   <SO>      <SO>         <SO>
+ \cO    15   <SI>      <SI>         <SI>
+ \cP    16   <DLE>     <DLE>        <DLE>
+ \cQ    17   <DC1>     <DC1>        <DC1>
+ \cR    18   <DC2>     <DC2>        <DC2>
+ \cS    19   <DC3>     <DC3>        <DC3>
+ \cT    20   <DC4>     <OSC>        <OSC>
+ \cU    21   <NAK>     <NEL>        <LF>              **
+ \cV    22   <SYN>     <BS>         <BS>
+ \cW    23   <ETB>     <ESA>        <ESA>
+ \cX    24   <CAN>     <CAN>        <CAN>
+ \cY    25   <EOM>     <EOM>        <EOM>
+ \cZ    26   <SUB>     <PU2>        <PU2>
+ \c[    27   <ESC>     <SS3>        <SS3>
+ \c\X   28   <FS>X     <FS>X        <FS>X
+ \c]    29   <GS>      <GS>         <GS>
+ \c^    30   <RS>      <RS>         <RS>
+ \c_    31   <US>      <US>         <US>
+ \c?    *    <DEL>     <APC>        <APC>
+
+C<*> Note: C<\c?> maps to ordinal 127 (C<DEL>) on ASCII platforms, but
+since ordinal 127 is a not a control character on EBCDIC machines,
+C<\c?> instead maps on them to C<APC>, which is 255 in 0037 and 1047,
+and 95 in POSIX-BC.
+
+=head1 FUNCTION DIFFERENCES
+
+=over 8
+
+=item C<chr()>
+
+C<chr()> must be given an EBCDIC code number argument to yield a desired
+character return value on an EBCDIC platform.  For example:
+
+    $CAPITAL_LETTER_A = chr(193);
+
+=item C<ord()>
+
+C<ord()> will return EBCDIC code number values on an EBCDIC platform.
+For example:
+
+    $the_number_193 = ord("A");
+
+=item C<pack()>
+
+
+The C<"c"> and C<"C"> templates for C<pack()> are dependent upon character set
+encoding.  Examples of usage on EBCDIC include:
+
+    $foo = pack("CCCC",193,194,195,196);
+    # $foo eq "ABCD"
+    $foo = pack("C4",193,194,195,196);
+    # same thing
+
+    $foo = pack("ccxxcc",193,194,195,196);
+    # $foo eq "AB\0\0CD"
+
+The C<"U"> template has been ported to mean "Unicode" on all platforms so
+that
+
+    pack("U", 65) eq 'A'
+
+is true on all platforms.  If you want native code points for the low
+256, use the C<"W"> template.  This means that the equivalences
+
+    pack("W", ord($character)) eq $character
+    unpack("W", $character) == ord $character
+
+will hold.
+
+=item C<print()>
+
+One must be careful with scalars and strings that are passed to
+print that contain ASCII encodings.  One common place
+for this to occur is in the output of the MIME type header for
+CGI script writing.  For example, many Perl programming guides
+recommend something similar to:
+
+    print "Content-type:\ttext/html\015\012\015\012";
+    # this may be wrong on EBCDIC
+
+You can instead write
+
+    print "Content-type:\ttext/html\r\n\r\n"; # OK for DGW et al
+
+and have it work portably.
+
+That is because the translation from EBCDIC to ASCII is done
+by the web server in this case.  Consult your web server's documentation for
+further details.
+
+=item C<printf()>
+
+The formats that can convert characters to numbers and vice versa
+will be different from their ASCII counterparts when executed
+on an EBCDIC platform.  Examples include:
+
+    printf("%c%c%c",193,194,195);  # prints ABC
+
+=item C<sort()>
+
+EBCDIC sort results may differ from ASCII sort results especially for
+mixed case strings.  This is discussed in more detail L<below|/SORTING>.
+
+=item C<sprintf()>
+
+See the discussion of C<L</printf()>> above.  An example of the use
+of sprintf would be:
+
+    $CAPITAL_LETTER_A = sprintf("%c",193);
+
+=item C<unpack()>
+
+See the discussion of C<L</pack()>> above.
+
+=back
+
+Note that it is possible to write portable code for these by specifying
+things in Unicode numbers, and using a conversion function:
+
+    printf("%c",utf8::unicode_to_native(65));  # prints A on all
+                                               # platforms
+    print utf8::native_to_unicode(ord("A"));   # Likewise, prints 65
+
+See L<perluniintro/Unicode and EBCDIC> and L</CONVERSIONS>
+for other options.
+
+=head1 REGULAR EXPRESSION DIFFERENCES
+
+You can write your regular expressions just like someone on an ASCII
+platform would do.  But keep in mind that using octal or hex notation to
+specify a particular code point will give you the character that the
+EBCDIC code page natively maps to it.   (This is also true of all
+double-quoted strings.)  If you want to write portably, just use the
+C<\N{U+...}> notation everywhere where you would have used C<\x{...}>,
+and don't use octal notation at all.
+
+Starting in Perl v5.22, this applies to ranges in bracketed character
+classes.  If you say, for example, C<qr/[\N{U+20}-\N{U+7F}]/>, it means
+the characters C<\N{U+20}>, C<\N{U+21}>, ..., C<\N{U+7F}>.  This range
+is all the printable characters that the ASCII character set contains.
+
+Prior to v5.22, you couldn't specify any ranges portably, except
+(starting in Perl v5.5.3) all subsets of the C<[A-Z]> and C<[a-z]>
+ranges are specially coded to not pick up gap characters.  For example,
+characters such as "E<ocirc>" (C<o WITH CIRCUMFLEX>) that lie between
+"I" and "J" would not be matched by the regular expression range
+C</[H-K]/>.  But if either of the range end points is explicitly numeric
+(and neither is specified by C<\N{U+...}>), the gap characters are
+matched:
+
+    /[\x89-\x91]/
+
+will match C<\x8e>, even though C<\x89> is "i" and C<\x91 > is "j",
+and C<\x8e> is a gap character, from the alphabetic viewpoint.
+
+Another construct to be wary of is the inappropriate use of hex (unless
+you use C<\N{U+...}>) or
+octal constants in regular expressions.  Consider the following
+set of subs:
+
+    sub is_c0 {
+        my $char = substr(shift,0,1);
+        $char =~ /[\000-\037]/;
+    }
+
+    sub is_print_ascii {
+        my $char = substr(shift,0,1);
+        $char =~ /[\040-\176]/;
+    }
+
+    sub is_delete {
+        my $char = substr(shift,0,1);
+        $char eq "\177";
+    }
+
+    sub is_c1 {
+        my $char = substr(shift,0,1);
+        $char =~ /[\200-\237]/;
+    }
+
+    sub is_latin_1 {    # But not ASCII; not C1
+        my $char = substr(shift,0,1);
+        $char =~ /[\240-\377]/;
+    }
+
+These are valid only on ASCII platforms.  Starting in Perl v5.22, simply
+changing the octal constants to equivalent C<\N{U+...}> values makes
+them portable:
+
+    sub is_c0 {
+        my $char = substr(shift,0,1);
+        $char =~ /[\N{U+00}-\N{U+1F}]/;
+    }
+
+    sub is_print_ascii {
+        my $char = substr(shift,0,1);
+        $char =~ /[\N{U+20}-\N{U+7E}]/;
+    }
+
+    sub is_delete {
+        my $char = substr(shift,0,1);
+        $char eq "\N{U+7F}";
+    }
+
+    sub is_c1 {
+        my $char = substr(shift,0,1);
+        $char =~ /[\N{U+80}-\N{U+9F}]/;
+    }
+
+    sub is_latin_1 {    # But not ASCII; not C1
+        my $char = substr(shift,0,1);
+        $char =~ /[\N{U+A0}-\N{U+FF}]/;
+    }
+
+And here are some alternative portable ways to write them:
+
+    sub Is_c0 {
+        my $char = substr(shift,0,1);
+        return $char =~ /[[:cntrl:]]/a && ! Is_delete($char);
+
+        # Alternatively:
+        # return $char =~ /[[:cntrl:]]/
+        #        && $char =~ /[[:ascii:]]/
+        #        && ! Is_delete($char);
+    }
+
+    sub Is_print_ascii {
+        my $char = substr(shift,0,1);
+
+        return $char =~ /[[:print:]]/a;
+
+        # Alternatively:
+        # return $char =~ /[[:print:]]/ && $char =~ /[[:ascii:]]/;
+
+        # Or
+        # return $char
+        #      =~ /[ !"\#\$%&'()*+,\-.\/0-9:;<=>?\@A-Z[\\\]^_`a-z{|}~]/;
+    }
+
+    sub Is_delete {
+        my $char = substr(shift,0,1);
+        return utf8::native_to_unicode(ord $char) == 0x7F;
+    }
+
+    sub Is_c1 {
+        use feature 'unicode_strings';
+        my $char = substr(shift,0,1);
+        return $char =~ /[[:cntrl:]]/ && $char !~ /[[:ascii:]]/;
+    }
+
+    sub Is_latin_1 {    # But not ASCII; not C1
+        use feature 'unicode_strings';
+        my $char = substr(shift,0,1);
+        return ord($char) < 256
+               && $char !~ /[[:ascii:]]/
+               && $char !~ /[[:cntrl:]]/;
+    }
+
+Another way to write C<Is_latin_1()> would be
+to use the characters in the range explicitly:
+
+    sub Is_latin_1 {
+        my $char = substr(shift,0,1);
+        $char =~ /[ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿À�ÂÃÄÅÆÇÈÉÊËÌ�Î�]
+                  [�ÑÒÓÔÕÖ×ØÙÚÛÜ�Þßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ]/x;
+    }
+
+Although that form may run into trouble in network transit (due to the
+presence of 8 bit characters) or on non ISO-Latin character sets.  But
+it does allow C<Is_c1> to be rewritten so it works on Perls that don't
+have C<'unicode_strings'> (earlier than v5.14):
+
+    sub Is_latin_1 {    # But not ASCII; not C1
+        my $char = substr(shift,0,1);
+        return ord($char) < 256
+               && $char !~ /[[:ascii:]]/
+               && ! Is_latin1($char);
+    }
+
+=head1 SOCKETS
+
+Most socket programming assumes ASCII character encodings in network
+byte order.  Exceptions can include CGI script writing under a
+host web server where the server may take care of translation for you.
+Most host web servers convert EBCDIC data to ISO-8859-1 or Unicode on
+output.
+
+=head1 SORTING
+
+One big difference between ASCII-based character sets and EBCDIC ones
+are the relative positions of the characters when sorted in native
+order.  Of most concern are the upper- and lowercase letters, the
+digits, and the underscore (C<"_">).  On ASCII platforms the native sort
+order has the digits come before the uppercase letters which come before
+the underscore which comes before the lowercase letters.  On EBCDIC, the
+underscore comes first, then the lowercase letters, then the uppercase
+ones, and the digits last.  If sorted on an ASCII-based platform, the
+two-letter abbreviation for a physician comes before the two letter
+abbreviation for drive; that is:
+
+ @sorted = sort(qw(Dr. dr.));  # @sorted holds ('Dr.','dr.') on ASCII,
+                                  # but ('dr.','Dr.') on EBCDIC
+
+The property of lowercase before uppercase letters in EBCDIC is
+even carried to the Latin 1 EBCDIC pages such as 0037 and 1047.
+An example would be that "E<Euml>" (C<E WITH DIAERESIS>, 203) comes
+before "E<euml>" (C<e WITH DIAERESIS>, 235) on an ASCII platform, but
+the latter (83) comes before the former (115) on an EBCDIC platform.
+(Astute readers will note that the uppercase version of "E<szlig>"
+C<SMALL LETTER SHARP S> is simply "SS" and that the upper case versions
+of "E<yuml>" (small C<y WITH DIAERESIS>) and "E<micro>" (C<MICRO SIGN>)
+are not in the 0..255 range but are in Unicode, in a Unicode enabled
+Perl).
+
+The sort order will cause differences between results obtained on
+ASCII platforms versus EBCDIC platforms.  What follows are some suggestions
+on how to deal with these differences.
+
+=head2 Ignore ASCII vs. EBCDIC sort differences.
+
+This is the least computationally expensive strategy.  It may require
+some user education.
+
+=head2 Use a sort helper function
+
+This is completely general, but the most computationally expensive
+strategy.  Choose one or the other character set and transform to that
+for every sort comparision.  Here's a complete example that transforms
+to ASCII sort order:
+
+ sub native_to_uni($) {
+    my $string = shift;
+
+    # Saves time on an ASCII platform
+    return $string if ord 'A' ==  65;
+
+    my $output = "";
+    for my $i (0 .. length($string) - 1) {
+        $output
+           .= chr(utf8::native_to_unicode(ord(substr($string, $i, 1))));
+    }
+
+    # Preserve utf8ness of input onto the output, even if it didn't need
+    # to be utf8
+    utf8::upgrade($output) if utf8::is_utf8($string);
+
+    return $output;
+ }
+
+ sub ascii_order {   # Sort helper
+    return native_to_uni($a) cmp native_to_uni($b);
+ }
+
+ sort ascii_order @list;
+
+=head2 MONO CASE then sort data (for non-digits, non-underscore)
+
+If you don't care about where digits and underscore sort to, you can do
+something like this
+
+ sub case_insensitive_order {   # Sort helper
+    return lc($a) cmp lc($b)
+ }
+
+ sort case_insensitive_order @list;
+
+If performance is an issue, and you don't care if the output is in the
+same case as the input, Use C<tr///> to transform to the case most
+employed within the data.  If the data are primarily UPPERCASE
+non-Latin1, then apply C<tr/[a-z]/[A-Z]/>, and then C<sort()>.  If the
+data are primarily lowercase non Latin1 then apply C<tr/[A-Z]/[a-z]/>
+before sorting.  If the data are primarily UPPERCASE and include Latin-1
+characters then apply:
+
+   tr/[a-z]/[A-Z]/;
+   tr/[àáâãäåæçèéêëìíîïðñòóôõöøùúûüýþ]/[À�ÂÃÄÅÆÇÈÉÊËÌ�Î��ÑÒÓÔÕÖØÙÚÛÜ�Þ/;
+   s/ß/SS/g;
+
+then C<sort()>.  If you have a choice, it's better to lowercase things
+to avoid the problems of the two Latin-1 characters whose uppercase is
+outside Latin-1: "E<yuml>" (small C<y WITH DIAERESIS>) and "E<micro>"
+(C<MICRO SIGN>).  If you do need to upppercase, you can; with a
+Unicode-enabled Perl, do:
+
+    tr/ÿ/\x{178}/;
+    tr/µ/\x{39C}/;
+
+=head2 Perform sorting on one type of platform only.
+
+This strategy can employ a network connection.  As such
+it would be computationally expensive.
+
+=head1 TRANSFORMATION FORMATS
+
+There are a variety of ways of transforming data with an intra character set
+mapping that serve a variety of purposes.  Sorting was discussed in the
+previous section and a few of the other more popular mapping techniques are
+discussed next.
+
+=head2 URL decoding and encoding
+
+Note that some URLs have hexadecimal ASCII code points in them in an
+attempt to overcome character or protocol limitation issues.  For example
+the tilde character is not on every keyboard hence a URL of the form:
+
+    http://www.pvhp.com/~pvhp/
+
+may also be expressed as either of:
+
+    http://www.pvhp.com/%7Epvhp/
+
+    http://www.pvhp.com/%7epvhp/
+
+where 7E is the hexadecimal ASCII code point for "~".  Here is an example
+of decoding such a URL in any EBCDIC code page:
+
+    $url = 'http://www.pvhp.com/%7Epvhp/';
+    $url =~ s/%([0-9a-fA-F]{2})/
+              pack("c",utf8::unicode_to_native(hex($1)))/xge;
+
+Conversely, here is a partial solution for the task of encoding such
+a URL in any EBCDIC code page:
+
+    $url = 'http://www.pvhp.com/~pvhp/';
+    # The following regular expression does not address the
+    # mappings for: ('.' => '%2E', '/' => '%2F', ':' => '%3A')
+    $url =~ s/([\t "#%&\(\),;<=>\?\@\[\\\]^`{|}~])/
+               sprintf("%%%02X",utf8::native_to_unicode(ord($1)))/xge;
+
+where a more complete solution would split the URL into components
+and apply a full s/// substitution only to the appropriate parts.
+
+=head2 uu encoding and decoding
+
+The C<u> template to C<pack()> or C<unpack()> will render EBCDIC data in
+EBCDIC characters equivalent to their ASCII counterparts.  For example,
+the following will print "Yes indeed\n" on either an ASCII or EBCDIC
+computer:
+
+    $all_byte_chrs = '';
+    for (0..255) { $all_byte_chrs .= chr($_); }
+    $uuencode_byte_chrs = pack('u', $all_byte_chrs);
+    ($uu = <<'ENDOFHEREDOC') =~ s/^\s*//gm;
+    M``$"`P0%!@<("0H+#`T.#Q`1$A,4%187&!D:&QP='A\@(2(C)"4F)R@I*BLL
+    M+2XO,#$R,S0U-C<X.3H[/#T^/T!!0D-$149'2$E*2TQ-3D]045)35%565UA9
+    M6EM<75Y?8&%B8V1E9F=H:6IK;&UN;W!Q<G-T=79W>'EZ>WQ]?G^`@8*#A(6&
+    MAXB)BHN,C8Z/D)&2DY25EI>8F9J;G)V>GZ"AHJ.DI::GJ*FJJZRMKJ^PL;*S
+    MM+6VM[BYNKN\O;Z_P,'"P\3%QL?(R<K+S,W.S]#1TM/4U=;7V-G:V]S=WM_@
+    ?X>+CY.7FY^CIZNOL[>[O\/'R\_3U]O?X^?K[_/W^_P``
+    ENDOFHEREDOC
+    if ($uuencode_byte_chrs eq $uu) {
+        print "Yes ";
+    }
+    $uudecode_byte_chrs = unpack('u', $uuencode_byte_chrs);
+    if ($uudecode_byte_chrs eq $all_byte_chrs) {
+        print "indeed\n";
+    }
+
+Here is a very spartan uudecoder that will work on EBCDIC:
+
+    #!/usr/local/bin/perl
+    $_ = <> until ($mode,$file) = /^begin\s*(\d*)\s*(\S*)/;
+    open(OUT, "> $file") if $file ne "";
+    while(<>) {
+        last if /^end/;
+        next if /[a-z]/;
+        next unless int((((utf8::native_to_unicode(ord()) - 32 ) & 077)
+                                                               + 2) / 3)
+                    == int(length() / 4);
+        print OUT unpack("u", $_);
+    }
+    close(OUT);
+    chmod oct($mode), $file;
+
+
+=head2 Quoted-Printable encoding and decoding
+
+On ASCII-encoded platforms it is possible to strip characters outside of
+the printable set using:
+
+    # This QP encoder works on ASCII only
+    $qp_string =~ s/([=\x00-\x1F\x80-\xFF])/
+                    sprintf("=%02X",ord($1))/xge;
+
+Starting in Perl v5.22, this is trivially changeable to work portably on
+both ASCII and EBCDIC platforms.
+
+    # This QP encoder works on both ASCII and EBCDIC
+    $qp_string =~ s/([=\N{U+00}-\N{U+1F}\N{U+80}-\N{U+FF}])/
+                    sprintf("=%02X",ord($1))/xge;
+
+For earlier Perls, a QP encoder that works on both ASCII and EBCDIC
+platforms would look somewhat like the following:
+
+    $delete = utf8::unicode_to_native(ord("\x7F"));
+    $qp_string =~
+      s/([^[:print:]$delete])/
+         sprintf("=%02X",utf8::native_to_unicode(ord($1)))/xage;
+
+(although in production code the substitutions might be done
+in the EBCDIC branch with the function call and separately in the
+ASCII branch without the expense of the identity map; in Perl v5.22, the
+identity map is optimized out so there is no expense, but the
+alternative above is simpler and is also available in v5.22).
+
+Such QP strings can be decoded with:
+
+    # This QP decoder is limited to ASCII only
+    $string =~ s/=([[:xdigit:][[:xdigit:])/chr hex $1/ge;
+    $string =~ s/=[\n\r]+$//;
+
+Whereas a QP decoder that works on both ASCII and EBCDIC platforms
+would look somewhat like the following:
+
+    $string =~ s/=([[:xdigit:][:xdigit:]])/
+                                chr utf8::native_to_unicode(hex $1)/xge;
+    $string =~ s/=[\n\r]+$//;
+
+=head2 Caesarean ciphers
+
+The practice of shifting an alphabet one or more characters for encipherment
+dates back thousands of years and was explicitly detailed by Gaius Julius
+Caesar in his B<Gallic Wars> text.  A single alphabet shift is sometimes
+referred to as a rotation and the shift amount is given as a number $n after
+the string 'rot' or "rot$n".  Rot0 and rot26 would designate identity maps
+on the 26-letter English version of the Latin alphabet.  Rot13 has the
+interesting property that alternate subsequent invocations are identity maps
+(thus rot13 is its own non-trivial inverse in the group of 26 alphabet
+rotations).  Hence the following is a rot13 encoder and decoder that will
+work on ASCII and EBCDIC platforms:
+
+    #!/usr/local/bin/perl
+
+    while(<>){
+        tr/n-za-mN-ZA-M/a-zA-Z/;
+        print;
+    }
+
+In one-liner form:
+
+    perl -ne 'tr/n-za-mN-ZA-M/a-zA-Z/;print'
+
+
+=head1 Hashing order and checksums
+
+Perl deliberately randomizes hash order for security purposes on both
+ASCII and EBCDIC platforms.
+
+EBCDIC checksums will differ for the same file translated into ASCII
+and vice versa.
+
+=head1 I18N AND L10N
+
+Internationalization (I18N) and localization (L10N) are supported at least
+in principle even on EBCDIC platforms.  The details are system-dependent
+and discussed under the L<OS ISSUES> section below.
+
+=head1 MULTI-OCTET CHARACTER SETS
+
+Perl works with UTF-EBCDIC, a multi-byte encoding.  In Perls earlier
+than v5.22, there may be various bugs in this regard.
+
+Legacy multi byte EBCDIC code pages XXX.
+
+=head1 OS ISSUES
+
+There may be a few system-dependent issues
+of concern to EBCDIC Perl programmers.
+
+=head2 OS/400
+
+=over 8
+
+=item PASE
+
+The PASE environment is a runtime environment for OS/400 that can run
+executables built for PowerPC AIX in OS/400; see L<perlos400>.  PASE
+is ASCII-based, not EBCDIC-based as the ILE.
+
+=item IFS access
+
+XXX.
+
+=back
+
+=head2 OS/390, z/OS
+
+Perl runs under Unix Systems Services or USS.
+
+=over 8
+
+=item C<sigaction>
+
+C<SA_SIGINFO> can have segmentation faults.
+
+=item C<chcp>
+
+B<chcp> is supported as a shell utility for displaying and changing
+one's code page.  See also L<chcp(1)>.
+
+=item dataset access
+
+For sequential data set access try:
+
+    my @ds_records = `cat //DSNAME`;
+
+or:
+
+    my @ds_records = `cat //'HLQ.DSNAME'`;
+
+See also the OS390::Stdio module on CPAN.
+
+=item C<iconv>
+
+B<iconv> is supported as both a shell utility and a C RTL routine.
+See also the L<iconv(1)> and L<iconv(3)> manual pages.
+
+=item locales
+
+Locales are supported.  There may be glitches when a locale is another
+EBCDIC code page which has some of the
+L<code-page variant characters|/The 13 variant characters> in other
+positions.
+
+There aren't currently any real UTF-8 locales, even though some locale
+names contain the string "UTF-8".
+
+See L<perllocale> for information on locales.  The L10N files
+are in F</usr/nls/locale>.  C<$Config{d_setlocale}> is C<'define'> on
+OS/390 or z/OS.
+
+=back
+
+=head2 POSIX-BC?
+
+XXX.
+
+=head1 BUGS
+
+=over 4
+
+=item *
+
+Not all shells will allow multiple C<-e> string arguments to perl to
+be concatenated together properly as recipes in this document
+0, 2, 4, 5, and 6 might
+seem to imply.
+
+=item *
+
+There are a significant number of test failures in the CPAN modules
+shipped with Perl v5.22 and 5.24.  These are only in modules not primarily
+maintained by Perl 5 porters.  Some of these are failures in the tests
+only: they don't realize that it is proper to get different results on
+EBCDIC platforms.  And some of the failures are real bugs.  If you
+compile and do a C<make test> on Perl, all tests on the C</cpan>
+directory are skipped.
+
+In particular, the (now deprecated) L<encoding> pragma is not supported
+under EBCDIC.
+
+L<Encode> partially works.
+
+=item *
+
+In earlier Perl versions, when byte and character data were
+concatenated, the new string was sometimes created by
+decoding the byte strings as I<ISO 8859-1 (Latin-1)>, even if the
+old Unicode string used EBCDIC.
+
+=back
+
+=head1 SEE ALSO
+
+L<perllocale>, L<perlfunc>, L<perlunicode>, L<utf8>.
+
+=head1 REFERENCES
+
+L<http://anubis.dkuug.dk/i18n/charmaps>
+
+L<http://www.unicode.org/>
+
+L<http://www.unicode.org/unicode/reports/tr16/>
+
+L<http://www.wps.com/projects/codes/>
+B<ASCII: American Standard Code for Information Infiltration> Tom Jennings,
+September 1999.
+
+B<The Unicode Standard, Version 3.0> The Unicode Consortium, Lisa Moore ed.,
+ISBN 0-201-61633-5, Addison Wesley Developers Press, February 2000.
+
+B<CDRA: IBM - Character Data Representation Architecture -
+Reference and Registry>, IBM SC09-2190-00, December 1996.
+
+"Demystifying Character Sets", Andrea Vine, Multilingual Computing
+& Technology, B<#26 Vol. 10 Issue 4>, August/September 1999;
+ISSN 1523-0309; Multilingual Computing Inc. Sandpoint ID, USA.
+
+B<Codes, Ciphers, and Other Cryptic and Clandestine Communication>
+Fred B. Wrixon, ISBN 1-57912-040-7, Black Dog & Leventhal Publishers,
+1998.
+
+L<http://www.bobbemer.com/P-BIT.HTM>
+B<IBM - EBCDIC and the P-bit; The biggest Computer Goof Ever> Robert Bemer.
+
+=head1 HISTORY
+
+15 April 2001: added UTF-8 and UTF-EBCDIC to main table, pvhp.
+
+=head1 AUTHOR
+
+Peter Prymmer pvhp@best.com wrote this in 1999 and 2000
+with CCSID 0819 and 0037 help from Chris Leach and
+AndrE<eacute> Pirard A.Pirard@ulg.ac.be as well as POSIX-BC
+help from Thomas Dorner Thomas.Dorner@start.de.
+Thanks also to Vickie Cooper, Philip Newton, William Raffloer, and
+Joe Smith.  Trademarks, registered trademarks, service marks and
+registered service marks used in this document are the property of
+their respective owners.
+
+Now maintained by Perl5 Porters.
diff --git a/lib/5.24.1/pod/perlembed.pod b/lib/5.24.1/pod/perlembed.pod
new file mode 100644
index 00000000..596f2878
--- /dev/null
+++ b/lib/5.24.1/pod/perlembed.pod
@@ -0,0 +1,1149 @@
+=head1 NAME
+
+perlembed - how to embed perl in your C program
+
+=head1 DESCRIPTION
+
+=head2 PREAMBLE
+
+Do you want to:
+
+=over 5
+
+=item B<Use C from Perl?>
+
+Read L<perlxstut>, L<perlxs>, L<h2xs>, L<perlguts>, and L<perlapi>.
+
+=item B<Use a Unix program from Perl?>
+
+Read about back-quotes and about C<system> and C<exec> in L<perlfunc>.
+
+=item B<Use Perl from Perl?>
+
+Read about L<perlfunc/do> and L<perlfunc/eval> and L<perlfunc/require>
+and L<perlfunc/use>.
+
+=item B<Use C from C?>
+
+Rethink your design.
+
+=item B<Use Perl from C?>
+
+Read on...
+
+=back
+
+=head2 ROADMAP
+
+=over 5
+
+=item *
+
+Compiling your C program
+
+=item *
+
+Adding a Perl interpreter to your C program
+
+=item *
+
+Calling a Perl subroutine from your C program
+
+=item *
+
+Evaluating a Perl statement from your C program
+
+=item *
+
+Performing Perl pattern matches and substitutions from your C program
+
+=item *
+
+Fiddling with the Perl stack from your C program
+
+=item *
+
+Maintaining a persistent interpreter
+
+=item *
+
+Maintaining multiple interpreter instances
+
+=item *
+
+Using Perl modules, which themselves use C libraries, from your C program
+
+=item *
+
+Embedding Perl under Win32
+
+=back
+
+=head2 Compiling your C program
+
+If you have trouble compiling the scripts in this documentation,
+you're not alone.  The cardinal rule: COMPILE THE PROGRAMS IN EXACTLY
+THE SAME WAY THAT YOUR PERL WAS COMPILED.  (Sorry for yelling.)
+
+Also, every C program that uses Perl must link in the I<perl library>.
+What's that, you ask?  Perl is itself written in C; the perl library
+is the collection of compiled C programs that were used to create your
+perl executable (I</usr/bin/perl> or equivalent).  (Corollary: you
+can't use Perl from your C program unless Perl has been compiled on
+your machine, or installed properly--that's why you shouldn't blithely
+copy Perl executables from machine to machine without also copying the
+I<lib> directory.)
+
+When you use Perl from C, your C program will--usually--allocate,
+"run", and deallocate a I<PerlInterpreter> object, which is defined by
+the perl library.
+
+If your copy of Perl is recent enough to contain this documentation
+(version 5.002 or later), then the perl library (and I<EXTERN.h> and
+I<perl.h>, which you'll also need) will reside in a directory
+that looks like this:
+
+    /usr/local/lib/perl5/your_architecture_here/CORE
+
+or perhaps just
+
+    /usr/local/lib/perl5/CORE
+
+or maybe something like
+
+    /usr/opt/perl5/CORE
+
+Execute this statement for a hint about where to find CORE:
+
+    perl -MConfig -e 'print $Config{archlib}'
+
+Here's how you'd compile the example in the next section,
+L<Adding a Perl interpreter to your C program>, on my Linux box:
+
+    % gcc -O2 -Dbool=char -DHAS_BOOL -I/usr/local/include
+    -I/usr/local/lib/perl5/i586-linux/5.003/CORE
+    -L/usr/local/lib/perl5/i586-linux/5.003/CORE
+    -o interp interp.c -lperl -lm
+
+(That's all one line.)  On my DEC Alpha running old 5.003_05, the
+incantation is a bit different:
+
+    % cc -O2 -Olimit 2900 -DSTANDARD_C -I/usr/local/include
+    -I/usr/local/lib/perl5/alpha-dec_osf/5.00305/CORE
+    -L/usr/local/lib/perl5/alpha-dec_osf/5.00305/CORE -L/usr/local/lib
+    -D__LANGUAGE_C__ -D_NO_PROTO -o interp interp.c -lperl -lm
+
+How can you figure out what to add?  Assuming your Perl is post-5.001,
+execute a C<perl -V> command and pay special attention to the "cc" and
+"ccflags" information.
+
+You'll have to choose the appropriate compiler (I<cc>, I<gcc>, et al.) for
+your machine: C<perl -MConfig -e 'print $Config{cc}'> will tell you what
+to use.
+
+You'll also have to choose the appropriate library directory
+(I</usr/local/lib/...>) for your machine.  If your compiler complains
+that certain functions are undefined, or that it can't locate
+I<-lperl>, then you need to change the path following the C<-L>.  If it
+complains that it can't find I<EXTERN.h> and I<perl.h>, you need to
+change the path following the C<-I>.
+
+You may have to add extra libraries as well.  Which ones?
+Perhaps those printed by
+
+   perl -MConfig -e 'print $Config{libs}'
+
+Provided your perl binary was properly configured and installed the
+B<ExtUtils::Embed> module will determine all of this information for
+you:
+
+   % cc -o interp interp.c `perl -MExtUtils::Embed -e ccopts -e ldopts`
+
+If the B<ExtUtils::Embed> module isn't part of your Perl distribution,
+you can retrieve it from
+http://www.perl.com/perl/CPAN/modules/by-module/ExtUtils/
+(If this documentation came from your Perl distribution, then you're
+running 5.004 or better and you already have it.)
+
+The B<ExtUtils::Embed> kit on CPAN also contains all source code for
+the examples in this document, tests, additional examples and other
+information you may find useful.
+
+=head2 Adding a Perl interpreter to your C program
+
+In a sense, perl (the C program) is a good example of embedding Perl
+(the language), so I'll demonstrate embedding with I<miniperlmain.c>,
+included in the source distribution.  Here's a bastardized, non-portable
+version of I<miniperlmain.c> containing the essentials of embedding:
+
+ #include <EXTERN.h>               /* from the Perl distribution     */
+ #include <perl.h>                 /* from the Perl distribution     */
+
+ static PerlInterpreter *my_perl;  /***    The Perl interpreter    ***/
+
+ int main(int argc, char **argv, char **env)
+ {
+	PERL_SYS_INIT3(&argc,&argv,&env);
+        my_perl = perl_alloc();
+        perl_construct(my_perl);
+	PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
+        perl_parse(my_perl, NULL, argc, argv, (char **)NULL);
+        perl_run(my_perl);
+        perl_destruct(my_perl);
+        perl_free(my_perl);
+	PERL_SYS_TERM();
+ }
+
+Notice that we don't use the C<env> pointer.  Normally handed to
+C<perl_parse> as its final argument, C<env> here is replaced by
+C<NULL>, which means that the current environment will be used.
+
+The macros PERL_SYS_INIT3() and PERL_SYS_TERM() provide system-specific
+tune up of the C runtime environment necessary to run Perl interpreters;
+they should only be called once regardless of how many interpreters you
+create or destroy. Call PERL_SYS_INIT3() before you create your first
+interpreter, and PERL_SYS_TERM() after you free your last interpreter.
+
+Since PERL_SYS_INIT3() may change C<env>, it may be more appropriate to
+provide C<env> as an argument to perl_parse().
+
+Also notice that no matter what arguments you pass to perl_parse(),
+PERL_SYS_INIT3() must be invoked on the C main() argc, argv and env and
+only once.
+
+Now compile this program (I'll call it I<interp.c>) into an executable:
+
+    % cc -o interp interp.c `perl -MExtUtils::Embed -e ccopts -e ldopts`
+
+After a successful compilation, you'll be able to use I<interp> just
+like perl itself:
+
+    % interp
+    print "Pretty Good Perl \n";
+    print "10890 - 9801 is ", 10890 - 9801;
+    <CTRL-D>
+    Pretty Good Perl
+    10890 - 9801 is 1089
+
+or
+
+    % interp -e 'printf("%x", 3735928559)'
+    deadbeef
+
+You can also read and execute Perl statements from a file while in the
+midst of your C program, by placing the filename in I<argv[1]> before
+calling I<perl_run>.
+
+=head2 Calling a Perl subroutine from your C program
+
+To call individual Perl subroutines, you can use any of the B<call_*>
+functions documented in L<perlcall>.
+In this example we'll use C<call_argv>.
+
+That's shown below, in a program I'll call I<showtime.c>.
+
+    #include <EXTERN.h>
+    #include <perl.h>
+
+    static PerlInterpreter *my_perl;
+
+    int main(int argc, char **argv, char **env)
+    {
+        char *args[] = { NULL };
+	PERL_SYS_INIT3(&argc,&argv,&env);
+        my_perl = perl_alloc();
+        perl_construct(my_perl);
+
+        perl_parse(my_perl, NULL, argc, argv, NULL);
+	PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
+
+        /*** skipping perl_run() ***/
+
+        call_argv("showtime", G_DISCARD | G_NOARGS, args);
+
+        perl_destruct(my_perl);
+        perl_free(my_perl);
+	PERL_SYS_TERM();
+    }
+
+where I<showtime> is a Perl subroutine that takes no arguments (that's the
+I<G_NOARGS>) and for which I'll ignore the return value (that's the
+I<G_DISCARD>).  Those flags, and others, are discussed in L<perlcall>.
+
+I'll define the I<showtime> subroutine in a file called I<showtime.pl>:
+
+ print "I shan't be printed.";
+
+ sub showtime {
+     print time;
+ }
+
+Simple enough. Now compile and run:
+
+ % cc -o showtime showtime.c \
+     `perl -MExtUtils::Embed -e ccopts -e ldopts`
+ % showtime showtime.pl
+ 818284590
+
+yielding the number of seconds that elapsed between January 1, 1970
+(the beginning of the Unix epoch), and the moment I began writing this
+sentence.
+
+In this particular case we don't have to call I<perl_run>, as we set
+the PL_exit_flag PERL_EXIT_DESTRUCT_END which executes END blocks in
+perl_destruct.
+
+If you want to pass arguments to the Perl subroutine, you can add
+strings to the C<NULL>-terminated C<args> list passed to
+I<call_argv>.  For other data types, or to examine return values,
+you'll need to manipulate the Perl stack.  That's demonstrated in
+L<Fiddling with the Perl stack from your C program>.
+
+=head2 Evaluating a Perl statement from your C program
+
+Perl provides two API functions to evaluate pieces of Perl code.
+These are L<perlapi/eval_sv> and L<perlapi/eval_pv>.
+
+Arguably, these are the only routines you'll ever need to execute
+snippets of Perl code from within your C program.  Your code can be as
+long as you wish; it can contain multiple statements; it can employ
+L<perlfunc/use>, L<perlfunc/require>, and L<perlfunc/do> to
+include external Perl files.
+
+I<eval_pv> lets us evaluate individual Perl strings, and then
+extract variables for coercion into C types.  The following program,
+I<string.c>, executes three Perl strings, extracting an C<int> from
+the first, a C<float> from the second, and a C<char *> from the third.
+
+ #include <EXTERN.h>
+ #include <perl.h>
+
+ static PerlInterpreter *my_perl;
+
+ main (int argc, char **argv, char **env)
+ {
+     char *embedding[] = { "", "-e", "0" };
+
+     PERL_SYS_INIT3(&argc,&argv,&env);
+     my_perl = perl_alloc();
+     perl_construct( my_perl );
+
+     perl_parse(my_perl, NULL, 3, embedding, NULL);
+     PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
+     perl_run(my_perl);
+
+     /** Treat $a as an integer **/
+     eval_pv("$a = 3; $a **= 2", TRUE);
+     printf("a = %d\n", SvIV(get_sv("a", 0)));
+
+     /** Treat $a as a float **/
+     eval_pv("$a = 3.14; $a **= 2", TRUE);
+     printf("a = %f\n", SvNV(get_sv("a", 0)));
+
+     /** Treat $a as a string **/
+     eval_pv(
+       "$a = 'rekcaH lreP rehtonA tsuJ'; $a = reverse($a);", TRUE);
+     printf("a = %s\n", SvPV_nolen(get_sv("a", 0)));
+
+     perl_destruct(my_perl);
+     perl_free(my_perl);
+     PERL_SYS_TERM();
+ }
+
+All of those strange functions with I<sv> in their names help convert Perl
+scalars to C types.  They're described in L<perlguts> and L<perlapi>.
+
+If you compile and run I<string.c>, you'll see the results of using
+I<SvIV()> to create an C<int>, I<SvNV()> to create a C<float>, and
+I<SvPV()> to create a string:
+
+   a = 9
+   a = 9.859600
+   a = Just Another Perl Hacker
+
+In the example above, we've created a global variable to temporarily
+store the computed value of our eval'ed expression.  It is also
+possible and in most cases a better strategy to fetch the return value
+from I<eval_pv()> instead.  Example:
+
+   ...
+   SV *val = eval_pv("reverse 'rekcaH lreP rehtonA tsuJ'", TRUE);
+   printf("%s\n", SvPV_nolen(val));
+   ...
+
+This way, we avoid namespace pollution by not creating global
+variables and we've simplified our code as well.
+
+=head2 Performing Perl pattern matches and substitutions from your C program
+
+The I<eval_sv()> function lets us evaluate strings of Perl code, so we can
+define some functions that use it to "specialize" in matches and
+substitutions: I<match()>, I<substitute()>, and I<matches()>.
+
+   I32 match(SV *string, char *pattern);
+
+Given a string and a pattern (e.g., C<m/clasp/> or C</\b\w*\b/>, which
+in your C program might appear as "/\\b\\w*\\b/"), match()
+returns 1 if the string matches the pattern and 0 otherwise.
+
+   int substitute(SV **string, char *pattern);
+
+Given a pointer to an C<SV> and an C<=~> operation (e.g.,
+C<s/bob/robert/g> or C<tr[A-Z][a-z]>), substitute() modifies the string
+within the C<SV> as according to the operation, returning the number of
+substitutions made.
+
+   SSize_t matches(SV *string, char *pattern, AV **matches);
+
+Given an C<SV>, a pattern, and a pointer to an empty C<AV>,
+matches() evaluates C<$string =~ $pattern> in a list context, and
+fills in I<matches> with the array elements, returning the number of matches
+found.
+
+Here's a sample program, I<match.c>, that uses all three (long lines have
+been wrapped here):
+
+ #include <EXTERN.h>
+ #include <perl.h>
+
+ static PerlInterpreter *my_perl;
+
+ /** my_eval_sv(code, error_check)
+ ** kinda like eval_sv(),
+ ** but we pop the return value off the stack
+ **/
+ SV* my_eval_sv(SV *sv, I32 croak_on_error)
+ {
+     dSP;
+     SV* retval;
+
+
+     PUSHMARK(SP);
+     eval_sv(sv, G_SCALAR);
+
+     SPAGAIN;
+     retval = POPs;
+     PUTBACK;
+
+     if (croak_on_error && SvTRUE(ERRSV))
+ 	croak(SvPVx_nolen(ERRSV));
+
+     return retval;
+ }
+
+ /** match(string, pattern)
+ **
+ ** Used for matches in a scalar context.
+ **
+ ** Returns 1 if the match was successful; 0 otherwise.
+ **/
+
+ I32 match(SV *string, char *pattern)
+ {
+     SV *command = newSV(0), *retval;
+
+     sv_setpvf(command, "my $string = '%s'; $string =~ %s",
+ 	      SvPV_nolen(string), pattern);
+
+     retval = my_eval_sv(command, TRUE);
+     SvREFCNT_dec(command);
+
+     return SvIV(retval);
+ }
+
+ /** substitute(string, pattern)
+ **
+ ** Used for =~ operations that
+ ** modify their left-hand side (s/// and tr///)
+ **
+ ** Returns the number of successful matches, and
+ ** modifies the input string if there were any.
+ **/
+
+ I32 substitute(SV **string, char *pattern)
+ {
+     SV *command = newSV(0), *retval;
+
+     sv_setpvf(command, "$string = '%s'; ($string =~ %s)",
+ 	      SvPV_nolen(*string), pattern);
+
+     retval = my_eval_sv(command, TRUE);
+     SvREFCNT_dec(command);
+
+     *string = get_sv("string", 0);
+     return SvIV(retval);
+ }
+
+ /** matches(string, pattern, matches)
+ **
+ ** Used for matches in a list context.
+ **
+ ** Returns the number of matches,
+ ** and fills in **matches with the matching substrings
+ **/
+
+ SSize_t matches(SV *string, char *pattern, AV **match_list)
+ {
+     SV *command = newSV(0);
+     SSize_t num_matches;
+
+     sv_setpvf(command, "my $string = '%s'; @array = ($string =~ %s)",
+ 	      SvPV_nolen(string), pattern);
+
+     my_eval_sv(command, TRUE);
+     SvREFCNT_dec(command);
+
+     *match_list = get_av("array", 0);
+     num_matches = av_top_index(*match_list) + 1;
+
+     return num_matches;
+ }
+
+ main (int argc, char **argv, char **env)
+ {
+     char *embedding[] = { "", "-e", "0" };
+     AV *match_list;
+     I32 num_matches, i;
+     SV *text;
+
+     PERL_SYS_INIT3(&argc,&argv,&env);
+     my_perl = perl_alloc();
+     perl_construct(my_perl);
+     perl_parse(my_perl, NULL, 3, embedding, NULL);
+     PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
+
+     text = newSV(0);
+     sv_setpv(text, "When he is at a convenience store and the "
+	"bill comes to some amount like 76 cents, Maynard is "
+	"aware that there is something he *should* do, something "
+	"that will enable him to get back a quarter, but he has "
+	"no idea *what*.  He fumbles through his red squeezey "
+	"changepurse and gives the boy three extra pennies with "
+	"his dollar, hoping that he might luck into the correct "
+	"amount.  The boy gives him back two of his own pennies "
+	"and then the big shiny quarter that is his prize. "
+	"-RICHH");
+
+     if (match(text, "m/quarter/")) /** Does text contain 'quarter'? **/
+ 	printf("match: Text contains the word 'quarter'.\n\n");
+     else
+ 	printf("match: Text doesn't contain the word 'quarter'.\n\n");
+
+     if (match(text, "m/eighth/")) /** Does text contain 'eighth'? **/
+ 	printf("match: Text contains the word 'eighth'.\n\n");
+     else
+ 	printf("match: Text doesn't contain the word 'eighth'.\n\n");
+
+     /** Match all occurrences of /wi../ **/
+     num_matches = matches(text, "m/(wi..)/g", &match_list);
+     printf("matches: m/(wi..)/g found %d matches...\n", num_matches);
+
+     for (i = 0; i < num_matches; i++)
+         printf("match: %s\n",
+                  SvPV_nolen(*av_fetch(match_list, i, FALSE)));
+     printf("\n");
+
+     /** Remove all vowels from text **/
+     num_matches = substitute(&text, "s/[aeiou]//gi");
+     if (num_matches) {
+ 	printf("substitute: s/[aeiou]//gi...%lu substitutions made.\n",
+ 	       (unsigned long)num_matches);
+ 	printf("Now text is: %s\n\n", SvPV_nolen(text));
+     }
+
+     /** Attempt a substitution **/
+     if (!substitute(&text, "s/Perl/C/")) {
+ 	printf("substitute: s/Perl/C...No substitution made.\n\n");
+     }
+
+     SvREFCNT_dec(text);
+     PL_perl_destruct_level = 1;
+     perl_destruct(my_perl);
+     perl_free(my_perl);
+     PERL_SYS_TERM();
+ }
+
+which produces the output (again, long lines have been wrapped here)
+
+  match: Text contains the word 'quarter'.
+
+  match: Text doesn't contain the word 'eighth'.
+
+  matches: m/(wi..)/g found 2 matches...
+  match: will
+  match: with
+
+  substitute: s/[aeiou]//gi...139 substitutions made.
+  Now text is: Whn h s t  cnvnnc str nd th bll cms t sm mnt lk 76 cnts,
+  Mynrd s wr tht thr s smthng h *shld* d, smthng tht wll nbl hm t gt
+  bck qrtr, bt h hs n d *wht*.  H fmbls thrgh hs rd sqzy chngprs nd
+  gvs th by thr xtr pnns wth hs dllr, hpng tht h mght lck nt th crrct
+  mnt.  Th by gvs hm bck tw f hs wn pnns nd thn th bg shny qrtr tht s
+  hs prz. -RCHH
+
+  substitute: s/Perl/C...No substitution made.
+
+=head2 Fiddling with the Perl stack from your C program
+
+When trying to explain stacks, most computer science textbooks mumble
+something about spring-loaded columns of cafeteria plates: the last
+thing you pushed on the stack is the first thing you pop off.  That'll
+do for our purposes: your C program will push some arguments onto "the Perl
+stack", shut its eyes while some magic happens, and then pop the
+results--the return value of your Perl subroutine--off the stack.
+
+First you'll need to know how to convert between C types and Perl
+types, with newSViv() and sv_setnv() and newAV() and all their
+friends.  They're described in L<perlguts> and L<perlapi>.
+
+Then you'll need to know how to manipulate the Perl stack.  That's
+described in L<perlcall>.
+
+Once you've understood those, embedding Perl in C is easy.
+
+Because C has no builtin function for integer exponentiation, let's
+make Perl's ** operator available to it (this is less useful than it
+sounds, because Perl implements ** with C's I<pow()> function).  First
+I'll create a stub exponentiation function in I<power.pl>:
+
+    sub expo {
+        my ($a, $b) = @_;
+        return $a ** $b;
+    }
+
+Now I'll create a C program, I<power.c>, with a function
+I<PerlPower()> that contains all the perlguts necessary to push the
+two arguments into I<expo()> and to pop the return value out.  Take a
+deep breath...
+
+ #include <EXTERN.h>
+ #include <perl.h>
+
+ static PerlInterpreter *my_perl;
+
+ static void
+ PerlPower(int a, int b)
+ {
+   dSP;                            /* initialize stack pointer      */
+   ENTER;                          /* everything created after here */
+   SAVETMPS;                       /* ...is a temporary variable.   */
+   PUSHMARK(SP);                   /* remember the stack pointer    */
+   XPUSHs(sv_2mortal(newSViv(a))); /* push the base onto the stack  */
+   XPUSHs(sv_2mortal(newSViv(b))); /* push the exponent onto stack  */
+   PUTBACK;                      /* make local stack pointer global */
+   call_pv("expo", G_SCALAR);      /* call the function             */
+   SPAGAIN;                        /* refresh stack pointer         */
+                                 /* pop the return value from stack */
+   printf ("%d to the %dth power is %d.\n", a, b, POPi);
+   PUTBACK;
+   FREETMPS;                       /* free that return value        */
+   LEAVE;                       /* ...and the XPUSHed "mortal" args.*/
+ }
+
+ int main (int argc, char **argv, char **env)
+ {
+   char *my_argv[] = { "", "power.pl" };
+
+   PERL_SYS_INIT3(&argc,&argv,&env);
+   my_perl = perl_alloc();
+   perl_construct( my_perl );
+
+   perl_parse(my_perl, NULL, 2, my_argv, (char **)NULL);
+   PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
+   perl_run(my_perl);
+
+   PerlPower(3, 4);                      /*** Compute 3 ** 4 ***/
+
+   perl_destruct(my_perl);
+   perl_free(my_perl);
+   PERL_SYS_TERM();
+ }
+
+
+
+Compile and run:
+
+    % cc -o power power.c `perl -MExtUtils::Embed -e ccopts -e ldopts`
+
+    % power
+    3 to the 4th power is 81.
+
+=head2 Maintaining a persistent interpreter
+
+When developing interactive and/or potentially long-running
+applications, it's a good idea to maintain a persistent interpreter
+rather than allocating and constructing a new interpreter multiple
+times.  The major reason is speed: since Perl will only be loaded into
+memory once.
+
+However, you have to be more cautious with namespace and variable
+scoping when using a persistent interpreter.  In previous examples
+we've been using global variables in the default package C<main>.  We
+knew exactly what code would be run, and assumed we could avoid
+variable collisions and outrageous symbol table growth.
+
+Let's say your application is a server that will occasionally run Perl
+code from some arbitrary file.  Your server has no way of knowing what
+code it's going to run.  Very dangerous.
+
+If the file is pulled in by C<perl_parse()>, compiled into a newly
+constructed interpreter, and subsequently cleaned out with
+C<perl_destruct()> afterwards, you're shielded from most namespace
+troubles.
+
+One way to avoid namespace collisions in this scenario is to translate
+the filename into a guaranteed-unique package name, and then compile
+the code into that package using L<perlfunc/eval>.  In the example
+below, each file will only be compiled once.  Or, the application
+might choose to clean out the symbol table associated with the file
+after it's no longer needed.  Using L<perlapi/call_argv>, We'll
+call the subroutine C<Embed::Persistent::eval_file> which lives in the
+file C<persistent.pl> and pass the filename and boolean cleanup/cache
+flag as arguments.
+
+Note that the process will continue to grow for each file that it
+uses.  In addition, there might be C<AUTOLOAD>ed subroutines and other
+conditions that cause Perl's symbol table to grow.  You might want to
+add some logic that keeps track of the process size, or restarts
+itself after a certain number of requests, to ensure that memory
+consumption is minimized.  You'll also want to scope your variables
+with L<perlfunc/my> whenever possible.
+
+
+ package Embed::Persistent;
+ #persistent.pl
+
+ use strict;
+ our %Cache;
+ use Symbol qw(delete_package);
+
+ sub valid_package_name {
+     my($string) = @_;
+     $string =~ s/([^A-Za-z0-9\/])/sprintf("_%2x",unpack("C",$1))/eg;
+     # second pass only for words starting with a digit
+     $string =~ s|/(\d)|sprintf("/_%2x",unpack("C",$1))|eg;
+
+     # Dress it up as a real package name
+     $string =~ s|/|::|g;
+     return "Embed" . $string;
+ }
+
+ sub eval_file {
+     my($filename, $delete) = @_;
+     my $package = valid_package_name($filename);
+     my $mtime = -M $filename;
+     if(defined $Cache{$package}{mtime}
+        &&
+        $Cache{$package}{mtime} <= $mtime)
+     {
+        # we have compiled this subroutine already,
+        # it has not been updated on disk, nothing left to do
+        print STDERR "already compiled $package->handler\n";
+     }
+     else {
+        local *FH;
+        open FH, $filename or die "open '$filename' $!";
+        local($/) = undef;
+        my $sub = <FH>;
+        close FH;
+
+        #wrap the code into a subroutine inside our unique package
+        my $eval = qq{package $package; sub handler { $sub; }};
+        {
+            # hide our variables within this block
+            my($filename,$mtime,$package,$sub);
+            eval $eval;
+        }
+        die $@ if $@;
+
+        #cache it unless we're cleaning out each time
+        $Cache{$package}{mtime} = $mtime unless $delete;
+     }
+
+     eval {$package->handler;};
+     die $@ if $@;
+
+     delete_package($package) if $delete;
+
+     #take a look if you want
+     #print Devel::Symdump->rnew($package)->as_string, $/;
+ }
+
+ 1;
+
+ __END__
+
+ /* persistent.c */
+ #include <EXTERN.h>
+ #include <perl.h>
+
+ /* 1 = clean out filename's symbol table after each request,
+    0 = don't
+ */
+ #ifndef DO_CLEAN
+ #define DO_CLEAN 0
+ #endif
+
+ #define BUFFER_SIZE 1024
+
+ static PerlInterpreter *my_perl = NULL;
+
+ int
+ main(int argc, char **argv, char **env)
+ {
+     char *embedding[] = { "", "persistent.pl" };
+     char *args[] = { "", DO_CLEAN, NULL };
+     char filename[BUFFER_SIZE];
+     int exitstatus = 0;
+
+     PERL_SYS_INIT3(&argc,&argv,&env);
+     if((my_perl = perl_alloc()) == NULL) {
+        fprintf(stderr, "no memory!");
+        exit(1);
+     }
+     perl_construct(my_perl);
+
+     PL_origalen = 1; /* don't let $0 assignment update the
+                         proctitle or embedding[0] */
+     exitstatus = perl_parse(my_perl, NULL, 2, embedding, NULL);
+     PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
+     if(!exitstatus) {
+        exitstatus = perl_run(my_perl);
+
+        while(printf("Enter file name: ") &&
+              fgets(filename, BUFFER_SIZE, stdin)) {
+
+            filename[strlen(filename)-1] = '\0'; /* strip \n */
+            /* call the subroutine,
+                     passing it the filename as an argument */
+            args[0] = filename;
+            call_argv("Embed::Persistent::eval_file",
+                           G_DISCARD | G_EVAL, args);
+
+            /* check $@ */
+            if(SvTRUE(ERRSV))
+                fprintf(stderr, "eval error: %s\n", SvPV_nolen(ERRSV));
+        }
+     }
+
+     PL_perl_destruct_level = 0;
+     perl_destruct(my_perl);
+     perl_free(my_perl);
+     PERL_SYS_TERM();
+     exit(exitstatus);
+ }
+
+Now compile:
+
+ % cc -o persistent persistent.c \
+        `perl -MExtUtils::Embed -e ccopts -e ldopts`
+
+Here's an example script file:
+
+ #test.pl
+ my $string = "hello";
+ foo($string);
+
+ sub foo {
+     print "foo says: @_\n";
+ }
+
+Now run:
+
+ % persistent
+ Enter file name: test.pl
+ foo says: hello
+ Enter file name: test.pl
+ already compiled Embed::test_2epl->handler
+ foo says: hello
+ Enter file name: ^C
+
+=head2 Execution of END blocks
+
+Traditionally END blocks have been executed at the end of the perl_run.
+This causes problems for applications that never call perl_run. Since
+perl 5.7.2 you can specify C<PL_exit_flags |= PERL_EXIT_DESTRUCT_END>
+to get the new behaviour. This also enables the running of END blocks if
+the perl_parse fails and C<perl_destruct> will return the exit value.
+
+=head2 $0 assignments
+
+When a perl script assigns a value to $0 then the perl runtime will
+try to make this value show up as the program name reported by "ps" by
+updating the memory pointed to by the argv passed to perl_parse() and
+also calling API functions like setproctitle() where available.  This
+behaviour might not be appropriate when embedding perl and can be
+disabled by assigning the value C<1> to the variable C<PL_origalen>
+before perl_parse() is called.
+
+The F<persistent.c> example above is for instance likely to segfault
+when $0 is assigned to if the C<PL_origalen = 1;> assignment is
+removed.  This because perl will try to write to the read only memory
+of the C<embedding[]> strings.
+
+=head2 Maintaining multiple interpreter instances
+
+Some rare applications will need to create more than one interpreter
+during a session.  Such an application might sporadically decide to
+release any resources associated with the interpreter.
+
+The program must take care to ensure that this takes place I<before>
+the next interpreter is constructed.  By default, when perl is not
+built with any special options, the global variable
+C<PL_perl_destruct_level> is set to C<0>, since extra cleaning isn't
+usually needed when a program only ever creates a single interpreter
+in its entire lifetime.
+
+Setting C<PL_perl_destruct_level> to C<1> makes everything squeaky clean:
+
+ while(1) {
+     ...
+     /* reset global variables here with PL_perl_destruct_level = 1 */
+     PL_perl_destruct_level = 1;
+     perl_construct(my_perl);
+     ...
+     /* clean and reset _everything_ during perl_destruct */
+     PL_perl_destruct_level = 1;
+     perl_destruct(my_perl);
+     perl_free(my_perl);
+     ...
+     /* let's go do it again! */
+ }
+
+When I<perl_destruct()> is called, the interpreter's syntax parse tree
+and symbol tables are cleaned up, and global variables are reset.  The
+second assignment to C<PL_perl_destruct_level> is needed because
+perl_construct resets it to C<0>.
+
+Now suppose we have more than one interpreter instance running at the
+same time.  This is feasible, but only if you used the Configure option
+C<-Dusemultiplicity> or the options C<-Dusethreads -Duseithreads> when
+building perl.  By default, enabling one of these Configure options
+sets the per-interpreter global variable C<PL_perl_destruct_level> to
+C<1>, so that thorough cleaning is automatic and interpreter variables
+are initialized correctly.  Even if you don't intend to run two or
+more interpreters at the same time, but to run them sequentially, like
+in the above example, it is recommended to build perl with the
+C<-Dusemultiplicity> option otherwise some interpreter variables may
+not be initialized correctly between consecutive runs and your
+application may crash.
+
+See also L<perlxs/Thread-aware system interfaces>.
+
+Using C<-Dusethreads -Duseithreads> rather than C<-Dusemultiplicity>
+is more appropriate if you intend to run multiple interpreters
+concurrently in different threads, because it enables support for
+linking in the thread libraries of your system with the interpreter.
+
+Let's give it a try:
+
+
+ #include <EXTERN.h>
+ #include <perl.h>
+
+ /* we're going to embed two interpreters */
+
+ #define SAY_HELLO "-e", "print qq(Hi, I'm $^X\n)"
+
+ int main(int argc, char **argv, char **env)
+ {
+     PerlInterpreter *one_perl, *two_perl;
+     char *one_args[] = { "one_perl", SAY_HELLO };
+     char *two_args[] = { "two_perl", SAY_HELLO };
+
+     PERL_SYS_INIT3(&argc,&argv,&env);
+     one_perl = perl_alloc();
+     two_perl = perl_alloc();
+
+     PERL_SET_CONTEXT(one_perl);
+     perl_construct(one_perl);
+     PERL_SET_CONTEXT(two_perl);
+     perl_construct(two_perl);
+
+     PERL_SET_CONTEXT(one_perl);
+     perl_parse(one_perl, NULL, 3, one_args, (char **)NULL);
+     PERL_SET_CONTEXT(two_perl);
+     perl_parse(two_perl, NULL, 3, two_args, (char **)NULL);
+
+     PERL_SET_CONTEXT(one_perl);
+     perl_run(one_perl);
+     PERL_SET_CONTEXT(two_perl);
+     perl_run(two_perl);
+
+     PERL_SET_CONTEXT(one_perl);
+     perl_destruct(one_perl);
+     PERL_SET_CONTEXT(two_perl);
+     perl_destruct(two_perl);
+
+     PERL_SET_CONTEXT(one_perl);
+     perl_free(one_perl);
+     PERL_SET_CONTEXT(two_perl);
+     perl_free(two_perl);
+     PERL_SYS_TERM();
+ }
+
+Note the calls to PERL_SET_CONTEXT().  These are necessary to initialize
+the global state that tracks which interpreter is the "current" one on
+the particular process or thread that may be running it.  It should
+always be used if you have more than one interpreter and are making
+perl API calls on both interpreters in an interleaved fashion.
+
+PERL_SET_CONTEXT(interp) should also be called whenever C<interp> is
+used by a thread that did not create it (using either perl_alloc(), or
+the more esoteric perl_clone()).
+
+Compile as usual:
+
+ % cc -o multiplicity multiplicity.c \
+  `perl -MExtUtils::Embed -e ccopts -e ldopts`
+
+Run it, Run it:
+
+ % multiplicity
+ Hi, I'm one_perl
+ Hi, I'm two_perl
+
+=head2 Using Perl modules, which themselves use C libraries, from your C
+program
+
+If you've played with the examples above and tried to embed a script
+that I<use()>s a Perl module (such as I<Socket>) which itself uses a C or C++
+library, this probably happened:
+
+
+ Can't load module Socket, dynamic loading not available in this perl.
+  (You may need to build a new perl executable which either supports
+  dynamic loading or has the Socket module statically linked into it.)
+
+
+What's wrong?
+
+Your interpreter doesn't know how to communicate with these extensions
+on its own.  A little glue will help.  Up until now you've been
+calling I<perl_parse()>, handing it NULL for the second argument:
+
+ perl_parse(my_perl, NULL, argc, my_argv, NULL);
+
+That's where the glue code can be inserted to create the initial contact
+between Perl and linked C/C++ routines. Let's take a look some pieces of
+I<perlmain.c> to see how Perl does this:
+
+ static void xs_init (pTHX);
+
+ EXTERN_C void boot_DynaLoader (pTHX_ CV* cv);
+ EXTERN_C void boot_Socket (pTHX_ CV* cv);
+
+
+ EXTERN_C void
+ xs_init(pTHX)
+ {
+        char *file = __FILE__;
+        /* DynaLoader is a special case */
+        newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file);
+        newXS("Socket::bootstrap", boot_Socket, file);
+ }
+
+Simply put: for each extension linked with your Perl executable
+(determined during its initial configuration on your
+computer or when adding a new extension),
+a Perl subroutine is created to incorporate the extension's
+routines.  Normally, that subroutine is named
+I<Module::bootstrap()> and is invoked when you say I<use Module>.  In
+turn, this hooks into an XSUB, I<boot_Module>, which creates a Perl
+counterpart for each of the extension's XSUBs.  Don't worry about this
+part; leave that to the I<xsubpp> and extension authors.  If your
+extension is dynamically loaded, DynaLoader creates I<Module::bootstrap()>
+for you on the fly.  In fact, if you have a working DynaLoader then there
+is rarely any need to link in any other extensions statically.
+
+
+Once you have this code, slap it into the second argument of I<perl_parse()>:
+
+
+ perl_parse(my_perl, xs_init, argc, my_argv, NULL);
+
+
+Then compile:
+
+ % cc -o interp interp.c `perl -MExtUtils::Embed -e ccopts -e ldopts`
+
+ % interp
+   use Socket;
+   use SomeDynamicallyLoadedModule;
+
+   print "Now I can use extensions!\n"'
+
+B<ExtUtils::Embed> can also automate writing the I<xs_init> glue code.
+
+ % perl -MExtUtils::Embed -e xsinit -- -o perlxsi.c
+ % cc -c perlxsi.c `perl -MExtUtils::Embed -e ccopts`
+ % cc -c interp.c  `perl -MExtUtils::Embed -e ccopts`
+ % cc -o interp perlxsi.o interp.o `perl -MExtUtils::Embed -e ldopts`
+
+Consult L<perlxs>, L<perlguts>, and L<perlapi> for more details.
+
+=head2 Using embedded Perl with POSIX locales
+
+(See L<perllocale> for information about these.)
+When a Perl interpreter normally starts up, it tells the system it wants
+to use the system's default locale.  This is often, but not necessarily,
+the "C" or "POSIX" locale.  Absent a S<C<"use locale">> within the perl
+code, this mostly has no effect (but see L<perllocale/Not within the
+scope of "use locale">).  Also, there is not a problem if the
+locale you want to use in your embedded Perl is the same as the system
+default.  However, this doesn't work if you have set up and want to use
+a locale that isn't the system default one.  Starting in Perl v5.20, you
+can tell the embedded Perl interpreter that the locale is already
+properly set up, and to skip doing its own normal initialization.  It
+skips if the environment variable C<PERL_SKIP_LOCALE_INIT> is set (even
+if set to 0 or C<"">).  A Perl that has this capability will define the
+C pre-processor symbol C<HAS_SKIP_LOCALE_INIT>.  This allows code that
+has to work with multiple Perl versions to do some sort of work-around
+when confronted with an earlier Perl.
+
+=head1 Hiding Perl_
+
+If you completely hide the short forms of the Perl public API,
+add -DPERL_NO_SHORT_NAMES to the compilation flags.  This means that
+for example instead of writing
+
+    warn("%d bottles of beer on the wall", bottlecount);
+
+you will have to write the explicit full form
+
+    Perl_warn(aTHX_ "%d bottles of beer on the wall", bottlecount);
+
+(See L<perlguts/"Background and PERL_IMPLICIT_CONTEXT"> for the explanation
+of the C<aTHX_>. )  Hiding the short forms is very useful for avoiding
+all sorts of nasty (C preprocessor or otherwise) conflicts with other
+software packages (Perl defines about 2400 APIs with these short names,
+take or leave few hundred, so there certainly is room for conflict.)
+
+=head1 MORAL
+
+You can sometimes I<write faster code> in C, but
+you can always I<write code faster> in Perl.  Because you can use
+each from the other, combine them as you wish.
+
+
+=head1 AUTHOR
+
+Jon Orwant <F<orwant@media.mit.edu>> and Doug MacEachern
+<F<dougm@covalent.net>>, with small contributions from Tim Bunce, Tom
+Christiansen, Guy Decoux, Hallvard Furuseth, Dov Grobgeld, and Ilya
+Zakharevich.
+
+Doug MacEachern has an article on embedding in Volume 1, Issue 4 of
+The Perl Journal ( http://www.tpj.com/ ).  Doug is also the developer of the
+most widely-used Perl embedding: the mod_perl system
+(perl.apache.org), which embeds Perl in the Apache web server.
+Oracle, Binary Evolution, ActiveState, and Ben Sugars's nsapi_perl
+have used this model for Oracle, Netscape and Internet Information
+Server Perl plugins.
+
+=head1 COPYRIGHT
+
+Copyright (C) 1995, 1996, 1997, 1998 Doug MacEachern and Jon Orwant.  All
+Rights Reserved.
+
+This document may be distributed under the same terms as Perl itself.
diff --git a/lib/5.24.1/pod/perlexperiment.pod b/lib/5.24.1/pod/perlexperiment.pod
new file mode 100644
index 00000000..a3052df8
--- /dev/null
+++ b/lib/5.24.1/pod/perlexperiment.pod
@@ -0,0 +1,347 @@
+=head1 NAME
+
+perlexperiment - A listing of experimental features in Perl
+
+=head1 DESCRIPTION
+
+This document lists the current and past experimental features in the perl
+core. Although all of these are documented with their appropriate topics,
+this succinct listing gives you an overview and basic facts about their
+status.
+
+So far we've merely tried to find and list the experimental features and infer
+their inception, versions, etc. There's a lot of speculation here.
+
+=head2 Current experiments
+
+=over 8
+
+=item C<our> can now have an experimental optional attribute C<unique>
+
+Introduced in Perl 5.8.0
+
+Deprecated in Perl 5.10.0
+
+The ticket for this feature is
+L<[perl #119313]|https://rt.perl.org/rt3/Ticket/Display.html?id=119313>.
+
+=item Smart match (C<~~>)
+
+Introduced in Perl 5.10.0
+
+Modified in Perl 5.10.1, 5.12.0
+
+Using this feature triggers warnings in the category
+C<experimental::smartmatch>.
+
+The ticket for this feature is
+L<[perl #119317]|https://rt.perl.org/rt3/Ticket/Display.html?id=119317>.
+
+=item Pluggable keywords
+
+The ticket for this feature is
+L<[perl #119455]|https://rt.perl.org/rt3/Ticket/Display.html?id=119455>.
+
+See L<perlapi/PL_keyword_plugin> for the mechanism.
+
+Introduced in Perl 5.11.2
+
+=item Lexical subroutines
+
+Introduced in Perl 5.18
+
+See also: L<perlsub/Lexical Subroutines>
+
+Using this feature triggers warnings in the category
+C<experimental::lexical_subs>.
+
+The ticket for this feature is
+L<[perl #120085]|https://rt.perl.org/rt3/Ticket/Display.html?id=120085>.
+
+=item Regular Expression Set Operations
+
+Introduced in Perl 5.18
+
+The ticket for this feature is
+L<[perl #119451]|https://rt.perl.org/rt3/Ticket/Display.html?id=119451>.
+
+See also: L<perlrecharclass/Extended Bracketed Character Classes>
+
+Using this feature triggers warnings in the category
+C<experimental::regex_sets>.
+
+=item Subroutine signatures
+
+Introduced in Perl 5.20.0
+
+Using this feature triggers warnings in the category
+C<experimental::signatures>.
+
+The ticket for this feature is
+L<[perl #121481]|https://rt.perl.org/Ticket/Display.html?id=121481>.
+
+=item Aliasing via reference
+
+Introduced in Perl 5.22.0
+
+Using this feature triggers warnings in the category
+C<experimental::refaliasing>.
+
+The ticket for this feature is
+L<[perl #122947]|https://rt.perl.org/rt3/Ticket/Display.html?id=122947>.
+
+See also: L<perlref/Assigning to References>
+
+=item The "const" attribute
+
+Introduced in Perl 5.22.0
+
+Using this feature triggers warnings in the category
+C<experimental::const_attr>.
+
+The ticket for this feature is
+L<[perl #123630]|https://rt.perl.org/rt3/Ticket/Display.html?id=123630>.
+
+See also: L<perlsub/Constant Functions>
+
+=item use re 'strict';
+
+Introduced in Perl 5.22.0
+
+Using this feature triggers warnings in the category
+C<experimental::re_strict>.
+
+See L<re/'strict' mode>
+
+=item String- and number-specific bitwise operators
+
+Introduced in Perl 5.22.0
+
+See also: L<perlop/Bitwise String Operators>
+
+Using this feature triggers warnings in the category
+C<experimental::bitwise>.
+
+The ticket for this feature is
+L<[perl #123707]|https://rt.perl.org/rt3/Ticket/Display.html?id=123707>.
+
+=item The <:win32> IO pseudolayer
+
+The ticket for this feature is
+L<[perl #119453]|https://rt.perl.org/rt3/Ticket/Display.html?id=119453>.
+
+See also L<perlrun>
+
+=item There is an C<installhtml> target in the Makefile.
+
+The ticket for this feature is
+L<[perl #116487]|https://rt.perl.org/rt3/Ticket/Display.html?id=116487>.
+
+=item Unicode in Perl on EBCDIC
+
+=back
+
+=head2 Accepted features
+
+These features were so wildly successful and played so well with others that
+we decided to remove their experimental status and admit them as full, stable
+features in the world of Perl, lavishing all the benefits and luxuries thereof.
+They are also awarded +5 Stability and +3 Charisma.
+
+=over 8
+
+=item 64-bit support
+
+Introduced in Perl 5.005
+
+=item die accepts a reference
+
+Introduced in Perl 5.005
+
+=item DB module
+
+Introduced in Perl 5.6.0
+
+See also L<perldebug>, L<perldebtut>
+
+=item Weak references
+
+Introduced in Perl 5.6.0
+
+=item Internal file glob
+
+Introduced in Perl 5.6.0
+
+=item fork() emulation
+
+Introduced in Perl 5.6.1
+
+See also L<perlfork>
+
+=item -Dusemultiplicity -Duseithreads
+
+Introduced in Perl 5.6.0
+
+Accepted in Perl 5.8.0
+
+=item Support for long doubles
+
+Introduced in Perl 5.6.0
+
+Accepted in Perl 5.8.1
+
+=item The C<\N> regex character class
+
+The C<\N> character class, not to be confused with the named character
+sequence C<\N{NAME}>, denotes any non-newline character in a regular
+expression.
+
+Introduced in Perl 5.12
+
+Exact version of acceptance unclear, but no later than Perl 5.18.
+
+=item C<(?{code})> and C<(??{ code })>
+
+Introduced in Perl 5.6.0
+
+Accepted in Perl 5.20.0
+
+See also L<perlre>
+
+=item Linux abstract Unix domain sockets
+
+Introduced in Perl 5.9.2
+
+Accepted before Perl 5.20.0.  The Socket library is now primarily maintained
+on CPAN, rather than in the perl core.
+
+See also L<Socket>
+
+=item Lvalue subroutines
+
+Introduced in Perl 5.6.0
+
+Accepted in Perl 5.20.0
+
+See also L<perlsub>
+
+=item Backtracking control verbs
+
+C<(*ACCEPT)>
+
+Introduced in Perl 5.10
+
+Accepted in Perl 5.20.0
+
+=item The <:pop> IO pseudolayer
+
+See also L<perlrun>
+
+Accepted in Perl 5.20.0
+
+=item C<\s> in regexp matches vertical tab
+
+Accepted in Perl 5.22.0
+
+=item Postfix dereference syntax
+
+Introduced in Perl 5.20.0
+
+Accepted in Perl 5.24.0
+
+=back
+
+=head2 Removed features
+
+These features are no longer considered experimental and their functionality
+has disappeared. It's your own fault if you wrote production programs using
+these features after we explicitly told you not to (see L<perlpolicy>).
+
+=over 8
+
+=item 5.005-style threading
+
+Introduced in Perl 5.005
+
+Removed in Perl 5.10
+
+=item perlcc
+
+Introduced in Perl 5.005
+
+Moved from Perl 5.9.0 to CPAN
+
+=item The pseudo-hash data type
+
+Introduced in Perl 5.6.0
+
+Removed in Perl 5.9.0
+
+=item GetOpt::Long Options can now take multiple values at once (experimental)
+
+C<Getopt::Long> upgraded to version 2.35
+
+Removed in Perl 5.8.8
+
+=item Assertions
+
+The C<-A> command line switch
+
+Introduced in Perl 5.9.0
+
+Removed in Perl 5.9.5
+
+=item Test::Harness::Straps
+
+Moved from Perl 5.10.1 to CPAN
+
+=item C<legacy>
+
+The experimental C<legacy> pragma was swallowed by the C<feature> pragma.
+
+Introduced in Perl 5.11.2
+
+Removed in Perl 5.11.3
+
+=item Lexical C<$_>
+
+Using this feature triggered warnings in the category
+C<experimental::lexical_topic>.
+
+Introduced in Perl 5.10.0
+
+Removed in Perl 5.24.0
+
+=item Array and hash container functions accept references
+
+Using this feature triggered warnings in the category
+C<experimental::autoderef>.
+
+Superseded by L</Postfix dereference syntax>.
+
+Introduced in Perl 5.14.0
+
+Removed in Perl 5.24.0
+
+=back
+
+=head1 SEE ALSO
+
+For a complete list of features check L<feature>.
+
+=head1 AUTHORS
+
+brian d foy C<< <brian.d.foy@gmail.com> >>
+
+SE<eacute>bastien Aperghis-Tramoni C<< <saper@cpan.org> >>
+
+=head1 COPYRIGHT
+
+Copyright 2010, brian d foy C<< <brian.d.foy@gmail.com> >>
+
+=head1 LICENSE
+
+You can use and redistribute this document under the same terms as Perl
+itself.
+
+=cut
diff --git a/lib/5.24.1/pod/perlfaq.pod b/lib/5.24.1/pod/perlfaq.pod
new file mode 100644
index 00000000..5be2f6d4
--- /dev/null
+++ b/lib/5.24.1/pod/perlfaq.pod
@@ -0,0 +1,1389 @@
+=head1 NAME
+
+perlfaq - frequently asked questions about Perl
+
+=head1 VERSION
+
+version 5.021010
+
+=head1 DESCRIPTION
+
+The perlfaq comprises several documents that answer the most commonly
+asked questions about Perl and Perl programming. It's divided by topic
+into nine major sections outlined in this document.
+
+=head2 Where to find the perlfaq
+
+The perlfaq is an evolving document.  Read the latest version at
+L<http://learn.perl.org/faq/>.  It is also included in the standard Perl
+distribution.
+
+=head2 How to use the perlfaq
+
+The C<perldoc> command line tool is part of the standard Perl distribution. To
+read the perlfaq:
+
+    $ perldoc perlfaq
+
+To search the perlfaq question headings:
+
+    $ perldoc -q open
+
+=head2 How to contribute to the perlfaq
+
+Review L<https://github.com/perl-doc-cats/perlfaq/wiki>.  If you don't find
+your suggestion create an issue or pull request against
+L<https://github.com/perl-doc-cats/perlfaq>.
+
+Once approved, changes are merged into L<https://github.com/tpf/perlfaq>, the
+repository which drives L<http://learn.perl.org/faq/>, and they are
+distributed with the next Perl 5 release.
+
+=head2 What if my question isn't answered in the FAQ?
+
+Try the resources in L<perlfaq2>.
+
+=head1 TABLE OF CONTENTS
+
+=over 4
+
+=item perlfaq1 - General Questions About Perl
+
+=item perlfaq2 - Obtaining and Learning about Perl
+
+=item perlfaq3 - Programming Tools
+
+=item perlfaq4 - Data Manipulation
+
+=item perlfaq5 - Files and Formats
+
+=item perlfaq6 - Regular Expressions
+
+=item perlfaq7 - General Perl Language Issues
+
+=item perlfaq8 - System Interaction
+
+=item perlfaq9 - Web, Email and Networking
+
+=back
+
+=head1 THE QUESTIONS
+
+=head2 L<perlfaq1>: General Questions About Perl
+
+This section of the FAQ answers very general, high-level questions about Perl.
+
+=over 4
+
+=item *
+
+What is Perl?
+
+=item *
+
+Who supports Perl? Who develops it? Why is it free?
+
+=item *
+
+Which version of Perl should I use?
+
+=item *
+
+What are Perl 4, Perl 5, or Perl 6?
+
+=item *
+
+What is Perl 6?
+
+=item *
+
+How stable is Perl?
+
+=item *
+
+How often are new versions of Perl released?
+
+=item *
+
+Is Perl difficult to learn?
+
+=item *
+
+How does Perl compare with other languages like Java, Python, REXX, Scheme, or Tcl?
+
+=item *
+
+Can I do [task] in Perl?
+
+=item *
+
+When shouldn't I program in Perl?
+
+=item *
+
+What's the difference between "perl" and "Perl"?
+
+=item *
+
+What is a JAPH?
+
+=item *
+
+How can I convince others to use Perl?
+
+=back
+
+
+=head2 L<perlfaq2>: Obtaining and Learning about Perl
+
+This section of the FAQ answers questions about where to find source and documentation for Perl, support, and related matters.
+
+=over 4
+
+=item *
+
+What machines support Perl? Where do I get it?
+
+=item *
+
+How can I get a binary version of Perl?
+
+=item *
+
+I don't have a C compiler. How can I build my own Perl interpreter?
+
+=item *
+
+I copied the Perl binary from one machine to another, but scripts don't work.
+
+=item *
+
+I grabbed the sources and tried to compile but gdbm/dynamic loading/malloc/linking/... failed. How do I make it work?
+
+=item *
+
+What modules and extensions are available for Perl? What is CPAN?
+
+=item *
+
+Where can I get information on Perl?
+
+=item *
+
+What is perl.com? Perl Mongers? pm.org? perl.org? cpan.org?
+
+=item *
+
+Where can I post questions?
+
+=item *
+
+Perl Books
+
+=item *
+
+Which magazines have Perl content?
+
+=item *
+
+Which Perl blogs should I read?
+
+=item *
+
+What mailing lists are there for Perl?
+
+=item *
+
+Where can I buy a commercial version of Perl?
+
+=item *
+
+Where do I send bug reports?
+
+=back
+
+
+=head2 L<perlfaq3>: Programming Tools
+
+This section of the FAQ answers questions related to programmer tools and programming support.
+
+=over 4
+
+=item *
+
+How do I do (anything)?
+
+=item *
+
+How can I use Perl interactively?
+
+=item *
+
+How do I find which modules are installed on my system?
+
+=item *
+
+How do I debug my Perl programs?
+
+=item *
+
+How do I profile my Perl programs?
+
+=item *
+
+How do I cross-reference my Perl programs?
+
+=item *
+
+Is there a pretty-printer (formatter) for Perl?
+
+=item *
+
+Is there an IDE or Windows Perl Editor?
+
+=item *
+
+Where can I get Perl macros for vi?
+
+=item *
+
+Where can I get perl-mode or cperl-mode for emacs?
+
+=item *
+
+How can I use curses with Perl?
+
+=item *
+
+How can I write a GUI (X, Tk, Gtk, etc.) in Perl?
+
+=item *
+
+How can I make my Perl program run faster?
+
+=item *
+
+How can I make my Perl program take less memory?
+
+=item *
+
+Is it safe to return a reference to local or lexical data?
+
+=item *
+
+How can I free an array or hash so my program shrinks?
+
+=item *
+
+How can I make my CGI script more efficient?
+
+=item *
+
+How can I hide the source for my Perl program?
+
+=item *
+
+How can I compile my Perl program into byte code or C?
+
+=item *
+
+How can I get C<#!perl> to work on [MS-DOS,NT,...]?
+
+=item *
+
+Can I write useful Perl programs on the command line?
+
+=item *
+
+Why don't Perl one-liners work on my DOS/Mac/VMS system?
+
+=item *
+
+Where can I learn about CGI or Web programming in Perl?
+
+=item *
+
+Where can I learn about object-oriented Perl programming?
+
+=item *
+
+Where can I learn about linking C with Perl?
+
+=item *
+
+I've read perlembed, perlguts, etc., but I can't embed perl in my C program; what am I doing wrong?
+
+=item *
+
+When I tried to run my script, I got this message. What does it mean?
+
+=item *
+
+What's MakeMaker?
+
+=back
+
+
+=head2 L<perlfaq4>: Data Manipulation
+
+This section of the FAQ answers questions related to manipulating numbers, dates, strings, arrays, hashes, and miscellaneous data issues.
+
+=over 4
+
+=item *
+
+Why am I getting long decimals (eg, 19.9499999999999) instead of the numbers I should be getting (eg, 19.95)?
+
+=item *
+
+Why is int() broken?
+
+=item *
+
+Why isn't my octal data interpreted correctly?
+
+=item *
+
+Does Perl have a round() function? What about ceil() and floor()? Trig functions?
+
+=item *
+
+How do I convert between numeric representations/bases/radixes?
+
+=item *
+
+Why doesn't & work the way I want it to?
+
+=item *
+
+How do I multiply matrices?
+
+=item *
+
+How do I perform an operation on a series of integers?
+
+=item *
+
+How can I output Roman numerals?
+
+=item *
+
+Why aren't my random numbers random?
+
+=item *
+
+How do I get a random number between X and Y?
+
+=item *
+
+How do I find the day or week of the year?
+
+=item *
+
+How do I find the current century or millennium?
+
+=item *
+
+How can I compare two dates and find the difference?
+
+=item *
+
+How can I take a string and turn it into epoch seconds?
+
+=item *
+
+How can I find the Julian Day?
+
+=item *
+
+How do I find yesterday's date?
+
+=item *
+
+Does Perl have a Year 2000 or 2038 problem? Is Perl Y2K compliant?
+
+=item *
+
+How do I validate input?
+
+=item *
+
+How do I unescape a string?
+
+=item *
+
+How do I remove consecutive pairs of characters?
+
+=item *
+
+How do I expand function calls in a string?
+
+=item *
+
+How do I find matching/nesting anything?
+
+=item *
+
+How do I reverse a string?
+
+=item *
+
+How do I expand tabs in a string?
+
+=item *
+
+How do I reformat a paragraph?
+
+=item *
+
+How can I access or change N characters of a string?
+
+=item *
+
+How do I change the Nth occurrence of something?
+
+=item *
+
+How can I count the number of occurrences of a substring within a string?
+
+=item *
+
+How do I capitalize all the words on one line?
+
+=item *
+
+How can I split a [character]-delimited string except when inside [character]?
+
+=item *
+
+How do I strip blank space from the beginning/end of a string?
+
+=item *
+
+How do I pad a string with blanks or pad a number with zeroes?
+
+=item *
+
+How do I extract selected columns from a string?
+
+=item *
+
+How do I find the soundex value of a string?
+
+=item *
+
+How can I expand variables in text strings?
+
+=item *
+
+What's wrong with always quoting "$vars"?
+
+=item *
+
+Why don't my E<lt>E<lt>HERE documents work?
+
+=item *
+
+What is the difference between a list and an array?
+
+=item *
+
+What is the difference between $array[1] and @array[1]?
+
+=item *
+
+How can I remove duplicate elements from a list or array?
+
+=item *
+
+How can I tell whether a certain element is contained in a list or array?
+
+=item *
+
+How do I compute the difference of two arrays? How do I compute the intersection of two arrays?
+
+=item *
+
+How do I test whether two arrays or hashes are equal?
+
+=item *
+
+How do I find the first array element for which a condition is true?
+
+=item *
+
+How do I handle linked lists?
+
+=item *
+
+How do I handle circular lists?
+
+=item *
+
+How do I shuffle an array randomly?
+
+=item *
+
+How do I process/modify each element of an array?
+
+=item *
+
+How do I select a random element from an array?
+
+=item *
+
+How do I permute N elements of a list?
+
+=item *
+
+How do I sort an array by (anything)?
+
+=item *
+
+How do I manipulate arrays of bits?
+
+=item *
+
+Why does defined() return true on empty arrays and hashes?
+
+=item *
+
+How do I process an entire hash?
+
+=item *
+
+How do I merge two hashes?
+
+=item *
+
+What happens if I add or remove keys from a hash while iterating over it?
+
+=item *
+
+How do I look up a hash element by value?
+
+=item *
+
+How can I know how many entries are in a hash?
+
+=item *
+
+How do I sort a hash (optionally by value instead of key)?
+
+=item *
+
+How can I always keep my hash sorted?
+
+=item *
+
+What's the difference between "delete" and "undef" with hashes?
+
+=item *
+
+Why don't my tied hashes make the defined/exists distinction?
+
+=item *
+
+How do I reset an each() operation part-way through?
+
+=item *
+
+How can I get the unique keys from two hashes?
+
+=item *
+
+How can I store a multidimensional array in a DBM file?
+
+=item *
+
+How can I make my hash remember the order I put elements into it?
+
+=item *
+
+Why does passing a subroutine an undefined element in a hash create it?
+
+=item *
+
+How can I make the Perl equivalent of a C structure/C++ class/hash or array of hashes or arrays?
+
+=item *
+
+How can I use a reference as a hash key?
+
+=item *
+
+How can I check if a key exists in a multilevel hash?
+
+=item *
+
+How can I prevent addition of unwanted keys into a hash?
+
+=item *
+
+How do I handle binary data correctly?
+
+=item *
+
+How do I determine whether a scalar is a number/whole/integer/float?
+
+=item *
+
+How do I keep persistent data across program calls?
+
+=item *
+
+How do I print out or copy a recursive data structure?
+
+=item *
+
+How do I define methods for every class/object?
+
+=item *
+
+How do I verify a credit card checksum?
+
+=item *
+
+How do I pack arrays of doubles or floats for XS code?
+
+=back
+
+
+=head2 L<perlfaq5>: Files and Formats
+
+This section deals with I/O and the "f" issues: filehandles, flushing, formats, and footers.
+
+=over 4
+
+=item *
+
+How do I flush/unbuffer an output filehandle? Why must I do this?
+
+=item *
+
+How do I change, delete, or insert a line in a file, or append to the beginning of a file?
+
+=item *
+
+How do I count the number of lines in a file?
+
+=item *
+
+How do I delete the last N lines from a file?
+
+=item *
+
+How can I use Perl's C<-i> option from within a program?
+
+=item *
+
+How can I copy a file?
+
+=item *
+
+How do I make a temporary file name?
+
+=item *
+
+How can I manipulate fixed-record-length files?
+
+=item *
+
+How can I make a filehandle local to a subroutine? How do I pass filehandles between subroutines? How do I make an array of filehandles?
+
+=item *
+
+How can I use a filehandle indirectly?
+
+=item *
+
+How can I set up a footer format to be used with write()?
+
+=item *
+
+How can I write() into a string?
+
+=item *
+
+How can I open a filehandle to a string?
+
+=item *
+
+How can I output my numbers with commas added?
+
+=item *
+
+How can I translate tildes (~) in a filename?
+
+=item *
+
+How come when I open a file read-write it wipes it out?
+
+=item *
+
+Why do I sometimes get an "Argument list too long" when I use E<lt>*E<gt>?
+
+=item *
+
+How can I open a file with a leading "E<gt>" or trailing blanks?
+
+=item *
+
+How can I reliably rename a file?
+
+=item *
+
+How can I lock a file?
+
+=item *
+
+Why can't I just open(FH, "E<gt>file.lock")?
+
+=item *
+
+I still don't get locking. I just want to increment the number in the file. How can I do this?
+
+=item *
+
+All I want to do is append a small amount of text to the end of a file. Do I still have to use locking?
+
+=item *
+
+How do I randomly update a binary file?
+
+=item *
+
+How do I get a file's timestamp in perl?
+
+=item *
+
+How do I set a file's timestamp in perl?
+
+=item *
+
+How do I print to more than one file at once?
+
+=item *
+
+How can I read in an entire file all at once?
+
+=item *
+
+How can I read in a file by paragraphs?
+
+=item *
+
+How can I read a single character from a file? From the keyboard?
+
+=item *
+
+How can I tell whether there's a character waiting on a filehandle?
+
+=item *
+
+How do I do a C<tail -f> in perl?
+
+=item *
+
+How do I dup() a filehandle in Perl?
+
+=item *
+
+How do I close a file descriptor by number?
+
+=item *
+
+Why can't I use "C:\temp\foo" in DOS paths? Why doesn't `C:\temp\foo.exe` work?
+
+=item *
+
+Why doesn't glob("*.*") get all the files?
+
+=item *
+
+Why does Perl let me delete read-only files? Why does C<-i> clobber protected files? Isn't this a bug in Perl?
+
+=item *
+
+How do I select a random line from a file?
+
+=item *
+
+Why do I get weird spaces when I print an array of lines?
+
+=item *
+
+How do I traverse a directory tree?
+
+=item *
+
+How do I delete a directory tree?
+
+=item *
+
+How do I copy an entire directory?
+
+=back
+
+
+=head2 L<perlfaq6>: Regular Expressions
+
+This section is surprisingly small because the rest of the FAQ is littered with answers involving regular expressions. For example, decoding a URL and checking whether something is a number can be handled with regular expressions, but those answers are found elsewhere in this document (in perlfaq9 : "How do I decode or create those %-encodings on the web" and perlfaq4 : "How do I determine whether a scalar is a number/whole/integer/float", to be precise).
+
+=over 4
+
+=item *
+
+How can I hope to use regular expressions without creating illegible and unmaintainable code?
+
+=item *
+
+I'm having trouble matching over more than one line. What's wrong?
+
+=item *
+
+How can I pull out lines between two patterns that are themselves on different lines?
+
+=item *
+
+How do I match XML, HTML, or other nasty, ugly things with a regex?
+
+=item *
+
+I put a regular expression into $/ but it didn't work. What's wrong?
+
+=item *
+
+How do I substitute case-insensitively on the LHS while preserving case on the RHS?
+
+=item *
+
+How can I make C<\w> match national character sets?
+
+=item *
+
+How can I match a locale-smart version of C</[a-zA-Z]/> ?
+
+=item *
+
+How can I quote a variable to use in a regex?
+
+=item *
+
+What is C</o> really for?
+
+=item *
+
+How do I use a regular expression to strip C-style comments from a file?
+
+=item *
+
+Can I use Perl regular expressions to match balanced text?
+
+=item *
+
+What does it mean that regexes are greedy? How can I get around it?
+
+=item *
+
+How do I process each word on each line?
+
+=item *
+
+How can I print out a word-frequency or line-frequency summary?
+
+=item *
+
+How can I do approximate matching?
+
+=item *
+
+How do I efficiently match many regular expressions at once?
+
+=item *
+
+Why don't word-boundary searches with C<\b> work for me?
+
+=item *
+
+Why does using $&, $`, or $' slow my program down?
+
+=item *
+
+What good is C<\G> in a regular expression?
+
+=item *
+
+Are Perl regexes DFAs or NFAs? Are they POSIX compliant?
+
+=item *
+
+What's wrong with using grep in a void context?
+
+=item *
+
+How can I match strings with multibyte characters?
+
+=item *
+
+How do I match a regular expression that's in a variable?
+
+=back
+
+
+=head2 L<perlfaq7>: General Perl Language Issues
+
+This section deals with general Perl language issues that don't clearly fit into any of the other sections.
+
+=over 4
+
+=item *
+
+Can I get a BNF/yacc/RE for the Perl language?
+
+=item *
+
+What are all these $@%&* punctuation signs, and how do I know when to use them?
+
+=item *
+
+Do I always/never have to quote my strings or use semicolons and commas?
+
+=item *
+
+How do I skip some return values?
+
+=item *
+
+How do I temporarily block warnings?
+
+=item *
+
+What's an extension?
+
+=item *
+
+Why do Perl operators have different precedence than C operators?
+
+=item *
+
+How do I declare/create a structure?
+
+=item *
+
+How do I create a module?
+
+=item *
+
+How do I adopt or take over a module already on CPAN?
+
+=item *
+
+How do I create a class?
+
+=item *
+
+How can I tell if a variable is tainted?
+
+=item *
+
+What's a closure?
+
+=item *
+
+What is variable suicide and how can I prevent it?
+
+=item *
+
+How can I pass/return a {Function, FileHandle, Array, Hash, Method, Regex}?
+
+=item *
+
+How do I create a static variable?
+
+=item *
+
+What's the difference between dynamic and lexical (static) scoping? Between local() and my()?
+
+=item *
+
+How can I access a dynamic variable while a similarly named lexical is in scope?
+
+=item *
+
+What's the difference between deep and shallow binding?
+
+=item *
+
+Why doesn't "my($foo) = E<lt>$fhE<gt>;" work right?
+
+=item *
+
+How do I redefine a builtin function, operator, or method?
+
+=item *
+
+What's the difference between calling a function as &foo and foo()?
+
+=item *
+
+How do I create a switch or case statement?
+
+=item *
+
+How can I catch accesses to undefined variables, functions, or methods?
+
+=item *
+
+Why can't a method included in this same file be found?
+
+=item *
+
+How can I find out my current or calling package?
+
+=item *
+
+How can I comment out a large block of Perl code?
+
+=item *
+
+How do I clear a package?
+
+=item *
+
+How can I use a variable as a variable name?
+
+=item *
+
+What does "bad interpreter" mean?
+
+=item *
+
+Do I need to recompile XS modules when there is a change in the C library?
+
+=back
+
+
+=head2 L<perlfaq8>: System Interaction
+
+This section of the Perl FAQ covers questions involving operating system interaction. Topics include interprocess communication (IPC), control over the user-interface (keyboard, screen and pointing devices), and most anything else not related to data manipulation.
+
+=over 4
+
+=item *
+
+How do I find out which operating system I'm running under?
+
+=item *
+
+How come exec() doesn't return?
+
+=item *
+
+How do I do fancy stuff with the keyboard/screen/mouse?
+
+=item *
+
+How do I print something out in color?
+
+=item *
+
+How do I read just one key without waiting for a return key?
+
+=item *
+
+How do I check whether input is ready on the keyboard?
+
+=item *
+
+How do I clear the screen?
+
+=item *
+
+How do I get the screen size?
+
+=item *
+
+How do I ask the user for a password?
+
+=item *
+
+How do I read and write the serial port?
+
+=item *
+
+How do I decode encrypted password files?
+
+=item *
+
+How do I start a process in the background?
+
+=item *
+
+How do I trap control characters/signals?
+
+=item *
+
+How do I modify the shadow password file on a Unix system?
+
+=item *
+
+How do I set the time and date?
+
+=item *
+
+How can I sleep() or alarm() for under a second?
+
+=item *
+
+How can I measure time under a second?
+
+=item *
+
+How can I do an atexit() or setjmp()/longjmp()? (Exception handling)
+
+=item *
+
+Why doesn't my sockets program work under System V (Solaris)? What does the error message "Protocol not supported" mean?
+
+=item *
+
+How can I call my system's unique C functions from Perl?
+
+=item *
+
+Where do I get the include files to do ioctl() or syscall()?
+
+=item *
+
+Why do setuid perl scripts complain about kernel problems?
+
+=item *
+
+How can I open a pipe both to and from a command?
+
+=item *
+
+Why can't I get the output of a command with system()?
+
+=item *
+
+How can I capture STDERR from an external command?
+
+=item *
+
+Why doesn't open() return an error when a pipe open fails?
+
+=item *
+
+What's wrong with using backticks in a void context?
+
+=item *
+
+How can I call backticks without shell processing?
+
+=item *
+
+Why can't my script read from STDIN after I gave it EOF (^D on Unix, ^Z on MS-DOS)?
+
+=item *
+
+How can I convert my shell script to perl?
+
+=item *
+
+Can I use perl to run a telnet or ftp session?
+
+=item *
+
+How can I write expect in Perl?
+
+=item *
+
+Is there a way to hide perl's command line from programs such as "ps"?
+
+=item *
+
+I {changed directory, modified my environment} in a perl script. How come the change disappeared when I exited the script? How do I get my changes to be visible?
+
+=item *
+
+How do I close a process's filehandle without waiting for it to complete?
+
+=item *
+
+How do I fork a daemon process?
+
+=item *
+
+How do I find out if I'm running interactively or not?
+
+=item *
+
+How do I timeout a slow event?
+
+=item *
+
+How do I set CPU limits?
+
+=item *
+
+How do I avoid zombies on a Unix system?
+
+=item *
+
+How do I use an SQL database?
+
+=item *
+
+How do I make a system() exit on control-C?
+
+=item *
+
+How do I open a file without blocking?
+
+=item *
+
+How do I tell the difference between errors from the shell and perl?
+
+=item *
+
+How do I install a module from CPAN?
+
+=item *
+
+What's the difference between require and use?
+
+=item *
+
+How do I keep my own module/library directory?
+
+=item *
+
+How do I add the directory my program lives in to the module/library search path?
+
+=item *
+
+How do I add a directory to my include path (@INC) at runtime?
+
+=item *
+
+Where are modules installed?
+
+=item *
+
+What is socket.ph and where do I get it?
+
+=back
+
+
+=head2 L<perlfaq9>: Web, Email and Networking
+
+This section deals with questions related to running web sites, sending and receiving email as well as general networking.
+
+=over 4
+
+=item *
+
+Should I use a web framework?
+
+=item *
+
+Which web framework should I use?
+
+=item *
+
+What is Plack and PSGI?
+
+=item *
+
+How do I remove HTML from a string?
+
+=item *
+
+How do I extract URLs?
+
+=item *
+
+How do I fetch an HTML file?
+
+=item *
+
+How do I automate an HTML form submission?
+
+=item *
+
+How do I decode or create those %-encodings on the web?
+
+=item *
+
+How do I redirect to another page?
+
+=item *
+
+How do I put a password on my web pages?
+
+=item *
+
+How do I make sure users can't enter values into a form that causes my CGI script to do bad things?
+
+=item *
+
+How do I parse a mail header?
+
+=item *
+
+How do I check a valid mail address?
+
+=item *
+
+How do I decode a MIME/BASE64 string?
+
+=item *
+
+How do I find the user's mail address?
+
+=item *
+
+How do I send email?
+
+=item *
+
+How do I use MIME to make an attachment to a mail message?
+
+=item *
+
+How do I read email?
+
+=item *
+
+How do I find out my hostname, domainname, or IP address?
+
+=item *
+
+How do I fetch/put an (S)FTP file?
+
+=item *
+
+How can I do RPC in Perl?
+
+=back
+
+
+
+=head1 CREDITS
+
+Tom Christiansen wrote the original perlfaq then expanded it with the
+help of Nat Torkington. brian d foy substantially edited and expanded
+the perlfaq. perlfaq-workers and others have also supplied feedback,
+patches and corrections over the years.
+
+=head1 AUTHOR AND COPYRIGHT
+
+Tom Christiansen wrote the original version of this document.
+brian d foy C<< <bdfoy@cpan.org> >> wrote this version. See the
+individual perlfaq documents for additional copyright information.
+
+This document is available under the same terms as Perl itself. Code
+examples in all the perlfaq documents are in the public domain. Use
+them as you see fit (and at your own risk with no warranty from anyone).
diff --git a/lib/5.24.1/pod/perlfaq1.pod b/lib/5.24.1/pod/perlfaq1.pod
new file mode 100644
index 00000000..c2c793ef
--- /dev/null
+++ b/lib/5.24.1/pod/perlfaq1.pod
@@ -0,0 +1,353 @@
+=head1 NAME
+
+perlfaq1 - General Questions About Perl
+
+=head1 VERSION
+
+version 5.021010
+
+=head1 DESCRIPTION
+
+This section of the FAQ answers very general, high-level questions
+about Perl.
+
+=head2 What is Perl?
+
+Perl is a high-level programming language with an eclectic heritage
+written by Larry Wall and a cast of thousands.
+
+Perl's process, file, and text manipulation facilities make it
+particularly well-suited for tasks involving quick prototyping, system
+utilities, software tools, system management tasks, database access,
+graphical programming, networking, and web programming.
+
+Perl derives from the ubiquitous C programming language and to a
+lesser extent from sed, awk, the Unix shell, and many other tools
+and languages.
+
+These strengths make it especially popular with web developers
+and system administrators. Mathematicians, geneticists, journalists,
+managers and many other people also use Perl.
+
+=head2 Who supports Perl? Who develops it? Why is it free?
+
+The original culture of the pre-populist Internet and the deeply-held
+beliefs of Perl's author, Larry Wall, gave rise to the free and open
+distribution policy of Perl. Perl is supported by its users. The
+core, the standard Perl library, the optional modules, and the
+documentation you're reading now were all written by volunteers.
+
+The core development team (known as the Perl Porters)
+are a group of highly altruistic individuals committed to
+producing better software for free than you could hope to purchase for
+money. You may snoop on pending developments via the
+L<archives|http://www.nntp.perl.org/group/perl.perl5.porters/>
+or read the L<faq|http://dev.perl.org/perl5/docs/p5p-faq.html>,
+or you can subscribe to the mailing list by sending
+perl5-porters-subscribe@perl.org a subscription request
+(an empty message with no subject is fine).
+
+While the GNU project includes Perl in its distributions, there's no
+such thing as "GNU Perl". Perl is not produced nor maintained by the
+Free Software Foundation. Perl's licensing terms are also more open
+than GNU software's tend to be.
+
+You can get commercial support of Perl if you wish, although for most
+users the informal support will more than suffice. See the answer to
+"Where can I buy a commercial version of Perl?" for more information.
+
+=head2 Which version of Perl should I use?
+
+(contributed by brian d foy)
+
+There is often a matter of opinion and taste, and there isn't any one
+answer that fits everyone. In general, you want to use either the current
+stable release, or the stable release immediately prior to that one.
+Currently, those are perl5.18.x and perl5.16.x, respectively.
+
+Beyond that, you have to consider several things and decide which is best
+for you.
+
+=over 4
+
+=item *
+
+If things aren't broken, upgrading perl may break them (or at least issue
+new warnings).
+
+=item *
+
+The latest versions of perl have more bug fixes.
+
+=item *
+
+The Perl community is geared toward supporting the most recent releases,
+so you'll have an easier time finding help for those.
+
+=item *
+
+Versions prior to perl5.004 had serious security problems with buffer
+overflows, and in some cases have CERT advisories (for instance,
+L<http://www.cert.org/advisories/CA-1997-17.html> ).
+
+=item *
+
+The latest versions are probably the least deployed and widely tested, so
+you may want to wait a few months after their release and see what
+problems others have if you are risk averse.
+
+=item *
+
+The immediate, previous releases (i.e. perl5.14.x ) are usually maintained
+for a while, although not at the same level as the current releases.
+
+=item *
+
+No one is actively supporting Perl 4. Ten years ago it was a dead
+camel carcass (according to this document). Now it's barely a skeleton
+as its whitewashed bones have fractured or eroded.
+
+=item *
+
+The current leading implementation of Perl 6, Rakudo, released a "useful,
+usable, 'early adopter'" distribution of Perl 6 (called Rakudo Star) in July of
+2010. Please see L<http://rakudo.org/> for more information.
+
+=item *
+
+There are really two tracks of perl development: a maintenance version
+and an experimental version. The maintenance versions are stable, and
+have an even number as the minor release (i.e. perl5.18.x, where 18 is the
+minor release). The experimental versions may include features that
+don't make it into the stable versions, and have an odd number as the
+minor release (i.e. perl5.19.x, where 19 is the minor release).
+
+=back
+
+=head2 What are Perl 4, Perl 5, or Perl 6?
+
+In short, Perl 4 is the parent to both Perl 5 and Perl 6. Perl 5 is the older
+sibling, and though they are different languages, someone who knows one will
+spot many similarities in the other.
+
+The number after Perl (i.e. the 5 after Perl 5) is the major release
+of the perl interpreter as well as the version of the language. Each
+major version has significant differences that earlier versions cannot
+support.
+
+The current major release of Perl is Perl 5, first released in
+1994. It can run scripts from the previous major release, Perl 4
+(March 1991), but has significant differences.
+
+Perl 6 is a reinvention of Perl, it is a language in the same lineage but
+not compatible. The two are complementary, not mutually exclusive. Perl 6 is
+not meant to replace Perl 5, and vice versa. See L</"What is Perl 6?"> below
+to find out more.
+
+See L<perlhist> for a history of Perl revisions.
+
+=head2 What is Perl 6?
+
+Perl 6 was I<originally> described as the community's rewrite of Perl 5.
+Development started in 2002; syntax and design work continue to this day.
+As the language has evolved, it has become clear that it is a separate
+language, incompatible with Perl 5 but in the same language family.
+
+Contrary to popular belief, Perl 6 and Perl 5 peacefully coexist with one
+another. Perl 6 has proven to be a fascinating source of ideas for those
+using Perl 5 (the L<Moose> object system is a well-known example). There is
+overlap in the communities, and this overlap fosters the tradition of sharing
+and borrowing that have been instrumental to Perl's success. The current
+leading implementation of Perl 6 is Rakudo, and you can learn more about
+it at L<http://rakudo.org>.
+
+If you want to learn more about Perl 6, or have a desire to help in
+the crusade to make Perl a better place then read the Perl 6 developers
+page at L<http://www.perl6.org/> and get involved.
+
+"We're really serious about reinventing everything that needs reinventing."
+--Larry Wall
+
+=head2 How stable is Perl?
+
+Production releases, which incorporate bug fixes and new functionality,
+are widely tested before release. Since the 5.000 release, we have
+averaged about one production release per year.
+
+The Perl development team occasionally make changes to the
+internal core of the language, but all possible efforts are made toward
+backward compatibility.
+
+=head2 How often are new versions of Perl released?
+
+Recently, the plan has been to release a new version of Perl roughly every
+April, but getting the release right is more important than sticking rigidly to
+a calendar date, so the release date is somewhat flexible.  The historical
+release dates can be viewed at L<http://www.cpan.org/src/README.html>.
+
+Even numbered minor versions (5.14, 5.16, 5.18) are production versions, and
+odd numbered minor versions (5.15, 5.17, 5.19) are development versions. Unless
+you want to try out an experimental feature, you probably never want to install
+a development version of Perl.
+
+The Perl development team are called Perl 5 Porters, and their
+organization is described at L<http://perldoc.perl.org/perlpolicy.html>.
+The organizational rules really just boil down to one: Larry is always
+right, even when he was wrong.
+
+=head2 Is Perl difficult to learn?
+
+No, Perl is easy to start L<learning|http://learn.perl.org/> --and easy to keep learning. It looks
+like most programming languages you're likely to have experience
+with, so if you've ever written a C program, an awk script, a shell
+script, or even a BASIC program, you're already partway there.
+
+Most tasks only require a small subset of the Perl language. One of
+the guiding mottos for Perl development is "there's more than one way
+to do it" (TMTOWTDI, sometimes pronounced "tim toady"). Perl's
+learning curve is therefore shallow (easy to learn) and long (there's
+a whole lot you can do if you really want).
+
+Finally, because Perl is frequently (but not always, and certainly not by
+definition) an interpreted language, you can write your programs and test
+them without an intermediate compilation step, allowing you to experiment
+and test/debug quickly and easily. This ease of experimentation flattens
+the learning curve even more.
+
+Things that make Perl easier to learn: Unix experience, almost any kind
+of programming experience, an understanding of regular expressions, and
+the ability to understand other people's code. If there's something you
+need to do, then it's probably already been done, and a working example is
+usually available for free. Don't forget Perl modules, either.
+They're discussed in Part 3 of this FAQ, along with L<CPAN|http://www.cpan.org/>, which is
+discussed in Part 2.
+
+=head2 How does Perl compare with other languages like Java, Python, REXX, Scheme, or Tcl?
+
+Perl can be used for almost any coding problem, even ones which require
+integrating specialist C code for extra speed. As with any tool it can
+be used well or badly. Perl has many strengths, and a few weaknesses,
+precisely which areas are good and bad is often a personal choice.
+
+When choosing a language you should also be influenced by the
+L<resources|http://www.cpan.org/>, L<testing culture|http://www.cpantesters.org/>
+and L<community|http://www.perl.org/community.html> which surrounds it.
+
+For comparisons to a specific language it is often best to create
+a small project in both languages and compare the results, make sure
+to use all the L<resources|http://www.cpan.org/> of each language,
+as a language is far more than just it's syntax.
+
+=head2 Can I do [task] in Perl?
+
+Perl is flexible and extensible enough for you to use on virtually any
+task, from one-line file-processing tasks to large, elaborate systems.
+
+For many people, Perl serves as a great replacement for shell scripting.
+For others, it serves as a convenient, high-level replacement for most of
+what they'd program in low-level languages like C or C++. It's ultimately
+up to you (and possibly your management) which tasks you'll use Perl
+for and which you won't.
+
+If you have a library that provides an API, you can make any component
+of it available as just another Perl function or variable using a Perl
+extension written in C or C++ and dynamically linked into your main
+perl interpreter. You can also go the other direction, and write your
+main program in C or C++, and then link in some Perl code on the fly,
+to create a powerful application. See L<perlembed>.
+
+That said, there will always be small, focused, special-purpose
+languages dedicated to a specific problem domain that are simply more
+convenient for certain kinds of problems. Perl tries to be all things
+to all people, but nothing special to anyone. Examples of specialized
+languages that come to mind include prolog and matlab.
+
+=head2 When shouldn't I program in Perl?
+
+One good reason is when you already have an existing
+application written in another language that's all done (and done
+well), or you have an application language specifically designed for a
+certain task (e.g. prolog, make).
+
+If you find that you need to speed up a specific part of a Perl
+application (not something you often need) you may want to use C,
+but you can access this from your Perl code with L<perlxs>.
+
+=head2 What's the difference between "perl" and "Perl"?
+
+"Perl" is the name of the language. Only the "P" is capitalized.
+The name of the interpreter (the program which runs the Perl script)
+is "perl" with a lowercase "p".
+
+You may or may not choose to follow this usage. But never write "PERL",
+because perl is not an acronym.
+
+=head2 What is a JAPH?
+
+(contributed by brian d foy)
+
+JAPH stands for "Just another Perl hacker,", which Randal Schwartz used
+to sign email and usenet messages starting in the late 1980s. He
+previously used the phrase with many subjects ("Just another x hacker,"),
+so to distinguish his JAPH, he started to write them as Perl programs:
+
+    print "Just another Perl hacker,";
+
+Other people picked up on this and started to write clever or obfuscated
+programs to produce the same output, spinning things quickly out of
+control while still providing hours of amusement for their creators and
+readers.
+
+CPAN has several JAPH programs at L<http://www.cpan.org/misc/japh>.
+
+=head2 How can I convince others to use Perl?
+
+(contributed by brian d foy)
+
+Appeal to their self interest! If Perl is new (and thus scary) to them,
+find something that Perl can do to solve one of their problems. That
+might mean that Perl either saves them something (time, headaches, money)
+or gives them something (flexibility, power, testability).
+
+In general, the benefit of a language is closely related to the skill of
+the people using that language. If you or your team can be faster,
+better, and stronger through Perl, you'll deliver more value. Remember,
+people often respond better to what they get out of it. If you run
+into resistance, figure out what those people get out of the other
+choice and how Perl might satisfy that requirement.
+
+You don't have to worry about finding or paying for Perl; it's freely
+available and several popular operating systems come with Perl. Community
+support in places such as Perlmonks ( L<http://www.perlmonks.com> )
+and the various Perl mailing lists ( L<http://lists.perl.org> ) means that
+you can usually get quick answers to your problems.
+
+Finally, keep in mind that Perl might not be the right tool for every
+job. You're a much better advocate if your claims are reasonable and
+grounded in reality. Dogmatically advocating anything tends to make
+people discount your message. Be honest about possible disadvantages
+to your choice of Perl since any choice has trade-offs.
+
+You might find these links useful:
+
+=over 4
+
+=item * L<http://www.perl.org/about.html>
+
+=item * L<http://perltraining.com.au/whyperl.html>
+
+=back
+
+=head1 AUTHOR AND COPYRIGHT
+
+Copyright (c) 1997-2010 Tom Christiansen, Nathan Torkington, and
+other authors as noted. All rights reserved.
+
+This documentation is free; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+Irrespective of its distribution, all code examples here are in the public
+domain. You are permitted and encouraged to use this code and any
+derivatives thereof in your own programs for fun or for profit as you
+see fit. A simple comment in the code giving credit to the FAQ would
+be courteous but is not required.
diff --git a/lib/5.24.1/pod/perlfaq2.pod b/lib/5.24.1/pod/perlfaq2.pod
new file mode 100644
index 00000000..4c652dbf
--- /dev/null
+++ b/lib/5.24.1/pod/perlfaq2.pod
@@ -0,0 +1,250 @@
+=head1 NAME
+
+perlfaq2 - Obtaining and Learning about Perl
+
+=head1 VERSION
+
+version 5.021010
+
+=head1 DESCRIPTION
+
+This section of the FAQ answers questions about where to find
+source and documentation for Perl, support, and
+related matters.
+
+=head2 What machines support Perl? Where do I get it?
+
+The standard release of Perl (the one maintained by the Perl
+development team) is distributed only in source code form. You
+can find the latest releases at L<http://www.cpan.org/src/>.
+
+Perl builds and runs on a bewildering number of platforms. Virtually
+all known and current Unix derivatives are supported (perl's native
+platform), as are other systems like VMS, DOS, OS/2, Windows,
+QNX, BeOS, OS X, MPE/iX and the Amiga.
+
+Binary distributions for some proprietary platforms can be found
+L<http://www.cpan.org/ports/> directory. Because these are not part of
+the standard distribution, they may and in fact do differ from the
+base perl port in a variety of ways. You'll have to check their
+respective release notes to see just what the differences are. These
+differences can be either positive (e.g. extensions for the features
+of the particular platform that are not supported in the source
+release of perl) or negative (e.g. might be based upon a less current
+source release of perl).
+
+=head2 How can I get a binary version of Perl?
+
+See L<CPAN Ports|http://www.cpan.org/ports/>
+
+=head2 I don't have a C compiler. How can I build my own Perl interpreter?
+
+For Windows, use a binary version of Perl,
+L<Strawberry Perl|http://strawberryperl.com/> and
+L<ActivePerl|http://www.activestate.com/activeperl> come with a
+bundled C compiler.
+
+Otherwise if you really do want to build Perl, you need to get a
+binary version of C<gcc> for your system first. Use a search
+engine to find out how to do this for your operating system.
+
+=head2 I copied the Perl binary from one machine to another, but scripts don't work.
+
+That's probably because you forgot libraries, or library paths differ.
+You really should build the whole distribution on the machine it will
+eventually live on, and then type C<make install>. Most other
+approaches are doomed to failure.
+
+One simple way to check that things are in the right place is to print out
+the hard-coded C<@INC> that perl looks through for libraries:
+
+    % perl -le 'print for @INC'
+
+If this command lists any paths that don't exist on your system, then you
+may need to move the appropriate libraries to these locations, or create
+symbolic links, aliases, or shortcuts appropriately. C<@INC> is also printed as
+part of the output of
+
+    % perl -V
+
+You might also want to check out
+L<perlfaq8/"How do I keep my own module/library directory?">.
+
+=head2 I grabbed the sources and tried to compile but gdbm/dynamic loading/malloc/linking/... failed. How do I make it work?
+
+Read the F<INSTALL> file, which is part of the source distribution.
+It describes in detail how to cope with most idiosyncrasies that the
+C<Configure> script can't work around for any given system or
+architecture.
+
+=head2 What modules and extensions are available for Perl? What is CPAN?
+
+CPAN stands for Comprehensive Perl Archive Network, a multi-gigabyte
+archive replicated on hundreds of machines all over the world. CPAN
+contains tens of thousands of modules and extensions, source code
+and documentation, designed for I<everything> from commercial
+database interfaces to keyboard/screen control and running large web sites.
+
+You can search CPAN on L<http://metacpan.org> or
+L<http://search.cpan.org/>.
+
+The master web site for CPAN is L<http://www.cpan.org/>,
+L<http://www.cpan.org/SITES.html> lists all mirrors.
+
+See the CPAN FAQ at L<http://www.cpan.org/misc/cpan-faq.html> for answers
+to the most frequently asked questions about CPAN.
+
+The L<Task::Kensho> module has a list of recommended modules which
+you should review as a good starting point.
+
+=head2 Where can I get information on Perl?
+
+=over 4
+
+=item * L<http://www.perl.org/>
+
+=item * L<http://perldoc.perl.org/>
+
+=item * L<http://learn.perl.org/>
+
+=back
+
+The complete Perl documentation is available with the Perl distribution.
+If you have Perl installed locally, you probably have the documentation
+installed as well: type C<perldoc perl> in a terminal or
+L<view online|http://perldoc.perl.org/perl.html>.
+
+(Some operating system distributions may ship the documentation in a different
+package; for instance, on Debian, you need to install the C<perl-doc> package.)
+
+Many good books have been written about Perl--see the section later in
+L<perlfaq2> for more details.
+
+=head2 What is perl.com? Perl Mongers? pm.org? perl.org? cpan.org?
+
+L<Perl.com|http://www.perl.com/> used to be part of the O'Reilly
+Network, a subsidiary of O'Reilly Media. Although it retains most of
+the original content from its O'Reilly Network, it is now hosted by
+L<The Perl Foundation|http://www.perlfoundation.org/>.
+
+The Perl Foundation is an advocacy organization for the Perl language
+which maintains the web site L<http://www.perl.org/> as a general
+advocacy site for the Perl language. It uses the domain to provide
+general support services to the Perl community, including the hosting
+of mailing lists, web sites, and other services. There are also many
+other sub-domains for special topics like learning Perl and jobs in Perl,
+such as:
+
+=over 4
+
+=item * L<http://www.perl.org/>
+
+=item * L<http://learn.perl.org/>
+
+=item * L<http://jobs.perl.org/>
+
+=item * L<http://lists.perl.org/>
+
+=back
+
+L<Perl Mongers|http://www.pm.org/> uses the pm.org domain for services
+related to local Perl user groups, including the hosting of mailing lists
+and web sites. See the L<Perl Mongers web site|http://www.pm.org/> for more
+information about joining, starting, or requesting services for a
+Perl user group.
+
+CPAN, or the Comprehensive Perl Archive Network L<http://www.cpan.org/>,
+is a replicated, worldwide repository of Perl software.
+See L<What is CPAN?|/"What modules and extensions are available for Perl? What is CPAN?">.
+
+=head2 Where can I post questions?
+
+There are many Perl L<mailing lists|lists.perl.org> for various
+topics, specifically the L<beginners list|http://lists.perl.org/list/beginners.html>
+may be of use.
+
+Other places to ask questions are on the
+L<PerlMonks site|http://www.perlmonks.org/> or
+L<stackoverflow|http://stackoverflow.com/questions/tagged/perl>.
+
+=head2 Perl Books
+
+There are many good L<books on Perl|http://www.perl.org/books/library.html>.
+
+=head2 Which magazines have Perl content?
+
+There's also I<$foo Magazin>, a German magazine dedicated to Perl, at
+( L<http://www.foo-magazin.de> ). The I<Perl-Zeitung> is another
+German-speaking magazine for Perl beginners (see
+L<http://perl-zeitung.at.tf> ).
+
+Several Unix/Linux related magazines frequently include articles on Perl.
+
+=head2 Which Perl blogs should I read?
+
+L<Perl News|http://perlnews.org/> covers some of the major events in the Perl
+world, L<Perl Weekly|http://perlweekly.com/> is a weekly e-mail
+(and RSS feed) of hand-picked Perl articles.
+
+L<http://blogs.perl.org/> hosts many Perl blogs, there are also
+several blog aggregators: L<Perlsphere|http://perlsphere.net/> and
+L<IronMan|http://ironman.enlightenedperl.org/> are two of them.
+
+=head2 What mailing lists are there for Perl?
+
+A comprehensive list of Perl-related mailing lists can be found at
+L<http://lists.perl.org/>
+
+=head2 Where can I buy a commercial version of Perl?
+
+Perl already I<is> commercial software: it has a license
+that you can grab and carefully read to your manager. It is distributed
+in releases and comes in well-defined packages. There is a very large
+and supportive user community and an extensive literature.
+
+If you still need commercial support
+L<ActiveState|http://www.activestate.com/activeperl> offers
+this.
+
+=head2 Where do I send bug reports?
+
+(contributed by brian d foy)
+
+First, ensure that you've found an actual bug. Second, ensure you've
+found an actual bug.
+
+If you've found a bug with the perl interpreter or one of the modules
+in the standard library (those that come with Perl), you can use the
+L<perlbug> utility that comes with Perl (>= 5.004). It collects
+information about your installation to include with your message, then
+sends the message to the right place.
+
+To determine if a module came with your version of Perl, you can
+install and use the L<Module::CoreList> module. It has the information
+about the modules (with their versions) included with each release
+of Perl.
+
+Every CPAN module has a bug tracker set up in RT, L<http://rt.cpan.org>.
+You can submit bugs to RT either through its web interface or by
+email. To email a bug report, send it to
+bug-E<lt>distribution-nameE<gt>@rt.cpan.org . For example, if you
+wanted to report a bug in L<Business::ISBN>, you could send a message to
+bug-Business-ISBN@rt.cpan.org .
+
+Some modules might have special reporting requirements, such as a
+Github or Google Code tracking system, so you should check the
+module documentation too.
+
+=head1 AUTHOR AND COPYRIGHT
+
+Copyright (c) 1997-2010 Tom Christiansen, Nathan Torkington, and
+other authors as noted. All rights reserved.
+
+This documentation is free; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+Irrespective of its distribution, all code examples here are in the public
+domain. You are permitted and encouraged to use this code and any
+derivatives thereof in your own programs for fun or for profit as you
+see fit. A simple comment in the code giving credit to the FAQ would
+be courteous but is not required.
diff --git a/lib/5.24.1/pod/perlfaq3.pod b/lib/5.24.1/pod/perlfaq3.pod
new file mode 100644
index 00000000..78a2bab0
--- /dev/null
+++ b/lib/5.24.1/pod/perlfaq3.pod
@@ -0,0 +1,1137 @@
+=head1 NAME
+
+perlfaq3 - Programming Tools
+
+=head1 VERSION
+
+version 5.021010
+
+=head1 DESCRIPTION
+
+This section of the FAQ answers questions related to programmer tools
+and programming support.
+
+=head2 How do I do (anything)?
+
+Have you looked at CPAN (see L<perlfaq2>)? The chances are that
+someone has already written a module that can solve your problem.
+Have you read the appropriate manpages? Here's a brief index:
+
+=over 4
+
+=item Basics
+
+=over 4
+
+=item L<perldata> - Perl data types
+
+=item L<perlvar> - Perl pre-defined variables
+
+=item L<perlsyn> - Perl syntax
+
+=item L<perlop> - Perl operators and precedence
+
+=item L<perlsub> - Perl subroutines
+
+=back
+
+
+=item Execution
+
+=over 4
+
+=item L<perlrun> - how to execute the Perl interpreter
+
+=item L<perldebug> - Perl debugging
+
+=back
+
+
+=item Functions
+
+=over 4
+
+=item L<perlfunc> - Perl builtin functions
+
+=back
+
+=item Objects
+
+=over 4
+
+=item L<perlref> - Perl references and nested data structures
+
+=item L<perlmod> - Perl modules (packages and symbol tables)
+
+=item L<perlobj> - Perl objects
+
+=item L<perltie> - how to hide an object class in a simple variable
+
+=back
+
+
+=item Data Structures
+
+=over 4
+
+=item L<perlref> - Perl references and nested data structures
+
+=item L<perllol> - Manipulating arrays of arrays in Perl
+
+=item L<perldsc> - Perl Data Structures Cookbook
+
+=back
+
+=item Modules
+
+=over 4
+
+=item L<perlmod> - Perl modules (packages and symbol tables)
+
+=item L<perlmodlib> - constructing new Perl modules and finding existing ones
+
+=back
+
+
+=item Regexes
+
+=over 4
+
+=item L<perlre> - Perl regular expressions
+
+=item L<perlfunc> - Perl builtin functions>
+
+=item L<perlop> - Perl operators and precedence
+
+=item L<perllocale> - Perl locale handling (internationalization and localization)
+
+=back
+
+
+=item Moving to perl5
+
+=over 4
+
+=item L<perltrap> - Perl traps for the unwary
+
+=item L<perl>
+
+=back
+
+
+=item Linking with C
+
+=over 4
+
+=item L<perlxstut> - Tutorial for writing XSUBs
+
+=item L<perlxs> - XS language reference manual
+
+=item L<perlcall> - Perl calling conventions from C
+
+=item L<perlguts> - Introduction to the Perl API
+
+=item L<perlembed> - how to embed perl in your C program
+
+=back
+
+=item Various
+
+L<http://www.cpan.org/misc/olddoc/FMTEYEWTK.tgz>
+(not a man-page but still useful, a collection of various essays on
+Perl techniques)
+
+=back
+
+A crude table of contents for the Perl manpage set is found in L<perltoc>.
+
+=head2 How can I use Perl interactively?
+
+The typical approach uses the Perl debugger, described in the
+L<perldebug(1)> manpage, on an "empty" program, like this:
+
+    perl -de 42
+
+Now just type in any legal Perl code, and it will be immediately
+evaluated. You can also examine the symbol table, get stack
+backtraces, check variable values, set breakpoints, and other
+operations typically found in symbolic debuggers.
+
+You can also use L<Devel::REPL> which is an interactive shell for Perl,
+commonly known as a REPL - Read, Evaluate, Print, Loop. It provides
+various handy features.
+
+=head2 How do I find which modules are installed on my system?
+
+From the command line, you can use the C<cpan> command's C<-l> switch:
+
+    $ cpan -l
+
+You can also use C<cpan>'s C<-a> switch to create an autobundle file
+that C<CPAN.pm> understands and can use to re-install every module:
+
+    $ cpan -a
+
+Inside a Perl program, you can use the L<ExtUtils::Installed> module to
+show all installed distributions, although it can take awhile to do
+its magic. The standard library which comes with Perl just shows up
+as "Perl" (although you can get those with L<Module::CoreList>).
+
+    use ExtUtils::Installed;
+
+    my $inst    = ExtUtils::Installed->new();
+    my @modules = $inst->modules();
+
+If you want a list of all of the Perl module filenames, you
+can use L<File::Find::Rule>:
+
+    use File::Find::Rule;
+
+    my @files = File::Find::Rule->
+        extras({follow => 1})->
+        file()->
+        name( '*.pm' )->
+        in( @INC )
+        ;
+
+If you do not have that module, you can do the same thing
+with L<File::Find> which is part of the standard library:
+
+    use File::Find;
+    my @files;
+
+    find(
+        {
+        wanted => sub {
+            push @files, $File::Find::fullname
+            if -f $File::Find::fullname && /\.pm$/
+        },
+        follow => 1,
+        follow_skip => 2,
+        },
+        @INC
+    );
+
+    print join "\n", @files;
+
+If you simply need to check quickly to see if a module is
+available, you can check for its documentation. If you can
+read the documentation the module is most likely installed.
+If you cannot read the documentation, the module might not
+have any (in rare cases):
+
+    $ perldoc Module::Name
+
+You can also try to include the module in a one-liner to see if
+perl finds it:
+
+    $ perl -MModule::Name -e1
+
+(If you don't receive a "Can't locate ... in @INC" error message, then Perl
+found the module name you asked for.)
+
+=head2 How do I debug my Perl programs?
+
+(contributed by brian d foy)
+
+Before you do anything else, you can help yourself by ensuring that
+you let Perl tell you about problem areas in your code. By turning
+on warnings and strictures, you can head off many problems before
+they get too big. You can find out more about these in L<strict>
+and L<warnings>.
+
+    #!/usr/bin/perl
+    use strict;
+    use warnings;
+
+Beyond that, the simplest debugger is the C<print> function. Use it
+to look at values as you run your program:
+
+    print STDERR "The value is [$value]\n";
+
+The L<Data::Dumper> module can pretty-print Perl data structures:
+
+    use Data::Dumper qw( Dumper );
+    print STDERR "The hash is " . Dumper( \%hash ) . "\n";
+
+Perl comes with an interactive debugger, which you can start with the
+C<-d> switch. It's fully explained in L<perldebug>.
+
+If you'd like a graphical user interface and you have L<Tk>, you can use
+C<ptkdb>. It's on CPAN and available for free.
+
+If you need something much more sophisticated and controllable, Leon
+Brocard's L<Devel::ebug> (which you can call with the C<-D> switch as C<-Debug>)
+gives you the programmatic hooks into everything you need to write your
+own (without too much pain and suffering).
+
+You can also use a commercial debugger such as Affrus (Mac OS X), Komodo
+from Activestate (Windows and Mac OS X), or EPIC (most platforms).
+
+=head2 How do I profile my Perl programs?
+
+(contributed by brian d foy, updated Fri Jul 25 12:22:26 PDT 2008)
+
+The C<Devel> namespace has several modules which you can use to
+profile your Perl programs.
+
+The L<Devel::NYTProf> (New York Times Profiler) does both statement
+and subroutine profiling. It's available from CPAN and you also invoke
+it with the C<-d> switch:
+
+    perl -d:NYTProf some_perl.pl
+
+It creates a database of the profile information that you can turn into
+reports. The C<nytprofhtml> command turns the data into an HTML report
+similar to the L<Devel::Cover> report:
+
+    nytprofhtml
+
+You might also be interested in using the L<Benchmark> to
+measure and compare code snippets.
+
+You can read more about profiling in I<Programming Perl>, chapter 20,
+or I<Mastering Perl>, chapter 5.
+
+L<perldebguts> documents creating a custom debugger if you need to
+create a special sort of profiler. brian d foy describes the process
+in I<The Perl Journal>, "Creating a Perl Debugger",
+L<http://www.ddj.com/184404522> , and "Profiling in Perl"
+L<http://www.ddj.com/184404580> .
+
+Perl.com has two interesting articles on profiling: "Profiling Perl",
+by Simon Cozens, L<http://www.perl.com/lpt/a/850> and "Debugging and
+Profiling mod_perl Applications", by Frank Wiles,
+L<http://www.perl.com/pub/a/2006/02/09/debug_mod_perl.html> .
+
+Randal L. Schwartz writes about profiling in "Speeding up Your Perl
+Programs" for I<Unix Review>,
+L<http://www.stonehenge.com/merlyn/UnixReview/col49.html> , and "Profiling
+in Template Toolkit via Overriding" for I<Linux Magazine>,
+L<http://www.stonehenge.com/merlyn/LinuxMag/col75.html> .
+
+=head2 How do I cross-reference my Perl programs?
+
+The L<B::Xref> module can be used to generate cross-reference reports
+for Perl programs.
+
+    perl -MO=Xref[,OPTIONS] scriptname.plx
+
+=head2 Is there a pretty-printer (formatter) for Perl?
+
+L<Perl::Tidy> comes with a perl script L<perltidy> which indents and
+reformats Perl scripts to make them easier to read by trying to follow
+the rules of the L<perlstyle>. If you write Perl, or spend much time reading
+Perl, you will probably find it useful.
+
+Of course, if you simply follow the guidelines in L<perlstyle>,
+you shouldn't need to reformat. The habit of formatting your code
+as you write it will help prevent bugs. Your editor can and should
+help you with this. The perl-mode or newer cperl-mode for emacs
+can provide remarkable amounts of help with most (but not all)
+code, and even less programmable editors can provide significant
+assistance. Tom Christiansen and many other VI users swear by
+the following settings in vi and its clones:
+
+    set ai sw=4
+    map! ^O {^M}^[O^T
+
+Put that in your F<.exrc> file (replacing the caret characters
+with control characters) and away you go. In insert mode, ^T is
+for indenting, ^D is for undenting, and ^O is for blockdenting--as
+it were. A more complete example, with comments, can be found at
+L<http://www.cpan.org/authors/id/TOMC/scripts/toms.exrc.gz>
+
+=head2 Is there an IDE or Windows Perl Editor?
+
+Perl programs are just plain text, so any editor will do.
+
+If you're on Unix, you already have an IDE--Unix itself. The Unix
+philosophy is the philosophy of several small tools that each do one
+thing and do it well. It's like a carpenter's toolbox.
+
+If you want an IDE, check the following (in alphabetical order, not
+order of preference):
+
+=over 4
+
+=item Eclipse
+
+L<http://e-p-i-c.sf.net/>
+
+The Eclipse Perl Integration Project integrates Perl
+editing/debugging with Eclipse.
+
+=item Enginsite
+
+L<http://www.enginsite.com/>
+
+Perl Editor by EngInSite is a complete integrated development
+environment (IDE) for creating, testing, and  debugging  Perl scripts;
+the tool runs on Windows 9x/NT/2000/XP or later.
+
+=item Kephra
+
+L<http://kephra.sf.net>
+
+GUI editor written in Perl using wxWidgets and Scintilla with lots of smaller features.
+Aims for a UI based on Perl principles like TIMTOWTDI and "easy things should be easy,
+hard things should be possible".
+
+=item Komodo
+
+L<http://www.ActiveState.com/Products/Komodo/>
+
+ActiveState's cross-platform (as of October 2004, that's Windows, Linux,
+and Solaris), multi-language IDE has Perl support, including a regular expression
+debugger and remote debugging.
+
+=item Notepad++
+
+L<http://notepad-plus.sourceforge.net/>
+
+=item Open Perl IDE
+
+L<http://open-perl-ide.sourceforge.net/>
+
+Open Perl IDE is an integrated development environment for writing
+and debugging Perl scripts with ActiveState's ActivePerl distribution
+under Windows 95/98/NT/2000.
+
+=item OptiPerl
+
+L<http://www.optiperl.com/>
+
+OptiPerl is a Windows IDE with simulated CGI environment, including
+debugger and syntax-highlighting editor.
+
+=item Padre
+
+L<http://padre.perlide.org/>
+
+Padre is cross-platform IDE for Perl written in Perl using wxWidgets to provide
+a native look and feel. It's open source under the Artistic License. It
+is one of the newer Perl IDEs.
+
+=item PerlBuilder
+
+L<http://www.solutionsoft.com/perl.htm>
+
+PerlBuilder is an integrated development environment for Windows that
+supports Perl development.
+
+=item visiPerl+
+
+L<http://helpconsulting.net/visiperl/index.html>
+
+From Help Consulting, for Windows.
+
+=item Visual Perl
+
+L<http://www.activestate.com/Products/Visual_Perl/>
+
+Visual Perl is a Visual Studio.NET plug-in from ActiveState.
+
+=item Zeus
+
+L<http://www.zeusedit.com/lookmain.html>
+
+Zeus for Windows is another Win32 multi-language editor/IDE
+that comes with support for Perl.
+
+=back
+
+For editors: if you're on Unix you probably have vi or a vi clone
+already, and possibly an emacs too, so you may not need to download
+anything. In any emacs the cperl-mode (M-x cperl-mode) gives you
+perhaps the best available Perl editing mode in any editor.
+
+If you are using Windows, you can use any editor that lets you work
+with plain text, such as NotePad or WordPad. Word processors, such as
+Microsoft Word or WordPerfect, typically do not work since they insert
+all sorts of behind-the-scenes information, although some allow you to
+save files as "Text Only". You can also download text editors designed
+specifically for programming, such as Textpad (
+L<http://www.textpad.com/> ) and UltraEdit ( L<http://www.ultraedit.com/> ),
+among others.
+
+If you are using MacOS, the same concerns apply. MacPerl (for Classic
+environments) comes with a simple editor. Popular external editors are
+BBEdit ( L<http://www.barebones.com/products/bbedit/> ) or Alpha (
+L<http://www.his.com/~jguyer/Alpha/Alpha8.html> ). MacOS X users can use
+Unix editors as well.
+
+=over 4
+
+=item GNU Emacs
+
+L<http://www.gnu.org/software/emacs/windows/ntemacs.html>
+
+=item MicroEMACS
+
+L<http://www.microemacs.de/>
+
+=item XEmacs
+
+L<http://www.xemacs.org/Download/index.html>
+
+=item Jed
+
+L<http://space.mit.edu/~davis/jed/>
+
+=back
+
+or a vi clone such as
+
+=over 4
+
+=item Vim
+
+L<http://www.vim.org/>
+
+=item Vile
+
+L<http://dickey.his.com/vile/vile.html>
+
+=back
+
+The following are Win32 multilanguage editor/IDEs that support Perl:
+
+=over 4
+
+=item MultiEdit
+
+L<http://www.MultiEdit.com/>
+
+=item SlickEdit
+
+L<http://www.slickedit.com/>
+
+=item ConTEXT
+
+L<http://www.contexteditor.org/>
+
+=back
+
+There is also a toyedit Text widget based editor written in Perl
+that is distributed with the Tk module on CPAN. The ptkdb
+( L<http://ptkdb.sourceforge.net/> ) is a Perl/Tk-based debugger that
+acts as a development environment of sorts. Perl Composer
+( L<http://perlcomposer.sourceforge.net/> ) is an IDE for Perl/Tk
+GUI creation.
+
+In addition to an editor/IDE you might be interested in a more
+powerful shell environment for Win32. Your options include
+
+=over 4
+
+=item bash
+
+from the Cygwin package ( L<http://cygwin.com/> )
+
+=item zsh
+
+L<http://www.zsh.org/>
+
+=back
+
+Cygwin is covered by the GNU General Public
+License (but that shouldn't matter for Perl use). Cygwin
+contains (in addition to the shell) a comprehensive set
+of standard Unix toolkit utilities.
+
+=over 4
+
+=item BBEdit and TextWrangler
+
+are text editors for OS X that have a Perl sensitivity mode
+( L<http://www.barebones.com/> ).
+
+=back
+
+=head2 Where can I get Perl macros for vi?
+
+For a complete version of Tom Christiansen's vi configuration file,
+see L<http://www.cpan.org/authors/Tom_Christiansen/scripts/toms.exrc.gz> ,
+the standard benchmark file for vi emulators. The file runs best with nvi,
+the current version of vi out of Berkeley, which incidentally can be built
+with an embedded Perl interpreter--see L<http://www.cpan.org/src/misc/> .
+
+=head2 Where can I get perl-mode or cperl-mode for emacs?
+X<emacs>
+
+Since Emacs version 19 patchlevel 22 or so, there have been both a
+perl-mode.el and support for the Perl debugger built in. These should
+come with the standard Emacs 19 distribution.
+
+Note that the perl-mode of emacs will have fits with C<"main'foo">
+(single quote), and mess up the indentation and highlighting. You
+are probably using C<"main::foo"> in new Perl code anyway, so this
+shouldn't be an issue.
+
+For CPerlMode, see L<http://www.emacswiki.org/cgi-bin/wiki/CPerlMode>
+
+=head2 How can I use curses with Perl?
+
+The Curses module from CPAN provides a dynamically loadable object
+module interface to a curses library. A small demo can be found at the
+directory L<http://www.cpan.org/authors/Tom_Christiansen/scripts/rep.gz> ;
+this program repeats a command and updates the screen as needed, rendering
+B<rep ps axu> similar to B<top>.
+
+=head2 How can I write a GUI (X, Tk, Gtk, etc.) in Perl?
+X<GUI> X<Tk> X<Wx> X<WxWidgets> X<Gtk> X<Gtk2> X<CamelBones> X<Qt>
+
+(contributed by Ben Morrow)
+
+There are a number of modules which let you write GUIs in Perl. Most
+GUI toolkits have a perl interface: an incomplete list follows.
+
+=over 4
+
+=item Tk
+
+This works under Unix and Windows, and the current version doesn't
+look half as bad under Windows as it used to. Some of the gui elements
+still don't 'feel' quite right, though. The interface is very natural
+and 'perlish', making it easy to use in small scripts that just need a
+simple gui. It hasn't been updated in a while.
+
+=item Wx
+
+This is a Perl binding for the cross-platform wxWidgets toolkit
+( L<http://www.wxwidgets.org> ). It works under Unix, Win32 and Mac OS X,
+using native widgets (Gtk under Unix). The interface follows the C++
+interface closely, but the documentation is a little sparse for someone
+who doesn't know the library, mostly just referring you to the C++
+documentation.
+
+=item Gtk and Gtk2
+
+These are Perl bindings for the Gtk toolkit ( L<http://www.gtk.org> ). The
+interface changed significantly between versions 1 and 2 so they have
+separate Perl modules. It runs under Unix, Win32 and Mac OS X (currently
+it requires an X server on Mac OS, but a 'native' port is underway), and
+the widgets look the same on every platform: i.e., they don't match the
+native widgets. As with Wx, the Perl bindings follow the C API closely,
+and the documentation requires you to read the C documentation to
+understand it.
+
+=item Win32::GUI
+
+This provides access to most of the Win32 GUI widgets from Perl.
+Obviously, it only runs under Win32, and uses native widgets. The Perl
+interface doesn't really follow the C interface: it's been made more
+Perlish, and the documentation is pretty good. More advanced stuff may
+require familiarity with the C Win32 APIs, or reference to MSDN.
+
+=item CamelBones
+
+CamelBones ( L<http://camelbones.sourceforge.net> ) is a Perl interface to
+Mac OS X's Cocoa GUI toolkit, and as such can be used to produce native
+GUIs on Mac OS X. It's not on CPAN, as it requires frameworks that
+CPAN.pm doesn't know how to install, but installation is via the
+standard OSX package installer. The Perl API is, again, very close to
+the ObjC API it's wrapping, and the documentation just tells you how to
+translate from one to the other.
+
+=item Qt
+
+There is a Perl interface to TrollTech's Qt toolkit, but it does not
+appear to be maintained.
+
+=item Athena
+
+Sx is an interface to the Athena widget set which comes with X, but
+again it appears not to be much used nowadays.
+
+=back
+
+=head2 How can I make my Perl program run faster?
+
+The best way to do this is to come up with a better algorithm. This
+can often make a dramatic difference. Jon Bentley's book
+I<Programming Pearls> (that's not a misspelling!)  has some good tips
+on optimization, too. Advice on benchmarking boils down to: benchmark
+and profile to make sure you're optimizing the right part, look for
+better algorithms instead of microtuning your code, and when all else
+fails consider just buying faster hardware. You will probably want to
+read the answer to the earlier question "How do I profile my Perl
+programs?" if you haven't done so already.
+
+A different approach is to autoload seldom-used Perl code. See the
+AutoSplit and AutoLoader modules in the standard distribution for
+that. Or you could locate the bottleneck and think about writing just
+that part in C, the way we used to take bottlenecks in C code and
+write them in assembler. Similar to rewriting in C, modules that have
+critical sections can be written in C (for instance, the PDL module
+from CPAN).
+
+If you're currently linking your perl executable to a shared
+I<libc.so>, you can often gain a 10-25% performance benefit by
+rebuilding it to link with a static libc.a instead. This will make a
+bigger perl executable, but your Perl programs (and programmers) may
+thank you for it. See the F<INSTALL> file in the source distribution
+for more information.
+
+The undump program was an ancient attempt to speed up Perl program by
+storing the already-compiled form to disk. This is no longer a viable
+option, as it only worked on a few architectures, and wasn't a good
+solution anyway.
+
+=head2 How can I make my Perl program take less memory?
+
+When it comes to time-space tradeoffs, Perl nearly always prefers to
+throw memory at a problem. Scalars in Perl use more memory than
+strings in C, arrays take more than that, and hashes use even more. While
+there's still a lot to be done, recent releases have been addressing
+these issues. For example, as of 5.004, duplicate hash keys are
+shared amongst all hashes using them, so require no reallocation.
+
+In some cases, using substr() or vec() to simulate arrays can be
+highly beneficial. For example, an array of a thousand booleans will
+take at least 20,000 bytes of space, but it can be turned into one
+125-byte bit vector--a considerable memory savings. The standard
+Tie::SubstrHash module can also help for certain types of data
+structure. If you're working with specialist data structures
+(matrices, for instance) modules that implement these in C may use
+less memory than equivalent Perl modules.
+
+Another thing to try is learning whether your Perl was compiled with
+the system malloc or with Perl's builtin malloc. Whichever one it
+is, try using the other one and see whether this makes a difference.
+Information about malloc is in the F<INSTALL> file in the source
+distribution. You can find out whether you are using perl's malloc by
+typing C<perl -V:usemymalloc>.
+
+Of course, the best way to save memory is to not do anything to waste
+it in the first place. Good programming practices can go a long way
+toward this:
+
+=over 4
+
+=item Don't slurp!
+
+Don't read an entire file into memory if you can process it line
+by line. Or more concretely, use a loop like this:
+
+    #
+    # Good Idea
+    #
+    while (my $line = <$file_handle>) {
+       # ...
+    }
+
+instead of this:
+
+    #
+    # Bad Idea
+    #
+    my @data = <$file_handle>;
+    foreach (@data) {
+        # ...
+    }
+
+When the files you're processing are small, it doesn't much matter which
+way you do it, but it makes a huge difference when they start getting
+larger.
+
+=item Use map and grep selectively
+
+Remember that both map and grep expect a LIST argument, so doing this:
+
+        @wanted = grep {/pattern/} <$file_handle>;
+
+will cause the entire file to be slurped. For large files, it's better
+to loop:
+
+        while (<$file_handle>) {
+                push(@wanted, $_) if /pattern/;
+        }
+
+=item Avoid unnecessary quotes and stringification
+
+Don't quote large strings unless absolutely necessary:
+
+        my $copy = "$large_string";
+
+makes 2 copies of $large_string (one for $copy and another for the
+quotes), whereas
+
+        my $copy = $large_string;
+
+only makes one copy.
+
+Ditto for stringifying large arrays:
+
+    {
+    local $, = "\n";
+    print @big_array;
+    }
+
+is much more memory-efficient than either
+
+    print join "\n", @big_array;
+
+or
+
+    {
+    local $" = "\n";
+    print "@big_array";
+    }
+
+
+=item Pass by reference
+
+Pass arrays and hashes by reference, not by value. For one thing, it's
+the only way to pass multiple lists or hashes (or both) in a single
+call/return. It also avoids creating a copy of all the contents. This
+requires some judgement, however, because any changes will be propagated
+back to the original data. If you really want to mangle (er, modify) a
+copy, you'll have to sacrifice the memory needed to make one.
+
+=item Tie large variables to disk
+
+For "big" data stores (i.e. ones that exceed available memory) consider
+using one of the DB modules to store it on disk instead of in RAM. This
+will incur a penalty in access time, but that's probably better than
+causing your hard disk to thrash due to massive swapping.
+
+=back
+
+=head2 Is it safe to return a reference to local or lexical data?
+
+Yes. Perl's garbage collection system takes care of this so
+everything works out right.
+
+    sub makeone {
+        my @a = ( 1 .. 10 );
+        return \@a;
+    }
+
+    for ( 1 .. 10 ) {
+        push @many, makeone();
+    }
+
+    print $many[4][5], "\n";
+
+    print "@many\n";
+
+=head2 How can I free an array or hash so my program shrinks?
+
+(contributed by Michael Carman)
+
+You usually can't. Memory allocated to lexicals (i.e. my() variables)
+cannot be reclaimed or reused even if they go out of scope. It is
+reserved in case the variables come back into scope. Memory allocated
+to global variables can be reused (within your program) by using
+undef() and/or delete().
+
+On most operating systems, memory allocated to a program can never be
+returned to the system. That's why long-running programs sometimes re-
+exec themselves. Some operating systems (notably, systems that use
+mmap(2) for allocating large chunks of memory) can reclaim memory that
+is no longer used, but on such systems, perl must be configured and
+compiled to use the OS's malloc, not perl's.
+
+In general, memory allocation and de-allocation isn't something you can
+or should be worrying about much in Perl.
+
+See also "How can I make my Perl program take less memory?"
+
+=head2 How can I make my CGI script more efficient?
+
+Beyond the normal measures described to make general Perl programs
+faster or smaller, a CGI program has additional issues. It may be run
+several times per second. Given that each time it runs it will need
+to be re-compiled and will often allocate a megabyte or more of system
+memory, this can be a killer. Compiling into C B<isn't going to help
+you> because the process start-up overhead is where the bottleneck is.
+
+There are three popular ways to avoid this overhead. One solution
+involves running the Apache HTTP server (available from
+L<http://www.apache.org/> ) with either of the mod_perl or mod_fastcgi
+plugin modules.
+
+With mod_perl and the Apache::Registry module (distributed with
+mod_perl), httpd will run with an embedded Perl interpreter which
+pre-compiles your script and then executes it within the same address
+space without forking. The Apache extension also gives Perl access to
+the internal server API, so modules written in Perl can do just about
+anything a module written in C can. For more on mod_perl, see
+L<http://perl.apache.org/>
+
+With the FCGI module (from CPAN) and the mod_fastcgi
+module (available from L<http://www.fastcgi.com/> ) each of your Perl
+programs becomes a permanent CGI daemon process.
+
+Finally, L<Plack> is a Perl module and toolkit that contains PSGI middleware,
+helpers and adapters to web servers, allowing you to easily deploy scripts which
+can continue running, and provides flexibility with regards to which web server
+you use. It can allow existing CGI scripts to enjoy this flexibility and
+performance with minimal changes, or can be used along with modern Perl web
+frameworks to make writing and deploying web services with Perl a breeze.
+
+These solutions can have far-reaching effects on your system and on the way you
+write your CGI programs, so investigate them with care.
+
+See also
+L<http://www.cpan.org/modules/by-category/15_World_Wide_Web_HTML_HTTP_CGI/> .
+
+=head2 How can I hide the source for my Perl program?
+
+Delete it. :-) Seriously, there are a number of (mostly
+unsatisfactory) solutions with varying levels of "security".
+
+First of all, however, you I<can't> take away read permission, because
+the source code has to be readable in order to be compiled and
+interpreted. (That doesn't mean that a CGI script's source is
+readable by people on the web, though--only by people with access to
+the filesystem.)  So you have to leave the permissions at the socially
+friendly 0755 level.
+
+Some people regard this as a security problem. If your program does
+insecure things and relies on people not knowing how to exploit those
+insecurities, it is not secure. It is often possible for someone to
+determine the insecure things and exploit them without viewing the
+source. Security through obscurity, the name for hiding your bugs
+instead of fixing them, is little security indeed.
+
+You can try using encryption via source filters (Starting from Perl
+5.8 the Filter::Simple and Filter::Util::Call modules are included in
+the standard distribution), but any decent programmer will be able to
+decrypt it. You can try using the byte code compiler and interpreter
+described later in L<perlfaq3>, but the curious might still be able to
+de-compile it. You can try using the native-code compiler described
+later, but crackers might be able to disassemble it. These pose
+varying degrees of difficulty to people wanting to get at your code,
+but none can definitively conceal it (true of every language, not just
+Perl).
+
+It is very easy to recover the source of Perl programs. You simply
+feed the program to the perl interpreter and use the modules in
+the B:: hierarchy. The B::Deparse module should be able to
+defeat most attempts to hide source. Again, this is not
+unique to Perl.
+
+If you're concerned about people profiting from your code, then the
+bottom line is that nothing but a restrictive license will give you
+legal security. License your software and pepper it with threatening
+statements like "This is unpublished proprietary software of XYZ Corp.
+Your access to it does not give you permission to use it blah blah
+blah."  We are not lawyers, of course, so you should see a lawyer if
+you want to be sure your license's wording will stand up in court.
+
+=head2 How can I compile my Perl program into byte code or C?
+
+(contributed by brian d foy)
+
+In general, you can't do this. There are some things that may work
+for your situation though. People usually ask this question
+because they want to distribute their works without giving away
+the source code, and most solutions trade disk space for convenience.
+You probably won't see much of a speed increase either, since most
+solutions simply bundle a Perl interpreter in the final product
+(but see L<How can I make my Perl program run faster?>).
+
+The Perl Archive Toolkit ( L<http://par.perl.org/> ) is Perl's
+analog to Java's JAR. It's freely available and on CPAN (
+L<http://search.cpan.org/dist/PAR/> ).
+
+There are also some commercial products that may work for you, although
+you have to buy a license for them.
+
+The Perl Dev Kit ( L<http://www.activestate.com/Products/Perl_Dev_Kit/> )
+from ActiveState can "Turn your Perl programs into ready-to-run
+executables for HP-UX, Linux, Solaris and Windows."
+
+Perl2Exe ( L<http://www.indigostar.com/perl2exe.htm> ) is a command line
+program for converting perl scripts to executable files. It targets both
+Windows and Unix platforms.
+
+=head2 How can I get C<#!perl> to work on [MS-DOS,NT,...]?
+
+For OS/2 just use
+
+    extproc perl -S -your_switches
+
+as the first line in C<*.cmd> file (C<-S> due to a bug in cmd.exe's
+"extproc" handling). For DOS one should first invent a corresponding
+batch file and codify it in C<ALTERNATE_SHEBANG> (see the
+F<dosish.h> file in the source distribution for more information).
+
+The Win95/NT installation, when using the ActiveState port of Perl,
+will modify the Registry to associate the C<.pl> extension with the
+perl interpreter. If you install another port, perhaps even building
+your own Win95/NT Perl from the standard sources by using a Windows port
+of gcc (e.g., with cygwin or mingw32), then you'll have to modify
+the Registry yourself. In addition to associating C<.pl> with the
+interpreter, NT people can use: C<SET PATHEXT=%PATHEXT%;.PL> to let them
+run the program C<install-linux.pl> merely by typing C<install-linux>.
+
+Under "Classic" MacOS, a perl program will have the appropriate Creator and
+Type, so that double-clicking them will invoke the MacPerl application.
+Under Mac OS X, clickable apps can be made from any C<#!> script using Wil
+Sanchez' DropScript utility: L<http://www.wsanchez.net/software/> .
+
+I<IMPORTANT!>: Whatever you do, PLEASE don't get frustrated, and just
+throw the perl interpreter into your cgi-bin directory, in order to
+get your programs working for a web server. This is an EXTREMELY big
+security risk. Take the time to figure out how to do it correctly.
+
+=head2 Can I write useful Perl programs on the command line?
+
+Yes. Read L<perlrun> for more information. Some examples follow.
+(These assume standard Unix shell quoting rules.)
+
+    # sum first and last fields
+    perl -lane 'print $F[0] + $F[-1]' *
+
+    # identify text files
+    perl -le 'for(@ARGV) {print if -f && -T _}' *
+
+    # remove (most) comments from C program
+    perl -0777 -pe 's{/\*.*?\*/}{}gs' foo.c
+
+    # make file a month younger than today, defeating reaper daemons
+    perl -e '$X=24*60*60; utime(time(),time() + 30 * $X,@ARGV)' *
+
+    # find first unused uid
+    perl -le '$i++ while getpwuid($i); print $i'
+
+    # display reasonable manpath
+    echo $PATH | perl -nl -072 -e '
+    s![^/+]*$!man!&&-d&&!$s{$_}++&&push@m,$_;END{print"@m"}'
+
+OK, the last one was actually an Obfuscated Perl Contest entry. :-)
+
+=head2 Why don't Perl one-liners work on my DOS/Mac/VMS system?
+
+The problem is usually that the command interpreters on those systems
+have rather different ideas about quoting than the Unix shells under
+which the one-liners were created. On some systems, you may have to
+change single-quotes to double ones, which you must I<NOT> do on Unix
+or Plan9 systems. You might also have to change a single % to a %%.
+
+For example:
+
+    # Unix (including Mac OS X)
+    perl -e 'print "Hello world\n"'
+
+    # DOS, etc.
+    perl -e "print \"Hello world\n\""
+
+    # Mac Classic
+    print "Hello world\n"
+     (then Run "Myscript" or Shift-Command-R)
+
+    # MPW
+    perl -e 'print "Hello world\n"'
+
+    # VMS
+    perl -e "print ""Hello world\n"""
+
+The problem is that none of these examples are reliable: they depend on the
+command interpreter. Under Unix, the first two often work. Under DOS,
+it's entirely possible that neither works. If 4DOS was the command shell,
+you'd probably have better luck like this:
+
+  perl -e "print <Ctrl-x>"Hello world\n<Ctrl-x>""
+
+Under the Mac, it depends which environment you are using. The MacPerl
+shell, or MPW, is much like Unix shells in its support for several
+quoting variants, except that it makes free use of the Mac's non-ASCII
+characters as control characters.
+
+Using qq(), q(), and qx(), instead of "double quotes", 'single
+quotes', and `backticks`, may make one-liners easier to write.
+
+There is no general solution to all of this. It is a mess.
+
+[Some of this answer was contributed by Kenneth Albanowski.]
+
+=head2 Where can I learn about CGI or Web programming in Perl?
+
+For modules, get the CGI or LWP modules from CPAN. For textbooks,
+see the two especially dedicated to web stuff in the question on
+books. For problems and questions related to the web, like "Why
+do I get 500 Errors" or "Why doesn't it run from the browser right
+when it runs fine on the command line", see the troubleshooting
+guides and references in L<perlfaq9> or in the CGI MetaFAQ:
+
+    L<http://www.perl.org/CGI_MetaFAQ.html>
+
+Looking in to L<Plack> and modern Perl web frameworks is highly recommended,
+though; web programming in Perl has evolved a long way from the old days of
+simple CGI scripts.
+
+=head2 Where can I learn about object-oriented Perl programming?
+
+A good place to start is L<perlootut>, and you can use L<perlobj> for
+reference.
+
+A good book on OO on Perl is the "Object-Oriented Perl"
+by Damian Conway from Manning Publications, or "Intermediate Perl"
+by Randal Schwartz, brian d foy, and Tom Phoenix from O'Reilly Media.
+
+=head2 Where can I learn about linking C with Perl?
+
+If you want to call C from Perl, start with L<perlxstut>,
+moving on to L<perlxs>, L<xsubpp>, and L<perlguts>. If you want to
+call Perl from C, then read L<perlembed>, L<perlcall>, and
+L<perlguts>. Don't forget that you can learn a lot from looking at
+how the authors of existing extension modules wrote their code and
+solved their problems.
+
+You might not need all the power of XS. The Inline::C module lets
+you put C code directly in your Perl source. It handles all the
+magic to make it work. You still have to learn at least some of
+the perl API but you won't have to deal with the complexity of the
+XS support files.
+
+=head2 I've read perlembed, perlguts, etc., but I can't embed perl in my C program; what am I doing wrong?
+
+Download the ExtUtils::Embed kit from CPAN and run `make test'. If
+the tests pass, read the pods again and again and again. If they
+fail, see L<perlbug> and send a bug report with the output of
+C<make test TEST_VERBOSE=1> along with C<perl -V>.
+
+=head2 When I tried to run my script, I got this message. What does it mean?
+
+A complete list of Perl's error messages and warnings with explanatory
+text can be found in L<perldiag>. You can also use the splain program
+(distributed with Perl) to explain the error messages:
+
+    perl program 2>diag.out
+    splain [-v] [-p] diag.out
+
+or change your program to explain the messages for you:
+
+    use diagnostics;
+
+or
+
+    use diagnostics -verbose;
+
+=head2 What's MakeMaker?
+
+(contributed by brian d foy)
+
+The L<ExtUtils::MakeMaker> module, better known simply as "MakeMaker",
+turns a Perl script, typically called C<Makefile.PL>, into a Makefile.
+The Unix tool C<make> uses this file to manage dependencies and actions
+to process and install a Perl distribution.
+
+=head1 AUTHOR AND COPYRIGHT
+
+Copyright (c) 1997-2010 Tom Christiansen, Nathan Torkington, and
+other authors as noted. All rights reserved.
+
+This documentation is free; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+Irrespective of its distribution, all code examples here are in the public
+domain. You are permitted and encouraged to use this code and any
+derivatives thereof in your own programs for fun or for profit as you
+see fit. A simple comment in the code giving credit to the FAQ would
+be courteous but is not required.
diff --git a/lib/5.24.1/pod/perlfaq4.pod b/lib/5.24.1/pod/perlfaq4.pod
new file mode 100644
index 00000000..f6bf2caa
--- /dev/null
+++ b/lib/5.24.1/pod/perlfaq4.pod
@@ -0,0 +1,2683 @@
+=head1 NAME
+
+perlfaq4 - Data Manipulation
+
+=head1 VERSION
+
+version 5.021010
+
+=head1 DESCRIPTION
+
+This section of the FAQ answers questions related to manipulating
+numbers, dates, strings, arrays, hashes, and miscellaneous data issues.
+
+=head1 Data: Numbers
+
+=head2 Why am I getting long decimals (eg, 19.9499999999999) instead of the numbers I should be getting (eg, 19.95)?
+
+For the long explanation, see David Goldberg's "What Every Computer
+Scientist Should Know About Floating-Point Arithmetic"
+(L<http://web.cse.msu.edu/~cse320/Documents/FloatingPoint.pdf>).
+
+Internally, your computer represents floating-point numbers in binary.
+Digital (as in powers of two) computers cannot store all numbers
+exactly. Some real numbers lose precision in the process. This is a
+problem with how computers store numbers and affects all computer
+languages, not just Perl.
+
+L<perlnumber> shows the gory details of number representations and
+conversions.
+
+To limit the number of decimal places in your numbers, you can use the
+C<printf> or C<sprintf> function. See
+L<perlop/"Floating-point Arithmetic"> for more details.
+
+    printf "%.2f", 10/3;
+
+    my $number = sprintf "%.2f", 10/3;
+
+=head2 Why is int() broken?
+
+Your C<int()> is most probably working just fine. It's the numbers that
+aren't quite what you think.
+
+First, see the answer to "Why am I getting long decimals
+(eg, 19.9499999999999) instead of the numbers I should be getting
+(eg, 19.95)?".
+
+For example, this
+
+    print int(0.6/0.2-2), "\n";
+
+will in most computers print 0, not 1, because even such simple
+numbers as 0.6 and 0.2 cannot be presented exactly by floating-point
+numbers. What you think in the above as 'three' is really more like
+2.9999999999999995559.
+
+=head2 Why isn't my octal data interpreted correctly?
+
+(contributed by brian d foy)
+
+You're probably trying to convert a string to a number, which Perl only
+converts as a decimal number. When Perl converts a string to a number, it
+ignores leading spaces and zeroes, then assumes the rest of the digits
+are in base 10:
+
+    my $string = '0644';
+
+    print $string + 0;  # prints 644
+
+    print $string + 44; # prints 688, certainly not octal!
+
+This problem usually involves one of the Perl built-ins that has the
+same name a Unix command that uses octal numbers as arguments on the
+command line. In this example, C<chmod> on the command line knows that
+its first argument is octal because that's what it does:
+
+    %prompt> chmod 644 file
+
+If you want to use the same literal digits (644) in Perl, you have to tell
+Perl to treat them as octal numbers either by prefixing the digits with
+a C<0> or using C<oct>:
+
+    chmod(     0644, $filename );  # right, has leading zero
+    chmod( oct(644), $filename );  # also correct
+
+The problem comes in when you take your numbers from something that Perl
+thinks is a string, such as a command line argument in C<@ARGV>:
+
+    chmod( $ARGV[0],      $filename );  # wrong, even if "0644"
+
+    chmod( oct($ARGV[0]), $filename );  # correct, treat string as octal
+
+You can always check the value you're using by printing it in octal
+notation to ensure it matches what you think it should be. Print it
+in octal  and decimal format:
+
+    printf "0%o %d", $number, $number;
+
+=head2 Does Perl have a round() function? What about ceil() and floor()? Trig functions?
+
+Remember that C<int()> merely truncates toward 0. For rounding to a
+certain number of digits, C<sprintf()> or C<printf()> is usually the
+easiest route.
+
+    printf("%.3f", 3.1415926535);   # prints 3.142
+
+The L<POSIX> module (part of the standard Perl distribution)
+implements C<ceil()>, C<floor()>, and a number of other mathematical
+and trigonometric functions.
+
+    use POSIX;
+    my $ceil   = ceil(3.5);   # 4
+    my $floor  = floor(3.5);  # 3
+
+In 5.000 to 5.003 perls, trigonometry was done in the L<Math::Complex>
+module. With 5.004, the L<Math::Trig> module (part of the standard Perl
+distribution) implements the trigonometric functions. Internally it
+uses the L<Math::Complex> module and some functions can break out from
+the real axis into the complex plane, for example the inverse sine of
+2.
+
+Rounding in financial applications can have serious implications, and
+the rounding method used should be specified precisely. In these
+cases, it probably pays not to trust whichever system of rounding is
+being used by Perl, but instead to implement the rounding function you
+need yourself.
+
+To see why, notice how you'll still have an issue on half-way-point
+alternation:
+
+    for (my $i = 0; $i < 1.01; $i += 0.05) { printf "%.1f ",$i}
+
+    0.0 0.1 0.1 0.2 0.2 0.2 0.3 0.3 0.4 0.4 0.5 0.5 0.6 0.7 0.7
+    0.8 0.8 0.9 0.9 1.0 1.0
+
+Don't blame Perl. It's the same as in C. IEEE says we have to do
+this. Perl numbers whose absolute values are integers under 2**31 (on
+32-bit machines) will work pretty much like mathematical integers.
+Other numbers are not guaranteed.
+
+=head2 How do I convert between numeric representations/bases/radixes?
+
+As always with Perl there is more than one way to do it. Below are a
+few examples of approaches to making common conversions between number
+representations. This is intended to be representational rather than
+exhaustive.
+
+Some of the examples later in L<perlfaq4> use the L<Bit::Vector>
+module from CPAN. The reason you might choose L<Bit::Vector> over the
+perl built-in functions is that it works with numbers of ANY size,
+that it is optimized for speed on some operations, and for at least
+some programmers the notation might be familiar.
+
+=over 4
+
+=item How do I convert hexadecimal into decimal
+
+Using perl's built in conversion of C<0x> notation:
+
+    my $dec = 0xDEADBEEF;
+
+Using the C<hex> function:
+
+    my $dec = hex("DEADBEEF");
+
+Using C<pack>:
+
+    my $dec = unpack("N", pack("H8", substr("0" x 8 . "DEADBEEF", -8)));
+
+Using the CPAN module C<Bit::Vector>:
+
+    use Bit::Vector;
+    my $vec = Bit::Vector->new_Hex(32, "DEADBEEF");
+    my $dec = $vec->to_Dec();
+
+=item How do I convert from decimal to hexadecimal
+
+Using C<sprintf>:
+
+    my $hex = sprintf("%X", 3735928559); # upper case A-F
+    my $hex = sprintf("%x", 3735928559); # lower case a-f
+
+Using C<unpack>:
+
+    my $hex = unpack("H*", pack("N", 3735928559));
+
+Using L<Bit::Vector>:
+
+    use Bit::Vector;
+    my $vec = Bit::Vector->new_Dec(32, -559038737);
+    my $hex = $vec->to_Hex();
+
+And L<Bit::Vector> supports odd bit counts:
+
+    use Bit::Vector;
+    my $vec = Bit::Vector->new_Dec(33, 3735928559);
+    $vec->Resize(32); # suppress leading 0 if unwanted
+    my $hex = $vec->to_Hex();
+
+=item How do I convert from octal to decimal
+
+Using Perl's built in conversion of numbers with leading zeros:
+
+    my $dec = 033653337357; # note the leading 0!
+
+Using the C<oct> function:
+
+    my $dec = oct("33653337357");
+
+Using L<Bit::Vector>:
+
+    use Bit::Vector;
+    my $vec = Bit::Vector->new(32);
+    $vec->Chunk_List_Store(3, split(//, reverse "33653337357"));
+    my $dec = $vec->to_Dec();
+
+=item How do I convert from decimal to octal
+
+Using C<sprintf>:
+
+    my $oct = sprintf("%o", 3735928559);
+
+Using L<Bit::Vector>:
+
+    use Bit::Vector;
+    my $vec = Bit::Vector->new_Dec(32, -559038737);
+    my $oct = reverse join('', $vec->Chunk_List_Read(3));
+
+=item How do I convert from binary to decimal
+
+Perl 5.6 lets you write binary numbers directly with
+the C<0b> notation:
+
+    my $number = 0b10110110;
+
+Using C<oct>:
+
+    my $input = "10110110";
+    my $decimal = oct( "0b$input" );
+
+Using C<pack> and C<ord>:
+
+    my $decimal = ord(pack('B8', '10110110'));
+
+Using C<pack> and C<unpack> for larger strings:
+
+    my $int = unpack("N", pack("B32",
+    substr("0" x 32 . "11110101011011011111011101111", -32)));
+    my $dec = sprintf("%d", $int);
+
+    # substr() is used to left-pad a 32-character string with zeros.
+
+Using L<Bit::Vector>:
+
+    my $vec = Bit::Vector->new_Bin(32, "11011110101011011011111011101111");
+    my $dec = $vec->to_Dec();
+
+=item How do I convert from decimal to binary
+
+Using C<sprintf> (perl 5.6+):
+
+    my $bin = sprintf("%b", 3735928559);
+
+Using C<unpack>:
+
+    my $bin = unpack("B*", pack("N", 3735928559));
+
+Using L<Bit::Vector>:
+
+    use Bit::Vector;
+    my $vec = Bit::Vector->new_Dec(32, -559038737);
+    my $bin = $vec->to_Bin();
+
+The remaining transformations (e.g. hex -> oct, bin -> hex, etc.)
+are left as an exercise to the inclined reader.
+
+=back
+
+=head2 Why doesn't & work the way I want it to?
+
+The behavior of binary arithmetic operators depends on whether they're
+used on numbers or strings. The operators treat a string as a series
+of bits and work with that (the string C<"3"> is the bit pattern
+C<00110011>). The operators work with the binary form of a number
+(the number C<3> is treated as the bit pattern C<00000011>).
+
+So, saying C<11 & 3> performs the "and" operation on numbers (yielding
+C<3>). Saying C<"11" & "3"> performs the "and" operation on strings
+(yielding C<"1">).
+
+Most problems with C<&> and C<|> arise because the programmer thinks
+they have a number but really it's a string or vice versa. To avoid this,
+stringify the arguments explicitly (using C<""> or C<qq()>) or convert them
+to numbers explicitly (using C<0+$arg>). The rest arise because
+the programmer says:
+
+    if ("\020\020" & "\101\101") {
+        # ...
+    }
+
+but a string consisting of two null bytes (the result of C<"\020\020"
+& "\101\101">) is not a false value in Perl. You need:
+
+    if ( ("\020\020" & "\101\101") !~ /[^\000]/) {
+        # ...
+    }
+
+=head2 How do I multiply matrices?
+
+Use the L<Math::Matrix> or L<Math::MatrixReal> modules (available from CPAN)
+or the L<PDL> extension (also available from CPAN).
+
+=head2 How do I perform an operation on a series of integers?
+
+To call a function on each element in an array, and collect the
+results, use:
+
+    my @results = map { my_func($_) } @array;
+
+For example:
+
+    my @triple = map { 3 * $_ } @single;
+
+To call a function on each element of an array, but ignore the
+results:
+
+    foreach my $iterator (@array) {
+        some_func($iterator);
+    }
+
+To call a function on each integer in a (small) range, you B<can> use:
+
+    my @results = map { some_func($_) } (5 .. 25);
+
+but you should be aware that in this form, the C<..> operator
+creates a list of all integers in the range, which can take a lot of
+memory for large ranges. However, the problem does not occur when
+using C<..> within a C<for> loop, because in that case the range
+operator is optimized to I<iterate> over the range, without creating
+the entire list. So
+
+    my @results = ();
+    for my $i (5 .. 500_005) {
+        push(@results, some_func($i));
+    }
+
+or even
+
+   push(@results, some_func($_)) for 5 .. 500_005;
+
+will not create an intermediate list of 500,000 integers.
+
+=head2 How can I output Roman numerals?
+
+Get the L<http://www.cpan.org/modules/by-module/Roman> module.
+
+=head2 Why aren't my random numbers random?
+
+If you're using a version of Perl before 5.004, you must call C<srand>
+once at the start of your program to seed the random number generator.
+
+     BEGIN { srand() if $] < 5.004 }
+
+5.004 and later automatically call C<srand> at the beginning. Don't
+call C<srand> more than once--you make your numbers less random,
+rather than more.
+
+Computers are good at being predictable and bad at being random
+(despite appearances caused by bugs in your programs :-). The
+F<random> article in the "Far More Than You Ever Wanted To Know"
+collection in L<http://www.cpan.org/misc/olddoc/FMTEYEWTK.tgz>, courtesy
+of Tom Phoenix, talks more about this. John von Neumann said, "Anyone
+who attempts to generate random numbers by deterministic means is, of
+course, living in a state of sin."
+
+Perl relies on the underlying system for the implementation of
+C<rand> and C<srand>; on some systems, the generated numbers are
+not random enough (especially on Windows : see
+L<http://www.perlmonks.org/?node_id=803632>).
+Several CPAN modules in the C<Math> namespace implement better
+pseudorandom generators; see for example
+L<Math::Random::MT> ("Mersenne Twister", fast), or
+L<Math::TrulyRandom> (uses the imperfections in the system's
+timer to generate random numbers, which is rather slow).
+More algorithms for random numbers are described in
+"Numerical Recipes in C" at L<http://www.nr.com/>
+
+=head2 How do I get a random number between X and Y?
+
+To get a random number between two values, you can use the C<rand()>
+built-in to get a random number between 0 and 1. From there, you shift
+that into the range that you want.
+
+C<rand($x)> returns a number such that C<< 0 <= rand($x) < $x >>. Thus
+what you want to have perl figure out is a random number in the range
+from 0 to the difference between your I<X> and I<Y>.
+
+That is, to get a number between 10 and 15, inclusive, you want a
+random number between 0 and 5 that you can then add to 10.
+
+    my $number = 10 + int rand( 15-10+1 ); # ( 10,11,12,13,14, or 15 )
+
+Hence you derive the following simple function to abstract
+that. It selects a random integer between the two given
+integers (inclusive). For example: C<random_int_between(50,120)>.
+
+    sub random_int_between {
+        my($min, $max) = @_;
+        # Assumes that the two arguments are integers themselves!
+        return $min if $min == $max;
+        ($min, $max) = ($max, $min)  if  $min > $max;
+        return $min + int rand(1 + $max - $min);
+    }
+
+=head1 Data: Dates
+
+=head2 How do I find the day or week of the year?
+
+The day of the year is in the list returned
+by the C<localtime> function. Without an
+argument C<localtime> uses the current time.
+
+    my $day_of_year = (localtime)[7];
+
+The L<POSIX> module can also format a date as the day of the year or
+week of the year.
+
+    use POSIX qw/strftime/;
+    my $day_of_year  = strftime "%j", localtime;
+    my $week_of_year = strftime "%W", localtime;
+
+To get the day of year for any date, use L<POSIX>'s C<mktime> to get
+a time in epoch seconds for the argument to C<localtime>.
+
+    use POSIX qw/mktime strftime/;
+    my $week_of_year = strftime "%W",
+        localtime( mktime( 0, 0, 0, 18, 11, 87 ) );
+
+You can also use L<Time::Piece>, which comes with Perl and provides a
+C<localtime> that returns an object:
+
+    use Time::Piece;
+    my $day_of_year  = localtime->yday;
+    my $week_of_year = localtime->week;
+
+The L<Date::Calc> module provides two functions to calculate these, too:
+
+    use Date::Calc;
+    my $day_of_year  = Day_of_Year(  1987, 12, 18 );
+    my $week_of_year = Week_of_Year( 1987, 12, 18 );
+
+=head2 How do I find the current century or millennium?
+
+Use the following simple functions:
+
+    sub get_century    {
+        return int((((localtime(shift || time))[5] + 1999))/100);
+    }
+
+    sub get_millennium {
+        return 1+int((((localtime(shift || time))[5] + 1899))/1000);
+    }
+
+On some systems, the L<POSIX> module's C<strftime()> function has been
+extended in a non-standard way to use a C<%C> format, which they
+sometimes claim is the "century". It isn't, because on most such
+systems, this is only the first two digits of the four-digit year, and
+thus cannot be used to determine reliably the current century or
+millennium.
+
+=head2 How can I compare two dates and find the difference?
+
+(contributed by brian d foy)
+
+You could just store all your dates as a number and then subtract.
+Life isn't always that simple though.
+
+The L<Time::Piece> module, which comes with Perl, replaces L<localtime>
+with a version that returns an object. It also overloads the comparison
+operators so you can compare them directly:
+
+    use Time::Piece;
+    my $date1 = localtime( $some_time );
+    my $date2 = localtime( $some_other_time );
+
+    if( $date1 < $date2 ) {
+        print "The date was in the past\n";
+    }
+
+You can also get differences with a subtraction, which returns a
+L<Time::Seconds> object:
+
+    my $date_diff = $date1 - $date2;
+    print "The difference is ", $date_diff->days, " days\n";
+
+If you want to work with formatted dates, the L<Date::Manip>,
+L<Date::Calc>, or L<DateTime> modules can help you.
+
+=head2 How can I take a string and turn it into epoch seconds?
+
+If it's a regular enough string that it always has the same format,
+you can split it up and pass the parts to C<timelocal> in the standard
+L<Time::Local> module. Otherwise, you should look into the L<Date::Calc>,
+L<Date::Parse>, and L<Date::Manip> modules from CPAN.
+
+=head2 How can I find the Julian Day?
+
+(contributed by brian d foy and Dave Cross)
+
+You can use the L<Time::Piece> module, part of the Standard Library,
+which can convert a date/time to a Julian Day:
+
+    $ perl -MTime::Piece -le 'print localtime->julian_day'
+    2455607.7959375
+
+Or the modified Julian Day:
+
+    $ perl -MTime::Piece -le 'print localtime->mjd'
+    55607.2961226851
+
+Or even the day of the year (which is what some people think of as a
+Julian day):
+
+    $ perl -MTime::Piece -le 'print localtime->yday'
+    45
+
+You can also do the same things with the L<DateTime> module:
+
+    $ perl -MDateTime -le'print DateTime->today->jd'
+    2453401.5
+    $ perl -MDateTime -le'print DateTime->today->mjd'
+    53401
+    $ perl -MDateTime -le'print DateTime->today->doy'
+    31
+
+You can use the L<Time::JulianDay> module available on CPAN. Ensure
+that you really want to find a Julian day, though, as many people have
+different ideas about Julian days (see L<http://www.hermetic.ch/cal_stud/jdn.htm>
+for instance):
+
+    $  perl -MTime::JulianDay -le 'print local_julian_day( time )'
+    55608
+
+=head2 How do I find yesterday's date?
+X<date> X<yesterday> X<DateTime> X<Date::Calc> X<Time::Local>
+X<daylight saving time> X<day> X<Today_and_Now> X<localtime>
+X<timelocal>
+
+(contributed by brian d foy)
+
+To do it correctly, you can use one of the C<Date> modules since they
+work with calendars instead of times. The L<DateTime> module makes it
+simple, and give you the same time of day, only the day before,
+despite daylight saving time changes:
+
+    use DateTime;
+
+    my $yesterday = DateTime->now->subtract( days => 1 );
+
+    print "Yesterday was $yesterday\n";
+
+You can also use the L<Date::Calc> module using its C<Today_and_Now>
+function.
+
+    use Date::Calc qw( Today_and_Now Add_Delta_DHMS );
+
+    my @date_time = Add_Delta_DHMS( Today_and_Now(), -1, 0, 0, 0 );
+
+    print "@date_time\n";
+
+Most people try to use the time rather than the calendar to figure out
+dates, but that assumes that days are twenty-four hours each. For
+most people, there are two days a year when they aren't: the switch to
+and from summer time throws this off. For example, the rest of the
+suggestions will be wrong sometimes:
+
+Starting with Perl 5.10, L<Time::Piece> and L<Time::Seconds> are part
+of the standard distribution, so you might think that you could do
+something like this:
+
+    use Time::Piece;
+    use Time::Seconds;
+
+    my $yesterday = localtime() - ONE_DAY; # WRONG
+    print "Yesterday was $yesterday\n";
+
+The L<Time::Piece> module exports a new C<localtime> that returns an
+object, and L<Time::Seconds> exports the C<ONE_DAY> constant that is a
+set number of seconds. This means that it always gives the time 24
+hours ago, which is not always yesterday. This can cause problems
+around the end of daylight saving time when there's one day that is 25
+hours long.
+
+You have the same problem with L<Time::Local>, which will give the wrong
+answer for those same special cases:
+
+    # contributed by Gunnar Hjalmarsson
+     use Time::Local;
+     my $today = timelocal 0, 0, 12, ( localtime )[3..5];
+     my ($d, $m, $y) = ( localtime $today-86400 )[3..5]; # WRONG
+     printf "Yesterday: %d-%02d-%02d\n", $y+1900, $m+1, $d;
+
+=head2 Does Perl have a Year 2000 or 2038 problem? Is Perl Y2K compliant?
+
+(contributed by brian d foy)
+
+Perl itself never had a Y2K problem, although that never stopped people
+from creating Y2K problems on their own. See the documentation for
+C<localtime> for its proper use.
+
+Starting with Perl 5.12, C<localtime> and C<gmtime> can handle dates past
+03:14:08 January 19, 2038, when a 32-bit based time would overflow. You
+still might get a warning on a 32-bit C<perl>:
+
+    % perl5.12 -E 'say scalar localtime( 0x9FFF_FFFFFFFF )'
+    Integer overflow in hexadecimal number at -e line 1.
+    Wed Nov  1 19:42:39 5576711
+
+On a 64-bit C<perl>, you can get even larger dates for those really long
+running projects:
+
+    % perl5.12 -E 'say scalar gmtime( 0x9FFF_FFFFFFFF )'
+    Thu Nov  2 00:42:39 5576711
+
+You're still out of luck if you need to keep track of decaying protons
+though.
+
+=head1 Data: Strings
+
+=head2 How do I validate input?
+
+(contributed by brian d foy)
+
+There are many ways to ensure that values are what you expect or
+want to accept. Besides the specific examples that we cover in the
+perlfaq, you can also look at the modules with "Assert" and "Validate"
+in their names, along with other modules such as L<Regexp::Common>.
+
+Some modules have validation for particular types of input, such
+as L<Business::ISBN>, L<Business::CreditCard>, L<Email::Valid>,
+and L<Data::Validate::IP>.
+
+=head2 How do I unescape a string?
+
+It depends just what you mean by "escape". URL escapes are dealt
+with in L<perlfaq9>. Shell escapes with the backslash (C<\>)
+character are removed with
+
+    s/\\(.)/$1/g;
+
+This won't expand C<"\n"> or C<"\t"> or any other special escapes.
+
+=head2 How do I remove consecutive pairs of characters?
+
+(contributed by brian d foy)
+
+You can use the substitution operator to find pairs of characters (or
+runs of characters) and replace them with a single instance. In this
+substitution, we find a character in C<(.)>. The memory parentheses
+store the matched character in the back-reference C<\g1> and we use
+that to require that the same thing immediately follow it. We replace
+that part of the string with the character in C<$1>.
+
+    s/(.)\g1/$1/g;
+
+We can also use the transliteration operator, C<tr///>. In this
+example, the search list side of our C<tr///> contains nothing, but
+the C<c> option complements that so it contains everything. The
+replacement list also contains nothing, so the transliteration is
+almost a no-op since it won't do any replacements (or more exactly,
+replace the character with itself). However, the C<s> option squashes
+duplicated and consecutive characters in the string so a character
+does not show up next to itself
+
+    my $str = 'Haarlem';   # in the Netherlands
+    $str =~ tr///cs;       # Now Harlem, like in New York
+
+=head2 How do I expand function calls in a string?
+
+(contributed by brian d foy)
+
+This is documented in L<perlref>, and although it's not the easiest
+thing to read, it does work. In each of these examples, we call the
+function inside the braces used to dereference a reference. If we
+have more than one return value, we can construct and dereference an
+anonymous array. In this case, we call the function in list context.
+
+    print "The time values are @{ [localtime] }.\n";
+
+If we want to call the function in scalar context, we have to do a bit
+more work. We can really have any code we like inside the braces, so
+we simply have to end with the scalar reference, although how you do
+that is up to you, and you can use code inside the braces. Note that
+the use of parens creates a list context, so we need C<scalar> to
+force the scalar context on the function:
+
+    print "The time is ${\(scalar localtime)}.\n"
+
+    print "The time is ${ my $x = localtime; \$x }.\n";
+
+If your function already returns a reference, you don't need to create
+the reference yourself.
+
+    sub timestamp { my $t = localtime; \$t }
+
+    print "The time is ${ timestamp() }.\n";
+
+The C<Interpolation> module can also do a lot of magic for you. You can
+specify a variable name, in this case C<E>, to set up a tied hash that
+does the interpolation for you. It has several other methods to do this
+as well.
+
+    use Interpolation E => 'eval';
+    print "The time values are $E{localtime()}.\n";
+
+In most cases, it is probably easier to simply use string concatenation,
+which also forces scalar context.
+
+    print "The time is " . localtime() . ".\n";
+
+=head2 How do I find matching/nesting anything?
+
+To find something between two single
+characters, a pattern like C</x([^x]*)x/> will get the intervening
+bits in $1. For multiple ones, then something more like
+C</alpha(.*?)omega/> would be needed. For nested patterns
+and/or balanced expressions, see the so-called
+L<< (?PARNO)|perlre/C<(?PARNO)> C<(?-PARNO)> C<(?+PARNO)> C<(?R)> C<(?0)> >>
+construct (available since perl 5.10).
+The CPAN module L<Regexp::Common> can help to build such
+regular expressions (see in particular
+L<Regexp::Common::balanced> and L<Regexp::Common::delimited>).
+
+More complex cases will require to write a parser, probably
+using a parsing module from CPAN, like
+L<Regexp::Grammars>, L<Parse::RecDescent>, L<Parse::Yapp>,
+L<Text::Balanced>, or L<Marpa::R2>.
+
+=head2 How do I reverse a string?
+
+Use C<reverse()> in scalar context, as documented in
+L<perlfunc/reverse>.
+
+    my $reversed = reverse $string;
+
+=head2 How do I expand tabs in a string?
+
+You can do it yourself:
+
+    1 while $string =~ s/\t+/' ' x (length($&) * 8 - length($`) % 8)/e;
+
+Or you can just use the L<Text::Tabs> module (part of the standard Perl
+distribution).
+
+    use Text::Tabs;
+    my @expanded_lines = expand(@lines_with_tabs);
+
+=head2 How do I reformat a paragraph?
+
+Use L<Text::Wrap> (part of the standard Perl distribution):
+
+    use Text::Wrap;
+    print wrap("\t", '  ', @paragraphs);
+
+The paragraphs you give to L<Text::Wrap> should not contain embedded
+newlines. L<Text::Wrap> doesn't justify the lines (flush-right).
+
+Or use the CPAN module L<Text::Autoformat>. Formatting files can be
+easily done by making a shell alias, like so:
+
+    alias fmt="perl -i -MText::Autoformat -n0777 \
+        -e 'print autoformat $_, {all=>1}' $*"
+
+See the documentation for L<Text::Autoformat> to appreciate its many
+capabilities.
+
+=head2 How can I access or change N characters of a string?
+
+You can access the first characters of a string with substr().
+To get the first character, for example, start at position 0
+and grab the string of length 1.
+
+
+    my $string = "Just another Perl Hacker";
+    my $first_char = substr( $string, 0, 1 );  #  'J'
+
+To change part of a string, you can use the optional fourth
+argument which is the replacement string.
+
+    substr( $string, 13, 4, "Perl 5.8.0" );
+
+You can also use substr() as an lvalue.
+
+    substr( $string, 13, 4 ) =  "Perl 5.8.0";
+
+=head2 How do I change the Nth occurrence of something?
+
+You have to keep track of N yourself. For example, let's say you want
+to change the fifth occurrence of C<"whoever"> or C<"whomever"> into
+C<"whosoever"> or C<"whomsoever">, case insensitively. These
+all assume that $_ contains the string to be altered.
+
+    $count = 0;
+    s{((whom?)ever)}{
+    ++$count == 5       # is it the 5th?
+        ? "${2}soever"  # yes, swap
+        : $1            # renege and leave it there
+        }ige;
+
+In the more general case, you can use the C</g> modifier in a C<while>
+loop, keeping count of matches.
+
+    $WANT = 3;
+    $count = 0;
+    $_ = "One fish two fish red fish blue fish";
+    while (/(\w+)\s+fish\b/gi) {
+        if (++$count == $WANT) {
+            print "The third fish is a $1 one.\n";
+        }
+    }
+
+That prints out: C<"The third fish is a red one.">  You can also use a
+repetition count and repeated pattern like this:
+
+    /(?:\w+\s+fish\s+){2}(\w+)\s+fish/i;
+
+=head2 How can I count the number of occurrences of a substring within a string?
+
+There are a number of ways, with varying efficiency. If you want a
+count of a certain single character (X) within a string, you can use the
+C<tr///> function like so:
+
+    my $string = "ThisXlineXhasXsomeXx'sXinXit";
+    my $count = ($string =~ tr/X//);
+    print "There are $count X characters in the string";
+
+This is fine if you are just looking for a single character. However,
+if you are trying to count multiple character substrings within a
+larger string, C<tr///> won't work. What you can do is wrap a while()
+loop around a global pattern match. For example, let's count negative
+integers:
+
+    my $string = "-9 55 48 -2 23 -76 4 14 -44";
+    my $count = 0;
+    while ($string =~ /-\d+/g) { $count++ }
+    print "There are $count negative numbers in the string";
+
+Another version uses a global match in list context, then assigns the
+result to a scalar, producing a count of the number of matches.
+
+    my $count = () = $string =~ /-\d+/g;
+
+=head2 How do I capitalize all the words on one line?
+X<Text::Autoformat> X<capitalize> X<case, title> X<case, sentence>
+
+(contributed by brian d foy)
+
+Damian Conway's L<Text::Autoformat> handles all of the thinking
+for you.
+
+    use Text::Autoformat;
+    my $x = "Dr. Strangelove or: How I Learned to Stop ".
+      "Worrying and Love the Bomb";
+
+    print $x, "\n";
+    for my $style (qw( sentence title highlight )) {
+        print autoformat($x, { case => $style }), "\n";
+    }
+
+How do you want to capitalize those words?
+
+    FRED AND BARNEY'S LODGE        # all uppercase
+    Fred And Barney's Lodge        # title case
+    Fred and Barney's Lodge        # highlight case
+
+It's not as easy a problem as it looks. How many words do you think
+are in there? Wait for it... wait for it.... If you answered 5
+you're right. Perl words are groups of C<\w+>, but that's not what
+you want to capitalize. How is Perl supposed to know not to capitalize
+that C<s> after the apostrophe? You could try a regular expression:
+
+    $string =~ s/ (
+                 (^\w)    #at the beginning of the line
+                   |      # or
+                 (\s\w)   #preceded by whitespace
+                   )
+                /\U$1/xg;
+
+    $string =~ s/([\w']+)/\u\L$1/g;
+
+Now, what if you don't want to capitalize that "and"? Just use
+L<Text::Autoformat> and get on with the next problem. :)
+
+=head2 How can I split a [character]-delimited string except when inside [character]?
+
+Several modules can handle this sort of parsing--L<Text::Balanced>,
+L<Text::CSV>, L<Text::CSV_XS>, and L<Text::ParseWords>, among others.
+
+Take the example case of trying to split a string that is
+comma-separated into its different fields. You can't use C<split(/,/)>
+because you shouldn't split if the comma is inside quotes. For
+example, take a data line like this:
+
+    SAR001,"","Cimetrix, Inc","Bob Smith","CAM",N,8,1,0,7,"Error, Core Dumped"
+
+Due to the restriction of the quotes, this is a fairly complex
+problem. Thankfully, we have Jeffrey Friedl, author of
+I<Mastering Regular Expressions>, to handle these for us. He
+suggests (assuming your string is contained in C<$text>):
+
+     my @new = ();
+     push(@new, $+) while $text =~ m{
+         "([^\"\\]*(?:\\.[^\"\\]*)*)",? # groups the phrase inside the quotes
+        | ([^,]+),?
+        | ,
+     }gx;
+     push(@new, undef) if substr($text,-1,1) eq ',';
+
+If you want to represent quotation marks inside a
+quotation-mark-delimited field, escape them with backslashes (eg,
+C<"like \"this\"">.
+
+Alternatively, the L<Text::ParseWords> module (part of the standard
+Perl distribution) lets you say:
+
+    use Text::ParseWords;
+    @new = quotewords(",", 0, $text);
+
+For parsing or generating CSV, though, using L<Text::CSV> rather than
+implementing it yourself is highly recommended; you'll save yourself odd bugs
+popping up later by just using code which has already been tried and tested in
+production for years.
+
+=head2 How do I strip blank space from the beginning/end of a string?
+
+(contributed by brian d foy)
+
+A substitution can do this for you. For a single line, you want to
+replace all the leading or trailing whitespace with nothing. You
+can do that with a pair of substitutions:
+
+    s/^\s+//;
+    s/\s+$//;
+
+You can also write that as a single substitution, although it turns
+out the combined statement is slower than the separate ones. That
+might not matter to you, though:
+
+    s/^\s+|\s+$//g;
+
+In this regular expression, the alternation matches either at the
+beginning or the end of the string since the anchors have a lower
+precedence than the alternation. With the C</g> flag, the substitution
+makes all possible matches, so it gets both. Remember, the trailing
+newline matches the C<\s+>, and  the C<$> anchor can match to the
+absolute end of the string, so the newline disappears too. Just add
+the newline to the output, which has the added benefit of preserving
+"blank" (consisting entirely of whitespace) lines which the C<^\s+>
+would remove all by itself:
+
+    while( <> ) {
+        s/^\s+|\s+$//g;
+        print "$_\n";
+    }
+
+For a multi-line string, you can apply the regular expression to each
+logical line in the string by adding the C</m> flag (for
+"multi-line"). With the C</m> flag, the C<$> matches I<before> an
+embedded newline, so it doesn't remove it. This pattern still removes
+the newline at the end of the string:
+
+    $string =~ s/^\s+|\s+$//gm;
+
+Remember that lines consisting entirely of whitespace will disappear,
+since the first part of the alternation can match the entire string
+and replace it with nothing. If you need to keep embedded blank lines,
+you have to do a little more work. Instead of matching any whitespace
+(since that includes a newline), just match the other whitespace:
+
+    $string =~ s/^[\t\f ]+|[\t\f ]+$//mg;
+
+=head2 How do I pad a string with blanks or pad a number with zeroes?
+
+In the following examples, C<$pad_len> is the length to which you wish
+to pad the string, C<$text> or C<$num> contains the string to be padded,
+and C<$pad_char> contains the padding character. You can use a single
+character string constant instead of the C<$pad_char> variable if you
+know what it is in advance. And in the same way you can use an integer in
+place of C<$pad_len> if you know the pad length in advance.
+
+The simplest method uses the C<sprintf> function. It can pad on the left
+or right with blanks and on the left with zeroes and it will not
+truncate the result. The C<pack> function can only pad strings on the
+right with blanks and it will truncate the result to a maximum length of
+C<$pad_len>.
+
+    # Left padding a string with blanks (no truncation):
+    my $padded = sprintf("%${pad_len}s", $text);
+    my $padded = sprintf("%*s", $pad_len, $text);  # same thing
+
+    # Right padding a string with blanks (no truncation):
+    my $padded = sprintf("%-${pad_len}s", $text);
+    my $padded = sprintf("%-*s", $pad_len, $text); # same thing
+
+    # Left padding a number with 0 (no truncation):
+    my $padded = sprintf("%0${pad_len}d", $num);
+    my $padded = sprintf("%0*d", $pad_len, $num); # same thing
+
+    # Right padding a string with blanks using pack (will truncate):
+    my $padded = pack("A$pad_len",$text);
+
+If you need to pad with a character other than blank or zero you can use
+one of the following methods. They all generate a pad string with the
+C<x> operator and combine that with C<$text>. These methods do
+not truncate C<$text>.
+
+Left and right padding with any character, creating a new string:
+
+    my $padded = $pad_char x ( $pad_len - length( $text ) ) . $text;
+    my $padded = $text . $pad_char x ( $pad_len - length( $text ) );
+
+Left and right padding with any character, modifying C<$text> directly:
+
+    substr( $text, 0, 0 ) = $pad_char x ( $pad_len - length( $text ) );
+    $text .= $pad_char x ( $pad_len - length( $text ) );
+
+=head2 How do I extract selected columns from a string?
+
+(contributed by brian d foy)
+
+If you know the columns that contain the data, you can
+use C<substr> to extract a single column.
+
+    my $column = substr( $line, $start_column, $length );
+
+You can use C<split> if the columns are separated by whitespace or
+some other delimiter, as long as whitespace or the delimiter cannot
+appear as part of the data.
+
+    my $line    = ' fred barney   betty   ';
+    my @columns = split /\s+/, $line;
+        # ( '', 'fred', 'barney', 'betty' );
+
+    my $line    = 'fred||barney||betty';
+    my @columns = split /\|/, $line;
+        # ( 'fred', '', 'barney', '', 'betty' );
+
+If you want to work with comma-separated values, don't do this since
+that format is a bit more complicated. Use one of the modules that
+handle that format, such as L<Text::CSV>, L<Text::CSV_XS>, or
+L<Text::CSV_PP>.
+
+If you want to break apart an entire line of fixed columns, you can use
+C<unpack> with the A (ASCII) format. By using a number after the format
+specifier, you can denote the column width. See the C<pack> and C<unpack>
+entries in L<perlfunc> for more details.
+
+    my @fields = unpack( $line, "A8 A8 A8 A16 A4" );
+
+Note that spaces in the format argument to C<unpack> do not denote literal
+spaces. If you have space separated data, you may want C<split> instead.
+
+=head2 How do I find the soundex value of a string?
+
+(contributed by brian d foy)
+
+You can use the C<Text::Soundex> module. If you want to do fuzzy or close
+matching, you might also try the L<String::Approx>, and
+L<Text::Metaphone>, and L<Text::DoubleMetaphone> modules.
+
+=head2 How can I expand variables in text strings?
+
+(contributed by brian d foy)
+
+If you can avoid it, don't, or if you can use a templating system,
+such as L<Text::Template> or L<Template> Toolkit, do that instead. You
+might even be able to get the job done with C<sprintf> or C<printf>:
+
+    my $string = sprintf 'Say hello to %s and %s', $foo, $bar;
+
+However, for the one-off simple case where I don't want to pull out a
+full templating system, I'll use a string that has two Perl scalar
+variables in it. In this example, I want to expand C<$foo> and C<$bar>
+to their variable's values:
+
+    my $foo = 'Fred';
+    my $bar = 'Barney';
+    $string = 'Say hello to $foo and $bar';
+
+One way I can do this involves the substitution operator and a double
+C</e> flag. The first C</e> evaluates C<$1> on the replacement side and
+turns it into C<$foo>. The second /e starts with C<$foo> and replaces
+it with its value. C<$foo>, then, turns into 'Fred', and that's finally
+what's left in the string:
+
+    $string =~ s/(\$\w+)/$1/eeg; # 'Say hello to Fred and Barney'
+
+The C</e> will also silently ignore violations of strict, replacing
+undefined variable names with the empty string. Since I'm using the
+C</e> flag (twice even!), I have all of the same security problems I
+have with C<eval> in its string form. If there's something odd in
+C<$foo>, perhaps something like C<@{[ system "rm -rf /" ]}>, then
+I could get myself in trouble.
+
+To get around the security problem, I could also pull the values from
+a hash instead of evaluating variable names. Using a single C</e>, I
+can check the hash to ensure the value exists, and if it doesn't, I
+can replace the missing value with a marker, in this case C<???> to
+signal that I missed something:
+
+    my $string = 'This has $foo and $bar';
+
+    my %Replacements = (
+        foo  => 'Fred',
+        );
+
+    # $string =~ s/\$(\w+)/$Replacements{$1}/g;
+    $string =~ s/\$(\w+)/
+        exists $Replacements{$1} ? $Replacements{$1} : '???'
+        /eg;
+
+    print $string;
+
+=head2 What's wrong with always quoting "$vars"?
+
+The problem is that those double-quotes force
+stringification--coercing numbers and references into strings--even
+when you don't want them to be strings. Think of it this way:
+double-quote expansion is used to produce new strings. If you already
+have a string, why do you need more?
+
+If you get used to writing odd things like these:
+
+    print "$var";       # BAD
+    my $new = "$old";       # BAD
+    somefunc("$var");    # BAD
+
+You'll be in trouble. Those should (in 99.8% of the cases) be
+the simpler and more direct:
+
+    print $var;
+    my $new = $old;
+    somefunc($var);
+
+Otherwise, besides slowing you down, you're going to break code when
+the thing in the scalar is actually neither a string nor a number, but
+a reference:
+
+    func(\@array);
+    sub func {
+        my $aref = shift;
+        my $oref = "$aref";  # WRONG
+    }
+
+You can also get into subtle problems on those few operations in Perl
+that actually do care about the difference between a string and a
+number, such as the magical C<++> autoincrement operator or the
+syscall() function.
+
+Stringification also destroys arrays.
+
+    my @lines = `command`;
+    print "@lines";     # WRONG - extra blanks
+    print @lines;       # right
+
+=head2 Why don't my E<lt>E<lt>HERE documents work?
+
+Here documents are found in L<perlop>. Check for these three things:
+
+=over 4
+
+=item There must be no space after the E<lt>E<lt> part.
+
+=item There (probably) should be a semicolon at the end of the opening token
+
+=item You can't (easily) have any space in front of the tag.
+
+=item There needs to be at least a line separator after the end token.
+
+=back
+
+If you want to indent the text in the here document, you
+can do this:
+
+    # all in one
+    (my $VAR = <<HERE_TARGET) =~ s/^\s+//gm;
+        your text
+        goes here
+    HERE_TARGET
+
+But the HERE_TARGET must still be flush against the margin.
+If you want that indented also, you'll have to quote
+in the indentation.
+
+    (my $quote = <<'    FINIS') =~ s/^\s+//gm;
+            ...we will have peace, when you and all your works have
+            perished--and the works of your dark master to whom you
+            would deliver us. You are a liar, Saruman, and a corrupter
+            of men's hearts. --Theoden in /usr/src/perl/taint.c
+        FINIS
+    $quote =~ s/\s+--/\n--/;
+
+A nice general-purpose fixer-upper function for indented here documents
+follows. It expects to be called with a here document as its argument.
+It looks to see whether each line begins with a common substring, and
+if so, strips that substring off. Otherwise, it takes the amount of leading
+whitespace found on the first line and removes that much off each
+subsequent line.
+
+    sub fix {
+        local $_ = shift;
+        my ($white, $leader);  # common whitespace and common leading string
+        if (/^\s*(?:([^\w\s]+)(\s*).*\n)(?:\s*\g1\g2?.*\n)+$/) {
+            ($white, $leader) = ($2, quotemeta($1));
+        } else {
+            ($white, $leader) = (/^(\s+)/, '');
+        }
+        s/^\s*?$leader(?:$white)?//gm;
+        return $_;
+    }
+
+This works with leading special strings, dynamically determined:
+
+    my $remember_the_main = fix<<'    MAIN_INTERPRETER_LOOP';
+    @@@ int
+    @@@ runops() {
+    @@@     SAVEI32(runlevel);
+    @@@     runlevel++;
+    @@@     while ( op = (*op->op_ppaddr)() );
+    @@@     TAINT_NOT;
+    @@@     return 0;
+    @@@ }
+    MAIN_INTERPRETER_LOOP
+
+Or with a fixed amount of leading whitespace, with remaining
+indentation correctly preserved:
+
+    my $poem = fix<<EVER_ON_AND_ON;
+       Now far ahead the Road has gone,
+      And I must follow, if I can,
+       Pursuing it with eager feet,
+      Until it joins some larger way
+       Where many paths and errands meet.
+      And whither then? I cannot say.
+        --Bilbo in /usr/src/perl/pp_ctl.c
+    EVER_ON_AND_ON
+
+=head1 Data: Arrays
+
+=head2 What is the difference between a list and an array?
+
+(contributed by brian d foy)
+
+A list is a fixed collection of scalars. An array is a variable that
+holds a variable collection of scalars. An array can supply its collection
+for list operations, so list operations also work on arrays:
+
+    # slices
+    ( 'dog', 'cat', 'bird' )[2,3];
+    @animals[2,3];
+
+    # iteration
+    foreach ( qw( dog cat bird ) ) { ... }
+    foreach ( @animals ) { ... }
+
+    my @three = grep { length == 3 } qw( dog cat bird );
+    my @three = grep { length == 3 } @animals;
+
+    # supply an argument list
+    wash_animals( qw( dog cat bird ) );
+    wash_animals( @animals );
+
+Array operations, which change the scalars, rearrange them, or add
+or subtract some scalars, only work on arrays. These can't work on a
+list, which is fixed. Array operations include C<shift>, C<unshift>,
+C<push>, C<pop>, and C<splice>.
+
+An array can also change its length:
+
+    $#animals = 1;  # truncate to two elements
+    $#animals = 10000; # pre-extend to 10,001 elements
+
+You can change an array element, but you can't change a list element:
+
+    $animals[0] = 'Rottweiler';
+    qw( dog cat bird )[0] = 'Rottweiler'; # syntax error!
+
+    foreach ( @animals ) {
+        s/^d/fr/;  # works fine
+    }
+
+    foreach ( qw( dog cat bird ) ) {
+        s/^d/fr/;  # Error! Modification of read only value!
+    }
+
+However, if the list element is itself a variable, it appears that you
+can change a list element. However, the list element is the variable, not
+the data. You're not changing the list element, but something the list
+element refers to. The list element itself doesn't change: it's still
+the same variable.
+
+You also have to be careful about context. You can assign an array to
+a scalar to get the number of elements in the array. This only works
+for arrays, though:
+
+    my $count = @animals;  # only works with arrays
+
+If you try to do the same thing with what you think is a list, you
+get a quite different result. Although it looks like you have a list
+on the righthand side, Perl actually sees a bunch of scalars separated
+by a comma:
+
+    my $scalar = ( 'dog', 'cat', 'bird' );  # $scalar gets bird
+
+Since you're assigning to a scalar, the righthand side is in scalar
+context. The comma operator (yes, it's an operator!) in scalar
+context evaluates its lefthand side, throws away the result, and
+evaluates it's righthand side and returns the result. In effect,
+that list-lookalike assigns to C<$scalar> it's rightmost value. Many
+people mess this up because they choose a list-lookalike whose
+last element is also the count they expect:
+
+    my $scalar = ( 1, 2, 3 );  # $scalar gets 3, accidentally
+
+=head2 What is the difference between $array[1] and @array[1]?
+
+(contributed by brian d foy)
+
+The difference is the sigil, that special character in front of the
+array name. The C<$> sigil means "exactly one item", while the C<@>
+sigil means "zero or more items". The C<$> gets you a single scalar,
+while the C<@> gets you a list.
+
+The confusion arises because people incorrectly assume that the sigil
+denotes the variable type.
+
+The C<$array[1]> is a single-element access to the array. It's going
+to return the item in index 1 (or undef if there is no item there).
+If you intend to get exactly one element from the array, this is the
+form you should use.
+
+The C<@array[1]> is an array slice, although it has only one index.
+You can pull out multiple elements simultaneously by specifying
+additional indices as a list, like C<@array[1,4,3,0]>.
+
+Using a slice on the lefthand side of the assignment supplies list
+context to the righthand side. This can lead to unexpected results.
+For instance, if you want to read a single line from a filehandle,
+assigning to a scalar value is fine:
+
+    $array[1] = <STDIN>;
+
+However, in list context, the line input operator returns all of the
+lines as a list. The first line goes into C<@array[1]> and the rest
+of the lines mysteriously disappear:
+
+    @array[1] = <STDIN>;  # most likely not what you want
+
+Either the C<use warnings> pragma or the B<-w> flag will warn you when
+you use an array slice with a single index.
+
+=head2 How can I remove duplicate elements from a list or array?
+
+(contributed by brian d foy)
+
+Use a hash. When you think the words "unique" or "duplicated", think
+"hash keys".
+
+If you don't care about the order of the elements, you could just
+create the hash then extract the keys. It's not important how you
+create that hash: just that you use C<keys> to get the unique
+elements.
+
+    my %hash   = map { $_, 1 } @array;
+    # or a hash slice: @hash{ @array } = ();
+    # or a foreach: $hash{$_} = 1 foreach ( @array );
+
+    my @unique = keys %hash;
+
+If you want to use a module, try the C<uniq> function from
+L<List::MoreUtils>. In list context it returns the unique elements,
+preserving their order in the list. In scalar context, it returns the
+number of unique elements.
+
+    use List::MoreUtils qw(uniq);
+
+    my @unique = uniq( 1, 2, 3, 4, 4, 5, 6, 5, 7 ); # 1,2,3,4,5,6,7
+    my $unique = uniq( 1, 2, 3, 4, 4, 5, 6, 5, 7 ); # 7
+
+You can also go through each element and skip the ones you've seen
+before. Use a hash to keep track. The first time the loop sees an
+element, that element has no key in C<%Seen>. The C<next> statement
+creates the key and immediately uses its value, which is C<undef>, so
+the loop continues to the C<push> and increments the value for that
+key. The next time the loop sees that same element, its key exists in
+the hash I<and> the value for that key is true (since it's not 0 or
+C<undef>), so the next skips that iteration and the loop goes to the
+next element.
+
+    my @unique = ();
+    my %seen   = ();
+
+    foreach my $elem ( @array ) {
+        next if $seen{ $elem }++;
+        push @unique, $elem;
+    }
+
+You can write this more briefly using a grep, which does the
+same thing.
+
+    my %seen = ();
+    my @unique = grep { ! $seen{ $_ }++ } @array;
+
+=head2 How can I tell whether a certain element is contained in a list or array?
+
+(portions of this answer contributed by Anno Siegel and brian d foy)
+
+Hearing the word "in" is an I<in>dication that you probably should have
+used a hash, not a list or array, to store your data. Hashes are
+designed to answer this question quickly and efficiently. Arrays aren't.
+
+That being said, there are several ways to approach this. In Perl 5.10
+and later, you can use the smart match operator to check that an item is
+contained in an array or a hash:
+
+    use 5.010;
+
+    if( $item ~~ @array ) {
+        say "The array contains $item"
+    }
+
+    if( $item ~~ %hash ) {
+        say "The hash contains $item"
+    }
+
+With earlier versions of Perl, you have to do a bit more work. If you
+are going to make this query many times over arbitrary string values,
+the fastest way is probably to invert the original array and maintain a
+hash whose keys are the first array's values:
+
+    my @blues = qw/azure cerulean teal turquoise lapis-lazuli/;
+    my %is_blue = ();
+    for (@blues) { $is_blue{$_} = 1 }
+
+Now you can check whether C<$is_blue{$some_color}>. It might have
+been a good idea to keep the blues all in a hash in the first place.
+
+If the values are all small integers, you could use a simple indexed
+array. This kind of an array will take up less space:
+
+    my @primes = (2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31);
+    my @is_tiny_prime = ();
+    for (@primes) { $is_tiny_prime[$_] = 1 }
+    # or simply  @istiny_prime[@primes] = (1) x @primes;
+
+Now you check whether $is_tiny_prime[$some_number].
+
+If the values in question are integers instead of strings, you can save
+quite a lot of space by using bit strings instead:
+
+    my @articles = ( 1..10, 150..2000, 2017 );
+    undef $read;
+    for (@articles) { vec($read,$_,1) = 1 }
+
+Now check whether C<vec($read,$n,1)> is true for some C<$n>.
+
+These methods guarantee fast individual tests but require a re-organization
+of the original list or array. They only pay off if you have to test
+multiple values against the same array.
+
+If you are testing only once, the standard module L<List::Util> exports
+the function C<first> for this purpose. It works by stopping once it
+finds the element. It's written in C for speed, and its Perl equivalent
+looks like this subroutine:
+
+    sub first (&@) {
+        my $code = shift;
+        foreach (@_) {
+            return $_ if &{$code}();
+        }
+        undef;
+    }
+
+If speed is of little concern, the common idiom uses grep in scalar context
+(which returns the number of items that passed its condition) to traverse the
+entire list. This does have the benefit of telling you how many matches it
+found, though.
+
+    my $is_there = grep $_ eq $whatever, @array;
+
+If you want to actually extract the matching elements, simply use grep in
+list context.
+
+    my @matches = grep $_ eq $whatever, @array;
+
+=head2 How do I compute the difference of two arrays? How do I compute the intersection of two arrays?
+
+Use a hash. Here's code to do both and more. It assumes that each
+element is unique in a given array:
+
+    my (@union, @intersection, @difference);
+    my %count = ();
+    foreach my $element (@array1, @array2) { $count{$element}++ }
+    foreach my $element (keys %count) {
+        push @union, $element;
+        push @{ $count{$element} > 1 ? \@intersection : \@difference }, $element;
+    }
+
+Note that this is the I<symmetric difference>, that is, all elements
+in either A or in B but not in both. Think of it as an xor operation.
+
+=head2 How do I test whether two arrays or hashes are equal?
+
+With Perl 5.10 and later, the smart match operator can give you the answer
+with the least amount of work:
+
+    use 5.010;
+
+    if( @array1 ~~ @array2 ) {
+        say "The arrays are the same";
+    }
+
+    if( %hash1 ~~ %hash2 ) # doesn't check values!  {
+        say "The hash keys are the same";
+    }
+
+The following code works for single-level arrays. It uses a
+stringwise comparison, and does not distinguish defined versus
+undefined empty strings. Modify if you have other needs.
+
+    $are_equal = compare_arrays(\@frogs, \@toads);
+
+    sub compare_arrays {
+        my ($first, $second) = @_;
+        no warnings;  # silence spurious -w undef complaints
+        return 0 unless @$first == @$second;
+        for (my $i = 0; $i < @$first; $i++) {
+            return 0 if $first->[$i] ne $second->[$i];
+        }
+        return 1;
+    }
+
+For multilevel structures, you may wish to use an approach more
+like this one. It uses the CPAN module L<FreezeThaw>:
+
+    use FreezeThaw qw(cmpStr);
+    my @a = my @b = ( "this", "that", [ "more", "stuff" ] );
+
+    printf "a and b contain %s arrays\n",
+        cmpStr(\@a, \@b) == 0
+        ? "the same"
+        : "different";
+
+This approach also works for comparing hashes. Here we'll demonstrate
+two different answers:
+
+    use FreezeThaw qw(cmpStr cmpStrHard);
+
+    my %a = my %b = ( "this" => "that", "extra" => [ "more", "stuff" ] );
+    $a{EXTRA} = \%b;
+    $b{EXTRA} = \%a;
+
+    printf "a and b contain %s hashes\n",
+    cmpStr(\%a, \%b) == 0 ? "the same" : "different";
+
+    printf "a and b contain %s hashes\n",
+    cmpStrHard(\%a, \%b) == 0 ? "the same" : "different";
+
+
+The first reports that both those the hashes contain the same data,
+while the second reports that they do not. Which you prefer is left as
+an exercise to the reader.
+
+=head2 How do I find the first array element for which a condition is true?
+
+To find the first array element which satisfies a condition, you can
+use the C<first()> function in the L<List::Util> module, which comes
+with Perl 5.8. This example finds the first element that contains
+"Perl".
+
+    use List::Util qw(first);
+
+    my $element = first { /Perl/ } @array;
+
+If you cannot use L<List::Util>, you can make your own loop to do the
+same thing. Once you find the element, you stop the loop with last.
+
+    my $found;
+    foreach ( @array ) {
+        if( /Perl/ ) { $found = $_; last }
+    }
+
+If you want the array index, use the C<firstidx()> function from
+C<List::MoreUtils>:
+
+    use List::MoreUtils qw(firstidx);
+    my $index = firstidx { /Perl/ } @array;
+
+Or write it yourself, iterating through the indices
+and checking the array element at each index until you find one
+that satisfies the condition:
+
+    my( $found, $index ) = ( undef, -1 );
+    for( $i = 0; $i < @array; $i++ ) {
+        if( $array[$i] =~ /Perl/ ) {
+            $found = $array[$i];
+            $index = $i;
+            last;
+        }
+    }
+
+=head2 How do I handle linked lists?
+
+(contributed by brian d foy)
+
+Perl's arrays do not have a fixed size, so you don't need linked lists
+if you just want to add or remove items. You can use array operations
+such as C<push>, C<pop>, C<shift>, C<unshift>, or C<splice> to do
+that.
+
+Sometimes, however, linked lists can be useful in situations where you
+want to "shard" an array so you have many small arrays instead of
+a single big array. You can keep arrays longer than Perl's largest
+array index, lock smaller arrays separately in threaded programs,
+reallocate less memory, or quickly insert elements in the middle of
+the chain.
+
+Steve Lembark goes through the details in his YAPC::NA 2009 talk "Perly
+Linked Lists" ( L<http://www.slideshare.net/lembark/perly-linked-lists> ),
+although you can just use his L<LinkedList::Single> module.
+
+=head2 How do I handle circular lists?
+X<circular> X<array> X<Tie::Cycle> X<Array::Iterator::Circular>
+X<cycle> X<modulus>
+
+(contributed by brian d foy)
+
+If you want to cycle through an array endlessly, you can increment the
+index modulo the number of elements in the array:
+
+    my @array = qw( a b c );
+    my $i = 0;
+
+    while( 1 ) {
+        print $array[ $i++ % @array ], "\n";
+        last if $i > 20;
+    }
+
+You can also use L<Tie::Cycle> to use a scalar that always has the
+next element of the circular array:
+
+    use Tie::Cycle;
+
+    tie my $cycle, 'Tie::Cycle', [ qw( FFFFFF 000000 FFFF00 ) ];
+
+    print $cycle; # FFFFFF
+    print $cycle; # 000000
+    print $cycle; # FFFF00
+
+The L<Array::Iterator::Circular> creates an iterator object for
+circular arrays:
+
+    use Array::Iterator::Circular;
+
+    my $color_iterator = Array::Iterator::Circular->new(
+        qw(red green blue orange)
+        );
+
+    foreach ( 1 .. 20 ) {
+        print $color_iterator->next, "\n";
+    }
+
+=head2 How do I shuffle an array randomly?
+
+If you either have Perl 5.8.0 or later installed, or if you have
+Scalar-List-Utils 1.03 or later installed, you can say:
+
+    use List::Util 'shuffle';
+
+    @shuffled = shuffle(@list);
+
+If not, you can use a Fisher-Yates shuffle.
+
+    sub fisher_yates_shuffle {
+        my $deck = shift;  # $deck is a reference to an array
+        return unless @$deck; # must not be empty!
+
+        my $i = @$deck;
+        while (--$i) {
+            my $j = int rand ($i+1);
+            @$deck[$i,$j] = @$deck[$j,$i];
+        }
+    }
+
+    # shuffle my mpeg collection
+    #
+    my @mpeg = <audio/*/*.mp3>;
+    fisher_yates_shuffle( \@mpeg );    # randomize @mpeg in place
+    print @mpeg;
+
+Note that the above implementation shuffles an array in place,
+unlike the C<List::Util::shuffle()> which takes a list and returns
+a new shuffled list.
+
+You've probably seen shuffling algorithms that work using splice,
+randomly picking another element to swap the current element with
+
+    srand;
+    @new = ();
+    @old = 1 .. 10;  # just a demo
+    while (@old) {
+        push(@new, splice(@old, rand @old, 1));
+    }
+
+This is bad because splice is already O(N), and since you do it N
+times, you just invented a quadratic algorithm; that is, O(N**2).
+This does not scale, although Perl is so efficient that you probably
+won't notice this until you have rather largish arrays.
+
+=head2 How do I process/modify each element of an array?
+
+Use C<for>/C<foreach>:
+
+    for (@lines) {
+        s/foo/bar/;    # change that word
+        tr/XZ/ZX/;    # swap those letters
+    }
+
+Here's another; let's compute spherical volumes:
+
+    my @volumes = @radii;
+    for (@volumes) {   # @volumes has changed parts
+        $_ **= 3;
+        $_ *= (4/3) * 3.14159;  # this will be constant folded
+    }
+
+which can also be done with C<map()> which is made to transform
+one list into another:
+
+    my @volumes = map {$_ ** 3 * (4/3) * 3.14159} @radii;
+
+If you want to do the same thing to modify the values of the
+hash, you can use the C<values> function. As of Perl 5.6
+the values are not copied, so if you modify $orbit (in this
+case), you modify the value.
+
+    for my $orbit ( values %orbits ) {
+        ($orbit **= 3) *= (4/3) * 3.14159;
+    }
+
+Prior to perl 5.6 C<values> returned copies of the values,
+so older perl code often contains constructions such as
+C<@orbits{keys %orbits}> instead of C<values %orbits> where
+the hash is to be modified.
+
+=head2 How do I select a random element from an array?
+
+Use the C<rand()> function (see L<perlfunc/rand>):
+
+    my $index   = rand @array;
+    my $element = $array[$index];
+
+Or, simply:
+
+    my $element = $array[ rand @array ];
+
+=head2 How do I permute N elements of a list?
+X<List::Permutor> X<permute> X<Algorithm::Loops> X<Knuth>
+X<The Art of Computer Programming> X<Fischer-Krause>
+
+Use the L<List::Permutor> module on CPAN. If the list is actually an
+array, try the L<Algorithm::Permute> module (also on CPAN). It's
+written in XS code and is very efficient:
+
+    use Algorithm::Permute;
+
+    my @array = 'a'..'d';
+    my $p_iterator = Algorithm::Permute->new ( \@array );
+
+    while (my @perm = $p_iterator->next) {
+       print "next permutation: (@perm)\n";
+    }
+
+For even faster execution, you could do:
+
+    use Algorithm::Permute;
+
+    my @array = 'a'..'d';
+
+    Algorithm::Permute::permute {
+        print "next permutation: (@array)\n";
+    } @array;
+
+Here's a little program that generates all permutations of all the
+words on each line of input. The algorithm embodied in the
+C<permute()> function is discussed in Volume 4 (still unpublished) of
+Knuth's I<The Art of Computer Programming> and will work on any list:
+
+    #!/usr/bin/perl -n
+    # Fischer-Krause ordered permutation generator
+
+    sub permute (&@) {
+        my $code = shift;
+        my @idx = 0..$#_;
+        while ( $code->(@_[@idx]) ) {
+            my $p = $#idx;
+            --$p while $idx[$p-1] > $idx[$p];
+            my $q = $p or return;
+            push @idx, reverse splice @idx, $p;
+            ++$q while $idx[$p-1] > $idx[$q];
+            @idx[$p-1,$q]=@idx[$q,$p-1];
+        }
+    }
+
+    permute { print "@_\n" } split;
+
+The L<Algorithm::Loops> module also provides the C<NextPermute> and
+C<NextPermuteNum> functions which efficiently find all unique permutations
+of an array, even if it contains duplicate values, modifying it in-place:
+if its elements are in reverse-sorted order then the array is reversed,
+making it sorted, and it returns false; otherwise the next
+permutation is returned.
+
+C<NextPermute> uses string order and C<NextPermuteNum> numeric order, so
+you can enumerate all the permutations of C<0..9> like this:
+
+    use Algorithm::Loops qw(NextPermuteNum);
+
+    my @list= 0..9;
+    do { print "@list\n" } while NextPermuteNum @list;
+
+=head2 How do I sort an array by (anything)?
+
+Supply a comparison function to sort() (described in L<perlfunc/sort>):
+
+    @list = sort { $a <=> $b } @list;
+
+The default sort function is cmp, string comparison, which would
+sort C<(1, 2, 10)> into C<(1, 10, 2)>. C<< <=> >>, used above, is
+the numerical comparison operator.
+
+If you have a complicated function needed to pull out the part you
+want to sort on, then don't do it inside the sort function. Pull it
+out first, because the sort BLOCK can be called many times for the
+same element. Here's an example of how to pull out the first word
+after the first number on each item, and then sort those words
+case-insensitively.
+
+    my @idx;
+    for (@data) {
+        my $item;
+        ($item) = /\d+\s*(\S+)/;
+        push @idx, uc($item);
+    }
+    my @sorted = @data[ sort { $idx[$a] cmp $idx[$b] } 0 .. $#idx ];
+
+which could also be written this way, using a trick
+that's come to be known as the Schwartzian Transform:
+
+    my @sorted = map  { $_->[0] }
+        sort { $a->[1] cmp $b->[1] }
+        map  { [ $_, uc( (/\d+\s*(\S+)/)[0]) ] } @data;
+
+If you need to sort on several fields, the following paradigm is useful.
+
+    my @sorted = sort {
+        field1($a) <=> field1($b) ||
+        field2($a) cmp field2($b) ||
+        field3($a) cmp field3($b)
+    } @data;
+
+This can be conveniently combined with precalculation of keys as given
+above.
+
+See the F<sort> article in the "Far More Than You Ever Wanted
+To Know" collection in L<http://www.cpan.org/misc/olddoc/FMTEYEWTK.tgz> for
+more about this approach.
+
+See also the question later in L<perlfaq4> on sorting hashes.
+
+=head2 How do I manipulate arrays of bits?
+
+Use C<pack()> and C<unpack()>, or else C<vec()> and the bitwise
+operations.
+
+For example, you don't have to store individual bits in an array
+(which would mean that you're wasting a lot of space). To convert an
+array of bits to a string, use C<vec()> to set the right bits. This
+sets C<$vec> to have bit N set only if C<$ints[N]> was set:
+
+    my @ints = (...); # array of bits, e.g. ( 1, 0, 0, 1, 1, 0 ... )
+    my $vec = '';
+    foreach( 0 .. $#ints ) {
+        vec($vec,$_,1) = 1 if $ints[$_];
+    }
+
+The string C<$vec> only takes up as many bits as it needs. For
+instance, if you had 16 entries in C<@ints>, C<$vec> only needs two
+bytes to store them (not counting the scalar variable overhead).
+
+Here's how, given a vector in C<$vec>, you can get those bits into
+your C<@ints> array:
+
+    sub bitvec_to_list {
+        my $vec = shift;
+        my @ints;
+        # Find null-byte density then select best algorithm
+        if ($vec =~ tr/\0// / length $vec > 0.95) {
+            use integer;
+            my $i;
+
+            # This method is faster with mostly null-bytes
+            while($vec =~ /[^\0]/g ) {
+                $i = -9 + 8 * pos $vec;
+                push @ints, $i if vec($vec, ++$i, 1);
+                push @ints, $i if vec($vec, ++$i, 1);
+                push @ints, $i if vec($vec, ++$i, 1);
+                push @ints, $i if vec($vec, ++$i, 1);
+                push @ints, $i if vec($vec, ++$i, 1);
+                push @ints, $i if vec($vec, ++$i, 1);
+                push @ints, $i if vec($vec, ++$i, 1);
+                push @ints, $i if vec($vec, ++$i, 1);
+            }
+        }
+        else {
+            # This method is a fast general algorithm
+            use integer;
+            my $bits = unpack "b*", $vec;
+            push @ints, 0 if $bits =~ s/^(\d)// && $1;
+            push @ints, pos $bits while($bits =~ /1/g);
+        }
+
+        return \@ints;
+    }
+
+This method gets faster the more sparse the bit vector is.
+(Courtesy of Tim Bunce and Winfried Koenig.)
+
+You can make the while loop a lot shorter with this suggestion
+from Benjamin Goldberg:
+
+    while($vec =~ /[^\0]+/g ) {
+        push @ints, grep vec($vec, $_, 1), $-[0] * 8 .. $+[0] * 8;
+    }
+
+Or use the CPAN module L<Bit::Vector>:
+
+    my $vector = Bit::Vector->new($num_of_bits);
+    $vector->Index_List_Store(@ints);
+    my @ints = $vector->Index_List_Read();
+
+L<Bit::Vector> provides efficient methods for bit vector, sets of
+small integers and "big int" math.
+
+Here's a more extensive illustration using vec():
+
+    # vec demo
+    my $vector = "\xff\x0f\xef\xfe";
+    print "Ilya's string \\xff\\x0f\\xef\\xfe represents the number ",
+    unpack("N", $vector), "\n";
+    my $is_set = vec($vector, 23, 1);
+    print "Its 23rd bit is ", $is_set ? "set" : "clear", ".\n";
+    pvec($vector);
+
+    set_vec(1,1,1);
+    set_vec(3,1,1);
+    set_vec(23,1,1);
+
+    set_vec(3,1,3);
+    set_vec(3,2,3);
+    set_vec(3,4,3);
+    set_vec(3,4,7);
+    set_vec(3,8,3);
+    set_vec(3,8,7);
+
+    set_vec(0,32,17);
+    set_vec(1,32,17);
+
+    sub set_vec {
+        my ($offset, $width, $value) = @_;
+        my $vector = '';
+        vec($vector, $offset, $width) = $value;
+        print "offset=$offset width=$width value=$value\n";
+        pvec($vector);
+    }
+
+    sub pvec {
+        my $vector = shift;
+        my $bits = unpack("b*", $vector);
+        my $i = 0;
+        my $BASE = 8;
+
+        print "vector length in bytes: ", length($vector), "\n";
+        @bytes = unpack("A8" x length($vector), $bits);
+        print "bits are: @bytes\n\n";
+    }
+
+=head2 Why does defined() return true on empty arrays and hashes?
+
+The short story is that you should probably only use defined on scalars or
+functions, not on aggregates (arrays and hashes). See L<perlfunc/defined>
+in the 5.004 release or later of Perl for more detail.
+
+=head1 Data: Hashes (Associative Arrays)
+
+=head2 How do I process an entire hash?
+
+(contributed by brian d foy)
+
+There are a couple of ways that you can process an entire hash. You
+can get a list of keys, then go through each key, or grab a one
+key-value pair at a time.
+
+To go through all of the keys, use the C<keys> function. This extracts
+all of the keys of the hash and gives them back to you as a list. You
+can then get the value through the particular key you're processing:
+
+    foreach my $key ( keys %hash ) {
+        my $value = $hash{$key}
+        ...
+    }
+
+Once you have the list of keys, you can process that list before you
+process the hash elements. For instance, you can sort the keys so you
+can process them in lexical order:
+
+    foreach my $key ( sort keys %hash ) {
+        my $value = $hash{$key}
+        ...
+    }
+
+Or, you might want to only process some of the items. If you only want
+to deal with the keys that start with C<text:>, you can select just
+those using C<grep>:
+
+    foreach my $key ( grep /^text:/, keys %hash ) {
+        my $value = $hash{$key}
+        ...
+    }
+
+If the hash is very large, you might not want to create a long list of
+keys. To save some memory, you can grab one key-value pair at a time using
+C<each()>, which returns a pair you haven't seen yet:
+
+    while( my( $key, $value ) = each( %hash ) ) {
+        ...
+    }
+
+The C<each> operator returns the pairs in apparently random order, so if
+ordering matters to you, you'll have to stick with the C<keys> method.
+
+The C<each()> operator can be a bit tricky though. You can't add or
+delete keys of the hash while you're using it without possibly
+skipping or re-processing some pairs after Perl internally rehashes
+all of the elements. Additionally, a hash has only one iterator, so if
+you mix C<keys>, C<values>, or C<each> on the same hash, you risk resetting
+the iterator and messing up your processing. See the C<each> entry in
+L<perlfunc> for more details.
+
+=head2 How do I merge two hashes?
+X<hash> X<merge> X<slice, hash>
+
+(contributed by brian d foy)
+
+Before you decide to merge two hashes, you have to decide what to do
+if both hashes contain keys that are the same and if you want to leave
+the original hashes as they were.
+
+If you want to preserve the original hashes, copy one hash (C<%hash1>)
+to a new hash (C<%new_hash>), then add the keys from the other hash
+(C<%hash2> to the new hash. Checking that the key already exists in
+C<%new_hash> gives you a chance to decide what to do with the
+duplicates:
+
+    my %new_hash = %hash1; # make a copy; leave %hash1 alone
+
+    foreach my $key2 ( keys %hash2 ) {
+        if( exists $new_hash{$key2} ) {
+            warn "Key [$key2] is in both hashes!";
+            # handle the duplicate (perhaps only warning)
+            ...
+            next;
+        }
+        else {
+            $new_hash{$key2} = $hash2{$key2};
+        }
+    }
+
+If you don't want to create a new hash, you can still use this looping
+technique; just change the C<%new_hash> to C<%hash1>.
+
+    foreach my $key2 ( keys %hash2 ) {
+        if( exists $hash1{$key2} ) {
+            warn "Key [$key2] is in both hashes!";
+            # handle the duplicate (perhaps only warning)
+            ...
+            next;
+        }
+        else {
+            $hash1{$key2} = $hash2{$key2};
+        }
+      }
+
+If you don't care that one hash overwrites keys and values from the other, you
+could just use a hash slice to add one hash to another. In this case, values
+from C<%hash2> replace values from C<%hash1> when they have keys in common:
+
+    @hash1{ keys %hash2 } = values %hash2;
+
+=head2 What happens if I add or remove keys from a hash while iterating over it?
+
+(contributed by brian d foy)
+
+The easy answer is "Don't do that!"
+
+If you iterate through the hash with each(), you can delete the key
+most recently returned without worrying about it. If you delete or add
+other keys, the iterator may skip or double up on them since perl
+may rearrange the hash table. See the
+entry for C<each()> in L<perlfunc>.
+
+=head2 How do I look up a hash element by value?
+
+Create a reverse hash:
+
+    my %by_value = reverse %by_key;
+    my $key = $by_value{$value};
+
+That's not particularly efficient. It would be more space-efficient
+to use:
+
+    while (my ($key, $value) = each %by_key) {
+        $by_value{$value} = $key;
+    }
+
+If your hash could have repeated values, the methods above will only find
+one of the associated keys.  This may or may not worry you. If it does
+worry you, you can always reverse the hash into a hash of arrays instead:
+
+    while (my ($key, $value) = each %by_key) {
+         push @{$key_list_by_value{$value}}, $key;
+    }
+
+=head2 How can I know how many entries are in a hash?
+
+(contributed by brian d foy)
+
+This is very similar to "How do I process an entire hash?", also in
+L<perlfaq4>, but a bit simpler in the common cases.
+
+You can use the C<keys()> built-in function in scalar context to find out
+have many entries you have in a hash:
+
+    my $key_count = keys %hash; # must be scalar context!
+
+If you want to find out how many entries have a defined value, that's
+a bit different. You have to check each value. A C<grep> is handy:
+
+    my $defined_value_count = grep { defined } values %hash;
+
+You can use that same structure to count the entries any way that
+you like. If you want the count of the keys with vowels in them,
+you just test for that instead:
+
+    my $vowel_count = grep { /[aeiou]/ } keys %hash;
+
+The C<grep> in scalar context returns the count. If you want the list
+of matching items, just use it in list context instead:
+
+    my @defined_values = grep { defined } values %hash;
+
+The C<keys()> function also resets the iterator, which means that you may
+see strange results if you use this between uses of other hash operators
+such as C<each()>.
+
+=head2 How do I sort a hash (optionally by value instead of key)?
+
+(contributed by brian d foy)
+
+To sort a hash, start with the keys. In this example, we give the list of
+keys to the sort function which then compares them ASCIIbetically (which
+might be affected by your locale settings). The output list has the keys
+in ASCIIbetical order. Once we have the keys, we can go through them to
+create a report which lists the keys in ASCIIbetical order.
+
+    my @keys = sort { $a cmp $b } keys %hash;
+
+    foreach my $key ( @keys ) {
+        printf "%-20s %6d\n", $key, $hash{$key};
+    }
+
+We could get more fancy in the C<sort()> block though. Instead of
+comparing the keys, we can compute a value with them and use that
+value as the comparison.
+
+For instance, to make our report order case-insensitive, we use
+C<lc> to lowercase the keys before comparing them:
+
+    my @keys = sort { lc $a cmp lc $b } keys %hash;
+
+Note: if the computation is expensive or the hash has many elements,
+you may want to look at the Schwartzian Transform to cache the
+computation results.
+
+If we want to sort by the hash value instead, we use the hash key
+to look it up. We still get out a list of keys, but this time they
+are ordered by their value.
+
+    my @keys = sort { $hash{$a} <=> $hash{$b} } keys %hash;
+
+From there we can get more complex. If the hash values are the same,
+we can provide a secondary sort on the hash key.
+
+    my @keys = sort {
+        $hash{$a} <=> $hash{$b}
+            or
+        "\L$a" cmp "\L$b"
+    } keys %hash;
+
+=head2 How can I always keep my hash sorted?
+X<hash tie sort DB_File Tie::IxHash>
+
+You can look into using the C<DB_File> module and C<tie()> using the
+C<$DB_BTREE> hash bindings as documented in L<DB_File/"In Memory
+Databases">. The L<Tie::IxHash> module from CPAN might also be
+instructive. Although this does keep your hash sorted, you might not
+like the slowdown you suffer from the tie interface. Are you sure you
+need to do this? :)
+
+=head2 What's the difference between "delete" and "undef" with hashes?
+
+Hashes contain pairs of scalars: the first is the key, the
+second is the value. The key will be coerced to a string,
+although the value can be any kind of scalar: string,
+number, or reference. If a key C<$key> is present in
+%hash, C<exists($hash{$key})> will return true. The value
+for a given key can be C<undef>, in which case
+C<$hash{$key}> will be C<undef> while C<exists $hash{$key}>
+will return true. This corresponds to (C<$key>, C<undef>)
+being in the hash.
+
+Pictures help... Here's the C<%hash> table:
+
+      keys  values
+    +------+------+
+    |  a   |  3   |
+    |  x   |  7   |
+    |  d   |  0   |
+    |  e   |  2   |
+    +------+------+
+
+And these conditions hold
+
+    $hash{'a'}                       is true
+    $hash{'d'}                       is false
+    defined $hash{'d'}               is true
+    defined $hash{'a'}               is true
+    exists $hash{'a'}                is true (Perl 5 only)
+    grep ($_ eq 'a', keys %hash)     is true
+
+If you now say
+
+    undef $hash{'a'}
+
+your table now reads:
+
+
+      keys  values
+    +------+------+
+    |  a   | undef|
+    |  x   |  7   |
+    |  d   |  0   |
+    |  e   |  2   |
+    +------+------+
+
+and these conditions now hold; changes in caps:
+
+    $hash{'a'}                       is FALSE
+    $hash{'d'}                       is false
+    defined $hash{'d'}               is true
+    defined $hash{'a'}               is FALSE
+    exists $hash{'a'}                is true (Perl 5 only)
+    grep ($_ eq 'a', keys %hash)     is true
+
+Notice the last two: you have an undef value, but a defined key!
+
+Now, consider this:
+
+    delete $hash{'a'}
+
+your table now reads:
+
+      keys  values
+    +------+------+
+    |  x   |  7   |
+    |  d   |  0   |
+    |  e   |  2   |
+    +------+------+
+
+and these conditions now hold; changes in caps:
+
+    $hash{'a'}                       is false
+    $hash{'d'}                       is false
+    defined $hash{'d'}               is true
+    defined $hash{'a'}               is false
+    exists $hash{'a'}                is FALSE (Perl 5 only)
+    grep ($_ eq 'a', keys %hash)     is FALSE
+
+See, the whole entry is gone!
+
+=head2 Why don't my tied hashes make the defined/exists distinction?
+
+This depends on the tied hash's implementation of EXISTS().
+For example, there isn't the concept of undef with hashes
+that are tied to DBM* files. It also means that exists() and
+defined() do the same thing with a DBM* file, and what they
+end up doing is not what they do with ordinary hashes.
+
+=head2 How do I reset an each() operation part-way through?
+
+(contributed by brian d foy)
+
+You can use the C<keys> or C<values> functions to reset C<each>. To
+simply reset the iterator used by C<each> without doing anything else,
+use one of them in void context:
+
+    keys %hash; # resets iterator, nothing else.
+    values %hash; # resets iterator, nothing else.
+
+See the documentation for C<each> in L<perlfunc>.
+
+=head2 How can I get the unique keys from two hashes?
+
+First you extract the keys from the hashes into lists, then solve
+the "removing duplicates" problem described above. For example:
+
+    my %seen = ();
+    for my $element (keys(%foo), keys(%bar)) {
+        $seen{$element}++;
+    }
+    my @uniq = keys %seen;
+
+Or more succinctly:
+
+    my @uniq = keys %{{%foo,%bar}};
+
+Or if you really want to save space:
+
+    my %seen = ();
+    while (defined ($key = each %foo)) {
+        $seen{$key}++;
+    }
+    while (defined ($key = each %bar)) {
+        $seen{$key}++;
+    }
+    my @uniq = keys %seen;
+
+=head2 How can I store a multidimensional array in a DBM file?
+
+Either stringify the structure yourself (no fun), or else
+get the MLDBM (which uses Data::Dumper) module from CPAN and layer
+it on top of either DB_File or GDBM_File. You might also try DBM::Deep, but
+it can be a bit slow.
+
+=head2 How can I make my hash remember the order I put elements into it?
+
+Use the L<Tie::IxHash> from CPAN.
+
+    use Tie::IxHash;
+
+    tie my %myhash, 'Tie::IxHash';
+
+    for (my $i=0; $i<20; $i++) {
+        $myhash{$i} = 2*$i;
+    }
+
+    my @keys = keys %myhash;
+    # @keys = (0,1,2,3,...)
+
+=head2 Why does passing a subroutine an undefined element in a hash create it?
+
+(contributed by brian d foy)
+
+Are you using a really old version of Perl?
+
+Normally, accessing a hash key's value for a nonexistent key will
+I<not> create the key.
+
+    my %hash  = ();
+    my $value = $hash{ 'foo' };
+    print "This won't print\n" if exists $hash{ 'foo' };
+
+Passing C<$hash{ 'foo' }> to a subroutine used to be a special case, though.
+Since you could assign directly to C<$_[0]>, Perl had to be ready to
+make that assignment so it created the hash key ahead of time:
+
+    my_sub( $hash{ 'foo' } );
+    print "This will print before 5.004\n" if exists $hash{ 'foo' };
+
+    sub my_sub {
+        # $_[0] = 'bar'; # create hash key in case you do this
+        1;
+    }
+
+Since Perl 5.004, however, this situation is a special case and Perl
+creates the hash key only when you make the assignment:
+
+    my_sub( $hash{ 'foo' } );
+    print "This will print, even after 5.004\n" if exists $hash{ 'foo' };
+
+    sub my_sub {
+        $_[0] = 'bar';
+    }
+
+However, if you want the old behavior (and think carefully about that
+because it's a weird side effect), you can pass a hash slice instead.
+Perl 5.004 didn't make this a special case:
+
+    my_sub( @hash{ qw/foo/ } );
+
+=head2 How can I make the Perl equivalent of a C structure/C++ class/hash or array of hashes or arrays?
+
+Usually a hash ref, perhaps like this:
+
+    $record = {
+        NAME   => "Jason",
+        EMPNO  => 132,
+        TITLE  => "deputy peon",
+        AGE    => 23,
+        SALARY => 37_000,
+        PALS   => [ "Norbert", "Rhys", "Phineas"],
+    };
+
+References are documented in L<perlref> and L<perlreftut>.
+Examples of complex data structures are given in L<perldsc> and
+L<perllol>. Examples of structures and object-oriented classes are
+in L<perlootut>.
+
+=head2 How can I use a reference as a hash key?
+
+(contributed by brian d foy and Ben Morrow)
+
+Hash keys are strings, so you can't really use a reference as the key.
+When you try to do that, perl turns the reference into its stringified
+form (for instance, C<HASH(0xDEADBEEF)>). From there you can't get
+back the reference from the stringified form, at least without doing
+some extra work on your own.
+
+Remember that the entry in the hash will still be there even if
+the referenced variable  goes out of scope, and that it is entirely
+possible for Perl to subsequently allocate a different variable at
+the same address. This will mean a new variable might accidentally
+be associated with the value for an old.
+
+If you have Perl 5.10 or later, and you just want to store a value
+against the reference for lookup later, you can use the core
+Hash::Util::Fieldhash module. This will also handle renaming the
+keys if you use multiple threads (which causes all variables to be
+reallocated at new addresses, changing their stringification), and
+garbage-collecting the entries when the referenced variable goes out
+of scope.
+
+If you actually need to be able to get a real reference back from
+each hash entry, you can use the Tie::RefHash module, which does the
+required work for you.
+
+=head2 How can I check if a key exists in a multilevel hash?
+
+(contributed by brian d foy)
+
+The trick to this problem is avoiding accidental autovivification. If
+you want to check three keys deep, you might naE<0xEF>vely try this:
+
+    my %hash;
+    if( exists $hash{key1}{key2}{key3} ) {
+        ...;
+    }
+
+Even though you started with a completely empty hash, after that call to
+C<exists> you've created the structure you needed to check for C<key3>:
+
+    %hash = (
+              'key1' => {
+                          'key2' => {}
+                        }
+            );
+
+That's autovivification. You can get around this in a few ways. The
+easiest way is to just turn it off. The lexical C<autovivification>
+pragma is available on CPAN. Now you don't add to the hash:
+
+    {
+        no autovivification;
+        my %hash;
+        if( exists $hash{key1}{key2}{key3} ) {
+            ...;
+        }
+    }
+
+The L<Data::Diver> module on CPAN can do it for you too. Its C<Dive>
+subroutine can tell you not only if the keys exist but also get the
+value:
+
+    use Data::Diver qw(Dive);
+
+    my @exists = Dive( \%hash, qw(key1 key2 key3) );
+    if(  ! @exists  ) {
+        ...; # keys do not exist
+    }
+    elsif(  ! defined $exists[0]  ) {
+        ...; # keys exist but value is undef
+    }
+
+You can easily do this yourself too by checking each level of the hash
+before you move onto the next level. This is essentially what
+L<Data::Diver> does for you:
+
+    if( check_hash( \%hash, qw(key1 key2 key3) ) ) {
+        ...;
+    }
+
+    sub check_hash {
+       my( $hash, @keys ) = @_;
+
+       return unless @keys;
+
+       foreach my $key ( @keys ) {
+           return unless eval { exists $hash->{$key} };
+           $hash = $hash->{$key};
+        }
+
+       return 1;
+    }
+
+=head2 How can I prevent addition of unwanted keys into a hash?
+
+Since version 5.8.0, hashes can be I<restricted> to a fixed number
+of given keys. Methods for creating and dealing with restricted hashes
+are exported by the L<Hash::Util> module.
+
+=head1 Data: Misc
+
+=head2 How do I handle binary data correctly?
+
+Perl is binary-clean, so it can handle binary data just fine.
+On Windows or DOS, however, you have to use C<binmode> for binary
+files to avoid conversions for line endings. In general, you should
+use C<binmode> any time you want to work with binary data.
+
+Also see L<perlfunc/"binmode"> or L<perlopentut>.
+
+If you're concerned about 8-bit textual data then see L<perllocale>.
+If you want to deal with multibyte characters, however, there are
+some gotchas. See the section on Regular Expressions.
+
+=head2 How do I determine whether a scalar is a number/whole/integer/float?
+
+Assuming that you don't care about IEEE notations like "NaN" or
+"Infinity", you probably just want to use a regular expression:
+
+    use 5.010;
+
+    given( $number ) {
+        when( /\D/ )
+            { say "\thas nondigits"; continue }
+        when( /^\d+\z/ )
+            { say "\tis a whole number"; continue }
+        when( /^-?\d+\z/ )
+            { say "\tis an integer"; continue }
+        when( /^[+-]?\d+\z/ )
+            { say "\tis a +/- integer"; continue }
+        when( /^-?(?:\d+\.?|\.\d)\d*\z/ )
+            { say "\tis a real number"; continue }
+        when( /^[+-]?(?=\.?\d)\d*\.?\d*(?:e[+-]?\d+)?\z/i)
+            { say "\tis a C float" }
+    }
+
+There are also some commonly used modules for the task.
+L<Scalar::Util> (distributed with 5.8) provides access to perl's
+internal function C<looks_like_number> for determining whether a
+variable looks like a number. L<Data::Types> exports functions that
+validate data types using both the above and other regular
+expressions. Thirdly, there is L<Regexp::Common> which has regular
+expressions to match various types of numbers. Those three modules are
+available from the CPAN.
+
+If you're on a POSIX system, Perl supports the C<POSIX::strtod>
+function for converting strings to doubles (and also C<POSIX::strtol>
+for longs). Its semantics are somewhat cumbersome, so here's a
+C<getnum> wrapper function for more convenient access. This function
+takes a string and returns the number it found, or C<undef> for input
+that isn't a C float. The C<is_numeric> function is a front end to
+C<getnum> if you just want to say, "Is this a float?"
+
+    sub getnum {
+        use POSIX qw(strtod);
+        my $str = shift;
+        $str =~ s/^\s+//;
+        $str =~ s/\s+$//;
+        $! = 0;
+        my($num, $unparsed) = strtod($str);
+        if (($str eq '') || ($unparsed != 0) || $!) {
+                return undef;
+        }
+        else {
+            return $num;
+        }
+    }
+
+    sub is_numeric { defined getnum($_[0]) }
+
+Or you could check out the L<String::Scanf> module on the CPAN
+instead.
+
+=head2 How do I keep persistent data across program calls?
+
+For some specific applications, you can use one of the DBM modules.
+See L<AnyDBM_File>. More generically, you should consult the L<FreezeThaw>
+or L<Storable> modules from CPAN. Starting from Perl 5.8, L<Storable> is part
+of the standard distribution. Here's one example using L<Storable>'s C<store>
+and C<retrieve> functions:
+
+    use Storable;
+    store(\%hash, "filename");
+
+    # later on...
+    $href = retrieve("filename");        # by ref
+    %hash = %{ retrieve("filename") };   # direct to hash
+
+=head2 How do I print out or copy a recursive data structure?
+
+The L<Data::Dumper> module on CPAN (or the 5.005 release of Perl) is great
+for printing out data structures. The L<Storable> module on CPAN (or the
+5.8 release of Perl), provides a function called C<dclone> that recursively
+copies its argument.
+
+    use Storable qw(dclone);
+    $r2 = dclone($r1);
+
+Where C<$r1> can be a reference to any kind of data structure you'd like.
+It will be deeply copied. Because C<dclone> takes and returns references,
+you'd have to add extra punctuation if you had a hash of arrays that
+you wanted to copy.
+
+    %newhash = %{ dclone(\%oldhash) };
+
+=head2 How do I define methods for every class/object?
+
+(contributed by Ben Morrow)
+
+You can use the C<UNIVERSAL> class (see L<UNIVERSAL>). However, please
+be very careful to consider the consequences of doing this: adding
+methods to every object is very likely to have unintended
+consequences. If possible, it would be better to have all your object
+inherit from some common base class, or to use an object system like
+Moose that supports roles.
+
+=head2 How do I verify a credit card checksum?
+
+Get the L<Business::CreditCard> module from CPAN.
+
+=head2 How do I pack arrays of doubles or floats for XS code?
+
+The arrays.h/arrays.c code in the L<PGPLOT> module on CPAN does just this.
+If you're doing a lot of float or double processing, consider using
+the L<PDL> module from CPAN instead--it makes number-crunching easy.
+
+See L<http://search.cpan.org/dist/PGPLOT> for the code.
+
+
+=head1 AUTHOR AND COPYRIGHT
+
+Copyright (c) 1997-2010 Tom Christiansen, Nathan Torkington, and
+other authors as noted. All rights reserved.
+
+This documentation is free; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+Irrespective of its distribution, all code examples in this file
+are hereby placed into the public domain. You are permitted and
+encouraged to use this code in your own programs for fun
+or for profit as you see fit. A simple comment in the code giving
+credit would be courteous but is not required.
diff --git a/lib/5.24.1/pod/perlfaq5.pod b/lib/5.24.1/pod/perlfaq5.pod
new file mode 100644
index 00000000..cbb73c74
--- /dev/null
+++ b/lib/5.24.1/pod/perlfaq5.pod
@@ -0,0 +1,1580 @@
+=head1 NAME
+
+perlfaq5 - Files and Formats
+
+=head1 VERSION
+
+version 5.021010
+
+=head1 DESCRIPTION
+
+This section deals with I/O and the "f" issues: filehandles, flushing,
+formats, and footers.
+
+=head2 How do I flush/unbuffer an output filehandle? Why must I do this?
+X<flush> X<buffer> X<unbuffer> X<autoflush>
+
+(contributed by brian d foy)
+
+You might like to read Mark Jason Dominus's "Suffering From Buffering"
+at L<http://perl.plover.com/FAQs/Buffering.html> .
+
+Perl normally buffers output so it doesn't make a system call for every
+bit of output. By saving up output, it makes fewer expensive system calls.
+For instance, in this little bit of code, you want to print a dot to the
+screen for every line you process to watch the progress of your program.
+Instead of seeing a dot for every line, Perl buffers the output and you
+have a long wait before you see a row of 50 dots all at once:
+
+    # long wait, then row of dots all at once
+    while( <> ) {
+        print ".";
+        print "\n" unless ++$count % 50;
+
+        #... expensive line processing operations
+    }
+
+To get around this, you have to unbuffer the output filehandle, in this
+case, C<STDOUT>. You can set the special variable C<$|> to a true value
+(mnemonic: making your filehandles "piping hot"):
+
+    $|++;
+
+    # dot shown immediately
+    while( <> ) {
+        print ".";
+        print "\n" unless ++$count % 50;
+
+        #... expensive line processing operations
+    }
+
+The C<$|> is one of the per-filehandle special variables, so each
+filehandle has its own copy of its value. If you want to merge
+standard output and standard error for instance, you have to unbuffer
+each (although STDERR might be unbuffered by default):
+
+    {
+        my $previous_default = select(STDOUT);  # save previous default
+        $|++;                                   # autoflush STDOUT
+        select(STDERR);
+        $|++;                                   # autoflush STDERR, to be sure
+        select($previous_default);              # restore previous default
+    }
+
+    # now should alternate . and +
+    while( 1 ) {
+        sleep 1;
+        print STDOUT ".";
+        print STDERR "+";
+        print STDOUT "\n" unless ++$count % 25;
+    }
+
+Besides the C<$|> special variable, you can use C<binmode> to give
+your filehandle a C<:unix> layer, which is unbuffered:
+
+    binmode( STDOUT, ":unix" );
+
+    while( 1 ) {
+        sleep 1;
+        print ".";
+        print "\n" unless ++$count % 50;
+    }
+
+For more information on output layers, see the entries for C<binmode>
+and L<open> in L<perlfunc>, and the L<PerlIO> module documentation.
+
+If you are using L<IO::Handle> or one of its subclasses, you can
+call the C<autoflush> method to change the settings of the
+filehandle:
+
+    use IO::Handle;
+    open my( $io_fh ), ">", "output.txt";
+    $io_fh->autoflush(1);
+
+The L<IO::Handle> objects also have a C<flush> method. You can flush
+the buffer any time you want without auto-buffering
+
+    $io_fh->flush;
+
+=head2 How do I change, delete, or insert a line in a file, or append to the beginning of a file?
+X<file, editing>
+
+(contributed by brian d foy)
+
+The basic idea of inserting, changing, or deleting a line from a text
+file involves reading and printing the file to the point you want to
+make the change, making the change, then reading and printing the rest
+of the file. Perl doesn't provide random access to lines (especially
+since the record input separator, C<$/>, is mutable), although modules
+such as L<Tie::File> can fake it.
+
+A Perl program to do these tasks takes the basic form of opening a
+file, printing its lines, then closing the file:
+
+    open my $in,  '<',  $file      or die "Can't read old file: $!";
+    open my $out, '>', "$file.new" or die "Can't write new file: $!";
+
+    while( <$in> ) {
+            print $out $_;
+    }
+
+    close $out;
+
+Within that basic form, add the parts that you need to insert, change,
+or delete lines.
+
+To prepend lines to the beginning, print those lines before you enter
+the loop that prints the existing lines.
+
+    open my $in,  '<',  $file      or die "Can't read old file: $!";
+    open my $out, '>', "$file.new" or die "Can't write new file: $!";
+
+    print $out "# Add this line to the top\n"; # <--- HERE'S THE MAGIC
+
+    while( <$in> ) {
+            print $out $_;
+    }
+
+    close $out;
+
+To change existing lines, insert the code to modify the lines inside
+the C<while> loop. In this case, the code finds all lowercased
+versions of "perl" and uppercases them. The happens for every line, so
+be sure that you're supposed to do that on every line!
+
+    open my $in,  '<',  $file      or die "Can't read old file: $!";
+    open my $out, '>', "$file.new" or die "Can't write new file: $!";
+
+    print $out "# Add this line to the top\n";
+
+    while( <$in> ) {
+        s/\b(perl)\b/Perl/g;
+        print $out $_;
+    }
+
+    close $out;
+
+To change only a particular line, the input line number, C<$.>, is
+useful. First read and print the lines up to the one you  want to
+change. Next, read the single line you want to change, change it, and
+print it. After that, read the rest of the lines and print those:
+
+    while( <$in> ) { # print the lines before the change
+        print $out $_;
+        last if $. == 4; # line number before change
+    }
+
+    my $line = <$in>;
+    $line =~ s/\b(perl)\b/Perl/g;
+    print $out $line;
+
+    while( <$in> ) { # print the rest of the lines
+        print $out $_;
+    }
+
+To skip lines, use the looping controls. The C<next> in this example
+skips comment lines, and the C<last> stops all processing once it
+encounters either C<__END__> or C<__DATA__>.
+
+    while( <$in> ) {
+        next if /^\s+#/;             # skip comment lines
+        last if /^__(END|DATA)__$/;  # stop at end of code marker
+        print $out $_;
+    }
+
+Do the same sort of thing to delete a particular line by using C<next>
+to skip the lines you don't want to show up in the output. This
+example skips every fifth line:
+
+    while( <$in> ) {
+        next unless $. % 5;
+        print $out $_;
+    }
+
+If, for some odd reason, you really want to see the whole file at once
+rather than processing line-by-line, you can slurp it in (as long as
+you can fit the whole thing in memory!):
+
+    open my $in,  '<',  $file      or die "Can't read old file: $!"
+    open my $out, '>', "$file.new" or die "Can't write new file: $!";
+
+    my $content = do { local $/; <$in> }; # slurp!
+
+        # do your magic here
+
+    print $out $content;
+
+Modules such as L<Path::Tiny> and L<Tie::File> can help with that
+too. If you can, however, avoid reading the entire file at once. Perl
+won't give that memory back to the operating system until the process
+finishes.
+
+You can also use Perl one-liners to modify a file in-place. The
+following changes all 'Fred' to 'Barney' in F<inFile.txt>, overwriting
+the file with the new contents. With the C<-p> switch, Perl wraps a
+C<while> loop around the code you specify with C<-e>, and C<-i> turns
+on in-place editing. The current line is in C<$_>. With C<-p>, Perl
+automatically prints the value of C<$_> at the end of the loop. See
+L<perlrun> for more details.
+
+    perl -pi -e 's/Fred/Barney/' inFile.txt
+
+To make a backup of C<inFile.txt>, give C<-i> a file extension to add:
+
+    perl -pi.bak -e 's/Fred/Barney/' inFile.txt
+
+To change only the fifth line, you can add a test checking C<$.>, the
+input line number, then only perform the operation when the test
+passes:
+
+    perl -pi -e 's/Fred/Barney/ if $. == 5' inFile.txt
+
+To add lines before a certain line, you can add a line (or lines!)
+before Perl prints C<$_>:
+
+    perl -pi -e 'print "Put before third line\n" if $. == 3' inFile.txt
+
+You can even add a line to the beginning of a file, since the current
+line prints at the end of the loop:
+
+    perl -pi -e 'print "Put before first line\n" if $. == 1' inFile.txt
+
+To insert a line after one already in the file, use the C<-n> switch.
+It's just like C<-p> except that it doesn't print C<$_> at the end of
+the loop, so you have to do that yourself. In this case, print C<$_>
+first, then print the line that you want to add.
+
+    perl -ni -e 'print; print "Put after fifth line\n" if $. == 5' inFile.txt
+
+To delete lines, only print the ones that you want.
+
+    perl -ni -e 'print if /d/' inFile.txt
+
+=head2 How do I count the number of lines in a file?
+X<file, counting lines> X<lines> X<line>
+
+(contributed by brian d foy)
+
+Conceptually, the easiest way to count the lines in a file is to
+simply read them and count them:
+
+    my $count = 0;
+    while( <$fh> ) { $count++; }
+
+You don't really have to count them yourself, though, since Perl
+already does that with the C<$.> variable, which is the current line
+number from the last filehandle read:
+
+    1 while( <$fh> );
+    my $count = $.;
+
+If you want to use C<$.>, you can reduce it to a simple one-liner,
+like one of these:
+
+    % perl -lne '} print $.; {'    file
+
+    % perl -lne 'END { print $. }' file
+
+Those can be rather inefficient though. If they aren't fast enough for
+you, you might just read chunks of data and count the number of
+newlines:
+
+    my $lines = 0;
+    open my($fh), '<:raw', $filename or die "Can't open $filename: $!";
+    while( sysread $fh, $buffer, 4096 ) {
+        $lines += ( $buffer =~ tr/\n// );
+    }
+    close $fh;
+
+However, that doesn't work if the line ending isn't a newline. You
+might change that C<tr///> to a C<s///> so you can count the number of
+times the input record separator, C<$/>, shows up:
+
+    my $lines = 0;
+    open my($fh), '<:raw', $filename or die "Can't open $filename: $!";
+    while( sysread $fh, $buffer, 4096 ) {
+        $lines += ( $buffer =~ s|$/||g; );
+    }
+    close $fh;
+
+If you don't mind shelling out, the C<wc> command is usually the
+fastest, even with the extra interprocess overhead. Ensure that you
+have an untainted filename though:
+
+    #!perl -T
+
+    $ENV{PATH} = undef;
+
+    my $lines;
+    if( $filename =~ /^([0-9a-z_.]+)\z/ ) {
+        $lines = `/usr/bin/wc -l $1`
+        chomp $lines;
+    }
+
+=head2 How do I delete the last N lines from a file?
+X<lines> X<file>
+
+(contributed by brian d foy)
+
+The easiest conceptual solution is to count the lines in the
+file then start at the beginning and print the number of lines
+(minus the last N) to a new file.
+
+Most often, the real question is how you can delete the last N lines
+without making more than one pass over the file, or how to do it
+without a lot of copying. The easy concept is the hard reality when
+you might have millions of lines in your file.
+
+One trick is to use L<File::ReadBackwards>, which starts at the end of
+the file. That module provides an object that wraps the real filehandle
+to make it easy for you to move around the file. Once you get to the
+spot you need, you can get the actual filehandle and work with it as
+normal. In this case, you get the file position at the end of the last
+line you want to keep and truncate the file to that point:
+
+    use File::ReadBackwards;
+
+    my $filename = 'test.txt';
+    my $Lines_to_truncate = 2;
+
+    my $bw = File::ReadBackwards->new( $filename )
+        or die "Could not read backwards in [$filename]: $!";
+
+    my $lines_from_end = 0;
+    until( $bw->eof or $lines_from_end == $Lines_to_truncate ) {
+        print "Got: ", $bw->readline;
+        $lines_from_end++;
+    }
+
+    truncate( $filename, $bw->tell );
+
+The L<File::ReadBackwards> module also has the advantage of setting
+the input record separator to a regular expression.
+
+You can also use the L<Tie::File> module which lets you access
+the lines through a tied array. You can use normal array operations
+to modify your file, including setting the last index and using
+C<splice>.
+
+=head2 How can I use Perl's C<-i> option from within a program?
+X<-i> X<in-place>
+
+C<-i> sets the value of Perl's C<$^I> variable, which in turn affects
+the behavior of C<< <> >>; see L<perlrun> for more details. By
+modifying the appropriate variables directly, you can get the same
+behavior within a larger program. For example:
+
+    # ...
+    {
+        local($^I, @ARGV) = ('.orig', glob("*.c"));
+        while (<>) {
+            if ($. == 1) {
+                print "This line should appear at the top of each file\n";
+            }
+            s/\b(p)earl\b/${1}erl/i;        # Correct typos, preserving case
+            print;
+            close ARGV if eof;              # Reset $.
+        }
+    }
+    # $^I and @ARGV return to their old values here
+
+This block modifies all the C<.c> files in the current directory,
+leaving a backup of the original data from each file in a new
+C<.c.orig> file.
+
+=head2 How can I copy a file?
+X<copy> X<file, copy> X<File::Copy>
+
+(contributed by brian d foy)
+
+Use the L<File::Copy> module. It comes with Perl and can do a
+true copy across file systems, and it does its magic in
+a portable fashion.
+
+    use File::Copy;
+
+    copy( $original, $new_copy ) or die "Copy failed: $!";
+
+If you can't use L<File::Copy>, you'll have to do the work yourself:
+open the original file, open the destination file, then print
+to the destination file as you read the original. You also have to
+remember to copy the permissions, owner, and group to the new file.
+
+=head2 How do I make a temporary file name?
+X<file, temporary>
+
+If you don't need to know the name of the file, you can use C<open()>
+with C<undef> in place of the file name. In Perl 5.8 or later, the
+C<open()> function creates an anonymous temporary file:
+
+    open my $tmp, '+>', undef or die $!;
+
+Otherwise, you can use the File::Temp module.
+
+    use File::Temp qw/ tempfile tempdir /;
+
+    my $dir = tempdir( CLEANUP => 1 );
+    ($fh, $filename) = tempfile( DIR => $dir );
+
+    # or if you don't need to know the filename
+
+    my $fh = tempfile( DIR => $dir );
+
+The File::Temp has been a standard module since Perl 5.6.1. If you
+don't have a modern enough Perl installed, use the C<new_tmpfile>
+class method from the IO::File module to get a filehandle opened for
+reading and writing. Use it if you don't need to know the file's name:
+
+    use IO::File;
+    my $fh = IO::File->new_tmpfile()
+        or die "Unable to make new temporary file: $!";
+
+If you're committed to creating a temporary file by hand, use the
+process ID and/or the current time-value. If you need to have many
+temporary files in one process, use a counter:
+
+    BEGIN {
+        use Fcntl;
+        use File::Spec;
+        my $temp_dir  = File::Spec->tmpdir();
+        my $file_base = sprintf "%d-%d-0000", $$, time;
+        my $base_name = File::Spec->catfile($temp_dir, $file_base);
+
+        sub temp_file {
+            my $fh;
+            my $count = 0;
+            until( defined(fileno($fh)) || $count++ > 100 ) {
+                $base_name =~ s/-(\d+)$/"-" . (1 + $1)/e;
+                # O_EXCL is required for security reasons.
+                sysopen $fh, $base_name, O_WRONLY|O_EXCL|O_CREAT;
+            }
+
+            if( defined fileno($fh) ) {
+                return ($fh, $base_name);
+            }
+            else {
+                return ();
+            }
+        }
+    }
+
+=head2 How can I manipulate fixed-record-length files?
+X<fixed-length> X<file, fixed-length records>
+
+The most efficient way is using L<pack()|perlfunc/"pack"> and
+L<unpack()|perlfunc/"unpack">. This is faster than using
+L<substr()|perlfunc/"substr"> when taking many, many strings. It is
+slower for just a few.
+
+Here is a sample chunk of code to break up and put back together again
+some fixed-format input lines, in this case from the output of a normal,
+Berkeley-style ps:
+
+    # sample input line:
+    #   15158 p5  T      0:00 perl /home/tchrist/scripts/now-what
+    my $PS_T = 'A6 A4 A7 A5 A*';
+    open my $ps, '-|', 'ps';
+    print scalar <$ps>;
+    my @fields = qw( pid tt stat time command );
+    while (<$ps>) {
+        my %process;
+        @process{@fields} = unpack($PS_T, $_);
+        for my $field ( @fields ) {
+            print "$field: <$process{$field}>\n";
+        }
+        print 'line=', pack($PS_T, @process{@fields} ), "\n";
+    }
+
+We've used a hash slice in order to easily handle the fields of each row.
+Storing the keys in an array makes it easy to operate on them as a
+group or loop over them with C<for>. It also avoids polluting the program
+with global variables and using symbolic references.
+
+=head2 How can I make a filehandle local to a subroutine? How do I pass filehandles between subroutines? How do I make an array of filehandles?
+X<filehandle, local> X<filehandle, passing> X<filehandle, reference>
+
+As of perl5.6, open() autovivifies file and directory handles
+as references if you pass it an uninitialized scalar variable.
+You can then pass these references just like any other scalar,
+and use them in the place of named handles.
+
+    open my    $fh, $file_name;
+
+    open local $fh, $file_name;
+
+    print $fh "Hello World!\n";
+
+    process_file( $fh );
+
+If you like, you can store these filehandles in an array or a hash.
+If you access them directly, they aren't simple scalars and you
+need to give C<print> a little help by placing the filehandle
+reference in braces. Perl can only figure it out on its own when
+the filehandle reference is a simple scalar.
+
+    my @fhs = ( $fh1, $fh2, $fh3 );
+
+    for( $i = 0; $i <= $#fhs; $i++ ) {
+        print {$fhs[$i]} "just another Perl answer, \n";
+    }
+
+Before perl5.6, you had to deal with various typeglob idioms
+which you may see in older code.
+
+    open FILE, "> $filename";
+    process_typeglob(   *FILE );
+    process_reference( \*FILE );
+
+    sub process_typeglob  { local *FH = shift; print FH  "Typeglob!" }
+    sub process_reference { local $fh = shift; print $fh "Reference!" }
+
+If you want to create many anonymous handles, you should
+check out the Symbol or IO::Handle modules.
+
+=head2 How can I use a filehandle indirectly?
+X<filehandle, indirect>
+
+An indirect filehandle is the use of something other than a symbol
+in a place that a filehandle is expected. Here are ways
+to get indirect filehandles:
+
+    $fh =   SOME_FH;       # bareword is strict-subs hostile
+    $fh =  "SOME_FH";      # strict-refs hostile; same package only
+    $fh =  *SOME_FH;       # typeglob
+    $fh = \*SOME_FH;       # ref to typeglob (bless-able)
+    $fh =  *SOME_FH{IO};   # blessed IO::Handle from *SOME_FH typeglob
+
+Or, you can use the C<new> method from one of the IO::* modules to
+create an anonymous filehandle and store that in a scalar variable.
+
+    use IO::Handle;                     # 5.004 or higher
+    my $fh = IO::Handle->new();
+
+Then use any of those as you would a normal filehandle. Anywhere that
+Perl is expecting a filehandle, an indirect filehandle may be used
+instead. An indirect filehandle is just a scalar variable that contains
+a filehandle. Functions like C<print>, C<open>, C<seek>, or
+the C<< <FH> >> diamond operator will accept either a named filehandle
+or a scalar variable containing one:
+
+    ($ifh, $ofh, $efh) = (*STDIN, *STDOUT, *STDERR);
+    print $ofh "Type it: ";
+    my $got = <$ifh>
+    print $efh "What was that: $got";
+
+If you're passing a filehandle to a function, you can write
+the function in two ways:
+
+    sub accept_fh {
+        my $fh = shift;
+        print $fh "Sending to indirect filehandle\n";
+    }
+
+Or it can localize a typeglob and use the filehandle directly:
+
+    sub accept_fh {
+        local *FH = shift;
+        print  FH "Sending to localized filehandle\n";
+    }
+
+Both styles work with either objects or typeglobs of real filehandles.
+(They might also work with strings under some circumstances, but this
+is risky.)
+
+    accept_fh(*STDOUT);
+    accept_fh($handle);
+
+In the examples above, we assigned the filehandle to a scalar variable
+before using it. That is because only simple scalar variables, not
+expressions or subscripts of hashes or arrays, can be used with
+built-ins like C<print>, C<printf>, or the diamond operator. Using
+something other than a simple scalar variable as a filehandle is
+illegal and won't even compile:
+
+    my @fd = (*STDIN, *STDOUT, *STDERR);
+    print $fd[1] "Type it: ";                           # WRONG
+    my $got = <$fd[0]>                                  # WRONG
+    print $fd[2] "What was that: $got";                 # WRONG
+
+With C<print> and C<printf>, you get around this by using a block and
+an expression where you would place the filehandle:
+
+    print  { $fd[1] } "funny stuff\n";
+    printf { $fd[1] } "Pity the poor %x.\n", 3_735_928_559;
+    # Pity the poor deadbeef.
+
+That block is a proper block like any other, so you can put more
+complicated code there. This sends the message out to one of two places:
+
+    my $ok = -x "/bin/cat";
+    print { $ok ? $fd[1] : $fd[2] } "cat stat $ok\n";
+    print { $fd[ 1+ ($ok || 0) ]  } "cat stat $ok\n";
+
+This approach of treating C<print> and C<printf> like object methods
+calls doesn't work for the diamond operator. That's because it's a
+real operator, not just a function with a comma-less argument. Assuming
+you've been storing typeglobs in your structure as we did above, you
+can use the built-in function named C<readline> to read a record just
+as C<< <> >> does. Given the initialization shown above for @fd, this
+would work, but only because readline() requires a typeglob. It doesn't
+work with objects or strings, which might be a bug we haven't fixed yet.
+
+    $got = readline($fd[0]);
+
+Let it be noted that the flakiness of indirect filehandles is not
+related to whether they're strings, typeglobs, objects, or anything else.
+It's the syntax of the fundamental operators. Playing the object
+game doesn't help you at all here.
+
+=head2 How can I set up a footer format to be used with write()?
+X<footer>
+
+There's no builtin way to do this, but L<perlform> has a couple of
+techniques to make it possible for the intrepid hacker.
+
+=head2 How can I write() into a string?
+X<write, into a string>
+
+(contributed by brian d foy)
+
+If you want to C<write> into a string, you just have to <open> a
+filehandle to a string, which Perl has been able to do since Perl 5.6:
+
+    open FH, '>', \my $string;
+    write( FH );
+
+Since you want to be a good programmer, you probably want to use a lexical
+filehandle, even though formats are designed to work with bareword filehandles
+since the default format names take the filehandle name. However, you can
+control this with some Perl special per-filehandle variables: C<$^>, which
+names the top-of-page format, and C<$~> which shows the line format. You have
+to change the default filehandle to set these variables:
+
+    open my($fh), '>', \my $string;
+
+    { # set per-filehandle variables
+        my $old_fh = select( $fh );
+        $~ = 'ANIMAL';
+        $^ = 'ANIMAL_TOP';
+        select( $old_fh );
+    }
+
+    format ANIMAL_TOP =
+     ID  Type    Name
+    .
+
+    format ANIMAL =
+    @##   @<<<    @<<<<<<<<<<<<<<
+    $id,  $type,  $name
+    .
+
+Although write can work with lexical or package variables, whatever variables
+you use have to scope in the format. That most likely means you'll want to
+localize some package variables:
+
+    {
+        local( $id, $type, $name ) = qw( 12 cat Buster );
+        write( $fh );
+    }
+
+    print $string;
+
+There are also some tricks that you can play with C<formline> and the
+accumulator variable C<$^A>, but you lose a lot of the value of formats
+since C<formline> won't handle paging and so on. You end up reimplementing
+formats when you use them.
+
+=head2 How can I open a filehandle to a string?
+X<string> X<open> X<IO::String> X<filehandle>
+
+(contributed by Peter J. Holzer, hjp-usenet2@hjp.at)
+
+Since Perl 5.8.0 a file handle referring to a string can be created by
+calling open with a reference to that string instead of the filename.
+This file handle can then be used to read from or write to the string:
+
+    open(my $fh, '>', \$string) or die "Could not open string for writing";
+    print $fh "foo\n";
+    print $fh "bar\n";    # $string now contains "foo\nbar\n"
+
+    open(my $fh, '<', \$string) or die "Could not open string for reading";
+    my $x = <$fh>;    # $x now contains "foo\n"
+
+With older versions of Perl, the L<IO::String> module provides similar
+functionality.
+
+=head2 How can I output my numbers with commas added?
+X<number, commify>
+
+(contributed by brian d foy and Benjamin Goldberg)
+
+You can use L<Number::Format> to separate places in a number.
+It handles locale information for those of you who want to insert
+full stops instead (or anything else that they want to use,
+really).
+
+This subroutine will add commas to your number:
+
+    sub commify {
+        local $_  = shift;
+        1 while s/^([-+]?\d+)(\d{3})/$1,$2/;
+        return $_;
+    }
+
+This regex from Benjamin Goldberg will add commas to numbers:
+
+    s/(^[-+]?\d+?(?=(?>(?:\d{3})+)(?!\d))|\G\d{3}(?=\d))/$1,/g;
+
+It is easier to see with comments:
+
+    s/(
+        ^[-+]?             # beginning of number.
+        \d+?               # first digits before first comma
+        (?=                # followed by, (but not included in the match) :
+            (?>(?:\d{3})+) # some positive multiple of three digits.
+            (?!\d)         # an *exact* multiple, not x * 3 + 1 or whatever.
+        )
+        |                  # or:
+        \G\d{3}            # after the last group, get three digits
+        (?=\d)             # but they have to have more digits after them.
+    )/$1,/xg;
+
+=head2 How can I translate tildes (~) in a filename?
+X<tilde> X<tilde expansion>
+
+Use the E<lt>E<gt> (C<glob()>) operator, documented in L<perlfunc>.
+Versions of Perl older than 5.6 require that you have a shell
+installed that groks tildes. Later versions of Perl have this feature
+built in. The L<File::KGlob> module (available from CPAN) gives more
+portable glob functionality.
+
+Within Perl, you may use this directly:
+
+    $filename =~ s{
+      ^ ~             # find a leading tilde
+      (               # save this in $1
+          [^/]        # a non-slash character
+                *     # repeated 0 or more times (0 means me)
+      )
+    }{
+      $1
+          ? (getpwnam($1))[7]
+          : ( $ENV{HOME} || $ENV{LOGDIR} )
+    }ex;
+
+=head2 How come when I open a file read-write it wipes it out?
+X<clobber> X<read-write> X<clobbering> X<truncate> X<truncating>
+
+Because you're using something like this, which truncates the file
+I<then> gives you read-write access:
+
+    open my $fh, '+>', '/path/name'; # WRONG (almost always)
+
+Whoops. You should instead use this, which will fail if the file
+doesn't exist:
+
+    open my $fh, '+<', '/path/name'; # open for update
+
+Using ">" always clobbers or creates. Using "<" never does
+either. The "+" doesn't change this.
+
+Here are examples of many kinds of file opens. Those using C<sysopen>
+all assume that you've pulled in the constants from L<Fcntl>:
+
+    use Fcntl;
+
+To open file for reading:
+
+    open my $fh, '<', $path                               or die $!;
+    sysopen my $fh, $path, O_RDONLY                       or die $!;
+
+To open file for writing, create new file if needed or else truncate old file:
+
+    open my $fh, '>', $path                               or die $!;
+    sysopen my $fh, $path, O_WRONLY|O_TRUNC|O_CREAT       or die $!;
+    sysopen my $fh, $path, O_WRONLY|O_TRUNC|O_CREAT, 0666 or die $!;
+
+To open file for writing, create new file, file must not exist:
+
+    sysopen my $fh, $path, O_WRONLY|O_EXCL|O_CREAT        or die $!;
+    sysopen my $fh, $path, O_WRONLY|O_EXCL|O_CREAT, 0666  or die $!;
+
+To open file for appending, create if necessary:
+
+    open my $fh, '>>' $path                               or die $!;
+    sysopen my $fh, $path, O_WRONLY|O_APPEND|O_CREAT      or die $!;
+    sysopen my $fh, $path, O_WRONLY|O_APPEND|O_CREAT, 0666 or die $!;
+
+To open file for appending, file must exist:
+
+    sysopen my $fh, $path, O_WRONLY|O_APPEND              or die $!;
+
+To open file for update, file must exist:
+
+    open my $fh, '+<', $path                              or die $!;
+    sysopen my $fh, $path, O_RDWR                         or die $!;
+
+To open file for update, create file if necessary:
+
+    sysopen my $fh, $path, O_RDWR|O_CREAT                 or die $!;
+    sysopen my $fh, $path, O_RDWR|O_CREAT, 0666           or die $!;
+
+To open file for update, file must not exist:
+
+    sysopen my $fh, $path, O_RDWR|O_EXCL|O_CREAT          or die $!;
+    sysopen my $fh, $path, O_RDWR|O_EXCL|O_CREAT, 0666    or die $!;
+
+To open a file without blocking, creating if necessary:
+
+    sysopen my $fh, '/foo/somefile', O_WRONLY|O_NDELAY|O_CREAT
+        or die "can't open /foo/somefile: $!":
+
+Be warned that neither creation nor deletion of files is guaranteed to
+be an atomic operation over NFS. That is, two processes might both
+successfully create or unlink the same file! Therefore O_EXCL
+isn't as exclusive as you might wish.
+
+See also L<perlopentut>.
+
+=head2 Why do I sometimes get an "Argument list too long" when I use E<lt>*E<gt>?
+X<argument list too long>
+
+The C<< <> >> operator performs a globbing operation (see above).
+In Perl versions earlier than v5.6.0, the internal glob() operator forks
+csh(1) to do the actual glob expansion, but
+csh can't handle more than 127 items and so gives the error message
+C<Argument list too long>. People who installed tcsh as csh won't
+have this problem, but their users may be surprised by it.
+
+To get around this, either upgrade to Perl v5.6.0 or later, do the glob
+yourself with readdir() and patterns, or use a module like L<File::Glob>,
+one that doesn't use the shell to do globbing.
+
+=head2 How can I open a file with a leading ">" or trailing blanks?
+X<filename, special characters>
+
+(contributed by Brian McCauley)
+
+The special two-argument form of Perl's open() function ignores
+trailing blanks in filenames and infers the mode from certain leading
+characters (or a trailing "|"). In older versions of Perl this was the
+only version of open() and so it is prevalent in old code and books.
+
+Unless you have a particular reason to use the two-argument form you
+should use the three-argument form of open() which does not treat any
+characters in the filename as special.
+
+    open my $fh, "<", "  file  ";  # filename is "   file   "
+    open my $fh, ">", ">file";     # filename is ">file"
+
+=head2 How can I reliably rename a file?
+X<rename> X<mv> X<move> X<file, rename>
+
+If your operating system supports a proper mv(1) utility or its
+functional equivalent, this works:
+
+    rename($old, $new) or system("mv", $old, $new);
+
+It may be more portable to use the L<File::Copy> module instead.
+You just copy to the new file to the new name (checking return
+values), then delete the old one. This isn't really the same
+semantically as a C<rename()>, which preserves meta-information like
+permissions, timestamps, inode info, etc.
+
+=head2 How can I lock a file?
+X<lock> X<file, lock> X<flock>
+
+Perl's builtin flock() function (see L<perlfunc> for details) will call
+flock(2) if that exists, fcntl(2) if it doesn't (on perl version 5.004 and
+later), and lockf(3) if neither of the two previous system calls exists.
+On some systems, it may even use a different form of native locking.
+Here are some gotchas with Perl's flock():
+
+=over 4
+
+=item 1
+
+Produces a fatal error if none of the three system calls (or their
+close equivalent) exists.
+
+=item 2
+
+lockf(3) does not provide shared locking, and requires that the
+filehandle be open for writing (or appending, or read/writing).
+
+=item 3
+
+Some versions of flock() can't lock files over a network (e.g. on NFS file
+systems), so you'd need to force the use of fcntl(2) when you build Perl.
+But even this is dubious at best. See the flock entry of L<perlfunc>
+and the F<INSTALL> file in the source distribution for information on
+building Perl to do this.
+
+Two potentially non-obvious but traditional flock semantics are that
+it waits indefinitely until the lock is granted, and that its locks are
+I<merely advisory>. Such discretionary locks are more flexible, but
+offer fewer guarantees. This means that files locked with flock() may
+be modified by programs that do not also use flock(). Cars that stop
+for red lights get on well with each other, but not with cars that don't
+stop for red lights. See the perlport manpage, your port's specific
+documentation, or your system-specific local manpages for details. It's
+best to assume traditional behavior if you're writing portable programs.
+(If you're not, you should as always feel perfectly free to write
+for your own system's idiosyncrasies (sometimes called "features").
+Slavish adherence to portability concerns shouldn't get in the way of
+your getting your job done.)
+
+For more information on file locking, see also
+L<perlopentut/"File Locking"> if you have it (new for 5.6).
+
+=back
+
+=head2 Why can't I just open(FH, "E<gt>file.lock")?
+X<lock, lockfile race condition>
+
+A common bit of code B<NOT TO USE> is this:
+
+    sleep(3) while -e 'file.lock';    # PLEASE DO NOT USE
+    open my $lock, '>', 'file.lock'; # THIS BROKEN CODE
+
+This is a classic race condition: you take two steps to do something
+which must be done in one. That's why computer hardware provides an
+atomic test-and-set instruction. In theory, this "ought" to work:
+
+    sysopen my $fh, "file.lock", O_WRONLY|O_EXCL|O_CREAT
+        or die "can't open  file.lock: $!";
+
+except that lamentably, file creation (and deletion) is not atomic
+over NFS, so this won't work (at least, not every time) over the net.
+Various schemes involving link() have been suggested, but
+these tend to involve busy-wait, which is also less than desirable.
+
+=head2 I still don't get locking. I just want to increment the number in the file. How can I do this?
+X<counter> X<file, counter>
+
+Didn't anyone ever tell you web-page hit counters were useless?
+They don't count number of hits, they're a waste of time, and they serve
+only to stroke the writer's vanity. It's better to pick a random number;
+they're more realistic.
+
+Anyway, this is what you can do if you can't help yourself.
+
+    use Fcntl qw(:DEFAULT :flock);
+    sysopen my $fh, "numfile", O_RDWR|O_CREAT or die "can't open numfile: $!";
+    flock $fh, LOCK_EX                        or die "can't flock numfile: $!";
+    my $num = <$fh> || 0;
+    seek $fh, 0, 0                            or die "can't rewind numfile: $!";
+    truncate $fh, 0                           or die "can't truncate numfile: $!";
+    (print $fh $num+1, "\n")                  or die "can't write numfile: $!";
+    close $fh                                 or die "can't close numfile: $!";
+
+Here's a much better web-page hit counter:
+
+    $hits = int( (time() - 850_000_000) / rand(1_000) );
+
+If the count doesn't impress your friends, then the code might. :-)
+
+=head2 All I want to do is append a small amount of text to the end of a file. Do I still have to use locking?
+X<append> X<file, append>
+
+If you are on a system that correctly implements C<flock> and you use
+the example appending code from "perldoc -f flock" everything will be
+OK even if the OS you are on doesn't implement append mode correctly
+(if such a system exists). So if you are happy to restrict yourself to
+OSs that implement C<flock> (and that's not really much of a
+restriction) then that is what you should do.
+
+If you know you are only going to use a system that does correctly
+implement appending (i.e. not Win32) then you can omit the C<seek>
+from the code in the previous answer.
+
+If you know you are only writing code to run on an OS and filesystem
+that does implement append mode correctly (a local filesystem on a
+modern Unix for example), and you keep the file in block-buffered mode
+and you write less than one buffer-full of output between each manual
+flushing of the buffer then each bufferload is almost guaranteed to be
+written to the end of the file in one chunk without getting
+intermingled with anyone else's output. You can also use the
+C<syswrite> function which is simply a wrapper around your system's
+C<write(2)> system call.
+
+There is still a small theoretical chance that a signal will interrupt
+the system-level C<write()> operation before completion. There is also
+a possibility that some STDIO implementations may call multiple system
+level C<write()>s even if the buffer was empty to start. There may be
+some systems where this probability is reduced to zero, and this is
+not a concern when using C<:perlio> instead of your system's STDIO.
+
+=head2 How do I randomly update a binary file?
+X<file, binary patch>
+
+If you're just trying to patch a binary, in many cases something as
+simple as this works:
+
+    perl -i -pe 's{window manager}{window mangler}g' /usr/bin/emacs
+
+However, if you have fixed sized records, then you might do something more
+like this:
+
+    my $RECSIZE = 220; # size of record, in bytes
+    my $recno   = 37;  # which record to update
+    open my $fh, '+<', 'somewhere' or die "can't update somewhere: $!";
+    seek $fh, $recno * $RECSIZE, 0;
+    read $fh, $record, $RECSIZE == $RECSIZE or die "can't read record $recno: $!";
+    # munge the record
+    seek $fh, -$RECSIZE, 1;
+    print $fh $record;
+    close $fh;
+
+Locking and error checking are left as an exercise for the reader.
+Don't forget them or you'll be quite sorry.
+
+=head2 How do I get a file's timestamp in perl?
+X<timestamp> X<file, timestamp>
+
+If you want to retrieve the time at which the file was last read,
+written, or had its meta-data (owner, etc) changed, you use the B<-A>,
+B<-M>, or B<-C> file test operations as documented in L<perlfunc>.
+These retrieve the age of the file (measured against the start-time of
+your program) in days as a floating point number. Some platforms may
+not have all of these times. See L<perlport> for details. To retrieve
+the "raw" time in seconds since the epoch, you would call the stat
+function, then use C<localtime()>, C<gmtime()>, or
+C<POSIX::strftime()> to convert this into human-readable form.
+
+Here's an example:
+
+    my $write_secs = (stat($file))[9];
+    printf "file %s updated at %s\n", $file,
+        scalar localtime($write_secs);
+
+If you prefer something more legible, use the File::stat module
+(part of the standard distribution in version 5.004 and later):
+
+    # error checking left as an exercise for reader.
+    use File::stat;
+    use Time::localtime;
+    my $date_string = ctime(stat($file)->mtime);
+    print "file $file updated at $date_string\n";
+
+The POSIX::strftime() approach has the benefit of being,
+in theory, independent of the current locale. See L<perllocale>
+for details.
+
+=head2 How do I set a file's timestamp in perl?
+X<timestamp> X<file, timestamp>
+
+You use the utime() function documented in L<perlfunc/utime>.
+By way of example, here's a little program that copies the
+read and write times from its first argument to all the rest
+of them.
+
+    if (@ARGV < 2) {
+        die "usage: cptimes timestamp_file other_files ...\n";
+    }
+    my $timestamp = shift;
+    my($atime, $mtime) = (stat($timestamp))[8,9];
+    utime $atime, $mtime, @ARGV;
+
+Error checking is, as usual, left as an exercise for the reader.
+
+The perldoc for utime also has an example that has the same
+effect as touch(1) on files that I<already exist>.
+
+Certain file systems have a limited ability to store the times
+on a file at the expected level of precision. For example, the
+FAT and HPFS filesystem are unable to create dates on files with
+a finer granularity than two seconds. This is a limitation of
+the filesystems, not of utime().
+
+=head2 How do I print to more than one file at once?
+X<print, to multiple files>
+
+To connect one filehandle to several output filehandles,
+you can use the L<IO::Tee> or L<Tie::FileHandle::Multiplex> modules.
+
+If you only have to do this once, you can print individually
+to each filehandle.
+
+    for my $fh ($fh1, $fh2, $fh3) { print $fh "whatever\n" }
+
+=head2 How can I read in an entire file all at once?
+X<slurp> X<file, slurping>
+
+The customary Perl approach for processing all the lines in a file is to
+do so one line at a time:
+
+    open my $input, '<', $file or die "can't open $file: $!";
+    while (<$input>) {
+        chomp;
+        # do something with $_
+    }
+    close $input or die "can't close $file: $!";
+
+This is tremendously more efficient than reading the entire file into
+memory as an array of lines and then processing it one element at a time,
+which is often--if not almost always--the wrong approach. Whenever
+you see someone do this:
+
+    my @lines = <INPUT>;
+
+You should think long and hard about why you need everything loaded at
+once. It's just not a scalable solution.
+
+If you "mmap" the file with the File::Map module from
+CPAN, you can virtually load the entire file into a
+string without actually storing it in memory:
+
+    use File::Map qw(map_file);
+
+    map_file my $string, $filename;
+
+Once mapped, you can treat C<$string> as you would any other string.
+Since you don't necessarily have to load the data, mmap-ing can be
+very fast and may not increase your memory footprint.
+
+You might also find it more
+fun to use the standard L<Tie::File> module, or the L<DB_File> module's
+C<$DB_RECNO> bindings, which allow you to tie an array to a file so that
+accessing an element of the array actually accesses the corresponding
+line in the file.
+
+If you want to load the entire file, you can use the L<Path::Tiny>
+module to do it in one simple and efficient step:
+
+    use Path::Tiny;
+
+    my $all_of_it = path($filename)->slurp; # entire file in scalar
+    my @all_lines = path($filename)->lines; # one line per element
+
+Or you can read the entire file contents into a scalar like this:
+
+    my $var;
+    {
+        local $/;
+        open my $fh, '<', $file or die "can't open $file: $!";
+        $var = <$fh>;
+    }
+
+That temporarily undefs your record separator, and will automatically
+close the file at block exit. If the file is already open, just use this:
+
+    my $var = do { local $/; <$fh> };
+
+You can also use a localized C<@ARGV> to eliminate the C<open>:
+
+    my $var = do { local( @ARGV, $/ ) = $file; <> };
+
+For ordinary files you can also use the C<read> function.
+
+    read( $fh, $var, -s $fh );
+
+That third argument tests the byte size of the data on the C<$fh> filehandle
+and reads that many bytes into the buffer C<$var>.
+
+=head2 How can I read in a file by paragraphs?
+X<file, reading by paragraphs>
+
+Use the C<$/> variable (see L<perlvar> for details). You can either
+set it to C<""> to eliminate empty paragraphs (C<"abc\n\n\n\ndef">,
+for instance, gets treated as two paragraphs and not three), or
+C<"\n\n"> to accept empty paragraphs.
+
+Note that a blank line must have no blanks in it. Thus
+S<C<"fred\n \nstuff\n\n">> is one paragraph, but C<"fred\n\nstuff\n\n"> is two.
+
+=head2 How can I read a single character from a file? From the keyboard?
+X<getc> X<file, reading one character at a time>
+
+You can use the builtin C<getc()> function for most filehandles, but
+it won't (easily) work on a terminal device. For STDIN, either use
+the Term::ReadKey module from CPAN or use the sample code in
+L<perlfunc/getc>.
+
+If your system supports the portable operating system programming
+interface (POSIX), you can use the following code, which you'll note
+turns off echo processing as well.
+
+    #!/usr/bin/perl -w
+    use strict;
+    $| = 1;
+    for (1..4) {
+        print "gimme: ";
+        my $got = getone();
+        print "--> $got\n";
+    }
+    exit;
+
+    BEGIN {
+        use POSIX qw(:termios_h);
+
+        my ($term, $oterm, $echo, $noecho, $fd_stdin);
+
+        my $fd_stdin = fileno(STDIN);
+
+        $term     = POSIX::Termios->new();
+        $term->getattr($fd_stdin);
+        $oterm     = $term->getlflag();
+
+        $echo     = ECHO | ECHOK | ICANON;
+        $noecho   = $oterm & ~$echo;
+
+        sub cbreak {
+            $term->setlflag($noecho);
+            $term->setcc(VTIME, 1);
+            $term->setattr($fd_stdin, TCSANOW);
+        }
+
+        sub cooked {
+            $term->setlflag($oterm);
+            $term->setcc(VTIME, 0);
+            $term->setattr($fd_stdin, TCSANOW);
+        }
+
+        sub getone {
+            my $key = '';
+            cbreak();
+            sysread(STDIN, $key, 1);
+            cooked();
+            return $key;
+        }
+    }
+
+    END { cooked() }
+
+The Term::ReadKey module from CPAN may be easier to use. Recent versions
+include also support for non-portable systems as well.
+
+    use Term::ReadKey;
+    open my $tty, '<', '/dev/tty';
+    print "Gimme a char: ";
+    ReadMode "raw";
+    my $key = ReadKey 0, $tty;
+    ReadMode "normal";
+    printf "\nYou said %s, char number %03d\n",
+        $key, ord $key;
+
+=head2 How can I tell whether there's a character waiting on a filehandle?
+
+The very first thing you should do is look into getting the Term::ReadKey
+extension from CPAN. As we mentioned earlier, it now even has limited
+support for non-portable (read: not open systems, closed, proprietary,
+not POSIX, not Unix, etc.) systems.
+
+You should also check out the Frequently Asked Questions list in
+comp.unix.* for things like this: the answer is essentially the same.
+It's very system-dependent. Here's one solution that works on BSD
+systems:
+
+    sub key_ready {
+        my($rin, $nfd);
+        vec($rin, fileno(STDIN), 1) = 1;
+        return $nfd = select($rin,undef,undef,0);
+    }
+
+If you want to find out how many characters are waiting, there's
+also the FIONREAD ioctl call to be looked at. The I<h2ph> tool that
+comes with Perl tries to convert C include files to Perl code, which
+can be C<require>d. FIONREAD ends up defined as a function in the
+I<sys/ioctl.ph> file:
+
+    require 'sys/ioctl.ph';
+
+    $size = pack("L", 0);
+    ioctl(FH, FIONREAD(), $size)    or die "Couldn't call ioctl: $!\n";
+    $size = unpack("L", $size);
+
+If I<h2ph> wasn't installed or doesn't work for you, you can
+I<grep> the include files by hand:
+
+    % grep FIONREAD /usr/include/*/*
+    /usr/include/asm/ioctls.h:#define FIONREAD      0x541B
+
+Or write a small C program using the editor of champions:
+
+    % cat > fionread.c
+    #include <sys/ioctl.h>
+    main() {
+        printf("%#08x\n", FIONREAD);
+    }
+    ^D
+    % cc -o fionread fionread.c
+    % ./fionread
+    0x4004667f
+
+And then hard-code it, leaving porting as an exercise to your successor.
+
+    $FIONREAD = 0x4004667f;         # XXX: opsys dependent
+
+    $size = pack("L", 0);
+    ioctl(FH, $FIONREAD, $size)     or die "Couldn't call ioctl: $!\n";
+    $size = unpack("L", $size);
+
+FIONREAD requires a filehandle connected to a stream, meaning that sockets,
+pipes, and tty devices work, but I<not> files.
+
+=head2 How do I do a C<tail -f> in perl?
+X<tail> X<IO::Handle> X<File::Tail> X<clearerr>
+
+First try
+
+    seek($gw_fh, 0, 1);
+
+The statement C<seek($gw_fh, 0, 1)> doesn't change the current position,
+but it does clear the end-of-file condition on the handle, so that the
+next C<< <$gw_fh> >> makes Perl try again to read something.
+
+If that doesn't work (it relies on features of your stdio implementation),
+then you need something more like this:
+
+    for (;;) {
+      for ($curpos = tell($gw_fh); <$gw_fh>; $curpos =tell($gw_fh)) {
+        # search for some stuff and put it into files
+      }
+      # sleep for a while
+      seek($gw_fh, $curpos, 0);  # seek to where we had been
+    }
+
+If this still doesn't work, look into the C<clearerr> method
+from L<IO::Handle>, which resets the error and end-of-file states
+on the handle.
+
+There's also a L<File::Tail> module from CPAN.
+
+=head2 How do I dup() a filehandle in Perl?
+X<dup>
+
+If you check L<perlfunc/open>, you'll see that several of the ways
+to call open() should do the trick. For example:
+
+    open my $log, '>>', '/foo/logfile';
+    open STDERR, '>&', $log;
+
+Or even with a literal numeric descriptor:
+
+    my $fd = $ENV{MHCONTEXTFD};
+    open $mhcontext, "<&=$fd";  # like fdopen(3S)
+
+Note that "<&STDIN" makes a copy, but "<&=STDIN" makes
+an alias. That means if you close an aliased handle, all
+aliases become inaccessible. This is not true with
+a copied one.
+
+Error checking, as always, has been left as an exercise for the reader.
+
+=head2 How do I close a file descriptor by number?
+X<file, closing file descriptors> X<POSIX> X<close>
+
+If, for some reason, you have a file descriptor instead of a
+filehandle (perhaps you used C<POSIX::open>), you can use the
+C<close()> function from the L<POSIX> module:
+
+    use POSIX ();
+
+    POSIX::close( $fd );
+
+This should rarely be necessary, as the Perl C<close()> function is to be
+used for things that Perl opened itself, even if it was a dup of a
+numeric descriptor as with C<MHCONTEXT> above. But if you really have
+to, you may be able to do this:
+
+    require 'sys/syscall.ph';
+    my $rc = syscall(SYS_close(), $fd + 0);  # must force numeric
+    die "can't sysclose $fd: $!" unless $rc == -1;
+
+Or, just use the fdopen(3S) feature of C<open()>:
+
+    {
+        open my $fh, "<&=$fd" or die "Cannot reopen fd=$fd: $!";
+        close $fh;
+    }
+
+=head2 Why can't I use "C:\temp\foo" in DOS paths? Why doesn't `C:\temp\foo.exe` work?
+X<filename, DOS issues>
+
+Whoops!  You just put a tab and a formfeed into that filename!
+Remember that within double quoted strings ("like\this"), the
+backslash is an escape character. The full list of these is in
+L<perlop/Quote and Quote-like Operators>. Unsurprisingly, you don't
+have a file called "c:(tab)emp(formfeed)oo" or
+"c:(tab)emp(formfeed)oo.exe" on your legacy DOS filesystem.
+
+Either single-quote your strings, or (preferably) use forward slashes.
+Since all DOS and Windows versions since something like MS-DOS 2.0 or so
+have treated C</> and C<\> the same in a path, you might as well use the
+one that doesn't clash with Perl--or the POSIX shell, ANSI C and C++,
+awk, Tcl, Java, or Python, just to mention a few. POSIX paths
+are more portable, too.
+
+=head2 Why doesn't glob("*.*") get all the files?
+X<glob>
+
+Because even on non-Unix ports, Perl's glob function follows standard
+Unix globbing semantics. You'll need C<glob("*")> to get all (non-hidden)
+files. This makes glob() portable even to legacy systems. Your
+port may include proprietary globbing functions as well. Check its
+documentation for details.
+
+=head2 Why does Perl let me delete read-only files? Why does C<-i> clobber protected files? Isn't this a bug in Perl?
+
+This is elaborately and painstakingly described in the
+F<file-dir-perms> article in the "Far More Than You Ever Wanted To
+Know" collection in L<http://www.cpan.org/misc/olddoc/FMTEYEWTK.tgz> .
+
+The executive summary: learn how your filesystem works. The
+permissions on a file say what can happen to the data in that file.
+The permissions on a directory say what can happen to the list of
+files in that directory. If you delete a file, you're removing its
+name from the directory (so the operation depends on the permissions
+of the directory, not of the file). If you try to write to the file,
+the permissions of the file govern whether you're allowed to.
+
+=head2 How do I select a random line from a file?
+X<file, selecting a random line>
+
+Short of loading the file into a database or pre-indexing the lines in
+the file, there are a couple of things that you can do.
+
+Here's a reservoir-sampling algorithm from the Camel Book:
+
+    srand;
+    rand($.) < 1 && ($line = $_) while <>;
+
+This has a significant advantage in space over reading the whole file
+in. You can find a proof of this method in I<The Art of Computer
+Programming>, Volume 2, Section 3.4.2, by Donald E. Knuth.
+
+You can use the L<File::Random> module which provides a function
+for that algorithm:
+
+    use File::Random qw/random_line/;
+    my $line = random_line($filename);
+
+Another way is to use the L<Tie::File> module, which treats the entire
+file as an array. Simply access a random array element.
+
+=head2 Why do I get weird spaces when I print an array of lines?
+
+(contributed by brian d foy)
+
+If you are seeing spaces between the elements of your array when
+you print the array, you are probably interpolating the array in
+double quotes:
+
+    my @animals = qw(camel llama alpaca vicuna);
+    print "animals are: @animals\n";
+
+It's the double quotes, not the C<print>, doing this. Whenever you
+interpolate an array in a double quote context, Perl joins the
+elements with spaces (or whatever is in C<$">, which is a space by
+default):
+
+    animals are: camel llama alpaca vicuna
+
+This is different than printing the array without the interpolation:
+
+    my @animals = qw(camel llama alpaca vicuna);
+    print "animals are: ", @animals, "\n";
+
+Now the output doesn't have the spaces between the elements because
+the elements of C<@animals> simply become part of the list to
+C<print>:
+
+    animals are: camelllamaalpacavicuna
+
+You might notice this when each of the elements of C<@array> end with
+a newline. You expect to print one element per line, but notice that
+every line after the first is indented:
+
+    this is a line
+     this is another line
+     this is the third line
+
+That extra space comes from the interpolation of the array. If you
+don't want to put anything between your array elements, don't use the
+array in double quotes. You can send it to print without them:
+
+    print @lines;
+
+=head2 How do I traverse a directory tree?
+
+(contributed by brian d foy)
+
+The L<File::Find> module, which comes with Perl, does all of the hard
+work to traverse a directory structure. It comes with Perl. You simply
+call the C<find> subroutine with a callback subroutine and the
+directories you want to traverse:
+
+    use File::Find;
+
+    find( \&wanted, @directories );
+
+    sub wanted {
+        # full path in $File::Find::name
+        # just filename in $_
+        ... do whatever you want to do ...
+    }
+
+The L<File::Find::Closures>, which you can download from CPAN, provides
+many ready-to-use subroutines that you can use with L<File::Find>.
+
+The L<File::Finder>, which you can download from CPAN, can help you
+create the callback subroutine using something closer to the syntax of
+the C<find> command-line utility:
+
+    use File::Find;
+    use File::Finder;
+
+    my $deep_dirs = File::Finder->depth->type('d')->ls->exec('rmdir','{}');
+
+    find( $deep_dirs->as_options, @places );
+
+The L<File::Find::Rule> module, which you can download from CPAN, has
+a similar interface, but does the traversal for you too:
+
+    use File::Find::Rule;
+
+    my @files = File::Find::Rule->file()
+                             ->name( '*.pm' )
+                             ->in( @INC );
+
+=head2 How do I delete a directory tree?
+
+(contributed by brian d foy)
+
+If you have an empty directory, you can use Perl's built-in C<rmdir>.
+If the directory is not empty (so, no files or subdirectories), you
+either have to empty it yourself (a lot of work) or use a module to
+help you.
+
+The L<File::Path> module, which comes with Perl, has a C<remove_tree>
+which can take care of all of the hard work for you:
+
+    use File::Path qw(remove_tree);
+
+    remove_tree( @directories );
+
+The L<File::Path> module also has a legacy interface to the older
+C<rmtree> subroutine.
+
+=head2 How do I copy an entire directory?
+
+(contributed by Shlomi Fish)
+
+To do the equivalent of C<cp -R> (i.e. copy an entire directory tree
+recursively) in portable Perl, you'll either need to write something yourself
+or find a good CPAN module such as  L<File::Copy::Recursive>.
+
+=head1 AUTHOR AND COPYRIGHT
+
+Copyright (c) 1997-2010 Tom Christiansen, Nathan Torkington, and
+other authors as noted. All rights reserved.
+
+This documentation is free; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+Irrespective of its distribution, all code examples here are in the public
+domain. You are permitted and encouraged to use this code and any
+derivatives thereof in your own programs for fun or for profit as you
+see fit. A simple comment in the code giving credit to the FAQ would
+be courteous but is not required.
diff --git a/lib/5.24.1/pod/perlfaq6.pod b/lib/5.24.1/pod/perlfaq6.pod
new file mode 100644
index 00000000..c889ca4e
--- /dev/null
+++ b/lib/5.24.1/pod/perlfaq6.pod
@@ -0,0 +1,1128 @@
+=head1 NAME
+
+perlfaq6 - Regular Expressions
+
+=head1 VERSION
+
+version 5.021010
+
+=head1 DESCRIPTION
+
+This section is surprisingly small because the rest of the FAQ is
+littered with answers involving regular expressions. For example,
+decoding a URL and checking whether something is a number can be handled
+with regular expressions, but those answers are found elsewhere in
+this document (in L<perlfaq9>: "How do I decode or create those %-encodings
+on the web" and L<perlfaq4>: "How do I determine whether a scalar is
+a number/whole/integer/float", to be precise).
+
+=head2 How can I hope to use regular expressions without creating illegible and unmaintainable code?
+X<regex, legibility> X<regexp, legibility>
+X<regular expression, legibility> X</x>
+
+Three techniques can make regular expressions maintainable and
+understandable.
+
+=over 4
+
+=item Comments Outside the Regex
+
+Describe what you're doing and how you're doing it, using normal Perl
+comments.
+
+    # turn the line into the first word, a colon, and the
+    # number of characters on the rest of the line
+    s/^(\w+)(.*)/ lc($1) . ":" . length($2) /meg;
+
+=item Comments Inside the Regex
+
+The C</x> modifier causes whitespace to be ignored in a regex pattern
+(except in a character class and a few other places), and also allows you to
+use normal comments there, too. As you can imagine, whitespace and comments
+help a lot.
+
+C</x> lets you turn this:
+
+    s{<(?:[^>'"]*|".*?"|'.*?')+>}{}gs;
+
+into this:
+
+    s{ <                    # opening angle bracket
+        (?:                 # Non-backreffing grouping paren
+            [^>'"] *        # 0 or more things that are neither > nor ' nor "
+                |           #    or else
+            ".*?"           # a section between double quotes (stingy match)
+                |           #    or else
+            '.*?'           # a section between single quotes (stingy match)
+        ) +                 #   all occurring one or more times
+        >                   # closing angle bracket
+    }{}gsx;                 # replace with nothing, i.e. delete
+
+It's still not quite so clear as prose, but it is very useful for
+describing the meaning of each part of the pattern.
+
+=item Different Delimiters
+
+While we normally think of patterns as being delimited with C</>
+characters, they can be delimited by almost any character. L<perlre>
+describes this. For example, the C<s///> above uses braces as
+delimiters. Selecting another delimiter can avoid quoting the
+delimiter within the pattern:
+
+    s/\/usr\/local/\/usr\/share/g;    # bad delimiter choice
+    s#/usr/local#/usr/share#g;        # better
+
+Using logically paired delimiters can be even more readable:
+
+    s{/usr/local/}{/usr/share}g;      # better still
+
+=back
+
+=head2 I'm having trouble matching over more than one line. What's wrong?
+X<regex, multiline> X<regexp, multiline> X<regular expression, multiline>
+
+Either you don't have more than one line in the string you're looking
+at (probably), or else you aren't using the correct modifier(s) on
+your pattern (possibly).
+
+There are many ways to get multiline data into a string. If you want
+it to happen automatically while reading input, you'll want to set $/
+(probably to '' for paragraphs or C<undef> for the whole file) to
+allow you to read more than one line at a time.
+
+Read L<perlre> to help you decide which of C</s> and C</m> (or both)
+you might want to use: C</s> allows dot to include newline, and C</m>
+allows caret and dollar to match next to a newline, not just at the
+end of the string. You do need to make sure that you've actually
+got a multiline string in there.
+
+For example, this program detects duplicate words, even when they span
+line breaks (but not paragraph ones). For this example, we don't need
+C</s> because we aren't using dot in a regular expression that we want
+to cross line boundaries. Neither do we need C</m> because we don't
+want caret or dollar to match at any point inside the record next
+to newlines. But it's imperative that $/ be set to something other
+than the default, or else we won't actually ever have a multiline
+record read in.
+
+    $/ = '';          # read in whole paragraph, not just one line
+    while ( <> ) {
+        while ( /\b([\w'-]+)(\s+\g1)+\b/gi ) {     # word starts alpha
+            print "Duplicate $1 at paragraph $.\n";
+        }
+    }
+
+Here's some code that finds sentences that begin with "From " (which would
+be mangled by many mailers):
+
+    $/ = '';          # read in whole paragraph, not just one line
+    while ( <> ) {
+        while ( /^From /gm ) { # /m makes ^ match next to \n
+        print "leading from in paragraph $.\n";
+        }
+    }
+
+Here's code that finds everything between START and END in a paragraph:
+
+    undef $/;          # read in whole file, not just one line or paragraph
+    while ( <> ) {
+        while ( /START(.*?)END/sgm ) { # /s makes . cross line boundaries
+            print "$1\n";
+        }
+    }
+
+=head2 How can I pull out lines between two patterns that are themselves on different lines?
+X<..>
+
+You can use Perl's somewhat exotic C<..> operator (documented in
+L<perlop>):
+
+    perl -ne 'print if /START/ .. /END/' file1 file2 ...
+
+If you wanted text and not lines, you would use
+
+    perl -0777 -ne 'print "$1\n" while /START(.*?)END/gs' file1 file2 ...
+
+But if you want nested occurrences of C<START> through C<END>, you'll
+run up against the problem described in the question in this section
+on matching balanced text.
+
+Here's another example of using C<..>:
+
+    while (<>) {
+        my $in_header =   1  .. /^$/;
+        my $in_body   = /^$/ .. eof;
+    # now choose between them
+    } continue {
+        $. = 0 if eof;    # fix $.
+    }
+
+=head2 How do I match XML, HTML, or other nasty, ugly things with a regex?
+X<regex, XML> X<regex, HTML> X<XML> X<HTML> X<pain> X<frustration>
+X<sucking out, will to live>
+
+Do not use regexes. Use a module and forget about the
+regular expressions. The L<XML::LibXML>, L<HTML::TokeParser> and
+L<HTML::TreeBuilder> modules are good starts, although each namespace
+has other parsing modules specialized for certain tasks and different
+ways of doing it. Start at CPAN Search ( L<http://metacpan.org/> )
+and wonder at all the work people have done for you already! :)
+
+=head2 I put a regular expression into $/ but it didn't work. What's wrong?
+X<$/, regexes in> X<$INPUT_RECORD_SEPARATOR, regexes in>
+X<$RS, regexes in>
+
+$/ has to be a string. You can use these examples if you really need to
+do this.
+
+If you have L<File::Stream>, this is easy.
+
+    use File::Stream;
+
+    my $stream = File::Stream->new(
+        $filehandle,
+        separator => qr/\s*,\s*/,
+        );
+
+    print "$_\n" while <$stream>;
+
+If you don't have File::Stream, you have to do a little more work.
+
+You can use the four-argument form of sysread to continually add to
+a buffer. After you add to the buffer, you check if you have a
+complete line (using your regular expression).
+
+    local $_ = "";
+    while( sysread FH, $_, 8192, length ) {
+        while( s/^((?s).*?)your_pattern// ) {
+            my $record = $1;
+            # do stuff here.
+        }
+    }
+
+You can do the same thing with foreach and a match using the
+c flag and the \G anchor, if you do not mind your entire file
+being in memory at the end.
+
+    local $_ = "";
+    while( sysread FH, $_, 8192, length ) {
+        foreach my $record ( m/\G((?s).*?)your_pattern/gc ) {
+            # do stuff here.
+        }
+        substr( $_, 0, pos ) = "" if pos;
+    }
+
+
+=head2 How do I substitute case-insensitively on the LHS while preserving case on the RHS?
+X<replace, case preserving> X<substitute, case preserving>
+X<substitution, case preserving> X<s, case preserving>
+
+Here's a lovely Perlish solution by Larry Rosler. It exploits
+properties of bitwise xor on ASCII strings.
+
+    $_= "this is a TEsT case";
+
+    $old = 'test';
+    $new = 'success';
+
+    s{(\Q$old\E)}
+    { uc $new | (uc $1 ^ $1) .
+        (uc(substr $1, -1) ^ substr $1, -1) x
+        (length($new) - length $1)
+    }egi;
+
+    print;
+
+And here it is as a subroutine, modeled after the above:
+
+    sub preserve_case {
+        my ($old, $new) = @_;
+        my $mask = uc $old ^ $old;
+
+        uc $new | $mask .
+            substr($mask, -1) x (length($new) - length($old))
+    }
+
+    $string = "this is a TEsT case";
+    $string =~ s/(test)/preserve_case($1, "success")/egi;
+    print "$string\n";
+
+This prints:
+
+    this is a SUcCESS case
+
+As an alternative, to keep the case of the replacement word if it is
+longer than the original, you can use this code, by Jeff Pinyan:
+
+    sub preserve_case {
+        my ($from, $to) = @_;
+        my ($lf, $lt) = map length, @_;
+
+        if ($lt < $lf) { $from = substr $from, 0, $lt }
+        else { $from .= substr $to, $lf }
+
+        return uc $to | ($from ^ uc $from);
+    }
+
+This changes the sentence to "this is a SUcCess case."
+
+Just to show that C programmers can write C in any programming language,
+if you prefer a more C-like solution, the following script makes the
+substitution have the same case, letter by letter, as the original.
+(It also happens to run about 240% slower than the Perlish solution runs.)
+If the substitution has more characters than the string being substituted,
+the case of the last character is used for the rest of the substitution.
+
+    # Original by Nathan Torkington, massaged by Jeffrey Friedl
+    #
+    sub preserve_case
+    {
+        my ($old, $new) = @_;
+        my $state = 0; # 0 = no change; 1 = lc; 2 = uc
+        my ($i, $oldlen, $newlen, $c) = (0, length($old), length($new));
+        my $len = $oldlen < $newlen ? $oldlen : $newlen;
+
+        for ($i = 0; $i < $len; $i++) {
+            if ($c = substr($old, $i, 1), $c =~ /[\W\d_]/) {
+                $state = 0;
+            } elsif (lc $c eq $c) {
+                substr($new, $i, 1) = lc(substr($new, $i, 1));
+                $state = 1;
+            } else {
+                substr($new, $i, 1) = uc(substr($new, $i, 1));
+                $state = 2;
+            }
+        }
+        # finish up with any remaining new (for when new is longer than old)
+        if ($newlen > $oldlen) {
+            if ($state == 1) {
+                substr($new, $oldlen) = lc(substr($new, $oldlen));
+            } elsif ($state == 2) {
+                substr($new, $oldlen) = uc(substr($new, $oldlen));
+            }
+        }
+        return $new;
+    }
+
+=head2 How can I make C<\w> match national character sets?
+X<\w>
+
+Put C<use locale;> in your script. The \w character class is taken
+from the current locale.
+
+See L<perllocale> for details.
+
+=head2 How can I match a locale-smart version of C</[a-zA-Z]/>?
+X<alpha>
+
+You can use the POSIX character class syntax C</[[:alpha:]]/>
+documented in L<perlre>.
+
+No matter which locale you are in, the alphabetic characters are
+the characters in \w without the digits and the underscore.
+As a regex, that looks like C</[^\W\d_]/>. Its complement,
+the non-alphabetics, is then everything in \W along with
+the digits and the underscore, or C</[\W\d_]/>.
+
+=head2 How can I quote a variable to use in a regex?
+X<regex, escaping> X<regexp, escaping> X<regular expression, escaping>
+
+The Perl parser will expand $variable and @variable references in
+regular expressions unless the delimiter is a single quote. Remember,
+too, that the right-hand side of a C<s///> substitution is considered
+a double-quoted string (see L<perlop> for more details). Remember
+also that any regex special characters will be acted on unless you
+precede the substitution with \Q. Here's an example:
+
+    $string = "Placido P. Octopus";
+    $regex  = "P.";
+
+    $string =~ s/$regex/Polyp/;
+    # $string is now "Polypacido P. Octopus"
+
+Because C<.> is special in regular expressions, and can match any
+single character, the regex C<P.> here has matched the <Pl> in the
+original string.
+
+To escape the special meaning of C<.>, we use C<\Q>:
+
+    $string = "Placido P. Octopus";
+    $regex  = "P.";
+
+    $string =~ s/\Q$regex/Polyp/;
+    # $string is now "Placido Polyp Octopus"
+
+The use of C<\Q> causes the <.> in the regex to be treated as a
+regular character, so that C<P.> matches a C<P> followed by a dot.
+
+=head2 What is C</o> really for?
+X</o, regular expressions> X<compile, regular expressions>
+
+(contributed by brian d foy)
+
+The C</o> option for regular expressions (documented in L<perlop> and
+L<perlreref>) tells Perl to compile the regular expression only once.
+This is only useful when the pattern contains a variable. Perls 5.6
+and later handle this automatically if the pattern does not change.
+
+Since the match operator C<m//>, the substitution operator C<s///>,
+and the regular expression quoting operator C<qr//> are double-quotish
+constructs, you can interpolate variables into the pattern. See the
+answer to "How can I quote a variable to use in a regex?" for more
+details.
+
+This example takes a regular expression from the argument list and
+prints the lines of input that match it:
+
+    my $pattern = shift @ARGV;
+
+    while( <> ) {
+        print if m/$pattern/;
+    }
+
+Versions of Perl prior to 5.6 would recompile the regular expression
+for each iteration, even if C<$pattern> had not changed. The C</o>
+would prevent this by telling Perl to compile the pattern the first
+time, then reuse that for subsequent iterations:
+
+    my $pattern = shift @ARGV;
+
+    while( <> ) {
+        print if m/$pattern/o; # useful for Perl < 5.6
+    }
+
+In versions 5.6 and later, Perl won't recompile the regular expression
+if the variable hasn't changed, so you probably don't need the C</o>
+option. It doesn't hurt, but it doesn't help either. If you want any
+version of Perl to compile the regular expression only once even if
+the variable changes (thus, only using its initial value), you still
+need the C</o>.
+
+You can watch Perl's regular expression engine at work to verify for
+yourself if Perl is recompiling a regular expression. The C<use re
+'debug'> pragma (comes with Perl 5.005 and later) shows the details.
+With Perls before 5.6, you should see C<re> reporting that its
+compiling the regular expression on each iteration. With Perl 5.6 or
+later, you should only see C<re> report that for the first iteration.
+
+    use re 'debug';
+
+    my $regex = 'Perl';
+    foreach ( qw(Perl Java Ruby Python) ) {
+        print STDERR "-" x 73, "\n";
+        print STDERR "Trying $_...\n";
+        print STDERR "\t$_ is good!\n" if m/$regex/;
+    }
+
+=head2 How do I use a regular expression to strip C-style comments from a file?
+
+While this actually can be done, it's much harder than you'd think.
+For example, this one-liner
+
+    perl -0777 -pe 's{/\*.*?\*/}{}gs' foo.c
+
+will work in many but not all cases. You see, it's too simple-minded for
+certain kinds of C programs, in particular, those with what appear to be
+comments in quoted strings. For that, you'd need something like this,
+created by Jeffrey Friedl and later modified by Fred Curtis.
+
+    $/ = undef;
+    $_ = <>;
+    s#/\*[^*]*\*+([^/*][^*]*\*+)*/|("(\\.|[^"\\])*"|'(\\.|[^'\\])*'|.[^/"'\\]*)#defined $2 ? $2 : ""#gse;
+    print;
+
+This could, of course, be more legibly written with the C</x> modifier, adding
+whitespace and comments. Here it is expanded, courtesy of Fred Curtis.
+
+    s{
+       /\*         ##  Start of /* ... */ comment
+       [^*]*\*+    ##  Non-* followed by 1-or-more *'s
+       (
+         [^/*][^*]*\*+
+       )*          ##  0-or-more things which don't start with /
+                   ##    but do end with '*'
+       /           ##  End of /* ... */ comment
+
+     |         ##     OR  various things which aren't comments:
+
+       (
+         "           ##  Start of " ... " string
+         (
+           \\.           ##  Escaped char
+         |               ##    OR
+           [^"\\]        ##  Non "\
+         )*
+         "           ##  End of " ... " string
+
+       |         ##     OR
+
+         '           ##  Start of ' ... ' string
+         (
+           \\.           ##  Escaped char
+         |               ##    OR
+           [^'\\]        ##  Non '\
+         )*
+         '           ##  End of ' ... ' string
+
+       |         ##     OR
+
+         .           ##  Anything other char
+         [^/"'\\]*   ##  Chars which doesn't start a comment, string or escape
+       )
+     }{defined $2 ? $2 : ""}gxse;
+
+A slight modification also removes C++ comments, possibly spanning multiple lines
+using a continuation character:
+
+ s#/\*[^*]*\*+([^/*][^*]*\*+)*/|//([^\\]|[^\n][\n]?)*?\n|("(\\.|[^"\\])*"|'(\\.|[^'\\])*'|.[^/"'\\]*)#defined $3 ? $3 : ""#gse;
+
+=head2 Can I use Perl regular expressions to match balanced text?
+X<regex, matching balanced test> X<regexp, matching balanced test>
+X<regular expression, matching balanced test> X<possessive> X<PARNO>
+X<Text::Balanced> X<Regexp::Common> X<backtracking> X<recursion>
+
+(contributed by brian d foy)
+
+Your first try should probably be the L<Text::Balanced> module, which
+is in the Perl standard library since Perl 5.8. It has a variety of
+functions to deal with tricky text. The L<Regexp::Common> module can
+also help by providing canned patterns you can use.
+
+As of Perl 5.10, you can match balanced text with regular expressions
+using recursive patterns. Before Perl 5.10, you had to resort to
+various tricks such as using Perl code in C<(??{})> sequences.
+
+Here's an example using a recursive regular expression. The goal is to
+capture all of the text within angle brackets, including the text in
+nested angle brackets. This sample text has two "major" groups: a
+group with one level of nesting and a group with two levels of
+nesting. There are five total groups in angle brackets:
+
+    I have some <brackets in <nested brackets> > and
+    <another group <nested once <nested twice> > >
+    and that's it.
+
+The regular expression to match the balanced text uses two new (to
+Perl 5.10) regular expression features. These are covered in L<perlre>
+and this example is a modified version of one in that documentation.
+
+First, adding the new possessive C<+> to any quantifier finds the
+longest match and does not backtrack. That's important since you want
+to handle any angle brackets through the recursion, not backtracking.
+The group C<< [^<>]++ >> finds one or more non-angle brackets without
+backtracking.
+
+Second, the new C<(?PARNO)> refers to the sub-pattern in the
+particular capture group given by C<PARNO>. In the following regex,
+the first capture group finds (and remembers) the balanced text, and
+you need that same pattern within the first buffer to get past the
+nested text. That's the recursive part. The C<(?1)> uses the pattern
+in the outer capture group as an independent part of the regex.
+
+Putting it all together, you have:
+
+    #!/usr/local/bin/perl5.10.0
+
+    my $string =<<"HERE";
+    I have some <brackets in <nested brackets> > and
+    <another group <nested once <nested twice> > >
+    and that's it.
+    HERE
+
+    my @groups = $string =~ m/
+            (                   # start of capture group 1
+            <                   # match an opening angle bracket
+                (?:
+                    [^<>]++     # one or more non angle brackets, non backtracking
+                      |
+                    (?1)        # found < or >, so recurse to capture group 1
+                )*
+            >                   # match a closing angle bracket
+            )                   # end of capture group 1
+            /xg;
+
+    $" = "\n\t";
+    print "Found:\n\t@groups\n";
+
+The output shows that Perl found the two major groups:
+
+    Found:
+        <brackets in <nested brackets> >
+        <another group <nested once <nested twice> > >
+
+With a little extra work, you can get all of the groups in angle
+brackets even if they are in other angle brackets too. Each time you
+get a balanced match, remove its outer delimiter (that's the one you
+just matched so don't match it again) and add it to a queue of strings
+to process. Keep doing that until you get no matches:
+
+    #!/usr/local/bin/perl5.10.0
+
+    my @queue =<<"HERE";
+    I have some <brackets in <nested brackets> > and
+    <another group <nested once <nested twice> > >
+    and that's it.
+    HERE
+
+    my $regex = qr/
+            (                   # start of bracket 1
+            <                   # match an opening angle bracket
+                (?:
+                    [^<>]++     # one or more non angle brackets, non backtracking
+                      |
+                    (?1)        # recurse to bracket 1
+                )*
+            >                   # match a closing angle bracket
+            )                   # end of bracket 1
+            /x;
+
+    $" = "\n\t";
+
+    while( @queue ) {
+        my $string = shift @queue;
+
+        my @groups = $string =~ m/$regex/g;
+        print "Found:\n\t@groups\n\n" if @groups;
+
+        unshift @queue, map { s/^<//; s/>$//; $_ } @groups;
+    }
+
+The output shows all of the groups. The outermost matches show up
+first and the nested matches show up later:
+
+    Found:
+        <brackets in <nested brackets> >
+        <another group <nested once <nested twice> > >
+
+    Found:
+        <nested brackets>
+
+    Found:
+        <nested once <nested twice> >
+
+    Found:
+        <nested twice>
+
+=head2 What does it mean that regexes are greedy? How can I get around it?
+X<greedy> X<greediness>
+
+Most people mean that greedy regexes match as much as they can.
+Technically speaking, it's actually the quantifiers (C<?>, C<*>, C<+>,
+C<{}>) that are greedy rather than the whole pattern; Perl prefers local
+greed and immediate gratification to overall greed. To get non-greedy
+versions of the same quantifiers, use (C<??>, C<*?>, C<+?>, C<{}?>).
+
+An example:
+
+    my $s1 = my $s2 = "I am very very cold";
+    $s1 =~ s/ve.*y //;      # I am cold
+    $s2 =~ s/ve.*?y //;     # I am very cold
+
+Notice how the second substitution stopped matching as soon as it
+encountered "y ". The C<*?> quantifier effectively tells the regular
+expression engine to find a match as quickly as possible and pass
+control on to whatever is next in line, as you would if you were
+playing hot potato.
+
+=head2 How do I process each word on each line?
+X<word>
+
+Use the split function:
+
+    while (<>) {
+        foreach my $word ( split ) {
+            # do something with $word here
+        }
+    }
+
+Note that this isn't really a word in the English sense; it's just
+chunks of consecutive non-whitespace characters.
+
+To work with only alphanumeric sequences (including underscores), you
+might consider
+
+    while (<>) {
+        foreach $word (m/(\w+)/g) {
+            # do something with $word here
+        }
+    }
+
+=head2 How can I print out a word-frequency or line-frequency summary?
+
+To do this, you have to parse out each word in the input stream. We'll
+pretend that by word you mean chunk of alphabetics, hyphens, or
+apostrophes, rather than the non-whitespace chunk idea of a word given
+in the previous question:
+
+    my (%seen);
+    while (<>) {
+        while ( /(\b[^\W_\d][\w'-]+\b)/g ) {   # misses "`sheep'"
+            $seen{$1}++;
+        }
+    }
+
+    while ( my ($word, $count) = each %seen ) {
+        print "$count $word\n";
+    }
+
+If you wanted to do the same thing for lines, you wouldn't need a
+regular expression:
+
+    my (%seen);
+
+    while (<>) {
+        $seen{$_}++;
+    }
+
+    while ( my ($line, $count) = each %seen ) {
+        print "$count $line";
+    }
+
+If you want these output in a sorted order, see L<perlfaq4>: "How do I
+sort a hash (optionally by value instead of key)?".
+
+=head2 How can I do approximate matching?
+X<match, approximate> X<matching, approximate>
+
+See the module L<String::Approx> available from CPAN.
+
+=head2 How do I efficiently match many regular expressions at once?
+X<regex, efficiency> X<regexp, efficiency>
+X<regular expression, efficiency>
+
+(contributed by brian d foy)
+
+If you have Perl 5.10 or later, this is almost trivial. You just smart
+match against an array of regular expression objects:
+
+    my @patterns = ( qr/Fr.d/, qr/B.rn.y/, qr/W.lm./ );
+
+    if( $string ~~ @patterns ) {
+        ...
+    };
+
+The smart match stops when it finds a match, so it doesn't have to try
+every expression.
+
+Earlier than Perl 5.10, you have a bit of work to do. You want to
+avoid compiling a regular expression every time you want to match it.
+In this example, perl must recompile the regular expression for every
+iteration of the C<foreach> loop since it has no way to know what
+C<$pattern> will be:
+
+    my @patterns = qw( foo bar baz );
+
+    LINE: while( <DATA> ) {
+        foreach $pattern ( @patterns ) {
+            if( /\b$pattern\b/i ) {
+                print;
+                next LINE;
+            }
+        }
+    }
+
+The C<qr//> operator showed up in perl 5.005. It compiles a regular
+expression, but doesn't apply it. When you use the pre-compiled
+version of the regex, perl does less work. In this example, I inserted
+a C<map> to turn each pattern into its pre-compiled form. The rest of
+the script is the same, but faster:
+
+    my @patterns = map { qr/\b$_\b/i } qw( foo bar baz );
+
+    LINE: while( <> ) {
+        foreach $pattern ( @patterns ) {
+            if( /$pattern/ ) {
+                print;
+                next LINE;
+            }
+        }
+    }
+
+In some cases, you may be able to make several patterns into a single
+regular expression. Beware of situations that require backtracking
+though.
+
+    my $regex = join '|', qw( foo bar baz );
+
+    LINE: while( <> ) {
+        print if /\b(?:$regex)\b/i;
+    }
+
+For more details on regular expression efficiency, see I<Mastering
+Regular Expressions> by Jeffrey Friedl. He explains how the regular
+expressions engine works and why some patterns are surprisingly
+inefficient. Once you understand how perl applies regular expressions,
+you can tune them for individual situations.
+
+=head2 Why don't word-boundary searches with C<\b> work for me?
+X<\b>
+
+(contributed by brian d foy)
+
+Ensure that you know what \b really does: it's the boundary between a
+word character, \w, and something that isn't a word character. That
+thing that isn't a word character might be \W, but it can also be the
+start or end of the string.
+
+It's not (not!) the boundary between whitespace and non-whitespace,
+and it's not the stuff between words we use to create sentences.
+
+In regex speak, a word boundary (\b) is a "zero width assertion",
+meaning that it doesn't represent a character in the string, but a
+condition at a certain position.
+
+For the regular expression, /\bPerl\b/, there has to be a word
+boundary before the "P" and after the "l". As long as something other
+than a word character precedes the "P" and succeeds the "l", the
+pattern will match. These strings match /\bPerl\b/.
+
+    "Perl"    # no word char before P or after l
+    "Perl "   # same as previous (space is not a word char)
+    "'Perl'"  # the ' char is not a word char
+    "Perl's"  # no word char before P, non-word char after "l"
+
+These strings do not match /\bPerl\b/.
+
+    "Perl_"   # _ is a word char!
+    "Perler"  # no word char before P, but one after l
+
+You don't have to use \b to match words though. You can look for
+non-word characters surrounded by word characters. These strings
+match the pattern /\b'\b/.
+
+    "don't"   # the ' char is surrounded by "n" and "t"
+    "qep'a'"  # the ' char is surrounded by "p" and "a"
+
+These strings do not match /\b'\b/.
+
+    "foo'"    # there is no word char after non-word '
+
+You can also use the complement of \b, \B, to specify that there
+should not be a word boundary.
+
+In the pattern /\Bam\B/, there must be a word character before the "a"
+and after the "m". These patterns match /\Bam\B/:
+
+    "llama"   # "am" surrounded by word chars
+    "Samuel"  # same
+
+These strings do not match /\Bam\B/
+
+    "Sam"      # no word boundary before "a", but one after "m"
+    "I am Sam" # "am" surrounded by non-word chars
+
+
+=head2 Why does using $&, $`, or $' slow my program down?
+X<$MATCH> X<$&> X<$POSTMATCH> X<$'> X<$PREMATCH> X<$`>
+
+(contributed by Anno Siegel)
+
+Once Perl sees that you need one of these variables anywhere in the
+program, it provides them on each and every pattern match. That means
+that on every pattern match the entire string will be copied, part of it
+to $`, part to $&, and part to $'. Thus the penalty is most severe with
+long strings and patterns that match often. Avoid $&, $', and $` if you
+can, but if you can't, once you've used them at all, use them at will
+because you've already paid the price. Remember that some algorithms
+really appreciate them. As of the 5.005 release, the $& variable is no
+longer "expensive" the way the other two are.
+
+Since Perl 5.6.1 the special variables @- and @+ can functionally replace
+$`, $& and $'. These arrays contain pointers to the beginning and end
+of each match (see perlvar for the full story), so they give you
+essentially the same information, but without the risk of excessive
+string copying.
+
+Perl 5.10 added three specials, C<${^MATCH}>, C<${^PREMATCH}>, and
+C<${^POSTMATCH}> to do the same job but without the global performance
+penalty. Perl 5.10 only sets these variables if you compile or execute the
+regular expression with the C</p> modifier.
+
+=head2 What good is C<\G> in a regular expression?
+X<\G>
+
+You use the C<\G> anchor to start the next match on the same
+string where the last match left off. The regular
+expression engine cannot skip over any characters to find
+the next match with this anchor, so C<\G> is similar to the
+beginning of string anchor, C<^>. The C<\G> anchor is typically
+used with the C<g> flag. It uses the value of C<pos()>
+as the position to start the next match. As the match
+operator makes successive matches, it updates C<pos()> with the
+position of the next character past the last match (or the
+first character of the next match, depending on how you like
+to look at it). Each string has its own C<pos()> value.
+
+Suppose you want to match all of consecutive pairs of digits
+in a string like "1122a44" and stop matching when you
+encounter non-digits. You want to match C<11> and C<22> but
+the letter <a> shows up between C<22> and C<44> and you want
+to stop at C<a>. Simply matching pairs of digits skips over
+the C<a> and still matches C<44>.
+
+    $_ = "1122a44";
+    my @pairs = m/(\d\d)/g;   # qw( 11 22 44 )
+
+If you use the C<\G> anchor, you force the match after C<22> to
+start with the C<a>. The regular expression cannot match
+there since it does not find a digit, so the next match
+fails and the match operator returns the pairs it already
+found.
+
+    $_ = "1122a44";
+    my @pairs = m/\G(\d\d)/g; # qw( 11 22 )
+
+You can also use the C<\G> anchor in scalar context. You
+still need the C<g> flag.
+
+    $_ = "1122a44";
+    while( m/\G(\d\d)/g ) {
+        print "Found $1\n";
+    }
+
+After the match fails at the letter C<a>, perl resets C<pos()>
+and the next match on the same string starts at the beginning.
+
+    $_ = "1122a44";
+    while( m/\G(\d\d)/g ) {
+        print "Found $1\n";
+    }
+
+    print "Found $1 after while" if m/(\d\d)/g; # finds "11"
+
+You can disable C<pos()> resets on fail with the C<c> flag, documented
+in L<perlop> and L<perlreref>. Subsequent matches start where the last
+successful match ended (the value of C<pos()>) even if a match on the
+same string has failed in the meantime. In this case, the match after
+the C<while()> loop starts at the C<a> (where the last match stopped),
+and since it does not use any anchor it can skip over the C<a> to find
+C<44>.
+
+    $_ = "1122a44";
+    while( m/\G(\d\d)/gc ) {
+        print "Found $1\n";
+    }
+
+    print "Found $1 after while" if m/(\d\d)/g; # finds "44"
+
+Typically you use the C<\G> anchor with the C<c> flag
+when you want to try a different match if one fails,
+such as in a tokenizer. Jeffrey Friedl offers this example
+which works in 5.004 or later.
+
+    while (<>) {
+        chomp;
+        PARSER: {
+            m/ \G( \d+\b    )/gcx   && do { print "number: $1\n";  redo; };
+            m/ \G( \w+      )/gcx   && do { print "word:   $1\n";  redo; };
+            m/ \G( \s+      )/gcx   && do { print "space:  $1\n";  redo; };
+            m/ \G( [^\w\d]+ )/gcx   && do { print "other:  $1\n";  redo; };
+        }
+    }
+
+For each line, the C<PARSER> loop first tries to match a series
+of digits followed by a word boundary. This match has to
+start at the place the last match left off (or the beginning
+of the string on the first match). Since C<m/ \G( \d+\b
+)/gcx> uses the C<c> flag, if the string does not match that
+regular expression, perl does not reset pos() and the next
+match starts at the same position to try a different
+pattern.
+
+=head2 Are Perl regexes DFAs or NFAs? Are they POSIX compliant?
+X<DFA> X<NFA> X<POSIX>
+
+While it's true that Perl's regular expressions resemble the DFAs
+(deterministic finite automata) of the egrep(1) program, they are in
+fact implemented as NFAs (non-deterministic finite automata) to allow
+backtracking and backreferencing. And they aren't POSIX-style either,
+because those guarantee worst-case behavior for all cases. (It seems
+that some people prefer guarantees of consistency, even when what's
+guaranteed is slowness.) See the book "Mastering Regular Expressions"
+(from O'Reilly) by Jeffrey Friedl for all the details you could ever
+hope to know on these matters (a full citation appears in
+L<perlfaq2>).
+
+=head2 What's wrong with using grep in a void context?
+X<grep>
+
+The problem is that grep builds a return list, regardless of the context.
+This means you're making Perl go to the trouble of building a list that
+you then just throw away. If the list is large, you waste both time and space.
+If your intent is to iterate over the list, then use a for loop for this
+purpose.
+
+In perls older than 5.8.1, map suffers from this problem as well.
+But since 5.8.1, this has been fixed, and map is context aware - in void
+context, no lists are constructed.
+
+=head2 How can I match strings with multibyte characters?
+X<regex, and multibyte characters> X<regexp, and multibyte characters>
+X<regular expression, and multibyte characters> X<martian> X<encoding, Martian>
+
+Starting from Perl 5.6 Perl has had some level of multibyte character
+support. Perl 5.8 or later is recommended. Supported multibyte
+character repertoires include Unicode, and legacy encodings
+through the Encode module. See L<perluniintro>, L<perlunicode>,
+and L<Encode>.
+
+If you are stuck with older Perls, you can do Unicode with the
+L<Unicode::String> module, and character conversions using the
+L<Unicode::Map8> and L<Unicode::Map> modules. If you are using
+Japanese encodings, you might try using the jperl 5.005_03.
+
+Finally, the following set of approaches was offered by Jeffrey
+Friedl, whose article in issue #5 of The Perl Journal talks about
+this very matter.
+
+Let's suppose you have some weird Martian encoding where pairs of
+ASCII uppercase letters encode single Martian letters (i.e. the two
+bytes "CV" make a single Martian letter, as do the two bytes "SG",
+"VS", "XX", etc.). Other bytes represent single characters, just like
+ASCII.
+
+So, the string of Martian "I am CVSGXX!" uses 12 bytes to encode the
+nine characters 'I', ' ', 'a', 'm', ' ', 'CV', 'SG', 'XX', '!'.
+
+Now, say you want to search for the single character C</GX/>. Perl
+doesn't know about Martian, so it'll find the two bytes "GX" in the "I
+am CVSGXX!" string, even though that character isn't there: it just
+looks like it is because "SG" is next to "XX", but there's no real
+"GX". This is a big problem.
+
+Here are a few ways, all painful, to deal with it:
+
+    # Make sure adjacent "martian" bytes are no longer adjacent.
+    $martian =~ s/([A-Z][A-Z])/ $1 /g;
+
+    print "found GX!\n" if $martian =~ /GX/;
+
+Or like this:
+
+    my @chars = $martian =~ m/([A-Z][A-Z]|[^A-Z])/g;
+    # above is conceptually similar to:     my @chars = $text =~ m/(.)/g;
+    #
+    foreach my $char (@chars) {
+        print "found GX!\n", last if $char eq 'GX';
+    }
+
+Or like this:
+
+    while ($martian =~ m/\G([A-Z][A-Z]|.)/gs) {  # \G probably unneeded
+        if ($1 eq 'GX') {
+            print "found GX!\n";
+            last;
+        }
+    }
+
+Here's another, slightly less painful, way to do it from Benjamin
+Goldberg, who uses a zero-width negative look-behind assertion.
+
+    print "found GX!\n" if    $martian =~ m/
+        (?<![A-Z])
+        (?:[A-Z][A-Z])*?
+        GX
+        /x;
+
+This succeeds if the "martian" character GX is in the string, and fails
+otherwise. If you don't like using (?<!), a zero-width negative
+look-behind assertion, you can replace (?<![A-Z]) with (?:^|[^A-Z]).
+
+It does have the drawback of putting the wrong thing in $-[0] and $+[0],
+but this usually can be worked around.
+
+=head2 How do I match a regular expression that's in a variable?
+X<regex, in variable> X<eval> X<regex> X<quotemeta> X<\Q, regex>
+X<\E, regex> X<qr//>
+
+(contributed by brian d foy)
+
+We don't have to hard-code patterns into the match operator (or
+anything else that works with regular expressions). We can put the
+pattern in a variable for later use.
+
+The match operator is a double quote context, so you can interpolate
+your variable just like a double quoted string. In this case, you
+read the regular expression as user input and store it in C<$regex>.
+Once you have the pattern in C<$regex>, you use that variable in the
+match operator.
+
+    chomp( my $regex = <STDIN> );
+
+    if( $string =~ m/$regex/ ) { ... }
+
+Any regular expression special characters in C<$regex> are still
+special, and the pattern still has to be valid or Perl will complain.
+For instance, in this pattern there is an unpaired parenthesis.
+
+    my $regex = "Unmatched ( paren";
+
+    "Two parens to bind them all" =~ m/$regex/;
+
+When Perl compiles the regular expression, it treats the parenthesis
+as the start of a memory match. When it doesn't find the closing
+parenthesis, it complains:
+
+    Unmatched ( in regex; marked by <-- HERE in m/Unmatched ( <-- HERE  paren/ at script line 3.
+
+You can get around this in several ways depending on our situation.
+First, if you don't want any of the characters in the string to be
+special, you can escape them with C<quotemeta> before you use the string.
+
+    chomp( my $regex = <STDIN> );
+    $regex = quotemeta( $regex );
+
+    if( $string =~ m/$regex/ ) { ... }
+
+You can also do this directly in the match operator using the C<\Q>
+and C<\E> sequences. The C<\Q> tells Perl where to start escaping
+special characters, and the C<\E> tells it where to stop (see L<perlop>
+for more details).
+
+    chomp( my $regex = <STDIN> );
+
+    if( $string =~ m/\Q$regex\E/ ) { ... }
+
+Alternately, you can use C<qr//>, the regular expression quote operator (see
+L<perlop> for more details). It quotes and perhaps compiles the pattern,
+and you can apply regular expression flags to the pattern.
+
+    chomp( my $input = <STDIN> );
+
+    my $regex = qr/$input/is;
+
+    $string =~ m/$regex/  # same as m/$input/is;
+
+You might also want to trap any errors by wrapping an C<eval> block
+around the whole thing.
+
+    chomp( my $input = <STDIN> );
+
+    eval {
+        if( $string =~ m/\Q$input\E/ ) { ... }
+    };
+    warn $@ if $@;
+
+Or...
+
+    my $regex = eval { qr/$input/is };
+    if( defined $regex ) {
+        $string =~ m/$regex/;
+    }
+    else {
+        warn $@;
+    }
+
+=head1 AUTHOR AND COPYRIGHT
+
+Copyright (c) 1997-2010 Tom Christiansen, Nathan Torkington, and
+other authors as noted. All rights reserved.
+
+This documentation is free; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+Irrespective of its distribution, all code examples in this file
+are hereby placed into the public domain. You are permitted and
+encouraged to use this code in your own programs for fun
+or for profit as you see fit. A simple comment in the code giving
+credit would be courteous but is not required.
diff --git a/lib/5.24.1/pod/perlfaq7.pod b/lib/5.24.1/pod/perlfaq7.pod
new file mode 100644
index 00000000..fb677365
--- /dev/null
+++ b/lib/5.24.1/pod/perlfaq7.pod
@@ -0,0 +1,1089 @@
+=head1 NAME
+
+perlfaq7 - General Perl Language Issues
+
+=head1 VERSION
+
+version 5.021010
+
+=head1 DESCRIPTION
+
+This section deals with general Perl language issues that don't
+clearly fit into any of the other sections.
+
+=head2 Can I get a BNF/yacc/RE for the Perl language?
+
+There is no BNF, but you can paw your way through the yacc grammar in
+perly.y in the source distribution if you're particularly brave. The
+grammar relies on very smart tokenizing code, so be prepared to
+venture into toke.c as well.
+
+In the words of Chaim Frenkel: "Perl's grammar can not be reduced to BNF.
+The work of parsing perl is distributed between yacc, the lexer, smoke
+and mirrors."
+
+=head2 What are all these $@%&* punctuation signs, and how do I know when to use them?
+
+They are type specifiers, as detailed in L<perldata>:
+
+    $ for scalar values (number, string or reference)
+    @ for arrays
+    % for hashes (associative arrays)
+    & for subroutines (aka functions, procedures, methods)
+    * for all types of that symbol name. In version 4 you used them like
+      pointers, but in modern perls you can just use references.
+
+There are a couple of other symbols that
+you're likely to encounter that aren't
+really type specifiers:
+
+    <> are used for inputting a record from a filehandle.
+    \  takes a reference to something.
+
+Note that <FILE> is I<neither> the type specifier for files
+nor the name of the handle. It is the C<< <> >> operator applied
+to the handle FILE. It reads one line (well, record--see
+L<perlvar/$E<sol>>) from the handle FILE in scalar context, or I<all> lines
+in list context. When performing open, close, or any other operation
+besides C<< <> >> on files, or even when talking about the handle, do
+I<not> use the brackets. These are correct: C<eof(FH)>, C<seek(FH, 0,
+2)> and "copying from STDIN to FILE".
+
+=head2 Do I always/never have to quote my strings or use semicolons and commas?
+
+Normally, a bareword doesn't need to be quoted, but in most cases
+probably should be (and must be under C<use strict>). But a hash key
+consisting of a simple word and the left-hand
+operand to the C<< => >> operator both
+count as though they were quoted:
+
+    This                    is like this
+    ------------            ---------------
+    $foo{line}              $foo{'line'}
+    bar => stuff            'bar' => stuff
+
+The final semicolon in a block is optional, as is the final comma in a
+list. Good style (see L<perlstyle>) says to put them in except for
+one-liners:
+
+    if ($whoops) { exit 1 }
+    my @nums = (1, 2, 3);
+
+    if ($whoops) {
+        exit 1;
+    }
+
+    my @lines = (
+        "There Beren came from mountains cold",
+        "And lost he wandered under leaves",
+    );
+
+=head2 How do I skip some return values?
+
+One way is to treat the return values as a list and index into it:
+
+    $dir = (getpwnam($user))[7];
+
+Another way is to use undef as an element on the left-hand-side:
+
+    ($dev, $ino, undef, undef, $uid, $gid) = stat($file);
+
+You can also use a list slice to select only the elements that
+you need:
+
+    ($dev, $ino, $uid, $gid) = ( stat($file) )[0,1,4,5];
+
+=head2 How do I temporarily block warnings?
+
+If you are running Perl 5.6.0 or better, the C<use warnings> pragma
+allows fine control of what warnings are produced.
+See L<perllexwarn> for more details.
+
+    {
+        no warnings;          # temporarily turn off warnings
+        $x = $y + $z;         # I know these might be undef
+    }
+
+Additionally, you can enable and disable categories of warnings.
+You turn off the categories you want to ignore and you can still
+get other categories of warnings. See L<perllexwarn> for the
+complete details, including the category names and hierarchy.
+
+    {
+        no warnings 'uninitialized';
+        $x = $y + $z;
+    }
+
+If you have an older version of Perl, the C<$^W> variable (documented
+in L<perlvar>) controls runtime warnings for a block:
+
+    {
+        local $^W = 0;        # temporarily turn off warnings
+        $x = $y + $z;         # I know these might be undef
+    }
+
+Note that like all the punctuation variables, you cannot currently
+use my() on C<$^W>, only local().
+
+=head2 What's an extension?
+
+An extension is a way of calling compiled C code from Perl. Reading
+L<perlxstut> is a good place to learn more about extensions.
+
+=head2 Why do Perl operators have different precedence than C operators?
+
+Actually, they don't. All C operators that Perl copies have the same
+precedence in Perl as they do in C. The problem is with operators that C
+doesn't have, especially functions that give a list context to everything
+on their right, eg. print, chmod, exec, and so on. Such functions are
+called "list operators" and appear as such in the precedence table in
+L<perlop>.
+
+A common mistake is to write:
+
+    unlink $file || die "snafu";
+
+This gets interpreted as:
+
+    unlink ($file || die "snafu");
+
+To avoid this problem, either put in extra parentheses or use the
+super low precedence C<or> operator:
+
+    (unlink $file) || die "snafu";
+    unlink $file or die "snafu";
+
+The "English" operators (C<and>, C<or>, C<xor>, and C<not>)
+deliberately have precedence lower than that of list operators for
+just such situations as the one above.
+
+Another operator with surprising precedence is exponentiation. It
+binds more tightly even than unary minus, making C<-2**2> produce a
+negative four and not a positive one. It is also right-associating, meaning
+that C<2**3**2> is two raised to the ninth power, not eight squared.
+
+Although it has the same precedence as in C, Perl's C<?:> operator
+produces an lvalue. This assigns $x to either $if_true or $if_false, depending
+on the trueness of $maybe:
+
+    ($maybe ? $if_true : $if_false) = $x;
+
+=head2 How do I declare/create a structure?
+
+In general, you don't "declare" a structure. Just use a (probably
+anonymous) hash reference. See L<perlref> and L<perldsc> for details.
+Here's an example:
+
+    $person = {};                   # new anonymous hash
+    $person->{AGE}  = 24;           # set field AGE to 24
+    $person->{NAME} = "Nat";        # set field NAME to "Nat"
+
+If you're looking for something a bit more rigorous, try L<perlootut>.
+
+=head2 How do I create a module?
+
+L<perlnewmod> is a good place to start, ignore the bits
+about uploading to CPAN if you don't want to make your
+module publicly available.
+
+L<ExtUtils::ModuleMaker> and L<Module::Starter> are also
+good places to start. Many CPAN authors now use L<Dist::Zilla>
+to automate as much as possible.
+
+Detailed documentation about modules can be found at:
+L<perlmod>, L<perlmodlib>, L<perlmodstyle>.
+
+If you need to include C code or C library interfaces
+use h2xs. h2xs will create the module distribution structure
+and the initial interface files.
+L<perlxs> and L<perlxstut> explain the details.
+
+=head2 How do I adopt or take over a module already on CPAN?
+
+Ask the current maintainer to make you a co-maintainer or
+transfer the module to you.
+
+If you can not reach the author for some reason contact
+the PAUSE admins at modules@perl.org who may be able to help,
+but each case is treated separately.
+
+=over 4
+
+=item *
+
+Get a login for the Perl Authors Upload Server (PAUSE) if you don't
+already have one: L<http://pause.perl.org>
+
+=item *
+
+Write to modules@perl.org explaining what you did to contact the
+current maintainer. The PAUSE admins will also try to reach the
+maintainer.
+
+=item *
+
+Post a public message in a heavily trafficked site announcing your
+intention to take over the module.
+
+=item *
+
+Wait a bit. The PAUSE admins don't want to act too quickly in case
+the current maintainer is on holiday. If there's no response to
+private communication or the public post, a PAUSE admin can transfer
+it to you.
+
+=back
+
+=head2 How do I create a class?
+X<class, creation> X<package>
+
+(contributed by brian d foy)
+
+In Perl, a class is just a package, and methods are just subroutines.
+Perl doesn't get more formal than that and lets you set up the package
+just the way that you like it (that is, it doesn't set up anything for
+you).
+
+See also L<perlootut>, a tutorial that covers class creation, and L<perlobj>.
+
+=head2 How can I tell if a variable is tainted?
+
+You can use the tainted() function of the Scalar::Util module, available
+from CPAN (or included with Perl since release 5.8.0).
+See also L<perlsec/"Laundering and Detecting Tainted Data">.
+
+=head2 What's a closure?
+
+Closures are documented in L<perlref>.
+
+I<Closure> is a computer science term with a precise but
+hard-to-explain meaning. Usually, closures are implemented in Perl as
+anonymous subroutines with lasting references to lexical variables
+outside their own scopes. These lexicals magically refer to the
+variables that were around when the subroutine was defined (deep
+binding).
+
+Closures are most often used in programming languages where you can
+have the return value of a function be itself a function, as you can
+in Perl. Note that some languages provide anonymous functions but are
+not capable of providing proper closures: the Python language, for
+example. For more information on closures, check out any textbook on
+functional programming. Scheme is a language that not only supports
+but encourages closures.
+
+Here's a classic non-closure function-generating function:
+
+    sub add_function_generator {
+        return sub { shift() + shift() };
+    }
+
+    my $add_sub = add_function_generator();
+    my $sum = $add_sub->(4,5);                # $sum is 9 now.
+
+The anonymous subroutine returned by add_function_generator() isn't
+technically a closure because it refers to no lexicals outside its own
+scope. Using a closure gives you a I<function template> with some
+customization slots left out to be filled later.
+
+Contrast this with the following make_adder() function, in which the
+returned anonymous function contains a reference to a lexical variable
+outside the scope of that function itself. Such a reference requires
+that Perl return a proper closure, thus locking in for all time the
+value that the lexical had when the function was created.
+
+    sub make_adder {
+        my $addpiece = shift;
+        return sub { shift() + $addpiece };
+    }
+
+    my $f1 = make_adder(20);
+    my $f2 = make_adder(555);
+
+Now C<< $f1->($n) >> is always 20 plus whatever $n you pass in, whereas
+C<< $f2->($n) >> is always 555 plus whatever $n you pass in. The $addpiece
+in the closure sticks around.
+
+Closures are often used for less esoteric purposes. For example, when
+you want to pass in a bit of code into a function:
+
+    my $line;
+    timeout( 30, sub { $line = <STDIN> } );
+
+If the code to execute had been passed in as a string,
+C<< '$line = <STDIN>' >>, there would have been no way for the
+hypothetical timeout() function to access the lexical variable
+$line back in its caller's scope.
+
+Another use for a closure is to make a variable I<private> to a
+named subroutine, e.g. a counter that gets initialized at creation
+time of the sub and can only be modified from within the sub.
+This is sometimes used with a BEGIN block in package files to make
+sure a variable doesn't get meddled with during the lifetime of the
+package:
+
+    BEGIN {
+        my $id = 0;
+        sub next_id { ++$id }
+    }
+
+This is discussed in more detail in L<perlsub>; see the entry on
+I<Persistent Private Variables>.
+
+=head2 What is variable suicide and how can I prevent it?
+
+This problem was fixed in perl 5.004_05, so preventing it means upgrading
+your version of perl. ;)
+
+Variable suicide is when you (temporarily or permanently) lose the value
+of a variable. It is caused by scoping through my() and local()
+interacting with either closures or aliased foreach() iterator variables
+and subroutine arguments. It used to be easy to inadvertently lose a
+variable's value this way, but now it's much harder. Take this code:
+
+    my $f = 'foo';
+    sub T {
+        while ($i++ < 3) { my $f = $f; $f .= "bar"; print $f, "\n" }
+    }
+
+    T;
+    print "Finally $f\n";
+
+If you are experiencing variable suicide, that C<my $f> in the subroutine
+doesn't pick up a fresh copy of the C<$f> whose value is C<'foo'>. The
+output shows that inside the subroutine the value of C<$f> leaks through
+when it shouldn't, as in this output:
+
+    foobar
+    foobarbar
+    foobarbarbar
+    Finally foo
+
+The $f that has "bar" added to it three times should be a new C<$f>
+C<my $f> should create a new lexical variable each time through the loop.
+The expected output is:
+
+    foobar
+    foobar
+    foobar
+    Finally foo
+
+=head2 How can I pass/return a {Function, FileHandle, Array, Hash, Method, Regex}?
+
+You need to pass references to these objects. See L<perlsub/"Pass by
+Reference"> for this particular question, and L<perlref> for
+information on references.
+
+=over 4
+
+=item Passing Variables and Functions
+
+Regular variables and functions are quite easy to pass: just pass in a
+reference to an existing or anonymous variable or function:
+
+    func( \$some_scalar );
+
+    func( \@some_array  );
+    func( [ 1 .. 10 ]   );
+
+    func( \%some_hash   );
+    func( { this => 10, that => 20 }   );
+
+    func( \&some_func   );
+    func( sub { $_[0] ** $_[1] }   );
+
+=item Passing Filehandles
+
+As of Perl 5.6, you can represent filehandles with scalar variables
+which you treat as any other scalar.
+
+    open my $fh, $filename or die "Cannot open $filename! $!";
+    func( $fh );
+
+    sub func {
+        my $passed_fh = shift;
+
+        my $line = <$passed_fh>;
+    }
+
+Before Perl 5.6, you had to use the C<*FH> or C<\*FH> notations.
+These are "typeglobs"--see L<perldata/"Typeglobs and Filehandles">
+and especially L<perlsub/"Pass by Reference"> for more information.
+
+=item Passing Regexes
+
+Here's an example of how to pass in a string and a regular expression
+for it to match against. You construct the pattern with the C<qr//>
+operator:
+
+    sub compare {
+        my ($val1, $regex) = @_;
+        my $retval = $val1 =~ /$regex/;
+        return $retval;
+    }
+    $match = compare("old McDonald", qr/d.*D/i);
+
+=item Passing Methods
+
+To pass an object method into a subroutine, you can do this:
+
+    call_a_lot(10, $some_obj, "methname")
+    sub call_a_lot {
+        my ($count, $widget, $trick) = @_;
+        for (my $i = 0; $i < $count; $i++) {
+            $widget->$trick();
+        }
+    }
+
+Or, you can use a closure to bundle up the object, its
+method call, and arguments:
+
+    my $whatnot = sub { $some_obj->obfuscate(@args) };
+    func($whatnot);
+    sub func {
+        my $code = shift;
+        &$code();
+    }
+
+You could also investigate the can() method in the UNIVERSAL class
+(part of the standard perl distribution).
+
+=back
+
+=head2 How do I create a static variable?
+
+(contributed by brian d foy)
+
+In Perl 5.10, declare the variable with C<state>. The C<state>
+declaration creates the lexical variable that persists between calls
+to the subroutine:
+
+    sub counter { state $count = 1; $count++ }
+
+You can fake a static variable by using a lexical variable which goes
+out of scope. In this example, you define the subroutine C<counter>, and
+it uses the lexical variable C<$count>. Since you wrap this in a BEGIN
+block, C<$count> is defined at compile-time, but also goes out of
+scope at the end of the BEGIN block. The BEGIN block also ensures that
+the subroutine and the value it uses is defined at compile-time so the
+subroutine is ready to use just like any other subroutine, and you can
+put this code in the same place as other subroutines in the program
+text (i.e. at the end of the code, typically). The subroutine
+C<counter> still has a reference to the data, and is the only way you
+can access the value (and each time you do, you increment the value).
+The data in chunk of memory defined by C<$count> is private to
+C<counter>.
+
+    BEGIN {
+        my $count = 1;
+        sub counter { $count++ }
+    }
+
+    my $start = counter();
+
+    .... # code that calls counter();
+
+    my $end = counter();
+
+In the previous example, you created a function-private variable
+because only one function remembered its reference. You could define
+multiple functions while the variable is in scope, and each function
+can share the "private" variable. It's not really "static" because you
+can access it outside the function while the lexical variable is in
+scope, and even create references to it. In this example,
+C<increment_count> and C<return_count> share the variable. One
+function adds to the value and the other simply returns the value.
+They can both access C<$count>, and since it has gone out of scope,
+there is no other way to access it.
+
+    BEGIN {
+        my $count = 1;
+        sub increment_count { $count++ }
+        sub return_count    { $count }
+    }
+
+To declare a file-private variable, you still use a lexical variable.
+A file is also a scope, so a lexical variable defined in the file
+cannot be seen from any other file.
+
+See L<perlsub/"Persistent Private Variables"> for more information.
+The discussion of closures in L<perlref> may help you even though we
+did not use anonymous subroutines in this answer. See
+L<perlsub/"Persistent Private Variables"> for details.
+
+=head2 What's the difference between dynamic and lexical (static) scoping? Between local() and my()?
+
+C<local($x)> saves away the old value of the global variable C<$x>
+and assigns a new value for the duration of the subroutine I<which is
+visible in other functions called from that subroutine>. This is done
+at run-time, so is called dynamic scoping. local() always affects global
+variables, also called package variables or dynamic variables.
+
+C<my($x)> creates a new variable that is only visible in the current
+subroutine. This is done at compile-time, so it is called lexical or
+static scoping. my() always affects private variables, also called
+lexical variables or (improperly) static(ly scoped) variables.
+
+For instance:
+
+    sub visible {
+        print "var has value $var\n";
+    }
+
+    sub dynamic {
+        local $var = 'local';    # new temporary value for the still-global
+        visible();              #   variable called $var
+    }
+
+    sub lexical {
+        my $var = 'private';    # new private variable, $var
+        visible();              # (invisible outside of sub scope)
+    }
+
+    $var = 'global';
+
+    visible();              # prints global
+    dynamic();              # prints local
+    lexical();              # prints global
+
+Notice how at no point does the value "private" get printed. That's
+because $var only has that value within the block of the lexical()
+function, and it is hidden from the called subroutine.
+
+In summary, local() doesn't make what you think of as private, local
+variables. It gives a global variable a temporary value. my() is
+what you're looking for if you want private variables.
+
+See L<perlsub/"Private Variables via my()"> and
+L<perlsub/"Temporary Values via local()"> for excruciating details.
+
+=head2 How can I access a dynamic variable while a similarly named lexical is in scope?
+
+If you know your package, you can just mention it explicitly, as in
+$Some_Pack::var. Note that the notation $::var is B<not> the dynamic $var
+in the current package, but rather the one in the "main" package, as
+though you had written $main::var.
+
+    use vars '$var';
+    local $var = "global";
+    my    $var = "lexical";
+
+    print "lexical is $var\n";
+    print "global  is $main::var\n";
+
+Alternatively you can use the compiler directive our() to bring a
+dynamic variable into the current lexical scope.
+
+    require 5.006; # our() did not exist before 5.6
+    use vars '$var';
+
+    local $var = "global";
+    my $var    = "lexical";
+
+    print "lexical is $var\n";
+
+    {
+        our $var;
+        print "global  is $var\n";
+    }
+
+=head2 What's the difference between deep and shallow binding?
+
+In deep binding, lexical variables mentioned in anonymous subroutines
+are the same ones that were in scope when the subroutine was created.
+In shallow binding, they are whichever variables with the same names
+happen to be in scope when the subroutine is called. Perl always uses
+deep binding of lexical variables (i.e., those created with my()).
+However, dynamic variables (aka global, local, or package variables)
+are effectively shallowly bound. Consider this just one more reason
+not to use them. See the answer to L<"What's a closure?">.
+
+=head2 Why doesn't "my($foo) = E<lt>$fhE<gt>;" work right?
+
+C<my()> and C<local()> give list context to the right hand side
+of C<=>. The <$fh> read operation, like so many of Perl's
+functions and operators, can tell which context it was called in and
+behaves appropriately. In general, the scalar() function can help.
+This function does nothing to the data itself (contrary to popular myth)
+but rather tells its argument to behave in whatever its scalar fashion is.
+If that function doesn't have a defined scalar behavior, this of course
+doesn't help you (such as with sort()).
+
+To enforce scalar context in this particular case, however, you need
+merely omit the parentheses:
+
+    local($foo) = <$fh>;        # WRONG
+    local($foo) = scalar(<$fh>);   # ok
+    local $foo  = <$fh>;        # right
+
+You should probably be using lexical variables anyway, although the
+issue is the same here:
+
+    my($foo) = <$fh>;    # WRONG
+    my $foo  = <$fh>;    # right
+
+=head2 How do I redefine a builtin function, operator, or method?
+
+Why do you want to do that? :-)
+
+If you want to override a predefined function, such as open(),
+then you'll have to import the new definition from a different
+module. See L<perlsub/"Overriding Built-in Functions">.
+
+If you want to overload a Perl operator, such as C<+> or C<**>,
+then you'll want to use the C<use overload> pragma, documented
+in L<overload>.
+
+If you're talking about obscuring method calls in parent classes,
+see L<perlootut/"Overriding methods and method resolution">.
+
+=head2 What's the difference between calling a function as &foo and foo()?
+
+(contributed by brian d foy)
+
+Calling a subroutine as C<&foo> with no trailing parentheses ignores
+the prototype of C<foo> and passes it the current value of the argument
+list, C<@_>. Here's an example; the C<bar> subroutine calls C<&foo>,
+which prints its arguments list:
+
+    sub foo { print "Args in foo are: @_\n"; }
+
+    sub bar { &foo; }
+
+    bar( "a", "b", "c" );
+
+When you call C<bar> with arguments, you see that C<foo> got the same C<@_>:
+
+    Args in foo are: a b c
+
+Calling the subroutine with trailing parentheses, with or without arguments,
+does not use the current C<@_>. Changing the example to put parentheses after
+the call to C<foo> changes the program:
+
+    sub foo { print "Args in foo are: @_\n"; }
+
+    sub bar { &foo(); }
+
+    bar( "a", "b", "c" );
+
+Now the output shows that C<foo> doesn't get the C<@_> from its caller.
+
+    Args in foo are:
+
+However, using C<&> in the call still overrides the prototype of C<foo> if
+present:
+
+    sub foo ($$$) { print "Args infoo are: @_\n"; }
+
+    sub bar_1 { &foo; }
+    sub bar_2 { &foo(); }
+    sub bar_3 { foo( $_[0], $_[1], $_[2] ); }
+    # sub bar_4 { foo(); }
+    # bar_4 doesn't compile: "Not enough arguments for main::foo at ..."
+
+    bar_1( "a", "b", "c" );
+    # Args in foo are: a b c
+
+    bar_2( "a", "b", "c" );
+    # Args in foo are:
+
+    bar_3( "a", "b", "c" );
+    # Args in foo are: a b c
+
+The main use of the C<@_> pass-through feature is to write subroutines
+whose main job it is to call other subroutines for you. For further
+details, see L<perlsub>.
+
+=head2 How do I create a switch or case statement?
+
+In Perl 5.10, use the C<given-when> construct described in L<perlsyn>:
+
+    use 5.010;
+
+    given ( $string ) {
+        when( 'Fred' )        { say "I found Fred!" }
+        when( 'Barney' )      { say "I found Barney!" }
+        when( /Bamm-?Bamm/ )  { say "I found Bamm-Bamm!" }
+        default               { say "I don't recognize the name!" }
+    };
+
+If one wants to use pure Perl and to be compatible with Perl versions
+prior to 5.10, the general answer is to use C<if-elsif-else>:
+
+    for ($variable_to_test) {
+        if    (/pat1/)  { }     # do something
+        elsif (/pat2/)  { }     # do something else
+        elsif (/pat3/)  { }     # do something else
+        else            { }     # default
+    }
+
+Here's a simple example of a switch based on pattern matching,
+lined up in a way to make it look more like a switch statement.
+We'll do a multiway conditional based on the type of reference stored
+in $whatchamacallit:
+
+    SWITCH: for (ref $whatchamacallit) {
+
+        /^$/           && die "not a reference";
+
+        /SCALAR/       && do {
+                        print_scalar($$ref);
+                        last SWITCH;
+                      };
+
+        /ARRAY/        && do {
+                        print_array(@$ref);
+                        last SWITCH;
+                      };
+
+        /HASH/        && do {
+                        print_hash(%$ref);
+                        last SWITCH;
+                      };
+
+        /CODE/        && do {
+                        warn "can't print function ref";
+                        last SWITCH;
+                      };
+
+        # DEFAULT
+
+        warn "User defined type skipped";
+
+    }
+
+See L<perlsyn> for other examples in this style.
+
+Sometimes you should change the positions of the constant and the variable.
+For example, let's say you wanted to test which of many answers you were
+given, but in a case-insensitive way that also allows abbreviations.
+You can use the following technique if the strings all start with
+different characters or if you want to arrange the matches so that
+one takes precedence over another, as C<"SEND"> has precedence over
+C<"STOP"> here:
+
+    chomp($answer = <>);
+    if    ("SEND"  =~ /^\Q$answer/i) { print "Action is send\n"  }
+    elsif ("STOP"  =~ /^\Q$answer/i) { print "Action is stop\n"  }
+    elsif ("ABORT" =~ /^\Q$answer/i) { print "Action is abort\n" }
+    elsif ("LIST"  =~ /^\Q$answer/i) { print "Action is list\n"  }
+    elsif ("EDIT"  =~ /^\Q$answer/i) { print "Action is edit\n"  }
+
+A totally different approach is to create a hash of function references.
+
+    my %commands = (
+        "happy" => \&joy,
+        "sad",  => \&sullen,
+        "done"  => sub { die "See ya!" },
+        "mad"   => \&angry,
+    );
+
+    print "How are you? ";
+    chomp($string = <STDIN>);
+    if ($commands{$string}) {
+        $commands{$string}->();
+    } else {
+        print "No such command: $string\n";
+    }
+
+Starting from Perl 5.8, a source filter module, C<Switch>, can also be
+used to get switch and case. Its use is now discouraged, because it's
+not fully compatible with the native switch of Perl 5.10, and because,
+as it's implemented as a source filter, it doesn't always work as intended
+when complex syntax is involved.
+
+=head2 How can I catch accesses to undefined variables, functions, or methods?
+
+The AUTOLOAD method, discussed in L<perlsub/"Autoloading"> lets you capture
+calls to undefined functions and methods.
+
+When it comes to undefined variables that would trigger a warning
+under C<use warnings>, you can promote the warning to an error.
+
+    use warnings FATAL => qw(uninitialized);
+
+=head2 Why can't a method included in this same file be found?
+
+Some possible reasons: your inheritance is getting confused, you've
+misspelled the method name, or the object is of the wrong type. Check
+out L<perlootut> for details about any of the above cases. You may
+also use C<print ref($object)> to find out the class C<$object> was
+blessed into.
+
+Another possible reason for problems is that you've used the
+indirect object syntax (eg, C<find Guru "Samy">) on a class name
+before Perl has seen that such a package exists. It's wisest to make
+sure your packages are all defined before you start using them, which
+will be taken care of if you use the C<use> statement instead of
+C<require>. If not, make sure to use arrow notation (eg.,
+C<< Guru->find("Samy") >>) instead. Object notation is explained in
+L<perlobj>.
+
+Make sure to read about creating modules in L<perlmod> and
+the perils of indirect objects in L<perlobj/"Method Invocation">.
+
+=head2 How can I find out my current or calling package?
+
+(contributed by brian d foy)
+
+To find the package you are currently in, use the special literal
+C<__PACKAGE__>, as documented in L<perldata>. You can only use the
+special literals as separate tokens, so you can't interpolate them
+into strings like you can with variables:
+
+    my $current_package = __PACKAGE__;
+    print "I am in package $current_package\n";
+
+If you want to find the package calling your code, perhaps to give better
+diagnostics as L<Carp> does, use the C<caller> built-in:
+
+    sub foo {
+        my @args = ...;
+        my( $package, $filename, $line ) = caller;
+
+        print "I was called from package $package\n";
+        );
+
+By default, your program starts in package C<main>, so you will
+always be in some package.
+
+This is different from finding out the package an object is blessed
+into, which might not be the current package. For that, use C<blessed>
+from L<Scalar::Util>, part of the Standard Library since Perl 5.8:
+
+    use Scalar::Util qw(blessed);
+    my $object_package = blessed( $object );
+
+Most of the time, you shouldn't care what package an object is blessed
+into, however, as long as it claims to inherit from that class:
+
+    my $is_right_class = eval { $object->isa( $package ) }; # true or false
+
+And, with Perl 5.10 and later, you don't have to check for an
+inheritance to see if the object can handle a role. For that, you can
+use C<DOES>, which comes from C<UNIVERSAL>:
+
+    my $class_does_it = eval { $object->DOES( $role ) }; # true or false
+
+You can safely replace C<isa> with C<DOES> (although the converse is not true).
+
+=head2 How can I comment out a large block of Perl code?
+
+(contributed by brian d foy)
+
+The quick-and-dirty way to comment out more than one line of Perl is
+to surround those lines with Pod directives. You have to put these
+directives at the beginning of the line and somewhere where Perl
+expects a new statement (so not in the middle of statements like the C<#>
+comments). You end the comment with C<=cut>, ending the Pod section:
+
+    =pod
+
+    my $object = NotGonnaHappen->new();
+
+    ignored_sub();
+
+    $wont_be_assigned = 37;
+
+    =cut
+
+The quick-and-dirty method only works well when you don't plan to
+leave the commented code in the source. If a Pod parser comes along,
+your multiline comment is going to show up in the Pod translation.
+A better way hides it from Pod parsers as well.
+
+The C<=begin> directive can mark a section for a particular purpose.
+If the Pod parser doesn't want to handle it, it just ignores it. Label
+the comments with C<comment>. End the comment using C<=end> with the
+same label. You still need the C<=cut> to go back to Perl code from
+the Pod comment:
+
+    =begin comment
+
+    my $object = NotGonnaHappen->new();
+
+    ignored_sub();
+
+    $wont_be_assigned = 37;
+
+    =end comment
+
+    =cut
+
+For more information on Pod, check out L<perlpod> and L<perlpodspec>.
+
+=head2 How do I clear a package?
+
+Use this code, provided by Mark-Jason Dominus:
+
+    sub scrub_package {
+        no strict 'refs';
+        my $pack = shift;
+        die "Shouldn't delete main package"
+            if $pack eq "" || $pack eq "main";
+        my $stash = *{$pack . '::'}{HASH};
+        my $name;
+        foreach $name (keys %$stash) {
+            my $fullname = $pack . '::' . $name;
+            # Get rid of everything with that name.
+            undef $$fullname;
+            undef @$fullname;
+            undef %$fullname;
+            undef &$fullname;
+            undef *$fullname;
+        }
+    }
+
+Or, if you're using a recent release of Perl, you can
+just use the Symbol::delete_package() function instead.
+
+=head2 How can I use a variable as a variable name?
+
+Beginners often think they want to have a variable contain the name
+of a variable.
+
+    $fred    = 23;
+    $varname = "fred";
+    ++$$varname;         # $fred now 24
+
+This works I<sometimes>, but it is a very bad idea for two reasons.
+
+The first reason is that this technique I<only works on global
+variables>. That means that if $fred is a lexical variable created
+with my() in the above example, the code wouldn't work at all: you'd
+accidentally access the global and skip right over the private lexical
+altogether. Global variables are bad because they can easily collide
+accidentally and in general make for non-scalable and confusing code.
+
+Symbolic references are forbidden under the C<use strict> pragma.
+They are not true references and consequently are not reference-counted
+or garbage-collected.
+
+The other reason why using a variable to hold the name of another
+variable is a bad idea is that the question often stems from a lack of
+understanding of Perl data structures, particularly hashes. By using
+symbolic references, you are just using the package's symbol-table hash
+(like C<%main::>) instead of a user-defined hash. The solution is to
+use your own hash or a real reference instead.
+
+    $USER_VARS{"fred"} = 23;
+    my $varname = "fred";
+    $USER_VARS{$varname}++;  # not $$varname++
+
+There we're using the %USER_VARS hash instead of symbolic references.
+Sometimes this comes up in reading strings from the user with variable
+references and wanting to expand them to the values of your perl
+program's variables. This is also a bad idea because it conflates the
+program-addressable namespace and the user-addressable one. Instead of
+reading a string and expanding it to the actual contents of your program's
+own variables:
+
+    $str = 'this has a $fred and $barney in it';
+    $str =~ s/(\$\w+)/$1/eeg;          # need double eval
+
+it would be better to keep a hash around like %USER_VARS and have
+variable references actually refer to entries in that hash:
+
+    $str =~ s/\$(\w+)/$USER_VARS{$1}/g;   # no /e here at all
+
+That's faster, cleaner, and safer than the previous approach. Of course,
+you don't need to use a dollar sign. You could use your own scheme to
+make it less confusing, like bracketed percent symbols, etc.
+
+    $str = 'this has a %fred% and %barney% in it';
+    $str =~ s/%(\w+)%/$USER_VARS{$1}/g;   # no /e here at all
+
+Another reason that folks sometimes think they want a variable to
+contain the name of a variable is that they don't know how to build
+proper data structures using hashes. For example, let's say they
+wanted two hashes in their program: %fred and %barney, and that they
+wanted to use another scalar variable to refer to those by name.
+
+    $name = "fred";
+    $$name{WIFE} = "wilma";     # set %fred
+
+    $name = "barney";
+    $$name{WIFE} = "betty";    # set %barney
+
+This is still a symbolic reference, and is still saddled with the
+problems enumerated above. It would be far better to write:
+
+    $folks{"fred"}{WIFE}   = "wilma";
+    $folks{"barney"}{WIFE} = "betty";
+
+And just use a multilevel hash to start with.
+
+The only times that you absolutely I<must> use symbolic references are
+when you really must refer to the symbol table. This may be because it's
+something that one can't take a real reference to, such as a format name.
+Doing so may also be important for method calls, since these always go
+through the symbol table for resolution.
+
+In those cases, you would turn off C<strict 'refs'> temporarily so you
+can play around with the symbol table. For example:
+
+    @colors = qw(red blue green yellow orange purple violet);
+    for my $name (@colors) {
+        no strict 'refs';  # renege for the block
+        *$name = sub { "<FONT COLOR='$name'>@_</FONT>" };
+    }
+
+All those functions (red(), blue(), green(), etc.) appear to be separate,
+but the real code in the closure actually was compiled only once.
+
+So, sometimes you might want to use symbolic references to manipulate
+the symbol table directly. This doesn't matter for formats, handles, and
+subroutines, because they are always global--you can't use my() on them.
+For scalars, arrays, and hashes, though--and usually for subroutines--
+you probably only want to use hard references.
+
+=head2 What does "bad interpreter" mean?
+
+(contributed by brian d foy)
+
+The "bad interpreter" message comes from the shell, not perl. The
+actual message may vary depending on your platform, shell, and locale
+settings.
+
+If you see "bad interpreter - no such file or directory", the first
+line in your perl script (the "shebang" line) does not contain the
+right path to perl (or any other program capable of running scripts).
+Sometimes this happens when you move the script from one machine to
+another and each machine has a different path to perl--/usr/bin/perl
+versus /usr/local/bin/perl for instance. It may also indicate
+that the source machine has CRLF line terminators and the
+destination machine has LF only: the shell tries to find
+/usr/bin/perl<CR>, but can't.
+
+If you see "bad interpreter: Permission denied", you need to make your
+script executable.
+
+In either case, you should still be able to run the scripts with perl
+explicitly:
+
+    % perl script.pl
+
+If you get a message like "perl: command not found", perl is not in
+your PATH, which might also mean that the location of perl is not
+where you expect it so you need to adjust your shebang line.
+
+=head2 Do I need to recompile XS modules when there is a change in the C library?
+
+(contributed by Alex Beamish)
+
+If the new version of the C library is ABI-compatible (that's Application
+Binary Interface compatible) with the version you're upgrading from, and if the
+shared library version didn't change, no re-compilation should be necessary.
+
+=head1 AUTHOR AND COPYRIGHT
+
+Copyright (c) 1997-2013 Tom Christiansen, Nathan Torkington, and
+other authors as noted. All rights reserved.
+
+This documentation is free; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+Irrespective of its distribution, all code examples in this file
+are hereby placed into the public domain. You are permitted and
+encouraged to use this code in your own programs for fun
+or for profit as you see fit. A simple comment in the code giving
+credit would be courteous but is not required.
diff --git a/lib/5.24.1/pod/perlfaq8.pod b/lib/5.24.1/pod/perlfaq8.pod
new file mode 100644
index 00000000..3bbd4599
--- /dev/null
+++ b/lib/5.24.1/pod/perlfaq8.pod
@@ -0,0 +1,1446 @@
+=head1 NAME
+
+perlfaq8 - System Interaction
+
+=head1 VERSION
+
+version 5.021010
+
+=head1 DESCRIPTION
+
+This section of the Perl FAQ covers questions involving operating
+system interaction. Topics include interprocess communication (IPC),
+control over the user-interface (keyboard, screen and pointing
+devices), and most anything else not related to data manipulation.
+
+Read the FAQs and documentation specific to the port of perl to your
+operating system (eg, L<perlvms>, L<perlplan9>, ...). These should
+contain more detailed information on the vagaries of your perl.
+
+=head2 How do I find out which operating system I'm running under?
+
+The C<$^O> variable (C<$OSNAME> if you use C<English>) contains an
+indication of the name of the operating system (not its release
+number) that your perl binary was built for.
+
+=head2 How come exec() doesn't return?
+X<exec> X<system> X<fork> X<open> X<pipe>
+
+(contributed by brian d foy)
+
+The C<exec> function's job is to turn your process into another
+command and never to return. If that's not what you want to do, don't
+use C<exec>. :)
+
+If you want to run an external command and still keep your Perl process
+going, look at a piped C<open>, C<fork>, or C<system>.
+
+=head2 How do I do fancy stuff with the keyboard/screen/mouse?
+
+How you access/control keyboards, screens, and pointing devices
+("mice") is system-dependent. Try the following modules:
+
+=over 4
+
+=item Keyboard
+
+    Term::Cap               Standard perl distribution
+    Term::ReadKey           CPAN
+    Term::ReadLine::Gnu     CPAN
+    Term::ReadLine::Perl    CPAN
+    Term::Screen            CPAN
+
+=item Screen
+
+    Term::Cap               Standard perl distribution
+    Curses                  CPAN
+    Term::ANSIColor         CPAN
+
+=item Mouse
+
+    Tk                      CPAN
+    Wx                      CPAN
+    Gtk2                    CPAN
+    Qt4                     kdebindings4 package
+
+=back
+
+Some of these specific cases are shown as examples in other answers
+in this section of the perlfaq.
+
+=head2 How do I print something out in color?
+
+In general, you don't, because you don't know whether
+the recipient has a color-aware display device. If you
+know that they have an ANSI terminal that understands
+color, you can use the L<Term::ANSIColor> module from CPAN:
+
+    use Term::ANSIColor;
+    print color("red"), "Stop!\n", color("reset");
+    print color("green"), "Go!\n", color("reset");
+
+Or like this:
+
+    use Term::ANSIColor qw(:constants);
+    print RED, "Stop!\n", RESET;
+    print GREEN, "Go!\n", RESET;
+
+=head2 How do I read just one key without waiting for a return key?
+
+Controlling input buffering is a remarkably system-dependent matter.
+On many systems, you can just use the B<stty> command as shown in
+L<perlfunc/getc>, but as you see, that's already getting you into
+portability snags.
+
+    open(TTY, "+</dev/tty") or die "no tty: $!";
+    system "stty  cbreak </dev/tty >/dev/tty 2>&1";
+    $key = getc(TTY);        # perhaps this works
+    # OR ELSE
+    sysread(TTY, $key, 1);    # probably this does
+    system "stty -cbreak </dev/tty >/dev/tty 2>&1";
+
+The L<Term::ReadKey> module from CPAN offers an easy-to-use interface that
+should be more efficient than shelling out to B<stty> for each key.
+It even includes limited support for Windows.
+
+    use Term::ReadKey;
+    ReadMode('cbreak');
+    $key = ReadKey(0);
+    ReadMode('normal');
+
+However, using the code requires that you have a working C compiler
+and can use it to build and install a CPAN module. Here's a solution
+using the standard L<POSIX> module, which is already on your system
+(assuming your system supports POSIX).
+
+    use HotKey;
+    $key = readkey();
+
+And here's the C<HotKey> module, which hides the somewhat mystifying calls
+to manipulate the POSIX termios structures.
+
+    # HotKey.pm
+    package HotKey;
+
+    use strict;
+    use warnings;
+
+    use parent 'Exporter';
+    our @EXPORT = qw(cbreak cooked readkey);
+
+    use POSIX qw(:termios_h);
+    my ($term, $oterm, $echo, $noecho, $fd_stdin);
+
+    $fd_stdin = fileno(STDIN);
+    $term     = POSIX::Termios->new();
+    $term->getattr($fd_stdin);
+    $oterm     = $term->getlflag();
+
+    $echo     = ECHO | ECHOK | ICANON;
+    $noecho   = $oterm & ~$echo;
+
+    sub cbreak {
+        $term->setlflag($noecho);  # ok, so i don't want echo either
+        $term->setcc(VTIME, 1);
+        $term->setattr($fd_stdin, TCSANOW);
+    }
+
+    sub cooked {
+        $term->setlflag($oterm);
+        $term->setcc(VTIME, 0);
+        $term->setattr($fd_stdin, TCSANOW);
+    }
+
+    sub readkey {
+        my $key = '';
+        cbreak();
+        sysread(STDIN, $key, 1);
+        cooked();
+        return $key;
+    }
+
+    END { cooked() }
+
+    1;
+
+=head2 How do I check whether input is ready on the keyboard?
+
+The easiest way to do this is to read a key in nonblocking mode with the
+L<Term::ReadKey> module from CPAN, passing it an argument of -1 to indicate
+not to block:
+
+    use Term::ReadKey;
+
+    ReadMode('cbreak');
+
+    if (defined (my $char = ReadKey(-1)) ) {
+        # input was waiting and it was $char
+    } else {
+        # no input was waiting
+    }
+
+    ReadMode('normal');                  # restore normal tty settings
+
+=head2 How do I clear the screen?
+
+(contributed by brian d foy)
+
+To clear the screen, you just have to print the special sequence
+that tells the terminal to clear the screen. Once you have that
+sequence, output it when you want to clear the screen.
+
+You can use the L<Term::ANSIScreen> module to get the special
+sequence. Import the C<cls> function (or the C<:screen> tag):
+
+    use Term::ANSIScreen qw(cls);
+    my $clear_screen = cls();
+
+    print $clear_screen;
+
+The L<Term::Cap> module can also get the special sequence if you want
+to deal with the low-level details of terminal control. The C<Tputs>
+method returns the string for the given capability:
+
+    use Term::Cap;
+
+    my $terminal = Term::Cap->Tgetent( { OSPEED => 9600 } );
+    my $clear_screen = $terminal->Tputs('cl');
+
+    print $clear_screen;
+
+On Windows, you can use the L<Win32::Console> module. After creating
+an object for the output filehandle you want to affect, call the
+C<Cls> method:
+
+    Win32::Console;
+
+    my $OUT = Win32::Console->new(STD_OUTPUT_HANDLE);
+    my $clear_string = $OUT->Cls;
+
+    print $clear_screen;
+
+If you have a command-line program that does the job, you can call
+it in backticks to capture whatever it outputs so you can use it
+later:
+
+    my $clear_string = `clear`;
+
+    print $clear_string;
+
+=head2 How do I get the screen size?
+
+If you have L<Term::ReadKey> module installed from CPAN,
+you can use it to fetch the width and height in characters
+and in pixels:
+
+    use Term::ReadKey;
+    my ($wchar, $hchar, $wpixels, $hpixels) = GetTerminalSize();
+
+This is more portable than the raw C<ioctl>, but not as
+illustrative:
+
+    require 'sys/ioctl.ph';
+    die "no TIOCGWINSZ " unless defined &TIOCGWINSZ;
+    open(my $tty_fh, "+</dev/tty")                     or die "No tty: $!";
+    unless (ioctl($tty_fh, &TIOCGWINSZ, $winsize='')) {
+        die sprintf "$0: ioctl TIOCGWINSZ (%08x: $!)\n", &TIOCGWINSZ;
+    }
+    my ($row, $col, $xpixel, $ypixel) = unpack('S4', $winsize);
+    print "(row,col) = ($row,$col)";
+    print "  (xpixel,ypixel) = ($xpixel,$ypixel)" if $xpixel || $ypixel;
+    print "\n";
+
+=head2 How do I ask the user for a password?
+
+(This question has nothing to do with the web. See a different
+FAQ for that.)
+
+There's an example of this in L<perlfunc/crypt>). First, you put the
+terminal into "no echo" mode, then just read the password normally.
+You may do this with an old-style C<ioctl()> function, POSIX terminal
+control (see L<POSIX> or its documentation the Camel Book), or a call
+to the B<stty> program, with varying degrees of portability.
+
+You can also do this for most systems using the L<Term::ReadKey> module
+from CPAN, which is easier to use and in theory more portable.
+
+    use Term::ReadKey;
+
+    ReadMode('noecho');
+    my $password = ReadLine(0);
+
+=head2 How do I read and write the serial port?
+
+This depends on which operating system your program is running on. In
+the case of Unix, the serial ports will be accessible through files in
+C</dev>; on other systems, device names will doubtless differ.
+Several problem areas common to all device interaction are the
+following:
+
+=over 4
+
+=item lockfiles
+
+Your system may use lockfiles to control multiple access. Make sure
+you follow the correct protocol. Unpredictable behavior can result
+from multiple processes reading from one device.
+
+=item open mode
+
+If you expect to use both read and write operations on the device,
+you'll have to open it for update (see L<perlfunc/"open"> for
+details). You may wish to open it without running the risk of
+blocking by using C<sysopen()> and C<O_RDWR|O_NDELAY|O_NOCTTY> from the
+L<Fcntl> module (part of the standard perl distribution). See
+L<perlfunc/"sysopen"> for more on this approach.
+
+=item end of line
+
+Some devices will be expecting a "\r" at the end of each line rather
+than a "\n". In some ports of perl, "\r" and "\n" are different from
+their usual (Unix) ASCII values of "\015" and "\012". You may have to
+give the numeric values you want directly, using octal ("\015"), hex
+("0x0D"), or as a control-character specification ("\cM").
+
+    print DEV "atv1\012";    # wrong, for some devices
+    print DEV "atv1\015";    # right, for some devices
+
+Even though with normal text files a "\n" will do the trick, there is
+still no unified scheme for terminating a line that is portable
+between Unix, DOS/Win, and Macintosh, except to terminate I<ALL> line
+ends with "\015\012", and strip what you don't need from the output.
+This applies especially to socket I/O and autoflushing, discussed
+next.
+
+=item flushing output
+
+If you expect characters to get to your device when you C<print()> them,
+you'll want to autoflush that filehandle. You can use C<select()>
+and the C<$|> variable to control autoflushing (see L<perlvar/$E<verbar>>
+and L<perlfunc/select>, or L<perlfaq5>, "How do I flush/unbuffer an
+output filehandle? Why must I do this?"):
+
+    my $old_handle = select($dev_fh);
+    $| = 1;
+    select($old_handle);
+
+You'll also see code that does this without a temporary variable, as in
+
+    select((select($deb_handle), $| = 1)[0]);
+
+Or if you don't mind pulling in a few thousand lines
+of code just because you're afraid of a little C<$|> variable:
+
+    use IO::Handle;
+    $dev_fh->autoflush(1);
+
+As mentioned in the previous item, this still doesn't work when using
+socket I/O between Unix and Macintosh. You'll need to hard code your
+line terminators, in that case.
+
+=item non-blocking input
+
+If you are doing a blocking C<read()> or C<sysread()>, you'll have to
+arrange for an alarm handler to provide a timeout (see
+L<perlfunc/alarm>). If you have a non-blocking open, you'll likely
+have a non-blocking read, which means you may have to use a 4-arg
+C<select()> to determine whether I/O is ready on that device (see
+L<perlfunc/"select">.
+
+=back
+
+While trying to read from his caller-id box, the notorious Jamie
+Zawinski C<< <jwz@netscape.com> >>, after much gnashing of teeth and
+fighting with C<sysread>, C<sysopen>, POSIX's C<tcgetattr> business,
+and various other functions that go bump in the night, finally came up
+with this:
+
+    sub open_modem {
+        use IPC::Open2;
+        my $stty = `/bin/stty -g`;
+        open2( \*MODEM_IN, \*MODEM_OUT, "cu -l$modem_device -s2400 2>&1");
+        # starting cu hoses /dev/tty's stty settings, even when it has
+        # been opened on a pipe...
+        system("/bin/stty $stty");
+        $_ = <MODEM_IN>;
+        chomp;
+        if ( !m/^Connected/ ) {
+            print STDERR "$0: cu printed `$_' instead of `Connected'\n";
+        }
+    }
+
+=head2 How do I decode encrypted password files?
+
+You spend lots and lots of money on dedicated hardware, but this is
+bound to get you talked about.
+
+Seriously, you can't if they are Unix password files--the Unix
+password system employs one-way encryption. It's more like hashing
+than encryption. The best you can do is check whether something else
+hashes to the same string. You can't turn a hash back into the
+original string. Programs like Crack can forcibly (and intelligently)
+try to guess passwords, but don't (can't) guarantee quick success.
+
+If you're worried about users selecting bad passwords, you should
+proactively check when they try to change their password (by modifying
+L<passwd(1)>, for example).
+
+=head2 How do I start a process in the background?
+
+(contributed by brian d foy)
+
+There's not a single way to run code in the background so you don't
+have to wait for it to finish before your program moves on to other
+tasks. Process management depends on your particular operating system,
+and many of the techniques are covered in L<perlipc>.
+
+Several CPAN modules may be able to help, including L<IPC::Open2> or
+L<IPC::Open3>, L<IPC::Run>, L<Parallel::Jobs>,
+L<Parallel::ForkManager>, L<POE>, L<Proc::Background>, and
+L<Win32::Process>. There are many other modules you might use, so
+check those namespaces for other options too.
+
+If you are on a Unix-like system, you might be able to get away with a
+system call where you put an C<&> on the end of the command:
+
+    system("cmd &")
+
+You can also try using C<fork>, as described in L<perlfunc> (although
+this is the same thing that many of the modules will do for you).
+
+=over 4
+
+=item STDIN, STDOUT, and STDERR are shared
+
+Both the main process and the backgrounded one (the "child" process)
+share the same STDIN, STDOUT and STDERR filehandles. If both try to
+access them at once, strange things can happen. You may want to close
+or reopen these for the child. You can get around this with
+C<open>ing a pipe (see L<perlfunc/"open">) but on some systems this
+means that the child process cannot outlive the parent.
+
+=item Signals
+
+You'll have to catch the SIGCHLD signal, and possibly SIGPIPE too.
+SIGCHLD is sent when the backgrounded process finishes. SIGPIPE is
+sent when you write to a filehandle whose child process has closed (an
+untrapped SIGPIPE can cause your program to silently die). This is
+not an issue with C<system("cmd&")>.
+
+=item Zombies
+
+You have to be prepared to "reap" the child process when it finishes.
+
+    $SIG{CHLD} = sub { wait };
+
+    $SIG{CHLD} = 'IGNORE';
+
+You can also use a double fork. You immediately C<wait()> for your
+first child, and the init daemon will C<wait()> for your grandchild once
+it exits.
+
+    unless ($pid = fork) {
+        unless (fork) {
+            exec "what you really wanna do";
+            die "exec failed!";
+        }
+        exit 0;
+    }
+    waitpid($pid, 0);
+
+See L<perlipc/"Signals"> for other examples of code to do this.
+Zombies are not an issue with C<system("prog &")>.
+
+=back
+
+=head2 How do I trap control characters/signals?
+
+You don't actually "trap" a control character. Instead, that character
+generates a signal which is sent to your terminal's currently
+foregrounded process group, which you then trap in your process.
+Signals are documented in L<perlipc/"Signals"> and the
+section on "Signals" in the Camel.
+
+You can set the values of the C<%SIG> hash to be the functions you want
+to handle the signal. After perl catches the signal, it looks in C<%SIG>
+for a key with the same name as the signal, then calls the subroutine
+value for that key.
+
+    # as an anonymous subroutine
+
+    $SIG{INT} = sub { syswrite(STDERR, "ouch\n", 5 ) };
+
+    # or a reference to a function
+
+    $SIG{INT} = \&ouch;
+
+    # or the name of the function as a string
+
+    $SIG{INT} = "ouch";
+
+Perl versions before 5.8 had in its C source code signal handlers which
+would catch the signal and possibly run a Perl function that you had set
+in C<%SIG>. This violated the rules of signal handling at that level
+causing perl to dump core. Since version 5.8.0, perl looks at C<%SIG>
+B<after> the signal has been caught, rather than while it is being caught.
+Previous versions of this answer were incorrect.
+
+=head2 How do I modify the shadow password file on a Unix system?
+
+If perl was installed correctly and your shadow library was written
+properly, the C<getpw*()> functions described in L<perlfunc> should in
+theory provide (read-only) access to entries in the shadow password
+file. To change the file, make a new shadow password file (the format
+varies from system to system--see L<passwd(1)> for specifics) and use
+C<pwd_mkdb(8)> to install it (see L<pwd_mkdb(8)> for more details).
+
+=head2 How do I set the time and date?
+
+Assuming you're running under sufficient permissions, you should be
+able to set the system-wide date and time by running the C<date(1)>
+program. (There is no way to set the time and date on a per-process
+basis.)  This mechanism will work for Unix, MS-DOS, Windows, and NT;
+the VMS equivalent is C<set time>.
+
+However, if all you want to do is change your time zone, you can
+probably get away with setting an environment variable:
+
+    $ENV{TZ} = "MST7MDT";           # Unixish
+    $ENV{'SYS$TIMEZONE_DIFFERENTIAL'}="-5" # vms
+    system('trn', 'comp.lang.perl.misc');
+
+=head2 How can I sleep() or alarm() for under a second?
+X<Time::HiRes> X<BSD::Itimer> X<sleep> X<select>
+
+If you want finer granularity than the 1 second that the C<sleep()>
+function provides, the easiest way is to use the C<select()> function as
+documented in L<perlfunc/"select">. Try the L<Time::HiRes> and
+the L<BSD::Itimer> modules (available from CPAN, and starting from
+Perl 5.8 L<Time::HiRes> is part of the standard distribution).
+
+=head2 How can I measure time under a second?
+X<Time::HiRes> X<BSD::Itimer> X<sleep> X<select>
+
+(contributed by brian d foy)
+
+The L<Time::HiRes> module (part of the standard distribution as of
+Perl 5.8) measures time with the C<gettimeofday()> system call, which
+returns the time in microseconds since the epoch. If you can't install
+L<Time::HiRes> for older Perls and you are on a Unixish system, you
+may be able to call C<gettimeofday(2)> directly. See
+L<perlfunc/syscall>.
+
+=head2 How can I do an atexit() or setjmp()/longjmp()? (Exception handling)
+
+You can use the C<END> block to simulate C<atexit()>. Each package's
+C<END> block is called when the program or thread ends. See the L<perlmod>
+manpage for more details about C<END> blocks.
+
+For example, you can use this to make sure your filter program managed
+to finish its output without filling up the disk:
+
+    END {
+        close(STDOUT) || die "stdout close failed: $!";
+    }
+
+The C<END> block isn't called when untrapped signals kill the program,
+though, so if you use C<END> blocks you should also use
+
+    use sigtrap qw(die normal-signals);
+
+Perl's exception-handling mechanism is its C<eval()> operator. You
+can use C<eval()> as C<setjmp> and C<die()> as C<longjmp>. For
+details of this, see the section on signals, especially the time-out
+handler for a blocking C<flock()> in L<perlipc/"Signals"> or the
+section on "Signals" in I<Programming Perl>.
+
+If exception handling is all you're interested in, use one of the
+many CPAN modules that handle exceptions, such as L<Try::Tiny>.
+
+If you want the C<atexit()> syntax (and an C<rmexit()> as well), try the
+C<AtExit> module available from CPAN.
+
+=head2 Why doesn't my sockets program work under System V (Solaris)? What does the error message "Protocol not supported" mean?
+
+Some Sys-V based systems, notably Solaris 2.X, redefined some of the
+standard socket constants. Since these were constant across all
+architectures, they were often hardwired into perl code. The proper
+way to deal with this is to "use Socket" to get the correct values.
+
+Note that even though SunOS and Solaris are binary compatible, these
+values are different. Go figure.
+
+=head2 How can I call my system's unique C functions from Perl?
+
+In most cases, you write an external module to do it--see the answer
+to "Where can I learn about linking C with Perl? [h2xs, xsubpp]".
+However, if the function is a system call, and your system supports
+C<syscall()>, you can use the C<syscall> function (documented in
+L<perlfunc>).
+
+Remember to check the modules that came with your distribution, and
+CPAN as well--someone may already have written a module to do it. On
+Windows, try L<Win32::API>. On Macs, try L<Mac::Carbon>. If no module
+has an interface to the C function, you can inline a bit of C in your
+Perl source with L<Inline::C>.
+
+=head2 Where do I get the include files to do ioctl() or syscall()?
+
+Historically, these would be generated by the L<h2ph> tool, part of the
+standard perl distribution. This program converts C<cpp(1)> directives
+in C header files to files containing subroutine definitions, like
+C<SYS_getitimer()>, which you can use as arguments to your functions.
+It doesn't work perfectly, but it usually gets most of the job done.
+Simple files like F<errno.h>, F<syscall.h>, and F<socket.h> were fine,
+but the hard ones like F<ioctl.h> nearly always need to be hand-edited.
+Here's how to install the *.ph files:
+
+    1. Become the super-user
+    2. cd /usr/include
+    3. h2ph *.h */*.h
+
+If your system supports dynamic loading, for reasons of portability and
+sanity you probably ought to use L<h2xs> (also part of the standard perl
+distribution). This tool converts C header files to Perl extensions.
+See L<perlxstut> for how to get started with L<h2xs>.
+
+If your system doesn't support dynamic loading, you still probably
+ought to use L<h2xs>. See L<perlxstut> and L<ExtUtils::MakeMaker> for
+more information (in brief, just use B<make perl> instead of a plain
+B<make> to rebuild perl with a new static extension).
+
+=head2 Why do setuid perl scripts complain about kernel problems?
+
+Some operating systems have bugs in the kernel that make setuid
+scripts inherently insecure. Perl gives you a number of options
+(described in L<perlsec>) to work around such systems.
+
+=head2 How can I open a pipe both to and from a command?
+
+The L<IPC::Open2> module (part of the standard perl distribution) is
+an easy-to-use approach that internally uses C<pipe()>, C<fork()>, and
+C<exec()> to do the job. Make sure you read the deadlock warnings in
+its documentation, though (see L<IPC::Open2>). See
+L<perlipc/"Bidirectional Communication with Another Process"> and
+L<perlipc/"Bidirectional Communication with Yourself">
+
+You may also use the L<IPC::Open3> module (part of the standard perl
+distribution), but be warned that it has a different order of
+arguments from L<IPC::Open2> (see L<IPC::Open3>).
+
+=head2 Why can't I get the output of a command with system()?
+
+You're confusing the purpose of C<system()> and backticks (``). C<system()>
+runs a command and returns exit status information (as a 16 bit value:
+the low 7 bits are the signal the process died from, if any, and
+the high 8 bits are the actual exit value). Backticks (``) run a
+command and return what it sent to STDOUT.
+
+    my $exit_status   = system("mail-users");
+    my $output_string = `ls`;
+
+=head2 How can I capture STDERR from an external command?
+
+There are three basic ways of running external commands:
+
+    system $cmd;        # using system()
+    my $output = `$cmd`;        # using backticks (``)
+    open (my $pipe_fh, "$cmd |");    # using open()
+
+With C<system()>, both STDOUT and STDERR will go the same place as the
+script's STDOUT and STDERR, unless the C<system()> command redirects them.
+Backticks and C<open()> read B<only> the STDOUT of your command.
+
+You can also use the C<open3()> function from L<IPC::Open3>. Benjamin
+Goldberg provides some sample code:
+
+To capture a program's STDOUT, but discard its STDERR:
+
+    use IPC::Open3;
+    use File::Spec;
+    my $in = '';
+    open(NULL, ">", File::Spec->devnull);
+    my $pid = open3($in, \*PH, ">&NULL", "cmd");
+    while( <PH> ) { }
+    waitpid($pid, 0);
+
+To capture a program's STDERR, but discard its STDOUT:
+
+    use IPC::Open3;
+    use File::Spec;
+    my $in = '';
+    open(NULL, ">", File::Spec->devnull);
+    my $pid = open3($in, ">&NULL", \*PH, "cmd");
+    while( <PH> ) { }
+    waitpid($pid, 0);
+
+To capture a program's STDERR, and let its STDOUT go to our own STDERR:
+
+    use IPC::Open3;
+    my $in = '';
+    my $pid = open3($in, ">&STDERR", \*PH, "cmd");
+    while( <PH> ) { }
+    waitpid($pid, 0);
+
+To read both a command's STDOUT and its STDERR separately, you can
+redirect them to temp files, let the command run, then read the temp
+files:
+
+    use IPC::Open3;
+    use IO::File;
+    my $in = '';
+    local *CATCHOUT = IO::File->new_tmpfile;
+    local *CATCHERR = IO::File->new_tmpfile;
+    my $pid = open3($in, ">&CATCHOUT", ">&CATCHERR", "cmd");
+    waitpid($pid, 0);
+    seek $_, 0, 0 for \*CATCHOUT, \*CATCHERR;
+    while( <CATCHOUT> ) {}
+    while( <CATCHERR> ) {}
+
+But there's no real need for B<both> to be tempfiles... the following
+should work just as well, without deadlocking:
+
+    use IPC::Open3;
+    my $in = '';
+    use IO::File;
+    local *CATCHERR = IO::File->new_tmpfile;
+    my $pid = open3($in, \*CATCHOUT, ">&CATCHERR", "cmd");
+    while( <CATCHOUT> ) {}
+    waitpid($pid, 0);
+    seek CATCHERR, 0, 0;
+    while( <CATCHERR> ) {}
+
+And it'll be faster, too, since we can begin processing the program's
+stdout immediately, rather than waiting for the program to finish.
+
+With any of these, you can change file descriptors before the call:
+
+    open(STDOUT, ">logfile");
+    system("ls");
+
+or you can use Bourne shell file-descriptor redirection:
+
+    $output = `$cmd 2>some_file`;
+    open (PIPE, "cmd 2>some_file |");
+
+You can also use file-descriptor redirection to make STDERR a
+duplicate of STDOUT:
+
+    $output = `$cmd 2>&1`;
+    open (PIPE, "cmd 2>&1 |");
+
+Note that you I<cannot> simply open STDERR to be a dup of STDOUT
+in your Perl program and avoid calling the shell to do the redirection.
+This doesn't work:
+
+    open(STDERR, ">&STDOUT");
+    $alloutput = `cmd args`;  # stderr still escapes
+
+This fails because the C<open()> makes STDERR go to where STDOUT was
+going at the time of the C<open()>. The backticks then make STDOUT go to
+a string, but don't change STDERR (which still goes to the old
+STDOUT).
+
+Note that you I<must> use Bourne shell (C<sh(1)>) redirection syntax in
+backticks, not C<csh(1)>!  Details on why Perl's C<system()> and backtick
+and pipe opens all use the Bourne shell are in the
+F<versus/csh.whynot> article in the "Far More Than You Ever Wanted To
+Know" collection in L<http://www.cpan.org/misc/olddoc/FMTEYEWTK.tgz> . To
+capture a command's STDERR and STDOUT together:
+
+    $output = `cmd 2>&1`;                       # either with backticks
+    $pid = open(PH, "cmd 2>&1 |");              # or with an open pipe
+    while (<PH>) { }                            #    plus a read
+
+To capture a command's STDOUT but discard its STDERR:
+
+    $output = `cmd 2>/dev/null`;                # either with backticks
+    $pid = open(PH, "cmd 2>/dev/null |");       # or with an open pipe
+    while (<PH>) { }                            #    plus a read
+
+To capture a command's STDERR but discard its STDOUT:
+
+    $output = `cmd 2>&1 1>/dev/null`;           # either with backticks
+    $pid = open(PH, "cmd 2>&1 1>/dev/null |");  # or with an open pipe
+    while (<PH>) { }                            #    plus a read
+
+To exchange a command's STDOUT and STDERR in order to capture the STDERR
+but leave its STDOUT to come out our old STDERR:
+
+    $output = `cmd 3>&1 1>&2 2>&3 3>&-`;        # either with backticks
+    $pid = open(PH, "cmd 3>&1 1>&2 2>&3 3>&-|");# or with an open pipe
+    while (<PH>) { }                            #    plus a read
+
+To read both a command's STDOUT and its STDERR separately, it's easiest
+to redirect them separately to files, and then read from those files
+when the program is done:
+
+    system("program args 1>program.stdout 2>program.stderr");
+
+Ordering is important in all these examples. That's because the shell
+processes file descriptor redirections in strictly left to right order.
+
+    system("prog args 1>tmpfile 2>&1");
+    system("prog args 2>&1 1>tmpfile");
+
+The first command sends both standard out and standard error to the
+temporary file. The second command sends only the old standard output
+there, and the old standard error shows up on the old standard out.
+
+=head2 Why doesn't open() return an error when a pipe open fails?
+
+If the second argument to a piped C<open()> contains shell
+metacharacters, perl C<fork()>s, then C<exec()>s a shell to decode the
+metacharacters and eventually run the desired program. If the program
+couldn't be run, it's the shell that gets the message, not Perl. All
+your Perl program can find out is whether the shell itself could be
+successfully started. You can still capture the shell's STDERR and
+check it for error messages. See L<"How can I capture STDERR from an
+external command?"> elsewhere in this document, or use the
+L<IPC::Open3> module.
+
+If there are no shell metacharacters in the argument of C<open()>, Perl
+runs the command directly, without using the shell, and can correctly
+report whether the command started.
+
+=head2 What's wrong with using backticks in a void context?
+
+Strictly speaking, nothing. Stylistically speaking, it's not a good
+way to write maintainable code. Perl has several operators for
+running external commands. Backticks are one; they collect the output
+from the command for use in your program. The C<system> function is
+another; it doesn't do this.
+
+Writing backticks in your program sends a clear message to the readers
+of your code that you wanted to collect the output of the command.
+Why send a clear message that isn't true?
+
+Consider this line:
+
+    `cat /etc/termcap`;
+
+You forgot to check C<$?> to see whether the program even ran
+correctly. Even if you wrote
+
+    print `cat /etc/termcap`;
+
+this code could and probably should be written as
+
+    system("cat /etc/termcap") == 0
+    or die "cat program failed!";
+
+which will echo the cat command's output as it is generated, instead
+of waiting until the program has completed to print it out. It also
+checks the return value.
+
+C<system> also provides direct control over whether shell wildcard
+processing may take place, whereas backticks do not.
+
+=head2 How can I call backticks without shell processing?
+
+This is a bit tricky. You can't simply write the command
+like this:
+
+    @ok = `grep @opts '$search_string' @filenames`;
+
+As of Perl 5.8.0, you can use C<open()> with multiple arguments.
+Just like the list forms of C<system()> and C<exec()>, no shell
+escapes happen.
+
+    open( GREP, "-|", 'grep', @opts, $search_string, @filenames );
+    chomp(@ok = <GREP>);
+    close GREP;
+
+You can also:
+
+    my @ok = ();
+    if (open(GREP, "-|")) {
+        while (<GREP>) {
+            chomp;
+            push(@ok, $_);
+        }
+        close GREP;
+    } else {
+        exec 'grep', @opts, $search_string, @filenames;
+    }
+
+Just as with C<system()>, no shell escapes happen when you C<exec()> a
+list. Further examples of this can be found in L<perlipc/"Safe Pipe
+Opens">.
+
+Note that if you're using Windows, no solution to this vexing issue is
+even possible. Even though Perl emulates C<fork()>, you'll still be
+stuck, because Windows does not have an argc/argv-style API.
+
+=head2 Why can't my script read from STDIN after I gave it EOF (^D on Unix, ^Z on MS-DOS)?
+
+This happens only if your perl is compiled to use stdio instead of
+perlio, which is the default. Some (maybe all?) stdios set error and
+eof flags that you may need to clear. The L<POSIX> module defines
+C<clearerr()> that you can use. That is the technically correct way to
+do it. Here are some less reliable workarounds:
+
+=over 4
+
+=item 1
+
+Try keeping around the seekpointer and go there, like this:
+
+    my $where = tell($log_fh);
+    seek($log_fh, $where, 0);
+
+=item 2
+
+If that doesn't work, try seeking to a different part of the file and
+then back.
+
+=item 3
+
+If that doesn't work, try seeking to a different part of
+the file, reading something, and then seeking back.
+
+=item 4
+
+If that doesn't work, give up on your stdio package and use sysread.
+
+=back
+
+=head2 How can I convert my shell script to perl?
+
+Learn Perl and rewrite it. Seriously, there's no simple converter.
+Things that are awkward to do in the shell are easy to do in Perl, and
+this very awkwardness is what would make a shell->perl converter
+nigh-on impossible to write. By rewriting it, you'll think about what
+you're really trying to do, and hopefully will escape the shell's
+pipeline datastream paradigm, which while convenient for some matters,
+causes many inefficiencies.
+
+=head2 Can I use perl to run a telnet or ftp session?
+
+Try the L<Net::FTP>, L<TCP::Client>, and L<Net::Telnet> modules
+(available from CPAN).
+L<http://www.cpan.org/scripts/netstuff/telnet.emul.shar> will also help
+for emulating the telnet protocol, but L<Net::Telnet> is quite
+probably easier to use.
+
+If all you want to do is pretend to be telnet but don't need
+the initial telnet handshaking, then the standard dual-process
+approach will suffice:
+
+    use IO::Socket;             # new in 5.004
+    my $handle = IO::Socket::INET->new('www.perl.com:80')
+        or die "can't connect to port 80 on www.perl.com $!";
+    $handle->autoflush(1);
+    if (fork()) {               # XXX: undef means failure
+        select($handle);
+        print while <STDIN>;    # everything from stdin to socket
+    } else {
+        print while <$handle>;  # everything from socket to stdout
+    }
+    close $handle;
+    exit;
+
+=head2 How can I write expect in Perl?
+
+Once upon a time, there was a library called F<chat2.pl> (part of the
+standard perl distribution), which never really got finished. If you
+find it somewhere, I<don't use it>. These days, your best bet is to
+look at the L<Expect> module available from CPAN, which also requires two
+other modules from CPAN, L<IO::Pty> and L<IO::Stty>.
+
+=head2 Is there a way to hide perl's command line from programs such as "ps"?
+
+First of all note that if you're doing this for security reasons (to
+avoid people seeing passwords, for example) then you should rewrite
+your program so that critical information is never given as an
+argument. Hiding the arguments won't make your program completely
+secure.
+
+To actually alter the visible command line, you can assign to the
+variable $0 as documented in L<perlvar>. This won't work on all
+operating systems, though. Daemon programs like sendmail place their
+state there, as in:
+
+    $0 = "orcus [accepting connections]";
+
+=head2 I {changed directory, modified my environment} in a perl script. How come the change disappeared when I exited the script? How do I get my changes to be visible?
+
+=over 4
+
+=item Unix
+
+In the strictest sense, it can't be done--the script executes as a
+different process from the shell it was started from. Changes to a
+process are not reflected in its parent--only in any children
+created after the change. There is shell magic that may allow you to
+fake it by C<eval()>ing the script's output in your shell; check out the
+comp.unix.questions FAQ for details.
+
+=back
+
+=head2 How do I close a process's filehandle without waiting for it to complete?
+
+Assuming your system supports such things, just send an appropriate signal
+to the process (see L<perlfunc/"kill">). It's common to first send a TERM
+signal, wait a little bit, and then send a KILL signal to finish it off.
+
+=head2 How do I fork a daemon process?
+
+If by daemon process you mean one that's detached (disassociated from
+its tty), then the following process is reported to work on most
+Unixish systems. Non-Unix users should check their Your_OS::Process
+module for other solutions.
+
+=over 4
+
+=item *
+
+Open /dev/tty and use the TIOCNOTTY ioctl on it. See L<tty(1)>
+for details. Or better yet, you can just use the C<POSIX::setsid()>
+function, so you don't have to worry about process groups.
+
+=item *
+
+Change directory to /
+
+=item *
+
+Reopen STDIN, STDOUT, and STDERR so they're not connected to the old
+tty.
+
+=item *
+
+Background yourself like this:
+
+    fork && exit;
+
+=back
+
+The L<Proc::Daemon> module, available from CPAN, provides a function to
+perform these actions for you.
+
+=head2 How do I find out if I'm running interactively or not?
+
+(contributed by brian d foy)
+
+This is a difficult question to answer, and the best answer is
+only a guess.
+
+What do you really want to know? If you merely want to know if one of
+your filehandles is connected to a terminal, you can try the C<-t>
+file test:
+
+    if( -t STDOUT ) {
+        print "I'm connected to a terminal!\n";
+    }
+
+However, you might be out of luck if you expect that means there is a
+real person on the other side. With the L<Expect> module, another
+program can pretend to be a person. The program might even come close
+to passing the Turing test.
+
+The L<IO::Interactive> module does the best it can to give you an
+answer. Its C<is_interactive> function returns an output filehandle;
+that filehandle points to standard output if the module thinks the
+session is interactive. Otherwise, the filehandle is a null handle
+that simply discards the output:
+
+    use IO::Interactive;
+
+    print { is_interactive } "I might go to standard output!\n";
+
+This still doesn't guarantee that a real person is answering your
+prompts or reading your output.
+
+If you want to know how to handle automated testing for your
+distribution, you can check the environment. The CPAN
+Testers, for instance, set the value of C<AUTOMATED_TESTING>:
+
+    unless( $ENV{AUTOMATED_TESTING} ) {
+        print "Hello interactive tester!\n";
+    }
+
+=head2 How do I timeout a slow event?
+
+Use the C<alarm()> function, probably in conjunction with a signal
+handler, as documented in L<perlipc/"Signals"> and the section on
+"Signals" in the Camel. You may instead use the more flexible
+L<Sys::AlarmCall> module available from CPAN.
+
+The C<alarm()> function is not implemented on all versions of Windows.
+Check the documentation for your specific version of Perl.
+
+=head2 How do I set CPU limits?
+X<BSD::Resource> X<limit> X<CPU>
+
+(contributed by Xho)
+
+Use the L<BSD::Resource> module from CPAN. As an example:
+
+    use BSD::Resource;
+    setrlimit(RLIMIT_CPU,10,20) or die $!;
+
+This sets the soft and hard limits to 10 and 20 seconds, respectively.
+After 10 seconds of time spent running on the CPU (not "wall" time),
+the process will be sent a signal (XCPU on some systems) which, if not
+trapped, will cause the process to terminate. If that signal is
+trapped, then after 10 more seconds (20 seconds in total) the process
+will be killed with a non-trappable signal.
+
+See the L<BSD::Resource> and your systems documentation for the gory
+details.
+
+=head2 How do I avoid zombies on a Unix system?
+
+Use the reaper code from L<perlipc/"Signals"> to call C<wait()> when a
+SIGCHLD is received, or else use the double-fork technique described
+in L<perlfaq8/"How do I start a process in the background?">.
+
+=head2 How do I use an SQL database?
+
+The L<DBI> module provides an abstract interface to most database
+servers and types, including Oracle, DB2, Sybase, mysql, Postgresql,
+ODBC, and flat files. The DBI module accesses each database type
+through a database driver, or DBD. You can see a complete list of
+available drivers on CPAN: L<http://www.cpan.org/modules/by-module/DBD/> .
+You can read more about DBI on L<http://dbi.perl.org/> .
+
+Other modules provide more specific access: L<Win32::ODBC>, L<Alzabo>,
+C<iodbc>, and others found on CPAN Search: L<http://search.cpan.org/> .
+
+=head2 How do I make a system() exit on control-C?
+
+You can't. You need to imitate the C<system()> call (see L<perlipc> for
+sample code) and then have a signal handler for the INT signal that
+passes the signal on to the subprocess. Or you can check for it:
+
+    $rc = system($cmd);
+    if ($rc & 127) { die "signal death" }
+
+=head2 How do I open a file without blocking?
+
+If you're lucky enough to be using a system that supports
+non-blocking reads (most Unixish systems do), you need only to use the
+C<O_NDELAY> or C<O_NONBLOCK> flag from the C<Fcntl> module in conjunction with
+C<sysopen()>:
+
+    use Fcntl;
+    sysopen(my $fh, "/foo/somefile", O_WRONLY|O_NDELAY|O_CREAT, 0644)
+        or die "can't open /foo/somefile: $!":
+
+=head2 How do I tell the difference between errors from the shell and perl?
+
+(answer contributed by brian d foy)
+
+When you run a Perl script, something else is running the script for you,
+and that something else may output error messages. The script might
+emit its own warnings and error messages. Most of the time you cannot
+tell who said what.
+
+You probably cannot fix the thing that runs perl, but you can change how
+perl outputs its warnings by defining a custom warning and die functions.
+
+Consider this script, which has an error you may not notice immediately.
+
+    #!/usr/locl/bin/perl
+
+    print "Hello World\n";
+
+I get an error when I run this from my shell (which happens to be
+bash). That may look like perl forgot it has a C<print()> function,
+but my shebang line is not the path to perl, so the shell runs the
+script, and I get the error.
+
+    $ ./test
+    ./test: line 3: print: command not found
+
+A quick and dirty fix involves a little bit of code, but this may be all
+you need to figure out the problem.
+
+    #!/usr/bin/perl -w
+
+    BEGIN {
+        $SIG{__WARN__} = sub{ print STDERR "Perl: ", @_; };
+        $SIG{__DIE__}  = sub{ print STDERR "Perl: ", @_; exit 1};
+    }
+
+    $a = 1 + undef;
+    $x / 0;
+    __END__
+
+The perl message comes out with "Perl" in front. The C<BEGIN> block
+works at compile time so all of the compilation errors and warnings
+get the "Perl:" prefix too.
+
+    Perl: Useless use of division (/) in void context at ./test line 9.
+    Perl: Name "main::a" used only once: possible typo at ./test line 8.
+    Perl: Name "main::x" used only once: possible typo at ./test line 9.
+    Perl: Use of uninitialized value in addition (+) at ./test line 8.
+    Perl: Use of uninitialized value in division (/) at ./test line 9.
+    Perl: Illegal division by zero at ./test line 9.
+    Perl: Illegal division by zero at -e line 3.
+
+If I don't see that "Perl:", it's not from perl.
+
+You could also just know all the perl errors, and although there are
+some people who may know all of them, you probably don't. However, they
+all should be in the L<perldiag> manpage. If you don't find the error in
+there, it probably isn't a perl error.
+
+Looking up every message is not the easiest way, so let perl to do it
+for you. Use the diagnostics pragma with turns perl's normal messages
+into longer discussions on the topic.
+
+    use diagnostics;
+
+If you don't get a paragraph or two of expanded discussion, it
+might not be perl's message.
+
+=head2 How do I install a module from CPAN?
+
+(contributed by brian d foy)
+
+The easiest way is to have a module also named CPAN do it for you by using
+the C<cpan> command that comes with Perl. You can give it a list of modules
+to install:
+
+    $ cpan IO::Interactive Getopt::Whatever
+
+If you prefer C<CPANPLUS>, it's just as easy:
+
+    $ cpanp i IO::Interactive Getopt::Whatever
+
+If you want to install a distribution from the current directory, you can
+tell C<CPAN.pm> to install C<.> (the full stop):
+
+    $ cpan .
+
+See the documentation for either of those commands to see what else
+you can do.
+
+If you want to try to install a distribution by yourself, resolving
+all dependencies on your own, you follow one of two possible build
+paths.
+
+For distributions that use I<Makefile.PL>:
+
+    $ perl Makefile.PL
+    $ make test install
+
+For distributions that use I<Build.PL>:
+
+    $ perl Build.PL
+    $ ./Build test
+    $ ./Build install
+
+Some distributions may need to link to libraries or other third-party
+code and their build and installation sequences may be more complicated.
+Check any I<README> or I<INSTALL> files that you may find.
+
+=head2 What's the difference between require and use?
+
+(contributed by brian d foy)
+
+Perl runs C<require> statement at run-time. Once Perl loads, compiles,
+and runs the file, it doesn't do anything else. The C<use> statement
+is the same as a C<require> run at compile-time, but Perl also calls the
+C<import> method for the loaded package. These two are the same:
+
+    use MODULE qw(import list);
+
+    BEGIN {
+        require MODULE;
+        MODULE->import(import list);
+    }
+
+However, you can suppress the C<import> by using an explicit, empty
+import list. Both of these still happen at compile-time:
+
+    use MODULE ();
+
+    BEGIN {
+        require MODULE;
+    }
+
+Since C<use> will also call the C<import> method, the actual value
+for C<MODULE> must be a bareword. That is, C<use> cannot load files
+by name, although C<require> can:
+
+    require "$ENV{HOME}/lib/Foo.pm"; # no @INC searching!
+
+See the entry for C<use> in L<perlfunc> for more details.
+
+=head2 How do I keep my own module/library directory?
+
+When you build modules, tell Perl where to install the modules.
+
+If you want to install modules for your own use, the easiest way might
+be L<local::lib>, which you can download from CPAN. It sets various
+installation settings for you, and uses those same settings within
+your programs.
+
+If you want more flexibility, you need to configure your CPAN client
+for your particular situation.
+
+For C<Makefile.PL>-based distributions, use the INSTALL_BASE option
+when generating Makefiles:
+
+    perl Makefile.PL INSTALL_BASE=/mydir/perl
+
+You can set this in your C<CPAN.pm> configuration so modules
+automatically install in your private library directory when you use
+the CPAN.pm shell:
+
+    % cpan
+    cpan> o conf makepl_arg INSTALL_BASE=/mydir/perl
+    cpan> o conf commit
+
+For C<Build.PL>-based distributions, use the --install_base option:
+
+    perl Build.PL --install_base /mydir/perl
+
+You can configure C<CPAN.pm> to automatically use this option too:
+
+    % cpan
+    cpan> o conf mbuild_arg "--install_base /mydir/perl"
+    cpan> o conf commit
+
+INSTALL_BASE tells these tools to put your modules into
+F</mydir/perl/lib/perl5>. See L<How do I add a directory to my
+include path (@INC) at runtime?> for details on how to run your newly
+installed modules.
+
+There is one caveat with INSTALL_BASE, though, since it acts
+differently from the PREFIX and LIB settings that older versions of
+L<ExtUtils::MakeMaker> advocated. INSTALL_BASE does not support
+installing modules for multiple versions of Perl or different
+architectures under the same directory. You should consider whether you
+really want that and, if you do, use the older PREFIX and LIB
+settings. See the L<ExtUtils::Makemaker> documentation for more details.
+
+=head2 How do I add the directory my program lives in to the module/library search path?
+
+(contributed by brian d foy)
+
+If you know the directory already, you can add it to C<@INC> as you would
+for any other directory. You might <use lib> if you know the directory
+at compile time:
+
+    use lib $directory;
+
+The trick in this task is to find the directory. Before your script does
+anything else (such as a C<chdir>), you can get the current working
+directory with the C<Cwd> module, which comes with Perl:
+
+    BEGIN {
+        use Cwd;
+        our $directory = cwd;
+    }
+
+    use lib $directory;
+
+You can do a similar thing with the value of C<$0>, which holds the
+script name. That might hold a relative path, but C<rel2abs> can turn
+it into an absolute path. Once you have the
+
+    BEGIN {
+        use File::Spec::Functions qw(rel2abs);
+        use File::Basename qw(dirname);
+
+        my $path   = rel2abs( $0 );
+        our $directory = dirname( $path );
+    }
+
+    use lib $directory;
+
+The L<FindBin> module, which comes with Perl, might work. It finds the
+directory of the currently running script and puts it in C<$Bin>, which
+you can then use to construct the right library path:
+
+    use FindBin qw($Bin);
+
+You can also use L<local::lib> to do much of the same thing. Install
+modules using L<local::lib>'s settings then use the module in your
+program:
+
+     use local::lib; # sets up a local lib at ~/perl5
+
+See the L<local::lib> documentation for more details.
+
+=head2 How do I add a directory to my include path (@INC) at runtime?
+
+Here are the suggested ways of modifying your include path, including
+environment variables, run-time switches, and in-code statements:
+
+=over 4
+
+=item the C<PERLLIB> environment variable
+
+    $ export PERLLIB=/path/to/my/dir
+    $ perl program.pl
+
+=item the C<PERL5LIB> environment variable
+
+    $ export PERL5LIB=/path/to/my/dir
+    $ perl program.pl
+
+=item the C<perl -Idir> command line flag
+
+    $ perl -I/path/to/my/dir program.pl
+
+=item the C<lib> pragma:
+
+    use lib "$ENV{HOME}/myown_perllib";
+
+=item the L<local::lib> module:
+
+    use local::lib;
+
+    use local::lib "~/myown_perllib";
+
+=back
+
+The last is particularly useful because it knows about machine-dependent
+architectures. The C<lib.pm> pragmatic module was first
+included with the 5.002 release of Perl.
+
+=head2 Where are modules installed?
+
+Modules are installed on a case-by-case basis (as provided by the methods
+described in the previous section), and in the operating system. All of these
+paths are stored in @INC, which you can display with the one-liner
+
+    perl -e 'print join("\n",@INC,"")'
+
+The same information is displayed at the end of the output from the command
+
+    perl -V
+
+To find out where a module's source code is located, use
+
+    perldoc -l Encode
+
+to display the path to the module. In some cases (for example, the C<AutoLoader>
+module), this command will show the path to a separate C<pod> file; the module
+itself should be in the same directory, with a 'pm' file extension.
+
+=head2 What is socket.ph and where do I get it?
+
+It's a Perl 4 style file defining values for system networking
+constants. Sometimes it is built using L<h2ph> when Perl is installed,
+but other times it is not. Modern programs should use C<use Socket;>
+instead.
+
+=head1 AUTHOR AND COPYRIGHT
+
+Copyright (c) 1997-2010 Tom Christiansen, Nathan Torkington, and
+other authors as noted. All rights reserved.
+
+This documentation is free; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+Irrespective of its distribution, all code examples in this file
+are hereby placed into the public domain. You are permitted and
+encouraged to use this code in your own programs for fun
+or for profit as you see fit. A simple comment in the code giving
+credit would be courteous but is not required.
diff --git a/lib/5.24.1/pod/perlfaq9.pod b/lib/5.24.1/pod/perlfaq9.pod
new file mode 100644
index 00000000..bc687467
--- /dev/null
+++ b/lib/5.24.1/pod/perlfaq9.pod
@@ -0,0 +1,430 @@
+=head1 NAME
+
+perlfaq9 - Web, Email and Networking
+
+=head1 VERSION
+
+version 5.021010
+
+=head1 DESCRIPTION
+
+This section deals with questions related to running web sites,
+sending and receiving email as well as general networking.
+
+=head2 Should I use a web framework?
+
+Yes. If you are building a web site with any level of interactivity
+(forms / users / databases), you
+will want to use a framework to make handling requests
+and responses easier.
+
+If there is no interactivity then you may still want
+to look at using something like L<Template Toolkit|https://metacpan.org/module/Template>
+or L<Plack::Middleware::TemplateToolkit>
+so maintenance of your HTML files (and other assets) is easier.
+
+=head2 Which web framework should I use?
+X<framework> X<CGI.pm> X<CGI> X<Catalyst> X<Dancer>
+
+There is no simple answer to this question. Perl frameworks can run everything
+from basic file servers and small scale intranets to massive multinational
+multilingual websites that are the core to international businesses.
+
+Below is a list of a few frameworks with comments which might help you in
+making a decision, depending on your specific requirements. Start by reading
+the docs, then ask questions on the relevant mailing list or IRC channel.
+
+=over 4
+
+=item L<Catalyst>
+
+Strongly object-oriented and fully-featured with a long development history and
+a large community and addon ecosystem. It is excellent for large and complex
+applications, where you have full control over the server.
+
+=item L<Dancer>
+
+Young and free of legacy weight, providing a lightweight and easy to learn API.
+Has a growing addon ecosystem. It is best used for smaller projects and
+very easy to learn for beginners.
+
+=item L<Mojolicious>
+
+Fairly young with a focus on HTML5 and real-time web technologies such as
+WebSockets.
+
+=item L<Web::Simple>
+
+Currently experimental, strongly object-oriented, built for speed and intended
+as a toolkit for building micro web apps, custom frameworks or for tieing
+together existing Plack-compatible web applications with one central dispatcher.
+
+=back
+
+All of these interact with or use L<Plack> which is worth understanding
+the basics of when building a website in Perl (there is a lot of useful
+L<Plack::Middleware|https://metacpan.org/search?q=plack%3A%3Amiddleware>).
+
+=head2 What is Plack and PSGI?
+
+L<PSGI> is the Perl Web Server Gateway Interface Specification, it is
+a standard that many Perl web frameworks use, you should not need to
+understand it to build a web site, the part you might want to use is L<Plack>.
+
+L<Plack> is a set of tools for using the PSGI stack. It contains
+L<middleware|https://metacpan.org/search?q=plack%3A%3Amiddleware>
+components, a reference server and utilities for Web application frameworks.
+Plack is like Ruby's Rack or Python's Paste for WSGI.
+
+You could build a web site using L<Plack> and your own code,
+but for anything other than a very basic web site, using a web framework
+(that uses L<Plack>) is a better option.
+
+=head2 How do I remove HTML from a string?
+
+Use L<HTML::Strip>, or L<HTML::FormatText> which not only removes HTML
+but also attempts to do a little simple formatting of the resulting
+plain text.
+
+=head2 How do I extract URLs?
+
+L<HTML::SimpleLinkExtor> will extract URLs from HTML, it handles anchors,
+images, objects, frames, and many other tags that can contain a URL.
+If you need anything more complex, you can create your own subclass of
+L<HTML::LinkExtor> or L<HTML::Parser>. You might even use
+L<HTML::SimpleLinkExtor> as an example for something specifically
+suited to your needs.
+
+You can use L<URI::Find> to extract URLs from an arbitrary text document.
+
+=head2 How do I fetch an HTML file?
+
+(contributed by brian d foy)
+
+Use the libwww-perl distribution. The L<LWP::Simple> module can fetch web
+resources and give their content back to you as a string:
+
+    use LWP::Simple qw(get);
+
+    my $html = get( "http://www.example.com/index.html" );
+
+It can also store the resource directly in a file:
+
+    use LWP::Simple qw(getstore);
+
+    getstore( "http://www.example.com/index.html", "foo.html" );
+
+If you need to do something more complicated, you can use
+L<LWP::UserAgent> module to create your own user-agent (e.g. browser)
+to get the job done. If you want to simulate an interactive web
+browser, you can use the L<WWW::Mechanize> module.
+
+=head2 How do I automate an HTML form submission?
+
+If you are doing something complex, such as moving through many pages
+and forms or a web site, you can use L<WWW::Mechanize>. See its
+documentation for all the details.
+
+If you're submitting values using the GET method, create a URL and encode
+the form using the C<query_form> method:
+
+    use LWP::Simple;
+    use URI::URL;
+
+    my $url = url('L<http://www.perl.com/cgi-bin/cpan_mod')>;
+    $url->query_form(module => 'DB_File', readme => 1);
+    $content = get($url);
+
+If you're using the POST method, create your own user agent and encode
+the content appropriately.
+
+    use HTTP::Request::Common qw(POST);
+    use LWP::UserAgent;
+
+    my $ua = LWP::UserAgent->new();
+    my $req = POST 'L<http://www.perl.com/cgi-bin/cpan_mod'>,
+                   [ module => 'DB_File', readme => 1 ];
+    my $content = $ua->request($req)->as_string;
+
+=head2 How do I decode or create those %-encodings on the web?
+X<URI> X<URI::Escape> X<RFC 2396>
+
+Most of the time you should not need to do this as
+your web framework, or if you are making a request,
+the L<LWP> or other module would handle it for you.
+
+To encode a string yourself, use the L<URI::Escape> module. The C<uri_escape>
+function returns the escaped string:
+
+    my $original = "Colon : Hash # Percent %";
+
+    my $escaped = uri_escape( $original );
+
+    print "$escaped\n"; # 'Colon%20%3A%20Hash%20%23%20Percent%20%25'
+
+To decode the string, use the C<uri_unescape> function:
+
+    my $unescaped = uri_unescape( $escaped );
+
+    print $unescaped; # back to original
+
+Remember not to encode a full URI, you need to escape each
+component separately and then join them together.
+
+=head2 How do I redirect to another page?
+
+Most Perl Web Frameworks will have a mechanism for doing this,
+using the L<Catalyst> framework it would be:
+
+    $c->res->redirect($url);
+    $c->detach();
+
+If you are using Plack (which most frameworks do), then
+L<Plack::Middleware::Rewrite> is worth looking at if you
+are migrating from Apache or have URL's you want to always
+redirect.
+
+=head2 How do I put a password on my web pages?
+
+See if the web framework you are using has an
+authentication system and if that fits your needs.
+
+Alternativly look at L<Plack::Middleware::Auth::Basic>,
+or one of the other L<Plack authentication|https://metacpan.org/search?q=plack+auth>
+options.
+
+=head2 How do I make sure users can't enter values into a form that causes my CGI script to do bad things?
+
+(contributed by brian d foy)
+
+You can't prevent people from sending your script bad data. Even if
+you add some client-side checks, people may disable them or bypass
+them completely. For instance, someone might use a module such as
+L<LWP> to submit to your web site. If you want to prevent data that
+try to use SQL injection or other sorts of attacks (and you should
+want to), you have to not trust any data that enter your program.
+
+The L<perlsec> documentation has general advice about data security.
+If you are using the L<DBI> module, use placeholder to fill in data.
+If you are running external programs with C<system> or C<exec>, use
+the list forms. There are many other precautions that you should take,
+too many to list here, and most of them fall under the category of not
+using any data that you don't intend to use. Trust no one.
+
+=head2 How do I parse a mail header?
+
+Use the L<Email::MIME> module. It's well-tested and supports all the
+craziness that you'll see in the real world (comment-folding whitespace,
+encodings, comments, etc.).
+
+  use Email::MIME;
+
+  my $message = Email::MIME->new($rfc2822);
+  my $subject = $message->header('Subject');
+  my $from    = $message->header('From');
+
+If you've already got some other kind of email object, consider passing
+it to L<Email::Abstract> and then using its cast method to get an
+L<Email::MIME> object:
+
+  my $mail_message_object = read_message();
+  my $abstract = Email::Abstract->new($mail_message_object);
+  my $email_mime_object = $abstract->cast('Email::MIME');
+
+=head2 How do I check a valid mail address?
+
+(partly contributed by Aaron Sherman)
+
+This isn't as simple a question as it sounds. There are two parts:
+
+a) How do I verify that an email address is correctly formatted?
+
+b) How do I verify that an email address targets a valid recipient?
+
+Without sending mail to the address and seeing whether there's a human
+on the other end to answer you, you cannot fully answer part I<b>, but
+the L<Email::Valid> module will do both part I<a> and part I<b> as far
+as you can in real-time.
+
+Our best advice for verifying a person's mail address is to have them
+enter their address twice, just as you normally do to change a
+password. This usually weeds out typos. If both versions match, send
+mail to that address with a personal message. If you get the message
+back and they've followed your directions, you can be reasonably
+assured that it's real.
+
+A related strategy that's less open to forgery is to give them a PIN
+(personal ID number). Record the address and PIN (best that it be a
+random one) for later processing. In the mail you send, include a link to
+your site with the PIN included. If the mail bounces, you know it's not
+valid. If they don't click on the link, either they forged the address or
+(assuming they got the message) following through wasn't important so you
+don't need to worry about it.
+
+=head2 How do I decode a MIME/BASE64 string?
+
+The L<MIME::Base64> package handles this as well as the MIME/QP encoding.
+Decoding base 64 becomes as simple as:
+
+    use MIME::Base64;
+    my $decoded = decode_base64($encoded);
+
+The L<Email::MIME> module can decode base 64-encoded email message parts
+transparently so the developer doesn't need to worry about it.
+
+=head2 How do I find the user's mail address?
+
+Ask them for it. There are so many email providers available that it's
+unlikely the local system has any idea how to determine a user's email address.
+
+The exception is for organization-specific email (e.g. foo@yourcompany.com)
+where policy can be codified in your program. In that case, you could look at
+$ENV{USER}, $ENV{LOGNAME}, and getpwuid($<) in scalar context, like so:
+
+  my $user_name = getpwuid($<)
+
+But you still cannot make assumptions about whether this is correct, unless
+your policy says it is. You really are best off asking the user.
+
+=head2 How do I send email?
+
+Use the L<Email::MIME> and L<Email::Sender::Simple> modules, like so:
+
+  # first, create your message
+  my $message = Email::MIME->create(
+    header_str => [
+      From    => 'you@example.com',
+      To      => 'friend@example.com',
+      Subject => 'Happy birthday!',
+    ],
+    attributes => {
+      encoding => 'quoted-printable',
+      charset  => 'utf-8',
+    },
+    body_str => "Happy birthday to you!\n",
+  );
+
+  use Email::Sender::Simple qw(sendmail);
+  sendmail($message);
+
+By default, L<Email::Sender::Simple> will try `sendmail` first, if it exists
+in your $PATH. This generally isn't the case. If there's a remote mail
+server you use to send mail, consider investigating one of the Transport
+classes. At time of writing, the available transports include:
+
+=over 4
+
+=item L<Email::Sender::Transport::Sendmail>
+
+This is the default. If you can use the L<mail(1)> or L<mailx(1)>
+program to send mail from the machine where your code runs, you should
+be able to use this.
+
+=item L<Email::Sender::Transport::SMTP>
+
+This transport contacts a remote SMTP server over TCP. It optionally
+uses SSL and can authenticate to the server via SASL.
+
+=item L<Email::Sender::Transport::SMTP::TLS>
+
+This is like the SMTP transport, but uses TLS security. You can
+authenticate with this module as well, using any mechanisms your server
+supports after STARTTLS.
+
+=back
+
+Telling L<Email::Sender::Simple> to use your transport is straightforward.
+
+  sendmail(
+    $message,
+    {
+      transport => $email_sender_transport_object,
+    }
+  );
+
+=head2 How do I use MIME to make an attachment to a mail message?
+
+L<Email::MIME> directly supports multipart messages. L<Email::MIME>
+objects themselves are parts and can be attached to other L<Email::MIME>
+objects. Consult the L<Email::MIME> documentation for more information,
+including all of the supported methods and examples of their use.
+
+=head2 How do I read email?
+
+Use the L<Email::Folder> module, like so:
+
+  use Email::Folder;
+
+  my $folder = Email::Folder->new('/path/to/email/folder');
+  while(my $message = $folder->next_message) {
+    # next_message returns Email::Simple objects, but we want
+    # Email::MIME objects as they're more robust
+    my $mime = Email::MIME->new($message->as_string);
+  }
+
+There are different classes in the L<Email::Folder> namespace for
+supporting various mailbox types. Note that these modules are generally
+rather limited and only support B<reading> rather than writing.
+
+=head2 How do I find out my hostname, domainname, or IP address?
+X<hostname, domainname, IP address, host, domain, hostfqdn, inet_ntoa,
+gethostbyname, Socket, Net::Domain, Sys::Hostname>
+
+(contributed by brian d foy)
+
+The L<Net::Domain> module, which is part of the Standard Library starting
+in Perl 5.7.3, can get you the fully qualified domain name (FQDN), the host
+name, or the domain name.
+
+    use Net::Domain qw(hostname hostfqdn hostdomain);
+
+    my $host = hostfqdn();
+
+The L<Sys::Hostname> module, part of the Standard Library, can also get the
+hostname:
+
+    use Sys::Hostname;
+
+    $host = hostname();
+
+
+The L<Sys::Hostname::Long> module takes a different approach and tries
+harder to return the fully qualified hostname:
+
+  use Sys::Hostname::Long 'hostname_long';
+
+  my $hostname = hostname_long();
+
+To get the IP address, you can use the C<gethostbyname> built-in function
+to turn the name into a number. To turn that number into the dotted octet
+form (a.b.c.d) that most people expect, use the C<inet_ntoa> function
+from the L<Socket> module, which also comes with perl.
+
+    use Socket;
+
+    my $address = inet_ntoa(
+        scalar gethostbyname( $host || 'localhost' )
+    );
+
+=head2 How do I fetch/put an (S)FTP file?
+
+L<Net::FTP>, and L<Net::SFTP> allow you to interact with FTP and SFTP (Secure
+FTP) servers.
+
+=head2 How can I do RPC in Perl?
+
+Use one of the RPC modules( L<https://metacpan.org/search?q=RPC> ).
+
+=head1 AUTHOR AND COPYRIGHT
+
+Copyright (c) 1997-2010 Tom Christiansen, Nathan Torkington, and
+other authors as noted. All rights reserved.
+
+This documentation is free; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+Irrespective of its distribution, all code examples in this file
+are hereby placed into the public domain. You are permitted and
+encouraged to use this code in your own programs for fun
+or for profit as you see fit. A simple comment in the code giving
+credit would be courteous but is not required.
diff --git a/lib/5.24.1/pod/perlfilter.pod b/lib/5.24.1/pod/perlfilter.pod
new file mode 100644
index 00000000..60d08640
--- /dev/null
+++ b/lib/5.24.1/pod/perlfilter.pod
@@ -0,0 +1,613 @@
+=head1 NAME
+
+perlfilter - Source Filters
+
+=head1 DESCRIPTION
+
+This article is about a little-known feature of Perl called
+I<source filters>. Source filters alter the program text of a module
+before Perl sees it, much as a C preprocessor alters the source text of
+a C program before the compiler sees it. This article tells you more
+about what source filters are, how they work, and how to write your
+own.
+
+The original purpose of source filters was to let you encrypt your
+program source to prevent casual piracy. This isn't all they can do, as
+you'll soon learn. But first, the basics.
+
+=head1 CONCEPTS
+
+Before the Perl interpreter can execute a Perl script, it must first
+read it from a file into memory for parsing and compilation. If that
+script itself includes other scripts with a C<use> or C<require>
+statement, then each of those scripts will have to be read from their
+respective files as well.
+
+Now think of each logical connection between the Perl parser and an
+individual file as a I<source stream>. A source stream is created when
+the Perl parser opens a file, it continues to exist as the source code
+is read into memory, and it is destroyed when Perl is finished parsing
+the file. If the parser encounters a C<require> or C<use> statement in
+a source stream, a new and distinct stream is created just for that
+file.
+
+The diagram below represents a single source stream, with the flow of
+source from a Perl script file on the left into the Perl parser on the
+right. This is how Perl normally operates.
+
+    file -------> parser
+
+There are two important points to remember:
+
+=over 5
+
+=item 1.
+
+Although there can be any number of source streams in existence at any
+given time, only one will be active.
+
+=item 2.
+
+Every source stream is associated with only one file.
+
+=back
+
+A source filter is a special kind of Perl module that intercepts and
+modifies a source stream before it reaches the parser. A source filter
+changes our diagram like this:
+
+    file ----> filter ----> parser
+
+If that doesn't make much sense, consider the analogy of a command
+pipeline. Say you have a shell script stored in the compressed file
+I<trial.gz>. The simple pipeline command below runs the script without
+needing to create a temporary file to hold the uncompressed file.
+
+    gunzip -c trial.gz | sh
+
+In this case, the data flow from the pipeline can be represented as follows:
+
+    trial.gz ----> gunzip ----> sh
+
+With source filters, you can store the text of your script compressed and use a source filter to uncompress it for Perl's parser:
+
+     compressed           gunzip
+    Perl program ---> source filter ---> parser
+
+=head1 USING FILTERS
+
+So how do you use a source filter in a Perl script? Above, I said that
+a source filter is just a special kind of module. Like all Perl
+modules, a source filter is invoked with a use statement.
+
+Say you want to pass your Perl source through the C preprocessor before
+execution. As it happens, the source filters distribution comes with a C
+preprocessor filter module called Filter::cpp.
+
+Below is an example program, C<cpp_test>, which makes use of this filter.
+Line numbers have been added to allow specific lines to be referenced
+easily.
+
+    1: use Filter::cpp;
+    2: #define TRUE 1
+    3: $a = TRUE;
+    4: print "a = $a\n";
+
+When you execute this script, Perl creates a source stream for the
+file. Before the parser processes any of the lines from the file, the
+source stream looks like this:
+
+    cpp_test ---------> parser
+
+Line 1, C<use Filter::cpp>, includes and installs the C<cpp> filter
+module. All source filters work this way. The use statement is compiled
+and executed at compile time, before any more of the file is read, and
+it attaches the cpp filter to the source stream behind the scenes. Now
+the data flow looks like this:
+
+    cpp_test ----> cpp filter ----> parser
+
+As the parser reads the second and subsequent lines from the source
+stream, it feeds those lines through the C<cpp> source filter before
+processing them. The C<cpp> filter simply passes each line through the
+real C preprocessor. The output from the C preprocessor is then
+inserted back into the source stream by the filter.
+
+                  .-> cpp --.
+                  |         |
+                  |         |
+                  |       <-'
+   cpp_test ----> cpp filter ----> parser
+
+The parser then sees the following code:
+
+    use Filter::cpp;
+    $a = 1;
+    print "a = $a\n";
+
+Let's consider what happens when the filtered code includes another
+module with use:
+
+    1: use Filter::cpp;
+    2: #define TRUE 1
+    3: use Fred;
+    4: $a = TRUE;
+    5: print "a = $a\n";
+
+The C<cpp> filter does not apply to the text of the Fred module, only
+to the text of the file that used it (C<cpp_test>). Although the use
+statement on line 3 will pass through the cpp filter, the module that
+gets included (C<Fred>) will not. The source streams look like this
+after line 3 has been parsed and before line 4 is parsed:
+
+    cpp_test ---> cpp filter ---> parser (INACTIVE)
+
+    Fred.pm ----> parser
+
+As you can see, a new stream has been created for reading the source
+from C<Fred.pm>. This stream will remain active until all of C<Fred.pm>
+has been parsed. The source stream for C<cpp_test> will still exist,
+but is inactive. Once the parser has finished reading Fred.pm, the
+source stream associated with it will be destroyed. The source stream
+for C<cpp_test> then becomes active again and the parser reads line 4
+and subsequent lines from C<cpp_test>.
+
+You can use more than one source filter on a single file. Similarly,
+you can reuse the same filter in as many files as you like.
+
+For example, if you have a uuencoded and compressed source file, it is
+possible to stack a uudecode filter and an uncompression filter like
+this:
+
+    use Filter::uudecode; use Filter::uncompress;
+    M'XL(".H<US4''V9I;F%L')Q;>7/;1I;_>_I3=&E=%:F*I"T?22Q/
+    M6]9*<IQCO*XFT"0[PL%%'Y+IG?WN^ZYN-$'J.[.JE$,20/?K=_[>
+    ...
+
+Once the first line has been processed, the flow will look like this:
+
+    file ---> uudecode ---> uncompress ---> parser
+               filter         filter
+
+Data flows through filters in the same order they appear in the source
+file. The uudecode filter appeared before the uncompress filter, so the
+source file will be uudecoded before it's uncompressed.
+
+=head1 WRITING A SOURCE FILTER
+
+There are three ways to write your own source filter. You can write it
+in C, use an external program as a filter, or write the filter in Perl.
+I won't cover the first two in any great detail, so I'll get them out
+of the way first. Writing the filter in Perl is most convenient, so
+I'll devote the most space to it.
+
+=head1 WRITING A SOURCE FILTER IN C
+
+The first of the three available techniques is to write the filter
+completely in C. The external module you create interfaces directly
+with the source filter hooks provided by Perl.
+
+The advantage of this technique is that you have complete control over
+the implementation of your filter. The big disadvantage is the
+increased complexity required to write the filter - not only do you
+need to understand the source filter hooks, but you also need a
+reasonable knowledge of Perl guts. One of the few times it is worth
+going to this trouble is when writing a source scrambler. The
+C<decrypt> filter (which unscrambles the source before Perl parses it)
+included with the source filter distribution is an example of a C
+source filter (see Decryption Filters, below).
+
+
+=over 5
+
+=item B<Decryption Filters>
+
+All decryption filters work on the principle of "security through
+obscurity." Regardless of how well you write a decryption filter and
+how strong your encryption algorithm is, anyone determined enough can
+retrieve the original source code. The reason is quite simple - once
+the decryption filter has decrypted the source back to its original
+form, fragments of it will be stored in the computer's memory as Perl
+parses it. The source might only be in memory for a short period of
+time, but anyone possessing a debugger, skill, and lots of patience can
+eventually reconstruct your program.
+
+That said, there are a number of steps that can be taken to make life
+difficult for the potential cracker. The most important: Write your
+decryption filter in C and statically link the decryption module into
+the Perl binary. For further tips to make life difficult for the
+potential cracker, see the file I<decrypt.pm> in the source filters
+distribution.
+
+=back
+
+=head1 CREATING A SOURCE FILTER AS A SEPARATE EXECUTABLE
+
+An alternative to writing the filter in C is to create a separate
+executable in the language of your choice. The separate executable
+reads from standard input, does whatever processing is necessary, and
+writes the filtered data to standard output. C<Filter::cpp> is an
+example of a source filter implemented as a separate executable - the
+executable is the C preprocessor bundled with your C compiler.
+
+The source filter distribution includes two modules that simplify this
+task: C<Filter::exec> and C<Filter::sh>. Both allow you to run any
+external executable. Both use a coprocess to control the flow of data
+into and out of the external executable. (For details on coprocesses,
+see Stephens, W.R., "Advanced Programming in the UNIX Environment."
+Addison-Wesley, ISBN 0-210-56317-7, pages 441-445.) The difference
+between them is that C<Filter::exec> spawns the external command
+directly, while C<Filter::sh> spawns a shell to execute the external
+command. (Unix uses the Bourne shell; NT uses the cmd shell.) Spawning
+a shell allows you to make use of the shell metacharacters and
+redirection facilities.
+
+Here is an example script that uses C<Filter::sh>:
+
+    use Filter::sh 'tr XYZ PQR';
+    $a = 1;
+    print "XYZ a = $a\n";
+
+The output you'll get when the script is executed:
+
+    PQR a = 1
+
+Writing a source filter as a separate executable works fine, but a
+small performance penalty is incurred. For example, if you execute the
+small example above, a separate subprocess will be created to run the
+Unix C<tr> command. Each use of the filter requires its own subprocess.
+If creating subprocesses is expensive on your system, you might want to
+consider one of the other options for creating source filters.
+
+=head1 WRITING A SOURCE FILTER IN PERL
+
+The easiest and most portable option available for creating your own
+source filter is to write it completely in Perl. To distinguish this
+from the previous two techniques, I'll call it a Perl source filter.
+
+To help understand how to write a Perl source filter we need an example
+to study. Here is a complete source filter that performs rot13
+decoding. (Rot13 is a very simple encryption scheme used in Usenet
+postings to hide the contents of offensive posts. It moves every letter
+forward thirteen places, so that A becomes N, B becomes O, and Z
+becomes M.)
+
+
+   package Rot13;
+
+   use Filter::Util::Call;
+
+   sub import {
+      my ($type) = @_;
+      my ($ref) = [];
+      filter_add(bless $ref);
+   }
+
+   sub filter {
+      my ($self) = @_;
+      my ($status);
+
+      tr/n-za-mN-ZA-M/a-zA-Z/
+         if ($status = filter_read()) > 0;
+      $status;
+   }
+
+   1;
+
+All Perl source filters are implemented as Perl classes and have the
+same basic structure as the example above.
+
+First, we include the C<Filter::Util::Call> module, which exports a
+number of functions into your filter's namespace. The filter shown
+above uses two of these functions, C<filter_add()> and
+C<filter_read()>.
+
+Next, we create the filter object and associate it with the source
+stream by defining the C<import> function. If you know Perl well
+enough, you know that C<import> is called automatically every time a
+module is included with a use statement. This makes C<import> the ideal
+place to both create and install a filter object.
+
+In the example filter, the object (C<$ref>) is blessed just like any
+other Perl object. Our example uses an anonymous array, but this isn't
+a requirement. Because this example doesn't need to store any context
+information, we could have used a scalar or hash reference just as
+well. The next section demonstrates context data.
+
+The association between the filter object and the source stream is made
+with the C<filter_add()> function. This takes a filter object as a
+parameter (C<$ref> in this case) and installs it in the source stream.
+
+Finally, there is the code that actually does the filtering. For this
+type of Perl source filter, all the filtering is done in a method
+called C<filter()>. (It is also possible to write a Perl source filter
+using a closure. See the C<Filter::Util::Call> manual page for more
+details.) It's called every time the Perl parser needs another line of
+source to process. The C<filter()> method, in turn, reads lines from
+the source stream using the C<filter_read()> function.
+
+If a line was available from the source stream, C<filter_read()>
+returns a status value greater than zero and appends the line to C<$_>.
+A status value of zero indicates end-of-file, less than zero means an
+error. The filter function itself is expected to return its status in
+the same way, and put the filtered line it wants written to the source
+stream in C<$_>. The use of C<$_> accounts for the brevity of most Perl
+source filters.
+
+In order to make use of the rot13 filter we need some way of encoding
+the source file in rot13 format. The script below, C<mkrot13>, does
+just that.
+
+    die "usage mkrot13 filename\n" unless @ARGV;
+    my $in = $ARGV[0];
+    my $out = "$in.tmp";
+    open(IN, "<$in") or die "Cannot open file $in: $!\n";
+    open(OUT, ">$out") or die "Cannot open file $out: $!\n";
+
+    print OUT "use Rot13;\n";
+    while (<IN>) {
+       tr/a-zA-Z/n-za-mN-ZA-M/;
+       print OUT;
+    }
+
+    close IN;
+    close OUT;
+    unlink $in;
+    rename $out, $in;
+
+If we encrypt this with C<mkrot13>:
+
+    print " hello fred \n";
+
+the result will be this:
+
+    use Rot13;
+    cevag "uryyb serq\a";
+
+Running it produces this output:
+
+    hello fred
+
+=head1 USING CONTEXT: THE DEBUG FILTER
+
+The rot13 example was a trivial example. Here's another demonstration
+that shows off a few more features.
+
+Say you wanted to include a lot of debugging code in your Perl script
+during development, but you didn't want it available in the released
+product. Source filters offer a solution. In order to keep the example
+simple, let's say you wanted the debugging output to be controlled by
+an environment variable, C<DEBUG>. Debugging code is enabled if the
+variable exists, otherwise it is disabled.
+
+Two special marker lines will bracket debugging code, like this:
+
+    ## DEBUG_BEGIN
+    if ($year > 1999) {
+       warn "Debug: millennium bug in year $year\n";
+    }
+    ## DEBUG_END
+
+The filter ensures that Perl parses the code between the <DEBUG_BEGIN>
+and C<DEBUG_END> markers only when the C<DEBUG> environment variable
+exists. That means that when C<DEBUG> does exist, the code above
+should be passed through the filter unchanged. The marker lines can
+also be passed through as-is, because the Perl parser will see them as
+comment lines. When C<DEBUG> isn't set, we need a way to disable the
+debug code. A simple way to achieve that is to convert the lines
+between the two markers into comments:
+
+    ## DEBUG_BEGIN
+    #if ($year > 1999) {
+    #     warn "Debug: millennium bug in year $year\n";
+    #}
+    ## DEBUG_END
+
+Here is the complete Debug filter:
+
+    package Debug;
+
+    use strict;
+    use warnings;
+    use Filter::Util::Call;
+
+    use constant TRUE => 1;
+    use constant FALSE => 0;
+
+    sub import {
+       my ($type) = @_;
+       my (%context) = (
+         Enabled => defined $ENV{DEBUG},
+         InTraceBlock => FALSE,
+         Filename => (caller)[1],
+         LineNo => 0,
+         LastBegin => 0,
+       );
+       filter_add(bless \%context);
+    }
+
+    sub Die {
+       my ($self) = shift;
+       my ($message) = shift;
+       my ($line_no) = shift || $self->{LastBegin};
+       die "$message at $self->{Filename} line $line_no.\n"
+    }
+
+    sub filter {
+       my ($self) = @_;
+       my ($status);
+       $status = filter_read();
+       ++ $self->{LineNo};
+
+       # deal with EOF/error first
+       if ($status <= 0) {
+           $self->Die("DEBUG_BEGIN has no DEBUG_END")
+               if $self->{InTraceBlock};
+           return $status;
+       }
+
+       if ($self->{InTraceBlock}) {
+          if (/^\s*##\s*DEBUG_BEGIN/ ) {
+              $self->Die("Nested DEBUG_BEGIN", $self->{LineNo})
+          } elsif (/^\s*##\s*DEBUG_END/) {
+              $self->{InTraceBlock} = FALSE;
+          }
+
+          # comment out the debug lines when the filter is disabled
+          s/^/#/ if ! $self->{Enabled};
+       } elsif ( /^\s*##\s*DEBUG_BEGIN/ ) {
+          $self->{InTraceBlock} = TRUE;
+          $self->{LastBegin} = $self->{LineNo};
+       } elsif ( /^\s*##\s*DEBUG_END/ ) {
+          $self->Die("DEBUG_END has no DEBUG_BEGIN", $self->{LineNo});
+       }
+       return $status;
+    }
+
+    1;
+
+The big difference between this filter and the previous example is the
+use of context data in the filter object. The filter object is based on
+a hash reference, and is used to keep various pieces of context
+information between calls to the filter function. All but two of the
+hash fields are used for error reporting. The first of those two,
+Enabled, is used by the filter to determine whether the debugging code
+should be given to the Perl parser. The second, InTraceBlock, is true
+when the filter has encountered a C<DEBUG_BEGIN> line, but has not yet
+encountered the following C<DEBUG_END> line.
+
+If you ignore all the error checking that most of the code does, the
+essence of the filter is as follows:
+
+    sub filter {
+       my ($self) = @_;
+       my ($status);
+       $status = filter_read();
+
+       # deal with EOF/error first
+       return $status if $status <= 0;
+       if ($self->{InTraceBlock}) {
+          if (/^\s*##\s*DEBUG_END/) {
+             $self->{InTraceBlock} = FALSE
+          }
+
+          # comment out debug lines when the filter is disabled
+          s/^/#/ if ! $self->{Enabled};
+       } elsif ( /^\s*##\s*DEBUG_BEGIN/ ) {
+          $self->{InTraceBlock} = TRUE;
+       }
+       return $status;
+    }
+
+Be warned: just as the C-preprocessor doesn't know C, the Debug filter
+doesn't know Perl. It can be fooled quite easily:
+
+    print <<EOM;
+    ##DEBUG_BEGIN
+    EOM
+
+Such things aside, you can see that a lot can be achieved with a modest
+amount of code.
+
+=head1 CONCLUSION
+
+You now have better understanding of what a source filter is, and you
+might even have a possible use for them. If you feel like playing with
+source filters but need a bit of inspiration, here are some extra
+features you could add to the Debug filter.
+
+First, an easy one. Rather than having debugging code that is
+all-or-nothing, it would be much more useful to be able to control
+which specific blocks of debugging code get included. Try extending the
+syntax for debug blocks to allow each to be identified. The contents of
+the C<DEBUG> environment variable can then be used to control which
+blocks get included.
+
+Once you can identify individual blocks, try allowing them to be
+nested. That isn't difficult either.
+
+Here is an interesting idea that doesn't involve the Debug filter.
+Currently Perl subroutines have fairly limited support for formal
+parameter lists. You can specify the number of parameters and their
+type, but you still have to manually take them out of the C<@_> array
+yourself. Write a source filter that allows you to have a named
+parameter list. Such a filter would turn this:
+
+    sub MySub ($first, $second, @rest) { ... }
+
+into this:
+
+    sub MySub($$@) {
+       my ($first) = shift;
+       my ($second) = shift;
+       my (@rest) = @_;
+       ...
+    }
+
+Finally, if you feel like a real challenge, have a go at writing a
+full-blown Perl macro preprocessor as a source filter. Borrow the
+useful features from the C preprocessor and any other macro processors
+you know. The tricky bit will be choosing how much knowledge of Perl's
+syntax you want your filter to have.
+
+=head1 LIMITATIONS
+
+Source filters only work on the string level, thus are highly limited
+in its ability to change source code on the fly. It cannot detect
+comments, quoted strings, heredocs, it is no replacement for a real
+parser.
+The only stable usage for source filters are encryption, compression,
+or the byteloader, to translate binary code back to source code.
+
+See for example the limitations in L<Switch>, which uses source filters,
+and thus is does not work inside a string eval, the presence of
+regexes with embedded newlines that are specified with raw C</.../>
+delimiters and don't have a modifier C<//x> are indistinguishable from
+code chunks beginning with the division operator C</>. As a workaround
+you must use C<m/.../> or C<m?...?> for such patterns. Also, the presence of
+regexes specified with raw C<?...?> delimiters may cause mysterious
+errors. The workaround is to use C<m?...?> instead.  See
+L<http://search.cpan.org/perldoc?Switch#LIMITATIONS>
+
+Currently the content of the C<__DATA__> block is not filtered.
+
+Currently internal buffer lengths are limited to 32-bit only.
+
+
+=head1 THINGS TO LOOK OUT FOR
+
+=over 5
+
+=item Some Filters Clobber the C<DATA> Handle
+
+Some source filters use the C<DATA> handle to read the calling program.
+When using these source filters you cannot rely on this handle, nor expect
+any particular kind of behavior when operating on it.  Filters based on
+Filter::Util::Call (and therefore Filter::Simple) do not alter the C<DATA>
+filehandle, but on the other hand totally ignore the text after C<__DATA__>.
+
+=back
+
+=head1 REQUIREMENTS
+
+The Source Filters distribution is available on CPAN, in 
+
+    CPAN/modules/by-module/Filter
+
+Starting from Perl 5.8 Filter::Util::Call (the core part of the
+Source Filters distribution) is part of the standard Perl distribution.
+Also included is a friendlier interface called Filter::Simple, by
+Damian Conway.
+
+=head1 AUTHOR
+
+Paul Marquess E<lt>Paul.Marquess@btinternet.comE<gt>
+
+Reini Urban E<lt>rurban@cpan.orgE<gt>
+
+=head1 Copyrights
+
+The first version of this article originally appeared in The Perl
+Journal #11, and is copyright 1998 The Perl Journal. It appears
+courtesy of Jon Orwant and The Perl Journal.  This document may be
+distributed under the same terms as Perl itself.
diff --git a/lib/5.24.1/pod/perlfork.pod b/lib/5.24.1/pod/perlfork.pod
new file mode 100644
index 00000000..c118fb51
--- /dev/null
+++ b/lib/5.24.1/pod/perlfork.pod
@@ -0,0 +1,357 @@
+=head1 NAME
+
+perlfork - Perl's fork() emulation
+
+=head1 SYNOPSIS
+
+    NOTE:  As of the 5.8.0 release, fork() emulation has considerably
+    matured.  However, there are still a few known bugs and differences
+    from real fork() that might affect you.  See the "BUGS" and
+    "CAVEATS AND LIMITATIONS" sections below.
+
+Perl provides a fork() keyword that corresponds to the Unix system call
+of the same name.  On most Unix-like platforms where the fork() system
+call is available, Perl's fork() simply calls it.
+
+On some platforms such as Windows where the fork() system call is not
+available, Perl can be built to emulate fork() at the interpreter level.
+While the emulation is designed to be as compatible as possible with the
+real fork() at the level of the Perl program, there are certain
+important differences that stem from the fact that all the pseudo child
+"processes" created this way live in the same real process as far as the
+operating system is concerned.
+
+This document provides a general overview of the capabilities and
+limitations of the fork() emulation.  Note that the issues discussed here
+are not applicable to platforms where a real fork() is available and Perl
+has been configured to use it.
+
+=head1 DESCRIPTION
+
+The fork() emulation is implemented at the level of the Perl interpreter.
+What this means in general is that running fork() will actually clone the
+running interpreter and all its state, and run the cloned interpreter in
+a separate thread, beginning execution in the new thread just after the
+point where the fork() was called in the parent.  We will refer to the
+thread that implements this child "process" as the pseudo-process.
+
+To the Perl program that called fork(), all this is designed to be
+transparent.  The parent returns from the fork() with a pseudo-process
+ID that can be subsequently used in any process-manipulation functions;
+the child returns from the fork() with a value of C<0> to signify that
+it is the child pseudo-process.
+
+=head2 Behavior of other Perl features in forked pseudo-processes
+
+Most Perl features behave in a natural way within pseudo-processes.
+
+=over 8
+
+=item $$ or $PROCESS_ID
+
+This special variable is correctly set to the pseudo-process ID.
+It can be used to identify pseudo-processes within a particular
+session.  Note that this value is subject to recycling if any
+pseudo-processes are launched after others have been wait()-ed on.
+
+=item %ENV
+
+Each pseudo-process maintains its own virtual environment.  Modifications
+to %ENV affect the virtual environment, and are only visible within that
+pseudo-process, and in any processes (or pseudo-processes) launched from
+it.
+
+=item chdir() and all other builtins that accept filenames
+
+Each pseudo-process maintains its own virtual idea of the current directory.
+Modifications to the current directory using chdir() are only visible within
+that pseudo-process, and in any processes (or pseudo-processes) launched from
+it.  All file and directory accesses from the pseudo-process will correctly
+map the virtual working directory to the real working directory appropriately.
+
+=item wait() and waitpid()
+
+wait() and waitpid() can be passed a pseudo-process ID returned by fork().
+These calls will properly wait for the termination of the pseudo-process
+and return its status.
+
+=item kill()
+
+C<kill('KILL', ...)> can be used to terminate a pseudo-process by
+passing it the ID returned by fork(). The outcome of kill on a pseudo-process
+is unpredictable and it should not be used except
+under dire circumstances, because the operating system may not
+guarantee integrity of the process resources when a running thread is
+terminated.  The process which implements the pseudo-processes can be blocked
+and the Perl interpreter hangs. Note that using C<kill('KILL', ...)> on a
+pseudo-process() may typically cause memory leaks, because the thread
+that implements the pseudo-process does not get a chance to clean up
+its resources.
+
+C<kill('TERM', ...)> can also be used on pseudo-processes, but the
+signal will not be delivered while the pseudo-process is blocked by a
+system call, e.g. waiting for a socket to connect, or trying to read
+from a socket with no data available.  Starting in Perl 5.14 the
+parent process will not wait for children to exit once they have been
+signalled with C<kill('TERM', ...)> to avoid deadlock during process
+exit.  You will have to explicitly call waitpid() to make sure the
+child has time to clean-up itself, but you are then also responsible
+that the child is not blocking on I/O either.
+
+=item exec()
+
+Calling exec() within a pseudo-process actually spawns the requested
+executable in a separate process and waits for it to complete before
+exiting with the same exit status as that process.  This means that the
+process ID reported within the running executable will be different from
+what the earlier Perl fork() might have returned.  Similarly, any process
+manipulation functions applied to the ID returned by fork() will affect the
+waiting pseudo-process that called exec(), not the real process it is
+waiting for after the exec().
+
+When exec() is called inside a pseudo-process then DESTROY methods and
+END blocks will still be called after the external process returns.
+
+=item exit()
+
+exit() always exits just the executing pseudo-process, after automatically
+wait()-ing for any outstanding child pseudo-processes.  Note that this means
+that the process as a whole will not exit unless all running pseudo-processes
+have exited.  See below for some limitations with open filehandles.
+
+=item Open handles to files, directories and network sockets
+
+All open handles are dup()-ed in pseudo-processes, so that closing
+any handles in one process does not affect the others.  See below for
+some limitations.
+
+=back
+
+=head2 Resource limits
+
+In the eyes of the operating system, pseudo-processes created via the fork()
+emulation are simply threads in the same process.  This means that any
+process-level limits imposed by the operating system apply to all
+pseudo-processes taken together.  This includes any limits imposed by the
+operating system on the number of open file, directory and socket handles,
+limits on disk space usage, limits on memory size, limits on CPU utilization
+etc.
+
+=head2 Killing the parent process
+
+If the parent process is killed (either using Perl's kill() builtin, or
+using some external means) all the pseudo-processes are killed as well,
+and the whole process exits.
+
+=head2 Lifetime of the parent process and pseudo-processes
+
+During the normal course of events, the parent process and every
+pseudo-process started by it will wait for their respective pseudo-children
+to complete before they exit.  This means that the parent and every
+pseudo-child created by it that is also a pseudo-parent will only exit
+after their pseudo-children have exited.
+
+Starting with Perl 5.14 a parent will not wait() automatically
+for any child that has been signalled with C<kill('TERM', ...)>
+to avoid a deadlock in case the child is blocking on I/O and
+never receives the signal.
+
+=head1 CAVEATS AND LIMITATIONS
+
+=over 8
+
+=item BEGIN blocks
+
+The fork() emulation will not work entirely correctly when called from
+within a BEGIN block.  The forked copy will run the contents of the
+BEGIN block, but will not continue parsing the source stream after the
+BEGIN block.  For example, consider the following code:
+
+    BEGIN {
+        fork and exit;          # fork child and exit the parent
+        print "inner\n";
+    }
+    print "outer\n";
+
+This will print:
+
+    inner
+
+rather than the expected:
+
+    inner
+    outer
+
+This limitation arises from fundamental technical difficulties in
+cloning and restarting the stacks used by the Perl parser in the
+middle of a parse.
+
+=item Open filehandles
+
+Any filehandles open at the time of the fork() will be dup()-ed.  Thus,
+the files can be closed independently in the parent and child, but beware
+that the dup()-ed handles will still share the same seek pointer.  Changing
+the seek position in the parent will change it in the child and vice-versa.
+One can avoid this by opening files that need distinct seek pointers
+separately in the child.
+
+On some operating systems, notably Solaris and Unixware, calling C<exit()>
+from a child process will flush and close open filehandles in the parent,
+thereby corrupting the filehandles.  On these systems, calling C<_exit()>
+is suggested instead.  C<_exit()> is available in Perl through the
+C<POSIX> module.  Please consult your system's manpages for more information
+on this.
+
+=item Open directory handles
+
+Perl will completely read from all open directory handles until they
+reach the end of the stream.  It will then seekdir() back to the
+original location and all future readdir() requests will be fulfilled
+from the cache buffer.  That means that neither the directory handle held
+by the parent process nor the one held by the child process will see
+any changes made to the directory after the fork() call.
+
+Note that rewinddir() has a similar limitation on Windows and will not
+force readdir() to read the directory again either.  Only a newly
+opened directory handle will reflect changes to the directory.
+
+=item Forking pipe open() not yet implemented
+
+The C<open(FOO, "|-")> and C<open(BAR, "-|")> constructs are not yet
+implemented.  This limitation can be easily worked around in new code
+by creating a pipe explicitly.  The following example shows how to
+write to a forked child:
+
+    # simulate open(FOO, "|-")
+    sub pipe_to_fork ($) {
+        my $parent = shift;
+        pipe my $child, $parent or die;
+        my $pid = fork();
+        die "fork() failed: $!" unless defined $pid;
+        if ($pid) {
+            close $child;
+        }
+        else {
+            close $parent;
+            open(STDIN, "<&=" . fileno($child)) or die;
+        }
+        $pid;
+    }
+
+    if (pipe_to_fork('FOO')) {
+        # parent
+        print FOO "pipe_to_fork\n";
+        close FOO;
+    }
+    else {
+        # child
+        while (<STDIN>) { print; }
+        exit(0);
+    }
+
+And this one reads from the child:
+
+    # simulate open(FOO, "-|")
+    sub pipe_from_fork ($) {
+        my $parent = shift;
+        pipe $parent, my $child or die;
+        my $pid = fork();
+        die "fork() failed: $!" unless defined $pid;
+        if ($pid) {
+            close $child;
+        }
+        else {
+            close $parent;
+            open(STDOUT, ">&=" . fileno($child)) or die;
+        }
+        $pid;
+    }
+
+    if (pipe_from_fork('BAR')) {
+        # parent
+        while (<BAR>) { print; }
+        close BAR;
+    }
+    else {
+        # child
+        print "pipe_from_fork\n";
+        exit(0);
+    }
+
+Forking pipe open() constructs will be supported in future.
+
+=item Global state maintained by XSUBs
+
+External subroutines (XSUBs) that maintain their own global state may
+not work correctly.  Such XSUBs will either need to maintain locks to
+protect simultaneous access to global data from different pseudo-processes,
+or maintain all their state on the Perl symbol table, which is copied
+naturally when fork() is called.  A callback mechanism that provides
+extensions an opportunity to clone their state will be provided in the
+near future.
+
+=item Interpreter embedded in larger application
+
+The fork() emulation may not behave as expected when it is executed in an
+application which embeds a Perl interpreter and calls Perl APIs that can
+evaluate bits of Perl code.  This stems from the fact that the emulation
+only has knowledge about the Perl interpreter's own data structures and
+knows nothing about the containing application's state.  For example, any
+state carried on the application's own call stack is out of reach.
+
+=item Thread-safety of extensions
+
+Since the fork() emulation runs code in multiple threads, extensions
+calling into non-thread-safe libraries may not work reliably when
+calling fork().  As Perl's threading support gradually becomes more
+widely adopted even on platforms with a native fork(), such extensions
+are expected to be fixed for thread-safety.
+
+=back
+
+=head1 PORTABILITY CAVEATS
+
+In portable Perl code, C<kill(9, $child)> must not be used on forked processes.
+Killing a forked process is unsafe and has unpredictable results.
+See L</kill()>, above.
+
+=head1 BUGS
+
+=over 8
+
+=item *
+
+Having pseudo-process IDs be negative integers breaks down for the integer
+C<-1> because the wait() and waitpid() functions treat this number as
+being special.  The tacit assumption in the current implementation is that
+the system never allocates a thread ID of C<1> for user threads.  A better
+representation for pseudo-process IDs will be implemented in future.
+
+=item *
+
+In certain cases, the OS-level handles created by the pipe(), socket(),
+and accept() operators are apparently not duplicated accurately in
+pseudo-processes.  This only happens in some situations, but where it
+does happen, it may result in deadlocks between the read and write ends
+of pipe handles, or inability to send or receive data across socket
+handles.
+
+=item *
+
+This document may be incomplete in some respects.
+
+=back
+
+=head1 AUTHOR
+
+Support for concurrent interpreters and the fork() emulation was implemented
+by ActiveState, with funding from Microsoft Corporation.
+
+This document is authored and maintained by Gurusamy Sarathy
+E<lt>gsar@activestate.comE<gt>.
+
+=head1 SEE ALSO
+
+L<perlfunc/"fork">, L<perlipc>
+
+=cut
diff --git a/lib/5.24.1/pod/perlform.pod b/lib/5.24.1/pod/perlform.pod
new file mode 100644
index 00000000..84b6fc59
--- /dev/null
+++ b/lib/5.24.1/pod/perlform.pod
@@ -0,0 +1,455 @@
+=head1 NAME
+X<format> X<report> X<chart>
+
+perlform - Perl formats
+
+=head1 DESCRIPTION
+
+Perl has a mechanism to help you generate simple reports and charts.  To
+facilitate this, Perl helps you code up your output page close to how it
+will look when it's printed.  It can keep track of things like how many
+lines are on a page, what page you're on, when to print page headers,
+etc.  Keywords are borrowed from FORTRAN: format() to declare and write()
+to execute; see their entries in L<perlfunc>.  Fortunately, the layout is
+much more legible, more like BASIC's PRINT USING statement.  Think of it
+as a poor man's nroff(1).
+X<nroff>
+
+Formats, like packages and subroutines, are declared rather than
+executed, so they may occur at any point in your program.  (Usually it's
+best to keep them all together though.) They have their own namespace
+apart from all the other "types" in Perl.  This means that if you have a
+function named "Foo", it is not the same thing as having a format named
+"Foo".  However, the default name for the format associated with a given
+filehandle is the same as the name of the filehandle.  Thus, the default
+format for STDOUT is named "STDOUT", and the default format for filehandle
+TEMP is named "TEMP".  They just look the same.  They aren't.
+
+Output record formats are declared as follows:
+
+    format NAME =
+    FORMLIST
+    .
+
+If the name is omitted, format "STDOUT" is defined. A single "." in 
+column 1 is used to terminate a format.  FORMLIST consists of a sequence 
+of lines, each of which may be one of three types:
+
+=over 4
+
+=item 1.
+
+A comment, indicated by putting a '#' in the first column.
+
+=item 2.
+
+A "picture" line giving the format for one output line.
+
+=item 3.
+
+An argument line supplying values to plug into the previous picture line.
+
+=back
+
+Picture lines contain output field definitions, intermingled with
+literal text. These lines do not undergo any kind of variable interpolation.
+Field definitions are made up from a set of characters, for starting and
+extending a field to its desired width. This is the complete set of
+characters for field definitions:
+X<format, picture line>
+X<@> X<^> X<< < >> X<< | >> X<< > >> X<#> X<0> X<.> X<...>
+X<@*> X<^*> X<~> X<~~>
+
+   @    start of regular field
+   ^    start of special field
+   <    pad character for left justification
+   |    pad character for centering
+   >    pad character for right justification
+   #    pad character for a right-justified numeric field
+   0    instead of first #: pad number with leading zeroes
+   .    decimal point within a numeric field
+   ...  terminate a text field, show "..." as truncation evidence
+   @*   variable width field for a multi-line value
+   ^*   variable width field for next line of a multi-line value
+   ~    suppress line with all fields empty
+   ~~   repeat line until all fields are exhausted
+
+Each field in a picture line starts with either "@" (at) or "^" (caret),
+indicating what we'll call, respectively, a "regular" or "special" field.
+The choice of pad characters determines whether a field is textual or
+numeric. The tilde operators are not part of a field.  Let's look at
+the various possibilities in detail.
+
+
+=head2 Text Fields
+X<format, text field>
+
+The length of the field is supplied by padding out the field with multiple 
+"E<lt>", "E<gt>", or "|" characters to specify a non-numeric field with,
+respectively, left justification, right justification, or centering. 
+For a regular field, the value (up to the first newline) is taken and
+printed according to the selected justification, truncating excess characters.
+If you terminate a text field with "...", three dots will be shown if
+the value is truncated. A special text field may be used to do rudimentary 
+multi-line text block filling; see L</Using Fill Mode> for details.
+
+   Example:
+      format STDOUT =
+      @<<<<<<   @||||||   @>>>>>>
+      "left",   "middle", "right"
+      .
+   Output:
+      left      middle    right
+
+
+=head2 Numeric Fields
+X<#> X<format, numeric field>
+
+Using "#" as a padding character specifies a numeric field, with
+right justification. An optional "." defines the position of the
+decimal point. With a "0" (zero) instead of the first "#", the
+formatted number will be padded with leading zeroes if necessary.
+A special numeric field is blanked out if the value is undefined.
+If the resulting value would exceed the width specified the field is
+filled with "#" as overflow evidence.
+
+   Example:
+      format STDOUT =
+      @###   @.###   @##.###  @###   @###   ^####
+       42,   3.1415,  undef,    0, 10000,   undef
+      .
+   Output:
+        42   3.142     0.000     0   ####
+
+
+=head2 The Field @* for Variable-Width Multi-Line Text
+X<@*>
+
+The field "@*" can be used for printing multi-line, nontruncated
+values; it should (but need not) appear by itself on a line. A final
+line feed is chomped off, but all other characters are emitted verbatim.
+
+
+=head2 The Field ^* for Variable-Width One-line-at-a-time Text
+X<^*>
+
+Like "@*", this is a variable-width field. The value supplied must be a 
+scalar variable. Perl puts the first line (up to the first "\n") of the 
+text into the field, and then chops off the front of the string so that 
+the next time the variable is referenced, more of the text can be printed. 
+The variable will I<not> be restored.
+
+   Example:
+      $text = "line 1\nline 2\nline 3";
+      format STDOUT =
+      Text: ^*
+            $text
+      ~~    ^*
+            $text
+      .
+   Output:
+      Text: line 1
+            line 2
+            line 3
+
+
+=head2 Specifying Values
+X<format, specifying values>
+
+The values are specified on the following format line in the same order as
+the picture fields.  The expressions providing the values must be
+separated by commas.  They are all evaluated in a list context
+before the line is processed, so a single list expression could produce
+multiple list elements.  The expressions may be spread out to more than
+one line if enclosed in braces.  If so, the opening brace must be the first
+token on the first line.  If an expression evaluates to a number with a
+decimal part, and if the corresponding picture specifies that the decimal
+part should appear in the output (that is, any picture except multiple "#"
+characters B<without> an embedded "."), the character used for the decimal
+point is determined by the current LC_NUMERIC locale if C<use locale> is in
+effect.  This means that, if, for example, the run-time environment happens
+to specify a German locale, "," will be used instead of the default ".".  See
+L<perllocale> and L<"WARNINGS"> for more information.
+
+
+=head2 Using Fill Mode
+X<format, fill mode>
+
+On text fields the caret enables a kind of fill mode.  Instead of an
+arbitrary expression, the value supplied must be a scalar variable
+that contains a text string.  Perl puts the next portion of the text into
+the field, and then chops off the front of the string so that the next time
+the variable is referenced, more of the text can be printed.  (Yes, this
+means that the variable itself is altered during execution of the write()
+call, and is not restored.)  The next portion of text is determined by
+a crude line-breaking algorithm. You may use the carriage return character
+(C<\r>) to force a line break. You can change which characters are legal 
+to break on by changing the variable C<$:> (that's 
+$FORMAT_LINE_BREAK_CHARACTERS if you're using the English module) to a 
+list of the desired characters.
+
+Normally you would use a sequence of fields in a vertical stack associated 
+with the same scalar variable to print out a block of text. You might wish 
+to end the final field with the text "...", which will appear in the output 
+if the text was too long to appear in its entirety.  
+
+
+=head2 Suppressing Lines Where All Fields Are Void
+X<format, suppressing lines>
+
+Using caret fields can produce lines where all fields are blank. You can
+suppress such lines by putting a "~" (tilde) character anywhere in the
+line.  The tilde will be translated to a space upon output.
+
+
+=head2 Repeating Format Lines
+X<format, repeating lines>
+
+If you put two contiguous tilde characters "~~" anywhere into a line,
+the line will be repeated until all the fields on the line are exhausted,
+i.e. undefined. For special (caret) text fields this will occur sooner or
+later, but if you use a text field of the at variety, the  expression you
+supply had better not give the same value every time forever! (C<shift(@f)>
+is a simple example that would work.)  Don't use a regular (at) numeric 
+field in such lines, because it will never go blank.
+
+
+=head2 Top of Form Processing
+X<format, top of form> X<top> X<header>
+
+Top-of-form processing is by default handled by a format with the
+same name as the current filehandle with "_TOP" concatenated to it.
+It's triggered at the top of each page.  See L<perlfunc/write>.
+
+Examples:
+
+ # a report on the /etc/passwd file
+ format STDOUT_TOP =
+                         Passwd File
+ Name                Login    Office   Uid   Gid Home
+ ------------------------------------------------------------------
+ .
+ format STDOUT =
+ @<<<<<<<<<<<<<<<<<< @||||||| @<<<<<<@>>>> @>>>> @<<<<<<<<<<<<<<<<<
+ $name,              $login,  $office,$uid,$gid, $home
+ .
+
+
+ # a report from a bug report form
+ format STDOUT_TOP =
+                         Bug Reports
+ @<<<<<<<<<<<<<<<<<<<<<<<     @|||         @>>>>>>>>>>>>>>>>>>>>>>>
+ $system,                      $%,         $date
+ ------------------------------------------------------------------
+ .
+ format STDOUT =
+ Subject: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
+          $subject
+ Index: @<<<<<<<<<<<<<<<<<<<<<<<<<<<< ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<
+        $index,                       $description
+ Priority: @<<<<<<<<<< Date: @<<<<<<< ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<
+           $priority,        $date,   $description
+ From: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<
+       $from,                         $description
+ Assigned to: @<<<<<<<<<<<<<<<<<<<<<< ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<
+              $programmer,            $description
+ ~                                    ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<
+                                      $description
+ ~                                    ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<
+                                      $description
+ ~                                    ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<
+                                      $description
+ ~                                    ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<
+                                      $description
+ ~                                    ^<<<<<<<<<<<<<<<<<<<<<<<...
+                                      $description
+ .
+
+It is possible to intermix print()s with write()s on the same output
+channel, but you'll have to handle C<$-> (C<$FORMAT_LINES_LEFT>)
+yourself.
+
+=head2 Format Variables
+X<format variables>
+X<format, variables>
+
+The current format name is stored in the variable C<$~> (C<$FORMAT_NAME>),
+and the current top of form format name is in C<$^> (C<$FORMAT_TOP_NAME>).
+The current output page number is stored in C<$%> (C<$FORMAT_PAGE_NUMBER>),
+and the number of lines on the page is in C<$=> (C<$FORMAT_LINES_PER_PAGE>).
+Whether to autoflush output on this handle is stored in C<$|>
+(C<$OUTPUT_AUTOFLUSH>).  The string output before each top of page (except
+the first) is stored in C<$^L> (C<$FORMAT_FORMFEED>).  These variables are
+set on a per-filehandle basis, so you'll need to select() into a different
+one to affect them:
+
+    select((select(OUTF),
+	    $~ = "My_Other_Format",
+	    $^ = "My_Top_Format"
+	   )[0]);
+
+Pretty ugly, eh?  It's a common idiom though, so don't be too surprised
+when you see it.  You can at least use a temporary variable to hold
+the previous filehandle: (this is a much better approach in general,
+because not only does legibility improve, you now have an intermediary
+stage in the expression to single-step the debugger through):
+
+    $ofh = select(OUTF);
+    $~ = "My_Other_Format";
+    $^ = "My_Top_Format";
+    select($ofh);
+
+If you use the English module, you can even read the variable names:
+
+    use English;
+    $ofh = select(OUTF);
+    $FORMAT_NAME     = "My_Other_Format";
+    $FORMAT_TOP_NAME = "My_Top_Format";
+    select($ofh);
+
+But you still have those funny select()s.  So just use the FileHandle
+module.  Now, you can access these special variables using lowercase
+method names instead:
+
+    use FileHandle;
+    format_name     OUTF "My_Other_Format";
+    format_top_name OUTF "My_Top_Format";
+
+Much better!
+
+=head1 NOTES
+
+Because the values line may contain arbitrary expressions (for at fields,
+not caret fields), you can farm out more sophisticated processing
+to other functions, like sprintf() or one of your own.  For example:
+
+    format Ident =
+	@<<<<<<<<<<<<<<<
+	&commify($n)
+    .
+
+To get a real at or caret into the field, do this:
+
+    format Ident =
+    I have an @ here.
+	    "@"
+    .
+
+To center a whole line of text, do something like this:
+
+    format Ident =
+    @|||||||||||||||||||||||||||||||||||||||||||||||
+	    "Some text line"
+    .
+
+There is no builtin way to say "float this to the right hand side
+of the page, however wide it is."  You have to specify where it goes.
+The truly desperate can generate their own format on the fly, based
+on the current number of columns, and then eval() it:
+
+    $format  = "format STDOUT = \n"
+             . '^' . '<' x $cols . "\n"
+             . '$entry' . "\n"
+             . "\t^" . "<" x ($cols-8) . "~~\n"
+             . '$entry' . "\n"
+             . ".\n";
+    print $format if $Debugging;
+    eval $format;
+    die $@ if $@;
+
+Which would generate a format looking something like this:
+
+ format STDOUT =
+ ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
+ $entry
+         ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<~~
+ $entry
+ .
+
+Here's a little program that's somewhat like fmt(1):
+
+ format =
+ ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ~~
+ $_
+
+ .
+
+ $/ = '';
+ while (<>) {
+     s/\s*\n\s*/ /g;
+     write;
+ }
+
+=head2 Footers
+X<format, footer> X<footer>
+
+While $FORMAT_TOP_NAME contains the name of the current header format,
+there is no corresponding mechanism to automatically do the same thing
+for a footer.  Not knowing how big a format is going to be until you
+evaluate it is one of the major problems.  It's on the TODO list.
+
+Here's one strategy:  If you have a fixed-size footer, you can get footers
+by checking $FORMAT_LINES_LEFT before each write() and print the footer
+yourself if necessary.
+
+Here's another strategy: Open a pipe to yourself, using C<open(MYSELF, "|-")>
+(see L<perlfunc/open>) and always write() to MYSELF instead of STDOUT.
+Have your child process massage its STDIN to rearrange headers and footers
+however you like.  Not very convenient, but doable.
+
+=head2 Accessing Formatting Internals
+X<format, internals>
+
+For low-level access to the formatting mechanism, you may use formline()
+and access C<$^A> (the $ACCUMULATOR variable) directly.
+
+For example:
+
+    $str = formline <<'END', 1,2,3;
+    @<<<  @|||  @>>>
+    END
+
+    print "Wow, I just stored '$^A' in the accumulator!\n";
+
+Or to make an swrite() subroutine, which is to write() what sprintf()
+is to printf(), do this:
+
+    use Carp;
+    sub swrite {
+	croak "usage: swrite PICTURE ARGS" unless @_;
+	my $format = shift;
+	$^A = "";
+	formline($format,@_);
+	return $^A;
+    }
+
+    $string = swrite(<<'END', 1, 2, 3);
+ Check me out
+ @<<<  @|||  @>>>
+ END
+    print $string;
+
+=head1 WARNINGS
+
+The lone dot that ends a format can also prematurely end a mail
+message passing through a misconfigured Internet mailer (and based on
+experience, such misconfiguration is the rule, not the exception).  So
+when sending format code through mail, you should indent it so that
+the format-ending dot is not on the left margin; this will prevent
+SMTP cutoff.
+
+Lexical variables (declared with "my") are not visible within a
+format unless the format is declared within the scope of the lexical
+variable.
+
+If a program's environment specifies an LC_NUMERIC locale and C<use
+locale> is in effect when the format is declared, the locale is used
+to specify the decimal point character in formatted output.  Formatted
+output cannot be controlled by C<use locale> at the time when write()
+is called. See L<perllocale> for further discussion of locale handling.
+
+Within strings that are to be displayed in a fixed-length text field,
+each control character is substituted by a space. (But remember the
+special meaning of C<\r> when using fill mode.) This is done to avoid
+misalignment when control characters "disappear" on some output media.
+
diff --git a/lib/5.24.1/pod/perlfreebsd.pod b/lib/5.24.1/pod/perlfreebsd.pod
new file mode 100644
index 00000000..4bfe9741
--- /dev/null
+++ b/lib/5.24.1/pod/perlfreebsd.pod
@@ -0,0 +1,40 @@
+If you read this file _as_is_, just ignore the funny characters you
+see.  It is written in the POD format (see pod/perlpod.pod) which is
+specifically designed to be readable as is.
+
+=head1 NAME
+
+perlfreebsd - Perl version 5 on FreeBSD systems
+
+=head1 DESCRIPTION
+
+This document describes various features of FreeBSD that will affect how Perl
+version 5 (hereafter just Perl) is compiled and/or runs.
+
+=head2 FreeBSD core dumps from readdir_r with ithreads
+
+When perl is configured to use ithreads, it will use re-entrant library calls
+in preference to non-re-entrant versions.  There is a bug in FreeBSD's
+C<readdir_r> function in versions 4.5 and earlier that can cause a SEGV when
+reading large directories. A patch for FreeBSD libc is available
+(see http://www.freebsd.org/cgi/query-pr.cgi?pr=misc/30631 )
+which has been integrated into FreeBSD 4.6.
+
+=head2 $^X doesn't always contain a full path in FreeBSD
+
+perl sets C<$^X> where possible to a full path by asking the operating
+system. On FreeBSD the full path of the perl interpreter is found by using
+C<sysctl> with C<KERN_PROC_PATHNAME> if that is supported, else by reading
+the symlink F</proc/curproc/file>. FreeBSD 7 and earlier has a bug where
+either approach sometimes returns an incorrect value
+(see http://www.freebsd.org/cgi/query-pr.cgi?pr=35703 ).
+In these cases perl will fall back to the old behaviour of using C's
+argv[0] value for C<$^X>.
+
+=head1 AUTHOR
+
+Nicholas Clark <nick@ccl4.org>, collating wisdom supplied by Slaven Rezic
+and Tim Bunce.
+
+Please report any errors, updates, or suggestions to F<perlbug@perl.org>.
+
diff --git a/lib/5.24.1/pod/perlfunc.pod b/lib/5.24.1/pod/perlfunc.pod
new file mode 100644
index 00000000..e9c7038a
--- /dev/null
+++ b/lib/5.24.1/pod/perlfunc.pod
@@ -0,0 +1,9978 @@
+=head1 NAME
+X<function>
+
+perlfunc - Perl builtin functions
+
+=head1 DESCRIPTION
+
+The functions in this section can serve as terms in an expression.
+They fall into two major categories: list operators and named unary
+operators.  These differ in their precedence relationship with a
+following comma.  (See the precedence table in L<perlop>.)  List
+operators take more than one argument, while unary operators can never
+take more than one argument.  Thus, a comma terminates the argument of
+a unary operator, but merely separates the arguments of a list
+operator.  A unary operator generally provides scalar context to its
+argument, while a list operator may provide either scalar or list
+contexts for its arguments.  If it does both, scalar arguments
+come first and list argument follow, and there can only ever
+be one such list argument.  For instance,
+L<C<splice>|/splice ARRAY,OFFSET,LENGTH,LIST> has three scalar arguments
+followed by a list, whereas L<C<gethostbyname>|/gethostbyname NAME> has
+four scalar arguments.
+
+In the syntax descriptions that follow, list operators that expect a
+list (and provide list context for elements of the list) are shown
+with LIST as an argument.  Such a list may consist of any combination
+of scalar arguments or list values; the list values will be included
+in the list as if each individual element were interpolated at that
+point in the list, forming a longer single-dimensional list value.
+Commas should separate literal elements of the LIST.
+
+Any function in the list below may be used either with or without
+parentheses around its arguments.  (The syntax descriptions omit the
+parentheses.)  If you use parentheses, the simple but occasionally
+surprising rule is this: It I<looks> like a function, therefore it I<is> a
+function, and precedence doesn't matter.  Otherwise it's a list
+operator or unary operator, and precedence does matter.  Whitespace
+between the function and left parenthesis doesn't count, so sometimes
+you need to be careful:
+
+    print 1+2+4;      # Prints 7.
+    print(1+2) + 4;   # Prints 3.
+    print (1+2)+4;    # Also prints 3!
+    print +(1+2)+4;   # Prints 7.
+    print ((1+2)+4);  # Prints 7.
+
+If you run Perl with the L<C<use warnings>|warnings> pragma, it can warn
+you about this.  For example, the third line above produces:
+
+    print (...) interpreted as function at - line 1.
+    Useless use of integer addition in void context at - line 1.
+
+A few functions take no arguments at all, and therefore work as neither
+unary nor list operators.  These include such functions as
+L<C<time>|/time> and L<C<endpwent>|/endpwent>.  For example,
+C<time+86_400> always means C<time() + 86_400>.
+
+For functions that can be used in either a scalar or list context,
+nonabortive failure is generally indicated in scalar context by
+returning the undefined value, and in list context by returning the
+empty list.
+
+Remember the following important rule: There is B<no rule> that relates
+the behavior of an expression in list context to its behavior in scalar
+context, or vice versa.  It might do two totally different things.
+Each operator and function decides which sort of value would be most
+appropriate to return in scalar context.  Some operators return the
+length of the list that would have been returned in list context.  Some
+operators return the first value in the list.  Some operators return the
+last value in the list.  Some operators return a count of successful
+operations.  In general, they do what you want, unless you want
+consistency.
+X<context>
+
+A named array in scalar context is quite different from what would at
+first glance appear to be a list in scalar context.  You can't get a list
+like C<(1,2,3)> into being in scalar context, because the compiler knows
+the context at compile time.  It would generate the scalar comma operator
+there, not the list concatenation version of the comma.  That means it
+was never a list to start with.
+
+In general, functions in Perl that serve as wrappers for system calls
+("syscalls") of the same name (like L<chown(2)>, L<fork(2)>,
+L<closedir(2)>, etc.) return true when they succeed and
+L<C<undef>|/undef EXPR> otherwise, as is usually mentioned in the
+descriptions below.  This is different from the C interfaces, which
+return C<-1> on failure.  Exceptions to this rule include
+L<C<wait>|/wait>, L<C<waitpid>|/waitpid PID,FLAGS>, and
+L<C<syscall>|/syscall NUMBER, LIST>.  System calls also set the special
+L<C<$!>|perlvar/$!> variable on failure.  Other functions do not, except
+accidentally.
+
+Extension modules can also hook into the Perl parser to define new
+kinds of keyword-headed expression.  These may look like functions, but
+may also look completely different.  The syntax following the keyword
+is defined entirely by the extension.  If you are an implementor, see
+L<perlapi/PL_keyword_plugin> for the mechanism.  If you are using such
+a module, see the module's documentation for details of the syntax that
+it defines.
+
+=head2 Perl Functions by Category
+X<function>
+
+Here are Perl's functions (including things that look like
+functions, like some keywords and named operators)
+arranged by category.  Some functions appear in more
+than one place.
+
+=over 4
+
+=item Functions for SCALARs or strings
+X<scalar> X<string> X<character>
+
+=for Pod::Functions =String
+
+L<C<chomp>|/chomp VARIABLE>, L<C<chop>|/chop VARIABLE>,
+L<C<chr>|/chr NUMBER>, L<C<crypt>|/crypt PLAINTEXT,SALT>,
+L<C<fc>|/fc EXPR>, L<C<hex>|/hex EXPR>,
+L<C<index>|/index STR,SUBSTR,POSITION>, L<C<lc>|/lc EXPR>,
+L<C<lcfirst>|/lcfirst EXPR>, L<C<length>|/length EXPR>,
+L<C<oct>|/oct EXPR>, L<C<ord>|/ord EXPR>,
+L<C<pack>|/pack TEMPLATE,LIST>,
+L<C<qE<sol>E<sol>>|/qE<sol>STRINGE<sol>>,
+L<C<qqE<sol>E<sol>>|/qqE<sol>STRINGE<sol>>, L<C<reverse>|/reverse LIST>,
+L<C<rindex>|/rindex STR,SUBSTR,POSITION>,
+L<C<sprintf>|/sprintf FORMAT, LIST>,
+L<C<substr>|/substr EXPR,OFFSET,LENGTH,REPLACEMENT>,
+L<C<trE<sol>E<sol>E<sol>>|/trE<sol>E<sol>E<sol>>, L<C<uc>|/uc EXPR>,
+L<C<ucfirst>|/ucfirst EXPR>,
+L<C<yE<sol>E<sol>E<sol>>|/yE<sol>E<sol>E<sol>>
+
+L<C<fc>|/fc EXPR> is available only if the
+L<C<"fc"> feature|feature/The 'fc' feature> is enabled or if it is
+prefixed with C<CORE::>.  The
+L<C<"fc"> feature|feature/The 'fc' feature> is enabled automatically
+with a C<use v5.16> (or higher) declaration in the current scope.
+
+=item Regular expressions and pattern matching
+X<regular expression> X<regex> X<regexp>
+
+=for Pod::Functions =Regexp
+
+L<C<mE<sol>E<sol>>|/mE<sol>E<sol>>, L<C<pos>|/pos SCALAR>,
+L<C<qrE<sol>E<sol>>|/qrE<sol>STRINGE<sol>>,
+L<C<quotemeta>|/quotemeta EXPR>,
+L<C<sE<sol>E<sol>E<sol>>|/sE<sol>E<sol>E<sol>>,
+L<C<split>|/split E<sol>PATTERNE<sol>,EXPR,LIMIT>,
+L<C<study>|/study SCALAR>
+
+=item Numeric functions
+X<numeric> X<number> X<trigonometric> X<trigonometry>
+
+=for Pod::Functions =Math
+
+L<C<abs>|/abs VALUE>, L<C<atan2>|/atan2 Y,X>, L<C<cos>|/cos EXPR>,
+L<C<exp>|/exp EXPR>, L<C<hex>|/hex EXPR>, L<C<int>|/int EXPR>,
+L<C<log>|/log EXPR>, L<C<oct>|/oct EXPR>, L<C<rand>|/rand EXPR>,
+L<C<sin>|/sin EXPR>, L<C<sqrt>|/sqrt EXPR>, L<C<srand>|/srand EXPR>
+
+=item Functions for real @ARRAYs
+X<array>
+
+=for Pod::Functions =ARRAY
+
+L<C<each>|/each HASH>, L<C<keys>|/keys HASH>, L<C<pop>|/pop ARRAY>,
+L<C<push>|/push ARRAY,LIST>, L<C<shift>|/shift ARRAY>,
+L<C<splice>|/splice ARRAY,OFFSET,LENGTH,LIST>,
+L<C<unshift>|/unshift ARRAY,LIST>, L<C<values>|/values HASH>
+
+=item Functions for list data
+X<list>
+
+=for Pod::Functions =LIST
+
+L<C<grep>|/grep BLOCK LIST>, L<C<join>|/join EXPR,LIST>,
+L<C<map>|/map BLOCK LIST>, L<C<qwE<sol>E<sol>>|/qwE<sol>STRINGE<sol>>,
+L<C<reverse>|/reverse LIST>, L<C<sort>|/sort SUBNAME LIST>,
+L<C<unpack>|/unpack TEMPLATE,EXPR>
+
+=item Functions for real %HASHes
+X<hash>
+
+=for Pod::Functions =HASH
+
+L<C<delete>|/delete EXPR>, L<C<each>|/each HASH>,
+L<C<exists>|/exists EXPR>, L<C<keys>|/keys HASH>,
+L<C<values>|/values HASH>
+
+=item Input and output functions
+X<I/O> X<input> X<output> X<dbm>
+
+=for Pod::Functions =I/O
+
+L<C<binmode>|/binmode FILEHANDLE, LAYER>, L<C<close>|/close FILEHANDLE>,
+L<C<closedir>|/closedir DIRHANDLE>, L<C<dbmclose>|/dbmclose HASH>,
+L<C<dbmopen>|/dbmopen HASH,DBNAME,MASK>, L<C<die>|/die LIST>,
+L<C<eof>|/eof FILEHANDLE>, L<C<fileno>|/fileno FILEHANDLE>,
+L<C<flock>|/flock FILEHANDLE,OPERATION>, L<C<format>|/format>,
+L<C<getc>|/getc FILEHANDLE>, L<C<print>|/print FILEHANDLE LIST>,
+L<C<printf>|/printf FILEHANDLE FORMAT, LIST>,
+L<C<read>|/read FILEHANDLE,SCALAR,LENGTH,OFFSET>,
+L<C<readdir>|/readdir DIRHANDLE>, L<C<readline>|/readline EXPR>
+L<C<rewinddir>|/rewinddir DIRHANDLE>, L<C<say>|/say FILEHANDLE LIST>,
+L<C<seek>|/seek FILEHANDLE,POSITION,WHENCE>,
+L<C<seekdir>|/seekdir DIRHANDLE,POS>,
+L<C<select>|/select RBITS,WBITS,EBITS,TIMEOUT>,
+L<C<syscall>|/syscall NUMBER, LIST>,
+L<C<sysread>|/sysread FILEHANDLE,SCALAR,LENGTH,OFFSET>,
+L<C<sysseek>|/sysseek FILEHANDLE,POSITION,WHENCE>,
+L<C<syswrite>|/syswrite FILEHANDLE,SCALAR,LENGTH,OFFSET>,
+L<C<tell>|/tell FILEHANDLE>, L<C<telldir>|/telldir DIRHANDLE>,
+L<C<truncate>|/truncate FILEHANDLE,LENGTH>, L<C<warn>|/warn LIST>,
+L<C<write>|/write FILEHANDLE>
+
+L<C<say>|/say FILEHANDLE LIST> is available only if the
+L<C<"say"> feature|feature/The 'say' feature> is enabled or if it is
+prefixed with C<CORE::>.  The
+L<C<"say"> feature|feature/The 'say' feature> is enabled automatically
+with a C<use v5.10> (or higher) declaration in the current scope.
+
+=item Functions for fixed-length data or records
+
+=for Pod::Functions =Binary
+
+L<C<pack>|/pack TEMPLATE,LIST>,
+L<C<read>|/read FILEHANDLE,SCALAR,LENGTH,OFFSET>,
+L<C<syscall>|/syscall NUMBER, LIST>,
+L<C<sysread>|/sysread FILEHANDLE,SCALAR,LENGTH,OFFSET>,
+L<C<sysseek>|/sysseek FILEHANDLE,POSITION,WHENCE>,
+L<C<syswrite>|/syswrite FILEHANDLE,SCALAR,LENGTH,OFFSET>,
+L<C<unpack>|/unpack TEMPLATE,EXPR>, L<C<vec>|/vec EXPR,OFFSET,BITS>
+
+=item Functions for filehandles, files, or directories
+X<file> X<filehandle> X<directory> X<pipe> X<link> X<symlink>
+
+=for Pod::Functions =File
+
+L<C<-I<X>>|/-X FILEHANDLE>, L<C<chdir>|/chdir EXPR>,
+L<C<chmod>|/chmod LIST>, L<C<chown>|/chown LIST>,
+L<C<chroot>|/chroot FILENAME>,
+L<C<fcntl>|/fcntl FILEHANDLE,FUNCTION,SCALAR>, L<C<glob>|/glob EXPR>,
+L<C<ioctl>|/ioctl FILEHANDLE,FUNCTION,SCALAR>,
+L<C<link>|/link OLDFILE,NEWFILE>, L<C<lstat>|/lstat FILEHANDLE>,
+L<C<mkdir>|/mkdir FILENAME,MASK>, L<C<open>|/open FILEHANDLE,EXPR>,
+L<C<opendir>|/opendir DIRHANDLE,EXPR>, L<C<readlink>|/readlink EXPR>,
+L<C<rename>|/rename OLDNAME,NEWNAME>, L<C<rmdir>|/rmdir FILENAME>,
+L<C<select>|/select FILEHANDLE>, L<C<stat>|/stat FILEHANDLE>,
+L<C<symlink>|/symlink OLDFILE,NEWFILE>,
+L<C<sysopen>|/sysopen FILEHANDLE,FILENAME,MODE>,
+L<C<umask>|/umask EXPR>, L<C<unlink>|/unlink LIST>,
+L<C<utime>|/utime LIST>
+
+=item Keywords related to the control flow of your Perl program
+X<control flow>
+
+=for Pod::Functions =Flow
+
+L<C<break>|/break>, L<C<caller>|/caller EXPR>,
+L<C<continue>|/continue BLOCK>, L<C<die>|/die LIST>, L<C<do>|/do BLOCK>,
+L<C<dump>|/dump LABEL>, L<C<eval>|/eval EXPR>,
+L<C<evalbytes>|/evalbytes EXPR> L<C<exit>|/exit EXPR>,
+L<C<__FILE__>|/__FILE__>, L<C<goto>|/goto LABEL>,
+L<C<last>|/last LABEL>, L<C<__LINE__>|/__LINE__>,
+L<C<next>|/next LABEL>, L<C<__PACKAGE__>|/__PACKAGE__>,
+L<C<redo>|/redo LABEL>, L<C<return>|/return EXPR>,
+L<C<sub>|/sub NAME BLOCK>, L<C<__SUB__>|/__SUB__>,
+L<C<wantarray>|/wantarray>
+
+L<C<break>|/break> is available only if you enable the experimental
+L<C<"switch"> feature|feature/The 'switch' feature> or use the C<CORE::>
+prefix.  The L<C<"switch"> feature|feature/The 'switch' feature> also
+enables the C<default>, C<given> and C<when> statements, which are
+documented in L<perlsyn/"Switch Statements">.
+The L<C<"switch"> feature|feature/The 'switch' feature> is enabled
+automatically with a C<use v5.10> (or higher) declaration in the current
+scope.  In Perl v5.14 and earlier, L<C<continue>|/continue BLOCK>
+required the L<C<"switch"> feature|feature/The 'switch' feature>, like
+the other keywords.
+
+L<C<evalbytes>|/evalbytes EXPR> is only available with the
+L<C<"evalbytes"> feature|feature/The 'unicode_eval' and 'evalbytes' features>
+(see L<feature>) or if prefixed with C<CORE::>.  L<C<__SUB__>|/__SUB__>
+is only available with the
+L<C<"current_sub"> feature|feature/The 'current_sub' feature> or if
+prefixed with C<CORE::>.  Both the
+L<C<"evalbytes">|feature/The 'unicode_eval' and 'evalbytes' features>
+and L<C<"current_sub">|feature/The 'current_sub' feature> features are
+enabled automatically with a C<use v5.16> (or higher) declaration in the
+current scope.
+
+=item Keywords related to scoping
+
+=for Pod::Functions =Namespace
+
+L<C<caller>|/caller EXPR>, L<C<import>|/import LIST>,
+L<C<local>|/local EXPR>, L<C<my>|/my VARLIST>, L<C<our>|/our VARLIST>,
+L<C<package>|/package NAMESPACE>, L<C<state>|/state VARLIST>,
+L<C<use>|/use Module VERSION LIST>
+
+L<C<state>|/state VARLIST> is available only if the
+L<C<"state"> feature|feature/The 'state' feature> is enabled or if it is
+prefixed with C<CORE::>.  The
+L<C<"state"> feature|feature/The 'state' feature> is enabled
+automatically with a C<use v5.10> (or higher) declaration in the current
+scope.
+
+=item Miscellaneous functions
+
+=for Pod::Functions =Misc
+
+L<C<defined>|/defined EXPR>, L<C<formline>|/formline PICTURE,LIST>,
+L<C<lock>|/lock THING>, L<C<prototype>|/prototype FUNCTION>,
+L<C<reset>|/reset EXPR>, L<C<scalar>|/scalar EXPR>,
+L<C<undef>|/undef EXPR>
+
+=item Functions for processes and process groups
+X<process> X<pid> X<process id>
+
+=for Pod::Functions =Process
+
+L<C<alarm>|/alarm SECONDS>, L<C<exec>|/exec LIST>, L<C<fork>|/fork>,
+L<C<getpgrp>|/getpgrp PID>, L<C<getppid>|/getppid>,
+L<C<getpriority>|/getpriority WHICH,WHO>, L<C<kill>|/kill SIGNAL, LIST>,
+L<C<pipe>|/pipe READHANDLE,WRITEHANDLE>,
+L<C<qxE<sol>E<sol>>|/qxE<sol>STRINGE<sol>>,
+L<C<readpipe>|/readpipe EXPR>, L<C<setpgrp>|/setpgrp PID,PGRP>,
+L<C<setpriority>|/setpriority WHICH,WHO,PRIORITY>,
+L<C<sleep>|/sleep EXPR>, L<C<system>|/system LIST>, L<C<times>|/times>,
+L<C<wait>|/wait>, L<C<waitpid>|/waitpid PID,FLAGS>
+
+=item Keywords related to Perl modules
+X<module>
+
+=for Pod::Functions =Modules
+
+L<C<do>|/do EXPR>, L<C<import>|/import LIST>,
+L<C<no>|/no MODULE VERSION LIST>, L<C<package>|/package NAMESPACE>,
+L<C<require>|/require VERSION>, L<C<use>|/use Module VERSION LIST>
+
+=item Keywords related to classes and object-orientation
+X<object> X<class> X<package>
+
+=for Pod::Functions =Objects
+
+L<C<bless>|/bless REF,CLASSNAME>, L<C<dbmclose>|/dbmclose HASH>,
+L<C<dbmopen>|/dbmopen HASH,DBNAME,MASK>,
+L<C<package>|/package NAMESPACE>, L<C<ref>|/ref EXPR>,
+L<C<tie>|/tie VARIABLE,CLASSNAME,LIST>, L<C<tied>|/tied VARIABLE>,
+L<C<untie>|/untie VARIABLE>, L<C<use>|/use Module VERSION LIST>
+
+=item Low-level socket functions
+X<socket> X<sock>
+
+=for Pod::Functions =Socket
+
+L<C<accept>|/accept NEWSOCKET,GENERICSOCKET>,
+L<C<bind>|/bind SOCKET,NAME>, L<C<connect>|/connect SOCKET,NAME>,
+L<C<getpeername>|/getpeername SOCKET>,
+L<C<getsockname>|/getsockname SOCKET>,
+L<C<getsockopt>|/getsockopt SOCKET,LEVEL,OPTNAME>,
+L<C<listen>|/listen SOCKET,QUEUESIZE>,
+L<C<recv>|/recv SOCKET,SCALAR,LENGTH,FLAGS>,
+L<C<send>|/send SOCKET,MSG,FLAGS,TO>,
+L<C<setsockopt>|/setsockopt SOCKET,LEVEL,OPTNAME,OPTVAL>,
+L<C<shutdown>|/shutdown SOCKET,HOW>,
+L<C<socket>|/socket SOCKET,DOMAIN,TYPE,PROTOCOL>,
+L<C<socketpair>|/socketpair SOCKET1,SOCKET2,DOMAIN,TYPE,PROTOCOL>
+
+=item System V interprocess communication functions
+X<IPC> X<System V> X<semaphore> X<shared memory> X<memory> X<message>
+
+=for Pod::Functions =SysV
+
+L<C<msgctl>|/msgctl ID,CMD,ARG>, L<C<msgget>|/msgget KEY,FLAGS>,
+L<C<msgrcv>|/msgrcv ID,VAR,SIZE,TYPE,FLAGS>,
+L<C<msgsnd>|/msgsnd ID,MSG,FLAGS>,
+L<C<semctl>|/semctl ID,SEMNUM,CMD,ARG>,
+L<C<semget>|/semget KEY,NSEMS,FLAGS>, L<C<semop>|/semop KEY,OPSTRING>,
+L<C<shmctl>|/shmctl ID,CMD,ARG>, L<C<shmget>|/shmget KEY,SIZE,FLAGS>,
+L<C<shmread>|/shmread ID,VAR,POS,SIZE>,
+L<C<shmwrite>|/shmwrite ID,STRING,POS,SIZE>
+
+=item Fetching user and group info
+X<user> X<group> X<password> X<uid> X<gid>  X<passwd> X</etc/passwd>
+
+=for Pod::Functions =User
+
+L<C<endgrent>|/endgrent>, L<C<endhostent>|/endhostent>,
+L<C<endnetent>|/endnetent>, L<C<endpwent>|/endpwent>,
+L<C<getgrent>|/getgrent>, L<C<getgrgid>|/getgrgid GID>,
+L<C<getgrnam>|/getgrnam NAME>, L<C<getlogin>|/getlogin>,
+L<C<getpwent>|/getpwent>, L<C<getpwnam>|/getpwnam NAME>,
+L<C<getpwuid>|/getpwuid UID>, L<C<setgrent>|/setgrent>,
+L<C<setpwent>|/setpwent>
+
+=item Fetching network info
+X<network> X<protocol> X<host> X<hostname> X<IP> X<address> X<service>
+
+=for Pod::Functions =Network
+
+L<C<endprotoent>|/endprotoent>, L<C<endservent>|/endservent>,
+L<C<gethostbyaddr>|/gethostbyaddr ADDR,ADDRTYPE>,
+L<C<gethostbyname>|/gethostbyname NAME>, L<C<gethostent>|/gethostent>,
+L<C<getnetbyaddr>|/getnetbyaddr ADDR,ADDRTYPE>,
+L<C<getnetbyname>|/getnetbyname NAME>, L<C<getnetent>|/getnetent>,
+L<C<getprotobyname>|/getprotobyname NAME>,
+L<C<getprotobynumber>|/getprotobynumber NUMBER>,
+L<C<getprotoent>|/getprotoent>,
+L<C<getservbyname>|/getservbyname NAME,PROTO>,
+L<C<getservbyport>|/getservbyport PORT,PROTO>,
+L<C<getservent>|/getservent>, L<C<sethostent>|/sethostent STAYOPEN>,
+L<C<setnetent>|/setnetent STAYOPEN>,
+L<C<setprotoent>|/setprotoent STAYOPEN>,
+L<C<setservent>|/setservent STAYOPEN>
+
+=item Time-related functions
+X<time> X<date>
+
+=for Pod::Functions =Time
+
+L<C<gmtime>|/gmtime EXPR>, L<C<localtime>|/localtime EXPR>,
+L<C<time>|/time>, L<C<times>|/times>
+
+=item Non-function keywords
+
+=for Pod::Functions =!Non-functions
+
+C<and>, C<AUTOLOAD>, C<BEGIN>, C<CHECK>, C<cmp>, C<CORE>, C<__DATA__>,
+C<default>, C<DESTROY>, C<else>, C<elseif>, C<elsif>, C<END>, C<__END__>,
+C<eq>, C<for>, C<foreach>, C<ge>, C<given>, C<gt>, C<if>, C<INIT>, C<le>,
+C<lt>, C<ne>, C<not>, C<or>, C<UNITCHECK>, C<unless>, C<until>, C<when>,
+C<while>, C<x>, C<xor>
+
+=back
+
+=head2 Portability
+X<portability> X<Unix> X<portable>
+
+Perl was born in Unix and can therefore access all common Unix
+system calls.  In non-Unix environments, the functionality of some
+Unix system calls may not be available or details of the available
+functionality may differ slightly.  The Perl functions affected
+by this are:
+
+L<C<-I<X>>|/-X FILEHANDLE>, L<C<binmode>|/binmode FILEHANDLE, LAYER>,
+L<C<chmod>|/chmod LIST>, L<C<chown>|/chown LIST>,
+L<C<chroot>|/chroot FILENAME>, L<C<crypt>|/crypt PLAINTEXT,SALT>,
+L<C<dbmclose>|/dbmclose HASH>, L<C<dbmopen>|/dbmopen HASH,DBNAME,MASK>,
+L<C<dump>|/dump LABEL>, L<C<endgrent>|/endgrent>,
+L<C<endhostent>|/endhostent>, L<C<endnetent>|/endnetent>,
+L<C<endprotoent>|/endprotoent>, L<C<endpwent>|/endpwent>,
+L<C<endservent>|/endservent>, L<C<exec>|/exec LIST>,
+L<C<fcntl>|/fcntl FILEHANDLE,FUNCTION,SCALAR>,
+L<C<flock>|/flock FILEHANDLE,OPERATION>, L<C<fork>|/fork>,
+L<C<getgrent>|/getgrent>, L<C<getgrgid>|/getgrgid GID>,
+L<C<gethostbyname>|/gethostbyname NAME>, L<C<gethostent>|/gethostent>,
+L<C<getlogin>|/getlogin>,
+L<C<getnetbyaddr>|/getnetbyaddr ADDR,ADDRTYPE>,
+L<C<getnetbyname>|/getnetbyname NAME>, L<C<getnetent>|/getnetent>,
+L<C<getppid>|/getppid>, L<C<getpgrp>|/getpgrp PID>,
+L<C<getpriority>|/getpriority WHICH,WHO>,
+L<C<getprotobynumber>|/getprotobynumber NUMBER>,
+L<C<getprotoent>|/getprotoent>, L<C<getpwent>|/getpwent>,
+L<C<getpwnam>|/getpwnam NAME>, L<C<getpwuid>|/getpwuid UID>,
+L<C<getservbyport>|/getservbyport PORT,PROTO>,
+L<C<getservent>|/getservent>,
+L<C<getsockopt>|/getsockopt SOCKET,LEVEL,OPTNAME>,
+L<C<glob>|/glob EXPR>, L<C<ioctl>|/ioctl FILEHANDLE,FUNCTION,SCALAR>,
+L<C<kill>|/kill SIGNAL, LIST>, L<C<link>|/link OLDFILE,NEWFILE>,
+L<C<lstat>|/lstat FILEHANDLE>, L<C<msgctl>|/msgctl ID,CMD,ARG>,
+L<C<msgget>|/msgget KEY,FLAGS>,
+L<C<msgrcv>|/msgrcv ID,VAR,SIZE,TYPE,FLAGS>,
+L<C<msgsnd>|/msgsnd ID,MSG,FLAGS>, L<C<open>|/open FILEHANDLE,EXPR>,
+L<C<pipe>|/pipe READHANDLE,WRITEHANDLE>, L<C<readlink>|/readlink EXPR>,
+L<C<rename>|/rename OLDNAME,NEWNAME>,
+L<C<select>|/select RBITS,WBITS,EBITS,TIMEOUT>,
+L<C<semctl>|/semctl ID,SEMNUM,CMD,ARG>,
+L<C<semget>|/semget KEY,NSEMS,FLAGS>, L<C<semop>|/semop KEY,OPSTRING>,
+L<C<setgrent>|/setgrent>, L<C<sethostent>|/sethostent STAYOPEN>,
+L<C<setnetent>|/setnetent STAYOPEN>, L<C<setpgrp>|/setpgrp PID,PGRP>,
+L<C<setpriority>|/setpriority WHICH,WHO,PRIORITY>,
+L<C<setprotoent>|/setprotoent STAYOPEN>, L<C<setpwent>|/setpwent>,
+L<C<setservent>|/setservent STAYOPEN>,
+L<C<setsockopt>|/setsockopt SOCKET,LEVEL,OPTNAME,OPTVAL>,
+L<C<shmctl>|/shmctl ID,CMD,ARG>, L<C<shmget>|/shmget KEY,SIZE,FLAGS>,
+L<C<shmread>|/shmread ID,VAR,POS,SIZE>,
+L<C<shmwrite>|/shmwrite ID,STRING,POS,SIZE>,
+L<C<socket>|/socket SOCKET,DOMAIN,TYPE,PROTOCOL>,
+L<C<socketpair>|/socketpair SOCKET1,SOCKET2,DOMAIN,TYPE,PROTOCOL>,
+L<C<stat>|/stat FILEHANDLE>, L<C<symlink>|/symlink OLDFILE,NEWFILE>,
+L<C<syscall>|/syscall NUMBER, LIST>,
+L<C<sysopen>|/sysopen FILEHANDLE,FILENAME,MODE>,
+L<C<system>|/system LIST>, L<C<times>|/times>,
+L<C<truncate>|/truncate FILEHANDLE,LENGTH>, L<C<umask>|/umask EXPR>,
+L<C<unlink>|/unlink LIST>, L<C<utime>|/utime LIST>, L<C<wait>|/wait>,
+L<C<waitpid>|/waitpid PID,FLAGS>
+
+For more information about the portability of these functions, see
+L<perlport> and other available platform-specific documentation.
+
+=head2 Alphabetical Listing of Perl Functions
+
+=over
+
+=item -X FILEHANDLE
+X<-r>X<-w>X<-x>X<-o>X<-R>X<-W>X<-X>X<-O>X<-e>X<-z>X<-s>X<-f>X<-d>X<-l>X<-p>
+X<-S>X<-b>X<-c>X<-t>X<-u>X<-g>X<-k>X<-T>X<-B>X<-M>X<-A>X<-C>
+
+=item -X EXPR
+
+=item -X DIRHANDLE
+
+=item -X
+
+=for Pod::Functions a file test (-r, -x, etc)
+
+A file test, where X is one of the letters listed below.  This unary
+operator takes one argument, either a filename, a filehandle, or a dirhandle,
+and tests the associated file to see if something is true about it.  If the
+argument is omitted, tests L<C<$_>|perlvar/$_>, except for C<-t>, which
+tests STDIN.  Unless otherwise documented, it returns C<1> for true and
+C<''> for false.  If the file doesn't exist or can't be examined, it
+returns L<C<undef>|/undef EXPR> and sets L<C<$!>|perlvar/$!> (errno).
+Despite the funny names, precedence is the same as any other named unary
+operator.  The operator may be any of:
+
+    -r  File is readable by effective uid/gid.
+    -w  File is writable by effective uid/gid.
+    -x  File is executable by effective uid/gid.
+    -o  File is owned by effective uid.
+
+    -R  File is readable by real uid/gid.
+    -W  File is writable by real uid/gid.
+    -X  File is executable by real uid/gid.
+    -O  File is owned by real uid.
+
+    -e  File exists.
+    -z  File has zero size (is empty).
+    -s  File has nonzero size (returns size in bytes).
+
+    -f  File is a plain file.
+    -d  File is a directory.
+    -l  File is a symbolic link (false if symlinks aren't
+        supported by the file system).
+    -p  File is a named pipe (FIFO), or Filehandle is a pipe.
+    -S  File is a socket.
+    -b  File is a block special file.
+    -c  File is a character special file.
+    -t  Filehandle is opened to a tty.
+
+    -u  File has setuid bit set.
+    -g  File has setgid bit set.
+    -k  File has sticky bit set.
+
+    -T  File is an ASCII or UTF-8 text file (heuristic guess).
+    -B  File is a "binary" file (opposite of -T).
+
+    -M  Script start time minus file modification time, in days.
+    -A  Same for access time.
+    -C  Same for inode change time (Unix, may differ for other
+	platforms)
+
+Example:
+
+    while (<>) {
+        chomp;
+        next unless -f $_;  # ignore specials
+        #...
+    }
+
+Note that C<-s/a/b/> does not do a negated substitution.  Saying
+C<-exp($foo)> still works as expected, however: only single letters
+following a minus are interpreted as file tests.
+
+These operators are exempt from the "looks like a function rule" described
+above.  That is, an opening parenthesis after the operator does not affect
+how much of the following code constitutes the argument.  Put the opening
+parentheses before the operator to separate it from code that follows (this
+applies only to operators with higher precedence than unary operators, of
+course):
+
+    -s($file) + 1024   # probably wrong; same as -s($file + 1024)
+    (-s $file) + 1024  # correct
+
+The interpretation of the file permission operators C<-r>, C<-R>,
+C<-w>, C<-W>, C<-x>, and C<-X> is by default based solely on the mode
+of the file and the uids and gids of the user.  There may be other
+reasons you can't actually read, write, or execute the file: for
+example network filesystem access controls, ACLs (access control lists),
+read-only filesystems, and unrecognized executable formats.  Note
+that the use of these six specific operators to verify if some operation
+is possible is usually a mistake, because it may be open to race
+conditions.
+
+Also note that, for the superuser on the local filesystems, the C<-r>,
+C<-R>, C<-w>, and C<-W> tests always return 1, and C<-x> and C<-X> return 1
+if any execute bit is set in the mode.  Scripts run by the superuser
+may thus need to do a L<C<stat>|/stat FILEHANDLE> to determine the
+actual mode of the file, or temporarily set their effective uid to
+something else.
+
+If you are using ACLs, there is a pragma called L<C<filetest>|filetest>
+that may produce more accurate results than the bare
+L<C<stat>|/stat FILEHANDLE> mode bits.
+When under C<use filetest 'access'>, the above-mentioned filetests
+test whether the permission can(not) be granted using the L<access(2)>
+family of system calls.  Also note that the C<-x> and C<-X> tests may
+under this pragma return true even if there are no execute permission
+bits set (nor any extra execute permission ACLs).  This strangeness is
+due to the underlying system calls' definitions.  Note also that, due to
+the implementation of C<use filetest 'access'>, the C<_> special
+filehandle won't cache the results of the file tests when this pragma is
+in effect.  Read the documentation for the L<C<filetest>|filetest>
+pragma for more information.
+
+The C<-T> and C<-B> tests work as follows.  The first block or so of
+the file is examined to see if it is valid UTF-8 that includes non-ASCII
+characters.  If so, it's a C<-T> file.  Otherwise, that same portion of
+the file is examined for odd characters such as strange control codes or
+characters with the high bit set.  If more than a third of the
+characters are strange, it's a C<-B> file; otherwise it's a C<-T> file.
+Also, any file containing a zero byte in the examined portion is
+considered a binary file.  (If executed within the scope of a L<S<use
+locale>|perllocale> which includes C<LC_CTYPE>, odd characters are
+anything that isn't a printable nor space in the current locale.)  If
+C<-T> or C<-B> is used on a filehandle, the current IO buffer is
+examined
+rather than the first block.  Both C<-T> and C<-B> return true on an empty
+file, or a file at EOF when testing a filehandle.  Because you have to
+read a file to do the C<-T> test, on most occasions you want to use a C<-f>
+against the file first, as in C<next unless -f $file && -T $file>.
+
+If any of the file tests (or either the L<C<stat>|/stat FILEHANDLE> or
+L<C<lstat>|/lstat FILEHANDLE> operator) is given the special filehandle
+consisting of a solitary underline, then the stat structure of the
+previous file test (or L<C<stat>|/stat FILEHANDLE> operator) is used,
+saving a system call.  (This doesn't work with C<-t>, and you need to
+remember that L<C<lstat>|/lstat FILEHANDLE> and C<-l> leave values in
+the stat structure for the symbolic link, not the real file.)  (Also, if
+the stat buffer was filled by an L<C<lstat>|/lstat FILEHANDLE> call,
+C<-T> and C<-B> will reset it with the results of C<stat _>).
+Example:
+
+    print "Can do.\n" if -r $a || -w _ || -x _;
+
+    stat($filename);
+    print "Readable\n" if -r _;
+    print "Writable\n" if -w _;
+    print "Executable\n" if -x _;
+    print "Setuid\n" if -u _;
+    print "Setgid\n" if -g _;
+    print "Sticky\n" if -k _;
+    print "Text\n" if -T _;
+    print "Binary\n" if -B _;
+
+As of Perl 5.10.0, as a form of purely syntactic sugar, you can stack file
+test operators, in a way that C<-f -w -x $file> is equivalent to
+C<-x $file && -w _ && -f _>.  (This is only fancy syntax: if you use
+the return value of C<-f $file> as an argument to another filetest
+operator, no special magic will happen.)
+
+Portability issues: L<perlport/-X>.
+
+To avoid confusing would-be users of your code with mysterious
+syntax errors, put something like this at the top of your script:
+
+    use 5.010;  # so filetest ops can stack
+
+=item abs VALUE
+X<abs> X<absolute>
+
+=item abs
+
+=for Pod::Functions absolute value function
+
+Returns the absolute value of its argument.
+If VALUE is omitted, uses L<C<$_>|perlvar/$_>.
+
+=item accept NEWSOCKET,GENERICSOCKET
+X<accept>
+
+=for Pod::Functions accept an incoming socket connect
+
+Accepts an incoming socket connect, just as L<accept(2)>
+does.  Returns the packed address if it succeeded, false otherwise.
+See the example in L<perlipc/"Sockets: Client/Server Communication">.
+
+On systems that support a close-on-exec flag on files, the flag will
+be set for the newly opened file descriptor, as determined by the
+value of L<C<$^F>|perlvar/$^F>.  See L<perlvar/$^F>.
+
+=item alarm SECONDS
+X<alarm>
+X<SIGALRM>
+X<timer>
+
+=item alarm
+
+=for Pod::Functions schedule a SIGALRM
+
+Arranges to have a SIGALRM delivered to this process after the
+specified number of wallclock seconds has elapsed.  If SECONDS is not
+specified, the value stored in L<C<$_>|perlvar/$_> is used.  (On some
+machines, unfortunately, the elapsed time may be up to one second less
+or more than you specified because of how seconds are counted, and
+process scheduling may delay the delivery of the signal even further.)
+
+Only one timer may be counting at once.  Each call disables the
+previous timer, and an argument of C<0> may be supplied to cancel the
+previous timer without starting a new one.  The returned value is the
+amount of time remaining on the previous timer.
+
+For delays of finer granularity than one second, the L<Time::HiRes> module
+(from CPAN, and starting from Perl 5.8 part of the standard
+distribution) provides
+L<C<ualarm>|Time::HiRes/ualarm ( $useconds [, $interval_useconds ] )>.
+You may also use Perl's four-argument version of
+L<C<select>|/select RBITS,WBITS,EBITS,TIMEOUT> leaving the first three
+arguments undefined, or you might be able to use the
+L<C<syscall>|/syscall NUMBER, LIST> interface to access L<setitimer(2)>
+if your system supports it.  See L<perlfaq8> for details.
+
+It is usually a mistake to intermix L<C<alarm>|/alarm SECONDS> and
+L<C<sleep>|/sleep EXPR> calls, because L<C<sleep>|/sleep EXPR> may be
+internally implemented on your system with L<C<alarm>|/alarm SECONDS>.
+
+If you want to use L<C<alarm>|/alarm SECONDS> to time out a system call
+you need to use an L<C<eval>|/eval EXPR>/L<C<die>|/die LIST> pair.  You
+can't rely on the alarm causing the system call to fail with
+L<C<$!>|perlvar/$!> set to C<EINTR> because Perl sets up signal handlers
+to restart system calls on some systems.  Using
+L<C<eval>|/eval EXPR>/L<C<die>|/die LIST> always works, modulo the
+caveats given in L<perlipc/"Signals">.
+
+    eval {
+        local $SIG{ALRM} = sub { die "alarm\n" }; # NB: \n required
+        alarm $timeout;
+        my $nread = sysread $socket, $buffer, $size;
+        alarm 0;
+    };
+    if ($@) {
+        die unless $@ eq "alarm\n";   # propagate unexpected errors
+        # timed out
+    }
+    else {
+        # didn't
+    }
+
+For more information see L<perlipc>.
+
+Portability issues: L<perlport/alarm>.
+
+=item atan2 Y,X
+X<atan2> X<arctangent> X<tan> X<tangent>
+
+=for Pod::Functions arctangent of Y/X in the range -PI to PI
+
+Returns the arctangent of Y/X in the range -PI to PI.
+
+For the tangent operation, you may use the
+L<C<Math::Trig::tan>|Math::Trig/B<tan>> function, or use the familiar
+relation:
+
+    sub tan { sin($_[0]) / cos($_[0])  }
+
+The return value for C<atan2(0,0)> is implementation-defined; consult
+your L<atan2(3)> manpage for more information.
+
+Portability issues: L<perlport/atan2>.
+
+=item bind SOCKET,NAME
+X<bind>
+
+=for Pod::Functions binds an address to a socket
+
+Binds a network address to a socket, just as L<bind(2)>
+does.  Returns true if it succeeded, false otherwise.  NAME should be a
+packed address of the appropriate type for the socket.  See the examples in
+L<perlipc/"Sockets: Client/Server Communication">.
+
+=item binmode FILEHANDLE, LAYER
+X<binmode> X<binary> X<text> X<DOS> X<Windows>
+
+=item binmode FILEHANDLE
+
+=for Pod::Functions prepare binary files for I/O
+
+Arranges for FILEHANDLE to be read or written in "binary" or "text"
+mode on systems where the run-time libraries distinguish between
+binary and text files.  If FILEHANDLE is an expression, the value is
+taken as the name of the filehandle.  Returns true on success,
+otherwise it returns L<C<undef>|/undef EXPR> and sets
+L<C<$!>|perlvar/$!> (errno).
+
+On some systems (in general, DOS- and Windows-based systems)
+L<C<binmode>|/binmode FILEHANDLE, LAYER> is necessary when you're not
+working with a text file.  For the sake of portability it is a good idea
+always to use it when appropriate, and never to use it when it isn't
+appropriate.  Also, people can set their I/O to be by default
+UTF8-encoded Unicode, not bytes.
+
+In other words: regardless of platform, use
+L<C<binmode>|/binmode FILEHANDLE, LAYER> on binary data, like images,
+for example.
+
+If LAYER is present it is a single string, but may contain multiple
+directives.  The directives alter the behaviour of the filehandle.
+When LAYER is present, using binmode on a text file makes sense.
+
+If LAYER is omitted or specified as C<:raw> the filehandle is made
+suitable for passing binary data.  This includes turning off possible CRLF
+translation and marking it as bytes (as opposed to Unicode characters).
+Note that, despite what may be implied in I<"Programming Perl"> (the
+Camel, 3rd edition) or elsewhere, C<:raw> is I<not> simply the inverse of C<:crlf>.
+Other layers that would affect the binary nature of the stream are
+I<also> disabled.  See L<PerlIO>, L<perlrun>, and the discussion about the
+PERLIO environment variable.
+
+The C<:bytes>, C<:crlf>, C<:utf8>, and any other directives of the
+form C<:...>, are called I/O I<layers>.  The L<open> pragma can be used to
+establish default I/O layers.
+
+I<The LAYER parameter of the L<C<binmode>|/binmode FILEHANDLE, LAYER>
+function is described as "DISCIPLINE" in "Programming Perl, 3rd
+Edition".  However, since the publishing of this book, by many known as
+"Camel III", the consensus of the naming of this functionality has moved
+from "discipline" to "layer".  All documentation of this version of Perl
+therefore refers to "layers" rather than to "disciplines".  Now back to
+the regularly scheduled documentation...>
+
+To mark FILEHANDLE as UTF-8, use C<:utf8> or C<:encoding(UTF-8)>.
+C<:utf8> just marks the data as UTF-8 without further checking,
+while C<:encoding(UTF-8)> checks the data for actually being valid
+UTF-8.  More details can be found in L<PerlIO::encoding>.
+
+In general, L<C<binmode>|/binmode FILEHANDLE, LAYER> should be called
+after L<C<open>|/open FILEHANDLE,EXPR> but before any I/O is done on the
+filehandle.  Calling L<C<binmode>|/binmode FILEHANDLE, LAYER> normally
+flushes any pending buffered output data (and perhaps pending input
+data) on the handle.  An exception to this is the C<:encoding> layer
+that changes the default character encoding of the handle.
+The C<:encoding> layer sometimes needs to be called in
+mid-stream, and it doesn't flush the stream.  C<:encoding>
+also implicitly pushes on top of itself the C<:utf8> layer because
+internally Perl operates on UTF8-encoded Unicode characters.
+
+The operating system, device drivers, C libraries, and Perl run-time
+system all conspire to let the programmer treat a single
+character (C<\n>) as the line terminator, irrespective of external
+representation.  On many operating systems, the native text file
+representation matches the internal representation, but on some
+platforms the external representation of C<\n> is made up of more than
+one character.
+
+All variants of Unix, Mac OS (old and new), and Stream_LF files on VMS use
+a single character to end each line in the external representation of text
+(even though that single character is CARRIAGE RETURN on old, pre-Darwin
+flavors of Mac OS, and is LINE FEED on Unix and most VMS files).  In other
+systems like OS/2, DOS, and the various flavors of MS-Windows, your program
+sees a C<\n> as a simple C<\cJ>, but what's stored in text files are the
+two characters C<\cM\cJ>.  That means that if you don't use
+L<C<binmode>|/binmode FILEHANDLE, LAYER> on these systems, C<\cM\cJ>
+sequences on disk will be converted to C<\n> on input, and any C<\n> in
+your program will be converted back to C<\cM\cJ> on output.  This is
+what you want for text files, but it can be disastrous for binary files.
+
+Another consequence of using L<C<binmode>|/binmode FILEHANDLE, LAYER>
+(on some systems) is that special end-of-file markers will be seen as
+part of the data stream.  For systems from the Microsoft family this
+means that, if your binary data contain C<\cZ>, the I/O subsystem will
+regard it as the end of the file, unless you use
+L<C<binmode>|/binmode FILEHANDLE, LAYER>.
+
+L<C<binmode>|/binmode FILEHANDLE, LAYER> is important not only for
+L<C<readline>|/readline EXPR> and L<C<print>|/print FILEHANDLE LIST>
+operations, but also when using
+L<C<read>|/read FILEHANDLE,SCALAR,LENGTH,OFFSET>,
+L<C<seek>|/seek FILEHANDLE,POSITION,WHENCE>,
+L<C<sysread>|/sysread FILEHANDLE,SCALAR,LENGTH,OFFSET>,
+L<C<syswrite>|/syswrite FILEHANDLE,SCALAR,LENGTH,OFFSET> and
+L<C<tell>|/tell FILEHANDLE> (see L<perlport> for more details).  See the
+L<C<$E<sol>>|perlvar/$E<sol>> and L<C<$\>|perlvar/$\> variables in
+L<perlvar> for how to manually set your input and output
+line-termination sequences.
+
+Portability issues: L<perlport/binmode>.
+
+=item bless REF,CLASSNAME
+X<bless>
+
+=item bless REF
+
+=for Pod::Functions create an object
+
+This function tells the thingy referenced by REF that it is now an object
+in the CLASSNAME package.  If CLASSNAME is omitted, the current package
+is used.  Because a L<C<bless>|/bless REF,CLASSNAME> is often the last
+thing in a constructor, it returns the reference for convenience.
+Always use the two-argument version if a derived class might inherit the
+method doing the blessing.  See L<perlobj> for more about the blessing
+(and blessings) of objects.
+
+Consider always blessing objects in CLASSNAMEs that are mixed case.
+Namespaces with all lowercase names are considered reserved for
+Perl pragmas.  Builtin types have all uppercase names.  To prevent
+confusion, you may wish to avoid such package names as well.  Make sure
+that CLASSNAME is a true value.
+
+See L<perlmod/"Perl Modules">.
+
+=item break
+
+=for Pod::Functions +switch break out of a C<given> block
+
+Break out of a C<given> block.
+
+L<C<break>|/break> is available only if the
+L<C<"switch"> feature|feature/The 'switch' feature> is enabled or if it
+is prefixed with C<CORE::>. The
+L<C<"switch"> feature|feature/The 'switch' feature> is enabled
+automatically with a C<use v5.10> (or higher) declaration in the current
+scope.
+
+=item caller EXPR
+X<caller> X<call stack> X<stack> X<stack trace>
+
+=item caller
+
+=for Pod::Functions get context of the current subroutine call
+
+Returns the context of the current pure perl subroutine call.  In scalar
+context, returns the caller's package name if there I<is> a caller (that is, if
+we're in a subroutine or L<C<eval>|/eval EXPR> or
+L<C<require>|/require VERSION>) and the undefined value otherwise.
+caller never returns XS subs and they are skipped.  The next pure perl
+sub will appear instead of the XS sub in caller's return values.  In
+list context, caller returns
+
+       # 0         1          2
+    my ($package, $filename, $line) = caller;
+
+With EXPR, it returns some extra information that the debugger uses to
+print a stack trace.  The value of EXPR indicates how many call frames
+to go back before the current one.
+
+    #  0         1          2      3            4
+ my ($package, $filename, $line, $subroutine, $hasargs,
+
+    #  5          6          7            8       9         10
+    $wantarray, $evaltext, $is_require, $hints, $bitmask, $hinthash)
+  = caller($i);
+
+Here, $subroutine is the function that the caller called (rather than the
+function containing the caller).  Note that $subroutine may be C<(eval)> if
+the frame is not a subroutine call, but an L<C<eval>|/eval EXPR>.  In
+such a case additional elements $evaltext and C<$is_require> are set:
+C<$is_require> is true if the frame is created by a
+L<C<require>|/require VERSION> or L<C<use>|/use Module VERSION LIST>
+statement, $evaltext contains the text of the C<eval EXPR> statement.
+In particular, for an C<eval BLOCK> statement, $subroutine is C<(eval)>,
+but $evaltext is undefined.  (Note also that each
+L<C<use>|/use Module VERSION LIST> statement creates a
+L<C<require>|/require VERSION> frame inside an C<eval EXPR> frame.)
+$subroutine may also be C<(unknown)> if this particular subroutine
+happens to have been deleted from the symbol table.  C<$hasargs> is true
+if a new instance of L<C<@_>|perlvar/@_> was set up for the frame.
+C<$hints> and C<$bitmask> contain pragmatic hints that the caller was
+compiled with.  C<$hints> corresponds to L<C<$^H>|perlvar/$^H>, and
+C<$bitmask> corresponds to
+L<C<${^WARNING_BITS}>|perlvar/${^WARNING_BITS}>.  The C<$hints> and
+C<$bitmask> values are subject to change between versions of Perl, and
+are not meant for external use.
+
+C<$hinthash> is a reference to a hash containing the value of
+L<C<%^H>|perlvar/%^H> when the caller was compiled, or
+L<C<undef>|/undef EXPR> if L<C<%^H>|perlvar/%^H> was empty.  Do not
+modify the values of this hash, as they are the actual values stored in
+the optree.
+
+Furthermore, when called from within the DB package in
+list context, and with an argument, caller returns more
+detailed information: it sets the list variable C<@DB::args> to be the
+arguments with which the subroutine was invoked.
+
+Be aware that the optimizer might have optimized call frames away before
+L<C<caller>|/caller EXPR> had a chance to get the information.  That
+means that C<caller(N)> might not return information about the call
+frame you expect it to, for C<< N > 1 >>.  In particular, C<@DB::args>
+might have information from the previous time L<C<caller>|/caller EXPR>
+was called.
+
+Be aware that setting C<@DB::args> is I<best effort>, intended for
+debugging or generating backtraces, and should not be relied upon.  In
+particular, as L<C<@_>|perlvar/@_> contains aliases to the caller's
+arguments, Perl does not take a copy of L<C<@_>|perlvar/@_>, so
+C<@DB::args> will contain modifications the subroutine makes to
+L<C<@_>|perlvar/@_> or its contents, not the original values at call
+time.  C<@DB::args>, like L<C<@_>|perlvar/@_>, does not hold explicit
+references to its elements, so under certain cases its elements may have
+become freed and reallocated for other variables or temporary values.
+Finally, a side effect of the current implementation is that the effects
+of C<shift @_> can I<normally> be undone (but not C<pop @_> or other
+splicing, I<and> not if a reference to L<C<@_>|perlvar/@_> has been
+taken, I<and> subject to the caveat about reallocated elements), so
+C<@DB::args> is actually a hybrid of the current state and initial state
+of L<C<@_>|perlvar/@_>.  Buyer beware.
+
+=item chdir EXPR
+X<chdir>
+X<cd>
+X<directory, change>
+
+=item chdir FILEHANDLE
+
+=item chdir DIRHANDLE
+
+=item chdir
+
+=for Pod::Functions change your current working directory
+
+Changes the working directory to EXPR, if possible.  If EXPR is omitted,
+changes to the directory specified by C<$ENV{HOME}>, if set; if not,
+changes to the directory specified by C<$ENV{LOGDIR}>.  (Under VMS, the
+variable C<$ENV{'SYS$LOGIN'}> is also checked, and used if it is set.)  If
+neither is set, L<C<chdir>|/chdir EXPR> does nothing and fails.  It
+returns true on success, false otherwise.  See the example under
+L<C<die>|/die LIST>.
+
+On systems that support L<fchdir(2)>, you may pass a filehandle or
+directory handle as the argument.  On systems that don't support L<fchdir(2)>,
+passing handles raises an exception.
+
+=item chmod LIST
+X<chmod> X<permission> X<mode>
+
+=for Pod::Functions changes the permissions on a list of files
+
+Changes the permissions of a list of files.  The first element of the
+list must be the numeric mode, which should probably be an octal
+number, and which definitely should I<not> be a string of octal digits:
+C<0644> is okay, but C<"0644"> is not.  Returns the number of files
+successfully changed.  See also L<C<oct>|/oct EXPR> if all you have is a
+string.
+
+    my $cnt = chmod 0755, "foo", "bar";
+    chmod 0755, @executables;
+    my $mode = "0644"; chmod $mode, "foo";      # !!! sets mode to
+                                                # --w----r-T
+    my $mode = "0644"; chmod oct($mode), "foo"; # this is better
+    my $mode = 0644;   chmod $mode, "foo";      # this is best
+
+On systems that support L<fchmod(2)>, you may pass filehandles among the
+files.  On systems that don't support L<fchmod(2)>, passing filehandles raises
+an exception.  Filehandles must be passed as globs or glob references to be
+recognized; barewords are considered filenames.
+
+    open(my $fh, "<", "foo");
+    my $perm = (stat $fh)[2] & 07777;
+    chmod($perm | 0600, $fh);
+
+You can also import the symbolic C<S_I*> constants from the
+L<C<Fcntl>|Fcntl> module:
+
+    use Fcntl qw( :mode );
+    chmod S_IRWXU|S_IRGRP|S_IXGRP|S_IROTH|S_IXOTH, @executables;
+    # Identical to the chmod 0755 of the example above.
+
+Portability issues: L<perlport/chmod>.
+
+=item chomp VARIABLE
+X<chomp> X<INPUT_RECORD_SEPARATOR> X<$/> X<newline> X<eol>
+
+=item chomp( LIST )
+
+=item chomp
+
+=for Pod::Functions remove a trailing record separator from a string
+
+This safer version of L<C<chop>|/chop VARIABLE> removes any trailing
+string that corresponds to the current value of
+L<C<$E<sol>>|perlvar/$E<sol>> (also known as C<$INPUT_RECORD_SEPARATOR>
+in the L<C<English>|English> module).  It returns the total
+number of characters removed from all its arguments.  It's often used to
+remove the newline from the end of an input record when you're worried
+that the final record may be missing its newline.  When in paragraph
+mode (C<$/ = ''>), it removes all trailing newlines from the string.
+When in slurp mode (C<$/ = undef>) or fixed-length record mode
+(L<C<$E<sol>>|perlvar/$E<sol>> is a reference to an integer or the like;
+see L<perlvar>), L<C<chomp>|/chomp VARIABLE> won't remove anything.
+If VARIABLE is omitted, it chomps L<C<$_>|perlvar/$_>.  Example:
+
+    while (<>) {
+        chomp;  # avoid \n on last field
+        my @array = split(/:/);
+        # ...
+    }
+
+If VARIABLE is a hash, it chomps the hash's values, but not its keys,
+resetting the L<C<each>|/each HASH> iterator in the process.
+
+You can actually chomp anything that's an lvalue, including an assignment:
+
+    chomp(my $cwd = `pwd`);
+    chomp(my $answer = <STDIN>);
+
+If you chomp a list, each element is chomped, and the total number of
+characters removed is returned.
+
+Note that parentheses are necessary when you're chomping anything
+that is not a simple variable.  This is because C<chomp $cwd = `pwd`;>
+is interpreted as C<(chomp $cwd) = `pwd`;>, rather than as
+C<chomp( $cwd = `pwd` )> which you might expect.  Similarly,
+C<chomp $a, $b> is interpreted as C<chomp($a), $b> rather than
+as C<chomp($a, $b)>.
+
+=item chop VARIABLE
+X<chop>
+
+=item chop( LIST )
+
+=item chop
+
+=for Pod::Functions remove the last character from a string
+
+Chops off the last character of a string and returns the character
+chopped.  It is much more efficient than C<s/.$//s> because it neither
+scans nor copies the string.  If VARIABLE is omitted, chops
+L<C<$_>|perlvar/$_>.
+If VARIABLE is a hash, it chops the hash's values, but not its keys,
+resetting the L<C<each>|/each HASH> iterator in the process.
+
+You can actually chop anything that's an lvalue, including an assignment.
+
+If you chop a list, each element is chopped.  Only the value of the
+last L<C<chop>|/chop VARIABLE> is returned.
+
+Note that L<C<chop>|/chop VARIABLE> returns the last character.  To
+return all but the last character, use C<substr($string, 0, -1)>.
+
+See also L<C<chomp>|/chomp VARIABLE>.
+
+=item chown LIST
+X<chown> X<owner> X<user> X<group>
+
+=for Pod::Functions change the ownership on a list of files
+
+Changes the owner (and group) of a list of files.  The first two
+elements of the list must be the I<numeric> uid and gid, in that
+order.  A value of -1 in either position is interpreted by most
+systems to leave that value unchanged.  Returns the number of files
+successfully changed.
+
+    my $cnt = chown $uid, $gid, 'foo', 'bar';
+    chown $uid, $gid, @filenames;
+
+On systems that support L<fchown(2)>, you may pass filehandles among the
+files.  On systems that don't support L<fchown(2)>, passing filehandles raises
+an exception.  Filehandles must be passed as globs or glob references to be
+recognized; barewords are considered filenames.
+
+Here's an example that looks up nonnumeric uids in the passwd file:
+
+    print "User: ";
+    chomp(my $user = <STDIN>);
+    print "Files: ";
+    chomp(my $pattern = <STDIN>);
+
+    my ($login,$pass,$uid,$gid) = getpwnam($user)
+        or die "$user not in passwd file";
+
+    my @ary = glob($pattern);  # expand filenames
+    chown $uid, $gid, @ary;
+
+On most systems, you are not allowed to change the ownership of the
+file unless you're the superuser, although you should be able to change
+the group to any of your secondary groups.  On insecure systems, these
+restrictions may be relaxed, but this is not a portable assumption.
+On POSIX systems, you can detect this condition this way:
+
+    use POSIX qw(sysconf _PC_CHOWN_RESTRICTED);
+    my $can_chown_giveaway = ! sysconf(_PC_CHOWN_RESTRICTED);
+
+Portability issues: L<perlport/chown>.
+
+=item chr NUMBER
+X<chr> X<character> X<ASCII> X<Unicode>
+
+=item chr
+
+=for Pod::Functions get character this number represents
+
+Returns the character represented by that NUMBER in the character set.
+For example, C<chr(65)> is C<"A"> in either ASCII or Unicode, and
+chr(0x263a) is a Unicode smiley face.
+
+Negative values give the Unicode replacement character (chr(0xfffd)),
+except under the L<bytes> pragma, where the low eight bits of the value
+(truncated to an integer) are used.
+
+If NUMBER is omitted, uses L<C<$_>|perlvar/$_>.
+
+For the reverse, use L<C<ord>|/ord EXPR>.
+
+Note that characters from 128 to 255 (inclusive) are by default
+internally not encoded as UTF-8 for backward compatibility reasons.
+
+See L<perlunicode> for more about Unicode.
+
+=item chroot FILENAME
+X<chroot> X<root>
+
+=item chroot
+
+=for Pod::Functions make directory new root for path lookups
+
+This function works like the system call by the same name: it makes the
+named directory the new root directory for all further pathnames that
+begin with a C</> by your process and all its children.  (It doesn't
+change your current working directory, which is unaffected.)  For security
+reasons, this call is restricted to the superuser.  If FILENAME is
+omitted, does a L<C<chroot>|/chroot FILENAME> to L<C<$_>|perlvar/$_>.
+
+B<NOTE:>  It is good security practice to do C<chdir("/")>
+(L<C<chdir>|/chdir EXPR> to the root directory) immediately after a
+L<C<chroot>|/chroot FILENAME>.
+
+Portability issues: L<perlport/chroot>.
+
+=item close FILEHANDLE
+X<close>
+
+=item close
+
+=for Pod::Functions close file (or pipe or socket) handle
+
+Closes the file or pipe associated with the filehandle, flushes the IO
+buffers, and closes the system file descriptor.  Returns true if those
+operations succeed and if no error was reported by any PerlIO
+layer.  Closes the currently selected filehandle if the argument is
+omitted.
+
+You don't have to close FILEHANDLE if you are immediately going to do
+another L<C<open>|/open FILEHANDLE,EXPR> on it, because
+L<C<open>|/open FILEHANDLE,EXPR> closes it for you.  (See
+L<C<open>|/open FILEHANDLE,EXPR>.) However, an explicit
+L<C<close>|/close FILEHANDLE> on an input file resets the line counter
+(L<C<$.>|perlvar/$.>), while the implicit close done by
+L<C<open>|/open FILEHANDLE,EXPR> does not.
+
+If the filehandle came from a piped open, L<C<close>|/close FILEHANDLE>
+returns false if one of the other syscalls involved fails or if its
+program exits with non-zero status.  If the only problem was that the
+program exited non-zero, L<C<$!>|perlvar/$!> will be set to C<0>.
+Closing a pipe also waits for the process executing on the pipe to
+exit--in case you wish to look at the output of the pipe afterwards--and
+implicitly puts the exit status value of that command into
+L<C<$?>|perlvar/$?> and
+L<C<${^CHILD_ERROR_NATIVE}>|perlvar/${^CHILD_ERROR_NATIVE}>.
+
+If there are multiple threads running, L<C<close>|/close FILEHANDLE> on
+a filehandle from a piped open returns true without waiting for the
+child process to terminate, if the filehandle is still open in another
+thread.
+
+Closing the read end of a pipe before the process writing to it at the
+other end is done writing results in the writer receiving a SIGPIPE.  If
+the other end can't handle that, be sure to read all the data before
+closing the pipe.
+
+Example:
+
+    open(OUTPUT, '|sort >foo')  # pipe to sort
+        or die "Can't start sort: $!";
+    #...                        # print stuff to output
+    close OUTPUT                # wait for sort to finish
+        or warn $! ? "Error closing sort pipe: $!"
+                   : "Exit status $? from sort";
+    open(INPUT, 'foo')          # get sort's results
+        or die "Can't open 'foo' for input: $!";
+
+FILEHANDLE may be an expression whose value can be used as an indirect
+filehandle, usually the real filehandle name or an autovivified handle.
+
+=item closedir DIRHANDLE
+X<closedir>
+
+=for Pod::Functions close directory handle
+
+Closes a directory opened by L<C<opendir>|/opendir DIRHANDLE,EXPR> and
+returns the success of that system call.
+
+=item connect SOCKET,NAME
+X<connect>
+
+=for Pod::Functions connect to a remote socket
+
+Attempts to connect to a remote socket, just like L<connect(2)>.
+Returns true if it succeeded, false otherwise.  NAME should be a
+packed address of the appropriate type for the socket.  See the examples in
+L<perlipc/"Sockets: Client/Server Communication">.
+
+=item continue BLOCK
+X<continue>
+
+=item continue
+
+=for Pod::Functions optional trailing block in a while or foreach
+
+When followed by a BLOCK, L<C<continue>|/continue BLOCK> is actually a
+flow control statement rather than a function.  If there is a
+L<C<continue>|/continue BLOCK> BLOCK attached to a BLOCK (typically in a
+C<while> or C<foreach>), it is always executed just before the
+conditional is about to be evaluated again, just like the third part of
+a C<for> loop in C.  Thus it can be used to increment a loop variable,
+even when the loop has been continued via the L<C<next>|/next LABEL>
+statement (which is similar to the C L<C<continue>|/continue BLOCK>
+statement).
+
+L<C<last>|/last LABEL>, L<C<next>|/next LABEL>, or
+L<C<redo>|/redo LABEL> may appear within a
+L<C<continue>|/continue BLOCK> block; L<C<last>|/last LABEL> and
+L<C<redo>|/redo LABEL> behave as if they had been executed within the
+main block.  So will L<C<next>|/next LABEL>, but since it will execute a
+L<C<continue>|/continue BLOCK> block, it may be more entertaining.
+
+    while (EXPR) {
+        ### redo always comes here
+        do_something;
+    } continue {
+        ### next always comes here
+        do_something_else;
+        # then back the top to re-check EXPR
+    }
+    ### last always comes here
+
+Omitting the L<C<continue>|/continue BLOCK> section is equivalent to
+using an empty one, logically enough, so L<C<next>|/next LABEL> goes
+directly back to check the condition at the top of the loop.
+
+When there is no BLOCK, L<C<continue>|/continue BLOCK> is a function
+that falls through the current C<when> or C<default> block instead of
+iterating a dynamically enclosing C<foreach> or exiting a lexically
+enclosing C<given>.  In Perl 5.14 and earlier, this form of
+L<C<continue>|/continue BLOCK> was only available when the
+L<C<"switch"> feature|feature/The 'switch' feature> was enabled.  See
+L<feature> and L<perlsyn/"Switch Statements"> for more information.
+
+=item cos EXPR
+X<cos> X<cosine> X<acos> X<arccosine>
+
+=item cos
+
+=for Pod::Functions cosine function
+
+Returns the cosine of EXPR (expressed in radians).  If EXPR is omitted,
+takes the cosine of L<C<$_>|perlvar/$_>.
+
+For the inverse cosine operation, you may use the
+L<C<Math::Trig::acos>|Math::Trig> function, or use this relation:
+
+    sub acos { atan2( sqrt(1 - $_[0] * $_[0]), $_[0] ) }
+
+=item crypt PLAINTEXT,SALT
+X<crypt> X<digest> X<hash> X<salt> X<plaintext> X<password>
+X<decrypt> X<cryptography> X<passwd> X<encrypt>
+
+=for Pod::Functions one-way passwd-style encryption
+
+Creates a digest string exactly like the L<crypt(3)> function in the C
+library (assuming that you actually have a version there that has not
+been extirpated as a potential munition).
+
+L<C<crypt>|/crypt PLAINTEXT,SALT> is a one-way hash function.  The
+PLAINTEXT and SALT are turned
+into a short string, called a digest, which is returned.  The same
+PLAINTEXT and SALT will always return the same string, but there is no
+(known) way to get the original PLAINTEXT from the hash.  Small
+changes in the PLAINTEXT or SALT will result in large changes in the
+digest.
+
+There is no decrypt function.  This function isn't all that useful for
+cryptography (for that, look for F<Crypt> modules on your nearby CPAN
+mirror) and the name "crypt" is a bit of a misnomer.  Instead it is
+primarily used to check if two pieces of text are the same without
+having to transmit or store the text itself.  An example is checking
+if a correct password is given.  The digest of the password is stored,
+not the password itself.  The user types in a password that is
+L<C<crypt>|/crypt PLAINTEXT,SALT>'d with the same salt as the stored
+digest.  If the two digests match, the password is correct.
+
+When verifying an existing digest string you should use the digest as
+the salt (like C<crypt($plain, $digest) eq $digest>).  The SALT used
+to create the digest is visible as part of the digest.  This ensures
+L<C<crypt>|/crypt PLAINTEXT,SALT> will hash the new string with the same
+salt as the digest.  This allows your code to work with the standard
+L<C<crypt>|/crypt PLAINTEXT,SALT> and with more exotic implementations.
+In other words, assume nothing about the returned string itself nor
+about how many bytes of SALT may matter.
+
+Traditionally the result is a string of 13 bytes: two first bytes of
+the salt, followed by 11 bytes from the set C<[./0-9A-Za-z]>, and only
+the first eight bytes of PLAINTEXT mattered.  But alternative
+hashing schemes (like MD5), higher level security schemes (like C2),
+and implementations on non-Unix platforms may produce different
+strings.
+
+When choosing a new salt create a random two character string whose
+characters come from the set C<[./0-9A-Za-z]> (like C<join '', ('.',
+'/', 0..9, 'A'..'Z', 'a'..'z')[rand 64, rand 64]>).  This set of
+characters is just a recommendation; the characters allowed in
+the salt depend solely on your system's crypt library, and Perl can't
+restrict what salts L<C<crypt>|/crypt PLAINTEXT,SALT> accepts.
+
+Here's an example that makes sure that whoever runs this program knows
+their password:
+
+    my $pwd = (getpwuid($<))[1];
+
+    system "stty -echo";
+    print "Password: ";
+    chomp(my $word = <STDIN>);
+    print "\n";
+    system "stty echo";
+
+    if (crypt($word, $pwd) ne $pwd) {
+        die "Sorry...\n";
+    } else {
+        print "ok\n";
+    }
+
+Of course, typing in your own password to whoever asks you
+for it is unwise.
+
+The L<C<crypt>|/crypt PLAINTEXT,SALT> function is unsuitable for hashing
+large quantities of data, not least of all because you can't get the
+information back.  Look at the L<Digest> module for more robust
+algorithms.
+
+If using L<C<crypt>|/crypt PLAINTEXT,SALT> on a Unicode string (which
+I<potentially> has characters with codepoints above 255), Perl tries to
+make sense of the situation by trying to downgrade (a copy of) the
+string back to an eight-bit byte string before calling
+L<C<crypt>|/crypt PLAINTEXT,SALT> (on that copy).  If that works, good.
+If not, L<C<crypt>|/crypt PLAINTEXT,SALT> dies with
+L<C<Wide character in crypt>|perldiag/Wide character in %s>.
+
+Portability issues: L<perlport/crypt>.
+
+=item dbmclose HASH
+X<dbmclose>
+
+=for Pod::Functions breaks binding on a tied dbm file
+
+[This function has been largely superseded by the
+L<C<untie>|/untie VARIABLE> function.]
+
+Breaks the binding between a DBM file and a hash.
+
+Portability issues: L<perlport/dbmclose>.
+
+=item dbmopen HASH,DBNAME,MASK
+X<dbmopen> X<dbm> X<ndbm> X<sdbm> X<gdbm>
+
+=for Pod::Functions create binding on a tied dbm file
+
+[This function has been largely superseded by the
+L<C<tie>|/tie VARIABLE,CLASSNAME,LIST> function.]
+
+This binds a L<dbm(3)>, L<ndbm(3)>, L<sdbm(3)>, L<gdbm(3)>, or Berkeley
+DB file to a hash.  HASH is the name of the hash.  (Unlike normal
+L<C<open>|/open FILEHANDLE,EXPR>, the first argument is I<not> a
+filehandle, even though it looks like one).  DBNAME is the name of the
+database (without the F<.dir> or F<.pag> extension if any).  If the
+database does not exist, it is created with protection specified by MASK
+(as modified by the L<C<umask>|/umask EXPR>).  To prevent creation of
+the database if it doesn't exist, you may specify a MODE of 0, and the
+function will return a false value if it can't find an existing
+database.  If your system supports only the older DBM functions, you may
+make only one L<C<dbmopen>|/dbmopen HASH,DBNAME,MASK> call in your
+program.  In older versions of Perl, if your system had neither DBM nor
+ndbm, calling L<C<dbmopen>|/dbmopen HASH,DBNAME,MASK> produced a fatal
+error; it now falls back to L<sdbm(3)>.
+
+If you don't have write access to the DBM file, you can only read hash
+variables, not set them.  If you want to test whether you can write,
+either use file tests or try setting a dummy hash entry inside an
+L<C<eval>|/eval EXPR> to trap the error.
+
+Note that functions such as L<C<keys>|/keys HASH> and
+L<C<values>|/values HASH> may return huge lists when used on large DBM
+files.  You may prefer to use the L<C<each>|/each HASH> function to
+iterate over large DBM files.  Example:
+
+    # print out history file offsets
+    dbmopen(%HIST,'/usr/lib/news/history',0666);
+    while (($key,$val) = each %HIST) {
+        print $key, ' = ', unpack('L',$val), "\n";
+    }
+    dbmclose(%HIST);
+
+See also L<AnyDBM_File> for a more general description of the pros and
+cons of the various dbm approaches, as well as L<DB_File> for a particularly
+rich implementation.
+
+You can control which DBM library you use by loading that library
+before you call L<C<dbmopen>|/dbmopen HASH,DBNAME,MASK>:
+
+    use DB_File;
+    dbmopen(%NS_Hist, "$ENV{HOME}/.netscape/history.db")
+        or die "Can't open netscape history file: $!";
+
+Portability issues: L<perlport/dbmopen>.
+
+=item defined EXPR
+X<defined> X<undef> X<undefined>
+
+=item defined
+
+=for Pod::Functions test whether a value, variable, or function is defined
+
+Returns a Boolean value telling whether EXPR has a value other than the
+undefined value L<C<undef>|/undef EXPR>.  If EXPR is not present,
+L<C<$_>|perlvar/$_> is checked.
+
+Many operations return L<C<undef>|/undef EXPR> to indicate failure, end
+of file, system error, uninitialized variable, and other exceptional
+conditions.  This function allows you to distinguish
+L<C<undef>|/undef EXPR> from other values.  (A simple Boolean test will
+not distinguish among L<C<undef>|/undef EXPR>, zero, the empty string,
+and C<"0">, which are all equally false.)  Note that since
+L<C<undef>|/undef EXPR> is a valid scalar, its presence doesn't
+I<necessarily> indicate an exceptional condition: L<C<pop>|/pop ARRAY>
+returns L<C<undef>|/undef EXPR> when its argument is an empty array,
+I<or> when the element to return happens to be L<C<undef>|/undef EXPR>.
+
+You may also use C<defined(&func)> to check whether subroutine C<func>
+has ever been defined.  The return value is unaffected by any forward
+declarations of C<func>.  A subroutine that is not defined
+may still be callable: its package may have an C<AUTOLOAD> method that
+makes it spring into existence the first time that it is called; see
+L<perlsub>.
+
+Use of L<C<defined>|/defined EXPR> on aggregates (hashes and arrays) is
+deprecated.  It
+used to report whether memory for that aggregate had ever been
+allocated.  This behavior may disappear in future versions of Perl.
+You should instead use a simple test for size:
+
+    if (@an_array) { print "has array elements\n" }
+    if (%a_hash)   { print "has hash members\n"   }
+
+When used on a hash element, it tells you whether the value is defined,
+not whether the key exists in the hash.  Use L<C<exists>|/exists EXPR>
+for the latter purpose.
+
+Examples:
+
+    print if defined $switch{D};
+    print "$val\n" while defined($val = pop(@ary));
+    die "Can't readlink $sym: $!"
+        unless defined($value = readlink $sym);
+    sub foo { defined &$bar ? $bar->(@_) : die "No bar"; }
+    $debugging = 0 unless defined $debugging;
+
+Note:  Many folks tend to overuse L<C<defined>|/defined EXPR> and are
+then surprised to discover that the number C<0> and C<""> (the
+zero-length string) are, in fact, defined values.  For example, if you
+say
+
+    "ab" =~ /a(.*)b/;
+
+The pattern match succeeds and C<$1> is defined, although it
+matched "nothing".  It didn't really fail to match anything.  Rather, it
+matched something that happened to be zero characters long.  This is all
+very above-board and honest.  When a function returns an undefined value,
+it's an admission that it couldn't give you an honest answer.  So you
+should use L<C<defined>|/defined EXPR> only when questioning the
+integrity of what you're trying to do.  At other times, a simple
+comparison to C<0> or C<""> is what you want.
+
+See also L<C<undef>|/undef EXPR>, L<C<exists>|/exists EXPR>,
+L<C<ref>|/ref EXPR>.
+
+=item delete EXPR
+X<delete>
+
+=for Pod::Functions deletes a value from a hash
+
+Given an expression that specifies an element or slice of a hash,
+L<C<delete>|/delete EXPR> deletes the specified elements from that hash
+so that L<C<exists>|/exists EXPR> on that element no longer returns
+true.  Setting a hash element to the undefined value does not remove its
+key, but deleting it does; see L<C<exists>|/exists EXPR>.
+
+In list context, returns the value or values deleted, or the last such
+element in scalar context.  The return list's length always matches that of
+the argument list: deleting non-existent elements returns the undefined value
+in their corresponding positions.
+
+L<C<delete>|/delete EXPR> may also be used on arrays and array slices,
+but its behavior is less straightforward.  Although
+L<C<exists>|/exists EXPR> will return false for deleted entries,
+deleting array elements never changes indices of existing values; use
+L<C<shift>|/shift ARRAY> or L<C<splice>|/splice
+ARRAY,OFFSET,LENGTH,LIST> for that.  However, if any deleted elements
+fall at the end of an array, the array's size shrinks to the position of
+the highest element that still tests true for L<C<exists>|/exists EXPR>,
+or to 0 if none do.  In other words, an array won't have trailing
+nonexistent elements after a delete.
+
+B<WARNING:> Calling L<C<delete>|/delete EXPR> on array values is
+strongly discouraged.  The
+notion of deleting or checking the existence of Perl array elements is not
+conceptually coherent, and can lead to surprising behavior.
+
+Deleting from L<C<%ENV>|perlvar/%ENV> modifies the environment.
+Deleting from a hash tied to a DBM file deletes the entry from the DBM
+file.  Deleting from a L<C<tied>|/tied VARIABLE> hash or array may not
+necessarily return anything; it depends on the implementation of the
+L<C<tied>|/tied VARIABLE> package's DELETE method, which may do whatever
+it pleases.
+
+The C<delete local EXPR> construct localizes the deletion to the current
+block at run time.  Until the block exits, elements locally deleted
+temporarily no longer exist.  See L<perlsub/"Localized deletion of elements
+of composite types">.
+
+    my %hash = (foo => 11, bar => 22, baz => 33);
+    my $scalar = delete $hash{foo};         # $scalar is 11
+    $scalar = delete @hash{qw(foo bar)}; # $scalar is 22
+    my @array  = delete @hash{qw(foo baz)}; # @array  is (undef,33)
+
+The following (inefficiently) deletes all the values of %HASH and @ARRAY:
+
+    foreach my $key (keys %HASH) {
+        delete $HASH{$key};
+    }
+
+    foreach my $index (0 .. $#ARRAY) {
+        delete $ARRAY[$index];
+    }
+
+And so do these:
+
+    delete @HASH{keys %HASH};
+
+    delete @ARRAY[0 .. $#ARRAY];
+
+But both are slower than assigning the empty list
+or undefining %HASH or @ARRAY, which is the customary
+way to empty out an aggregate:
+
+    %HASH = ();     # completely empty %HASH
+    undef %HASH;    # forget %HASH ever existed
+
+    @ARRAY = ();    # completely empty @ARRAY
+    undef @ARRAY;   # forget @ARRAY ever existed
+
+The EXPR can be arbitrarily complicated provided its
+final operation is an element or slice of an aggregate:
+
+    delete $ref->[$x][$y]{$key};
+    delete @{$ref->[$x][$y]}{$key1, $key2, @morekeys};
+
+    delete $ref->[$x][$y][$index];
+    delete @{$ref->[$x][$y]}[$index1, $index2, @moreindices];
+
+=item die LIST
+X<die> X<throw> X<exception> X<raise> X<$@> X<abort>
+
+=for Pod::Functions raise an exception or bail out
+
+L<C<die>|/die LIST> raises an exception.  Inside an
+L<C<eval>|/eval EXPR> the error message is stuffed into
+L<C<$@>|perlvar/$@> and the L<C<eval>|/eval EXPR> is terminated with the
+undefined value.  If the exception is outside of all enclosing
+L<C<eval>|/eval EXPR>s, then the uncaught exception prints LIST to
+C<STDERR> and exits with a non-zero value.  If you need to exit the
+process with a specific exit code, see L<C<exit>|/exit EXPR>.
+
+Equivalent examples:
+
+    die "Can't cd to spool: $!\n" unless chdir '/usr/spool/news';
+    chdir '/usr/spool/news' or die "Can't cd to spool: $!\n"
+
+If the last element of LIST does not end in a newline, the current
+script line number and input line number (if any) are also printed,
+and a newline is supplied.  Note that the "input line number" (also
+known as "chunk") is subject to whatever notion of "line" happens to
+be currently in effect, and is also available as the special variable
+L<C<$.>|perlvar/$.>.  See L<perlvar/"$/"> and L<perlvar/"$.">.
+
+Hint: sometimes appending C<", stopped"> to your message will cause it
+to make better sense when the string C<"at foo line 123"> is appended.
+Suppose you are running script "canasta".
+
+    die "/etc/games is no good";
+    die "/etc/games is no good, stopped";
+
+produce, respectively
+
+    /etc/games is no good at canasta line 123.
+    /etc/games is no good, stopped at canasta line 123.
+
+If the output is empty and L<C<$@>|perlvar/$@> already contains a value
+(typically from a previous eval) that value is reused after appending
+C<"\t...propagated">.  This is useful for propagating exceptions:
+
+    eval { ... };
+    die unless $@ =~ /Expected exception/;
+
+If the output is empty and L<C<$@>|perlvar/$@> contains an object
+reference that has a C<PROPAGATE> method, that method will be called
+with additional file and line number parameters.  The return value
+replaces the value in L<C<$@>|perlvar/$@>;  i.e., as if
+C<< $@ = eval { $@->PROPAGATE(__FILE__, __LINE__) }; >> were called.
+
+If L<C<$@>|perlvar/$@> is empty, then the string C<"Died"> is used.
+
+If an uncaught exception results in interpreter exit, the exit code is
+determined from the values of L<C<$!>|perlvar/$!> and
+L<C<$?>|perlvar/$?> with this pseudocode:
+
+    exit $! if $!;              # errno
+    exit $? >> 8 if $? >> 8;    # child exit status
+    exit 255;                   # last resort
+
+As with L<C<exit>|/exit EXPR>, L<C<$?>|perlvar/$?> is set prior to
+unwinding the call stack; any C<DESTROY> or C<END> handlers can then
+alter this value, and thus Perl's exit code.
+
+The intent is to squeeze as much possible information about the likely cause
+into the limited space of the system exit code.  However, as
+L<C<$!>|perlvar/$!> is the value of C's C<errno>, which can be set by
+any system call, this means that the value of the exit code used by
+L<C<die>|/die LIST> can be non-predictable, so should not be relied
+upon, other than to be non-zero.
+
+You can also call L<C<die>|/die LIST> with a reference argument, and if
+this is trapped within an L<C<eval>|/eval EXPR>, L<C<$@>|perlvar/$@>
+contains that reference.  This permits more elaborate exception handling
+using objects that maintain arbitrary state about the exception.  Such a
+scheme is sometimes preferable to matching particular string values of
+L<C<$@>|perlvar/$@> with regular expressions.  Because
+L<C<$@>|perlvar/$@> is a global variable and L<C<eval>|/eval EXPR> may
+be used within object implementations, be careful that analyzing the
+error object doesn't replace the reference in the global variable.  It's
+easiest to make a local copy of the reference before any manipulations.
+Here's an example:
+
+    use Scalar::Util "blessed";
+
+    eval { ... ; die Some::Module::Exception->new( FOO => "bar" ) };
+    if (my $ev_err = $@) {
+        if (blessed($ev_err)
+            && $ev_err->isa("Some::Module::Exception")) {
+            # handle Some::Module::Exception
+        }
+        else {
+            # handle all other possible exceptions
+        }
+    }
+
+Because Perl stringifies uncaught exception messages before display,
+you'll probably want to overload stringification operations on
+exception objects.  See L<overload> for details about that.
+
+You can arrange for a callback to be run just before the
+L<C<die>|/die LIST> does its deed, by setting the
+L<C<$SIG{__DIE__}>|perlvar/%SIG> hook.  The associated handler is called
+with the error text and can change the error message, if it sees fit, by
+calling L<C<die>|/die LIST> again.  See L<perlvar/%SIG> for details on
+setting L<C<%SIG>|perlvar/%SIG> entries, and L<C<eval>|/eval EXPR> for some
+examples.  Although this feature was to be run only right before your
+program was to exit, this is not currently so: the
+L<C<$SIG{__DIE__}>|perlvar/%SIG> hook is currently called even inside
+L<C<eval>|/eval EXPR>ed blocks/strings!  If one wants the hook to do
+nothing in such situations, put
+
+    die @_ if $^S;
+
+as the first line of the handler (see L<perlvar/$^S>).  Because
+this promotes strange action at a distance, this counterintuitive
+behavior may be fixed in a future release.
+
+See also L<C<exit>|/exit EXPR>, L<C<warn>|/warn LIST>, and the L<Carp>
+module.
+
+=item do BLOCK
+X<do> X<block>
+
+=for Pod::Functions turn a BLOCK into a TERM
+
+Not really a function.  Returns the value of the last command in the
+sequence of commands indicated by BLOCK.  When modified by the C<while> or
+C<until> loop modifier, executes the BLOCK once before testing the loop
+condition.  (On other statements the loop modifiers test the conditional
+first.)
+
+C<do BLOCK> does I<not> count as a loop, so the loop control statements
+L<C<next>|/next LABEL>, L<C<last>|/last LABEL>, or
+L<C<redo>|/redo LABEL> cannot be used to leave or restart the block.
+See L<perlsyn> for alternative strategies.
+
+=item do EXPR
+X<do>
+
+Uses the value of EXPR as a filename and executes the contents of the
+file as a Perl script.
+
+    do 'stat.pl';
+
+is largely like
+
+    eval `cat stat.pl`;
+
+except that it's more concise, runs no external processes, keeps track of
+the current filename for error messages, searches the
+L<C<@INC>|perlvar/@INC> directories, and updates L<C<%INC>|perlvar/%INC>
+if the file is found.  See L<perlvar/@INC> and L<perlvar/%INC> for these
+variables.  It also differs in that code evaluated with C<do FILE>
+cannot see lexicals in the enclosing scope; C<eval STRING> does.  It's
+the same, however, in that it does reparse the file every time you call
+it, so you probably don't want to do this inside a loop.
+
+If L<C<do>|/do EXPR> can read the file but cannot compile it, it
+returns L<C<undef>|/undef EXPR> and sets an error message in
+L<C<$@>|perlvar/$@>.  If L<C<do>|/do EXPR> cannot read the file, it
+returns undef and sets L<C<$!>|perlvar/$!> to the error.  Always check
+L<C<$@>|perlvar/$@> first, as compilation could fail in a way that also
+sets L<C<$!>|perlvar/$!>.  If the file is successfully compiled,
+L<C<do>|/do EXPR> returns the value of the last expression evaluated.
+
+Inclusion of library modules is better done with the
+L<C<use>|/use Module VERSION LIST> and L<C<require>|/require VERSION>
+operators, which also do automatic error checking and raise an exception
+if there's a problem.
+
+You might like to use L<C<do>|/do EXPR> to read in a program
+configuration file.  Manual error checking can be done this way:
+
+    # read in config files: system first, then user
+    for $file ("/share/prog/defaults.rc",
+               "$ENV{HOME}/.someprogrc")
+    {
+        unless ($return = do $file) {
+            warn "couldn't parse $file: $@" if $@;
+            warn "couldn't do $file: $!"    unless defined $return;
+            warn "couldn't run $file"       unless $return;
+        }
+    }
+
+=item dump LABEL
+X<dump> X<core> X<undump>
+
+=item dump EXPR
+
+=item dump
+
+=for Pod::Functions create an immediate core dump
+
+This function causes an immediate core dump.  See also the B<-u>
+command-line switch in L<perlrun>, which does the same thing.
+Primarily this is so that you can use the B<undump> program (not
+supplied) to turn your core dump into an executable binary after
+having initialized all your variables at the beginning of the
+program.  When the new binary is executed it will begin by executing
+a C<goto LABEL> (with all the restrictions that L<C<goto>|/goto LABEL>
+suffers).
+Think of it as a goto with an intervening core dump and reincarnation.
+If C<LABEL> is omitted, restarts the program from the top.  The
+C<dump EXPR> form, available starting in Perl 5.18.0, allows a name to be
+computed at run time, being otherwise identical to C<dump LABEL>.
+
+B<WARNING>: Any files opened at the time of the dump will I<not>
+be open any more when the program is reincarnated, with possible
+resulting confusion by Perl.
+
+This function is now largely obsolete, mostly because it's very hard to
+convert a core file into an executable.  That's why you should now invoke
+it as C<CORE::dump()> if you don't want to be warned against a possible
+typo.
+
+Unlike most named operators, this has the same precedence as assignment.
+It is also exempt from the looks-like-a-function rule, so
+C<dump ("foo")."bar"> will cause "bar" to be part of the argument to
+L<C<dump>|/dump LABEL>.
+
+Portability issues: L<perlport/dump>.
+
+=item each HASH
+X<each> X<hash, iterator>
+
+=item each ARRAY
+X<array, iterator>
+
+=for Pod::Functions retrieve the next key/value pair from a hash
+
+When called on a hash in list context, returns a 2-element list
+consisting of the key and value for the next element of a hash.  In Perl
+5.12 and later only, it will also return the index and value for the next
+element of an array so that you can iterate over it; older Perls consider
+this a syntax error.  When called in scalar context, returns only the key
+(not the value) in a hash, or the index in an array.
+
+Hash entries are returned in an apparently random order.  The actual random
+order is specific to a given hash; the exact same series of operations
+on two hashes may result in a different order for each hash.  Any insertion
+into the hash may change the order, as will any deletion, with the exception
+that the most recent key returned by L<C<each>|/each HASH> or
+L<C<keys>|/keys HASH> may be deleted without changing the order.  So
+long as a given hash is unmodified you may rely on
+L<C<keys>|/keys HASH>, L<C<values>|/values HASH> and
+L<C<each>|/each HASH> to repeatedly return the same order
+as each other.  See L<perlsec/"Algorithmic Complexity Attacks"> for
+details on why hash order is randomized.  Aside from the guarantees
+provided here the exact details of Perl's hash algorithm and the hash
+traversal order are subject to change in any release of Perl.
+
+After L<C<each>|/each HASH> has returned all entries from the hash or
+array, the next call to L<C<each>|/each HASH> returns the empty list in
+list context and L<C<undef>|/undef EXPR> in scalar context; the next
+call following I<that> one restarts iteration.  Each hash or array has
+its own internal iterator, accessed by L<C<each>|/each HASH>,
+L<C<keys>|/keys HASH>, and L<C<values>|/values HASH>.  The iterator is
+implicitly reset when L<C<each>|/each HASH> has reached the end as just
+described; it can be explicitly reset by calling L<C<keys>|/keys HASH>
+or L<C<values>|/values HASH> on the hash or array.  If you add or delete
+a hash's elements while iterating over it, the effect on the iterator is
+unspecified; for example, entries may be skipped or duplicated--so don't
+do that.  Exception: It is always safe to delete the item most recently
+returned by L<C<each>|/each HASH>, so the following code works properly:
+
+    while (my ($key, $value) = each %hash) {
+        print $key, "\n";
+        delete $hash{$key};   # This is safe
+    }
+
+Tied hashes may have a different ordering behaviour to perl's hash
+implementation.
+
+This prints out your environment like the L<printenv(1)> program,
+but in a different order:
+
+    while (my ($key,$value) = each %ENV) {
+        print "$key=$value\n";
+    }
+
+Starting with Perl 5.14, an experimental feature allowed
+L<C<each>|/each HASH> to take a scalar expression. This experiment has
+been deemed unsuccessful, and was removed as of Perl 5.24.
+
+As of Perl 5.18 you can use a bare L<C<each>|/each HASH> in a C<while>
+loop, which will set L<C<$_>|perlvar/$_> on every iteration.
+
+    while (each %ENV) {
+	print "$_=$ENV{$_}\n";
+    }
+
+To avoid confusing would-be users of your code who are running earlier
+versions of Perl with mysterious syntax errors, put this sort of thing at
+the top of your file to signal that your code will work I<only> on Perls of
+a recent vintage:
+
+    use 5.012;	# so keys/values/each work on arrays
+    use 5.018;	# so each assigns to $_ in a lone while test
+
+See also L<C<keys>|/keys HASH>, L<C<values>|/values HASH>, and
+L<C<sort>|/sort SUBNAME LIST>.
+
+=item eof FILEHANDLE
+X<eof>
+X<end of file>
+X<end-of-file>
+
+=item eof ()
+
+=item eof
+
+=for Pod::Functions test a filehandle for its end
+
+Returns 1 if the next read on FILEHANDLE will return end of file I<or> if
+FILEHANDLE is not open.  FILEHANDLE may be an expression whose value
+gives the real filehandle.  (Note that this function actually
+reads a character and then C<ungetc>s it, so isn't useful in an
+interactive context.)  Do not read from a terminal file (or call
+C<eof(FILEHANDLE)> on it) after end-of-file is reached.  File types such
+as terminals may lose the end-of-file condition if you do.
+
+An L<C<eof>|/eof FILEHANDLE> without an argument uses the last file
+read.  Using L<C<eof()>|/eof FILEHANDLE> with empty parentheses is
+different.  It refers to the pseudo file formed from the files listed on
+the command line and accessed via the C<< <> >> operator.  Since
+C<< <> >> isn't explicitly opened, as a normal filehandle is, an
+L<C<eof()>|/eof FILEHANDLE> before C<< <> >> has been used will cause
+L<C<@ARGV>|perlvar/@ARGV> to be examined to determine if input is
+available.   Similarly, an L<C<eof()>|/eof FILEHANDLE> after C<< <> >>
+has returned end-of-file will assume you are processing another
+L<C<@ARGV>|perlvar/@ARGV> list, and if you haven't set
+L<C<@ARGV>|perlvar/@ARGV>, will read input from C<STDIN>; see
+L<perlop/"I/O Operators">.
+
+In a C<< while (<>) >> loop, L<C<eof>|/eof FILEHANDLE> or C<eof(ARGV)>
+can be used to detect the end of each file, whereas
+L<C<eof()>|/eof FILEHANDLE> will detect the end of the very last file
+only.  Examples:
+
+    # reset line numbering on each input file
+    while (<>) {
+        next if /^\s*#/;  # skip comments
+        print "$.\t$_";
+    } continue {
+        close ARGV if eof;  # Not eof()!
+    }
+
+    # insert dashes just before last line of last file
+    while (<>) {
+        if (eof()) {  # check for end of last file
+            print "--------------\n";
+        }
+        print;
+        last if eof();     # needed if we're reading from a terminal
+    }
+
+Practical hint: you almost never need to use L<C<eof>|/eof FILEHANDLE>
+in Perl, because the input operators typically return L<C<undef>|/undef
+EXPR> when they run out of data or encounter an error.
+
+=item eval EXPR
+X<eval> X<try> X<catch> X<evaluate> X<parse> X<execute>
+X<error, handling> X<exception, handling>
+
+=item eval BLOCK
+
+=item eval
+
+=for Pod::Functions catch exceptions or compile and run code
+
+In the first form, often referred to as a "string eval", the return
+value of EXPR is parsed and executed as if it
+were a little Perl program.  The value of the expression (which is itself
+determined within scalar context) is first parsed, and if there were no
+errors, executed as a block within the lexical context of the current Perl
+program.  This means, that in particular, any outer lexical variables are
+visible to it, and any package variable settings or subroutine and format
+definitions remain afterwards.
+
+Note that the value is parsed every time the L<C<eval>|/eval EXPR>
+executes.  If EXPR is omitted, evaluates L<C<$_>|perlvar/$_>.  This form
+is typically used to delay parsing and subsequent execution of the text
+of EXPR until run time.
+
+If the
+L<C<"unicode_eval"> feature|feature/The 'unicode_eval' and 'evalbytes' features>
+is enabled (which is the default under a
+C<use 5.16> or higher declaration), EXPR or L<C<$_>|perlvar/$_> is
+treated as a string of characters, so L<C<use utf8>|utf8> declarations
+have no effect, and source filters are forbidden.  In the absence of the
+L<C<"unicode_eval"> feature|feature/The 'unicode_eval' and 'evalbytes' features>,
+will sometimes be treated as characters and sometimes as bytes,
+depending on the internal encoding, and source filters activated within
+the L<C<eval>|/eval EXPR> exhibit the erratic, but historical, behaviour
+of affecting some outer file scope that is still compiling.  See also
+the L<C<evalbytes>|/evalbytes EXPR> operator, which always treats its
+input as a byte stream and works properly with source filters, and the
+L<feature> pragma.
+
+Problems can arise if the string expands a scalar containing a floating
+point number.  That scalar can expand to letters, such as C<"NaN"> or
+C<"Infinity">; or, within the scope of a L<C<use locale>|locale>, the
+decimal point character may be something other than a dot (such as a
+comma).  None of these are likely to parse as you are likely expecting.
+
+In the second form, the code within the BLOCK is parsed only once--at the
+same time the code surrounding the L<C<eval>|/eval EXPR> itself was
+parsed--and executed
+within the context of the current Perl program.  This form is typically
+used to trap exceptions more efficiently than the first (see below), while
+also providing the benefit of checking the code within BLOCK at compile
+time.
+
+The final semicolon, if any, may be omitted from the value of EXPR or within
+the BLOCK.
+
+In both forms, the value returned is the value of the last expression
+evaluated inside the mini-program; a return statement may be also used, just
+as with subroutines.  The expression providing the return value is evaluated
+in void, scalar, or list context, depending on the context of the
+L<C<eval>|/eval EXPR> itself.  See L<C<wantarray>|/wantarray> for more
+on how the evaluation context can be determined.
+
+If there is a syntax error or runtime error, or a L<C<die>|/die LIST>
+statement is executed, L<C<eval>|/eval EXPR> returns
+L<C<undef>|/undef EXPR> in scalar context or an empty list in list
+context, and L<C<$@>|perlvar/$@> is set to the error message.  (Prior to
+5.16, a bug caused L<C<undef>|/undef EXPR> to be returned in list
+context for syntax errors, but not for runtime errors.) If there was no
+error, L<C<$@>|perlvar/$@> is set to the empty string.  A control flow
+operator like L<C<last>|/last LABEL> or L<C<goto>|/goto LABEL> can
+bypass the setting of L<C<$@>|perlvar/$@>.  Beware that using
+L<C<eval>|/eval EXPR> neither silences Perl from printing warnings to
+STDERR, nor does it stuff the text of warning messages into
+L<C<$@>|perlvar/$@>.  To do either of those, you have to use the
+L<C<$SIG{__WARN__}>|perlvar/%SIG> facility, or turn off warnings inside
+the BLOCK or EXPR using S<C<no warnings 'all'>>.  See
+L<C<warn>|/warn LIST>, L<perlvar>, and L<warnings>.
+
+Note that, because L<C<eval>|/eval EXPR> traps otherwise-fatal errors,
+it is useful for determining whether a particular feature (such as
+L<C<socket>|/socket SOCKET,DOMAIN,TYPE,PROTOCOL> or
+L<C<symlink>|/symlink OLDFILE,NEWFILE>) is implemented.  It is also
+Perl's exception-trapping mechanism, where the L<C<die>|/die LIST>
+operator is used to raise exceptions.
+
+If you want to trap errors when loading an XS module, some problems with
+the binary interface (such as Perl version skew) may be fatal even with
+L<C<eval>|/eval EXPR> unless C<$ENV{PERL_DL_NONLAZY}> is set.  See
+L<perlrun>.
+
+If the code to be executed doesn't vary, you may use the eval-BLOCK
+form to trap run-time errors without incurring the penalty of
+recompiling each time.  The error, if any, is still returned in
+L<C<$@>|perlvar/$@>.
+Examples:
+
+    # make divide-by-zero nonfatal
+    eval { $answer = $a / $b; }; warn $@ if $@;
+
+    # same thing, but less efficient
+    eval '$answer = $a / $b'; warn $@ if $@;
+
+    # a compile-time error
+    eval { $answer = }; # WRONG
+
+    # a run-time error
+    eval '$answer =';   # sets $@
+
+Using the C<eval {}> form as an exception trap in libraries does have some
+issues.  Due to the current arguably broken state of C<__DIE__> hooks, you
+may wish not to trigger any C<__DIE__> hooks that user code may have installed.
+You can use the C<local $SIG{__DIE__}> construct for this purpose,
+as this example shows:
+
+    # a private exception trap for divide-by-zero
+    eval { local $SIG{'__DIE__'}; $answer = $a / $b; };
+    warn $@ if $@;
+
+This is especially significant, given that C<__DIE__> hooks can call
+L<C<die>|/die LIST> again, which has the effect of changing their error
+messages:
+
+    # __DIE__ hooks may modify error messages
+    {
+       local $SIG{'__DIE__'} =
+              sub { (my $x = $_[0]) =~ s/foo/bar/g; die $x };
+       eval { die "foo lives here" };
+       print $@ if $@;                # prints "bar lives here"
+    }
+
+Because this promotes action at a distance, this counterintuitive behavior
+may be fixed in a future release.
+
+With an L<C<eval>|/eval EXPR>, you should be especially careful to
+remember what's being looked at when:
+
+    eval $x;        # CASE 1
+    eval "$x";      # CASE 2
+
+    eval '$x';      # CASE 3
+    eval { $x };    # CASE 4
+
+    eval "\$$x++";  # CASE 5
+    $$x++;          # CASE 6
+
+Cases 1 and 2 above behave identically: they run the code contained in
+the variable $x.  (Although case 2 has misleading double quotes making
+the reader wonder what else might be happening (nothing is).)  Cases 3
+and 4 likewise behave in the same way: they run the code C<'$x'>, which
+does nothing but return the value of $x.  (Case 4 is preferred for
+purely visual reasons, but it also has the advantage of compiling at
+compile-time instead of at run-time.)  Case 5 is a place where
+normally you I<would> like to use double quotes, except that in this
+particular situation, you can just use symbolic references instead, as
+in case 6.
+
+Before Perl 5.14, the assignment to L<C<$@>|perlvar/$@> occurred before
+restoration
+of localized variables, which means that for your code to run on older
+versions, a temporary is required if you want to mask some but not all
+errors:
+
+    # alter $@ on nefarious repugnancy only
+    {
+       my $e;
+       {
+         local $@; # protect existing $@
+         eval { test_repugnancy() };
+         # $@ =~ /nefarious/ and die $@; # Perl 5.14 and higher only
+         $@ =~ /nefarious/ and $e = $@;
+       }
+       die $e if defined $e
+    }
+
+C<eval BLOCK> does I<not> count as a loop, so the loop control statements
+L<C<next>|/next LABEL>, L<C<last>|/last LABEL>, or
+L<C<redo>|/redo LABEL> cannot be used to leave or restart the block.
+
+An C<eval ''> executed within a subroutine defined
+in the C<DB> package doesn't see the usual
+surrounding lexical scope, but rather the scope of the first non-DB piece
+of code that called it.  You don't normally need to worry about this unless
+you are writing a Perl debugger.
+
+=item evalbytes EXPR
+X<evalbytes>
+
+=item evalbytes
+
+=for Pod::Functions +evalbytes similar to string eval, but intend to parse a bytestream
+
+This function is like L<C<eval>|/eval EXPR> with a string argument,
+except it always parses its argument, or L<C<$_>|perlvar/$_> if EXPR is
+omitted, as a string of bytes.  A string containing characters whose
+ordinal value exceeds 255 results in an error.  Source filters activated
+within the evaluated code apply to the code itself.
+
+L<C<evalbytes>|/evalbytes EXPR> is available only if the
+L<C<"evalbytes"> feature|feature/The 'unicode_eval' and 'evalbytes' features>
+is enabled or if it is prefixed with C<CORE::>.  The
+L<C<"evalbytes"> feature|feature/The 'unicode_eval' and 'evalbytes' features>
+is enabled automatically with a C<use v5.16> (or higher) declaration in
+the current scope.
+
+=item exec LIST
+X<exec> X<execute>
+
+=item exec PROGRAM LIST
+
+=for Pod::Functions abandon this program to run another
+
+The L<C<exec>|/exec LIST> function executes a system command I<and never
+returns>; use L<C<system>|/system LIST> instead of L<C<exec>|/exec LIST>
+if you want it to return.  It fails and
+returns false only if the command does not exist I<and> it is executed
+directly instead of via your system's command shell (see below).
+
+Since it's a common mistake to use L<C<exec>|/exec LIST> instead of
+L<C<system>|/system LIST>, Perl warns you if L<C<exec>|/exec LIST> is
+called in void context and if there is a following statement that isn't
+L<C<die>|/die LIST>, L<C<warn>|/warn LIST>, or L<C<exit>|/exit EXPR> (if
+L<warnings> are enabled--but you always do that, right?).  If you
+I<really> want to follow an L<C<exec>|/exec LIST> with some other
+statement, you can use one of these styles to avoid the warning:
+
+    exec ('foo')   or print STDERR "couldn't exec foo: $!";
+    { exec ('foo') }; print STDERR "couldn't exec foo: $!";
+
+If there is more than one argument in LIST, this calls L<execvp(3)> with the
+arguments in LIST.  If there is only one element in LIST, the argument is
+checked for shell metacharacters, and if there are any, the entire
+argument is passed to the system's command shell for parsing (this is
+C</bin/sh -c> on Unix platforms, but varies on other platforms).  If
+there are no shell metacharacters in the argument, it is split into words
+and passed directly to C<execvp>, which is more efficient.  Examples:
+
+    exec '/bin/echo', 'Your arguments are: ', @ARGV;
+    exec "sort $outfile | uniq";
+
+If you don't really want to execute the first argument, but want to lie
+to the program you are executing about its own name, you can specify
+the program you actually want to run as an "indirect object" (without a
+comma) in front of the LIST, as in C<exec PROGRAM LIST>.  (This always
+forces interpretation of the LIST as a multivalued list, even if there
+is only a single scalar in the list.)  Example:
+
+    my $shell = '/bin/csh';
+    exec $shell '-sh';    # pretend it's a login shell
+
+or, more directly,
+
+    exec {'/bin/csh'} '-sh';  # pretend it's a login shell
+
+When the arguments get executed via the system shell, results are
+subject to its quirks and capabilities.  See L<perlop/"`STRING`">
+for details.
+
+Using an indirect object with L<C<exec>|/exec LIST> or
+L<C<system>|/system LIST> is also more secure.  This usage (which also
+works fine with L<C<system>|/system LIST>) forces
+interpretation of the arguments as a multivalued list, even if the
+list had just one argument.  That way you're safe from the shell
+expanding wildcards or splitting up words with whitespace in them.
+
+    my @args = ( "echo surprise" );
+
+    exec @args;               # subject to shell escapes
+                                # if @args == 1
+    exec { $args[0] } @args;  # safe even with one-arg list
+
+The first version, the one without the indirect object, ran the I<echo>
+program, passing it C<"surprise"> an argument.  The second version didn't;
+it tried to run a program named I<"echo surprise">, didn't find it, and set
+L<C<$?>|perlvar/$?> to a non-zero value indicating failure.
+
+On Windows, only the C<exec PROGRAM LIST> indirect object syntax will
+reliably avoid using the shell; C<exec LIST>, even with more than one
+element, will fall back to the shell if the first spawn fails.
+
+Perl attempts to flush all files opened for output before the exec,
+but this may not be supported on some platforms (see L<perlport>).
+To be safe, you may need to set L<C<$E<verbar>>|perlvar/$E<verbar>>
+(C<$AUTOFLUSH> in L<English>) or call the C<autoflush> method of
+L<C<IO::Handle>|IO::Handle/METHODS> on any open handles to avoid lost
+output.
+
+Note that L<C<exec>|/exec LIST> will not call your C<END> blocks, nor
+will it invoke C<DESTROY> methods on your objects.
+
+Portability issues: L<perlport/exec>.
+
+=item exists EXPR
+X<exists> X<autovivification>
+
+=for Pod::Functions test whether a hash key is present
+
+Given an expression that specifies an element of a hash, returns true if the
+specified element in the hash has ever been initialized, even if the
+corresponding value is undefined.
+
+    print "Exists\n"    if exists $hash{$key};
+    print "Defined\n"   if defined $hash{$key};
+    print "True\n"      if $hash{$key};
+
+exists may also be called on array elements, but its behavior is much less
+obvious and is strongly tied to the use of L<C<delete>|/delete EXPR> on
+arrays.
+
+B<WARNING:> Calling L<C<exists>|/exists EXPR> on array values is
+strongly discouraged.  The
+notion of deleting or checking the existence of Perl array elements is not
+conceptually coherent, and can lead to surprising behavior.
+
+    print "Exists\n"    if exists $array[$index];
+    print "Defined\n"   if defined $array[$index];
+    print "True\n"      if $array[$index];
+
+A hash or array element can be true only if it's defined and defined only if
+it exists, but the reverse doesn't necessarily hold true.
+
+Given an expression that specifies the name of a subroutine,
+returns true if the specified subroutine has ever been declared, even
+if it is undefined.  Mentioning a subroutine name for exists or defined
+does not count as declaring it.  Note that a subroutine that does not
+exist may still be callable: its package may have an C<AUTOLOAD>
+method that makes it spring into existence the first time that it is
+called; see L<perlsub>.
+
+    print "Exists\n"  if exists &subroutine;
+    print "Defined\n" if defined &subroutine;
+
+Note that the EXPR can be arbitrarily complicated as long as the final
+operation is a hash or array key lookup or subroutine name:
+
+    if (exists $ref->{A}->{B}->{$key})  { }
+    if (exists $hash{A}{B}{$key})       { }
+
+    if (exists $ref->{A}->{B}->[$ix])   { }
+    if (exists $hash{A}{B}[$ix])        { }
+
+    if (exists &{$ref->{A}{B}{$key}})   { }
+
+Although the most deeply nested array or hash element will not spring into
+existence just because its existence was tested, any intervening ones will.
+Thus C<< $ref->{"A"} >> and C<< $ref->{"A"}->{"B"} >> will spring
+into existence due to the existence test for the C<$key> element above.
+This happens anywhere the arrow operator is used, including even here:
+
+    undef $ref;
+    if (exists $ref->{"Some key"})    { }
+    print $ref;  # prints HASH(0x80d3d5c)
+
+This surprising autovivification in what does not at first--or even
+second--glance appear to be an lvalue context may be fixed in a future
+release.
+
+Use of a subroutine call, rather than a subroutine name, as an argument
+to L<C<exists>|/exists EXPR> is an error.
+
+    exists &sub;    # OK
+    exists &sub();  # Error
+
+=item exit EXPR
+X<exit> X<terminate> X<abort>
+
+=item exit
+
+=for Pod::Functions terminate this program
+
+Evaluates EXPR and exits immediately with that value.    Example:
+
+    my $ans = <STDIN>;
+    exit 0 if $ans =~ /^[Xx]/;
+
+See also L<C<die>|/die LIST>.  If EXPR is omitted, exits with C<0>
+status.  The only
+universally recognized values for EXPR are C<0> for success and C<1>
+for error; other values are subject to interpretation depending on the
+environment in which the Perl program is running.  For example, exiting
+69 (EX_UNAVAILABLE) from a I<sendmail> incoming-mail filter will cause
+the mailer to return the item undelivered, but that's not true everywhere.
+
+Don't use L<C<exit>|/exit EXPR> to abort a subroutine if there's any
+chance that someone might want to trap whatever error happened.  Use
+L<C<die>|/die LIST> instead, which can be trapped by an
+L<C<eval>|/eval EXPR>.
+
+The L<C<exit>|/exit EXPR> function does not always exit immediately.  It
+calls any defined C<END> routines first, but these C<END> routines may
+not themselves abort the exit.  Likewise any object destructors that
+need to be called are called before the real exit.  C<END> routines and
+destructors can change the exit status by modifying L<C<$?>|perlvar/$?>.
+If this is a problem, you can call
+L<C<POSIX::_exit($status)>|POSIX/C<_exit>> to avoid C<END> and destructor
+processing.  See L<perlmod> for details.
+
+Portability issues: L<perlport/exit>.
+
+=item exp EXPR
+X<exp> X<exponential> X<antilog> X<antilogarithm> X<e>
+
+=item exp
+
+=for Pod::Functions raise I<e> to a power
+
+Returns I<e> (the natural logarithm base) to the power of EXPR.
+If EXPR is omitted, gives C<exp($_)>.
+
+=item fc EXPR
+X<fc> X<foldcase> X<casefold> X<fold-case> X<case-fold>
+
+=item fc
+
+=for Pod::Functions +fc return casefolded version of a string
+
+Returns the casefolded version of EXPR.  This is the internal function
+implementing the C<\F> escape in double-quoted strings.
+
+Casefolding is the process of mapping strings to a form where case
+differences are erased; comparing two strings in their casefolded
+form is effectively a way of asking if two strings are equal,
+regardless of case.
+
+Roughly, if you ever found yourself writing this
+
+    lc($this) eq lc($that)    # Wrong!
+        # or
+    uc($this) eq uc($that)    # Also wrong!
+        # or
+    $this =~ /^\Q$that\E\z/i  # Right!
+
+Now you can write
+
+    fc($this) eq fc($that)
+
+And get the correct results.
+
+Perl only implements the full form of casefolding, but you can access
+the simple folds using L<Unicode::UCD/B<casefold()>> and
+L<Unicode::UCD/B<prop_invmap()>>.
+For further information on casefolding, refer to
+the Unicode Standard, specifically sections 3.13 C<Default Case Operations>,
+4.2 C<Case-Normative>, and 5.18 C<Case Mappings>,
+available at L<http://www.unicode.org/versions/latest/>, as well as the
+Case Charts available at L<http://www.unicode.org/charts/case/>.
+
+If EXPR is omitted, uses L<C<$_>|perlvar/$_>.
+
+This function behaves the same way under various pragmas, such as within
+L<S<C<"use feature 'unicode_strings">>|feature/The 'unicode_strings' feature>,
+as L<C<lc>|/lc EXPR> does, with the single exception of
+L<C<fc>|/fc EXPR> of I<LATIN CAPITAL LETTER SHARP S> (U+1E9E) within the
+scope of L<S<C<use locale>>|locale>.  The foldcase of this character
+would normally be C<"ss">, but as explained in the L<C<lc>|/lc EXPR>
+section, case
+changes that cross the 255/256 boundary are problematic under locales,
+and are hence prohibited.  Therefore, this function under locale returns
+instead the string C<"\x{17F}\x{17F}">, which is the I<LATIN SMALL LETTER
+LONG S>.  Since that character itself folds to C<"s">, the string of two
+of them together should be equivalent to a single U+1E9E when foldcased.
+
+While the Unicode Standard defines two additional forms of casefolding,
+one for Turkic languages and one that never maps one character into multiple
+characters, these are not provided by the Perl core.  However, the CPAN module
+L<C<Unicode::Casing>|Unicode::Casing> may be used to provide an implementation.
+
+L<C<fc>|/fc EXPR> is available only if the
+L<C<"fc"> feature|feature/The 'fc' feature> is enabled or if it is
+prefixed with C<CORE::>.  The
+L<C<"fc"> feature|feature/The 'fc' feature> is enabled automatically
+with a C<use v5.16> (or higher) declaration in the current scope.
+
+=item fcntl FILEHANDLE,FUNCTION,SCALAR
+X<fcntl>
+
+=for Pod::Functions file control system call
+
+Implements the L<fcntl(2)> function.  You'll probably have to say
+
+    use Fcntl;
+
+first to get the correct constant definitions.  Argument processing and
+value returned work just like L<C<ioctl>|/ioctl
+FILEHANDLE,FUNCTION,SCALAR> below.  For example:
+
+    use Fcntl;
+    my $flags = fcntl($filehandle, F_GETFL, 0)
+        or die "Can't fcntl F_GETFL: $!";
+
+You don't have to check for L<C<defined>|/defined EXPR> on the return
+from L<C<fcntl>|/fcntl FILEHANDLE,FUNCTION,SCALAR>.  Like
+L<C<ioctl>|/ioctl FILEHANDLE,FUNCTION,SCALAR>, it maps a C<0> return
+from the system call into C<"0 but true"> in Perl.  This string is true
+in boolean context and C<0> in numeric context.  It is also exempt from
+the normal
+L<C<Argument "..." isn't numeric>|perldiag/Argument "%s" isn't numeric%s>
+L<warnings> on improper numeric conversions.
+
+Note that L<C<fcntl>|/fcntl FILEHANDLE,FUNCTION,SCALAR> raises an
+exception if used on a machine that doesn't implement L<fcntl(2)>.  See
+the L<Fcntl> module or your L<fcntl(2)> manpage to learn what functions
+are available on your system.
+
+Here's an example of setting a filehandle named C<$REMOTE> to be
+non-blocking at the system level.  You'll have to negotiate
+L<C<$E<verbar>>|perlvar/$E<verbar>> on your own, though.
+
+    use Fcntl qw(F_GETFL F_SETFL O_NONBLOCK);
+
+    my $flags = fcntl($REMOTE, F_GETFL, 0)
+        or die "Can't get flags for the socket: $!\n";
+
+    fcntl($REMOTE, F_SETFL, $flags | O_NONBLOCK)
+        or die "Can't set flags for the socket: $!\n";
+
+Portability issues: L<perlport/fcntl>.
+
+=item __FILE__
+X<__FILE__>
+
+=for Pod::Functions the name of the current source file
+
+A special token that returns the name of the file in which it occurs.
+
+=item fileno FILEHANDLE
+X<fileno>
+
+=for Pod::Functions return file descriptor from filehandle
+
+Returns the file descriptor for a filehandle, or undefined if the
+filehandle is not open.  If there is no real file descriptor at the OS
+level, as can happen with filehandles connected to memory objects via
+L<C<open>|/open FILEHANDLE,EXPR> with a reference for the third
+argument, -1 is returned.
+
+This is mainly useful for constructing bitmaps for
+L<C<select>|/select RBITS,WBITS,EBITS,TIMEOUT> and low-level POSIX
+tty-handling operations.
+If FILEHANDLE is an expression, the value is taken as an indirect
+filehandle, generally its name.
+
+You can use this to find out whether two handles refer to the
+same underlying descriptor:
+
+    if (fileno($this) != -1 && fileno($this) == fileno($that)) {
+        print "\$this and \$that are dups\n";
+    } elsif (fileno($this) != -1 && fileno($that) != -1) {
+        print "\$this and \$that have different " .
+            "underlying file descriptors\n";
+    } else {
+        print "At least one of \$this and \$that does " .
+            "not have a real file descriptor\n";
+    }
+
+The behavior of L<C<fileno>|/fileno FILEHANDLE> on a directory handle
+depends on the operating system.  On a system with L<dirfd(3)> or
+similar, L<C<fileno>|/fileno FILEHANDLE> on a directory
+handle returns the underlying file descriptor associated with the
+handle; on systems with no such support, it returns the undefined value,
+and sets L<C<$!>|perlvar/$!> (errno).
+
+=item flock FILEHANDLE,OPERATION
+X<flock> X<lock> X<locking>
+
+=for Pod::Functions lock an entire file with an advisory lock
+
+Calls L<flock(2)>, or an emulation of it, on FILEHANDLE.  Returns true
+for success, false on failure.  Produces a fatal error if used on a
+machine that doesn't implement L<flock(2)>, L<fcntl(2)> locking, or
+L<lockf(3)>.  L<C<flock>|/flock FILEHANDLE,OPERATION> is Perl's portable
+file-locking interface, although it locks entire files only, not
+records.
+
+Two potentially non-obvious but traditional L<C<flock>|/flock
+FILEHANDLE,OPERATION> semantics are
+that it waits indefinitely until the lock is granted, and that its locks
+are B<merely advisory>.  Such discretionary locks are more flexible, but
+offer fewer guarantees.  This means that programs that do not also use
+L<C<flock>|/flock FILEHANDLE,OPERATION> may modify files locked with
+L<C<flock>|/flock FILEHANDLE,OPERATION>.  See L<perlport>,
+your port's specific documentation, and your system-specific local manpages
+for details.  It's best to assume traditional behavior if you're writing
+portable programs.  (But if you're not, you should as always feel perfectly
+free to write for your own system's idiosyncrasies (sometimes called
+"features").  Slavish adherence to portability concerns shouldn't get
+in the way of your getting your job done.)
+
+OPERATION is one of LOCK_SH, LOCK_EX, or LOCK_UN, possibly combined with
+LOCK_NB.  These constants are traditionally valued 1, 2, 8 and 4, but
+you can use the symbolic names if you import them from the L<Fcntl> module,
+either individually, or as a group using the C<:flock> tag.  LOCK_SH
+requests a shared lock, LOCK_EX requests an exclusive lock, and LOCK_UN
+releases a previously requested lock.  If LOCK_NB is bitwise-or'ed with
+LOCK_SH or LOCK_EX, then L<C<flock>|/flock FILEHANDLE,OPERATION> returns
+immediately rather than blocking waiting for the lock; check the return
+status to see if you got it.
+
+To avoid the possibility of miscoordination, Perl now flushes FILEHANDLE
+before locking or unlocking it.
+
+Note that the emulation built with L<lockf(3)> doesn't provide shared
+locks, and it requires that FILEHANDLE be open with write intent.  These
+are the semantics that L<lockf(3)> implements.  Most if not all systems
+implement L<lockf(3)> in terms of L<fcntl(2)> locking, though, so the
+differing semantics shouldn't bite too many people.
+
+Note that the L<fcntl(2)> emulation of L<flock(3)> requires that FILEHANDLE
+be open with read intent to use LOCK_SH and requires that it be open
+with write intent to use LOCK_EX.
+
+Note also that some versions of L<C<flock>|/flock FILEHANDLE,OPERATION>
+cannot lock things over the network; you would need to use the more
+system-specific L<C<fcntl>|/fcntl FILEHANDLE,FUNCTION,SCALAR> for
+that.  If you like you can force Perl to ignore your system's L<flock(2)>
+function, and so provide its own L<fcntl(2)>-based emulation, by passing
+the switch C<-Ud_flock> to the F<Configure> program when you configure
+and build a new Perl.
+
+Here's a mailbox appender for BSD systems.
+
+    # import LOCK_* and SEEK_END constants
+    use Fcntl qw(:flock SEEK_END);
+
+    sub lock {
+        my ($fh) = @_;
+        flock($fh, LOCK_EX) or die "Cannot lock mailbox - $!\n";
+
+        # and, in case someone appended while we were waiting...
+        seek($fh, 0, SEEK_END) or die "Cannot seek - $!\n";
+    }
+
+    sub unlock {
+        my ($fh) = @_;
+        flock($fh, LOCK_UN) or die "Cannot unlock mailbox - $!\n";
+    }
+
+    open(my $mbox, ">>", "/usr/spool/mail/$ENV{'USER'}")
+        or die "Can't open mailbox: $!";
+
+    lock($mbox);
+    print $mbox $msg,"\n\n";
+    unlock($mbox);
+
+On systems that support a real L<flock(2)>, locks are inherited across
+L<C<fork>|/fork> calls, whereas those that must resort to the more
+capricious L<fcntl(2)> function lose their locks, making it seriously
+harder to write servers.
+
+See also L<DB_File> for other L<C<flock>|/flock FILEHANDLE,OPERATION>
+examples.
+
+Portability issues: L<perlport/flock>.
+
+=item fork
+X<fork> X<child> X<parent>
+
+=for Pod::Functions create a new process just like this one
+
+Does a L<fork(2)> system call to create a new process running the
+same program at the same point.  It returns the child pid to the
+parent process, C<0> to the child process, or L<C<undef>|/undef EXPR> if
+the fork is
+unsuccessful.  File descriptors (and sometimes locks on those descriptors)
+are shared, while everything else is copied.  On most systems supporting
+L<fork(2)>, great care has gone into making it extremely efficient (for
+example, using copy-on-write technology on data pages), making it the
+dominant paradigm for multitasking over the last few decades.
+
+Perl attempts to flush all files opened for output before forking the
+child process, but this may not be supported on some platforms (see
+L<perlport>).  To be safe, you may need to set
+L<C<$E<verbar>>|perlvar/$E<verbar>> (C<$AUTOFLUSH> in L<English>) or
+call the C<autoflush> method of L<C<IO::Handle>|IO::Handle/METHODS> on
+any open handles to avoid duplicate output.
+
+If you L<C<fork>|/fork> without ever waiting on your children, you will
+accumulate zombies.  On some systems, you can avoid this by setting
+L<C<$SIG{CHLD}>|perlvar/%SIG> to C<"IGNORE">.  See also L<perlipc> for
+more examples of forking and reaping moribund children.
+
+Note that if your forked child inherits system file descriptors like
+STDIN and STDOUT that are actually connected by a pipe or socket, even
+if you exit, then the remote server (such as, say, a CGI script or a
+backgrounded job launched from a remote shell) won't think you're done.
+You should reopen those to F</dev/null> if it's any issue.
+
+On some platforms such as Windows, where the L<fork(2)> system call is
+not available, Perl can be built to emulate L<C<fork>|/fork> in the Perl
+interpreter.  The emulation is designed, at the level of the Perl
+program, to be as compatible as possible with the "Unix" L<fork(2)>.
+However it has limitations that have to be considered in code intended
+to be portable.  See L<perlfork> for more details.
+
+Portability issues: L<perlport/fork>.
+
+=item format
+X<format>
+
+=for Pod::Functions declare a picture format with use by the write() function
+
+Declare a picture format for use by the L<C<write>|/write FILEHANDLE>
+function.  For example:
+
+    format Something =
+        Test: @<<<<<<<< @||||| @>>>>>
+              $str,     $%,    '$' . int($num)
+    .
+
+    $str = "widget";
+    $num = $cost/$quantity;
+    $~ = 'Something';
+    write;
+
+See L<perlform> for many details and examples.
+
+=item formline PICTURE,LIST
+X<formline>
+
+=for Pod::Functions internal function used for formats
+
+This is an internal function used by L<C<format>|/format>s, though you
+may call it, too.  It formats (see L<perlform>) a list of values
+according to the contents of PICTURE, placing the output into the format
+output accumulator, L<C<$^A>|perlvar/$^A> (or C<$ACCUMULATOR> in
+L<English>).  Eventually, when a L<C<write>|/write FILEHANDLE> is done,
+the contents of L<C<$^A>|perlvar/$^A> are written to some filehandle.
+You could also read L<C<$^A>|perlvar/$^A> and then set
+L<C<$^A>|perlvar/$^A> back to C<"">.  Note that a format typically does
+one L<C<formline>|/formline PICTURE,LIST> per line of form, but the
+L<C<formline>|/formline PICTURE,LIST> function itself doesn't care how
+many newlines are embedded in the PICTURE.  This means that the C<~> and
+C<~~> tokens treat the entire PICTURE as a single line.  You may
+therefore need to use multiple formlines to implement a single record
+format, just like the L<C<format>|/format> compiler.
+
+Be careful if you put double quotes around the picture, because an C<@>
+character may be taken to mean the beginning of an array name.
+L<C<formline>|/formline PICTURE,LIST> always returns true.  See
+L<perlform> for other examples.
+
+If you are trying to use this instead of L<C<write>|/write FILEHANDLE>
+to capture the output, you may find it easier to open a filehandle to a
+scalar (C<< open my $fh, ">", \$output >>) and write to that instead.
+
+=item getc FILEHANDLE
+X<getc> X<getchar> X<character> X<file, read>
+
+=item getc
+
+=for Pod::Functions get the next character from the filehandle
+
+Returns the next character from the input file attached to FILEHANDLE,
+or the undefined value at end of file or if there was an error (in
+the latter case L<C<$!>|perlvar/$!> is set).  If FILEHANDLE is omitted,
+reads from
+STDIN.  This is not particularly efficient.  However, it cannot be
+used by itself to fetch single characters without waiting for the user
+to hit enter.  For that, try something more like:
+
+    if ($BSD_STYLE) {
+        system "stty cbreak </dev/tty >/dev/tty 2>&1";
+    }
+    else {
+        system "stty", '-icanon', 'eol', "\001";
+    }
+
+    my $key = getc(STDIN);
+
+    if ($BSD_STYLE) {
+        system "stty -cbreak </dev/tty >/dev/tty 2>&1";
+    }
+    else {
+        system 'stty', 'icanon', 'eol', '^@'; # ASCII NUL
+    }
+    print "\n";
+
+Determination of whether C<$BSD_STYLE> should be set is left as an
+exercise to the reader.
+
+The L<C<POSIX::getattr>|POSIX/C<getattr>> function can do this more
+portably on systems purporting POSIX compliance.  See also the
+L<C<Term::ReadKey>|Term::ReadKey> module on CPAN.
+
+=item getlogin
+X<getlogin> X<login>
+
+=for Pod::Functions return who logged in at this tty
+
+This implements the C library function of the same name, which on most
+systems returns the current login from F</etc/utmp>, if any.  If it
+returns the empty string, use L<C<getpwuid>|/getpwuid UID>.
+
+    my $login = getlogin || getpwuid($<) || "Kilroy";
+
+Do not consider L<C<getlogin>|/getlogin> for authentication: it is not
+as secure as L<C<getpwuid>|/getpwuid UID>.
+
+Portability issues: L<perlport/getlogin>.
+
+=item getpeername SOCKET
+X<getpeername> X<peer>
+
+=for Pod::Functions find the other end of a socket connection
+
+Returns the packed sockaddr address of the other end of the SOCKET
+connection.
+
+    use Socket;
+    my $hersockaddr    = getpeername($sock);
+    my ($port, $iaddr) = sockaddr_in($hersockaddr);
+    my $herhostname    = gethostbyaddr($iaddr, AF_INET);
+    my $herstraddr     = inet_ntoa($iaddr);
+
+=item getpgrp PID
+X<getpgrp> X<group>
+
+=for Pod::Functions get process group
+
+Returns the current process group for the specified PID.  Use
+a PID of C<0> to get the current process group for the
+current process.  Will raise an exception if used on a machine that
+doesn't implement L<getpgrp(2)>.  If PID is omitted, returns the process
+group of the current process.  Note that the POSIX version of
+L<C<getpgrp>|/getpgrp PID> does not accept a PID argument, so only
+C<PID==0> is truly portable.
+
+Portability issues: L<perlport/getpgrp>.
+
+=item getppid
+X<getppid> X<parent> X<pid>
+
+=for Pod::Functions get parent process ID
+
+Returns the process id of the parent process.
+
+Note for Linux users: Between v5.8.1 and v5.16.0 Perl would work
+around non-POSIX thread semantics the minority of Linux systems (and
+Debian GNU/kFreeBSD systems) that used LinuxThreads, this emulation
+has since been removed.  See the documentation for L<$$|perlvar/$$> for
+details.
+
+Portability issues: L<perlport/getppid>.
+
+=item getpriority WHICH,WHO
+X<getpriority> X<priority> X<nice>
+
+=for Pod::Functions get current nice value
+
+Returns the current priority for a process, a process group, or a user.
+(See L<getpriority(2)>.)  Will raise a fatal exception if used on a
+machine that doesn't implement L<getpriority(2)>.
+
+Portability issues: L<perlport/getpriority>.
+
+=item getpwnam NAME
+X<getpwnam> X<getgrnam> X<gethostbyname> X<getnetbyname> X<getprotobyname>
+X<getpwuid> X<getgrgid> X<getservbyname> X<gethostbyaddr> X<getnetbyaddr>
+X<getprotobynumber> X<getservbyport> X<getpwent> X<getgrent> X<gethostent>
+X<getnetent> X<getprotoent> X<getservent> X<setpwent> X<setgrent> X<sethostent>
+X<setnetent> X<setprotoent> X<setservent> X<endpwent> X<endgrent> X<endhostent>
+X<endnetent> X<endprotoent> X<endservent>
+
+=for Pod::Functions get passwd record given user login name
+
+=item getgrnam NAME
+
+=for Pod::Functions get group record given group name
+
+=item gethostbyname NAME
+
+=for Pod::Functions get host record given name
+
+=item getnetbyname NAME
+
+=for Pod::Functions get networks record given name
+
+=item getprotobyname NAME
+
+=for Pod::Functions get protocol record given name
+
+=item getpwuid UID
+
+=for Pod::Functions get passwd record given user ID
+
+=item getgrgid GID
+
+=for Pod::Functions get group record given group user ID
+
+=item getservbyname NAME,PROTO
+
+=for Pod::Functions get services record given its name
+
+=item gethostbyaddr ADDR,ADDRTYPE
+
+=for Pod::Functions get host record given its address
+
+=item getnetbyaddr ADDR,ADDRTYPE
+
+=for Pod::Functions get network record given its address
+
+=item getprotobynumber NUMBER
+
+=for Pod::Functions get protocol record numeric protocol
+
+=item getservbyport PORT,PROTO
+
+=for Pod::Functions get services record given numeric port
+
+=item getpwent
+
+=for Pod::Functions get next passwd record
+
+=item getgrent
+
+=for Pod::Functions get next group record
+
+=item gethostent
+
+=for Pod::Functions get next hosts record
+
+=item getnetent
+
+=for Pod::Functions get next networks record
+
+=item getprotoent
+
+=for Pod::Functions get next protocols record
+
+=item getservent
+
+=for Pod::Functions get next services record
+
+=item setpwent
+
+=for Pod::Functions prepare passwd file for use
+
+=item setgrent
+
+=for Pod::Functions prepare group file for use
+
+=item sethostent STAYOPEN
+
+=for Pod::Functions prepare hosts file for use
+
+=item setnetent STAYOPEN
+
+=for Pod::Functions prepare networks file for use
+
+=item setprotoent STAYOPEN
+
+=for Pod::Functions prepare protocols file for use
+
+=item setservent STAYOPEN
+
+=for Pod::Functions prepare services file for use
+
+=item endpwent
+
+=for Pod::Functions be done using passwd file
+
+=item endgrent
+
+=for Pod::Functions be done using group file
+
+=item endhostent
+
+=for Pod::Functions be done using hosts file
+
+=item endnetent
+
+=for Pod::Functions be done using networks file
+
+=item endprotoent
+
+=for Pod::Functions be done using protocols file
+
+=item endservent
+
+=for Pod::Functions be done using services file
+
+These routines are the same as their counterparts in the
+system C library.  In list context, the return values from the
+various get routines are as follows:
+
+ #    0        1          2           3         4
+ my ( $name,   $passwd,   $gid,       $members  ) = getgr*
+ my ( $name,   $aliases,  $addrtype,  $net      ) = getnet*
+ my ( $name,   $aliases,  $port,      $proto    ) = getserv*
+ my ( $name,   $aliases,  $proto                ) = getproto*
+ my ( $name,   $aliases,  $addrtype,  $length,  @addrs ) = gethost*
+ my ( $name,   $passwd,   $uid,       $gid,     $quota,
+    $comment,  $gcos,     $dir,       $shell,   $expire ) = getpw*
+ #    5        6          7           8         9
+
+(If the entry doesn't exist, the return value is a single meaningless true
+value.)
+
+The exact meaning of the $gcos field varies but it usually contains
+the real name of the user (as opposed to the login name) and other
+information pertaining to the user.  Beware, however, that in many
+system users are able to change this information and therefore it
+cannot be trusted and therefore the $gcos is tainted (see
+L<perlsec>).  The $passwd and $shell, user's encrypted password and
+login shell, are also tainted, for the same reason.
+
+In scalar context, you get the name, unless the function was a
+lookup by name, in which case you get the other thing, whatever it is.
+(If the entry doesn't exist you get the undefined value.)  For example:
+
+    my $uid   = getpwnam($name);
+    my $name  = getpwuid($num);
+    my $name  = getpwent();
+    my $gid   = getgrnam($name);
+    my $name  = getgrgid($num);
+    my $name  = getgrent();
+    # etc.
+
+In I<getpw*()> the fields $quota, $comment, and $expire are special
+in that they are unsupported on many systems.  If the
+$quota is unsupported, it is an empty scalar.  If it is supported, it
+usually encodes the disk quota.  If the $comment field is unsupported,
+it is an empty scalar.  If it is supported it usually encodes some
+administrative comment about the user.  In some systems the $quota
+field may be $change or $age, fields that have to do with password
+aging.  In some systems the $comment field may be $class.  The $expire
+field, if present, encodes the expiration period of the account or the
+password.  For the availability and the exact meaning of these fields
+in your system, please consult L<getpwnam(3)> and your system's
+F<pwd.h> file.  You can also find out from within Perl what your
+$quota and $comment fields mean and whether you have the $expire field
+by using the L<C<Config>|Config> module and the values C<d_pwquota>, C<d_pwage>,
+C<d_pwchange>, C<d_pwcomment>, and C<d_pwexpire>.  Shadow password
+files are supported only if your vendor has implemented them in the
+intuitive fashion that calling the regular C library routines gets the
+shadow versions if you're running under privilege or if there exists
+the L<shadow(3)> functions as found in System V (this includes Solaris
+and Linux).  Those systems that implement a proprietary shadow password
+facility are unlikely to be supported.
+
+The $members value returned by I<getgr*()> is a space-separated list of
+the login names of the members of the group.
+
+For the I<gethost*()> functions, if the C<h_errno> variable is supported in
+C, it will be returned to you via L<C<$?>|perlvar/$?> if the function
+call fails.  The
+C<@addrs> value returned by a successful call is a list of raw
+addresses returned by the corresponding library call.  In the
+Internet domain, each address is four bytes long; you can unpack it
+by saying something like:
+
+    my ($w,$x,$y,$z) = unpack('W4',$addr[0]);
+
+The Socket library makes this slightly easier:
+
+    use Socket;
+    my $iaddr = inet_aton("127.1"); # or whatever address
+    my $name  = gethostbyaddr($iaddr, AF_INET);
+
+    # or going the other way
+    my $straddr = inet_ntoa($iaddr);
+
+In the opposite way, to resolve a hostname to the IP address
+you can write this:
+
+    use Socket;
+    my $packed_ip = gethostbyname("www.perl.org");
+    my $ip_address;
+    if (defined $packed_ip) {
+        $ip_address = inet_ntoa($packed_ip);
+    }
+
+Make sure L<C<gethostbyname>|/gethostbyname NAME> is called in SCALAR
+context and that its return value is checked for definedness.
+
+The L<C<getprotobynumber>|/getprotobynumber NUMBER> function, even
+though it only takes one argument, has the precedence of a list
+operator, so beware:
+
+    getprotobynumber $number eq 'icmp'   # WRONG
+    getprotobynumber($number eq 'icmp')  # actually means this
+    getprotobynumber($number) eq 'icmp'  # better this way
+
+If you get tired of remembering which element of the return list
+contains which return value, by-name interfaces are provided in standard
+modules: L<C<File::stat>|File::stat>, L<C<Net::hostent>|Net::hostent>,
+L<C<Net::netent>|Net::netent>, L<C<Net::protoent>|Net::protoent>,
+L<C<Net::servent>|Net::servent>, L<C<Time::gmtime>|Time::gmtime>,
+L<C<Time::localtime>|Time::localtime>, and
+L<C<User::grent>|User::grent>.  These override the normal built-ins,
+supplying versions that return objects with the appropriate names for
+each field.  For example:
+
+   use File::stat;
+   use User::pwent;
+   my $is_his = (stat($filename)->uid == pwent($whoever)->uid);
+
+Even though it looks as though they're the same method calls (uid),
+they aren't, because a C<File::stat> object is different from
+a C<User::pwent> object.
+
+Portability issues: L<perlport/getpwnam> to L<perlport/endservent>.
+
+=item getsockname SOCKET
+X<getsockname>
+
+=for Pod::Functions retrieve the sockaddr for a given socket
+
+Returns the packed sockaddr address of this end of the SOCKET connection,
+in case you don't know the address because you have several different
+IPs that the connection might have come in on.
+
+    use Socket;
+    my $mysockaddr = getsockname($sock);
+    my ($port, $myaddr) = sockaddr_in($mysockaddr);
+    printf "Connect to %s [%s]\n",
+       scalar gethostbyaddr($myaddr, AF_INET),
+       inet_ntoa($myaddr);
+
+=item getsockopt SOCKET,LEVEL,OPTNAME
+X<getsockopt>
+
+=for Pod::Functions get socket options on a given socket
+
+Queries the option named OPTNAME associated with SOCKET at a given LEVEL.
+Options may exist at multiple protocol levels depending on the socket
+type, but at least the uppermost socket level SOL_SOCKET (defined in the
+L<C<Socket>|Socket> module) will exist.  To query options at another
+level the protocol number of the appropriate protocol controlling the
+option should be supplied.  For example, to indicate that an option is
+to be interpreted by the TCP protocol, LEVEL should be set to the
+protocol number of TCP, which you can get using
+L<C<getprotobyname>|/getprotobyname NAME>.
+
+The function returns a packed string representing the requested socket
+option, or L<C<undef>|/undef EXPR> on error, with the reason for the
+error placed in L<C<$!>|perlvar/$!>.  Just what is in the packed string
+depends on LEVEL and OPTNAME; consult L<getsockopt(2)> for details.  A
+common case is that the option is an integer, in which case the result
+is a packed integer, which you can decode using
+L<C<unpack>|/unpack TEMPLATE,EXPR> with the C<i> (or C<I>) format.
+
+Here's an example to test whether Nagle's algorithm is enabled on a socket:
+
+    use Socket qw(:all);
+
+    defined(my $tcp = getprotobyname("tcp"))
+        or die "Could not determine the protocol number for tcp";
+    # my $tcp = IPPROTO_TCP; # Alternative
+    my $packed = getsockopt($socket, $tcp, TCP_NODELAY)
+        or die "getsockopt TCP_NODELAY: $!";
+    my $nodelay = unpack("I", $packed);
+    print "Nagle's algorithm is turned ",
+           $nodelay ? "off\n" : "on\n";
+
+Portability issues: L<perlport/getsockopt>.
+
+=item glob EXPR
+X<glob> X<wildcard> X<filename, expansion> X<expand>
+
+=item glob
+
+=for Pod::Functions expand filenames using wildcards
+
+In list context, returns a (possibly empty) list of filename expansions on
+the value of EXPR such as the standard Unix shell F</bin/csh> would do.  In
+scalar context, glob iterates through such filename expansions, returning
+undef when the list is exhausted.  This is the internal function
+implementing the C<< <*.c> >> operator, but you can use it directly.  If
+EXPR is omitted, L<C<$_>|perlvar/$_> is used.  The C<< <*.c> >> operator
+is discussed in more detail in L<perlop/"I/O Operators">.
+
+Note that L<C<glob>|/glob EXPR> splits its arguments on whitespace and
+treats
+each segment as separate pattern.  As such, C<glob("*.c *.h")>
+matches all files with a F<.c> or F<.h> extension.  The expression
+C<glob(".* *")> matches all files in the current working directory.
+If you want to glob filenames that might contain whitespace, you'll
+have to use extra quotes around the spacey filename to protect it.
+For example, to glob filenames that have an C<e> followed by a space
+followed by an C<f>, use one of:
+
+    my @spacies = <"*e f*">;
+    my @spacies = glob '"*e f*"';
+    my @spacies = glob q("*e f*");
+
+If you had to get a variable through, you could do this:
+
+    my @spacies = glob "'*${var}e f*'";
+    my @spacies = glob qq("*${var}e f*");
+
+If non-empty braces are the only wildcard characters used in the
+L<C<glob>|/glob EXPR>, no filenames are matched, but potentially many
+strings are returned.  For example, this produces nine strings, one for
+each pairing of fruits and colors:
+
+    my @many = glob "{apple,tomato,cherry}={green,yellow,red}";
+
+This operator is implemented using the standard C<File::Glob> extension.
+See L<File::Glob> for details, including
+L<C<bsd_glob>|File::Glob/C<bsd_glob>>, which does not treat whitespace
+as a pattern separator.
+
+Portability issues: L<perlport/glob>.
+
+=item gmtime EXPR
+X<gmtime> X<UTC> X<Greenwich>
+
+=item gmtime
+
+=for Pod::Functions convert UNIX time into record or string using Greenwich time
+
+Works just like L<C<localtime>|/localtime EXPR> but the returned values
+are localized for the standard Greenwich time zone.
+
+Note: When called in list context, $isdst, the last value
+returned by gmtime, is always C<0>.  There is no
+Daylight Saving Time in GMT.
+
+Portability issues: L<perlport/gmtime>.
+
+=item goto LABEL
+X<goto> X<jump> X<jmp>
+
+=item goto EXPR
+
+=item goto &NAME
+
+=for Pod::Functions create spaghetti code
+
+The C<goto LABEL> form finds the statement labeled with LABEL and
+resumes execution there.  It can't be used to get out of a block or
+subroutine given to L<C<sort>|/sort SUBNAME LIST>.  It can be used to go
+almost anywhere else within the dynamic scope, including out of
+subroutines, but it's usually better to use some other construct such as
+L<C<last>|/last LABEL> or L<C<die>|/die LIST>.  The author of Perl has
+never felt the need to use this form of L<C<goto>|/goto LABEL> (in Perl,
+that is; C is another matter).  (The difference is that C does not offer
+named loops combined with loop control.  Perl does, and this replaces
+most structured uses of L<C<goto>|/goto LABEL> in other languages.)
+
+The C<goto EXPR> form expects to evaluate C<EXPR> to a code reference or
+a label name.  If it evaluates to a code reference, it will be handled
+like C<goto &NAME>, below.  This is especially useful for implementing
+tail recursion via C<goto __SUB__>.
+
+If the expression evaluates to a label name, its scope will be resolved
+dynamically.  This allows for computed L<C<goto>|/goto LABEL>s per
+FORTRAN, but isn't necessarily recommended if you're optimizing for
+maintainability:
+
+    goto ("FOO", "BAR", "GLARCH")[$i];
+
+As shown in this example, C<goto EXPR> is exempt from the "looks like a
+function" rule.  A pair of parentheses following it does not (necessarily)
+delimit its argument.  C<goto("NE")."XT"> is equivalent to C<goto NEXT>.
+Also, unlike most named operators, this has the same precedence as
+assignment.
+
+Use of C<goto LABEL> or C<goto EXPR> to jump into a construct is
+deprecated and will issue a warning.  Even then, it may not be used to
+go into any construct that requires initialization, such as a
+subroutine or a C<foreach> loop.  It also can't be used to go into a
+construct that is optimized away.
+
+The C<goto &NAME> form is quite different from the other forms of
+L<C<goto>|/goto LABEL>.  In fact, it isn't a goto in the normal sense at
+all, and doesn't have the stigma associated with other gotos.  Instead,
+it exits the current subroutine (losing any changes set by
+L<C<local>|/local EXPR>) and immediately calls in its place the named
+subroutine using the current value of L<C<@_>|perlvar/@_>.  This is used
+by C<AUTOLOAD> subroutines that wish to load another subroutine and then
+pretend that the other subroutine had been called in the first place
+(except that any modifications to L<C<@_>|perlvar/@_> in the current
+subroutine are propagated to the other subroutine.) After the
+L<C<goto>|/goto LABEL>, not even L<C<caller>|/caller EXPR> will be able
+to tell that this routine was called first.
+
+NAME needn't be the name of a subroutine; it can be a scalar variable
+containing a code reference or a block that evaluates to a code
+reference.
+
+=item grep BLOCK LIST
+X<grep>
+
+=item grep EXPR,LIST
+
+=for Pod::Functions locate elements in a list test true against a given criterion
+
+This is similar in spirit to, but not the same as, L<grep(1)> and its
+relatives.  In particular, it is not limited to using regular expressions.
+
+Evaluates the BLOCK or EXPR for each element of LIST (locally setting
+L<C<$_>|perlvar/$_> to each element) and returns the list value
+consisting of those
+elements for which the expression evaluated to true.  In scalar
+context, returns the number of times the expression was true.
+
+    my @foo = grep(!/^#/, @bar);    # weed out comments
+
+or equivalently,
+
+    my @foo = grep {!/^#/} @bar;    # weed out comments
+
+Note that L<C<$_>|perlvar/$_> is an alias to the list value, so it can
+be used to
+modify the elements of the LIST.  While this is useful and supported,
+it can cause bizarre results if the elements of LIST are not variables.
+Similarly, grep returns aliases into the original list, much as a for
+loop's index variable aliases the list elements.  That is, modifying an
+element of a list returned by grep (for example, in a C<foreach>,
+L<C<map>|/map BLOCK LIST> or another L<C<grep>|/grep BLOCK LIST>)
+actually modifies the element in the original list.
+This is usually something to be avoided when writing clear code.
+
+See also L<C<map>|/map BLOCK LIST> for a list composed of the results of
+the BLOCK or EXPR.
+
+=item hex EXPR
+X<hex> X<hexadecimal>
+
+=item hex
+
+=for Pod::Functions convert a hexadecimal string to a number
+
+Interprets EXPR as a hex string and returns the corresponding numeric value.
+If EXPR is omitted, uses L<C<$_>|perlvar/$_>.
+
+    print hex '0xAf'; # prints '175'
+    print hex 'aF';   # same
+    $valid_input =~ /\A(?:0?[xX])?(?:_?[0-9a-fA-F])*\z/
+
+A hex string consists of hex digits and an optional C<0x> or C<x> prefix.
+Each hex digit may be preceded by a single underscore, which will be ignored.
+Any other character triggers a warning and causes the rest of the string
+to be ignored (even leading whitespace, unlike L<C<oct>|/oct EXPR>).
+Only integers can be represented, and integer overflow triggers a warning.
+
+To convert strings that might start with any of C<0>, C<0x>, or C<0b>,
+see L<C<oct>|/oct EXPR>.  To present something as hex, look into
+L<C<printf>|/printf FILEHANDLE FORMAT, LIST>,
+L<C<sprintf>|/sprintf FORMAT, LIST>, and
+L<C<unpack>|/unpack TEMPLATE,EXPR>.
+
+=item import LIST
+X<import>
+
+=for Pod::Functions patch a module's namespace into your own
+
+There is no builtin L<C<import>|/import LIST> function.  It is just an
+ordinary method (subroutine) defined (or inherited) by modules that wish
+to export names to another module.  The
+L<C<use>|/use Module VERSION LIST> function calls the
+L<C<import>|/import LIST> method for the package used.  See also
+L<C<use>|/use Module VERSION LIST>, L<perlmod>, and L<Exporter>.
+
+=item index STR,SUBSTR,POSITION
+X<index> X<indexOf> X<InStr>
+
+=item index STR,SUBSTR
+
+=for Pod::Functions find a substring within a string
+
+The index function searches for one string within another, but without
+the wildcard-like behavior of a full regular-expression pattern match.
+It returns the position of the first occurrence of SUBSTR in STR at
+or after POSITION.  If POSITION is omitted, starts searching from the
+beginning of the string.  POSITION before the beginning of the string
+or after its end is treated as if it were the beginning or the end,
+respectively.  POSITION and the return value are based at zero.
+If the substring is not found, L<C<index>|/index STR,SUBSTR,POSITION>
+returns -1.
+
+=item int EXPR
+X<int> X<integer> X<truncate> X<trunc> X<floor>
+
+=item int
+
+=for Pod::Functions get the integer portion of a number
+
+Returns the integer portion of EXPR.  If EXPR is omitted, uses
+L<C<$_>|perlvar/$_>.
+You should not use this function for rounding: one because it truncates
+towards C<0>, and two because machine representations of floating-point
+numbers can sometimes produce counterintuitive results.  For example,
+C<int(-6.725/0.025)> produces -268 rather than the correct -269; that's
+because it's really more like -268.99999999999994315658 instead.  Usually,
+the L<C<sprintf>|/sprintf FORMAT, LIST>,
+L<C<printf>|/printf FILEHANDLE FORMAT, LIST>, or the
+L<C<POSIX::floor>|POSIX/C<floor>> and L<C<POSIX::ceil>|POSIX/C<ceil>>
+functions will serve you better than will L<C<int>|/int EXPR>.
+
+=item ioctl FILEHANDLE,FUNCTION,SCALAR
+X<ioctl>
+
+=for Pod::Functions system-dependent device control system call
+
+Implements the L<ioctl(2)> function.  You'll probably first have to say
+
+    require "sys/ioctl.ph";  # probably in
+                             # $Config{archlib}/sys/ioctl.ph
+
+to get the correct function definitions.  If F<sys/ioctl.ph> doesn't
+exist or doesn't have the correct definitions you'll have to roll your
+own, based on your C header files such as F<< <sys/ioctl.h> >>.
+(There is a Perl script called B<h2ph> that comes with the Perl kit that
+may help you in this, but it's nontrivial.)  SCALAR will be read and/or
+written depending on the FUNCTION; a C pointer to the string value of SCALAR
+will be passed as the third argument of the actual
+L<C<ioctl>|/ioctl FILEHANDLE,FUNCTION,SCALAR> call.  (If SCALAR
+has no string value but does have a numeric value, that value will be
+passed rather than a pointer to the string value.  To guarantee this to be
+true, add a C<0> to the scalar before using it.)  The
+L<C<pack>|/pack TEMPLATE,LIST> and L<C<unpack>|/unpack TEMPLATE,EXPR>
+functions may be needed to manipulate the values of structures used by
+L<C<ioctl>|/ioctl FILEHANDLE,FUNCTION,SCALAR>.
+
+The return value of L<C<ioctl>|/ioctl FILEHANDLE,FUNCTION,SCALAR> (and
+L<C<fcntl>|/fcntl FILEHANDLE,FUNCTION,SCALAR>) is as follows:
+
+    if OS returns:      then Perl returns:
+        -1               undefined value
+         0              string "0 but true"
+    anything else           that number
+
+Thus Perl returns true on success and false on failure, yet you can
+still easily determine the actual value returned by the operating
+system:
+
+    my $retval = ioctl(...) || -1;
+    printf "System returned %d\n", $retval;
+
+The special string C<"0 but true"> is exempt from
+L<C<Argument "..." isn't numeric>|perldiag/Argument "%s" isn't numeric%s>
+L<warnings> on improper numeric conversions.
+
+Portability issues: L<perlport/ioctl>.
+
+=item join EXPR,LIST
+X<join>
+
+=for Pod::Functions join a list into a string using a separator
+
+Joins the separate strings of LIST into a single string with fields
+separated by the value of EXPR, and returns that new string.  Example:
+
+   my $rec = join(':', $login,$passwd,$uid,$gid,$gcos,$home,$shell);
+
+Beware that unlike L<C<split>|/split E<sol>PATTERNE<sol>,EXPR,LIMIT>,
+L<C<join>|/join EXPR,LIST> doesn't take a pattern as its first argument.
+Compare L<C<split>|/split E<sol>PATTERNE<sol>,EXPR,LIMIT>.
+
+=item keys HASH
+X<keys> X<key>
+
+=item keys ARRAY
+
+=for Pod::Functions retrieve list of indices from a hash
+
+Called in list context, returns a list consisting of all the keys of the
+named hash, or in Perl 5.12 or later only, the indices of an array.  Perl
+releases prior to 5.12 will produce a syntax error if you try to use an
+array argument.  In scalar context, returns the number of keys or indices.
+
+Hash entries are returned in an apparently random order.  The actual random
+order is specific to a given hash; the exact same series of operations
+on two hashes may result in a different order for each hash.  Any insertion
+into the hash may change the order, as will any deletion, with the exception
+that the most recent key returned by L<C<each>|/each HASH> or
+L<C<keys>|/keys HASH> may be deleted without changing the order.  So
+long as a given hash is unmodified you may rely on
+L<C<keys>|/keys HASH>, L<C<values>|/values HASH> and L<C<each>|/each
+HASH> to repeatedly return the same order
+as each other.  See L<perlsec/"Algorithmic Complexity Attacks"> for
+details on why hash order is randomized.  Aside from the guarantees
+provided here the exact details of Perl's hash algorithm and the hash
+traversal order are subject to change in any release of Perl.  Tied hashes
+may behave differently to Perl's hashes with respect to changes in order on
+insertion and deletion of items.
+
+As a side effect, calling L<C<keys>|/keys HASH> resets the internal
+iterator of the HASH or ARRAY (see L<C<each>|/each HASH>).  In
+particular, calling L<C<keys>|/keys HASH> in void context resets the
+iterator with no other overhead.
+
+Here is yet another way to print your environment:
+
+    my @keys = keys %ENV;
+    my @values = values %ENV;
+    while (@keys) {
+        print pop(@keys), '=', pop(@values), "\n";
+    }
+
+or how about sorted by key:
+
+    foreach my $key (sort(keys %ENV)) {
+        print $key, '=', $ENV{$key}, "\n";
+    }
+
+The returned values are copies of the original keys in the hash, so
+modifying them will not affect the original hash.  Compare
+L<C<values>|/values HASH>.
+
+To sort a hash by value, you'll need to use a
+L<C<sort>|/sort SUBNAME LIST> function.  Here's a descending numeric
+sort of a hash by its values:
+
+    foreach my $key (sort { $hash{$b} <=> $hash{$a} } keys %hash) {
+        printf "%4d %s\n", $hash{$key}, $key;
+    }
+
+Used as an lvalue, L<C<keys>|/keys HASH> allows you to increase the
+number of hash buckets
+allocated for the given hash.  This can gain you a measure of efficiency if
+you know the hash is going to get big.  (This is similar to pre-extending
+an array by assigning a larger number to $#array.)  If you say
+
+    keys %hash = 200;
+
+then C<%hash> will have at least 200 buckets allocated for it--256 of them,
+in fact, since it rounds up to the next power of two.  These
+buckets will be retained even if you do C<%hash = ()>, use C<undef
+%hash> if you want to free the storage while C<%hash> is still in scope.
+You can't shrink the number of buckets allocated for the hash using
+L<C<keys>|/keys HASH> in this way (but you needn't worry about doing
+this by accident, as trying has no effect).  C<keys @array> in an lvalue
+context is a syntax error.
+
+Starting with Perl 5.14, an experimental feature allowed
+L<C<keys>|/keys HASH> to take a scalar expression. This experiment has
+been deemed unsuccessful, and was removed as of Perl 5.24.
+
+To avoid confusing would-be users of your code who are running earlier
+versions of Perl with mysterious syntax errors, put this sort of thing at
+the top of your file to signal that your code will work I<only> on Perls of
+a recent vintage:
+
+    use 5.012;	# so keys/values/each work on arrays
+
+See also L<C<each>|/each HASH>, L<C<values>|/values HASH>, and
+L<C<sort>|/sort SUBNAME LIST>.
+
+=item kill SIGNAL, LIST
+
+=item kill SIGNAL
+X<kill> X<signal>
+
+=for Pod::Functions send a signal to a process or process group
+
+Sends a signal to a list of processes.  Returns the number of arguments
+that were successfully used to signal (which is not necessarily the same
+as the number of processes actually killed, e.g. where a process group is
+killed).
+
+    my $cnt = kill 'HUP', $child1, $child2;
+    kill 'KILL', @goners;
+
+SIGNAL may be either a signal name (a string) or a signal number.  A signal
+name may start with a C<SIG> prefix, thus C<FOO> and C<SIGFOO> refer to the
+same signal.  The string form of SIGNAL is recommended for portability because
+the same signal may have different numbers in different operating systems.
+
+A list of signal names supported by the current platform can be found in
+C<$Config{sig_name}>, which is provided by the L<C<Config>|Config>
+module.  See L<Config> for more details.
+
+A negative signal name is the same as a negative signal number, killing process
+groups instead of processes.  For example, C<kill '-KILL', $pgrp> and
+C<kill -9, $pgrp> will send C<SIGKILL> to
+the entire process group specified.  That
+means you usually want to use positive not negative signals.
+
+If SIGNAL is either the number 0 or the string C<ZERO> (or C<SIGZERO>),
+no signal is sent to the process, but L<C<kill>|/kill SIGNAL, LIST>
+checks whether it's I<possible> to send a signal to it
+(that means, to be brief, that the process is owned by the same user, or we are
+the super-user).  This is useful to check that a child process is still
+alive (even if only as a zombie) and hasn't changed its UID.  See
+L<perlport> for notes on the portability of this construct.
+
+The behavior of kill when a I<PROCESS> number is zero or negative depends on
+the operating system.  For example, on POSIX-conforming systems, zero will
+signal the current process group, -1 will signal all processes, and any
+other negative PROCESS number will act as a negative signal number and
+kill the entire process group specified.
+
+If both the SIGNAL and the PROCESS are negative, the results are undefined.
+A warning may be produced in a future version.
+
+See L<perlipc/"Signals"> for more details.
+
+On some platforms such as Windows where the L<fork(2)> system call is not
+available, Perl can be built to emulate L<C<fork>|/fork> at the
+interpreter level.
+This emulation has limitations related to kill that have to be considered,
+for code running on Windows and in code intended to be portable.
+
+See L<perlfork> for more details.
+
+If there is no I<LIST> of processes, no signal is sent, and the return
+value is 0.  This form is sometimes used, however, because it causes
+tainting checks to be run.  But see
+L<perlsec/Laundering and Detecting Tainted Data>.
+
+Portability issues: L<perlport/kill>.
+
+=item last LABEL
+X<last> X<break>
+
+=item last EXPR
+
+=item last
+
+=for Pod::Functions exit a block prematurely
+
+The L<C<last>|/last LABEL> command is like the C<break> statement in C
+(as used in
+loops); it immediately exits the loop in question.  If the LABEL is
+omitted, the command refers to the innermost enclosing
+loop.  The C<last EXPR> form, available starting in Perl
+5.18.0, allows a label name to be computed at run time,
+and is otherwise identical to C<last LABEL>.  The
+L<C<continue>|/continue BLOCK> block, if any, is not executed:
+
+    LINE: while (<STDIN>) {
+        last LINE if /^$/;  # exit when done with header
+        #...
+    }
+
+L<C<last>|/last LABEL> cannot be used to exit a block that returns a
+value such as C<eval {}>, C<sub {}>, or C<do {}>, and should not be used
+to exit a L<C<grep>|/grep BLOCK LIST> or L<C<map>|/map BLOCK LIST>
+operation.
+
+Note that a block by itself is semantically identical to a loop
+that executes once.  Thus L<C<last>|/last LABEL> can be used to effect
+an early exit out of such a block.
+
+See also L<C<continue>|/continue BLOCK> for an illustration of how
+L<C<last>|/last LABEL>, L<C<next>|/next LABEL>, and
+L<C<redo>|/redo LABEL> work.
+
+Unlike most named operators, this has the same precedence as assignment.
+It is also exempt from the looks-like-a-function rule, so
+C<last ("foo")."bar"> will cause "bar" to be part of the argument to
+L<C<last>|/last LABEL>.
+
+=item lc EXPR
+X<lc> X<lowercase>
+
+=item lc
+
+=for Pod::Functions return lower-case version of a string
+
+Returns a lowercased version of EXPR.  This is the internal function
+implementing the C<\L> escape in double-quoted strings.
+
+If EXPR is omitted, uses L<C<$_>|perlvar/$_>.
+
+What gets returned depends on several factors:
+
+=over
+
+=item If C<use bytes> is in effect:
+
+The results follow ASCII rules.  Only the characters C<A-Z> change,
+to C<a-z> respectively.
+
+=item Otherwise, if C<use locale> for C<LC_CTYPE> is in effect:
+
+Respects current C<LC_CTYPE> locale for code points < 256; and uses Unicode
+rules for the remaining code points (this last can only happen if
+the UTF8 flag is also set).  See L<perllocale>.
+
+Starting in v5.20, Perl uses full Unicode rules if the locale is
+UTF-8.  Otherwise, there is a deficiency in this scheme, which is that
+case changes that cross the 255/256
+boundary are not well-defined.  For example, the lower case of LATIN CAPITAL
+LETTER SHARP S (U+1E9E) in Unicode rules is U+00DF (on ASCII
+platforms).   But under C<use locale> (prior to v5.20 or not a UTF-8
+locale), the lower case of U+1E9E is
+itself, because 0xDF may not be LATIN SMALL LETTER SHARP S in the
+current locale, and Perl has no way of knowing if that character even
+exists in the locale, much less what code point it is.  Perl returns
+a result that is above 255 (almost always the input character unchanged),
+for all instances (and there aren't many) where the 255/256 boundary
+would otherwise be crossed; and starting in v5.22, it raises a
+L<locale|perldiag/Can't do %s("%s") on non-UTF-8 locale; resolved to "%s".> warning.
+
+=item Otherwise, If EXPR has the UTF8 flag set:
+
+Unicode rules are used for the case change.
+
+=item Otherwise, if C<use feature 'unicode_strings'> or C<use locale ':not_characters'> is in effect:
+
+Unicode rules are used for the case change.
+
+=item Otherwise:
+
+ASCII rules are used for the case change.  The lowercase of any character
+outside the ASCII range is the character itself.
+
+=back
+
+=item lcfirst EXPR
+X<lcfirst> X<lowercase>
+
+=item lcfirst
+
+=for Pod::Functions return a string with just the next letter in lower case
+
+Returns the value of EXPR with the first character lowercased.  This
+is the internal function implementing the C<\l> escape in
+double-quoted strings.
+
+If EXPR is omitted, uses L<C<$_>|perlvar/$_>.
+
+This function behaves the same way under various pragmas, such as in a locale,
+as L<C<lc>|/lc EXPR> does.
+
+=item length EXPR
+X<length> X<size>
+
+=item length
+
+=for Pod::Functions return the number of characters in a string
+
+Returns the length in I<characters> of the value of EXPR.  If EXPR is
+omitted, returns the length of L<C<$_>|perlvar/$_>.  If EXPR is
+undefined, returns L<C<undef>|/undef EXPR>.
+
+This function cannot be used on an entire array or hash to find out how
+many elements these have.  For that, use C<scalar @array> and C<scalar keys
+%hash>, respectively.
+
+Like all Perl character operations, L<C<length>|/length EXPR> normally
+deals in logical
+characters, not physical bytes.  For how many bytes a string encoded as
+UTF-8 would take up, use C<length(Encode::encode_utf8(EXPR))> (you'll have
+to C<use Encode> first).  See L<Encode> and L<perlunicode>.
+
+=item __LINE__
+X<__LINE__>
+
+=for Pod::Functions the current source line number
+
+A special token that compiles to the current line number.
+
+=item link OLDFILE,NEWFILE
+X<link>
+
+=for Pod::Functions create a hard link in the filesystem
+
+Creates a new filename linked to the old filename.  Returns true for
+success, false otherwise.
+
+Portability issues: L<perlport/link>.
+
+=item listen SOCKET,QUEUESIZE
+X<listen>
+
+=for Pod::Functions register your socket as a server
+
+Does the same thing that the L<listen(2)> system call does.  Returns true if
+it succeeded, false otherwise.  See the example in
+L<perlipc/"Sockets: Client/Server Communication">.
+
+=item local EXPR
+X<local>
+
+=for Pod::Functions create a temporary value for a global variable (dynamic scoping)
+
+You really probably want to be using L<C<my>|/my VARLIST> instead,
+because L<C<local>|/local EXPR> isn't what most people think of as
+"local".  See L<perlsub/"Private Variables via my()"> for details.
+
+A local modifies the listed variables to be local to the enclosing
+block, file, or eval.  If more than one value is listed, the list must
+be placed in parentheses.  See L<perlsub/"Temporary Values via local()">
+for details, including issues with tied arrays and hashes.
+
+The C<delete local EXPR> construct can also be used to localize the deletion
+of array/hash elements to the current block.
+See L<perlsub/"Localized deletion of elements of composite types">.
+
+=item localtime EXPR
+X<localtime> X<ctime>
+
+=item localtime
+
+=for Pod::Functions convert UNIX time into record or string using local time
+
+Converts a time as returned by the time function to a 9-element list
+with the time analyzed for the local time zone.  Typically used as
+follows:
+
+    #     0    1    2     3     4    5     6     7     8
+    my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
+                                                localtime(time);
+
+All list elements are numeric and come straight out of the C `struct
+tm'.  C<$sec>, C<$min>, and C<$hour> are the seconds, minutes, and hours
+of the specified time.
+
+C<$mday> is the day of the month and C<$mon> the month in
+the range C<0..11>, with 0 indicating January and 11 indicating December.
+This makes it easy to get a month name from a list:
+
+    my @abbr = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
+    print "$abbr[$mon] $mday";
+    # $mon=9, $mday=18 gives "Oct 18"
+
+C<$year> contains the number of years since 1900.  To get a 4-digit
+year write:
+
+    $year += 1900;
+
+To get the last two digits of the year (e.g., "01" in 2001) do:
+
+    $year = sprintf("%02d", $year % 100);
+
+C<$wday> is the day of the week, with 0 indicating Sunday and 3 indicating
+Wednesday.  C<$yday> is the day of the year, in the range C<0..364>
+(or C<0..365> in leap years.)
+
+C<$isdst> is true if the specified time occurs during Daylight Saving
+Time, false otherwise.
+
+If EXPR is omitted, L<C<localtime>|/localtime EXPR> uses the current
+time (as returned by L<C<time>|/time>).
+
+In scalar context, L<C<localtime>|/localtime EXPR> returns the
+L<ctime(3)> value:
+
+    my $now_string = localtime;  # e.g., "Thu Oct 13 04:54:34 1994"
+
+The format of this scalar value is B<not> locale-dependent but built
+into Perl.  For GMT instead of local time use the
+L<C<gmtime>|/gmtime EXPR> builtin.  See also the
+L<C<Time::Local>|Time::Local> module (for converting seconds, minutes,
+hours, and such back to the integer value returned by L<C<time>|/time>),
+and the L<POSIX> module's L<C<strftime>|POSIX/C<strftime>> and
+L<C<mktime>|POSIX/C<mktime>> functions.
+
+To get somewhat similar but locale-dependent date strings, set up your
+locale environment variables appropriately (please see L<perllocale>) and
+try for example:
+
+    use POSIX qw(strftime);
+    my $now_string = strftime "%a %b %e %H:%M:%S %Y", localtime;
+    # or for GMT formatted appropriately for your locale:
+    my $now_string = strftime "%a %b %e %H:%M:%S %Y", gmtime;
+
+Note that C<%a> and C<%b>, the short forms of the day of the week
+and the month of the year, may not necessarily be three characters wide.
+
+The L<Time::gmtime> and L<Time::localtime> modules provide a convenient,
+by-name access mechanism to the L<C<gmtime>|/gmtime EXPR> and
+L<C<localtime>|/localtime EXPR> functions, respectively.
+
+For a comprehensive date and time representation look at the
+L<DateTime> module on CPAN.
+
+Portability issues: L<perlport/localtime>.
+
+=item lock THING
+X<lock>
+
+=for Pod::Functions +5.005 get a thread lock on a variable, subroutine, or method
+
+This function places an advisory lock on a shared variable or referenced
+object contained in I<THING> until the lock goes out of scope.
+
+The value returned is the scalar itself, if the argument is a scalar, or a
+reference, if the argument is a hash, array or subroutine.
+
+L<C<lock>|/lock THING> is a "weak keyword"; this means that if you've
+defined a function
+by this name (before any calls to it), that function will be called
+instead.  If you are not under C<use threads::shared> this does nothing.
+See L<threads::shared>.
+
+=item log EXPR
+X<log> X<logarithm> X<e> X<ln> X<base>
+
+=item log
+
+=for Pod::Functions retrieve the natural logarithm for a number
+
+Returns the natural logarithm (base I<e>) of EXPR.  If EXPR is omitted,
+returns the log of L<C<$_>|perlvar/$_>.  To get the
+log of another base, use basic algebra:
+The base-N log of a number is equal to the natural log of that number
+divided by the natural log of N.  For example:
+
+    sub log10 {
+        my $n = shift;
+        return log($n)/log(10);
+    }
+
+See also L<C<exp>|/exp EXPR> for the inverse operation.
+
+=item lstat FILEHANDLE
+X<lstat>
+
+=item lstat EXPR
+
+=item lstat DIRHANDLE
+
+=item lstat
+
+=for Pod::Functions stat a symbolic link
+
+Does the same thing as the L<C<stat>|/stat FILEHANDLE> function
+(including setting the special C<_> filehandle) but stats a symbolic
+link instead of the file the symbolic link points to.  If symbolic links
+are unimplemented on your system, a normal L<C<stat>|/stat FILEHANDLE>
+is done.  For much more detailed information, please see the
+documentation for L<C<stat>|/stat FILEHANDLE>.
+
+If EXPR is omitted, stats L<C<$_>|perlvar/$_>.
+
+Portability issues: L<perlport/lstat>.
+
+=item m//
+
+=for Pod::Functions match a string with a regular expression pattern
+
+The match operator.  See L<perlop/"Regexp Quote-Like Operators">.
+
+=item map BLOCK LIST
+X<map>
+
+=item map EXPR,LIST
+
+=for Pod::Functions apply a change to a list to get back a new list with the changes
+
+Evaluates the BLOCK or EXPR for each element of LIST (locally setting
+L<C<$_>|perlvar/$_> to each element) and returns the list value composed
+of the
+results of each such evaluation.  In scalar context, returns the
+total number of elements so generated.  Evaluates BLOCK or EXPR in
+list context, so each element of LIST may produce zero, one, or
+more elements in the returned value.
+
+    my @chars = map(chr, @numbers);
+
+translates a list of numbers to the corresponding characters.
+
+    my @squares = map { $_ * $_ } @numbers;
+
+translates a list of numbers to their squared values.
+
+    my @squares = map { $_ > 5 ? ($_ * $_) : () } @numbers;
+
+shows that number of returned elements can differ from the number of
+input elements.  To omit an element, return an empty list ().
+This could also be achieved by writing
+
+    my @squares = map { $_ * $_ } grep { $_ > 5 } @numbers;
+
+which makes the intention more clear.
+
+Map always returns a list, which can be
+assigned to a hash such that the elements
+become key/value pairs.  See L<perldata> for more details.
+
+    my %hash = map { get_a_key_for($_) => $_ } @array;
+
+is just a funny way to write
+
+    my %hash;
+    foreach (@array) {
+        $hash{get_a_key_for($_)} = $_;
+    }
+
+Note that L<C<$_>|perlvar/$_> is an alias to the list value, so it can
+be used to modify the elements of the LIST.  While this is useful and
+supported, it can cause bizarre results if the elements of LIST are not
+variables.  Using a regular C<foreach> loop for this purpose would be
+clearer in most cases.  See also L<C<grep>|/grep BLOCK LIST> for an
+array composed of those items of the original list for which the BLOCK
+or EXPR evaluates to true.
+
+C<{> starts both hash references and blocks, so C<map { ...> could be either
+the start of map BLOCK LIST or map EXPR, LIST.  Because Perl doesn't look
+ahead for the closing C<}> it has to take a guess at which it's dealing with
+based on what it finds just after the
+C<{>.  Usually it gets it right, but if it
+doesn't it won't realize something is wrong until it gets to the C<}> and
+encounters the missing (or unexpected) comma.  The syntax error will be
+reported close to the C<}>, but you'll need to change something near the C<{>
+such as using a unary C<+> or semicolon to give Perl some help:
+
+ my %hash = map {  "\L$_" => 1  } @array # perl guesses EXPR. wrong
+ my %hash = map { +"\L$_" => 1  } @array # perl guesses BLOCK. right
+ my %hash = map {; "\L$_" => 1  } @array # this also works
+ my %hash = map { ("\L$_" => 1) } @array # as does this
+ my %hash = map {  lc($_) => 1  } @array # and this.
+ my %hash = map +( lc($_) => 1 ), @array # this is EXPR and works!
+
+ my %hash = map  ( lc($_), 1 ),   @array # evaluates to (1, @array)
+
+or to force an anon hash constructor use C<+{>:
+
+    my @hashes = map +{ lc($_) => 1 }, @array # EXPR, so needs
+                                              # comma at end
+
+to get a list of anonymous hashes each with only one entry apiece.
+
+=item mkdir FILENAME,MASK
+X<mkdir> X<md> X<directory, create>
+
+=item mkdir FILENAME
+
+=item mkdir
+
+=for Pod::Functions create a directory
+
+Creates the directory specified by FILENAME, with permissions
+specified by MASK (as modified by L<C<umask>|/umask EXPR>).  If it
+succeeds it returns true; otherwise it returns false and sets
+L<C<$!>|perlvar/$!> (errno).
+MASK defaults to 0777 if omitted, and FILENAME defaults
+to L<C<$_>|perlvar/$_> if omitted.
+
+In general, it is better to create directories with a permissive MASK
+and let the user modify that with their L<C<umask>|/umask EXPR> than it
+is to supply
+a restrictive MASK and give the user no way to be more permissive.
+The exceptions to this rule are when the file or directory should be
+kept private (mail files, for instance).  The documentation for
+L<C<umask>|/umask EXPR> discusses the choice of MASK in more detail.
+
+Note that according to the POSIX 1003.1-1996 the FILENAME may have any
+number of trailing slashes.  Some operating and filesystems do not get
+this right, so Perl automatically removes all trailing slashes to keep
+everyone happy.
+
+To recursively create a directory structure, look at
+the L<C<make_path>|File::Path/make_path( $dir1, $dir2, .... )> function
+of the L<File::Path> module.
+
+=item msgctl ID,CMD,ARG
+X<msgctl>
+
+=for Pod::Functions SysV IPC message control operations
+
+Calls the System V IPC function L<msgctl(2)>.  You'll probably have to say
+
+    use IPC::SysV;
+
+first to get the correct constant definitions.  If CMD is C<IPC_STAT>,
+then ARG must be a variable that will hold the returned C<msqid_ds>
+structure.  Returns like L<C<ioctl>|/ioctl FILEHANDLE,FUNCTION,SCALAR>:
+the undefined value for error, C<"0 but true"> for zero, or the actual
+return value otherwise.  See also L<perlipc/"SysV IPC"> and the
+documentation for L<C<IPC::SysV>|IPC::SysV> and
+L<C<IPC::Semaphore>|IPC::Semaphore>.
+
+Portability issues: L<perlport/msgctl>.
+
+=item msgget KEY,FLAGS
+X<msgget>
+
+=for Pod::Functions get SysV IPC message queue
+
+Calls the System V IPC function L<msgget(2)>.  Returns the message queue
+id, or L<C<undef>|/undef EXPR> on error.  See also L<perlipc/"SysV IPC">
+and the documentation for L<C<IPC::SysV>|IPC::SysV> and
+L<C<IPC::Msg>|IPC::Msg>.
+
+Portability issues: L<perlport/msgget>.
+
+=item msgrcv ID,VAR,SIZE,TYPE,FLAGS
+X<msgrcv>
+
+=for Pod::Functions receive a SysV IPC message from a message queue
+
+Calls the System V IPC function msgrcv to receive a message from
+message queue ID into variable VAR with a maximum message size of
+SIZE.  Note that when a message is received, the message type as a
+native long integer will be the first thing in VAR, followed by the
+actual message.  This packing may be opened with C<unpack("l! a*")>.
+Taints the variable.  Returns true if successful, false
+on error.  See also L<perlipc/"SysV IPC"> and the documentation for
+L<C<IPC::SysV>|IPC::SysV> and L<C<IPC::Msg>|IPC::Msg>.
+
+Portability issues: L<perlport/msgrcv>.
+
+=item msgsnd ID,MSG,FLAGS
+X<msgsnd>
+
+=for Pod::Functions send a SysV IPC message to a message queue
+
+Calls the System V IPC function msgsnd to send the message MSG to the
+message queue ID.  MSG must begin with the native long integer message
+type, be followed by the length of the actual message, and then finally
+the message itself.  This kind of packing can be achieved with
+C<pack("l! a*", $type, $message)>.  Returns true if successful,
+false on error.  See also L<perlipc/"SysV IPC"> and the documentation
+for L<C<IPC::SysV>|IPC::SysV> and L<C<IPC::Msg>|IPC::Msg>.
+
+Portability issues: L<perlport/msgsnd>.
+
+=item my VARLIST
+X<my>
+
+=item my TYPE VARLIST
+
+=item my VARLIST : ATTRS
+
+=item my TYPE VARLIST : ATTRS
+
+=for Pod::Functions declare and assign a local variable (lexical scoping)
+
+A L<C<my>|/my VARLIST> declares the listed variables to be local
+(lexically) to the enclosing block, file, or L<C<eval>|/eval EXPR>.  If
+more than one variable is listed, the list must be placed in
+parentheses.
+
+The exact semantics and interface of TYPE and ATTRS are still
+evolving.  TYPE may be a bareword, a constant declared
+with L<C<use constant>|constant>, or L<C<__PACKAGE__>|/__PACKAGE__>.  It
+is
+currently bound to the use of the L<fields> pragma,
+and attributes are handled using the L<attributes> pragma, or starting
+from Perl 5.8.0 also via the L<Attribute::Handlers> module.  See
+L<perlsub/"Private Variables via my()"> for details.
+
+Note that with a parenthesised list, L<C<undef>|/undef EXPR> can be used
+as a dummy placeholder, for example to skip assignment of initial
+values:
+
+    my ( undef, $min, $hour ) = localtime;
+
+=item next LABEL
+X<next> X<continue>
+
+=item next EXPR
+
+=item next
+
+=for Pod::Functions iterate a block prematurely
+
+The L<C<next>|/next LABEL> command is like the C<continue> statement in
+C; it starts the next iteration of the loop:
+
+    LINE: while (<STDIN>) {
+        next LINE if /^#/;  # discard comments
+        #...
+    }
+
+Note that if there were a L<C<continue>|/continue BLOCK> block on the
+above, it would get
+executed even on discarded lines.  If LABEL is omitted, the command
+refers to the innermost enclosing loop.  The C<next EXPR> form, available
+as of Perl 5.18.0, allows a label name to be computed at run time, being
+otherwise identical to C<next LABEL>.
+
+L<C<next>|/next LABEL> cannot be used to exit a block which returns a
+value such as C<eval {}>, C<sub {}>, or C<do {}>, and should not be used
+to exit a L<C<grep>|/grep BLOCK LIST> or L<C<map>|/map BLOCK LIST>
+operation.
+
+Note that a block by itself is semantically identical to a loop
+that executes once.  Thus L<C<next>|/next LABEL> will exit such a block
+early.
+
+See also L<C<continue>|/continue BLOCK> for an illustration of how
+L<C<last>|/last LABEL>, L<C<next>|/next LABEL>, and
+L<C<redo>|/redo LABEL> work.
+
+Unlike most named operators, this has the same precedence as assignment.
+It is also exempt from the looks-like-a-function rule, so
+C<next ("foo")."bar"> will cause "bar" to be part of the argument to
+L<C<next>|/next LABEL>.
+
+=item no MODULE VERSION LIST
+X<no declarations>
+X<unimporting>
+
+=item no MODULE VERSION
+
+=item no MODULE LIST
+
+=item no MODULE
+
+=item no VERSION
+
+=for Pod::Functions unimport some module symbols or semantics at compile time
+
+See the L<C<use>|/use Module VERSION LIST> function, of which
+L<C<no>|/no MODULE VERSION LIST> is the opposite.
+
+=item oct EXPR
+X<oct> X<octal> X<hex> X<hexadecimal> X<binary> X<bin>
+
+=item oct
+
+=for Pod::Functions convert a string to an octal number
+
+Interprets EXPR as an octal string and returns the corresponding
+value.  (If EXPR happens to start off with C<0x>, interprets it as a
+hex string.  If EXPR starts off with C<0b>, it is interpreted as a
+binary string.  Leading whitespace is ignored in all three cases.)
+The following will handle decimal, binary, octal, and hex in standard
+Perl notation:
+
+    $val = oct($val) if $val =~ /^0/;
+
+If EXPR is omitted, uses L<C<$_>|perlvar/$_>.   To go the other way
+(produce a number in octal), use L<C<sprintf>|/sprintf FORMAT, LIST> or
+L<C<printf>|/printf FILEHANDLE FORMAT, LIST>:
+
+    my $dec_perms = (stat("filename"))[2] & 07777;
+    my $oct_perm_str = sprintf "%o", $perms;
+
+The L<C<oct>|/oct EXPR> function is commonly used when a string such as
+C<644> needs
+to be converted into a file mode, for example.  Although Perl
+automatically converts strings into numbers as needed, this automatic
+conversion assumes base 10.
+
+Leading white space is ignored without warning, as too are any trailing
+non-digits, such as a decimal point (L<C<oct>|/oct EXPR> only handles
+non-negative integers, not negative integers or floating point).
+
+=item open FILEHANDLE,EXPR
+X<open> X<pipe> X<file, open> X<fopen>
+
+=item open FILEHANDLE,MODE,EXPR
+
+=item open FILEHANDLE,MODE,EXPR,LIST
+
+=item open FILEHANDLE,MODE,REFERENCE
+
+=item open FILEHANDLE
+
+=for Pod::Functions open a file, pipe, or descriptor
+
+Opens the file whose filename is given by EXPR, and associates it with
+FILEHANDLE.
+
+Simple examples to open a file for reading:
+
+    open(my $fh, "<", "input.txt")
+	or die "Can't open < input.txt: $!";
+
+and for writing:
+
+    open(my $fh, ">", "output.txt")
+	or die "Can't open > output.txt: $!";
+
+(The following is a comprehensive reference to
+L<C<open>|/open FILEHANDLE,EXPR>: for a gentler introduction you may
+consider L<perlopentut>.)
+
+If FILEHANDLE is an undefined scalar variable (or array or hash element), a
+new filehandle is autovivified, meaning that the variable is assigned a
+reference to a newly allocated anonymous filehandle.  Otherwise if
+FILEHANDLE is an expression, its value is the real filehandle.  (This is
+considered a symbolic reference, so C<use strict "refs"> should I<not> be
+in effect.)
+
+If three (or more) arguments are specified, the open mode (including
+optional encoding) in the second argument are distinct from the filename in
+the third.  If MODE is C<< < >> or nothing, the file is opened for input.
+If MODE is C<< > >>, the file is opened for output, with existing files
+first being truncated ("clobbered") and nonexisting files newly created.
+If MODE is C<<< >> >>>, the file is opened for appending, again being
+created if necessary.
+
+You can put a C<+> in front of the C<< > >> or C<< < >> to
+indicate that you want both read and write access to the file; thus
+C<< +< >> is almost always preferred for read/write updates--the
+C<< +> >> mode would clobber the file first.  You can't usually use
+either read-write mode for updating textfiles, since they have
+variable-length records.  See the B<-i> switch in L<perlrun> for a
+better approach.  The file is created with permissions of C<0666>
+modified by the process's L<C<umask>|/umask EXPR> value.
+
+These various prefixes correspond to the L<fopen(3)> modes of C<r>,
+C<r+>, C<w>, C<w+>, C<a>, and C<a+>.
+
+In the one- and two-argument forms of the call, the mode and filename
+should be concatenated (in that order), preferably separated by white
+space.  You can--but shouldn't--omit the mode in these forms when that mode
+is C<< < >>.  It is safe to use the two-argument form of
+L<C<open>|/open FILEHANDLE,EXPR> if the filename argument is a known literal.
+
+For three or more arguments if MODE is C<|->, the filename is
+interpreted as a command to which output is to be piped, and if MODE
+is C<-|>, the filename is interpreted as a command that pipes
+output to us.  In the two-argument (and one-argument) form, one should
+replace dash (C<->) with the command.
+See L<perlipc/"Using open() for IPC"> for more examples of this.
+(You are not allowed to L<C<open>|/open FILEHANDLE,EXPR> to a command
+that pipes both in I<and> out, but see L<IPC::Open2>, L<IPC::Open3>, and
+L<perlipc/"Bidirectional Communication with Another Process"> for
+alternatives.)
+
+In the form of pipe opens taking three or more arguments, if LIST is specified
+(extra arguments after the command name) then LIST becomes arguments
+to the command invoked if the platform supports it.  The meaning of
+L<C<open>|/open FILEHANDLE,EXPR> with more than three arguments for
+non-pipe modes is not yet defined, but experimental "layers" may give
+extra LIST arguments meaning.
+
+In the two-argument (and one-argument) form, opening C<< <- >>
+or C<-> opens STDIN and opening C<< >- >> opens STDOUT.
+
+You may (and usually should) use the three-argument form of open to specify
+I/O layers (sometimes referred to as "disciplines") to apply to the handle
+that affect how the input and output are processed (see L<open> and
+L<PerlIO> for more details).  For example:
+
+  open(my $fh, "<:encoding(UTF-8)", $filename)
+    || die "Can't open UTF-8 encoded $filename: $!";
+
+opens the UTF8-encoded file containing Unicode characters;
+see L<perluniintro>.  Note that if layers are specified in the
+three-argument form, then default layers stored in ${^OPEN} (see L<perlvar>;
+usually set by the L<open> pragma or the switch C<-CioD>) are ignored.
+Those layers will also be ignored if you specifying a colon with no name
+following it.  In that case the default layer for the operating system
+(:raw on Unix, :crlf on Windows) is used.
+
+Open returns nonzero on success, the undefined value otherwise.  If
+the L<C<open>|/open FILEHANDLE,EXPR> involved a pipe, the return value
+happens to be the pid of the subprocess.
+
+On some systems (in general, DOS- and Windows-based systems)
+L<C<binmode>|/binmode FILEHANDLE, LAYER> is necessary when you're not
+working with a text file.  For the sake of portability it is a good idea
+always to use it when appropriate, and never to use it when it isn't
+appropriate.  Also, people can set their I/O to be by default
+UTF8-encoded Unicode, not bytes.
+
+When opening a file, it's seldom a good idea to continue
+if the request failed, so L<C<open>|/open FILEHANDLE,EXPR> is frequently
+used with L<C<die>|/die LIST>.  Even if L<C<die>|/die LIST> won't do
+what you want (say, in a CGI script,
+where you want to format a suitable error message (but there are
+modules that can help with that problem)) always check
+the return value from opening a file.
+
+The filehandle will be closed when its reference count reaches zero.
+If it is a lexically scoped variable declared with L<C<my>|/my VARLIST>,
+that usually
+means the end of the enclosing scope.  However, this automatic close
+does not check for errors, so it is better to explicitly close
+filehandles, especially those used for writing:
+
+    close($handle)
+       || warn "close failed: $!";
+
+An older style is to use a bareword as the filehandle, as
+
+    open(FH, "<", "input.txt")
+       or die "Can't open < input.txt: $!";
+
+Then you can use C<FH> as the filehandle, in C<< close FH >> and C<<
+<FH> >> and so on.  Note that it's a global variable, so this form is
+not recommended in new code.
+
+As a shortcut a one-argument call takes the filename from the global
+scalar variable of the same name as the filehandle:
+
+    $ARTICLE = 100;
+    open(ARTICLE) or die "Can't find article $ARTICLE: $!\n";
+
+Here C<$ARTICLE> must be a global (package) scalar variable - not one
+declared with L<C<my>|/my VARLIST> or L<C<state>|/state VARLIST>.
+
+As a special case the three-argument form with a read/write mode and the third
+argument being L<C<undef>|/undef EXPR>:
+
+    open(my $tmp, "+>", undef) or die ...
+
+opens a filehandle to an anonymous temporary file.  Also using C<< +< >>
+works for symmetry, but you really should consider writing something
+to the temporary file first.  You will need to
+L<C<seek>|/seek FILEHANDLE,POSITION,WHENCE> to do the reading.
+
+Perl is built using PerlIO by default.  Unless you've
+changed this (such as building Perl with C<Configure -Uuseperlio>), you can
+open filehandles directly to Perl scalars via:
+
+    open(my $fh, ">", \$variable) || ..
+
+To (re)open C<STDOUT> or C<STDERR> as an in-memory file, close it first:
+
+    close STDOUT;
+    open(STDOUT, ">", \$variable)
+	or die "Can't open STDOUT: $!";
+
+See L<perliol> for detailed info on PerlIO.
+
+General examples:
+
+ open(my $log, ">>", "/usr/spool/news/twitlog");
+ # if the open fails, output is discarded
+
+ open(my $dbase, "+<", "dbase.mine")      # open for update
+     or die "Can't open 'dbase.mine' for update: $!";
+
+ open(my $dbase, "+<dbase.mine")          # ditto
+     or die "Can't open 'dbase.mine' for update: $!";
+
+ open(my $article_fh, "-|", "caesar <$article")  # decrypt
+                                                 # article
+     or die "Can't start caesar: $!";
+
+ open(my $article_fh, "caesar <$article |")      # ditto
+     or die "Can't start caesar: $!";
+
+ open(my $out_fh, "|-", "sort >Tmp$$")    # $$ is our process id
+     or die "Can't start sort: $!";
+
+ # in-memory files
+ open(my $memory, ">", \$var)
+     or die "Can't open memory file: $!";
+ print $memory "foo!\n";              # output will appear in $var
+
+You may also, in the Bourne shell tradition, specify an EXPR beginning
+with C<< >& >>, in which case the rest of the string is interpreted
+as the name of a filehandle (or file descriptor, if numeric) to be
+duped (as in L<dup(2)>) and opened.  You may use C<&> after C<< > >>,
+C<<< >> >>>, C<< < >>, C<< +> >>, C<<< +>> >>>, and C<< +< >>.
+The mode you specify should match the mode of the original filehandle.
+(Duping a filehandle does not take into account any existing contents
+of IO buffers.)  If you use the three-argument
+form, then you can pass either a
+number, the name of a filehandle, or the normal "reference to a glob".
+
+Here is a script that saves, redirects, and restores C<STDOUT> and
+C<STDERR> using various methods:
+
+    #!/usr/bin/perl
+    open(my $oldout, ">&STDOUT")     or die "Can't dup STDOUT: $!";
+    open(OLDERR,     ">&", \*STDERR) or die "Can't dup STDERR: $!";
+
+    open(STDOUT, '>', "foo.out") or die "Can't redirect STDOUT: $!";
+    open(STDERR, ">&STDOUT")     or die "Can't dup STDOUT: $!";
+
+    select STDERR; $| = 1;  # make unbuffered
+    select STDOUT; $| = 1;  # make unbuffered
+
+    print STDOUT "stdout 1\n";  # this works for
+    print STDERR "stderr 1\n";  # subprocesses too
+
+    open(STDOUT, ">&", $oldout) or die "Can't dup \$oldout: $!";
+    open(STDERR, ">&OLDERR")    or die "Can't dup OLDERR: $!";
+
+    print STDOUT "stdout 2\n";
+    print STDERR "stderr 2\n";
+
+If you specify C<< '<&=X' >>, where C<X> is a file descriptor number
+or a filehandle, then Perl will do an equivalent of C's L<fdopen(3)> of
+that file descriptor (and not call L<dup(2)>); this is more
+parsimonious of file descriptors.  For example:
+
+    # open for input, reusing the fileno of $fd
+    open(my $fh, "<&=", $fd)
+
+or
+
+    open(my $fh, "<&=$fd")
+
+or
+
+    # open for append, using the fileno of $oldfh
+    open(my $fh, ">>&=", $oldfh)
+
+Being parsimonious on filehandles is also useful (besides being
+parsimonious) for example when something is dependent on file
+descriptors, like for example locking using
+L<C<flock>|/flock FILEHANDLE,OPERATION>.  If you do just
+C<< open(my $A, ">>&", $B) >>, the filehandle C<$A> will not have the
+same file descriptor as C<$B>, and therefore C<flock($A)> will not
+C<flock($B)> nor vice versa.  But with C<< open(my $A, ">>&=", $B) >>,
+the filehandles will share the same underlying system file descriptor.
+
+Note that under Perls older than 5.8.0, Perl uses the standard C library's'
+L<fdopen(3)> to implement the C<=> functionality.  On many Unix systems,
+L<fdopen(3)> fails when file descriptors exceed a certain value, typically 255.
+For Perls 5.8.0 and later, PerlIO is (most often) the default.
+
+You can see whether your Perl was built with PerlIO by running
+C<perl -V:useperlio>.  If it says C<'define'>, you have PerlIO;
+otherwise you don't.
+
+If you open a pipe on the command C<-> (that is, specify either C<|-> or C<-|>
+with the one- or two-argument forms of
+L<C<open>|/open FILEHANDLE,EXPR>), an implicit L<C<fork>|/fork> is done,
+so L<C<open>|/open FILEHANDLE,EXPR> returns twice: in the parent process
+it returns the pid
+of the child process, and in the child process it returns (a defined) C<0>.
+Use C<defined($pid)> or C<//> to determine whether the open was successful.
+
+For example, use either
+
+   my $child_pid = open(my $from_kid, "-|") // die "Can't fork: $!";
+
+or
+
+   my $child_pid = open(my $to_kid,   "|-") // die "Can't fork: $!";
+
+followed by
+
+    if ($child_pid) {
+	# am the parent:
+	# either write $to_kid or else read $from_kid
+	...
+       waitpid $child_pid, 0;
+    } else {
+	# am the child; use STDIN/STDOUT normally
+	...
+	exit;
+    }
+
+The filehandle behaves normally for the parent, but I/O to that
+filehandle is piped from/to the STDOUT/STDIN of the child process.
+In the child process, the filehandle isn't opened--I/O happens from/to
+the new STDOUT/STDIN.  Typically this is used like the normal
+piped open when you want to exercise more control over just how the
+pipe command gets executed, such as when running setuid and
+you don't want to have to scan shell commands for metacharacters.
+
+The following blocks are more or less equivalent:
+
+    open(my $fh, "|tr '[a-z]' '[A-Z]'");
+    open(my $fh, "|-", "tr '[a-z]' '[A-Z]'");
+    open(my $fh, "|-") || exec 'tr', '[a-z]', '[A-Z]';
+    open(my $fh, "|-", "tr", '[a-z]', '[A-Z]');
+
+    open(my $fh, "cat -n '$file'|");
+    open(my $fh, "-|", "cat -n '$file'");
+    open(my $fh, "-|") || exec "cat", "-n", $file;
+    open(my $fh, "-|", "cat", "-n", $file);
+
+The last two examples in each block show the pipe as "list form", which is
+not yet supported on all platforms.  A good rule of thumb is that if
+your platform has a real L<C<fork>|/fork> (in other words, if your platform is
+Unix, including Linux and MacOS X), you can use the list form.  You would
+want to use the list form of the pipe so you can pass literal arguments
+to the command without risk of the shell interpreting any shell metacharacters
+in them.  However, this also bars you from opening pipes to commands
+that intentionally contain shell metacharacters, such as:
+
+    open(my $fh, "|cat -n | expand -4 | lpr")
+	|| die "Can't open pipeline to lpr: $!";
+
+See L<perlipc/"Safe Pipe Opens"> for more examples of this.
+
+Perl will attempt to flush all files opened for
+output before any operation that may do a fork, but this may not be
+supported on some platforms (see L<perlport>).  To be safe, you may need
+to set L<C<$E<verbar>>|perlvar/$E<verbar>> (C<$AUTOFLUSH> in L<English>)
+or call the C<autoflush> method of L<C<IO::Handle>|IO::Handle/METHODS>
+on any open handles.
+
+On systems that support a close-on-exec flag on files, the flag will
+be set for the newly opened file descriptor as determined by the value
+of L<C<$^F>|perlvar/$^F>.  See L<perlvar/$^F>.
+
+Closing any piped filehandle causes the parent process to wait for the
+child to finish, then returns the status value in L<C<$?>|perlvar/$?> and
+L<C<${^CHILD_ERROR_NATIVE}>|perlvar/${^CHILD_ERROR_NATIVE}>.
+
+The filename passed to the one- and two-argument forms of
+L<C<open>|/open FILEHANDLE,EXPR> will
+have leading and trailing whitespace deleted and normal
+redirection characters honored.  This property, known as "magic open",
+can often be used to good effect.  A user could specify a filename of
+F<"rsh cat file |">, or you could change certain filenames as needed:
+
+    $filename =~ s/(.*\.gz)\s*$/gzip -dc < $1|/;
+    open(my $fh, $filename) or die "Can't open $filename: $!";
+
+Use the three-argument form to open a file with arbitrary weird characters in it,
+
+    open(my $fh, "<", $file)
+	|| die "Can't open $file: $!";
+
+otherwise it's necessary to protect any leading and trailing whitespace:
+
+    $file =~ s#^(\s)#./$1#;
+    open(my $fh, "< $file\0")
+	|| die "Can't open $file: $!";
+
+(this may not work on some bizarre filesystems).  One should
+conscientiously choose between the I<magic> and I<three-argument> form
+of L<C<open>|/open FILEHANDLE,EXPR>:
+
+    open(my $in, $ARGV[0]) || die "Can't open $ARGV[0]: $!";
+
+will allow the user to specify an argument of the form C<"rsh cat file |">,
+but will not work on a filename that happens to have a trailing space, while
+
+    open(my $in, "<", $ARGV[0])
+	|| die "Can't open $ARGV[0]: $!";
+
+will have exactly the opposite restrictions. (However, some shells
+support the syntax C<< perl your_program.pl <( rsh cat file ) >>, which
+produces a filename that can be opened normally.)
+
+If you want a "real" C L<open(2)>, then you should use the
+L<C<sysopen>|/sysopen FILEHANDLE,FILENAME,MODE> function, which involves
+no such magic (but uses different filemodes than Perl
+L<C<open>|/open FILEHANDLE,EXPR>, which corresponds to C L<fopen(3)>).
+This is another way to protect your filenames from interpretation.  For
+example:
+
+    use IO::Handle;
+    sysopen(my $fh, $path, O_RDWR|O_CREAT|O_EXCL)
+        or die "Can't open $path: $!";
+    $fh->autoflush(1);
+    print $fh "stuff $$\n";
+    seek($fh, 0, 0);
+    print "File contains: ", readline($fh);
+
+See L<C<seek>|/seek FILEHANDLE,POSITION,WHENCE> for some details about
+mixing reading and writing.
+
+Portability issues: L<perlport/open>.
+
+=item opendir DIRHANDLE,EXPR
+X<opendir>
+
+=for Pod::Functions open a directory
+
+Opens a directory named EXPR for processing by
+L<C<readdir>|/readdir DIRHANDLE>, L<C<telldir>|/telldir DIRHANDLE>,
+L<C<seekdir>|/seekdir DIRHANDLE,POS>,
+L<C<rewinddir>|/rewinddir DIRHANDLE>, and
+L<C<closedir>|/closedir DIRHANDLE>.  Returns true if successful.
+DIRHANDLE may be an expression whose value can be used as an indirect
+dirhandle, usually the real dirhandle name.  If DIRHANDLE is an undefined
+scalar variable (or array or hash element), the variable is assigned a
+reference to a new anonymous dirhandle; that is, it's autovivified.
+DIRHANDLEs have their own namespace separate from FILEHANDLEs.
+
+See the example at L<C<readdir>|/readdir DIRHANDLE>.
+
+=item ord EXPR
+X<ord> X<encoding>
+
+=item ord
+
+=for Pod::Functions find a character's numeric representation
+
+Returns the numeric value of the first character of EXPR.
+If EXPR is an empty string, returns 0.  If EXPR is omitted, uses
+L<C<$_>|perlvar/$_>.
+(Note I<character>, not byte.)
+
+For the reverse, see L<C<chr>|/chr NUMBER>.
+See L<perlunicode> for more about Unicode.
+
+=item our VARLIST
+X<our> X<global>
+
+=item our TYPE VARLIST
+
+=item our VARLIST : ATTRS
+
+=item our TYPE VARLIST : ATTRS
+
+=for Pod::Functions +5.6.0 declare and assign a package variable (lexical scoping)
+
+L<C<our>|/our VARLIST> makes a lexical alias to a package (i.e. global)
+variable of the same name in the current package for use within the
+current lexical scope.
+
+L<C<our>|/our VARLIST> has the same scoping rules as
+L<C<my>|/my VARLIST> or L<C<state>|/state VARLIST>, meaning that it is
+only valid within a lexical scope.  Unlike L<C<my>|/my VARLIST> and
+L<C<state>|/state VARLIST>, which both declare new (lexical) variables,
+L<C<our>|/our VARLIST> only creates an alias to an existing variable: a
+package variable of the same name.
+
+This means that when C<use strict 'vars'> is in effect, L<C<our>|/our
+VARLIST> lets you use a package variable without qualifying it with the
+package name, but only within the lexical scope of the
+L<C<our>|/our VARLIST> declaration.  This applies immediately--even
+within the same statement.
+
+    package Foo;
+    use strict;
+
+    $Foo::foo = 23;
+
+    {
+        our $foo;   # alias to $Foo::foo
+        print $foo; # prints 23
+    }
+
+    print $Foo::foo; # prints 23
+
+    print $foo; # ERROR: requires explicit package name
+
+This works even if the package variable has not been used before, as
+package variables spring into existence when first used.
+
+    package Foo;
+    use strict;
+
+    our $foo = 23;   # just like $Foo::foo = 23
+
+    print $Foo::foo; # prints 23
+
+Because the variable becomes legal immediately under C<use strict 'vars'>, so
+long as there is no variable with that name is already in scope, you can then
+reference the package variable again even within the same statement.
+
+    package Foo;
+    use strict;
+
+    my  $foo = $foo; # error, undeclared $foo on right-hand side
+    our $foo = $foo; # no errors
+
+If more than one variable is listed, the list must be placed
+in parentheses.
+
+    our($bar, $baz);
+
+An L<C<our>|/our VARLIST> declaration declares an alias for a package
+variable that will be visible
+across its entire lexical scope, even across package boundaries.  The
+package in which the variable is entered is determined at the point
+of the declaration, not at the point of use.  This means the following
+behavior holds:
+
+    package Foo;
+    our $bar;      # declares $Foo::bar for rest of lexical scope
+    $bar = 20;
+
+    package Bar;
+    print $bar;    # prints 20, as it refers to $Foo::bar
+
+Multiple L<C<our>|/our VARLIST> declarations with the same name in the
+same lexical
+scope are allowed if they are in different packages.  If they happen
+to be in the same package, Perl will emit warnings if you have asked
+for them, just like multiple L<C<my>|/my VARLIST> declarations.  Unlike
+a second L<C<my>|/my VARLIST> declaration, which will bind the name to a
+fresh variable, a second L<C<our>|/our VARLIST> declaration in the same
+package, in the same scope, is merely redundant.
+
+    use warnings;
+    package Foo;
+    our $bar;      # declares $Foo::bar for rest of lexical scope
+    $bar = 20;
+
+    package Bar;
+    our $bar = 30; # declares $Bar::bar for rest of lexical scope
+    print $bar;    # prints 30
+
+    our $bar;      # emits warning but has no other effect
+    print $bar;    # still prints 30
+
+An L<C<our>|/our VARLIST> declaration may also have a list of attributes
+associated with it.
+
+The exact semantics and interface of TYPE and ATTRS are still
+evolving.  TYPE is currently bound to the use of the L<fields> pragma,
+and attributes are handled using the L<attributes> pragma, or, starting
+from Perl 5.8.0, also via the L<Attribute::Handlers> module.  See
+L<perlsub/"Private Variables via my()"> for details.
+
+Note that with a parenthesised list, L<C<undef>|/undef EXPR> can be used
+as a dummy placeholder, for example to skip assignment of initial
+values:
+
+    our ( undef, $min, $hour ) = localtime;
+
+L<C<our>|/our VARLIST> differs from L<C<use vars>|vars>, which allows
+use of an unqualified name I<only> within the affected package, but
+across scopes.
+
+=item pack TEMPLATE,LIST
+X<pack>
+
+=for Pod::Functions convert a list into a binary representation
+
+Takes a LIST of values and converts it into a string using the rules
+given by the TEMPLATE.  The resulting string is the concatenation of
+the converted values.  Typically, each converted value looks
+like its machine-level representation.  For example, on 32-bit machines
+an integer may be represented by a sequence of 4 bytes, which  will in
+Perl be presented as a string that's 4 characters long.
+
+See L<perlpacktut> for an introduction to this function.
+
+The TEMPLATE is a sequence of characters that give the order and type
+of values, as follows:
+
+    a  A string with arbitrary binary data, will be null padded.
+    A  A text (ASCII) string, will be space padded.
+    Z  A null-terminated (ASCIZ) string, will be null padded.
+
+    b  A bit string (ascending bit order inside each byte,
+       like vec()).
+    B  A bit string (descending bit order inside each byte).
+    h  A hex string (low nybble first).
+    H  A hex string (high nybble first).
+
+    c  A signed char (8-bit) value.
+    C  An unsigned char (octet) value.
+    W  An unsigned char value (can be greater than 255).
+
+    s  A signed short (16-bit) value.
+    S  An unsigned short value.
+
+    l  A signed long (32-bit) value.
+    L  An unsigned long value.
+
+    q  A signed quad (64-bit) value.
+    Q  An unsigned quad value.
+         (Quads are available only if your system supports 64-bit
+          integer values _and_ if Perl has been compiled to support
+          those.  Raises an exception otherwise.)
+
+    i  A signed integer value.
+    I  A unsigned integer value.
+         (This 'integer' is _at_least_ 32 bits wide.  Its exact
+          size depends on what a local C compiler calls 'int'.)
+
+    n  An unsigned short (16-bit) in "network" (big-endian) order.
+    N  An unsigned long (32-bit) in "network" (big-endian) order.
+    v  An unsigned short (16-bit) in "VAX" (little-endian) order.
+    V  An unsigned long (32-bit) in "VAX" (little-endian) order.
+
+    j  A Perl internal signed integer value (IV).
+    J  A Perl internal unsigned integer value (UV).
+
+    f  A single-precision float in native format.
+    d  A double-precision float in native format.
+
+    F  A Perl internal floating-point value (NV) in native format
+    D  A float of long-double precision in native format.
+         (Long doubles are available only if your system supports
+          long double values _and_ if Perl has been compiled to
+          support those.  Raises an exception otherwise.
+          Note that there are different long double formats.)
+
+    p  A pointer to a null-terminated string.
+    P  A pointer to a structure (fixed-length string).
+
+    u  A uuencoded string.
+    U  A Unicode character number.  Encodes to a character in char-
+       acter mode and UTF-8 (or UTF-EBCDIC in EBCDIC platforms) in
+       byte mode.
+
+    w  A BER compressed integer (not an ASN.1 BER, see perlpacktut
+       for details).  Its bytes represent an unsigned integer in
+       base 128, most significant digit first, with as few digits
+       as possible.  Bit eight (the high bit) is set on each byte
+       except the last.
+
+    x  A null byte (a.k.a ASCII NUL, "\000", chr(0))
+    X  Back up a byte.
+    @  Null-fill or truncate to absolute position, counted from the
+       start of the innermost ()-group.
+    .  Null-fill or truncate to absolute position specified by
+       the value.
+    (  Start of a ()-group.
+
+One or more modifiers below may optionally follow certain letters in the
+TEMPLATE (the second column lists letters for which the modifier is valid):
+
+    !   sSlLiI     Forces native (short, long, int) sizes instead
+                   of fixed (16-/32-bit) sizes.
+
+    !   xX         Make x and X act as alignment commands.
+
+    !   nNvV       Treat integers as signed instead of unsigned.
+
+    !   @.         Specify position as byte offset in the internal
+                   representation of the packed string.  Efficient
+                   but dangerous.
+
+    >   sSiIlLqQ   Force big-endian byte-order on the type.
+        jJfFdDpP   (The "big end" touches the construct.)
+
+    <   sSiIlLqQ   Force little-endian byte-order on the type.
+        jJfFdDpP   (The "little end" touches the construct.)
+
+The C<< > >> and C<< < >> modifiers can also be used on C<()> groups
+to force a particular byte-order on all components in that group,
+including all its subgroups.
+
+=begin comment
+
+Larry recalls that the hex and bit string formats (H, h, B, b) were added to
+pack for processing data from NASA's Magellan probe.  Magellan was in an
+elliptical orbit, using the antenna for the radar mapping when close to
+Venus and for communicating data back to Earth for the rest of the orbit.
+There were two transmission units, but one of these failed, and then the
+other developed a fault whereby it would randomly flip the sense of all the
+bits. It was easy to automatically detect complete records with the correct
+sense, and complete records with all the bits flipped. However, this didn't
+recover the records where the sense flipped midway. A colleague of Larry's
+was able to pretty much eyeball where the records flipped, so they wrote an
+editor named kybble (a pun on the dog food Kibbles 'n Bits) to enable him to
+manually correct the records and recover the data. For this purpose pack
+gained the hex and bit string format specifiers.
+
+git shows that they were added to perl 3.0 in patch #44 (Jan 1991, commit
+27e2fb84680b9cc1), but the patch description makes no mention of their
+addition, let alone the story behind them.
+
+=end comment
+
+The following rules apply:
+
+=over
+
+=item *
+
+Each letter may optionally be followed by a number indicating the repeat
+count.  A numeric repeat count may optionally be enclosed in brackets, as
+in C<pack("C[80]", @arr)>.  The repeat count gobbles that many values from
+the LIST when used with all format types other than C<a>, C<A>, C<Z>, C<b>,
+C<B>, C<h>, C<H>, C<@>, C<.>, C<x>, C<X>, and C<P>, where it means
+something else, described below.  Supplying a C<*> for the repeat count
+instead of a number means to use however many items are left, except for:
+
+=over
+
+=item *
+
+C<@>, C<x>, and C<X>, where it is equivalent to C<0>.
+
+=item *
+
+<.>, where it means relative to the start of the string.
+
+=item *
+
+C<u>, where it is equivalent to 1 (or 45, which here is equivalent).
+
+=back
+
+One can replace a numeric repeat count with a template letter enclosed in
+brackets to use the packed byte length of the bracketed template for the
+repeat count.
+
+For example, the template C<x[L]> skips as many bytes as in a packed long,
+and the template C<"$t X[$t] $t"> unpacks twice whatever $t (when
+variable-expanded) unpacks.  If the template in brackets contains alignment
+commands (such as C<x![d]>), its packed length is calculated as if the
+start of the template had the maximal possible alignment.
+
+When used with C<Z>, a C<*> as the repeat count is guaranteed to add a
+trailing null byte, so the resulting string is always one byte longer than
+the byte length of the item itself.
+
+When used with C<@>, the repeat count represents an offset from the start
+of the innermost C<()> group.
+
+When used with C<.>, the repeat count determines the starting position to
+calculate the value offset as follows:
+
+=over
+
+=item *
+
+If the repeat count is C<0>, it's relative to the current position.
+
+=item *
+
+If the repeat count is C<*>, the offset is relative to the start of the
+packed string.
+
+=item *
+
+And if it's an integer I<n>, the offset is relative to the start of the
+I<n>th innermost C<( )> group, or to the start of the string if I<n> is
+bigger then the group level.
+
+=back
+
+The repeat count for C<u> is interpreted as the maximal number of bytes
+to encode per line of output, with 0, 1 and 2 replaced by 45.  The repeat
+count should not be more than 65.
+
+=item *
+
+The C<a>, C<A>, and C<Z> types gobble just one value, but pack it as a
+string of length count, padding with nulls or spaces as needed.  When
+unpacking, C<A> strips trailing whitespace and nulls, C<Z> strips everything
+after the first null, and C<a> returns data with no stripping at all.
+
+If the value to pack is too long, the result is truncated.  If it's too
+long and an explicit count is provided, C<Z> packs only C<$count-1> bytes,
+followed by a null byte.  Thus C<Z> always packs a trailing null, except
+when the count is 0.
+
+=item *
+
+Likewise, the C<b> and C<B> formats pack a string that's that many bits long.
+Each such format generates 1 bit of the result.  These are typically followed
+by a repeat count like C<B8> or C<B64>.
+
+Each result bit is based on the least-significant bit of the corresponding
+input character, i.e., on C<ord($char)%2>.  In particular, characters C<"0">
+and C<"1"> generate bits 0 and 1, as do characters C<"\000"> and C<"\001">.
+
+Starting from the beginning of the input string, each 8-tuple
+of characters is converted to 1 character of output.  With format C<b>,
+the first character of the 8-tuple determines the least-significant bit of a
+character; with format C<B>, it determines the most-significant bit of
+a character.
+
+If the length of the input string is not evenly divisible by 8, the
+remainder is packed as if the input string were padded by null characters
+at the end.  Similarly during unpacking, "extra" bits are ignored.
+
+If the input string is longer than needed, remaining characters are ignored.
+
+A C<*> for the repeat count uses all characters of the input field.
+On unpacking, bits are converted to a string of C<0>s and C<1>s.
+
+=item *
+
+The C<h> and C<H> formats pack a string that many nybbles (4-bit groups,
+representable as hexadecimal digits, C<"0".."9"> C<"a".."f">) long.
+
+For each such format, L<C<pack>|/pack TEMPLATE,LIST> generates 4 bits of result.
+With non-alphabetical characters, the result is based on the 4 least-significant
+bits of the input character, i.e., on C<ord($char)%16>.  In particular,
+characters C<"0"> and C<"1"> generate nybbles 0 and 1, as do bytes
+C<"\000"> and C<"\001">.  For characters C<"a".."f"> and C<"A".."F">, the result
+is compatible with the usual hexadecimal digits, so that C<"a"> and
+C<"A"> both generate the nybble C<0xA==10>.  Use only these specific hex
+characters with this format.
+
+Starting from the beginning of the template to
+L<C<pack>|/pack TEMPLATE,LIST>, each pair
+of characters is converted to 1 character of output.  With format C<h>, the
+first character of the pair determines the least-significant nybble of the
+output character; with format C<H>, it determines the most-significant
+nybble.
+
+If the length of the input string is not even, it behaves as if padded by
+a null character at the end.  Similarly, "extra" nybbles are ignored during
+unpacking.
+
+If the input string is longer than needed, extra characters are ignored.
+
+A C<*> for the repeat count uses all characters of the input field.  For
+L<C<unpack>|/unpack TEMPLATE,EXPR>, nybbles are converted to a string of
+hexadecimal digits.
+
+=item *
+
+The C<p> format packs a pointer to a null-terminated string.  You are
+responsible for ensuring that the string is not a temporary value, as that
+could potentially get deallocated before you got around to using the packed
+result.  The C<P> format packs a pointer to a structure of the size indicated
+by the length.  A null pointer is created if the corresponding value for
+C<p> or C<P> is L<C<undef>|/undef EXPR>; similarly with
+L<C<unpack>|/unpack TEMPLATE,EXPR>, where a null pointer unpacks into
+L<C<undef>|/undef EXPR>.
+
+If your system has a strange pointer size--meaning a pointer is neither as
+big as an int nor as big as a long--it may not be possible to pack or
+unpack pointers in big- or little-endian byte order.  Attempting to do
+so raises an exception.
+
+=item *
+
+The C</> template character allows packing and unpacking of a sequence of
+items where the packed structure contains a packed item count followed by
+the packed items themselves.  This is useful when the structure you're
+unpacking has encoded the sizes or repeat counts for some of its fields
+within the structure itself as separate fields.
+
+For L<C<pack>|/pack TEMPLATE,LIST>, you write
+I<length-item>C</>I<sequence-item>, and the
+I<length-item> describes how the length value is packed.  Formats likely
+to be of most use are integer-packing ones like C<n> for Java strings,
+C<w> for ASN.1 or SNMP, and C<N> for Sun XDR.
+
+For L<C<pack>|/pack TEMPLATE,LIST>, I<sequence-item> may have a repeat
+count, in which case
+the minimum of that and the number of available items is used as the argument
+for I<length-item>.  If it has no repeat count or uses a '*', the number
+of available items is used.
+
+For L<C<unpack>|/unpack TEMPLATE,EXPR>, an internal stack of integer
+arguments unpacked so far is
+used.  You write C</>I<sequence-item> and the repeat count is obtained by
+popping off the last element from the stack.  The I<sequence-item> must not
+have a repeat count.
+
+If I<sequence-item> refers to a string type (C<"A">, C<"a">, or C<"Z">),
+the I<length-item> is the string length, not the number of strings.  With
+an explicit repeat count for pack, the packed string is adjusted to that
+length.  For example:
+
+ This code:                             gives this result:
+
+ unpack("W/a", "\004Gurusamy")          ("Guru")
+ unpack("a3/A A*", "007 Bond  J ")      (" Bond", "J")
+ unpack("a3 x2 /A A*", "007: Bond, J.") ("Bond, J", ".")
+
+ pack("n/a* w/a","hello,","world")     "\000\006hello,\005world"
+ pack("a/W2", ord("a") .. ord("z"))    "2ab"
+
+The I<length-item> is not returned explicitly from
+L<C<unpack>|/unpack TEMPLATE,EXPR>.
+
+Supplying a count to the I<length-item> format letter is only useful with
+C<A>, C<a>, or C<Z>.  Packing with a I<length-item> of C<a> or C<Z> may
+introduce C<"\000"> characters, which Perl does not regard as legal in
+numeric strings.
+
+=item *
+
+The integer types C<s>, C<S>, C<l>, and C<L> may be
+followed by a C<!> modifier to specify native shorts or
+longs.  As shown in the example above, a bare C<l> means
+exactly 32 bits, although the native C<long> as seen by the local C compiler
+may be larger.  This is mainly an issue on 64-bit platforms.  You can
+see whether using C<!> makes any difference this way:
+
+    printf "format s is %d, s! is %d\n",
+	length pack("s"), length pack("s!");
+
+    printf "format l is %d, l! is %d\n",
+	length pack("l"), length pack("l!");
+
+
+C<i!> and C<I!> are also allowed, but only for completeness' sake:
+they are identical to C<i> and C<I>.
+
+The actual sizes (in bytes) of native shorts, ints, longs, and long
+longs on the platform where Perl was built are also available from
+the command line:
+
+    $ perl -V:{short,int,long{,long}}size
+    shortsize='2';
+    intsize='4';
+    longsize='4';
+    longlongsize='8';
+
+or programmatically via the L<C<Config>|Config> module:
+
+       use Config;
+       print $Config{shortsize},    "\n";
+       print $Config{intsize},      "\n";
+       print $Config{longsize},     "\n";
+       print $Config{longlongsize}, "\n";
+
+C<$Config{longlongsize}> is undefined on systems without
+long long support.
+
+=item *
+
+The integer formats C<s>, C<S>, C<i>, C<I>, C<l>, C<L>, C<j>, and C<J> are
+inherently non-portable between processors and operating systems because
+they obey native byteorder and endianness.  For example, a 4-byte integer
+0x12345678 (305419896 decimal) would be ordered natively (arranged in and
+handled by the CPU registers) into bytes as
+
+    0x12 0x34 0x56 0x78  # big-endian
+    0x78 0x56 0x34 0x12  # little-endian
+
+Basically, Intel and VAX CPUs are little-endian, while everybody else,
+including Motorola m68k/88k, PPC, Sparc, HP PA, Power, and Cray, are
+big-endian.  Alpha and MIPS can be either: Digital/Compaq uses (well, used)
+them in little-endian mode, but SGI/Cray uses them in big-endian mode.
+
+The names I<big-endian> and I<little-endian> are comic references to the
+egg-eating habits of the little-endian Lilliputians and the big-endian
+Blefuscudians from the classic Jonathan Swift satire, I<Gulliver's Travels>.
+This entered computer lingo via the paper "On Holy Wars and a Plea for
+Peace" by Danny Cohen, USC/ISI IEN 137, April 1, 1980.
+
+Some systems may have even weirder byte orders such as
+
+   0x56 0x78 0x12 0x34
+   0x34 0x12 0x78 0x56
+
+These are called mid-endian, middle-endian, mixed-endian, or just weird.
+
+You can determine your system endianness with this incantation:
+
+   printf("%#02x ", $_) for unpack("W*", pack L=>0x12345678);
+
+The byteorder on the platform where Perl was built is also available
+via L<Config>:
+
+    use Config;
+    print "$Config{byteorder}\n";
+
+or from the command line:
+
+    $ perl -V:byteorder
+
+Byteorders C<"1234"> and C<"12345678"> are little-endian; C<"4321">
+and C<"87654321"> are big-endian.  Systems with multiarchitecture binaries
+will have C<"ffff">, signifying that static information doesn't work,
+one must use runtime probing.
+
+For portably packed integers, either use the formats C<n>, C<N>, C<v>,
+and C<V> or else use the C<< > >> and C<< < >> modifiers described
+immediately below.  See also L<perlport>.
+
+=item *
+
+Also floating point numbers have endianness.  Usually (but not always)
+this agrees with the integer endianness.  Even though most platforms
+these days use the IEEE 754 binary format, there are differences,
+especially if the long doubles are involved.  You can see the
+C<Config> variables C<doublekind> and C<longdblkind> (also C<doublesize>,
+C<longdblsize>): the "kind" values are enums, unlike C<byteorder>.
+
+Portability-wise the best option is probably to keep to the IEEE 754
+64-bit doubles, and of agreed-upon endianness.  Another possibility
+is the C<"%a">) format of L<C<printf>|/printf FILEHANDLE FORMAT, LIST>.
+
+=item *
+
+Starting with Perl 5.10.0, integer and floating-point formats, along with
+the C<p> and C<P> formats and C<()> groups, may all be followed by the
+C<< > >> or C<< < >> endianness modifiers to respectively enforce big-
+or little-endian byte-order.  These modifiers are especially useful
+given how C<n>, C<N>, C<v>, and C<V> don't cover signed integers,
+64-bit integers, or floating-point values.
+
+Here are some concerns to keep in mind when using an endianness modifier:
+
+=over
+
+=item *
+
+Exchanging signed integers between different platforms works only
+when all platforms store them in the same format.  Most platforms store
+signed integers in two's-complement notation, so usually this is not an issue.
+
+=item *
+
+The C<< > >> or C<< < >> modifiers can only be used on floating-point
+formats on big- or little-endian machines.  Otherwise, attempting to
+use them raises an exception.
+
+=item *
+
+Forcing big- or little-endian byte-order on floating-point values for
+data exchange can work only if all platforms use the same
+binary representation such as IEEE floating-point.  Even if all
+platforms are using IEEE, there may still be subtle differences.  Being able
+to use C<< > >> or C<< < >> on floating-point values can be useful,
+but also dangerous if you don't know exactly what you're doing.
+It is not a general way to portably store floating-point values.
+
+=item *
+
+When using C<< > >> or C<< < >> on a C<()> group, this affects
+all types inside the group that accept byte-order modifiers,
+including all subgroups.  It is silently ignored for all other
+types.  You are not allowed to override the byte-order within a group
+that already has a byte-order modifier suffix.
+
+=back
+
+=item *
+
+Real numbers (floats and doubles) are in native machine format only.
+Due to the multiplicity of floating-point formats and the lack of a
+standard "network" representation for them, no facility for interchange has been
+made.  This means that packed floating-point data written on one machine
+may not be readable on another, even if both use IEEE floating-point
+arithmetic (because the endianness of the memory representation is not part
+of the IEEE spec).  See also L<perlport>.
+
+If you know I<exactly> what you're doing, you can use the C<< > >> or C<< < >>
+modifiers to force big- or little-endian byte-order on floating-point values.
+
+Because Perl uses doubles (or long doubles, if configured) internally for
+all numeric calculation, converting from double into float and thence
+to double again loses precision, so C<unpack("f", pack("f", $foo)>)
+will not in general equal $foo.
+
+=item *
+
+Pack and unpack can operate in two modes: character mode (C<C0> mode) where
+the packed string is processed per character, and UTF-8 byte mode (C<U0> mode)
+where the packed string is processed in its UTF-8-encoded Unicode form on
+a byte-by-byte basis.  Character mode is the default
+unless the format string starts with C<U>.  You
+can always switch mode mid-format with an explicit
+C<C0> or C<U0> in the format.  This mode remains in effect until the next
+mode change, or until the end of the C<()> group it (directly) applies to.
+
+Using C<C0> to get Unicode characters while using C<U0> to get I<non>-Unicode
+bytes is not necessarily obvious.   Probably only the first of these
+is what you want:
+
+    $ perl -CS -E 'say "\x{3B1}\x{3C9}"' |
+      perl -CS -ne 'printf "%v04X\n", $_ for unpack("C0A*", $_)'
+    03B1.03C9
+    $ perl -CS -E 'say "\x{3B1}\x{3C9}"' |
+      perl -CS -ne 'printf "%v02X\n", $_ for unpack("U0A*", $_)'
+    CE.B1.CF.89
+    $ perl -CS -E 'say "\x{3B1}\x{3C9}"' |
+      perl -C0 -ne 'printf "%v02X\n", $_ for unpack("C0A*", $_)'
+    CE.B1.CF.89
+    $ perl -CS -E 'say "\x{3B1}\x{3C9}"' |
+      perl -C0 -ne 'printf "%v02X\n", $_ for unpack("U0A*", $_)'
+    C3.8E.C2.B1.C3.8F.C2.89
+
+Those examples also illustrate that you should not try to use
+L<C<pack>|/pack TEMPLATE,LIST>/L<C<unpack>|/unpack TEMPLATE,EXPR> as a
+substitute for the L<Encode> module.
+
+=item *
+
+You must yourself do any alignment or padding by inserting, for example,
+enough C<"x">es while packing.  There is no way for
+L<C<pack>|/pack TEMPLATE,LIST> and L<C<unpack>|/unpack TEMPLATE,EXPR>
+to know where characters are going to or coming from, so they
+handle their output and input as flat sequences of characters.
+
+=item *
+
+A C<()> group is a sub-TEMPLATE enclosed in parentheses.  A group may
+take a repeat count either as postfix, or for
+L<C<unpack>|/unpack TEMPLATE,EXPR>, also via the C</>
+template character.  Within each repetition of a group, positioning with
+C<@> starts over at 0.  Therefore, the result of
+
+    pack("@1A((@2A)@3A)", qw[X Y Z])
+
+is the string C<"\0X\0\0YZ">.
+
+=item *
+
+C<x> and C<X> accept the C<!> modifier to act as alignment commands: they
+jump forward or back to the closest position aligned at a multiple of C<count>
+characters.  For example, to L<C<pack>|/pack TEMPLATE,LIST> or
+L<C<unpack>|/unpack TEMPLATE,EXPR> a C structure like
+
+    struct {
+	char   c;    /* one signed, 8-bit character */
+	double d;
+	char   cc[2];
+    }
+
+one may need to use the template C<c x![d] d c[2]>.  This assumes that
+doubles must be aligned to the size of double.
+
+For alignment commands, a C<count> of 0 is equivalent to a C<count> of 1;
+both are no-ops.
+
+=item *
+
+C<n>, C<N>, C<v> and C<V> accept the C<!> modifier to
+represent signed 16-/32-bit integers in big-/little-endian order.
+This is portable only when all platforms sharing packed data use the
+same binary representation for signed integers; for example, when all
+platforms use two's-complement representation.
+
+=item *
+
+Comments can be embedded in a TEMPLATE using C<#> through the end of line.
+White space can separate pack codes from each other, but modifiers and
+repeat counts must follow immediately.  Breaking complex templates into
+individual line-by-line components, suitably annotated, can do as much to
+improve legibility and maintainability of pack/unpack formats as C</x> can
+for complicated pattern matches.
+
+=item *
+
+If TEMPLATE requires more arguments than L<C<pack>|/pack TEMPLATE,LIST>
+is given, L<C<pack>|/pack TEMPLATE,LIST>
+assumes additional C<""> arguments.  If TEMPLATE requires fewer arguments
+than given, extra arguments are ignored.
+
+=item *
+
+Attempting to pack the special floating point values C<Inf> and C<NaN>
+(infinity, also in negative, and not-a-number) into packed integer values
+(like C<"L">) is a fatal error.  The reason for this is that there simply
+isn't any sensible mapping for these special values into integers.
+
+=back
+
+Examples:
+
+    $foo = pack("WWWW",65,66,67,68);
+    # foo eq "ABCD"
+    $foo = pack("W4",65,66,67,68);
+    # same thing
+    $foo = pack("W4",0x24b6,0x24b7,0x24b8,0x24b9);
+    # same thing with Unicode circled letters.
+    $foo = pack("U4",0x24b6,0x24b7,0x24b8,0x24b9);
+    # same thing with Unicode circled letters.  You don't get the
+    # UTF-8 bytes because the U at the start of the format caused
+    # a switch to U0-mode, so the UTF-8 bytes get joined into
+    # characters
+    $foo = pack("C0U4",0x24b6,0x24b7,0x24b8,0x24b9);
+    # foo eq "\xe2\x92\xb6\xe2\x92\xb7\xe2\x92\xb8\xe2\x92\xb9"
+    # This is the UTF-8 encoding of the string in the
+    # previous example
+
+    $foo = pack("ccxxcc",65,66,67,68);
+    # foo eq "AB\0\0CD"
+
+    # NOTE: The examples above featuring "W" and "c" are true
+    # only on ASCII and ASCII-derived systems such as ISO Latin 1
+    # and UTF-8.  On EBCDIC systems, the first example would be
+    #      $foo = pack("WWWW",193,194,195,196);
+
+    $foo = pack("s2",1,2);
+    # "\001\000\002\000" on little-endian
+    # "\000\001\000\002" on big-endian
+
+    $foo = pack("a4","abcd","x","y","z");
+    # "abcd"
+
+    $foo = pack("aaaa","abcd","x","y","z");
+    # "axyz"
+
+    $foo = pack("a14","abcdefg");
+    # "abcdefg\0\0\0\0\0\0\0"
+
+    $foo = pack("i9pl", gmtime);
+    # a real struct tm (on my system anyway)
+
+    $utmp_template = "Z8 Z8 Z16 L";
+    $utmp = pack($utmp_template, @utmp1);
+    # a struct utmp (BSDish)
+
+    @utmp2 = unpack($utmp_template, $utmp);
+    # "@utmp1" eq "@utmp2"
+
+    sub bintodec {
+        unpack("N", pack("B32", substr("0" x 32 . shift, -32)));
+    }
+
+    $foo = pack('sx2l', 12, 34);
+    # short 12, two zero bytes padding, long 34
+    $bar = pack('s@4l', 12, 34);
+    # short 12, zero fill to position 4, long 34
+    # $foo eq $bar
+    $baz = pack('s.l', 12, 4, 34);
+    # short 12, zero fill to position 4, long 34
+
+    $foo = pack('nN', 42, 4711);
+    # pack big-endian 16- and 32-bit unsigned integers
+    $foo = pack('S>L>', 42, 4711);
+    # exactly the same
+    $foo = pack('s<l<', -42, 4711);
+    # pack little-endian 16- and 32-bit signed integers
+    $foo = pack('(sl)<', -42, 4711);
+    # exactly the same
+
+The same template may generally also be used in
+L<C<unpack>|/unpack TEMPLATE,EXPR>.
+
+=item package NAMESPACE
+
+=item package NAMESPACE VERSION
+X<package> X<module> X<namespace> X<version>
+
+=item package NAMESPACE BLOCK
+
+=item package NAMESPACE VERSION BLOCK
+X<package> X<module> X<namespace> X<version>
+
+=for Pod::Functions declare a separate global namespace
+
+Declares the BLOCK or the rest of the compilation unit as being in the
+given namespace.  The scope of the package declaration is either the
+supplied code BLOCK or, in the absence of a BLOCK, from the declaration
+itself through the end of current scope (the enclosing block, file, or
+L<C<eval>|/eval EXPR>).  That is, the forms without a BLOCK are
+operative through the end of the current scope, just like the
+L<C<my>|/my VARLIST>, L<C<state>|/state VARLIST>, and
+L<C<our>|/our VARLIST> operators.  All unqualified dynamic identifiers
+in this scope will be in the given namespace, except where overridden by
+another L<C<package>|/package NAMESPACE> declaration or
+when they're one of the special identifiers that qualify into C<main::>,
+like C<STDOUT>, C<ARGV>, C<ENV>, and the punctuation variables.
+
+A package statement affects dynamic variables only, including those
+you've used L<C<local>|/local EXPR> on, but I<not> lexically-scoped
+variables, which are created with L<C<my>|/my VARLIST>,
+L<C<state>|/state VARLIST>, or L<C<our>|/our VARLIST>.  Typically it
+would be the first declaration in a file included by
+L<C<require>|/require VERSION> or L<C<use>|/use Module VERSION LIST>.
+You can switch into a
+package in more than one place, since this only determines which default
+symbol table the compiler uses for the rest of that block.  You can refer to
+identifiers in other packages than the current one by prefixing the identifier
+with the package name and a double colon, as in C<$SomePack::var>
+or C<ThatPack::INPUT_HANDLE>.  If package name is omitted, the C<main>
+package as assumed.  That is, C<$::sail> is equivalent to
+C<$main::sail> (as well as to C<$main'sail>, still seen in ancient
+code, mostly from Perl 4).
+
+If VERSION is provided, L<C<package>|/package NAMESPACE> sets the
+C<$VERSION> variable in the given
+namespace to a L<version> object with the VERSION provided.  VERSION must be a
+"strict" style version number as defined by the L<version> module: a positive
+decimal number (integer or decimal-fraction) without exponentiation or else a
+dotted-decimal v-string with a leading 'v' character and at least three
+components.  You should set C<$VERSION> only once per package.
+
+See L<perlmod/"Packages"> for more information about packages, modules,
+and classes.  See L<perlsub> for other scoping issues.
+
+=item __PACKAGE__
+X<__PACKAGE__>
+
+=for Pod::Functions +5.004 the current package
+
+A special token that returns the name of the package in which it occurs.
+
+=item pipe READHANDLE,WRITEHANDLE
+X<pipe>
+
+=for Pod::Functions open a pair of connected filehandles
+
+Opens a pair of connected pipes like the corresponding system call.
+Note that if you set up a loop of piped processes, deadlock can occur
+unless you are very careful.  In addition, note that Perl's pipes use
+IO buffering, so you may need to set L<C<$E<verbar>>|perlvar/$E<verbar>>
+to flush your WRITEHANDLE after each command, depending on the
+application.
+
+Returns true on success.
+
+See L<IPC::Open2>, L<IPC::Open3>, and
+L<perlipc/"Bidirectional Communication with Another Process">
+for examples of such things.
+
+On systems that support a close-on-exec flag on files, that flag is set
+on all newly opened file descriptors whose
+L<C<fileno>|/fileno FILEHANDLE>s are I<higher> than the current value of
+L<C<$^F>|perlvar/$^F> (by default 2 for C<STDERR>).  See L<perlvar/$^F>.
+
+=item pop ARRAY
+X<pop> X<stack>
+
+=item pop
+
+=for Pod::Functions remove the last element from an array and return it
+
+Pops and returns the last value of the array, shortening the array by
+one element.
+
+Returns the undefined value if the array is empty, although this may
+also happen at other times.  If ARRAY is omitted, pops the
+L<C<@ARGV>|perlvar/@ARGV> array in the main program, but the
+L<C<@_>|perlvar/@_> array in subroutines, just like
+L<C<shift>|/shift ARRAY>.
+
+Starting with Perl 5.14, an experimental feature allowed
+L<C<pop>|/pop ARRAY> to take a
+scalar expression. This experiment has been deemed unsuccessful, and was
+removed as of Perl 5.24.
+
+=item pos SCALAR
+X<pos> X<match, position>
+
+=item pos
+
+=for Pod::Functions find or set the offset for the last/next m//g search
+
+Returns the offset of where the last C<m//g> search left off for the
+variable in question (L<C<$_>|perlvar/$_> is used when the variable is not
+specified).  Note that 0 is a valid match offset.
+L<C<undef>|/undef EXPR> indicates
+that the search position is reset (usually due to match failure, but
+can also be because no match has yet been run on the scalar).
+
+L<C<pos>|/pos SCALAR> directly accesses the location used by the regexp
+engine to store the offset, so assigning to L<C<pos>|/pos SCALAR> will
+change that offset, and so will also influence the C<\G> zero-width
+assertion in regular expressions.  Both of these effects take place for
+the next match, so you can't affect the position with
+L<C<pos>|/pos SCALAR> during the current match, such as in
+C<(?{pos() = 5})> or C<s//pos() = 5/e>.
+
+Setting L<C<pos>|/pos SCALAR> also resets the I<matched with
+zero-length> flag, described
+under L<perlre/"Repeated Patterns Matching a Zero-length Substring">.
+
+Because a failed C<m//gc> match doesn't reset the offset, the return
+from L<C<pos>|/pos SCALAR> won't change either in this case.  See
+L<perlre> and L<perlop>.
+
+=item print FILEHANDLE LIST
+X<print>
+
+=item print FILEHANDLE
+
+=item print LIST
+
+=item print
+
+=for Pod::Functions output a list to a filehandle
+
+Prints a string or a list of strings.  Returns true if successful.
+FILEHANDLE may be a scalar variable containing the name of or a reference
+to the filehandle, thus introducing one level of indirection.  (NOTE: If
+FILEHANDLE is a variable and the next token is a term, it may be
+misinterpreted as an operator unless you interpose a C<+> or put
+parentheses around the arguments.)  If FILEHANDLE is omitted, prints to the
+last selected (see L<C<select>|/select FILEHANDLE>) output handle.  If
+LIST is omitted, prints L<C<$_>|perlvar/$_> to the currently selected
+output handle.  To use FILEHANDLE alone to print the content of
+L<C<$_>|perlvar/$_> to it, you must use a bareword filehandle like
+C<FH>, not an indirect one like C<$fh>.  To set the default output handle
+to something other than STDOUT, use the select operation.
+
+The current value of L<C<$,>|perlvar/$,> (if any) is printed between
+each LIST item.  The current value of L<C<$\>|perlvar/$\> (if any) is
+printed after the entire LIST has been printed.  Because print takes a
+LIST, anything in the LIST is evaluated in list context, including any
+subroutines whose return lists you pass to
+L<C<print>|/print FILEHANDLE LIST>.  Be careful not to follow the print
+keyword with a left
+parenthesis unless you want the corresponding right parenthesis to
+terminate the arguments to the print; put parentheses around all arguments
+(or interpose a C<+>, but that doesn't look as good).
+
+If you're storing handles in an array or hash, or in general whenever
+you're using any expression more complex than a bareword handle or a plain,
+unsubscripted scalar variable to retrieve it, you will have to use a block
+returning the filehandle value instead, in which case the LIST may not be
+omitted:
+
+    print { $files[$i] } "stuff\n";
+    print { $OK ? STDOUT : STDERR } "stuff\n";
+
+Printing to a closed pipe or socket will generate a SIGPIPE signal.  See
+L<perlipc> for more on signal handling.
+
+=item printf FILEHANDLE FORMAT, LIST
+X<printf>
+
+=item printf FILEHANDLE
+
+=item printf FORMAT, LIST
+
+=item printf
+
+=for Pod::Functions output a formatted list to a filehandle
+
+Equivalent to C<print FILEHANDLE sprintf(FORMAT, LIST)>, except that
+L<C<$\>|perlvar/$\> (the output record separator) is not appended.  The
+FORMAT and the LIST are actually parsed as a single list.  The first
+argument of the list will be interpreted as the
+L<C<printf>|/printf FILEHANDLE FORMAT, LIST> format.  This means that
+C<printf(@_)> will use C<$_[0]> as the format.  See
+L<sprintf|/sprintf FORMAT, LIST> for an explanation of the format
+argument.  If C<use locale> (including C<use locale ':not_characters'>)
+is in effect and L<C<POSIX::setlocale>|POSIX/C<setlocale>> has been
+called, the character used for the decimal separator in formatted
+floating-point numbers is affected by the C<LC_NUMERIC> locale setting.
+See L<perllocale> and L<POSIX>.
+
+For historical reasons, if you omit the list, L<C<$_>|perlvar/$_> is
+used as the format;
+to use FILEHANDLE without a list, you must use a bareword filehandle like
+C<FH>, not an indirect one like C<$fh>.  However, this will rarely do what
+you want; if L<C<$_>|perlvar/$_> contains formatting codes, they will be
+replaced with the empty string and a warning will be emitted if
+L<warnings> are enabled.  Just use L<C<print>|/print FILEHANDLE LIST> if
+you want to print the contents of L<C<$_>|perlvar/$_>.
+
+Don't fall into the trap of using a
+L<C<printf>|/printf FILEHANDLE FORMAT, LIST> when a simple
+L<C<print>|/print FILEHANDLE LIST> would do.  The
+L<C<print>|/print FILEHANDLE LIST> is more efficient and less error
+prone.
+
+=item prototype FUNCTION
+X<prototype>
+
+=item prototype
+
+=for Pod::Functions +5.002 get the prototype (if any) of a subroutine
+
+Returns the prototype of a function as a string (or
+L<C<undef>|/undef EXPR> if the
+function has no prototype).  FUNCTION is a reference to, or the name of,
+the function whose prototype you want to retrieve.  If FUNCTION is omitted,
+L<C<$_>|perlvar/$_> is used.
+
+If FUNCTION is a string starting with C<CORE::>, the rest is taken as a
+name for a Perl builtin.  If the builtin's arguments
+cannot be adequately expressed by a prototype
+(such as L<C<system>|/system LIST>), L<C<prototype>|/prototype FUNCTION>
+returns L<C<undef>|/undef EXPR>, because the builtin
+does not really behave like a Perl function.  Otherwise, the string
+describing the equivalent prototype is returned.
+
+=item push ARRAY,LIST
+X<push> X<stack>
+
+=for Pod::Functions append one or more elements to an array
+
+Treats ARRAY as a stack by appending the values of LIST to the end of
+ARRAY.  The length of ARRAY increases by the length of LIST.  Has the same
+effect as
+
+    for my $value (LIST) {
+        $ARRAY[++$#ARRAY] = $value;
+    }
+
+but is more efficient.  Returns the number of elements in the array following
+the completed L<C<push>|/push ARRAY,LIST>.
+
+Starting with Perl 5.14, an experimental feature allowed
+L<C<push>|/push ARRAY,LIST> to take a
+scalar expression. This experiment has been deemed unsuccessful, and was
+removed as of Perl 5.24.
+
+=item q/STRING/
+
+=for Pod::Functions singly quote a string
+
+=item qq/STRING/
+
+=for Pod::Functions doubly quote a string
+
+=item qw/STRING/
+
+=for Pod::Functions quote a list of words
+
+=item qx/STRING/
+
+=for Pod::Functions backquote quote a string
+
+Generalized quotes.  See L<perlop/"Quote-Like Operators">.
+
+=item qr/STRING/
+
+=for Pod::Functions +5.005 compile pattern
+
+Regexp-like quote.  See L<perlop/"Regexp Quote-Like Operators">.
+
+=item quotemeta EXPR
+X<quotemeta> X<metacharacter>
+
+=item quotemeta
+
+=for Pod::Functions quote regular expression magic characters
+
+Returns the value of EXPR with all the ASCII non-"word"
+characters backslashed.  (That is, all ASCII characters not matching
+C</[A-Za-z_0-9]/> will be preceded by a backslash in the
+returned string, regardless of any locale settings.)
+This is the internal function implementing
+the C<\Q> escape in double-quoted strings.
+(See below for the behavior on non-ASCII code points.)
+
+If EXPR is omitted, uses L<C<$_>|perlvar/$_>.
+
+quotemeta (and C<\Q> ... C<\E>) are useful when interpolating strings into
+regular expressions, because by default an interpolated variable will be
+considered a mini-regular expression.  For example:
+
+    my $sentence = 'The quick brown fox jumped over the lazy dog';
+    my $substring = 'quick.*?fox';
+    $sentence =~ s{$substring}{big bad wolf};
+
+Will cause C<$sentence> to become C<'The big bad wolf jumped over...'>.
+
+On the other hand:
+
+    my $sentence = 'The quick brown fox jumped over the lazy dog';
+    my $substring = 'quick.*?fox';
+    $sentence =~ s{\Q$substring\E}{big bad wolf};
+
+Or:
+
+    my $sentence = 'The quick brown fox jumped over the lazy dog';
+    my $substring = 'quick.*?fox';
+    my $quoted_substring = quotemeta($substring);
+    $sentence =~ s{$quoted_substring}{big bad wolf};
+
+Will both leave the sentence as is.
+Normally, when accepting literal string input from the user,
+L<C<quotemeta>|/quotemeta EXPR> or C<\Q> must be used.
+
+In Perl v5.14, all non-ASCII characters are quoted in non-UTF-8-encoded
+strings, but not quoted in UTF-8 strings.
+
+Starting in Perl v5.16, Perl adopted a Unicode-defined strategy for
+quoting non-ASCII characters; the quoting of ASCII characters is
+unchanged.
+
+Also unchanged is the quoting of non-UTF-8 strings when outside the
+scope of a
+L<C<use feature 'unicode_strings'>|feature/The 'unicode_strings' feature>,
+which is to quote all
+characters in the upper Latin1 range.  This provides complete backwards
+compatibility for old programs which do not use Unicode.  (Note that
+C<unicode_strings> is automatically enabled within the scope of a
+S<C<use v5.12>> or greater.)
+
+Within the scope of L<C<use locale>|locale>, all non-ASCII Latin1 code
+points
+are quoted whether the string is encoded as UTF-8 or not.  As mentioned
+above, locale does not affect the quoting of ASCII-range characters.
+This protects against those locales where characters such as C<"|"> are
+considered to be word characters.
+
+Otherwise, Perl quotes non-ASCII characters using an adaptation from
+Unicode (see L<http://www.unicode.org/reports/tr31/>).
+The only code points that are quoted are those that have any of the
+Unicode properties:  Pattern_Syntax, Pattern_White_Space, White_Space,
+Default_Ignorable_Code_Point, or General_Category=Control.
+
+Of these properties, the two important ones are Pattern_Syntax and
+Pattern_White_Space.  They have been set up by Unicode for exactly this
+purpose of deciding which characters in a regular expression pattern
+should be quoted.  No character that can be in an identifier has these
+properties.
+
+Perl promises, that if we ever add regular expression pattern
+metacharacters to the dozen already defined
+(C<\ E<verbar> ( ) [ { ^ $ * + ? .>), that we will only use ones that have the
+Pattern_Syntax property.  Perl also promises, that if we ever add
+characters that are considered to be white space in regular expressions
+(currently mostly affected by C</x>), they will all have the
+Pattern_White_Space property.
+
+Unicode promises that the set of code points that have these two
+properties will never change, so something that is not quoted in v5.16
+will never need to be quoted in any future Perl release.  (Not all the
+code points that match Pattern_Syntax have actually had characters
+assigned to them; so there is room to grow, but they are quoted
+whether assigned or not.  Perl, of course, would never use an
+unassigned code point as an actual metacharacter.)
+
+Quoting characters that have the other 3 properties is done to enhance
+the readability of the regular expression and not because they actually
+need to be quoted for regular expression purposes (characters with the
+White_Space property are likely to be indistinguishable on the page or
+screen from those with the Pattern_White_Space property; and the other
+two properties contain non-printing characters).
+
+=item rand EXPR
+X<rand> X<random>
+
+=item rand
+
+=for Pod::Functions retrieve the next pseudorandom number
+
+Returns a random fractional number greater than or equal to C<0> and less
+than the value of EXPR.  (EXPR should be positive.)  If EXPR is
+omitted, the value C<1> is used.  Currently EXPR with the value C<0> is
+also special-cased as C<1> (this was undocumented before Perl 5.8.0
+and is subject to change in future versions of Perl).  Automatically calls
+L<C<srand>|/srand EXPR> unless L<C<srand>|/srand EXPR> has already been
+called.  See also L<C<srand>|/srand EXPR>.
+
+Apply L<C<int>|/int EXPR> to the value returned by L<C<rand>|/rand EXPR>
+if you want random integers instead of random fractional numbers.  For
+example,
+
+    int(rand(10))
+
+returns a random integer between C<0> and C<9>, inclusive.
+
+(Note: If your rand function consistently returns numbers that are too
+large or too small, then your version of Perl was probably compiled
+with the wrong number of RANDBITS.)
+
+B<L<C<rand>|/rand EXPR> is not cryptographically secure.  You should not rely
+on it in security-sensitive situations.>  As of this writing, a
+number of third-party CPAN modules offer random number generators
+intended by their authors to be cryptographically secure,
+including: L<Data::Entropy>, L<Crypt::Random>, L<Math::Random::Secure>,
+and L<Math::TrulyRandom>.
+
+=item read FILEHANDLE,SCALAR,LENGTH,OFFSET
+X<read> X<file, read>
+
+=item read FILEHANDLE,SCALAR,LENGTH
+
+=for Pod::Functions fixed-length buffered input from a filehandle
+
+Attempts to read LENGTH I<characters> of data into variable SCALAR
+from the specified FILEHANDLE.  Returns the number of characters
+actually read, C<0> at end of file, or undef if there was an error (in
+the latter case L<C<$!>|perlvar/$!> is also set).  SCALAR will be grown
+or shrunk
+so that the last character actually read is the last character of the
+scalar after the read.
+
+An OFFSET may be specified to place the read data at some place in the
+string other than the beginning.  A negative OFFSET specifies
+placement at that many characters counting backwards from the end of
+the string.  A positive OFFSET greater than the length of SCALAR
+results in the string being padded to the required size with C<"\0">
+bytes before the result of the read is appended.
+
+The call is implemented in terms of either Perl's or your system's native
+L<fread(3)> library function.  To get a true L<read(2)> system call, see
+L<sysread|/sysread FILEHANDLE,SCALAR,LENGTH,OFFSET>.
+
+Note the I<characters>: depending on the status of the filehandle,
+either (8-bit) bytes or characters are read.  By default, all
+filehandles operate on bytes, but for example if the filehandle has
+been opened with the C<:utf8> I/O layer (see
+L<C<open>|/open FILEHANDLE,EXPR>, and the L<open>
+pragma), the I/O will operate on UTF8-encoded Unicode
+characters, not bytes.  Similarly for the C<:encoding> layer:
+in that case pretty much any characters can be read.
+
+=item readdir DIRHANDLE
+X<readdir>
+
+=for Pod::Functions get a directory from a directory handle
+
+Returns the next directory entry for a directory opened by
+L<C<opendir>|/opendir DIRHANDLE,EXPR>.
+If used in list context, returns all the rest of the entries in the
+directory.  If there are no more entries, returns the undefined value in
+scalar context and the empty list in list context.
+
+If you're planning to filetest the return values out of a
+L<C<readdir>|/readdir DIRHANDLE>, you'd better prepend the directory in
+question.  Otherwise, because we didn't L<C<chdir>|/chdir EXPR> there,
+it would have been testing the wrong file.
+
+    opendir(my $dh, $some_dir) || die "Can't opendir $some_dir: $!";
+    my @dots = grep { /^\./ && -f "$some_dir/$_" } readdir($dh);
+    closedir $dh;
+
+As of Perl 5.12 you can use a bare L<C<readdir>|/readdir DIRHANDLE> in a
+C<while> loop, which will set L<C<$_>|perlvar/$_> on every iteration.
+
+    opendir(my $dh, $some_dir) || die "Can't open $some_dir: $!";
+    while (readdir $dh) {
+        print "$some_dir/$_\n";
+    }
+    closedir $dh;
+
+To avoid confusing would-be users of your code who are running earlier
+versions of Perl with mysterious failures, put this sort of thing at the
+top of your file to signal that your code will work I<only> on Perls of a
+recent vintage:
+
+    use 5.012; # so readdir assigns to $_ in a lone while test
+
+=item readline EXPR
+
+=item readline
+X<readline> X<gets> X<fgets>
+
+=for Pod::Functions fetch a record from a file
+
+Reads from the filehandle whose typeglob is contained in EXPR (or from
+C<*ARGV> if EXPR is not provided).  In scalar context, each call reads and
+returns the next line until end-of-file is reached, whereupon the
+subsequent call returns L<C<undef>|/undef EXPR>.  In list context, reads
+until end-of-file is reached and returns a list of lines.  Note that the
+notion of "line" used here is whatever you may have defined with
+L<C<$E<sol>>|perlvar/$E<sol>> (or C<$INPUT_RECORD_SEPARATOR> in
+L<English>).  See L<perlvar/"$/">.
+
+When L<C<$E<sol>>|perlvar/$E<sol>> is set to L<C<undef>|/undef EXPR>,
+when L<C<readline>|/readline EXPR> is in scalar context (i.e., file
+slurp mode), and when an empty file is read, it returns C<''> the first
+time, followed by L<C<undef>|/undef EXPR> subsequently.
+
+This is the internal function implementing the C<< <EXPR> >>
+operator, but you can use it directly.  The C<< <EXPR> >>
+operator is discussed in more detail in L<perlop/"I/O Operators">.
+
+    my $line = <STDIN>;
+    my $line = readline(STDIN);    # same thing
+
+If L<C<readline>|/readline EXPR> encounters an operating system error,
+L<C<$!>|perlvar/$!> will be set with the corresponding error message.
+It can be helpful to check L<C<$!>|perlvar/$!> when you are reading from
+filehandles you don't trust, such as a tty or a socket.  The following
+example uses the operator form of L<C<readline>|/readline EXPR> and dies
+if the result is not defined.
+
+    while ( ! eof($fh) ) {
+        defined( $_ = readline $fh ) or die "readline failed: $!";
+        ...
+    }
+
+Note that you have can't handle L<C<readline>|/readline EXPR> errors
+that way with the C<ARGV> filehandle.  In that case, you have to open
+each element of L<C<@ARGV>|perlvar/@ARGV> yourself since
+L<C<eof>|/eof FILEHANDLE> handles C<ARGV> differently.
+
+    foreach my $arg (@ARGV) {
+        open(my $fh, $arg) or warn "Can't open $arg: $!";
+
+        while ( ! eof($fh) ) {
+            defined( $_ = readline $fh )
+                or die "readline failed for $arg: $!";
+            ...
+        }
+    }
+
+=item readlink EXPR
+X<readlink>
+
+=item readlink
+
+=for Pod::Functions determine where a symbolic link is pointing
+
+Returns the value of a symbolic link, if symbolic links are
+implemented.  If not, raises an exception.  If there is a system
+error, returns the undefined value and sets L<C<$!>|perlvar/$!> (errno).
+If EXPR is omitted, uses L<C<$_>|perlvar/$_>.
+
+Portability issues: L<perlport/readlink>.
+
+=item readpipe EXPR
+
+=item readpipe
+X<readpipe>
+
+=for Pod::Functions execute a system command and collect standard output
+
+EXPR is executed as a system command.
+The collected standard output of the command is returned.
+In scalar context, it comes back as a single (potentially
+multi-line) string.  In list context, returns a list of lines
+(however you've defined lines with L<C<$E<sol>>|perlvar/$E<sol>> (or
+C<$INPUT_RECORD_SEPARATOR> in L<English>)).
+This is the internal function implementing the C<qx/EXPR/>
+operator, but you can use it directly.  The C<qx/EXPR/>
+operator is discussed in more detail in L<perlop/"I/O Operators">.
+If EXPR is omitted, uses L<C<$_>|perlvar/$_>.
+
+=item recv SOCKET,SCALAR,LENGTH,FLAGS
+X<recv>
+
+=for Pod::Functions receive a message over a Socket
+
+Receives a message on a socket.  Attempts to receive LENGTH characters
+of data into variable SCALAR from the specified SOCKET filehandle.
+SCALAR will be grown or shrunk to the length actually read.  Takes the
+same flags as the system call of the same name.  Returns the address
+of the sender if SOCKET's protocol supports this; returns an empty
+string otherwise.  If there's an error, returns the undefined value.
+This call is actually implemented in terms of the L<recvfrom(2)> system call.
+See L<perlipc/"UDP: Message Passing"> for examples.
+
+Note the I<characters>: depending on the status of the socket, either
+(8-bit) bytes or characters are received.  By default all sockets
+operate on bytes, but for example if the socket has been changed using
+L<C<binmode>|/binmode FILEHANDLE, LAYER> to operate with the
+C<:encoding(utf8)> I/O layer (see the L<open> pragma), the I/O will
+operate on UTF8-encoded Unicode
+characters, not bytes.  Similarly for the C<:encoding> layer: in that
+case pretty much any characters can be read.
+
+=item redo LABEL
+X<redo>
+
+=item redo EXPR
+
+=item redo
+
+=for Pod::Functions start this loop iteration over again
+
+The L<C<redo>|/redo LABEL> command restarts the loop block without
+evaluating the conditional again.  The L<C<continue>|/continue BLOCK>
+block, if any, is not executed.  If
+the LABEL is omitted, the command refers to the innermost enclosing
+loop.  The C<redo EXPR> form, available starting in Perl 5.18.0, allows a
+label name to be computed at run time, and is otherwise identical to C<redo
+LABEL>.  Programs that want to lie to themselves about what was just input
+normally use this command:
+
+    # a simpleminded Pascal comment stripper
+    # (warning: assumes no { or } in strings)
+    LINE: while (<STDIN>) {
+        while (s|({.*}.*){.*}|$1 |) {}
+        s|{.*}| |;
+        if (s|{.*| |) {
+            my $front = $_;
+            while (<STDIN>) {
+                if (/}/) {  # end of comment?
+                    s|^|$front\{|;
+                    redo LINE;
+                }
+            }
+        }
+        print;
+    }
+
+L<C<redo>|/redo LABEL> cannot be used to retry a block that returns a
+value such as C<eval {}>, C<sub {}>, or C<do {}>, and should not be used
+to exit a L<C<grep>|/grep BLOCK LIST> or L<C<map>|/map BLOCK LIST>
+operation.
+
+Note that a block by itself is semantically identical to a loop
+that executes once.  Thus L<C<redo>|/redo LABEL> inside such a block
+will effectively turn it into a looping construct.
+
+See also L<C<continue>|/continue BLOCK> for an illustration of how
+L<C<last>|/last LABEL>, L<C<next>|/next LABEL>, and
+L<C<redo>|/redo LABEL> work.
+
+Unlike most named operators, this has the same precedence as assignment.
+It is also exempt from the looks-like-a-function rule, so
+C<redo ("foo")."bar"> will cause "bar" to be part of the argument to
+L<C<redo>|/redo LABEL>.
+
+=item ref EXPR
+X<ref> X<reference>
+
+=item ref
+
+=for Pod::Functions find out the type of thing being referenced
+
+Returns a non-empty string if EXPR is a reference, the empty
+string otherwise.  If EXPR is not specified, L<C<$_>|perlvar/$_> will be
+used.  The value returned depends on the type of thing the reference is
+a reference to.
+
+Builtin types include:
+
+    SCALAR
+    ARRAY
+    HASH
+    CODE
+    REF
+    GLOB
+    LVALUE
+    FORMAT
+    IO
+    VSTRING
+    Regexp
+
+You can think of L<C<ref>|/ref EXPR> as a C<typeof> operator.
+
+    if (ref($r) eq "HASH") {
+        print "r is a reference to a hash.\n";
+    }
+    unless (ref($r)) {
+        print "r is not a reference at all.\n";
+    }
+
+The return value C<LVALUE> indicates a reference to an lvalue that is not
+a variable.  You get this from taking the reference of function calls like
+L<C<pos>|/pos SCALAR> or
+L<C<substr>|/substr EXPR,OFFSET,LENGTH,REPLACEMENT>.  C<VSTRING> is
+returned if the reference points to a
+L<version string|perldata/"Version Strings">.
+
+The result C<Regexp> indicates that the argument is a regular expression
+resulting from L<C<qrE<sol>E<sol>>|/qrE<sol>STRINGE<sol>>.
+
+If the referenced object has been blessed into a package, then that package
+name is returned instead.  But don't use that, as it's now considered
+"bad practice".  For one reason, an object could be using a class called
+C<Regexp> or C<IO>, or even C<HASH>.  Also, L<C<ref>|/ref EXPR> doesn't
+take into account subclasses, like
+L<C<isa>|UNIVERSAL/C<< $obj->isa( TYPE ) >>> does.
+
+Instead, use L<C<blessed>|Scalar::Util/blessed> (in the L<Scalar::Util>
+module) for boolean checks, L<C<isa>|UNIVERSAL/C<< $obj->isa( TYPE ) >>>
+for specific class checks and L<C<reftype>|Scalar::Util/reftype> (also
+from L<Scalar::Util>) for type checks.  (See L<perlobj> for details and
+a L<C<blessed>|Scalar::Util/blessed>/L<C<isa>|UNIVERSAL/C<< $obj->isa( TYPE ) >>>
+example.)
+
+See also L<perlref>.
+
+=item rename OLDNAME,NEWNAME
+X<rename> X<move> X<mv> X<ren>
+
+=for Pod::Functions change a filename
+
+Changes the name of a file; an existing file NEWNAME will be
+clobbered.  Returns true for success, false otherwise.
+
+Behavior of this function varies wildly depending on your system
+implementation.  For example, it will usually not work across file system
+boundaries, even though the system I<mv> command sometimes compensates
+for this.  Other restrictions include whether it works on directories,
+open files, or pre-existing files.  Check L<perlport> and either the
+L<rename(2)> manpage or equivalent system documentation for details.
+
+For a platform independent L<C<move>|File::Copy/move> function look at
+the L<File::Copy> module.
+
+Portability issues: L<perlport/rename>.
+
+=item require VERSION
+X<require>
+
+=item require EXPR
+
+=item require
+
+=for Pod::Functions load in external functions from a library at runtime
+
+Demands a version of Perl specified by VERSION, or demands some semantics
+specified by EXPR or by L<C<$_>|perlvar/$_> if EXPR is not supplied.
+
+VERSION may be either a numeric argument such as 5.006, which will be
+compared to L<C<$]>|perlvar/$]>, or a literal of the form v5.6.1, which
+will be compared to L<C<$^V>|perlvar/$^V> (or C<$PERL_VERSION> in
+L<English>).  An exception is raised if VERSION is greater than the
+version of the current Perl interpreter.  Compare with
+L<C<use>|/use Module VERSION LIST>, which can do a similar check at
+compile time.
+
+Specifying VERSION as a literal of the form v5.6.1 should generally be
+avoided, because it leads to misleading error messages under earlier
+versions of Perl that do not support this syntax.  The equivalent numeric
+version should be used instead.
+
+    require v5.6.1;     # run time version check
+    require 5.6.1;      # ditto
+    require 5.006_001;  # ditto; preferred for backwards
+                          compatibility
+
+Otherwise, L<C<require>|/require VERSION> demands that a library file be
+included if it hasn't already been included.  The file is included via
+the do-FILE mechanism, which is essentially just a variety of
+L<C<eval>|/eval EXPR> with the
+caveat that lexical variables in the invoking script will be invisible
+to the included code.  If it were implemented in pure Perl, it
+would have semantics similar to the following:
+
+    use Carp 'croak';
+    use version;
+
+    sub require {
+        my ($filename) = @_;
+        if ( my $version = eval { version->parse($filename) } ) {
+            if ( $version > $^V ) {
+               my $vn = $version->normal;
+               croak "Perl $vn required--this is only $^V, stopped";
+            }
+            return 1;
+        }
+
+        if (exists $INC{$filename}) {
+            return 1 if $INC{$filename};
+            croak "Compilation failed in require";
+        }
+
+        foreach $prefix (@INC) {
+            if (ref($prefix)) {
+                #... do other stuff - see text below ....
+            }
+            # (see text below about possible appending of .pmc
+            # suffix to $filename)
+            my $realfilename = "$prefix/$filename";
+            next if ! -e $realfilename || -d _ || -b _;
+            $INC{$filename} = $realfilename;
+            my $result = do($realfilename);
+                         # but run in caller's namespace
+
+            if (!defined $result) {
+                $INC{$filename} = undef;
+                croak $@ ? "$@Compilation failed in require"
+                         : "Can't locate $filename: $!\n";
+            }
+            if (!$result) {
+                delete $INC{$filename};
+                croak "$filename did not return true value";
+            }
+            $! = 0;
+            return $result;
+        }
+        croak "Can't locate $filename in \@INC ...";
+    }
+
+Note that the file will not be included twice under the same specified
+name.
+
+The file must return true as the last statement to indicate
+successful execution of any initialization code, so it's customary to
+end such a file with C<1;> unless you're sure it'll return true
+otherwise.  But it's better just to put the C<1;>, in case you add more
+statements.
+
+If EXPR is a bareword, L<C<require>|/require VERSION> assumes a F<.pm>
+extension and replaces C<::> with C</> in the filename for you,
+to make it easy to load standard modules.  This form of loading of
+modules does not risk altering your namespace.
+
+In other words, if you try this:
+
+        require Foo::Bar;     # a splendid bareword
+
+The require function will actually look for the F<Foo/Bar.pm> file in the
+directories specified in the L<C<@INC>|perlvar/@INC> array.
+
+But if you try this:
+
+        my $class = 'Foo::Bar';
+        require $class;       # $class is not a bareword
+    #or
+        require "Foo::Bar";   # not a bareword because of the ""
+
+The require function will look for the F<Foo::Bar> file in the
+L<C<@INC>|perlvar/@INC>  array and
+will complain about not finding F<Foo::Bar> there.  In this case you can do:
+
+        eval "require $class";
+
+Now that you understand how L<C<require>|/require VERSION> looks for
+files with a bareword argument, there is a little extra functionality
+going on behind the scenes.  Before L<C<require>|/require VERSION> looks
+for a F<.pm> extension, it will first look for a similar filename with a
+F<.pmc> extension.  If this file is found, it will be loaded in place of
+any file ending in a F<.pm> extension.
+
+You can also insert hooks into the import facility by putting Perl code
+directly into the L<C<@INC>|perlvar/@INC> array.  There are three forms
+of hooks: subroutine references, array references, and blessed objects.
+
+Subroutine references are the simplest case.  When the inclusion system
+walks through L<C<@INC>|perlvar/@INC> and encounters a subroutine, this
+subroutine gets called with two parameters, the first a reference to
+itself, and the second the name of the file to be included (e.g.,
+F<Foo/Bar.pm>).  The subroutine should return either nothing or else a
+list of up to four values in the following order:
+
+=over
+
+=item 1
+
+A reference to a scalar, containing any initial source code to prepend to
+the file or generator output.
+
+=item 2
+
+A filehandle, from which the file will be read.
+
+=item 3
+
+A reference to a subroutine.  If there is no filehandle (previous item),
+then this subroutine is expected to generate one line of source code per
+call, writing the line into L<C<$_>|perlvar/$_> and returning 1, then
+finally at end of file returning 0.  If there is a filehandle, then the
+subroutine will be called to act as a simple source filter, with the
+line as read in L<C<$_>|perlvar/$_>.
+Again, return 1 for each valid line, and 0 after all lines have been
+returned.
+
+=item 4
+
+Optional state for the subroutine.  The state is passed in as C<$_[1]>.  A
+reference to the subroutine itself is passed in as C<$_[0]>.
+
+=back
+
+If an empty list, L<C<undef>|/undef EXPR>, or nothing that matches the
+first 3 values above is returned, then L<C<require>|/require VERSION>
+looks at the remaining elements of L<C<@INC>|perlvar/@INC>.
+Note that this filehandle must be a real filehandle (strictly a typeglob
+or reference to a typeglob, whether blessed or unblessed); tied filehandles
+will be ignored and processing will stop there.
+
+If the hook is an array reference, its first element must be a subroutine
+reference.  This subroutine is called as above, but the first parameter is
+the array reference.  This lets you indirectly pass arguments to
+the subroutine.
+
+In other words, you can write:
+
+    push @INC, \&my_sub;
+    sub my_sub {
+        my ($coderef, $filename) = @_;  # $coderef is \&my_sub
+        ...
+    }
+
+or:
+
+    push @INC, [ \&my_sub, $x, $y, ... ];
+    sub my_sub {
+        my ($arrayref, $filename) = @_;
+        # Retrieve $x, $y, ...
+        my (undef, @parameters) = @$arrayref;
+        ...
+    }
+
+If the hook is an object, it must provide an C<INC> method that will be
+called as above, the first parameter being the object itself.  (Note that
+you must fully qualify the sub's name, as unqualified C<INC> is always forced
+into package C<main>.)  Here is a typical code layout:
+
+    # In Foo.pm
+    package Foo;
+    sub new { ... }
+    sub Foo::INC {
+        my ($self, $filename) = @_;
+        ...
+    }
+
+    # In the main program
+    push @INC, Foo->new(...);
+
+These hooks are also permitted to set the L<C<%INC>|perlvar/%INC> entry
+corresponding to the files they have loaded.  See L<perlvar/%INC>.
+
+For a yet-more-powerful import facility, see
+L<C<use>|/use Module VERSION LIST> and L<perlmod>.
+
+=item reset EXPR
+X<reset>
+
+=item reset
+
+=for Pod::Functions clear all variables of a given name
+
+Generally used in a L<C<continue>|/continue BLOCK> block at the end of a
+loop to clear variables and reset C<m?pattern?> searches so that they
+work again.  The
+expression is interpreted as a list of single characters (hyphens
+allowed for ranges).  All variables and arrays beginning with one of
+those letters are reset to their pristine state.  If the expression is
+omitted, one-match searches (C<m?pattern?>) are reset to match again.
+Only resets variables or searches in the current package.  Always returns
+1.  Examples:
+
+    reset 'X';      # reset all X variables
+    reset 'a-z';    # reset lower case variables
+    reset;          # just reset m?one-time? searches
+
+Resetting C<"A-Z"> is not recommended because you'll wipe out your
+L<C<@ARGV>|perlvar/@ARGV> and L<C<@INC>|perlvar/@INC> arrays and your
+L<C<%ENV>|perlvar/%ENV> hash.
+Resets only package variables; lexical variables are unaffected, but
+they clean themselves up on scope exit anyway, so you'll probably want
+to use them instead.  See L<C<my>|/my VARLIST>.
+
+=item return EXPR
+X<return>
+
+=item return
+
+=for Pod::Functions get out of a function early
+
+Returns from a subroutine, L<C<eval>|/eval EXPR>,
+L<C<do FILE>|/do EXPR>, L<C<sort>|/sort SUBNAME LIST> block or regex
+eval block (but not a L<C<grep>|/grep BLOCK LIST> or
+L<C<map>|/map BLOCK LIST> block) with the value
+given in EXPR.  Evaluation of EXPR may be in list, scalar, or void
+context, depending on how the return value will be used, and the context
+may vary from one execution to the next (see
+L<C<wantarray>|/wantarray>).  If no EXPR
+is given, returns an empty list in list context, the undefined value in
+scalar context, and (of course) nothing at all in void context.
+
+(In the absence of an explicit L<C<return>|/return EXPR>, a subroutine,
+L<C<eval>|/eval EXPR>,
+or L<C<do FILE>|/do EXPR> automatically returns the value of the last expression
+evaluated.)
+
+Unlike most named operators, this is also exempt from the
+looks-like-a-function rule, so C<return ("foo")."bar"> will
+cause C<"bar"> to be part of the argument to L<C<return>|/return EXPR>.
+
+=item reverse LIST
+X<reverse> X<rev> X<invert>
+
+=for Pod::Functions flip a string or a list
+
+In list context, returns a list value consisting of the elements
+of LIST in the opposite order.  In scalar context, concatenates the
+elements of LIST and returns a string value with all characters
+in the opposite order.
+
+    print join(", ", reverse "world", "Hello"); # Hello, world
+
+    print scalar reverse "dlrow ,", "olleH";    # Hello, world
+
+Used without arguments in scalar context, L<C<reverse>|/reverse LIST>
+reverses L<C<$_>|perlvar/$_>.
+
+    $_ = "dlrow ,olleH";
+    print reverse;                         # No output, list context
+    print scalar reverse;                  # Hello, world
+
+Note that reversing an array to itself (as in C<@a = reverse @a>) will
+preserve non-existent elements whenever possible; i.e., for non-magical
+arrays or for tied arrays with C<EXISTS> and C<DELETE> methods.
+
+This operator is also handy for inverting a hash, although there are some
+caveats.  If a value is duplicated in the original hash, only one of those
+can be represented as a key in the inverted hash.  Also, this has to
+unwind one hash and build a whole new one, which may take some time
+on a large hash, such as from a DBM file.
+
+    my %by_name = reverse %by_address;  # Invert the hash
+
+=item rewinddir DIRHANDLE
+X<rewinddir>
+
+=for Pod::Functions reset directory handle
+
+Sets the current position to the beginning of the directory for the
+L<C<readdir>|/readdir DIRHANDLE> routine on DIRHANDLE.
+
+Portability issues: L<perlport/rewinddir>.
+
+=item rindex STR,SUBSTR,POSITION
+X<rindex>
+
+=item rindex STR,SUBSTR
+
+=for Pod::Functions right-to-left substring search
+
+Works just like L<C<index>|/index STR,SUBSTR,POSITION> except that it
+returns the position of the I<last>
+occurrence of SUBSTR in STR.  If POSITION is specified, returns the
+last occurrence beginning at or before that position.
+
+=item rmdir FILENAME
+X<rmdir> X<rd> X<directory, remove>
+
+=item rmdir
+
+=for Pod::Functions remove a directory
+
+Deletes the directory specified by FILENAME if that directory is
+empty.  If it succeeds it returns true; otherwise it returns false and
+sets L<C<$!>|perlvar/$!> (errno).  If FILENAME is omitted, uses
+L<C<$_>|perlvar/$_>.
+
+To remove a directory tree recursively (C<rm -rf> on Unix) look at
+the L<C<rmtree>|File::Path/rmtree( $dir )> function of the L<File::Path>
+module.
+
+=item s///
+
+=for Pod::Functions replace a pattern with a string
+
+The substitution operator.  See L<perlop/"Regexp Quote-Like Operators">.
+
+=item say FILEHANDLE LIST
+X<say>
+
+=item say FILEHANDLE
+
+=item say LIST
+
+=item say
+
+=for Pod::Functions +say output a list to a filehandle, appending a newline
+
+Just like L<C<print>|/print FILEHANDLE LIST>, but implicitly appends a
+newline.  C<say LIST> is simply an abbreviation for
+C<{ local $\ = "\n"; print LIST }>.  To use FILEHANDLE without a LIST to
+print the contents of L<C<$_>|perlvar/$_> to it, you must use a bareword
+filehandle like C<FH>, not an indirect one like C<$fh>.
+
+L<C<say>|/say FILEHANDLE LIST> is available only if the
+L<C<"say"> feature|feature/The 'say' feature> is enabled or if it is
+prefixed with C<CORE::>.  The
+L<C<"say"> feature|feature/The 'say' feature> is enabled automatically
+with a C<use v5.10> (or higher) declaration in the current scope.
+
+=item scalar EXPR
+X<scalar> X<context>
+
+=for Pod::Functions force a scalar context
+
+Forces EXPR to be interpreted in scalar context and returns the value
+of EXPR.
+
+    my @counts = ( scalar @a, scalar @b, scalar @c );
+
+There is no equivalent operator to force an expression to
+be interpolated in list context because in practice, this is never
+needed.  If you really wanted to do so, however, you could use
+the construction C<@{[ (some expression) ]}>, but usually a simple
+C<(some expression)> suffices.
+
+Because L<C<scalar>|/scalar EXPR> is a unary operator, if you
+accidentally use a
+parenthesized list for the EXPR, this behaves as a scalar comma expression,
+evaluating all but the last element in void context and returning the final
+element evaluated in scalar context.  This is seldom what you want.
+
+The following single statement:
+
+    print uc(scalar(foo(), $bar)), $baz;
+
+is the moral equivalent of these two:
+
+    foo();
+    print(uc($bar), $baz);
+
+See L<perlop> for more details on unary operators and the comma operator,
+and L<perldata> for details on evaluating a hash in scalar contex.
+
+=item seek FILEHANDLE,POSITION,WHENCE
+X<seek> X<fseek> X<filehandle, position>
+
+=for Pod::Functions reposition file pointer for random-access I/O
+
+Sets FILEHANDLE's position, just like the L<fseek(3)> call of C C<stdio>.
+FILEHANDLE may be an expression whose value gives the name of the
+filehandle.  The values for WHENCE are C<0> to set the new position
+I<in bytes> to POSITION; C<1> to set it to the current position plus
+POSITION; and C<2> to set it to EOF plus POSITION, typically
+negative.  For WHENCE you may use the constants C<SEEK_SET>,
+C<SEEK_CUR>, and C<SEEK_END> (start of the file, current position, end
+of the file) from the L<Fcntl> module.  Returns C<1> on success, false
+otherwise.
+
+Note the I<in bytes>: even if the filehandle has been set to
+operate on characters (for example by using the C<:encoding(utf8)> open
+layer), L<C<tell>|/tell FILEHANDLE> will return byte offsets, not
+character offsets (because implementing that would render
+L<C<seek>|/seek FILEHANDLE,POSITION,WHENCE> and
+L<C<tell>|/tell FILEHANDLE> rather slow).
+
+If you want to position the file for
+L<C<sysread>|/sysread FILEHANDLE,SCALAR,LENGTH,OFFSET> or
+L<C<syswrite>|/syswrite FILEHANDLE,SCALAR,LENGTH,OFFSET>, don't use
+L<C<seek>|/seek FILEHANDLE,POSITION,WHENCE>, because buffering makes its
+effect on the file's read-write position unpredictable and non-portable.
+Use L<C<sysseek>|/sysseek FILEHANDLE,POSITION,WHENCE> instead.
+
+Due to the rules and rigors of ANSI C, on some systems you have to do a
+seek whenever you switch between reading and writing.  Amongst other
+things, this may have the effect of calling stdio's L<clearerr(3)>.
+A WHENCE of C<1> (C<SEEK_CUR>) is useful for not moving the file position:
+
+    seek($fh, 0, 1);
+
+This is also useful for applications emulating C<tail -f>.  Once you hit
+EOF on your read and then sleep for a while, you (probably) have to stick in a
+dummy L<C<seek>|/seek FILEHANDLE,POSITION,WHENCE> to reset things.  The
+L<C<seek>|/seek FILEHANDLE,POSITION,WHENCE> doesn't change the position,
+but it I<does> clear the end-of-file condition on the handle, so that the
+next C<readline FILE> makes Perl try again to read something.  (We hope.)
+
+If that doesn't work (some I/O implementations are particularly
+cantankerous), you might need something like this:
+
+    for (;;) {
+        for ($curpos = tell($fh); $_ = readline($fh);
+             $curpos = tell($fh)) {
+            # search for some stuff and put it into files
+        }
+        sleep($for_a_while);
+        seek($fh, $curpos, 0);
+    }
+
+=item seekdir DIRHANDLE,POS
+X<seekdir>
+
+=for Pod::Functions reposition directory pointer
+
+Sets the current position for the L<C<readdir>|/readdir DIRHANDLE>
+routine on DIRHANDLE.  POS must be a value returned by
+L<C<telldir>|/telldir DIRHANDLE>.  L<C<seekdir>|/seekdir DIRHANDLE,POS>
+also has the same caveats about possible directory compaction as the
+corresponding system library routine.
+
+=item select FILEHANDLE
+X<select> X<filehandle, default>
+
+=item select
+
+=for Pod::Functions reset default output or do I/O multiplexing
+
+Returns the currently selected filehandle.  If FILEHANDLE is supplied,
+sets the new current default filehandle for output.  This has two
+effects: first, a L<C<write>|/write FILEHANDLE> or a L<C<print>|/print
+FILEHANDLE LIST> without a filehandle
+default to this FILEHANDLE.  Second, references to variables related to
+output will refer to this output channel.
+
+For example, to set the top-of-form format for more than one
+output channel, you might do the following:
+
+    select(REPORT1);
+    $^ = 'report1_top';
+    select(REPORT2);
+    $^ = 'report2_top';
+
+FILEHANDLE may be an expression whose value gives the name of the
+actual filehandle.  Thus:
+
+    my $oldfh = select(STDERR); $| = 1; select($oldfh);
+
+Some programmers may prefer to think of filehandles as objects with
+methods, preferring to write the last example as:
+
+    STDERR->autoflush(1);
+
+(Prior to Perl version 5.14, you have to C<use IO::Handle;> explicitly
+first.)
+
+Portability issues: L<perlport/select>.
+
+=item select RBITS,WBITS,EBITS,TIMEOUT
+X<select>
+
+This calls the L<select(2)> syscall with the bit masks specified, which
+can be constructed using L<C<fileno>|/fileno FILEHANDLE> and
+L<C<vec>|/vec EXPR,OFFSET,BITS>, along these lines:
+
+    my $rin = my $win = my $ein = '';
+    vec($rin, fileno(STDIN),  1) = 1;
+    vec($win, fileno(STDOUT), 1) = 1;
+    $ein = $rin | $win;
+
+If you want to select on many filehandles, you may wish to write a
+subroutine like this:
+
+    sub fhbits {
+        my @fhlist = @_;
+        my $bits = "";
+        for my $fh (@fhlist) {
+            vec($bits, fileno($fh), 1) = 1;
+        }
+        return $bits;
+    }
+    my $rin = fhbits(\*STDIN, $tty, $mysock);
+
+The usual idiom is:
+
+ my ($nfound, $timeleft) =
+   select(my $rout = $rin, my $wout = $win, my $eout = $ein,
+                                                          $timeout);
+
+or to block until something becomes ready just do this
+
+ my $nfound =
+   select(my $rout = $rin, my $wout = $win, my $eout = $ein, undef);
+
+Most systems do not bother to return anything useful in C<$timeleft>, so
+calling L<C<select>|/select RBITS,WBITS,EBITS,TIMEOUT> in scalar context
+just returns C<$nfound>.
+
+Any of the bit masks can also be L<C<undef>|/undef EXPR>.  The timeout,
+if specified, is
+in seconds, which may be fractional.  Note: not all implementations are
+capable of returning the C<$timeleft>.  If not, they always return
+C<$timeleft> equal to the supplied C<$timeout>.
+
+You can effect a sleep of 250 milliseconds this way:
+
+    select(undef, undef, undef, 0.25);
+
+Note that whether L<C<select>|/select RBITS,WBITS,EBITS,TIMEOUT> gets
+restarted after signals (say, SIGALRM) is implementation-dependent.  See
+also L<perlport> for notes on the portability of
+L<C<select>|/select RBITS,WBITS,EBITS,TIMEOUT>.
+
+On error, L<C<select>|/select RBITS,WBITS,EBITS,TIMEOUT> behaves just
+like L<select(2)>: it returns C<-1> and sets L<C<$!>|perlvar/$!>.
+
+On some Unixes, L<select(2)> may report a socket file descriptor as
+"ready for reading" even when no data is available, and thus any
+subsequent L<C<read>|/read FILEHANDLE,SCALAR,LENGTH,OFFSET> would block.
+This can be avoided if you always use C<O_NONBLOCK> on the socket.  See
+L<select(2)> and L<fcntl(2)> for further details.
+
+The standard L<C<IO::Select>|IO::Select> module provides a
+user-friendlier interface to
+L<C<select>|/select RBITS,WBITS,EBITS,TIMEOUT>, mostly because it does
+all the bit-mask work for you.
+
+B<WARNING>: One should not attempt to mix buffered I/O (like
+L<C<read>|/read FILEHANDLE,SCALAR,LENGTH,OFFSET> or
+L<C<readline>|/readline EXPR>) with
+L<C<select>|/select RBITS,WBITS,EBITS,TIMEOUT>, except as permitted by
+POSIX, and even then only on POSIX systems.  You have to use
+L<C<sysread>|/sysread FILEHANDLE,SCALAR,LENGTH,OFFSET> instead.
+
+Portability issues: L<perlport/select>.
+
+=item semctl ID,SEMNUM,CMD,ARG
+X<semctl>
+
+=for Pod::Functions SysV semaphore control operations
+
+Calls the System V IPC function L<semctl(2)>.  You'll probably have to say
+
+    use IPC::SysV;
+
+first to get the correct constant definitions.  If CMD is IPC_STAT or
+GETALL, then ARG must be a variable that will hold the returned
+semid_ds structure or semaphore value array.  Returns like
+L<C<ioctl>|/ioctl FILEHANDLE,FUNCTION,SCALAR>:
+the undefined value for error, "C<0 but true>" for zero, or the actual
+return value otherwise.  The ARG must consist of a vector of native
+short integers, which may be created with C<pack("s!",(0)x$nsem)>.
+See also L<perlipc/"SysV IPC"> and the documentation for
+L<C<IPC::SysV>|IPC::SysV> and L<C<IPC::Semaphore>|IPC::Semaphore>.
+
+Portability issues: L<perlport/semctl>.
+
+=item semget KEY,NSEMS,FLAGS
+X<semget>
+
+=for Pod::Functions get set of SysV semaphores
+
+Calls the System V IPC function L<semget(2)>.  Returns the semaphore id, or
+the undefined value on error.  See also
+L<perlipc/"SysV IPC"> and the documentation for
+L<C<IPC::SysV>|IPC::SysV> and L<C<IPC::Semaphore>|IPC::Semaphore>.
+
+Portability issues: L<perlport/semget>.
+
+=item semop KEY,OPSTRING
+X<semop>
+
+=for Pod::Functions SysV semaphore operations
+
+Calls the System V IPC function L<semop(2)> for semaphore operations
+such as signalling and waiting.  OPSTRING must be a packed array of
+semop structures.  Each semop structure can be generated with
+C<pack("s!3", $semnum, $semop, $semflag)>.  The length of OPSTRING
+implies the number of semaphore operations.  Returns true if
+successful, false on error.  As an example, the
+following code waits on semaphore $semnum of semaphore id $semid:
+
+    my $semop = pack("s!3", $semnum, -1, 0);
+    die "Semaphore trouble: $!\n" unless semop($semid, $semop);
+
+To signal the semaphore, replace C<-1> with C<1>.  See also
+L<perlipc/"SysV IPC"> and the documentation for
+L<C<IPC::SysV>|IPC::SysV> and L<C<IPC::Semaphore>|IPC::Semaphore>.
+
+Portability issues: L<perlport/semop>.
+
+=item send SOCKET,MSG,FLAGS,TO
+X<send>
+
+=item send SOCKET,MSG,FLAGS
+
+=for Pod::Functions send a message over a socket
+
+Sends a message on a socket.  Attempts to send the scalar MSG to the SOCKET
+filehandle.  Takes the same flags as the system call of the same name.  On
+unconnected sockets, you must specify a destination to I<send to>, in which
+case it does a L<sendto(2)> syscall.  Returns the number of characters sent,
+or the undefined value on error.  The L<sendmsg(2)> syscall is currently
+unimplemented.  See L<perlipc/"UDP: Message Passing"> for examples.
+
+Note the I<characters>: depending on the status of the socket, either
+(8-bit) bytes or characters are sent.  By default all sockets operate
+on bytes, but for example if the socket has been changed using
+L<C<binmode>|/binmode FILEHANDLE, LAYER> to operate with the
+C<:encoding(utf8)> I/O layer (see L<C<open>|/open FILEHANDLE,EXPR>, or
+the L<open> pragma), the I/O will operate on UTF-8
+encoded Unicode characters, not bytes.  Similarly for the C<:encoding>
+layer: in that case pretty much any characters can be sent.
+
+=item setpgrp PID,PGRP
+X<setpgrp> X<group>
+
+=for Pod::Functions set the process group of a process
+
+Sets the current process group for the specified PID, C<0> for the current
+process.  Raises an exception when used on a machine that doesn't
+implement POSIX L<setpgid(2)> or BSD L<setpgrp(2)>.  If the arguments
+are omitted, it defaults to C<0,0>.  Note that the BSD 4.2 version of
+L<C<setpgrp>|/setpgrp PID,PGRP> does not accept any arguments, so only
+C<setpgrp(0,0)> is portable.  See also
+L<C<POSIX::setsid()>|POSIX/C<setsid>>.
+
+Portability issues: L<perlport/setpgrp>.
+
+=item setpriority WHICH,WHO,PRIORITY
+X<setpriority> X<priority> X<nice> X<renice>
+
+=for Pod::Functions set a process's nice value
+
+Sets the current priority for a process, a process group, or a user.
+(See L<setpriority(2)>.)  Raises an exception when used on a machine
+that doesn't implement L<setpriority(2)>.
+
+Portability issues: L<perlport/setpriority>.
+
+=item setsockopt SOCKET,LEVEL,OPTNAME,OPTVAL
+X<setsockopt>
+
+=for Pod::Functions set some socket options
+
+Sets the socket option requested.  Returns L<C<undef>|/undef EXPR> on
+error.  Use integer constants provided by the L<C<Socket>|Socket> module
+for
+LEVEL and OPNAME.  Values for LEVEL can also be obtained from
+getprotobyname.  OPTVAL might either be a packed string or an integer.
+An integer OPTVAL is shorthand for pack("i", OPTVAL).
+
+An example disabling Nagle's algorithm on a socket:
+
+    use Socket qw(IPPROTO_TCP TCP_NODELAY);
+    setsockopt($socket, IPPROTO_TCP, TCP_NODELAY, 1);
+
+Portability issues: L<perlport/setsockopt>.
+
+=item shift ARRAY
+X<shift>
+
+=item shift
+
+=for Pod::Functions remove the first element of an array, and return it
+
+Shifts the first value of the array off and returns it, shortening the
+array by 1 and moving everything down.  If there are no elements in the
+array, returns the undefined value.  If ARRAY is omitted, shifts the
+L<C<@_>|perlvar/@_> array within the lexical scope of subroutines and
+formats, and the L<C<@ARGV>|perlvar/@ARGV> array outside a subroutine
+and also within the lexical scopes
+established by the C<eval STRING>, C<BEGIN {}>, C<INIT {}>, C<CHECK {}>,
+C<UNITCHECK {}>, and C<END {}> constructs.
+
+Starting with Perl 5.14, an experimental feature allowed
+L<C<shift>|/shift ARRAY> to take a
+scalar expression. This experiment has been deemed unsuccessful, and was
+removed as of Perl 5.24.
+
+See also L<C<unshift>|/unshift ARRAY,LIST>, L<C<push>|/push ARRAY,LIST>,
+and L<C<pop>|/pop ARRAY>.  L<C<shift>|/shift ARRAY> and
+L<C<unshift>|/unshift ARRAY,LIST> do the same thing to the left end of
+an array that L<C<pop>|/pop ARRAY> and L<C<push>|/push ARRAY,LIST> do to
+the right end.
+
+=item shmctl ID,CMD,ARG
+X<shmctl>
+
+=for Pod::Functions SysV shared memory operations
+
+Calls the System V IPC function shmctl.  You'll probably have to say
+
+    use IPC::SysV;
+
+first to get the correct constant definitions.  If CMD is C<IPC_STAT>,
+then ARG must be a variable that will hold the returned C<shmid_ds>
+structure.  Returns like ioctl: L<C<undef>|/undef EXPR> for error; "C<0>
+but true" for zero; and the actual return value otherwise.
+See also L<perlipc/"SysV IPC"> and the documentation for
+L<C<IPC::SysV>|IPC::SysV>.
+
+Portability issues: L<perlport/shmctl>.
+
+=item shmget KEY,SIZE,FLAGS
+X<shmget>
+
+=for Pod::Functions get SysV shared memory segment identifier
+
+Calls the System V IPC function shmget.  Returns the shared memory
+segment id, or L<C<undef>|/undef EXPR> on error.
+See also L<perlipc/"SysV IPC"> and the documentation for
+L<C<IPC::SysV>|IPC::SysV>.
+
+Portability issues: L<perlport/shmget>.
+
+=item shmread ID,VAR,POS,SIZE
+X<shmread>
+X<shmwrite>
+
+=for Pod::Functions read SysV shared memory
+
+=item shmwrite ID,STRING,POS,SIZE
+
+=for Pod::Functions write SysV shared memory
+
+Reads or writes the System V shared memory segment ID starting at
+position POS for size SIZE by attaching to it, copying in/out, and
+detaching from it.  When reading, VAR must be a variable that will
+hold the data read.  When writing, if STRING is too long, only SIZE
+bytes are used; if STRING is too short, nulls are written to fill out
+SIZE bytes.  Return true if successful, false on error.
+L<C<shmread>|/shmread ID,VAR,POS,SIZE> taints the variable.  See also
+L<perlipc/"SysV IPC"> and the documentation for
+L<C<IPC::SysV>|IPC::SysV> and the L<C<IPC::Shareable>|IPC::Shareable>
+module from CPAN.
+
+Portability issues: L<perlport/shmread> and L<perlport/shmwrite>.
+
+=item shutdown SOCKET,HOW
+X<shutdown>
+
+=for Pod::Functions close down just half of a socket connection
+
+Shuts down a socket connection in the manner indicated by HOW, which
+has the same interpretation as in the syscall of the same name.
+
+    shutdown($socket, 0);    # I/we have stopped reading data
+    shutdown($socket, 1);    # I/we have stopped writing data
+    shutdown($socket, 2);    # I/we have stopped using this socket
+
+This is useful with sockets when you want to tell the other
+side you're done writing but not done reading, or vice versa.
+It's also a more insistent form of close because it also
+disables the file descriptor in any forked copies in other
+processes.
+
+Returns C<1> for success; on error, returns L<C<undef>|/undef EXPR> if
+the first argument is not a valid filehandle, or returns C<0> and sets
+L<C<$!>|perlvar/$!> for any other failure.
+
+=item sin EXPR
+X<sin> X<sine> X<asin> X<arcsine>
+
+=item sin
+
+=for Pod::Functions return the sine of a number
+
+Returns the sine of EXPR (expressed in radians).  If EXPR is omitted,
+returns sine of L<C<$_>|perlvar/$_>.
+
+For the inverse sine operation, you may use the C<Math::Trig::asin>
+function, or use this relation:
+
+    sub asin { atan2($_[0], sqrt(1 - $_[0] * $_[0])) }
+
+=item sleep EXPR
+X<sleep> X<pause>
+
+=item sleep
+
+=for Pod::Functions block for some number of seconds
+
+Causes the script to sleep for (integer) EXPR seconds, or forever if no
+argument is given.  Returns the integer number of seconds actually slept.
+
+May be interrupted if the process receives a signal such as C<SIGALRM>.
+
+    eval {
+        local $SIG{ALRM} = sub { die "Alarm!\n" };
+        sleep;
+    };
+    die $@ unless $@ eq "Alarm!\n";
+
+You probably cannot mix L<C<alarm>|/alarm SECONDS> and
+L<C<sleep>|/sleep EXPR> calls, because L<C<sleep>|/sleep EXPR> is often
+implemented using L<C<alarm>|/alarm SECONDS>.
+
+On some older systems, it may sleep up to a full second less than what
+you requested, depending on how it counts seconds.  Most modern systems
+always sleep the full amount.  They may appear to sleep longer than that,
+however, because your process might not be scheduled right away in a
+busy multitasking system.
+
+For delays of finer granularity than one second, the L<Time::HiRes>
+module (from CPAN, and starting from Perl 5.8 part of the standard
+distribution) provides L<C<usleep>|Time::HiRes/usleep ( $useconds )>.
+You may also use Perl's four-argument
+version of L<C<select>|/select RBITS,WBITS,EBITS,TIMEOUT> leaving the
+first three arguments undefined, or you might be able to use the
+L<C<syscall>|/syscall NUMBER, LIST> interface to access L<setitimer(2)>
+if your system supports it.  See L<perlfaq8> for details.
+
+See also the L<POSIX> module's L<C<pause>|POSIX/C<pause>> function.
+
+=item socket SOCKET,DOMAIN,TYPE,PROTOCOL
+X<socket>
+
+=for Pod::Functions create a socket
+
+Opens a socket of the specified kind and attaches it to filehandle
+SOCKET.  DOMAIN, TYPE, and PROTOCOL are specified the same as for
+the syscall of the same name.  You should C<use Socket> first
+to get the proper definitions imported.  See the examples in
+L<perlipc/"Sockets: Client/Server Communication">.
+
+On systems that support a close-on-exec flag on files, the flag will
+be set for the newly opened file descriptor, as determined by the
+value of L<C<$^F>|perlvar/$^F>.  See L<perlvar/$^F>.
+
+=item socketpair SOCKET1,SOCKET2,DOMAIN,TYPE,PROTOCOL
+X<socketpair>
+
+=for Pod::Functions create a pair of sockets
+
+Creates an unnamed pair of sockets in the specified domain, of the
+specified type.  DOMAIN, TYPE, and PROTOCOL are specified the same as
+for the syscall of the same name.  If unimplemented, raises an exception.
+Returns true if successful.
+
+On systems that support a close-on-exec flag on files, the flag will
+be set for the newly opened file descriptors, as determined by the value
+of L<C<$^F>|perlvar/$^F>.  See L<perlvar/$^F>.
+
+Some systems define L<C<pipe>|/pipe READHANDLE,WRITEHANDLE> in terms of
+L<C<socketpair>|/socketpair SOCKET1,SOCKET2,DOMAIN,TYPE,PROTOCOL>, in
+which a call to C<pipe($rdr, $wtr)> is essentially:
+
+    use Socket;
+    socketpair(my $rdr, my $wtr, AF_UNIX, SOCK_STREAM, PF_UNSPEC);
+    shutdown($rdr, 1);        # no more writing for reader
+    shutdown($wtr, 0);        # no more reading for writer
+
+See L<perlipc> for an example of socketpair use.  Perl 5.8 and later will
+emulate socketpair using IP sockets to localhost if your system implements
+sockets but not socketpair.
+
+Portability issues: L<perlport/socketpair>.
+
+=item sort SUBNAME LIST
+X<sort> X<qsort> X<quicksort> X<mergesort>
+
+=item sort BLOCK LIST
+
+=item sort LIST
+
+=for Pod::Functions sort a list of values
+
+In list context, this sorts the LIST and returns the sorted list value.
+In scalar context, the behaviour of L<C<sort>|/sort SUBNAME LIST> is
+undefined.
+
+If SUBNAME or BLOCK is omitted, L<C<sort>|/sort SUBNAME LIST>s in
+standard string comparison
+order.  If SUBNAME is specified, it gives the name of a subroutine
+that returns an integer less than, equal to, or greater than C<0>,
+depending on how the elements of the list are to be ordered.  (The
+C<< <=> >> and C<cmp> operators are extremely useful in such routines.)
+SUBNAME may be a scalar variable name (unsubscripted), in which case
+the value provides the name of (or a reference to) the actual
+subroutine to use.  In place of a SUBNAME, you can provide a BLOCK as
+an anonymous, in-line sort subroutine.
+
+If the subroutine's prototype is C<($$)>, the elements to be compared are
+passed by reference in L<C<@_>|perlvar/@_>, as for a normal subroutine.
+This is slower than unprototyped subroutines, where the elements to be
+compared are passed into the subroutine as the package global variables
+C<$a> and C<$b> (see example below).  Note that in the latter case, it
+is usually highly counter-productive to declare C<$a> and C<$b> as
+lexicals.
+
+If the subroutine is an XSUB, the elements to be compared are pushed on
+to the stack, the way arguments are usually passed to XSUBs.  C<$a> and
+C<$b> are not set.
+
+The values to be compared are always passed by reference and should not
+be modified.
+
+You also cannot exit out of the sort block or subroutine using any of the
+loop control operators described in L<perlsyn> or with
+L<C<goto>|/goto LABEL>.
+
+When L<C<use locale>|locale> (but not C<use locale ':not_characters'>)
+is in effect, C<sort LIST> sorts LIST according to the
+current collation locale.  See L<perllocale>.
+
+L<C<sort>|/sort SUBNAME LIST> returns aliases into the original list,
+much as a for loop's index variable aliases the list elements.  That is,
+modifying an element of a list returned by L<C<sort>|/sort SUBNAME LIST>
+(for example, in a C<foreach>, L<C<map>|/map BLOCK LIST> or
+L<C<grep>|/grep BLOCK LIST>)
+actually modifies the element in the original list.  This is usually
+something to be avoided when writing clear code.
+
+Perl 5.6 and earlier used a quicksort algorithm to implement sort.
+That algorithm was not stable and I<could> go quadratic.  (A I<stable> sort
+preserves the input order of elements that compare equal.  Although
+quicksort's run time is O(NlogN) when averaged over all arrays of
+length N, the time can be O(N**2), I<quadratic> behavior, for some
+inputs.)  In 5.7, the quicksort implementation was replaced with
+a stable mergesort algorithm whose worst-case behavior is O(NlogN).
+But benchmarks indicated that for some inputs, on some platforms,
+the original quicksort was faster.  5.8 has a L<sort> pragma for
+limited control of the sort.  Its rather blunt control of the
+underlying algorithm may not persist into future Perls, but the
+ability to characterize the input or output in implementation
+independent ways quite probably will.
+
+Examples:
+
+    # sort lexically
+    my @articles = sort @files;
+
+    # same thing, but with explicit sort routine
+    my @articles = sort {$a cmp $b} @files;
+
+    # now case-insensitively
+    my @articles = sort {fc($a) cmp fc($b)} @files;
+
+    # same thing in reversed order
+    my @articles = sort {$b cmp $a} @files;
+
+    # sort numerically ascending
+    my @articles = sort {$a <=> $b} @files;
+
+    # sort numerically descending
+    my @articles = sort {$b <=> $a} @files;
+
+    # this sorts the %age hash by value instead of key
+    # using an in-line function
+    my @eldest = sort { $age{$b} <=> $age{$a} } keys %age;
+
+    # sort using explicit subroutine name
+    sub byage {
+        $age{$a} <=> $age{$b};  # presuming numeric
+    }
+    my @sortedclass = sort byage @class;
+
+    sub backwards { $b cmp $a }
+    my @harry  = qw(dog cat x Cain Abel);
+    my @george = qw(gone chased yz Punished Axed);
+    print sort @harry;
+        # prints AbelCaincatdogx
+    print sort backwards @harry;
+        # prints xdogcatCainAbel
+    print sort @george, 'to', @harry;
+        # prints AbelAxedCainPunishedcatchaseddoggonetoxyz
+
+    # inefficiently sort by descending numeric compare using
+    # the first integer after the first = sign, or the
+    # whole record case-insensitively otherwise
+
+    my @new = sort {
+        ($b =~ /=(\d+)/)[0] <=> ($a =~ /=(\d+)/)[0]
+                            ||
+                    fc($a)  cmp  fc($b)
+    } @old;
+
+    # same thing, but much more efficiently;
+    # we'll build auxiliary indices instead
+    # for speed
+    my (@nums, @caps);
+    for (@old) {
+        push @nums, ( /=(\d+)/ ? $1 : undef );
+        push @caps, fc($_);
+    }
+
+    my @new = @old[ sort {
+                           $nums[$b] <=> $nums[$a]
+                                    ||
+                           $caps[$a] cmp $caps[$b]
+                         } 0..$#old
+                  ];
+
+    # same thing, but without any temps
+    my @new = map { $_->[0] }
+           sort { $b->[1] <=> $a->[1]
+                           ||
+                  $a->[2] cmp $b->[2]
+           } map { [$_, /=(\d+)/, fc($_)] } @old;
+
+    # using a prototype allows you to use any comparison subroutine
+    # as a sort subroutine (including other package's subroutines)
+    package Other;
+    sub backwards ($$) { $_[1] cmp $_[0]; }  # $a and $b are
+                                             # not set here
+    package main;
+    my @new = sort Other::backwards @old;
+
+    # guarantee stability, regardless of algorithm
+    use sort 'stable';
+    my @new = sort { substr($a, 3, 5) cmp substr($b, 3, 5) } @old;
+
+    # force use of mergesort (not portable outside Perl 5.8)
+    use sort '_mergesort';  # note discouraging _
+    my @new = sort { substr($a, 3, 5) cmp substr($b, 3, 5) } @old;
+
+Warning: syntactical care is required when sorting the list returned from
+a function.  If you want to sort the list returned by the function call
+C<find_records(@key)>, you can use:
+
+    my @contact = sort { $a cmp $b } find_records @key;
+    my @contact = sort +find_records(@key);
+    my @contact = sort &find_records(@key);
+    my @contact = sort(find_records(@key));
+
+If instead you want to sort the array C<@key> with the comparison routine
+C<find_records()> then you can use:
+
+    my @contact = sort { find_records() } @key;
+    my @contact = sort find_records(@key);
+    my @contact = sort(find_records @key);
+    my @contact = sort(find_records (@key));
+
+You I<must not> declare C<$a>
+and C<$b> as lexicals.  They are package globals.  That means
+that if you're in the C<main> package and type
+
+    my @articles = sort {$b <=> $a} @files;
+
+then C<$a> and C<$b> are C<$main::a> and C<$main::b> (or C<$::a> and C<$::b>),
+but if you're in the C<FooPack> package, it's the same as typing
+
+    my @articles = sort {$FooPack::b <=> $FooPack::a} @files;
+
+The comparison function is required to behave.  If it returns
+inconsistent results (sometimes saying C<$x[1]> is less than C<$x[2]> and
+sometimes saying the opposite, for example) the results are not
+well-defined.
+
+Because C<< <=> >> returns L<C<undef>|/undef EXPR> when either operand
+is C<NaN> (not-a-number), be careful when sorting with a
+comparison function like C<< $a <=> $b >> any lists that might contain a
+C<NaN>.  The following example takes advantage that C<NaN != NaN> to
+eliminate any C<NaN>s from the input list.
+
+    my @result = sort { $a <=> $b } grep { $_ == $_ } @input;
+
+=item splice ARRAY,OFFSET,LENGTH,LIST
+X<splice>
+
+=item splice ARRAY,OFFSET,LENGTH
+
+=item splice ARRAY,OFFSET
+
+=item splice ARRAY
+
+=for Pod::Functions add or remove elements anywhere in an array
+
+Removes the elements designated by OFFSET and LENGTH from an array, and
+replaces them with the elements of LIST, if any.  In list context,
+returns the elements removed from the array.  In scalar context,
+returns the last element removed, or L<C<undef>|/undef EXPR> if no
+elements are
+removed.  The array grows or shrinks as necessary.
+If OFFSET is negative then it starts that far from the end of the array.
+If LENGTH is omitted, removes everything from OFFSET onward.
+If LENGTH is negative, removes the elements from OFFSET onward
+except for -LENGTH elements at the end of the array.
+If both OFFSET and LENGTH are omitted, removes everything.  If OFFSET is
+past the end of the array and a LENGTH was provided, Perl issues a warning,
+and splices at the end of the array.
+
+The following equivalences hold (assuming C<< $#a >= $i >> )
+
+    push(@a,$x,$y)      splice(@a,@a,0,$x,$y)
+    pop(@a)             splice(@a,-1)
+    shift(@a)           splice(@a,0,1)
+    unshift(@a,$x,$y)   splice(@a,0,0,$x,$y)
+    $a[$i] = $y         splice(@a,$i,1,$y)
+
+L<C<splice>|/splice ARRAY,OFFSET,LENGTH,LIST> can be used, for example,
+to implement n-ary queue processing:
+
+    sub nary_print {
+      my $n = shift;
+      while (my @next_n = splice @_, 0, $n) {
+        say join q{ -- }, @next_n;
+      }
+    }
+
+    nary_print(3, qw(a b c d e f g h));
+    # prints:
+    #   a -- b -- c
+    #   d -- e -- f
+    #   g -- h
+
+Starting with Perl 5.14, an experimental feature allowed
+L<C<splice>|/splice ARRAY,OFFSET,LENGTH,LIST> to take a
+scalar expression. This experiment has been deemed unsuccessful, and was
+removed as of Perl 5.24.
+
+=item split /PATTERN/,EXPR,LIMIT
+X<split>
+
+=item split /PATTERN/,EXPR
+
+=item split /PATTERN/
+
+=item split
+
+=for Pod::Functions split up a string using a regexp delimiter
+
+Splits the string EXPR into a list of strings and returns the
+list in list context, or the size of the list in scalar context.
+
+If only PATTERN is given, EXPR defaults to L<C<$_>|perlvar/$_>.
+
+Anything in EXPR that matches PATTERN is taken to be a separator
+that separates the EXPR into substrings (called "I<fields>") that
+do B<not> include the separator.  Note that a separator may be
+longer than one character or even have no characters at all (the
+empty string, which is a zero-width match).
+
+The PATTERN need not be constant; an expression may be used
+to specify a pattern that varies at runtime.
+
+If PATTERN matches the empty string, the EXPR is split at the match
+position (between characters).  As an example, the following:
+
+    print join(':', split(/b/, 'abc')), "\n";
+
+uses the C<b> in C<'abc'> as a separator to produce the output C<a:c>.
+However, this:
+
+    print join(':', split(//, 'abc')), "\n";
+
+uses empty string matches as separators to produce the output
+C<a:b:c>; thus, the empty string may be used to split EXPR into a
+list of its component characters.
+
+As a special case for L<C<split>|/split E<sol>PATTERNE<sol>,EXPR,LIMIT>,
+the empty pattern given in
+L<match operator|perlop/"m/PATTERN/msixpodualngc"> syntax (C<//>)
+specifically matches the empty string, which is contrary to its usual
+interpretation as the last successful match.
+
+If PATTERN is C</^/>, then it is treated as if it used the
+L<multiline modifier|perlreref/OPERATORS> (C</^/m>), since it
+isn't much use otherwise.
+
+As another special case,
+L<C<split>|/split E<sol>PATTERNE<sol>,EXPR,LIMIT> emulates the default
+behavior of the
+command line tool B<awk> when the PATTERN is either omitted or a
+string composed of a single space character (such as S<C<' '>> or
+S<C<"\x20">>, but not e.g. S<C</ />>).  In this case, any leading
+whitespace in EXPR is removed before splitting occurs, and the PATTERN is
+instead treated as if it were C</\s+/>; in particular, this means that
+I<any> contiguous whitespace (not just a single space character) is used as
+a separator.  However, this special treatment can be avoided by specifying
+the pattern S<C</ />> instead of the string S<C<" ">>, thereby allowing
+only a single space character to be a separator.  In earlier Perls this
+special case was restricted to the use of a plain S<C<" ">> as the
+pattern argument to split; in Perl 5.18.0 and later this special case is
+triggered by any expression which evaluates to the simple string S<C<" ">>.
+
+If omitted, PATTERN defaults to a single space, S<C<" ">>, triggering
+the previously described I<awk> emulation.
+
+If LIMIT is specified and positive, it represents the maximum number
+of fields into which the EXPR may be split; in other words, LIMIT is
+one greater than the maximum number of times EXPR may be split.  Thus,
+the LIMIT value C<1> means that EXPR may be split a maximum of zero
+times, producing a maximum of one field (namely, the entire value of
+EXPR).  For instance:
+
+    print join(':', split(//, 'abc', 1)), "\n";
+
+produces the output C<abc>, and this:
+
+    print join(':', split(//, 'abc', 2)), "\n";
+
+produces the output C<a:bc>, and each of these:
+
+    print join(':', split(//, 'abc', 3)), "\n";
+    print join(':', split(//, 'abc', 4)), "\n";
+
+produces the output C<a:b:c>.
+
+If LIMIT is negative, it is treated as if it were instead arbitrarily
+large; as many fields as possible are produced.
+
+If LIMIT is omitted (or, equivalently, zero), then it is usually
+treated as if it were instead negative but with the exception that
+trailing empty fields are stripped (empty leading fields are always
+preserved); if all fields are empty, then all fields are considered to
+be trailing (and are thus stripped in this case).  Thus, the following:
+
+    print join(':', split(/,/, 'a,b,c,,,')), "\n";
+
+produces the output C<a:b:c>, but the following:
+
+    print join(':', split(/,/, 'a,b,c,,,', -1)), "\n";
+
+produces the output C<a:b:c:::>.
+
+In time-critical applications, it is worthwhile to avoid splitting
+into more fields than necessary.  Thus, when assigning to a list,
+if LIMIT is omitted (or zero), then LIMIT is treated as though it
+were one larger than the number of variables in the list; for the
+following, LIMIT is implicitly 3:
+
+    my ($login, $passwd) = split(/:/);
+
+Note that splitting an EXPR that evaluates to the empty string always
+produces zero fields, regardless of the LIMIT specified.
+
+An empty leading field is produced when there is a positive-width
+match at the beginning of EXPR.  For instance:
+
+    print join(':', split(/ /, ' abc')), "\n";
+
+produces the output C<:abc>.  However, a zero-width match at the
+beginning of EXPR never produces an empty field, so that:
+
+    print join(':', split(//, ' abc'));
+
+produces the output S<C< :a:b:c>> (rather than S<C<: :a:b:c>>).
+
+An empty trailing field, on the other hand, is produced when there is a
+match at the end of EXPR, regardless of the length of the match
+(of course, unless a non-zero LIMIT is given explicitly, such fields are
+removed, as in the last example).  Thus:
+
+    print join(':', split(//, ' abc', -1)), "\n";
+
+produces the output S<C< :a:b:c:>>.
+
+If the PATTERN contains
+L<capturing groups|perlretut/Grouping things and hierarchical matching>,
+then for each separator, an additional field is produced for each substring
+captured by a group (in the order in which the groups are specified,
+as per L<backreferences|perlretut/Backreferences>); if any group does not
+match, then it captures the L<C<undef>|/undef EXPR> value instead of a
+substring.  Also,
+note that any such additional field is produced whenever there is a
+separator (that is, whenever a split occurs), and such an additional field
+does B<not> count towards the LIMIT.  Consider the following expressions
+evaluated in list context (each returned list is provided in the associated
+comment):
+
+    split(/-|,/, "1-10,20", 3)
+    # ('1', '10', '20')
+
+    split(/(-|,)/, "1-10,20", 3)
+    # ('1', '-', '10', ',', '20')
+
+    split(/-|(,)/, "1-10,20", 3)
+    # ('1', undef, '10', ',', '20')
+
+    split(/(-)|,/, "1-10,20", 3)
+    # ('1', '-', '10', undef, '20')
+
+    split(/(-)|(,)/, "1-10,20", 3)
+    # ('1', '-', undef, '10', undef, ',', '20')
+
+=item sprintf FORMAT, LIST
+X<sprintf>
+
+=for Pod::Functions formatted print into a string
+
+Returns a string formatted by the usual
+L<C<printf>|/printf FILEHANDLE FORMAT, LIST> conventions of the C
+library function L<C<sprintf>|/sprintf FORMAT, LIST>.  See below for
+more details and see L<sprintf(3)> or L<printf(3)> on your system for an
+explanation of the general principles.
+
+For example:
+
+        # Format number with up to 8 leading zeroes
+        my $result = sprintf("%08d", $number);
+
+        # Round number to 3 digits after decimal point
+        my $rounded = sprintf("%.3f", $number);
+
+Perl does its own L<C<sprintf>|/sprintf FORMAT, LIST> formatting: it
+emulates the C
+function L<sprintf(3)>, but doesn't use it except for floating-point
+numbers, and even then only standard modifiers are allowed.
+Non-standard extensions in your local L<sprintf(3)> are
+therefore unavailable from Perl.
+
+Unlike L<C<printf>|/printf FILEHANDLE FORMAT, LIST>,
+L<C<sprintf>|/sprintf FORMAT, LIST> does not do what you probably mean
+when you pass it an array as your first argument.
+The array is given scalar context,
+and instead of using the 0th element of the array as the format, Perl will
+use the count of elements in the array as the format, which is almost never
+useful.
+
+Perl's L<C<sprintf>|/sprintf FORMAT, LIST> permits the following
+universally-known conversions:
+
+   %%    a percent sign
+   %c    a character with the given number
+   %s    a string
+   %d    a signed integer, in decimal
+   %u    an unsigned integer, in decimal
+   %o    an unsigned integer, in octal
+   %x    an unsigned integer, in hexadecimal
+   %e    a floating-point number, in scientific notation
+   %f    a floating-point number, in fixed decimal notation
+   %g    a floating-point number, in %e or %f notation
+
+In addition, Perl permits the following widely-supported conversions:
+
+   %X    like %x, but using upper-case letters
+   %E    like %e, but using an upper-case "E"
+   %G    like %g, but with an upper-case "E" (if applicable)
+   %b    an unsigned integer, in binary
+   %B    like %b, but using an upper-case "B" with the # flag
+   %p    a pointer (outputs the Perl value's address in hexadecimal)
+   %n    special: *stores* the number of characters output so far
+         into the next argument in the parameter list
+   %a    hexadecimal floating point
+   %A    like %a, but using upper-case letters
+
+Finally, for backward (and we do mean "backward") compatibility, Perl
+permits these unnecessary but widely-supported conversions:
+
+   %i    a synonym for %d
+   %D    a synonym for %ld
+   %U    a synonym for %lu
+   %O    a synonym for %lo
+   %F    a synonym for %f
+
+Note that the number of exponent digits in the scientific notation produced
+by C<%e>, C<%E>, C<%g> and C<%G> for numbers with the modulus of the
+exponent less than 100 is system-dependent: it may be three or less
+(zero-padded as necessary).  In other words, 1.23 times ten to the
+99th may be either "1.23e99" or "1.23e099".  Similarly for C<%a> and C<%A>:
+the exponent or the hexadecimal digits may float: especially the
+"long doubles" Perl configuration option may cause surprises.
+
+Between the C<%> and the format letter, you may specify several
+additional attributes controlling the interpretation of the format.
+In order, these are:
+
+=over 4
+
+=item format parameter index
+
+An explicit format parameter index, such as C<2$>.  By default sprintf
+will format the next unused argument in the list, but this allows you
+to take the arguments out of order:
+
+  printf '%2$d %1$d', 12, 34;      # prints "34 12"
+  printf '%3$d %d %1$d', 1, 2, 3;  # prints "3 1 1"
+
+=item flags
+
+one or more of:
+
+   space   prefix non-negative number with a space
+   +       prefix non-negative number with a plus sign
+   -       left-justify within the field
+   0       use zeros, not spaces, to right-justify
+   #       ensure the leading "0" for any octal,
+           prefix non-zero hexadecimal with "0x" or "0X",
+           prefix non-zero binary with "0b" or "0B"
+
+For example:
+
+  printf '<% d>',  12;   # prints "< 12>"
+  printf '<% d>',   0;   # prints "< 0>"
+  printf '<% d>', -12;   # prints "<-12>"
+  printf '<%+d>',  12;   # prints "<+12>"
+  printf '<%+d>',   0;   # prints "<+0>"
+  printf '<%+d>', -12;   # prints "<-12>"
+  printf '<%6s>',  12;   # prints "<    12>"
+  printf '<%-6s>', 12;   # prints "<12    >"
+  printf '<%06s>', 12;   # prints "<000012>"
+  printf '<%#o>',  12;   # prints "<014>"
+  printf '<%#x>',  12;   # prints "<0xc>"
+  printf '<%#X>',  12;   # prints "<0XC>"
+  printf '<%#b>',  12;   # prints "<0b1100>"
+  printf '<%#B>',  12;   # prints "<0B1100>"
+
+When a space and a plus sign are given as the flags at once,
+the space is ignored.
+
+  printf '<%+ d>', 12;   # prints "<+12>"
+  printf '<% +d>', 12;   # prints "<+12>"
+
+When the # flag and a precision are given in the %o conversion,
+the precision is incremented if it's necessary for the leading "0".
+
+  printf '<%#.5o>', 012;      # prints "<00012>"
+  printf '<%#.5o>', 012345;   # prints "<012345>"
+  printf '<%#.0o>', 0;        # prints "<0>"
+
+=item vector flag
+
+This flag tells Perl to interpret the supplied string as a vector of
+integers, one for each character in the string.  Perl applies the format to
+each integer in turn, then joins the resulting strings with a separator (a
+dot C<.> by default).  This can be useful for displaying ordinal values of
+characters in arbitrary strings:
+
+  printf "%vd", "AB\x{100}";           # prints "65.66.256"
+  printf "version is v%vd\n", $^V;     # Perl's version
+
+Put an asterisk C<*> before the C<v> to override the string to
+use to separate the numbers:
+
+  printf "address is %*vX\n", ":", $addr;   # IPv6 address
+  printf "bits are %0*v8b\n", " ", $bits;   # random bitstring
+
+You can also explicitly specify the argument number to use for
+the join string using something like C<*2$v>; for example:
+
+  printf '%*4$vX %*4$vX %*4$vX',       # 3 IPv6 addresses
+          @addr[1..3], ":";
+
+=item (minimum) width
+
+Arguments are usually formatted to be only as wide as required to
+display the given value.  You can override the width by putting
+a number here, or get the width from the next argument (with C<*>)
+or from a specified argument (e.g., with C<*2$>):
+
+ printf "<%s>", "a";       # prints "<a>"
+ printf "<%6s>", "a";      # prints "<     a>"
+ printf "<%*s>", 6, "a";   # prints "<     a>"
+ printf '<%*2$s>', "a", 6; # prints "<     a>"
+ printf "<%2s>", "long";   # prints "<long>" (does not truncate)
+
+If a field width obtained through C<*> is negative, it has the same
+effect as the C<-> flag: left-justification.
+
+=item precision, or maximum width
+X<precision>
+
+You can specify a precision (for numeric conversions) or a maximum
+width (for string conversions) by specifying a C<.> followed by a number.
+For floating-point formats except C<g> and C<G>, this specifies
+how many places right of the decimal point to show (the default being 6).
+For example:
+
+  # these examples are subject to system-specific variation
+  printf '<%f>', 1;    # prints "<1.000000>"
+  printf '<%.1f>', 1;  # prints "<1.0>"
+  printf '<%.0f>', 1;  # prints "<1>"
+  printf '<%e>', 10;   # prints "<1.000000e+01>"
+  printf '<%.1e>', 10; # prints "<1.0e+01>"
+
+For "g" and "G", this specifies the maximum number of digits to show,
+including those prior to the decimal point and those after it; for
+example:
+
+  # These examples are subject to system-specific variation.
+  printf '<%g>', 1;        # prints "<1>"
+  printf '<%.10g>', 1;     # prints "<1>"
+  printf '<%g>', 100;      # prints "<100>"
+  printf '<%.1g>', 100;    # prints "<1e+02>"
+  printf '<%.2g>', 100.01; # prints "<1e+02>"
+  printf '<%.5g>', 100.01; # prints "<100.01>"
+  printf '<%.4g>', 100.01; # prints "<100>"
+
+For integer conversions, specifying a precision implies that the
+output of the number itself should be zero-padded to this width,
+where the 0 flag is ignored:
+
+  printf '<%.6d>', 1;      # prints "<000001>"
+  printf '<%+.6d>', 1;     # prints "<+000001>"
+  printf '<%-10.6d>', 1;   # prints "<000001    >"
+  printf '<%10.6d>', 1;    # prints "<    000001>"
+  printf '<%010.6d>', 1;   # prints "<    000001>"
+  printf '<%+10.6d>', 1;   # prints "<   +000001>"
+
+  printf '<%.6x>', 1;      # prints "<000001>"
+  printf '<%#.6x>', 1;     # prints "<0x000001>"
+  printf '<%-10.6x>', 1;   # prints "<000001    >"
+  printf '<%10.6x>', 1;    # prints "<    000001>"
+  printf '<%010.6x>', 1;   # prints "<    000001>"
+  printf '<%#10.6x>', 1;   # prints "<  0x000001>"
+
+For string conversions, specifying a precision truncates the string
+to fit the specified width:
+
+  printf '<%.5s>', "truncated";   # prints "<trunc>"
+  printf '<%10.5s>', "truncated"; # prints "<     trunc>"
+
+You can also get the precision from the next argument using C<.*>, or from a
+specified argument (e.g., with C<.*2$>):
+
+  printf '<%.6x>', 1;       # prints "<000001>"
+  printf '<%.*x>', 6, 1;    # prints "<000001>"
+
+  printf '<%.*2$x>', 1, 6;  # prints "<000001>"
+
+  printf '<%6.*2$x>', 1, 4; # prints "<  0001>"
+
+If a precision obtained through C<*> is negative, it counts
+as having no precision at all.
+
+  printf '<%.*s>',  7, "string";   # prints "<string>"
+  printf '<%.*s>',  3, "string";   # prints "<str>"
+  printf '<%.*s>',  0, "string";   # prints "<>"
+  printf '<%.*s>', -1, "string";   # prints "<string>"
+
+  printf '<%.*d>',  1, 0;   # prints "<0>"
+  printf '<%.*d>',  0, 0;   # prints "<>"
+  printf '<%.*d>', -1, 0;   # prints "<0>"
+
+=item size
+
+For numeric conversions, you can specify the size to interpret the
+number as using C<l>, C<h>, C<V>, C<q>, C<L>, or C<ll>.  For integer
+conversions (C<d u o x X b i D U O>), numbers are usually assumed to be
+whatever the default integer size is on your platform (usually 32 or 64
+bits), but you can override this to use instead one of the standard C types,
+as supported by the compiler used to build Perl:
+
+   hh          interpret integer as C type "char" or "unsigned
+               char" on Perl 5.14 or later
+   h           interpret integer as C type "short" or
+               "unsigned short"
+   j           interpret integer as C type "intmax_t" on Perl
+               5.14 or later, and only with a C99 compiler
+               (unportable)
+   l           interpret integer as C type "long" or
+               "unsigned long"
+   q, L, or ll interpret integer as C type "long long",
+               "unsigned long long", or "quad" (typically
+               64-bit integers)
+   t           interpret integer as C type "ptrdiff_t" on Perl
+               5.14 or later
+   z           interpret integer as C type "size_t" on Perl 5.14
+               or later
+
+As of 5.14, none of these raises an exception if they are not supported on
+your platform.  However, if warnings are enabled, a warning of the
+L<C<printf>|warnings> warning class is issued on an unsupported
+conversion flag.  Should you instead prefer an exception, do this:
+
+    use warnings FATAL => "printf";
+
+If you would like to know about a version dependency before you
+start running the program, put something like this at its top:
+
+    use 5.014;  # for hh/j/t/z/ printf modifiers
+
+You can find out whether your Perl supports quads via L<Config>:
+
+    use Config;
+    if ($Config{use64bitint} eq "define"
+        || $Config{longsize} >= 8) {
+        print "Nice quads!\n";
+    }
+
+For floating-point conversions (C<e f g E F G>), numbers are usually assumed
+to be the default floating-point size on your platform (double or long double),
+but you can force "long double" with C<q>, C<L>, or C<ll> if your
+platform supports them.  You can find out whether your Perl supports long
+doubles via L<Config>:
+
+    use Config;
+    print "long doubles\n" if $Config{d_longdbl} eq "define";
+
+You can find out whether Perl considers "long double" to be the default
+floating-point size to use on your platform via L<Config>:
+
+    use Config;
+    if ($Config{uselongdouble} eq "define") {
+        print "long doubles by default\n";
+    }
+
+It can also be that long doubles and doubles are the same thing:
+
+        use Config;
+        ($Config{doublesize} == $Config{longdblsize}) &&
+                print "doubles are long doubles\n";
+
+The size specifier C<V> has no effect for Perl code, but is supported for
+compatibility with XS code.  It means "use the standard size for a Perl
+integer or floating-point number", which is the default.
+
+=item order of arguments
+
+Normally, L<C<sprintf>|/sprintf FORMAT, LIST> takes the next unused
+argument as the value to
+format for each format specification.  If the format specification
+uses C<*> to require additional arguments, these are consumed from
+the argument list in the order they appear in the format
+specification I<before> the value to format.  Where an argument is
+specified by an explicit index, this does not affect the normal
+order for the arguments, even when the explicitly specified index
+would have been the next argument.
+
+So:
+
+    printf "<%*.*s>", $a, $b, $c;
+
+uses C<$a> for the width, C<$b> for the precision, and C<$c>
+as the value to format; while:
+
+  printf '<%*1$.*s>', $a, $b;
+
+would use C<$a> for the width and precision, and C<$b> as the
+value to format.
+
+Here are some more examples; be aware that when using an explicit
+index, the C<$> may need escaping:
+
+ printf "%2\$d %d\n",      12, 34;     # will print "34 12\n"
+ printf "%2\$d %d %d\n",   12, 34;     # will print "34 12 34\n"
+ printf "%3\$d %d %d\n",   12, 34, 56; # will print "56 12 34\n"
+ printf "%2\$*3\$d %d\n",  12, 34,  3; # will print " 34 12\n"
+ printf "%*1\$.*f\n",       4,  5, 10; # will print "5.0000\n"
+
+=back
+
+If L<C<use locale>|locale> (including C<use locale ':not_characters'>)
+is in effect and L<C<POSIX::setlocale>|POSIX/C<setlocale>> has been
+called,
+the character used for the decimal separator in formatted floating-point
+numbers is affected by the C<LC_NUMERIC> locale.  See L<perllocale>
+and L<POSIX>.
+
+=item sqrt EXPR
+X<sqrt> X<root> X<square root>
+
+=item sqrt
+
+=for Pod::Functions square root function
+
+Return the positive square root of EXPR.  If EXPR is omitted, uses
+L<C<$_>|perlvar/$_>.  Works only for non-negative operands unless you've
+loaded the L<C<Math::Complex>|Math::Complex> module.
+
+    use Math::Complex;
+    print sqrt(-4);    # prints 2i
+
+=item srand EXPR
+X<srand> X<seed> X<randseed>
+
+=item srand
+
+=for Pod::Functions seed the random number generator
+
+Sets and returns the random number seed for the L<C<rand>|/rand EXPR>
+operator.
+
+The point of the function is to "seed" the L<C<rand>|/rand EXPR>
+function so that L<C<rand>|/rand EXPR> can produce a different sequence
+each time you run your program.  When called with a parameter,
+L<C<srand>|/srand EXPR> uses that for the seed; otherwise it
+(semi-)randomly chooses a seed.  In either case, starting with Perl 5.14,
+it returns the seed.  To signal that your code will work I<only> on Perls
+of a recent vintage:
+
+    use 5.014;	# so srand returns the seed
+
+If L<C<srand>|/srand EXPR> is not called explicitly, it is called
+implicitly without a parameter at the first use of the
+L<C<rand>|/rand EXPR> operator.  However, there are a few situations
+where programs are likely to want to call L<C<srand>|/srand EXPR>.  One
+is for generating predictable results, generally for testing or
+debugging.  There, you use C<srand($seed)>, with the same C<$seed> each
+time.  Another case is that you may want to call L<C<srand>|/srand EXPR>
+after a L<C<fork>|/fork> to avoid child processes sharing the same seed
+value as the parent (and consequently each other).
+
+Do B<not> call C<srand()> (i.e., without an argument) more than once per
+process.  The internal state of the random number generator should
+contain more entropy than can be provided by any seed, so calling
+L<C<srand>|/srand EXPR> again actually I<loses> randomness.
+
+Most implementations of L<C<srand>|/srand EXPR> take an integer and will
+silently
+truncate decimal numbers.  This means C<srand(42)> will usually
+produce the same results as C<srand(42.1)>.  To be safe, always pass
+L<C<srand>|/srand EXPR> an integer.
+
+A typical use of the returned seed is for a test program which has too many
+combinations to test comprehensively in the time available to it each run.  It
+can test a random subset each time, and should there be a failure, log the seed
+used for that run so that it can later be used to reproduce the same results.
+
+B<L<C<rand>|/rand EXPR> is not cryptographically secure.  You should not rely
+on it in security-sensitive situations.>  As of this writing, a
+number of third-party CPAN modules offer random number generators
+intended by their authors to be cryptographically secure,
+including: L<Data::Entropy>, L<Crypt::Random>, L<Math::Random::Secure>,
+and L<Math::TrulyRandom>.
+
+=item stat FILEHANDLE
+X<stat> X<file, status> X<ctime>
+
+=item stat EXPR
+
+=item stat DIRHANDLE
+
+=item stat
+
+=for Pod::Functions get a file's status information
+
+Returns a 13-element list giving the status info for a file, either
+the file opened via FILEHANDLE or DIRHANDLE, or named by EXPR.  If EXPR is
+omitted, it stats L<C<$_>|perlvar/$_> (not C<_>!).  Returns the empty
+list if L<C<stat>|/stat FILEHANDLE> fails.  Typically
+used as follows:
+
+    my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
+        $atime,$mtime,$ctime,$blksize,$blocks)
+           = stat($filename);
+
+Not all fields are supported on all filesystem types.  Here are the
+meanings of the fields:
+
+  0 dev      device number of filesystem
+  1 ino      inode number
+  2 mode     file mode  (type and permissions)
+  3 nlink    number of (hard) links to the file
+  4 uid      numeric user ID of file's owner
+  5 gid      numeric group ID of file's owner
+  6 rdev     the device identifier (special files only)
+  7 size     total size of file, in bytes
+  8 atime    last access time in seconds since the epoch
+  9 mtime    last modify time in seconds since the epoch
+ 10 ctime    inode change time in seconds since the epoch (*)
+ 11 blksize  preferred I/O size in bytes for interacting with the
+             file (may vary from file to file)
+ 12 blocks   actual number of system-specific blocks allocated
+             on disk (often, but not always, 512 bytes each)
+
+(The epoch was at 00:00 January 1, 1970 GMT.)
+
+(*) Not all fields are supported on all filesystem types.  Notably, the
+ctime field is non-portable.  In particular, you cannot expect it to be a
+"creation time"; see L<perlport/"Files and Filesystems"> for details.
+
+If L<C<stat>|/stat FILEHANDLE> is passed the special filehandle
+consisting of an underline, no stat is done, but the current contents of
+the stat structure from the last L<C<stat>|/stat FILEHANDLE>,
+L<C<lstat>|/lstat FILEHANDLE>, or filetest are returned.  Example:
+
+    if (-x $file && (($d) = stat(_)) && $d < 0) {
+        print "$file is executable NFS file\n";
+    }
+
+(This works on machines only for which the device number is negative
+under NFS.)
+
+Because the mode contains both the file type and its permissions, you
+should mask off the file type portion and (s)printf using a C<"%o">
+if you want to see the real permissions.
+
+    my $mode = (stat($filename))[2];
+    printf "Permissions are %04o\n", $mode & 07777;
+
+In scalar context, L<C<stat>|/stat FILEHANDLE> returns a boolean value
+indicating success
+or failure, and, if successful, sets the information associated with
+the special filehandle C<_>.
+
+The L<File::stat> module provides a convenient, by-name access mechanism:
+
+    use File::stat;
+    my $sb = stat($filename);
+    printf "File is %s, size is %s, perm %04o, mtime %s\n",
+           $filename, $sb->size, $sb->mode & 07777,
+           scalar localtime $sb->mtime;
+
+You can import symbolic mode constants (C<S_IF*>) and functions
+(C<S_IS*>) from the L<Fcntl> module:
+
+    use Fcntl ':mode';
+
+    my $mode = (stat($filename))[2];
+
+    my $user_rwx      = ($mode & S_IRWXU) >> 6;
+    my $group_read    = ($mode & S_IRGRP) >> 3;
+    my $other_execute =  $mode & S_IXOTH;
+
+    printf "Permissions are %04o\n", S_IMODE($mode), "\n";
+
+    my $is_setuid     =  $mode & S_ISUID;
+    my $is_directory  =  S_ISDIR($mode);
+
+You could write the last two using the C<-u> and C<-d> operators.
+Commonly available C<S_IF*> constants are:
+
+    # Permissions: read, write, execute, for user, group, others.
+
+    S_IRWXU S_IRUSR S_IWUSR S_IXUSR
+    S_IRWXG S_IRGRP S_IWGRP S_IXGRP
+    S_IRWXO S_IROTH S_IWOTH S_IXOTH
+
+    # Setuid/Setgid/Stickiness/SaveText.
+    # Note that the exact meaning of these is system-dependent.
+
+    S_ISUID S_ISGID S_ISVTX S_ISTXT
+
+    # File types.  Not all are necessarily available on
+    # your system.
+
+    S_IFREG S_IFDIR S_IFLNK S_IFBLK S_IFCHR
+    S_IFIFO S_IFSOCK S_IFWHT S_ENFMT
+
+    # The following are compatibility aliases for S_IRUSR,
+    # S_IWUSR, and S_IXUSR.
+
+    S_IREAD S_IWRITE S_IEXEC
+
+and the C<S_IF*> functions are
+
+    S_IMODE($mode)    the part of $mode containing the permission
+                      bits and the setuid/setgid/sticky bits
+
+    S_IFMT($mode)     the part of $mode containing the file type
+                      which can be bit-anded with (for example)
+                      S_IFREG or with the following functions
+
+    # The operators -f, -d, -l, -b, -c, -p, and -S.
+
+    S_ISREG($mode) S_ISDIR($mode) S_ISLNK($mode)
+    S_ISBLK($mode) S_ISCHR($mode) S_ISFIFO($mode) S_ISSOCK($mode)
+
+    # No direct -X operator counterpart, but for the first one
+    # the -g operator is often equivalent.  The ENFMT stands for
+    # record flocking enforcement, a platform-dependent feature.
+
+    S_ISENFMT($mode) S_ISWHT($mode)
+
+See your native L<chmod(2)> and L<stat(2)> documentation for more details
+about the C<S_*> constants.  To get status info for a symbolic link
+instead of the target file behind the link, use the
+L<C<lstat>|/lstat FILEHANDLE> function.
+
+Portability issues: L<perlport/stat>.
+
+=item state VARLIST
+X<state>
+
+=item state TYPE VARLIST
+
+=item state VARLIST : ATTRS
+
+=item state TYPE VARLIST : ATTRS
+
+=for Pod::Functions +state declare and assign a persistent lexical variable
+
+L<C<state>|/state VARLIST> declares a lexically scoped variable, just
+like L<C<my>|/my VARLIST>.
+However, those variables will never be reinitialized, contrary to
+lexical variables that are reinitialized each time their enclosing block
+is entered.
+See L<perlsub/"Persistent Private Variables"> for details.
+
+If more than one variable is listed, the list must be placed in
+parentheses.  With a parenthesised list, L<C<undef>|/undef EXPR> can be
+used as a
+dummy placeholder.  However, since initialization of state variables in
+list context is currently not possible this would serve no purpose.
+
+L<C<state>|/state VARLIST> is available only if the
+L<C<"state"> feature|feature/The 'state' feature> is enabled or if it is
+prefixed with C<CORE::>.  The
+L<C<"state"> feature|feature/The 'state' feature> is enabled
+automatically with a C<use v5.10> (or higher) declaration in the current
+scope.
+
+
+=item study SCALAR
+X<study>
+
+=item study
+
+=for Pod::Functions optimize input data for repeated searches
+
+B<Note that since Perl version 5.16 this function has been a no-op, but
+this might change in a future release.>
+
+May take extra time to study SCALAR (L<C<$_>|perlvar/$_> if unspecified)
+in anticipation
+of doing many pattern matches on the string before it is next modified.
+This may or may not save time, depending on the nature and number of
+patterns you are searching and the distribution of character
+frequencies in the string to be searched; you probably want to compare
+run times with and without it to see which is faster.  Those loops
+that scan for many short constant strings (including the constant
+parts of more complex patterns) will benefit most.
+
+(The way L<C<study>|/study SCALAR> used to work is this: a linked list
+of every
+character in the string to be searched is made, so we know, for
+example, where all the C<'k'> characters are.  From each search string,
+the rarest character is selected, based on some static frequency tables
+constructed from some C programs and English text.  Only those places
+that contain this "rarest" character are examined.)
+
+For example, here is a loop that inserts index producing entries
+before any line containing a certain pattern:
+
+    while (<>) {
+        study;
+        print ".IX foo\n"    if /\bfoo\b/;
+        print ".IX bar\n"    if /\bbar\b/;
+        print ".IX blurfl\n" if /\bblurfl\b/;
+        # ...
+        print;
+    }
+
+In searching for C</\bfoo\b/>, only locations in L<C<$_>|perlvar/$_>
+that contain C<f>
+will be looked at, because C<f> is rarer than C<o>.  In general, this is
+a big win except in pathological cases.  The only question is whether
+it saves you more time than it took to build the linked list in the
+first place.
+
+Note that if you have to look for strings that you don't know till
+runtime, you can build an entire loop as a string and L<C<eval>|/eval
+EXPR> that to avoid recompiling all your patterns all the time.
+Together with undefining L<C<$E<sol>>|perlvar/$E<sol>> to input entire
+files as one record, this can be quite
+fast, often faster than specialized programs like L<fgrep(1)>.  The following
+scans a list of files (C<@files>) for a list of words (C<@words>), and prints
+out the names of those files that contain a match:
+
+    my $search = 'local $/; while (<>) { study;';
+    foreach my $word (@words) {
+        $search .= "++\$seen{\$ARGV} if /\\b$word\\b/;\n";
+    }
+    $search .= "}";
+    @ARGV = @files;
+    my %seen;
+    eval $search;        # this screams
+    foreach my $file (sort keys(%seen)) {
+        print $file, "\n";
+    }
+
+=item sub NAME BLOCK
+X<sub>
+
+=item sub NAME (PROTO) BLOCK
+
+=item sub NAME : ATTRS BLOCK
+
+=item sub NAME (PROTO) : ATTRS BLOCK
+
+=for Pod::Functions declare a subroutine, possibly anonymously
+
+This is subroutine definition, not a real function I<per se>.  Without a
+BLOCK it's just a forward declaration.  Without a NAME, it's an anonymous
+function declaration, so does return a value: the CODE ref of the closure
+just created.
+
+See L<perlsub> and L<perlref> for details about subroutines and
+references; see L<attributes> and L<Attribute::Handlers> for more
+information about attributes.
+
+=item __SUB__
+X<__SUB__>
+
+=for Pod::Functions +current_sub the current subroutine, or C<undef> if not in a subroutine
+
+A special token that returns a reference to the current subroutine, or
+L<C<undef>|/undef EXPR> outside of a subroutine.
+
+The behaviour of L<C<__SUB__>|/__SUB__> within a regex code block (such
+as C</(?{...})/>) is subject to change.
+
+This token is only available under C<use v5.16> or the
+L<C<"current_sub"> feature|feature/The 'current_sub' feature>.
+See L<feature>.
+
+=item substr EXPR,OFFSET,LENGTH,REPLACEMENT
+X<substr> X<substring> X<mid> X<left> X<right>
+
+=item substr EXPR,OFFSET,LENGTH
+
+=item substr EXPR,OFFSET
+
+=for Pod::Functions get or alter a portion of a string
+
+Extracts a substring out of EXPR and returns it.  First character is at
+offset zero.  If OFFSET is negative, starts
+that far back from the end of the string.  If LENGTH is omitted, returns
+everything through the end of the string.  If LENGTH is negative, leaves that
+many characters off the end of the string.
+
+    my $s = "The black cat climbed the green tree";
+    my $color  = substr $s, 4, 5;      # black
+    my $middle = substr $s, 4, -11;    # black cat climbed the
+    my $end    = substr $s, 14;        # climbed the green tree
+    my $tail   = substr $s, -4;        # tree
+    my $z      = substr $s, -4, 2;     # tr
+
+You can use the L<C<substr>|/substr EXPR,OFFSET,LENGTH,REPLACEMENT>
+function as an lvalue, in which case EXPR
+must itself be an lvalue.  If you assign something shorter than LENGTH,
+the string will shrink, and if you assign something longer than LENGTH,
+the string will grow to accommodate it.  To keep the string the same
+length, you may need to pad or chop your value using
+L<C<sprintf>|/sprintf FORMAT, LIST>.
+
+If OFFSET and LENGTH specify a substring that is partly outside the
+string, only the part within the string is returned.  If the substring
+is beyond either end of the string,
+L<C<substr>|/substr EXPR,OFFSET,LENGTH,REPLACEMENT> returns the undefined
+value and produces a warning.  When used as an lvalue, specifying a
+substring that is entirely outside the string raises an exception.
+Here's an example showing the behavior for boundary cases:
+
+    my $name = 'fred';
+    substr($name, 4) = 'dy';         # $name is now 'freddy'
+    my $null = substr $name, 6, 2;   # returns "" (no warning)
+    my $oops = substr $name, 7;      # returns undef, with warning
+    substr($name, 7) = 'gap';        # raises an exception
+
+An alternative to using
+L<C<substr>|/substr EXPR,OFFSET,LENGTH,REPLACEMENT> as an lvalue is to
+specify the
+replacement string as the 4th argument.  This allows you to replace
+parts of the EXPR and return what was there before in one operation,
+just as you can with
+L<C<splice>|/splice ARRAY,OFFSET,LENGTH,LIST>.
+
+    my $s = "The black cat climbed the green tree";
+    my $z = substr $s, 14, 7, "jumped from";    # climbed
+    # $s is now "The black cat jumped from the green tree"
+
+Note that the lvalue returned by the three-argument version of
+L<C<substr>|/substr EXPR,OFFSET,LENGTH,REPLACEMENT> acts as
+a 'magic bullet'; each time it is assigned to, it remembers which part
+of the original string is being modified; for example:
+
+    my $x = '1234';
+    for (substr($x,1,2)) {
+        $_ = 'a';   print $x,"\n";    # prints 1a4
+        $_ = 'xyz'; print $x,"\n";    # prints 1xyz4
+        $x = '56789';
+        $_ = 'pq';  print $x,"\n";    # prints 5pq9
+    }
+
+With negative offsets, it remembers its position from the end of the string
+when the target string is modified:
+
+    my $x = '1234';
+    for (substr($x, -3, 2)) {
+        $_ = 'a';   print $x,"\n";    # prints 1a4, as above
+        $x = 'abcdefg';
+        print $_,"\n";                # prints f
+    }
+
+Prior to Perl version 5.10, the result of using an lvalue multiple times was
+unspecified.  Prior to 5.16, the result with negative offsets was
+unspecified.
+
+=item symlink OLDFILE,NEWFILE
+X<symlink> X<link> X<symbolic link> X<link, symbolic>
+
+=for Pod::Functions create a symbolic link to a file
+
+Creates a new filename symbolically linked to the old filename.
+Returns C<1> for success, C<0> otherwise.  On systems that don't support
+symbolic links, raises an exception.  To check for that,
+use eval:
+
+    my $symlink_exists = eval { symlink("",""); 1 };
+
+Portability issues: L<perlport/symlink>.
+
+=item syscall NUMBER, LIST
+X<syscall> X<system call>
+
+=for Pod::Functions execute an arbitrary system call
+
+Calls the system call specified as the first element of the list,
+passing the remaining elements as arguments to the system call.  If
+unimplemented, raises an exception.  The arguments are interpreted
+as follows: if a given argument is numeric, the argument is passed as
+an int.  If not, the pointer to the string value is passed.  You are
+responsible to make sure a string is pre-extended long enough to
+receive any result that might be written into a string.  You can't use a
+string literal (or other read-only string) as an argument to
+L<C<syscall>|/syscall NUMBER, LIST> because Perl has to assume that any
+string pointer might be written through.  If your
+integer arguments are not literals and have never been interpreted in a
+numeric context, you may need to add C<0> to them to force them to look
+like numbers.  This emulates the
+L<C<syswrite>|/syswrite FILEHANDLE,SCALAR,LENGTH,OFFSET> function (or
+vice versa):
+
+    require 'syscall.ph';        # may need to run h2ph
+    my $s = "hi there\n";
+    syscall(SYS_write(), fileno(STDOUT), $s, length $s);
+
+Note that Perl supports passing of up to only 14 arguments to your syscall,
+which in practice should (usually) suffice.
+
+Syscall returns whatever value returned by the system call it calls.
+If the system call fails, L<C<syscall>|/syscall NUMBER, LIST> returns
+C<-1> and sets L<C<$!>|perlvar/$!> (errno).
+Note that some system calls I<can> legitimately return C<-1>.  The proper
+way to handle such calls is to assign C<$! = 0> before the call, then
+check the value of L<C<$!>|perlvar/$!> if
+L<C<syscall>|/syscall NUMBER, LIST> returns C<-1>.
+
+There's a problem with C<syscall(SYS_pipe())>: it returns the file
+number of the read end of the pipe it creates, but there is no way
+to retrieve the file number of the other end.  You can avoid this
+problem by using L<C<pipe>|/pipe READHANDLE,WRITEHANDLE> instead.
+
+Portability issues: L<perlport/syscall>.
+
+=item sysopen FILEHANDLE,FILENAME,MODE
+X<sysopen>
+
+=item sysopen FILEHANDLE,FILENAME,MODE,PERMS
+
+=for Pod::Functions +5.002 open a file, pipe, or descriptor
+
+Opens the file whose filename is given by FILENAME, and associates it with
+FILEHANDLE.  If FILEHANDLE is an expression, its value is used as the real
+filehandle wanted; an undefined scalar will be suitably autovivified.  This
+function calls the underlying operating system's L<open(2)> function with the
+parameters FILENAME, MODE, and PERMS.
+
+Returns true on success and L<C<undef>|/undef EXPR> otherwise.
+
+The possible values and flag bits of the MODE parameter are
+system-dependent; they are available via the standard module
+L<C<Fcntl>|Fcntl>.  See the documentation of your operating system's
+L<open(2)> syscall to see
+which values and flag bits are available.  You may combine several flags
+using the C<|>-operator.
+
+Some of the most common values are C<O_RDONLY> for opening the file in
+read-only mode, C<O_WRONLY> for opening the file in write-only mode,
+and C<O_RDWR> for opening the file in read-write mode.
+X<O_RDONLY> X<O_RDWR> X<O_WRONLY>
+
+For historical reasons, some values work on almost every system
+supported by Perl: 0 means read-only, 1 means write-only, and 2
+means read/write.  We know that these values do I<not> work under
+OS/390 and on the Macintosh; you probably don't want to
+use them in new code.
+
+If the file named by FILENAME does not exist and the
+L<C<open>|/open FILEHANDLE,EXPR> call creates
+it (typically because MODE includes the C<O_CREAT> flag), then the value of
+PERMS specifies the permissions of the newly created file.  If you omit
+the PERMS argument to L<C<sysopen>|/sysopen FILEHANDLE,FILENAME,MODE>,
+Perl uses the octal value C<0666>.
+These permission values need to be in octal, and are modified by your
+process's current L<C<umask>|/umask EXPR>.
+X<O_CREAT>
+
+In many systems the C<O_EXCL> flag is available for opening files in
+exclusive mode.  This is B<not> locking: exclusiveness means here that
+if the file already exists,
+L<C<sysopen>|/sysopen FILEHANDLE,FILENAME,MODE> fails.  C<O_EXCL> may
+not work
+on network filesystems, and has no effect unless the C<O_CREAT> flag
+is set as well.  Setting C<O_CREAT|O_EXCL> prevents the file from
+being opened if it is a symbolic link.  It does not protect against
+symbolic links in the file's path.
+X<O_EXCL>
+
+Sometimes you may want to truncate an already-existing file.  This
+can be done using the C<O_TRUNC> flag.  The behavior of
+C<O_TRUNC> with C<O_RDONLY> is undefined.
+X<O_TRUNC>
+
+You should seldom if ever use C<0644> as argument to
+L<C<sysopen>|/sysopen FILEHANDLE,FILENAME,MODE>, because
+that takes away the user's option to have a more permissive umask.
+Better to omit it.  See L<C<umask>|/umask EXPR> for more on this.
+
+Note that under Perls older than 5.8.0,
+L<C<sysopen>|/sysopen FILEHANDLE,FILENAME,MODE> depends on the
+L<fdopen(3)> C library function.  On many Unix systems, L<fdopen(3)> is known
+to fail when file descriptors exceed a certain value, typically 255.  If
+you need more file descriptors than that, consider using the
+L<C<POSIX::open>|POSIX/C<open>> function.  For Perls 5.8.0 and later,
+PerlIO is (most often) the default.
+
+See L<perlopentut> for a kinder, gentler explanation of opening files.
+
+Portability issues: L<perlport/sysopen>.
+
+=item sysread FILEHANDLE,SCALAR,LENGTH,OFFSET
+X<sysread>
+
+=item sysread FILEHANDLE,SCALAR,LENGTH
+
+=for Pod::Functions fixed-length unbuffered input from a filehandle
+
+Attempts to read LENGTH bytes of data into variable SCALAR from the
+specified FILEHANDLE, using L<read(2)>.  It bypasses
+buffered IO, so mixing this with other kinds of reads,
+L<C<print>|/print FILEHANDLE LIST>, L<C<write>|/write FILEHANDLE>,
+L<C<seek>|/seek FILEHANDLE,POSITION,WHENCE>,
+L<C<tell>|/tell FILEHANDLE>, or L<C<eof>|/eof FILEHANDLE> can cause
+confusion because the
+perlio or stdio layers usually buffer data.  Returns the number of
+bytes actually read, C<0> at end of file, or undef if there was an
+error (in the latter case L<C<$!>|perlvar/$!> is also set).  SCALAR will
+be grown or
+shrunk so that the last byte actually read is the last byte of the
+scalar after the read.
+
+An OFFSET may be specified to place the read data at some place in the
+string other than the beginning.  A negative OFFSET specifies
+placement at that many characters counting backwards from the end of
+the string.  A positive OFFSET greater than the length of SCALAR
+results in the string being padded to the required size with C<"\0">
+bytes before the result of the read is appended.
+
+There is no syseof() function, which is ok, since
+L<C<eof>|/eof FILEHANDLE> doesn't work well on device files (like ttys)
+anyway.  Use L<C<sysread>|/sysread FILEHANDLE,SCALAR,LENGTH,OFFSET> and
+check for a return value for 0 to decide whether you're done.
+
+Note that if the filehandle has been marked as C<:utf8>, Unicode
+characters are read instead of bytes (the LENGTH, OFFSET, and the
+return value of L<C<sysread>|/sysread FILEHANDLE,SCALAR,LENGTH,OFFSET>
+are in Unicode characters).  The C<:encoding(...)> layer implicitly
+introduces the C<:utf8> layer.  See
+L<C<binmode>|/binmode FILEHANDLE, LAYER>,
+L<C<open>|/open FILEHANDLE,EXPR>, and the L<open> pragma.
+
+=item sysseek FILEHANDLE,POSITION,WHENCE
+X<sysseek> X<lseek>
+
+=for Pod::Functions +5.004 position I/O pointer on handle used with sysread and syswrite
+
+Sets FILEHANDLE's system position in bytes using L<lseek(2)>.  FILEHANDLE may
+be an expression whose value gives the name of the filehandle.  The values
+for WHENCE are C<0> to set the new position to POSITION; C<1> to set the it
+to the current position plus POSITION; and C<2> to set it to EOF plus
+POSITION, typically negative.
+
+Note the I<in bytes>: even if the filehandle has been set to operate
+on characters (for example by using the C<:encoding(utf8)> I/O layer),
+L<C<tell>|/tell FILEHANDLE> will return byte offsets, not character
+offsets (because implementing that would render
+L<C<sysseek>|/sysseek FILEHANDLE,POSITION,WHENCE> unacceptably slow).
+
+L<C<sysseek>|/sysseek FILEHANDLE,POSITION,WHENCE> bypasses normal
+buffered IO, so mixing it with reads other than
+L<C<sysread>|/sysread FILEHANDLE,SCALAR,LENGTH,OFFSET> (for example
+L<C<readline>|/readline EXPR> or
+L<C<read>|/read FILEHANDLE,SCALAR,LENGTH,OFFSET>),
+L<C<print>|/print FILEHANDLE LIST>, L<C<write>|/write FILEHANDLE>,
+L<C<seek>|/seek FILEHANDLE,POSITION,WHENCE>,
+L<C<tell>|/tell FILEHANDLE>, or L<C<eof>|/eof FILEHANDLE> may cause
+confusion.
+
+For WHENCE, you may also use the constants C<SEEK_SET>, C<SEEK_CUR>,
+and C<SEEK_END> (start of the file, current position, end of the file)
+from the L<Fcntl> module.  Use of the constants is also more portable
+than relying on 0, 1, and 2.  For example to define a "systell" function:
+
+    use Fcntl 'SEEK_CUR';
+    sub systell { sysseek($_[0], 0, SEEK_CUR) }
+
+Returns the new position, or the undefined value on failure.  A position
+of zero is returned as the string C<"0 but true">; thus
+L<C<sysseek>|/sysseek FILEHANDLE,POSITION,WHENCE> returns
+true on success and false on failure, yet you can still easily determine
+the new position.
+
+=item system LIST
+X<system> X<shell>
+
+=item system PROGRAM LIST
+
+=for Pod::Functions run a separate program
+
+Does exactly the same thing as L<C<exec>|/exec LIST>, except that a fork is
+done first and the parent process waits for the child process to
+exit.  Note that argument processing varies depending on the
+number of arguments.  If there is more than one argument in LIST,
+or if LIST is an array with more than one value, starts the program
+given by the first element of the list with arguments given by the
+rest of the list.  If there is only one scalar argument, the argument
+is checked for shell metacharacters, and if there are any, the
+entire argument is passed to the system's command shell for parsing
+(this is C</bin/sh -c> on Unix platforms, but varies on other
+platforms).  If there are no shell metacharacters in the argument,
+it is split into words and passed directly to C<execvp>, which is
+more efficient.  On Windows, only the C<system PROGRAM LIST> syntax will
+reliably avoid using the shell; C<system LIST>, even with more than one
+element, will fall back to the shell if the first spawn fails.
+
+Perl will attempt to flush all files opened for
+output before any operation that may do a fork, but this may not be
+supported on some platforms (see L<perlport>).  To be safe, you may need
+to set L<C<$E<verbar>>|perlvar/$E<verbar>> (C<$AUTOFLUSH> in L<English>)
+or call the C<autoflush> method of L<C<IO::Handle>|IO::Handle/METHODS>
+on any open handles.
+
+The return value is the exit status of the program as returned by the
+L<C<wait>|/wait> call.  To get the actual exit value, shift right by
+eight (see below).  See also L<C<exec>|/exec LIST>.  This is I<not> what
+you want to use to capture the output from a command; for that you
+should use merely backticks or
+L<C<qxE<sol>E<sol>>|/qxE<sol>STRINGE<sol>>, as described in
+L<perlop/"`STRING`">.  Return value of -1 indicates a failure to start
+the program or an error of the L<wait(2)> system call (inspect
+L<C<$!>|perlvar/$!> for the reason).
+
+If you'd like to make L<C<system>|/system LIST> (and many other bits of
+Perl) die on error, have a look at the L<autodie> pragma.
+
+Like L<C<exec>|/exec LIST>, L<C<system>|/system LIST> allows you to lie
+to a program about its name if you use the C<system PROGRAM LIST>
+syntax.  Again, see L<C<exec>|/exec LIST>.
+
+Since C<SIGINT> and C<SIGQUIT> are ignored during the execution of
+L<C<system>|/system LIST>, if you expect your program to terminate on
+receipt of these signals you will need to arrange to do so yourself
+based on the return value.
+
+    my @args = ("command", "arg1", "arg2");
+    system(@args) == 0
+        or die "system @args failed: $?";
+
+If you'd like to manually inspect L<C<system>|/system LIST>'s failure,
+you can check all possible failure modes by inspecting
+L<C<$?>|perlvar/$?> like this:
+
+    if ($? == -1) {
+        print "failed to execute: $!\n";
+    }
+    elsif ($? & 127) {
+        printf "child died with signal %d, %s coredump\n",
+            ($? & 127),  ($? & 128) ? 'with' : 'without';
+    }
+    else {
+        printf "child exited with value %d\n", $? >> 8;
+    }
+
+Alternatively, you may inspect the value of
+L<C<${^CHILD_ERROR_NATIVE}>|perlvar/${^CHILD_ERROR_NATIVE}> with the
+L<C<W*()>|POSIX/C<WIFEXITED>> calls from the L<POSIX> module.
+
+When L<C<system>|/system LIST>'s arguments are executed indirectly by
+the shell, results and return codes are subject to its quirks.
+See L<perlop/"`STRING`"> and L<C<exec>|/exec LIST> for details.
+
+Since L<C<system>|/system LIST> does a L<C<fork>|/fork> and
+L<C<wait>|/wait> it may affect a C<SIGCHLD> handler.  See L<perlipc> for
+details.
+
+Portability issues: L<perlport/system>.
+
+=item syswrite FILEHANDLE,SCALAR,LENGTH,OFFSET
+X<syswrite>
+
+=item syswrite FILEHANDLE,SCALAR,LENGTH
+
+=item syswrite FILEHANDLE,SCALAR
+
+=for Pod::Functions fixed-length unbuffered output to a filehandle
+
+Attempts to write LENGTH bytes of data from variable SCALAR to the
+specified FILEHANDLE, using L<write(2)>.  If LENGTH is
+not specified, writes whole SCALAR.  It bypasses buffered IO, so
+mixing this with reads (other than C<sysread)>),
+L<C<print>|/print FILEHANDLE LIST>, L<C<write>|/write FILEHANDLE>,
+L<C<seek>|/seek FILEHANDLE,POSITION,WHENCE>,
+L<C<tell>|/tell FILEHANDLE>, or L<C<eof>|/eof FILEHANDLE> may cause
+confusion because the perlio and stdio layers usually buffer data.
+Returns the number of bytes actually written, or L<C<undef>|/undef EXPR>
+if there was an error (in this case the errno variable
+L<C<$!>|perlvar/$!> is also set).  If the LENGTH is greater than the
+data available in the SCALAR after the OFFSET, only as much data as is
+available will be written.
+
+An OFFSET may be specified to write the data from some part of the
+string other than the beginning.  A negative OFFSET specifies writing
+that many characters counting backwards from the end of the string.
+If SCALAR is of length zero, you can only use an OFFSET of 0.
+
+B<WARNING>: If the filehandle is marked C<:utf8>, Unicode characters
+encoded in UTF-8 are written instead of bytes, and the LENGTH, OFFSET, and
+return value of L<C<syswrite>|/syswrite FILEHANDLE,SCALAR,LENGTH,OFFSET>
+are in (UTF8-encoded Unicode) characters.
+The C<:encoding(...)> layer implicitly introduces the C<:utf8> layer.
+Alternately, if the handle is not marked with an encoding but you
+attempt to write characters with code points over 255, raises an exception.
+See L<C<binmode>|/binmode FILEHANDLE, LAYER>,
+L<C<open>|/open FILEHANDLE,EXPR>, and the L<open> pragma.
+
+=item tell FILEHANDLE
+X<tell>
+
+=item tell
+
+=for Pod::Functions get current seekpointer on a filehandle
+
+Returns the current position I<in bytes> for FILEHANDLE, or -1 on
+error.  FILEHANDLE may be an expression whose value gives the name of
+the actual filehandle.  If FILEHANDLE is omitted, assumes the file
+last read.
+
+Note the I<in bytes>: even if the filehandle has been set to
+operate on characters (for example by using the C<:encoding(utf8)> open
+layer), L<C<tell>|/tell FILEHANDLE> will return byte offsets, not
+character offsets (because that would render
+L<C<seek>|/seek FILEHANDLE,POSITION,WHENCE> and
+L<C<tell>|/tell FILEHANDLE> rather slow).
+
+The return value of L<C<tell>|/tell FILEHANDLE> for the standard streams
+like the STDIN depends on the operating system: it may return -1 or
+something else.  L<C<tell>|/tell FILEHANDLE> on pipes, fifos, and
+sockets usually returns -1.
+
+There is no C<systell> function.  Use C<sysseek($fh, 0, 1)> for that.
+
+Do not use L<C<tell>|/tell FILEHANDLE> (or other buffered I/O
+operations) on a filehandle that has been manipulated by
+L<C<sysread>|/sysread FILEHANDLE,SCALAR,LENGTH,OFFSET>,
+L<C<syswrite>|/syswrite FILEHANDLE,SCALAR,LENGTH,OFFSET>, or
+L<C<sysseek>|/sysseek FILEHANDLE,POSITION,WHENCE>.  Those functions
+ignore the buffering, while L<C<tell>|/tell FILEHANDLE> does not.
+
+=item telldir DIRHANDLE
+X<telldir>
+
+=for Pod::Functions get current seekpointer on a directory handle
+
+Returns the current position of the L<C<readdir>|/readdir DIRHANDLE>
+routines on DIRHANDLE.  Value may be given to
+L<C<seekdir>|/seekdir DIRHANDLE,POS> to access a particular location in
+a directory.  L<C<telldir>|/telldir DIRHANDLE> has the same caveats
+about possible directory compaction as the corresponding system library
+routine.
+
+=item tie VARIABLE,CLASSNAME,LIST
+X<tie>
+
+=for Pod::Functions +5.002 bind a variable to an object class
+
+This function binds a variable to a package class that will provide the
+implementation for the variable.  VARIABLE is the name of the variable
+to be enchanted.  CLASSNAME is the name of a class implementing objects
+of correct type.  Any additional arguments are passed to the
+appropriate constructor
+method of the class (meaning C<TIESCALAR>, C<TIEHANDLE>, C<TIEARRAY>,
+or C<TIEHASH>).  Typically these are arguments such as might be passed
+to the L<dbm_open(3)> function of C.  The object returned by the
+constructor is also returned by the
+L<C<tie>|/tie VARIABLE,CLASSNAME,LIST> function, which would be useful
+if you want to access other methods in CLASSNAME.
+
+Note that functions such as L<C<keys>|/keys HASH> and
+L<C<values>|/values HASH> may return huge lists when used on large
+objects, like DBM files.  You may prefer to use the L<C<each>|/each
+HASH> function to iterate over such.  Example:
+
+    # print out history file offsets
+    use NDBM_File;
+    tie(my %HIST, 'NDBM_File', '/usr/lib/news/history', 1, 0);
+    while (my ($key,$val) = each %HIST) {
+        print $key, ' = ', unpack('L', $val), "\n";
+    }
+
+A class implementing a hash should have the following methods:
+
+    TIEHASH classname, LIST
+    FETCH this, key
+    STORE this, key, value
+    DELETE this, key
+    CLEAR this
+    EXISTS this, key
+    FIRSTKEY this
+    NEXTKEY this, lastkey
+    SCALAR this
+    DESTROY this
+    UNTIE this
+
+A class implementing an ordinary array should have the following methods:
+
+    TIEARRAY classname, LIST
+    FETCH this, key
+    STORE this, key, value
+    FETCHSIZE this
+    STORESIZE this, count
+    CLEAR this
+    PUSH this, LIST
+    POP this
+    SHIFT this
+    UNSHIFT this, LIST
+    SPLICE this, offset, length, LIST
+    EXTEND this, count
+    DELETE this, key
+    EXISTS this, key
+    DESTROY this
+    UNTIE this
+
+A class implementing a filehandle should have the following methods:
+
+    TIEHANDLE classname, LIST
+    READ this, scalar, length, offset
+    READLINE this
+    GETC this
+    WRITE this, scalar, length, offset
+    PRINT this, LIST
+    PRINTF this, format, LIST
+    BINMODE this
+    EOF this
+    FILENO this
+    SEEK this, position, whence
+    TELL this
+    OPEN this, mode, LIST
+    CLOSE this
+    DESTROY this
+    UNTIE this
+
+A class implementing a scalar should have the following methods:
+
+    TIESCALAR classname, LIST
+    FETCH this,
+    STORE this, value
+    DESTROY this
+    UNTIE this
+
+Not all methods indicated above need be implemented.  See L<perltie>,
+L<Tie::Hash>, L<Tie::Array>, L<Tie::Scalar>, and L<Tie::Handle>.
+
+Unlike L<C<dbmopen>|/dbmopen HASH,DBNAME,MASK>, the
+L<C<tie>|/tie VARIABLE,CLASSNAME,LIST> function will not
+L<C<use>|/use Module VERSION LIST> or L<C<require>|/require VERSION> a
+module for you; you need to do that explicitly yourself.  See L<DB_File>
+or the L<Config> module for interesting
+L<C<tie>|/tie VARIABLE,CLASSNAME,LIST> implementations.
+
+For further details see L<perltie>, L<C<tied>|/tied VARIABLE>.
+
+=item tied VARIABLE
+X<tied>
+
+=for Pod::Functions get a reference to the object underlying a tied variable
+
+Returns a reference to the object underlying VARIABLE (the same value
+that was originally returned by the
+L<C<tie>|/tie VARIABLE,CLASSNAME,LIST> call that bound the variable
+to a package.)  Returns the undefined value if VARIABLE isn't tied to a
+package.
+
+=item time
+X<time> X<epoch>
+
+=for Pod::Functions return number of seconds since 1970
+
+Returns the number of non-leap seconds since whatever time the system
+considers to be the epoch, suitable for feeding to
+L<C<gmtime>|/gmtime EXPR> and L<C<localtime>|/localtime EXPR>.  On most
+systems the epoch is 00:00:00 UTC, January 1, 1970;
+a prominent exception being Mac OS Classic which uses 00:00:00, January 1,
+1904 in the current local time zone for its epoch.
+
+For measuring time in better granularity than one second, use the
+L<Time::HiRes> module from Perl 5.8 onwards (or from CPAN before then), or,
+if you have L<gettimeofday(2)>, you may be able to use the
+L<C<syscall>|/syscall NUMBER, LIST> interface of Perl.  See L<perlfaq8>
+for details.
+
+For date and time processing look at the many related modules on CPAN.
+For a comprehensive date and time representation look at the
+L<DateTime> module.
+
+=item times
+X<times>
+
+=for Pod::Functions return elapsed time for self and child processes
+
+Returns a four-element list giving the user and system times in
+seconds for this process and any exited children of this process.
+
+    my ($user,$system,$cuser,$csystem) = times;
+
+In scalar context, L<C<times>|/times> returns C<$user>.
+
+Children's times are only included for terminated children.
+
+Portability issues: L<perlport/times>.
+
+=item tr///
+
+=for Pod::Functions transliterate a string
+
+The transliteration operator.  Same as
+L<C<yE<sol>E<sol>E<sol>>|/yE<sol>E<sol>E<sol>>.  See
+L<perlop/"Quote-Like Operators">.
+
+=item truncate FILEHANDLE,LENGTH
+X<truncate>
+
+=item truncate EXPR,LENGTH
+
+=for Pod::Functions shorten a file
+
+Truncates the file opened on FILEHANDLE, or named by EXPR, to the
+specified length.  Raises an exception if truncate isn't implemented
+on your system.  Returns true if successful, L<C<undef>|/undef EXPR> on
+error.
+
+The behavior is undefined if LENGTH is greater than the length of the
+file.
+
+The position in the file of FILEHANDLE is left unchanged.  You may want to
+call L<seek|/"seek FILEHANDLE,POSITION,WHENCE"> before writing to the
+file.
+
+Portability issues: L<perlport/truncate>.
+
+=item uc EXPR
+X<uc> X<uppercase> X<toupper>
+
+=item uc
+
+=for Pod::Functions return upper-case version of a string
+
+Returns an uppercased version of EXPR.  This is the internal function
+implementing the C<\U> escape in double-quoted strings.
+It does not attempt to do titlecase mapping on initial letters.  See
+L<C<ucfirst>|/ucfirst EXPR> for that.
+
+If EXPR is omitted, uses L<C<$_>|perlvar/$_>.
+
+This function behaves the same way under various pragmas, such as in a locale,
+as L<C<lc>|/lc EXPR> does.
+
+=item ucfirst EXPR
+X<ucfirst> X<uppercase>
+
+=item ucfirst
+
+=for Pod::Functions return a string with just the next letter in upper case
+
+Returns the value of EXPR with the first character in uppercase
+(titlecase in Unicode).  This is the internal function implementing
+the C<\u> escape in double-quoted strings.
+
+If EXPR is omitted, uses L<C<$_>|perlvar/$_>.
+
+This function behaves the same way under various pragmas, such as in a locale,
+as L<C<lc>|/lc EXPR> does.
+
+=item umask EXPR
+X<umask>
+
+=item umask
+
+=for Pod::Functions set file creation mode mask
+
+Sets the umask for the process to EXPR and returns the previous value.
+If EXPR is omitted, merely returns the current umask.
+
+The Unix permission C<rwxr-x---> is represented as three sets of three
+bits, or three octal digits: C<0750> (the leading 0 indicates octal
+and isn't one of the digits).  The L<C<umask>|/umask EXPR> value is such
+a number representing disabled permissions bits.  The permission (or
+"mode") values you pass L<C<mkdir>|/mkdir FILENAME,MASK> or
+L<C<sysopen>|/sysopen FILEHANDLE,FILENAME,MODE> are modified by your
+umask, so even if you tell
+L<C<sysopen>|/sysopen FILEHANDLE,FILENAME,MODE> to create a file with
+permissions C<0777>, if your umask is C<0022>, then the file will
+actually be created with permissions C<0755>.  If your
+L<C<umask>|/umask EXPR> were C<0027> (group can't write; others can't
+read, write, or execute), then passing
+L<C<sysopen>|/sysopen FILEHANDLE,FILENAME,MODE> C<0666> would create a
+file with mode C<0640> (because C<0666 &~ 027> is C<0640>).
+
+Here's some advice: supply a creation mode of C<0666> for regular
+files (in L<C<sysopen>|/sysopen FILEHANDLE,FILENAME,MODE>) and one of
+C<0777> for directories (in L<C<mkdir>|/mkdir FILENAME,MASK>) and
+executable files.  This gives users the freedom of
+choice: if they want protected files, they might choose process umasks
+of C<022>, C<027>, or even the particularly antisocial mask of C<077>.
+Programs should rarely if ever make policy decisions better left to
+the user.  The exception to this is when writing files that should be
+kept private: mail files, web browser cookies, F<.rhosts> files, and
+so on.
+
+If L<umask(2)> is not implemented on your system and you are trying to
+restrict access for I<yourself> (i.e., C<< (EXPR & 0700) > 0 >>),
+raises an exception.  If L<umask(2)> is not implemented and you are
+not trying to restrict access for yourself, returns
+L<C<undef>|/undef EXPR>.
+
+Remember that a umask is a number, usually given in octal; it is I<not> a
+string of octal digits.  See also L<C<oct>|/oct EXPR>, if all you have
+is a string.
+
+Portability issues: L<perlport/umask>.
+
+=item undef EXPR
+X<undef> X<undefine>
+
+=item undef
+
+=for Pod::Functions remove a variable or function definition
+
+Undefines the value of EXPR, which must be an lvalue.  Use only on a
+scalar value, an array (using C<@>), a hash (using C<%>), a subroutine
+(using C<&>), or a typeglob (using C<*>).  Saying C<undef $hash{$key}>
+will probably not do what you expect on most predefined variables or
+DBM list values, so don't do that; see L<C<delete>|/delete EXPR>.
+Always returns the undefined value.
+You can omit the EXPR, in which case nothing is
+undefined, but you still get an undefined value that you could, for
+instance, return from a subroutine, assign to a variable, or pass as a
+parameter.  Examples:
+
+    undef $foo;
+    undef $bar{'blurfl'};      # Compare to: delete $bar{'blurfl'};
+    undef @ary;
+    undef %hash;
+    undef &mysub;
+    undef *xyz;       # destroys $xyz, @xyz, %xyz, &xyz, etc.
+    return (wantarray ? (undef, $errmsg) : undef) if $they_blew_it;
+    select undef, undef, undef, 0.25;
+    my ($x, $y, undef, $z) = foo();    # Ignore third value returned
+
+Note that this is a unary operator, not a list operator.
+
+=item unlink LIST
+X<unlink> X<delete> X<remove> X<rm> X<del>
+
+=item unlink
+
+=for Pod::Functions remove one link to a file
+
+Deletes a list of files.  On success, it returns the number of files
+it successfully deleted.  On failure, it returns false and sets
+L<C<$!>|perlvar/$!> (errno):
+
+    my $unlinked = unlink 'a', 'b', 'c';
+    unlink @goners;
+    unlink glob "*.bak";
+
+On error, L<C<unlink>|/unlink LIST> will not tell you which files it
+could not remove.
+If you want to know which files you could not remove, try them one
+at a time:
+
+     foreach my $file ( @goners ) {
+         unlink $file or warn "Could not unlink $file: $!";
+     }
+
+Note: L<C<unlink>|/unlink LIST> will not attempt to delete directories
+unless you are
+superuser and the B<-U> flag is supplied to Perl.  Even if these
+conditions are met, be warned that unlinking a directory can inflict
+damage on your filesystem.  Finally, using L<C<unlink>|/unlink LIST> on
+directories is not supported on many operating systems.  Use
+L<C<rmdir>|/rmdir FILENAME> instead.
+
+If LIST is omitted, L<C<unlink>|/unlink LIST> uses L<C<$_>|perlvar/$_>.
+
+=item unpack TEMPLATE,EXPR
+X<unpack>
+
+=item unpack TEMPLATE
+
+=for Pod::Functions convert binary structure into normal perl variables
+
+L<C<unpack>|/unpack TEMPLATE,EXPR> does the reverse of
+L<C<pack>|/pack TEMPLATE,LIST>: it takes a string
+and expands it out into a list of values.
+(In scalar context, it returns merely the first value produced.)
+
+If EXPR is omitted, unpacks the L<C<$_>|perlvar/$_> string.
+See L<perlpacktut> for an introduction to this function.
+
+The string is broken into chunks described by the TEMPLATE.  Each chunk
+is converted separately to a value.  Typically, either the string is a result
+of L<C<pack>|/pack TEMPLATE,LIST>, or the characters of the string
+represent a C structure of some kind.
+
+The TEMPLATE has the same format as in the
+L<C<pack>|/pack TEMPLATE,LIST> function.
+Here's a subroutine that does substring:
+
+    sub substr {
+        my ($what, $where, $howmuch) = @_;
+        unpack("x$where a$howmuch", $what);
+    }
+
+and then there's
+
+    sub ordinal { unpack("W",$_[0]); } # same as ord()
+
+In addition to fields allowed in L<C<pack>|/pack TEMPLATE,LIST>, you may
+prefix a field with a %<number> to indicate that
+you want a <number>-bit checksum of the items instead of the items
+themselves.  Default is a 16-bit checksum.  The checksum is calculated by
+summing numeric values of expanded values (for string fields the sum of
+C<ord($char)> is taken; for bit fields the sum of zeroes and ones).
+
+For example, the following
+computes the same number as the System V sum program:
+
+    my $checksum = do {
+        local $/;  # slurp!
+        unpack("%32W*", readline) % 65535;
+    };
+
+The following efficiently counts the number of set bits in a bit vector:
+
+    my $setbits = unpack("%32b*", $selectmask);
+
+The C<p> and C<P> formats should be used with care.  Since Perl
+has no way of checking whether the value passed to
+L<C<unpack>|/unpack TEMPLATE,EXPR>
+corresponds to a valid memory location, passing a pointer value that's
+not known to be valid is likely to have disastrous consequences.
+
+If there are more pack codes or if the repeat count of a field or a group
+is larger than what the remainder of the input string allows, the result
+is not well defined: the repeat count may be decreased, or
+L<C<unpack>|/unpack TEMPLATE,EXPR> may produce empty strings or zeros,
+or it may raise an exception.
+If the input string is longer than one described by the TEMPLATE,
+the remainder of that input string is ignored.
+
+See L<C<pack>|/pack TEMPLATE,LIST> for more examples and notes.
+
+=item unshift ARRAY,LIST
+X<unshift>
+
+=for Pod::Functions prepend more elements to the beginning of a list
+
+Does the opposite of a L<C<shift>|/shift ARRAY>.  Or the opposite of a
+L<C<push>|/push ARRAY,LIST>,
+depending on how you look at it.  Prepends list to the front of the
+array and returns the new number of elements in the array.
+
+    unshift(@ARGV, '-e') unless $ARGV[0] =~ /^-/;
+
+Note the LIST is prepended whole, not one element at a time, so the
+prepended elements stay in the same order.  Use
+L<C<reverse>|/reverse LIST> to do the reverse.
+
+Starting with Perl 5.14, an experimental feature allowed
+L<C<unshift>|/unshift ARRAY,LIST> to take
+a scalar expression. This experiment has been deemed unsuccessful, and was
+removed as of Perl 5.24.
+
+=item untie VARIABLE
+X<untie>
+
+=for Pod::Functions break a tie binding to a variable
+
+Breaks the binding between a variable and a package.
+(See L<tie|/tie VARIABLE,CLASSNAME,LIST>.)
+Has no effect if the variable is not tied.
+
+=item use Module VERSION LIST
+X<use> X<module> X<import>
+
+=item use Module VERSION
+
+=item use Module LIST
+
+=item use Module
+
+=item use VERSION
+
+=for Pod::Functions load in a module at compile time and import its namespace
+
+Imports some semantics into the current package from the named module,
+generally by aliasing certain subroutine or variable names into your
+package.  It is exactly equivalent to
+
+    BEGIN { require Module; Module->import( LIST ); }
+
+except that Module I<must> be a bareword.
+The importation can be made conditional by using the L<if> module.
+
+In the peculiar C<use VERSION> form, VERSION may be either a positive
+decimal fraction such as 5.006, which will be compared to
+L<C<$]>|perlvar/$]>, or a v-string of the form v5.6.1, which will be
+compared to L<C<$^V>|perlvar/$^V> (aka $PERL_VERSION).  An
+exception is raised if VERSION is greater than the version of the
+current Perl interpreter; Perl will not attempt to parse the rest of the
+file.  Compare with L<C<require>|/require VERSION>, which can do a
+similar check at run time.
+Symmetrically, C<no VERSION> allows you to specify that you want a version
+of Perl older than the specified one.
+
+Specifying VERSION as a literal of the form v5.6.1 should generally be
+avoided, because it leads to misleading error messages under earlier
+versions of Perl (that is, prior to 5.6.0) that do not support this
+syntax.  The equivalent numeric version should be used instead.
+
+    use v5.6.1;     # compile time version check
+    use 5.6.1;      # ditto
+    use 5.006_001;  # ditto; preferred for backwards compatibility
+
+This is often useful if you need to check the current Perl version before
+L<C<use>|/use Module VERSION LIST>ing library modules that won't work
+with older versions of Perl.
+(We try not to do this more than we have to.)
+
+C<use VERSION> also lexically enables all features available in the requested
+version as defined by the L<feature> pragma, disabling any features
+not in the requested version's feature bundle.  See L<feature>.
+Similarly, if the specified Perl version is greater than or equal to
+5.12.0, strictures are enabled lexically as
+with L<C<use strict>|strict>.  Any explicit use of
+C<use strict> or C<no strict> overrides C<use VERSION>, even if it comes
+before it.  Later use of C<use VERSION>
+will override all behavior of a previous
+C<use VERSION>, possibly removing the C<strict> and C<feature> added by
+C<use VERSION>.  C<use VERSION> does not
+load the F<feature.pm> or F<strict.pm>
+files.
+
+The C<BEGIN> forces the L<C<require>|/require VERSION> and
+L<C<import>|/import LIST> to happen at compile time.  The
+L<C<require>|/require VERSION> makes sure the module is loaded into
+memory if it hasn't been yet.  The L<C<import>|/import LIST> is not a
+builtin; it's just an ordinary static method
+call into the C<Module> package to tell the module to import the list of
+features back into the current package.  The module can implement its
+L<C<import>|/import LIST> method any way it likes, though most modules
+just choose to derive their L<C<import>|/import LIST> method via
+inheritance from the C<Exporter> class that is defined in the
+L<C<Exporter>|Exporter> module.  See L<Exporter>.  If no
+L<C<import>|/import LIST> method can be found, then the call is skipped,
+even if there is an AUTOLOAD method.
+
+If you do not want to call the package's L<C<import>|/import LIST>
+method (for instance,
+to stop your namespace from being altered), explicitly supply the empty list:
+
+    use Module ();
+
+That is exactly equivalent to
+
+    BEGIN { require Module }
+
+If the VERSION argument is present between Module and LIST, then the
+L<C<use>|/use Module VERSION LIST> will call the C<VERSION> method in
+class Module with the given version as an argument:
+
+    use Module 12.34;
+
+is equivalent to:
+
+    BEGIN { require Module; Module->VERSION(12.34) }
+
+The L<default C<VERSION> method|UNIVERSAL/C<VERSION ( [ REQUIRE ] )>>,
+inherited from the L<C<UNIVERSAL>|UNIVERSAL> class, croaks if the given
+version is larger than the value of the variable C<$Module::VERSION>.
+
+Again, there is a distinction between omitting LIST (L<C<import>|/import
+LIST> called with no arguments) and an explicit empty LIST C<()>
+(L<C<import>|/import LIST> not called).  Note that there is no comma
+after VERSION!
+
+Because this is a wide-open interface, pragmas (compiler directives)
+are also implemented this way.  Some of the currently implemented
+pragmas are:
+
+    use constant;
+    use diagnostics;
+    use integer;
+    use sigtrap  qw(SEGV BUS);
+    use strict   qw(subs vars refs);
+    use subs     qw(afunc blurfl);
+    use warnings qw(all);
+    use sort     qw(stable _quicksort _mergesort);
+
+Some of these pseudo-modules import semantics into the current
+block scope (like L<C<strict>|strict> or L<C<integer>|integer>, unlike
+ordinary modules, which import symbols into the current package (which
+are effective through the end of the file).
+
+Because L<C<use>|/use Module VERSION LIST> takes effect at compile time,
+it doesn't respect the ordinary flow control of the code being compiled.
+In particular, putting a L<C<use>|/use Module VERSION LIST> inside the
+false branch of a conditional doesn't prevent it
+from being processed.  If a module or pragma only needs to be loaded
+conditionally, this can be done using the L<if> pragma:
+
+    use if $] < 5.008, "utf8";
+    use if WANT_WARNINGS, warnings => qw(all);
+
+There's a corresponding L<C<no>|/no MODULE VERSION LIST> declaration
+that unimports meanings imported by L<C<use>|/use Module VERSION LIST>,
+i.e., it calls C<< Module->unimport(LIST) >> instead of
+L<C<import>|/import LIST>.  It behaves just as L<C<import>|/import LIST>
+does with VERSION, an omitted or empty LIST,
+or no unimport method being found.
+
+    no integer;
+    no strict 'refs';
+    no warnings;
+
+Care should be taken when using the C<no VERSION> form of L<C<no>|/no
+MODULE VERSION LIST>.  It is
+I<only> meant to be used to assert that the running Perl is of a earlier
+version than its argument and I<not> to undo the feature-enabling side effects
+of C<use VERSION>.
+
+See L<perlmodlib> for a list of standard modules and pragmas.  See L<perlrun>
+for the C<-M> and C<-m> command-line options to Perl that give
+L<C<use>|/use Module VERSION LIST> functionality from the command-line.
+
+=item utime LIST
+X<utime>
+
+=for Pod::Functions set a file's last access and modify times
+
+Changes the access and modification times on each file of a list of
+files.  The first two elements of the list must be the NUMERIC access
+and modification times, in that order.  Returns the number of files
+successfully changed.  The inode change time of each file is set
+to the current time.  For example, this code has the same effect as the
+Unix L<touch(1)> command when the files I<already exist> and belong to
+the user running the program:
+
+    #!/usr/bin/perl
+    my $atime = my $mtime = time;
+    utime $atime, $mtime, @ARGV;
+
+Since Perl 5.8.0, if the first two elements of the list are
+L<C<undef>|/undef EXPR>,
+the L<utime(2)> syscall from your C library is called with a null second
+argument.  On most systems, this will set the file's access and
+modification times to the current time (i.e., equivalent to the example
+above) and will work even on files you don't own provided you have write
+permission:
+
+    for my $file (@ARGV) {
+	utime(undef, undef, $file)
+	    || warn "Couldn't touch $file: $!";
+    }
+
+Under NFS this will use the time of the NFS server, not the time of
+the local machine.  If there is a time synchronization problem, the
+NFS server and local machine will have different times.  The Unix
+L<touch(1)> command will in fact normally use this form instead of the
+one shown in the first example.
+
+Passing only one of the first two elements as L<C<undef>|/undef EXPR> is
+equivalent to passing a 0 and will not have the effect described when
+both are L<C<undef>|/undef EXPR>.  This also triggers an
+uninitialized warning.
+
+On systems that support L<futimes(2)>, you may pass filehandles among the
+files.  On systems that don't support L<futimes(2)>, passing filehandles raises
+an exception.  Filehandles must be passed as globs or glob references to be
+recognized; barewords are considered filenames.
+
+Portability issues: L<perlport/utime>.
+
+=item values HASH
+X<values>
+
+=item values ARRAY
+
+=for Pod::Functions return a list of the values in a hash
+
+In list context, returns a list consisting of all the values of the named
+hash.  In Perl 5.12 or later only, will also return a list of the values of
+an array; prior to that release, attempting to use an array argument will
+produce a syntax error.  In scalar context, returns the number of values.
+
+Hash entries are returned in an apparently random order.  The actual random
+order is specific to a given hash; the exact same series of operations
+on two hashes may result in a different order for each hash.  Any insertion
+into the hash may change the order, as will any deletion, with the exception
+that the most recent key returned by L<C<each>|/each HASH> or
+L<C<keys>|/keys HASH> may be deleted without changing the order.  So
+long as a given hash is unmodified you may rely on
+L<C<keys>|/keys HASH>, L<C<values>|/values HASH> and
+L<C<each>|/each HASH> to repeatedly return the same order
+as each other.  See L<perlsec/"Algorithmic Complexity Attacks"> for
+details on why hash order is randomized.  Aside from the guarantees
+provided here the exact details of Perl's hash algorithm and the hash
+traversal order are subject to change in any release of Perl.  Tied hashes
+may behave differently to Perl's hashes with respect to changes in order on
+insertion and deletion of items.
+
+As a side effect, calling L<C<values>|/values HASH> resets the HASH or
+ARRAY's internal iterator, see L<C<each>|/each HASH>.  (In particular,
+calling L<C<values>|/values HASH> in void context resets the iterator
+with no other overhead.  Apart from resetting the iterator,
+C<values @array> in list context is the same as plain C<@array>.
+(We recommend that you use void context C<keys @array> for this, but
+reasoned that taking C<values @array> out would require more
+documentation than leaving it in.)
+
+Note that the values are not copied, which means modifying them will
+modify the contents of the hash:
+
+    for (values %hash)      { s/foo/bar/g }  # modifies %hash values
+    for (@hash{keys %hash}) { s/foo/bar/g }  # same
+
+Starting with Perl 5.14, an experimental feature allowed
+L<C<values>|/values HASH> to take a
+scalar expression. This experiment has been deemed unsuccessful, and was
+removed as of Perl 5.24.
+
+To avoid confusing would-be users of your code who are running earlier
+versions of Perl with mysterious syntax errors, put this sort of thing at
+the top of your file to signal that your code will work I<only> on Perls of
+a recent vintage:
+
+    use 5.012;	# so keys/values/each work on arrays
+
+See also L<C<keys>|/keys HASH>, L<C<each>|/each HASH>, and
+L<C<sort>|/sort SUBNAME LIST>.
+
+=item vec EXPR,OFFSET,BITS
+X<vec> X<bit> X<bit vector>
+
+=for Pod::Functions test or set particular bits in a string
+
+Treats the string in EXPR as a bit vector made up of elements of
+width BITS and returns the value of the element specified by OFFSET
+as an unsigned integer.  BITS therefore specifies the number of bits
+that are reserved for each element in the bit vector.  This must
+be a power of two from 1 to 32 (or 64, if your platform supports
+that).
+
+If BITS is 8, "elements" coincide with bytes of the input string.
+
+If BITS is 16 or more, bytes of the input string are grouped into chunks
+of size BITS/8, and each group is converted to a number as with
+L<C<pack>|/pack TEMPLATE,LIST>/L<C<unpack>|/unpack TEMPLATE,EXPR> with
+big-endian formats C<n>/C<N> (and analogously for BITS==64).  See
+L<C<pack>|/pack TEMPLATE,LIST> for details.
+
+If bits is 4 or less, the string is broken into bytes, then the bits
+of each byte are broken into 8/BITS groups.  Bits of a byte are
+numbered in a little-endian-ish way, as in C<0x01>, C<0x02>,
+C<0x04>, C<0x08>, C<0x10>, C<0x20>, C<0x40>, C<0x80>.  For example,
+breaking the single input byte C<chr(0x36)> into two groups gives a list
+C<(0x6, 0x3)>; breaking it into 4 groups gives C<(0x2, 0x1, 0x3, 0x0)>.
+
+L<C<vec>|/vec EXPR,OFFSET,BITS> may also be assigned to, in which case
+parentheses are needed
+to give the expression the correct precedence as in
+
+    vec($image, $max_x * $x + $y, 8) = 3;
+
+If the selected element is outside the string, the value 0 is returned.
+If an element off the end of the string is written to, Perl will first
+extend the string with sufficiently many zero bytes.   It is an error
+to try to write off the beginning of the string (i.e., negative OFFSET).
+
+If the string happens to be encoded as UTF-8 internally (and thus has
+the UTF8 flag set), this is ignored by L<C<vec>|/vec EXPR,OFFSET,BITS>,
+and it operates on the
+internal byte string, not the conceptual character string, even if you
+only have characters with values less than 256.
+
+Strings created with L<C<vec>|/vec EXPR,OFFSET,BITS> can also be
+manipulated with the logical
+operators C<|>, C<&>, C<^>, and C<~>.  These operators will assume a bit
+vector operation is desired when both operands are strings.
+See L<perlop/"Bitwise String Operators">.
+
+The following code will build up an ASCII string saying C<'PerlPerlPerl'>.
+The comments show the string after each step.  Note that this code works
+in the same way on big-endian or little-endian machines.
+
+    my $foo = '';
+    vec($foo,  0, 32) = 0x5065726C; # 'Perl'
+
+    # $foo eq "Perl" eq "\x50\x65\x72\x6C", 32 bits
+    print vec($foo, 0, 8);  # prints 80 == 0x50 == ord('P')
+
+    vec($foo,  2, 16) = 0x5065; # 'PerlPe'
+    vec($foo,  3, 16) = 0x726C; # 'PerlPerl'
+    vec($foo,  8,  8) = 0x50;   # 'PerlPerlP'
+    vec($foo,  9,  8) = 0x65;   # 'PerlPerlPe'
+    vec($foo, 20,  4) = 2;      # 'PerlPerlPe'   . "\x02"
+    vec($foo, 21,  4) = 7;      # 'PerlPerlPer'
+                                   # 'r' is "\x72"
+    vec($foo, 45,  2) = 3;      # 'PerlPerlPer'  . "\x0c"
+    vec($foo, 93,  1) = 1;      # 'PerlPerlPer'  . "\x2c"
+    vec($foo, 94,  1) = 1;      # 'PerlPerlPerl'
+                                   # 'l' is "\x6c"
+
+To transform a bit vector into a string or list of 0's and 1's, use these:
+
+    my $bits = unpack("b*", $vector);
+    my @bits = split(//, unpack("b*", $vector));
+
+If you know the exact length in bits, it can be used in place of the C<*>.
+
+Here is an example to illustrate how the bits actually fall in place:
+
+  #!/usr/bin/perl -wl
+
+  print <<'EOT';
+                                    0         1         2         3
+                     unpack("V",$_) 01234567890123456789012345678901
+  ------------------------------------------------------------------
+  EOT
+
+  for $w (0..3) {
+      $width = 2**$w;
+      for ($shift=0; $shift < $width; ++$shift) {
+          for ($off=0; $off < 32/$width; ++$off) {
+              $str = pack("B*", "0"x32);
+              $bits = (1<<$shift);
+              vec($str, $off, $width) = $bits;
+              $res = unpack("b*",$str);
+              $val = unpack("V", $str);
+              write;
+          }
+      }
+  }
+
+  format STDOUT =
+  vec($_,@#,@#) = @<< == @######### @>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
+  $off, $width, $bits, $val, $res
+  .
+  __END__
+
+Regardless of the machine architecture on which it runs, the
+example above should print the following table:
+
+                                    0         1         2         3
+                     unpack("V",$_) 01234567890123456789012345678901
+  ------------------------------------------------------------------
+  vec($_, 0, 1) = 1   ==          1 10000000000000000000000000000000
+  vec($_, 1, 1) = 1   ==          2 01000000000000000000000000000000
+  vec($_, 2, 1) = 1   ==          4 00100000000000000000000000000000
+  vec($_, 3, 1) = 1   ==          8 00010000000000000000000000000000
+  vec($_, 4, 1) = 1   ==         16 00001000000000000000000000000000
+  vec($_, 5, 1) = 1   ==         32 00000100000000000000000000000000
+  vec($_, 6, 1) = 1   ==         64 00000010000000000000000000000000
+  vec($_, 7, 1) = 1   ==        128 00000001000000000000000000000000
+  vec($_, 8, 1) = 1   ==        256 00000000100000000000000000000000
+  vec($_, 9, 1) = 1   ==        512 00000000010000000000000000000000
+  vec($_,10, 1) = 1   ==       1024 00000000001000000000000000000000
+  vec($_,11, 1) = 1   ==       2048 00000000000100000000000000000000
+  vec($_,12, 1) = 1   ==       4096 00000000000010000000000000000000
+  vec($_,13, 1) = 1   ==       8192 00000000000001000000000000000000
+  vec($_,14, 1) = 1   ==      16384 00000000000000100000000000000000
+  vec($_,15, 1) = 1   ==      32768 00000000000000010000000000000000
+  vec($_,16, 1) = 1   ==      65536 00000000000000001000000000000000
+  vec($_,17, 1) = 1   ==     131072 00000000000000000100000000000000
+  vec($_,18, 1) = 1   ==     262144 00000000000000000010000000000000
+  vec($_,19, 1) = 1   ==     524288 00000000000000000001000000000000
+  vec($_,20, 1) = 1   ==    1048576 00000000000000000000100000000000
+  vec($_,21, 1) = 1   ==    2097152 00000000000000000000010000000000
+  vec($_,22, 1) = 1   ==    4194304 00000000000000000000001000000000
+  vec($_,23, 1) = 1   ==    8388608 00000000000000000000000100000000
+  vec($_,24, 1) = 1   ==   16777216 00000000000000000000000010000000
+  vec($_,25, 1) = 1   ==   33554432 00000000000000000000000001000000
+  vec($_,26, 1) = 1   ==   67108864 00000000000000000000000000100000
+  vec($_,27, 1) = 1   ==  134217728 00000000000000000000000000010000
+  vec($_,28, 1) = 1   ==  268435456 00000000000000000000000000001000
+  vec($_,29, 1) = 1   ==  536870912 00000000000000000000000000000100
+  vec($_,30, 1) = 1   == 1073741824 00000000000000000000000000000010
+  vec($_,31, 1) = 1   == 2147483648 00000000000000000000000000000001
+  vec($_, 0, 2) = 1   ==          1 10000000000000000000000000000000
+  vec($_, 1, 2) = 1   ==          4 00100000000000000000000000000000
+  vec($_, 2, 2) = 1   ==         16 00001000000000000000000000000000
+  vec($_, 3, 2) = 1   ==         64 00000010000000000000000000000000
+  vec($_, 4, 2) = 1   ==        256 00000000100000000000000000000000
+  vec($_, 5, 2) = 1   ==       1024 00000000001000000000000000000000
+  vec($_, 6, 2) = 1   ==       4096 00000000000010000000000000000000
+  vec($_, 7, 2) = 1   ==      16384 00000000000000100000000000000000
+  vec($_, 8, 2) = 1   ==      65536 00000000000000001000000000000000
+  vec($_, 9, 2) = 1   ==     262144 00000000000000000010000000000000
+  vec($_,10, 2) = 1   ==    1048576 00000000000000000000100000000000
+  vec($_,11, 2) = 1   ==    4194304 00000000000000000000001000000000
+  vec($_,12, 2) = 1   ==   16777216 00000000000000000000000010000000
+  vec($_,13, 2) = 1   ==   67108864 00000000000000000000000000100000
+  vec($_,14, 2) = 1   ==  268435456 00000000000000000000000000001000
+  vec($_,15, 2) = 1   == 1073741824 00000000000000000000000000000010
+  vec($_, 0, 2) = 2   ==          2 01000000000000000000000000000000
+  vec($_, 1, 2) = 2   ==          8 00010000000000000000000000000000
+  vec($_, 2, 2) = 2   ==         32 00000100000000000000000000000000
+  vec($_, 3, 2) = 2   ==        128 00000001000000000000000000000000
+  vec($_, 4, 2) = 2   ==        512 00000000010000000000000000000000
+  vec($_, 5, 2) = 2   ==       2048 00000000000100000000000000000000
+  vec($_, 6, 2) = 2   ==       8192 00000000000001000000000000000000
+  vec($_, 7, 2) = 2   ==      32768 00000000000000010000000000000000
+  vec($_, 8, 2) = 2   ==     131072 00000000000000000100000000000000
+  vec($_, 9, 2) = 2   ==     524288 00000000000000000001000000000000
+  vec($_,10, 2) = 2   ==    2097152 00000000000000000000010000000000
+  vec($_,11, 2) = 2   ==    8388608 00000000000000000000000100000000
+  vec($_,12, 2) = 2   ==   33554432 00000000000000000000000001000000
+  vec($_,13, 2) = 2   ==  134217728 00000000000000000000000000010000
+  vec($_,14, 2) = 2   ==  536870912 00000000000000000000000000000100
+  vec($_,15, 2) = 2   == 2147483648 00000000000000000000000000000001
+  vec($_, 0, 4) = 1   ==          1 10000000000000000000000000000000
+  vec($_, 1, 4) = 1   ==         16 00001000000000000000000000000000
+  vec($_, 2, 4) = 1   ==        256 00000000100000000000000000000000
+  vec($_, 3, 4) = 1   ==       4096 00000000000010000000000000000000
+  vec($_, 4, 4) = 1   ==      65536 00000000000000001000000000000000
+  vec($_, 5, 4) = 1   ==    1048576 00000000000000000000100000000000
+  vec($_, 6, 4) = 1   ==   16777216 00000000000000000000000010000000
+  vec($_, 7, 4) = 1   ==  268435456 00000000000000000000000000001000
+  vec($_, 0, 4) = 2   ==          2 01000000000000000000000000000000
+  vec($_, 1, 4) = 2   ==         32 00000100000000000000000000000000
+  vec($_, 2, 4) = 2   ==        512 00000000010000000000000000000000
+  vec($_, 3, 4) = 2   ==       8192 00000000000001000000000000000000
+  vec($_, 4, 4) = 2   ==     131072 00000000000000000100000000000000
+  vec($_, 5, 4) = 2   ==    2097152 00000000000000000000010000000000
+  vec($_, 6, 4) = 2   ==   33554432 00000000000000000000000001000000
+  vec($_, 7, 4) = 2   ==  536870912 00000000000000000000000000000100
+  vec($_, 0, 4) = 4   ==          4 00100000000000000000000000000000
+  vec($_, 1, 4) = 4   ==         64 00000010000000000000000000000000
+  vec($_, 2, 4) = 4   ==       1024 00000000001000000000000000000000
+  vec($_, 3, 4) = 4   ==      16384 00000000000000100000000000000000
+  vec($_, 4, 4) = 4   ==     262144 00000000000000000010000000000000
+  vec($_, 5, 4) = 4   ==    4194304 00000000000000000000001000000000
+  vec($_, 6, 4) = 4   ==   67108864 00000000000000000000000000100000
+  vec($_, 7, 4) = 4   == 1073741824 00000000000000000000000000000010
+  vec($_, 0, 4) = 8   ==          8 00010000000000000000000000000000
+  vec($_, 1, 4) = 8   ==        128 00000001000000000000000000000000
+  vec($_, 2, 4) = 8   ==       2048 00000000000100000000000000000000
+  vec($_, 3, 4) = 8   ==      32768 00000000000000010000000000000000
+  vec($_, 4, 4) = 8   ==     524288 00000000000000000001000000000000
+  vec($_, 5, 4) = 8   ==    8388608 00000000000000000000000100000000
+  vec($_, 6, 4) = 8   ==  134217728 00000000000000000000000000010000
+  vec($_, 7, 4) = 8   == 2147483648 00000000000000000000000000000001
+  vec($_, 0, 8) = 1   ==          1 10000000000000000000000000000000
+  vec($_, 1, 8) = 1   ==        256 00000000100000000000000000000000
+  vec($_, 2, 8) = 1   ==      65536 00000000000000001000000000000000
+  vec($_, 3, 8) = 1   ==   16777216 00000000000000000000000010000000
+  vec($_, 0, 8) = 2   ==          2 01000000000000000000000000000000
+  vec($_, 1, 8) = 2   ==        512 00000000010000000000000000000000
+  vec($_, 2, 8) = 2   ==     131072 00000000000000000100000000000000
+  vec($_, 3, 8) = 2   ==   33554432 00000000000000000000000001000000
+  vec($_, 0, 8) = 4   ==          4 00100000000000000000000000000000
+  vec($_, 1, 8) = 4   ==       1024 00000000001000000000000000000000
+  vec($_, 2, 8) = 4   ==     262144 00000000000000000010000000000000
+  vec($_, 3, 8) = 4   ==   67108864 00000000000000000000000000100000
+  vec($_, 0, 8) = 8   ==          8 00010000000000000000000000000000
+  vec($_, 1, 8) = 8   ==       2048 00000000000100000000000000000000
+  vec($_, 2, 8) = 8   ==     524288 00000000000000000001000000000000
+  vec($_, 3, 8) = 8   ==  134217728 00000000000000000000000000010000
+  vec($_, 0, 8) = 16  ==         16 00001000000000000000000000000000
+  vec($_, 1, 8) = 16  ==       4096 00000000000010000000000000000000
+  vec($_, 2, 8) = 16  ==    1048576 00000000000000000000100000000000
+  vec($_, 3, 8) = 16  ==  268435456 00000000000000000000000000001000
+  vec($_, 0, 8) = 32  ==         32 00000100000000000000000000000000
+  vec($_, 1, 8) = 32  ==       8192 00000000000001000000000000000000
+  vec($_, 2, 8) = 32  ==    2097152 00000000000000000000010000000000
+  vec($_, 3, 8) = 32  ==  536870912 00000000000000000000000000000100
+  vec($_, 0, 8) = 64  ==         64 00000010000000000000000000000000
+  vec($_, 1, 8) = 64  ==      16384 00000000000000100000000000000000
+  vec($_, 2, 8) = 64  ==    4194304 00000000000000000000001000000000
+  vec($_, 3, 8) = 64  == 1073741824 00000000000000000000000000000010
+  vec($_, 0, 8) = 128 ==        128 00000001000000000000000000000000
+  vec($_, 1, 8) = 128 ==      32768 00000000000000010000000000000000
+  vec($_, 2, 8) = 128 ==    8388608 00000000000000000000000100000000
+  vec($_, 3, 8) = 128 == 2147483648 00000000000000000000000000000001
+
+=item wait
+X<wait>
+
+=for Pod::Functions wait for any child process to die
+
+Behaves like L<wait(2)> on your system: it waits for a child
+process to terminate and returns the pid of the deceased process, or
+C<-1> if there are no child processes.  The status is returned in
+L<C<$?>|perlvar/$?> and
+L<C<${^CHILD_ERROR_NATIVE}>|perlvar/${^CHILD_ERROR_NATIVE}>.
+Note that a return value of C<-1> could mean that child processes are
+being automatically reaped, as described in L<perlipc>.
+
+If you use L<C<wait>|/wait> in your handler for
+L<C<$SIG{CHLD}>|perlvar/%SIG>, it may accidentally wait for the child
+created by L<C<qx>|/qxE<sol>STRINGE<sol>> or L<C<system>|/system LIST>.
+See L<perlipc> for details.
+
+Portability issues: L<perlport/wait>.
+
+=item waitpid PID,FLAGS
+X<waitpid>
+
+=for Pod::Functions wait for a particular child process to die
+
+Waits for a particular child process to terminate and returns the pid of
+the deceased process, or C<-1> if there is no such child process.  A
+non-blocking wait (with L<WNOHANG|POSIX/C<WNOHANG>> in FLAGS) can return 0 if
+there are child processes matching PID but none have terminated yet.
+The status is returned in L<C<$?>|perlvar/$?> and
+L<C<${^CHILD_ERROR_NATIVE}>|perlvar/${^CHILD_ERROR_NATIVE}>.
+
+A PID of C<0> indicates to wait for any child process whose process group ID is
+equal to that of the current process.  A PID of less than C<-1> indicates to
+wait for any child process whose process group ID is equal to -PID.  A PID of
+C<-1> indicates to wait for any child process.
+
+If you say
+
+    use POSIX ":sys_wait_h";
+
+    my $kid;
+    do {
+        $kid = waitpid(-1, WNOHANG);
+    } while $kid > 0;
+
+or
+
+    1 while waitpid(-1, WNOHANG) > 0;
+
+then you can do a non-blocking wait for all pending zombie processes (see
+L<POSIX/WAIT>).
+Non-blocking wait is available on machines supporting either the
+L<waitpid(2)> or L<wait4(2)> syscalls.  However, waiting for a particular
+pid with FLAGS of C<0> is implemented everywhere.  (Perl emulates the
+system call by remembering the status values of processes that have
+exited but have not been harvested by the Perl script yet.)
+
+Note that on some systems, a return value of C<-1> could mean that child
+processes are being automatically reaped.  See L<perlipc> for details,
+and for other examples.
+
+Portability issues: L<perlport/waitpid>.
+
+=item wantarray
+X<wantarray> X<context>
+
+=for Pod::Functions get void vs scalar vs list context of current subroutine call
+
+Returns true if the context of the currently executing subroutine or
+L<C<eval>|/eval EXPR> is looking for a list value.  Returns false if the
+context is
+looking for a scalar.  Returns the undefined value if the context is
+looking for no value (void context).
+
+    return unless defined wantarray; # don't bother doing more
+    my @a = complex_calculation();
+    return wantarray ? @a : "@a";
+
+L<C<wantarray>|/wantarray>'s result is unspecified in the top level of a file,
+in a C<BEGIN>, C<UNITCHECK>, C<CHECK>, C<INIT> or C<END> block, or
+in a C<DESTROY> method.
+
+This function should have been named wantlist() instead.
+
+=item warn LIST
+X<warn> X<warning> X<STDERR>
+
+=for Pod::Functions print debugging info
+
+Prints the value of LIST to STDERR.  If the last element of LIST does
+not end in a newline, it appends the same file/line number text as
+L<C<die>|/die LIST> does.
+
+If the output is empty and L<C<$@>|perlvar/$@> already contains a value
+(typically from a previous eval) that value is used after appending
+C<"\t...caught"> to L<C<$@>|perlvar/$@>.  This is useful for staying
+almost, but not entirely similar to L<C<die>|/die LIST>.
+
+If L<C<$@>|perlvar/$@> is empty, then the string
+C<"Warning: Something's wrong"> is used.
+
+No message is printed if there is a L<C<$SIG{__WARN__}>|perlvar/%SIG>
+handler
+installed.  It is the handler's responsibility to deal with the message
+as it sees fit (like, for instance, converting it into a
+L<C<die>|/die LIST>).  Most
+handlers must therefore arrange to actually display the
+warnings that they are not prepared to deal with, by calling
+L<C<warn>|/warn LIST>
+again in the handler.  Note that this is quite safe and will not
+produce an endless loop, since C<__WARN__> hooks are not called from
+inside one.
+
+You will find this behavior is slightly different from that of
+L<C<$SIG{__DIE__}>|perlvar/%SIG> handlers (which don't suppress the
+error text, but can instead call L<C<die>|/die LIST> again to change
+it).
+
+Using a C<__WARN__> handler provides a powerful way to silence all
+warnings (even the so-called mandatory ones).  An example:
+
+    # wipe out *all* compile-time warnings
+    BEGIN { $SIG{'__WARN__'} = sub { warn $_[0] if $DOWARN } }
+    my $foo = 10;
+    my $foo = 20;          # no warning about duplicate my $foo,
+                           # but hey, you asked for it!
+    # no compile-time or run-time warnings before here
+    $DOWARN = 1;
+
+    # run-time warnings enabled after here
+    warn "\$foo is alive and $foo!";     # does show up
+
+See L<perlvar> for details on setting L<C<%SIG>|perlvar/%SIG> entries
+and for more
+examples.  See the L<Carp> module for other kinds of warnings using its
+C<carp> and C<cluck> functions.
+
+=item write FILEHANDLE
+X<write>
+
+=item write EXPR
+
+=item write
+
+=for Pod::Functions print a picture record
+
+Writes a formatted record (possibly multi-line) to the specified FILEHANDLE,
+using the format associated with that file.  By default the format for
+a file is the one having the same name as the filehandle, but the
+format for the current output channel (see the
+L<C<select>|/select FILEHANDLE> function) may be set explicitly by
+assigning the name of the format to the L<C<$~>|perlvar/$~> variable.
+
+Top of form processing is handled automatically:  if there is insufficient
+room on the current page for the formatted record, the page is advanced by
+writing a form feed and a special top-of-page
+format is used to format the new
+page header before the record is written.  By default, the top-of-page
+format is the name of the filehandle with C<_TOP> appended, or C<top>
+in the current package if the former does not exist.  This would be a
+problem with autovivified filehandles, but it may be dynamically set to the
+format of your choice by assigning the name to the L<C<$^>|perlvar/$^>
+variable while that filehandle is selected.  The number of lines
+remaining on the current page is in variable L<C<$->|perlvar/$->, which
+can be set to C<0> to force a new page.
+
+If FILEHANDLE is unspecified, output goes to the current default output
+channel, which starts out as STDOUT but may be changed by the
+L<C<select>|/select FILEHANDLE> operator.  If the FILEHANDLE is an EXPR,
+then the expression
+is evaluated and the resulting string is used to look up the name of
+the FILEHANDLE at run time.  For more on formats, see L<perlform>.
+
+Note that write is I<not> the opposite of
+L<C<read>|/read FILEHANDLE,SCALAR,LENGTH,OFFSET>.  Unfortunately.
+
+=item y///
+
+=for Pod::Functions transliterate a string
+
+The transliteration operator.  Same as
+L<C<trE<sol>E<sol>E<sol>>|/trE<sol>E<sol>E<sol>>.  See
+L<perlop/"Quote-Like Operators">.
+
+=back
+
+=head2 Non-function Keywords by Cross-reference
+
+=head3 perldata
+
+=over
+
+=item __DATA__
+
+=item __END__
+
+These keywords are documented in L<perldata/"Special Literals">.
+
+=back
+
+=head3 perlmod
+
+=over
+
+=item BEGIN
+
+=item CHECK
+
+=item END
+
+=item INIT
+
+=item UNITCHECK
+
+These compile phase keywords are documented in L<perlmod/"BEGIN, UNITCHECK, CHECK, INIT and END">.
+
+=back
+
+=head3 perlobj
+
+=over
+
+=item DESTROY
+
+This method keyword is documented in L<perlobj/"Destructors">.
+
+=back
+
+=head3 perlop
+
+=over
+
+=item and
+
+=item cmp
+
+=item eq
+
+=item ge
+
+=item gt
+
+=item le
+
+=item lt
+
+=item ne
+
+=item not
+
+=item or
+
+=item x
+
+=item xor
+
+These operators are documented in L<perlop>.
+
+=back
+
+=head3 perlsub
+
+=over
+
+=item AUTOLOAD
+
+This keyword is documented in L<perlsub/"Autoloading">.
+
+=back
+
+=head3 perlsyn
+
+=over
+
+=item else
+
+=item elsif
+
+=item for
+
+=item foreach
+
+=item if
+
+=item unless
+
+=item until
+
+=item while
+
+These flow-control keywords are documented in L<perlsyn/"Compound Statements">.
+
+=item elseif
+
+The "else if" keyword is spelled C<elsif> in Perl.  There's no C<elif>
+or C<else if> either.  It does parse C<elseif>, but only to warn you
+about not using it.
+
+See the documentation for flow-control keywords in L<perlsyn/"Compound
+Statements">.
+
+=back
+
+=over
+
+=item default
+
+=item given
+
+=item when
+
+These flow-control keywords related to the experimental switch feature are
+documented in L<perlsyn/"Switch Statements">.
+
+=back
+
+=cut
diff --git a/lib/5.24.1/pod/perlgit.pod b/lib/5.24.1/pod/perlgit.pod
new file mode 100644
index 00000000..9d3edccb
--- /dev/null
+++ b/lib/5.24.1/pod/perlgit.pod
@@ -0,0 +1,932 @@
+=encoding utf8
+
+=for comment
+Consistent formatting of this file is achieved with:
+  perl ./Porting/podtidy pod/perlgit.pod
+
+=head1 NAME
+
+perlgit - Detailed information about git and the Perl repository
+
+=head1 DESCRIPTION
+
+This document provides details on using git to develop Perl. If you are
+just interested in working on a quick patch, see L<perlhack> first.
+This document is intended for people who are regular contributors to
+Perl, including those with write access to the git repository.
+
+=head1 CLONING THE REPOSITORY
+
+All of Perl's source code is kept centrally in a Git repository at
+I<perl5.git.perl.org>.
+
+You can make a read-only clone of the repository by running:
+
+  % git clone git://perl5.git.perl.org/perl.git perl
+
+This uses the git protocol (port 9418).
+
+If you cannot use the git protocol for firewall reasons, you can also
+clone via http, though this is much slower:
+
+  % git clone http://perl5.git.perl.org/perl.git perl
+
+=head1 WORKING WITH THE REPOSITORY
+
+Once you have changed into the repository directory, you can inspect
+it. After a clone the repository will contain a single local branch,
+which will be the current branch as well, as indicated by the asterisk.
+
+  % git branch
+  * blead
+
+Using the -a switch to C<branch> will also show the remote tracking
+branches in the repository:
+
+  % git branch -a
+  * blead
+    origin/HEAD
+    origin/blead
+  ...
+
+The branches that begin with "origin" correspond to the "git remote"
+that you cloned from (which is named "origin"). Each branch on the
+remote will be exactly tracked by these branches. You should NEVER do
+work on these remote tracking branches. You only ever do work in a
+local branch. Local branches can be configured to automerge (on pull)
+from a designated remote tracking branch. This is the case with the
+default branch C<blead> which will be configured to merge from the
+remote tracking branch C<origin/blead>.
+
+You can see recent commits:
+
+  % git log
+
+And pull new changes from the repository, and update your local
+repository (must be clean first)
+
+  % git pull
+
+Assuming we are on the branch C<blead> immediately after a pull, this
+command would be more or less equivalent to:
+
+  % git fetch
+  % git merge origin/blead
+
+In fact if you want to update your local repository without touching
+your working directory you do:
+
+  % git fetch
+
+And if you want to update your remote-tracking branches for all defined
+remotes simultaneously you can do
+
+  % git remote update
+
+Neither of these last two commands will update your working directory,
+however both will update the remote-tracking branches in your
+repository.
+
+To make a local branch of a remote branch:
+
+  % git checkout -b maint-5.10 origin/maint-5.10
+
+To switch back to blead:
+
+  % git checkout blead
+
+=head2 Finding out your status
+
+The most common git command you will use will probably be
+
+  % git status
+
+This command will produce as output a description of the current state
+of the repository, including modified files and unignored untracked
+files, and in addition it will show things like what files have been
+staged for the next commit, and usually some useful information about
+how to change things. For instance the following:
+
+ % git status
+ On branch blead
+ Your branch is ahead of 'origin/blead' by 1 commit.
+
+ Changes to be committed:
+   (use "git reset HEAD <file>..." to unstage)
+
+       modified:   pod/perlgit.pod
+
+ Changes not staged for commit:
+   (use "git add <file>..." to update what will be committed)
+   (use "git checkout -- <file>..." to discard changes in working
+                                                              directory)
+
+       modified:   pod/perlgit.pod
+
+ Untracked files:
+   (use "git add <file>..." to include in what will be committed)
+
+       deliberate.untracked
+
+This shows that there were changes to this document staged for commit,
+and that there were further changes in the working directory not yet
+staged. It also shows that there was an untracked file in the working
+directory, and as you can see shows how to change all of this. It also
+shows that there is one commit on the working branch C<blead> which has
+not been pushed to the C<origin> remote yet. B<NOTE>: This output
+is also what you see as a template if you do not provide a message to
+C<git commit>.
+
+=head2 Patch workflow
+
+First, please read L<perlhack> for details on hacking the Perl core.
+That document covers many details on how to create a good patch.
+
+If you already have a Perl repository, you should ensure that you're on
+the I<blead> branch, and your repository is up to date:
+
+  % git checkout blead
+  % git pull
+
+It's preferable to patch against the latest blead version, since this
+is where new development occurs for all changes other than critical bug
+fixes. Critical bug fix patches should be made against the relevant
+maint branches, or should be submitted with a note indicating all the
+branches where the fix should be applied.
+
+Now that we have everything up to date, we need to create a temporary
+new branch for these changes and switch into it:
+
+  % git checkout -b orange
+
+which is the short form of
+
+  % git branch orange
+  % git checkout orange
+
+Creating a topic branch makes it easier for the maintainers to rebase
+or merge back into the master blead for a more linear history. If you
+don't work on a topic branch the maintainer has to manually cherry pick
+your changes onto blead before they can be applied.
+
+That'll get you scolded on perl5-porters, so don't do that. Be Awesome.
+
+Then make your changes. For example, if Leon Brocard changes his name
+to Orange Brocard, we should change his name in the AUTHORS file:
+
+  % perl -pi -e 's{Leon Brocard}{Orange Brocard}' AUTHORS
+
+You can see what files are changed:
+
+  % git status
+  On branch orange
+  Changes to be committed:
+    (use "git reset HEAD <file>..." to unstage)
+
+     modified:   AUTHORS
+
+And you can see the changes:
+
+ % git diff
+ diff --git a/AUTHORS b/AUTHORS
+ index 293dd70..722c93e 100644
+ --- a/AUTHORS
+ +++ b/AUTHORS
+ @@ -541,7 +541,7 @@    Lars Hecking              <lhecking@nmrc.ucc.ie>
+  Laszlo Molnar                  <laszlo.molnar@eth.ericsson.se>
+  Leif Huhn                      <leif@hale.dkstat.com>
+  Len Johnson                    <lenjay@ibm.net>
+ -Leon Brocard                   <acme@astray.com>
+ +Orange Brocard                 <acme@astray.com>
+  Les Peters                     <lpeters@aol.net>
+  Lesley Binks                   <lesley.binks@gmail.com>
+  Lincoln D. Stein               <lstein@cshl.org>
+
+Now commit your change locally:
+
+ % git commit -a -m 'Rename Leon Brocard to Orange Brocard'
+ Created commit 6196c1d: Rename Leon Brocard to Orange Brocard
+  1 files changed, 1 insertions(+), 1 deletions(-)
+
+The C<-a> option is used to include all files that git tracks that you
+have changed. If at this time, you only want to commit some of the
+files you have worked on, you can omit the C<-a> and use the command
+C<S<git add I<FILE ...>>> before doing the commit. C<S<git add
+--interactive>> allows you to even just commit portions of files
+instead of all the changes in them.
+
+The C<-m> option is used to specify the commit message. If you omit it,
+git will open a text editor for you to compose the message
+interactively. This is useful when the changes are more complex than
+the sample given here, and, depending on the editor, to know that the
+first line of the commit message doesn't exceed the 50 character legal
+maximum.
+
+Once you've finished writing your commit message and exited your
+editor, git will write your change to disk and tell you something like
+this:
+
+ Created commit daf8e63: explain git status and stuff about remotes
+  1 files changed, 83 insertions(+), 3 deletions(-)
+
+If you re-run C<git status>, you should see something like this:
+
+ % git status
+ On branch orange
+ Untracked files:
+   (use "git add <file>..." to include in what will be committed)
+
+       deliberate.untracked
+
+ nothing added to commit but untracked files present (use "git add" to
+                                                                  track)
+
+When in doubt, before you do anything else, check your status and read
+it carefully, many questions are answered directly by the git status
+output.
+
+You can examine your last commit with:
+
+  % git show HEAD
+
+and if you are not happy with either the description or the patch
+itself you can fix it up by editing the files once more and then issue:
+
+  % git commit -a --amend
+
+Now you should create a patch file for all your local changes:
+
+  % git format-patch -M blead..
+  0001-Rename-Leon-Brocard-to-Orange-Brocard.patch
+
+Or for a lot of changes, e.g. from a topic branch:
+
+  % git format-patch --stdout -M blead.. > topic-branch-changes.patch
+
+You should now send an email to
+L<perlbug@perl.org|mailto:perlbug@perl.org> with a description of your
+changes, and include this patch file as an attachment. In addition to
+being tracked by RT, mail to perlbug will automatically be forwarded to
+perl5-porters (with manual moderation, so please be patient). You
+should only send patches to
+L<perl5-porters@perl.org|mailto:perl5-porters@perl.org> directly if the
+patch is not ready to be applied, but intended for discussion.
+
+Please do not use git-send-email(1) to send your patch. See L<Sending
+patch emails|/Sending patch emails> for more information.
+
+If you want to delete your temporary branch, you may do so with:
+
+ % git checkout blead
+ % git branch -d orange
+ error: The branch 'orange' is not an ancestor of your current HEAD.
+ If you are sure you want to delete it, run 'git branch -D orange'.
+ % git branch -D orange
+ Deleted branch orange.
+
+=head2 Committing your changes
+
+Assuming that you'd like to commit all the changes you've made as a
+single atomic unit, run this command:
+
+  % git commit -a
+
+(That C<-a> tells git to add every file you've changed to this commit.
+New files aren't automatically added to your commit when you use
+C<commit -a> If you want to add files or to commit some, but not all of
+your changes, have a look at the documentation for C<git add>.)
+
+Git will start up your favorite text editor, so that you can craft a
+commit message for your change. See L<perlhack/Commit message> for more
+information about what makes a good commit message.
+
+Once you've finished writing your commit message and exited your
+editor, git will write your change to disk and tell you something like
+this:
+
+ Created commit daf8e63: explain git status and stuff about remotes
+  1 files changed, 83 insertions(+), 3 deletions(-)
+
+If you re-run C<git status>, you should see something like this:
+
+ % git status
+ On branch blead
+ Your branch is ahead of 'origin/blead' by 2 commits.
+   (use "git push" to publish your local commits)
+ Untracked files:
+   (use "git add <file>..." to include in what will be committed)
+
+       deliberate.untracked
+
+ nothing added to commit but untracked files present (use "git add" to
+                                                                  track)
+
+When in doubt, before you do anything else, check your status and read
+it carefully, many questions are answered directly by the git status
+output.
+
+=head2 Sending patch emails
+
+After you've generated your patch you should send it
+to L<perlbug@perl.org|mailto:perlbug@perl.org> (as discussed L<in the
+previous section|/"Patch workflow">) with a normal mail client as an
+attachment, along with a description of the patch.
+
+You B<must not> use git-send-email(1) to send patches generated with
+git-format-patch(1). The RT ticketing system living behind
+L<perlbug@perl.org|mailto:perlbug@perl.org> does not respect the inline
+contents of E-Mails, sending an inline patch to RT guarantees that your
+patch will be destroyed.
+
+Someone may download your patch from RT, which will result in the
+subject (the first line of the commit message) being omitted.  See
+L<RT #74192|https://rt.perl.org/Ticket/Display.html?id=74192> and
+L<commit a4583001|http://perl5.git.perl.org/perl.git/commitdiff/a4583001>
+for an example. Alternatively someone may
+apply your patch from RT after it arrived in their mailbox, by which
+time RT will have modified the inline content of the message.  See
+L<RT #74532|https://rt.perl.org/Ticket/Display.html?id=74532> and
+L<commit f9bcfeac|http://perl5.git.perl.org/perl.git/commitdiff/f9bcfeac>
+for a bad example of this failure mode.
+
+=head2 A note on derived files
+
+Be aware that many files in the distribution are derivative--avoid
+patching them, because git won't see the changes to them, and the build
+process will overwrite them. Patch the originals instead. Most
+utilities (like perldoc) are in this category, i.e. patch
+F<utils/perldoc.PL> rather than F<utils/perldoc>. Similarly, don't
+create patches for files under F<$src_root/ext> from their copies found
+in F<$install_root/lib>. If you are unsure about the proper location of
+a file that may have gotten copied while building the source
+distribution, consult the F<MANIFEST>.
+
+=head2 Cleaning a working directory
+
+The command C<git clean> can with varying arguments be used as a
+replacement for C<make clean>.
+
+To reset your working directory to a pristine condition you can do:
+
+  % git clean -dxf
+
+However, be aware this will delete ALL untracked content. You can use
+
+  % git clean -Xf
+
+to remove all ignored untracked files, such as build and test
+byproduct, but leave any manually created files alone.
+
+If you only want to cancel some uncommitted edits, you can use C<git
+checkout> and give it a list of files to be reverted, or C<git checkout
+-f> to revert them all.
+
+If you want to cancel one or several commits, you can use C<git reset>.
+
+=head2 Bisecting
+
+C<git> provides a built-in way to determine which commit should be blamed
+for introducing a given bug. C<git bisect> performs a binary search of
+history to locate the first failing commit. It is fast, powerful and
+flexible, but requires some setup and to automate the process an auxiliary
+shell script is needed.
+
+The core provides a wrapper program, F<Porting/bisect.pl>, which attempts to
+simplify as much as possible, making bisecting as simple as running a Perl
+one-liner. For example, if you want to know when this became an error:
+
+    perl -e 'my $a := 2'
+
+you simply run this:
+
+    .../Porting/bisect.pl -e 'my $a := 2;'
+
+Using F<Porting/bisect.pl>, with one command (and no other files) it's easy to
+find out
+
+=over 4
+
+=item *
+
+Which commit caused this example code to break?
+
+=item *
+
+Which commit caused this example code to start working?
+
+=item *
+
+Which commit added the first file to match this regex?
+
+=item *
+
+Which commit removed the last file to match this regex?
+
+=back
+
+usually without needing to know which versions of perl to use as start and
+end revisions, as F<Porting/bisect.pl> automatically searches to find the
+earliest stable version for which the test case passes. Run
+C<Porting/bisect.pl --help> for the full documentation, including how to
+set the C<Configure> and build time options.
+
+If you require more flexibility than F<Porting/bisect.pl> has to offer, you'll
+need to run C<git bisect> yourself. It's most useful to use C<git bisect run>
+to automate the building and testing of perl revisions. For this you'll need
+a shell script for C<git> to call to test a particular revision. An example
+script is F<Porting/bisect-example.sh>, which you should copy B<outside> of
+the repository, as the bisect process will reset the state to a clean checkout
+as it runs. The instructions below assume that you copied it as F<~/run> and
+then edited it as appropriate.
+
+You first enter in bisect mode with:
+
+  % git bisect start
+
+For example, if the bug is present on C<HEAD> but wasn't in 5.10.0,
+C<git> will learn about this when you enter:
+
+  % git bisect bad
+  % git bisect good perl-5.10.0
+  Bisecting: 853 revisions left to test after this
+
+This results in checking out the median commit between C<HEAD> and
+C<perl-5.10.0>. You can then run the bisecting process with:
+
+  % git bisect run ~/run
+
+When the first bad commit is isolated, C<git bisect> will tell you so:
+
+  ca4cfd28534303b82a216cfe83a1c80cbc3b9dc5 is first bad commit
+  commit ca4cfd28534303b82a216cfe83a1c80cbc3b9dc5
+  Author: Dave Mitchell <davem@fdisolutions.com>
+  Date:   Sat Feb 9 14:56:23 2008 +0000
+
+      [perl #49472] Attributes + Unknown Error
+      ...
+
+  bisect run success
+
+You can peek into the bisecting process with C<git bisect log> and
+C<git bisect visualize>. C<git bisect reset> will get you out of bisect
+mode.
+
+Please note that the first C<good> state must be an ancestor of the
+first C<bad> state. If you want to search for the commit that I<solved>
+some bug, you have to negate your test case (i.e. exit with C<1> if OK
+and C<0> if not) and still mark the lower bound as C<good> and the
+upper as C<bad>. The "first bad commit" has then to be understood as
+the "first commit where the bug is solved".
+
+C<git help bisect> has much more information on how you can tweak your
+binary searches.
+
+=head2 Topic branches and rewriting history
+
+Individual committers should create topic branches under
+B<yourname>/B<some_descriptive_name>:
+
+  % branch="$yourname/$some_descriptive_name"
+  % git checkout -b $branch
+  ... do local edits, commits etc ...
+  % git push origin -u $branch
+
+Should you be stuck with an ancient version of git (prior to 1.7), then
+C<git push> will not have the C<-u> switch, and you have to replace the
+last step with the following sequence:
+
+  % git push origin $branch:refs/heads/$branch
+  % git config branch.$branch.remote origin
+  % git config branch.$branch.merge refs/heads/$branch
+
+If you want to make changes to someone else's topic branch, you should
+check with its creator before making any change to it.
+
+You
+might sometimes find that the original author has edited the branch's
+history. There are lots of good reasons for this. Sometimes, an author
+might simply be rebasing the branch onto a newer source point.
+Sometimes, an author might have found an error in an early commit which
+they wanted to fix before merging the branch to blead.
+
+Currently the master repository is configured to forbid
+non-fast-forward merges. This means that the branches within can not be
+rebased and pushed as a single step.
+
+The only way you will ever be allowed to rebase or modify the history
+of a pushed branch is to delete it and push it as a new branch under
+the same name. Please think carefully about doing this. It may be
+better to sequentially rename your branches so that it is easier for
+others working with you to cherry-pick their local changes onto the new
+version. (XXX: needs explanation).
+
+If you want to rebase a personal topic branch, you will have to delete
+your existing topic branch and push as a new version of it. You can do
+this via the following formula (see the explanation about C<refspec>'s
+in the git push documentation for details) after you have rebased your
+branch:
+
+  # first rebase
+  % git checkout $user/$topic
+  % git fetch
+  % git rebase origin/blead
+
+  # then "delete-and-push"
+  % git push origin :$user/$topic
+  % git push origin $user/$topic
+
+B<NOTE:> it is forbidden at the repository level to delete any of the
+"primary" branches. That is any branch matching
+C<m!^(blead|maint|perl)!>. Any attempt to do so will result in git
+producing an error like this:
+
+  % git push origin :blead
+  *** It is forbidden to delete blead/maint branches in this repository
+  error: hooks/update exited with error code 1
+  error: hook declined to update refs/heads/blead
+  To ssh://perl5.git.perl.org/perl
+   ! [remote rejected] blead (hook declined)
+   error: failed to push some refs to 'ssh://perl5.git.perl.org/perl'
+
+As a matter of policy we do B<not> edit the history of the blead and
+maint-* branches. If a typo (or worse) sneaks into a commit to blead or
+maint-*, we'll fix it in another commit. The only types of updates
+allowed on these branches are "fast-forwards", where all history is
+preserved.
+
+Annotated tags in the canonical perl.git repository will never be
+deleted or modified. Think long and hard about whether you want to push
+a local tag to perl.git before doing so. (Pushing simple tags is
+not allowed.)
+
+=head2 Grafts
+
+The perl history contains one mistake which was not caught in the
+conversion: a merge was recorded in the history between blead and
+maint-5.10 where no merge actually occurred. Due to the nature of git,
+this is now impossible to fix in the public repository. You can remove
+this mis-merge locally by adding the following line to your
+C<.git/info/grafts> file:
+
+ 296f12bbbbaa06de9be9d09d3dcf8f4528898a49 434946e0cb7a32589ed92d18008aaa1d88515930
+
+It is particularly important to have this graft line if any bisecting
+is done in the area of the "merge" in question.
+
+=head1 WRITE ACCESS TO THE GIT REPOSITORY
+
+Once you have write access, you will need to modify the URL for the
+origin remote to enable pushing. Edit F<.git/config> with the
+git-config(1) command:
+
+  % git config remote.origin.url ssh://perl5.git.perl.org/perl.git
+
+You can also set up your user name and e-mail address. Most people do
+this once globally in their F<~/.gitconfig> by doing something like:
+
+  % git config --global user.name "Ævar Arnfjörð Bjarmason"
+  % git config --global user.email avarab@gmail.com
+
+However, if you'd like to override that just for perl,
+execute something like the following in F<perl>:
+
+  % git config user.email avar@cpan.org
+
+It is also possible to keep C<origin> as a git remote, and add a new
+remote for ssh access:
+
+  % git remote add camel perl5.git.perl.org:/perl.git
+
+This allows you to update your local repository by pulling from
+C<origin>, which is faster and doesn't require you to authenticate, and
+to push your changes back with the C<camel> remote:
+
+  % git fetch camel
+  % git push camel
+
+The C<fetch> command just updates the C<camel> refs, as the objects
+themselves should have been fetched when pulling from C<origin>.
+
+=head2 Accepting a patch
+
+If you have received a patch file generated using the above section,
+you should try out the patch.
+
+First we need to create a temporary new branch for these changes and
+switch into it:
+
+ % git checkout -b experimental
+
+Patches that were formatted by C<git format-patch> are applied with
+C<git am>:
+
+ % git am 0001-Rename-Leon-Brocard-to-Orange-Brocard.patch
+ Applying Rename Leon Brocard to Orange Brocard
+
+Note that some UNIX mail systems can mess with text attachments containing
+'From '. This will fix them up:
+
+ % perl -pi -e's/^>From /From /' \
+                        0001-Rename-Leon-Brocard-to-Orange-Brocard.patch
+
+If just a raw diff is provided, it is also possible use this two-step
+process:
+
+ % git apply bugfix.diff
+ % git commit -a -m "Some fixing" \
+                            --author="That Guy <that.guy@internets.com>"
+
+Now we can inspect the change:
+
+ % git show HEAD
+ commit b1b3dab48344cff6de4087efca3dbd63548ab5e2
+ Author: Leon Brocard <acme@astray.com>
+ Date:   Fri Dec 19 17:02:59 2008 +0000
+
+   Rename Leon Brocard to Orange Brocard
+
+ diff --git a/AUTHORS b/AUTHORS
+ index 293dd70..722c93e 100644
+ --- a/AUTHORS
+ +++ b/AUTHORS
+ @@ -541,7 +541,7 @@ Lars Hecking                 <lhecking@nmrc.ucc.ie>
+  Laszlo Molnar                  <laszlo.molnar@eth.ericsson.se>
+  Leif Huhn                      <leif@hale.dkstat.com>
+  Len Johnson                    <lenjay@ibm.net>
+ -Leon Brocard                   <acme@astray.com>
+ +Orange Brocard                 <acme@astray.com>
+  Les Peters                     <lpeters@aol.net>
+  Lesley Binks                   <lesley.binks@gmail.com>
+  Lincoln D. Stein               <lstein@cshl.org>
+
+If you are a committer to Perl and you think the patch is good, you can
+then merge it into blead then push it out to the main repository:
+
+  % git checkout blead
+  % git merge experimental
+  % git push origin blead
+
+If you want to delete your temporary branch, you may do so with:
+
+ % git checkout blead
+ % git branch -d experimental
+ error: The branch 'experimental' is not an ancestor of your current
+ HEAD.  If you are sure you want to delete it, run 'git branch -D
+ experimental'.
+ % git branch -D experimental
+ Deleted branch experimental.
+
+=head2 Committing to blead
+
+The 'blead' branch will become the next production release of Perl.
+
+Before pushing I<any> local change to blead, it's incredibly important
+that you do a few things, lest other committers come after you with
+pitchforks and torches:
+
+=over
+
+=item *
+
+Make sure you have a good commit message. See L<perlhack/Commit
+message> for details.
+
+=item *
+
+Run the test suite. You might not think that one typo fix would break a
+test file. You'd be wrong. Here's an example of where not running the
+suite caused problems. A patch was submitted that added a couple of
+tests to an existing F<.t>. It couldn't possibly affect anything else, so
+no need to test beyond the single affected F<.t>, right?  But, the
+submitter's email address had changed since the last of their
+submissions, and this caused other tests to fail. Running the test
+target given in the next item would have caught this problem.
+
+=item *
+
+If you don't run the full test suite, at least C<make test_porting>.
+This will run basic sanity checks. To see which sanity checks, have a
+look in F<t/porting>.
+
+=item *
+
+If you make any changes that affect miniperl or core routines that have
+different code paths for miniperl, be sure to run C<make minitest>.
+This will catch problems that even the full test suite will not catch
+because it runs a subset of tests under miniperl rather than perl.
+
+=back
+
+=head2 On merging and rebasing
+
+Simple, one-off commits pushed to the 'blead' branch should be simple
+commits that apply cleanly.  In other words, you should make sure your
+work is committed against the current position of blead, so that you can
+push back to the master repository without merging.
+
+Sometimes, blead will move while you're building or testing your
+changes.  When this happens, your push will be rejected with a message
+like this:
+
+ To ssh://perl5.git.perl.org/perl.git
+  ! [rejected]        blead -> blead (non-fast-forward)
+ error: failed to push some refs to 'ssh://perl5.git.perl.org/perl.git'
+ To prevent you from losing history, non-fast-forward updates were
+ rejected Merge the remote changes (e.g. 'git pull') before pushing
+ again.  See the 'Note about fast-forwards' section of 'git push --help'
+ for details.
+
+When this happens, you can just I<rebase> your work against the new
+position of blead, like this (assuming your remote for the master
+repository is "p5p"):
+
+  % git fetch p5p
+  % git rebase p5p/blead
+
+You will see your commits being re-applied, and you will then be able to
+push safely.  More information about rebasing can be found in the
+documentation for the git-rebase(1) command.
+
+For larger sets of commits that only make sense together, or that would
+benefit from a summary of the set's purpose, you should use a merge
+commit.  You should perform your work on a L<topic branch|/Topic
+branches and rewriting history>, which you should regularly rebase
+against blead to ensure that your code is not broken by blead moving.
+When you have finished your work, please perform a final rebase and
+test.  Linear history is something that gets lost with every
+commit on blead, but a final rebase makes the history linear
+again, making it easier for future maintainers to see what has
+happened.  Rebase as follows (assuming your work was on the
+branch C<< committer/somework >>):
+
+  % git checkout committer/somework
+  % git rebase blead
+
+Then you can merge it into master like this:
+
+  % git checkout blead
+  % git merge --no-ff --no-commit committer/somework
+  % git commit -a
+
+The switches above deserve explanation.  C<--no-ff> indicates that even
+if all your work can be applied linearly against blead, a merge commit
+should still be prepared.  This ensures that all your work will be shown
+as a side branch, with all its commits merged into the mainstream blead
+by the merge commit.
+
+C<--no-commit> means that the merge commit will be I<prepared> but not
+I<committed>.  The commit is then actually performed when you run the
+next command, which will bring up your editor to describe the commit.
+Without C<--no-commit>, the commit would be made with nearly no useful
+message, which would greatly diminish the value of the merge commit as a
+placeholder for the work's description.
+
+When describing the merge commit, explain the purpose of the branch, and
+keep in mind that this description will probably be used by the
+eventual release engineer when reviewing the next perldelta document.
+
+=head2 Committing to maintenance versions
+
+Maintenance versions should only be altered to add critical bug fixes,
+see L<perlpolicy>.
+
+To commit to a maintenance version of perl, you need to create a local
+tracking branch:
+
+  % git checkout --track -b maint-5.005 origin/maint-5.005
+
+This creates a local branch named C<maint-5.005>, which tracks the
+remote branch C<origin/maint-5.005>. Then you can pull, commit, merge
+and push as before.
+
+You can also cherry-pick commits from blead and another branch, by
+using the C<git cherry-pick> command. It is recommended to use the
+B<-x> option to C<git cherry-pick> in order to record the SHA1 of the
+original commit in the new commit message.
+
+Before pushing any change to a maint version, make sure you've
+satisfied the steps in L</Committing to blead> above.
+
+=head2 Merging from a branch via GitHub
+
+While we don't encourage the submission of patches via GitHub, that
+will still happen. Here is a guide to merging patches from a GitHub
+repository.
+
+  % git remote add avar git://github.com/avar/perl.git
+  % git fetch avar
+
+Now you can see the differences between the branch and blead:
+
+  % git diff avar/orange
+
+And you can see the commits:
+
+  % git log avar/orange
+
+If you approve of a specific commit, you can cherry pick it:
+
+  % git cherry-pick 0c24b290ae02b2ab3304f51d5e11e85eb3659eae
+
+Or you could just merge the whole branch if you like it all:
+
+  % git merge avar/orange
+
+And then push back to the repository:
+
+  % git push origin blead
+
+=head2 Using a smoke-me branch to test changes
+
+Sometimes a change affects code paths which you cannot test on the OSes
+which are directly available to you and it would be wise to have users
+on other OSes test the change before you commit it to blead.
+
+Fortunately, there is a way to get your change smoke-tested on various
+OSes: push it to a "smoke-me" branch and wait for certain automated
+smoke-testers to report the results from their OSes.
+
+The procedure for doing this is roughly as follows (using the example of
+of tonyc's smoke-me branch called win32stat):
+
+First, make a local branch and switch to it:
+
+  % git checkout -b win32stat
+
+Make some changes, build perl and test your changes, then commit them to
+your local branch. Then push your local branch to a remote smoke-me
+branch:
+
+  % git push origin win32stat:smoke-me/tonyc/win32stat
+
+Now you can switch back to blead locally:
+
+  % git checkout blead
+
+and continue working on other things while you wait a day or two,
+keeping an eye on the results reported for your smoke-me branch at
+L<http://perl.develop-help.com/?b=smoke-me/tonyc/win32state>.
+
+If all is well then update your blead branch:
+
+  % git pull
+
+then checkout your smoke-me branch once more and rebase it on blead:
+
+  % git rebase blead win32stat
+
+Now switch back to blead and merge your smoke-me branch into it:
+
+  % git checkout blead
+  % git merge win32stat
+
+As described earlier, if there are many changes on your smoke-me branch
+then you should prepare a merge commit in which to give an overview of
+those changes by using the following command instead of the last
+command above:
+
+  % git merge win32stat --no-ff --no-commit
+
+You should now build perl and test your (merged) changes one last time
+(ideally run the whole test suite, but failing that at least run the
+F<t/porting/*.t> tests) before pushing your changes as usual:
+
+  % git push origin blead
+
+Finally, you should then delete the remote smoke-me branch:
+
+  % git push origin :smoke-me/tonyc/win32stat
+
+(which is likely to produce a warning like this, which can be ignored:
+
+ remote: fatal: ambiguous argument
+                                  'refs/heads/smoke-me/tonyc/win32stat':
+ unknown revision or path not in the working tree.
+ remote: Use '--' to separate paths from revisions
+
+) and then delete your local branch:
+
+  % git branch -d win32stat
+
+=head2 A note on camel and dromedary
+
+The committers have SSH access to the two servers that serve
+C<perl5.git.perl.org>. One is C<perl5.git.perl.org> itself (I<camel>),
+which is the 'master' repository. The second one is
+C<users.perl5.git.perl.org> (I<dromedary>), which can be used for
+general testing and development. Dromedary syncs the git tree from
+camel every few minutes, you should not push there. Both machines also
+have a full CPAN mirror in F</srv/CPAN>, please use this. To share files
+with the general public, dromedary serves your F<~/public_html/> as
+C<http://users.perl5.git.perl.org/~yourlogin/>
+
+These hosts have fairly strict firewalls to the outside. Outgoing, only
+rsync, ssh and git are allowed. For http and ftp, you can use
+http://webproxy:3128 as proxy. Incoming, the firewall tries to detect
+attacks and blocks IP addresses with suspicious activity. This
+sometimes (but very rarely) has false positives and you might get
+blocked. The quickest way to get unblocked is to notify the admins.
+
+These two boxes are owned, hosted, and operated by booking.com. You can
+reach the sysadmins in #p5p on irc.perl.org or via mail to
+L<perl5-porters@perl.org|mailto:perl5-porters@perl.org>.
diff --git a/lib/5.24.1/pod/perlglossary.pod b/lib/5.24.1/pod/perlglossary.pod
new file mode 100644
index 00000000..76a54f0e
--- /dev/null
+++ b/lib/5.24.1/pod/perlglossary.pod
@@ -0,0 +1,3790 @@
+
+=encoding utf8
+
+=head1 NAME
+
+perlglossary - Perl Glossary
+
+=head1 VERSION
+
+version 5.021010
+
+=head1 DESCRIPTION
+
+A glossary of terms (technical and otherwise) used in the Perl
+documentation, derived from the Glossary of I<Programming
+Perl>, Fourth Edition.  Words or phrases in bold are defined elsewhere in
+this glossary.
+
+Other useful sources include the Unicode Glossary L<http://unicode.org/glossary/>,
+the Free On-Line Dictionary of Computing L<http://foldoc.org/>,
+the Jargon File L<http://catb.org/~esr/jargon/>,
+and Wikipedia L<http://www.wikipedia.org/>.
+
+=head2 A
+
+=over 4
+
+=item accessor methods
+
+A B<X<accessor methods, defined>X<methods, accessor>method> used to
+indirectly inspect or update an B<object>’s state (its B<instance
+variables>).
+
+=item actual arguments
+
+The B<X<actual arguments>X<arguments, actual>scalar values> that you supply
+to a B<function> or B<subroutine> when you call it. For instance, when you
+call C<power("puff")>, the string C<"puff"> is the actual argument. See also
+B<argument> and B<formal arguments>.
+
+=item address operator
+
+Some X<address operator>languages work directly with the memory addresses of
+values, but this can be like playing with fire. Perl provides a set of
+asbestos gloves for handling all memory management. The closest to an
+address operator in Perl is the backslash operator, but it gives you a
+B<hard reference>, which is much safer than a memory address.
+
+=item algorithm
+
+A X<algorithms (term)>well-defined sequence of steps, explained clearly
+enough that even a computer could do them.
+
+=item alias
+
+A X<aliases, defined>nickname for something, which behaves in all ways as
+though you’d used the original name instead of the nickname. Temporary
+aliases are implicitly created in the loop variable for C<foreach> loops, in
+the C<$_> variable for C<map> or C<grep> operators, in C<$a> and C<$b>
+during C<sort>’s comparison function, and in each element of C<@_> for the
+B<actual arguments> of a subroutine call. Permanent aliases are explicitly
+created in B<packages> by B<importing> symbols or by assignment to
+B<typeglobs>. Lexically scoped aliases for package variables are explicitly
+created by the C<our> declaration.
+
+=item alphabetic
+
+The X<alphabetic sort>sort of characters we put into words. In Unicode, this
+is all letters including all ideographs and certain diacritics, letter
+numbers like Roman numerals, and various combining marks.
+
+=item alternatives
+
+A X<alternative characters>list of possible choices from which you may
+select only one, as in, “Would you like door A, B, or C?� Alternatives in
+regular expressions are separated with a single vertical bar: C<|>.
+Alternatives in normal Perl expressions are separated with a double vertical
+bar: C<||>. Logical alternatives in B<Boolean> expressions are separated
+with either C<||> or C<or>.
+
+=item anonymous
+
+Used to X<anonymous referents>X<referents, anonymous>describe a B<referent>
+that is not directly accessible through a named B<variable>. Such a referent
+must be indirectly accessible through at least one B<hard reference>. When
+the last hard reference goes away, the anonymous referent is destroyed
+without pity.
+
+=item application
+
+A X<applications (term)>bigger, fancier sort of B<program> with a fancier
+name so people don’t realize they are using a program.
+
+=item architecture
+
+The kind of X<architecture>computer you’re working on, where one “kind of
+computer� means all those computers sharing a compatible machine language.
+Since Perl programs are (typically) simple text files, not executable
+images, a Perl program is much less sensitive to the architecture it’s
+running on than programs in other languages, such as C, that are B<compiled>
+into machine code. See also B<platform> and B<operating system>.
+
+=item argument
+
+A X<arguments, defined>piece of data supplied to a B<program>,
+B<subroutine>, B<function>, or B<method> to tell it what it’s supposed to
+do. Also called a “parameter�.
+
+=item ARGV
+
+The name of the X<ARGV filehandle>array containing the B<argument> B<vector>
+from the command line. If you use the empty C<E<lt>E<gt>> operator, C<ARGV>
+is the name of both the B<filehandle> used to traverse the arguments and the
+B<scalar> containing the name of the current input file.
+
+=item arithmetical operator
+
+A B<X<arithmetic operators, about>symbol> such as C<+> or C</> that tells
+Perl to do the arithmetic you were supposed to learn in grade school.
+
+=item array
+
+An X<arrays, defined>ordered sequence of B<values>, stored such that you can
+easily access any of the values using an I<integer subscript> that specifies
+the value’s B<offset> in the sequence.
+
+=item array context
+
+An archaic X<array context>expression for what is more correctly referred to
+as B<list context>.
+
+=item Artistic License
+
+The open X<Artistic License>source license that X<Wall, Larry>Larry Wall
+created for Perl, maximizing Perl’s usefulness, availability, and
+modifiability. The current version is 2. (L<http://www.opensource.org/licenses/artistic-license.php>).
+
+=item ASCII
+
+The X<ASCII (American Standard Code for Information Interchange)>X<American
+Standard Code for Information Interchange (ASCII)>American Standard Code for
+Information Interchange (a 7-bit character set adequate only for poorly
+representing English text). Often used loosely to describe the lowest 128
+values of the various ISO-8859-X character sets, a bunch of mutually
+incompatible 8-bit codes best described as half ASCII. See also B<Unicode>.
+
+=item assertion
+
+A X<assertions (in regexes), defined>X<regular expressions, assertions
+in>component of a B<regular expression> that must be true for the pattern to
+match but does not necessarily match any characters itself. Often used
+specifically to mean a B<zero-width> assertion.
+
+=item assignment
+
+An X<assignments, defined>B<operator> whose assigned mission in life is to
+change the value of a B<variable>.
+
+=item assignment operator
+
+Either a X<assignment operators, about>regular B<assignment> or a compound
+B<operator> composed of an ordinary assignment and some other operator, that
+changes the value of a variable in place; that is, relative to its old
+value. For example, C<$a += 2> adds C<2> to C<$a>.
+
+=item associative array
+
+See B<hash>. X<associative arrays>Please. The term associative array is the
+old Perl 4 term for a B<hash>. Some languages call it a dictionary.
+
+=item associativity
+
+Determines X<associativity>whether you do the left B<operator> first or the
+right B<operator> first when you have “A B<operator> B B<operator> C�, and
+the two operators are of the same precedence. Operators like C<+> are left
+associative, while operators like C<**> are right associative. See Camel
+chapter 3, “Unary and Binary Operators� for a list of operators and their
+associativity.
+
+=item asynchronous
+
+Said of X<asynchronous event processing>events or activities whose relative
+temporal ordering is indeterminate because too many things are going on at
+once. Hence, an asynchronous event is one you didn’t know when to expect.
+
+=item atom
+
+A B<regular X<atoms>expression> component potentially matching a
+B<substring> containing one or more characters and treated as an indivisible
+syntactic unit by any following B<quantifier>. (Contrast with an
+B<assertion> that matches something of B<zero width> and may not be quantified.)
+
+=item atomic operation
+
+When X<atomic operation>Democritus gave the word “atom� to the indivisible
+bits of matter, he meant literally something that could not be cut: I<á¼€->
+(not) + I<-τομος> (cuttable). An atomic operation is an action that can’t be
+interrupted, not one forbidden in a nuclear-free zone.
+
+=item attribute
+
+A new X<attribute feature>feature that allows the declaration of
+B<variables> and B<subroutines> with modifiers, as in C<sub foo : locked
+method>. Also another name for an B<instance variable> of an B<object>.
+
+=item autogeneration
+
+A X<autogeneration, about>feature of B<operator overloading> of B<objects>,
+whereby the behavior of certain B<operators> can be reasonably deduced using
+more fundamental operators. This assumes that the overloaded operators will
+often have the same relationships as the regular operators. See Camel
+chapter 13, “Overloading�.
+
+=item autoincrement
+
+To X<autoincrement (term)>add one to something automatically, hence the name
+of the C<++> operator. To instead subtract one from something automatically
+is known as an “autodecrement�.
+
+=item autoload
+
+To X<autoloading, defined>load on demand. (Also called “lazy� loading.)
+Specifically, to call an C<AUTOLOAD> subroutine on behalf of an undefined
+subroutine.
+
+=item autosplit
+
+To X<autosplit (term)>split a string automatically, as the I<–a> B<switch>
+does when running under I<–p> or I<–n> in order to emulate B<awk>. (See also
+the C<AutoSplit>X<AutoSplit module> module, which has nothing to do with the
+C<–a> switch but a lot to do with autoloading.)
+
+=item autovivification
+
+A X<autovivification>Graeco-Roman word meaning “to bring oneself to life�.
+In Perl, storage locations (B<lvalues>) spontaneously generate themselves as
+needed, including the creation of any B<hard reference> values to point to
+the next level of storage. The assignment C<$a[5][5][5][5][5] = "quintet">
+potentially creates five scalar storage locations, plus four references (in
+the first four scalar locations) pointing to four new anonymous arrays (to
+hold the last four scalar locations). But the point of autovivification is
+that you don’t have to worry about it.
+
+=item AV
+
+Short X<AV (array value)>X<array value (AV)>X<values, array>for “array
+value�, which refers to one of Perl’s internal data types that holds an
+B<array>. The C<AV> type is a subclass of B<SV>.
+
+=item awk
+
+Descriptive X<awk (editing term)>editing term—short for “awkward�. Also
+coincidentally refers to a venerable text-processing language from which
+Perl derived some of its high-level ideas.
+
+=back
+
+=head2 B
+
+=over 4
+
+=item backreference
+
+A X<backreferences, about>X<references, backreferences>substring B<captured>
+by a subpattern within unadorned parentheses in a B<regex>. Backslashed
+decimal numbers (C<\1>, C<\2>, etc.) later in the same pattern refer back to
+the corresponding subpattern in the current match. Outside the pattern, the
+numbered variables (C<$1>, C<$2>, etc.) continue to refer to these same
+values, as long as the pattern was the last successful match of the current
+B<dynamic scope>.
+
+=item backtracking
+
+The X<backtracking>practice of saying, “If I had to do it all over, I’d do
+it differently,� and then actually going back and doing it all over
+differently. Mathematically speaking, it’s returning from an unsuccessful
+recursion on a tree of possibilities. Perl backtracks when it attempts to
+match patterns with a B<regular expression>, and its earlier attempts don’t
+pan out. See the section “The Little Engine That /Couldn(n’t)� in Camel
+chapter 5, “Pattern Matching�.
+
+=item backward compatibility
+
+Means X<backward compatibility, defined>you can still run your old program
+because we didn’t break any of the features or bugs it was relying on.
+
+=item bareword
+
+A word X<barewords, about>sufficiently ambiguous to be deemed illegal under
+C<use strict 'subs'>. In the absence of that stricture, a bareword is
+treated as if quotes were around it.
+
+=item base class
+
+A X<base classes>X<classes, base>generic B<object> type; that is, a B<class>
+from which other, more specific classes are derived genetically by
+B<inheritance>. Also called aX<superclasses>X<classes, superclasses>
+“superclass� by people who respect their ancestors.
+
+=item big-endian
+
+From X<big–endian, defined>X<endianness, big–endian>Swift: someone who
+eats eggs big end first. Also used of computers that store the most
+significant B<byte> of a word at a lower byte address than the least
+significant byte. Often considered superior to little-endian machines. See
+also B<little-endian>.
+
+=item binary
+
+Having X<binary (term)>to do with numbers represented in base 2. That means
+there’s basically two numbers: 0 and 1. Also used to describe a file of
+“nontext�, presumably because such a file makes full use of all the binary
+bits in its bytes. With the advent of B<Unicode>, this distinction, already
+suspect, loses even more of its meaning.
+
+=item binary operator
+
+An B<X<binary operators, about>operator> that takes two B<operands>.
+
+=item bind
+
+To X<bind (term)>assign a specific B<network address> to a B<socket>.
+
+=item bit
+
+An X<bits, defined>integer in the range from 0 to 1, inclusive. The smallest
+possible unit of information storage. An eighth of a B<byte> or of a dollar.
+(The term “Pieces of Eight� comes from being able to split the old Spanish
+dollar into 8 bits, each of which still counted for money. That’s why a 25-
+cent piece today is still “two bits�.)
+
+=item bit shift
+
+The X<bit–shift operators, defined>movement of bits left or right in a
+computer word, which has the effect of multiplying or dividing by a
+power of 2.
+
+=item bit string
+
+A X<bit string>sequence of B<bits> that is actually being thought of as a
+sequence of bits, for once.
+
+=item bless
+
+In X<bless function, about>X<bless (term)>corporate life, to grant official
+approval to a thing, as in, “The VP of Engineering has blessed our
+WebCruncher project.� Similarly, in Perl, to grant official approval to a
+B<referent> so that it can function as an B<object>, such as a WebCruncher
+object. See the C<bless> function in Camel chapter 27, “Functions�.
+
+=item block
+
+What X<blocks, defined>a B<process> does when it has to wait for something:
+“My process blocked waiting for the disk.� As an unrelated noun, it refers
+to a large chunk of data, of a size that the B<operating system> likes to
+deal with (normally a power of 2 such as 512 or 8192). Typically refers to
+a chunk of data that’s coming from or going to a disk file.
+
+=item BLOCK
+
+A X<BLOCK construct, about>X<constructs, BLOCK>syntactic construct
+consisting of a sequence of Perl B<statements> that is delimited by braces.
+The C<if> and C<while> statements are defined in terms of I<C<BLOCK>>s, for
+instance. Sometimes we also say “block� to mean a lexical scope; that is, a
+sequence of statements that acts like a I<C<BLOCK>>, such as within an
+C<eval> or a file, even though the statements aren’t delimited by braces.
+
+=item block buffering
+
+A X<block buffering>X<buffering, block>method of making input and output
+efficient by passing one B<block> at a time. By default, Perl does block
+buffering to disk files. See B<buffer> and B<command buffering>.
+
+=item Boolean
+
+A X<Boolean values>X<values, Boolean>value that is either B<true> or
+B<false>.
+
+=item Boolean context
+
+A X<Boolean context, about>X<context, Boolean>special kind of B<scalar
+context> used in conditionals to decide whether the B<scalar value> returned
+by an expression is B<true> or B<false>. Does not evaluate as either a
+string or a number. See B<context>.
+
+=item breakpoint
+
+A X<breakpoints, defined>spot in your program where you’ve told the debugger
+to stop B<execution> so you can poke around and see whether anything is
+wrong yet.
+
+=item broadcast
+
+To X<broadcast (networking term)>send a B<datagram> to multiple destinations
+simultaneously.
+
+=item BSD
+
+A X<BSD (Berkeley Standard Distribution)>X<Berkeley Standard Distribution
+(BSD)>psychoactive drug, popular in the ’80s, probably developed at UC
+Berkeley or thereabouts. Similar in many ways to the prescription-only
+medication called “System V�, but infinitely more useful. (Or, at least,
+more fun.) The full chemical name is “Berkeley Standard Distribution�.
+
+=item bucket
+
+A X<buckets (term)>location in a B<hash table> containing (potentially)
+multiple entries whose keys “hash� to the same hash value according to its
+hash function. (As internal policy, you don’t have to worry about it unless
+you’re into internals, or policy.)
+
+=item buffer
+
+A X<buffers, defined>temporary holding location for data. Data that are
+B<Block buffering> means that the data is passed on to its destination
+whenever the buffer is full. B<Line buffering> means that it’s passed on
+whenever a complete line is received. B<Command buffering> means that it’s
+passed every time you do a C<print> command (or equivalent). If your output
+is unbuffered, the system processes it one byte at a time without the use of
+a holding area. This can be rather inefficient.
+
+=item built-in
+
+A B<X<built–in functions, about>function> that is predefined in the
+language. Even when hidden by B<overriding>, you can always get at a built-
+in function by B<qualifying> its name with the C<CORE::> pseudopackage.
+
+=item bundle
+
+A X<bundles (term)>group of related modules on B<CPAN>. (Also sometimes
+refers to a group of command-line switches grouped into one B<switch
+cluster>.)
+
+=item byte
+
+A X<bytes (term)>piece of data worth eight B<bits> in most places.
+
+=item bytecode
+
+A pidgin-like lingo spoken among ’droids when they don’t wish to reveal
+their orientation (see B<endian>). Named after some similar languages spoken
+(for similar reasons) between compilers and interpreters in the late 20áµ—Ê°
+century. These languages are characterized by representing everything as a
+nonarchitecture-dependent sequence of bytes.
+
+=back
+
+=head2 C
+
+=over 4
+
+=item C
+
+A X<C language, about>language beloved by many for its inside-out B<type>
+definitions, inscrutable B<precedence> rules, and heavy B<overloading> of
+the function-call mechanism. (Well, actually, people first switched to C
+because they found lowercase identifiers easier to read than upper.) Perl is
+written in C, so it’s not surprising that Perl borrowed a few ideas from it.
+
+=item cache
+
+A X<cache (term)>data repository. Instead of computing expensive answers
+several times, compute it once and save the result.
+
+=item callback
+
+A B<X<callbacks>handler> that you register with some other part of your
+program in the hope that the other part of your program will B<trigger> your
+handler when some event of interest transpires.
+
+=item call by reference
+
+An B<argument>-passing X<call by reference>X<references, call by reference
+mechanism>mechanism in which the B<formal arguments> refer directly to the
+B<actual arguments>, and the B<subroutine> can change the actual arguments
+by changing the formal arguments. That is, the formal argument is an
+B<alias> for the actual argument. See also B<call by value>.
+
+=item call by value
+
+An B<X<call by value>argument>-passing mechanism in which the B<formal
+arguments> refer to a copy of the B<actual arguments>, and the
+B<subroutine> cannot change the actual arguments by changing the formal
+arguments. See also B<call by reference>.
+
+=item canonical
+
+Reduced X<canonical (term)>to a standard form to facilitate comparison.
+
+=item capture variables
+
+The X<capture variables>X<variables, capture>variables—such as C<$1> and
+C<$2>, and C<%+> and C<%– >—that hold the text remembered in a pattern
+match. See Camel chapter 5, “Pattern Matching�.
+
+=item capturing
+
+The X<capturing in pattern matching>X<subpatterns, capturing>X<pattern
+matching, capturing in>use of parentheses around a B<subpattern> in a
+B<regular expression> to store the matched B<substring> as a
+B<backreference>. (Captured strings are also returned as a list in B<list
+context>.) See Camel chapter 5, “Pattern Matching�.
+
+=item cargo cult
+
+Copying X<cargo cult>and pasting code without understanding it, while
+superstitiously believing in its value. This term originated from
+preindustrial cultures dealing with the detritus of explorers and colonizers
+of technologically advanced cultures. See I<The Gods Must Be Crazy>.
+
+=item case
+
+A X<case (character)>X<characters, case considerations>property of certain
+characters. Originally, typesetter stored capital letters in the upper of
+two cases and small letters in the lower one. Unicode recognizes three
+cases: B<lowercase> (B<character property> C<\p{lower}>), B<titlecase>
+(C<\p{title}>), and B<uppercase> (C<\p{upper}>). A fourth casemapping called
+B<foldcase> is not itself a distinct case, but it is used internally to
+implement B<casefolding>. Not all letters have case, and some nonletters
+have case.
+
+=item casefolding
+
+Comparing X<casefolding>or matching a string case-insensitively. In Perl, it
+is implemented with the C</i> pattern modifier, the C<fc> function, and the
+C<\F> double-quote translation escape.
+
+=item casemapping
+
+The X<casemapping>process of converting a string to one of the four Unicode
+B<casemaps>; in Perl, it is implemented with the C<fc>, C<lc>, C<ucfirst>,
+and C<uc> functions.
+
+=item character
+
+The X<characters, defined>smallest individual element of a string. Computers
+store characters as integers, but Perl lets you operate on them as text. The
+integer used to represent a particular character is called that character’s
+B<codepoint>.
+
+=item character class
+
+A X<character classes, about>X<classes, character>square-bracketed list of
+characters used in a B<regular expression> to indicate that any character
+of the set may occur at a given point. Loosely, any predefined set of
+characters so used.
+
+=item character property
+
+A X<character property>predefined B<character class> matchable by the C<\p>
+or C<\P> B<metasymbol>. B<Unicode> defines hundreds of standard properties
+for every possible codepoint, and Perl defines a few of its own, too.
+
+=item circumfix operator
+
+An X<circumfix operator>B<operator> that surrounds its B<operand>, like the
+angle operator, or parentheses, or a hug.
+
+=item class
+
+A X<classes, defined>user-defined B<type>, implemented in Perl via a
+B<package> that provides (either directly or by inheritance) B<methods>
+(that is, B<subroutines>) to handle B<instances> of the class (its
+B<objects>). See also B<inheritance>.
+
+=item class method
+
+A B<X<class methods>X<methods, class>method> whose B<invocant> is a
+B<package> name, not an B<object> reference. A method associated with the
+class as a whole. Also see B<instance method>.
+
+=item client
+
+In X<clients, defined>X<processes, client>networking, a B<process> that
+initiates contact with a B<server> process in order to exchange data and
+perhaps receive a service.
+
+=item closure
+
+An B<X<closure subroutines>X<subroutines, closure>anonymous> subroutine
+that, when a reference to it is generated at runtime, keeps track of the
+identities of externally visible B<lexical variables>, even after those
+lexical variables have supposedly gone out of B<scope>. They’re called
+“closures� because this sort of behavior gives mathematicians a sense of
+closure.
+
+=item cluster
+
+A X<clusters, defined>X<subpatterns, cluster>parenthesized B<subpattern>
+used to group parts of a B<regular expression> into a single B<atom>.
+
+=item CODE
+
+The X<CODE (ref function)>X<ref function, about>word returned by the C<ref>
+function when you apply it to a reference to a subroutine. See also B<CV>.
+
+=item code generator
+
+A X<code generators, defined>system that writes code for you in a low-level
+language, such as code to implement the backend of a compiler. See B<program
+generator>.
+
+=item codepoint
+
+The X<codepoints, about>integer a computer uses to represent a given
+character. ASCII codepoints are in the range 0 to 127; Unicode codepoints
+are in the range 0 to 0x1F_FFFF; and Perl codepoints are in the range 0 to
+2³²−1 or 0 to 2��−1, depending on your native integer size. In Perl Culture,
+sometimes called B<ordinals>.
+
+=item code subpattern
+
+A B<X<code subpatterns>X<subpatterns, code>regular expression> subpattern
+whose real purpose is to execute some Perl code—for example, the C<(?{...})>
+and C<(??{...})> subpatterns.
+
+=item collating sequence
+
+The X<collating sequence>X<collating sequence>order into which B<characters>
+sort. This is used by B<string> comparison routines to decide, for example,
+where in this glossary to put “collating sequence�.
+
+=item co-maintainer
+
+A X<co–maintainers>person with permissions to index a B<namespace> in
+B<PAUSE>. Anyone can upload any namespace, but only primary and
+co-maintainers get their contributions indexed.
+
+=item combining character
+
+Any X<combining characters>X<characters, combining>character with the
+General Category of Combining Mark (C<\p{GC=M}>), which may be spacing or
+nonspacing. Some are even invisible. A sequence of combining characters
+following a grapheme base character together make up a single user-visible
+character called a B<grapheme>. Most but not all diacritics are combining
+characters, and vice versa.
+
+=item command
+
+In B<shell> X<commands, defined>programming, the syntactic combination of a
+program name and its arguments. More loosely, anything you type to a shell
+(a command interpreter) that starts it doing something. Even more loosely, a
+Perl B<statement>, which might start with a B<label> and typically ends with
+a semicolon.
+
+=item command buffering
+
+A X<command buffering>X<buffering, command>mechanism in Perl that lets you
+store up the output of each Perl B<command> and then flush it out as a
+single request to the B<operating system>. It’s enabled by setting the C<$|>
+(C<$AUTOFLUSH>) variable to a true value. It’s used when you don’t want data
+sitting around, not going where it’s supposed to, which may happen because
+the default on a B<file> or B<pipe> is to use B<block buffering>.
+
+=item command-line arguments
+
+The X<command–line arguments>B<X<arguments, command–line>values> you supply
+along with a program name when you tell a B<shell> to execute a B<command>.
+These values are passed to a Perl program through C<@ARGV>.
+
+=item command name
+
+The X<command names>name of the program currently executing, as typed on the
+command line. In C, the B<command> name is passed to the program as the
+first command-line argument. In Perl, it comes in separately as C<$0>.
+
+=item comment
+
+A X<comments, defined>remark that doesn’t affect the meaning of the program.
+In Perl, a comment is introduced by a C<#> character and continues to the
+end of the line.
+
+=item compilation unit
+
+The X<compilation units>B<file> (or B<string>, in the case of C<eval>) that
+is currently being B<compiled>.
+
+=item compile
+
+The process of turning source code into a machine-usable form. See B<compile
+phase>.
+
+=item compile phase
+
+Any X<compile phase, defined>time before Perl starts running your main
+program. See also B<run phase>. Compile phase is mostly spent in B<compile
+time>, but may also be spent in B<runtime> when C<BEGIN> blocks, C<use> or
+C<no> declarations, or constant subexpressions are being evaluated. The
+startup and import code of any C<use> declaration is also run during
+compile phase.
+
+=item compiler
+
+Strictly X<compilers and compiling, about>speaking, a program that munches
+up another program and spits out yet another file containing the program in
+a “more executable� form, typically containing native machine instructions.
+The I<perl> program is not a compiler by this definition, but it does
+contain a kind of compiler that takes a program and turns it into a more
+executable form (B<syntax trees>) within the I<perl> process itself, which
+the B<interpreter> then interprets. There are, however, extension B<modules>
+to get Perl to act more like a “real� compiler. See Camel chapter 16,
+“Compiling�.
+
+=item compile time
+
+The X<compile time, defined>time when Perl is trying to make sense of your
+code, as opposed to when it thinks it knows what your code means and is
+merely trying to do what it thinks your code says to do, which is B<runtime>.
+
+=item composer
+
+A “constructor� X<composers, about>for a B<referent> that isn’t really an
+B<object>, like an anonymous array or a hash (or a sonata, for that matter).
+For example, a pair of braces acts as a composer for a hash, and a pair of
+brackets acts as a composer for an array. See the section “Creating
+References� in Camel chapter 8, “References�.
+
+=item concatenation
+
+The X<concatenating strings>X<strings, concatenating>process of gluing one
+cat’s nose to another cat’s tail. Also a similar operation on two
+B<strings>.
+
+=item conditional
+
+SomethingX<conditional (term)> “iffy�. See B<Boolean context>.
+
+=item connection
+
+In X<connections (term)>telephony, the temporary electrical circuit between
+the caller’s and the callee’s phone. In networking, the same kind of
+temporary circuit between a B<client> and a B<server>.
+
+=item construct
+
+As a X<constructs, defined>noun, a piece of syntax made up of smaller
+pieces. As a transitive verb, to create an B<object> using a B<constructor>.
+
+=item constructor
+
+AnyX<constructors, defined> B<class method>, B<instance>, or B<subroutine>
+that composes, initializes, blesses, and returns an B<object>. Sometimes we
+use the term loosely to mean a B<composer>.
+
+=item context
+
+The X<context, about>surroundings or environment. The context given by the
+surrounding code determines what kind of data a particular B<expression> is
+expected to return. The three primary contexts are B<list context>,
+B<scalar>, and B<void context>. Scalar context is sometimes subdivided into
+B<Boolean context>, B<numeric context>, B<string context>, and B<void
+context>. There’s also a “don’t care� context (which is dealt with in Camel
+chapter 2, “Bits and Pieces�, if you care).
+
+=item continuation
+
+The X<continuation lines>treatment of more than one physical B<line> as a
+single logical line. B<Makefile> lines are continued by putting a backslash
+before the B<newline>. Mail headers, as defined by X<RFC 822>RFC 822, are
+continued by putting a space or tab I<after> the newline. In general, lines
+in Perl do not need any form of continuation mark, because B<whitespace>
+(including newlines) is gleefully ignored. Usually.
+
+=item core dump
+
+The X<core dump>corpse of a B<process>, in the form of a file left in the
+B<working directory> of the process, usually as a result of certain kinds
+of fatal errors.
+
+=item CPAN
+
+The X<Comprehensive Perl Archive Network>X<CPAN (Comprehensive Perl Archive
+Network), about>Comprehensive Perl Archive Network. (See the Camel Preface
+and Camel chapter 19, “CPAN� for details.)
+
+=item C preprocessor
+
+The X<C preprocessor>typical C compiler’s first pass, which processes lines
+beginning with C<#> for conditional compilation and macro definition, and
+does various manipulations of the program text based on the current
+definitions. Also known as I<cpp>(1).
+
+=item cracker
+
+Someone X<crackers>who breaks security on computer systems. A cracker may
+be a true B<hacker> or only a B<script kiddie>.
+
+=item currently selected output channel
+
+The X<currently selected output channel>last B<filehandle> that was
+designated with C<select(FILEHANDLE)>; C<STDOUT>, if no filehandle has
+been selected.
+
+=item current package
+
+The B<package> X<current package>in which the current statement is
+B<compiled>. Scan backward in the text of your program through the current
+B<lexical scope> or any enclosing lexical scopes until you find a package
+declaration. That’s your current package name.
+
+=item current working directory
+
+SeeX<current working directory> B<working directory>.
+
+=item CV
+
+In academia, a curriculum vitæ, a fancy kind of résumé. In Perl, an X<CV
+(code value)>X<code value (CV)>internal “code value� typedef holding a
+B<subroutine>. The C<CV> type is a subclass of B<SV>.
+
+=back
+
+=head2 D
+
+=over 4
+
+=item dangling statement
+
+A bare, single B<X<dangling statements>X<statements, dangling>statement>,
+without any braces, hanging off an C<if> or C<while> conditional. C allows
+them. Perl doesn’t.
+
+=item datagram
+
+A packet of X<datagrams, defined>data, such as a B<UDP> message, that (from
+the viewpoint of the programs involved) can be sent independently over the
+network. (In fact, all packets are sent independently at the B<IP> level,
+but B<stream> protocols such as B<TCP> hide this from your program.)
+
+=item data structure
+
+How your X<data structures, defined>various pieces of data relate to each
+other and what shape they make when you put them all together, as in a
+rectangular table or a triangular tree.
+
+=item data type
+
+A set of X<data types, defined>possible values, together with all the
+operations that know how to deal with those values. For example, a numeric
+data type has a certain set of numbers that you can work with, as well as
+various mathematical operations that you can do on the numbers, but would
+make little sense on, say, a string such as C<"Kilroy">. Strings have their
+own operations, such as B<concatenation>. Compound types made of a number of
+smaller pieces generally have operations to compose and decompose them, and
+perhaps to rearrange them. B<Objects> that model things in the real world
+often have operations that correspond to real activities. For instance, if
+you model an elevator, your elevator object might have an C<open_door>
+B<method>.
+
+=item DBM
+
+Stands for X<DBM (Database Management) routines>X<Database Management (DBM)
+routines>“Database Management� routines, a set of routines that emulate an
+B<associative array> using disk files. The routines use a dynamic hashing
+scheme to locate any entry with only two disk accesses. DBM files allow a
+Perl program to keep a persistent B<hash> across multiple invocations. You
+can C<tie> your hash variables to various DBM implementations.
+
+=item declaration
+
+An B<assertion> X<declarations, defined>that states something exists and
+perhaps describes what it’s like, without giving any commitment as to how
+or where you’ll use it. A declaration is like the part of your recipe that
+says, “two cups flour, one large egg, four or five tadpoles…� See
+B<statement> for its opposite. Note that some declarations also function
+as statements. Subroutine declarations also act as definitions if a body
+is supplied.
+
+=item declarator
+
+Something X<declarators>that tells your program what sort of variable
+you’d like. Perl doesn’t require you to declare variables, but you can use
+C<my>, C<our>, or C<state> to denote that you want something other than
+the default.
+
+=item decrement
+
+To X<decrementing values>X<values, decrementing>subtract a value from a
+variable, as in “decrement C<$x>� (meaning to remove 1 from its value) or
+“decrement C<$x> by 3�.
+
+=item default
+
+A B<value> X<default values>X<values, default>chosen for you if you don’t
+supply a value of your own.
+
+=item defined
+
+Having a X<defined (term)>meaning. Perl thinks that some of the things
+people try to do are devoid of meaning; in particular, making use of
+variables that have never been given a B<value> and performing certain
+operations on data that isn’t there. For example, if you try to read data
+past the end of a file, Perl will hand you back an undefined value. See also
+B<false> and the C<defined> entry in Camel chapter 27, “Functions�.
+
+=item delimiter
+
+A B<character> X<delimiters (term)>or B<string> that sets bounds to an
+arbitrarily sized textual object, not to be confused with a B<separator> or
+B<terminator>. “To delimit� really just means “to surround� or “to enclose�
+(like these parentheses are doing).
+
+=item dereference
+
+A fancy X<dereference (term)>X<references, dereference>computer science term
+meaning “to follow a B<reference> to what it points to�. The “de� part of it
+refers to the fact that you’re taking away one level of B<indirection>.
+
+=item derived class
+
+A B<class> that X<derived classes>X<classes, derived>X<subclasses>X<classes,
+subclasses>defines some of its B<methods> in terms of a more generic class,
+called a B<base class>. Note that classes aren’t classified exclusively into
+base classes or derived classes: a class can function as both a derived
+class and a base class simultaneously, which is kind of classy.
+
+=item descriptor
+
+See B<file descriptor>.
+
+=item destroy
+
+To deallocate the X<destroy (term)>memory of a B<referent> (first triggering
+its C<DESTROY> method, if it has one).
+
+=item destructor
+
+A special B<method> X<destructor method>X<methods, destructor>that is called
+when an B<object> is thinking about B<destroying> itself. A Perl program’s
+C<DESTROY> method doesn’t do the actual destruction; Perl just B<triggers>
+the method in case the B<class> wants to do any associated cleanup.
+
+=item device
+
+A whiz-bang X<devices (term)>hardware gizmo (like a disk or tape drive or a
+modem or a joystick or a mouse) attached to your computer, which the
+B<operating system> tries to make look like a B<file> (or a bunch of files).
+Under Unix, these fake files tend to live in the I</dev> directory.
+
+=item directive
+
+A B<pod> X<directives, defined>directive. See Camel chapter 23, “Plain Old
+Documentation�.
+
+=item directory
+
+A special X<directories, defined>file that contains other files. Some
+B<operating systems> call these “folders�, “drawers�, “catalogues�, or
+“catalogs�.
+
+=item directory handle
+
+A name X<directory handle>that represents a particular instance of opening a
+directory to read it, until you close it. See the C<opendir> function.
+
+=item discipline
+
+Some X<discipline (I/O layer)>people need this and some people avoid it.
+For Perl, it’s an old way to say B<I/O layer>.
+
+=item dispatch
+
+To send X<dispatching>something to its correct destination. Often used
+metaphorically to indicate a transfer of programmatic control to a
+destination selected algorithmically, often by lookup in a table of function
+B<references> or, in the case of object B<methods>, by traversing the
+inheritance tree looking for the most specific definition for the method.
+
+=item distribution
+
+A standard, X<distributions, defined>bundled release of a system of
+software. The default usage implies source code is included. If that is not
+the case, it will be called a “binary-only� distribution.
+
+=item dual-lived
+
+Some X<dual–lived modules>X<modules, dual–lived>modules live both in the
+B<Standard Library> and on B<CPAN>. These modules might be developed on two
+tracks as people modify either version. The trend currently is to untangle
+these situations.
+
+=item dweomer
+
+An enchantment, illusion, X<dweomer>phantasm, or jugglery. Said when Perl’s
+magical B<dwimmer> effects don’t do what you expect, but rather seem to be
+the product of arcane I<dweomercraft>, sorcery, or wonder working. [From
+Middle English.]
+
+=item dwimmer
+
+DWIM X<DWIM (Do What I Mean) principle>X<Do What I Mean (DWIM) principle>is
+an acronym for X<dwimming>“Do What I Mean�, the principle that something
+should just do what you want it to do without an undue amount of fuss. A bit
+of code that does “dwimming� is a “dwimmer�. Dwimming can require a great
+deal of behind-the-scenes magic, which (if it doesn’t stay properly behind
+the scenes) is called a B<dweomer> instead.
+
+=item dynamic scoping
+
+Dynamic X<dynamic scope>X<scopes, dynamic>scoping works over a B<dynamic
+scope>, making variables visible throughout the rest of the B<block> in
+which they are first used and in any B<subroutines> that are called by the
+rest of the block. Dynamically scoped variables can have their values
+temporarily changed (and implicitly restored later) by a C<local> operator.
+(Compare B<lexical scoping>.) Used more loosely to mean how a subroutine
+that is in the middle of calling another subroutine “contains� that
+subroutine at B<runtime>.
+
+=back
+
+=head2 E
+
+=over 4
+
+=item eclectic
+
+Derived X<eclectic (term)>from many sources. Some would say I<too> many.
+
+=item element
+
+A basic X<elements, about>building block. When you’re talking about an
+B<array>, it’s one of the items that make up the array.
+
+=item embedding
+
+When X<embedding (term)>something is contained in something else,
+particularly when that might be considered surprising: “I’ve embedded a
+complete Perl interpreter in my editor!�
+
+=item empty subclass test
+
+The notion X<empty subclass test>that an empty B<derived class> should
+behave exactly like its B<base class>.
+
+=item encapsulation
+
+The veil of X<encapsulation (term)>abstraction separating the B<interface>
+from the B<implementation> (whether enforced or not), which mandates that
+all access to an B<object>’s state be through B<methods> alone.
+
+=item endian
+
+See B<little-endian> and B<big-endian>.
+
+=item en passant
+
+When you X<en passant (term)>change a B<value> as it is being copied. [From
+French “in passing�, as in the exotic pawn-capturing maneuver in chess.]
+
+=item environment
+
+The collectiveX<environment (term)> set of B<environment variables> your
+B<process> inherits from its parent. Accessed via C<%ENV>.
+
+=item environment variable
+
+A mechanism X<environment variables>X<variables, environment>X<environment
+variables>by which some high-level agent such as a user can pass its
+preferences down to its future offspring (child B<processes>, grandchild
+processes, great-grandchild processes, and so on). Each environment
+variable is a B<key>/B<value> pair, like one entry in a B<hash>.
+
+=item EOF
+
+End of File. X<End of File (EOF)>X<EOF (End of File)>Sometimes used
+metaphorically as the terminating string of a B<here document>.
+
+=item errno
+
+The X<errno (error number)>X<error number (errno)>error number returned by a
+B<syscall> when it fails. Perl refers to the error by the name C<$!> (or
+C<$OS_ERROR> if you use the English module).
+
+=item error
+
+See B<exception> or B<fatal error>.
+
+=item escape sequence
+
+See B<metasymbol>.
+
+=item exception
+
+A fancy term for an error. See B<fatal error>.
+
+=item exception handling
+
+The X<exception handling, defined>way a program responds to an error. The
+exception-handling mechanism in Perl is the C<eval> operator.
+
+=item exec
+
+To X<exec function>throw away the current B<process>’s program and replace
+it with another, without exiting the process or relinquishing any resources
+held (apart from the old memory image).
+
+=item executable file
+
+A B<file> X<executable files>X<files, executable>that is specially marked to
+tell the B<operating system> that it’s okay to run this file as a program.
+Usually shortened to “executable�.
+
+=item execute
+
+To run X<execute (term)>a B<program> or B<subroutine>. (Has nothing to do
+with the C<kill> built-in, unless you’re trying to run a B<signal handler>.)
+
+=item execute bit
+
+The X<execute bit>special mark that tells the operating system it can run
+this program. There are actually three execute bits under Unix, and which
+bit gets used depends on whether you own the file singularly, collectively,
+or not at all.
+
+=item exit status
+
+See B<status>.
+
+=item exploit
+
+Used X<exploits, security>as a noun in this case, this refers to a known way
+to compromise a program to get it to do something the author didn’t intend.
+Your task is to write unexploitable programs.
+
+=item export
+
+To make X<exporting, defined>symbols from a B<module> available for
+B<import> by other modules.
+
+=item expression
+
+Anything X<expressions, defined>X<expressions>you can legally say in a spot
+where a B<value> is required. Typically composed of B<literals>,
+B<variables>, B<operators>, B<functions>, and B<subroutine> calls, not
+necessarily in that order.
+
+=item extension
+
+A Perl module X<extensions, defined>that also pulls in B<compiled> C or C++
+code. More generally, any experimental option that can be B<compiled> into
+Perl, such as multithreading.
+
+=back
+
+=head2 F
+
+=over 4
+
+=item false
+
+In Perl, any value X<false values>X<values, false>that would look like C<"">
+or C<"0"> if evaluated in a string context. Since undefined values evaluate
+to C<"">, all undefined values are false, but not all false values are
+undefined.
+
+=item FAQ
+
+Frequently Asked QuestionX<FAQ (Frequently Asked
+Question)>X<Frequently Asked Question (FAQ)> (although not necessarily
+frequently answered, especially if the answer appears in the Perl FAQ
+shipped standard with Perl).
+
+=item fatal error
+
+An uncaught B<exception>, X<fatal errors>which causes termination of the
+B<process> after printing a message on your B<standard error> stream. Errors
+that happen inside an C<eval> are not fatal. Instead, the C<eval> terminates
+after placing the exception message in the C<$@> (C<$EVAL_ERROR>) variable.
+You can try to provoke a fatal error with the C<die> operator (known as
+throwing or raising an exception), but this may be caught by a dynamically
+enclosing C<eval>. If not caught, the C<die> becomes a fatal error.
+
+=item feeping creaturism
+
+A spoonerism X<feeping creaturism>X<creeping featurism>of “creeping
+featurism�, noting the biological urge to add just one more feature to
+a program.
+
+=item field
+
+A single X<fields (term)>piece of numeric or string data that is part of a
+longer B<string>, B<record>, or B<line>. Variable-width fields are usually
+split up by B<separators> (so use C<split> to extract the fields), while
+fixed-width fields are usually at fixed positions (so use C<unpack>).
+B<Instance variables> are also known as “fields�.
+
+=item FIFO
+
+First In, First Out.X<First In, First Out (FIFO)>X<FIFO (First In, First
+Out)> See also B<LIFO>. Also a nickname for a B<named pipe>.
+
+=item file
+
+A named X<files, defined>collection of data, usually stored on disk in a
+B<directory> in a B<filesystem>. Roughly like a document, if you’re into
+office metaphors. In modern filesystems, you can actually give a file more
+than one name. Some files have special properties, like directories and
+devices.
+
+=item file descriptor
+
+The little X<file descriptors>X<descriptors, file>number the B<operating
+system> uses to keep track of which opened B<file> you’re talking about.
+Perl hides the file descriptor inside a B<standard I/O> stream and then
+attaches the stream to a B<filehandle>.
+
+=item fileglob
+
+A “wildcard� X<fileglobs>match on B<filenames>. See the C<glob> function.
+
+=item filehandle
+
+An identifier X<filehandles, about>(not necessarily related to the real
+name of a file) that represents a particular instance of opening a file,
+until you close it. If you’re going to open and close several different
+files in succession, it’s fine to open each of them with the same
+filehandle, so you don’t have to write out separate code to process each
+file.
+
+=item filename
+
+One name for a X<filenames, about>file. This name is listed in a
+B<directory>. You can use it in an C<open> to tell the B<operating system>
+exactly which file you want to open, and associate the file with a
+B<filehandle>, which will carry the subsequent identity of that file in
+your program, until you close it.
+
+=item filesystem
+
+A set X<filesystems, defined>of B<directories> and B<files> residing on a
+partition of the disk. Sometimes known as a “partition�. You can change the
+file’s name or even move a file around from directory to directory within a
+filesystem without actually moving the file itself, at least under Unix.
+
+=item file test operator
+
+A built-in X<file test operators, about>unary operator that you use to
+determine whether something is B<true> about a file, such as C<–o
+$filename> to test whether you’re the owner of the file.
+
+=item filter
+
+A X<filters, defined>program designed to take a B<stream> of input and
+transform it into a stream of output.
+
+=item first-come
+
+The X<first–come permissions>X<permissions, first–come>first B<PAUSE>
+author to upload a B<namespace> automatically becomes the B<primary
+maintainer> for that namespace. The “first come� permissions distinguish a
+B<primary maintainer> who was assigned that role from one who received it
+automatically.
+
+=item flag
+
+We X<flags (term)>tend to avoid this term because it means so many things.
+It may mean a command-line B<switch> that takes no argument itself (such as
+Perl’s C<–n> and C<–p> flags) or, less frequently, a single-bit indicator
+(such as the C<O_CREAT> and C<O_EXCL> flags used in C<sysopen>). Sometimes
+informally used to refer to certain regex modifiers.
+
+=item floating point
+
+A X<floating point methods>X<methods, floating point>method of storing
+numbers in “scientific notation�, such that the precision of the number is
+independent of its magnitude (the decimal point “floats�). Perl does its
+numeric work with floating-point numbers (sometimes called “floats�) when
+it can’t get away with using B<integers>. Floating-point numbers are mere
+approximations of real numbers.
+
+=item flush
+
+The act of X<flushing buffers>X<buffers, flushing>emptying a B<buffer>,
+often before it’s full.
+
+=item FMTEYEWTK
+
+Far More Than Everything You Ever Wanted To KnowX<FMTEYEWTK acronym>. An
+exhaustive treatise on one narrow topic, something of a super-B<FAQ>. See
+Tom for far more.
+
+=item foldcase
+
+The casemap X<foldcase (term)>used in Unicode when comparing or matching
+without regard to case. Comparing lower-, title-, or uppercase are all
+unreliable due to Unicode’s complex, one-to-many case mappings. Foldcase is
+a B<lowercase> variant (using a partially decomposed B<normalization> form
+for certain codepoints) created specifically to resolve this.
+
+=item fork
+
+To create a X<forking processes>X<processes, forking>child B<process>
+identical to the parent process at its moment of conception, at least until
+it gets ideas of its own. A thread with protected memory.
+
+=item formal arguments
+
+The X<formal arguments>X<arguments, formal>generic names by which a
+B<subroutine> knows its B<arguments>. In many languages, formal arguments
+are always given individual names; in Perl, the formal arguments are just
+the elements of an array. The formal arguments to a Perl program are
+C<$ARGV[0]>, C<$ARGV[1]>, and so on. Similarly, the formal arguments to a
+Perl subroutine are C<$_[0]>, C<$_[1]>, and so on. You may give the
+arguments individual names by assigning the values to a C<my> list. See
+also B<actual arguments>.
+
+=item format
+
+A X<formats, defined>specification of how many spaces and digits and things
+to put somewhere so that whatever you’re printing comes out nice and
+pretty.
+
+=item freely available
+
+Means X<freely available (term)>you don’t have to pay money to get it, but
+the copyright on it may still belong to someone else (like Larry).
+
+=item freely redistributable
+
+Means X<freely redistributable (term)>you’re not in legal trouble if you
+give a bootleg copy of it to your friends and we find out about it. In
+fact, we’d rather you gave a copy to all your friends.
+
+=item freeware
+
+Historically, X<freeware (term)>any software that you give away,
+particularly if you make the source code available as well. Now often
+called B<open source software>. Recently there has been a trend to use the
+term in contradistinction to B<open source software>, to refer only to free
+software released under the X<Free Software Foundation>Free Software
+Foundation’s GPL (General Public License), but this is difficult to justify
+etymologically.
+
+=item function
+
+Mathematically, X<functions, about>a mapping of each of a set of input
+values to a particular output value. In computers, refers to a
+B<subroutine> or B<operator> that returns a B<value>. It may or may not
+have input values (called B<arguments>).
+
+=item funny character
+
+Someone X<funny characters>X<characters, funny>like Larry, or one of his
+peculiar friends. Also refers to the strange prefixes that Perl requires as
+noun markers on its variables.
+
+=back
+
+=head2 G
+
+=over 4
+
+=item garbage collection
+
+A misnamed feature—X<garbage collection, defined>it should be called,
+“expecting your mother to pick up after you�. Strictly speaking, Perl
+doesn’t do this, but it relies on a reference-counting mechanism to keep
+things tidy. However, we rarely speak strictly and will often refer to the
+reference-counting scheme as a form of garbage collection. (If it’s any
+comfort, when your interpreter exits, a “real� garbage collector runs to
+make sure everything is cleaned up if you’ve been messy with circular
+references and such.)
+
+=item GID
+
+Group ID—in Unix, X<GID (Group ID)>X<Group ID (GID)>the numeric group ID
+that the B<operating system> uses to identify you and members of your
+B<group>.
+
+=item glob
+
+Strictly, the X<glob (* character)>shell’s C<*> character, which will match
+a “glob� of characters when you’re trying to generate a list of filenames.
+Loosely, the act of using globs and similar symbols to do pattern matching.
+See also B<fileglob> and B<typeglob>.
+
+=item global
+
+Something X<global (term)>you can see from anywhere, usually used of
+B<variables> and B<subroutines> that are visible everywhere in your
+program.  In Perl, only certain special variables are truly global—most
+variables (and all subroutines) exist only in the current B<package>.
+Global variables can be declared with C<our>. See “Global Declarations� in
+Camel chapter 4, “Statements and Declarations�.
+
+=item global destruction
+
+The B<garbage X<global destruction>collection> of globals (and the running
+of any associated object destructors) that takes place when a Perl
+B<interpreter> is being shut down. Global destruction should not be
+confused with the Apocalypse, except perhaps when it should.
+
+=item glue language
+
+A language X<glue language>such as Perl that is good at hooking things
+together that weren’t intended to be hooked together.
+
+=item granularity
+
+The size of the X<granularity>pieces you’re dealing with, mentally
+speaking.
+
+=item grapheme
+
+A graphene is X<graphemes, defined>an allotrope of carbon arranged in a
+hexagonal crystal lattice one atom thick. A B<grapheme>, or more fully, a
+I<grapheme cluster string> is a single user-visible B<character>, which may
+in turn be several characters (B<codepoints>) long. For example, a carriage
+return plus a line feed is a single grapheme but two characters, while a
+“ȫ� is a single grapheme but one, two, or even three characters, depending
+on B<normalization>.
+
+=item greedy
+
+A B<subpattern> X<greedy subpatterns>X<subpatterns, greedy>whose
+B<quantifier> wants to match as many things as possible.
+
+=item grep
+
+Originally X<grep function>from the old Unix editor command for “Globally
+search for a Regular Expression and Print it�, now used in the general
+sense of any kind of search, especially text searches. Perl has a built-in
+C<grep> function that searches a list for elements matching any given
+criterion, whereas the B<grep>(1) program searches for lines matching a
+B<regular expression> in one or more files.
+
+=item group
+
+A set of users X<groups, defined>of which you are a member. In some
+operating systems (like Unix), you can give certain file access permissions
+to other members of your group.
+
+=item GV
+
+An internal “glob value� X<GV (glob value)>X<glob value (GV)>typedef,
+holding a B<typeglob>. The C<GV> type is a subclass of B<SV>.
+
+=back
+
+=head2 H
+
+=over 4
+
+=item hacker
+
+Someone X<hackers>who is brilliantly persistent in solving technical
+problems, whether these involve golfing, fighting orcs, or programming.
+Hacker is a neutral term, morally speaking. Good hackers are not to be
+confused with evil B<crackers> or clueless B<script kiddies>. If you
+confuse them, we will presume that you are either evil or clueless.
+
+=item handler
+
+A B<subroutine> X<handlers, defined>or B<method> that Perl calls when your
+program needs to respond to some internal event, such as a B<signal>, or an
+encounter with an operator subject to B<operator overloading>. See also
+B<callback>.
+
+=item hard reference
+
+A B<scalar> B<value> X<hard references, about>X<references, hard>containing
+the actual address of a B<referent>, such that the referent’s B<reference>
+count accounts for it. (Some hard references are held internally, such as
+the implicit reference from one of a B<typeglob>’s variable slots to its
+corresponding referent.) A hard reference is different from a B<symbolic
+reference>.
+
+=item hash
+
+An unordered X<hashes, about>association of B<key>/B<value> X<key/value
+pairs, about>pairs, stored such that you can easily use a string B<key> to
+look up its associated data B<value>. This glossary is like a hash, where
+the word to be defined is the key and the definition is the value. A hash
+is also sometimes septisyllabically called an “associative array�, which is
+a pretty good reason for simply calling it a “hash� instead.
+
+=item hash table
+
+A data X<hash tables>structure used internally by Perl for implementing
+associative arrays (hashes) efficiently. See also B<bucket>.
+
+=item header file
+
+A file X<header files>X<files, header>containing certain required
+definitions that you must include “ahead� of the rest of your program to do
+certain obscure operations. A C header file has a I<.h> extension. Perl
+doesn’t really have header files, though historically Perl has sometimes
+used translated I<.h> files with a I<.ph> extension. See C<require> in
+Camel chapter 27, “Functions�. (Header files have been superseded by the
+B<module> mechanism.)
+
+=item here document
+
+So X<here documents>called because of a similar construct in B<shells> that
+pretends that the B<lines> following the B<command> are a separate B<file>
+to be fed to the command, up to some terminating string. In Perl, however,
+it’s just a fancy form of quoting.
+
+=item hexadecimal
+
+A X<hexadecimals>number in base 16, “hex� for short. The digits for 10
+through 15 are customarily represented by the letters C<a> through C<f>.
+Hexadecimal constants in Perl start with C<0x>. See also the C<hex>
+function in Camel chapter 27, “Functions�.
+
+=item home directory
+
+The X<home directory>X<directories, home>directory you are put into when
+you log in. On a Unix system, the name is often placed into C<$ENV{HOME}>
+or C<$ENV{LOGDIR}> by I<login>, but you can also find it with
+C<(get>C<pwuid($E<lt>))[7]>. (Some platforms do not have a concept of a
+home directory.)
+
+=item host
+
+The computer X<host computers>on which a program or other data resides.
+
+=item hubris
+
+Excessive pride, X<hubris quality>the sort of thing for which Zeus zaps
+you.  Also the quality that makes you write (and maintain) programs that
+other people won’t want to say bad things about. Hence, the third great
+virtue of a programmer. See also B<laziness> and B<impatience>.
+
+=item HV
+
+Short for a “hash value� X<HV (hash value)>X<hash value (HV)>typedef, which
+holds Perl’s internal representation of a hash. The C<HV> type is a
+subclass of B<SV>.
+
+=back
+
+=head2 I
+
+=over 4
+
+=item identifier
+
+A legally X<identifiers, defined>formed name for most anything in which a
+computer program might be interested. Many languages (including Perl) allow
+identifiers to start with an alphabetic character, and then contain
+alphabetics and digits. Perl also allows connector punctuation like the
+underscore character wherever it allows alphabetics. (Perl also has more
+complicated names, like B<qualified> names.)
+
+=item impatience
+
+The anger X<impatience quality>you feel when the computer is being lazy.
+This makes you write programs that don’t just react to your needs, but
+actually anticipate them. Or at least that pretend to. Hence, the second
+great virtue of a programmer. See also B<laziness> and B<hubris>.
+
+=item implementation
+
+How a X<implementation (term)>piece of code actually goes about doing its
+job. Users of the code should not count on implementation details staying
+the same unless they are part of the published B<interface>.
+
+=item import
+
+To gain X<import (term)>access to symbols that are exported from another
+module. See C<use> in Camel chapter 27, “Functions�.
+
+=item increment
+
+To increase the X<incrementing values>X<values, incrementing>value of
+something by 1 (or by some other number, if so specified).
+
+=item indexing
+
+In olden days, X<indexing (term)>the act of looking up a B<key> in an
+actual index (such as a phone book). But now it's merely the act of using
+any kind of key or position to find the corresponding B<value>, even if no
+index is involved. Things have degenerated to the point that Perl’s
+C<index> function merely locates the position (index) of one string in
+another.
+
+=item indirect filehandle
+
+An B<expression> X<indirect filehandles>X<filehandles, indirect>that
+evaluates to something that can be used as a B<filehandle>: a B<string>
+(filehandle name), a B<typeglob>, a typeglob B<reference>, or a low-level
+B<IO> object.
+
+=item indirection
+
+If something in a X<indirection (term)>program isn’t the value you’re
+looking for but indicates where the value is, that’s indirection. This can
+be done with either B<symbolic references> or B<hard>.
+
+=item indirect object
+
+In English grammar, X<indirect objects, defined>X<objects, indirect>a short
+noun phrase between a verb and its direct object indicating the beneficiary
+or recipient of the action. In Perl, C<print STDOUT "$foo\n";> can be
+understood as “verb indirect-object object�, where C<STDOUT> is the
+recipient of the C<print> action, and C<"$foo"> is the object being
+printed.  Similarly, when invoking a B<method>, you might place the
+invocant in the dative slot between the method and its arguments:
+
+    $gollum = new Pathetic::Creature "Sméagol";
+    give $gollum "Fisssssh!";
+    give $gollum "Precious!";
+
+=item indirect object slot
+
+The syntactic X<indirect object slot>position falling between a method call
+and its arguments when using the indirect object invocation syntax. (The
+slot is distinguished by the absence of a comma between it and the next
+argument.) C<STDERR> is in the indirect object slot here:
+
+    print STDERR "Awake! Awake! Fear, Fire, Foes! Awake!\n";
+
+=item infix
+
+An B<operator> that X<infix operators>comes in between its B<operands>,
+such as multiplication in C<24 * 7>.
+
+=item inheritance
+
+What you get from your X<inheritance, defined>ancestors, genetically or
+otherwise. If you happen to be a B<class>, your ancestors are called B<base
+classes> and your descendants are called B<derived classes>. See B<single
+inheritance> and B<multiple inheritance>.
+
+=item instance
+
+Short for “an instance of a class�, X<instances (term)>meaning an B<object>
+of that B<class>.
+
+=item instance data
+
+SeeX<instance data> B<instance variable>.
+
+=item instance method
+
+A B<method> of X<instance methods>X<methods, instance>an B<object>, as
+opposed to a B<class method>.
+
+A B<method> whose B<invocant> is an B<object>, not a B<package> name. Every
+object of a class shares all the methods of that class, so an instance
+method applies to all instances of the class, rather than applying to a
+particular instance. Also see B<class method>.
+
+=item instance variable
+
+An B<attribute> of an B<object>; X<instance variables, defined>X<variables,
+instance>data stored with the particular object rather than with the class
+as a whole.
+
+=item integer
+
+A number X<integers (term)>with no fractional (decimal) part. A counting
+number, like 1, 2, 3, and so on, but including 0 and the negatives.
+
+=item interface
+
+The services X<interfaces (term)>a piece of code promises to provide
+forever, in contrast to its B<implementation>, which it should feel free to
+change whenever it likes.
+
+=item interpolation
+
+The insertion of X<interpolation, defined>a scalar or list value somewhere
+in the middle of another value, such that it appears to have been there all
+along. In Perl, variable interpolation happens in double-quoted strings and
+patterns, and list interpolation occurs when constructing the list of
+values to pass to a list operator or other such construct that takes a
+I<C<LIST>>.
+
+=item interpreter
+
+Strictly speaking, X<interpreters, defined>a program that reads a second
+program and does what the second program says directly without turning the
+program into a different form first, which is what B<compilers> do. Perl is
+not an interpreter by this definition, because it contains a kind of
+compiler that takes a program and turns it into a more executable form
+(B<syntax trees>) within the I<perl> process itself, which the Perl
+B<runtime> system then interprets.
+
+=item invocant
+
+The agent on X<invocants, defined>whose behalf a B<method> is invoked. In a
+B<class> method, the invocant is a package name. In an B<instance> method,
+the invocant is an object reference.
+
+=item invocation
+
+The act of X<invocation, method>calling up a deity, daemon, program,
+method, subroutine, or function to get it to do what you think it’s
+supposed to do.  We usually “call� subroutines but “invoke� methods, since
+it sounds cooler.
+
+=item I/O
+
+Input from, or X<I/O (Input/Output), defined>X<Input/Output (I/O),
+defined>output to, a B<file> or B<device>.
+
+=item IO
+
+An internal I/O object. Can also mean B<indirect object>.
+
+=item I/O layer
+
+One of the X<I/O layer>filters between the data and what you get as input
+or what you end up with as output.
+
+=item IPA
+
+India Pale Ale. Also the X<International Phonetic Alphabet (IPA)>X<IPA
+(International Phonetic Alphabet)>International Phonetic Alphabet, the
+standard alphabet used for phonetic notation worldwide. Draws heavily on
+Unicode, including many combining characters.
+
+=item IP
+
+Internet ProtocolX<Internet Protocol (IP)>X<IP (Internet Protocol)>, or
+X<IP (Intellectual Property)>X<Intellectual Property (IP)>Intellectual
+Property.
+
+=item IPC
+
+Interprocess X<Interprocess Communication>X<IPC (Interprocess
+Communication), about>X<communication>Communication.
+
+=item is-a
+
+A rX<is–a relationship>elationship between two B<objects> in which one
+object is considered to be a more specific version of the other, generic
+object: “A camel is a mammal.� Since the generic object really only exists
+in a Platonic sense, we usually add a little abstraction to the notion of
+objects and think of the relationship as being between a generic B<base
+class> and a specific B<derived class>. Oddly enough, Platonic classes
+don’t always have Platonic relationships—see B<inheritance>.
+
+=item iteration
+
+Doing X<iteration>something repeatedly.
+
+=item iterator
+
+A special X<iterators>programming gizmo that keeps track of where you are
+in something that you’re trying to iterate over. The C<foreach> loop in
+Perl contains an iterator; so does a hash, allowing you to C<each> through
+it.
+
+=item IV
+
+The integer X<IV (Integer Value)>X<Integer Value (IV)>four, not to be
+confused with six, Tom’s favorite editor. IV also means an internal Integer
+Value of the type a B<scalar> can hold, not to be confused with an B<NV>.
+
+=back
+
+=head2 J
+
+=over 4
+
+=item JAPH
+
+“Just Another Perl Hacker�, a X<JAPH acronym>clever but cryptic bit of Perl
+code that, when executed, evaluates to that string. Often used to
+illustrate a particular Perl feature, and something of an ongoing
+Obfuscated Perl Contest seen in USENET signatures.
+
+=back
+
+=head2 K
+
+=over 4
+
+=item key
+
+The X<keys, defined>string index to a B<hash>, used to look up the B<value>
+associated with that key.
+
+=item keyword
+
+See B<reserved words>.
+
+=back
+
+=head2 L
+
+=over 4
+
+=item label
+
+A X<labels, defined>name you give to a B<statement> so that you can talk
+about that statement elsewhere in the program.
+
+=item laziness
+
+The X<laziness quality>quality that makes you go to great effort to reduce
+overall energy expenditure. It makes you write labor-saving programs that
+other people will find useful, and then document what you wrote so you
+don’t have to answer so many questions about it. Hence, the first great
+virtue of a programmer. Also hence, this book. See also B<impatience> and
+B<hubris>.
+
+=item leftmost longest
+
+The X<leftmost longest preference>X<regular expressions, leftmost longest
+preference>preference of the B<regular expression> engine to match the
+leftmost occurrence of a B<pattern>, then given a position at which a match
+will occur, the preference for the longest match (presuming the use of a
+B<greedy> quantifier). See Camel chapter 5, “Pattern Matching� for I<much>
+more on this subject.
+
+=item left shift
+
+A B<bit shift> that X<left shift (E<lt>E<lt>) bit operator>X<bit–shift
+operators, left shift>X<E<lt>E<lt> (left shift) bit operator>multiplies the
+number by some power of 2.
+
+=item lexeme
+
+Fancy X<lexeme (token)>term for a B<token>.
+
+=item lexer
+
+Fancy X<lexer (tokener)>term for a B<tokener>.
+
+=item lexical analysis
+
+Fancy X<lexical analysis>term for B<tokenizing>.
+
+=item lexical scoping
+
+Looking X<lexical scopes, defined>X<scopes>at your I<Oxford English
+Dictionary> through a microscope. (Also known as B<static scoping>, because
+dictionaries don’t change very fast.) Similarly, looking at variables
+stored in a private dictionary (namespace) for each scope, which are
+visible only from their point of declaration down to the end of theX<static
+scopes>X<scopes, static> lexical scope in which they are declared. —Syn.
+B<static scoping>. —Ant. B<dynamic scoping>.
+
+=item lexical variable
+
+A B<variable> X<lexical variables, about>X<variables, lexical>subject to
+B<lexical scoping>, declared by C<my>. Often just called a “lexical�. (The
+C<our> declaration declares a lexically scoped name for a global variable,
+which is not itself a lexical variable.)
+
+=item library
+
+Generally, a X<libraries, defined>collection of procedures. In ancient
+days, referred to a collection of subroutines in a I<.pl> file. In modern
+times, refers more often to the entire collection of Perl B<modules> on
+your system.
+
+=item LIFO
+
+Last In, First OutX<Last In, First Out (LIFO)>X<LIFO (Last In, First
+Out)>X<stacks, defined>. See also B<FIFO>. A LIFO is usually called a
+B<stack>.
+
+=item line
+
+In Unix, a X<line (term)>sequence of zero or more nonnewline characters
+terminated with a B<newline> character. On non-Unix machines, this is
+emulated by the C library even if the underlying B<operating system> has
+different ideas.
+
+=item linebreak
+
+A B<grapheme> X<linebreaks>consisting of either a carriage return followed
+by a line feed or any character with the Unicode Vertical Space B<character
+property>.
+
+=item line buffering
+
+Used by X<line buffering>X<buffering, line>a B<standard I/O> output stream that
+flushes its B<buffer> after every B<newline>. Many standard I/O libraries
+automatically set up line buffering on output that is going to the terminal.
+
+=item line number
+
+The number X<line number>of lines read previous to this one, plus 1. Perl
+keeps a separate line number for each source or input file it opens. The
+current source file’s line number is represented by C<__LINE__>. The
+current input line number (for the file that was most recently read via
+C<E<lt>FHE<gt>>) is represented by the C<$.> (C<$INPUT_LINE_NUMBER>)
+variable. Many error messages report both values, if available.
+
+=item link
+
+Used as a X<links, defined>noun, a name in a B<directory> that represents a
+B<file>. A given file can have multiple links to it. It’s like having the
+same phone number listed in the phone directory under different names. As a
+verb, to resolve a partially B<compiled> file’s unresolved symbols into a
+(nearly) executable image. Linking can generally be static or dynamic,
+which has nothing to do with static or dynamic scoping.
+
+=item LIST
+
+A syntactic X<LIST construct>X<constructs, LIST>construct representing a
+comma- separated list of expressions, evaluated to produce a B<list value>.
+Each B<expression> in a I<C<LIST>> is evaluated in B<list context> and
+interpolated into the list value.
+
+=item list
+
+An ordered X<lists, defined>set of scalar values.
+
+=item list context
+
+The situation X<list context>X<context, list>in which an B<expression> is
+expected by its surroundings (the code calling it) to return a list of
+values rather than a single value. Functions that want a I<C<LIST>> of
+arguments tell those arguments that they should produce a list value. See
+also B<context>.
+
+=item list operator
+
+An B<operator> that X<list operators, about>does something with a list of
+values, such as C<join> or C<grep>. Usually used for named built-in
+operators (such as C<print>, C<unlink>, and C<system>) that do not require
+parentheses around their B<argument> list.
+
+=item list value
+
+An unnamed X<list values, about>X<values, list>list of temporary scalar
+values that may be passed around within a program from any list-generating
+function to any function or construct that provides a B<list context>.
+
+=item literal
+
+A token X<literals, defined>in a programming language, such as a number or
+B<string>, that gives you an actual B<value> instead of merely representing
+possible values as a B<variable> does.
+
+=item little-endian
+
+From Swift: X<little–endian, defined>X<endianness, little–endian>someone
+who eats eggs little end first. Also used of computers that store the least
+significant B<byte> of a word at a lower byte address than the most
+significant byte. Often considered superior to big-endian machines. See
+also B<big-endian>.
+
+=item local
+
+Not meaning X<local operator, about>the same thing everywhere. A global
+variable in Perl can be localized inside a B<dynamic scope> via the
+C<local> operator.
+
+=item logical operator
+
+Symbols X<logical operators, about>representing the concepts “and�, “or�,
+“xor�, and “not�.
+
+=item lookahead
+
+An B<assertion> that X<lookahead assertions>X<assertions (in regexes),
+lookahead>peeks at the string to the right of the current match location.
+
+=item lookbehind
+
+An B<assertion> X<lookbehind assertions>X<assertions (in regexes),
+lookbehind>that peeks at the string to the left of the current match
+location.
+
+=item loop
+
+A construct X<loop constructs and statements, about>X<constructs, loop>that
+performs something repeatedly, like a roller coaster.
+
+=item loop control statement
+
+Any statement X<statements, loop control>within the body of a loop that can
+make a loop prematurely stop looping or skip an B<iteration>. Generally,
+you shouldn’t try this on roller coasters.
+
+=item loop label
+
+A kind X<loop labels>X<labels, loop>of key or name attached to a loop (or
+roller coaster) so that loop control statements can talk about which loop
+they want to control.
+
+=item lowercase
+
+In Unicode, X<lowercase characters>X<characters, lowercase>not just
+characters with the General Category of Lowercase Letter, but any character
+with the Lowercase property, including Modifier Letters, Letter Numbers,
+some Other Symbols, and one Combining Mark.
+
+=item lvaluable
+
+Able to X<lvaluable function>X<functions, lvaluable>serve as an B<lvalue>.
+
+=item lvalue
+
+Term used by X<lvalue (term)>X<values, lvalue>language lawyers for a
+storage location you can assign a new B<value> to, such as a B<variable> or
+an element of an B<array>. The “l� is short for “left�, as in the left side
+of an assignment, a typical place for lvalues. An B<lvaluable> function or
+expression is one to which a value may be assigned, as in C<pos($x) = 10>.
+
+=item lvalue modifier
+
+An X<lvalue modifier>X<modifiers, lvalue>adjectival pseudofunction that
+warps the meaning of an B<lvalue> in some declarative fashion. Currently
+there are three lvalue modifiers: C<my>, C<our>, and C<local>.
+
+=back
+
+=head2 M
+
+=over 4
+
+=item magic
+
+Technically X<magic (term)>speaking, any extra semantics attached to a
+variable such as C<$!>, C<$0>, C<%ENV>, or C<%SIG>, or to any tied
+variable.  Magical things happen when you diddle those variables.
+
+=item magical increment
+
+An B<increment> X<magical increment operator>operator that knows how to
+bump up ASCII alphabetics as well as numbers.
+
+=item magical variables
+
+Special variables X<magical variables>X<variables, magical>that have side
+effects when you access them or assign to them. For example, in Perl,
+changing elements of the C<%ENV> array also changes the corresponding
+environment variables that subprocesses will use. Reading the C<$!>
+variable gives you the current system error number or message.
+
+=item Makefile
+
+A file that X<Makefile>controls the compilation of a program. Perl programs
+don’t usually need a B<Makefile> because the Perl compiler has plenty of
+self-control.
+
+=item man
+
+The Unix X<man program (Unix)>program that displays online documentation
+(manual pages) for you.
+
+=item manpage
+
+A “page� from the X<manpages, defined>manuals, typically accessed via the
+I<man>(1) command. A manpage contains a SYNOPSIS, a DESCRIPTION, a list of
+BUGS, and so on, and is typically longer than a page. There are manpages
+documenting B<commands>, B<syscalls>, B<library> B<functions>, B<devices>,
+B<protocols>, B<files>, and such. In this book, we call any piece of
+standard Perl documentation (like L<perlop> or L<perldelta>) a manpage, no
+matter what format it’s installed in on your system.
+
+=item matching
+
+SeeX<matching> B<pattern matching>.
+
+=item member data
+
+SeeX<member data> B<instance variable>.
+
+=item memory
+
+This X<memory, defined>always means your main memory, not your disk.
+Clouding the issue is the fact that your machine may implement
+B<virtual> memory; that is, it will pretend that it has more memory than
+it really does, and it’ll use disk space to hold inactive bits. This can
+make it seem like you have a little more memory than you really do, but
+it’s not a substitute for real memory. The best thing that can be said
+about virtual memory is that it lets your performance degrade gradually
+rather than suddenly when you run out of real memory. But your program
+can die when you run out of virtual memory, too—if you haven’t thrashed
+your disk to death first.
+
+=item metacharacter
+
+A B<character> that X<metacharacters, about>X<characters, regex
+metacharacters>is I<not> supposed to be treated normally. Which characters
+are to be treated specially as metacharacters varies greatly from context to
+context. Your B<shell> will have certain metacharacters, double-quoted Perl
+B<strings> have other metacharacters,X<regular expressions, metacharacters and>
+and B<regular expression> patterns have all the double-quote metacharacters plus
+some extra ones of their own.
+
+=item metasymbol
+
+Something we’d call X<metasymbols, about>X<escape sequences>a
+B<metacharacter> except that it’s a sequence of more than one character.
+Generally, the first character in the sequence must be a true metacharacter
+to get the other characters in the metasymbol to misbehave along with it.
+
+=item method
+
+A kind of X<methods, defined>action that an B<object> can take if you tell
+it to. See Camel chapter 12, “Objects�.
+
+=item method resolution order
+
+The path X<method resolution order (mro)>X<mro (method resolution
+order)>Perl takes through C<@INC>. By default, this is a double depth first
+search, once looking for defined methods and once for C<AUTOLOAD>. However,
+Perl lets you configure this with C<mro>.
+
+=item minicpan
+
+A CPAN X<minicpan, defined>X<CPAN (Comprehensive Perl Archive Network),
+minicpan and>mirror that includes just the latest versions for each
+distribution, probably created with C<CPAN::Mini>X<CPAN::Mini module>. See
+Camel chapter 19, “CPAN�.
+
+=item minimalism
+
+The belief X<minimalism>that “small is beautiful�. Paradoxically, if you
+say something in a small language, it turns out big, and if you say it in a
+big language, it turns out small. Go figure.
+
+=item mode
+
+In the X<mode>context of the I<stat>(2) syscall, refers to the field
+holding the B<permission bits> and the type of the B<file>.
+
+=item modifier
+
+SeeX<modifiers, defined> B<statement modifier>, B<regular expression>, and
+B<lvalue>, not necessarily in that order.
+
+=item module
+
+A B<file> that X<modules, defined>defines a B<package> of (almost) the same
+name, which can either B<export> symbols or function as an B<object> class.
+(A module’s main I<.pm> file may also load in other files in support of the
+module.) See the C<use> built-in.
+
+=item modulus
+
+An integer X<modulus (%) operator>X<% (modulus) operator>divisor when
+you’re interested in the remainder instead of the quotient.
+
+=item mojibake
+
+When you X<mojibake>speak one language and the computer thinks you’re
+speaking another. You’ll see odd translations when you send UTF‑8, for
+instance, but the computer thinks you sent Latin-1, showing all sorts of
+weird characters instead. The term is written 「文字化��in Japanese and
+means “character rot�, an apt description. Pronounced [C<modʑibake>] in
+standard B<IPA> phonetics, or approximately “moh-jee-bah-keh�.
+
+=item monger
+
+Short for X<mongers, Perl>X<Perl mongers>one member of B<Perl mongers>, a
+purveyor of Perl.
+
+=item mortal
+
+A temporary X<mortal value>X<values, mortal>value scheduled to die when the
+current statement finishes.
+
+=item mro
+
+See B<method resolution order>.
+
+=item multidimensional array
+
+An array X<multidimensional arrays>X<arrays, multidimensional>with multiple
+subscripts for finding a single element. Perl implements these using
+B<references>—see Camel chapter 9, “Data Structures�.
+
+=item multiple inheritance
+
+The features X<multiple inheritance>X<inheritance, multiple>you got from
+your mother and father, mixed together unpredictably. (See also
+B<inheritance> and B<single inheritance>.) In computer languages (including
+Perl), it is the notion that a given class may have multiple direct
+ancestors or B<base classes>.
+
+=back
+
+=head2 N
+
+=over 4
+
+=item named pipe
+
+A B<pipe> X<named pipes>X<pipes, names>with a name embedded in the
+B<filesystem> so that it can be accessed by two unrelated B<processes>.
+
+=item namespace
+
+A domain of X<namespaces, about>names. You needn’t worry about whether the
+names in one such domain have been used in another. See B<package>.
+
+=item NaN
+
+Not a number. X<NaN (not a number)>X<not a number (NaN)>The value Perl uses
+for certain invalid or inexpressible floating-point operations.
+
+=item network address
+
+The most X<network address>important attribute of a socket, like your
+telephone’s telephone number. Typically an IP address. See also B<port>.
+
+=item newline
+
+A single X<newline character>X<characters, newline>character that
+represents the end of a line, with the ASCII value of 012 octal under Unix
+(but 015 on a Mac), and represented by C<\n> in Perl strings. For Windows
+machines writing text files, and for certain physical devices like
+terminals, the single newline gets automatically translated by your C
+library into a line feed and a carriage return, but normally, no
+translation is done.
+
+=item NFS
+
+Network File System, X<NFS (Network File System)>X<Network File System
+(NFS)>which allows you to mount a remote filesystem as if it were local.
+
+=item normalization
+
+Converting a X<normalization>text string into an alternate but equivalent
+B<canonical> (or compatible) representation that can then be compared for
+equivalence. Unicode recognizes four different normalization forms: NFD,
+NFC, NFKD, and NFKC.
+
+=item null character
+
+A character X<null character>X<characters, null>with the numeric value of
+zero. It’s used by C to terminate strings, but Perl allows strings to
+contain a null.
+
+=item null list
+
+A B<list value> with X<null lists>X<lists, null>zero elements, represented
+in Perl by C<()>.
+
+=item null string
+
+A B<string> X<null strings>X<strings, null>containing no characters, not to
+be confused with a string containing a B<null character>, which has a
+positive length and is B<true>.
+
+=item numeric context
+
+The situation X<numeric context>X<context, numeric>in which an expression
+is expected by its surroundings (the code calling it) to return a number.
+See also B<context> and B<string context>.
+
+=item numification
+
+(Sometimes spelled I<nummification> and I<nummify>.) X<numification>Perl lingo
+for implicit conversion into a number; the related verb is I<numify>.
+I<Numification> is intended to rhyme with I<mummification>, and I<numify> with
+I<mummify>. It is unrelated to English I<numen>, I<numina>, I<numinous>. We
+originally forgot the extra I<m> a long time ago, and some people got used to
+our funny spelling, and so just as with C<HTTP_REFERER>’s own missing letter,
+our weird spelling has stuck around.
+
+=item NV
+
+Short for Nevada, X<Numeric Value (NV)>X<NV (Numeric Value)>no part of
+which will ever be confused with civilization. NV also means an internal
+floating- point Numeric Value of the type a B<scalar> can hold, not to be
+confused with an B<IV>.
+
+=item nybble
+
+Half a B<byte>, X<nybble>equivalent to one B<hexadecimal> digit, and worth
+four B<bits>.
+
+=back
+
+=head2 O
+
+=over 4
+
+=item object
+
+An B<instance> X<objects, defined>of a B<class>. Something that “knows�
+what user-defined type (class) it is, and what it can do because of what
+class it is. Your program can request an object to do things, but the
+object gets to decide whether it wants to do them or not. Some objects are
+more accommodating than others.
+
+=item octal
+
+A number X<octals>in base 8. Only the digits 0 through 7 are allowed. Octal
+constants in Perl start with 0, as in 013. See also the C<oct> function.
+
+=item offset
+
+How many X<offsets in strings>X<strings, offsets in>things you have to skip
+over when moving from the beginning of a string or array to a specific
+position within it. Thus, the minimum offset is zero, not one, because you
+don’t skip anything to get to the first item.
+
+=item one-liner
+
+An entire X<one–liner programs>computer program crammed into one line of
+text.
+
+=item open source software
+
+Programs X<open source software>for which the source code is freely
+available and freely redistributable, with no commercial strings attached.
+For a more detailed definition, see L<http://www.opensource.org/osd.html>.
+
+=item operand
+
+An B<expression> X<operands (term)>that yields a B<value> that an
+B<operator> operates on. See also B<precedence>.
+
+=item operating system
+
+A special X<operating systems, defined>program that runs on the bare
+machine and hides the gory details of managing B<processes> and B<devices>.
+Usually used in a looser sense to indicate a particular culture of
+programming. The loose sense can be used at varying levels of specificity.
+At one extreme, you might say that all versions of Unix and Unix-lookalikes
+are the same operating system (upsetting many people, especially lawyers
+and other advocates). At the other extreme, you could say this particular
+version of this particular vendor’s operating system is different from any
+other version of this or any other vendor’s operating system. Perl is much
+more portable across operating systems than many other languages. See also
+B<architecture> and B<platform>.
+
+=item operator
+
+A gizmo X<operators, about>that transforms some number of input values to
+some number of output values, often built into a language with a special
+syntax or symbol. A given operator may have specific expectations about
+what B<types> of data you give as its arguments (B<operands>) and what type
+of data you want back from it.
+
+=item operator overloading
+
+A kind X<operator overloading, about>X<overloading, operator>of
+B<overloading> that you can do on built-in B<operators> to make them work
+on B<objects> as if the objects were ordinary scalar values, but with the
+actual semantics supplied by the object class. This is set up with the
+overload B<pragma>—see Camel chapter 13, “Overloading�.
+
+=item options
+
+See X<options>either B<switches> or B<regular expression modifiers>.
+
+=item ordinal
+
+An X<ordinals (term)>abstract character’s integer value. Same thing as
+B<codepoint>.
+
+=item overloading
+
+Giving X<overloading, defined>additional meanings to a symbol or construct.
+Actually, all languages do overloading to one extent or another, since
+people are good at figuring out things from B<context>.
+
+=item overriding
+
+Hiding or X<overriding, defined>invalidating some other definition of the
+same name. (Not to be confused with B<overloading>, which adds definitions
+that must be disambiguated some other way.) To confuse the issue further,
+we use the word with two overloaded definitions: to describe how you can
+define your own B<subroutine> to hide a built-in B<function> of the same
+name (see the section “Overriding Built-in Functions� in Camel chapter 11,
+“Modules�), and to describe how you can define a replacement B<method> in a
+B<derived class> to hide a B<base class>’s method of the same name (see
+Camel chapter 12, “Objects�).
+
+=item owner
+
+The one X<ownership, file>X<files, ownership of>user (apart from the
+superuser) who has absolute control over a B<file>. A file may also have a
+B<group> of users who may exercise joint ownership if the real owner
+permits it. See B<permission bits>.
+
+=back
+
+=head2 P
+
+=over 4
+
+=item package
+
+A B<namespace> for X<packages, defined>global B<variables>, B<subroutines>,
+and the like, such that they can be kept separate from like-named
+B<symbols> in other namespaces. In a sense, only the package is global,
+since the symbols in the package’s symbol table are only accessible from
+code B<compiled> outside the package by naming the package. But in another
+sense, all package symbols are also globals—they’re just well-organized
+globals.
+
+=item pad
+
+Short X<pads (scratchpads)>for B<scratchpad>.
+
+=item parameter
+
+SeeX<parameters> B<argument>.
+
+=item parent class
+
+SeeX<parent classes>X<classes, parent> B<base class>.
+
+=item parse tree
+
+SeeX<parse tree> B<syntax tree>.
+
+=item parsing
+
+The X<parsing, about>subtle but sometimes brutal art of attempting to turn
+your possibly malformed program into a valid B<syntax tree>.
+
+=item patch
+
+To X<patches>fix by applying one, as it were. In the realm of hackerdom, a
+listing of the differences between two versions of a program as might be
+applied by the B<patch>(1) program when you want to fix a bug or upgrade
+your old version.
+
+=item PATH
+
+The X<PATH environment variable>X<variables, environment>list of
+B<directories> the system searches to find a program you want to
+B<execute>.  The list is stored as one of your B<environment variables>,
+accessible in Perl as C<$ENV{PATH}>.
+
+=item pathname
+
+A X<pathname>fully qualified filename such as I</usr/bin/perl>. Sometimes
+confused with C<PATH>.
+
+=item pattern
+
+A X<patterns, defined>template used in B<pattern matching>.
+
+=item pattern matching
+
+Taking a X<pattern matching, about>pattern, usually a B<regular
+expression>, and trying the pattern various ways on a string to see whether
+there’s any way to make it fit. Often used to pick interesting tidbits out
+of a file.
+
+=item PAUSE
+
+The X<Perl Authors Upload SErver (PAUSE)>X<PAUSE (Perl Authors Upload
+SErver)>Perl Authors Upload SErver (L<http://pause.perl.org>), the gateway
+for B<modules> on their way to B<CPAN>.
+
+=item Perl mongers
+
+A X<Perl mongers>X<mongers, Perl>Perl user group, taking the form of its
+name from the New York Perl mongers, the first Perl user group. Find one
+near you at L<http://www.pm.org>.
+
+=item permission bits
+
+Bits X<permission bits>X<bits, permission>that the B<owner> of a file sets
+or unsets to allow or disallow access to other people. These flag bits are
+part of the B<mode> word returned by the C<stat> built-in when you ask
+about a file. On Unix systems, you can check the I<ls>(1) manpage for more
+information.
+
+=item Pern
+
+What you get X<Pern (term)>when you do C<Perl++> twice. Doing it only once
+will curl your hair. You have to increment it eight times to shampoo your
+hair. Lather, rinse, iterate.
+
+=item pipe
+
+A X<pipes, defined>direct B<connection> that carries the output of one
+B<process> to the input of another without an intermediate temporary file.
+Once the pipe is set up, the two processes in question can read and write
+as if they were talking to a normal file, with some caveats.
+
+=item pipeline
+
+A X<pipeline>series of B<processes> all in a row, linked by B<pipes>, where
+each passes its output stream to the next.
+
+=item platform
+
+The X<platforms, defined>entire hardware and software context in which a
+program runs. A program written in a platform-dependent language might
+break if you change any of the following: machine, operating system,
+libraries, compiler, or system configuration. The I<perl> interpreter has
+to be B<compiled> differently for each platform because it is implemented
+in C, but programs written in the Perl language are largely platform
+independent.
+
+=item pod
+
+The X<pod (plain old documentation), about>X<plain old documentation>markup
+used to embed documentation into your Perl code. Pod stands for “Plain old
+documentation�. See Camel chapter 23, “Plain Old Documentation�.
+
+=item pod command
+
+A X<pod commands>X<commands, pod>sequence, such as C<=head1>, that denotes
+the start of a B<pod> section.
+
+=item pointer
+
+A B<variable> X<pointers>in a language like C that contains the exact
+memory location of some other item. Perl handles pointers internally so you
+don’t have to worry about them. Instead, you just use symbolic pointers in
+the form of B<keys> and B<variable> names, or B<hard references>, which
+aren’t pointers (but act like pointers and do in fact contain pointers).
+
+=item polymorphism
+
+The notion X<polymorphism>that you can tell an B<object> to do something
+generic, and the object will interpret the command in different ways
+depending on its type. [E<lt> Greek πολυ- + μο�ϕή, many forms.]
+
+=item port
+
+The X<ports (term)>part of the address of a TCP or UDP socket that directs
+packets to the correct process after finding the right machine, something
+like the phone extension you give when you reach the company operator. Also
+the result of converting code to run on a different platform than
+originally intended, or the verb denoting this conversion.
+
+=item portable
+
+Once X<portability, about>upon a time, C code compilable under both BSD and
+SysV. In general, code that can be easily converted to run on another
+B<platform>, where “easily� can be defined however you like, and usually
+is.  Anything may be considered portable if you try hard enough, such as a
+mobile home or London Bridge.
+
+=item porter
+
+Someone X<porters>who “carries� software from one B<platform> to another.
+Porting programs written in platform-dependent languages such as C can be
+difficult work, but porting programs like Perl is very much worth the
+agony.
+
+=item possessive
+
+Said of X<possessive (term)>quantifiers and groups in patterns that refuse
+to give up anything once they’ve gotten their mitts on it. Catchier and
+easier to say than the even more formal I<nonbacktrackable>.
+
+=item POSIX
+
+The X<Portable Operating System Interface (POSIX), about>X<POSIX (Portable
+Operating System Interface), about>Portable Operating System Interface
+specification.
+
+=item postfix
+
+An B<operator> X<postfix operator>that follows its B<operand>, as in
+C<$x++>.
+
+=item pp
+
+An X<pp (push–pop) code>X<push–pop (pp) code>internal shorthand for a
+“push- pop� code; that is, C code implementing Perl’s stack machine.
+
+=item pragma
+
+A X<pragmas, about>X<modules>standard module whose practical hints and
+suggestions are received (and possibly ignored) at compile time. Pragmas
+are named in all lowercase.
+
+=item precedence
+
+The X<precedence rules, about>X<operators, precedence rules>rules of
+conduct that, in the absence of other guidance, determine what should
+happen first.  For example, in the absence of parentheses, you always do
+multiplication before addition.
+
+=item prefix
+
+An B<operator> X<prefix operators>that precedes its B<operand>, as in
+C<++$x>.
+
+=item preprocessing
+
+What X<preprocessing>some helper B<process> did to transform the incoming
+data into a form more suitable for the current process. Often done with an
+incoming B<pipe>. See also B<C preprocessor>.
+
+=item primary maintainer
+
+The X<primary maintainer>author that PAUSE allows to assign B<co-maintainer>
+permissions to a B<namespace>. A primary maintainer can give up this
+distinction by assigning it to another PAUSE author. See Camel chapter 19,
+“CPAN�.
+
+=item procedure
+
+AX<procedures, defined> B<subroutine>.
+
+=item process
+
+An X<processes, defined>instance of a running program. Under multitasking
+systems like Unix, two or more separate processes could be running the same
+program independently at the same time—in fact, the C<fork> function is
+designed to bring about this happy state of affairs. Under other operating
+systems, processes are sometimes called “threads�, “tasks�, or “jobs�,
+often with slight nuances in meaning.
+
+=item program
+
+See B<script>.
+
+=item program generator
+
+A system X<program generators>that algorithmically writes code for you in a
+high-level language. See also B<code generator>.
+
+=item progressive matching
+
+B<Pattern matching> X<progressive matching>X<pattern matching, progressive
+matching> matching>that picks up where it left off before.
+
+=item property
+
+See X<property>either B<instance variable> or B<character property>.
+
+=item protocol
+
+In X<protocols (term)>networking, an agreed-upon way of sending messages
+back and forth so that neither correspondent will get too confused.
+
+=item prototype
+
+An X<prototypes, about>optional part of a B<subroutine> declaration telling
+the Perl compiler how many and what flavor of arguments may be passed as
+B<actual arguments>, so you can write subroutine calls that parse much like
+built-in functions. (Or don’t parse, as the case may be.)
+
+=item pseudofunction
+
+A X<pseudofunctions>X<constructs, pseudofunctions>X<functions,
+pseudofunctions>construct that sometimes looks like a function but really
+isn’t. Usually reserved for B<lvalue> modifiers like C<my>, for B<context>
+modifiers like C<scalar>, and for the pick-your-own-quotes constructs,
+C<q//>, C<qq//>, C<qx//>, C<qw//>, C<qr//>, C<m//>, C<s///>, C<y///>, and
+C<tr///>.
+
+=item pseudohash
+
+Formerly, a reference X<pseudohashes>X<hashes, pseudohashes>to an array
+whose initial element happens to hold a reference to a hash. You used to be
+able to treat a pseudohash reference as either an array reference or a hash
+reference. Pseduohashes are no longer supported.
+
+=item pseudoliteral
+
+An B<operator> X<pseudoliterals>XC<that looks something like a B<literal>,
+such as the output-grabbing operator, <literal
+moreinfo="none">`>I<C<command>>C<`>.
+
+=item public domain
+
+Something X<public domain>not owned by anybody. Perl is copyrighted and is
+thus I<not> in the public domain—it’s just B<freely available> and B<freely
+redistributable>.
+
+=item pumpkin
+
+A X<pumpkin (term)>notional “baton� handed around the Perl community
+indicating who is the lead integrator in some arena of development.
+
+=item pumpking
+
+A B<X<pumpking>pumpkin> holder, the person in charge of pumping the pump,
+or at least priming it. Must be willing to play the part of the Great
+Pumpkin now and then.
+
+=item PV
+
+A “X<PV (pointer value)>X<pointer value (PV)>pointer value�, which is Perl
+Internals Talk for a C<char*>.
+
+=back
+
+=head2 Q
+
+=over 4
+
+=item qualified
+
+Possessing a X<qualified (term)>complete name. The symbol C<$Ent::moot> is
+qualified; C<$moot> is unqualified. A fully qualified filename is specified
+from the top-level directory.
+
+=item quantifier
+
+A X<quantifiers, about>component of a B<regular expression> specifying how
+many times the foregoing B<atom> may occur.
+
+=back
+
+=head2 R
+
+=over 4
+
+=item race condition
+
+A X<race conditions, defined>race condition exists when the result of
+several interrelated events depends on the ordering of those events, but
+that order cannot be guaranteed due to nondeterministic timing effects. If
+two or more programs, or parts of the same program, try to go through the
+same series of events, one might interrupt the work of the other. This is a
+good way to find an B<exploit>.
+
+=item readable
+
+With X<readable (term)>respect to files, one that has the proper permission
+bit set to let you access the file. With respect to computer programs, one
+that’s written well enough that someone has a chance of figuring out what
+it’s trying to do.
+
+=item reaping
+
+The last X<reaping zombie processes>rites performed by a parent B<process>
+on behalf of a deceased child process so that it doesn’t remain a
+B<zombie>.  See the C<wait> and C<waitpid> function calls.
+
+=item record
+
+A set of X<records, defined>related data values in a B<file> or B<stream>,
+often associated with a unique B<key> field. In Unix, often commensurate
+with a B<line>, or a blank-line–terminated set of lines (a “paragraph�).
+Each line of the I</etc/passwd> file is a record, keyed on login name,
+containing information about that user.
+
+=item recursion
+
+The art of X<recursion, defined>defining something (at least partly) in
+terms of itself, which is a naughty no-no in dictionaries but often works
+out okay in computer programs if you’re careful not to recurse forever
+(which is like an infinite loop with more spectacular failure modes).
+
+=item reference
+
+Where you X<references, about>look to find a pointer to information
+somewhere else. (See B<indirection>.) References come in two flavors:
+B<symbolic references> and B<hard references>.
+
+=item referent
+
+Whatever a X<referents, defined>reference refers to, which may or may not
+have a name. Common types of referents include scalars, arrays, hashes, and
+subroutines.
+
+=item regex
+
+See B<regular expression>.
+
+=item regular expression
+
+A single X<regular expressions, defined>entity with various
+interpretations, like an elephant. To a computer scientist, it’s a grammar
+for a little language in which some strings are legal and others aren’t. To
+normal people, it’s a pattern you can use to find what you’re looking for
+when it varies from case to case. Perl’s regular expressions are far from
+regular in the theoretical sense, but in regular use they work quite well.
+Here’s a regular expression: C</Oh s.*t./>. This will match strings like
+“C<Oh say can you see by the dawn's early light>� and “C<Oh sit!>�. See
+Camel chapter 5, “Pattern Matching�.
+
+=item regular expression modifier
+
+An option on a X<regular expression modifiers>X<modifiers, regular
+expression>pattern or substitution, such as C</i> to render the pattern
+case- insensitive.
+
+=item regular file
+
+A B<file> that’s X<regular files>X<files, regular>not a B<directory>, a
+B<device>, a named B<pipe> or B<socket>, or a B<symbolic link>. Perl uses
+the C<–f> file test operator to identify regular files. Sometimes called a
+“plain� file.
+
+=item relational operator
+
+An B<operator> that X<relational operators>says whether a particular
+ordering relationship is B<true> about a pair of B<operands>. Perl has both
+numeric and string relational operators. See B<collating sequence>.
+
+=item reserved words
+
+A word with a X<reserved words>X<keywords (term)>specific, built-in meaning
+to a B<compiler>, such as C<if> or C<delete>. In many languages (not Perl),
+it’s illegal to use reserved words to name anything else. (Which is why
+they’re reserved, after all.) In Perl, you just can’t use them to name
+B<labels> or B<filehandles>. Also called “keywords�.
+
+=item return value
+
+The B<value> produced X<return values>X<values, return>by a B<subroutine>
+or B<expression> when evaluated. In Perl, a return value may be either a
+B<list> or a B<scalar>.
+
+=item RFC
+
+Request For Comment, X<Request For Comment (RFC)>X<RFC (Request For
+Comment)>which despite the timid connotations is the name of a series of
+important standards documents.
+
+=item right shift
+
+A B<bit shift> X<right shift (E<gt>E<gt>) bit operator>X<bit–shift
+operators, right shift>X<E<gt>E<gt> (right shift) bit operator>that divides
+a number by some power of 2.
+
+=item role
+
+A name X<roles (term)>for a concrete set of behaviors. A role is a way to
+add behavior to a class without inheritance.
+
+=item root
+
+The X<root (term)>superuser (C<UID> == 0). Also the top-level directory of
+the filesystem.
+
+=item RTFM
+
+What X<RTFM acronym>you are told when someone thinks you should Read The
+Fine Manual.
+
+=item run phase
+
+Any X<run phase, defined>time after Perl starts running your main program.
+See also B<compile phase>. Run phase is mostly spent in B<runtime> but may
+also be spent in B<compile time> when C<require>, C<do> I<C<FILE>>, or
+C<eval> I<C<STRING>> operators are executed, or when a substitution uses
+the C</ee> modifier.
+
+=item runtime
+
+The time X<runtime (term), defined>when Perl is actually doing what your
+code says to do, as opposed to the earlier period of time when it was
+trying to figure out whether what you said made any sense whatsoever, which
+is B<compile time>.
+
+=item runtime pattern
+
+A X<runtime patterns>X<patterns, runtime>pattern that contains one or more
+variables to be interpolated before parsing the pattern as a B<regular
+expression>, and that therefore cannot be analyzed at compile time, but
+must be reanalyzed each time the pattern match operator is evaluated.
+Runtime patterns are useful but expensive.
+
+=item RV
+
+A X<Reference Value (RV)>X<RV (Reference Value)>recreational vehicle, not
+to be confused with vehicular recreation. RV also means an internal
+Reference Value of the type a B<scalar> can hold. See also B<IV> and B<NV>
+if you’re not confused yet.
+
+=item rvalue
+
+A B<value> that X<rvalue (term)>X<values, rvalue>you might find on the
+right side of an B<assignment>. See also B<lvalue>.
+
+=back
+
+=head2 S
+
+=over 4
+
+=item sandbox
+
+A X<sandbox, defined>walled off area that’s not supposed to affect beyond
+its walls. You let kids play in the sandbox instead of running in the road.
+See Camel chapter 20, “Security�.
+
+=item scalar
+
+A X<scalars, defined>simple, singular value; a number, B<string>, or
+B<reference>.
+
+=item scalar context
+
+The X<scalar context, about>X<context, scalar>situation in which an
+B<expression> is expected by its surroundings (the code calling it) to
+return a single B<value> rather than a B<list> of values. See also
+B<context> and B<list context>. A scalar context sometimes imposes
+additional constraints on the return value—see B<string context> and
+B<numeric context>. Sometimes we talk about a B<Boolean context> inside
+conditionals, but this imposes no additional constraints, since any scalar
+value, whether numeric or B<string>, is already true or false.
+
+=item scalar literal
+
+A X<scalar literals>X<literals, scalar>number or quoted B<string>—an actual
+B<value> in the text of your program, as opposed to a B<variable>.
+
+=item scalar value
+
+A X<scalar values, about>X<values, scalar>X<SV>value that happens to be a
+B<scalar> as opposed to a B<list>.
+
+=item scalar variable
+
+A B<variable> X<scalar variables, defined>X<variables, scalar>prefixed with
+C<$> that holds a single value.
+
+=item scope
+
+From X<scopes, defined>how far away you can see a variable, looking through
+one. Perl has two visibility mechanisms. It does B<dynamic scoping> of
+C<local> B<variables>, meaning that the rest of the B<block>, and any
+B<subroutines> that are called by the rest of the block, can see the
+variables that are local to the block. Perl does B<lexical scoping> of
+C<my> variables, meaning that the rest of the block can see the variable,
+but other subroutines called by the block I<cannot> see the variable.
+
+=item scratchpad
+
+The X<scratchpads>area in which a particular invocation of a particular
+file or subroutine keeps some of its temporary values, including any
+lexically scoped variables.
+
+=item script
+
+A X<scripts (term)>X<programs, defined>text B<file> that is a program
+intended to be B<executed> directly rather than B<compiled> to another form
+of file before B<execution>.
+
+Also, in the context of B<Unicode>, a writing system for a particular
+language or group of languages, such as Greek, Bengali, or Tengwar.
+
+=item script kiddie
+
+A B<cracker> X<script kiddie>who is not a B<hacker> but knows just enough
+to run canned scripts. A B<cargo-cult> programmer.
+
+=item sed
+
+A venerable Stream EDitor X<sed (Stream EDitor)>X<Stream EDitor (sed)>from
+which Perl derives some of its ideas.
+
+=item semaphore
+
+A fancy X<semaphore>kind of interlock that prevents multiple B<threads> or
+B<processes> from using up the same resources simultaneously.
+
+=item separator
+
+A B<character> X<separators>X<characters, separators>X<strings,
+separators>or B<string> that keeps two surrounding strings from being
+confused with each other. The C<split> function X<split function,
+separators and>works on separators. Not to be confused with B<delimiters>
+or B<terminators>. The “or� in the previous sentence separated the two
+alternatives.
+
+=item serialization
+
+Putting a X<serialization>X<marshalling (term)>fancy B<data structure> into
+linear order so that it can be stored as a B<string> in a disk file or
+database, or sent through a B<pipe>. Also called marshalling.
+
+=item server
+
+In networking, X<servers, defined>X<processes, server>a B<process> that
+either advertises a B<service> or just hangs around at a known location and
+waits for B<clients> who need service to get in touch with it.
+
+=item service
+
+Something X<services (term)>you do for someone else to make them happy,
+like giving them the time of day (or of their life). On some machines,
+well-known services are listed by theX<getservent function> C<getservent>
+function.
+
+=item setgid
+
+Same as B<setuid>, X<setgid program, about>only having to do with giving
+away B<group> privileges.
+
+=item setuid
+
+Said of a program X<setuid program, about>that runs with the privileges of
+its B<owner> rather than (as is usually the case) the privileges of whoever
+is running it. Also describes the bit in the mode word (B<permission bits>)
+that controls the feature. This bit must be explicitly set by the owner to
+enable this feature, and the program must be carefully written not to give
+away more privileges than it ought to.
+
+=item shared memory
+
+A piece of B<memory> X<shared memory>X<memory, shared>accessible by two
+different B<processes> who otherwise would not see each other’s memory.
+
+=item shebang
+
+Irish for the X<shebang (term)>whole McGillicuddy. In Perl culture, a
+portmanteau of “sharp� and “bang�, meaning the C<#!> sequence that tells
+the system where to find the interpreter.
+
+=item shell
+
+A B<command>-X<shell program, defined>line B<interpreter>. The program that
+interactively gives you a prompt, accepts one or more B<lines> of input,
+and executes the programs you mentioned, feeding each of them their proper
+B<arguments> and input data. Shells can also execute scripts containing
+such commands. Under Unix, typical shells include the Bourne shell
+(I</bin/sh>), the C shell (I</bin/csh>), and the Korn shell (I</bin/ksh>).
+Perl is not strictly a shell because it’s not interactive (although Perl
+programs can be interactive).
+
+=item side effects
+
+Something extra X<side effects>that happens when you evaluate an
+B<expression>. Nowadays it can refer to almost anything. For example,
+evaluating a simple assignment statement typically has the “side effect� of
+assigning a value to a variable. (And you thought assigning the value was
+your primary intent in the first place!) Likewise, assigning a value to the
+special variable C<$|> (C<$AUTOFLUSH>) has the side effect of forcing a
+flush after every C<write> or C<print> on the currently selected
+filehandle.
+
+=item sigil
+
+A glyph X<sigils, defined>used in magic. Or, for Perl, the symbol in front
+of a variable name, such as C<$>, C<@>, and C<%>.
+
+=item signal
+
+A bolt X<signals and signal handling, about>out of the blue; that is, an
+event triggered by the B<operating system>, probably when you’re least
+expecting it.
+
+=item signal handler
+
+A B<subroutine> that, X<handlers, signal>instead of being content to be
+called in the normal fashion, sits around waiting for a bolt out of the
+blue before it will deign to B<execute>. Under Perl, bolts out of the blue
+are called signals, and you send them with the C<kill> built-in. See the
+C<%SIG> hash in Camel chapter 25, “Special Names� and the section “Signals�
+in Camel chapter 15, “Interprocess Communication�.
+
+=item single inheritance
+
+The features X<single inheritance>X<inheritance, single>you got from your
+mother, if she told you that you don’t have a father. (See also
+B<inheritance> and B<multiple inheritance>.) In computer languages, the
+idea that B<classes> reproduce asexually so that a given class can only
+have one direct ancestor or B<base class>. Perl supplies no such
+restriction, though you may certainly program Perl that way if you like.
+
+=item slice
+
+A selection X<slices of elements>X<elements, slices of>of any number of
+B<elements> from a B<list>, B<array>, or B<hash>.
+
+=item slurp
+
+To read an X<slurp (term)>entire B<file> into a B<string> in one operation.
+
+=item socket
+
+An endpoint for X<sockets, defined>network communication among multiple
+B<processes> that works much like a telephone or a post office box. The
+most important thing about a socket is its B<network address> (like a phone
+number). Different kinds of sockets have different kinds of addresses—some
+look like filenames, and some don’t.
+
+=item soft reference
+
+SeeX<soft references>X<references, soft> B<symbolic reference>.
+
+=item source filter
+
+A special X<source filters>X<filters, source>kind of B<module> that does
+B<preprocessing> on your script just before it gets to the B<tokener>.
+
+=item stack
+
+A X<stacks, defined>device you can put things on the top of, and later take
+them back off in the opposite order in which you put them on. See B<LIFO>.
+
+=item standard
+
+Included X<standard (term)>in the official Perl distribution, as in a
+standard module, a standard tool, or a standard Perl B<manpage>.
+
+=item standard error
+
+The default output B<stream> for nasty remarks that don’t belong in
+B<standard output>. Represented within a Perl program by theX<STDERR
+filehandle, about> output>  B<filehandle> C<STDERR>. You can use this
+stream explicitly, but the C<die> and C<warn> built-ins write to your
+standard error stream automatically (unless trapped or otherwise
+intercepted).
+
+=item standard input
+
+The X<STDIN filehandle, about>default input B<stream> for your program,
+which if possible shouldn’t care where its data is coming from. Represented
+within a Perl program by the B<filehandle> C<STDIN>.
+
+=item standard I/O
+
+A X<standard I/O>X<I/O (Input/Output), standard>X<Input/Output (I/O),
+standard>X<STDIO filehandle>standard C library for doing B<buffered> input
+and output to the B<operating system>. (The “standard� of standard I/O is
+at most marginally related to the “standard� of standard input and output.)
+In general, Perl relies on whatever implementation of standard I/O a given
+operating system supplies, so the buffering characteristics of a Perl
+program on one machine may not exactly match those on another machine.
+Normally this only influences efficiency, not semantics. If your standard
+I/O package is doing block buffering and you want it to B<flush> the buffer
+more often, just set the C<$|> variable to a true value.
+
+=item Standard Library
+
+Everything X<Standard Perl Library, about>that comes with the official
+I<perl> distribution. Some vendor versions of I<perl> change their
+distributions, leaving out some parts or including extras. See also
+B<dual-lived>.
+
+=item standard output
+
+The X<STDOUT filehandle, about>default output B<stream> for your program,
+which if possible shouldn’t care where its data is going. Represented
+within a Perl program by the B<filehandle> C<STDOUT>.
+
+=item statement
+
+A B<command> to X<statements, about>the computer about what to do next,
+like a step in a recipe: “Add marmalade to batter and mix until mixed.� A
+statement is distinguished from a B<declaration>, which doesn’t tell the
+computer to do anything, but just to learn something.
+
+=item statement modifier
+
+A B<conditional> X<statement modifiers, about>X<modifiers, statement>or
+B<loop> that you put after the B<statement> instead of before, if you know
+what we mean.
+
+=item static
+
+Varying X<static (term)>slowly compared to something else. (Unfortunately,
+everything is relatively stable compared to something else, except for
+certain elementary particles, and we’re not so sure about them.) In
+computers, where things are supposed to vary rapidly, “static� has a
+derogatory connotation, indicating a slightly dysfunctional B<variable>,
+B<subroutine>, or B<method>. In Perl culture, the word is politely avoided.
+
+If you’re a C or C++ programmer, you might be looking for Perl’s C<state>
+keyword.
+
+=item static method
+
+No such X<static methods>X<methods, static>thing. See B<class method>.
+
+=item static scoping
+
+No such thing. See B<lexical scoping>.
+
+=item static variable
+
+No such X<static variables>X<variables, static>thing. Just use a B<lexical
+variable> in a scope larger than your B<subroutine>, or declare it with
+C<state> instead of with C<my>.
+
+=item stat structure
+
+A special X<stat structure>X<data structures, stat structure>internal spot
+in which Perl keeps the information about the last B<file> on which you
+requested information.
+
+=item status
+
+The B<value> X<status value>X<values, status>X<exit status>returned to the
+parent B<process> when one of its child processes dies. This value is
+placed in the special variable C<$?>. Its upper eight B<bits> are the exit
+status of the defunct process, and its lower eight bits identify the signal
+(if any) that the process died from. On Unix systems, this status value is
+the same as the status word returned by I<wait>(2). See C<system> in Camel
+chapter 27, “Functions�.
+
+=item STDERR
+
+See B<standard error>.
+
+=item STDIN
+
+See B<standard input>.
+
+=item STDIO
+
+See B<standard I/O>.
+
+=item STDOUT
+
+See B<standard output>.
+
+=item stream
+
+A flow X<streaming data>X<processes, streaming data>of data into or out of
+a process as a steady sequence of bytes or characters, without the
+appearance of being broken up into packets. This is a kind of
+B<interface>—the underlying B<implementation> may well break your data up
+into separate packets for delivery, but this is hidden from you.
+
+=item string
+
+A sequence X<strings, defined>of characters such as “He said !@#*&%@#*?!�.
+A string does not have to be entirely printable.
+
+=item string context
+
+The situation X<string context>X<context, string>in which an expression is
+expected by its surroundings (the code calling it) to return a B<string>.
+See also B<context> and B<numeric context>.
+
+=item stringification
+
+The process X<stringification>of producing a B<string> representation of an
+abstract object.
+
+=item struct
+
+C keyword X<struct keyword>introducing a structure definition or name.
+
+=item structure
+
+SeeX<structures> B<data structure>.
+
+=item subclass
+
+See B<derived class>.
+
+=item subpattern
+
+A X<subpatterns, defined>component of a B<regular expression> pattern.
+
+=item subroutine
+
+A X<subroutines, defined>named or otherwise accessible piece of program
+that can be invoked from elsewhere in the program in order to accomplish
+some subgoal of the program. A subroutine is often parameterized to
+accomplish different but related things depending on its input
+B<arguments>. If the subroutine returns a meaningful B<value>, it is also
+called a B<function>.
+
+=item subscript
+
+A B<value> X<subscripts>that indicates the position of a particular
+B<array> B<element> in an array.
+
+=item substitution
+
+Changing X<substitution (s///) operator, about>X<strings, substitution
+in>X<s/// (substitution) operator, about>parts of a string via the C<s///>
+operator. (We avoid use of this term to mean B<variable interpolation>.)
+
+=item substring
+
+A portion of a B<string>, X<substrings (term)>starting at a certain
+B<character> position (B<offset>) and proceeding for a certain number of
+characters.
+
+=item superclass
+
+See B<base class>.
+
+=item superuser
+
+The X<superusers>person whom the B<operating system> will let do almost
+anything. Typically your system administrator or someone pretending to be
+your system administrator. On Unix systems, the B<root> user. On Windows
+systems, usually the Administrator user.
+
+=item SV
+
+Short X<scalar values, about>X<values, scalar>for “scalar value�. But
+within the Perl interpreter, every B<referent> is treated as a member of a
+class derived from SV, in an object-oriented sort of way. Every B<value>
+inside Perl is passed around as a C language C<SV*> pointer. The SV
+B<struct> knows its own “referent type�, and the code is smart enough (we
+hope) not to try to call a B<hash> function on a B<subroutine>.
+
+=item switch
+
+An X<switches, about>X<switches>option you give on a command line to
+influence the way your program works, usually introduced with a minus sign.
+The word is also used as a nickname for a B<switch statement>.
+
+=item switch cluster
+
+The X<switch clusters>X<clusters, switch>combination of multiple command-
+line switches (I<e.g.>, C<–a –b –c>) into one switch (I<e.g.>, C<–abc>).
+Any switch with an additional B<argument> must be the last switch in a
+cluster.
+
+=item switch statement
+
+A X<switch statement>X<statements, switch>program technique that lets you
+evaluate an B<expression> and then, based on the value of the expression,
+do a multiway branch to the appropriate piece of code for that value. Also
+called a “case structure�, named after the similar Pascal construct. Most
+switch statements in Perl are spelled C<given>. See “The C<given>
+statement� in Camel chapter 4, “Statements and Declarations�.
+
+=item symbol
+
+Generally, X<symbols>X<symbols>any B<token> or B<metasymbol>. Often used
+more specifically to mean the sort of name you might find in a B<symbol
+table>.
+
+=item symbolic debugger
+
+A program X<symbolic debugger>X<debugger, about>that lets you step through
+the B<execution> of your program, stopping or printing things out here and
+there to see whether anything has gone wrong, and, if so, what. The
+“symbolic� part just means that you can talk to the debugger using the same
+symbols with which your program is written.
+
+=item symbolic link
+
+An alternate X<symbolic links>X<links, symbolic>filename that points to the
+real B<filename>, which in turn points to the real B<file>. Whenever the
+B<operating system> is trying to parse a B<pathname> containing a symbolic
+link, it merely substitutes the new name and continues parsing.
+
+=item symbolic reference
+
+A variable X<symbolic references>X<references, symbolic>whose value is the
+name of another variable or subroutine. By B<dereferencing> the first
+variable, you can get at the second one. Symbolic references are illegal
+under C<use strict "refs">.
+
+=item symbol table
+
+Where X<symbol tables, about>a B<compiler> remembers symbols. A program
+like Perl must somehow remember all the names of all the B<variables>,
+B<filehandles>, and B<subroutines> you’ve used. It does this by placing the
+names in a symbol table, which is implemented in Perl using a B<hash
+table>. There is a separate symbol table for each B<package> to give each
+package its own B<namespace>.
+
+=item synchronous
+
+Programming X<synchronous (term)>in which the orderly sequence of events
+can be determined; that is, when things happen one after the other, not at
+the same time.
+
+=item syntactic sugar
+
+An X<syntactic sugar>alternative way of writing something more easily; a
+shortcut.
+
+=item syntax
+
+From X<syntax, about>Greek σ�νταξις, “with-arrangement�. How things
+(particularly symbols) are put together with each other.
+
+=item syntax tree
+
+An internal X<syntax tree>representation of your program wherein
+lower-level B<constructs> dangle off the higher-level constructs enclosing
+them.
+
+=item syscall
+
+A B<function> X<syscall function, about>call directly to the B<operating
+system>. Many of the important subroutines and functions you use aren’t
+direct system calls, but are built up in one or more layers above the
+system call level. In general, Perl programmers don’t need to worry about
+the distinction. However, if you do happen to know which Perl functions are
+really syscalls, you can predict which of these will set the C<$!>
+(C<$ERRNO>) variable on failure. Unfortunately, beginning programmers often
+confusingly employ the term “system call� to mean what happens when you
+call the Perl C<system> function, which actually involves many syscalls. To
+avoid any confusion, we nearly always say “syscall� for something you could
+call indirectly via Perl’s C<syscall> function, and never for something you
+would call with Perl’s C<system> function.
+
+=back
+
+=head2 T
+
+=over 4
+
+=item taint checks
+
+The X<taint checks, about>special bookkeeping Perl does to track the flow
+of external data through your program and disallow their use in system
+commands.
+
+=item tainted
+
+Said of X<tainted data, about>data derived from the grubby hands of a user,
+and thus unsafe for a secure program to rely on. Perl does taint checks if
+you run a B<setuid> (or B<setgid>) program, or if you use the C<–T> switch.
+
+=item taint mode
+
+Running X<taint mode>under the C<–T> switch, marking all external data as
+suspect and refusing to use it with system commands. See Camel chapter 20,
+“Security�.
+
+=item TCP
+
+Short for X<TCP (Transmission Control Protocol)>X<Transmission Control
+Protocol (TCP)>Transmission Control Protocol. A protocol wrapped around the
+Internet Protocol to make an unreliable packet transmission mechanism
+appear to the application program to be a reliable B<stream> of bytes.
+(Usually.)
+
+=item term
+
+Short for X<terms, defined>a “terminal�—that is, a leaf node of a B<syntax
+tree>. A thing that functions grammatically as an B<operand> for the
+operators in an expression.
+
+=item terminator
+
+A B<character> X<terminators (term)>X<characters, terminators>X<strings,
+terminators in>or B<string> that marks the end of another string. The C<$/>
+variable contains the string that terminates a C<readline> operation, which
+C<chomp> deletes from the end. Not to be confused with B<delimiters> or
+B<separators>. The period at the end of this sentence is a terminator.
+
+=item ternary
+
+An B<operator> X<ternary operators>taking three B<operands>. Sometimes
+pronounced B<trinary>.
+
+=item text
+
+A B<string> or B<file> X<text, defined>X<strings, text>X<files,
+text>X<text>containing primarily printable characters.
+
+=item thread
+
+Like a X<threads (term)>forked process, but without B<fork>’s inherent
+memory protection. A thread is lighter weight than a full process, in that
+a process could have multiple threads running around in it, all fighting
+over the same process’s memory space unless steps are taken to protect
+threads from one another.
+
+=item tie
+
+The bond X<tied variables, about>between a magical variable and its
+implementation class. See the C<tie> function in Camel chapter 27,
+“Functions� and Camel chapter 14, “Tied Variables�.
+
+=item titlecase
+
+The case X<titlecase characters>X<characters, titlecase>used for capitals
+that are followed by lowercase characters instead of by more capitals.
+Sometimes called sentence case or headline case. English doesn’t use
+Unicode titlecase, but casing rules for English titles are more complicated
+than simply capitalizing each word’s first character.
+
+=item TMTOWTDI
+
+There’s More Than One Way To Do It, the Perl MottoX<TMTOWTDI acronym>. The
+notion that there can be more than one valid path to solving a programming
+problem in context. (This doesn’t mean that more ways are always better or
+that all possible paths are equally desirable—just that there need not be
+One True Way.)
+
+=item token
+
+A morpheme X<tokens, defined>in a programming language, the smallest unit
+of text with semantic significance.
+
+=item tokener
+
+A module that X<tokeners, defined>breaks a program text into a sequence of
+B<tokens> for later analysis by a parser.
+
+=item tokenizing
+
+Splitting up a X<tokenizing>program text into B<tokens>. Also known as
+“lexing�, in which case you get “lexemes� instead of tokens.
+
+=item toolbox approach
+
+The notion that, X<toolbox approach>with a complete set of simple tools
+that work well together, you can build almost anything you want. Which is
+fine if you’re assembling a tricycle, but if you’re building a
+defranishizing comboflux regurgalator, you really want your own machine
+shop in which to build special tools. Perl is sort of a machine shop.
+
+=item topic
+
+The thing you’re X<topics (term)>working on. Structures like
+C<while(E<lt>E<gt>)>, C<for>, C<foreach>, and C<given> set the topic for
+you by assigning to C<$_>, the default (I<topic>) variable.
+
+=item transliterate
+
+To turn one X<tr/// (transliteration) operator, about>X<strings,
+transliteration of>X<transliteration (tr///) operator, about>string
+representation into another by mapping each character of the source string
+to its corresponding character in the result string. Not to be confused
+with translation: for example, Greek I<πολ�χ�ωμος> transliterates into
+I<polychromos> but translates into I<many-colored>. See the C<tr///>
+operator in Camel chapter 5, “Pattern Matching�.
+
+=item trigger
+
+An event X<triggers (term)>that causes a B<handler> to be run.
+
+=item trinary
+
+Not a X<trinary operators>stellar system with three stars, but an
+B<operator> taking three B<operands>. Sometimes pronounced B<ternary>.
+
+=item troff
+
+A venerable X<troff language>typesetting language from which Perl derives
+the name of its C<$%> variable and which is secretly used in the production
+of Camel books.
+
+=item true
+
+Any X<true values>X<values, true>scalar value that doesn’t evaluate to 0 or
+C<"">.
+
+=item truncating
+
+Emptying a X<truncate function>X<files, truncating>file of existing
+contents, either automatically when opening a file for writing or
+explicitly via the C<truncate> function.
+
+=item type
+
+SeeX<type> B<data type> and B<class>.
+
+=item type casting
+
+Converting X<type casting>data from one type to another. C permits this.
+Perl does not need it. Nor want it.
+
+=item typedef
+
+A type X<typedef>definition in the C and C++ languages.
+
+=item typed lexical
+
+A B<lexical variable> X<typed lexicals>X<lexical variables, typed
+lexicals>X<variables, variable> lexical>that is declared with a B<class>
+type: C<my Pony $bill>.
+
+=item typeglob
+
+Use of X<typeglobs, defined>a single identifier, prefixed with C<*>. For
+example, C<*name> stands for any or all of C<$name>, C<@name>, C<%name>,
+C<&name>, or just C<name>. How you use it determines whether it is
+interpreted as all or only one of them. See “Typeglobs and Filehandles� in
+Camel chapter 2, “Bits and Pieces�.
+
+=item typemap
+
+A description of X<typemap>how C types may be transformed to and from Perl
+types within an B<extension> module written in B<XS>.
+
+=back
+
+=head2 U
+
+=over 4
+
+=item UDP
+
+User Datagram Protocol, the X<User Datagram Protocol (UDP)>X<UDP (User
+Datagram Protocol)>X<datagrams, UDP support>typical way to send
+B<datagrams> over the Internet.
+
+=item UID
+
+A user ID. X<UID (user ID)>X<user ID (UID)>Often used in the context of
+B<file> or B<process> ownership.
+
+=item umask
+
+A X<umask function>mask of those B<permission bits> that should be forced
+off when creating files or directories, in order to establish a policy of
+whom you’ll ordinarily deny access to. See the C<umask> function.
+
+=item unary operator
+
+An X<unary operators, about>operator with only one B<operand>, like C<!> or
+C<chdir>. Unary operators are usually prefix operators; that is, they
+precede their operand. The C<++> and C<––> operators can be either prefix
+or postfix. (Their position I<does> change their meanings.)
+
+=item Unicode
+
+A character set X<Unicode, about>comprising all the major character sets of
+the world, more or less. See L<http://www.unicode.org>.
+
+=item Unix
+
+A very large X<Unix language>and constantly evolving language with several
+alternative and largely incompatible syntaxes, in which anyone can define
+anything any way they choose, and usually do. Speakers of this language
+think it’s easy to learn because it’s so easily twisted to one’s own ends,
+but dialectical differences make tribal intercommunication nearly
+impossible, and travelers are often reduced to a pidgin-like subset of the
+language. To be universally understood, a Unix shell programmer must spend
+years of study in the art. Many have abandoned this discipline and now
+communicate via an Esperanto-like language called Perl.
+
+In ancient times, Unix was also used to refer to some code that a couple of
+people at Bell Labs wrote to make use of a PDP-7 computer that wasn’t doing
+much of anything else at the time.
+
+=item uppercase
+
+In Unicode, X<uppercase characters>X<characters, uppercase>not just
+characters with the General Category of Uppercase Letter, but any character
+with the Uppercase property, including some Letter Numbers and Symbols. Not
+to be confused with B<titlecase>.
+
+=back
+
+=head2 V
+
+=over 4
+
+=item value
+
+An actual piece X<values, defined>of data, in contrast to all the
+variables, references, keys, indices, operators, and whatnot that you need
+to access the value.
+
+=item variable
+
+A named storage X<variables, defined>X<variables>location that can hold any
+of various kinds of B<value>, as your program sees fit.
+
+=item variable interpolation
+
+TheX<variable interpolation>X<interpolation, variable> B<interpolation> of
+a scalar or array variable into a string.
+
+=item variadic
+
+Said of X<variadic (term)>a B<function> that happily receives an
+indeterminate number of B<actual arguments>.
+
+=item vector
+
+Mathematical X<vectors>jargon for a list of B<scalar values>.
+
+=item virtual
+
+Providing the X<virtual (term)>appearance of something without the reality,
+as in: virtual memory is not real memory. (See also B<memory>.) The
+opposite of “virtual� is “transparent�, which means providing the reality
+of something without the appearance, as in: Perl handles the
+variable-length UTF‑8 character encoding transparently.
+
+=item void context
+
+A form X<void context>X<context, void>of B<scalar context> in which an
+B<expression> is not expected to return any B<value> at all and is
+evaluated for its B<side effects> alone.
+
+=item v-string
+
+A “version� or “vector�X<v–strings>X<strings, v–strings> B<string>
+specified with a C<v> followed by a series of decimal integers in dot
+notation, for instance, C<v1.20.300.4000>. Each number turns into a
+B<character> with the specified ordinal value. (The C<v> is optional when
+there are at least three integers.)
+
+=back
+
+=head2 W
+
+=over 4
+
+=item warning
+
+A message X<warning messages>X<STDERR filehandle, warning messages
+and>printed to the C<STDERR> stream to the effect that something might be
+wrong but isn’t worth blowing up over. See C<warn> in Camel chapter 27,
+“Functions� and the C<warnings> pragma in Camel chapter 28, “Pragmantic
+Modules�.
+
+=item watch expression
+
+An expression which, X<watch expression>X<expressions, watch>when its value
+changes, causes a breakpoint in the Perl debugger.
+
+=item weak reference
+
+A X<weak references>X<references, weak>reference that doesn’t get counted
+normally. When all the normal references to data disappear, the data
+disappears. These are useful for circular references that would never
+disappear otherwise.
+
+=item whitespace
+
+A B<character> X<whitespace characters>X<characters, whitespace>that moves
+your cursor but doesn’t otherwise put anything on your screen. Typically
+refers to any of: space, tab, line feed, carriage return, or form feed. In
+Unicode, matches many other characters that Unicode considers whitespace,
+including the ɴ-ʙʀ .
+
+=item word
+
+In normal “computerese�, the X<words (term)>piece of data of the size most
+efficiently handled by your computer, typically 32 bits or so, give or take a
+few powers of 2. In Perl culture, it more often refers to an alphanumeric
+B<identifier> (including underscores), or to a string of nonwhitespace
+B<characters> bounded by whitespace or string boundaries.
+
+=item working directory
+
+Your X<working directory>X<directories, working>current B<directory>, from
+which relative pathnames are interpreted by the B<operating system>. The
+operating system knows your current directory because you told it with a
+C<chdir>, or because you started out in the place where your parent
+B<process> was when you were born.
+
+=item wrapper
+
+A program X<wrappers (term)>or subroutine that runs some other program or
+subroutine for you, modifying some of its input or output to better suit
+your purposes.
+
+=item WYSIWYG
+
+What X<WYSIWYG acronym>You See Is What You Get. Usually used when something
+that appears on the screen matches how it will eventually look, like Perl’s
+C<format> declarations. Also used to mean the opposite of magic because
+everything works exactly as it appears, as in the three- argument form of
+C<open>.
+
+=back
+
+=head2 X
+
+=over 4
+
+=item XS
+
+An X<XS (eXternal Subroutine)>X<eXternal Subroutine (XS)>extraordinarily
+exported, expeditiously excellent, expressly eXternal Subroutine, executed
+in existing C or C++ or in an exciting extension language called
+(exasperatingly) XS.
+
+=item XSUB
+
+An X<XSUB (term)>external B<subroutine> defined in B<XS>.
+
+=back
+
+=head2 Y
+
+=over 4
+
+=item yacc
+
+Yet X<yacc acronym>Another Compiler Compiler. A parser generator without
+which Perl probably would not have existed. See the file I<perly.y> in the
+Perl source distribution.
+
+=back
+
+=head2 Z
+
+=over 4
+
+=item zero width
+
+A X<zero–width assertions>X<subpatterns, zero–width assertions>X<assertions
+(in regexes), zero–width>subpattern B<assertion> matching the B<null
+string> between B<characters>.
+
+=item zombie
+
+A process X<zombie processes>X<processes, zombie>that has died (exited) but
+whose parent has not yet received proper notification of its demise by
+virtue of having called C<wait> or C<waitpid>. If you C<fork>, you must
+clean up after your child processes when they exit; otherwise, the process
+table will fill up and your system administrator will Not Be Happy with
+you.
+
+=back
+
+=head1 AUTHOR AND COPYRIGHT
+
+Based on the Glossary of I<Programming Perl>, Fourth Edition,
+by Tom Christiansen, brian d foy, Larry Wall, & Jon Orwant.
+Copyright (c) 2000, 1996, 1991, 2012 O'Reilly Media, Inc.
+This document may be distributed under the same terms as Perl itself.
diff --git a/lib/5.24.1/pod/perlgpl.pod b/lib/5.24.1/pod/perlgpl.pod
new file mode 100644
index 00000000..a6a927ba
--- /dev/null
+++ b/lib/5.24.1/pod/perlgpl.pod
@@ -0,0 +1,293 @@
+
+=head1 NAME
+
+perlgpl - the GNU General Public License, version 1
+
+=head1 SYNOPSIS
+
+ You can refer to this document in Pod via "L<perlgpl>"
+ Or you can see this document by entering "perldoc perlgpl"
+
+=head1 DESCRIPTION
+
+Perl is free software; you can redistribute it and/or modify
+it under the terms of either:
+
+        a) the GNU General Public License as published by the Free
+        Software Foundation; either version 1, or (at your option) any
+        later version, or
+
+        b) the "Artistic License" which comes with this Kit.
+
+This is the B<"GNU General Public License, version 1">.
+It's here so that modules, programs, etc., that want to declare
+this as their distribution license can link to it.
+
+For the Perl Artistic License, see L<perlartistic>.
+
+=cut
+
+# Because the following document's language disallows "changing"
+# it, we haven't gone thru and prettied it up with =item's or
+# anything.  It's good enough the way it is.
+
+=head1 GNU GENERAL PUBLIC LICENSE
+
+                    GNU GENERAL PUBLIC LICENSE
+                     Version 1, February 1989
+
+  Copyright (C) 1989 Free Software Foundation, Inc.
+                51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+
+  Everyone is permitted to copy and distribute verbatim copies
+  of this license document, but changing it is not allowed.
+
+                            Preamble
+
+   The license agreements of most software companies try to keep users
+ at the mercy of those companies.  By contrast, our General Public
+ License is intended to guarantee your freedom to share and change free
+ software--to make sure the software is free for all its users.  The
+ General Public License applies to the Free Software Foundation's
+ software and to any other program whose authors commit to using it.
+ You can use it for your programs, too.
+
+   When we speak of free software, we are referring to freedom, not
+ price.  Specifically, the General Public License is designed to make
+ sure that you have the freedom to give away or sell copies of free
+ software, that you receive source code or can get it if you want it,
+ that you can change the software or use pieces of it in new free
+ programs; and that you know you can do these things.
+
+   To protect your rights, we need to make restrictions that forbid
+ anyone to deny you these rights or to ask you to surrender the rights.
+ These restrictions translate to certain responsibilities for you if you
+ distribute copies of the software, or if you modify it.
+
+   For example, if you distribute copies of a such a program, whether
+ gratis or for a fee, you must give the recipients all the rights that
+ you have.  You must make sure that they, too, receive or can get the
+ source code.  And you must tell them their rights.
+
+   We protect your rights with two steps: (1) copyright the software,
+ and (2) offer you this license which gives you legal permission to
+ copy, distribute and/or modify the software.
+
+   Also, for each author's protection and ours, we want to make certain
+ that everyone understands that there is no warranty for this free
+ software.  If the software is modified by someone else and passed on,
+ we want its recipients to know that what they have is not the original,
+ so that any problems introduced by others will not reflect on the
+ original authors' reputations.
+
+   The precise terms and conditions for copying, distribution and
+ modification follow.
+
+                    GNU GENERAL PUBLIC LICENSE
+    TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
+
+   0. This License Agreement applies to any program or other work which
+ contains a notice placed by the copyright holder saying it may be
+ distributed under the terms of this General Public License.  The
+ "Program", below, refers to any such program or work, and a "work based
+ on the Program" means either the Program or any work containing the
+ Program or a portion of it, either verbatim or with modifications.
+ Each licensee is addressed as "you".
+
+   1. You may copy and distribute verbatim copies of the Program's
+ source code as you receive it, in any medium, provided that you
+ conspicuously and appropriately publish on each copy an appropriate
+ copyright notice and disclaimer of warranty; keep intact all the
+ notices that refer to this General Public License and to the absence of
+ any warranty; and give any other recipients of the Program a copy of
+ this General Public License along with the Program.  You may charge a
+ fee for the physical act of transferring a copy.
+
+   2. You may modify your copy or copies of the Program or any portion
+ of it, and copy and distribute such modifications under the terms of
+ Paragraph 1 above, provided that you also do the following:
+
+     a) cause the modified files to carry prominent notices stating that
+     you changed the files and the date of any change; and
+
+     b) cause the whole of any work that you distribute or publish, that
+     in whole or in part contains the Program or any part thereof,
+     either with or without modifications, to be licensed at no charge
+     to all third parties under the terms of this General Public License
+     (except that you may choose to grant warranty protection to some or
+     all third parties, at your option).
+
+     c) If the modified program normally reads commands interactively
+     when run, you must cause it, when started running for such
+     interactive use in the simplest and most usual way, to print or
+     display an announcement including an appropriate copyright notice
+     and a notice that there is no warranty (or else, saying that you
+     provide a warranty) and that users may redistribute the program
+     under these conditions, and telling the user how to view a copy of
+     this General Public License.
+
+     d) You may charge a fee for the physical act of transferring a
+     copy, and you may at your option offer warranty protection in
+     exchange for a fee.
+
+ Mere aggregation of another independent work with the Program (or its
+ derivative) on a volume of a storage or distribution medium does not
+ bring the other work under the scope of these terms.
+
+   3. You may copy and distribute the Program (or a portion or
+ derivative of it, under Paragraph 2) in object code or executable form
+ under the terms of Paragraphs 1 and 2 above provided that you also do
+ one of the following:
+
+     a) accompany it with the complete corresponding machine-readable
+     source code, which must be distributed under the terms of
+     Paragraphs 1 and 2 above; or,
+
+     b) accompany it with a written offer, valid for at least three
+     years, to give any third party free (except for a nominal charge
+     for the cost of distribution) a complete machine-readable copy of
+     the corresponding source code, to be distributed under the terms of
+     Paragraphs 1 and 2 above; or,
+
+     c) accompany it with the information you received as to where the
+     corresponding source code may be obtained.  (This alternative is
+     allowed only for noncommercial distribution and only if you
+     received the program in object code or executable form alone.)
+
+ Source code for a work means the preferred form of the work for making
+ modifications to it.  For an executable file, complete source code
+ means all the source code for all modules it contains; but, as a
+ special exception, it need not include source code for modules which
+ are standard libraries that accompany the operating system on which the
+ executable file runs, or for standard header files or definitions files
+ that accompany that operating system.
+
+   4. You may not copy, modify, sublicense, distribute or transfer the
+ Program except as expressly provided under this General Public License.
+ Any attempt otherwise to copy, modify, sublicense, distribute or
+ transfer the Program is void, and will automatically terminate your
+ rights to use the Program under this License.  However, parties who
+ have received copies, or rights to use copies, from you under this
+ General Public License will not have their licenses terminated so long
+ as such parties remain in full compliance.
+
+   5. By copying, distributing or modifying the Program (or any work
+ based on the Program) you indicate your acceptance of this license to
+ do so, and all its terms and conditions.
+
+   6. Each time you redistribute the Program (or any work based on the
+ Program), the recipient automatically receives a license from the
+ original licensor to copy, distribute or modify the Program subject to
+ these terms and conditions.  You may not impose any further
+ restrictions on the recipients' exercise of the rights granted herein.
+
+   7. The Free Software Foundation may publish revised and/or new
+ versions of the General Public License from time to time.  Such new
+ versions will be similar in spirit to the present version, but may
+ differ in detail to address new problems or concerns.
+
+ Each version is given a distinguishing version number.  If the Program
+ specifies a version number of the license which applies to it and "any
+ later version", you have the option of following the terms and
+ conditions either of that version or of any later version published by
+ the Free Software Foundation.  If the Program does not specify a
+ version number of the license, you may choose any version ever
+ published by the Free Software Foundation.
+
+   8. If you wish to incorporate parts of the Program into other free
+ programs whose distribution conditions are different, write to the
+ author to ask for permission.  For software which is copyrighted by the
+ Free Software Foundation, write to the Free Software Foundation; we
+ sometimes make exceptions for this.  Our decision will be guided by the
+ two goals of preserving the free status of all derivatives of our free
+ software and of promoting the sharing and reuse of software generally.
+
+                            NO WARRANTY
+
+   9. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO
+ WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW.
+ EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR
+ OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND,
+ EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
+ WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
+ THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS
+ WITH YOU.  SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF
+ ALL NECESSARY SERVICING, REPAIR OR CORRECTION.
+
+   10. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN
+ WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY
+ AND/OR REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU
+ FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR
+ CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE
+ PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING
+ RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A
+ FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS), EVEN IF
+ SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH
+ DAMAGES.
+
+                     END OF TERMS AND CONDITIONS
+
+        Appendix: How to Apply These Terms to Your New Programs
+
+   If you develop a new program, and you want it to be of the greatest
+ possible use to humanity, the best way to achieve this is to make it
+ free software which everyone can redistribute and change under these
+ terms.
+
+   To do so, attach the following notices to the program.  It is safest
+ to attach them to the start of each source file to most effectively
+ convey the exclusion of warranty; and each file should have at least
+ the "copyright" line and a pointer to where the full notice is found.
+
+     <one line to give the program's name and a brief idea of what it
+     does.>
+     Copyright (C) 19yy  <name of author>
+
+     This program is free software; you can redistribute it and/or
+     modify it under the terms of the GNU General Public License as
+     published by the Free Software Foundation; either version 1, or (at
+     your option) any later version.
+
+     This program is distributed in the hope that it will be useful,
+     but WITHOUT ANY WARRANTY; without even the implied warranty of
+     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+     GNU General Public License for more details.
+
+     You should have received a copy of the GNU General Public License
+     along with this program; if not, write to the Free Software
+     Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston MA
+     02110-1301 USA
+
+
+ Also add information on how to contact you by electronic and paper
+ mail.
+
+ If the program is interactive, make it output a short notice like this
+ when it starts in an interactive mode:
+
+     Gnomovision version 69, Copyright (C) 19xx name of author
+     Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type
+     'show w'.  This is free software, and you are welcome to
+     redistribute it under certain conditions; type 'show c' for
+     details.
+
+ The hypothetical commands 'show w' and 'show c' should show the
+ appropriate parts of the General Public License.  Of course, the
+ commands you use may be called something other than 'show w' and 'show
+ c'; they could even be mouse-clicks or menu items--whatever suits your
+ program.
+
+ You should also get your employer (if you work as a programmer) or your
+ school, if any, to sign a "copyright disclaimer" for the program, if
+ necessary.  Here a sample; alter the names:
+
+   Yoyodyne, Inc., hereby disclaims all copyright interest in the
+   program 'Gnomovision' (a program to direct compilers to make passes
+   at assemblers) written by James Hacker.
+
+   <signature of Ty Coon>, 1 April 1989
+   Ty Coon, President of Vice
+
+ That's all there is to it!
+
+=cut
diff --git a/lib/5.24.1/pod/perlguts.pod b/lib/5.24.1/pod/perlguts.pod
new file mode 100644
index 00000000..42ebb8df
--- /dev/null
+++ b/lib/5.24.1/pod/perlguts.pod
@@ -0,0 +1,3469 @@
+=head1 NAME
+
+perlguts - Introduction to the Perl API
+
+=head1 DESCRIPTION
+
+This document attempts to describe how to use the Perl API, as well as
+to provide some info on the basic workings of the Perl core.  It is far
+from complete and probably contains many errors.  Please refer any
+questions or comments to the author below.
+
+=head1 Variables
+
+=head2 Datatypes
+
+Perl has three typedefs that handle Perl's three main data types:
+
+    SV  Scalar Value
+    AV  Array Value
+    HV  Hash Value
+
+Each typedef has specific routines that manipulate the various data types.
+
+=head2 What is an "IV"?
+
+Perl uses a special typedef IV which is a simple signed integer type that is
+guaranteed to be large enough to hold a pointer (as well as an integer).
+Additionally, there is the UV, which is simply an unsigned IV.
+
+Perl also uses two special typedefs, I32 and I16, which will always be at
+least 32-bits and 16-bits long, respectively.  (Again, there are U32 and U16,
+as well.)  They will usually be exactly 32 and 16 bits long, but on Crays
+they will both be 64 bits.
+
+=head2 Working with SVs
+
+An SV can be created and loaded with one command.  There are five types of
+values that can be loaded: an integer value (IV), an unsigned integer
+value (UV), a double (NV), a string (PV), and another scalar (SV).
+("PV" stands for "Pointer Value".  You might think that it is misnamed
+because it is described as pointing only to strings.  However, it is
+possible to have it point to other things.  For example, it could point
+to an array of UVs.  But,
+using it for non-strings requires care, as the underlying assumption of
+much of the internals is that PVs are just for strings.  Often, for
+example, a trailing C<NUL> is tacked on automatically.  The non-string use
+is documented only in this paragraph.)
+
+The seven routines are:
+
+    SV*  newSViv(IV);
+    SV*  newSVuv(UV);
+    SV*  newSVnv(double);
+    SV*  newSVpv(const char*, STRLEN);
+    SV*  newSVpvn(const char*, STRLEN);
+    SV*  newSVpvf(const char*, ...);
+    SV*  newSVsv(SV*);
+
+C<STRLEN> is an integer type (Size_t, usually defined as size_t in
+F<config.h>) guaranteed to be large enough to represent the size of
+any string that perl can handle.
+
+In the unlikely case of a SV requiring more complex initialization, you
+can create an empty SV with newSV(len).  If C<len> is 0 an empty SV of
+type NULL is returned, else an SV of type PV is returned with len + 1 (for
+the C<NUL>) bytes of storage allocated, accessible via SvPVX.  In both cases
+the SV has the undef value.
+
+    SV *sv = newSV(0);   /* no storage allocated  */
+    SV *sv = newSV(10);  /* 10 (+1) bytes of uninitialised storage
+                          * allocated */
+
+To change the value of an I<already-existing> SV, there are eight routines:
+
+    void  sv_setiv(SV*, IV);
+    void  sv_setuv(SV*, UV);
+    void  sv_setnv(SV*, double);
+    void  sv_setpv(SV*, const char*);
+    void  sv_setpvn(SV*, const char*, STRLEN)
+    void  sv_setpvf(SV*, const char*, ...);
+    void  sv_vsetpvfn(SV*, const char*, STRLEN, va_list *,
+                                                    SV **, I32, bool *);
+    void  sv_setsv(SV*, SV*);
+
+Notice that you can choose to specify the length of the string to be
+assigned by using C<sv_setpvn>, C<newSVpvn>, or C<newSVpv>, or you may
+allow Perl to calculate the length by using C<sv_setpv> or by specifying
+0 as the second argument to C<newSVpv>.  Be warned, though, that Perl will
+determine the string's length by using C<strlen>, which depends on the
+string terminating with a C<NUL> character, and not otherwise containing
+NULs.
+
+The arguments of C<sv_setpvf> are processed like C<sprintf>, and the
+formatted output becomes the value.
+
+C<sv_vsetpvfn> is an analogue of C<vsprintf>, but it allows you to specify
+either a pointer to a variable argument list or the address and length of
+an array of SVs.  The last argument points to a boolean; on return, if that
+boolean is true, then locale-specific information has been used to format
+the string, and the string's contents are therefore untrustworthy (see
+L<perlsec>).  This pointer may be NULL if that information is not
+important.  Note that this function requires you to specify the length of
+the format.
+
+The C<sv_set*()> functions are not generic enough to operate on values
+that have "magic".  See L<Magic Virtual Tables> later in this document.
+
+All SVs that contain strings should be terminated with a C<NUL> character.
+If it is not C<NUL>-terminated there is a risk of
+core dumps and corruptions from code which passes the string to C
+functions or system calls which expect a C<NUL>-terminated string.
+Perl's own functions typically add a trailing C<NUL> for this reason.
+Nevertheless, you should be very careful when you pass a string stored
+in an SV to a C function or system call.
+
+To access the actual value that an SV points to, you can use the macros:
+
+    SvIV(SV*)
+    SvUV(SV*)
+    SvNV(SV*)
+    SvPV(SV*, STRLEN len)
+    SvPV_nolen(SV*)
+
+which will automatically coerce the actual scalar type into an IV, UV, double,
+or string.
+
+In the C<SvPV> macro, the length of the string returned is placed into the
+variable C<len> (this is a macro, so you do I<not> use C<&len>).  If you do
+not care what the length of the data is, use the C<SvPV_nolen> macro.
+Historically the C<SvPV> macro with the global variable C<PL_na> has been
+used in this case.  But that can be quite inefficient because C<PL_na> must
+be accessed in thread-local storage in threaded Perl.  In any case, remember
+that Perl allows arbitrary strings of data that may both contain NULs and
+might not be terminated by a C<NUL>.
+
+Also remember that C doesn't allow you to safely say C<foo(SvPV(s, len),
+len);>.  It might work with your
+compiler, but it won't work for everyone.
+Break this sort of statement up into separate assignments:
+
+    SV *s;
+    STRLEN len;
+    char *ptr;
+    ptr = SvPV(s, len);
+    foo(ptr, len);
+
+If you want to know if the scalar value is TRUE, you can use:
+
+    SvTRUE(SV*)
+
+Although Perl will automatically grow strings for you, if you need to force
+Perl to allocate more memory for your SV, you can use the macro
+
+    SvGROW(SV*, STRLEN newlen)
+
+which will determine if more memory needs to be allocated.  If so, it will
+call the function C<sv_grow>.  Note that C<SvGROW> can only increase, not
+decrease, the allocated memory of an SV and that it does not automatically
+add space for the trailing C<NUL> byte (perl's own string functions typically do
+C<SvGROW(sv, len + 1)>).
+
+If you want to write to an existing SV's buffer and set its value to a
+string, use SvPV_force() or one of its variants to force the SV to be
+a PV.  This will remove any of various types of non-stringness from
+the SV while preserving the content of the SV in the PV.  This can be
+used, for example, to append data from an API function to a buffer
+without extra copying:
+
+    (void)SvPVbyte_force(sv, len);
+    s = SvGROW(sv, len + needlen + 1);
+    /* something that modifies up to needlen bytes at s+len, but
+       modifies newlen bytes
+         eg. newlen = read(fd, s + len, needlen);
+       ignoring errors for these examples
+     */
+    s[len + newlen] = '\0';
+    SvCUR_set(sv, len + newlen);
+    SvUTF8_off(sv);
+    SvSETMAGIC(sv);
+
+If you already have the data in memory or if you want to keep your
+code simple, you can use one of the sv_cat*() variants, such as
+sv_catpvn().  If you want to insert anywhere in the string you can use
+sv_insert() or sv_insert_flags().
+
+If you don't need the existing content of the SV, you can avoid some
+copying with:
+
+    sv_setpvn(sv, "", 0);
+    s = SvGROW(sv, needlen + 1);
+    /* something that modifies up to needlen bytes at s, but modifies
+       newlen bytes
+         eg. newlen = read(fd, s. needlen);
+     */
+    s[newlen] = '\0';
+    SvCUR_set(sv, newlen);
+    SvPOK_only(sv); /* also clears SVf_UTF8 */
+    SvSETMAGIC(sv);
+
+Again, if you already have the data in memory or want to avoid the
+complexity of the above, you can use sv_setpvn().
+
+If you have a buffer allocated with Newx() and want to set that as the
+SV's value, you can use sv_usepvn_flags().  That has some requirements
+if you want to avoid perl re-allocating the buffer to fit the trailing
+NUL:
+
+   Newx(buf, somesize+1, char);
+   /* ... fill in buf ... */
+   buf[somesize] = '\0';
+   sv_usepvn_flags(sv, buf, somesize, SV_SMAGIC | SV_HAS_TRAILING_NUL);
+   /* buf now belongs to perl, don't release it */
+
+If you have an SV and want to know what kind of data Perl thinks is stored
+in it, you can use the following macros to check the type of SV you have.
+
+    SvIOK(SV*)
+    SvNOK(SV*)
+    SvPOK(SV*)
+
+You can get and set the current length of the string stored in an SV with
+the following macros:
+
+    SvCUR(SV*)
+    SvCUR_set(SV*, I32 val)
+
+You can also get a pointer to the end of the string stored in the SV
+with the macro:
+
+    SvEND(SV*)
+
+But note that these last three macros are valid only if C<SvPOK()> is true.
+
+If you want to append something to the end of string stored in an C<SV*>,
+you can use the following functions:
+
+    void  sv_catpv(SV*, const char*);
+    void  sv_catpvn(SV*, const char*, STRLEN);
+    void  sv_catpvf(SV*, const char*, ...);
+    void  sv_vcatpvfn(SV*, const char*, STRLEN, va_list *, SV **,
+                                                             I32, bool);
+    void  sv_catsv(SV*, SV*);
+
+The first function calculates the length of the string to be appended by
+using C<strlen>.  In the second, you specify the length of the string
+yourself.  The third function processes its arguments like C<sprintf> and
+appends the formatted output.  The fourth function works like C<vsprintf>.
+You can specify the address and length of an array of SVs instead of the
+va_list argument.  The fifth function
+extends the string stored in the first
+SV with the string stored in the second SV.  It also forces the second SV
+to be interpreted as a string.
+
+The C<sv_cat*()> functions are not generic enough to operate on values that
+have "magic".  See L<Magic Virtual Tables> later in this document.
+
+If you know the name of a scalar variable, you can get a pointer to its SV
+by using the following:
+
+    SV*  get_sv("package::varname", 0);
+
+This returns NULL if the variable does not exist.
+
+If you want to know if this variable (or any other SV) is actually C<defined>,
+you can call:
+
+    SvOK(SV*)
+
+The scalar C<undef> value is stored in an SV instance called C<PL_sv_undef>.
+
+Its address can be used whenever an C<SV*> is needed.  Make sure that
+you don't try to compare a random sv with C<&PL_sv_undef>.  For example
+when interfacing Perl code, it'll work correctly for:
+
+  foo(undef);
+
+But won't work when called as:
+
+  $x = undef;
+  foo($x);
+
+So to repeat always use SvOK() to check whether an sv is defined.
+
+Also you have to be careful when using C<&PL_sv_undef> as a value in
+AVs or HVs (see L<AVs, HVs and undefined values>).
+
+There are also the two values C<PL_sv_yes> and C<PL_sv_no>, which contain
+boolean TRUE and FALSE values, respectively.  Like C<PL_sv_undef>, their
+addresses can be used whenever an C<SV*> is needed.
+
+Do not be fooled into thinking that C<(SV *) 0> is the same as C<&PL_sv_undef>.
+Take this code:
+
+    SV* sv = (SV*) 0;
+    if (I-am-to-return-a-real-value) {
+            sv = sv_2mortal(newSViv(42));
+    }
+    sv_setsv(ST(0), sv);
+
+This code tries to return a new SV (which contains the value 42) if it should
+return a real value, or undef otherwise.  Instead it has returned a NULL
+pointer which, somewhere down the line, will cause a segmentation violation,
+bus error, or just weird results.  Change the zero to C<&PL_sv_undef> in the
+first line and all will be well.
+
+To free an SV that you've created, call C<SvREFCNT_dec(SV*)>.  Normally this
+call is not necessary (see L<Reference Counts and Mortality>).
+
+=head2 Offsets
+
+Perl provides the function C<sv_chop> to efficiently remove characters
+from the beginning of a string; you give it an SV and a pointer to
+somewhere inside the PV, and it discards everything before the
+pointer.  The efficiency comes by means of a little hack: instead of
+actually removing the characters, C<sv_chop> sets the flag C<OOK>
+(offset OK) to signal to other functions that the offset hack is in
+effect, and it moves the PV pointer (called C<SvPVX>) forward
+by the number of bytes chopped off, and adjusts C<SvCUR> and C<SvLEN>
+accordingly.  (A portion of the space between the old and new PV
+pointers is used to store the count of chopped bytes.)
+
+Hence, at this point, the start of the buffer that we allocated lives
+at C<SvPVX(sv) - SvIV(sv)> in memory and the PV pointer is pointing
+into the middle of this allocated storage.
+
+This is best demonstrated by example.  Normally copy-on-write will prevent
+the substitution from operator from using this hack, but if you can craft a
+string for which copy-on-write is not possible, you can see it in play.  In
+the current implementation, the final byte of a string buffer is used as a
+copy-on-write reference count.  If the buffer is not big enough, then
+copy-on-write is skipped.  First have a look at an empty string:
+
+  % ./perl -Ilib -MDevel::Peek -le '$a=""; $a .= ""; Dump $a'
+  SV = PV(0x7ffb7c008a70) at 0x7ffb7c030390
+    REFCNT = 1
+    FLAGS = (POK,pPOK)
+    PV = 0x7ffb7bc05b50 ""\0
+    CUR = 0
+    LEN = 10
+
+Notice here the LEN is 10.  (It may differ on your platform.)  Extend the
+length of the string to one less than 10, and do a substitution:
+
+ % ./perl -Ilib -MDevel::Peek -le '$a=""; $a.="123456789"; $a=~s/.//; \
+                                                            Dump($a)'
+ SV = PV(0x7ffa04008a70) at 0x7ffa04030390
+   REFCNT = 1
+   FLAGS = (POK,OOK,pPOK)
+   OFFSET = 1
+   PV = 0x7ffa03c05b61 ( "\1" . ) "23456789"\0
+   CUR = 8
+   LEN = 9
+
+Here the number of bytes chopped off (1) is shown next as the OFFSET.  The
+portion of the string between the "real" and the "fake" beginnings is
+shown in parentheses, and the values of C<SvCUR> and C<SvLEN> reflect
+the fake beginning, not the real one.  (The first character of the string
+buffer happens to have changed to "\1" here, not "1", because the current
+implementation stores the offset count in the string buffer.  This is
+subject to change.)
+
+Something similar to the offset hack is performed on AVs to enable
+efficient shifting and splicing off the beginning of the array; while
+C<AvARRAY> points to the first element in the array that is visible from
+Perl, C<AvALLOC> points to the real start of the C array.  These are
+usually the same, but a C<shift> operation can be carried out by
+increasing C<AvARRAY> by one and decreasing C<AvFILL> and C<AvMAX>.
+Again, the location of the real start of the C array only comes into
+play when freeing the array.  See C<av_shift> in F<av.c>.
+
+=head2 What's Really Stored in an SV?
+
+Recall that the usual method of determining the type of scalar you have is
+to use C<Sv*OK> macros.  Because a scalar can be both a number and a string,
+usually these macros will always return TRUE and calling the C<Sv*V>
+macros will do the appropriate conversion of string to integer/double or
+integer/double to string.
+
+If you I<really> need to know if you have an integer, double, or string
+pointer in an SV, you can use the following three macros instead:
+
+    SvIOKp(SV*)
+    SvNOKp(SV*)
+    SvPOKp(SV*)
+
+These will tell you if you truly have an integer, double, or string pointer
+stored in your SV.  The "p" stands for private.
+
+There are various ways in which the private and public flags may differ.
+For example, in perl 5.16 and earlier a tied SV may have a valid
+underlying value in the IV slot (so SvIOKp is true), but the data
+should be accessed via the FETCH routine rather than directly,
+so SvIOK is false.  (In perl 5.18 onwards, tied scalars use
+the flags the same way as untied scalars.)  Another is when
+numeric conversion has occurred and precision has been lost: only the
+private flag is set on 'lossy' values.  So when an NV is converted to an
+IV with loss, SvIOKp, SvNOKp and SvNOK will be set, while SvIOK wont be.
+
+In general, though, it's best to use the C<Sv*V> macros.
+
+=head2 Working with AVs
+
+There are two ways to create and load an AV.  The first method creates an
+empty AV:
+
+    AV*  newAV();
+
+The second method both creates the AV and initially populates it with SVs:
+
+    AV*  av_make(SSize_t num, SV **ptr);
+
+The second argument points to an array containing C<num> C<SV*>'s.  Once the
+AV has been created, the SVs can be destroyed, if so desired.
+
+Once the AV has been created, the following operations are possible on it:
+
+    void  av_push(AV*, SV*);
+    SV*   av_pop(AV*);
+    SV*   av_shift(AV*);
+    void  av_unshift(AV*, SSize_t num);
+
+These should be familiar operations, with the exception of C<av_unshift>.
+This routine adds C<num> elements at the front of the array with the C<undef>
+value.  You must then use C<av_store> (described below) to assign values
+to these new elements.
+
+Here are some other functions:
+
+    SSize_t av_top_index(AV*);
+    SV**    av_fetch(AV*, SSize_t key, I32 lval);
+    SV**    av_store(AV*, SSize_t key, SV* val);
+
+The C<av_top_index> function returns the highest index value in an array (just
+like $#array in Perl).  If the array is empty, -1 is returned.  The
+C<av_fetch> function returns the value at index C<key>, but if C<lval>
+is non-zero, then C<av_fetch> will store an undef value at that index.
+The C<av_store> function stores the value C<val> at index C<key>, and does
+not increment the reference count of C<val>.  Thus the caller is responsible
+for taking care of that, and if C<av_store> returns NULL, the caller will
+have to decrement the reference count to avoid a memory leak.  Note that
+C<av_fetch> and C<av_store> both return C<SV**>'s, not C<SV*>'s as their
+return value.
+
+A few more:
+
+    void  av_clear(AV*);
+    void  av_undef(AV*);
+    void  av_extend(AV*, SSize_t key);
+
+The C<av_clear> function deletes all the elements in the AV* array, but
+does not actually delete the array itself.  The C<av_undef> function will
+delete all the elements in the array plus the array itself.  The
+C<av_extend> function extends the array so that it contains at least C<key+1>
+elements.  If C<key+1> is less than the currently allocated length of the array,
+then nothing is done.
+
+If you know the name of an array variable, you can get a pointer to its AV
+by using the following:
+
+    AV*  get_av("package::varname", 0);
+
+This returns NULL if the variable does not exist.
+
+See L<Understanding the Magic of Tied Hashes and Arrays> for more
+information on how to use the array access functions on tied arrays.
+
+=head2 Working with HVs
+
+To create an HV, you use the following routine:
+
+    HV*  newHV();
+
+Once the HV has been created, the following operations are possible on it:
+
+    SV**  hv_store(HV*, const char* key, U32 klen, SV* val, U32 hash);
+    SV**  hv_fetch(HV*, const char* key, U32 klen, I32 lval);
+
+The C<klen> parameter is the length of the key being passed in (Note that
+you cannot pass 0 in as a value of C<klen> to tell Perl to measure the
+length of the key).  The C<val> argument contains the SV pointer to the
+scalar being stored, and C<hash> is the precomputed hash value (zero if
+you want C<hv_store> to calculate it for you).  The C<lval> parameter
+indicates whether this fetch is actually a part of a store operation, in
+which case a new undefined value will be added to the HV with the supplied
+key and C<hv_fetch> will return as if the value had already existed.
+
+Remember that C<hv_store> and C<hv_fetch> return C<SV**>'s and not just
+C<SV*>.  To access the scalar value, you must first dereference the return
+value.  However, you should check to make sure that the return value is
+not NULL before dereferencing it.
+
+The first of these two functions checks if a hash table entry exists, and the 
+second deletes it.
+
+    bool  hv_exists(HV*, const char* key, U32 klen);
+    SV*   hv_delete(HV*, const char* key, U32 klen, I32 flags);
+
+If C<flags> does not include the C<G_DISCARD> flag then C<hv_delete> will
+create and return a mortal copy of the deleted value.
+
+And more miscellaneous functions:
+
+    void   hv_clear(HV*);
+    void   hv_undef(HV*);
+
+Like their AV counterparts, C<hv_clear> deletes all the entries in the hash
+table but does not actually delete the hash table.  The C<hv_undef> deletes
+both the entries and the hash table itself.
+
+Perl keeps the actual data in a linked list of structures with a typedef of HE.
+These contain the actual key and value pointers (plus extra administrative
+overhead).  The key is a string pointer; the value is an C<SV*>.  However,
+once you have an C<HE*>, to get the actual key and value, use the routines
+specified below.
+
+    I32    hv_iterinit(HV*);
+            /* Prepares starting point to traverse hash table */
+    HE*    hv_iternext(HV*);
+            /* Get the next entry, and return a pointer to a
+               structure that has both the key and value */
+    char*  hv_iterkey(HE* entry, I32* retlen);
+            /* Get the key from an HE structure and also return
+               the length of the key string */
+    SV*    hv_iterval(HV*, HE* entry);
+            /* Return an SV pointer to the value of the HE
+               structure */
+    SV*    hv_iternextsv(HV*, char** key, I32* retlen);
+            /* This convenience routine combines hv_iternext,
+	       hv_iterkey, and hv_iterval.  The key and retlen
+	       arguments are return values for the key and its
+	       length.  The value is returned in the SV* argument */
+
+If you know the name of a hash variable, you can get a pointer to its HV
+by using the following:
+
+    HV*  get_hv("package::varname", 0);
+
+This returns NULL if the variable does not exist.
+
+The hash algorithm is defined in the C<PERL_HASH> macro:
+
+    PERL_HASH(hash, key, klen)
+
+The exact implementation of this macro varies by architecture and version
+of perl, and the return value may change per invocation, so the value
+is only valid for the duration of a single perl process.
+
+See L<Understanding the Magic of Tied Hashes and Arrays> for more
+information on how to use the hash access functions on tied hashes.
+
+=head2 Hash API Extensions
+
+Beginning with version 5.004, the following functions are also supported:
+
+    HE*     hv_fetch_ent  (HV* tb, SV* key, I32 lval, U32 hash);
+    HE*     hv_store_ent  (HV* tb, SV* key, SV* val, U32 hash);
+
+    bool    hv_exists_ent (HV* tb, SV* key, U32 hash);
+    SV*     hv_delete_ent (HV* tb, SV* key, I32 flags, U32 hash);
+
+    SV*     hv_iterkeysv  (HE* entry);
+
+Note that these functions take C<SV*> keys, which simplifies writing
+of extension code that deals with hash structures.  These functions
+also allow passing of C<SV*> keys to C<tie> functions without forcing
+you to stringify the keys (unlike the previous set of functions).
+
+They also return and accept whole hash entries (C<HE*>), making their
+use more efficient (since the hash number for a particular string
+doesn't have to be recomputed every time).  See L<perlapi> for detailed
+descriptions.
+
+The following macros must always be used to access the contents of hash
+entries.  Note that the arguments to these macros must be simple
+variables, since they may get evaluated more than once.  See
+L<perlapi> for detailed descriptions of these macros.
+
+    HePV(HE* he, STRLEN len)
+    HeVAL(HE* he)
+    HeHASH(HE* he)
+    HeSVKEY(HE* he)
+    HeSVKEY_force(HE* he)
+    HeSVKEY_set(HE* he, SV* sv)
+
+These two lower level macros are defined, but must only be used when
+dealing with keys that are not C<SV*>s:
+
+    HeKEY(HE* he)
+    HeKLEN(HE* he)
+
+Note that both C<hv_store> and C<hv_store_ent> do not increment the
+reference count of the stored C<val>, which is the caller's responsibility.
+If these functions return a NULL value, the caller will usually have to
+decrement the reference count of C<val> to avoid a memory leak.
+
+=head2 AVs, HVs and undefined values
+
+Sometimes you have to store undefined values in AVs or HVs.  Although
+this may be a rare case, it can be tricky.  That's because you're
+used to using C<&PL_sv_undef> if you need an undefined SV.
+
+For example, intuition tells you that this XS code:
+
+    AV *av = newAV();
+    av_store( av, 0, &PL_sv_undef );
+
+is equivalent to this Perl code:
+
+    my @av;
+    $av[0] = undef;
+
+Unfortunately, this isn't true.  In perl 5.18 and earlier, AVs use C<&PL_sv_undef> as a marker
+for indicating that an array element has not yet been initialized.
+Thus, C<exists $av[0]> would be true for the above Perl code, but
+false for the array generated by the XS code.  In perl 5.20, storing
+&PL_sv_undef will create a read-only element, because the scalar
+&PL_sv_undef itself is stored, not a copy.
+
+Similar problems can occur when storing C<&PL_sv_undef> in HVs:
+
+    hv_store( hv, "key", 3, &PL_sv_undef, 0 );
+
+This will indeed make the value C<undef>, but if you try to modify
+the value of C<key>, you'll get the following error:
+
+    Modification of non-creatable hash value attempted
+
+In perl 5.8.0, C<&PL_sv_undef> was also used to mark placeholders
+in restricted hashes.  This caused such hash entries not to appear
+when iterating over the hash or when checking for the keys
+with the C<hv_exists> function.
+
+You can run into similar problems when you store C<&PL_sv_yes> or
+C<&PL_sv_no> into AVs or HVs.  Trying to modify such elements
+will give you the following error:
+
+    Modification of a read-only value attempted
+
+To make a long story short, you can use the special variables
+C<&PL_sv_undef>, C<&PL_sv_yes> and C<&PL_sv_no> with AVs and
+HVs, but you have to make sure you know what you're doing.
+
+Generally, if you want to store an undefined value in an AV
+or HV, you should not use C<&PL_sv_undef>, but rather create a
+new undefined value using the C<newSV> function, for example:
+
+    av_store( av, 42, newSV(0) );
+    hv_store( hv, "foo", 3, newSV(0), 0 );
+
+=head2 References
+
+References are a special type of scalar that point to other data types
+(including other references).
+
+To create a reference, use either of the following functions:
+
+    SV* newRV_inc((SV*) thing);
+    SV* newRV_noinc((SV*) thing);
+
+The C<thing> argument can be any of an C<SV*>, C<AV*>, or C<HV*>.  The
+functions are identical except that C<newRV_inc> increments the reference
+count of the C<thing>, while C<newRV_noinc> does not.  For historical
+reasons, C<newRV> is a synonym for C<newRV_inc>.
+
+Once you have a reference, you can use the following macro to dereference
+the reference:
+
+    SvRV(SV*)
+
+then call the appropriate routines, casting the returned C<SV*> to either an
+C<AV*> or C<HV*>, if required.
+
+To determine if an SV is a reference, you can use the following macro:
+
+    SvROK(SV*)
+
+To discover what type of value the reference refers to, use the following
+macro and then check the return value.
+
+    SvTYPE(SvRV(SV*))
+
+The most useful types that will be returned are:
+
+    < SVt_PVAV  Scalar
+    SVt_PVAV    Array
+    SVt_PVHV    Hash
+    SVt_PVCV    Code
+    SVt_PVGV    Glob (possibly a file handle)
+
+See L<perlapi/svtype> for more details.
+
+=head2 Blessed References and Class Objects
+
+References are also used to support object-oriented programming.  In perl's
+OO lexicon, an object is simply a reference that has been blessed into a
+package (or class).  Once blessed, the programmer may now use the reference
+to access the various methods in the class.
+
+A reference can be blessed into a package with the following function:
+
+    SV* sv_bless(SV* sv, HV* stash);
+
+The C<sv> argument must be a reference value.  The C<stash> argument
+specifies which class the reference will belong to.  See
+L<Stashes and Globs> for information on converting class names into stashes.
+
+/* Still under construction */
+
+The following function upgrades rv to reference if not already one.
+Creates a new SV for rv to point to.  If C<classname> is non-null, the SV
+is blessed into the specified class.  SV is returned.
+
+	SV* newSVrv(SV* rv, const char* classname);
+
+The following three functions copy integer, unsigned integer or double
+into an SV whose reference is C<rv>.  SV is blessed if C<classname> is
+non-null.
+
+	SV* sv_setref_iv(SV* rv, const char* classname, IV iv);
+	SV* sv_setref_uv(SV* rv, const char* classname, UV uv);
+	SV* sv_setref_nv(SV* rv, const char* classname, NV iv);
+
+The following function copies the pointer value (I<the address, not the
+string!>) into an SV whose reference is rv.  SV is blessed if C<classname>
+is non-null.
+
+	SV* sv_setref_pv(SV* rv, const char* classname, void* pv);
+
+The following function copies a string into an SV whose reference is C<rv>.
+Set length to 0 to let Perl calculate the string length.  SV is blessed if
+C<classname> is non-null.
+
+    SV* sv_setref_pvn(SV* rv, const char* classname, char* pv,
+                                                         STRLEN length);
+
+The following function tests whether the SV is blessed into the specified
+class.  It does not check inheritance relationships.
+
+	int  sv_isa(SV* sv, const char* name);
+
+The following function tests whether the SV is a reference to a blessed object.
+
+	int  sv_isobject(SV* sv);
+
+The following function tests whether the SV is derived from the specified
+class.  SV can be either a reference to a blessed object or a string
+containing a class name.  This is the function implementing the
+C<UNIVERSAL::isa> functionality.
+
+	bool sv_derived_from(SV* sv, const char* name);
+
+To check if you've got an object derived from a specific class you have
+to write:
+
+	if (sv_isobject(sv) && sv_derived_from(sv, class)) { ... }
+
+=head2 Creating New Variables
+
+To create a new Perl variable with an undef value which can be accessed from
+your Perl script, use the following routines, depending on the variable type.
+
+    SV*  get_sv("package::varname", GV_ADD);
+    AV*  get_av("package::varname", GV_ADD);
+    HV*  get_hv("package::varname", GV_ADD);
+
+Notice the use of GV_ADD as the second parameter.  The new variable can now
+be set, using the routines appropriate to the data type.
+
+There are additional macros whose values may be bitwise OR'ed with the
+C<GV_ADD> argument to enable certain extra features.  Those bits are:
+
+=over
+
+=item GV_ADDMULTI
+
+Marks the variable as multiply defined, thus preventing the:
+
+  Name <varname> used only once: possible typo
+
+warning.
+
+=item GV_ADDWARN
+
+Issues the warning:
+
+  Had to create <varname> unexpectedly
+
+if the variable did not exist before the function was called.
+
+=back
+
+If you do not specify a package name, the variable is created in the current
+package.
+
+=head2 Reference Counts and Mortality
+
+Perl uses a reference count-driven garbage collection mechanism.  SVs,
+AVs, or HVs (xV for short in the following) start their life with a
+reference count of 1.  If the reference count of an xV ever drops to 0,
+then it will be destroyed and its memory made available for reuse.
+
+This normally doesn't happen at the Perl level unless a variable is
+undef'ed or the last variable holding a reference to it is changed or
+overwritten.  At the internal level, however, reference counts can be
+manipulated with the following macros:
+
+    int SvREFCNT(SV* sv);
+    SV* SvREFCNT_inc(SV* sv);
+    void SvREFCNT_dec(SV* sv);
+
+However, there is one other function which manipulates the reference
+count of its argument.  The C<newRV_inc> function, you will recall,
+creates a reference to the specified argument.  As a side effect,
+it increments the argument's reference count.  If this is not what
+you want, use C<newRV_noinc> instead.
+
+For example, imagine you want to return a reference from an XSUB function.
+Inside the XSUB routine, you create an SV which initially has a reference
+count of one.  Then you call C<newRV_inc>, passing it the just-created SV.
+This returns the reference as a new SV, but the reference count of the
+SV you passed to C<newRV_inc> has been incremented to two.  Now you
+return the reference from the XSUB routine and forget about the SV.
+But Perl hasn't!  Whenever the returned reference is destroyed, the
+reference count of the original SV is decreased to one and nothing happens.
+The SV will hang around without any way to access it until Perl itself
+terminates.  This is a memory leak.
+
+The correct procedure, then, is to use C<newRV_noinc> instead of
+C<newRV_inc>.  Then, if and when the last reference is destroyed,
+the reference count of the SV will go to zero and it will be destroyed,
+stopping any memory leak.
+
+There are some convenience functions available that can help with the
+destruction of xVs.  These functions introduce the concept of "mortality".
+An xV that is mortal has had its reference count marked to be decremented,
+but not actually decremented, until "a short time later".  Generally the
+term "short time later" means a single Perl statement, such as a call to
+an XSUB function.  The actual determinant for when mortal xVs have their
+reference count decremented depends on two macros, SAVETMPS and FREETMPS.
+See L<perlcall> and L<perlxs> for more details on these macros.
+
+"Mortalization" then is at its simplest a deferred C<SvREFCNT_dec>.
+However, if you mortalize a variable twice, the reference count will
+later be decremented twice.
+
+"Mortal" SVs are mainly used for SVs that are placed on perl's stack.
+For example an SV which is created just to pass a number to a called sub
+is made mortal to have it cleaned up automatically when it's popped off
+the stack.  Similarly, results returned by XSUBs (which are pushed on the
+stack) are often made mortal.
+
+To create a mortal variable, use the functions:
+
+    SV*  sv_newmortal()
+    SV*  sv_2mortal(SV*)
+    SV*  sv_mortalcopy(SV*)
+
+The first call creates a mortal SV (with no value), the second converts an existing
+SV to a mortal SV (and thus defers a call to C<SvREFCNT_dec>), and the
+third creates a mortal copy of an existing SV.
+Because C<sv_newmortal> gives the new SV no value, it must normally be given one
+via C<sv_setpv>, C<sv_setiv>, etc. :
+
+    SV *tmp = sv_newmortal();
+    sv_setiv(tmp, an_integer);
+
+As that is multiple C statements it is quite common so see this idiom instead:
+
+    SV *tmp = sv_2mortal(newSViv(an_integer));
+
+
+You should be careful about creating mortal variables.  Strange things
+can happen if you make the same value mortal within multiple contexts,
+or if you make a variable mortal multiple
+times.  Thinking of "Mortalization"
+as deferred C<SvREFCNT_dec> should help to minimize such problems.
+For example if you are passing an SV which you I<know> has a high enough REFCNT
+to survive its use on the stack you need not do any mortalization.
+If you are not sure then doing an C<SvREFCNT_inc> and C<sv_2mortal>, or
+making a C<sv_mortalcopy> is safer.
+
+The mortal routines are not just for SVs; AVs and HVs can be
+made mortal by passing their address (type-casted to C<SV*>) to the
+C<sv_2mortal> or C<sv_mortalcopy> routines.
+
+=head2 Stashes and Globs
+
+A B<stash> is a hash that contains all variables that are defined
+within a package.  Each key of the stash is a symbol
+name (shared by all the different types of objects that have the same
+name), and each value in the hash table is a GV (Glob Value).  This GV
+in turn contains references to the various objects of that name,
+including (but not limited to) the following:
+
+    Scalar Value
+    Array Value
+    Hash Value
+    I/O Handle
+    Format
+    Subroutine
+
+There is a single stash called C<PL_defstash> that holds the items that exist
+in the C<main> package.  To get at the items in other packages, append the
+string "::" to the package name.  The items in the C<Foo> package are in
+the stash C<Foo::> in PL_defstash.  The items in the C<Bar::Baz> package are
+in the stash C<Baz::> in C<Bar::>'s stash.
+
+To get the stash pointer for a particular package, use the function:
+
+    HV*  gv_stashpv(const char* name, I32 flags)
+    HV*  gv_stashsv(SV*, I32 flags)
+
+The first function takes a literal string, the second uses the string stored
+in the SV.  Remember that a stash is just a hash table, so you get back an
+C<HV*>.  The C<flags> flag will create a new package if it is set to GV_ADD.
+
+The name that C<gv_stash*v> wants is the name of the package whose symbol table
+you want.  The default package is called C<main>.  If you have multiply nested
+packages, pass their names to C<gv_stash*v>, separated by C<::> as in the Perl
+language itself.
+
+Alternately, if you have an SV that is a blessed reference, you can find
+out the stash pointer by using:
+
+    HV*  SvSTASH(SvRV(SV*));
+
+then use the following to get the package name itself:
+
+    char*  HvNAME(HV* stash);
+
+If you need to bless or re-bless an object you can use the following
+function:
+
+    SV*  sv_bless(SV*, HV* stash)
+
+where the first argument, an C<SV*>, must be a reference, and the second
+argument is a stash.  The returned C<SV*> can now be used in the same way
+as any other SV.
+
+For more information on references and blessings, consult L<perlref>.
+
+=head2 Double-Typed SVs
+
+Scalar variables normally contain only one type of value, an integer,
+double, pointer, or reference.  Perl will automatically convert the
+actual scalar data from the stored type into the requested type.
+
+Some scalar variables contain more than one type of scalar data.  For
+example, the variable C<$!> contains either the numeric value of C<errno>
+or its string equivalent from either C<strerror> or C<sys_errlist[]>.
+
+To force multiple data values into an SV, you must do two things: use the
+C<sv_set*v> routines to add the additional scalar type, then set a flag
+so that Perl will believe it contains more than one type of data.  The
+four macros to set the flags are:
+
+	SvIOK_on
+	SvNOK_on
+	SvPOK_on
+	SvROK_on
+
+The particular macro you must use depends on which C<sv_set*v> routine
+you called first.  This is because every C<sv_set*v> routine turns on
+only the bit for the particular type of data being set, and turns off
+all the rest.
+
+For example, to create a new Perl variable called "dberror" that contains
+both the numeric and descriptive string error values, you could use the
+following code:
+
+    extern int  dberror;
+    extern char *dberror_list;
+
+    SV* sv = get_sv("dberror", GV_ADD);
+    sv_setiv(sv, (IV) dberror);
+    sv_setpv(sv, dberror_list[dberror]);
+    SvIOK_on(sv);
+
+If the order of C<sv_setiv> and C<sv_setpv> had been reversed, then the
+macro C<SvPOK_on> would need to be called instead of C<SvIOK_on>.
+
+=head2 Read-Only Values
+
+In Perl 5.16 and earlier, copy-on-write (see the next section) shared a
+flag bit with read-only scalars.  So the only way to test whether
+C<sv_setsv>, etc., will raise a "Modification of a read-only value" error
+in those versions is:
+
+    SvREADONLY(sv) && !SvIsCOW(sv)
+
+Under Perl 5.18 and later, SvREADONLY only applies to read-only variables,
+and, under 5.20, copy-on-write scalars can also be read-only, so the above
+check is incorrect.  You just want:
+
+    SvREADONLY(sv)
+
+If you need to do this check often, define your own macro like this:
+
+    #if PERL_VERSION >= 18
+    # define SvTRULYREADONLY(sv) SvREADONLY(sv)
+    #else
+    # define SvTRULYREADONLY(sv) (SvREADONLY(sv) && !SvIsCOW(sv))
+    #endif
+
+=head2 Copy on Write
+
+Perl implements a copy-on-write (COW) mechanism for scalars, in which
+string copies are not immediately made when requested, but are deferred
+until made necessary by one or the other scalar changing.  This is mostly
+transparent, but one must take care not to modify string buffers that are
+shared by multiple SVs.
+
+You can test whether an SV is using copy-on-write with C<SvIsCOW(sv)>.
+
+You can force an SV to make its own copy of its string buffer by calling C<sv_force_normal(sv)> or SvPV_force_nolen(sv).
+
+If you want to make the SV drop its string buffer, use
+C<sv_force_normal_flags(sv, SV_COW_DROP_PV)> or simply
+C<sv_setsv(sv, NULL)>.
+
+All of these functions will croak on read-only scalars (see the previous
+section for more on those).
+
+To test that your code is behaving correctly and not modifying COW buffers,
+on systems that support L<mmap(2)> (i.e., Unix) you can configure perl with
+C<-Accflags=-DPERL_DEBUG_READONLY_COW> and it will turn buffer violations
+into crashes.  You will find it to be marvellously slow, so you may want to
+skip perl's own tests.
+
+=head2 Magic Variables
+
+[This section still under construction.  Ignore everything here.  Post no
+bills.  Everything not permitted is forbidden.]
+
+Any SV may be magical, that is, it has special features that a normal
+SV does not have.  These features are stored in the SV structure in a
+linked list of C<struct magic>'s, typedef'ed to C<MAGIC>.
+
+    struct magic {
+        MAGIC*      mg_moremagic;
+        MGVTBL*     mg_virtual;
+        U16         mg_private;
+        char        mg_type;
+        U8          mg_flags;
+        I32         mg_len;
+        SV*         mg_obj;
+        char*       mg_ptr;
+    };
+
+Note this is current as of patchlevel 0, and could change at any time.
+
+=head2 Assigning Magic
+
+Perl adds magic to an SV using the sv_magic function:
+
+  void sv_magic(SV* sv, SV* obj, int how, const char* name, I32 namlen);
+
+The C<sv> argument is a pointer to the SV that is to acquire a new magical
+feature.
+
+If C<sv> is not already magical, Perl uses the C<SvUPGRADE> macro to
+convert C<sv> to type C<SVt_PVMG>.
+Perl then continues by adding new magic
+to the beginning of the linked list of magical features.  Any prior entry
+of the same type of magic is deleted.  Note that this can be overridden,
+and multiple instances of the same type of magic can be associated with an
+SV.
+
+The C<name> and C<namlen> arguments are used to associate a string with
+the magic, typically the name of a variable.  C<namlen> is stored in the
+C<mg_len> field and if C<name> is non-null then either a C<savepvn> copy of
+C<name> or C<name> itself is stored in the C<mg_ptr> field, depending on
+whether C<namlen> is greater than zero or equal to zero respectively.  As a
+special case, if C<(name && namlen == HEf_SVKEY)> then C<name> is assumed
+to contain an C<SV*> and is stored as-is with its REFCNT incremented.
+
+The sv_magic function uses C<how> to determine which, if any, predefined
+"Magic Virtual Table" should be assigned to the C<mg_virtual> field.
+See the L<Magic Virtual Tables> section below.  The C<how> argument is also
+stored in the C<mg_type> field.  The value of
+C<how> should be chosen from the set of macros
+C<PERL_MAGIC_foo> found in F<perl.h>.  Note that before
+these macros were added, Perl internals used to directly use character
+literals, so you may occasionally come across old code or documentation
+referring to 'U' magic rather than C<PERL_MAGIC_uvar> for example.
+
+The C<obj> argument is stored in the C<mg_obj> field of the C<MAGIC>
+structure.  If it is not the same as the C<sv> argument, the reference
+count of the C<obj> object is incremented.  If it is the same, or if
+the C<how> argument is C<PERL_MAGIC_arylen>, or if it is a NULL pointer,
+then C<obj> is merely stored, without the reference count being incremented.
+
+See also C<sv_magicext> in L<perlapi> for a more flexible way to add magic
+to an SV.
+
+There is also a function to add magic to an C<HV>:
+
+    void hv_magic(HV *hv, GV *gv, int how);
+
+This simply calls C<sv_magic> and coerces the C<gv> argument into an C<SV>.
+
+To remove the magic from an SV, call the function sv_unmagic:
+
+    int sv_unmagic(SV *sv, int type);
+
+The C<type> argument should be equal to the C<how> value when the C<SV>
+was initially made magical.
+
+However, note that C<sv_unmagic> removes all magic of a certain C<type> from the
+C<SV>.  If you want to remove only certain
+magic of a C<type> based on the magic
+virtual table, use C<sv_unmagicext> instead:
+
+    int sv_unmagicext(SV *sv, int type, MGVTBL *vtbl);
+
+=head2 Magic Virtual Tables
+
+The C<mg_virtual> field in the C<MAGIC> structure is a pointer to an
+C<MGVTBL>, which is a structure of function pointers and stands for
+"Magic Virtual Table" to handle the various operations that might be
+applied to that variable.
+
+The C<MGVTBL> has five (or sometimes eight) pointers to the following
+routine types:
+
+    int  (*svt_get)(SV* sv, MAGIC* mg);
+    int  (*svt_set)(SV* sv, MAGIC* mg);
+    U32  (*svt_len)(SV* sv, MAGIC* mg);
+    int  (*svt_clear)(SV* sv, MAGIC* mg);
+    int  (*svt_free)(SV* sv, MAGIC* mg);
+
+    int  (*svt_copy)(SV *sv, MAGIC* mg, SV *nsv,
+                                          const char *name, I32 namlen);
+    int  (*svt_dup)(MAGIC *mg, CLONE_PARAMS *param);
+    int  (*svt_local)(SV *nsv, MAGIC *mg);
+
+
+This MGVTBL structure is set at compile-time in F<perl.h> and there are
+currently 32 types.  These different structures contain pointers to various
+routines that perform additional actions depending on which function is
+being called.
+
+   Function pointer    Action taken
+   ----------------    ------------
+   svt_get             Do something before the value of the SV is
+                       retrieved.
+   svt_set             Do something after the SV is assigned a value.
+   svt_len             Report on the SV's length.
+   svt_clear           Clear something the SV represents.
+   svt_free            Free any extra storage associated with the SV.
+
+   svt_copy            copy tied variable magic to a tied element
+   svt_dup             duplicate a magic structure during thread cloning
+   svt_local           copy magic to local value during 'local'
+
+For instance, the MGVTBL structure called C<vtbl_sv> (which corresponds
+to an C<mg_type> of C<PERL_MAGIC_sv>) contains:
+
+    { magic_get, magic_set, magic_len, 0, 0 }
+
+Thus, when an SV is determined to be magical and of type C<PERL_MAGIC_sv>,
+if a get operation is being performed, the routine C<magic_get> is
+called.  All the various routines for the various magical types begin
+with C<magic_>.  NOTE: the magic routines are not considered part of
+the Perl API, and may not be exported by the Perl library.
+
+The last three slots are a recent addition, and for source code
+compatibility they are only checked for if one of the three flags
+MGf_COPY, MGf_DUP or MGf_LOCAL is set in mg_flags.
+This means that most code can continue declaring
+a vtable as a 5-element value.  These three are
+currently used exclusively by the threading code, and are highly subject
+to change.
+
+The current kinds of Magic Virtual Tables are:
+
+=for comment
+This table is generated by regen/mg_vtable.pl.  Any changes made here
+will be lost.
+
+=for mg_vtable.pl begin
+
+ mg_type
+ (old-style char and macro)   MGVTBL         Type of magic
+ --------------------------   ------         -------------
+ \0 PERL_MAGIC_sv             vtbl_sv        Special scalar variable
+ #  PERL_MAGIC_arylen         vtbl_arylen    Array length ($#ary)
+ %  PERL_MAGIC_rhash          (none)         Extra data for restricted
+                                             hashes
+ *  PERL_MAGIC_debugvar       vtbl_debugvar  $DB::single, signal, trace
+                                             vars
+ .  PERL_MAGIC_pos            vtbl_pos       pos() lvalue
+ :  PERL_MAGIC_symtab         (none)         Extra data for symbol
+                                             tables
+ <  PERL_MAGIC_backref        vtbl_backref   For weak ref data
+ @  PERL_MAGIC_arylen_p       (none)         To move arylen out of XPVAV
+ B  PERL_MAGIC_bm             vtbl_regexp    Boyer-Moore 
+                                             (fast string search)
+ c  PERL_MAGIC_overload_table vtbl_ovrld     Holds overload table 
+                                             (AMT) on stash
+ D  PERL_MAGIC_regdata        vtbl_regdata   Regex match position data 
+                                             (@+ and @- vars)
+ d  PERL_MAGIC_regdatum       vtbl_regdatum  Regex match position data
+                                             element
+ E  PERL_MAGIC_env            vtbl_env       %ENV hash
+ e  PERL_MAGIC_envelem        vtbl_envelem   %ENV hash element
+ f  PERL_MAGIC_fm             vtbl_regexp    Formline 
+                                             ('compiled' format)
+ g  PERL_MAGIC_regex_global   vtbl_mglob     m//g target
+ H  PERL_MAGIC_hints          vtbl_hints     %^H hash
+ h  PERL_MAGIC_hintselem      vtbl_hintselem %^H hash element
+ I  PERL_MAGIC_isa            vtbl_isa       @ISA array
+ i  PERL_MAGIC_isaelem        vtbl_isaelem   @ISA array element
+ k  PERL_MAGIC_nkeys          vtbl_nkeys     scalar(keys()) lvalue
+ L  PERL_MAGIC_dbfile         (none)         Debugger %_<filename
+ l  PERL_MAGIC_dbline         vtbl_dbline    Debugger %_<filename
+                                             element
+ N  PERL_MAGIC_shared         (none)         Shared between threads
+ n  PERL_MAGIC_shared_scalar  (none)         Shared between threads
+ o  PERL_MAGIC_collxfrm       vtbl_collxfrm  Locale transformation
+ P  PERL_MAGIC_tied           vtbl_pack      Tied array or hash
+ p  PERL_MAGIC_tiedelem       vtbl_packelem  Tied array or hash element
+ q  PERL_MAGIC_tiedscalar     vtbl_packelem  Tied scalar or handle
+ r  PERL_MAGIC_qr             vtbl_regexp    Precompiled qr// regex
+ S  PERL_MAGIC_sig            (none)         %SIG hash
+ s  PERL_MAGIC_sigelem        vtbl_sigelem   %SIG hash element
+ t  PERL_MAGIC_taint          vtbl_taint     Taintedness
+ U  PERL_MAGIC_uvar           vtbl_uvar      Available for use by
+                                             extensions
+ u  PERL_MAGIC_uvar_elem      (none)         Reserved for use by
+                                             extensions
+ V  PERL_MAGIC_vstring        (none)         SV was vstring literal
+ v  PERL_MAGIC_vec            vtbl_vec       vec() lvalue
+ w  PERL_MAGIC_utf8           vtbl_utf8      Cached UTF-8 information
+ x  PERL_MAGIC_substr         vtbl_substr    substr() lvalue
+ y  PERL_MAGIC_defelem        vtbl_defelem   Shadow "foreach" iterator
+                                             variable / smart parameter
+                                             vivification
+ \  PERL_MAGIC_lvref          vtbl_lvref     Lvalue reference
+                                             constructor
+ ]  PERL_MAGIC_checkcall      vtbl_checkcall Inlining/mutation of call
+                                             to this CV
+ ~  PERL_MAGIC_ext            (none)         Available for use by
+                                             extensions
+
+=for mg_vtable.pl end
+
+When an uppercase and lowercase letter both exist in the table, then the
+uppercase letter is typically used to represent some kind of composite type
+(a list or a hash), and the lowercase letter is used to represent an element
+of that composite type.  Some internals code makes use of this case
+relationship.  However, 'v' and 'V' (vec and v-string) are in no way related.
+
+The C<PERL_MAGIC_ext> and C<PERL_MAGIC_uvar> magic types are defined
+specifically for use by extensions and will not be used by perl itself.
+Extensions can use C<PERL_MAGIC_ext> magic to 'attach' private information
+to variables (typically objects).  This is especially useful because
+there is no way for normal perl code to corrupt this private information
+(unlike using extra elements of a hash object).
+
+Similarly, C<PERL_MAGIC_uvar> magic can be used much like tie() to call a
+C function any time a scalar's value is used or changed.  The C<MAGIC>'s
+C<mg_ptr> field points to a C<ufuncs> structure:
+
+    struct ufuncs {
+        I32 (*uf_val)(pTHX_ IV, SV*);
+        I32 (*uf_set)(pTHX_ IV, SV*);
+        IV uf_index;
+    };
+
+When the SV is read from or written to, the C<uf_val> or C<uf_set>
+function will be called with C<uf_index> as the first arg and a pointer to
+the SV as the second.  A simple example of how to add C<PERL_MAGIC_uvar>
+magic is shown below.  Note that the ufuncs structure is copied by
+sv_magic, so you can safely allocate it on the stack.
+
+    void
+    Umagic(sv)
+        SV *sv;
+    PREINIT:
+        struct ufuncs uf;
+    CODE:
+        uf.uf_val   = &my_get_fn;
+        uf.uf_set   = &my_set_fn;
+        uf.uf_index = 0;
+        sv_magic(sv, 0, PERL_MAGIC_uvar, (char*)&uf, sizeof(uf));
+
+Attaching C<PERL_MAGIC_uvar> to arrays is permissible but has no effect.
+
+For hashes there is a specialized hook that gives control over hash
+keys (but not values).  This hook calls C<PERL_MAGIC_uvar> 'get' magic
+if the "set" function in the C<ufuncs> structure is NULL.  The hook
+is activated whenever the hash is accessed with a key specified as
+an C<SV> through the functions C<hv_store_ent>, C<hv_fetch_ent>,
+C<hv_delete_ent>, and C<hv_exists_ent>.  Accessing the key as a string
+through the functions without the C<..._ent> suffix circumvents the
+hook.  See L<Hash::Util::FieldHash/GUTS> for a detailed description.
+
+Note that because multiple extensions may be using C<PERL_MAGIC_ext>
+or C<PERL_MAGIC_uvar> magic, it is important for extensions to take
+extra care to avoid conflict.  Typically only using the magic on
+objects blessed into the same class as the extension is sufficient.
+For C<PERL_MAGIC_ext> magic, it is usually a good idea to define an
+C<MGVTBL>, even if all its fields will be C<0>, so that individual
+C<MAGIC> pointers can be identified as a particular kind of magic
+using their magic virtual table.  C<mg_findext> provides an easy way
+to do that:
+
+    STATIC MGVTBL my_vtbl = { 0, 0, 0, 0, 0, 0, 0, 0 };
+
+    MAGIC *mg;
+    if ((mg = mg_findext(sv, PERL_MAGIC_ext, &my_vtbl))) {
+        /* this is really ours, not another module's PERL_MAGIC_ext */
+        my_priv_data_t *priv = (my_priv_data_t *)mg->mg_ptr;
+        ...
+    }
+
+Also note that the C<sv_set*()> and C<sv_cat*()> functions described
+earlier do B<not> invoke 'set' magic on their targets.  This must
+be done by the user either by calling the C<SvSETMAGIC()> macro after
+calling these functions, or by using one of the C<sv_set*_mg()> or
+C<sv_cat*_mg()> functions.  Similarly, generic C code must call the
+C<SvGETMAGIC()> macro to invoke any 'get' magic if they use an SV
+obtained from external sources in functions that don't handle magic.
+See L<perlapi> for a description of these functions.
+For example, calls to the C<sv_cat*()> functions typically need to be
+followed by C<SvSETMAGIC()>, but they don't need a prior C<SvGETMAGIC()>
+since their implementation handles 'get' magic.
+
+=head2 Finding Magic
+
+    MAGIC *mg_find(SV *sv, int type); /* Finds the magic pointer of that
+                                       * type */
+
+This routine returns a pointer to a C<MAGIC> structure stored in the SV.
+If the SV does not have that magical
+feature, C<NULL> is returned.  If the
+SV has multiple instances of that magical feature, the first one will be
+returned.  C<mg_findext> can be used
+to find a C<MAGIC> structure of an SV
+based on both its magic type and its magic virtual table:
+
+    MAGIC *mg_findext(SV *sv, int type, MGVTBL *vtbl);
+
+Also, if the SV passed to C<mg_find> or C<mg_findext> is not of type
+SVt_PVMG, Perl may core dump.
+
+    int mg_copy(SV* sv, SV* nsv, const char* key, STRLEN klen);
+
+This routine checks to see what types of magic C<sv> has.  If the mg_type
+field is an uppercase letter, then the mg_obj is copied to C<nsv>, but
+the mg_type field is changed to be the lowercase letter.
+
+=head2 Understanding the Magic of Tied Hashes and Arrays
+
+Tied hashes and arrays are magical beasts of the C<PERL_MAGIC_tied>
+magic type.
+
+WARNING: As of the 5.004 release, proper usage of the array and hash
+access functions requires understanding a few caveats.  Some
+of these caveats are actually considered bugs in the API, to be fixed
+in later releases, and are bracketed with [MAYCHANGE] below.  If
+you find yourself actually applying such information in this section, be
+aware that the behavior may change in the future, umm, without warning.
+
+The perl tie function associates a variable with an object that implements
+the various GET, SET, etc methods.  To perform the equivalent of the perl
+tie function from an XSUB, you must mimic this behaviour.  The code below
+carries out the necessary steps -- firstly it creates a new hash, and then
+creates a second hash which it blesses into the class which will implement
+the tie methods.  Lastly it ties the two hashes together, and returns a
+reference to the new tied hash.  Note that the code below does NOT call the
+TIEHASH method in the MyTie class -
+see L<Calling Perl Routines from within C Programs> for details on how
+to do this.
+
+    SV*
+    mytie()
+    PREINIT:
+        HV *hash;
+        HV *stash;
+        SV *tie;
+    CODE:
+        hash = newHV();
+        tie = newRV_noinc((SV*)newHV());
+        stash = gv_stashpv("MyTie", GV_ADD);
+        sv_bless(tie, stash);
+        hv_magic(hash, (GV*)tie, PERL_MAGIC_tied);
+        RETVAL = newRV_noinc(hash);
+    OUTPUT:
+        RETVAL
+
+The C<av_store> function, when given a tied array argument, merely
+copies the magic of the array onto the value to be "stored", using
+C<mg_copy>.  It may also return NULL, indicating that the value did not
+actually need to be stored in the array.  [MAYCHANGE] After a call to
+C<av_store> on a tied array, the caller will usually need to call
+C<mg_set(val)> to actually invoke the perl level "STORE" method on the
+TIEARRAY object.  If C<av_store> did return NULL, a call to
+C<SvREFCNT_dec(val)> will also be usually necessary to avoid a memory
+leak. [/MAYCHANGE]
+
+The previous paragraph is applicable verbatim to tied hash access using the
+C<hv_store> and C<hv_store_ent> functions as well.
+
+C<av_fetch> and the corresponding hash functions C<hv_fetch> and
+C<hv_fetch_ent> actually return an undefined mortal value whose magic
+has been initialized using C<mg_copy>.  Note the value so returned does not
+need to be deallocated, as it is already mortal.  [MAYCHANGE] But you will
+need to call C<mg_get()> on the returned value in order to actually invoke
+the perl level "FETCH" method on the underlying TIE object.  Similarly,
+you may also call C<mg_set()> on the return value after possibly assigning
+a suitable value to it using C<sv_setsv>,  which will invoke the "STORE"
+method on the TIE object. [/MAYCHANGE]
+
+[MAYCHANGE]
+In other words, the array or hash fetch/store functions don't really
+fetch and store actual values in the case of tied arrays and hashes.  They
+merely call C<mg_copy> to attach magic to the values that were meant to be
+"stored" or "fetched".  Later calls to C<mg_get> and C<mg_set> actually
+do the job of invoking the TIE methods on the underlying objects.  Thus
+the magic mechanism currently implements a kind of lazy access to arrays
+and hashes.
+
+Currently (as of perl version 5.004), use of the hash and array access
+functions requires the user to be aware of whether they are operating on
+"normal" hashes and arrays, or on their tied variants.  The API may be
+changed to provide more transparent access to both tied and normal data
+types in future versions.
+[/MAYCHANGE]
+
+You would do well to understand that the TIEARRAY and TIEHASH interfaces
+are mere sugar to invoke some perl method calls while using the uniform hash
+and array syntax.  The use of this sugar imposes some overhead (typically
+about two to four extra opcodes per FETCH/STORE operation, in addition to
+the creation of all the mortal variables required to invoke the methods).
+This overhead will be comparatively small if the TIE methods are themselves
+substantial, but if they are only a few statements long, the overhead
+will not be insignificant.
+
+=head2 Localizing changes
+
+Perl has a very handy construction
+
+  {
+    local $var = 2;
+    ...
+  }
+
+This construction is I<approximately> equivalent to
+
+  {
+    my $oldvar = $var;
+    $var = 2;
+    ...
+    $var = $oldvar;
+  }
+
+The biggest difference is that the first construction would
+reinstate the initial value of $var, irrespective of how control exits
+the block: C<goto>, C<return>, C<die>/C<eval>, etc.  It is a little bit
+more efficient as well.
+
+There is a way to achieve a similar task from C via Perl API: create a
+I<pseudo-block>, and arrange for some changes to be automatically
+undone at the end of it, either explicit, or via a non-local exit (via
+die()).  A I<block>-like construct is created by a pair of
+C<ENTER>/C<LEAVE> macros (see L<perlcall/"Returning a Scalar">).
+Such a construct may be created specially for some important localized
+task, or an existing one (like boundaries of enclosing Perl
+subroutine/block, or an existing pair for freeing TMPs) may be
+used.  (In the second case the overhead of additional localization must
+be almost negligible.)  Note that any XSUB is automatically enclosed in
+an C<ENTER>/C<LEAVE> pair.
+
+Inside such a I<pseudo-block> the following service is available:
+
+=over 4
+
+=item C<SAVEINT(int i)>
+
+=item C<SAVEIV(IV i)>
+
+=item C<SAVEI32(I32 i)>
+
+=item C<SAVELONG(long i)>
+
+These macros arrange things to restore the value of integer variable
+C<i> at the end of enclosing I<pseudo-block>.
+
+=item C<SAVESPTR(s)>
+
+=item C<SAVEPPTR(p)>
+
+These macros arrange things to restore the value of pointers C<s> and
+C<p>.  C<s> must be a pointer of a type which survives conversion to
+C<SV*> and back, C<p> should be able to survive conversion to C<char*>
+and back.
+
+=item C<SAVEFREESV(SV *sv)>
+
+The refcount of C<sv> will be decremented at the end of
+I<pseudo-block>.  This is similar to C<sv_2mortal> in that it is also a
+mechanism for doing a delayed C<SvREFCNT_dec>.  However, while C<sv_2mortal>
+extends the lifetime of C<sv> until the beginning of the next statement,
+C<SAVEFREESV> extends it until the end of the enclosing scope.  These
+lifetimes can be wildly different.
+
+Also compare C<SAVEMORTALIZESV>.
+
+=item C<SAVEMORTALIZESV(SV *sv)>
+
+Just like C<SAVEFREESV>, but mortalizes C<sv> at the end of the current
+scope instead of decrementing its reference count.  This usually has the
+effect of keeping C<sv> alive until the statement that called the currently
+live scope has finished executing.
+
+=item C<SAVEFREEOP(OP *op)>
+
+The C<OP *> is op_free()ed at the end of I<pseudo-block>.
+
+=item C<SAVEFREEPV(p)>
+
+The chunk of memory which is pointed to by C<p> is Safefree()ed at the
+end of I<pseudo-block>.
+
+=item C<SAVECLEARSV(SV *sv)>
+
+Clears a slot in the current scratchpad which corresponds to C<sv> at
+the end of I<pseudo-block>.
+
+=item C<SAVEDELETE(HV *hv, char *key, I32 length)>
+
+The key C<key> of C<hv> is deleted at the end of I<pseudo-block>.  The
+string pointed to by C<key> is Safefree()ed.  If one has a I<key> in
+short-lived storage, the corresponding string may be reallocated like
+this:
+
+  SAVEDELETE(PL_defstash, savepv(tmpbuf), strlen(tmpbuf));
+
+=item C<SAVEDESTRUCTOR(DESTRUCTORFUNC_NOCONTEXT_t f, void *p)>
+
+At the end of I<pseudo-block> the function C<f> is called with the
+only argument C<p>.
+
+=item C<SAVEDESTRUCTOR_X(DESTRUCTORFUNC_t f, void *p)>
+
+At the end of I<pseudo-block> the function C<f> is called with the
+implicit context argument (if any), and C<p>.
+
+=item C<SAVESTACK_POS()>
+
+The current offset on the Perl internal stack (cf. C<SP>) is restored
+at the end of I<pseudo-block>.
+
+=back
+
+The following API list contains functions, thus one needs to
+provide pointers to the modifiable data explicitly (either C pointers,
+or Perlish C<GV *>s).  Where the above macros take C<int>, a similar
+function takes C<int *>.
+
+=over 4
+
+=item C<SV* save_scalar(GV *gv)>
+
+Equivalent to Perl code C<local $gv>.
+
+=item C<AV* save_ary(GV *gv)>
+
+=item C<HV* save_hash(GV *gv)>
+
+Similar to C<save_scalar>, but localize C<@gv> and C<%gv>.
+
+=item C<void save_item(SV *item)>
+
+Duplicates the current value of C<SV>, on the exit from the current
+C<ENTER>/C<LEAVE> I<pseudo-block> will restore the value of C<SV>
+using the stored value.  It doesn't handle magic.  Use C<save_scalar> if
+magic is affected.
+
+=item C<void save_list(SV **sarg, I32 maxsarg)>
+
+A variant of C<save_item> which takes multiple arguments via an array
+C<sarg> of C<SV*> of length C<maxsarg>.
+
+=item C<SV* save_svref(SV **sptr)>
+
+Similar to C<save_scalar>, but will reinstate an C<SV *>.
+
+=item C<void save_aptr(AV **aptr)>
+
+=item C<void save_hptr(HV **hptr)>
+
+Similar to C<save_svref>, but localize C<AV *> and C<HV *>.
+
+=back
+
+The C<Alias> module implements localization of the basic types within the
+I<caller's scope>.  People who are interested in how to localize things in
+the containing scope should take a look there too.
+
+=head1 Subroutines
+
+=head2 XSUBs and the Argument Stack
+
+The XSUB mechanism is a simple way for Perl programs to access C subroutines.
+An XSUB routine will have a stack that contains the arguments from the Perl
+program, and a way to map from the Perl data structures to a C equivalent.
+
+The stack arguments are accessible through the C<ST(n)> macro, which returns
+the C<n>'th stack argument.  Argument 0 is the first argument passed in the
+Perl subroutine call.  These arguments are C<SV*>, and can be used anywhere
+an C<SV*> is used.
+
+Most of the time, output from the C routine can be handled through use of
+the RETVAL and OUTPUT directives.  However, there are some cases where the
+argument stack is not already long enough to handle all the return values.
+An example is the POSIX tzname() call, which takes no arguments, but returns
+two, the local time zone's standard and summer time abbreviations.
+
+To handle this situation, the PPCODE directive is used and the stack is
+extended using the macro:
+
+    EXTEND(SP, num);
+
+where C<SP> is the macro that represents the local copy of the stack pointer,
+and C<num> is the number of elements the stack should be extended by.
+
+Now that there is room on the stack, values can be pushed on it using C<PUSHs>
+macro.  The pushed values will often need to be "mortal" (See
+L</Reference Counts and Mortality>):
+
+    PUSHs(sv_2mortal(newSViv(an_integer)))
+    PUSHs(sv_2mortal(newSVuv(an_unsigned_integer)))
+    PUSHs(sv_2mortal(newSVnv(a_double)))
+    PUSHs(sv_2mortal(newSVpv("Some String",0)))
+    /* Although the last example is better written as the more
+     * efficient: */
+    PUSHs(newSVpvs_flags("Some String", SVs_TEMP))
+
+And now the Perl program calling C<tzname>, the two values will be assigned
+as in:
+
+    ($standard_abbrev, $summer_abbrev) = POSIX::tzname;
+
+An alternate (and possibly simpler) method to pushing values on the stack is
+to use the macro:
+
+    XPUSHs(SV*)
+
+This macro automatically adjusts the stack for you, if needed.  Thus, you
+do not need to call C<EXTEND> to extend the stack.
+
+Despite their suggestions in earlier versions of this document the macros
+C<(X)PUSH[iunp]> are I<not> suited to XSUBs which return multiple results.
+For that, either stick to the C<(X)PUSHs> macros shown above, or use the new
+C<m(X)PUSH[iunp]> macros instead; see L</Putting a C value on Perl stack>.
+
+For more information, consult L<perlxs> and L<perlxstut>.
+
+=head2 Autoloading with XSUBs
+
+If an AUTOLOAD routine is an XSUB, as with Perl subroutines, Perl puts the
+fully-qualified name of the autoloaded subroutine in the $AUTOLOAD variable
+of the XSUB's package.
+
+But it also puts the same information in certain fields of the XSUB itself:
+
+    HV *stash           = CvSTASH(cv);
+    const char *subname = SvPVX(cv);
+    STRLEN name_length  = SvCUR(cv); /* in bytes */
+    U32 is_utf8         = SvUTF8(cv);
+
+C<SvPVX(cv)> contains just the sub name itself, not including the package.
+For an AUTOLOAD routine in UNIVERSAL or one of its superclasses,
+C<CvSTASH(cv)> returns NULL during a method call on a nonexistent package.
+
+B<Note>: Setting $AUTOLOAD stopped working in 5.6.1, which did not support
+XS AUTOLOAD subs at all.  Perl 5.8.0 introduced the use of fields in the
+XSUB itself.  Perl 5.16.0 restored the setting of $AUTOLOAD.  If you need
+to support 5.8-5.14, use the XSUB's fields.
+
+=head2 Calling Perl Routines from within C Programs
+
+There are four routines that can be used to call a Perl subroutine from
+within a C program.  These four are:
+
+    I32  call_sv(SV*, I32);
+    I32  call_pv(const char*, I32);
+    I32  call_method(const char*, I32);
+    I32  call_argv(const char*, I32, char**);
+
+The routine most often used is C<call_sv>.  The C<SV*> argument
+contains either the name of the Perl subroutine to be called, or a
+reference to the subroutine.  The second argument consists of flags
+that control the context in which the subroutine is called, whether
+or not the subroutine is being passed arguments, how errors should be
+trapped, and how to treat return values.
+
+All four routines return the number of arguments that the subroutine returned
+on the Perl stack.
+
+These routines used to be called C<perl_call_sv>, etc., before Perl v5.6.0,
+but those names are now deprecated; macros of the same name are provided for
+compatibility.
+
+When using any of these routines (except C<call_argv>), the programmer
+must manipulate the Perl stack.  These include the following macros and
+functions:
+
+    dSP
+    SP
+    PUSHMARK()
+    PUTBACK
+    SPAGAIN
+    ENTER
+    SAVETMPS
+    FREETMPS
+    LEAVE
+    XPUSH*()
+    POP*()
+
+For a detailed description of calling conventions from C to Perl,
+consult L<perlcall>.
+
+=head2 Putting a C value on Perl stack
+
+A lot of opcodes (this is an elementary operation in the internal perl
+stack machine) put an SV* on the stack.  However, as an optimization
+the corresponding SV is (usually) not recreated each time.  The opcodes
+reuse specially assigned SVs (I<target>s) which are (as a corollary)
+not constantly freed/created.
+
+Each of the targets is created only once (but see
+L<Scratchpads and recursion> below), and when an opcode needs to put
+an integer, a double, or a string on stack, it just sets the
+corresponding parts of its I<target> and puts the I<target> on stack.
+
+The macro to put this target on stack is C<PUSHTARG>, and it is
+directly used in some opcodes, as well as indirectly in zillions of
+others, which use it via C<(X)PUSH[iunp]>.
+
+Because the target is reused, you must be careful when pushing multiple
+values on the stack.  The following code will not do what you think:
+
+    XPUSHi(10);
+    XPUSHi(20);
+
+This translates as "set C<TARG> to 10, push a pointer to C<TARG> onto
+the stack; set C<TARG> to 20, push a pointer to C<TARG> onto the stack".
+At the end of the operation, the stack does not contain the values 10
+and 20, but actually contains two pointers to C<TARG>, which we have set
+to 20.
+
+If you need to push multiple different values then you should either use
+the C<(X)PUSHs> macros, or else use the new C<m(X)PUSH[iunp]> macros,
+none of which make use of C<TARG>.  The C<(X)PUSHs> macros simply push an
+SV* on the stack, which, as noted under L</XSUBs and the Argument Stack>,
+will often need to be "mortal".  The new C<m(X)PUSH[iunp]> macros make
+this a little easier to achieve by creating a new mortal for you (via
+C<(X)PUSHmortal>), pushing that onto the stack (extending it if necessary
+in the case of the C<mXPUSH[iunp]> macros), and then setting its value.
+Thus, instead of writing this to "fix" the example above:
+
+    XPUSHs(sv_2mortal(newSViv(10)))
+    XPUSHs(sv_2mortal(newSViv(20)))
+
+you can simply write:
+
+    mXPUSHi(10)
+    mXPUSHi(20)
+
+On a related note, if you do use C<(X)PUSH[iunp]>, then you're going to
+need a C<dTARG> in your variable declarations so that the C<*PUSH*>
+macros can make use of the local variable C<TARG>.  See also C<dTARGET>
+and C<dXSTARG>.
+
+=head2 Scratchpads
+
+The question remains on when the SVs which are I<target>s for opcodes
+are created.  The answer is that they are created when the current
+unit--a subroutine or a file (for opcodes for statements outside of
+subroutines)--is compiled.  During this time a special anonymous Perl
+array is created, which is called a scratchpad for the current unit.
+
+A scratchpad keeps SVs which are lexicals for the current unit and are
+targets for opcodes.  A previous version of this document
+stated that one can deduce that an SV lives on a scratchpad
+by looking on its flags: lexicals have C<SVs_PADMY> set, and
+I<target>s have C<SVs_PADTMP> set.  But this has never been fully true.
+C<SVs_PADMY> could be set on a variable that no longer resides in any pad.
+While I<target>s do have C<SVs_PADTMP> set, it can also be set on variables
+that have never resided in a pad, but nonetheless act like I<target>s.  As
+of perl 5.21.5, the C<SVs_PADMY> flag is no longer used and is defined as
+0.  C<SvPADMY()> now returns true for anything without C<SVs_PADTMP>.
+
+The correspondence between OPs and I<target>s is not 1-to-1.  Different
+OPs in the compile tree of the unit can use the same target, if this
+would not conflict with the expected life of the temporary.
+
+=head2 Scratchpads and recursion
+
+In fact it is not 100% true that a compiled unit contains a pointer to
+the scratchpad AV.  In fact it contains a pointer to an AV of
+(initially) one element, and this element is the scratchpad AV.  Why do
+we need an extra level of indirection?
+
+The answer is B<recursion>, and maybe B<threads>.  Both
+these can create several execution pointers going into the same
+subroutine.  For the subroutine-child not write over the temporaries
+for the subroutine-parent (lifespan of which covers the call to the
+child), the parent and the child should have different
+scratchpads.  (I<And> the lexicals should be separate anyway!)
+
+So each subroutine is born with an array of scratchpads (of length 1).
+On each entry to the subroutine it is checked that the current
+depth of the recursion is not more than the length of this array, and
+if it is, new scratchpad is created and pushed into the array.
+
+The I<target>s on this scratchpad are C<undef>s, but they are already
+marked with correct flags.
+
+=head1 Memory Allocation
+
+=head2 Allocation
+
+All memory meant to be used with the Perl API functions should be manipulated
+using the macros described in this section.  The macros provide the necessary
+transparency between differences in the actual malloc implementation that is
+used within perl.
+
+It is suggested that you enable the version of malloc that is distributed
+with Perl.  It keeps pools of various sizes of unallocated memory in
+order to satisfy allocation requests more quickly.  However, on some
+platforms, it may cause spurious malloc or free errors.
+
+The following three macros are used to initially allocate memory :
+
+    Newx(pointer, number, type);
+    Newxc(pointer, number, type, cast);
+    Newxz(pointer, number, type);
+
+The first argument C<pointer> should be the name of a variable that will
+point to the newly allocated memory.
+
+The second and third arguments C<number> and C<type> specify how many of
+the specified type of data structure should be allocated.  The argument
+C<type> is passed to C<sizeof>.  The final argument to C<Newxc>, C<cast>,
+should be used if the C<pointer> argument is different from the C<type>
+argument.
+
+Unlike the C<Newx> and C<Newxc> macros, the C<Newxz> macro calls C<memzero>
+to zero out all the newly allocated memory.
+
+=head2 Reallocation
+
+    Renew(pointer, number, type);
+    Renewc(pointer, number, type, cast);
+    Safefree(pointer)
+
+These three macros are used to change a memory buffer size or to free a
+piece of memory no longer needed.  The arguments to C<Renew> and C<Renewc>
+match those of C<New> and C<Newc> with the exception of not needing the
+"magic cookie" argument.
+
+=head2 Moving
+
+    Move(source, dest, number, type);
+    Copy(source, dest, number, type);
+    Zero(dest, number, type);
+
+These three macros are used to move, copy, or zero out previously allocated
+memory.  The C<source> and C<dest> arguments point to the source and
+destination starting points.  Perl will move, copy, or zero out C<number>
+instances of the size of the C<type> data structure (using the C<sizeof>
+function).
+
+=head1 PerlIO
+
+The most recent development releases of Perl have been experimenting with
+removing Perl's dependency on the "normal" standard I/O suite and allowing
+other stdio implementations to be used.  This involves creating a new
+abstraction layer that then calls whichever implementation of stdio Perl
+was compiled with.  All XSUBs should now use the functions in the PerlIO
+abstraction layer and not make any assumptions about what kind of stdio
+is being used.
+
+For a complete description of the PerlIO abstraction, consult L<perlapio>.
+
+=head1 Compiled code
+
+=head2 Code tree
+
+Here we describe the internal form your code is converted to by
+Perl.  Start with a simple example:
+
+  $a = $b + $c;
+
+This is converted to a tree similar to this one:
+
+             assign-to
+           /           \
+          +             $a
+        /   \
+      $b     $c
+
+(but slightly more complicated).  This tree reflects the way Perl
+parsed your code, but has nothing to do with the execution order.
+There is an additional "thread" going through the nodes of the tree
+which shows the order of execution of the nodes.  In our simplified
+example above it looks like:
+
+     $b ---> $c ---> + ---> $a ---> assign-to
+
+But with the actual compile tree for C<$a = $b + $c> it is different:
+some nodes I<optimized away>.  As a corollary, though the actual tree
+contains more nodes than our simplified example, the execution order
+is the same as in our example.
+
+=head2 Examining the tree
+
+If you have your perl compiled for debugging (usually done with
+C<-DDEBUGGING> on the C<Configure> command line), you may examine the
+compiled tree by specifying C<-Dx> on the Perl command line.  The
+output takes several lines per node, and for C<$b+$c> it looks like
+this:
+
+    5           TYPE = add  ===> 6
+                TARG = 1
+                FLAGS = (SCALAR,KIDS)
+                {
+                    TYPE = null  ===> (4)
+                      (was rv2sv)
+                    FLAGS = (SCALAR,KIDS)
+                    {
+    3                   TYPE = gvsv  ===> 4
+                        FLAGS = (SCALAR)
+                        GV = main::b
+                    }
+                }
+                {
+                    TYPE = null  ===> (5)
+                      (was rv2sv)
+                    FLAGS = (SCALAR,KIDS)
+                    {
+    4                   TYPE = gvsv  ===> 5
+                        FLAGS = (SCALAR)
+                        GV = main::c
+                    }
+                }
+
+This tree has 5 nodes (one per C<TYPE> specifier), only 3 of them are
+not optimized away (one per number in the left column).  The immediate
+children of the given node correspond to C<{}> pairs on the same level
+of indentation, thus this listing corresponds to the tree:
+
+                   add
+                 /     \
+               null    null
+                |       |
+               gvsv    gvsv
+
+The execution order is indicated by C<===E<gt>> marks, thus it is C<3
+4 5 6> (node C<6> is not included into above listing), i.e.,
+C<gvsv gvsv add whatever>.
+
+Each of these nodes represents an op, a fundamental operation inside the
+Perl core.  The code which implements each operation can be found in the
+F<pp*.c> files; the function which implements the op with type C<gvsv>
+is C<pp_gvsv>, and so on.  As the tree above shows, different ops have
+different numbers of children: C<add> is a binary operator, as one would
+expect, and so has two children.  To accommodate the various different
+numbers of children, there are various types of op data structure, and
+they link together in different ways.
+
+The simplest type of op structure is C<OP>: this has no children.  Unary
+operators, C<UNOP>s, have one child, and this is pointed to by the
+C<op_first> field.  Binary operators (C<BINOP>s) have not only an
+C<op_first> field but also an C<op_last> field.  The most complex type of
+op is a C<LISTOP>, which has any number of children.  In this case, the
+first child is pointed to by C<op_first> and the last child by
+C<op_last>.  The children in between can be found by iteratively
+following the C<OpSIBLING> pointer from the first child to the last (but
+see below).
+
+There are also some other op types: a C<PMOP> holds a regular expression,
+and has no children, and a C<LOOP> may or may not have children.  If the
+C<op_children> field is non-zero, it behaves like a C<LISTOP>.  To
+complicate matters, if a C<UNOP> is actually a C<null> op after
+optimization (see L</Compile pass 2: context propagation>) it will still
+have children in accordance with its former type.
+
+Finally, there is a C<LOGOP>, or logic op. Like a C<LISTOP>, this has one
+or more children, but it doesn't have an C<op_last> field: so you have to
+follow C<op_first> and then the C<OpSIBLING> chain itself to find the
+last child. Instead it has an C<op_other> field, which is comparable to
+the C<op_next> field described below, and represents an alternate
+execution path. Operators like C<and>, C<or> and C<?> are C<LOGOP>s. Note
+that in general, C<op_other> may not point to any of the direct children
+of the C<LOGOP>.
+
+Starting in version 5.21.2, perls built with the experimental
+define C<-DPERL_OP_PARENT> add an extra boolean flag for each op,
+C<op_moresib>.  When not set, this indicates that this is the last op in an
+C<OpSIBLING> chain. This frees up the C<op_sibling> field on the last
+sibling to point back to the parent op. Under this build, that field is
+also renamed C<op_sibparent> to reflect its joint role. The macro
+C<OpSIBLING(o)> wraps this special behaviour, and always returns NULL on
+the last sibling.  With this build the C<op_parent(o)> function can be
+used to find the parent of any op. Thus for forward compatibility, you
+should always use the C<OpSIBLING(o)> macro rather than accessing
+C<op_sibling> directly.
+
+Another way to examine the tree is to use a compiler back-end module, such
+as L<B::Concise>.
+
+=head2 Compile pass 1: check routines
+
+The tree is created by the compiler while I<yacc> code feeds it
+the constructions it recognizes.  Since I<yacc> works bottom-up, so does
+the first pass of perl compilation.
+
+What makes this pass interesting for perl developers is that some
+optimization may be performed on this pass.  This is optimization by
+so-called "check routines".  The correspondence between node names
+and corresponding check routines is described in F<opcode.pl> (do not
+forget to run C<make regen_headers> if you modify this file).
+
+A check routine is called when the node is fully constructed except
+for the execution-order thread.  Since at this time there are no
+back-links to the currently constructed node, one can do most any
+operation to the top-level node, including freeing it and/or creating
+new nodes above/below it.
+
+The check routine returns the node which should be inserted into the
+tree (if the top-level node was not modified, check routine returns
+its argument).
+
+By convention, check routines have names C<ck_*>.  They are usually
+called from C<new*OP> subroutines (or C<convert>) (which in turn are
+called from F<perly.y>).
+
+=head2 Compile pass 1a: constant folding
+
+Immediately after the check routine is called the returned node is
+checked for being compile-time executable.  If it is (the value is
+judged to be constant) it is immediately executed, and a I<constant>
+node with the "return value" of the corresponding subtree is
+substituted instead.  The subtree is deleted.
+
+If constant folding was not performed, the execution-order thread is
+created.
+
+=head2 Compile pass 2: context propagation
+
+When a context for a part of compile tree is known, it is propagated
+down through the tree.  At this time the context can have 5 values
+(instead of 2 for runtime context): void, boolean, scalar, list, and
+lvalue.  In contrast with the pass 1 this pass is processed from top
+to bottom: a node's context determines the context for its children.
+
+Additional context-dependent optimizations are performed at this time.
+Since at this moment the compile tree contains back-references (via
+"thread" pointers), nodes cannot be free()d now.  To allow
+optimized-away nodes at this stage, such nodes are null()ified instead
+of free()ing (i.e. their type is changed to OP_NULL).
+
+=head2 Compile pass 3: peephole optimization
+
+After the compile tree for a subroutine (or for an C<eval> or a file)
+is created, an additional pass over the code is performed.  This pass
+is neither top-down or bottom-up, but in the execution order (with
+additional complications for conditionals).  Optimizations performed
+at this stage are subject to the same restrictions as in the pass 2.
+
+Peephole optimizations are done by calling the function pointed to
+by the global variable C<PL_peepp>.  By default, C<PL_peepp> just
+calls the function pointed to by the global variable C<PL_rpeepp>.
+By default, that performs some basic op fixups and optimisations along
+the execution-order op chain, and recursively calls C<PL_rpeepp> for
+each side chain of ops (resulting from conditionals).  Extensions may
+provide additional optimisations or fixups, hooking into either the
+per-subroutine or recursive stage, like this:
+
+    static peep_t prev_peepp;
+    static void my_peep(pTHX_ OP *o)
+    {
+        /* custom per-subroutine optimisation goes here */
+        prev_peepp(aTHX_ o);
+        /* custom per-subroutine optimisation may also go here */
+    }
+    BOOT:
+        prev_peepp = PL_peepp;
+        PL_peepp = my_peep;
+
+    static peep_t prev_rpeepp;
+    static void my_rpeep(pTHX_ OP *o)
+    {
+        OP *orig_o = o;
+        for(; o; o = o->op_next) {
+            /* custom per-op optimisation goes here */
+        }
+        prev_rpeepp(aTHX_ orig_o);
+    }
+    BOOT:
+        prev_rpeepp = PL_rpeepp;
+        PL_rpeepp = my_rpeep;
+
+=head2 Pluggable runops
+
+The compile tree is executed in a runops function.  There are two runops
+functions, in F<run.c> and in F<dump.c>.  C<Perl_runops_debug> is used
+with DEBUGGING and C<Perl_runops_standard> is used otherwise.  For fine
+control over the execution of the compile tree it is possible to provide
+your own runops function.
+
+It's probably best to copy one of the existing runops functions and
+change it to suit your needs.  Then, in the BOOT section of your XS
+file, add the line:
+
+  PL_runops = my_runops;
+
+This function should be as efficient as possible to keep your programs
+running as fast as possible.
+
+=head2 Compile-time scope hooks
+
+As of perl 5.14 it is possible to hook into the compile-time lexical
+scope mechanism using C<Perl_blockhook_register>.  This is used like
+this:
+
+    STATIC void my_start_hook(pTHX_ int full);
+    STATIC BHK my_hooks;
+
+    BOOT:
+        BhkENTRY_set(&my_hooks, bhk_start, my_start_hook);
+        Perl_blockhook_register(aTHX_ &my_hooks);
+
+This will arrange to have C<my_start_hook> called at the start of
+compiling every lexical scope.  The available hooks are:
+
+=over 4
+
+=item C<void bhk_start(pTHX_ int full)>
+
+This is called just after starting a new lexical scope.  Note that Perl
+code like
+
+    if ($x) { ... }
+
+creates two scopes: the first starts at the C<(> and has C<full == 1>,
+the second starts at the C<{> and has C<full == 0>.  Both end at the
+C<}>, so calls to C<start> and C<pre>/C<post_end> will match.  Anything
+pushed onto the save stack by this hook will be popped just before the
+scope ends (between the C<pre_> and C<post_end> hooks, in fact).
+
+=item C<void bhk_pre_end(pTHX_ OP **o)>
+
+This is called at the end of a lexical scope, just before unwinding the
+stack.  I<o> is the root of the optree representing the scope; it is a
+double pointer so you can replace the OP if you need to.
+
+=item C<void bhk_post_end(pTHX_ OP **o)>
+
+This is called at the end of a lexical scope, just after unwinding the
+stack.  I<o> is as above.  Note that it is possible for calls to C<pre_>
+and C<post_end> to nest, if there is something on the save stack that
+calls string eval.
+
+=item C<void bhk_eval(pTHX_ OP *const o)>
+
+This is called just before starting to compile an C<eval STRING>, C<do
+FILE>, C<require> or C<use>, after the eval has been set up.  I<o> is the
+OP that requested the eval, and will normally be an C<OP_ENTEREVAL>,
+C<OP_DOFILE> or C<OP_REQUIRE>.
+
+=back
+
+Once you have your hook functions, you need a C<BHK> structure to put
+them in.  It's best to allocate it statically, since there is no way to
+free it once it's registered.  The function pointers should be inserted
+into this structure using the C<BhkENTRY_set> macro, which will also set
+flags indicating which entries are valid.  If you do need to allocate
+your C<BHK> dynamically for some reason, be sure to zero it before you
+start.
+
+Once registered, there is no mechanism to switch these hooks off, so if
+that is necessary you will need to do this yourself.  An entry in C<%^H>
+is probably the best way, so the effect is lexically scoped; however it
+is also possible to use the C<BhkDISABLE> and C<BhkENABLE> macros to
+temporarily switch entries on and off.  You should also be aware that
+generally speaking at least one scope will have opened before your
+extension is loaded, so you will see some C<pre>/C<post_end> pairs that
+didn't have a matching C<start>.
+
+=head1 Examining internal data structures with the C<dump> functions
+
+To aid debugging, the source file F<dump.c> contains a number of
+functions which produce formatted output of internal data structures.
+
+The most commonly used of these functions is C<Perl_sv_dump>; it's used
+for dumping SVs, AVs, HVs, and CVs.  The C<Devel::Peek> module calls
+C<sv_dump> to produce debugging output from Perl-space, so users of that
+module should already be familiar with its format.
+
+C<Perl_op_dump> can be used to dump an C<OP> structure or any of its
+derivatives, and produces output similar to C<perl -Dx>; in fact,
+C<Perl_dump_eval> will dump the main root of the code being evaluated,
+exactly like C<-Dx>.
+
+Other useful functions are C<Perl_dump_sub>, which turns a C<GV> into an
+op tree, C<Perl_dump_packsubs> which calls C<Perl_dump_sub> on all the
+subroutines in a package like so: (Thankfully, these are all xsubs, so
+there is no op tree)
+
+    (gdb) print Perl_dump_packsubs(PL_defstash)
+
+    SUB attributes::bootstrap = (xsub 0x811fedc 0)
+
+    SUB UNIVERSAL::can = (xsub 0x811f50c 0)
+
+    SUB UNIVERSAL::isa = (xsub 0x811f304 0)
+
+    SUB UNIVERSAL::VERSION = (xsub 0x811f7ac 0)
+
+    SUB DynaLoader::boot_DynaLoader = (xsub 0x805b188 0)
+
+and C<Perl_dump_all>, which dumps all the subroutines in the stash and
+the op tree of the main root.
+
+=head1 How multiple interpreters and concurrency are supported
+
+=head2 Background and PERL_IMPLICIT_CONTEXT
+
+The Perl interpreter can be regarded as a closed box: it has an API
+for feeding it code or otherwise making it do things, but it also has
+functions for its own use.  This smells a lot like an object, and
+there are ways for you to build Perl so that you can have multiple
+interpreters, with one interpreter represented either as a C structure,
+or inside a thread-specific structure.  These structures contain all
+the context, the state of that interpreter.
+
+One macro controls the major Perl build flavor: MULTIPLICITY.  The
+MULTIPLICITY build has a C structure that packages all the interpreter
+state.  With multiplicity-enabled perls, PERL_IMPLICIT_CONTEXT is also
+normally defined, and enables the support for passing in a "hidden" first
+argument that represents all three data structures.  MULTIPLICITY makes
+multi-threaded perls possible (with the ithreads threading model, related
+to the macro USE_ITHREADS.)
+
+Two other "encapsulation" macros are the PERL_GLOBAL_STRUCT and
+PERL_GLOBAL_STRUCT_PRIVATE (the latter turns on the former, and the
+former turns on MULTIPLICITY.)  The PERL_GLOBAL_STRUCT causes all the
+internal variables of Perl to be wrapped inside a single global struct,
+struct perl_vars, accessible as (globals) &PL_Vars or PL_VarsPtr or
+the function  Perl_GetVars().  The PERL_GLOBAL_STRUCT_PRIVATE goes
+one step further, there is still a single struct (allocated in main()
+either from heap or from stack) but there are no global data symbols
+pointing to it.  In either case the global struct should be initialized
+as the very first thing in main() using Perl_init_global_struct() and
+correspondingly tear it down after perl_free() using Perl_free_global_struct(),
+please see F<miniperlmain.c> for usage details.  You may also need
+to use C<dVAR> in your coding to "declare the global variables"
+when you are using them.  dTHX does this for you automatically.
+
+To see whether you have non-const data you can use a BSD (or GNU)
+compatible C<nm>:
+
+  nm libperl.a | grep -v ' [TURtr] '
+
+If this displays any C<D> or C<d> symbols (or possibly C<C> or C<c>),
+you have non-const data.  The symbols the C<grep> removed are as follows:
+C<Tt> are I<text>, or code, the C<Rr> are I<read-only> (const) data,
+and the C<U> is <undefined>, external symbols referred to.
+
+The test F<t/porting/libperl.t> does this kind of symbol sanity
+checking on C<libperl.a>.
+
+For backward compatibility reasons defining just PERL_GLOBAL_STRUCT
+doesn't actually hide all symbols inside a big global struct: some
+PerlIO_xxx vtables are left visible.  The PERL_GLOBAL_STRUCT_PRIVATE
+then hides everything (see how the PERLIO_FUNCS_DECL is used).
+
+All this obviously requires a way for the Perl internal functions to be
+either subroutines taking some kind of structure as the first
+argument, or subroutines taking nothing as the first argument.  To
+enable these two very different ways of building the interpreter,
+the Perl source (as it does in so many other situations) makes heavy
+use of macros and subroutine naming conventions.
+
+First problem: deciding which functions will be public API functions and
+which will be private.  All functions whose names begin C<S_> are private
+(think "S" for "secret" or "static").  All other functions begin with
+"Perl_", but just because a function begins with "Perl_" does not mean it is
+part of the API.  (See L</Internal
+Functions>.)  The easiest way to be B<sure> a
+function is part of the API is to find its entry in L<perlapi>.
+If it exists in L<perlapi>, it's part of the API.  If it doesn't, and you
+think it should be (i.e., you need it for your extension), send mail via
+L<perlbug> explaining why you think it should be.
+
+Second problem: there must be a syntax so that the same subroutine
+declarations and calls can pass a structure as their first argument,
+or pass nothing.  To solve this, the subroutines are named and
+declared in a particular way.  Here's a typical start of a static
+function used within the Perl guts:
+
+  STATIC void
+  S_incline(pTHX_ char *s)
+
+STATIC becomes "static" in C, and may be #define'd to nothing in some
+configurations in the future.
+
+A public function (i.e. part of the internal API, but not necessarily
+sanctioned for use in extensions) begins like this:
+
+  void
+  Perl_sv_setiv(pTHX_ SV* dsv, IV num)
+
+C<pTHX_> is one of a number of macros (in F<perl.h>) that hide the
+details of the interpreter's context.  THX stands for "thread", "this",
+or "thingy", as the case may be.  (And no, George Lucas is not involved. :-)
+The first character could be 'p' for a B<p>rototype, 'a' for B<a>rgument,
+or 'd' for B<d>eclaration, so we have C<pTHX>, C<aTHX> and C<dTHX>, and
+their variants.
+
+When Perl is built without options that set PERL_IMPLICIT_CONTEXT, there is no
+first argument containing the interpreter's context.  The trailing underscore
+in the pTHX_ macro indicates that the macro expansion needs a comma
+after the context argument because other arguments follow it.  If
+PERL_IMPLICIT_CONTEXT is not defined, pTHX_ will be ignored, and the
+subroutine is not prototyped to take the extra argument.  The form of the
+macro without the trailing underscore is used when there are no additional
+explicit arguments.
+
+When a core function calls another, it must pass the context.  This
+is normally hidden via macros.  Consider C<sv_setiv>.  It expands into
+something like this:
+
+    #ifdef PERL_IMPLICIT_CONTEXT
+      #define sv_setiv(a,b)      Perl_sv_setiv(aTHX_ a, b)
+      /* can't do this for vararg functions, see below */
+    #else
+      #define sv_setiv           Perl_sv_setiv
+    #endif
+
+This works well, and means that XS authors can gleefully write:
+
+    sv_setiv(foo, bar);
+
+and still have it work under all the modes Perl could have been
+compiled with.
+
+This doesn't work so cleanly for varargs functions, though, as macros
+imply that the number of arguments is known in advance.  Instead we
+either need to spell them out fully, passing C<aTHX_> as the first
+argument (the Perl core tends to do this with functions like
+Perl_warner), or use a context-free version.
+
+The context-free version of Perl_warner is called
+Perl_warner_nocontext, and does not take the extra argument.  Instead
+it does dTHX; to get the context from thread-local storage.  We
+C<#define warner Perl_warner_nocontext> so that extensions get source
+compatibility at the expense of performance.  (Passing an arg is
+cheaper than grabbing it from thread-local storage.)
+
+You can ignore [pad]THXx when browsing the Perl headers/sources.
+Those are strictly for use within the core.  Extensions and embedders
+need only be aware of [pad]THX.
+
+=head2 So what happened to dTHR?
+
+C<dTHR> was introduced in perl 5.005 to support the older thread model.
+The older thread model now uses the C<THX> mechanism to pass context
+pointers around, so C<dTHR> is not useful any more.  Perl 5.6.0 and
+later still have it for backward source compatibility, but it is defined
+to be a no-op.
+
+=head2 How do I use all this in extensions?
+
+When Perl is built with PERL_IMPLICIT_CONTEXT, extensions that call
+any functions in the Perl API will need to pass the initial context
+argument somehow.  The kicker is that you will need to write it in
+such a way that the extension still compiles when Perl hasn't been
+built with PERL_IMPLICIT_CONTEXT enabled.
+
+There are three ways to do this.  First, the easy but inefficient way,
+which is also the default, in order to maintain source compatibility
+with extensions: whenever F<XSUB.h> is #included, it redefines the aTHX
+and aTHX_ macros to call a function that will return the context.
+Thus, something like:
+
+        sv_setiv(sv, num);
+
+in your extension will translate to this when PERL_IMPLICIT_CONTEXT is
+in effect:
+
+        Perl_sv_setiv(Perl_get_context(), sv, num);
+
+or to this otherwise:
+
+        Perl_sv_setiv(sv, num);
+
+You don't have to do anything new in your extension to get this; since
+the Perl library provides Perl_get_context(), it will all just
+work.
+
+The second, more efficient way is to use the following template for
+your Foo.xs:
+
+        #define PERL_NO_GET_CONTEXT     /* we want efficiency */
+        #include "EXTERN.h"
+        #include "perl.h"
+        #include "XSUB.h"
+
+        STATIC void my_private_function(int arg1, int arg2);
+
+        STATIC void
+        my_private_function(int arg1, int arg2)
+        {
+            dTHX;       /* fetch context */
+            ... call many Perl API functions ...
+        }
+
+        [... etc ...]
+
+        MODULE = Foo            PACKAGE = Foo
+
+        /* typical XSUB */
+
+        void
+        my_xsub(arg)
+                int arg
+            CODE:
+                my_private_function(arg, 10);
+
+Note that the only two changes from the normal way of writing an
+extension is the addition of a C<#define PERL_NO_GET_CONTEXT> before
+including the Perl headers, followed by a C<dTHX;> declaration at
+the start of every function that will call the Perl API.  (You'll
+know which functions need this, because the C compiler will complain
+that there's an undeclared identifier in those functions.)  No changes
+are needed for the XSUBs themselves, because the XS() macro is
+correctly defined to pass in the implicit context if needed.
+
+The third, even more efficient way is to ape how it is done within
+the Perl guts:
+
+
+        #define PERL_NO_GET_CONTEXT     /* we want efficiency */
+        #include "EXTERN.h"
+        #include "perl.h"
+        #include "XSUB.h"
+
+        /* pTHX_ only needed for functions that call Perl API */
+        STATIC void my_private_function(pTHX_ int arg1, int arg2);
+
+        STATIC void
+        my_private_function(pTHX_ int arg1, int arg2)
+        {
+            /* dTHX; not needed here, because THX is an argument */
+            ... call Perl API functions ...
+        }
+
+        [... etc ...]
+
+        MODULE = Foo            PACKAGE = Foo
+
+        /* typical XSUB */
+
+        void
+        my_xsub(arg)
+                int arg
+            CODE:
+                my_private_function(aTHX_ arg, 10);
+
+This implementation never has to fetch the context using a function
+call, since it is always passed as an extra argument.  Depending on
+your needs for simplicity or efficiency, you may mix the previous
+two approaches freely.
+
+Never add a comma after C<pTHX> yourself--always use the form of the
+macro with the underscore for functions that take explicit arguments,
+or the form without the argument for functions with no explicit arguments.
+
+If one is compiling Perl with the C<-DPERL_GLOBAL_STRUCT> the C<dVAR>
+definition is needed if the Perl global variables (see F<perlvars.h>
+or F<globvar.sym>) are accessed in the function and C<dTHX> is not
+used (the C<dTHX> includes the C<dVAR> if necessary).  One notices
+the need for C<dVAR> only with the said compile-time define, because
+otherwise the Perl global variables are visible as-is.
+
+=head2 Should I do anything special if I call perl from multiple threads?
+
+If you create interpreters in one thread and then proceed to call them in
+another, you need to make sure perl's own Thread Local Storage (TLS) slot is
+initialized correctly in each of those threads.
+
+The C<perl_alloc> and C<perl_clone> API functions will automatically set
+the TLS slot to the interpreter they created, so that there is no need to do
+anything special if the interpreter is always accessed in the same thread that
+created it, and that thread did not create or call any other interpreters
+afterwards.  If that is not the case, you have to set the TLS slot of the
+thread before calling any functions in the Perl API on that particular
+interpreter.  This is done by calling the C<PERL_SET_CONTEXT> macro in that
+thread as the first thing you do:
+
+	/* do this before doing anything else with some_perl */
+	PERL_SET_CONTEXT(some_perl);
+
+	... other Perl API calls on some_perl go here ...
+
+=head2 Future Plans and PERL_IMPLICIT_SYS
+
+Just as PERL_IMPLICIT_CONTEXT provides a way to bundle up everything
+that the interpreter knows about itself and pass it around, so too are
+there plans to allow the interpreter to bundle up everything it knows
+about the environment it's running on.  This is enabled with the
+PERL_IMPLICIT_SYS macro.  Currently it only works with USE_ITHREADS on
+Windows.
+
+This allows the ability to provide an extra pointer (called the "host"
+environment) for all the system calls.  This makes it possible for
+all the system stuff to maintain their own state, broken down into
+seven C structures.  These are thin wrappers around the usual system
+calls (see F<win32/perllib.c>) for the default perl executable, but for a
+more ambitious host (like the one that would do fork() emulation) all
+the extra work needed to pretend that different interpreters are
+actually different "processes", would be done here.
+
+The Perl engine/interpreter and the host are orthogonal entities.
+There could be one or more interpreters in a process, and one or
+more "hosts", with free association between them.
+
+=head1 Internal Functions
+
+All of Perl's internal functions which will be exposed to the outside
+world are prefixed by C<Perl_> so that they will not conflict with XS
+functions or functions used in a program in which Perl is embedded.
+Similarly, all global variables begin with C<PL_>.  (By convention,
+static functions start with C<S_>.)
+
+Inside the Perl core (C<PERL_CORE> defined), you can get at the functions
+either with or without the C<Perl_> prefix, thanks to a bunch of defines
+that live in F<embed.h>.  Note that extension code should I<not> set
+C<PERL_CORE>; this exposes the full perl internals, and is likely to cause
+breakage of the XS in each new perl release.
+
+The file F<embed.h> is generated automatically from
+F<embed.pl> and F<embed.fnc>.  F<embed.pl> also creates the prototyping
+header files for the internal functions, generates the documentation
+and a lot of other bits and pieces.  It's important that when you add
+a new function to the core or change an existing one, you change the
+data in the table in F<embed.fnc> as well.  Here's a sample entry from
+that table:
+
+    Apd |SV**   |av_fetch   |AV* ar|I32 key|I32 lval
+
+The second column is the return type, the third column the name.  Columns
+after that are the arguments.  The first column is a set of flags:
+
+=over 3
+
+=item A
+
+This function is a part of the public
+API.  All such functions should also
+have 'd', very few do not.
+
+=item p
+
+This function has a C<Perl_> prefix; i.e. it is defined as
+C<Perl_av_fetch>.
+
+=item d
+
+This function has documentation using the C<apidoc> feature which we'll
+look at in a second.  Some functions have 'd' but not 'A'; docs are good.
+
+=back
+
+Other available flags are:
+
+=over 3
+
+=item s
+
+This is a static function and is defined as C<STATIC S_whatever>, and
+usually called within the sources as C<whatever(...)>.
+
+=item n
+
+This does not need an interpreter context, so the definition has no
+C<pTHX>, and it follows that callers don't use C<aTHX>.  (See
+L</Background and PERL_IMPLICIT_CONTEXT>.)
+
+=item r
+
+This function never returns; C<croak>, C<exit> and friends.
+
+=item f
+
+This function takes a variable number of arguments, C<printf> style.
+The argument list should end with C<...>, like this:
+
+    Afprd   |void   |croak          |const char* pat|...
+
+=item M
+
+This function is part of the experimental development API, and may change
+or disappear without notice.
+
+=item o
+
+This function should not have a compatibility macro to define, say,
+C<Perl_parse> to C<parse>.  It must be called as C<Perl_parse>.
+
+=item x
+
+This function isn't exported out of the Perl core.
+
+=item m
+
+This is implemented as a macro.
+
+=item X
+
+This function is explicitly exported.
+
+=item E
+
+This function is visible to extensions included in the Perl core.
+
+=item b
+
+Binary backward compatibility; this function is a macro but also has
+a C<Perl_> implementation (which is exported).
+
+=item others
+
+See the comments at the top of C<embed.fnc> for others.
+
+=back
+
+If you edit F<embed.pl> or F<embed.fnc>, you will need to run
+C<make regen_headers> to force a rebuild of F<embed.h> and other
+auto-generated files.
+
+=head2 Formatted Printing of IVs, UVs, and NVs
+
+If you are printing IVs, UVs, or NVS instead of the stdio(3) style
+formatting codes like C<%d>, C<%ld>, C<%f>, you should use the
+following macros for portability
+
+        IVdf            IV in decimal
+        UVuf            UV in decimal
+        UVof            UV in octal
+        UVxf            UV in hexadecimal
+        NVef            NV %e-like
+        NVff            NV %f-like
+        NVgf            NV %g-like
+
+These will take care of 64-bit integers and long doubles.
+For example:
+
+        printf("IV is %"IVdf"\n", iv);
+
+The IVdf will expand to whatever is the correct format for the IVs.
+
+Note that there are different "long doubles": Perl will use
+whatever the compiler has.
+
+If you are printing addresses of pointers, use UVxf combined
+with PTR2UV(), do not use %lx or %p.
+
+=head2 Pointer-To-Integer and Integer-To-Pointer
+
+Because pointer size does not necessarily equal integer size,
+use the follow macros to do it right.
+
+        PTR2UV(pointer)
+        PTR2IV(pointer)
+        PTR2NV(pointer)
+        INT2PTR(pointertotype, integer)
+
+For example:
+
+        IV  iv = ...;
+        SV *sv = INT2PTR(SV*, iv);
+
+and
+
+        AV *av = ...;
+        UV  uv = PTR2UV(av);
+
+=head2 Exception Handling
+
+There are a couple of macros to do very basic exception handling in XS
+modules.  You have to define C<NO_XSLOCKS> before including F<XSUB.h> to
+be able to use these macros:
+
+        #define NO_XSLOCKS
+        #include "XSUB.h"
+
+You can use these macros if you call code that may croak, but you need
+to do some cleanup before giving control back to Perl.  For example:
+
+        dXCPT;    /* set up necessary variables */
+
+        XCPT_TRY_START {
+          code_that_may_croak();
+        } XCPT_TRY_END
+
+        XCPT_CATCH
+        {
+          /* do cleanup here */
+          XCPT_RETHROW;
+        }
+
+Note that you always have to rethrow an exception that has been
+caught.  Using these macros, it is not possible to just catch the
+exception and ignore it.  If you have to ignore the exception, you
+have to use the C<call_*> function.
+
+The advantage of using the above macros is that you don't have
+to setup an extra function for C<call_*>, and that using these
+macros is faster than using C<call_*>.
+
+=head2 Source Documentation
+
+There's an effort going on to document the internal functions and
+automatically produce reference manuals from them -- L<perlapi> is one
+such manual which details all the functions which are available to XS
+writers.  L<perlintern> is the autogenerated manual for the functions
+which are not part of the API and are supposedly for internal use only.
+
+Source documentation is created by putting POD comments into the C
+source, like this:
+
+ /*
+ =for apidoc sv_setiv
+
+ Copies an integer into the given SV.  Does not handle 'set' magic.  See
+ L<perlapi/sv_setiv_mg>.
+
+ =cut
+ */
+
+Please try and supply some documentation if you add functions to the
+Perl core.
+
+=head2 Backwards compatibility
+
+The Perl API changes over time.  New functions are
+added or the interfaces of existing functions are
+changed.  The C<Devel::PPPort> module tries to
+provide compatibility code for some of these changes, so XS writers don't
+have to code it themselves when supporting multiple versions of Perl.
+
+C<Devel::PPPort> generates a C header file F<ppport.h> that can also
+be run as a Perl script.  To generate F<ppport.h>, run:
+
+    perl -MDevel::PPPort -eDevel::PPPort::WriteFile
+
+Besides checking existing XS code, the script can also be used to retrieve
+compatibility information for various API calls using the C<--api-info>
+command line switch.  For example:
+
+  % perl ppport.h --api-info=sv_magicext
+
+For details, see C<perldoc ppport.h>.
+
+=head1 Unicode Support
+
+Perl 5.6.0 introduced Unicode support.  It's important for porters and XS
+writers to understand this support and make sure that the code they
+write does not corrupt Unicode data.
+
+=head2 What B<is> Unicode, anyway?
+
+In the olden, less enlightened times, we all used to use ASCII.  Most of
+us did, anyway.  The big problem with ASCII is that it's American.  Well,
+no, that's not actually the problem; the problem is that it's not
+particularly useful for people who don't use the Roman alphabet.  What
+used to happen was that particular languages would stick their own
+alphabet in the upper range of the sequence, between 128 and 255.  Of
+course, we then ended up with plenty of variants that weren't quite
+ASCII, and the whole point of it being a standard was lost.
+
+Worse still, if you've got a language like Chinese or
+Japanese that has hundreds or thousands of characters, then you really
+can't fit them into a mere 256, so they had to forget about ASCII
+altogether, and build their own systems using pairs of numbers to refer
+to one character.
+
+To fix this, some people formed Unicode, Inc. and
+produced a new character set containing all the characters you can
+possibly think of and more.  There are several ways of representing these
+characters, and the one Perl uses is called UTF-8.  UTF-8 uses
+a variable number of bytes to represent a character.  You can learn more
+about Unicode and Perl's Unicode model in L<perlunicode>.
+
+(On EBCDIC platforms, Perl uses instead UTF-EBCDIC, which is a form of
+UTF-8 adapted for EBCDIC platforms.  Below, we just talk about UTF-8.
+UTF-EBCDIC is like UTF-8, but the details are different.  The macros
+hide the differences from you, just remember that the particular numbers
+and bit patterns presented below will differ in UTF-EBCDIC.)
+
+=head2 How can I recognise a UTF-8 string?
+
+You can't.  This is because UTF-8 data is stored in bytes just like
+non-UTF-8 data.  The Unicode character 200, (C<0xC8> for you hex types)
+capital E with a grave accent, is represented by the two bytes
+C<v196.172>.  Unfortunately, the non-Unicode string C<chr(196).chr(172)>
+has that byte sequence as well.  So you can't tell just by looking -- this
+is what makes Unicode input an interesting problem.
+
+In general, you either have to know what you're dealing with, or you
+have to guess.  The API function C<is_utf8_string> can help; it'll tell
+you if a string contains only valid UTF-8 characters, and the chances
+of a non-UTF-8 string looking like valid UTF-8 become very small very
+quickly with increasing string length.  On a character-by-character
+basis, C<isUTF8_CHAR>
+will tell you whether the current character in a string is valid UTF-8. 
+
+=head2 How does UTF-8 represent Unicode characters?
+
+As mentioned above, UTF-8 uses a variable number of bytes to store a
+character.  Characters with values 0...127 are stored in one
+byte, just like good ol' ASCII.  Character 128 is stored as
+C<v194.128>; this continues up to character 191, which is
+C<v194.191>.  Now we've run out of bits (191 is binary
+C<10111111>) so we move on; character 192 is C<v195.128>.  And
+so it goes on, moving to three bytes at character 2048.
+L<perlunicode/Unicode Encodings> has pictures of how this works.
+
+Assuming you know you're dealing with a UTF-8 string, you can find out
+how long the first character in it is with the C<UTF8SKIP> macro:
+
+    char *utf = "\305\233\340\240\201";
+    I32 len;
+
+    len = UTF8SKIP(utf); /* len is 2 here */
+    utf += len;
+    len = UTF8SKIP(utf); /* len is 3 here */
+
+Another way to skip over characters in a UTF-8 string is to use
+C<utf8_hop>, which takes a string and a number of characters to skip
+over.  You're on your own about bounds checking, though, so don't use it
+lightly.
+
+All bytes in a multi-byte UTF-8 character will have the high bit set,
+so you can test if you need to do something special with this
+character like this (the C<UTF8_IS_INVARIANT()> is a macro that tests
+whether the byte is encoded as a single byte even in UTF-8):
+
+    U8 *utf;
+    U8 *utf_end; /* 1 beyond buffer pointed to by utf */
+    UV uv;	/* Note: a UV, not a U8, not a char */
+    STRLEN len; /* length of character in bytes */
+
+    if (!UTF8_IS_INVARIANT(*utf))
+        /* Must treat this as UTF-8 */
+        uv = utf8_to_uvchr_buf(utf, utf_end, &len);
+    else
+        /* OK to treat this character as a byte */
+        uv = *utf;
+
+You can also see in that example that we use C<utf8_to_uvchr_buf> to get the
+value of the character; the inverse function C<uvchr_to_utf8> is available
+for putting a UV into UTF-8:
+
+    if (!UVCHR_IS_INVARIANT(uv))
+        /* Must treat this as UTF8 */
+        utf8 = uvchr_to_utf8(utf8, uv);
+    else
+        /* OK to treat this character as a byte */
+        *utf8++ = uv;
+
+You B<must> convert characters to UVs using the above functions if
+you're ever in a situation where you have to match UTF-8 and non-UTF-8
+characters.  You may not skip over UTF-8 characters in this case.  If you
+do this, you'll lose the ability to match hi-bit non-UTF-8 characters;
+for instance, if your UTF-8 string contains C<v196.172>, and you skip
+that character, you can never match a C<chr(200)> in a non-UTF-8 string.
+So don't do that!
+
+(Note that we don't have to test for invariant characters in the
+examples above.  The functions work on any well-formed UTF-8 input.
+It's just that its faster to avoid the function overhead when it's not
+needed.)
+
+=head2 How does Perl store UTF-8 strings?
+
+Currently, Perl deals with UTF-8 strings and non-UTF-8 strings
+slightly differently.  A flag in the SV, C<SVf_UTF8>, indicates that the
+string is internally encoded as UTF-8.  Without it, the byte value is the
+codepoint number and vice versa.  This flag is only meaningful if the SV
+is C<SvPOK> or immediately after stringification via C<SvPV> or a
+similar macro.  You can check and manipulate this flag with the
+following macros:
+
+    SvUTF8(sv)
+    SvUTF8_on(sv)
+    SvUTF8_off(sv)
+
+This flag has an important effect on Perl's treatment of the string: if
+UTF-8 data is not properly distinguished, regular expressions,
+C<length>, C<substr> and other string handling operations will have
+undesirable (wrong) results.
+
+The problem comes when you have, for instance, a string that isn't
+flagged as UTF-8, and contains a byte sequence that could be UTF-8 --
+especially when combining non-UTF-8 and UTF-8 strings.
+
+Never forget that the C<SVf_UTF8> flag is separate from the PV value; you
+need to be sure you don't accidentally knock it off while you're
+manipulating SVs.  More specifically, you cannot expect to do this:
+
+    SV *sv;
+    SV *nsv;
+    STRLEN len;
+    char *p;
+
+    p = SvPV(sv, len);
+    frobnicate(p);
+    nsv = newSVpvn(p, len);
+
+The C<char*> string does not tell you the whole story, and you can't
+copy or reconstruct an SV just by copying the string value.  Check if the
+old SV has the UTF8 flag set (I<after> the C<SvPV> call), and act
+accordingly:
+
+    p = SvPV(sv, len);
+    is_utf8 = SvUTF8(sv);
+    frobnicate(p, is_utf8);
+    nsv = newSVpvn(p, len);
+    if (is_utf8)
+        SvUTF8_on(nsv);
+
+In the above, your C<frobnicate> function has been changed to be made
+aware of whether or not it's dealing with UTF-8 data, so that it can
+handle the string appropriately.
+
+Since just passing an SV to an XS function and copying the data of
+the SV is not enough to copy the UTF8 flags, even less right is just
+passing a S<C<char *>> to an XS function.
+
+For full generality, use the L<C<DO_UTF8>|perlapi/DO_UTF8> macro to see if the
+string in an SV is to be I<treated> as UTF-8.  This takes into account
+if the call to the XS function is being made from within the scope of
+L<S<C<use bytes>>|bytes>.  If so, the underlying bytes that comprise the
+UTF-8 string are to be exposed, rather than the character they
+represent.  But this pragma should only really be used for debugging and
+perhaps low-level testing at the byte level.  Hence most XS code need
+not concern itself with this, but various areas of the perl core do need
+to support it.
+
+And this isn't the whole story.  Starting in Perl v5.12, strings that
+aren't encoded in UTF-8 may also be treated as Unicode under various
+conditions (see L<perlunicode/ASCII Rules versus Unicode Rules>).
+This is only really a problem for characters whose ordinals are between
+128 and 255, and their behavior varies under ASCII versus Unicode rules
+in ways that your code cares about (see L<perlunicode/The "Unicode Bug">).
+There is no published API for dealing with this, as it is subject to
+change, but you can look at the code for C<pp_lc> in F<pp.c> for an
+example as to how it's currently done.
+
+=head2 How do I convert a string to UTF-8?
+
+If you're mixing UTF-8 and non-UTF-8 strings, it is necessary to upgrade
+the non-UTF-8 strings to UTF-8.  If you've got an SV, the easiest way to do
+this is:
+
+    sv_utf8_upgrade(sv);
+
+However, you must not do this, for example:
+
+    if (!SvUTF8(left))
+        sv_utf8_upgrade(left);
+
+If you do this in a binary operator, you will actually change one of the
+strings that came into the operator, and, while it shouldn't be noticeable
+by the end user, it can cause problems in deficient code.
+
+Instead, C<bytes_to_utf8> will give you a UTF-8-encoded B<copy> of its
+string argument.  This is useful for having the data available for
+comparisons and so on, without harming the original SV.  There's also
+C<utf8_to_bytes> to go the other way, but naturally, this will fail if
+the string contains any characters above 255 that can't be represented
+in a single byte.
+
+=head2 How do I compare strings?
+
+L<perlapi/sv_cmp> and L<perlapi/sv_cmp_flags> do a lexigraphic
+comparison of two SV's, and handle UTF-8ness properly.  Note, however,
+that Unicode specifies a much fancier mechanism for collation, available
+via the L<Unicode::Collate> module.
+
+To just compare two strings for equality/non-equality, you can just use
+L<C<memEQ()>|perlapi/memEQ> and L<C<memNE()>|perlapi/memEQ> as usual,
+except the strings must be both UTF-8 or not UTF-8 encoded.
+
+To compare two strings case-insensitively, use
+L<C<foldEQ_utf8()>|perlapi/foldEQ_utf8> (the strings don't have to have
+the same UTF-8ness).
+
+=head2 Is there anything else I need to know?
+
+Not really.  Just remember these things:
+
+=over 3
+
+=item *
+
+There's no way to tell if a S<C<char *>> or S<C<U8 *>> string is UTF-8
+or not.  But you can tell if an SV is to be treated as UTF-8 by calling
+C<DO_UTF8> on it, after stringifying it with C<SvPV> or a similar
+macro.  And, you can tell if SV is actually UTF-8 (even if it is not to
+be treated as such) by looking at its C<SvUTF8> flag (again after
+stringifying it).  Don't forget to set the flag if something should be
+UTF-8.
+Treat the flag as part of the PV, even though it's not -- if you pass on
+the PV to somewhere, pass on the flag too.
+
+=item *
+
+If a string is UTF-8, B<always> use C<utf8_to_uvchr_buf> to get at the value,
+unless C<UTF8_IS_INVARIANT(*s)> in which case you can use C<*s>.
+
+=item *
+
+When writing a character UV to a UTF-8 string, B<always> use
+C<uvchr_to_utf8>, unless C<UVCHR_IS_INVARIANT(uv))> in which case
+you can use C<*s = uv>.
+
+=item *
+
+Mixing UTF-8 and non-UTF-8 strings is
+tricky.  Use C<bytes_to_utf8> to get
+a new string which is UTF-8 encoded, and then combine them.
+
+=back
+
+=head1 Custom Operators
+
+Custom operator support is an experimental feature that allows you to
+define your own ops.  This is primarily to allow the building of
+interpreters for other languages in the Perl core, but it also allows
+optimizations through the creation of "macro-ops" (ops which perform the
+functions of multiple ops which are usually executed together, such as
+C<gvsv, gvsv, add>.)
+
+This feature is implemented as a new op type, C<OP_CUSTOM>.  The Perl
+core does not "know" anything special about this op type, and so it will
+not be involved in any optimizations.  This also means that you can
+define your custom ops to be any op structure -- unary, binary, list and
+so on -- you like.
+
+It's important to know what custom operators won't do for you.  They
+won't let you add new syntax to Perl, directly.  They won't even let you
+add new keywords, directly.  In fact, they won't change the way Perl
+compiles a program at all.  You have to do those changes yourself, after
+Perl has compiled the program.  You do this either by manipulating the op
+tree using a C<CHECK> block and the C<B::Generate> module, or by adding
+a custom peephole optimizer with the C<optimize> module.
+
+When you do this, you replace ordinary Perl ops with custom ops by
+creating ops with the type C<OP_CUSTOM> and the C<op_ppaddr> of your own
+PP function.  This should be defined in XS code, and should look like
+the PP ops in C<pp_*.c>.  You are responsible for ensuring that your op
+takes the appropriate number of values from the stack, and you are
+responsible for adding stack marks if necessary.
+
+You should also "register" your op with the Perl interpreter so that it
+can produce sensible error and warning messages.  Since it is possible to
+have multiple custom ops within the one "logical" op type C<OP_CUSTOM>,
+Perl uses the value of C<< o->op_ppaddr >> to determine which custom op
+it is dealing with.  You should create an C<XOP> structure for each
+ppaddr you use, set the properties of the custom op with
+C<XopENTRY_set>, and register the structure against the ppaddr using
+C<Perl_custom_op_register>.  A trivial example might look like:
+
+    static XOP my_xop;
+    static OP *my_pp(pTHX);
+
+    BOOT:
+        XopENTRY_set(&my_xop, xop_name, "myxop");
+        XopENTRY_set(&my_xop, xop_desc, "Useless custom op");
+        Perl_custom_op_register(aTHX_ my_pp, &my_xop);
+
+The available fields in the structure are:
+
+=over 4
+
+=item xop_name
+
+A short name for your op.  This will be included in some error messages,
+and will also be returned as C<< $op->name >> by the L<B|B> module, so
+it will appear in the output of module like L<B::Concise|B::Concise>.
+
+=item xop_desc
+
+A short description of the function of the op.
+
+=item xop_class
+
+Which of the various C<*OP> structures this op uses.  This should be one of
+the C<OA_*> constants from F<op.h>, namely
+
+=over 4
+
+=item OA_BASEOP
+
+=item OA_UNOP
+
+=item OA_BINOP
+
+=item OA_LOGOP
+
+=item OA_LISTOP
+
+=item OA_PMOP
+
+=item OA_SVOP
+
+=item OA_PADOP
+
+=item OA_PVOP_OR_SVOP
+
+This should be interpreted as 'C<PVOP>' only.  The C<_OR_SVOP> is because
+the only core C<PVOP>, C<OP_TRANS>, can sometimes be a C<SVOP> instead.
+
+=item OA_LOOP
+
+=item OA_COP
+
+=back
+
+The other C<OA_*> constants should not be used.
+
+=item xop_peep
+
+This member is of type C<Perl_cpeep_t>, which expands to C<void
+(*Perl_cpeep_t)(aTHX_ OP *o, OP *oldop)>.  If it is set, this function
+will be called from C<Perl_rpeep> when ops of this type are encountered
+by the peephole optimizer.  I<o> is the OP that needs optimizing;
+I<oldop> is the previous OP optimized, whose C<op_next> points to I<o>.
+
+=back
+
+C<B::Generate> directly supports the creation of custom ops by name.
+
+
+=head1 Dynamic Scope and the Context Stack
+
+B<Note:> this section describes a non-public internal API that is subject
+to change without notice.
+
+=head2 Introduction to the context stack
+
+In Perl, dynamic scoping refers to the runtime nesting of things like
+subroutine calls, evals etc, as well as the entering and exiting of block
+scopes. For example, the restoring of a C<local>ised variable is
+determined by the dynamic scope.
+
+Perl tracks the dynamic scope by a data structure called the context
+stack, which is an array of C<PERL_CONTEXT> structures, and which is
+itself a big union for all the types of context. Whenever a new scope is
+entered (such as a block, a C<for> loop, or a subroutine call), a new
+context entry is pushed onto the stack. Similarly when leaving a block or
+returning from a subroutine call etc. a context is popped. Since the
+context stack represents the current dynamic scope, it can be searched.
+For example, C<next LABEL> searches back through the stack looking for a
+loop context that matches the label; C<return> pops contexts until it
+finds a sub or eval context or similar; C<caller> examines sub contexts on
+the stack.
+
+Each context entry is labelled with a context type, C<cx_type>. Typical
+context types are C<CXt_SUB>, C<CXt_EVAL> etc., as well as C<CXt_BLOCK>
+and C<CXt_NULL> which represent a basic scope (as pushed by C<pp_enter>)
+and a sort block. The type determines which part of the context union are
+valid.
+
+The main division in the context struct is between a substitution scope
+(C<CXt_SUBST>) and block scopes, which are everything else. The former is
+just used while executing C<s///e>, and won't be discussed further
+here.
+
+All the block scope types share a common base, which corresponds to
+C<CXt_BLOCK>. This stores the old values of various scope-related
+variables like C<PL_curpm>, as well as information about the current
+scope, such as C<gimme>. On scope exit, the old variables are restored.
+
+Particular block scope types store extra per-type information. For
+example, C<CXt_SUB> stores the currently executing CV, while the various
+for loop types might hold the original loop variable SV. On scope exit,
+the per-type data is processed; for example the CV has its reference count
+decremented, and the original loop variable is restored.
+
+The macro C<cxstack> returns the base of the current context stack, while
+C<cxstack_ix> is the index of the current frame within that stack.
+
+In fact, the context stack is actually part of a stack-of-stacks system;
+whenever something unusual is done such as calling a C<DESTROY> or tie
+handler, a new stack is pushed, then popped at the end.
+
+Note that the API described here changed considerably in perl 5.24; prior
+to that, big macros like C<PUSHBLOCK> and C<POPSUB> were used; in 5.24
+they were replaced by the inline static functions described below. In
+addition, the ordering and detail of how these macros/function work
+changed in many ways, often subtly. In particular they didn't handle
+saving the savestack and temps stack positions, and required additional
+C<ENTER>, C<SAVETMPS> and C<LEAVE> compared to the new functions. The
+old-style macros will not be described further.
+
+
+=head2 Pushing contexts
+
+For pushing a new context, the two basic functions are
+C<cx = cx_pushblock()>, which pushes a new basic context block and returns
+its address, and a family of similar functions with names like
+C<cx_pushsub(cx)> which populate the additional type-dependent fields in
+the C<cx> struct. Note that C<CXt_NULL> and C<CXt_BLOCK> don't have their
+own push functions, as they don't store any data beyond that pushed by
+C<cx_pushblock>.
+
+The fields of the context struct and the arguments to the C<cx_*>
+functions are subject to change between perl releases, representing
+whatever is convenient or efficient for that release.
+
+A typical context stack pushing can be found in C<pp_entersub>; the
+following shows a simplified and stripped-down example of a non-XS call,
+along with comments showing roughly what each function does.
+
+ dMARK;
+ U8 gimme      = GIMME_V;
+ bool hasargs  = cBOOL(PL_op->op_flags & OPf_STACKED);
+ OP *retop     = PL_op->op_next;
+ I32 old_ss_ix = PL_savestack_ix;
+ CV *cv        = ....;
+
+ /* ... make mortal copies of stack args which are PADTMPs here ... */
+
+ /* ... do any additional savestack pushes here ... */
+
+ /* Now push a new context entry of type 'CXt_SUB'; initially just
+  * doing the actions common to all block types: */
+
+ cx = cx_pushblock(CXt_SUB, gimme, MARK, old_ss_ix);
+
+     /* this does (approximately):
+         CXINC;              /* cxstack_ix++ (grow if necessary) */
+         cx = CX_CUR();      /* and get the address of new frame */
+         cx->cx_type        = CXt_SUB;
+         cx->blk_gimme      = gimme;
+         cx->blk_oldsp      = MARK - PL_stack_base;
+         cx->blk_oldsaveix  = old_ss_ix;
+         cx->blk_oldcop     = PL_curcop;
+         cx->blk_oldmarksp  = PL_markstack_ptr - PL_markstack;
+         cx->blk_oldscopesp = PL_scopestack_ix;
+         cx->blk_oldpm      = PL_curpm;
+         cx->blk_old_tmpsfloor = PL_tmps_floor;
+
+         PL_tmps_floor        = PL_tmps_ix;
+     */
+
+
+ /* then update the new context frame with subroutine-specific info,
+  * such as the CV about to be executed: */
+
+ cx_pushsub(cx, cv, retop, hasargs);
+
+     /* this does (approximately):
+         cx->blk_sub.cv          = cv;
+         cx->blk_sub.olddepth    = CvDEPTH(cv);
+         cx->blk_sub.prevcomppad = PL_comppad;
+         cx->cx_type            |= (hasargs) ? CXp_HASARGS : 0;
+         cx->blk_sub.retop       = retop;
+         SvREFCNT_inc_simple_void_NN(cv);
+     */
+
+Note that C<cx_pushblock()> sets two new floors: for the args stack (to
+C<MARK>) and the temps stack (to C<PL_tmps_ix>). While executing at this
+scope level, every C<nextstate> (amongst others) will reset the args and
+tmps stack levels to these floors. Note that since C<cx_pushblock> uses
+the current value of C<PL_tmps_ix> rather than it being passed as an arg,
+this dictates at what point C<cx_pushblock> should be called. In
+particular, any new mortals which should be freed only on scope exit
+(rather than at the next C<nextstate>) should be created first.
+
+Most callers of C<cx_pushblock> simply set the new args stack floor to the
+top of the previous stack frame, but for C<CXt_LOOP_LIST> it stores the
+items being iterated over on the stack, and so sets C<blk_oldsp> to the
+top of these items instead. Note that, contrary to its name, C<blk_oldsp>
+doesn't always represent the value to restore C<PL_stack_sp> to on scope
+exit.
+
+Note the early capture of C<PL_savestack_ix> to C<old_ss_ix>, which is
+later passed as an arg to C<cx_pushblock>. In the case of C<pp_entersub>,
+this is because, although most values needing saving are stored in fields
+of the context struct, an extra value needs saving only when the debugger
+is running, and it doesn't make sense to bloat the struct for this rare
+case. So instead it is saved on the savestack. Since this value gets
+calculated and saved before the context is pushed, it is necessary to pass
+the old value of C<PL_savestack_ix> to C<cx_pushblock>, to ensure that the
+saved value gets freed during scope exit.  For most users of
+C<cx_pushblock>, where nothing needs pushing on the save stack,
+C<PL_savestack_ix> is just passed directly as an arg to C<cx_pushblock>.
+
+Note that where possible, values should be saved in the context struct
+rather than on the save stack; it's much faster that way.
+
+Normally C<cx_pushblock> should be immediately followed by the appropriate
+C<cx_pushfoo>, with nothing between them; this is because if code
+in-between could die (e.g. a warning upgraded to fatal), then the context
+stack unwinding code in C<dounwind> would see (in the example above) a
+C<CXt_SUB> context frame, but without all the subroutine-specific fields
+set, and crashes would soon ensue.
+
+Where the two must be separate, initially set the type to C<CXt_NULL> or
+C<CXt_BLOCK>, and later change it to C<CXt_foo> when doing the
+C<cx_pushfoo>. This is exactly what C<pp_enteriter> does, once it's
+determined which type of loop it's pushing.
+
+=head2 Popping contexts
+
+Contexts are popped using C<cx_popsub()> etc. and C<cx_popblock()>. Note
+however, that unlike C<cx_pushblock>, neither of these functions actually
+decrement the current context stack index; this is done separately using
+C<CX_POP()>.
+
+There are two main ways that contexts are popped. During normal execution
+as scopes are exited, functions like C<pp_leave>, C<pp_leaveloop> and
+C<pp_leavesub> process and pop just one context using C<cx_popfoo> and
+C<cx_popblock>. On the other hand, things like C<pp_return> and C<next>
+may have to pop back several scopes until a sub or loop context is found,
+and exceptions (such as C<die>) need to pop back contexts until an eval
+context is found. Both of these are accomplished by C<dounwind()>, which
+is capable of processing and popping all contexts above the target one.
+
+Here is a typical example of context popping, as found in C<pp_leavesub>
+(simplified slightly):
+
+ U8 gimme;
+ PERL_CONTEXT *cx;
+ SV **oldsp;
+ OP *retop;
+
+ cx = CX_CUR();
+
+ gimme = cx->blk_gimme;
+ oldsp = PL_stack_base + cx->blk_oldsp; /* last arg of previous frame */
+
+ if (gimme == G_VOID)
+     PL_stack_sp = oldsp;
+ else
+     leave_adjust_stacks(oldsp, oldsp, gimme, 0);
+
+ CX_LEAVE_SCOPE(cx);
+ cx_popsub(cx);
+ cx_popblock(cx);
+ retop = cx->blk_sub.retop;
+ CX_POP(cx);
+
+ return retop;
+
+The steps above are in a very specific order, designed to be the reverse
+order of when the context was pushed. The first thing to do is to copy
+and/or protect any any return arguments and free any temps in the current
+scope. Scope exits like an rvalue sub normally return a mortal copy of
+their return args (as opposed to lvalue subs). It is important to make
+this copy before the save stack is popped or variables are restored, or
+bad things like the following can happen:
+
+    sub f { my $x =...; $x }  # $x freed before we get to copy it
+    sub f { /(...)/;    $1 }  # PL_curpm restored before $1 copied
+
+Although we wish to free any temps at the same time, we have to be careful
+not to free any temps which are keeping return args alive; nor to free the
+temps we have just created while mortal copying return args. Fortunately,
+C<leave_adjust_stacks()> is capable of making mortal copies of return args,
+shifting args down the stack, and only processing those entries on the
+temps stack that are safe to do so.
+
+In void context no args are returned, so it's more efficient to skip
+calling C<leave_adjust_stacks()>. Also in void context, a C<nextstate> op
+is likely to be imminently called which will do a C<FREETMPS>, so there's
+no need to do that either.
+
+The next step is to pop savestack entries: C<CX_LEAVE_SCOPE(cx)> is just
+defined as C<<LEAVE_SCOPE(cx->blk_oldsaveix)>>. Note that during the
+popping, it's possible for perl to call destructors, call C<STORE> to undo
+localisations of tied vars, and so on. Any of these can die or call
+C<exit()>. In this case, C<dounwind()> will be called, and the current
+context stack frame will be re-processed. Thus it is vital that all steps
+in popping a context are done in such a way to support reentrancy.  The
+other alternative, of decrementing C<cxstack_ix> I<before> processing the
+frame, would lead to leaks and the like if something died halfway through,
+or overwriting of the current frame.
+
+C<CX_LEAVE_SCOPE> itself is safely re-entrant: if only half the savestack
+items have been popped before dying and getting trapped by eval, then the
+C<CX_LEAVE_SCOPE>s in C<dounwind> or C<pp_leaveeval> will continue where
+the first one left off.
+
+The next step is the type-specific context processing; in this case
+C<cx_popsub>. In part, this looks like:
+
+    cv = cx->blk_sub.cv;
+    CvDEPTH(cv) = cx->blk_sub.olddepth;
+    cx->blk_sub.cv = NULL;
+    SvREFCNT_dec(cv);
+
+where its processing the just-executed CV. Note that before it decrements
+the CV's reference count, it nulls the C<blk_sub.cv>. This means that if
+it re-enters, the CV won't be freed twice. It also means that you can't
+rely on such type-specific fields having useful values after the return
+from C<cx_popfoo>.
+
+Next, C<cx_popblock> restores all the various interpreter vars to their
+previous values or previous high water marks; it expands to:
+
+    PL_markstack_ptr = PL_markstack + cx->blk_oldmarksp;
+    PL_scopestack_ix = cx->blk_oldscopesp;
+    PL_curpm         = cx->blk_oldpm;
+    PL_curcop        = cx->blk_oldcop;
+    PL_tmps_floor    = cx->blk_old_tmpsfloor;
+
+Note that it I<doesn't> restore C<PL_stack_sp>; as mentioned earlier,
+which value to restore it to depends on the context type (specifically
+C<for (list) {}>), and what args (if any) it returns; and that will
+already have been sorted out earlier by C<leave_adjust_stacks()>.
+
+Finally, the context stack pointer is actually decremented by C<CX_POP(cx)>.
+After this point, it's possible that that the current context frame could
+be overwritten by other contexts being pushed. Although things like ties
+and C<DESTROY> are supposed to work within a new context stack, it's best
+not to assume this. Indeed on debugging builds, C<CX_POP(cx)> deliberately
+sets C<cx> to null to detect code that is still relying on the field
+values in that context frame. Note in the C<pp_leavesub()> example above,
+we grab C<blk_sub.retop> I<before> calling C<CX_POP>.
+
+=head2 Redoing contexts
+
+Finally, there is C<cx_topblock(cx)>, which acts like a super-C<nextstate>
+as regards to resetting various vars to their base values. It is used in
+places like C<pp_next>, C<pp_redo> and C<pp_goto> where rather than
+exiting a scope, we want to re-initialise the scope. As well as resetting
+C<PL_stack_sp> like C<nextstate>, it also resets C<PL_markstack_ptr>,
+C<PL_scopestack_ix> and C<PL_curpm>. Note that it doesn't do a
+C<FREETMPS>.
+
+
+=head1 AUTHORS
+
+Until May 1997, this document was maintained by Jeff Okamoto
+E<lt>okamoto@corp.hp.comE<gt>.  It is now maintained as part of Perl
+itself by the Perl 5 Porters E<lt>perl5-porters@perl.orgE<gt>.
+
+With lots of help and suggestions from Dean Roehrich, Malcolm Beattie,
+Andreas Koenig, Paul Hudson, Ilya Zakharevich, Paul Marquess, Neil
+Bowers, Matthew Green, Tim Bunce, Spider Boardman, Ulrich Pfeifer,
+Stephen McCamant, and Gurusamy Sarathy.
+
+=head1 SEE ALSO
+
+L<perlapi>, L<perlintern>, L<perlxs>, L<perlembed>
diff --git a/lib/5.24.1/pod/perlhack.pod b/lib/5.24.1/pod/perlhack.pod
new file mode 100644
index 00000000..4e790633
--- /dev/null
+++ b/lib/5.24.1/pod/perlhack.pod
@@ -0,0 +1,1219 @@
+=encoding utf8
+
+=for comment
+Consistent formatting of this file is achieved with:
+  perl ./Porting/podtidy pod/perlhack.pod
+
+=head1 NAME
+
+perlhack - How to hack on Perl
+
+=head1 DESCRIPTION
+
+This document explains how Perl development works.  It includes details
+about the Perl 5 Porters email list, the Perl repository, the Perlbug
+bug tracker, patch guidelines, and commentary on Perl development
+philosophy.
+
+=head1 SUPER QUICK PATCH GUIDE
+
+If you just want to submit a single small patch like a pod fix, a test
+for a bug, comment fixes, etc., it's easy! Here's how:
+
+=over 4
+
+=item * Check out the source repository
+
+The perl source is in a git repository.  You can clone the repository
+with the following command:
+
+  % git clone git://perl5.git.perl.org/perl.git perl
+
+=item * Ensure you're following the latest advice
+
+In case the advice in this guide has been updated recently, read the
+latest version directly from the perl source:
+
+  % perldoc pod/perlhack.pod
+
+=item * Make your change
+
+Hack, hack, hack.  Keep in mind that Perl runs on many different
+platforms, with different operating systems that have different
+capabilities, different filesystem organizations, and even different
+character sets.  L<perlhacktips> gives advice on this.
+
+=item * Test your change
+
+You can run all the tests with the following commands:
+
+  % ./Configure -des -Dusedevel
+  % make test
+
+Keep hacking until the tests pass.
+
+=item * Commit your change
+
+Committing your work will save the change I<on your local system>:
+
+  % git commit -a -m 'Commit message goes here'
+
+Make sure the commit message describes your change in a single
+sentence.  For example, "Fixed spelling errors in perlhack.pod".
+
+=item * Send your change to perlbug
+
+The next step is to submit your patch to the Perl core ticket system
+via email.
+
+If your changes are in a single git commit, run the following commands
+to generate the patch file and attach it to your bug report:
+
+  % git format-patch -1
+  % ./perl -Ilib utils/perlbug -p 0001-*.patch
+
+The perlbug program will ask you a few questions about your email
+address and the patch you're submitting.  Once you've answered them it
+will submit your patch via email.
+
+If your changes are in multiple commits, generate a patch file for each
+one and provide them to perlbug's C<-p> option separated by commas:
+
+  % git format-patch -3
+  % ./perl -Ilib utils/perlbug -p 0001-fix1.patch,0002-fix2.patch,\
+  > 0003-fix3.patch
+
+When prompted, pick a subject that summarizes your changes.
+
+=item * Thank you
+
+The porters appreciate the time you spent helping to make Perl better.
+Thank you!
+
+=item * Next time
+
+The next time you wish to make a patch, you need to start from the
+latest perl in a pristine state.  Check you don't have any local changes
+or added files in your perl check-out which you wish to keep, then run
+these commands:
+
+  % git pull
+  % git reset --hard origin/blead
+  % git clean -dxf
+
+=back
+
+=head1 BUG REPORTING
+
+If you want to report a bug in Perl, you must use the F<perlbug>
+command line tool.  This tool will ensure that your bug report includes
+all the relevant system and configuration information.
+
+To browse existing Perl bugs and patches, you can use the web interface
+at L<http://rt.perl.org/>.
+
+Please check the archive of the perl5-porters list (see below) and/or
+the bug tracking system before submitting a bug report.  Often, you'll
+find that the bug has been reported already.
+
+You can log in to the bug tracking system and comment on existing bug
+reports.  If you have additional information regarding an existing bug,
+please add it.  This will help the porters fix the bug.
+
+=head1 PERL 5 PORTERS
+
+The perl5-porters (p5p) mailing list is where the Perl standard
+distribution is maintained and developed.  The people who maintain Perl
+are also referred to as the "Perl 5 Porters", "p5p" or just the
+"porters".
+
+A searchable archive of the list is available at
+L<http://markmail.org/search/?q=perl5-porters>.  There is also an archive at
+L<http://archive.develooper.com/perl5-porters@perl.org/>.
+
+=head2 perl-changes mailing list
+
+The perl5-changes mailing list receives a copy of each patch that gets
+submitted to the maintenance and development branches of the perl
+repository.  See L<http://lists.perl.org/list/perl5-changes.html> for
+subscription and archive information.
+
+=head2 #p5p on IRC
+
+Many porters are also active on the L<irc://irc.perl.org/#p5p> channel.
+Feel free to join the channel and ask questions about hacking on the
+Perl core.
+
+=head1 GETTING THE PERL SOURCE
+
+All of Perl's source code is kept centrally in a Git repository at
+I<perl5.git.perl.org>.  The repository contains many Perl revisions
+from Perl 1 onwards and all the revisions from Perforce, the previous
+version control system.
+
+For much more detail on using git with the Perl repository, please see
+L<perlgit>.
+
+=head2 Read access via Git
+
+You will need a copy of Git for your computer.  You can fetch a copy of
+the repository using the git protocol:
+
+  % git clone git://perl5.git.perl.org/perl.git perl
+
+This clones the repository and makes a local copy in the F<perl>
+directory.
+
+If you cannot use the git protocol for firewall reasons, you can also
+clone via http, though this is much slower:
+
+  % git clone http://perl5.git.perl.org/perl.git perl
+
+=head2 Read access via the web
+
+You may access the repository over the web.  This allows you to browse
+the tree, see recent commits, subscribe to RSS feeds for the changes,
+search for particular commits and more.  You may access it at
+L<http://perl5.git.perl.org/perl.git>.  A mirror of the repository is
+found at L<https://github.com/Perl/perl5>.
+
+=head2 Read access via rsync
+
+You can also choose to use rsync to get a copy of the current source
+tree for the bleadperl branch and all maintenance branches:
+
+  % rsync -avz rsync://perl5.git.perl.org/perl-current .
+  % rsync -avz rsync://perl5.git.perl.org/perl-5.12.x .
+  % rsync -avz rsync://perl5.git.perl.org/perl-5.10.x .
+  % rsync -avz rsync://perl5.git.perl.org/perl-5.8.x .
+  % rsync -avz rsync://perl5.git.perl.org/perl-5.6.x .
+  % rsync -avz rsync://perl5.git.perl.org/perl-5.005xx .
+
+(Add the C<--delete> option to remove leftover files.)
+
+To get a full list of the available sync points:
+
+  % rsync perl5.git.perl.org::
+
+=head2 Write access via git
+
+If you have a commit bit, please see L<perlgit> for more details on
+using git.
+
+=head1 PATCHING PERL
+
+If you're planning to do more extensive work than a single small fix,
+we encourage you to read the documentation below.  This will help you
+focus your work and make your patches easier to incorporate into the
+Perl source.
+
+=head2 Submitting patches
+
+If you have a small patch to submit, please submit it via perlbug.  You
+can also send email directly to perlbug@perl.org.  Please note that
+messages sent to perlbug may be held in a moderation queue, so you
+won't receive a response immediately.
+
+You'll know your submission has been processed when you receive an
+email from our ticket tracking system.  This email will give you a
+ticket number.  Once your patch has made it to the ticket tracking
+system, it will also be sent to the perl5-porters@perl.org list.
+
+Patches are reviewed and discussed on the p5p list.  Simple,
+uncontroversial patches will usually be applied without any discussion.
+When the patch is applied, the ticket will be updated and you will
+receive email.  In addition, an email will be sent to the p5p list.
+
+In other cases, the patch will need more work or discussion.  That will
+happen on the p5p list.
+
+You are encouraged to participate in the discussion and advocate for
+your patch.  Sometimes your patch may get lost in the shuffle.  It's
+appropriate to send a reminder email to p5p if no action has been taken
+in a month.  Please remember that the Perl 5 developers are all
+volunteers, and be polite.
+
+Changes are always applied directly to the main development branch,
+called "blead".  Some patches may be backported to a maintenance
+branch.  If you think your patch is appropriate for the maintenance
+branch (see L<perlpolicy/MAINTENANCE BRANCHES>), please explain why
+when you submit it.
+
+=head2 Getting your patch accepted
+
+If you are submitting a code patch there are several things that you
+can do to help the Perl 5 Porters accept your patch.
+
+=head3 Patch style
+
+If you used git to check out the Perl source, then using C<git
+format-patch> will produce a patch in a style suitable for Perl.  The
+C<format-patch> command produces one patch file for each commit you
+made.  If you prefer to send a single patch for all commits, you can
+use C<git diff>.
+
+  % git checkout blead
+  % git pull
+  % git diff blead my-branch-name
+
+This produces a patch based on the difference between blead and your
+current branch.  It's important to make sure that blead is up to date
+before producing the diff, that's why we call C<git pull> first.
+
+We strongly recommend that you use git if possible.  It will make your
+life easier, and ours as well.
+
+However, if you're not using git, you can still produce a suitable
+patch.  You'll need a pristine copy of the Perl source to diff against.
+The porters prefer unified diffs.  Using GNU C<diff>, you can produce a
+diff like this:
+
+  % diff -Npurd perl.pristine perl.mine
+
+Make sure that you C<make realclean> in your copy of Perl to remove any
+build artifacts, or you may get a confusing result.
+
+=head3 Commit message
+
+As you craft each patch you intend to submit to the Perl core, it's
+important to write a good commit message.  This is especially important
+if your submission will consist of a series of commits.
+
+The first line of the commit message should be a short description
+without a period.  It should be no longer than the subject line of an
+email, 50 characters being a good rule of thumb.
+
+A lot of Git tools (Gitweb, GitHub, git log --pretty=oneline, ...) will
+only display the first line (cut off at 50 characters) when presenting
+commit summaries.
+
+The commit message should include a description of the problem that the
+patch corrects or new functionality that the patch adds.
+
+As a general rule of thumb, your commit message should help a
+programmer who knows the Perl core quickly understand what you were
+trying to do, how you were trying to do it, and why the change matters
+to Perl.
+
+=over 4
+
+=item * Why
+
+Your commit message should describe why the change you are making is
+important.  When someone looks at your change in six months or six
+years, your intent should be clear.
+
+If you're deprecating a feature with the intent of later simplifying
+another bit of code, say so.  If you're fixing a performance problem or
+adding a new feature to support some other bit of the core, mention
+that.
+
+=item * What
+
+Your commit message should describe what part of the Perl core you're
+changing and what you expect your patch to do.
+
+=item * How
+
+While it's not necessary for documentation changes, new tests or
+trivial patches, it's often worth explaining how your change works.
+Even if it's clear to you today, it may not be clear to a porter next
+month or next year.
+
+=back
+
+A commit message isn't intended to take the place of comments in your
+code.  Commit messages should describe the change you made, while code
+comments should describe the current state of the code.
+
+If you've just implemented a new feature, complete with doc, tests and
+well-commented code, a brief commit message will often suffice.  If,
+however, you've just changed a single character deep in the parser or
+lexer, you might need to write a small novel to ensure that future
+readers understand what you did and why you did it.
+
+=head3 Comments, Comments, Comments
+
+Be sure to adequately comment your code.  While commenting every line
+is unnecessary, anything that takes advantage of side effects of
+operators, that creates changes that will be felt outside of the
+function being patched, or that others may find confusing should be
+documented.  If you are going to err, it is better to err on the side
+of adding too many comments than too few.
+
+The best comments explain I<why> the code does what it does, not I<what
+it does>.
+
+=head3 Style
+
+In general, please follow the particular style of the code you are
+patching.
+
+In particular, follow these general guidelines for patching Perl
+sources:
+
+=over 4
+
+=item *
+
+8-wide tabs (no exceptions!)
+
+=item *
+
+4-wide indents for code, 2-wide indents for nested CPP #defines
+
+=item *
+
+Try hard not to exceed 79-columns
+
+=item *
+
+ANSI C prototypes
+
+=item *
+
+Uncuddled elses and "K&R" style for indenting control constructs
+
+=item *
+
+No C++ style (//) comments
+
+=item *
+
+Mark places that need to be revisited with XXX (and revisit often!)
+
+=item *
+
+Opening brace lines up with "if" when conditional spans multiple lines;
+should be at end-of-line otherwise
+
+=item *
+
+In function definitions, name starts in column 0 (return value-type is on
+previous line)
+
+=item *
+
+Single space after keywords that are followed by parens, no space
+between function name and following paren
+
+=item *
+
+Avoid assignments in conditionals, but if they're unavoidable, use
+extra paren, e.g. "if (a && (b = c)) ..."
+
+=item *
+
+"return foo;" rather than "return(foo);"
+
+=item *
+
+"if (!foo) ..." rather than "if (foo == FALSE) ..." etc.
+
+=item *
+
+Do not declare variables using "register".  It may be counterproductive
+with modern compilers, and is deprecated in C++, under which the Perl
+source is regularly compiled.
+
+=item *
+
+In-line functions that are in headers that are accessible to XS code
+need to be able to compile without warnings with commonly used extra
+compilation flags, such as gcc's C<-Wswitch-default> which warns
+whenever a switch statement does not have a "default" case.  The use of
+these extra flags is to catch potential problems in legal C code, and
+is often used by Perl aggregators, such as Linux distributors.
+
+=back
+
+=head3 Test suite
+
+If your patch changes code (rather than just changing documentation),
+you should also include one or more test cases which illustrate the bug
+you're fixing or validate the new functionality you're adding.  In
+general, you should update an existing test file rather than create a
+new one.
+
+Your test suite additions should generally follow these guidelines
+(courtesy of Gurusamy Sarathy <gsar@activestate.com>):
+
+=over 4
+
+=item *
+
+Know what you're testing.  Read the docs, and the source.
+
+=item *
+
+Tend to fail, not succeed.
+
+=item *
+
+Interpret results strictly.
+
+=item *
+
+Use unrelated features (this will flush out bizarre interactions).
+
+=item *
+
+Use non-standard idioms (otherwise you are not testing TIMTOWTDI).
+
+=item *
+
+Avoid using hardcoded test numbers whenever possible (the EXPECTED/GOT
+found in t/op/tie.t is much more maintainable, and gives better failure
+reports).
+
+=item *
+
+Give meaningful error messages when a test fails.
+
+=item *
+
+Avoid using qx// and system() unless you are testing for them.  If you
+do use them, make sure that you cover _all_ perl platforms.
+
+=item *
+
+Unlink any temporary files you create.
+
+=item *
+
+Promote unforeseen warnings to errors with $SIG{__WARN__}.
+
+=item *
+
+Be sure to use the libraries and modules shipped with the version being
+tested, not those that were already installed.
+
+=item *
+
+Add comments to the code explaining what you are testing for.
+
+=item *
+
+Make updating the '1..42' string unnecessary.  Or make sure that you
+update it.
+
+=item *
+
+Test _all_ behaviors of a given operator, library, or function.
+
+Test all optional arguments.
+
+Test return values in various contexts (boolean, scalar, list, lvalue).
+
+Use both global and lexical variables.
+
+Don't forget the exceptional, pathological cases.
+
+=back
+
+=head2 Patching a core module
+
+This works just like patching anything else, with one extra
+consideration.
+
+Modules in the F<cpan/> directory of the source tree are maintained
+outside of the Perl core.  When the author updates the module, the
+updates are simply copied into the core.  See that module's
+documentation or its listing on L<http://search.cpan.org/> for more
+information on reporting bugs and submitting patches.
+
+In most cases, patches to modules in F<cpan/> should be sent upstream
+and should not be applied to the Perl core individually.  If a patch to
+a file in F<cpan/> absolutely cannot wait for the fix to be made
+upstream, released to CPAN and copied to blead, you must add (or
+update) a C<CUSTOMIZED> entry in the F<"Porting/Maintainers.pl"> file
+to flag that a local modification has been made.  See
+F<"Porting/Maintainers.pl"> for more details.
+
+In contrast, modules in the F<dist/> directory are maintained in the
+core.
+
+=head2 Updating perldelta
+
+For changes significant enough to warrant a F<pod/perldelta.pod> entry,
+the porters will greatly appreciate it if you submit a delta entry
+along with your actual change.  Significant changes include, but are
+not limited to:
+
+=over 4
+
+=item *
+
+Adding, deprecating, or removing core features
+
+=item *
+
+Adding, deprecating, removing, or upgrading core or dual-life modules
+
+=item *
+
+Adding new core tests
+
+=item *
+
+Fixing security issues and user-visible bugs in the core
+
+=item *
+
+Changes that might break existing code, either on the perl or C level
+
+=item *
+
+Significant performance improvements
+
+=item *
+
+Adding, removing, or significantly changing documentation in the
+F<pod/> directory
+
+=item *
+
+Important platform-specific changes
+
+=back
+
+Please make sure you add the perldelta entry to the right section
+within F<pod/perldelta.pod>.  More information on how to write good
+perldelta entries is available in the C<Style> section of
+F<Porting/how_to_write_a_perldelta.pod>.
+
+=head2 What makes for a good patch?
+
+New features and extensions to the language can be contentious.  There
+is no specific set of criteria which determine what features get added,
+but here are some questions to consider when developing a patch:
+
+=head3 Does the concept match the general goals of Perl?
+
+Our goals include, but are not limited to:
+
+=over 4
+
+=item 1.
+
+Keep it fast, simple, and useful.
+
+=item 2.
+
+Keep features/concepts as orthogonal as possible.
+
+=item 3.
+
+No arbitrary limits (platforms, data sizes, cultures).
+
+=item 4.
+
+Keep it open and exciting to use/patch/advocate Perl everywhere.
+
+=item 5.
+
+Either assimilate new technologies, or build bridges to them.
+
+=back
+
+=head3 Where is the implementation?
+
+All the talk in the world is useless without an implementation.  In
+almost every case, the person or people who argue for a new feature
+will be expected to be the ones who implement it.  Porters capable of
+coding new features have their own agendas, and are not available to
+implement your (possibly good) idea.
+
+=head3 Backwards compatibility
+
+It's a cardinal sin to break existing Perl programs.  New warnings can
+be contentious--some say that a program that emits warnings is not
+broken, while others say it is.  Adding keywords has the potential to
+break programs, changing the meaning of existing token sequences or
+functions might break programs.
+
+The Perl 5 core includes mechanisms to help porters make backwards
+incompatible changes more compatible such as the L<feature> and
+L<deprecate> modules.  Please use them when appropriate.
+
+=head3 Could it be a module instead?
+
+Perl 5 has extension mechanisms, modules and XS, specifically to avoid
+the need to keep changing the Perl interpreter.  You can write modules
+that export functions, you can give those functions prototypes so they
+can be called like built-in functions, you can even write XS code to
+mess with the runtime data structures of the Perl interpreter if you
+want to implement really complicated things.
+
+Whenever possible, new features should be prototyped in a CPAN module
+before they will be considered for the core.
+
+=head3 Is the feature generic enough?
+
+Is this something that only the submitter wants added to the language,
+or is it broadly useful?  Sometimes, instead of adding a feature with a
+tight focus, the porters might decide to wait until someone implements
+the more generalized feature.
+
+=head3 Does it potentially introduce new bugs?
+
+Radical rewrites of large chunks of the Perl interpreter have the
+potential to introduce new bugs.
+
+=head3 How big is it?
+
+The smaller and more localized the change, the better.  Similarly, a
+series of small patches is greatly preferred over a single large patch.
+
+=head3 Does it preclude other desirable features?
+
+A patch is likely to be rejected if it closes off future avenues of
+development.  For instance, a patch that placed a true and final
+interpretation on prototypes is likely to be rejected because there are
+still options for the future of prototypes that haven't been addressed.
+
+=head3 Is the implementation robust?
+
+Good patches (tight code, complete, correct) stand more chance of going
+in.  Sloppy or incorrect patches might be placed on the back burner
+until the pumpking has time to fix, or might be discarded altogether
+without further notice.
+
+=head3 Is the implementation generic enough to be portable?
+
+The worst patches make use of system-specific features.  It's highly
+unlikely that non-portable additions to the Perl language will be
+accepted.
+
+=head3 Is the implementation tested?
+
+Patches which change behaviour (fixing bugs or introducing new
+features) must include regression tests to verify that everything works
+as expected.
+
+Without tests provided by the original author, how can anyone else
+changing perl in the future be sure that they haven't unwittingly
+broken the behaviour the patch implements? And without tests, how can
+the patch's author be confident that his/her hard work put into the
+patch won't be accidentally thrown away by someone in the future?
+
+=head3 Is there enough documentation?
+
+Patches without documentation are probably ill-thought out or
+incomplete.  No features can be added or changed without documentation,
+so submitting a patch for the appropriate pod docs as well as the
+source code is important.
+
+=head3 Is there another way to do it?
+
+Larry said "Although the Perl Slogan is I<There's More Than One Way to
+Do It>, I hesitate to make 10 ways to do something".  This is a tricky
+heuristic to navigate, though--one man's essential addition is another
+man's pointless cruft.
+
+=head3 Does it create too much work?
+
+Work for the pumpking, work for Perl programmers, work for module
+authors, ... Perl is supposed to be easy.
+
+=head3 Patches speak louder than words
+
+Working code is always preferred to pie-in-the-sky ideas.  A patch to
+add a feature stands a much higher chance of making it to the language
+than does a random feature request, no matter how fervently argued the
+request might be.  This ties into "Will it be useful?", as the fact
+that someone took the time to make the patch demonstrates a strong
+desire for the feature.
+
+=head1 TESTING
+
+The core uses the same testing style as the rest of Perl, a simple
+"ok/not ok" run through Test::Harness, but there are a few special
+considerations.
+
+There are three ways to write a test in the core: L<Test::More>,
+F<t/test.pl> and ad hoc C<print $test ? "ok 42\n" : "not ok 42\n">.
+The decision of which to use depends on what part of the test suite
+you're working on.  This is a measure to prevent a high-level failure
+(such as Config.pm breaking) from causing basic functionality tests to
+fail.
+
+The F<t/test.pl> library provides some of the features of
+L<Test::More>, but avoids loading most modules and uses as few core
+features as possible.
+
+If you write your own test, use the L<Test Anything
+Protocol|http://testanything.org>.
+
+=over 4
+
+=item * F<t/base>, F<t/comp> and F<t/opbasic>
+
+Since we don't know if C<require> works, or even subroutines, use ad hoc
+tests for these three.  Step carefully to avoid using the feature being
+tested.  Tests in F<t/opbasic>, for instance, have been placed there
+rather than in F<t/op> because they test functionality which
+F<t/test.pl> presumes has already been demonstrated to work.
+
+=item * F<t/cmd>, F<t/run>, F<t/io> and F<t/op>
+
+Now that basic require() and subroutines are tested, you can use the
+F<t/test.pl> library.
+
+You can also use certain libraries like Config conditionally, but be
+sure to skip the test gracefully if it's not there.
+
+=item * Everything else
+
+Now that the core of Perl is tested, L<Test::More> can and should be
+used.  You can also use the full suite of core modules in the tests.
+
+=back
+
+When you say "make test", Perl uses the F<t/TEST> program to run the
+test suite (except under Win32 where it uses F<t/harness> instead).
+All tests are run from the F<t/> directory, B<not> the directory which
+contains the test.  This causes some problems with the tests in
+F<lib/>, so here's some opportunity for some patching.
+
+You must be triply conscious of cross-platform concerns.  This usually
+boils down to using L<File::Spec>, avoiding things like C<fork()>
+and C<system()> unless absolutely necessary, and not assuming that a
+given character has a particular ordinal value (code point) or that its
+UTF-8 representation is composed of particular bytes.
+
+There are several functions available to specify characters and code
+points portably in tests.  The always-preloaded functions
+C<utf8::unicode_to_native()> and its inverse
+C<utf8::native_to_unicode()> take code points and translate
+appropriately.  The file F<t/charset_tools.pl> has several functions
+that can be useful.  It has versions of the previous two functions
+that take strings as inputs -- not single numeric code points:
+C<uni_to_native()> and C<native_to_uni()>.  If you must look at the
+individual bytes comprising a UTF-8 encoded string,
+C<byte_utf8a_to_utf8n()> takes as input a string of those bytes encoded
+for an ASCII platform, and returns the equivalent string in the native
+platform.  For example, C<byte_utf8a_to_utf8n("\xC2\xA0")> returns the
+byte sequence on the current platform that form the UTF-8 for C<U+00A0>,
+since C<"\xC2\xA0"> are the UTF-8 bytes on an ASCII platform for that
+code point.  This function returns C<"\xC2\xA0"> on an ASCII platform, and
+C<"\x80\x41"> on an EBCDIC 1047 one.
+
+But easiest is, if the character is specifiable as a literal, like
+C<"A"> or C<"%">, to use that; if not so specificable, you can use use
+C<\N{}> , if the side effects aren't troublesome.  Simply specify all
+your characters in hex, using C<\N{U+ZZ}> instead of C<\xZZ>.  C<\N{}>
+is the Unicode name, and so it
+always gives you the Unicode character.  C<\N{U+41}> is the character
+whose Unicode code point is C<0x41>, hence is C<'A'> on all platforms.
+The side effects are:
+
+=over 4
+
+=item *
+
+These select Unicode rules.  That means that in double-quotish strings,
+the string is always converted to UTF-8 to force a Unicode
+interpretation (you can C<utf8::downgrade()> afterwards to convert back
+to non-UTF8, if possible).  In regular expression patterns, the
+conversion isn't done, but if the character set modifier would
+otherwise be C</d>, it is changed to C</u>.
+
+=item *
+
+If you use the form C<\N{I<character name>}>, the L<charnames> module
+gets automatically loaded.  This may not be suitable for the test level
+you are doing.
+
+=back
+
+If you are testing locales (see L<perllocale>), there are helper
+functions in F<t/loc_tools.pl> to enable you to see what locales there
+are on the current platform.
+
+=head2 Special C<make test> targets
+
+There are various special make targets that can be used to test Perl
+slightly differently than the standard "test" target.  Not all them are
+expected to give a 100% success rate.  Many of them have several
+aliases, and many of them are not available on certain operating
+systems.
+
+=over 4
+
+=item * test_porting
+
+This runs some basic sanity tests on the source tree and helps catch
+basic errors before you submit a patch.
+
+=item * minitest
+
+Run F<miniperl> on F<t/base>, F<t/comp>, F<t/cmd>, F<t/run>, F<t/io>,
+F<t/op>, F<t/uni> and F<t/mro> tests.
+
+=item * test.valgrind check.valgrind
+
+(Only in Linux) Run all the tests using the memory leak + naughty
+memory access tool "valgrind".  The log files will be named
+F<testname.valgrind>.
+
+=item * test_harness
+
+Run the test suite with the F<t/harness> controlling program, instead
+of F<t/TEST>.  F<t/harness> is more sophisticated, and uses the
+L<Test::Harness> module, thus using this test target supposes that perl
+mostly works.  The main advantage for our purposes is that it prints a
+detailed summary of failed tests at the end.  Also, unlike F<t/TEST>,
+it doesn't redirect stderr to stdout.
+
+Note that under Win32 F<t/harness> is always used instead of F<t/TEST>,
+so there is no special "test_harness" target.
+
+Under Win32's "test" target you may use the TEST_SWITCHES and
+TEST_FILES environment variables to control the behaviour of
+F<t/harness>.  This means you can say
+
+    nmake test TEST_FILES="op/*.t"
+    nmake test TEST_SWITCHES="-torture" TEST_FILES="op/*.t"
+
+=item * test-notty test_notty
+
+Sets PERL_SKIP_TTY_TEST to true before running normal test.
+
+=back
+
+=head2 Parallel tests
+
+The core distribution can now run its regression tests in parallel on
+Unix-like platforms.  Instead of running C<make test>, set C<TEST_JOBS>
+in your environment to the number of tests to run in parallel, and run
+C<make test_harness>.  On a Bourne-like shell, this can be done as
+
+    TEST_JOBS=3 make test_harness  # Run 3 tests in parallel
+
+An environment variable is used, rather than parallel make itself,
+because L<TAP::Harness> needs to be able to schedule individual
+non-conflicting test scripts itself, and there is no standard interface
+to C<make> utilities to interact with their job schedulers.
+
+Note that currently some test scripts may fail when run in parallel
+(most notably F<dist/IO/t/io_dir.t>).  If necessary, run just the
+failing scripts again sequentially and see if the failures go away.
+
+=head2 Running tests by hand
+
+You can run part of the test suite by hand by using one of the
+following commands from the F<t/> directory:
+
+    ./perl -I../lib TEST list-of-.t-files
+
+or
+
+    ./perl -I../lib harness list-of-.t-files
+
+(If you don't specify test scripts, the whole test suite will be run.)
+
+=head2 Using F<t/harness> for testing
+
+If you use C<harness> for testing, you have several command line
+options available to you.  The arguments are as follows, and are in the
+order that they must appear if used together.
+
+    harness -v -torture -re=pattern LIST OF FILES TO TEST
+    harness -v -torture -re LIST OF PATTERNS TO MATCH
+
+If C<LIST OF FILES TO TEST> is omitted, the file list is obtained from
+the manifest.  The file list may include shell wildcards which will be
+expanded out.
+
+=over 4
+
+=item * -v
+
+Run the tests under verbose mode so you can see what tests were run,
+and debug output.
+
+=item * -torture
+
+Run the torture tests as well as the normal set.
+
+=item * -re=PATTERN
+
+Filter the file list so that all the test files run match PATTERN.
+Note that this form is distinct from the B<-re LIST OF PATTERNS> form
+below in that it allows the file list to be provided as well.
+
+=item * -re LIST OF PATTERNS
+
+Filter the file list so that all the test files run match
+/(LIST|OF|PATTERNS)/.  Note that with this form the patterns are joined
+by '|' and you cannot supply a list of files, instead the test files
+are obtained from the MANIFEST.
+
+=back
+
+You can run an individual test by a command similar to
+
+    ./perl -I../lib path/to/foo.t
+
+except that the harnesses set up some environment variables that may
+affect the execution of the test:
+
+=over 4
+
+=item * PERL_CORE=1
+
+indicates that we're running this test as part of the perl core test
+suite.  This is useful for modules that have a dual life on CPAN.
+
+=item * PERL_DESTRUCT_LEVEL=2
+
+is set to 2 if it isn't set already (see
+L<perlhacktips/PERL_DESTRUCT_LEVEL>).
+
+=item * PERL
+
+(used only by F<t/TEST>) if set, overrides the path to the perl
+executable that should be used to run the tests (the default being
+F<./perl>).
+
+=item * PERL_SKIP_TTY_TEST
+
+if set, tells to skip the tests that need a terminal.  It's actually
+set automatically by the Makefile, but can also be forced artificially
+by running 'make test_notty'.
+
+=back
+
+=head3 Other environment variables that may influence tests
+
+=over 4
+
+=item * PERL_TEST_Net_Ping
+
+Setting this variable runs all the Net::Ping modules tests, otherwise
+some tests that interact with the outside world are skipped.  See
+L<perl58delta>.
+
+=item * PERL_TEST_NOVREXX
+
+Setting this variable skips the vrexx.t tests for OS2::REXX.
+
+=item * PERL_TEST_NUMCONVERTS
+
+This sets a variable in op/numconvert.t.
+
+=item * PERL_TEST_MEMORY
+
+Setting this variable includes the tests in F<t/bigmem/>.  This should
+be set to the number of gigabytes of memory available for testing, eg.
+C<PERL_TEST_MEMORY=4> indicates that tests that require 4GiB of
+available memory can be run safely.
+
+=back
+
+See also the documentation for the Test and Test::Harness modules, for
+more environment variables that affect testing.
+
+=head2 Performance testing
+
+The file F<t/perf/benchmarks> contains snippets of perl code which are
+intended to be benchmarked across a range of perls by the
+F<Porting/bench.pl> tool. If you fix or enhance a performance issue, you
+may want to add a representative code sample to the file, then run
+F<bench.pl> against the previous and current perls to see what difference
+it has made, and whether anything else has slowed down as a consequence.
+
+The file F<t/perf/opcount.t> is designed to test whether a particular
+code snippet has been compiled into an optree containing specified
+numbers of particular op types. This is good for testing whether
+optimisations which alter ops, such as converting an C<aelem> op into an
+C<aelemfast> op, are really doing that.
+
+The files F<t/perf/speed.t> and F<t/re/speed.t> are designed to test
+things that run thousands of times slower if a particular optimisation
+is broken (for example, the utf8 length cache on long utf8 strings).
+Add a test that will take a fraction of a second normally, and minutes
+otherwise, causing the test file to time out on failure.
+
+=head1 MORE READING FOR GUTS HACKERS
+
+To hack on the Perl guts, you'll need to read the following things:
+
+=over 4
+
+=item * L<perlsource>
+
+An overview of the Perl source tree.  This will help you find the files
+you're looking for.
+
+=item * L<perlinterp>
+
+An overview of the Perl interpreter source code and some details on how
+Perl does what it does.
+
+=item * L<perlhacktut>
+
+This document walks through the creation of a small patch to Perl's C
+code.  If you're just getting started with Perl core hacking, this will
+help you understand how it works.
+
+=item * L<perlhacktips>
+
+More details on hacking the Perl core.  This document focuses on lower
+level details such as how to write tests, compilation issues,
+portability, debugging, etc.
+
+If you plan on doing serious C hacking, make sure to read this.
+
+=item * L<perlguts>
+
+This is of paramount importance, since it's the documentation of what
+goes where in the Perl source.  Read it over a couple of times and it
+might start to make sense - don't worry if it doesn't yet, because the
+best way to study it is to read it in conjunction with poking at Perl
+source, and we'll do that later on.
+
+Gisle Aas's "illustrated perlguts", also known as I<illguts>, has very
+helpful pictures:
+
+L<http://search.cpan.org/dist/illguts/>
+
+=item * L<perlxstut> and L<perlxs>
+
+A working knowledge of XSUB programming is incredibly useful for core
+hacking; XSUBs use techniques drawn from the PP code, the portion of
+the guts that actually executes a Perl program.  It's a lot gentler to
+learn those techniques from simple examples and explanation than from
+the core itself.
+
+=item * L<perlapi>
+
+The documentation for the Perl API explains what some of the internal
+functions do, as well as the many macros used in the source.
+
+=item * F<Porting/pumpkin.pod>
+
+This is a collection of words of wisdom for a Perl porter; some of it
+is only useful to the pumpkin holder, but most of it applies to anyone
+wanting to go about Perl development.
+
+=back
+
+=head1 CPAN TESTERS AND PERL SMOKERS
+
+The CPAN testers ( http://testers.cpan.org/ ) are a group of volunteers
+who test CPAN modules on a variety of platforms.
+
+Perl Smokers ( http://www.nntp.perl.org/group/perl.daily-build/ and
+http://www.nntp.perl.org/group/perl.daily-build.reports/ )
+automatically test Perl source releases on platforms with various
+configurations.
+
+Both efforts welcome volunteers.  In order to get involved in smoke
+testing of the perl itself visit
+L<http://search.cpan.org/dist/Test-Smoke/>.  In order to start smoke
+testing CPAN modules visit
+L<http://search.cpan.org/dist/CPANPLUS-YACSmoke/> or
+L<http://search.cpan.org/dist/minismokebox/> or
+L<http://search.cpan.org/dist/CPAN-Reporter/>.
+
+=head1 WHAT NEXT?
+
+If you've read all the documentation in the document and the ones
+listed above, you're more than ready to hack on Perl.
+
+Here's some more recommendations
+
+=over 4
+
+=item *
+
+Subscribe to perl5-porters, follow the patches and try and understand
+them; don't be afraid to ask if there's a portion you're not clear on -
+who knows, you may unearth a bug in the patch...
+
+=item *
+
+Do read the README associated with your operating system, e.g.
+README.aix on the IBM AIX OS.  Don't hesitate to supply patches to that
+README if you find anything missing or changed over a new OS release.
+
+=item *
+
+Find an area of Perl that seems interesting to you, and see if you can
+work out how it works.  Scan through the source, and step over it in
+the debugger.  Play, poke, investigate, fiddle! You'll probably get to
+understand not just your chosen area but a much wider range of
+F<perl>'s activity as well, and probably sooner than you'd think.
+
+=back
+
+=head2 "The Road goes ever on and on, down from the door where it began."
+
+If you can do these things, you've started on the long road to Perl
+porting.  Thanks for wanting to help make Perl better - and happy
+hacking!
+
+=head2 Metaphoric Quotations
+
+If you recognized the quote about the Road above, you're in luck.
+
+Most software projects begin each file with a literal description of
+each file's purpose.  Perl instead begins each with a literary allusion
+to that file's purpose.
+
+Like chapters in many books, all top-level Perl source files (along
+with a few others here and there) begin with an epigrammatic
+inscription that alludes, indirectly and metaphorically, to the
+material you're about to read.
+
+Quotations are taken from writings of J.R.R. Tolkien pertaining to his
+Legendarium, almost always from I<The Lord of the Rings>.  Chapters and
+page numbers are given using the following editions:
+
+=over 4
+
+=item *
+
+I<The Hobbit>, by J.R.R. Tolkien.  The hardcover, 70th-anniversary
+edition of 2007 was used, published in the UK by Harper Collins
+Publishers and in the US by the Houghton Mifflin Company.
+
+=item *
+
+I<The Lord of the Rings>, by J.R.R. Tolkien.  The hardcover,
+50th-anniversary edition of 2004 was used, published in the UK by
+Harper Collins Publishers and in the US by the Houghton Mifflin
+Company.
+
+=item *
+
+I<The Lays of Beleriand>, by J.R.R. Tolkien and published posthumously
+by his son and literary executor, C.J.R. Tolkien, being the 3rd of the
+12 volumes in Christopher's mammoth I<History of Middle Earth>.  Page
+numbers derive from the hardcover edition, first published in 1983 by
+George Allen & Unwin; no page numbers changed for the special 3-volume
+omnibus edition of 2002 or the various trade-paper editions, all again
+now by Harper Collins or Houghton Mifflin.
+
+=back
+
+Other JRRT books fair game for quotes would thus include I<The
+Adventures of Tom Bombadil>, I<The Silmarillion>, I<Unfinished Tales>,
+and I<The Tale of the Children of Hurin>, all but the first
+posthumously assembled by CJRT.  But I<The Lord of the Rings> itself is
+perfectly fine and probably best to quote from, provided you can find a
+suitable quote there.
+
+So if you were to supply a new, complete, top-level source file to add
+to Perl, you should conform to this peculiar practice by yourself
+selecting an appropriate quotation from Tolkien, retaining the original
+spelling and punctuation and using the same format the rest of the
+quotes are in.  Indirect and oblique is just fine; remember, it's a
+metaphor, so being meta is, after all, what it's for.
+
+=head1 AUTHOR
+
+This document was originally written by Nathan Torkington, and is
+maintained by the perl5-porters mailing list.
diff --git a/lib/5.24.1/pod/perlhacktips.pod b/lib/5.24.1/pod/perlhacktips.pod
new file mode 100644
index 00000000..1dd715a0
--- /dev/null
+++ b/lib/5.24.1/pod/perlhacktips.pod
@@ -0,0 +1,1645 @@
+
+=encoding utf8
+
+=for comment
+Consistent formatting of this file is achieved with:
+  perl ./Porting/podtidy pod/perlhacktips.pod
+
+=head1 NAME
+
+perlhacktips - Tips for Perl core C code hacking
+
+=head1 DESCRIPTION
+
+This document will help you learn the best way to go about hacking on
+the Perl core C code.  It covers common problems, debugging, profiling,
+and more.
+
+If you haven't read L<perlhack> and L<perlhacktut> yet, you might want
+to do that first.
+
+=head1 COMMON PROBLEMS
+
+Perl source plays by ANSI C89 rules: no C99 (or C++) extensions.  In
+some cases we have to take pre-ANSI requirements into consideration.
+You don't care about some particular platform having broken Perl? I
+hear there is still a strong demand for J2EE programmers.
+
+=head2 Perl environment problems
+
+=over 4
+
+=item *
+
+Not compiling with threading
+
+Compiling with threading (-Duseithreads) completely rewrites the
+function prototypes of Perl.  You better try your changes with that.
+Related to this is the difference between "Perl_-less" and "Perl_-ly"
+APIs, for example:
+
+  Perl_sv_setiv(aTHX_ ...);
+  sv_setiv(...);
+
+The first one explicitly passes in the context, which is needed for
+e.g. threaded builds.  The second one does that implicitly; do not get
+them mixed.  If you are not passing in a aTHX_, you will need to do a
+dTHX (or a dVAR) as the first thing in the function.
+
+See L<perlguts/"How multiple interpreters and concurrency are
+supported"> for further discussion about context.
+
+=item *
+
+Not compiling with -DDEBUGGING
+
+The DEBUGGING define exposes more code to the compiler, therefore more
+ways for things to go wrong.  You should try it.
+
+=item *
+
+Introducing (non-read-only) globals
+
+Do not introduce any modifiable globals, truly global or file static.
+They are bad form and complicate multithreading and other forms of
+concurrency.  The right way is to introduce them as new interpreter
+variables, see F<intrpvar.h> (at the very end for binary
+compatibility).
+
+Introducing read-only (const) globals is okay, as long as you verify
+with e.g. C<nm libperl.a|egrep -v ' [TURtr] '> (if your C<nm> has
+BSD-style output) that the data you added really is read-only.  (If it
+is, it shouldn't show up in the output of that command.)
+
+If you want to have static strings, make them constant:
+
+  static const char etc[] = "...";
+
+If you want to have arrays of constant strings, note carefully the
+right combination of C<const>s:
+
+    static const char * const yippee[] =
+        {"hi", "ho", "silver"};
+
+There is a way to completely hide any modifiable globals (they are all
+moved to heap), the compilation setting
+C<-DPERL_GLOBAL_STRUCT_PRIVATE>.  It is not normally used, but can be
+used for testing, read more about it in L<perlguts/"Background and
+PERL_IMPLICIT_CONTEXT">.
+
+=item *
+
+Not exporting your new function
+
+Some platforms (Win32, AIX, VMS, OS/2, to name a few) require any
+function that is part of the public API (the shared Perl library) to be
+explicitly marked as exported.  See the discussion about F<embed.pl> in
+L<perlguts>.
+
+=item *
+
+Exporting your new function
+
+The new shiny result of either genuine new functionality or your
+arduous refactoring is now ready and correctly exported.  So what could
+possibly go wrong?
+
+Maybe simply that your function did not need to be exported in the
+first place.  Perl has a long and not so glorious history of exporting
+functions that it should not have.
+
+If the function is used only inside one source code file, make it
+static.  See the discussion about F<embed.pl> in L<perlguts>.
+
+If the function is used across several files, but intended only for
+Perl's internal use (and this should be the common case), do not export
+it to the public API.  See the discussion about F<embed.pl> in
+L<perlguts>.
+
+=back
+
+=head2 Portability problems
+
+The following are common causes of compilation and/or execution
+failures, not common to Perl as such.  The C FAQ is good bedtime
+reading.  Please test your changes with as many C compilers and
+platforms as possible; we will, anyway, and it's nice to save oneself
+from public embarrassment.
+
+If using gcc, you can add the C<-std=c89> option which will hopefully
+catch most of these unportabilities.  (However it might also catch
+incompatibilities in your system's header files.)
+
+Use the Configure C<-Dgccansipedantic> flag to enable the gcc C<-ansi
+-pedantic> flags which enforce stricter ANSI rules.
+
+If using the C<gcc -Wall> note that not all the possible warnings (like
+C<-Wunitialized>) are given unless you also compile with C<-O>.
+
+Note that if using gcc, starting from Perl 5.9.5 the Perl core source
+code files (the ones at the top level of the source code distribution,
+but not e.g. the extensions under ext/) are automatically compiled with
+as many as possible of the C<-std=c89>, C<-ansi>, C<-pedantic>, and a
+selection of C<-W> flags (see cflags.SH).
+
+Also study L<perlport> carefully to avoid any bad assumptions about the
+operating system, filesystems, character set, and so forth.
+
+You may once in a while try a "make microperl" to see whether we can
+still compile Perl with just the bare minimum of interfaces.  (See
+README.micro.)
+
+Do not assume an operating system indicates a certain compiler.
+
+=over 4
+
+=item *
+
+Casting pointers to integers or casting integers to pointers
+
+    void castaway(U8* p)
+    {
+      IV i = p;
+
+or
+
+    void castaway(U8* p)
+    {
+      IV i = (IV)p;
+
+Both are bad, and broken, and unportable.  Use the PTR2IV() macro that
+does it right.  (Likewise, there are PTR2UV(), PTR2NV(), INT2PTR(), and
+NUM2PTR().)
+
+=item *
+
+Casting between function pointers and data pointers
+
+Technically speaking casting between function pointers and data
+pointers is unportable and undefined, but practically speaking it seems
+to work, but you should use the FPTR2DPTR() and DPTR2FPTR() macros.
+Sometimes you can also play games with unions.
+
+=item *
+
+Assuming sizeof(int) == sizeof(long)
+
+There are platforms where longs are 64 bits, and platforms where ints
+are 64 bits, and while we are out to shock you, even platforms where
+shorts are 64 bits.  This is all legal according to the C standard.  (In
+other words, "long long" is not a portable way to specify 64 bits, and
+"long long" is not even guaranteed to be any wider than "long".)
+
+Instead, use the definitions IV, UV, IVSIZE, I32SIZE, and so forth.
+Avoid things like I32 because they are B<not> guaranteed to be
+I<exactly> 32 bits, they are I<at least> 32 bits, nor are they
+guaranteed to be B<int> or B<long>.  If you really explicitly need
+64-bit variables, use I64 and U64, but only if guarded by HAS_QUAD.
+
+=item *
+
+Assuming one can dereference any type of pointer for any type of data
+
+  char *p = ...;
+  long pony = *(long *)p;    /* BAD */
+
+Many platforms, quite rightly so, will give you a core dump instead of
+a pony if the p happens not to be correctly aligned.
+
+=item *
+
+Lvalue casts
+
+  (int)*p = ...;    /* BAD */
+
+Simply not portable.  Get your lvalue to be of the right type, or maybe
+use temporary variables, or dirty tricks with unions.
+
+=item *
+
+Assume B<anything> about structs (especially the ones you don't
+control, like the ones coming from the system headers)
+
+=over 8
+
+=item *
+
+That a certain field exists in a struct
+
+=item *
+
+That no other fields exist besides the ones you know of
+
+=item *
+
+That a field is of certain signedness, sizeof, or type
+
+=item *
+
+That the fields are in a certain order
+
+=over 8
+
+=item *
+
+While C guarantees the ordering specified in the struct definition,
+between different platforms the definitions might differ
+
+=back
+
+=item *
+
+That the sizeof(struct) or the alignments are the same everywhere
+
+=over 8
+
+=item *
+
+There might be padding bytes between the fields to align the fields -
+the bytes can be anything
+
+=item *
+
+Structs are required to be aligned to the maximum alignment required by
+the fields - which for native types is for usually equivalent to
+sizeof() of the field
+
+=back
+
+=back
+
+=item *
+
+Assuming the character set is ASCIIish
+
+Perl can compile and run under EBCDIC platforms.  See L<perlebcdic>.
+This is transparent for the most part, but because the character sets
+differ, you shouldn't use numeric (decimal, octal, nor hex) constants
+to refer to characters.  You can safely say C<'A'>, but not C<0x41>.
+You can safely say C<'\n'>, but not C<\012>.  However, you can use
+macros defined in F<utf8.h> to specify any code point portably.
+C<LATIN1_TO_NATIVE(0xDF)> is going to be the code point that means
+LATIN SMALL LETTER SHARP S on whatever platform you are running on (on
+ASCII platforms it compiles without adding any extra code, so there is
+zero performance hit on those).  The acceptable inputs to
+C<LATIN1_TO_NATIVE> are from C<0x00> through C<0xFF>.  If your input
+isn't guaranteed to be in that range, use C<UNICODE_TO_NATIVE> instead.
+C<NATIVE_TO_LATIN1> and C<NATIVE_TO_UNICODE> translate the opposite
+direction.
+
+If you need the string representation of a character that doesn't have a
+mnemonic name in C, you should add it to the list in
+F<regen/unicode_constants.pl>, and have Perl create C<#define>'s for you,
+based on the current platform.
+
+Note that the C<isI<FOO>> and C<toI<FOO>> macros in F<handy.h> work
+properly on native code points and strings.
+
+Also, the range 'A' - 'Z' in ASCII is an unbroken sequence of 26 upper
+case alphabetic characters.  That is not true in EBCDIC.  Nor for 'a' to
+'z'.  But '0' - '9' is an unbroken range in both systems.  Don't assume
+anything about other ranges.  (Note that special handling of ranges in
+regular expression patterns and transliterations makes it appear to Perl
+code that the aforementioned ranges are all unbroken.)
+
+Many of the comments in the existing code ignore the possibility of
+EBCDIC, and may be wrong therefore, even if the code works.  This is
+actually a tribute to the successful transparent insertion of being
+able to handle EBCDIC without having to change pre-existing code.
+
+UTF-8 and UTF-EBCDIC are two different encodings used to represent
+Unicode code points as sequences of bytes.  Macros  with the same names
+(but different definitions) in F<utf8.h> and F<utfebcdic.h> are used to
+allow the calling code to think that there is only one such encoding.
+This is almost always referred to as C<utf8>, but it means the EBCDIC
+version as well.  Again, comments in the code may well be wrong even if
+the code itself is right.  For example, the concept of UTF-8 C<invariant
+characters> differs between ASCII and EBCDIC.  On ASCII platforms, only
+characters that do not have the high-order bit set (i.e.  whose ordinals
+are strict ASCII, 0 - 127) are invariant, and the documentation and
+comments in the code may assume that, often referring to something
+like, say, C<hibit>.  The situation differs and is not so simple on
+EBCDIC machines, but as long as the code itself uses the
+C<NATIVE_IS_INVARIANT()> macro appropriately, it works, even if the
+comments are wrong.
+
+As noted in L<perlhack/TESTING>, when writing test scripts, the file
+F<t/charset_tools.pl> contains some helpful functions for writing tests
+valid on both ASCII and EBCDIC platforms.  Sometimes, though, a test
+can't use a function and it's inconvenient to have different test
+versions depending on the platform.  There are 20 code points that are
+the same in all 4 character sets currently recognized by Perl (the 3
+EBCDIC code pages plus ISO 8859-1 (ASCII/Latin1)).  These can be used in
+such tests, though there is a small possibility that Perl will become
+available in yet another character set, breaking your test.  All but one
+of these code points are C0 control characters.  The most significant
+controls that are the same are C<\0>, C<\r>, and C<\N{VT}> (also
+specifiable as C<\cK>, C<\x0B>, C<\N{U+0B}>, or C<\013>).  The single
+non-control is U+00B6 PILCROW SIGN.  The controls that are the same have
+the same bit pattern in all 4 character sets, regardless of the UTF8ness
+of the string containing them.  The bit pattern for U+B6 is the same in
+all 4 for non-UTF8 strings, but differs in each when its containing
+string is UTF-8 encoded.  The only other code points that have some sort
+of sameness across all 4 character sets are the pair 0xDC and 0xFC.
+Together these represent upper- and lowercase LATIN LETTER U WITH
+DIAERESIS, but which is upper and which is lower may be reversed: 0xDC
+is the capital in Latin1 and 0xFC is the small letter, while 0xFC is the
+capital in EBCDIC and 0xDC is the small one.  This factoid may be
+exploited in writing case insensitive tests that are the same across all
+4 character sets.
+
+=item *
+
+Assuming the character set is just ASCII
+
+ASCII is a 7 bit encoding, but bytes have 8 bits in them.  The 128 extra
+characters have different meanings depending on the locale.  Absent a
+locale, currently these extra characters are generally considered to be
+unassigned, and this has presented some problems.  This has being
+changed starting in 5.12 so that these characters can be considered to
+be Latin-1 (ISO-8859-1).
+
+=item *
+
+Mixing #define and #ifdef
+
+  #define BURGLE(x) ... \
+  #ifdef BURGLE_OLD_STYLE        /* BAD */
+  ... do it the old way ... \
+  #else
+  ... do it the new way ... \
+  #endif
+
+You cannot portably "stack" cpp directives.  For example in the above
+you need two separate BURGLE() #defines, one for each #ifdef branch.
+
+=item *
+
+Adding non-comment stuff after #endif or #else
+
+  #ifdef SNOSH
+  ...
+  #else !SNOSH    /* BAD */
+  ...
+  #endif SNOSH    /* BAD */
+
+The #endif and #else cannot portably have anything non-comment after
+them.  If you want to document what is going (which is a good idea
+especially if the branches are long), use (C) comments:
+
+  #ifdef SNOSH
+  ...
+  #else /* !SNOSH */
+  ...
+  #endif /* SNOSH */
+
+The gcc option C<-Wendif-labels> warns about the bad variant (by
+default on starting from Perl 5.9.4).
+
+=item *
+
+Having a comma after the last element of an enum list
+
+  enum color {
+    CERULEAN,
+    CHARTREUSE,
+    CINNABAR,     /* BAD */
+  };
+
+is not portable.  Leave out the last comma.
+
+Also note that whether enums are implicitly morphable to ints varies
+between compilers, you might need to (int).
+
+=item *
+
+Using //-comments
+
+  // This function bamfoodles the zorklator.   /* BAD */
+
+That is C99 or C++.  Perl is C89.  Using the //-comments is silently
+allowed by many C compilers but cranking up the ANSI C89 strictness
+(which we like to do) causes the compilation to fail.
+
+=item *
+
+Mixing declarations and code
+
+  void zorklator()
+  {
+    int n = 3;
+    set_zorkmids(n);    /* BAD */
+    int q = 4;
+
+That is C99 or C++.  Some C compilers allow that, but you shouldn't.
+
+The gcc option C<-Wdeclaration-after-statements> scans for such
+problems (by default on starting from Perl 5.9.4).
+
+=item *
+
+Introducing variables inside for()
+
+  for(int i = ...; ...; ...) {    /* BAD */
+
+That is C99 or C++.  While it would indeed be awfully nice to have that
+also in C89, to limit the scope of the loop variable, alas, we cannot.
+
+=item *
+
+Mixing signed char pointers with unsigned char pointers
+
+  int foo(char *s) { ... }
+  ...
+  unsigned char *t = ...; /* Or U8* t = ... */
+  foo(t);   /* BAD */
+
+While this is legal practice, it is certainly dubious, and downright
+fatal in at least one platform: for example VMS cc considers this a
+fatal error.  One cause for people often making this mistake is that a
+"naked char" and therefore dereferencing a "naked char pointer" have an
+undefined signedness: it depends on the compiler and the flags of the
+compiler and the underlying platform whether the result is signed or
+unsigned.  For this very same reason using a 'char' as an array index is
+bad.
+
+=item *
+
+Macros that have string constants and their arguments as substrings of
+the string constants
+
+  #define FOO(n) printf("number = %d\n", n)    /* BAD */
+  FOO(10);
+
+Pre-ANSI semantics for that was equivalent to
+
+  printf("10umber = %d\10");
+
+which is probably not what you were expecting.  Unfortunately at least
+one reasonably common and modern C compiler does "real backward
+compatibility" here, in AIX that is what still happens even though the
+rest of the AIX compiler is very happily C89.
+
+=item *
+
+Using printf formats for non-basic C types
+
+   IV i = ...;
+   printf("i = %d\n", i);    /* BAD */
+
+While this might by accident work in some platform (where IV happens to
+be an C<int>), in general it cannot.  IV might be something larger.  Even
+worse the situation is with more specific types (defined by Perl's
+configuration step in F<config.h>):
+
+   Uid_t who = ...;
+   printf("who = %d\n", who);    /* BAD */
+
+The problem here is that Uid_t might be not only not C<int>-wide but it
+might also be unsigned, in which case large uids would be printed as
+negative values.
+
+There is no simple solution to this because of printf()'s limited
+intelligence, but for many types the right format is available as with
+either 'f' or '_f' suffix, for example:
+
+   IVdf /* IV in decimal */
+   UVxf /* UV is hexadecimal */
+
+   printf("i = %"IVdf"\n", i); /* The IVdf is a string constant. */
+
+   Uid_t_f /* Uid_t in decimal */
+
+   printf("who = %"Uid_t_f"\n", who);
+
+Or you can try casting to a "wide enough" type:
+
+   printf("i = %"IVdf"\n", (IV)something_very_small_and_signed);
+
+Also remember that the C<%p> format really does require a void pointer:
+
+   U8* p = ...;
+   printf("p = %p\n", (void*)p);
+
+The gcc option C<-Wformat> scans for such problems.
+
+=item *
+
+Blindly using variadic macros
+
+gcc has had them for a while with its own syntax, and C99 brought them
+with a standardized syntax.  Don't use the former, and use the latter
+only if the HAS_C99_VARIADIC_MACROS is defined.
+
+=item *
+
+Blindly passing va_list
+
+Not all platforms support passing va_list to further varargs (stdarg)
+functions.  The right thing to do is to copy the va_list using the
+Perl_va_copy() if the NEED_VA_COPY is defined.
+
+=item *
+
+Using gcc statement expressions
+
+   val = ({...;...;...});    /* BAD */
+
+While a nice extension, it's not portable.  The Perl code does
+admittedly use them if available to gain some extra speed (essentially
+as a funky form of inlining), but you shouldn't.
+
+=item *
+
+Binding together several statements in a macro
+
+Use the macros STMT_START and STMT_END.
+
+   STMT_START {
+      ...
+   } STMT_END
+
+=item *
+
+Testing for operating systems or versions when should be testing for
+features
+
+  #ifdef __FOONIX__    /* BAD */
+  foo = quux();
+  #endif
+
+Unless you know with 100% certainty that quux() is only ever available
+for the "Foonix" operating system B<and> that is available B<and>
+correctly working for B<all> past, present, B<and> future versions of
+"Foonix", the above is very wrong.  This is more correct (though still
+not perfect, because the below is a compile-time check):
+
+  #ifdef HAS_QUUX
+  foo = quux();
+  #endif
+
+How does the HAS_QUUX become defined where it needs to be?  Well, if
+Foonix happens to be Unixy enough to be able to run the Configure
+script, and Configure has been taught about detecting and testing
+quux(), the HAS_QUUX will be correctly defined.  In other platforms, the
+corresponding configuration step will hopefully do the same.
+
+In a pinch, if you cannot wait for Configure to be educated, or if you
+have a good hunch of where quux() might be available, you can
+temporarily try the following:
+
+  #if (defined(__FOONIX__) || defined(__BARNIX__))
+  # define HAS_QUUX
+  #endif
+
+  ...
+
+  #ifdef HAS_QUUX
+  foo = quux();
+  #endif
+
+But in any case, try to keep the features and operating systems
+separate.
+
+A good resource on the predefined macros for various operating
+systems, compilers, and so forth is
+L<http://sourceforge.net/p/predef/wiki/Home/>
+
+=item *
+
+Assuming the contents of static memory pointed to by the return values
+of Perl wrappers for C library functions doesn't change.  Many C library
+functions return pointers to static storage that can be overwritten by
+subsequent calls to the same or related functions.  Perl has
+light-weight wrappers for some of these functions, and which don't make
+copies of the static memory.  A good example is the interface to the
+environment variables that are in effect for the program.  Perl has
+C<PerlEnv_getenv> to get values from the environment.  But the return is
+a pointer to static memory in the C library.  If you are using the value
+to immediately test for something, that's fine, but if you save the
+value and expect it to be unchanged by later processing, you would be
+wrong, but perhaps you wouldn't know it because different C library
+implementations behave differently, and the one on the platform you're
+testing on might work for your situation.  But on some platforms, a
+subsequent call to C<PerlEnv_getenv> or related function WILL overwrite
+the memory that your first call points to.  This has led to some
+hard-to-debug problems.  Do a L<perlapi/savepv> to make a copy, thus
+avoiding these problems.  You will have to free the copy when you're
+done to avoid memory leaks.  If you don't have control over when it gets
+freed, you'll need to make the copy in a mortal scalar, like so:
+
+ if ((s = PerlEnv_getenv("foo") == NULL) {
+    ... /* handle NULL case */
+ }
+ else {
+     s = SvPVX(sv_2mortal(newSVpv(s, 0)));
+ }
+
+The above example works only if C<"s"> is C<NUL>-terminated; otherwise
+you have to pass its length to C<newSVpv>.
+
+=back
+
+=head2 Problematic System Interfaces
+
+=over 4
+
+=item *
+
+malloc(0), realloc(0), calloc(0, 0) are non-portable.  To be portable
+allocate at least one byte.  (In general you should rarely need to work
+at this low level, but instead use the various malloc wrappers.)
+
+=item *
+
+snprintf() - the return type is unportable.  Use my_snprintf() instead.
+
+=back
+
+=head2 Security problems
+
+Last but not least, here are various tips for safer coding.
+See also L<perlclib> for libc/stdio replacements one should use.
+
+=over 4
+
+=item *
+
+Do not use gets()
+
+Or we will publicly ridicule you.  Seriously.
+
+=item *
+
+Do not use tmpfile()
+
+Use mkstemp() instead.
+
+=item *
+
+Do not use strcpy() or strcat() or strncpy() or strncat()
+
+Use my_strlcpy() and my_strlcat() instead: they either use the native
+implementation, or Perl's own implementation (borrowed from the public
+domain implementation of INN).
+
+=item *
+
+Do not use sprintf() or vsprintf()
+
+If you really want just plain byte strings, use my_snprintf() and
+my_vsnprintf() instead, which will try to use snprintf() and
+vsnprintf() if those safer APIs are available.  If you want something
+fancier than a plain byte string, use
+L<C<Perl_form>()|perlapi/form> or SVs and
+L<C<Perl_sv_catpvf()>|perlapi/sv_catpvf>.
+
+Note that glibc C<printf()>, C<sprintf()>, etc. are buggy before glibc
+version 2.17.  They won't allow a C<%.s> format with a precision to
+create a string that isn't valid UTF-8 if the current underlying locale
+of the program is UTF-8.  What happens is that the C<%s> and its operand are
+simply skipped without any notice.
+L<https://sourceware.org/bugzilla/show_bug.cgi?id=6530>.
+
+=item *
+
+Do not use atoi()
+
+Use grok_atoUV() instead.  atoi() has ill-defined behavior on overflows,
+and cannot be used for incremental parsing.  It is also affected by locale,
+which is bad.
+
+=item *
+
+Do not use strtol() or strtoul()
+
+Use grok_atoUV() instead.  strtol() or strtoul() (or their IV/UV-friendly
+macro disguises, Strtol() and Strtoul(), or Atol() and Atoul() are
+affected by locale, which is bad.
+
+=back
+
+=head1 DEBUGGING
+
+You can compile a special debugging version of Perl, which allows you
+to use the C<-D> option of Perl to tell more about what Perl is doing.
+But sometimes there is no alternative than to dive in with a debugger,
+either to see the stack trace of a core dump (very useful in a bug
+report), or trying to figure out what went wrong before the core dump
+happened, or how did we end up having wrong or unexpected results.
+
+=head2 Poking at Perl
+
+To really poke around with Perl, you'll probably want to build Perl for
+debugging, like this:
+
+    ./Configure -d -D optimize=-g
+    make
+
+C<-g> is a flag to the C compiler to have it produce debugging
+information which will allow us to step through a running program, and
+to see in which C function we are at (without the debugging information
+we might see only the numerical addresses of the functions, which is
+not very helpful).
+
+F<Configure> will also turn on the C<DEBUGGING> compilation symbol
+which enables all the internal debugging code in Perl.  There are a
+whole bunch of things you can debug with this: L<perlrun> lists them
+all, and the best way to find out about them is to play about with
+them.  The most useful options are probably
+
+    l  Context (loop) stack processing
+    t  Trace execution
+    o  Method and overloading resolution
+    c  String/numeric conversions
+
+Some of the functionality of the debugging code can be achieved using
+XS modules.
+
+    -Dr => use re 'debug'
+    -Dx => use O 'Debug'
+
+=head2 Using a source-level debugger
+
+If the debugging output of C<-D> doesn't help you, it's time to step
+through perl's execution with a source-level debugger.
+
+=over 3
+
+=item *
+
+We'll use C<gdb> for our examples here; the principles will apply to
+any debugger (many vendors call their debugger C<dbx>), but check the
+manual of the one you're using.
+
+=back
+
+To fire up the debugger, type
+
+    gdb ./perl
+
+Or if you have a core dump:
+
+    gdb ./perl core
+
+You'll want to do that in your Perl source tree so the debugger can
+read the source code.  You should see the copyright message, followed by
+the prompt.
+
+    (gdb)
+
+C<help> will get you into the documentation, but here are the most
+useful commands:
+
+=over 3
+
+=item * run [args]
+
+Run the program with the given arguments.
+
+=item * break function_name
+
+=item * break source.c:xxx
+
+Tells the debugger that we'll want to pause execution when we reach
+either the named function (but see L<perlguts/Internal Functions>!) or
+the given line in the named source file.
+
+=item * step
+
+Steps through the program a line at a time.
+
+=item * next
+
+Steps through the program a line at a time, without descending into
+functions.
+
+=item * continue
+
+Run until the next breakpoint.
+
+=item * finish
+
+Run until the end of the current function, then stop again.
+
+=item * 'enter'
+
+Just pressing Enter will do the most recent operation again - it's a
+blessing when stepping through miles of source code.
+
+=item * ptype
+
+Prints the C definition of the argument given.
+
+  (gdb) ptype PL_op
+  type = struct op {
+      OP *op_next;
+      OP *op_sibparent;
+      OP *(*op_ppaddr)(void);
+      PADOFFSET op_targ;
+      unsigned int op_type : 9;
+      unsigned int op_opt : 1;
+      unsigned int op_slabbed : 1;
+      unsigned int op_savefree : 1;
+      unsigned int op_static : 1;
+      unsigned int op_folded : 1;
+      unsigned int op_spare : 2;
+      U8 op_flags;
+      U8 op_private;
+  } *
+
+=item * print
+
+Execute the given C code and print its results.  B<WARNING>: Perl makes
+heavy use of macros, and F<gdb> does not necessarily support macros
+(see later L</"gdb macro support">).  You'll have to substitute them
+yourself, or to invoke cpp on the source code files (see L</"The .i
+Targets">) So, for instance, you can't say
+
+    print SvPV_nolen(sv)
+
+but you have to say
+
+    print Perl_sv_2pv_nolen(sv)
+
+=back
+
+You may find it helpful to have a "macro dictionary", which you can
+produce by saying C<cpp -dM perl.c | sort>.  Even then, F<cpp> won't
+recursively apply those macros for you.
+
+=head2 gdb macro support
+
+Recent versions of F<gdb> have fairly good macro support, but in order
+to use it you'll need to compile perl with macro definitions included
+in the debugging information.  Using F<gcc> version 3.1, this means
+configuring with C<-Doptimize=-g3>.  Other compilers might use a
+different switch (if they support debugging macros at all).
+
+=head2 Dumping Perl Data Structures
+
+One way to get around this macro hell is to use the dumping functions
+in F<dump.c>; these work a little like an internal
+L<Devel::Peek|Devel::Peek>, but they also cover OPs and other
+structures that you can't get at from Perl.  Let's take an example.
+We'll use the C<$a = $b + $c> we used before, but give it a bit of
+context: C<$b = "6XXXX"; $c = 2.3;>.  Where's a good place to stop and
+poke around?
+
+What about C<pp_add>, the function we examined earlier to implement the
+C<+> operator:
+
+    (gdb) break Perl_pp_add
+    Breakpoint 1 at 0x46249f: file pp_hot.c, line 309.
+
+Notice we use C<Perl_pp_add> and not C<pp_add> - see
+L<perlguts/Internal Functions>.  With the breakpoint in place, we can
+run our program:
+
+    (gdb) run -e '$b = "6XXXX"; $c = 2.3; $a = $b + $c'
+
+Lots of junk will go past as gdb reads in the relevant source files and
+libraries, and then:
+
+    Breakpoint 1, Perl_pp_add () at pp_hot.c:309
+    309         dSP; dATARGET; tryAMAGICbin(add,opASSIGN);
+    (gdb) step
+    311           dPOPTOPnnrl_ul;
+    (gdb)
+
+We looked at this bit of code before, and we said that
+C<dPOPTOPnnrl_ul> arranges for two C<NV>s to be placed into C<left> and
+C<right> - let's slightly expand it:
+
+ #define dPOPTOPnnrl_ul  NV right = POPn; \
+                         SV *leftsv = TOPs; \
+                         NV left = USE_LEFT(leftsv) ? SvNV(leftsv) : 0.0
+
+C<POPn> takes the SV from the top of the stack and obtains its NV
+either directly (if C<SvNOK> is set) or by calling the C<sv_2nv>
+function.  C<TOPs> takes the next SV from the top of the stack - yes,
+C<POPn> uses C<TOPs> - but doesn't remove it.  We then use C<SvNV> to
+get the NV from C<leftsv> in the same way as before - yes, C<POPn> uses
+C<SvNV>.
+
+Since we don't have an NV for C<$b>, we'll have to use C<sv_2nv> to
+convert it.  If we step again, we'll find ourselves there:
+
+    (gdb) step
+    Perl_sv_2nv (sv=0xa0675d0) at sv.c:1669
+    1669        if (!sv)
+    (gdb)
+
+We can now use C<Perl_sv_dump> to investigate the SV:
+
+    (gdb) print Perl_sv_dump(sv)
+    SV = PV(0xa057cc0) at 0xa0675d0
+    REFCNT = 1
+    FLAGS = (POK,pPOK)
+    PV = 0xa06a510 "6XXXX"\0
+    CUR = 5
+    LEN = 6
+    $1 = void
+
+We know we're going to get C<6> from this, so let's finish the
+subroutine:
+
+    (gdb) finish
+    Run till exit from #0  Perl_sv_2nv (sv=0xa0675d0) at sv.c:1671
+    0x462669 in Perl_pp_add () at pp_hot.c:311
+    311           dPOPTOPnnrl_ul;
+
+We can also dump out this op: the current op is always stored in
+C<PL_op>, and we can dump it with C<Perl_op_dump>.  This'll give us
+similar output to L<B::Debug|B::Debug>.
+
+    (gdb) print Perl_op_dump(PL_op)
+    {
+    13  TYPE = add  ===> 14
+        TARG = 1
+        FLAGS = (SCALAR,KIDS)
+        {
+            TYPE = null  ===> (12)
+              (was rv2sv)
+            FLAGS = (SCALAR,KIDS)
+            {
+    11          TYPE = gvsv  ===> 12
+                FLAGS = (SCALAR)
+                GV = main::b
+            }
+        }
+
+# finish this later #
+
+=head2 Using gdb to look at specific parts of a program
+
+With the example above, you knew to look for C<Perl_pp_add>, but what if
+there were multiple calls to it all over the place, or you didn't know what
+the op was you were looking for?
+
+One way to do this is to inject a rare call somewhere near what you're looking
+for.  For example, you could add C<study> before your method:
+
+    study;
+
+And in gdb do:
+
+    (gdb) break Perl_pp_study
+
+And then step until you hit what you're
+looking for.  This works well in a loop
+if you want to only break at certain iterations:
+
+    for my $c (1..100) {
+        study if $c == 50;
+    }
+
+=head2 Using gdb to look at what the parser/lexer are doing
+
+If you want to see what perl is doing when parsing/lexing your code, you can
+use C<BEGIN {}>:
+
+    print "Before\n";
+    BEGIN { study; }
+    print "After\n";
+
+And in gdb:
+
+    (gdb) break Perl_pp_study
+
+If you want to see what the parser/lexer is doing inside of C<if> blocks and
+the like you need to be a little trickier:
+
+    if ($a && $b && do { BEGIN { study } 1 } && $c) { ... }
+
+=head1 SOURCE CODE STATIC ANALYSIS
+
+Various tools exist for analysing C source code B<statically>, as
+opposed to B<dynamically>, that is, without executing the code.  It is
+possible to detect resource leaks, undefined behaviour, type
+mismatches, portability problems, code paths that would cause illegal
+memory accesses, and other similar problems by just parsing the C code
+and looking at the resulting graph, what does it tell about the
+execution and data flows.  As a matter of fact, this is exactly how C
+compilers know to give warnings about dubious code.
+
+=head2 lint, splint
+
+The good old C code quality inspector, C<lint>, is available in several
+platforms, but please be aware that there are several different
+implementations of it by different vendors, which means that the flags
+are not identical across different platforms.
+
+There is a lint variant called C<splint> (Secure Programming Lint)
+available from http://www.splint.org/ that should compile on any
+Unix-like platform.
+
+There are C<lint> and <splint> targets in Makefile, but you may have to
+diddle with the flags (see above).
+
+=head2 Coverity
+
+Coverity (http://www.coverity.com/) is a product similar to lint and as
+a testbed for their product they periodically check several open source
+projects, and they give out accounts to open source developers to the
+defect databases.
+
+There is Coverity setup for the perl5 project:
+L<https://scan.coverity.com/projects/perl5>
+
+=head2 HP-UX cadvise (Code Advisor)
+
+HP has a C/C++ static analyzer product for HP-UX caller Code Advisor.
+(Link not given here because the URL is horribly long and seems horribly
+unstable; use the search engine of your choice to find it.)  The use of
+the C<cadvise_cc> recipe with C<Configure ... -Dcc=./cadvise_cc>
+(see cadvise "User Guide") is recommended; as is the use of C<+wall>.
+
+=head2 cpd (cut-and-paste detector)
+
+The cpd tool detects cut-and-paste coding.  If one instance of the
+cut-and-pasted code changes, all the other spots should probably be
+changed, too.  Therefore such code should probably be turned into a
+subroutine or a macro.
+
+cpd (http://pmd.sourceforge.net/cpd.html) is part of the pmd project
+(http://pmd.sourceforge.net/).  pmd was originally written for static
+analysis of Java code, but later the cpd part of it was extended to
+parse also C and C++.
+
+Download the pmd-bin-X.Y.zip () from the SourceForge site, extract the
+pmd-X.Y.jar from it, and then run that on source code thusly:
+
+  java -cp pmd-X.Y.jar net.sourceforge.pmd.cpd.CPD \
+   --minimum-tokens 100 --files /some/where/src --language c > cpd.txt
+
+You may run into memory limits, in which case you should use the -Xmx
+option:
+
+  java -Xmx512M ...
+
+=head2 gcc warnings
+
+Though much can be written about the inconsistency and coverage
+problems of gcc warnings (like C<-Wall> not meaning "all the warnings",
+or some common portability problems not being covered by C<-Wall>, or
+C<-ansi> and C<-pedantic> both being a poorly defined collection of
+warnings, and so forth), gcc is still a useful tool in keeping our
+coding nose clean.
+
+The C<-Wall> is by default on.
+
+The C<-ansi> (and its sidekick, C<-pedantic>) would be nice to be on
+always, but unfortunately they are not safe on all platforms, they can
+for example cause fatal conflicts with the system headers (Solaris
+being a prime example).  If Configure C<-Dgccansipedantic> is used, the
+C<cflags> frontend selects C<-ansi -pedantic> for the platforms where
+they are known to be safe.
+
+Starting from Perl 5.9.4 the following extra flags are added:
+
+=over 4
+
+=item *
+
+C<-Wendif-labels>
+
+=item *
+
+C<-Wextra>
+
+=item *
+
+C<-Wdeclaration-after-statement>
+
+=back
+
+The following flags would be nice to have but they would first need
+their own Augean stablemaster:
+
+=over 4
+
+=item *
+
+C<-Wpointer-arith>
+
+=item *
+
+C<-Wshadow>
+
+=item *
+
+C<-Wstrict-prototypes>
+
+=back
+
+The C<-Wtraditional> is another example of the annoying tendency of gcc
+to bundle a lot of warnings under one switch (it would be impossible to
+deploy in practice because it would complain a lot) but it does contain
+some warnings that would be beneficial to have available on their own,
+such as the warning about string constants inside macros containing the
+macro arguments: this behaved differently pre-ANSI than it does in
+ANSI, and some C compilers are still in transition, AIX being an
+example.
+
+=head2 Warnings of other C compilers
+
+Other C compilers (yes, there B<are> other C compilers than gcc) often
+have their "strict ANSI" or "strict ANSI with some portability
+extensions" modes on, like for example the Sun Workshop has its C<-Xa>
+mode on (though implicitly), or the DEC (these days, HP...) has its
+C<-std1> mode on.
+
+=head1 MEMORY DEBUGGERS
+
+B<NOTE 1>: Running under older memory debuggers such as Purify,
+valgrind or Third Degree greatly slows down the execution: seconds
+become minutes, minutes become hours.  For example as of Perl 5.8.1, the
+ext/Encode/t/Unicode.t takes extraordinarily long to complete under
+e.g. Purify, Third Degree, and valgrind.  Under valgrind it takes more
+than six hours, even on a snappy computer.  The said test must be doing
+something that is quite unfriendly for memory debuggers.  If you don't
+feel like waiting, that you can simply kill away the perl process.
+Roughly valgrind slows down execution by factor 10, AddressSanitizer by
+factor 2.
+
+B<NOTE 2>: To minimize the number of memory leak false alarms (see
+L</PERL_DESTRUCT_LEVEL> for more information), you have to set the
+environment variable PERL_DESTRUCT_LEVEL to 2.  For example, like this:
+
+    env PERL_DESTRUCT_LEVEL=2 valgrind ./perl -Ilib ...
+
+B<NOTE 3>: There are known memory leaks when there are compile-time
+errors within eval or require, seeing C<S_doeval> in the call stack is
+a good sign of these.  Fixing these leaks is non-trivial, unfortunately,
+but they must be fixed eventually.
+
+B<NOTE 4>: L<DynaLoader> will not clean up after itself completely
+unless Perl is built with the Configure option
+C<-Accflags=-DDL_UNLOAD_ALL_AT_EXIT>.
+
+=head2 valgrind
+
+The valgrind tool can be used to find out both memory leaks and illegal
+heap memory accesses.  As of version 3.3.0, Valgrind only supports Linux
+on x86, x86-64 and PowerPC and Darwin (OS X) on x86 and x86-64.  The
+special "test.valgrind" target can be used to run the tests under
+valgrind.  Found errors and memory leaks are logged in files named
+F<testfile.valgrind> and by default output is displayed inline.
+
+Example usage:
+
+    make test.valgrind
+
+Since valgrind adds significant overhead, tests will take much longer to
+run.  The valgrind tests support being run in parallel to help with this:
+
+    TEST_JOBS=9 make test.valgrind
+
+Note that the above two invocations will be very verbose as reachable
+memory and leak-checking is enabled by default.  If you want to just see
+pure errors, try:
+
+    VG_OPTS='-q --leak-check=no --show-reachable=no' TEST_JOBS=9 \
+        make test.valgrind
+
+Valgrind also provides a cachegrind tool, invoked on perl as:
+
+    VG_OPTS=--tool=cachegrind make test.valgrind
+
+As system libraries (most notably glibc) are also triggering errors,
+valgrind allows to suppress such errors using suppression files.  The
+default suppression file that comes with valgrind already catches a lot
+of them.  Some additional suppressions are defined in F<t/perl.supp>.
+
+To get valgrind and for more information see
+
+    http://valgrind.org/
+
+=head2 AddressSanitizer
+
+AddressSanitizer is a clang and gcc extension, included in clang since
+v3.1 and gcc since v4.8.  It checks illegal heap pointers, global
+pointers, stack pointers and use after free errors, and is fast enough
+that you can easily compile your debugging or optimized perl with it.
+It does not check memory leaks though.  AddressSanitizer is available
+for Linux, Mac OS X and soon on Windows.
+
+To build perl with AddressSanitizer, your Configure invocation should
+look like:
+
+    sh Configure -des -Dcc=clang \
+       -Accflags=-faddress-sanitizer -Aldflags=-faddress-sanitizer \
+       -Alddlflags=-shared\ -faddress-sanitizer
+
+where these arguments mean:
+
+=over 4
+
+=item * -Dcc=clang
+
+This should be replaced by the full path to your clang executable if it
+is not in your path.
+
+=item * -Accflags=-faddress-sanitizer
+
+Compile perl and extensions sources with AddressSanitizer.
+
+=item * -Aldflags=-faddress-sanitizer
+
+Link the perl executable with AddressSanitizer.
+
+=item * -Alddlflags=-shared\ -faddress-sanitizer
+
+Link dynamic extensions with AddressSanitizer.  You must manually
+specify C<-shared> because using C<-Alddlflags=-shared> will prevent
+Configure from setting a default value for C<lddlflags>, which usually
+contains C<-shared> (at least on Linux).
+
+=back
+
+See also
+L<http://code.google.com/p/address-sanitizer/wiki/AddressSanitizer>.
+
+
+=head1 PROFILING
+
+Depending on your platform there are various ways of profiling Perl.
+
+There are two commonly used techniques of profiling executables:
+I<statistical time-sampling> and I<basic-block counting>.
+
+The first method takes periodically samples of the CPU program counter,
+and since the program counter can be correlated with the code generated
+for functions, we get a statistical view of in which functions the
+program is spending its time.  The caveats are that very small/fast
+functions have lower probability of showing up in the profile, and that
+periodically interrupting the program (this is usually done rather
+frequently, in the scale of milliseconds) imposes an additional
+overhead that may skew the results.  The first problem can be alleviated
+by running the code for longer (in general this is a good idea for
+profiling), the second problem is usually kept in guard by the
+profiling tools themselves.
+
+The second method divides up the generated code into I<basic blocks>.
+Basic blocks are sections of code that are entered only in the
+beginning and exited only at the end.  For example, a conditional jump
+starts a basic block.  Basic block profiling usually works by
+I<instrumenting> the code by adding I<enter basic block #nnnn>
+book-keeping code to the generated code.  During the execution of the
+code the basic block counters are then updated appropriately.  The
+caveat is that the added extra code can skew the results: again, the
+profiling tools usually try to factor their own effects out of the
+results.
+
+=head2 Gprof Profiling
+
+I<gprof> is a profiling tool available in many Unix platforms which
+uses I<statistical time-sampling>.  You can build a profiled version of
+F<perl> by compiling using gcc with the flag C<-pg>.  Either edit
+F<config.sh> or re-run F<Configure>.  Running the profiled version of
+Perl will create an output file called F<gmon.out> which contains the
+profiling data collected during the execution.
+
+quick hint:
+
+    $ sh Configure -des -Dusedevel -Accflags='-pg' \
+        -Aldflags='-pg' -Alddlflags='-pg -shared' \
+        && make perl
+    $ ./perl ... # creates gmon.out in current directory
+    $ gprof ./perl > out
+    $ less out
+
+(you probably need to add C<-shared> to the <-Alddlflags> line until RT
+#118199 is resolved)
+
+The F<gprof> tool can then display the collected data in various ways.
+Usually F<gprof> understands the following options:
+
+=over 4
+
+=item * -a
+
+Suppress statically defined functions from the profile.
+
+=item * -b
+
+Suppress the verbose descriptions in the profile.
+
+=item * -e routine
+
+Exclude the given routine and its descendants from the profile.
+
+=item * -f routine
+
+Display only the given routine and its descendants in the profile.
+
+=item * -s
+
+Generate a summary file called F<gmon.sum> which then may be given to
+subsequent gprof runs to accumulate data over several runs.
+
+=item * -z
+
+Display routines that have zero usage.
+
+=back
+
+For more detailed explanation of the available commands and output
+formats, see your own local documentation of F<gprof>.
+
+=head2 GCC gcov Profiling
+
+I<basic block profiling> is officially available in gcc 3.0 and later.
+You can build a profiled version of F<perl> by compiling using gcc with
+the flags C<-fprofile-arcs -ftest-coverage>.  Either edit F<config.sh>
+or re-run F<Configure>.
+
+quick hint:
+
+    $ sh Configure -des -Dusedevel -Doptimize='-g' \
+        -Accflags='-fprofile-arcs -ftest-coverage' \
+        -Aldflags='-fprofile-arcs -ftest-coverage' \
+        -Alddlflags='-fprofile-arcs -ftest-coverage -shared' \
+        && make perl
+    $ rm -f regexec.c.gcov regexec.gcda
+    $ ./perl ...
+    $ gcov regexec.c
+    $ less regexec.c.gcov
+
+(you probably need to add C<-shared> to the <-Alddlflags> line until RT
+#118199 is resolved)
+
+Running the profiled version of Perl will cause profile output to be
+generated.  For each source file an accompanying F<.gcda> file will be
+created.
+
+To display the results you use the I<gcov> utility (which should be
+installed if you have gcc 3.0 or newer installed).  F<gcov> is run on
+source code files, like this
+
+    gcov sv.c
+
+which will cause F<sv.c.gcov> to be created.  The F<.gcov> files contain
+the source code annotated with relative frequencies of execution
+indicated by "#" markers.  If you want to generate F<.gcov> files for
+all profiled object files, you can run something like this:
+
+    for file in `find . -name \*.gcno`
+    do sh -c "cd `dirname $file` && gcov `basename $file .gcno`"
+    done
+
+Useful options of F<gcov> include C<-b> which will summarise the basic
+block, branch, and function call coverage, and C<-c> which instead of
+relative frequencies will use the actual counts.  For more information
+on the use of F<gcov> and basic block profiling with gcc, see the
+latest GNU CC manual.  As of gcc 4.8, this is at
+L<http://gcc.gnu.org/onlinedocs/gcc/Gcov-Intro.html#Gcov-Intro>
+
+=head1 MISCELLANEOUS TRICKS
+
+=head2 PERL_DESTRUCT_LEVEL
+
+If you want to run any of the tests yourself manually using e.g.
+valgrind, please note that by default perl B<does not> explicitly
+cleanup all the memory it has allocated (such as global memory arenas)
+but instead lets the exit() of the whole program "take care" of such
+allocations, also known as "global destruction of objects".
+
+There is a way to tell perl to do complete cleanup: set the environment
+variable PERL_DESTRUCT_LEVEL to a non-zero value.  The t/TEST wrapper
+does set this to 2, and this is what you need to do too, if you don't
+want to see the "global leaks": For example, for running under valgrind
+
+    env PERL_DESTRUCT_LEVEL=2 valgrind ./perl -Ilib t/foo/bar.t
+
+(Note: the mod_perl apache module uses also this environment variable
+for its own purposes and extended its semantics.  Refer to the mod_perl
+documentation for more information.  Also, spawned threads do the
+equivalent of setting this variable to the value 1.)
+
+If, at the end of a run you get the message I<N scalars leaked>, you
+can recompile with C<-DDEBUG_LEAKING_SCALARS>, which will cause the
+addresses of all those leaked SVs to be dumped along with details as to
+where each SV was originally allocated.  This information is also
+displayed by Devel::Peek.  Note that the extra details recorded with
+each SV increases memory usage, so it shouldn't be used in production
+environments.  It also converts C<new_SV()> from a macro into a real
+function, so you can use your favourite debugger to discover where
+those pesky SVs were allocated.
+
+If you see that you're leaking memory at runtime, but neither valgrind
+nor C<-DDEBUG_LEAKING_SCALARS> will find anything, you're probably
+leaking SVs that are still reachable and will be properly cleaned up
+during destruction of the interpreter.  In such cases, using the C<-Dm>
+switch can point you to the source of the leak.  If the executable was
+built with C<-DDEBUG_LEAKING_SCALARS>, C<-Dm> will output SV
+allocations in addition to memory allocations.  Each SV allocation has a
+distinct serial number that will be written on creation and destruction
+of the SV.  So if you're executing the leaking code in a loop, you need
+to look for SVs that are created, but never destroyed between each
+cycle.  If such an SV is found, set a conditional breakpoint within
+C<new_SV()> and make it break only when C<PL_sv_serial> is equal to the
+serial number of the leaking SV.  Then you will catch the interpreter in
+exactly the state where the leaking SV is allocated, which is
+sufficient in many cases to find the source of the leak.
+
+As C<-Dm> is using the PerlIO layer for output, it will by itself
+allocate quite a bunch of SVs, which are hidden to avoid recursion.  You
+can bypass the PerlIO layer if you use the SV logging provided by
+C<-DPERL_MEM_LOG> instead.
+
+=head2 PERL_MEM_LOG
+
+If compiled with C<-DPERL_MEM_LOG> (C<-Accflags=-DPERL_MEM_LOG>), both
+memory and SV allocations go through logging functions, which is
+handy for breakpoint setting.
+
+Unless C<-DPERL_MEM_LOG_NOIMPL> (C<-Accflags=-DPERL_MEM_LOG_NOIMPL>) is
+also compiled, the logging functions read $ENV{PERL_MEM_LOG} to
+determine whether to log the event, and if so how:
+
+    $ENV{PERL_MEM_LOG} =~ /m/           Log all memory ops
+    $ENV{PERL_MEM_LOG} =~ /s/           Log all SV ops
+    $ENV{PERL_MEM_LOG} =~ /t/           include timestamp in Log
+    $ENV{PERL_MEM_LOG} =~ /^(\d+)/      write to FD given (default is 2)
+
+Memory logging is somewhat similar to C<-Dm> but is independent of
+C<-DDEBUGGING>, and at a higher level; all uses of Newx(), Renew(), and
+Safefree() are logged with the caller's source code file and line
+number (and C function name, if supported by the C compiler).  In
+contrast, C<-Dm> is directly at the point of C<malloc()>.  SV logging is
+similar.
+
+Since the logging doesn't use PerlIO, all SV allocations are logged and
+no extra SV allocations are introduced by enabling the logging.  If
+compiled with C<-DDEBUG_LEAKING_SCALARS>, the serial number for each SV
+allocation is also logged.
+
+=head2 DDD over gdb
+
+Those debugging perl with the DDD frontend over gdb may find the
+following useful:
+
+You can extend the data conversion shortcuts menu, so for example you
+can display an SV's IV value with one click, without doing any typing.
+To do that simply edit ~/.ddd/init file and add after:
+
+  ! Display shortcuts.
+  Ddd*gdbDisplayShortcuts: \
+  /t ()   // Convert to Bin\n\
+  /d ()   // Convert to Dec\n\
+  /x ()   // Convert to Hex\n\
+  /o ()   // Convert to Oct(\n\
+
+the following two lines:
+
+  ((XPV*) (())->sv_any )->xpv_pv  // 2pvx\n\
+  ((XPVIV*) (())->sv_any )->xiv_iv // 2ivx
+
+so now you can do ivx and pvx lookups or you can plug there the sv_peek
+"conversion":
+
+  Perl_sv_peek(my_perl, (SV*)()) // sv_peek
+
+(The my_perl is for threaded builds.)  Just remember that every line,
+but the last one, should end with \n\
+
+Alternatively edit the init file interactively via: 3rd mouse button ->
+New Display -> Edit Menu
+
+Note: you can define up to 20 conversion shortcuts in the gdb section.
+
+=head2 C backtrace
+
+On some platforms Perl supports retrieving the C level backtrace
+(similar to what symbolic debuggers like gdb do).
+
+The backtrace returns the stack trace of the C call frames,
+with the symbol names (function names), the object names (like "perl"),
+and if it can, also the source code locations (file:line).
+
+The supported platforms are Linux, and OS X (some *BSD might
+work at least partly, but they have not yet been tested).
+
+This feature hasn't been tested with multiple threads, but it will
+only show the backtrace of the thread doing the backtracing.
+
+The feature needs to be enabled with C<Configure -Dusecbacktrace>.
+
+The C<-Dusecbacktrace> also enables keeping the debug information when
+compiling/linking (often: C<-g>).  Many compilers/linkers do support
+having both optimization and keeping the debug information.  The debug
+information is needed for the symbol names and the source locations.
+
+Static functions might not be visible for the backtrace.
+
+Source code locations, even if available, can often be missing or
+misleading if the compiler has e.g. inlined code.  Optimizer can
+make matching the source code and the object code quite challenging.
+
+=over 4
+
+=item Linux
+
+You B<must> have the BFD (-lbfd) library installed, otherwise C<perl> will
+fail to link.  The BFD is usually distributed as part of the GNU binutils.
+
+Summary: C<Configure ... -Dusecbacktrace>
+and you need C<-lbfd>.
+
+=item OS X
+
+The source code locations are supported B<only> if you have
+the Developer Tools installed.  (BFD is B<not> needed.)
+
+Summary: C<Configure ... -Dusecbacktrace>
+and installing the Developer Tools would be good.
+
+=back
+
+Optionally, for trying out the feature, you may want to enable
+automatic dumping of the backtrace just before a warning or croak (die)
+message is emitted, by adding C<-Accflags=-DUSE_C_BACKTRACE_ON_ERROR>
+for Configure.
+
+Unless the above additional feature is enabled, nothing about the
+backtrace functionality is visible, except for the Perl/XS level.
+
+Furthermore, even if you have enabled this feature to be compiled,
+you need to enable it in runtime with an environment variable:
+C<PERL_C_BACKTRACE_ON_ERROR=10>.  It must be an integer higher
+than zero, telling the desired frame count.
+
+Retrieving the backtrace from Perl level (using for example an XS
+extension) would be much less exciting than one would hope: normally
+you would see C<runops>, C<entersub>, and not much else.  This API is
+intended to be called B<from within> the Perl implementation, not from
+Perl level execution.
+
+The C API for the backtrace is as follows:
+
+=over 4
+
+=item get_c_backtrace
+
+=item free_c_backtrace
+
+=item get_c_backtrace_dump
+
+=item dump_c_backtrace
+
+=back
+
+=head2 Poison
+
+If you see in a debugger a memory area mysteriously full of 0xABABABAB
+or 0xEFEFEFEF, you may be seeing the effect of the Poison() macros, see
+L<perlclib>.
+
+=head2 Read-only optrees
+
+Under ithreads the optree is read only.  If you want to enforce this, to
+check for write accesses from buggy code, compile with
+C<-Accflags=-DPERL_DEBUG_READONLY_OPS>
+to enable code that allocates op memory
+via C<mmap>, and sets it read-only when it is attached to a subroutine.
+Any write access to an op results in a C<SIGBUS> and abort.
+
+This code is intended for development only, and may not be portable
+even to all Unix variants.  Also, it is an 80% solution, in that it
+isn't able to make all ops read only.  Specifically it does not apply to
+op slabs belonging to C<BEGIN> blocks.
+
+However, as an 80% solution it is still effective, as it has caught
+bugs in the past.
+
+=head2 When is a bool not a bool?
+
+On pre-C99 compilers, C<bool> is defined as equivalent to C<char>.
+Consequently assignment of any larger type to a C<bool> is unsafe and may
+be truncated.  The C<cBOOL> macro exists to cast it correctly.
+
+On those platforms and compilers where C<bool> really is a boolean (C++,
+C99), it is easy to forget the cast.  You can force C<bool> to be a C<char>
+by compiling with C<-Accflags=-DPERL_BOOL_AS_CHAR>.  You may also wish to
+run C<Configure> with something like
+
+    -Accflags='-Wconversion -Wno-sign-conversion -Wno-shorten-64-to-32'
+
+or your compiler's equivalent to make it easier to spot any unsafe truncations
+that show up.
+
+=head2 The .i Targets
+
+You can expand the macros in a F<foo.c> file by saying
+
+    make foo.i
+
+which will expand the macros using cpp.  Don't be scared by the
+results.
+
+=head1 AUTHOR
+
+This document was originally written by Nathan Torkington, and is
+maintained by the perl5-porters mailing list.
diff --git a/lib/5.24.1/pod/perlhacktut.pod b/lib/5.24.1/pod/perlhacktut.pod
new file mode 100644
index 00000000..fc083364
--- /dev/null
+++ b/lib/5.24.1/pod/perlhacktut.pod
@@ -0,0 +1,188 @@
+=encoding utf8
+
+=for comment
+Consistent formatting of this file is achieved with:
+  perl ./Porting/podtidy pod/perlhacktut.pod
+
+=head1 NAME
+
+perlhacktut - Walk through the creation of a simple C code patch
+
+=head1 DESCRIPTION
+
+This document takes you through a simple patch example.
+
+If you haven't read L<perlhack> yet, go do that first! You might also
+want to read through L<perlsource> too.
+
+Once you're done here, check out L<perlhacktips> next.
+
+=head1 EXAMPLE OF A SIMPLE PATCH
+
+Let's take a simple patch from start to finish.
+
+Here's something Larry suggested: if a C<U> is the first active format
+during a C<pack>, (for example, C<pack "U3C8", @stuff>) then the
+resulting string should be treated as UTF-8 encoded.
+
+If you are working with a git clone of the Perl repository, you will
+want to create a branch for your changes. This will make creating a
+proper patch much simpler. See the L<perlgit> for details on how to do
+this.
+
+=head2 Writing the patch
+
+How do we prepare to fix this up? First we locate the code in question
+- the C<pack> happens at runtime, so it's going to be in one of the
+F<pp> files. Sure enough, C<pp_pack> is in F<pp.c>. Since we're going
+to be altering this file, let's copy it to F<pp.c~>.
+
+[Well, it was in F<pp.c> when this tutorial was written. It has now
+been split off with C<pp_unpack> to its own file, F<pp_pack.c>]
+
+Now let's look over C<pp_pack>: we take a pattern into C<pat>, and then
+loop over the pattern, taking each format character in turn into
+C<datum_type>. Then for each possible format character, we swallow up
+the other arguments in the pattern (a field width, an asterisk, and so
+on) and convert the next chunk input into the specified format, adding
+it onto the output SV C<cat>.
+
+How do we know if the C<U> is the first format in the C<pat>? Well, if
+we have a pointer to the start of C<pat> then, if we see a C<U> we can
+test whether we're still at the start of the string. So, here's where
+C<pat> is set up:
+
+    STRLEN fromlen;
+    char *pat = SvPVx(*++MARK, fromlen);
+    char *patend = pat + fromlen;
+    I32 len;
+    I32 datumtype;
+    SV *fromstr;
+
+We'll have another string pointer in there:
+
+    STRLEN fromlen;
+    char *pat = SvPVx(*++MARK, fromlen);
+    char *patend = pat + fromlen;
+ +  char *patcopy;
+    I32 len;
+    I32 datumtype;
+    SV *fromstr;
+
+And just before we start the loop, we'll set C<patcopy> to be the start
+of C<pat>:
+
+    items = SP - MARK;
+    MARK++;
+    sv_setpvn(cat, "", 0);
+ +  patcopy = pat;
+    while (pat < patend) {
+
+Now if we see a C<U> which was at the start of the string, we turn on
+the C<UTF8> flag for the output SV, C<cat>:
+
+ +  if (datumtype == 'U' && pat==patcopy+1)
+ +      SvUTF8_on(cat);
+    if (datumtype == '#') {
+        while (pat < patend && *pat != '\n')
+            pat++;
+
+Remember that it has to be C<patcopy+1> because the first character of
+the string is the C<U> which has been swallowed into C<datumtype!>
+
+Oops, we forgot one thing: what if there are spaces at the start of the
+pattern? C<pack("  U*", @stuff)> will have C<U> as the first active
+character, even though it's not the first thing in the pattern. In this
+case, we have to advance C<patcopy> along with C<pat> when we see
+spaces:
+
+    if (isSPACE(datumtype))
+        continue;
+
+needs to become
+
+    if (isSPACE(datumtype)) {
+        patcopy++;
+        continue;
+    }
+
+OK. That's the C part done. Now we must do two additional things before
+this patch is ready to go: we've changed the behaviour of Perl, and so
+we must document that change. We must also provide some more regression
+tests to make sure our patch works and doesn't create a bug somewhere
+else along the line.
+
+=head2 Testing the patch
+
+The regression tests for each operator live in F<t/op/>, and so we make
+a copy of F<t/op/pack.t> to F<t/op/pack.t~>. Now we can add our tests
+to the end. First, we'll test that the C<U> does indeed create Unicode
+strings.
+
+t/op/pack.t has a sensible ok() function, but if it didn't we could use
+the one from t/test.pl.
+
+ require './test.pl';
+ plan( tests => 159 );
+
+so instead of this:
+
+ print 'not ' unless "1.20.300.4000" eq sprintf "%vd",
+                                               pack("U*",1,20,300,4000);
+ print "ok $test\n"; $test++;
+
+we can write the more sensible (see L<Test::More> for a full
+explanation of is() and other testing functions).
+
+ is( "1.20.300.4000", sprintf "%vd", pack("U*",1,20,300,4000),
+                                       "U* produces Unicode" );
+
+Now we'll test that we got that space-at-the-beginning business right:
+
+ is( "1.20.300.4000", sprintf "%vd", pack("  U*",1,20,300,4000),
+                                     "  with spaces at the beginning" );
+
+And finally we'll test that we don't make Unicode strings if C<U> is
+B<not> the first active format:
+
+ isnt( v1.20.300.4000, sprintf "%vd", pack("C0U*",1,20,300,4000),
+                                       "U* not first isn't Unicode" );
+
+Mustn't forget to change the number of tests which appears at the top,
+or else the automated tester will get confused. This will either look
+like this:
+
+ print "1..156\n";
+
+or this:
+
+ plan( tests => 156 );
+
+We now compile up Perl, and run it through the test suite. Our new
+tests pass, hooray!
+
+=head2 Documenting the patch
+
+Finally, the documentation. The job is never done until the paperwork
+is over, so let's describe the change we've just made. The relevant
+place is F<pod/perlfunc.pod>; again, we make a copy, and then we'll
+insert this text in the description of C<pack>:
+
+ =item *
+
+ If the pattern begins with a C<U>, the resulting string will be treated
+ as UTF-8-encoded Unicode. You can force UTF-8 encoding on in a string
+ with an initial C<U0>, and the bytes that follow will be interpreted as
+ Unicode characters. If you don't want this to happen, you can begin
+ your pattern with C<C0> (or anything else) to force Perl not to UTF-8
+ encode your string, and then follow this with a C<U*> somewhere in your
+ pattern.
+
+=head2 Submit
+
+See L<perlhack> for details on how to submit this patch.
+
+=head1 AUTHOR
+
+This document was originally written by Nathan Torkington, and is
+maintained by the perl5-porters mailing list.
diff --git a/lib/5.24.1/pod/perlhaiku.pod b/lib/5.24.1/pod/perlhaiku.pod
new file mode 100644
index 00000000..1a74156f
--- /dev/null
+++ b/lib/5.24.1/pod/perlhaiku.pod
@@ -0,0 +1,64 @@
+If you read this file _as_is_, just ignore the funny characters you see.
+It is written in the POD format (see pod/perlpod.pod) which is specially
+designed to be readable as is.
+
+=head1 NAME
+
+perlhaiku - Perl version 5.10+ on Haiku
+
+=head1 DESCRIPTION
+
+This file contains instructions how to build Perl for Haiku and lists
+known problems.
+
+=head1 BUILD AND INSTALL
+
+The build procedure is completely standard:
+
+  ./Configure -de
+  make
+  make install
+
+Make perl executable and create a symlink for libperl:
+
+  chmod a+x /boot/common/bin/perl
+  cd /boot/common/lib; ln -s perl5/5.24.1/BePC-haiku/CORE/libperl.so .
+
+Replace C<5.24.1> with your respective version of Perl.
+
+=head1 KNOWN PROBLEMS
+
+The following problems are encountered with Haiku revision 28311:
+
+=over 4
+
+=item *
+
+Perl cannot be compiled with threading support ATM.
+
+=item *
+
+The F<cpan/Socket/t/socketpair.t> test fails. More precisely: the subtests
+using datagram sockets fail. Unix datagram sockets aren't implemented in
+Haiku yet.
+
+=item *
+
+A subtest of the F<cpan/Sys-Syslog/t/syslog.t> test fails. This is due to Haiku
+not implementing F</dev/log> support yet.
+
+=item *
+
+The tests F<dist/Net-Ping/t/450_service.t> and F<dist/Net-Ping/t/510_ping_udp.t>
+fail. This is due to bugs in Haiku's network stack implementation.
+
+=back
+
+=head1 CONTACT
+
+For Haiku specific problems contact the HaikuPorts developers:
+L<http://ports.haiku-files.org/>
+
+The initial Haiku port was done by Ingo Weinhold <ingo_weinhold@gmx.de>.
+
+Last update: 2008-10-29
diff --git a/lib/5.24.1/pod/perlhist.pod b/lib/5.24.1/pod/perlhist.pod
new file mode 100644
index 00000000..1b2e626b
--- /dev/null
+++ b/lib/5.24.1/pod/perlhist.pod
@@ -0,0 +1,1128 @@
+=encoding utf8
+
+=head1 NAME
+
+perlhist - the Perl history records
+
+=head1 DESCRIPTION
+
+This document aims to record the Perl source code releases.
+
+=head1 INTRODUCTION
+
+Perl history in brief, by Larry Wall:
+
+   Perl 0 introduced Perl to my officemates.
+   Perl 1 introduced Perl to the world, and changed /\(...\|...\)/ to
+       /(...|...)/.  \(Dan Faigin still hasn't forgiven me. :-\)
+   Perl 2 introduced Henry Spencer's regular expression package.
+   Perl 3 introduced the ability to handle binary data (embedded nulls).
+   Perl 4 introduced the first Camel book.  Really.  We mostly just
+       switched version numbers so the book could refer to 4.000.
+   Perl 5 introduced everything else, including the ability to
+       introduce everything else.
+
+=head1 THE KEEPERS OF THE PUMPKIN
+
+Larry Wall, Andy Dougherty, Tom Christiansen, Charles Bailey, Nick
+Ing-Simmons, Chip Salzenberg, Tim Bunce, Malcolm Beattie, Gurusamy
+Sarathy, Graham Barr, Jarkko Hietaniemi, Hugo van der Sanden,
+Michael Schwern, Rafael Garcia-Suarez, Nicholas Clark, Richard Clamp,
+Leon Brocard, Dave Mitchell, Jesse Vincent, Ricardo Signes, Steve Hay,
+Matt S Trout, David Golden, Florian Ragwitz, Tatsuhiko Miyagawa,
+Chris C<BinGOs> Williams, Zefram, Ævar Arnfjörð Bjarmason, Stevan
+Little, Dave Rolsky, Max Maischein, Abigail, Jesse Luehrs, Tony Cook,
+Dominic Hargreaves, Aaron Crane, Aristotle Pagaltzis, Matthew Horsfall,
+Peter Martini, Sawyer X, and Chad 'Exodist' Granum.
+
+=head2 PUMPKIN?
+
+[from Porting/pumpkin.pod in the Perl source code distribution]
+
+=for disclaimer orking cows is hazardous, and not legal in all jurisdictions
+
+Chip Salzenberg gets credit for that, with a nod to his cow orker,
+David Croy.  We had passed around various names (baton, token, hot
+potato) but none caught on.  Then, Chip asked:
+
+[begin quote]
+
+   Who has the patch pumpkin?
+
+To explain:  David Croy once told me that at a previous job,
+there was one tape drive and multiple systems that used it for backups.
+But instead of some high-tech exclusion software, they used a low-tech
+method to prevent multiple simultaneous backups: a stuffed pumpkin.
+No one was allowed to make backups unless they had the "backup pumpkin".
+
+[end quote]
+
+The name has stuck.  The holder of the pumpkin is sometimes called
+the pumpking (keeping the source afloat?) or the pumpkineer (pulling
+the strings?).
+
+=head1 THE RECORDS
+
+ Pump-  Release         Date            Notes
+ king                                   (by no means
+                                         comprehensive,
+                                         see Changes*
+                                         for details)
+ ======================================================================
+
+ Larry   0              Classified.     Don't ask.
+
+ Larry   1.000          1987-Dec-18
+
+          1.001..10     1988-Jan-30
+          1.011..14     1988-Feb-02
+ Schwern  1.0.15        2002-Dec-18     Modernization
+ Richard  1.0_16        2003-Dec-18
+
+ Larry   2.000          1988-Jun-05
+
+          2.001         1988-Jun-28
+
+ Larry   3.000          1989-Oct-18
+
+          3.001         1989-Oct-26
+          3.002..4      1989-Nov-11
+          3.005         1989-Nov-18
+          3.006..8      1989-Dec-22
+          3.009..13     1990-Mar-02
+          3.014         1990-Mar-13
+          3.015         1990-Mar-14
+          3.016..18     1990-Mar-28
+          3.019..27     1990-Aug-10     User subs.
+          3.028         1990-Aug-14
+          3.029..36     1990-Oct-17
+          3.037         1990-Oct-20
+          3.040         1990-Nov-10
+          3.041         1990-Nov-13
+          3.042..43     1991-Jan-??
+          3.044         1991-Jan-12
+
+ Larry   4.000          1991-Mar-21
+
+          4.001..3      1991-Apr-12
+          4.004..9      1991-Jun-07
+          4.010         1991-Jun-10
+          4.011..18     1991-Nov-05
+          4.019         1991-Nov-11     Stable.
+          4.020..33     1992-Jun-08
+          4.034         1992-Jun-11
+          4.035         1992-Jun-23
+ Larry    4.036         1993-Feb-05     Very stable.
+
+          5.000alpha1   1993-Jul-31
+          5.000alpha2   1993-Aug-16
+          5.000alpha3   1993-Oct-10
+          5.000alpha4   1993-???-??
+          5.000alpha5   1993-???-??
+          5.000alpha6   1994-Mar-18
+          5.000alpha7   1994-Mar-25
+ Andy     5.000alpha8   1994-Apr-04
+ Larry    5.000alpha9   1994-May-05     ext appears.
+          5.000alpha10  1994-Jun-11
+          5.000alpha11  1994-Jul-01
+ Andy     5.000a11a     1994-Jul-07     To fit 14.
+          5.000a11b     1994-Jul-14
+          5.000a11c     1994-Jul-19
+          5.000a11d     1994-Jul-22
+ Larry    5.000alpha12  1994-Aug-04
+ Andy     5.000a12a     1994-Aug-08
+          5.000a12b     1994-Aug-15
+          5.000a12c     1994-Aug-22
+          5.000a12d     1994-Aug-22
+          5.000a12e     1994-Aug-22
+          5.000a12f     1994-Aug-24
+          5.000a12g     1994-Aug-24
+          5.000a12h     1994-Aug-24
+ Larry    5.000beta1    1994-Aug-30
+ Andy     5.000b1a      1994-Sep-06
+ Larry    5.000beta2    1994-Sep-14     Core slushified.
+ Andy     5.000b2a      1994-Sep-14
+          5.000b2b      1994-Sep-17
+          5.000b2c      1994-Sep-17
+ Larry    5.000beta3    1994-Sep-??
+ Andy     5.000b3a      1994-Sep-18
+          5.000b3b      1994-Sep-22
+          5.000b3c      1994-Sep-23
+          5.000b3d      1994-Sep-27
+          5.000b3e      1994-Sep-28
+          5.000b3f      1994-Sep-30
+          5.000b3g      1994-Oct-04
+ Andy     5.000b3h      1994-Oct-07
+ Larry?   5.000gamma    1994-Oct-13?
+
+ Larry   5.000          1994-Oct-17
+
+ Andy     5.000a        1994-Dec-19
+          5.000b        1995-Jan-18
+          5.000c        1995-Jan-18
+          5.000d        1995-Jan-18
+          5.000e        1995-Jan-18
+          5.000f        1995-Jan-18
+          5.000g        1995-Jan-18
+          5.000h        1995-Jan-18
+          5.000i        1995-Jan-26
+          5.000j        1995-Feb-07
+          5.000k        1995-Feb-11
+          5.000l        1995-Feb-21
+          5.000m        1995-Feb-28
+          5.000n        1995-Mar-07
+          5.000o        1995-Mar-13?
+
+ Larry   5.001          1995-Mar-13
+
+ Andy     5.001a        1995-Mar-15
+          5.001b        1995-Mar-31
+          5.001c        1995-Apr-07
+          5.001d        1995-Apr-14
+          5.001e        1995-Apr-18     Stable.
+          5.001f        1995-May-31
+          5.001g        1995-May-25
+          5.001h        1995-May-25
+          5.001i        1995-May-30
+          5.001j        1995-Jun-05
+          5.001k        1995-Jun-06
+          5.001l        1995-Jun-06     Stable.
+          5.001m        1995-Jul-02     Very stable.
+          5.001n        1995-Oct-31     Very unstable.
+          5.002beta1    1995-Nov-21
+          5.002b1a      1995-Dec-04
+          5.002b1b      1995-Dec-04
+          5.002b1c      1995-Dec-04
+          5.002b1d      1995-Dec-04
+          5.002b1e      1995-Dec-08
+          5.002b1f      1995-Dec-08
+ Tom      5.002b1g      1995-Dec-21     Doc release.
+ Andy     5.002b1h      1996-Jan-05
+          5.002b2       1996-Jan-14
+ Larry    5.002b3       1996-Feb-02
+ Andy     5.002gamma    1996-Feb-11
+ Larry    5.002delta    1996-Feb-27
+
+ Larry   5.002          1996-Feb-29     Prototypes.
+
+ Charles  5.002_01      1996-Mar-25
+
+         5.003          1996-Jun-25     Security release.
+
+          5.003_01      1996-Jul-31
+ Nick     5.003_02      1996-Aug-10
+ Andy     5.003_03      1996-Aug-28
+          5.003_04      1996-Sep-02
+          5.003_05      1996-Sep-12
+          5.003_06      1996-Oct-07
+          5.003_07      1996-Oct-10
+ Chip     5.003_08      1996-Nov-19
+          5.003_09      1996-Nov-26
+          5.003_10      1996-Nov-29
+          5.003_11      1996-Dec-06
+          5.003_12      1996-Dec-19
+          5.003_13      1996-Dec-20
+          5.003_14      1996-Dec-23
+          5.003_15      1996-Dec-23
+          5.003_16      1996-Dec-24
+          5.003_17      1996-Dec-27
+          5.003_18      1996-Dec-31
+          5.003_19      1997-Jan-04
+          5.003_20      1997-Jan-07
+          5.003_21      1997-Jan-15
+          5.003_22      1997-Jan-16
+          5.003_23      1997-Jan-25
+          5.003_24      1997-Jan-29
+          5.003_25      1997-Feb-04
+          5.003_26      1997-Feb-10
+          5.003_27      1997-Feb-18
+          5.003_28      1997-Feb-21
+          5.003_90      1997-Feb-25     Ramping up to the 5.004 release.
+          5.003_91      1997-Mar-01
+          5.003_92      1997-Mar-06
+          5.003_93      1997-Mar-10
+          5.003_94      1997-Mar-22
+          5.003_95      1997-Mar-25
+          5.003_96      1997-Apr-01
+          5.003_97      1997-Apr-03     Fairly widely used.
+          5.003_97a     1997-Apr-05
+          5.003_97b     1997-Apr-08
+          5.003_97c     1997-Apr-10
+          5.003_97d     1997-Apr-13
+          5.003_97e     1997-Apr-15
+          5.003_97f     1997-Apr-17
+          5.003_97g     1997-Apr-18
+          5.003_97h     1997-Apr-24
+          5.003_97i     1997-Apr-25
+          5.003_97j     1997-Apr-28
+          5.003_98      1997-Apr-30
+          5.003_99      1997-May-01
+          5.003_99a     1997-May-09
+          p54rc1        1997-May-12     Release Candidates.
+          p54rc2        1997-May-14
+
+ Chip    5.004          1997-May-15     A major maintenance release.
+
+ Tim      5.004_01-t1   1997-???-??     The 5.004 maintenance track.
+          5.004_01-t2   1997-Jun-11     aka perl5.004m1t2
+          5.004_01      1997-Jun-13
+          5.004_01_01   1997-Jul-29     aka perl5.004m2t1
+          5.004_01_02   1997-Aug-01     aka perl5.004m2t2
+          5.004_01_03   1997-Aug-05     aka perl5.004m2t3
+          5.004_02      1997-Aug-07
+          5.004_02_01   1997-Aug-12     aka perl5.004m3t1
+          5.004_03-t2   1997-Aug-13     aka perl5.004m3t2
+          5.004_03      1997-Sep-05
+          5.004_04-t1   1997-Sep-19     aka perl5.004m4t1
+          5.004_04-t2   1997-Sep-23     aka perl5.004m4t2
+          5.004_04-t3   1997-Oct-10     aka perl5.004m4t3
+          5.004_04-t4   1997-Oct-14     aka perl5.004m4t4
+          5.004_04      1997-Oct-15
+          5.004_04-m1   1998-Mar-04     (5.004m5t1) Maint. trials for 5.004_05.
+          5.004_04-m2   1998-May-01
+          5.004_04-m3   1998-May-15
+          5.004_04-m4   1998-May-19
+          5.004_05-MT5  1998-Jul-21
+          5.004_05-MT6  1998-Oct-09
+          5.004_05-MT7  1998-Nov-22
+          5.004_05-MT8  1998-Dec-03
+ Chip     5.004_05-MT9  1999-Apr-26
+          5.004_05      1999-Apr-29
+
+ Malcolm  5.004_50      1997-Sep-09     The 5.005 development track.
+          5.004_51      1997-Oct-02
+          5.004_52      1997-Oct-15
+          5.004_53      1997-Oct-16
+          5.004_54      1997-Nov-14
+          5.004_55      1997-Nov-25
+          5.004_56      1997-Dec-18
+          5.004_57      1998-Feb-03
+          5.004_58      1998-Feb-06
+          5.004_59      1998-Feb-13
+          5.004_60      1998-Feb-20
+          5.004_61      1998-Feb-27
+          5.004_62      1998-Mar-06
+          5.004_63      1998-Mar-17
+          5.004_64      1998-Apr-03
+          5.004_65      1998-May-15
+          5.004_66      1998-May-29
+ Sarathy  5.004_67      1998-Jun-15
+          5.004_68      1998-Jun-23
+          5.004_69      1998-Jun-29
+          5.004_70      1998-Jul-06
+          5.004_71      1998-Jul-09
+          5.004_72      1998-Jul-12
+          5.004_73      1998-Jul-13
+          5.004_74      1998-Jul-14     5.005 beta candidate.
+          5.004_75      1998-Jul-15     5.005 beta1.
+          5.004_76      1998-Jul-21     5.005 beta2.
+
+ Sarathy  5.005         1998-Jul-22     Oneperl.
+
+ Sarathy  5.005_01      1998-Jul-27     The 5.005 maintenance track.
+          5.005_02-T1   1998-Aug-02
+          5.005_02-T2   1998-Aug-05
+          5.005_02      1998-Aug-08
+ Graham   5.005_03-MT1  1998-Nov-30
+          5.005_03-MT2  1999-Jan-04
+          5.005_03-MT3  1999-Jan-17
+          5.005_03-MT4  1999-Jan-26
+          5.005_03-MT5  1999-Jan-28
+          5.005_03-MT6  1999-Mar-05
+          5.005_03      1999-Mar-28
+ Leon     5.005_04-RC1  2004-Feb-05
+          5.005_04-RC2  2004-Feb-18
+          5.005_04      2004-Feb-23
+          5.005_05-RC1  2009-Feb-16
+
+ Sarathy  5.005_50      1998-Jul-26     The 5.6 development track.
+          5.005_51      1998-Aug-10
+          5.005_52      1998-Sep-25
+          5.005_53      1998-Oct-31
+          5.005_54      1998-Nov-30
+          5.005_55      1999-Feb-16
+          5.005_56      1999-Mar-01
+          5.005_57      1999-May-25
+          5.005_58      1999-Jul-27
+          5.005_59      1999-Aug-02
+          5.005_60      1999-Aug-02
+          5.005_61      1999-Aug-20
+          5.005_62      1999-Oct-15
+          5.005_63      1999-Dec-09
+          5.5.640       2000-Feb-02
+          5.5.650       2000-Feb-08     beta1
+          5.5.660       2000-Feb-22     beta2
+          5.5.670       2000-Feb-29     beta3
+          5.6.0-RC1     2000-Mar-09     Release candidate 1.
+          5.6.0-RC2     2000-Mar-14     Release candidate 2.
+          5.6.0-RC3     2000-Mar-21     Release candidate 3.
+
+ Sarathy  5.6.0         2000-Mar-22
+
+ Sarathy  5.6.1-TRIAL1  2000-Dec-18     The 5.6 maintenance track.
+          5.6.1-TRIAL2  2001-Jan-31
+          5.6.1-TRIAL3  2001-Mar-19
+          5.6.1-foolish 2001-Apr-01     The "fools-gold" release.
+          5.6.1         2001-Apr-08
+ Rafael   5.6.2-RC1     2003-Nov-08
+          5.6.2         2003-Nov-15     Fix new build issues
+
+ Jarkko   5.7.0         2000-Sep-02     The 5.7 track: Development.
+          5.7.1         2001-Apr-09
+          5.7.2         2001-Jul-13     Virtual release candidate 0.
+          5.7.3         2002-Mar-05
+          5.8.0-RC1     2002-Jun-01
+          5.8.0-RC2     2002-Jun-21
+          5.8.0-RC3     2002-Jul-13
+
+ Jarkko   5.8.0         2002-Jul-18
+
+ Jarkko   5.8.1-RC1     2003-Jul-10     The 5.8 maintenance track
+          5.8.1-RC2     2003-Jul-11
+          5.8.1-RC3     2003-Jul-30
+          5.8.1-RC4     2003-Aug-01
+          5.8.1-RC5     2003-Sep-22
+          5.8.1         2003-Sep-25
+ Nicholas 5.8.2-RC1     2003-Oct-27
+          5.8.2-RC2     2003-Nov-03
+          5.8.2         2003-Nov-05
+          5.8.3-RC1     2004-Jan-07
+          5.8.3         2004-Jan-14
+          5.8.4-RC1     2004-Apr-05
+          5.8.4-RC2     2004-Apr-15
+          5.8.4         2004-Apr-21
+          5.8.5-RC1     2004-Jul-06
+          5.8.5-RC2     2004-Jul-08
+          5.8.5         2004-Jul-19
+          5.8.6-RC1     2004-Nov-11
+          5.8.6         2004-Nov-27
+          5.8.7-RC1     2005-May-18
+          5.8.7         2005-May-30
+          5.8.8-RC1     2006-Jan-20
+          5.8.8         2006-Jan-31
+          5.8.9-RC1     2008-Nov-10
+          5.8.9-RC2     2008-Dec-06
+          5.8.9         2008-Dec-14
+
+ Hugo     5.9.0         2003-Oct-27     The 5.9 development track
+ Rafael   5.9.1         2004-Mar-16
+          5.9.2         2005-Apr-01
+          5.9.3         2006-Jan-28
+          5.9.4         2006-Aug-15
+          5.9.5         2007-Jul-07
+          5.10.0-RC1    2007-Nov-17
+          5.10.0-RC2    2007-Nov-25
+
+ Rafael   5.10.0        2007-Dec-18
+
+ David M  5.10.1-RC1    2009-Aug-06     The 5.10 maintenance track
+          5.10.1-RC2    2009-Aug-18
+          5.10.1        2009-Aug-22
+
+ Jesse    5.11.0        2009-Oct-02     The 5.11 development track
+          5.11.1        2009-Oct-20
+ Leon     5.11.2        2009-Nov-20
+ Jesse    5.11.3        2009-Dec-20
+ Ricardo  5.11.4        2010-Jan-20
+ Steve    5.11.5        2010-Feb-20
+ Jesse    5.12.0-RC0    2010-Mar-21
+          5.12.0-RC1    2010-Mar-29
+          5.12.0-RC2    2010-Apr-01
+          5.12.0-RC3    2010-Apr-02
+          5.12.0-RC4    2010-Apr-06
+          5.12.0-RC5    2010-Apr-09
+
+ Jesse    5.12.0        2010-Apr-12
+
+ Jesse    5.12.1-RC2    2010-May-13     The 5.12 maintenance track
+          5.12.1-RC1    2010-May-09
+          5.12.1        2010-May-16
+          5.12.2-RC2    2010-Aug-31
+          5.12.2        2010-Sep-06
+ Ricardo  5.12.3-RC1    2011-Jan-09
+ Ricardo  5.12.3-RC2    2011-Jan-14
+ Ricardo  5.12.3-RC3    2011-Jan-17
+ Ricardo  5.12.3        2011-Jan-21
+ Leon     5.12.4-RC1    2011-Jun-08
+ Leon     5.12.4        2011-Jun-20
+ Dominic  5.12.5        2012-Nov-10
+
+ Leon     5.13.0        2010-Apr-20     The 5.13 development track
+ Ricardo  5.13.1        2010-May-20
+ Matt     5.13.2        2010-Jun-22
+ David G  5.13.3        2010-Jul-20
+ Florian  5.13.4        2010-Aug-20
+ Steve    5.13.5        2010-Sep-19
+ Miyagawa 5.13.6        2010-Oct-20
+ BinGOs   5.13.7        2010-Nov-20
+ Zefram   5.13.8        2010-Dec-20
+ Jesse    5.13.9        2011-Jan-20
+ Ævar     5.13.10       2011-Feb-20
+ Florian  5.13.11       2011-Mar-20
+ Jesse    5.14.0RC1     2011-Apr-20
+ Jesse    5.14.0RC2     2011-May-04
+ Jesse    5.14.0RC3     2011-May-11
+
+ Jesse    5.14.0        2011-May-14     The 5.14 maintenance track
+ Jesse    5.14.1        2011-Jun-16
+ Florian  5.14.2-RC1    2011-Sep-19
+          5.14.2        2011-Sep-26
+ Dominic  5.14.3        2012-Oct-12
+ David M  5.14.4-RC1    2013-Mar-05
+ David M  5.14.4-RC2    2013-Mar-07
+ David M  5.14.4        2013-Mar-10
+
+ David G  5.15.0        2011-Jun-20     The 5.15 development track
+ Zefram   5.15.1        2011-Jul-20
+ Ricardo  5.15.2        2011-Aug-20
+ Stevan   5.15.3        2011-Sep-20
+ Florian  5.15.4        2011-Oct-20
+ Steve    5.15.5        2011-Nov-20
+ Dave R   5.15.6        2011-Dec-20
+ BinGOs   5.15.7        2012-Jan-20
+ Max M    5.15.8        2012-Feb-20
+ Abigail  5.15.9        2012-Mar-20
+ Ricardo  5.16.0-RC0    2012-May-10
+ Ricardo  5.16.0-RC1    2012-May-14
+ Ricardo  5.16.0-RC2    2012-May-15
+
+ Ricardo  5.16.0        2012-May-20     The 5.16 maintenance track
+ Ricardo  5.16.1        2012-Aug-08
+ Ricardo  5.16.2        2012-Nov-01
+ Ricardo  5.16.3-RC1    2013-Mar-06
+ Ricardo  5.16.3        2013-Mar-11
+
+ Zefram   5.17.0        2012-May-26     The 5.17 development track
+ Jesse L  5.17.1        2012-Jun-20
+ TonyC    5.17.2        2012-Jul-20
+ Steve    5.17.3        2012-Aug-20
+ Florian  5.17.4        2012-Sep-20
+ Florian  5.17.5        2012-Oct-20
+ Ricardo  5.17.6        2012-Nov-20
+ Dave R   5.17.7        2012-Dec-18
+ Aaron    5.17.8        2013-Jan-20
+ BinGOs   5.17.9        2013-Feb-20
+ Max M    5.17.10       2013-Mar-21
+ Ricardo  5.17.11       2013-Apr-20
+
+ Ricardo  5.18.0-RC1    2013-May-11     The 5.18 maintenance track
+ Ricardo  5.18.0-RC2    2013-May-12
+ Ricardo  5.18.0-RC3    2013-May-13
+ Ricardo  5.18.0-RC4    2013-May-15
+ Ricardo  5.18.0        2013-May-18
+ Ricardo  5.18.1-RC1    2013-Aug-01
+ Ricardo  5.18.1-RC2    2013-Aug-03
+ Ricardo  5.18.1-RC3    2013-Aug-08
+ Ricardo  5.18.1        2013-Aug-12
+ Ricardo  5.18.2        2014-Jan-06
+ Ricardo  5.18.3-RC1    2014-Sep-17
+ Ricardo  5.18.3-RC2    2014-Sep-27
+ Ricardo  5.18.3        2014-Oct-01
+ Ricardo  5.18.4        2014-Oct-01
+
+ Ricardo   5.19.0       2013-May-20     The 5.19 development track
+ David G   5.19.1       2013-Jun-21
+ Aristotle 5.19.2       2013-Jul-22
+ Steve     5.19.3       2013-Aug-20
+ Steve     5.19.4       2013-Sep-20
+ Steve     5.19.5       2013-Oct-20
+ BinGOs    5.19.6       2013-Nov-20
+ Abigail   5.19.7       2013-Dec-20
+ Ricardo   5.19.8       2014-Jan-20
+ TonyC     5.19.9       2014-Feb-20
+ Aaron     5.19.10      2014-Mar-20
+ Steve     5.19.11      2014-Apr-20
+
+ Ricardo   5.20.0-RC1   2014-May-16     The 5.20 maintenance track
+ Ricardo   5.20.0       2014-May-27
+ Steve     5.20.1-RC1   2014-Aug-25
+ Steve     5.20.1-RC2   2014-Sep-07
+ Steve     5.20.1       2014-Sep-14
+ Steve     5.20.2-RC1   2015-Jan-31
+ Steve     5.20.2       2015-Feb-14
+ Steve     5.20.3-RC1   2015-Aug-22
+ Steve     5.20.3-RC2   2015-Aug-29
+ Steve     5.20.3       2015-Sep-12
+
+ Ricardo   5.21.0       2014-May-27     The 5.21 development track
+ Matthew H 5.21.1       2014-Jun-20
+ Abigail   5.21.2       2014-Jul-20
+ Peter     5.21.3       2014-Aug-20
+ Steve     5.21.4       2014-Sep-20
+ Abigail   5.21.5       2014-Oct-20
+ BinGOs    5.21.6       2014-Nov-20
+ Max M     5.21.7       2014-Dec-20
+ Matthew H 5.21.8       2015-Jan-20
+ Sawyer X  5.21.9       2015-Feb-20
+ Steve     5.21.10      2015-Mar-20
+ Steve     5.21.11      2015-Apr-20
+
+ Ricardo   5.22.0-RC1   2015-May-19     The 5.22 maintenance track
+ Ricardo   5.22.0-RC2   2015-May-21
+ Ricardo   5.22.0       2015-Jun-01
+ Steve     5.22.1-RC1   2015-Oct-31
+ Steve     5.22.1-RC2   2015-Nov-15
+ Steve     5.22.1-RC3   2015-Dec-02
+ Steve     5.22.1-RC4   2015-Dec-08
+ Steve     5.22.1       2015-Dec-13
+ Steve     5.22.2-RC1   2016-Apr-10
+ Steve     5.22.2       2016-Apr-29
+ Steve     5.22.3-RC1   2016-Jul-17
+ Steve     5.22.3-RC2   2016-Jul-25
+ Steve     5.22.3-RC3   2016-Aug-11
+ Steve     5.22.3-RC4   2016-Oct-12
+ Steve     5.22.3-RC5   2017-Jan-02
+ Steve     5.22.3       2017-Jan-14
+
+ Ricardo   5.23.0       2015-Jun-20     The 5.23 development track
+ Matthew   5.23.1       2015-Jul-20
+ Matthew   5.23.2       2015-Aug-20
+ Peter     5.23.3       2015-Sep-20
+ Steve     5.23.4       2015-Oct-20
+ Abigail   5.23.5       2015-Nov-20
+ David G   5.23.6       2015-Dec-21
+ Stevan    5.23.7       2016-Jan-20
+ Sawyer X  5.23.8       2016-Feb-20
+ Abigail   5.23.9       2016-Mar-20
+
+ Ricardo   5.24.0-RC1   2016-Apr-13     The 5.24 maintenance track
+ Ricardo   5.24.0-RC2   2016-Apr-23
+ Ricardo   5.24.0-RC3   2016-Apr-26
+ Ricardo   5.24.0-RC4   2016-May-02
+ Ricardo   5.24.0-RC5   2016-May-04
+ Ricardo   5.24.0       2016-May-09
+ Steve     5.24.1-RC1   2016-Jul-17
+ Steve     5.24.1-RC2   2016-Jul-25
+ Steve     5.24.1-RC3   2016-Aug-11
+ Steve     5.24.1-RC4   2016-Oct-12
+ Steve     5.24.1-RC5   2017-Jan-02
+ Steve     5.24.1       2017-Jan-14
+
+ Ricardo   5.25.0       2016-May-09     The 5.25 development track
+ Sawyer X  5.25.1       2016-May-20
+ Matthew   5.25.2       2016-Jun-20
+ Steve     5.25.3       2016-Jul-20
+ BinGOs    5.25.4       2016-Aug-20
+ Stevan    5.25.5       2016-Sep-20
+ Aaron     5.25.6       2016-Oct-20
+ Chad      5.25.7       2016-Nov-20
+ Sawyer    5.25.8       2016-Dec-20
+
+=head2 SELECTED RELEASE SIZES
+
+For example the notation "core: 212  29" in the release 1.000 means that
+it had in the core 212 kilobytes, in 29 files.  The "core".."doc" are
+explained below.
+
+ release        core       lib         ext        t         doc
+ ======================================================================
+
+ 1.000           212  29      -   -      -    -     38   51     62   3
+ 1.014           219  29      -   -      -    -     39   52     68   4
+ 2.000           309  31      2   3      -    -     55   57     92   4
+ 2.001           312  31      2   3      -    -     55   57     94   4
+ 3.000           508  36     24  11      -    -     79   73    156   5
+ 3.044           645  37     61  20      -    -     90   74    190   6
+ 4.000           635  37     59  20      -    -     91   75    198   4
+ 4.019           680  37     85  29      -    -     98   76    199   4
+ 4.036           709  37     89  30      -    -     98   76    208   5
+ 5.000alpha2     785  50    114  32      -    -    112   86    209   5
+ 5.000alpha3     801  50    117  33      -    -    121   87    209   5
+ 5.000alpha9    1022  56    149  43    116   29    125   90    217   6
+ 5.000a12h       978  49    140  49    205   46    152   97    228   9
+ 5.000b3h       1035  53    232  70    216   38    162   94    218  21
+ 5.000          1038  53    250  76    216   38    154   92    536  62
+ 5.001m         1071  54    388  82    240   38    159   95    544  29
+ 5.002          1121  54    661 101    287   43    155   94    847  35
+ 5.003          1129  54    680 102    291   43    166  100    853  35
+ 5.003_07       1231  60    748 106    396   53    213  137    976  39
+ 5.004          1351  60   1230 136    408   51    355  161   1587  55
+ 5.004_01       1356  60   1258 138    410   51    358  161   1587  55
+ 5.004_04       1375  60   1294 139    413   51    394  162   1629  55
+ 5.004_05       1463  60   1435 150    394   50    445  175   1855  59
+ 5.004_51       1401  61   1260 140    413   53    358  162   1594  56
+ 5.004_53       1422  62   1295 141    438   70    394  162   1637  56
+ 5.004_56       1501  66   1301 140    447   74    408  165   1648  57
+ 5.004_59       1555  72   1317 142    448   74    424  171   1678  58
+ 5.004_62       1602  77   1327 144    629   92    428  173   1674  58
+ 5.004_65       1626  77   1358 146    615   92    446  179   1698  60
+ 5.004_68       1856  74   1382 152    619   92    463  187   1784  60
+ 5.004_70       1863  75   1456 154    675   92    494  194   1809  60
+ 5.004_73       1874  76   1467 152    762  102    506  196   1883  61
+ 5.004_75       1877  76   1467 152    770  103    508  196   1896  62
+ 5.005          1896  76   1469 152    795  103    509  197   1945  63
+ 5.005_03       1936  77   1541 153    813  104    551  201   2176  72
+ 5.005_50       1969  78   1842 301    795  103    514  198   1948  63
+ 5.005_53       1999  79   1885 303    806  104    602  224   2002  67
+ 5.005_56       2086  79   1970 307    866  113    672  238   2221  75
+ 5.6.0          2820  79   2626 364   1096  129    863  280   2840  93
+ 5.6.1          2946  78   2921 430   1171  132   1024  304   3330 102
+ 5.6.2          2947  78   3143 451   1247  127   1303  387   3406 102
+ 5.7.0          2977  80   2801 425   1250  132    975  307   3206 100
+ 5.7.1          3351  84   3442 455   1944  167   1334  357   3698 124
+ 5.7.2          3491  87   4858 618   3290  298   1598  449   3910 139
+ 5.7.3          3299  85   4295 537   2196  300   2176  626   4171 120
+ 5.8.0          3489  87   4533 585   2437  331   2588  726   4368 125
+ 5.8.1          3674  90   5104 623   2604  353   2983  836   4625 134
+ 5.8.2          3633  90   5111 623   2623  357   3019  848   4634 135
+ 5.8.3          3625  90   5141 624   2660  363   3083  869   4669 136
+ 5.8.4          3653  90   5170 634   2684  368   3148  885   4689 137
+ 5.8.5          3664  90   4260 303   2707  369   3208  898   4689 138
+ 5.8.6          3690  90   4271 303   3141  396   3411  925   4709 139
+ 5.8.7          3788  90   4322 307   3297  401   3485  964   4744 141
+ 5.8.8          3895  90   4357 314   3409  431   3622 1017   4979 144
+ 5.8.9          4132  93   5508 330   3826  529   4364 1234   5348 152
+ 5.9.0          3657  90   4951 626   2603  354   3011  841   4609 135
+ 5.9.1          3580  90   5196 634   2665  367   3186  889   4725 138
+ 5.9.2          3863  90   4654 312   3283  403   3551  973   4800 142
+ 5.9.3          4096  91   5318 381   4806  597   4272 1214   5139 147
+ 5.9.4          4393  94   5718 415   4578  642   4646 1310   5335 153
+ 5.9.5          4681  96   6849 479   4827  671   5155 1490   5572 159
+ 5.10.0         4710  97   7050 486   4899  673   5275 1503   5673 160
+ 5.10.1         4858  98   7440 519   6195  921   6147 1751   5151 163
+ 5.12.0         4999 100   1146 121  15227 2176   6400 1843   5342 168
+ 5.12.1         5000 100   1146 121  15283 2178   6407 1846   5354 169
+ 5.12.2         5003 100   1146 121  15404 2178   6413 1846   5376 170
+ 5.12.3         5004 100   1146 121  15529 2180   6417 1848   5391 171
+ 5.14.0         5328 104   1100 114  17779 2479   7697 2130   5871 188
+ 5.16.0         5562 109   1077  80  20504 2702   8750 2375   4815 152
+ 5.18.0         5892 113   1088  79  20077 2760   9365 2439   4943 154
+ 5.20.0         6243 115   1187  75  19499 2701   9620 2457   5145 159
+ 5.22.0         7819 115   1284  77  19121 2635   9772 2434   5615 176
+ 5.24.0         7922 113   1287  77  19535 2677   9994 2465   5702 177
+
+The "core"..."doc" mean the following files from the Perl source code
+distribution.  The glob notation ** means recursively, (.) means
+regular files.
+
+ core   *.[hcy]
+ lib    lib/**/*.p[ml]
+ ext    ext/**/*.{[hcyt],xs,pm} (for -5.10.1) or
+        {dist,ext,cpan}/**/*.{[hcyt],xs,pm} (for 5.12.0-)
+ t      t/**/*(.) (for 1-5.005_56) or **/*.t (for 5.6.0-5.7.3)
+ doc    {README*,INSTALL,*[_.]man{,.?},pod/**/*.pod}
+
+Here are some statistics for the other subdirectories and one file in
+the Perl source distribution for somewhat more selected releases.
+
+ ======================================================================
+   Legend:  kB   #
+
+                  1.014      2.001      3.044
+
+ Configure      31    1    37    1    62    1
+ eg              -    -    34   28    47   39
+ h2pl            -    -     -    -    12   12
+ msdos           -    -     -    -    41   13
+ os2             -    -     -    -    63   22
+ usub            -    -     -    -    21   16
+ x2p           103   17   104   17   137   17
+
+ ======================================================================
+
+                  4.000      4.019      4.036
+
+ atarist         -    -     -    -   113   31
+ Configure      73    1    83    1    86    1
+ eg             47   39    47   39    47   39
+ emacs          67    4    67    4    67    4
+ h2pl           12   12    12   12    12   12
+ hints           -    -     5   42    11   56
+ msdos          57   15    58   15    60   15
+ os2            81   29    81   29   113   31
+ usub           25    7    43    8    43    8
+ x2p           147   18   152   19   154   19
+
+ ======================================================================
+
+                5.000a2  5.000a12h   5.000b3h      5.000     5.001m
+
+ apollo          8    3     8    3     8    3     8    3     8    3
+ atarist       113   31   113   31     -    -     -    -     -    -
+ bench           -    -     0    1     -    -     -    -     -    -
+ Bugs            2    5    26    1     -    -     -    -     -    -
+ dlperl         40    5     -    -     -    -     -    -     -    -
+ do            127   71     -    -     -    -     -    -     -    -
+ Configure       -    -   153    1   159    1   160    1   180    1
+ Doc             -    -    26    1    75    7    11    1    11    1
+ eg             79   58    53   44    51   43    54   44    54   44
+ emacs          67    4   104    6   104    6   104    1   104    6
+ h2pl           12   12    12   12    12   12    12   12    12   12
+ hints          11   56    12   46    18   48    18   48    44   56
+ msdos          60   15    60   15     -    -     -    -     -    -
+ os2           113   31   113   31     -    -     -    -     -    -
+ U               -    -    62    8   112   42     -    -     -    -
+ usub           43    8     -    -     -    -     -    -     -    -
+ vms             -    -    80    7   123    9   184   15   304   20
+ x2p           171   22   171   21   162   20   162   20   279   20
+
+ ======================================================================
+
+                  5.002      5.003   5.003_07
+
+ Configure     201    1   201    1   217    1
+ eg             54   44    54   44    54   44
+ emacs         108    1   108    1   143    1
+ h2pl           12   12    12   12    12   12
+ hints          73   59    77   60    90   62
+ os2            84   17    56   10   117   42
+ plan9           -    -     -    -    79   15
+ Porting         -    -     -    -    51    1
+ utils          87    7    88    7    97    7
+ vms           500   24   475   26   505   27
+ x2p           280   20   280   20   280   19
+
+ ======================================================================
+
+                  5.004   5.004_04   5.004_62   5.004_65   5.004_68
+
+ beos            -    -     -    -     -    -      1   1      1   1
+ Configure     225    1   225    1   240    1    248   1    256   1
+ cygwin32       23    5    23    5    23    5     24   5     24   5
+ djgpp           -    -     -    -    14    5     14   5     14   5
+ eg             81   62    81   62    81   62     81  62     81  62
+ emacs         194    1   204    1   212    2    212   2    212   2
+ h2pl           12   12    12   12    12   12     12  12     12  12
+ hints         129   69   132   71   144   72    151  74    155  74
+ os2           121   42   127   42   127   44    129  44    129  44
+ plan9          82   15    82   15    82   15     82  15     82  15
+ Porting        94    2   109    4   203    6    234   8    241   9
+ qnx             1    2     1    2     1    2      1   2      1   2
+ utils         112    8   118    8   124    8    156   9    159   9
+ vms           518   34   524   34   538   34    569  34    569  34
+ win32         285   33   378   36   470   39    493  39    575  41
+ x2p           281   19   281   19   281   19    282  19    281  19
+
+ ======================================================================
+
+               5.004_70   5.004_73   5.004_75      5.005   5.005_03
+
+ apollo          -    -     -    -     -    -     -    -      0   1
+ beos            1    1     1    1     1    1     1    1      1   1
+ Configure     256    1   256    1   264    1   264    1    270   1
+ cygwin32       24    5    24    5    24    5    24    5     24   5
+ djgpp          14    5    14    5    14    5    14    5     15   5
+ eg             86   65    86   65    86   65    86   65     86  65
+ emacs         262    2   262    2   262    2   262    2    274   2
+ h2pl           12   12    12   12    12   12    12   12     12  12
+ hints         157   74   157   74   159   74   160   74    179  77
+ mint            -    -     -    -     -    -     -    -      4   7
+ mpeix           -    -     -    -     5    3     5    3      5   3
+ os2           129   44   139   44   142   44   143   44    148  44
+ plan9          82   15    82   15    82   15    82   15     82  15
+ Porting       241    9   253    9   259   10   264   12    272  13
+ qnx             1    2     1    2     1    2     1    2      1   2
+ utils         160    9   160    9   160    9   160    9    164   9
+ vms           570   34   572   34   573   34   575   34    583  34
+ vos             -    -     -    -     -    -     -   -     156  10
+ win32         577   41   585   41   585   41   587   41    600  42
+ x2p           281   19   281   19   281   19   281   19    281  19
+
+ ======================================================================
+
+                  5.6.0      5.6.1      5.6.2      5.7.3
+
+ apollo          8    3     8    3     8    3     8    3
+ beos            5    2     5    2     5    2     6    4
+ Configure     346    1   361    1   363    1   394    1
+ Cross           -    -     -    -     -    -     4    2
+ djgpp          19    6    19    6    19    6    21    7
+ eg            112   71   112   71   112   71     -    -
+ emacs         303    4   319    4   319    4   319    4
+ epoc           29    8    35    8    35    8    36    8
+ h2pl           24   15    24   15    24   15    24   15
+ hints         242   83   250   84   321   89   272   87
+ mint           11    9    11    9    11    9    11    9
+ mpeix           9    4     9    4     9    4     9    4
+ NetWare         -    -     -    -     -    -   423   57
+ os2           214   59   224   60   224   60   357   66
+ plan9          92   17    92   17    92   17    85   15
+ Porting       361   15   390   16   390   16   425   21
+ qnx             5    3     5    3     5    3     5    3
+ utils         228   12   221   11   222   11   267   13
+ uts             -    -     -    -     -    -    12    3
+ vmesa          25    4    25    4    25    4    25    4
+ vms           686   38   627   38   627   38   649   36
+ vos           227   12   249   15   248   15   281   17
+ win32         755   41   782   42   801   42  1006   50
+ x2p           307   20   307   20   307   20   345   20
+
+ ======================================================================
+
+                  5.8.0      5.8.1      5.8.2      5.8.3      5.8.4
+
+ apollo          8    3     8    3     8    3     8    3     8    3
+ beos            6    4     6    4     6    4     6    4     6    4
+ Configure     472    1   493    1   493    1   493    1   494    1
+ Cross           4    2    45   10    45   10    45   10    45   10
+ djgpp          21    7    21    7    21    7    21    7    21    7
+ emacs         319    4   329    4   329    4   329    4   329    4
+ epoc           33    8    33    8    33    8    33    8    33    8
+ h2pl           24   15    24   15    24   15    24   15    24   15
+ hints         294   88   321   89   321   89   321   89   348   91
+ mint           11    9    11    9    11    9    11    9    11    9
+ mpeix          24    5    25    5    25    5    25    5    25    5
+ NetWare       488   61   490   61   490   61   490   61   488   61
+ os2           361   66   445   67   450   67   488   67   488   67
+ plan9          85   15   325   17   325   17   325   17   321   17
+ Porting       479   22   537   32   538   32   539   32   538   33
+ qnx             5    3     5    3     5    3     5    3     5    3
+ utils         275   15   258   16   258   16   263   19   263   19
+ uts            12    3    12    3    12    3    12    3    12    3
+ vmesa          25    4    25    4    25    4    25    4    25    4
+ vms           648   36   654   36   654   36   656   36   656   36
+ vos           330   20   335   20   335   20   335   20   335   20
+ win32        1062   49  1125   49  1127   49  1126   49  1181   56
+ x2p           347   20   348   20   348   20   348   20   348   20
+
+ ======================================================================
+
+                  5.8.5      5.8.6      5.8.7      5.8.8      5.8.9
+
+ apollo          8    3     8    3     8    3     8    3     8    3
+ beos            6    4     6    4     8    4     8    4     8    4
+ Configure     494    1   494    1   495    1   506    1   520    1
+ Cross          45   10    45   10    45   10    45   10    46   10
+ djgpp          21    7    21    7    21    7    21    7    21    7
+ emacs         329    4   329    4   329    4   329    4   406    4
+ epoc           33    8    33    8    33    8    34    8    35    8
+ h2pl           24   15    24   15    24   15    24   15    24   15
+ hints         350   91   352   91   355   94   360   94   387   99
+ mint           11    9    11    9    11    9    11    9    11    9
+ mpeix          25    5    25    5    25    5    49    6    49    6
+ NetWare       488   61   488   61   488   61   490   61   491   61
+ os2           488   67   488   67   488   67   488   67   552   70
+ plan9         321   17   321   17   321   17   322   17   324   17
+ Porting       538   34   548   35   549   35   564   37   625   41
+ qnx             5    3     5    3     5    3     5    3     5    3
+ utils         265   19   265   19   266   19   267   19   281   21
+ uts            12    3    12    3    12    3    12    3    12    3
+ vmesa          25    4    25    4    25    4    25    4    25    4
+ vms           657   36   658   36   662   36   664   36   716   35
+ vos           335   20   335   20   335   20   336   21   345   22
+ win32        1183   56  1190   56  1199   56  1219   56  1484   68
+ x2p           349   20   349   20   349   20   349   19   350   19
+
+ ======================================================================
+
+                  5.9.0      5.9.1      5.9.2      5.9.3      5.9.4
+
+ apollo          8    3     8    3     8    3     8    3     8    3
+ beos            6    4     6    4     8    4     8    4     8    4
+ Configure     493    1   493    1   495    1   508    1   512    1
+ Cross          45   10    45   10    45   10    45   10    46   10
+ djgpp          21    7    21    7    21    7    21    7    21    7
+ emacs         329    4   329    4   329    4   329    4   329    4
+ epoc           33    8    33    8    33    8    34    8    34    8
+ h2pl           24   15    24   15    24   15    24   15    24   15
+ hints         321   89   346   91   355   94   359   94   366   96
+ mad             -    -     -    -     -    -     -    -   174    6
+ mint           11    9    11    9    11    9    11    9    11    9
+ mpeix          25    5    25    5    25    5    49    6    49    6
+ NetWare       489   61   487   61   487   61   489   61   489   61
+ os2           444   67   488   67   488   67   488   67   488   67
+ plan9         325   17   321   17   321   17   322   17   323   17
+ Porting       537   32   536   33   549   36   564   38   576   38
+ qnx             5    3     5    3     5    3     5    3     5    3
+ symbian         -    -     -    -     -    -   293   53   293   53
+ utils         258   16   263   19   268   20   273   23   275   24
+ uts            12    3    12    3    12    3    12    3    12    3
+ vmesa          25    4    25    4    25    4    25    4    25    4
+ vms           660   36   547   33   553   33   661   33   696   33
+ vos            11    7    11    7    11    7    11    7    11    7
+ win32        1120   49  1124   51  1191   56  1209   56  1719   90
+ x2p           348   20   348   20   349   20   349   19   349   19
+
+ ======================================================================
+
+                  5.9.5     5.10.0     5.10.1     5.12.0     5.12.1
+
+ apollo          8    3     8    3     0    3     0    3     0    3
+ beos            8    4     8    4     4    4     4    4     4    4
+ Configure     518    1   518    1   533    1   536    1   536    1
+ Cross         122   15   122   15   119   15   118   15   118   15
+ djgpp          21    7    21    7    17    7    17    7    17    7
+ emacs         329    4   406    4   402    4   402    4   402    4
+ epoc           34    8    35    8    31    8    31    8    31    8
+ h2pl           24   15    24   15    12   15    12   15    12   15
+ hints         377   98   381   98   385  100   368   97   368   97
+ mad           182    8   182    8   174    8   174    8   174    8
+ mint           11    9    11    9     3    9     -    -     -    -
+ mpeix          49    6    49    6    45    6    45    6    45    6
+ NetWare       489   61   489   61   465   61   466   61   466   61
+ os2           552   70   552   70   507   70   507   70   507   70
+ plan9         324   17   324   17   316   17   316   17   316   17
+ Porting       627   40   632   40   933   53   749   54   749   54
+ qnx             5    3     5    4     1    4     1    4     1    4
+ symbian       300   54   300   54   290   54   288   54   288   54
+ utils         260   26   264   27   268   27   269   27   269   27
+ uts            12    3    12    3     8    3     8    3     8    3
+ vmesa          25    4    25    4    21    4    21    4    21    4
+ vms           690   32   722   32   693   30   645   18   645   18
+ vos            19    8    19    8    16    8    16    8    16    8
+ win32        1482   68  1485   68  1497   70  1841   73  1841   73
+ x2p           349   19   349   19   345   19   345   19   345   19
+
+ ======================================================================
+
+                 5.12.2     5.12.3      5.14.0     5.16.0       5.18.0
+
+ apollo          0    3     0    3      -    -     -    -      -     -
+ beos            4    4     4    4      5    4     5    4      -     -
+ Configure     536    1   536    1    539    1   547    1    550     1
+ Cross         118   15   118   15    118   15   118   15    118    15
+ djgpp          17    7    17    7     18    7    18    7     18     7
+ emacs         402    4   402    4      -    -     -    -      -     -
+ epoc           31    8    31    8     32    8    30    8      -     -
+ h2pl           12   15    12   15     15   15    15   15     13    15
+ hints         368   97   368   97    370   96   371   96    354    91
+ mad           174    8   174    8    176    8   176    8    174     8
+ mpeix          45    6    45    6     46    6    46    6      -     -
+ NetWare       466   61   466   61    473   61   472   61    469    61
+ os2           507   70   507   70    518   70   519   70    510    70
+ plan9         316   17   316   17    319   17   319   17    318    17
+ Porting       750   54   750   54    855   60  1093   69   1149    70
+ qnx             1    4     1    4      2    4     2    4      1     4
+ symbian       288   54   288   54    292   54   292   54    290    54
+ utils         269   27   269   27    249   29   245   30    246    31
+ uts             8    3     8    3      9    3     9    3      -     -
+ vmesa          21    4    21    4     22    4    22    4      -     -
+ vms           646   18   644   18    639   17   571   15    564    15
+ vos            16    8    16    8     17    8     9    7      8     7
+ win32        1841   73  1841   73   1833   72  1655   67   1157    62
+ x2p           345   19   345   19    346   19   345   19    344    20
+
+ ======================================================================
+
+                  5.20.0           5.22.0          5.24.0
+
+ Configure    552      1       570      1      586      1
+ Cross        118     15       118     15      118     15
+ djgpp         18      7        17      7       17      7
+ h2pl          13     15        13     15       13     15
+ hints        355     90       356     87      362     87
+ mad          174      8         -      -        -      -
+ NetWare      467     61       466     61      467     61
+ os2          510     70       510     70      510     70
+ plan9        316     17       317     17      314     17
+ Porting     1204     68      1393     71     1321     71
+ qnx            1      4         1      4        1      4
+ symbian      290     54       291     54      292     54
+ utils        241     27       242     27      679     53
+ vms          538     12       532     12      524     12
+ vos            8      7         8      7        8      7
+ win32       1183     64      1201     64     1268     65
+ x2p          341     19         -      -        -      -
+
+=head2 SELECTED PATCH SIZES
+
+The "diff lines kB" means that for example the patch 5.003_08, to be
+applied on top of the 5.003_07 (or whatever was before the 5.003_08)
+added lines for 110 kilobytes, it removed lines for 19 kilobytes, and
+changed lines for 424 kilobytes.  Just the lines themselves are
+counted, not their context.  The "+ - !" become from the diff(1)
+context diff output format.
+
+ Pump-  Release         Date              diff lines kB
+ king                                     -------------
+                                          +     -     !
+ ======================================================================
+
+ Chip     5.003_08      1996-Nov-19     110    19   424
+          5.003_09      1996-Nov-26      38     9   248
+          5.003_10      1996-Nov-29      29     2    27
+          5.003_11      1996-Dec-06      73    12   165
+          5.003_12      1996-Dec-19     275     6   436
+          5.003_13      1996-Dec-20      95     1    56
+          5.003_14      1996-Dec-23      23     7   333
+          5.003_15      1996-Dec-23       0     0     1
+          5.003_16      1996-Dec-24      12     3    50
+          5.003_17      1996-Dec-27      19     1    14
+          5.003_18      1996-Dec-31      21     1    32
+          5.003_19      1997-Jan-04      80     3    85
+          5.003_20      1997-Jan-07      18     1   146
+          5.003_21      1997-Jan-15      38    10   221
+          5.003_22      1997-Jan-16       4     0    18
+          5.003_23      1997-Jan-25      71    15   119
+          5.003_24      1997-Jan-29     426     1    20
+          5.003_25      1997-Feb-04      21     8   169
+          5.003_26      1997-Feb-10      16     1    15
+          5.003_27      1997-Feb-18      32    10    38
+          5.003_28      1997-Feb-21      58     4    66
+          5.003_90      1997-Feb-25      22     2    34
+          5.003_91      1997-Mar-01      37     1    39
+          5.003_92      1997-Mar-06      16     3    69
+          5.003_93      1997-Mar-10      12     3    15
+          5.003_94      1997-Mar-22     407     7   200
+          5.003_95      1997-Mar-25      41     1    37
+          5.003_96      1997-Apr-01     283     5   261
+          5.003_97      1997-Apr-03      13     2    34
+          5.003_97a     1997-Apr-05      57     1    27
+          5.003_97b     1997-Apr-08      14     1    20
+          5.003_97c     1997-Apr-10      20     1    16
+          5.003_97d     1997-Apr-13       8     0    16
+          5.003_97e     1997-Apr-15      15     4    46
+          5.003_97f     1997-Apr-17       7     1    33
+          5.003_97g     1997-Apr-18       6     1    42
+          5.003_97h     1997-Apr-24      23     3    68
+          5.003_97i     1997-Apr-25      23     1    31
+          5.003_97j     1997-Apr-28      36     1    49
+          5.003_98      1997-Apr-30     171    12   539
+          5.003_99      1997-May-01       6     0     7
+          5.003_99a     1997-May-09      36     2    61
+          p54rc1        1997-May-12       8     1    11
+          p54rc2        1997-May-14       6     0    40
+
+        5.004           1997-May-15       4     0     4
+
+ Tim      5.004_01      1997-Jun-13     222    14    57
+          5.004_02      1997-Aug-07     112    16   119
+          5.004_03      1997-Sep-05     109     0    17
+          5.004_04      1997-Oct-15      66     8   173
+
+=head3 The patch-free era
+
+In more modern times, named releases don't come as often, and as progress
+can be followed (nearly) instantly (with rsync, and since late 2008, git)
+patches between versions are no longer provided. However, that doesn't
+keep us from calculating how large a patch could have been. Which is
+shown in the table below. Unless noted otherwise, the size mentioned is
+the patch to bring version x.y.z to x.y.z+1.
+
+ Sarathy  5.6.1         2001-Apr-08     531    44   651
+ Rafael   5.6.2         2003-Nov-15      20    11  1819
+
+ Jarkko   5.8.0         2002-Jul-18    1205    31   471   From 5.7.3
+
+          5.8.1         2003-Sep-25     243   102  6162
+ Nicholas 5.8.2         2003-Nov-05      10    50   788
+          5.8.3         2004-Jan-14      31    13   360
+          5.8.4         2004-Apr-21      33     8   299
+          5.8.5         2004-Jul-19      11    19   255
+          5.8.6         2004-Nov-27      35     3   192
+          5.8.7         2005-May-30      75    34   778
+          5.8.8         2006-Jan-31     131    42  1251
+          5.8.9         2008-Dec-14     340   132 12988
+
+ Hugo     5.9.0         2003-Oct-27     281   168  7132   From 5.8.0
+ Rafael   5.9.1         2004-Mar-16      57   250  2107
+          5.9.2         2005-Apr-01     720    57   858
+          5.9.3         2006-Jan-28    1124   102  1906
+          5.9.4         2006-Aug-15     896    60   862
+          5.9.5         2007-Jul-07    1149   128  1062
+
+          5.10.0        2007-Dec-18      50    31 13111   From 5.9.5
+
+
+=head1 THE KEEPERS OF THE RECORDS
+
+Jarkko Hietaniemi <F<jhi@iki.fi>>.
+
+Thanks to the collective memory of the Perlfolk.  In addition to the
+Keepers of the Pumpkin also Alan Champion, Mark Dominus,
+Andreas KE<0xf6>nig, John Macdonald, Matthias Neeracher, Jeff Okamoto,
+Michael Peppler, Randal Schwartz, and Paul D. Smith sent corrections
+and additions. Abigail added file and patch size data for the 5.6.0 - 5.10
+era.
+
+=cut
diff --git a/lib/5.24.1/pod/perlhpux.pod b/lib/5.24.1/pod/perlhpux.pod
new file mode 100644
index 00000000..e1857e08
--- /dev/null
+++ b/lib/5.24.1/pod/perlhpux.pod
@@ -0,0 +1,709 @@
+If you read this file _as_is_, just ignore the funny characters you see.
+It is written in the POD format (see pod/perlpod.pod) which is specially
+designed to be readable as is.
+
+=head1 NAME
+
+perlhpux - Perl version 5 on Hewlett-Packard Unix (HP-UX) systems
+
+=head1 DESCRIPTION
+
+This document describes various features of HP's Unix operating system
+(HP-UX) that will affect how Perl version 5 (hereafter just Perl) is
+compiled and/or runs.
+
+=head2 Using perl as shipped with HP-UX
+
+Application release September 2001, HP-UX 11.00 is the first to ship
+with Perl. By the time it was perl-5.6.1 in /opt/perl. The first
+occurrence is on CD 5012-7954 and can be installed using
+
+  swinstall -s /cdrom perl
+
+assuming you have mounted that CD on /cdrom.
+
+That build was a portable hppa-1.1 multithread build that supports large
+files compiled with gcc-2.9-hppa-991112.
+
+If you perform a new installation, then (a newer) Perl will be installed
+automatically.  Pre-installed HP-UX systems now have more recent versions
+of Perl and the updated modules.
+
+The official (threaded) builds from HP, as they are shipped on the
+Application DVD/CD's are available on
+L<http://www.software.hp.com/portal/swdepot/displayProductInfo.do?productNumber=PERL>
+for both PA-RISC and IPF (Itanium Processor Family). They are built
+with the HP ANSI-C compiler. Up till 5.8.8 that was done by ActiveState.
+
+To see what version is included on the DVD (assumed here to be mounted
+on /cdrom), issue this command:
+
+  # swlist -s /cdrom perl
+  # perl           D.5.8.8.B  5.8.8 Perl Programming Language
+    perl.Perl5-32  D.5.8.8.B  32-bit 5.8.8 Perl Programming Language
+                                           with Extensions
+    perl.Perl5-64  D.5.8.8.B  64-bit 5.8.8 Perl Programming Language
+                                           with Extensions
+
+To see what is installed on your system:
+
+  # swlist -R perl
+  # perl                    E.5.8.8.J  Perl Programming Language
+  # perl.Perl5-32           E.5.8.8.J  32-bit Perl Programming Language
+                                       with Extensions
+    perl.Perl5-32.PERL-MAN  E.5.8.8.J  32-bit Perl Man Pages for IA
+    perl.Perl5-32.PERL-RUN  E.5.8.8.J  32-bit Perl Binaries for IA
+  # perl.Perl5-64           E.5.8.8.J  64-bit Perl Programming Language
+                                       with Extensions
+    perl.Perl5-64.PERL-MAN  E.5.8.8.J  64-bit Perl Man Pages for IA
+    perl.Perl5-64.PERL-RUN  E.5.8.8.J  64-bit Perl Binaries for IA
+
+=head2 Using perl from HP's porting centre
+
+HP porting centre tries to keep up with customer demand and release
+updates from the Open Source community. Having precompiled Perl binaries
+available is obvious, though "up-to-date" is something relative. At the
+moment of writing only perl-5.10.1 was available (with 5.16.3 being the
+latest stable release from the porters point of view).
+
+The HP porting centres are limited in what systems they are allowed
+to port to and they usually choose the two most recent OS versions
+available.
+
+HP has asked the porting centre to move Open Source binaries
+from /opt to /usr/local, so binaries produced since the start
+of July 2002 are located in /usr/local.
+
+One of HP porting centres URL's is L<http://hpux.connect.org.uk/>
+The port currently available is built with GNU gcc.
+
+=head2 Other prebuilt perl binaries
+
+To get even more recent perl depots for the whole range of HP-UX, visit
+H.Merijn Brand's site at L<http://mirrors.develooper.com/hpux/#Perl>.
+Carefully read the notes to see if the available versions suit your needs.
+
+=head2 Compiling Perl 5 on HP-UX
+
+When compiling Perl, you must use an ANSI C compiler.  The C compiler
+that ships with all HP-UX systems is a K&R compiler that should only be
+used to build new kernels.
+
+Perl can be compiled with either HP's ANSI C compiler or with gcc.  The
+former is recommended, as not only can it compile Perl with no
+difficulty, but also can take advantage of features listed later that
+require the use of HP compiler-specific command-line flags.
+
+If you decide to use gcc, make sure your installation is recent and
+complete, and be sure to read the Perl INSTALL file for more gcc-specific
+details.
+
+=head2 PA-RISC
+
+HP's HP9000 Unix systems run on HP's own Precision Architecture
+(PA-RISC) chip.  HP-UX used to run on the Motorola MC68000 family of
+chips, but any machine with this chip in it is quite obsolete and this
+document will not attempt to address issues for compiling Perl on the
+Motorola chipset.
+
+The version of PA-RISC at the time of this document's last update is 2.0,
+which is also the last there will be. HP PA-RISC systems are usually
+referred to with model description "HP 9000". The last CPU in this series
+is the PA-8900.  Support for PA-RISC architectured machines officially
+ends as shown in the following table:
+
+   PA-RISC End-of-Life Roadmap
+ +--------+----------------+----------------+-----------------+
+ | HP9000 | Superdome      | PA-8700        | Spring 2011     |
+ | 4-128  |                | PA-8800/sx1000 | Summer 2012     |
+ | cores  |                | PA-8900/sx1000 | 2014            |
+ |        |                | PA-8900/sx2000 | 2015            |
+ +--------+----------------+----------------+-----------------+
+ | HP9000 | rp7410, rp8400 | PA-8700        | Spring 2011     |
+ | 2-32   | rp7420, rp8420 | PA-8800/sx1000 | 2012            |
+ | cores  | rp7440, rp8440 | PA-8900/sx1000 | Autumn 2013     |
+ |        |                | PA-8900/sx2000 | 2015            |
+ +--------+----------------+----------------+-----------------+
+ | HP9000 | rp44x0         | PA-8700        | Spring 2011     |
+ | 1-8    |                | PA-8800/rp44x0 | 2012            |
+ | cores  |                | PA-8900/rp44x0 | 2014            |
+ +--------+----------------+----------------+-----------------+
+ | HP9000 | rp34x0         | PA-8700        | Spring 2011     |
+ | 1-4    |                | PA-8800/rp34x0 | 2012            |
+ | cores  |                | PA-8900/rp34x0 | 2014            |
+ +--------+----------------+----------------+-----------------+
+
+From L<http://www.hp.com/products1/evolution/9000/faqs.html>
+
+ The last order date for HP 9000 systems was December 31, 2008.
+
+A complete list of models at the time the OS was built is in the file
+/usr/sam/lib/mo/sched.models. The first column corresponds to the last
+part of the output of the "model" command.  The second column is the
+PA-RISC version and the third column is the exact chip type used.
+(Start browsing at the bottom to prevent confusion ;-)
+
+  # model
+  9000/800/L1000-44
+  # grep L1000-44 /usr/sam/lib/mo/sched.models
+  L1000-44        2.0     PA8500
+
+=head2 Portability Between PA-RISC Versions
+
+An executable compiled on a PA-RISC 2.0 platform will not execute on a
+PA-RISC 1.1 platform, even if they are running the same version of
+HP-UX.  If you are building Perl on a PA-RISC 2.0 platform and want that
+Perl to also run on a PA-RISC 1.1, the compiler flags +DAportable and
++DS32 should be used.
+
+It is no longer possible to compile PA-RISC 1.0 executables on either
+the PA-RISC 1.1 or 2.0 platforms.  The command-line flags are accepted,
+but the resulting executable will not run when transferred to a PA-RISC
+1.0 system.
+
+=head2 PA-RISC 1.0
+
+The original version of PA-RISC, HP no longer sells any system with this chip.
+
+The following systems contained PA-RISC 1.0 chips:
+
+  600, 635, 645, 808, 815, 822, 825, 832, 834, 835, 840, 842, 845, 850,
+  852, 855, 860, 865, 870, 890
+
+=head2 PA-RISC 1.1
+
+An upgrade to the PA-RISC design, it shipped for many years in many different
+system.
+
+The following systems contain with PA-RISC 1.1 chips:
+
+  705, 710, 712, 715, 720, 722, 725, 728, 730, 735, 742, 743, 744, 745,
+  747, 750, 755, 770, 777, 778, 779, 800, 801, 803, 806, 807, 809, 811,
+  813, 816, 817, 819, 821, 826, 827, 829, 831, 837, 839, 841, 847, 849,
+  851, 856, 857, 859, 867, 869, 877, 887, 891, 892, 897, A180, A180C,
+  B115, B120, B132L, B132L+, B160L, B180L, C100, C110, C115, C120,
+  C160L, D200, D210, D220, D230, D250, D260, D310, D320, D330, D350,
+  D360, D410, DX0, DX5, DXO, E25, E35, E45, E55, F10, F20, F30, G30,
+  G40, G50, G60, G70, H20, H30, H40, H50, H60, H70, I30, I40, I50, I60,
+  I70, J200, J210, J210XC, K100, K200, K210, K220, K230, K400, K410,
+  K420, S700i, S715, S744, S760, T500, T520
+
+=head2 PA-RISC 2.0
+
+The most recent upgrade to the PA-RISC design, it added support for
+64-bit integer data.
+
+As of the date of this document's last update, the following systems
+contain PA-RISC 2.0 chips:
+
+  700, 780, 781, 782, 783, 785, 802, 804, 810, 820, 861, 871, 879, 889,
+  893, 895, 896, 898, 899, A400, A500, B1000, B2000, C130, C140, C160,
+  C180, C180+, C180-XP, C200+, C400+, C3000, C360, C3600, CB260, D270,
+  D280, D370, D380, D390, D650, J220, J2240, J280, J282, J400, J410,
+  J5000, J5500XM, J5600, J7000, J7600, K250, K260, K260-EG, K270, K360,
+  K370, K380, K450, K460, K460-EG, K460-XP, K470, K570, K580, L1000,
+  L2000, L3000, N4000, R380, R390, SD16000, SD32000, SD64000, T540,
+  T600, V2000, V2200, V2250, V2500, V2600
+
+Just before HP took over Compaq, some systems were renamed. the link
+that contained the explanation is dead, so here's a short summary:
+
+  HP 9000 A-Class servers, now renamed HP Server rp2400 series.
+  HP 9000 L-Class servers, now renamed HP Server rp5400 series.
+  HP 9000 N-Class servers, now renamed HP Server rp7400.
+
+  rp2400, rp2405, rp2430, rp2450, rp2470, rp3410, rp3440, rp4410,
+  rp4440, rp5400, rp5405, rp5430, rp5450, rp5470, rp7400, rp7405,
+  rp7410, rp7420, rp7440, rp8400, rp8420, rp8440, Superdome
+
+The current naming convention is:
+
+  aadddd
+  ||||`+- 00 - 99 relative capacity & newness (upgrades, etc.)
+  |||`--- unique number for each architecture to ensure different
+  |||     systems do not have the same numbering across
+  |||     architectures
+  ||`---- 1 - 9 identifies family and/or relative positioning
+  ||
+  |`----- c = ia32 (cisc)
+  |       p = pa-risc
+  |       x = ia-64 (Itanium & Itanium 2)
+  |       h = housing
+  `------ t = tower
+          r = rack optimized
+          s = super scalable
+          b = blade
+          sa = appliance
+
+=head2 Itanium Processor Family (IPF) and HP-UX
+
+HP-UX also runs on the new Itanium processor.  This requires the use
+of a different version of HP-UX (currently 11.23 or 11i v2), and with
+the exception of a few differences detailed below and in later sections,
+Perl should compile with no problems.
+
+Although PA-RISC binaries can run on Itanium systems, you should not
+attempt to use a PA-RISC version of Perl on an Itanium system.  This is
+because shared libraries created on an Itanium system cannot be loaded
+while running a PA-RISC executable.
+
+HP Itanium 2 systems are usually referred to with model description
+"HP Integrity".
+
+=head2 Itanium, Itanium 2 & Madison 6
+
+HP also ships servers with the 128-bit Itanium processor(s). The cx26x0
+is told to have Madison 6. As of the date of this document's last update,
+the following systems contain Itanium or Itanium 2 chips (this is likely
+to be out of date):
+
+  BL60p, BL860c, BL870c, BL890c, cx2600, cx2620, rx1600, rx1620, rx2600,
+  rx2600hptc, rx2620, rx2660, rx2800, rx3600, rx4610, rx4640, rx5670,
+  rx6600, rx7420, rx7620, rx7640, rx8420, rx8620, rx8640, rx9610,
+  sx1000, sx2000
+
+To see all about your machine, type
+
+  # model
+  ia64 hp server rx2600
+  # /usr/contrib/bin/machinfo
+
+=head2 HP-UX versions
+
+Not all architectures (PA = PA-RISC, IPF = Itanium Processor Family)
+support all versions of HP-UX, here is a short list
+
+  HP-UX version  Kernel  Architecture End-of-factory support
+  -------------  ------  ------------ ----------------------------------
+  10.20          32 bit  PA           30-Jun-2003
+  11.00          32/64   PA           31-Dec-2006
+  11.11  11i v1  32/64   PA           31-Dec-2015
+  11.22  11i v2     64        IPF     30-Apr-2004
+  11.23  11i v2     64   PA & IPF     31-Dec-2015
+  11.31  11i v3     64   PA & IPF     31-Dec-2020 (PA) 31-Dec-2022 (IPF)
+
+See for the full list of hardware/OS support and expected end-of-life
+L<http://www.hp.com/go/hpuxservermatrix>
+
+=head2 Building Dynamic Extensions on HP-UX
+
+HP-UX supports dynamically loadable libraries (shared libraries).
+Shared libraries end with the suffix .sl.  On Itanium systems,
+they end with the suffix .so.
+
+Shared libraries created on a platform using a particular PA-RISC
+version are not usable on platforms using an earlier PA-RISC version by
+default.  However, this backwards compatibility may be enabled using the
+same +DAportable compiler flag (with the same PA-RISC 1.0 caveat
+mentioned above).
+
+Shared libraries created on an Itanium platform cannot be loaded on
+a PA-RISC platform.  Shared libraries created on a PA-RISC platform
+can only be loaded on an Itanium platform if it is a PA-RISC executable
+that is attempting to load the PA-RISC library.  A PA-RISC shared
+library cannot be loaded into an Itanium executable nor vice-versa.
+
+To create a shared library, the following steps must be performed:
+
+  1. Compile source modules with +z or +Z flag to create a .o module
+     which contains Position-Independent Code (PIC).  The linker will
+     tell you in the next step if +Z was needed.
+     (For gcc, the appropriate flag is -fpic or -fPIC.)
+
+  2. Link the shared library using the -b flag.  If the code calls
+     any functions in other system libraries (e.g., libm), it must
+     be included on this line.
+
+(Note that these steps are usually handled automatically by the extension's
+Makefile).
+
+If these dependent libraries are not listed at shared library creation
+time, you will get fatal "Unresolved symbol" errors at run time when the
+library is loaded.
+
+You may create a shared library that refers to another library, which
+may be either an archive library or a shared library.  If this second
+library is a shared library, this is called a "dependent library".  The
+dependent library's name is recorded in the main shared library, but it
+is not linked into the shared library.  Instead, it is loaded when the
+main shared library is loaded.  This can cause problems if you build an
+extension on one system and move it to another system where the
+libraries may not be located in the same place as on the first system.
+
+If the referred library is an archive library, then it is treated as a
+simple collection of .o modules (all of which must contain PIC).  These
+modules are then linked into the shared library.
+
+Note that it is okay to create a library which contains a dependent
+library that is already linked into perl.
+
+Some extensions, like DB_File and Compress::Zlib use/require prebuilt
+libraries for the perl extensions/modules to work. If these libraries
+are built using the default configuration, it might happen that you
+run into an error like "invalid loader fixup" during load phase.
+HP is aware of this problem.  Search the HP-UX cxx-dev forums for
+discussions about the subject.  The short answer is that B<everything>
+(all libraries, everything) must be compiled with C<+z> or C<+Z> to be
+PIC (position independent code).  (For gcc, that would be
+C<-fpic> or C<-fPIC>).  In HP-UX 11.00 or newer the linker
+error message should tell the name of the offending object file.
+
+A more general approach is to intervene manually, as with an example for
+the DB_File module, which requires SleepyCat's libdb.sl:
+
+  # cd .../db-3.2.9/build_unix
+  # vi Makefile
+  ... add +Z to all cflags to create shared objects
+  CFLAGS=         -c $(CPPFLAGS) +Z -Ae +O2 +Onolimit \
+                  -I/usr/local/include -I/usr/include/X11R6
+  CXXFLAGS=       -c $(CPPFLAGS) +Z -Ae +O2 +Onolimit \
+                  -I/usr/local/include -I/usr/include/X11R6
+
+  # make clean
+  # make
+  # mkdir tmp
+  # cd tmp
+  # ar x ../libdb.a
+  # ld -b -o libdb-3.2.sl *.o
+  # mv libdb-3.2.sl /usr/local/lib
+  # rm *.o
+  # cd /usr/local/lib
+  # rm -f libdb.sl
+  # ln -s libdb-3.2.sl libdb.sl
+
+  # cd .../DB_File-1.76
+  # make distclean
+  # perl Makefile.PL
+  # make
+  # make test
+  # make install
+
+As of db-4.2.x it is no longer needed to do this by hand. Sleepycat
+has changed the configuration process to add +z on HP-UX automatically.
+
+  # cd .../db-4.2.25/build_unix
+  # env CFLAGS=+DD64 LDFLAGS=+DD64 ../dist/configure
+
+should work to generate 64bit shared libraries for HP-UX 11.00 and 11i.
+
+It is no longer possible to link PA-RISC 1.0 shared libraries (even
+though the command-line flags are still present).
+
+PA-RISC and Itanium object files are not interchangeable.  Although
+you may be able to use ar to create an archive library of PA-RISC
+object files on an Itanium system, you cannot link against it using
+an Itanium link editor.
+
+=head2 The HP ANSI C Compiler
+
+When using this compiler to build Perl, you should make sure that the
+flag -Aa is added to the cpprun and cppstdin variables in the config.sh
+file (though see the section on 64-bit perl below). If you are using a
+recent version of the Perl distribution, these flags are set automatically.
+
+Even though HP-UX 10.20 and 11.00 are not actively maintained by HP
+anymore, updates for the HP ANSI C compiler are still available from
+time to time, and it might be advisable to see if updates are applicable.
+At the moment of writing, the latests available patches for 11.00 that
+should be applied are PHSS_35098, PHSS_35175, PHSS_35100, PHSS_33036,
+and PHSS_33902). If you have a SUM account, you can use it to search
+for updates/patches. Enter "ANSI" as keyword.
+
+=head2 The GNU C Compiler
+
+When you are going to use the GNU C compiler (gcc), and you don't have
+gcc yet, you can either build it yourself from the sources (available
+from e.g. L<http://gcc.gnu.org/mirrors.html>) or fetch
+a prebuilt binary from the HP porting center
+at L<http://hpux.connect.org.uk/hppd/cgi-bin/search?term=gcc&Search=Search>
+or from the DSPP (you need to be a member) at
+L<http://h21007.www2.hp.com/portal/site/dspp/menuitem.863c3e4cbcdc3f3515b49c108973a801?ciid=2a08725cc2f02110725cc2f02110275d6e10RCRD&jumpid=reg_r1002_usen_c-001_title_r0001>
+(Browse through the list, because there are often multiple versions of
+the same package available).
+
+Most mentioned distributions are depots. H.Merijn Brand has made prebuilt
+gcc binaries available on L<http://mirrors.develooper.com/hpux/> and/or
+L<http://www.cmve.net/~merijn/> for HP-UX 10.20 (only 32bit), HP-UX 11.00,
+HP-UX 11.11 (HP-UX 11i v1), and HP-UX 11.23 (HP-UX 11i v2 PA-RISC) in both
+32- and 64-bit versions. For HP-UX 11.23 IPF and HP-UX 11.31 IPF depots are
+available too. The IPF versions do not need two versions of GNU gcc.
+
+On PA-RISC you need a different compiler for 32-bit applications and for
+64-bit applications. On PA-RISC, 32-bit objects and 64-bit objects do
+not mix. Period. There is no different behaviour for HP C-ANSI-C or GNU
+gcc. So if you require your perl binary to use 64-bit libraries, like
+Oracle-64bit, you MUST build a 64-bit perl.
+
+Building a 64-bit capable gcc on PA-RISC from source is possible only when
+you have the HP C-ANSI C compiler or an already working 64-bit binary of
+gcc available. Best performance for perl is achieved with HP's native
+compiler.
+
+=head2 Using Large Files with Perl on HP-UX
+
+Beginning with HP-UX version 10.20, files larger than 2GB (2^31 bytes)
+may be created and manipulated.  Three separate methods of doing this
+are available.  Of these methods, the best method for Perl is to compile
+using the -Duselargefiles flag to Configure.  This causes Perl to be
+compiled using structures and functions in which these are 64 bits wide,
+rather than 32 bits wide.  (Note that this will only work with HP's ANSI
+C compiler.  If you want to compile Perl using gcc, you will have to get
+a version of the compiler that supports 64-bit operations. See above for
+where to find it.)
+
+There are some drawbacks to this approach.  One is that any extension
+which calls any file-manipulating C function will need to be recompiled
+(just follow the usual "perl Makefile.PL; make; make test; make install"
+procedure).
+
+The list of functions that will need to recompiled is:
+  creat,          fgetpos,        fopen,
+  freopen,        fsetpos,        fstat,
+  fstatvfs,       fstatvfsdev,    ftruncate,
+  ftw,            lockf,          lseek,
+  lstat,          mmap,           nftw,
+  open,           prealloc,       stat,
+  statvfs,        statvfsdev,     tmpfile,
+  truncate,       getrlimit,      setrlimit
+
+Another drawback is only valid for Perl versions before 5.6.0.  This
+drawback is that the seek and tell functions (both the builtin version
+and POSIX module version) will not perform correctly.
+
+It is strongly recommended that you use this flag when you run
+Configure.  If you do not do this, but later answer the question about
+large files when Configure asks you, you may get a configuration that
+cannot be compiled, or that does not function as expected.
+
+=head2 Threaded Perl on HP-UX
+
+It is possible to compile a version of threaded Perl on any version of
+HP-UX before 10.30, but it is strongly suggested that you be running on
+HP-UX 11.00 at least.
+
+To compile Perl with threads, add -Dusethreads to the arguments of
+Configure.  Verify that the -D_POSIX_C_SOURCE=199506L compiler flag is
+automatically added to the list of flags.  Also make sure that -lpthread
+is listed before -lc in the list of libraries to link Perl with. The
+hints provided for HP-UX during Configure will try very hard to get
+this right for you.
+
+HP-UX versions before 10.30 require a separate installation of a POSIX
+threads library package. Two examples are the HP DCE package, available
+on "HP-UX Hardware Extensions 3.0, Install and Core OS, Release 10.20,
+April 1999 (B3920-13941)" or the Freely available PTH package, available
+on H.Merijn's site (L<http://mirrors.develooper.com/hpux/>). The use of PTH
+will be unsupported in perl-5.12 and up and is rather buggy in 5.11.x.
+
+If you are going to use the HP DCE package, the library used for threading
+is /usr/lib/libcma.sl, but there have been multiple updates of that
+library over time. Perl will build with the first version, but it
+will not pass the test suite. Older Oracle versions might be a compelling
+reason not to update that library, otherwise please find a newer version
+in one of the following patches: PHSS_19739, PHSS_20608, or PHSS_23672
+
+reformatted output:
+
+  d3:/usr/lib 106 > what libcma-*.1
+  libcma-00000.1:
+     HP DCE/9000 1.5               Module: libcma.sl (Export)
+                                   Date: Apr 29 1996 22:11:24
+  libcma-19739.1:
+     HP DCE/9000 1.5 PHSS_19739-40 Module: libcma.sl (Export)
+                                   Date: Sep  4 1999 01:59:07
+  libcma-20608.1:
+     HP DCE/9000 1.5 PHSS_20608    Module: libcma.1 (Export)
+                                   Date: Dec  8 1999 18:41:23
+  libcma-23672.1:
+     HP DCE/9000 1.5 PHSS_23672    Module: libcma.1 (Export)
+                                   Date: Apr  9 2001 10:01:06
+  d3:/usr/lib 107 >
+
+If you choose for the PTH package, use swinstall to install pth in
+the default location (/opt/pth), and then make symbolic links to the
+libraries from /usr/lib
+
+  # cd /usr/lib
+  # ln -s /opt/pth/lib/libpth* .
+
+For building perl to support Oracle, it needs to be linked with libcl
+and libpthread. So even if your perl is an unthreaded build, these
+libraries might be required. See "Oracle on HP-UX" below.
+
+=head2 64-bit Perl on HP-UX
+
+Beginning with HP-UX 11.00, programs compiled under HP-UX can take
+advantage of the LP64 programming environment (LP64 means Longs and
+Pointers are 64 bits wide), in which scalar variables will be able
+to hold numbers larger than 2^32 with complete precision.  Perl has
+proven to be consistent and reliable in 64bit mode since 5.8.1 on
+all HP-UX 11.xx.
+
+As of the date of this document, Perl is fully 64-bit compliant on
+HP-UX 11.00 and up for both cc- and gcc builds. If you are about to
+build a 64-bit perl with GNU gcc, please read the gcc section carefully.
+
+Should a user have the need for compiling Perl in the LP64 environment,
+use the -Duse64bitall flag to Configure.  This will force Perl to be
+compiled in a pure LP64 environment (with the +DD64 flag for HP C-ANSI-C,
+with no additional options for GNU gcc 64-bit on PA-RISC, and with
+-mlp64 for GNU gcc on Itanium).
+If you want to compile Perl using gcc, you will have to get a version of
+the compiler that supports 64-bit operations.)
+
+You can also use the -Duse64bitint flag to Configure.  Although there
+are some minor differences between compiling Perl with this flag versus
+the -Duse64bitall flag, they should not be noticeable from a Perl user's
+perspective. When configuring -Duse64bitint using a 64bit gcc on a
+pa-risc architecture, -Duse64bitint is silently promoted to -Duse64bitall.
+
+In both cases, it is strongly recommended that you use these flags when
+you run Configure.  If you do not use do this, but later answer the
+questions about 64-bit numbers when Configure asks you, you may get a
+configuration that cannot be compiled, or that does not function as
+expected.
+
+=head2 Oracle on HP-UX
+
+Using perl to connect to Oracle databases through DBI and DBD::Oracle
+has caused a lot of people many headaches. Read README.hpux in the
+DBD::Oracle for much more information. The reason to mention it here
+is that Oracle requires a perl built with libcl and libpthread, the
+latter even when perl is build without threads. Building perl using
+all defaults, but still enabling to build DBD::Oracle later on can be
+achieved using
+
+  Configure -A prepend:libswanted='cl pthread ' ...
+
+Do not forget the space before the trailing quote.
+
+Also note that this does not (yet) work with all configurations,
+it is known to fail with 64-bit versions of GCC.
+
+=head2 GDBM and Threads on HP-UX
+
+If you attempt to compile Perl with (POSIX) threads on an 11.X system
+and also link in the GDBM library, then Perl will immediately core dump
+when it starts up.  The only workaround at this point is to relink the
+GDBM library under 11.X, then relink it into Perl.
+
+the error might show something like:
+
+Pthread internal error: message: __libc_reinit() failed, file: ../pthreads/pthread.c, line: 1096
+Return Pointer is 0xc082bf33
+sh: 5345 Quit(coredump)
+
+and Configure will give up.
+
+=head2 NFS filesystems and utime(2) on HP-UX
+
+If you are compiling Perl on a remotely-mounted NFS filesystem, the test
+io/fs.t may fail on test #18.  This appears to be a bug in HP-UX and no
+fix is currently available.
+
+=head2 HP-UX Kernel Parameters (maxdsiz) for Compiling Perl
+
+By default, HP-UX comes configured with a maximum data segment size of
+64MB.  This is too small to correctly compile Perl with the maximum
+optimization levels.  You can increase the size of the maxdsiz kernel
+parameter through the use of SAM.
+
+When using the GUI version of SAM, click on the Kernel Configuration
+icon, then the Configurable Parameters icon.  Scroll down and select
+the maxdsiz line.  From the Actions menu, select the Modify Configurable
+Parameter item.  Insert the new formula into the Formula/Value box.
+Then follow the instructions to rebuild your kernel and reboot your
+system.
+
+In general, a value of 256MB (or "256*1024*1024") is sufficient for
+Perl to compile at maximum optimization.
+
+=head1 nss_delete core dump from op/pwent or op/grent
+
+You may get a bus error core dump from the op/pwent or op/grent
+tests. If compiled with -g you will see a stack trace much like
+the following:
+
+  #0  0xc004216c in  () from /usr/lib/libc.2
+  #1  0xc00d7550 in __nss_src_state_destr () from /usr/lib/libc.2
+  #2  0xc00d7768 in __nss_src_state_destr () from /usr/lib/libc.2
+  #3  0xc00d78a8 in nss_delete () from /usr/lib/libc.2
+  #4  0xc01126d8 in endpwent () from /usr/lib/libc.2
+  #5  0xd1950 in Perl_pp_epwent () from ./perl
+  #6  0x94d3c in Perl_runops_standard () from ./perl
+  #7  0x23728 in S_run_body () from ./perl
+  #8  0x23428 in perl_run () from ./perl
+  #9  0x2005c in main () from ./perl
+
+The key here is the C<nss_delete> call.  One workaround for this
+bug seems to be to create add to the file F</etc/nsswitch.conf>
+(at least) the following lines
+
+  group: files
+  passwd: files
+
+Whether you are using NIS does not matter.  Amazingly enough,
+the same bug also affects Solaris.
+
+=head1 error: pasting ")" and "l" does not give a valid preprocessing token
+
+There seems to be a broken system header file in HP-UX 11.00 that
+breaks perl building in 32bit mode with GNU gcc-4.x causing this
+error. The same file for HP-UX 11.11 (even though the file is older)
+does not show this failure, and has the correct definition, so the
+best fix is to patch the header to match:
+
+ --- /usr/include/inttypes.h  2001-04-20 18:42:14 +0200
+ +++ /usr/include/inttypes.h  2000-11-14 09:00:00 +0200
+ @@ -72,7 +72,7 @@
+  #define UINT32_C(__c)                   __CONCAT_U__(__c)
+  #else /* __LP64 */
+  #define INT32_C(__c)                    __CONCAT__(__c,l)
+ -#define UINT32_C(__c)                   __CONCAT__(__CONCAT_U__(__c),l)
+ +#define UINT32_C(__c)                   __CONCAT__(__c,ul)
+  #endif /* __LP64 */
+
+  #define INT64_C(__c)                    __CONCAT_L__(__c,l)
+
+=head1 Redeclaration of "sendpath" with a different storage class specifier
+
+The following compilation warnings may happen in HP-UX releases
+earlier than 11.31 but are harmless:
+
+ cc: "/usr/include/sys/socket.h", line 535: warning 562:
+    Redeclaration of "sendfile" with a different storage class
+    specifier: "sendfile" will have internal linkage.
+ cc: "/usr/include/sys/socket.h", line 536: warning 562:
+    Redeclaration of "sendpath" with a different storage class
+    specifier: "sendpath" will have internal linkage.
+
+They seem to be caused by broken system header files, and also other
+open source projects are seeing them.  The following HP-UX patches
+should make the warnings go away:
+
+  CR JAGae12001: PHNE_27063
+  Warning 562 on sys/socket.h due to redeclaration of prototypes
+
+  CR JAGae16787:
+  Warning 562 from socket.h sendpath/sendfile -D_FILEFFSET_BITS=64
+
+  CR JAGae73470 (11.23)
+  ER: Compiling socket.h with cc -D_FILEFFSET_BITS=64 warning 267/562
+
+=head1 Miscellaneous
+
+HP-UX 11 Y2K patch "Y2K-1100 B.11.00.B0125 HP-UX Core OS Year 2000
+Patch Bundle" has been reported to break the io/fs test #18 which
+tests whether utime() can change timestamps.  The Y2K patch seems to
+break utime() so that over NFS the timestamps do not get changed
+(on local filesystems utime() still works). This has probably been
+fixed on your system by now.
+
+=head1 AUTHOR
+
+H.Merijn Brand <h.m.brand@xs4all.nl>
+Jeff Okamoto <okamoto@corp.hp.com>
+
+With much assistance regarding shared libraries from Marc Sabatella.
+
+=cut
diff --git a/lib/5.24.1/pod/perlhurd.pod b/lib/5.24.1/pod/perlhurd.pod
new file mode 100644
index 00000000..26fd0ee5
--- /dev/null
+++ b/lib/5.24.1/pod/perlhurd.pod
@@ -0,0 +1,55 @@
+If you read this file _as_is_, just ignore the funny characters you see.
+It is written in the POD format (see pod/perlpod.pod) which is specially
+designed to be readable as is.
+
+=head1 NAME
+
+perlhurd - Perl version 5 on Hurd
+
+=head1 DESCRIPTION
+
+If you want to use Perl on the Hurd, I recommend using the Debian
+GNU/Hurd distribution ( see http://www.debian.org/ ), even if an
+official, stable release has not yet been made.  The old "gnu-0.2"
+binary distribution will most certainly have additional problems.
+
+=head2 Known Problems with Perl on Hurd 
+
+The Perl test suite may still report some errors on the Hurd.  The
+"lib/anydbm" and "pragma/warnings" tests will almost certainly fail.
+Both failures are not really specific to the Hurd, as indicated by the
+test suite output.
+
+The socket tests may fail if the network is not configured.  You have
+to make "/hurd/pfinet" the translator for "/servers/socket/2", giving
+it the right arguments.  Try "/hurd/pfinet --help" for more
+information.
+
+Here are the statistics for Perl 5.005_62 on my system:
+
+ Failed Test  Status Wstat Total Fail  Failed  List of failed
+ -----------------------------------------------------------------------
+ lib/anydbm.t                 12    1   8.33%  12
+ pragma/warnings             333    1   0.30%  215
+
+ 8 tests and 24 subtests skipped.
+ Failed 2/229 test scripts, 99.13% okay. 2/10850 subtests failed,
+     99.98% okay.
+
+There are quite a few systems out there that do worse!
+
+However, since I am running a very recent Hurd snapshot, in which a lot of
+bugs that were exposed by the Perl test suite have been fixed, you may
+encounter more failures.  Likely candidates are: "op/stat", "lib/io_pipe",
+"lib/io_sock", "lib/io_udp" and "lib/time".
+
+In any way, if you're seeing failures beyond those mentioned in this
+document, please consider upgrading to the latest Hurd before reporting
+the failure as a bug. 
+
+=head1 AUTHOR
+
+Mark Kettenis <kettenis@gnu.org>
+
+Last Updated: Fri, 29 Oct 1999 22:50:30 +0200
+
diff --git a/lib/5.24.1/pod/perlintern.pod b/lib/5.24.1/pod/perlintern.pod
new file mode 100644
index 00000000..7ea37960
--- /dev/null
+++ b/lib/5.24.1/pod/perlintern.pod
@@ -0,0 +1,2757 @@
+-*- buffer-read-only: t -*-
+!!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+This file is built by autodoc.pl extracting documentation from the C source
+files.
+Any changes made here will be lost!
+
+=head1 NAME
+
+perlintern - autogenerated documentation of purely B<internal>
+		 Perl functions
+
+=head1 DESCRIPTION
+X<internal Perl functions> X<interpreter functions>
+
+This file is the autogenerated documentation of functions in the
+Perl interpreter that are documented using Perl's internal documentation
+format but are not marked as part of the Perl API.  In other words,
+B<they are not for use in extensions>!
+
+
+=head1 Compile-time scope hooks
+
+=over 8
+
+=item BhkENTRY
+X<BhkENTRY>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Return an entry from the BHK structure.  C<which> is a preprocessor token
+indicating which entry to return.  If the appropriate flag is not set
+this will return C<NULL>.  The type of the return value depends on which
+entry you ask for.
+
+	void *	BhkENTRY(BHK *hk, which)
+
+=for hackers
+Found in file op.h
+
+=item BhkFLAGS
+X<BhkFLAGS>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Return the BHK's flags.
+
+	U32	BhkFLAGS(BHK *hk)
+
+=for hackers
+Found in file op.h
+
+=item CALL_BLOCK_HOOKS
+X<CALL_BLOCK_HOOKS>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Call all the registered block hooks for type C<which>.  C<which> is a
+preprocessing token; the type of C<arg> depends on C<which>.
+
+	void	CALL_BLOCK_HOOKS(which, arg)
+
+=for hackers
+Found in file op.h
+
+
+=back
+
+=head1 Custom Operators
+
+=over 8
+
+=item core_prototype
+X<core_prototype>
+
+This function assigns the prototype of the named core function to C<sv>, or
+to a new mortal SV if C<sv> is C<NULL>.  It returns the modified C<sv>, or
+C<NULL> if the core function has no prototype.  C<code> is a code as returned
+by C<keyword()>.  It must not be equal to 0.
+
+	SV *	core_prototype(SV *sv, const char *name,
+		               const int code,
+		               int * const opnum)
+
+=for hackers
+Found in file op.c
+
+
+=back
+
+=head1 CV Manipulation Functions
+
+=over 8
+
+=item docatch
+X<docatch>
+
+Check for the cases 0 or 3 of cur_env.je_ret, only used inside an eval context.
+
+0 is used as continue inside eval,
+
+3 is used for a die caught by an inner eval - continue inner loop
+
+See F<cop.h>: je_mustcatch, when set at any runlevel to TRUE, means eval ops must
+establish a local jmpenv to handle exception traps.
+
+	OP*	docatch(OP *o)
+
+=for hackers
+Found in file pp_ctl.c
+
+
+=back
+
+=head1 CV reference counts and CvOUTSIDE
+
+=over 8
+
+=item CvWEAKOUTSIDE
+X<CvWEAKOUTSIDE>
+
+Each CV has a pointer, C<CvOUTSIDE()>, to its lexically enclosing
+CV (if any).  Because pointers to anonymous sub prototypes are
+stored in C<&> pad slots, it is a possible to get a circular reference,
+with the parent pointing to the child and vice-versa.  To avoid the
+ensuing memory leak, we do not increment the reference count of the CV
+pointed to by C<CvOUTSIDE> in the I<one specific instance> that the parent
+has a C<&> pad slot pointing back to us.  In this case, we set the
+C<CvWEAKOUTSIDE> flag in the child.  This allows us to determine under what
+circumstances we should decrement the refcount of the parent when freeing
+the child.
+
+There is a further complication with non-closure anonymous subs (i.e. those
+that do not refer to any lexicals outside that sub).  In this case, the
+anonymous prototype is shared rather than being cloned.  This has the
+consequence that the parent may be freed while there are still active
+children, I<e.g.>,
+
+    BEGIN { $a = sub { eval '$x' } }
+
+In this case, the BEGIN is freed immediately after execution since there
+are no active references to it: the anon sub prototype has
+C<CvWEAKOUTSIDE> set since it's not a closure, and $a points to the same
+CV, so it doesn't contribute to BEGIN's refcount either.  When $a is
+executed, the C<eval '$x'> causes the chain of C<CvOUTSIDE>s to be followed,
+and the freed BEGIN is accessed.
+
+To avoid this, whenever a CV and its associated pad is freed, any
+C<&> entries in the pad are explicitly removed from the pad, and if the
+refcount of the pointed-to anon sub is still positive, then that
+child's C<CvOUTSIDE> is set to point to its grandparent.  This will only
+occur in the single specific case of a non-closure anon prototype
+having one or more active references (such as C<$a> above).
+
+One other thing to consider is that a CV may be merely undefined
+rather than freed, eg C<undef &foo>.  In this case, its refcount may
+not have reached zero, but we still delete its pad and its C<CvROOT> etc.
+Since various children may still have their C<CvOUTSIDE> pointing at this
+undefined CV, we keep its own C<CvOUTSIDE> for the time being, so that
+the chain of lexical scopes is unbroken.  For example, the following
+should print 123:
+
+    my $x = 123;
+    sub tmp { sub { eval '$x' } }
+    my $a = tmp();
+    undef &tmp;
+    print  $a->();
+
+	bool	CvWEAKOUTSIDE(CV *cv)
+
+=for hackers
+Found in file cv.h
+
+
+=back
+
+=head1 Embedding Functions
+
+=over 8
+
+=item cv_dump
+X<cv_dump>
+
+dump the contents of a CV
+
+	void	cv_dump(CV *cv, const char *title)
+
+=for hackers
+Found in file pad.c
+
+=item cv_forget_slab
+X<cv_forget_slab>
+
+When a CV has a reference count on its slab (C<CvSLABBED>), it is responsible
+for making sure it is freed.  (Hence, no two CVs should ever have a
+reference count on the same slab.)  The CV only needs to reference the slab
+during compilation.  Once it is compiled and C<CvROOT> attached, it has
+finished its job, so it can forget the slab.
+
+	void	cv_forget_slab(CV *cv)
+
+=for hackers
+Found in file pad.c
+
+=item do_dump_pad
+X<do_dump_pad>
+
+Dump the contents of a padlist
+
+	void	do_dump_pad(I32 level, PerlIO *file,
+		            PADLIST *padlist, int full)
+
+=for hackers
+Found in file pad.c
+
+=item pad_alloc_name
+X<pad_alloc_name>
+
+Allocates a place in the currently-compiling
+pad (via L<perlapi/pad_alloc>) and
+then stores a name for that entry.  C<name> is adopted and
+becomes the name entry; it must already contain the name
+string.  C<typestash> and C<ourstash> and the C<padadd_STATE>
+flag get added to C<name>.  None of the other
+processing of L<perlapi/pad_add_name_pvn>
+is done.  Returns the offset of the allocated pad slot.
+
+	PADOFFSET pad_alloc_name(PADNAME *name, U32 flags,
+	                         HV *typestash, HV *ourstash)
+
+=for hackers
+Found in file pad.c
+
+=item pad_block_start
+X<pad_block_start>
+
+Update the pad compilation state variables on entry to a new block.
+
+	void	pad_block_start(int full)
+
+=for hackers
+Found in file pad.c
+
+=item pad_check_dup
+X<pad_check_dup>
+
+Check for duplicate declarations: report any of:
+
+     * a 'my' in the current scope with the same name;
+     * an 'our' (anywhere in the pad) with the same name and the
+       same stash as 'ourstash'
+
+C<is_our> indicates that the name to check is an C<"our"> declaration.
+
+	void	pad_check_dup(PADNAME *name, U32 flags,
+		              const HV *ourstash)
+
+=for hackers
+Found in file pad.c
+
+=item pad_findlex
+X<pad_findlex>
+
+Find a named lexical anywhere in a chain of nested pads.  Add fake entries
+in the inner pads if it's found in an outer one.
+
+Returns the offset in the bottom pad of the lex or the fake lex.
+C<cv> is the CV in which to start the search, and seq is the current C<cop_seq>
+to match against.  If C<warn> is true, print appropriate warnings.  The C<out_>*
+vars return values, and so are pointers to where the returned values
+should be stored.  C<out_capture>, if non-null, requests that the innermost
+instance of the lexical is captured; C<out_name> is set to the innermost
+matched pad name or fake pad name; C<out_flags> returns the flags normally
+associated with the C<PARENT_FAKELEX_FLAGS> field of a fake pad name.
+
+Note that C<pad_findlex()> is recursive; it recurses up the chain of CVs,
+then comes back down, adding fake entries
+as it goes.  It has to be this way
+because fake names in anon protoypes have to store in C<xlow> the index into
+the parent pad.
+
+	PADOFFSET pad_findlex(const char *namepv,
+	                      STRLEN namelen, U32 flags,
+	                      const CV* cv, U32 seq, int warn,
+	                      SV** out_capture,
+	                      PADNAME** out_name,
+	                      int *out_flags)
+
+=for hackers
+Found in file pad.c
+
+=item pad_fixup_inner_anons
+X<pad_fixup_inner_anons>
+
+For any anon CVs in the pad, change C<CvOUTSIDE> of that CV from
+C<old_cv> to C<new_cv> if necessary.  Needed when a newly-compiled CV has to be
+moved to a pre-existing CV struct.
+
+	void	pad_fixup_inner_anons(PADLIST *padlist,
+		                      CV *old_cv, CV *new_cv)
+
+=for hackers
+Found in file pad.c
+
+=item pad_free
+X<pad_free>
+
+Free the SV at offset po in the current pad.
+
+	void	pad_free(PADOFFSET po)
+
+=for hackers
+Found in file pad.c
+
+=item pad_leavemy
+X<pad_leavemy>
+
+Cleanup at end of scope during compilation: set the max seq number for
+lexicals in this scope and warn of any lexicals that never got introduced.
+
+	void	pad_leavemy()
+
+=for hackers
+Found in file pad.c
+
+=item padlist_dup
+X<padlist_dup>
+
+Duplicates a pad.
+
+	PADLIST * padlist_dup(PADLIST *srcpad,
+	                      CLONE_PARAMS *param)
+
+=for hackers
+Found in file pad.c
+
+=item padname_dup
+X<padname_dup>
+
+Duplicates a pad name.
+
+	PADNAME * padname_dup(PADNAME *src, CLONE_PARAMS *param)
+
+=for hackers
+Found in file pad.c
+
+=item padnamelist_dup
+X<padnamelist_dup>
+
+Duplicates a pad name list.
+
+	PADNAMELIST * padnamelist_dup(PADNAMELIST *srcpad,
+	                              CLONE_PARAMS *param)
+
+=for hackers
+Found in file pad.c
+
+=item pad_push
+X<pad_push>
+
+Push a new pad frame onto the padlist, unless there's already a pad at
+this depth, in which case don't bother creating a new one.  Then give
+the new pad an C<@_> in slot zero.
+
+	void	pad_push(PADLIST *padlist, int depth)
+
+=for hackers
+Found in file pad.c
+
+=item pad_reset
+X<pad_reset>
+
+Mark all the current temporaries for reuse
+
+	void	pad_reset()
+
+=for hackers
+Found in file pad.c
+
+=item pad_swipe
+X<pad_swipe>
+
+Abandon the tmp in the current pad at offset C<po> and replace with a
+new one.
+
+	void	pad_swipe(PADOFFSET po, bool refadjust)
+
+=for hackers
+Found in file pad.c
+
+
+=back
+
+=head1 GV Functions
+
+=over 8
+
+=item gv_try_downgrade
+X<gv_try_downgrade>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+If the typeglob C<gv> can be expressed more succinctly, by having
+something other than a real GV in its place in the stash, replace it
+with the optimised form.  Basic requirements for this are that C<gv>
+is a real typeglob, is sufficiently ordinary, and is only referenced
+from its package.  This function is meant to be used when a GV has been
+looked up in part to see what was there, causing upgrading, but based
+on what was found it turns out that the real GV isn't required after all.
+
+If C<gv> is a completely empty typeglob, it is deleted from the stash.
+
+If C<gv> is a typeglob containing only a sufficiently-ordinary constant
+sub, the typeglob is replaced with a scalar-reference placeholder that
+more compactly represents the same thing.
+
+	void	gv_try_downgrade(GV* gv)
+
+=for hackers
+Found in file gv.c
+
+
+=back
+
+=head1 Hash Manipulation Functions
+
+=over 8
+
+=item hv_ename_add
+X<hv_ename_add>
+
+Adds a name to a stash's internal list of effective names.  See
+C<L</hv_ename_delete>>.
+
+This is called when a stash is assigned to a new location in the symbol
+table.
+
+	void	hv_ename_add(HV *hv, const char *name, U32 len,
+		             U32 flags)
+
+=for hackers
+Found in file hv.c
+
+=item hv_ename_delete
+X<hv_ename_delete>
+
+Removes a name from a stash's internal list of effective names.  If this is
+the name returned by C<HvENAME>, then another name in the list will take
+its place (C<HvENAME> will use it).
+
+This is called when a stash is deleted from the symbol table.
+
+	void	hv_ename_delete(HV *hv, const char *name,
+		                U32 len, U32 flags)
+
+=for hackers
+Found in file hv.c
+
+=item refcounted_he_chain_2hv
+X<refcounted_he_chain_2hv>
+
+Generates and returns a C<HV *> representing the content of a
+C<refcounted_he> chain.
+C<flags> is currently unused and must be zero.
+
+	HV *	refcounted_he_chain_2hv(
+		    const struct refcounted_he *c, U32 flags
+		)
+
+=for hackers
+Found in file hv.c
+
+=item refcounted_he_fetch_pv
+X<refcounted_he_fetch_pv>
+
+Like L</refcounted_he_fetch_pvn>, but takes a nul-terminated string
+instead of a string/length pair.
+
+	SV *	refcounted_he_fetch_pv(
+		    const struct refcounted_he *chain,
+		    const char *key, U32 hash, U32 flags
+		)
+
+=for hackers
+Found in file hv.c
+
+=item refcounted_he_fetch_pvn
+X<refcounted_he_fetch_pvn>
+
+Search along a C<refcounted_he> chain for an entry with the key specified
+by C<keypv> and C<keylen>.  If C<flags> has the C<REFCOUNTED_HE_KEY_UTF8>
+bit set, the key octets are interpreted as UTF-8, otherwise they
+are interpreted as Latin-1.  C<hash> is a precomputed hash of the key
+string, or zero if it has not been precomputed.  Returns a mortal scalar
+representing the value associated with the key, or C<&PL_sv_placeholder>
+if there is no value associated with the key.
+
+	SV *	refcounted_he_fetch_pvn(
+		    const struct refcounted_he *chain,
+		    const char *keypv, STRLEN keylen, U32 hash,
+		    U32 flags
+		)
+
+=for hackers
+Found in file hv.c
+
+=item refcounted_he_fetch_pvs
+X<refcounted_he_fetch_pvs>
+
+Like L</refcounted_he_fetch_pvn>, but takes a C<NUL>-terminated literal string
+instead of a string/length pair, and no precomputed hash.
+
+	SV *	refcounted_he_fetch_pvs(
+		    const struct refcounted_he *chain,
+		    const char *key, U32 flags
+		)
+
+=for hackers
+Found in file hv.h
+
+=item refcounted_he_fetch_sv
+X<refcounted_he_fetch_sv>
+
+Like L</refcounted_he_fetch_pvn>, but takes a Perl scalar instead of a
+string/length pair.
+
+	SV *	refcounted_he_fetch_sv(
+		    const struct refcounted_he *chain, SV *key,
+		    U32 hash, U32 flags
+		)
+
+=for hackers
+Found in file hv.c
+
+=item refcounted_he_free
+X<refcounted_he_free>
+
+Decrements the reference count of a C<refcounted_he> by one.  If the
+reference count reaches zero the structure's memory is freed, which
+(recursively) causes a reduction of its parent C<refcounted_he>'s
+reference count.  It is safe to pass a null pointer to this function:
+no action occurs in this case.
+
+	void	refcounted_he_free(struct refcounted_he *he)
+
+=for hackers
+Found in file hv.c
+
+=item refcounted_he_inc
+X<refcounted_he_inc>
+
+Increment the reference count of a C<refcounted_he>.  The pointer to the
+C<refcounted_he> is also returned.  It is safe to pass a null pointer
+to this function: no action occurs and a null pointer is returned.
+
+	struct refcounted_he * refcounted_he_inc(
+	                           struct refcounted_he *he
+	                       )
+
+=for hackers
+Found in file hv.c
+
+=item refcounted_he_new_pv
+X<refcounted_he_new_pv>
+
+Like L</refcounted_he_new_pvn>, but takes a nul-terminated string instead
+of a string/length pair.
+
+	struct refcounted_he * refcounted_he_new_pv(
+	                           struct refcounted_he *parent,
+	                           const char *key, U32 hash,
+	                           SV *value, U32 flags
+	                       )
+
+=for hackers
+Found in file hv.c
+
+=item refcounted_he_new_pvn
+X<refcounted_he_new_pvn>
+
+Creates a new C<refcounted_he>.  This consists of a single key/value
+pair and a reference to an existing C<refcounted_he> chain (which may
+be empty), and thus forms a longer chain.  When using the longer chain,
+the new key/value pair takes precedence over any entry for the same key
+further along the chain.
+
+The new key is specified by C<keypv> and C<keylen>.  If C<flags> has
+the C<REFCOUNTED_HE_KEY_UTF8> bit set, the key octets are interpreted
+as UTF-8, otherwise they are interpreted as Latin-1.  C<hash> is
+a precomputed hash of the key string, or zero if it has not been
+precomputed.
+
+C<value> is the scalar value to store for this key.  C<value> is copied
+by this function, which thus does not take ownership of any reference
+to it, and later changes to the scalar will not be reflected in the
+value visible in the C<refcounted_he>.  Complex types of scalar will not
+be stored with referential integrity, but will be coerced to strings.
+C<value> may be either null or C<&PL_sv_placeholder> to indicate that no
+value is to be associated with the key; this, as with any non-null value,
+takes precedence over the existence of a value for the key further along
+the chain.
+
+C<parent> points to the rest of the C<refcounted_he> chain to be
+attached to the new C<refcounted_he>.  This function takes ownership
+of one reference to C<parent>, and returns one reference to the new
+C<refcounted_he>.
+
+	struct refcounted_he * refcounted_he_new_pvn(
+	                           struct refcounted_he *parent,
+	                           const char *keypv,
+	                           STRLEN keylen, U32 hash,
+	                           SV *value, U32 flags
+	                       )
+
+=for hackers
+Found in file hv.c
+
+=item refcounted_he_new_pvs
+X<refcounted_he_new_pvs>
+
+Like L</refcounted_he_new_pvn>, but takes a C<NUL>-terminated literal string
+instead of a string/length pair, and no precomputed hash.
+
+	struct refcounted_he * refcounted_he_new_pvs(
+	                           struct refcounted_he *parent,
+	                           const char *key, SV *value,
+	                           U32 flags
+	                       )
+
+=for hackers
+Found in file hv.h
+
+=item refcounted_he_new_sv
+X<refcounted_he_new_sv>
+
+Like L</refcounted_he_new_pvn>, but takes a Perl scalar instead of a
+string/length pair.
+
+	struct refcounted_he * refcounted_he_new_sv(
+	                           struct refcounted_he *parent,
+	                           SV *key, U32 hash, SV *value,
+	                           U32 flags
+	                       )
+
+=for hackers
+Found in file hv.c
+
+
+=back
+
+=head1 IO Functions
+
+=over 8
+
+=item start_glob
+X<start_glob>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Function called by C<do_readline> to spawn a glob (or do the glob inside
+perl on VMS).  This code used to be inline, but now perl uses C<File::Glob>
+this glob starter is only used by miniperl during the build process,
+or when PERL_EXTERNAL_GLOB is defined.
+Moving it away shrinks F<pp_hot.c>; shrinking F<pp_hot.c> helps speed perl up.
+
+	PerlIO*	start_glob(SV *tmpglob, IO *io)
+
+=for hackers
+Found in file doio.c
+
+
+=back
+
+=head1 Lexer interface
+
+=over 8
+
+=item validate_proto
+X<validate_proto>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+This function performs syntax checking on a prototype, C<proto>.
+If C<warn> is true, any illegal characters or mismatched brackets
+will trigger illegalproto warnings, declaring that they were
+detected in the prototype for C<name>.
+
+The return value is C<true> if this is a valid prototype, and
+C<false> if it is not, regardless of whether C<warn> was C<true> or
+C<false>.
+
+Note that C<NULL> is a valid C<proto> and will always return C<true>.
+
+NOTE: the perl_ form of this function is deprecated.
+
+	bool	validate_proto(SV *name, SV *proto, bool warn)
+
+=for hackers
+Found in file toke.c
+
+
+=back
+
+=head1 Magical Functions
+
+=over 8
+
+=item magic_clearhint
+X<magic_clearhint>
+
+Triggered by a delete from C<%^H>, records the key to
+C<PL_compiling.cop_hints_hash>.
+
+	int	magic_clearhint(SV* sv, MAGIC* mg)
+
+=for hackers
+Found in file mg.c
+
+=item magic_clearhints
+X<magic_clearhints>
+
+Triggered by clearing C<%^H>, resets C<PL_compiling.cop_hints_hash>.
+
+	int	magic_clearhints(SV* sv, MAGIC* mg)
+
+=for hackers
+Found in file mg.c
+
+=item magic_methcall
+X<magic_methcall>
+
+Invoke a magic method (like FETCH).
+
+C<sv> and C<mg> are the tied thingy and the tie magic.
+
+C<meth> is the name of the method to call.
+
+C<argc> is the number of args (in addition to $self) to pass to the method.
+
+The C<flags> can be:
+
+    G_DISCARD     invoke method with G_DISCARD flag and don't
+                  return a value
+    G_UNDEF_FILL  fill the stack with argc pointers to
+                  PL_sv_undef
+
+The arguments themselves are any values following the C<flags> argument.
+
+Returns the SV (if any) returned by the method, or C<NULL> on failure.
+
+
+	SV*	magic_methcall(SV *sv, const MAGIC *mg,
+		               SV *meth, U32 flags, U32 argc,
+		               ...)
+
+=for hackers
+Found in file mg.c
+
+=item magic_sethint
+X<magic_sethint>
+
+Triggered by a store to C<%^H>, records the key/value pair to
+C<PL_compiling.cop_hints_hash>.  It is assumed that hints aren't storing
+anything that would need a deep copy.  Maybe we should warn if we find a
+reference.
+
+	int	magic_sethint(SV* sv, MAGIC* mg)
+
+=for hackers
+Found in file mg.c
+
+=item mg_localize
+X<mg_localize>
+
+Copy some of the magic from an existing SV to new localized version of that
+SV.  Container magic (I<e.g.>, C<%ENV>, C<$1>, C<tie>)
+gets copied, value magic doesn't (I<e.g.>,
+C<taint>, C<pos>).
+
+If C<setmagic> is false then no set magic will be called on the new (empty) SV.
+This typically means that assignment will soon follow (e.g. S<C<'local $x = $y'>>),
+and that will handle the magic.
+
+	void	mg_localize(SV* sv, SV* nsv, bool setmagic)
+
+=for hackers
+Found in file mg.c
+
+
+=back
+
+=head1 Miscellaneous Functions
+
+=over 8
+
+=item free_c_backtrace
+X<free_c_backtrace>
+
+Deallocates a backtrace received from get_c_bracktrace.
+
+	void	free_c_backtrace(Perl_c_backtrace* bt)
+
+=for hackers
+Found in file util.c
+
+=item get_c_backtrace
+X<get_c_backtrace>
+
+Collects the backtrace (aka "stacktrace") into a single linear
+malloced buffer, which the caller B<must> C<Perl_free_c_backtrace()>.
+
+Scans the frames back by S<C<depth + skip>>, then drops the C<skip> innermost,
+returning at most C<depth> frames.
+
+	Perl_c_backtrace* get_c_backtrace(int max_depth,
+	                                  int skip)
+
+=for hackers
+Found in file util.c
+
+
+=back
+
+=head1 MRO Functions
+
+=over 8
+
+=item mro_get_linear_isa_dfs
+X<mro_get_linear_isa_dfs>
+
+Returns the Depth-First Search linearization of C<@ISA>
+the given stash.  The return value is a read-only AV*.
+C<level> should be 0 (it is used internally in this
+function's recursion).
+
+You are responsible for C<SvREFCNT_inc()> on the
+return value if you plan to store it anywhere
+semi-permanently (otherwise it might be deleted
+out from under you the next time the cache is
+invalidated).
+
+	AV*	mro_get_linear_isa_dfs(HV* stash, U32 level)
+
+=for hackers
+Found in file mro_core.c
+
+=item mro_isa_changed_in
+X<mro_isa_changed_in>
+
+Takes the necessary steps (cache invalidations, mostly)
+when the C<@ISA> of the given package has changed.  Invoked
+by the C<setisa> magic, should not need to invoke directly.
+
+	void	mro_isa_changed_in(HV* stash)
+
+=for hackers
+Found in file mro_core.c
+
+=item mro_package_moved
+X<mro_package_moved>
+
+Call this function to signal to a stash that it has been assigned to
+another spot in the stash hierarchy.  C<stash> is the stash that has been
+assigned.  C<oldstash> is the stash it replaces, if any.  C<gv> is the glob
+that is actually being assigned to.
+
+This can also be called with a null first argument to
+indicate that C<oldstash> has been deleted.
+
+This function invalidates isa caches on the old stash, on all subpackages
+nested inside it, and on the subclasses of all those, including
+non-existent packages that have corresponding entries in C<stash>.
+
+It also sets the effective names (C<HvENAME>) on all the stashes as
+appropriate.
+
+If the C<gv> is present and is not in the symbol table, then this function
+simply returns.  This checked will be skipped if C<flags & 1>.
+
+	void	mro_package_moved(HV * const stash,
+		                  HV * const oldstash,
+		                  const GV * const gv,
+		                  U32 flags)
+
+=for hackers
+Found in file mro_core.c
+
+
+=back
+
+=head1 Optree Manipulation Functions
+
+=over 8
+
+=item finalize_optree
+X<finalize_optree>
+
+This function finalizes the optree.  Should be called directly after
+the complete optree is built.  It does some additional
+checking which can't be done in the normal C<ck_>xxx functions and makes
+the tree thread-safe.
+
+	void	finalize_optree(OP* o)
+
+=for hackers
+Found in file op.c
+
+
+=back
+
+=head1 Pad Data Structures
+
+=over 8
+
+=item CX_CURPAD_SAVE
+X<CX_CURPAD_SAVE>
+
+Save the current pad in the given context block structure.
+
+	void	CX_CURPAD_SAVE(struct context)
+
+=for hackers
+Found in file pad.h
+
+=item CX_CURPAD_SV
+X<CX_CURPAD_SV>
+
+Access the SV at offset C<po> in the saved current pad in the given
+context block structure (can be used as an lvalue).
+
+	SV *	CX_CURPAD_SV(struct context, PADOFFSET po)
+
+=for hackers
+Found in file pad.h
+
+=item PAD_BASE_SV
+X<PAD_BASE_SV>
+
+Get the value from slot C<po> in the base (DEPTH=1) pad of a padlist
+
+	SV *	PAD_BASE_SV(PADLIST padlist, PADOFFSET po)
+
+=for hackers
+Found in file pad.h
+
+=item PAD_CLONE_VARS
+X<PAD_CLONE_VARS>
+
+Clone the state variables associated with running and compiling pads.
+
+	void	PAD_CLONE_VARS(PerlInterpreter *proto_perl,
+		               CLONE_PARAMS* param)
+
+=for hackers
+Found in file pad.h
+
+=item PAD_COMPNAME_FLAGS
+X<PAD_COMPNAME_FLAGS>
+
+Return the flags for the current compiling pad name
+at offset C<po>.  Assumes a valid slot entry.
+
+	U32	PAD_COMPNAME_FLAGS(PADOFFSET po)
+
+=for hackers
+Found in file pad.h
+
+=item PAD_COMPNAME_GEN
+X<PAD_COMPNAME_GEN>
+
+The generation number of the name at offset C<po> in the current
+compiling pad (lvalue).
+
+	STRLEN	PAD_COMPNAME_GEN(PADOFFSET po)
+
+=for hackers
+Found in file pad.h
+
+=item PAD_COMPNAME_GEN_set
+X<PAD_COMPNAME_GEN_set>
+
+Sets the generation number of the name at offset C<po> in the current
+ling pad (lvalue) to C<gen>.
+	STRLEN	PAD_COMPNAME_GEN_set(PADOFFSET po, int gen)
+
+=for hackers
+Found in file pad.h
+
+=item PAD_COMPNAME_OURSTASH
+X<PAD_COMPNAME_OURSTASH>
+
+Return the stash associated with an C<our> variable.
+Assumes the slot entry is a valid C<our> lexical.
+
+	HV *	PAD_COMPNAME_OURSTASH(PADOFFSET po)
+
+=for hackers
+Found in file pad.h
+
+=item PAD_COMPNAME_PV
+X<PAD_COMPNAME_PV>
+
+Return the name of the current compiling pad name
+at offset C<po>.  Assumes a valid slot entry.
+
+	char *	PAD_COMPNAME_PV(PADOFFSET po)
+
+=for hackers
+Found in file pad.h
+
+=item PAD_COMPNAME_TYPE
+X<PAD_COMPNAME_TYPE>
+
+Return the type (stash) of the current compiling pad name at offset
+C<po>.  Must be a valid name.  Returns null if not typed.
+
+	HV *	PAD_COMPNAME_TYPE(PADOFFSET po)
+
+=for hackers
+Found in file pad.h
+
+=item PadnameIsOUR
+X<PadnameIsOUR>
+
+Whether this is an "our" variable.
+
+	bool	PadnameIsOUR(PADNAME pn)
+
+=for hackers
+Found in file pad.h
+
+=item PadnameIsSTATE
+X<PadnameIsSTATE>
+
+Whether this is a "state" variable.
+
+	bool	PadnameIsSTATE(PADNAME pn)
+
+=for hackers
+Found in file pad.h
+
+=item PadnameOURSTASH
+X<PadnameOURSTASH>
+
+The stash in which this "our" variable was declared.
+
+	HV *	PadnameOURSTASH()
+
+=for hackers
+Found in file pad.h
+
+=item PadnameOUTER
+X<PadnameOUTER>
+
+Whether this entry belongs to an outer pad.  Entries for which this is true
+are often referred to as 'fake'.
+
+	bool	PadnameOUTER(PADNAME pn)
+
+=for hackers
+Found in file pad.h
+
+=item PadnameTYPE
+X<PadnameTYPE>
+
+The stash associated with a typed lexical.  This returns the C<%Foo::> hash
+for C<my Foo $bar>.
+
+	HV *	PadnameTYPE(PADNAME pn)
+
+=for hackers
+Found in file pad.h
+
+=item PAD_RESTORE_LOCAL
+X<PAD_RESTORE_LOCAL>
+
+Restore the old pad saved into the local variable C<opad> by C<PAD_SAVE_LOCAL()>
+
+	void	PAD_RESTORE_LOCAL(PAD *opad)
+
+=for hackers
+Found in file pad.h
+
+=item PAD_SAVE_LOCAL
+X<PAD_SAVE_LOCAL>
+
+Save the current pad to the local variable C<opad>, then make the
+current pad equal to C<npad>
+
+	void	PAD_SAVE_LOCAL(PAD *opad, PAD *npad)
+
+=for hackers
+Found in file pad.h
+
+=item PAD_SAVE_SETNULLPAD
+X<PAD_SAVE_SETNULLPAD>
+
+Save the current pad then set it to null.
+
+	void	PAD_SAVE_SETNULLPAD()
+
+=for hackers
+Found in file pad.h
+
+=item PAD_SETSV
+X<PAD_SETSV>
+
+Set the slot at offset C<po> in the current pad to C<sv>
+
+	SV *	PAD_SETSV(PADOFFSET po, SV* sv)
+
+=for hackers
+Found in file pad.h
+
+=item PAD_SET_CUR
+X<PAD_SET_CUR>
+
+Set the current pad to be pad C<n> in the padlist, saving
+the previous current pad.  NB currently this macro expands to a string too
+long for some compilers, so it's best to replace it with
+
+    SAVECOMPPAD();
+    PAD_SET_CUR_NOSAVE(padlist,n);
+
+
+	void	PAD_SET_CUR(PADLIST padlist, I32 n)
+
+=for hackers
+Found in file pad.h
+
+=item PAD_SET_CUR_NOSAVE
+X<PAD_SET_CUR_NOSAVE>
+
+like PAD_SET_CUR, but without the save
+
+	void	PAD_SET_CUR_NOSAVE(PADLIST padlist, I32 n)
+
+=for hackers
+Found in file pad.h
+
+=item PAD_SV
+X<PAD_SV>
+
+Get the value at offset C<po> in the current pad
+
+	SV *	PAD_SV(PADOFFSET po)
+
+=for hackers
+Found in file pad.h
+
+=item PAD_SVl
+X<PAD_SVl>
+
+Lightweight and lvalue version of C<PAD_SV>.
+Get or set the value at offset C<po> in the current pad.
+Unlike C<PAD_SV>, does not print diagnostics with -DX.
+For internal use only.
+
+	SV *	PAD_SVl(PADOFFSET po)
+
+=for hackers
+Found in file pad.h
+
+=item SAVECLEARSV
+X<SAVECLEARSV>
+
+Clear the pointed to pad value on scope exit.  (i.e. the runtime action of
+C<my>)
+
+	void	SAVECLEARSV(SV **svp)
+
+=for hackers
+Found in file pad.h
+
+=item SAVECOMPPAD
+X<SAVECOMPPAD>
+
+save C<PL_comppad> and C<PL_curpad>
+
+
+	void	SAVECOMPPAD()
+
+=for hackers
+Found in file pad.h
+
+=item SAVEPADSV
+X<SAVEPADSV>
+
+Save a pad slot (used to restore after an iteration)
+
+XXX DAPM it would make more sense to make the arg a PADOFFSET
+	void	SAVEPADSV(PADOFFSET po)
+
+=for hackers
+Found in file pad.h
+
+
+=back
+
+=head1 Per-Interpreter Variables
+
+=over 8
+
+=item PL_DBsingle
+X<PL_DBsingle>
+
+When Perl is run in debugging mode, with the B<-d> switch, this SV is a
+boolean which indicates whether subs are being single-stepped.
+Single-stepping is automatically turned on after every step.  This is the C
+variable which corresponds to Perl's $DB::single variable.  See
+C<L</PL_DBsub>>.
+
+	SV *	PL_DBsingle
+
+=for hackers
+Found in file intrpvar.h
+
+=item PL_DBsub
+X<PL_DBsub>
+
+When Perl is run in debugging mode, with the B<-d> switch, this GV contains
+the SV which holds the name of the sub being debugged.  This is the C
+variable which corresponds to Perl's $DB::sub variable.  See
+C<L</PL_DBsingle>>.
+
+	GV *	PL_DBsub
+
+=for hackers
+Found in file intrpvar.h
+
+=item PL_DBtrace
+X<PL_DBtrace>
+
+Trace variable used when Perl is run in debugging mode, with the B<-d>
+switch.  This is the C variable which corresponds to Perl's $DB::trace
+variable.  See C<L</PL_DBsingle>>.
+
+	SV *	PL_DBtrace
+
+=for hackers
+Found in file intrpvar.h
+
+=item PL_dowarn
+X<PL_dowarn>
+
+The C variable which corresponds to Perl's C<$^W> warning variable.
+
+	bool	PL_dowarn
+
+=for hackers
+Found in file intrpvar.h
+
+=item PL_last_in_gv
+X<PL_last_in_gv>
+
+The GV which was last used for a filehandle input operation.  (C<< <FH> >>)
+
+	GV*	PL_last_in_gv
+
+=for hackers
+Found in file intrpvar.h
+
+=item PL_ofsgv
+X<PL_ofsgv>
+
+The glob containing the output field separator - C<*,> in Perl space.
+
+	GV*	PL_ofsgv
+
+=for hackers
+Found in file intrpvar.h
+
+=item PL_rs
+X<PL_rs>
+
+The input record separator - C<$/> in Perl space.
+
+	SV*	PL_rs
+
+=for hackers
+Found in file intrpvar.h
+
+
+=back
+
+=head1 Stack Manipulation Macros
+
+=over 8
+
+=item djSP
+X<djSP>
+
+Declare Just C<SP>.  This is actually identical to C<dSP>, and declares
+a local copy of perl's stack pointer, available via the C<SP> macro.
+See C<L<perlapi/SP>>.  (Available for backward source code compatibility with
+the old (Perl 5.005) thread model.)
+
+		djSP;
+
+=for hackers
+Found in file pp.h
+
+=item LVRET
+X<LVRET>
+
+True if this op will be the return value of an lvalue subroutine
+
+=for hackers
+Found in file pp.h
+
+
+=back
+
+=head1 SV-Body Allocation
+
+=over 8
+
+=item sv_2num
+X<sv_2num>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Return an SV with the numeric value of the source SV, doing any necessary
+reference or overload conversion.  The caller is expected to have handled
+get-magic already.
+
+	SV*	sv_2num(SV *const sv)
+
+=for hackers
+Found in file sv.c
+
+=item sv_copypv
+X<sv_copypv>
+
+Copies a stringified representation of the source SV into the
+destination SV.  Automatically performs any necessary C<mg_get> and
+coercion of numeric values into strings.  Guaranteed to preserve
+C<UTF8> flag even from overloaded objects.  Similar in nature to
+C<sv_2pv[_flags]> but operates directly on an SV instead of just the
+string.  Mostly uses C<sv_2pv_flags> to do its work, except when that
+would lose the UTF-8'ness of the PV.
+
+	void	sv_copypv(SV *const dsv, SV *const ssv)
+
+=for hackers
+Found in file sv.c
+
+
+=back
+
+=head1 SV Manipulation Functions
+
+An SV (or AV, HV, etc.) is allocated in two parts: the head (struct
+sv, av, hv...) contains type and reference count information, and for
+many types, a pointer to the body (struct xrv, xpv, xpviv...), which
+contains fields specific to each type.  Some types store all they need
+in the head, so don't have a body.
+
+In all but the most memory-paranoid configurations (ex: PURIFY), heads
+and bodies are allocated out of arenas, which by default are
+approximately 4K chunks of memory parcelled up into N heads or bodies.
+Sv-bodies are allocated by their sv-type, guaranteeing size
+consistency needed to allocate safely from arrays.
+
+For SV-heads, the first slot in each arena is reserved, and holds a
+link to the next arena, some flags, and a note of the number of slots.
+Snaked through each arena chain is a linked list of free items; when
+this becomes empty, an extra arena is allocated and divided up into N
+items which are threaded into the free list.
+
+SV-bodies are similar, but they use arena-sets by default, which
+separate the link and info from the arena itself, and reclaim the 1st
+slot in the arena.  SV-bodies are further described later.
+
+The following global variables are associated with arenas:
+
+ PL_sv_arenaroot     pointer to list of SV arenas
+ PL_sv_root          pointer to list of free SV structures
+
+ PL_body_arenas      head of linked-list of body arenas
+ PL_body_roots[]     array of pointers to list of free bodies of svtype
+                     arrays are indexed by the svtype needed
+
+A few special SV heads are not allocated from an arena, but are
+instead directly created in the interpreter structure, eg PL_sv_undef.
+The size of arenas can be changed from the default by setting
+PERL_ARENA_SIZE appropriately at compile time.
+
+The SV arena serves the secondary purpose of allowing still-live SVs
+to be located and destroyed during final cleanup.
+
+At the lowest level, the macros new_SV() and del_SV() grab and free
+an SV head.  (If debugging with -DD, del_SV() calls the function S_del_sv()
+to return the SV to the free list with error checking.) new_SV() calls
+more_sv() / sv_add_arena() to add an extra arena if the free list is empty.
+SVs in the free list have their SvTYPE field set to all ones.
+
+At the time of very final cleanup, sv_free_arenas() is called from
+perl_destruct() to physically free all the arenas allocated since the
+start of the interpreter.
+
+The function visit() scans the SV arenas list, and calls a specified
+function for each SV it finds which is still live - ie which has an SvTYPE
+other than all 1's, and a non-zero SvREFCNT. visit() is used by the
+following functions (specified as [function that calls visit()] / [function
+called by visit() for each SV]):
+
+    sv_report_used() / do_report_used()
+			dump all remaining SVs (debugging aid)
+
+    sv_clean_objs() / do_clean_objs(),do_clean_named_objs(),
+		      do_clean_named_io_objs(),do_curse()
+			Attempt to free all objects pointed to by RVs,
+			try to do the same for all objects indir-
+			ectly referenced by typeglobs too, and
+			then do a final sweep, cursing any
+			objects that remain.  Called once from
+			perl_destruct(), prior to calling sv_clean_all()
+			below.
+
+    sv_clean_all() / do_clean_all()
+			SvREFCNT_dec(sv) each remaining SV, possibly
+			triggering an sv_free(). It also sets the
+			SVf_BREAK flag on the SV to indicate that the
+			refcnt has been artificially lowered, and thus
+			stopping sv_free() from giving spurious warnings
+			about SVs which unexpectedly have a refcnt
+			of zero.  called repeatedly from perl_destruct()
+			until there are no SVs left.
+
+
+=over 8
+
+=item sv_add_arena
+X<sv_add_arena>
+
+Given a chunk of memory, link it to the head of the list of arenas,
+and split it into a list of free SVs.
+
+	void	sv_add_arena(char *const ptr, const U32 size,
+		             const U32 flags)
+
+=for hackers
+Found in file sv.c
+
+=item sv_clean_all
+X<sv_clean_all>
+
+Decrement the refcnt of each remaining SV, possibly triggering a
+cleanup.  This function may have to be called multiple times to free
+SVs which are in complex self-referential hierarchies.
+
+	I32	sv_clean_all()
+
+=for hackers
+Found in file sv.c
+
+=item sv_clean_objs
+X<sv_clean_objs>
+
+Attempt to destroy all objects not yet freed.
+
+	void	sv_clean_objs()
+
+=for hackers
+Found in file sv.c
+
+=item sv_free_arenas
+X<sv_free_arenas>
+
+Deallocate the memory used by all arenas.  Note that all the individual SV
+heads and bodies within the arenas must already have been freed.
+
+	void	sv_free_arenas()
+
+=for hackers
+Found in file sv.c
+
+=item SvTHINKFIRST
+X<SvTHINKFIRST>
+
+A quick flag check to see whether an C<sv> should be passed to C<sv_force_normal>
+to be "downgraded" before C<SvIVX> or C<SvPVX> can be modified directly.
+
+For example, if your scalar is a reference and you want to modify the C<SvIVX>
+slot, you can't just do C<SvROK_off>, as that will leak the referent.
+
+This is used internally by various sv-modifying functions, such as
+C<sv_setsv>, C<sv_setiv> and C<sv_pvn_force>.
+
+One case that this does not handle is a gv without SvFAKE set.  After
+
+    if (SvTHINKFIRST(gv)) sv_force_normal(gv);
+
+it will still be a gv.
+
+C<SvTHINKFIRST> sometimes produces false positives.  In those cases
+C<sv_force_normal> does nothing.
+
+	U32	SvTHINKFIRST(SV *sv)
+
+=for hackers
+Found in file sv.h
+
+
+=back
+
+=head1 Unicode Support
+
+=over 8
+
+=item find_uninit_var
+X<find_uninit_var>
+
+
+NOTE: this function is experimental and may change or be
+removed without notice.
+
+
+Find the name of the undefined variable (if any) that caused the operator
+to issue a "Use of uninitialized value" warning.
+If match is true, only return a name if its value matches C<uninit_sv>.
+So roughly speaking, if a unary operator (such as C<OP_COS>) generates a
+warning, then following the direct child of the op may yield an
+C<OP_PADSV> or C<OP_GV> that gives the name of the undefined variable.  On the
+other hand, with C<OP_ADD> there are two branches to follow, so we only print
+the variable name if we get an exact match.
+C<desc_p> points to a string pointer holding the description of the op.
+This may be updated if needed.
+
+The name is returned as a mortal SV.
+
+Assumes that C<PL_op> is the OP that originally triggered the error, and that
+C<PL_comppad>/C<PL_curpad> points to the currently executing pad.
+
+	SV*	find_uninit_var(const OP *const obase,
+		                const SV *const uninit_sv,
+		                bool match, const char **desc_p)
+
+=for hackers
+Found in file sv.c
+
+=item report_uninit
+X<report_uninit>
+
+Print appropriate "Use of uninitialized variable" warning.
+
+	void	report_uninit(const SV *uninit_sv)
+
+=for hackers
+Found in file sv.c
+
+
+=back
+
+=head1 Undocumented functions
+
+The following functions are currently undocumented.  If you use one of
+them, you may wish to consider creating and submitting documentation for
+it.
+
+=over
+
+=item PerlIO_restore_errno
+X<PerlIO_restore_errno>
+
+=item PerlIO_save_errno
+X<PerlIO_save_errno>
+
+=item Slab_Alloc
+X<Slab_Alloc>
+
+=item Slab_Free
+X<Slab_Free>
+
+=item Slab_to_ro
+X<Slab_to_ro>
+
+=item Slab_to_rw
+X<Slab_to_rw>
+
+=item _add_range_to_invlist
+X<_add_range_to_invlist>
+
+=item _core_swash_init
+X<_core_swash_init>
+
+=item _get_encoding
+X<_get_encoding>
+
+=item _get_swash_invlist
+X<_get_swash_invlist>
+
+=item _invlistEQ
+X<_invlistEQ>
+
+=item _invlist_array_init
+X<_invlist_array_init>
+
+=item _invlist_contains_cp
+X<_invlist_contains_cp>
+
+=item _invlist_dump
+X<_invlist_dump>
+
+=item _invlist_intersection
+X<_invlist_intersection>
+
+=item _invlist_intersection_maybe_complement_2nd
+X<_invlist_intersection_maybe_complement_2nd>
+
+=item _invlist_invert
+X<_invlist_invert>
+
+=item _invlist_len
+X<_invlist_len>
+
+=item _invlist_populate_swatch
+X<_invlist_populate_swatch>
+
+=item _invlist_search
+X<_invlist_search>
+
+=item _invlist_subtract
+X<_invlist_subtract>
+
+=item _invlist_union
+X<_invlist_union>
+
+=item _invlist_union_maybe_complement_2nd
+X<_invlist_union_maybe_complement_2nd>
+
+=item _load_PL_utf8_foldclosures
+X<_load_PL_utf8_foldclosures>
+
+=item _new_invlist
+X<_new_invlist>
+
+=item _setup_canned_invlist
+X<_setup_canned_invlist>
+
+=item _swash_inversion_hash
+X<_swash_inversion_hash>
+
+=item _swash_to_invlist
+X<_swash_to_invlist>
+
+=item _to_fold_latin1
+X<_to_fold_latin1>
+
+=item _to_upper_title_latin1
+X<_to_upper_title_latin1>
+
+=item _warn_problematic_locale
+X<_warn_problematic_locale>
+
+=item add_cp_to_invlist
+X<add_cp_to_invlist>
+
+=item alloc_maybe_populate_EXACT
+X<alloc_maybe_populate_EXACT>
+
+=item allocmy
+X<allocmy>
+
+=item amagic_is_enabled
+X<amagic_is_enabled>
+
+=item apply
+X<apply>
+
+=item av_extend_guts
+X<av_extend_guts>
+
+=item av_reify
+X<av_reify>
+
+=item bind_match
+X<bind_match>
+
+=item boot_core_PerlIO
+X<boot_core_PerlIO>
+
+=item boot_core_UNIVERSAL
+X<boot_core_UNIVERSAL>
+
+=item boot_core_mro
+X<boot_core_mro>
+
+=item cando
+X<cando>
+
+=item check_utf8_print
+X<check_utf8_print>
+
+=item ck_anoncode
+X<ck_anoncode>
+
+=item ck_backtick
+X<ck_backtick>
+
+=item ck_bitop
+X<ck_bitop>
+
+=item ck_cmp
+X<ck_cmp>
+
+=item ck_concat
+X<ck_concat>
+
+=item ck_defined
+X<ck_defined>
+
+=item ck_delete
+X<ck_delete>
+
+=item ck_each
+X<ck_each>
+
+=item ck_entersub_args_core
+X<ck_entersub_args_core>
+
+=item ck_eof
+X<ck_eof>
+
+=item ck_eval
+X<ck_eval>
+
+=item ck_exec
+X<ck_exec>
+
+=item ck_exists
+X<ck_exists>
+
+=item ck_ftst
+X<ck_ftst>
+
+=item ck_fun
+X<ck_fun>
+
+=item ck_glob
+X<ck_glob>
+
+=item ck_grep
+X<ck_grep>
+
+=item ck_index
+X<ck_index>
+
+=item ck_join
+X<ck_join>
+
+=item ck_length
+X<ck_length>
+
+=item ck_lfun
+X<ck_lfun>
+
+=item ck_listiob
+X<ck_listiob>
+
+=item ck_match
+X<ck_match>
+
+=item ck_method
+X<ck_method>
+
+=item ck_null
+X<ck_null>
+
+=item ck_open
+X<ck_open>
+
+=item ck_prototype
+X<ck_prototype>
+
+=item ck_readline
+X<ck_readline>
+
+=item ck_refassign
+X<ck_refassign>
+
+=item ck_repeat
+X<ck_repeat>
+
+=item ck_require
+X<ck_require>
+
+=item ck_return
+X<ck_return>
+
+=item ck_rfun
+X<ck_rfun>
+
+=item ck_rvconst
+X<ck_rvconst>
+
+=item ck_sassign
+X<ck_sassign>
+
+=item ck_select
+X<ck_select>
+
+=item ck_shift
+X<ck_shift>
+
+=item ck_smartmatch
+X<ck_smartmatch>
+
+=item ck_sort
+X<ck_sort>
+
+=item ck_spair
+X<ck_spair>
+
+=item ck_split
+X<ck_split>
+
+=item ck_stringify
+X<ck_stringify>
+
+=item ck_subr
+X<ck_subr>
+
+=item ck_substr
+X<ck_substr>
+
+=item ck_svconst
+X<ck_svconst>
+
+=item ck_tell
+X<ck_tell>
+
+=item ck_trunc
+X<ck_trunc>
+
+=item closest_cop
+X<closest_cop>
+
+=item compute_EXACTish
+X<compute_EXACTish>
+
+=item coresub_op
+X<coresub_op>
+
+=item create_eval_scope
+X<create_eval_scope>
+
+=item croak_no_mem
+X<croak_no_mem>
+
+=item croak_popstack
+X<croak_popstack>
+
+=item current_re_engine
+X<current_re_engine>
+
+=item custom_op_get_field
+X<custom_op_get_field>
+
+=item cv_ckproto_len_flags
+X<cv_ckproto_len_flags>
+
+=item cv_clone_into
+X<cv_clone_into>
+
+=item cv_const_sv_or_av
+X<cv_const_sv_or_av>
+
+=item cv_undef_flags
+X<cv_undef_flags>
+
+=item cvgv_from_hek
+X<cvgv_from_hek>
+
+=item cvgv_set
+X<cvgv_set>
+
+=item cvstash_set
+X<cvstash_set>
+
+=item deb_stack_all
+X<deb_stack_all>
+
+=item defelem_target
+X<defelem_target>
+
+=item delete_eval_scope
+X<delete_eval_scope>
+
+=item die_unwind
+X<die_unwind>
+
+=item do_aexec
+X<do_aexec>
+
+=item do_aexec5
+X<do_aexec5>
+
+=item do_eof
+X<do_eof>
+
+=item do_exec
+X<do_exec>
+
+=item do_exec3
+X<do_exec3>
+
+=item do_execfree
+X<do_execfree>
+
+=item do_ipcctl
+X<do_ipcctl>
+
+=item do_ipcget
+X<do_ipcget>
+
+=item do_msgrcv
+X<do_msgrcv>
+
+=item do_msgsnd
+X<do_msgsnd>
+
+=item do_ncmp
+X<do_ncmp>
+
+=item do_open6
+X<do_open6>
+
+=item do_open_raw
+X<do_open_raw>
+
+=item do_print
+X<do_print>
+
+=item do_readline
+X<do_readline>
+
+=item do_seek
+X<do_seek>
+
+=item do_semop
+X<do_semop>
+
+=item do_shmio
+X<do_shmio>
+
+=item do_sysseek
+X<do_sysseek>
+
+=item do_tell
+X<do_tell>
+
+=item do_trans
+X<do_trans>
+
+=item do_vecget
+X<do_vecget>
+
+=item do_vecset
+X<do_vecset>
+
+=item do_vop
+X<do_vop>
+
+=item dofile
+X<dofile>
+
+=item drand48_init_r
+X<drand48_init_r>
+
+=item drand48_r
+X<drand48_r>
+
+=item dtrace_probe_call
+X<dtrace_probe_call>
+
+=item dtrace_probe_load
+X<dtrace_probe_load>
+
+=item dtrace_probe_op
+X<dtrace_probe_op>
+
+=item dtrace_probe_phase
+X<dtrace_probe_phase>
+
+=item dump_all_perl
+X<dump_all_perl>
+
+=item dump_packsubs_perl
+X<dump_packsubs_perl>
+
+=item dump_sub_perl
+X<dump_sub_perl>
+
+=item dump_sv_child
+X<dump_sv_child>
+
+=item emulate_cop_io
+X<emulate_cop_io>
+
+=item feature_is_enabled
+X<feature_is_enabled>
+
+=item find_lexical_cv
+X<find_lexical_cv>
+
+=item find_runcv_where
+X<find_runcv_where>
+
+=item find_script
+X<find_script>
+
+=item form_short_octal_warning
+X<form_short_octal_warning>
+
+=item free_tied_hv_pool
+X<free_tied_hv_pool>
+
+=item get_and_check_backslash_N_name
+X<get_and_check_backslash_N_name>
+
+=item get_db_sub
+X<get_db_sub>
+
+=item get_debug_opts
+X<get_debug_opts>
+
+=item get_hash_seed
+X<get_hash_seed>
+
+=item get_invlist_iter_addr
+X<get_invlist_iter_addr>
+
+=item get_invlist_offset_addr
+X<get_invlist_offset_addr>
+
+=item get_invlist_previous_index_addr
+X<get_invlist_previous_index_addr>
+
+=item get_no_modify
+X<get_no_modify>
+
+=item get_opargs
+X<get_opargs>
+
+=item get_re_arg
+X<get_re_arg>
+
+=item getenv_len
+X<getenv_len>
+
+=item grok_atoUV
+X<grok_atoUV>
+
+=item grok_bslash_c
+X<grok_bslash_c>
+
+=item grok_bslash_o
+X<grok_bslash_o>
+
+=item grok_bslash_x
+X<grok_bslash_x>
+
+=item gv_fetchmeth_internal
+X<gv_fetchmeth_internal>
+
+=item gv_override
+X<gv_override>
+
+=item gv_setref
+X<gv_setref>
+
+=item gv_stashpvn_internal
+X<gv_stashpvn_internal>
+
+=item gv_stashsvpvn_cached
+X<gv_stashsvpvn_cached>
+
+=item handle_named_backref
+X<handle_named_backref>
+
+=item hfree_next_entry
+X<hfree_next_entry>
+
+=item hv_backreferences_p
+X<hv_backreferences_p>
+
+=item hv_kill_backrefs
+X<hv_kill_backrefs>
+
+=item hv_placeholders_p
+X<hv_placeholders_p>
+
+=item hv_undef_flags
+X<hv_undef_flags>
+
+=item init_argv_symbols
+X<init_argv_symbols>
+
+=item init_constants
+X<init_constants>
+
+=item init_dbargs
+X<init_dbargs>
+
+=item init_debugger
+X<init_debugger>
+
+=item invert
+X<invert>
+
+=item invlist_array
+X<invlist_array>
+
+=item invlist_clear
+X<invlist_clear>
+
+=item invlist_clone
+X<invlist_clone>
+
+=item invlist_highest
+X<invlist_highest>
+
+=item invlist_is_iterating
+X<invlist_is_iterating>
+
+=item invlist_iterfinish
+X<invlist_iterfinish>
+
+=item invlist_iterinit
+X<invlist_iterinit>
+
+=item invlist_max
+X<invlist_max>
+
+=item invlist_previous_index
+X<invlist_previous_index>
+
+=item invlist_set_len
+X<invlist_set_len>
+
+=item invlist_set_previous_index
+X<invlist_set_previous_index>
+
+=item invlist_trim
+X<invlist_trim>
+
+=item io_close
+X<io_close>
+
+=item isGCB
+X<isGCB>
+
+=item is_utf8_common
+X<is_utf8_common>
+
+=item isinfnansv
+X<isinfnansv>
+
+=item jmaybe
+X<jmaybe>
+
+=item keyword
+X<keyword>
+
+=item keyword_plugin_standard
+X<keyword_plugin_standard>
+
+=item list
+X<list>
+
+=item localize
+X<localize>
+
+=item magic_clear_all_env
+X<magic_clear_all_env>
+
+=item magic_cleararylen_p
+X<magic_cleararylen_p>
+
+=item magic_clearenv
+X<magic_clearenv>
+
+=item magic_clearisa
+X<magic_clearisa>
+
+=item magic_clearpack
+X<magic_clearpack>
+
+=item magic_clearsig
+X<magic_clearsig>
+
+=item magic_copycallchecker
+X<magic_copycallchecker>
+
+=item magic_existspack
+X<magic_existspack>
+
+=item magic_freearylen_p
+X<magic_freearylen_p>
+
+=item magic_freeovrld
+X<magic_freeovrld>
+
+=item magic_get
+X<magic_get>
+
+=item magic_getarylen
+X<magic_getarylen>
+
+=item magic_getdebugvar
+X<magic_getdebugvar>
+
+=item magic_getdefelem
+X<magic_getdefelem>
+
+=item magic_getnkeys
+X<magic_getnkeys>
+
+=item magic_getpack
+X<magic_getpack>
+
+=item magic_getpos
+X<magic_getpos>
+
+=item magic_getsig
+X<magic_getsig>
+
+=item magic_getsubstr
+X<magic_getsubstr>
+
+=item magic_gettaint
+X<magic_gettaint>
+
+=item magic_getuvar
+X<magic_getuvar>
+
+=item magic_getvec
+X<magic_getvec>
+
+=item magic_killbackrefs
+X<magic_killbackrefs>
+
+=item magic_nextpack
+X<magic_nextpack>
+
+=item magic_regdata_cnt
+X<magic_regdata_cnt>
+
+=item magic_regdatum_get
+X<magic_regdatum_get>
+
+=item magic_regdatum_set
+X<magic_regdatum_set>
+
+=item magic_scalarpack
+X<magic_scalarpack>
+
+=item magic_set
+X<magic_set>
+
+=item magic_set_all_env
+X<magic_set_all_env>
+
+=item magic_setarylen
+X<magic_setarylen>
+
+=item magic_setcollxfrm
+X<magic_setcollxfrm>
+
+=item magic_setdbline
+X<magic_setdbline>
+
+=item magic_setdebugvar
+X<magic_setdebugvar>
+
+=item magic_setdefelem
+X<magic_setdefelem>
+
+=item magic_setenv
+X<magic_setenv>
+
+=item magic_setisa
+X<magic_setisa>
+
+=item magic_setlvref
+X<magic_setlvref>
+
+=item magic_setmglob
+X<magic_setmglob>
+
+=item magic_setnkeys
+X<magic_setnkeys>
+
+=item magic_setpack
+X<magic_setpack>
+
+=item magic_setpos
+X<magic_setpos>
+
+=item magic_setregexp
+X<magic_setregexp>
+
+=item magic_setsig
+X<magic_setsig>
+
+=item magic_setsubstr
+X<magic_setsubstr>
+
+=item magic_settaint
+X<magic_settaint>
+
+=item magic_setutf8
+X<magic_setutf8>
+
+=item magic_setuvar
+X<magic_setuvar>
+
+=item magic_setvec
+X<magic_setvec>
+
+=item magic_sizepack
+X<magic_sizepack>
+
+=item magic_wipepack
+X<magic_wipepack>
+
+=item malloc_good_size
+X<malloc_good_size>
+
+=item malloced_size
+X<malloced_size>
+
+=item mem_collxfrm
+X<mem_collxfrm>
+
+=item mem_log_alloc
+X<mem_log_alloc>
+
+=item mem_log_free
+X<mem_log_free>
+
+=item mem_log_realloc
+X<mem_log_realloc>
+
+=item mg_find_mglob
+X<mg_find_mglob>
+
+=item mode_from_discipline
+X<mode_from_discipline>
+
+=item more_bodies
+X<more_bodies>
+
+=item mro_meta_dup
+X<mro_meta_dup>
+
+=item mro_meta_init
+X<mro_meta_init>
+
+=item multideref_stringify
+X<multideref_stringify>
+
+=item my_attrs
+X<my_attrs>
+
+=item my_clearenv
+X<my_clearenv>
+
+=item my_lstat_flags
+X<my_lstat_flags>
+
+=item my_stat_flags
+X<my_stat_flags>
+
+=item my_unexec
+X<my_unexec>
+
+=item newATTRSUB_x
+X<newATTRSUB_x>
+
+=item newGP
+X<newGP>
+
+=item newMETHOP_internal
+X<newMETHOP_internal>
+
+=item newSTUB
+X<newSTUB>
+
+=item newSVavdefelem
+X<newSVavdefelem>
+
+=item newXS_deffile
+X<newXS_deffile>
+
+=item newXS_len_flags
+X<newXS_len_flags>
+
+=item new_warnings_bitfield
+X<new_warnings_bitfield>
+
+=item nextargv
+X<nextargv>
+
+=item noperl_die
+X<noperl_die>
+
+=item oopsAV
+X<oopsAV>
+
+=item oopsHV
+X<oopsHV>
+
+=item op_clear
+X<op_clear>
+
+=item op_integerize
+X<op_integerize>
+
+=item op_lvalue_flags
+X<op_lvalue_flags>
+
+=item op_refcnt_dec
+X<op_refcnt_dec>
+
+=item op_refcnt_inc
+X<op_refcnt_inc>
+
+=item op_relocate_sv
+X<op_relocate_sv>
+
+=item op_std_init
+X<op_std_init>
+
+=item op_unscope
+X<op_unscope>
+
+=item opmethod_stash
+X<opmethod_stash>
+
+=item opslab_force_free
+X<opslab_force_free>
+
+=item opslab_free
+X<opslab_free>
+
+=item opslab_free_nopad
+X<opslab_free_nopad>
+
+=item package
+X<package>
+
+=item package_version
+X<package_version>
+
+=item pad_add_weakref
+X<pad_add_weakref>
+
+=item padlist_store
+X<padlist_store>
+
+=item padname_free
+X<padname_free>
+
+=item padnamelist_free
+X<padnamelist_free>
+
+=item parse_subsignature
+X<parse_subsignature>
+
+=item parse_unicode_opts
+X<parse_unicode_opts>
+
+=item parser_free
+X<parser_free>
+
+=item parser_free_nexttoke_ops
+X<parser_free_nexttoke_ops>
+
+=item path_is_searchable
+X<path_is_searchable>
+
+=item peep
+X<peep>
+
+=item pmruntime
+X<pmruntime>
+
+=item populate_isa
+X<populate_isa>
+
+=item ptr_hash
+X<ptr_hash>
+
+=item qerror
+X<qerror>
+
+=item re_exec_indentf
+X<re_exec_indentf>
+
+=item re_indentf
+X<re_indentf>
+
+=item re_op_compile
+X<re_op_compile>
+
+=item re_printf
+X<re_printf>
+
+=item reg_named_buff
+X<reg_named_buff>
+
+=item reg_named_buff_iter
+X<reg_named_buff_iter>
+
+=item reg_numbered_buff_fetch
+X<reg_numbered_buff_fetch>
+
+=item reg_numbered_buff_length
+X<reg_numbered_buff_length>
+
+=item reg_numbered_buff_store
+X<reg_numbered_buff_store>
+
+=item reg_qr_package
+X<reg_qr_package>
+
+=item reg_skipcomment
+X<reg_skipcomment>
+
+=item reg_temp_copy
+X<reg_temp_copy>
+
+=item regcurly
+X<regcurly>
+
+=item regprop
+X<regprop>
+
+=item report_evil_fh
+X<report_evil_fh>
+
+=item report_redefined_cv
+X<report_redefined_cv>
+
+=item report_wrongway_fh
+X<report_wrongway_fh>
+
+=item rpeep
+X<rpeep>
+
+=item rsignal_restore
+X<rsignal_restore>
+
+=item rsignal_save
+X<rsignal_save>
+
+=item rxres_save
+X<rxres_save>
+
+=item same_dirent
+X<same_dirent>
+
+=item save_strlen
+X<save_strlen>
+
+=item sawparens
+X<sawparens>
+
+=item scalar
+X<scalar>
+
+=item scalarvoid
+X<scalarvoid>
+
+=item set_caret_X
+X<set_caret_X>
+
+=item set_padlist
+X<set_padlist>
+
+=item should_warn_nl
+X<should_warn_nl>
+
+=item sighandler
+X<sighandler>
+
+=item softref2xv
+X<softref2xv>
+
+=item ssc_add_range
+X<ssc_add_range>
+
+=item ssc_clear_locale
+X<ssc_clear_locale>
+
+=item ssc_cp_and
+X<ssc_cp_and>
+
+=item ssc_intersection
+X<ssc_intersection>
+
+=item ssc_union
+X<ssc_union>
+
+=item sub_crush_depth
+X<sub_crush_depth>
+
+=item sv_add_backref
+X<sv_add_backref>
+
+=item sv_buf_to_ro
+X<sv_buf_to_ro>
+
+=item sv_del_backref
+X<sv_del_backref>
+
+=item sv_free2
+X<sv_free2>
+
+=item sv_kill_backrefs
+X<sv_kill_backrefs>
+
+=item sv_len_utf8_nomg
+X<sv_len_utf8_nomg>
+
+=item sv_magicext_mglob
+X<sv_magicext_mglob>
+
+=item sv_mortalcopy_flags
+X<sv_mortalcopy_flags>
+
+=item sv_only_taint_gmagic
+X<sv_only_taint_gmagic>
+
+=item sv_or_pv_pos_u2b
+X<sv_or_pv_pos_u2b>
+
+=item sv_resetpvn
+X<sv_resetpvn>
+
+=item sv_sethek
+X<sv_sethek>
+
+=item sv_setsv_cow
+X<sv_setsv_cow>
+
+=item sv_unglob
+X<sv_unglob>
+
+=item tied_method
+X<tied_method>
+
+=item tmps_grow_p
+X<tmps_grow_p>
+
+=item translate_substr_offsets
+X<translate_substr_offsets>
+
+=item try_amagic_bin
+X<try_amagic_bin>
+
+=item try_amagic_un
+X<try_amagic_un>
+
+=item unshare_hek
+X<unshare_hek>
+
+=item utilize
+X<utilize>
+
+=item varname
+X<varname>
+
+=item vivify_defelem
+X<vivify_defelem>
+
+=item vivify_ref
+X<vivify_ref>
+
+=item wait4pid
+X<wait4pid>
+
+=item was_lvalue_sub
+X<was_lvalue_sub>
+
+=item watch
+X<watch>
+
+=item win32_croak_not_implemented
+X<win32_croak_not_implemented>
+
+=item write_to_stderr
+X<write_to_stderr>
+
+=item xs_boot_epilog
+X<xs_boot_epilog>
+
+=item xs_handshake
+X<xs_handshake>
+
+=item yyerror
+X<yyerror>
+
+=item yyerror_pv
+X<yyerror_pv>
+
+=item yyerror_pvn
+X<yyerror_pvn>
+
+=item yylex
+X<yylex>
+
+=item yyparse
+X<yyparse>
+
+=item yyunlex
+X<yyunlex>
+
+=back
+
+
+=head1 AUTHORS
+
+The autodocumentation system was originally added to the Perl core by
+Benjamin Stuhl.  Documentation is by whoever was kind enough to
+document their functions.
+
+=head1 SEE ALSO
+
+L<perlguts>, L<perlapi>
+
+=cut
+
+ex: set ro:
diff --git a/lib/5.24.1/pod/perlinterp.pod b/lib/5.24.1/pod/perlinterp.pod
new file mode 100644
index 00000000..bb559ba0
--- /dev/null
+++ b/lib/5.24.1/pod/perlinterp.pod
@@ -0,0 +1,742 @@
+=encoding utf8
+
+=for comment
+Consistent formatting of this file is achieved with:
+  perl ./Porting/podtidy pod/perlinterp.pod
+
+=head1 NAME
+
+perlinterp - An overview of the Perl interpreter
+
+=head1 DESCRIPTION
+
+This document provides an overview of how the Perl interpreter works at
+the level of C code, along with pointers to the relevant C source code
+files.
+
+=head1 ELEMENTS OF THE INTERPRETER
+
+The work of the interpreter has two main stages: compiling the code
+into the internal representation, or bytecode, and then executing it.
+L<perlguts/Compiled code> explains exactly how the compilation stage
+happens.
+
+Here is a short breakdown of perl's operation:
+
+=head2 Startup
+
+The action begins in F<perlmain.c>. (or F<miniperlmain.c> for miniperl)
+This is very high-level code, enough to fit on a single screen, and it
+resembles the code found in L<perlembed>; most of the real action takes
+place in F<perl.c>
+
+F<perlmain.c> is generated by C<ExtUtils::Miniperl> from
+F<miniperlmain.c> at make time, so you should make perl to follow this
+along.
+
+First, F<perlmain.c> allocates some memory and constructs a Perl
+interpreter, along these lines:
+
+    1 PERL_SYS_INIT3(&argc,&argv,&env);
+    2
+    3 if (!PL_do_undump) {
+    4     my_perl = perl_alloc();
+    5     if (!my_perl)
+    6         exit(1);
+    7     perl_construct(my_perl);
+    8     PL_perl_destruct_level = 0;
+    9 }
+
+Line 1 is a macro, and its definition is dependent on your operating
+system. Line 3 references C<PL_do_undump>, a global variable - all
+global variables in Perl start with C<PL_>. This tells you whether the
+current running program was created with the C<-u> flag to perl and
+then F<undump>, which means it's going to be false in any sane context.
+
+Line 4 calls a function in F<perl.c> to allocate memory for a Perl
+interpreter. It's quite a simple function, and the guts of it looks
+like this:
+
+ my_perl = (PerlInterpreter*)PerlMem_malloc(sizeof(PerlInterpreter));
+
+Here you see an example of Perl's system abstraction, which we'll see
+later: C<PerlMem_malloc> is either your system's C<malloc>, or Perl's
+own C<malloc> as defined in F<malloc.c> if you selected that option at
+configure time.
+
+Next, in line 7, we construct the interpreter using perl_construct,
+also in F<perl.c>; this sets up all the special variables that Perl
+needs, the stacks, and so on.
+
+Now we pass Perl the command line options, and tell it to go:
+
+ exitstatus = perl_parse(my_perl, xs_init, argc, argv, (char **)NULL);
+ if (!exitstatus)
+     perl_run(my_perl);
+
+ exitstatus = perl_destruct(my_perl);
+
+ perl_free(my_perl);
+
+C<perl_parse> is actually a wrapper around C<S_parse_body>, as defined
+in F<perl.c>, which processes the command line options, sets up any
+statically linked XS modules, opens the program and calls C<yyparse> to
+parse it.
+
+=head2 Parsing
+
+The aim of this stage is to take the Perl source, and turn it into an
+op tree. We'll see what one of those looks like later. Strictly
+speaking, there's three things going on here.
+
+C<yyparse>, the parser, lives in F<perly.c>, although you're better off
+reading the original YACC input in F<perly.y>. (Yes, Virginia, there
+B<is> a YACC grammar for Perl!) The job of the parser is to take your
+code and "understand" it, splitting it into sentences, deciding which
+operands go with which operators and so on.
+
+The parser is nobly assisted by the lexer, which chunks up your input
+into tokens, and decides what type of thing each token is: a variable
+name, an operator, a bareword, a subroutine, a core function, and so
+on. The main point of entry to the lexer is C<yylex>, and that and its
+associated routines can be found in F<toke.c>. Perl isn't much like
+other computer languages; it's highly context sensitive at times, it
+can be tricky to work out what sort of token something is, or where a
+token ends. As such, there's a lot of interplay between the tokeniser
+and the parser, which can get pretty frightening if you're not used to
+it.
+
+As the parser understands a Perl program, it builds up a tree of
+operations for the interpreter to perform during execution. The
+routines which construct and link together the various operations are
+to be found in F<op.c>, and will be examined later.
+
+=head2 Optimization
+
+Now the parsing stage is complete, and the finished tree represents the
+operations that the Perl interpreter needs to perform to execute our
+program. Next, Perl does a dry run over the tree looking for
+optimisations: constant expressions such as C<3 + 4> will be computed
+now, and the optimizer will also see if any multiple operations can be
+replaced with a single one. For instance, to fetch the variable
+C<$foo>, instead of grabbing the glob C<*foo> and looking at the scalar
+component, the optimizer fiddles the op tree to use a function which
+directly looks up the scalar in question. The main optimizer is C<peep>
+in F<op.c>, and many ops have their own optimizing functions.
+
+=head2 Running
+
+Now we're finally ready to go: we have compiled Perl byte code, and all
+that's left to do is run it. The actual execution is done by the
+C<runops_standard> function in F<run.c>; more specifically, it's done
+by these three innocent looking lines:
+
+    while ((PL_op = PL_op->op_ppaddr(aTHX))) {
+        PERL_ASYNC_CHECK();
+    }
+
+You may be more comfortable with the Perl version of that:
+
+    PERL_ASYNC_CHECK() while $Perl::op = &{$Perl::op->{function}};
+
+Well, maybe not. Anyway, each op contains a function pointer, which
+stipulates the function which will actually carry out the operation.
+This function will return the next op in the sequence - this allows for
+things like C<if> which choose the next op dynamically at run time. The
+C<PERL_ASYNC_CHECK> makes sure that things like signals interrupt
+execution if required.
+
+The actual functions called are known as PP code, and they're spread
+between four files: F<pp_hot.c> contains the "hot" code, which is most
+often used and highly optimized, F<pp_sys.c> contains all the
+system-specific functions, F<pp_ctl.c> contains the functions which
+implement control structures (C<if>, C<while> and the like) and F<pp.c>
+contains everything else. These are, if you like, the C code for Perl's
+built-in functions and operators.
+
+Note that each C<pp_> function is expected to return a pointer to the
+next op. Calls to perl subs (and eval blocks) are handled within the
+same runops loop, and do not consume extra space on the C stack. For
+example, C<pp_entersub> and C<pp_entertry> just push a C<CxSUB> or
+C<CxEVAL> block struct onto the context stack which contain the address
+of the op following the sub call or eval. They then return the first op
+of that sub or eval block, and so execution continues of that sub or
+block. Later, a C<pp_leavesub> or C<pp_leavetry> op pops the C<CxSUB>
+or C<CxEVAL>, retrieves the return op from it, and returns it.
+
+=head2 Exception handing
+
+Perl's exception handing (i.e. C<die> etc.) is built on top of the
+low-level C<setjmp()>/C<longjmp()> C-library functions. These basically
+provide a way to capture the current PC and SP registers and later
+restore them; i.e. a C<longjmp()> continues at the point in code where
+a previous C<setjmp()> was done, with anything further up on the C
+stack being lost. This is why code should always save values using
+C<SAVE_FOO> rather than in auto variables.
+
+The perl core wraps C<setjmp()> etc in the macros C<JMPENV_PUSH> and
+C<JMPENV_JUMP>. The basic rule of perl exceptions is that C<exit>, and
+C<die> (in the absence of C<eval>) perform a C<JMPENV_JUMP(2)>, while
+C<die> within C<eval> does a C<JMPENV_JUMP(3)>.
+
+At entry points to perl, such as C<perl_parse()>, C<perl_run()> and
+C<call_sv(cv, G_EVAL)> each does a C<JMPENV_PUSH>, then enter a runops
+loop or whatever, and handle possible exception returns. For a 2
+return, final cleanup is performed, such as popping stacks and calling
+C<CHECK> or C<END> blocks. Amongst other things, this is how scope
+cleanup still occurs during an C<exit>.
+
+If a C<die> can find a C<CxEVAL> block on the context stack, then the
+stack is popped to that level and the return op in that block is
+assigned to C<PL_restartop>; then a C<JMPENV_JUMP(3)> is performed.
+This normally passes control back to the guard. In the case of
+C<perl_run> and C<call_sv>, a non-null C<PL_restartop> triggers
+re-entry to the runops loop. The is the normal way that C<die> or
+C<croak> is handled within an C<eval>.
+
+Sometimes ops are executed within an inner runops loop, such as tie,
+sort or overload code. In this case, something like
+
+    sub FETCH { eval { die } }
+
+would cause a longjmp right back to the guard in C<perl_run>, popping
+both runops loops, which is clearly incorrect. One way to avoid this is
+for the tie code to do a C<JMPENV_PUSH> before executing C<FETCH> in
+the inner runops loop, but for efficiency reasons, perl in fact just
+sets a flag, using C<CATCH_SET(TRUE)>. The C<pp_require>,
+C<pp_entereval> and C<pp_entertry> ops check this flag, and if true,
+they call C<docatch>, which does a C<JMPENV_PUSH> and starts a new
+runops level to execute the code, rather than doing it on the current
+loop.
+
+As a further optimisation, on exit from the eval block in the C<FETCH>,
+execution of the code following the block is still carried on in the
+inner loop. When an exception is raised, C<docatch> compares the
+C<JMPENV> level of the C<CxEVAL> with C<PL_top_env> and if they differ,
+just re-throws the exception. In this way any inner loops get popped.
+
+Here's an example.
+
+    1: eval { tie @a, 'A' };
+    2: sub A::TIEARRAY {
+    3:     eval { die };
+    4:     die;
+    5: }
+
+To run this code, C<perl_run> is called, which does a C<JMPENV_PUSH>
+then enters a runops loop. This loop executes the eval and tie ops on
+line 1, with the eval pushing a C<CxEVAL> onto the context stack.
+
+The C<pp_tie> does a C<CATCH_SET(TRUE)>, then starts a second runops
+loop to execute the body of C<TIEARRAY>. When it executes the entertry
+op on line 3, C<CATCH_GET> is true, so C<pp_entertry> calls C<docatch>
+which does a C<JMPENV_PUSH> and starts a third runops loop, which then
+executes the die op. At this point the C call stack looks like this:
+
+    Perl_pp_die
+    Perl_runops      # third loop
+    S_docatch_body
+    S_docatch
+    Perl_pp_entertry
+    Perl_runops      # second loop
+    S_call_body
+    Perl_call_sv
+    Perl_pp_tie
+    Perl_runops      # first loop
+    S_run_body
+    perl_run
+    main
+
+and the context and data stacks, as shown by C<-Dstv>, look like:
+
+    STACK 0: MAIN
+      CX 0: BLOCK  =>
+      CX 1: EVAL   => AV()  PV("A"\0)
+      retop=leave
+    STACK 1: MAGIC
+      CX 0: SUB    =>
+      retop=(null)
+      CX 1: EVAL   => *
+    retop=nextstate
+
+The die pops the first C<CxEVAL> off the context stack, sets
+C<PL_restartop> from it, does a C<JMPENV_JUMP(3)>, and control returns
+to the top C<docatch>. This then starts another third-level runops
+level, which executes the nextstate, pushmark and die ops on line 4. At
+the point that the second C<pp_die> is called, the C call stack looks
+exactly like that above, even though we are no longer within an inner
+eval; this is because of the optimization mentioned earlier. However,
+the context stack now looks like this, ie with the top CxEVAL popped:
+
+    STACK 0: MAIN
+      CX 0: BLOCK  =>
+      CX 1: EVAL   => AV()  PV("A"\0)
+      retop=leave
+    STACK 1: MAGIC
+      CX 0: SUB    =>
+      retop=(null)
+
+The die on line 4 pops the context stack back down to the CxEVAL,
+leaving it as:
+
+    STACK 0: MAIN
+      CX 0: BLOCK  =>
+
+As usual, C<PL_restartop> is extracted from the C<CxEVAL>, and a
+C<JMPENV_JUMP(3)> done, which pops the C stack back to the docatch:
+
+    S_docatch
+    Perl_pp_entertry
+    Perl_runops      # second loop
+    S_call_body
+    Perl_call_sv
+    Perl_pp_tie
+    Perl_runops      # first loop
+    S_run_body
+    perl_run
+    main
+
+In  this case, because the C<JMPENV> level recorded in the C<CxEVAL>
+differs from the current one, C<docatch> just does a C<JMPENV_JUMP(3)>
+and the C stack unwinds to:
+
+    perl_run
+    main
+
+Because C<PL_restartop> is non-null, C<run_body> starts a new runops
+loop and execution continues.
+
+=head2 INTERNAL VARIABLE TYPES
+
+You should by now have had a look at L<perlguts>, which tells you about
+Perl's internal variable types: SVs, HVs, AVs and the rest. If not, do
+that now.
+
+These variables are used not only to represent Perl-space variables,
+but also any constants in the code, as well as some structures
+completely internal to Perl. The symbol table, for instance, is an
+ordinary Perl hash. Your code is represented by an SV as it's read into
+the parser; any program files you call are opened via ordinary Perl
+filehandles, and so on.
+
+The core L<Devel::Peek|Devel::Peek> module lets us examine SVs from a
+Perl program. Let's see, for instance, how Perl treats the constant
+C<"hello">.
+
+      % perl -MDevel::Peek -e 'Dump("hello")'
+    1 SV = PV(0xa041450) at 0xa04ecbc
+    2   REFCNT = 1
+    3   FLAGS = (POK,READONLY,pPOK)
+    4   PV = 0xa0484e0 "hello"\0
+    5   CUR = 5
+    6   LEN = 6
+
+Reading C<Devel::Peek> output takes a bit of practise, so let's go
+through it line by line.
+
+Line 1 tells us we're looking at an SV which lives at C<0xa04ecbc> in
+memory. SVs themselves are very simple structures, but they contain a
+pointer to a more complex structure. In this case, it's a PV, a
+structure which holds a string value, at location C<0xa041450>. Line 2
+is the reference count; there are no other references to this data, so
+it's 1.
+
+Line 3 are the flags for this SV - it's OK to use it as a PV, it's a
+read-only SV (because it's a constant) and the data is a PV internally.
+Next we've got the contents of the string, starting at location
+C<0xa0484e0>.
+
+Line 5 gives us the current length of the string - note that this does
+B<not> include the null terminator. Line 6 is not the length of the
+string, but the length of the currently allocated buffer; as the string
+grows, Perl automatically extends the available storage via a routine
+called C<SvGROW>.
+
+You can get at any of these quantities from C very easily; just add
+C<Sv> to the name of the field shown in the snippet, and you've got a
+macro which will return the value: C<SvCUR(sv)> returns the current
+length of the string, C<SvREFCOUNT(sv)> returns the reference count,
+C<SvPV(sv, len)> returns the string itself with its length, and so on.
+More macros to manipulate these properties can be found in L<perlguts>.
+
+Let's take an example of manipulating a PV, from C<sv_catpvn>, in
+F<sv.c>
+
+     1  void
+     2  Perl_sv_catpvn(pTHX_ SV *sv, const char *ptr, STRLEN len)
+     3  {
+     4      STRLEN tlen;
+     5      char *junk;
+
+     6      junk = SvPV_force(sv, tlen);
+     7      SvGROW(sv, tlen + len + 1);
+     8      if (ptr == junk)
+     9          ptr = SvPVX(sv);
+    10      Move(ptr,SvPVX(sv)+tlen,len,char);
+    11      SvCUR(sv) += len;
+    12      *SvEND(sv) = '\0';
+    13      (void)SvPOK_only_UTF8(sv);          /* validate pointer */
+    14      SvTAINT(sv);
+    15  }
+
+This is a function which adds a string, C<ptr>, of length C<len> onto
+the end of the PV stored in C<sv>. The first thing we do in line 6 is
+make sure that the SV B<has> a valid PV, by calling the C<SvPV_force>
+macro to force a PV. As a side effect, C<tlen> gets set to the current
+value of the PV, and the PV itself is returned to C<junk>.
+
+In line 7, we make sure that the SV will have enough room to
+accommodate the old string, the new string and the null terminator. If
+C<LEN> isn't big enough, C<SvGROW> will reallocate space for us.
+
+Now, if C<junk> is the same as the string we're trying to add, we can
+grab the string directly from the SV; C<SvPVX> is the address of the PV
+in the SV.
+
+Line 10 does the actual catenation: the C<Move> macro moves a chunk of
+memory around: we move the string C<ptr> to the end of the PV - that's
+the start of the PV plus its current length. We're moving C<len> bytes
+of type C<char>. After doing so, we need to tell Perl we've extended
+the string, by altering C<CUR> to reflect the new length. C<SvEND> is a
+macro which gives us the end of the string, so that needs to be a
+C<"\0">.
+
+Line 13 manipulates the flags; since we've changed the PV, any IV or NV
+values will no longer be valid: if we have C<$a=10; $a.="6";> we don't
+want to use the old IV of 10. C<SvPOK_only_utf8> is a special
+UTF-8-aware version of C<SvPOK_only>, a macro which turns off the IOK
+and NOK flags and turns on POK. The final C<SvTAINT> is a macro which
+launders tainted data if taint mode is turned on.
+
+AVs and HVs are more complicated, but SVs are by far the most common
+variable type being thrown around. Having seen something of how we
+manipulate these, let's go on and look at how the op tree is
+constructed.
+
+=head1 OP TREES
+
+First, what is the op tree, anyway? The op tree is the parsed
+representation of your program, as we saw in our section on parsing,
+and it's the sequence of operations that Perl goes through to execute
+your program, as we saw in L</Running>.
+
+An op is a fundamental operation that Perl can perform: all the
+built-in functions and operators are ops, and there are a series of ops
+which deal with concepts the interpreter needs internally - entering
+and leaving a block, ending a statement, fetching a variable, and so
+on.
+
+The op tree is connected in two ways: you can imagine that there are
+two "routes" through it, two orders in which you can traverse the tree.
+First, parse order reflects how the parser understood the code, and
+secondly, execution order tells perl what order to perform the
+operations in.
+
+The easiest way to examine the op tree is to stop Perl after it has
+finished parsing, and get it to dump out the tree. This is exactly what
+the compiler backends L<B::Terse|B::Terse>, L<B::Concise|B::Concise>
+and L<B::Debug|B::Debug> do.
+
+Let's have a look at how Perl sees C<$a = $b + $c>:
+
+     % perl -MO=Terse -e '$a=$b+$c'
+     1  LISTOP (0x8179888) leave
+     2      OP (0x81798b0) enter
+     3      COP (0x8179850) nextstate
+     4      BINOP (0x8179828) sassign
+     5          BINOP (0x8179800) add [1]
+     6              UNOP (0x81796e0) null [15]
+     7                  SVOP (0x80fafe0) gvsv  GV (0x80fa4cc) *b
+     8              UNOP (0x81797e0) null [15]
+     9                  SVOP (0x8179700) gvsv  GV (0x80efeb0) *c
+    10          UNOP (0x816b4f0) null [15]
+    11              SVOP (0x816dcf0) gvsv  GV (0x80fa460) *a
+
+Let's start in the middle, at line 4. This is a BINOP, a binary
+operator, which is at location C<0x8179828>. The specific operator in
+question is C<sassign> - scalar assignment - and you can find the code
+which implements it in the function C<pp_sassign> in F<pp_hot.c>. As a
+binary operator, it has two children: the add operator, providing the
+result of C<$b+$c>, is uppermost on line 5, and the left hand side is
+on line 10.
+
+Line 10 is the null op: this does exactly nothing. What is that doing
+there? If you see the null op, it's a sign that something has been
+optimized away after parsing. As we mentioned in L</Optimization>, the
+optimization stage sometimes converts two operations into one, for
+example when fetching a scalar variable. When this happens, instead of
+rewriting the op tree and cleaning up the dangling pointers, it's
+easier just to replace the redundant operation with the null op.
+Originally, the tree would have looked like this:
+
+    10          SVOP (0x816b4f0) rv2sv [15]
+    11              SVOP (0x816dcf0) gv  GV (0x80fa460) *a
+
+That is, fetch the C<a> entry from the main symbol table, and then look
+at the scalar component of it: C<gvsv> (C<pp_gvsv> into F<pp_hot.c>)
+happens to do both these things.
+
+The right hand side, starting at line 5 is similar to what we've just
+seen: we have the C<add> op (C<pp_add> also in F<pp_hot.c>) add
+together two C<gvsv>s.
+
+Now, what's this about?
+
+     1  LISTOP (0x8179888) leave
+     2      OP (0x81798b0) enter
+     3      COP (0x8179850) nextstate
+
+C<enter> and C<leave> are scoping ops, and their job is to perform any
+housekeeping every time you enter and leave a block: lexical variables
+are tidied up, unreferenced variables are destroyed, and so on. Every
+program will have those first three lines: C<leave> is a list, and its
+children are all the statements in the block. Statements are delimited
+by C<nextstate>, so a block is a collection of C<nextstate> ops, with
+the ops to be performed for each statement being the children of
+C<nextstate>. C<enter> is a single op which functions as a marker.
+
+That's how Perl parsed the program, from top to bottom:
+
+                        Program
+                           |
+                       Statement
+                           |
+                           =
+                          / \
+                         /   \
+                        $a   +
+                            / \
+                          $b   $c
+
+However, it's impossible to B<perform> the operations in this order:
+you have to find the values of C<$b> and C<$c> before you add them
+together, for instance. So, the other thread that runs through the op
+tree is the execution order: each op has a field C<op_next> which
+points to the next op to be run, so following these pointers tells us
+how perl executes the code. We can traverse the tree in this order
+using the C<exec> option to C<B::Terse>:
+
+     % perl -MO=Terse,exec -e '$a=$b+$c'
+     1  OP (0x8179928) enter
+     2  COP (0x81798c8) nextstate
+     3  SVOP (0x81796c8) gvsv  GV (0x80fa4d4) *b
+     4  SVOP (0x8179798) gvsv  GV (0x80efeb0) *c
+     5  BINOP (0x8179878) add [1]
+     6  SVOP (0x816dd38) gvsv  GV (0x80fa468) *a
+     7  BINOP (0x81798a0) sassign
+     8  LISTOP (0x8179900) leave
+
+This probably makes more sense for a human: enter a block, start a
+statement. Get the values of C<$b> and C<$c>, and add them together.
+Find C<$a>, and assign one to the other. Then leave.
+
+The way Perl builds up these op trees in the parsing process can be
+unravelled by examining F<perly.y>, the YACC grammar. Let's take the
+piece we need to construct the tree for C<$a = $b + $c>
+
+    1 term    :   term ASSIGNOP term
+    2                { $$ = newASSIGNOP(OPf_STACKED, $1, $2, $3); }
+    3         |   term ADDOP term
+    4                { $$ = newBINOP($2, 0, scalar($1), scalar($3)); }
+
+If you're not used to reading BNF grammars, this is how it works:
+You're fed certain things by the tokeniser, which generally end up in
+upper case. Here, C<ADDOP>, is provided when the tokeniser sees C<+> in
+your code. C<ASSIGNOP> is provided when C<=> is used for assigning.
+These are "terminal symbols", because you can't get any simpler than
+them.
+
+The grammar, lines one and three of the snippet above, tells you how to
+build up more complex forms. These complex forms, "non-terminal
+symbols" are generally placed in lower case. C<term> here is a
+non-terminal symbol, representing a single expression.
+
+The grammar gives you the following rule: you can make the thing on the
+left of the colon if you see all the things on the right in sequence.
+This is called a "reduction", and the aim of parsing is to completely
+reduce the input. There are several different ways you can perform a
+reduction, separated by vertical bars: so, C<term> followed by C<=>
+followed by C<term> makes a C<term>, and C<term> followed by C<+>
+followed by C<term> can also make a C<term>.
+
+So, if you see two terms with an C<=> or C<+>, between them, you can
+turn them into a single expression. When you do this, you execute the
+code in the block on the next line: if you see C<=>, you'll do the code
+in line 2. If you see C<+>, you'll do the code in line 4. It's this
+code which contributes to the op tree.
+
+            |   term ADDOP term
+            { $$ = newBINOP($2, 0, scalar($1), scalar($3)); }
+
+What this does is creates a new binary op, and feeds it a number of
+variables. The variables refer to the tokens: C<$1> is the first token
+in the input, C<$2> the second, and so on - think regular expression
+backreferences. C<$$> is the op returned from this reduction. So, we
+call C<newBINOP> to create a new binary operator. The first parameter
+to C<newBINOP>, a function in F<op.c>, is the op type. It's an addition
+operator, so we want the type to be C<ADDOP>. We could specify this
+directly, but it's right there as the second token in the input, so we
+use C<$2>. The second parameter is the op's flags: 0 means "nothing
+special". Then the things to add: the left and right hand side of our
+expression, in scalar context.
+
+=head1 STACKS
+
+When perl executes something like C<addop>, how does it pass on its
+results to the next op? The answer is, through the use of stacks. Perl
+has a number of stacks to store things it's currently working on, and
+we'll look at the three most important ones here.
+
+=head2 Argument stack
+
+Arguments are passed to PP code and returned from PP code using the
+argument stack, C<ST>. The typical way to handle arguments is to pop
+them off the stack, deal with them how you wish, and then push the
+result back onto the stack. This is how, for instance, the cosine
+operator works:
+
+      NV value;
+      value = POPn;
+      value = Perl_cos(value);
+      XPUSHn(value);
+
+We'll see a more tricky example of this when we consider Perl's macros
+below. C<POPn> gives you the NV (floating point value) of the top SV on
+the stack: the C<$x> in C<cos($x)>. Then we compute the cosine, and
+push the result back as an NV. The C<X> in C<XPUSHn> means that the
+stack should be extended if necessary - it can't be necessary here,
+because we know there's room for one more item on the stack, since
+we've just removed one! The C<XPUSH*> macros at least guarantee safety.
+
+Alternatively, you can fiddle with the stack directly: C<SP> gives you
+the first element in your portion of the stack, and C<TOP*> gives you
+the top SV/IV/NV/etc. on the stack. So, for instance, to do unary
+negation of an integer:
+
+     SETi(-TOPi);
+
+Just set the integer value of the top stack entry to its negation.
+
+Argument stack manipulation in the core is exactly the same as it is in
+XSUBs - see L<perlxstut>, L<perlxs> and L<perlguts> for a longer
+description of the macros used in stack manipulation.
+
+=head2 Mark stack
+
+I say "your portion of the stack" above because PP code doesn't
+necessarily get the whole stack to itself: if your function calls
+another function, you'll only want to expose the arguments aimed for
+the called function, and not (necessarily) let it get at your own data.
+The way we do this is to have a "virtual" bottom-of-stack, exposed to
+each function. The mark stack keeps bookmarks to locations in the
+argument stack usable by each function. For instance, when dealing with
+a tied variable, (internally, something with "P" magic) Perl has to
+call methods for accesses to the tied variables. However, we need to
+separate the arguments exposed to the method to the argument exposed to
+the original function - the store or fetch or whatever it may be.
+Here's roughly how the tied C<push> is implemented; see C<av_push> in
+F<av.c>:
+
+     1	PUSHMARK(SP);
+     2	EXTEND(SP,2);
+     3	PUSHs(SvTIED_obj((SV*)av, mg));
+     4	PUSHs(val);
+     5	PUTBACK;
+     6	ENTER;
+     7	call_method("PUSH", G_SCALAR|G_DISCARD);
+     8	LEAVE;
+
+Let's examine the whole implementation, for practice:
+
+     1	PUSHMARK(SP);
+
+Push the current state of the stack pointer onto the mark stack. This
+is so that when we've finished adding items to the argument stack, Perl
+knows how many things we've added recently.
+
+     2	EXTEND(SP,2);
+     3	PUSHs(SvTIED_obj((SV*)av, mg));
+     4	PUSHs(val);
+
+We're going to add two more items onto the argument stack: when you
+have a tied array, the C<PUSH> subroutine receives the object and the
+value to be pushed, and that's exactly what we have here - the tied
+object, retrieved with C<SvTIED_obj>, and the value, the SV C<val>.
+
+     5	PUTBACK;
+
+Next we tell Perl to update the global stack pointer from our internal
+variable: C<dSP> only gave us a local copy, not a reference to the
+global.
+
+     6	ENTER;
+     7	call_method("PUSH", G_SCALAR|G_DISCARD);
+     8	LEAVE;
+
+C<ENTER> and C<LEAVE> localise a block of code - they make sure that
+all variables are tidied up, everything that has been localised gets
+its previous value returned, and so on. Think of them as the C<{> and
+C<}> of a Perl block.
+
+To actually do the magic method call, we have to call a subroutine in
+Perl space: C<call_method> takes care of that, and it's described in
+L<perlcall>. We call the C<PUSH> method in scalar context, and we're
+going to discard its return value. The call_method() function removes
+the top element of the mark stack, so there is nothing for the caller
+to clean up.
+
+=head2 Save stack
+
+C doesn't have a concept of local scope, so perl provides one. We've
+seen that C<ENTER> and C<LEAVE> are used as scoping braces; the save
+stack implements the C equivalent of, for example:
+
+    {
+        local $foo = 42;
+        ...
+    }
+
+See L<perlguts/"Localizing changes"> for how to use the save stack.
+
+=head1 MILLIONS OF MACROS
+
+One thing you'll notice about the Perl source is that it's full of
+macros. Some have called the pervasive use of macros the hardest thing
+to understand, others find it adds to clarity. Let's take an example,
+the code which implements the addition operator:
+
+   1  PP(pp_add)
+   2  {
+   3      dSP; dATARGET; tryAMAGICbin(add,opASSIGN);
+   4      {
+   5        dPOPTOPnnrl_ul;
+   6        SETn( left + right );
+   7        RETURN;
+   8      }
+   9  }
+
+Every line here (apart from the braces, of course) contains a macro.
+The first line sets up the function declaration as Perl expects for PP
+code; line 3 sets up variable declarations for the argument stack and
+the target, the return value of the operation. Finally, it tries to see
+if the addition operation is overloaded; if so, the appropriate
+subroutine is called.
+
+Line 5 is another variable declaration - all variable declarations
+start with C<d> - which pops from the top of the argument stack two NVs
+(hence C<nn>) and puts them into the variables C<right> and C<left>,
+hence the C<rl>. These are the two operands to the addition operator.
+Next, we call C<SETn> to set the NV of the return value to the result
+of adding the two values. This done, we return - the C<RETURN> macro
+makes sure that our return value is properly handled, and we pass the
+next operator to run back to the main run loop.
+
+Most of these macros are explained in L<perlapi>, and some of the more
+important ones are explained in L<perlxs> as well. Pay special
+attention to L<perlguts/Background and PERL_IMPLICIT_CONTEXT> for
+information on the C<[pad]THX_?> macros.
+
+=head1 FURTHER READING
+
+For more information on the Perl internals, please see the documents
+listed at L<perl/Internals and C Language Interface>.
diff --git a/lib/5.24.1/pod/perlintro.pod b/lib/5.24.1/pod/perlintro.pod
new file mode 100644
index 00000000..9559cb1d
--- /dev/null
+++ b/lib/5.24.1/pod/perlintro.pod
@@ -0,0 +1,704 @@
+=head1 NAME
+
+perlintro -- a brief introduction and overview of Perl
+
+=head1 DESCRIPTION
+
+This document is intended to give you a quick overview of the Perl
+programming language, along with pointers to further documentation.  It
+is intended as a "bootstrap" guide for those who are new to the
+language, and provides just enough information for you to be able to
+read other peoples' Perl and understand roughly what it's doing, or
+write your own simple scripts.
+
+This introductory document does not aim to be complete.  It does not
+even aim to be entirely accurate.  In some cases perfection has been
+sacrificed in the goal of getting the general idea across.  You are
+I<strongly> advised to follow this introduction with more information
+from the full Perl manual, the table of contents to which can be found
+in L<perltoc>.
+
+Throughout this document you'll see references to other parts of the
+Perl documentation.  You can read that documentation using the C<perldoc>
+command or whatever method you're using to read this document.
+
+Throughout Perl's documentation, you'll find numerous examples intended
+to help explain the discussed features.  Please keep in mind that many
+of them are code fragments rather than complete programs.
+
+These examples often reflect the style and preference of the author of
+that piece of the documentation, and may be briefer than a corresponding
+line of code in a real program.  Except where otherwise noted, you
+should assume that C<use strict> and C<use warnings> statements
+appear earlier in the "program", and that any variables used have
+already been declared, even if those declarations have been omitted
+to make the example easier to read.
+
+Do note that the examples have been written by many different authors over
+a period of several decades.  Styles and techniques will therefore differ,
+although some effort has been made to not vary styles too widely in the
+same sections.  Do not consider one style to be better than others - "There's
+More Than One Way To Do It" is one of Perl's mottos.  After all, in your
+journey as a programmer, you are likely to encounter different styles.
+
+=head2 What is Perl?
+
+Perl is a general-purpose programming language originally developed for
+text manipulation and now used for a wide range of tasks including
+system administration, web development, network programming, GUI
+development, and more.
+
+The language is intended to be practical (easy to use, efficient,
+complete) rather than beautiful (tiny, elegant, minimal).  Its major
+features are that it's easy to use, supports both procedural and
+object-oriented (OO) programming, has powerful built-in support for text
+processing, and has one of the world's most impressive collections of
+third-party modules.
+
+Different definitions of Perl are given in L<perl>, L<perlfaq1> and
+no doubt other places.  From this we can determine that Perl is different
+things to different people, but that lots of people think it's at least
+worth writing about.
+
+=head2 Running Perl programs
+
+To run a Perl program from the Unix command line:
+
+ perl progname.pl
+
+Alternatively, put this as the first line of your script:
+
+ #!/usr/bin/env perl
+
+... and run the script as F</path/to/script.pl>.  Of course, it'll need
+to be executable first, so C<chmod 755 script.pl> (under Unix).
+
+(This start line assumes you have the B<env> program.  You can also put
+directly the path to your perl executable, like in C<#!/usr/bin/perl>).
+
+For more information, including instructions for other platforms such as
+Windows and Mac OS, read L<perlrun>.
+
+=head2 Safety net
+
+Perl by default is very forgiving.  In order to make it more robust
+it is recommended to start every program with the following lines:
+
+ #!/usr/bin/perl
+ use strict;
+ use warnings;
+
+The two additional lines request from perl to catch various common
+problems in your code.  They check different things so you need both.  A
+potential problem caught by C<use strict;> will cause your code to stop
+immediately when it is encountered, while C<use warnings;> will merely
+give a warning (like the command-line switch B<-w>) and let your code run.
+To read more about them check their respective manual pages at L<strict>
+and L<warnings>.
+
+=head2 Basic syntax overview
+
+A Perl script or program consists of one or more statements.  These
+statements are simply written in the script in a straightforward
+fashion.  There is no need to have a C<main()> function or anything of
+that kind.
+
+Perl statements end in a semi-colon:
+
+ print "Hello, world";
+
+Comments start with a hash symbol and run to the end of the line
+
+ # This is a comment
+
+Whitespace is irrelevant:
+
+ print
+     "Hello, world"
+     ;
+
+... except inside quoted strings:
+
+ # this would print with a linebreak in the middle
+ print "Hello
+ world";
+
+Double quotes or single quotes may be used around literal strings:
+
+ print "Hello, world";
+ print 'Hello, world';
+
+However, only double quotes "interpolate" variables and special
+characters such as newlines (C<\n>):
+
+ print "Hello, $name\n";     # works fine
+ print 'Hello, $name\n';     # prints $name\n literally
+
+Numbers don't need quotes around them:
+
+ print 42;
+
+You can use parentheses for functions' arguments or omit them
+according to your personal taste.  They are only required
+occasionally to clarify issues of precedence.
+
+ print("Hello, world\n");
+ print "Hello, world\n";
+
+More detailed information about Perl syntax can be found in L<perlsyn>.
+
+=head2 Perl variable types
+
+Perl has three main variable types: scalars, arrays, and hashes.
+
+=over 4
+
+=item Scalars
+
+A scalar represents a single value:
+
+ my $animal = "camel";
+ my $answer = 42;
+
+Scalar values can be strings, integers or floating point numbers, and Perl
+will automatically convert between them as required.  There is no need
+to pre-declare your variable types, but you have to declare them using
+the C<my> keyword the first time you use them.  (This is one of the
+requirements of C<use strict;>.)
+
+Scalar values can be used in various ways:
+
+ print $animal;
+ print "The animal is $animal\n";
+ print "The square of $answer is ", $answer * $answer, "\n";
+
+There are a number of "magic" scalars with names that look like
+punctuation or line noise.  These special variables are used for all
+kinds of purposes, and are documented in L<perlvar>.  The only one you
+need to know about for now is C<$_> which is the "default variable".
+It's used as the default argument to a number of functions in Perl, and
+it's set implicitly by certain looping constructs.
+
+ print;          # prints contents of $_ by default
+
+=item Arrays
+
+An array represents a list of values:
+
+ my @animals = ("camel", "llama", "owl");
+ my @numbers = (23, 42, 69);
+ my @mixed   = ("camel", 42, 1.23);
+
+Arrays are zero-indexed.  Here's how you get at elements in an array:
+
+ print $animals[0];              # prints "camel"
+ print $animals[1];              # prints "llama"
+
+The special variable C<$#array> tells you the index of the last element
+of an array:
+
+ print $mixed[$#mixed];       # last element, prints 1.23
+
+You might be tempted to use C<$#array + 1> to tell you how many items there
+are in an array.  Don't bother.  As it happens, using C<@array> where Perl
+expects to find a scalar value ("in scalar context") will give you the number
+of elements in the array:
+
+ if (@animals < 5) { ... }
+
+The elements we're getting from the array start with a C<$> because
+we're getting just a single value out of the array; you ask for a scalar,
+you get a scalar.
+
+To get multiple values from an array:
+
+ @animals[0,1];                 # gives ("camel", "llama");
+ @animals[0..2];                # gives ("camel", "llama", "owl");
+ @animals[1..$#animals];        # gives all except the first element
+
+This is called an "array slice".
+
+You can do various useful things to lists:
+
+ my @sorted    = sort @animals;
+ my @backwards = reverse @numbers;
+
+There are a couple of special arrays too, such as C<@ARGV> (the command
+line arguments to your script) and C<@_> (the arguments passed to a
+subroutine).  These are documented in L<perlvar>.
+
+=item Hashes
+
+A hash represents a set of key/value pairs:
+
+ my %fruit_color = ("apple", "red", "banana", "yellow");
+
+You can use whitespace and the C<< => >> operator to lay them out more
+nicely:
+
+ my %fruit_color = (
+     apple  => "red",
+     banana => "yellow",
+ );
+
+To get at hash elements:
+
+ $fruit_color{"apple"};           # gives "red"
+
+You can get at lists of keys and values with C<keys()> and
+C<values()>.
+
+ my @fruits = keys %fruit_colors;
+ my @colors = values %fruit_colors;
+
+Hashes have no particular internal order, though you can sort the keys
+and loop through them.
+
+Just like special scalars and arrays, there are also special hashes.
+The most well known of these is C<%ENV> which contains environment
+variables.  Read all about it (and other special variables) in
+L<perlvar>.
+
+=back
+
+Scalars, arrays and hashes are documented more fully in L<perldata>.
+
+More complex data types can be constructed using references, which allow
+you to build lists and hashes within lists and hashes.
+
+A reference is a scalar value and can refer to any other Perl data
+type.  So by storing a reference as the value of an array or hash
+element, you can easily create lists and hashes within lists and
+hashes.  The following example shows a 2 level hash of hash
+structure using anonymous hash references.
+
+ my $variables = {
+     scalar  =>  {
+                  description => "single item",
+                  sigil => '$',
+                 },
+     array   =>  {
+                  description => "ordered list of items",
+                  sigil => '@',
+                 },
+     hash    =>  {
+                  description => "key/value pairs",
+                  sigil => '%',
+                 },
+ };
+
+ print "Scalars begin with a $variables->{'scalar'}->{'sigil'}\n";
+
+Exhaustive information on the topic of references can be found in
+L<perlreftut>, L<perllol>, L<perlref> and L<perldsc>.
+
+=head2 Variable scoping
+
+Throughout the previous section all the examples have used the syntax:
+
+ my $var = "value";
+
+The C<my> is actually not required; you could just use:
+
+ $var = "value";
+
+However, the above usage will create global variables throughout your
+program, which is bad programming practice.  C<my> creates lexically
+scoped variables instead.  The variables are scoped to the block
+(i.e. a bunch of statements surrounded by curly-braces) in which they
+are defined.
+
+ my $x = "foo";
+ my $some_condition = 1;
+ if ($some_condition) {
+     my $y = "bar";
+     print $x;           # prints "foo"
+     print $y;           # prints "bar"
+ }
+ print $x;               # prints "foo"
+ print $y;               # prints nothing; $y has fallen out of scope
+
+Using C<my> in combination with a C<use strict;> at the top of
+your Perl scripts means that the interpreter will pick up certain common
+programming errors.  For instance, in the example above, the final
+C<print $y> would cause a compile-time error and prevent you from
+running the program.  Using C<strict> is highly recommended.
+
+=head2 Conditional and looping constructs
+
+Perl has most of the usual conditional and looping constructs.  As of Perl
+5.10, it even has a case/switch statement (spelled C<given>/C<when>).  See
+L<perlsyn/"Switch Statements"> for more details.
+
+The conditions can be any Perl expression.  See the list of operators in
+the next section for information on comparison and boolean logic operators,
+which are commonly used in conditional statements.
+
+=over 4
+
+=item if
+
+ if ( condition ) {
+     ...
+ } elsif ( other condition ) {
+     ...
+ } else {
+     ...
+ }
+
+There's also a negated version of it:
+
+ unless ( condition ) {
+     ...
+ }
+
+This is provided as a more readable version of C<if (!I<condition>)>.
+
+Note that the braces are required in Perl, even if you've only got one
+line in the block.  However, there is a clever way of making your one-line
+conditional blocks more English like:
+
+ # the traditional way
+ if ($zippy) {
+     print "Yow!";
+ }
+
+ # the Perlish post-condition way
+ print "Yow!" if $zippy;
+ print "We have no bananas" unless $bananas;
+
+=item while
+
+ while ( condition ) {
+     ...
+ }
+
+There's also a negated version, for the same reason we have C<unless>:
+
+ until ( condition ) {
+     ...
+ }
+
+You can also use C<while> in a post-condition:
+
+ print "LA LA LA\n" while 1;          # loops forever
+
+=item for
+
+Exactly like C:
+
+ for ($i = 0; $i <= $max; $i++) {
+     ...
+ }
+
+The C style for loop is rarely needed in Perl since Perl provides
+the more friendly list scanning C<foreach> loop.
+
+=item foreach
+
+ foreach (@array) {
+     print "This element is $_\n";
+ }
+
+ print $list[$_] foreach 0 .. $max;
+
+ # you don't have to use the default $_ either...
+ foreach my $key (keys %hash) {
+     print "The value of $key is $hash{$key}\n";
+ }
+
+The C<foreach> keyword is actually a synonym for the C<for>
+keyword.  See C<L<perlsyn/"Foreach Loops">>.
+
+=back
+
+For more detail on looping constructs (and some that weren't mentioned in
+this overview) see L<perlsyn>.
+
+=head2 Builtin operators and functions
+
+Perl comes with a wide selection of builtin functions.  Some of the ones
+we've already seen include C<print>, C<sort> and C<reverse>.  A list of
+them is given at the start of L<perlfunc> and you can easily read
+about any given function by using C<perldoc -f I<functionname>>.
+
+Perl operators are documented in full in L<perlop>, but here are a few
+of the most common ones:
+
+=over 4
+
+=item Arithmetic
+
+ +   addition
+ -   subtraction
+ *   multiplication
+ /   division
+
+=item Numeric comparison
+
+ ==  equality
+ !=  inequality
+ <   less than
+ >   greater than
+ <=  less than or equal
+ >=  greater than or equal
+
+=item String comparison
+
+ eq  equality
+ ne  inequality
+ lt  less than
+ gt  greater than
+ le  less than or equal
+ ge  greater than or equal
+
+(Why do we have separate numeric and string comparisons?  Because we don't
+have special variable types, and Perl needs to know whether to sort
+numerically (where 99 is less than 100) or alphabetically (where 100 comes
+before 99).
+
+=item Boolean logic
+
+ &&  and
+ ||  or
+ !   not
+
+(C<and>, C<or> and C<not> aren't just in the above table as descriptions
+of the operators.  They're also supported as operators in their own
+right.  They're more readable than the C-style operators, but have
+different precedence to C<&&> and friends.  Check L<perlop> for more
+detail.)
+
+=item Miscellaneous
+
+ =   assignment
+ .   string concatenation
+ x   string multiplication
+ ..  range operator (creates a list of numbers or strings)
+
+=back
+
+Many operators can be combined with a C<=> as follows:
+
+ $a += 1;        # same as $a = $a + 1
+ $a -= 1;        # same as $a = $a - 1
+ $a .= "\n";     # same as $a = $a . "\n";
+
+=head2 Files and I/O
+
+You can open a file for input or output using the C<open()> function.
+It's documented in extravagant detail in L<perlfunc> and L<perlopentut>,
+but in short:
+
+ open(my $in,  "<",  "input.txt")  or die "Can't open input.txt: $!";
+ open(my $out, ">",  "output.txt") or die "Can't open output.txt: $!";
+ open(my $log, ">>", "my.log")     or die "Can't open my.log: $!";
+
+You can read from an open filehandle using the C<< <> >> operator.  In
+scalar context it reads a single line from the filehandle, and in list
+context it reads the whole file in, assigning each line to an element of
+the list:
+
+ my $line  = <$in>;
+ my @lines = <$in>;
+
+Reading in the whole file at one time is called slurping.  It can
+be useful but it may be a memory hog.  Most text file processing
+can be done a line at a time with Perl's looping constructs.
+
+The C<< <> >> operator is most often seen in a C<while> loop:
+
+ while (<$in>) {     # assigns each line in turn to $_
+     print "Just read in this line: $_";
+ }
+
+We've already seen how to print to standard output using C<print()>.
+However, C<print()> can also take an optional first argument specifying
+which filehandle to print to:
+
+ print STDERR "This is your final warning.\n";
+ print $out $record;
+ print $log $logmessage;
+
+When you're done with your filehandles, you should C<close()> them
+(though to be honest, Perl will clean up after you if you forget):
+
+ close $in or die "$in: $!";
+
+=head2 Regular expressions
+
+Perl's regular expression support is both broad and deep, and is the
+subject of lengthy documentation in L<perlrequick>, L<perlretut>, and
+elsewhere.  However, in short:
+
+=over 4
+
+=item Simple matching
+
+ if (/foo/)       { ... }  # true if $_ contains "foo"
+ if ($a =~ /foo/) { ... }  # true if $a contains "foo"
+
+The C<//> matching operator is documented in L<perlop>.  It operates on
+C<$_> by default, or can be bound to another variable using the C<=~>
+binding operator (also documented in L<perlop>).
+
+=item Simple substitution
+
+ s/foo/bar/;               # replaces foo with bar in $_
+ $a =~ s/foo/bar/;         # replaces foo with bar in $a
+ $a =~ s/foo/bar/g;        # replaces ALL INSTANCES of foo with bar
+                           # in $a
+
+The C<s///> substitution operator is documented in L<perlop>.
+
+=item More complex regular expressions
+
+You don't just have to match on fixed strings.  In fact, you can match
+on just about anything you could dream of by using more complex regular
+expressions.  These are documented at great length in L<perlre>, but for
+the meantime, here's a quick cheat sheet:
+
+ .                   a single character
+ \s                  a whitespace character (space, tab, newline,
+                     ...)
+ \S                  non-whitespace character
+ \d                  a digit (0-9)
+ \D                  a non-digit
+ \w                  a word character (a-z, A-Z, 0-9, _)
+ \W                  a non-word character
+ [aeiou]             matches a single character in the given set
+ [^aeiou]            matches a single character outside the given
+                     set
+ (foo|bar|baz)       matches any of the alternatives specified
+
+ ^                   start of string
+ $                   end of string
+
+Quantifiers can be used to specify how many of the previous thing you
+want to match on, where "thing" means either a literal character, one
+of the metacharacters listed above, or a group of characters or
+metacharacters in parentheses.
+
+ *                   zero or more of the previous thing
+ +                   one or more of the previous thing
+ ?                   zero or one of the previous thing
+ {3}                 matches exactly 3 of the previous thing
+ {3,6}               matches between 3 and 6 of the previous thing
+ {3,}                matches 3 or more of the previous thing
+
+Some brief examples:
+
+ /^\d+/              string starts with one or more digits
+ /^$/                nothing in the string (start and end are
+                     adjacent)
+ /(\d\s){3}/         three digits, each followed by a whitespace
+                     character (eg "3 4 5 ")
+ /(a.)+/             matches a string in which every odd-numbered
+                     letter is a (eg "abacadaf")
+
+ # This loop reads from STDIN, and prints non-blank lines:
+ while (<>) {
+     next if /^$/;
+     print;
+ }
+
+=item Parentheses for capturing
+
+As well as grouping, parentheses serve a second purpose.  They can be
+used to capture the results of parts of the regexp match for later use.
+The results end up in C<$1>, C<$2> and so on.
+
+ # a cheap and nasty way to break an email address up into parts
+
+ if ($email =~ /([^@]+)@(.+)/) {
+     print "Username is $1\n";
+     print "Hostname is $2\n";
+ }
+
+=item Other regexp features
+
+Perl regexps also support backreferences, lookaheads, and all kinds of
+other complex details.  Read all about them in L<perlrequick>,
+L<perlretut>, and L<perlre>.
+
+=back
+
+=head2 Writing subroutines
+
+Writing subroutines is easy:
+
+ sub logger {
+    my $logmessage = shift;
+    open my $logfile, ">>", "my.log" or die "Could not open my.log: $!";
+    print $logfile $logmessage;
+ }
+
+Now we can use the subroutine just as any other built-in function:
+
+ logger("We have a logger subroutine!");
+
+What's that C<shift>?  Well, the arguments to a subroutine are available
+to us as a special array called C<@_> (see L<perlvar> for more on that).
+The default argument to the C<shift> function just happens to be C<@_>.
+So C<my $logmessage = shift;> shifts the first item off the list of
+arguments and assigns it to C<$logmessage>.
+
+We can manipulate C<@_> in other ways too:
+
+ my ($logmessage, $priority) = @_;       # common
+ my $logmessage = $_[0];                 # uncommon, and ugly
+
+Subroutines can also return values:
+
+ sub square {
+     my $num = shift;
+     my $result = $num * $num;
+     return $result;
+ }
+
+Then use it like:
+
+ $sq = square(8);
+
+For more information on writing subroutines, see L<perlsub>.
+
+=head2 OO Perl
+
+OO Perl is relatively simple and is implemented using references which
+know what sort of object they are based on Perl's concept of packages.
+However, OO Perl is largely beyond the scope of this document.
+Read L<perlootut> and L<perlobj>.
+
+As a beginning Perl programmer, your most common use of OO Perl will be
+in using third-party modules, which are documented below.
+
+=head2 Using Perl modules
+
+Perl modules provide a range of features to help you avoid reinventing
+the wheel, and can be downloaded from CPAN ( http://www.cpan.org/ ).  A
+number of popular modules are included with the Perl distribution
+itself.
+
+Categories of modules range from text manipulation to network protocols
+to database integration to graphics.  A categorized list of modules is
+also available from CPAN.
+
+To learn how to install modules you download from CPAN, read
+L<perlmodinstall>.
+
+To learn how to use a particular module, use C<perldoc I<Module::Name>>.
+Typically you will want to C<use I<Module::Name>>, which will then give
+you access to exported functions or an OO interface to the module.
+
+L<perlfaq> contains questions and answers related to many common
+tasks, and often provides suggestions for good CPAN modules to use.
+
+L<perlmod> describes Perl modules in general.  L<perlmodlib> lists the
+modules which came with your Perl installation.
+
+If you feel the urge to write Perl modules, L<perlnewmod> will give you
+good advice.
+
+=head1 AUTHOR
+
+Kirrily "Skud" Robert <skud@cpan.org>
diff --git a/lib/5.24.1/pod/perliol.pod b/lib/5.24.1/pod/perliol.pod
new file mode 100644
index 00000000..55aaf147
--- /dev/null
+++ b/lib/5.24.1/pod/perliol.pod
@@ -0,0 +1,1046 @@
+=head1 NAME
+
+perliol - C API for Perl's implementation of IO in Layers.
+
+=head1 SYNOPSIS
+
+    /* Defining a layer ... */
+    #include <perliol.h>
+
+=head1 DESCRIPTION
+
+This document describes the behavior and implementation of the PerlIO
+abstraction described in L<perlapio> when C<USE_PERLIO> is defined.
+
+=head2 History and Background
+
+The PerlIO abstraction was introduced in perl5.003_02 but languished as
+just an abstraction until perl5.7.0. However during that time a number
+of perl extensions switched to using it, so the API is mostly fixed to
+maintain (source) compatibility.
+
+The aim of the implementation is to provide the PerlIO API in a flexible
+and platform neutral manner. It is also a trial of an "Object Oriented
+C, with vtables" approach which may be applied to Perl 6.
+
+=head2 Basic Structure
+
+PerlIO is a stack of layers.
+
+The low levels of the stack work with the low-level operating system
+calls (file descriptors in C) getting bytes in and out, the higher
+layers of the stack buffer, filter, and otherwise manipulate the I/O,
+and return characters (or bytes) to Perl.  Terms I<above> and I<below>
+are used to refer to the relative positioning of the stack layers.
+
+A layer contains a "vtable", the table of I/O operations (at C level
+a table of function pointers), and status flags.  The functions in the
+vtable implement operations like "open", "read", and "write".
+
+When I/O, for example "read", is requested, the request goes from Perl
+first down the stack using "read" functions of each layer, then at the
+bottom the input is requested from the operating system services, then
+the result is returned up the stack, finally being interpreted as Perl
+data.
+
+The requests do not necessarily go always all the way down to the
+operating system: that's where PerlIO buffering comes into play.
+
+When you do an open() and specify extra PerlIO layers to be deployed,
+the layers you specify are "pushed" on top of the already existing
+default stack.  One way to see it is that "operating system is
+on the left" and "Perl is on the right".
+
+What exact layers are in this default stack depends on a lot of
+things: your operating system, Perl version, Perl compile time
+configuration, and Perl runtime configuration.  See L<PerlIO>,
+L<perlrun/PERLIO>, and L<open> for more information.
+
+binmode() operates similarly to open(): by default the specified
+layers are pushed on top of the existing stack.
+
+However, note that even as the specified layers are "pushed on top"
+for open() and binmode(), this doesn't mean that the effects are
+limited to the "top": PerlIO layers can be very 'active' and inspect
+and affect layers also deeper in the stack.  As an example there
+is a layer called "raw" which repeatedly "pops" layers until
+it reaches the first layer that has declared itself capable of
+handling binary data.  The "pushed" layers are processed in left-to-right
+order.
+
+sysopen() operates (unsurprisingly) at a lower level in the stack than
+open().  For example in Unix or Unix-like systems sysopen() operates
+directly at the level of file descriptors: in the terms of PerlIO
+layers, it uses only the "unix" layer, which is a rather thin wrapper
+on top of the Unix file descriptors.
+
+=head2 Layers vs Disciplines
+
+Initial discussion of the ability to modify IO streams behaviour used
+the term "discipline" for the entities which were added. This came (I
+believe) from the use of the term in "sfio", which in turn borrowed it
+from "line disciplines" on Unix terminals. However, this document (and
+the C code) uses the term "layer".
+
+This is, I hope, a natural term given the implementation, and should
+avoid connotations that are inherent in earlier uses of "discipline"
+for things which are rather different.
+
+=head2 Data Structures
+
+The basic data structure is a PerlIOl:
+
+	typedef struct _PerlIO PerlIOl;
+	typedef struct _PerlIO_funcs PerlIO_funcs;
+	typedef PerlIOl *PerlIO;
+
+	struct _PerlIO
+	{
+	 PerlIOl *	next;       /* Lower layer */
+	 PerlIO_funcs *	tab;        /* Functions for this layer */
+	 U32		flags;      /* Various flags for state */
+	};
+
+A C<PerlIOl *> is a pointer to the struct, and the I<application>
+level C<PerlIO *> is a pointer to a C<PerlIOl *> - i.e. a pointer
+to a pointer to the struct. This allows the application level C<PerlIO *>
+to remain constant while the actual C<PerlIOl *> underneath
+changes. (Compare perl's C<SV *> which remains constant while its
+C<sv_any> field changes as the scalar's type changes.) An IO stream is
+then in general represented as a pointer to this linked-list of
+"layers".
+
+It should be noted that because of the double indirection in a C<PerlIO *>,
+a C<< &(perlio->next) >> "is" a C<PerlIO *>, and so to some degree
+at least one layer can use the "standard" API on the next layer down.
+
+A "layer" is composed of two parts:
+
+=over 4
+
+=item 1.
+
+The functions and attributes of the "layer class".
+
+=item 2.
+
+The per-instance data for a particular handle.
+
+=back
+
+=head2 Functions and Attributes
+
+The functions and attributes are accessed via the "tab" (for table)
+member of C<PerlIOl>. The functions (methods of the layer "class") are
+fixed, and are defined by the C<PerlIO_funcs> type. They are broadly the
+same as the public C<PerlIO_xxxxx> functions:
+
+ struct _PerlIO_funcs
+ {
+  Size_t     fsize;
+  char *     name;
+  Size_t     size;
+  IV         kind;
+  IV         (*Pushed)(pTHX_ PerlIO *f,
+                             const char *mode,
+                             SV *arg,
+                             PerlIO_funcs *tab);
+  IV         (*Popped)(pTHX_ PerlIO *f);
+  PerlIO *   (*Open)(pTHX_ PerlIO_funcs *tab,
+                           PerlIO_list_t *layers, IV n,
+                           const char *mode,
+                           int fd, int imode, int perm,
+                           PerlIO *old,
+                           int narg, SV **args);
+  IV         (*Binmode)(pTHX_ PerlIO *f);
+  SV *       (*Getarg)(pTHX_ PerlIO *f, CLONE_PARAMS *param, int flags)
+  IV         (*Fileno)(pTHX_ PerlIO *f);
+  PerlIO *   (*Dup)(pTHX_ PerlIO *f,
+                          PerlIO *o,
+                          CLONE_PARAMS *param,
+                          int flags)
+  /* Unix-like functions - cf sfio line disciplines */
+  SSize_t    (*Read)(pTHX_ PerlIO *f, void *vbuf, Size_t count);
+  SSize_t    (*Unread)(pTHX_ PerlIO *f, const void *vbuf, Size_t count);
+  SSize_t    (*Write)(pTHX_ PerlIO *f, const void *vbuf, Size_t count);
+  IV         (*Seek)(pTHX_ PerlIO *f, Off_t offset, int whence);
+  Off_t      (*Tell)(pTHX_ PerlIO *f);
+  IV         (*Close)(pTHX_ PerlIO *f);
+  /* Stdio-like buffered IO functions */
+  IV         (*Flush)(pTHX_ PerlIO *f);
+  IV         (*Fill)(pTHX_ PerlIO *f);
+  IV         (*Eof)(pTHX_ PerlIO *f);
+  IV         (*Error)(pTHX_ PerlIO *f);
+  void       (*Clearerr)(pTHX_ PerlIO *f);
+  void       (*Setlinebuf)(pTHX_ PerlIO *f);
+  /* Perl's snooping functions */
+  STDCHAR *  (*Get_base)(pTHX_ PerlIO *f);
+  Size_t     (*Get_bufsiz)(pTHX_ PerlIO *f);
+  STDCHAR *  (*Get_ptr)(pTHX_ PerlIO *f);
+  SSize_t    (*Get_cnt)(pTHX_ PerlIO *f);
+  void       (*Set_ptrcnt)(pTHX_ PerlIO *f,STDCHAR *ptr,SSize_t cnt);
+ };
+
+The first few members of the struct give a function table size for
+compatibility check "name" for the layer, the  size to C<malloc> for the per-instance data,
+and some flags which are attributes of the class as whole (such as whether it is a buffering
+layer), then follow the functions which fall into four basic groups:
+
+=over 4
+
+=item 1.
+
+Opening and setup functions
+
+=item 2.
+
+Basic IO operations
+
+=item 3.
+
+Stdio class buffering options.
+
+=item 4.
+
+Functions to support Perl's traditional "fast" access to the buffer.
+
+=back
+
+A layer does not have to implement all the functions, but the whole
+table has to be present. Unimplemented slots can be NULL (which will
+result in an error when called) or can be filled in with stubs to
+"inherit" behaviour from a "base class". This "inheritance" is fixed
+for all instances of the layer, but as the layer chooses which stubs
+to populate the table, limited "multiple inheritance" is possible.
+
+=head2 Per-instance Data
+
+The per-instance data are held in memory beyond the basic PerlIOl
+struct, by making a PerlIOl the first member of the layer's struct
+thus:
+
+	typedef struct
+	{
+	 struct _PerlIO base;       /* Base "class" info */
+	 STDCHAR *	buf;        /* Start of buffer */
+	 STDCHAR *	end;        /* End of valid part of buffer */
+	 STDCHAR *	ptr;        /* Current position in buffer */
+	 Off_t		posn;       /* Offset of buf into the file */
+	 Size_t		bufsiz;     /* Real size of buffer */
+	 IV		oneword;    /* Emergency buffer */
+	} PerlIOBuf;
+
+In this way (as for perl's scalars) a pointer to a PerlIOBuf can be
+treated as a pointer to a PerlIOl.
+
+=head2 Layers in action.
+
+                table           perlio          unix
+            |           |
+            +-----------+    +----------+    +--------+
+   PerlIO ->|           |--->|  next    |--->|  NULL  |
+            +-----------+    +----------+    +--------+
+            |           |    |  buffer  |    |   fd   |
+            +-----------+    |          |    +--------+
+            |           |    +----------+
+
+
+The above attempts to show how the layer scheme works in a simple case.
+The application's C<PerlIO *> points to an entry in the table(s)
+representing open (allocated) handles. For example the first three slots
+in the table correspond to C<stdin>,C<stdout> and C<stderr>. The table
+in turn points to the current "top" layer for the handle - in this case
+an instance of the generic buffering layer "perlio". That layer in turn
+points to the next layer down - in this case the low-level "unix" layer.
+
+The above is roughly equivalent to a "stdio" buffered stream, but with
+much more flexibility:
+
+=over 4
+
+=item *
+
+If Unix level C<read>/C<write>/C<lseek> is not appropriate for (say)
+sockets then the "unix" layer can be replaced (at open time or even
+dynamically) with a "socket" layer.
+
+=item *
+
+Different handles can have different buffering schemes. The "top"
+layer could be the "mmap" layer if reading disk files was quicker
+using C<mmap> than C<read>. An "unbuffered" stream can be implemented
+simply by not having a buffer layer.
+
+=item *
+
+Extra layers can be inserted to process the data as it flows through.
+This was the driving need for including the scheme in perl 5.7.0+ - we
+needed a mechanism to allow data to be translated between perl's
+internal encoding (conceptually at least Unicode as UTF-8), and the
+"native" format used by the system. This is provided by the
+":encoding(xxxx)" layer which typically sits above the buffering layer.
+
+=item *
+
+A layer can be added that does "\n" to CRLF translation. This layer
+can be used on any platform, not just those that normally do such
+things.
+
+=back
+
+=head2 Per-instance flag bits
+
+The generic flag bits are a hybrid of C<O_XXXXX> style flags deduced
+from the mode string passed to C<PerlIO_open()>, and state bits for
+typical buffer layers.
+
+=over 4
+
+=item PERLIO_F_EOF
+
+End of file.
+
+=item PERLIO_F_CANWRITE
+
+Writes are permitted, i.e. opened as "w" or "r+" or "a", etc.
+
+=item  PERLIO_F_CANREAD
+
+Reads are permitted i.e. opened "r" or "w+" (or even "a+" - ick).
+
+=item PERLIO_F_ERROR
+
+An error has occurred (for C<PerlIO_error()>).
+
+=item PERLIO_F_TRUNCATE
+
+Truncate file suggested by open mode.
+
+=item PERLIO_F_APPEND
+
+All writes should be appends.
+
+=item PERLIO_F_CRLF
+
+Layer is performing Win32-like "\n" mapped to CR,LF for output and CR,LF
+mapped to "\n" for input. Normally the provided "crlf" layer is the only
+layer that need bother about this. C<PerlIO_binmode()> will mess with this
+flag rather than add/remove layers if the C<PERLIO_K_CANCRLF> bit is set
+for the layers class.
+
+=item PERLIO_F_UTF8
+
+Data written to this layer should be UTF-8 encoded; data provided
+by this layer should be considered UTF-8 encoded. Can be set on any layer
+by ":utf8" dummy layer. Also set on ":encoding" layer.
+
+=item PERLIO_F_UNBUF
+
+Layer is unbuffered - i.e. write to next layer down should occur for
+each write to this layer.
+
+=item PERLIO_F_WRBUF
+
+The buffer for this layer currently holds data written to it but not sent
+to next layer.
+
+=item PERLIO_F_RDBUF
+
+The buffer for this layer currently holds unconsumed data read from
+layer below.
+
+=item PERLIO_F_LINEBUF
+
+Layer is line buffered. Write data should be passed to next layer down
+whenever a "\n" is seen. Any data beyond the "\n" should then be
+processed.
+
+=item PERLIO_F_TEMP
+
+File has been C<unlink()>ed, or should be deleted on C<close()>.
+
+=item PERLIO_F_OPEN
+
+Handle is open.
+
+=item PERLIO_F_FASTGETS
+
+This instance of this layer supports the "fast C<gets>" interface.
+Normally set based on C<PERLIO_K_FASTGETS> for the class and by the
+existence of the function(s) in the table. However a class that
+normally provides that interface may need to avoid it on a
+particular instance. The "pending" layer needs to do this when
+it is pushed above a layer which does not support the interface.
+(Perl's C<sv_gets()> does not expect the streams fast C<gets> behaviour
+to change during one "get".)
+
+=back
+
+=head2 Methods in Detail
+
+=over 4
+
+=item fsize
+
+	Size_t fsize;
+
+Size of the function table. This is compared against the value PerlIO
+code "knows" as a compatibility check. Future versions I<may> be able
+to tolerate layers compiled against an old version of the headers.
+
+=item name
+
+	char * name;
+
+The name of the layer whose open() method Perl should invoke on
+open().  For example if the layer is called APR, you will call:
+
+  open $fh, ">:APR", ...
+
+and Perl knows that it has to invoke the PerlIOAPR_open() method
+implemented by the APR layer.
+
+=item size
+
+	Size_t size;
+
+The size of the per-instance data structure, e.g.:
+
+  sizeof(PerlIOAPR)
+
+If this field is zero then C<PerlIO_pushed> does not malloc anything
+and assumes layer's Pushed function will do any required layer stack
+manipulation - used to avoid malloc/free overhead for dummy layers.
+If the field is non-zero it must be at least the size of C<PerlIOl>,
+C<PerlIO_pushed> will allocate memory for the layer's data structures
+and link new layer onto the stream's stack. (If the layer's Pushed
+method returns an error indication the layer is popped again.)
+
+=item kind
+
+	IV kind;
+
+=over 4
+
+=item * PERLIO_K_BUFFERED
+
+The layer is buffered.
+
+=item * PERLIO_K_RAW
+
+The layer is acceptable to have in a binmode(FH) stack - i.e. it does not
+(or will configure itself not to) transform bytes passing through it.
+
+=item * PERLIO_K_CANCRLF
+
+Layer can translate between "\n" and CRLF line ends.
+
+=item * PERLIO_K_FASTGETS
+
+Layer allows buffer snooping.
+
+=item * PERLIO_K_MULTIARG
+
+Used when the layer's open() accepts more arguments than usual. The
+extra arguments should come not before the C<MODE> argument. When this
+flag is used it's up to the layer to validate the args.
+
+=back
+
+=item Pushed
+
+ IV	(*Pushed)(pTHX_ PerlIO *f,const char *mode, SV *arg);
+
+The only absolutely mandatory method. Called when the layer is pushed
+onto the stack.  The C<mode> argument may be NULL if this occurs
+post-open. The C<arg> will be non-C<NULL> if an argument string was
+passed. In most cases this should call C<PerlIOBase_pushed()> to
+convert C<mode> into the appropriate C<PERLIO_F_XXXXX> flags in
+addition to any actions the layer itself takes.  If a layer is not
+expecting an argument it need neither save the one passed to it, nor
+provide C<Getarg()> (it could perhaps C<Perl_warn> that the argument
+was un-expected).
+
+Returns 0 on success. On failure returns -1 and should set errno.
+
+=item Popped
+
+	IV	(*Popped)(pTHX_ PerlIO *f);
+
+Called when the layer is popped from the stack. A layer will normally
+be popped after C<Close()> is called. But a layer can be popped
+without being closed if the program is dynamically managing layers on
+the stream. In such cases C<Popped()> should free any resources
+(buffers, translation tables, ...) not held directly in the layer's
+struct.  It should also C<Unread()> any unconsumed data that has been
+read and buffered from the layer below back to that layer, so that it
+can be re-provided to what ever is now above.
+
+Returns 0 on success and failure.  If C<Popped()> returns I<true> then
+I<perlio.c> assumes that either the layer has popped itself, or the
+layer is super special and needs to be retained for other reasons.
+In most cases it should return I<false>.
+
+=item Open
+
+	PerlIO *	(*Open)(...);
+
+The C<Open()> method has lots of arguments because it combines the
+functions of perl's C<open>, C<PerlIO_open>, perl's C<sysopen>,
+C<PerlIO_fdopen> and C<PerlIO_reopen>.  The full prototype is as
+follows:
+
+ PerlIO *	(*Open)(pTHX_ PerlIO_funcs *tab,
+			PerlIO_list_t *layers, IV n,
+			const char *mode,
+			int fd, int imode, int perm,
+			PerlIO *old,
+			int narg, SV **args);
+
+Open should (perhaps indirectly) call C<PerlIO_allocate()> to allocate
+a slot in the table and associate it with the layers information for
+the opened file, by calling C<PerlIO_push>.  The I<layers> is an
+array of all the layers destined for the C<PerlIO *>, and any
+arguments passed to them, I<n> is the index into that array of the
+layer being called. The macro C<PerlIOArg> will return a (possibly
+C<NULL>) SV * for the argument passed to the layer.
+
+The I<mode> string is an "C<fopen()>-like" string which would match
+the regular expression C</^[I#]?[rwa]\+?[bt]?$/>.
+
+The C<'I'> prefix is used during creation of C<stdin>..C<stderr> via
+special C<PerlIO_fdopen> calls; the C<'#'> prefix means that this is
+C<sysopen> and that I<imode> and I<perm> should be passed to
+C<PerlLIO_open3>; C<'r'> means B<r>ead, C<'w'> means B<w>rite and
+C<'a'> means B<a>ppend. The C<'+'> suffix means that both reading and
+writing/appending are permitted.  The C<'b'> suffix means file should
+be binary, and C<'t'> means it is text. (Almost all layers should do
+the IO in binary mode, and ignore the b/t bits. The C<:crlf> layer
+should be pushed to handle the distinction.)
+
+If I<old> is not C<NULL> then this is a C<PerlIO_reopen>. Perl itself
+does not use this (yet?) and semantics are a little vague.
+
+If I<fd> not negative then it is the numeric file descriptor I<fd>,
+which will be open in a manner compatible with the supplied mode
+string, the call is thus equivalent to C<PerlIO_fdopen>. In this case
+I<nargs> will be zero.
+
+If I<nargs> is greater than zero then it gives the number of arguments
+passed to C<open>, otherwise it will be 1 if for example
+C<PerlIO_open> was called.  In simple cases SvPV_nolen(*args) is the
+pathname to open.
+
+If a layer provides C<Open()> it should normally call the C<Open()>
+method of next layer down (if any) and then push itself on top if that
+succeeds.  C<PerlIOBase_open> is provided to do exactly that, so in
+most cases you don't have to write your own C<Open()> method.  If this
+method is not defined, other layers may have difficulty pushing
+themselves on top of it during open.
+
+If C<PerlIO_push> was performed and open has failed, it must
+C<PerlIO_pop> itself, since if it's not, the layer won't be removed
+and may cause bad problems.
+
+Returns C<NULL> on failure.
+
+=item Binmode
+
+	IV        (*Binmode)(pTHX_ PerlIO *f);
+
+Optional. Used when C<:raw> layer is pushed (explicitly or as a result
+of binmode(FH)). If not present layer will be popped. If present
+should configure layer as binary (or pop itself) and return 0.
+If it returns -1 for error C<binmode> will fail with layer
+still on the stack.
+
+=item Getarg
+
+	SV *      (*Getarg)(pTHX_ PerlIO *f,
+			    CLONE_PARAMS *param, int flags);
+
+Optional. If present should return an SV * representing the string
+argument passed to the layer when it was
+pushed. e.g. ":encoding(ascii)" would return an SvPV with value
+"ascii". (I<param> and I<flags> arguments can be ignored in most
+cases)
+
+C<Dup> uses C<Getarg> to retrieve the argument originally passed to
+C<Pushed>, so you must implement this function if your layer has an
+extra argument to C<Pushed> and will ever be C<Dup>ed.
+
+=item Fileno
+
+	IV        (*Fileno)(pTHX_ PerlIO *f);
+
+Returns the Unix/Posix numeric file descriptor for the handle. Normally
+C<PerlIOBase_fileno()> (which just asks next layer down) will suffice
+for this.
+
+Returns -1 on error, which is considered to include the case where the
+layer cannot provide such a file descriptor.
+
+=item Dup
+
+	PerlIO * (*Dup)(pTHX_ PerlIO *f, PerlIO *o,
+			CLONE_PARAMS *param, int flags);
+
+XXX: Needs more docs.
+
+Used as part of the "clone" process when a thread is spawned (in which
+case param will be non-NULL) and when a stream is being duplicated via
+'&' in the C<open>.
+
+Similar to C<Open>, returns PerlIO* on success, C<NULL> on failure.
+
+=item Read
+
+	SSize_t	(*Read)(pTHX_ PerlIO *f, void *vbuf, Size_t count);
+
+Basic read operation.
+
+Typically will call C<Fill> and manipulate pointers (possibly via the
+API).  C<PerlIOBuf_read()> may be suitable for derived classes which
+provide "fast gets" methods.
+
+Returns actual bytes read, or -1 on an error.
+
+=item	Unread
+
+	SSize_t	(*Unread)(pTHX_ PerlIO *f,
+			  const void *vbuf, Size_t count);
+
+A superset of stdio's C<ungetc()>. Should arrange for future reads to
+see the bytes in C<vbuf>. If there is no obviously better implementation
+then C<PerlIOBase_unread()> provides the function by pushing a "fake"
+"pending" layer above the calling layer.
+
+Returns the number of unread chars.
+
+=item Write
+
+	SSize_t	(*Write)(PerlIO *f, const void *vbuf, Size_t count);
+
+Basic write operation.
+
+Returns bytes written or -1 on an error.
+
+=item Seek
+
+	IV	(*Seek)(pTHX_ PerlIO *f, Off_t offset, int whence);
+
+Position the file pointer. Should normally call its own C<Flush>
+method and then the C<Seek> method of next layer down.
+
+Returns 0 on success, -1 on failure.
+
+=item Tell
+
+	Off_t	(*Tell)(pTHX_ PerlIO *f);
+
+Return the file pointer. May be based on layers cached concept of
+position to avoid overhead.
+
+Returns -1 on failure to get the file pointer.
+
+=item Close
+
+	IV	(*Close)(pTHX_ PerlIO *f);
+
+Close the stream. Should normally call C<PerlIOBase_close()> to flush
+itself and close layers below, and then deallocate any data structures
+(buffers, translation tables, ...) not  held directly in the data
+structure.
+
+Returns 0 on success, -1 on failure.
+
+=item Flush
+
+	IV	(*Flush)(pTHX_ PerlIO *f);
+
+Should make stream's state consistent with layers below. That is, any
+buffered write data should be written, and file position of lower layers
+adjusted for data read from below but not actually consumed.
+(Should perhaps C<Unread()> such data to the lower layer.)
+
+Returns 0 on success, -1 on failure.
+
+=item Fill
+
+	IV	(*Fill)(pTHX_ PerlIO *f);
+
+The buffer for this layer should be filled (for read) from layer
+below.  When you "subclass" PerlIOBuf layer, you want to use its
+I<_read> method and to supply your own fill method, which fills the
+PerlIOBuf's buffer.
+
+Returns 0 on success, -1 on failure.
+
+=item Eof
+
+	IV	(*Eof)(pTHX_ PerlIO *f);
+
+Return end-of-file indicator. C<PerlIOBase_eof()> is normally sufficient.
+
+Returns 0 on end-of-file, 1 if not end-of-file, -1 on error.
+
+=item Error
+
+	IV	(*Error)(pTHX_ PerlIO *f);
+
+Return error indicator. C<PerlIOBase_error()> is normally sufficient.
+
+Returns 1 if there is an error (usually when C<PERLIO_F_ERROR> is set),
+0 otherwise.
+
+=item  Clearerr
+
+	void	(*Clearerr)(pTHX_ PerlIO *f);
+
+Clear end-of-file and error indicators. Should call C<PerlIOBase_clearerr()>
+to set the C<PERLIO_F_XXXXX> flags, which may suffice.
+
+=item Setlinebuf
+
+	void	(*Setlinebuf)(pTHX_ PerlIO *f);
+
+Mark the stream as line buffered. C<PerlIOBase_setlinebuf()> sets the
+PERLIO_F_LINEBUF flag and is normally sufficient.
+
+=item Get_base
+
+	STDCHAR *	(*Get_base)(pTHX_ PerlIO *f);
+
+Allocate (if not already done so) the read buffer for this layer and
+return pointer to it. Return NULL on failure.
+
+=item Get_bufsiz
+
+	Size_t	(*Get_bufsiz)(pTHX_ PerlIO *f);
+
+Return the number of bytes that last C<Fill()> put in the buffer.
+
+=item Get_ptr
+
+	STDCHAR *	(*Get_ptr)(pTHX_ PerlIO *f);
+
+Return the current read pointer relative to this layer's buffer.
+
+=item Get_cnt
+
+	SSize_t	(*Get_cnt)(pTHX_ PerlIO *f);
+
+Return the number of bytes left to be read in the current buffer.
+
+=item Set_ptrcnt
+
+	void	(*Set_ptrcnt)(pTHX_ PerlIO *f,
+			      STDCHAR *ptr, SSize_t cnt);
+
+Adjust the read pointer and count of bytes to match C<ptr> and/or C<cnt>.
+The application (or layer above) must ensure they are consistent.
+(Checking is allowed by the paranoid.)
+
+=back
+
+=head2 Utilities
+
+To ask for the next layer down use PerlIONext(PerlIO *f).
+
+To check that a PerlIO* is valid use PerlIOValid(PerlIO *f).  (All
+this does is really just to check that the pointer is non-NULL and
+that the pointer behind that is non-NULL.)
+
+PerlIOBase(PerlIO *f) returns the "Base" pointer, or in other words,
+the C<PerlIOl*> pointer.
+
+PerlIOSelf(PerlIO* f, type) return the PerlIOBase cast to a type.
+
+Perl_PerlIO_or_Base(PerlIO* f, callback, base, failure, args) either
+calls the I<callback> from the functions of the layer I<f> (just by
+the name of the IO function, like "Read") with the I<args>, or if
+there is no such callback, calls the I<base> version of the callback
+with the same args, or if the f is invalid, set errno to EBADF and
+return I<failure>.
+
+Perl_PerlIO_or_fail(PerlIO* f, callback, failure, args) either calls
+the I<callback> of the functions of the layer I<f> with the I<args>,
+or if there is no such callback, set errno to EINVAL.  Or if the f is
+invalid, set errno to EBADF and return I<failure>.
+
+Perl_PerlIO_or_Base_void(PerlIO* f, callback, base, args) either calls
+the I<callback> of the functions of the layer I<f> with the I<args>,
+or if there is no such callback, calls the I<base> version of the
+callback with the same args, or if the f is invalid, set errno to
+EBADF.
+
+Perl_PerlIO_or_fail_void(PerlIO* f, callback, args) either calls the
+I<callback> of the functions of the layer I<f> with the I<args>, or if
+there is no such callback, set errno to EINVAL.  Or if the f is
+invalid, set errno to EBADF.
+
+=head2 Implementing PerlIO Layers
+
+If you find the implementation document unclear or not sufficient,
+look at the existing PerlIO layer implementations, which include:
+
+=over
+
+=item * C implementations
+
+The F<perlio.c> and F<perliol.h> in the Perl core implement the
+"unix", "perlio", "stdio", "crlf", "utf8", "byte", "raw", "pending"
+layers, and also the "mmap" and "win32" layers if applicable.
+(The "win32" is currently unfinished and unused, to see what is used
+instead in Win32, see L<PerlIO/"Querying the layers of filehandles"> .)
+
+PerlIO::encoding, PerlIO::scalar, PerlIO::via in the Perl core.
+
+PerlIO::gzip and APR::PerlIO (mod_perl 2.0) on CPAN.
+
+=item * Perl implementations
+
+PerlIO::via::QuotedPrint in the Perl core and PerlIO::via::* on CPAN.
+
+=back
+
+If you are creating a PerlIO layer, you may want to be lazy, in other
+words, implement only the methods that interest you.  The other methods
+you can either replace with the "blank" methods
+
+    PerlIOBase_noop_ok
+    PerlIOBase_noop_fail
+
+(which do nothing, and return zero and -1, respectively) or for
+certain methods you may assume a default behaviour by using a NULL
+method.  The Open method looks for help in the 'parent' layer.
+The following table summarizes the behaviour:
+
+    method      behaviour with NULL
+
+    Clearerr    PerlIOBase_clearerr
+    Close       PerlIOBase_close
+    Dup         PerlIOBase_dup
+    Eof         PerlIOBase_eof
+    Error       PerlIOBase_error
+    Fileno      PerlIOBase_fileno
+    Fill        FAILURE
+    Flush       SUCCESS
+    Getarg      SUCCESS
+    Get_base    FAILURE
+    Get_bufsiz  FAILURE
+    Get_cnt     FAILURE
+    Get_ptr     FAILURE
+    Open        INHERITED
+    Popped      SUCCESS
+    Pushed      SUCCESS
+    Read        PerlIOBase_read
+    Seek        FAILURE
+    Set_cnt     FAILURE
+    Set_ptrcnt  FAILURE
+    Setlinebuf  PerlIOBase_setlinebuf
+    Tell        FAILURE
+    Unread      PerlIOBase_unread
+    Write       FAILURE
+
+ FAILURE        Set errno (to EINVAL in Unixish, to LIB$_INVARG in VMS)
+                and return -1 (for numeric return values) or NULL (for
+                pointers)
+ INHERITED      Inherited from the layer below
+ SUCCESS        Return 0 (for numeric return values) or a pointer 
+
+=head2 Core Layers
+
+The file C<perlio.c> provides the following layers:
+
+=over 4
+
+=item "unix"
+
+A basic non-buffered layer which calls Unix/POSIX C<read()>, C<write()>,
+C<lseek()>, C<close()>. No buffering. Even on platforms that distinguish
+between O_TEXT and O_BINARY this layer is always O_BINARY.
+
+=item "perlio"
+
+A very complete generic buffering layer which provides the whole of
+PerlIO API. It is also intended to be used as a "base class" for other
+layers. (For example its C<Read()> method is implemented in terms of
+the C<Get_cnt()>/C<Get_ptr()>/C<Set_ptrcnt()> methods).
+
+"perlio" over "unix" provides a complete replacement for stdio as seen
+via PerlIO API. This is the default for USE_PERLIO when system's stdio
+does not permit perl's "fast gets" access, and which do not
+distinguish between C<O_TEXT> and C<O_BINARY>.
+
+=item "stdio"
+
+A layer which provides the PerlIO API via the layer scheme, but
+implements it by calling system's stdio. This is (currently) the default
+if system's stdio provides sufficient access to allow perl's "fast gets"
+access and which do not distinguish between C<O_TEXT> and C<O_BINARY>.
+
+=item "crlf"
+
+A layer derived using "perlio" as a base class. It provides Win32-like
+"\n" to CR,LF translation. Can either be applied above "perlio" or serve
+as the buffer layer itself. "crlf" over "unix" is the default if system
+distinguishes between C<O_TEXT> and C<O_BINARY> opens. (At some point
+"unix" will be replaced by a "native" Win32 IO layer on that platform,
+as Win32's read/write layer has various drawbacks.) The "crlf" layer is
+a reasonable model for a layer which transforms data in some way.
+
+=item "mmap"
+
+If Configure detects C<mmap()> functions this layer is provided (with
+"perlio" as a "base") which does "read" operations by mmap()ing the
+file. Performance improvement is marginal on modern systems, so it is
+mainly there as a proof of concept. It is likely to be unbundled from
+the core at some point. The "mmap" layer is a reasonable model for a
+minimalist "derived" layer.
+
+=item "pending"
+
+An "internal" derivative of "perlio" which can be used to provide
+Unread() function for layers which have no buffer or cannot be
+bothered.  (Basically this layer's C<Fill()> pops itself off the stack
+and so resumes reading from layer below.)
+
+=item "raw"
+
+A dummy layer which never exists on the layer stack. Instead when
+"pushed" it actually pops the stack removing itself, it then calls
+Binmode function table entry on all the layers in the stack - normally
+this (via PerlIOBase_binmode) removes any layers which do not have
+C<PERLIO_K_RAW> bit set. Layers can modify that behaviour by defining
+their own Binmode entry.
+
+=item "utf8"
+
+Another dummy layer. When pushed it pops itself and sets the
+C<PERLIO_F_UTF8> flag on the layer which was (and now is once more)
+the top of the stack.
+
+=back
+
+In addition F<perlio.c> also provides a number of C<PerlIOBase_xxxx()>
+functions which are intended to be used in the table slots of classes
+which do not need to do anything special for a particular method.
+
+=head2 Extension Layers
+
+Layers can be made available by extension modules. When an unknown layer
+is encountered the PerlIO code will perform the equivalent of :
+
+   use PerlIO 'layer';
+
+Where I<layer> is the unknown layer. F<PerlIO.pm> will then attempt to:
+
+   require PerlIO::layer;
+
+If after that process the layer is still not defined then the C<open>
+will fail.
+
+The following extension layers are bundled with perl:
+
+=over 4
+
+=item ":encoding"
+
+   use Encoding;
+
+makes this layer available, although F<PerlIO.pm> "knows" where to
+find it.  It is an example of a layer which takes an argument as it is
+called thus:
+
+   open( $fh, "<:encoding(iso-8859-7)", $pathname );
+
+=item ":scalar"
+
+Provides support for reading data from and writing data to a scalar.
+
+   open( $fh, "+<:scalar", \$scalar );
+
+When a handle is so opened, then reads get bytes from the string value
+of I<$scalar>, and writes change the value. In both cases the position
+in I<$scalar> starts as zero but can be altered via C<seek>, and
+determined via C<tell>.
+
+Please note that this layer is implied when calling open() thus:
+
+   open( $fh, "+<", \$scalar );
+
+=item ":via"
+
+Provided to allow layers to be implemented as Perl code.  For instance:
+
+   use PerlIO::via::StripHTML;
+   open( my $fh, "<:via(StripHTML)", "index.html" );
+
+See L<PerlIO::via> for details.
+
+=back
+
+=head1 TODO
+
+Things that need to be done to improve this document.
+
+=over
+
+=item *
+
+Explain how to make a valid fh without going through open()(i.e. apply
+a layer). For example if the file is not opened through perl, but we
+want to get back a fh, like it was opened by Perl.
+
+How PerlIO_apply_layera fits in, where its docs, was it made public?
+
+Currently the example could be something like this:
+
+  PerlIO *foo_to_PerlIO(pTHX_ char *mode, ...)
+  {
+      char *mode; /* "w", "r", etc */
+      const char *layers = ":APR"; /* the layer name */
+      PerlIO *f = PerlIO_allocate(aTHX);
+      if (!f) {
+          return NULL;
+      }
+
+      PerlIO_apply_layers(aTHX_ f, mode, layers);
+
+      if (f) {
+          PerlIOAPR *st = PerlIOSelf(f, PerlIOAPR);
+          /* fill in the st struct, as in _open() */
+          st->file = file;
+          PerlIOBase(f)->flags |= PERLIO_F_OPEN;
+
+          return f;
+      }
+      return NULL;
+  }
+
+=item *
+
+fix/add the documentation in places marked as XXX.
+
+=item *
+
+The handling of errors by the layer is not specified. e.g. when $!
+should be set explicitly, when the error handling should be just
+delegated to the top layer.
+
+Probably give some hints on using SETERRNO() or pointers to where they
+can be found.
+
+=item *
+
+I think it would help to give some concrete examples to make it easier
+to understand the API. Of course I agree that the API has to be
+concise, but since there is no second document that is more of a
+guide, I think that it'd make it easier to start with the doc which is
+an API, but has examples in it in places where things are unclear, to
+a person who is not a PerlIO guru (yet).
+
+=back
+
+=cut
diff --git a/lib/5.24.1/pod/perlipc.pod b/lib/5.24.1/pod/perlipc.pod
new file mode 100644
index 00000000..e3b74a55
--- /dev/null
+++ b/lib/5.24.1/pod/perlipc.pod
@@ -0,0 +1,1832 @@
+=head1 NAME
+
+perlipc - Perl interprocess communication (signals, fifos, pipes, safe subprocesses, sockets, and semaphores)
+
+=head1 DESCRIPTION
+
+The basic IPC facilities of Perl are built out of the good old Unix
+signals, named pipes, pipe opens, the Berkeley socket routines, and SysV
+IPC calls.  Each is used in slightly different situations.
+
+=head1 Signals
+
+Perl uses a simple signal handling model: the %SIG hash contains names
+or references of user-installed signal handlers.  These handlers will
+be called with an argument which is the name of the signal that
+triggered it.  A signal may be generated intentionally from a
+particular keyboard sequence like control-C or control-Z, sent to you
+from another process, or triggered automatically by the kernel when
+special events transpire, like a child process exiting, your own process
+running out of stack space, or hitting a process file-size limit.
+
+For example, to trap an interrupt signal, set up a handler like this:
+
+    our $shucks;
+
+    sub catch_zap {
+        my $signame = shift;
+        $shucks++;
+        die "Somebody sent me a SIG$signame";
+    }
+    $SIG{INT} = __PACKAGE__ . "::catch_zap";
+    $SIG{INT} = \&catch_zap;  # best strategy
+
+Prior to Perl 5.8.0 it was necessary to do as little as you possibly
+could in your handler; notice how all we do is set a global variable
+and then raise an exception.  That's because on most systems,
+libraries are not re-entrant; particularly, memory allocation and I/O
+routines are not.  That meant that doing nearly I<anything> in your
+handler could in theory trigger a memory fault and subsequent core
+dump - see L</Deferred Signals (Safe Signals)> below.
+
+The names of the signals are the ones listed out by C<kill -l> on your
+system, or you can retrieve them using the CPAN module L<IPC::Signal>.
+
+You may also choose to assign the strings C<"IGNORE"> or C<"DEFAULT"> as
+the handler, in which case Perl will try to discard the signal or do the
+default thing.
+
+On most Unix platforms, the C<CHLD> (sometimes also known as C<CLD>) signal
+has special behavior with respect to a value of C<"IGNORE">.
+Setting C<$SIG{CHLD}> to C<"IGNORE"> on such a platform has the effect of
+not creating zombie processes when the parent process fails to C<wait()>
+on its child processes (i.e., child processes are automatically reaped).
+Calling C<wait()> with C<$SIG{CHLD}> set to C<"IGNORE"> usually returns
+C<-1> on such platforms.
+
+Some signals can be neither trapped nor ignored, such as the KILL and STOP
+(but not the TSTP) signals. Note that ignoring signals makes them disappear.
+If you only want them blocked temporarily without them getting lost you'll
+have to use POSIX' sigprocmask.
+
+Sending a signal to a negative process ID means that you send the signal
+to the entire Unix process group.  This code sends a hang-up signal to all
+processes in the current process group, and also sets $SIG{HUP} to C<"IGNORE">
+so it doesn't kill itself:
+
+    # block scope for local
+    {
+        local $SIG{HUP} = "IGNORE";
+        kill HUP => -$$;
+        # snazzy writing of: kill("HUP", -$$)
+    }
+
+Another interesting signal to send is signal number zero.  This doesn't
+actually affect a child process, but instead checks whether it's alive
+or has changed its UIDs.
+
+    unless (kill 0 => $kid_pid) {
+        warn "something wicked happened to $kid_pid";
+    }
+
+Signal number zero may fail because you lack permission to send the
+signal when directed at a process whose real or saved UID is not
+identical to the real or effective UID of the sending process, even
+though the process is alive.  You may be able to determine the cause of
+failure using C<$!> or C<%!>.
+
+    unless (kill(0 => $pid) || $!{EPERM}) {
+        warn "$pid looks dead";
+    }
+
+You might also want to employ anonymous functions for simple signal
+handlers:
+
+    $SIG{INT} = sub { die "\nOutta here!\n" };
+
+SIGCHLD handlers require some special care.  If a second child dies
+while in the signal handler caused by the first death, we won't get
+another signal. So must loop here else we will leave the unreaped child
+as a zombie. And the next time two children die we get another zombie.
+And so on.
+
+    use POSIX ":sys_wait_h";
+    $SIG{CHLD} = sub {
+        while ((my $child = waitpid(-1, WNOHANG)) > 0) {
+            $Kid_Status{$child} = $?;
+        }
+    };
+    # do something that forks...
+
+Be careful: qx(), system(), and some modules for calling external commands
+do a fork(), then wait() for the result. Thus, your signal handler
+will be called. Because wait() was already called by system() or qx(),
+the wait() in the signal handler will see no more zombies and will
+therefore block.
+
+The best way to prevent this issue is to use waitpid(), as in the following
+example:
+
+    use POSIX ":sys_wait_h"; # for nonblocking read
+
+    my %children;
+
+    $SIG{CHLD} = sub {
+        # don't change $! and $? outside handler
+        local ($!, $?);
+        while ( (my $pid = waitpid(-1, WNOHANG)) > 0 ) {
+            delete $children{$pid};
+            cleanup_child($pid, $?);
+        }
+    };
+
+    while (1) {
+        my $pid = fork();
+        die "cannot fork" unless defined $pid;
+        if ($pid == 0) {
+            # ...
+            exit 0;
+        } else {
+            $children{$pid}=1;
+            # ...
+            system($command);
+            # ...
+       }
+    }
+
+Signal handling is also used for timeouts in Unix.  While safely
+protected within an C<eval{}> block, you set a signal handler to trap
+alarm signals and then schedule to have one delivered to you in some
+number of seconds.  Then try your blocking operation, clearing the alarm
+when it's done but not before you've exited your C<eval{}> block.  If it
+goes off, you'll use die() to jump out of the block.
+
+Here's an example:
+
+    my $ALARM_EXCEPTION = "alarm clock restart";
+    eval {
+        local $SIG{ALRM} = sub { die $ALARM_EXCEPTION };
+        alarm 10;
+        flock(FH, 2)    # blocking write lock
+                        || die "cannot flock: $!";
+        alarm 0;
+    };
+    if ($@ && $@ !~ quotemeta($ALARM_EXCEPTION)) { die }
+
+If the operation being timed out is system() or qx(), this technique
+is liable to generate zombies.    If this matters to you, you'll
+need to do your own fork() and exec(), and kill the errant child process.
+
+For more complex signal handling, you might see the standard POSIX
+module.  Lamentably, this is almost entirely undocumented, but the
+F<ext/POSIX/t/sigaction.t> file from the Perl source distribution has
+some examples in it.
+
+=head2 Handling the SIGHUP Signal in Daemons
+
+A process that usually starts when the system boots and shuts down
+when the system is shut down is called a daemon (Disk And Execution
+MONitor). If a daemon process has a configuration file which is
+modified after the process has been started, there should be a way to
+tell that process to reread its configuration file without stopping
+the process. Many daemons provide this mechanism using a C<SIGHUP>
+signal handler. When you want to tell the daemon to reread the file,
+simply send it the C<SIGHUP> signal.
+
+The following example implements a simple daemon, which restarts
+itself every time the C<SIGHUP> signal is received. The actual code is
+located in the subroutine C<code()>, which just prints some debugging
+info to show that it works; it should be replaced with the real code.
+
+  #!/usr/bin/perl
+
+  use strict;
+  use warnings;
+
+  use POSIX ();
+  use FindBin ();
+  use File::Basename ();
+  use File::Spec::Functions qw(catfile);
+
+  $| = 1;
+
+  # make the daemon cross-platform, so exec always calls the script
+  # itself with the right path, no matter how the script was invoked.
+  my $script = File::Basename::basename($0);
+  my $SELF  = catfile($FindBin::Bin, $script);
+
+  # POSIX unmasks the sigprocmask properly
+  $SIG{HUP} = sub {
+      print "got SIGHUP\n";
+      exec($SELF, @ARGV)        || die "$0: couldn't restart: $!";
+  };
+
+  code();
+
+  sub code {
+      print "PID: $$\n";
+      print "ARGV: @ARGV\n";
+      my $count = 0;
+      while (1) {
+          sleep 2;
+          print ++$count, "\n";
+      }
+  }
+
+
+=head2 Deferred Signals (Safe Signals)
+
+Before Perl 5.8.0, installing Perl code to deal with signals exposed you to
+danger from two things.  First, few system library functions are
+re-entrant.  If the signal interrupts while Perl is executing one function
+(like malloc(3) or printf(3)), and your signal handler then calls the same
+function again, you could get unpredictable behavior--often, a core dump.
+Second, Perl isn't itself re-entrant at the lowest levels.  If the signal
+interrupts Perl while Perl is changing its own internal data structures,
+similarly unpredictable behavior may result.
+
+There were two things you could do, knowing this: be paranoid or be
+pragmatic.  The paranoid approach was to do as little as possible in your
+signal handler.  Set an existing integer variable that already has a
+value, and return.  This doesn't help you if you're in a slow system call,
+which will just restart.  That means you have to C<die> to longjmp(3) out
+of the handler.  Even this is a little cavalier for the true paranoiac,
+who avoids C<die> in a handler because the system I<is> out to get you.
+The pragmatic approach was to say "I know the risks, but prefer the
+convenience", and to do anything you wanted in your signal handler,
+and be prepared to clean up core dumps now and again.
+
+Perl 5.8.0 and later avoid these problems by "deferring" signals.  That is,
+when the signal is delivered to the process by the system (to the C code
+that implements Perl) a flag is set, and the handler returns immediately.
+Then at strategic "safe" points in the Perl interpreter (e.g. when it is
+about to execute a new opcode) the flags are checked and the Perl level
+handler from %SIG is executed. The "deferred" scheme allows much more
+flexibility in the coding of signal handlers as we know the Perl
+interpreter is in a safe state, and that we are not in a system library
+function when the handler is called.  However the implementation does
+differ from previous Perls in the following ways:
+
+=over 4
+
+=item Long-running opcodes
+
+As the Perl interpreter looks at signal flags only when it is about
+to execute a new opcode, a signal that arrives during a long-running
+opcode (e.g. a regular expression operation on a very large string) will
+not be seen until the current opcode completes.
+
+If a signal of any given type fires multiple times during an opcode
+(such as from a fine-grained timer), the handler for that signal will
+be called only once, after the opcode completes; all other
+instances will be discarded.  Furthermore, if your system's signal queue
+gets flooded to the point that there are signals that have been raised
+but not yet caught (and thus not deferred) at the time an opcode
+completes, those signals may well be caught and deferred during
+subsequent opcodes, with sometimes surprising results.  For example, you
+may see alarms delivered even after calling C<alarm(0)> as the latter
+stops the raising of alarms but does not cancel the delivery of alarms
+raised but not yet caught.  Do not depend on the behaviors described in
+this paragraph as they are side effects of the current implementation and
+may change in future versions of Perl.
+
+=item Interrupting IO
+
+When a signal is delivered (e.g., SIGINT from a control-C) the operating
+system breaks into IO operations like I<read>(2), which is used to
+implement Perl's readline() function, the C<< <> >> operator. On older
+Perls the handler was called immediately (and as C<read> is not "unsafe",
+this worked well). With the "deferred" scheme the handler is I<not> called
+immediately, and if Perl is using the system's C<stdio> library that
+library may restart the C<read> without returning to Perl to give it a
+chance to call the %SIG handler. If this happens on your system the
+solution is to use the C<:perlio> layer to do IO--at least on those handles
+that you want to be able to break into with signals. (The C<:perlio> layer
+checks the signal flags and calls %SIG handlers before resuming IO
+operation.)
+
+The default in Perl 5.8.0 and later is to automatically use
+the C<:perlio> layer.
+
+Note that it is not advisable to access a file handle within a signal
+handler where that signal has interrupted an I/O operation on that same
+handle. While perl will at least try hard not to crash, there are no
+guarantees of data integrity; for example, some data might get dropped or
+written twice.
+
+Some networking library functions like gethostbyname() are known to have
+their own implementations of timeouts which may conflict with your
+timeouts.  If you have problems with such functions, try using the POSIX
+sigaction() function, which bypasses Perl safe signals.  Be warned that
+this does subject you to possible memory corruption, as described above.
+
+Instead of setting C<$SIG{ALRM}>:
+
+   local $SIG{ALRM} = sub { die "alarm" };
+
+try something like the following:
+
+ use POSIX qw(SIGALRM);
+ POSIX::sigaction(SIGALRM,
+                  POSIX::SigAction->new(sub { die "alarm" }))
+          || die "Error setting SIGALRM handler: $!\n";
+
+Another way to disable the safe signal behavior locally is to use
+the C<Perl::Unsafe::Signals> module from CPAN, which affects
+all signals.
+
+=item Restartable system calls
+
+On systems that supported it, older versions of Perl used the
+SA_RESTART flag when installing %SIG handlers.  This meant that
+restartable system calls would continue rather than returning when
+a signal arrived.  In order to deliver deferred signals promptly,
+Perl 5.8.0 and later do I<not> use SA_RESTART.  Consequently,
+restartable system calls can fail (with $! set to C<EINTR>) in places
+where they previously would have succeeded.
+
+The default C<:perlio> layer retries C<read>, C<write>
+and C<close> as described above; interrupted C<wait> and
+C<waitpid> calls will always be retried.
+
+=item Signals as "faults"
+
+Certain signals like SEGV, ILL, and BUS are generated by virtual memory
+addressing errors and similar "faults". These are normally fatal: there is
+little a Perl-level handler can do with them.  So Perl delivers them
+immediately rather than attempting to defer them.
+
+=item Signals triggered by operating system state
+
+On some operating systems certain signal handlers are supposed to "do
+something" before returning. One example can be CHLD or CLD, which
+indicates a child process has completed. On some operating systems the
+signal handler is expected to C<wait> for the completed child
+process. On such systems the deferred signal scheme will not work for
+those signals: it does not do the C<wait>. Again the failure will
+look like a loop as the operating system will reissue the signal because
+there are completed child processes that have not yet been C<wait>ed for.
+
+=back
+
+If you want the old signal behavior back despite possible
+memory corruption, set the environment variable C<PERL_SIGNALS> to
+C<"unsafe">.  This feature first appeared in Perl 5.8.1.
+
+=head1 Named Pipes
+
+A named pipe (often referred to as a FIFO) is an old Unix IPC
+mechanism for processes communicating on the same machine.  It works
+just like regular anonymous pipes, except that the
+processes rendezvous using a filename and need not be related.
+
+To create a named pipe, use the C<POSIX::mkfifo()> function.
+
+    use POSIX qw(mkfifo);
+    mkfifo($path, 0700)     ||  die "mkfifo $path failed: $!";
+
+You can also use the Unix command mknod(1), or on some
+systems, mkfifo(1).  These may not be in your normal path, though.
+
+    # system return val is backwards, so && not ||
+    #
+    $ENV{PATH} .= ":/etc:/usr/etc";
+    if  (      system("mknod",  $path, "p")
+            && system("mkfifo", $path) )
+    {
+        die "mk{nod,fifo} $path failed";
+    }
+
+
+A fifo is convenient when you want to connect a process to an unrelated
+one.  When you open a fifo, the program will block until there's something
+on the other end.
+
+For example, let's say you'd like to have your F<.signature> file be a
+named pipe that has a Perl program on the other end.  Now every time any
+program (like a mailer, news reader, finger program, etc.) tries to read
+from that file, the reading program will read the new signature from your
+program.  We'll use the pipe-checking file-test operator, B<-p>, to find
+out whether anyone (or anything) has accidentally removed our fifo.
+
+    chdir();    # go home
+    my $FIFO = ".signature";
+
+    while (1) {
+        unless (-p $FIFO) {
+            unlink $FIFO;   # discard any failure, will catch later
+            require POSIX;  # delayed loading of heavy module
+            POSIX::mkfifo($FIFO, 0700)
+                                || die "can't mkfifo $FIFO: $!";
+        }
+
+        # next line blocks till there's a reader
+        open (FIFO, "> $FIFO")  || die "can't open $FIFO: $!";
+        print FIFO "John Smith (smith\@host.org)\n", `fortune -s`;
+        close(FIFO)             || die "can't close $FIFO: $!";
+        sleep 2;                # to avoid dup signals
+    }
+
+=head1 Using open() for IPC
+
+Perl's basic open() statement can also be used for unidirectional
+interprocess communication by either appending or prepending a pipe
+symbol to the second argument to open().  Here's how to start
+something up in a child process you intend to write to:
+
+    open(SPOOLER, "| cat -v | lpr -h 2>/dev/null")
+                        || die "can't fork: $!";
+    local $SIG{PIPE} = sub { die "spooler pipe broke" };
+    print SPOOLER "stuff\n";
+    close SPOOLER       || die "bad spool: $! $?";
+
+And here's how to start up a child process you intend to read from:
+
+    open(STATUS, "netstat -an 2>&1 |")
+                        || die "can't fork: $!";
+    while (<STATUS>) {
+        next if /^(tcp|udp)/;
+        print;
+    }
+    close STATUS        || die "bad netstat: $! $?";
+
+If one can be sure that a particular program is a Perl script expecting
+filenames in @ARGV, the clever programmer can write something like this:
+
+    % program f1 "cmd1|" - f2 "cmd2|" f3 < tmpfile
+
+and no matter which sort of shell it's called from, the Perl program will
+read from the file F<f1>, the process F<cmd1>, standard input (F<tmpfile>
+in this case), the F<f2> file, the F<cmd2> command, and finally the F<f3>
+file.  Pretty nifty, eh?
+
+You might notice that you could use backticks for much the
+same effect as opening a pipe for reading:
+
+    print grep { !/^(tcp|udp)/ } `netstat -an 2>&1`;
+    die "bad netstatus ($?)" if $?;
+
+While this is true on the surface, it's much more efficient to process the
+file one line or record at a time because then you don't have to read the
+whole thing into memory at once.  It also gives you finer control of the
+whole process, letting you kill off the child process early if you'd like.
+
+Be careful to check the return values from both open() and close().  If
+you're I<writing> to a pipe, you should also trap SIGPIPE.  Otherwise,
+think of what happens when you start up a pipe to a command that doesn't
+exist: the open() will in all likelihood succeed (it only reflects the
+fork()'s success), but then your output will fail--spectacularly.  Perl
+can't know whether the command worked, because your command is actually
+running in a separate process whose exec() might have failed.  Therefore,
+while readers of bogus commands return just a quick EOF, writers
+to bogus commands will get hit with a signal, which they'd best be prepared
+to handle.  Consider:
+
+    open(FH, "|bogus")      || die "can't fork: $!";
+    print FH "bang\n";      #  neither necessary nor sufficient
+                            #  to check print retval!
+    close(FH)               || die "can't close: $!";
+
+The reason for not checking the return value from print() is because of
+pipe buffering; physical writes are delayed.  That won't blow up until the
+close, and it will blow up with a SIGPIPE.  To catch it, you could use
+this:
+
+    $SIG{PIPE} = "IGNORE";
+    open(FH, "|bogus")  || die "can't fork: $!";
+    print FH "bang\n";
+    close(FH)           || die "can't close: status=$?";
+
+=head2 Filehandles
+
+Both the main process and any child processes it forks share the same
+STDIN, STDOUT, and STDERR filehandles.  If both processes try to access
+them at once, strange things can happen.  You may also want to close
+or reopen the filehandles for the child.  You can get around this by
+opening your pipe with open(), but on some systems this means that the
+child process cannot outlive the parent.
+
+=head2 Background Processes
+
+You can run a command in the background with:
+
+    system("cmd &");
+
+The command's STDOUT and STDERR (and possibly STDIN, depending on your
+shell) will be the same as the parent's.  You won't need to catch
+SIGCHLD because of the double-fork taking place; see below for details.
+
+=head2 Complete Dissociation of Child from Parent
+
+In some cases (starting server processes, for instance) you'll want to
+completely dissociate the child process from the parent.  This is
+often called daemonization.  A well-behaved daemon will also chdir()
+to the root directory so it doesn't prevent unmounting the filesystem
+containing the directory from which it was launched, and redirect its
+standard file descriptors from and to F</dev/null> so that random
+output doesn't wind up on the user's terminal.
+
+ use POSIX "setsid";
+
+ sub daemonize {
+     chdir("/")                  || die "can't chdir to /: $!";
+     open(STDIN,  "< /dev/null") || die "can't read /dev/null: $!";
+     open(STDOUT, "> /dev/null") || die "can't write to /dev/null: $!";
+     defined(my $pid = fork())   || die "can't fork: $!";
+     exit if $pid;               # non-zero now means I am the parent
+     (setsid() != -1)            || die "Can't start a new session: $!";
+     open(STDERR, ">&STDOUT")    || die "can't dup stdout: $!";
+ }
+
+The fork() has to come before the setsid() to ensure you aren't a
+process group leader; the setsid() will fail if you are.  If your
+system doesn't have the setsid() function, open F</dev/tty> and use the
+C<TIOCNOTTY> ioctl() on it instead.  See tty(4) for details.
+
+Non-Unix users should check their C<< I<Your_OS>::Process >> module for
+other possible solutions.
+
+=head2 Safe Pipe Opens
+
+Another interesting approach to IPC is making your single program go
+multiprocess and communicate between--or even amongst--yourselves.  The
+open() function will accept a file argument of either C<"-|"> or C<"|-">
+to do a very interesting thing: it forks a child connected to the
+filehandle you've opened.  The child is running the same program as the
+parent.  This is useful for safely opening a file when running under an
+assumed UID or GID, for example.  If you open a pipe I<to> minus, you can
+write to the filehandle you opened and your kid will find it in I<his>
+STDIN.  If you open a pipe I<from> minus, you can read from the filehandle
+you opened whatever your kid writes to I<his> STDOUT.
+
+    use English;
+    my $PRECIOUS = "/path/to/some/safe/file";
+    my $sleep_count;
+    my $pid;
+
+    do {
+        $pid = open(KID_TO_WRITE, "|-");
+        unless (defined $pid) {
+            warn "cannot fork: $!";
+            die "bailing out" if $sleep_count++ > 6;
+            sleep 10;
+        }
+    } until defined $pid;
+
+    if ($pid) {                 # I am the parent
+        print KID_TO_WRITE @some_data;
+        close(KID_TO_WRITE)     || warn "kid exited $?";
+    } else {                    # I am the child
+        # drop permissions in setuid and/or setgid programs:
+        ($EUID, $EGID) = ($UID, $GID);
+        open (OUTFILE, "> $PRECIOUS")
+                                || die "can't open $PRECIOUS: $!";
+        while (<STDIN>) {
+            print OUTFILE;      # child's STDIN is parent's KID_TO_WRITE
+        }
+        close(OUTFILE)          || die "can't close $PRECIOUS: $!";
+        exit(0);                # don't forget this!!
+    }
+
+Another common use for this construct is when you need to execute
+something without the shell's interference.  With system(), it's
+straightforward, but you can't use a pipe open or backticks safely.
+That's because there's no way to stop the shell from getting its hands on
+your arguments.   Instead, use lower-level control to call exec() directly.
+
+Here's a safe backtick or pipe open for read:
+
+    my $pid = open(KID_TO_READ, "-|");
+    defined($pid)           || die "can't fork: $!";
+
+    if ($pid) {             # parent
+        while (<KID_TO_READ>) {
+                            # do something interesting
+        }
+        close(KID_TO_READ)  || warn "kid exited $?";
+
+    } else {                # child
+        ($EUID, $EGID) = ($UID, $GID); # suid only
+        exec($program, @options, @args)
+                            || die "can't exec program: $!";
+        # NOTREACHED
+    }
+
+And here's a safe pipe open for writing:
+
+    my $pid = open(KID_TO_WRITE, "|-");
+    defined($pid)           || die "can't fork: $!";
+
+    $SIG{PIPE} = sub { die "whoops, $program pipe broke" };
+
+    if ($pid) {             # parent
+        print KID_TO_WRITE @data;
+        close(KID_TO_WRITE) || warn "kid exited $?";
+
+    } else {                # child
+        ($EUID, $EGID) = ($UID, $GID);
+        exec($program, @options, @args)
+                            || die "can't exec program: $!";
+        # NOTREACHED
+    }
+
+It is very easy to dead-lock a process using this form of open(), or
+indeed with any use of pipe() with multiple subprocesses.  The
+example above is "safe" because it is simple and calls exec().  See
+L</"Avoiding Pipe Deadlocks"> for general safety principles, but there
+are extra gotchas with Safe Pipe Opens.
+
+In particular, if you opened the pipe using C<open FH, "|-">, then you
+cannot simply use close() in the parent process to close an unwanted
+writer.  Consider this code:
+
+    my $pid = open(WRITER, "|-");        # fork open a kid
+    defined($pid)               || die "first fork failed: $!";
+    if ($pid) {
+        if (my $sub_pid = fork()) {
+            defined($sub_pid)   || die "second fork failed: $!";
+            close(WRITER)       || die "couldn't close WRITER: $!";
+            # now do something else...
+        }
+        else {
+            # first write to WRITER
+            # ...
+            # then when finished
+            close(WRITER)       || die "couldn't close WRITER: $!";
+            exit(0);
+        }
+    }
+    else {
+        # first do something with STDIN, then
+        exit(0);
+    }
+
+In the example above, the true parent does not want to write to the WRITER
+filehandle, so it closes it.  However, because WRITER was opened using
+C<open FH, "|-">, it has a special behavior: closing it calls
+waitpid() (see L<perlfunc/waitpid>), which waits for the subprocess
+to exit.  If the child process ends up waiting for something happening
+in the section marked "do something else", you have deadlock.
+
+This can also be a problem with intermediate subprocesses in more
+complicated code, which will call waitpid() on all open filehandles
+during global destruction--in no predictable order.
+
+To solve this, you must manually use pipe(), fork(), and the form of
+open() which sets one file descriptor to another, as shown below:
+
+    pipe(READER, WRITER)        || die "pipe failed: $!";
+    $pid = fork();
+    defined($pid)               || die "first fork failed: $!";
+    if ($pid) {
+        close READER;
+        if (my $sub_pid = fork()) {
+            defined($sub_pid)   || die "first fork failed: $!";
+            close(WRITER)       || die "can't close WRITER: $!";
+        }
+        else {
+            # write to WRITER...
+            # ...
+            # then  when finished
+            close(WRITER)       || die "can't close WRITER: $!";
+            exit(0);
+        }
+        # write to WRITER...
+    }
+    else {
+        open(STDIN, "<&READER") || die "can't reopen STDIN: $!";
+        close(WRITER)           || die "can't close WRITER: $!";
+        # do something...
+        exit(0);
+    }
+
+Since Perl 5.8.0, you can also use the list form of C<open> for pipes.
+This is preferred when you wish to avoid having the shell interpret
+metacharacters that may be in your command string.
+
+So for example, instead of using:
+
+    open(PS_PIPE, "ps aux|")    || die "can't open ps pipe: $!";
+
+One would use either of these:
+
+    open(PS_PIPE, "-|", "ps", "aux")
+                                || die "can't open ps pipe: $!";
+
+    @ps_args = qw[ ps aux ];
+    open(PS_PIPE, "-|", @ps_args)
+                                || die "can't open @ps_args|: $!";
+
+Because there are more than three arguments to open(), forks the ps(1)
+command I<without> spawning a shell, and reads its standard output via the
+C<PS_PIPE> filehandle.  The corresponding syntax to I<write> to command
+pipes is to use C<"|-"> in place of C<"-|">.
+
+This was admittedly a rather silly example, because you're using string
+literals whose content is perfectly safe.  There is therefore no cause to
+resort to the harder-to-read, multi-argument form of pipe open().  However,
+whenever you cannot be assured that the program arguments are free of shell
+metacharacters, the fancier form of open() should be used.  For example:
+
+    @grep_args = ("egrep", "-i", $some_pattern, @many_files);
+    open(GREP_PIPE, "-|", @grep_args)
+                        || die "can't open @grep_args|: $!";
+
+Here the multi-argument form of pipe open() is preferred because the
+pattern and indeed even the filenames themselves might hold metacharacters.
+
+Be aware that these operations are full Unix forks, which means they may
+not be correctly implemented on all alien systems.
+
+=head2 Avoiding Pipe Deadlocks
+
+Whenever you have more than one subprocess, you must be careful that each
+closes whichever half of any pipes created for interprocess communication
+it is not using.  This is because any child process reading from the pipe
+and expecting an EOF will never receive it, and therefore never exit. A
+single process closing a pipe is not enough to close it; the last process
+with the pipe open must close it for it to read EOF.
+
+Certain built-in Unix features help prevent this most of the time.  For
+instance, filehandles have a "close on exec" flag, which is set I<en masse>
+under control of the C<$^F> variable.  This is so any filehandles you
+didn't explicitly route to the STDIN, STDOUT or STDERR of a child
+I<program> will be automatically closed.
+
+Always explicitly and immediately call close() on the writable end of any
+pipe, unless that process is actually writing to it.  Even if you don't
+explicitly call close(), Perl will still close() all filehandles during
+global destruction.  As previously discussed, if those filehandles have
+been opened with Safe Pipe Open, this will result in calling waitpid(),
+which may again deadlock.
+
+=head2 Bidirectional Communication with Another Process
+
+While this works reasonably well for unidirectional communication, what
+about bidirectional communication?  The most obvious approach doesn't work:
+
+    # THIS DOES NOT WORK!!
+    open(PROG_FOR_READING_AND_WRITING, "| some program |")
+
+If you forget to C<use warnings>, you'll miss out entirely on the
+helpful diagnostic message:
+
+    Can't do bidirectional pipe at -e line 1.
+
+If you really want to, you can use the standard open2() from the
+C<IPC::Open2> module to catch both ends.  There's also an open3() in
+C<IPC::Open3> for tridirectional I/O so you can also catch your child's
+STDERR, but doing so would then require an awkward select() loop and
+wouldn't allow you to use normal Perl input operations.
+
+If you look at its source, you'll see that open2() uses low-level
+primitives like the pipe() and exec() syscalls to create all the
+connections.  Although it might have been more efficient by using
+socketpair(), this would have been even less portable than it already
+is. The open2() and open3() functions are unlikely to work anywhere
+except on a Unix system, or at least one purporting POSIX compliance.
+
+=for TODO
+Hold on, is this even true?  First it says that socketpair() is avoided
+for portability, but then it says it probably won't work except on
+Unixy systems anyway.  Which one of those is true?
+
+Here's an example of using open2():
+
+    use FileHandle;
+    use IPC::Open2;
+    $pid = open2(*Reader, *Writer, "cat -un");
+    print Writer "stuff\n";
+    $got = <Reader>;
+
+The problem with this is that buffering is really going to ruin your
+day.  Even though your C<Writer> filehandle is auto-flushed so the process
+on the other end gets your data in a timely manner, you can't usually do
+anything to force that process to give its data to you in a similarly quick
+fashion.  In this special case, we could actually so, because we gave
+I<cat> a B<-u> flag to make it unbuffered.  But very few commands are
+designed to operate over pipes, so this seldom works unless you yourself
+wrote the program on the other end of the double-ended pipe.
+
+A solution to this is to use a library which uses pseudottys to make your
+program behave more reasonably.  This way you don't have to have control
+over the source code of the program you're using.  The C<Expect> module
+from CPAN also addresses this kind of thing.  This module requires two
+other modules from CPAN, C<IO::Pty> and C<IO::Stty>.  It sets up a pseudo
+terminal to interact with programs that insist on talking to the terminal
+device driver.  If your system is supported, this may be your best bet.
+
+=head2 Bidirectional Communication with Yourself
+
+If you want, you may make low-level pipe() and fork() syscalls to stitch
+this together by hand.  This example only talks to itself, but you could
+reopen the appropriate handles to STDIN and STDOUT and call other processes.
+(The following example lacks proper error checking.)
+
+ #!/usr/bin/perl -w
+ # pipe1 - bidirectional communication using two pipe pairs
+ #         designed for the socketpair-challenged
+ use IO::Handle;             # thousands of lines just for autoflush :-(
+ pipe(PARENT_RDR, CHILD_WTR);  # XXX: check failure?
+ pipe(CHILD_RDR,  PARENT_WTR); # XXX: check failure?
+ CHILD_WTR->autoflush(1);
+ PARENT_WTR->autoflush(1);
+
+ if ($pid = fork()) {
+     close PARENT_RDR;
+     close PARENT_WTR;
+     print CHILD_WTR "Parent Pid $$ is sending this\n";
+     chomp($line = <CHILD_RDR>);
+     print "Parent Pid $$ just read this: '$line'\n";
+     close CHILD_RDR; close CHILD_WTR;
+     waitpid($pid, 0);
+ } else {
+     die "cannot fork: $!" unless defined $pid;
+     close CHILD_RDR;
+     close CHILD_WTR;
+     chomp($line = <PARENT_RDR>);
+     print "Child Pid $$ just read this: '$line'\n";
+     print PARENT_WTR "Child Pid $$ is sending this\n";
+     close PARENT_RDR;
+     close PARENT_WTR;
+     exit(0);
+ }
+
+But you don't actually have to make two pipe calls.  If you
+have the socketpair() system call, it will do this all for you.
+
+ #!/usr/bin/perl -w
+ # pipe2 - bidirectional communication using socketpair
+ #   "the best ones always go both ways"
+
+ use Socket;
+ use IO::Handle;  # thousands of lines just for autoflush :-(
+
+ # We say AF_UNIX because although *_LOCAL is the
+ # POSIX 1003.1g form of the constant, many machines
+ # still don't have it.
+ socketpair(CHILD, PARENT, AF_UNIX, SOCK_STREAM, PF_UNSPEC)
+                             ||  die "socketpair: $!";
+
+ CHILD->autoflush(1);
+ PARENT->autoflush(1);
+
+ if ($pid = fork()) {
+     close PARENT;
+     print CHILD "Parent Pid $$ is sending this\n";
+     chomp($line = <CHILD>);
+     print "Parent Pid $$ just read this: '$line'\n";
+     close CHILD;
+     waitpid($pid, 0);
+ } else {
+     die "cannot fork: $!" unless defined $pid;
+     close CHILD;
+     chomp($line = <PARENT>);
+     print "Child Pid $$ just read this: '$line'\n";
+     print PARENT "Child Pid $$ is sending this\n";
+     close PARENT;
+     exit(0);
+ }
+
+=head1 Sockets: Client/Server Communication
+
+While not entirely limited to Unix-derived operating systems (e.g., WinSock
+on PCs provides socket support, as do some VMS libraries), you might not have
+sockets on your system, in which case this section probably isn't going to
+do you much good.  With sockets, you can do both virtual circuits like TCP
+streams and datagrams like UDP packets.  You may be able to do even more
+depending on your system.
+
+The Perl functions for dealing with sockets have the same names as
+the corresponding system calls in C, but their arguments tend to differ
+for two reasons.  First, Perl filehandles work differently than C file
+descriptors.  Second, Perl already knows the length of its strings, so you
+don't need to pass that information.
+
+One of the major problems with ancient, antemillennial socket code in Perl
+was that it used hard-coded values for some of the constants, which
+severely hurt portability.  If you ever see code that does anything like
+explicitly setting C<$AF_INET = 2>, you know you're in for big trouble.
+An immeasurably superior approach is to use the C<Socket> module, which more
+reliably grants access to the various constants and functions you'll need.
+
+If you're not writing a server/client for an existing protocol like
+NNTP or SMTP, you should give some thought to how your server will
+know when the client has finished talking, and vice-versa.  Most
+protocols are based on one-line messages and responses (so one party
+knows the other has finished when a "\n" is received) or multi-line
+messages and responses that end with a period on an empty line
+("\n.\n" terminates a message/response).
+
+=head2 Internet Line Terminators
+
+The Internet line terminator is "\015\012".  Under ASCII variants of
+Unix, that could usually be written as "\r\n", but under other systems,
+"\r\n" might at times be "\015\015\012", "\012\012\015", or something
+completely different.  The standards specify writing "\015\012" to be
+conformant (be strict in what you provide), but they also recommend
+accepting a lone "\012" on input (be lenient in what you require).
+We haven't always been very good about that in the code in this manpage,
+but unless you're on a Mac from way back in its pre-Unix dark ages, you'll
+probably be ok.
+
+=head2 Internet TCP Clients and Servers
+
+Use Internet-domain sockets when you want to do client-server
+communication that might extend to machines outside of your own system.
+
+Here's a sample TCP client using Internet-domain sockets:
+
+    #!/usr/bin/perl -w
+    use strict;
+    use Socket;
+    my ($remote, $port, $iaddr, $paddr, $proto, $line);
+
+    $remote  = shift || "localhost";
+    $port    = shift || 2345;  # random port
+    if ($port =~ /\D/) { $port = getservbyname($port, "tcp") }
+    die "No port" unless $port;
+    $iaddr   = inet_aton($remote)       || die "no host: $remote";
+    $paddr   = sockaddr_in($port, $iaddr);
+
+    $proto   = getprotobyname("tcp");
+    socket(SOCK, PF_INET, SOCK_STREAM, $proto)  || die "socket: $!";
+    connect(SOCK, $paddr)               || die "connect: $!";
+    while ($line = <SOCK>) {
+        print $line;
+    }
+
+    close (SOCK)                        || die "close: $!";
+    exit(0);
+
+And here's a corresponding server to go along with it.  We'll
+leave the address as C<INADDR_ANY> so that the kernel can choose
+the appropriate interface on multihomed hosts.  If you want sit
+on a particular interface (like the external side of a gateway
+or firewall machine), fill this in with your real address instead.
+
+ #!/usr/bin/perl -Tw
+ use strict;
+ BEGIN { $ENV{PATH} = "/usr/bin:/bin" }
+ use Socket;
+ use Carp;
+ my $EOL = "\015\012";
+
+ sub logmsg { print "$0 $$: @_ at ", scalar localtime(), "\n" }
+
+ my $port  = shift || 2345;
+ die "invalid port" unless $port =~ /^ \d+ $/x;
+
+ my $proto = getprotobyname("tcp");
+
+ socket(Server, PF_INET, SOCK_STREAM, $proto)   || die "socket: $!";
+ setsockopt(Server, SOL_SOCKET, SO_REUSEADDR, pack("l", 1))
+                                                || die "setsockopt: $!";
+ bind(Server, sockaddr_in($port, INADDR_ANY))   || die "bind: $!";
+ listen(Server, SOMAXCONN)                      || die "listen: $!";
+
+ logmsg "server started on port $port";
+
+ my $paddr;
+
+ for ( ; $paddr = accept(Client, Server); close Client) {
+     my($port, $iaddr) = sockaddr_in($paddr);
+     my $name = gethostbyaddr($iaddr, AF_INET);
+
+     logmsg "connection from $name [",
+             inet_ntoa($iaddr), "]
+             at port $port";
+
+     print Client "Hello there, $name, it's now ",
+                     scalar localtime(), $EOL;
+ }
+
+And here's a multitasking version.  It's multitasked in that
+like most typical servers, it spawns (fork()s) a slave server to
+handle the client request so that the master server can quickly
+go back to service a new client.
+
+ #!/usr/bin/perl -Tw
+ use strict;
+ BEGIN { $ENV{PATH} = "/usr/bin:/bin" }
+ use Socket;
+ use Carp;
+ my $EOL = "\015\012";
+
+ sub spawn;  # forward declaration
+ sub logmsg { print "$0 $$: @_ at ", scalar localtime(), "\n" }
+
+ my $port  = shift || 2345;
+ die "invalid port" unless $port =~ /^ \d+ $/x;
+
+ my $proto = getprotobyname("tcp");
+
+ socket(Server, PF_INET, SOCK_STREAM, $proto)   || die "socket: $!";
+ setsockopt(Server, SOL_SOCKET, SO_REUSEADDR, pack("l", 1))
+                                                || die "setsockopt: $!";
+ bind(Server, sockaddr_in($port, INADDR_ANY))   || die "bind: $!";
+ listen(Server, SOMAXCONN)                      || die "listen: $!";
+
+ logmsg "server started on port $port";
+
+ my $waitedpid = 0;
+ my $paddr;
+
+ use POSIX ":sys_wait_h";
+ use Errno;
+
+ sub REAPER {
+     local $!;   # don't let waitpid() overwrite current error
+     while ((my $pid = waitpid(-1, WNOHANG)) > 0 && WIFEXITED($?)) {
+         logmsg "reaped $waitedpid" . ($? ? " with exit $?" : "");
+     }
+     $SIG{CHLD} = \&REAPER;  # loathe SysV
+ }
+
+ $SIG{CHLD} = \&REAPER;
+
+ while (1) {
+     $paddr = accept(Client, Server) || do {
+         # try again if accept() returned because got a signal
+         next if $!{EINTR};
+         die "accept: $!";
+     };
+     my ($port, $iaddr) = sockaddr_in($paddr);
+     my $name = gethostbyaddr($iaddr, AF_INET);
+
+     logmsg "connection from $name [",
+            inet_ntoa($iaddr),
+            "] at port $port";
+
+     spawn sub {
+         $| = 1;
+         print "Hello there, $name, it's now ",
+               scalar localtime(),
+               $EOL;
+         exec "/usr/games/fortune"       # XXX: "wrong" line terminators
+             or confess "can't exec fortune: $!";
+     };
+     close Client;
+ }
+
+ sub spawn {
+     my $coderef = shift;
+
+     unless (@_ == 0 && $coderef && ref($coderef) eq "CODE") {
+         confess "usage: spawn CODEREF";
+     }
+
+     my $pid;
+     unless (defined($pid = fork())) {
+         logmsg "cannot fork: $!";
+         return;
+     }
+     elsif ($pid) {
+         logmsg "begat $pid";
+         return; # I'm the parent
+     }
+     # else I'm the child -- go spawn
+
+     open(STDIN,  "<&Client")    || die "can't dup client to stdin";
+     open(STDOUT, ">&Client")    || die "can't dup client to stdout";
+     ## open(STDERR, ">&STDOUT") || die "can't dup stdout to stderr";
+     exit($coderef->());
+ }
+
+This server takes the trouble to clone off a child version via fork()
+for each incoming request.  That way it can handle many requests at
+once, which you might not always want.  Even if you don't fork(), the
+listen() will allow that many pending connections.  Forking servers
+have to be particularly careful about cleaning up their dead children
+(called "zombies" in Unix parlance), because otherwise you'll quickly
+fill up your process table.  The REAPER subroutine is used here to
+call waitpid() for any child processes that have finished, thereby
+ensuring that they terminate cleanly and don't join the ranks of the
+living dead.
+
+Within the while loop we call accept() and check to see if it returns
+a false value.  This would normally indicate a system error needs
+to be reported.  However, the introduction of safe signals (see
+L</Deferred Signals (Safe Signals)> above) in Perl 5.8.0 means that
+accept() might also be interrupted when the process receives a signal.
+This typically happens when one of the forked subprocesses exits and
+notifies the parent process with a CHLD signal.
+
+If accept() is interrupted by a signal, $! will be set to EINTR.
+If this happens, we can safely continue to the next iteration of
+the loop and another call to accept().  It is important that your
+signal handling code not modify the value of $!, or else this test
+will likely fail.  In the REAPER subroutine we create a local version
+of $! before calling waitpid().  When waitpid() sets $! to ECHILD as
+it inevitably does when it has no more children waiting, it
+updates the local copy and leaves the original unchanged.
+
+You should use the B<-T> flag to enable taint checking (see L<perlsec>)
+even if we aren't running setuid or setgid.  This is always a good idea
+for servers or any program run on behalf of someone else (like CGI
+scripts), because it lessens the chances that people from the outside will
+be able to compromise your system.
+
+Let's look at another TCP client.  This one connects to the TCP "time"
+service on a number of different machines and shows how far their clocks
+differ from the system on which it's being run:
+
+    #!/usr/bin/perl  -w
+    use strict;
+    use Socket;
+
+    my $SECS_OF_70_YEARS = 2208988800;
+    sub ctime { scalar localtime(shift() || time()) }
+
+    my $iaddr = gethostbyname("localhost");
+    my $proto = getprotobyname("tcp");
+    my $port = getservbyname("time", "tcp");
+    my $paddr = sockaddr_in(0, $iaddr);
+    my($host);
+
+    $| = 1;
+    printf "%-24s %8s %s\n", "localhost", 0, ctime();
+
+    foreach $host (@ARGV) {
+        printf "%-24s ", $host;
+        my $hisiaddr = inet_aton($host)     || die "unknown host";
+        my $hispaddr = sockaddr_in($port, $hisiaddr);
+        socket(SOCKET, PF_INET, SOCK_STREAM, $proto)
+                                            || die "socket: $!";
+        connect(SOCKET, $hispaddr)          || die "connect: $!";
+        my $rtime = pack("C4", ());
+        read(SOCKET, $rtime, 4);
+        close(SOCKET);
+        my $histime = unpack("N", $rtime) - $SECS_OF_70_YEARS;
+        printf "%8d %s\n", $histime - time(), ctime($histime);
+    }
+
+=head2 Unix-Domain TCP Clients and Servers
+
+That's fine for Internet-domain clients and servers, but what about local
+communications?  While you can use the same setup, sometimes you don't
+want to.  Unix-domain sockets are local to the current host, and are often
+used internally to implement pipes.  Unlike Internet domain sockets, Unix
+domain sockets can show up in the file system with an ls(1) listing.
+
+    % ls -l /dev/log
+    srw-rw-rw-  1 root            0 Oct 31 07:23 /dev/log
+
+You can test for these with Perl's B<-S> file test:
+
+    unless (-S "/dev/log") {
+        die "something's wicked with the log system";
+    }
+
+Here's a sample Unix-domain client:
+
+    #!/usr/bin/perl -w
+    use Socket;
+    use strict;
+    my ($rendezvous, $line);
+
+    $rendezvous = shift || "catsock";
+    socket(SOCK, PF_UNIX, SOCK_STREAM, 0)     || die "socket: $!";
+    connect(SOCK, sockaddr_un($rendezvous))   || die "connect: $!";
+    while (defined($line = <SOCK>)) {
+        print $line;
+    }
+    exit(0);
+
+And here's a corresponding server.  You don't have to worry about silly
+network terminators here because Unix domain sockets are guaranteed
+to be on the localhost, and thus everything works right.
+
+    #!/usr/bin/perl -Tw
+    use strict;
+    use Socket;
+    use Carp;
+
+    BEGIN { $ENV{PATH} = "/usr/bin:/bin" }
+    sub spawn;  # forward declaration
+    sub logmsg { print "$0 $$: @_ at ", scalar localtime(), "\n" }
+
+    my $NAME = "catsock";
+    my $uaddr = sockaddr_un($NAME);
+    my $proto = getprotobyname("tcp");
+
+    socket(Server, PF_UNIX, SOCK_STREAM, 0) || die "socket: $!";
+    unlink($NAME);
+    bind  (Server, $uaddr)                  || die "bind: $!";
+    listen(Server, SOMAXCONN)               || die "listen: $!";
+
+    logmsg "server started on $NAME";
+
+    my $waitedpid;
+
+    use POSIX ":sys_wait_h";
+    sub REAPER {
+        my $child;
+        while (($waitedpid = waitpid(-1, WNOHANG)) > 0) {
+            logmsg "reaped $waitedpid" . ($? ? " with exit $?" : "");
+        }
+        $SIG{CHLD} = \&REAPER;  # loathe SysV
+    }
+
+    $SIG{CHLD} = \&REAPER;
+
+
+    for ( $waitedpid = 0;
+          accept(Client, Server) || $waitedpid;
+          $waitedpid = 0, close Client)
+    {
+        next if $waitedpid;
+        logmsg "connection on $NAME";
+        spawn sub {
+            print "Hello there, it's now ", scalar localtime(), "\n";
+            exec("/usr/games/fortune")  || die "can't exec fortune: $!";
+        };
+    }
+
+    sub spawn {
+        my $coderef = shift();
+
+        unless (@_ == 0 && $coderef && ref($coderef) eq "CODE") {
+            confess "usage: spawn CODEREF";
+        }
+
+        my $pid;
+        unless (defined($pid = fork())) {
+            logmsg "cannot fork: $!";
+            return;
+        }
+        elsif ($pid) {
+            logmsg "begat $pid";
+            return; # I'm the parent
+        }
+        else {
+            # I'm the child -- go spawn
+        }
+
+        open(STDIN,  "<&Client")    || die "can't dup client to stdin";
+        open(STDOUT, ">&Client")    || die "can't dup client to stdout";
+        ## open(STDERR, ">&STDOUT") || die "can't dup stdout to stderr";
+        exit($coderef->());
+    }
+
+As you see, it's remarkably similar to the Internet domain TCP server, so
+much so, in fact, that we've omitted several duplicate functions--spawn(),
+logmsg(), ctime(), and REAPER()--which are the same as in the other server.
+
+So why would you ever want to use a Unix domain socket instead of a
+simpler named pipe?  Because a named pipe doesn't give you sessions.  You
+can't tell one process's data from another's.  With socket programming,
+you get a separate session for each client; that's why accept() takes two
+arguments.
+
+For example, let's say that you have a long-running database server daemon
+that you want folks to be able to access from the Web, but only
+if they go through a CGI interface.  You'd have a small, simple CGI
+program that does whatever checks and logging you feel like, and then acts
+as a Unix-domain client and connects to your private server.
+
+=head1 TCP Clients with IO::Socket
+
+For those preferring a higher-level interface to socket programming, the
+IO::Socket module provides an object-oriented approach.  If for some reason
+you lack this module, you can just fetch IO::Socket from CPAN, where you'll also
+find modules providing easy interfaces to the following systems: DNS, FTP,
+Ident (RFC 931), NIS and NISPlus, NNTP, Ping, POP3, SMTP, SNMP, SSLeay,
+Telnet, and Time--to name just a few.
+
+=head2 A Simple Client
+
+Here's a client that creates a TCP connection to the "daytime"
+service at port 13 of the host name "localhost" and prints out everything
+that the server there cares to provide.
+
+    #!/usr/bin/perl -w
+    use IO::Socket;
+    $remote = IO::Socket::INET->new(
+                        Proto    => "tcp",
+                        PeerAddr => "localhost",
+                        PeerPort => "daytime(13)",
+                    )
+                 || die "can't connect to daytime service on localhost";
+    while (<$remote>) { print }
+
+When you run this program, you should get something back that
+looks like this:
+
+    Wed May 14 08:40:46 MDT 1997
+
+Here are what those parameters to the new() constructor mean:
+
+=over 4
+
+=item C<Proto>
+
+This is which protocol to use.  In this case, the socket handle returned
+will be connected to a TCP socket, because we want a stream-oriented
+connection, that is, one that acts pretty much like a plain old file.
+Not all sockets are this of this type.  For example, the UDP protocol
+can be used to make a datagram socket, used for message-passing.
+
+=item C<PeerAddr>
+
+This is the name or Internet address of the remote host the server is
+running on.  We could have specified a longer name like C<"www.perl.com">,
+or an address like C<"207.171.7.72">.  For demonstration purposes, we've
+used the special hostname C<"localhost">, which should always mean the
+current machine you're running on.  The corresponding Internet address
+for localhost is C<"127.0.0.1">, if you'd rather use that.
+
+=item C<PeerPort>
+
+This is the service name or port number we'd like to connect to.
+We could have gotten away with using just C<"daytime"> on systems with a
+well-configured system services file,[FOOTNOTE: The system services file
+is found in I</etc/services> under Unixy systems.] but here we've specified the
+port number (13) in parentheses.  Using just the number would have also
+worked, but numeric literals make careful programmers nervous.
+
+=back
+
+Notice how the return value from the C<new> constructor is used as
+a filehandle in the C<while> loop?  That's what's called an I<indirect
+filehandle>, a scalar variable containing a filehandle.  You can use
+it the same way you would a normal filehandle.  For example, you
+can read one line from it this way:
+
+    $line = <$handle>;
+
+all remaining lines from is this way:
+
+    @lines = <$handle>;
+
+and send a line of data to it this way:
+
+    print $handle "some data\n";
+
+=head2 A Webget Client
+
+Here's a simple client that takes a remote host to fetch a document
+from, and then a list of files to get from that host.  This is a
+more interesting client than the previous one because it first sends
+something to the server before fetching the server's response.
+
+    #!/usr/bin/perl -w
+    use IO::Socket;
+    unless (@ARGV > 1) { die "usage: $0 host url ..." }
+    $host = shift(@ARGV);
+    $EOL = "\015\012";
+    $BLANK = $EOL x 2;
+    for my $document (@ARGV) {
+        $remote = IO::Socket::INET->new( Proto     => "tcp",
+                                         PeerAddr  => $host,
+                                         PeerPort  => "http(80)",
+                  )     || die "cannot connect to httpd on $host";
+        $remote->autoflush(1);
+        print $remote "GET $document HTTP/1.0" . $BLANK;
+        while ( <$remote> ) { print }
+        close $remote;
+    }
+
+The web server handling the HTTP service is assumed to be at
+its standard port, number 80.  If the server you're trying to
+connect to is at a different port, like 1080 or 8080, you should specify it
+as the named-parameter pair, C<< PeerPort => 8080 >>.  The C<autoflush>
+method is used on the socket because otherwise the system would buffer
+up the output we sent it.  (If you're on a prehistoric Mac, you'll also
+need to change every C<"\n"> in your code that sends data over the network
+to be a C<"\015\012"> instead.)
+
+Connecting to the server is only the first part of the process: once you
+have the connection, you have to use the server's language.  Each server
+on the network has its own little command language that it expects as
+input.  The string that we send to the server starting with "GET" is in
+HTTP syntax.  In this case, we simply request each specified document.
+Yes, we really are making a new connection for each document, even though
+it's the same host.  That's the way you always used to have to speak HTTP.
+Recent versions of web browsers may request that the remote server leave
+the connection open a little while, but the server doesn't have to honor
+such a request.
+
+Here's an example of running that program, which we'll call I<webget>:
+
+    % webget www.perl.com /guanaco.html
+    HTTP/1.1 404 File Not Found
+    Date: Thu, 08 May 1997 18:02:32 GMT
+    Server: Apache/1.2b6
+    Connection: close
+    Content-type: text/html
+
+    <HEAD><TITLE>404 File Not Found</TITLE></HEAD>
+    <BODY><H1>File Not Found</H1>
+    The requested URL /guanaco.html was not found on this server.<P>
+    </BODY>
+
+Ok, so that's not very interesting, because it didn't find that
+particular document.  But a long response wouldn't have fit on this page.
+
+For a more featureful version of this program, you should look to
+the I<lwp-request> program included with the LWP modules from CPAN.
+
+=head2 Interactive Client with IO::Socket
+
+Well, that's all fine if you want to send one command and get one answer,
+but what about setting up something fully interactive, somewhat like
+the way I<telnet> works?  That way you can type a line, get the answer,
+type a line, get the answer, etc.
+
+This client is more complicated than the two we've done so far, but if
+you're on a system that supports the powerful C<fork> call, the solution
+isn't that rough.  Once you've made the connection to whatever service
+you'd like to chat with, call C<fork> to clone your process.  Each of
+these two identical process has a very simple job to do: the parent
+copies everything from the socket to standard output, while the child
+simultaneously copies everything from standard input to the socket.
+To accomplish the same thing using just one process would be I<much>
+harder, because it's easier to code two processes to do one thing than it
+is to code one process to do two things.  (This keep-it-simple principle
+a cornerstones of the Unix philosophy, and good software engineering as
+well, which is probably why it's spread to other systems.)
+
+Here's the code:
+
+    #!/usr/bin/perl -w
+    use strict;
+    use IO::Socket;
+    my ($host, $port, $kidpid, $handle, $line);
+
+    unless (@ARGV == 2) { die "usage: $0 host port" }
+    ($host, $port) = @ARGV;
+
+    # create a tcp connection to the specified host and port
+    $handle = IO::Socket::INET->new(Proto     => "tcp",
+                                    PeerAddr  => $host,
+                                    PeerPort  => $port)
+               || die "can't connect to port $port on $host: $!";
+
+    $handle->autoflush(1);       # so output gets there right away
+    print STDERR "[Connected to $host:$port]\n";
+
+    # split the program into two processes, identical twins
+    die "can't fork: $!" unless defined($kidpid = fork());
+
+    # the if{} block runs only in the parent process
+    if ($kidpid) {
+        # copy the socket to standard output
+        while (defined ($line = <$handle>)) {
+            print STDOUT $line;
+        }
+        kill("TERM", $kidpid);   # send SIGTERM to child
+    }
+    # the else{} block runs only in the child process
+    else {
+        # copy standard input to the socket
+        while (defined ($line = <STDIN>)) {
+            print $handle $line;
+        }
+        exit(0);                # just in case
+    }
+
+The C<kill> function in the parent's C<if> block is there to send a
+signal to our child process, currently running in the C<else> block,
+as soon as the remote server has closed its end of the connection.
+
+If the remote server sends data a byte at time, and you need that
+data immediately without waiting for a newline (which might not happen),
+you may wish to replace the C<while> loop in the parent with the
+following:
+
+    my $byte;
+    while (sysread($handle, $byte, 1) == 1) {
+        print STDOUT $byte;
+    }
+
+Making a system call for each byte you want to read is not very efficient
+(to put it mildly) but is the simplest to explain and works reasonably
+well.
+
+=head1 TCP Servers with IO::Socket
+
+As always, setting up a server is little bit more involved than running a client.
+The model is that the server creates a special kind of socket that
+does nothing but listen on a particular port for incoming connections.
+It does this by calling the C<< IO::Socket::INET->new() >> method with
+slightly different arguments than the client did.
+
+=over 4
+
+=item Proto
+
+This is which protocol to use.  Like our clients, we'll
+still specify C<"tcp"> here.
+
+=item LocalPort
+
+We specify a local
+port in the C<LocalPort> argument, which we didn't do for the client.
+This is service name or port number for which you want to be the
+server. (Under Unix, ports under 1024 are restricted to the
+superuser.)  In our sample, we'll use port 9000, but you can use
+any port that's not currently in use on your system.  If you try
+to use one already in used, you'll get an "Address already in use"
+message.  Under Unix, the C<netstat -a> command will show
+which services current have servers.
+
+=item Listen
+
+The C<Listen> parameter is set to the maximum number of
+pending connections we can accept until we turn away incoming clients.
+Think of it as a call-waiting queue for your telephone.
+The low-level Socket module has a special symbol for the system maximum, which
+is SOMAXCONN.
+
+=item Reuse
+
+The C<Reuse> parameter is needed so that we restart our server
+manually without waiting a few minutes to allow system buffers to
+clear out.
+
+=back
+
+Once the generic server socket has been created using the parameters
+listed above, the server then waits for a new client to connect
+to it.  The server blocks in the C<accept> method, which eventually accepts a
+bidirectional connection from the remote client.  (Make sure to autoflush
+this handle to circumvent buffering.)
+
+To add to user-friendliness, our server prompts the user for commands.
+Most servers don't do this.  Because of the prompt without a newline,
+you'll have to use the C<sysread> variant of the interactive client above.
+
+This server accepts one of five different commands, sending output back to
+the client.  Unlike most network servers, this one handles only one
+incoming client at a time.  Multitasking servers are covered in
+Chapter 16 of the Camel.
+
+Here's the code.  We'll
+
+ #!/usr/bin/perl -w
+ use IO::Socket;
+ use Net::hostent;      # for OOish version of gethostbyaddr
+
+ $PORT = 9000;          # pick something not in use
+
+ $server = IO::Socket::INET->new( Proto     => "tcp",
+                                  LocalPort => $PORT,
+                                  Listen    => SOMAXCONN,
+                                  Reuse     => 1);
+
+ die "can't setup server" unless $server;
+ print "[Server $0 accepting clients]\n";
+
+ while ($client = $server->accept()) {
+   $client->autoflush(1);
+   print $client "Welcome to $0; type help for command list.\n";
+   $hostinfo = gethostbyaddr($client->peeraddr);
+   printf "[Connect from %s]\n",
+          $hostinfo ? $hostinfo->name : $client->peerhost;
+   print $client "Command? ";
+   while ( <$client>) {
+     next unless /\S/;     # blank line
+     if    (/quit|exit/i)  { last                                      }
+     elsif (/date|time/i)  { printf $client "%s\n", scalar localtime() }
+     elsif (/who/i )       { print  $client `who 2>&1`                 }
+     elsif (/cookie/i )    { print  $client `/usr/games/fortune 2>&1`  }
+     elsif (/motd/i )      { print  $client `cat /etc/motd 2>&1`       }
+     else {
+       print $client "Commands: quit date who cookie motd\n";
+     }
+   } continue {
+      print $client "Command? ";
+   }
+   close $client;
+ }
+
+=head1 UDP: Message Passing
+
+Another kind of client-server setup is one that uses not connections, but
+messages.  UDP communications involve much lower overhead but also provide
+less reliability, as there are no promises that messages will arrive at
+all, let alone in order and unmangled.  Still, UDP offers some advantages
+over TCP, including being able to "broadcast" or "multicast" to a whole
+bunch of destination hosts at once (usually on your local subnet).  If you
+find yourself overly concerned about reliability and start building checks
+into your message system, then you probably should use just TCP to start
+with.
+
+UDP datagrams are I<not> a bytestream and should not be treated as such.
+This makes using I/O mechanisms with internal buffering like stdio (i.e.
+print() and friends) especially cumbersome. Use syswrite(), or better
+send(), like in the example below.
+
+Here's a UDP program similar to the sample Internet TCP client given
+earlier.  However, instead of checking one host at a time, the UDP version
+will check many of them asynchronously by simulating a multicast and then
+using select() to do a timed-out wait for I/O.  To do something similar
+with TCP, you'd have to use a different socket handle for each host.
+
+ #!/usr/bin/perl -w
+ use strict;
+ use Socket;
+ use Sys::Hostname;
+
+ my ( $count, $hisiaddr, $hispaddr, $histime,
+      $host, $iaddr, $paddr, $port, $proto,
+      $rin, $rout, $rtime, $SECS_OF_70_YEARS);
+
+ $SECS_OF_70_YEARS = 2_208_988_800;
+
+ $iaddr = gethostbyname(hostname());
+ $proto = getprotobyname("udp");
+ $port = getservbyname("time", "udp");
+ $paddr = sockaddr_in(0, $iaddr); # 0 means let kernel pick
+
+ socket(SOCKET, PF_INET, SOCK_DGRAM, $proto)   || die "socket: $!";
+ bind(SOCKET, $paddr)                          || die "bind: $!";
+
+ $| = 1;
+ printf "%-12s %8s %s\n",  "localhost", 0, scalar localtime();
+ $count = 0;
+ for $host (@ARGV) {
+     $count++;
+     $hisiaddr = inet_aton($host)              || die "unknown host";
+     $hispaddr = sockaddr_in($port, $hisiaddr);
+     defined(send(SOCKET, 0, 0, $hispaddr))    || die "send $host: $!";
+ }
+
+ $rin = "";
+ vec($rin, fileno(SOCKET), 1) = 1;
+
+ # timeout after 10.0 seconds
+ while ($count && select($rout = $rin, undef, undef, 10.0)) {
+     $rtime = "";
+     $hispaddr = recv(SOCKET, $rtime, 4, 0)    || die "recv: $!";
+     ($port, $hisiaddr) = sockaddr_in($hispaddr);
+     $host = gethostbyaddr($hisiaddr, AF_INET);
+     $histime = unpack("N", $rtime) - $SECS_OF_70_YEARS;
+     printf "%-12s ", $host;
+     printf "%8d %s\n", $histime - time(), scalar localtime($histime);
+     $count--;
+ }
+
+This example does not include any retries and may consequently fail to
+contact a reachable host. The most prominent reason for this is congestion
+of the queues on the sending host if the number of hosts to contact is
+sufficiently large.
+
+=head1 SysV IPC
+
+While System V IPC isn't so widely used as sockets, it still has some
+interesting uses.  However, you cannot use SysV IPC or Berkeley mmap() to
+have a variable shared amongst several processes.  That's because Perl
+would reallocate your string when you weren't wanting it to.  You might
+look into the C<IPC::Shareable> or C<threads::shared> modules for that.
+
+Here's a small example showing shared memory usage.
+
+    use IPC::SysV qw(IPC_PRIVATE IPC_RMID S_IRUSR S_IWUSR);
+
+    $size = 2000;
+    $id = shmget(IPC_PRIVATE, $size, S_IRUSR | S_IWUSR);
+    defined($id)                    || die "shmget: $!";
+    print "shm key $id\n";
+
+    $message = "Message #1";
+    shmwrite($id, $message, 0, 60)  || die "shmwrite: $!";
+    print "wrote: '$message'\n";
+    shmread($id, $buff, 0, 60)      || die "shmread: $!";
+    print "read : '$buff'\n";
+
+    # the buffer of shmread is zero-character end-padded.
+    substr($buff, index($buff, "\0")) = "";
+    print "un" unless $buff eq $message;
+    print "swell\n";
+
+    print "deleting shm $id\n";
+    shmctl($id, IPC_RMID, 0)        || die "shmctl: $!";
+
+Here's an example of a semaphore:
+
+    use IPC::SysV qw(IPC_CREAT);
+
+    $IPC_KEY = 1234;
+    $id = semget($IPC_KEY, 10, 0666 | IPC_CREAT);
+    defined($id)                    || die "semget: $!";
+    print "sem id $id\n";
+
+Put this code in a separate file to be run in more than one process.
+Call the file F<take>:
+
+    # create a semaphore
+
+    $IPC_KEY = 1234;
+    $id = semget($IPC_KEY, 0, 0);
+    defined($id)                    || die "semget: $!";
+
+    $semnum  = 0;
+    $semflag = 0;
+
+    # "take" semaphore
+    # wait for semaphore to be zero
+    $semop = 0;
+    $opstring1 = pack("s!s!s!", $semnum, $semop, $semflag);
+
+    # Increment the semaphore count
+    $semop = 1;
+    $opstring2 = pack("s!s!s!", $semnum, $semop,  $semflag);
+    $opstring  = $opstring1 . $opstring2;
+
+    semop($id, $opstring)   || die "semop: $!";
+
+Put this code in a separate file to be run in more than one process.
+Call this file F<give>:
+
+    # "give" the semaphore
+    # run this in the original process and you will see
+    # that the second process continues
+
+    $IPC_KEY = 1234;
+    $id = semget($IPC_KEY, 0, 0);
+    die unless defined($id);
+
+    $semnum  = 0;
+    $semflag = 0;
+
+    # Decrement the semaphore count
+    $semop = -1;
+    $opstring = pack("s!s!s!", $semnum, $semop, $semflag);
+
+    semop($id, $opstring)   || die "semop: $!";
+
+The SysV IPC code above was written long ago, and it's definitely
+clunky looking.  For a more modern look, see the IPC::SysV module.
+
+A small example demonstrating SysV message queues:
+
+    use IPC::SysV qw(IPC_PRIVATE IPC_RMID IPC_CREAT S_IRUSR S_IWUSR);
+
+    my $id = msgget(IPC_PRIVATE, IPC_CREAT | S_IRUSR | S_IWUSR);
+    defined($id)                || die "msgget failed: $!";
+
+    my $sent      = "message";
+    my $type_sent = 1234;
+
+    msgsnd($id, pack("l! a*", $type_sent, $sent), 0)
+                                || die "msgsnd failed: $!";
+
+    msgrcv($id, my $rcvd_buf, 60, 0, 0)
+                                || die "msgrcv failed: $!";
+
+    my($type_rcvd, $rcvd) = unpack("l! a*", $rcvd_buf);
+
+    if ($rcvd eq $sent) {
+        print "okay\n";
+    } else {
+        print "not okay\n";
+    }
+
+    msgctl($id, IPC_RMID, 0)    || die "msgctl failed: $!\n";
+
+=head1 NOTES
+
+Most of these routines quietly but politely return C<undef> when they
+fail instead of causing your program to die right then and there due to
+an uncaught exception.  (Actually, some of the new I<Socket> conversion
+functions do croak() on bad arguments.)  It is therefore essential to
+check return values from these functions.  Always begin your socket
+programs this way for optimal success, and don't forget to add the B<-T>
+taint-checking flag to the C<#!> line for servers:
+
+    #!/usr/bin/perl -Tw
+    use strict;
+    use sigtrap;
+    use Socket;
+
+=head1 BUGS
+
+These routines all create system-specific portability problems.  As noted
+elsewhere, Perl is at the mercy of your C libraries for much of its system
+behavior.  It's probably safest to assume broken SysV semantics for
+signals and to stick with simple TCP and UDP socket operations; e.g., don't
+try to pass open file descriptors over a local UDP datagram socket if you
+want your code to stand a chance of being portable.
+
+=head1 AUTHOR
+
+Tom Christiansen, with occasional vestiges of Larry Wall's original
+version and suggestions from the Perl Porters.
+
+=head1 SEE ALSO
+
+There's a lot more to networking than this, but this should get you
+started.
+
+For intrepid programmers, the indispensable textbook is I<Unix Network
+Programming, 2nd Edition, Volume 1> by W. Richard Stevens (published by
+Prentice-Hall).  Most books on networking address the subject from the
+perspective of a C programmer; translation to Perl is left as an exercise
+for the reader.
+
+The IO::Socket(3) manpage describes the object library, and the Socket(3)
+manpage describes the low-level interface to sockets.  Besides the obvious
+functions in L<perlfunc>, you should also check out the F<modules> file at
+your nearest CPAN site, especially
+L<http://www.cpan.org/modules/00modlist.long.html#ID5_Networking_>.
+See L<perlmodlib> or best yet, the F<Perl FAQ> for a description
+of what CPAN is and where to get it if the previous link doesn't work
+for you.
+
+Section 5 of CPAN's F<modules> file is devoted to "Networking, Device
+Control (modems), and Interprocess Communication", and contains numerous
+unbundled modules numerous networking modules, Chat and Expect operations,
+CGI programming, DCE, FTP, IPC, NNTP, Proxy, Ptty, RPC, SNMP, SMTP, Telnet,
+Threads, and ToolTalk--to name just a few.
diff --git a/lib/5.24.1/pod/perlirix.pod b/lib/5.24.1/pod/perlirix.pod
new file mode 100644
index 00000000..3fa47a4c
--- /dev/null
+++ b/lib/5.24.1/pod/perlirix.pod
@@ -0,0 +1,138 @@
+If you read this file _as_is_, just ignore the funny characters you
+see.  It is written in the POD format (see pod/perlpod.pod) which is
+specifically designed to be readable as is.
+
+=head1 NAME
+
+perlirix - Perl version 5 on Irix systems
+
+=head1 DESCRIPTION
+
+This document describes various features of Irix that will affect how Perl
+version 5 (hereafter just Perl) is compiled and/or runs.
+
+=head2 Building 32-bit Perl in Irix
+
+Use
+
+	sh Configure -Dcc='cc -n32'
+
+to compile Perl 32-bit.  Don't bother with -n32 unless you have 7.1
+or later compilers (use cc -version to check).
+
+(Building 'cc -n32' is the default.)
+
+=head2 Building 64-bit Perl in Irix
+
+Use
+
+	sh Configure -Dcc='cc -64' -Duse64bitint
+
+This requires require a 64-bit MIPS CPU (R8000, R10000, ...)
+
+You can also use
+
+	sh Configure -Dcc='cc -64' -Duse64bitall
+
+but that makes no difference compared with the -Duse64bitint because
+of the C<cc -64>.
+
+You can also do
+
+	sh Configure -Dcc='cc -n32' -Duse64bitint
+
+to use long longs for the 64-bit integer type, in case you don't
+have a 64-bit CPU.
+
+If you are using gcc, just
+
+	sh Configure -Dcc=gcc -Duse64bitint
+
+should be enough, the Configure should automatically probe for the
+correct 64-bit settings.
+
+=head2 About Compiler Versions of Irix
+
+Some Irix cc versions, e.g. 7.3.1.1m (try cc -version) have been known
+to have issues (coredumps) when compiling perl.c.  If you've used
+-OPT:fast_io=ON and this happens, try removing it.  If that fails, or
+you didn't use that, then try adjusting other optimization options
+(-LNO, -INLINE, -O3 to -O2, etcetera).  The compiler bug has been
+reported to SGI.  (Allen Smith <easmith@beatrice.rutgers.edu>)
+
+=head2 Linker Problems in Irix
+
+If you get complaints about so_locations then search in the file
+hints/irix_6.sh for "lddflags" and do the suggested adjustments.
+(David Billinghurst <David.Billinghurst@riotinto.com.au>)
+
+=head2 Malloc in Irix
+
+Do not try to use Perl's malloc, this will lead into very mysterious
+errors (especially with -Duse64bitall).
+
+=head2 Building with threads in Irix
+
+Run Configure with -Duseithreads which will configure Perl with
+the Perl 5.8.0 "interpreter threads", see L<threads>.
+
+For Irix 6.2 with perl threads, you have to have the following
+patches installed:
+
+        1404 Irix 6.2 Posix 1003.1b man pages
+        1645 Irix 6.2 & 6.3 POSIX header file updates
+        2000 Irix 6.2 Posix 1003.1b support modules
+        2254 Pthread library fixes
+        2401 6.2 all platform kernel rollup
+
+B<IMPORTANT>: Without patch 2401, a kernel bug in Irix 6.2 will cause
+your machine to panic and crash when running threaded perl.  Irix 6.3
+and later are okay.
+
+    Thanks to Hannu Napari <Hannu.Napari@hut.fi> for the IRIX
+    pthreads patches information.
+
+=head2 Irix 5.3
+
+While running Configure and when building, you are likely to get
+quite a few of these warnings:
+
+  ld:
+  The shared object /usr/lib/libm.so did not resolve any symbols.
+        You may want to remove it from your link line.
+
+Ignore them: in IRIX 5.3 there is no way to quieten ld about this.
+
+During compilation you will see this warning from toke.c:
+
+  uopt: Warning: Perl_yylex: this procedure not optimized because it
+        exceeds size threshold; to optimize this procedure, use -Olimit
+        option with value >= 4252.
+
+Ignore the warning.
+
+In IRIX 5.3 and with Perl 5.8.1 (Perl 5.8.0 didn't compile in IRIX 5.3)
+the following failures are known.
+
+ Failed Test                  Stat Wstat Total Fail  Failed  List of Failed
+ -----------------------------------------------------------------------
+ ../ext/List/Util/t/shuffle.t    0   139    ??   ??       %  ??
+ ../lib/Math/Trig.t            255 65280    29   12  41.38%  24-29
+ ../lib/sort.t                   0   138   119   72  60.50%  48-119
+ 56 tests and 474 subtests skipped.
+ Failed 3/811 test scripts, 99.63% okay. 78/75813 subtests failed,
+    99.90% okay.
+
+They are suspected to be compiler errors (at least the shuffle.t
+failure is known from some IRIX 6 setups) and math library errors
+(the Trig.t failure), but since IRIX 5 is long since end-of-lifed,
+further fixes for the IRIX are unlikely.  If you can get gcc for 5.3,
+you could try that, too, since gcc in IRIX 6 is a known workaround for
+at least the shuffle.t and sort.t failures.
+
+=head1 AUTHOR
+
+Jarkko Hietaniemi <jhi@iki.fi>
+
+Please report any errors, updates, or suggestions to F<perlbug@perl.org>.
+
diff --git a/lib/5.24.1/pod/perljp.pod b/lib/5.24.1/pod/perljp.pod
new file mode 100644
index 00000000..2a1fa579
--- /dev/null
+++ b/lib/5.24.1/pod/perljp.pod
@@ -0,0 +1,186 @@
+=encoding utf8
+
+=head1 NAME
+
+perljp - 日本語 Perl ガイド
+
+=head1 説明
+
+Perl �世界�よ���!
+
+Perl 5.8.0 より�Unicodeサ�ート�大幅�強化�れ����果ラテン文字以外�文字コード�サ�ート� CJK (中国語�日本語��ングル)を���加�り���。Unicode�世界中�文字を一��文字コード�扱���を目指��標準�格��り���ら西�������間�文字（ギリシャ文字�キリール文字�アラビア文字�ヘブライ文字�ディーヴァナガーリ文字�����）や��れ���OSベンダー�独自�定����文字(PC�よ�Macintosh)������れ����。
+
+Perl 自身� Unicode �動作���。Perl スクリプト内�文字列リテラルや正�表�� Unicode を��������。���入出力�������れ��使�れ��������文字コード�対応�るモジュール�「 Encode ��標準装備�れ��り�Unicode ��れら�文字コード�相互変�も簡��行�るよ��������。
+
+�時点� Encode �サ�ート�る文字コード�以下���り��。
+
+  7bit-jis      AdobeStandardEncoding AdobeSymbol       AdobeZdingbat
+  ascii             big5              big5-hkscs        cp1006
+  cp1026            cp1047            cp1250            cp1251
+  cp1252            cp1253            cp1254            cp1255
+  cp1256            cp1257            cp1258            cp37
+  cp424             cp437             cp500             cp737
+  cp775             cp850             cp852             cp855
+  cp856             cp857             cp860             cp861
+  cp862             cp863             cp864             cp865
+  cp866             cp869             cp874             cp875
+  cp932             cp936             cp949             cp950
+  dingbats          euc-cn            euc-jp            euc-kr
+  gb12345-raw       gb2312-raw        gsm0338           hp-roman8
+  hz                iso-2022-jp       iso-2022-jp-1     iso-8859-1
+  iso-8859-10       iso-8859-11       iso-8859-13       iso-8859-14
+  iso-8859-15       iso-8859-16       iso-8859-2        iso-8859-3
+  iso-8859-4        iso-8859-5        iso-8859-6        iso-8859-7
+  iso-8859-8        iso-8859-9        iso-ir-165        jis0201-raw
+  jis0208-raw       jis0212-raw       johab             koi8-f
+  koi8-r            koi8-u            ksc5601-raw       MacArabic
+  MacCentralEurRoman  MacChineseSimp    MacChineseTrad    MacCroatian
+  MacCyrillic       MacDingbats       MacFarsi          MacGreek
+  MacHebrew         MacIcelandic      MacJapanese       MacKorean
+  MacRoman          MacRomanian       MacRumanian       MacSami
+  MacSymbol         MacThai           MacTurkish        MacUkrainian
+  nextstep          posix-bc          shiftjis          symbol
+  UCS-2BE           UCS-2LE           UTF-16            UTF-16BE
+  UTF-16LE          UTF-32            UTF-32BE          UTF-32LE
+  utf8              viscii                              
+
+(全114種類)
+
+例���文字コードFOO�ファイルをUTF-8�変��る���以下�よ�����。
+
+    perl -Mencoding=FOO,STDOUT,utf8 -pe1 < file.FOO > file.utf8
+
+���Perl���全部�Perl�書�れ�文字コード変�ユーティリティ�piconvも付属���る���以下�よ���る��も����。
+
+   piconv -f FOO -t utf8 < file.FOO > file.utf8
+   piconv -f utf8 -t FOO < file.utf8 > file.FOO
+
+=head2 About (jcode.pl|Jcode.pm|JPerl)
+
+5.8以���スクリプト�EUC-JP��れ�リテラル���扱���������。���入出力を扱�モジュール����Jcode.pm�( http://openlab.ring.gr.jp/Jcode/ )�perl4用�ユーティリティ����jcode.pl��れ�れ存在��日本語�扱�るCGI�よ�利用�れ��る��を御存��方も少��������れ��。����日本語�よる正�表�を���扱������能���。
+
+5.005以��Perl���日本語�特化��ローカライズ版�Jperl�存在����( http://homepage2.nifty.com/kipp/perl/jperl/index.html )。���Mac OS 9.x/Classic用�Perl�MacPerl�日本語版もMacJPerl���存在�����。( http://habilis.net/macjperl/ ).�れら��文字コード���EUC-JP�加�Shift_JISも����扱���������日本語�よる正�表�を扱���も�能���。
+
+Perl5.8����れら�機能����Perl本体���実���る上��日本語���ら�上記114�文字コードを������も�時�扱��������。�ら��CPAN���ら新��文字コード用�モジュールを入手�る��も簡����るよ��������。
+
+=over 4
+
+=item *
+
+入出力
+
+以下�例���れもShift_JIS�入力をEUC-JP�変���出力���。
+
+  # jcode.pl
+  require "jcode.pl";
+  while(<>){
+    jcode::convert(*_, 'euc', 'sjis');
+    print;
+  }
+  # Jcode.pm
+  use Jcode;
+  while(<>){
+  	print Jcode->new($_, 'sjis')->euc;
+  }
+  # Perl 5.8
+  use Encode;
+  while(<>){
+    from_to($_, 'shiftjis', 'euc-jp');
+    print;
+  }
+  # Perl 5.8 - encoding を利用��
+  use encoding 'euc-jp', STDIN => 'shiftjis';
+  while(<>){
+  	print;
+  }
+
+=item *
+
+Jperl 互�スクリプト
+
+��ゆる"shebang"を変更�る����Jperl用�script���ん��変更���利用�能����れ��。
+
+   #!/path/to/jperl
+   ↓
+   #!/path/to/perl -Mencoding=euc-jp
+
+詳��� perldoc encoding を�照������。
+
+=back
+
+=head2 �ら�詳��
+
+Perl��膨大�資料�付属���り�Perl�新機能やUnicodeサ�ート����Encodeモジュール�使用法���細��網羅�れ����（残念��ら���ん�英語���り���）。以下�コマンド��れら�一部を閲覧�る����能��。
+
+  perldoc perlunicode # Perl�Unicodeサ�ート全般
+  perldoc Encode      # Encodeモジュール�関��
+  perldoc Encode::JP  # ��日本語文字コード�関��
+
+=head2 Perl全般�関�る URL
+
+=over 4
+
+=item L<http://www.perl.com/>
+
+Perl ホームページ (O'Reilly and Associates)
+
+=item L<http://www.cpan.org/>
+
+CPAN (Comprehensive Perl Archive Network)
+
+=item L<http://lists.perl.org/>
+
+Perl メーリングリスト集
+
+=back
+
+=head2 Perl�修得�役立� URL
+
+=over 4
+
+=item L<http://www.oreilly.com.tw/>
+
+O'Reilly 社�Perl関連書�(�体字中国語)
+
+=item L<http://www.oreilly.com.cn/>
+
+O'Reilly 社�Perl関連書�(簡体字中国語)
+
+=item L<http://www.oreilly.co.jp/catalog/>
+
+オライリー社�Perl関連書�(日本語)
+
+=back
+
+=head2 Perl ユーザーグループ
+
+=over 4
+
+=item L<http://www.pm.org/groups/asia.html>
+
+=back
+
+=head2 Unicode関連�URL
+
+=over 4
+
+=item L<http://www.unicode.org/>
+
+Unicode コンソーシアム (Unicode�格��定団体)
+
+=item L<http://www.cl.cam.ac.uk/%7Emgk25/unicode.html>
+
+UTF-8 and Unicode FAQ for Unix/Linux
+
+=item L<http://wiki.kldp.org/Translations/html/UTF8-Unicode-KLDP/UTF8-Unicode-KLDP.html>
+
+UTF-8 and Unicode FAQ for Unix/Linux (�ングル訳)
+
+=back
+
+=head1 AUTHORS
+
+Jarkko Hietaniemi E<lt>jhi@iki.fiE<gt>
+Dan Kogai (�飼　弾) E<lt>dankogai@dan.co.jpE<gt>
+
+=cut
diff --git a/lib/5.24.1/pod/perlko.pod b/lib/5.24.1/pod/perlko.pod
new file mode 100644
index 00000000..daedf0fc
--- /dev/null
+++ b/lib/5.24.1/pod/perlko.pod
@@ -0,0 +1,339 @@
+=encoding utf8
+
+� 파�� 내용 그대로 �고 있다면 우스�스러운 문�는 무시해주세요.
+� 문서는 POD로 �� 수 있�� POD 형�(F<pod/perlpod.pod> 문서를
+확�하세요)으로 작성�어 있습니다.
+
+
+=head1 NAME
+
+perlko - 한국어 Perl 안내서
+
+=head1 DESCRIPTION
+
+Perl� 세계� 오신 것� 환�합니다!
+
+Perl� 가� B<'Practical Extraction and Report Language'>�고 하기� 합니다만
+다른 �리 알려진 것들 중�서 B<'Pathologically Eclectic Rubbish Lister'>�고
+하기� 합니다. 사실 �것� �워 맞춘 것�며 Perl� �것들� 첫 글�를
+가져와서 �름� 붙� 것� 아닙니다. Perl� 창시� Larry가 첫 번째 �름�
+먼저 ��했고 �리 알려진 것� 나중� 지었기 때문입니다. 그렇기 때문�
+B<'Perl'>� 모� 대문�가 아닙니다. �리 알려진 어떤 것� 가지고 논�하는
+것� �미가 없습니다. Larry는 � 개 다 지지합니다.
+
+가� p가 소문�로 작성� B<'perl'>� 볼 것입니다. P가 대문�로 �어 있는
+B<'Perl'>� 언어를 참조할 때 쓰�며 B<'perl'>처럼 p가 소문�� 경우는 여러분�
+프로그램� 컴파�하고 �릴 때 사용�는 해�기를 지칭할 때 사용�니다.
+
+
+=head1 Perl� 관하여
+
+Perl� 본래 문�열 �성� 위해 만들졌지만 지금� 시스템 관리와 웹 개발,
+네트워� 프로그래�, GUI 개발 등� �함한 여러 분야�서 �리 사용�는
+범용 프로그래� 언어입니다.
+
+� 언어는 아름다움(아주 작고, 우아하고, 아주 �고)보다
+실용�(사용하기 쉽고, 효율��며, 가능한 최대한)� 것� 지향하고 있습니다.
+사용하기 쉽고, 절차� 프로그래�과 �체 지향 프로그래�� 모� 지�하고,
+강력한 문�열 처리 기능� 내장하고, 세��서 가장 ���� 제 3�� 모듈
+모�처를 가지고 있다는 것� Perl� 가장 중요한 특징입니다.
+
+Perl� 언어� 특징� F<pod/perlintro.pod> 문서�서 소개합니다.
+
+�번 릴리스�서 가장 중요한 변화는 F<pod/perldelta.pod>�서 논�합니다.
+
+�한 다양한 출�사가 출�한 많� Perl 책� 다양한 주제를 다루고 있습니다.
+�세한 정보는 F<pod/perlbook.pod> 문서를 확�하세요.
+
+
+=head1 설치
+
+여러분� 비�� 현대� 운�체제를 사용하고 있고 현재 버전� Perl�
+지역�으로 설치하고 싶다면 다� 명령� 실행하세요.
+
+    ./Configure -des -Dprefix=$HOME/localperl
+    make test
+    make install
+
+앞� 명령� 여러분� 플랫�� 맞게 환경� 설정하고 컴파�� 수행한 후,
+회기 테스트를 수행한뒤, 홈 디렉터리 하부� F<localperl> 디렉터리� perl�
+설치합니다.
+
+여러분� 어떠한 문제든 겪게 �거나 사용� 정� 버전 Perl� 설치할 필요가 있다면
+현재 배��� 들어있는 F<INSTALL> 파� 안� �세한 설명� �어야 합니다.
+추가�으로 �반��지 않� 다양한 플랫��서 Perl� 빌드하고 사용하는
+방법� 대한 �움�과 귀�� �혀있는 많� 수� F<README> 파�� 있습니다.
+
+�단 Perl� 설치하고 나면 C<perldoc> �구를 �용해 �부한 문서를 사용할
+수 있습니다. 시작하기 위해서 다� 명령� 실행하세요.
+
+    perldoc perl
+
+
+=head1 실행� 어려움� 겪는다면
+
+Perl� 뜨개질�서 부터 로켓 과학까지 모든 분야�서 사용할 수 있는 �고
+복잡한 시스템입니다. 여러분� 어려움� 부딪혔�때 그 문제는 �미 다른
+사람� 해결했� 가능성� 높습니다. 문서를 모� 확�했는�� 버그가
+확실하다면 C<perlbug> �구를 �용해서 저��게 버그를 보고해주세요.
+C<perlbug>� 대한 � �세한 정보는 C<perldoc perlbug> �는 C<perlbug>를
+명령줄�서 실행해서 확�할 수 있습니다.
+
+Perl� 사용 가능하게 만들었다 하��� Perl� 계�해서 진화하기 때문�
+여러분� 맞닥뜨린 버그를 수정했거나 여러분� 유용하다고 ��할법한
+새로운 기능� 추가� 좀 � 최신 버전� 있� 수 있습니다.
+
+여러분� 항� 최신 버전� perl� CPAN (Comprehensive Perl Archive Network)
+사�트 L<http://www.cpan.org/src/> �서 찾� 수 있습니다.
+
+perl 소스� 간단한 패치를 등�하고 싶다면 F<pod/perlhack.pod> 문서�
+B<"SUPER QUICK PATCH GUIDE">를 살펴보세요.
+
+그냥 개��으로 참고하세요.
+제가 �것처럼 멋진 물건� 만든다는 것� 여러분� 알기를 바�니다.
+그것� 제 �야기� B<"저�(Author)">를 기�게하기 때문입니다.
+�것� 여러분� 귀찮게 한다면 여러분� B<"저작(Authorship)">�
+대한 ��� 정정해야 할 수� 있습니다. 하지만 어쨌거나 여러분�
+Perl� 사용하는�는 문제가 없답니다. :-)
+
+- B<"저�">로부터.
+
+
+=head1 �코딩
+
+Perl� 5.8.0�부터 유니코드/ISO 10646� 대해 광범위하게 지�합니다.
+유니코드 지�� �환으로 한중�� 비롯한 세계 �국�서
+유니코드 �전� 쓰고 있었고 지금� �리 쓰�고 있는 수많� �코딩�
+지�합니다. 유니코드는 전 세계�서 쓰�는 모든 언어를 위한
+표기 체계(유럽� �틴 알파벳, 키릴 알파벳, 그리스 알파벳, ��와 �남 아시아�
+브�미 계열 스�립트, 아� 문�, 히브리 문�, 한중�� 한�, 한국어� 한글,
+�본어� 가나, �미 �디안� 표기 체계 등)를 수용하는 것� 목표로 하고
+있기 때문� 기존� 쓰��  � 언어 � 국가 그리고 운� 체계� 고유한
+문� 집합과 �코딩� 쓸 수 있는 모든 글�는 물론�고  기존 문� 집합�서
+지�하고 있지 않� 아주 많� 글�를  �함하고 있습니다.
+
+Perl� 내부�으로 유니코드를 문� 표현� 위해 사용합니다.
+보다 구체�으로 �하면 Perl 스�립트 안�서  UTF-8 문�열� 쓸 수 있고,
+�종 함수와 연산�(예를 들어, 정규�, index, substr)가 바�트 단위
+대신 유니코드 글� 단위로 �작합니다.
+� �세한 것� F<pod/perlunicode.pod> 문서를 참고하세요.
+유니코드가 �리 보급�기 전� �리 쓰�고 있었고, 여전히 �리 쓰�고 있는
+�국/� 언어별 �코딩으로 입출력� 하고 �들 �코딩으로 � ��터와 문서를
+다루는 것� �기 위해 L<Encode> 모듈� 쓰�고 있습니다.
+무엇보다 L<Encode> 모듈� 사용하면 수많� �코딩 사�� 변환� 쉽게 할 수 있습니다.
+
+
+=head2 Encode 모듈
+
+=head3 지� �코딩
+
+L<Encode> 모듈� 다�과 같� 한국어 �코딩� 지�합니다.
+
+=over 4
+
+=item * C<euc-kr>
+
+US-ASCII와 KS X 1001� 같� 쓰는 멀티바�트 �코딩으로 �히
+완성형��고 불림. KS X 2901과 RFC 1557 참고.
+
+=item * C<cp949>
+
+MS-Windows 9x/ME�서 쓰�는 확장 완성형. euc-kr� 8,822��
+한글 �절� �한 것임. alias는 uhc, windows-949, x-windows-949,
+ks_c_5601-1987. 맨 마지막 �름� �절하지 않� �름�지만, Microsoft
+제품�서 CP949� �미로 쓰�고 있�.
+
+=item * C<johab>
+
+KS X 1001:1998 부� 3�서 규정한 조합형. 문� 레�토리는 cp949와 마찬가지로
+US-ASCII와  KS X 1001� 8,822�� 한글 �절� �한 것으로 �코딩 방�� 전혀 다름.
+
+=item * C<iso-2022-kr>
+
+RFC 1557�서 규정한 한국어 �터넷 메� �환용 �코딩으로 US-ASCII와
+KS X 1001� 레�토리로 하는 ��서 euc-kr과 같지만 �코딩 방�� 다름.
+1997-8년 경까지 쓰였으나 � �� 메� �환� 쓰�지 않�.
+
+=item * C<ksc5601-raw>
+
+KS X 1001(KS C 5601)� GL(즉, MSB를 0으로 한 경우)� 놓았� 때� �코딩.
+US-ASCII와 결합하지 않고 단�으로 쓰�는 �� X11 등�서 글꼴
+�코딩(ksc5601.1987-0. '0'� GL� �미함)으로 쓰�는 것� 제외하고는
+거� 없�. KS C 5601� 1997년 KS X 1001로 �름� 바꾸었�. 1998년�는 �
+글�(유로화 부호와 등� �표 부호)가 �해졌�.
+
+=back
+
+=head3 변환 예제
+
+예를 들어, euc-kr �코딩으로 � 파�� UTF-8로 변환하려면
+명령줄�서 다�처럼 실행합니다.
+
+    perl -Mencoding=euc-kr,STDOUT,utf8 -pe1 < file.euc-kr > file.utf8
+
+반대로 변환할 경우 다�처럼 실행합니다.
+
+    perl -Mencoding=utf8,STDOUT,euc-kr -pe1 < file.utf8 > file.euc-kr
+
+�런 변환� 좀� 편리하게 할 수 있�� �와주는 F<piconv>가 Perl�
+기본으로 들어있습니다. � 유틸리티는 L<Encode> 모듈� �용한 순수 Perl
+유틸리티로 �름�서 알 수 있듯� Unix� C<iconv>를 모�로 한 것입니다.
+사용법� 다�과 같습니다.
+
+   piconv -f euc-kr -t utf8 < file.euc-kr > file.utf8
+   piconv -f utf8 -t euc-kr < file.utf8 > file.euc-kr
+
+=head3 모범 사례
+
+Perl� 기본�으로 내부�서 UTF-8� 사용하며 Encode 모듈� 통해
+다양한 �코딩� 지�하지만 항� 다� 규칙� 지킴으로� �코딩과
+관련한 다양하게 발�할 수 있는 문제� 가능성� 줄�는 것� 추천합니다.
+
+=over 4
+
+=item * 소스 코드는 항� UTF-8 �코딩으로 저장
+
+=item * 소스 코드 �단� C<use utf8;> 프�그마 사용
+
+=item * 소스 코드, 터미�, 운�체제, ��터 �코딩� 분리해서 �해
+
+=item * 입출력 파� 핸들� 명시�� �코딩� 사용
+
+=item * 중복(double) �코딩� 주�
+
+=back
+
+
+=head3 유니코드 � 한국어 �코딩 관련 �료
+
+=over 4
+
+=item * L<perluniintro>
+
+=item * L<perlunicode>
+
+=item * L<Encode>
+
+=item * L<Encode::KR>
+
+=item * L<encoding>
+
+=item * L<http://www.unicode.org/>
+
+유니코드 컨소시엄
+
+=item * L<http://std.dkuug.dk/JTC1/SC2/WG2>
+
+기본�으로 Unicode와 같� ISO 표준�  ISO/IEC 10646 UCS(Universal
+Character Set)� 만드는 ISO/IEC JTC1/SC2/WG2� 웹 페�지
+
+=item * L<http://www.cl.cam.ac.uk/~mgk25/unicode.html>
+
+유닉스/리눅스 사용�를 위한 UTF-8 � 유니코드 관련 FAQ
+
+=item * L<http://wiki.kldp.org/Translations/html/UTF8-Unicode-KLDP/UTF8-Unicode-KLDP.html>
+
+유닉스/리눅스 사용�를 위한 UTF-8 � 유니코드 관련 FAQ� 한국어 번역
+
+=back
+
+
+=head1 Perl 관련 �료
+
+다�� 공��� Perl 관련 �료중 �부입니다.
+
+=over 4
+
+=item * L<http://www.perl.org/>
+
+Perl 공� 홈페�지
+
+=item * L<http://www.perl.com/>
+
+O'Reilly� Perl 웹 페�지
+
+=item * L<http://www.cpan.org/>
+
+CPAN - Comprehensive Perl Archive Network, 통합� Perl 파� 보관 네트워�
+
+=item * L<http://metacpan.org>
+
+메타 CPAN
+
+=item * L<http://lists.perl.org/>
+
+Perl 메�� 리스트
+
+=item * L<http://blogs.perl.org/>
+
+Perl 메타 블로그
+
+=item * L<http://www.perlmonks.org/>
+
+Perl 수�승들� 위한 수��
+
+=item * L<http://www.pm.org/groups/asia.html>
+
+아시아 지역 Perl 몽거스 모임
+
+=item * L<http://www.perladvent.org/>
+
+Perl �리스마스 달력
+
+=back
+
+
+다�� Perl� � 깊게 공부하는� �움� 줄 수 있는 한국어 관련 사�트입니다.
+
+=over 4
+
+=item * L<http://perl.kr/>
+
+한국 Perl 커뮤니티 공� �털
+
+=item * L<http://doc.perl.kr/>
+
+Perl 문서 한글화 프로�트
+
+=item * L<http://cafe.naver.com/perlstudy.cafe>
+
+네�버 Perl 카페
+
+=item * L<http://www.perl.or.kr/>
+
+한국 Perl 사용� 모임
+
+=item * L<http://advent.perl.kr>
+
+Seoul.pm Perl �리스마스 달력 (2010 ~ 2012)
+
+=item * L<http://gypark.pe.kr/wiki/Perl>
+
+GYPARK(Geunyoung Park)� Perl 관련 한글 문서 저장소
+
+=item * L<http://seoul.pm.org>
+
+Seoul.pm - 서울 Perl 몽거스
+
+=back
+
+
+=head1 ��센스
+
+F<README> 파�� B<'LICENSING'> 항목� 참고하세요.
+
+
+=head1 AUTHORS
+
+=over
+
+=item * Jarkko Hietaniemi E<lt>jhi@iki.fiE<gt>
+
+=item * 신정� E<lt>jshin@mailaps.orgE<gt>
+
+=item * 김�형 E<lt>keedi@cpan.orgE<gt>
+
+=back
+
+
+=cut
diff --git a/lib/5.24.1/pod/perllexwarn.pod b/lib/5.24.1/pod/perllexwarn.pod
new file mode 100644
index 00000000..d6046245
--- /dev/null
+++ b/lib/5.24.1/pod/perllexwarn.pod
@@ -0,0 +1,11 @@
+=head1 NAME
+
+perllexwarn - Perl Lexical Warnings
+
+=head1 DESCRIPTION
+
+Perl v5.6.0 introduced lexical control over the handling of warnings by
+category.  The C<warnings> pragma generally replaces the command line flag
+B<-w>.  Documentation on the use of lexical warnings, once partly found in
+this document, is now found in the L<warnings> documentation.
+
diff --git a/lib/5.24.1/pod/perllinux.pod b/lib/5.24.1/pod/perllinux.pod
new file mode 100644
index 00000000..a191c520
--- /dev/null
+++ b/lib/5.24.1/pod/perllinux.pod
@@ -0,0 +1,39 @@
+If you read this file _as_is_, just ignore the funny characters you
+see.  It is written in the POD format (see pod/perlpod.pod) which is
+specifically designed to be readable as is.
+
+=head1 NAME
+
+perllinux - Perl version 5 on Linux systems
+
+=head1 DESCRIPTION
+
+This document describes various features of Linux that will affect how Perl
+version 5 (hereafter just Perl) is compiled and/or runs.
+
+=head2 Experimental Support for Sun Studio Compilers for Linux OS
+
+Sun Microsystems has released a port of their Sun Studio compilers for
+Linux.  As of November 2005, only an alpha version has been released.  
+Until a release of these compilers is made, support for compiling Perl with
+these compiler experimental.
+
+Also, some special instructions for building Perl with Sun Studio on Linux.
+Following the normal C<Configure>, you have to run make as follows:
+
+    LDLOADLIBS=-lc make
+
+C<LDLOADLIBS> is an environment variable used by the linker to link modules
+C</ext> modules to glibc.  Currently, that environment variable is not getting
+populated by a combination of C<Config> entries and C<ExtUtil::MakeMaker>.
+While there may be a bug somewhere in Perl's configuration or
+C<ExtUtil::MakeMaker> causing the problem, the most likely cause is an
+incomplete understanding of Sun Studio by this author.  Further investigation
+is needed to get this working better.
+
+=head1 AUTHOR
+
+Steve Peters <steve@fisharerojo.org>
+
+Please report any errors, updates, or suggestions to F<perlbug@perl.org>.
+
diff --git a/lib/5.24.1/pod/perllocale.pod b/lib/5.24.1/pod/perllocale.pod
new file mode 100644
index 00000000..018f9162
--- /dev/null
+++ b/lib/5.24.1/pod/perllocale.pod
@@ -0,0 +1,1598 @@
+=encoding utf8
+
+=head1 NAME
+
+perllocale - Perl locale handling (internationalization and localization)
+
+=head1 DESCRIPTION
+
+In the beginning there was ASCII, the "American Standard Code for
+Information Interchange", which works quite well for Americans with
+their English alphabet and dollar-denominated currency.  But it doesn't
+work so well even for other English speakers, who may use different
+currencies, such as the pound sterling (as the symbol for that currency
+is not in ASCII); and it's hopelessly inadequate for many of the
+thousands of the world's other languages.
+
+To address these deficiencies, the concept of locales was invented
+(formally the ISO C, XPG4, POSIX 1.c "locale system").  And applications
+were and are being written that use the locale mechanism.  The process of
+making such an application take account of its users' preferences in
+these kinds of matters is called B<internationalization> (often
+abbreviated as B<i18n>); telling such an application about a particular
+set of preferences is known as B<localization> (B<l10n>).
+
+Perl has been extended to support the locale system.  This
+is controlled per application by using one pragma, one function call,
+and several environment variables.
+
+Unfortunately, there are quite a few deficiencies with the design (and
+often, the implementations) of locales.  Unicode was invented (see
+L<perlunitut> for an introduction to that) in part to address these
+design deficiencies, and nowadays, there is a series of "UTF-8
+locales", based on Unicode.  These are locales whose character set is
+Unicode, encoded in UTF-8.  Starting in v5.20, Perl fully supports
+UTF-8 locales, except for sorting and string comparisons like C<lt> and
+C<ge>.  (Use L<Unicode::Collate> for these.)  Perl continues to support
+the old non UTF-8 locales as well.  There are currently no UTF-8 locales
+for EBCDIC platforms.
+
+(Unicode is also creating C<CLDR>, the "Common Locale Data Repository",
+L<http://cldr.unicode.org/> which includes more types of information than
+are available in the POSIX locale system.  At the time of this writing,
+there was no CPAN module that provides access to this XML-encoded data.
+However, it is possible to compute the POSIX locale data from them, and
+earlier CLDR versions had these already extracted for you as UTF-8 locales
+L<http://unicode.org/Public/cldr/2.0.1/>.)
+
+=head1 WHAT IS A LOCALE
+
+A locale is a set of data that describes various aspects of how various
+communities in the world categorize their world.  These categories are
+broken down into the following types (some of which include a brief
+note here):
+
+=over
+
+=item Category C<LC_NUMERIC>: Numeric formatting
+
+This indicates how numbers should be formatted for human readability,
+for example the character used as the decimal point.
+
+=item Category C<LC_MONETARY>: Formatting of monetary amounts
+
+=for comment
+The nbsp below makes this look better (though not great)
+
+E<160>
+
+=item Category C<LC_TIME>: Date/Time formatting
+
+=for comment
+The nbsp below makes this look better (though not great)
+
+E<160>
+
+=item Category C<LC_MESSAGES>: Error and other messages
+
+This is used by Perl itself only for accessing operating system error
+messages via L<$!|perlvar/$ERRNO> and L<$^E|perlvar/$EXTENDED_OS_ERROR>.
+
+=item Category C<LC_COLLATE>: Collation
+
+This indicates the ordering of letters for comparison and sorting.
+In Latin alphabets, for example, "b", generally follows "a".
+
+=item Category C<LC_CTYPE>: Character Types
+
+This indicates, for example if a character is an uppercase letter.
+
+=item Other categories
+
+Some platforms have other categories, dealing with such things as
+measurement units and paper sizes.  None of these are used directly by
+Perl, but outside operations that Perl interacts with may use
+these.  See L</Not within the scope of "use locale"> below.
+
+=back
+
+More details on the categories used by Perl are given below in L</LOCALE
+CATEGORIES>.
+
+Together, these categories go a long way towards being able to customize
+a single program to run in many different locations.  But there are
+deficiencies, so keep reading.
+
+=head1 PREPARING TO USE LOCALES
+
+Perl itself (outside the L<POSIX> module) will not use locales unless
+specifically requested to (but
+again note that Perl may interact with code that does use them).  Even
+if there is such a request, B<all> of the following must be true
+for it to work properly:
+
+=over 4
+
+=item *
+
+B<Your operating system must support the locale system>.  If it does,
+you should find that the C<setlocale()> function is a documented part of
+its C library.
+
+=item *
+
+B<Definitions for locales that you use must be installed>.  You, or
+your system administrator, must make sure that this is the case. The
+available locales, the location in which they are kept, and the manner
+in which they are installed all vary from system to system.  Some systems
+provide only a few, hard-wired locales and do not allow more to be
+added.  Others allow you to add "canned" locales provided by the system
+supplier.  Still others allow you or the system administrator to define
+and add arbitrary locales.  (You may have to ask your supplier to
+provide canned locales that are not delivered with your operating
+system.)  Read your system documentation for further illumination.
+
+=item *
+
+B<Perl must believe that the locale system is supported>.  If it does,
+C<perl -V:d_setlocale> will say that the value for C<d_setlocale> is
+C<define>.
+
+=back
+
+If you want a Perl application to process and present your data
+according to a particular locale, the application code should include
+the S<C<use locale>> pragma (see L<The "use locale" pragma>) where
+appropriate, and B<at least one> of the following must be true:
+
+=over 4
+
+=item 1
+
+B<The locale-determining environment variables (see L</"ENVIRONMENT">)
+must be correctly set up> at the time the application is started, either
+by yourself or by whomever set up your system account; or
+
+=item 2
+
+B<The application must set its own locale> using the method described in
+L<The setlocale function>.
+
+=back
+
+=head1 USING LOCALES
+
+=head2 The C<"use locale"> pragma
+
+WARNING!  Do NOT use this pragma in scripts that have multiple
+L<threads|threads> active.  The locale is not local to a single thread.
+Another thread may change the locale at any time, which could cause at a
+minimum that a given thread is operating in a locale it isn't expecting
+to be in.  On some platforms, segfaults can also occur.  The locale
+change need not be explicit; some operations cause perl to change the
+locale itself.  You are vulnerable simply by having done a C<"use
+locale">.
+
+By default, Perl itself (outside the L<POSIX> module)
+ignores the current locale.  The S<C<use locale>>
+pragma tells Perl to use the current locale for some operations.
+Starting in v5.16, there are optional parameters to this pragma,
+described below, which restrict which operations are affected by it.
+
+The current locale is set at execution time by
+L<setlocale()|/The setlocale function> described below.  If that function
+hasn't yet been called in the course of the program's execution, the
+current locale is that which was determined by the L</"ENVIRONMENT"> in
+effect at the start of the program.
+If there is no valid environment, the current locale is whatever the
+system default has been set to.   On POSIX systems, it is likely, but
+not necessarily, the "C" locale.  On Windows, the default is set via the
+computer's S<C<Control Panel-E<gt>Regional and Language Options>> (or its
+current equivalent).
+
+The operations that are affected by locale are:
+
+=over 4
+
+=item B<Not within the scope of C<"use locale">>
+
+Only certain operations originating outside Perl should be affected, as
+follows:
+
+=over 4
+
+=item *
+
+The current locale is used when going outside of Perl with
+operations like L<system()|perlfunc/system LIST> or
+L<qxE<sol>E<sol>|perlop/qxE<sol>STRINGE<sol>>, if those operations are
+locale-sensitive.
+
+=item *
+
+Also Perl gives access to various C library functions through the
+L<POSIX> module.  Some of those functions are always affected by the
+current locale.  For example, C<POSIX::strftime()> uses C<LC_TIME>;
+C<POSIX::strtod()> uses C<LC_NUMERIC>; C<POSIX::strcoll()> and
+C<POSIX::strxfrm()> use C<LC_COLLATE>.  All such functions
+will behave according to the current underlying locale, even if that
+locale isn't exposed to Perl space.
+
+=item *
+
+XS modules for all categories but C<LC_NUMERIC> get the underlying
+locale, and hence any C library functions they call will use that
+underlying locale.  For more discussion, see L<perlxs/CAVEATS>.
+
+=back
+
+Note that all C programs (including the perl interpreter, which is
+written in C) always have an underlying locale.  That locale is the "C"
+locale unless changed by a call to L<setlocale()|/The setlocale
+function>.  When Perl starts up, it changes the underlying locale to the
+one which is indicated by the L</ENVIRONMENT>.  When using the L<POSIX>
+module or writing XS code, it is important to keep in mind that the
+underlying locale may be something other than "C", even if the program
+hasn't explicitly changed it.
+
+=for comment
+The nbsp below makes this look better (though not great)
+
+E<160>
+
+=item B<Lingering effects of C<S<use locale>>>
+
+Certain Perl operations that are set-up within the scope of a
+C<use locale> retain that effect even outside the scope.
+These include:
+
+=over 4
+
+=item *
+
+The output format of a L<write()|perlfunc/write> is determined by an
+earlier format declaration (L<perlfunc/format>), so whether or not the
+output is affected by locale is determined by if the C<format()> is
+within the scope of a C<use locale>, not whether the C<write()>
+is.
+
+=item *
+
+Regular expression patterns can be compiled using
+L<qrE<sol>E<sol>|perlop/qrE<sol>STRINGE<sol>msixpodualn> with actual
+matching deferred to later.  Again, it is whether or not the compilation
+was done within the scope of C<use locale> that determines the match
+behavior, not if the matches are done within such a scope or not.
+
+=back
+
+=for comment
+The nbsp below makes this look better (though not great)
+
+
+E<160>
+
+=item B<Under C<"use locale";>>
+
+=over 4
+
+=item *
+
+All the above operations
+
+=item *
+
+B<Format declarations> (L<perlfunc/format>) and hence any subsequent
+C<write()>s use C<LC_NUMERIC>.
+
+=item *
+
+B<stringification and output> use C<LC_NUMERIC>.
+These include the results of
+C<print()>,
+C<printf()>,
+C<say()>,
+and
+C<sprintf()>.
+
+=item *
+
+B<The comparison operators> (C<lt>, C<le>, C<cmp>, C<ge>, and C<gt>) use
+C<LC_COLLATE>.  C<sort()> is also affected if used without an
+explicit comparison function, because it uses C<cmp> by default.
+
+B<Note:> C<eq> and C<ne> are unaffected by locale: they always
+perform a char-by-char comparison of their scalar operands.  What's
+more, if C<cmp> finds that its operands are equal according to the
+collation sequence specified by the current locale, it goes on to
+perform a char-by-char comparison, and only returns I<0> (equal) if the
+operands are char-for-char identical.  If you really want to know whether
+two strings--which C<eq> and C<cmp> may consider different--are equal
+as far as collation in the locale is concerned, see the discussion in
+L<Category C<LC_COLLATE>: Collation>.
+
+=item *
+
+B<Regular expressions and case-modification functions> (C<uc()>, C<lc()>,
+C<ucfirst()>, and C<lcfirst()>) use C<LC_CTYPE>
+
+=item *
+
+B<The variables L<$!|perlvar/$ERRNO>> (and its synonyms C<$ERRNO> and
+C<$OS_ERROR>) B<and L<$^E|perlvar/$EXTENDED_OS_ERROR>> (and its synonym
+C<$EXTENDED_OS_ERROR>) when used as strings use C<LC_MESSAGES>.
+
+=back
+
+=back
+
+The default behavior is restored with the S<C<no locale>> pragma, or
+upon reaching the end of the block enclosing C<use locale>.
+Note that C<use locale> calls may be
+nested, and that what is in effect within an inner scope will revert to
+the outer scope's rules at the end of the inner scope.
+
+The string result of any operation that uses locale
+information is tainted, as it is possible for a locale to be
+untrustworthy.  See L<"SECURITY">.
+
+Starting in Perl v5.16 in a very limited way, and more generally in
+v5.22, you can restrict which category or categories are enabled by this
+particular instance of the pragma by adding parameters to it.  For
+example,
+
+ use locale qw(:ctype :numeric);
+
+enables locale awareness within its scope of only those operations
+(listed above) that are affected by C<LC_CTYPE> and C<LC_NUMERIC>.
+
+The possible categories are: C<:collate>, C<:ctype>, C<:messages>,
+C<:monetary>, C<:numeric>, C<:time>, and the pseudo category
+C<:characters> (described below).
+
+Thus you can say
+
+ use locale ':messages';
+
+and only L<$!|perlvar/$ERRNO> and L<$^E|perlvar/$EXTENDED_OS_ERROR>
+will be locale aware.  Everything else is unaffected.
+
+Since Perl doesn't currently do anything with the C<LC_MONETARY>
+category, specifying C<:monetary> does effectively nothing.  Some
+systems have other categories, such as C<LC_PAPER_SIZE>, but Perl
+also doesn't know anything about them, and there is no way to specify
+them in this pragma's arguments.
+
+You can also easily say to use all categories but one, by either, for
+example,
+
+ use locale ':!ctype';
+ use locale ':not_ctype';
+
+both of which mean to enable locale awarness of all categories but
+C<LC_CTYPE>.  Only one category argument may be specified in a
+S<C<use locale>> if it is of the negated form.
+
+Prior to v5.22 only one form of the pragma with arguments is available:
+
+ use locale ':not_characters';
+
+(and you have to say C<not_>; you can't use the bang C<!> form).  This
+pseudo category is a shorthand for specifying both C<:collate> and
+C<:ctype>.  Hence, in the negated form, it is nearly the same thing as
+saying
+
+ use locale qw(:messages :monetary :numeric :time);
+
+We use the term "nearly", because C<:not_characters> also turns on
+S<C<use feature 'unicode_strings'>> within its scope.  This form is
+less useful in v5.20 and later, and is described fully in
+L</Unicode and UTF-8>, but briefly, it tells Perl to not use the
+character portions of the locale definition, that is the C<LC_CTYPE> and
+C<LC_COLLATE> categories.  Instead it will use the native character set
+(extended by Unicode).  When using this parameter, you are responsible
+for getting the external character set translated into the
+native/Unicode one (which it already will be if it is one of the
+increasingly popular UTF-8 locales).  There are convenient ways of doing
+this, as described in L</Unicode and UTF-8>.
+
+=head2 The setlocale function
+
+WARNING!  Do NOT use this function in a L<thread|threads>.  The locale
+will change in all other threads at the same time, and should your
+thread get paused by the operating system, and another started, that
+thread will not have the locale it is expecting.  On some platforms,
+there can be a race leading to segfaults if two threads call this
+function nearly simultaneously.
+
+You can switch locales as often as you wish at run time with the
+C<POSIX::setlocale()> function:
+
+        # Import locale-handling tool set from POSIX module.
+        # This example uses: setlocale -- the function call
+        #                    LC_CTYPE -- explained below
+        # (Showing the testing for success/failure of operations is
+        # omitted in these examples to avoid distracting from the main
+        # point)
+
+        use POSIX qw(locale_h);
+        use locale;
+        my $old_locale;
+
+        # query and save the old locale
+        $old_locale = setlocale(LC_CTYPE);
+
+        setlocale(LC_CTYPE, "fr_CA.ISO8859-1");
+        # LC_CTYPE now in locale "French, Canada, codeset ISO 8859-1"
+
+        setlocale(LC_CTYPE, "");
+        # LC_CTYPE now reset to the default defined by the
+        # LC_ALL/LC_CTYPE/LANG environment variables, or to the system
+        # default.  See below for documentation.
+
+        # restore the old locale
+        setlocale(LC_CTYPE, $old_locale);
+
+The first argument of C<setlocale()> gives the B<category>, the second the
+B<locale>.  The category tells in what aspect of data processing you
+want to apply locale-specific rules.  Category names are discussed in
+L</LOCALE CATEGORIES> and L</"ENVIRONMENT">.  The locale is the name of a
+collection of customization information corresponding to a particular
+combination of language, country or territory, and codeset.  Read on for
+hints on the naming of locales: not all systems name locales as in the
+example.
+
+If no second argument is provided and the category is something other
+than C<LC_ALL>, the function returns a string naming the current locale
+for the category.  You can use this value as the second argument in a
+subsequent call to C<setlocale()>, B<but> on some platforms the string
+is opaque, not something that most people would be able to decipher as
+to what locale it means.
+
+If no second argument is provided and the category is C<LC_ALL>, the
+result is implementation-dependent.  It may be a string of
+concatenated locale names (separator also implementation-dependent)
+or a single locale name.  Please consult your L<setlocale(3)> man page for
+details.
+
+If a second argument is given and it corresponds to a valid locale,
+the locale for the category is set to that value, and the function
+returns the now-current locale value.  You can then use this in yet
+another call to C<setlocale()>.  (In some implementations, the return
+value may sometimes differ from the value you gave as the second
+argument--think of it as an alias for the value you gave.)
+
+As the example shows, if the second argument is an empty string, the
+category's locale is returned to the default specified by the
+corresponding environment variables.  Generally, this results in a
+return to the default that was in force when Perl started up: changes
+to the environment made by the application after startup may or may not
+be noticed, depending on your system's C library.
+
+Note that when a form of C<use locale> that doesn't include all
+categories is specified, Perl ignores the excluded categories.
+
+If C<set_locale()> fails for some reason (for example, an attempt to set
+to a locale unknown to the system), the locale for the category is not
+changed, and the function returns C<undef>.
+
+
+For further information about the categories, consult L<setlocale(3)>.
+
+=head2 Finding locales
+
+For locales available in your system, consult also L<setlocale(3)> to
+see whether it leads to the list of available locales (search for the
+I<SEE ALSO> section).  If that fails, try the following command lines:
+
+        locale -a
+
+        nlsinfo
+
+        ls /usr/lib/nls/loc
+
+        ls /usr/lib/locale
+
+        ls /usr/lib/nls
+
+	ls /usr/share/locale
+
+and see whether they list something resembling these
+
+        en_US.ISO8859-1     de_DE.ISO8859-1     ru_RU.ISO8859-5
+        en_US.iso88591      de_DE.iso88591      ru_RU.iso88595
+        en_US               de_DE               ru_RU
+        en                  de                  ru
+        english             german              russian
+        english.iso88591    german.iso88591     russian.iso88595
+        english.roman8                          russian.koi8r
+
+Sadly, even though the calling interface for C<setlocale()> has been
+standardized, names of locales and the directories where the
+configuration resides have not been.  The basic form of the name is
+I<language_territory>B<.>I<codeset>, but the latter parts after
+I<language> are not always present.  The I<language> and I<country>
+are usually from the standards B<ISO 3166> and B<ISO 639>, the
+two-letter abbreviations for the countries and the languages of the
+world, respectively.  The I<codeset> part often mentions some B<ISO
+8859> character set, the Latin codesets.  For example, C<ISO 8859-1>
+is the so-called "Western European codeset" that can be used to encode
+most Western European languages adequately.  Again, there are several
+ways to write even the name of that one standard.  Lamentably.
+
+Two special locales are worth particular mention: "C" and "POSIX".
+Currently these are effectively the same locale: the difference is
+mainly that the first one is defined by the C standard, the second by
+the POSIX standard.  They define the B<default locale> in which
+every program starts in the absence of locale information in its
+environment.  (The I<default> default locale, if you will.)  Its language
+is (American) English and its character codeset ASCII or, rarely, a
+superset thereof (such as the "DEC Multinational Character Set
+(DEC-MCS)").  B<Warning>. The C locale delivered by some vendors
+may not actually exactly match what the C standard calls for.  So
+beware.
+
+B<NOTE>: Not all systems have the "POSIX" locale (not all systems are
+POSIX-conformant), so use "C" when you need explicitly to specify this
+default locale.
+
+=head2 LOCALE PROBLEMS
+
+You may encounter the following warning message at Perl startup:
+
+	perl: warning: Setting locale failed.
+	perl: warning: Please check that your locale settings:
+	        LC_ALL = "En_US",
+	        LANG = (unset)
+	    are supported and installed on your system.
+	perl: warning: Falling back to the standard locale ("C").
+
+This means that your locale settings had C<LC_ALL> set to "En_US" and
+LANG exists but has no value.  Perl tried to believe you but could not.
+Instead, Perl gave up and fell back to the "C" locale, the default locale
+that is supposed to work no matter what.  (On Windows, it first tries
+falling back to the system default locale.)  This usually means your
+locale settings were wrong, they mention locales your system has never
+heard of, or the locale installation in your system has problems (for
+example, some system files are broken or missing).  There are quick and
+temporary fixes to these problems, as well as more thorough and lasting
+fixes.
+
+=head2 Testing for broken locales
+
+If you are building Perl from source, the Perl test suite file
+F<lib/locale.t> can be used to test the locales on your system.
+Setting the environment variable C<PERL_DEBUG_FULL_TEST> to 1
+will cause it to output detailed results.  For example, on Linux, you
+could say
+
+ PERL_DEBUG_FULL_TEST=1 ./perl -T -Ilib lib/locale.t > locale.log 2>&1
+
+Besides many other tests, it will test every locale it finds on your
+system to see if they conform to the POSIX standard.  If any have
+errors, it will include a summary near the end of the output of which
+locales passed all its tests, and which failed, and why.
+
+=head2 Temporarily fixing locale problems
+
+The two quickest fixes are either to render Perl silent about any
+locale inconsistencies or to run Perl under the default locale "C".
+
+Perl's moaning about locale problems can be silenced by setting the
+environment variable C<PERL_BADLANG> to "0" or "".
+This method really just sweeps the problem under the carpet: you tell
+Perl to shut up even when Perl sees that something is wrong.  Do not
+be surprised if later something locale-dependent misbehaves.
+
+Perl can be run under the "C" locale by setting the environment
+variable C<LC_ALL> to "C".  This method is perhaps a bit more civilized
+than the C<PERL_BADLANG> approach, but setting C<LC_ALL> (or
+other locale variables) may affect other programs as well, not just
+Perl.  In particular, external programs run from within Perl will see
+these changes.  If you make the new settings permanent (read on), all
+programs you run see the changes.  See L<"ENVIRONMENT"> for
+the full list of relevant environment variables and L<USING LOCALES>
+for their effects in Perl.  Effects in other programs are
+easily deducible.  For example, the variable C<LC_COLLATE> may well affect
+your B<sort> program (or whatever the program that arranges "records"
+alphabetically in your system is called).
+
+You can test out changing these variables temporarily, and if the
+new settings seem to help, put those settings into your shell startup
+files.  Consult your local documentation for the exact details.  For
+Bourne-like shells (B<sh>, B<ksh>, B<bash>, B<zsh>):
+
+	LC_ALL=en_US.ISO8859-1
+	export LC_ALL
+
+This assumes that we saw the locale "en_US.ISO8859-1" using the commands
+discussed above.  We decided to try that instead of the above faulty
+locale "En_US"--and in Cshish shells (B<csh>, B<tcsh>)
+
+	setenv LC_ALL en_US.ISO8859-1
+
+or if you have the "env" application you can do (in any shell)
+
+	env LC_ALL=en_US.ISO8859-1 perl ...
+
+If you do not know what shell you have, consult your local
+helpdesk or the equivalent.
+
+=head2 Permanently fixing locale problems
+
+The slower but superior fixes are when you may be able to yourself
+fix the misconfiguration of your own environment variables.  The
+mis(sing)configuration of the whole system's locales usually requires
+the help of your friendly system administrator.
+
+First, see earlier in this document about L<Finding locales>.  That tells
+how to find which locales are really supported--and more importantly,
+installed--on your system.  In our example error message, environment
+variables affecting the locale are listed in the order of decreasing
+importance (and unset variables do not matter).  Therefore, having
+LC_ALL set to "En_US" must have been the bad choice, as shown by the
+error message.  First try fixing locale settings listed first.
+
+Second, if using the listed commands you see something B<exactly>
+(prefix matches do not count and case usually counts) like "En_US"
+without the quotes, then you should be okay because you are using a
+locale name that should be installed and available in your system.
+In this case, see L<Permanently fixing your system's locale configuration>.
+
+=head2 Permanently fixing your system's locale configuration
+
+This is when you see something like:
+
+	perl: warning: Please check that your locale settings:
+	        LC_ALL = "En_US",
+	        LANG = (unset)
+	    are supported and installed on your system.
+
+but then cannot see that "En_US" listed by the above-mentioned
+commands.  You may see things like "en_US.ISO8859-1", but that isn't
+the same.  In this case, try running under a locale
+that you can list and which somehow matches what you tried.  The
+rules for matching locale names are a bit vague because
+standardization is weak in this area.  See again the
+L<Finding locales> about general rules.
+
+=head2 Fixing system locale configuration
+
+Contact a system administrator (preferably your own) and report the exact
+error message you get, and ask them to read this same documentation you
+are now reading.  They should be able to check whether there is something
+wrong with the locale configuration of the system.  The L<Finding locales>
+section is unfortunately a bit vague about the exact commands and places
+because these things are not that standardized.
+
+=head2 The localeconv function
+
+The C<POSIX::localeconv()> function allows you to get particulars of the
+locale-dependent numeric formatting information specified by the current
+underlying C<LC_NUMERIC> and C<LC_MONETARY> locales (regardless of
+whether called from within the scope of C<S<use locale>> or not).  (If
+you just want the name of
+the current locale for a particular category, use C<POSIX::setlocale()>
+with a single parameter--see L<The setlocale function>.)
+
+        use POSIX qw(locale_h);
+
+        # Get a reference to a hash of locale-dependent info
+        $locale_values = localeconv();
+
+        # Output sorted list of the values
+        for (sort keys %$locale_values) {
+            printf "%-20s = %s\n", $_, $locale_values->{$_}
+        }
+
+C<localeconv()> takes no arguments, and returns B<a reference to> a hash.
+The keys of this hash are variable names for formatting, such as
+C<decimal_point> and C<thousands_sep>.  The values are the
+corresponding, er, values.  See L<POSIX/localeconv> for a longer
+example listing the categories an implementation might be expected to
+provide; some provide more and others fewer.  You don't need an
+explicit C<use locale>, because C<localeconv()> always observes the
+current locale.
+
+Here's a simple-minded example program that rewrites its command-line
+parameters as integers correctly formatted in the current locale:
+
+    use POSIX qw(locale_h);
+
+    # Get some of locale's numeric formatting parameters
+    my ($thousands_sep, $grouping) =
+            @{localeconv()}{'thousands_sep', 'grouping'};
+
+    # Apply defaults if values are missing
+    $thousands_sep = ',' unless $thousands_sep;
+
+    # grouping and mon_grouping are packed lists
+    # of small integers (characters) telling the
+    # grouping (thousand_seps and mon_thousand_seps
+    # being the group dividers) of numbers and
+    # monetary quantities.  The integers' meanings:
+    # 255 means no more grouping, 0 means repeat
+    # the previous grouping, 1-254 means use that
+    # as the current grouping.  Grouping goes from
+    # right to left (low to high digits).  In the
+    # below we cheat slightly by never using anything
+    # else than the first grouping (whatever that is).
+    if ($grouping) {
+        @grouping = unpack("C*", $grouping);
+    } else {
+        @grouping = (3);
+    }
+
+    # Format command line params for current locale
+    for (@ARGV) {
+        $_ = int;    # Chop non-integer part
+        1 while
+        s/(\d)(\d{$grouping[0]}($|$thousands_sep))/$1$thousands_sep$2/;
+        print "$_";
+    }
+    print "\n";
+
+Note that if the platform doesn't have C<LC_NUMERIC> and/or
+C<LC_MONETARY> available or enabled, the corresponding elements of the
+hash will be missing.
+
+=head2 I18N::Langinfo
+
+Another interface for querying locale-dependent information is the
+C<I18N::Langinfo::langinfo()> function, available at least in Unix-like
+systems and VMS.
+
+The following example will import the C<langinfo()> function itself and
+three constants to be used as arguments to C<langinfo()>: a constant for
+the abbreviated first day of the week (the numbering starts from
+Sunday = 1) and two more constants for the affirmative and negative
+answers for a yes/no question in the current locale.
+
+    use I18N::Langinfo qw(langinfo ABDAY_1 YESSTR NOSTR);
+
+    my ($abday_1, $yesstr, $nostr)
+                = map { langinfo } qw(ABDAY_1 YESSTR NOSTR);
+
+    print "$abday_1? [$yesstr/$nostr] ";
+
+In other words, in the "C" (or English) locale the above will probably
+print something like:
+
+    Sun? [yes/no]
+
+See L<I18N::Langinfo> for more information.
+
+=head1 LOCALE CATEGORIES
+
+The following subsections describe basic locale categories.  Beyond these,
+some combination categories allow manipulation of more than one
+basic category at a time.  See L<"ENVIRONMENT"> for a discussion of these.
+
+=head2 Category C<LC_COLLATE>: Collation
+
+In the scope of a S<C<use locale>> form that includes collation, Perl
+looks to the C<LC_COLLATE>
+environment variable to determine the application's notions on collation
+(ordering) of characters.  For example, "b" follows "a" in Latin
+alphabets, but where do "E<aacute>" and "E<aring>" belong?  And while
+"color" follows "chocolate" in English, what about in traditional Spanish?
+
+The following collations all make sense and you may meet any of them
+if you C<"use locale">.
+
+	A B C D E a b c d e
+	A a B b C c D d E e
+	a A b B c C d D e E
+	a b c d e A B C D E
+
+Here is a code snippet to tell what "word"
+characters are in the current locale, in that locale's order:
+
+        use locale;
+        print +(sort grep /\w/, map { chr } 0..255), "\n";
+
+Compare this with the characters that you see and their order if you
+state explicitly that the locale should be ignored:
+
+        no locale;
+        print +(sort grep /\w/, map { chr } 0..255), "\n";
+
+This machine-native collation (which is what you get unless S<C<use
+locale>> has appeared earlier in the same block) must be used for
+sorting raw binary data, whereas the locale-dependent collation of the
+first example is useful for natural text.
+
+As noted in L<USING LOCALES>, C<cmp> compares according to the current
+collation locale when C<use locale> is in effect, but falls back to a
+char-by-char comparison for strings that the locale says are equal. You
+can use C<POSIX::strcoll()> if you don't want this fall-back:
+
+        use POSIX qw(strcoll);
+        $equal_in_locale =
+            !strcoll("space and case ignored", "SpaceAndCaseIgnored");
+
+C<$equal_in_locale> will be true if the collation locale specifies a
+dictionary-like ordering that ignores space characters completely and
+which folds case.
+
+Perl currently only supports single-byte locales for C<LC_COLLATE>.  This means
+that a UTF-8 locale likely will just give you machine-native ordering.
+Use L<Unicode::Collate> for the full implementation of the Unicode
+Collation Algorithm.
+
+If you have a single string that you want to check for "equality in
+locale" against several others, you might think you could gain a little
+efficiency by using C<POSIX::strxfrm()> in conjunction with C<eq>:
+
+        use POSIX qw(strxfrm);
+        $xfrm_string = strxfrm("Mixed-case string");
+        print "locale collation ignores spaces\n"
+            if $xfrm_string eq strxfrm("Mixed-casestring");
+        print "locale collation ignores hyphens\n"
+            if $xfrm_string eq strxfrm("Mixedcase string");
+        print "locale collation ignores case\n"
+            if $xfrm_string eq strxfrm("mixed-case string");
+
+C<strxfrm()> takes a string and maps it into a transformed string for use
+in char-by-char comparisons against other transformed strings during
+collation.  "Under the hood", locale-affected Perl comparison operators
+call C<strxfrm()> for both operands, then do a char-by-char
+comparison of the transformed strings.  By calling C<strxfrm()> explicitly
+and using a non locale-affected comparison, the example attempts to save
+a couple of transformations.  But in fact, it doesn't save anything: Perl
+magic (see L<perlguts/Magic Variables>) creates the transformed version of a
+string the first time it's needed in a comparison, then keeps this version around
+in case it's needed again.  An example rewritten the easy way with
+C<cmp> runs just about as fast.  It also copes with null characters
+embedded in strings; if you call C<strxfrm()> directly, it treats the first
+null it finds as a terminator.  don't expect the transformed strings
+it produces to be portable across systems--or even from one revision
+of your operating system to the next.  In short, don't call C<strxfrm()>
+directly: let Perl do it for you.
+
+Note: C<use locale> isn't shown in some of these examples because it isn't
+needed: C<strcoll()> and C<strxfrm()> are POSIX functions
+which use the standard system-supplied C<libc> functions that
+always obey the current C<LC_COLLATE> locale.
+
+=head2 Category C<LC_CTYPE>: Character Types
+
+In the scope of a S<C<use locale>> form that includes C<LC_CTYPE>, Perl
+obeys the C<LC_CTYPE> locale
+setting.  This controls the application's notion of which characters are
+alphabetic, numeric, punctuation, I<etc>.  This affects Perl's C<\w>
+regular expression metanotation,
+which stands for alphanumeric characters--that is, alphabetic,
+numeric, and the platform's native underscore.
+(Consult L<perlre> for more information about
+regular expressions.)  Thanks to C<LC_CTYPE>, depending on your locale
+setting, characters like "E<aelig>", "E<eth>", "E<szlig>", and
+"E<oslash>" may be understood as C<\w> characters.
+It also affects things like C<\s>, C<\D>, and the POSIX character
+classes, like C<[[:graph:]]>.  (See L<perlrecharclass> for more
+information on all these.)
+
+The C<LC_CTYPE> locale also provides the map used in transliterating
+characters between lower and uppercase.  This affects the case-mapping
+functions--C<fc()>, C<lc()>, C<lcfirst()>, C<uc()>, and C<ucfirst()>;
+case-mapping
+interpolation with C<\F>, C<\l>, C<\L>, C<\u>, or C<\U> in double-quoted
+strings and C<s///> substitutions; and case-independent regular expression
+pattern matching using the C<i> modifier.
+
+Starting in v5.20, Perl supports UTF-8 locales for C<LC_CTYPE>, but
+otherwise Perl only supports single-byte locales, such as the ISO 8859
+series.  This means that wide character locales, for example for Asian
+languages, are not well-supported.  (If the platform has the capability
+for Perl to detect such a locale, starting in Perl v5.22,
+L<Perl will warn, default enabled|warnings/Category Hierarchy>,
+using the C<locale> warning category, whenever such a locale is switched
+into.)  The UTF-8 locale support is actually a
+superset of POSIX locales, because it is really full Unicode behavior
+as if no C<LC_CTYPE> locale were in effect at all (except for tainting;
+see L</SECURITY>).  POSIX locales, even UTF-8 ones,
+are lacking certain concepts in Unicode, such as the idea that changing
+the case of a character could expand to be more than one character.
+Perl in a UTF-8 locale, will give you that expansion.  Prior to v5.20,
+Perl treated a UTF-8 locale on some platforms like an ISO 8859-1 one,
+with some restrictions, and on other platforms more like the "C" locale.
+For releases v5.16 and v5.18, C<S<use locale 'not_characters>> could be
+used as a workaround for this (see L</Unicode and UTF-8>).
+
+Note that there are quite a few things that are unaffected by the
+current locale.  Any literal character is the native character for the
+given platform.  Hence 'A' means the character at code point 65 on ASCII
+platforms, and 193 on EBCDIC.  That may or may not be an 'A' in the
+current locale, if that locale even has an 'A'.
+Similarly, all the escape sequences for particular characters,
+C<\n> for example, always mean the platform's native one.  This means,
+for example, that C<\N> in regular expressions (every character
+but new-line) works on the platform character set.
+
+Starting in v5.22, Perl will by default warn when switching into a
+locale that redefines any ASCII printable character (plus C<\t> and
+C<\n>) into a different class than expected.  This is likely to
+happen on modern locales only on EBCDIC platforms, where, for example,
+a CCSID 0037 locale on a CCSID 1047 machine moves C<"[">, but it can
+happen on ASCII platforms with the ISO 646 and other
+7-bit locales that are essentially obsolete.  Things may still work,
+depending on what features of Perl are used by the program.  For
+example, in the example from above where C<"|"> becomes a C<\w>, and
+there are no regular expressions where this matters, the program may
+still work properly.  The warning lists all the characters that
+it can determine could be adversely affected.
+
+B<Note:> A broken or malicious C<LC_CTYPE> locale definition may result
+in clearly ineligible characters being considered to be alphanumeric by
+your application.  For strict matching of (mundane) ASCII letters and
+digits--for example, in command strings--locale-aware applications
+should use C<\w> with the C</a> regular expression modifier.  See L<"SECURITY">.
+
+=head2 Category C<LC_NUMERIC>: Numeric Formatting
+
+After a proper C<POSIX::setlocale()> call, and within the scope of
+of a C<use locale> form that includes numerics, Perl obeys the
+C<LC_NUMERIC> locale information, which controls an application's idea
+of how numbers should be formatted for human readability.
+In most implementations the only effect is to
+change the character used for the decimal point--perhaps from "."  to ",".
+The functions aren't aware of such niceties as thousands separation and
+so on. (See L<The localeconv function> if you care about these things.)
+
+ use POSIX qw(strtod setlocale LC_NUMERIC);
+ use locale;
+
+ setlocale LC_NUMERIC, "";
+
+ $n = 5/2;   # Assign numeric 2.5 to $n
+
+ $a = " $n"; # Locale-dependent conversion to string
+
+ print "half five is $n\n";       # Locale-dependent output
+
+ printf "half five is %g\n", $n;  # Locale-dependent output
+
+ print "DECIMAL POINT IS COMMA\n"
+          if $n == (strtod("2,5"))[0]; # Locale-dependent conversion
+
+See also L<I18N::Langinfo> and C<RADIXCHAR>.
+
+=head2 Category C<LC_MONETARY>: Formatting of monetary amounts
+
+The C standard defines the C<LC_MONETARY> category, but not a function
+that is affected by its contents.  (Those with experience of standards
+committees will recognize that the working group decided to punt on the
+issue.)  Consequently, Perl essentially takes no notice of it.  If you
+really want to use C<LC_MONETARY>, you can query its contents--see
+L<The localeconv function>--and use the information that it returns in your
+application's own formatting of currency amounts.  However, you may well
+find that the information, voluminous and complex though it may be, still
+does not quite meet your requirements: currency formatting is a hard nut
+to crack.
+
+See also L<I18N::Langinfo> and C<CRNCYSTR>.
+
+=head2 C<LC_TIME>
+
+Output produced by C<POSIX::strftime()>, which builds a formatted
+human-readable date/time string, is affected by the current C<LC_TIME>
+locale.  Thus, in a French locale, the output produced by the C<%B>
+format element (full month name) for the first month of the year would
+be "janvier".  Here's how to get a list of long month names in the
+current locale:
+
+        use POSIX qw(strftime);
+        for (0..11) {
+            $long_month_name[$_] =
+                strftime("%B", 0, 0, 0, 1, $_, 96);
+        }
+
+Note: C<use locale> isn't needed in this example: C<strftime()> is a POSIX
+function which uses the standard system-supplied C<libc> function that
+always obeys the current C<LC_TIME> locale.
+
+See also L<I18N::Langinfo> and C<ABDAY_1>..C<ABDAY_7>, C<DAY_1>..C<DAY_7>,
+C<ABMON_1>..C<ABMON_12>, and C<ABMON_1>..C<ABMON_12>.
+
+=head2 Other categories
+
+The remaining locale categories are not currently used by Perl itself.
+But again note that things Perl interacts with may use these, including
+extensions outside the standard Perl distribution, and by the
+operating system and its utilities.  Note especially that the string
+value of C<$!> and the error messages given by external utilities may
+be changed by C<LC_MESSAGES>.  If you want to have portable error
+codes, use C<%!>.  See L<Errno>.
+
+=head1 SECURITY
+
+Although the main discussion of Perl security issues can be found in
+L<perlsec>, a discussion of Perl's locale handling would be incomplete
+if it did not draw your attention to locale-dependent security issues.
+Locales--particularly on systems that allow unprivileged users to
+build their own locales--are untrustworthy.  A malicious (or just plain
+broken) locale can make a locale-aware application give unexpected
+results.  Here are a few possibilities:
+
+=over 4
+
+=item *
+
+Regular expression checks for safe file names or mail addresses using
+C<\w> may be spoofed by an C<LC_CTYPE> locale that claims that
+characters such as C<"E<gt>"> and C<"|"> are alphanumeric.
+
+=item *
+
+String interpolation with case-mapping, as in, say, C<$dest =
+"C:\U$name.$ext">, may produce dangerous results if a bogus C<LC_CTYPE>
+case-mapping table is in effect.
+
+=item *
+
+A sneaky C<LC_COLLATE> locale could result in the names of students with
+"D" grades appearing ahead of those with "A"s.
+
+=item *
+
+An application that takes the trouble to use information in
+C<LC_MONETARY> may format debits as if they were credits and vice versa
+if that locale has been subverted.  Or it might make payments in US
+dollars instead of Hong Kong dollars.
+
+=item *
+
+The date and day names in dates formatted by C<strftime()> could be
+manipulated to advantage by a malicious user able to subvert the
+C<LC_DATE> locale.  ("Look--it says I wasn't in the building on
+Sunday.")
+
+=back
+
+Such dangers are not peculiar to the locale system: any aspect of an
+application's environment which may be modified maliciously presents
+similar challenges.  Similarly, they are not specific to Perl: any
+programming language that allows you to write programs that take
+account of their environment exposes you to these issues.
+
+Perl cannot protect you from all possibilities shown in the
+examples--there is no substitute for your own vigilance--but, when
+C<use locale> is in effect, Perl uses the tainting mechanism (see
+L<perlsec>) to mark string results that become locale-dependent, and
+which may be untrustworthy in consequence.  Here is a summary of the
+tainting behavior of operators and functions that may be affected by
+the locale:
+
+=over 4
+
+=item  *
+
+B<Comparison operators> (C<lt>, C<le>, C<ge>, C<gt> and C<cmp>):
+
+Scalar true/false (or less/equal/greater) result is never tainted.
+
+=item  *
+
+B<Case-mapping interpolation> (with C<\l>, C<\L>, C<\u>, C<\U>, or C<\F>)
+
+The result string containing interpolated material is tainted if
+a C<use locale> form that includes C<LC_CTYPE> is in effect.
+
+=item  *
+
+B<Matching operator> (C<m//>):
+
+Scalar true/false result never tainted.
+
+All subpatterns, either delivered as a list-context result or as C<$1>
+I<etc>., are tainted if a C<use locale> form that includes
+C<LC_CTYPE> is in effect, and the subpattern
+regular expression contains a locale-dependent construct.  These
+constructs include C<\w> (to match an alphanumeric character), C<\W>
+(non-alphanumeric character), C<\b> and C<\B> (word-boundary and
+non-boundardy, which depend on what C<\w> and C<\W> match), C<\s>
+(whitespace character), C<\S> (non whitespace character), C<\d> and
+C<\D> (digits and non-digits), and the POSIX character classes, such as
+C<[:alpha:]> (see L<perlrecharclass/POSIX Character Classes>).
+
+Tainting is also likely if the pattern is to be matched
+case-insensitively (via C</i>).  The exception is if all the code points
+to be matched this way are above 255 and do not have folds under Unicode
+rules to below 256.  Tainting is not done for these because Perl
+only uses Unicode rules for such code points, and those rules are the
+same no matter what the current locale.
+
+The matched-pattern variables, C<$&>, C<$`> (pre-match), C<$'>
+(post-match), and C<$+> (last match) also are tainted.
+
+=item  *
+
+B<Substitution operator> (C<s///>):
+
+Has the same behavior as the match operator.  Also, the left
+operand of C<=~> becomes tainted when a C<use locale>
+form that includes C<LC_CTYPE> is in effect, if modified as
+a result of a substitution based on a regular
+expression match involving any of the things mentioned in the previous
+item, or of case-mapping, such as C<\l>, C<\L>,C<\u>, C<\U>, or C<\F>.
+
+=item *
+
+B<Output formatting functions> (C<printf()> and C<write()>):
+
+Results are never tainted because otherwise even output from print,
+for example C<print(1/7)>, should be tainted if C<use locale> is in
+effect.
+
+=item *
+
+B<Case-mapping functions> (C<lc()>, C<lcfirst()>, C<uc()>, C<ucfirst()>):
+
+Results are tainted if a C<use locale> form that includes C<LC_CTYPE> is
+in effect.
+
+=item *
+
+B<POSIX locale-dependent functions> (C<localeconv()>, C<strcoll()>,
+C<strftime()>, C<strxfrm()>):
+
+Results are never tainted.
+
+=back
+
+Three examples illustrate locale-dependent tainting.
+The first program, which ignores its locale, won't run: a value taken
+directly from the command line may not be used to name an output file
+when taint checks are enabled.
+
+        #/usr/local/bin/perl -T
+        # Run with taint checking
+
+        # Command line sanity check omitted...
+        $tainted_output_file = shift;
+
+        open(F, ">$tainted_output_file")
+            or warn "Open of $tainted_output_file failed: $!\n";
+
+The program can be made to run by "laundering" the tainted value through
+a regular expression: the second example--which still ignores locale
+information--runs, creating the file named on its command line
+if it can.
+
+        #/usr/local/bin/perl -T
+
+        $tainted_output_file = shift;
+        $tainted_output_file =~ m%[\w/]+%;
+        $untainted_output_file = $&;
+
+        open(F, ">$untainted_output_file")
+            or warn "Open of $untainted_output_file failed: $!\n";
+
+Compare this with a similar but locale-aware program:
+
+        #/usr/local/bin/perl -T
+
+        $tainted_output_file = shift;
+        use locale;
+        $tainted_output_file =~ m%[\w/]+%;
+        $localized_output_file = $&;
+
+        open(F, ">$localized_output_file")
+            or warn "Open of $localized_output_file failed: $!\n";
+
+This third program fails to run because C<$&> is tainted: it is the result
+of a match involving C<\w> while C<use locale> is in effect.
+
+=head1 ENVIRONMENT
+
+=over 12
+
+=item PERL_SKIP_LOCALE_INIT
+
+This environment variable, available starting in Perl v5.20, if set
+(to any value), tells Perl to not use the rest of the
+environment variables to initialize with.  Instead, Perl uses whatever
+the current locale settings are.  This is particularly useful in
+embedded environments, see
+L<perlembed/Using embedded Perl with POSIX locales>.
+
+=item PERL_BADLANG
+
+A string that can suppress Perl's warning about failed locale settings
+at startup.  Failure can occur if the locale support in the operating
+system is lacking (broken) in some way--or if you mistyped the name of
+a locale when you set up your environment.  If this environment
+variable is absent, or has a value other than "0" or "", Perl will
+complain about locale setting failures.
+
+B<NOTE>: C<PERL_BADLANG> only gives you a way to hide the warning message.
+The message tells about some problem in your system's locale support,
+and you should investigate what the problem is.
+
+=back
+
+The following environment variables are not specific to Perl: They are
+part of the standardized (ISO C, XPG4, POSIX 1.c) C<setlocale()> method
+for controlling an application's opinion on data.  Windows is non-POSIX,
+but Perl arranges for the following to work as described anyway.
+If the locale given by an environment variable is not valid, Perl tries
+the next lower one in priority.  If none are valid, on Windows, the
+system default locale is then tried.  If all else fails, the C<"C">
+locale is used.  If even that doesn't work, something is badly broken,
+but Perl tries to forge ahead with whatever the locale settings might
+be.
+
+=over 12
+
+=item C<LC_ALL>
+
+C<LC_ALL> is the "override-all" locale environment variable. If
+set, it overrides all the rest of the locale environment variables.
+
+=item C<LANGUAGE>
+
+B<NOTE>: C<LANGUAGE> is a GNU extension, it affects you only if you
+are using the GNU libc.  This is the case if you are using e.g. Linux.
+If you are using "commercial" Unixes you are most probably I<not>
+using GNU libc and you can ignore C<LANGUAGE>.
+
+However, in the case you are using C<LANGUAGE>: it affects the
+language of informational, warning, and error messages output by
+commands (in other words, it's like C<LC_MESSAGES>) but it has higher
+priority than C<LC_ALL>.  Moreover, it's not a single value but
+instead a "path" (":"-separated list) of I<languages> (not locales).
+See the GNU C<gettext> library documentation for more information.
+
+=item C<LC_CTYPE>
+
+In the absence of C<LC_ALL>, C<LC_CTYPE> chooses the character type
+locale.  In the absence of both C<LC_ALL> and C<LC_CTYPE>, C<LANG>
+chooses the character type locale.
+
+=item C<LC_COLLATE>
+
+In the absence of C<LC_ALL>, C<LC_COLLATE> chooses the collation
+(sorting) locale.  In the absence of both C<LC_ALL> and C<LC_COLLATE>,
+C<LANG> chooses the collation locale.
+
+=item C<LC_MONETARY>
+
+In the absence of C<LC_ALL>, C<LC_MONETARY> chooses the monetary
+formatting locale.  In the absence of both C<LC_ALL> and C<LC_MONETARY>,
+C<LANG> chooses the monetary formatting locale.
+
+=item C<LC_NUMERIC>
+
+In the absence of C<LC_ALL>, C<LC_NUMERIC> chooses the numeric format
+locale.  In the absence of both C<LC_ALL> and C<LC_NUMERIC>, C<LANG>
+chooses the numeric format.
+
+=item C<LC_TIME>
+
+In the absence of C<LC_ALL>, C<LC_TIME> chooses the date and time
+formatting locale.  In the absence of both C<LC_ALL> and C<LC_TIME>,
+C<LANG> chooses the date and time formatting locale.
+
+=item C<LANG>
+
+C<LANG> is the "catch-all" locale environment variable. If it is set, it
+is used as the last resort after the overall C<LC_ALL> and the
+category-specific C<LC_I<foo>>.
+
+=back
+
+=head2 Examples
+
+The C<LC_NUMERIC> controls the numeric output:
+
+   use locale;
+   use POSIX qw(locale_h); # Imports setlocale() and the LC_ constants.
+   setlocale(LC_NUMERIC, "fr_FR") or die "Pardon";
+   printf "%g\n", 1.23; # If the "fr_FR" succeeded, probably shows 1,23.
+
+and also how strings are parsed by C<POSIX::strtod()> as numbers:
+
+   use locale;
+   use POSIX qw(locale_h strtod);
+   setlocale(LC_NUMERIC, "de_DE") or die "Entschuldigung";
+   my $x = strtod("2,34") + 5;
+   print $x, "\n"; # Probably shows 7,34.
+
+=head1 NOTES
+
+=head2 String C<eval> and C<LC_NUMERIC>
+
+A string L<eval|perlfunc/eval EXPR> parses its expression as standard
+Perl.  It is therefore expecting the decimal point to be a dot.  If
+C<LC_NUMERIC> is set to have this be a comma instead, the parsing will
+be confused, perhaps silently.
+
+ use locale;
+ use POSIX qw(locale_h);
+ setlocale(LC_NUMERIC, "fr_FR") or die "Pardon";
+ my $a = 1.2;
+ print eval "$a + 1.5";
+ print "\n";
+
+prints C<13,5>.  This is because in that locale, the comma is the
+decimal point character.  The C<eval> thus expands to:
+
+ eval "1,2 + 1.5"
+
+and the result is not what you likely expected.  No warnings are
+generated.  If you do string C<eval>'s within the scope of
+S<C<use locale>>, you should instead change the C<eval> line to do
+something like:
+
+ print eval "no locale; $a + 1.5";
+
+This prints C<2.7>.
+
+You could also exclude C<LC_NUMERIC>, if you don't need it, by
+
+ use locale ':!numeric';
+
+=head2 Backward compatibility
+
+Versions of Perl prior to 5.004 B<mostly> ignored locale information,
+generally behaving as if something similar to the C<"C"> locale were
+always in force, even if the program environment suggested otherwise
+(see L<The setlocale function>).  By default, Perl still behaves this
+way for backward compatibility.  If you want a Perl application to pay
+attention to locale information, you B<must> use the S<C<use locale>>
+pragma (see L<The "use locale" pragma>) or, in the unlikely event
+that you want to do so for just pattern matching, the
+C</l> regular expression modifier (see L<perlre/Character set
+modifiers>) to instruct it to do so.
+
+Versions of Perl from 5.002 to 5.003 did use the C<LC_CTYPE>
+information if available; that is, C<\w> did understand what
+were the letters according to the locale environment variables.
+The problem was that the user had no control over the feature:
+if the C library supported locales, Perl used them.
+
+=head2 I18N:Collate obsolete
+
+In versions of Perl prior to 5.004, per-locale collation was possible
+using the C<I18N::Collate> library module.  This module is now mildly
+obsolete and should be avoided in new applications.  The C<LC_COLLATE>
+functionality is now integrated into the Perl core language: One can
+use locale-specific scalar data completely normally with C<use locale>,
+so there is no longer any need to juggle with the scalar references of
+C<I18N::Collate>.
+
+=head2 Sort speed and memory use impacts
+
+Comparing and sorting by locale is usually slower than the default
+sorting; slow-downs of two to four times have been observed.  It will
+also consume more memory: once a Perl scalar variable has participated
+in any string comparison or sorting operation obeying the locale
+collation rules, it will take 3-15 times more memory than before.  (The
+exact multiplier depends on the string's contents, the operating system
+and the locale.) These downsides are dictated more by the operating
+system's implementation of the locale system than by Perl.
+
+=head2 Freely available locale definitions
+
+The Unicode CLDR project extracts the POSIX portion of many of its
+locales, available at
+
+  http://unicode.org/Public/cldr/2.0.1/
+
+(Newer versions of CLDR require you to compute the POSIX data yourself.
+See L<http://unicode.org/Public/cldr/latest/>.)
+
+There is a large collection of locale definitions at:
+
+  http://std.dkuug.dk/i18n/WG15-collection/locales/
+
+You should be aware that it is
+unsupported, and is not claimed to be fit for any purpose.  If your
+system allows installation of arbitrary locales, you may find the
+definitions useful as they are, or as a basis for the development of
+your own locales.
+
+=head2 I18n and l10n
+
+"Internationalization" is often abbreviated as B<i18n> because its first
+and last letters are separated by eighteen others.  (You may guess why
+the internalin ... internaliti ... i18n tends to get abbreviated.)  In
+the same way, "localization" is often abbreviated to B<l10n>.
+
+=head2 An imperfect standard
+
+Internationalization, as defined in the C and POSIX standards, can be
+criticized as incomplete, ungainly, and having too large a granularity.
+(Locales apply to a whole process, when it would arguably be more useful
+to have them apply to a single thread, window group, or whatever.)  They
+also have a tendency, like standards groups, to divide the world into
+nations, when we all know that the world can equally well be divided
+into bankers, bikers, gamers, and so on.
+
+=head1 Unicode and UTF-8
+
+The support of Unicode is new starting from Perl version v5.6, and more fully
+implemented in versions v5.8 and later.  See L<perluniintro>.
+
+Starting in Perl v5.20, UTF-8 locales are supported in Perl, except for
+C<LC_COLLATE> (use L<Unicode::Collate> instead).  If you have Perl v5.16
+or v5.18 and can't upgrade, you can use
+
+    use locale ':not_characters';
+
+When this form of the pragma is used, only the non-character portions of
+locales are used by Perl, for example C<LC_NUMERIC>.  Perl assumes that
+you have translated all the characters it is to operate on into Unicode
+(actually the platform's native character set (ASCII or EBCDIC) plus
+Unicode).  For data in files, this can conveniently be done by also
+specifying
+
+    use open ':locale';
+
+This pragma arranges for all inputs from files to be translated into
+Unicode from the current locale as specified in the environment (see
+L</ENVIRONMENT>), and all outputs to files to be translated back
+into the locale.  (See L<open>).  On a per-filehandle basis, you can
+instead use the L<PerlIO::locale> module, or the L<Encode::Locale>
+module, both available from CPAN.  The latter module also has methods to
+ease the handling of C<ARGV> and environment variables, and can be used
+on individual strings.  If you know that all your locales will be
+UTF-8, as many are these days, you can use the L<B<-C>|perlrun/-C>
+command line switch.
+
+This form of the pragma allows essentially seamless handling of locales
+with Unicode.  The collation order will be by Unicode code point order.
+It is strongly
+recommended that when you need to order and sort strings that you use
+the standard module L<Unicode::Collate> which gives much better results
+in many instances than you can get with the old-style locale handling.
+
+All the modules and switches just described can be used in v5.20 with
+just plain C<use locale>, and, should the input locales not be UTF-8,
+you'll get the less than ideal behavior, described below, that you get
+with pre-v5.16 Perls, or when you use the locale pragma without the
+C<:not_characters> parameter in v5.16 and v5.18.  If you are using
+exclusively UTF-8 locales in v5.20 and higher, the rest of this section
+does not apply to you.
+
+There are two cases, multi-byte and single-byte locales.  First
+multi-byte:
+
+The only multi-byte (or wide character) locale that Perl is ever likely
+to support is UTF-8.  This is due to the difficulty of implementation,
+the fact that high quality UTF-8 locales are now published for every
+area of the world (L<http://unicode.org/Public/cldr/2.0.1/> for
+ones that are already set-up, but from an earlier version;
+L<http://unicode.org/Public/cldr/latest/> for the most up-to-date, but
+you have to extract the POSIX information yourself), and that
+failing all that you can use the L<Encode> module to translate to/from
+your locale.  So, you'll have to do one of those things if you're using
+one of these locales, such as Big5 or Shift JIS.  For UTF-8 locales, in
+Perls (pre v5.20) that don't have full UTF-8 locale support, they may
+work reasonably well (depending on your C library implementation)
+simply because both
+they and Perl store characters that take up multiple bytes the same way.
+However, some, if not most, C library implementations may not process
+the characters in the upper half of the Latin-1 range (128 - 255)
+properly under C<LC_CTYPE>.  To see if a character is a particular type
+under a locale, Perl uses the functions like C<isalnum()>.  Your C
+library may not work for UTF-8 locales with those functions, instead
+only working under the newer wide library functions like C<iswalnum()>,
+which Perl does not use.
+These multi-byte locales are treated like single-byte locales, and will
+have the restrictions described below.  Starting in Perl v5.22 a warning
+message is raised when Perl detects a multi-byte locale that it doesn't
+fully support.
+
+For single-byte locales,
+Perl generally takes the tack to use locale rules on code points that can fit
+in a single byte, and Unicode rules for those that can't (though this
+isn't uniformly applied, see the note at the end of this section).  This
+prevents many problems in locales that aren't UTF-8.  Suppose the locale
+is ISO8859-7, Greek.  The character at 0xD7 there is a capital Chi. But
+in the ISO8859-1 locale, Latin1, it is a multiplication sign.  The POSIX
+regular expression character class C<[[:alpha:]]> will magically match
+0xD7 in the Greek locale but not in the Latin one.
+
+However, there are places where this breaks down.  Certain Perl constructs are
+for Unicode only, such as C<\p{Alpha}>.  They assume that 0xD7 always has its
+Unicode meaning (or the equivalent on EBCDIC platforms).  Since Latin1 is a
+subset of Unicode and 0xD7 is the multiplication sign in both Latin1 and
+Unicode, C<\p{Alpha}> will never match it, regardless of locale.  A similar
+issue occurs with C<\N{...}>.  Prior to v5.20, It is therefore a bad
+idea to use C<\p{}> or
+C<\N{}> under plain C<use locale>--I<unless> you can guarantee that the
+locale will be ISO8859-1.  Use POSIX character classes instead.
+
+Another problem with this approach is that operations that cross the
+single byte/multiple byte boundary are not well-defined, and so are
+disallowed.  (This boundary is between the codepoints at 255/256.)
+For example, lower casing LATIN CAPITAL LETTER Y WITH DIAERESIS (U+0178)
+should return LATIN SMALL LETTER Y WITH DIAERESIS (U+00FF).  But in the
+Greek locale, for example, there is no character at 0xFF, and Perl
+has no way of knowing what the character at 0xFF is really supposed to
+represent.  Thus it disallows the operation.  In this mode, the
+lowercase of U+0178 is itself.
+
+The same problems ensue if you enable automatic UTF-8-ification of your
+standard file handles, default C<open()> layer, and C<@ARGV> on non-ISO8859-1,
+non-UTF-8 locales (by using either the B<-C> command line switch or the
+C<PERL_UNICODE> environment variable; see L<perlrun>).
+Things are read in as UTF-8, which would normally imply a Unicode
+interpretation, but the presence of a locale causes them to be interpreted
+in that locale instead.  For example, a 0xD7 code point in the Unicode
+input, which should mean the multiplication sign, won't be interpreted by
+Perl that way under the Greek locale.  This is not a problem
+I<provided> you make certain that all locales will always and only be either
+an ISO8859-1, or, if you don't have a deficient C library, a UTF-8 locale.
+
+Still another problem is that this approach can lead to two code
+points meaning the same character.  Thus in a Greek locale, both U+03A7
+and U+00D7 are GREEK CAPITAL LETTER CHI.
+
+Because of all these problems, starting in v5.22, Perl will raise a
+warning if a multi-byte (hence Unicode) code point is used when a
+single-byte locale is in effect.  (Although it doesn't check for this if
+doing so would unreasonably slow execution down.)
+
+Vendor locales are notoriously buggy, and it is difficult for Perl to test
+its locale-handling code because this interacts with code that Perl has no
+control over; therefore the locale-handling code in Perl may be buggy as
+well.  (However, the Unicode-supplied locales should be better, and
+there is a feed back mechanism to correct any problems.  See
+L</Freely available locale definitions>.)
+
+If you have Perl v5.16, the problems mentioned above go away if you use
+the C<:not_characters> parameter to the locale pragma (except for vendor
+bugs in the non-character portions).  If you don't have v5.16, and you
+I<do> have locales that work, using them may be worthwhile for certain
+specific purposes, as long as you keep in mind the gotchas already
+mentioned.  For example, if the collation for your locales works, it
+runs faster under locales than under L<Unicode::Collate>; and you gain
+access to such things as the local currency symbol and the names of the
+months and days of the week.  (But to hammer home the point, in v5.16,
+you get this access without the downsides of locales by using the
+C<:not_characters> form of the pragma.)
+
+Note: The policy of using locale rules for code points that can fit in a
+byte, and Unicode rules for those that can't is not uniformly applied.
+Pre-v5.12, it was somewhat haphazard; in v5.12 it was applied fairly
+consistently to regular expression matching except for bracketed
+character classes; in v5.14 it was extended to all regex matches; and in
+v5.16 to the casing operations such as C<\L> and C<uc()>.  For
+collation, in all releases so far, the system's C<strxfrm()> function is
+called, and whatever it does is what you get.
+
+=head1 BUGS
+
+=head2 Broken systems
+
+In certain systems, the operating system's locale support
+is broken and cannot be fixed or used by Perl.  Such deficiencies can
+and will result in mysterious hangs and/or Perl core dumps when
+C<use locale> is in effect.  When confronted with such a system,
+please report in excruciating detail to <F<perlbug@perl.org>>, and
+also contact your vendor: bug fixes may exist for these problems
+in your operating system.  Sometimes such bug fixes are called an
+operating system upgrade.  If you have the source for Perl, include in
+the perlbug email the output of the test described above in L</Testing
+for broken locales>.
+
+=head1 SEE ALSO
+
+L<I18N::Langinfo>, L<perluniintro>, L<perlunicode>, L<open>,
+L<POSIX/isalnum>, L<POSIX/isalpha>,
+L<POSIX/isdigit>, L<POSIX/isgraph>, L<POSIX/islower>,
+L<POSIX/isprint>, L<POSIX/ispunct>, L<POSIX/isspace>,
+L<POSIX/isupper>, L<POSIX/isxdigit>, L<POSIX/localeconv>,
+L<POSIX/setlocale>, L<POSIX/strcoll>, L<POSIX/strftime>,
+L<POSIX/strtod>, L<POSIX/strxfrm>.
+
+For special considerations when Perl is embedded in a C program,
+see L<perlembed/Using embedded Perl with POSIX locales>.
+
+=head1 HISTORY
+
+Jarkko Hietaniemi's original F<perli18n.pod> heavily hacked by Dominic
+Dunlop, assisted by the perl5-porters.  Prose worked over a bit by
+Tom Christiansen, and updated by Perl 5 porters.
diff --git a/lib/5.24.1/pod/perllol.pod b/lib/5.24.1/pod/perllol.pod
new file mode 100644
index 00000000..b3defad7
--- /dev/null
+++ b/lib/5.24.1/pod/perllol.pod
@@ -0,0 +1,352 @@
+=head1 NAME
+
+perllol - Manipulating Arrays of Arrays in Perl
+
+=head1 DESCRIPTION
+
+=head2 Declaration and Access of Arrays of Arrays
+
+The simplest two-level data structure to build in Perl is an array of
+arrays, sometimes casually called a list of lists.  It's reasonably easy to
+understand, and almost everything that applies here will also be applicable
+later on with the fancier data structures.
+
+An array of an array is just a regular old array @AoA that you can
+get at with two subscripts, like C<$AoA[3][2]>.  Here's a declaration
+of the array:
+
+    use 5.010;  # so we can use say()
+
+    # assign to our array, an array of array references
+    @AoA = (
+	   [ "fred", "barney", "pebbles", "bambam", "dino", ],
+	   [ "george", "jane", "elroy", "judy", ],
+	   [ "homer", "bart", "marge", "maggie", ],
+    );
+    say $AoA[2][1];
+  bart
+
+Now you should be very careful that the outer bracket type
+is a round one, that is, a parenthesis.  That's because you're assigning to
+an @array, so you need parentheses.  If you wanted there I<not> to be an @AoA,
+but rather just a reference to it, you could do something more like this:
+
+    # assign a reference to array of array references
+    $ref_to_AoA = [
+	[ "fred", "barney", "pebbles", "bambam", "dino", ],
+	[ "george", "jane", "elroy", "judy", ],
+	[ "homer", "bart", "marge", "maggie", ],
+    ];
+    say $ref_to_AoA->[2][1];
+  bart
+
+Notice that the outer bracket type has changed, and so our access syntax
+has also changed.  That's because unlike C, in perl you can't freely
+interchange arrays and references thereto.  $ref_to_AoA is a reference to an
+array, whereas @AoA is an array proper.  Likewise, C<$AoA[2]> is not an
+array, but an array ref.  So how come you can write these:
+
+    $AoA[2][2]
+    $ref_to_AoA->[2][2]
+
+instead of having to write these:
+
+    $AoA[2]->[2]
+    $ref_to_AoA->[2]->[2]
+
+Well, that's because the rule is that on adjacent brackets only (whether
+square or curly), you are free to omit the pointer dereferencing arrow.
+But you cannot do so for the very first one if it's a scalar containing
+a reference, which means that $ref_to_AoA always needs it.
+
+=head2 Growing Your Own
+
+That's all well and good for declaration of a fixed data structure,
+but what if you wanted to add new elements on the fly, or build
+it up entirely from scratch?
+
+First, let's look at reading it in from a file.  This is something like
+adding a row at a time.  We'll assume that there's a flat file in which
+each line is a row and each word an element.  If you're trying to develop an
+@AoA array containing all these, here's the right way to do that:
+
+    while (<>) {
+	@tmp = split;
+	push @AoA, [ @tmp ];
+    }
+
+You might also have loaded that from a function:
+
+    for $i ( 1 .. 10 ) {
+	$AoA[$i] = [ somefunc($i) ];
+    }
+
+Or you might have had a temporary variable sitting around with the
+array in it.
+
+    for $i ( 1 .. 10 ) {
+	@tmp = somefunc($i);
+	$AoA[$i] = [ @tmp ];
+    }
+
+It's important you make sure to use the C<[ ]> array reference
+constructor.  That's because this wouldn't work:
+
+    $AoA[$i] = @tmp;   # WRONG!
+
+The reason that doesn't do what you want is because assigning a
+named array like that to a scalar is taking an array in scalar
+context, which means just counts the number of elements in @tmp.
+
+If you are running under C<use strict> (and if you aren't, why in
+the world aren't you?), you'll have to add some declarations to
+make it happy:
+
+    use strict;
+    my(@AoA, @tmp);
+    while (<>) {
+	@tmp = split;
+	push @AoA, [ @tmp ];
+    }
+
+Of course, you don't need the temporary array to have a name at all:
+
+    while (<>) {
+	push @AoA, [ split ];
+    }
+
+You also don't have to use push().  You could just make a direct assignment
+if you knew where you wanted to put it:
+
+    my (@AoA, $i, $line);
+    for $i ( 0 .. 10 ) {
+	$line = <>;
+	$AoA[$i] = [ split " ", $line ];
+    }
+
+or even just
+
+    my (@AoA, $i);
+    for $i ( 0 .. 10 ) {
+	$AoA[$i] = [ split " ", <> ];
+    }
+
+You should in general be leery of using functions that could
+potentially return lists in scalar context without explicitly stating
+such.  This would be clearer to the casual reader:
+
+    my (@AoA, $i);
+    for $i ( 0 .. 10 ) {
+	$AoA[$i] = [ split " ", scalar(<>) ];
+    }
+
+If you wanted to have a $ref_to_AoA variable as a reference to an array,
+you'd have to do something like this:
+
+    while (<>) {
+	push @$ref_to_AoA, [ split ];
+    }
+
+Now you can add new rows.  What about adding new columns?  If you're
+dealing with just matrices, it's often easiest to use simple assignment:
+
+    for $x (1 .. 10) {
+	for $y (1 .. 10) {
+	    $AoA[$x][$y] = func($x, $y);
+	}
+    }
+
+    for $x ( 3, 7, 9 ) {
+	$AoA[$x][20] += func2($x);
+    }
+
+It doesn't matter whether those elements are already
+there or not: it'll gladly create them for you, setting
+intervening elements to C<undef> as need be.
+
+If you wanted just to append to a row, you'd have
+to do something a bit funnier looking:
+
+    # add new columns to an existing row
+    push @{ $AoA[0] }, "wilma", "betty";   # explicit deref
+
+=head2 Access and Printing
+
+Now it's time to print your data structure out.  How
+are you going to do that?  Well, if you want only one
+of the elements, it's trivial:
+
+    print $AoA[0][0];
+
+If you want to print the whole thing, though, you can't
+say
+
+    print @AoA;		# WRONG
+
+because you'll get just references listed, and perl will never
+automatically dereference things for you.  Instead, you have to
+roll yourself a loop or two.  This prints the whole structure,
+using the shell-style for() construct to loop across the outer
+set of subscripts.
+
+    for $aref ( @AoA ) {
+	say "\t [ @$aref ],";
+    }
+
+If you wanted to keep track of subscripts, you might do this:
+
+    for $i ( 0 .. $#AoA ) {
+	say "\t elt $i is [ @{$AoA[$i]} ],";
+    }
+
+or maybe even this.  Notice the inner loop.
+
+    for $i ( 0 .. $#AoA ) {
+	for $j ( 0 .. $#{$AoA[$i]} ) {
+	    say "elt $i $j is $AoA[$i][$j]";
+	}
+    }
+
+As you can see, it's getting a bit complicated.  That's why
+sometimes is easier to take a temporary on your way through:
+
+    for $i ( 0 .. $#AoA ) {
+	$aref = $AoA[$i];
+	for $j ( 0 .. $#{$aref} ) {
+	    say "elt $i $j is $AoA[$i][$j]";
+	}
+    }
+
+Hmm... that's still a bit ugly.  How about this:
+
+    for $i ( 0 .. $#AoA ) {
+	$aref = $AoA[$i];
+	$n = @$aref - 1;
+	for $j ( 0 .. $n ) {
+	    say "elt $i $j is $AoA[$i][$j]";
+	}
+    }
+
+When you get tired of writing a custom print for your data structures,
+you might look at the standard L<Dumpvalue> or L<Data::Dumper> modules.
+The former is what the Perl debugger uses, while the latter generates
+parsable Perl code.  For example:
+
+ use v5.14;     # using the + prototype, new to v5.14
+
+ sub show(+) {
+	require Dumpvalue;
+	state $prettily = new Dumpvalue::
+			    tick        => q("),
+			    compactDump => 1,  # comment these two lines
+                                               # out
+			    veryCompact => 1,  # if you want a bigger
+                                               # dump
+			;
+	dumpValue $prettily @_;
+ }
+
+ # Assign a list of array references to an array.
+ my @AoA = (
+	   [ "fred", "barney" ],
+	   [ "george", "jane", "elroy" ],
+	   [ "homer", "marge", "bart" ],
+ );
+ push @{ $AoA[0] }, "wilma", "betty";
+ show @AoA;
+
+will print out:
+
+    0  0..3  "fred" "barney" "wilma" "betty"
+    1  0..2  "george" "jane" "elroy"
+    2  0..2  "homer" "marge" "bart"
+
+Whereas if you comment out the two lines I said you might wish to,
+then it shows it to you this way instead:
+
+    0  ARRAY(0x8031d0)
+       0  "fred"
+       1  "barney"
+       2  "wilma"
+       3  "betty"
+    1  ARRAY(0x803d40)
+       0  "george"
+       1  "jane"
+       2  "elroy"
+    2  ARRAY(0x803e10)
+       0  "homer"
+       1  "marge"
+       2  "bart"
+
+=head2 Slices
+
+If you want to get at a slice (part of a row) in a multidimensional
+array, you're going to have to do some fancy subscripting.  That's
+because while we have a nice synonym for single elements via the
+pointer arrow for dereferencing, no such convenience exists for slices.
+
+Here's how to do one operation using a loop.  We'll assume an @AoA
+variable as before.
+
+    @part = ();
+    $x = 4;
+    for ($y = 7; $y < 13; $y++) {
+	push @part, $AoA[$x][$y];
+    }
+
+That same loop could be replaced with a slice operation:
+
+    @part = @{$AoA[4]}[7..12];
+
+or spaced out a bit:
+
+    @part = @{ $AoA[4] } [ 7..12 ];
+
+But as you might well imagine, this can get pretty rough on the reader.
+
+Ah, but what if you wanted a I<two-dimensional slice>, such as having
+$x run from 4..8 and $y run from 7 to 12?  Hmm... here's the simple way:
+
+    @newAoA = ();
+    for ($startx = $x = 4; $x <= 8; $x++) {
+	for ($starty = $y = 7; $y <= 12; $y++) {
+	    $newAoA[$x - $startx][$y - $starty] = $AoA[$x][$y];
+	}
+    }
+
+We can reduce some of the looping through slices
+
+    for ($x = 4; $x <= 8; $x++) {
+	push @newAoA, [ @{ $AoA[$x] } [ 7..12 ] ];
+    }
+
+If you were into Schwartzian Transforms, you would probably
+have selected map for that
+
+    @newAoA = map { [ @{ $AoA[$_] } [ 7..12 ] ] } 4 .. 8;
+
+Although if your manager accused you of seeking job security (or rapid
+insecurity) through inscrutable code, it would be hard to argue. :-)
+If I were you, I'd put that in a function:
+
+    @newAoA = splice_2D( \@AoA, 4 => 8, 7 => 12 );
+    sub splice_2D {
+	my $lrr = shift; 	# ref to array of array refs!
+	my ($x_lo, $x_hi,
+	    $y_lo, $y_hi) = @_;
+
+	return map {
+	    [ @{ $lrr->[$_] } [ $y_lo .. $y_hi ] ]
+	} $x_lo .. $x_hi;
+    }
+
+
+=head1 SEE ALSO
+
+L<perldata>, L<perlref>, L<perldsc>
+
+=head1 AUTHOR
+
+Tom Christiansen <F<tchrist@perl.com>>
+
+Last update: Tue Apr 26 18:30:55 MDT 2011
diff --git a/lib/5.24.1/pod/perlmacos.pod b/lib/5.24.1/pod/perlmacos.pod
new file mode 100644
index 00000000..34828006
--- /dev/null
+++ b/lib/5.24.1/pod/perlmacos.pod
@@ -0,0 +1,30 @@
+If you read this file _as_is_, just ignore the funny characters you see.
+It is written in the POD format (see pod/perlpod.pod) which is specially
+designed to be readable as is.
+
+=head1 NAME
+
+perlmacos - Perl under Mac OS (Classic)
+
+=head1 SYNOPSIS
+
+For Mac OS X see README.macosx
+
+Perl under Mac OS Classic has not been supported since before Perl 5.10
+(April 2004).
+
+When we say "Mac OS" below, we mean Mac OS 7, 8, and 9, and I<not>
+Mac OS X.
+
+=head1 DESCRIPTION
+
+The port of Perl to to Mac OS was officially removed as of Perl 5.12,
+though the last official production release of MacPerl corresponded to 
+Perl 5.6. While Perl 5.10 included the port to Mac OS, ExtUtils::MakeMaker,
+a core part of Perl's module installation infrastructure officially dropped support for Mac OS in April 2004.
+
+=head1 AUTHOR
+
+Perl was ported to Mac OS by Matthias Neeracher
+E<lt>neeracher@mac.comE<gt>. Chris Nandor E<lt>pudge@pobox.comE<gt>
+continued development and maintenance for the duration of the port's life.
diff --git a/lib/5.24.1/pod/perlmacosx.pod b/lib/5.24.1/pod/perlmacosx.pod
new file mode 100644
index 00000000..596c1833
--- /dev/null
+++ b/lib/5.24.1/pod/perlmacosx.pod
@@ -0,0 +1,275 @@
+If you read this file _as_is_, just ignore the funny characters you see.
+It is written in the POD format (see pod/perlpod.pod) which is specially
+designed to be readable as is.
+
+=head1 NAME
+
+perlmacosx - Perl under Mac OS X
+
+=head1 SYNOPSIS
+
+This document briefly describes Perl under Mac OS X.
+
+  curl -O http://www.cpan.org/src/perl-5.24.1.tar.gz
+  tar -xzf perl-5.24.1.tar.gz
+  cd perl-5.24.1
+  ./Configure -des -Dprefix=/usr/local/
+  make
+  make test
+  sudo make install
+
+=head1 DESCRIPTION
+
+The latest Perl release (5.24.1 as of this writing) builds without changes
+under all versions of Mac OS X from 10.3 "Panther" onwards. 
+
+In order to build your own version of Perl you will need 'make',
+which is part of Apple's developer tools - also known as Xcode. From
+Mac OS X 10.7 "Lion" onwards, it can be downloaded separately as the
+'Command Line Tools' bundle directly from L<https://developer.apple.com/downloads/>
+(you will need a free account to log in), or as a part of the Xcode suite,
+freely available at the App Store. Xcode is a pretty big app, so
+unless you already have it or really want it, you are advised to get the
+'Command Line Tools' bundle separately from the link above. If you want
+to do it from within Xcode, go to Xcode -> Preferences -> Downloads and
+select the 'Command Line Tools' option.
+
+Between Mac OS X 10.3 "Panther" and 10.6 "Snow Leopard", the 'Command
+Line Tools' bundle was called 'unix tools', and was usually supplied
+with Mac OS install DVDs.
+
+Earlier Mac OS X releases (10.2 "Jaguar" and older) did not include a
+completely thread-safe libc, so threading is not fully supported. Also,
+earlier releases included a buggy libdb, so some of the DB_File tests
+are known to fail on those releases.
+
+
+=head2 Installation Prefix
+
+The default installation location for this release uses the traditional
+UNIX directory layout under /usr/local. This is the recommended location
+for most users, and will leave the Apple-supplied Perl and its modules
+undisturbed.
+
+Using an installation prefix of '/usr' will result in a directory layout
+that mirrors that of Apple's default Perl, with core modules stored in
+'/System/Library/Perl/${version}', CPAN modules stored in
+'/Library/Perl/${version}', and the addition of
+'/Network/Library/Perl/${version}' to @INC for modules that are stored
+on a file server and used by many Macs.
+
+
+=head2 SDK support
+
+First, export the path to the SDK into the build environment:
+
+ export SDK=/Applications/Xcode.app/Contents/Developer/Platforms/MacOSX.platform/Developer/SDKs/MacOSX10.8.sdk
+
+Please make sure the SDK version (i.e. the numbers right before '.sdk')
+matches your system's (in this case, Mac OS X 10.8 "Mountain Lion"), as it is
+possible to have more than one SDK installed. Also make sure the path exists
+in your system, and if it doesn't please make sure the SDK is properly
+installed, as it should come with the 'Command Line Tools' bundle mentioned
+above. Finally, if you have an older Mac OS X (10.6 "Snow Leopard" and below)
+running Xcode 4.2 or lower, the SDK path might be something like
+C<'/Developer/SDKs/MacOSX10.3.9.sdk'>.
+
+You can use the SDK by exporting some additions to Perl's 'ccflags' and '..flags'
+config variables:
+
+    ./Configure -Accflags="-nostdinc -B$SDK/usr/include/gcc \
+                           -B$SDK/usr/lib/gcc -isystem$SDK/usr/include \
+                           -F$SDK/System/Library/Frameworks" \
+                -Aldflags="-Wl,-syslibroot,$SDK" \
+                -de
+
+=head2 Universal Binary support
+
+Note: From Mac OS X 10.6 "Snow Leopard" onwards, Apple only supports
+Intel-based hardware. This means you can safely skip this section unless
+you have an older Apple computer running on ppc or wish to create a perl
+binary with backwards compatibility.
+
+You can compile perl as a universal binary (built for both ppc and intel).
+In Mac OS X 10.4 "Tiger", you must export the 'u' variant of the SDK:
+
+    export SDK=/Developer/SDKs/MacOSX10.4u.sdk
+
+Mac OS X 10.5 "Leopard" and above do not require the 'u' variant.
+
+In addition to the compiler flags used to select the SDK, also add the flags
+for creating a universal binary:
+
+ ./Configure -Accflags="-arch i686 -arch ppc -nostdinc               \
+                         -B$SDK/usr/include/gcc                      \
+                        -B$SDK/usr/lib/gcc -isystem$SDK/usr/include  \
+                        -F$SDK/System/Library/Frameworks"            \
+             -Aldflags="-arch i686 -arch ppc -Wl,-syslibroot,$SDK"   \
+             -de
+
+Keep in mind that these compiler and linker settings will also be used when
+building CPAN modules. For XS modules to be compiled as a universal binary, any
+libraries it links to must also be universal binaries. The system libraries that
+Apple includes with the 10.4u SDK are all universal, but user-installed libraries
+may need to be re-installed as universal binaries.
+
+=head2 64-bit PPC support
+
+Follow the instructions in F<INSTALL> to build perl with support for 64-bit 
+integers (C<use64bitint>) or both 64-bit integers and 64-bit addressing
+(C<use64bitall>). In the latter case, the resulting binary will run only
+on G5-based hosts.
+
+Support for 64-bit addressing is experimental: some aspects of Perl may be
+omitted or buggy. Note the messages output by F<Configure> for further 
+information. Please use C<perlbug> to submit a problem report in the
+event that you encounter difficulties.
+
+When building 64-bit modules, it is your responsibility to ensure that linked
+external libraries and frameworks provide 64-bit support: if they do not,
+module building may appear to succeed, but attempts to use the module will
+result in run-time dynamic linking errors, and subsequent test failures.
+You can use C<file> to discover the architectures supported by a library:
+
+    $ file libgdbm.3.0.0.dylib 
+    libgdbm.3.0.0.dylib: Mach-O fat file with 2 architectures
+    libgdbm.3.0.0.dylib (for architecture ppc):      Mach-O dynamically linked shared library ppc
+    libgdbm.3.0.0.dylib (for architecture ppc64):    Mach-O 64-bit dynamically linked shared library ppc64
+
+Note that this issue precludes the building of many Macintosh-specific CPAN
+modules (C<Mac::*>), as the required Apple frameworks do not provide PPC64
+support. Similarly, downloads from Fink or Darwinports are unlikely to provide
+64-bit support; the libraries must be rebuilt from source with the appropriate
+compiler and linker flags. For further information, see Apple's
+I<64-Bit Transition Guide> at 
+L<http://developer.apple.com/documentation/Darwin/Conceptual/64bitPorting/index.html>.
+
+=head2 libperl and Prebinding
+
+Mac OS X ships with a dynamically-loaded libperl, but the default for
+this release is to compile a static libperl. The reason for this is
+pre-binding. Dynamic libraries can be pre-bound to a specific address in
+memory in order to decrease load time. To do this, one needs to be aware
+of the location and size of all previously-loaded libraries. Apple
+collects this information as part of their overall OS build process, and
+thus has easy access to it when building Perl, but ordinary users would
+need to go to a great deal of effort to obtain the information needed
+for pre-binding.
+
+You can override the default and build a shared libperl if you wish
+(S<Configure ... -Duseshrplib>).
+
+With Mac OS X 10.4 "Tiger" and newer, there is almost no performance
+penalty for non-prebound libraries. Earlier releases will suffer a greater
+load time than either the static library, or Apple's pre-bound dynamic library.
+
+=head2 Updating Apple's Perl
+
+In a word - don't, at least not without a *very* good reason. Your scripts
+can just as easily begin with "#!/usr/local/bin/perl" as with
+"#!/usr/bin/perl". Scripts supplied by Apple and other third parties as
+part of installation packages and such have generally only been tested
+with the /usr/bin/perl that's installed by Apple.
+
+If you find that you do need to update the system Perl, one issue worth
+keeping in mind is the question of static vs. dynamic libraries. If you
+upgrade using the default static libperl, you will find that the dynamic
+libperl supplied by Apple will not be deleted. If both libraries are
+present when an application that links against libperl is built, ld will
+link against the dynamic library by default. So, if you need to replace
+Apple's dynamic libperl with a static libperl, you need to be sure to
+delete the older dynamic library after you've installed the update.
+
+
+=head2 Known problems
+
+If you have installed extra libraries such as GDBM through Fink
+(in other words, you have libraries under F</sw/lib>), or libdlcompat
+to F</usr/local/lib>, you may need to be extra careful when running
+Configure to not to confuse Configure and Perl about which libraries
+to use.  Being confused will show up for example as "dyld" errors about
+symbol problems, for example during "make test". The safest bet is to run
+Configure as
+
+    Configure ... -Uloclibpth -Dlibpth=/usr/lib
+
+to make Configure look only into the system libraries.  If you have some
+extra library directories that you really want to use (such as newer
+Berkeley DB libraries in pre-Panther systems), add those to the libpth:
+
+    Configure ... -Uloclibpth -Dlibpth='/usr/lib /opt/lib'
+
+The default of building Perl statically may cause problems with complex
+applications like Tk: in that case consider building shared Perl
+
+    Configure ... -Duseshrplib
+
+but remember that there's a startup cost to pay in that case (see above
+"libperl and Prebinding").
+
+Starting with Tiger (Mac OS X 10.4), Apple shipped broken locale files for
+the eu_ES locale (Basque-Spain).  In previous releases of Perl, this resulted in
+failures in the F<lib/locale> test. These failures have been suppressed
+in the current release of Perl by making the test ignore the broken locale.
+If you need to use the eu_ES locale, you should contact Apple support.
+
+
+=head2 Cocoa
+
+There are two ways to use Cocoa from Perl. Apple's PerlObjCBridge
+module, included with Mac OS X, can be used by standalone scripts to
+access Foundation (i.e. non-GUI) classes and objects.
+
+An alternative is CamelBones, a framework that allows access to both
+Foundation and AppKit classes and objects, so that full GUI applications
+can be built in Perl. CamelBones can be found on SourceForge, at
+L<http://www.sourceforge.net/projects/camelbones/>.
+
+
+=head1 Starting From Scratch
+
+Unfortunately it is not that difficult somehow manage to break one's
+Mac OS X Perl rather severely.  If all else fails and you want to
+really, B<REALLY>, start from scratch and remove even your Apple Perl
+installation (which has become corrupted somehow), the following
+instructions should do it.  B<Please think twice before following
+these instructions: they are much like conducting brain surgery to
+yourself.  Without anesthesia.>  We will B<not> come to fix your system
+if you do this.
+
+First, get rid of the libperl.dylib:
+
+    # cd /System/Library/Perl/darwin/CORE
+    # rm libperl.dylib
+
+Then delete every .bundle file found anywhere in the folders:
+
+    /System/Library/Perl
+    /Library/Perl
+
+You can find them for example by
+
+    # find /System/Library/Perl /Library/Perl -name '*.bundle' -print
+
+After this you can either copy Perl from your operating system media
+(you will need at least the /System/Library/Perl and /usr/bin/perl),
+or rebuild Perl from the source code with C<Configure -Dprefix=/usr
+-Duseshrplib> NOTE: the C<-Dprefix=/usr> to replace the system Perl
+works much better with Perl 5.8.1 and later, in Perl 5.8.0 the
+settings were not quite right.
+
+"Pacifist" from CharlesSoft (L<http://www.charlessoft.com/>) is a nice
+way to extract the Perl binaries from the OS media, without having to
+reinstall the entire OS.
+
+
+=head1 AUTHOR
+
+This README was written by Sherm Pendley E<lt>sherm@dot-app.orgE<gt>,
+and subsequently updated by Dominic Dunlop E<lt>domo@computer.orgE<gt>
+and Breno G. de Oliveira E<lt>garu@cpan.orgE<gt>. The "Starting From Scratch"
+recipe was contributed by John Montbriand E<lt>montbriand@apple.comE<gt>.
+
+=head1 DATE
+
+Last modified 2013-04-29.
diff --git a/lib/5.24.1/pod/perlmod.pod b/lib/5.24.1/pod/perlmod.pod
new file mode 100644
index 00000000..0ed4bd91
--- /dev/null
+++ b/lib/5.24.1/pod/perlmod.pod
@@ -0,0 +1,619 @@
+=head1 NAME
+
+perlmod - Perl modules (packages and symbol tables)
+
+=head1 DESCRIPTION
+
+=head2 Is this the document you were after?
+
+There are other documents which might contain the information that you're
+looking for:
+
+=over 2
+
+=item This doc
+
+Perl's packages, namespaces, and some info on classes.
+
+=item L<perlnewmod>
+
+Tutorial on making a new module.
+
+=item L<perlmodstyle>
+
+Best practices for making a new module.
+
+=back
+
+=head2 Packages
+X<package> X<namespace> X<variable, global> X<global variable> X<global>
+
+Perl provides a mechanism for alternative namespaces to protect
+packages from stomping on each other's variables.  In fact, there's
+really no such thing as a global variable in Perl.  The package
+statement declares the compilation unit as being in the given
+namespace.  The scope of the package declaration is from the
+declaration itself through the end of the enclosing block, C<eval>,
+or file, whichever comes first (the same scope as the my() and
+local() operators).  Unqualified dynamic identifiers will be in
+this namespace, except for those few identifiers that if unqualified,
+default to the main package instead of the current one as described
+below.  A package statement affects only dynamic variables--including
+those you've used local() on--but I<not> lexical variables created
+with my().  Typically it would be the first declaration in a file
+included by the C<do>, C<require>, or C<use> operators.  You can
+switch into a package in more than one place; it merely influences
+which symbol table is used by the compiler for the rest of that
+block.  You can refer to variables and filehandles in other packages
+by prefixing the identifier with the package name and a double
+colon: C<$Package::Variable>.  If the package name is null, the
+C<main> package is assumed.  That is, C<$::sail> is equivalent to
+C<$main::sail>.
+
+The old package delimiter was a single quote, but double colon is now the
+preferred delimiter, in part because it's more readable to humans, and
+in part because it's more readable to B<emacs> macros.  It also makes C++
+programmers feel like they know what's going on--as opposed to using the
+single quote as separator, which was there to make Ada programmers feel
+like they knew what was going on.  Because the old-fashioned syntax is still
+supported for backwards compatibility, if you try to use a string like
+C<"This is $owner's house">, you'll be accessing C<$owner::s>; that is,
+the $s variable in package C<owner>, which is probably not what you meant.
+Use braces to disambiguate, as in C<"This is ${owner}'s house">.
+X<::> X<'>
+
+Packages may themselves contain package separators, as in
+C<$OUTER::INNER::var>.  This implies nothing about the order of
+name lookups, however.  There are no relative packages: all symbols
+are either local to the current package, or must be fully qualified
+from the outer package name down.  For instance, there is nowhere
+within package C<OUTER> that C<$INNER::var> refers to
+C<$OUTER::INNER::var>.  C<INNER> refers to a totally
+separate global package.
+
+Only identifiers starting with letters (or underscore) are stored
+in a package's symbol table.  All other symbols are kept in package
+C<main>, including all punctuation variables, like $_.  In addition,
+when unqualified, the identifiers STDIN, STDOUT, STDERR, ARGV,
+ARGVOUT, ENV, INC, and SIG are forced to be in package C<main>,
+even when used for other purposes than their built-in ones.  If you
+have a package called C<m>, C<s>, or C<y>, then you can't use the
+qualified form of an identifier because it would be instead interpreted
+as a pattern match, a substitution, or a transliteration.
+X<variable, punctuation> 
+
+Variables beginning with underscore used to be forced into package
+main, but we decided it was more useful for package writers to be able
+to use leading underscore to indicate private variables and method names.
+However, variables and functions named with a single C<_>, such as
+$_ and C<sub _>, are still forced into the package C<main>.  See also
+L<perlvar/"The Syntax of Variable Names">.
+
+C<eval>ed strings are compiled in the package in which the eval() was
+compiled.  (Assignments to C<$SIG{}>, however, assume the signal
+handler specified is in the C<main> package.  Qualify the signal handler
+name if you wish to have a signal handler in a package.)  For an
+example, examine F<perldb.pl> in the Perl library.  It initially switches
+to the C<DB> package so that the debugger doesn't interfere with variables
+in the program you are trying to debug.  At various points, however, it
+temporarily switches back to the C<main> package to evaluate various
+expressions in the context of the C<main> package (or wherever you came
+from).  See L<perldebug>.
+
+The special symbol C<__PACKAGE__> contains the current package, but cannot
+(easily) be used to construct variable names.
+
+See L<perlsub> for other scoping issues related to my() and local(),
+and L<perlref> regarding closures.
+
+=head2 Symbol Tables
+X<symbol table> X<stash> X<%::> X<%main::> X<typeglob> X<glob> X<alias>
+
+The symbol table for a package happens to be stored in the hash of that
+name with two colons appended.  The main symbol table's name is thus
+C<%main::>, or C<%::> for short.  Likewise the symbol table for the nested
+package mentioned earlier is named C<%OUTER::INNER::>.
+
+The value in each entry of the hash is what you are referring to when you
+use the C<*name> typeglob notation.
+
+    local *main::foo    = *main::bar;
+
+You can use this to print out all the variables in a package, for
+instance.  The standard but antiquated F<dumpvar.pl> library and
+the CPAN module Devel::Symdump make use of this.
+
+The results of creating new symbol table entries directly or modifying any
+entries that are not already typeglobs are undefined and subject to change
+between releases of perl.
+
+Assignment to a typeglob performs an aliasing operation, i.e.,
+
+    *dick = *richard;
+
+causes variables, subroutines, formats, and file and directory handles
+accessible via the identifier C<richard> also to be accessible via the
+identifier C<dick>.  If you want to alias only a particular variable or
+subroutine, assign a reference instead:
+
+    *dick = \$richard;
+
+Which makes $richard and $dick the same variable, but leaves
+@richard and @dick as separate arrays.  Tricky, eh?
+
+There is one subtle difference between the following statements:
+
+    *foo = *bar;
+    *foo = \$bar;
+
+C<*foo = *bar> makes the typeglobs themselves synonymous while
+C<*foo = \$bar> makes the SCALAR portions of two distinct typeglobs
+refer to the same scalar value. This means that the following code:
+
+    $bar = 1;
+    *foo = \$bar;       # Make $foo an alias for $bar
+
+    {
+        local $bar = 2; # Restrict changes to block
+        print $foo;     # Prints '1'!
+    }
+
+Would print '1', because C<$foo> holds a reference to the I<original>
+C<$bar>. The one that was stuffed away by C<local()> and which will be
+restored when the block ends. Because variables are accessed through the
+typeglob, you can use C<*foo = *bar> to create an alias which can be
+localized. (But be aware that this means you can't have a separate
+C<@foo> and C<@bar>, etc.)
+
+What makes all of this important is that the Exporter module uses glob
+aliasing as the import/export mechanism. Whether or not you can properly
+localize a variable that has been exported from a module depends on how
+it was exported:
+
+    @EXPORT = qw($FOO); # Usual form, can't be localized
+    @EXPORT = qw(*FOO); # Can be localized
+
+You can work around the first case by using the fully qualified name
+(C<$Package::FOO>) where you need a local value, or by overriding it
+by saying C<*FOO = *Package::FOO> in your script.
+
+The C<*x = \$y> mechanism may be used to pass and return cheap references
+into or from subroutines if you don't want to copy the whole
+thing.  It only works when assigning to dynamic variables, not
+lexicals.
+
+    %some_hash = ();			# can't be my()
+    *some_hash = fn( \%another_hash );
+    sub fn {
+	local *hashsym = shift;
+	# now use %hashsym normally, and you
+	# will affect the caller's %another_hash
+	my %nhash = (); # do what you want
+	return \%nhash;
+    }
+
+On return, the reference will overwrite the hash slot in the
+symbol table specified by the *some_hash typeglob.  This
+is a somewhat tricky way of passing around references cheaply
+when you don't want to have to remember to dereference variables
+explicitly.
+
+Another use of symbol tables is for making "constant" scalars.
+X<constant> X<scalar, constant>
+
+    *PI = \3.14159265358979;
+
+Now you cannot alter C<$PI>, which is probably a good thing all in all.
+This isn't the same as a constant subroutine, which is subject to
+optimization at compile-time.  A constant subroutine is one prototyped
+to take no arguments and to return a constant expression.  See
+L<perlsub> for details on these.  The C<use constant> pragma is a
+convenient shorthand for these.
+
+You can say C<*foo{PACKAGE}> and C<*foo{NAME}> to find out what name and
+package the *foo symbol table entry comes from.  This may be useful
+in a subroutine that gets passed typeglobs as arguments:
+
+    sub identify_typeglob {
+        my $glob = shift;
+        print 'You gave me ', *{$glob}{PACKAGE},
+            '::', *{$glob}{NAME}, "\n";
+    }
+    identify_typeglob *foo;
+    identify_typeglob *bar::baz;
+
+This prints
+
+    You gave me main::foo
+    You gave me bar::baz
+
+The C<*foo{THING}> notation can also be used to obtain references to the
+individual elements of *foo.  See L<perlref>.
+
+Subroutine definitions (and declarations, for that matter) need
+not necessarily be situated in the package whose symbol table they
+occupy.  You can define a subroutine outside its package by
+explicitly qualifying the name of the subroutine:
+
+    package main;
+    sub Some_package::foo { ... }   # &foo defined in Some_package
+
+This is just a shorthand for a typeglob assignment at compile time:
+
+    BEGIN { *Some_package::foo = sub { ... } }
+
+and is I<not> the same as writing:
+
+    {
+	package Some_package;
+	sub foo { ... }
+    }
+
+In the first two versions, the body of the subroutine is
+lexically in the main package, I<not> in Some_package. So
+something like this:
+
+    package main;
+
+    $Some_package::name = "fred";
+    $main::name = "barney";
+
+    sub Some_package::foo {
+	print "in ", __PACKAGE__, ": \$name is '$name'\n";
+    }
+
+    Some_package::foo();
+
+prints:
+
+    in main: $name is 'barney'
+
+rather than:
+
+    in Some_package: $name is 'fred'
+
+This also has implications for the use of the SUPER:: qualifier
+(see L<perlobj>).
+
+=head2 BEGIN, UNITCHECK, CHECK, INIT and END
+X<BEGIN> X<UNITCHECK> X<CHECK> X<INIT> X<END>
+
+Five specially named code blocks are executed at the beginning and at
+the end of a running Perl program.  These are the C<BEGIN>,
+C<UNITCHECK>, C<CHECK>, C<INIT>, and C<END> blocks.
+
+These code blocks can be prefixed with C<sub> to give the appearance of a
+subroutine (although this is not considered good style).  One should note
+that these code blocks don't really exist as named subroutines (despite
+their appearance). The thing that gives this away is the fact that you can
+have B<more than one> of these code blocks in a program, and they will get
+B<all> executed at the appropriate moment.  So you can't execute any of
+these code blocks by name.
+
+A C<BEGIN> code block is executed as soon as possible, that is, the moment
+it is completely defined, even before the rest of the containing file (or
+string) is parsed.  You may have multiple C<BEGIN> blocks within a file (or
+eval'ed string); they will execute in order of definition.  Because a C<BEGIN>
+code block executes immediately, it can pull in definitions of subroutines
+and such from other files in time to be visible to the rest of the compile
+and run time.  Once a C<BEGIN> has run, it is immediately undefined and any
+code it used is returned to Perl's memory pool.
+
+An C<END> code block is executed as late as possible, that is, after
+perl has finished running the program and just before the interpreter
+is being exited, even if it is exiting as a result of a die() function.
+(But not if it's morphing into another program via C<exec>, or
+being blown out of the water by a signal--you have to trap that yourself
+(if you can).)  You may have multiple C<END> blocks within a file--they
+will execute in reverse order of definition; that is: last in, first
+out (LIFO).  C<END> blocks are not executed when you run perl with the
+C<-c> switch, or if compilation fails.
+
+Note that C<END> code blocks are B<not> executed at the end of a string
+C<eval()>: if any C<END> code blocks are created in a string C<eval()>,
+they will be executed just as any other C<END> code block of that package
+in LIFO order just before the interpreter is being exited.
+
+Inside an C<END> code block, C<$?> contains the value that the program is
+going to pass to C<exit()>.  You can modify C<$?> to change the exit
+value of the program.  Beware of changing C<$?> by accident (e.g. by
+running something via C<system>).
+X<$?>
+
+Inside of a C<END> block, the value of C<${^GLOBAL_PHASE}> will be
+C<"END">.
+
+C<UNITCHECK>, C<CHECK> and C<INIT> code blocks are useful to catch the
+transition between the compilation phase and the execution phase of
+the main program.
+
+C<UNITCHECK> blocks are run just after the unit which defined them has
+been compiled.  The main program file and each module it loads are
+compilation units, as are string C<eval>s, run-time code compiled using the
+C<(?{ })> construct in a regex, calls to C<do FILE>, C<require FILE>,
+and code after the C<-e> switch on the command line.
+
+C<BEGIN> and C<UNITCHECK> blocks are not directly related to the phase of
+the interpreter.  They can be created and executed during any phase.
+
+C<CHECK> code blocks are run just after the B<initial> Perl compile phase ends
+and before the run time begins, in LIFO order.  C<CHECK> code blocks are used
+in the Perl compiler suite to save the compiled state of the program.
+
+Inside of a C<CHECK> block, the value of C<${^GLOBAL_PHASE}> will be
+C<"CHECK">.
+
+C<INIT> blocks are run just before the Perl runtime begins execution, in
+"first in, first out" (FIFO) order.
+
+Inside of an C<INIT> block, the value of C<${^GLOBAL_PHASE}> will be C<"INIT">.
+
+The C<CHECK> and C<INIT> blocks in code compiled by C<require>, string C<do>,
+or string C<eval> will not be executed if they occur after the end of the
+main compilation phase; that can be a problem in mod_perl and other persistent
+environments which use those functions to load code at runtime.
+
+When you use the B<-n> and B<-p> switches to Perl, C<BEGIN> and
+C<END> work just as they do in B<awk>, as a degenerate case.
+Both C<BEGIN> and C<CHECK> blocks are run when you use the B<-c>
+switch for a compile-only syntax check, although your main code
+is not.
+
+The B<begincheck> program makes it all clear, eventually:
+
+  #!/usr/bin/perl
+
+  # begincheck
+
+  print         "10. Ordinary code runs at runtime.\n";
+
+  END { print   "16.   So this is the end of the tale.\n" }
+  INIT { print  " 7. INIT blocks run FIFO just before runtime.\n" }
+  UNITCHECK {
+    print       " 4.   And therefore before any CHECK blocks.\n"
+  }
+  CHECK { print " 6.   So this is the sixth line.\n" }
+
+  print         "11.   It runs in order, of course.\n";
+
+  BEGIN { print " 1. BEGIN blocks run FIFO during compilation.\n" }
+  END { print   "15.   Read perlmod for the rest of the story.\n" }
+  CHECK { print " 5. CHECK blocks run LIFO after all compilation.\n" }
+  INIT { print  " 8.   Run this again, using Perl's -c switch.\n" }
+
+  print         "12.   This is anti-obfuscated code.\n";
+
+  END { print   "14. END blocks run LIFO at quitting time.\n" }
+  BEGIN { print " 2.   So this line comes out second.\n" }
+  UNITCHECK {
+   print " 3. UNITCHECK blocks run LIFO after each file is compiled.\n"
+  }
+  INIT { print  " 9.   You'll see the difference right away.\n" }
+
+  print         "13.   It only _looks_ like it should be confusing.\n";
+
+  __END__
+
+=head2 Perl Classes
+X<class> X<@ISA>
+
+There is no special class syntax in Perl, but a package may act
+as a class if it provides subroutines to act as methods.  Such a
+package may also derive some of its methods from another class (package)
+by listing the other package name(s) in its global @ISA array (which
+must be a package global, not a lexical).
+
+For more on this, see L<perlootut> and L<perlobj>.
+
+=head2 Perl Modules
+X<module>
+
+A module is just a set of related functions in a library file, i.e.,
+a Perl package with the same name as the file.  It is specifically
+designed to be reusable by other modules or programs.  It may do this
+by providing a mechanism for exporting some of its symbols into the
+symbol table of any package using it, or it may function as a class
+definition and make its semantics available implicitly through
+method calls on the class and its objects, without explicitly
+exporting anything.  Or it can do a little of both.
+
+For example, to start a traditional, non-OO module called Some::Module,
+create a file called F<Some/Module.pm> and start with this template:
+
+    package Some::Module;  # assumes Some/Module.pm
+
+    use strict;
+    use warnings;
+
+    BEGIN {
+        require Exporter;
+
+        # set the version for version checking
+        our $VERSION     = 1.00;
+
+        # Inherit from Exporter to export functions and variables
+        our @ISA         = qw(Exporter);
+
+        # Functions and variables which are exported by default
+        our @EXPORT      = qw(func1 func2);
+
+        # Functions and variables which can be optionally exported
+        our @EXPORT_OK   = qw($Var1 %Hashit func3);
+    }
+
+    # exported package globals go here
+    our $Var1    = '';
+    our %Hashit  = ();
+
+    # non-exported package globals go here
+    # (they are still accessible as $Some::Module::stuff)
+    our @more    = ();
+    our $stuff   = '';
+
+    # file-private lexicals go here, before any functions which use them
+    my $priv_var    = '';
+    my %secret_hash = ();
+
+    # here's a file-private function as a closure,
+    # callable as $priv_func->();
+    my $priv_func = sub {
+        ...
+    };
+
+    # make all your functions, whether exported or not;
+    # remember to put something interesting in the {} stubs
+    sub func1      { ... }
+    sub func2      { ... }
+
+    # this one isn't exported, but could be called directly
+    # as Some::Module::func3()
+    sub func3      { ... }
+
+    END { ... }       # module clean-up code here (global destructor)
+
+    1;  # don't forget to return a true value from the file
+
+Then go on to declare and use your variables in functions without
+any qualifications.  See L<Exporter> and the L<perlmodlib> for
+details on mechanics and style issues in module creation.
+
+Perl modules are included into your program by saying
+
+    use Module;
+
+or
+
+    use Module LIST;
+
+This is exactly equivalent to
+
+    BEGIN { require 'Module.pm'; 'Module'->import; }
+
+or
+
+    BEGIN { require 'Module.pm'; 'Module'->import( LIST ); }
+
+As a special case
+
+    use Module ();
+
+is exactly equivalent to
+
+    BEGIN { require 'Module.pm'; }
+
+All Perl module files have the extension F<.pm>.  The C<use> operator
+assumes this so you don't have to spell out "F<Module.pm>" in quotes.
+This also helps to differentiate new modules from old F<.pl> and
+F<.ph> files.  Module names are also capitalized unless they're
+functioning as pragmas; pragmas are in effect compiler directives,
+and are sometimes called "pragmatic modules" (or even "pragmata"
+if you're a classicist).
+
+The two statements:
+
+    require SomeModule;
+    require "SomeModule.pm";
+
+differ from each other in two ways.  In the first case, any double
+colons in the module name, such as C<Some::Module>, are translated
+into your system's directory separator, usually "/".   The second
+case does not, and would have to be specified literally.  The other
+difference is that seeing the first C<require> clues in the compiler
+that uses of indirect object notation involving "SomeModule", as
+in C<$ob = purge SomeModule>, are method calls, not function calls.
+(Yes, this really can make a difference.)
+
+Because the C<use> statement implies a C<BEGIN> block, the importing
+of semantics happens as soon as the C<use> statement is compiled,
+before the rest of the file is compiled.  This is how it is able
+to function as a pragma mechanism, and also how modules are able to
+declare subroutines that are then visible as list or unary operators for
+the rest of the current file.  This will not work if you use C<require>
+instead of C<use>.  With C<require> you can get into this problem:
+
+    require Cwd;		# make Cwd:: accessible
+    $here = Cwd::getcwd();
+
+    use Cwd;			# import names from Cwd::
+    $here = getcwd();
+
+    require Cwd;	    	# make Cwd:: accessible
+    $here = getcwd(); 		# oops! no main::getcwd()
+
+In general, C<use Module ()> is recommended over C<require Module>,
+because it determines module availability at compile time, not in the
+middle of your program's execution.  An exception would be if two modules
+each tried to C<use> each other, and each also called a function from
+that other module.  In that case, it's easy to use C<require> instead.
+
+Perl packages may be nested inside other package names, so we can have
+package names containing C<::>.  But if we used that package name
+directly as a filename it would make for unwieldy or impossible
+filenames on some systems.  Therefore, if a module's name is, say,
+C<Text::Soundex>, then its definition is actually found in the library
+file F<Text/Soundex.pm>.
+
+Perl modules always have a F<.pm> file, but there may also be
+dynamically linked executables (often ending in F<.so>) or autoloaded
+subroutine definitions (often ending in F<.al>) associated with the
+module.  If so, these will be entirely transparent to the user of
+the module.  It is the responsibility of the F<.pm> file to load
+(or arrange to autoload) any additional functionality.  For example,
+although the POSIX module happens to do both dynamic loading and
+autoloading, the user can say just C<use POSIX> to get it all.
+
+=head2 Making your module threadsafe
+X<threadsafe> X<thread safe>
+X<module, threadsafe> X<module, thread safe>
+X<CLONE> X<CLONE_SKIP> X<thread> X<threads> X<ithread>
+
+Perl supports a type of threads called interpreter threads (ithreads).
+These threads can be used explicitly and implicitly.
+
+Ithreads work by cloning the data tree so that no data is shared
+between different threads. These threads can be used by using the C<threads>
+module or by doing fork() on win32 (fake fork() support). When a
+thread is cloned all Perl data is cloned, however non-Perl data cannot
+be cloned automatically.  Perl after 5.8.0 has support for the C<CLONE>
+special subroutine.  In C<CLONE> you can do whatever
+you need to do,
+like for example handle the cloning of non-Perl data, if necessary.
+C<CLONE> will be called once as a class method for every package that has it
+defined (or inherits it).  It will be called in the context of the new thread,
+so all modifications are made in the new area.  Currently CLONE is called with
+no parameters other than the invocant package name, but code should not assume
+that this will remain unchanged, as it is likely that in future extra parameters
+will be passed in to give more information about the state of cloning.
+
+If you want to CLONE all objects you will need to keep track of them per
+package. This is simply done using a hash and Scalar::Util::weaken().
+
+Perl after 5.8.7 has support for the C<CLONE_SKIP> special subroutine.
+Like C<CLONE>, C<CLONE_SKIP> is called once per package; however, it is
+called just before cloning starts, and in the context of the parent
+thread. If it returns a true value, then no objects of that class will
+be cloned; or rather, they will be copied as unblessed, undef values.
+For example: if in the parent there are two references to a single blessed
+hash, then in the child there will be two references to a single undefined
+scalar value instead.
+This provides a simple mechanism for making a module threadsafe; just add
+C<sub CLONE_SKIP { 1 }> at the top of the class, and C<DESTROY()> will
+now only be called once per object. Of course, if the child thread needs
+to make use of the objects, then a more sophisticated approach is
+needed.
+
+Like C<CLONE>, C<CLONE_SKIP> is currently called with no parameters other
+than the invocant package name, although that may change. Similarly, to
+allow for future expansion, the return value should be a single C<0> or
+C<1> value.
+
+=head1 SEE ALSO
+
+See L<perlmodlib> for general style issues related to building Perl
+modules and classes, as well as descriptions of the standard library
+and CPAN, L<Exporter> for how Perl's standard import/export mechanism
+works, L<perlootut> and L<perlobj> for in-depth information on
+creating classes, L<perlobj> for a hard-core reference document on
+objects, L<perlsub> for an explanation of functions and scoping,
+and L<perlxstut> and L<perlguts> for more information on writing
+extension modules.
diff --git a/lib/5.24.1/pod/perlmodinstall.pod b/lib/5.24.1/pod/perlmodinstall.pod
new file mode 100644
index 00000000..f92620c6
--- /dev/null
+++ b/lib/5.24.1/pod/perlmodinstall.pod
@@ -0,0 +1,439 @@
+=head1 NAME
+
+perlmodinstall - Installing CPAN Modules
+
+=head1 DESCRIPTION
+
+You can think of a module as the fundamental unit of reusable Perl
+code; see L<perlmod> for details.  Whenever anyone creates a chunk of
+Perl code that they think will be useful to the world, they register
+as a Perl developer at http://www.cpan.org/modules/04pause.html
+so that they can then upload their code to the CPAN.  The CPAN is the
+Comprehensive Perl Archive Network and can be accessed at
+http://www.cpan.org/ , and searched at http://search.cpan.org/ .
+
+This documentation is for people who want to download CPAN modules
+and install them on their own computer.
+
+=head2 PREAMBLE
+
+First, are you sure that the module isn't already on your system?  Try
+C<perl -MFoo -e 1>.  (Replace "Foo" with the name of the module; for
+instance, C<perl -MCGI::Carp -e 1>.)
+
+If you don't see an error message, you have the module.  (If you do
+see an error message, it's still possible you have the module, but
+that it's not in your path, which you can display with C<perl -e
+"print qq(@INC)">.)  For the remainder of this document, we'll assume
+that you really honestly truly lack an installed module, but have
+found it on the CPAN.
+
+So now you have a file ending in .tar.gz (or, less often, .zip).  You
+know there's a tasty module inside.  There are four steps you must now
+take:
+
+=over 5
+
+=item B<DECOMPRESS> the file
+
+=item B<UNPACK> the file into a directory
+
+=item B<BUILD> the module (sometimes unnecessary)
+
+=item B<INSTALL> the module.
+
+=back
+
+Here's how to perform each step for each operating system.  This is
+<not> a substitute for reading the README and INSTALL files that
+might have come with your module!
+
+Also note that these instructions are tailored for installing the
+module into your system's repository of Perl modules, but you can
+install modules into any directory you wish.  For instance, where I
+say C<perl Makefile.PL>, you can substitute C<perl Makefile.PL
+PREFIX=/my/perl_directory> to install the modules into
+F</my/perl_directory>.  Then you can use the modules from your Perl
+programs with C<use lib "/my/perl_directory/lib/site_perl";> or
+sometimes just C<use "/my/perl_directory";>.  If you're on a system
+that requires superuser/root access to install modules into the
+directories you see when you type C<perl -e "print qq(@INC)">, you'll
+want to install them into a local directory (such as your home
+directory) and use this approach.
+
+=over 4
+
+=item *
+
+B<If you're on a Unix or Unix-like system,>
+
+You can use Andreas Koenig's CPAN module
+( http://www.cpan.org/modules/by-module/CPAN )
+to automate the following steps, from DECOMPRESS through INSTALL.
+
+A. DECOMPRESS
+
+Decompress the file with C<gzip -d yourmodule.tar.gz>
+
+You can get gzip from ftp://prep.ai.mit.edu/pub/gnu/
+
+Or, you can combine this step with the next to save disk space:
+
+     gzip -dc yourmodule.tar.gz | tar -xof -
+
+B. UNPACK
+
+Unpack the result with C<tar -xof yourmodule.tar>
+
+C. BUILD
+
+Go into the newly-created directory and type:
+
+      perl Makefile.PL
+      make test
+
+or
+
+      perl Makefile.PL PREFIX=/my/perl_directory
+
+to install it locally.  (Remember that if you do this, you'll have to
+put C<use lib "/my/perl_directory";> near the top of the program that
+is to use this module.
+
+D. INSTALL
+
+While still in that directory, type:
+
+      make install
+
+Make sure you have the appropriate permissions to install the module
+in your Perl 5 library directory.  Often, you'll need to be root.
+
+That's all you need to do on Unix systems with dynamic linking.
+Most Unix systems have dynamic linking. If yours doesn't, or if for
+another reason you have a statically-linked perl, B<and> the
+module requires compilation, you'll need to build a new Perl binary
+that includes the module.  Again, you'll probably need to be root.
+
+=item *
+
+B<If you're running ActivePerl (Win95/98/2K/NT/XP, Linux, Solaris),>
+
+First, type C<ppm> from a shell and see whether ActiveState's PPM
+repository has your module.  If so, you can install it with C<ppm> and
+you won't have to bother with any of the other steps here.  You might
+be able to use the CPAN instructions from the "Unix or Linux" section
+above as well; give it a try.  Otherwise, you'll have to follow the
+steps below.
+
+   A. DECOMPRESS
+
+You can use the shareware Winzip ( http://www.winzip.com ) to
+decompress and unpack modules.
+
+   B. UNPACK
+
+If you used WinZip, this was already done for you.
+
+   C. BUILD
+
+You'll need the C<nmake> utility, available at
+http://download.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/nmake15.exe
+or dmake, available on CPAN.
+http://search.cpan.org/dist/dmake/
+
+Does the module require compilation (i.e. does it have files that end
+in .xs, .c, .h, .y, .cc, .cxx, or .C)?  If it does, life is now
+officially tough for you, because you have to compile the module
+yourself (no easy feat on Windows).  You'll need a compiler such as
+Visual C++.  Alternatively, you can download a pre-built PPM package
+from ActiveState.
+http://aspn.activestate.com/ASPN/Downloads/ActivePerl/PPM/
+
+Go into the newly-created directory and type:
+
+      perl Makefile.PL
+      nmake test
+
+
+   D. INSTALL
+
+While still in that directory, type:
+
+      nmake install
+
+=item *
+
+B<If you're using a Macintosh with "Classic" MacOS and MacPerl,>
+
+
+A. DECOMPRESS
+
+First, make sure you have the latest B<cpan-mac> distribution (
+http://www.cpan.org/authors/id/CNANDOR/ ), which has utilities for
+doing all of the steps.  Read the cpan-mac directions carefully and
+install it.  If you choose not to use cpan-mac for some reason, there
+are alternatives listed here.
+
+After installing cpan-mac, drop the module archive on the
+B<untarzipme> droplet, which will decompress and unpack for you.
+
+B<Or>, you can either use the shareware B<StuffIt Expander> program
+( http://my.smithmicro.com/mac/stuffit/ )
+or the freeware B<MacGzip> program (
+http://persephone.cps.unizar.es/general/gente/spd/gzip/gzip.html ).
+
+B. UNPACK
+
+If you're using untarzipme or StuffIt, the archive should be extracted
+now.  B<Or>, you can use the freeware B<suntar> or I<Tar> (
+http://hyperarchive.lcs.mit.edu/HyperArchive/Archive/cmp/ ).
+
+C. BUILD
+
+Check the contents of the distribution.
+Read the module's documentation, looking for
+reasons why you might have trouble using it with MacPerl.  Look for
+F<.xs> and F<.c> files, which normally denote that the distribution
+must be compiled, and you cannot install it "out of the box."
+(See L<"PORTABILITY">.)
+
+D. INSTALL
+
+If you are using cpan-mac, just drop the folder on the
+B<installme> droplet, and use the module.
+
+B<Or>, if you aren't using cpan-mac, do some manual labor.
+
+Make sure the newlines for the modules are in Mac format, not Unix format.
+If they are not then you might have decompressed them incorrectly.  Check
+your decompression and unpacking utilities settings to make sure they are
+translating text files properly.
+
+As a last resort, you can use the perl one-liner:
+
+    perl -i.bak -pe 's/(?:\015)?\012/\015/g' <filenames>
+
+on the source files.
+
+Then move the files (probably just the F<.pm> files, though there
+may be some additional ones, too; check the module documentation)
+to their final destination: This will
+most likely be in C<$ENV{MACPERL}site_lib:> (i.e.,
+C<HD:MacPerl folder:site_lib:>).  You can add new paths to
+the default C<@INC> in the Preferences menu item in the
+MacPerl application (C<$ENV{MACPERL}site_lib:> is added
+automagically).  Create whatever directory structures are required
+(i.e., for C<Some::Module>, create
+C<$ENV{MACPERL}site_lib:Some:> and put
+C<Module.pm> in that directory).
+
+Then run the following script (or something like it):
+
+     #!perl -w
+     use AutoSplit;
+     my $dir = "${MACPERL}site_perl";
+     autosplit("$dir:Some:Module.pm", "$dir:auto", 0, 1, 1);
+
+=item *
+
+B<If you're on the DJGPP port of DOS,>
+
+   A. DECOMPRESS
+
+djtarx ( ftp://ftp.delorie.com/pub/djgpp/current/v2/ )
+will both uncompress and unpack.
+
+   B. UNPACK
+
+See above.
+
+   C. BUILD
+
+Go into the newly-created directory and type:
+
+      perl Makefile.PL
+      make test
+
+You will need the packages mentioned in F<README.dos>
+in the Perl distribution.
+
+   D. INSTALL
+
+While still in that directory, type:
+
+     make install	
+
+You will need the packages mentioned in F<README.dos> in the Perl distribution.
+
+=item *
+
+B<If you're on OS/2,>
+
+Get the EMX development suite and gzip/tar, from either Hobbes (
+http://hobbes.nmsu.edu ) or Leo ( http://www.leo.org ), and then follow
+the instructions for Unix.
+
+=item *
+
+B<If you're on VMS,>
+
+When downloading from CPAN, save your file with a C<.tgz>
+extension instead of C<.tar.gz>.  All other periods in the
+filename should be replaced with underscores.  For example,
+C<Your-Module-1.33.tar.gz> should be downloaded as
+C<Your-Module-1_33.tgz>.
+
+A. DECOMPRESS
+
+Type
+
+    gzip -d Your-Module.tgz
+
+or, for zipped modules, type
+
+    unzip Your-Module.zip
+
+Executables for gzip, zip, and VMStar:
+
+    http://www.hp.com/go/openvms/freeware/
+
+and their source code:
+
+    http://www.fsf.org/order/ftp.html
+
+Note that GNU's gzip/gunzip is not the same as Info-ZIP's zip/unzip
+package.  The former is a simple compression tool; the latter permits
+creation of multi-file archives.
+
+B. UNPACK
+
+If you're using VMStar:
+
+     VMStar xf Your-Module.tar
+
+Or, if you're fond of VMS command syntax:
+
+     tar/extract/verbose Your_Module.tar
+
+C. BUILD
+
+Make sure you have MMS (from Digital) or the freeware MMK ( available
+from MadGoat at http://www.madgoat.com ).  Then type this to create
+the DESCRIP.MMS for the module:
+
+    perl Makefile.PL
+
+Now you're ready to build:
+
+    mms test
+
+Substitute C<mmk> for C<mms> above if you're using MMK.
+
+D. INSTALL
+
+Type
+
+    mms install
+
+Substitute C<mmk> for C<mms> above if you're using MMK.
+
+=item *
+
+B<If you're on MVS>,
+
+Introduce the F<.tar.gz> file into an HFS as binary; don't translate from
+ASCII to EBCDIC.
+
+A. DECOMPRESS
+
+Decompress the file with C<gzip -d yourmodule.tar.gz>
+
+You can get gzip from
+http://www.s390.ibm.com/products/oe/bpxqp1.html
+
+B. UNPACK
+
+Unpack the result with
+
+     pax -o to=IBM-1047,from=ISO8859-1 -r < yourmodule.tar
+
+The BUILD and INSTALL steps are identical to those for Unix.  Some
+modules generate Makefiles that work better with GNU make, which is
+available from http://www.mks.com/s390/gnu/
+
+=back
+
+=head1 PORTABILITY
+
+Note that not all modules will work with on all platforms.
+See L<perlport> for more information on portability issues.
+Read the documentation to see if the module will work on your
+system.  There are basically three categories
+of modules that will not work "out of the box" with all
+platforms (with some possibility of overlap):
+
+=over 4
+
+=item *
+
+B<Those that should, but don't.>  These need to be fixed; consider
+contacting the author and possibly writing a patch.
+
+=item *
+
+B<Those that need to be compiled, where the target platform
+doesn't have compilers readily available.>  (These modules contain
+F<.xs> or F<.c> files, usually.)  You might be able to find
+existing binaries on the CPAN or elsewhere, or you might
+want to try getting compilers and building it yourself, and then
+release the binary for other poor souls to use.
+
+=item *
+
+B<Those that are targeted at a specific platform.>
+(Such as the Win32:: modules.)  If the module is targeted
+specifically at a platform other than yours, you're out
+of luck, most likely.
+
+=back
+
+
+
+Check the CPAN Testers if a module should work with your platform
+but it doesn't behave as you'd expect, or you aren't sure whether or
+not a module will work under your platform.  If the module you want
+isn't listed there, you can test it yourself and let CPAN Testers know,
+you can join CPAN Testers, or you can request it be tested.
+
+    http://testers.cpan.org/
+
+
+=head1 HEY
+
+If you have any suggested changes for this page, let me know.  Please
+don't send me mail asking for help on how to install your modules.
+There are too many modules, and too few Orwants, for me to be able to
+answer or even acknowledge all your questions.  Contact the module
+author instead, or post to comp.lang.perl.modules, or ask someone
+familiar with Perl on your operating system.
+
+=head1 AUTHOR
+
+Jon Orwant
+
+orwant@medita.mit.edu
+
+with invaluable help from Chris Nandor, and valuable help from Brandon
+Allbery, Charles Bailey, Graham Barr, Dominic Dunlop, Jarkko
+Hietaniemi, Ben Holzman, Tom Horsley, Nick Ing-Simmons, Tuomas
+J. Lukka, Laszlo Molnar, Alan Olsen, Peter Prymmer, Gurusamy Sarathy,
+Christoph Spalinger, Dan Sugalski, Larry Virden, and Ilya Zakharevich.
+
+First version July 22, 1998; last revised November 21, 2001.
+
+=head1 COPYRIGHT
+
+Copyright (C) 1998, 2002, 2003 Jon Orwant.  All Rights Reserved.
+
+This document may be distributed under the same terms as Perl itself.
diff --git a/lib/5.24.1/pod/perlmodlib.pod b/lib/5.24.1/pod/perlmodlib.pod
new file mode 100644
index 00000000..11f7d8ef
--- /dev/null
+++ b/lib/5.24.1/pod/perlmodlib.pod
@@ -0,0 +1,3572 @@
+-*- buffer-read-only: t -*-
+!!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+This file is built by pod/perlmodlib.PL extracting documentation from the
+Perl source files.
+Any changes made here will be lost!
+
+=head1 NAME
+
+perlmodlib - constructing new Perl modules and finding existing ones
+
+=head1 THE PERL MODULE LIBRARY
+
+Many modules are included in the Perl distribution.  These are described
+below, and all end in F<.pm>.  You may discover compiled library
+files (usually ending in F<.so>) or small pieces of modules to be
+autoloaded (ending in F<.al>); these were automatically generated
+by the installation process.  You may also discover files in the
+library directory that end in either F<.pl> or F<.ph>.  These are
+old libraries supplied so that old programs that use them still
+run.  The F<.pl> files will all eventually be converted into standard
+modules, and the F<.ph> files made by B<h2ph> will probably end up
+as extension modules made by B<h2xs>.  (Some F<.ph> values may
+already be available through the POSIX, Errno, or Fcntl modules.)
+The B<pl2pm> file in the distribution may help in your conversion,
+but it's just a mechanical process and therefore far from bulletproof.
+
+=head2 Pragmatic Modules
+
+They work somewhat like compiler directives (pragmata) in that they
+tend to affect the compilation of your program, and thus will usually
+work well only when used within a C<use>, or C<no>.  Most of these
+are lexically scoped, so an inner BLOCK may countermand them
+by saying:
+
+    no integer;
+    no strict 'refs';
+    no warnings;
+
+which lasts until the end of that BLOCK.
+
+Some pragmas are lexically scoped--typically those that affect the
+C<$^H> hints variable.  Others affect the current package instead,
+like C<use vars> and C<use subs>, which allow you to predeclare a
+variables or subroutines within a particular I<file> rather than
+just a block.  Such declarations are effective for the entire file
+for which they were declared.  You cannot rescind them with C<no
+vars> or C<no subs>.
+
+The following pragmas are defined (and have their own documentation).
+
+=over 12
+
+=item arybase
+
+Set indexing base via $[
+
+=item attributes
+
+Get/set subroutine or variable attributes
+
+=item autodie
+
+Replace functions with ones that succeed or die with lexical scope
+
+=item autodie::exception
+
+Exceptions from autodying functions.
+
+=item autodie::exception::system
+
+Exceptions from autodying system().
+
+=item autodie::hints
+
+Provide hints about user subroutines to autodie
+
+=item autodie::skip
+
+Skip a package when throwing autodie exceptions
+
+=item autouse
+
+Postpone load of modules until a function is used
+
+=item base
+
+Establish an ISA relationship with base classes at compile time
+
+=item bigint
+
+Transparent BigInteger support for Perl
+
+=item bignum
+
+Transparent BigNumber support for Perl
+
+=item bigrat
+
+Transparent BigNumber/BigRational support for Perl
+
+=item blib
+
+Use MakeMaker's uninstalled version of a package
+
+=item bytes
+
+Expose the individual bytes of characters
+
+=item charnames
+
+Access to Unicode character names and named character sequences; also define character names
+
+=item constant
+
+Declare constants
+
+=item deprecate
+
+Perl pragma for deprecating the core version of a module
+
+=item diagnostics
+
+Produce verbose warning diagnostics
+
+=item encoding
+
+Allows you to write your script in non-ASCII and non-UTF-8
+
+=item encoding::warnings
+
+Warn on implicit encoding conversions
+
+=item experimental
+
+Experimental features made easy
+
+=item feature
+
+Enable new features
+
+=item fields
+
+Compile-time class fields
+
+=item filetest
+
+Control the filetest permission operators
+
+=item if
+
+C<use> a Perl module if a condition holds (also can C<no> a module)
+
+=item integer
+
+Use integer arithmetic instead of floating point
+
+=item less
+
+Request less of something
+
+=item lib
+
+Manipulate @INC at compile time
+
+=item locale
+
+Use or avoid POSIX locales for built-in operations
+
+=item mro
+
+Method Resolution Order
+
+=item ok
+
+Alternative to Test::More::use_ok
+
+=item open
+
+Set default PerlIO layers for input and output
+
+=item ops
+
+Restrict unsafe operations when compiling
+
+=item overload
+
+Package for overloading Perl operations
+
+=item overloading
+
+Lexically control overloading
+
+=item parent
+
+Establish an ISA relationship with base classes at compile time
+
+=item re
+
+Alter regular expression behaviour
+
+=item sigtrap
+
+Enable simple signal handling
+
+=item sort
+
+Control sort() behaviour
+
+=item strict
+
+Restrict unsafe constructs
+
+=item subs
+
+Predeclare sub names
+
+=item threads
+
+Perl interpreter-based threads
+
+=item threads::shared
+
+Perl extension for sharing data structures between threads
+
+=item utf8
+
+Enable/disable UTF-8 (or UTF-EBCDIC) in source code
+
+=item vars
+
+Predeclare global variable names
+
+=item version
+
+Perl extension for Version Objects
+
+=item vmsish
+
+Control VMS-specific language features
+
+=item warnings::register
+
+Warnings import function
+
+
+=back
+
+=head2 Standard Modules
+
+Standard, bundled modules are all expected to behave in a well-defined
+manner with respect to namespace pollution because they use the
+Exporter module.  See their own documentation for details.
+
+It's possible that not all modules listed below are installed on your
+system. For example, the GDBM_File module will not be installed if you
+don't have the gdbm library.
+
+=over 12
+
+=item Amiga::ARexx
+
+Perl extension for ARexx support
+
+=item Amiga::Exec
+
+Perl extension for low level amiga support
+
+=item AnyDBM_File
+
+Provide framework for multiple DBMs
+
+=item App::Cpan
+
+Easily interact with CPAN from the command line
+
+=item App::Prove
+
+Implements the C<prove> command.
+
+=item App::Prove::State
+
+State storage for the C<prove> command.
+
+=item App::Prove::State::Result
+
+Individual test suite results.
+
+=item App::Prove::State::Result::Test
+
+Individual test results.
+
+=item Archive::Tar
+
+Module for manipulations of tar archives
+
+=item Archive::Tar::File
+
+A subclass for in-memory extracted file from Archive::Tar
+
+=item Attribute::Handlers
+
+Simpler definition of attribute handlers
+
+=item AutoLoader
+
+Load subroutines only on demand
+
+=item AutoSplit
+
+Split a package for autoloading
+
+=item B
+
+The Perl Compiler Backend
+
+=item B::Concise
+
+Walk Perl syntax tree, printing concise info about ops
+
+=item B::Debug
+
+Walk Perl syntax tree, printing debug info about ops
+
+=item B::Deparse
+
+Perl compiler backend to produce perl code
+
+=item B::Op_private
+
+ OP op_private flag definitions
+
+=item B::Showlex
+
+Show lexical variables used in functions or files
+
+=item B::Terse
+
+Walk Perl syntax tree, printing terse info about ops
+
+=item B::Xref
+
+Generates cross reference reports for Perl programs
+
+=item Benchmark
+
+Benchmark running times of Perl code
+
+=item C<IO::Socket::IP>
+
+Family-neutral IP socket supporting both IPv4 and IPv6
+
+=item C<Socket>
+
+Networking constants and support functions
+
+=item CORE
+
+Namespace for Perl's core routines
+
+=item CPAN
+
+Query, download and build perl modules from CPAN sites
+
+=item CPAN::API::HOWTO
+
+A recipe book for programming with CPAN.pm
+
+=item CPAN::Debug
+
+Internal debugging for CPAN.pm
+
+=item CPAN::Distroprefs
+
+Read and match distroprefs
+
+=item CPAN::FirstTime
+
+Utility for CPAN::Config file Initialization
+
+=item CPAN::HandleConfig
+
+Internal configuration handling for CPAN.pm
+
+=item CPAN::Kwalify
+
+Interface between CPAN.pm and Kwalify.pm
+
+=item CPAN::Meta
+
+The distribution metadata for a CPAN dist
+
+=item CPAN::Meta::Converter
+
+Convert CPAN distribution metadata structures
+
+=item CPAN::Meta::Feature
+
+An optional feature provided by a CPAN distribution
+
+=item CPAN::Meta::History
+
+History of CPAN Meta Spec changes
+
+=item CPAN::Meta::History::Meta_1_0
+
+Version 1.0 metadata specification for META.yml
+
+=item CPAN::Meta::History::Meta_1_1
+
+Version 1.1 metadata specification for META.yml
+
+=item CPAN::Meta::History::Meta_1_2
+
+Version 1.2 metadata specification for META.yml
+
+=item CPAN::Meta::History::Meta_1_3
+
+Version 1.3 metadata specification for META.yml
+
+=item CPAN::Meta::History::Meta_1_4
+
+Version 1.4 metadata specification for META.yml
+
+=item CPAN::Meta::Merge
+
+Merging CPAN Meta fragments
+
+=item CPAN::Meta::Prereqs
+
+A set of distribution prerequisites by phase and type
+
+=item CPAN::Meta::Requirements
+
+A set of version requirements for a CPAN dist
+
+=item CPAN::Meta::Spec
+
+Specification for CPAN distribution metadata
+
+=item CPAN::Meta::Validator
+
+Validate CPAN distribution metadata structures
+
+=item CPAN::Meta::YAML
+
+Read and write a subset of YAML for CPAN Meta files
+
+=item CPAN::Nox
+
+Wrapper around CPAN.pm without using any XS module
+
+=item CPAN::Plugin
+
+Base class for CPAN shell extensions
+
+=item CPAN::Plugin::Specfile
+
+Proof of concept implementation of a trivial CPAN::Plugin
+
+=item CPAN::Queue
+
+Internal queue support for CPAN.pm
+
+=item CPAN::Tarzip
+
+Internal handling of tar archives for CPAN.pm
+
+=item CPAN::Version
+
+Utility functions to compare CPAN versions
+
+=item Carp
+
+Alternative warn and die for modules
+
+=item Class::Struct
+
+Declare struct-like datatypes as Perl classes
+
+=item Compress::Raw::Bzip2
+
+Low-Level Interface to bzip2 compression library
+
+=item Compress::Raw::Zlib
+
+Low-Level Interface to zlib compression library
+
+=item Compress::Zlib
+
+Interface to zlib compression library
+
+=item Config
+
+Access Perl configuration information
+
+=item Config::Perl::V
+
+Structured data retrieval of perl -V output
+
+=item Cwd
+
+Get pathname of current working directory
+
+=item DB
+
+Programmatic interface to the Perl debugging API
+
+=item DBM_Filter
+
+Filter DBM keys/values 
+
+=item DBM_Filter::compress
+
+Filter for DBM_Filter
+
+=item DBM_Filter::encode
+
+Filter for DBM_Filter
+
+=item DBM_Filter::int32
+
+Filter for DBM_Filter
+
+=item DBM_Filter::null
+
+Filter for DBM_Filter
+
+=item DBM_Filter::utf8
+
+Filter for DBM_Filter
+
+=item DB_File
+
+Perl5 access to Berkeley DB version 1.x
+
+=item Data::Dumper
+
+Stringified perl data structures, suitable for both printing and C<eval>
+
+=item Devel::PPPort
+
+Perl/Pollution/Portability
+
+=item Devel::Peek
+
+A data debugging tool for the XS programmer
+
+=item Devel::SelfStubber
+
+Generate stubs for a SelfLoading module
+
+=item Digest
+
+Modules that calculate message digests
+
+=item Digest::MD5
+
+Perl interface to the MD5 Algorithm
+
+=item Digest::SHA
+
+Perl extension for SHA-1/224/256/384/512
+
+=item Digest::base
+
+Digest base class
+
+=item Digest::file
+
+Calculate digests of files
+
+=item DirHandle
+
+Supply object methods for directory handles
+
+=item Dumpvalue
+
+Provides screen dump of Perl data.
+
+=item DynaLoader
+
+Dynamically load C libraries into Perl code
+
+=item Encode
+
+Character encodings in Perl
+
+=item Encode::Alias
+
+Alias definitions to encodings
+
+=item Encode::Byte
+
+Single Byte Encodings
+
+=item Encode::CJKConstants
+
+Internally used by Encode::??::ISO_2022_*
+
+=item Encode::CN
+
+China-based Chinese Encodings
+
+=item Encode::CN::HZ
+
+Internally used by Encode::CN
+
+=item Encode::Config
+
+Internally used by Encode
+
+=item Encode::EBCDIC
+
+EBCDIC Encodings
+
+=item Encode::Encoder
+
+Object Oriented Encoder
+
+=item Encode::Encoding
+
+Encode Implementation Base Class
+
+=item Encode::GSM0338
+
+ESTI GSM 03.38 Encoding
+
+=item Encode::Guess
+
+Guesses encoding from data
+
+=item Encode::JP
+
+Japanese Encodings
+
+=item Encode::JP::H2Z
+
+Internally used by Encode::JP::2022_JP*
+
+=item Encode::JP::JIS7
+
+Internally used by Encode::JP
+
+=item Encode::KR
+
+Korean Encodings
+
+=item Encode::KR::2022_KR
+
+Internally used by Encode::KR
+
+=item Encode::MIME::Header
+
+MIME 'B' and 'Q' header encoding
+
+=item Encode::MIME::Name
+
+Internally used by Encode
+
+=item Encode::PerlIO
+
+A detailed document on Encode and PerlIO
+
+=item Encode::Supported
+
+Encodings supported by Encode
+
+=item Encode::Symbol
+
+Symbol Encodings
+
+=item Encode::TW
+
+Taiwan-based Chinese Encodings
+
+=item Encode::Unicode
+
+Various Unicode Transformation Formats
+
+=item Encode::Unicode::UTF7
+
+UTF-7 encoding
+
+=item English
+
+Use nice English (or awk) names for ugly punctuation variables
+
+=item Env
+
+Perl module that imports environment variables as scalars or arrays
+
+=item Errno
+
+System errno constants
+
+=item Exporter
+
+Implements default import method for modules
+
+=item Exporter::Heavy
+
+Exporter guts
+
+=item ExtUtils::CBuilder
+
+Compile and link C code for Perl modules
+
+=item ExtUtils::CBuilder::Platform::Windows
+
+Builder class for Windows platforms
+
+=item ExtUtils::Command
+
+Utilities to replace common UNIX commands in Makefiles etc.
+
+=item ExtUtils::Command::MM
+
+Commands for the MM's to use in Makefiles
+
+=item ExtUtils::Constant
+
+Generate XS code to import C header constants
+
+=item ExtUtils::Constant::Base
+
+Base class for ExtUtils::Constant objects
+
+=item ExtUtils::Constant::Utils
+
+Helper functions for ExtUtils::Constant
+
+=item ExtUtils::Constant::XS
+
+Generate C code for XS modules' constants.
+
+=item ExtUtils::Embed
+
+Utilities for embedding Perl in C/C++ applications
+
+=item ExtUtils::Install
+
+Install files from here to there
+
+=item ExtUtils::Installed
+
+Inventory management of installed modules
+
+=item ExtUtils::Liblist
+
+Determine libraries to use and how to use them
+
+=item ExtUtils::MM
+
+OS adjusted ExtUtils::MakeMaker subclass
+
+=item ExtUtils::MM_AIX
+
+AIX specific subclass of ExtUtils::MM_Unix
+
+=item ExtUtils::MM_Any
+
+Platform-agnostic MM methods
+
+=item ExtUtils::MM_BeOS
+
+Methods to override UN*X behaviour in ExtUtils::MakeMaker
+
+=item ExtUtils::MM_Cygwin
+
+Methods to override UN*X behaviour in ExtUtils::MakeMaker
+
+=item ExtUtils::MM_DOS
+
+DOS specific subclass of ExtUtils::MM_Unix
+
+=item ExtUtils::MM_Darwin
+
+Special behaviors for OS X
+
+=item ExtUtils::MM_MacOS
+
+Once produced Makefiles for MacOS Classic
+
+=item ExtUtils::MM_NW5
+
+Methods to override UN*X behaviour in ExtUtils::MakeMaker
+
+=item ExtUtils::MM_OS2
+
+Methods to override UN*X behaviour in ExtUtils::MakeMaker
+
+=item ExtUtils::MM_QNX
+
+QNX specific subclass of ExtUtils::MM_Unix
+
+=item ExtUtils::MM_UWIN
+
+U/WIN specific subclass of ExtUtils::MM_Unix
+
+=item ExtUtils::MM_Unix
+
+Methods used by ExtUtils::MakeMaker
+
+=item ExtUtils::MM_VMS
+
+Methods to override UN*X behaviour in ExtUtils::MakeMaker
+
+=item ExtUtils::MM_VOS
+
+VOS specific subclass of ExtUtils::MM_Unix
+
+=item ExtUtils::MM_Win32
+
+Methods to override UN*X behaviour in ExtUtils::MakeMaker
+
+=item ExtUtils::MM_Win95
+
+Method to customize MakeMaker for Win9X
+
+=item ExtUtils::MY
+
+ExtUtils::MakeMaker subclass for customization
+
+=item ExtUtils::MakeMaker
+
+Create a module Makefile
+
+=item ExtUtils::MakeMaker::Config
+
+Wrapper around Config.pm
+
+=item ExtUtils::MakeMaker::FAQ
+
+Frequently Asked Questions About MakeMaker
+
+=item ExtUtils::MakeMaker::Locale
+
+Bundled Encode::Locale
+
+=item ExtUtils::MakeMaker::Tutorial
+
+Writing a module with MakeMaker
+
+=item ExtUtils::Manifest
+
+Utilities to write and check a MANIFEST file
+
+=item ExtUtils::Miniperl
+
+Write the C code for perlmain.c
+
+=item ExtUtils::Mkbootstrap
+
+Make a bootstrap file for use by DynaLoader
+
+=item ExtUtils::Mksymlists
+
+Write linker options files for dynamic extension
+
+=item ExtUtils::Packlist
+
+Manage .packlist files
+
+=item ExtUtils::ParseXS
+
+Converts Perl XS code into C code
+
+=item ExtUtils::ParseXS::Constants
+
+Initialization values for some globals
+
+=item ExtUtils::ParseXS::Eval
+
+Clean package to evaluate code in
+
+=item ExtUtils::ParseXS::Utilities
+
+Subroutines used with ExtUtils::ParseXS
+
+=item ExtUtils::Typemaps
+
+Read/Write/Modify Perl/XS typemap files
+
+=item ExtUtils::Typemaps::Cmd
+
+Quick commands for handling typemaps
+
+=item ExtUtils::Typemaps::InputMap
+
+Entry in the INPUT section of a typemap
+
+=item ExtUtils::Typemaps::OutputMap
+
+Entry in the OUTPUT section of a typemap
+
+=item ExtUtils::Typemaps::Type
+
+Entry in the TYPEMAP section of a typemap
+
+=item ExtUtils::XSSymSet
+
+Keep sets of symbol names palatable to the VMS linker
+
+=item ExtUtils::testlib
+
+Add blib/* directories to @INC
+
+=item Fatal
+
+Replace functions with equivalents which succeed or die
+
+=item Fcntl
+
+Load the C Fcntl.h defines
+
+=item File::Basename
+
+Parse file paths into directory, filename and suffix.
+
+=item File::Compare
+
+Compare files or filehandles
+
+=item File::Copy
+
+Copy files or filehandles
+
+=item File::DosGlob
+
+DOS like globbing and then some
+
+=item File::Fetch
+
+A generic file fetching mechanism
+
+=item File::Find
+
+Traverse a directory tree.
+
+=item File::Glob
+
+Perl extension for BSD glob routine
+
+=item File::GlobMapper
+
+Extend File Glob to Allow Input and Output Files
+
+=item File::Path
+
+Create or remove directory trees
+
+=item File::Spec
+
+Portably perform operations on file names
+
+=item File::Spec::AmigaOS
+
+File::Spec for AmigaOS
+
+=item File::Spec::Cygwin
+
+Methods for Cygwin file specs
+
+=item File::Spec::Epoc
+
+Methods for Epoc file specs
+
+=item File::Spec::Functions
+
+Portably perform operations on file names
+
+=item File::Spec::Mac
+
+File::Spec for Mac OS (Classic)
+
+=item File::Spec::OS2
+
+Methods for OS/2 file specs
+
+=item File::Spec::Unix
+
+File::Spec for Unix, base for other File::Spec modules
+
+=item File::Spec::VMS
+
+Methods for VMS file specs
+
+=item File::Spec::Win32
+
+Methods for Win32 file specs
+
+=item File::Temp
+
+Return name and handle of a temporary file safely
+
+=item File::stat
+
+By-name interface to Perl's built-in stat() functions
+
+=item FileCache
+
+Keep more files open than the system permits
+
+=item FileHandle
+
+Supply object methods for filehandles
+
+=item Filter::Simple
+
+Simplified source filtering
+
+=item Filter::Util::Call
+
+Perl Source Filter Utility Module
+
+=item FindBin
+
+Locate directory of original perl script
+
+=item GDBM_File
+
+Perl5 access to the gdbm library.
+
+=item Getopt::Long
+
+Extended processing of command line options
+
+=item Getopt::Std
+
+Process single-character switches with switch clustering
+
+=item HTTP::Tiny
+
+A small, simple, correct HTTP/1.1 client
+
+=item Hash::Util
+
+A selection of general-utility hash subroutines
+
+=item Hash::Util::FieldHash
+
+Support for Inside-Out Classes
+
+=item I18N::Collate
+
+Compare 8-bit scalar data according to the current locale
+
+=item I18N::LangTags
+
+Functions for dealing with RFC3066-style language tags
+
+=item I18N::LangTags::Detect
+
+Detect the user's language preferences
+
+=item I18N::LangTags::List
+
+Tags and names for human languages
+
+=item I18N::Langinfo
+
+Query locale information
+
+=item IO
+
+Load various IO modules
+
+=item IO::Compress::Base
+
+Base Class for IO::Compress modules 
+
+=item IO::Compress::Bzip2
+
+Write bzip2 files/buffers
+
+=item IO::Compress::Deflate
+
+Write RFC 1950 files/buffers
+
+=item IO::Compress::FAQ
+
+Frequently Asked Questions about IO::Compress
+
+=item IO::Compress::Gzip
+
+Write RFC 1952 files/buffers
+
+=item IO::Compress::RawDeflate
+
+Write RFC 1951 files/buffers
+
+=item IO::Compress::Zip
+
+Write zip files/buffers
+
+=item IO::Dir
+
+Supply object methods for directory handles
+
+=item IO::File
+
+Supply object methods for filehandles
+
+=item IO::Handle
+
+Supply object methods for I/O handles
+
+=item IO::Pipe
+
+Supply object methods for pipes
+
+=item IO::Poll
+
+Object interface to system poll call
+
+=item IO::Seekable
+
+Supply seek based methods for I/O objects
+
+=item IO::Select
+
+OO interface to the select system call
+
+=item IO::Socket
+
+Object interface to socket communications
+
+=item IO::Socket::INET
+
+Object interface for AF_INET domain sockets
+
+=item IO::Socket::UNIX
+
+Object interface for AF_UNIX domain sockets
+
+=item IO::Uncompress::AnyInflate
+
+Uncompress zlib-based (zip, gzip) file/buffer
+
+=item IO::Uncompress::AnyUncompress
+
+Uncompress gzip, zip, bzip2 or lzop file/buffer
+
+=item IO::Uncompress::Base
+
+Base Class for IO::Uncompress modules 
+
+=item IO::Uncompress::Bunzip2
+
+Read bzip2 files/buffers
+
+=item IO::Uncompress::Gunzip
+
+Read RFC 1952 files/buffers
+
+=item IO::Uncompress::Inflate
+
+Read RFC 1950 files/buffers
+
+=item IO::Uncompress::RawInflate
+
+Read RFC 1951 files/buffers
+
+=item IO::Uncompress::Unzip
+
+Read zip files/buffers
+
+=item IO::Zlib
+
+IO:: style interface to L<Compress::Zlib>
+
+=item IPC::Cmd
+
+Finding and running system commands made easy
+
+=item IPC::Msg
+
+SysV Msg IPC object class
+
+=item IPC::Open2
+
+Open a process for both reading and writing using open2()
+
+=item IPC::Open3
+
+Open a process for reading, writing, and error handling using open3()
+
+=item IPC::Semaphore
+
+SysV Semaphore IPC object class
+
+=item IPC::SharedMem
+
+SysV Shared Memory IPC object class
+
+=item IPC::SysV
+
+System V IPC constants and system calls
+
+=item JSON::PP
+
+JSON::XS compatible pure-Perl module.
+
+=item JSON::PP::Boolean
+
+Dummy module providing JSON::PP::Boolean
+
+=item List::Util
+
+A selection of general-utility list subroutines
+
+=item List::Util::XS
+
+Indicate if List::Util was compiled with a C compiler
+
+=item Locale::Codes
+
+A distribution of modules to handle locale codes
+
+=item Locale::Codes::API
+
+A description of the callable function in each module
+
+=item Locale::Codes::Changes
+
+Details changes to Locale::Codes
+
+=item Locale::Codes::Country
+
+Standard codes for country identification
+
+=item Locale::Codes::Currency
+
+Standard codes for currency identification
+
+=item Locale::Codes::LangExt
+
+Standard codes for language extension identification
+
+=item Locale::Codes::LangFam
+
+Standard codes for language extension identification
+
+=item Locale::Codes::LangVar
+
+Standard codes for language variation identification
+
+=item Locale::Codes::Language
+
+Standard codes for language identification
+
+=item Locale::Codes::Script
+
+Standard codes for script identification
+
+=item Locale::Country
+
+Standard codes for country identification
+
+=item Locale::Currency
+
+Standard codes for currency identification
+
+=item Locale::Language
+
+Standard codes for language identification
+
+=item Locale::Maketext
+
+Framework for localization
+
+=item Locale::Maketext::Cookbook
+
+Recipes for using Locale::Maketext
+
+=item Locale::Maketext::Guts
+
+Deprecated module to load Locale::Maketext utf8 code
+
+=item Locale::Maketext::GutsLoader
+
+Deprecated module to load Locale::Maketext utf8 code
+
+=item Locale::Maketext::Simple
+
+Simple interface to Locale::Maketext::Lexicon
+
+=item Locale::Maketext::TPJ13
+
+Article about software localization
+
+=item Locale::Script
+
+Standard codes for script identification
+
+=item MIME::Base64
+
+Encoding and decoding of base64 strings
+
+=item MIME::QuotedPrint
+
+Encoding and decoding of quoted-printable strings
+
+=item Math::BigFloat
+
+Arbitrary size floating point math package
+
+=item Math::BigInt
+
+Arbitrary size integer/float math package
+
+=item Math::BigInt::Calc
+
+Pure Perl module to support Math::BigInt
+
+=item Math::BigInt::CalcEmu
+
+Emulate low-level math with BigInt code
+
+=item Math::BigInt::FastCalc
+
+Math::BigInt::Calc with some XS for more speed
+
+=item Math::BigRat
+
+Arbitrary big rational numbers
+
+=item Math::Complex
+
+Complex numbers and associated mathematical functions
+
+=item Math::Trig
+
+Trigonometric functions
+
+=item Memoize
+
+Make functions faster by trading space for time
+
+=item Memoize::AnyDBM_File
+
+Glue to provide EXISTS for AnyDBM_File for Storable use
+
+=item Memoize::Expire
+
+Plug-in module for automatic expiration of memoized values
+
+=item Memoize::ExpireFile
+
+Test for Memoize expiration semantics
+
+=item Memoize::ExpireTest
+
+Test for Memoize expiration semantics
+
+=item Memoize::NDBM_File
+
+Glue to provide EXISTS for NDBM_File for Storable use
+
+=item Memoize::SDBM_File
+
+Glue to provide EXISTS for SDBM_File for Storable use
+
+=item Memoize::Storable
+
+Store Memoized data in Storable database
+
+=item Module::CoreList
+
+What modules shipped with versions of perl
+
+=item Module::CoreList::Utils
+
+What utilities shipped with versions of perl
+
+=item Module::Load
+
+Runtime require of both modules and files
+
+=item Module::Load::Conditional
+
+Looking up module information / loading at runtime
+
+=item Module::Loaded
+
+Mark modules as loaded or unloaded
+
+=item Module::Metadata
+
+Gather package and POD information from perl module files
+
+=item NDBM_File
+
+Tied access to ndbm files
+
+=item NEXT
+
+Provide a pseudo-class NEXT (et al) that allows method redispatch
+
+=item Net::Cmd
+
+Network Command class (as used by FTP, SMTP etc)
+
+=item Net::Config
+
+Local configuration data for libnet
+
+=item Net::Domain
+
+Attempt to evaluate the current host's internet name and domain
+
+=item Net::FTP
+
+FTP Client class
+
+=item Net::FTP::dataconn
+
+FTP Client data connection class
+
+=item Net::NNTP
+
+NNTP Client class
+
+=item Net::Netrc
+
+OO interface to users netrc file
+
+=item Net::POP3
+
+Post Office Protocol 3 Client class (RFC1939)
+
+=item Net::Ping
+
+Check a remote host for reachability
+
+=item Net::SMTP
+
+Simple Mail Transfer Protocol Client
+
+=item Net::Time
+
+Time and daytime network client interface
+
+=item Net::hostent
+
+By-name interface to Perl's built-in gethost*() functions
+
+=item Net::libnetFAQ
+
+Libnet Frequently Asked Questions
+
+=item Net::netent
+
+By-name interface to Perl's built-in getnet*() functions
+
+=item Net::protoent
+
+By-name interface to Perl's built-in getproto*() functions
+
+=item Net::servent
+
+By-name interface to Perl's built-in getserv*() functions
+
+=item O
+
+Generic interface to Perl Compiler backends
+
+=item ODBM_File
+
+Tied access to odbm files
+
+=item Opcode
+
+Disable named opcodes when compiling perl code
+
+=item POSIX
+
+Perl interface to IEEE Std 1003.1
+
+=item Params::Check
+
+A generic input parsing/checking mechanism.
+
+=item Parse::CPAN::Meta
+
+Parse META.yml and META.json CPAN metadata files
+
+=item Perl::OSType
+
+Map Perl operating system names to generic types
+
+=item PerlIO
+
+On demand loader for PerlIO layers and root of PerlIO::* name space
+
+=item PerlIO::encoding
+
+Encoding layer
+
+=item PerlIO::mmap
+
+Memory mapped IO
+
+=item PerlIO::scalar
+
+In-memory IO, scalar IO
+
+=item PerlIO::via
+
+Helper class for PerlIO layers implemented in perl
+
+=item PerlIO::via::QuotedPrint
+
+PerlIO layer for quoted-printable strings
+
+=item Pod::Escapes
+
+For resolving Pod EE<lt>...E<gt> sequences
+
+=item Pod::Find
+
+Find POD documents in directory trees
+
+=item Pod::Functions
+
+Group Perl's functions a la perlfunc.pod
+
+=item Pod::Html
+
+Module to convert pod files to HTML
+
+=item Pod::InputObjects
+
+Objects representing POD input paragraphs, commands, etc.
+
+=item Pod::Man
+
+Convert POD data to formatted *roff input
+
+=item Pod::ParseLink
+
+Parse an LE<lt>E<gt> formatting code in POD text
+
+=item Pod::ParseUtils
+
+Helpers for POD parsing and conversion
+
+=item Pod::Parser
+
+Base class for creating POD filters and translators
+
+=item Pod::Perldoc
+
+Look up Perl documentation in Pod format.
+
+=item Pod::Perldoc::BaseTo
+
+Base for Pod::Perldoc formatters
+
+=item Pod::Perldoc::GetOptsOO
+
+Customized option parser for Pod::Perldoc
+
+=item Pod::Perldoc::ToANSI
+
+Render Pod with ANSI color escapes 
+
+=item Pod::Perldoc::ToChecker
+
+Let Perldoc check Pod for errors
+
+=item Pod::Perldoc::ToMan
+
+Let Perldoc render Pod as man pages
+
+=item Pod::Perldoc::ToNroff
+
+Let Perldoc convert Pod to nroff
+
+=item Pod::Perldoc::ToPod
+
+Let Perldoc render Pod as ... Pod!
+
+=item Pod::Perldoc::ToRtf
+
+Let Perldoc render Pod as RTF
+
+=item Pod::Perldoc::ToTerm
+
+Render Pod with terminal escapes 
+
+=item Pod::Perldoc::ToText
+
+Let Perldoc render Pod as plaintext
+
+=item Pod::Perldoc::ToTk
+
+Let Perldoc use Tk::Pod to render Pod
+
+=item Pod::Perldoc::ToXml
+
+Let Perldoc render Pod as XML
+
+=item Pod::PlainText
+
+Convert POD data to formatted ASCII text
+
+=item Pod::Select
+
+Extract selected sections of POD from input
+
+=item Pod::Simple
+
+Framework for parsing Pod
+
+=item Pod::Simple::Checker
+
+Check the Pod syntax of a document
+
+=item Pod::Simple::Debug
+
+Put Pod::Simple into trace/debug mode
+
+=item Pod::Simple::DumpAsText
+
+Dump Pod-parsing events as text
+
+=item Pod::Simple::DumpAsXML
+
+Turn Pod into XML
+
+=item Pod::Simple::HTML
+
+Convert Pod to HTML
+
+=item Pod::Simple::HTMLBatch
+
+Convert several Pod files to several HTML files
+
+=item Pod::Simple::LinkSection
+
+Represent "section" attributes of L codes
+
+=item Pod::Simple::Methody
+
+Turn Pod::Simple events into method calls
+
+=item Pod::Simple::PullParser
+
+A pull-parser interface to parsing Pod
+
+=item Pod::Simple::PullParserEndToken
+
+End-tokens from Pod::Simple::PullParser
+
+=item Pod::Simple::PullParserStartToken
+
+Start-tokens from Pod::Simple::PullParser
+
+=item Pod::Simple::PullParserTextToken
+
+Text-tokens from Pod::Simple::PullParser
+
+=item Pod::Simple::PullParserToken
+
+Tokens from Pod::Simple::PullParser
+
+=item Pod::Simple::RTF
+
+Format Pod as RTF
+
+=item Pod::Simple::Search
+
+Find POD documents in directory trees
+
+=item Pod::Simple::SimpleTree
+
+Parse Pod into a simple parse tree 
+
+=item Pod::Simple::Subclassing
+
+Write a formatter as a Pod::Simple subclass
+
+=item Pod::Simple::Text
+
+Format Pod as plaintext
+
+=item Pod::Simple::TextContent
+
+Get the text content of Pod
+
+=item Pod::Simple::XHTML
+
+Format Pod as validating XHTML
+
+=item Pod::Simple::XMLOutStream
+
+Turn Pod into XML
+
+=item Pod::Text
+
+Convert POD data to formatted text
+
+=item Pod::Text::Color
+
+Convert POD data to formatted color ASCII text
+
+=item Pod::Text::Termcap
+
+Convert POD data to ASCII text with format escapes
+
+=item Pod::Usage
+
+Print a usage message from embedded pod documentation
+
+=item SDBM_File
+
+Tied access to sdbm files
+
+=item Safe
+
+Compile and execute code in restricted compartments
+
+=item Scalar::Util
+
+A selection of general-utility scalar subroutines
+
+=item Search::Dict
+
+Look - search for key in dictionary file
+
+=item SelectSaver
+
+Save and restore selected file handle
+
+=item SelfLoader
+
+Load functions only on demand
+
+=item Storable
+
+Persistence for Perl data structures
+
+=item Sub::Util
+
+A selection of utility subroutines for subs and CODE references
+
+=item Symbol
+
+Manipulate Perl symbols and their names
+
+=item Sys::Hostname
+
+Try every conceivable way to get hostname
+
+=item Sys::Syslog
+
+Perl interface to the UNIX syslog(3) calls
+
+=item Sys::Syslog::Win32
+
+Win32 support for Sys::Syslog
+
+=item TAP::Base
+
+Base class that provides common functionality to L<TAP::Parser>
+
+=item TAP::Formatter::Base
+
+Base class for harness output delegates
+
+=item TAP::Formatter::Color
+
+Run Perl test scripts with color
+
+=item TAP::Formatter::Console
+
+Harness output delegate for default console output
+
+=item TAP::Formatter::Console::ParallelSession
+
+Harness output delegate for parallel console output
+
+=item TAP::Formatter::Console::Session
+
+Harness output delegate for default console output
+
+=item TAP::Formatter::File
+
+Harness output delegate for file output
+
+=item TAP::Formatter::File::Session
+
+Harness output delegate for file output
+
+=item TAP::Formatter::Session
+
+Abstract base class for harness output delegate 
+
+=item TAP::Harness
+
+Run test scripts with statistics
+
+=item TAP::Harness::Env
+
+Parsing harness related environmental variables where appropriate
+
+=item TAP::Object
+
+Base class that provides common functionality to all C<TAP::*> modules
+
+=item TAP::Parser
+
+Parse L<TAP|Test::Harness::TAP> output
+
+=item TAP::Parser::Aggregator
+
+Aggregate TAP::Parser results
+
+=item TAP::Parser::Grammar
+
+A grammar for the Test Anything Protocol.
+
+=item TAP::Parser::Iterator
+
+Base class for TAP source iterators
+
+=item TAP::Parser::Iterator::Array
+
+Iterator for array-based TAP sources
+
+=item TAP::Parser::Iterator::Process
+
+Iterator for process-based TAP sources
+
+=item TAP::Parser::Iterator::Stream
+
+Iterator for filehandle-based TAP sources
+
+=item TAP::Parser::IteratorFactory
+
+Figures out which SourceHandler objects to use for a given Source
+
+=item TAP::Parser::Multiplexer
+
+Multiplex multiple TAP::Parsers
+
+=item TAP::Parser::Result
+
+Base class for TAP::Parser output objects
+
+=item TAP::Parser::Result::Bailout
+
+Bailout result token.
+
+=item TAP::Parser::Result::Comment
+
+Comment result token.
+
+=item TAP::Parser::Result::Plan
+
+Plan result token.
+
+=item TAP::Parser::Result::Pragma
+
+TAP pragma token.
+
+=item TAP::Parser::Result::Test
+
+Test result token.
+
+=item TAP::Parser::Result::Unknown
+
+Unknown result token.
+
+=item TAP::Parser::Result::Version
+
+TAP syntax version token.
+
+=item TAP::Parser::Result::YAML
+
+YAML result token.
+
+=item TAP::Parser::ResultFactory
+
+Factory for creating TAP::Parser output objects
+
+=item TAP::Parser::Scheduler
+
+Schedule tests during parallel testing
+
+=item TAP::Parser::Scheduler::Job
+
+A single testing job.
+
+=item TAP::Parser::Scheduler::Spinner
+
+A no-op job.
+
+=item TAP::Parser::Source
+
+A TAP source & meta data about it
+
+=item TAP::Parser::SourceHandler
+
+Base class for different TAP source handlers
+
+=item TAP::Parser::SourceHandler::Executable
+
+Stream output from an executable TAP source
+
+=item TAP::Parser::SourceHandler::File
+
+Stream TAP from a text file.
+
+=item TAP::Parser::SourceHandler::Handle
+
+Stream TAP from an IO::Handle or a GLOB.
+
+=item TAP::Parser::SourceHandler::Perl
+
+Stream TAP from a Perl executable
+
+=item TAP::Parser::SourceHandler::RawTAP
+
+Stream output from raw TAP in a scalar/array ref.
+
+=item TAP::Parser::YAMLish::Reader
+
+Read YAMLish data from iterator
+
+=item TAP::Parser::YAMLish::Writer
+
+Write YAMLish data
+
+=item Term::ANSIColor
+
+Color screen output using ANSI escape sequences
+
+=item Term::Cap
+
+Perl termcap interface
+
+=item Term::Complete
+
+Perl word completion module
+
+=item Term::ReadLine
+
+Perl interface to various C<readline> packages.
+
+=item Test
+
+Provides a simple framework for writing test scripts
+
+=item Test::Builder
+
+Backend for building test libraries
+
+=item Test::Builder::IO::Scalar
+
+A copy of IO::Scalar for Test::Builder
+
+=item Test::Builder::Module
+
+Base class for test modules
+
+=item Test::Builder::Tester
+
+Test testsuites that have been built with
+
+=item Test::Builder::Tester::Color
+
+Turn on colour in Test::Builder::Tester
+
+=item Test::Harness
+
+Run Perl standard test scripts with statistics
+
+=item Test::Harness::Beyond
+
+Beyond make test
+
+=item Test::More
+
+Yet another framework for writing test scripts
+
+=item Test::Simple
+
+Basic utilities for writing tests.
+
+=item Test::Tester
+
+Ease testing test modules built with Test::Builder
+
+=item Test::Tester::Capture
+
+Help testing test modules built with Test::Builder
+
+=item Test::Tester::CaptureRunner
+
+Help testing test modules built with Test::Builder
+
+=item Test::Tutorial
+
+A tutorial about writing really basic tests
+
+=item Test::use::ok
+
+Alternative to Test::More::use_ok
+
+=item Text::Abbrev
+
+Abbrev - create an abbreviation table from a list
+
+=item Text::Balanced
+
+Extract delimited text sequences from strings.
+
+=item Text::ParseWords
+
+Parse text into an array of tokens or array of arrays
+
+=item Text::Tabs
+
+Expand and unexpand tabs like unix expand(1) and unexpand(1)
+
+=item Text::Wrap
+
+Line wrapping to form simple paragraphs
+
+=item Thread
+
+Manipulate threads in Perl (for old code only)
+
+=item Thread::Queue
+
+Thread-safe queues
+
+=item Thread::Semaphore
+
+Thread-safe semaphores
+
+=item Tie::Array
+
+Base class for tied arrays
+
+=item Tie::File
+
+Access the lines of a disk file via a Perl array
+
+=item Tie::Handle
+
+Base class definitions for tied handles
+
+=item Tie::Hash
+
+Base class definitions for tied hashes
+
+=item Tie::Hash::NamedCapture
+
+Named regexp capture buffers
+
+=item Tie::Memoize
+
+Add data to hash when needed
+
+=item Tie::RefHash
+
+Use references as hash keys
+
+=item Tie::Scalar
+
+Base class definitions for tied scalars
+
+=item Tie::StdHandle
+
+Base class definitions for tied handles
+
+=item Tie::SubstrHash
+
+Fixed-table-size, fixed-key-length hashing
+
+=item Time::HiRes
+
+High resolution alarm, sleep, gettimeofday, interval timers
+
+=item Time::Local
+
+Efficiently compute time from local and GMT time
+
+=item Time::Piece
+
+Object Oriented time objects
+
+=item Time::Seconds
+
+A simple API to convert seconds to other date values
+
+=item Time::gmtime
+
+By-name interface to Perl's built-in gmtime() function
+
+=item Time::localtime
+
+By-name interface to Perl's built-in localtime() function
+
+=item Time::tm
+
+Internal object used by Time::gmtime and Time::localtime
+
+=item UNIVERSAL
+
+Base class for ALL classes (blessed references)
+
+=item Unicode::Collate
+
+Unicode Collation Algorithm
+
+=item Unicode::Collate::CJK::Big5
+
+Weighting CJK Unified Ideographs
+
+=item Unicode::Collate::CJK::GB2312
+
+Weighting CJK Unified Ideographs
+
+=item Unicode::Collate::CJK::JISX0208
+
+Weighting JIS KANJI for Unicode::Collate
+
+=item Unicode::Collate::CJK::Korean
+
+Weighting CJK Unified Ideographs
+
+=item Unicode::Collate::CJK::Pinyin
+
+Weighting CJK Unified Ideographs
+
+=item Unicode::Collate::CJK::Stroke
+
+Weighting CJK Unified Ideographs
+
+=item Unicode::Collate::CJK::Zhuyin
+
+Weighting CJK Unified Ideographs
+
+=item Unicode::Collate::Locale
+
+Linguistic tailoring for DUCET via Unicode::Collate
+
+=item Unicode::Normalize
+
+Unicode Normalization Forms
+
+=item Unicode::UCD
+
+Unicode character database
+
+=item User::grent
+
+By-name interface to Perl's built-in getgr*() functions
+
+=item User::pwent
+
+By-name interface to Perl's built-in getpw*() functions
+
+=item VMS::DCLsym
+
+Perl extension to manipulate DCL symbols
+
+=item VMS::Filespec
+
+Convert between VMS and Unix file specification syntax
+
+=item VMS::Stdio
+
+Standard I/O functions via VMS extensions
+
+=item Win32
+
+Interfaces to some Win32 API Functions
+
+=item Win32API::File
+
+Low-level access to Win32 system API calls for files/dirs.
+
+=item Win32CORE
+
+Win32 CORE function stubs
+
+=item XS::APItest
+
+Test the perl C API
+
+=item XS::Typemap
+
+Module to test the XS typemaps distributed with perl
+
+=item XSLoader
+
+Dynamically load C libraries into Perl code
+
+=item autodie::Scope::Guard
+
+Wrapper class for calling subs at end of scope
+
+=item autodie::Scope::GuardStack
+
+ Hook stack for managing scopes via %^H
+
+=item autodie::Util
+
+Internal Utility subroutines for autodie and Fatal
+
+=item version::Internals
+
+Perl extension for Version Objects
+
+
+=back
+
+To find out I<all> modules installed on your system, including
+those without documentation or outside the standard release,
+just use the following command (under the default win32 shell,
+double quotes should be used instead of single quotes).
+
+    % perl -MFile::Find=find -MFile::Spec::Functions -Tlwe \
+      'find { wanted => sub { print canonpath $_ if /\.pm\z/ },
+      no_chdir => 1 }, @INC'
+
+(The -T is here to prevent '.' from being listed in @INC.)
+They should all have their own documentation installed and accessible
+via your system man(1) command.  If you do not have a B<find>
+program, you can use the Perl B<find2perl> program instead, which
+generates Perl code as output you can run through perl.  If you
+have a B<man> program but it doesn't find your modules, you'll have
+to fix your manpath.  See L<perl> for details.  If you have no
+system B<man> command, you might try the B<perldoc> program.
+
+Note also that the command C<perldoc perllocal> gives you a (possibly
+incomplete) list of the modules that have been further installed on
+your system. (The perllocal.pod file is updated by the standard MakeMaker
+install process.)
+
+=head2 Extension Modules
+
+Extension modules are written in C (or a mix of Perl and C).  They
+are usually dynamically loaded into Perl if and when you need them,
+but may also be linked in statically.  Supported extension modules
+include Socket, Fcntl, and POSIX.
+
+Many popular C extension modules do not come bundled (at least, not
+completely) due to their sizes, volatility, or simply lack of time
+for adequate testing and configuration across the multitude of
+platforms on which Perl was beta-tested.  You are encouraged to
+look for them on CPAN (described below), or using web search engines
+like Alta Vista or Google.
+
+=head1 CPAN
+
+CPAN stands for Comprehensive Perl Archive Network; it's a globally
+replicated trove of Perl materials, including documentation, style
+guides, tricks and traps, alternate ports to non-Unix systems and
+occasional binary distributions for these.   Search engines for
+CPAN can be found at http://www.cpan.org/
+
+Most importantly, CPAN includes around a thousand unbundled modules,
+some of which require a C compiler to build.  Major categories of
+modules are:
+
+=over
+
+=item *
+
+Language Extensions and Documentation Tools
+
+=item *
+
+Development Support
+
+=item *
+
+Operating System Interfaces
+
+=item *
+
+Networking, Device Control (modems) and InterProcess Communication
+
+=item *
+
+Data Types and Data Type Utilities
+
+=item *
+
+Database Interfaces
+
+=item *
+
+User Interfaces
+
+=item *
+
+Interfaces to / Emulations of Other Programming Languages
+
+=item *
+
+File Names, File Systems and File Locking (see also File Handles)
+
+=item *
+
+String Processing, Language Text Processing, Parsing, and Searching
+
+=item *
+
+Option, Argument, Parameter, and Configuration File Processing
+
+=item *
+
+Internationalization and Locale
+
+=item *
+
+Authentication, Security, and Encryption
+
+=item *
+
+World Wide Web, HTML, HTTP, CGI, MIME
+
+=item *
+
+Server and Daemon Utilities
+
+=item *
+
+Archiving and Compression
+
+=item *
+
+Images, Pixmap and Bitmap Manipulation, Drawing, and Graphing
+
+=item *
+
+Mail and Usenet News
+
+=item *
+
+Control Flow Utilities (callbacks and exceptions etc)
+
+=item *
+
+File Handle and Input/Output Stream Utilities
+
+=item *
+
+Miscellaneous Modules
+
+=back
+
+The list of the registered CPAN sites follows.
+Please note that the sorting order is alphabetical on fields:
+
+Continent
+   |
+   |-->Country
+         |
+         |-->[state/province]
+                   |
+                   |-->ftp
+                   |
+                   |-->[http]
+
+and thus the North American servers happen to be listed between the
+European and the South American sites.
+
+Registered CPAN sites
+
+=for maintainers
+Generated by Porting/make_modlib_cpan.pl
+
+=head2 Africa
+
+=over 4
+
+=item South Africa
+
+  http://cpan.mirror.ac.za/
+  ftp://cpan.mirror.ac.za/
+  http://mirror.is.co.za/pub/cpan/
+  ftp://ftp.is.co.za/pub/cpan/
+  ftp://ftp.saix.net/pub/CPAN/
+
+=back
+
+=head2 Asia
+
+=over 4
+
+=item China
+
+  http://cpan.wenzk.com/
+
+=item Hong Kong
+
+  http://ftp.cuhk.edu.hk/pub/packages/perl/CPAN/
+  ftp://ftp.cuhk.edu.hk/pub/packages/perl/CPAN/
+  http://mirrors.geoexpat.com/cpan/
+
+=item India
+
+  http://perlmirror.indialinks.com/
+
+=item Indonesia
+
+  http://cpan.biz.net.id/
+  http://komo.vlsm.org/CPAN/
+  ftp://komo.vlsm.org/CPAN/
+  http://cpan.cermin.lipi.go.id/
+  ftp://cermin.lipi.go.id/pub/CPAN/
+  http://cpan.pesat.net.id/
+
+=item Japan
+
+  ftp://ftp.u-aizu.ac.jp/pub/CPAN
+  ftp://ftp.kddilabs.jp/CPAN/
+  http://ftp.nara.wide.ad.jp/pub/CPAN/
+  ftp://ftp.nara.wide.ad.jp/pub/CPAN/
+  http://ftp.jaist.ac.jp/pub/CPAN/
+  ftp://ftp.jaist.ac.jp/pub/CPAN/
+  ftp://ftp.dti.ad.jp/pub/lang/CPAN/
+  ftp://ftp.ring.gr.jp/pub/lang/perl/CPAN/
+  http://ftp.riken.jp/lang/CPAN/
+  ftp://ftp.riken.jp/lang/CPAN/
+  http://ftp.yz.yamagata-u.ac.jp/pub/lang/cpan/
+  ftp://ftp.yz.yamagata-u.ac.jp/pub/lang/cpan/
+
+=item Republic of Korea
+
+  http://ftp.kaist.ac.kr/pub/CPAN
+  ftp://ftp.kaist.ac.kr/pub/CPAN
+  http://cpan.mirror.cdnetworks.com/
+  ftp://cpan.mirror.cdnetworks.com/CPAN/
+  http://cpan.sarang.net/
+  ftp://cpan.sarang.net/CPAN/
+
+=item Russia
+
+  http://cpan.tomsk.ru/
+  ftp://cpan.tomsk.ru/
+
+=item Singapore
+
+  http://mirror.averse.net/pub/CPAN
+  ftp://mirror.averse.net/pub/CPAN
+  http://cpan.mirror.choon.net/
+  http://cpan.oss.eznetsols.org
+  ftp://ftp.oss.eznetsols.org/cpan
+
+=item Taiwan
+
+  http://ftp.cse.yzu.edu.tw/pub/CPAN/
+  ftp://ftp.cse.yzu.edu.tw/pub/CPAN/
+  http://cpan.nctu.edu.tw/
+  ftp://cpan.nctu.edu.tw/
+  ftp://ftp.ncu.edu.tw/CPAN/
+  http://cpan.cdpa.nsysu.edu.tw/
+  ftp://cpan.cdpa.nsysu.edu.tw/Unix/Lang/CPAN/
+  http://cpan.stu.edu.tw
+  ftp://ftp.stu.edu.tw/CPAN
+  http://ftp.stu.edu.tw/CPAN
+  ftp://ftp.stu.edu.tw/pub/CPAN
+  http://cpan.cs.pu.edu.tw/
+  ftp://cpan.cs.pu.edu.tw/pub/CPAN
+
+=item Thailand
+
+  http://mirrors.issp.co.th/cpan/
+  ftp://mirrors.issp.co.th/cpan/
+  http://mirror.yourconnect.com/CPAN/
+  ftp://mirror.yourconnect.com/CPAN/
+
+=item Turkey
+
+  http://cpan.gazi.edu.tr/
+
+=back
+
+=head2 Central America
+
+=over 4
+
+=item Costa Rica
+
+  http://mirrors.ucr.ac.cr/CPAN/
+  ftp://mirrors.ucr.ac.cr/CPAN/
+
+=back
+
+=head2 Europe
+
+=over 4
+
+=item Austria
+
+  http://cpan.inode.at/
+  ftp://cpan.inode.at
+  http://gd.tuwien.ac.at/languages/perl/CPAN/
+  ftp://gd.tuwien.ac.at/pub/CPAN/
+
+=item Belgium
+
+  http://ftp.belnet.be/mirror/ftp.cpan.org/
+  ftp://ftp.belnet.be/mirror/ftp.cpan.org/
+  http://ftp.easynet.be/pub/CPAN/
+  http://cpan.weepee.org/
+
+=item Bosnia and Herzegovina
+
+  http://cpan.blic.net/
+
+=item Bulgaria
+
+  http://cpan.cbox.biz/
+  ftp://cpan.cbox.biz/cpan/
+  http://cpan.digsys.bg/
+  ftp://ftp.digsys.bg/pub/CPAN
+
+=item Croatia
+
+  http://ftp.carnet.hr/pub/CPAN/
+  ftp://ftp.carnet.hr/pub/CPAN/
+
+=item Czech Republic
+
+  ftp://ftp.fi.muni.cz/pub/CPAN/
+  http://archive.cpan.cz/
+
+=item Denmark
+
+  http://mirrors.dotsrc.org/cpan
+  ftp://mirrors.dotsrc.org/cpan/
+  http://www.cpan.dk/
+  http://mirror.uni-c.dk/pub/CPAN/
+
+=item Finland
+
+  ftp://ftp.funet.fi/pub/languages/perl/CPAN/
+  http://mirror.eunet.fi/CPAN
+
+=item France
+
+  http://cpan.enstimac.fr/
+  ftp://ftp.inria.fr/pub/CPAN/
+  http://distrib-coffee.ipsl.jussieu.fr/pub/mirrors/cpan/
+  ftp://distrib-coffee.ipsl.jussieu.fr/pub/mirrors/cpan/
+  ftp://ftp.lip6.fr/pub/perl/CPAN/
+  http://mir2.ovh.net/ftp.cpan.org
+  ftp://mir1.ovh.net/ftp.cpan.org
+  ftp://ftp.oleane.net/pub/CPAN/
+  http://ftp.crihan.fr/mirrors/ftp.cpan.org/
+  ftp://ftp.crihan.fr/mirrors/ftp.cpan.org/
+  http://ftp.u-strasbg.fr/CPAN
+  ftp://ftp.u-strasbg.fr/CPAN
+  http://cpan.cict.fr/
+  ftp://cpan.cict.fr/pub/CPAN/
+
+=item Germany
+
+  ftp://ftp.fu-berlin.de/unix/languages/perl/
+  http://mirrors.softliste.de/cpan/
+  ftp://ftp.rub.de/pub/CPAN/
+  http://www.planet-elektronik.de/CPAN/
+  http://ftp.hosteurope.de/pub/CPAN/
+  ftp://ftp.hosteurope.de/pub/CPAN/
+  http://www.mirrorspace.org/cpan/
+  http://mirror.netcologne.de/cpan/
+  ftp://mirror.netcologne.de/cpan/
+  ftp://ftp.freenet.de/pub/ftp.cpan.org/pub/CPAN/
+  http://ftp-stud.hs-esslingen.de/pub/Mirrors/CPAN/
+  ftp://ftp-stud.hs-esslingen.de/pub/Mirrors/CPAN/
+  http://mirrors.zerg.biz/cpan/
+  http://ftp.gwdg.de/pub/languages/perl/CPAN/
+  ftp://ftp.gwdg.de/pub/languages/perl/CPAN/
+  http://dl.ambiweb.de/mirrors/ftp.cpan.org/
+  http://cpan.mirror.clusters.kg/
+  http://cpan.mirror.iphh.net/
+  ftp://cpan.mirror.iphh.net/pub/CPAN/
+  http://cpan.mirroring.de/
+  http://mirror.informatik.uni-mannheim.de/pub/mirrors/CPAN/
+  ftp://mirror.informatik.uni-mannheim.de/pub/mirrors/CPAN/
+  http://www.chemmedia.de/mirrors/CPAN/
+  http://ftp.cw.net/pub/CPAN/
+  ftp://ftp.cw.net/pub/CPAN/
+  http://cpan.cpantesters.org/
+  ftp://cpan.cpantesters.org/CPAN/
+  http://cpan.mirrored.de/
+  ftp://mirror.petamem.com/CPAN/
+  http://cpan.noris.de/
+  ftp://cpan.noris.de/pub/CPAN/
+  ftp://ftp.mpi-sb.mpg.de/pub/perl/CPAN/
+  ftp://ftp.gmd.de/mirrors/CPAN/
+
+=item Greece
+
+  ftp://ftp.forthnet.gr/pub/languages/perl/CPAN
+  ftp://ftp.ntua.gr/pub/lang/perl/
+  http://cpan.cc.uoc.gr/
+  ftp://ftp.cc.uoc.gr/mirrors/CPAN/
+
+=item Hungary
+
+  http://cpan.mirrors.enexis.hu/
+  ftp://cpan.mirrors.enexis.hu/mirrors/cpan/
+  http://cpan.hu/
+
+=item Iceland
+
+  http://ftp.rhnet.is/pub/CPAN/
+  ftp://ftp.rhnet.is/pub/CPAN/
+
+=item Ireland
+
+  http://ftp.esat.net/pub/languages/perl/CPAN/
+  ftp://ftp.esat.net/pub/languages/perl/CPAN/
+  http://ftp.heanet.ie/mirrors/ftp.perl.org/pub/CPAN
+  ftp://ftp.heanet.ie/mirrors/ftp.perl.org/pub/CPAN
+
+=item Italy
+
+  http://bo.mirror.garr.it/mirrors/CPAN/
+  http://cpan.panu.it/
+  ftp://ftp.panu.it/pub/mirrors/perl/CPAN/
+
+=item Latvia
+
+  http://kvin.lv/pub/CPAN/
+
+=item Lithuania
+
+  http://ftp.litnet.lt/pub/CPAN/
+  ftp://ftp.litnet.lt/pub/CPAN/
+
+=item Malta
+
+  http://cpan.waldonet.net.mt/
+
+=item Netherlands
+
+  ftp://ftp.quicknet.nl/pub/CPAN/
+  http://mirror.hostfuss.com/CPAN/
+  ftp://mirror.hostfuss.com/CPAN/
+  http://mirrors3.kernel.org/cpan/
+  ftp://mirrors3.kernel.org/pub/CPAN/
+  http://cpan.mirror.versatel.nl/
+  ftp://ftp.mirror.versatel.nl/cpan/
+  ftp://download.xs4all.nl/pub/mirror/CPAN/
+  http://mirror.leaseweb.com/CPAN/
+  ftp://mirror.leaseweb.com/CPAN/
+  ftp://ftp.cpan.nl/pub/CPAN/
+  http://archive.cs.uu.nl/mirror/CPAN/
+  ftp://ftp.cs.uu.nl/mirror/CPAN/
+  http://luxitude.net/cpan/
+
+=item Norway
+
+  ftp://ftp.uninett.no/pub/languages/perl/CPAN
+  ftp://ftp.uit.no/pub/languages/perl/cpan/
+
+=item Poland
+
+  http://piotrkosoft.net/pub/mirrors/CPAN/
+  ftp://ftp.piotrkosoft.net/pub/mirrors/CPAN/
+  http://ftp.man.poznan.pl/pub/CPAN
+  ftp://ftp.man.poznan.pl/pub/CPAN
+  ftp://ftp.ps.pl/pub/CPAN/
+  ftp://sunsite.icm.edu.pl/pub/CPAN/
+  ftp://ftp.tpnet.pl/d4/CPAN/
+
+=item Portugal
+
+  http://cpan.dei.uc.pt/
+  ftp://ftp.dei.uc.pt/pub/CPAN
+  ftp://ftp.ist.utl.pt/pub/CPAN/
+  http://cpan.perl.pt/
+  http://cpan.ip.pt/
+  ftp://cpan.ip.pt/pub/cpan/
+  http://mirrors.nfsi.pt/CPAN/
+  ftp://mirrors.nfsi.pt/pub/CPAN/
+  http://cpan.dcc.fc.up.pt/
+
+=item Romania
+
+  http://ftp.astral.ro/pub/CPAN/
+  ftp://ftp.astral.ro/pub/CPAN/
+  ftp://ftp.lug.ro/CPAN
+  http://mirrors.xservers.ro/CPAN/
+  http://mirrors.hostingromania.ro/ftp.cpan.org/
+  ftp://ftp.hostingromania.ro/mirrors/ftp.cpan.org/
+  ftp://ftp.iasi.roedu.net/pub/mirrors/ftp.cpan.org/
+
+=item Russia
+
+  ftp://ftp.aha.ru/CPAN/
+  http://cpan.rinet.ru/
+  ftp://cpan.rinet.ru/pub/mirror/CPAN/
+  ftp://ftp.SpringDaemons.com/pub/CPAN/
+  http://mirror.rol.ru/CPAN/
+  http://ftp.silvernet.ru/CPAN/
+  http://ftp.spbu.ru/CPAN/
+  ftp://ftp.spbu.ru/CPAN/
+
+=item Slovakia
+
+  http://cpan.fyxm.net/
+
+=item Slovenia
+
+  http://www.klevze.si/cpan
+
+=item Spain
+
+  http://osl.ugr.es/CPAN/
+  ftp://ftp.rediris.es/mirror/CPAN/
+  http://ftp.gui.uva.es/sites/cpan.org/
+  ftp://ftp.gui.uva.es/sites/cpan.org/
+
+=item Sweden
+
+  http://mirrors4.kernel.org/cpan/
+  ftp://mirrors4.kernel.org/pub/CPAN/
+
+=item Switzerland
+
+  http://cpan.mirror.solnet.ch/
+  ftp://ftp.solnet.ch/mirror/CPAN/
+  ftp://ftp.adwired.ch/CPAN/
+  http://mirror.switch.ch/ftp/mirror/CPAN/
+  ftp://mirror.switch.ch/mirror/CPAN/
+
+=item Ukraine
+
+  http://cpan.makeperl.org/
+  ftp://cpan.makeperl.org/pub/CPAN
+  http://cpan.org.ua/
+  http://cpan.gafol.net/
+  ftp://ftp.gafol.net/pub/cpan/
+
+=item United Kingdom
+
+  http://www.mirrorservice.org/sites/ftp.funet.fi/pub/languages/perl/CPAN/
+  ftp://ftp.mirrorservice.org/sites/ftp.funet.fi/pub/languages/perl/CPAN/
+  http://mirror.tje.me.uk/pub/mirrors/ftp.cpan.org/
+  ftp://mirror.tje.me.uk/pub/mirrors/ftp.cpan.org/
+  http://www.mirror.8086.net/sites/CPAN/
+  ftp://ftp.mirror.8086.net/sites/CPAN/
+  http://cpan.mirror.anlx.net/
+  ftp://ftp.mirror.anlx.net/CPAN/
+  http://mirror.bytemark.co.uk/CPAN/
+  ftp://mirror.bytemark.co.uk/CPAN/
+  http://cpan.etla.org/
+  ftp://cpan.etla.org/pub/CPAN
+  ftp://ftp.demon.co.uk/pub/CPAN/
+  http://mirror.sov.uk.goscomb.net/CPAN/
+  ftp://mirror.sov.uk.goscomb.net/pub/CPAN/
+  http://ftp.plig.net/pub/CPAN/
+  ftp://ftp.plig.net/pub/CPAN/
+  http://ftp.ticklers.org/pub/CPAN/
+  ftp://ftp.ticklers.org/pub/CPAN/
+  http://cpan.mirrors.uk2.net/
+  ftp://mirrors.uk2.net/pub/CPAN/
+  http://mirror.ox.ac.uk/sites/www.cpan.org/
+  ftp://mirror.ox.ac.uk/sites/www.cpan.org/
+
+=back
+
+=head2 North America
+
+=over 4
+
+=item Bahamas
+
+  http://www.securehost.com/mirror/CPAN/
+
+=item Canada
+
+  http://cpan.arcticnetwork.ca
+  ftp://mirror.arcticnetwork.ca/pub/CPAN
+  http://cpan.sunsite.ualberta.ca/
+  ftp://cpan.sunsite.ualberta.ca/pub/CPAN/
+  http://theoryx5.uwinnipeg.ca/pub/CPAN/
+  ftp://theoryx5.uwinnipeg.ca/pub/CPAN/
+  http://arwen.cs.dal.ca/mirror/CPAN/
+  ftp://arwen.cs.dal.ca/pub/mirror/CPAN/
+  http://CPAN.mirror.rafal.ca/
+  ftp://CPAN.mirror.rafal.ca/pub/CPAN/
+  ftp://ftp.nrc.ca/pub/CPAN/
+  http://mirror.csclub.uwaterloo.ca/pub/CPAN/
+  ftp://mirror.csclub.uwaterloo.ca/pub/CPAN/
+
+=item Mexico
+
+  http://www.msg.com.mx/CPAN/
+  ftp://ftp.msg.com.mx/pub/CPAN/
+
+=item United States
+
+=over 8
+
+=item Alabama
+
+  http://mirror.hiwaay.net/CPAN/
+  ftp://mirror.hiwaay.net/CPAN/
+
+=item Arizona
+
+  http://cpan.ezarticleinformation.com/
+
+=item California
+
+  http://cpan.knowledgematters.net/
+  http://cpan.binkerton.com/
+  http://cpan.develooper.com/
+  http://mirrors.gossamer-threads.com/CPAN
+  http://cpan.schatt.com/
+  http://mirrors.kernel.org/cpan/
+  ftp://mirrors.kernel.org/pub/CPAN
+  http://mirrors2.kernel.org/cpan/
+  ftp://mirrors2.kernel.org/pub/CPAN/
+  http://cpan.mirror.facebook.net/
+  http://mirrors1.kernel.org/cpan/
+  ftp://mirrors1.kernel.org/pub/CPAN/
+  http://cpan-sj.viaverio.com/
+  ftp://cpan-sj.viaverio.com/pub/CPAN/
+  http://www.perl.com/CPAN/
+
+=item Florida
+
+  ftp://ftp.cise.ufl.edu/pub/mirrors/CPAN/
+  http://mirror.atlantic.net/pub/CPAN/
+  ftp://mirror.atlantic.net/pub/CPAN/
+
+=item Idaho
+
+  http://mirror.its.uidaho.edu/pub/cpan/
+  ftp://mirror.its.uidaho.edu/cpan/
+
+=item Illinois
+
+  http://cpan.mirrors.hoobly.com/
+  http://cpan.uchicago.edu/pub/CPAN/
+  ftp://cpan.uchicago.edu/pub/CPAN/
+  http://mirrors.servercentral.net/CPAN/
+  http://www.stathy.com/CPAN/
+  ftp://www.stathy.com/CPAN/
+
+=item Indiana
+
+  ftp://ftp.uwsg.iu.edu/pub/perl/CPAN/
+  http://cpan.netnitco.net/
+  ftp://cpan.netnitco.net/pub/mirrors/CPAN/
+  http://ftp.ndlug.nd.edu/pub/perl/
+  ftp://ftp.ndlug.nd.edu/pub/perl/
+
+=item Massachusetts
+
+  http://mirrors.ccs.neu.edu/CPAN/
+
+=item Michigan
+
+  http://ftp.wayne.edu/cpan/
+  ftp://ftp.wayne.edu/cpan/
+
+=item Minnesota
+
+  http://cpan.msi.umn.edu/
+
+=item New Jersey
+
+  http://mirror.datapipe.net/CPAN/
+  ftp://mirror.datapipe.net/pub/CPAN/
+
+=item New York
+
+  http://mirrors.24-7-solutions.net/pub/CPAN/
+  ftp://mirrors.24-7-solutions.net/pub/CPAN/
+  http://mirror.cc.columbia.edu/pub/software/cpan/
+  ftp://mirror.cc.columbia.edu/pub/software/cpan/
+  http://cpan.belfry.net/
+  http://cpan.erlbaum.net/
+  ftp://cpan.erlbaum.net/CPAN/
+  http://cpan.hexten.net/
+  ftp://cpan.hexten.net/
+  ftp://mirror.nyi.net/CPAN/
+  http://mirror.rit.edu/CPAN/
+  ftp://mirror.rit.edu/CPAN/
+
+=item North Carolina
+
+  http://www.ibiblio.org/pub/mirrors/CPAN
+  ftp://ftp.ncsu.edu/pub/mirror/CPAN/
+
+=item Oregon
+
+  http://ftp.osuosl.org/pub/CPAN/
+  ftp://ftp.osuosl.org/pub/CPAN/
+
+=item Pennsylvania
+
+  http://ftp.epix.net/CPAN/
+  ftp://ftp.epix.net/pub/languages/perl/
+  http://cpan.pair.com/
+  ftp://cpan.pair.com/pub/CPAN/
+
+=item South Carolina
+
+  http://cpan.mirror.clemson.edu/
+
+=item Tennessee
+
+  http://mira.sunsite.utk.edu/CPAN/
+
+=item Texas
+
+  http://mirror.uta.edu/CPAN
+
+=item Utah
+
+  ftp://mirror.xmission.com/CPAN/
+
+=item Virginia
+
+  http://cpan-du.viaverio.com/
+  ftp://cpan-du.viaverio.com/pub/CPAN/
+  http://perl.secsup.org/
+  ftp://perl.secsup.org/pub/perl/
+  ftp://mirror.cogentco.com/pub/CPAN/
+
+=item Washington
+
+  http://cpan.llarian.net/
+  ftp://cpan.llarian.net/pub/CPAN/
+  ftp://ftp-mirror.internap.com/pub/CPAN/
+
+=item Wisconsin
+
+  http://cpan.mirrors.tds.net
+  ftp://cpan.mirrors.tds.net/pub/CPAN
+  http://mirror.sit.wisc.edu/pub/CPAN/
+  ftp://mirror.sit.wisc.edu/pub/CPAN/
+
+=back
+
+=back
+
+=head2 Oceania
+
+=over 4
+
+=item Australia
+
+  http://mirror.internode.on.net/pub/cpan/
+  ftp://mirror.internode.on.net/pub/cpan/
+  http://cpan.mirror.aussiehq.net.au/
+  http://mirror.as24220.net/cpan/
+  ftp://mirror.as24220.net/cpan/
+
+=item New Zealand
+
+  ftp://ftp.auckland.ac.nz/pub/perl/CPAN/
+  http://cpan.inspire.net.nz
+  ftp://cpan.inspire.net.nz/cpan
+  http://cpan.catalyst.net.nz/CPAN/
+  ftp://cpan.catalyst.net.nz/pub/CPAN/
+
+=back
+
+=head2 South America
+
+=over 4
+
+=item Argentina
+
+  http://cpan.patan.com.ar/
+  http://cpan.localhost.net.ar
+  ftp://mirrors.localhost.net.ar/pub/mirrors/CPAN
+
+=item Brazil
+
+  ftp://cpan.pop-mg.com.br/pub/CPAN/
+  http://ftp.pucpr.br/CPAN
+  ftp://ftp.pucpr.br/CPAN
+  http://cpan.kinghost.net/
+
+=item Chile
+
+  http://cpan.dcc.uchile.cl/
+  ftp://cpan.dcc.uchile.cl/pub/lang/cpan/
+
+=item Colombia
+
+  http://www.laqee.unal.edu.co/CPAN/
+
+=back
+
+=head2 RSYNC Mirrors
+
+                      mirror.as24220.net::cpan
+                      cpan.inode.at::CPAN
+                      gd.tuwien.ac.at::CPAN
+                      ftp.belnet.be::packages/cpan
+                      rsync.linorg.usp.br::CPAN
+                      rsync.arcticnetwork.ca::CPAN
+                      CPAN.mirror.rafal.ca::CPAN
+                      mirror.csclub.uwaterloo.ca::CPAN
+                      theoryx5.uwinnipeg.ca::CPAN
+                      www.laqee.unal.edu.co::CPAN
+                      mirror.uni-c.dk::CPAN
+                      rsync.nic.funet.fi::CPAN
+                      rsync://distrib-coffee.ipsl.jussieu.fr/pub/mirrors/cpan/
+                      mir1.ovh.net::CPAN
+                      miroir-francais.fr::cpan
+                      ftp.crihan.fr::CPAN
+                      rsync://mirror.cict.fr/cpan/
+                      rsync://mirror.netcologne.de/cpan/
+                      ftp-stud.hs-esslingen.de::CPAN/
+                      ftp.gwdg.de::FTP/languages/perl/CPAN/
+                      cpan.mirror.iphh.net::CPAN
+                      cpan.cpantesters.org::cpan
+                      cpan.hu::CPAN
+                      komo.vlsm.org::CPAN
+                      mirror.unej.ac.id::cpan
+                      ftp.esat.net::/pub/languages/perl/CPAN
+                      ftp.heanet.ie::mirrors/ftp.perl.org/pub/CPAN
+                      rsync.panu.it::CPAN
+                      cpan.fastbull.org::CPAN
+                      ftp.kddilabs.jp::cpan
+                      ftp.nara.wide.ad.jp::cpan/
+                      rsync://ftp.jaist.ac.jp/pub/CPAN/
+                      rsync://ftp.riken.jp/cpan/
+                      mirror.linuxiso.kz::CPAN
+                      rsync://mirrors3.kernel.org/mirrors/CPAN/
+                      rsync://rsync.osmirror.nl/cpan/
+                      mirror.leaseweb.com::CPAN
+                      cpan.nautile.nc::CPAN
+                      mirror.icis.pcz.pl::CPAN
+                      piotrkosoft.net::mirrors/CPAN
+                      rsync://cpan.perl.pt/
+                      ftp.kaist.ac.kr::cpan
+                      cpan.sarang.net::CPAN
+                      mirror.averse.net::cpan
+                      rsync.oss.eznetsols.org
+                      mirror.ac.za::cpan
+                      ftp.is.co.za::IS-Mirror/ftp.cpan.org/
+                      rsync://ftp.gui.uva.es/cpan/
+                      rsync://mirrors4.kernel.org/mirrors/CPAN/
+                      ftp.solnet.ch::CPAN
+                      ftp.ulak.net.tr::CPAN
+                      gafol.net::cpan
+                      rsync.mirrorservice.org::ftp.funet.fi/pub/
+                      rsync://rsync.mirror.8086.net/CPAN/
+                      rsync.mirror.anlx.net::CPAN
+                      mirror.bytemark.co.uk::CPAN
+                      ftp.plig.net::CPAN
+                      rsync://ftp.ticklers.org:CPAN/
+                      mirrors.ibiblio.org::CPAN
+                      cpan-du.viaverio.com::CPAN
+                      mirror.hiwaay.net::CPAN
+                      rsync://mira.sunsite.utk.edu/CPAN/
+                      cpan.mirrors.tds.net::CPAN
+                      mirror.its.uidaho.edu::cpan
+                      rsync://mirror.cc.columbia.edu::cpan/
+                      ftp.fxcorporate.com::CPAN
+                      rsync.atlantic.net::CPAN
+                      mirrors.kernel.org::mirrors/CPAN
+                      rsync://mirrors2.kernel.org/mirrors/CPAN/
+                      cpan.pair.com::CPAN
+                      rsync://mirror.rit.edu/CPAN/
+                      rsync://mirror.facebook.net/cpan/
+                      rsync://mirrors1.kernel.org/mirrors/CPAN/
+                      cpan-sj.viaverio.com::CPAN
+
+For an up-to-date listing of CPAN sites,
+see http://www.cpan.org/SITES or ftp://www.cpan.org/SITES .
+
+=head1 Modules: Creation, Use, and Abuse
+
+(The following section is borrowed directly from Tim Bunce's modules
+file, available at your nearest CPAN site.)
+
+Perl implements a class using a package, but the presence of a
+package doesn't imply the presence of a class.  A package is just a
+namespace.  A class is a package that provides subroutines that can be
+used as methods.  A method is just a subroutine that expects, as its
+first argument, either the name of a package (for "static" methods),
+or a reference to something (for "virtual" methods).
+
+A module is a file that (by convention) provides a class of the same
+name (sans the .pm), plus an import method in that class that can be
+called to fetch exported symbols.  This module may implement some of
+its methods by loading dynamic C or C++ objects, but that should be
+totally transparent to the user of the module.  Likewise, the module
+might set up an AUTOLOAD function to slurp in subroutine definitions on
+demand, but this is also transparent.  Only the F<.pm> file is required to
+exist.  See L<perlsub>, L<perlobj>, and L<AutoLoader> for details about
+the AUTOLOAD mechanism.
+
+=head2 Guidelines for Module Creation
+
+=over 4
+
+=item  *
+
+Do similar modules already exist in some form?
+
+If so, please try to reuse the existing modules either in whole or
+by inheriting useful features into a new class.  If this is not
+practical try to get together with the module authors to work on
+extending or enhancing the functionality of the existing modules.
+A perfect example is the plethora of packages in perl4 for dealing
+with command line options.
+
+If you are writing a module to expand an already existing set of
+modules, please coordinate with the author of the package.  It
+helps if you follow the same naming scheme and module interaction
+scheme as the original author.
+
+=item  *
+
+Try to design the new module to be easy to extend and reuse.
+
+Try to C<use warnings;> (or C<use warnings qw(...);>).
+Remember that you can add C<no warnings qw(...);> to individual blocks
+of code that need less warnings.
+
+Use blessed references.  Use the two argument form of bless to bless
+into the class name given as the first parameter of the constructor,
+e.g.,:
+
+ sub new {
+     my $class = shift;
+     return bless {}, $class;
+ }
+
+or even this if you'd like it to be used as either a static
+or a virtual method.
+
+ sub new {
+     my $self  = shift;
+     my $class = ref($self) || $self;
+     return bless {}, $class;
+ }
+
+Pass arrays as references so more parameters can be added later
+(it's also faster).  Convert functions into methods where
+appropriate.  Split large methods into smaller more flexible ones.
+Inherit methods from other modules if appropriate.
+
+Avoid class name tests like: C<die "Invalid" unless ref $ref eq 'FOO'>.
+Generally you can delete the C<eq 'FOO'> part with no harm at all.
+Let the objects look after themselves! Generally, avoid hard-wired
+class names as far as possible.
+
+Avoid C<< $r->Class::func() >> where using C<@ISA=qw(... Class ...)> and
+C<< $r->func() >> would work.
+
+Use autosplit so little used or newly added functions won't be a
+burden to programs that don't use them. Add test functions to
+the module after __END__ either using AutoSplit or by saying:
+
+ eval join('',<main::DATA>) || die $@ unless caller();
+
+Does your module pass the 'empty subclass' test? If you say
+C<@SUBCLASS::ISA = qw(YOURCLASS);> your applications should be able
+to use SUBCLASS in exactly the same way as YOURCLASS.  For example,
+does your application still work if you change:  C<< $obj = YOURCLASS->new(); >>
+into: C<< $obj = SUBCLASS->new(); >> ?
+
+Avoid keeping any state information in your packages. It makes it
+difficult for multiple other packages to use yours. Keep state
+information in objects.
+
+Always use B<-w>.
+
+Try to C<use strict;> (or C<use strict qw(...);>).
+Remember that you can add C<no strict qw(...);> to individual blocks
+of code that need less strictness.
+
+Always use B<-w>.
+
+Follow the guidelines in L<perlstyle>.
+
+Always use B<-w>.
+
+=item  *
+
+Some simple style guidelines
+
+The perlstyle manual supplied with Perl has many helpful points.
+
+Coding style is a matter of personal taste. Many people evolve their
+style over several years as they learn what helps them write and
+maintain good code.  Here's one set of assorted suggestions that
+seem to be widely used by experienced developers:
+
+Use underscores to separate words.  It is generally easier to read
+$var_names_like_this than $VarNamesLikeThis, especially for
+non-native speakers of English. It's also a simple rule that works
+consistently with VAR_NAMES_LIKE_THIS.
+
+Package/Module names are an exception to this rule. Perl informally
+reserves lowercase module names for 'pragma' modules like integer
+and strict. Other modules normally begin with a capital letter and
+use mixed case with no underscores (need to be short and portable).
+
+You may find it helpful to use letter case to indicate the scope
+or nature of a variable. For example:
+
+ $ALL_CAPS_HERE   constants only (beware clashes with Perl vars)
+ $Some_Caps_Here  package-wide global/static
+ $no_caps_here    function scope my() or local() variables
+
+Function and method names seem to work best as all lowercase.
+e.g., C<< $obj->as_string() >>.
+
+You can use a leading underscore to indicate that a variable or
+function should not be used outside the package that defined it.
+
+=item  *
+
+Select what to export.
+
+Do NOT export method names!
+
+Do NOT export anything else by default without a good reason!
+
+Exports pollute the namespace of the module user.  If you must
+export try to use @EXPORT_OK in preference to @EXPORT and avoid
+short or common names to reduce the risk of name clashes.
+
+Generally anything not exported is still accessible from outside the
+module using the ModuleName::item_name (or C<< $blessed_ref->method >>)
+syntax.  By convention you can use a leading underscore on names to
+indicate informally that they are 'internal' and not for public use.
+
+(It is actually possible to get private functions by saying:
+C<my $subref = sub { ... };  &$subref;>.  But there's no way to call that
+directly as a method, because a method must have a name in the symbol
+table.)
+
+As a general rule, if the module is trying to be object oriented
+then export nothing. If it's just a collection of functions then
+@EXPORT_OK anything but use @EXPORT with caution.
+
+=item  *
+
+Select a name for the module.
+
+This name should be as descriptive, accurate, and complete as
+possible.  Avoid any risk of ambiguity. Always try to use two or
+more whole words.  Generally the name should reflect what is special
+about what the module does rather than how it does it.  Please use
+nested module names to group informally or categorize a module.
+There should be a very good reason for a module not to have a nested name.
+Module names should begin with a capital letter.
+
+Having 57 modules all called Sort will not make life easy for anyone
+(though having 23 called Sort::Quick is only marginally better :-).
+Imagine someone trying to install your module alongside many others.
+
+If you are developing a suite of related modules/classes it's good
+practice to use nested classes with a common prefix as this will
+avoid namespace clashes. For example: Xyz::Control, Xyz::View,
+Xyz::Model etc. Use the modules in this list as a naming guide.
+
+If adding a new module to a set, follow the original author's
+standards for naming modules and the interface to methods in
+those modules.
+
+If developing modules for private internal or project specific use,
+that will never be released to the public, then you should ensure
+that their names will not clash with any future public module. You
+can do this either by using the reserved Local::* category or by
+using a category name that includes an underscore like Foo_Corp::*.
+
+To be portable each component of a module name should be limited to
+11 characters. If it might be used on MS-DOS then try to ensure each is
+unique in the first 8 characters. Nested modules make this easier.
+
+For additional guidance on the naming of modules, please consult:
+
+    http://pause.perl.org/pause/query?ACTION=pause_namingmodules
+
+or send mail to the <module-authors@perl.org> mailing list.
+
+=item  *
+
+Have you got it right?
+
+How do you know that you've made the right decisions? Have you
+picked an interface design that will cause problems later? Have
+you picked the most appropriate name? Do you have any questions?
+
+The best way to know for sure, and pick up many helpful suggestions,
+is to ask someone who knows. The <module-authors@perl.org> mailing list
+is useful for this purpose; it's also accessible via news interface as
+perl.module-authors at nntp.perl.org.
+
+All you need to do is post a short summary of the module, its
+purpose and interfaces. A few lines on each of the main methods is
+probably enough. (If you post the whole module it might be ignored
+by busy people - generally the very people you want to read it!)
+
+Don't worry about posting if you can't say when the module will be
+ready - just say so in the message. It might be worth inviting
+others to help you, they may be able to complete it for you!
+
+=item  *
+
+README and other Additional Files.
+
+It's well known that software developers usually fully document the
+software they write. If, however, the world is in urgent need of
+your software and there is not enough time to write the full
+documentation please at least provide a README file containing:
+
+=over 10
+
+=item *
+
+A description of the module/package/extension etc.
+
+=item *
+
+A copyright notice - see below.
+
+=item *
+
+Prerequisites - what else you may need to have.
+
+=item *
+
+How to build it - possible changes to Makefile.PL etc.
+
+=item *
+
+How to install it.
+
+=item *
+
+Recent changes in this release, especially incompatibilities
+
+=item *
+
+Changes / enhancements you plan to make in the future.
+
+=back
+
+If the README file seems to be getting too large you may wish to
+split out some of the sections into separate files: INSTALL,
+Copying, ToDo etc.
+
+=over 4
+
+=item *
+
+Adding a Copyright Notice.
+
+How you choose to license your work is a personal decision.
+The general mechanism is to assert your Copyright and then make
+a declaration of how others may copy/use/modify your work.
+
+Perl, for example, is supplied with two types of licence: The GNU GPL
+and The Artistic Licence (see the files README, Copying, and Artistic,
+or L<perlgpl> and L<perlartistic>).  Larry has good reasons for NOT
+just using the GNU GPL.
+
+My personal recommendation, out of respect for Larry, Perl, and the
+Perl community at large is to state something simply like:
+
+ Copyright (c) 1995 Your Name. All rights reserved.
+ This program is free software; you can redistribute it and/or
+ modify it under the same terms as Perl itself.
+
+This statement should at least appear in the README file. You may
+also wish to include it in a Copying file and your source files.
+Remember to include the other words in addition to the Copyright.
+
+=item  *
+
+Give the module a version/issue/release number.
+
+To be fully compatible with the Exporter and MakeMaker modules you
+should store your module's version number in a non-my package
+variable called $VERSION.  This should be a positive floating point
+number with at least two digits after the decimal (i.e., hundredths,
+e.g, C<$VERSION = "0.01">).  Don't use a "1.3.2" style version.
+See L<Exporter> for details.
+
+It may be handy to add a function or method to retrieve the number.
+Use the number in announcements and archive file names when
+releasing the module (ModuleName-1.02.tar.Z).
+See perldoc ExtUtils::MakeMaker.pm for details.
+
+=item  *
+
+How to release and distribute a module.
+
+It's good idea to post an announcement of the availability of your
+module (or the module itself if small) to the comp.lang.perl.announce
+Usenet newsgroup.  This will at least ensure very wide once-off
+distribution.
+
+If possible, register the module with CPAN.  You should
+include details of its location in your announcement.
+
+Some notes about ftp archives: Please use a long descriptive file
+name that includes the version number. Most incoming directories
+will not be readable/listable, i.e., you won't be able to see your
+file after uploading it. Remember to send your email notification
+message as soon as possible after uploading else your file may get
+deleted automatically. Allow time for the file to be processed
+and/or check the file has been processed before announcing its
+location.
+
+FTP Archives for Perl Modules:
+
+Follow the instructions and links on:
+
+   http://www.cpan.org/modules/00modlist.long.html
+   http://www.cpan.org/modules/04pause.html
+
+or upload to one of these sites:
+
+   https://pause.kbx.de/pause/
+   http://pause.perl.org/
+
+and notify <modules@perl.org>.
+
+By using the WWW interface you can ask the Upload Server to mirror
+your modules from your ftp or WWW site into your own directory on
+CPAN!
+
+Please remember to send me an updated entry for the Module list!
+
+=item  *
+
+Take care when changing a released module.
+
+Always strive to remain compatible with previous released versions.
+Otherwise try to add a mechanism to revert to the
+old behavior if people rely on it.  Document incompatible changes.
+
+=back
+
+=back
+
+=head2 Guidelines for Converting Perl 4 Library Scripts into Modules
+
+=over 4
+
+=item  *
+
+There is no requirement to convert anything.
+
+If it ain't broke, don't fix it! Perl 4 library scripts should
+continue to work with no problems. You may need to make some minor
+changes (like escaping non-array @'s in double quoted strings) but
+there is no need to convert a .pl file into a Module for just that.
+
+=item  *
+
+Consider the implications.
+
+All Perl applications that make use of the script will need to
+be changed (slightly) if the script is converted into a module.  Is
+it worth it unless you plan to make other changes at the same time?
+
+=item  *
+
+Make the most of the opportunity.
+
+If you are going to convert the script to a module you can use the
+opportunity to redesign the interface.  The guidelines for module
+creation above include many of the issues you should consider.
+
+=item  *
+
+The pl2pm utility will get you started.
+
+This utility will read *.pl files (given as parameters) and write
+corresponding *.pm files. The pl2pm utilities does the following:
+
+=over 10
+
+=item *
+
+Adds the standard Module prologue lines
+
+=item *
+
+Converts package specifiers from ' to ::
+
+=item *
+
+Converts die(...) to croak(...)
+
+=item *
+
+Several other minor changes
+
+=back
+
+Being a mechanical process pl2pm is not bullet proof. The converted
+code will need careful checking, especially any package statements.
+Don't delete the original .pl file till the new .pm one works!
+
+=back
+
+=head2 Guidelines for Reusing Application Code
+
+=over 4
+
+=item  *
+
+Complete applications rarely belong in the Perl Module Library.
+
+=item  *
+
+Many applications contain some Perl code that could be reused.
+
+Help save the world! Share your code in a form that makes it easy
+to reuse.
+
+=item  *
+
+Break-out the reusable code into one or more separate module files.
+
+=item  *
+
+Take the opportunity to reconsider and redesign the interfaces.
+
+=item  *
+
+In some cases the 'application' can then be reduced to a small
+
+fragment of code built on top of the reusable modules. In these cases
+the application could invoked as:
+
+     % perl -e 'use Module::Name; method(@ARGV)' ...
+or
+     % perl -mModule::Name ...    (in perl5.002 or higher)
+
+=back
+
+=head1 NOTE
+
+Perl does not enforce private and public parts of its modules as you may
+have been used to in other languages like C++, Ada, or Modula-17.  Perl
+doesn't have an infatuation with enforced privacy.  It would prefer
+that you stayed out of its living room because you weren't invited, not
+because it has a shotgun.
+
+The module and its user have a contract, part of which is common law,
+and part of which is "written".  Part of the common law contract is
+that a module doesn't pollute any namespace it wasn't asked to.  The
+written contract for the module (A.K.A. documentation) may make other
+provisions.  But then you know when you C<use RedefineTheWorld> that
+you're redefining the world and willing to take the consequences.
+
+=cut
+
+ex: set ro:
diff --git a/lib/5.24.1/pod/perlmodstyle.pod b/lib/5.24.1/pod/perlmodstyle.pod
new file mode 100644
index 00000000..62390a49
--- /dev/null
+++ b/lib/5.24.1/pod/perlmodstyle.pod
@@ -0,0 +1,813 @@
+=head1 NAME
+
+perlmodstyle - Perl module style guide
+
+=head1 INTRODUCTION
+
+This document attempts to describe the Perl Community's "best practice"
+for writing Perl modules.  It extends the recommendations found in 
+L<perlstyle> , which should be considered required reading
+before reading this document.
+
+While this document is intended to be useful to all module authors, it is
+particularly aimed at authors who wish to publish their modules on CPAN.
+
+The focus is on elements of style which are visible to the users of a 
+module, rather than those parts which are only seen by the module's 
+developers.  However, many of the guidelines presented in this document
+can be extrapolated and applied successfully to a module's internals.
+
+This document differs from L<perlnewmod> in that it is a style guide
+rather than a tutorial on creating CPAN modules.  It provides a
+checklist against which modules can be compared to determine whether
+they conform to best practice, without necessarily describing in detail
+how to achieve this.  
+
+All the advice contained in this document has been gleaned from
+extensive conversations with experienced CPAN authors and users.  Every
+piece of advice given here is the result of previous mistakes.  This
+information is here to help you avoid the same mistakes and the extra
+work that would inevitably be required to fix them.
+
+The first section of this document provides an itemized checklist; 
+subsequent sections provide a more detailed discussion of the items on 
+the list.  The final section, "Common Pitfalls", describes some of the 
+most popular mistakes made by CPAN authors.
+
+=head1 QUICK CHECKLIST
+
+For more detail on each item in this checklist, see below.
+
+=head2 Before you start
+
+=over 4
+
+=item *
+
+Don't re-invent the wheel
+
+=item *
+
+Patch, extend or subclass an existing module where possible
+
+=item *
+
+Do one thing and do it well
+
+=item *
+
+Choose an appropriate name
+
+=item *
+
+Get feedback before publishing
+
+=back
+
+=head2 The API
+
+=over 4
+
+=item *
+
+API should be understandable by the average programmer
+
+=item *
+
+Simple methods for simple tasks
+
+=item *
+
+Separate functionality from output
+
+=item *
+
+Consistent naming of subroutines or methods
+
+=item *
+
+Use named parameters (a hash or hashref) when there are more than two
+parameters
+
+=back
+
+=head2 Stability
+
+=over 4
+
+=item *
+
+Ensure your module works under C<use strict> and C<-w>
+
+=item *
+
+Stable modules should maintain backwards compatibility
+
+=back
+
+=head2 Documentation
+
+=over 4
+
+=item *
+
+Write documentation in POD
+
+=item *
+
+Document purpose, scope and target applications
+
+=item *
+
+Document each publically accessible method or subroutine, including params and return values
+
+=item *
+
+Give examples of use in your documentation
+
+=item *
+
+Provide a README file and perhaps also release notes, changelog, etc
+
+=item *
+
+Provide links to further information (URL, email)
+
+=back
+
+=head2 Release considerations
+
+=over 4
+
+=item *
+
+Specify pre-requisites in Makefile.PL or Build.PL
+
+=item *
+
+Specify Perl version requirements with C<use>
+
+=item *
+
+Include tests with your module
+
+=item *
+
+Choose a sensible and consistent version numbering scheme (X.YY is the common Perl module numbering scheme)
+
+=item *
+
+Increment the version number for every change, no matter how small
+
+=item *
+
+Package the module using "make dist"
+
+=item *
+
+Choose an appropriate license (GPL/Artistic is a good default)
+
+=back
+
+=head1 BEFORE YOU START WRITING A MODULE
+
+Try not to launch headlong into developing your module without spending
+some time thinking first.  A little forethought may save you a vast
+amount of effort later on.
+
+=head2 Has it been done before?
+
+You may not even need to write the module.  Check whether it's already 
+been done in Perl, and avoid re-inventing the wheel unless you have a 
+good reason.
+
+Good places to look for pre-existing modules include
+L<http://search.cpan.org/> and L<https://metacpan.org>
+and asking on C<module-authors@perl.org>
+(L<http://lists.perl.org/list/module-authors.html>).
+
+If an existing module B<almost> does what you want, consider writing a
+patch, writing a subclass, or otherwise extending the existing module
+rather than rewriting it.
+
+=head2 Do one thing and do it well
+
+At the risk of stating the obvious, modules are intended to be modular.
+A Perl developer should be able to use modules to put together the
+building blocks of their application.  However, it's important that the
+blocks are the right shape, and that the developer shouldn't have to use
+a big block when all they need is a small one.
+
+Your module should have a clearly defined scope which is no longer than
+a single sentence.  Can your module be broken down into a family of
+related modules?
+
+Bad example:
+
+"FooBar.pm provides an implementation of the FOO protocol and the
+related BAR standard."
+
+Good example:
+
+"Foo.pm provides an implementation of the FOO protocol.  Bar.pm
+implements the related BAR protocol."
+
+This means that if a developer only needs a module for the BAR standard,
+they should not be forced to install libraries for FOO as well.
+
+=head2 What's in a name?
+
+Make sure you choose an appropriate name for your module early on.  This
+will help people find and remember your module, and make programming
+with your module more intuitive.
+
+When naming your module, consider the following:
+
+=over 4
+
+=item *
+
+Be descriptive (i.e. accurately describes the purpose of the module).
+
+=item * 
+
+Be consistent with existing modules.
+
+=item *
+
+Reflect the functionality of the module, not the implementation.
+
+=item *
+
+Avoid starting a new top-level hierarchy, especially if a suitable
+hierarchy already exists under which you could place your module.
+
+=back
+
+=head2 Get feedback before publishing
+
+If you have never uploaded a module to CPAN before (and even if you have),
+you are strongly encouraged to get feedback on L<PrePAN|http://prepan.org>.
+PrePAN is a site dedicated to discussing ideas for CPAN modules with other
+Perl developers and is a great resource for new (and experienced) Perl
+developers.
+
+You should also try to get feedback from people who are already familiar
+with the module's application domain and the CPAN naming system.  Authors
+of similar modules, or modules with similar names, may be a good place to
+start, as are community sites like L<Perl Monks|http://www.perlmonks.org>.
+
+=head1 DESIGNING AND WRITING YOUR MODULE
+
+Considerations for module design and coding:
+
+=head2 To OO or not to OO?
+
+Your module may be object oriented (OO) or not, or it may have both kinds 
+of interfaces available.  There are pros and cons of each technique, which 
+should be considered when you design your API.
+
+In I<Perl Best Practices> (copyright 2004, Published by O'Reilly Media, Inc.),
+Damian Conway provides a list of criteria to use when deciding if OO is the
+right fit for your problem:
+
+=over 4
+
+=item *
+
+The system being designed is large, or is likely to become large.
+
+=item *
+
+The data can be aggregated into obvious structures, especially if
+there's a large amount of data in each aggregate.
+
+=item *
+
+The various types of data aggregate form a natural hierarchy that
+facilitates the use of inheritance and polymorphism.
+
+=item *
+
+You have a piece of data on which many different operations are
+applied.
+
+=item *
+
+You need to perform the same general operations on related types of
+data, but with slight variations depending on the specific type of data
+the operations are applied to.
+
+=item *
+
+It's likely you'll have to add new data types later.
+
+=item *
+
+The typical interactions between pieces of data are best represented by
+operators.
+
+=item *
+
+The implementation of individual components of the system is likely to
+change over time.
+
+=item *
+
+The system design is already object-oriented.
+
+=item *
+
+Large numbers of other programmers will be using your code modules.
+
+=back
+
+Think carefully about whether OO is appropriate for your module.
+Gratuitous object orientation results in complex APIs which are
+difficult for the average module user to understand or use.
+
+=head2 Designing your API
+
+Your interfaces should be understandable by an average Perl programmer.  
+The following guidelines may help you judge whether your API is
+sufficiently straightforward:
+
+=over 4
+
+=item Write simple routines to do simple things.
+
+It's better to have numerous simple routines than a few monolithic ones.
+If your routine changes its behaviour significantly based on its
+arguments, it's a sign that you should have two (or more) separate
+routines.
+
+=item Separate functionality from output.  
+
+Return your results in the most generic form possible and allow the user 
+to choose how to use them.  The most generic form possible is usually a
+Perl data structure which can then be used to generate a text report,
+HTML, XML, a database query, or whatever else your users require.
+
+If your routine iterates through some kind of list (such as a list of
+files, or records in a database) you may consider providing a callback
+so that users can manipulate each element of the list in turn.
+File::Find provides an example of this with its 
+C<find(\&wanted, $dir)> syntax.
+
+=item Provide sensible shortcuts and defaults.
+
+Don't require every module user to jump through the same hoops to achieve a
+simple result.  You can always include optional parameters or routines for 
+more complex or non-standard behaviour.  If most of your users have to
+type a few almost identical lines of code when they start using your
+module, it's a sign that you should have made that behaviour a default.
+Another good indicator that you should use defaults is if most of your 
+users call your routines with the same arguments.
+
+=item Naming conventions
+
+Your naming should be consistent.  For instance, it's better to have:
+
+	display_day();
+	display_week();
+	display_year();
+
+than
+
+	display_day();
+	week_display();
+	show_year();
+
+This applies equally to method names, parameter names, and anything else
+which is visible to the user (and most things that aren't!)
+
+=item Parameter passing
+
+Use named parameters.  It's easier to use a hash like this:
+
+    $obj->do_something(
+	    name => "wibble",
+	    type => "text",
+	    size => 1024,
+    );
+
+... than to have a long list of unnamed parameters like this:
+
+    $obj->do_something("wibble", "text", 1024);
+
+While the list of arguments might work fine for one, two or even three
+arguments, any more arguments become hard for the module user to
+remember, and hard for the module author to manage.  If you want to add
+a new parameter you will have to add it to the end of the list for
+backward compatibility, and this will probably make your list order
+unintuitive.  Also, if many elements may be undefined you may see the
+following unattractive method calls:
+
+    $obj->do_something(undef, undef, undef, undef, undef, 1024);
+
+Provide sensible defaults for parameters which have them.  Don't make
+your users specify parameters which will almost always be the same.
+
+The issue of whether to pass the arguments in a hash or a hashref is
+largely a matter of personal style. 
+
+The use of hash keys starting with a hyphen (C<-name>) or entirely in 
+upper case (C<NAME>) is a relic of older versions of Perl in which
+ordinary lower case strings were not handled correctly by the C<=E<gt>>
+operator.  While some modules retain uppercase or hyphenated argument
+keys for historical reasons or as a matter of personal style, most new
+modules should use simple lower case keys.  Whatever you choose, be
+consistent!
+
+=back
+
+=head2 Strictness and warnings
+
+Your module should run successfully under the strict pragma and should
+run without generating any warnings.  Your module should also handle 
+taint-checking where appropriate, though this can cause difficulties in
+many cases.
+
+=head2 Backwards compatibility
+
+Modules which are "stable" should not break backwards compatibility
+without at least a long transition phase and a major change in version
+number.
+
+=head2 Error handling and messages
+
+When your module encounters an error it should do one or more of:
+
+=over 4
+
+=item *
+
+Return an undefined value.
+
+=item *
+
+set C<$Module::errstr> or similar (C<errstr> is a common name used by
+DBI and other popular modules; if you choose something else, be sure to
+document it clearly).
+
+=item *
+
+C<warn()> or C<carp()> a message to STDERR.  
+
+=item *
+
+C<croak()> only when your module absolutely cannot figure out what to
+do.  (C<croak()> is a better version of C<die()> for use within 
+modules, which reports its errors from the perspective of the caller.  
+See L<Carp> for details of C<croak()>, C<carp()> and other useful
+routines.)
+
+=item *
+
+As an alternative to the above, you may prefer to throw exceptions using 
+the Error module.
+
+=back
+
+Configurable error handling can be very useful to your users.  Consider
+offering a choice of levels for warning and debug messages, an option to
+send messages to a separate file, a way to specify an error-handling
+routine, or other such features.  Be sure to default all these options
+to the commonest use.
+
+=head1 DOCUMENTING YOUR MODULE
+
+=head2 POD
+
+Your module should include documentation aimed at Perl developers.
+You should use Perl's "plain old documentation" (POD) for your general 
+technical documentation, though you may wish to write additional
+documentation (white papers, tutorials, etc) in some other format.  
+You need to cover the following subjects:
+
+=over 4
+
+=item *
+
+A synopsis of the common uses of the module
+
+=item *
+
+The purpose, scope and target applications of your module
+
+=item *
+
+Use of each publically accessible method or subroutine, including
+parameters and return values
+
+=item *
+
+Examples of use
+
+=item *
+
+Sources of further information
+
+=item *
+
+A contact email address for the author/maintainer
+
+=back
+
+The level of detail in Perl module documentation generally goes from
+less detailed to more detailed.  Your SYNOPSIS section should contain a
+minimal example of use (perhaps as little as one line of code; skip the
+unusual use cases or anything not needed by most users); the
+DESCRIPTION should describe your module in broad terms, generally in
+just a few paragraphs; more detail of the module's routines or methods,
+lengthy code examples, or other in-depth material should be given in 
+subsequent sections.
+
+Ideally, someone who's slightly familiar with your module should be able
+to refresh their memory without hitting "page down".  As your reader
+continues through the document, they should receive a progressively
+greater amount of knowledge.
+
+The recommended order of sections in Perl module documentation is:
+
+=over 4
+
+=item * 
+
+NAME
+
+=item *
+
+SYNOPSIS
+
+=item *
+
+DESCRIPTION
+
+=item *
+
+One or more sections or subsections giving greater detail of available 
+methods and routines and any other relevant information.
+
+=item *
+
+BUGS/CAVEATS/etc
+
+=item *
+
+AUTHOR
+
+=item *
+
+SEE ALSO
+
+=item *
+
+COPYRIGHT and LICENSE
+
+=back
+
+Keep your documentation near the code it documents ("inline"
+documentation).  Include POD for a given method right above that 
+method's subroutine.  This makes it easier to keep the documentation up
+to date, and avoids having to document each piece of code twice (once in
+POD and once in comments).
+
+=head2 README, INSTALL, release notes, changelogs
+
+Your module should also include a README file describing the module and
+giving pointers to further information (website, author email).  
+
+An INSTALL file should be included, and should contain simple installation 
+instructions.  When using ExtUtils::MakeMaker this will usually be:
+
+=over 4
+
+=item perl Makefile.PL
+
+=item make
+
+=item make test
+
+=item make install
+
+=back
+
+When using Module::Build, this will usually be:
+
+=over 4
+
+=item perl Build.PL
+
+=item perl Build
+
+=item perl Build test
+
+=item perl Build install
+
+=back
+
+Release notes or changelogs should be produced for each release of your
+software describing user-visible changes to your module, in terms
+relevant to the user.
+
+Unless you have good reasons for using some other format
+(for example, a format used within your company),
+the convention is to name your changelog file C<Changes>,
+and to follow the simple format described in L<CPAN::Changes::Spec>.
+
+=head1 RELEASE CONSIDERATIONS
+
+=head2 Version numbering
+
+Version numbers should indicate at least major and minor releases, and
+possibly sub-minor releases.  A major release is one in which most of
+the functionality has changed, or in which major new functionality is
+added.  A minor release is one in which a small amount of functionality
+has been added or changed.  Sub-minor version numbers are usually used
+for changes which do not affect functionality, such as documentation
+patches.
+
+The most common CPAN version numbering scheme looks like this:
+
+    1.00, 1.10, 1.11, 1.20, 1.30, 1.31, 1.32
+
+A correct CPAN version number is a floating point number with at least 
+2 digits after the decimal.  You can test whether it conforms to CPAN by 
+using
+
+    perl -MExtUtils::MakeMaker -le 'print MM->parse_version(shift)' \
+                                                            'Foo.pm'
+
+If you want to release a 'beta' or 'alpha' version of a module but
+don't want CPAN.pm to list it as most recent use an '_' after the
+regular version number followed by at least 2 digits, eg. 1.20_01.  If
+you do this, the following idiom is recommended:
+
+  our $VERSION = "1.12_01"; # so CPAN distribution will have
+                            # right filename
+  our $XS_VERSION = $VERSION; # only needed if you have XS code
+  $VERSION = eval $VERSION; # so "use Module 0.002" won't warn on
+                            # underscore
+
+With that trick MakeMaker will only read the first line and thus read
+the underscore, while the perl interpreter will evaluate the $VERSION
+and convert the string into a number.  Later operations that treat
+$VERSION as a number will then be able to do so without provoking a
+warning about $VERSION not being a number.
+
+Never release anything (even a one-word documentation patch) without
+incrementing the number.  Even a one-word documentation patch should
+result in a change in version at the sub-minor level.
+
+Once picked, it is important to stick to your version scheme, without
+reducing the number of digits.  This is because "downstream" packagers,
+such as the FreeBSD ports system, interpret the version numbers in
+various ways.  If you change the number of digits in your version scheme,
+you can confuse these systems so they get the versions of your module
+out of order, which is obviously bad.
+
+=head2 Pre-requisites
+
+Module authors should carefully consider whether to rely on other
+modules, and which modules to rely on.
+
+Most importantly, choose modules which are as stable as possible.  In
+order of preference: 
+
+=over 4
+
+=item *
+
+Core Perl modules
+
+=item *
+
+Stable CPAN modules
+
+=item *
+
+Unstable CPAN modules
+
+=item *
+
+Modules not available from CPAN
+
+=back
+
+Specify version requirements for other Perl modules in the
+pre-requisites in your Makefile.PL or Build.PL.
+
+Be sure to specify Perl version requirements both in Makefile.PL or
+Build.PL and with C<require 5.6.1> or similar.  See the section on
+C<use VERSION> of L<perlfunc/require> for details.
+
+=head2 Testing
+
+All modules should be tested before distribution (using "make disttest"),
+and the tests should also be available to people installing the modules 
+(using "make test").  
+For Module::Build you would use the C<make test> equivalent C<perl Build test>.
+
+The importance of these tests is proportional to the alleged stability of a 
+module.  A module which purports to be
+stable or which hopes to achieve wide 
+use should adhere to as strict a testing regime as possible.
+
+Useful modules to help you write tests (with minimum impact on your 
+development process or your time) include Test::Simple, Carp::Assert 
+and Test::Inline.
+For more sophisticated test suites there are Test::More and Test::MockObject.
+
+=head2 Packaging
+
+Modules should be packaged using one of the standard packaging tools.
+Currently you have the choice between ExtUtils::MakeMaker and the
+more platform independent Module::Build, allowing modules to be installed in a
+consistent manner.
+When using ExtUtils::MakeMaker, you can use "make dist" to create your
+package.  Tools exist to help you to build your module in a
+MakeMaker-friendly style.  These include ExtUtils::ModuleMaker and h2xs.
+See also L<perlnewmod>.
+
+=head2 Licensing
+
+Make sure that your module has a license, and that the full text of it
+is included in the distribution (unless it's a common one and the terms
+of the license don't require you to include it).
+
+If you don't know what license to use, dual licensing under the GPL
+and Artistic licenses (the same as Perl itself) is a good idea.
+See L<perlgpl> and L<perlartistic>.
+
+=head1 COMMON PITFALLS
+
+=head2 Reinventing the wheel
+
+There are certain application spaces which are already very, very well
+served by CPAN.  One example is templating systems, another is date and
+time modules, and there are many more.  While it is a rite of passage to
+write your own version of these things, please consider carefully
+whether the Perl world really needs you to publish it.
+
+=head2 Trying to do too much
+
+Your module will be part of a developer's toolkit.  It will not, in
+itself, form the B<entire> toolkit.  It's tempting to add extra features
+until your code is a monolithic system rather than a set of modular
+building blocks.
+
+=head2 Inappropriate documentation
+
+Don't fall into the trap of writing for the wrong audience.  Your
+primary audience is a reasonably experienced developer with at least 
+a moderate understanding of your module's application domain, who's just 
+downloaded your module and wants to start using it as quickly as possible.
+
+Tutorials, end-user documentation, research papers, FAQs etc are not 
+appropriate in a module's main documentation.  If you really want to 
+write these, include them as sub-documents such as C<My::Module::Tutorial> or
+C<My::Module::FAQ> and provide a link in the SEE ALSO section of the
+main documentation.  
+
+=head1 SEE ALSO
+
+=over 4
+
+=item L<perlstyle>
+
+General Perl style guide
+
+=item L<perlnewmod>
+
+How to create a new module
+
+=item L<perlpod>
+
+POD documentation
+
+=item L<podchecker>
+
+Verifies your POD's correctness
+
+=item Packaging Tools
+
+L<ExtUtils::MakeMaker>, L<Module::Build>
+
+=item Testing tools
+
+L<Test::Simple>, L<Test::Inline>, L<Carp::Assert>, L<Test::More>, L<Test::MockObject>
+
+=item http://pause.perl.org/
+
+Perl Authors Upload Server.  Contains links to information for module
+authors.
+
+=item Any good book on software engineering
+
+=back
+
+=head1 AUTHOR
+
+Kirrily "Skud" Robert <skud@cpan.org>
+
diff --git a/lib/5.24.1/pod/perlmroapi.pod b/lib/5.24.1/pod/perlmroapi.pod
new file mode 100644
index 00000000..4d19cdab
--- /dev/null
+++ b/lib/5.24.1/pod/perlmroapi.pod
@@ -0,0 +1,102 @@
+=head1 NAME
+
+perlmroapi - Perl method resolution plugin interface
+
+=head1 DESCRIPTION
+
+As of Perl 5.10.1 there is a new interface for plugging and using method
+resolution orders other than the default (linear depth first search).
+The C3 method resolution order added in 5.10.0 has been re-implemented as
+a plugin, without changing its Perl-space interface.
+
+Each plugin should register itself by providing
+the following structure
+
+    struct mro_alg {
+        AV *(*resolve)(pTHX_ HV *stash, U32 level);
+        const char *name;
+        U16 length;
+        U16 kflags;
+        U32 hash;
+    };
+
+and calling C<Perl_mro_register>:
+
+    Perl_mro_register(aTHX_ &my_mro_alg);
+
+=over 4
+
+=item resolve
+
+Pointer to the linearisation function, described below.
+
+=item name
+
+Name of the MRO, either in ISO-8859-1 or UTF-8.
+
+=item length
+
+Length of the name.
+
+=item kflags
+
+If the name is given in UTF-8, set this to C<HVhek_UTF8>. The value is passed
+direct as the parameter I<kflags> to C<hv_common()>.
+
+=item hash
+
+A precomputed hash value for the MRO's name, or 0.
+
+=back
+
+=head1 Callbacks
+
+The C<resolve> function is called to generate a linearised ISA for the
+given stash, using this MRO. It is called with a pointer to the stash, and
+a I<level> of 0. The core always sets I<level> to 0 when it calls your
+function - the parameter is provided to allow your implementation to track
+depth if it needs to recurse.
+
+The function should return a reference to an array containing the parent
+classes in order. The names of the classes should be the result of calling
+C<HvENAME()> on the stash. In those cases where C<HvENAME()> returns null,
+C<HvNAME()> should be used instead.
+
+The caller is responsible for incrementing the reference count of the array
+returned if it wants to keep the structure. Hence, if you have created a
+temporary value that you keep no pointer to, C<sv_2mortal()> to ensure that
+it is disposed of correctly. If you have cached your return value, then
+return a pointer to it without changing the reference count.
+
+=head1 Caching
+
+Computing MROs can be expensive. The implementation provides a cache, in
+which you can store a single C<SV *>, or anything that can be cast to
+C<SV *>, such as C<AV *>. To read your private value, use the macro
+C<MRO_GET_PRIVATE_DATA()>, passing it the C<mro_meta> structure from the
+stash, and a pointer to your C<mro_alg> structure:
+
+    meta = HvMROMETA(stash);
+    private_sv = MRO_GET_PRIVATE_DATA(meta, &my_mro_alg);
+
+To set your private value, call C<Perl_mro_set_private_data()>:
+
+    Perl_mro_set_private_data(aTHX_ meta, &c3_alg, private_sv);
+
+The private data cache will take ownership of a reference to private_sv,
+much the same way that C<hv_store()> takes ownership of a reference to the
+value that you pass it.
+
+=head1 Examples
+
+For examples of MRO implementations, see C<S_mro_get_linear_isa_c3()>
+and the C<BOOT:> section of F<ext/mro/mro.xs>, and
+C<S_mro_get_linear_isa_dfs()> in F<mro_core.c>
+
+=head1 AUTHORS
+
+The implementation of the C3 MRO and switchable MROs within the perl core was
+written by Brandon L Black. Nicholas Clark created the pluggable interface, 
+refactored Brandon's implementation to work with it, and wrote this document.
+
+=cut
diff --git a/lib/5.24.1/pod/perlnetware.pod b/lib/5.24.1/pod/perlnetware.pod
new file mode 100644
index 00000000..4e35f39c
--- /dev/null
+++ b/lib/5.24.1/pod/perlnetware.pod
@@ -0,0 +1,229 @@
+If you read this file _as_is_, just ignore the funny characters you
+see.  It is written in the POD format (see pod/perlpod.pod) which is
+specifically designed to be readable as is.
+
+=head1 NAME
+
+perlnetware - Perl for NetWare
+
+=head1 DESCRIPTION
+
+This file gives instructions for building Perl 5.7 and above, and also 
+Perl modules for NetWare. Before you start, you may want to read the
+README file found in the top level directory into which the Perl source
+code distribution was extracted. Make sure you read and understand
+the terms under which the software is being distributed.
+
+=head1 BUILD
+
+This section describes the steps to be performed to build a Perl NLM
+and other associated NLMs.
+
+=head2 Tools & SDK
+
+The build requires CodeWarrior compiler and linker.  In addition,
+the "NetWare SDK", "NLM & NetWare Libraries for C" and
+"NetWare Server Protocol Libraries for C", all available at
+L<http://developer.novell.com/wiki/index.php/Category:Novell_Developer_Kit>,
+are required. Microsoft Visual C++ version 4.2 or later is also
+required.
+
+=head2 Setup
+
+The build process is dependent on the location of the NetWare SDK.
+Once the Tools & SDK are installed, the build environment has to
+be setup.  The following batch files setup the environment.
+
+=over 4
+
+=item SetNWBld.bat
+
+The Execution of this file takes 2 parameters as input. The first
+being the NetWare SDK path, second being the path for CodeWarrior
+Compiler & tools. Execution of this file sets these paths and also
+sets the build type to Release by default.
+
+=item Buildtype.bat
+
+This is used to set the build type to debug or release. Change the
+build type only after executing SetNWBld.bat
+
+Example:
+
+=over
+
+=item 1.
+
+Typing "buildtype d on" at the command prompt causes the buildtype
+to be set to Debug type with D2 flag set. 
+
+=item 2.
+
+Typing "buildtype d off" or "buildtype d" at the command prompt causes
+the buildtype to be set to Debug type with D1 flag set. 
+
+=item 3.
+
+Typing "buildtype r" at the command prompt sets it to Release Build type.
+
+=back
+
+=back
+
+=head2 Make
+
+The make process runs only under WinNT shell.  The NetWare makefile is
+located under the NetWare folder.  This makes use of miniperl.exe to
+run some of the Perl scripts. To create miniperl.exe, first set the
+required paths for Visual c++ compiler (specify vcvars32 location) at
+the command prompt.  Then run nmake from win32 folder through WinNT
+command prompt.  The build process can be stopped after miniperl.exe
+is created. Then run nmake from NetWare folder through WinNT command
+prompt.
+
+Currently the following two build types are tested on NetWare:
+
+=over 4
+
+=item *
+
+USE_MULTI, USE_ITHREADS & USE_IMP_SYS defined
+
+=item *
+
+USE_MULTI & USE_IMP_SYS defined and USE_ITHREADS not defined
+
+=back
+
+=head2 Interpreter
+
+Once miniperl.exe creation is over, run nmake from the NetWare folder.
+This will build the Perl interpreter for NetWare as I<perl.nlm>.
+This is copied under the I<Release> folder if you are doing
+a release build, else will be copied under I<Debug> folder for debug builds.
+
+=head2 Extensions
+
+The make process also creates the Perl extensions as I<<Extension>.nlm>
+
+=head1 INSTALL
+
+To install NetWare Perl onto a NetWare server, first map the Sys
+volume of a NetWare server to I<i:>. This is because the makefile by
+default sets the drive letter to I<i:>.  Type I<nmake nwinstall> from
+NetWare folder on a WinNT command prompt.  This will copy the binaries
+and module files onto the NetWare server under I<sys:\Perl>
+folder. The Perl interpreter, I<perl.nlm>, is copied under
+I<sys:\perl\system> folder.  Copy this to I<sys:\system> folder.
+
+Example: At the command prompt Type "nmake nwinstall".
+          This will install NetWare Perl on the NetWare Server.
+          Similarly, if you type "nmake install",
+          this will cause the binaries to be installed on the local machine.
+          (Typically under the c:\perl folder)
+
+=head1 BUILD NEW EXTENSIONS
+
+To build extensions other than standard extensions, NetWare Perl has
+to be installed on Windows along with Windows Perl. The Perl for
+Windows can be either downloaded from the CPAN site and built using
+the sources, or the binaries can be directly downloaded from the
+ActiveState site.  Installation can be done by invoking I<nmake
+install> from the NetWare folder on a WinNT command prompt after
+building NetWare Perl by following steps given above.  This will copy
+all the *.pm files and other required files.  Documentation files are
+not copied.  Thus one must first install Windows Perl, Then install
+NetWare Perl.
+
+Once this is done, do the following to build any extension:
+
+=over 4
+
+=item *
+
+Change to the extension directory where its source files are present.
+
+=item *
+
+Run the following command at the command prompt:
+
+    perl -II<path to NetWare lib dir> -II<path to lib> Makefile.pl
+
+Example:
+
+    perl -Ic:/perl/5.6.1/lib/NetWare-x86-multi-thread           \
+                                -Ic:\perl\5.6.1\lib MakeFile.pl
+
+or
+
+    perl -Ic:/perl/5.8.0/lib/NetWare-x86-multi-thread           \
+                                -Ic:\perl\5.8.0\lib MakeFile.pl
+
+=item *
+
+nmake
+
+=item *
+
+nmake install
+
+Install will copy the files into the Windows machine where NetWare
+Perl is installed and these files may have to be copied to the NetWare
+server manually. Alternatively, pass I<INSTALLSITELIB=i:\perl\lib> as
+an input to makefile.pl above. Here I<i:> is the mapped drive to the
+sys: volume of the server where Perl on NetWare is installed. Now
+typing I<nmake install>, will copy the files onto the NetWare server.
+
+Example: You can execute the following on the command prompt.
+
+  perl -Ic:/perl/5.6.1/lib/NetWare-x86-multi-thread             \
+                                -Ic:\perl\5.6.1\lib MakeFile.pl
+  INSTALLSITELIB=i:\perl\lib
+
+or
+
+  perl -Ic:/perl/5.8.0/lib/NetWare-x86-multi-thread             \
+                                -Ic:\perl\5.8.0\lib MakeFile.pl
+  INSTALLSITELIB=i:\perl\lib
+
+=item * 
+
+Note: Some modules downloaded from CPAN may require NetWare related
+API in order to build on NetWare.  Other modules may however build
+smoothly with or without minor changes depending on the type of
+module.
+
+=back
+
+=head1 ACKNOWLEDGEMENTS
+
+The makefile for Win32 is used as a reference to create the makefile
+for NetWare.  Also, the make process for NetWare port uses
+miniperl.exe to run scripts during the make and installation process.
+
+=head1 AUTHORS
+
+Anantha Kesari H Y (hyanantha@novell.com)
+Aditya C (caditya@novell.com)
+
+=head1 DATE
+
+=over 4
+
+=item *
+
+Created - 18 Jan 2001
+
+=item *
+
+Modified - 25 June 2001
+
+=item *
+
+Modified - 13 July 2001
+
+=item *
+
+Modified - 28 May 2002
+
+=back
diff --git a/lib/5.24.1/pod/perlnewmod.pod b/lib/5.24.1/pod/perlnewmod.pod
new file mode 100644
index 00000000..eae2997a
--- /dev/null
+++ b/lib/5.24.1/pod/perlnewmod.pod
@@ -0,0 +1,283 @@
+=head1 NAME
+
+perlnewmod - preparing a new module for distribution
+
+=head1 DESCRIPTION
+
+This document gives you some suggestions about how to go about writing
+Perl modules, preparing them for distribution, and making them available
+via CPAN.
+
+One of the things that makes Perl really powerful is the fact that Perl
+hackers tend to want to share the solutions to problems they've faced,
+so you and I don't have to battle with the same problem again.
+
+The main way they do this is by abstracting the solution into a Perl
+module. If you don't know what one of these is, the rest of this
+document isn't going to be much use to you. You're also missing out on
+an awful lot of useful code; consider having a look at L<perlmod>,
+L<perlmodlib> and L<perlmodinstall> before coming back here.
+
+When you've found that there isn't a module available for what you're
+trying to do, and you've had to write the code yourself, consider
+packaging up the solution into a module and uploading it to CPAN so that
+others can benefit.
+
+You should also take a look at L<perlmodstyle> for best practices in
+making a module.
+
+=head2 Warning
+
+We're going to primarily concentrate on Perl-only modules here, rather
+than XS modules. XS modules serve a rather different purpose, and
+you should consider different things before distributing them - the
+popularity of the library you are gluing, the portability to other
+operating systems, and so on. However, the notes on preparing the Perl
+side of the module and packaging and distributing it will apply equally
+well to an XS module as a pure-Perl one.
+
+=head2 What should I make into a module?
+
+You should make a module out of any code that you think is going to be
+useful to others. Anything that's likely to fill a hole in the communal
+library and which someone else can slot directly into their program. Any
+part of your code which you can isolate and extract and plug into
+something else is a likely candidate.
+
+Let's take an example. Suppose you're reading in data from a local
+format into a hash-of-hashes in Perl, turning that into a tree, walking
+the tree and then piping each node to an Acme Transmogrifier Server.
+
+Now, quite a few people have the Acme Transmogrifier, and you've had to
+write something to talk the protocol from scratch - you'd almost
+certainly want to make that into a module. The level at which you pitch
+it is up to you: you might want protocol-level modules analogous to
+L<Net::SMTP|Net::SMTP> which then talk to higher level modules analogous
+to L<Mail::Send|Mail::Send>. The choice is yours, but you do want to get
+a module out for that server protocol.
+
+Nobody else on the planet is going to talk your local data format, so we
+can ignore that. But what about the thing in the middle? Building tree
+structures from Perl variables and then traversing them is a nice,
+general problem, and if nobody's already written a module that does
+that, you might want to modularise that code too.
+
+So hopefully you've now got a few ideas about what's good to modularise.
+Let's now see how it's done.
+
+=head2 Step-by-step: Preparing the ground
+
+Before we even start scraping out the code, there are a few things we'll
+want to do in advance.
+
+=over 3
+
+=item Look around
+
+Dig into a bunch of modules to see how they're written. I'd suggest
+starting with L<Text::Tabs|Text::Tabs>, since it's in the standard
+library and is nice and simple, and then looking at something a little
+more complex like L<File::Copy|File::Copy>.  For object oriented
+code, C<WWW::Mechanize> or the C<Email::*> modules provide some good
+examples.
+
+These should give you an overall feel for how modules are laid out and
+written.
+
+=item Check it's new
+
+There are a lot of modules on CPAN, and it's easy to miss one that's
+similar to what you're planning on contributing. Have a good plough
+through the L<http://search.cpan.org> and make sure you're not the one
+reinventing the wheel!
+
+=item Discuss the need
+
+You might love it. You might feel that everyone else needs it. But there
+might not actually be any real demand for it out there. If you're unsure
+about the demand your module will have, consider sending out feelers
+on the C<comp.lang.perl.modules> newsgroup, or as a last resort, ask the
+modules list at C<modules@perl.org>. Remember that this is a closed list
+with a very long turn-around time - be prepared to wait a good while for
+a response from them.
+
+=item Choose a name
+
+Perl modules included on CPAN have a naming hierarchy you should try to
+fit in with. See L<perlmodlib> for more details on how this works, and
+browse around CPAN and the modules list to get a feel of it. At the very
+least, remember this: modules should be title capitalised, (This::Thing)
+fit in with a category, and explain their purpose succinctly.
+
+=item Check again
+
+While you're doing that, make really sure you haven't missed a module
+similar to the one you're about to write.
+
+When you've got your name sorted out and you're sure that your module is
+wanted and not currently available, it's time to start coding.
+
+=back
+
+=head2 Step-by-step: Making the module
+
+=over 3
+
+=item Start with F<module-starter> or F<h2xs>
+
+The F<module-starter> utility is distributed as part of the
+L<Module::Starter|Module::Starter> CPAN package.  It creates a directory
+with stubs of all the necessary files to start a new module, according
+to recent "best practice" for module development, and is invoked from
+the command line, thus:
+
+    module-starter --module=Foo::Bar \
+       --author="Your Name" --email=yourname@cpan.org
+
+If you do not wish to install the L<Module::Starter|Module::Starter>
+package from CPAN, F<h2xs> is an older tool, originally intended for the
+development of XS modules, which comes packaged with the Perl
+distribution. 
+
+A typical invocation of L<h2xs|h2xs> for a pure Perl module is:
+
+    h2xs -AX --skip-exporter --use-new-tests -n Foo::Bar 
+
+The C<-A> omits the Autoloader code, C<-X> omits XS elements,
+C<--skip-exporter> omits the Exporter code, C<--use-new-tests> sets up a
+modern testing environment, and C<-n> specifies the name of the module.
+
+=item Use L<strict|strict> and L<warnings|warnings>
+
+A module's code has to be warning and strict-clean, since you can't
+guarantee the conditions that it'll be used under. Besides, you wouldn't
+want to distribute code that wasn't warning or strict-clean anyway,
+right?
+
+=item Use L<Carp|Carp>
+
+The L<Carp|Carp> module allows you to present your error messages from
+the caller's perspective; this gives you a way to signal a problem with
+the caller and not your module. For instance, if you say this:
+
+    warn "No hostname given";
+
+the user will see something like this:
+
+ No hostname given at
+ /usr/local/lib/perl5/site_perl/5.6.0/Net/Acme.pm line 123.
+
+which looks like your module is doing something wrong. Instead, you want
+to put the blame on the user, and say this:
+
+    No hostname given at bad_code, line 10.
+
+You do this by using L<Carp|Carp> and replacing your C<warn>s with
+C<carp>s. If you need to C<die>, say C<croak> instead. However, keep
+C<warn> and C<die> in place for your sanity checks - where it really is
+your module at fault.
+
+=item Use L<Exporter|Exporter> - wisely!
+
+L<Exporter|Exporter> gives you a standard way of exporting symbols and
+subroutines from your module into the caller's namespace. For instance,
+saying C<use Net::Acme qw(&frob)> would import the C<frob> subroutine.
+
+The package variable C<@EXPORT> will determine which symbols will get
+exported when the caller simply says C<use Net::Acme> - you will hardly
+ever want to put anything in there. C<@EXPORT_OK>, on the other hand,
+specifies which symbols you're willing to export. If you do want to
+export a bunch of symbols, use the C<%EXPORT_TAGS> and define a standard
+export set - look at L<Exporter> for more details.
+
+=item Use L<plain old documentation|perlpod>
+
+The work isn't over until the paperwork is done, and you're going to
+need to put in some time writing some documentation for your module.
+C<module-starter> or C<h2xs> will provide a stub for you to fill in; if
+you're not sure about the format, look at L<perlpod> for an
+introduction. Provide a good synopsis of how your module is used in
+code, a description, and then notes on the syntax and function of the
+individual subroutines or methods. Use Perl comments for developer notes
+and POD for end-user notes.
+
+=item Write tests
+
+You're encouraged to create self-tests for your module to ensure it's
+working as intended on the myriad platforms Perl supports; if you upload
+your module to CPAN, a host of testers will build your module and send
+you the results of the tests. Again, C<module-starter> and C<h2xs>
+provide a test framework which you can extend - you should do something
+more than just checking your module will compile.
+L<Test::Simple|Test::Simple> and L<Test::More|Test::More> are good
+places to start when writing a test suite.
+
+=item Write the README
+
+If you're uploading to CPAN, the automated gremlins will extract the
+README file and place that in your CPAN directory. It'll also appear in
+the main F<by-module> and F<by-category> directories if you make it onto
+the modules list. It's a good idea to put here what the module actually
+does in detail, and the user-visible changes since the last release.
+
+=back
+
+=head2 Step-by-step: Distributing your module
+
+=over 3
+
+=item Get a CPAN user ID
+
+Every developer publishing modules on CPAN needs a CPAN ID.  Visit
+C<http://pause.perl.org/>, select "Request PAUSE Account", and wait for
+your request to be approved by the PAUSE administrators.
+
+=item C<perl Makefile.PL; make test; make dist>
+
+Once again, C<module-starter> or C<h2xs> has done all the work for you.
+They produce the standard C<Makefile.PL> you see when you download and
+install modules, and this produces a Makefile with a C<dist> target.
+
+Once you've ensured that your module passes its own tests - always a
+good thing to make sure - you can C<make dist>, and the Makefile will
+hopefully produce you a nice tarball of your module, ready for upload.
+
+=item Upload the tarball
+
+The email you got when you received your CPAN ID will tell you how to
+log in to PAUSE, the Perl Authors Upload SErver. From the menus there,
+you can upload your module to CPAN.
+
+=item Announce to the modules list
+
+Once uploaded, it'll sit unnoticed in your author directory. If you want
+it connected to the rest of the CPAN, you'll need to go to "Register
+Namespace" on PAUSE.  Once registered, your module will appear in the
+by-module and by-category listings on CPAN.
+
+=item Announce to clpa
+
+If you have a burning desire to tell the world about your release, post
+an announcement to the moderated C<comp.lang.perl.announce> newsgroup.
+
+=item Fix bugs!
+
+Once you start accumulating users, they'll send you bug reports. If
+you're lucky, they'll even send you patches. Welcome to the joys of
+maintaining a software project...
+
+=back
+
+=head1 AUTHOR
+
+Simon Cozens, C<simon@cpan.org>
+
+Updated by Kirrily "Skud" Robert, C<skud@cpan.org>
+
+=head1 SEE ALSO
+
+L<perlmod>, L<perlmodlib>, L<perlmodinstall>, L<h2xs>, L<strict>,
+L<Carp>, L<Exporter>, L<perlpod>, L<Test::Simple>, L<Test::More>
+L<ExtUtils::MakeMaker>, L<Module::Build>, L<Module::Starter>
+http://www.cpan.org/ , Ken Williams's tutorial on building your own
+module at http://mathforum.org/~ken/perl_modules.html
diff --git a/lib/5.24.1/pod/perlnumber.pod b/lib/5.24.1/pod/perlnumber.pod
new file mode 100644
index 00000000..ffe3ed5b
--- /dev/null
+++ b/lib/5.24.1/pod/perlnumber.pod
@@ -0,0 +1,209 @@
+=head1 NAME
+
+perlnumber - semantics of numbers and numeric operations in Perl
+
+=head1 SYNOPSIS
+
+    $n = 1234;		    # decimal integer
+    $n = 0b1110011;	    # binary integer
+    $n = 01234;		    # octal integer
+    $n = 0x1234;	    # hexadecimal integer
+    $n = 12.34e-56;	    # exponential notation
+    $n = "-12.34e56";	    # number specified as a string
+    $n = "1234";	    # number specified as a string
+
+=head1 DESCRIPTION
+
+This document describes how Perl internally handles numeric values.
+
+Perl's operator overloading facility is completely ignored here.  Operator
+overloading allows user-defined behaviors for numbers, such as operations
+over arbitrarily large integers, floating points numbers with arbitrary
+precision, operations over "exotic" numbers such as modular arithmetic or
+p-adic arithmetic, and so on.  See L<overload> for details.
+
+=head1 Storing numbers
+
+Perl can internally represent numbers in 3 different ways: as native
+integers, as native floating point numbers, and as decimal strings.
+Decimal strings may have an exponential notation part, as in C<"12.34e-56">.
+I<Native> here means "a format supported by the C compiler which was used
+to build perl".
+
+The term "native" does not mean quite as much when we talk about native
+integers, as it does when native floating point numbers are involved.
+The only implication of the term "native" on integers is that the limits for
+the maximal and the minimal supported true integral quantities are close to
+powers of 2.  However, "native" floats have a most fundamental
+restriction: they may represent only those numbers which have a relatively
+"short" representation when converted to a binary fraction.  For example,
+0.9 cannot be represented by a native float, since the binary fraction
+for 0.9 is infinite:
+
+  binary0.1110011001100...
+
+with the sequence C<1100> repeating again and again.  In addition to this
+limitation,  the exponent of the binary number is also restricted when it
+is represented as a floating point number.  On typical hardware, floating
+point values can store numbers with up to 53 binary digits, and with binary
+exponents between -1024 and 1024.  In decimal representation this is close
+to 16 decimal digits and decimal exponents in the range of -304..304.
+The upshot of all this is that Perl cannot store a number like
+12345678901234567 as a floating point number on such architectures without
+loss of information.
+
+Similarly, decimal strings can represent only those numbers which have a
+finite decimal expansion.  Being strings, and thus of arbitrary length, there
+is no practical limit for the exponent or number of decimal digits for these
+numbers.  (But realize that what we are discussing the rules for just the
+I<storage> of these numbers.  The fact that you can store such "large" numbers
+does not mean that the I<operations> over these numbers will use all
+of the significant digits.
+See L<"Numeric operators and numeric conversions"> for details.)
+
+In fact numbers stored in the native integer format may be stored either
+in the signed native form, or in the unsigned native form.  Thus the limits
+for Perl numbers stored as native integers would typically be -2**31..2**32-1,
+with appropriate modifications in the case of 64-bit integers.  Again, this
+does not mean that Perl can do operations only over integers in this range:
+it is possible to store many more integers in floating point format.
+
+Summing up, Perl numeric values can store only those numbers which have
+a finite decimal expansion or a "short" binary expansion.
+
+=head1 Numeric operators and numeric conversions
+
+As mentioned earlier, Perl can store a number in any one of three formats,
+but most operators typically understand only one of those formats.  When
+a numeric value is passed as an argument to such an operator, it will be
+converted to the format understood by the operator.
+
+Six such conversions are possible:
+
+  native integer        --> native floating point	(*)
+  native integer        --> decimal string
+  native floating_point --> native integer		(*)
+  native floating_point --> decimal string		(*)
+  decimal string        --> native integer
+  decimal string        --> native floating point	(*)
+
+These conversions are governed by the following general rules:
+
+=over 4
+
+=item *
+
+If the source number can be represented in the target form, that
+representation is used.
+
+=item *
+
+If the source number is outside of the limits representable in the target form,
+a representation of the closest limit is used.  (I<Loss of information>)
+
+=item *
+
+If the source number is between two numbers representable in the target form,
+a representation of one of these numbers is used.  (I<Loss of information>)
+
+=item *
+
+In C<< native floating point --> native integer >> conversions the magnitude
+of the result is less than or equal to the magnitude of the source.
+(I<"Rounding to zero".>)
+
+=item *
+
+If the C<< decimal string --> native integer >> conversion cannot be done
+without loss of information, the result is compatible with the conversion
+sequence C<< decimal_string --> native_floating_point --> native_integer >>.
+In particular, rounding is strongly biased to 0, though a number like
+C<"0.99999999999999999999"> has a chance of being rounded to 1.
+
+=back
+
+B<RESTRICTION>: The conversions marked with C<(*)> above involve steps
+performed by the C compiler.  In particular, bugs/features of the compiler
+used may lead to breakage of some of the above rules.
+
+=head1 Flavors of Perl numeric operations
+
+Perl operations which take a numeric argument treat that argument in one
+of four different ways: they may force it to one of the integer/floating/
+string formats, or they may behave differently depending on the format of
+the operand.  Forcing a numeric value to a particular format does not
+change the number stored in the value.
+
+All the operators which need an argument in the integer format treat the
+argument as in modular arithmetic, e.g., C<mod 2**32> on a 32-bit
+architecture.  C<sprintf "%u", -1> therefore provides the same result as
+C<sprintf "%u", ~0>.
+
+=over 4
+
+=item Arithmetic operators
+
+The binary operators C<+> C<-> C<*> C</> C<%> C<==> C<!=> C<E<gt>> C<E<lt>>
+C<E<gt>=> C<E<lt>=> and the unary operators C<-> C<abs> and C<--> will
+attempt to convert arguments to integers.  If both conversions are possible
+without loss of precision, and the operation can be performed without
+loss of precision then the integer result is used.  Otherwise arguments are
+converted to floating point format and the floating point result is used.
+The caching of conversions (as described above) means that the integer
+conversion does not throw away fractional parts on floating point numbers.
+
+=item ++
+
+C<++> behaves as the other operators above, except that if it is a string
+matching the format C</^[a-zA-Z]*[0-9]*\z/> the string increment described
+in L<perlop> is used.
+
+=item Arithmetic operators during C<use integer>
+
+In scopes where C<use integer;> is in force, nearly all the operators listed
+above will force their argument(s) into integer format, and return an integer
+result.  The exceptions, C<abs>, C<++> and C<-->, do not change their
+behavior with C<use integer;>
+
+=item Other mathematical operators
+
+Operators such as C<**>, C<sin> and C<exp> force arguments to floating point
+format.
+
+=item Bitwise operators
+
+Arguments are forced into the integer format if not strings.
+
+=item Bitwise operators during C<use integer>
+
+forces arguments to integer format. Also shift operations internally use
+signed integers rather than the default unsigned.
+
+=item Operators which expect an integer
+
+force the argument into the integer format.  This is applicable
+to the third and fourth arguments of C<sysread>, for example.
+
+=item Operators which expect a string
+
+force the argument into the string format.  For example, this is
+applicable to C<printf "%s", $value>.
+
+=back
+
+Though forcing an argument into a particular form does not change the
+stored number, Perl remembers the result of such conversions.  In
+particular, though the first such conversion may be time-consuming,
+repeated operations will not need to redo the conversion.
+
+=head1 AUTHOR
+
+Ilya Zakharevich C<ilya@math.ohio-state.edu>
+
+Editorial adjustments by Gurusamy Sarathy <gsar@ActiveState.com>
+
+Updates for 5.8.0 by Nicholas Clark <nick@ccl4.org>
+
+=head1 SEE ALSO
+
+L<overload>, L<perlop>
diff --git a/lib/5.24.1/pod/perlobj.pod b/lib/5.24.1/pod/perlobj.pod
new file mode 100644
index 00000000..6513d8a8
--- /dev/null
+++ b/lib/5.24.1/pod/perlobj.pod
@@ -0,0 +1,1047 @@
+=encoding utf8
+
+=for comment
+Consistent formatting of this file is achieved with:
+  perl ./Porting/podtidy pod/perlobj.pod
+
+=head1 NAME
+X<object> X<OOP>
+
+perlobj - Perl object reference
+
+=head1 DESCRIPTION
+
+This document provides a reference for Perl's object orientation
+features. If you're looking for an introduction to object-oriented
+programming in Perl, please see L<perlootut>.
+
+In order to understand Perl objects, you first need to understand
+references in Perl. See L<perlref> for details.
+
+This document describes all of Perl's object-oriented (OO) features
+from the ground up. If you're just looking to write some
+object-oriented code of your own, you are probably better served by
+using one of the object systems from CPAN described in L<perlootut>.
+
+If you're looking to write your own object system, or you need to
+maintain code which implements objects from scratch then this document
+will help you understand exactly how Perl does object orientation.
+
+There are a few basic principles which define object oriented Perl:
+
+=over 4
+
+=item 1.
+
+An object is simply a data structure that knows to which class it
+belongs.
+
+=item 2.
+
+A class is simply a package. A class provides methods that expect to
+operate on objects.
+
+=item 3.
+
+A method is simply a subroutine that expects a reference to an object
+(or a package name, for class methods) as the first argument.
+
+=back
+
+Let's look at each of these principles in depth.
+
+=head2 An Object is Simply a Data Structure
+X<object> X<bless> X<constructor> X<new>
+
+Unlike many other languages which support object orientation, Perl does
+not provide any special syntax for constructing an object. Objects are
+merely Perl data structures (hashes, arrays, scalars, filehandles,
+etc.) that have been explicitly associated with a particular class.
+
+That explicit association is created by the built-in C<bless> function,
+which is typically used within the I<constructor> subroutine of the
+class.
+
+Here is a simple constructor:
+
+  package File;
+
+  sub new {
+      my $class = shift;
+
+      return bless {}, $class;
+  }
+
+The name C<new> isn't special. We could name our constructor something
+else:
+
+  package File;
+
+  sub load {
+      my $class = shift;
+
+      return bless {}, $class;
+  }
+
+The modern convention for OO modules is to always use C<new> as the
+name for the constructor, but there is no requirement to do so. Any
+subroutine that blesses a data structure into a class is a valid
+constructor in Perl.
+
+In the previous examples, the C<{}> code creates a reference to an
+empty anonymous hash. The C<bless> function then takes that reference
+and associates the hash with the class in C<$class>. In the simplest
+case, the C<$class> variable will end up containing the string "File".
+
+We can also use a variable to store a reference to the data structure
+that is being blessed as our object:
+
+  sub new {
+      my $class = shift;
+
+      my $self = {};
+      bless $self, $class;
+
+      return $self;
+  }
+
+Once we've blessed the hash referred to by C<$self> we can start
+calling methods on it. This is useful if you want to put object
+initialization in its own separate method:
+
+  sub new {
+      my $class = shift;
+
+      my $self = {};
+      bless $self, $class;
+
+      $self->_initialize();
+
+      return $self;
+  }
+
+Since the object is also a hash, you can treat it as one, using it to
+store data associated with the object. Typically, code inside the class
+can treat the hash as an accessible data structure, while code outside
+the class should always treat the object as opaque. This is called
+B<encapsulation>. Encapsulation means that the user of an object does
+not have to know how it is implemented. The user simply calls
+documented methods on the object.
+
+Note, however, that (unlike most other OO languages) Perl does not
+ensure or enforce encapsulation in any way. If you want objects to
+actually I<be> opaque you need to arrange for that yourself. This can
+be done in a variety of ways, including using L<"Inside-Out objects">
+or modules from CPAN.
+
+=head3 Objects Are Blessed; Variables Are Not
+
+When we bless something, we are not blessing the variable which
+contains a reference to that thing, nor are we blessing the reference
+that the variable stores; we are blessing the thing that the variable
+refers to (sometimes known as the I<referent>). This is best
+demonstrated with this code:
+
+  use Scalar::Util 'blessed';
+
+  my $foo = {};
+  my $bar = $foo;
+
+  bless $foo, 'Class';
+  print blessed( $bar ) // 'not blessed';    # prints "Class"
+
+  $bar = "some other value";
+  print blessed( $bar ) // 'not blessed';    # prints "not blessed"
+
+When we call C<bless> on a variable, we are actually blessing the
+underlying data structure that the variable refers to. We are not
+blessing the reference itself, nor the variable that contains that
+reference. That's why the second call to C<blessed( $bar )> returns
+false. At that point C<$bar> is no longer storing a reference to an
+object.
+
+You will sometimes see older books or documentation mention "blessing a
+reference" or describe an object as a "blessed reference", but this is
+incorrect. It isn't the reference that is blessed as an object; it's
+the thing the reference refers to (i.e. the referent).
+
+=head2 A Class is Simply a Package
+X<class> X<package> X<@ISA> X<inheritance>
+
+Perl does not provide any special syntax for class definitions. A
+package is simply a namespace containing variables and subroutines. The
+only difference is that in a class, the subroutines may expect a
+reference to an object or the name of a class as the first argument.
+This is purely a matter of convention, so a class may contain both
+methods and subroutines which I<don't> operate on an object or class.
+
+Each package contains a special array called C<@ISA>. The C<@ISA> array
+contains a list of that class's parent classes, if any. This array is
+examined when Perl does method resolution, which we will cover later.
+
+It is possible to manually set C<@ISA>, and you may see this in older
+Perl code. Much older code also uses the L<base> pragma. For new code,
+we recommend that you use the L<parent> pragma to declare your parents.
+This pragma will take care of setting C<@ISA>. It will also load the
+parent classes and make sure that the package doesn't inherit from
+itself.
+
+However the parent classes are set, the package's C<@ISA> variable will
+contain a list of those parents. This is simply a list of scalars, each
+of which is a string that corresponds to a package name.
+
+All classes inherit from the L<UNIVERSAL> class implicitly. The
+L<UNIVERSAL> class is implemented by the Perl core, and provides
+several default methods, such as C<isa()>, C<can()>, and C<VERSION()>.
+The C<UNIVERSAL> class will I<never> appear in a package's C<@ISA>
+variable.
+
+Perl I<only> provides method inheritance as a built-in feature.
+Attribute inheritance is left up the class to implement. See the
+L</Writing Accessors> section for details.
+
+=head2 A Method is Simply a Subroutine
+X<method>
+
+Perl does not provide any special syntax for defining a method. A
+method is simply a regular subroutine, and is declared with C<sub>.
+What makes a method special is that it expects to receive either an
+object or a class name as its first argument.
+
+Perl I<does> provide special syntax for method invocation, the C<< ->
+>> operator. We will cover this in more detail later.
+
+Most methods you write will expect to operate on objects:
+
+  sub save {
+      my $self = shift;
+
+      open my $fh, '>', $self->path() or die $!;
+      print {$fh} $self->data()       or die $!;
+      close $fh                       or die $!;
+  }
+
+=head2 Method Invocation
+X<invocation> X<method> X<arrow> X<< -> >>
+
+Calling a method on an object is written as C<< $object->method >>.
+
+The left hand side of the method invocation (or arrow) operator is the
+object (or class name), and the right hand side is the method name.
+
+  my $pod = File->new( 'perlobj.pod', $data );
+  $pod->save();
+
+The C<< -> >> syntax is also used when dereferencing a reference. It
+looks like the same operator, but these are two different operations.
+
+When you call a method, the thing on the left side of the arrow is
+passed as the first argument to the method. That means when we call C<<
+Critter->new() >>, the C<new()> method receives the string C<"Critter">
+as its first argument. When we call C<< $fred->speak() >>, the C<$fred>
+variable is passed as the first argument to C<speak()>.
+
+Just as with any Perl subroutine, all of the arguments passed in C<@_>
+are aliases to the original argument. This includes the object itself.
+If you assign directly to C<$_[0]> you will change the contents of the
+variable that holds the reference to the object. We recommend that you
+don't do this unless you know exactly what you're doing.
+
+Perl knows what package the method is in by looking at the left side of
+the arrow. If the left hand side is a package name, it looks for the
+method in that package. If the left hand side is an object, then Perl
+looks for the method in the package that the object has been blessed
+into.
+
+If the left hand side is neither a package name nor an object, then the
+method call will cause an error, but see the section on L</Method Call
+Variations> for more nuances.
+
+=head2 Inheritance
+X<inheritance>
+
+We already talked about the special C<@ISA> array and the L<parent>
+pragma.
+
+When a class inherits from another class, any methods defined in the
+parent class are available to the child class. If you attempt to call a
+method on an object that isn't defined in its own class, Perl will also
+look for that method in any parent classes it may have.
+
+  package File::MP3;
+  use parent 'File';    # sets @File::MP3::ISA = ('File');
+
+  my $mp3 = File::MP3->new( 'Andvari.mp3', $data );
+  $mp3->save();
+
+Since we didn't define a C<save()> method in the C<File::MP3> class,
+Perl will look at the C<File::MP3> class's parent classes to find the
+C<save()> method. If Perl cannot find a C<save()> method anywhere in
+the inheritance hierarchy, it will die.
+
+In this case, it finds a C<save()> method in the C<File> class. Note
+that the object passed to C<save()> in this case is still a
+C<File::MP3> object, even though the method is found in the C<File>
+class.
+
+We can override a parent's method in a child class. When we do so, we
+can still call the parent class's method with the C<SUPER>
+pseudo-class.
+
+  sub save {
+      my $self = shift;
+
+      say 'Prepare to rock';
+      $self->SUPER::save();
+  }
+
+The C<SUPER> modifier can I<only> be used for method calls. You can't
+use it for regular subroutine calls or class methods:
+
+  SUPER::save($thing);     # FAIL: looks for save() sub in package SUPER
+
+  SUPER->save($thing);     # FAIL: looks for save() method in class
+                           #       SUPER
+
+  $thing->SUPER::save();   # Okay: looks for save() method in parent
+                           #       classes
+
+
+=head3 How SUPER is Resolved
+X<SUPER>
+
+The C<SUPER> pseudo-class is resolved from the package where the call
+is made. It is I<not> resolved based on the object's class. This is
+important, because it lets methods at different levels within a deep
+inheritance hierarchy each correctly call their respective parent
+methods.
+
+  package A;
+
+  sub new {
+      return bless {}, shift;
+  }
+
+  sub speak {
+      my $self = shift;
+
+      say 'A';
+  }
+
+  package B;
+
+  use parent -norequire, 'A';
+
+  sub speak {
+      my $self = shift;
+
+      $self->SUPER::speak();
+
+      say 'B';
+  }
+
+  package C;
+
+  use parent -norequire, 'B';
+
+  sub speak {
+      my $self = shift;
+
+      $self->SUPER::speak();
+
+      say 'C';
+  }
+
+  my $c = C->new();
+  $c->speak();
+
+In this example, we will get the following output:
+
+  A
+  B
+  C
+
+This demonstrates how C<SUPER> is resolved. Even though the object is
+blessed into the C<C> class, the C<speak()> method in the C<B> class
+can still call C<SUPER::speak()> and expect it to correctly look in the
+parent class of C<B> (i.e the class the method call is in), not in the
+parent class of C<C> (i.e. the class the object belongs to).
+
+There are rare cases where this package-based resolution can be a
+problem. If you copy a subroutine from one package to another, C<SUPER>
+resolution will be done based on the original package.
+
+=head3 Multiple Inheritance
+X<multiple inheritance>
+
+Multiple inheritance often indicates a design problem, but Perl always
+gives you enough rope to hang yourself with if you ask for it.
+
+To declare multiple parents, you simply need to pass multiple class
+names to C<use parent>:
+
+  package MultiChild;
+
+  use parent 'Parent1', 'Parent2';
+
+=head3 Method Resolution Order
+X<method resolution order> X<mro>
+
+Method resolution order only matters in the case of multiple
+inheritance. In the case of single inheritance, Perl simply looks up
+the inheritance chain to find a method:
+
+  Grandparent
+    |
+  Parent
+    |
+  Child
+
+If we call a method on a C<Child> object and that method is not defined
+in the C<Child> class, Perl will look for that method in the C<Parent>
+class and then, if necessary, in the C<Grandparent> class.
+
+If Perl cannot find the method in any of these classes, it will die
+with an error message.
+
+When a class has multiple parents, the method lookup order becomes more
+complicated.
+
+By default, Perl does a depth-first left-to-right search for a method.
+That means it starts with the first parent in the C<@ISA> array, and
+then searches all of its parents, grandparents, etc. If it fails to
+find the method, it then goes to the next parent in the original
+class's C<@ISA> array and searches from there.
+
+            SharedGreatGrandParent
+            /                    \
+  PaternalGrandparent       MaternalGrandparent
+            \                    /
+             Father        Mother
+                   \      /
+                    Child
+
+So given the diagram above, Perl will search C<Child>, C<Father>,
+C<PaternalGrandparent>, C<SharedGreatGrandParent>, C<Mother>, and
+finally C<MaternalGrandparent>. This may be a problem because now we're
+looking in C<SharedGreatGrandParent> I<before> we've checked all its
+derived classes (i.e. before we tried C<Mother> and
+C<MaternalGrandparent>).
+
+It is possible to ask for a different method resolution order with the
+L<mro> pragma.
+
+  package Child;
+
+  use mro 'c3';
+  use parent 'Father', 'Mother';
+
+This pragma lets you switch to the "C3" resolution order. In simple
+terms, "C3" order ensures that shared parent classes are never searched
+before child classes, so Perl will now search: C<Child>, C<Father>,
+C<PaternalGrandparent>, C<Mother> C<MaternalGrandparent>, and finally
+C<SharedGreatGrandParent>. Note however that this is not
+"breadth-first" searching: All the C<Father> ancestors (except the
+common ancestor) are searched before any of the C<Mother> ancestors are
+considered.
+
+The C3 order also lets you call methods in sibling classes with the
+C<next> pseudo-class. See the L<mro> documentation for more details on
+this feature.
+
+=head3 Method Resolution Caching
+
+When Perl searches for a method, it caches the lookup so that future
+calls to the method do not need to search for it again. Changing a
+class's parent class or adding subroutines to a class will invalidate
+the cache for that class.
+
+The L<mro> pragma provides some functions for manipulating the method
+cache directly.
+
+=head2 Writing Constructors
+X<constructor>
+
+As we mentioned earlier, Perl provides no special constructor syntax.
+This means that a class must implement its own constructor. A
+constructor is simply a class method that returns a reference to a new
+object.
+
+The constructor can also accept additional parameters that define the
+object. Let's write a real constructor for the C<File> class we used
+earlier:
+
+  package File;
+
+  sub new {
+      my $class = shift;
+      my ( $path, $data ) = @_;
+
+      my $self = bless {
+          path => $path,
+          data => $data,
+      }, $class;
+
+      return $self;
+  }
+
+As you can see, we've stored the path and file data in the object
+itself. Remember, under the hood, this object is still just a hash.
+Later, we'll write accessors to manipulate this data.
+
+For our File::MP3 class, we can check to make sure that the path we're
+given ends with ".mp3":
+
+  package File::MP3;
+
+  sub new {
+      my $class = shift;
+      my ( $path, $data ) = @_;
+
+      die "You cannot create a File::MP3 without an mp3 extension\n"
+          unless $path =~ /\.mp3\z/;
+
+      return $class->SUPER::new(@_);
+  }
+
+This constructor lets its parent class do the actual object
+construction.
+
+=head2 Attributes
+X<attribute>
+
+An attribute is a piece of data belonging to a particular object.
+Unlike most object-oriented languages, Perl provides no special syntax
+or support for declaring and manipulating attributes.
+
+Attributes are often stored in the object itself. For example, if the
+object is an anonymous hash, we can store the attribute values in the
+hash using the attribute name as the key.
+
+While it's possible to refer directly to these hash keys outside of the
+class, it's considered a best practice to wrap all access to the
+attribute with accessor methods.
+
+This has several advantages. Accessors make it easier to change the
+implementation of an object later while still preserving the original
+API.
+
+An accessor lets you add additional code around attribute access. For
+example, you could apply a default to an attribute that wasn't set in
+the constructor, or you could validate that a new value for the
+attribute is acceptable.
+
+Finally, using accessors makes inheritance much simpler. Subclasses can
+use the accessors rather than having to know how a parent class is
+implemented internally.
+
+=head3 Writing Accessors
+X<accessor>
+
+As with constructors, Perl provides no special accessor declaration
+syntax, so classes must provide explicitly written accessor methods.
+There are two common types of accessors, read-only and read-write.
+
+A simple read-only accessor simply gets the value of a single
+attribute:
+
+  sub path {
+      my $self = shift;
+
+      return $self->{path};
+  }
+
+A read-write accessor will allow the caller to set the value as well as
+get it:
+
+  sub path {
+      my $self = shift;
+
+      if (@_) {
+          $self->{path} = shift;
+      }
+
+      return $self->{path};
+  }
+
+=head2 An Aside About Smarter and Safer Code
+
+Our constructor and accessors are not very smart. They don't check that
+a C<$path> is defined, nor do they check that a C<$path> is a valid
+filesystem path.
+
+Doing these checks by hand can quickly become tedious. Writing a bunch
+of accessors by hand is also incredibly tedious. There are a lot of
+modules on CPAN that can help you write safer and more concise code,
+including the modules we recommend in L<perlootut>.
+
+=head2 Method Call Variations
+X<method>
+
+Perl supports several other ways to call methods besides the C<<
+$object->method() >> usage we've seen so far.
+
+=head3 Method Names as Strings
+
+Perl lets you use a scalar variable containing a string as a method
+name:
+
+  my $file = File->new( $path, $data );
+
+  my $method = 'save';
+  $file->$method();
+
+This works exactly like calling C<< $file->save() >>. This can be very
+useful for writing dynamic code. For example, it allows you to pass a
+method name to be called as a parameter to another method.
+
+=head3 Class Names as Strings
+
+Perl also lets you use a scalar containing a string as a class name:
+
+  my $class = 'File';
+
+  my $file = $class->new( $path, $data );
+
+Again, this allows for very dynamic code.
+
+=head3 Subroutine References as Methods
+
+You can also use a subroutine reference as a method:
+
+  my $sub = sub {
+      my $self = shift;
+
+      $self->save();
+  };
+
+  $file->$sub();
+
+This is exactly equivalent to writing C<< $sub->($file) >>. You may see
+this idiom in the wild combined with a call to C<can>:
+
+  if ( my $meth = $object->can('foo') ) {
+      $object->$meth();
+  }
+
+=head3 Deferencing Method Call
+
+Perl also lets you use a dereferenced scalar reference in a method
+call. That's a mouthful, so let's look at some code:
+
+  $file->${ \'save' };
+  $file->${ returns_scalar_ref() };
+  $file->${ \( returns_scalar() ) };
+  $file->${ returns_ref_to_sub_ref() };
+
+This works if the dereference produces a string I<or> a subroutine
+reference.
+
+=head3 Method Calls on Filehandles
+
+Under the hood, Perl filehandles are instances of the C<IO::Handle> or
+C<IO::File> class. Once you have an open filehandle, you can call
+methods on it. Additionally, you can call methods on the C<STDIN>,
+C<STDOUT>, and C<STDERR> filehandles.
+
+  open my $fh, '>', 'path/to/file';
+  $fh->autoflush();
+  $fh->print('content');
+
+  STDOUT->autoflush();
+
+=head2 Invoking Class Methods
+X<invocation>
+
+Because Perl allows you to use barewords for package names and
+subroutine names, it sometimes interprets a bareword's meaning
+incorrectly. For example, the construct C<< Class->new() >> can be
+interpreted as either C<< 'Class'->new() >> or C<< Class()->new() >>.
+In English, that second interpretation reads as "call a subroutine
+named Class(), then call new() as a method on the return value of
+Class()". If there is a subroutine named C<Class()> in the current
+namespace, Perl will always interpret C<< Class->new() >> as the second
+alternative: a call to C<new()> on the object  returned by a call to
+C<Class()>
+
+You can force Perl to use the first interpretation (i.e. as a method
+call on the class named "Class") in two ways. First, you can append a
+C<::> to the class name:
+
+    Class::->new()
+
+Perl will always interpret this as a method call.
+
+Alternatively, you can quote the class name:
+
+    'Class'->new()
+
+Of course, if the class name is in a scalar Perl will do the right
+thing as well:
+
+    my $class = 'Class';
+    $class->new();
+
+=head3 Indirect Object Syntax
+X<indirect object>
+
+B<Outside of the file handle case, use of this syntax is discouraged as
+it can confuse the Perl interpreter. See below for more details.>
+
+Perl supports another method invocation syntax called "indirect object"
+notation. This syntax is called "indirect" because the method comes
+before the object it is being invoked on.
+
+This syntax can be used with any class or object method:
+
+    my $file = new File $path, $data;
+    save $file;
+
+We recommend that you avoid this syntax, for several reasons.
+
+First, it can be confusing to read. In the above example, it's not
+clear if C<save> is a method provided by the C<File> class or simply a
+subroutine that expects a file object as its first argument.
+
+When used with class methods, the problem is even worse. Because Perl
+allows subroutine names to be written as barewords, Perl has to guess
+whether the bareword after the method is a class name or subroutine
+name. In other words, Perl can resolve the syntax as either C<<
+File->new( $path, $data ) >> B<or> C<< new( File( $path, $data ) ) >>.
+
+To parse this code, Perl uses a heuristic based on what package names
+it has seen, what subroutines exist in the current package, what
+barewords it has previously seen, and other input. Needless to say,
+heuristics can produce very surprising results!
+
+Older documentation (and some CPAN modules) encouraged this syntax,
+particularly for constructors, so you may still find it in the wild.
+However, we encourage you to avoid using it in new code.
+
+You can force Perl to interpret the bareword as a class name by
+appending "::" to it, like we saw earlier:
+
+  my $file = new File:: $path, $data;
+
+=head2 C<bless>, C<blessed>, and C<ref>
+
+As we saw earlier, an object is simply a data structure that has been
+blessed into a class via the C<bless> function. The C<bless> function
+can take either one or two arguments:
+
+  my $object = bless {}, $class;
+  my $object = bless {};
+
+In the first form, the anonymous hash is being blessed into the class
+in C<$class>. In the second form, the anonymous hash is blessed into
+the current package.
+
+The second form is strongly discouraged, because it breaks the ability
+of a subclass to reuse the parent's constructor, but you may still run
+across it in existing code.
+
+If you want to know whether a particular scalar refers to an object,
+you can use the C<blessed> function exported by L<Scalar::Util>, which
+is shipped with the Perl core.
+
+  use Scalar::Util 'blessed';
+
+  if ( defined blessed($thing) ) { ... }
+
+If C<$thing> refers to an object, then this function returns the name
+of the package the object has been blessed into. If C<$thing> doesn't
+contain a reference to a blessed object, the C<blessed> function
+returns C<undef>.
+
+Note that C<blessed($thing)> will also return false if C<$thing> has
+been blessed into a class named "0". This is a possible, but quite
+pathological. Don't create a class named "0" unless you know what
+you're doing.
+
+Similarly, Perl's built-in C<ref> function treats a reference to a
+blessed object specially. If you call C<ref($thing)> and C<$thing>
+holds a reference to an object, it will return the name of the class
+that the object has been blessed into.
+
+If you simply want to check that a variable contains an object
+reference, we recommend that you use C<defined blessed($object)>, since
+C<ref> returns true values for all references, not just objects.
+
+=head2 The UNIVERSAL Class
+X<UNIVERSAL>
+
+All classes automatically inherit from the L<UNIVERSAL> class, which is
+built-in to the Perl core. This class provides a number of methods, all
+of which can be called on either a class or an object. You can also
+choose to override some of these methods in your class. If you do so,
+we recommend that you follow the built-in semantics described below.
+
+=over 4
+
+=item isa($class)
+X<isa>
+
+The C<isa> method returns I<true> if the object is a member of the
+class in C<$class>, or a member of a subclass of C<$class>.
+
+If you override this method, it should never throw an exception.
+
+=item DOES($role)
+X<DOES>
+
+The C<DOES> method returns I<true> if its object claims to perform the
+role C<$role>. By default, this is equivalent to C<isa>. This method is
+provided for use by object system extensions that implement roles, like
+C<Moose> and C<Role::Tiny>.
+
+You can also override C<DOES> directly in your own classes. If you
+override this method, it should never throw an exception.
+
+=item can($method)
+X<can>
+
+The C<can> method checks to see if the class or object it was called on
+has a method named C<$method>. This checks for the method in the class
+and all of its parents. If the method exists, then a reference to the
+subroutine is returned. If it does not then C<undef> is returned.
+
+If your class responds to method calls via C<AUTOLOAD>, you may want to
+overload C<can> to return a subroutine reference for methods which your
+C<AUTOLOAD> method handles.
+
+If you override this method, it should never throw an exception.
+
+=item VERSION($need)
+X<VERSION>
+
+The C<VERSION> method returns the version number of the class
+(package).
+
+If the C<$need> argument is given then it will check that the current
+version (as defined by the $VERSION variable in the package) is greater
+than or equal to C<$need>; it will die if this is not the case. This
+method is called automatically by the C<VERSION> form of C<use>.
+
+    use Package 1.2 qw(some imported subs);
+    # implies:
+    Package->VERSION(1.2);
+
+We recommend that you use this method to access another package's
+version, rather than looking directly at C<$Package::VERSION>. The
+package you are looking at could have overridden the C<VERSION> method.
+
+We also recommend using this method to check whether a module has a
+sufficient version. The internal implementation uses the L<version>
+module to make sure that different types of version numbers are
+compared correctly.
+
+=back
+
+=head2 AUTOLOAD
+X<AUTOLOAD>
+
+If you call a method that doesn't exist in a class, Perl will throw an
+error. However, if that class or any of its parent classes defines an
+C<AUTOLOAD> method, that C<AUTOLOAD> method is called instead.
+
+C<AUTOLOAD> is called as a regular method, and the caller will not know
+the difference. Whatever value your C<AUTOLOAD> method returns is
+returned to the caller.
+
+The fully qualified method name that was called is available in the
+C<$AUTOLOAD> package global for your class. Since this is a global, if
+you want to refer to do it without a package name prefix under C<strict
+'vars'>, you need to declare it.
+
+  # XXX - this is a terrible way to implement accessors, but it makes
+  # for a simple example.
+  our $AUTOLOAD;
+  sub AUTOLOAD {
+      my $self = shift;
+
+      # Remove qualifier from original method name...
+      my $called =  $AUTOLOAD =~ s/.*:://r;
+
+      # Is there an attribute of that name?
+      die "No such attribute: $called"
+          unless exists $self->{$called};
+
+      # If so, return it...
+      return $self->{$called};
+  }
+
+  sub DESTROY { } # see below
+
+Without the C<our $AUTOLOAD> declaration, this code will not compile
+under the L<strict> pragma.
+
+As the comment says, this is not a good way to implement accessors.
+It's slow and too clever by far. However, you may see this as a way to
+provide accessors in older Perl code. See L<perlootut> for
+recommendations on OO coding in Perl.
+
+If your class does have an C<AUTOLOAD> method, we strongly recommend
+that you override C<can> in your class as well. Your overridden C<can>
+method should return a subroutine reference for any method that your
+C<AUTOLOAD> responds to.
+
+=head2 Destructors
+X<destructor> X<DESTROY>
+
+When the last reference to an object goes away, the object is
+destroyed. If you only have one reference to an object stored in a
+lexical scalar, the object is destroyed when that scalar goes out of
+scope. If you store the object in a package global, that object may not
+go out of scope until the program exits.
+
+If you want to do something when the object is destroyed, you can
+define a C<DESTROY> method in your class. This method will always be
+called by Perl at the appropriate time, unless the method is empty.
+
+This is called just like any other method, with the object as the first
+argument. It does not receive any additional arguments. However, the
+C<$_[0]> variable will be read-only in the destructor, so you cannot
+assign a value to it.
+
+If your C<DESTROY> method throws an error, this error will be ignored.
+It will not be sent to C<STDERR> and it will not cause the program to
+die. However, if your destructor is running inside an C<eval {}> block,
+then the error will change the value of C<$@>.
+
+Because C<DESTROY> methods can be called at any time, you should
+localize any global variables you might update in your C<DESTROY>. In
+particular, if you use C<eval {}> you should localize C<$@>, and if you
+use C<system> or backticks you should localize C<$?>.
+
+If you define an C<AUTOLOAD> in your class, then Perl will call your
+C<AUTOLOAD> to handle the C<DESTROY> method. You can prevent this by
+defining an empty C<DESTROY>, like we did in the autoloading example.
+You can also check the value of C<$AUTOLOAD> and return without doing
+anything when called to handle C<DESTROY>.
+
+=head3 Global Destruction
+
+The order in which objects are destroyed during the global destruction
+before the program exits is unpredictable. This means that any objects
+contained by your object may already have been destroyed. You should
+check that a contained object is defined before calling a method on it:
+
+  sub DESTROY {
+      my $self = shift;
+
+      $self->{handle}->close() if $self->{handle};
+  }
+
+You can use the C<${^GLOBAL_PHASE}> variable to detect if you are
+currently in the global destruction phase:
+
+  sub DESTROY {
+      my $self = shift;
+
+      return if ${^GLOBAL_PHASE} eq 'DESTRUCT';
+
+      $self->{handle}->close();
+  }
+
+Note that this variable was added in Perl 5.14.0. If you want to detect
+the global destruction phase on older versions of Perl, you can use the
+C<Devel::GlobalDestruction> module on CPAN.
+
+If your C<DESTROY> method issues a warning during global destruction,
+the Perl interpreter will append the string " during global
+destruction" to the warning.
+
+During global destruction, Perl will always garbage collect objects
+before unblessed references. See L<perlhacktips/PERL_DESTRUCT_LEVEL>
+for more information about global destruction.
+
+=head2 Non-Hash Objects
+
+All the examples so far have shown objects based on a blessed hash.
+However, it's possible to bless any type of data structure or referent,
+including scalars, globs, and subroutines. You may see this sort of
+thing when looking at code in the wild.
+
+Here's an example of a module as a blessed scalar:
+
+  package Time;
+
+  use strict;
+  use warnings;
+
+  sub new {
+      my $class = shift;
+
+      my $time = time;
+      return bless \$time, $class;
+  }
+
+  sub epoch {
+      my $self = shift;
+      return ${ $self };
+  }
+
+  my $time = Time->new();
+  print $time->epoch();
+
+=head2 Inside-Out objects
+
+In the past, the Perl community experimented with a technique called
+"inside-out objects". An inside-out object stores its data outside of
+the object's reference, indexed on a unique property of the object,
+such as its memory address, rather than in the object itself. This has
+the advantage of enforcing the encapsulation of object attributes,
+since their data is not stored in the object itself.
+
+This technique was popular for a while (and was recommended in Damian
+Conway's I<Perl Best Practices>), but never achieved universal
+adoption. The L<Object::InsideOut> module on CPAN provides a
+comprehensive implementation of this technique, and you may see it or
+other inside-out modules in the wild.
+
+Here is a simple example of the technique, using the
+L<Hash::Util::FieldHash> core module. This module was added to the core
+to support inside-out object implementations.
+
+  package Time;
+
+  use strict;
+  use warnings;
+
+  use Hash::Util::FieldHash 'fieldhash';
+
+  fieldhash my %time_for;
+
+  sub new {
+      my $class = shift;
+
+      my $self = bless \( my $object ), $class;
+
+      $time_for{$self} = time;
+
+      return $self;
+  }
+
+  sub epoch {
+      my $self = shift;
+
+      return $time_for{$self};
+  }
+
+  my $time = Time->new;
+  print $time->epoch;
+
+=head2 Pseudo-hashes
+
+The pseudo-hash feature was an experimental feature introduced in
+earlier versions of Perl and removed in 5.10.0. A pseudo-hash is an
+array reference which can be accessed using named keys like a hash. You
+may run in to some code in the wild which uses it. See the L<fields>
+pragma for more information.
+
+=head1 SEE ALSO
+
+A kinder, gentler tutorial on object-oriented programming in Perl can
+be found in L<perlootut>. You should also check out L<perlmodlib> for
+some style guides on constructing both modules and classes.
+
diff --git a/lib/5.24.1/pod/perlootut.pod b/lib/5.24.1/pod/perlootut.pod
new file mode 100644
index 00000000..6d0ae033
--- /dev/null
+++ b/lib/5.24.1/pod/perlootut.pod
@@ -0,0 +1,752 @@
+=encoding utf8
+
+=for comment
+Consistent formatting of this file is achieved with:
+  perl ./Porting/podtidy pod/perlootut.pod
+
+=head1 NAME
+
+perlootut - Object-Oriented Programming in Perl Tutorial
+
+=head1 DATE
+
+This document was created in February, 2011, and the last major
+revision was in February, 2013.
+
+If you are reading this in the future then it's possible that the state
+of the art has changed. We recommend you start by reading the perlootut
+document in the latest stable release of Perl, rather than this
+version.
+
+=head1 DESCRIPTION
+
+This document provides an introduction to object-oriented programming
+in Perl. It begins with a brief overview of the concepts behind object
+oriented design. Then it introduces several different OO systems from
+L<CPAN|http://search.cpan.org> which build on top of what Perl
+provides.
+
+By default, Perl's built-in OO system is very minimal, leaving you to
+do most of the work. This minimalism made a lot of sense in 1994, but
+in the years since Perl 5.0 we've seen a number of common patterns
+emerge in Perl OO. Fortunately, Perl's flexibility has allowed a rich
+ecosystem of Perl OO systems to flourish.
+
+If you want to know how Perl OO works under the hood, the L<perlobj>
+document explains the nitty gritty details.
+
+This document assumes that you already understand the basics of Perl
+syntax, variable types, operators, and subroutine calls. If you don't
+understand these concepts yet, please read L<perlintro> first. You
+should also read the L<perlsyn>, L<perlop>, and L<perlsub> documents.
+
+=head1 OBJECT-ORIENTED FUNDAMENTALS
+
+Most object systems share a number of common concepts. You've probably
+heard terms like "class", "object, "method", and "attribute" before.
+Understanding the concepts will make it much easier to read and write
+object-oriented code. If you're already familiar with these terms, you
+should still skim this section, since it explains each concept in terms
+of Perl's OO implementation.
+
+Perl's OO system is class-based. Class-based OO is fairly common. It's
+used by Java, C++, C#, Python, Ruby, and many other languages. There
+are other object orientation paradigms as well. JavaScript is the most
+popular language to use another paradigm. JavaScript's OO system is
+prototype-based.
+
+=head2 Object
+
+An B<object> is a data structure that bundles together data and
+subroutines which operate on that data. An object's data is called
+B<attributes>, and its subroutines are called B<methods>. An object can
+be thought of as a noun (a person, a web service, a computer).
+
+An object represents a single discrete thing. For example, an object
+might represent a file. The attributes for a file object might include
+its path, content, and last modification time. If we created an object
+to represent F</etc/hostname> on a machine named "foo.example.com",
+that object's path would be "/etc/hostname", its content would be
+"foo\n", and it's last modification time would be 1304974868 seconds
+since the beginning of the epoch.
+
+The methods associated with a file might include C<rename()> and
+C<write()>.
+
+In Perl most objects are hashes, but the OO systems we recommend keep
+you from having to worry about this. In practice, it's best to consider
+an object's internal data structure opaque.
+
+=head2 Class
+
+A B<class> defines the behavior of a category of objects. A class is a
+name for a category (like "File"), and a class also defines the
+behavior of objects in that category.
+
+All objects belong to a specific class. For example, our
+F</etc/hostname> object belongs to the C<File> class. When we want to
+create a specific object, we start with its class, and B<construct> or
+B<instantiate> an object. A specific object is often referred to as an
+B<instance> of a class.
+
+In Perl, any package can be a class. The difference between a package
+which is a class and one which isn't is based on how the package is
+used. Here's our "class declaration" for the C<File> class:
+
+  package File;
+
+In Perl, there is no special keyword for constructing an object.
+However, most OO modules on CPAN use a method named C<new()> to
+construct a new object:
+
+  my $hostname = File->new(
+      path          => '/etc/hostname',
+      content       => "foo\n",
+      last_mod_time => 1304974868,
+  );
+
+(Don't worry about that C<< -> >> operator, it will be explained
+later.)
+
+=head3 Blessing
+
+As we said earlier, most Perl objects are hashes, but an object can be
+an instance of any Perl data type (scalar, array, etc.). Turning a
+plain data structure into an object is done by B<blessing> that data
+structure using Perl's C<bless> function.
+
+While we strongly suggest you don't build your objects from scratch,
+you should know the term B<bless>. A B<blessed> data structure (aka "a
+referent") is an object. We sometimes say that an object has been
+"blessed into a class".
+
+Once a referent has been blessed, the C<blessed> function from the
+L<Scalar::Util> core module can tell us its class name. This subroutine
+returns an object's class when passed an object, and false otherwise.
+
+  use Scalar::Util 'blessed';
+
+  print blessed($hash);      # undef
+  print blessed($hostname);  # File
+
+=head3 Constructor
+
+A B<constructor> creates a new object. In Perl, a class's constructor
+is just another method, unlike some other languages, which provide
+syntax for constructors. Most Perl classes use C<new> as the name for
+their constructor:
+
+  my $file = File->new(...);
+
+=head2 Methods
+
+You already learned that a B<method> is a subroutine that operates on
+an object. You can think of a method as the things that an object can
+I<do>. If an object is a noun, then methods are its verbs (save, print,
+open).
+
+In Perl, methods are simply subroutines that live in a class's package.
+Methods are always written to receive the object as their first
+argument:
+
+  sub print_info {
+      my $self = shift;
+
+      print "This file is at ", $self->path, "\n";
+  }
+
+  $file->print_info;
+  # The file is at /etc/hostname
+
+What makes a method special is I<how it's called>. The arrow operator
+(C<< -> >>) tells Perl that we are calling a method.
+
+When we make a method call, Perl arranges for the method's B<invocant>
+to be passed as the first argument. B<Invocant> is a fancy name for the
+thing on the left side of the arrow. The invocant can either be a class
+name or an object. We can also pass additional arguments to the method:
+
+  sub print_info {
+      my $self   = shift;
+      my $prefix = shift // "This file is at ";
+
+      print $prefix, ", ", $self->path, "\n";
+  }
+
+  $file->print_info("The file is located at ");
+  # The file is located at /etc/hostname
+
+=head2 Attributes
+
+Each class can define its B<attributes>. When we instantiate an object,
+we assign values to those attributes. For example, every C<File> object
+has a path. Attributes are sometimes called B<properties>.
+
+Perl has no special syntax for attributes. Under the hood, attributes
+are often stored as keys in the object's underlying hash, but don't
+worry about this.
+
+We recommend that you only access attributes via B<accessor> methods.
+These are methods that can get or set the value of each attribute. We
+saw this earlier in the C<print_info()> example, which calls C<<
+$self->path >>.
+
+You might also see the terms B<getter> and B<setter>. These are two
+types of accessors. A getter gets the attribute's value, while a setter
+sets it. Another term for a setter is B<mutator>
+
+Attributes are typically defined as read-only or read-write. Read-only
+attributes can only be set when the object is first created, while
+read-write attributes can be altered at any time.
+
+The value of an attribute may itself be another object. For example,
+instead of returning its last mod time as a number, the C<File> class
+could return a L<DateTime> object representing that value.
+
+It's possible to have a class that does not expose any publicly
+settable attributes. Not every class has attributes and methods.
+
+=head2 Polymorphism
+
+B<Polymorphism> is a fancy way of saying that objects from two
+different classes share an API. For example, we could have C<File> and
+C<WebPage> classes which both have a C<print_content()> method. This
+method might produce different output for each class, but they share a
+common interface.
+
+While the two classes may differ in many ways, when it comes to the
+C<print_content()> method, they are the same. This means that we can
+try to call the C<print_content()> method on an object of either class,
+and B<we don't have to know what class the object belongs to!>
+
+Polymorphism is one of the key concepts of object-oriented design.
+
+=head2 Inheritance
+
+B<Inheritance> lets you create a specialized version of an existing
+class. Inheritance lets the new class reuse the methods and attributes
+of another class.
+
+For example, we could create an C<File::MP3> class which B<inherits>
+from C<File>. An C<File::MP3> B<is-a> I<more specific> type of C<File>.
+All mp3 files are files, but not all files are mp3 files.
+
+We often refer to inheritance relationships as B<parent-child> or
+C<superclass>/C<subclass> relationships. Sometimes we say that the child
+has an B<is-a> relationship with its parent class.
+
+C<File> is a B<superclass> of C<File::MP3>, and C<File::MP3> is a
+B<subclass> of C<File>.
+
+  package File::MP3;
+
+  use parent 'File';
+
+The L<parent> module is one of several ways that Perl lets you define
+inheritance relationships.
+
+Perl allows multiple inheritance, which means that a class can inherit
+from multiple parents. While this is possible, we strongly recommend
+against it. Generally, you can use B<roles> to do everything you can do
+with multiple inheritance, but in a cleaner way.
+
+Note that there's nothing wrong with defining multiple subclasses of a
+given class. This is both common and safe. For example, we might define
+C<File::MP3::FixedBitrate> and C<File::MP3::VariableBitrate> classes to
+distinguish between different types of mp3 file.
+
+=head3 Overriding methods and method resolution
+
+Inheritance allows two classes to share code. By default, every method
+in the parent class is also available in the child. The child can
+explicitly B<override> a parent's method to provide its own
+implementation. For example, if we have an C<File::MP3> object, it has
+the C<print_info()> method from C<File>:
+
+  my $cage = File::MP3->new(
+      path          => 'mp3s/My-Body-Is-a-Cage.mp3',
+      content       => $mp3_data,
+      last_mod_time => 1304974868,
+      title         => 'My Body Is a Cage',
+  );
+
+  $cage->print_info;
+  # The file is at mp3s/My-Body-Is-a-Cage.mp3
+
+If we wanted to include the mp3's title in the greeting, we could
+override the method:
+
+  package File::MP3;
+
+  use parent 'File';
+
+  sub print_info {
+      my $self = shift;
+
+      print "This file is at ", $self->path, "\n";
+      print "Its title is ", $self->title, "\n";
+  }
+
+  $cage->print_info;
+  # The file is at mp3s/My-Body-Is-a-Cage.mp3
+  # Its title is My Body Is a Cage
+
+The process of determining what method should be used is called
+B<method resolution>. What Perl does is look at the object's class
+first (C<File::MP3> in this case). If that class defines the method,
+then that class's version of the method is called. If not, Perl looks
+at each parent class in turn. For C<File::MP3>, its only parent is
+C<File>. If C<File::MP3> does not define the method, but C<File> does,
+then Perl calls the method in C<File>.
+
+If C<File> inherited from C<DataSource>, which inherited from C<Thing>,
+then Perl would keep looking "up the chain" if necessary.
+
+It is possible to explicitly call a parent method from a child:
+
+  package File::MP3;
+
+  use parent 'File';
+
+  sub print_info {
+      my $self = shift;
+
+      $self->SUPER::print_info();
+      print "Its title is ", $self->title, "\n";
+  }
+
+The C<SUPER::> bit tells Perl to look for the C<print_info()> in the
+C<File::MP3> class's inheritance chain. When it finds the parent class
+that implements this method, the method is called.
+
+We mentioned multiple inheritance earlier. The main problem with
+multiple inheritance is that it greatly complicates method resolution.
+See L<perlobj> for more details.
+
+=head2 Encapsulation
+
+B<Encapsulation> is the idea that an object is opaque. When another
+developer uses your class, they don't need to know I<how> it is
+implemented, they just need to know I<what> it does.
+
+Encapsulation is important for several reasons. First, it allows you to
+separate the public API from the private implementation. This means you
+can change that implementation without breaking the API.
+
+Second, when classes are well encapsulated, they become easier to
+subclass. Ideally, a subclass uses the same APIs to access object data
+that its parent class uses. In reality, subclassing sometimes involves
+violating encapsulation, but a good API can minimize the need to do
+this.
+
+We mentioned earlier that most Perl objects are implemented as hashes
+under the hood. The principle of encapsulation tells us that we should
+not rely on this. Instead, we should use accessor methods to access the
+data in that hash. The object systems that we recommend below all
+automate the generation of accessor methods. If you use one of them,
+you should never have to access the object as a hash directly.
+
+=head2 Composition
+
+In object-oriented code, we often find that one object references
+another object. This is called B<composition>, or a B<has-a>
+relationship.
+
+Earlier, we mentioned that the C<File> class's C<last_mod_time>
+accessor could return a L<DateTime> object. This is a perfect example
+of composition. We could go even further, and make the C<path> and
+C<content> accessors return objects as well. The C<File> class would
+then be B<composed> of several other objects.
+
+=head2 Roles
+
+B<Roles> are something that a class I<does>, rather than something that
+it I<is>. Roles are relatively new to Perl, but have become rather
+popular. Roles are B<applied> to classes. Sometimes we say that classes
+B<consume> roles.
+
+Roles are an alternative to inheritance for providing polymorphism.
+Let's assume we have two classes, C<Radio> and C<Computer>. Both of
+these things have on/off switches. We want to model that in our class
+definitions.
+
+We could have both classes inherit from a common parent, like
+C<Machine>, but not all machines have on/off switches. We could create
+a parent class called C<HasOnOffSwitch>, but that is very artificial.
+Radios and computers are not specializations of this parent. This
+parent is really a rather ridiculous creation.
+
+This is where roles come in. It makes a lot of sense to create a
+C<HasOnOffSwitch> role and apply it to both classes. This role would
+define a known API like providing C<turn_on()> and C<turn_off()>
+methods.
+
+Perl does not have any built-in way to express roles. In the past,
+people just bit the bullet and used multiple inheritance. Nowadays,
+there are several good choices on CPAN for using roles.
+
+=head2 When to Use OO
+
+Object Orientation is not the best solution to every problem. In I<Perl
+Best Practices> (copyright 2004, Published by O'Reilly Media, Inc.),
+Damian Conway provides a list of criteria to use when deciding if OO is
+the right fit for your problem:
+
+=over 4
+
+=item *
+
+The system being designed is large, or is likely to become large.
+
+=item *
+
+The data can be aggregated into obvious structures, especially if
+there's a large amount of data in each aggregate.
+
+=item *
+
+The various types of data aggregate form a natural hierarchy that
+facilitates the use of inheritance and polymorphism.
+
+=item *
+
+You have a piece of data on which many different operations are
+applied.
+
+=item *
+
+You need to perform the same general operations on related types of
+data, but with slight variations depending on the specific type of data
+the operations are applied to.
+
+=item *
+
+It's likely you'll have to add new data types later.
+
+=item *
+
+The typical interactions between pieces of data are best represented by
+operators.
+
+=item *
+
+The implementation of individual components of the system is likely to
+change over time.
+
+=item *
+
+The system design is already object-oriented.
+
+=item *
+
+Large numbers of other programmers will be using your code modules.
+
+=back
+
+=head1 PERL OO SYSTEMS
+
+As we mentioned before, Perl's built-in OO system is very minimal, but
+also quite flexible. Over the years, many people have developed systems
+which build on top of Perl's built-in system to provide more features
+and convenience.
+
+We strongly recommend that you use one of these systems. Even the most
+minimal of them eliminates a lot of repetitive boilerplate. There's
+really no good reason to write your classes from scratch in Perl.
+
+If you are interested in the guts underlying these systems, check out
+L<perlobj>.
+
+=head2 Moose
+
+L<Moose> bills itself as a "postmodern object system for Perl 5". Don't
+be scared, the "postmodern" label is a callback to Larry's description
+of Perl as "the first postmodern computer language".
+
+C<Moose> provides a complete, modern OO system. Its biggest influence
+is the Common Lisp Object System, but it also borrows ideas from
+Smalltalk and several other languages. C<Moose> was created by Stevan
+Little, and draws heavily from his work on the Perl 6 OO design.
+
+Here is our C<File> class using C<Moose>:
+
+  package File;
+  use Moose;
+
+  has path          => ( is => 'ro' );
+  has content       => ( is => 'ro' );
+  has last_mod_time => ( is => 'ro' );
+
+  sub print_info {
+      my $self = shift;
+
+      print "This file is at ", $self->path, "\n";
+  }
+
+C<Moose> provides a number of features:
+
+=over 4
+
+=item * Declarative sugar
+
+C<Moose> provides a layer of declarative "sugar" for defining classes.
+That sugar is just a set of exported functions that make declaring how
+your class works simpler and more palatable.  This lets you describe
+I<what> your class is, rather than having to tell Perl I<how> to
+implement your class.
+
+The C<has()> subroutine declares an attribute, and C<Moose>
+automatically creates accessors for these attributes. It also takes
+care of creating a C<new()> method for you. This constructor knows
+about the attributes you declared, so you can set them when creating a
+new C<File>.
+
+=item * Roles built-in
+
+C<Moose> lets you define roles the same way you define classes:
+
+  package HasOnOfSwitch;
+  use Moose::Role;
+
+  has is_on => (
+      is  => 'rw',
+      isa => 'Bool',
+  );
+
+  sub turn_on {
+      my $self = shift;
+      $self->is_on(1);
+  }
+
+  sub turn_off {
+      my $self = shift;
+      $self->is_on(0);
+  }
+
+=item * A miniature type system
+
+In the example above, you can see that we passed C<< isa => 'Bool' >>
+to C<has()> when creating our C<is_on> attribute. This tells C<Moose>
+that this attribute must be a boolean value. If we try to set it to an
+invalid value, our code will throw an error.
+
+=item * Full introspection and manipulation
+
+Perl's built-in introspection features are fairly minimal. C<Moose>
+builds on top of them and creates a full introspection layer for your
+classes. This lets you ask questions like "what methods does the File
+class implement?" It also lets you modify your classes
+programmatically.
+
+=item * Self-hosted and extensible
+
+C<Moose> describes itself using its own introspection API. Besides
+being a cool trick, this means that you can extend C<Moose> using
+C<Moose> itself.
+
+=item * Rich ecosystem
+
+There is a rich ecosystem of C<Moose> extensions on CPAN under the
+L<MooseX|http://search.cpan.org/search?query=MooseX&mode=dist>
+namespace. In addition, many modules on CPAN already use C<Moose>,
+providing you with lots of examples to learn from.
+
+=item * Many more features
+
+C<Moose> is a very powerful tool, and we can't cover all of its
+features here. We encourage you to learn more by reading the C<Moose>
+documentation, starting with
+L<Moose::Manual|http://search.cpan.org/perldoc?Moose::Manual>.
+
+=back
+
+Of course, C<Moose> isn't perfect.
+
+C<Moose> can make your code slower to load. C<Moose> itself is not
+small, and it does a I<lot> of code generation when you define your
+class. This code generation means that your runtime code is as fast as
+it can be, but you pay for this when your modules are first loaded.
+
+This load time hit can be a problem when startup speed is important,
+such as with a command-line script or a "plain vanilla" CGI script that
+must be loaded each time it is executed.
+
+Before you panic, know that many people do use C<Moose> for
+command-line tools and other startup-sensitive code. We encourage you
+to try C<Moose> out first before worrying about startup speed.
+
+C<Moose> also has several dependencies on other modules. Most of these
+are small stand-alone modules, a number of which have been spun off
+from C<Moose>. C<Moose> itself, and some of its dependencies, require a
+compiler. If you need to install your software on a system without a
+compiler, or if having I<any> dependencies is a problem, then C<Moose>
+may not be right for you.
+
+=head3 Moo
+
+If you try C<Moose> and find that one of these issues is preventing you
+from using C<Moose>, we encourage you to consider L<Moo> next. C<Moo>
+implements a subset of C<Moose>'s functionality in a simpler package.
+For most features that it does implement, the end-user API is
+I<identical> to C<Moose>, meaning you can switch from C<Moo> to
+C<Moose> quite easily.
+
+C<Moo> does not implement most of C<Moose>'s introspection API, so it's
+often faster when loading your modules. Additionally, none of its
+dependencies require XS, so it can be installed on machines without a
+compiler.
+
+One of C<Moo>'s most compelling features is its interoperability with
+C<Moose>. When someone tries to use C<Moose>'s introspection API on a
+C<Moo> class or role, it is transparently inflated into a C<Moose>
+class or role. This makes it easier to incorporate C<Moo>-using code
+into a C<Moose> code base and vice versa.
+
+For example, a C<Moose> class can subclass a C<Moo> class using
+C<extends> or consume a C<Moo> role using C<with>.
+
+The C<Moose> authors hope that one day C<Moo> can be made obsolete by
+improving C<Moose> enough, but for now it provides a worthwhile
+alternative to C<Moose>.
+
+=head2 Class::Accessor
+
+L<Class::Accessor> is the polar opposite of C<Moose>. It provides very
+few features, nor is it self-hosting.
+
+It is, however, very simple, pure Perl, and it has no non-core
+dependencies. It also provides a "Moose-like" API on demand for the
+features it supports.
+
+Even though it doesn't do much, it is still preferable to writing your
+own classes from scratch.
+
+Here's our C<File> class with C<Class::Accessor>:
+
+  package File;
+  use Class::Accessor 'antlers';
+
+  has path          => ( is => 'ro' );
+  has content       => ( is => 'ro' );
+  has last_mod_time => ( is => 'ro' );
+
+  sub print_info {
+      my $self = shift;
+
+      print "This file is at ", $self->path, "\n";
+  }
+
+The C<antlers> import flag tells C<Class::Accessor> that you want to
+define your attributes using C<Moose>-like syntax. The only parameter
+that you can pass to C<has> is C<is>. We recommend that you use this
+Moose-like syntax if you choose C<Class::Accessor> since it means you
+will have a smoother upgrade path if you later decide to move to
+C<Moose>.
+
+Like C<Moose>, C<Class::Accessor> generates accessor methods and a
+constructor for your class.
+
+=head2 Class::Tiny
+
+Finally, we have L<Class::Tiny>. This module truly lives up to its
+name. It has an incredibly minimal API and absolutely no dependencies
+on any recent Perl. Still, we think it's a lot easier to use than writing
+your own OO code from scratch.
+
+Here's our C<File> class once more:
+
+  package File;
+  use Class::Tiny qw( path content last_mod_time );
+
+  sub print_info {
+      my $self = shift;
+
+      print "This file is at ", $self->path, "\n";
+  }
+
+That's it!
+
+With C<Class::Tiny>, all accessors are read-write. It generates a
+constructor for you, as well as the accessors you define.
+
+You can also use L<Class::Tiny::Antlers> for C<Moose>-like syntax.
+
+=head2 Role::Tiny
+
+As we mentioned before, roles provide an alternative to inheritance,
+but Perl does not have any built-in role support. If you choose to use
+Moose, it comes with a full-fledged role implementation. However, if
+you use one of our other recommended OO modules, you can still use
+roles with L<Role::Tiny>
+
+C<Role::Tiny> provides some of the same features as Moose's role
+system, but in a much smaller package. Most notably, it doesn't support
+any sort of attribute declaration, so you have to do that by hand.
+Still, it's useful, and works well with C<Class::Accessor> and
+C<Class::Tiny>
+
+=head2 OO System Summary
+
+Here's a brief recap of the options we covered:
+
+=over 4
+
+=item * L<Moose>
+
+C<Moose> is the maximal option. It has a lot of features, a big
+ecosystem, and a thriving user base. We also covered L<Moo> briefly.
+C<Moo> is C<Moose> lite, and a reasonable alternative when Moose
+doesn't work for your application.
+
+=item * L<Class::Accessor>
+
+C<Class::Accessor> does a lot less than C<Moose>, and is a nice
+alternative if you find C<Moose> overwhelming. It's been around a long
+time and is well battle-tested. It also has a minimal C<Moose>
+compatibility mode which makes moving from C<Class::Accessor> to
+C<Moose> easy.
+
+=item * L<Class::Tiny>
+
+C<Class::Tiny> is the absolute minimal option. It has no dependencies,
+and almost no syntax to learn. It's a good option for a super minimal
+environment and for throwing something together quickly without having
+to worry about details.
+
+=item * L<Role::Tiny>
+
+Use C<Role::Tiny> with C<Class::Accessor> or C<Class::Tiny> if you
+find yourself considering multiple inheritance. If you go with
+C<Moose>, it comes with its own role implementation.
+
+=back
+
+=head2 Other OO Systems
+
+There are literally dozens of other OO-related modules on CPAN besides
+those covered here, and you're likely to run across one or more of them
+if you work with other people's code.
+
+In addition, plenty of code in the wild does all of its OO "by hand",
+using just the Perl built-in OO features. If you need to maintain such
+code, you should read L<perlobj> to understand exactly how Perl's
+built-in OO works.
+
+=head1 CONCLUSION
+
+As we said before, Perl's minimal OO system has led to a profusion of
+OO systems on CPAN. While you can still drop down to the bare metal and
+write your classes by hand, there's really no reason to do that with
+modern Perl.
+
+For small systems, L<Class::Tiny> and L<Class::Accessor> both provide
+minimal object systems that take care of basic boilerplate for you.
+
+For bigger projects, L<Moose> provides a rich set of features that will
+let you focus on implementing your business logic.
+
+We encourage you to play with and evaluate L<Moose>,
+L<Class::Accessor>, and L<Class::Tiny> to see which OO system is right
+for you.
+
+=cut
diff --git a/lib/5.24.1/pod/perlop.pod b/lib/5.24.1/pod/perlop.pod
new file mode 100644
index 00000000..9b1319a7
--- /dev/null
+++ b/lib/5.24.1/pod/perlop.pod
@@ -0,0 +1,3421 @@
+=head1 NAME
+X<operator>
+
+perlop - Perl operators and precedence
+
+=head1 DESCRIPTION
+
+In Perl, the operator determines what operation is performed,
+independent of the type of the operands.  For example S<C<$x + $y>>
+is always a numeric addition, and if C<$x> or C<$y> do not contain
+numbers, an attempt is made to convert them to numbers first.
+
+This is in contrast to many other dynamic languages, where the
+operation is determined by the type of the first argument.  It also
+means that Perl has two versions of some operators, one for numeric
+and one for string comparison.  For example S<C<$x == $y>> compares
+two numbers for equality, and S<C<$x eq $y>> compares two strings.
+
+There are a few exceptions though: C<x> can be either string
+repetition or list repetition, depending on the type of the left
+operand, and C<&>, C<|>, C<^> and C<~> can be either string or numeric bit
+operations.
+
+=head2 Operator Precedence and Associativity
+X<operator, precedence> X<precedence> X<associativity>
+
+Operator precedence and associativity work in Perl more or less like
+they do in mathematics.
+
+I<Operator precedence> means some operators are evaluated before
+others.  For example, in S<C<2 + 4 * 5>>, the multiplication has higher
+precedence so S<C<4 * 5>> is evaluated first yielding S<C<2 + 20 ==
+22>> and not S<C<6 * 5 == 30>>.
+
+I<Operator associativity> defines what happens if a sequence of the
+same operators is used one after another: whether the evaluator will
+evaluate the left operations first, or the right first.  For example, in
+S<C<8 - 4 - 2>>, subtraction is left associative so Perl evaluates the
+expression left to right.  S<C<8 - 4>> is evaluated first making the
+expression S<C<4 - 2 == 2>> and not S<C<8 - 2 == 6>>.
+
+Perl operators have the following associativity and precedence,
+listed from highest precedence to lowest.  Operators borrowed from
+C keep the same precedence relationship with each other, even where
+C's precedence is slightly screwy.  (This makes learning Perl easier
+for C folks.)  With very few exceptions, these all operate on scalar
+values only, not array values.
+
+    left	terms and list operators (leftward)
+    left	->
+    nonassoc	++ --
+    right	**
+    right	! ~ \ and unary + and -
+    left	=~ !~
+    left	* / % x
+    left	+ - .
+    left	<< >>
+    nonassoc	named unary operators
+    nonassoc	< > <= >= lt gt le ge
+    nonassoc	== != <=> eq ne cmp ~~
+    left	&
+    left	| ^
+    left	&&
+    left	|| //
+    nonassoc	..  ...
+    right	?:
+    right	= += -= *= etc. goto last next redo dump
+    left	, =>
+    nonassoc	list operators (rightward)
+    right	not
+    left	and
+    left	or xor
+
+In the following sections, these operators are covered in precedence order.
+
+Many operators can be overloaded for objects.  See L<overload>.
+
+=head2 Terms and List Operators (Leftward)
+X<list operator> X<operator, list> X<term>
+
+A TERM has the highest precedence in Perl.  They include variables,
+quote and quote-like operators, any expression in parentheses,
+and any function whose arguments are parenthesized.  Actually, there
+aren't really functions in this sense, just list operators and unary
+operators behaving as functions because you put parentheses around
+the arguments.  These are all documented in L<perlfunc>.
+
+If any list operator (C<print()>, etc.) or any unary operator (C<chdir()>, etc.)
+is followed by a left parenthesis as the next token, the operator and
+arguments within parentheses are taken to be of highest precedence,
+just like a normal function call.
+
+In the absence of parentheses, the precedence of list operators such as
+C<print>, C<sort>, or C<chmod> is either very high or very low depending on
+whether you are looking at the left side or the right side of the operator.
+For example, in
+
+    @ary = (1, 3, sort 4, 2);
+    print @ary;		# prints 1324
+
+the commas on the right of the C<sort> are evaluated before the C<sort>,
+but the commas on the left are evaluated after.  In other words,
+list operators tend to gobble up all arguments that follow, and
+then act like a simple TERM with regard to the preceding expression.
+Be careful with parentheses:
+
+    # These evaluate exit before doing the print:
+    print($foo, exit);	# Obviously not what you want.
+    print $foo, exit;	# Nor is this.
+
+    # These do the print before evaluating exit:
+    (print $foo), exit;	# This is what you want.
+    print($foo), exit;	# Or this.
+    print ($foo), exit;	# Or even this.
+
+Also note that
+
+    print ($foo & 255) + 1, "\n";
+
+probably doesn't do what you expect at first glance.  The parentheses
+enclose the argument list for C<print> which is evaluated (printing
+the result of S<C<$foo & 255>>).  Then one is added to the return value
+of C<print> (usually 1).  The result is something like this:
+
+    1 + 1, "\n";    # Obviously not what you meant.
+
+To do what you meant properly, you must write:
+
+    print(($foo & 255) + 1, "\n");
+
+See L<Named Unary Operators> for more discussion of this.
+
+Also parsed as terms are the S<C<do {}>> and S<C<eval {}>> constructs, as
+well as subroutine and method calls, and the anonymous
+constructors C<[]> and C<{}>.
+
+See also L<Quote and Quote-like Operators> toward the end of this section,
+as well as L</"I/O Operators">.
+
+=head2 The Arrow Operator
+X<arrow> X<dereference> X<< -> >>
+
+"C<< -> >>" is an infix dereference operator, just as it is in C
+and C++.  If the right side is either a C<[...]>, C<{...}>, or a
+C<(...)> subscript, then the left side must be either a hard or
+symbolic reference to an array, a hash, or a subroutine respectively.
+(Or technically speaking, a location capable of holding a hard
+reference, if it's an array or hash reference being used for
+assignment.)  See L<perlreftut> and L<perlref>.
+
+Otherwise, the right side is a method name or a simple scalar
+variable containing either the method name or a subroutine reference,
+and the left side must be either an object (a blessed reference)
+or a class name (that is, a package name).  See L<perlobj>.
+
+The dereferencing cases (as opposed to method-calling cases) are
+somewhat extended by the C<postderef> feature.  For the
+details of that feature, consult L<perlref/Postfix Dereference Syntax>.
+
+=head2 Auto-increment and Auto-decrement
+X<increment> X<auto-increment> X<++> X<decrement> X<auto-decrement> X<-->
+
+C<"++"> and C<"--"> work as in C.  That is, if placed before a variable,
+they increment or decrement the variable by one before returning the
+value, and if placed after, increment or decrement after returning the
+value.
+
+    $i = 0;  $j = 0;
+    print $i++;  # prints 0
+    print ++$j;  # prints 1
+
+Note that just as in C, Perl doesn't define B<when> the variable is
+incremented or decremented.  You just know it will be done sometime
+before or after the value is returned.  This also means that modifying
+a variable twice in the same statement will lead to undefined behavior.
+Avoid statements like:
+
+    $i = $i ++;
+    print ++ $i + $i ++;
+
+Perl will not guarantee what the result of the above statements is.
+
+The auto-increment operator has a little extra builtin magic to it.  If
+you increment a variable that is numeric, or that has ever been used in
+a numeric context, you get a normal increment.  If, however, the
+variable has been used in only string contexts since it was set, and
+has a value that is not the empty string and matches the pattern
+C</^[a-zA-Z]*[0-9]*\z/>, the increment is done as a string, preserving each
+character within its range, with carry:
+
+    print ++($foo = "99");	# prints "100"
+    print ++($foo = "a0");	# prints "a1"
+    print ++($foo = "Az");	# prints "Ba"
+    print ++($foo = "zz");	# prints "aaa"
+
+C<undef> is always treated as numeric, and in particular is changed
+to C<0> before incrementing (so that a post-increment of an undef value
+will return C<0> rather than C<undef>).
+
+The auto-decrement operator is not magical.
+
+=head2 Exponentiation
+X<**> X<exponentiation> X<power>
+
+Binary C<"**"> is the exponentiation operator.  It binds even more
+tightly than unary minus, so C<-2**4> is C<-(2**4)>, not C<(-2)**4>.
+(This is
+implemented using C's C<pow(3)> function, which actually works on doubles
+internally.)
+
+Note that certain exponentiation expressions are ill-defined:
+these include C<0**0>, C<1**Inf>, and C<Inf**0>.  Do not expect
+any particular results from these special cases, the results
+are platform-dependent.
+
+=head2 Symbolic Unary Operators
+X<unary operator> X<operator, unary>
+
+Unary C<"!"> performs logical negation, that is, "not".  See also C<not> for a lower
+precedence version of this.
+X<!>
+
+Unary C<"-"> performs arithmetic negation if the operand is numeric,
+including any string that looks like a number.  If the operand is
+an identifier, a string consisting of a minus sign concatenated
+with the identifier is returned.  Otherwise, if the string starts
+with a plus or minus, a string starting with the opposite sign is
+returned.  One effect of these rules is that C<-bareword> is equivalent
+to the string C<"-bareword">.  If, however, the string begins with a
+non-alphabetic character (excluding C<"+"> or C<"-">), Perl will attempt
+to convert
+the string to a numeric, and the arithmetic negation is performed.  If the
+string cannot be cleanly converted to a numeric, Perl will give the warning
+B<Argument "the string" isn't numeric in negation (-) at ...>.
+X<-> X<negation, arithmetic>
+
+Unary C<"~"> performs bitwise negation, that is, 1's complement.  For
+example, S<C<0666 & ~027>> is 0640.  (See also L<Integer Arithmetic> and
+L<Bitwise String Operators>.)  Note that the width of the result is
+platform-dependent: C<~0> is 32 bits wide on a 32-bit platform, but 64
+bits wide on a 64-bit platform, so if you are expecting a certain bit
+width, remember to use the C<"&"> operator to mask off the excess bits.
+X<~> X<negation, binary>
+
+When complementing strings, if all characters have ordinal values under
+256, then their complements will, also.  But if they do not, all
+characters will be in either 32- or 64-bit complements, depending on your
+architecture.  So for example, C<~"\x{3B1}"> is C<"\x{FFFF_FC4E}"> on
+32-bit machines and C<"\x{FFFF_FFFF_FFFF_FC4E}"> on 64-bit machines.
+
+If the experimental "bitwise" feature is enabled via S<C<use feature
+'bitwise'>>, then unary C<"~"> always treats its argument as a number, and an
+alternate form of the operator, C<"~.">, always treats its argument as a
+string.  So C<~0> and C<~"0"> will both give 2**32-1 on 32-bit platforms,
+whereas C<~.0> and C<~."0"> will both yield C<"\xff">.  This feature
+produces a warning unless you use S<C<no warnings 'experimental::bitwise'>>.
+
+Unary C<"+"> has no effect whatsoever, even on strings.  It is useful
+syntactically for separating a function name from a parenthesized expression
+that would otherwise be interpreted as the complete list of function
+arguments.  (See examples above under L</Terms and List Operators (Leftward)>.)
+X<+>
+
+Unary C<"\"> creates a reference to whatever follows it.  See L<perlreftut>
+and L<perlref>.  Do not confuse this behavior with the behavior of
+backslash within a string, although both forms do convey the notion
+of protecting the next thing from interpolation.
+X<\> X<reference> X<backslash>
+
+=head2 Binding Operators
+X<binding> X<operator, binding> X<=~> X<!~>
+
+Binary C<"=~"> binds a scalar expression to a pattern match.  Certain operations
+search or modify the string C<$_> by default.  This operator makes that kind
+of operation work on some other string.  The right argument is a search
+pattern, substitution, or transliteration.  The left argument is what is
+supposed to be searched, substituted, or transliterated instead of the default
+C<$_>.  When used in scalar context, the return value generally indicates the
+success of the operation.  The exceptions are substitution (C<s///>)
+and transliteration (C<y///>) with the C</r> (non-destructive) option,
+which cause the B<r>eturn value to be the result of the substitution.
+Behavior in list context depends on the particular operator.
+See L</"Regexp Quote-Like Operators"> for details and L<perlretut> for
+examples using these operators.
+
+If the right argument is an expression rather than a search pattern,
+substitution, or transliteration, it is interpreted as a search pattern at run
+time.  Note that this means that its
+contents will be interpolated twice, so
+
+    '\\' =~ q'\\';
+
+is not ok, as the regex engine will end up trying to compile the
+pattern C<\>, which it will consider a syntax error.
+
+Binary C<"!~"> is just like C<"=~"> except the return value is negated in
+the logical sense.
+
+Binary C<"!~"> with a non-destructive substitution (C<s///r>) or transliteration
+(C<y///r>) is a syntax error.
+
+=head2 Multiplicative Operators
+X<operator, multiplicative>
+
+Binary C<"*"> multiplies two numbers.
+X<*>
+
+Binary C<"/"> divides two numbers.
+X</> X<slash>
+
+Binary C<"%"> is the modulo operator, which computes the division
+remainder of its first argument with respect to its second argument.
+Given integer
+operands C<$m> and C<$n>: If C<$n> is positive, then S<C<$m % $n>> is
+C<$m> minus the largest multiple of C<$n> less than or equal to
+C<$m>.  If C<$n> is negative, then S<C<$m % $n>> is C<$m> minus the
+smallest multiple of C<$n> that is not less than C<$m> (that is, the
+result will be less than or equal to zero).  If the operands
+C<$m> and C<$n> are floating point values and the absolute value of
+C<$n> (that is C<abs($n)>) is less than S<C<(UV_MAX + 1)>>, only
+the integer portion of C<$m> and C<$n> will be used in the operation
+(Note: here C<UV_MAX> means the maximum of the unsigned integer type).
+If the absolute value of the right operand (C<abs($n)>) is greater than
+or equal to S<C<(UV_MAX + 1)>>, C<"%"> computes the floating-point remainder
+C<$r> in the equation S<C<($r = $m - $i*$n)>> where C<$i> is a certain
+integer that makes C<$r> have the same sign as the right operand
+C<$n> (B<not> as the left operand C<$m> like C function C<fmod()>)
+and the absolute value less than that of C<$n>.
+Note that when S<C<use integer>> is in scope, C<"%"> gives you direct access
+to the modulo operator as implemented by your C compiler.  This
+operator is not as well defined for negative operands, but it will
+execute faster.
+X<%> X<remainder> X<modulo> X<mod>
+
+Binary C<"x"> is the repetition operator.  In scalar context or if the left
+operand is not enclosed in parentheses, it returns a string consisting
+of the left operand repeated the number of times specified by the right
+operand.  In list context, if the left operand is enclosed in
+parentheses or is a list formed by C<qw/I<STRING>/>, it repeats the list.
+If the right operand is zero or negative (raising a warning on
+negative), it returns an empty string
+or an empty list, depending on the context.
+X<x>
+
+    print '-' x 80;		# print row of dashes
+
+    print "\t" x ($tab/8), ' ' x ($tab%8);	# tab over
+
+    @ones = (1) x 80;		# a list of 80 1's
+    @ones = (5) x @ones;	# set all elements to 5
+
+
+=head2 Additive Operators
+X<operator, additive>
+
+Binary C<"+"> returns the sum of two numbers.
+X<+>
+
+Binary C<"-"> returns the difference of two numbers.
+X<->
+
+Binary C<"."> concatenates two strings.
+X<string, concatenation> X<concatenation>
+X<cat> X<concat> X<concatenate> X<.>
+
+=head2 Shift Operators
+X<shift operator> X<operator, shift> X<<< << >>>
+X<<< >> >>> X<right shift> X<left shift> X<bitwise shift>
+X<shl> X<shr> X<shift, right> X<shift, left>
+
+Binary C<<< "<<" >>> returns the value of its left argument shifted left by the
+number of bits specified by the right argument.  Arguments should be
+integers.  (See also L<Integer Arithmetic>.)
+
+Binary C<<< ">>" >>> returns the value of its left argument shifted right by
+the number of bits specified by the right argument.  Arguments should
+be integers.  (See also L<Integer Arithmetic>.)
+
+If S<C<use integer>> (see L<Integer Arithmetic>) is in force then
+signed C integers are used (I<arithmetic shift>), otherwise unsigned C
+integers are used (I<logical shift>), even for negative shiftees.
+In arithmetic right shift the sign bit is replicated on the left,
+in logical shift zero bits come in from the left.
+
+Either way, the implementation isn't going to generate results larger
+than the size of the integer type Perl was built with (32 bits or 64 bits).
+
+Shifting by negative number of bits means the reverse shift: left
+shift becomes right shift, right shift becomes left shift.  This is
+unlike in C, where negative shift is undefined.
+
+Shifting by more bits than the size of the integers means most of the
+time zero (all bits fall off), except that under S<C<use integer>>
+right overshifting a negative shiftee results in -1.  This is unlike
+in C, where shifting by too many bits is undefined.  A common C
+behavior is "shift by modulo wordbits", so that for example
+
+    1 >> 64 == 1 >> (64 % 64) == 1 >> 0 == 1  # Common C behavior.
+
+but that is completely accidental.
+
+If you get tired of being subject to your platform's native integers,
+the S<C<use bigint>> pragma neatly sidesteps the issue altogether:
+
+    print 20 << 20;  # 20971520
+    print 20 << 40;  # 5120 on 32-bit machines, 
+                     # 21990232555520 on 64-bit machines
+    use bigint;
+    print 20 << 100; # 25353012004564588029934064107520
+
+=head2 Named Unary Operators
+X<operator, named unary>
+
+The various named unary operators are treated as functions with one
+argument, with optional parentheses.
+
+If any list operator (C<print()>, etc.) or any unary operator (C<chdir()>, etc.)
+is followed by a left parenthesis as the next token, the operator and
+arguments within parentheses are taken to be of highest precedence,
+just like a normal function call.  For example,
+because named unary operators are higher precedence than C<||>:
+
+    chdir $foo    || die;	# (chdir $foo) || die
+    chdir($foo)   || die;	# (chdir $foo) || die
+    chdir ($foo)  || die;	# (chdir $foo) || die
+    chdir +($foo) || die;	# (chdir $foo) || die
+
+but, because C<"*"> is higher precedence than named operators:
+
+    chdir $foo * 20;	# chdir ($foo * 20)
+    chdir($foo) * 20;	# (chdir $foo) * 20
+    chdir ($foo) * 20;	# (chdir $foo) * 20
+    chdir +($foo) * 20;	# chdir ($foo * 20)
+
+    rand 10 * 20;	# rand (10 * 20)
+    rand(10) * 20;	# (rand 10) * 20
+    rand (10) * 20;	# (rand 10) * 20
+    rand +(10) * 20;	# rand (10 * 20)
+
+Regarding precedence, the filetest operators, like C<-f>, C<-M>, etc. are
+treated like named unary operators, but they don't follow this functional
+parenthesis rule.  That means, for example, that C<-f($file).".bak"> is
+equivalent to S<C<-f "$file.bak">>.
+X<-X> X<filetest> X<operator, filetest>
+
+See also L<"Terms and List Operators (Leftward)">.
+
+=head2 Relational Operators
+X<relational operator> X<operator, relational>
+
+Perl operators that return true or false generally return values 
+that can be safely used as numbers.  For example, the relational
+operators in this section and the equality operators in the next
+one return C<1> for true and a special version of the defined empty
+string, C<"">, which counts as a zero but is exempt from warnings
+about improper numeric conversions, just as S<C<"0 but true">> is.
+
+Binary C<< "<" >> returns true if the left argument is numerically less than
+the right argument.
+X<< < >>
+
+Binary C<< ">" >> returns true if the left argument is numerically greater
+than the right argument.
+X<< > >>
+
+Binary C<< "<=" >> returns true if the left argument is numerically less than
+or equal to the right argument.
+X<< <= >>
+
+Binary C<< ">=" >> returns true if the left argument is numerically greater
+than or equal to the right argument.
+X<< >= >>
+
+Binary C<"lt"> returns true if the left argument is stringwise less than
+the right argument.
+X<< lt >>
+
+Binary C<"gt"> returns true if the left argument is stringwise greater
+than the right argument.
+X<< gt >>
+
+Binary C<"le"> returns true if the left argument is stringwise less than
+or equal to the right argument.
+X<< le >>
+
+Binary C<"ge"> returns true if the left argument is stringwise greater
+than or equal to the right argument.
+X<< ge >>
+
+=head2 Equality Operators
+X<equality> X<equal> X<equals> X<operator, equality>
+
+Binary C<< "==" >> returns true if the left argument is numerically equal to
+the right argument.
+X<==>
+
+Binary C<< "!=" >> returns true if the left argument is numerically not equal
+to the right argument.
+X<!=>
+
+Binary C<< "<=>" >> returns -1, 0, or 1 depending on whether the left
+argument is numerically less than, equal to, or greater than the right
+argument.  If your platform supports C<NaN>'s (not-a-numbers) as numeric
+values, using them with C<< "<=>" >> returns undef.  C<NaN> is not
+C<< "<" >>, C<< "==" >>, C<< ">" >>, C<< "<=" >> or C<< ">=" >> anything
+(even C<NaN>), so those 5 return false.  S<C<< NaN != NaN >>> returns
+true, as does S<C<NaN !=> I<anything else>>.  If your platform doesn't
+support C<NaN>'s then C<NaN> is just a string with numeric value 0.
+X<< <=> >>
+X<spaceship>
+
+    $ perl -le '$x = "NaN"; print "No NaN support here" if $x == $x'
+    $ perl -le '$x = "NaN"; print "NaN support here" if $x != $x'
+
+(Note that the L<bigint>, L<bigrat>, and L<bignum> pragmas all
+support C<"NaN">.)
+
+Binary C<"eq"> returns true if the left argument is stringwise equal to
+the right argument.
+X<eq>
+
+Binary C<"ne"> returns true if the left argument is stringwise not equal
+to the right argument.
+X<ne>
+
+Binary C<"cmp"> returns -1, 0, or 1 depending on whether the left
+argument is stringwise less than, equal to, or greater than the right
+argument.
+X<cmp>
+
+Binary C<"~~"> does a smartmatch between its arguments.  Smart matching
+is described in the next section.
+X<~~>
+
+C<"lt">, C<"le">, C<"ge">, C<"gt"> and C<"cmp"> use the collation (sort)
+order specified by the current C<LC_COLLATE> locale if a S<C<use
+locale>> form that includes collation is in effect.  See L<perllocale>.
+Do not mix these with Unicode,
+only use them with legacy 8-bit locale encodings.
+The standard C<L<Unicode::Collate>> and
+C<L<Unicode::Collate::Locale>> modules offer much more powerful
+solutions to collation issues.
+
+For case-insensitive comparisions, look at the L<perlfunc/fc> case-folding
+function, available in Perl v5.16 or later:
+
+    if ( fc($x) eq fc($y) ) { ... }
+
+=head2 Smartmatch Operator
+
+First available in Perl 5.10.1 (the 5.10.0 version behaved differently),
+binary C<~~> does a "smartmatch" between its arguments.  This is mostly
+used implicitly in the C<when> construct described in L<perlsyn>, although
+not all C<when> clauses call the smartmatch operator.  Unique among all of
+Perl's operators, the smartmatch operator can recurse.  The smartmatch
+operator is L<experimental|perlpolicy/experimental> and its behavior is
+subject to change.
+
+It is also unique in that all other Perl operators impose a context
+(usually string or numeric context) on their operands, autoconverting
+those operands to those imposed contexts.  In contrast, smartmatch
+I<infers> contexts from the actual types of its operands and uses that
+type information to select a suitable comparison mechanism.
+
+The C<~~> operator compares its operands "polymorphically", determining how
+to compare them according to their actual types (numeric, string, array,
+hash, etc.)  Like the equality operators with which it shares the same
+precedence, C<~~> returns 1 for true and C<""> for false.  It is often best
+read aloud as "in", "inside of", or "is contained in", because the left
+operand is often looked for I<inside> the right operand.  That makes the
+order of the operands to the smartmatch operand often opposite that of
+the regular match operator.  In other words, the "smaller" thing is usually
+placed in the left operand and the larger one in the right.
+
+The behavior of a smartmatch depends on what type of things its arguments
+are, as determined by the following table.  The first row of the table
+whose types apply determines the smartmatch behavior.  Because what
+actually happens is mostly determined by the type of the second operand,
+the table is sorted on the right operand instead of on the left.
+
+ Left      Right      Description and pseudocode                               
+ ===============================================================
+ Any       undef      check whether Any is undefined                    
+                like: !defined Any
+
+ Any       Object     invoke ~~ overloading on Object, or die
+
+ Right operand is an ARRAY:
+
+ Left      Right      Description and pseudocode                               
+ ===============================================================
+ ARRAY1    ARRAY2     recurse on paired elements of ARRAY1 and ARRAY2[2]
+                like: (ARRAY1[0] ~~ ARRAY2[0])
+                        && (ARRAY1[1] ~~ ARRAY2[1]) && ...
+ HASH      ARRAY      any ARRAY elements exist as HASH keys             
+                like: grep { exists HASH->{$_} } ARRAY
+ Regexp    ARRAY      any ARRAY elements pattern match Regexp
+                like: grep { /Regexp/ } ARRAY
+ undef     ARRAY      undef in ARRAY                                    
+                like: grep { !defined } ARRAY
+ Any       ARRAY      smartmatch each ARRAY element[3]                   
+                like: grep { Any ~~ $_ } ARRAY
+
+ Right operand is a HASH:
+
+ Left      Right      Description and pseudocode                               
+ ===============================================================
+ HASH1     HASH2      all same keys in both HASHes                      
+                like: keys HASH1 ==
+                         grep { exists HASH2->{$_} } keys HASH1
+ ARRAY     HASH       any ARRAY elements exist as HASH keys             
+                like: grep { exists HASH->{$_} } ARRAY
+ Regexp    HASH       any HASH keys pattern match Regexp                
+                like: grep { /Regexp/ } keys HASH
+ undef     HASH       always false (undef can't be a key)               
+                like: 0 == 1
+ Any       HASH       HASH key existence                                
+                like: exists HASH->{Any}
+
+ Right operand is CODE:
+
+ Left      Right      Description and pseudocode                               
+ ===============================================================
+ ARRAY     CODE       sub returns true on all ARRAY elements[1]
+                like: !grep { !CODE->($_) } ARRAY
+ HASH      CODE       sub returns true on all HASH keys[1]
+                like: !grep { !CODE->($_) } keys HASH
+ Any       CODE       sub passed Any returns true              
+                like: CODE->(Any)
+
+Right operand is a Regexp:
+
+ Left      Right      Description and pseudocode                               
+ ===============================================================
+ ARRAY     Regexp     any ARRAY elements match Regexp                   
+                like: grep { /Regexp/ } ARRAY
+ HASH      Regexp     any HASH keys match Regexp                        
+                like: grep { /Regexp/ } keys HASH
+ Any       Regexp     pattern match                                     
+                like: Any =~ /Regexp/
+
+ Other:
+
+ Left      Right      Description and pseudocode                               
+ ===============================================================
+ Object    Any        invoke ~~ overloading on Object,
+                      or fall back to...
+
+ Any       Num        numeric equality                                  
+                 like: Any == Num
+ Num       nummy[4]    numeric equality
+                 like: Num == nummy
+ undef     Any        check whether undefined
+                 like: !defined(Any)
+ Any       Any        string equality                                   
+                 like: Any eq Any
+
+
+Notes:
+
+=over
+
+=item 1.
+Empty hashes or arrays match. 
+
+=item 2.
+That is, each element smartmatches the element of the same index in the other array.[3]
+
+=item 3.
+If a circular reference is found, fall back to referential equality. 
+
+=item 4.
+Either an actual number, or a string that looks like one.
+
+=back
+
+The smartmatch implicitly dereferences any non-blessed hash or array
+reference, so the C<I<HASH>> and C<I<ARRAY>> entries apply in those cases.
+For blessed references, the C<I<Object>> entries apply.  Smartmatches
+involving hashes only consider hash keys, never hash values.
+
+The "like" code entry is not always an exact rendition.  For example, the
+smartmatch operator short-circuits whenever possible, but C<grep> does
+not.  Also, C<grep> in scalar context returns the number of matches, but
+C<~~> returns only true or false.
+
+Unlike most operators, the smartmatch operator knows to treat C<undef>
+specially:
+
+    use v5.10.1;
+    @array = (1, 2, 3, undef, 4, 5);
+    say "some elements undefined" if undef ~~ @array;
+
+Each operand is considered in a modified scalar context, the modification
+being that array and hash variables are passed by reference to the
+operator, which implicitly dereferences them.  Both elements
+of each pair are the same:
+
+    use v5.10.1;
+
+    my %hash = (red    => 1, blue   => 2, green  => 3,
+                orange => 4, yellow => 5, purple => 6,
+                black  => 7, grey   => 8, white  => 9);
+
+    my @array = qw(red blue green);
+
+    say "some array elements in hash keys" if  @array ~~  %hash;
+    say "some array elements in hash keys" if \@array ~~ \%hash;
+
+    say "red in array" if "red" ~~  @array;
+    say "red in array" if "red" ~~ \@array;
+
+    say "some keys end in e" if /e$/ ~~  %hash;
+    say "some keys end in e" if /e$/ ~~ \%hash;
+
+Two arrays smartmatch if each element in the first array smartmatches
+(that is, is "in") the corresponding element in the second array,
+recursively.
+
+    use v5.10.1;
+    my @little = qw(red blue green);
+    my @bigger = ("red", "blue", [ "orange", "green" ] );
+    if (@little ~~ @bigger) {  # true!
+        say "little is contained in bigger";
+    } 
+
+Because the smartmatch operator recurses on nested arrays, this
+will still report that "red" is in the array.
+
+    use v5.10.1;
+    my @array = qw(red blue green);
+    my $nested_array = [[[[[[[ @array ]]]]]]];
+    say "red in array" if "red" ~~ $nested_array;
+
+If two arrays smartmatch each other, then they are deep
+copies of each others' values, as this example reports:
+
+    use v5.12.0;
+    my @a = (0, 1, 2, [3, [4, 5], 6], 7); 
+    my @b = (0, 1, 2, [3, [4, 5], 6], 7); 
+
+    if (@a ~~ @b && @b ~~ @a) {
+        say "a and b are deep copies of each other";
+    } 
+    elsif (@a ~~ @b) {
+        say "a smartmatches in b";
+    } 
+    elsif (@b ~~ @a) {
+        say "b smartmatches in a";
+    } 
+    else {
+        say "a and b don't smartmatch each other at all";
+    } 
+
+
+If you were to set S<C<$b[3] = 4>>, then instead of reporting that "a and b
+are deep copies of each other", it now reports that C<"b smartmatches in a">.
+That's because the corresponding position in C<@a> contains an array that
+(eventually) has a 4 in it.
+
+Smartmatching one hash against another reports whether both contain the
+same keys, no more and no less.  This could be used to see whether two
+records have the same field names, without caring what values those fields
+might have.  For example:
+
+    use v5.10.1;
+    sub make_dogtag {
+        state $REQUIRED_FIELDS = { name=>1, rank=>1, serial_num=>1 };
+
+        my ($class, $init_fields) = @_;
+
+        die "Must supply (only) name, rank, and serial number"
+            unless $init_fields ~~ $REQUIRED_FIELDS;
+
+        ...
+    }
+
+However, this only does what you mean if C<$init_fields> is indeed a hash
+reference. The condition C<$init_fields ~~ $REQUIRED_FIELDS> also allows the
+strings C<"name">, C<"rank">, C<"serial_num"> as well as any array reference
+that contains C<"name"> or C<"rank"> or C<"serial_num"> anywhere to pass
+through.
+
+The smartmatch operator is most often used as the implicit operator of a
+C<when> clause.  See the section on "Switch Statements" in L<perlsyn>.
+
+=head3 Smartmatching of Objects
+
+To avoid relying on an object's underlying representation, if the
+smartmatch's right operand is an object that doesn't overload C<~~>,
+it raises the exception "C<Smartmatching a non-overloaded object
+breaks encapsulation>".  That's because one has no business digging
+around to see whether something is "in" an object.  These are all
+illegal on objects without a C<~~> overload:
+
+    %hash ~~ $object
+       42 ~~ $object
+   "fred" ~~ $object
+
+However, you can change the way an object is smartmatched by overloading
+the C<~~> operator.  This is allowed to
+extend the usual smartmatch semantics.
+For objects that do have an C<~~> overload, see L<overload>.
+
+Using an object as the left operand is allowed, although not very useful.
+Smartmatching rules take precedence over overloading, so even if the
+object in the left operand has smartmatch overloading, this will be
+ignored.  A left operand that is a non-overloaded object falls back on a
+string or numeric comparison of whatever the C<ref> operator returns.  That
+means that
+
+    $object ~~ X
+
+does I<not> invoke the overload method with C<I<X>> as an argument.
+Instead the above table is consulted as normal, and based on the type of
+C<I<X>>, overloading may or may not be invoked.  For simple strings or
+numbers, "in" becomes equivalent to this:
+
+    $object ~~ $number          ref($object) == $number
+    $object ~~ $string          ref($object) eq $string 
+
+For example, this reports that the handle smells IOish
+(but please don't really do this!):
+
+    use IO::Handle;
+    my $fh = IO::Handle->new();
+    if ($fh ~~ /\bIO\b/) {
+        say "handle smells IOish";
+    } 
+
+That's because it treats C<$fh> as a string like
+C<"IO::Handle=GLOB(0x8039e0)">, then pattern matches against that.
+
+=head2 Bitwise And
+X<operator, bitwise, and> X<bitwise and> X<&>
+
+Binary C<"&"> returns its operands ANDed together bit by bit.  Although no
+warning is currently raised, the result is not well defined when this operation
+is performed on operands that aren't either numbers (see
+L<Integer Arithmetic>) nor bitstrings (see L<Bitwise String Operators>).
+
+Note that C<"&"> has lower priority than relational operators, so for example
+the parentheses are essential in a test like
+
+    print "Even\n" if ($x & 1) == 0;
+
+If the experimental "bitwise" feature is enabled via S<C<use feature
+'bitwise'>>, then this operator always treats its operand as numbers.  This
+feature produces a warning unless you also use C<S<no warnings
+'experimental::bitwise'>>.
+
+=head2 Bitwise Or and Exclusive Or
+X<operator, bitwise, or> X<bitwise or> X<|> X<operator, bitwise, xor>
+X<bitwise xor> X<^>
+
+Binary C<"|"> returns its operands ORed together bit by bit.
+
+Binary C<"^"> returns its operands XORed together bit by bit.
+
+Although no warning is currently raised, the results are not well
+defined when these operations are performed on operands that aren't either
+numbers (see L<Integer Arithmetic>) nor bitstrings (see L<Bitwise String
+Operators>).
+
+Note that C<"|"> and C<"^"> have lower priority than relational operators, so
+for example the parentheses are essential in a test like
+
+    print "false\n" if (8 | 2) != 10;
+
+If the experimental "bitwise" feature is enabled via S<C<use feature
+'bitwise'>>, then this operator always treats its operand as numbers.  This
+feature produces a warning unless you also use S<C<no warnings
+'experimental::bitwise'>>.
+
+=head2 C-style Logical And
+X<&&> X<logical and> X<operator, logical, and>
+
+Binary C<"&&"> performs a short-circuit logical AND operation.  That is,
+if the left operand is false, the right operand is not even evaluated.
+Scalar or list context propagates down to the right operand if it
+is evaluated.
+
+=head2 C-style Logical Or
+X<||> X<operator, logical, or>
+
+Binary C<"||"> performs a short-circuit logical OR operation.  That is,
+if the left operand is true, the right operand is not even evaluated.
+Scalar or list context propagates down to the right operand if it
+is evaluated.
+
+=head2 Logical Defined-Or
+X<//> X<operator, logical, defined-or>
+
+Although it has no direct equivalent in C, Perl's C<//> operator is related
+to its C-style "or".  In fact, it's exactly the same as C<||>, except that it
+tests the left hand side's definedness instead of its truth.  Thus,
+S<C<< EXPR1 // EXPR2 >>> returns the value of C<< EXPR1 >> if it's defined,
+otherwise, the value of C<< EXPR2 >> is returned.
+(C<< EXPR1 >> is evaluated in scalar context, C<< EXPR2 >>
+in the context of C<< // >> itself).  Usually,
+this is the same result as S<C<< defined(EXPR1) ? EXPR1 : EXPR2 >>> (except that
+the ternary-operator form can be used as a lvalue, while S<C<< EXPR1 // EXPR2 >>>
+cannot).  This is very useful for
+providing default values for variables.  If you actually want to test if
+at least one of C<$x> and C<$y> is defined, use S<C<defined($x // $y)>>.
+
+The C<||>, C<//> and C<&&> operators return the last value evaluated
+(unlike C's C<||> and C<&&>, which return 0 or 1).  Thus, a reasonably
+portable way to find out the home directory might be:
+
+    $home =  $ENV{HOME}
+	  // $ENV{LOGDIR}
+	  // (getpwuid($<))[7]
+	  // die "You're homeless!\n";
+
+In particular, this means that you shouldn't use this
+for selecting between two aggregates for assignment:
+
+    @a = @b || @c;            # This doesn't do the right thing
+    @a = scalar(@b) || @c;    # because it really means this.
+    @a = @b ? @b : @c;        # This works fine, though.
+
+As alternatives to C<&&> and C<||> when used for
+control flow, Perl provides the C<and> and C<or> operators (see below).
+The short-circuit behavior is identical.  The precedence of C<"and">
+and C<"or"> is much lower, however, so that you can safely use them after a
+list operator without the need for parentheses:
+
+    unlink "alpha", "beta", "gamma"
+	    or gripe(), next LINE;
+
+With the C-style operators that would have been written like this:
+
+    unlink("alpha", "beta", "gamma")
+	    || (gripe(), next LINE);
+
+It would be even more readable to write that this way:
+
+    unless(unlink("alpha", "beta", "gamma")) {
+        gripe();
+        next LINE;
+    } 
+
+Using C<"or"> for assignment is unlikely to do what you want; see below.
+
+=head2 Range Operators
+X<operator, range> X<range> X<..> X<...>
+
+Binary C<".."> is the range operator, which is really two different
+operators depending on the context.  In list context, it returns a
+list of values counting (up by ones) from the left value to the right
+value.  If the left value is greater than the right value then it
+returns the empty list.  The range operator is useful for writing
+S<C<foreach (1..10)>> loops and for doing slice operations on arrays.  In
+the current implementation, no temporary array is created when the
+range operator is used as the expression in C<foreach> loops, but older
+versions of Perl might burn a lot of memory when you write something
+like this:
+
+    for (1 .. 1_000_000) {
+	# code
+    }
+
+The range operator also works on strings, using the magical
+auto-increment, see below.
+
+In scalar context, C<".."> returns a boolean value.  The operator is
+bistable, like a flip-flop, and emulates the line-range (comma)
+operator of B<sed>, B<awk>, and various editors.  Each C<".."> operator
+maintains its own boolean state, even across calls to a subroutine
+that contains it.  It is false as long as its left operand is false.
+Once the left operand is true, the range operator stays true until the
+right operand is true, I<AFTER> which the range operator becomes false
+again.  It doesn't become false till the next time the range operator
+is evaluated.  It can test the right operand and become false on the
+same evaluation it became true (as in B<awk>), but it still returns
+true once.  If you don't want it to test the right operand until the
+next evaluation, as in B<sed>, just use three dots (C<"...">) instead of
+two.  In all other regards, C<"..."> behaves just like C<".."> does.
+
+The right operand is not evaluated while the operator is in the
+"false" state, and the left operand is not evaluated while the
+operator is in the "true" state.  The precedence is a little lower
+than || and &&.  The value returned is either the empty string for
+false, or a sequence number (beginning with 1) for true.  The sequence
+number is reset for each range encountered.  The final sequence number
+in a range has the string C<"E0"> appended to it, which doesn't affect
+its numeric value, but gives you something to search for if you want
+to exclude the endpoint.  You can exclude the beginning point by
+waiting for the sequence number to be greater than 1.
+
+If either operand of scalar C<".."> is a constant expression,
+that operand is considered true if it is equal (C<==>) to the current
+input line number (the C<$.> variable).
+
+To be pedantic, the comparison is actually S<C<int(EXPR) == int(EXPR)>>,
+but that is only an issue if you use a floating point expression; when
+implicitly using C<$.> as described in the previous paragraph, the
+comparison is S<C<int(EXPR) == int($.)>> which is only an issue when C<$.>
+is set to a floating point value and you are not reading from a file.
+Furthermore, S<C<"span" .. "spat">> or S<C<2.18 .. 3.14>> will not do what
+you want in scalar context because each of the operands are evaluated
+using their integer representation.
+
+Examples:
+
+As a scalar operator:
+
+    if (101 .. 200) { print; } # print 2nd hundred lines, short for
+                               #  if ($. == 101 .. $. == 200) { print; }
+
+    next LINE if (1 .. /^$/);  # skip header lines, short for
+                               #   next LINE if ($. == 1 .. /^$/);
+                               # (typically in a loop labeled LINE)
+
+    s/^/> / if (/^$/ .. eof());  # quote body
+
+    # parse mail messages
+    while (<>) {
+        $in_header =   1  .. /^$/;
+        $in_body   = /^$/ .. eof;
+        if ($in_header) {
+            # do something
+        } else { # in body
+            # do something else
+        }
+    } continue {
+        close ARGV if eof;             # reset $. each file
+    }
+
+Here's a simple example to illustrate the difference between
+the two range operators:
+
+    @lines = ("   - Foo",
+              "01 - Bar",
+              "1  - Baz",
+              "   - Quux");
+
+    foreach (@lines) {
+        if (/0/ .. /1/) {
+            print "$_\n";
+        }
+    }
+
+This program will print only the line containing "Bar".  If
+the range operator is changed to C<...>, it will also print the
+"Baz" line.
+
+And now some examples as a list operator:
+
+    for (101 .. 200) { print }      # print $_ 100 times
+    @foo = @foo[0 .. $#foo];        # an expensive no-op
+    @foo = @foo[$#foo-4 .. $#foo];  # slice last 5 items
+
+The range operator (in list context) makes use of the magical
+auto-increment algorithm if the operands are strings.  You
+can say
+
+    @alphabet = ("A" .. "Z");
+
+to get all normal letters of the English alphabet, or
+
+    $hexdigit = (0 .. 9, "a" .. "f")[$num & 15];
+
+to get a hexadecimal digit, or
+
+    @z2 = ("01" .. "31");
+    print $z2[$mday];
+
+to get dates with leading zeros.
+
+If the final value specified is not in the sequence that the magical
+increment would produce, the sequence goes until the next value would
+be longer than the final value specified.
+
+If the initial value specified isn't part of a magical increment
+sequence (that is, a non-empty string matching C</^[a-zA-Z]*[0-9]*\z/>),
+only the initial value will be returned.  So the following will only
+return an alpha:
+
+    use charnames "greek";
+    my @greek_small =  ("\N{alpha}" .. "\N{omega}");
+
+To get the 25 traditional lowercase Greek letters, including both sigmas,
+you could use this instead:
+
+    use charnames "greek";
+    my @greek_small =  map { chr } ( ord("\N{alpha}") 
+                                        ..
+                                     ord("\N{omega}") 
+                                   );
+
+However, because there are I<many> other lowercase Greek characters than
+just those, to match lowercase Greek characters in a regular expression,
+you could use the pattern C</(?:(?=\p{Greek})\p{Lower})+/> (or the
+L<experimental feature|perlrecharclass/Extended Bracketed Character
+Classes> C<S</(?[ \p{Greek} & \p{Lower} ])+/>>).
+
+Because each operand is evaluated in integer form, S<C<2.18 .. 3.14>> will
+return two elements in list context.
+
+    @list = (2.18 .. 3.14); # same as @list = (2 .. 3);
+
+=head2 Conditional Operator
+X<operator, conditional> X<operator, ternary> X<ternary> X<?:>
+
+Ternary C<"?:"> is the conditional operator, just as in C.  It works much
+like an if-then-else.  If the argument before the C<?> is true, the
+argument before the C<:> is returned, otherwise the argument after the
+C<:> is returned.  For example:
+
+    printf "I have %d dog%s.\n", $n,
+	    ($n == 1) ? "" : "s";
+
+Scalar or list context propagates downward into the 2nd
+or 3rd argument, whichever is selected.
+
+    $x = $ok ? $y : $z;  # get a scalar
+    @x = $ok ? @y : @z;  # get an array
+    $x = $ok ? @y : @z;  # oops, that's just a count!
+
+The operator may be assigned to if both the 2nd and 3rd arguments are
+legal lvalues (meaning that you can assign to them):
+
+    ($x_or_y ? $x : $y) = $z;
+
+Because this operator produces an assignable result, using assignments
+without parentheses will get you in trouble.  For example, this:
+
+    $x % 2 ? $x += 10 : $x += 2
+
+Really means this:
+
+    (($x % 2) ? ($x += 10) : $x) += 2
+
+Rather than this:
+
+    ($x % 2) ? ($x += 10) : ($x += 2)
+
+That should probably be written more simply as:
+
+    $x += ($x % 2) ? 10 : 2;
+
+=head2 Assignment Operators
+X<assignment> X<operator, assignment> X<=> X<**=> X<+=> X<*=> X<&=>
+X<<< <<= >>> X<&&=> X<-=> X</=> X<|=> X<<< >>= >>> X<||=> X<//=> X<.=>
+X<%=> X<^=> X<x=> X<&.=> X<|.=> X<^.=>
+
+C<"="> is the ordinary assignment operator.
+
+Assignment operators work as in C.  That is,
+
+    $x += 2;
+
+is equivalent to
+
+    $x = $x + 2;
+
+although without duplicating any side effects that dereferencing the lvalue
+might trigger, such as from C<tie()>.  Other assignment operators work similarly.
+The following are recognized:
+
+    **=    +=    *=    &=    &.=    <<=    &&=
+           -=    /=    |=    |.=    >>=    ||=
+           .=    %=    ^=    ^.=           //=
+                 x=
+
+Although these are grouped by family, they all have the precedence
+of assignment.  These combined assignment operators can only operate on
+scalars, whereas the ordinary assignment operator can assign to arrays,
+hashes, lists and even references.  (See L<"Context"|perldata/Context>
+and L<perldata/List value constructors>, and L<perlref/Assigning to
+References>.)
+
+Unlike in C, the scalar assignment operator produces a valid lvalue.
+Modifying an assignment is equivalent to doing the assignment and
+then modifying the variable that was assigned to.  This is useful
+for modifying a copy of something, like this:
+
+    ($tmp = $global) =~ tr/13579/24680/;
+
+Although as of 5.14, that can be also be accomplished this way:
+
+    use v5.14;
+    $tmp = ($global =~  tr/13579/24680/r);
+
+Likewise,
+
+    ($x += 2) *= 3;
+
+is equivalent to
+
+    $x += 2;
+    $x *= 3;
+
+Similarly, a list assignment in list context produces the list of
+lvalues assigned to, and a list assignment in scalar context returns
+the number of elements produced by the expression on the right hand
+side of the assignment.
+
+The three dotted bitwise assignment operators (C<&.=> C<|.=> C<^.=>) are new in
+Perl 5.22 and experimental.  See L</Bitwise String Operators>.
+
+=head2 Comma Operator
+X<comma> X<operator, comma> X<,>
+
+Binary C<","> is the comma operator.  In scalar context it evaluates
+its left argument, throws that value away, then evaluates its right
+argument and returns that value.  This is just like C's comma operator.
+
+In list context, it's just the list argument separator, and inserts
+both its arguments into the list.  These arguments are also evaluated
+from left to right.
+
+The C<< => >> operator (sometimes pronounced "fat comma") is a synonym
+for the comma except that it causes a
+word on its left to be interpreted as a string if it begins with a letter
+or underscore and is composed only of letters, digits and underscores.
+This includes operands that might otherwise be interpreted as operators,
+constants, single number v-strings or function calls.  If in doubt about
+this behavior, the left operand can be quoted explicitly.
+
+Otherwise, the C<< => >> operator behaves exactly as the comma operator
+or list argument separator, according to context.
+
+For example:
+
+    use constant FOO => "something";
+
+    my %h = ( FOO => 23 );
+
+is equivalent to:
+
+    my %h = ("FOO", 23);
+
+It is I<NOT>:
+
+    my %h = ("something", 23);
+
+The C<< => >> operator is helpful in documenting the correspondence
+between keys and values in hashes, and other paired elements in lists.
+
+    %hash = ( $key => $value );
+    login( $username => $password );
+
+The special quoting behavior ignores precedence, and hence may apply to
+I<part> of the left operand:
+
+    print time.shift => "bbb";
+
+That example prints something like C<"1314363215shiftbbb">, because the
+C<< => >> implicitly quotes the C<shift> immediately on its left, ignoring
+the fact that C<time.shift> is the entire left operand.
+
+=head2 List Operators (Rightward)
+X<operator, list, rightward> X<list operator>
+
+On the right side of a list operator, the comma has very low precedence,
+such that it controls all comma-separated expressions found there.
+The only operators with lower precedence are the logical operators
+C<"and">, C<"or">, and C<"not">, which may be used to evaluate calls to list
+operators without the need for parentheses:
+
+    open HANDLE, "< :utf8", "filename" or die "Can't open: $!\n";
+
+However, some people find that code harder to read than writing
+it with parentheses:
+
+    open(HANDLE, "< :utf8", "filename") or die "Can't open: $!\n";
+
+in which case you might as well just use the more customary C<"||"> operator:
+
+    open(HANDLE, "< :utf8", "filename") || die "Can't open: $!\n";
+
+See also discussion of list operators in L</Terms and List Operators (Leftward)>.
+
+=head2 Logical Not
+X<operator, logical, not> X<not>
+
+Unary C<"not"> returns the logical negation of the expression to its right.
+It's the equivalent of C<"!"> except for the very low precedence.
+
+=head2 Logical And
+X<operator, logical, and> X<and>
+
+Binary C<"and"> returns the logical conjunction of the two surrounding
+expressions.  It's equivalent to C<&&> except for the very low
+precedence.  This means that it short-circuits: the right
+expression is evaluated only if the left expression is true.
+
+=head2 Logical or and Exclusive Or
+X<operator, logical, or> X<operator, logical, xor>
+X<operator, logical, exclusive or>
+X<or> X<xor>
+
+Binary C<"or"> returns the logical disjunction of the two surrounding
+expressions.  It's equivalent to C<||> except for the very low precedence.
+This makes it useful for control flow:
+
+    print FH $data		or die "Can't write to FH: $!";
+
+This means that it short-circuits: the right expression is evaluated
+only if the left expression is false.  Due to its precedence, you must
+be careful to avoid using it as replacement for the C<||> operator.
+It usually works out better for flow control than in assignments:
+
+    $x = $y or $z;              # bug: this is wrong
+    ($x = $y) or $z;            # really means this
+    $x = $y || $z;              # better written this way
+
+However, when it's a list-context assignment and you're trying to use
+C<||> for control flow, you probably need C<"or"> so that the assignment
+takes higher precedence.
+
+    @info = stat($file) || die;     # oops, scalar sense of stat!
+    @info = stat($file) or die;     # better, now @info gets its due
+
+Then again, you could always use parentheses.
+
+Binary C<"xor"> returns the exclusive-OR of the two surrounding expressions.
+It cannot short-circuit (of course).
+
+There is no low precedence operator for defined-OR.
+
+=head2 C Operators Missing From Perl
+X<operator, missing from perl> X<&> X<*>
+X<typecasting> X<(TYPE)>
+
+Here is what C has that Perl doesn't:
+
+=over 8
+
+=item unary &
+
+Address-of operator.  (But see the C<"\"> operator for taking a reference.)
+
+=item unary *
+
+Dereference-address operator.  (Perl's prefix dereferencing
+operators are typed: C<$>, C<@>, C<%>, and C<&>.)
+
+=item (TYPE)
+
+Type-casting operator.
+
+=back
+
+=head2 Quote and Quote-like Operators
+X<operator, quote> X<operator, quote-like> X<q> X<qq> X<qx> X<qw> X<m>
+X<qr> X<s> X<tr> X<'> X<''> X<"> X<""> X<//> X<`> X<``> X<<< << >>>
+X<escape sequence> X<escape>
+
+While we usually think of quotes as literal values, in Perl they
+function as operators, providing various kinds of interpolating and
+pattern matching capabilities.  Perl provides customary quote characters
+for these behaviors, but also provides a way for you to choose your
+quote character for any of them.  In the following table, a C<{}> represents
+any pair of delimiters you choose.
+
+    Customary  Generic        Meaning	     Interpolates
+	''	 q{}	      Literal		  no
+	""	qq{}	      Literal		  yes
+	``	qx{}	      Command		  yes*
+		qw{}	     Word list		  no
+	//	 m{}	   Pattern match	  yes*
+		qr{}	      Pattern		  yes*
+		 s{}{}	    Substitution	  yes*
+		tr{}{}	  Transliteration	  no (but see below)
+		 y{}{}	  Transliteration	  no (but see below)
+        <<EOF                 here-doc            yes*
+
+	* unless the delimiter is ''.
+
+Non-bracketing delimiters use the same character fore and aft, but the four
+sorts of ASCII brackets (round, angle, square, curly) all nest, which means
+that
+
+    q{foo{bar}baz}
+
+is the same as
+
+    'foo{bar}baz'
+
+Note, however, that this does not always work for quoting Perl code:
+
+    $s = q{ if($x eq "}") ... }; # WRONG
+
+is a syntax error.  The C<L<Text::Balanced>> module (standard as of v5.8,
+and from CPAN before then) is able to do this properly.
+
+There can be whitespace between the operator and the quoting
+characters, except when C<#> is being used as the quoting character.
+C<q#foo#> is parsed as the string C<foo>, while S<C<q #foo#>> is the
+operator C<q> followed by a comment.  Its argument will be taken
+from the next line.  This allows you to write:
+
+    s {foo}  # Replace foo
+      {bar}  # with bar.
+
+The following escape sequences are available in constructs that interpolate,
+and in transliterations:
+X<\t> X<\n> X<\r> X<\f> X<\b> X<\a> X<\e> X<\x> X<\0> X<\c> X<\N> X<\N{}>
+X<\o{}>
+
+    Sequence     Note  Description
+    \t                  tab               (HT, TAB)
+    \n                  newline           (NL)
+    \r                  return            (CR)
+    \f                  form feed         (FF)
+    \b                  backspace         (BS)
+    \a                  alarm (bell)      (BEL)
+    \e                  escape            (ESC)
+    \x{263A}     [1,8]  hex char          (example: SMILEY)
+    \x1b         [2,8]  restricted range hex char (example: ESC)
+    \N{name}     [3]    named Unicode character or character sequence
+    \N{U+263D}   [4,8]  Unicode character (example: FIRST QUARTER MOON)
+    \c[          [5]    control char      (example: chr(27))
+    \o{23072}    [6,8]  octal char        (example: SMILEY)
+    \033         [7,8]  restricted range octal char  (example: ESC)
+
+=over 4
+
+=item [1]
+
+The result is the character specified by the hexadecimal number between
+the braces.  See L</[8]> below for details on which character.
+
+Only hexadecimal digits are valid between the braces.  If an invalid
+character is encountered, a warning will be issued and the invalid
+character and all subsequent characters (valid or invalid) within the
+braces will be discarded.
+
+If there are no valid digits between the braces, the generated character is
+the NULL character (C<\x{00}>).  However, an explicit empty brace (C<\x{}>)
+will not cause a warning (currently).
+
+=item [2]
+
+The result is the character specified by the hexadecimal number in the range
+0x00 to 0xFF.  See L</[8]> below for details on which character.
+
+Only hexadecimal digits are valid following C<\x>.  When C<\x> is followed
+by fewer than two valid digits, any valid digits will be zero-padded.  This
+means that C<\x7> will be interpreted as C<\x07>, and a lone C<"\x"> will be
+interpreted as C<\x00>.  Except at the end of a string, having fewer than
+two valid digits will result in a warning.  Note that although the warning
+says the illegal character is ignored, it is only ignored as part of the
+escape and will still be used as the subsequent character in the string.
+For example:
+
+  Original    Result    Warns?
+  "\x7"       "\x07"    no
+  "\x"        "\x00"    no
+  "\x7q"      "\x07q"   yes
+  "\xq"       "\x00q"   yes
+
+=item [3]
+
+The result is the Unicode character or character sequence given by I<name>.
+See L<charnames>.
+
+=item [4]
+
+S<C<\N{U+I<hexadecimal number>}>> means the Unicode character whose Unicode code
+point is I<hexadecimal number>.
+
+=item [5]
+
+The character following C<\c> is mapped to some other character as shown in the
+table:
+
+ Sequence   Value
+   \c@      chr(0)
+   \cA      chr(1)
+   \ca      chr(1)
+   \cB      chr(2)
+   \cb      chr(2)
+   ...
+   \cZ      chr(26)
+   \cz      chr(26)
+   \c[      chr(27)
+                     # See below for chr(28)
+   \c]      chr(29)
+   \c^      chr(30)
+   \c_      chr(31)
+   \c?      chr(127) # (on ASCII platforms; see below for link to
+                     #  EBCDIC discussion)
+
+In other words, it's the character whose code point has had 64 xor'd with
+its uppercase.  C<\c?> is DELETE on ASCII platforms because
+S<C<ord("?") ^ 64>> is 127, and
+C<\c@> is NULL because the ord of C<"@"> is 64, so xor'ing 64 itself produces 0.
+
+Also, C<\c\I<X>> yields S<C< chr(28) . "I<X>">> for any I<X>, but cannot come at the
+end of a string, because the backslash would be parsed as escaping the end
+quote.
+
+On ASCII platforms, the resulting characters from the list above are the
+complete set of ASCII controls.  This isn't the case on EBCDIC platforms; see
+L<perlebcdic/OPERATOR DIFFERENCES> for a full discussion of the
+differences between these for ASCII versus EBCDIC platforms.
+
+Use of any other character following the C<"c"> besides those listed above is
+discouraged, and as of Perl v5.20, the only characters actually allowed
+are the printable ASCII ones, minus the left brace C<"{">.  What happens
+for any of the allowed other characters is that the value is derived by
+xor'ing with the seventh bit, which is 64, and a warning raised if
+enabled.  Using the non-allowed characters generates a fatal error.
+
+To get platform independent controls, you can use C<\N{...}>.
+
+=item [6]
+
+The result is the character specified by the octal number between the braces.
+See L</[8]> below for details on which character.
+
+If a character that isn't an octal digit is encountered, a warning is raised,
+and the value is based on the octal digits before it, discarding it and all
+following characters up to the closing brace.  It is a fatal error if there are
+no octal digits at all.
+
+=item [7]
+
+The result is the character specified by the three-digit octal number in the
+range 000 to 777 (but best to not use above 077, see next paragraph).  See
+L</[8]> below for details on which character.
+
+Some contexts allow 2 or even 1 digit, but any usage without exactly
+three digits, the first being a zero, may give unintended results.  (For
+example, in a regular expression it may be confused with a backreference;
+see L<perlrebackslash/Octal escapes>.)  Starting in Perl 5.14, you may
+use C<\o{}> instead, which avoids all these problems.  Otherwise, it is best to
+use this construct only for ordinals C<\077> and below, remembering to pad to
+the left with zeros to make three digits.  For larger ordinals, either use
+C<\o{}>, or convert to something else, such as to hex and use C<\N{U+}>
+(which is portable between platforms with different character sets) or
+C<\x{}> instead.
+
+=item [8]
+
+Several constructs above specify a character by a number.  That number
+gives the character's position in the character set encoding (indexed from 0).
+This is called synonymously its ordinal, code position, or code point.  Perl
+works on platforms that have a native encoding currently of either ASCII/Latin1
+or EBCDIC, each of which allow specification of 256 characters.  In general, if
+the number is 255 (0xFF, 0377) or below, Perl interprets this in the platform's
+native encoding.  If the number is 256 (0x100, 0400) or above, Perl interprets
+it as a Unicode code point and the result is the corresponding Unicode
+character.  For example C<\x{50}> and C<\o{120}> both are the number 80 in
+decimal, which is less than 256, so the number is interpreted in the native
+character set encoding.  In ASCII the character in the 80th position (indexed
+from 0) is the letter C<"P">, and in EBCDIC it is the ampersand symbol C<"&">.
+C<\x{100}> and C<\o{400}> are both 256 in decimal, so the number is interpreted
+as a Unicode code point no matter what the native encoding is.  The name of the
+character in the 256th position (indexed by 0) in Unicode is
+C<LATIN CAPITAL LETTER A WITH MACRON>.
+
+There are a couple of exceptions to the above rule.  S<C<\N{U+I<hex number>}>> is
+always interpreted as a Unicode code point, so that C<\N{U+0050}> is C<"P"> even
+on EBCDIC platforms.  And if C<S<L<use encoding|encoding>>> is in effect, the
+number is considered to be in that encoding, and is translated from that into
+the platform's native encoding if there is a corresponding native character;
+otherwise to Unicode.
+
+=back
+
+B<NOTE>: Unlike C and other languages, Perl has no C<\v> escape sequence for
+the vertical tab (VT, which is 11 in both ASCII and EBCDIC), but you may
+use C<\N{VT}>, C<\ck>, C<\N{U+0b}>, or C<\x0b>.  (C<\v>
+does have meaning in regular expression patterns in Perl, see L<perlre>.)
+
+The following escape sequences are available in constructs that interpolate,
+but not in transliterations.
+X<\l> X<\u> X<\L> X<\U> X<\E> X<\Q> X<\F>
+
+    \l		lowercase next character only
+    \u		titlecase (not uppercase!) next character only
+    \L		lowercase all characters till \E or end of string
+    \U		uppercase all characters till \E or end of string
+    \F		foldcase all characters till \E or end of string
+    \Q          quote (disable) pattern metacharacters till \E or
+                end of string
+    \E		end either case modification or quoted section
+		(whichever was last seen)
+
+See L<perlfunc/quotemeta> for the exact definition of characters that
+are quoted by C<\Q>.
+
+C<\L>, C<\U>, C<\F>, and C<\Q> can stack, in which case you need one
+C<\E> for each.  For example:
+
+ say"This \Qquoting \ubusiness \Uhere isn't quite\E done yet,\E is it?";
+ This quoting\ Business\ HERE\ ISN\'T\ QUITE\ done\ yet\, is it?
+
+If a S<C<use locale>> form that includes C<LC_CTYPE> is in effect (see
+L<perllocale>), the case map used by C<\l>, C<\L>, C<\u>, and C<\U> is
+taken from the current locale.  If Unicode (for example, C<\N{}> or code
+points of 0x100 or beyond) is being used, the case map used by C<\l>,
+C<\L>, C<\u>, and C<\U> is as defined by Unicode.  That means that
+case-mapping a single character can sometimes produce a sequence of
+several characters.
+Under S<C<use locale>>, C<\F> produces the same results as C<\L>
+for all locales but a UTF-8 one, where it instead uses the Unicode
+definition.
+
+All systems use the virtual C<"\n"> to represent a line terminator,
+called a "newline".  There is no such thing as an unvarying, physical
+newline character.  It is only an illusion that the operating system,
+device drivers, C libraries, and Perl all conspire to preserve.  Not all
+systems read C<"\r"> as ASCII CR and C<"\n"> as ASCII LF.  For example,
+on the ancient Macs (pre-MacOS X) of yesteryear, these used to be reversed,
+and on systems without a line terminator,
+printing C<"\n"> might emit no actual data.  In general, use C<"\n"> when
+you mean a "newline" for your system, but use the literal ASCII when you
+need an exact character.  For example, most networking protocols expect
+and prefer a CR+LF (C<"\015\012"> or C<"\cM\cJ">) for line terminators,
+and although they often accept just C<"\012">, they seldom tolerate just
+C<"\015">.  If you get in the habit of using C<"\n"> for networking,
+you may be burned some day.
+X<newline> X<line terminator> X<eol> X<end of line>
+X<\n> X<\r> X<\r\n>
+
+For constructs that do interpolate, variables beginning with "C<$>"
+or "C<@>" are interpolated.  Subscripted variables such as C<$a[3]> or
+C<< $href->{key}[0] >> are also interpolated, as are array and hash slices.
+But method calls such as C<< $obj->meth >> are not.
+
+Interpolating an array or slice interpolates the elements in order,
+separated by the value of C<$">, so is equivalent to interpolating
+S<C<join $", @array>>.  "Punctuation" arrays such as C<@*> are usually
+interpolated only if the name is enclosed in braces C<@{*}>, but the
+arrays C<@_>, C<@+>, and C<@-> are interpolated even without braces.
+
+For double-quoted strings, the quoting from C<\Q> is applied after
+interpolation and escapes are processed.
+
+    "abc\Qfoo\tbar$s\Exyz"
+
+is equivalent to
+
+    "abc" . quotemeta("foo\tbar$s") . "xyz"
+
+For the pattern of regex operators (C<qr//>, C<m//> and C<s///>),
+the quoting from C<\Q> is applied after interpolation is processed,
+but before escapes are processed.  This allows the pattern to match
+literally (except for C<$> and C<@>).  For example, the following matches:
+
+    '\s\t' =~ /\Q\s\t/
+
+Because C<$> or C<@> trigger interpolation, you'll need to use something
+like C</\Quser\E\@\Qhost/> to match them literally.
+
+Patterns are subject to an additional level of interpretation as a
+regular expression.  This is done as a second pass, after variables are
+interpolated, so that regular expressions may be incorporated into the
+pattern from the variables.  If this is not what you want, use C<\Q> to
+interpolate a variable literally.
+
+Apart from the behavior described above, Perl does not expand
+multiple levels of interpolation.  In particular, contrary to the
+expectations of shell programmers, back-quotes do I<NOT> interpolate
+within double quotes, nor do single quotes impede evaluation of
+variables when used within double quotes.
+
+=head2 Regexp Quote-Like Operators
+X<operator, regexp>
+
+Here are the quote-like operators that apply to pattern
+matching and related activities.
+
+=over 8
+
+=item C<qr/I<STRING>/msixpodualn>
+X<qr> X</i> X</m> X</o> X</s> X</x> X</p>
+
+This operator quotes (and possibly compiles) its I<STRING> as a regular
+expression.  I<STRING> is interpolated the same way as I<PATTERN>
+in C<m/I<PATTERN>/>.  If C<"'"> is used as the delimiter, no interpolation
+is done.  Returns a Perl value which may be used instead of the
+corresponding C</I<STRING>/msixpodualn> expression.  The returned value is a
+normalized version of the original pattern.  It magically differs from
+a string containing the same characters: C<ref(qr/x/)> returns "Regexp";
+however, dereferencing it is not well defined (you currently get the 
+normalized version of the original pattern, but this may change).
+
+
+For example,
+
+    $rex = qr/my.STRING/is;
+    print $rex;                 # prints (?si-xm:my.STRING)
+    s/$rex/foo/;
+
+is equivalent to
+
+    s/my.STRING/foo/is;
+
+The result may be used as a subpattern in a match:
+
+    $re = qr/$pattern/;
+    $string =~ /foo${re}bar/;	# can be interpolated in other
+                                # patterns
+    $string =~ $re;		# or used standalone
+    $string =~ /$re/;		# or this way
+
+Since Perl may compile the pattern at the moment of execution of the C<qr()>
+operator, using C<qr()> may have speed advantages in some situations,
+notably if the result of C<qr()> is used standalone:
+
+    sub match {
+	my $patterns = shift;
+	my @compiled = map qr/$_/i, @$patterns;
+	grep {
+	    my $success = 0;
+	    foreach my $pat (@compiled) {
+		$success = 1, last if /$pat/;
+	    }
+	    $success;
+	} @_;
+    }
+
+Precompilation of the pattern into an internal representation at
+the moment of C<qr()> avoids the need to recompile the pattern every
+time a match C</$pat/> is attempted.  (Perl has many other internal
+optimizations, but none would be triggered in the above example if
+we did not use C<qr()> operator.)
+
+Options (specified by the following modifiers) are:
+
+    m	Treat string as multiple lines.
+    s	Treat string as single line. (Make . match a newline)
+    i	Do case-insensitive pattern matching.
+    x	Use extended regular expressions.
+    p	When matching preserve a copy of the matched string so
+        that ${^PREMATCH}, ${^MATCH}, ${^POSTMATCH} will be
+        defined (ignored starting in v5.20) as these are always
+        defined starting in that relese
+    o	Compile pattern only once.
+    a   ASCII-restrict: Use ASCII for \d, \s, \w; specifying two
+        a's further restricts things to that that no ASCII
+        character will match a non-ASCII one under /i.
+    l   Use the current run-time locale's rules.
+    u   Use Unicode rules.
+    d   Use Unicode or native charset, as in 5.12 and earlier.
+    n   Non-capture mode. Don't let () fill in $1, $2, etc...
+
+If a precompiled pattern is embedded in a larger pattern then the effect
+of C<"msixpluadn"> will be propagated appropriately.  The effect that the
+C</o> modifier has is not propagated, being restricted to those patterns
+explicitly using it.
+
+The last four modifiers listed above, added in Perl 5.14,
+control the character set rules, but C</a> is the only one you are likely
+to want to specify explicitly; the other three are selected
+automatically by various pragmas.
+
+See L<perlre> for additional information on valid syntax for I<STRING>, and
+for a detailed look at the semantics of regular expressions.  In
+particular, all modifiers except the largely obsolete C</o> are further
+explained in L<perlre/Modifiers>.  C</o> is described in the next section.
+
+=item C<m/I<PATTERN>/msixpodualngc>
+X<m> X<operator, match>
+X<regexp, options> X<regexp> X<regex, options> X<regex>
+X</m> X</s> X</i> X</x> X</p> X</o> X</g> X</c>
+
+=item C</I<PATTERN>/msixpodualngc>
+
+Searches a string for a pattern match, and in scalar context returns
+true if it succeeds, false if it fails.  If no string is specified
+via the C<=~> or C<!~> operator, the C<$_> string is searched.  (The
+string specified with C<=~> need not be an lvalue--it may be the
+result of an expression evaluation, but remember the C<=~> binds
+rather tightly.)  See also L<perlre>.
+
+Options are as described in C<qr//> above; in addition, the following match
+process modifiers are available:
+
+ g  Match globally, i.e., find all occurrences.
+ c  Do not reset search position on a failed match when /g is
+    in effect.
+
+If C<"/"> is the delimiter then the initial C<m> is optional.  With the C<m>
+you can use any pair of non-whitespace (ASCII) characters
+as delimiters.  This is particularly useful for matching path names
+that contain C<"/">, to avoid LTS (leaning toothpick syndrome).  If C<"?"> is
+the delimiter, then a match-only-once rule applies,
+described in C<m?I<PATTERN>?> below.  If C<"'"> (single quote) is the delimiter,
+no interpolation is performed on the I<PATTERN>.
+When using a delimiter character valid in an identifier, whitespace is required
+after the C<m>.
+
+I<PATTERN> may contain variables, which will be interpolated
+every time the pattern search is evaluated, except
+for when the delimiter is a single quote.  (Note that C<$(>, C<$)>, and
+C<$|> are not interpolated because they look like end-of-string tests.)
+Perl will not recompile the pattern unless an interpolated
+variable that it contains changes.  You can force Perl to skip the
+test and never recompile by adding a C</o> (which stands for "once")
+after the trailing delimiter.
+Once upon a time, Perl would recompile regular expressions
+unnecessarily, and this modifier was useful to tell it not to do so, in the
+interests of speed.  But now, the only reasons to use C</o> are one of:
+
+=over
+
+=item 1
+
+The variables are thousands of characters long and you know that they
+don't change, and you need to wring out the last little bit of speed by
+having Perl skip testing for that.  (There is a maintenance penalty for
+doing this, as mentioning C</o> constitutes a promise that you won't
+change the variables in the pattern.  If you do change them, Perl won't
+even notice.)
+
+=item 2
+
+you want the pattern to use the initial values of the variables
+regardless of whether they change or not.  (But there are saner ways
+of accomplishing this than using C</o>.)
+
+=item 3
+
+If the pattern contains embedded code, such as
+
+    use re 'eval';
+    $code = 'foo(?{ $x })';
+    /$code/
+
+then perl will recompile each time, even though the pattern string hasn't
+changed, to ensure that the current value of C<$x> is seen each time.
+Use C</o> if you want to avoid this.
+
+=back
+
+The bottom line is that using C</o> is almost never a good idea.
+
+=item The empty pattern C<//>
+
+If the I<PATTERN> evaluates to the empty string, the last
+I<successfully> matched regular expression is used instead.  In this
+case, only the C<g> and C<c> flags on the empty pattern are honored;
+the other flags are taken from the original pattern.  If no match has
+previously succeeded, this will (silently) act instead as a genuine
+empty pattern (which will always match).
+
+Note that it's possible to confuse Perl into thinking C<//> (the empty
+regex) is really C<//> (the defined-or operator).  Perl is usually pretty
+good about this, but some pathological cases might trigger this, such as
+C<$x///> (is that S<C<($x) / (//)>> or S<C<$x // />>?) and S<C<print $fh //>>
+(S<C<print $fh(//>> or S<C<print($fh //>>?).  In all of these examples, Perl
+will assume you meant defined-or.  If you meant the empty regex, just
+use parentheses or spaces to disambiguate, or even prefix the empty
+regex with an C<m> (so C<//> becomes C<m//>).
+
+=item Matching in list context
+
+If the C</g> option is not used, C<m//> in list context returns a
+list consisting of the subexpressions matched by the parentheses in the
+pattern, that is, (C<$1>, C<$2>, C<$3>...)  (Note that here C<$1> etc. are
+also set).  When there are no parentheses in the pattern, the return
+value is the list C<(1)> for success.  
+With or without parentheses, an empty list is returned upon failure.
+
+Examples:
+
+ open(TTY, "+</dev/tty")
+    || die "can't access /dev/tty: $!";
+
+ <TTY> =~ /^y/i && foo();	# do foo if desired
+
+ if (/Version: *([0-9.]*)/) { $version = $1; }
+
+ next if m#^/usr/spool/uucp#;
+
+ # poor man's grep
+ $arg = shift;
+ while (<>) {
+    print if /$arg/o; # compile only once (no longer needed!)
+ }
+
+ if (($F1, $F2, $Etc) = ($foo =~ /^(\S+)\s+(\S+)\s*(.*)/))
+
+This last example splits C<$foo> into the first two words and the
+remainder of the line, and assigns those three fields to C<$F1>, C<$F2>, and
+C<$Etc>.  The conditional is true if any variables were assigned; that is,
+if the pattern matched.
+
+The C</g> modifier specifies global pattern matching--that is,
+matching as many times as possible within the string.  How it behaves
+depends on the context.  In list context, it returns a list of the
+substrings matched by any capturing parentheses in the regular
+expression.  If there are no parentheses, it returns a list of all
+the matched strings, as if there were parentheses around the whole
+pattern.
+
+In scalar context, each execution of C<m//g> finds the next match,
+returning true if it matches, and false if there is no further match.
+The position after the last match can be read or set using the C<pos()>
+function; see L<perlfunc/pos>.  A failed match normally resets the
+search position to the beginning of the string, but you can avoid that
+by adding the C</c> modifier (for example, C<m//gc>).  Modifying the target
+string also resets the search position.
+
+=item C<\G I<assertion>>
+
+You can intermix C<m//g> matches with C<m/\G.../g>, where C<\G> is a
+zero-width assertion that matches the exact position where the
+previous C<m//g>, if any, left off.  Without the C</g> modifier, the
+C<\G> assertion still anchors at C<pos()> as it was at the start of
+the operation (see L<perlfunc/pos>), but the match is of course only
+attempted once.  Using C<\G> without C</g> on a target string that has
+not previously had a C</g> match applied to it is the same as using
+the C<\A> assertion to match the beginning of the string.  Note also
+that, currently, C<\G> is only properly supported when anchored at the
+very beginning of the pattern.
+
+Examples:
+
+    # list context
+    ($one,$five,$fifteen) = (`uptime` =~ /(\d+\.\d+)/g);
+
+    # scalar context
+    local $/ = "";
+    while ($paragraph = <>) {
+	while ($paragraph =~ /\p{Ll}['")]*[.!?]+['")]*\s/g) {
+	    $sentences++;
+	}
+    }
+    say $sentences;
+
+Here's another way to check for sentences in a paragraph:
+
+ my $sentence_rx = qr{
+    (?: (?<= ^ ) | (?<= \s ) )  # after start-of-string or
+                                # whitespace
+    \p{Lu}                      # capital letter
+    .*?                         # a bunch of anything
+    (?<= \S )                   # that ends in non-
+                                # whitespace
+    (?<! \b [DMS]r  )           # but isn't a common abbr.
+    (?<! \b Mrs )
+    (?<! \b Sra )
+    (?<! \b St  )
+    [.?!]                       # followed by a sentence
+                                # ender
+    (?= $ | \s )                # in front of end-of-string
+                                # or whitespace
+ }sx;
+ local $/ = "";
+ while (my $paragraph = <>) {
+    say "NEW PARAGRAPH";
+    my $count = 0;
+    while ($paragraph =~ /($sentence_rx)/g) {
+        printf "\tgot sentence %d: <%s>\n", ++$count, $1;
+    }
+ }
+
+Here's how to use C<m//gc> with C<\G>:
+
+    $_ = "ppooqppqq";
+    while ($i++ < 2) {
+        print "1: '";
+        print $1 while /(o)/gc; print "', pos=", pos, "\n";
+        print "2: '";
+        print $1 if /\G(q)/gc;  print "', pos=", pos, "\n";
+        print "3: '";
+        print $1 while /(p)/gc; print "', pos=", pos, "\n";
+    }
+    print "Final: '$1', pos=",pos,"\n" if /\G(.)/;
+
+The last example should print:
+
+    1: 'oo', pos=4
+    2: 'q', pos=5
+    3: 'pp', pos=7
+    1: '', pos=7
+    2: 'q', pos=8
+    3: '', pos=8
+    Final: 'q', pos=8
+
+Notice that the final match matched C<q> instead of C<p>, which a match
+without the C<\G> anchor would have done.  Also note that the final match
+did not update C<pos>.  C<pos> is only updated on a C</g> match.  If the
+final match did indeed match C<p>, it's a good bet that you're running a
+very old (pre-5.6.0) version of Perl.
+
+A useful idiom for C<lex>-like scanners is C</\G.../gc>.  You can
+combine several regexps like this to process a string part-by-part,
+doing different actions depending on which regexp matched.  Each
+regexp tries to match where the previous one leaves off.
+
+ $_ = <<'EOL';
+    $url = URI::URL->new( "http://example.com/" );
+    die if $url eq "xXx";
+ EOL
+
+ LOOP: {
+     print(" digits"),       redo LOOP if /\G\d+\b[,.;]?\s*/gc;
+     print(" lowercase"),    redo LOOP
+                                    if /\G\p{Ll}+\b[,.;]?\s*/gc;
+     print(" UPPERCASE"),    redo LOOP
+                                    if /\G\p{Lu}+\b[,.;]?\s*/gc;
+     print(" Capitalized"),  redo LOOP
+                              if /\G\p{Lu}\p{Ll}+\b[,.;]?\s*/gc;
+     print(" MiXeD"),        redo LOOP if /\G\pL+\b[,.;]?\s*/gc;
+     print(" alphanumeric"), redo LOOP
+                            if /\G[\p{Alpha}\pN]+\b[,.;]?\s*/gc;
+     print(" line-noise"),   redo LOOP if /\G\W+/gc;
+     print ". That's all!\n";
+ }
+
+Here is the output (split into several lines):
+
+ line-noise lowercase line-noise UPPERCASE line-noise UPPERCASE
+ line-noise lowercase line-noise lowercase line-noise lowercase
+ lowercase line-noise lowercase lowercase line-noise lowercase
+ lowercase line-noise MiXeD line-noise. That's all!
+
+=item C<m?I<PATTERN>?msixpodualngc>
+X<?> X<operator, match-once>
+
+=item C<?I<PATTERN>?msixpodualngc>
+
+This is just like the C<m/I<PATTERN>/> search, except that it matches
+only once between calls to the C<reset()> operator.  This is a useful
+optimization when you want to see only the first occurrence of
+something in each file of a set of files, for instance.  Only C<m??>
+patterns local to the current package are reset.
+
+    while (<>) {
+	if (m?^$?) {
+			    # blank line between header and body
+	}
+    } continue {
+	reset if eof;	    # clear m?? status for next file
+    }
+
+Another example switched the first "latin1" encoding it finds
+to "utf8" in a pod file:
+
+    s//utf8/ if m? ^ =encoding \h+ \K latin1 ?x;
+
+The match-once behavior is controlled by the match delimiter being
+C<?>; with any other delimiter this is the normal C<m//> operator.
+
+In the past, the leading C<m> in C<m?I<PATTERN>?> was optional, but omitting it
+would produce a deprecation warning.  As of v5.22.0, omitting it produces a
+syntax error.  If you encounter this construct in older code, you can just add
+C<m>.
+
+=item C<s/I<PATTERN>/I<REPLACEMENT>/msixpodualngcer>
+X<substitute> X<substitution> X<replace> X<regexp, replace>
+X<regexp, substitute> X</m> X</s> X</i> X</x> X</p> X</o> X</g> X</c> X</e> X</r>
+
+Searches a string for a pattern, and if found, replaces that pattern
+with the replacement text and returns the number of substitutions
+made.  Otherwise it returns false (specifically, the empty string).
+
+If the C</r> (non-destructive) option is used then it runs the
+substitution on a copy of the string and instead of returning the
+number of substitutions, it returns the copy whether or not a
+substitution occurred.  The original string is never changed when
+C</r> is used.  The copy will always be a plain string, even if the
+input is an object or a tied variable.
+
+If no string is specified via the C<=~> or C<!~> operator, the C<$_>
+variable is searched and modified.  Unless the C</r> option is used,
+the string specified must be a scalar variable, an array element, a
+hash element, or an assignment to one of those; that is, some sort of
+scalar lvalue.
+
+If the delimiter chosen is a single quote, no interpolation is
+done on either the I<PATTERN> or the I<REPLACEMENT>.  Otherwise, if the
+I<PATTERN> contains a C<$> that looks like a variable rather than an
+end-of-string test, the variable will be interpolated into the pattern
+at run-time.  If you want the pattern compiled only once the first time
+the variable is interpolated, use the C</o> option.  If the pattern
+evaluates to the empty string, the last successfully executed regular
+expression is used instead.  See L<perlre> for further explanation on these.
+
+Options are as with C<m//> with the addition of the following replacement
+specific options:
+
+    e	Evaluate the right side as an expression.
+    ee  Evaluate the right side as a string then eval the
+        result.
+    r   Return substitution and leave the original string
+        untouched.
+
+Any non-whitespace delimiter may replace the slashes.  Add space after
+the C<s> when using a character allowed in identifiers.  If single quotes
+are used, no interpretation is done on the replacement string (the C</e>
+modifier overrides this, however).  Note that Perl treats backticks
+as normal delimiters; the replacement text is not evaluated as a command.
+If the I<PATTERN> is delimited by bracketing quotes, the I<REPLACEMENT> has
+its own pair of quotes, which may or may not be bracketing quotes, for example,
+C<s(foo)(bar)> or C<< s<foo>/bar/ >>.  A C</e> will cause the
+replacement portion to be treated as a full-fledged Perl expression
+and evaluated right then and there.  It is, however, syntax checked at
+compile-time.  A second C<e> modifier will cause the replacement portion
+to be C<eval>ed before being run as a Perl expression.
+
+Examples:
+
+    s/\bgreen\b/mauve/g;	      # don't change wintergreen
+
+    $path =~ s|/usr/bin|/usr/local/bin|;
+
+    s/Login: $foo/Login: $bar/; # run-time pattern
+
+    ($foo = $bar) =~ s/this/that/;	# copy first, then
+                                        # change
+    ($foo = "$bar") =~ s/this/that/;	# convert to string,
+                                        # copy, then change
+    $foo = $bar =~ s/this/that/r;	# Same as above using /r
+    $foo = $bar =~ s/this/that/r
+                =~ s/that/the other/r;	# Chained substitutes
+                                        # using /r
+    @foo = map { s/this/that/r } @bar	# /r is very useful in
+                                        # maps
+
+    $count = ($paragraph =~ s/Mister\b/Mr./g);  # get change-cnt
+
+    $_ = 'abc123xyz';
+    s/\d+/$&*2/e;		# yields 'abc246xyz'
+    s/\d+/sprintf("%5d",$&)/e;	# yields 'abc  246xyz'
+    s/\w/$& x 2/eg;		# yields 'aabbcc  224466xxyyzz'
+
+    s/%(.)/$percent{$1}/g;	# change percent escapes; no /e
+    s/%(.)/$percent{$1} || $&/ge;	# expr now, so /e
+    s/^=(\w+)/pod($1)/ge;	# use function call
+
+    $_ = 'abc123xyz';
+    $x = s/abc/def/r;           # $x is 'def123xyz' and
+                                # $_ remains 'abc123xyz'.
+
+    # expand variables in $_, but dynamics only, using
+    # symbolic dereferencing
+    s/\$(\w+)/${$1}/g;
+
+    # Add one to the value of any numbers in the string
+    s/(\d+)/1 + $1/eg;
+
+    # Titlecase words in the last 30 characters only
+    substr($str, -30) =~ s/\b(\p{Alpha}+)\b/\u\L$1/g;
+
+    # This will expand any embedded scalar variable
+    # (including lexicals) in $_ : First $1 is interpolated
+    # to the variable name, and then evaluated
+    s/(\$\w+)/$1/eeg;
+
+    # Delete (most) C comments.
+    $program =~ s {
+	/\*	# Match the opening delimiter.
+	.*?	# Match a minimal number of characters.
+	\*/	# Match the closing delimiter.
+    } []gsx;
+
+    s/^\s*(.*?)\s*$/$1/;	# trim whitespace in $_,
+                                # expensively
+
+    for ($variable) {		# trim whitespace in $variable,
+                                # cheap
+	s/^\s+//;
+	s/\s+$//;
+    }
+
+    s/([^ ]*) *([^ ]*)/$2 $1/;	# reverse 1st two fields
+
+Note the use of C<$> instead of C<\> in the last example.  Unlike
+B<sed>, we use the \<I<digit>> form only in the left hand side.
+Anywhere else it's $<I<digit>>.
+
+Occasionally, you can't use just a C</g> to get all the changes
+to occur that you might want.  Here are two common cases:
+
+    # put commas in the right places in an integer
+    1 while s/(\d)(\d\d\d)(?!\d)/$1,$2/g;
+
+    # expand tabs to 8-column spacing
+    1 while s/\t+/' ' x (length($&)*8 - length($`)%8)/e;
+
+=back
+
+=head2 Quote-Like Operators
+X<operator, quote-like>
+
+=over 4
+
+=item C<q/I<STRING>/>
+X<q> X<quote, single> X<'> X<''>
+
+=item C<'I<STRING>'>
+
+A single-quoted, literal string.  A backslash represents a backslash
+unless followed by the delimiter or another backslash, in which case
+the delimiter or backslash is interpolated.
+
+    $foo = q!I said, "You said, 'She said it.'"!;
+    $bar = q('This is it.');
+    $baz = '\n';		# a two-character string
+
+=item C<qq/I<STRING>/>
+X<qq> X<quote, double> X<"> X<"">
+
+=item "I<STRING>"
+
+A double-quoted, interpolated string.
+
+    $_ .= qq
+     (*** The previous line contains the naughty word "$1".\n)
+		if /\b(tcl|java|python)\b/i;      # :-)
+    $baz = "\n";		# a one-character string
+
+=item C<qx/I<STRING>/>
+X<qx> X<`> X<``> X<backtick>
+
+=item C<`I<STRING>`>
+
+A string which is (possibly) interpolated and then executed as a
+system command with F</bin/sh> or its equivalent.  Shell wildcards,
+pipes, and redirections will be honored.  The collected standard
+output of the command is returned; standard error is unaffected.  In
+scalar context, it comes back as a single (potentially multi-line)
+string, or C<undef> if the command failed.  In list context, returns a
+list of lines (however you've defined lines with C<$/> or
+C<$INPUT_RECORD_SEPARATOR>), or an empty list if the command failed.
+
+Because backticks do not affect standard error, use shell file descriptor
+syntax (assuming the shell supports this) if you care to address this.
+To capture a command's STDERR and STDOUT together:
+
+    $output = `cmd 2>&1`;
+
+To capture a command's STDOUT but discard its STDERR:
+
+    $output = `cmd 2>/dev/null`;
+
+To capture a command's STDERR but discard its STDOUT (ordering is
+important here):
+
+    $output = `cmd 2>&1 1>/dev/null`;
+
+To exchange a command's STDOUT and STDERR in order to capture the STDERR
+but leave its STDOUT to come out the old STDERR:
+
+    $output = `cmd 3>&1 1>&2 2>&3 3>&-`;
+
+To read both a command's STDOUT and its STDERR separately, it's easiest
+to redirect them separately to files, and then read from those files
+when the program is done:
+
+    system("program args 1>program.stdout 2>program.stderr");
+
+The STDIN filehandle used by the command is inherited from Perl's STDIN.
+For example:
+
+    open(SPLAT, "stuff")   || die "can't open stuff: $!";
+    open(STDIN, "<&SPLAT") || die "can't dupe SPLAT: $!";
+    print STDOUT `sort`;
+
+will print the sorted contents of the file named F<"stuff">.
+
+Using single-quote as a delimiter protects the command from Perl's
+double-quote interpolation, passing it on to the shell instead:
+
+    $perl_info  = qx(ps $$);            # that's Perl's $$
+    $shell_info = qx'ps $$';            # that's the new shell's $$
+
+How that string gets evaluated is entirely subject to the command
+interpreter on your system.  On most platforms, you will have to protect
+shell metacharacters if you want them treated literally.  This is in
+practice difficult to do, as it's unclear how to escape which characters.
+See L<perlsec> for a clean and safe example of a manual C<fork()> and C<exec()>
+to emulate backticks safely.
+
+On some platforms (notably DOS-like ones), the shell may not be
+capable of dealing with multiline commands, so putting newlines in
+the string may not get you what you want.  You may be able to evaluate
+multiple commands in a single line by separating them with the command
+separator character, if your shell supports that (for example, C<;> on 
+many Unix shells and C<&> on the Windows NT C<cmd> shell).
+
+Perl will attempt to flush all files opened for
+output before starting the child process, but this may not be supported
+on some platforms (see L<perlport>).  To be safe, you may need to set
+C<$|> (C<$AUTOFLUSH> in C<L<English>>) or call the C<autoflush()> method of
+C<L<IO::Handle>> on any open handles.
+
+Beware that some command shells may place restrictions on the length
+of the command line.  You must ensure your strings don't exceed this
+limit after any necessary interpolations.  See the platform-specific
+release notes for more details about your particular environment.
+
+Using this operator can lead to programs that are difficult to port,
+because the shell commands called vary between systems, and may in
+fact not be present at all.  As one example, the C<type> command under
+the POSIX shell is very different from the C<type> command under DOS.
+That doesn't mean you should go out of your way to avoid backticks
+when they're the right way to get something done.  Perl was made to be
+a glue language, and one of the things it glues together is commands.
+Just understand what you're getting yourself into.
+
+Like C<system>, backticks put the child process exit code in C<$?>.
+If you'd like to manually inspect failure, you can check all possible
+failure modes by inspecting C<$?> like this:
+
+    if ($? == -1) {
+        print "failed to execute: $!\n";
+    }
+    elsif ($? & 127) {
+        printf "child died with signal %d, %s coredump\n",
+            ($? & 127),  ($? & 128) ? 'with' : 'without';
+    }
+    else {
+        printf "child exited with value %d\n", $? >> 8;
+    }
+
+See L</"I/O Operators"> for more discussion.
+
+=item C<qw/I<STRING>/>
+X<qw> X<quote, list> X<quote, words>
+
+Evaluates to a list of the words extracted out of I<STRING>, using embedded
+whitespace as the word delimiters.  It can be understood as being roughly
+equivalent to:
+
+    split(" ", q/STRING/);
+
+the differences being that it generates a real list at compile time, and
+in scalar context it returns the last element in the list.  So
+this expression:
+
+    qw(foo bar baz)
+
+is semantically equivalent to the list:
+
+    "foo", "bar", "baz"
+
+Some frequently seen examples:
+
+    use POSIX qw( setlocale localeconv )
+    @EXPORT = qw( foo bar baz );
+
+A common mistake is to try to separate the words with commas or to
+put comments into a multi-line C<qw>-string.  For this reason, the
+S<C<use warnings>> pragma and the B<-w> switch (that is, the C<$^W> variable)
+produces warnings if the I<STRING> contains the C<","> or the C<"#"> character.
+
+=item C<tr/I<SEARCHLIST>/I<REPLACEMENTLIST>/cdsr>
+X<tr> X<y> X<transliterate> X</c> X</d> X</s>
+
+=item C<y/I<SEARCHLIST>/I<REPLACEMENTLIST>/cdsr>
+
+Transliterates all occurrences of the characters found in the search list
+with the corresponding character in the replacement list.  It returns
+the number of characters replaced or deleted.  If no string is
+specified via the C<=~> or C<!~> operator, the C<$_> string is transliterated.
+
+If the C</r> (non-destructive) option is present, a new copy of the string
+is made and its characters transliterated, and this copy is returned no
+matter whether it was modified or not: the original string is always
+left unchanged.  The new copy is always a plain string, even if the input
+string is an object or a tied variable.
+
+Unless the C</r> option is used, the string specified with C<=~> must be a
+scalar variable, an array element, a hash element, or an assignment to one
+of those; in other words, an lvalue.
+
+A character range may be specified with a hyphen, so C<tr/A-J/0-9/>
+does the same replacement as C<tr/ACEGIBDFHJ/0246813579/>.
+For B<sed> devotees, C<y> is provided as a synonym for C<tr>.  If the
+I<SEARCHLIST> is delimited by bracketing quotes, the I<REPLACEMENTLIST> has
+its own pair of quotes, which may or may not be bracketing quotes;
+for example, C<tr[aeiouy][yuoiea]> or C<tr(+\-*/)/ABCD/>.
+
+Characters may be literals or any of the escape sequences accepted in
+double-quoted strings.  But there is no interpolation, so C<"$"> and
+C<"@"> are treated as literals.  A hyphen at the beginning or end, or
+preceded by a backslash is considered a literal.  Escape sequence
+details are in L<the table near the beginning of this section|/Quote and
+Quote-like Operators>.
+
+Note that C<tr> does B<not> do regular expression character classes such as
+C<\d> or C<\pL>.  The C<tr> operator is not equivalent to the C<L<tr(1)>>
+utility.  If you want to map strings between lower/upper cases, see
+L<perlfunc/lc> and L<perlfunc/uc>, and in general consider using the C<s>
+operator if you need regular expressions.  The C<\U>, C<\u>, C<\L>, and
+C<\l> string-interpolation escapes on the right side of a substitution
+operator will perform correct case-mappings, but C<tr[a-z][A-Z]> will not
+(except sometimes on legacy 7-bit data).
+
+Most ranges are unportable between character sets, but certain ones
+signal Perl to do special handling to make them portable.  There are two
+classes of portable ranges.  The first are any subsets of the ranges
+C<A-Z>, C<a-z>, and C<0-9>, when expressed as literal characters.
+
+  tr/h-k/H-K/
+
+capitalizes the letters C<"h">, C<"i">, C<"j">, and C<"k"> and nothing
+else, no matter what the platform's character set is.  In contrast, all
+of
+
+  tr/\x68-\x6B/\x48-\x4B/
+  tr/h-\x6B/H-\x4B/
+  tr/\x68-k/\x48-K/
+
+do the same capitalizations as the previous example when run on ASCII
+platforms, but something completely different on EBCDIC ones.
+
+The second class of portable ranges is invoked when one or both of the
+range's end points are expressed as C<\N{...}>
+
+ $string =~ tr/\N{U+20}-\N{U+7E}//d;
+
+removes from C<$string> all the platform's characters which are
+equivalent to any of Unicode U+0020, U+0021, ... U+007D, U+007E.  This
+is a portable range, and has the same effect on every platform it is
+run on.  It turns out that in this example, these are the ASCII
+printable characters.  So after this is run, C<$string> has only
+controls and characters which have no ASCII equivalents.
+
+But, even for portable ranges, it is not generally obvious what is
+included without having to look things up.  A sound principle is to use
+only ranges that begin from and end at either ASCII alphabetics of equal
+case (C<b-e>, C<b-E>), or digits (C<1-4>).  Anything else is unclear
+(and unportable unless C<\N{...}> is used).  If in doubt, spell out the
+character sets in full.
+
+Options:
+
+    c	Complement the SEARCHLIST.
+    d	Delete found but unreplaced characters.
+    s	Squash duplicate replaced characters.
+    r	Return the modified string and leave the original string
+	untouched.
+
+If the C</c> modifier is specified, the I<SEARCHLIST> character set
+is complemented.  If the C</d> modifier is specified, any characters
+specified by I<SEARCHLIST> not found in I<REPLACEMENTLIST> are deleted.
+(Note that this is slightly more flexible than the behavior of some
+B<tr> programs, which delete anything they find in the I<SEARCHLIST>,
+period.)  If the C</s> modifier is specified, sequences of characters
+that were transliterated to the same character are squashed down
+to a single instance of the character.
+
+If the C</d> modifier is used, the I<REPLACEMENTLIST> is always interpreted
+exactly as specified.  Otherwise, if the I<REPLACEMENTLIST> is shorter
+than the I<SEARCHLIST>, the final character is replicated till it is long
+enough.  If the I<REPLACEMENTLIST> is empty, the I<SEARCHLIST> is replicated.
+This latter is useful for counting characters in a class or for
+squashing character sequences in a class.
+
+Examples:
+
+    $ARGV[1] =~ tr/A-Z/a-z/;	# canonicalize to lower case ASCII
+
+    $cnt = tr/*/*/;		# count the stars in $_
+
+    $cnt = $sky =~ tr/*/*/;	# count the stars in $sky
+
+    $cnt = tr/0-9//;		# count the digits in $_
+
+    tr/a-zA-Z//s;		# bookkeeper -> bokeper
+
+    ($HOST = $host) =~ tr/a-z/A-Z/;
+     $HOST = $host  =~ tr/a-z/A-Z/r;   # same thing
+
+    $HOST = $host =~ tr/a-z/A-Z/r    # chained with s///r
+                  =~ s/:/ -p/r;
+
+    tr/a-zA-Z/ /cs;		# change non-alphas to single space
+
+    @stripped = map tr/a-zA-Z/ /csr, @original;
+				# /r with map
+
+    tr [\200-\377]
+       [\000-\177];		# wickedly delete 8th bit
+
+If multiple transliterations are given for a character, only the
+first one is used:
+
+    tr/AAA/XYZ/
+
+will transliterate any A to X.
+
+Because the transliteration table is built at compile time, neither
+the I<SEARCHLIST> nor the I<REPLACEMENTLIST> are subjected to double quote
+interpolation.  That means that if you want to use variables, you
+must use an C<eval()>:
+
+    eval "tr/$oldlist/$newlist/";
+    die $@ if $@;
+
+    eval "tr/$oldlist/$newlist/, 1" or die $@;
+
+=item C<< <<I<EOF> >>
+X<here-doc> X<heredoc> X<here-document> X<<< << >>>
+
+A line-oriented form of quoting is based on the shell "here-document"
+syntax.  Following a C<< << >> you specify a string to terminate
+the quoted material, and all lines following the current line down to
+the terminating string are the value of the item.
+
+The terminating string may be either an identifier (a word), or some
+quoted text.  An unquoted identifier works like double quotes.
+There may not be a space between the C<< << >> and the identifier,
+unless the identifier is explicitly quoted.  (If you put a space it
+will be treated as a null identifier, which is valid, and matches the
+first empty line.)  The terminating string must appear by itself
+(unquoted and with no surrounding whitespace) on the terminating line.
+
+If the terminating string is quoted, the type of quotes used determine
+the treatment of the text.
+
+=over 4
+
+=item Double Quotes
+
+Double quotes indicate that the text will be interpolated using exactly
+the same rules as normal double quoted strings.
+
+       print <<EOF;
+    The price is $Price.
+    EOF
+
+       print << "EOF"; # same as above
+    The price is $Price.
+    EOF
+
+
+=item Single Quotes
+
+Single quotes indicate the text is to be treated literally with no
+interpolation of its content.  This is similar to single quoted
+strings except that backslashes have no special meaning, with C<\\>
+being treated as two backslashes and not one as they would in every
+other quoting construct.
+
+Just as in the shell, a backslashed bareword following the C<<< << >>>
+means the same thing as a single-quoted string does:
+
+	$cost = <<'VISTA';  # hasta la ...
+    That'll be $10 please, ma'am.
+    VISTA
+
+	$cost = <<\VISTA;   # Same thing!
+    That'll be $10 please, ma'am.
+    VISTA
+
+This is the only form of quoting in perl where there is no need
+to worry about escaping content, something that code generators
+can and do make good use of.
+
+=item Backticks
+
+The content of the here doc is treated just as it would be if the
+string were embedded in backticks.  Thus the content is interpolated
+as though it were double quoted and then executed via the shell, with
+the results of the execution returned.
+
+       print << `EOC`; # execute command and get results
+    echo hi there
+    EOC
+
+=back
+
+It is possible to stack multiple here-docs in a row:
+
+       print <<"foo", <<"bar"; # you can stack them
+    I said foo.
+    foo
+    I said bar.
+    bar
+
+       myfunc(<< "THIS", 23, <<'THAT');
+    Here's a line
+    or two.
+    THIS
+    and here's another.
+    THAT
+
+Just don't forget that you have to put a semicolon on the end
+to finish the statement, as Perl doesn't know you're not going to
+try to do this:
+
+       print <<ABC
+    179231
+    ABC
+       + 20;
+
+If you want to remove the line terminator from your here-docs,
+use C<chomp()>.
+
+    chomp($string = <<'END');
+    This is a string.
+    END
+
+If you want your here-docs to be indented with the rest of the code,
+you'll need to remove leading whitespace from each line manually:
+
+    ($quote = <<'FINIS') =~ s/^\s+//gm;
+       The Road goes ever on and on,
+       down from the door where it began.
+    FINIS
+
+If you use a here-doc within a delimited construct, such as in C<s///eg>,
+the quoted material must still come on the line following the
+C<<< <<FOO >>> marker, which means it may be inside the delimited
+construct:
+
+    s/this/<<E . 'that'
+    the other
+    E
+     . 'more '/eg;
+
+It works this way as of Perl 5.18.  Historically, it was inconsistent, and
+you would have to write
+
+    s/this/<<E . 'that'
+     . 'more '/eg;
+    the other
+    E
+
+outside of string evals.
+
+Additionally, quoting rules for the end-of-string identifier are
+unrelated to Perl's quoting rules.  C<q()>, C<qq()>, and the like are not
+supported in place of C<''> and C<"">, and the only interpolation is for
+backslashing the quoting character:
+
+    print << "abc\"def";
+    testing...
+    abc"def
+
+Finally, quoted strings cannot span multiple lines.  The general rule is
+that the identifier must be a string literal.  Stick with that, and you
+should be safe.
+
+=back
+
+=head2 Gory details of parsing quoted constructs
+X<quote, gory details>
+
+When presented with something that might have several different
+interpretations, Perl uses the B<DWIM> (that's "Do What I Mean")
+principle to pick the most probable interpretation.  This strategy
+is so successful that Perl programmers often do not suspect the
+ambivalence of what they write.  But from time to time, Perl's
+notions differ substantially from what the author honestly meant.
+
+This section hopes to clarify how Perl handles quoted constructs.
+Although the most common reason to learn this is to unravel labyrinthine
+regular expressions, because the initial steps of parsing are the
+same for all quoting operators, they are all discussed together.
+
+The most important Perl parsing rule is the first one discussed
+below: when processing a quoted construct, Perl first finds the end
+of that construct, then interprets its contents.  If you understand
+this rule, you may skip the rest of this section on the first
+reading.  The other rules are likely to contradict the user's
+expectations much less frequently than this first one.
+
+Some passes discussed below are performed concurrently, but because
+their results are the same, we consider them individually.  For different
+quoting constructs, Perl performs different numbers of passes, from
+one to four, but these passes are always performed in the same order.
+
+=over 4
+
+=item Finding the end
+
+The first pass is finding the end of the quoted construct.  This results
+in saving to a safe location a copy of the text (between the starting
+and ending delimiters), normalized as necessary to avoid needing to know
+what the original delimiters were.
+
+If the construct is a here-doc, the ending delimiter is a line
+that has a terminating string as the content.  Therefore C<<<EOF> is
+terminated by C<EOF> immediately followed by C<"\n"> and starting
+from the first column of the terminating line.
+When searching for the terminating line of a here-doc, nothing
+is skipped.  In other words, lines after the here-doc syntax
+are compared with the terminating string line by line.
+
+For the constructs except here-docs, single characters are used as starting
+and ending delimiters.  If the starting delimiter is an opening punctuation
+(that is C<(>, C<[>, C<{>, or C<< < >>), the ending delimiter is the
+corresponding closing punctuation (that is C<)>, C<]>, C<}>, or C<< > >>).
+If the starting delimiter is an unpaired character like C</> or a closing
+punctuation, the ending delimiter is the same as the starting delimiter.
+Therefore a C</> terminates a C<qq//> construct, while a C<]> terminates
+both C<qq[]> and C<qq]]> constructs.
+
+When searching for single-character delimiters, escaped delimiters
+and C<\\> are skipped.  For example, while searching for terminating C</>,
+combinations of C<\\> and C<\/> are skipped.  If the delimiters are
+bracketing, nested pairs are also skipped.  For example, while searching
+for a closing C<]> paired with the opening C<[>, combinations of C<\\>, C<\]>,
+and C<\[> are all skipped, and nested C<[> and C<]> are skipped as well.
+However, when backslashes are used as the delimiters (like C<qq\\> and
+C<tr\\\>), nothing is skipped.
+During the search for the end, backslashes that escape delimiters or
+other backslashes are removed (exactly speaking, they are not copied to the
+safe location).
+
+For constructs with three-part delimiters (C<s///>, C<y///>, and
+C<tr///>), the search is repeated once more.
+If the first delimiter is not an opening punctuation, the three delimiters must
+be the same, such as C<s!!!> and C<tr)))>,
+in which case the second delimiter
+terminates the left part and starts the right part at once.
+If the left part is delimited by bracketing punctuation (that is C<()>,
+C<[]>, C<{}>, or C<< <> >>), the right part needs another pair of
+delimiters such as C<s(){}> and C<tr[]//>.  In these cases, whitespace
+and comments are allowed between the two parts, although the comment must follow
+at least one whitespace character; otherwise a character expected as the 
+start of the comment may be regarded as the starting delimiter of the right part.
+
+During this search no attention is paid to the semantics of the construct.
+Thus:
+
+    "$hash{"$foo/$bar"}"
+
+or:
+
+    m/
+      bar	# NOT a comment, this slash / terminated m//!
+     /x
+
+do not form legal quoted expressions.   The quoted part ends on the
+first C<"> and C</>, and the rest happens to be a syntax error.
+Because the slash that terminated C<m//> was followed by a C<SPACE>,
+the example above is not C<m//x>, but rather C<m//> with no C</x>
+modifier.  So the embedded C<#> is interpreted as a literal C<#>.
+
+Also no attention is paid to C<\c\> (multichar control char syntax) during
+this search.  Thus the second C<\> in C<qq/\c\/> is interpreted as a part
+of C<\/>, and the following C</> is not recognized as a delimiter.
+Instead, use C<\034> or C<\x1c> at the end of quoted constructs.
+
+=item Interpolation
+X<interpolation>
+
+The next step is interpolation in the text obtained, which is now
+delimiter-independent.  There are multiple cases.
+
+=over 4
+
+=item C<<<'EOF'>
+
+No interpolation is performed.
+Note that the combination C<\\> is left intact, since escaped delimiters
+are not available for here-docs.
+
+=item  C<m''>, the pattern of C<s'''>
+
+No interpolation is performed at this stage.
+Any backslashed sequences including C<\\> are treated at the stage
+to L</"parsing regular expressions">.
+
+=item C<''>, C<q//>, C<tr'''>, C<y'''>, the replacement of C<s'''>
+
+The only interpolation is removal of C<\> from pairs of C<\\>.
+Therefore C<"-"> in C<tr'''> and C<y'''> is treated literally
+as a hyphen and no character range is available.
+C<\1> in the replacement of C<s'''> does not work as C<$1>.
+
+=item C<tr///>, C<y///>
+
+No variable interpolation occurs.  String modifying combinations for
+case and quoting such as C<\Q>, C<\U>, and C<\E> are not recognized.
+The other escape sequences such as C<\200> and C<\t> and backslashed
+characters such as C<\\> and C<\-> are converted to appropriate literals.
+The character C<"-"> is treated specially and therefore C<\-> is treated
+as a literal C<"-">.
+
+=item C<"">, C<``>, C<qq//>, C<qx//>, C<< <file*glob> >>, C<<<"EOF">
+
+C<\Q>, C<\U>, C<\u>, C<\L>, C<\l>, C<\F> (possibly paired with C<\E>) are
+converted to corresponding Perl constructs.  Thus, C<"$foo\Qbaz$bar">
+is converted to S<C<$foo . (quotemeta("baz" . $bar))>> internally.
+The other escape sequences such as C<\200> and C<\t> and backslashed
+characters such as C<\\> and C<\-> are replaced with appropriate
+expansions.
+
+Let it be stressed that I<whatever falls between C<\Q> and C<\E>>
+is interpolated in the usual way.  Something like C<"\Q\\E"> has
+no C<\E> inside.  Instead, it has C<\Q>, C<\\>, and C<E>, so the
+result is the same as for C<"\\\\E">.  As a general rule, backslashes
+between C<\Q> and C<\E> may lead to counterintuitive results.  So,
+C<"\Q\t\E"> is converted to C<quotemeta("\t")>, which is the same
+as C<"\\\t"> (since TAB is not alphanumeric).  Note also that:
+
+  $str = '\t';
+  return "\Q$str";
+
+may be closer to the conjectural I<intention> of the writer of C<"\Q\t\E">.
+
+Interpolated scalars and arrays are converted internally to the C<join> and
+C<"."> catenation operations.  Thus, S<C<"$foo XXX '@arr'">> becomes:
+
+  $foo . " XXX '" . (join $", @arr) . "'";
+
+All operations above are performed simultaneously, left to right.
+
+Because the result of S<C<"\Q I<STRING> \E">> has all metacharacters
+quoted, there is no way to insert a literal C<$> or C<@> inside a
+C<\Q\E> pair.  If protected by C<\>, C<$> will be quoted to become
+C<"\\\$">; if not, it is interpreted as the start of an interpolated
+scalar.
+
+Note also that the interpolation code needs to make a decision on
+where the interpolated scalar ends.  For instance, whether
+S<C<< "a $x -> {c}" >>> really means:
+
+  "a " . $x . " -> {c}";
+
+or:
+
+  "a " . $x -> {c};
+
+Most of the time, the longest possible text that does not include
+spaces between components and which contains matching braces or
+brackets.  because the outcome may be determined by voting based
+on heuristic estimators, the result is not strictly predictable.
+Fortunately, it's usually correct for ambiguous cases.
+
+=item the replacement of C<s///>
+
+Processing of C<\Q>, C<\U>, C<\u>, C<\L>, C<\l>, C<\F> and interpolation
+happens as with C<qq//> constructs.
+
+It is at this step that C<\1> is begrudgingly converted to C<$1> in
+the replacement text of C<s///>, in order to correct the incorrigible
+I<sed> hackers who haven't picked up the saner idiom yet.  A warning
+is emitted if the S<C<use warnings>> pragma or the B<-w> command-line flag
+(that is, the C<$^W> variable) was set.
+
+=item C<RE> in C<?RE?>, C</RE/>, C<m/RE/>, C<s/RE/foo/>,
+
+Processing of C<\Q>, C<\U>, C<\u>, C<\L>, C<\l>, C<\F>, C<\E>,
+and interpolation happens (almost) as with C<qq//> constructs.
+
+Processing of C<\N{...}> is also done here, and compiled into an intermediate
+form for the regex compiler.  (This is because, as mentioned below, the regex
+compilation may be done at execution time, and C<\N{...}> is a compile-time
+construct.)
+
+However any other combinations of C<\> followed by a character
+are not substituted but only skipped, in order to parse them
+as regular expressions at the following step.
+As C<\c> is skipped at this step, C<@> of C<\c@> in RE is possibly
+treated as an array symbol (for example C<@foo>),
+even though the same text in C<qq//> gives interpolation of C<\c@>.
+
+Code blocks such as C<(?{BLOCK})> are handled by temporarily passing control
+back to the perl parser, in a similar way that an interpolated array
+subscript expression such as C<"foo$array[1+f("[xyz")]bar"> would be.
+
+Moreover, inside C<(?{BLOCK})>, S<C<(?# comment )>>, and
+a C<#>-comment in a C</x>-regular expression, no processing is
+performed whatsoever.  This is the first step at which the presence
+of the C</x> modifier is relevant.
+
+Interpolation in patterns has several quirks: C<$|>, C<$(>, C<$)>, C<@+>
+and C<@-> are not interpolated, and constructs C<$var[SOMETHING]> are
+voted (by several different estimators) to be either an array element
+or C<$var> followed by an RE alternative.  This is where the notation
+C<${arr[$bar]}> comes handy: C</${arr[0-9]}/> is interpreted as
+array element C<-9>, not as a regular expression from the variable
+C<$arr> followed by a digit, which would be the interpretation of
+C</$arr[0-9]/>.  Since voting among different estimators may occur,
+the result is not predictable.
+
+The lack of processing of C<\\> creates specific restrictions on
+the post-processed text.  If the delimiter is C</>, one cannot get
+the combination C<\/> into the result of this step.  C</> will
+finish the regular expression, C<\/> will be stripped to C</> on
+the previous step, and C<\\/> will be left as is.  Because C</> is
+equivalent to C<\/> inside a regular expression, this does not
+matter unless the delimiter happens to be character special to the
+RE engine, such as in C<s*foo*bar*>, C<m[foo]>, or C<?foo?>; or an
+alphanumeric char, as in:
+
+  m m ^ a \s* b mmx;
+
+In the RE above, which is intentionally obfuscated for illustration, the
+delimiter is C<m>, the modifier is C<mx>, and after delimiter-removal the
+RE is the same as for S<C<m/ ^ a \s* b /mx>>.  There's more than one
+reason you're encouraged to restrict your delimiters to non-alphanumeric,
+non-whitespace choices.
+
+=back
+
+This step is the last one for all constructs except regular expressions,
+which are processed further.
+
+=item parsing regular expressions
+X<regexp, parse>
+
+Previous steps were performed during the compilation of Perl code,
+but this one happens at run time, although it may be optimized to
+be calculated at compile time if appropriate.  After preprocessing
+described above, and possibly after evaluation if concatenation,
+joining, casing translation, or metaquoting are involved, the
+resulting I<string> is passed to the RE engine for compilation.
+
+Whatever happens in the RE engine might be better discussed in L<perlre>,
+but for the sake of continuity, we shall do so here.
+
+This is another step where the presence of the C</x> modifier is
+relevant.  The RE engine scans the string from left to right and
+converts it into a finite automaton.
+
+Backslashed characters are either replaced with corresponding
+literal strings (as with C<\{>), or else they generate special nodes
+in the finite automaton (as with C<\b>).  Characters special to the
+RE engine (such as C<|>) generate corresponding nodes or groups of
+nodes.  C<(?#...)> comments are ignored.  All the rest is either
+converted to literal strings to match, or else is ignored (as is
+whitespace and C<#>-style comments if C</x> is present).
+
+Parsing of the bracketed character class construct, C<[...]>, is
+rather different than the rule used for the rest of the pattern.
+The terminator of this construct is found using the same rules as
+for finding the terminator of a C<{}>-delimited construct, the only
+exception being that C<]> immediately following C<[> is treated as
+though preceded by a backslash.
+
+The terminator of runtime C<(?{...})> is found by temporarily switching
+control to the perl parser, which should stop at the point where the
+logically balancing terminating C<}> is found.
+
+It is possible to inspect both the string given to RE engine and the
+resulting finite automaton.  See the arguments C<debug>/C<debugcolor>
+in the S<C<use L<re>>> pragma, as well as Perl's B<-Dr> command-line
+switch documented in L<perlrun/"Command Switches">.
+
+=item Optimization of regular expressions
+X<regexp, optimization>
+
+This step is listed for completeness only.  Since it does not change
+semantics, details of this step are not documented and are subject
+to change without notice.  This step is performed over the finite
+automaton that was generated during the previous pass.
+
+It is at this stage that C<split()> silently optimizes C</^/> to
+mean C</^/m>.
+
+=back
+
+=head2 I/O Operators
+X<operator, i/o> X<operator, io> X<io> X<while> X<filehandle>
+X<< <> >> X<< <<>> >> X<@ARGV>
+
+There are several I/O operators you should know about.
+
+A string enclosed by backticks (grave accents) first undergoes
+double-quote interpolation.  It is then interpreted as an external
+command, and the output of that command is the value of the
+backtick string, like in a shell.  In scalar context, a single string
+consisting of all output is returned.  In list context, a list of
+values is returned, one per line of output.  (You can set C<$/> to use
+a different line terminator.)  The command is executed each time the
+pseudo-literal is evaluated.  The status value of the command is
+returned in C<$?> (see L<perlvar> for the interpretation of C<$?>).
+Unlike in B<csh>, no translation is done on the return data--newlines
+remain newlines.  Unlike in any of the shells, single quotes do not
+hide variable names in the command from interpretation.  To pass a
+literal dollar-sign through to the shell you need to hide it with a
+backslash.  The generalized form of backticks is C<qx//>.  (Because
+backticks always undergo shell expansion as well, see L<perlsec> for
+security concerns.)
+X<qx> X<`> X<``> X<backtick> X<glob>
+
+In scalar context, evaluating a filehandle in angle brackets yields
+the next line from that file (the newline, if any, included), or
+C<undef> at end-of-file or on error.  When C<$/> is set to C<undef>
+(sometimes known as file-slurp mode) and the file is empty, it
+returns C<''> the first time, followed by C<undef> subsequently.
+
+Ordinarily you must assign the returned value to a variable, but
+there is one situation where an automatic assignment happens.  If
+and only if the input symbol is the only thing inside the conditional
+of a C<while> statement (even if disguised as a C<for(;;)> loop),
+the value is automatically assigned to the global variable C<$_>,
+destroying whatever was there previously.  (This may seem like an
+odd thing to you, but you'll use the construct in almost every Perl
+script you write.)  The C<$_> variable is not implicitly localized.
+You'll have to put a S<C<local $_;>> before the loop if you want that
+to happen.
+
+The following lines are equivalent:
+
+    while (defined($_ = <STDIN>)) { print; }
+    while ($_ = <STDIN>) { print; }
+    while (<STDIN>) { print; }
+    for (;<STDIN>;) { print; }
+    print while defined($_ = <STDIN>);
+    print while ($_ = <STDIN>);
+    print while <STDIN>;
+
+This also behaves similarly, but assigns to a lexical variable 
+instead of to C<$_>:
+
+    while (my $line = <STDIN>) { print $line }
+
+In these loop constructs, the assigned value (whether assignment
+is automatic or explicit) is then tested to see whether it is
+defined.  The defined test avoids problems where the line has a string
+value that would be treated as false by Perl; for example a "" or
+a C<"0"> with no trailing newline.  If you really mean for such values
+to terminate the loop, they should be tested for explicitly:
+
+    while (($_ = <STDIN>) ne '0') { ... }
+    while (<STDIN>) { last unless $_; ... }
+
+In other boolean contexts, C<< <I<FILEHANDLE>> >> without an
+explicit C<defined> test or comparison elicits a warning if the
+S<C<use warnings>> pragma or the B<-w>
+command-line switch (the C<$^W> variable) is in effect.
+
+The filehandles STDIN, STDOUT, and STDERR are predefined.  (The
+filehandles C<stdin>, C<stdout>, and C<stderr> will also work except
+in packages, where they would be interpreted as local identifiers
+rather than global.)  Additional filehandles may be created with
+the C<open()> function, amongst others.  See L<perlopentut> and
+L<perlfunc/open> for details on this.
+X<stdin> X<stdout> X<sterr>
+
+If a C<< <I<FILEHANDLE>> >> is used in a context that is looking for
+a list, a list comprising all input lines is returned, one line per
+list element.  It's easy to grow to a rather large data space this
+way, so use with care.
+
+C<< <I<FILEHANDLE>> >>  may also be spelled C<readline(*I<FILEHANDLE>)>.
+See L<perlfunc/readline>.
+
+The null filehandle C<< <> >> is special: it can be used to emulate the
+behavior of B<sed> and B<awk>, and any other Unix filter program
+that takes a list of filenames, doing the same to each line
+of input from all of them.  Input from C<< <> >> comes either from
+standard input, or from each file listed on the command line.  Here's
+how it works: the first time C<< <> >> is evaluated, the C<@ARGV> array is
+checked, and if it is empty, C<$ARGV[0]> is set to C<"-">, which when opened
+gives you standard input.  The C<@ARGV> array is then processed as a list
+of filenames.  The loop
+
+    while (<>) {
+	...			# code for each line
+    }
+
+is equivalent to the following Perl-like pseudo code:
+
+    unshift(@ARGV, '-') unless @ARGV;
+    while ($ARGV = shift) {
+	open(ARGV, $ARGV);
+	while (<ARGV>) {
+	    ...		# code for each line
+	}
+    }
+
+except that it isn't so cumbersome to say, and will actually work.
+It really does shift the C<@ARGV> array and put the current filename
+into the C<$ARGV> variable.  It also uses filehandle I<ARGV>
+internally.  C<< <> >> is just a synonym for C<< <ARGV> >>, which
+is magical.  (The pseudo code above doesn't work because it treats
+C<< <ARGV> >> as non-magical.)
+
+Since the null filehandle uses the two argument form of L<perlfunc/open>
+it interprets special characters, so if you have a script like this:
+
+    while (<>) {
+        print;
+    }
+
+and call it with S<C<perl dangerous.pl 'rm -rfv *|'>>, it actually opens a
+pipe, executes the C<rm> command and reads C<rm>'s output from that pipe.
+If you want all items in C<@ARGV> to be interpreted as file names, you
+can use the module C<ARGV::readonly> from CPAN, or use the double bracket:
+
+    while (<<>>) {
+        print;
+    }
+
+Using double angle brackets inside of a while causes the open to use the
+three argument form (with the second argument being C<< < >>), so all
+arguments in C<ARGV> are treated as literal filenames (including C<"-">).
+(Note that for convenience, if you use C<< <<>> >> and if C<@ARGV> is
+empty, it will still read from the standard input.)
+
+You can modify C<@ARGV> before the first C<< <> >> as long as the array ends up
+containing the list of filenames you really want.  Line numbers (C<$.>)
+continue as though the input were one big happy file.  See the example
+in L<perlfunc/eof> for how to reset line numbers on each file.
+
+If you want to set C<@ARGV> to your own list of files, go right ahead.
+This sets C<@ARGV> to all plain text files if no C<@ARGV> was given:
+
+    @ARGV = grep { -f && -T } glob('*') unless @ARGV;
+
+You can even set them to pipe commands.  For example, this automatically
+filters compressed arguments through B<gzip>:
+
+    @ARGV = map { /\.(gz|Z)$/ ? "gzip -dc < $_ |" : $_ } @ARGV;
+
+If you want to pass switches into your script, you can use one of the
+C<Getopts> modules or put a loop on the front like this:
+
+    while ($_ = $ARGV[0], /^-/) {
+	shift;
+        last if /^--$/;
+	if (/^-D(.*)/) { $debug = $1 }
+	if (/^-v/)     { $verbose++  }
+	# ...		# other switches
+    }
+
+    while (<>) {
+	# ...		# code for each line
+    }
+
+The C<< <> >> symbol will return C<undef> for end-of-file only once.
+If you call it again after this, it will assume you are processing another
+C<@ARGV> list, and if you haven't set C<@ARGV>, will read input from STDIN.
+
+If what the angle brackets contain is a simple scalar variable (for example,
+C<$foo>), then that variable contains the name of the
+filehandle to input from, or its typeglob, or a reference to the
+same.  For example:
+
+    $fh = \*STDIN;
+    $line = <$fh>;
+
+If what's within the angle brackets is neither a filehandle nor a simple
+scalar variable containing a filehandle name, typeglob, or typeglob
+reference, it is interpreted as a filename pattern to be globbed, and
+either a list of filenames or the next filename in the list is returned,
+depending on context.  This distinction is determined on syntactic
+grounds alone.  That means C<< <$x> >> is always a C<readline()> from
+an indirect handle, but C<< <$hash{key}> >> is always a C<glob()>.
+That's because C<$x> is a simple scalar variable, but C<$hash{key}> is
+not--it's a hash element.  Even C<< <$x > >> (note the extra space)
+is treated as C<glob("$x ")>, not C<readline($x)>.
+
+One level of double-quote interpretation is done first, but you can't
+say C<< <$foo> >> because that's an indirect filehandle as explained
+in the previous paragraph.  (In older versions of Perl, programmers
+would insert curly brackets to force interpretation as a filename glob:
+C<< <${foo}> >>.  These days, it's considered cleaner to call the
+internal function directly as C<glob($foo)>, which is probably the right
+way to have done it in the first place.)  For example:
+
+    while (<*.c>) {
+	chmod 0644, $_;
+    }
+
+is roughly equivalent to:
+
+    open(FOO, "echo *.c | tr -s ' \t\r\f' '\\012\\012\\012\\012'|");
+    while (<FOO>) {
+	chomp;
+	chmod 0644, $_;
+    }
+
+except that the globbing is actually done internally using the standard
+C<L<File::Glob>> extension.  Of course, the shortest way to do the above is:
+
+    chmod 0644, <*.c>;
+
+A (file)glob evaluates its (embedded) argument only when it is
+starting a new list.  All values must be read before it will start
+over.  In list context, this isn't important because you automatically
+get them all anyway.  However, in scalar context the operator returns
+the next value each time it's called, or C<undef> when the list has
+run out.  As with filehandle reads, an automatic C<defined> is
+generated when the glob occurs in the test part of a C<while>,
+because legal glob returns (for example,
+a file called F<0>) would otherwise
+terminate the loop.  Again, C<undef> is returned only once.  So if
+you're expecting a single value from a glob, it is much better to
+say
+
+    ($file) = <blurch*>;
+
+than
+
+    $file = <blurch*>;
+
+because the latter will alternate between returning a filename and
+returning false.
+
+If you're trying to do variable interpolation, it's definitely better
+to use the C<glob()> function, because the older notation can cause people
+to become confused with the indirect filehandle notation.
+
+    @files = glob("$dir/*.[ch]");
+    @files = glob($files[$i]);
+
+=head2 Constant Folding
+X<constant folding> X<folding>
+
+Like C, Perl does a certain amount of expression evaluation at
+compile time whenever it determines that all arguments to an
+operator are static and have no side effects.  In particular, string
+concatenation happens at compile time between literals that don't do
+variable substitution.  Backslash interpolation also happens at
+compile time.  You can say
+
+      'Now is the time for all'
+    . "\n" 
+    .  'good men to come to.'
+
+and this all reduces to one string internally.  Likewise, if
+you say
+
+    foreach $file (@filenames) {
+	if (-s $file > 5 + 100 * 2**16) {  }
+    }
+
+the compiler precomputes the number which that expression
+represents so that the interpreter won't have to.
+
+=head2 No-ops
+X<no-op> X<nop>
+
+Perl doesn't officially have a no-op operator, but the bare constants
+C<0> and C<1> are special-cased not to produce a warning in void
+context, so you can for example safely do
+
+    1 while foo();
+
+=head2 Bitwise String Operators
+X<operator, bitwise, string> X<&.> X<|.> X<^.> X<~.>
+
+Bitstrings of any size may be manipulated by the bitwise operators
+(C<~ | & ^>).
+
+If the operands to a binary bitwise op are strings of different
+sizes, B<|> and B<^> ops act as though the shorter operand had
+additional zero bits on the right, while the B<&> op acts as though
+the longer operand were truncated to the length of the shorter.
+The granularity for such extension or truncation is one or more
+bytes.
+
+    # ASCII-based examples
+    print "j p \n" ^ " a h";        	# prints "JAPH\n"
+    print "JA" | "  ph\n";          	# prints "japh\n"
+    print "japh\nJunk" & '_____';   	# prints "JAPH\n";
+    print 'p N$' ^ " E<H\n";		# prints "Perl\n";
+
+If you are intending to manipulate bitstrings, be certain that
+you're supplying bitstrings: If an operand is a number, that will imply
+a B<numeric> bitwise operation.  You may explicitly show which type of
+operation you intend by using C<""> or C<0+>, as in the examples below.
+
+    $foo =  150  |  105;	# yields 255  (0x96 | 0x69 is 0xFF)
+    $foo = '150' |  105;	# yields 255
+    $foo =  150  | '105';	# yields 255
+    $foo = '150' | '105';	# yields string '155' (under ASCII)
+
+    $baz = 0+$foo & 0+$bar;	# both ops explicitly numeric
+    $biz = "$foo" ^ "$bar";	# both ops explicitly stringy
+
+This somewhat unpredictable behavior can be avoided with the experimental
+"bitwise" feature, new in Perl 5.22.  You can enable it via S<C<use feature
+'bitwise'>>.  By default, it will warn unless the C<"experimental::bitwise">
+warnings category has been disabled.  (S<C<use experimental 'bitwise'>> will
+enable the feature and disable the warning.)  Under this feature, the four
+standard bitwise operators (C<~ | & ^>) are always numeric.  Adding a dot
+after each operator (C<~. |. &. ^.>) forces it to treat its operands as
+strings:
+
+    use experimental "bitwise";
+    $foo =  150  |  105;	# yields 255  (0x96 | 0x69 is 0xFF)
+    $foo = '150' |  105;	# yields 255
+    $foo =  150  | '105';	# yields 255
+    $foo = '150' | '105';	# yields 255
+    $foo =  150  |. 105;	# yields string '155'
+    $foo = '150' |. 105;	# yields string '155'
+    $foo =  150  |.'105';	# yields string '155'
+    $foo = '150' |.'105';	# yields string '155'
+
+    $baz = $foo &  $bar;	# both operands numeric
+    $biz = $foo ^. $bar;	# both operands stringy
+
+The assignment variants of these operators (C<&= |= ^= &.= |.= ^.=>)
+behave likewise under the feature.
+
+The behavior of these operators is problematic (and subject to change)
+if either or both of the strings are encoded in UTF-8 (see
+L<perlunicode/Byte and Character Semantics>.
+
+See L<perlfunc/vec> for information on how to manipulate individual bits
+in a bit vector.
+
+=head2 Integer Arithmetic
+X<integer>
+
+By default, Perl assumes that it must do most of its arithmetic in
+floating point.  But by saying
+
+    use integer;
+
+you may tell the compiler to use integer operations
+(see L<integer> for a detailed explanation) from here to the end of
+the enclosing BLOCK.  An inner BLOCK may countermand this by saying
+
+    no integer;
+
+which lasts until the end of that BLOCK.  Note that this doesn't
+mean everything is an integer, merely that Perl will use integer
+operations for arithmetic, comparison, and bitwise operators.  For
+example, even under S<C<use integer>>, if you take the C<sqrt(2)>, you'll
+still get C<1.4142135623731> or so.
+
+Used on numbers, the bitwise operators (C<&> C<|> C<^> C<~> C<< << >>
+C<< >> >>) always produce integral results.  (But see also
+L<Bitwise String Operators>.)  However, S<C<use integer>> still has meaning for
+them.  By default, their results are interpreted as unsigned integers, but
+if S<C<use integer>> is in effect, their results are interpreted
+as signed integers.  For example, C<~0> usually evaluates to a large
+integral value.  However, S<C<use integer; ~0>> is C<-1> on two's-complement
+machines.
+
+=head2 Floating-point Arithmetic
+
+X<floating-point> X<floating point> X<float> X<real>
+
+While S<C<use integer>> provides integer-only arithmetic, there is no
+analogous mechanism to provide automatic rounding or truncation to a
+certain number of decimal places.  For rounding to a certain number
+of digits, C<sprintf()> or C<printf()> is usually the easiest route.
+See L<perlfaq4>.
+
+Floating-point numbers are only approximations to what a mathematician
+would call real numbers.  There are infinitely more reals than floats,
+so some corners must be cut.  For example:
+
+    printf "%.20g\n", 123456789123456789;
+    #        produces 123456789123456784
+
+Testing for exact floating-point equality or inequality is not a
+good idea.  Here's a (relatively expensive) work-around to compare
+whether two floating-point numbers are equal to a particular number of
+decimal places.  See Knuth, volume II, for a more robust treatment of
+this topic.
+
+    sub fp_equal {
+	my ($X, $Y, $POINTS) = @_;
+	my ($tX, $tY);
+	$tX = sprintf("%.${POINTS}g", $X);
+	$tY = sprintf("%.${POINTS}g", $Y);
+	return $tX eq $tY;
+    }
+
+The POSIX module (part of the standard perl distribution) implements
+C<ceil()>, C<floor()>, and other mathematical and trigonometric functions.
+The C<L<Math::Complex>> module (part of the standard perl distribution)
+defines mathematical functions that work on both the reals and the
+imaginary numbers.  C<Math::Complex> is not as efficient as POSIX, but
+POSIX can't work with complex numbers.
+
+Rounding in financial applications can have serious implications, and
+the rounding method used should be specified precisely.  In these
+cases, it probably pays not to trust whichever system rounding is
+being used by Perl, but to instead implement the rounding function you
+need yourself.
+
+=head2 Bigger Numbers
+X<number, arbitrary precision>
+
+The standard C<L<Math::BigInt>>, C<L<Math::BigRat>>, and
+C<L<Math::BigFloat>> modules,
+along with the C<bignum>, C<bigint>, and C<bigrat> pragmas, provide
+variable-precision arithmetic and overloaded operators, although
+they're currently pretty slow.  At the cost of some space and
+considerable speed, they avoid the normal pitfalls associated with
+limited-precision representations.
+
+	use 5.010;
+	use bigint;  # easy interface to Math::BigInt
+	$x = 123456789123456789;
+	say $x * $x;
+    +15241578780673678515622620750190521
+
+Or with rationals:
+
+        use 5.010;
+        use bigrat;
+        $x = 3/22;
+        $y = 4/6;
+        say "x/y is ", $x/$y;
+        say "x*y is ", $x*$y;
+        x/y is 9/44
+        x*y is 1/11
+
+Several modules let you calculate with unlimited or fixed precision
+(bound only by memory and CPU time).  There
+are also some non-standard modules that
+provide faster implementations via external C libraries.
+
+Here is a short, but incomplete summary:
+
+  Math::String           treat string sequences like numbers
+  Math::FixedPrecision   calculate with a fixed precision
+  Math::Currency         for currency calculations
+  Bit::Vector            manipulate bit vectors fast (uses C)
+  Math::BigIntFast       Bit::Vector wrapper for big numbers
+  Math::Pari             provides access to the Pari C library
+  Math::Cephes           uses the external Cephes C library (no
+                         big numbers)
+  Math::Cephes::Fraction fractions via the Cephes library
+  Math::GMP              another one using an external C library
+  Math::GMPz             an alternative interface to libgmp's big ints
+  Math::GMPq             an interface to libgmp's fraction numbers
+  Math::GMPf             an interface to libgmp's floating point numbers
+
+Choose wisely.
+
+=cut
diff --git a/lib/5.24.1/pod/perlopenbsd.pod b/lib/5.24.1/pod/perlopenbsd.pod
new file mode 100644
index 00000000..8126ce3e
--- /dev/null
+++ b/lib/5.24.1/pod/perlopenbsd.pod
@@ -0,0 +1,30 @@
+If you read this file _as_is_, just ignore the funny characters you
+see.  It is written in the POD format (see pod/perlpod.pod) which is
+specifically designed to be readable as is.
+
+=head1 NAME
+
+perlopenbsd - Perl version 5 on OpenBSD systems
+
+=head1 DESCRIPTION
+
+This document describes various features of OpenBSD that will affect how Perl
+version 5 (hereafter just Perl) is compiled and/or runs.
+
+=head2 OpenBSD core dumps from getprotobyname_r and getservbyname_r with ithreads
+
+When Perl is configured to use ithreads, it will use re-entrant library calls
+in preference to non-re-entrant versions.  There is an incompatibility in
+OpenBSD's C<getprotobyname_r> and C<getservbyname_r> function in versions 3.7
+and later that will cause a SEGV when called without doing a C<bzero> on
+their return structs prior to calling these functions.  Current Perl's
+should handle this problem correctly.  Older threaded Perls (5.8.6 or earlier)
+will run into this problem.  If you want to run a threaded Perl on OpenBSD
+3.7 or higher, you will need to upgrade to at least Perl 5.8.7.
+
+=head1 AUTHOR
+
+Steve Peters <steve@fisharerojo.org>
+
+Please report any errors, updates, or suggestions to F<perlbug@perl.org>.
+
diff --git a/lib/5.24.1/pod/perlopentut.pod b/lib/5.24.1/pod/perlopentut.pod
new file mode 100644
index 00000000..b83e14a2
--- /dev/null
+++ b/lib/5.24.1/pod/perlopentut.pod
@@ -0,0 +1,278 @@
+=encoding utf8
+
+=head1 NAME
+
+perlopentut - simple recipes for opening files and pipes in Perl
+
+=head1 DESCRIPTION
+
+Whenever you do I/O on a file in Perl, you do so through what in Perl is
+called a B<filehandle>.  A filehandle is an internal name for an external
+file.  It is the job of the C<open> function to make the association
+between the internal name and the external name, and it is the job
+of the C<close> function to break that association.
+
+For your convenience, Perl sets up a few special filehandles that are
+already open when you run.  These include C<STDIN>, C<STDOUT>, C<STDERR>,
+and C<ARGV>.  Since those are pre-opened, you can use them right away
+without having to go to the trouble of opening them yourself:
+
+    print STDERR "This is a debugging message.\n";
+
+    print STDOUT "Please enter something: ";
+    $response = <STDIN> // die "how come no input?";
+    print STDOUT "Thank you!\n";
+
+    while (<ARGV>) { ... }
+
+As you see from those examples, C<STDOUT> and C<STDERR> are output
+handles, and C<STDIN> and C<ARGV> are input handles.  They are
+in all capital letters because they are reserved to Perl, much
+like the C<@ARGV> array and the C<%ENV> hash are.  Their external
+associations were set up by your shell.
+
+You will need to open every other filehandle on your own. Although there
+are many variants, the most common way to call Perl's open() function
+is with three arguments and one return value:
+
+C<    I<OK> = open(I<HANDLE>, I<MODE>, I<PATHNAME>)>
+
+Where:
+
+=over
+
+=item I<OK>
+
+will be some defined value if the open succeeds, but
+C<undef> if it fails;
+
+=item I<HANDLE>
+
+should be an undefined scalar variable to be filled in by the
+C<open> function if it succeeds;
+
+=item I<MODE>
+
+is the access mode and the encoding format to open the file with;
+
+=item I<PATHNAME>
+
+is the external name of the file you want opened.
+
+=back
+
+Most of the complexity of the C<open> function lies in the many
+possible values that the I<MODE> parameter can take on.
+
+One last thing before we show you how to open files: opening
+files does not (usually) automatically lock them in Perl.  See
+L<perlfaq5> for how to lock.
+
+=head1 Opening Text Files
+
+=head2 Opening Text Files for Reading
+
+If you want to read from a text file, first open it in
+read-only mode like this:
+
+    my $filename = "/some/path/to/a/textfile/goes/here";
+    my $encoding = ":encoding(UTF-8)";
+    my $handle   = undef;     # this will be filled in on success
+
+    open($handle, "< $encoding", $filename)
+        || die "$0: can't open $filename for reading: $!";
+
+As with the shell, in Perl the C<< "<" >> is used to open the file in
+read-only mode.  If it succeeds, Perl allocates a brand new filehandle for
+you and fills in your previously undefined C<$handle> argument with a
+reference to that handle.
+
+Now you may use functions like C<readline>, C<read>, C<getc>, and
+C<sysread> on that handle.  Probably the most common input function
+is the one that looks like an operator:
+
+    $line = readline($handle);
+    $line = <$handle>;          # same thing
+
+Because the C<readline> function returns C<undef> at end of file or
+upon error, you will sometimes see it used this way:
+
+    $line = <$handle>;
+    if (defined $line) {
+        # do something with $line
+    }
+    else {
+        # $line is not valid, so skip it
+    }
+
+You can also just quickly C<die> on an undefined value this way:
+
+    $line = <$handle> // die "no input found";
+
+However, if hitting EOF is an expected and normal event, you do not want to
+exit simply because you have run out of input.  Instead, you probably just want
+to exit an input loop.  You can then test to see if an actual error has caused
+the loop to terminate, and act accordingly:
+
+    while (<$handle>) {
+        # do something with data in $_
+    }
+    if ($!) {
+        die "unexpected error while reading from $filename: $!";
+    }
+
+B<A Note on Encodings>: Having to specify the text encoding every time
+might seem a bit of a bother.  To set up a default encoding for C<open> so
+that you don't have to supply it each time, you can use the C<open> pragma:
+
+    use open qw< :encoding(UTF-8) >;
+
+Once you've done that, you can safely omit the encoding part of the
+open mode:
+
+    open($handle, "<", $filename)
+        || die "$0: can't open $filename for reading: $!";
+
+But never use the bare C<< "<" >> without having set up a default encoding
+first.  Otherwise, Perl cannot know which of the many, many, many possible
+flavors of text file you have, and Perl will have no idea how to correctly
+map the data in your file into actual characters it can work with.  Other
+common encoding formats including C<"ASCII">, C<"ISO-8859-1">,
+C<"ISO-8859-15">, C<"Windows-1252">, C<"MacRoman">, and even C<"UTF-16LE">.
+See L<perlunitut> for more about encodings.
+
+=head2 Opening Text Files for Writing
+
+When you want to write to a file, you first have to decide what to do about
+any existing contents of that file.  You have two basic choices here: to
+preserve or to clobber.
+
+If you want to preserve any existing contents, then you want to open the file
+in append mode.  As in the shell, in Perl you use C<<< ">>" >>> to open an
+existing file in append mode.  C<<< ">>" >>> creates the file if it does not
+already exist.
+
+    my $handle   = undef;
+    my $filename = "/some/path/to/a/textfile/goes/here";
+    my $encoding = ":encoding(UTF-8)";
+
+    open($handle, ">> $encoding", $filename)
+        || die "$0: can't open $filename for appending: $!";
+
+Now you can write to that filehandle using any of C<print>, C<printf>,
+C<say>, C<write>, or C<syswrite>.
+
+As noted above, if the file does not already exist, then the append-mode open
+will create it for you.  But if the file does already exist, its contents are
+safe from harm because you will be adding your new text past the end of the
+old text.
+
+On the other hand, sometimes you want to clobber whatever might already be
+there.  To empty out a file before you start writing to it, you can open it
+in write-only mode:
+
+    my $handle   = undef;
+    my $filename = "/some/path/to/a/textfile/goes/here";
+    my $encoding = ":encoding(UTF-8)";
+
+    open($handle, "> $encoding", $filename)
+        || die "$0: can't open $filename in write-open mode: $!";
+
+Here again Perl works just like the shell in that the C<< ">" >> clobbers
+an existing file.
+
+As with the append mode, when you open a file in write-only mode,
+you can now write to that filehandle using any of C<print>, C<printf>,
+C<say>, C<write>, or C<syswrite>.
+
+What about read-write mode?  You should probably pretend it doesn't exist,
+because opening text files in read-write mode is unlikely to do what you
+would like.  See L<perlfaq5> for details.
+
+=head1 Opening Binary Files
+
+If the file to be opened contains binary data instead of text characters,
+then the C<MODE> argument to C<open> is a little different.  Instead of
+specifying the encoding, you tell Perl that your data are in raw bytes.
+
+    my $filename = "/some/path/to/a/binary/file/goes/here";
+    my $encoding = ":raw :bytes"
+    my $handle   = undef;     # this will be filled in on success
+
+And then open as before, choosing C<<< "<" >>>, C<<< ">>" >>>, or
+C<<< ">" >>> as needed:
+
+    open($handle, "< $encoding", $filename)
+        || die "$0: can't open $filename for reading: $!";
+
+    open($handle, ">> $encoding", $filename)
+        || die "$0: can't open $filename for appending: $!";
+
+    open($handle, "> $encoding", $filename)
+        || die "$0: can't open $filename in write-open mode: $!";
+
+Alternately, you can change to binary mode on an existing handle this way:
+
+    binmode($handle)    || die "cannot binmode handle";
+
+This is especially handy for the handles that Perl has already opened for you.
+
+    binmode(STDIN)      || die "cannot binmode STDIN";
+    binmode(STDOUT)     || die "cannot binmode STDOUT";
+
+You can also pass C<binmode> an explicit encoding to change it on the fly.
+This isn't exactly "binary" mode, but we still use C<binmode> to do it:
+
+  binmode(STDIN,  ":encoding(MacRoman)") || die "cannot binmode STDIN";
+  binmode(STDOUT, ":encoding(UTF-8)")    || die "cannot binmode STDOUT";
+
+Once you have your binary file properly opened in the right mode, you can
+use all the same Perl I/O functions as you used on text files.  However,
+you may wish to use the fixed-size C<read> instead of the variable-sized
+C<readline> for your input.
+
+Here's an example of how to copy a binary file:
+
+    my $BUFSIZ   = 64 * (2 ** 10);
+    my $name_in  = "/some/input/file";
+    my $name_out = "/some/output/flie";
+
+    my($in_fh, $out_fh, $buffer);
+
+    open($in_fh,  "<", $name_in)
+        || die "$0: cannot open $name_in for reading: $!";
+    open($out_fh, ">", $name_out)
+        || die "$0: cannot open $name_out for writing: $!";
+
+    for my $fh ($in_fh, $out_fh)  {
+        binmode($fh)               || die "binmode failed";
+    }
+
+    while (read($in_fh, $buffer, $BUFSIZ)) {
+        unless (print $out_fh $buffer) {
+            die "couldn't write to $name_out: $!";
+        }
+    }
+
+    close($in_fh)       || die "couldn't close $name_in: $!";
+    close($out_fh)      || die "couldn't close $name_out: $!";
+
+=head1 Opening Pipes
+
+To be announced.
+
+=head1 Low-level File Opens via sysopen
+
+To be announced.  Or deleted.
+
+=head1 SEE ALSO
+
+To be announced.
+
+=head1 AUTHOR and COPYRIGHT
+
+Copyright 2013 Tom Christiansen.
+
+This documentation is free; you can redistribute it and/or modify it under
+the same terms as Perl itself.
+
diff --git a/lib/5.24.1/pod/perlos2.pod b/lib/5.24.1/pod/perlos2.pod
new file mode 100644
index 00000000..6c0eaf26
--- /dev/null
+++ b/lib/5.24.1/pod/perlos2.pod
@@ -0,0 +1,2770 @@
+If you read this file _as_is_, just ignore the funny characters you
+see. It is written in the POD format (see perlpod manpage) which is
+specially designed to be readable as is.
+
+=head1 NAME
+
+perlos2 - Perl under OS/2, DOS, Win0.3*, Win0.95 and WinNT.
+
+=head1 SYNOPSIS
+
+One can read this document in the following formats:
+
+	man perlos2
+	view perl perlos2
+	explorer perlos2.html
+	info perlos2
+
+to list some (not all may be available simultaneously), or it may
+be read I<as is>: either as F<README.os2>, or F<pod/perlos2.pod>.
+
+To read the F<.INF> version of documentation (B<very> recommended)
+outside of OS/2, one needs an IBM's reader (may be available on IBM
+ftp sites (?)  (URL anyone?)) or shipped with PC DOS 7.0 and IBM's
+Visual Age C++ 3.5.
+
+A copy of a Win* viewer is contained in the "Just add OS/2 Warp" package
+
+  ftp://ftp.software.ibm.com/ps/products/os2/tools/jaow/jaow.zip
+
+in F<?:\JUST_ADD\view.exe>. This gives one an access to EMX's 
+F<.INF> docs as well (text form is available in F</emx/doc> in 
+EMX's distribution).  There is also a different viewer named xview.
+
+Note that if you have F<lynx.exe> or F<netscape.exe> installed, you can follow WWW links
+from this document in F<.INF> format. If you have EMX docs installed 
+correctly, you can follow library links (you need to have C<view emxbook>
+working by setting C<EMXBOOK> environment variable as it is described
+in EMX docs).
+
+=cut
+
+Contents (This may be a little bit obsolete)
+ 
+ perlos2 - Perl under OS/2, DOS, Win0.3*, Win0.95 and WinNT.
+
+      NAME
+      SYNOPSIS
+      DESCRIPTION
+	 -  Target
+	 -  Other OSes
+	 -  Prerequisites
+	 -  Starting Perl programs under OS/2 (and DOS and...)
+	 -  Starting OS/2 (and DOS) programs under Perl
+      Frequently asked questions
+	 -  "It does not work"
+	 -  I cannot run external programs
+	 -  I cannot embed perl into my program, or use perl.dll from my
+	 -  `` and pipe-open do not work under DOS.
+	 -  Cannot start find.exe "pattern" file
+      INSTALLATION
+	 -  Automatic binary installation
+	 -  Manual binary installation
+	 -  Warning
+      Accessing documentation
+	 -  OS/2 .INF file
+	 -  Plain text
+	 -  Manpages
+	 -  HTML
+	 -  GNU info files
+	 -  PDF files
+	 -  LaTeX docs
+      BUILD
+	 -  The short story
+	 -  Prerequisites
+	 -  Getting perl source
+	 -  Application of the patches
+	 -  Hand-editing
+	 -  Making
+	 -  Testing
+	 -  Installing the built perl
+	 -  a.out-style build
+      Build FAQ
+	 -  Some / became \ in pdksh.
+	 -  'errno' - unresolved external
+	 -  Problems with tr or sed
+	 -  Some problem (forget which ;-)
+	 -  Library ... not found
+	 -  Segfault in make
+	 -  op/sprintf test failure
+      Specific (mis)features of OS/2 port
+	 -  setpriority, getpriority
+	 -  system()
+	 -  extproc on the first line
+	 -  Additional modules:
+	 -  Prebuilt methods:
+	 -  Prebuilt variables:
+	 -  Misfeatures
+	 -  Modifications
+	 -  Identifying DLLs
+	 -  Centralized management of resources
+      Perl flavors
+	 -  perl.exe
+	 -  perl_.exe
+	 -  perl__.exe
+	 -  perl___.exe
+	 -  Why strange names?
+	 -  Why dynamic linking?
+	 -  Why chimera build?
+      ENVIRONMENT
+	 -  PERLLIB_PREFIX
+	 -  PERL_BADLANG
+	 -  PERL_BADFREE
+	 -  PERL_SH_DIR
+	 -  USE_PERL_FLOCK
+	 -  TMP or TEMP
+      Evolution
+	 -  Text-mode filehandles
+	 -  Priorities
+	 -  DLL name mangling: pre 5.6.2
+	 -  DLL name mangling: 5.6.2 and beyond
+	 -  DLL forwarder generation
+	 -  Threading
+	 -  Calls to external programs
+	 -  Memory allocation
+	 -  Threads
+      BUGS
+      AUTHOR
+      SEE ALSO
+
+=head1 DESCRIPTION
+
+=head2 Target
+
+The target is to make OS/2 one of the best supported platform for
+using/building/developing Perl and I<Perl applications>, as well as
+make Perl the best language to use under OS/2. The secondary target is
+to try to make this work under DOS and Win* as well (but not B<too> hard).
+
+The current state is quite close to this target. Known limitations:
+
+=over 5
+
+=item *
+
+Some *nix programs use fork() a lot; with the mostly useful flavors of
+perl for OS/2 (there are several built simultaneously) this is
+supported; but some flavors do not support this (e.g., when Perl is
+called from inside REXX).  Using fork() after
+I<use>ing dynamically loading extensions would not work with I<very> old
+versions of EMX.
+
+=item *
+
+You need a separate perl executable F<perl__.exe> (see L</perl__.exe>)
+if you want to use PM code in your application (as Perl/Tk or OpenGL
+Perl modules do) without having a text-mode window present.
+
+While using the standard F<perl.exe> from a text-mode window is possible
+too, I have seen cases when this causes degradation of the system stability.
+Using F<perl__.exe> avoids such a degradation.
+
+=item *
+
+There is no simple way to access WPS objects. The only way I know
+is via C<OS2::REXX> and C<SOM> extensions (see L<OS2::REXX>, L<SOM>).
+However, we do not have access to
+convenience methods of Object-REXX. (Is it possible at all? I know
+of no Object-REXX API.)  The C<SOM> extension (currently in alpha-text)
+may eventually remove this shortcoming; however, due to the fact that
+DII is not supported by the C<SOM> module, using C<SOM> is not as
+convenient as one would like it.
+
+=back
+
+Please keep this list up-to-date by informing me about other items.
+
+=head2 Other OSes
+
+Since OS/2 port of perl uses a remarkable EMX environment, it can
+run (and build extensions, and - possibly - be built itself) under any
+environment which can run EMX. The current list is DOS,
+DOS-inside-OS/2, Win0.3*, Win0.95 and WinNT. Out of many perl flavors,
+only one works, see L<"perl_.exe">.
+
+Note that not all features of Perl are available under these
+environments. This depends on the features the I<extender> - most
+probably RSX - decided to implement.
+
+Cf. L</Prerequisites>.
+
+=head2 Prerequisites
+
+=over 6
+
+=item EMX
+
+EMX runtime is required (may be substituted by RSX). Note that
+it is possible to make F<perl_.exe> to run under DOS without any
+external support by binding F<emx.exe>/F<rsx.exe> to it, see C<emxbind>. Note
+that under DOS for best results one should use RSX runtime, which
+has much more functions working (like C<fork>, C<popen> and so on). In
+fact RSX is required if there is no VCPI present. Note the
+RSX requires DPMI.  Many implementations of DPMI are known to be very
+buggy, beware!
+
+Only the latest runtime is supported, currently C<0.9d fix 03>. Perl may run
+under earlier versions of EMX, but this is not tested.
+
+One can get different parts of EMX from, say
+
+  ftp://crydee.sai.msu.ru/pub/comp/os/os2/leo/gnu/emx+gcc/
+  http://hobbes.nmsu.edu/h-browse.php?dir=/pub/os2/dev/emx/v0.9d/
+
+The runtime component should have the name F<emxrt.zip>.
+
+B<NOTE>. When using F<emx.exe>/F<rsx.exe>, it is enough to have them on your path. One
+does not need to specify them explicitly (though this
+
+  emx perl_.exe -de 0
+
+will work as well.)
+
+=item RSX
+
+To run Perl on DPMI platforms one needs RSX runtime. This is
+needed under DOS-inside-OS/2, Win0.3*, Win0.95 and WinNT (see 
+L<"Other OSes">). RSX would not work with VCPI
+only, as EMX would, it requires DMPI.
+
+Having RSX and the latest F<sh.exe> one gets a fully functional
+B<*nix>-ish environment under DOS, say, C<fork>, C<``> and
+pipe-C<open> work. In fact, MakeMaker works (for static build), so one
+can have Perl development environment under DOS. 
+
+One can get RSX from, say
+
+  http://cd.textfiles.com/hobbesos29804/disk1/EMX09C/
+  ftp://crydee.sai.msu.ru/pub/comp/os/os2/leo/gnu/emx+gcc/contrib/
+
+Contact the author on C<rainer@mathematik.uni-bielefeld.de>.
+
+The latest F<sh.exe> with DOS hooks is available in
+
+  http://www.ilyaz.org/software/os2/
+
+as F<sh_dos.zip> or under similar names starting with C<sh>, C<pdksh> etc.
+
+=item HPFS
+
+Perl does not care about file systems, but the perl library contains
+many files with long names, so to install it intact one needs a file
+system which supports long file names.
+
+Note that if you do not plan to build the perl itself, it may be
+possible to fool EMX to truncate file names. This is not supported,
+read EMX docs to see how to do it.
+
+=item pdksh
+
+To start external programs with complicated command lines (like with
+pipes in between, and/or quoting of arguments), Perl uses an external
+shell. With EMX port such shell should be named F<sh.exe>, and located
+either in the wired-in-during-compile locations (usually F<F:/bin>),
+or in configurable location (see L<"PERL_SH_DIR">).
+
+For best results use EMX pdksh. The standard binary (5.2.14 or later) runs
+under DOS (with L</RSX>) as well, see
+
+  http://www.ilyaz.org/software/os2/
+
+=back
+
+=head2 Starting Perl programs under OS/2 (and DOS and...)
+
+Start your Perl program F<foo.pl> with arguments C<arg1 arg2 arg3> the
+same way as on any other platform, by
+
+	perl foo.pl arg1 arg2 arg3
+
+If you want to specify perl options C<-my_opts> to the perl itself (as
+opposed to your program), use
+
+	perl -my_opts foo.pl arg1 arg2 arg3
+
+Alternately, if you use OS/2-ish shell, like CMD or 4os2, put
+the following at the start of your perl script:
+
+	extproc perl -S -my_opts
+
+rename your program to F<foo.cmd>, and start it by typing
+
+	foo arg1 arg2 arg3
+
+Note that because of stupid OS/2 limitations the full path of the perl
+script is not available when you use C<extproc>, thus you are forced to
+use C<-S> perl switch, and your script should be on the C<PATH>. As a plus
+side, if you know a full path to your script, you may still start it
+with 
+
+	perl ../../blah/foo.cmd arg1 arg2 arg3
+
+(note that the argument C<-my_opts> is taken care of by the C<extproc> line
+in your script, see L<C<extproc> on the first line>).
+
+To understand what the above I<magic> does, read perl docs about C<-S>
+switch - see L<perlrun>, and cmdref about C<extproc>:
+
+	view perl perlrun
+	man perlrun
+	view cmdref extproc
+	help extproc
+
+or whatever method you prefer.
+
+There are also endless possibilities to use I<executable extensions> of
+4os2, I<associations> of WPS and so on... However, if you use
+*nixish shell (like F<sh.exe> supplied in the binary distribution),
+you need to follow the syntax specified in L<perlrun/"Command Switches">.
+
+Note that B<-S> switch supports scripts with additional extensions 
+F<.cmd>, F<.btm>, F<.bat>, F<.pl> as well.
+
+=head2 Starting OS/2 (and DOS) programs under Perl
+
+This is what system() (see L<perlfunc/system>), C<``> (see
+L<perlop/"I/O Operators">), and I<open pipe> (see L<perlfunc/open>)
+are for. (Avoid exec() (see L<perlfunc/exec>) unless you know what you
+do).
+
+Note however that to use some of these operators you need to have a
+sh-syntax shell installed (see L<"Pdksh">, 
+L<"Frequently asked questions">), and perl should be able to find it
+(see L<"PERL_SH_DIR">).
+
+The cases when the shell is used are:
+
+=over
+
+=item 1
+
+One-argument system() (see L<perlfunc/system>), exec() (see L<perlfunc/exec>)
+with redirection or shell meta-characters;
+
+=item 2
+
+Pipe-open (see L<perlfunc/open>) with the command which contains redirection 
+or shell meta-characters;
+
+=item 3
+
+Backticks C<``> (see L<perlop/"I/O Operators">) with the command which contains
+redirection or shell meta-characters;
+
+=item 4
+
+If the executable called by system()/exec()/pipe-open()/C<``> is a script
+with the "magic" C<#!> line or C<extproc> line which specifies shell;
+
+=item 5
+
+If the executable called by system()/exec()/pipe-open()/C<``> is a script
+without "magic" line, and C<$ENV{EXECSHELL}> is set to shell;
+
+=item 6
+
+If the executable called by system()/exec()/pipe-open()/C<``> is not
+found (is not this remark obsolete?);
+
+=item 7
+
+For globbing (see L<perlfunc/glob>, L<perlop/"I/O Operators">)
+(obsolete? Perl uses builtin globbing nowadays...).
+
+=back
+
+For the sake of speed for a common case, in the above algorithms 
+backslashes in the command name are not considered as shell metacharacters.
+
+Perl starts scripts which begin with cookies
+C<extproc> or C<#!> directly, without an intervention of shell.  Perl uses the
+same algorithm to find the executable as F<pdksh>: if the path
+on C<#!> line does not work, and contains C</>, then the directory
+part of the executable is ignored, and the executable
+is searched in F<.> and on C<PATH>.  To find arguments for these scripts
+Perl uses a different algorithm than F<pdksh>: up to 3 arguments are 
+recognized, and trailing whitespace is stripped.
+
+If a script
+does not contain such a cooky, then to avoid calling F<sh.exe>, Perl uses
+the same algorithm as F<pdksh>: if C<$ENV{EXECSHELL}> is set, the
+script is given as the first argument to this command, if not set, then
+C<$ENV{COMSPEC} /c> is used (or a hardwired guess if C<$ENV{COMSPEC}> is
+not set).
+
+When starting scripts directly, Perl uses exactly the same algorithm as for 
+the search of script given by B<-S> command-line option: it will look in
+the current directory, then on components of C<$ENV{PATH}> using the 
+following order of appended extensions: no extension, F<.cmd>, F<.btm>, 
+F<.bat>, F<.pl>.
+
+Note that Perl will start to look for scripts only if OS/2 cannot start the
+specified application, thus C<system 'blah'> will not look for a script if 
+there is an executable file F<blah.exe> I<anywhere> on C<PATH>.  In
+other words, C<PATH> is essentially searched twice: once by the OS for
+an executable, then by Perl for scripts.
+
+Note also that executable files on OS/2 can have an arbitrary extension, but
+F<.exe> will be automatically appended if no dot is present in the name.  The
+workaround is as simple as that:  since F<blah.> and F<blah> denote the same
+file (at list on FAT and HPFS file systems), to start an executable residing in
+file F<n:/bin/blah> (no extension) give an argument C<n:/bin/blah.> (dot
+appended) to system().
+
+Perl will start PM programs from VIO (=text-mode) Perl process in a
+separate PM session;
+the opposite is not true: when you start a non-PM program from a PM
+Perl process, Perl would not run it in a separate session.  If a separate
+session is desired, either ensure
+that shell will be used, as in C<system 'cmd /c myprog'>, or start it using
+optional arguments to system() documented in C<OS2::Process> module.  This
+is considered to be a feature.
+
+=head1 Frequently asked questions
+
+=head2 "It does not work"
+
+Perl binary distributions come with a F<testperl.cmd> script which tries
+to detect common problems with misconfigured installations.  There is a
+pretty large chance it will discover which step of the installation you
+managed to goof.  C<;-)>
+
+=head2 I cannot run external programs
+
+=over 4
+
+=item *
+
+Did you run your programs with C<-w> switch? See 
+L<Starting OSE<sol>2 (and DOS) programs under Perl>.
+
+=item *
+
+Do you try to run I<internal> shell commands, like C<`copy a b`>
+(internal for F<cmd.exe>), or C<`glob a*b`> (internal for ksh)? You
+need to specify your shell explicitly, like C<`cmd /c copy a b`>,
+since Perl cannot deduce which commands are internal to your shell.
+
+=back
+
+=head2 I cannot embed perl into my program, or use F<perl.dll> from my
+program. 
+
+=over 4
+
+=item Is your program EMX-compiled with C<-Zmt -Zcrtdll>?
+
+Well, nowadays Perl DLL should be usable from a differently compiled
+program too...  If you can run Perl code from REXX scripts (see
+L<OS2::REXX>), then there are some other aspect of interaction which
+are overlooked by the current hackish code to support
+differently-compiled principal programs.
+
+If everything else fails, you need to build a stand-alone DLL for
+perl. Contact me, I did it once. Sockets would not work, as a lot of
+other stuff.
+
+=item Did you use L<ExtUtils::Embed>?
+
+Some time ago I had reports it does not work.  Nowadays it is checked
+in the Perl test suite, so grep F<./t> subdirectory of the build tree
+(as well as F<*.t> files in the F<./lib> subdirectory) to find how it
+should be done "correctly".
+
+=back
+
+=head2 C<``> and pipe-C<open> do not work under DOS.
+
+This may a variant of just L<"I cannot run external programs">, or a
+deeper problem. Basically: you I<need> RSX (see L</Prerequisites>)
+for these commands to work, and you may need a port of F<sh.exe> which
+understands command arguments. One of such ports is listed in
+L</Prerequisites> under RSX. Do not forget to set variable
+C<L<"PERL_SH_DIR">> as well.
+
+DPMI is required for RSX.
+
+=head2 Cannot start C<find.exe "pattern" file>
+
+The whole idea of the "standard C API to start applications" is that
+the forms C<foo> and C<"foo"> of program arguments are completely
+interchangeable.  F<find> breaks this paradigm;
+
+  find "pattern" file
+  find pattern file
+
+are not equivalent; F<find> cannot be started directly using the above
+API.  One needs a way to surround the doublequotes in some other
+quoting construction, necessarily having an extra non-Unixish shell in
+between.
+
+Use one of
+
+  system 'cmd', '/c', 'find "pattern" file';
+  `cmd /c 'find "pattern" file'`
+
+This would start F<find.exe> via F<cmd.exe> via C<sh.exe> via
+C<perl.exe>, but this is a price to pay if you want to use
+non-conforming program.
+
+=head1 INSTALLATION
+
+=head2 Automatic binary installation
+
+The most convenient way of installing a binary distribution of perl is via perl installer
+F<install.exe>. Just follow the instructions, and 99% of the
+installation blues would go away. 
+
+Note however, that you need to have F<unzip.exe> on your path, and
+EMX environment I<running>. The latter means that if you just
+installed EMX, and made all the needed changes to F<Config.sys>,
+you may need to reboot in between. Check EMX runtime by running
+
+	emxrev
+
+Binary installer also creates a folder on your desktop with some useful
+objects.  If you need to change some aspects of the work of the binary
+installer, feel free to edit the file F<Perl.pkg>.  This may be useful
+e.g., if you need to run the installer many times and do not want to
+make many interactive changes in the GUI.
+
+B<Things not taken care of by automatic binary installation:>
+
+=over 15
+
+=item C<PERL_BADLANG>
+
+may be needed if you change your codepage I<after> perl installation,
+and the new value is not supported by EMX. See L<"PERL_BADLANG">.
+
+=item C<PERL_BADFREE>
+
+see L<"PERL_BADFREE">.
+
+=item F<Config.pm>
+
+This file resides somewhere deep in the location you installed your
+perl library, find it out by 
+
+  perl -MConfig -le "print $INC{'Config.pm'}"
+
+While most important values in this file I<are> updated by the binary
+installer, some of them may need to be hand-edited. I know no such
+data, please keep me informed if you find one.  Moreover, manual
+changes to the installed version may need to be accompanied by an edit
+of this file.
+
+=back
+
+B<NOTE>. Because of a typo the binary installer of 5.00305
+would install a variable C<PERL_SHPATH> into F<Config.sys>. Please
+remove this variable and put C<L</PERL_SH_DIR>> instead.
+
+=head2 Manual binary installation
+
+As of version 5.00305, OS/2 perl binary distribution comes split
+into 11 components. Unfortunately, to enable configurable binary
+installation, the file paths in the zip files are not absolute, but
+relative to some directory.
+
+Note that the extraction with the stored paths is still necessary
+(default with unzip, specify C<-d> to pkunzip). However, you
+need to know where to extract the files. You need also to manually
+change entries in F<Config.sys> to reflect where did you put the
+files. Note that if you have some primitive unzipper (like
+C<pkunzip>), you may get a lot of warnings/errors during
+unzipping. Upgrade to C<(w)unzip>.
+
+Below is the sample of what to do to reproduce the configuration on my
+machine.  In F<VIEW.EXE> you can press C<Ctrl-Insert> now, and
+cut-and-paste from the resulting file - created in the directory you
+started F<VIEW.EXE> from.
+
+For each component, we mention environment variables related to each
+installation directory.  Either choose directories to match your
+values of the variables, or create/append-to variables to take into
+account the directories.
+
+=over 3
+
+=item Perl VIO and PM executables (dynamically linked)
+
+  unzip perl_exc.zip *.exe *.ico -d f:/emx.add/bin
+  unzip perl_exc.zip *.dll -d f:/emx.add/dll
+
+(have the directories with C<*.exe> on PATH, and C<*.dll> on
+LIBPATH);
+
+=item Perl_ VIO executable (statically linked)
+
+  unzip perl_aou.zip -d f:/emx.add/bin
+
+(have the directory on PATH);
+
+=item Executables for Perl utilities
+
+  unzip perl_utl.zip -d f:/emx.add/bin
+
+(have the directory on PATH);
+
+=item Main Perl library
+
+  unzip perl_mlb.zip -d f:/perllib/lib
+
+If this directory is exactly the same as the prefix which was compiled
+into F<perl.exe>, you do not need to change
+anything. However, for perl to find the library if you use a different
+path, you need to
+C<set PERLLIB_PREFIX> in F<Config.sys>, see L<"PERLLIB_PREFIX">.
+
+=item Additional Perl modules
+
+  unzip perl_ste.zip -d f:/perllib/lib/site_perl/5.24.1/
+
+Same remark as above applies.  Additionally, if this directory is not
+one of directories on @INC (and @INC is influenced by C<PERLLIB_PREFIX>), you
+need to put this
+directory and subdirectory F<./os2> in C<PERLLIB> or C<PERL5LIB>
+variable. Do not use C<PERL5LIB> unless you have it set already. See
+L<perl/"ENVIRONMENT">.
+
+B<[Check whether this extraction directory is still applicable with
+the new directory structure layout!]>
+
+=item Tools to compile Perl modules
+
+  unzip perl_blb.zip -d f:/perllib/lib
+
+Same remark as for F<perl_ste.zip>.
+
+=item Manpages for Perl and utilities
+
+  unzip perl_man.zip -d f:/perllib/man
+
+This directory should better be on C<MANPATH>. You need to have a
+working F<man> to access these files.
+
+=item Manpages for Perl modules
+
+  unzip perl_mam.zip -d f:/perllib/man
+
+This directory should better be on C<MANPATH>. You need to have a
+working man to access these files.
+
+=item Source for Perl documentation
+
+  unzip perl_pod.zip -d f:/perllib/lib
+
+This is used by the C<perldoc> program (see L<perldoc>), and may be used to
+generate HTML documentation usable by WWW browsers, and
+documentation in zillions of other formats: C<info>, C<LaTeX>,
+C<Acrobat>, C<FrameMaker> and so on.  [Use programs such as
+F<pod2latex> etc.]
+
+=item Perl manual in F<.INF> format
+
+  unzip perl_inf.zip -d d:/os2/book
+
+This directory should better be on C<BOOKSHELF>.
+
+=item Pdksh
+
+  unzip perl_sh.zip -d f:/bin
+
+This is used by perl to run external commands which explicitly
+require shell, like the commands using I<redirection> and I<shell
+metacharacters>. It is also used instead of explicit F</bin/sh>.
+
+Set C<PERL_SH_DIR> (see L<"PERL_SH_DIR">) if you move F<sh.exe> from
+the above location.
+
+B<Note.> It may be possible to use some other sh-compatible shell (untested).
+
+=back
+
+After you installed the components you needed and updated the
+F<Config.sys> correspondingly, you need to hand-edit
+F<Config.pm>. This file resides somewhere deep in the location you
+installed your perl library, find it out by
+
+  perl -MConfig -le "print $INC{'Config.pm'}"
+
+You need to correct all the entries which look like file paths (they
+currently start with C<f:/>).
+
+=head2 B<Warning>
+
+The automatic and manual perl installation leave precompiled paths
+inside perl executables. While these paths are overwriteable (see
+L<"PERLLIB_PREFIX">, L<"PERL_SH_DIR">), some people may prefer
+binary editing of paths inside the executables/DLLs.
+
+=head1 Accessing documentation
+
+Depending on how you built/installed perl you may have (otherwise
+identical) Perl documentation in the following formats:
+
+=head2 OS/2 F<.INF> file
+
+Most probably the most convenient form. Under OS/2 view it as
+
+  view perl
+  view perl perlfunc
+  view perl less
+  view perl ExtUtils::MakeMaker
+
+(currently the last two may hit a wrong location, but this may improve
+soon). Under Win* see L<"SYNOPSIS">.
+
+If you want to build the docs yourself, and have I<OS/2 toolkit>, run
+
+	pod2ipf > perl.ipf
+
+in F</perllib/lib/pod> directory, then
+
+	ipfc /inf perl.ipf
+
+(Expect a lot of errors during the both steps.) Now move it on your
+BOOKSHELF path.
+
+=head2 Plain text
+
+If you have perl documentation in the source form, perl utilities
+installed, and GNU groff installed, you may use 
+
+	perldoc perlfunc
+	perldoc less
+	perldoc ExtUtils::MakeMaker
+
+to access the perl documentation in the text form (note that you may get
+better results using perl manpages).
+
+Alternately, try running pod2text on F<.pod> files.
+
+=head2 Manpages
+
+If you have F<man> installed on your system, and you installed perl
+manpages, use something like this:
+
+	man perlfunc
+	man 3 less
+	man ExtUtils.MakeMaker
+
+to access documentation for different components of Perl. Start with
+
+	man perl
+
+Note that dot (F<.>) is used as a package separator for documentation
+for packages, and as usual, sometimes you need to give the section - C<3>
+above - to avoid shadowing by the I<less(1) manpage>.
+
+Make sure that the directory B<above> the directory with manpages is
+on our C<MANPATH>, like this
+
+  set MANPATH=c:/man;f:/perllib/man
+
+for Perl manpages in C<f:/perllib/man/man1/> etc.
+
+=head2 HTML
+
+If you have some WWW browser available, installed the Perl
+documentation in the source form, and Perl utilities, you can build
+HTML docs. Cd to directory with F<.pod> files, and do like this
+
+	cd f:/perllib/lib/pod
+	pod2html
+
+After this you can direct your browser the file F<perl.html> in this
+directory, and go ahead with reading docs, like this:
+
+	explore file:///f:/perllib/lib/pod/perl.html
+
+Alternatively you may be able to get these docs prebuilt from CPAN.
+
+=head2 GNU C<info> files
+
+Users of Emacs would appreciate it very much, especially with
+C<CPerl> mode loaded. You need to get latest C<pod2texi> from C<CPAN>,
+or, alternately, the prebuilt info pages.
+
+=head2 F<PDF> files
+
+for C<Acrobat> are available on CPAN (may be for slightly older version of
+perl).
+
+=head2 C<LaTeX> docs
+
+can be constructed using C<pod2latex>.
+
+=head1 BUILD
+
+Here we discuss how to build Perl under OS/2.
+
+=head2 The short story
+
+Assume that you are a seasoned porter, so are sure that all the necessary
+tools are already present on your system, and you know how to get the Perl
+source distribution.  Untar it, change to the extract directory, and
+
+  gnupatch -p0 < os2\diff.configure
+  sh Configure -des -D prefix=f:/perllib
+  make
+  make test
+  make install
+  make aout_test
+  make aout_install
+
+This puts the executables in f:/perllib/bin.  Manually move them to the
+C<PATH>, manually move the built F<perl*.dll> to C<LIBPATH> (here for
+Perl DLL F<*> is a not-very-meaningful hex checksum), and run
+
+  make installcmd INSTALLCMDDIR=d:/ir/on/path
+
+Assuming that the C<man>-files were put on an appropriate location,
+this completes the installation of minimal Perl system.  (The binary
+distribution contains also a lot of additional modules, and the
+documentation in INF format.)
+
+What follows is a detailed guide through these steps.
+
+=head2 Prerequisites
+
+You need to have the latest EMX development environment, the full
+GNU tool suite (gawk renamed to awk, and GNU F<find.exe>
+earlier on path than the OS/2 F<find.exe>, same with F<sort.exe>, to
+check use
+
+  find --version
+  sort --version
+
+). You need the latest version of F<pdksh> installed as F<sh.exe>.
+
+Check that you have B<BSD> libraries and headers installed, and - 
+optionally - Berkeley DB headers and libraries, and crypt.
+
+Possible locations to get the files:
+
+
+  ftp://ftp.uni-heidelberg.de/pub/os2/unix/
+  http://hobbes.nmsu.edu/h-browse.php?dir=/pub/os2
+  http://cd.textfiles.com/hobbesos29804/disk1/DEV32/
+  http://cd.textfiles.com/hobbesos29804/disk1/EMX09C/
+
+It is reported that the following archives contain enough utils to
+build perl: F<gnufutil.zip>, F<gnusutil.zip>, F<gnututil.zip>, F<gnused.zip>,
+F<gnupatch.zip>, F<gnuawk.zip>, F<gnumake.zip>, F<gnugrep.zip>, F<bsddev.zip> and
+F<ksh527rt.zip> (or a later version).  Note that all these utilities are
+known to be available from LEO:
+
+  ftp://crydee.sai.msu.ru/pub/comp/os/os2/leo/gnu/
+
+Note also that the F<db.lib> and F<db.a> from the EMX distribution
+are not suitable for multi-threaded compile (even single-threaded
+flavor of Perl uses multi-threaded C RTL, for
+compatibility with XFree86-OS/2). Get a corrected one from
+
+  http://www.ilyaz.org/software/os2/db_mt.zip
+
+If you have I<exactly the same version of Perl> installed already,
+make sure that no copies or perl are currently running.  Later steps
+of the build may fail since an older version of F<perl.dll> loaded into
+memory may be found.  Running C<make test> becomes meaningless, since
+the test are checking a previous build of perl (this situation is detected
+and reported by F<os2/os2_base.t> test).  Do not forget to unset
+C<PERL_EMXLOAD_SEC> in environment.
+
+Also make sure that you have F</tmp> directory on the current drive,
+and F<.> directory in your C<LIBPATH>. One may try to correct the
+latter condition by
+
+  set BEGINLIBPATH .\.
+
+if you use something like F<CMD.EXE> or latest versions of
+F<4os2.exe>.  (Setting BEGINLIBPATH to just C<.> is ignored by the
+OS/2 kernel.)
+
+Make sure your gcc is good for C<-Zomf> linking: run C<omflibs>
+script in F</emx/lib> directory.
+
+Check that you have link386 installed. It comes standard with OS/2,
+but may be not installed due to customization. If typing
+
+  link386
+
+shows you do not have it, do I<Selective install>, and choose C<Link
+object modules> in I<Optional system utilities/More>. If you get into
+link386 prompts, press C<Ctrl-C> to exit.
+
+=head2 Getting perl source
+
+You need to fetch the latest perl source (including developers
+releases). With some probability it is located in 
+
+  http://www.cpan.org/src/
+  http://www.cpan.org/src/unsupported
+
+If not, you may need to dig in the indices to find it in the directory
+of the current maintainer.
+
+Quick cycle of developers release may break the OS/2 build time to
+time, looking into 
+
+  http://www.cpan.org/ports/os2/
+
+may indicate the latest release which was publicly released by the
+maintainer. Note that the release may include some additional patches
+to apply to the current source of perl.
+
+Extract it like this
+
+  tar vzxf perl5.00409.tar.gz
+
+You may see a message about errors while extracting F<Configure>. This is
+because there is a conflict with a similarly-named file F<configure>.
+
+Change to the directory of extraction.
+
+=head2 Application of the patches
+
+You need to apply the patches in F<./os2/diff.*> like this:
+
+  gnupatch -p0 < os2\diff.configure
+
+You may also need to apply the patches supplied with the binary
+distribution of perl.  It also makes sense to look on the
+perl5-porters mailing list for the latest OS/2-related patches (see
+L<http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/>).  Such
+patches usually contain strings C</os2/> and C<patch>, so it makes
+sense looking for these strings.
+
+=head2 Hand-editing
+
+You may look into the file F<./hints/os2.sh> and correct anything
+wrong you find there. I do not expect it is needed anywhere.
+
+=head2 Making
+
+  sh Configure -des -D prefix=f:/perllib
+
+C<prefix> means: where to install the resulting perl library. Giving
+correct prefix you may avoid the need to specify C<PERLLIB_PREFIX>,
+see L<"PERLLIB_PREFIX">.
+
+I<Ignore the message about missing C<ln>, and about C<-c> option to
+tr>. The latter is most probably already fixed, if you see it and can trace
+where the latter spurious warning comes from, please inform me.
+
+Now
+
+  make
+
+At some moment the built may die, reporting a I<version mismatch> or
+I<unable to run F<perl>>.  This means that you do not have F<.> in
+your LIBPATH, so F<perl.exe> cannot find the needed F<perl67B2.dll> (treat
+these hex digits as line noise).  After this is fixed the build
+should finish without a lot of fuss.
+
+=head2 Testing
+
+Now run
+
+  make test
+
+All tests should succeed (with some of them skipped).  If you have the
+same version of Perl installed, it is crucial that you have C<.> early
+in your LIBPATH (or in BEGINLIBPATH), otherwise your tests will most
+probably test the wrong version of Perl.
+
+Some tests may generate extra messages similar to
+
+=over 4
+
+=item A lot of C<bad free>
+
+in database tests related to Berkeley DB. I<This should be fixed already.>
+If it persists, you may disable this warnings, see L<"PERL_BADFREE">.
+
+=item Process terminated by SIGTERM/SIGINT
+
+This is a standard message issued by OS/2 applications. *nix
+applications die in silence. It is considered to be a feature. One can
+easily disable this by appropriate sighandlers. 
+
+However the test engine bleeds these message to screen in unexpected
+moments. Two messages of this kind I<should> be present during
+testing.
+
+=back
+
+To get finer test reports, call
+
+  perl t/harness
+
+The report with F<io/pipe.t> failing may look like this:
+
+ Failed Test  Status Wstat Total Fail  Failed  List of failed
+ ------------------------------------------------------------
+ io/pipe.t                    12    1   8.33%  9
+ 7 tests skipped, plus 56 subtests skipped.
+ Failed 1/195 test scripts, 99.49% okay. 1/6542 subtests failed,
+    99.98% okay.
+
+The reasons for most important skipped tests are:
+
+=over 8
+
+=item F<op/fs.t>
+
+=over 4
+
+=item Z<>18
+
+Checks C<atime> and C<mtime> of C<stat()> - unfortunately, HPFS
+provides only 2sec time granularity (for compatibility with FAT?).
+
+=item Z<>25
+
+Checks C<truncate()> on a filehandle just opened for write - I do not
+know why this should or should not work.
+
+=back
+
+=item F<op/stat.t>
+
+Checks C<stat()>. Tests:
+
+=over 4
+
+=item 4
+
+Checks C<atime> and C<mtime> of C<stat()> - unfortunately, HPFS
+provides only 2sec time granularity (for compatibility with FAT?).
+
+=back
+
+=back
+
+=head2 Installing the built perl
+
+If you haven't yet moved C<perl*.dll> onto LIBPATH, do it now.
+
+Run
+
+  make install
+
+It would put the generated files into needed locations. Manually put
+F<perl.exe>, F<perl__.exe> and F<perl___.exe> to a location on your
+PATH, F<perl.dll> to a location on your LIBPATH.
+
+Run
+
+  make installcmd INSTALLCMDDIR=d:/ir/on/path
+
+to convert perl utilities to F<.cmd> files and put them on
+PATH. You need to put F<.EXE>-utilities on path manually. They are
+installed in C<$prefix/bin>, here C<$prefix> is what you gave to
+F<Configure>, see L</Making>.
+
+If you use C<man>, either move the installed F<*/man/> directories to
+your C<MANPATH>, or modify C<MANPATH> to match the location.  (One
+could have avoided this by providing a correct C<manpath> option to
+F<./Configure>, or editing F<./config.sh> between configuring and
+making steps.)
+
+=head2 C<a.out>-style build
+
+Proceed as above, but make F<perl_.exe> (see L<"perl_.exe">) by
+
+  make perl_
+
+test and install by
+
+  make aout_test
+  make aout_install
+
+Manually put F<perl_.exe> to a location on your PATH.
+
+B<Note.> The build process for C<perl_> I<does not know> about all the
+dependencies, so you should make sure that anything is up-to-date,
+say, by doing
+
+  make perl_dll
+
+first.
+
+=head1 Building a binary distribution
+
+[This section provides a short overview only...]
+
+Building should proceed differently depending on whether the version of perl
+you install is already present and used on your system, or is a new version
+not yet used.  The description below assumes that the version is new, so
+installing its DLLs and F<.pm> files will not disrupt the operation of your
+system even if some intermediate steps are not yet fully working.
+
+The other cases require a little bit more convoluted procedures.  Below I
+suppose that the current version of Perl is C<5.8.2>, so the executables are
+named accordingly.
+
+=over
+
+=item 1.
+
+Fully build and test the Perl distribution.  Make sure that no tests are
+failing with C<test> and C<aout_test> targets; fix the bugs in Perl and
+the Perl test suite detected by these tests.  Make sure that C<all_test>
+make target runs as clean as possible.  Check that F<os2/perlrexx.cmd>
+runs fine.
+
+=item 2.
+
+Fully install Perl, including C<installcmd> target.  Copy the generated DLLs
+to C<LIBPATH>; copy the numbered Perl executables (as in F<perl5.8.2.exe>)
+to C<PATH>; copy C<perl_.exe> to C<PATH> as C<perl_5.8.2.exe>.  Think whether
+you need backward-compatibility DLLs.  In most cases you do not need to install
+them yet; but sometime this may simplify the following steps.
+
+=item 3.
+
+Make sure that C<CPAN.pm> can download files from CPAN.  If not, you may need
+to manually install C<Net::FTP>.
+
+=item 4.
+
+Install the bundle C<Bundle::OS2_default>
+
+ perl5.8.2 -MCPAN -e "install Bundle::OS2_default" < nul |& tee 00cpan_i_1
+
+This may take a couple of hours on 1GHz processor (when run the first time).
+And this should not be necessarily a smooth procedure.  Some modules may not
+specify required dependencies, so one may need to repeat this procedure several
+times until the results stabilize.
+
+ perl5.8.2 -MCPAN -e "install Bundle::OS2_default" < nul |& tee 00cpan_i_2
+ perl5.8.2 -MCPAN -e "install Bundle::OS2_default" < nul |& tee 00cpan_i_3
+
+Even after they stabilize, some tests may fail.
+
+Fix as many discovered bugs as possible.  Document all the bugs which are not
+fixed, and all the failures with unknown reasons.  Inspect the produced logs
+F<00cpan_i_1> to find suspiciously skipped tests, and other fishy events.
+
+Keep in mind that I<installation> of some modules may fail too: for example,
+the DLLs to update may be already loaded by F<CPAN.pm>.  Inspect the C<install>
+logs (in the example above F<00cpan_i_1> etc) for errors, and install things
+manually, as in
+
+  cd $CPANHOME/.cpan/build/Digest-MD5-2.31
+  make install
+
+Some distributions may fail some tests, but you may want to install them
+anyway (as above, or via C<force install> command of C<CPAN.pm> shell-mode).
+
+Since this procedure may take quite a long time to complete, it makes sense
+to "freeze" your CPAN configuration by disabling periodic updates of the
+local copy of CPAN index: set C<index_expire> to some big value (I use 365),
+then save the settings
+
+  CPAN> o conf index_expire 365
+  CPAN> o conf commit
+
+Reset back to the default value C<1> when you are finished.
+
+=item 5.
+
+When satisfied with the results, rerun the C<installcmd> target.  Now you
+can copy C<perl5.8.2.exe> to C<perl.exe>, and install the other OMF-build
+executables: C<perl__.exe> etc.  They are ready to be used.
+
+=item 6.
+
+Change to the C<./pod> directory of the build tree, download the Perl logo
+F<CamelGrayBig.BMP>, and run
+
+  ( perl2ipf > perl.ipf ) |& tee 00ipf
+  ipfc /INF perl.ipf |& tee 00inf
+
+This produces the Perl docs online book C<perl.INF>.  Install in on
+C<BOOKSHELF> path.
+
+=item 7.
+
+Now is the time to build statically linked executable F<perl_.exe> which
+includes newly-installed via C<Bundle::OS2_default> modules.  Doing testing
+via C<CPAN.pm> is going to be painfully slow, since it statically links
+a new executable per XS extension.
+
+Here is a possible workaround: create a toplevel F<Makefile.PL> in
+F<$CPANHOME/.cpan/build/> with contents being (compare with L<Making
+executables with a custom collection of statically loaded extensions>)
+
+  use ExtUtils::MakeMaker;
+  WriteMakefile NAME => 'dummy';
+
+execute this as
+
+  perl_5.8.2.exe Makefile.PL <nul |& tee 00aout_c1
+  make -k all test <nul |& 00aout_t1
+
+Again, this procedure should not be absolutely smooth.  Some C<Makefile.PL>'s
+in subdirectories may be buggy, and would not run as "child" scripts.  The
+interdependency of modules can strike you; however, since non-XS modules
+are already installed, the prerequisites of most modules have a very good
+chance to be present.
+
+If you discover some glitches, move directories of problematic modules to a
+different location; if these modules are non-XS modules, you may just ignore
+them - they are already installed; the remaining, XS, modules you need to
+install manually one by one.
+
+After each such removal you need to rerun the C<Makefile.PL>/C<make> process;
+usually this procedure converges soon.  (But be sure to convert all the
+necessary external C libraries from F<.lib> format to F<.a> format: run one of
+
+  emxaout foo.lib
+  emximp -o foo.a foo.lib
+
+whichever is appropriate.)  Also, make sure that the DLLs for external
+libraries are usable with with executables compiled without C<-Zmtd> options.
+
+When you are sure that only a few subdirectories
+lead to failures, you may want to add C<-j4> option to C<make> to speed up
+skipping subdirectories with already finished build.
+
+When you are satisfied with the results of tests, install the build C libraries
+for extensions:
+
+  make install |& tee 00aout_i
+
+Now you can rename the file F<./perl.exe> generated during the last phase
+to F<perl_5.8.2.exe>; place it on C<PATH>; if there is an inter-dependency
+between some XS modules, you may need to repeat the C<test>/C<install> loop
+with this new executable and some excluded modules - until the procedure
+converges.
+
+Now you have all the necessary F<.a> libraries for these Perl modules in the
+places where Perl builder can find it.  Use the perl builder: change to an
+empty directory, create a "dummy" F<Makefile.PL> again, and run
+
+  perl_5.8.2.exe Makefile.PL |& tee 00c
+  make perl		     |& tee 00p
+
+This should create an executable F<./perl.exe> with all the statically loaded
+extensions built in.  Compare the generated F<perlmain.c> files to make sure
+that during the iterations the number of loaded extensions only increases.
+Rename F<./perl.exe> to F<perl_5.8.2.exe> on C<PATH>.
+
+When it converges, you got a functional variant of F<perl_5.8.2.exe>; copy it
+to C<perl_.exe>.  You are done with generation of the local Perl installation.
+
+=item 8.
+
+Make sure that the installed modules are actually installed in the location
+of the new Perl, and are not inherited from entries of @INC given for
+inheritance from the older versions of Perl: set C<PERLLIB_582_PREFIX> to
+redirect the new version of Perl to a new location, and copy the installed
+files to this new location.  Redo the tests to make sure that the versions of
+modules inherited from older versions of Perl are not needed.
+
+Actually, the log output of L<pod2ipf(1)> during the step 6 gives a very detailed
+info about which modules are loaded from which place; so you may use it as
+an additional verification tool.
+
+Check that some temporary files did not make into the perl install tree.
+Run something like this
+
+  pfind . -f "!(/\.(pm|pl|ix|al|h|a|lib|txt|pod|imp|bs|dll|ld|bs|inc|xbm|yml|cgi|uu|e2x|skip|packlist|eg|cfg|html|pub|enc|all|ini|po|pot)$/i or /^\w+$/") | less
+
+in the install tree (both top one and F<sitelib> one).
+
+Compress all the DLLs with F<lxlite>.  The tiny F<.exe> can be compressed with
+C</c:max> (the bug only appears when there is a fixup in the last 6 bytes of a
+page (?); since the tiny executables are much smaller than a page, the bug
+will not hit).  Do not compress C<perl_.exe> - it would not work under DOS.
+
+=item 9.
+
+Now you can generate the binary distribution.  This is done by running the
+test of the CPAN distribution C<OS2::SoftInstaller>.  Tune up the file
+F<test.pl> to suit the layout of current version of Perl first.  Do not
+forget to pack the necessary external DLLs accordingly.  Include the
+description of the bugs and test suite failures you could not fix.  Include
+the small-stack versions of Perl executables from Perl build directory.
+
+Include F<perl5.def> so that people can relink the perl DLL preserving
+the binary compatibility, or can create compatibility DLLs.  Include the diff
+files (C<diff -pu old new>) of fixes you did so that people can rebuild your
+version.  Include F<perl5.map> so that one can use remote debugging.
+
+=item 10.
+
+Share what you did with the other people.  Relax.  Enjoy fruits of your work.
+
+=item 11.
+
+Brace yourself for thanks, bug reports, hate mail and spam coming as result
+of the previous step.  No good deed should remain unpunished!
+
+=back
+
+=head1 Building custom F<.EXE> files
+
+The Perl executables can be easily rebuilt at any moment.  Moreover, one can
+use the I<embedding> interface (see L<perlembed>) to make very customized
+executables.
+
+=head2 Making executables with a custom collection of statically loaded extensions
+
+It is a little bit easier to do so while I<decreasing> the list of statically
+loaded extensions.  We discuss this case only here.
+
+=over
+
+=item 1.
+
+Change to an empty directory, and create a placeholder <Makefile.PL>:
+
+  use ExtUtils::MakeMaker;
+  WriteMakefile NAME => 'dummy';
+
+=item 2.
+
+Run it with the flavor of Perl (F<perl.exe> or F<perl_.exe>) you want to
+rebuild.
+
+  perl_ Makefile.PL
+
+=item 3.
+
+Ask it to create new Perl executable:
+
+  make perl
+
+(you may need to manually add C<PERLTYPE=-DPERL_CORE> to this commandline on
+some versions of Perl; the symptom is that the command-line globbing does not
+work from OS/2 shells with the newly-compiled executable; check with
+
+  .\perl.exe -wle "print for @ARGV" *
+
+).
+
+=item 4.
+
+The previous step created F<perlmain.c> which contains a list of newXS() calls
+near the end.  Removing unnecessary calls, and rerunning
+
+  make perl
+
+will produce a customized executable.
+
+=back
+
+=head2 Making executables with a custom search-paths
+
+The default perl executable is flexible enough to support most usages.
+However, one may want something yet more flexible; for example, one may want
+to find Perl DLL relatively to the location of the EXE file; or one may want
+to ignore the environment when setting the Perl-library search patch, etc.
+
+If you fill comfortable with I<embedding> interface (see L<perlembed>), such
+things are easy to do repeating the steps outlined in L<Making
+executables with a custom collection of statically loaded extensions>, and
+doing more comprehensive edits to main() of F<perlmain.c>.  The people with
+little desire to understand Perl can just rename main(), and do necessary
+modification in a custom main() which calls the renamed function in appropriate
+time.
+
+However, there is a third way: perl DLL exports the main() function and several
+callbacks to customize the search path.  Below is a complete example of a
+"Perl loader" which
+
+=over
+
+=item 1.
+
+Looks for Perl DLL in the directory C<$exedir/../dll>;
+
+=item 2.
+
+Prepends the above directory to C<BEGINLIBPATH>;
+
+=item 3.
+
+Fails if the Perl DLL found via C<BEGINLIBPATH> is different from what was
+loaded on step 1; e.g., another process could have loaded it from C<LIBPATH>
+or from a different value of C<BEGINLIBPATH>.  In these cases one needs to
+modify the setting of the system so that this other process either does not
+run, or loads the DLL from C<BEGINLIBPATH> with C<LIBPATHSTRICT=T> (available
+with kernels after September 2000).
+
+=item 4.
+
+Loads Perl library from C<$exedir/../dll/lib/>.
+
+=item 5.
+
+Uses Bourne shell from C<$exedir/../dll/sh/ksh.exe>.
+
+=back
+
+For best results compile the C file below with the same options as the Perl
+DLL.  However, a lot of functionality will work even if the executable is not
+an EMX applications, e.g., if compiled with
+
+  gcc -Wall -DDOSISH -DOS2=1 -O2 -s -Zomf -Zsys perl-starter.c \
+    -DPERL_DLL_BASENAME=\"perl312F\" -Zstack 8192 -Zlinker /PM:VIO
+
+Here is the sample C file:
+
+ #define INCL_DOS
+ #define INCL_NOPM
+ /* These are needed for compile if os2.h includes os2tk.h, not
+  * os2emx.h */
+ #define INCL_DOSPROCESS
+ #include <os2.h>
+
+ #include "EXTERN.h"
+ #define PERL_IN_MINIPERLMAIN_C
+ #include "perl.h"
+
+ static char *me;
+ HMODULE handle;
+
+ static void
+ die_with(char *msg1, char *msg2, char *msg3, char *msg4)
+ {
+    ULONG c;
+    char *s = " error: ";
+
+    DosWrite(2, me, strlen(me), &c);
+    DosWrite(2, s, strlen(s), &c);
+    DosWrite(2, msg1, strlen(msg1), &c);
+    DosWrite(2, msg2, strlen(msg2), &c);
+    DosWrite(2, msg3, strlen(msg3), &c);
+    DosWrite(2, msg4, strlen(msg4), &c);
+    DosWrite(2, "\r\n", 2, &c);
+    exit(255);
+ }
+
+ typedef ULONG (*fill_extLibpath_t)(int type,
+                                    char *pre,
+                                    char *post,
+                                    int replace,
+                                    char *msg);
+ typedef int (*main_t)(int type, char *argv[], char *env[]);
+ typedef int (*handler_t)(void* data, int which);
+
+ #ifndef PERL_DLL_BASENAME
+ #  define PERL_DLL_BASENAME "perl"
+ #endif
+
+ static HMODULE
+ load_perl_dll(char *basename)
+ {
+     char buf[300], fail[260];
+     STRLEN l, dirl;
+     fill_extLibpath_t f;
+     ULONG rc_fullname;
+     HMODULE handle, handle1;
+
+     if (_execname(buf, sizeof(buf) - 13) != 0)
+         die_with("Can't find full path: ", strerror(errno), "", "");
+     /* XXXX Fill 'me' with new value */
+     l = strlen(buf);
+     while (l && buf[l-1] != '/' && buf[l-1] != '\\')
+         l--;
+     dirl = l - 1;
+     strcpy(buf + l, basename);
+     l += strlen(basename);
+     strcpy(buf + l, ".dll");
+     if ( (rc_fullname = DosLoadModule(fail, sizeof fail, buf, &handle))
+                                                                    != 0
+          && DosLoadModule(fail, sizeof fail, basename, &handle) != 0 )
+         die_with("Can't load DLL ", buf, "", "");
+     if (rc_fullname)
+         return handle;    /* was loaded with short name; all is fine */
+     if (DosQueryProcAddr(handle, 0, "fill_extLibpath", (PFN*)&f))
+         die_with(buf,
+                  ": DLL exports no symbol ",
+                  "fill_extLibpath",
+                  "");
+     buf[dirl] = 0;
+     if (f(0 /*BEGINLIBPATH*/, buf /* prepend */, NULL /* append */,
+           0 /* keep old value */, me))
+         die_with(me, ": prepending BEGINLIBPATH", "", "");
+     if (DosLoadModule(fail, sizeof fail, basename, &handle1) != 0)
+         die_with(me,
+                  ": finding perl DLL again via BEGINLIBPATH",
+                  "",
+                  "");
+     buf[dirl] = '\\';
+     if (handle1 != handle) {
+         if (DosQueryModuleName(handle1, sizeof(fail), fail))
+             strcpy(fail, "???");
+         die_with(buf,
+                  ":\n\tperl DLL via BEGINLIBPATH is different: \n\t",
+                  fail,
+                  "\n\tYou may need to manipulate global BEGINLIBPATH"
+                     " and LIBPATHSTRICT"
+                     "\n\tso that the other copy is loaded via"
+                     BEGINLIBPATH.");
+     }
+     return handle;
+ }
+
+ int
+ main(int argc, char **argv, char **env)
+ {
+     main_t f;
+     handler_t h;
+
+     me = argv[0];
+     /**/
+     handle = load_perl_dll(PERL_DLL_BASENAME);
+
+     if (DosQueryProcAddr(handle,
+                          0,
+                          "Perl_OS2_handler_install",
+                          (PFN*)&h))
+         die_with(PERL_DLL_BASENAME,
+                  ": DLL exports no symbol ",
+                  "Perl_OS2_handler_install",
+                  "");
+     if ( !h((void *)"~installprefix", Perlos2_handler_perllib_from)
+          || !h((void *)"~dll", Perlos2_handler_perllib_to)
+          || !h((void *)"~dll/sh/ksh.exe", Perlos2_handler_perl_sh) )
+         die_with(PERL_DLL_BASENAME,
+                  ": Can't install @INC manglers",
+                  "",
+                  "");
+     if (DosQueryProcAddr(handle, 0, "dll_perlmain", (PFN*)&f))
+         die_with(PERL_DLL_BASENAME,
+                  ": DLL exports no symbol ",
+                  "dll_perlmain",
+                  "");
+     return f(argc, argv, env);
+ }
+
+=head1 Build FAQ
+
+=head2 Some C</> became C<\> in pdksh.
+
+You have a very old pdksh. See L</Prerequisites>.
+
+=head2 C<'errno'> - unresolved external
+
+You do not have MT-safe F<db.lib>. See L</Prerequisites>.
+
+=head2 Problems with tr or sed
+
+reported with very old version of tr and sed.
+
+=head2 Some problem (forget which ;-)
+
+You have an older version of F<perl.dll> on your LIBPATH, which
+broke the build of extensions.
+
+=head2 Library ... not found
+
+You did not run C<omflibs>. See L</Prerequisites>.
+
+=head2 Segfault in make
+
+You use an old version of GNU make. See L</Prerequisites>.
+
+=head2 op/sprintf test failure
+
+This can result from a bug in emx sprintf which was fixed in 0.9d fix 03.
+
+=head1 Specific (mis)features of OS/2 port
+
+=head2 C<setpriority>, C<getpriority>
+
+Note that these functions are compatible with *nix, not with the older
+ports of '94 - 95. The priorities are absolute, go from 32 to -95,
+lower is quicker. 0 is the default priority.
+
+B<WARNING>.  Calling C<getpriority> on a non-existing process could lock
+the system before Warp3 fixpak22.  Starting with Warp3, Perl will use
+a workaround: it aborts getpriority() if the process is not present.
+This is not possible on older versions C<2.*>, and has a race
+condition anyway.
+
+=head2 C<system()>
+
+Multi-argument form of C<system()> allows an additional numeric
+argument. The meaning of this argument is described in
+L<OS2::Process>.
+
+When finding a program to run, Perl first asks the OS to look for executables
+on C<PATH> (OS/2 adds extension F<.exe> if no extension is present).
+If not found, it looks for a script with possible extensions 
+added in this order: no extension, F<.cmd>, F<.btm>, 
+F<.bat>, F<.pl>.  If found, Perl checks the start of the file for magic
+strings C<"#!"> and C<"extproc ">.  If found, Perl uses the rest of the
+first line as the beginning of the command line to run this script.  The
+only mangling done to the first line is extraction of arguments (currently
+up to 3), and ignoring of the path-part of the "interpreter" name if it can't
+be found using the full path.
+
+E.g., C<system 'foo', 'bar', 'baz'> may lead Perl to finding
+F<C:/emx/bin/foo.cmd> with the first line being
+
+ extproc /bin/bash    -x   -c
+
+If F</bin/bash.exe> is not found, then Perl looks for an executable F<bash.exe> on
+C<PATH>.  If found in F<C:/emx.add/bin/bash.exe>, then the above system() is
+translated to
+
+  system qw(C:/emx.add/bin/bash.exe -x -c C:/emx/bin/foo.cmd bar baz)
+
+One additional translation is performed: instead of F</bin/sh> Perl uses
+the hardwired-or-customized shell (see C<L<"PERL_SH_DIR">>).
+
+The above search for "interpreter" is recursive: if F<bash> executable is not
+found, but F<bash.btm> is found, Perl will investigate its first line etc.
+The only hardwired limit on the recursion depth is implicit: there is a limit
+4 on the number of additional arguments inserted before the actual arguments
+given to system().  In particular, if no additional arguments are specified
+on the "magic" first lines, then the limit on the depth is 4.
+
+If Perl finds that the found executable is of PM type when the
+current session is not, it will start the new process in a separate session of
+necessary type.  Call via C<OS2::Process> to disable this magic.
+
+B<WARNING>.  Due to the described logic, you need to explicitly
+specify F<.com> extension if needed.  Moreover, if the executable
+F<perl5.6.1> is requested, Perl will not look for F<perl5.6.1.exe>.
+[This may change in the future.]
+
+=head2 C<extproc> on the first line
+
+If the first chars of a Perl script are C<"extproc ">, this line is treated
+as C<#!>-line, thus all the switches on this line are processed (twice
+if script was started via cmd.exe).  See L<perlrun/DESCRIPTION>.
+
+=head2 Additional modules:
+
+L<OS2::Process>, L<OS2::DLL>, L<OS2::REXX>, L<OS2::PrfDB>, L<OS2::ExtAttr>. These
+modules provide access to additional numeric argument for C<system>
+and to the information about the running process,
+to DLLs having functions with REXX signature and to the REXX runtime, to
+OS/2 databases in the F<.INI> format, and to Extended Attributes.
+
+Two additional extensions by Andreas Kaiser, C<OS2::UPM>, and
+C<OS2::FTP>, are included into C<ILYAZ> directory, mirrored on CPAN.
+Other OS/2-related extensions are available too.
+
+=head2 Prebuilt methods:
+
+=over 4
+
+=item C<File::Copy::syscopy>
+
+used by C<File::Copy::copy>, see L<File::Copy>.
+
+=item C<DynaLoader::mod2fname>
+
+used by C<DynaLoader> for DLL name mangling.
+
+=item  C<Cwd::current_drive()>
+
+Self explanatory.
+
+=item  C<Cwd::sys_chdir(name)>
+
+leaves drive as it is.
+
+=item  C<Cwd::change_drive(name)>
+
+changes the "current" drive.
+
+=item  C<Cwd::sys_is_absolute(name)>
+
+means has drive letter and is_rooted.
+
+=item  C<Cwd::sys_is_rooted(name)>
+
+means has leading C<[/\\]> (maybe after a drive-letter:).
+
+=item  C<Cwd::sys_is_relative(name)>
+
+means changes with current dir.
+
+=item  C<Cwd::sys_cwd(name)>
+
+Interface to cwd from EMX. Used by C<Cwd::cwd>.
+
+=item  C<Cwd::sys_abspath(name, dir)>
+
+Really really odious function to implement. Returns absolute name of
+file which would have C<name> if CWD were C<dir>.  C<Dir> defaults to the
+current dir.
+
+=item  C<Cwd::extLibpath([type])>
+
+Get current value of extended library search path. If C<type> is
+present and positive, works with C<END_LIBPATH>, if negative, works
+with C<LIBPATHSTRICT>, otherwise with C<BEGIN_LIBPATH>. 
+
+=item  C<Cwd::extLibpath_set( path [, type ] )>
+
+Set current value of extended library search path. If C<type> is
+present and positive, works with <END_LIBPATH>, if negative, works
+with C<LIBPATHSTRICT>, otherwise with C<BEGIN_LIBPATH>.
+
+=item C<OS2::Error(do_harderror,do_exception)>
+
+Returns	C<undef> if it was not called yet, otherwise bit 1 is
+set if on the previous call do_harderror was enabled, bit
+2 is set if on previous call do_exception was enabled.
+
+This function enables/disables error popups associated with 
+hardware errors (Disk not ready etc.) and software exceptions.
+
+I know of no way to find out the state of popups I<before> the first call
+to this function.
+
+=item C<OS2::Errors2Drive(drive)>
+
+Returns C<undef> if it was not called yet, otherwise return false if errors
+were not requested to be written to a hard drive, or the drive letter if
+this was requested.
+
+This function may redirect error popups associated with hardware errors
+(Disk not ready etc.) and software exceptions to the file POPUPLOG.OS2 at
+the root directory of the specified drive.  Overrides OS2::Error() specified
+by individual programs.  Given argument undef will disable redirection.
+
+Has global effect, persists after the application exits.
+
+I know of no way to find out the state of redirection of popups to the disk
+I<before> the first call to this function.
+
+=item OS2::SysInfo()
+
+Returns a hash with system information. The keys of the hash are
+
+	MAX_PATH_LENGTH, MAX_TEXT_SESSIONS, MAX_PM_SESSIONS,
+	MAX_VDM_SESSIONS, BOOT_DRIVE, DYN_PRI_VARIATION,
+	MAX_WAIT, MIN_SLICE, MAX_SLICE, PAGE_SIZE,
+	VERSION_MAJOR, VERSION_MINOR, VERSION_REVISION,
+	MS_COUNT, TIME_LOW, TIME_HIGH, TOTPHYSMEM, TOTRESMEM,
+	TOTAVAILMEM, MAXPRMEM, MAXSHMEM, TIMER_INTERVAL,
+	MAX_COMP_LENGTH, FOREGROUND_FS_SESSION,
+	FOREGROUND_PROCESS
+
+=item OS2::BootDrive()
+
+Returns a letter without colon.
+
+=item C<OS2::MorphPM(serve)>, C<OS2::UnMorphPM(serve)>
+
+Transforms the current application into a PM application and back.
+The argument true means that a real message loop is going to be served.
+OS2::MorphPM() returns the PM message queue handle as an integer.
+
+See L<"Centralized management of resources"> for additional details.
+
+=item C<OS2::Serve_Messages(force)>
+
+Fake on-demand retrieval of outstanding PM messages.  If C<force> is false,
+will not dispatch messages if a real message loop is known to
+be present.  Returns number of messages retrieved.
+
+Dies with "QUITing..." if WM_QUIT message is obtained.
+
+=item C<OS2::Process_Messages(force [, cnt])>
+
+Retrieval of PM messages until window creation/destruction.  
+If C<force> is false, will not dispatch messages if a real message loop
+is known to be present.
+
+Returns change in number of windows.  If C<cnt> is given,
+it is incremented by the number of messages retrieved.
+
+Dies with "QUITing..." if WM_QUIT message is obtained.
+
+=item C<OS2::_control87(new,mask)>
+
+the same as L<_control87(3)> of EMX.  Takes integers as arguments, returns
+the previous coprocessor control word as an integer.  Only bits in C<new> which
+are present in C<mask> are changed in the control word.
+
+=item OS2::get_control87()
+
+gets the coprocessor control word as an integer.
+
+=item C<OS2::set_control87_em(new=MCW_EM,mask=MCW_EM)>
+
+The variant of OS2::_control87() with default values good for
+handling exception mask: if no C<mask>, uses exception mask part of C<new>
+only.  If no C<new>, disables all the floating point exceptions.
+
+See L<"Misfeatures"> for details.
+
+=item C<OS2::DLLname([how [, \&xsub]])>
+
+Gives the information about the Perl DLL or the DLL containing the C
+function bound to by C<&xsub>.  The meaning of C<how> is: default (2):
+full name; 0: handle; 1: module name.
+
+=back
+
+(Note that some of these may be moved to different libraries -
+eventually).
+
+
+=head2 Prebuilt variables:
+
+=over 4
+
+=item $OS2::emx_rev
+
+numeric value is the same as _emx_rev of EMX, a string value the same
+as _emx_vprt (similar to C<0.9c>).
+
+=item $OS2::emx_env
+
+same as _emx_env of EMX, a number similar to 0x8001.
+
+=item $OS2::os_ver
+
+a number C<OS_MAJOR + 0.001 * OS_MINOR>.
+
+=item $OS2::is_aout
+
+true if the Perl library was compiled in AOUT format.
+
+=item $OS2::can_fork
+
+true if the current executable is an AOUT EMX executable, so Perl can
+fork.  Do not use this, use the portable check for
+$Config::Config{dfork}.
+
+=item $OS2::nsyserror
+
+This variable (default is 1) controls whether to enforce the contents
+of $^E to start with C<SYS0003>-like id.  If set to 0, then the string
+value of $^E is what is available from the OS/2 message file.  (Some
+messages in this file have an C<SYS0003>-like id prepended, some not.)
+
+=back
+
+=head2 Misfeatures
+
+=over 4
+
+=item *
+
+Since L<flock(3)> is present in EMX, but is not functional, it is 
+emulated by perl.  To disable the emulations, set environment variable
+C<USE_PERL_FLOCK=0>.
+
+=item *
+
+Here is the list of things which may be "broken" on
+EMX (from EMX docs):
+
+=over 4
+
+=item *
+
+The functions L<recvmsg(3)>, L<sendmsg(3)>, and L<socketpair(3)> are not
+implemented.
+
+=item *
+
+L<sock_init(3)> is not required and not implemented.
+
+=item *
+
+L<flock(3)> is not yet implemented (dummy function).  (Perl has a workaround.)
+
+=item *
+
+L<kill(3)>:  Special treatment of PID=0, PID=1 and PID=-1 is not implemented.
+
+=item *
+
+L<waitpid(3)>:
+
+      WUNTRACED
+	      Not implemented.
+      waitpid() is not implemented for negative values of PID.
+
+=back
+
+Note that C<kill -9> does not work with the current version of EMX.
+
+=item *
+
+See L<"Text-mode filehandles">.
+
+=item *
+
+Unix-domain sockets on OS/2 live in a pseudo-file-system C</sockets/...>.
+To avoid a failure to create a socket with a name of a different form,
+C<"/socket/"> is prepended to the socket name (unless it starts with this
+already).
+
+This may lead to problems later in case the socket is accessed via the
+"usual" file-system calls using the "initial" name.
+
+=item *
+
+Apparently, IBM used a compiler (for some period of time around '95?) which
+changes FP mask right and left.  This is not I<that> bad for IBM's
+programs, but the same compiler was used for DLLs which are used with
+general-purpose applications.  When these DLLs are used, the state of
+floating-point flags in the application is not predictable.
+
+What is much worse, some DLLs change the floating point flags when in
+_DLLInitTerm() (e.g., F<TCP32IP>).  This means that even if you do not I<call>
+any function in the DLL, just the act of loading this DLL will reset your
+flags.  What is worse, the same compiler was used to compile some HOOK DLLs.
+Given that HOOK dlls are executed in the context of I<all> the applications
+in the system, this means a complete unpredictability of floating point
+flags on systems using such HOOK DLLs.  E.g., F<GAMESRVR.DLL> of B<DIVE>
+origin changes the floating point flags on each write to the TTY of a VIO
+(windowed text-mode) applications.
+
+Some other (not completely debugged) situations when FP flags change include
+some video drivers (?), and some operations related to creation of the windows.
+People who code B<OpenGL> may have more experience on this.
+
+Perl is generally used in the situation when all the floating-point
+exceptions are ignored, as is the default under EMX.  If they are not ignored,
+some benign Perl programs would get a C<SIGFPE> and would die a horrible death.
+
+To circumvent this, Perl uses two hacks.  They help against I<one> type of
+damage only: FP flags changed when loading a DLL.
+
+One of the hacks is to disable floating point exceptions on Perl startup (as
+is the default with EMX).  This helps only with compile-time-linked DLLs
+changing the flags before main() had a chance to be called.
+
+The other hack is to restore FP flags after a call to dlopen().  This helps
+against similar damage done by DLLs _DLLInitTerm() at runtime.  Currently
+no way to switch these hacks off is provided.
+
+=back
+
+=head2 Modifications
+
+Perl modifies some standard C library calls in the following ways:
+
+=over 9
+
+=item C<popen>
+
+C<my_popen> uses F<sh.exe> if shell is required, cf. L<"PERL_SH_DIR">.
+
+=item C<tmpnam>
+
+is created using C<TMP> or C<TEMP> environment variable, via
+C<tempnam>.
+
+=item C<tmpfile>
+
+If the current directory is not writable, file is created using modified
+C<tmpnam>, so there may be a race condition.
+
+=item C<ctermid>
+
+a dummy implementation.
+
+=item C<stat>
+
+C<os2_stat> special-cases F</dev/tty> and F</dev/con>.
+
+=item C<mkdir>, C<rmdir>
+
+these EMX functions do not work if the path contains a trailing C</>.
+Perl contains a workaround for this.
+
+=item C<flock>
+
+Since L<flock(3)> is present in EMX, but is not functional, it is 
+emulated by perl.  To disable the emulations, set environment variable
+C<USE_PERL_FLOCK=0>.
+
+=back
+
+=head2 Identifying DLLs
+
+All the DLLs built with the current versions of Perl have ID strings
+identifying the name of the extension, its version, and the version
+of Perl required for this DLL.  Run C<bldlevel DLL-name> to find this
+info.
+
+=head2 Centralized management of resources
+
+Since to call certain OS/2 API one needs to have a correctly initialized
+C<Win> subsystem, OS/2-specific extensions may require getting C<HAB>s and
+C<HMQ>s.  If an extension would do it on its own, another extension could
+fail to initialize.
+
+Perl provides a centralized management of these resources:
+
+=over
+
+=item C<HAB>
+
+To get the HAB, the extension should call C<hab = perl_hab_GET()> in C.  After
+this call is performed, C<hab> may be accessed as C<Perl_hab>.  There is
+no need to release the HAB after it is used.
+
+If by some reasons F<perl.h> cannot be included, use
+
+  extern int Perl_hab_GET(void);
+
+instead.
+
+=item C<HMQ>
+
+There are two cases:
+
+=over
+
+=item *
+
+the extension needs an C<HMQ> only because some API will not work otherwise.
+Use C<serve = 0> below.
+
+=item *
+
+the extension needs an C<HMQ> since it wants to engage in a PM event loop.
+Use C<serve = 1> below.
+
+=back
+
+To get an C<HMQ>, the extension should call C<hmq = perl_hmq_GET(serve)> in C.
+After this call is performed, C<hmq> may be accessed as C<Perl_hmq>.
+
+To signal to Perl that HMQ is not needed any more, call
+C<perl_hmq_UNSET(serve)>.  Perl process will automatically morph/unmorph itself
+into/from a PM process if HMQ is needed/not-needed.  Perl will automatically
+enable/disable C<WM_QUIT> message during shutdown if the message queue is
+served/not-served.
+
+B<NOTE>.  If during a shutdown there is a message queue which did not disable
+WM_QUIT, and which did not process the received WM_QUIT message, the
+shutdown will be automatically cancelled.  Do not call C<perl_hmq_GET(1)>
+unless you are going to process messages on an orderly basis.
+
+=item Treating errors reported by OS/2 API
+
+There are two principal conventions (it is useful to call them C<Dos*>
+and C<Win*> - though this part of the function signature is not always
+determined by the name of the API) of reporting the error conditions
+of OS/2 API.  Most of C<Dos*> APIs report the error code as the result
+of the call (so 0 means success, and there are many types of errors).
+Most of C<Win*> API report success/fail via the result being
+C<TRUE>/C<FALSE>; to find the reason for the failure one should call
+WinGetLastError() API.
+
+Some C<Win*> entry points also overload a "meaningful" return value
+with the error indicator; having a 0 return value indicates an error.
+Yet some other C<Win*> entry points overload things even more, and 0
+return value may mean a successful call returning a valid value 0, as
+well as an error condition; in the case of a 0 return value one should
+call WinGetLastError() API to distinguish a successful call from a
+failing one.
+
+By convention, all the calls to OS/2 API should indicate their
+failures by resetting $^E.  All the Perl-accessible functions which
+call OS/2 API may be broken into two classes: some die()s when an API
+error is encountered, the other report the error via a false return
+value (of course, this does not concern Perl-accessible functions
+which I<expect> a failure of the OS/2 API call, having some workarounds
+coded).
+
+Obviously, in the situation of the last type of the signature of an OS/2
+API, it is must more convenient for the users if the failure is
+indicated by die()ing: one does not need to check $^E to know that
+something went wrong.  If, however, this solution is not desirable by
+some reason, the code in question should reset $^E to 0 before making
+this OS/2 API call, so that the caller of this Perl-accessible
+function has a chance to distinguish a success-but-0-return value from
+a failure.  (One may return undef as an alternative way of reporting
+an error.)
+
+The macros to simplify this type of error propagation are
+
+=over
+
+=item C<CheckOSError(expr)>
+
+Returns true on error, sets $^E.  Expects expr() be a call of
+C<Dos*>-style API.
+
+=item C<CheckWinError(expr)>
+
+Returns true on error, sets $^E.  Expects expr() be a call of
+C<Win*>-style API.
+
+=item C<SaveWinError(expr)>
+
+Returns C<expr>, sets $^E from WinGetLastError() if C<expr> is false.
+
+=item C<SaveCroakWinError(expr,die,name1,name2)>
+
+Returns C<expr>, sets $^E from WinGetLastError() if C<expr> is false,
+and die()s if C<die> and $^E are true.  The message to die is the
+concatenated strings C<name1> and C<name2>, separated by C<": "> from
+the contents of $^E.
+
+=item C<WinError_2_Perl_rc>
+
+Sets C<Perl_rc> to the return value of WinGetLastError().
+
+=item C<FillWinError>
+
+Sets C<Perl_rc> to the return value of WinGetLastError(), and sets $^E
+to the corresponding value.
+
+=item C<FillOSError(rc)>
+
+Sets C<Perl_rc> to C<rc>, and sets $^E to the corresponding value.
+
+=back
+
+=item Loading DLLs and ordinals in DLLs
+
+Some DLLs are only present in some versions of OS/2, or in some
+configurations of OS/2.  Some exported entry points are present only
+in DLLs shipped with some versions of OS/2.  If these DLLs and entry
+points were linked directly for a Perl executable/DLL or from a Perl
+extensions, this binary would work only with the specified
+versions/setups.  Even if these entry points were not needed, the
+I<load> of the executable (or DLL) would fail.
+
+For example, many newer useful APIs are not present in OS/2 v2; many
+PM-related APIs require DLLs not available on floppy-boot setup.
+
+To make these calls fail I<only when the calls are executed>, one
+should call these API via a dynamic linking API.  There is a subsystem
+in Perl to simplify such type of calls.  A large number of entry
+points available for such linking is provided (see C<entries_ordinals>
+- and also C<PMWIN_entries> - in F<os2ish.h>).  These ordinals can be
+accessed via the APIs:
+
+ CallORD(), DeclFuncByORD(), DeclVoidFuncByORD(),
+ DeclOSFuncByORD(), DeclWinFuncByORD(), AssignFuncPByORD(),
+ DeclWinFuncByORD_CACHE(), DeclWinFuncByORD_CACHE_survive(),
+ DeclWinFuncByORD_CACHE_resetError_survive(),
+ DeclWinFunc_CACHE(), DeclWinFunc_CACHE_resetError(),
+ DeclWinFunc_CACHE_survive(), DeclWinFunc_CACHE_resetError_survive()
+
+See the header files and the C code in the supplied OS/2-related
+modules for the details on usage of these functions.
+
+Some of these functions also combine dynaloading semantic with the
+error-propagation semantic discussed above.
+
+=back
+
+=head1 Perl flavors
+
+Because of idiosyncrasies of OS/2 one cannot have all the eggs in the
+same basket (though EMX environment tries hard to overcome this
+limitations, so the situation may somehow improve). There are 4
+executables for Perl provided by the distribution:
+
+=head2 F<perl.exe>
+
+The main workhorse. This is a chimera executable: it is compiled as an
+C<a.out>-style executable, but is linked with C<omf>-style dynamic
+library F<perl.dll>, and with dynamic CRT DLL. This executable is a
+VIO application.
+
+It can load perl dynamic extensions, and it can fork().
+
+B<Note.> Keep in mind that fork() is needed to open a pipe to yourself.
+
+=head2 F<perl_.exe>
+
+This is a statically linked C<a.out>-style executable. It cannot
+load dynamic Perl extensions. The executable supplied in binary
+distributions has a lot of extensions prebuilt, thus the above restriction is 
+important only if you use custom-built extensions. This executable is a VIO
+application.
+
+I<This is the only executable with does not require OS/2.> The
+friends locked into C<M$> world would appreciate the fact that this
+executable runs under DOS, Win0.3*, Win0.95 and WinNT with an
+appropriate extender. See L<"Other OSes">.
+
+=head2 F<perl__.exe>
+
+This is the same executable as F<perl___.exe>, but it is a PM
+application. 
+
+B<Note.> Usually (unless explicitly redirected during the startup)
+STDIN, STDERR, and STDOUT of a PM
+application are redirected to F<nul>. However, it is possible to I<see>
+them if you start C<perl__.exe> from a PM program which emulates a
+console window, like I<Shell mode> of Emacs or EPM. Thus it I<is
+possible> to use Perl debugger (see L<perldebug>) to debug your PM
+application (but beware of the message loop lockups - this will not
+work if you have a message queue to serve, unless you hook the serving
+into the getc() function of the debugger).
+
+Another way to see the output of a PM program is to run it as
+
+  pm_prog args 2>&1 | cat -
+
+with a shell I<different> from F<cmd.exe>, so that it does not create
+a link between a VIO session and the session of C<pm_porg>.  (Such a link
+closes the VIO window.)  E.g., this works with F<sh.exe> - or with Perl!
+
+  open P, 'pm_prog args 2>&1 |' or die;
+  print while <P>;
+
+The flavor F<perl__.exe> is required if you want to start your program without
+a VIO window present, but not C<detach>ed (run C<help detach> for more info).
+Very useful for extensions which use PM, like C<Perl/Tk> or C<OpenGL>.
+
+Note also that the differences between PM and VIO executables are only
+in the I<default> behaviour.  One can start I<any> executable in
+I<any> kind of session by using the arguments C</fs>, C</pm> or
+C</win> switches of the command C<start> (of F<CMD.EXE> or a similar
+shell).  Alternatively, one can use the numeric first argument of the
+C<system> Perl function (see L<OS2::Process>).
+
+=head2 F<perl___.exe>
+
+This is an C<omf>-style executable which is dynamically linked to
+F<perl.dll> and CRT DLL. I know no advantages of this executable
+over C<perl.exe>, but it cannot fork() at all. Well, one advantage is
+that the build process is not so convoluted as with C<perl.exe>.
+
+It is a VIO application.
+
+=head2 Why strange names?
+
+Since Perl processes the C<#!>-line (cf. 
+L<perlrun/DESCRIPTION>, L<perlrun/Command Switches>,
+L<perldiag/"No Perl script found in input">), it should know when a
+program I<is a Perl>. There is some naming convention which allows
+Perl to distinguish correct lines from wrong ones. The above names are
+almost the only names allowed by this convention which do not contain
+digits (which have absolutely different semantics).
+
+=head2 Why dynamic linking?
+
+Well, having several executables dynamically linked to the same huge
+library has its advantages, but this would not substantiate the
+additional work to make it compile. The reason is the complicated-to-developers
+but very quick and convenient-to-users "hard" dynamic linking used by OS/2.
+
+There are two distinctive features of the dyna-linking model of OS/2:
+first, all the references to external functions are resolved at the compile time;
+second, there is no runtime fixup of the DLLs after they are loaded into memory.
+The first feature is an enormous advantage over other models: it avoids
+conflicts when several DLLs used by an application export entries with
+the same name.  In such cases "other" models of dyna-linking just choose
+between these two entry points using some random criterion - with predictable
+disasters as results.  But it is the second feature which requires the build
+of F<perl.dll>.
+
+The address tables of DLLs are patched only once, when they are
+loaded. The addresses of the entry points into DLLs are guaranteed to be
+the same for all the programs which use the same DLL.  This removes the
+runtime fixup - once DLL is loaded, its code is read-only.
+
+While this allows some (significant?) performance advantages, this makes life
+much harder for developers, since the above scheme makes it impossible
+for a DLL to be "linked" to a symbol in the F<.EXE> file.  Indeed, this
+would need a DLL to have different relocations tables for the
+(different) executables which use this DLL.
+
+However, a dynamically loaded Perl extension is forced to use some symbols
+from the perl
+executable, e.g., to know how to find the arguments to the functions:
+the arguments live on the perl
+internal evaluation stack. The solution is to put the main code of
+the interpreter into a DLL, and make the F<.EXE> file which just loads
+this DLL into memory and supplies command-arguments.  The extension DLL
+cannot link to symbols in F<.EXE>, but it has no problem linking
+to symbols in the F<.DLL>.
+
+This I<greatly> increases the load time for the application (as well as
+complexity of the compilation). Since interpreter is in a DLL,
+the C RTL is basically forced to reside in a DLL as well (otherwise
+extensions would not be able to use CRT).  There are some advantages if
+you use different flavors of perl, such as running F<perl.exe> and
+F<perl__.exe> simultaneously: they share the memory of F<perl.dll>.
+
+B<NOTE>.  There is one additional effect which makes DLLs more wasteful:
+DLLs are loaded in the shared memory region, which is a scarse resource
+given the 512M barrier of the "standard" OS/2 virtual memory.  The code of
+F<.EXE> files is also shared by all the processes which use the particular
+F<.EXE>, but they are "shared in the private address space of the process";
+this is possible because the address at which different sections
+of the F<.EXE> file are loaded is decided at compile-time, thus all the
+processes have these sections loaded at same addresses, and no fixup
+of internal links inside the F<.EXE> is needed.
+
+Since DLLs may be loaded at run time, to have the same mechanism for DLLs
+one needs to have the address range of I<any of the loaded> DLLs in the
+system to be available I<in all the processes> which did not load a particular
+DLL yet.  This is why the DLLs are mapped to the shared memory region.
+
+=head2 Why chimera build?
+
+Current EMX environment does not allow DLLs compiled using Unixish
+C<a.out> format to export symbols for data (or at least some types of
+data). This forces C<omf>-style compile of F<perl.dll>.
+
+Current EMX environment does not allow F<.EXE> files compiled in
+C<omf> format to fork(). fork() is needed for exactly three Perl
+operations:
+
+=over 4
+
+=item *
+
+explicit fork() in the script, 
+
+=item *
+
+C<open FH, "|-">
+
+=item *
+
+C<open FH, "-|">, in other words, opening pipes to itself.
+
+=back
+
+While these operations are not questions of life and death, they are
+needed for a lot of
+useful scripts. This forces C<a.out>-style compile of
+F<perl.exe>.
+
+
+=head1 ENVIRONMENT
+
+Here we list environment variables with are either OS/2- and DOS- and
+Win*-specific, or are more important under OS/2 than under other OSes.
+
+=head2 C<PERLLIB_PREFIX>
+
+Specific for EMX port. Should have the form
+
+  path1;path2
+
+or
+
+  path1 path2
+
+If the beginning of some prebuilt path matches F<path1>, it is
+substituted with F<path2>.
+
+Should be used if the perl library is moved from the default
+location in preference to C<PERL(5)LIB>, since this would not leave wrong
+entries in @INC.  For example, if the compiled version of perl looks for @INC
+in F<f:/perllib/lib>, and you want to install the library in
+F<h:/opt/gnu>, do
+
+  set PERLLIB_PREFIX=f:/perllib/lib;h:/opt/gnu
+
+This will cause Perl with the prebuilt @INC of
+
+  f:/perllib/lib/5.00553/os2
+  f:/perllib/lib/5.00553
+  f:/perllib/lib/site_perl/5.00553/os2
+  f:/perllib/lib/site_perl/5.00553
+  .
+
+to use the following @INC:
+
+  h:/opt/gnu/5.00553/os2
+  h:/opt/gnu/5.00553
+  h:/opt/gnu/site_perl/5.00553/os2
+  h:/opt/gnu/site_perl/5.00553
+  .
+
+=head2 C<PERL_BADLANG>
+
+If 0, perl ignores setlocale() failing. May be useful with some
+strange I<locale>s.
+
+=head2 C<PERL_BADFREE>
+
+If 0, perl would not warn of in case of unwarranted free(). With older
+perls this might be
+useful in conjunction with the module DB_File, which was buggy when
+dynamically linked and OMF-built.
+
+Should not be set with newer Perls, since this may hide some I<real> problems.
+
+=head2 C<PERL_SH_DIR>
+
+Specific for EMX port. Gives the directory part of the location for
+F<sh.exe>.
+
+=head2 C<USE_PERL_FLOCK>
+
+Specific for EMX port. Since L<flock(3)> is present in EMX, but is not 
+functional, it is emulated by perl.  To disable the emulations, set 
+environment variable C<USE_PERL_FLOCK=0>.
+
+=head2 C<TMP> or C<TEMP>
+
+Specific for EMX port. Used as storage place for temporary files.
+
+=head1 Evolution
+
+Here we list major changes which could make you by surprise.
+
+=head2 Text-mode filehandles
+
+Starting from version 5.8, Perl uses a builtin translation layer for
+text-mode files.  This replaces the efficient well-tested EMX layer by
+some code which should be best characterized as a "quick hack".
+
+In addition to possible bugs and an inability to follow changes to the
+translation policy with off/on switches of TERMIO translation, this
+introduces a serious incompatible change: before sysread() on
+text-mode filehandles would go through the translation layer, now it
+would not.
+
+=head2 Priorities
+
+C<setpriority> and C<getpriority> are not compatible with earlier
+ports by Andreas Kaiser. See C<"setpriority, getpriority">.
+
+=head2 DLL name mangling: pre 5.6.2
+
+With the release 5.003_01 the dynamically loadable libraries
+should be rebuilt when a different version of Perl is compiled. In particular,
+DLLs (including F<perl.dll>) are now created with the names
+which contain a checksum, thus allowing workaround for OS/2 scheme of
+caching DLLs.
+
+It may be possible to code a simple workaround which would 
+
+=over
+
+=item *
+
+find the old DLLs looking through the old @INC;
+
+=item *
+
+mangle the names according to the scheme of new perl and copy the DLLs to
+these names;
+
+=item *
+
+edit the internal C<LX> tables of DLL to reflect the change of the name
+(probably not needed for Perl extension DLLs, since the internally coded names
+are not used for "specific" DLLs, they used only for "global" DLLs).
+
+=item *
+
+edit the internal C<IMPORT> tables and change the name of the "old"
+F<perl????.dll> to the "new" F<perl????.dll>.
+
+=back
+
+=head2 DLL name mangling: 5.6.2 and beyond
+
+In fact mangling of I<extension> DLLs was done due to misunderstanding
+of the OS/2 dynaloading model.  OS/2 (effectively) maintains two
+different tables of loaded DLL:
+
+=over
+
+=item Global DLLs
+
+those loaded by the base name from C<LIBPATH>; including those
+associated at link time;
+
+=item specific DLLs
+
+loaded by the full name.
+
+=back
+
+When resolving a request for a global DLL, the table of already-loaded
+specific DLLs is (effectively) ignored; moreover, specific DLLs are
+I<always> loaded from the prescribed path.
+
+There is/was a minor twist which makes this scheme fragile: what to do
+with DLLs loaded from
+
+=over
+
+=item C<BEGINLIBPATH> and C<ENDLIBPATH>
+
+(which depend on the process)
+
+=item F<.> from C<LIBPATH>
+
+which I<effectively> depends on the process (although C<LIBPATH> is the
+same for all the processes).
+
+=back
+
+Unless C<LIBPATHSTRICT> is set to C<T> (and the kernel is after
+2000/09/01), such DLLs are considered to be global.  When loading a
+global DLL it is first looked in the table of already-loaded global
+DLLs.  Because of this the fact that one executable loaded a DLL from
+C<BEGINLIBPATH> and C<ENDLIBPATH>, or F<.> from C<LIBPATH> may affect
+I<which> DLL is loaded when I<another> executable requests a DLL with
+the same name.  I<This> is the reason for version-specific mangling of
+the DLL name for perl DLL.
+
+Since the Perl extension DLLs are always loaded with the full path,
+there is no need to mangle their names in a version-specific ways:
+their directory already reflects the corresponding version of perl,
+and @INC takes into account binary compatibility with older version.
+Starting from C<5.6.2> the name mangling scheme is fixed to be the
+same as for Perl 5.005_53 (same as in a popular binary release).  Thus
+new Perls will be able to I<resolve the names> of old extension DLLs
+if @INC allows finding their directories.
+
+However, this still does not guarantee that these DLL may be loaded.
+The reason is the mangling of the name of the I<Perl DLL>.  And since
+the extension DLLs link with the Perl DLL, extension DLLs for older
+versions would load an older Perl DLL, and would most probably
+segfault (since the data in this DLL is not properly initialized).
+
+There is a partial workaround (which can be made complete with newer
+OS/2 kernels): create a forwarder DLL with the same name as the DLL of
+the older version of Perl, which forwards the entry points to the
+newer Perl's DLL.  Make this DLL accessible on (say) the C<BEGINLIBPATH> of
+the new Perl executable.  When the new executable accesses old Perl's
+extension DLLs, they would request the old Perl's DLL by name, get the
+forwarder instead, so effectively will link with the currently running
+(new) Perl DLL.
+
+This may break in two ways:
+
+=over
+
+=item *
+
+Old perl executable is started when a new executable is running has
+loaded an extension compiled for the old executable (ouph!).  In this
+case the old executable will get a forwarder DLL instead of the old
+perl DLL, so would link with the new perl DLL.  While not directly
+fatal, it will behave the same as new executable.  This beats the whole
+purpose of explicitly starting an old executable.
+
+=item *
+
+A new executable loads an extension compiled for the old executable
+when an old perl executable is running.  In this case the extension
+will not pick up the forwarder - with fatal results.
+
+=back
+
+With support for C<LIBPATHSTRICT> this may be circumvented - unless
+one of DLLs is started from F<.> from C<LIBPATH> (I do not know
+whether C<LIBPATHSTRICT> affects this case).
+
+B<REMARK>.  Unless newer kernels allow F<.> in C<BEGINLIBPATH> (older
+do not), this mess cannot be completely cleaned.  (It turns out that
+as of the beginning of 2002, F<.> is not allowed, but F<.\.> is - and
+it has the same effect.)
+
+
+B<REMARK>.  C<LIBPATHSTRICT>, C<BEGINLIBPATH> and C<ENDLIBPATH> are
+not environment variables, although F<cmd.exe> emulates them on C<SET
+...> lines.  From Perl they may be accessed by
+L<Cwd::extLibpath|/Cwd::extLibpath([type])> and
+L<Cwd::extLibpath_set|/Cwd::extLibpath_set( path [, type ] )>.
+
+=head2 DLL forwarder generation
+
+Assume that the old DLL is named F<perlE0AC.dll> (as is one for
+5.005_53), and the new version is 5.6.1.  Create a file
+F<perl5shim.def-leader> with
+
+  LIBRARY 'perlE0AC' INITINSTANCE TERMINSTANCE
+  DESCRIPTION '@#perl5-porters@perl.org:5.006001#@ Perl module for 5.00553 -> Perl 5.6.1 forwarder'
+  CODE LOADONCALL
+  DATA LOADONCALL NONSHARED MULTIPLE
+  EXPORTS
+
+modifying the versions/names as needed.  Run
+
+ perl -wnle "next if 0../EXPORTS/; print qq(  \"$1\")
+                                          if /\"(\w+)\"/" perl5.def >lst
+
+in the Perl build directory (to make the DLL smaller replace perl5.def
+with the definition file for the older version of Perl if present).
+
+ cat perl5shim.def-leader lst >perl5shim.def
+ gcc -Zomf -Zdll -o perlE0AC.dll perl5shim.def -s -llibperl
+
+(ignore multiple C<warning L4085>).
+
+=head2 Threading
+
+As of release 5.003_01 perl is linked to multithreaded C RTL
+DLL.  If perl itself is not compiled multithread-enabled, so will not be perl's
+malloc(). However, extensions may use multiple thread on their own
+risk. 
+
+This was needed to compile C<Perl/Tk> for XFree86-OS/2 out-of-the-box, and
+link with DLLs for other useful libraries, which typically are compiled
+with C<-Zmt -Zcrtdll>.
+
+=head2 Calls to external programs
+
+Due to a popular demand the perl external program calling has been
+changed wrt Andreas Kaiser's port.  I<If> perl needs to call an
+external program I<via shell>, the F<f:/bin/sh.exe> will be called, or
+whatever is the override, see L<"PERL_SH_DIR">.
+
+Thus means that you need to get some copy of a F<sh.exe> as well (I
+use one from pdksh). The path F<F:/bin> above is set up automatically during
+the build to a correct value on the builder machine, but is
+overridable at runtime,
+
+B<Reasons:> a consensus on C<perl5-porters> was that perl should use
+one non-overridable shell per platform. The obvious choices for OS/2
+are F<cmd.exe> and F<sh.exe>. Having perl build itself would be impossible
+with F<cmd.exe> as a shell, thus I picked up C<sh.exe>. This assures almost
+100% compatibility with the scripts coming from *nix. As an added benefit 
+this works as well under DOS if you use DOS-enabled port of pdksh 
+(see L</Prerequisites>).
+
+B<Disadvantages:> currently F<sh.exe> of pdksh calls external programs
+via fork()/exec(), and there is I<no> functioning exec() on
+OS/2. exec() is emulated by EMX by an asynchronous call while the caller
+waits for child completion (to pretend that the C<pid> did not change). This
+means that 1 I<extra> copy of F<sh.exe> is made active via fork()/exec(),
+which may lead to some resources taken from the system (even if we do
+not count extra work needed for fork()ing).
+
+Note that this a lesser issue now when we do not spawn F<sh.exe>
+unless needed (metachars found).
+
+One can always start F<cmd.exe> explicitly via
+
+  system 'cmd', '/c', 'mycmd', 'arg1', 'arg2', ...
+
+If you need to use F<cmd.exe>, and do not want to hand-edit thousands of your
+scripts, the long-term solution proposed on p5-p is to have a directive
+
+  use OS2::Cmd;
+
+which will override system(), exec(), C<``>, and
+C<open(,'...|')>. With current perl you may override only system(),
+readpipe() - the explicit version of C<``>, and maybe exec(). The code
+will substitute the one-argument call to system() by
+C<CORE::system('cmd.exe', '/c', shift)>.
+
+If you have some working code for C<OS2::Cmd>, please send it to me,
+I will include it into distribution. I have no need for such a module, so
+cannot test it.
+
+For the details of the current situation with calling external programs,
+see L<Starting OSE<sol>2 (and DOS) programs under Perl>.  Set us mention a couple
+of features:
+
+=over 4
+
+=item *
+
+External scripts may be called by their basename.  Perl will try the same
+extensions as when processing B<-S> command-line switch.
+
+=item *
+
+External scripts starting with C<#!> or C<extproc > will be executed directly,
+without calling the shell, by calling the program specified on the rest of
+the first line.
+
+=back
+
+=head2 Memory allocation
+
+Perl uses its own malloc() under OS/2 - interpreters are usually malloc-bound
+for speed, but perl is not, since its malloc is lightning-fast.
+Perl-memory-usage-tuned benchmarks show that Perl's malloc is 5 times quicker
+than EMX one.  I do not have convincing data about memory footprint, but
+a (pretty random) benchmark showed that Perl's one is 5% better.
+
+Combination of perl's malloc() and rigid DLL name resolution creates
+a special problem with library functions which expect their return value to
+be free()d by system's free(). To facilitate extensions which need to call 
+such functions, system memory-allocation functions are still available with
+the prefix C<emx_> added. (Currently only DLL perl has this, it should 
+propagate to F<perl_.exe> shortly.)
+
+=head2 Threads
+
+One can build perl with thread support enabled by providing C<-D usethreads>
+option to F<Configure>.  Currently OS/2 support of threads is very 
+preliminary.
+
+Most notable problems: 
+
+=over 4
+
+=item C<COND_WAIT> 
+
+may have a race condition (but probably does not due to edge-triggered
+nature of OS/2 Event semaphores).  (Needs a reimplementation (in terms of chaining
+waiting threads, with the linked list stored in per-thread structure?)?)
+
+=item F<os2.c>
+
+has a couple of static variables used in OS/2-specific functions.  (Need to be
+moved to per-thread structure, or serialized?)
+
+=back
+
+Note that these problems should not discourage experimenting, since they
+have a low probability of affecting small programs.
+
+=head1 BUGS
+
+This description is not updated often (since 5.6.1?), see F<./os2/Changes>
+for more info.
+
+=cut
+
+OS/2 extensions
+~~~~~~~~~~~~~~~
+I include 3 extensions by Andreas Kaiser, OS2::REXX, OS2::UPM, and OS2::FTP, 
+into my ftp directory, mirrored on CPAN. I made
+some minor changes needed to compile them by standard tools. I cannot 
+test UPM and FTP, so I will appreciate your feedback. Other extensions
+there are OS2::ExtAttr, OS2::PrfDB for tied access to EAs and .INI
+files - and maybe some other extensions at the time you read it.
+
+Note that OS2 perl defines 2 pseudo-extension functions
+OS2::Copy::copy and DynaLoader::mod2fname (many more now, see
+L<Prebuilt methods>).
+
+The -R switch of older perl is deprecated. If you need to call a REXX code
+which needs access to variables, include the call into a REXX compartment
+created by 
+	REXX_call {...block...};
+
+Two new functions are supported by REXX code, 
+	REXX_eval 'string';
+	REXX_eval_with 'string', REXX_function_name => \&perl_sub_reference;
+
+If you have some other extensions you want to share, send the code to
+me.  At least two are available: tied access to EA's, and tied access
+to system databases.
+
+=head1 AUTHOR
+
+Ilya Zakharevich, cpan@ilyaz.org
+
+=head1 SEE ALSO
+
+perl(1).
+
+=cut
+
diff --git a/lib/5.24.1/pod/perlos390.pod b/lib/5.24.1/pod/perlos390.pod
new file mode 100644
index 00000000..0386209f
--- /dev/null
+++ b/lib/5.24.1/pod/perlos390.pod
@@ -0,0 +1,450 @@
+This document is written in pod format hence there are punctuation
+characters in odd places.  Do not worry, you've apparently got the
+ASCII->EBCDIC translation worked out correctly.  You can read more
+about pod in pod/perlpod.pod or the short summary in the INSTALL file.
+
+=head1 NAME
+
+perlos390 - building and installing Perl for OS/390 and z/OS
+
+=head1 SYNOPSIS
+
+This document will help you Configure, build, test and install Perl
+on OS/390 (aka z/OS) Unix System Services.
+
+B<This document needs to be updated, but we don't know what it should say.
+Please email comments to L<perlbug@perl.org|mailto:perlbug@perl.org>.>
+
+=head1 DESCRIPTION
+
+This is a fully ported Perl for OS/390 Version 2 Release 3, 5, 6, 7,
+8, and 9.  It may work on other versions or releases, but those are
+the ones we've tested it on.
+
+You may need to carry out some system configuration tasks before
+running the Configure script for Perl.
+
+
+=head2 Tools
+
+The z/OS Unix Tools and Toys list may prove helpful and contains links
+to ports of much of the software helpful for building Perl.
+http://www.ibm.com/servers/eserver/zseries/zos/unix/bpxa1toy.html
+
+
+=head2 Unpacking Perl distribution on OS/390
+
+If using ftp remember to transfer the distribution in binary format.
+
+Gunzip/gzip for OS/390 is discussed at:
+
+  http://www.ibm.com/servers/eserver/zseries/zos/unix/bpxa1ty1.html
+
+to extract an ASCII tar archive on OS/390, try this:
+
+   pax -o to=IBM-1047,from=ISO8859-1 -r < latest.tar
+
+or
+
+   zcat latest.tar.Z | pax -o to=IBM-1047,from=ISO8859-1 -r
+
+If you get lots of errors of the form
+
+ tar: FSUM7171 ...: cannot set uid/gid: EDC5139I Operation not permitted
+
+you didn't read the above and tried to use tar instead of pax, you'll
+first have to remove the (now corrupt) perl directory
+
+   rm -rf perl-...
+
+and then use pax.
+
+=head2 Setup and utilities for Perl on OS/390
+
+Be sure that your yacc installation is in place including any necessary
+parser template files. If you have not already done so then be sure to:
+
+  cp /samples/yyparse.c /etc
+
+This may also be a good time to ensure that your /etc/protocol file
+and either your /etc/resolv.conf or /etc/hosts files are in place.
+The IBM document that described such USS system setup issues was
+SC28-1890-07 "OS/390 UNIX System Services Planning", in particular
+Chapter 6 on customizing the OE shell.
+
+GNU make for OS/390, which is recommended for the build of perl (as
+well as building CPAN modules and extensions), is available from the
+L</Tools>.
+
+Some people have reported encountering "Out of memory!" errors while
+trying to build Perl using GNU make binaries.  If you encounter such
+trouble then try to download the source code kit and build GNU make
+from source to eliminate any such trouble.  You might also find GNU make
+(as well as Perl and Apache) in the red-piece/book "Open Source Software
+for OS/390 UNIX", SG24-5944-00 from IBM.
+
+If instead of the recommended GNU make you would like to use the system
+supplied make program then be sure to install the default rules file
+properly via the shell command:
+
+    cp /samples/startup.mk /etc
+
+and be sure to also set the environment variable _C89_CCMODE=1 (exporting
+_C89_CCMODE=1 is also a good idea for users of GNU make).
+
+You might also want to have GNU groff for OS/390 installed before
+running the "make install" step for Perl.
+
+There is a syntax error in the /usr/include/sys/socket.h header file
+that IBM supplies with USS V2R7, V2R8, and possibly V2R9.  The problem with
+the header file is that near the definition of the SO_REUSEPORT constant
+there is a spurious extra '/' character outside of a comment like so:
+
+ #define SO_REUSEPORT    0x0200    /* allow local address & port
+                                      reuse */                    /
+
+You could edit that header yourself to remove that last '/', or you might
+note that Language Environment (LE) APAR PQ39997 describes the problem
+and PTF's UQ46272 and UQ46271 are the (R8 at least) fixes and apply them.
+If left unattended that syntax error will turn up as an inability for Perl
+to build its "Socket" extension.
+
+For successful testing you may need to turn on the sticky bit for your
+world readable /tmp directory if you have not already done so (see man chmod).
+
+=head2 Configure Perl on OS/390
+
+Once you've unpacked the distribution, run "sh Configure" (see INSTALL
+for a full discussion of the Configure options).  There is a "hints" file
+for os390 that specifies the correct values for most things.  Some things
+to watch out for include:
+
+=over 4
+
+=item *
+
+A message of the form:
+
+ (I see you are using the Korn shell.  Some ksh's blow up on
+ Configure, mainly on older exotic systems.  If yours does, try the
+ Bourne shell instead.)
+
+is nothing to worry about at all.
+
+=item *
+
+Some of the parser default template files in /samples are needed in /etc.
+In particular be sure that you at least copy /samples/yyparse.c to /etc
+before running Perl's Configure.  This step ensures successful extraction
+of EBCDIC versions of parser files such as perly.c and perly.h.
+This has to be done before running Configure the first time.  If you failed
+to do so then the easiest way to re-Configure Perl is to delete your
+misconfigured build root and re-extract the source from the tar ball.
+Then you must ensure that /etc/yyparse.c is properly in place before
+attempting to re-run Configure.
+
+=item *
+
+This port will support dynamic loading, but it is not selected by
+default.  If you would like to experiment with dynamic loading then
+be sure to specify -Dusedl in the arguments to the Configure script.
+See the comments in hints/os390.sh for more information on dynamic loading.
+If you build with dynamic loading then you will need to add the
+$archlibexp/CORE directory to your LIBPATH environment variable in order
+for perl to work.  See the config.sh file for the value of $archlibexp.
+If in trying to use Perl you see an error message similar to:
+
+ CEE3501S The module libperl.dll was not found.
+   From entry point __dllstaticinit at compile unit offset +00000194
+   at
+
+then your LIBPATH does not have the location of libperl.x and either
+libperl.dll or libperl.so in it.  Add that directory to your LIBPATH and
+proceed.
+
+=item *
+
+Do not turn on the compiler optimization flag "-O".  There is
+a bug in either the optimizer or perl that causes perl to
+not work correctly when the optimizer is on.
+
+=item *
+
+Some of the configuration files in /etc used by the
+networking APIs are either missing or have the wrong
+names.  In particular, make sure that there's either
+an /etc/resolv.conf or an /etc/hosts, so that
+gethostbyname() works, and make sure that the file
+/etc/proto has been renamed to /etc/protocol (NOT
+/etc/protocols, as used by other Unix systems).
+You may have to look for things like HOSTNAME and DOMAINORIGIN
+in the "//'SYS1.TCPPARMS(TCPDATA)'" PDS member in order to
+properly set up your /etc networking files.
+
+=back
+
+=head2 Build, Test, Install Perl on OS/390
+
+Simply put:
+
+    sh Configure
+    make
+    make test
+
+if everything looks ok (see the next section for test/IVP diagnosis) then:
+
+    make install
+
+this last step may or may not require UID=0 privileges depending
+on how you answered the questions that Configure asked and whether
+or not you have write access to the directories you specified.
+
+=head2 Build Anomalies with Perl on OS/390
+
+"Out of memory!" messages during the build of Perl are most often fixed
+by re building the GNU make utility for OS/390 from a source code kit.
+
+Another memory limiting item to check is your MAXASSIZE parameter in your
+'SYS1.PARMLIB(BPXPRMxx)' data set (note too that as of V2R8 address space
+limits can be set on a per user ID basis in the USS segment of a RACF
+profile).  People have reported successful builds of Perl with MAXASSIZE
+parameters as small as 503316480 (and it may be possible to build Perl
+with a MAXASSIZE smaller than that).
+
+Within USS your /etc/profile or $HOME/.profile may limit your ulimit
+settings.  Check that the following command returns reasonable values:
+
+    ulimit -a
+
+To conserve memory you should have your compiler modules loaded into the
+Link Pack Area (LPA/ELPA) rather than in a link list or step lib.
+
+If the c89 compiler complains of syntax errors during the build of the
+Socket extension then be sure to fix the syntax error in the system
+header /usr/include/sys/socket.h.
+
+=head2 Testing Anomalies with Perl on OS/390
+
+The "make test" step runs a Perl Verification Procedure, usually before
+installation.  You might encounter STDERR messages even during a successful
+run of "make test".  Here is a guide to some of the more commonly seen
+anomalies:
+
+=over 4
+
+=item *
+
+A message of the form:
+
+ io/openpid...........CEE5210S The signal SIGHUP was received.
+ CEE5210S The signal SIGHUP was received.
+ CEE5210S The signal SIGHUP was received.
+ ok
+
+indicates that the t/io/openpid.t test of Perl has passed but done so
+with extraneous messages on stderr from CEE.
+
+=item *
+
+A message of the form:
+
+ lib/ftmp-security....File::Temp::_gettemp: Parent directory (/tmp/)
+ is not safe (sticky bit not set when world writable?) at
+ lib/ftmp-security.t line 100
+ File::Temp::_gettemp: Parent directory (/tmp/) is not safe (sticky
+ bit not set when world writable?) at lib/ftmp-security.t line 100
+ ok
+
+indicates a problem with the permissions on your /tmp directory within the HFS.
+To correct that problem issue the command:
+
+     chmod a+t /tmp
+
+from an account with write access to the directory entry for /tmp.
+
+=item *
+
+Out of Memory!
+
+Recent perl test suite is quite memory hungry. In addition to the comments
+above on memory limitations it is also worth checking for _CEE_RUNOPTS
+in your environment. Perl now has (in miniperlmain.c) a C #pragma
+to set CEE run options, but the environment variable wins.
+
+The C code asks for:
+
+ #pragma runopts(HEAP(2M,500K,ANYWHERE,KEEP,8K,4K) STACK(,,ANY,) ALL31(ON))
+
+The important parts of that are the second argument (the increment) to HEAP,
+and allowing the stack to be "Above the (16M) line". If the heap
+increment is too small then when perl (for example loading unicode/Name.pl) tries
+to create a "big" (400K+) string it cannot fit in a single segment
+and you get "Out of Memory!" - even if there is still plenty of memory
+available.
+
+A related issue is use with perl's malloc. Perl's malloc uses C<sbrk()>
+to get memory, and C<sbrk()> is limited to the first allocation so in this
+case something like:
+
+  HEAP(8M,500K,ANYWHERE,KEEP,8K,4K)
+
+is needed to get through the test suite.
+
+
+=back
+
+=head2 Installation Anomalies with Perl on OS/390
+
+The installman script will try to run on OS/390.  There will be fewer errors
+if you have a roff utility installed.  You can obtain GNU groff from the
+Redbook SG24-5944-00 ftp site.
+
+=head2 Usage Hints for Perl on OS/390
+
+When using perl on OS/390 please keep in mind that the EBCDIC and ASCII
+character sets are different.  See perlebcdic.pod for more on such character
+set issues.  Perl builtin functions that may behave differently under
+EBCDIC are also mentioned in the perlport.pod document.
+
+Open Edition (UNIX System Services) from V2R8 onward does support
+#!/path/to/perl script invocation.  There is a PTF available from
+IBM for V2R7 that will allow shell/kernel support for #!.  USS
+releases prior to V2R7 did not support the #! means of script invocation.
+If you are running V2R6 or earlier then see:
+
+    head `whence perldoc`
+
+for an example of how to use the "eval exec" trick to ask the shell to
+have Perl run your scripts on those older releases of Unix System Services.
+
+If you are having trouble with square brackets then consider switching your
+rlogin or telnet client.  Try to avoid older 3270 emulators and ISHELL for
+working with Perl on USS.
+
+=head2 Floating Point Anomalies with Perl on OS/390
+
+There appears to be a bug in the floating point implementation on S/390
+systems such that calling int() on the product of a number and a small
+magnitude number is not the same as calling int() on the quotient of
+that number and a large magnitude number.  For example, in the following
+Perl code:
+
+    my $x = 100000.0;
+    my $y = int($x * 1e-5) * 1e5; # '0'
+    my $z = int($x / 1e+5) * 1e5;  # '100000'
+    print "\$y is $y and \$z is $z\n"; # $y is 0 and $z is 100000
+
+Although one would expect the quantities $y and $z to be the same and equal
+to 100000 they will differ and instead will be 0 and 100000 respectively.
+
+The problem can be further examined in a roughly equivalent C program:
+
+    #include <stdio.h>
+    #include <math.h>
+    main()
+    {
+    double r1,r2;
+    double x = 100000.0;
+    double y = 0.0;
+    double z = 0.0;
+    x = 100000.0 * 1e-5;
+    r1 = modf (x,&y);
+    x = 100000.0 / 1e+5;
+    r2 = modf (x,&z);
+    printf("y is %e and z is %e\n",y*1e5,z*1e5);
+    /* y is 0.000000e+00 and z is 1.000000e+05 (with c89) */
+    }
+
+=head2 Modules and Extensions for Perl on OS/390
+
+Pure pure (that is non xs) modules may be installed via the usual:
+
+    perl Makefile.PL
+    make
+    make test
+    make install
+
+If you built perl with dynamic loading capability then that would also
+be the way to build xs based extensions.  However, if you built perl with
+the default static linking you can still build xs based extensions for OS/390
+but you will need to follow the instructions in ExtUtils::MakeMaker for
+building statically linked perl binaries.  In the simplest configurations
+building a static perl + xs extension boils down to:
+
+    perl Makefile.PL
+    make
+    make perl
+    make test
+    make install
+    make -f Makefile.aperl inst_perl MAP_TARGET=perl
+
+In most cases people have reported better results with GNU make rather
+than the system's /bin/make program, whether for plain modules or for
+xs based extensions.
+
+If the make process encounters trouble with either compilation or
+linking then try setting the _C89_CCMODE to 1.  Assuming sh is your
+login shell then run:
+
+    export _C89_CCMODE=1
+
+If tcsh is your login shell then use the setenv command.
+
+=head1 AUTHORS
+
+David Fiander and Peter Prymmer with thanks to Dennis Longnecker
+and William Raffloer for valuable reports, LPAR and PTF feedback.
+Thanks to Mike MacIsaac and Egon Terwedow for SG24-5944-00.
+Thanks to Ignasi Roca for pointing out the floating point problems.
+Thanks to John Goodyear for dynamic loading help.
+
+=head1 SEE ALSO
+
+L<INSTALL>, L<perlport>, L<perlebcdic>, L<ExtUtils::MakeMaker>.
+
+ http://www.ibm.com/servers/eserver/zseries/zos/unix/bpxa1toy.html
+
+ http://www.redbooks.ibm.com/redbooks/SG245944.html
+
+ http://www.ibm.com/servers/eserver/zseries/zos/unix/bpxa1ty1.html#opensrc
+
+ http://www.xray.mpe.mpg.de/mailing-lists/perl-mvs/
+
+ http://publibz.boulder.ibm.com:80/cgi-bin/bookmgr_OS390/BOOKS/ceea3030/
+
+ http://publibz.boulder.ibm.com:80/cgi-bin/bookmgr_OS390/BOOKS/CBCUG030/
+
+=head2 Mailing list for Perl on OS/390
+
+If you are interested in the z/OS (formerly known as OS/390)
+and POSIX-BC (BS2000) ports of Perl then see the perl-mvs mailing list.
+To subscribe, send an empty message to perl-mvs-subscribe@perl.org.
+
+See also:
+
+    http://lists.perl.org/list/perl-mvs.html
+
+There are web archives of the mailing list at:
+
+    http://www.xray.mpe.mpg.de/mailing-lists/perl-mvs/
+    http://archive.develooper.com/perl-mvs@perl.org/
+
+=head1 HISTORY
+
+This document was originally written by David Fiander for the 5.005
+release of Perl.
+
+This document was podified for the 5.005_03 release of Perl 11 March 1999.
+
+Updated 28 November 2001 for broken URLs.
+
+Updated 12 November 2000 for the 5.7.1 release of Perl.
+
+Updated 15 January 2001 for the 5.7.1 release of Perl.
+
+Updated 24 January 2001 to mention dynamic loading.
+
+Updated 12 March 2001 to mention //'SYS1.TCPPARMS(TCPDATA)'.
+
+=cut
+
diff --git a/lib/5.24.1/pod/perlos400.pod b/lib/5.24.1/pod/perlos400.pod
new file mode 100644
index 00000000..eef324ae
--- /dev/null
+++ b/lib/5.24.1/pod/perlos400.pod
@@ -0,0 +1,123 @@
+If you read this file _as_is_, just ignore the funny characters you see.
+It is written in the POD format (see pod/perlpod.pod) which is specially
+designed to be readable as is.
+
+=head1 NAME
+
+perlos400 - Perl version 5 on OS/400
+
+B<This document needs to be updated, but we don't know what it should say.
+Please email comments to L<perlbug@perl.org|mailto:perlbug@perl.org>.>
+
+=head1 DESCRIPTION
+
+This document describes various features of IBM's OS/400 operating
+system that will affect how Perl version 5 (hereafter just Perl) is
+compiled and/or runs.
+
+By far the easiest way to build Perl for OS/400 is to use the PASE
+(Portable Application Solutions Environment), for more information see
+L<http://www.iseries.ibm.com/developer/factory/pase/index.html>
+This environment allows one to use AIX APIs while programming, and it
+provides a runtime that allows AIX binaries to execute directly on the
+PowerPC iSeries.
+
+=head2 Compiling Perl for OS/400 PASE
+
+The recommended way to build Perl for the OS/400 PASE is to build the
+Perl 5 source code (release 5.8.1 or later) under AIX.
+
+The trick is to give a special parameter to the Configure shell script
+when running it on AIX:
+
+  sh Configure -DPASE ...
+
+The default installation directory of Perl under PASE is /QOpenSys/perl.
+This can be modified if needed with Configure parameter -Dprefix=/some/dir.
+
+Starting from OS/400 V5R2 the IBM Visual Age compiler is supported
+on OS/400 PASE, so it is possible to build Perl natively on OS/400.  
+The easier way, however, is to compile in AIX, as just described.
+
+If you don't want to install the compiled Perl in AIX into /QOpenSys
+(for packaging it before copying it to PASE), you can use a Configure
+parameter: -Dinstallprefix=/tmp/QOpenSys/perl.  This will cause the
+"make install" to install everything into that directory, while the
+installed files still think they are (will be) in /QOpenSys/perl.
+
+If building natively on PASE, please do the build under the /QOpenSys
+directory, since Perl is happier when built on a case sensitive filesystem.
+
+=head2 Installing Perl in OS/400 PASE
+
+If you are compiling on AIX, simply do a "make install" on the AIX box.
+Once the install finishes, tar up the /QOpenSys/perl directory.  Transfer
+the tarball to the OS/400 using FTP with the following commands:
+
+  > binary
+  > site namefmt 1
+  > put perl.tar /QOpenSys
+
+Once you have it on, simply bring up a PASE shell and extract the tarball.
+
+If you are compiling in PASE, then "make install" is the only thing you
+will need to do.
+
+The default path for perl binary is /QOpenSys/perl/bin/perl.  You'll
+want to symlink /QOpenSys/usr/bin/perl to this file so you don't have
+to modify your path.
+
+=head2 Using Perl in OS/400 PASE
+
+Perl in PASE may be used in the same manner as you would use Perl on AIX.
+
+Scripts starting with #!/usr/bin/perl should work if you have
+/QOpenSys/usr/bin/perl symlinked to your perl binary.  This will not
+work if you've done a setuid/setgid or have environment variable
+PASE_EXEC_QOPENSYS="N".  If you have V5R1, you'll need to get the
+latest PTFs to have this feature.  Scripts starting with
+#!/QOpenSys/perl/bin/perl should always work.
+
+=head2 Known Problems
+
+When compiling in PASE, there is no "oslevel" command.  Therefore,
+you may want to create a script called "oslevel" that echoes the
+level of AIX that your version of PASE runtime supports.  If you're
+unsure, consult your documentation or use "4.3.3.0".
+
+If you have test cases that fail, check for the existence of spool files.
+The test case may be trying to use a syscall that is not implemented
+in PASE.  To avoid the SIGILL, try setting the PASE_SYSCALL_NOSIGILL
+environment variable or have a handler for the SIGILL.  If you can
+compile programs for PASE, run the config script and edit config.sh
+when it gives you the option.  If you want to remove fchdir(), which
+isn't implement in V5R1, simply change the line that says:
+
+d_fchdir='define'
+
+to
+
+d_fchdir='undef'
+
+and then compile Perl.  The places where fchdir() is used have
+alternatives for systems that do not have fchdir() available.
+
+=head2 Perl on ILE
+
+There exists a port of Perl to the ILE environment.  This port, however,
+is based quite an old release of Perl, Perl 5.00502 (August 1998).
+(As of July 2002 the latest release of Perl is 5.8.0, and even 5.6.1
+has been out since April 2001.)  If you need to run Perl on ILE, though,
+you may need this older port: L<http://www.cpan.org/ports/#os400>
+Note that any Perl release later than 5.00502 has not been ported to ILE.
+
+If you need to use Perl in the ILE environment, you may want to consider
+using Qp2RunPase() to call the PASE version of Perl.
+
+=head1 AUTHORS
+
+Jarkko Hietaniemi <jhi@iki.fi>
+Bryan Logan <bryanlog@us.ibm.com>
+David Larson <larson1@us.ibm.com>
+
+=cut
diff --git a/lib/5.24.1/pod/perlpacktut.pod b/lib/5.24.1/pod/perlpacktut.pod
new file mode 100644
index 00000000..a710f20f
--- /dev/null
+++ b/lib/5.24.1/pod/perlpacktut.pod
@@ -0,0 +1,1276 @@
+=head1 NAME
+
+perlpacktut - tutorial on C<pack> and C<unpack>
+
+=head1 DESCRIPTION
+
+C<pack> and C<unpack> are two functions for transforming data according
+to a user-defined template, between the guarded way Perl stores values
+and some well-defined representation as might be required in the 
+environment of a Perl program. Unfortunately, they're also two of 
+the most misunderstood and most often overlooked functions that Perl
+provides. This tutorial will demystify them for you.
+
+
+=head1 The Basic Principle
+
+Most programming languages don't shelter the memory where variables are
+stored. In C, for instance, you can take the address of some variable,
+and the C<sizeof> operator tells you how many bytes are allocated to
+the variable. Using the address and the size, you may access the storage
+to your heart's content.
+
+In Perl, you just can't access memory at random, but the structural and
+representational conversion provided by C<pack> and C<unpack> is an
+excellent alternative. The C<pack> function converts values to a byte
+sequence containing representations according to a given specification,
+the so-called "template" argument. C<unpack> is the reverse process,
+deriving some values from the contents of a string of bytes. (Be cautioned,
+however, that not all that has been packed together can be neatly unpacked - 
+a very common experience as seasoned travellers are likely to confirm.)
+
+Why, you may ask, would you need a chunk of memory containing some values
+in binary representation? One good reason is input and output accessing
+some file, a device, or a network connection, whereby this binary
+representation is either forced on you or will give you some benefit
+in processing. Another cause is passing data to some system call that
+is not available as a Perl function: C<syscall> requires you to provide
+parameters stored in the way it happens in a C program. Even text processing 
+(as shown in the next section) may be simplified with judicious usage 
+of these two functions.
+
+To see how (un)packing works, we'll start with a simple template
+code where the conversion is in low gear: between the contents of a byte
+sequence and a string of hexadecimal digits. Let's use C<unpack>, since
+this is likely to remind you of a dump program, or some desperate last
+message unfortunate programs are wont to throw at you before they expire
+into the wild blue yonder. Assuming that the variable C<$mem> holds a 
+sequence of bytes that we'd like to inspect without assuming anything 
+about its meaning, we can write
+
+   my( $hex ) = unpack( 'H*', $mem );
+   print "$hex\n";
+
+whereupon we might see something like this, with each pair of hex digits
+corresponding to a byte:
+
+   41204d414e204120504c414e20412043414e414c2050414e414d41
+
+What was in this chunk of memory? Numbers, characters, or a mixture of
+both? Assuming that we're on a computer where ASCII (or some similar)
+encoding is used: hexadecimal values in the range C<0x40> - C<0x5A>
+indicate an uppercase letter, and C<0x20> encodes a space. So we might
+assume it is a piece of text, which some are able to read like a tabloid;
+but others will have to get hold of an ASCII table and relive that
+firstgrader feeling. Not caring too much about which way to read this,
+we note that C<unpack> with the template code C<H> converts the contents
+of a sequence of bytes into the customary hexadecimal notation. Since
+"a sequence of" is a pretty vague indication of quantity, C<H> has been
+defined to convert just a single hexadecimal digit unless it is followed
+by a repeat count. An asterisk for the repeat count means to use whatever
+remains.
+
+The inverse operation - packing byte contents from a string of hexadecimal
+digits - is just as easily written. For instance:
+
+   my $s = pack( 'H2' x 10, 30..39 );
+   print "$s\n";
+
+Since we feed a list of ten 2-digit hexadecimal strings to C<pack>, the
+pack template should contain ten pack codes. If this is run on a computer
+with ASCII character coding, it will print C<0123456789>.
+
+=head1 Packing Text
+
+Let's suppose you've got to read in a data file like this:
+
+    Date      |Description                | Income|Expenditure
+    01/24/2001 Zed's Camel Emporium                    1147.99
+    01/28/2001 Flea spray                                24.99
+    01/29/2001 Camel rides to tourists      235.00
+
+How do we do it? You might think first to use C<split>; however, since
+C<split> collapses blank fields, you'll never know whether a record was
+income or expenditure. Oops. Well, you could always use C<substr>:
+
+    while (<>) { 
+        my $date   = substr($_,  0, 11);
+        my $desc   = substr($_, 12, 27);
+        my $income = substr($_, 40,  7);
+        my $expend = substr($_, 52,  7);
+        ...
+    }
+
+It's not really a barrel of laughs, is it? In fact, it's worse than it
+may seem; the eagle-eyed may notice that the first field should only be
+10 characters wide, and the error has propagated right through the other
+numbers - which we've had to count by hand. So it's error-prone as well
+as horribly unfriendly.
+
+Or maybe we could use regular expressions:
+
+    while (<>) { 
+        my($date, $desc, $income, $expend) = 
+            m|(\d\d/\d\d/\d{4}) (.{27}) (.{7})(.*)|;
+        ...
+    }
+
+Urgh. Well, it's a bit better, but - well, would you want to maintain
+that?
+
+Hey, isn't Perl supposed to make this sort of thing easy? Well, it does,
+if you use the right tools. C<pack> and C<unpack> are designed to help
+you out when dealing with fixed-width data like the above. Let's have a
+look at a solution with C<unpack>:
+
+    while (<>) { 
+        my($date, $desc, $income, $expend) = unpack("A10xA27xA7A*", $_);
+        ...
+    }
+
+That looks a bit nicer; but we've got to take apart that weird template.
+Where did I pull that out of? 
+
+OK, let's have a look at some of our data again; in fact, we'll include
+the headers, and a handy ruler so we can keep track of where we are.
+
+             1         2         3         4         5        
+    1234567890123456789012345678901234567890123456789012345678
+    Date      |Description                | Income|Expenditure
+    01/28/2001 Flea spray                                24.99
+    01/29/2001 Camel rides to tourists      235.00
+
+From this, we can see that the date column stretches from column 1 to
+column 10 - ten characters wide. The C<pack>-ese for "character" is
+C<A>, and ten of them are C<A10>. So if we just wanted to extract the
+dates, we could say this:
+
+    my($date) = unpack("A10", $_);
+
+OK, what's next? Between the date and the description is a blank column;
+we want to skip over that. The C<x> template means "skip forward", so we
+want one of those. Next, we have another batch of characters, from 12 to
+38. That's 27 more characters, hence C<A27>. (Don't make the fencepost
+error - there are 27 characters between 12 and 38, not 26. Count 'em!)
+
+Now we skip another character and pick up the next 7 characters:
+
+    my($date,$description,$income) = unpack("A10xA27xA7", $_);
+
+Now comes the clever bit. Lines in our ledger which are just income and
+not expenditure might end at column 46. Hence, we don't want to tell our
+C<unpack> pattern that we B<need> to find another 12 characters; we'll
+just say "if there's anything left, take it". As you might guess from
+regular expressions, that's what the C<*> means: "use everything
+remaining".
+
+=over 3
+
+=item *
+
+Be warned, though, that unlike regular expressions, if the C<unpack>
+template doesn't match the incoming data, Perl will scream and die.
+
+=back
+
+
+Hence, putting it all together:
+
+    my ($date, $description, $income, $expend) =
+        unpack("A10xA27xA7xA*", $_);
+
+Now, that's our data parsed. I suppose what we might want to do now is
+total up our income and expenditure, and add another line to the end of
+our ledger - in the same format - saying how much we've brought in and
+how much we've spent:
+
+    while (<>) {
+        my ($date, $desc, $income, $expend) =
+            unpack("A10xA27xA7xA*", $_);
+        $tot_income += $income;
+        $tot_expend += $expend;
+    }
+
+    $tot_income = sprintf("%.2f", $tot_income); # Get them into 
+    $tot_expend = sprintf("%.2f", $tot_expend); # "financial" format
+
+    $date = POSIX::strftime("%m/%d/%Y", localtime); 
+
+    # OK, let's go:
+
+    print pack("A10xA27xA7xA*", $date, "Totals",
+        $tot_income, $tot_expend);
+
+Oh, hmm. That didn't quite work. Let's see what happened:
+
+    01/24/2001 Zed's Camel Emporium                     1147.99
+    01/28/2001 Flea spray                                 24.99
+    01/29/2001 Camel rides to tourists     1235.00
+    03/23/2001Totals                     1235.001172.98
+
+OK, it's a start, but what happened to the spaces? We put C<x>, didn't
+we? Shouldn't it skip forward? Let's look at what L<perlfunc/pack> says:
+
+    x   A null byte.
+
+Urgh. No wonder. There's a big difference between "a null byte",
+character zero, and "a space", character 32. Perl's put something
+between the date and the description - but unfortunately, we can't see
+it! 
+
+What we actually need to do is expand the width of the fields. The C<A>
+format pads any non-existent characters with spaces, so we can use the
+additional spaces to line up our fields, like this:
+
+    print pack("A11 A28 A8 A*", $date, "Totals",
+        $tot_income, $tot_expend);
+
+(Note that you can put spaces in the template to make it more readable,
+but they don't translate to spaces in the output.) Here's what we got
+this time:
+
+    01/24/2001 Zed's Camel Emporium                     1147.99
+    01/28/2001 Flea spray                                 24.99
+    01/29/2001 Camel rides to tourists     1235.00
+    03/23/2001 Totals                      1235.00 1172.98
+
+That's a bit better, but we still have that last column which needs to
+be moved further over. There's an easy way to fix this up:
+unfortunately, we can't get C<pack> to right-justify our fields, but we
+can get C<sprintf> to do it:
+
+    $tot_income = sprintf("%.2f", $tot_income); 
+    $tot_expend = sprintf("%12.2f", $tot_expend);
+    $date = POSIX::strftime("%m/%d/%Y", localtime); 
+    print pack("A11 A28 A8 A*", $date, "Totals",
+        $tot_income, $tot_expend);
+
+This time we get the right answer:
+
+    01/28/2001 Flea spray                                 24.99
+    01/29/2001 Camel rides to tourists     1235.00
+    03/23/2001 Totals                      1235.00      1172.98
+
+So that's how we consume and produce fixed-width data. Let's recap what
+we've seen of C<pack> and C<unpack> so far:
+
+=over 3
+
+=item *
+
+Use C<pack> to go from several pieces of data to one fixed-width
+version; use C<unpack> to turn a fixed-width-format string into several
+pieces of data. 
+
+=item *
+
+The pack format C<A> means "any character"; if you're C<pack>ing and
+you've run out of things to pack, C<pack> will fill the rest up with
+spaces.
+
+=item *
+
+C<x> means "skip a byte" when C<unpack>ing; when C<pack>ing, it means
+"introduce a null byte" - that's probably not what you mean if you're
+dealing with plain text.
+
+=item *
+
+You can follow the formats with numbers to say how many characters
+should be affected by that format: C<A12> means "take 12 characters";
+C<x6> means "skip 6 bytes" or "character 0, 6 times".
+
+=item *
+
+Instead of a number, you can use C<*> to mean "consume everything else
+left". 
+
+B<Warning>: when packing multiple pieces of data, C<*> only means
+"consume all of the current piece of data". That's to say
+
+    pack("A*A*", $one, $two)
+
+packs all of C<$one> into the first C<A*> and then all of C<$two> into
+the second. This is a general principle: each format character
+corresponds to one piece of data to be C<pack>ed.
+
+=back
+
+
+
+=head1 Packing Numbers
+
+So much for textual data. Let's get onto the meaty stuff that C<pack>
+and C<unpack> are best at: handling binary formats for numbers. There is,
+of course, not just one binary format  - life would be too simple - but
+Perl will do all the finicky labor for you.
+
+
+=head2 Integers
+
+Packing and unpacking numbers implies conversion to and from some
+I<specific> binary representation. Leaving floating point numbers
+aside for the moment, the salient properties of any such representation
+are:
+
+=over 4
+
+=item *
+
+the number of bytes used for storing the integer,
+
+=item *
+
+whether the contents are interpreted as a signed or unsigned number,
+
+=item *
+
+the byte ordering: whether the first byte is the least or most
+significant byte (or: little-endian or big-endian, respectively).
+
+=back
+
+So, for instance, to pack 20302 to a signed 16 bit integer in your
+computer's representation you write
+
+   my $ps = pack( 's', 20302 );
+
+Again, the result is a string, now containing 2 bytes. If you print 
+this string (which is, generally, not recommended) you might see
+C<ON> or C<NO> (depending on your system's byte ordering) - or something
+entirely different if your computer doesn't use ASCII character encoding.
+Unpacking C<$ps> with the same template returns the original integer value:
+
+   my( $s ) = unpack( 's', $ps );
+
+This is true for all numeric template codes. But don't expect miracles:
+if the packed value exceeds the allotted byte capacity, high order bits
+are silently discarded, and unpack certainly won't be able to pull them
+back out of some magic hat. And, when you pack using a signed template
+code such as C<s>, an excess value may result in the sign bit
+getting set, and unpacking this will smartly return a negative value.
+
+16 bits won't get you too far with integers, but there is C<l> and C<L>
+for signed and unsigned 32-bit integers. And if this is not enough and
+your system supports 64 bit integers you can push the limits much closer
+to infinity with pack codes C<q> and C<Q>. A notable exception is provided
+by pack codes C<i> and C<I> for signed and unsigned integers of the 
+"local custom" variety: Such an integer will take up as many bytes as
+a local C compiler returns for C<sizeof(int)>, but it'll use I<at least>
+32 bits.
+
+Each of the integer pack codes C<sSlLqQ> results in a fixed number of bytes,
+no matter where you execute your program. This may be useful for some 
+applications, but it does not provide for a portable way to pass data 
+structures between Perl and C programs (bound to happen when you call 
+XS extensions or the Perl function C<syscall>), or when you read or
+write binary files. What you'll need in this case are template codes that
+depend on what your local C compiler compiles when you code C<short> or
+C<unsigned long>, for instance. These codes and their corresponding
+byte lengths are shown in the table below.  Since the C standard leaves
+much leeway with respect to the relative sizes of these data types, actual
+values may vary, and that's why the values are given as expressions in
+C and Perl. (If you'd like to use values from C<%Config> in your program
+you have to import it with C<use Config>.)
+
+   signed unsigned  byte length in C   byte length in Perl       
+     s!     S!      sizeof(short)      $Config{shortsize}
+     i!     I!      sizeof(int)        $Config{intsize}
+     l!     L!      sizeof(long)       $Config{longsize}
+     q!     Q!      sizeof(long long)  $Config{longlongsize}
+
+The C<i!> and C<I!> codes aren't different from C<i> and C<I>; they are
+tolerated for completeness' sake.
+
+
+=head2 Unpacking a Stack Frame
+
+Requesting a particular byte ordering may be necessary when you work with
+binary data coming from some specific architecture whereas your program could
+run on a totally different system. As an example, assume you have 24 bytes
+containing a stack frame as it happens on an Intel 8086:
+
+      +---------+        +----+----+               +---------+
+ TOS: |   IP    |  TOS+4:| FL | FH | FLAGS  TOS+14:|   SI    |
+      +---------+        +----+----+               +---------+
+      |   CS    |        | AL | AH | AX            |   DI    |
+      +---------+        +----+----+               +---------+
+                         | BL | BH | BX            |   BP    |
+                         +----+----+               +---------+
+                         | CL | CH | CX            |   DS    |
+                         +----+----+               +---------+
+                         | DL | DH | DX            |   ES    |
+                         +----+----+               +---------+
+
+First, we note that this time-honored 16-bit CPU uses little-endian order,
+and that's why the low order byte is stored at the lower address. To
+unpack such a (unsigned) short we'll have to use code C<v>. A repeat
+count unpacks all 12 shorts:
+
+   my( $ip, $cs, $flags, $ax, $bx, $cd, $dx, $si, $di, $bp, $ds, $es ) =
+     unpack( 'v12', $frame );
+
+Alternatively, we could have used C<C> to unpack the individually
+accessible byte registers FL, FH, AL, AH, etc.:
+
+   my( $fl, $fh, $al, $ah, $bl, $bh, $cl, $ch, $dl, $dh ) =
+     unpack( 'C10', substr( $frame, 4, 10 ) );
+
+It would be nice if we could do this in one fell swoop: unpack a short,
+back up a little, and then unpack 2 bytes. Since Perl I<is> nice, it
+proffers the template code C<X> to back up one byte. Putting this all
+together, we may now write:
+
+   my( $ip, $cs,
+       $flags,$fl,$fh,
+       $ax,$al,$ah, $bx,$bl,$bh, $cx,$cl,$ch, $dx,$dl,$dh, 
+       $si, $di, $bp, $ds, $es ) =
+   unpack( 'v2' . ('vXXCC' x 5) . 'v5', $frame );
+
+(The clumsy construction of the template can be avoided - just read on!)  
+
+We've taken some pains to construct the template so that it matches
+the contents of our frame buffer. Otherwise we'd either get undefined values,
+or C<unpack> could not unpack all. If C<pack> runs out of items, it will
+supply null strings (which are coerced into zeroes whenever the pack code
+says so).
+
+
+=head2 How to Eat an Egg on a Net
+
+The pack code for big-endian (high order byte at the lowest address) is
+C<n> for 16 bit and C<N> for 32 bit integers. You use these codes
+if you know that your data comes from a compliant architecture, but,
+surprisingly enough, you should also use these pack codes if you
+exchange binary data, across the network, with some system that you
+know next to nothing about. The simple reason is that this
+order has been chosen as the I<network order>, and all standard-fearing
+programs ought to follow this convention. (This is, of course, a stern
+backing for one of the Lilliputian parties and may well influence the
+political development there.) So, if the protocol expects you to send
+a message by sending the length first, followed by just so many bytes,
+you could write:
+
+   my $buf = pack( 'N', length( $msg ) ) . $msg;
+
+or even:
+
+   my $buf = pack( 'NA*', length( $msg ), $msg );
+
+and pass C<$buf> to your send routine. Some protocols demand that the
+count should include the length of the count itself: then just add 4
+to the data length. (But make sure to read L<"Lengths and Widths"> before
+you really code this!)
+
+
+=head2 Byte-order modifiers
+
+In the previous sections we've learned how to use C<n>, C<N>, C<v> and
+C<V> to pack and unpack integers with big- or little-endian byte-order.
+While this is nice, it's still rather limited because it leaves out all
+kinds of signed integers as well as 64-bit integers. For example, if you
+wanted to unpack a sequence of signed big-endian 16-bit integers in a
+platform-independent way, you would have to write:
+
+   my @data = unpack 's*', pack 'S*', unpack 'n*', $buf;
+
+This is ugly. As of Perl 5.9.2, there's a much nicer way to express your
+desire for a certain byte-order: the C<E<gt>> and C<E<lt>> modifiers.
+C<E<gt>> is the big-endian modifier, while C<E<lt>> is the little-endian
+modifier. Using them, we could rewrite the above code as:
+
+   my @data = unpack 's>*', $buf;
+
+As you can see, the "big end" of the arrow touches the C<s>, which is a
+nice way to remember that C<E<gt>> is the big-endian modifier. The same
+obviously works for C<E<lt>>, where the "little end" touches the code.
+
+You will probably find these modifiers even more useful if you have
+to deal with big- or little-endian C structures. Be sure to read
+L<"Packing and Unpacking C Structures"> for more on that.
+
+
+=head2 Floating point Numbers
+
+For packing floating point numbers you have the choice between the
+pack codes C<f>, C<d>, C<F> and C<D>. C<f> and C<d> pack into (or unpack
+from) single-precision or double-precision representation as it is provided
+by your system. If your systems supports it, C<D> can be used to pack and
+unpack (C<long double>) values, which can offer even more resolution
+than C<f> or C<d>.  B<Note that there are different long double formats.>
+
+C<F> packs an C<NV>, which is the floating point type used by Perl
+internally.
+
+There is no such thing as a network representation for reals, so if
+you want to send your real numbers across computer boundaries, you'd
+better stick to text representation, possibly using the hexadecimal
+float format (avoiding the decimal conversion loss), unless you're
+absolutely sure what's on the other end of the line. For the even more
+adventuresome, you can use the byte-order modifiers from the previous
+section also on floating point codes.
+
+
+
+=head1 Exotic Templates
+
+
+=head2 Bit Strings
+
+Bits are the atoms in the memory world. Access to individual bits may
+have to be used either as a last resort or because it is the most
+convenient way to handle your data. Bit string (un)packing converts
+between strings containing a series of C<0> and C<1> characters and
+a sequence of bytes each containing a group of 8 bits. This is almost
+as simple as it sounds, except that there are two ways the contents of
+a byte may be written as a bit string. Let's have a look at an annotated
+byte:
+
+     7 6 5 4 3 2 1 0
+   +-----------------+
+   | 1 0 0 0 1 1 0 0 |
+   +-----------------+
+    MSB           LSB
+
+It's egg-eating all over again: Some think that as a bit string this should
+be written "10001100" i.e. beginning with the most significant bit, others
+insist on "00110001". Well, Perl isn't biased, so that's why we have two bit
+string codes:
+
+   $byte = pack( 'B8', '10001100' ); # start with MSB
+   $byte = pack( 'b8', '00110001' ); # start with LSB
+
+It is not possible to pack or unpack bit fields - just integral bytes.
+C<pack> always starts at the next byte boundary and "rounds up" to the
+next multiple of 8 by adding zero bits as required. (If you do want bit
+fields, there is L<perlfunc/vec>. Or you could implement bit field 
+handling at the character string level, using split, substr, and
+concatenation on unpacked bit strings.)
+
+To illustrate unpacking for bit strings, we'll decompose a simple
+status register (a "-" stands for a "reserved" bit):
+
+   +-----------------+-----------------+
+   | S Z - A - P - C | - - - - O D I T |
+   +-----------------+-----------------+
+    MSB           LSB MSB           LSB
+
+Converting these two bytes to a string can be done with the unpack 
+template C<'b16'>. To obtain the individual bit values from the bit
+string we use C<split> with the "empty" separator pattern which dissects
+into individual characters. Bit values from the "reserved" positions are
+simply assigned to C<undef>, a convenient notation for "I don't care where
+this goes".
+
+   ($carry, undef, $parity, undef, $auxcarry, undef, $zero, $sign,
+    $trace, $interrupt, $direction, $overflow) =
+      split( //, unpack( 'b16', $status ) );
+
+We could have used an unpack template C<'b12'> just as well, since the
+last 4 bits can be ignored anyway. 
+
+
+=head2 Uuencoding
+
+Another odd-man-out in the template alphabet is C<u>, which packs a
+"uuencoded string". ("uu" is short for Unix-to-Unix.) Chances are that
+you won't ever need this encoding technique which was invented to overcome
+the shortcomings of old-fashioned transmission mediums that do not support
+other than simple ASCII data. The essential recipe is simple: Take three 
+bytes, or 24 bits. Split them into 4 six-packs, adding a space (0x20) to 
+each. Repeat until all of the data is blended. Fold groups of 4 bytes into 
+lines no longer than 60 and garnish them in front with the original byte count 
+(incremented by 0x20) and a C<"\n"> at the end. - The C<pack> chef will
+prepare this for you, a la minute, when you select pack code C<u> on the menu:
+
+   my $uubuf = pack( 'u', $bindat );
+
+A repeat count after C<u> sets the number of bytes to put into an
+uuencoded line, which is the maximum of 45 by default, but could be
+set to some (smaller) integer multiple of three. C<unpack> simply ignores
+the repeat count.
+
+
+=head2 Doing Sums
+
+An even stranger template code is C<%>E<lt>I<number>E<gt>. First, because 
+it's used as a prefix to some other template code. Second, because it
+cannot be used in C<pack> at all, and third, in C<unpack>, doesn't return the
+data as defined by the template code it precedes. Instead it'll give you an
+integer of I<number> bits that is computed from the data value by 
+doing sums. For numeric unpack codes, no big feat is achieved:
+
+    my $buf = pack( 'iii', 100, 20, 3 );
+    print unpack( '%32i3', $buf ), "\n";  # prints 123
+
+For string values, C<%> returns the sum of the byte values saving
+you the trouble of a sum loop with C<substr> and C<ord>:
+
+    print unpack( '%32A*', "\x01\x10" ), "\n";  # prints 17
+
+Although the C<%> code is documented as returning a "checksum":
+don't put your trust in such values! Even when applied to a small number
+of bytes, they won't guarantee a noticeable Hamming distance.
+
+In connection with C<b> or C<B>, C<%> simply adds bits, and this can be put
+to good use to count set bits efficiently:
+
+    my $bitcount = unpack( '%32b*', $mask );
+
+And an even parity bit can be determined like this:
+
+    my $evenparity = unpack( '%1b*', $mask );
+
+
+=head2  Unicode
+
+Unicode is a character set that can represent most characters in most of
+the world's languages, providing room for over one million different
+characters. Unicode 3.1 specifies 94,140 characters: The Basic Latin
+characters are assigned to the numbers 0 - 127. The Latin-1 Supplement with
+characters that are used in several European languages is in the next
+range, up to 255. After some more Latin extensions we find the character
+sets from languages using non-Roman alphabets, interspersed with a
+variety of symbol sets such as currency symbols, Zapf Dingbats or Braille.
+(You might want to visit L<http://www.unicode.org/> for a look at some of
+them - my personal favourites are Telugu and Kannada.)
+
+The Unicode character sets associates characters with integers. Encoding
+these numbers in an equal number of bytes would more than double the
+requirements for storing texts written in Latin alphabets.
+The UTF-8 encoding avoids this by storing the most common (from a western
+point of view) characters in a single byte while encoding the rarer
+ones in three or more bytes.
+
+Perl uses UTF-8, internally, for most Unicode strings.
+
+So what has this got to do with C<pack>? Well, if you want to compose a
+Unicode string (that is internally encoded as UTF-8), you can do so by
+using template code C<U>. As an example, let's produce the Euro currency
+symbol (code number 0x20AC):
+
+   $UTF8{Euro} = pack( 'U', 0x20AC );
+   # Equivalent to: $UTF8{Euro} = "\x{20ac}";
+
+Inspecting C<$UTF8{Euro}> shows that it contains 3 bytes:
+"\xe2\x82\xac". However, it contains only 1 character, number 0x20AC.
+The round trip can be completed with C<unpack>:
+
+   $Unicode{Euro} = unpack( 'U', $UTF8{Euro} );
+
+Unpacking using the C<U> template code also works on UTF-8 encoded byte
+strings.
+
+Usually you'll want to pack or unpack UTF-8 strings:
+
+   # pack and unpack the Hebrew alphabet
+   my $alefbet = pack( 'U*', 0x05d0..0x05ea );
+   my @hebrew = unpack( 'U*', $utf );
+
+Please note: in the general case, you're better off using
+Encode::decode_utf8 to decode a UTF-8 encoded byte string to a Perl
+Unicode string, and Encode::encode_utf8 to encode a Perl Unicode string
+to UTF-8 bytes. These functions provide means of handling invalid byte
+sequences and generally have a friendlier interface.
+
+=head2 Another Portable Binary Encoding
+
+The pack code C<w> has been added to support a portable binary data
+encoding scheme that goes way beyond simple integers. (Details can
+be found at L<http://Casbah.org/>, the Scarab project.)  A BER (Binary Encoded
+Representation) compressed unsigned integer stores base 128
+digits, most significant digit first, with as few digits as possible.
+Bit eight (the high bit) is set on each byte except the last. There
+is no size limit to BER encoding, but Perl won't go to extremes.
+
+   my $berbuf = pack( 'w*', 1, 128, 128+1, 128*128+127 );
+
+A hex dump of C<$berbuf>, with spaces inserted at the right places,
+shows 01 8100 8101 81807F. Since the last byte is always less than
+128, C<unpack> knows where to stop.
+
+
+=head1 Template Grouping
+
+Prior to Perl 5.8, repetitions of templates had to be made by
+C<x>-multiplication of template strings. Now there is a better way as
+we may use the pack codes C<(> and C<)> combined with a repeat count.
+The C<unpack> template from the Stack Frame example can simply
+be written like this:
+
+   unpack( 'v2 (vXXCC)5 v5', $frame )
+
+Let's explore this feature a little more. We'll begin with the equivalent of
+
+   join( '', map( substr( $_, 0, 1 ), @str ) )
+
+which returns a string consisting of the first character from each string.
+Using pack, we can write
+
+   pack( '(A)'.@str, @str )
+
+or, because a repeat count C<*> means "repeat as often as required",
+simply
+
+   pack( '(A)*', @str )
+
+(Note that the template C<A*> would only have packed C<$str[0]> in full
+length.)
+
+To pack dates stored as triplets ( day, month, year ) in an array C<@dates>
+into a sequence of byte, byte, short integer we can write
+
+   $pd = pack( '(CCS)*', map( @$_, @dates ) );
+
+To swap pairs of characters in a string (with even length) one could use
+several techniques. First, let's use C<x> and C<X> to skip forward and back:
+
+   $s = pack( '(A)*', unpack( '(xAXXAx)*', $s ) );
+
+We can also use C<@> to jump to an offset, with 0 being the position where
+we were when the last C<(> was encountered:
+
+   $s = pack( '(A)*', unpack( '(@1A @0A @2)*', $s ) );
+
+Finally, there is also an entirely different approach by unpacking big
+endian shorts and packing them in the reverse byte order:
+
+   $s = pack( '(v)*', unpack( '(n)*', $s );
+
+
+=head1 Lengths and Widths
+
+=head2 String Lengths
+
+In the previous section we've seen a network message that was constructed
+by prefixing the binary message length to the actual message. You'll find
+that packing a length followed by so many bytes of data is a 
+frequently used recipe since appending a null byte won't work
+if a null byte may be part of the data. Here is an example where both
+techniques are used: after two null terminated strings with source and
+destination address, a Short Message (to a mobile phone) is sent after
+a length byte:
+
+   my $msg = pack( 'Z*Z*CA*', $src, $dst, length( $sm ), $sm );
+
+Unpacking this message can be done with the same template:
+
+   ( $src, $dst, $len, $sm ) = unpack( 'Z*Z*CA*', $msg );
+
+There's a subtle trap lurking in the offing: Adding another field after
+the Short Message (in variable C<$sm>) is all right when packing, but this
+cannot be unpacked naively:
+
+   # pack a message
+   my $msg = pack( 'Z*Z*CA*C', $src, $dst, length( $sm ), $sm, $prio );
+
+   # unpack fails - $prio remains undefined!
+   ( $src, $dst, $len, $sm, $prio ) = unpack( 'Z*Z*CA*C', $msg );
+
+The pack code C<A*> gobbles up all remaining bytes, and C<$prio> remains
+undefined! Before we let disappointment dampen the morale: Perl's got
+the trump card to make this trick too, just a little further up the sleeve.
+Watch this:
+
+   # pack a message: ASCIIZ, ASCIIZ, length/string, byte
+   my $msg = pack( 'Z* Z* C/A* C', $src, $dst, $sm, $prio );
+
+   # unpack
+   ( $src, $dst, $sm, $prio ) = unpack( 'Z* Z* C/A* C', $msg );
+
+Combining two pack codes with a slash (C</>) associates them with a single
+value from the argument list. In C<pack>, the length of the argument is
+taken and packed according to the first code while the argument itself
+is added after being converted with the template code after the slash.
+This saves us the trouble of inserting the C<length> call, but it is 
+in C<unpack> where we really score: The value of the length byte marks the
+end of the string to be taken from the buffer. Since this combination
+doesn't make sense except when the second pack code isn't C<a*>, C<A*>
+or C<Z*>, Perl won't let you.
+
+The pack code preceding C</> may be anything that's fit to represent a
+number: All the numeric binary pack codes, and even text codes such as
+C<A4> or C<Z*>:
+
+   # pack/unpack a string preceded by its length in ASCII
+   my $buf = pack( 'A4/A*', "Humpty-Dumpty" );
+   # unpack $buf: '13  Humpty-Dumpty'
+   my $txt = unpack( 'A4/A*', $buf );
+
+C</> is not implemented in Perls before 5.6, so if your code is required to
+work on older Perls you'll need to C<unpack( 'Z* Z* C')> to get the length,
+then use it to make a new unpack string. For example
+
+   # pack a message: ASCIIZ, ASCIIZ, length, string, byte
+   # (5.005 compatible)
+   my $msg = pack( 'Z* Z* C A* C', $src, $dst, length $sm, $sm, $prio );
+
+   # unpack
+   ( undef, undef, $len) = unpack( 'Z* Z* C', $msg );
+   ($src, $dst, $sm, $prio) = unpack ( "Z* Z* x A$len C", $msg );
+
+But that second C<unpack> is rushing ahead. It isn't using a simple literal
+string for the template. So maybe we should introduce...
+
+=head2 Dynamic Templates
+
+So far, we've seen literals used as templates. If the list of pack
+items doesn't have fixed length, an expression constructing the
+template is required (whenever, for some reason, C<()*> cannot be used).
+Here's an example: To store named string values in a way that can be
+conveniently parsed by a C program, we create a sequence of names and
+null terminated ASCII strings, with C<=> between the name and the value,
+followed by an additional delimiting null byte. Here's how:
+
+   my $env = pack( '(A*A*Z*)' . keys( %Env ) . 'C',
+                   map( { ( $_, '=', $Env{$_} ) } keys( %Env ) ), 0 );
+
+Let's examine the cogs of this byte mill, one by one. There's the C<map>
+call, creating the items we intend to stuff into the C<$env> buffer:
+to each key (in C<$_>) it adds the C<=> separator and the hash entry value.
+Each triplet is packed with the template code sequence C<A*A*Z*> that
+is repeated according to the number of keys. (Yes, that's what the C<keys>
+function returns in scalar context.) To get the very last null byte,
+we add a C<0> at the end of the C<pack> list, to be packed with C<C>.
+(Attentive readers may have noticed that we could have omitted the 0.)
+
+For the reverse operation, we'll have to determine the number of items
+in the buffer before we can let C<unpack> rip it apart:
+
+   my $n = $env =~ tr/\0// - 1;
+   my %env = map( split( /=/, $_ ), unpack( "(Z*)$n", $env ) );
+
+The C<tr> counts the null bytes. The C<unpack> call returns a list of
+name-value pairs each of which is taken apart in the C<map> block. 
+
+
+=head2 Counting Repetitions
+
+Rather than storing a sentinel at the end of a data item (or a list of items),
+we could precede the data with a count. Again, we pack keys and values of
+a hash, preceding each with an unsigned short length count, and up front
+we store the number of pairs:
+
+   my $env = pack( 'S(S/A* S/A*)*', scalar keys( %Env ), %Env );
+
+This simplifies the reverse operation as the number of repetitions can be
+unpacked with the C</> code:
+
+   my %env = unpack( 'S/(S/A* S/A*)', $env );
+
+Note that this is one of the rare cases where you cannot use the same
+template for C<pack> and C<unpack> because C<pack> can't determine
+a repeat count for a C<()>-group.
+
+
+=head2 Intel HEX
+
+Intel HEX is a file format for representing binary data, mostly for
+programming various chips, as a text file. (See
+L<http://en.wikipedia.org/wiki/.hex> for a detailed description, and
+L<http://en.wikipedia.org/wiki/SREC_(file_format)> for the Motorola
+S-record format, which can be unravelled using the same technique.)
+Each line begins with a colon (':') and is followed by a sequence of
+hexadecimal characters, specifying a byte count I<n> (8 bit),
+an address (16 bit, big endian), a record type (8 bit), I<n> data bytes
+and a checksum (8 bit) computed as the least significant byte of the two's
+complement sum of the preceding bytes. Example: C<:0300300002337A1E>.
+
+The first step of processing such a line is the conversion, to binary,
+of the hexadecimal data, to obtain the four fields, while checking the
+checksum. No surprise here: we'll start with a simple C<pack> call to 
+convert everything to binary:
+
+   my $binrec = pack( 'H*', substr( $hexrec, 1 ) );
+
+The resulting byte sequence is most convenient for checking the checksum.
+Don't slow your program down with a for loop adding the C<ord> values
+of this string's bytes - the C<unpack> code C<%> is the thing to use
+for computing the 8-bit sum of all bytes, which must be equal to zero:
+
+   die unless unpack( "%8C*", $binrec ) == 0;
+
+Finally, let's get those four fields. By now, you shouldn't have any
+problems with the first three fields - but how can we use the byte count
+of the data in the first field as a length for the data field? Here
+the codes C<x> and C<X> come to the rescue, as they permit jumping
+back and forth in the string to unpack.
+
+   my( $addr, $type, $data ) = unpack( "x n C X4 C x3 /a", $bin ); 
+
+Code C<x> skips a byte, since we don't need the count yet. Code C<n> takes
+care of the 16-bit big-endian integer address, and C<C> unpacks the
+record type. Being at offset 4, where the data begins, we need the count.
+C<X4> brings us back to square one, which is the byte at offset 0.
+Now we pick up the count, and zoom forth to offset 4, where we are
+now fully furnished to extract the exact number of data bytes, leaving
+the trailing checksum byte alone.
+
+
+
+=head1 Packing and Unpacking C Structures
+
+In previous sections we have seen how to pack numbers and character
+strings. If it were not for a couple of snags we could conclude this
+section right away with the terse remark that C structures don't
+contain anything else, and therefore you already know all there is to it.
+Sorry, no: read on, please.
+
+If you have to deal with a lot of C structures, and don't want to
+hack all your template strings manually, you'll probably want to have
+a look at the CPAN module C<Convert::Binary::C>. Not only can it parse
+your C source directly, but it also has built-in support for all the
+odds and ends described further on in this section.
+
+=head2 The Alignment Pit
+
+In the consideration of speed against memory requirements the balance
+has been tilted in favor of faster execution. This has influenced the
+way C compilers allocate memory for structures: On architectures
+where a 16-bit or 32-bit operand can be moved faster between places in
+memory, or to or from a CPU register, if it is aligned at an even or 
+multiple-of-four or even at a multiple-of eight address, a C compiler
+will give you this speed benefit by stuffing extra bytes into structures.
+If you don't cross the C shoreline this is not likely to cause you any
+grief (although you should care when you design large data structures,
+or you want your code to be portable between architectures (you do want
+that, don't you?)).
+
+To see how this affects C<pack> and C<unpack>, we'll compare these two
+C structures:
+
+   typedef struct {
+     char     c1;
+     short    s;
+     char     c2;
+     long     l;
+   } gappy_t;
+
+   typedef struct {
+     long     l;
+     short    s;
+     char     c1;
+     char     c2;
+   } dense_t;
+
+Typically, a C compiler allocates 12 bytes to a C<gappy_t> variable, but
+requires only 8 bytes for a C<dense_t>. After investigating this further,
+we can draw memory maps, showing where the extra 4 bytes are hidden:
+
+   0           +4          +8          +12
+   +--+--+--+--+--+--+--+--+--+--+--+--+
+   |c1|xx|  s  |c2|xx|xx|xx|     l     |    xx = fill byte
+   +--+--+--+--+--+--+--+--+--+--+--+--+
+   gappy_t
+
+   0           +4          +8
+   +--+--+--+--+--+--+--+--+
+   |     l     |  h  |c1|c2|
+   +--+--+--+--+--+--+--+--+
+   dense_t
+
+And that's where the first quirk strikes: C<pack> and C<unpack>
+templates have to be stuffed with C<x> codes to get those extra fill bytes.
+
+The natural question: "Why can't Perl compensate for the gaps?" warrants
+an answer. One good reason is that C compilers might provide (non-ANSI)
+extensions permitting all sorts of fancy control over the way structures
+are aligned, even at the level of an individual structure field. And, if
+this were not enough, there is an insidious thing called C<union> where
+the amount of fill bytes cannot be derived from the alignment of the next
+item alone.
+
+OK, so let's bite the bullet. Here's one way to get the alignment right
+by inserting template codes C<x>, which don't take a corresponding item 
+from the list:
+
+  my $gappy = pack( 'cxs cxxx l!', $c1, $s, $c2, $l );
+
+Note the C<!> after C<l>: We want to make sure that we pack a long
+integer as it is compiled by our C compiler. And even now, it will only
+work for the platforms where the compiler aligns things as above.
+And somebody somewhere has a platform where it doesn't.
+[Probably a Cray, where C<short>s, C<int>s and C<long>s are all 8 bytes. :-)]
+
+Counting bytes and watching alignments in lengthy structures is bound to 
+be a drag. Isn't there a way we can create the template with a simple
+program? Here's a C program that does the trick:
+
+   #include <stdio.h>
+   #include <stddef.h>
+
+   typedef struct {
+     char     fc1;
+     short    fs;
+     char     fc2;
+     long     fl;
+   } gappy_t;
+
+   #define Pt(struct,field,tchar) \
+     printf( "@%d%s ", offsetof(struct,field), # tchar );
+
+   int main() {
+     Pt( gappy_t, fc1, c  );
+     Pt( gappy_t, fs,  s! );
+     Pt( gappy_t, fc2, c  );
+     Pt( gappy_t, fl,  l! );
+     printf( "\n" );
+   }
+
+The output line can be used as a template in a C<pack> or C<unpack> call:
+
+  my $gappy = pack( '@0c @2s! @4c @8l!', $c1, $s, $c2, $l );
+
+Gee, yet another template code - as if we hadn't plenty. But 
+C<@> saves our day by enabling us to specify the offset from the beginning
+of the pack buffer to the next item: This is just the value
+the C<offsetof> macro (defined in C<E<lt>stddef.hE<gt>>) returns when
+given a C<struct> type and one of its field names ("member-designator" in 
+C standardese).
+
+Neither using offsets nor adding C<x>'s to bridge the gaps is satisfactory.
+(Just imagine what happens if the structure changes.) What we really need
+is a way of saying "skip as many bytes as required to the next multiple of N".
+In fluent Templatese, you say this with C<x!N> where N is replaced by the
+appropriate value. Here's the next version of our struct packaging:
+
+  my $gappy = pack( 'c x!2 s c x!4 l!', $c1, $s, $c2, $l );
+
+That's certainly better, but we still have to know how long all the
+integers are, and portability is far away. Rather than C<2>,
+for instance, we want to say "however long a short is". But this can be
+done by enclosing the appropriate pack code in brackets: C<[s]>. So, here's
+the very best we can do:
+
+  my $gappy = pack( 'c x![s] s c x![l!] l!', $c1, $s, $c2, $l );
+
+
+=head2 Dealing with Endian-ness
+
+Now, imagine that we want to pack the data for a machine with a
+different byte-order. First, we'll have to figure out how big the data
+types on the target machine really are. Let's assume that the longs are
+32 bits wide and the shorts are 16 bits wide. You can then rewrite the
+template as:
+
+  my $gappy = pack( 'c x![s] s c x![l] l', $c1, $s, $c2, $l );
+
+If the target machine is little-endian, we could write:
+
+  my $gappy = pack( 'c x![s] s< c x![l] l<', $c1, $s, $c2, $l );
+
+This forces the short and the long members to be little-endian, and is
+just fine if you don't have too many struct members. But we could also
+use the byte-order modifier on a group and write the following:
+
+  my $gappy = pack( '( c x![s] s c x![l] l )<', $c1, $s, $c2, $l );
+
+This is not as short as before, but it makes it more obvious that we
+intend to have little-endian byte-order for a whole group, not only
+for individual template codes. It can also be more readable and easier
+to maintain.
+
+
+=head2 Alignment, Take 2
+
+I'm afraid that we're not quite through with the alignment catch yet. The
+hydra raises another ugly head when you pack arrays of structures:
+
+   typedef struct {
+     short    count;
+     char     glyph;
+   } cell_t;
+
+   typedef cell_t buffer_t[BUFLEN];
+
+Where's the catch? Padding is neither required before the first field C<count>,
+nor between this and the next field C<glyph>, so why can't we simply pack
+like this:
+
+   # something goes wrong here:
+   pack( 's!a' x @buffer,
+         map{ ( $_->{count}, $_->{glyph} ) } @buffer );
+
+This packs C<3*@buffer> bytes, but it turns out that the size of 
+C<buffer_t> is four times C<BUFLEN>! The moral of the story is that
+the required alignment of a structure or array is propagated to the
+next higher level where we have to consider padding I<at the end>
+of each component as well. Thus the correct template is:
+
+   pack( 's!ax' x @buffer,
+         map{ ( $_->{count}, $_->{glyph} ) } @buffer );
+
+=head2 Alignment, Take 3
+
+And even if you take all the above into account, ANSI still lets this:
+
+   typedef struct {
+     char     foo[2];
+   } foo_t;
+
+vary in size. The alignment constraint of the structure can be greater than
+any of its elements. [And if you think that this doesn't affect anything
+common, dismember the next cellphone that you see. Many have ARM cores, and
+the ARM structure rules make C<sizeof (foo_t)> == 4]
+
+=head2 Pointers for How to Use Them
+
+The title of this section indicates the second problem you may run into
+sooner or later when you pack C structures. If the function you intend
+to call expects a, say, C<void *> value, you I<cannot> simply take
+a reference to a Perl variable. (Although that value certainly is a
+memory address, it's not the address where the variable's contents are
+stored.)
+
+Template code C<P> promises to pack a "pointer to a fixed length string".
+Isn't this what we want? Let's try:
+
+    # allocate some storage and pack a pointer to it
+    my $memory = "\x00" x $size;
+    my $memptr = pack( 'P', $memory );
+
+But wait: doesn't C<pack> just return a sequence of bytes? How can we pass this
+string of bytes to some C code expecting a pointer which is, after all,
+nothing but a number? The answer is simple: We have to obtain the numeric
+address from the bytes returned by C<pack>.
+
+    my $ptr = unpack( 'L!', $memptr );
+
+Obviously this assumes that it is possible to typecast a pointer
+to an unsigned long and vice versa, which frequently works but should not
+be taken as a universal law. - Now that we have this pointer the next question
+is: How can we put it to good use? We need a call to some C function
+where a pointer is expected. The read(2) system call comes to mind:
+
+    ssize_t read(int fd, void *buf, size_t count);
+
+After reading L<perlfunc> explaining how to use C<syscall> we can write
+this Perl function copying a file to standard output:
+
+    require 'syscall.ph'; # run h2ph to generate this file
+    sub cat($){
+        my $path = shift();
+        my $size = -s $path;
+        my $memory = "\x00" x $size;  # allocate some memory
+        my $ptr = unpack( 'L', pack( 'P', $memory ) );
+        open( F, $path ) || die( "$path: cannot open ($!)\n" );
+        my $fd = fileno(F);
+        my $res = syscall( &SYS_read, fileno(F), $ptr, $size );
+        print $memory;
+        close( F );
+    }
+
+This is neither a specimen of simplicity nor a paragon of portability but
+it illustrates the point: We are able to sneak behind the scenes and
+access Perl's otherwise well-guarded memory! (Important note: Perl's
+C<syscall> does I<not> require you to construct pointers in this roundabout
+way. You simply pass a string variable, and Perl forwards the address.) 
+
+How does C<unpack> with C<P> work? Imagine some pointer in the buffer
+about to be unpacked: If it isn't the null pointer (which will smartly
+produce the C<undef> value) we have a start address - but then what?
+Perl has no way of knowing how long this "fixed length string" is, so
+it's up to you to specify the actual size as an explicit length after C<P>.
+
+   my $mem = "abcdefghijklmn";
+   print unpack( 'P5', pack( 'P', $mem ) ); # prints "abcde"
+
+As a consequence, C<pack> ignores any number or C<*> after C<P>.
+
+
+Now that we have seen C<P> at work, we might as well give C<p> a whirl.
+Why do we need a second template code for packing pointers at all? The 
+answer lies behind the simple fact that an C<unpack> with C<p> promises
+a null-terminated string starting at the address taken from the buffer,
+and that implies a length for the data item to be returned:
+
+   my $buf = pack( 'p', "abc\x00efhijklmn" );
+   print unpack( 'p', $buf );    # prints "abc"
+
+
+
+Albeit this is apt to be confusing: As a consequence of the length being
+implied by the string's length, a number after pack code C<p> is a repeat
+count, not a length as after C<P>. 
+
+
+Using C<pack(..., $x)> with C<P> or C<p> to get the address where C<$x> is
+actually stored must be used with circumspection. Perl's internal machinery
+considers the relation between a variable and that address as its very own 
+private matter and doesn't really care that we have obtained a copy. Therefore:
+
+=over 4
+
+=item * 
+
+Do not use C<pack> with C<p> or C<P> to obtain the address of variable
+that's bound to go out of scope (and thereby freeing its memory) before you
+are done with using the memory at that address.
+
+=item * 
+
+Be very careful with Perl operations that change the value of the
+variable. Appending something to the variable, for instance, might require
+reallocation of its storage, leaving you with a pointer into no-man's land.
+
+=item * 
+
+Don't think that you can get the address of a Perl variable
+when it is stored as an integer or double number! C<pack('P', $x)> will
+force the variable's internal representation to string, just as if you
+had written something like C<$x .= ''>.
+
+=back
+
+It's safe, however, to P- or p-pack a string literal, because Perl simply
+allocates an anonymous variable.
+
+
+
+=head1 Pack Recipes
+
+Here are a collection of (possibly) useful canned recipes for C<pack>
+and C<unpack>:
+
+    # Convert IP address for socket functions
+    pack( "C4", split /\./, "123.4.5.6" ); 
+
+    # Count the bits in a chunk of memory (e.g. a select vector)
+    unpack( '%32b*', $mask );
+
+    # Determine the endianness of your system
+    $is_little_endian = unpack( 'c', pack( 's', 1 ) );
+    $is_big_endian = unpack( 'xc', pack( 's', 1 ) );
+
+    # Determine the number of bits in a native integer
+    $bits = unpack( '%32I!', ~0 );
+
+    # Prepare argument for the nanosleep system call
+    my $timespec = pack( 'L!L!', $secs, $nanosecs );
+
+For a simple memory dump we unpack some bytes into just as 
+many pairs of hex digits, and use C<map> to handle the traditional
+spacing - 16 bytes to a line:
+
+    my $i;
+    print map( ++$i % 16 ? "$_ " : "$_\n",
+               unpack( 'H2' x length( $mem ), $mem ) ),
+          length( $mem ) % 16 ? "\n" : '';
+
+
+=head1 Funnies Section
+
+    # Pulling digits out of nowhere...
+    print unpack( 'C', pack( 'x' ) ),
+          unpack( '%B*', pack( 'A' ) ),
+          unpack( 'H', pack( 'A' ) ),
+          unpack( 'A', unpack( 'C', pack( 'A' ) ) ), "\n";
+
+    # One for the road ;-)
+    my $advice = pack( 'all u can in a van' );
+
+
+=head1 Authors
+
+Simon Cozens and Wolfgang Laun.
+
diff --git a/lib/5.24.1/pod/perlperf.pod b/lib/5.24.1/pod/perlperf.pod
new file mode 100644
index 00000000..87d632f0
--- /dev/null
+++ b/lib/5.24.1/pod/perlperf.pod
@@ -0,0 +1,1190 @@
+=head1 NAME
+
+perlperf - Perl Performance and Optimization Techniques
+
+=head1 DESCRIPTION
+
+This is an introduction to the use of performance and optimization techniques
+which can be used with particular reference to perl programs.  While many perl
+developers have come from other languages, and can use their prior knowledge
+where appropriate, there are many other people who might benefit from a few
+perl specific pointers.  If you want the condensed version, perhaps the best
+advice comes from the renowned Japanese Samurai, Miyamoto Musashi, who said:
+
+ "Do Not Engage in Useless Activity"
+
+in 1645.
+
+=head1 OVERVIEW
+
+Perhaps the most common mistake programmers make is to attempt to optimize
+their code before a program actually does anything useful - this is a bad idea.
+There's no point in having an extremely fast program that doesn't work.  The
+first job is to get a program to I<correctly> do something B<useful>, (not to
+mention ensuring the test suite is fully functional), and only then to consider
+optimizing it.  Having decided to optimize existing working code, there are
+several simple but essential steps to consider which are intrinsic to any
+optimization process.
+
+=head2 ONE STEP SIDEWAYS
+
+Firstly, you need to establish a baseline time for the existing code, which
+timing needs to be reliable and repeatable.  You'll probably want to use the
+C<Benchmark> or C<Devel::NYTProf> modules, or something similar, for this step,
+or perhaps the Unix system C<time> utility, whichever is appropriate.  See the
+base of this document for a longer list of benchmarking and profiling modules,
+and recommended further reading.
+
+=head2 ONE STEP FORWARD
+
+Next, having examined the program for I<hot spots>, (places where the code
+seems to run slowly), change the code with the intention of making it run
+faster.  Using version control software, like C<subversion>, will ensure no
+changes are irreversible.  It's too easy to fiddle here and fiddle there -
+don't change too much at any one time or you might not discover which piece of
+code B<really> was the slow bit.
+
+=head2 ANOTHER STEP SIDEWAYS
+
+It's not enough to say: "that will make it run faster", you have to check it.
+Rerun the code under control of the benchmarking or profiling modules, from the
+first step above, and check that the new code executed the B<same task> in
+I<less time>.  Save your work and repeat...
+
+=head1 GENERAL GUIDELINES
+
+The critical thing when considering performance is to remember there is no such
+thing as a C<Golden Bullet>, which is why there are no rules, only guidelines.
+
+It is clear that inline code is going to be faster than subroutine or method
+calls, because there is less overhead, but this approach has the disadvantage
+of being less maintainable and comes at the cost of greater memory usage -
+there is no such thing as a free lunch.  If you are searching for an element in
+a list, it can be more efficient to store the data in a hash structure, and
+then simply look to see whether the key is defined, rather than to loop through
+the entire array using grep() for instance.  substr() may be (a lot) faster
+than grep() but not as flexible, so you have another trade-off to access.  Your
+code may contain a line which takes 0.01 of a second to execute which if you
+call it 1,000 times, quite likely in a program parsing even medium sized files
+for instance, you already have a 10 second delay, in just one single code
+location, and if you call that line 100,000 times, your entire program will
+slow down to an unbearable crawl.
+
+Using a subroutine as part of your sort is a powerful way to get exactly what
+you want, but will usually be slower than the built-in I<alphabetic> C<cmp> and
+I<numeric> C<E<lt>=E<gt>> sort operators.  It is possible to make multiple
+passes over your data, building indices to make the upcoming sort more
+efficient, and to use what is known as the C<OM> (Orcish Maneuver) to cache the
+sort keys in advance.  The cache lookup, while a good idea, can itself be a
+source of slowdown by enforcing a double pass over the data - once to setup the
+cache, and once to sort the data.  Using C<pack()> to extract the required sort
+key into a consistent string can be an efficient way to build a single string
+to compare, instead of using multiple sort keys, which makes it possible to use
+the standard, written in C<c> and fast, perl C<sort()> function on the output,
+and is the basis of the C<GRT> (Guttman Rossler Transform).  Some string
+combinations can slow the C<GRT> down, by just being too plain complex for its
+own good.
+
+For applications using database backends, the standard C<DBIx> namespace has
+tries to help with keeping things nippy, not least because it tries to I<not>
+query the database until the latest possible moment, but always read the docs
+which come with your choice of libraries.  Among the many issues facing
+developers dealing with databases should remain aware of is to always use
+C<SQL> placeholders and to consider pre-fetching data sets when this might
+prove advantageous.  Splitting up a large file by assigning multiple processes
+to parsing a single file, using say C<POE>, C<threads> or C<fork> can also be a
+useful way of optimizing your usage of the available C<CPU> resources, though
+this technique is fraught with concurrency issues and demands high attention to
+detail.
+
+Every case has a specific application and one or more exceptions, and there is
+no replacement for running a few tests and finding out which method works best
+for your particular environment, this is why writing optimal code is not an
+exact science, and why we love using Perl so much - TMTOWTDI.
+
+=head1 BENCHMARKS
+
+Here are a few examples to demonstrate usage of Perl's benchmarking tools.
+
+=head2  Assigning and Dereferencing Variables.
+
+I'm sure most of us have seen code which looks like, (or worse than), this:
+
+ if ( $obj->{_ref}->{_myscore} >= $obj->{_ref}->{_yourscore} ) {
+     ...
+
+This sort of code can be a real eyesore to read, as well as being very
+sensitive to typos, and it's much clearer to dereference the variable
+explicitly.  We're side-stepping the issue of working with object-oriented
+programming techniques to encapsulate variable access via methods, only
+accessible through an object.  Here we're just discussing the technical
+implementation of choice, and whether this has an effect on performance.  We
+can see whether this dereferencing operation, has any overhead by putting
+comparative code in a file and running a C<Benchmark> test.
+
+# dereference
+
+ #!/usr/bin/perl
+
+ use strict;
+ use warnings;
+
+ use Benchmark;
+
+ my $ref = {
+         'ref'   => {
+             _myscore    => '100 + 1',
+             _yourscore  => '102 - 1',
+         },
+ };
+
+ timethese(1000000, {
+         'direct'       => sub {
+           my $x = $ref->{ref}->{_myscore} . $ref->{ref}->{_yourscore} ;
+         },
+         'dereference'  => sub {
+             my $ref  = $ref->{ref};
+             my $myscore = $ref->{_myscore};
+             my $yourscore = $ref->{_yourscore};
+             my $x = $myscore . $yourscore;
+         },
+ });
+
+It's essential to run any timing measurements a sufficient number of times so
+the numbers settle on a numerical average, otherwise each run will naturally
+fluctuate due to variations in the environment, to reduce the effect of
+contention for C<CPU> resources and network bandwidth for instance.  Running
+the above code for one million iterations, we can take a look at the report
+output by the C<Benchmark> module, to see which approach is the most effective.
+
+ $> perl dereference
+
+ Benchmark: timing 1000000 iterations of dereference, direct...
+ dereference:  2 wallclock secs ( 1.59 usr +  0.00 sys =  1.59 CPU) @ 628930.82/s (n=1000000)
+     direct:  1 wallclock secs ( 1.20 usr +  0.00 sys =  1.20 CPU) @ 833333.33/s (n=1000000)
+
+The difference is clear to see and the dereferencing approach is slower.  While
+it managed to execute an average of 628,930 times a second during our test, the
+direct approach managed to run an additional 204,403 times, unfortunately.
+Unfortunately, because there are many examples of code written using the
+multiple layer direct variable access, and it's usually horrible.  It is,
+however, minusculy faster.  The question remains whether the minute gain is
+actually worth the eyestrain, or the loss of maintainability.
+
+=head2  Search and replace or tr
+
+If we have a string which needs to be modified, while a regex will almost
+always be much more flexible, C<tr>, an oft underused tool, can still be a
+useful.  One scenario might be replace all vowels with another character.  The
+regex solution might look like this:
+
+ $str =~ s/[aeiou]/x/g
+
+The C<tr> alternative might look like this:
+
+ $str =~ tr/aeiou/xxxxx/
+
+We can put that into a test file which we can run to check which approach is
+the fastest, using a global C<$STR> variable to assign to the C<my $str>
+variable so as to avoid perl trying to optimize any of the work away by
+noticing it's assigned only the once.
+
+# regex-transliterate
+
+ #!/usr/bin/perl
+
+ use strict;
+ use warnings;
+
+ use Benchmark;
+
+ my $STR = "$$-this and that";
+
+ timethese( 1000000, {
+ 'sr'  => sub { my $str = $STR; $str =~ s/[aeiou]/x/g; return $str; },
+ 'tr'  => sub { my $str = $STR; $str =~ tr/aeiou/xxxxx/; return $str; },
+ });
+
+Running the code gives us our results:
+
+ $> perl regex-transliterate
+
+ Benchmark: timing 1000000 iterations of sr, tr...
+         sr:  2 wallclock secs ( 1.19 usr +  0.00 sys =  1.19 CPU) @ 840336.13/s (n=1000000)
+         tr:  0 wallclock secs ( 0.49 usr +  0.00 sys =  0.49 CPU) @ 2040816.33/s (n=1000000)
+
+The C<tr> version is a clear winner.  One solution is flexible, the other is
+fast - and it's appropriately the programmer's choice which to use.
+
+Check the C<Benchmark> docs for further useful techniques.
+
+=head1 PROFILING TOOLS
+
+A slightly larger piece of code will provide something on which a profiler can
+produce more extensive reporting statistics.  This example uses the simplistic
+C<wordmatch> program which parses a given input file and spews out a short
+report on the contents.
+
+# wordmatch
+
+ #!/usr/bin/perl
+
+ use strict;
+ use warnings;
+
+ =head1 NAME
+
+ filewords - word analysis of input file
+
+ =head1 SYNOPSIS
+
+     filewords -f inputfilename [-d]
+
+ =head1 DESCRIPTION
+
+ This program parses the given filename, specified with C<-f>, and
+ displays a simple analysis of the words found therein.  Use the C<-d>
+ switch to enable debugging messages.
+
+ =cut
+
+ use FileHandle;
+ use Getopt::Long;
+
+ my $debug   =  0;
+ my $file    = '';
+
+ my $result = GetOptions (
+     'debug'         => \$debug,
+     'file=s'        => \$file,
+ );
+ die("invalid args") unless $result;
+
+ unless ( -f $file ) {
+     die("Usage: $0 -f filename [-d]");
+ }
+ my $FH = FileHandle->new("< $file")
+                               or die("unable to open file($file): $!");
+
+ my $i_LINES = 0;
+ my $i_WORDS = 0;
+ my %count   = ();
+
+ my @lines = <$FH>;
+ foreach my $line ( @lines ) {
+     $i_LINES++;
+     $line =~ s/\n//;
+     my @words = split(/ +/, $line);
+     my $i_words = scalar(@words);
+     $i_WORDS = $i_WORDS + $i_words;
+     debug("line: $i_LINES supplying $i_words words: @words");
+     my $i_word = 0;
+     foreach my $word ( @words ) {
+         $i_word++;
+         $count{$i_LINES}{spec} += matches($i_word, $word,
+                                           '[^a-zA-Z0-9]');
+         $count{$i_LINES}{only} += matches($i_word, $word,
+                                           '^[^a-zA-Z0-9]+$');
+         $count{$i_LINES}{cons} += matches($i_word, $word,
+                                     '^[(?i:bcdfghjklmnpqrstvwxyz)]+$');
+         $count{$i_LINES}{vows} += matches($i_word, $word,
+                                           '^[(?i:aeiou)]+$');
+         $count{$i_LINES}{caps} += matches($i_word, $word,
+                                           '^[(A-Z)]+$');
+     }
+ }
+
+ print report( %count );
+
+ sub matches {
+     my $i_wd  = shift;
+     my $word  = shift;
+     my $regex = shift;
+     my $has = 0;
+
+     if ( $word =~ /($regex)/ ) {
+         $has++ if $1;
+     }
+
+     debug( "word: $i_wd "
+           . ($has ? 'matches' : 'does not match')
+           . " chars: /$regex/");
+
+     return $has;
+ }
+
+ sub report {
+     my %report = @_;
+     my %rep;
+
+     foreach my $line ( keys %report ) {
+         foreach my $key ( keys %{ $report{$line} } ) {
+             $rep{$key} += $report{$line}{$key};
+         }
+     }
+
+     my $report = qq|
+ $0 report for $file:
+ lines in file: $i_LINES
+ words in file: $i_WORDS
+ words with special (non-word) characters: $i_spec
+ words with only special (non-word) characters: $i_only
+ words with only consonants: $i_cons
+ words with only capital letters: $i_caps
+ words with only vowels: $i_vows
+ |;
+
+     return $report;
+ }
+
+ sub debug {
+     my $message = shift;
+
+     if ( $debug ) {
+         print STDERR "DBG: $message\n";
+     }
+ }
+
+ exit 0;
+
+=head2 Devel::DProf
+
+This venerable module has been the de-facto standard for Perl code profiling
+for more than a decade, but has been replaced by a number of other modules
+which have brought us back to the 21st century.  Although you're recommended to
+evaluate your tool from the several mentioned here and from the CPAN list at
+the base of this document, (and currently L<Devel::NYTProf> seems to be the
+weapon of choice - see below), we'll take a quick look at the output from
+L<Devel::DProf> first, to set a baseline for Perl profiling tools.  Run the
+above program under the control of C<Devel::DProf> by using the C<-d> switch on
+the command-line.
+
+ $> perl -d:DProf wordmatch -f perl5db.pl
+
+ <...multiple lines snipped...>
+
+ wordmatch report for perl5db.pl:
+ lines in file: 9428
+ words in file: 50243
+ words with special (non-word) characters: 20480
+ words with only special (non-word) characters: 7790
+ words with only consonants: 4801
+ words with only capital letters: 1316
+ words with only vowels: 1701
+
+C<Devel::DProf> produces a special file, called F<tmon.out> by default, and
+this file is read by the C<dprofpp> program, which is already installed as part
+of the C<Devel::DProf> distribution.  If you call C<dprofpp> with no options,
+it will read the F<tmon.out> file in the current directory and produce a human
+readable statistics report of the run of your program.  Note that this may take
+a little time.
+
+ $> dprofpp
+
+ Total Elapsed Time = 2.951677 Seconds
+   User+System Time = 2.871677 Seconds
+ Exclusive Times
+ %Time ExclSec CumulS #Calls sec/call Csec/c  Name
+  102.   2.945  3.003 251215   0.0000 0.0000  main::matches
+  2.40   0.069  0.069 260643   0.0000 0.0000  main::debug
+  1.74   0.050  0.050      1   0.0500 0.0500  main::report
+  1.04   0.030  0.049      4   0.0075 0.0123  main::BEGIN
+  0.35   0.010  0.010      3   0.0033 0.0033  Exporter::as_heavy
+  0.35   0.010  0.010      7   0.0014 0.0014  IO::File::BEGIN
+  0.00       - -0.000      1        -      -  Getopt::Long::FindOption
+  0.00       - -0.000      1        -      -  Symbol::BEGIN
+  0.00       - -0.000      1        -      -  Fcntl::BEGIN
+  0.00       - -0.000      1        -      -  Fcntl::bootstrap
+  0.00       - -0.000      1        -      -  warnings::BEGIN
+  0.00       - -0.000      1        -      -  IO::bootstrap
+  0.00       - -0.000      1        -      -  Getopt::Long::ConfigDefaults
+  0.00       - -0.000      1        -      -  Getopt::Long::Configure
+  0.00       - -0.000      1        -      -  Symbol::gensym
+
+C<dprofpp> will produce some quite detailed reporting on the activity of the
+C<wordmatch> program.  The wallclock, user and system, times are at the top of
+the analysis, and after this are the main columns defining which define the
+report.  Check the C<dprofpp> docs for details of the many options it supports.
+
+See also C<Apache::DProf> which hooks C<Devel::DProf> into C<mod_perl>.
+
+=head2 Devel::Profiler
+
+Let's take a look at the same program using a different profiler:
+C<Devel::Profiler>, a drop-in Perl-only replacement for C<Devel::DProf>.  The
+usage is very slightly different in that instead of using the special C<-d:>
+flag, you pull C<Devel::Profiler> in directly as a module using C<-M>.
+
+ $> perl -MDevel::Profiler wordmatch -f perl5db.pl
+
+ <...multiple lines snipped...>
+
+ wordmatch report for perl5db.pl:
+ lines in file: 9428
+ words in file: 50243
+ words with special (non-word) characters: 20480
+ words with only special (non-word) characters: 7790
+ words with only consonants: 4801
+ words with only capital letters: 1316
+ words with only vowels: 1701
+
+
+C<Devel::Profiler> generates a tmon.out file which is compatible with the
+C<dprofpp> program, thus saving the construction of a dedicated statistics
+reader program.  C<dprofpp> usage is therefore identical to the above example.
+
+ $> dprofpp
+
+ Total Elapsed Time =   20.984 Seconds
+   User+System Time =   19.981 Seconds
+ Exclusive Times
+ %Time ExclSec CumulS #Calls sec/call Csec/c  Name
+  49.0   9.792 14.509 251215   0.0000 0.0001  main::matches
+  24.4   4.887  4.887 260643   0.0000 0.0000  main::debug
+  0.25   0.049  0.049      1   0.0490 0.0490  main::report
+  0.00   0.000  0.000      1   0.0000 0.0000  Getopt::Long::GetOptions
+  0.00   0.000  0.000      2   0.0000 0.0000  Getopt::Long::ParseOptionSpec
+  0.00   0.000  0.000      1   0.0000 0.0000  Getopt::Long::FindOption
+  0.00   0.000  0.000      1   0.0000 0.0000  IO::File::new
+  0.00   0.000  0.000      1   0.0000 0.0000  IO::Handle::new
+  0.00   0.000  0.000      1   0.0000 0.0000  Symbol::gensym
+  0.00   0.000  0.000      1   0.0000 0.0000  IO::File::open
+
+Interestingly we get slightly different results, which is mostly because the
+algorithm which generates the report is different, even though the output file
+format was allegedly identical.  The elapsed, user and system times are clearly
+showing the time it took for C<Devel::Profiler> to execute its own run, but
+the column listings feel more accurate somehow than the ones we had earlier
+from C<Devel::DProf>.  The 102% figure has disappeared, for example.  This is
+where we have to use the tools at our disposal, and recognise their pros and
+cons, before using them.  Interestingly, the numbers of calls for each
+subroutine are identical in the two reports, it's the percentages which differ.
+As the author of C<Devel::Proviler> writes:
+
+ ...running HTML::Template's test suite under Devel::DProf shows
+ output() taking NO time but Devel::Profiler shows around 10% of the
+ time is in output().  I don't know which to trust but my gut tells me
+ something is wrong with Devel::DProf.  HTML::Template::output() is a
+ big routine that's called for every test. Either way, something needs
+ fixing.
+
+YMMV.
+
+See also C<Devel::Apache::Profiler> which hooks C<Devel::Profiler> into C<mod_perl>.
+
+=head2 Devel::SmallProf
+
+The C<Devel::SmallProf> profiler examines the runtime of your Perl program and
+produces a line-by-line listing to show how many times each line was called,
+and how long each line took to execute.  It is called by supplying the familiar
+C<-d> flag to Perl at runtime.
+
+ $> perl -d:SmallProf wordmatch -f perl5db.pl
+
+ <...multiple lines snipped...>
+
+ wordmatch report for perl5db.pl:
+ lines in file: 9428
+ words in file: 50243
+ words with special (non-word) characters: 20480
+ words with only special (non-word) characters: 7790
+ words with only consonants: 4801
+ words with only capital letters: 1316
+ words with only vowels: 1701
+
+C<Devel::SmallProf> writes it's output into a file called F<smallprof.out>, by
+default.  The format of the file looks like this:
+
+ <num> <time> <ctime> <line>:<text>
+
+When the program has terminated, the output may be examined and sorted using
+any standard text filtering utilities.  Something like the following may be
+sufficient:
+
+ $> cat smallprof.out | grep \d*: | sort -k3 | tac | head -n20
+
+ 251215   1.65674   7.68000    75: if ( $word =~ /($regex)/ ) {
+ 251215   0.03264   4.40000    79: debug("word: $i_wd ".($has ? 'matches' :
+ 251215   0.02693   4.10000    81: return $has;
+ 260643   0.02841   4.07000   128: if ( $debug ) {
+ 260643   0.02601   4.04000   126: my $message = shift;
+ 251215   0.02641   3.91000    73: my $has = 0;
+ 251215   0.03311   3.71000    70: my $i_wd  = shift;
+ 251215   0.02699   3.69000    72: my $regex = shift;
+ 251215   0.02766   3.68000    71: my $word  = shift;
+  50243   0.59726   1.00000    59:  $count{$i_LINES}{cons} =
+  50243   0.48175   0.92000    61:  $count{$i_LINES}{spec} =
+  50243   0.00644   0.89000    56:  my $i_cons = matches($i_word, $word,
+  50243   0.48837   0.88000    63:  $count{$i_LINES}{caps} =
+  50243   0.00516   0.88000    58:  my $i_caps = matches($i_word, $word, '^[(A-
+  50243   0.00631   0.81000    54:  my $i_spec = matches($i_word, $word, '[^a-
+  50243   0.00496   0.80000    57:  my $i_vows = matches($i_word, $word,
+  50243   0.00688   0.80000    53:  $i_word++;
+  50243   0.48469   0.79000    62:  $count{$i_LINES}{only} =
+  50243   0.48928   0.77000    60:  $count{$i_LINES}{vows} =
+  50243   0.00683   0.75000    55:  my $i_only = matches($i_word, $word, '^[^a-
+
+You can immediately see a slightly different focus to the subroutine profiling
+modules, and we start to see exactly which line of code is taking the most
+time.  That regex line is looking a bit suspicious, for example.  Remember that
+these tools are supposed to be used together, there is no single best way to
+profile your code, you need to use the best tools for the job.
+
+See also C<Apache::SmallProf> which hooks C<Devel::SmallProf> into C<mod_perl>.
+
+=head2 Devel::FastProf
+
+C<Devel::FastProf> is another Perl line profiler.  This was written with a view
+to getting a faster line profiler, than is possible with for example
+C<Devel::SmallProf>, because it's written in C<C>.  To use C<Devel::FastProf>,
+supply the C<-d> argument to Perl:
+
+ $> perl -d:FastProf wordmatch -f perl5db.pl
+
+ <...multiple lines snipped...>
+
+ wordmatch report for perl5db.pl:
+ lines in file: 9428
+ words in file: 50243
+ words with special (non-word) characters: 20480
+ words with only special (non-word) characters: 7790
+ words with only consonants: 4801
+ words with only capital letters: 1316
+ words with only vowels: 1701
+
+C<Devel::FastProf> writes statistics to the file F<fastprof.out> in the current
+directory.  The output file, which can be specified, can be interpreted by using
+the C<fprofpp> command-line program.
+
+ $> fprofpp | head -n20
+
+ # fprofpp output format is:
+ # filename:line time count: source
+ wordmatch:75 3.93338 251215: if ( $word =~ /($regex)/ ) {
+ wordmatch:79 1.77774 251215: debug("word: $i_wd ".($has ? 'matches' : 'does not match')." chars: /$regex/");
+ wordmatch:81 1.47604 251215: return $has;
+ wordmatch:126 1.43441 260643: my $message = shift;
+ wordmatch:128 1.42156 260643: if ( $debug ) {
+ wordmatch:70 1.36824 251215: my $i_wd  = shift;
+ wordmatch:71 1.36739 251215: my $word  = shift;
+ wordmatch:72 1.35939 251215: my $regex = shift;
+
+Straightaway we can see that the number of times each line has been called is
+identical to the C<Devel::SmallProf> output, and the sequence is only very
+slightly different based on the ordering of the amount of time each line took
+to execute, C<if ( $debug ) { > and C<my $message = shift;>, for example.  The
+differences in the actual times recorded might be in the algorithm used
+internally, or it could be due to system resource limitations or contention.
+
+See also the L<DBIx::Profile> which will profile database queries running
+under the C<DBIx::*> namespace.
+
+=head2 Devel::NYTProf
+
+C<Devel::NYTProf> is the B<next generation> of Perl code profiler, fixing many
+shortcomings in other tools and implementing many cool features.  First of all it
+can be used as either a I<line> profiler, a I<block> or a I<subroutine>
+profiler, all at once.  It can also use sub-microsecond (100ns) resolution on
+systems which provide C<clock_gettime()>.  It can be started and stopped even
+by the program being profiled.  It's a one-line entry to profile C<mod_perl>
+applications.  It's written in C<c> and is probably the fastest profiler
+available for Perl.  The list of coolness just goes on.  Enough of that, let's
+see how to it works - just use the familiar C<-d> switch to plug it in and run
+the code.
+
+ $> perl -d:NYTProf wordmatch -f perl5db.pl
+
+ wordmatch report for perl5db.pl:
+ lines in file: 9427
+ words in file: 50243
+ words with special (non-word) characters: 20480
+ words with only special (non-word) characters: 7790
+ words with only consonants: 4801
+ words with only capital letters: 1316
+ words with only vowels: 1701
+
+C<NYTProf> will generate a report database into the file F<nytprof.out> by
+default.  Human readable reports can be generated from here by using the
+supplied C<nytprofhtml> (HTML output) and C<nytprofcsv> (CSV output) programs.
+We've used the Unix system C<html2text> utility to convert the
+F<nytprof/index.html> file for convenience here.
+
+ $> html2text nytprof/index.html
+
+ Performance Profile Index
+ For wordmatch
+   Run on Fri Sep 26 13:46:39 2008
+ Reported on Fri Sep 26 13:47:23 2008
+
+          Top 15 Subroutines -- ordered by exclusive time
+ |Calls |P |F |Inclusive|Exclusive|Subroutine                          |
+ |      |  |  |Time     |Time     |                                    |
+ |251215|5 |1 |13.09263 |10.47692 |main::              |matches        |
+ |260642|2 |1 |2.71199  |2.71199  |main::              |debug          |
+ |1     |1 |1 |0.21404  |0.21404  |main::              |report         |
+ |2     |2 |2 |0.00511  |0.00511  |XSLoader::          |load (xsub)    |
+ |14    |14|7 |0.00304  |0.00298  |Exporter::          |import         |
+ |3     |1 |1 |0.00265  |0.00254  |Exporter::          |as_heavy       |
+ |10    |10|4 |0.00140  |0.00140  |vars::              |import         |
+ |13    |13|1 |0.00129  |0.00109  |constant::          |import         |
+ |1     |1 |1 |0.00360  |0.00096  |FileHandle::        |import         |
+ |3     |3 |3 |0.00086  |0.00074  |warnings::register::|import         |
+ |9     |3 |1 |0.00036  |0.00036  |strict::            |bits           |
+ |13    |13|13|0.00032  |0.00029  |strict::            |import         |
+ |2     |2 |2 |0.00020  |0.00020  |warnings::          |import         |
+ |2     |1 |1 |0.00020  |0.00020  |Getopt::Long::      |ParseOptionSpec|
+ |7     |7 |6 |0.00043  |0.00020  |strict::            |unimport       |
+
+ For more information see the full list of 189 subroutines.
+
+The first part of the report already shows the critical information regarding
+which subroutines are using the most time.  The next gives some statistics
+about the source files profiled.
+
+         Source Code Files -- ordered by exclusive time then name
+ |Stmts  |Exclusive|Avg.   |Reports                     |Source File         |
+ |       |Time     |       |                            |                    |
+ |2699761|15.66654 |6e-06  |line   .    block   .    sub|wordmatch           |
+ |35     |0.02187  |0.00062|line   .    block   .    sub|IO/Handle.pm        |
+ |274    |0.01525  |0.00006|line   .    block   .    sub|Getopt/Long.pm      |
+ |20     |0.00585  |0.00029|line   .    block   .    sub|Fcntl.pm            |
+ |128    |0.00340  |0.00003|line   .    block   .    sub|Exporter/Heavy.pm   |
+ |42     |0.00332  |0.00008|line   .    block   .    sub|IO/File.pm          |
+ |261    |0.00308  |0.00001|line   .    block   .    sub|Exporter.pm         |
+ |323    |0.00248  |8e-06  |line   .    block   .    sub|constant.pm         |
+ |12     |0.00246  |0.00021|line   .    block   .    sub|File/Spec/Unix.pm   |
+ |191    |0.00240  |0.00001|line   .    block   .    sub|vars.pm             |
+ |77     |0.00201  |0.00003|line   .    block   .    sub|FileHandle.pm       |
+ |12     |0.00198  |0.00016|line   .    block   .    sub|Carp.pm             |
+ |14     |0.00175  |0.00013|line   .    block   .    sub|Symbol.pm           |
+ |15     |0.00130  |0.00009|line   .    block   .    sub|IO.pm               |
+ |22     |0.00120  |0.00005|line   .    block   .    sub|IO/Seekable.pm      |
+ |198    |0.00085  |4e-06  |line   .    block   .    sub|warnings/register.pm|
+ |114    |0.00080  |7e-06  |line   .    block   .    sub|strict.pm           |
+ |47     |0.00068  |0.00001|line   .    block   .    sub|warnings.pm         |
+ |27     |0.00054  |0.00002|line   .    block   .    sub|overload.pm         |
+ |9      |0.00047  |0.00005|line   .    block   .    sub|SelectSaver.pm      |
+ |13     |0.00045  |0.00003|line   .    block   .    sub|File/Spec.pm        |
+ |2701595|15.73869 |       |Total                       |
+ |128647 |0.74946  |       |Average                     |
+ |       |0.00201  |0.00003|Median                      |
+ |       |0.00121  |0.00003|Deviation                   |
+
+ Report produced by the NYTProf 2.03 Perl profiler, developed by Tim Bunce and
+ Adam Kaplan.
+
+At this point, if you're using the I<html> report, you can click through the
+various links to bore down into each subroutine and each line of code.  Because
+we're using the text reporting here, and there's a whole directory full of
+reports built for each source file, we'll just display a part of the
+corresponding F<wordmatch-line.html> file, sufficient to give an idea of the
+sort of output you can expect from this cool tool.
+
+ $> html2text nytprof/wordmatch-line.html
+
+ Performance Profile -- -block view-.-line view-.-sub view-
+ For wordmatch
+ Run on Fri Sep 26 13:46:39 2008
+ Reported on Fri Sep 26 13:47:22 2008
+
+ File wordmatch
+
+  Subroutines -- ordered by exclusive time
+ |Calls |P|F|Inclusive|Exclusive|Subroutine    |
+ |      | | |Time     |Time     |              |
+ |251215|5|1|13.09263 |10.47692 |main::|matches|
+ |260642|2|1|2.71199  |2.71199  |main::|debug  |
+ |1     |1|1|0.21404  |0.21404  |main::|report |
+ |0     |0|0|0        |0        |main::|BEGIN  |
+
+
+ |Line|Stmts.|Exclusive|Avg.   |Code                                           |
+ |    |      |Time     |       |                                               |
+ |1   |      |         |       |#!/usr/bin/perl                                |
+ |2   |      |         |       |                                               |
+ |    |      |         |       |use strict;                                    |
+ |3   |3     |0.00086  |0.00029|# spent 0.00003s making 1 calls to strict::    |
+ |    |      |         |       |import                                         |
+ |    |      |         |       |use warnings;                                  |
+ |4   |3     |0.01563  |0.00521|# spent 0.00012s making 1 calls to warnings::  |
+ |    |      |         |       |import                                         |
+ |5   |      |         |       |                                               |
+ |6   |      |         |       |=head1 NAME                                    |
+ |7   |      |         |       |                                               |
+ |8   |      |         |       |filewords - word analysis of input file        |
+ <...snip...>
+ |62  |1     |0.00445  |0.00445|print report( %count );                        |
+ |    |      |         |       |# spent 0.21404s making 1 calls to main::report|
+ |63  |      |         |       |                                               |
+ |    |      |         |       |# spent 23.56955s (10.47692+2.61571) within    |
+ |    |      |         |       |main::matches which was called 251215 times,   |
+ |    |      |         |       |avg 0.00005s/call: # 50243 times               |
+ |    |      |         |       |(2.12134+0.51939s) at line 57 of wordmatch, avg|
+ |    |      |         |       |0.00005s/call # 50243 times (2.17735+0.54550s) |
+ |64  |      |         |       |at line 56 of wordmatch, avg 0.00005s/call #   |
+ |    |      |         |       |50243 times (2.10992+0.51797s) at line 58 of   |
+ |    |      |         |       |wordmatch, avg 0.00005s/call # 50243 times     |
+ |    |      |         |       |(2.12696+0.51598s) at line 55 of wordmatch, avg|
+ |    |      |         |       |0.00005s/call # 50243 times (1.94134+0.51687s) |
+ |    |      |         |       |at line 54 of wordmatch, avg 0.00005s/call     |
+ |    |      |         |       |sub matches {                                  |
+ <...snip...>
+ |102 |      |         |       |                                               |
+ |    |      |         |       |# spent 2.71199s within main::debug which was  |
+ |    |      |         |       |called 260642 times, avg 0.00001s/call: #      |
+ |    |      |         |       |251215 times (2.61571+0s) by main::matches at  |
+ |103 |      |         |       |line 74 of wordmatch, avg 0.00001s/call # 9427 |
+ |    |      |         |       |times (0.09628+0s) at line 50 of wordmatch, avg|
+ |    |      |         |       |0.00001s/call                                  |
+ |    |      |         |       |sub debug {                                    |
+ |104 |260642|0.58496  |2e-06  |my $message = shift;                           |
+ |105 |      |         |       |                                               |
+ |106 |260642|1.09917  |4e-06  |if ( $debug ) {                                |
+ |107 |      |         |       |print STDERR "DBG: $message\n";                |
+ |108 |      |         |       |}                                              |
+ |109 |      |         |       |}                                              |
+ |110 |      |         |       |                                               |
+ |111 |1     |0.01501  |0.01501|exit 0;                                        |
+ |112 |      |         |       |                                               |
+
+Oodles of very useful information in there - this seems to be the way forward.
+
+See also C<Devel::NYTProf::Apache> which hooks C<Devel::NYTProf> into C<mod_perl>.
+
+=head1  SORTING
+
+Perl modules are not the only tools a performance analyst has at their
+disposal, system tools like C<time> should not be overlooked as the next
+example shows, where we take a quick look at sorting.  Many books, theses and
+articles, have been written about efficient sorting algorithms, and this is not
+the place to repeat such work, there's several good sorting modules which
+deserve taking a look at too: C<Sort::Maker>, C<Sort::Key> spring to mind.
+However, it's still possible to make some observations on certain Perl specific
+interpretations on issues relating to sorting data sets and give an example or
+two with regard to how sorting large data volumes can effect performance.
+Firstly, an often overlooked point when sorting large amounts of data, one can
+attempt to reduce the data set to be dealt with and in many cases C<grep()> can
+be quite useful as a simple filter:
+
+ @data = sort grep { /$filter/ } @incoming
+
+A command such as this can vastly reduce the volume of material to actually
+sort through in the first place, and should not be too lightly disregarded
+purely on the basis of its simplicity.  The C<KISS> principle is too often
+overlooked - the next example uses the simple system C<time> utility to
+demonstrate.  Let's take a look at an actual example of sorting the contents of
+a large file, an apache logfile would do.  This one has over a quarter of a
+million lines, is 50M in size, and a snippet of it looks like this:
+
+# logfile
+
+ 188.209-65-87.adsl-dyn.isp.belgacom.be - - [08/Feb/2007:12:57:16 +0000] "GET /favicon.ico HTTP/1.1" 404 209 "-" "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)"
+ 188.209-65-87.adsl-dyn.isp.belgacom.be - - [08/Feb/2007:12:57:16 +0000] "GET /favicon.ico HTTP/1.1" 404 209 "-" "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)"
+ 151.56.71.198 - - [08/Feb/2007:12:57:41 +0000] "GET /suse-on-vaio.html HTTP/1.1" 200 2858 "http://www.linux-on-laptops.com/sony.html" "Mozilla/5.0 (Windows; U; Windows NT 5.2; en-US; rv:1.8.1.1) Gecko/20061204 Firefox/2.0.0.1"
+ 151.56.71.198 - - [08/Feb/2007:12:57:42 +0000] "GET /data/css HTTP/1.1" 404 206 "http://www.rfi.net/suse-on-vaio.html" "Mozilla/5.0 (Windows; U; Windows NT 5.2; en-US; rv:1.8.1.1) Gecko/20061204 Firefox/2.0.0.1"
+ 151.56.71.198 - - [08/Feb/2007:12:57:43 +0000] "GET /favicon.ico HTTP/1.1" 404 209 "-" "Mozilla/5.0 (Windows; U; Windows NT 5.2; en-US; rv:1.8.1.1) Gecko/20061204 Firefox/2.0.0.1"
+ 217.113.68.60 - - [08/Feb/2007:13:02:15 +0000] "GET / HTTP/1.1" 304 - "-" "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)"
+ 217.113.68.60 - - [08/Feb/2007:13:02:16 +0000] "GET /data/css HTTP/1.1" 404 206 "http://www.rfi.net/" "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)"
+ debora.to.isac.cnr.it - - [08/Feb/2007:13:03:58 +0000] "GET /suse-on-vaio.html HTTP/1.1" 200 2858 "http://www.linux-on-laptops.com/sony.html" "Mozilla/5.0 (compatible; Konqueror/3.4; Linux) KHTML/3.4.0 (like Gecko)"
+ debora.to.isac.cnr.it - - [08/Feb/2007:13:03:58 +0000] "GET /data/css HTTP/1.1" 404 206 "http://www.rfi.net/suse-on-vaio.html" "Mozilla/5.0 (compatible; Konqueror/3.4; Linux) KHTML/3.4.0 (like Gecko)"
+ debora.to.isac.cnr.it - - [08/Feb/2007:13:03:58 +0000] "GET /favicon.ico HTTP/1.1" 404 209 "-" "Mozilla/5.0 (compatible; Konqueror/3.4; Linux) KHTML/3.4.0 (like Gecko)"
+ 195.24.196.99 - - [08/Feb/2007:13:26:48 +0000] "GET / HTTP/1.0" 200 3309 "-" "Mozilla/5.0 (Windows; U; Windows NT 5.1; fr; rv:1.8.0.9) Gecko/20061206 Firefox/1.5.0.9"
+ 195.24.196.99 - - [08/Feb/2007:13:26:58 +0000] "GET /data/css HTTP/1.0" 404 206 "http://www.rfi.net/" "Mozilla/5.0 (Windows; U; Windows NT 5.1; fr; rv:1.8.0.9) Gecko/20061206 Firefox/1.5.0.9"
+ 195.24.196.99 - - [08/Feb/2007:13:26:59 +0000] "GET /favicon.ico HTTP/1.0" 404 209 "-" "Mozilla/5.0 (Windows; U; Windows NT 5.1; fr; rv:1.8.0.9) Gecko/20061206 Firefox/1.5.0.9"
+ crawl1.cosmixcorp.com - - [08/Feb/2007:13:27:57 +0000] "GET /robots.txt HTTP/1.0" 200 179 "-" "voyager/1.0"
+ crawl1.cosmixcorp.com - - [08/Feb/2007:13:28:25 +0000] "GET /links.html HTTP/1.0" 200 3413 "-" "voyager/1.0"
+ fhm226.internetdsl.tpnet.pl - - [08/Feb/2007:13:37:32 +0000] "GET /suse-on-vaio.html HTTP/1.1" 200 2858 "http://www.linux-on-laptops.com/sony.html" "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)"
+ fhm226.internetdsl.tpnet.pl - - [08/Feb/2007:13:37:34 +0000] "GET /data/css HTTP/1.1" 404 206 "http://www.rfi.net/suse-on-vaio.html" "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)"
+ 80.247.140.134 - - [08/Feb/2007:13:57:35 +0000] "GET / HTTP/1.1" 200 3309 "-" "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; .NET CLR 1.1.4322)"
+ 80.247.140.134 - - [08/Feb/2007:13:57:37 +0000] "GET /data/css HTTP/1.1" 404 206 "http://www.rfi.net" "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; .NET CLR 1.1.4322)"
+ pop.compuscan.co.za - - [08/Feb/2007:14:10:43 +0000] "GET / HTTP/1.1" 200 3309 "-" "www.clamav.net"
+ livebot-207-46-98-57.search.live.com - - [08/Feb/2007:14:12:04 +0000] "GET /robots.txt HTTP/1.0" 200 179 "-" "msnbot/1.0 (+http://search.msn.com/msnbot.htm)"
+ livebot-207-46-98-57.search.live.com - - [08/Feb/2007:14:12:04 +0000] "GET /html/oracle.html HTTP/1.0" 404 214 "-" "msnbot/1.0 (+http://search.msn.com/msnbot.htm)"
+ dslb-088-064-005-154.pools.arcor-ip.net - - [08/Feb/2007:14:12:15 +0000] "GET / HTTP/1.1" 200 3309 "-" "www.clamav.net"
+ 196.201.92.41 - - [08/Feb/2007:14:15:01 +0000] "GET / HTTP/1.1" 200 3309 "-" "MOT-L7/08.B7.DCR MIB/2.2.1 Profile/MIDP-2.0 Configuration/CLDC-1.1"
+
+The specific task here is to sort the 286,525 lines of this file by Response
+Code, Query, Browser, Referring Url, and lastly Date.  One solution might be to
+use the following code, which iterates over the files given on the
+command-line.
+
+# sort-apache-log
+
+ #!/usr/bin/perl -n
+
+ use strict;
+ use warnings;
+
+ my @data;
+
+ LINE:
+ while ( <> ) {
+     my $line = $_;
+     if (
+         $line =~ m/^(
+             ([\w\.\-]+)             # client
+             \s*-\s*-\s*\[
+             ([^]]+)                 # date
+             \]\s*"\w+\s*
+             (\S+)                   # query
+             [^"]+"\s*
+             (\d+)                   # status
+             \s+\S+\s+"[^"]*"\s+"
+             ([^"]*)                 # browser
+             "
+             .*
+         )$/x
+     ) {
+         my @chunks = split(/ +/, $line);
+         my $ip      = $1;
+         my $date    = $2;
+         my $query   = $3;
+         my $status  = $4;
+         my $browser = $5;
+
+         push(@data, [$ip, $date, $query, $status, $browser, $line]);
+     }
+ }
+
+ my @sorted = sort {
+     $a->[3] cmp $b->[3]
+             ||
+     $a->[2] cmp $b->[2]
+             ||
+     $a->[0] cmp $b->[0]
+             ||
+     $a->[1] cmp $b->[1]
+             ||
+     $a->[4] cmp $b->[4]
+ } @data;
+
+ foreach my $data ( @sorted ) {
+     print $data->[5];
+ }
+
+ exit 0;
+
+When running this program, redirect C<STDOUT> so it is possible to check the
+output is correct from following test runs and use the system C<time> utility
+to check the overall runtime.
+
+ $> time ./sort-apache-log logfile > out-sort
+
+ real    0m17.371s
+ user    0m15.757s
+ sys     0m0.592s
+
+The program took just over 17 wallclock seconds to run.  Note the different
+values C<time> outputs, it's important to always use the same one, and to not
+confuse what each one means.
+
+=over 4
+
+=item Elapsed Real Time
+
+The overall, or wallclock, time between when C<time> was called, and when it
+terminates.  The elapsed time includes both user and system times, and time
+spent waiting for other users and processes on the system.  Inevitably, this is
+the most approximate of the measurements given.
+
+=item User CPU Time
+
+The user time is the amount of time the entire process spent on behalf of the
+user on this system executing this program.
+
+=item System CPU Time
+
+The system time is the amount of time the kernel itself spent executing
+routines, or system calls, on behalf of this process user.
+
+=back
+
+Running this same process as a C<Schwarzian Transform> it is possible to
+eliminate the input and output arrays for storing all the data, and work on the
+input directly as it arrives too.  Otherwise, the code looks fairly similar:
+
+# sort-apache-log-schwarzian
+
+ #!/usr/bin/perl -n
+
+ use strict;
+ use warnings;
+
+ print
+
+     map $_->[0] =>
+
+     sort {
+         $a->[4] cmp $b->[4]
+                 ||
+         $a->[3] cmp $b->[3]
+                 ||
+         $a->[1] cmp $b->[1]
+                 ||
+         $a->[2] cmp $b->[2]
+                 ||
+         $a->[5] cmp $b->[5]
+     }
+     map  [ $_, m/^(
+         ([\w\.\-]+)             # client
+         \s*-\s*-\s*\[
+         ([^]]+)                 # date
+         \]\s*"\w+\s*
+         (\S+)                   # query
+         [^"]+"\s*
+         (\d+)                   # status
+         \s+\S+\s+"[^"]*"\s+"
+         ([^"]*)                 # browser
+         "
+         .*
+     )$/xo ]
+
+     => <>;
+
+ exit 0;
+
+Run the new code against the same logfile, as above, to check the new time.
+
+ $> time ./sort-apache-log-schwarzian logfile > out-schwarz
+
+ real    0m9.664s
+ user    0m8.873s
+ sys     0m0.704s
+
+The time has been cut in half, which is a respectable speed improvement by any
+standard.  Naturally, it is important to check the output is consistent with
+the first program run, this is where the Unix system C<cksum> utility comes in.
+
+ $> cksum out-sort out-schwarz
+ 3044173777 52029194 out-sort
+ 3044173777 52029194 out-schwarz
+
+BTW. Beware too of pressure from managers who see you speed a program up by 50%
+of the runtime once, only to get a request one month later to do the same again
+(true story) - you'll just have to point out you're only human, even if you are a
+Perl programmer, and you'll see what you can do...
+
+=head1 LOGGING
+
+An essential part of any good development process is appropriate error handling
+with appropriately informative messages, however there exists a school of
+thought which suggests that log files should be I<chatty>, as if the chain of
+unbroken output somehow ensures the survival of the program.  If speed is in
+any way an issue, this approach is wrong.
+
+A common sight is code which looks something like this:
+
+ logger->debug( "A logging message via process-id: $$ INC: "
+                                                       . Dumper(\%INC) )
+
+The problem is that this code will always be parsed and executed, even when the
+debug level set in the logging configuration file is zero.  Once the debug()
+subroutine has been entered, and the internal C<$debug> variable confirmed to
+be zero, for example, the message which has been sent in will be discarded and
+the program will continue.  In the example given though, the C<\%INC> hash will
+already have been dumped, and the message string constructed, all of which work
+could be bypassed by a debug variable at the statement level, like this:
+
+ logger->debug( "A logging message via process-id: $$ INC: "
+                                            . Dumper(\%INC) ) if $DEBUG;
+
+This effect can be demonstrated by setting up a test script with both forms,
+including a C<debug()> subroutine to emulate typical C<logger()> functionality.
+
+# ifdebug
+
+ #!/usr/bin/perl
+
+ use strict;
+ use warnings;
+
+ use Benchmark;
+ use Data::Dumper;
+ my $DEBUG = 0;
+
+ sub debug {
+     my $msg = shift;
+
+     if ( $DEBUG ) {
+         print "DEBUG: $msg\n";
+     }
+ };
+
+ timethese(100000, {
+         'debug'       => sub {
+             debug( "A $0 logging message via process-id: $$" . Dumper(\%INC) )
+         },
+         'ifdebug'  => sub {
+             debug( "A $0 logging message via process-id: $$" . Dumper(\%INC) ) if $DEBUG
+         },
+ });
+
+Let's see what C<Benchmark> makes of this:
+
+ $> perl ifdebug
+ Benchmark: timing 100000 iterations of constant, sub...
+    ifdebug:  0 wallclock secs ( 0.01 usr +  0.00 sys =  0.01 CPU) @ 10000000.00/s (n=100000)
+             (warning: too few iterations for a reliable count)
+      debug: 14 wallclock secs (13.18 usr +  0.04 sys = 13.22 CPU) @ 7564.30/s (n=100000)
+
+In the one case the code, which does exactly the same thing as far as
+outputting any debugging information is concerned, in other words nothing,
+takes 14 seconds, and in the other case the code takes one hundredth of a
+second.  Looks fairly definitive.  Use a C<$DEBUG> variable BEFORE you call the
+subroutine, rather than relying on the smart functionality inside it.
+
+=head2  Logging if DEBUG (constant)
+
+It's possible to take the previous idea a little further, by using a compile
+time C<DEBUG> constant.
+
+# ifdebug-constant
+
+ #!/usr/bin/perl
+
+ use strict;
+ use warnings;
+
+ use Benchmark;
+ use Data::Dumper;
+ use constant
+     DEBUG => 0
+ ;
+
+ sub debug {
+     if ( DEBUG ) {
+         my $msg = shift;
+         print "DEBUG: $msg\n";
+     }
+ };
+
+ timethese(100000, {
+         'debug'       => sub {
+             debug( "A $0 logging message via process-id: $$" . Dumper(\%INC) )
+         },
+         'constant'  => sub {
+             debug( "A $0 logging message via process-id: $$" . Dumper(\%INC) ) if DEBUG
+         },
+ });
+
+Running this program produces the following output:
+
+ $> perl ifdebug-constant
+ Benchmark: timing 100000 iterations of constant, sub...
+   constant:  0 wallclock secs (-0.00 usr +  0.00 sys = -0.00 CPU) @ -7205759403792793600000.00/s (n=100000)
+             (warning: too few iterations for a reliable count)
+        sub: 14 wallclock secs (13.09 usr +  0.00 sys = 13.09 CPU) @ 7639.42/s (n=100000)
+
+The C<DEBUG> constant wipes the floor with even the C<$debug> variable,
+clocking in at minus zero seconds, and generates a "warning: too few iterations
+for a reliable count" message into the bargain.  To see what is really going
+on, and why we had too few iterations when we thought we asked for 100000, we
+can use the very useful C<B::Deparse> to inspect the new code:
+
+ $> perl -MO=Deparse ifdebug-constant
+
+ use Benchmark;
+ use Data::Dumper;
+ use constant ('DEBUG', 0);
+ sub debug {
+     use warnings;
+     use strict 'refs';
+     0;
+ }
+ use warnings;
+ use strict 'refs';
+ timethese(100000, {'sub', sub {
+     debug "A $0 logging message via process-id: $$" . Dumper(\%INC);
+ }
+ , 'constant', sub {
+     0;
+ }
+ });
+ ifdebug-constant syntax OK
+
+The output shows the constant() subroutine we're testing being replaced with
+the value of the C<DEBUG> constant: zero.  The line to be tested has been
+completely optimized away, and you can't get much more efficient than that.
+
+=head1 POSTSCRIPT
+
+This document has provided several way to go about identifying hot-spots, and
+checking whether any modifications have improved the runtime of the code.
+
+As a final thought, remember that it's not (at the time of writing) possible to
+produce a useful program which will run in zero or negative time and this basic
+principle can be written as: I<useful programs are slow> by their very
+definition.  It is of course possible to write a nearly instantaneous program,
+but it's not going to do very much, here's a very efficient one:
+
+ $> perl -e 0
+
+Optimizing that any further is a job for C<p5p>.
+
+=head1 SEE ALSO
+
+Further reading can be found using the modules and links below.
+
+=head2 PERLDOCS
+
+For example: C<perldoc -f sort>.
+
+L<perlfaq4>.
+
+L<perlfork>, L<perlfunc>, L<perlretut>, L<perlthrtut>.
+
+L<threads>.
+
+=head2 MAN PAGES
+
+C<time>.
+
+=head2 MODULES
+
+It's not possible to individually showcase all the performance related code for
+Perl here, naturally, but here's a short list of modules from the CPAN which
+deserve further attention.
+
+ Apache::DProf
+ Apache::SmallProf
+ Benchmark
+ DBIx::Profile
+ Devel::AutoProfiler
+ Devel::DProf
+ Devel::DProfLB
+ Devel::FastProf
+ Devel::GraphVizProf
+ Devel::NYTProf
+ Devel::NYTProf::Apache
+ Devel::Profiler
+ Devel::Profile
+ Devel::Profit
+ Devel::SmallProf
+ Devel::WxProf
+ POE::Devel::Profiler
+ Sort::Key
+ Sort::Maker
+
+=head2 URLS
+
+Very useful online reference material:
+
+ http://www.ccl4.org/~nick/P/Fast_Enough/
+
+ http://www-128.ibm.com/developerworks/library/l-optperl.html
+
+ http://perlbuzz.com/2007/11/bind-output-variables-in-dbi-for-speed-and-safety.html
+
+ http://en.wikipedia.org/wiki/Performance_analysis
+
+ http://apache.perl.org/docs/1.0/guide/performance.html
+
+ http://perlgolf.sourceforge.net/
+
+ http://www.sysarch.com/Perl/sort_paper.html
+
+=head1 AUTHOR
+
+Richard Foley <richard.foley@rfi.net> Copyright (c) 2008
+
+=cut
diff --git a/lib/5.24.1/pod/perlplan9.pod b/lib/5.24.1/pod/perlplan9.pod
new file mode 100644
index 00000000..5e53c05b
--- /dev/null
+++ b/lib/5.24.1/pod/perlplan9.pod
@@ -0,0 +1,146 @@
+If you read this file _as_is_, just ignore the funny characters you see.
+It is written in the POD format (see pod/perlpod.pod) which is specially
+designed to be readable as is.
+
+=head1 NAME
+
+perlplan9 - Plan 9-specific documentation for Perl
+
+=head1 DESCRIPTION
+
+These are a few notes describing features peculiar to
+Plan 9 Perl. As such, it is not intended to be a replacement
+for the rest of the Perl 5 documentation (which is both 
+copious and excellent). If you have any questions to 
+which you can't find answers in these man pages, contact 
+Luther Huffman at lutherh@stratcom.com and we'll try to 
+answer them.
+
+=head2 Invoking Perl
+
+Perl is invoked from the command line as described in 
+L<perl>. Most perl scripts, however, do have a first line 
+such as "#!/usr/local/bin/perl". This is known as a shebang 
+(shell-bang) statement and tells the OS shell where to find 
+the perl interpreter. In Plan 9 Perl this statement should be 
+"#!/bin/perl" if you wish to be able to directly invoke the 
+script by its name.
+     Alternatively, you may invoke perl with the command "Perl"
+instead of "perl". This will produce Acme-friendly error
+messages of the form "filename:18".
+
+Some scripts, usually identified with a *.PL extension, are 
+self-configuring and are able to correctly create their own 
+shebang path from config information located in Plan 9 
+Perl. These you won't need to be worried about.
+
+=head2 What's in Plan 9 Perl
+
+Although Plan 9 Perl currently only  provides static 
+loading, it is built with a number of useful extensions. 
+These include Opcode, FileHandle, Fcntl, and POSIX. Expect 
+to see others (and DynaLoading!) in the future.
+
+=head2 What's not in Plan 9 Perl
+
+As mentioned previously, dynamic loading isn't currently 
+available nor is MakeMaker. Both are high-priority items.
+
+=head2 Perl5 Functions not currently supported in Plan 9 Perl
+
+Some, such as C<chown> and C<umask> aren't provided 
+because the concept does not exist within Plan 9. Others,
+such as some of the socket-related functions, simply
+haven't been written yet. Many in the latter category 
+may be supported in the future.
+
+The functions not currently implemented include:
+
+    chown, chroot, dbmclose, dbmopen, getsockopt, 
+    setsockopt, recvmsg, sendmsg, getnetbyname, 
+    getnetbyaddr, getnetent, getprotoent, getservent, 
+    sethostent, setnetent, setprotoent, setservent, 
+    endservent, endnetent, endprotoent, umask
+
+There may be several other functions that have undefined 
+behavior so this list shouldn't be considered complete.
+
+=head2 Signals in Plan 9 Perl
+
+For compatibility with perl scripts written for the Unix 
+environment, Plan 9 Perl uses the POSIX signal emulation
+provided in Plan 9's ANSI POSIX Environment (APE). Signal stacking
+isn't supported. The signals provided are:
+
+    SIGHUP, SIGINT, SIGQUIT, SIGILL, SIGABRT,
+    SIGFPE, SIGKILL, SIGSEGV, SIGPIPE, SIGPIPE, SIGALRM, 
+    SIGTERM, SIGUSR1, SIGUSR2, SIGCHLD, SIGCONT,
+    SIGSTOP, SIGTSTP, SIGTTIN, SIGTTOU
+
+=head1 COMPILING AND INSTALLING PERL ON PLAN 9
+
+WELCOME to Plan 9 Perl, brave soul!
+
+   This is a preliminary alpha version of Plan 9 Perl. Still to be
+implemented are MakeMaker and DynaLoader. Many perl commands are
+missing or currently behave in an inscrutable manner. These gaps will,
+with perseverance and a modicum of luck, be remedied in the near
+future.To install this software:
+
+1. Create the source directories and libraries for perl by running the
+plan9/setup.rc command (i.e., located in the plan9 subdirectory).
+Note: the setup routine assumes that you haven't dearchived these
+files into /sys/src/cmd/perl. After running setup.rc you may delete
+the copy of the source you originally detarred, as source code has now
+been installed in /sys/src/cmd/perl. If you plan on installing perl
+binaries for all architectures, run "setup.rc -a".
+
+2. After making sure that you have adequate privileges to build system
+software, from /sys/src/cmd/perl/5.00301 (adjust version
+appropriately) run:
+
+	mk install
+
+If you wish to install perl versions for all architectures (68020,
+mips, sparc and 386) run:
+
+	mk installall
+
+3. Wait. The build process will take a *long* time because perl
+bootstraps itself. A 75MHz Pentium, 16MB RAM machine takes roughly 30
+minutes to build the distribution from scratch.
+
+=head2 Installing Perl Documentation on Plan 9
+
+This perl distribution comes with a tremendous amount of
+documentation. To add these to the built-in manuals that come with
+Plan 9, from /sys/src/cmd/perl/5.00301 (adjust version appropriately)
+run:
+
+	mk man
+
+To begin your reading, start with:
+
+	man perl
+
+This is a good introduction and will direct you towards other man
+pages that may interest you.
+
+(Note: "mk man" may produce some extraneous noise. Fear not.)
+
+=head1 BUGS
+
+"As many as there are grains of sand on all the beaches of the 
+world . . ." - Carl Sagan
+
+=head1 Revision date
+
+This document was revised 09-October-1996 for Perl 5.003_7.
+
+=head1 AUTHOR
+
+Direct questions, comments, and the unlikely bug report (ahem) direct
+comments toward:
+
+Luther Huffman, lutherh@stratcom.com, 
+Strategic Computer Solutions, Inc.		
diff --git a/lib/5.24.1/pod/perlpod.pod b/lib/5.24.1/pod/perlpod.pod
new file mode 100644
index 00000000..41053afb
--- /dev/null
+++ b/lib/5.24.1/pod/perlpod.pod
@@ -0,0 +1,746 @@
+
+=for comment
+This document is in Pod format.  To read this, use a Pod formatter,
+like "perldoc perlpod".
+
+=head1 NAME
+X<POD> X<plain old documentation>
+
+perlpod - the Plain Old Documentation format
+
+=head1 DESCRIPTION
+
+Pod is a simple-to-use markup language used for writing documentation
+for Perl, Perl programs, and Perl modules.
+
+Translators are available for converting Pod to various formats
+like plain text, HTML, man pages, and more.
+
+Pod markup consists of three basic kinds of paragraphs:
+L<ordinary|/"Ordinary Paragraph">,
+L<verbatim|/"Verbatim Paragraph">, and 
+L<command|/"Command Paragraph">.
+
+
+=head2 Ordinary Paragraph
+X<POD, ordinary paragraph>
+
+Most paragraphs in your documentation will be ordinary blocks
+of text, like this one.  You can simply type in your text without
+any markup whatsoever, and with just a blank line before and
+after.  When it gets formatted, it will undergo minimal formatting, 
+like being rewrapped, probably put into a proportionally spaced
+font, and maybe even justified.
+
+You can use formatting codes in ordinary paragraphs, for B<bold>,
+I<italic>, C<code-style>, L<hyperlinks|perlfaq>, and more.  Such
+codes are explained in the "L<Formatting Codes|/"Formatting Codes">"
+section, below.
+
+
+=head2 Verbatim Paragraph
+X<POD, verbatim paragraph> X<verbatim>
+
+Verbatim paragraphs are usually used for presenting a codeblock or
+other text which does not require any special parsing or formatting,
+and which shouldn't be wrapped.
+
+A verbatim paragraph is distinguished by having its first character
+be a space or a tab.  (And commonly, all its lines begin with spaces
+and/or tabs.)  It should be reproduced exactly, with tabs assumed to
+be on 8-column boundaries.  There are no special formatting codes,
+so you can't italicize or anything like that.  A \ means \, and
+nothing else.
+
+
+=head2 Command Paragraph
+X<POD, command>
+
+A command paragraph is used for special treatment of whole chunks
+of text, usually as headings or parts of lists.
+
+All command paragraphs (which are typically only one line long) start
+with "=", followed by an identifier, followed by arbitrary text that
+the command can use however it pleases.  Currently recognized commands
+are
+
+    =pod
+    =head1 Heading Text
+    =head2 Heading Text
+    =head3 Heading Text
+    =head4 Heading Text
+    =over indentlevel
+    =item stuff
+    =back
+    =begin format
+    =end format
+    =for format text...
+    =encoding type
+    =cut
+
+To explain them each in detail:
+
+=over
+
+=item C<=head1 I<Heading Text>>
+X<=head1> X<=head2> X<=head3> X<=head4>
+X<head1> X<head2> X<head3> X<head4>
+
+=item C<=head2 I<Heading Text>>
+
+=item C<=head3 I<Heading Text>>
+
+=item C<=head4 I<Heading Text>>
+
+Head1 through head4 produce headings, head1 being the highest
+level.  The text in the rest of this paragraph is the content of the
+heading.  For example:
+
+  =head2 Object Attributes
+
+The text "Object Attributes" comprises the heading there.
+The text in these heading commands can use formatting codes, as seen here:
+
+  =head2 Possible Values for C<$/>
+
+Such commands are explained in the
+"L<Formatting Codes|/"Formatting Codes">" section, below.
+
+=item C<=over I<indentlevel>>
+X<=over> X<=item> X<=back> X<over> X<item> X<back>
+
+=item C<=item I<stuff...>>
+
+=item C<=back>
+
+Item, over, and back require a little more explanation:  "=over" starts
+a region specifically for the generation of a list using "=item"
+commands, or for indenting (groups of) normal paragraphs.  At the end
+of your list, use "=back" to end it.  The I<indentlevel> option to
+"=over" indicates how far over to indent, generally in ems (where
+one em is the width of an "M" in the document's base font) or roughly
+comparable units; if there is no I<indentlevel> option, it defaults
+to four.  (And some formatters may just ignore whatever I<indentlevel>
+you provide.)  In the I<stuff> in C<=item I<stuff...>>, you may
+use formatting codes, as seen here:
+
+  =item Using C<$|> to Control Buffering
+
+Such commands are explained in the
+"L<Formatting Codes|/"Formatting Codes">" section, below.
+
+Note also that there are some basic rules to using "=over" ...
+"=back" regions:
+
+=over
+
+=item *
+
+Don't use "=item"s outside of an "=over" ... "=back" region.
+
+=item *
+
+The first thing after the "=over" command should be an "=item", unless
+there aren't going to be any items at all in this "=over" ... "=back"
+region.
+
+=item *
+
+Don't put "=headI<n>" commands inside an "=over" ... "=back" region.
+
+=item *
+
+And perhaps most importantly, keep the items consistent: either use
+"=item *" for all of them, to produce bullets; or use "=item 1.",
+"=item 2.", etc., to produce numbered lists; or use "=item foo",
+"=item bar", etc.--namely, things that look nothing like bullets or
+numbers.
+
+If you start with bullets or numbers, stick with them, as
+formatters use the first "=item" type to decide how to format the
+list.
+
+=back
+
+=item C<=cut>
+X<=cut> X<cut>
+
+To end a Pod block, use a blank line,
+then a line beginning with "=cut", and a blank
+line after it.  This lets Perl (and the Pod formatter) know that
+this is where Perl code is resuming.  (The blank line before the "=cut"
+is not technically necessary, but many older Pod processors require it.)
+
+=item C<=pod>
+X<=pod> X<pod>
+
+The "=pod" command by itself doesn't do much of anything, but it
+signals to Perl (and Pod formatters) that a Pod block starts here.  A
+Pod block starts with I<any> command paragraph, so a "=pod" command is
+usually used just when you want to start a Pod block with an ordinary
+paragraph or a verbatim paragraph.  For example:
+
+  =item stuff()
+
+  This function does stuff.
+
+  =cut
+
+  sub stuff {
+    ...
+  }
+
+  =pod
+
+  Remember to check its return value, as in:
+
+    stuff() || die "Couldn't do stuff!";
+
+  =cut
+
+=item C<=begin I<formatname>>
+X<=begin> X<=end> X<=for> X<begin> X<end> X<for>
+
+=item C<=end I<formatname>>
+
+=item C<=for I<formatname> I<text...>>
+
+For, begin, and end will let you have regions of text/code/data that
+are not generally interpreted as normal Pod text, but are passed
+directly to particular formatters, or are otherwise special.  A
+formatter that can use that format will use the region, otherwise it
+will be completely ignored.
+
+A command "=begin I<formatname>", some paragraphs, and a
+command "=end I<formatname>", mean that the text/data in between
+is meant for formatters that understand the special format
+called I<formatname>.  For example,
+
+  =begin html
+
+  <hr> <img src="thang.png">
+  <p> This is a raw HTML paragraph </p>
+
+  =end html
+
+The command "=for I<formatname> I<text...>"
+specifies that the remainder of just this paragraph (starting
+right after I<formatname>) is in that special format.  
+
+  =for html <hr> <img src="thang.png">
+  <p> This is a raw HTML paragraph </p>
+
+This means the same thing as the above "=begin html" ... "=end html"
+region.
+
+That is, with "=for", you can have only one paragraph's worth
+of text (i.e., the text in "=foo targetname text..."), but with
+"=begin targetname" ... "=end targetname", you can have any amount
+of stuff in between.  (Note that there still must be a blank line
+after the "=begin" command and a blank line before the "=end"
+command.)
+
+Here are some examples of how to use these:
+
+  =begin html
+
+  <br>Figure 1.<br><IMG SRC="figure1.png"><br>
+
+  =end html
+
+  =begin text
+
+    ---------------
+    |  foo        |
+    |        bar  |
+    ---------------
+
+  ^^^^ Figure 1. ^^^^
+
+  =end text
+
+Some format names that formatters currently are known to accept
+include "roff", "man", "latex", "tex", "text", and "html".  (Some
+formatters will treat some of these as synonyms.)
+
+A format name of "comment" is common for just making notes (presumably
+to yourself) that won't appear in any formatted version of the Pod
+document:
+
+  =for comment
+  Make sure that all the available options are documented!
+
+Some I<formatnames> will require a leading colon (as in
+C<"=for :formatname">, or
+C<"=begin :formatname" ... "=end :formatname">),
+to signal that the text is not raw data, but instead I<is> Pod text
+(i.e., possibly containing formatting codes) that's just not for
+normal formatting (e.g., may not be a normal-use paragraph, but might
+be for formatting as a footnote).
+
+=item C<=encoding I<encodingname>>
+X<=encoding> X<encoding>
+
+This command is used for declaring the encoding of a document.  Most
+users won't need this; but if your encoding isn't US-ASCII,
+then put a C<=encoding I<encodingname>> command very early in the document so
+that pod formatters will know how to decode the document.  For
+I<encodingname>, use a name recognized by the L<Encode::Supported>
+module.  Some pod formatters may try to guess between a Latin-1 or
+CP-1252 versus
+UTF-8 encoding, but they may guess wrong.  It's best to be explicit if
+you use anything besides strict ASCII.  Examples:
+
+  =encoding latin1
+
+  =encoding utf8
+
+  =encoding koi8-r
+
+  =encoding ShiftJIS
+
+  =encoding big5
+
+C<=encoding> affects the whole document, and must occur only once.
+
+=back
+
+And don't forget, all commands but C<=encoding> last up
+until the end of its I<paragraph>, not its line.  So in the
+examples below, you can see that every command needs the blank
+line after it, to end its paragraph.  (And some older Pod translators
+may require the C<=encoding> line to have a following blank line as
+well, even though it should be legal to omit.)
+
+Some examples of lists include:
+
+  =over
+
+  =item *
+
+  First item
+
+  =item *
+
+  Second item
+
+  =back
+
+  =over
+
+  =item Foo()
+
+  Description of Foo function
+
+  =item Bar()
+
+  Description of Bar function
+
+  =back
+
+
+=head2 Formatting Codes
+X<POD, formatting code> X<formatting code>
+X<POD, interior sequence> X<interior sequence>
+
+In ordinary paragraphs and in some command paragraphs, various
+formatting codes (a.k.a. "interior sequences") can be used:
+
+=for comment
+ "interior sequences" is such an opaque term.
+ Prefer "formatting codes" instead.
+
+=over
+
+=item C<IE<lt>textE<gt>> -- italic text
+X<I> X<< IZ<><> >> X<POD, formatting code, italic> X<italic>
+
+Used for emphasis ("C<be IE<lt>careful!E<gt>>") and parameters
+("C<redo IE<lt>LABELE<gt>>")
+
+=item C<BE<lt>textE<gt>> -- bold text
+X<B> X<< BZ<><> >> X<POD, formatting code, bold> X<bold>
+
+Used for switches ("C<perl's BE<lt>-nE<gt> switch>"), programs
+("C<some systems provide a BE<lt>chfnE<gt> for that>"),
+emphasis ("C<be BE<lt>careful!E<gt>>"), and so on
+("C<and that feature is known as BE<lt>autovivificationE<gt>>").
+
+=item C<CE<lt>codeE<gt>> -- code text
+X<C> X<< CZ<><> >> X<POD, formatting code, code> X<code>
+
+Renders code in a typewriter font, or gives some other indication that
+this represents program text ("C<CE<lt>gmtime($^T)E<gt>>") or some other
+form of computerese ("C<CE<lt>drwxr-xr-xE<gt>>").
+
+=item C<LE<lt>nameE<gt>> -- a hyperlink
+X<L> X<< LZ<><> >> X<POD, formatting code, hyperlink> X<hyperlink>
+
+There are various syntaxes, listed below.  In the syntaxes given,
+C<text>, C<name>, and C<section> cannot contain the characters
+'/' and '|'; and any '<' or '>' should be matched.
+
+=over
+
+=item *
+
+C<LE<lt>nameE<gt>>
+
+Link to a Perl manual page (e.g., C<LE<lt>Net::PingE<gt>>).  Note
+that C<name> should not contain spaces.  This syntax
+is also occasionally used for references to Unix man pages, as in
+C<LE<lt>crontab(5)E<gt>>.
+
+=item *
+
+C<LE<lt>name/"sec"E<gt>> or C<LE<lt>name/secE<gt>>
+
+Link to a section in other manual page.  E.g.,
+C<LE<lt>perlsyn/"For Loops"E<gt>>
+
+=item *
+
+C<LE<lt>/"sec"E<gt>> or C<LE<lt>/secE<gt>>
+
+Link to a section in this manual page.  E.g.,
+C<LE<lt>/"Object Methods"E<gt>>
+
+=back
+
+A section is started by the named heading or item.  For
+example, C<LE<lt>perlvar/$.E<gt>> or C<LE<lt>perlvar/"$."E<gt>> both
+link to the section started by "C<=item $.>" in perlvar.  And
+C<LE<lt>perlsyn/For LoopsE<gt>> or C<LE<lt>perlsyn/"For Loops"E<gt>>
+both link to the section started by "C<=head2 For Loops>"
+in perlsyn.
+
+To control what text is used for display, you
+use "C<LE<lt>text|...E<gt>>", as in:
+
+=over
+
+=item *
+
+C<LE<lt>text|nameE<gt>>
+
+Link this text to that manual page.  E.g.,
+C<LE<lt>Perl Error Messages|perldiagE<gt>>
+
+=item *
+
+C<LE<lt>text|name/"sec"E<gt>> or C<LE<lt>text|name/secE<gt>>
+
+Link this text to that section in that manual page.  E.g.,
+C<LE<lt>postfix "if"|perlsyn/"Statement Modifiers"E<gt>>
+
+=item *
+
+C<LE<lt>text|/"sec"E<gt>> or C<LE<lt>text|/secE<gt>>
+or C<LE<lt>text|"sec"E<gt>>
+
+Link this text to that section in this manual page.  E.g.,
+C<LE<lt>the various attributes|/"Member Data"E<gt>>
+
+=back
+
+Or you can link to a web page:
+
+=over
+
+=item *
+
+C<LE<lt>scheme:...E<gt>>
+
+C<LE<lt>text|scheme:...E<gt>>
+
+Links to an absolute URL.  For example, C<LE<lt>http://www.perl.org/E<gt>> or
+C<LE<lt>The Perl Home Page|http://www.perl.org/E<gt>>.
+
+=back
+
+=item C<EE<lt>escapeE<gt>> -- a character escape
+X<E> X<< EZ<><> >> X<POD, formatting code, escape> X<escape>
+
+Very similar to HTML/XML C<&I<foo>;> "entity references":
+
+=over
+
+=item *
+
+C<EE<lt>ltE<gt>> -- a literal E<lt> (less than)
+
+=item *
+
+C<EE<lt>gtE<gt>> -- a literal E<gt> (greater than)
+
+=item *
+
+C<EE<lt>verbarE<gt>> -- a literal | (I<ver>tical I<bar>)
+
+=item *
+
+C<EE<lt>solE<gt>> -- a literal / (I<sol>idus)
+
+The above four are optional except in other formatting codes,
+notably C<LE<lt>...E<gt>>, and when preceded by a
+capital letter.
+
+=item *
+
+C<EE<lt>htmlnameE<gt>>
+
+Some non-numeric HTML entity name, such as C<EE<lt>eacuteE<gt>>,
+meaning the same thing as C<&eacute;> in HTML -- i.e., a lowercase
+e with an acute (/-shaped) accent.
+
+=item *
+
+C<EE<lt>numberE<gt>>
+
+The ASCII/Latin-1/Unicode character with that number.  A
+leading "0x" means that I<number> is hex, as in
+C<EE<lt>0x201EE<gt>>.  A leading "0" means that I<number> is octal,
+as in C<EE<lt>075E<gt>>.  Otherwise I<number> is interpreted as being
+in decimal, as in C<EE<lt>181E<gt>>.
+
+Note that older Pod formatters might not recognize octal or
+hex numeric escapes, and that many formatters cannot reliably
+render characters above 255.  (Some formatters may even have
+to use compromised renderings of Latin-1/CP-1252 characters, like
+rendering C<EE<lt>eacuteE<gt>> as just a plain "e".)
+
+=back
+
+=item C<FE<lt>filenameE<gt>> -- used for filenames
+X<F> X<< FZ<><> >> X<POD, formatting code, filename> X<filename>
+
+Typically displayed in italics.  Example: "C<FE<lt>.cshrcE<gt>>"
+
+=item C<SE<lt>textE<gt>> -- text contains non-breaking spaces
+X<S> X<< SZ<><> >> X<POD, formatting code, non-breaking space> 
+X<non-breaking space>
+
+This means that the words in I<text> should not be broken
+across lines.  Example: S<C<SE<lt>$x ? $y : $zE<gt>>>.
+
+=item C<XE<lt>topic nameE<gt>> -- an index entry
+X<X> X<< XZ<><> >> X<POD, formatting code, index entry> X<index entry>
+
+This is ignored by most formatters, but some may use it for building
+indexes.  It always renders as empty-string.
+Example: C<XE<lt>absolutizing relative URLsE<gt>>
+
+=item C<ZE<lt>E<gt>> -- a null (zero-effect) formatting code
+X<Z> X<< ZZ<><> >> X<POD, formatting code, null> X<null>
+
+This is rarely used.  It's one way to get around using an
+EE<lt>...E<gt> code sometimes.  For example, instead of
+"C<NEE<lt>ltE<gt>3>" (for "NE<lt>3") you could write
+"C<NZE<lt>E<gt>E<lt>3>" (the "ZE<lt>E<gt>" breaks up the "N" and
+the "E<lt>" so they can't be considered
+the part of a (fictitious) "NE<lt>...E<gt>" code).
+
+=for comment
+ This was formerly explained as a "zero-width character".  But it in
+ most parser models, it parses to nothing at all, as opposed to parsing
+ as if it were a E<zwnj> or E<zwj>, which are REAL zero-width characters.
+ So "width" and "character" are exactly the wrong words.
+
+=back
+
+Most of the time, you will need only a single set of angle brackets to
+delimit the beginning and end of formatting codes.  However,
+sometimes you will want to put a real right angle bracket (a
+greater-than sign, '>') inside of a formatting code.  This is particularly
+common when using a formatting code to provide a different font-type for a
+snippet of code.  As with all things in Perl, there is more than
+one way to do it.  One way is to simply escape the closing bracket
+using an C<E> code:
+
+    C<$a E<lt>=E<gt> $b>
+
+This will produce: "C<$a E<lt>=E<gt> $b>"
+
+A more readable, and perhaps more "plain" way is to use an alternate
+set of delimiters that doesn't require a single ">" to be escaped.
+Doubled angle brackets ("<<" and ">>") may be used I<if and only if there is
+whitespace right after the opening delimiter and whitespace right
+before the closing delimiter!>  For example, the following will
+do the trick:
+X<POD, formatting code, escaping with multiple brackets>
+
+    C<< $a <=> $b >>
+
+In fact, you can use as many repeated angle-brackets as you like so
+long as you have the same number of them in the opening and closing
+delimiters, and make sure that whitespace immediately follows the last
+'<' of the opening delimiter, and immediately precedes the first '>'
+of the closing delimiter.  (The whitespace is ignored.)  So the
+following will also work:
+X<POD, formatting code, escaping with multiple brackets>
+
+    C<<< $a <=> $b >>>
+    C<<<<  $a <=> $b     >>>>
+
+And they all mean exactly the same as this:
+
+    C<$a E<lt>=E<gt> $b>
+
+The multiple-bracket form does not affect the interpretation of the contents of
+the formatting code, only how it must end.  That means that the examples above
+are also exactly the same as this:
+
+    C<< $a E<lt>=E<gt> $b >>
+
+As a further example, this means that if you wanted to put these bits of
+code in C<C> (code) style:
+
+    open(X, ">>thing.dat") || die $!
+    $foo->bar();
+
+you could do it like so:
+
+    C<<< open(X, ">>thing.dat") || die $! >>>
+    C<< $foo->bar(); >>
+
+which is presumably easier to read than the old way:
+
+    C<open(X, "E<gt>E<gt>thing.dat") || die $!>
+    C<$foo-E<gt>bar();>
+
+This is currently supported by pod2text (Pod::Text), pod2man (Pod::Man),
+and any other pod2xxx or Pod::Xxxx translators that use
+Pod::Parser 1.093 or later, or Pod::Tree 1.02 or later.
+
+=head2 The Intent
+X<POD, intent of>
+
+The intent is simplicity of use, not power of expression.  Paragraphs
+look like paragraphs (block format), so that they stand out
+visually, and so that I could run them through C<fmt> easily to reformat
+them (that's F7 in my version of B<vi>, or Esc Q in my version of
+B<emacs>).  I wanted the translator to always leave the C<'> and C<`> and
+C<"> quotes alone, in verbatim mode, so I could slurp in a
+working program, shift it over four spaces, and have it print out, er,
+verbatim.  And presumably in a monospace font.
+
+The Pod format is not necessarily sufficient for writing a book.  Pod
+is just meant to be an idiot-proof common source for nroff, HTML,
+TeX, and other markup languages, as used for online
+documentation.  Translators exist for B<pod2text>, B<pod2html>,
+B<pod2man> (that's for nroff(1) and troff(1)), B<pod2latex>, and
+B<pod2fm>.  Various others are available in CPAN.
+
+
+=head2 Embedding Pods in Perl Modules
+X<POD, embedding>
+
+You can embed Pod documentation in your Perl modules and scripts.  Start
+your documentation with an empty line, a "=head1" command at the
+beginning, and end it with a "=cut" command and an empty line.  The
+B<perl> executable will ignore the Pod text.  You can place a Pod
+statement where B<perl> expects the beginning of a new statement, but
+not within a statement, as that would result in an error.  See any of
+the supplied library modules for examples.
+
+If you're going to put your Pod at the end of the file, and you're using
+an C<__END__> or C<__DATA__> cut mark, make sure to put an empty line there
+before the first Pod command.
+
+  __END__
+
+  =head1 NAME
+
+  Time::Local - efficiently compute time from local and GMT time
+
+Without that empty line before the "=head1", many translators wouldn't
+have recognized the "=head1" as starting a Pod block.
+
+=head2 Hints for Writing Pod
+
+=over
+
+=item *
+X<podchecker> X<POD, validating>
+
+The B<podchecker> command is provided for checking Pod syntax for errors
+and warnings.  For example, it checks for completely blank lines in
+Pod blocks and for unknown commands and formatting codes.  You should
+still also pass your document through one or more translators and proofread
+the result, or print out the result and proofread that.  Some of the
+problems found may be bugs in the translators, which you may or may not
+wish to work around.
+
+=item *
+
+If you're more familiar with writing in HTML than with writing in Pod, you
+can try your hand at writing documentation in simple HTML, and converting
+it to Pod with the experimental L<Pod::HTML2Pod|Pod::HTML2Pod> module,
+(available in CPAN), and looking at the resulting code.  The experimental
+L<Pod::PXML|Pod::PXML> module in CPAN might also be useful.
+
+=item *
+
+Many older Pod translators require the lines before every Pod
+command and after every Pod command (including "=cut"!) to be a blank
+line.  Having something like this:
+
+ # - - - - - - - - - - - -
+ =item $firecracker->boom()
+
+ This noisily detonates the firecracker object.
+ =cut
+ sub boom {
+ ...
+
+...will make such Pod translators completely fail to see the Pod block
+at all.
+
+Instead, have it like this:
+
+ # - - - - - - - - - - - -
+
+ =item $firecracker->boom()
+
+ This noisily detonates the firecracker object.
+
+ =cut
+
+ sub boom {
+ ...
+
+=item *
+
+Some older Pod translators require paragraphs (including command
+paragraphs like "=head2 Functions") to be separated by I<completely>
+empty lines.  If you have an apparently empty line with some spaces
+on it, this might not count as a separator for those translators, and
+that could cause odd formatting.
+
+=item *
+
+Older translators might add wording around an LE<lt>E<gt> link, so that
+C<LE<lt>Foo::BarE<gt>> may become "the Foo::Bar manpage", for example.
+So you shouldn't write things like C<the LE<lt>fooE<gt>
+documentation>, if you want the translated document to read sensibly.
+Instead, write C<the LE<lt>Foo::Bar|Foo::BarE<gt> documentation> or
+C<LE<lt>the Foo::Bar documentation|Foo::BarE<gt>>, to control how the
+link comes out.
+
+=item *
+
+Going past the 70th column in a verbatim block might be ungracefully
+wrapped by some formatters.
+
+=back
+
+=head1 SEE ALSO
+
+L<perlpodspec>, L<perlsyn/"PODs: Embedded Documentation">,
+L<perlnewmod>, L<perldoc>, L<pod2html>, L<pod2man>, L<podchecker>.
+
+=head1 AUTHOR
+
+Larry Wall, Sean M. Burke
+
+=cut
diff --git a/lib/5.24.1/pod/perlpodspec.pod b/lib/5.24.1/pod/perlpodspec.pod
new file mode 100644
index 00000000..65f79f50
--- /dev/null
+++ b/lib/5.24.1/pod/perlpodspec.pod
@@ -0,0 +1,1928 @@
+=encoding utf8
+
+=head1 NAME
+
+perlpodspec - Plain Old Documentation: format specification and notes
+
+=head1 DESCRIPTION
+
+This document is detailed notes on the Pod markup language.  Most
+people will only have to read L<perlpod|perlpod> to know how to write
+in Pod, but this document may answer some incidental questions to do
+with parsing and rendering Pod.
+
+In this document, "must" / "must not", "should" /
+"should not", and "may" have their conventional (cf. RFC 2119)
+meanings: "X must do Y" means that if X doesn't do Y, it's against
+this specification, and should really be fixed.  "X should do Y"
+means that it's recommended, but X may fail to do Y, if there's a
+good reason.  "X may do Y" is merely a note that X can do Y at
+will (although it is up to the reader to detect any connotation of
+"and I think it would be I<nice> if X did Y" versus "it wouldn't
+really I<bother> me if X did Y").
+
+Notably, when I say "the parser should do Y", the
+parser may fail to do Y, if the calling application explicitly
+requests that the parser I<not> do Y.  I often phrase this as
+"the parser should, by default, do Y."  This doesn't I<require>
+the parser to provide an option for turning off whatever
+feature Y is (like expanding tabs in verbatim paragraphs), although
+it implicates that such an option I<may> be provided.
+
+=head1 Pod Definitions
+
+Pod is embedded in files, typically Perl source files, although you
+can write a file that's nothing but Pod.
+
+A B<line> in a file consists of zero or more non-newline characters,
+terminated by either a newline or the end of the file.
+
+A B<newline sequence> is usually a platform-dependent concept, but
+Pod parsers should understand it to mean any of CR (ASCII 13), LF
+(ASCII 10), or a CRLF (ASCII 13 followed immediately by ASCII 10), in
+addition to any other system-specific meaning.  The first CR/CRLF/LF
+sequence in the file may be used as the basis for identifying the
+newline sequence for parsing the rest of the file.
+
+A B<blank line> is a line consisting entirely of zero or more spaces
+(ASCII 32) or tabs (ASCII 9), and terminated by a newline or end-of-file.
+A B<non-blank line> is a line containing one or more characters other
+than space or tab (and terminated by a newline or end-of-file).
+
+(I<Note:> Many older Pod parsers did not accept a line consisting of
+spaces/tabs and then a newline as a blank line. The only lines they
+considered blank were lines consisting of I<no characters at all>,
+terminated by a newline.)
+
+B<Whitespace> is used in this document as a blanket term for spaces,
+tabs, and newline sequences.  (By itself, this term usually refers
+to literal whitespace.  That is, sequences of whitespace characters
+in Pod source, as opposed to "EE<lt>32>", which is a formatting
+code that I<denotes> a whitespace character.)
+
+A B<Pod parser> is a module meant for parsing Pod (regardless of
+whether this involves calling callbacks or building a parse tree or
+directly formatting it).  A B<Pod formatter> (or B<Pod translator>)
+is a module or program that converts Pod to some other format (HTML,
+plaintext, TeX, PostScript, RTF).  A B<Pod processor> might be a
+formatter or translator, or might be a program that does something
+else with the Pod (like counting words, scanning for index points,
+etc.).
+
+Pod content is contained in B<Pod blocks>.  A Pod block starts with a
+line that matches C<m/\A=[a-zA-Z]/>, and continues up to the next line
+that matches C<m/\A=cut/> or up to the end of the file if there is
+no C<m/\A=cut/> line.
+
+=for comment
+ The current perlsyn says:
+ [beginquote]
+   Note that pod translators should look at only paragraphs beginning
+   with a pod directive (it makes parsing easier), whereas the compiler
+   actually knows to look for pod escapes even in the middle of a
+   paragraph.  This means that the following secret stuff will be ignored
+   by both the compiler and the translators.
+      $a=3;
+      =secret stuff
+       warn "Neither POD nor CODE!?"
+      =cut back
+      print "got $a\n";
+   You probably shouldn't rely upon the warn() being podded out forever.
+   Not all pod translators are well-behaved in this regard, and perhaps
+   the compiler will become pickier.
+ [endquote]
+ I think that those paragraphs should just be removed; paragraph-based
+ parsing  seems to have been largely abandoned, because of the hassle
+ with non-empty blank lines messing up what people meant by "paragraph".
+ Even if the "it makes parsing easier" bit were especially true,
+ it wouldn't be worth the confusion of having perl and pod2whatever
+ actually disagree on what can constitute a Pod block.
+
+Within a Pod block, there are B<Pod paragraphs>.  A Pod paragraph
+consists of non-blank lines of text, separated by one or more blank
+lines.
+
+For purposes of Pod processing, there are four types of paragraphs in
+a Pod block:
+
+=over
+
+=item *
+
+A command paragraph (also called a "directive").  The first line of
+this paragraph must match C<m/\A=[a-zA-Z]/>.  Command paragraphs are
+typically one line, as in:
+
+  =head1 NOTES
+
+  =item *
+
+But they may span several (non-blank) lines:
+
+  =for comment
+  Hm, I wonder what it would look like if
+  you tried to write a BNF for Pod from this.
+
+  =head3 Dr. Strangelove, or: How I Learned to
+  Stop Worrying and Love the Bomb
+
+I<Some> command paragraphs allow formatting codes in their content
+(i.e., after the part that matches C<m/\A=[a-zA-Z]\S*\s*/>), as in:
+
+  =head1 Did You Remember to C<use strict;>?
+
+In other words, the Pod processing handler for "head1" will apply the
+same processing to "Did You Remember to CE<lt>use strict;>?" that it
+would to an ordinary paragraph (i.e., formatting codes like
+"CE<lt>...>") are parsed and presumably formatted appropriately, and
+whitespace in the form of literal spaces and/or tabs is not
+significant.
+
+=item *
+
+A B<verbatim paragraph>.  The first line of this paragraph must be a
+literal space or tab, and this paragraph must not be inside a "=begin
+I<identifier>", ... "=end I<identifier>" sequence unless
+"I<identifier>" begins with a colon (":").  That is, if a paragraph
+starts with a literal space or tab, but I<is> inside a
+"=begin I<identifier>", ... "=end I<identifier>" region, then it's
+a data paragraph, unless "I<identifier>" begins with a colon.
+
+Whitespace I<is> significant in verbatim paragraphs (although, in
+processing, tabs are probably expanded).
+
+=item *
+
+An B<ordinary paragraph>.  A paragraph is an ordinary paragraph
+if its first line matches neither C<m/\A=[a-zA-Z]/> nor
+C<m/\A[ \t]/>, I<and> if it's not inside a "=begin I<identifier>",
+... "=end I<identifier>" sequence unless "I<identifier>" begins with
+a colon (":").
+
+=item *
+
+A B<data paragraph>.  This is a paragraph that I<is> inside a "=begin
+I<identifier>" ... "=end I<identifier>" sequence where
+"I<identifier>" does I<not> begin with a literal colon (":").  In
+some sense, a data paragraph is not part of Pod at all (i.e.,
+effectively it's "out-of-band"), since it's not subject to most kinds
+of Pod parsing; but it is specified here, since Pod
+parsers need to be able to call an event for it, or store it in some
+form in a parse tree, or at least just parse I<around> it.
+
+=back
+
+For example: consider the following paragraphs:
+
+  # <- that's the 0th column
+
+  =head1 Foo
+
+  Stuff
+
+    $foo->bar
+
+  =cut
+
+Here, "=head1 Foo" and "=cut" are command paragraphs because the first
+line of each matches C<m/\A=[a-zA-Z]/>.  "I<[space][space]>$foo->bar"
+is a verbatim paragraph, because its first line starts with a literal
+whitespace character (and there's no "=begin"..."=end" region around).
+
+The "=begin I<identifier>" ... "=end I<identifier>" commands stop
+paragraphs that they surround from being parsed as ordinary or verbatim
+paragraphs, if I<identifier> doesn't begin with a colon.  This
+is discussed in detail in the section
+L</About Data Paragraphs and "=beginE<sol>=end" Regions>.
+
+=head1 Pod Commands
+
+This section is intended to supplement and clarify the discussion in
+L<perlpod/"Command Paragraph">.  These are the currently recognized
+Pod commands:
+
+=over
+
+=item "=head1", "=head2", "=head3", "=head4"
+
+This command indicates that the text in the remainder of the paragraph
+is a heading.  That text may contain formatting codes.  Examples:
+
+  =head1 Object Attributes
+
+  =head3 What B<Not> to Do!
+
+=item "=pod"
+
+This command indicates that this paragraph begins a Pod block.  (If we
+are already in the middle of a Pod block, this command has no effect at
+all.)  If there is any text in this command paragraph after "=pod",
+it must be ignored.  Examples:
+
+  =pod
+
+  This is a plain Pod paragraph.
+
+  =pod This text is ignored.
+
+=item "=cut"
+
+This command indicates that this line is the end of this previously
+started Pod block.  If there is any text after "=cut" on the line, it must be
+ignored.  Examples:
+
+  =cut
+
+  =cut The documentation ends here.
+
+  =cut
+  # This is the first line of program text.
+  sub foo { # This is the second.
+
+It is an error to try to I<start> a Pod block with a "=cut" command.  In
+that case, the Pod processor must halt parsing of the input file, and
+must by default emit a warning.
+
+=item "=over"
+
+This command indicates that this is the start of a list/indent
+region.  If there is any text following the "=over", it must consist
+of only a nonzero positive numeral.  The semantics of this numeral is
+explained in the L</"About =over...=back Regions"> section, further
+below.  Formatting codes are not expanded.  Examples:
+
+  =over 3
+
+  =over 3.5
+
+  =over
+
+=item "=item"
+
+This command indicates that an item in a list begins here.  Formatting
+codes are processed.  The semantics of the (optional) text in the
+remainder of this paragraph are
+explained in the L</"About =over...=back Regions"> section, further
+below.  Examples:
+
+  =item
+
+  =item *
+
+  =item      *    
+
+  =item 14
+
+  =item   3.
+
+  =item C<< $thing->stuff(I<dodad>) >>
+
+  =item For transporting us beyond seas to be tried for pretended
+  offenses
+
+  =item He is at this time transporting large armies of foreign
+  mercenaries to complete the works of death, desolation and
+  tyranny, already begun with circumstances of cruelty and perfidy
+  scarcely paralleled in the most barbarous ages, and totally
+  unworthy the head of a civilized nation.
+
+=item "=back"
+
+This command indicates that this is the end of the region begun
+by the most recent "=over" command.  It permits no text after the
+"=back" command.
+
+=item "=begin formatname"
+
+=item "=begin formatname parameter"
+
+This marks the following paragraphs (until the matching "=end
+formatname") as being for some special kind of processing.  Unless
+"formatname" begins with a colon, the contained non-command
+paragraphs are data paragraphs.  But if "formatname" I<does> begin
+with a colon, then non-command paragraphs are ordinary paragraphs
+or data paragraphs.  This is discussed in detail in the section
+L</About Data Paragraphs and "=beginE<sol>=end" Regions>.
+
+It is advised that formatnames match the regexp
+C<m/\A:?[-a-zA-Z0-9_]+\z/>.  Everything following whitespace after the
+formatname is a parameter that may be used by the formatter when dealing
+with this region.  This parameter must not be repeated in the "=end"
+paragraph.  Implementors should anticipate future expansion in the
+semantics and syntax of the first parameter to "=begin"/"=end"/"=for".
+
+=item "=end formatname"
+
+This marks the end of the region opened by the matching
+"=begin formatname" region.  If "formatname" is not the formatname
+of the most recent open "=begin formatname" region, then this
+is an error, and must generate an error message.  This
+is discussed in detail in the section
+L</About Data Paragraphs and "=beginE<sol>=end" Regions>.
+
+=item "=for formatname text..."
+
+This is synonymous with:
+
+     =begin formatname
+
+     text...
+
+     =end formatname
+
+That is, it creates a region consisting of a single paragraph; that
+paragraph is to be treated as a normal paragraph if "formatname"
+begins with a ":"; if "formatname" I<doesn't> begin with a colon,
+then "text..." will constitute a data paragraph.  There is no way
+to use "=for formatname text..." to express "text..." as a verbatim
+paragraph.
+
+=item "=encoding encodingname"
+
+This command, which should occur early in the document (at least
+before any non-US-ASCII data!), declares that this document is
+encoded in the encoding I<encodingname>, which must be
+an encoding name that L<Encode> recognizes.  (Encode's list
+of supported encodings, in L<Encode::Supported>, is useful here.)
+If the Pod parser cannot decode the declared encoding, it 
+should emit a warning and may abort parsing the document
+altogether.
+
+A document having more than one "=encoding" line should be
+considered an error.  Pod processors may silently tolerate this if
+the not-first "=encoding" lines are just duplicates of the
+first one (e.g., if there's a "=encoding utf8" line, and later on
+another "=encoding utf8" line).  But Pod processors should complain if
+there are contradictory "=encoding" lines in the same document
+(e.g., if there is a "=encoding utf8" early in the document and
+"=encoding big5" later).  Pod processors that recognize BOMs
+may also complain if they see an "=encoding" line
+that contradicts the BOM (e.g., if a document with a UTF-16LE
+BOM has an "=encoding shiftjis" line).
+
+=back
+
+If a Pod processor sees any command other than the ones listed
+above (like "=head", or "=haed1", or "=stuff", or "=cuttlefish",
+or "=w123"), that processor must by default treat this as an
+error.  It must not process the paragraph beginning with that
+command, must by default warn of this as an error, and may
+abort the parse.  A Pod parser may allow a way for particular
+applications to add to the above list of known commands, and to
+stipulate, for each additional command, whether formatting
+codes should be processed.
+
+Future versions of this specification may add additional
+commands.
+
+
+
+=head1 Pod Formatting Codes
+
+(Note that in previous drafts of this document and of perlpod,
+formatting codes were referred to as "interior sequences", and
+this term may still be found in the documentation for Pod parsers,
+and in error messages from Pod processors.)
+
+There are two syntaxes for formatting codes:
+
+=over
+
+=item *
+
+A formatting code starts with a capital letter (just US-ASCII [A-Z])
+followed by a "<", any number of characters, and ending with the first
+matching ">".  Examples:
+
+    That's what I<you> think!
+
+    What's C<dump()> for?
+
+    X<C<chmod> and C<unlink()> Under Different Operating Systems>
+
+=item *
+
+A formatting code starts with a capital letter (just US-ASCII [A-Z])
+followed by two or more "<"'s, one or more whitespace characters,
+any number of characters, one or more whitespace characters,
+and ending with the first matching sequence of two or more ">"'s, where
+the number of ">"'s equals the number of "<"'s in the opening of this
+formatting code.  Examples:
+
+    That's what I<< you >> think!
+
+    C<<< open(X, ">>thing.dat") || die $! >>>
+
+    B<< $foo->bar(); >>
+
+With this syntax, the whitespace character(s) after the "CE<lt><<"
+and before the ">>>" (or whatever letter) are I<not> renderable. They
+do not signify whitespace, are merely part of the formatting codes
+themselves.  That is, these are all synonymous:
+
+    C<thing>
+    C<< thing >>
+    C<<           thing     >>
+    C<<<   thing >>>
+    C<<<<
+    thing
+               >>>>
+
+and so on.
+
+Finally, the multiple-angle-bracket form does I<not> alter the interpretation
+of nested formatting codes, meaning that the following four example lines are
+identical in meaning:
+
+  B<example: C<$a E<lt>=E<gt> $b>>
+
+  B<example: C<< $a <=> $b >>>
+
+  B<example: C<< $a E<lt>=E<gt> $b >>>
+
+  B<<< example: C<< $a E<lt>=E<gt> $b >> >>>
+
+=back
+
+In parsing Pod, a notably tricky part is the correct parsing of
+(potentially nested!) formatting codes.  Implementors should
+consult the code in the C<parse_text> routine in Pod::Parser as an
+example of a correct implementation.
+
+=over
+
+=item C<IE<lt>textE<gt>> -- italic text
+
+See the brief discussion in L<perlpod/"Formatting Codes">.
+
+=item C<BE<lt>textE<gt>> -- bold text
+
+See the brief discussion in L<perlpod/"Formatting Codes">.
+
+=item C<CE<lt>codeE<gt>> -- code text
+
+See the brief discussion in L<perlpod/"Formatting Codes">.
+
+=item C<FE<lt>filenameE<gt>> -- style for filenames
+
+See the brief discussion in L<perlpod/"Formatting Codes">.
+
+=item C<XE<lt>topic nameE<gt>> -- an index entry
+
+See the brief discussion in L<perlpod/"Formatting Codes">.
+
+This code is unusual in that most formatters completely discard
+this code and its content.  Other formatters will render it with
+invisible codes that can be used in building an index of
+the current document.
+
+=item C<ZE<lt>E<gt>> -- a null (zero-effect) formatting code
+
+Discussed briefly in L<perlpod/"Formatting Codes">.
+
+This code is unusual is that it should have no content.  That is,
+a processor may complain if it sees C<ZE<lt>potatoesE<gt>>.  Whether
+or not it complains, the I<potatoes> text should ignored.
+
+=item C<LE<lt>nameE<gt>> -- a hyperlink
+
+The complicated syntaxes of this code are discussed at length in
+L<perlpod/"Formatting Codes">, and implementation details are
+discussed below, in L</"About LE<lt>...E<gt> Codes">.  Parsing the
+contents of LE<lt>content> is tricky.  Notably, the content has to be
+checked for whether it looks like a URL, or whether it has to be split
+on literal "|" and/or "/" (in the right order!), and so on,
+I<before> EE<lt>...> codes are resolved.
+
+=item C<EE<lt>escapeE<gt>> -- a character escape
+
+See L<perlpod/"Formatting Codes">, and several points in
+L</Notes on Implementing Pod Processors>.
+
+=item C<SE<lt>textE<gt>> -- text contains non-breaking spaces
+
+This formatting code is syntactically simple, but semantically
+complex.  What it means is that each space in the printable
+content of this code signifies a non-breaking space.
+
+Consider:
+
+    C<$x ? $y    :  $z>
+
+    S<C<$x ? $y     :  $z>>
+
+Both signify the monospace (c[ode] style) text consisting of
+"$x", one space, "?", one space, ":", one space, "$z".  The
+difference is that in the latter, with the S code, those spaces
+are not "normal" spaces, but instead are non-breaking spaces.
+
+=back
+
+
+If a Pod processor sees any formatting code other than the ones
+listed above (as in "NE<lt>...>", or "QE<lt>...>", etc.), that
+processor must by default treat this as an error.
+A Pod parser may allow a way for particular
+applications to add to the above list of known formatting codes;
+a Pod parser might even allow a way to stipulate, for each additional
+command, whether it requires some form of special processing, as
+LE<lt>...> does.
+
+Future versions of this specification may add additional
+formatting codes.
+
+Historical note:  A few older Pod processors would not see a ">" as
+closing a "CE<lt>" code, if the ">" was immediately preceded by
+a "-".  This was so that this:
+
+    C<$foo->bar>
+
+would parse as equivalent to this:
+
+    C<$foo-E<gt>bar>
+
+instead of as equivalent to a "C" formatting code containing 
+only "$foo-", and then a "bar>" outside the "C" formatting code.  This
+problem has since been solved by the addition of syntaxes like this:
+
+    C<< $foo->bar >>
+
+Compliant parsers must not treat "->" as special.
+
+Formatting codes absolutely cannot span paragraphs.  If a code is
+opened in one paragraph, and no closing code is found by the end of
+that paragraph, the Pod parser must close that formatting code,
+and should complain (as in "Unterminated I code in the paragraph
+starting at line 123: 'Time objects are not...'").  So these
+two paragraphs:
+
+  I<I told you not to do this!
+
+  Don't make me say it again!>
+
+...must I<not> be parsed as two paragraphs in italics (with the I
+code starting in one paragraph and starting in another.)  Instead,
+the first paragraph should generate a warning, but that aside, the
+above code must parse as if it were:
+
+  I<I told you not to do this!>
+
+  Don't make me say it again!E<gt>
+
+(In SGMLish jargon, all Pod commands are like block-level
+elements, whereas all Pod formatting codes are like inline-level
+elements.)
+
+
+
+=head1 Notes on Implementing Pod Processors
+
+The following is a long section of miscellaneous requirements
+and suggestions to do with Pod processing.
+
+=over
+
+=item *
+
+Pod formatters should tolerate lines in verbatim blocks that are of
+any length, even if that means having to break them (possibly several
+times, for very long lines) to avoid text running off the side of the
+page.  Pod formatters may warn of such line-breaking.  Such warnings
+are particularly appropriate for lines are over 100 characters long, which
+are usually not intentional.
+
+=item *
+
+Pod parsers must recognize I<all> of the three well-known newline
+formats: CR, LF, and CRLF.  See L<perlport|perlport>.
+
+=item *
+
+Pod parsers should accept input lines that are of any length.
+
+=item *
+
+Since Perl recognizes a Unicode Byte Order Mark at the start of files
+as signaling that the file is Unicode encoded as in UTF-16 (whether
+big-endian or little-endian) or UTF-8, Pod parsers should do the
+same.  Otherwise, the character encoding should be understood as
+being UTF-8 if the first highbit byte sequence in the file seems
+valid as a UTF-8 sequence, or otherwise as CP-1252 (earlier versions of
+this specification used Latin-1 instead of CP-1252).
+
+Future versions of this specification may specify
+how Pod can accept other encodings.  Presumably treatment of other
+encodings in Pod parsing would be as in XML parsing: whatever the
+encoding declared by a particular Pod file, content is to be
+stored in memory as Unicode characters.
+
+=item *
+
+The well known Unicode Byte Order Marks are as follows:  if the
+file begins with the two literal byte values 0xFE 0xFF, this is
+the BOM for big-endian UTF-16.  If the file begins with the two
+literal byte value 0xFF 0xFE, this is the BOM for little-endian
+UTF-16.  On an ASCII platform, if the file begins with the three literal
+byte values
+0xEF 0xBB 0xBF, this is the BOM for UTF-8.
+A mechanism portable to EBCDIC platforms is to:
+
+  my $utf8_bom = "\x{FEFF}";
+  utf8::encode($utf8_bom);
+
+=for comment
+ use bytes; print map sprintf(" 0x%02X", ord $_), split '', "\x{feff}";
+ 0xEF 0xBB 0xBF
+
+=for comment
+ If toke.c is modified to support UTF-32, add mention of those here.
+
+=item *
+
+A naive, but often sufficient heuristic on ASCII platforms, for testing
+the first highbit
+byte-sequence in a BOM-less file (whether in code or in Pod!), to see
+whether that sequence is valid as UTF-8 (RFC 2279) is to check whether
+that the first byte in the sequence is in the range 0xC2 - 0xFD
+I<and> whether the next byte is in the range
+0x80 - 0xBF.  If so, the parser may conclude that this file is in
+UTF-8, and all highbit sequences in the file should be assumed to
+be UTF-8.  Otherwise the parser should treat the file as being
+in CP-1252.  (A better check, and which works on EBCDIC platforms as
+well, is to pass a copy of the sequence to
+L<utf8::decode()|utf8> which performs a full validity check on the
+sequence and returns TRUE if it is valid UTF-8, FALSE otherwise.  This
+function is always pre-loaded, is fast because it is written in C, and
+will only get called at most once, so you don't need to avoid it out of
+performance concerns.)
+In the unlikely circumstance that the first highbit
+sequence in a truly non-UTF-8 file happens to appear to be UTF-8, one
+can cater to our heuristic (as well as any more intelligent heuristic)
+by prefacing that line with a comment line containing a highbit
+sequence that is clearly I<not> valid as UTF-8.  A line consisting
+of simply "#", an e-acute, and any non-highbit byte,
+is sufficient to establish this file's encoding.
+
+=for comment
+ If/WHEN some brave soul makes these heuristics into a generic
+ text-file class (or PerlIO layer?), we can presumably delete
+ mention of these icky details from this file, and can instead
+ tell people to just use appropriate class/layer.
+ Auto-recognition of newline sequences would be another desirable
+ feature of such a class/layer.
+ HINT HINT HINT.
+
+=for comment
+ "The probability that a string of characters
+ in any other encoding appears as valid UTF-8 is low" - RFC2279
+
+=item *
+
+Pod processors must treat a "=for [label] [content...]" paragraph as
+meaning the same thing as a "=begin [label]" paragraph, content, and
+an "=end [label]" paragraph.  (The parser may conflate these two
+constructs, or may leave them distinct, in the expectation that the
+formatter will nevertheless treat them the same.)
+
+=item *
+
+When rendering Pod to a format that allows comments (i.e., to nearly
+any format other than plaintext), a Pod formatter must insert comment
+text identifying its name and version number, and the name and
+version numbers of any modules it might be using to process the Pod.
+Minimal examples:
+
+ %% POD::Pod2PS v3.14159, using POD::Parser v1.92
+
+ <!-- Pod::HTML v3.14159, using POD::Parser v1.92 -->
+
+ {\doccomm generated by Pod::Tree::RTF 3.14159 using Pod::Tree 1.08}
+
+ .\" Pod::Man version 3.14159, using POD::Parser version 1.92
+
+Formatters may also insert additional comments, including: the
+release date of the Pod formatter program, the contact address for
+the author(s) of the formatter, the current time, the name of input
+file, the formatting options in effect, version of Perl used, etc.
+
+Formatters may also choose to note errors/warnings as comments,
+besides or instead of emitting them otherwise (as in messages to
+STDERR, or C<die>ing).
+
+=item *
+
+Pod parsers I<may> emit warnings or error messages ("Unknown E code
+EE<lt>zslig>!") to STDERR (whether through printing to STDERR, or
+C<warn>ing/C<carp>ing, or C<die>ing/C<croak>ing), but I<must> allow
+suppressing all such STDERR output, and instead allow an option for
+reporting errors/warnings
+in some other way, whether by triggering a callback, or noting errors
+in some attribute of the document object, or some similarly unobtrusive
+mechanism -- or even by appending a "Pod Errors" section to the end of
+the parsed form of the document.
+
+=item *
+
+In cases of exceptionally aberrant documents, Pod parsers may abort the
+parse.  Even then, using C<die>ing/C<croak>ing is to be avoided; where
+possible, the parser library may simply close the input file
+and add text like "*** Formatting Aborted ***" to the end of the
+(partial) in-memory document.
+
+=item *
+
+In paragraphs where formatting codes (like EE<lt>...>, BE<lt>...>)
+are understood (i.e., I<not> verbatim paragraphs, but I<including>
+ordinary paragraphs, and command paragraphs that produce renderable
+text, like "=head1"), literal whitespace should generally be considered
+"insignificant", in that one literal space has the same meaning as any
+(nonzero) number of literal spaces, literal newlines, and literal tabs
+(as long as this produces no blank lines, since those would terminate
+the paragraph).  Pod parsers should compact literal whitespace in each
+processed paragraph, but may provide an option for overriding this
+(since some processing tasks do not require it), or may follow
+additional special rules (for example, specially treating
+period-space-space or period-newline sequences).
+
+=item *
+
+Pod parsers should not, by default, try to coerce apostrophe (') and
+quote (") into smart quotes (little 9's, 66's, 99's, etc), nor try to
+turn backtick (`) into anything else but a single backtick character
+(distinct from an open quote character!), nor "--" into anything but
+two minus signs.  They I<must never> do any of those things to text
+in CE<lt>...> formatting codes, and never I<ever> to text in verbatim
+paragraphs.
+
+=item *
+
+When rendering Pod to a format that has two kinds of hyphens (-), one
+that's a non-breaking hyphen, and another that's a breakable hyphen
+(as in "object-oriented", which can be split across lines as
+"object-", newline, "oriented"), formatters are encouraged to
+generally translate "-" to non-breaking hyphen, but may apply
+heuristics to convert some of these to breaking hyphens.
+
+=item *
+
+Pod formatters should make reasonable efforts to keep words of Perl
+code from being broken across lines.  For example, "Foo::Bar" in some
+formatting systems is seen as eligible for being broken across lines
+as "Foo::" newline "Bar" or even "Foo::-" newline "Bar".  This should
+be avoided where possible, either by disabling all line-breaking in
+mid-word, or by wrapping particular words with internal punctuation
+in "don't break this across lines" codes (which in some formats may
+not be a single code, but might be a matter of inserting non-breaking
+zero-width spaces between every pair of characters in a word.)
+
+=item *
+
+Pod parsers should, by default, expand tabs in verbatim paragraphs as
+they are processed, before passing them to the formatter or other
+processor.  Parsers may also allow an option for overriding this.
+
+=item *
+
+Pod parsers should, by default, remove newlines from the end of
+ordinary and verbatim paragraphs before passing them to the
+formatter.  For example, while the paragraph you're reading now
+could be considered, in Pod source, to end with (and contain)
+the newline(s) that end it, it should be processed as ending with
+(and containing) the period character that ends this sentence.
+
+=item *
+
+Pod parsers, when reporting errors, should make some effort to report
+an approximate line number ("Nested EE<lt>>'s in Paragraph #52, near
+line 633 of Thing/Foo.pm!"), instead of merely noting the paragraph
+number ("Nested EE<lt>>'s in Paragraph #52 of Thing/Foo.pm!").  Where
+this is problematic, the paragraph number should at least be
+accompanied by an excerpt from the paragraph ("Nested EE<lt>>'s in
+Paragraph #52 of Thing/Foo.pm, which begins 'Read/write accessor for
+the CE<lt>interest rate> attribute...'").
+
+=item *
+
+Pod parsers, when processing a series of verbatim paragraphs one
+after another, should consider them to be one large verbatim
+paragraph that happens to contain blank lines.  I.e., these two
+lines, which have a blank line between them:
+
+	use Foo;
+
+	print Foo->VERSION
+
+should be unified into one paragraph ("\tuse Foo;\n\n\tprint
+Foo->VERSION") before being passed to the formatter or other
+processor.  Parsers may also allow an option for overriding this.
+
+While this might be too cumbersome to implement in event-based Pod
+parsers, it is straightforward for parsers that return parse trees.
+
+=item *
+
+Pod formatters, where feasible, are advised to avoid splitting short
+verbatim paragraphs (under twelve lines, say) across pages.
+
+=item *
+
+Pod parsers must treat a line with only spaces and/or tabs on it as a
+"blank line" such as separates paragraphs.  (Some older parsers
+recognized only two adjacent newlines as a "blank line" but would not
+recognize a newline, a space, and a newline, as a blank line.  This
+is noncompliant behavior.)
+
+=item *
+
+Authors of Pod formatters/processors should make every effort to
+avoid writing their own Pod parser.  There are already several in
+CPAN, with a wide range of interface styles -- and one of them,
+Pod::Parser, comes with modern versions of Perl.
+
+=item *
+
+Characters in Pod documents may be conveyed either as literals, or by
+number in EE<lt>n> codes, or by an equivalent mnemonic, as in
+EE<lt>eacute> which is exactly equivalent to EE<lt>233>.  The numbers
+are the Latin1/Unicode values, even on EBCDIC platforms.
+
+When referring to characters by using a EE<lt>n> numeric code, numbers
+in the range 32-126 refer to those well known US-ASCII characters (also
+defined there by Unicode, with the same meaning), which all Pod
+formatters must render faithfully.  Characters whose EE<lt>E<gt> numbers
+are in the ranges 0-31 and 127-159 should not be used (neither as
+literals,
+nor as EE<lt>number> codes), except for the literal byte-sequences for
+newline (ASCII 13, ASCII 13 10, or ASCII 10), and tab (ASCII 9).
+
+Numbers in the range 160-255 refer to Latin-1 characters (also
+defined there by Unicode, with the same meaning).  Numbers above
+255 should be understood to refer to Unicode characters.
+
+=item *
+
+Be warned
+that some formatters cannot reliably render characters outside 32-126;
+and many are able to handle 32-126 and 160-255, but nothing above
+255.
+
+=item *
+
+Besides the well-known "EE<lt>lt>" and "EE<lt>gt>" codes for
+less-than and greater-than, Pod parsers must understand "EE<lt>sol>"
+for "/" (solidus, slash), and "EE<lt>verbar>" for "|" (vertical bar,
+pipe).  Pod parsers should also understand "EE<lt>lchevron>" and
+"EE<lt>rchevron>" as legacy codes for characters 171 and 187, i.e.,
+"left-pointing double angle quotation mark" = "left pointing
+guillemet" and "right-pointing double angle quotation mark" = "right
+pointing guillemet".  (These look like little "<<" and ">>", and they
+are now preferably expressed with the HTML/XHTML codes "EE<lt>laquo>"
+and "EE<lt>raquo>".)
+
+=item *
+
+Pod parsers should understand all "EE<lt>html>" codes as defined
+in the entity declarations in the most recent XHTML specification at
+C<www.W3.org>.  Pod parsers must understand at least the entities
+that define characters in the range 160-255 (Latin-1).  Pod parsers,
+when faced with some unknown "EE<lt>I<identifier>>" code,
+shouldn't simply replace it with nullstring (by default, at least),
+but may pass it through as a string consisting of the literal characters
+E, less-than, I<identifier>, greater-than.  Or Pod parsers may offer the
+alternative option of processing such unknown
+"EE<lt>I<identifier>>" codes by firing an event especially
+for such codes, or by adding a special node-type to the in-memory
+document tree.  Such "EE<lt>I<identifier>>" may have special meaning
+to some processors, or some processors may choose to add them to
+a special error report.
+
+=item *
+
+Pod parsers must also support the XHTML codes "EE<lt>quot>" for
+character 34 (doublequote, "), "EE<lt>amp>" for character 38
+(ampersand, &), and "EE<lt>apos>" for character 39 (apostrophe, ').
+
+=item *
+
+Note that in all cases of "EE<lt>whateverE<gt>", I<whatever> (whether
+an htmlname, or a number in any base) must consist only of
+alphanumeric characters -- that is, I<whatever> must match
+C<m/\A\w+\z/>.  So S<"EE<lt> 0 1 2 3 E<gt>"> is invalid, because
+it contains spaces, which aren't alphanumeric characters.  This
+presumably does not I<need> special treatment by a Pod processor;
+S<" 0 1 2 3 "> doesn't look like a number in any base, so it would
+presumably be looked up in the table of HTML-like names.  Since
+there isn't (and cannot be) an HTML-like entity called S<" 0 1 2 3 ">,
+this will be treated as an error.  However, Pod processors may
+treat S<"EE<lt> 0 1 2 3 E<gt>"> or "EE<lt>e-acute>" as I<syntactically>
+invalid, potentially earning a different error message than the
+error message (or warning, or event) generated by a merely unknown
+(but theoretically valid) htmlname, as in "EE<lt>qacute>"
+[sic].  However, Pod parsers are not required to make this
+distinction.
+
+=item *
+
+Note that EE<lt>number> I<must not> be interpreted as simply
+"codepoint I<number> in the current/native character set".  It always
+means only "the character represented by codepoint I<number> in
+Unicode."  (This is identical to the semantics of &#I<number>; in XML.)
+
+This will likely require many formatters to have tables mapping from
+treatable Unicode codepoints (such as the "\xE9" for the e-acute
+character) to the escape sequences or codes necessary for conveying
+such sequences in the target output format.  A converter to *roff
+would, for example know that "\xE9" (whether conveyed literally, or via
+a EE<lt>...> sequence) is to be conveyed as "e\\*'".
+Similarly, a program rendering Pod in a Mac OS application window, would
+presumably need to know that "\xE9" maps to codepoint 142 in MacRoman
+encoding that (at time of writing) is native for Mac OS.  Such
+Unicode2whatever mappings are presumably already widely available for
+common output formats.  (Such mappings may be incomplete!  Implementers
+are not expected to bend over backwards in an attempt to render
+Cherokee syllabics, Etruscan runes, Byzantine musical symbols, or any
+of the other weird things that Unicode can encode.)  And
+if a Pod document uses a character not found in such a mapping, the
+formatter should consider it an unrenderable character.
+
+=item *
+
+If, surprisingly, the implementor of a Pod formatter can't find a
+satisfactory pre-existing table mapping from Unicode characters to
+escapes in the target format (e.g., a decent table of Unicode
+characters to *roff escapes), it will be necessary to build such a
+table.  If you are in this circumstance, you should begin with the
+characters in the range 0x00A0 - 0x00FF, which is mostly the heavily
+used accented characters.  Then proceed (as patience permits and
+fastidiousness compels) through the characters that the (X)HTML
+standards groups judged important enough to merit mnemonics
+for.  These are declared in the (X)HTML specifications at the
+www.W3.org site.  At time of writing (September 2001), the most recent
+entity declaration files are:
+
+  http://www.w3.org/TR/xhtml1/DTD/xhtml-lat1.ent
+  http://www.w3.org/TR/xhtml1/DTD/xhtml-special.ent
+  http://www.w3.org/TR/xhtml1/DTD/xhtml-symbol.ent
+
+Then you can progress through any remaining notable Unicode characters
+in the range 0x2000-0x204D (consult the character tables at
+www.unicode.org), and whatever else strikes your fancy.  For example,
+in F<xhtml-symbol.ent>, there is the entry:
+
+  <!ENTITY infin    "&#8734;"> <!-- infinity, U+221E ISOtech -->
+
+While the mapping "infin" to the character "\x{221E}" will (hopefully)
+have been already handled by the Pod parser, the presence of the
+character in this file means that it's reasonably important enough to
+include in a formatter's table that maps from notable Unicode characters
+to the codes necessary for rendering them.  So for a Unicode-to-*roff
+mapping, for example, this would merit the entry:
+
+  "\x{221E}" => '\(in',
+
+It is eagerly hoped that in the future, increasing numbers of formats
+(and formatters) will support Unicode characters directly (as (X)HTML
+does with C<&infin;>, C<&#8734;>, or C<&#x221E;>), reducing the need
+for idiosyncratic mappings of Unicode-to-I<my_escapes>.
+
+=item *
+
+It is up to individual Pod formatter to display good judgement when
+confronted with an unrenderable character (which is distinct from an
+unknown EE<lt>thing> sequence that the parser couldn't resolve to
+anything, renderable or not).  It is good practice to map Latin letters
+with diacritics (like "EE<lt>eacute>"/"EE<lt>233>") to the corresponding
+unaccented US-ASCII letters (like a simple character 101, "e"), but
+clearly this is often not feasible, and an unrenderable character may
+be represented as "?", or the like.  In attempting a sane fallback
+(as from EE<lt>233> to "e"), Pod formatters may use the
+%Latin1Code_to_fallback table in L<Pod::Escapes|Pod::Escapes>, or
+L<Text::Unidecode|Text::Unidecode>, if available.
+
+For example, this Pod text:
+
+  magic is enabled if you set C<$Currency> to 'E<euro>'.
+
+may be rendered as:
+"magic is enabled if you set C<$Currency> to 'I<?>'" or as
+"magic is enabled if you set C<$Currency> to 'B<[euro]>'", or as
+"magic is enabled if you set C<$Currency> to '[x20AC]', etc.
+
+A Pod formatter may also note, in a comment or warning, a list of what
+unrenderable characters were encountered.
+
+=item *
+
+EE<lt>...> may freely appear in any formatting code (other than
+in another EE<lt>...> or in an ZE<lt>>).  That is, "XE<lt>The
+EE<lt>euro>1,000,000 Solution>" is valid, as is "LE<lt>The
+EE<lt>euro>1,000,000 Solution|Million::Euros>".
+
+=item *
+
+Some Pod formatters output to formats that implement non-breaking
+spaces as an individual character (which I'll call "NBSP"), and
+others output to formats that implement non-breaking spaces just as
+spaces wrapped in a "don't break this across lines" code.  Note that
+at the level of Pod, both sorts of codes can occur: Pod can contain a
+NBSP character (whether as a literal, or as a "EE<lt>160>" or
+"EE<lt>nbsp>" code); and Pod can contain "SE<lt>foo
+IE<lt>barE<gt> baz>" codes, where "mere spaces" (character 32) in
+such codes are taken to represent non-breaking spaces.  Pod
+parsers should consider supporting the optional parsing of "SE<lt>foo
+IE<lt>barE<gt> baz>" as if it were
+"fooI<NBSP>IE<lt>barE<gt>I<NBSP>baz", and, going the other way, the
+optional parsing of groups of words joined by NBSP's as if each group
+were in a SE<lt>...> code, so that formatters may use the
+representation that maps best to what the output format demands.
+
+=item *
+
+Some processors may find that the C<SE<lt>...E<gt>> code is easiest to
+implement by replacing each space in the parse tree under the content
+of the S, with an NBSP.  But note: the replacement should apply I<not> to
+spaces in I<all> text, but I<only> to spaces in I<printable> text.  (This
+distinction may or may not be evident in the particular tree/event
+model implemented by the Pod parser.)  For example, consider this
+unusual case:
+
+   S<L</Autoloaded Functions>>
+
+This means that the space in the middle of the visible link text must
+not be broken across lines.  In other words, it's the same as this:
+
+   L<"AutoloadedE<160>Functions"/Autoloaded Functions>
+
+However, a misapplied space-to-NBSP replacement could (wrongly)
+produce something equivalent to this:
+
+   L<"AutoloadedE<160>Functions"/AutoloadedE<160>Functions>
+
+...which is almost definitely not going to work as a hyperlink (assuming
+this formatter outputs a format supporting hypertext).
+
+Formatters may choose to just not support the S format code,
+especially in cases where the output format simply has no NBSP
+character/code and no code for "don't break this stuff across lines".
+
+=item *
+
+Besides the NBSP character discussed above, implementors are reminded
+of the existence of the other "special" character in Latin-1, the
+"soft hyphen" character, also known as "discretionary hyphen",
+i.e. C<EE<lt>173E<gt>> = C<EE<lt>0xADE<gt>> =
+C<EE<lt>shyE<gt>>).  This character expresses an optional hyphenation
+point.  That is, it normally renders as nothing, but may render as a
+"-" if a formatter breaks the word at that point.  Pod formatters
+should, as appropriate, do one of the following:  1) render this with
+a code with the same meaning (e.g., "\-" in RTF), 2) pass it through
+in the expectation that the formatter understands this character as
+such, or 3) delete it.
+
+For example:
+
+  sigE<shy>action
+  manuE<shy>script
+  JarkE<shy>ko HieE<shy>taE<shy>nieE<shy>mi
+
+These signal to a formatter that if it is to hyphenate "sigaction"
+or "manuscript", then it should be done as
+"sig-I<[linebreak]>action" or "manu-I<[linebreak]>script"
+(and if it doesn't hyphenate it, then the C<EE<lt>shyE<gt>> doesn't
+show up at all).  And if it is
+to hyphenate "Jarkko" and/or "Hietaniemi", it can do
+so only at the points where there is a C<EE<lt>shyE<gt>> code.
+
+In practice, it is anticipated that this character will not be used
+often, but formatters should either support it, or delete it.
+
+=item *
+
+If you think that you want to add a new command to Pod (like, say, a
+"=biblio" command), consider whether you could get the same
+effect with a for or begin/end sequence: "=for biblio ..." or "=begin
+biblio" ... "=end biblio".  Pod processors that don't understand
+"=for biblio", etc, will simply ignore it, whereas they may complain
+loudly if they see "=biblio".
+
+=item *
+
+Throughout this document, "Pod" has been the preferred spelling for
+the name of the documentation format.  One may also use "POD" or
+"pod".  For the documentation that is (typically) in the Pod
+format, you may use "pod", or "Pod", or "POD".  Understanding these
+distinctions is useful; but obsessing over how to spell them, usually
+is not.
+
+=back
+
+
+
+
+
+=head1 About LE<lt>...E<gt> Codes
+
+As you can tell from a glance at L<perlpod|perlpod>, the LE<lt>...>
+code is the most complex of the Pod formatting codes.  The points below
+will hopefully clarify what it means and how processors should deal
+with it.
+
+=over
+
+=item *
+
+In parsing an LE<lt>...> code, Pod parsers must distinguish at least
+four attributes:
+
+=over
+
+=item First:
+
+The link-text.  If there is none, this must be C<undef>.  (E.g., in
+"LE<lt>Perl Functions|perlfunc>", the link-text is "Perl Functions".
+In "LE<lt>Time::HiRes>" and even "LE<lt>|Time::HiRes>", there is no
+link text.  Note that link text may contain formatting.)
+
+=item Second:
+
+The possibly inferred link-text; i.e., if there was no real link
+text, then this is the text that we'll infer in its place.  (E.g., for
+"LE<lt>Getopt::Std>", the inferred link text is "Getopt::Std".)
+
+=item Third:
+
+The name or URL, or C<undef> if none.  (E.g., in "LE<lt>Perl
+Functions|perlfunc>", the name (also sometimes called the page)
+is "perlfunc".  In "LE<lt>/CAVEATS>", the name is C<undef>.)
+
+=item Fourth:
+
+The section (AKA "item" in older perlpods), or C<undef> if none.  E.g.,
+in "LE<lt>Getopt::Std/DESCRIPTIONE<gt>", "DESCRIPTION" is the section.  (Note
+that this is not the same as a manpage section like the "5" in "man 5
+crontab".  "Section Foo" in the Pod sense means the part of the text
+that's introduced by the heading or item whose text is "Foo".)
+
+=back
+
+Pod parsers may also note additional attributes including:
+
+=over
+
+=item Fifth:
+
+A flag for whether item 3 (if present) is a URL (like
+"http://lists.perl.org" is), in which case there should be no section
+attribute; a Pod name (like "perldoc" and "Getopt::Std" are); or
+possibly a man page name (like "crontab(5)" is).
+
+=item Sixth:
+
+The raw original LE<lt>...> content, before text is split on
+"|", "/", etc, and before EE<lt>...> codes are expanded.
+
+=back
+
+(The above were numbered only for concise reference below.  It is not
+a requirement that these be passed as an actual list or array.)
+
+For example:
+
+  L<Foo::Bar>
+    =>  undef,                         # link text
+        "Foo::Bar",                    # possibly inferred link text
+        "Foo::Bar",                    # name
+        undef,                         # section
+        'pod',                         # what sort of link
+        "Foo::Bar"                     # original content
+
+  L<Perlport's section on NL's|perlport/Newlines>
+    =>  "Perlport's section on NL's",  # link text
+        "Perlport's section on NL's",  # possibly inferred link text
+        "perlport",                    # name
+        "Newlines",                    # section
+        'pod',                         # what sort of link
+        "Perlport's section on NL's|perlport/Newlines"
+                                       # original content
+
+  L<perlport/Newlines>
+    =>  undef,                         # link text
+        '"Newlines" in perlport',      # possibly inferred link text
+        "perlport",                    # name
+        "Newlines",                    # section
+        'pod',                         # what sort of link
+        "perlport/Newlines"            # original content
+
+  L<crontab(5)/"DESCRIPTION">
+    =>  undef,                         # link text
+        '"DESCRIPTION" in crontab(5)', # possibly inferred link text
+        "crontab(5)",                  # name
+        "DESCRIPTION",                 # section
+        'man',                         # what sort of link
+        'crontab(5)/"DESCRIPTION"'     # original content
+
+  L</Object Attributes>
+    =>  undef,                         # link text
+        '"Object Attributes"',         # possibly inferred link text
+        undef,                         # name
+        "Object Attributes",           # section
+        'pod',                         # what sort of link
+        "/Object Attributes"           # original content
+
+  L<http://www.perl.org/>
+    =>  undef,                         # link text
+        "http://www.perl.org/",        # possibly inferred link text
+        "http://www.perl.org/",        # name
+        undef,                         # section
+        'url',                         # what sort of link
+        "http://www.perl.org/"         # original content
+
+  L<Perl.org|http://www.perl.org/>
+    =>  "Perl.org",                    # link text
+        "http://www.perl.org/",        # possibly inferred link text
+        "http://www.perl.org/",        # name
+        undef,                         # section
+        'url',                         # what sort of link
+        "Perl.org|http://www.perl.org/" # original content
+
+Note that you can distinguish URL-links from anything else by the
+fact that they match C<m/\A\w+:[^:\s]\S*\z/>.  So
+C<LE<lt>http://www.perl.comE<gt>> is a URL, but
+C<LE<lt>HTTP::ResponseE<gt>> isn't.
+
+=item *
+
+In case of LE<lt>...> codes with no "text|" part in them,
+older formatters have exhibited great variation in actually displaying
+the link or cross reference.  For example, LE<lt>crontab(5)> would render
+as "the C<crontab(5)> manpage", or "in the C<crontab(5)> manpage"
+or just "C<crontab(5)>".
+
+Pod processors must now treat "text|"-less links as follows:
+
+  L<name>         =>  L<name|name>
+  L</section>     =>  L<"section"|/section>
+  L<name/section> =>  L<"section" in name|name/section>
+
+=item *
+
+Note that section names might contain markup.  I.e., if a section
+starts with:
+
+  =head2 About the C<-M> Operator
+
+or with:
+
+  =item About the C<-M> Operator
+
+then a link to it would look like this:
+
+  L<somedoc/About the C<-M> Operator>
+
+Formatters may choose to ignore the markup for purposes of resolving
+the link and use only the renderable characters in the section name,
+as in:
+
+  <h1><a name="About_the_-M_Operator">About the <code>-M</code>
+  Operator</h1>
+
+  ...
+
+  <a href="somedoc#About_the_-M_Operator">About the <code>-M</code>
+  Operator" in somedoc</a>
+
+=item *
+
+Previous versions of perlpod distinguished C<LE<lt>name/"section"E<gt>>
+links from C<LE<lt>name/itemE<gt>> links (and their targets).  These
+have been merged syntactically and semantically in the current
+specification, and I<section> can refer either to a "=headI<n> Heading
+Content" command or to a "=item Item Content" command.  This
+specification does not specify what behavior should be in the case
+of a given document having several things all seeming to produce the
+same I<section> identifier (e.g., in HTML, several things all producing
+the same I<anchorname> in <a name="I<anchorname>">...</a>
+elements).  Where Pod processors can control this behavior, they should
+use the first such anchor.  That is, C<LE<lt>Foo/BarE<gt>> refers to the
+I<first> "Bar" section in Foo.
+
+But for some processors/formats this cannot be easily controlled; as
+with the HTML example, the behavior of multiple ambiguous
+<a name="I<anchorname>">...</a> is most easily just left up to
+browsers to decide.
+
+=item *
+
+In a C<LE<lt>text|...E<gt>> code, text may contain formatting codes
+for formatting or for EE<lt>...> escapes, as in:
+
+  L<B<ummE<234>stuff>|...>
+
+For C<LE<lt>...E<gt>> codes without a "name|" part, only
+C<EE<lt>...E<gt>> and C<ZE<lt>E<gt>> codes may occur.  That is,
+authors should not use "C<LE<lt>BE<lt>Foo::BarE<gt>E<gt>>".
+
+Note, however, that formatting codes and ZE<lt>>'s can occur in any
+and all parts of an LE<lt>...> (i.e., in I<name>, I<section>, I<text>,
+and I<url>).
+
+Authors must not nest LE<lt>...> codes.  For example, "LE<lt>The
+LE<lt>Foo::Bar> man page>" should be treated as an error.
+
+=item *
+
+Note that Pod authors may use formatting codes inside the "text"
+part of "LE<lt>text|name>" (and so on for LE<lt>text|/"sec">).
+
+In other words, this is valid:
+
+  Go read L<the docs on C<$.>|perlvar/"$.">
+
+Some output formats that do allow rendering "LE<lt>...>" codes as
+hypertext, might not allow the link-text to be formatted; in
+that case, formatters will have to just ignore that formatting.
+
+=item *
+
+At time of writing, C<LE<lt>nameE<gt>> values are of two types:
+either the name of a Pod page like C<LE<lt>Foo::BarE<gt>> (which
+might be a real Perl module or program in an @INC / PATH
+directory, or a .pod file in those places); or the name of a Unix
+man page, like C<LE<lt>crontab(5)E<gt>>.  In theory, C<LE<lt>chmodE<gt>>
+is ambiguous between a Pod page called "chmod", or the Unix man page
+"chmod" (in whatever man-section).  However, the presence of a string
+in parens, as in "crontab(5)", is sufficient to signal that what
+is being discussed is not a Pod page, and so is presumably a
+Unix man page.  The distinction is of no importance to many
+Pod processors, but some processors that render to hypertext formats
+may need to distinguish them in order to know how to render a
+given C<LE<lt>fooE<gt>> code.
+
+=item *
+
+Previous versions of perlpod allowed for a C<LE<lt>sectionE<gt>> syntax (as in
+C<LE<lt>Object AttributesE<gt>>), which was not easily distinguishable from
+C<LE<lt>nameE<gt>> syntax and for C<LE<lt>"section"E<gt>> which was only
+slightly less ambiguous.  This syntax is no longer in the specification, and
+has been replaced by the C<LE<lt>/sectionE<gt>> syntax (where the slash was
+formerly optional).  Pod parsers should tolerate the C<LE<lt>"section"E<gt>>
+syntax, for a while at least.  The suggested heuristic for distinguishing
+C<LE<lt>sectionE<gt>> from C<LE<lt>nameE<gt>> is that if it contains any
+whitespace, it's a I<section>.  Pod processors should warn about this being
+deprecated syntax.
+
+=back
+
+=head1 About =over...=back Regions
+
+"=over"..."=back" regions are used for various kinds of list-like
+structures.  (I use the term "region" here simply as a collective
+term for everything from the "=over" to the matching "=back".)
+
+=over
+
+=item *
+
+The non-zero numeric I<indentlevel> in "=over I<indentlevel>" ...
+"=back" is used for giving the formatter a clue as to how many
+"spaces" (ems, or roughly equivalent units) it should tab over,
+although many formatters will have to convert this to an absolute
+measurement that may not exactly match with the size of spaces (or M's)
+in the document's base font.  Other formatters may have to completely
+ignore the number.  The lack of any explicit I<indentlevel> parameter is
+equivalent to an I<indentlevel> value of 4.  Pod processors may
+complain if I<indentlevel> is present but is not a positive number
+matching C<m/\A(\d*\.)?\d+\z/>.
+
+=item *
+
+Authors of Pod formatters are reminded that "=over" ... "=back" may
+map to several different constructs in your output format.  For
+example, in converting Pod to (X)HTML, it can map to any of
+<ul>...</ul>, <ol>...</ol>, <dl>...</dl>, or
+<blockquote>...</blockquote>.  Similarly, "=item" can map to <li> or
+<dt>.
+
+=item *
+
+Each "=over" ... "=back" region should be one of the following:
+
+=over
+
+=item *
+
+An "=over" ... "=back" region containing only "=item *" commands,
+each followed by some number of ordinary/verbatim paragraphs, other
+nested "=over" ... "=back" regions, "=for..." paragraphs, and
+"=begin"..."=end" regions.
+
+(Pod processors must tolerate a bare "=item" as if it were "=item
+*".)  Whether "*" is rendered as a literal asterisk, an "o", or as
+some kind of real bullet character, is left up to the Pod formatter,
+and may depend on the level of nesting.
+
+=item *
+
+An "=over" ... "=back" region containing only
+C<m/\A=item\s+\d+\.?\s*\z/> paragraphs, each one (or each group of them)
+followed by some number of ordinary/verbatim paragraphs, other nested
+"=over" ... "=back" regions, "=for..." paragraphs, and/or
+"=begin"..."=end" codes.  Note that the numbers must start at 1
+in each section, and must proceed in order and without skipping
+numbers.
+
+(Pod processors must tolerate lines like "=item 1" as if they were
+"=item 1.", with the period.)
+
+=item *
+
+An "=over" ... "=back" region containing only "=item [text]"
+commands, each one (or each group of them) followed by some number of
+ordinary/verbatim paragraphs, other nested "=over" ... "=back"
+regions, or "=for..." paragraphs, and "=begin"..."=end" regions.
+
+The "=item [text]" paragraph should not match
+C<m/\A=item\s+\d+\.?\s*\z/> or C<m/\A=item\s+\*\s*\z/>, nor should it
+match just C<m/\A=item\s*\z/>.
+
+=item *
+
+An "=over" ... "=back" region containing no "=item" paragraphs at
+all, and containing only some number of 
+ordinary/verbatim paragraphs, and possibly also some nested "=over"
+... "=back" regions, "=for..." paragraphs, and "=begin"..."=end"
+regions.  Such an itemless "=over" ... "=back" region in Pod is
+equivalent in meaning to a "<blockquote>...</blockquote>" element in
+HTML.
+
+=back
+
+Note that with all the above cases, you can determine which type of
+"=over" ... "=back" you have, by examining the first (non-"=cut", 
+non-"=pod") Pod paragraph after the "=over" command.
+
+=item *
+
+Pod formatters I<must> tolerate arbitrarily large amounts of text
+in the "=item I<text...>" paragraph.  In practice, most such
+paragraphs are short, as in:
+
+  =item For cutting off our trade with all parts of the world
+
+But they may be arbitrarily long:
+
+  =item For transporting us beyond seas to be tried for pretended
+  offenses
+
+  =item He is at this time transporting large armies of foreign
+  mercenaries to complete the works of death, desolation and
+  tyranny, already begun with circumstances of cruelty and perfidy
+  scarcely paralleled in the most barbarous ages, and totally
+  unworthy the head of a civilized nation.
+
+=item *
+
+Pod processors should tolerate "=item *" / "=item I<number>" commands
+with no accompanying paragraph.  The middle item is an example:
+
+  =over
+
+  =item 1
+
+  Pick up dry cleaning.
+
+  =item 2
+
+  =item 3
+
+  Stop by the store.  Get Abba Zabas, Stoli, and cheap lawn chairs.
+
+  =back
+
+=item *
+
+No "=over" ... "=back" region can contain headings.  Processors may
+treat such a heading as an error.
+
+=item *
+
+Note that an "=over" ... "=back" region should have some
+content.  That is, authors should not have an empty region like this:
+
+  =over
+
+  =back
+
+Pod processors seeing such a contentless "=over" ... "=back" region,
+may ignore it, or may report it as an error.
+
+=item *
+
+Processors must tolerate an "=over" list that goes off the end of the
+document (i.e., which has no matching "=back"), but they may warn
+about such a list.
+
+=item *
+
+Authors of Pod formatters should note that this construct:
+
+  =item Neque
+
+  =item Porro
+
+  =item Quisquam Est
+
+  Qui dolorem ipsum quia dolor sit amet, consectetur, adipisci 
+  velit, sed quia non numquam eius modi tempora incidunt ut
+  labore et dolore magnam aliquam quaerat voluptatem.
+
+  =item Ut Enim
+
+is semantically ambiguous, in a way that makes formatting decisions
+a bit difficult.  On the one hand, it could be mention of an item
+"Neque", mention of another item "Porro", and mention of another
+item "Quisquam Est", with just the last one requiring the explanatory
+paragraph "Qui dolorem ipsum quia dolor..."; and then an item
+"Ut Enim".  In that case, you'd want to format it like so:
+
+  Neque
+
+  Porro
+
+  Quisquam Est
+    Qui dolorem ipsum quia dolor sit amet, consectetur, adipisci
+    velit, sed quia non numquam eius modi tempora incidunt ut
+    labore et dolore magnam aliquam quaerat voluptatem.
+
+  Ut Enim
+
+But it could equally well be a discussion of three (related or equivalent)
+items, "Neque", "Porro", and "Quisquam Est", followed by a paragraph
+explaining them all, and then a new item "Ut Enim".  In that case, you'd
+probably want to format it like so:
+
+  Neque
+  Porro
+  Quisquam Est
+    Qui dolorem ipsum quia dolor sit amet, consectetur, adipisci
+    velit, sed quia non numquam eius modi tempora incidunt ut
+    labore et dolore magnam aliquam quaerat voluptatem.
+
+  Ut Enim
+
+But (for the foreseeable future), Pod does not provide any way for Pod
+authors to distinguish which grouping is meant by the above
+"=item"-cluster structure.  So formatters should format it like so:
+
+  Neque
+
+  Porro
+
+  Quisquam Est
+
+    Qui dolorem ipsum quia dolor sit amet, consectetur, adipisci
+    velit, sed quia non numquam eius modi tempora incidunt ut
+    labore et dolore magnam aliquam quaerat voluptatem.
+
+  Ut Enim
+
+That is, there should be (at least roughly) equal spacing between
+items as between paragraphs (although that spacing may well be less
+than the full height of a line of text).  This leaves it to the reader
+to use (con)textual cues to figure out whether the "Qui dolorem
+ipsum..." paragraph applies to the "Quisquam Est" item or to all three
+items "Neque", "Porro", and "Quisquam Est".  While not an ideal
+situation, this is preferable to providing formatting cues that may
+be actually contrary to the author's intent.
+
+=back
+
+
+
+=head1 About Data Paragraphs and "=begin/=end" Regions
+
+Data paragraphs are typically used for inlining non-Pod data that is
+to be used (typically passed through) when rendering the document to
+a specific format:
+
+  =begin rtf
+
+  \par{\pard\qr\sa4500{\i Printed\~\chdate\~\chtime}\par}
+
+  =end rtf
+
+The exact same effect could, incidentally, be achieved with a single
+"=for" paragraph:
+
+  =for rtf \par{\pard\qr\sa4500{\i Printed\~\chdate\~\chtime}\par}
+
+(Although that is not formally a data paragraph, it has the same
+meaning as one, and Pod parsers may parse it as one.)
+
+Another example of a data paragraph:
+
+  =begin html
+
+  I like <em>PIE</em>!
+
+  <hr>Especially pecan pie!
+
+  =end html
+
+If these were ordinary paragraphs, the Pod parser would try to
+expand the "EE<lt>/em>" (in the first paragraph) as a formatting
+code, just like "EE<lt>lt>" or "EE<lt>eacute>".  But since this
+is in a "=begin I<identifier>"..."=end I<identifier>" region I<and>
+the identifier "html" doesn't begin have a ":" prefix, the contents
+of this region are stored as data paragraphs, instead of being
+processed as ordinary paragraphs (or if they began with a spaces
+and/or tabs, as verbatim paragraphs).
+
+As a further example: At time of writing, no "biblio" identifier is
+supported, but suppose some processor were written to recognize it as
+a way of (say) denoting a bibliographic reference (necessarily
+containing formatting codes in ordinary paragraphs).  The fact that
+"biblio" paragraphs were meant for ordinary processing would be
+indicated by prefacing each "biblio" identifier with a colon:
+
+  =begin :biblio
+
+  Wirth, Niklaus.  1976.  I<Algorithms + Data Structures =
+  Programs.>  Prentice-Hall, Englewood Cliffs, NJ.
+
+  =end :biblio
+
+This would signal to the parser that paragraphs in this begin...end
+region are subject to normal handling as ordinary/verbatim paragraphs
+(while still tagged as meant only for processors that understand the
+"biblio" identifier).  The same effect could be had with:
+
+  =for :biblio
+  Wirth, Niklaus.  1976.  I<Algorithms + Data Structures =
+  Programs.>  Prentice-Hall, Englewood Cliffs, NJ.
+
+The ":" on these identifiers means simply "process this stuff
+normally, even though the result will be for some special target".
+I suggest that parser APIs report "biblio" as the target identifier,
+but also report that it had a ":" prefix.  (And similarly, with the
+above "html", report "html" as the target identifier, and note the
+I<lack> of a ":" prefix.)
+
+Note that a "=begin I<identifier>"..."=end I<identifier>" region where
+I<identifier> begins with a colon, I<can> contain commands.  For example:
+
+  =begin :biblio
+
+  Wirth's classic is available in several editions, including:
+
+  =for comment
+   hm, check abebooks.com for how much used copies cost.
+
+  =over
+
+  =item
+
+  Wirth, Niklaus.  1975.  I<Algorithmen und Datenstrukturen.>
+  Teubner, Stuttgart.  [Yes, it's in German.]
+
+  =item
+
+  Wirth, Niklaus.  1976.  I<Algorithms + Data Structures =
+  Programs.>  Prentice-Hall, Englewood Cliffs, NJ.
+
+  =back
+
+  =end :biblio
+
+Note, however, a "=begin I<identifier>"..."=end I<identifier>"
+region where I<identifier> does I<not> begin with a colon, should not
+directly contain "=head1" ... "=head4" commands, nor "=over", nor "=back",
+nor "=item".  For example, this may be considered invalid:
+
+  =begin somedata
+
+  This is a data paragraph.
+
+  =head1 Don't do this!
+
+  This is a data paragraph too.
+
+  =end somedata
+
+A Pod processor may signal that the above (specifically the "=head1"
+paragraph) is an error.  Note, however, that the following should
+I<not> be treated as an error:
+
+  =begin somedata
+
+  This is a data paragraph.
+
+  =cut
+
+  # Yup, this isn't Pod anymore.
+  sub excl { (rand() > .5) ? "hoo!" : "hah!" }
+
+  =pod
+
+  This is a data paragraph too.
+
+  =end somedata
+
+And this too is valid:
+
+  =begin someformat
+
+  This is a data paragraph.
+
+    And this is a data paragraph.
+
+  =begin someotherformat
+
+  This is a data paragraph too.
+
+    And this is a data paragraph too.
+
+  =begin :yetanotherformat
+
+  =head2 This is a command paragraph!
+
+  This is an ordinary paragraph!
+
+    And this is a verbatim paragraph!
+
+  =end :yetanotherformat
+
+  =end someotherformat
+
+  Another data paragraph!
+
+  =end someformat
+
+The contents of the above "=begin :yetanotherformat" ...
+"=end :yetanotherformat" region I<aren't> data paragraphs, because
+the immediately containing region's identifier (":yetanotherformat")
+begins with a colon.  In practice, most regions that contain
+data paragraphs will contain I<only> data paragraphs; however, 
+the above nesting is syntactically valid as Pod, even if it is
+rare.  However, the handlers for some formats, like "html",
+will accept only data paragraphs, not nested regions; and they may
+complain if they see (targeted for them) nested regions, or commands,
+other than "=end", "=pod", and "=cut".
+
+Also consider this valid structure:
+
+  =begin :biblio
+
+  Wirth's classic is available in several editions, including:
+
+  =over
+
+  =item
+
+  Wirth, Niklaus.  1975.  I<Algorithmen und Datenstrukturen.>
+  Teubner, Stuttgart.  [Yes, it's in German.]
+
+  =item
+
+  Wirth, Niklaus.  1976.  I<Algorithms + Data Structures =
+  Programs.>  Prentice-Hall, Englewood Cliffs, NJ.
+
+  =back
+
+  Buy buy buy!
+
+  =begin html
+
+  <img src='wirth_spokesmodeling_book.png'>
+
+  <hr>
+
+  =end html
+
+  Now now now!
+
+  =end :biblio
+
+There, the "=begin html"..."=end html" region is nested inside
+the larger "=begin :biblio"..."=end :biblio" region.  Note that the
+content of the "=begin html"..."=end html" region is data
+paragraph(s), because the immediately containing region's identifier
+("html") I<doesn't> begin with a colon.
+
+Pod parsers, when processing a series of data paragraphs one
+after another (within a single region), should consider them to
+be one large data paragraph that happens to contain blank lines.  So
+the content of the above "=begin html"..."=end html" I<may> be stored
+as two data paragraphs (one consisting of
+"<img src='wirth_spokesmodeling_book.png'>\n"
+and another consisting of "<hr>\n"), but I<should> be stored as
+a single data paragraph (consisting of 
+"<img src='wirth_spokesmodeling_book.png'>\n\n<hr>\n").
+
+Pod processors should tolerate empty
+"=begin I<something>"..."=end I<something>" regions,
+empty "=begin :I<something>"..."=end :I<something>" regions, and
+contentless "=for I<something>" and "=for :I<something>"
+paragraphs.  I.e., these should be tolerated:
+
+  =for html
+
+  =begin html
+
+  =end html
+
+  =begin :biblio
+
+  =end :biblio
+
+Incidentally, note that there's no easy way to express a data
+paragraph starting with something that looks like a command.  Consider:
+
+  =begin stuff
+
+  =shazbot
+
+  =end stuff
+
+There, "=shazbot" will be parsed as a Pod command "shazbot", not as a data
+paragraph "=shazbot\n".  However, you can express a data paragraph consisting
+of "=shazbot\n" using this code:
+
+  =for stuff =shazbot
+
+The situation where this is necessary, is presumably quite rare.
+
+Note that =end commands must match the currently open =begin command.  That
+is, they must properly nest.  For example, this is valid:
+
+  =begin outer
+
+  X
+
+  =begin inner
+
+  Y
+
+  =end inner
+
+  Z
+
+  =end outer
+
+while this is invalid:
+
+  =begin outer
+
+  X
+
+  =begin inner
+
+  Y
+
+  =end outer
+
+  Z
+
+  =end inner
+
+This latter is improper because when the "=end outer" command is seen, the
+currently open region has the formatname "inner", not "outer".  (It just
+happens that "outer" is the format name of a higher-up region.)  This is
+an error.  Processors must by default report this as an error, and may halt
+processing the document containing that error.  A corollary of this is that
+regions cannot "overlap". That is, the latter block above does not represent
+a region called "outer" which contains X and Y, overlapping a region called
+"inner" which contains Y and Z.  But because it is invalid (as all
+apparently overlapping regions would be), it doesn't represent that, or
+anything at all.
+
+Similarly, this is invalid:
+
+  =begin thing
+
+  =end hting
+
+This is an error because the region is opened by "thing", and the "=end"
+tries to close "hting" [sic].
+
+This is also invalid:
+
+  =begin thing
+
+  =end
+
+This is invalid because every "=end" command must have a formatname
+parameter.
+
+=head1 SEE ALSO
+
+L<perlpod>, L<perlsyn/"PODs: Embedded Documentation">,
+L<podchecker>
+
+=head1 AUTHOR
+
+Sean M. Burke
+
+=cut
+
+
diff --git a/lib/5.24.1/pod/perlpodstyle.pod b/lib/5.24.1/pod/perlpodstyle.pod
new file mode 100644
index 00000000..22524a96
--- /dev/null
+++ b/lib/5.24.1/pod/perlpodstyle.pod
@@ -0,0 +1,297 @@
+=head1 NAME
+
+perlpodstyle - Perl POD style guide
+
+=head1 DESCRIPTION
+
+These are general guidelines for how to write POD documentation for Perl
+scripts and modules, based on general guidelines for writing good UNIX man
+pages.  All of these guidelines are, of course, optional, but following
+them will make your documentation more consistent with other documentation
+on the system.
+
+The name of the program being documented is conventionally written in bold
+(using BE<lt>E<gt>) wherever it occurs, as are all program options.
+Arguments should be written in italics (IE<lt>E<gt>).  Function names are
+traditionally written in italics; if you write a function as function(),
+Pod::Man will take care of this for you.  Literal code or commands should
+be in CE<lt>E<gt>.  References to other man pages should be in the form
+C<manpage(section)> or C<LE<lt>manpage(section)E<gt>>, and Pod::Man will
+automatically format those appropriately.  The second form, with
+LE<lt>E<gt>, is used to request that a POD formatter make a link to the
+man page if possible.  As an exception, one normally omits the section
+when referring to module documentation since it's not clear what section
+module documentation will be in; use C<LE<lt>Module::NameE<gt>> for module
+references instead.
+
+References to other programs or functions are normally in the form of man
+page references so that cross-referencing tools can provide the user with
+links and the like.  It's possible to overdo this, though, so be careful not
+to clutter your documentation with too much markup.  References to other
+programs that are not given as man page references should be enclosed in
+BE<lt>E<gt>.
+
+The major headers should be set out using a C<=head1> directive, and are
+historically written in the rather startling ALL UPPER CASE format; this
+is not mandatory, but it's strongly recommended so that sections have
+consistent naming across different software packages.  Minor headers may
+be included using C<=head2>, and are typically in mixed case.
+
+The standard sections of a manual page are:
+
+=over 4
+
+=item NAME
+
+Mandatory section; should be a comma-separated list of programs or
+functions documented by this POD page, such as:
+
+    foo, bar - programs to do something
+
+Manual page indexers are often extremely picky about the format of this
+section, so don't put anything in it except this line.  Every program or
+function documented by this POD page should be listed, separated by a
+comma and a space.  For a Perl module, just give the module name.  A
+single dash, and only a single dash, should separate the list of programs
+or functions from the description.  Do not use any markup such as
+CE<lt>E<gt> or BE<lt>E<gt> anywhere in this line.  Functions should not be
+qualified with C<()> or the like.  The description should ideally fit on a
+single line, even if a man program replaces the dash with a few tabs.
+
+=item SYNOPSIS
+
+A short usage summary for programs and functions.  This section is
+mandatory for section 3 pages.  For Perl module documentation, it's
+usually convenient to have the contents of this section be a verbatim
+block showing some (brief) examples of typical ways the module is used.
+
+=item DESCRIPTION
+
+Extended description and discussion of the program or functions, or the
+body of the documentation for man pages that document something else.  If
+particularly long, it's a good idea to break this up into subsections
+C<=head2> directives like:
+
+    =head2 Normal Usage
+
+    =head2 Advanced Features
+
+    =head2 Writing Configuration Files
+
+or whatever is appropriate for your documentation.
+
+For a module, this is generally where the documentation of the interfaces
+provided by the module goes, usually in the form of a list with an
+C<=item> for each interface.  Depending on how many interfaces there are,
+you may want to put that documentation in separate METHODS, FUNCTIONS,
+CLASS METHODS, or INSTANCE METHODS sections instead and save the
+DESCRIPTION section for an overview.
+
+=item OPTIONS
+
+Detailed description of each of the command-line options taken by the
+program.  This should be separate from the description for the use of
+parsers like L<Pod::Usage>.  This is normally presented as a list, with
+each option as a separate C<=item>.  The specific option string should be
+enclosed in BE<lt>E<gt>.  Any values that the option takes should be
+enclosed in IE<lt>E<gt>.  For example, the section for the option
+B<--section>=I<manext> would be introduced with:
+
+    =item B<--section>=I<manext>
+
+Synonymous options (like both the short and long forms) are separated by a
+comma and a space on the same C<=item> line, or optionally listed as their
+own item with a reference to the canonical name.  For example, since
+B<--section> can also be written as B<-s>, the above would be:
+
+    =item B<-s> I<manext>, B<--section>=I<manext>
+
+Writing the short option first is recommended because it's easier to read.
+The long option is long enough to draw the eye to it anyway and the short
+option can otherwise get lost in visual noise.
+
+=item RETURN VALUE
+
+What the program or function returns, if successful.  This section can be
+omitted for programs whose precise exit codes aren't important, provided
+they return 0 on success and non-zero on failure as is standard.  It
+should always be present for functions.  For modules, it may be useful to
+summarize return values from the module interface here, or it may be more
+useful to discuss return values separately in the documentation of each
+function or method the module provides.
+
+=item ERRORS
+
+Exceptions, error return codes, exit statuses, and errno settings.
+Typically used for function or module documentation; program documentation
+uses DIAGNOSTICS instead.  The general rule of thumb is that errors
+printed to C<STDOUT> or C<STDERR> and intended for the end user are
+documented in DIAGNOSTICS while errors passed internal to the calling
+program and intended for other programmers are documented in ERRORS.  When
+documenting a function that sets errno, a full list of the possible errno
+values should be given here.
+
+=item DIAGNOSTICS
+
+All possible messages the program can print out and what they mean.  You
+may wish to follow the same documentation style as the Perl documentation;
+see perldiag(1) for more details (and look at the POD source as well).
+
+If applicable, please include details on what the user should do to
+correct the error; documenting an error as indicating "the input buffer is
+too small" without telling the user how to increase the size of the input
+buffer (or at least telling them that it isn't possible) aren't very
+useful.
+
+=item EXAMPLES
+
+Give some example uses of the program or function.  Don't skimp; users
+often find this the most useful part of the documentation.  The examples
+are generally given as verbatim paragraphs.
+
+Don't just present an example without explaining what it does.  Adding a
+short paragraph saying what the example will do can increase the value of
+the example immensely.
+
+=item ENVIRONMENT
+
+Environment variables that the program cares about, normally presented as
+a list using C<=over>, C<=item>, and C<=back>.  For example:
+
+    =over 6
+
+    =item HOME
+
+    Used to determine the user's home directory.  F<.foorc> in this
+    directory is read for configuration details, if it exists.
+
+    =back
+
+Since environment variables are normally in all uppercase, no additional
+special formatting is generally needed; they're glaring enough as it is.
+
+=item FILES
+
+All files used by the program or function, normally presented as a list,
+and what it uses them for.  File names should be enclosed in FE<lt>E<gt>.
+It's particularly important to document files that will be potentially
+modified.
+
+=item CAVEATS
+
+Things to take special care with, sometimes called WARNINGS.
+
+=item BUGS
+
+Things that are broken or just don't work quite right.
+
+=item RESTRICTIONS
+
+Bugs you don't plan to fix.  :-)
+
+=item NOTES
+
+Miscellaneous commentary.
+
+=item AUTHOR
+
+Who wrote it (use AUTHORS for multiple people).  It's a good idea to
+include your current e-mail address (or some e-mail address to which bug
+reports should be sent) or some other contact information so that users
+have a way of contacting you.  Remember that program documentation tends
+to roam the wild for far longer than you expect and pick a contact method
+that's likely to last.
+
+=item HISTORY
+
+Programs derived from other sources sometimes have this.  Some people keep
+a modification log here, but that usually gets long and is normally better
+maintained in a separate file.
+
+=item COPYRIGHT AND LICENSE
+
+For copyright
+
+    Copyright YEAR(s) YOUR NAME(s)
+
+(No, (C) is not needed.  No, "all rights reserved" is not needed.)
+
+For licensing the easiest way is to use the same licensing as Perl itself:
+
+    This library is free software; you may redistribute it and/or
+    modify it under the same terms as Perl itself.
+
+This makes it easy for people to use your module with Perl.  Note that
+this licensing example is neither an endorsement or a requirement, you are
+of course free to choose any licensing.
+
+=item SEE ALSO
+
+Other man pages to check out, like man(1), man(7), makewhatis(8), or
+catman(8).  Normally a simple list of man pages separated by commas, or a
+paragraph giving the name of a reference work.  Man page references, if
+they use the standard C<name(section)> form, don't have to be enclosed in
+LE<lt>E<gt> (although it's recommended), but other things in this section
+probably should be when appropriate.
+
+If the package has a mailing list, include a URL or subscription
+instructions here.
+
+If the package has a web site, include a URL here.
+
+=back
+
+Documentation of object-oriented libraries or modules may want to use
+CONSTRUCTORS and METHODS sections, or CLASS METHODS and INSTANCE METHODS
+sections, for detailed documentation of the parts of the library and save
+the DESCRIPTION section for an overview.  Large modules with a function
+interface may want to use FUNCTIONS for similar reasons.  Some people use
+OVERVIEW to summarize the description if it's quite long.
+
+Section ordering varies, although NAME must always be the first section
+(you'll break some man page systems otherwise), and NAME, SYNOPSIS,
+DESCRIPTION, and OPTIONS generally always occur first and in that order if
+present.  In general, SEE ALSO, AUTHOR, and similar material should be
+left for last.  Some systems also move WARNINGS and NOTES to last.  The
+order given above should be reasonable for most purposes.
+
+Some systems use CONFORMING TO to note conformance to relevant standards
+and MT-LEVEL to note safeness for use in threaded programs or signal
+handlers.  These headings are primarily useful when documenting parts of a
+C library.
+
+Finally, as a general note, try not to use an excessive amount of markup.
+As documented here and in L<Pod::Man>, you can safely leave Perl
+variables, function names, man page references, and the like unadorned by
+markup and the POD translators will figure it out for you.  This makes it
+much easier to later edit the documentation.  Note that many existing
+translators will do the wrong thing with e-mail addresses when wrapped in
+LE<lt>E<gt>, so don't do that.
+
+=head1 SEE ALSO
+
+For additional information that may be more accurate for your specific
+system, see either L<man(5)> or L<man(7)> depending on your system manual
+section numbering conventions.
+
+This documentation is maintained as part of the podlators distribution.
+The current version is always available from its web site at
+<http://www.eyrie.org/~eagle/software/podlators/>.
+
+=head1 AUTHOR
+
+Russ Allbery <rra@cpan.org>, with large portions of this documentation
+taken from the documentation of the original B<pod2man> implementation by
+Larry Wall and Tom Christiansen.
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright 1999, 2000, 2001, 2004, 2006, 2008, 2010, 2015 Russ Allbery
+<rra@cpan.org>
+
+Copying and distribution of this file, with or without modification, are
+permitted in any medium without royalty provided the copyright notice and
+this notice are preserved.  This file is offered as-is, without any
+warranty.
+
+=cut
diff --git a/lib/5.24.1/pod/perlpolicy.pod b/lib/5.24.1/pod/perlpolicy.pod
new file mode 100644
index 00000000..ff841fc0
--- /dev/null
+++ b/lib/5.24.1/pod/perlpolicy.pod
@@ -0,0 +1,580 @@
+=encoding utf8
+
+=head1 NAME
+
+perlpolicy - Various and sundry policies and commitments related to the Perl core
+
+=head1 DESCRIPTION
+
+This document is the master document which records all written
+policies about how the Perl 5 Porters collectively develop and maintain
+the Perl core.
+
+=head1 GOVERNANCE
+
+=head2 Perl 5 Porters
+
+Subscribers to perl5-porters (the porters themselves) come in several flavours.
+Some are quiet curious lurkers, who rarely pitch in and instead watch
+the ongoing development to ensure they're forewarned of new changes or
+features in Perl.  Some are representatives of vendors, who are there
+to make sure that Perl continues to compile and work on their
+platforms.  Some patch any reported bug that they know how to fix,
+some are actively patching their pet area (threads, Win32, the regexp
+-engine), while others seem to do nothing but complain.  In other
+words, it's your usual mix of technical people.
+
+Over this group of porters presides Larry Wall.  He has the final word
+in what does and does not change in any of the Perl programming languages.
+These days, Larry spends most of his time on Perl 6, while Perl 5 is
+shepherded by a "pumpking", a porter responsible for deciding what
+goes into each release and ensuring that releases happen on a regular
+basis.
+
+Larry sees Perl development along the lines of the US government:
+there's the Legislature (the porters), the Executive branch (the
+-pumpking), and the Supreme Court (Larry).  The legislature can
+discuss and submit patches to the executive branch all they like, but
+the executive branch is free to veto them.  Rarely, the Supreme Court
+will side with the executive branch over the legislature, or the
+legislature over the executive branch.  Mostly, however, the
+legislature and the executive branch are supposed to get along and
+work out their differences without impeachment or court cases.
+
+You might sometimes see reference to Rule 1 and Rule 2.  Larry's power
+as Supreme Court is expressed in The Rules:
+
+=over 4
+
+=item 1
+
+Larry is always by definition right about how Perl should behave.
+This means he has final veto power on the core functionality.
+
+=item 2
+
+Larry is allowed to change his mind about any matter at a later date,
+regardless of whether he previously invoked Rule 1.
+
+=back
+
+Got that?  Larry is always right, even when he was wrong.  It's rare
+to see either Rule exercised, but they are often alluded to.
+
+=head1 MAINTENANCE AND SUPPORT
+
+Perl 5 is developed by a community, not a corporate entity. Every change
+contributed to the Perl core is the result of a donation. Typically, these
+donations are contributions of code or time by individual members of our
+community. On occasion, these donations come in the form of corporate
+or organizational sponsorship of a particular individual or project.
+
+As a volunteer organization, the commitments we make are heavily dependent
+on the goodwill and hard work of individuals who have no obligation to
+contribute to Perl.
+
+That being said, we value Perl's stability and security and have long
+had an unwritten covenant with the broader Perl community to support
+and maintain releases of Perl.
+
+This document codifies the support and maintenance commitments that
+the Perl community should expect from Perl's developers:
+
+=over
+
+=item *
+
+We "officially" support the two most recent stable release series.  5.20.x
+and earlier are now out of support.  As of the release of 5.26.0, we will
+"officially" end support for Perl 5.22.x, other than providing security
+updates as described below.
+
+=item *
+
+To the best of our ability, we will attempt to fix critical issues
+in the two most recent stable 5.x release series.  Fixes for the
+current release series take precedence over fixes for the previous
+release series.
+
+=item *
+
+To the best of our ability, we will provide "critical" security patches
+/ releases for any major version of Perl whose 5.x.0 release was within
+the past three years.  We can only commit to providing these for the
+most recent .y release in any 5.x.y series.
+
+=item *
+
+We will not provide security updates or bug fixes for development
+releases of Perl.
+
+=item *
+
+We encourage vendors to ship the most recent supported release of
+Perl at the time of their code freeze.
+
+=item *
+
+As a vendor, you may have a requirement to backport security fixes
+beyond our 3 year support commitment.  We can provide limited support and
+advice to you as you do so and, where possible will try to apply
+those patches to the relevant -maint branches in git, though we may or
+may not choose to make numbered releases or "official" patches
+available. See L<perlsec/SECURITY VULNERABILITY CONTACT INFORMATION>
+for details on how to begin that process.
+
+=back
+
+=head1 BACKWARD COMPATIBILITY AND DEPRECATION
+
+Our community has a long-held belief that backward-compatibility is a
+virtue, even when the functionality in question is a design flaw.
+
+We would all love to unmake some mistakes we've made over the past
+decades.  Living with every design error we've ever made can lead
+to painful stagnation.  Unwinding our mistakes is very, very
+difficult.  Doing so without actively harming our users is
+nearly impossible.
+
+Lately, ignoring or actively opposing compatibility with earlier versions
+of Perl has come into vogue.  Sometimes, a change is proposed which
+wants to usurp syntax which previously had another meaning.  Sometimes,
+a change wants to improve previously-crazy semantics.
+
+Down this road lies madness.
+
+Requiring end-user programmers to change just a few language constructs,
+even language constructs which no well-educated developer would ever
+intentionally use is tantamount to saying "you should not upgrade to
+a new release of Perl unless you have 100% test coverage and can do a
+full manual audit of your codebase."  If we were to have tools capable of
+reliably upgrading Perl source code from one version of Perl to another,
+this concern could be significantly mitigated.
+
+We want to ensure that Perl continues to grow and flourish in the coming
+years and decades, but not at the expense of our user community.
+
+Existing syntax and semantics should only be marked for destruction in
+very limited circumstances.  If they are believed to be very rarely used,
+stand in the way of actual improvement to the Perl language or perl
+interpreter, and if affected code can be easily updated to continue
+working, they may be considered for removal.  When in doubt, caution
+dictates that we will favor backward compatibility.  When a feature is
+deprecated, a statement of reasoning describing the decision process
+will be posted, and a link to it will be provided in the relevant
+perldelta documents.
+
+Using a lexical pragma to enable or disable legacy behavior should be
+considered when appropriate, and in the absence of any pragma legacy
+behavior should be enabled.  Which backward-incompatible changes are
+controlled implicitly by a 'use v5.x.y' is a decision which should be
+made by the pumpking in consultation with the community.
+
+Historically, we've held ourselves to a far higher standard than
+backward-compatibility -- bugward-compatibility.  Any accident of
+implementation or unintentional side-effect of running some bit of code
+has been considered to be a feature of the language to be defended with
+the same zeal as any other feature or functionality.  No matter how
+frustrating these unintentional features may be to us as we continue
+to improve Perl, these unintentional features often deserve our
+protection.  It is very important that existing software written in
+Perl continue to work correctly.  If end-user developers have adopted a
+bug as a feature, we need to treat it as such.
+
+New syntax and semantics which don't break existing language constructs
+and syntax have a much lower bar.  They merely need to prove themselves
+to be useful, elegant, well designed, and well tested.  In most cases,
+these additions will be marked as I<experimental> for some time.  See
+below for more on that.
+
+=head2 Terminology
+
+To make sure we're talking about the same thing when we discuss the removal
+of features or functionality from the Perl core, we have specific definitions
+for a few words and phrases.
+
+=over
+
+=item experimental
+
+If something in the Perl core is marked as B<experimental>, we may change
+its behaviour, deprecate or remove it without notice. While we'll always
+do our best to smooth the transition path for users of experimental
+features, you should contact the perl5-porters mailinglist if you find
+an experimental feature useful and want to help shape its future.
+
+Experimental features must be experimental in two stable releases before being
+marked non-experimental.  Experimental features will only have their
+experimental status revoked when they no longer have any design-changing bugs
+open against them and when they have remained unchanged in behavior for the
+entire length of a development cycle.  In other words, a feature present in
+v5.20.0 may be marked no longer experimental in v5.22.0 if and only if its
+behavior is unchanged throughout all of v5.21.
+
+=item deprecated
+
+If something in the Perl core is marked as B<deprecated>, we may remove it
+from the core in the future, though we might not.  Generally, backward
+incompatible changes will have deprecation warnings for two release
+cycles before being removed, but may be removed after just one cycle if
+the risk seems quite low or the benefits quite high.
+
+As of
+Perl 5.12, deprecated features and modules warn the user as they're used.
+When a module is deprecated, it will also be made available on CPAN.
+Installing it from CPAN will silence deprecation warnings for that module.
+
+If you use a deprecated feature or module and believe that its removal from
+the Perl core would be a mistake, please contact the perl5-porters
+mailinglist and plead your case.  We don't deprecate things without a good
+reason, but sometimes there's a counterargument we haven't considered.
+Historically, we did not distinguish between "deprecated" and "discouraged"
+features.
+
+=item discouraged
+
+From time to time, we may mark language constructs and features which we
+consider to have been mistakes as B<discouraged>.  Discouraged features
+aren't currently candidates for removal, but
+we may later deprecate them if they're found to stand in the way of a
+significant improvement to the Perl core.
+
+=item removed
+
+Once a feature, construct or module has been marked as deprecated, we
+may remove it from the Perl core.  Unsurprisingly,
+we say we've B<removed> these things.  When a module is removed, it will
+no longer ship with Perl, but will continue to be available on CPAN.
+
+=back
+
+=head1 MAINTENANCE BRANCHES
+
+New releases of maintenance branches should only contain changes that fall into
+one of the "acceptable" categories set out below, but must not contain any
+changes that fall into one of the "unacceptable" categories.  (For example, a
+fix for a crashing bug must not be included if it breaks binary compatibility.)
+
+It is not necessary to include every change meeting these criteria, and in
+general the focus should be on addressing security issues, crashing bugs,
+regressions and serious installation issues.  The temptation to include a
+plethora of minor changes that don't affect the installation or execution of
+perl (e.g. spelling corrections in documentation) should be resisted in order
+to reduce the overall risk of overlooking something.  The intention is to
+create maintenance releases which are both worthwhile and which users can have
+full confidence in the stability of.  (A secondary concern is to avoid burning
+out the maint-pumpking or overwhelming other committers voting on changes to be
+included (see L</"Getting changes into a maint branch"> below).)
+
+The following types of change may be considered acceptable, as long as they do
+not also fall into any of the "unacceptable" categories set out below:
+
+=over
+
+=item *
+
+Patches that fix CVEs or security issues.  These changes should
+be passed using the security reporting mechanism rather than applied
+directly; see L<perlsec/SECURITY VULNERABILITY CONTACT INFORMATION>.
+
+=item *
+
+Patches that fix crashing bugs, assertion failures and
+memory corruption but which do not otherwise change perl's
+functionality or negatively impact performance.
+
+=item *
+
+Patches that fix regressions in perl's behavior relative to previous
+releases, no matter how old the regression, since some people may
+upgrade from very old versions of perl to the latest version.
+
+=item *
+
+Patches that fix bugs in features that were new in the corresponding 5.x.0
+stable release.
+
+=item *
+
+Patches that fix anything which prevents or seriously impacts the build
+or installation of perl.
+
+=item *
+
+Portability fixes, such as changes to Configure and the files in
+the hints/ folder.
+
+=item *
+
+Minimal patches that fix platform-specific test failures.
+
+=item *
+
+Documentation updates that correct factual errors, explain significant
+bugs or deficiencies in the current implementation, or fix broken markup.
+
+=item *
+
+Updates to dual-life modules should consist of minimal patches to
+fix crashing bugs or security issues (as above).  Any changes made to
+dual-life modules for which CPAN is canonical should be coordinated with
+the upstream author.
+
+=back
+
+The following types of change are NOT acceptable:
+
+=over
+
+=item *
+
+Patches that break binary compatibility.  (Please talk to a pumpking.)
+
+=item *
+
+Patches that add or remove features.
+
+=item *
+
+Patches that add new warnings or errors or deprecate features.
+
+=item *
+
+Ports of Perl to a new platform, architecture or OS release that
+involve changes to the implementation.
+
+=item *
+
+New versions of dual-life modules should NOT be imported into maint.
+Those belong in the next stable series.
+
+=back
+
+If there is any question about whether a given patch might merit
+inclusion in a maint release, then it almost certainly should not
+be included.
+
+=head2 Getting changes into a maint branch
+
+Historically, only the pumpking cherry-picked changes from bleadperl
+into maintperl.  This has scaling problems.  At the same time,
+maintenance branches of stable versions of Perl need to be treated with
+great care. To that end, as of Perl 5.12, we have a new process for
+maint branches.
+
+Any committer may cherry-pick any commit from blead to a maint branch if
+they send mail to perl5-porters announcing their intent to cherry-pick
+a specific commit along with a rationale for doing so and at least two
+other committers respond to the list giving their assent. (This policy
+applies to current and former pumpkings, as well as other committers.)
+
+Other voting mechanisms may be used instead, as long as the same number of
+votes is gathered in a transparent manner.  Specifically, proposals of
+which changes to cherry-pick must be visible to everyone on perl5-porters
+so that the views of everyone interested may be heard.
+
+It is not necessary for voting to be held on cherry-picking perldelta
+entries associated with changes that have already been cherry-picked, nor
+for the maint-pumpking to obtain votes on changes required by the
+F<Porting/release_managers_guide.pod> where such changes can be applied by
+the means of cherry-picking from blead.
+
+=head1 CONTRIBUTED MODULES
+
+
+=head2 A Social Contract about Artistic Control
+
+What follows is a statement about artistic control, defined as the ability
+of authors of packages to guide the future of their code and maintain
+control over their work.  It is a recognition that authors should have
+control over their work, and that it is a responsibility of the rest of
+the Perl community to ensure that they retain this control.  It is an
+attempt to document the standards to which we, as Perl developers, intend
+to hold ourselves.  It is an attempt to write down rough guidelines about
+the respect we owe each other as Perl developers.
+
+This statement is not a legal contract.  This statement is not a legal
+document in any way, shape, or form.  Perl is distributed under the GNU
+Public License and under the Artistic License; those are the precise legal
+terms.  This statement isn't about the law or licenses.  It's about
+community, mutual respect, trust, and good-faith cooperation.
+
+We recognize that the Perl core, defined as the software distributed with
+the heart of Perl itself, is a joint project on the part of all of us.
+From time to time, a script, module, or set of modules (hereafter referred
+to simply as a "module") will prove so widely useful and/or so integral to
+the correct functioning of Perl itself that it should be distributed with
+the Perl core.  This should never be done without the author's explicit
+consent, and a clear recognition on all parts that this means the module
+is being distributed under the same terms as Perl itself.  A module author
+should realize that inclusion of a module into the Perl core will
+necessarily mean some loss of control over it, since changes may
+occasionally have to be made on short notice or for consistency with the
+rest of Perl.
+
+Once a module has been included in the Perl core, however, everyone
+involved in maintaining Perl should be aware that the module is still the
+property of the original author unless the original author explicitly
+gives up their ownership of it.  In particular:
+
+=over
+
+=item *
+
+The version of the module in the Perl core should still be considered the
+work of the original author.  All patches, bug reports, and so
+forth should be fed back to them.  Their development directions
+should be respected whenever possible.
+
+=item *
+
+Patches may be applied by the pumpkin holder without the explicit
+cooperation of the module author if and only if they are very minor,
+time-critical in some fashion (such as urgent security fixes), or if
+the module author cannot be reached.  Those patches must still be
+given back to the author when possible, and if the author decides on
+an alternate fix in their version, that fix should be strongly
+preferred unless there is a serious problem with it.  Any changes not
+endorsed by the author should be marked as such, and the contributor
+of the change acknowledged.
+
+=item *
+
+The version of the module distributed with Perl should, whenever
+possible, be the latest version of the module as distributed by the
+author (the latest non-beta version in the case of public Perl
+releases), although the pumpkin holder may hold off on upgrading the
+version of the module distributed with Perl to the latest version
+until the latest version has had sufficient testing.
+
+=back
+
+In other words, the author of a module should be considered to have final
+say on modifications to their module whenever possible (bearing in mind
+that it's expected that everyone involved will work together and arrive at
+reasonable compromises when there are disagreements).
+
+As a last resort, however:
+
+
+If the author's vision of the future of their module is sufficiently
+different from the vision of the pumpkin holder and perl5-porters as a
+whole so as to cause serious problems for Perl, the pumpkin holder may
+choose to formally fork the version of the module in the Perl core from the
+one maintained by the author.  This should not be done lightly and
+should B<always> if at all possible be done only after direct input
+from Larry.  If this is done, it must then be made explicit in the
+module as distributed with the Perl core that it is a forked version and
+that while it is based on the original author's work, it is no longer
+maintained by them.  This must be noted in both the documentation and
+in the comments in the source of the module.
+
+Again, this should be a last resort only.  Ideally, this should never
+happen, and every possible effort at cooperation and compromise should be
+made before doing this.  If it does prove necessary to fork a module for
+the overall health of Perl, proper credit must be given to the original
+author in perpetuity and the decision should be constantly re-evaluated to
+see if a remerging of the two branches is possible down the road.
+
+In all dealings with contributed modules, everyone maintaining Perl should
+keep in mind that the code belongs to the original author, that they may
+not be on perl5-porters at any given time, and that a patch is not
+official unless it has been integrated into the author's copy of the
+module.  To aid with this, and with points #1, #2, and #3 above, contact
+information for the authors of all contributed modules should be kept with
+the Perl distribution.
+
+Finally, the Perl community as a whole recognizes that respect for
+ownership of code, respect for artistic control, proper credit, and active
+effort to prevent unintentional code skew or communication gaps is vital
+to the health of the community and Perl itself.  Members of a community
+should not normally have to resort to rules and laws to deal with each
+other, and this document, although it contains rules so as to be clear, is
+about an attitude and general approach.  The first step in any dispute
+should be open communication, respect for opposing views, and an attempt
+at a compromise.  In nearly every circumstance nothing more will be
+necessary, and certainly no more drastic measure should be used until
+every avenue of communication and discussion has failed.
+
+
+=head1 DOCUMENTATION
+
+Perl's documentation is an important resource for our users. It's
+incredibly important for Perl's documentation to be reasonably coherent
+and to accurately reflect the current implementation.
+
+Just as P5P collectively maintains the codebase, we collectively
+maintain the documentation.  Writing a particular bit of documentation
+doesn't give an author control of the future of that documentation.
+At the same time, just as source code changes should match the style
+of their surrounding blocks, so should documentation changes.
+
+Examples in documentation should be illustrative of the concept
+they're explaining.  Sometimes, the best way to show how a
+language feature works is with a small program the reader can
+run without modification.  More often, examples will consist
+of a snippet of code containing only the "important" bits.
+The definition of "important" varies from snippet to snippet.
+Sometimes it's important to declare C<use strict> and C<use warnings>,
+initialize all variables and fully catch every error condition.
+More often than not, though, those things obscure the lesson
+the example was intended to teach.
+
+As Perl is developed by a global team of volunteers, our
+documentation often contains spellings which look funny
+to I<somebody>.  Choice of American/British/Other spellings
+is left as an exercise for the author of each bit of
+documentation.  When patching documentation, try to emulate
+the documentation around you, rather than changing the existing
+prose.
+
+In general, documentation should describe what Perl does "now" rather
+than what it used to do.  It's perfectly reasonable to include notes
+in documentation about how behaviour has changed from previous releases,
+but, with very few exceptions, documentation isn't "dual-life" --
+it doesn't need to fully describe how all old versions used to work.
+
+=head1 STANDARDS OF CONDUCT
+
+The official forum for the development of perl is the perl5-porters mailing
+list, mentioned above, and its bugtracker at rt.perl.org.  All participants in
+discussion there are expected to adhere to a standard of conduct.
+
+=over 4
+
+=item *
+
+Always be civil.
+
+=item * 
+
+Heed the moderators.
+
+=back
+
+Civility is simple:  stick to the facts while avoiding demeaning remarks and
+sarcasm.  It is not enough to be factual.  You must also be civil.  Responding
+in kind to incivility is not acceptable.
+
+While civility is required, kindness is encouraged; if you have any doubt about
+whether you are being civil, simply ask yourself, "Am I being kind?" and aspire
+to that.
+
+If the list moderators tell you that you are not being civil, carefully
+consider how your words have appeared before responding in any way.  Were they
+kind?  You may protest, but repeated protest in the face of a repeatedly
+reaffirmed decision is not acceptable.
+
+Unacceptable behavior will result in a public and clearly identified warning.
+Repeated unacceptable behavior will result in removal from the mailing list and
+revocation of rights to update rt.perl.org.  The first removal is for one
+month.  Subsequent removals will double in length.  After six months with no
+warning, a user's ban length is reset.  Removals, like warnings, are public.
+
+The list of moderators will be public knowledge.  At present, it is:
+Aaron Crane, Andy Dougherty, Ricardo Signes, Sawyer X, Steffen Müller.
+
+=head1 CREDITS
+
+"Social Contract about Contributed Modules" originally by Russ Allbery E<lt>rra@stanford.eduE<gt> and the perl5-porters.
+
diff --git a/lib/5.24.1/pod/perlport.pod b/lib/5.24.1/pod/perlport.pod
new file mode 100644
index 00000000..15d411c8
--- /dev/null
+++ b/lib/5.24.1/pod/perlport.pod
@@ -0,0 +1,2362 @@
+=head1 NAME
+
+perlport - Writing portable Perl
+
+=head1 DESCRIPTION
+
+Perl runs on numerous operating systems.  While most of them share
+much in common, they also have their own unique features.
+
+This document is meant to help you to find out what constitutes portable
+Perl code.  That way once you make a decision to write portably,
+you know where the lines are drawn, and you can stay within them.
+
+There is a tradeoff between taking full advantage of one particular
+type of computer and taking advantage of a full range of them.
+Naturally, as you broaden your range and become more diverse, the
+common factors drop, and you are left with an increasingly smaller
+area of common ground in which you can operate to accomplish a
+particular task.  Thus, when you begin attacking a problem, it is
+important to consider under which part of the tradeoff curve you
+want to operate.  Specifically, you must decide whether it is
+important that the task that you are coding has the full generality
+of being portable, or whether to just get the job done right now.
+This is the hardest choice to be made.  The rest is easy, because
+Perl provides many choices, whichever way you want to approach your
+problem.
+
+Looking at it another way, writing portable code is usually about
+willfully limiting your available choices.  Naturally, it takes
+discipline and sacrifice to do that.  The product of portability
+and convenience may be a constant.  You have been warned.
+
+Be aware of two important points:
+
+=over 4
+
+=item Not all Perl programs have to be portable
+
+There is no reason you should not use Perl as a language to glue Unix
+tools together, or to prototype a Macintosh application, or to manage the
+Windows registry.  If it makes no sense to aim for portability for one
+reason or another in a given program, then don't bother.
+
+=item Nearly all of Perl already I<is> portable
+
+Don't be fooled into thinking that it is hard to create portable Perl
+code.  It isn't.  Perl tries its level-best to bridge the gaps between
+what's available on different platforms, and all the means available to
+use those features.  Thus almost all Perl code runs on any machine
+without modification.  But there are some significant issues in
+writing portable code, and this document is entirely about those issues.
+
+=back
+
+Here's the general rule: When you approach a task commonly done
+using a whole range of platforms, think about writing portable
+code.  That way, you don't sacrifice much by way of the implementation
+choices you can avail yourself of, and at the same time you can give
+your users lots of platform choices.  On the other hand, when you have to
+take advantage of some unique feature of a particular platform, as is
+often the case with systems programming (whether for Unix, Windows,
+VMS, etc.), consider writing platform-specific code.
+
+When the code will run on only two or three operating systems, you
+may need to consider only the differences of those particular systems.
+The important thing is to decide where the code will run and to be
+deliberate in your decision.
+
+The material below is separated into three main sections: main issues of
+portability (L<"ISSUES">), platform-specific issues (L<"PLATFORMS">), and
+built-in Perl functions that behave differently on various ports
+(L<"FUNCTION IMPLEMENTATIONS">).
+
+This information should not be considered complete; it includes possibly
+transient information about idiosyncrasies of some of the ports, almost
+all of which are in a state of constant evolution.  Thus, this material
+should be considered a perpetual work in progress
+(C<< <IMG SRC="yellow_sign.gif" ALT="Under Construction"> >>).
+
+=head1 ISSUES
+
+=head2 Newlines
+
+In most operating systems, lines in files are terminated by newlines.
+Just what is used as a newline may vary from OS to OS.  Unix
+traditionally uses C<\012>, one type of DOSish I/O uses C<\015\012>,
+S<Mac OS> uses C<\015>, and z/OS uses C<\025>.
+
+Perl uses C<\n> to represent the "logical" newline, where what is
+logical may depend on the platform in use.  In MacPerl, C<\n> always
+means C<\015>.  On EBCDIC platforms, C<\n> could be C<\025> or C<\045>.
+In DOSish perls, C<\n> usually means C<\012>, but when
+accessing a file in "text" mode, perl uses the C<:crlf> layer that
+translates it to (or from) C<\015\012>, depending on whether you're
+reading or writing. Unix does the same thing on ttys in canonical
+mode.  C<\015\012> is commonly referred to as CRLF.
+
+To trim trailing newlines from text lines use C<chomp()>.  With default
+settings that function looks for a trailing C<\n> character and thus
+trims in a portable way.
+
+When dealing with binary files (or text files in binary mode) be sure
+to explicitly set $/ to the appropriate value for your file format
+before using C<chomp()>.
+
+Because of the "text" mode translation, DOSish perls have limitations
+in using C<seek> and C<tell> on a file accessed in "text" mode.
+Stick to C<seek>-ing to locations you got from C<tell> (and no
+others), and you are usually free to use C<seek> and C<tell> even
+in "text" mode.  Using C<seek> or C<tell> or other file operations
+may be non-portable.  If you use C<binmode> on a file, however, you
+can usually C<seek> and C<tell> with arbitrary values safely.
+
+A common misconception in socket programming is that S<C<\n eq \012>>
+everywhere.  When using protocols such as common Internet protocols,
+C<\012> and C<\015> are called for specifically, and the values of
+the logical C<\n> and C<\r> (carriage return) are not reliable.
+
+    print SOCKET "Hi there, client!\r\n";      # WRONG
+    print SOCKET "Hi there, client!\015\012";  # RIGHT
+
+However, using C<\015\012> (or C<\cM\cJ>, or C<\x0D\x0A>) can be tedious
+and unsightly, as well as confusing to those maintaining the code.  As
+such, the C<Socket> module supplies the Right Thing for those who want it.
+
+    use Socket qw(:DEFAULT :crlf);
+    print SOCKET "Hi there, client!$CRLF"      # RIGHT
+
+When reading from a socket, remember that the default input record
+separator C<$/> is C<\n>, but robust socket code will recognize as
+either C<\012> or C<\015\012> as end of line:
+
+    while (<SOCKET>) {  # NOT ADVISABLE!
+        # ...
+    }
+
+Because both CRLF and LF end in LF, the input record separator can
+be set to LF and any CR stripped later.  Better to write:
+
+    use Socket qw(:DEFAULT :crlf);
+    local($/) = LF;      # not needed if $/ is already \012
+
+    while (<SOCKET>) {
+        s/$CR?$LF/\n/;   # not sure if socket uses LF or CRLF, OK
+    #   s/\015?\012/\n/; # same thing
+    }
+
+This example is preferred over the previous one--even for Unix
+platforms--because now any C<\015>'s (C<\cM>'s) are stripped out
+(and there was much rejoicing).
+
+Similarly, functions that return text data--such as a function that
+fetches a web page--should sometimes translate newlines before
+returning the data, if they've not yet been translated to the local
+newline representation.  A single line of code will often suffice:
+
+    $data =~ s/\015?\012/\n/g;
+    return $data;
+
+Some of this may be confusing.  Here's a handy reference to the ASCII CR
+and LF characters.  You can print it out and stick it in your wallet.
+
+    LF  eq  \012  eq  \x0A  eq  \cJ  eq  chr(10)  eq  ASCII 10
+    CR  eq  \015  eq  \x0D  eq  \cM  eq  chr(13)  eq  ASCII 13
+
+             | Unix | DOS  | Mac  |
+        ---------------------------
+        \n   |  LF  |  LF  |  CR  |
+        \r   |  CR  |  CR  |  LF  |
+        \n * |  LF  | CRLF |  CR  |
+        \r * |  CR  |  CR  |  LF  |
+        ---------------------------
+        * text-mode STDIO
+
+The Unix column assumes that you are not accessing a serial line
+(like a tty) in canonical mode.  If you are, then CR on input becomes
+"\n", and "\n" on output becomes CRLF.
+
+These are just the most common definitions of C<\n> and C<\r> in Perl.
+There may well be others.  For example, on an EBCDIC implementation
+such as z/OS (OS/390) or OS/400 (using the ILE, the PASE is ASCII-based)
+the above material is similar to "Unix" but the code numbers change:
+
+    LF  eq  \025  eq  \x15  eq  \cU  eq  chr(21)  eq  CP-1047 21
+    LF  eq  \045  eq  \x25  eq           chr(37)  eq  CP-0037 37
+    CR  eq  \015  eq  \x0D  eq  \cM  eq  chr(13)  eq  CP-1047 13
+    CR  eq  \015  eq  \x0D  eq  \cM  eq  chr(13)  eq  CP-0037 13
+
+             | z/OS | OS/400 |
+        ----------------------
+        \n   |  LF  |  LF    |
+        \r   |  CR  |  CR    |
+        \n * |  LF  |  LF    |
+        \r * |  CR  |  CR    |
+        ----------------------
+        * text-mode STDIO
+
+=head2 Numbers endianness and Width
+
+Different CPUs store integers and floating point numbers in different
+orders (called I<endianness>) and widths (32-bit and 64-bit being the
+most common today).  This affects your programs when they attempt to transfer
+numbers in binary format from one CPU architecture to another,
+usually either "live" via network connection, or by storing the
+numbers to secondary storage such as a disk file or tape.
+
+Conflicting storage orders make an utter mess out of the numbers.  If a
+little-endian host (Intel, VAX) stores 0x12345678 (305419896 in
+decimal), a big-endian host (Motorola, Sparc, PA) reads it as
+0x78563412 (2018915346 in decimal).  Alpha and MIPS can be either:
+Digital/Compaq used/uses them in little-endian mode; SGI/Cray uses
+them in big-endian mode.  To avoid this problem in network (socket)
+connections use the C<pack> and C<unpack> formats C<n> and C<N>, the
+"network" orders.  These are guaranteed to be portable.
+
+As of Perl 5.10.0, you can also use the C<E<gt>> and C<E<lt>> modifiers
+to force big- or little-endian byte-order.  This is useful if you want
+to store signed integers or 64-bit integers, for example.
+
+You can explore the endianness of your platform by unpacking a
+data structure packed in native format such as:
+
+    print unpack("h*", pack("s2", 1, 2)), "\n";
+    # '10002000' on e.g. Intel x86 or Alpha 21064 in little-endian mode
+    # '00100020' on e.g. Motorola 68040
+
+If you need to distinguish between endian architectures you could use
+either of the variables set like so:
+
+    $is_big_endian   = unpack("h*", pack("s", 1)) =~ /01/;
+    $is_little_endian = unpack("h*", pack("s", 1)) =~ /^1/;
+
+Differing widths can cause truncation even between platforms of equal
+endianness.  The platform of shorter width loses the upper parts of the
+number.  There is no good solution for this problem except to avoid
+transferring or storing raw binary numbers.
+
+One can circumnavigate both these problems in two ways.  Either
+transfer and store numbers always in text format, instead of raw
+binary, or else consider using modules like C<Data::Dumper> and
+C<Storable>
+(included as of Perl 5.8).  Keeping all data as text significantly
+simplifies matters.
+
+=head2 Files and Filesystems
+
+Most platforms these days structure files in a hierarchical fashion.
+So, it is reasonably safe to assume that all platforms support the
+notion of a "path" to uniquely identify a file on the system.  How
+that path is really written, though, differs considerably.
+
+Although similar, file path specifications differ between Unix,
+Windows, S<Mac OS>, OS/2, VMS, VOS, S<RISC OS>, and probably others.
+Unix, for example, is one of the few OSes that has the elegant idea
+of a single root directory.
+
+DOS, OS/2, VMS, VOS, and Windows can work similarly to Unix with C</>
+as path separator, or in their own idiosyncratic ways (such as having
+several root directories and various "unrooted" device files such NIL:
+and LPT:).
+
+S<Mac OS> 9 and earlier used C<:> as a path separator instead of C</>.
+
+The filesystem may support neither hard links (C<link>) nor
+symbolic links (C<symlink>, C<readlink>, C<lstat>).
+
+The filesystem may support neither access timestamp nor change
+timestamp (meaning that about the only portable timestamp is the
+modification timestamp), or one second granularity of any timestamps
+(e.g. the FAT filesystem limits the time granularity to two seconds).
+
+The "inode change timestamp" (the C<-C> filetest) may really be the
+"creation timestamp" (which it is not in Unix).
+
+VOS perl can emulate Unix filenames with C</> as path separator.  The
+native pathname characters greater-than, less-than, number-sign, and
+percent-sign are always accepted.
+
+S<RISC OS> perl can emulate Unix filenames with C</> as path
+separator, or go native and use C<.> for path separator and C<:> to
+signal filesystems and disk names.
+
+Don't assume Unix filesystem access semantics: that read, write,
+and execute are all the permissions there are, and even if they exist,
+that their semantics (for example what do C<"r">, C<"w">, and C<"x"> mean on
+a directory) are the Unix ones.  The various Unix/POSIX compatibility
+layers usually try to make interfaces like C<chmod()> work, but sometimes
+there simply is no good mapping.
+
+The C<File::Spec> modules provide methods to manipulate path
+specifications and return the results in native format for each
+platform.  This is often unnecessary as Unix-style paths are
+understood by Perl on every supported platform, but if you need to
+produce native paths for a native utility that does not understand
+Unix syntax, or if you are operating on paths or path components
+in unknown (and thus possibly native) syntax, C<File::Spec> is
+your friend.  Here are two brief examples:
+
+    use File::Spec::Functions;
+    chdir(updir());        # go up one directory
+
+    # Concatenate a path from its components
+    my $file = catfile(updir(), 'temp', 'file.txt');
+    # on Unix:    '../temp/file.txt'
+    # on Win32:   '..\temp\file.txt'
+    # on VMS:     '[-.temp]file.txt'
+
+In general, production code should not have file paths hardcoded.
+Making them user-supplied or read from a configuration file is
+better, keeping in mind that file path syntax varies on different
+machines.
+
+This is especially noticeable in scripts like Makefiles and test suites,
+which often assume C</> as a path separator for subdirectories.
+
+Also of use is C<File::Basename> from the standard distribution, which
+splits a pathname into pieces (base filename, full path to directory,
+and file suffix).
+
+Even when on a single platform (if you can call Unix a single platform),
+remember not to count on the existence or the contents of particular
+system-specific files or directories, like F</etc/passwd>,
+F</etc/sendmail.conf>, F</etc/resolv.conf>, or even F</tmp/>.  For
+example, F</etc/passwd> may exist but not contain the encrypted
+passwords, because the system is using some form of enhanced security.
+Or it may not contain all the accounts, because the system is using NIS.
+If code does need to rely on such a file, include a description of the
+file and its format in the code's documentation, then make it easy for
+the user to override the default location of the file.
+
+Don't assume a text file will end with a newline.  They should,
+but people forget.
+
+Do not have two files or directories of the same name with different
+case, like F<test.pl> and F<Test.pl>, as many platforms have
+case-insensitive (or at least case-forgiving) filenames.  Also, try
+not to have non-word characters (except for C<.>) in the names, and
+keep them to the 8.3 convention, for maximum portability, onerous a
+burden though this may appear.
+
+Likewise, when using the C<AutoSplit> module, try to keep your functions to
+8.3 naming and case-insensitive conventions; or, at the least,
+make it so the resulting files have a unique (case-insensitively)
+first 8 characters.
+
+Whitespace in filenames is tolerated on most systems, but not all,
+and even on systems where it might be tolerated, some utilities
+might become confused by such whitespace.
+
+Many systems (DOS, VMS ODS-2) cannot have more than one C<.> in their
+filenames.
+
+Don't assume C<< > >> won't be the first character of a filename.
+Always use C<< < >> explicitly to open a file for reading, or even
+better, use the three-arg version of C<open>, unless you want the user to
+be able to specify a pipe open.
+
+    open my $fh, '<', $existing_file) or die $!;
+
+If filenames might use strange characters, it is safest to open it
+with C<sysopen> instead of C<open>.  C<open> is magic and can
+translate characters like C<< > >>, C<< < >>, and C<|>, which may
+be the wrong thing to do.  (Sometimes, though, it's the right thing.)
+Three-arg open can also help protect against this translation in cases
+where it is undesirable.
+
+Don't use C<:> as a part of a filename since many systems use that for
+their own semantics (Mac OS Classic for separating pathname components,
+many networking schemes and utilities for separating the nodename and
+the pathname, and so on).  For the same reasons, avoid C<@>, C<;> and
+C<|>.
+
+Don't assume that in pathnames you can collapse two leading slashes
+C<//> into one: some networking and clustering filesystems have special
+semantics for that.  Let the operating system sort it out.
+
+The I<portable filename characters> as defined by ANSI C are
+
+ a b c d e f g h i j k l m n o p q r s t u v w x y z
+ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
+ 0 1 2 3 4 5 6 7 8 9
+ . _ -
+
+and the C<"-"> shouldn't be the first character.  If you want to be
+hypercorrect, stay case-insensitive and within the 8.3 naming
+convention (all the files and directories have to be unique within one
+directory if their names are lowercased and truncated to eight
+characters before the C<.>, if any, and to three characters after the
+C<.>, if any).  (And do not use C<.>s in directory names.)
+
+=head2 System Interaction
+
+Not all platforms provide a command line.  These are usually platforms
+that rely primarily on a Graphical User Interface (GUI) for user
+interaction.  A program requiring a command line interface might
+not work everywhere.  This is probably for the user of the program
+to deal with, so don't stay up late worrying about it.
+
+Some platforms can't delete or rename files held open by the system,
+this limitation may also apply to changing filesystem metainformation
+like file permissions or owners.  Remember to C<close> files when you
+are done with them.  Don't C<unlink> or C<rename> an open file.  Don't
+C<tie> or C<open> a file already tied or opened; C<untie> or C<close>
+it first.
+
+Don't open the same file more than once at a time for writing, as some
+operating systems put mandatory locks on such files.
+
+Don't assume that write/modify permission on a directory gives the
+right to add or delete files/directories in that directory.  That is
+filesystem specific: in some filesystems you need write/modify
+permission also (or even just) in the file/directory itself.  In some
+filesystems (AFS, DFS) the permission to add/delete directory entries
+is a completely separate permission.
+
+Don't assume that a single C<unlink> completely gets rid of the file:
+some filesystems (most notably the ones in VMS) have versioned
+filesystems, and C<unlink()> removes only the most recent one (it doesn't
+remove all the versions because by default the native tools on those
+platforms remove just the most recent version, too).  The portable
+idiom to remove all the versions of a file is
+
+    1 while unlink "file";
+
+This will terminate if the file is undeleteable for some reason
+(protected, not there, and so on).
+
+Don't count on a specific environment variable existing in C<%ENV>.
+Don't count on C<%ENV> entries being case-sensitive, or even
+case-preserving.  Don't try to clear C<%ENV> by saying C<%ENV = ();>, or,
+if you really have to, make it conditional on C<$^O ne 'VMS'> since in
+VMS the C<%ENV> table is much more than a per-process key-value string
+table.
+
+On VMS, some entries in the C<%ENV> hash are dynamically created when
+their key is used on a read if they did not previously exist.  The
+values for C<$ENV{HOME}>, C<$ENV{TERM}>, C<$ENV{PATH}>, and C<$ENV{USER}>,
+are known to be dynamically generated.  The specific names that are
+dynamically generated may vary with the version of the C library on VMS,
+and more may exist than are documented.
+
+On VMS by default, changes to the %ENV hash persist after perl exits.
+Subsequent invocations of perl in the same process can inadvertently
+inherit environment settings that were meant to be temporary.
+
+Don't count on signals or C<%SIG> for anything.
+
+Don't count on filename globbing.  Use C<opendir>, C<readdir>, and
+C<closedir> instead.
+
+Don't count on per-program environment variables, or per-program current
+directories.
+
+Don't count on specific values of C<$!>, neither numeric nor
+especially the string values. Users may switch their locales causing
+error messages to be translated into their languages.  If you can
+trust a POSIXish environment, you can portably use the symbols defined
+by the C<Errno> module, like C<ENOENT>.  And don't trust on the values of C<$!>
+at all except immediately after a failed system call.
+
+=head2 Command names versus file pathnames
+
+Don't assume that the name used to invoke a command or program with
+C<system> or C<exec> can also be used to test for the existence of the
+file that holds the executable code for that command or program.
+First, many systems have "internal" commands that are built-in to the
+shell or OS and while these commands can be invoked, there is no
+corresponding file.  Second, some operating systems (e.g., Cygwin,
+DJGPP, OS/2, and VOS) have required suffixes for executable files;
+these suffixes are generally permitted on the command name but are not
+required.  Thus, a command like F<"perl"> might exist in a file named
+F<"perl">, F<"perl.exe">, or F<"perl.pm">, depending on the operating system.
+The variable C<"_exe"> in the C<Config> module holds the executable suffix,
+if any.  Third, the VMS port carefully sets up C<$^X> and
+C<$Config{perlpath}> so that no further processing is required.  This is
+just as well, because the matching regular expression used below would
+then have to deal with a possible trailing version number in the VMS
+file name.
+
+To convert C<$^X> to a file pathname, taking account of the requirements
+of the various operating system possibilities, say:
+
+ use Config;
+ my $thisperl = $^X;
+ if ($^O ne 'VMS')
+    {$thisperl .= $Config{_exe} unless $thisperl =~ m/$Config{_exe}$/i;}
+
+To convert C<$Config{perlpath}> to a file pathname, say:
+
+ use Config;
+ my $thisperl = $Config{perlpath};
+ if ($^O ne 'VMS')
+    {$thisperl .= $Config{_exe} unless $thisperl =~ m/$Config{_exe}$/i;}
+
+=head2 Networking
+
+Don't assume that you can reach the public Internet.
+
+Don't assume that there is only one way to get through firewalls
+to the public Internet.
+
+Don't assume that you can reach outside world through any other port
+than 80, or some web proxy.  ftp is blocked by many firewalls.
+
+Don't assume that you can send email by connecting to the local SMTP port.
+
+Don't assume that you can reach yourself or any node by the name
+'localhost'.  The same goes for '127.0.0.1'.  You will have to try both.
+
+Don't assume that the host has only one network card, or that it
+can't bind to many virtual IP addresses.
+
+Don't assume a particular network device name.
+
+Don't assume a particular set of C<ioctl()>s will work.
+
+Don't assume that you can ping hosts and get replies.
+
+Don't assume that any particular port (service) will respond.
+
+Don't assume that C<Sys::Hostname> (or any other API or command) returns
+either a fully qualified hostname or a non-qualified hostname: it all
+depends on how the system had been configured.  Also remember that for
+things such as DHCP and NAT, the hostname you get back might not be
+very useful.
+
+All the above I<don't>s may look daunting, and they are, but the key
+is to degrade gracefully if one cannot reach the particular network
+service one wants.  Croaking or hanging do not look very professional.
+
+=head2 Interprocess Communication (IPC)
+
+In general, don't directly access the system in code meant to be
+portable.  That means, no C<system>, C<exec>, C<fork>, C<pipe>,
+C<``>, C<qx//>, C<open> with a C<|>, nor any of the other things
+that makes being a Perl hacker worth being.
+
+Commands that launch external processes are generally supported on
+most platforms (though many of them do not support any type of
+forking).  The problem with using them arises from what you invoke
+them on.  External tools are often named differently on different
+platforms, may not be available in the same location, might accept
+different arguments, can behave differently, and often present their
+results in a platform-dependent way.  Thus, you should seldom depend
+on them to produce consistent results. (Then again, if you're calling
+I<netstat -a>, you probably don't expect it to run on both Unix and CP/M.)
+
+One especially common bit of Perl code is opening a pipe to B<sendmail>:
+
+    open(MAIL, '|/usr/lib/sendmail -t')
+	or die "cannot fork sendmail: $!";
+
+This is fine for systems programming when sendmail is known to be
+available.  But it is not fine for many non-Unix systems, and even
+some Unix systems that may not have sendmail installed.  If a portable
+solution is needed, see the various distributions on CPAN that deal
+with it.  C<Mail::Mailer> and C<Mail::Send> in the C<MailTools> distribution are
+commonly used, and provide several mailing methods, including C<mail>,
+C<sendmail>, and direct SMTP (via C<Net::SMTP>) if a mail transfer agent is
+not available.  C<Mail::Sendmail> is a standalone module that provides
+simple, platform-independent mailing.
+
+The Unix System V IPC (C<msg*(), sem*(), shm*()>) is not available
+even on all Unix platforms.
+
+Do not use either the bare result of C<pack("N", 10, 20, 30, 40)> or
+bare v-strings (such as C<v10.20.30.40>) to represent IPv4 addresses:
+both forms just pack the four bytes into network order.  That this
+would be equal to the C language C<in_addr> struct (which is what the
+socket code internally uses) is not guaranteed.  To be portable use
+the routines of the C<Socket> extension, such as C<inet_aton()>,
+C<inet_ntoa()>, and C<sockaddr_in()>.
+
+The rule of thumb for portable code is: Do it all in portable Perl, or
+use a module (that may internally implement it with platform-specific
+code, but exposes a common interface).
+
+=head2 External Subroutines (XS)
+
+XS code can usually be made to work with any platform, but dependent
+libraries, header files, etc., might not be readily available or
+portable, or the XS code itself might be platform-specific, just as Perl
+code might be.  If the libraries and headers are portable, then it is
+normally reasonable to make sure the XS code is portable, too.
+
+A different type of portability issue arises when writing XS code:
+availability of a C compiler on the end-user's system.  C brings
+with it its own portability issues, and writing XS code will expose
+you to some of those.  Writing purely in Perl is an easier way to
+achieve portability.
+
+=head2 Standard Modules
+
+In general, the standard modules work across platforms.  Notable
+exceptions are the C<CPAN> module (which currently makes connections to external
+programs that may not be available), platform-specific modules (like
+C<ExtUtils::MM_VMS>), and DBM modules.
+
+There is no one DBM module available on all platforms.
+C<SDBM_File> and the others are generally available on all Unix and DOSish
+ports, but not in MacPerl, where only C<NDBM_File> and C<DB_File> are
+available.
+
+The good news is that at least some DBM module should be available, and
+C<AnyDBM_File> will use whichever module it can find.  Of course, then
+the code needs to be fairly strict, dropping to the greatest common
+factor (e.g., not exceeding 1K for each record), so that it will
+work with any DBM module.  See L<AnyDBM_File> for more details.
+
+=head2 Time and Date
+
+The system's notion of time of day and calendar date is controlled in
+widely different ways.  Don't assume the timezone is stored in C<$ENV{TZ}>,
+and even if it is, don't assume that you can control the timezone through
+that variable.  Don't assume anything about the three-letter timezone
+abbreviations (for example that MST would be the Mountain Standard Time,
+it's been known to stand for Moscow Standard Time).  If you need to
+use timezones, express them in some unambiguous format like the
+exact number of minutes offset from UTC, or the POSIX timezone
+format.
+
+Don't assume that the epoch starts at 00:00:00, January 1, 1970,
+because that is OS- and implementation-specific.  It is better to
+store a date in an unambiguous representation.  The ISO 8601 standard
+defines YYYY-MM-DD as the date format, or YYYY-MM-DDTHH:MM:SS
+(that's a literal "T" separating the date from the time).
+Please do use the ISO 8601 instead of making us guess what
+date 02/03/04 might be.  ISO 8601 even sorts nicely as-is.
+A text representation (like "1987-12-18") can be easily converted
+into an OS-specific value using a module like C<Date::Parse>.
+An array of values, such as those returned by C<localtime>, can be
+converted to an OS-specific representation using C<Time::Local>.
+
+When calculating specific times, such as for tests in time or date modules,
+it may be appropriate to calculate an offset for the epoch.
+
+    require Time::Local;
+    my $offset = Time::Local::timegm(0, 0, 0, 1, 0, 70);
+
+The value for C<$offset> in Unix will be C<0>, but in Mac OS Classic
+will be some large number.  C<$offset> can then be added to a Unix time
+value to get what should be the proper value on any system.
+
+=head2 Character sets and character encoding
+
+Assume very little about character sets.
+
+Assume nothing about numerical values (C<ord>, C<chr>) of characters.
+Do not use explicit code point ranges (like C<\xHH-\xHH)>.  However,
+starting in Perl v5.22, regular expression pattern bracketed character
+class ranges specified like C<qr/[\N{U+HH}-\N{U+HH}]/> are portable,
+and starting in Perl v5.24, the same ranges are portable in C<tr///>.
+You can portably use symbolic character classes like C<[:print:]>.
+
+Do not assume that the alphabetic characters are encoded contiguously
+(in the numeric sense).  There may be gaps.  Special coding in Perl,
+however, guarantees that all subsets of C<qr/[A-Z]/>, C<qr/[a-z]/>, and
+C<qr/[0-9]/> behave as expected.  C<tr///> behaves the same for these
+ranges.  In patterns, any ranges specified with end points using the
+C<\N{...}> notations ensures character set portability, but it is a bug
+in Perl v5.22, that this isn't true of C<tr///>, fixed in v5.24.
+
+Do not assume anything about the ordering of the characters.
+The lowercase letters may come before or after the uppercase letters;
+the lowercase and uppercase may be interlaced so that both "a" and "A"
+come before "b"; the accented and other international characters may
+be interlaced so that E<auml> comes before "b".
+L<Unicode::Collate> can be used to sort this all out.
+
+=head2 Internationalisation
+
+If you may assume POSIX (a rather large assumption), you may read
+more about the POSIX locale system from L<perllocale>.  The locale
+system at least attempts to make things a little bit more portable,
+or at least more convenient and native-friendly for non-English
+users.  The system affects character sets and encoding, and date
+and time formatting--amongst other things.
+
+If you really want to be international, you should consider Unicode.
+See L<perluniintro> and L<perlunicode> for more information.
+
+If you want to use non-ASCII bytes (outside the bytes 0x00..0x7f) in
+the "source code" of your code, to be portable you have to be explicit
+about what bytes they are.  Someone might for example be using your
+code under a UTF-8 locale, in which case random native bytes might be
+illegal ("Malformed UTF-8 ...")  This means that for example embedding
+ISO 8859-1 bytes beyond 0x7f into your strings might cause trouble
+later.  If the bytes are native 8-bit bytes, you can use the C<bytes>
+pragma.  If the bytes are in a string (regular expressions being
+curious strings), you can often also use the C<\xHH> or more portably,
+the C<\N{U+HH}> notations instead
+of embedding the bytes as-is.  If you want to write your code in UTF-8,
+you can use L<utf8>.
+
+=head2 System Resources
+
+If your code is destined for systems with severely constrained (or
+missing!) virtual memory systems then you want to be I<especially> mindful
+of avoiding wasteful constructs such as:
+
+    my @lines = <$very_large_file>;            # bad
+
+    while (<$fh>) {$file .= $_}                # sometimes bad
+    my $file = join('', <$fh>);                # better
+
+The last two constructs may appear unintuitive to most people.  The
+first repeatedly grows a string, whereas the second allocates a
+large chunk of memory in one go.  On some systems, the second is
+more efficient than the first.
+
+=head2 Security
+
+Most multi-user platforms provide basic levels of security, usually
+implemented at the filesystem level.  Some, however, unfortunately do
+not.  Thus the notion of user id, or "home" directory,
+or even the state of being logged-in, may be unrecognizable on many
+platforms.  If you write programs that are security-conscious, it
+is usually best to know what type of system you will be running
+under so that you can write code explicitly for that platform (or
+class of platforms).
+
+Don't assume the Unix filesystem access semantics: the operating
+system or the filesystem may be using some ACL systems, which are
+richer languages than the usual C<rwx>.  Even if the C<rwx> exist,
+their semantics might be different.
+
+(From the security viewpoint, testing for permissions before attempting to
+do something is silly anyway: if one tries this, there is potential
+for race conditions. Someone or something might change the
+permissions between the permissions check and the actual operation.
+Just try the operation.)
+
+Don't assume the Unix user and group semantics: especially, don't
+expect C<< $< >> and C<< $> >> (or C<$(> and C<$)>) to work
+for switching identities (or memberships).
+
+Don't assume set-uid and set-gid semantics. (And even if you do,
+think twice: set-uid and set-gid are a known can of security worms.)
+
+=head2 Style
+
+For those times when it is necessary to have platform-specific code,
+consider keeping the platform-specific code in one place, making porting
+to other platforms easier.  Use the C<Config> module and the special
+variable C<$^O> to differentiate platforms, as described in
+L<"PLATFORMS">.
+
+Beware of the "else syndrome":
+
+  if ($^O eq 'MSWin32') {
+    # code that assumes Windows
+  } else {
+    # code that assumes Linux
+  }
+
+The C<else> branch should be used for the really ultimate fallback,
+not for code specific to some platform.
+
+Be careful in the tests you supply with your module or programs.
+Module code may be fully portable, but its tests might not be.  This
+often happens when tests spawn off other processes or call external
+programs to aid in the testing, or when (as noted above) the tests
+assume certain things about the filesystem and paths.  Be careful not
+to depend on a specific output style for errors, such as when checking
+C<$!> after a failed system call.  Using C<$!> for anything else than
+displaying it as output is doubtful (though see the C<Errno> module for
+testing reasonably portably for error value). Some platforms expect
+a certain output format, and Perl on those platforms may have been
+adjusted accordingly.  Most specifically, don't anchor a regex when
+testing an error value.
+
+=head1 CPAN Testers
+
+Modules uploaded to CPAN are tested by a variety of volunteers on
+different platforms.  These CPAN testers are notified by mail of each
+new upload, and reply to the list with PASS, FAIL, NA (not applicable to
+this platform), or UNKNOWN (unknown), along with any relevant notations.
+
+The purpose of the testing is twofold: one, to help developers fix any
+problems in their code that crop up because of lack of testing on other
+platforms; two, to provide users with information about whether
+a given module works on a given platform.
+
+Also see:
+
+=over 4
+
+=item *
+
+Mailing list: cpan-testers-discuss@perl.org
+
+=item *
+
+Testing results: L<http://www.cpantesters.org/>
+
+=back
+
+=head1 PLATFORMS
+
+Perl is built with a C<$^O> variable that indicates the operating
+system it was built on.  This was implemented
+to help speed up code that would otherwise have to C<use Config>
+and use the value of C<$Config{osname}>.  Of course, to get more
+detailed information about the system, looking into C<%Config> is
+certainly recommended.
+
+C<%Config> cannot always be trusted, however, because it was built
+at compile time.  If perl was built in one place, then transferred
+elsewhere, some values may be wrong.  The values may even have been
+edited after the fact.
+
+=head2 Unix
+
+Perl works on a bewildering variety of Unix and Unix-like platforms (see
+e.g. most of the files in the F<hints/> directory in the source code kit).
+On most of these systems, the value of C<$^O> (hence C<$Config{'osname'}>,
+too) is determined either by lowercasing and stripping punctuation from the
+first field of the string returned by typing C<uname -a> (or a similar command)
+at the shell prompt or by testing the file system for the presence of
+uniquely named files such as a kernel or header file.  Here, for example,
+are a few of the more popular Unix flavors:
+
+    uname         $^O        $Config{'archname'}
+    --------------------------------------------
+    AIX           aix        aix
+    BSD/OS        bsdos      i386-bsdos
+    Darwin        darwin     darwin
+    DYNIX/ptx     dynixptx   i386-dynixptx
+    FreeBSD       freebsd    freebsd-i386
+    Haiku         haiku      BePC-haiku
+    Linux         linux      arm-linux
+    Linux         linux      armv5tel-linux
+    Linux         linux      i386-linux
+    Linux         linux      i586-linux
+    Linux         linux      ppc-linux
+    HP-UX         hpux       PA-RISC1.1
+    IRIX          irix       irix
+    Mac OS X      darwin     darwin
+    NeXT 3        next       next-fat
+    NeXT 4        next       OPENSTEP-Mach
+    openbsd       openbsd    i386-openbsd
+    OSF1          dec_osf    alpha-dec_osf
+    reliantunix-n svr4       RM400-svr4
+    SCO_SV        sco_sv     i386-sco_sv
+    SINIX-N       svr4       RM400-svr4
+    sn4609        unicos     CRAY_C90-unicos
+    sn6521        unicosmk   t3e-unicosmk
+    sn9617        unicos     CRAY_J90-unicos
+    SunOS         solaris    sun4-solaris
+    SunOS         solaris    i86pc-solaris
+    SunOS4        sunos      sun4-sunos
+
+Because the value of C<$Config{archname}> may depend on the
+hardware architecture, it can vary more than the value of C<$^O>.
+
+=head2 DOS and Derivatives
+
+Perl has long been ported to Intel-style microcomputers running under
+systems like PC-DOS, MS-DOS, OS/2, and most Windows platforms you can
+bring yourself to mention (except for Windows CE, if you count that).
+Users familiar with I<COMMAND.COM> or I<CMD.EXE> style shells should
+be aware that each of these file specifications may have subtle
+differences:
+
+    my $filespec0 = "c:/foo/bar/file.txt";
+    my $filespec1 = "c:\\foo\\bar\\file.txt";
+    my $filespec2 = 'c:\foo\bar\file.txt';
+    my $filespec3 = 'c:\\foo\\bar\\file.txt';
+
+System calls accept either C</> or C<\> as the path separator.
+However, many command-line utilities of DOS vintage treat C</> as
+the option prefix, so may get confused by filenames containing C</>.
+Aside from calling any external programs, C</> will work just fine,
+and probably better, as it is more consistent with popular usage,
+and avoids the problem of remembering what to backwhack and what
+not to.
+
+The DOS FAT filesystem can accommodate only "8.3" style filenames.  Under
+the "case-insensitive, but case-preserving" HPFS (OS/2) and NTFS (NT)
+filesystems you may have to be careful about case returned with functions
+like C<readdir> or used with functions like C<open> or C<opendir>.
+
+DOS also treats several filenames as special, such as AUX, PRN,
+NUL, CON, COM1, LPT1, LPT2, etc.  Unfortunately, sometimes these
+filenames won't even work if you include an explicit directory
+prefix.  It is best to avoid such filenames, if you want your code
+to be portable to DOS and its derivatives.  It's hard to know what
+these all are, unfortunately.
+
+Users of these operating systems may also wish to make use of
+scripts such as I<pl2bat.bat> or I<pl2cmd> to
+put wrappers around your scripts.
+
+Newline (C<\n>) is translated as C<\015\012> by STDIO when reading from
+and writing to files (see L<"Newlines">).  C<binmode(FILEHANDLE)>
+will keep C<\n> translated as C<\012> for that filehandle.  Since it is a
+no-op on other systems, C<binmode> should be used for cross-platform code
+that deals with binary data.  That's assuming you realize in advance
+that your data is in binary.  General-purpose programs should
+often assume nothing about their data.
+
+The C<$^O> variable and the C<$Config{archname}> values for various
+DOSish perls are as follows:
+
+     OS            $^O      $Config{archname}   ID    Version
+     --------------------------------------------------------
+     MS-DOS        dos        ?
+     PC-DOS        dos        ?
+     OS/2          os2        ?
+     Windows 3.1   ?          ?                 0      3 01
+     Windows 95    MSWin32    MSWin32-x86       1      4 00
+     Windows 98    MSWin32    MSWin32-x86       1      4 10
+     Windows ME    MSWin32    MSWin32-x86       1      ?
+     Windows NT    MSWin32    MSWin32-x86       2      4 xx
+     Windows NT    MSWin32    MSWin32-ALPHA     2      4 xx
+     Windows NT    MSWin32    MSWin32-ppc       2      4 xx
+     Windows 2000  MSWin32    MSWin32-x86       2      5 00
+     Windows XP    MSWin32    MSWin32-x86       2      5 01
+     Windows 2003  MSWin32    MSWin32-x86       2      5 02
+     Windows Vista MSWin32    MSWin32-x86       2      6 00
+     Windows 7     MSWin32    MSWin32-x86       2      6 01
+     Windows 7     MSWin32    MSWin32-x64       2      6 01
+     Windows 2008  MSWin32    MSWin32-x86       2      6 01
+     Windows 2008  MSWin32    MSWin32-x64       2      6 01
+     Windows CE    MSWin32    ?                 3
+     Cygwin        cygwin     cygwin
+
+The various MSWin32 Perl's can distinguish the OS they are running on
+via the value of the fifth element of the list returned from
+C<Win32::GetOSVersion()>.  For example:
+
+    if ($^O eq 'MSWin32') {
+        my @os_version_info = Win32::GetOSVersion();
+        print +('3.1','95','NT')[$os_version_info[4]],"\n";
+    }
+
+There are also C<Win32::IsWinNT()> and C<Win32::IsWin95()>; try C<perldoc Win32>,
+and as of libwin32 0.19 (not part of the core Perl distribution)
+C<Win32::GetOSName()>.  The very portable C<POSIX::uname()> will work too:
+
+    c:\> perl -MPOSIX -we "print join '|', uname"
+    Windows NT|moonru|5.0|Build 2195 (Service Pack 2)|x86
+
+Also see:
+
+=over 4
+
+=item *
+
+The djgpp environment for DOS, L<http://www.delorie.com/djgpp/>
+and L<perldos>.
+
+=item *
+
+The EMX environment for DOS, OS/2, etc. emx@iaehv.nl,
+L<ftp://hobbes.nmsu.edu/pub/os2/dev/emx/>  Also L<perlos2>.
+
+=item *
+
+Build instructions for Win32 in L<perlwin32>, or under the Cygnus environment
+in L<perlcygwin>.
+
+=item *
+
+The C<Win32::*> modules in L<Win32>.
+
+=item *
+
+The ActiveState Pages, L<http://www.activestate.com/>
+
+=item *
+
+The Cygwin environment for Win32; F<README.cygwin> (installed
+as L<perlcygwin>), L<http://www.cygwin.com/>
+
+=item *
+
+The U/WIN environment for Win32,
+L<http://www.research.att.com/sw/tools/uwin/>
+
+=item *
+
+Build instructions for OS/2, L<perlos2>
+
+=back
+
+=head2 VMS
+
+Perl on VMS is discussed in L<perlvms> in the Perl distribution.
+
+The official name of VMS as of this writing is OpenVMS.
+
+Interacting with Perl from the Digital Command Language (DCL) shell
+often requires a different set of quotation marks than Unix shells do.
+For example:
+
+    $ perl -e "print ""Hello, world.\n"""
+    Hello, world.
+
+There are several ways to wrap your Perl scripts in DCL F<.COM> files, if
+you are so inclined.  For example:
+
+    $ write sys$output "Hello from DCL!"
+    $ if p1 .eqs. ""
+    $ then perl -x 'f$environment("PROCEDURE")
+    $ else perl -x - 'p1 'p2 'p3 'p4 'p5 'p6 'p7 'p8
+    $ deck/dollars="__END__"
+    #!/usr/bin/perl
+
+    print "Hello from Perl!\n";
+
+    __END__
+    $ endif
+
+Do take care with C<$ ASSIGN/nolog/user SYS$COMMAND: SYS$INPUT> if your
+Perl-in-DCL script expects to do things like C<< $read = <STDIN>; >>.
+
+The VMS operating system has two filesystems, designated by their
+on-disk structure (ODS) level: ODS-2 and its successor ODS-5.  The
+initial port of Perl to VMS pre-dates ODS-5, but all current testing and
+development assumes ODS-5 and its capabilities, including case
+preservation, extended characters in filespecs, and names up to 8192
+bytes long.
+
+Perl on VMS can accept either VMS- or Unix-style file
+specifications as in either of the following:
+
+    $ perl -ne "print if /perl_setup/i" SYS$LOGIN:LOGIN.COM
+    $ perl -ne "print if /perl_setup/i" /sys$login/login.com
+
+but not a mixture of both as in:
+
+    $ perl -ne "print if /perl_setup/i" sys$login:/login.com
+    Can't open sys$login:/login.com: file specification syntax error
+
+In general, the easiest path to portability is always to specify
+filenames in Unix format unless they will need to be processed by native
+commands or utilities.  Because of this latter consideration, the
+File::Spec module by default returns native format specifications
+regardless of input format.  This default may be reversed so that
+filenames are always reported in Unix format by specifying the
+C<DECC$FILENAME_UNIX_REPORT> feature logical in the environment.
+
+The file type, or extension, is always present in a VMS-format file
+specification even if it's zero-length.  This means that, by default,
+C<readdir> will return a trailing dot on a file with no extension, so
+where you would see C<"a"> on Unix you'll see C<"a."> on VMS.  However,
+the trailing dot may be suppressed by enabling the
+C<DECC$READDIR_DROPDOTNOTYPE> feature in the environment (see the CRTL
+documentation on feature logical names).
+
+What C<\n> represents depends on the type of file opened.  It usually
+represents C<\012> but it could also be C<\015>, C<\012>, C<\015\012>,
+C<\000>, C<\040>, or nothing depending on the file organization and
+record format.  The C<VMS::Stdio> module provides access to the
+special C<fopen()> requirements of files with unusual attributes on VMS.
+
+The value of C<$^O> on OpenVMS is "VMS".  To determine the architecture
+that you are running on refer to C<$Config{'archname'}>.
+
+On VMS, perl determines the UTC offset from the C<SYS$TIMEZONE_DIFFERENTIAL>
+logical name.  Although the VMS epoch began at 17-NOV-1858 00:00:00.00,
+calls to C<localtime> are adjusted to count offsets from
+01-JAN-1970 00:00:00.00, just like Unix.
+
+Also see:
+
+=over 4
+
+=item *
+
+F<README.vms> (installed as F<README_vms>), L<perlvms>
+
+=item *
+
+vmsperl list, vmsperl-subscribe@perl.org
+
+=item *
+
+vmsperl on the web, L<http://www.sidhe.org/vmsperl/index.html>
+
+=item *
+
+VMS Software Inc. web site, L<http://www.vmssoftware.com>
+
+=back
+
+=head2 VOS
+
+Perl on VOS (also known as OpenVOS) is discussed in F<README.vos>
+in the Perl distribution (installed as L<perlvos>).  Perl on VOS
+can accept either VOS- or Unix-style file specifications as in
+either of the following:
+
+    $ perl -ne "print if /perl_setup/i" >system>notices
+    $ perl -ne "print if /perl_setup/i" /system/notices
+
+or even a mixture of both as in:
+
+    $ perl -ne "print if /perl_setup/i" >system/notices
+
+Even though VOS allows the slash character to appear in object
+names, because the VOS port of Perl interprets it as a pathname
+delimiting character, VOS files, directories, or links whose
+names contain a slash character cannot be processed.  Such files
+must be renamed before they can be processed by Perl.
+
+Older releases of VOS (prior to OpenVOS Release 17.0) limit file
+names to 32 or fewer characters, prohibit file names from
+starting with a C<-> character, and prohibit file names from
+containing any character matching C<< tr/ !#%&'()*;<=>?// >>.
+
+Newer releases of VOS (OpenVOS Release 17.0 or later) support a
+feature known as extended names.  On these releases, file names
+can contain up to 255 characters, are prohibited from starting
+with a C<-> character, and the set of prohibited characters is
+reduced to any character matching C<< tr/#%*<>?// >>.  There are
+restrictions involving spaces and apostrophes:  these characters
+must not begin or end a name, nor can they immediately precede or
+follow a period.  Additionally, a space must not immediately
+precede another space or hyphen.  Specifically, the following
+character combinations are prohibited:  space-space,
+space-hyphen, period-space, space-period, period-apostrophe,
+apostrophe-period, leading or trailing space, and leading or
+trailing apostrophe.  Although an extended file name is limited
+to 255 characters, a path name is still limited to 256
+characters.
+
+The value of C<$^O> on VOS is "vos".  To determine the
+architecture that you are running on without resorting to loading
+all of C<%Config> you can examine the content of the C<@INC> array
+like so:
+
+    if ($^O =~ /vos/) {
+        print "I'm on a Stratus box!\n";
+    } else {
+        print "I'm not on a Stratus box!\n";
+        die;
+    }
+
+Also see:
+
+=over 4
+
+=item *
+
+F<README.vos> (installed as L<perlvos>)
+
+=item *
+
+The VOS mailing list.
+
+There is no specific mailing list for Perl on VOS.  You can contact
+the Stratus Technologies Customer Assistance Center (CAC) for your
+region, or you can use the contact information located in the
+distribution files on the Stratus Anonymous FTP site.
+
+=item *
+
+Stratus Technologies on the web at L<http://www.stratus.com>
+
+=item *
+
+VOS Open-Source Software on the web at L<http://ftp.stratus.com/pub/vos/vos.html>
+
+=back
+
+=head2 EBCDIC Platforms
+
+v5.22 core Perl runs on z/OS (formerly OS/390).  Theoretically it could
+run on the successors of OS/400 on AS/400 minicomputers as well as
+VM/ESA, and BS2000 for S/390 Mainframes.  Such computers use EBCDIC
+character sets internally (usually
+Character Code Set ID 0037 for OS/400 and either 1047 or POSIX-BC for S/390
+systems).
+
+The rest of this section may need updating, but we don't know what it
+should say.  Please email comments to
+L<perlbug@perl.org|mailto:perlbug@perl.org>.
+
+On the mainframe Perl currently works under the "Unix system
+services for OS/390" (formerly known as OpenEdition), VM/ESA OpenEdition, or
+the BS200 POSIX-BC system (BS2000 is supported in Perl 5.6 and greater).
+See L<perlos390> for details.  Note that for OS/400 there is also a port of
+Perl 5.8.1/5.10.0 or later to the PASE which is ASCII-based (as opposed to
+ILE which is EBCDIC-based), see L<perlos400>.
+
+As of R2.5 of USS for OS/390 and Version 2.3 of VM/ESA these Unix
+sub-systems do not support the C<#!> shebang trick for script invocation.
+Hence, on OS/390 and VM/ESA Perl scripts can be executed with a header
+similar to the following simple script:
+
+    : # use perl
+        eval 'exec /usr/local/bin/perl -S $0 ${1+"$@"}'
+            if 0;
+    #!/usr/local/bin/perl     # just a comment really
+
+    print "Hello from perl!\n";
+
+OS/390 will support the C<#!> shebang trick in release 2.8 and beyond.
+Calls to C<system> and backticks can use POSIX shell syntax on all
+S/390 systems.
+
+On the AS/400, if PERL5 is in your library list, you may need
+to wrap your Perl scripts in a CL procedure to invoke them like so:
+
+    BEGIN
+      CALL PGM(PERL5/PERL) PARM('/QOpenSys/hello.pl')
+    ENDPGM
+
+This will invoke the Perl script F<hello.pl> in the root of the
+QOpenSys file system.  On the AS/400 calls to C<system> or backticks
+must use CL syntax.
+
+On these platforms, bear in mind that the EBCDIC character set may have
+an effect on what happens with some Perl functions (such as C<chr>,
+C<pack>, C<print>, C<printf>, C<ord>, C<sort>, C<sprintf>, C<unpack>), as
+well as bit-fiddling with ASCII constants using operators like C<^>, C<&>
+and C<|>, not to mention dealing with socket interfaces to ASCII computers
+(see L<"Newlines">).
+
+Fortunately, most web servers for the mainframe will correctly
+translate the C<\n> in the following statement to its ASCII equivalent
+(C<\r> is the same under both Unix and z/OS):
+
+    print "Content-type: text/html\r\n\r\n";
+
+The values of C<$^O> on some of these platforms includes:
+
+    uname         $^O        $Config{'archname'}
+    --------------------------------------------
+    OS/390        os390      os390
+    OS400         os400      os400
+    POSIX-BC      posix-bc   BS2000-posix-bc
+
+Some simple tricks for determining if you are running on an EBCDIC
+platform could include any of the following (perhaps all):
+
+    if ("\t" eq "\005")   { print "EBCDIC may be spoken here!\n"; }
+
+    if (ord('A') == 193) { print "EBCDIC may be spoken here!\n"; }
+
+    if (chr(169) eq 'z') { print "EBCDIC may be spoken here!\n"; }
+
+One thing you may not want to rely on is the EBCDIC encoding
+of punctuation characters since these may differ from code page to code
+page (and once your module or script is rumoured to work with EBCDIC,
+folks will want it to work with all EBCDIC character sets).
+
+Also see:
+
+=over 4
+
+=item *
+
+L<perlos390>, L<perlos400>, L<perlbs2000>, L<perlebcdic>.
+
+=item *
+
+The perl-mvs@perl.org list is for discussion of porting issues as well as
+general usage issues for all EBCDIC Perls.  Send a message body of
+"subscribe perl-mvs" to majordomo@perl.org.
+
+=item *
+
+AS/400 Perl information at
+L<http://as400.rochester.ibm.com/>
+as well as on CPAN in the F<ports/> directory.
+
+=back
+
+=head2 Acorn RISC OS
+
+Because Acorns use ASCII with newlines (C<\n>) in text files as C<\012> like
+Unix, and because Unix filename emulation is turned on by default,
+most simple scripts will probably work "out of the box".  The native
+filesystem is modular, and individual filesystems are free to be
+case-sensitive or insensitive, and are usually case-preserving.  Some
+native filesystems have name length limits, which file and directory
+names are silently truncated to fit.  Scripts should be aware that the
+standard filesystem currently has a name length limit of B<10>
+characters, with up to 77 items in a directory, but other filesystems
+may not impose such limitations.
+
+Native filenames are of the form
+
+    Filesystem#Special_Field::DiskName.$.Directory.Directory.File
+
+where
+
+    Special_Field is not usually present, but may contain . and $ .
+    Filesystem =~ m|[A-Za-z0-9_]|
+    DsicName   =~ m|[A-Za-z0-9_/]|
+    $ represents the root directory
+    . is the path separator
+    @ is the current directory (per filesystem but machine global)
+    ^ is the parent directory
+    Directory and File =~ m|[^\0- "\.\$\%\&:\@\\^\|\177]+|
+
+The default filename translation is roughly C<tr|/.|./|;>
+
+Note that C<"ADFS::HardDisk.$.File" ne 'ADFS::HardDisk.$.File'> and that
+the second stage of C<$> interpolation in regular expressions will fall
+foul of the C<$.> if scripts are not careful.
+
+Logical paths specified by system variables containing comma-separated
+search lists are also allowed; hence C<System:Modules> is a valid
+filename, and the filesystem will prefix C<Modules> with each section of
+C<System$Path> until a name is made that points to an object on disk.
+Writing to a new file C<System:Modules> would be allowed only if
+C<System$Path> contains a single item list.  The filesystem will also
+expand system variables in filenames if enclosed in angle brackets, so
+C<< <System$Dir>.Modules >> would look for the file
+S<C<$ENV{'System$Dir'} . 'Modules'>>.  The obvious implication of this is
+that B<fully qualified filenames can start with C<< <> >>> and should
+be protected when C<open> is used for input.
+
+Because C<.> was in use as a directory separator and filenames could not
+be assumed to be unique after 10 characters, Acorn implemented the C
+compiler to strip the trailing C<.c> C<.h> C<.s> and C<.o> suffix from
+filenames specified in source code and store the respective files in
+subdirectories named after the suffix.  Hence files are translated:
+
+    foo.h           h.foo
+    C:foo.h         C:h.foo        (logical path variable)
+    sys/os.h        sys.h.os       (C compiler groks Unix-speak)
+    10charname.c    c.10charname
+    10charname.o    o.10charname
+    11charname_.c   c.11charname   (assuming filesystem truncates at 10)
+
+The Unix emulation library's translation of filenames to native assumes
+that this sort of translation is required, and it allows a user-defined list
+of known suffixes that it will transpose in this fashion.  This may
+seem transparent, but consider that with these rules F<foo/bar/baz.h>
+and F<foo/bar/h/baz> both map to F<foo.bar.h.baz>, and that C<readdir> and
+C<glob> cannot and do not attempt to emulate the reverse mapping.  Other
+C<.>'s in filenames are translated to C</>.
+
+As implied above, the environment accessed through C<%ENV> is global, and
+the convention is that program specific environment variables are of the
+form C<Program$Name>.  Each filesystem maintains a current directory,
+and the current filesystem's current directory is the B<global> current
+directory.  Consequently, sociable programs don't change the current
+directory but rely on full pathnames, and programs (and Makefiles) cannot
+assume that they can spawn a child process which can change the current
+directory without affecting its parent (and everyone else for that
+matter).
+
+Because native operating system filehandles are global and are currently
+allocated down from 255, with 0 being a reserved value, the Unix emulation
+library emulates Unix filehandles.  Consequently, you can't rely on
+passing C<STDIN>, C<STDOUT>, or C<STDERR> to your children.
+
+The desire of users to express filenames of the form
+C<< <Foo$Dir>.Bar >> on the command line unquoted causes problems,
+too: C<``> command output capture has to perform a guessing game.  It
+assumes that a string C<< <[^<>]+\$[^<>]> >> is a
+reference to an environment variable, whereas anything else involving
+C<< < >> or C<< > >> is redirection, and generally manages to be 99%
+right.  Of course, the problem remains that scripts cannot rely on any
+Unix tools being available, or that any tools found have Unix-like command
+line arguments.
+
+Extensions and XS are, in theory, buildable by anyone using free
+tools.  In practice, many don't, as users of the Acorn platform are
+used to binary distributions.  MakeMaker does run, but no available
+make currently copes with MakeMaker's makefiles; even if and when
+this should be fixed, the lack of a Unix-like shell will cause
+problems with makefile rules, especially lines of the form C<cd
+sdbm && make all>, and anything using quoting.
+
+"S<RISC OS>" is the proper name for the operating system, but the value
+in C<$^O> is "riscos" (because we don't like shouting).
+
+=head2 Other perls
+
+Perl has been ported to many platforms that do not fit into any of
+the categories listed above.  Some, such as AmigaOS,
+QNX, Plan 9, and VOS, have been well-integrated into the standard
+Perl source code kit.  You may need to see the F<ports/> directory
+on CPAN for information, and possibly binaries, for the likes of:
+aos, Atari ST, lynxos, riscos, Novell Netware, Tandem Guardian,
+I<etc.>  (Yes, we know that some of these OSes may fall under the
+Unix category, but we are not a standards body.)
+
+Some approximate operating system names and their C<$^O> values
+in the "OTHER" category include:
+
+    OS            $^O        $Config{'archname'}
+    ------------------------------------------
+    Amiga DOS     amigaos    m68k-amigos
+
+See also:
+
+=over 4
+
+=item *
+
+Amiga, F<README.amiga> (installed as L<perlamiga>).
+
+=item *
+
+A free perl5-based PERL.NLM for Novell Netware is available in
+precompiled binary and source code form from L<http://www.novell.com/>
+as well as from CPAN.
+
+=item  *
+
+S<Plan 9>, F<README.plan9>
+
+=back
+
+=head1 FUNCTION IMPLEMENTATIONS
+
+Listed below are functions that are either completely unimplemented
+or else have been implemented differently on various platforms.
+Following each description will be, in parentheses, a list of
+platforms that the description applies to.
+
+The list may well be incomplete, or even wrong in some places.  When
+in doubt, consult the platform-specific README files in the Perl
+source distribution, and any other documentation resources accompanying
+a given port.
+
+Be aware, moreover, that even among Unix-ish systems there are variations.
+
+For many functions, you can also query C<%Config>, exported by
+default from the C<Config> module.  For example, to check whether the
+platform has the C<lstat> call, check C<$Config{d_lstat}>.  See
+L<Config> for a full description of available variables.
+
+=head2 Alphabetical Listing of Perl Functions
+
+=over 8
+
+=item -X
+
+C<-w> only inspects the read-only file attribute (FILE_ATTRIBUTE_READONLY),
+which determines whether the directory can be deleted, not whether it can
+be written to. Directories always have read and write access unless denied
+by discretionary access control lists (DACLs).  (S<Win32>)
+
+C<-r>, C<-w>, C<-x>, and C<-o> tell whether the file is accessible,
+which may not reflect UIC-based file protections.  (VMS)
+
+C<-s> by name on an open file will return the space reserved on disk,
+rather than the current extent.  C<-s> on an open filehandle returns the
+current size.  (S<RISC OS>)
+
+C<-R>, C<-W>, C<-X>, C<-O> are indistinguishable from C<-r>, C<-w>,
+C<-x>, C<-o>. (Win32, VMS, S<RISC OS>)
+
+C<-g>, C<-k>, C<-l>, C<-u>, C<-A> are not particularly meaningful.
+(Win32, VMS, S<RISC OS>)
+
+C<-p> is not particularly meaningful. (VMS, S<RISC OS>)
+
+C<-d> is true if passed a device spec without an explicit directory.
+(VMS)
+
+C<-x> (or C<-X>) determine if a file ends in one of the executable
+suffixes.  C<-S> is meaningless.  (Win32)
+
+C<-x> (or C<-X>) determine if a file has an executable file type.
+(S<RISC OS>)
+
+=item alarm
+
+Emulated using timers that must be explicitly polled whenever Perl
+wants to dispatch "safe signals" and therefore cannot interrupt
+blocking system calls.  (Win32)
+
+=item atan2
+
+Due to issues with various CPUs, math libraries, compilers, and standards,
+results for C<atan2()> may vary depending on any combination of the above.
+Perl attempts to conform to the Open Group/IEEE standards for the results
+returned from C<atan2()>, but cannot force the issue if the system Perl is
+run on does not allow it.  (Tru64, HP-UX 10.20)
+
+The current version of the standards for C<atan2()> is available at
+L<http://www.opengroup.org/onlinepubs/009695399/functions/atan2.html>.
+
+=item binmode
+
+Meaningless.  (S<RISC OS>)
+
+Reopens file and restores pointer; if function fails, underlying
+filehandle may be closed, or pointer may be in a different position.
+(VMS)
+
+The value returned by C<tell> may be affected after the call, and
+the filehandle may be flushed. (Win32)
+
+=item chmod
+
+Only good for changing "owner" read-write access, "group", and "other"
+bits are meaningless. (Win32)
+
+Only good for changing "owner" and "other" read-write access. (S<RISC OS>)
+
+Access permissions are mapped onto VOS access-control list changes. (VOS)
+
+The actual permissions set depend on the value of the C<CYGWIN>
+in the SYSTEM environment settings.  (Cygwin)
+
+Setting the exec bit on some locations (generally F</sdcard>) will return true
+but not actually set the bit. (Android)
+
+=item chown
+
+Not implemented. (Win32, S<Plan 9>, S<RISC OS>)
+
+Does nothing, but won't fail. (Win32)
+
+A little funky, because VOS's notion of ownership is a little funky (VOS).
+
+=item chroot
+
+Not implemented. (Win32, VMS, S<Plan 9>, S<RISC OS>, VOS)
+
+=item crypt
+
+May not be available if library or source was not provided when building
+perl. (Win32)
+
+Not implemented. (Android)
+
+=item dbmclose
+
+Not implemented. (VMS, S<Plan 9>, VOS)
+
+=item dbmopen
+
+Not implemented. (VMS, S<Plan 9>, VOS)
+
+=item dump
+
+Not useful. (S<RISC OS>)
+
+Not supported. (Cygwin, Win32)
+
+Invokes VMS debugger. (VMS)
+
+=item exec
+
+C<exec LIST> without the use of indirect object syntax (C<exec PROGRAM LIST>)
+may fall back to trying the shell if the first C<spawn()> fails.  (Win32)
+
+Does not automatically flush output handles on some platforms.
+(SunOS, Solaris, HP-UX)
+
+Not supported. (Symbian OS)
+
+=item exit
+
+Emulates Unix C<exit()> (which considers C<exit 1> to indicate an error) by
+mapping the C<1> to C<SS$_ABORT> (C<44>).  This behavior may be overridden
+with the pragma C<use vmsish 'exit'>.  As with the CRTL's C<exit()>
+function, C<exit 0> is also mapped to an exit status of C<SS$_NORMAL>
+(C<1>); this mapping cannot be overridden.  Any other argument to
+C<exit()>
+is used directly as Perl's exit status.  On VMS, unless the future
+POSIX_EXIT mode is enabled, the exit code should always be a valid
+VMS exit code and not a generic number.  When the POSIX_EXIT mode is
+enabled, a generic number will be encoded in a method compatible with
+the C library _POSIX_EXIT macro so that it can be decoded by other
+programs, particularly ones written in C, like the GNV package.  (VMS)
+
+C<exit()> resets file pointers, which is a problem when called
+from a child process (created by C<fork()>) in C<BEGIN>.
+A workaround is to use C<POSIX::_exit>.  (Solaris)
+
+    exit unless $Config{archname} =~ /\bsolaris\b/;
+    require POSIX and POSIX::_exit(0);
+
+=item fcntl
+
+Not implemented. (Win32)
+
+Some functions available based on the version of VMS. (VMS)
+
+=item flock
+
+Not implemented (VMS, S<RISC OS>, VOS).
+
+=item fork
+
+Not implemented. (AmigaOS, S<RISC OS>, VMS)
+
+Emulated using multiple interpreters.  See L<perlfork>.  (Win32)
+
+Does not automatically flush output handles on some platforms.
+(SunOS, Solaris, HP-UX)
+
+=item getlogin
+
+Not implemented. (S<RISC OS>)
+
+=item getpgrp
+
+Not implemented. (Win32, VMS, S<RISC OS>)
+
+=item getppid
+
+Not implemented. (Win32, S<RISC OS>)
+
+=item getpriority
+
+Not implemented. (Win32, VMS, S<RISC OS>, VOS)
+
+=item getpwnam
+
+Not implemented. (Win32)
+
+Not useful. (S<RISC OS>)
+
+=item getgrnam
+
+Not implemented. (Win32, VMS, S<RISC OS>)
+
+=item getnetbyname
+
+Not implemented. (Android, Win32, S<Plan 9>)
+
+=item getpwuid
+
+Not implemented. (Win32)
+
+Not useful. (S<RISC OS>)
+
+=item getgrgid
+
+Not implemented. (Win32, VMS, S<RISC OS>)
+
+=item getnetbyaddr
+
+Not implemented. (Android, Win32, S<Plan 9>)
+
+=item getprotobynumber
+
+Not implemented. (Android)
+
+=item getservbyport
+
+=item getpwent
+
+Not implemented. (Android, Win32)
+
+=item getgrent
+
+Not implemented. (Android, Win32, VMS)
+
+=item gethostbyname
+
+C<gethostbyname('localhost')> does not work everywhere: you may have
+to use C<gethostbyname('127.0.0.1')>. (S<Irix 5>)
+
+=item gethostent
+
+Not implemented. (Win32)
+
+=item getnetent
+
+Not implemented. (Android, Win32, S<Plan 9>)
+
+=item getprotoent
+
+Not implemented. (Android, Win32, S<Plan 9>)
+
+=item getservent
+
+Not implemented. (Win32, S<Plan 9>)
+
+=item seekdir
+
+Not implemented. (Android)
+
+=item sethostent
+
+Not implemented. (Android, Win32, S<Plan 9>, S<RISC OS>)
+
+=item setnetent
+
+Not implemented. (Win32, S<Plan 9>, S<RISC OS>)
+
+=item setprotoent
+
+Not implemented. (Android, Win32, S<Plan 9>, S<RISC OS>)
+
+=item setservent
+
+Not implemented. (S<Plan 9>, Win32, S<RISC OS>)
+
+=item endpwent
+
+Not implemented. (Win32)
+
+Either not implemented or a no-op. (Android)
+
+=item endgrent
+
+Not implemented. (Android, S<RISC OS>, VMS, Win32)
+
+=item endhostent
+
+Not implemented. (Android, Win32)
+
+=item endnetent
+
+Not implemented. (Android, Win32, S<Plan 9>)
+
+=item endprotoent
+
+Not implemented. (Android, Win32, S<Plan 9>)
+
+=item endservent
+
+Not implemented. (S<Plan 9>, Win32)
+
+=item getsockopt SOCKET,LEVEL,OPTNAME
+
+Not implemented. (S<Plan 9>)
+
+=item glob
+
+This operator is implemented via the C<File::Glob> extension on most
+platforms.  See L<File::Glob> for portability information.
+
+=item gmtime
+
+In theory, C<gmtime()> is reliable from -2**63 to 2**63-1.  However,
+because work arounds in the implementation use floating point numbers,
+it will become inaccurate as the time gets larger.  This is a bug and
+will be fixed in the future.
+
+On VOS, time values are 32-bit quantities.
+
+=item ioctl FILEHANDLE,FUNCTION,SCALAR
+
+Not implemented. (VMS)
+
+Available only for socket handles, and it does what the C<ioctlsocket()> call
+in the Winsock API does. (Win32)
+
+Available only for socket handles. (S<RISC OS>)
+
+=item kill
+
+Not implemented, hence not useful for taint checking. (S<RISC OS>)
+
+C<kill()> doesn't have the semantics of C<raise()>, i.e. it doesn't send
+a signal to the identified process like it does on Unix platforms.
+Instead C<kill($sig, $pid)> terminates the process identified by C<$pid>,
+and makes it exit immediately with exit status $sig.  As in Unix, if
+$sig is 0 and the specified process exists, it returns true without
+actually terminating it. (Win32)
+
+C<kill(-9, $pid)> will terminate the process specified by C<$pid> and
+recursively all child processes owned by it.  This is different from
+the Unix semantics, where the signal will be delivered to all
+processes in the same process group as the process specified by
+$pid. (Win32)
+
+A pid of -1 indicating all processes on the system is not currently
+supported. (VMS)
+
+=item link
+
+Not implemented. (S<RISC OS>, VOS)
+
+Link count not updated because hard links are not quite that hard
+(They are sort of half-way between hard and soft links). (AmigaOS)
+
+Hard links are implemented on Win32 under NTFS only. They are
+natively supported on Windows 2000 and later.  On Windows NT they
+are implemented using the Windows POSIX subsystem support and the
+Perl process will need Administrator or Backup Operator privileges
+to create hard links.
+
+Available on 64 bit OpenVMS 8.2 and later.  (VMS)
+
+=item localtime
+
+localtime() has the same range as L</gmtime>, but because time zone
+rules change its accuracy for historical and future times may degrade
+but usually by no more than an hour.
+
+=item lstat
+
+Not implemented. (S<RISC OS>)
+
+Return values (especially for device and inode) may be bogus. (Win32)
+
+=item msgctl
+
+=item msgget
+
+=item msgsnd
+
+=item msgrcv
+
+Not implemented. (Android, Win32, VMS, S<Plan 9>, S<RISC OS>, VOS)
+
+=item open
+
+open to C<|-> and C<-|> are unsupported. (Win32, S<RISC OS>)
+
+Opening a process does not automatically flush output handles on some
+platforms.  (SunOS, Solaris, HP-UX)
+
+=item readlink
+
+Not implemented. (Win32, VMS, S<RISC OS>)
+
+=item rename
+
+Can't move directories between directories on different logical volumes. (Win32)
+
+=item rewinddir
+
+Will not cause C<readdir()> to re-read the directory stream.  The entries
+already read before the C<rewinddir()> call will just be returned again
+from a cache buffer. (Win32)
+
+=item select
+
+Only implemented on sockets. (Win32, VMS)
+
+Only reliable on sockets. (S<RISC OS>)
+
+Note that the C<select FILEHANDLE> form is generally portable.
+
+=item semctl
+
+=item semget
+
+=item semop
+
+Not implemented. (Android, Win32, VMS, S<RISC OS>)
+
+=item setgrent
+
+Not implemented. (Android, VMS, Win32, S<RISC OS>)
+
+=item setpgrp
+
+Not implemented. (Win32, VMS, S<RISC OS>, VOS)
+
+=item setpriority
+
+Not implemented. (Win32, VMS, S<RISC OS>, VOS)
+
+=item setpwent
+
+Not implemented. (Android, Win32, S<RISC OS>)
+
+=item setsockopt
+
+Not implemented. (S<Plan 9>)
+
+=item shmctl
+
+=item shmget
+
+=item shmread
+
+=item shmwrite
+
+Not implemented. (Android, Win32, VMS, S<RISC OS>)
+
+=item sleep
+
+Emulated using synchronization functions such that it can be
+interrupted by C<alarm()>, and limited to a maximum of 4294967 seconds,
+approximately 49 days. (Win32)
+
+=item sockatmark
+
+A relatively recent addition to socket functions, may not
+be implemented even in Unix platforms.
+
+=item socketpair
+
+Not implemented. (S<RISC OS>)
+
+Available on 64 bit OpenVMS 8.2 and later.  (VMS)
+
+=item stat
+
+Platforms that do not have rdev, blksize, or blocks will return these
+as '', so numeric comparison or manipulation of these fields may cause
+'not numeric' warnings.
+
+ctime not supported on UFS (S<Mac OS X>).
+
+ctime is creation time instead of inode change time  (Win32).
+
+device and inode are not meaningful.  (Win32)
+
+device and inode are not necessarily reliable.  (VMS)
+
+mtime, atime and ctime all return the last modification time.  Device and
+inode are not necessarily reliable.  (S<RISC OS>)
+
+dev, rdev, blksize, and blocks are not available.  inode is not
+meaningful and will differ between stat calls on the same file.  (os2)
+
+some versions of cygwin when doing a C<stat("foo")> and if not finding it
+may then attempt to C<stat("foo.exe")> (Cygwin)
+
+On Win32 C<stat()> needs to open the file to determine the link count
+and update attributes that may have been changed through hard links.
+Setting C<${^WIN32_SLOPPY_STAT}> to a true value speeds up C<stat()> by
+not performing this operation. (Win32)
+
+=item symlink
+
+Not implemented. (Win32, S<RISC OS>)
+
+Implemented on 64 bit VMS 8.3.  VMS requires the symbolic link to be in Unix
+syntax if it is intended to resolve to a valid path.
+
+=item syscall
+
+Not implemented. (Win32, VMS, S<RISC OS>, VOS)
+
+=item sysopen
+
+The traditional "0", "1", and "2" MODEs are implemented with different
+numeric values on some systems.  The flags exported by C<Fcntl>
+(O_RDONLY, O_WRONLY, O_RDWR) should work everywhere though.  (S<Mac
+OS>, OS/390)
+
+=item system
+
+As an optimization, may not call the command shell specified in
+C<$ENV{PERL5SHELL}>.  C<system(1, @args)> spawns an external
+process and immediately returns its process designator, without
+waiting for it to terminate.  Return value may be used subsequently
+in C<wait> or C<waitpid>.  Failure to C<spawn()> a subprocess is indicated
+by setting C<$?> to S<C<"255 << 8">>.  C<$?> is set in a way compatible with
+Unix (i.e. the exitstatus of the subprocess is obtained by S<C<"$? >> 8">>,
+as described in the documentation).  (Win32)
+
+There is no shell to process metacharacters, and the native standard is
+to pass a command line terminated by "\n" "\r" or "\0" to the spawned
+program.  Redirection such as C<< > foo >> is performed (if at all) by
+the run time library of the spawned program.  C<system> I<list> will call
+the Unix emulation library's C<exec> emulation, which attempts to provide
+emulation of the stdin, stdout, stderr in force in the parent, providing
+the child program uses a compatible version of the emulation library.
+I<scalar> will call the native command line direct and no such emulation
+of a child Unix program will exists.  Mileage B<will> vary.  (S<RISC OS>)
+
+C<system LIST> without the use of indirect object syntax (C<system PROGRAM LIST>)
+may fall back to trying the shell if the first C<spawn()> fails.  (Win32)
+
+Does not automatically flush output handles on some platforms.
+(SunOS, Solaris, HP-UX)
+
+The return value is POSIX-like (shifted up by 8 bits), which only allows
+room for a made-up value derived from the severity bits of the native
+32-bit condition code (unless overridden by C<use vmsish 'status'>).
+If the native condition code is one that has a POSIX value encoded, the
+POSIX value will be decoded to extract the expected exit value.
+For more details see L<perlvms/$?>. (VMS)
+
+=item telldir
+
+Not implemented. (Android)
+
+=item times
+
+"cumulative" times will be bogus.  On anything other than Windows NT
+or Windows 2000, "system" time will be bogus, and "user" time is
+actually the time returned by the C<clock()> function in the C runtime
+library. (Win32)
+
+Not useful. (S<RISC OS>)
+
+=item truncate
+
+Not implemented. (Older versions of VMS)
+
+Truncation to same-or-shorter lengths only. (VOS)
+
+If a FILEHANDLE is supplied, it must be writable and opened in append
+mode (i.e., use C<<< open(FH, '>>filename') >>>
+or C<sysopen(FH,...,O_APPEND|O_RDWR)>.  If a filename is supplied, it
+should not be held open elsewhere. (Win32)
+
+=item umask
+
+Returns undef where unavailable.
+
+C<umask> works but the correct permissions are set only when the file
+is finally closed. (AmigaOS)
+
+=item utime
+
+Only the modification time is updated. (VMS, S<RISC OS>)
+
+May not behave as expected.  Behavior depends on the C runtime
+library's implementation of C<utime()>, and the filesystem being
+used.  The FAT filesystem typically does not support an "access
+time" field, and it may limit timestamps to a granularity of
+two seconds. (Win32)
+
+=item wait
+
+=item waitpid
+
+Can only be applied to process handles returned for processes spawned
+using C<system(1, ...)> or pseudo processes created with C<fork()>. (Win32)
+
+Not useful. (S<RISC OS>)
+
+=back
+
+
+=head1 Supported Platforms
+
+The following platforms are known to build Perl 5.12 (as of April 2010,
+its release date) from the standard source code distribution available
+at L<http://www.cpan.org/src>
+
+=over
+
+=item Linux (x86, ARM, IA64)
+
+=item HP-UX
+
+=item AIX
+
+=item Win32
+
+=over
+
+=item Windows 2000
+
+=item Windows XP
+
+=item Windows Server 2003
+
+=item Windows Vista
+
+=item Windows Server 2008
+
+=item Windows 7
+
+=back
+
+=item Cygwin
+
+Some tests are known to fail:
+
+=over
+
+=item *
+
+F<ext/XS-APItest/t/call_checker.t> - see
+L<https://rt.perl.org/Ticket/Display.html?id=78502>
+
+=item *
+
+F<dist/I18N-Collate/t/I18N-Collate.t>
+
+=item *
+
+F<ext/Win32CORE/t/win32core.t> - may fail on recent cygwin installs.
+
+=back
+
+=item Solaris (x86, SPARC)
+
+=item OpenVMS
+
+=over
+
+=item Alpha (7.2 and later)
+
+=item I64 (8.2 and later)
+
+=back
+
+=item Symbian
+
+=item NetBSD
+
+=item FreeBSD
+
+=item Debian GNU/kFreeBSD
+
+=item Haiku
+
+=item Irix (6.5. What else?)
+
+=item OpenBSD
+
+=item Dragonfly BSD
+
+=item Midnight BSD
+
+=item QNX Neutrino RTOS (6.5.0)
+
+=item MirOS BSD
+
+=item Stratus OpenVOS (17.0 or later)
+
+Caveats:
+
+=over
+
+=item time_t issues that may or may not be fixed
+
+=back
+
+=item Symbian (Series 60 v3, 3.2 and 5 - what else?)
+
+=item Stratus VOS / OpenVOS
+
+=item AIX
+
+=item Android
+
+=item FreeMINT
+
+Perl now builds with FreeMiNT/Atari. It fails a few tests, that needs
+some investigation.
+
+The FreeMiNT port uses GNU dld for loadable module capabilities. So
+ensure you have that library installed when building perl.
+
+=back
+
+=head1 EOL Platforms
+
+=head2 (Perl 5.20)
+
+The following platforms were supported by a previous version of
+Perl but have been officially removed from Perl's source code
+as of 5.20:
+
+=over
+
+=item AT&T 3b1
+
+=back
+
+=head2 (Perl 5.14)
+
+The following platforms were supported up to 5.10.  They may still
+have worked in 5.12, but supporting code has been removed for 5.14:
+
+=over
+
+=item Windows 95
+
+=item Windows 98
+
+=item Windows ME
+
+=item Windows NT4
+
+=back
+
+=head2 (Perl 5.12)
+
+The following platforms were supported by a previous version of
+Perl but have been officially removed from Perl's source code
+as of 5.12:
+
+=over
+
+=item Atari MiNT
+
+=item Apollo Domain/OS
+
+=item Apple Mac OS 8/9
+
+=item Tenon Machten
+
+=back
+
+
+=head1 Supported Platforms (Perl 5.8)
+
+As of July 2002 (the Perl release 5.8.0), the following platforms were
+able to build Perl from the standard source code distribution
+available at L<http://www.cpan.org/src/>
+
+        AIX
+        BeOS
+        BSD/OS          (BSDi)
+        Cygwin
+        DG/UX
+        DOS DJGPP       1)
+        DYNIX/ptx
+        EPOC R5
+        FreeBSD
+        HI-UXMPP        (Hitachi) (5.8.0 worked but we didn't know it)
+        HP-UX
+        IRIX
+        Linux
+        Mac OS Classic
+        Mac OS X        (Darwin)
+        MPE/iX
+        NetBSD
+        NetWare
+        NonStop-UX
+        ReliantUNIX     (formerly SINIX)
+        OpenBSD
+        OpenVMS         (formerly VMS)
+        Open UNIX       (Unixware) (since Perl 5.8.1/5.9.0)
+        OS/2
+        OS/400          (using the PASE) (since Perl 5.8.1/5.9.0)
+        PowerUX
+        POSIX-BC        (formerly BS2000)
+        QNX
+        Solaris
+        SunOS 4
+        SUPER-UX        (NEC)
+        Tru64 UNIX      (formerly DEC OSF/1, Digital UNIX)
+        UNICOS
+        UNICOS/mk
+        UTS
+        VOS / OpenVOS
+        Win95/98/ME/2K/XP 2)
+        WinCE
+        z/OS            (formerly OS/390)
+        VM/ESA
+
+        1) in DOS mode either the DOS or OS/2 ports can be used
+        2) compilers: Borland, MinGW (GCC), VC6
+
+The following platforms worked with the previous releases (5.6 and
+5.7), but we did not manage either to fix or to test these in time
+for the 5.8.0 release.  There is a very good chance that many of these
+will work fine with the 5.8.0.
+
+        BSD/OS
+        DomainOS
+        Hurd
+        LynxOS
+        MachTen
+        PowerMAX
+        SCO SV
+        SVR4
+        Unixware
+        Windows 3.1
+
+Known to be broken for 5.8.0 (but 5.6.1 and 5.7.2 can be used):
+
+	AmigaOS 3
+
+The following platforms have been known to build Perl from source in
+the past (5.005_03 and earlier), but we haven't been able to verify
+their status for the current release, either because the
+hardware/software platforms are rare or because we don't have an
+active champion on these platforms--or both.  They used to work,
+though, so go ahead and try compiling them, and let perlbug@perl.org
+of any trouble.
+
+        3b1
+        A/UX
+        ConvexOS
+        CX/UX
+        DC/OSx
+        DDE SMES
+        DOS EMX
+        Dynix
+        EP/IX
+        ESIX
+        FPS
+        GENIX
+        Greenhills
+        ISC
+        MachTen 68k
+        MPC
+        NEWS-OS
+        NextSTEP
+        OpenSTEP
+        Opus
+        Plan 9
+        RISC/os
+        SCO ODT/OSR
+        Stellar
+        SVR2
+        TI1500
+        TitanOS
+        Ultrix
+        Unisys Dynix
+
+The following platforms have their own source code distributions and
+binaries available via L<http://www.cpan.org/ports/>
+
+                                Perl release
+
+        OS/400 (ILE)            5.005_02
+        Tandem Guardian         5.004
+
+The following platforms have only binaries available via
+L<http://www.cpan.org/ports/index.html> :
+
+                                Perl release
+
+        Acorn RISCOS            5.005_02
+        AOS                     5.002
+        LynxOS                  5.004_02
+
+Although we do suggest that you always build your own Perl from
+the source code, both for maximal configurability and for security,
+in case you are in a hurry you can check
+L<http://www.cpan.org/ports/index.html> for binary distributions.
+
+=head1 SEE ALSO
+
+L<perlaix>, L<perlamiga>, L<perlbs2000>,
+L<perlce>, L<perlcygwin>, L<perldos>,
+L<perlebcdic>, L<perlfreebsd>, L<perlhurd>, L<perlhpux>, L<perlirix>,
+L<perlmacos>, L<perlmacosx>,
+L<perlnetware>, L<perlos2>, L<perlos390>, L<perlos400>,
+L<perlplan9>, L<perlqnx>, L<perlsolaris>, L<perltru64>,
+L<perlunicode>, L<perlvms>, L<perlvos>, L<perlwin32>, and L<Win32>.
+
+=head1 AUTHORS / CONTRIBUTORS
+
+Abigail <abigail@foad.org>,
+Charles Bailey <bailey@newman.upenn.edu>,
+Graham Barr <gbarr@pobox.com>,
+Tom Christiansen <tchrist@perl.com>,
+Nicholas Clark <nick@ccl4.org>,
+Thomas Dorner <Thomas.Dorner@start.de>,
+Andy Dougherty <doughera@lafayette.edu>,
+Dominic Dunlop <domo@computer.org>,
+Neale Ferguson <neale@vma.tabnsw.com.au>,
+David J. Fiander <davidf@mks.com>,
+Paul Green <Paul.Green@stratus.com>,
+M.J.T. Guy <mjtg@cam.ac.uk>,
+Jarkko Hietaniemi <jhi@iki.fi>,
+Luther Huffman <lutherh@stratcom.com>,
+Nick Ing-Simmons <nick@ing-simmons.net>,
+Andreas J. KE<ouml>nig <a.koenig@mind.de>,
+Markus Laker <mlaker@contax.co.uk>,
+Andrew M. Langmead <aml@world.std.com>,
+Larry Moore <ljmoore@freespace.net>,
+Paul Moore <Paul.Moore@uk.origin-it.com>,
+Chris Nandor <pudge@pobox.com>,
+Matthias Neeracher <neeracher@mac.com>,
+Philip Newton <pne@cpan.org>,
+Gary Ng <71564.1743@CompuServe.COM>,
+Tom Phoenix <rootbeer@teleport.com>,
+AndrE<eacute> Pirard <A.Pirard@ulg.ac.be>,
+Peter Prymmer <pvhp@forte.com>,
+Hugo van der Sanden <hv@crypt0.demon.co.uk>,
+Gurusamy Sarathy <gsar@activestate.com>,
+Paul J. Schinder <schinder@pobox.com>,
+Michael G Schwern <schwern@pobox.com>,
+Dan Sugalski <dan@sidhe.org>,
+Nathan Torkington <gnat@frii.com>,
+John Malmberg <wb8tyw@qsl.net>
diff --git a/lib/5.24.1/pod/perlpragma.pod b/lib/5.24.1/pod/perlpragma.pod
new file mode 100644
index 00000000..78dacbf1
--- /dev/null
+++ b/lib/5.24.1/pod/perlpragma.pod
@@ -0,0 +1,163 @@
+=head1 NAME
+
+perlpragma - how to write a user pragma
+
+=head1 DESCRIPTION
+
+A pragma is a module which influences some aspect of the compile time or run
+time behaviour of Perl, such as C<strict> or C<warnings>. With Perl 5.10 you
+are no longer limited to the built in pragmata; you can now create user
+pragmata that modify the behaviour of user functions within a lexical scope.
+
+=head1 A basic example
+
+For example, say you need to create a class implementing overloaded
+mathematical operators, and would like to provide your own pragma that
+functions much like C<use integer;> You'd like this code
+
+    use MyMaths;
+
+    my $l = MyMaths->new(1.2);
+    my $r = MyMaths->new(3.4);
+
+    print "A: ", $l + $r, "\n";
+
+    use myint;
+    print "B: ", $l + $r, "\n";
+
+    {
+        no myint;
+        print "C: ", $l + $r, "\n";
+    }
+
+    print "D: ", $l + $r, "\n";
+
+    no myint;
+    print "E: ", $l + $r, "\n";
+
+to give the output
+
+    A: 4.6
+    B: 4
+    C: 4.6
+    D: 4
+    E: 4.6
+
+I<i.e.>, where C<use myint;> is in effect, addition operations are forced
+to integer, whereas by default they are not, with the default behaviour being
+restored via C<no myint;>
+
+The minimal implementation of the package C<MyMaths> would be something like
+this:
+
+    package MyMaths;
+    use warnings;
+    use strict;
+    use myint();
+    use overload '+' => sub {
+        my ($l, $r) = @_;
+	# Pass 1 to check up one call level from here
+        if (myint::in_effect(1)) {
+            int($$l) + int($$r);
+        } else {
+            $$l + $$r;
+        }
+    };
+
+    sub new {
+        my ($class, $value) = @_;
+        bless \$value, $class;
+    }
+
+    1;
+
+Note how we load the user pragma C<myint> with an empty list C<()> to
+prevent its C<import> being called.
+
+The interaction with the Perl compilation happens inside package C<myint>:
+
+    package myint;
+
+    use strict;
+    use warnings;
+
+    sub import {
+        $^H{"myint/in_effect"} = 1;
+    }
+
+    sub unimport {
+        $^H{"myint/in_effect"} = 0;
+    }
+
+    sub in_effect {
+        my $level = shift // 0;
+        my $hinthash = (caller($level))[10];
+        return $hinthash->{"myint/in_effect"};
+    }
+
+    1;
+
+As pragmata are implemented as modules, like any other module, C<use myint;>
+becomes
+
+    BEGIN {
+        require myint;
+        myint->import();
+    }
+
+and C<no myint;> is
+
+    BEGIN {
+        require myint;
+        myint->unimport();
+    }
+
+Hence the C<import> and C<unimport> routines are called at B<compile time>
+for the user's code.
+
+User pragmata store their state by writing to the magical hash C<%^H>,
+hence these two routines manipulate it. The state information in C<%^H> is
+stored in the optree, and can be retrieved read-only at runtime with C<caller()>,
+at index 10 of the list of returned results. In the example pragma, retrieval
+is encapsulated into the routine C<in_effect()>, which takes as parameter
+the number of call frames to go up to find the value of the pragma in the
+user's script. This uses C<caller()> to determine the value of
+C<$^H{"myint/in_effect"}> when each line of the user's script was called, and
+therefore provide the correct semantics in the subroutine implementing the
+overloaded addition.
+
+=head1 Key naming
+
+There is only a single C<%^H>, but arbitrarily many modules that want
+to use its scoping semantics.  To avoid stepping on each other's toes,
+they need to be sure to use different keys in the hash.  It is therefore
+conventional for a module to use only keys that begin with the module's
+name (the name of its main package) and a "/" character.  After this
+module-identifying prefix, the rest of the key is entirely up to the
+module: it may include any characters whatsoever.  For example, a module
+C<Foo::Bar> should use keys such as C<Foo::Bar/baz> and C<Foo::Bar/$%/_!>.
+Modules following this convention all play nicely with each other.
+
+The Perl core uses a handful of keys in C<%^H> which do not follow this
+convention, because they predate it.  Keys that follow the convention
+won't conflict with the core's historical keys.
+
+=head1 Implementation details
+
+The optree is shared between threads.  This means there is a possibility that
+the optree will outlive the particular thread (and therefore the interpreter
+instance) that created it, so true Perl scalars cannot be stored in the
+optree.  Instead a compact form is used, which can only store values that are
+integers (signed and unsigned), strings or C<undef> - references and
+floating point values are stringified.  If you need to store multiple values
+or complex structures, you should serialise them, for example with C<pack>.
+The deletion of a hash key from C<%^H> is recorded, and as ever can be
+distinguished from the existence of a key with value C<undef> with
+C<exists>.
+
+B<Don't> attempt to store references to data structures as integers which
+are retrieved via C<caller> and converted back, as this will not be threadsafe.
+Accesses would be to the structure without locking (which is not safe for
+Perl's scalars), and either the structure has to leak, or it has to be
+freed when its creating thread terminates, which may be before the optree
+referencing it is deleted, if other threads outlive it.
diff --git a/lib/5.24.1/pod/perlqnx.pod b/lib/5.24.1/pod/perlqnx.pod
new file mode 100644
index 00000000..c16072ee
--- /dev/null
+++ b/lib/5.24.1/pod/perlqnx.pod
@@ -0,0 +1,204 @@
+If you read this file _as_is_, just ignore the funny characters you see.
+It is written in the POD format (see pod/perlpod.pod) which is specially
+designed to be readable as is.
+
+=head1 NAME
+
+perlqnx - Perl version 5 on QNX
+
+=head1 DESCRIPTION
+
+As of perl5.7.2 all tests pass under:
+
+  QNX 4.24G
+  Watcom 10.6 with Beta/970211.wcc.update.tar.F
+  socket3r.lib Nov21 1996.
+
+As of perl5.8.1 there is at least one test still failing.
+
+Some tests may complain under known circumstances.
+
+See below and hints/qnx.sh for more information.
+
+Under QNX 6.2.0 there are still a few tests which fail.
+See below and hints/qnx.sh for more information.
+
+=head2 Required Software for Compiling Perl on QNX4
+
+As with many unix ports, this one depends on a few "standard"
+unix utilities which are not necessarily standard for QNX4.
+
+=over 4
+
+=item /bin/sh
+
+This is used heavily by Configure and then by
+perl itself. QNX4's version is fine, but Configure
+will choke on the 16-bit version, so if you are
+running QNX 4.22, link /bin/sh to /bin32/ksh
+
+=item ar
+
+This is the standard unix library builder.
+We use wlib. With Watcom 10.6, when wlib is
+linked as "ar", it behaves like ar and all is
+fine. Under 9.5, a cover is required. One is
+included in ../qnx
+
+=item nm
+
+This is used (optionally) by configure to list
+the contents of libraries. I will generate
+a cover function on the fly in the UU directory.
+
+=item cpp
+
+Configure and perl need a way to invoke a C
+preprocessor. I have created a simple cover
+for cc which does the right thing. Without this,
+Configure will create its own wrapper which works,
+but it doesn't handle some of the command line arguments
+that perl will throw at it.
+
+=item make
+
+You really need GNU make to compile this. GNU make
+ships by default with QNX 4.23, but you can get it
+from quics for earlier versions.
+
+=back
+
+=head2 Outstanding Issues with Perl on QNX4
+
+There is no support for dynamically linked libraries in QNX4.
+
+If you wish to compile with the Socket extension, you need
+to have the TCP/IP toolkit, and you need to make sure that
+-lsocket locates the correct copy of socket3r.lib. Beware
+that the Watcom compiler ships with a stub version of
+socket3r.lib which has very little functionality. Also
+beware the order in which wlink searches directories for
+libraries. You may have /usr/lib/socket3r.lib pointing to
+the correct library, but wlink may pick up
+/usr/watcom/10.6/usr/lib/socket3r.lib instead. Make sure
+they both point to the correct library, that is,
+/usr/tcptk/current/usr/lib/socket3r.lib.
+
+The following tests may report errors under QNX4:
+
+dist/Cwd/Cwd.t will complain if `pwd` and cwd don't give
+the same results. cwd calls `fullpath -t`, so if you
+cd `fullpath -t` before running the test, it will
+pass.
+
+lib/File/Find/taint.t will complain if '.' is in your
+PATH. The PATH test is triggered because cwd calls
+`fullpath -t`.
+
+ext/IO/lib/IO/t/io_sock.t: Subtests 14 and 22 are skipped due to
+the fact that the functionality to read back the non-blocking
+status of a socket is not implemented in QNX's TCP/IP. This has
+been reported to QNX and it may work with later versions of
+TCP/IP.
+
+t/io/tell.t: Subtest 27 is failing. We are still investigating.
+
+=head2 QNX auxiliary files
+
+The files in the "qnx" directory are:
+
+=over 4
+
+=item qnx/ar
+
+A script that emulates the standard unix archive (aka library)
+utility.  Under Watcom 10.6, ar is linked to wlib and provides the
+expected interface. With Watcom 9.5, a cover function is
+required. This one is fairly crude but has proved adequate for
+compiling perl.
+
+=item qnx/cpp
+
+A script that provides C preprocessing functionality.  Configure can
+generate a similar cover, but it doesn't handle all the command-line
+options that perl throws at it. This might be reasonably placed in
+/usr/local/bin.
+
+=back
+
+=head2 Outstanding issues with perl under QNX6
+
+The following tests are still failing for Perl 5.8.1 under QNX 6.2.0:
+
+  op/sprintf.........................FAILED at test 91
+  lib/Benchmark......................FAILED at test 26
+
+This is due to a bug in the C library's printf routine.
+printf("'%e'", 0. ) produces '0.000000e+0', but ANSI requires
+'0.000000e+00'. QNX has acknowledged the bug.
+
+=head2 Cross-compilation
+
+Perl supports cross-compiling to QNX NTO through the
+Native Development Kit (NDK) for the Blackberry 10.  This means that you
+can cross-compile for both ARM and x86 versions of the platform.
+
+=head3 Setting up a cross-compilation environment
+
+You can download the NDK from
+L<http://developer.blackberry.com/native/downloads/>.
+
+See
+L<http://developer.blackberry.com/native/documentation/cascades/getting_started/setting_up.html>
+for instructions to set up your device prior to attempting anything else.
+
+Once you've installed the NDK and set up your device, all that's
+left to do is setting up the device and the cross-compilation
+environment.  Blackberry provides a script, C<bbndk-env.sh> (occasionally
+named something like C<bbndk-env_10_1_0_4828.sh>) which can be used
+to do this.  However, there's a bit of a snag that we have to work through:
+The script modifies PATH so that 'gcc' or 'ar' point to their
+cross-compilation equivalents, which screws over the build process.
+
+So instead you'll want to do something like this:
+
+    $ orig_path=$PATH
+    $ source $location_of_bbndk/bbndk-env*.sh
+    $ export PATH="$orig_path:$PATH"
+
+Besides putting the cross-compiler and the rest of the toolchain in your
+PATH, this will also provide the QNX_TARGET variable, which
+we will pass to Configure through -Dsysroot.
+
+=head3 Preparing the target system
+
+It's quite possible that the target system doesn't have a readily
+available /tmp, so it's generall safer to do something like this:
+
+ $ ssh $TARGETUSER@$TARGETHOST 'rm -rf perl; mkdir perl; mkdir perl/tmp'
+ $ export TARGETDIR=`ssh $TARGETUSER@$TARGETHOST pwd`/perl
+ $ export TARGETENV="export TMPDIR=$TARGETDIR/tmp; "
+
+Later on, we'll pass this to Configure through -Dtargetenv
+
+=head3 Calling Configure
+
+If you are targetting an ARM device -- which currently includes the vast 
+majority of phones and tablets -- you'll want to pass
+-Dcc=arm-unknown-nto-qnx8.0.0eabi-gcc to Configure.  Alternatively, if you 
+are targetting an x86 device, or using the simulator provided with the NDK,
+you should specify -Dcc=ntox86-gcc instead.
+
+A sample Configure invocation looks something like this:
+
+    ./Configure -des -Dusecrosscompile \
+        -Dsysroot=$QNX_TARGET          \
+        -Dtargetdir=$TARGETDIR         \
+        -Dtargetenv="$TARGETENV"       \
+        -Dcc=ntox86-gcc                \
+        -Dtarghost=... # Usual cross-compilation options
+
+=head1 AUTHOR
+
+Norton T. Allen (allen@huarp.harvard.edu)
+
diff --git a/lib/5.24.1/pod/perlre.pod b/lib/5.24.1/pod/perlre.pod
new file mode 100644
index 00000000..094a87b8
--- /dev/null
+++ b/lib/5.24.1/pod/perlre.pod
@@ -0,0 +1,2801 @@
+=head1 NAME
+X<regular expression> X<regex> X<regexp>
+
+perlre - Perl regular expressions
+
+=head1 DESCRIPTION
+
+This page describes the syntax of regular expressions in Perl.
+
+If you haven't used regular expressions before, a quick-start
+introduction is available in L<perlrequick>, and a longer tutorial
+introduction is available in L<perlretut>.
+
+For reference on how regular expressions are used in matching
+operations, plus various examples of the same, see discussions of
+C<m//>, C<s///>, C<qr//> and C<"??"> in L<perlop/"Regexp Quote-Like
+Operators">.
+
+New in v5.22, L<C<use re 'strict'>|re/'strict' mode> applies stricter
+rules than otherwise when compiling regular expression patterns.  It can
+find things that, while legal, may not be what you intended.
+
+=head2 Modifiers
+
+=head3 Overview
+
+Matching operations can have various modifiers.  Modifiers
+that relate to the interpretation of the regular expression inside
+are listed below.  Modifiers that alter the way a regular expression
+is used by Perl are detailed in L<perlop/"Regexp Quote-Like Operators"> and
+L<perlop/"Gory details of parsing quoted constructs">.
+
+=over 4
+
+=item B<C<m>>
+X</m> X<regex, multiline> X<regexp, multiline> X<regular expression, multiline>
+
+Treat the string as multiple lines.  That is, change C<"^"> and C<"$"> from matching
+the start of the string's first line and the end of its last line to
+matching the start and end of each line within the string.
+
+=item B<C<s>>
+X</s> X<regex, single-line> X<regexp, single-line>
+X<regular expression, single-line>
+
+Treat the string as single line.  That is, change C<"."> to match any character
+whatsoever, even a newline, which normally it would not match.
+
+Used together, as C</ms>, they let the C<"."> match any character whatsoever,
+while still allowing C<"^"> and C<"$"> to match, respectively, just after
+and just before newlines within the string.
+
+=item B<C<i>>
+X</i> X<regex, case-insensitive> X<regexp, case-insensitive>
+X<regular expression, case-insensitive>
+
+Do case-insensitive pattern matching.  For example, "A" will match "a"
+under C</i>.
+
+If locale matching rules are in effect, the case map is taken from the
+current
+locale for code points less than 255, and from Unicode rules for larger
+code points.  However, matches that would cross the Unicode
+rules/non-Unicode rules boundary (ords 255/256) will not succeed, unless
+the locale is a UTF-8 one.  See L<perllocale>.
+
+There are a number of Unicode characters that match a sequence of
+multiple characters under C</i>.  For example,
+C<LATIN SMALL LIGATURE FI> should match the sequence C<fi>.  Perl is not
+currently able to do this when the multiple characters are in the pattern and
+are split between groupings, or when one or more are quantified.  Thus
+
+ "\N{LATIN SMALL LIGATURE FI}" =~ /fi/i;          # Matches
+ "\N{LATIN SMALL LIGATURE FI}" =~ /[fi][fi]/i;    # Doesn't match!
+ "\N{LATIN SMALL LIGATURE FI}" =~ /fi*/i;         # Doesn't match!
+
+ # The below doesn't match, and it isn't clear what $1 and $2 would
+ # be even if it did!!
+ "\N{LATIN SMALL LIGATURE FI}" =~ /(f)(i)/i;      # Doesn't match!
+
+Perl doesn't match multiple characters in a bracketed
+character class unless the character that maps to them is explicitly
+mentioned, and it doesn't match them at all if the character class is
+inverted, which otherwise could be highly confusing.  See
+L<perlrecharclass/Bracketed Character Classes>, and
+L<perlrecharclass/Negation>.
+
+=item B<C<x>>
+X</x>
+
+Extend your pattern's legibility by permitting whitespace and comments.
+Details in L</"/x">
+
+=item B<C<p>>
+X</p> X<regex, preserve> X<regexp, preserve>
+
+Preserve the string matched such that C<${^PREMATCH}>, C<${^MATCH}>, and
+C<${^POSTMATCH}> are available for use after matching.
+
+In Perl 5.20 and higher this is ignored. Due to a new copy-on-write
+mechanism, C<${^PREMATCH}>, C<${^MATCH}>, and C<${^POSTMATCH}> will be available
+after the match regardless of the modifier.
+
+=item B<C<a>>, B<C<d>>, B<C<l>>, and B<C<u>>
+X</a> X</d> X</l> X</u>
+
+These modifiers, all new in 5.14, affect which character-set rules
+(Unicode, etc.) are used, as described below in
+L</Character set modifiers>.
+
+=item B<C<n>>
+X</n> X<regex, non-capture> X<regexp, non-capture>
+X<regular expression, non-capture>
+
+Prevent the grouping metacharacters C<()> from capturing. This modifier,
+new in 5.22, will stop C<$1>, C<$2>, etc... from being filled in.
+
+  "hello" =~ /(hi|hello)/;   # $1 is "hello"
+  "hello" =~ /(hi|hello)/n;  # $1 is undef
+
+This is equivalent to putting C<?:> at the beginning of every capturing group:
+
+  "hello" =~ /(?:hi|hello)/; # $1 is undef
+
+C</n> can be negated on a per-group basis. Alternatively, named captures
+may still be used.
+
+  "hello" =~ /(?-n:(hi|hello))/n;   # $1 is "hello"
+  "hello" =~ /(?<greet>hi|hello)/n; # $1 is "hello", $+{greet} is
+                                    # "hello"
+
+=item Other Modifiers
+
+There are a number of flags that can be found at the end of regular
+expression constructs that are I<not> generic regular expression flags, but
+apply to the operation being performed, like matching or substitution (C<m//>
+or C<s///> respectively).
+
+Flags described further in
+L<perlretut/"Using regular expressions in Perl"> are:
+
+  c  - keep the current position during repeated matching
+  g  - globally match the pattern repeatedly in the string
+
+Substitution-specific modifiers described in
+
+L<perlop/"s/PATTERN/REPLACEMENT/msixpodualngcer"> are:
+
+  e  - evaluate the right-hand side as an expression
+  ee - evaluate the right side as a string then eval the result
+  o  - pretend to optimize your code, but actually introduce bugs
+  r  - perform non-destructive substitution and return the new value
+
+=back
+
+Regular expression modifiers are usually written in documentation
+as e.g., "the C</x> modifier", even though the delimiter
+in question might not really be a slash.  The modifiers C</imnsxadlup>
+may also be embedded within the regular expression itself using
+the C<(?...)> construct, see L</Extended Patterns> below.
+
+=head3 Details on some modifiers
+
+Some of the modifiers require more explanation than given in the
+L</Overview> above.
+
+=head4 /x
+
+C</x> tells
+the regular expression parser to ignore most whitespace that is neither
+backslashed nor within a bracketed character class.  You can use this to
+break up your regular expression into (slightly) more readable parts.
+Also, the C<"#"> character is treated as a metacharacter introducing a
+comment that runs up to the pattern's closing delimiter, or to the end
+of the current line if the pattern extends onto the next line.  Hence,
+this is very much like an ordinary Perl code comment.  (You can include
+the closing delimiter within the comment only if you precede it with a
+backslash, so be careful!)
+
+Use of C</x> means that if you want real
+whitespace or C<"#"> characters in the pattern (outside a bracketed character
+class, which is unaffected by C</x>), then you'll either have to
+escape them (using backslashes or C<\Q...\E>) or encode them using octal,
+hex, or C<\N{}> escapes.
+It is ineffective to try to continue a comment onto the next line by
+escaping the C<\n> with a backslash or C<\Q>.
+
+You can use L</(?#text)> to create a comment that ends earlier than the
+end of the current line, but C<text> also can't contain the closing
+delimiter unless escaped with a backslash.
+
+Taken together, these features go a long way towards
+making Perl's regular expressions more readable.  Here's an example:
+
+    # Delete (most) C comments.
+    $program =~ s {
+	/\*	# Match the opening delimiter.
+	.*?	# Match a minimal number of characters.
+	\*/	# Match the closing delimiter.
+    } []gsx;
+
+Note that anything inside
+a C<\Q...\E> stays unaffected by C</x>.  And note that C</x> doesn't affect
+space interpretation within a single multi-character construct.  For
+example in C<\x{...}>, regardless of the C</x> modifier, there can be no
+spaces.  Same for a L<quantifier|/Quantifiers> such as C<{3}> or
+C<{5,}>.  Similarly, C<(?:...)> can't have a space between the C<"{">,
+C<"?">, and C<":">.  Within any delimiters for such a
+construct, allowed spaces are not affected by C</x>, and depend on the
+construct.  For example, C<\x{...}> can't have spaces because hexadecimal
+numbers don't have spaces in them.  But, Unicode properties can have spaces, so
+in C<\p{...}> there can be spaces that follow the Unicode rules, for which see
+L<perluniprops/Properties accessible through \p{} and \P{}>.
+X</x>
+
+The set of characters that are deemed whitespace are those that Unicode
+calls "Pattern White Space", namely:
+
+ U+0009 CHARACTER TABULATION
+ U+000A LINE FEED
+ U+000B LINE TABULATION
+ U+000C FORM FEED
+ U+000D CARRIAGE RETURN
+ U+0020 SPACE
+ U+0085 NEXT LINE
+ U+200E LEFT-TO-RIGHT MARK
+ U+200F RIGHT-TO-LEFT MARK
+ U+2028 LINE SEPARATOR
+ U+2029 PARAGRAPH SEPARATOR
+
+=head4 Character set modifiers
+
+C</d>, C</u>, C</a>, and C</l>, available starting in 5.14, are called
+the character set modifiers; they affect the character set rules
+used for the regular expression.
+
+The C</d>, C</u>, and C</l> modifiers are not likely to be of much use
+to you, and so you need not worry about them very much.  They exist for
+Perl's internal use, so that complex regular expression data structures
+can be automatically serialized and later exactly reconstituted,
+including all their nuances.  But, since Perl can't keep a secret, and
+there may be rare instances where they are useful, they are documented
+here.
+
+The C</a> modifier, on the other hand, may be useful.  Its purpose is to
+allow code that is to work mostly on ASCII data to not have to concern
+itself with Unicode.
+
+Briefly, C</l> sets the character set to that of whatever B<L>ocale is in
+effect at the time of the execution of the pattern match.
+
+C</u> sets the character set to B<U>nicode.
+
+C</a> also sets the character set to Unicode, BUT adds several
+restrictions for B<A>SCII-safe matching.
+
+C</d> is the old, problematic, pre-5.14 B<D>efault character set
+behavior.  Its only use is to force that old behavior.
+
+At any given time, exactly one of these modifiers is in effect.  Their
+existence allows Perl to keep the originally compiled behavior of a
+regular expression, regardless of what rules are in effect when it is
+actually executed.  And if it is interpolated into a larger regex, the
+original's rules continue to apply to it, and only it.
+
+The C</l> and C</u> modifiers are automatically selected for
+regular expressions compiled within the scope of various pragmas,
+and we recommend that in general, you use those pragmas instead of
+specifying these modifiers explicitly.  For one thing, the modifiers
+affect only pattern matching, and do not extend to even any replacement
+done, whereas using the pragmas gives consistent results for all
+appropriate operations within their scopes.  For example,
+
+ s/foo/\Ubar/il
+
+will match "foo" using the locale's rules for case-insensitive matching,
+but the C</l> does not affect how the C<\U> operates.  Most likely you
+want both of them to use locale rules.  To do this, instead compile the
+regular expression within the scope of C<use locale>.  This both
+implicitly adds the C</l>, and applies locale rules to the C<\U>.   The
+lesson is to C<use locale>, and not C</l> explicitly.
+
+Similarly, it would be better to use C<use feature 'unicode_strings'>
+instead of,
+
+ s/foo/\Lbar/iu
+
+to get Unicode rules, as the C<\L> in the former (but not necessarily
+the latter) would also use Unicode rules.
+
+More detail on each of the modifiers follows.  Most likely you don't
+need to know this detail for C</l>, C</u>, and C</d>, and can skip ahead
+to L<E<sol>a|/E<sol>a (and E<sol>aa)>.
+
+=head4 /l
+
+means to use the current locale's rules (see L<perllocale>) when pattern
+matching.  For example, C<\w> will match the "word" characters of that
+locale, and C<"/i"> case-insensitive matching will match according to
+the locale's case folding rules.  The locale used will be the one in
+effect at the time of execution of the pattern match.  This may not be
+the same as the compilation-time locale, and can differ from one match
+to another if there is an intervening call of the
+L<setlocale() function|perllocale/The setlocale function>.
+
+Prior to v5.20, Perl did not support multi-byte locales.  Starting then,
+UTF-8 locales are supported.  No other multi byte locales are ever
+likely to be supported.  However, in all locales, one can have code
+points above 255 and these will always be treated as Unicode no matter
+what locale is in effect.
+
+Under Unicode rules, there are a few case-insensitive matches that cross
+the 255/256 boundary.  Except for UTF-8 locales in Perls v5.20 and
+later, these are disallowed under C</l>.  For example, 0xFF (on ASCII
+platforms) does not caselessly match the character at 0x178, C<LATIN
+CAPITAL LETTER Y WITH DIAERESIS>, because 0xFF may not be C<LATIN SMALL
+LETTER Y WITH DIAERESIS> in the current locale, and Perl has no way of
+knowing if that character even exists in the locale, much less what code
+point it is.
+
+In a UTF-8 locale in v5.20 and later, the only visible difference
+between locale and non-locale in regular expressions should be tainting
+(see L<perlsec>).
+
+This modifier may be specified to be the default by C<use locale>, but
+see L</Which character set modifier is in effect?>.
+X</l>
+
+=head4 /u
+
+means to use Unicode rules when pattern matching.  On ASCII platforms,
+this means that the code points between 128 and 255 take on their
+Latin-1 (ISO-8859-1) meanings (which are the same as Unicode's).
+(Otherwise Perl considers their meanings to be undefined.)  Thus,
+under this modifier, the ASCII platform effectively becomes a Unicode
+platform; and hence, for example, C<\w> will match any of the more than
+100_000 word characters in Unicode.
+
+Unlike most locales, which are specific to a language and country pair,
+Unicode classifies all the characters that are letters I<somewhere> in
+the world as
+C<\w>.  For example, your locale might not think that C<LATIN SMALL
+LETTER ETH> is a letter (unless you happen to speak Icelandic), but
+Unicode does.  Similarly, all the characters that are decimal digits
+somewhere in the world will match C<\d>; this is hundreds, not 10,
+possible matches.  And some of those digits look like some of the 10
+ASCII digits, but mean a different number, so a human could easily think
+a number is a different quantity than it really is.  For example,
+C<BENGALI DIGIT FOUR> (U+09EA) looks very much like an
+C<ASCII DIGIT EIGHT> (U+0038).  And, C<\d+>, may match strings of digits
+that are a mixture from different writing systems, creating a security
+issue.  L<Unicode::UCD/num()> can be used to sort
+this out.  Or the C</a> modifier can be used to force C<\d> to match
+just the ASCII 0 through 9.
+
+Also, under this modifier, case-insensitive matching works on the full
+set of Unicode
+characters.  The C<KELVIN SIGN>, for example matches the letters "k" and
+"K"; and C<LATIN SMALL LIGATURE FF> matches the sequence "ff", which,
+if you're not prepared, might make it look like a hexadecimal constant,
+presenting another potential security issue.  See
+L<http://unicode.org/reports/tr36> for a detailed discussion of Unicode
+security issues.
+
+This modifier may be specified to be the default by C<use feature
+'unicode_strings>, C<use locale ':not_characters'>, or
+C<L<use 5.012|perlfunc/use VERSION>> (or higher),
+but see L</Which character set modifier is in effect?>.
+X</u>
+
+=head4 /d
+
+This modifier means to use the "Default" native rules of the platform
+except when there is cause to use Unicode rules instead, as follows:
+
+=over 4
+
+=item 1
+
+the target string is encoded in UTF-8; or
+
+=item 2
+
+the pattern is encoded in UTF-8; or
+
+=item 3
+
+the pattern explicitly mentions a code point that is above 255 (say by
+C<\x{100}>); or
+
+=item 4
+
+the pattern uses a Unicode name (C<\N{...}>);  or
+
+=item 5
+
+the pattern uses a Unicode property (C<\p{...}> or C<\P{...}>); or
+
+=item 6
+
+the pattern uses a Unicode break (C<\b{...}> or C<\B{...}>); or
+
+=item 7
+
+the pattern uses L</C<(?[ ])>>
+
+=back
+
+Another mnemonic for this modifier is "Depends", as the rules actually
+used depend on various things, and as a result you can get unexpected
+results.  See L<perlunicode/The "Unicode Bug">.  The Unicode Bug has
+become rather infamous, leading to yet another (printable) name for this
+modifier, "Dodgy".
+
+Unless the pattern or string are encoded in UTF-8, only ASCII characters
+can match positively.
+
+Here are some examples of how that works on an ASCII platform:
+
+ $str =  "\xDF";      # $str is not in UTF-8 format.
+ $str =~ /^\w/;       # No match, as $str isn't in UTF-8 format.
+ $str .= "\x{0e0b}";  # Now $str is in UTF-8 format.
+ $str =~ /^\w/;       # Match! $str is now in UTF-8 format.
+ chop $str;
+ $str =~ /^\w/;       # Still a match! $str remains in UTF-8 format.
+
+This modifier is automatically selected by default when none of the
+others are, so yet another name for it is "Default".
+
+Because of the unexpected behaviors associated with this modifier, you
+probably should only explicitly use it to maintain weird backward
+compatibilities.
+
+=head4 /a (and /aa)
+
+This modifier stands for ASCII-restrict (or ASCII-safe).  This modifier,
+unlike the others, may be doubled-up to increase its effect.
+
+When it appears singly, it causes the sequences C<\d>, C<\s>, C<\w>, and
+the Posix character classes to match only in the ASCII range.  They thus
+revert to their pre-5.6, pre-Unicode meanings.  Under C</a>,  C<\d>
+always means precisely the digits C<"0"> to C<"9">; C<\s> means the five
+characters C<[ \f\n\r\t]>, and starting in Perl v5.18, the vertical tab;
+C<\w> means the 63 characters
+C<[A-Za-z0-9_]>; and likewise, all the Posix classes such as
+C<[[:print:]]> match only the appropriate ASCII-range characters.
+
+This modifier is useful for people who only incidentally use Unicode,
+and who do not wish to be burdened with its complexities and security
+concerns.
+
+With C</a>, one can write C<\d> with confidence that it will only match
+ASCII characters, and should the need arise to match beyond ASCII, you
+can instead use C<\p{Digit}> (or C<\p{Word}> for C<\w>).  There are
+similar C<\p{...}> constructs that can match beyond ASCII both white
+space (see L<perlrecharclass/Whitespace>), and Posix classes (see
+L<perlrecharclass/POSIX Character Classes>).  Thus, this modifier
+doesn't mean you can't use Unicode, it means that to get Unicode
+matching you must explicitly use a construct (C<\p{}>, C<\P{}>) that
+signals Unicode.
+
+As you would expect, this modifier causes, for example, C<\D> to mean
+the same thing as C<[^0-9]>; in fact, all non-ASCII characters match
+C<\D>, C<\S>, and C<\W>.  C<\b> still means to match at the boundary
+between C<\w> and C<\W>, using the C</a> definitions of them (similarly
+for C<\B>).
+
+Otherwise, C</a> behaves like the C</u> modifier, in that
+case-insensitive matching uses Unicode rules; for example, "k" will
+match the Unicode C<\N{KELVIN SIGN}> under C</i> matching, and code
+points in the Latin1 range, above ASCII will have Unicode rules when it
+comes to case-insensitive matching.
+
+To forbid ASCII/non-ASCII matches (like "k" with C<\N{KELVIN SIGN}>),
+specify the C<"a"> twice, for example C</aai> or C</aia>.  (The first
+occurrence of C<"a"> restricts the C<\d>, etc., and the second occurrence
+adds the C</i> restrictions.)  But, note that code points outside the
+ASCII range will use Unicode rules for C</i> matching, so the modifier
+doesn't really restrict things to just ASCII; it just forbids the
+intermixing of ASCII and non-ASCII.
+
+To summarize, this modifier provides protection for applications that
+don't wish to be exposed to all of Unicode.  Specifying it twice
+gives added protection.
+
+This modifier may be specified to be the default by C<use re '/a'>
+or C<use re '/aa'>.  If you do so, you may actually have occasion to use
+the C</u> modifier explicitly if there are a few regular expressions
+where you do want full Unicode rules (but even here, it's best if
+everything were under feature C<"unicode_strings">, along with the
+C<use re '/aa'>).  Also see L</Which character set modifier is in
+effect?>.
+X</a>
+X</aa>
+
+=head4 Which character set modifier is in effect?
+
+Which of these modifiers is in effect at any given point in a regular
+expression depends on a fairly complex set of interactions.  These have
+been designed so that in general you don't have to worry about it, but
+this section gives the gory details.  As
+explained below in L</Extended Patterns> it is possible to explicitly
+specify modifiers that apply only to portions of a regular expression.
+The innermost always has priority over any outer ones, and one applying
+to the whole expression has priority over any of the default settings that are
+described in the remainder of this section.
+
+The C<L<use re 'E<sol>foo'|re/"'/flags' mode">> pragma can be used to set
+default modifiers (including these) for regular expressions compiled
+within its scope.  This pragma has precedence over the other pragmas
+listed below that also change the defaults.
+
+Otherwise, C<L<use locale|perllocale>> sets the default modifier to C</l>;
+and C<L<use feature 'unicode_strings|feature>>, or
+C<L<use 5.012|perlfunc/use VERSION>> (or higher) set the default to
+C</u> when not in the same scope as either C<L<use locale|perllocale>>
+or C<L<use bytes|bytes>>.
+(C<L<use locale ':not_characters'|perllocale/Unicode and UTF-8>> also
+sets the default to C</u>, overriding any plain C<use locale>.)
+Unlike the mechanisms mentioned above, these
+affect operations besides regular expressions pattern matching, and so
+give more consistent results with other operators, including using
+C<\U>, C<\l>, etc. in substitution replacements.
+
+If none of the above apply, for backwards compatibility reasons, the
+C</d> modifier is the one in effect by default.  As this can lead to
+unexpected results, it is best to specify which other rule set should be
+used.
+
+=head4 Character set modifier behavior prior to Perl 5.14
+
+Prior to 5.14, there were no explicit modifiers, but C</l> was implied
+for regexes compiled within the scope of C<use locale>, and C</d> was
+implied otherwise.  However, interpolating a regex into a larger regex
+would ignore the original compilation in favor of whatever was in effect
+at the time of the second compilation.  There were a number of
+inconsistencies (bugs) with the C</d> modifier, where Unicode rules
+would be used when inappropriate, and vice versa.  C<\p{}> did not imply
+Unicode rules, and neither did all occurrences of C<\N{}>, until 5.12.
+
+=head2 Regular Expressions
+
+=head3 Metacharacters
+
+The patterns used in Perl pattern matching evolved from those supplied in
+the Version 8 regex routines.  (The routines are derived
+(distantly) from Henry Spencer's freely redistributable reimplementation
+of the V8 routines.)  See L<Version 8 Regular Expressions> for
+details.
+
+In particular the following metacharacters have their standard I<egrep>-ish
+meanings:
+X<metacharacter>
+X<\> X<^> X<.> X<$> X<|> X<(> X<()> X<[> X<[]>
+
+
+    \        Quote the next metacharacter
+    ^        Match the beginning of the line
+    .        Match any character (except newline)
+    $        Match the end of the string (or before newline at the end
+             of the string)
+    |        Alternation
+    ()       Grouping
+    []       Bracketed Character class
+
+By default, the C<"^"> character is guaranteed to match only the
+beginning of the string, the C<"$"> character only the end (or before the
+newline at the end), and Perl does certain optimizations with the
+assumption that the string contains only one line.  Embedded newlines
+will not be matched by C<"^"> or C<"$">.  You may, however, wish to treat a
+string as a multi-line buffer, such that the C<"^"> will match after any
+newline within the string (except if the newline is the last character in
+the string), and C<"$"> will match before any newline.  At the
+cost of a little more overhead, you can do this by using the /m modifier
+on the pattern match operator.  (Older programs did this by setting C<$*>,
+but this option was removed in perl 5.10.)
+X<^> X<$> X</m>
+
+To simplify multi-line substitutions, the C<"."> character never matches a
+newline unless you use the C</s> modifier, which in effect tells Perl to pretend
+the string is a single line--even if it isn't.
+X<.> X</s>
+
+=head3 Quantifiers
+
+The following standard quantifiers are recognized:
+X<metacharacter> X<quantifier> X<*> X<+> X<?> X<{n}> X<{n,}> X<{n,m}>
+
+    *           Match 0 or more times
+    +           Match 1 or more times
+    ?           Match 1 or 0 times
+    {n}         Match exactly n times
+    {n,}        Match at least n times
+    {n,m}       Match at least n but not more than m times
+
+(If a curly bracket occurs in a context other than one of the
+quantifiers listed above, where it does not form part of a backslashed
+sequence like C<\x{...}>, it is treated as a regular character.
+However, a deprecation warning is raised for these
+occurrences, and in Perl v5.26, literal uses of a curly bracket will be
+required to be escaped, say by preceding them with a backslash (C<"\{">)
+or enclosing them within square brackets  (C<"[{]">).  This change will
+allow for future syntax extensions (like making the lower bound of a
+quantifier optional), and better error checking of quantifiers.)
+
+The C<"*"> quantifier is equivalent to C<{0,}>, the C<"+">
+quantifier to C<{1,}>, and the C<"?"> quantifier to C<{0,1}>.  I<n> and I<m> are limited
+to non-negative integral values less than a preset limit defined when perl is built.
+This is usually 32766 on the most common platforms.  The actual limit can
+be seen in the error message generated by code such as this:
+
+    $_ **= $_ , / {$_} / for 2 .. 42;
+
+By default, a quantified subpattern is "greedy", that is, it will match as
+many times as possible (given a particular starting location) while still
+allowing the rest of the pattern to match.  If you want it to match the
+minimum number of times possible, follow the quantifier with a C<"?">.  Note
+that the meanings don't change, just the "greediness":
+X<metacharacter> X<greedy> X<greediness>
+X<?> X<*?> X<+?> X<??> X<{n}?> X<{n,}?> X<{n,m}?>
+
+    *?        Match 0 or more times, not greedily
+    +?        Match 1 or more times, not greedily
+    ??        Match 0 or 1 time, not greedily
+    {n}?      Match exactly n times, not greedily (redundant)
+    {n,}?     Match at least n times, not greedily
+    {n,m}?    Match at least n but not more than m times, not greedily
+
+Normally when a quantified subpattern does not allow the rest of the
+overall pattern to match, Perl will backtrack. However, this behaviour is
+sometimes undesirable. Thus Perl provides the "possessive" quantifier form
+as well.
+
+ *+     Match 0 or more times and give nothing back
+ ++     Match 1 or more times and give nothing back
+ ?+     Match 0 or 1 time and give nothing back
+ {n}+   Match exactly n times and give nothing back (redundant)
+ {n,}+  Match at least n times and give nothing back
+ {n,m}+ Match at least n but not more than m times and give nothing back
+
+For instance,
+
+   'aaaa' =~ /a++a/
+
+will never match, as the C<a++> will gobble up all the C<a>'s in the
+string and won't leave any for the remaining part of the pattern. This
+feature can be extremely useful to give perl hints about where it
+shouldn't backtrack. For instance, the typical "match a double-quoted
+string" problem can be most efficiently performed when written as:
+
+   /"(?:[^"\\]++|\\.)*+"/
+
+as we know that if the final quote does not match, backtracking will not
+help. See the independent subexpression
+L</C<< (?>pattern) >>> for more details;
+possessive quantifiers are just syntactic sugar for that construct. For
+instance the above example could also be written as follows:
+
+   /"(?>(?:(?>[^"\\]+)|\\.)*)"/
+
+Note that the possessive quantifier modifier can not be be combined
+with the non-greedy modifier. This is because it would make no sense.
+Consider the follow equivalency table:
+
+    Illegal         Legal
+    ------------    ------
+    X??+            X{0}
+    X+?+            X{1}
+    X{min,max}?+    X{min}
+
+=head3 Escape sequences
+
+Because patterns are processed as double-quoted strings, the following
+also work:
+
+ \t          tab                   (HT, TAB)
+ \n          newline               (LF, NL)
+ \r          return                (CR)
+ \f          form feed             (FF)
+ \a          alarm (bell)          (BEL)
+ \e          escape (think troff)  (ESC)
+ \cK         control char          (example: VT)
+ \x{}, \x00  character whose ordinal is the given hexadecimal number
+ \N{name}    named Unicode character or character sequence
+ \N{U+263D}  Unicode character     (example: FIRST QUARTER MOON)
+ \o{}, \000  character whose ordinal is the given octal number
+ \l          lowercase next char (think vi)
+ \u          uppercase next char (think vi)
+ \L          lowercase until \E (think vi)
+ \U          uppercase until \E (think vi)
+ \Q          quote (disable) pattern metacharacters until \E
+ \E          end either case modification or quoted section, think vi
+
+Details are in L<perlop/Quote and Quote-like Operators>.
+
+=head3 Character Classes and other Special Escapes
+
+In addition, Perl defines the following:
+X<\g> X<\k> X<\K> X<backreference>
+
+ Sequence   Note    Description
+  [...]     [1]  Match a character according to the rules of the
+                   bracketed character class defined by the "...".
+                   Example: [a-z] matches "a" or "b" or "c" ... or "z"
+  [[:...:]] [2]  Match a character according to the rules of the POSIX
+                   character class "..." within the outer bracketed
+                   character class.  Example: [[:upper:]] matches any
+                   uppercase character.
+  (?[...])  [8]  Extended bracketed character class
+  \w        [3]  Match a "word" character (alphanumeric plus "_", plus
+                   other connector punctuation chars plus Unicode
+                   marks)
+  \W        [3]  Match a non-"word" character
+  \s        [3]  Match a whitespace character
+  \S        [3]  Match a non-whitespace character
+  \d        [3]  Match a decimal digit character
+  \D        [3]  Match a non-digit character
+  \pP       [3]  Match P, named property.  Use \p{Prop} for longer names
+  \PP       [3]  Match non-P
+  \X        [4]  Match Unicode "eXtended grapheme cluster"
+  \1        [5]  Backreference to a specific capture group or buffer.
+                   '1' may actually be any positive integer.
+  \g1       [5]  Backreference to a specific or previous group,
+  \g{-1}    [5]  The number may be negative indicating a relative
+                   previous group and may optionally be wrapped in
+                   curly brackets for safer parsing.
+  \g{name}  [5]  Named backreference
+  \k<name>  [5]  Named backreference
+  \K        [6]  Keep the stuff left of the \K, don't include it in $&
+  \N        [7]  Any character but \n.  Not affected by /s modifier
+  \v        [3]  Vertical whitespace
+  \V        [3]  Not vertical whitespace
+  \h        [3]  Horizontal whitespace
+  \H        [3]  Not horizontal whitespace
+  \R        [4]  Linebreak
+
+=over 4
+
+=item [1]
+
+See L<perlrecharclass/Bracketed Character Classes> for details.
+
+=item [2]
+
+See L<perlrecharclass/POSIX Character Classes> for details.
+
+=item [3]
+
+See L<perlrecharclass/Backslash sequences> for details.
+
+=item [4]
+
+See L<perlrebackslash/Misc> for details.
+
+=item [5]
+
+See L</Capture groups> below for details.
+
+=item [6]
+
+See L</Extended Patterns> below for details.
+
+=item [7]
+
+Note that C<\N> has two meanings.  When of the form C<\N{NAME}>, it matches the
+character or character sequence whose name is C<NAME>; and similarly
+when of the form C<\N{U+I<hex>}>, it matches the character whose Unicode
+code point is I<hex>.  Otherwise it matches any character but C<\n>.
+
+=item [8]
+
+See L<perlrecharclass/Extended Bracketed Character Classes> for details.
+
+=back
+
+=head3 Assertions
+
+Perl defines the following zero-width assertions:
+X<zero-width assertion> X<assertion> X<regex, zero-width assertion>
+X<regexp, zero-width assertion>
+X<regular expression, zero-width assertion>
+X<\b> X<\B> X<\A> X<\Z> X<\z> X<\G>
+
+    \b{} Match at Unicode boundary of specified type
+    \B{} Match where corresponding \b{} doesn't match
+    \b  Match a word boundary
+    \B  Match except at a word boundary
+    \A  Match only at beginning of string
+    \Z  Match only at end of string, or before newline at the end
+    \z  Match only at end of string
+    \G  Match only at pos() (e.g. at the end-of-match position
+        of prior m//g)
+
+A Unicode boundary (C<\b{}>), available starting in v5.22, is a spot
+between two characters, or before the first character in the string, or
+after the final character in the string where certain criteria defined
+by Unicode are met.  See L<perlrebackslash/\b{}, \b, \B{}, \B> for
+details.
+
+A word boundary (C<\b>) is a spot between two characters
+that has a C<\w> on one side of it and a C<\W> on the other side
+of it (in either order), counting the imaginary characters off the
+beginning and end of the string as matching a C<\W>.  (Within
+character classes C<\b> represents backspace rather than a word
+boundary, just as it normally does in any double-quoted string.)
+The C<\A> and C<\Z> are just like C<"^"> and C<"$">, except that they
+won't match multiple times when the C</m> modifier is used, while
+C<"^"> and C<"$"> will match at every internal line boundary.  To match
+the actual end of the string and not ignore an optional trailing
+newline, use C<\z>.
+X<\b> X<\A> X<\Z> X<\z> X</m>
+
+The C<\G> assertion can be used to chain global matches (using
+C<m//g>), as described in L<perlop/"Regexp Quote-Like Operators">.
+It is also useful when writing C<lex>-like scanners, when you have
+several patterns that you want to match against consequent substrings
+of your string; see the previous reference.  The actual location
+where C<\G> will match can also be influenced by using C<pos()> as
+an lvalue: see L<perlfunc/pos>. Note that the rule for zero-length
+matches (see L</"Repeated Patterns Matching a Zero-length Substring">)
+is modified somewhat, in that contents to the left of C<\G> are
+not counted when determining the length of the match. Thus the following
+will not match forever:
+X<\G>
+
+     my $string = 'ABC';
+     pos($string) = 1;
+     while ($string =~ /(.\G)/g) {
+         print $1;
+     }
+
+It will print 'A' and then terminate, as it considers the match to
+be zero-width, and thus will not match at the same position twice in a
+row.
+
+It is worth noting that C<\G> improperly used can result in an infinite
+loop. Take care when using patterns that include C<\G> in an alternation.
+
+Note also that C<s///> will refuse to overwrite part of a substitution
+that has already been replaced; so for example this will stop after the
+first iteration, rather than iterating its way backwards through the
+string:
+
+    $_ = "123456789";
+    pos = 6;
+    s/.(?=.\G)/X/g;
+    print; 	# prints 1234X6789, not XXXXX6789
+
+
+=head3 Capture groups
+
+The bracketing construct C<( ... )> creates capture groups (also referred to as
+capture buffers). To refer to the current contents of a group later on, within
+the same pattern, use C<\g1> (or C<\g{1}>) for the first, C<\g2> (or C<\g{2}>)
+for the second, and so on.
+This is called a I<backreference>.
+X<regex, capture buffer> X<regexp, capture buffer>
+X<regex, capture group> X<regexp, capture group>
+X<regular expression, capture buffer> X<backreference>
+X<regular expression, capture group> X<backreference>
+X<\g{1}> X<\g{-1}> X<\g{name}> X<relative backreference> X<named backreference>
+X<named capture buffer> X<regular expression, named capture buffer>
+X<named capture group> X<regular expression, named capture group>
+X<%+> X<$+{name}> X<< \k<name> >>
+There is no limit to the number of captured substrings that you may use.
+Groups are numbered with the leftmost open parenthesis being number 1, etc.  If
+a group did not match, the associated backreference won't match either. (This
+can happen if the group is optional, or in a different branch of an
+alternation.)
+You can omit the C<"g">, and write C<"\1">, etc, but there are some issues with
+this form, described below.
+
+You can also refer to capture groups relatively, by using a negative number, so
+that C<\g-1> and C<\g{-1}> both refer to the immediately preceding capture
+group, and C<\g-2> and C<\g{-2}> both refer to the group before it.  For
+example:
+
+        /
+         (Y)            # group 1
+         (              # group 2
+            (X)         # group 3
+            \g{-1}      # backref to group 3
+            \g{-3}      # backref to group 1
+         )
+        /x
+
+would match the same as C</(Y) ( (X) \g3 \g1 )/x>.  This allows you to
+interpolate regexes into larger regexes and not have to worry about the
+capture groups being renumbered.
+
+You can dispense with numbers altogether and create named capture groups.
+The notation is C<(?E<lt>I<name>E<gt>...)> to declare and C<\g{I<name>}> to
+reference.  (To be compatible with .Net regular expressions, C<\g{I<name>}> may
+also be written as C<\k{I<name>}>, C<\kE<lt>I<name>E<gt>> or C<\k'I<name>'>.)
+I<name> must not begin with a number, nor contain hyphens.
+When different groups within the same pattern have the same name, any reference
+to that name assumes the leftmost defined group.  Named groups count in
+absolute and relative numbering, and so can also be referred to by those
+numbers.
+(It's possible to do things with named capture groups that would otherwise
+require C<(??{})>.)
+
+Capture group contents are dynamically scoped and available to you outside the
+pattern until the end of the enclosing block or until the next successful
+match, whichever comes first.  (See L<perlsyn/"Compound Statements">.)
+You can refer to them by absolute number (using C<"$1"> instead of C<"\g1">,
+etc); or by name via the C<%+> hash, using C<"$+{I<name>}">.
+
+Braces are required in referring to named capture groups, but are optional for
+absolute or relative numbered ones.  Braces are safer when creating a regex by
+concatenating smaller strings.  For example if you have C<qr/$a$b/>, and C<$a>
+contained C<"\g1">, and C<$b> contained C<"37">, you would get C</\g137/> which
+is probably not what you intended.
+
+The C<\g> and C<\k> notations were introduced in Perl 5.10.0.  Prior to that
+there were no named nor relative numbered capture groups.  Absolute numbered
+groups were referred to using C<\1>,
+C<\2>, etc., and this notation is still
+accepted (and likely always will be).  But it leads to some ambiguities if
+there are more than 9 capture groups, as C<\10> could mean either the tenth
+capture group, or the character whose ordinal in octal is 010 (a backspace in
+ASCII).  Perl resolves this ambiguity by interpreting C<\10> as a backreference
+only if at least 10 left parentheses have opened before it.  Likewise C<\11> is
+a backreference only if at least 11 left parentheses have opened before it.
+And so on.  C<\1> through C<\9> are always interpreted as backreferences.
+There are several examples below that illustrate these perils.  You can avoid
+the ambiguity by always using C<\g{}> or C<\g> if you mean capturing groups;
+and for octal constants always using C<\o{}>, or for C<\077> and below, using 3
+digits padded with leading zeros, since a leading zero implies an octal
+constant.
+
+The C<\I<digit>> notation also works in certain circumstances outside
+the pattern.  See L</Warning on \1 Instead of $1> below for details.
+
+Examples:
+
+    s/^([^ ]*) *([^ ]*)/$2 $1/;     # swap first two words
+
+    /(.)\g1/                        # find first doubled char
+         and print "'$1' is the first doubled character\n";
+
+    /(?<char>.)\k<char>/            # ... a different way
+         and print "'$+{char}' is the first doubled character\n";
+
+    /(?'char'.)\g1/                 # ... mix and match
+         and print "'$1' is the first doubled character\n";
+
+    if (/Time: (..):(..):(..)/) {   # parse out values
+        $hours = $1;
+        $minutes = $2;
+        $seconds = $3;
+    }
+
+    /(.)(.)(.)(.)(.)(.)(.)(.)(.)\g10/   # \g10 is a backreference
+    /(.)(.)(.)(.)(.)(.)(.)(.)(.)\10/    # \10 is octal
+    /((.)(.)(.)(.)(.)(.)(.)(.)(.))\10/  # \10 is a backreference
+    /((.)(.)(.)(.)(.)(.)(.)(.)(.))\010/ # \010 is octal
+
+    $a = '(.)\1';        # Creates problems when concatenated.
+    $b = '(.)\g{1}';     # Avoids the problems.
+    "aa" =~ /${a}/;      # True
+    "aa" =~ /${b}/;      # True
+    "aa0" =~ /${a}0/;    # False!
+    "aa0" =~ /${b}0/;    # True
+    "aa\x08" =~ /${a}0/;  # True!
+    "aa\x08" =~ /${b}0/;  # False
+
+Several special variables also refer back to portions of the previous
+match.  C<$+> returns whatever the last bracket match matched.
+C<$&> returns the entire matched string.  (At one point C<$0> did
+also, but now it returns the name of the program.)  C<$`> returns
+everything before the matched string.  C<$'> returns everything
+after the matched string. And C<$^N> contains whatever was matched by
+the most-recently closed group (submatch). C<$^N> can be used in
+extended patterns (see below), for example to assign a submatch to a
+variable.
+X<$+> X<$^N> X<$&> X<$`> X<$'>
+
+These special variables, like the C<%+> hash and the numbered match variables
+(C<$1>, C<$2>, C<$3>, etc.) are dynamically scoped
+until the end of the enclosing block or until the next successful
+match, whichever comes first.  (See L<perlsyn/"Compound Statements">.)
+X<$+> X<$^N> X<$&> X<$`> X<$'>
+X<$1> X<$2> X<$3> X<$4> X<$5> X<$6> X<$7> X<$8> X<$9>
+
+B<NOTE>: Failed matches in Perl do not reset the match variables,
+which makes it easier to write code that tests for a series of more
+specific cases and remembers the best match.
+
+B<WARNING>: If your code is to run on Perl 5.16 or earlier,
+beware that once Perl sees that you need one of C<$&>, C<$`>, or
+C<$'> anywhere in the program, it has to provide them for every
+pattern match.  This may substantially slow your program.
+
+Perl uses the same mechanism to produce C<$1>, C<$2>, etc, so you also
+pay a price for each pattern that contains capturing parentheses.
+(To avoid this cost while retaining the grouping behaviour, use the
+extended regular expression C<(?: ... )> instead.)  But if you never
+use C<$&>, C<$`> or C<$'>, then patterns I<without> capturing
+parentheses will not be penalized.  So avoid C<$&>, C<$'>, and C<$`>
+if you can, but if you can't (and some algorithms really appreciate
+them), once you've used them once, use them at will, because you've
+already paid the price.
+X<$&> X<$`> X<$'>
+
+Perl 5.16 introduced a slightly more efficient mechanism that notes
+separately whether each of C<$`>, C<$&>, and C<$'> have been seen, and
+thus may only need to copy part of the string.  Perl 5.20 introduced a
+much more efficient copy-on-write mechanism which eliminates any slowdown.
+
+As another workaround for this problem, Perl 5.10.0 introduced C<${^PREMATCH}>,
+C<${^MATCH}> and C<${^POSTMATCH}>, which are equivalent to C<$`>, C<$&>
+and C<$'>, B<except> that they are only guaranteed to be defined after a
+successful match that was executed with the C</p> (preserve) modifier.
+The use of these variables incurs no global performance penalty, unlike
+their punctuation character equivalents, however at the trade-off that you
+have to tell perl when you want to use them.  As of Perl 5.20, these three
+variables are equivalent to C<$`>, C<$&> and C<$'>, and C</p> is ignored.
+X</p> X<p modifier>
+
+=head2 Quoting metacharacters
+
+Backslashed metacharacters in Perl are alphanumeric, such as C<\b>,
+C<\w>, C<\n>.  Unlike some other regular expression languages, there
+are no backslashed symbols that aren't alphanumeric.  So anything
+that looks like C<\\>, C<\(>, C<\)>, C<\[>, C<\]>, C<\{>, or C<\}> is
+always
+interpreted as a literal character, not a metacharacter.  This was
+once used in a common idiom to disable or quote the special meanings
+of regular expression metacharacters in a string that you want to
+use for a pattern. Simply quote all non-"word" characters:
+
+    $pattern =~ s/(\W)/\\$1/g;
+
+(If C<use locale> is set, then this depends on the current locale.)
+Today it is more common to use the C<L<quotemeta()|perlfunc/quotemeta>>
+function or the C<\Q> metaquoting escape sequence to disable all
+metacharacters' special meanings like this:
+
+    /$unquoted\Q$quoted\E$unquoted/
+
+Beware that if you put literal backslashes (those not inside
+interpolated variables) between C<\Q> and C<\E>, double-quotish
+backslash interpolation may lead to confusing results.  If you
+I<need> to use literal backslashes within C<\Q...\E>,
+consult L<perlop/"Gory details of parsing quoted constructs">.
+
+C<quotemeta()> and C<\Q> are fully described in L<perlfunc/quotemeta>.
+
+=head2 Extended Patterns
+
+Perl also defines a consistent extension syntax for features not
+found in standard tools like B<awk> and
+B<lex>.  The syntax for most of these is a
+pair of parentheses with a question mark as the first thing within
+the parentheses.  The character after the question mark indicates
+the extension.
+
+The stability of these extensions varies widely.  Some have been
+part of the core language for many years.  Others are experimental
+and may change without warning or be completely removed.  Check
+the documentation on an individual feature to verify its current
+status.
+
+A question mark was chosen for this and for the minimal-matching
+construct because 1) question marks are rare in older regular
+expressions, and 2) whenever you see one, you should stop and
+"question" exactly what is going on.  That's psychology....
+
+=over 4
+
+=item C<(?#text)>
+X<(?#)>
+
+A comment.  The text is ignored.
+Note that Perl closes
+the comment as soon as it sees a C<")">, so there is no way to put a literal
+C<")"> in the comment.  The pattern's closing delimiter must be escaped by
+a backslash if it appears in the comment.
+
+See L</E<sol>x> for another way to have comments in patterns.
+
+=item C<(?adlupimnsx-imnsx)>
+
+=item C<(?^alupimnsx)>
+X<(?)> X<(?^)>
+
+One or more embedded pattern-match modifiers, to be turned on (or
+turned off, if preceded by C<"-">) for the remainder of the pattern or
+the remainder of the enclosing pattern group (if any).
+
+This is particularly useful for dynamic patterns, such as those read in from a
+configuration file, taken from an argument, or specified in a table
+somewhere.  Consider the case where some patterns want to be
+case-sensitive and some do not:  The case-insensitive ones merely need to
+include C<(?i)> at the front of the pattern.  For example:
+
+    $pattern = "foobar";
+    if ( /$pattern/i ) { }
+
+    # more flexible:
+
+    $pattern = "(?i)foobar";
+    if ( /$pattern/ ) { }
+
+These modifiers are restored at the end of the enclosing group. For example,
+
+    ( (?i) blah ) \s+ \g1
+
+will match C<blah> in any case, some spaces, and an exact (I<including the case>!)
+repetition of the previous word, assuming the C</x> modifier, and no C</i>
+modifier outside this group.
+
+These modifiers do not carry over into named subpatterns called in the
+enclosing group. In other words, a pattern such as C<((?i)(?&NAME))> does not
+change the case-sensitivity of the C<"NAME"> pattern.
+
+Any of these modifiers can be set to apply globally to all regular
+expressions compiled within the scope of a C<use re>.  See
+L<re/"'/flags' mode">.
+
+Starting in Perl 5.14, a C<"^"> (caret or circumflex accent) immediately
+after the C<"?"> is a shorthand equivalent to C<d-imnsx>.  Flags (except
+C<"d">) may follow the caret to override it.
+But a minus sign is not legal with it.
+
+Note that the C<a>, C<d>, C<l>, C<p>, and C<u> modifiers are special in
+that they can only be enabled, not disabled, and the C<a>, C<d>, C<l>, and
+C<u> modifiers are mutually exclusive: specifying one de-specifies the
+others, and a maximum of one (or two C<a>'s) may appear in the
+construct.  Thus, for
+example, C<(?-p)> will warn when compiled under C<use warnings>;
+C<(?-d:...)> and C<(?dl:...)> are fatal errors.
+
+Note also that the C<p> modifier is special in that its presence
+anywhere in a pattern has a global effect.
+
+=item C<(?:pattern)>
+X<(?:)>
+
+=item C<(?adluimnsx-imnsx:pattern)>
+
+=item C<(?^aluimnsx:pattern)>
+X<(?^:)>
+
+This is for clustering, not capturing; it groups subexpressions like
+C<"()">, but doesn't make backreferences as C<"()"> does.  So
+
+    @fields = split(/\b(?:a|b|c)\b/)
+
+is like
+
+    @fields = split(/\b(a|b|c)\b/)
+
+but doesn't spit out extra fields.  It's also cheaper not to capture
+characters if you don't need to.
+
+Any letters between C<"?"> and C<":"> act as flags modifiers as with
+C<(?adluimnsx-imnsx)>.  For example,
+
+    /(?s-i:more.*than).*million/i
+
+is equivalent to the more verbose
+
+    /(?:(?s-i)more.*than).*million/i
+
+Note that any C<()> constructs enclosed within this one will still
+capture unless the C</n> modifier is in effect.
+
+Starting in Perl 5.14, a C<"^"> (caret or circumflex accent) immediately
+after the C<"?"> is a shorthand equivalent to C<d-imnsx>.  Any positive
+flags (except C<"d">) may follow the caret, so
+
+    (?^x:foo)
+
+is equivalent to
+
+    (?x-imns:foo)
+
+The caret tells Perl that this cluster doesn't inherit the flags of any
+surrounding pattern, but uses the system defaults (C<d-imnsx>),
+modified by any flags specified.
+
+The caret allows for simpler stringification of compiled regular
+expressions.  These look like
+
+    (?^:pattern)
+
+with any non-default flags appearing between the caret and the colon.
+A test that looks at such stringification thus doesn't need to have the
+system default flags hard-coded in it, just the caret.  If new flags are
+added to Perl, the meaning of the caret's expansion will change to include
+the default for those flags, so the test will still work, unchanged.
+
+Specifying a negative flag after the caret is an error, as the flag is
+redundant.
+
+Mnemonic for C<(?^...)>:  A fresh beginning since the usual use of a caret is
+to match at the beginning.
+
+=item C<(?|pattern)>
+X<(?|)> X<Branch reset>
+
+This is the "branch reset" pattern, which has the special property
+that the capture groups are numbered from the same starting point
+in each alternation branch. It is available starting from perl 5.10.0.
+
+Capture groups are numbered from left to right, but inside this
+construct the numbering is restarted for each branch.
+
+The numbering within each branch will be as normal, and any groups
+following this construct will be numbered as though the construct
+contained only one branch, that being the one with the most capture
+groups in it.
+
+This construct is useful when you want to capture one of a
+number of alternative matches.
+
+Consider the following pattern.  The numbers underneath show in
+which group the captured content will be stored.
+
+
+    # before  ---------------branch-reset----------- after        
+    / ( a )  (?| x ( y ) z | (p (q) r) | (t) u (v) ) ( z ) /x
+    # 1            2         2  3        2     3     4  
+
+Be careful when using the branch reset pattern in combination with 
+named captures. Named captures are implemented as being aliases to 
+numbered groups holding the captures, and that interferes with the
+implementation of the branch reset pattern. If you are using named
+captures in a branch reset pattern, it's best to use the same names,
+in the same order, in each of the alternations:
+
+   /(?|  (?<a> x ) (?<b> y )
+      |  (?<a> z ) (?<b> w )) /x
+
+Not doing so may lead to surprises:
+
+  "12" =~ /(?| (?<a> \d+ ) | (?<b> \D+))/x;
+  say $+ {a};   # Prints '12'
+  say $+ {b};   # *Also* prints '12'.
+
+The problem here is that both the group named C<< a >> and the group
+named C<< b >> are aliases for the group belonging to C<< $1 >>.
+
+=item Lookaround Assertions
+X<look-around assertion> X<lookaround assertion> X<look-around> X<lookaround>
+
+Lookaround assertions are zero-width patterns which match a specific
+pattern without including it in C<$&>. Positive assertions match when
+their subpattern matches, negative assertions match when their subpattern
+fails. Lookbehind matches text up to the current match position,
+lookahead matches text following the current match position.
+
+=over 4
+
+=item C<(?=pattern)>
+X<(?=)> X<look-ahead, positive> X<lookahead, positive>
+
+A zero-width positive lookahead assertion.  For example, C</\w+(?=\t)/>
+matches a word followed by a tab, without including the tab in C<$&>.
+
+=item C<(?!pattern)>
+X<(?!)> X<look-ahead, negative> X<lookahead, negative>
+
+A zero-width negative lookahead assertion.  For example C</foo(?!bar)/>
+matches any occurrence of "foo" that isn't followed by "bar".  Note
+however that lookahead and lookbehind are NOT the same thing.  You cannot
+use this for lookbehind.
+
+If you are looking for a "bar" that isn't preceded by a "foo", C</(?!foo)bar/>
+will not do what you want.  That's because the C<(?!foo)> is just saying that
+the next thing cannot be "foo"--and it's not, it's a "bar", so "foobar" will
+match.  Use lookbehind instead (see below).
+
+=item C<(?<=pattern)> C<\K>
+X<(?<=)> X<look-behind, positive> X<lookbehind, positive> X<\K>
+
+A zero-width positive lookbehind assertion.  For example, C</(?<=\t)\w+/>
+matches a word that follows a tab, without including the tab in C<$&>.
+Works only for fixed-width lookbehind.
+
+There is a special form of this construct, called C<\K> (available since
+Perl 5.10.0), which causes the
+regex engine to "keep" everything it had matched prior to the C<\K> and
+not include it in C<$&>. This effectively provides variable-length
+lookbehind. The use of C<\K> inside of another lookaround assertion
+is allowed, but the behaviour is currently not well defined.
+
+For various reasons C<\K> may be significantly more efficient than the
+equivalent C<< (?<=...) >> construct, and it is especially useful in
+situations where you want to efficiently remove something following
+something else in a string. For instance
+
+  s/(foo)bar/$1/g;
+
+can be rewritten as the much more efficient
+
+  s/foo\Kbar//g;
+
+=item C<(?<!pattern)>
+X<(?<!)> X<look-behind, negative> X<lookbehind, negative>
+
+A zero-width negative lookbehind assertion.  For example C</(?<!bar)foo/>
+matches any occurrence of "foo" that does not follow "bar".  Works
+only for fixed-width lookbehind.
+
+=back
+
+=item C<(?'NAME'pattern)>
+
+=item C<< (?<NAME>pattern) >>
+X<< (?<NAME>) >> X<(?'NAME')> X<named capture> X<capture>
+
+A named capture group. Identical in every respect to normal capturing
+parentheses C<()> but for the additional fact that the group
+can be referred to by name in various regular expression
+constructs (like C<\g{NAME}>) and can be accessed by name
+after a successful match via C<%+> or C<%->. See L<perlvar>
+for more details on the C<%+> and C<%-> hashes.
+
+If multiple distinct capture groups have the same name then the
+C<$+{NAME}> will refer to the leftmost defined group in the match.
+
+The forms C<(?'NAME'pattern)> and C<< (?<NAME>pattern) >> are equivalent.
+
+B<NOTE:> While the notation of this construct is the same as the similar
+function in .NET regexes, the behavior is not. In Perl the groups are
+numbered sequentially regardless of being named or not. Thus in the
+pattern
+
+  /(x)(?<foo>y)(z)/
+
+C<$+{I<foo>}> will be the same as C<$2>, and C<$3> will contain 'z' instead of
+the opposite which is what a .NET regex hacker might expect.
+
+Currently I<NAME> is restricted to simple identifiers only.
+In other words, it must match C</^[_A-Za-z][_A-Za-z0-9]*\z/> or
+its Unicode extension (see L<utf8>),
+though it isn't extended by the locale (see L<perllocale>).
+
+B<NOTE:> In order to make things easier for programmers with experience
+with the Python or PCRE regex engines, the pattern C<< (?PE<lt>NAMEE<gt>pattern) >>
+may be used instead of C<< (?<NAME>pattern) >>; however this form does not
+support the use of single quotes as a delimiter for the name.
+
+=item C<< \k<NAME> >>
+
+=item C<< \k'NAME' >>
+
+Named backreference. Similar to numeric backreferences, except that
+the group is designated by name and not number. If multiple groups
+have the same name then it refers to the leftmost defined group in
+the current match.
+
+It is an error to refer to a name not defined by a C<< (?<NAME>) >>
+earlier in the pattern.
+
+Both forms are equivalent.
+
+B<NOTE:> In order to make things easier for programmers with experience
+with the Python or PCRE regex engines, the pattern C<< (?P=NAME) >>
+may be used instead of C<< \k<NAME> >>.
+
+=item C<(?{ code })>
+X<(?{})> X<regex, code in> X<regexp, code in> X<regular expression, code in>
+
+B<WARNING>: Using this feature safely requires that you understand its
+limitations.  Code executed that has side effects may not perform identically
+from version to version due to the effect of future optimisations in the regex
+engine.  For more information on this, see L</Embedded Code Execution
+Frequency>.
+
+This zero-width assertion executes any embedded Perl code.  It always
+succeeds, and its return value is set as C<$^R>.
+
+In literal patterns, the code is parsed at the same time as the
+surrounding code. While within the pattern, control is passed temporarily
+back to the perl parser, until the logically-balancing closing brace is
+encountered. This is similar to the way that an array index expression in
+a literal string is handled, for example
+
+    "abc$array[ 1 + f('[') + g()]def"
+
+In particular, braces do not need to be balanced:
+
+    s/abc(?{ f('{'); })/def/
+
+Even in a pattern that is interpolated and compiled at run-time, literal
+code blocks will be compiled once, at perl compile time; the following
+prints "ABCD":
+
+    print "D";
+    my $qr = qr/(?{ BEGIN { print "A" } })/;
+    my $foo = "foo";
+    /$foo$qr(?{ BEGIN { print "B" } })/;
+    BEGIN { print "C" }
+
+In patterns where the text of the code is derived from run-time
+information rather than appearing literally in a source code /pattern/,
+the code is compiled at the same time that the pattern is compiled, and
+for reasons of security, C<use re 'eval'> must be in scope. This is to
+stop user-supplied patterns containing code snippets from being
+executable.
+
+In situations where you need to enable this with C<use re 'eval'>, you should
+also have taint checking enabled.  Better yet, use the carefully
+constrained evaluation within a Safe compartment.  See L<perlsec> for
+details about both these mechanisms.
+
+From the viewpoint of parsing, lexical variable scope and closures,
+
+    /AAA(?{ BBB })CCC/
+
+behaves approximately like
+
+    /AAA/ && do { BBB } && /CCC/
+
+Similarly,
+
+    qr/AAA(?{ BBB })CCC/
+
+behaves approximately like
+
+    sub { /AAA/ && do { BBB } && /CCC/ }
+
+In particular:
+
+    { my $i = 1; $r = qr/(?{ print $i })/ }
+    my $i = 2;
+    /$r/; # prints "1"
+
+Inside a C<(?{...})> block, C<$_> refers to the string the regular
+expression is matching against. You can also use C<pos()> to know what is
+the current position of matching within this string.
+
+The code block introduces a new scope from the perspective of lexical
+variable declarations, but B<not> from the perspective of C<local> and
+similar localizing behaviours. So later code blocks within the same
+pattern will still see the values which were localized in earlier blocks.
+These accumulated localizations are undone either at the end of a
+successful match, or if the assertion is backtracked (compare
+L<"Backtracking">). For example,
+
+  $_ = 'a' x 8;
+  m<
+     (?{ $cnt = 0 })               # Initialize $cnt.
+     (
+       a
+       (?{
+           local $cnt = $cnt + 1;  # Update $cnt,
+                                   # backtracking-safe.
+       })
+     )*
+     aaaa
+     (?{ $res = $cnt })            # On success copy to
+                                   # non-localized location.
+   >x;
+
+will initially increment C<$cnt> up to 8; then during backtracking, its
+value will be unwound back to 4, which is the value assigned to C<$res>.
+At the end of the regex execution, C<$cnt> will be wound back to its initial
+value of 0.
+
+This assertion may be used as the condition in a
+
+    (?(condition)yes-pattern|no-pattern)
+
+switch.  If I<not> used in this way, the result of evaluation of C<code>
+is put into the special variable C<$^R>.  This happens immediately, so
+C<$^R> can be used from other C<(?{ code })> assertions inside the same
+regular expression.
+
+The assignment to C<$^R> above is properly localized, so the old
+value of C<$^R> is restored if the assertion is backtracked; compare
+L<"Backtracking">.
+
+Note that the special variable C<$^N>  is particularly useful with code
+blocks to capture the results of submatches in variables without having to
+keep track of the number of nested parentheses. For example:
+
+  $_ = "The brown fox jumps over the lazy dog";
+  /the (\S+)(?{ $color = $^N }) (\S+)(?{ $animal = $^N })/i;
+  print "color = $color, animal = $animal\n";
+
+
+=item C<(??{ code })>
+X<(??{})>
+X<regex, postponed> X<regexp, postponed> X<regular expression, postponed>
+
+B<WARNING>: Using this feature safely requires that you understand its
+limitations.  Code executed that has side effects may not perform
+identically from version to version due to the effect of future
+optimisations in the regex engine.  For more information on this, see
+L</Embedded Code Execution Frequency>.
+
+This is a "postponed" regular subexpression.  It behaves in I<exactly> the
+same way as a C<(?{ code })> code block as described above, except that
+its return value, rather than being assigned to C<$^R>, is treated as a
+pattern, compiled if it's a string (or used as-is if its a qr// object),
+then matched as if it were inserted instead of this construct.
+
+During the matching of this sub-pattern, it has its own set of
+captures which are valid during the sub-match, but are discarded once
+control returns to the main pattern. For example, the following matches,
+with the inner pattern capturing "B" and matching "BB", while the outer
+pattern captures "A";
+
+    my $inner = '(.)\1';
+    "ABBA" =~ /^(.)(??{ $inner })\1/;
+    print $1; # prints "A";
+
+Note that this means that  there is no way for the inner pattern to refer
+to a capture group defined outside.  (The code block itself can use C<$1>,
+etc., to refer to the enclosing pattern's capture groups.)  Thus, although
+
+    ('a' x 100)=~/(??{'(.)' x 100})/
+
+I<will> match, it will I<not> set C<$1> on exit.
+
+The following pattern matches a parenthesized group:
+
+ $re = qr{
+            \(
+            (?:
+               (?> [^()]+ )  # Non-parens without backtracking
+             |
+               (??{ $re })   # Group with matching parens
+            )*
+            \)
+         }x;
+
+See also
+L<C<(?I<PARNO>)>|/(?PARNO) (?-PARNO) (?+PARNO) (?R) (?0)>
+for a different, more efficient way to accomplish
+the same task.
+
+Executing a postponed regular expression 50 times without consuming any
+input string will result in a fatal error.  The maximum depth is compiled
+into perl, so changing it requires a custom build.
+
+=item C<(?I<PARNO>)> C<(?-I<PARNO>)> C<(?+I<PARNO>)> C<(?R)> C<(?0)>
+X<(?PARNO)> X<(?1)> X<(?R)> X<(?0)> X<(?-1)> X<(?+1)> X<(?-PARNO)> X<(?+PARNO)>
+X<regex, recursive> X<regexp, recursive> X<regular expression, recursive>
+X<regex, relative recursion> X<GOSUB> X<GOSTART>
+
+Recursive subpattern. Treat the contents of a given capture buffer in the
+current pattern as an independent subpattern and attempt to match it at
+the current position in the string. Information about capture state from
+the caller for things like backreferences is available to the subpattern,
+but capture buffers set by the subpattern are not visible to the caller.
+
+Similar to C<(??{ code })> except that it does not involve executing any
+code or potentially compiling a returned pattern string; instead it treats
+the part of the current pattern contained within a specified capture group
+as an independent pattern that must match at the current position. Also
+different is the treatment of capture buffers, unlike C<(??{ code })>
+recursive patterns have access to their caller's match state, so one can
+use backreferences safely.
+
+I<PARNO> is a sequence of digits (not starting with 0) whose value reflects
+the paren-number of the capture group to recurse to. C<(?R)> recurses to
+the beginning of the whole pattern. C<(?0)> is an alternate syntax for
+C<(?R)>. If I<PARNO> is preceded by a plus or minus sign then it is assumed
+to be relative, with negative numbers indicating preceding capture groups
+and positive ones following. Thus C<(?-1)> refers to the most recently
+declared group, and C<(?+1)> indicates the next group to be declared.
+Note that the counting for relative recursion differs from that of
+relative backreferences, in that with recursion unclosed groups B<are>
+included.
+
+The following pattern matches a function C<foo()> which may contain
+balanced parentheses as the argument.
+
+  $re = qr{ (                   # paren group 1 (full function)
+              foo
+              (                 # paren group 2 (parens)
+                \(
+                  (             # paren group 3 (contents of parens)
+                  (?:
+                   (?> [^()]+ ) # Non-parens without backtracking
+                  |
+                   (?2)         # Recurse to start of paren group 2
+                  )*
+                  )
+                \)
+              )
+            )
+          }x;
+
+If the pattern was used as follows
+
+    'foo(bar(baz)+baz(bop))'=~/$re/
+        and print "\$1 = $1\n",
+                  "\$2 = $2\n",
+                  "\$3 = $3\n";
+
+the output produced should be the following:
+
+    $1 = foo(bar(baz)+baz(bop))
+    $2 = (bar(baz)+baz(bop))
+    $3 = bar(baz)+baz(bop)
+
+If there is no corresponding capture group defined, then it is a
+fatal error.  Recursing deeper than 50 times without consuming any input
+string will also result in a fatal error.  The maximum depth is compiled
+into perl, so changing it requires a custom build.
+
+The following shows how using negative indexing can make it
+easier to embed recursive patterns inside of a C<qr//> construct
+for later use:
+
+    my $parens = qr/(\((?:[^()]++|(?-1))*+\))/;
+    if (/foo $parens \s+ \+ \s+ bar $parens/x) {
+       # do something here...
+    }
+
+B<Note> that this pattern does not behave the same way as the equivalent
+PCRE or Python construct of the same form. In Perl you can backtrack into
+a recursed group, in PCRE and Python the recursed into group is treated
+as atomic. Also, modifiers are resolved at compile time, so constructs
+like C<(?i:(?1))> or C<(?:(?i)(?1))> do not affect how the sub-pattern will
+be processed.
+
+=item C<(?&NAME)>
+X<(?&NAME)>
+
+Recurse to a named subpattern. Identical to C<(?I<PARNO>)> except that the
+parenthesis to recurse to is determined by name. If multiple parentheses have
+the same name, then it recurses to the leftmost.
+
+It is an error to refer to a name that is not declared somewhere in the
+pattern.
+
+B<NOTE:> In order to make things easier for programmers with experience
+with the Python or PCRE regex engines the pattern C<< (?P>NAME) >>
+may be used instead of C<< (?&NAME) >>.
+
+=item C<(?(condition)yes-pattern|no-pattern)>
+X<(?()>
+
+=item C<(?(condition)yes-pattern)>
+
+Conditional expression. Matches C<yes-pattern> if C<condition> yields
+a true value, matches C<no-pattern> otherwise. A missing pattern always
+matches.
+
+C<(condition)> should be one of:
+
+=over 4
+
+=item an integer in parentheses
+
+(which is valid if the corresponding pair of parentheses
+matched);
+
+=item a lookahead/lookbehind/evaluate zero-width assertion;
+
+=item a name in angle brackets or single quotes
+
+(which is valid if a group with the given name matched);
+
+=item the special symbol C<(R)>
+
+(true when evaluated inside of recursion or eval).  Additionally the
+C<R> may be
+followed by a number, (which will be true when evaluated when recursing
+inside of the appropriate group), or by C<&NAME>, in which case it will
+be true only when evaluated during recursion in the named group.
+
+=back
+
+Here's a summary of the possible predicates:
+
+=over 4
+
+=item C<(1)> C<(2)> ...
+
+Checks if the numbered capturing group has matched something.
+
+=item C<(E<lt>I<NAME>E<gt>)> C<('I<NAME>')>
+
+Checks if a group with the given name has matched something.
+
+=item C<(?=...)> C<(?!...)> C<(?<=...)> C<(?<!...)>
+
+Checks whether the pattern matches (or does not match, for the C<"!">
+variants).
+
+=item C<(?{ I<CODE> })>
+
+Treats the return value of the code block as the condition.
+
+=item C<(R)>
+
+Checks if the expression has been evaluated inside of recursion.
+
+=item C<(R1)> C<(R2)> ...
+
+Checks if the expression has been evaluated while executing directly
+inside of the n-th capture group. This check is the regex equivalent of
+
+  if ((caller(0))[3] eq 'subname') { ... }
+
+In other words, it does not check the full recursion stack.
+
+=item C<(R&I<NAME>)>
+
+Similar to C<(R1)>, this predicate checks to see if we're executing
+directly inside of the leftmost group with a given name (this is the same
+logic used by C<(?&I<NAME>)> to disambiguate). It does not check the full
+stack, but only the name of the innermost active recursion.
+
+=item C<(DEFINE)>
+
+In this case, the yes-pattern is never directly executed, and no
+no-pattern is allowed. Similar in spirit to C<(?{0})> but more efficient.
+See below for details.
+
+=back
+
+For example:
+
+    m{ ( \( )?
+       [^()]+
+       (?(1) \) )
+     }x
+
+matches a chunk of non-parentheses, possibly included in parentheses
+themselves.
+
+A special form is the C<(DEFINE)> predicate, which never executes its
+yes-pattern directly, and does not allow a no-pattern. This allows one to
+define subpatterns which will be executed only by the recursion mechanism.
+This way, you can define a set of regular expression rules that can be
+bundled into any pattern you choose.
+
+It is recommended that for this usage you put the DEFINE block at the
+end of the pattern, and that you name any subpatterns defined within it.
+
+Also, it's worth noting that patterns defined this way probably will
+not be as efficient, as the optimizer is not very clever about
+handling them.
+
+An example of how this might be used is as follows:
+
+  /(?<NAME>(?&NAME_PAT))(?<ADDR>(?&ADDRESS_PAT))
+   (?(DEFINE)
+     (?<NAME_PAT>....)
+     (?<ADDRESS_PAT>....)
+   )/x
+
+Note that capture groups matched inside of recursion are not accessible
+after the recursion returns, so the extra layer of capturing groups is
+necessary. Thus C<$+{NAME_PAT}> would not be defined even though
+C<$+{NAME}> would be.
+
+Finally, keep in mind that subpatterns created inside a DEFINE block
+count towards the absolute and relative number of captures, so this:
+
+    my @captures = "a" =~ /(.)                  # First capture
+                           (?(DEFINE)
+                               (?<EXAMPLE> 1 )  # Second capture
+                           )/x;
+    say scalar @captures;
+
+Will output 2, not 1. This is particularly important if you intend to
+compile the definitions with the C<qr//> operator, and later
+interpolate them in another pattern.
+
+=item C<< (?>pattern) >>
+X<backtrack> X<backtracking> X<atomic> X<possessive>
+
+An "independent" subexpression, one which matches the substring
+that a I<standalone> C<pattern> would match if anchored at the given
+position, and it matches I<nothing other than this substring>.  This
+construct is useful for optimizations of what would otherwise be
+"eternal" matches, because it will not backtrack (see L<"Backtracking">).
+It may also be useful in places where the "grab all you can, and do not
+give anything back" semantic is desirable.
+
+For example: C<< ^(?>a*)ab >> will never match, since C<< (?>a*) >>
+(anchored at the beginning of string, as above) will match I<all>
+characters C<a> at the beginning of string, leaving no C<a> for
+C<ab> to match.  In contrast, C<a*ab> will match the same as C<a+b>,
+since the match of the subgroup C<a*> is influenced by the following
+group C<ab> (see L<"Backtracking">).  In particular, C<a*> inside
+C<a*ab> will match fewer characters than a standalone C<a*>, since
+this makes the tail match.
+
+C<< (?>pattern) >> does not disable backtracking altogether once it has
+matched. It is still possible to backtrack past the construct, but not
+into it. So C<< ((?>a*)|(?>b*))ar >> will still match "bar".
+
+An effect similar to C<< (?>pattern) >> may be achieved by writing
+C<(?=(pattern))\g{-1}>.  This matches the same substring as a standalone
+C<a+>, and the following C<\g{-1}> eats the matched string; it therefore
+makes a zero-length assertion into an analogue of C<< (?>...) >>.
+(The difference between these two constructs is that the second one
+uses a capturing group, thus shifting ordinals of backreferences
+in the rest of a regular expression.)
+
+Consider this pattern:
+
+    m{ \(
+          (
+            [^()]+           # x+
+          |
+            \( [^()]* \)
+          )+
+       \)
+     }x
+
+That will efficiently match a nonempty group with matching parentheses
+two levels deep or less.  However, if there is no such group, it
+will take virtually forever on a long string.  That's because there
+are so many different ways to split a long string into several
+substrings.  This is what C<(.+)+> is doing, and C<(.+)+> is similar
+to a subpattern of the above pattern.  Consider how the pattern
+above detects no-match on C<((()aaaaaaaaaaaaaaaaaa> in several
+seconds, but that each extra letter doubles this time.  This
+exponential performance will make it appear that your program has
+hung.  However, a tiny change to this pattern
+
+    m{ \(
+          (
+            (?> [^()]+ )        # change x+ above to (?> x+ )
+          |
+            \( [^()]* \)
+          )+
+       \)
+     }x
+
+which uses C<< (?>...) >> matches exactly when the one above does (verifying
+this yourself would be a productive exercise), but finishes in a fourth
+the time when used on a similar string with 1000000 C<a>s.  Be aware,
+however, that, when this construct is followed by a
+quantifier, it currently triggers a warning message under
+the C<use warnings> pragma or B<-w> switch saying it
+C<"matches null string many times in regex">.
+
+On simple groups, such as the pattern C<< (?> [^()]+ ) >>, a comparable
+effect may be achieved by negative lookahead, as in C<[^()]+ (?! [^()] )>.
+This was only 4 times slower on a string with 1000000 C<a>s.
+
+The "grab all you can, and do not give anything back" semantic is desirable
+in many situations where on the first sight a simple C<()*> looks like
+the correct solution.  Suppose we parse text with comments being delimited
+by C<"#"> followed by some optional (horizontal) whitespace.  Contrary to
+its appearance, C<#[ \t]*> I<is not> the correct subexpression to match
+the comment delimiter, because it may "give up" some whitespace if
+the remainder of the pattern can be made to match that way.  The correct
+answer is either one of these:
+
+    (?>#[ \t]*)
+    #[ \t]*(?![ \t])
+
+For example, to grab non-empty comments into C<$1>, one should use either
+one of these:
+
+    / (?> \# [ \t]* ) (        .+ ) /x;
+    /     \# [ \t]*   ( [^ \t] .* ) /x;
+
+Which one you pick depends on which of these expressions better reflects
+the above specification of comments.
+
+In some literature this construct is called "atomic matching" or
+"possessive matching".
+
+Possessive quantifiers are equivalent to putting the item they are applied
+to inside of one of these constructs. The following equivalences apply:
+
+    Quantifier Form     Bracketing Form
+    ---------------     ---------------
+    PAT*+               (?>PAT*)
+    PAT++               (?>PAT+)
+    PAT?+               (?>PAT?)
+    PAT{min,max}+       (?>PAT{min,max})
+
+=item C<(?[ ])>
+
+See L<perlrecharclass/Extended Bracketed Character Classes>.
+
+=back
+
+=head2 Special Backtracking Control Verbs
+
+These special patterns are generally of the form C<(*I<VERB>:I<ARG>)>. Unless
+otherwise stated the I<ARG> argument is optional; in some cases, it is
+mandatory.
+
+Any pattern containing a special backtracking verb that allows an argument
+has the special behaviour that when executed it sets the current package's
+C<$REGERROR> and C<$REGMARK> variables. When doing so the following
+rules apply:
+
+On failure, the C<$REGERROR> variable will be set to the I<ARG> value of the
+verb pattern, if the verb was involved in the failure of the match. If the
+I<ARG> part of the pattern was omitted, then C<$REGERROR> will be set to the
+name of the last C<(*MARK:NAME)> pattern executed, or to TRUE if there was
+none. Also, the C<$REGMARK> variable will be set to FALSE.
+
+On a successful match, the C<$REGERROR> variable will be set to FALSE, and
+the C<$REGMARK> variable will be set to the name of the last
+C<(*MARK:NAME)> pattern executed.  See the explanation for the
+C<(*MARK:NAME)> verb below for more details.
+
+B<NOTE:> C<$REGERROR> and C<$REGMARK> are not magic variables like C<$1>
+and most other regex-related variables. They are not local to a scope, nor
+readonly, but instead are volatile package variables similar to C<$AUTOLOAD>.
+Use C<local> to localize changes to them to a specific scope if necessary.
+
+If a pattern does not contain a special backtracking verb that allows an
+argument, then C<$REGERROR> and C<$REGMARK> are not touched at all.
+
+=over 3
+
+=item Verbs
+
+=over 4
+
+=item C<(*PRUNE)> C<(*PRUNE:NAME)>
+X<(*PRUNE)> X<(*PRUNE:NAME)>
+
+This zero-width pattern prunes the backtracking tree at the current point
+when backtracked into on failure. Consider the pattern C<I<A> (*PRUNE) I<B>>,
+where I<A> and I<B> are complex patterns. Until the C<(*PRUNE)> verb is reached,
+I<A> may backtrack as necessary to match. Once it is reached, matching
+continues in I<B>, which may also backtrack as necessary; however, should B
+not match, then no further backtracking will take place, and the pattern
+will fail outright at the current starting position.
+
+The following example counts all the possible matching strings in a
+pattern (without actually matching any of them).
+
+    'aaab' =~ /a+b?(?{print "$&\n"; $count++})(*FAIL)/;
+    print "Count=$count\n";
+
+which produces:
+
+    aaab
+    aaa
+    aa
+    a
+    aab
+    aa
+    a
+    ab
+    a
+    Count=9
+
+If we add a C<(*PRUNE)> before the count like the following
+
+    'aaab' =~ /a+b?(*PRUNE)(?{print "$&\n"; $count++})(*FAIL)/;
+    print "Count=$count\n";
+
+we prevent backtracking and find the count of the longest matching string
+at each matching starting point like so:
+
+    aaab
+    aab
+    ab
+    Count=3
+
+Any number of C<(*PRUNE)> assertions may be used in a pattern.
+
+See also C<< (?>pattern) >> and possessive quantifiers for other ways to
+control backtracking. In some cases, the use of C<(*PRUNE)> can be
+replaced with a C<< (?>pattern) >> with no functional difference; however,
+C<(*PRUNE)> can be used to handle cases that cannot be expressed using a
+C<< (?>pattern) >> alone.
+
+=item C<(*SKIP)> C<(*SKIP:NAME)>
+X<(*SKIP)>
+
+This zero-width pattern is similar to C<(*PRUNE)>, except that on
+failure it also signifies that whatever text that was matched leading up
+to the C<(*SKIP)> pattern being executed cannot be part of I<any> match
+of this pattern. This effectively means that the regex engine "skips" forward
+to this position on failure and tries to match again, (assuming that
+there is sufficient room to match).
+
+The name of the C<(*SKIP:NAME)> pattern has special significance. If a
+C<(*MARK:NAME)> was encountered while matching, then it is that position
+which is used as the "skip point". If no C<(*MARK)> of that name was
+encountered, then the C<(*SKIP)> operator has no effect. When used
+without a name the "skip point" is where the match point was when
+executing the C<(*SKIP)> pattern.
+
+Compare the following to the examples in C<(*PRUNE)>; note the string
+is twice as long:
+
+ 'aaabaaab' =~ /a+b?(*SKIP)(?{print "$&\n"; $count++})(*FAIL)/;
+ print "Count=$count\n";
+
+outputs
+
+    aaab
+    aaab
+    Count=2
+
+Once the 'aaab' at the start of the string has matched, and the C<(*SKIP)>
+executed, the next starting point will be where the cursor was when the
+C<(*SKIP)> was executed.
+
+=item C<(*MARK:NAME)> C<(*:NAME)>
+X<(*MARK)> X<(*MARK:NAME)> X<(*:NAME)>
+
+This zero-width pattern can be used to mark the point reached in a string
+when a certain part of the pattern has been successfully matched. This
+mark may be given a name. A later C<(*SKIP)> pattern will then skip
+forward to that point if backtracked into on failure. Any number of
+C<(*MARK)> patterns are allowed, and the I<NAME> portion may be duplicated.
+
+In addition to interacting with the C<(*SKIP)> pattern, C<(*MARK:NAME)>
+can be used to "label" a pattern branch, so that after matching, the
+program can determine which branches of the pattern were involved in the
+match.
+
+When a match is successful, the C<$REGMARK> variable will be set to the
+name of the most recently executed C<(*MARK:NAME)> that was involved
+in the match.
+
+This can be used to determine which branch of a pattern was matched
+without using a separate capture group for each branch, which in turn
+can result in a performance improvement, as perl cannot optimize
+C</(?:(x)|(y)|(z))/> as efficiently as something like
+C</(?:x(*MARK:x)|y(*MARK:y)|z(*MARK:z))/>.
+
+When a match has failed, and unless another verb has been involved in
+failing the match and has provided its own name to use, the C<$REGERROR>
+variable will be set to the name of the most recently executed
+C<(*MARK:NAME)>.
+
+See L</(*SKIP)> for more details.
+
+As a shortcut C<(*MARK:NAME)> can be written C<(*:NAME)>.
+
+=item C<(*THEN)> C<(*THEN:NAME)>
+
+This is similar to the "cut group" operator C<::> from Perl 6.  Like
+C<(*PRUNE)>, this verb always matches, and when backtracked into on
+failure, it causes the regex engine to try the next alternation in the
+innermost enclosing group (capturing or otherwise) that has alternations.
+The two branches of a C<(?(condition)yes-pattern|no-pattern)> do not
+count as an alternation, as far as C<(*THEN)> is concerned.
+
+Its name comes from the observation that this operation combined with the
+alternation operator (C<"|">) can be used to create what is essentially a
+pattern-based if/then/else block:
+
+  ( COND (*THEN) FOO | COND2 (*THEN) BAR | COND3 (*THEN) BAZ )
+
+Note that if this operator is used and NOT inside of an alternation then
+it acts exactly like the C<(*PRUNE)> operator.
+
+  / A (*PRUNE) B /
+
+is the same as
+
+  / A (*THEN) B /
+
+but
+
+  / ( A (*THEN) B | C ) /
+
+is not the same as
+
+  / ( A (*PRUNE) B | C ) /
+
+as after matching the I<A> but failing on the I<B> the C<(*THEN)> verb will
+backtrack and try I<C>; but the C<(*PRUNE)> verb will simply fail.
+
+=item C<(*COMMIT)> C<(*COMMIT:args)>
+X<(*COMMIT)>
+
+This is the Perl 6 "commit pattern" C<< <commit> >> or C<:::>. It's a
+zero-width pattern similar to C<(*SKIP)>, except that when backtracked
+into on failure it causes the match to fail outright. No further attempts
+to find a valid match by advancing the start pointer will occur again.
+For example,
+
+ 'aaabaaab' =~ /a+b?(*COMMIT)(?{print "$&\n"; $count++})(*FAIL)/;
+ print "Count=$count\n";
+
+outputs
+
+    aaab
+    Count=1
+
+In other words, once the C<(*COMMIT)> has been entered, and if the pattern
+does not match, the regex engine will not try any further matching on the
+rest of the string.
+
+=item C<(*FAIL)> C<(*F)> C<(*FAIL:arg)>
+X<(*FAIL)> X<(*F)>
+
+This pattern matches nothing and always fails. It can be used to force the
+engine to backtrack. It is equivalent to C<(?!)>, but easier to read. In
+fact, C<(?!)> gets optimised into C<(*FAIL)> internally. You can provide
+an argument so that if the match fails because of this C<FAIL> directive
+the argument can be obtained from C<$REGERROR>.
+
+It is probably useful only when combined with C<(?{})> or C<(??{})>.
+
+=item C<(*ACCEPT)> C<(*ACCEPT:arg)>
+X<(*ACCEPT)>
+
+This pattern matches nothing and causes the end of successful matching at
+the point at which the C<(*ACCEPT)> pattern was encountered, regardless of
+whether there is actually more to match in the string. When inside of a
+nested pattern, such as recursion, or in a subpattern dynamically generated
+via C<(??{})>, only the innermost pattern is ended immediately.
+
+If the C<(*ACCEPT)> is inside of capturing groups then the groups are
+marked as ended at the point at which the C<(*ACCEPT)> was encountered.
+For instance:
+
+  'AB' =~ /(A (A|B(*ACCEPT)|C) D)(E)/x;
+
+will match, and C<$1> will be C<AB> and C<$2> will be C<B>, C<$3> will not
+be set. If another branch in the inner parentheses was matched, such as in the
+string 'ACDE', then the C<D> and C<E> would have to be matched as well.
+
+You can provide an argument, which will be available in the var
+C<$REGMARK> after the match completes.
+
+=back
+
+=back
+
+=head2 Backtracking
+X<backtrack> X<backtracking>
+
+NOTE: This section presents an abstract approximation of regular
+expression behavior.  For a more rigorous (and complicated) view of
+the rules involved in selecting a match among possible alternatives,
+see L<Combining RE Pieces>.
+
+A fundamental feature of regular expression matching involves the
+notion called I<backtracking>, which is currently used (when needed)
+by all regular non-possessive expression quantifiers, namely C<"*">, C<"*?">, C<"+">,
+C<"+?">, C<{n,m}>, and C<{n,m}?>.  Backtracking is often optimized
+internally, but the general principle outlined here is valid.
+
+For a regular expression to match, the I<entire> regular expression must
+match, not just part of it.  So if the beginning of a pattern containing a
+quantifier succeeds in a way that causes later parts in the pattern to
+fail, the matching engine backs up and recalculates the beginning
+part--that's why it's called backtracking.
+
+Here is an example of backtracking:  Let's say you want to find the
+word following "foo" in the string "Food is on the foo table.":
+
+    $_ = "Food is on the foo table.";
+    if ( /\b(foo)\s+(\w+)/i ) {
+        print "$2 follows $1.\n";
+    }
+
+When the match runs, the first part of the regular expression (C<\b(foo)>)
+finds a possible match right at the beginning of the string, and loads up
+C<$1> with "Foo".  However, as soon as the matching engine sees that there's
+no whitespace following the "Foo" that it had saved in C<$1>, it realizes its
+mistake and starts over again one character after where it had the
+tentative match.  This time it goes all the way until the next occurrence
+of "foo". The complete regular expression matches this time, and you get
+the expected output of "table follows foo."
+
+Sometimes minimal matching can help a lot.  Imagine you'd like to match
+everything between "foo" and "bar".  Initially, you write something
+like this:
+
+    $_ =  "The food is under the bar in the barn.";
+    if ( /foo(.*)bar/ ) {
+        print "got <$1>\n";
+    }
+
+Which perhaps unexpectedly yields:
+
+  got <d is under the bar in the >
+
+That's because C<.*> was greedy, so you get everything between the
+I<first> "foo" and the I<last> "bar".  Here it's more effective
+to use minimal matching to make sure you get the text between a "foo"
+and the first "bar" thereafter.
+
+    if ( /foo(.*?)bar/ ) { print "got <$1>\n" }
+  got <d is under the >
+
+Here's another example. Let's say you'd like to match a number at the end
+of a string, and you also want to keep the preceding part of the match.
+So you write this:
+
+    $_ = "I have 2 numbers: 53147";
+    if ( /(.*)(\d*)/ ) {                                # Wrong!
+        print "Beginning is <$1>, number is <$2>.\n";
+    }
+
+That won't work at all, because C<.*> was greedy and gobbled up the
+whole string. As C<\d*> can match on an empty string the complete
+regular expression matched successfully.
+
+    Beginning is <I have 2 numbers: 53147>, number is <>.
+
+Here are some variants, most of which don't work:
+
+    $_ = "I have 2 numbers: 53147";
+    @pats = qw{
+        (.*)(\d*)
+        (.*)(\d+)
+        (.*?)(\d*)
+        (.*?)(\d+)
+        (.*)(\d+)$
+        (.*?)(\d+)$
+        (.*)\b(\d+)$
+        (.*\D)(\d+)$
+    };
+
+    for $pat (@pats) {
+        printf "%-12s ", $pat;
+        if ( /$pat/ ) {
+            print "<$1> <$2>\n";
+        } else {
+            print "FAIL\n";
+        }
+    }
+
+That will print out:
+
+    (.*)(\d*)    <I have 2 numbers: 53147> <>
+    (.*)(\d+)    <I have 2 numbers: 5314> <7>
+    (.*?)(\d*)   <> <>
+    (.*?)(\d+)   <I have > <2>
+    (.*)(\d+)$   <I have 2 numbers: 5314> <7>
+    (.*?)(\d+)$  <I have 2 numbers: > <53147>
+    (.*)\b(\d+)$ <I have 2 numbers: > <53147>
+    (.*\D)(\d+)$ <I have 2 numbers: > <53147>
+
+As you see, this can be a bit tricky.  It's important to realize that a
+regular expression is merely a set of assertions that gives a definition
+of success.  There may be 0, 1, or several different ways that the
+definition might succeed against a particular string.  And if there are
+multiple ways it might succeed, you need to understand backtracking to
+know which variety of success you will achieve.
+
+When using lookahead assertions and negations, this can all get even
+trickier.  Imagine you'd like to find a sequence of non-digits not
+followed by "123".  You might try to write that as
+
+    $_ = "ABC123";
+    if ( /^\D*(?!123)/ ) {                # Wrong!
+        print "Yup, no 123 in $_\n";
+    }
+
+But that isn't going to match; at least, not the way you're hoping.  It
+claims that there is no 123 in the string.  Here's a clearer picture of
+why that pattern matches, contrary to popular expectations:
+
+    $x = 'ABC123';
+    $y = 'ABC445';
+
+    print "1: got $1\n" if $x =~ /^(ABC)(?!123)/;
+    print "2: got $1\n" if $y =~ /^(ABC)(?!123)/;
+
+    print "3: got $1\n" if $x =~ /^(\D*)(?!123)/;
+    print "4: got $1\n" if $y =~ /^(\D*)(?!123)/;
+
+This prints
+
+    2: got ABC
+    3: got AB
+    4: got ABC
+
+You might have expected test 3 to fail because it seems to a more
+general purpose version of test 1.  The important difference between
+them is that test 3 contains a quantifier (C<\D*>) and so can use
+backtracking, whereas test 1 will not.  What's happening is
+that you've asked "Is it true that at the start of C<$x>, following 0 or more
+non-digits, you have something that's not 123?"  If the pattern matcher had
+let C<\D*> expand to "ABC", this would have caused the whole pattern to
+fail.
+
+The search engine will initially match C<\D*> with "ABC".  Then it will
+try to match C<(?!123)> with "123", which fails.  But because
+a quantifier (C<\D*>) has been used in the regular expression, the
+search engine can backtrack and retry the match differently
+in the hope of matching the complete regular expression.
+
+The pattern really, I<really> wants to succeed, so it uses the
+standard pattern back-off-and-retry and lets C<\D*> expand to just "AB" this
+time.  Now there's indeed something following "AB" that is not
+"123".  It's "C123", which suffices.
+
+We can deal with this by using both an assertion and a negation.
+We'll say that the first part in C<$1> must be followed both by a digit
+and by something that's not "123".  Remember that the lookaheads
+are zero-width expressions--they only look, but don't consume any
+of the string in their match.  So rewriting this way produces what
+you'd expect; that is, case 5 will fail, but case 6 succeeds:
+
+    print "5: got $1\n" if $x =~ /^(\D*)(?=\d)(?!123)/;
+    print "6: got $1\n" if $y =~ /^(\D*)(?=\d)(?!123)/;
+
+    6: got ABC
+
+In other words, the two zero-width assertions next to each other work as though
+they're ANDed together, just as you'd use any built-in assertions:  C</^$/>
+matches only if you're at the beginning of the line AND the end of the
+line simultaneously.  The deeper underlying truth is that juxtaposition in
+regular expressions always means AND, except when you write an explicit OR
+using the vertical bar.  C</ab/> means match "a" AND (then) match "b",
+although the attempted matches are made at different positions because "a"
+is not a zero-width assertion, but a one-width assertion.
+
+B<WARNING>: Particularly complicated regular expressions can take
+exponential time to solve because of the immense number of possible
+ways they can use backtracking to try for a match.  For example, without
+internal optimizations done by the regular expression engine, this will
+take a painfully long time to run:
+
+    'aaaaaaaaaaaa' =~ /((a{0,5}){0,5})*[c]/
+
+And if you used C<"*">'s in the internal groups instead of limiting them
+to 0 through 5 matches, then it would take forever--or until you ran
+out of stack space.  Moreover, these internal optimizations are not
+always applicable.  For example, if you put C<{0,5}> instead of C<"*">
+on the external group, no current optimization is applicable, and the
+match takes a long time to finish.
+
+A powerful tool for optimizing such beasts is what is known as an
+"independent group",
+which does not backtrack (see L</C<< (?>pattern) >>>).  Note also that
+zero-length lookahead/lookbehind assertions will not backtrack to make
+the tail match, since they are in "logical" context: only
+whether they match is considered relevant.  For an example
+where side-effects of lookahead I<might> have influenced the
+following match, see L</C<< (?>pattern) >>>.
+
+=head2 Version 8 Regular Expressions
+X<regular expression, version 8> X<regex, version 8> X<regexp, version 8>
+
+In case you're not familiar with the "regular" Version 8 regex
+routines, here are the pattern-matching rules not described above.
+
+Any single character matches itself, unless it is a I<metacharacter>
+with a special meaning described here or above.  You can cause
+characters that normally function as metacharacters to be interpreted
+literally by prefixing them with a C<"\"> (e.g., C<"\."> matches a C<".">, not any
+character; "\\" matches a C<"\">). This escape mechanism is also required
+for the character used as the pattern delimiter.
+
+A series of characters matches that series of characters in the target
+string, so the pattern C<blurfl> would match "blurfl" in the target
+string.
+
+You can specify a character class, by enclosing a list of characters
+in C<[]>, which will match any character from the list.  If the
+first character after the C<"["> is C<"^">, the class matches any character not
+in the list.  Within a list, the C<"-"> character specifies a
+range, so that C<a-z> represents all characters between "a" and "z",
+inclusive.  If you want either C<"-"> or C<"]"> itself to be a member of a
+class, put it at the start of the list (possibly after a C<"^">), or
+escape it with a backslash.  C<"-"> is also taken literally when it is
+at the end of the list, just before the closing C<"]">.  (The
+following all specify the same class of three characters: C<[-az]>,
+C<[az-]>, and C<[a\-z]>.  All are different from C<[a-z]>, which
+specifies a class containing twenty-six characters, even on EBCDIC-based
+character sets.)  Also, if you try to use the character
+classes C<\w>, C<\W>, C<\s>, C<\S>, C<\d>, or C<\D> as endpoints of
+a range, the C<"-"> is understood literally.
+
+Note also that the whole range idea is rather unportable between
+character sets, except for four situations that Perl handles specially.
+Any subset of the ranges C<[A-Z]>, C<[a-z]>, and C<[0-9]> are guaranteed
+to match the expected subset of ASCII characters, no matter what
+character set the platform is running.  The fourth portable way to
+specify ranges is to use the C<\N{...}> syntax to specify either end
+point of the range.  For example, C<[\N{U+04}-\N{U+07}]> means to match
+the Unicode code points C<\N{U+04}>, C<\N{U+05}>, C<\N{U+06}>, and
+C<\N{U+07}>, whatever their native values may be on the platform.  Under
+L<use re 'strict'|re/'strict' mode> or within a L</C<(?[ ])>>, a warning
+is raised, if enabled, and the other end point of a range which has a
+C<\N{...}> endpoint is not portably specified.  For example,
+
+ [\N{U+00}-\x06]    # Warning under "use re 'strict'".
+
+It is hard to understand without digging what exactly matches ranges
+other than subsets of C<[A-Z]>, C<[a-z]>, and C<[0-9]>.  A sound
+principle is to use only ranges that begin from and end at either
+alphabetics of equal case ([a-e], [A-E]), or digits ([0-9]).  Anything
+else is unsafe or unclear.  If in doubt, spell out the range in full.
+
+Characters may be specified using a metacharacter syntax much like that
+used in C: "\n" matches a newline, "\t" a tab, "\r" a carriage return,
+"\f" a form feed, etc.  More generally, \I<nnn>, where I<nnn> is a string
+of three octal digits, matches the character whose coded character set value
+is I<nnn>.  Similarly, \xI<nn>, where I<nn> are hexadecimal digits,
+matches the character whose ordinal is I<nn>. The expression \cI<x>
+matches the character control-I<x>.  Finally, the C<"."> metacharacter
+matches any character except "\n" (unless you use C</s>).
+
+You can specify a series of alternatives for a pattern using C<"|"> to
+separate them, so that C<fee|fie|foe> will match any of "fee", "fie",
+or "foe" in the target string (as would C<f(e|i|o)e>).  The
+first alternative includes everything from the last pattern delimiter
+(C<"(">, "(?:", etc. or the beginning of the pattern) up to the first C<"|">, and
+the last alternative contains everything from the last C<"|"> to the next
+closing pattern delimiter.  That's why it's common practice to include
+alternatives in parentheses: to minimize confusion about where they
+start and end.
+
+Alternatives are tried from left to right, so the first
+alternative found for which the entire expression matches, is the one that
+is chosen. This means that alternatives are not necessarily greedy. For
+example: when matching C<foo|foot> against "barefoot", only the "foo"
+part will match, as that is the first alternative tried, and it successfully
+matches the target string. (This might not seem important, but it is
+important when you are capturing matched text using parentheses.)
+
+Also remember that C<"|"> is interpreted as a literal within square brackets,
+so if you write C<[fee|fie|foe]> you're really only matching C<[feio|]>.
+
+Within a pattern, you may designate subpatterns for later reference
+by enclosing them in parentheses, and you may refer back to the
+I<n>th subpattern later in the pattern using the metacharacter
+\I<n> or \gI<n>.  Subpatterns are numbered based on the left to right order
+of their opening parenthesis.  A backreference matches whatever
+actually matched the subpattern in the string being examined, not
+the rules for that subpattern.  Therefore, C<(0|0x)\d*\s\g1\d*> will
+match "0x1234 0x4321", but not "0x1234 01234", because subpattern
+1 matched "0x", even though the rule C<0|0x> could potentially match
+the leading 0 in the second number.
+
+=head2 Warning on C<\1> Instead of C<$1>
+
+Some people get too used to writing things like:
+
+    $pattern =~ s/(\W)/\\\1/g;
+
+This is grandfathered (for \1 to \9) for the RHS of a substitute to avoid
+shocking the
+B<sed> addicts, but it's a dirty habit to get into.  That's because in
+PerlThink, the righthand side of an C<s///> is a double-quoted string.  C<\1> in
+the usual double-quoted string means a control-A.  The customary Unix
+meaning of C<\1> is kludged in for C<s///>.  However, if you get into the habit
+of doing that, you get yourself into trouble if you then add an C</e>
+modifier.
+
+    s/(\d+)/ \1 + 1 /eg;            # causes warning under -w
+
+Or if you try to do
+
+    s/(\d+)/\1000/;
+
+You can't disambiguate that by saying C<\{1}000>, whereas you can fix it with
+C<${1}000>.  The operation of interpolation should not be confused
+with the operation of matching a backreference.  Certainly they mean two
+different things on the I<left> side of the C<s///>.
+
+=head2 Repeated Patterns Matching a Zero-length Substring
+
+B<WARNING>: Difficult material (and prose) ahead.  This section needs a rewrite.
+
+Regular expressions provide a terse and powerful programming language.  As
+with most other power tools, power comes together with the ability
+to wreak havoc.
+
+A common abuse of this power stems from the ability to make infinite
+loops using regular expressions, with something as innocuous as:
+
+    'foo' =~ m{ ( o? )* }x;
+
+The C<o?> matches at the beginning of C<'foo'>, and since the position
+in the string is not moved by the match, C<o?> would match again and again
+because of the C<"*"> quantifier.  Another common way to create a similar cycle
+is with the looping modifier C<//g>:
+
+    @matches = ( 'foo' =~ m{ o? }xg );
+
+or
+
+    print "match: <$&>\n" while 'foo' =~ m{ o? }xg;
+
+or the loop implied by C<split()>.
+
+However, long experience has shown that many programming tasks may
+be significantly simplified by using repeated subexpressions that
+may match zero-length substrings.  Here's a simple example being:
+
+    @chars = split //, $string;           # // is not magic in split
+    ($whitewashed = $string) =~ s/()/ /g; # parens avoid magic s// /
+
+Thus Perl allows such constructs, by I<forcefully breaking
+the infinite loop>.  The rules for this are different for lower-level
+loops given by the greedy quantifiers C<*+{}>, and for higher-level
+ones like the C</g> modifier or C<split()> operator.
+
+The lower-level loops are I<interrupted> (that is, the loop is
+broken) when Perl detects that a repeated expression matched a
+zero-length substring.   Thus
+
+   m{ (?: NON_ZERO_LENGTH | ZERO_LENGTH )* }x;
+
+is made equivalent to
+
+   m{ (?: NON_ZERO_LENGTH )* (?: ZERO_LENGTH )? }x;
+
+For example, this program
+
+   #!perl -l
+   "aaaaab" =~ /
+     (?:
+        a                 # non-zero
+        |                 # or
+       (?{print "hello"}) # print hello whenever this
+                          #    branch is tried
+       (?=(b))            # zero-width assertion
+     )*  # any number of times
+    /x;
+   print $&;
+   print $1;
+
+prints
+
+   hello
+   aaaaa
+   b
+
+Notice that "hello" is only printed once, as when Perl sees that the sixth
+iteration of the outermost C<(?:)*> matches a zero-length string, it stops
+the C<"*">.
+
+The higher-level loops preserve an additional state between iterations:
+whether the last match was zero-length.  To break the loop, the following
+match after a zero-length match is prohibited to have a length of zero.
+This prohibition interacts with backtracking (see L<"Backtracking">),
+and so the I<second best> match is chosen if the I<best> match is of
+zero length.
+
+For example:
+
+    $_ = 'bar';
+    s/\w??/<$&>/g;
+
+results in C<< <><b><><a><><r><> >>.  At each position of the string the best
+match given by non-greedy C<??> is the zero-length match, and the I<second
+best> match is what is matched by C<\w>.  Thus zero-length matches
+alternate with one-character-long matches.
+
+Similarly, for repeated C<m/()/g> the second-best match is the match at the
+position one notch further in the string.
+
+The additional state of being I<matched with zero-length> is associated with
+the matched string, and is reset by each assignment to C<pos()>.
+Zero-length matches at the end of the previous match are ignored
+during C<split>.
+
+=head2 Combining RE Pieces
+
+Each of the elementary pieces of regular expressions which were described
+before (such as C<ab> or C<\Z>) could match at most one substring
+at the given position of the input string.  However, in a typical regular
+expression these elementary pieces are combined into more complicated
+patterns using combining operators C<ST>, C<S|T>, C<S*> etc.
+(in these examples C<S> and C<T> are regular subexpressions).
+
+Such combinations can include alternatives, leading to a problem of choice:
+if we match a regular expression C<a|ab> against C<"abc">, will it match
+substring C<"a"> or C<"ab">?  One way to describe which substring is
+actually matched is the concept of backtracking (see L<"Backtracking">).
+However, this description is too low-level and makes you think
+in terms of a particular implementation.
+
+Another description starts with notions of "better"/"worse".  All the
+substrings which may be matched by the given regular expression can be
+sorted from the "best" match to the "worst" match, and it is the "best"
+match which is chosen.  This substitutes the question of "what is chosen?"
+by the question of "which matches are better, and which are worse?".
+
+Again, for elementary pieces there is no such question, since at most
+one match at a given position is possible.  This section describes the
+notion of better/worse for combining operators.  In the description
+below C<S> and C<T> are regular subexpressions.
+
+=over 4
+
+=item C<ST>
+
+Consider two possible matches, C<AB> and C<A'B'>, C<A> and C<A'> are
+substrings which can be matched by C<S>, C<B> and C<B'> are substrings
+which can be matched by C<T>.
+
+If C<A> is a better match for C<S> than C<A'>, C<AB> is a better
+match than C<A'B'>.
+
+If C<A> and C<A'> coincide: C<AB> is a better match than C<AB'> if
+C<B> is a better match for C<T> than C<B'>.
+
+=item C<S|T>
+
+When C<S> can match, it is a better match than when only C<T> can match.
+
+Ordering of two matches for C<S> is the same as for C<S>.  Similar for
+two matches for C<T>.
+
+=item C<S{REPEAT_COUNT}>
+
+Matches as C<SSS...S> (repeated as many times as necessary).
+
+=item C<S{min,max}>
+
+Matches as C<S{max}|S{max-1}|...|S{min+1}|S{min}>.
+
+=item C<S{min,max}?>
+
+Matches as C<S{min}|S{min+1}|...|S{max-1}|S{max}>.
+
+=item C<S?>, C<S*>, C<S+>
+
+Same as C<S{0,1}>, C<S{0,BIG_NUMBER}>, C<S{1,BIG_NUMBER}> respectively.
+
+=item C<S??>, C<S*?>, C<S+?>
+
+Same as C<S{0,1}?>, C<S{0,BIG_NUMBER}?>, C<S{1,BIG_NUMBER}?> respectively.
+
+=item C<< (?>S) >>
+
+Matches the best match for C<S> and only that.
+
+=item C<(?=S)>, C<(?<=S)>
+
+Only the best match for C<S> is considered.  (This is important only if
+C<S> has capturing parentheses, and backreferences are used somewhere
+else in the whole regular expression.)
+
+=item C<(?!S)>, C<(?<!S)>
+
+For this grouping operator there is no need to describe the ordering, since
+only whether or not C<S> can match is important.
+
+=item C<(??{ EXPR })>, C<(?I<PARNO>)>
+
+The ordering is the same as for the regular expression which is
+the result of EXPR, or the pattern contained by capture group I<PARNO>.
+
+=item C<(?(condition)yes-pattern|no-pattern)>
+
+Recall that which of C<yes-pattern> or C<no-pattern> actually matches is
+already determined.  The ordering of the matches is the same as for the
+chosen subexpression.
+
+=back
+
+The above recipes describe the ordering of matches I<at a given position>.
+One more rule is needed to understand how a match is determined for the
+whole regular expression: a match at an earlier position is always better
+than a match at a later position.
+
+=head2 Creating Custom RE Engines
+
+As of Perl 5.10.0, one can create custom regular expression engines.  This
+is not for the faint of heart, as they have to plug in at the C level.  See
+L<perlreapi> for more details.
+
+As an alternative, overloaded constants (see L<overload>) provide a simple
+way to extend the functionality of the RE engine, by substituting one
+pattern for another.
+
+Suppose that we want to enable a new RE escape-sequence C<\Y|> which
+matches at a boundary between whitespace characters and non-whitespace
+characters.  Note that C<(?=\S)(?<!\S)|(?!\S)(?<=\S)> matches exactly
+at these positions, so we want to have each C<\Y|> in the place of the
+more complicated version.  We can create a module C<customre> to do
+this:
+
+    package customre;
+    use overload;
+
+    sub import {
+      shift;
+      die "No argument to customre::import allowed" if @_;
+      overload::constant 'qr' => \&convert;
+    }
+
+    sub invalid { die "/$_[0]/: invalid escape '\\$_[1]'"}
+
+    # We must also take care of not escaping the legitimate \\Y|
+    # sequence, hence the presence of '\\' in the conversion rules.
+    my %rules = ( '\\' => '\\\\',
+                  'Y|' => qr/(?=\S)(?<!\S)|(?!\S)(?<=\S)/ );
+    sub convert {
+      my $re = shift;
+      $re =~ s{
+                \\ ( \\ | Y . )
+              }
+              { $rules{$1} or invalid($re,$1) }sgex;
+      return $re;
+    }
+
+Now C<use customre> enables the new escape in constant regular
+expressions, i.e., those without any runtime variable interpolations.
+As documented in L<overload>, this conversion will work only over
+literal parts of regular expressions.  For C<\Y|$re\Y|> the variable
+part of this regular expression needs to be converted explicitly
+(but only if the special meaning of C<\Y|> should be enabled inside C<$re>):
+
+    use customre;
+    $re = <>;
+    chomp $re;
+    $re = customre::convert $re;
+    /\Y|$re\Y|/;
+
+=head2 Embedded Code Execution Frequency
+
+The exact rules for how often (??{}) and (?{}) are executed in a pattern
+are unspecified.  In the case of a successful match you can assume that
+they DWIM and will be executed in left to right order the appropriate
+number of times in the accepting path of the pattern as would any other
+meta-pattern.  How non-accepting pathways and match failures affect the
+number of times a pattern is executed is specifically unspecified and
+may vary depending on what optimizations can be applied to the pattern
+and is likely to change from version to version.
+
+For instance in
+
+  "aaabcdeeeee"=~/a(?{print "a"})b(?{print "b"})cde/;
+
+the exact number of times "a" or "b" are printed out is unspecified for
+failure, but you may assume they will be printed at least once during
+a successful match, additionally you may assume that if "b" is printed,
+it will be preceded by at least one "a".
+
+In the case of branching constructs like the following:
+
+  /a(b|(?{ print "a" }))c(?{ print "c" })/;
+
+you can assume that the input "ac" will output "ac", and that "abc"
+will output only "c".
+
+When embedded code is quantified, successful matches will call the
+code once for each matched iteration of the quantifier.  For
+example:
+
+  "good" =~ /g(?:o(?{print "o"}))*d/;
+
+will output "o" twice.
+
+=head2 PCRE/Python Support
+
+As of Perl 5.10.0, Perl supports several Python/PCRE-specific extensions
+to the regex syntax. While Perl programmers are encouraged to use the
+Perl-specific syntax, the following are also accepted:
+
+=over 4
+
+=item C<< (?PE<lt>NAMEE<gt>pattern) >>
+
+Define a named capture group. Equivalent to C<< (?<NAME>pattern) >>.
+
+=item C<< (?P=NAME) >>
+
+Backreference to a named capture group. Equivalent to C<< \g{NAME} >>.
+
+=item C<< (?P>NAME) >>
+
+Subroutine call to a named capture group. Equivalent to C<< (?&NAME) >>.
+
+=back
+
+=head1 BUGS
+
+There are a number of issues with regard to case-insensitive matching
+in Unicode rules.  See C<i> under L</Modifiers> above.
+
+This document varies from difficult to understand to completely
+and utterly opaque.  The wandering prose riddled with jargon is
+hard to fathom in several places.
+
+This document needs a rewrite that separates the tutorial content
+from the reference content.
+
+=head1 SEE ALSO
+
+L<perlrequick>.
+
+L<perlretut>.
+
+L<perlop/"Regexp Quote-Like Operators">.
+
+L<perlop/"Gory details of parsing quoted constructs">.
+
+L<perlfaq6>.
+
+L<perlfunc/pos>.
+
+L<perllocale>.
+
+L<perlebcdic>.
+
+I<Mastering Regular Expressions> by Jeffrey Friedl, published
+by O'Reilly and Associates.
diff --git a/lib/5.24.1/pod/perlreapi.pod b/lib/5.24.1/pod/perlreapi.pod
new file mode 100644
index 00000000..c11ff9e5
--- /dev/null
+++ b/lib/5.24.1/pod/perlreapi.pod
@@ -0,0 +1,847 @@
+=head1 NAME
+
+perlreapi - Perl regular expression plugin interface
+
+=head1 DESCRIPTION
+
+As of Perl 5.9.5 there is a new interface for plugging and using
+regular expression engines other than the default one.
+
+Each engine is supposed to provide access to a constant structure of the
+following format:
+
+    typedef struct regexp_engine {
+        REGEXP* (*comp) (pTHX_
+                         const SV * const pattern, const U32 flags);
+        I32     (*exec) (pTHX_
+                         REGEXP * const rx,
+                         char* stringarg,
+                         char* strend, char* strbeg,
+                         SSize_t minend, SV* sv,
+                         void* data, U32 flags);
+        char*   (*intuit) (pTHX_
+                           REGEXP * const rx, SV *sv,
+			   const char * const strbeg,
+                           char *strpos, char *strend, U32 flags,
+                           struct re_scream_pos_data_s *data);
+        SV*     (*checkstr) (pTHX_ REGEXP * const rx);
+        void    (*free) (pTHX_ REGEXP * const rx);
+        void    (*numbered_buff_FETCH) (pTHX_
+                                        REGEXP * const rx,
+                                        const I32 paren,
+                                        SV * const sv);
+        void    (*numbered_buff_STORE) (pTHX_
+                                        REGEXP * const rx,
+                                        const I32 paren,
+                                        SV const * const value);
+        I32     (*numbered_buff_LENGTH) (pTHX_
+                                         REGEXP * const rx,
+                                         const SV * const sv,
+                                         const I32 paren);
+        SV*     (*named_buff) (pTHX_
+                               REGEXP * const rx,
+                               SV * const key,
+                               SV * const value,
+                               U32 flags);
+        SV*     (*named_buff_iter) (pTHX_
+                                    REGEXP * const rx,
+                                    const SV * const lastkey,
+                                    const U32 flags);
+        SV*     (*qr_package)(pTHX_ REGEXP * const rx);
+    #ifdef USE_ITHREADS
+        void*   (*dupe) (pTHX_ REGEXP * const rx, CLONE_PARAMS *param);
+    #endif
+        REGEXP* (*op_comp) (...);
+
+
+When a regexp is compiled, its C<engine> field is then set to point at
+the appropriate structure, so that when it needs to be used Perl can find
+the right routines to do so.
+
+In order to install a new regexp handler, C<$^H{regcomp}> is set
+to an integer which (when casted appropriately) resolves to one of these
+structures.  When compiling, the C<comp> method is executed, and the
+resulting C<regexp> structure's engine field is expected to point back at
+the same structure.
+
+The pTHX_ symbol in the definition is a macro used by Perl under threading
+to provide an extra argument to the routine holding a pointer back to
+the interpreter that is executing the regexp. So under threading all
+routines get an extra argument.
+
+=head1 Callbacks
+
+=head2 comp
+
+    REGEXP* comp(pTHX_ const SV * const pattern, const U32 flags);
+
+Compile the pattern stored in C<pattern> using the given C<flags> and
+return a pointer to a prepared C<REGEXP> structure that can perform
+the match.  See L</The REGEXP structure> below for an explanation of
+the individual fields in the REGEXP struct.
+
+The C<pattern> parameter is the scalar that was used as the
+pattern.  Previous versions of Perl would pass two C<char*> indicating
+the start and end of the stringified pattern; the following snippet can
+be used to get the old parameters:
+
+    STRLEN plen;
+    char*  exp = SvPV(pattern, plen);
+    char* xend = exp + plen;
+
+Since any scalar can be passed as a pattern, it's possible to implement
+an engine that does something with an array (C<< "ook" =~ [ qw/ eek
+hlagh / ] >>) or with the non-stringified form of a compiled regular
+expression (C<< "ook" =~ qr/eek/ >>).  Perl's own engine will always
+stringify everything using the snippet above, but that doesn't mean
+other engines have to.
+
+The C<flags> parameter is a bitfield which indicates which of the
+C<msixpn> flags the regex was compiled with.  It also contains
+additional info, such as if C<use locale> is in effect.
+
+The C<eogc> flags are stripped out before being passed to the comp
+routine.  The regex engine does not need to know if any of these
+are set, as those flags should only affect what Perl does with the
+pattern and its match variables, not how it gets compiled and
+executed.
+
+By the time the comp callback is called, some of these flags have
+already had effect (noted below where applicable).  However most of
+their effect occurs after the comp callback has run, in routines that
+read the C<< rx->extflags >> field which it populates.
+
+In general the flags should be preserved in C<< rx->extflags >> after
+compilation, although the regex engine might want to add or delete
+some of them to invoke or disable some special behavior in Perl.  The
+flags along with any special behavior they cause are documented below:
+
+The pattern modifiers:
+
+=over 4
+
+=item C</m> - RXf_PMf_MULTILINE
+
+If this is in C<< rx->extflags >> it will be passed to
+C<Perl_fbm_instr> by C<pp_split> which will treat the subject string
+as a multi-line string.
+
+=item C</s> - RXf_PMf_SINGLELINE
+
+=item C</i> - RXf_PMf_FOLD
+
+=item C</x> - RXf_PMf_EXTENDED
+
+If present on a regex, C<"#"> comments will be handled differently by the
+tokenizer in some cases.
+
+TODO: Document those cases.
+
+=item C</p> - RXf_PMf_KEEPCOPY
+
+TODO: Document this
+
+=item Character set
+
+The character set rules are determined by an enum that is contained
+in this field.  This is still experimental and subject to change, but
+the current interface returns the rules by use of the in-line function
+C<get_regex_charset(const U32 flags)>.  The only currently documented
+value returned from it is REGEX_LOCALE_CHARSET, which is set if
+C<use locale> is in effect. If present in C<< rx->extflags >>,
+C<split> will use the locale dependent definition of whitespace
+when RXf_SKIPWHITE or RXf_WHITE is in effect.  ASCII whitespace
+is defined as per L<isSPACE|perlapi/isSPACE>, and by the internal
+macros C<is_utf8_space> under UTF-8, and C<isSPACE_LC> under C<use
+locale>.
+
+=back
+
+Additional flags:
+
+=over 4
+
+=item RXf_SPLIT
+
+This flag was removed in perl 5.18.0.  C<split ' '> is now special-cased
+solely in the parser.  RXf_SPLIT is still #defined, so you can test for it.
+This is how it used to work:
+
+If C<split> is invoked as C<split ' '> or with no arguments (which
+really means C<split(' ', $_)>, see L<split|perlfunc/split>), Perl will
+set this flag.  The regex engine can then check for it and set the
+SKIPWHITE and WHITE extflags.  To do this, the Perl engine does:
+
+    if (flags & RXf_SPLIT && r->prelen == 1 && r->precomp[0] == ' ')
+        r->extflags |= (RXf_SKIPWHITE|RXf_WHITE);
+
+=back
+
+These flags can be set during compilation to enable optimizations in
+the C<split> operator.
+
+=over 4
+
+=item RXf_SKIPWHITE
+
+This flag was removed in perl 5.18.0.  It is still #defined, so you can
+set it, but doing so will have no effect.  This is how it used to work:
+
+If the flag is present in C<< rx->extflags >> C<split> will delete
+whitespace from the start of the subject string before it's operated
+on.  What is considered whitespace depends on if the subject is a
+UTF-8 string and if the C<RXf_PMf_LOCALE> flag is set.
+
+If RXf_WHITE is set in addition to this flag, C<split> will behave like
+C<split " "> under the Perl engine.
+
+=item RXf_START_ONLY
+
+Tells the split operator to split the target string on newlines
+(C<\n>) without invoking the regex engine.
+
+Perl's engine sets this if the pattern is C</^/> (C<plen == 1 && *exp
+== '^'>), even under C</^/s>; see L<split|perlfunc>.  Of course a
+different regex engine might want to use the same optimizations
+with a different syntax.
+
+=item RXf_WHITE
+
+Tells the split operator to split the target string on whitespace
+without invoking the regex engine.  The definition of whitespace varies
+depending on if the target string is a UTF-8 string and on
+if RXf_PMf_LOCALE is set.
+
+Perl's engine sets this flag if the pattern is C<\s+>.
+
+=item RXf_NULL
+
+Tells the split operator to split the target string on
+characters.  The definition of character varies depending on if
+the target string is a UTF-8 string.
+
+Perl's engine sets this flag on empty patterns, this optimization
+makes C<split //> much faster than it would otherwise be.  It's even
+faster than C<unpack>.
+
+=item RXf_NO_INPLACE_SUBST
+
+Added in perl 5.18.0, this flag indicates that a regular expression might
+perform an operation that would interfere with inplace substitution. For
+instance it might contain lookbehind, or assign to non-magical variables
+(such as $REGMARK and $REGERROR) during matching.  C<s///> will skip
+certain optimisations when this is set.
+
+=back
+
+=head2 exec
+
+    I32 exec(pTHX_ REGEXP * const rx,
+             char *stringarg, char* strend, char* strbeg,
+             SSize_t minend, SV* sv,
+             void* data, U32 flags);
+
+Execute a regexp. The arguments are
+
+=over 4
+
+=item rx
+
+The regular expression to execute.
+
+=item sv
+
+This is the SV to be matched against.  Note that the
+actual char array to be matched against is supplied by the arguments
+described below; the SV is just used to determine UTF8ness, C<pos()> etc.
+
+=item strbeg
+
+Pointer to the physical start of the string.
+
+=item strend
+
+Pointer to the character following the physical end of the string (i.e.
+the C<\0>, if any).
+
+=item stringarg
+
+Pointer to the position in the string where matching should start; it might
+not be equal to C<strbeg> (for example in a later iteration of C</.../g>).
+
+=item minend
+
+Minimum length of string (measured in bytes from C<stringarg>) that must
+match; if the engine reaches the end of the match but hasn't reached this
+position in the string, it should fail.
+
+=item data
+
+Optimisation data; subject to change.
+
+=item flags
+
+Optimisation flags; subject to change.
+
+=back
+
+=head2 intuit
+
+    char* intuit(pTHX_
+		REGEXP * const rx,
+		SV *sv,
+		const char * const strbeg,
+		char *strpos,
+		char *strend,
+		const U32 flags,
+		struct re_scream_pos_data_s *data);
+
+Find the start position where a regex match should be attempted,
+or possibly if the regex engine should not be run because the
+pattern can't match.  This is called, as appropriate, by the core,
+depending on the values of the C<extflags> member of the C<regexp>
+structure.
+
+Arguments:
+
+    rx:     the regex to match against
+    sv:     the SV being matched: only used for utf8 flag; the string
+	    itself is accessed via the pointers below. Note that on
+	    something like an overloaded SV, SvPOK(sv) may be false
+	    and the string pointers may point to something unrelated to
+	    the SV itself.
+    strbeg: real beginning of string
+    strpos: the point in the string at which to begin matching
+    strend: pointer to the byte following the last char of the string
+    flags   currently unused; set to 0
+    data:   currently unused; set to NULL
+
+
+=head2 checkstr
+
+    SV*	checkstr(pTHX_ REGEXP * const rx);
+
+Return a SV containing a string that must appear in the pattern. Used
+by C<split> for optimising matches.
+
+=head2 free
+
+    void free(pTHX_ REGEXP * const rx);
+
+Called by Perl when it is freeing a regexp pattern so that the engine
+can release any resources pointed to by the C<pprivate> member of the
+C<regexp> structure.  This is only responsible for freeing private data;
+Perl will handle releasing anything else contained in the C<regexp> structure.
+
+=head2 Numbered capture callbacks
+
+Called to get/set the value of C<$`>, C<$'>, C<$&> and their named
+equivalents, ${^PREMATCH}, ${^POSTMATCH} and ${^MATCH}, as well as the
+numbered capture groups (C<$1>, C<$2>, ...).
+
+The C<paren> parameter will be C<1> for C<$1>, C<2> for C<$2> and so
+forth, and have these symbolic values for the special variables:
+
+    ${^PREMATCH}  RX_BUFF_IDX_CARET_PREMATCH
+    ${^POSTMATCH} RX_BUFF_IDX_CARET_POSTMATCH
+    ${^MATCH}     RX_BUFF_IDX_CARET_FULLMATCH
+    $`            RX_BUFF_IDX_PREMATCH
+    $'            RX_BUFF_IDX_POSTMATCH
+    $&            RX_BUFF_IDX_FULLMATCH
+
+Note that in Perl 5.17.3 and earlier, the last three constants were also
+used for the caret variants of the variables.
+
+
+The names have been chosen by analogy with L<Tie::Scalar> methods
+names with an additional B<LENGTH> callback for efficiency.  However
+named capture variables are currently not tied internally but
+implemented via magic.
+
+=head3 numbered_buff_FETCH
+
+    void numbered_buff_FETCH(pTHX_ REGEXP * const rx, const I32 paren,
+                             SV * const sv);
+
+Fetch a specified numbered capture.  C<sv> should be set to the scalar
+to return, the scalar is passed as an argument rather than being
+returned from the function because when it's called Perl already has a
+scalar to store the value, creating another one would be
+redundant.  The scalar can be set with C<sv_setsv>, C<sv_setpvn> and
+friends, see L<perlapi>.
+
+This callback is where Perl untaints its own capture variables under
+taint mode (see L<perlsec>).  See the C<Perl_reg_numbered_buff_fetch>
+function in F<regcomp.c> for how to untaint capture variables if
+that's something you'd like your engine to do as well.
+
+=head3 numbered_buff_STORE
+
+    void    (*numbered_buff_STORE) (pTHX_
+                                    REGEXP * const rx,
+                                    const I32 paren,
+                                    SV const * const value);
+
+Set the value of a numbered capture variable.  C<value> is the scalar
+that is to be used as the new value.  It's up to the engine to make
+sure this is used as the new value (or reject it).
+
+Example:
+
+    if ("ook" =~ /(o*)/) {
+        # 'paren' will be '1' and 'value' will be 'ee'
+        $1 =~ tr/o/e/;
+    }
+
+Perl's own engine will croak on any attempt to modify the capture
+variables, to do this in another engine use the following callback
+(copied from C<Perl_reg_numbered_buff_store>):
+
+    void
+    Example_reg_numbered_buff_store(pTHX_
+                                    REGEXP * const rx,
+                                    const I32 paren,
+                                    SV const * const value)
+    {
+        PERL_UNUSED_ARG(rx);
+        PERL_UNUSED_ARG(paren);
+        PERL_UNUSED_ARG(value);
+
+        if (!PL_localizing)
+            Perl_croak(aTHX_ PL_no_modify);
+    }
+
+Actually Perl will not I<always> croak in a statement that looks
+like it would modify a numbered capture variable.  This is because the
+STORE callback will not be called if Perl can determine that it
+doesn't have to modify the value.  This is exactly how tied variables
+behave in the same situation:
+
+    package CaptureVar;
+    use parent 'Tie::Scalar';
+
+    sub TIESCALAR { bless [] }
+    sub FETCH { undef }
+    sub STORE { die "This doesn't get called" }
+
+    package main;
+
+    tie my $sv => "CaptureVar";
+    $sv =~ y/a/b/;
+
+Because C<$sv> is C<undef> when the C<y///> operator is applied to it,
+the transliteration won't actually execute and the program won't
+C<die>.  This is different to how 5.8 and earlier versions behaved
+since the capture variables were READONLY variables then; now they'll
+just die when assigned to in the default engine.
+
+=head3 numbered_buff_LENGTH
+
+    I32 numbered_buff_LENGTH (pTHX_
+                              REGEXP * const rx,
+                              const SV * const sv,
+                              const I32 paren);
+
+Get the C<length> of a capture variable.  There's a special callback
+for this so that Perl doesn't have to do a FETCH and run C<length> on
+the result, since the length is (in Perl's case) known from an offset
+stored in C<< rx->offs >>, this is much more efficient:
+
+    I32 s1  = rx->offs[paren].start;
+    I32 s2  = rx->offs[paren].end;
+    I32 len = t1 - s1;
+
+This is a little bit more complex in the case of UTF-8, see what
+C<Perl_reg_numbered_buff_length> does with
+L<is_utf8_string_loclen|perlapi/is_utf8_string_loclen>.
+
+=head2 Named capture callbacks
+
+Called to get/set the value of C<%+> and C<%->, as well as by some
+utility functions in L<re>.
+
+There are two callbacks, C<named_buff> is called in all the cases the
+FETCH, STORE, DELETE, CLEAR, EXISTS and SCALAR L<Tie::Hash> callbacks
+would be on changes to C<%+> and C<%-> and C<named_buff_iter> in the
+same cases as FIRSTKEY and NEXTKEY.
+
+The C<flags> parameter can be used to determine which of these
+operations the callbacks should respond to.  The following flags are
+currently defined:
+
+Which L<Tie::Hash> operation is being performed from the Perl level on
+C<%+> or C<%+>, if any:
+
+    RXapif_FETCH
+    RXapif_STORE
+    RXapif_DELETE
+    RXapif_CLEAR
+    RXapif_EXISTS
+    RXapif_SCALAR
+    RXapif_FIRSTKEY
+    RXapif_NEXTKEY
+
+If C<%+> or C<%-> is being operated on, if any.
+
+    RXapif_ONE /* %+ */
+    RXapif_ALL /* %- */
+
+If this is being called as C<re::regname>, C<re::regnames> or
+C<re::regnames_count>, if any.  The first two will be combined with
+C<RXapif_ONE> or C<RXapif_ALL>.
+
+    RXapif_REGNAME
+    RXapif_REGNAMES
+    RXapif_REGNAMES_COUNT
+
+Internally C<%+> and C<%-> are implemented with a real tied interface
+via L<Tie::Hash::NamedCapture>.  The methods in that package will call
+back into these functions.  However the usage of
+L<Tie::Hash::NamedCapture> for this purpose might change in future
+releases.  For instance this might be implemented by magic instead
+(would need an extension to mgvtbl).
+
+=head3 named_buff
+
+    SV*     (*named_buff) (pTHX_ REGEXP * const rx, SV * const key,
+                           SV * const value, U32 flags);
+
+=head3 named_buff_iter
+
+    SV*     (*named_buff_iter) (pTHX_
+                                REGEXP * const rx,
+                                const SV * const lastkey,
+                                const U32 flags);
+
+=head2 qr_package
+
+    SV* qr_package(pTHX_ REGEXP * const rx);
+
+The package the qr// magic object is blessed into (as seen by C<ref
+qr//>).  It is recommended that engines change this to their package
+name for identification regardless of if they implement methods
+on the object.
+
+The package this method returns should also have the internal
+C<Regexp> package in its C<@ISA>.  C<< qr//->isa("Regexp") >> should always
+be true regardless of what engine is being used.
+
+Example implementation might be:
+
+    SV*
+    Example_qr_package(pTHX_ REGEXP * const rx)
+    {
+    	PERL_UNUSED_ARG(rx);
+    	return newSVpvs("re::engine::Example");
+    }
+
+Any method calls on an object created with C<qr//> will be dispatched to the
+package as a normal object.
+
+    use re::engine::Example;
+    my $re = qr//;
+    $re->meth; # dispatched to re::engine::Example::meth()
+
+To retrieve the C<REGEXP> object from the scalar in an XS function use
+the C<SvRX> macro, see L<"REGEXP Functions" in perlapi|perlapi/REGEXP
+Functions>.
+
+    void meth(SV * rv)
+    PPCODE:
+        REGEXP * re = SvRX(sv);
+
+=head2 dupe
+
+    void* dupe(pTHX_ REGEXP * const rx, CLONE_PARAMS *param);
+
+On threaded builds a regexp may need to be duplicated so that the pattern
+can be used by multiple threads.  This routine is expected to handle the
+duplication of any private data pointed to by the C<pprivate> member of
+the C<regexp> structure.  It will be called with the preconstructed new
+C<regexp> structure as an argument, the C<pprivate> member will point at
+the B<old> private structure, and it is this routine's responsibility to
+construct a copy and return a pointer to it (which Perl will then use to
+overwrite the field as passed to this routine.)
+
+This allows the engine to dupe its private data but also if necessary
+modify the final structure if it really must.
+
+On unthreaded builds this field doesn't exist.
+
+=head2 op_comp
+
+This is private to the Perl core and subject to change. Should be left
+null.
+
+=head1 The REGEXP structure
+
+The REGEXP struct is defined in F<regexp.h>.
+All regex engines must be able to
+correctly build such a structure in their L</comp> routine.
+
+The REGEXP structure contains all the data that Perl needs to be aware of
+to properly work with the regular expression.  It includes data about
+optimisations that Perl can use to determine if the regex engine should
+really be used, and various other control info that is needed to properly
+execute patterns in various contexts, such as if the pattern anchored in
+some way, or what flags were used during the compile, or if the
+program contains special constructs that Perl needs to be aware of.
+
+In addition it contains two fields that are intended for the private
+use of the regex engine that compiled the pattern.  These are the
+C<intflags> and C<pprivate> members.  C<pprivate> is a void pointer to
+an arbitrary structure, whose use and management is the responsibility
+of the compiling engine.  Perl will never modify either of these
+values.
+
+    typedef struct regexp {
+        /* what engine created this regexp? */
+        const struct regexp_engine* engine;
+
+        /* what re is this a lightweight copy of? */
+        struct regexp* mother_re;
+
+        /* Information about the match that the Perl core uses to manage
+         * things */
+        U32 extflags;   /* Flags used both externally and internally */
+	I32 minlen;	/* mininum possible number of chars in */
+                           string to match */
+	I32 minlenret;	/* mininum possible number of chars in $& */
+        U32 gofs;       /* chars left of pos that we search from */
+
+        /* substring data about strings that must appear
+           in the final match, used for optimisations */
+        struct reg_substr_data *substrs;
+
+        U32 nparens;  /* number of capture groups */
+
+        /* private engine specific data */
+        U32 intflags;   /* Engine Specific Internal flags */
+        void *pprivate; /* Data private to the regex engine which 
+                           created this object. */
+
+        /* Data about the last/current match. These are modified during
+         * matching*/
+        U32 lastparen;            /* highest close paren matched ($+) */
+        U32 lastcloseparen;       /* last close paren matched ($^N) */
+        regexp_paren_pair *swap;  /* Swap copy of *offs */
+        regexp_paren_pair *offs;  /* Array of offsets for (@-) and
+                                     (@+) */
+
+        char *subbeg;  /* saved or original string so \digit works
+                          forever. */
+        SV_SAVED_COPY  /* If non-NULL, SV which is COW from original */
+        I32 sublen;    /* Length of string pointed by subbeg */
+        I32 suboffset;	/* byte offset of subbeg from logical start of
+                           str */
+	I32 subcoffset;	/* suboffset equiv, but in chars (for @-/@+) */
+
+        /* Information about the match that isn't often used */
+        I32 prelen;           /* length of precomp */
+        const char *precomp;  /* pre-compilation regular expression */
+
+        char *wrapped;  /* wrapped version of the pattern */
+        I32 wraplen;    /* length of wrapped */
+
+        I32 seen_evals;   /* number of eval groups in the pattern - for
+                             security checks */
+        HV *paren_names;  /* Optional hash of paren names */
+
+        /* Refcount of this regexp */
+        I32 refcnt;             /* Refcount of this regexp */
+    } regexp;
+
+The fields are discussed in more detail below:
+
+=head2 C<engine>
+
+This field points at a C<regexp_engine> structure which contains pointers
+to the subroutines that are to be used for performing a match.  It
+is the compiling routine's responsibility to populate this field before
+returning the regexp object.
+
+Internally this is set to C<NULL> unless a custom engine is specified in
+C<$^H{regcomp}>, Perl's own set of callbacks can be accessed in the struct
+pointed to by C<RE_ENGINE_PTR>.
+
+=head2 C<mother_re>
+
+TODO, see L<http://www.mail-archive.com/perl5-changes@perl.org/msg17328.html>
+
+=head2 C<extflags>
+
+This will be used by Perl to see what flags the regexp was compiled
+with, this will normally be set to the value of the flags parameter by
+the L<comp|/comp> callback.  See the L<comp|/comp> documentation for
+valid flags.
+
+=head2 C<minlen> C<minlenret>
+
+The minimum string length (in characters) required for the pattern to match.
+This is used to
+prune the search space by not bothering to match any closer to the end of a
+string than would allow a match.  For instance there is no point in even
+starting the regex engine if the minlen is 10 but the string is only 5
+characters long.  There is no way that the pattern can match.
+
+C<minlenret> is the minimum length (in characters) of the string that would
+be found in $& after a match.
+
+The difference between C<minlen> and C<minlenret> can be seen in the
+following pattern:
+
+    /ns(?=\d)/
+
+where the C<minlen> would be 3 but C<minlenret> would only be 2 as the \d is
+required to match but is not actually
+included in the matched content.  This
+distinction is particularly important as the substitution logic uses the
+C<minlenret> to tell if it can do in-place substitutions (these can
+result in considerable speed-up).
+
+=head2 C<gofs>
+
+Left offset from pos() to start match at.
+
+=head2 C<substrs>
+
+Substring data about strings that must appear in the final match.  This
+is currently only used internally by Perl's engine, but might be
+used in the future for all engines for optimisations.
+
+=head2 C<nparens>, C<lastparen>, and C<lastcloseparen>
+
+These fields are used to keep track of how many paren groups could be matched
+in the pattern, which was the last open paren to be entered, and which was
+the last close paren to be entered.
+
+=head2 C<intflags>
+
+The engine's private copy of the flags the pattern was compiled with. Usually
+this is the same as C<extflags> unless the engine chose to modify one of them.
+
+=head2 C<pprivate>
+
+A void* pointing to an engine-defined
+data structure.  The Perl engine uses the
+C<regexp_internal> structure (see L<perlreguts/Base Structures>) but a custom
+engine should use something else.
+
+=head2 C<swap>
+
+Unused.  Left in for compatibility with Perl 5.10.0.
+
+=head2 C<offs>
+
+A C<regexp_paren_pair> structure which defines offsets into the string being
+matched which correspond to the C<$&> and C<$1>, C<$2> etc. captures, the
+C<regexp_paren_pair> struct is defined as follows:
+
+    typedef struct regexp_paren_pair {
+        I32 start;
+        I32 end;
+    } regexp_paren_pair;
+
+If C<< ->offs[num].start >> or C<< ->offs[num].end >> is C<-1> then that
+capture group did not match.
+C<< ->offs[0].start/end >> represents C<$&> (or
+C<${^MATCH}> under C<//p>) and C<< ->offs[paren].end >> matches C<$$paren> where
+C<$paren >= 1>.
+
+=head2 C<precomp> C<prelen>
+
+Used for optimisations.  C<precomp> holds a copy of the pattern that
+was compiled and C<prelen> its length.  When a new pattern is to be
+compiled (such as inside a loop) the internal C<regcomp> operator
+checks if the last compiled C<REGEXP>'s C<precomp> and C<prelen>
+are equivalent to the new one, and if so uses the old pattern instead
+of compiling a new one.
+
+The relevant snippet from C<Perl_pp_regcomp>:
+
+	if (!re || !re->precomp || re->prelen != (I32)len ||
+	    memNE(re->precomp, t, len))
+        /* Compile a new pattern */
+
+=head2 C<paren_names>
+
+This is a hash used internally to track named capture groups and their
+offsets.  The keys are the names of the buffers the values are dualvars,
+with the IV slot holding the number of buffers with the given name and the
+pv being an embedded array of I32.  The values may also be contained
+independently in the data array in cases where named backreferences are
+used.
+
+=head2 C<substrs>
+
+Holds information on the longest string that must occur at a fixed
+offset from the start of the pattern, and the longest string that must
+occur at a floating offset from the start of the pattern.  Used to do
+Fast-Boyer-Moore searches on the string to find out if its worth using
+the regex engine at all, and if so where in the string to search.
+
+=head2 C<subbeg> C<sublen> C<saved_copy> C<suboffset> C<subcoffset>
+
+Used during the execution phase for managing search and replace patterns,
+and for providing the text for C<$&>, C<$1> etc. C<subbeg> points to a
+buffer (either the original string, or a copy in the case of
+C<RX_MATCH_COPIED(rx)>), and C<sublen> is the length of the buffer.  The
+C<RX_OFFS> start and end indices index into this buffer.
+
+In the presence of the C<REXEC_COPY_STR> flag, but with the addition of
+the C<REXEC_COPY_SKIP_PRE> or C<REXEC_COPY_SKIP_POST> flags, an engine
+can choose not to copy the full buffer (although it must still do so in
+the presence of C<RXf_PMf_KEEPCOPY> or the relevant bits being set in
+C<PL_sawampersand>).  In this case, it may set C<suboffset> to indicate the
+number of bytes from the logical start of the buffer to the physical start
+(i.e. C<subbeg>).  It should also set C<subcoffset>, the number of
+characters in the offset. The latter is needed to support C<@-> and C<@+>
+which work in characters, not bytes.
+
+=head2 C<wrapped> C<wraplen>
+
+Stores the string C<qr//> stringifies to. The Perl engine for example
+stores C<(?^:eek)> in the case of C<qr/eek/>.
+
+When using a custom engine that doesn't support the C<(?:)> construct
+for inline modifiers, it's probably best to have C<qr//> stringify to
+the supplied pattern, note that this will create undesired patterns in
+cases such as:
+
+    my $x = qr/a|b/;  # "a|b"
+    my $y = qr/c/i;   # "c"
+    my $z = qr/$x$y/; # "a|bc"
+
+There's no solution for this problem other than making the custom
+engine understand a construct like C<(?:)>.
+
+=head2 C<seen_evals>
+
+This stores the number of eval groups in
+the pattern.  This is used for security
+purposes when embedding compiled regexes into larger patterns with C<qr//>.
+
+=head2 C<refcnt>
+
+The number of times the structure is referenced.  When
+this falls to 0, the regexp is automatically freed
+by a call to pregfree.  This should be set to 1 in
+each engine's L</comp> routine.
+
+=head1 HISTORY
+
+Originally part of L<perlreguts>.
+
+=head1 AUTHORS
+
+Originally written by Yves Orton, expanded by E<AElig>var ArnfjE<ouml>rE<eth>
+Bjarmason.
+
+=head1 LICENSE
+
+Copyright 2006 Yves Orton and 2007 E<AElig>var ArnfjE<ouml>rE<eth> Bjarmason.
+
+This program is free software; you can redistribute it and/or modify it under
+the same terms as Perl itself.
+
+=cut
diff --git a/lib/5.24.1/pod/perlrebackslash.pod b/lib/5.24.1/pod/perlrebackslash.pod
new file mode 100644
index 00000000..3df9bd2e
--- /dev/null
+++ b/lib/5.24.1/pod/perlrebackslash.pod
@@ -0,0 +1,774 @@
+=head1 NAME
+
+perlrebackslash - Perl Regular Expression Backslash Sequences and Escapes
+
+=head1 DESCRIPTION
+
+The top level documentation about Perl regular expressions
+is found in L<perlre>.
+
+This document describes all backslash and escape sequences. After
+explaining the role of the backslash, it lists all the sequences that have
+a special meaning in Perl regular expressions (in alphabetical order),
+then describes each of them.
+
+Most sequences are described in detail in different documents; the primary
+purpose of this document is to have a quick reference guide describing all
+backslash and escape sequences.
+
+=head2 The backslash
+
+In a regular expression, the backslash can perform one of two tasks:
+it either takes away the special meaning of the character following it
+(for instance, C<\|> matches a vertical bar, it's not an alternation),
+or it is the start of a backslash or escape sequence.
+
+The rules determining what it is are quite simple: if the character
+following the backslash is an ASCII punctuation (non-word) character (that is,
+anything that is not a letter, digit, or underscore), then the backslash just
+takes away any special meaning of the character following it.
+
+If the character following the backslash is an ASCII letter or an ASCII digit,
+then the sequence may be special; if so, it's listed below. A few letters have
+not been used yet, so escaping them with a backslash doesn't change them to be
+special.  A future version of Perl may assign a special meaning to them, so if
+you have warnings turned on, Perl issues a warning if you use such a
+sequence.  [1].
+
+It is however guaranteed that backslash or escape sequences never have a
+punctuation character following the backslash, not now, and not in a future
+version of Perl 5. So it is safe to put a backslash in front of a non-word
+character.
+
+Note that the backslash itself is special; if you want to match a backslash,
+you have to escape the backslash with a backslash: C</\\/> matches a single
+backslash.
+
+=over 4
+
+=item [1]
+
+There is one exception. If you use an alphanumeric character as the
+delimiter of your pattern (which you probably shouldn't do for readability
+reasons), you have to escape the delimiter if you want to match
+it. Perl won't warn then. See also L<perlop/Gory details of parsing
+quoted constructs>.
+
+=back
+
+
+=head2 All the sequences and escapes
+
+Those not usable within a bracketed character class (like C<[\da-z]>) are marked
+as C<Not in [].>
+
+ \000              Octal escape sequence.  See also \o{}.
+ \1                Absolute backreference.  Not in [].
+ \a                Alarm or bell.
+ \A                Beginning of string.  Not in [].
+ \b{}, \b          Boundary. (\b is a backspace in []).
+ \B{}, \B          Not a boundary.  Not in [].
+ \cX               Control-X.
+ \d                Character class for digits.
+ \D                Character class for non-digits.
+ \e                Escape character.
+ \E                Turn off \Q, \L and \U processing.  Not in [].
+ \f                Form feed.
+ \F                Foldcase till \E.  Not in [].
+ \g{}, \g1         Named, absolute or relative backreference.
+                   Not in [].
+ \G                Pos assertion.  Not in [].
+ \h                Character class for horizontal whitespace.
+ \H                Character class for non horizontal whitespace.
+ \k{}, \k<>, \k''  Named backreference.  Not in [].
+ \K                Keep the stuff left of \K.  Not in [].
+ \l                Lowercase next character.  Not in [].
+ \L                Lowercase till \E.  Not in [].
+ \n                (Logical) newline character.
+ \N                Any character but newline.  Not in [].
+ \N{}              Named or numbered (Unicode) character or sequence.
+ \o{}              Octal escape sequence.
+ \p{}, \pP         Character with the given Unicode property.
+ \P{}, \PP         Character without the given Unicode property.
+ \Q                Quote (disable) pattern metacharacters till \E.  Not
+                   in [].
+ \r                Return character.
+ \R                Generic new line.  Not in [].
+ \s                Character class for whitespace.
+ \S                Character class for non whitespace.
+ \t                Tab character.
+ \u                Titlecase next character.  Not in [].
+ \U                Uppercase till \E.  Not in [].
+ \v                Character class for vertical whitespace.
+ \V                Character class for non vertical whitespace.
+ \w                Character class for word characters.
+ \W                Character class for non-word characters.
+ \x{}, \x00        Hexadecimal escape sequence.
+ \X                Unicode "extended grapheme cluster".  Not in [].
+ \z                End of string.  Not in [].
+ \Z                End of string.  Not in [].
+
+=head2 Character Escapes
+
+=head3  Fixed characters
+
+A handful of characters have a dedicated I<character escape>. The following
+table shows them, along with their ASCII code points (in decimal and hex),
+their ASCII name, the control escape on ASCII platforms and a short
+description.  (For EBCDIC platforms, see L<perlebcdic/OPERATOR DIFFERENCES>.)
+
+ Seq.  Code Point  ASCII   Cntrl   Description.
+       Dec    Hex
+  \a     7     07    BEL    \cG    alarm or bell
+  \b     8     08     BS    \cH    backspace [1]
+  \e    27     1B    ESC    \c[    escape character
+  \f    12     0C     FF    \cL    form feed
+  \n    10     0A     LF    \cJ    line feed [2]
+  \r    13     0D     CR    \cM    carriage return
+  \t     9     09    TAB    \cI    tab
+
+=over 4
+
+=item [1]
+
+C<\b> is the backspace character only inside a character class. Outside a
+character class, C<\b> alone is a word-character/non-word-character
+boundary, and C<\b{}> is some other type of boundary.
+
+=item [2]
+
+C<\n> matches a logical newline. Perl converts between C<\n> and your
+OS's native newline character when reading from or writing to text files.
+
+=back
+
+=head4 Example
+
+ $str =~ /\t/;   # Matches if $str contains a (horizontal) tab.
+
+=head3 Control characters
+
+C<\c> is used to denote a control character; the character following C<\c>
+determines the value of the construct.  For example the value of C<\cA> is
+C<chr(1)>, and the value of C<\cb> is C<chr(2)>, etc.
+The gory details are in L<perlop/"Regexp Quote-Like Operators">.  A complete
+list of what C<chr(1)>, etc. means for ASCII and EBCDIC platforms is in
+L<perlebcdic/OPERATOR DIFFERENCES>.
+
+Note that C<\c\> alone at the end of a regular expression (or doubled-quoted
+string) is not valid.  The backslash must be followed by another character.
+That is, C<\c\I<X>> means C<chr(28) . 'I<X>'> for all characters I<X>.
+
+To write platform-independent code, you must use C<\N{I<NAME>}> instead, like
+C<\N{ESCAPE}> or C<\N{U+001B}>, see L<charnames>.
+
+Mnemonic: I<c>ontrol character.
+
+=head4 Example
+
+ $str =~ /\cK/;  # Matches if $str contains a vertical tab (control-K).
+
+=head3 Named or numbered characters and character sequences
+
+Unicode characters have a Unicode name and numeric code point (ordinal)
+value.  Use the
+C<\N{}> construct to specify a character by either of these values.
+Certain sequences of characters also have names.
+
+To specify by name, the name of the character or character sequence goes
+between the curly braces.
+
+To specify a character by Unicode code point, use the form C<\N{U+I<code
+point>}>, where I<code point> is a number in hexadecimal that gives the
+code point that Unicode has assigned to the desired character.  It is
+customary but not required to use leading zeros to pad the number to 4
+digits.  Thus C<\N{U+0041}> means C<LATIN CAPITAL LETTER A>, and you will
+rarely see it written without the two leading zeros.  C<\N{U+0041}> means
+"A" even on EBCDIC machines (where the ordinal value of "A" is not 0x41).
+
+It is even possible to give your own names to characters and character
+sequences.  For details, see L<charnames>.
+
+(There is an expanded internal form that you may see in debug output:
+C<\N{U+I<code point>.I<code point>...}>.
+The C<...> means any number of these I<code point>s separated by dots.
+This represents the sequence formed by the characters.  This is an internal
+form only, subject to change, and you should not try to use it yourself.)
+
+Mnemonic: I<N>amed character.
+
+Note that a character or character sequence expressed as a named
+or numbered character is considered a character without special
+meaning by the regex engine, and will match "as is".
+
+=head4 Example
+
+ $str =~ /\N{THAI CHARACTER SO SO}/;  # Matches the Thai SO SO character
+
+ use charnames 'Cyrillic';            # Loads Cyrillic names.
+ $str =~ /\N{ZHE}\N{KA}/;             # Match "ZHE" followed by "KA".
+
+=head3 Octal escapes
+
+There are two forms of octal escapes.  Each is used to specify a character by
+its code point specified in octal notation.
+
+One form, available starting in Perl 5.14 looks like C<\o{...}>, where the dots
+represent one or more octal digits.  It can be used for any Unicode character.
+
+It was introduced to avoid the potential problems with the other form,
+available in all Perls.  That form consists of a backslash followed by three
+octal digits.  One problem with this form is that it can look exactly like an
+old-style backreference (see
+L</Disambiguation rules between old-style octal escapes and backreferences>
+below.)  You can avoid this by making the first of the three digits always a
+zero, but that makes \077 the largest code point specifiable.
+
+In some contexts, a backslash followed by two or even one octal digits may be
+interpreted as an octal escape, sometimes with a warning, and because of some
+bugs, sometimes with surprising results.  Also, if you are creating a regex
+out of smaller snippets concatenated together, and you use fewer than three
+digits, the beginning of one snippet may be interpreted as adding digits to the
+ending of the snippet before it.  See L</Absolute referencing> for more
+discussion and examples of the snippet problem.
+
+Note that a character expressed as an octal escape is considered
+a character without special meaning by the regex engine, and will match
+"as is".
+
+To summarize, the C<\o{}> form is always safe to use, and the other form is
+safe to use for code points through \077 when you use exactly three digits to
+specify them.
+
+Mnemonic: I<0>ctal or I<o>ctal.
+
+=head4 Examples (assuming an ASCII platform)
+
+ $str = "Perl";
+ $str =~ /\o{120}/;  # Match, "\120" is "P".
+ $str =~ /\120/;     # Same.
+ $str =~ /\o{120}+/; # Match, "\120" is "P",
+                     # it's repeated at least once.
+ $str =~ /\120+/;    # Same.
+ $str =~ /P\053/;    # No match, "\053" is "+" and taken literally.
+ /\o{23073}/         # Black foreground, white background smiling face.
+ /\o{4801234567}/    # Raises a warning, and yields chr(4).
+
+=head4 Disambiguation rules between old-style octal escapes and backreferences
+
+Octal escapes of the C<\000> form outside of bracketed character classes
+potentially clash with old-style backreferences (see L</Absolute referencing>
+below).  They both consist of a backslash followed by numbers.  So Perl has to
+use heuristics to determine whether it is a backreference or an octal escape.
+Perl uses the following rules to disambiguate:
+
+=over 4
+
+=item 1
+
+If the backslash is followed by a single digit, it's a backreference.
+
+=item 2
+
+If the first digit following the backslash is a 0, it's an octal escape.
+
+=item 3
+
+If the number following the backslash is N (in decimal), and Perl already
+has seen N capture groups, Perl considers this a backreference.  Otherwise,
+it considers it an octal escape. If N has more than three digits, Perl
+takes only the first three for the octal escape; the rest are matched as is.
+
+ my $pat  = "(" x 999;
+    $pat .= "a";
+    $pat .= ")" x 999;
+ /^($pat)\1000$/;   #  Matches 'aa'; there are 1000 capture groups.
+ /^$pat\1000$/;     #  Matches 'a@0'; there are 999 capture groups
+                    #  and \1000 is seen as \100 (a '@') and a '0'.
+
+=back
+
+You can force a backreference interpretation always by using the C<\g{...}>
+form.  You can the force an octal interpretation always by using the C<\o{...}>
+form, or for numbers up through \077 (= 63 decimal), by using three digits,
+beginning with a "0".
+
+=head3 Hexadecimal escapes
+
+Like octal escapes, there are two forms of hexadecimal escapes, but both start
+with the sequence C<\x>.  This is followed by either exactly two hexadecimal
+digits forming a number, or a hexadecimal number of arbitrary length surrounded
+by curly braces. The hexadecimal number is the code point of the character you
+want to express.
+
+Note that a character expressed as one of these escapes is considered a
+character without special meaning by the regex engine, and will match
+"as is".
+
+Mnemonic: heI<x>adecimal.
+
+=head4 Examples (assuming an ASCII platform)
+
+ $str = "Perl";
+ $str =~ /\x50/;    # Match, "\x50" is "P".
+ $str =~ /\x50+/;   # Match, "\x50" is "P", it is repeated at least once
+ $str =~ /P\x2B/;   # No match, "\x2B" is "+" and taken literally.
+
+ /\x{2603}\x{2602}/ # Snowman with an umbrella.
+                    # The Unicode character 2603 is a snowman,
+                    # the Unicode character 2602 is an umbrella.
+ /\x{263B}/         # Black smiling face.
+ /\x{263b}/         # Same, the hex digits A - F are case insensitive.
+
+=head2 Modifiers
+
+A number of backslash sequences have to do with changing the character,
+or characters following them. C<\l> will lowercase the character following
+it, while C<\u> will uppercase (or, more accurately, titlecase) the
+character following it. They provide functionality similar to the
+functions C<lcfirst> and C<ucfirst>.
+
+To uppercase or lowercase several characters, one might want to use
+C<\L> or C<\U>, which will lowercase/uppercase all characters following
+them, until either the end of the pattern or the next occurrence of
+C<\E>, whichever comes first. They provide functionality similar to what
+the functions C<lc> and C<uc> provide.
+
+C<\Q> is used to quote (disable) pattern metacharacters, up to the next
+C<\E> or the end of the pattern. C<\Q> adds a backslash to any character
+that could have special meaning to Perl.  In the ASCII range, it quotes
+every character that isn't a letter, digit, or underscore.  See
+L<perlfunc/quotemeta> for details on what gets quoted for non-ASCII
+code points.  Using this ensures that any character between C<\Q> and
+C<\E> will be matched literally, not interpreted as a metacharacter by
+the regex engine.
+
+C<\F> can be used to casefold all characters following, up to the next C<\E>
+or the end of the pattern. It provides the functionality similar to
+the C<fc> function.
+
+Mnemonic: I<L>owercase, I<U>ppercase, I<F>old-case, I<Q>uotemeta, I<E>nd.
+
+=head4 Examples
+
+ $sid     = "sid";
+ $greg    = "GrEg";
+ $miranda = "(Miranda)";
+ $str     =~ /\u$sid/;        # Matches 'Sid'
+ $str     =~ /\L$greg/;       # Matches 'greg'
+ $str     =~ /\Q$miranda\E/;  # Matches '(Miranda)', as if the pattern
+                              #   had been written as /\(Miranda\)/
+
+=head2 Character classes
+
+Perl regular expressions have a large range of character classes. Some of
+the character classes are written as a backslash sequence. We will briefly
+discuss those here; full details of character classes can be found in
+L<perlrecharclass>.
+
+C<\w> is a character class that matches any single I<word> character
+(letters, digits, Unicode marks, and connector punctuation (like the
+underscore)).  C<\d> is a character class that matches any decimal
+digit, while the character class C<\s> matches any whitespace character.
+New in perl 5.10.0 are the classes C<\h> and C<\v> which match horizontal
+and vertical whitespace characters.
+
+The exact set of characters matched by C<\d>, C<\s>, and C<\w> varies
+depending on various pragma and regular expression modifiers.  It is
+possible to restrict the match to the ASCII range by using the C</a>
+regular expression modifier.  See L<perlrecharclass>.
+
+The uppercase variants (C<\W>, C<\D>, C<\S>, C<\H>, and C<\V>) are
+character classes that match, respectively, any character that isn't a
+word character, digit, whitespace, horizontal whitespace, or vertical
+whitespace.
+
+Mnemonics: I<w>ord, I<d>igit, I<s>pace, I<h>orizontal, I<v>ertical.
+
+=head3 Unicode classes
+
+C<\pP> (where C<P> is a single letter) and C<\p{Property}> are used to
+match a character that matches the given Unicode property; properties
+include things like "letter", or "thai character". Capitalizing the
+sequence to C<\PP> and C<\P{Property}> make the sequence match a character
+that doesn't match the given Unicode property. For more details, see
+L<perlrecharclass/Backslash sequences> and
+L<perlunicode/Unicode Character Properties>.
+
+Mnemonic: I<p>roperty.
+
+=head2 Referencing
+
+If capturing parenthesis are used in a regular expression, we can refer
+to the part of the source string that was matched, and match exactly the
+same thing. There are three ways of referring to such I<backreference>:
+absolutely, relatively, and by name.
+
+=for later add link to perlrecapture
+
+=head3 Absolute referencing
+
+Either C<\gI<N>> (starting in Perl 5.10.0), or C<\I<N>> (old-style) where I<N>
+is a positive (unsigned) decimal number of any length is an absolute reference
+to a capturing group.
+
+I<N> refers to the Nth set of parentheses, so C<\gI<N>> refers to whatever has
+been matched by that set of parentheses.  Thus C<\g1> refers to the first
+capture group in the regex.
+
+The C<\gI<N>> form can be equivalently written as C<\g{I<N>}>
+which avoids ambiguity when building a regex by concatenating shorter
+strings.  Otherwise if you had a regex C<qr/$a$b/>, and C<$a> contained
+C<"\g1">, and C<$b> contained C<"37">, you would get C</\g137/> which is
+probably not what you intended.
+
+In the C<\I<N>> form, I<N> must not begin with a "0", and there must be at
+least I<N> capturing groups, or else I<N> is considered an octal escape
+(but something like C<\18> is the same as C<\0018>; that is, the octal escape
+C<"\001"> followed by a literal digit C<"8">).
+
+Mnemonic: I<g>roup.
+
+=head4 Examples
+
+ /(\w+) \g1/;    # Finds a duplicated word, (e.g. "cat cat").
+ /(\w+) \1/;     # Same thing; written old-style.
+ /(.)(.)\g2\g1/;  # Match a four letter palindrome (e.g. "ABBA").
+
+
+=head3 Relative referencing
+
+C<\g-I<N>> (starting in Perl 5.10.0) is used for relative addressing.  (It can
+be written as C<\g{-I<N>>.)  It refers to the I<N>th group before the
+C<\g{-I<N>}>.
+
+The big advantage of this form is that it makes it much easier to write
+patterns with references that can be interpolated in larger patterns,
+even if the larger pattern also contains capture groups.
+
+=head4 Examples
+
+ /(A)        # Group 1
+  (          # Group 2
+    (B)      # Group 3
+    \g{-1}   # Refers to group 3 (B)
+    \g{-3}   # Refers to group 1 (A)
+  )
+ /x;         # Matches "ABBA".
+
+ my $qr = qr /(.)(.)\g{-2}\g{-1}/;  # Matches 'abab', 'cdcd', etc.
+ /$qr$qr/                           # Matches 'ababcdcd'.
+
+=head3 Named referencing
+
+C<\g{I<name>}> (starting in Perl 5.10.0) can be used to back refer to a
+named capture group, dispensing completely with having to think about capture
+buffer positions.
+
+To be compatible with .Net regular expressions, C<\g{name}> may also be
+written as C<\k{name}>, C<< \k<name> >> or C<\k'name'>.
+
+To prevent any ambiguity, I<name> must not start with a digit nor contain a
+hyphen.
+
+=head4 Examples
+
+ /(?<word>\w+) \g{word}/ # Finds duplicated word, (e.g. "cat cat")
+ /(?<word>\w+) \k{word}/ # Same.
+ /(?<word>\w+) \k<word>/ # Same.
+ /(?<letter1>.)(?<letter2>.)\g{letter2}\g{letter1}/
+                         # Match a four letter palindrome (e.g. "ABBA")
+
+=head2 Assertions
+
+Assertions are conditions that have to be true; they don't actually
+match parts of the substring. There are six assertions that are written as
+backslash sequences.
+
+=over 4
+
+=item \A
+
+C<\A> only matches at the beginning of the string. If the C</m> modifier
+isn't used, then C</\A/> is equivalent to C</^/>. However, if the C</m>
+modifier is used, then C</^/> matches internal newlines, but the meaning
+of C</\A/> isn't changed by the C</m> modifier. C<\A> matches at the beginning
+of the string regardless whether the C</m> modifier is used.
+
+=item \z, \Z
+
+C<\z> and C<\Z> match at the end of the string. If the C</m> modifier isn't
+used, then C</\Z/> is equivalent to C</$/>; that is, it matches at the
+end of the string, or one before the newline at the end of the string. If the
+C</m> modifier is used, then C</$/> matches at internal newlines, but the
+meaning of C</\Z/> isn't changed by the C</m> modifier. C<\Z> matches at
+the end of the string (or just before a trailing newline) regardless whether
+the C</m> modifier is used.
+
+C<\z> is just like C<\Z>, except that it does not match before a trailing
+newline. C<\z> matches at the end of the string only, regardless of the
+modifiers used, and not just before a newline.  It is how to anchor the
+match to the true end of the string under all conditions.
+
+=item \G
+
+C<\G> is usually used only in combination with the C</g> modifier. If the
+C</g> modifier is used and the match is done in scalar context, Perl 
+remembers where in the source string the last match ended, and the next time,
+it will start the match from where it ended the previous time.
+
+C<\G> matches the point where the previous match on that string ended, 
+or the beginning of that string if there was no previous match.
+
+=for later add link to perlremodifiers
+
+Mnemonic: I<G>lobal.
+
+=item \b{}, \b, \B{}, \B
+
+C<\b{...}>, available starting in v5.22, matches a boundary (between two
+characters, or before the first character of the string, or after the
+final character of the string) based on the Unicode rules for the
+boundary type specified inside the braces.  The boundary
+types are given a few paragraphs below.  C<\B{...}> matches at any place
+between characters where C<\b{...}> of the same type doesn't match.
+
+C<\b> when not immediately followed by a C<"{"> matches at any place
+between a word (something matched by C<\w>) and a non-word character
+(C<\W>); C<\B> when not immediately followed by a C<"{"> matches at any
+place between characters where C<\b> doesn't match.  To get better
+word matching of natural language text, see L</\b{wb}> below.
+
+C<\b>
+and C<\B> assume there's a non-word character before the beginning and after
+the end of the source string; so C<\b> will match at the beginning (or end)
+of the source string if the source string begins (or ends) with a word
+character. Otherwise, C<\B> will match.   
+
+Do not use something like C<\b=head\d\b> and expect it to match the
+beginning of a line.  It can't, because for there to be a boundary before
+the non-word "=", there must be a word character immediately previous.  
+All plain C<\b> and C<\B> boundary determinations look for word
+characters alone, not for
+non-word characters nor for string ends.  It may help to understand how
+C<\b> and C<\B> work by equating them as follows:
+
+    \b	really means	(?:(?<=\w)(?!\w)|(?<!\w)(?=\w))
+    \B	really means	(?:(?<=\w)(?=\w)|(?<!\w)(?!\w))
+
+In contrast, C<\b{...}> and C<\B{...}> may or may not match at the
+beginning and end of the line, depending on the boundary type.  These
+implement the Unicode default boundaries, specified in
+L<http://www.unicode.org/reports/tr14/> and
+L<http://www.unicode.org/reports/tr29/>.
+The boundary types are:
+
+=over
+
+=item C<\b{gcb}> or C<\b{g}>
+
+This matches a Unicode "Grapheme Cluster Boundary".  (Actually Perl
+always uses the improved "extended" grapheme cluster").  These are
+explained below under L</C<\X>>.  In fact, C<\X> is another way to get
+the same functionality.  It is equivalent to C</.+?\b{gcb}/>.  Use
+whichever is most convenient for your situation.
+
+=item C<\b{lb}>
+
+This matches according to the default Unicode Line Breaking Algorithm
+(L<http://www.unicode.org/reports/tr14/>), as customized in that
+document
+(L<Example 7 of revision 35|http://www.unicode.org/reports/tr14/tr14-35.html#Example7>)
+for better handling of numeric expressions.
+
+This is suitable for many purposes, but the L<Unicode::LineBreak> module
+is available on CPAN that provides many more features, including
+customization.
+
+=item C<\b{sb}>
+
+This matches a Unicode "Sentence Boundary".  This is an aid to parsing
+natural language sentences.  It gives good, but imperfect results.  For
+example, it thinks that "Mr. Smith" is two sentences.  More details are
+at L<http://www.unicode.org/reports/tr29/>.  Note also that it thinks
+that anything matching L</\R> (except form feed and vertical tab) is a
+sentence boundary.  C<\b{sb}> works with text designed for
+word-processors which wrap lines
+automatically for display, but hard-coded line boundaries are considered
+to be essentially the ends of text blocks (paragraphs really), and hence
+the ends of sententces.  C<\b{sb}> doesn't do well with text containing
+embedded newlines, like the source text of the document you are reading.
+Such text needs to be preprocessed to get rid of the line separators
+before looking for sentence boundaries.  Some people view this as a bug
+in the Unicode standard, and this behavior is quite subject to change in
+future Perl versions.
+
+=item C<\b{wb}>
+
+This matches a Unicode "Word Boundary", but tailored to Perl
+expectations.  This gives better (though not
+perfect) results for natural language processing than plain C<\b>
+(without braces) does.  For example, it understands that apostrophes can
+be in the middle of words and that parentheses aren't (see the examples
+below).  More details are at L<http://www.unicode.org/reports/tr29/>.
+
+The current Unicode definition of a Word Boundary matches between every
+white space character.  Perl tailors this, starting in version 5.24, to
+generally not break up spans of white space, just as plain C<\b> has
+always functioned.  This allows C<\b{wb}> to be a drop-in replacement for
+C<\b>, but with generally better results for natural language
+processing.  (The exception to this tailoring is when a span of white
+space is immediately followed by something like U+0303, COMBINING TILDE.
+If the final space character in the span is a horizontal white space, it
+is broken out so that it attaches instead to the combining character.
+To be precise, if a span of white space that ends in a horizontal space
+has the character immediately following it have either of the Word
+Boundary property values "Extend" or "Format", the boundary between the
+final horizontal space character and the rest of the span matches
+C<\b{wb}>.  In all other cases the boundary between two white space
+characters matches C<\B{wb}>.)
+
+=back
+
+It is important to realize when you use these Unicode boundaries,
+that you are taking a risk that a future version of Perl which contains
+a later version of the Unicode Standard will not work precisely the same
+way as it did when your code was written.  These rules are not
+considered stable and have been somewhat more subject to change than the
+rest of the Standard.  Unicode reserves the right to change them at
+will, and Perl reserves the right to update its implementation to
+Unicode's new rules.  In the past, some changes have been because new
+characters have been added to the Standard which have different
+characteristics than all previous characters, so new rules are
+formulated for handling them.  These should not cause any backward
+compatibility issues.  But some changes have changed the treatment of
+existing characters because the Unicode Technical Committee has decided
+that the change is warranted for whatever reason.  This could be to fix
+a bug, or because they think better results are obtained with the new
+rule.
+
+It is also important to realize that these are default boundary
+definitions, and that implementations may wish to tailor the results for
+particular purposes and locales.  For example, some languages, such as
+Japanese and Thai, require dictionary lookup to determine word
+boundaries.
+
+Mnemonic: I<b>oundary.
+
+=back
+
+=head4 Examples
+
+  "cat"   =~ /\Acat/;     # Match.
+  "cat"   =~ /cat\Z/;     # Match.
+  "cat\n" =~ /cat\Z/;     # Match.
+  "cat\n" =~ /cat\z/;     # No match.
+
+  "cat"   =~ /\bcat\b/;   # Matches.
+  "cats"  =~ /\bcat\b/;   # No match.
+  "cat"   =~ /\bcat\B/;   # No match.
+  "cats"  =~ /\bcat\B/;   # Match.
+
+  while ("cat dog" =~ /(\w+)/g) {
+      print $1;           # Prints 'catdog'
+  }
+  while ("cat dog" =~ /\G(\w+)/g) {
+      print $1;           # Prints 'cat'
+  }
+
+  my $s = "He said, \"Is pi 3.14? (I'm not sure).\"";
+  print join("|", $s =~ m/ ( .+? \b     ) /xg), "\n";
+  print join("|", $s =~ m/ ( .+? \b{wb} ) /xg), "\n";
+ prints
+  He| |said|, "|Is| |pi| |3|.|14|? (|I|'|m| |not| |sure
+  He| |said|,| |"|Is| |pi| |3.14|?| |(|I'm| |not| |sure|)|.|"
+
+=head2 Misc
+
+Here we document the backslash sequences that don't fall in one of the
+categories above. These are:
+
+=over 4
+
+=item \K
+
+This appeared in perl 5.10.0. Anything matched left of C<\K> is
+not included in C<$&>, and will not be replaced if the pattern is
+used in a substitution. This lets you write C<s/PAT1 \K PAT2/REPL/x>
+instead of C<s/(PAT1) PAT2/${1}REPL/x> or C<s/(?<=PAT1) PAT2/REPL/x>.
+
+Mnemonic: I<K>eep.
+
+=item \N
+
+This feature, available starting in v5.12,  matches any character
+that is B<not> a newline.  It is a short-hand for writing C<[^\n]>, and is
+identical to the C<.> metasymbol, except under the C</s> flag, which changes
+the meaning of C<.>, but not C<\N>.
+
+Note that C<\N{...}> can mean a
+L<named or numbered character
+|/Named or numbered characters and character sequences>.
+
+Mnemonic: Complement of I<\n>.
+
+=item \R
+X<\R>
+
+C<\R> matches a I<generic newline>; that is, anything considered a
+linebreak sequence by Unicode. This includes all characters matched by
+C<\v> (vertical whitespace), and the multi character sequence C<"\x0D\x0A">
+(carriage return followed by a line feed, sometimes called the network
+newline; it's the end of line sequence used in Microsoft text files opened
+in binary mode). C<\R> is equivalent to C<< (?>\x0D\x0A|\v) >>.  (The
+reason it doesn't backtrack is that the sequence is considered
+inseparable.  That means that
+
+ "\x0D\x0A" =~ /^\R\x0A$/   # No match
+
+fails, because the C<\R> matches the entire string, and won't backtrack
+to match just the C<"\x0D">.)  Since
+C<\R> can match a sequence of more than one character, it cannot be put
+inside a bracketed character class; C</[\R]/> is an error; use C<\v>
+instead.  C<\R> was introduced in perl 5.10.0.
+
+Note that this does not respect any locale that might be in effect; it
+matches according to the platform's native character set.
+
+Mnemonic: none really. C<\R> was picked because PCRE already uses C<\R>,
+and more importantly because Unicode recommends such a regular expression
+metacharacter, and suggests C<\R> as its notation.
+
+=item \X
+X<\X>
+
+This matches a Unicode I<extended grapheme cluster>.
+
+C<\X> matches quite well what normal (non-Unicode-programmer) usage
+would consider a single character.  As an example, consider a G with some sort
+of diacritic mark, such as an arrow.  There is no such single character in
+Unicode, but one can be composed by using a G followed by a Unicode "COMBINING
+UPWARDS ARROW BELOW", and would be displayed by Unicode-aware software as if it
+were a single character.
+
+The match is greedy and non-backtracking, so that the cluster is never
+broken up into smaller components.
+
+See also L<C<\b{gcb}>|/\b{}, \b, \B{}, \B>.
+
+Mnemonic: eI<X>tended Unicode character.
+
+=back
+
+=head4 Examples
+
+ $str =~ s/foo\Kbar/baz/g; # Change any 'bar' following a 'foo' to 'baz'
+ $str =~ s/(.)\K\g1//g;    # Delete duplicated characters.
+
+ "\n"   =~ /^\R$/;         # Match, \n   is a generic newline.
+ "\r"   =~ /^\R$/;         # Match, \r   is a generic newline.
+ "\r\n" =~ /^\R$/;         # Match, \r\n is a generic newline.
+
+ "P\x{307}" =~ /^\X$/     # \X matches a P with a dot above.
+
+=cut
diff --git a/lib/5.24.1/pod/perlrecharclass.pod b/lib/5.24.1/pod/perlrecharclass.pod
new file mode 100644
index 00000000..7f5a4ef2
--- /dev/null
+++ b/lib/5.24.1/pod/perlrecharclass.pod
@@ -0,0 +1,1186 @@
+=head1 NAME
+X<character class>
+
+perlrecharclass - Perl Regular Expression Character Classes
+
+=head1 DESCRIPTION
+
+The top level documentation about Perl regular expressions
+is found in L<perlre>.
+
+This manual page discusses the syntax and use of character
+classes in Perl regular expressions.
+
+A character class is a way of denoting a set of characters
+in such a way that one character of the set is matched.
+It's important to remember that: matching a character class
+consumes exactly one character in the source string. (The source
+string is the string the regular expression is matched against.)
+
+There are three types of character classes in Perl regular
+expressions: the dot, backslash sequences, and the form enclosed in square
+brackets.  Keep in mind, though, that often the term "character class" is used
+to mean just the bracketed form.  Certainly, most Perl documentation does that.
+
+=head2 The dot
+
+The dot (or period), C<.> is probably the most used, and certainly
+the most well-known character class. By default, a dot matches any
+character, except for the newline. That default can be changed to
+add matching the newline by using the I<single line> modifier: either
+for the entire regular expression with the C</s> modifier, or
+locally with C<(?s)>.  (The C<L</\N>> backslash sequence, described
+below, matches any character except newline without regard to the
+I<single line> modifier.)
+
+Here are some examples:
+
+ "a"  =~  /./       # Match
+ "."  =~  /./       # Match
+ ""   =~  /./       # No match (dot has to match a character)
+ "\n" =~  /./       # No match (dot does not match a newline)
+ "\n" =~  /./s      # Match (global 'single line' modifier)
+ "\n" =~  /(?s:.)/  # Match (local 'single line' modifier)
+ "ab" =~  /^.$/     # No match (dot matches one character)
+
+=head2 Backslash sequences
+X<\w> X<\W> X<\s> X<\S> X<\d> X<\D> X<\p> X<\P>
+X<\N> X<\v> X<\V> X<\h> X<\H>
+X<word> X<whitespace>
+
+A backslash sequence is a sequence of characters, the first one of which is a
+backslash.  Perl ascribes special meaning to many such sequences, and some of
+these are character classes.  That is, they match a single character each,
+provided that the character belongs to the specific set of characters defined
+by the sequence.
+
+Here's a list of the backslash sequences that are character classes.  They
+are discussed in more detail below.  (For the backslash sequences that aren't
+character classes, see L<perlrebackslash>.)
+
+ \d             Match a decimal digit character.
+ \D             Match a non-decimal-digit character.
+ \w             Match a "word" character.
+ \W             Match a non-"word" character.
+ \s             Match a whitespace character.
+ \S             Match a non-whitespace character.
+ \h             Match a horizontal whitespace character.
+ \H             Match a character that isn't horizontal whitespace.
+ \v             Match a vertical whitespace character.
+ \V             Match a character that isn't vertical whitespace.
+ \N             Match a character that isn't a newline.
+ \pP, \p{Prop}  Match a character that has the given Unicode property.
+ \PP, \P{Prop}  Match a character that doesn't have the Unicode property
+
+=head3 \N
+
+C<\N>, available starting in v5.12, like the dot, matches any
+character that is not a newline. The difference is that C<\N> is not influenced
+by the I<single line> regular expression modifier (see L</The dot> above).  Note
+that the form C<\N{...}> may mean something completely different.  When the
+C<{...}> is a L<quantifier|perlre/Quantifiers>, it means to match a non-newline
+character that many times.  For example, C<\N{3}> means to match 3
+non-newlines; C<\N{5,}> means to match 5 or more non-newlines.  But if C<{...}>
+is not a legal quantifier, it is presumed to be a named character.  See
+L<charnames> for those.  For example, none of C<\N{COLON}>, C<\N{4F}>, and
+C<\N{F4}> contain legal quantifiers, so Perl will try to find characters whose
+names are respectively C<COLON>, C<4F>, and C<F4>.
+
+=head3 Digits
+
+C<\d> matches a single character considered to be a decimal I<digit>.
+If the C</a> regular expression modifier is in effect, it matches [0-9].
+Otherwise, it
+matches anything that is matched by C<\p{Digit}>, which includes [0-9].
+(An unlikely possible exception is that under locale matching rules, the
+current locale might not have C<[0-9]> matched by C<\d>, and/or might match
+other characters whose code point is less than 256.  The only such locale
+definitions that are legal would be to match C<[0-9]> plus another set of
+10 consecutive digit characters;  anything else would be in violation of
+the C language standard, but Perl doesn't currently assume anything in
+regard to this.)
+
+What this means is that unless the C</a> modifier is in effect C<\d> not
+only matches the digits '0' - '9', but also Arabic, Devanagari, and
+digits from other languages.  This may cause some confusion, and some
+security issues.
+
+Some digits that C<\d> matches look like some of the [0-9] ones, but
+have different values.  For example, BENGALI DIGIT FOUR (U+09EA) looks
+very much like an ASCII DIGIT EIGHT (U+0038).  An application that
+is expecting only the ASCII digits might be misled, or if the match is
+C<\d+>, the matched string might contain a mixture of digits from
+different writing systems that look like they signify a number different
+than they actually do.  L<Unicode::UCD/num()> can
+be used to safely
+calculate the value, returning C<undef> if the input string contains
+such a mixture.
+
+What C<\p{Digit}> means (and hence C<\d> except under the C</a>
+modifier) is C<\p{General_Category=Decimal_Number}>, or synonymously,
+C<\p{General_Category=Digit}>.  Starting with Unicode version 4.1, this
+is the same set of characters matched by C<\p{Numeric_Type=Decimal}>.
+But Unicode also has a different property with a similar name,
+C<\p{Numeric_Type=Digit}>, which matches a completely different set of
+characters.  These characters are things such as C<CIRCLED DIGIT ONE>
+or subscripts, or are from writing systems that lack all ten digits.
+
+The design intent is for C<\d> to exactly match the set of characters
+that can safely be used with "normal" big-endian positional decimal
+syntax, where, for example 123 means one 'hundred', plus two 'tens',
+plus three 'ones'.  This positional notation does not necessarily apply
+to characters that match the other type of "digit",
+C<\p{Numeric_Type=Digit}>, and so C<\d> doesn't match them.
+
+The Tamil digits (U+0BE6 - U+0BEF) can also legally be
+used in old-style Tamil numbers in which they would appear no more than
+one in a row, separated by characters that mean "times 10", "times 100",
+etc.  (See L<http://www.unicode.org/notes/tn21>.)
+
+Any character not matched by C<\d> is matched by C<\D>.
+
+=head3 Word characters
+
+A C<\w> matches a single alphanumeric character (an alphabetic character, or a
+decimal digit); or a connecting punctuation character, such as an
+underscore ("_"); or a "mark" character (like some sort of accent) that
+attaches to one of those.  It does not match a whole word.  To match a
+whole word, use C<\w+>.  This isn't the same thing as matching an
+English word, but in the ASCII range it is the same as a string of
+Perl-identifier characters.
+
+=over
+
+=item If the C</a> modifier is in effect ...
+
+C<\w> matches the 63 characters [a-zA-Z0-9_].
+
+=item otherwise ...
+
+=over
+
+=item For code points above 255 ...
+
+C<\w> matches the same as C<\p{Word}> matches in this range.  That is,
+it matches Thai letters, Greek letters, etc.  This includes connector
+punctuation (like the underscore) which connect two words together, or
+diacritics, such as a C<COMBINING TILDE> and the modifier letters, which
+are generally used to add auxiliary markings to letters.
+
+=item For code points below 256 ...
+
+=over
+
+=item if locale rules are in effect ...
+
+C<\w> matches the platform's native underscore character plus whatever
+the locale considers to be alphanumeric.
+
+=item if Unicode rules are in effect ...
+
+C<\w> matches exactly what C<\p{Word}> matches.
+
+=item otherwise ...
+
+C<\w> matches [a-zA-Z0-9_].
+
+=back
+
+=back
+
+=back
+
+Which rules apply are determined as described in L<perlre/Which character set modifier is in effect?>.
+
+There are a number of security issues with the full Unicode list of word
+characters.  See L<http://unicode.org/reports/tr36>.
+
+Also, for a somewhat finer-grained set of characters that are in programming
+language identifiers beyond the ASCII range, you may wish to instead use the
+more customized L</Unicode Properties>, C<\p{ID_Start}>,
+C<\p{ID_Continue}>, C<\p{XID_Start}>, and C<\p{XID_Continue}>.  See
+L<http://unicode.org/reports/tr31>.
+
+Any character not matched by C<\w> is matched by C<\W>.
+
+=head3 Whitespace
+
+C<\s> matches any single character considered whitespace.
+
+=over
+
+=item If the C</a> modifier is in effect ...
+
+In all Perl versions, C<\s> matches the 5 characters [\t\n\f\r ]; that
+is, the horizontal tab,
+the newline, the form feed, the carriage return, and the space.
+Starting in Perl v5.18, it also matches the vertical tab, C<\cK>.
+See note C<[1]> below for a discussion of this.
+
+=item otherwise ...
+
+=over
+
+=item For code points above 255 ...
+
+C<\s> matches exactly the code points above 255 shown with an "s" column
+in the table below.
+
+=item For code points below 256 ...
+
+=over
+
+=item if locale rules are in effect ...
+
+C<\s> matches whatever the locale considers to be whitespace.
+
+=item if Unicode rules are in effect ...
+
+C<\s> matches exactly the characters shown with an "s" column in the
+table below.
+
+=item otherwise ...
+
+C<\s> matches [\t\n\f\r ] and, starting in Perl
+v5.18, the vertical tab, C<\cK>.
+(See note C<[1]> below for a discussion of this.)
+Note that this list doesn't include the non-breaking space.
+
+=back
+
+=back
+
+=back
+
+Which rules apply are determined as described in L<perlre/Which character set modifier is in effect?>.
+
+Any character not matched by C<\s> is matched by C<\S>.
+
+C<\h> matches any character considered horizontal whitespace;
+this includes the platform's space and tab characters and several others
+listed in the table below.  C<\H> matches any character
+not considered horizontal whitespace.  They use the platform's native
+character set, and do not consider any locale that may otherwise be in
+use.
+
+C<\v> matches any character considered vertical whitespace;
+this includes the platform's carriage return and line feed characters (newline)
+plus several other characters, all listed in the table below.
+C<\V> matches any character not considered vertical whitespace.
+They use the platform's native character set, and do not consider any
+locale that may otherwise be in use.
+
+C<\R> matches anything that can be considered a newline under Unicode
+rules. It can match a multi-character sequence. It cannot be used inside
+a bracketed character class; use C<\v> instead (vertical whitespace).
+It uses the platform's
+native character set, and does not consider any locale that may
+otherwise be in use.
+Details are discussed in L<perlrebackslash>.
+
+Note that unlike C<\s> (and C<\d> and C<\w>), C<\h> and C<\v> always match
+the same characters, without regard to other factors, such as the active
+locale or whether the source string is in UTF-8 format.
+
+One might think that C<\s> is equivalent to C<[\h\v]>. This is indeed true
+starting in Perl v5.18, but prior to that, the sole difference was that the
+vertical tab (C<"\cK">) was not matched by C<\s>.
+
+The following table is a complete listing of characters matched by
+C<\s>, C<\h> and C<\v> as of Unicode 6.3.
+
+The first column gives the Unicode code point of the character (in hex format),
+the second column gives the (Unicode) name. The third column indicates
+by which class(es) the character is matched (assuming no locale is in
+effect that changes the C<\s> matching).
+
+ 0x0009        CHARACTER TABULATION   h s
+ 0x000a              LINE FEED (LF)    vs
+ 0x000b             LINE TABULATION    vs  [1]
+ 0x000c              FORM FEED (FF)    vs
+ 0x000d        CARRIAGE RETURN (CR)    vs
+ 0x0020                       SPACE   h s
+ 0x0085             NEXT LINE (NEL)    vs  [2]
+ 0x00a0              NO-BREAK SPACE   h s  [2]
+ 0x1680            OGHAM SPACE MARK   h s
+ 0x2000                     EN QUAD   h s
+ 0x2001                     EM QUAD   h s
+ 0x2002                    EN SPACE   h s
+ 0x2003                    EM SPACE   h s
+ 0x2004          THREE-PER-EM SPACE   h s
+ 0x2005           FOUR-PER-EM SPACE   h s
+ 0x2006            SIX-PER-EM SPACE   h s
+ 0x2007                FIGURE SPACE   h s
+ 0x2008           PUNCTUATION SPACE   h s
+ 0x2009                  THIN SPACE   h s
+ 0x200a                  HAIR SPACE   h s
+ 0x2028              LINE SEPARATOR    vs
+ 0x2029         PARAGRAPH SEPARATOR    vs
+ 0x202f       NARROW NO-BREAK SPACE   h s
+ 0x205f   MEDIUM MATHEMATICAL SPACE   h s
+ 0x3000           IDEOGRAPHIC SPACE   h s
+
+=over 4
+
+=item [1]
+
+Prior to Perl v5.18, C<\s> did not match the vertical tab.
+C<[^\S\cK]> (obscurely) matches what C<\s> traditionally did.
+
+=item [2]
+
+NEXT LINE and NO-BREAK SPACE may or may not match C<\s> depending
+on the rules in effect.  See
+L<the beginning of this section|/Whitespace>.
+
+=back
+
+=head3 Unicode Properties
+
+C<\pP> and C<\p{Prop}> are character classes to match characters that fit given
+Unicode properties.  One letter property names can be used in the C<\pP> form,
+with the property name following the C<\p>, otherwise, braces are required.
+When using braces, there is a single form, which is just the property name
+enclosed in the braces, and a compound form which looks like C<\p{name=value}>,
+which means to match if the property "name" for the character has that particular
+"value".
+For instance, a match for a number can be written as C</\pN/> or as
+C</\p{Number}/>, or as C</\p{Number=True}/>.
+Lowercase letters are matched by the property I<Lowercase_Letter> which
+has the short form I<Ll>. They need the braces, so are written as C</\p{Ll}/> or
+C</\p{Lowercase_Letter}/>, or C</\p{General_Category=Lowercase_Letter}/>
+(the underscores are optional).
+C</\pLl/> is valid, but means something different.
+It matches a two character string: a letter (Unicode property C<\pL>),
+followed by a lowercase C<l>.
+
+If locale rules are not in effect, the use of
+a Unicode property will force the regular expression into using Unicode
+rules, if it isn't already.
+
+Note that almost all properties are immune to case-insensitive matching.
+That is, adding a C</i> regular expression modifier does not change what
+they match.  There are two sets that are affected.  The first set is
+C<Uppercase_Letter>,
+C<Lowercase_Letter>,
+and C<Titlecase_Letter>,
+all of which match C<Cased_Letter> under C</i> matching.
+The second set is
+C<Uppercase>,
+C<Lowercase>,
+and C<Titlecase>,
+all of which match C<Cased> under C</i> matching.
+(The difference between these sets is that some things, such as Roman
+numerals, come in both upper and lower case, so they are C<Cased>, but
+aren't considered to be letters, so they aren't C<Cased_Letter>s. They're
+actually C<Letter_Number>s.)
+This set also includes its subsets C<PosixUpper> and C<PosixLower>, both
+of which under C</i> match C<PosixAlpha>.
+
+For more details on Unicode properties, see L<perlunicode/Unicode
+Character Properties>; for a
+complete list of possible properties, see
+L<perluniprops/Properties accessible through \p{} and \P{}>,
+which notes all forms that have C</i> differences.
+It is also possible to define your own properties. This is discussed in
+L<perlunicode/User-Defined Character Properties>.
+
+Unicode properties are defined (surprise!) only on Unicode code points.
+Starting in v5.20, when matching against C<\p> and C<\P>, Perl treats
+non-Unicode code points (those above the legal Unicode maximum of
+0x10FFFF) as if they were typical unassigned Unicode code points.
+
+Prior to v5.20, Perl raised a warning and made all matches fail on
+non-Unicode code points.  This could be somewhat surprising:
+
+ chr(0x110000) =~ \p{ASCII_Hex_Digit=True}     # Fails on Perls < v5.20.
+ chr(0x110000) =~ \p{ASCII_Hex_Digit=False}    # Also fails on Perls
+                                               # < v5.20
+
+Even though these two matches might be thought of as complements, until
+v5.20 they were so only on Unicode code points.
+
+=head4 Examples
+
+ "a"  =~  /\w/      # Match, "a" is a 'word' character.
+ "7"  =~  /\w/      # Match, "7" is a 'word' character as well.
+ "a"  =~  /\d/      # No match, "a" isn't a digit.
+ "7"  =~  /\d/      # Match, "7" is a digit.
+ " "  =~  /\s/      # Match, a space is whitespace.
+ "a"  =~  /\D/      # Match, "a" is a non-digit.
+ "7"  =~  /\D/      # No match, "7" is not a non-digit.
+ " "  =~  /\S/      # No match, a space is not non-whitespace.
+
+ " "  =~  /\h/      # Match, space is horizontal whitespace.
+ " "  =~  /\v/      # No match, space is not vertical whitespace.
+ "\r" =~  /\v/      # Match, a return is vertical whitespace.
+
+ "a"  =~  /\pL/     # Match, "a" is a letter.
+ "a"  =~  /\p{Lu}/  # No match, /\p{Lu}/ matches upper case letters.
+
+ "\x{0e0b}" =~ /\p{Thai}/  # Match, \x{0e0b} is the character
+                           # 'THAI CHARACTER SO SO', and that's in
+                           # Thai Unicode class.
+ "a"  =~  /\P{Lao}/ # Match, as "a" is not a Laotian character.
+
+It is worth emphasizing that C<\d>, C<\w>, etc, match single characters, not
+complete numbers or words. To match a number (that consists of digits),
+use C<\d+>; to match a word, use C<\w+>.  But be aware of the security
+considerations in doing so, as mentioned above.
+
+=head2 Bracketed Character Classes
+
+The third form of character class you can use in Perl regular expressions
+is the bracketed character class.  In its simplest form, it lists the characters
+that may be matched, surrounded by square brackets, like this: C<[aeiou]>.
+This matches one of C<a>, C<e>, C<i>, C<o> or C<u>.  Like the other
+character classes, exactly one character is matched.* To match
+a longer string consisting of characters mentioned in the character
+class, follow the character class with a L<quantifier|perlre/Quantifiers>.  For
+instance, C<[aeiou]+> matches one or more lowercase English vowels.
+
+Repeating a character in a character class has no
+effect; it's considered to be in the set only once.
+
+Examples:
+
+ "e"  =~  /[aeiou]/        # Match, as "e" is listed in the class.
+ "p"  =~  /[aeiou]/        # No match, "p" is not listed in the class.
+ "ae" =~  /^[aeiou]$/      # No match, a character class only matches
+                           # a single character.
+ "ae" =~  /^[aeiou]+$/     # Match, due to the quantifier.
+
+ -------
+
+* There are two exceptions to a bracketed character class matching a
+single character only.  Each requires special handling by Perl to make
+things work:
+
+=over
+
+=item *
+
+When the class is to match caselessly under C</i> matching rules, and a
+character that is explicitly mentioned inside the class matches a
+multiple-character sequence caselessly under Unicode rules, the class
+will also match that sequence.  For example, Unicode says that the
+letter C<LATIN SMALL LETTER SHARP S> should match the sequence C<ss>
+under C</i> rules.  Thus,
+
+ 'ss' =~ /\A\N{LATIN SMALL LETTER SHARP S}\z/i             # Matches
+ 'ss' =~ /\A[aeioust\N{LATIN SMALL LETTER SHARP S}]\z/i    # Matches
+
+For this to happen, the class must not be inverted (see L</Negation>)
+and the character must be explicitly specified, and not be part of a
+multi-character range (not even as one of its endpoints).  (L</Character
+Ranges> will be explained shortly.) Therefore,
+
+ 'ss' =~ /\A[\0-\x{ff}]\z/ui       # Doesn't match
+ 'ss' =~ /\A[\0-\N{LATIN SMALL LETTER SHARP S}]\z/ui   # No match
+ 'ss' =~ /\A[\xDF-\xDF]\z/ui   # Matches on ASCII platforms, since
+                               # \xDF is LATIN SMALL LETTER SHARP S,
+                               # and the range is just a single
+                               # element
+
+Note that it isn't a good idea to specify these types of ranges anyway.
+
+=item *
+
+Some names known to C<\N{...}> refer to a sequence of multiple characters,
+instead of the usual single character.  When one of these is included in
+the class, the entire sequence is matched.  For example,
+
+  "\N{TAMIL LETTER KA}\N{TAMIL VOWEL SIGN AU}"
+                              =~ / ^ [\N{TAMIL SYLLABLE KAU}]  $ /x;
+
+matches, because C<\N{TAMIL SYLLABLE KAU}> is a named sequence
+consisting of the two characters matched against.  Like the other
+instance where a bracketed class can match multiple characters, and for
+similar reasons, the class must not be inverted, and the named sequence
+may not appear in a range, even one where it is both endpoints.  If
+these happen, it is a fatal error if the character class is within an
+extended L<C<(?[...])>|/Extended Bracketed Character Classes>
+class; and only the first code point is used (with
+a C<regexp>-type warning raised) otherwise.
+
+=back
+
+=head3 Special Characters Inside a Bracketed Character Class
+
+Most characters that are meta characters in regular expressions (that
+is, characters that carry a special meaning like C<.>, C<*>, or C<(>) lose
+their special meaning and can be used inside a character class without
+the need to escape them. For instance, C<[()]> matches either an opening
+parenthesis, or a closing parenthesis, and the parens inside the character
+class don't group or capture.
+
+Characters that may carry a special meaning inside a character class are:
+C<\>, C<^>, C<->, C<[> and C<]>, and are discussed below. They can be
+escaped with a backslash, although this is sometimes not needed, in which
+case the backslash may be omitted.
+
+The sequence C<\b> is special inside a bracketed character class. While
+outside the character class, C<\b> is an assertion indicating a point
+that does not have either two word characters or two non-word characters
+on either side, inside a bracketed character class, C<\b> matches a
+backspace character.
+
+The sequences
+C<\a>,
+C<\c>,
+C<\e>,
+C<\f>,
+C<\n>,
+C<\N{I<NAME>}>,
+C<\N{U+I<hex char>}>,
+C<\r>,
+C<\t>,
+and
+C<\x>
+are also special and have the same meanings as they do outside a
+bracketed character class.
+
+Also, a backslash followed by two or three octal digits is considered an octal
+number.
+
+A C<[> is not special inside a character class, unless it's the start of a
+POSIX character class (see L</POSIX Character Classes> below). It normally does
+not need escaping.
+
+A C<]> is normally either the end of a POSIX character class (see
+L</POSIX Character Classes> below), or it signals the end of the bracketed
+character class.  If you want to include a C<]> in the set of characters, you
+must generally escape it.
+
+However, if the C<]> is the I<first> (or the second if the first
+character is a caret) character of a bracketed character class, it
+does not denote the end of the class (as you cannot have an empty class)
+and is considered part of the set of characters that can be matched without
+escaping.
+
+Examples:
+
+ "+"   =~ /[+?*]/     #  Match, "+" in a character class is not special.
+ "\cH" =~ /[\b]/      #  Match, \b inside in a character class
+                      #  is equivalent to a backspace.
+ "]"   =~ /[][]/      #  Match, as the character class contains
+                      #  both [ and ].
+ "[]"  =~ /[[]]/      #  Match, the pattern contains a character class
+                      #  containing just [, and the character class is
+                      #  followed by a ].
+
+=head3 Character Ranges
+
+It is not uncommon to want to match a range of characters. Luckily, instead
+of listing all characters in the range, one may use the hyphen (C<->).
+If inside a bracketed character class you have two characters separated
+by a hyphen, it's treated as if all characters between the two were in
+the class. For instance, C<[0-9]> matches any ASCII digit, and C<[a-m]>
+matches any lowercase letter from the first half of the ASCII alphabet.
+
+Note that the two characters on either side of the hyphen are not
+necessarily both letters or both digits. Any character is possible,
+although not advisable.  C<['-?]> contains a range of characters, but
+most people will not know which characters that means.  Furthermore,
+such ranges may lead to portability problems if the code has to run on
+a platform that uses a different character set, such as EBCDIC.
+
+If a hyphen in a character class cannot syntactically be part of a range, for
+instance because it is the first or the last character of the character class,
+or if it immediately follows a range, the hyphen isn't special, and so is
+considered a character to be matched literally.  If you want a hyphen in
+your set of characters to be matched and its position in the class is such
+that it could be considered part of a range, you must escape that hyphen
+with a backslash.
+
+Examples:
+
+ [a-z]       #  Matches a character that is a lower case ASCII letter.
+ [a-fz]      #  Matches any letter between 'a' and 'f' (inclusive) or
+             #  the letter 'z'.
+ [-z]        #  Matches either a hyphen ('-') or the letter 'z'.
+ [a-f-m]     #  Matches any letter between 'a' and 'f' (inclusive), the
+             #  hyphen ('-'), or the letter 'm'.
+ ['-?]       #  Matches any of the characters  '()*+,-./0123456789:;<=>?
+             #  (But not on an EBCDIC platform).
+ [\N{APOSTROPHE}-\N{QUESTION MARK}]
+             #  Matches any of the characters  '()*+,-./0123456789:;<=>?
+             #  even on an EBCDIC platform.
+ [\N{U+27}-\N{U+3F}] # Same. (U+27 is "'", and U+3F is "?")
+
+As the final two examples above show, you can achieve portablity to
+non-ASCII platforms by using the C<\N{...}> form for the range
+endpoints.  These indicate that the specified range is to be interpreted
+using Unicode values, so C<[\N{U+27}-\N{U+3F}]> means to match
+C<\N{U+27}>, C<\N{U+28}>, C<\N{U+29}>, ..., C<\N{U+3D}>, C<\N{U+3E}>,
+and C<\N{U+3F}>, whatever the native code point versions for those are.
+These are called "Unicode" ranges.  If either end is of the C<\N{...}>
+form, the range is considered Unicode.  A C<regexp> warning is raised
+under C<S<"use re 'strict'">> if the other endpoint is specified
+non-portably:
+
+ [\N{U+00}-\x09]    # Warning under re 'strict'; \x09 is non-portable
+ [\N{U+00}-\t]      # No warning;
+
+Both of the above match the characters C<\N{U+00}> C<\N{U+01}>, ...
+C<\N{U+08}>, C<\N{U+09}>, but the C<\x09> looks like it could be a
+mistake so the warning is raised (under C<re 'strict'>) for it.
+
+Perl also guarantees that the ranges C<A-Z>, C<a-z>, C<0-9>, and any
+subranges of these match what an English-only speaker would expect them
+to match on any platform.  That is, C<[A-Z]> matches the 26 ASCII
+uppercase letters;
+C<[a-z]> matches the 26 lowercase letters; and C<[0-9]> matches the 10
+digits.  Subranges, like C<[h-k]>, match correspondingly, in this case
+just the four letters C<"h">, C<"i">, C<"j">, and C<"k">.  This is the
+natural behavior on ASCII platforms where the code points (ordinal
+values) for C<"h"> through C<"k"> are consecutive integers (0x68 through
+0x6B).  But special handling to achieve this may be needed on platforms
+with a non-ASCII native character set.  For example, on EBCDIC
+platforms, the code point for C<"h"> is 0x88, C<"i"> is 0x89, C<"j"> is
+0x91, and C<"k"> is 0x92.   Perl specially treats C<[h-k]> to exclude the
+seven code points in the gap: 0x8A through 0x90.  This special handling is
+only invoked when the range is a subrange of one of the ASCII uppercase,
+lowercase, and digit ranges, AND each end of the range is expressed
+either as a literal, like C<"A">, or as a named character (C<\N{...}>,
+including the C<\N{U+...> form).
+
+EBCDIC Examples:
+
+ [i-j]               #  Matches either "i" or "j"
+ [i-\N{LATIN SMALL LETTER J}]  # Same
+ [i-\N{U+6A}]        #  Same
+ [\N{U+69}-\N{U+6A}] #  Same
+ [\x{89}-\x{91}]     #  Matches 0x89 ("i"), 0x8A .. 0x90, 0x91 ("j")
+ [i-\x{91}]          #  Same
+ [\x{89}-j]          #  Same
+ [i-J]               #  Matches, 0x89 ("i") .. 0xC1 ("J"); special
+                     #  handling doesn't apply because range is mixed
+                     #  case
+
+=head3 Negation
+
+It is also possible to instead list the characters you do not want to
+match. You can do so by using a caret (C<^>) as the first character in the
+character class. For instance, C<[^a-z]> matches any character that is not a
+lowercase ASCII letter, which therefore includes more than a million
+Unicode code points.  The class is said to be "negated" or "inverted".
+
+This syntax make the caret a special character inside a bracketed character
+class, but only if it is the first character of the class. So if you want
+the caret as one of the characters to match, either escape the caret or
+else don't list it first.
+
+In inverted bracketed character classes, Perl ignores the Unicode rules
+that normally say that named sequence, and certain characters should
+match a sequence of multiple characters use under caseless C</i>
+matching.  Following those rules could lead to highly confusing
+situations:
+
+ "ss" =~ /^[^\xDF]+$/ui;   # Matches!
+
+This should match any sequences of characters that aren't C<\xDF> nor
+what C<\xDF> matches under C</i>.  C<"s"> isn't C<\xDF>, but Unicode
+says that C<"ss"> is what C<\xDF> matches under C</i>.  So which one
+"wins"? Do you fail the match because the string has C<ss> or accept it
+because it has an C<s> followed by another C<s>?  Perl has chosen the
+latter.  (See note in L</Bracketed Character Classes> above.)
+
+Examples:
+
+ "e"  =~  /[^aeiou]/   #  No match, the 'e' is listed.
+ "x"  =~  /[^aeiou]/   #  Match, as 'x' isn't a lowercase vowel.
+ "^"  =~  /[^^]/       #  No match, matches anything that isn't a caret.
+ "^"  =~  /[x^]/       #  Match, caret is not special here.
+
+=head3 Backslash Sequences
+
+You can put any backslash sequence character class (with the exception of
+C<\N> and C<\R>) inside a bracketed character class, and it will act just
+as if you had put all characters matched by the backslash sequence inside the
+character class. For instance, C<[a-f\d]> matches any decimal digit, or any
+of the lowercase letters between 'a' and 'f' inclusive.
+
+C<\N> within a bracketed character class must be of the forms C<\N{I<name>}>
+or C<\N{U+I<hex char>}>, and NOT be the form that matches non-newlines,
+for the same reason that a dot C<.> inside a bracketed character class loses
+its special meaning: it matches nearly anything, which generally isn't what you
+want to happen.
+
+
+Examples:
+
+ /[\p{Thai}\d]/     # Matches a character that is either a Thai
+                    # character, or a digit.
+ /[^\p{Arabic}()]/  # Matches a character that is neither an Arabic
+                    # character, nor a parenthesis.
+
+Backslash sequence character classes cannot form one of the endpoints
+of a range.  Thus, you can't say:
+
+ /[\p{Thai}-\d]/     # Wrong!
+
+=head3 POSIX Character Classes
+X<character class> X<\p> X<\p{}>
+X<alpha> X<alnum> X<ascii> X<blank> X<cntrl> X<digit> X<graph>
+X<lower> X<print> X<punct> X<space> X<upper> X<word> X<xdigit>
+
+POSIX character classes have the form C<[:class:]>, where I<class> is the
+name, and the C<[:> and C<:]> delimiters. POSIX character classes only appear
+I<inside> bracketed character classes, and are a convenient and descriptive
+way of listing a group of characters.
+
+Be careful about the syntax,
+
+ # Correct:
+ $string =~ /[[:alpha:]]/
+
+ # Incorrect (will warn):
+ $string =~ /[:alpha:]/
+
+The latter pattern would be a character class consisting of a colon,
+and the letters C<a>, C<l>, C<p> and C<h>.
+
+POSIX character classes can be part of a larger bracketed character class.
+For example,
+
+ [01[:alpha:]%]
+
+is valid and matches '0', '1', any alphabetic character, and the percent sign.
+
+Perl recognizes the following POSIX character classes:
+
+ alpha  Any alphabetical character ("[A-Za-z]").
+ alnum  Any alphanumeric character ("[A-Za-z0-9]").
+ ascii  Any character in the ASCII character set.
+ blank  A GNU extension, equal to a space or a horizontal tab ("\t").
+ cntrl  Any control character.  See Note [2] below.
+ digit  Any decimal digit ("[0-9]"), equivalent to "\d".
+ graph  Any printable character, excluding a space.  See Note [3] below.
+ lower  Any lowercase character ("[a-z]").
+ print  Any printable character, including a space.  See Note [4] below.
+ punct  Any graphical character excluding "word" characters.  Note [5].
+ space  Any whitespace character. "\s" including the vertical tab
+        ("\cK").
+ upper  Any uppercase character ("[A-Z]").
+ word   A Perl extension ("[A-Za-z0-9_]"), equivalent to "\w".
+ xdigit Any hexadecimal digit ("[0-9a-fA-F]").
+
+Like the L<Unicode properties|/Unicode Properties>, most of the POSIX
+properties match the same regardless of whether case-insensitive (C</i>)
+matching is in effect or not.  The two exceptions are C<[:upper:]> and
+C<[:lower:]>.  Under C</i>, they each match the union of C<[:upper:]> and
+C<[:lower:]>.
+
+Most POSIX character classes have two Unicode-style C<\p> property
+counterparts.  (They are not official Unicode properties, but Perl extensions
+derived from official Unicode properties.)  The table below shows the relation
+between POSIX character classes and these counterparts.
+
+One counterpart, in the column labelled "ASCII-range Unicode" in
+the table, matches only characters in the ASCII character set.
+
+The other counterpart, in the column labelled "Full-range Unicode", matches any
+appropriate characters in the full Unicode character set.  For example,
+C<\p{Alpha}> matches not just the ASCII alphabetic characters, but any
+character in the entire Unicode character set considered alphabetic.
+An entry in the column labelled "backslash sequence" is a (short)
+equivalent.
+
+ [[:...:]]      ASCII-range          Full-range  backslash  Note
+                 Unicode              Unicode     sequence
+ -----------------------------------------------------
+   alpha      \p{PosixAlpha}       \p{XPosixAlpha}
+   alnum      \p{PosixAlnum}       \p{XPosixAlnum}
+   ascii      \p{ASCII}
+   blank      \p{PosixBlank}       \p{XPosixBlank}  \h      [1]
+                                   or \p{HorizSpace}        [1]
+   cntrl      \p{PosixCntrl}       \p{XPosixCntrl}          [2]
+   digit      \p{PosixDigit}       \p{XPosixDigit}  \d
+   graph      \p{PosixGraph}       \p{XPosixGraph}          [3]
+   lower      \p{PosixLower}       \p{XPosixLower}
+   print      \p{PosixPrint}       \p{XPosixPrint}          [4]
+   punct      \p{PosixPunct}       \p{XPosixPunct}          [5]
+              \p{PerlSpace}        \p{XPerlSpace}   \s      [6]
+   space      \p{PosixSpace}       \p{XPosixSpace}          [6]
+   upper      \p{PosixUpper}       \p{XPosixUpper}
+   word       \p{PosixWord}        \p{XPosixWord}   \w
+   xdigit     \p{PosixXDigit}      \p{XPosixXDigit}
+
+=over 4
+
+=item [1]
+
+C<\p{Blank}> and C<\p{HorizSpace}> are synonyms.
+
+=item [2]
+
+Control characters don't produce output as such, but instead usually control
+the terminal somehow: for example, newline and backspace are control characters.
+On ASCII platforms, in the ASCII range, characters whose code points are
+between 0 and 31 inclusive, plus 127 (C<DEL>) are control characters; on
+EBCDIC platforms, their counterparts are control characters.
+
+=item [3]
+
+Any character that is I<graphical>, that is, visible. This class consists
+of all alphanumeric characters and all punctuation characters.
+
+=item [4]
+
+All printable characters, which is the set of all graphical characters
+plus those whitespace characters which are not also controls.
+
+=item [5]
+
+C<\p{PosixPunct}> and C<[[:punct:]]> in the ASCII range match all
+non-controls, non-alphanumeric, non-space characters:
+C<[-!"#$%&'()*+,./:;<=E<gt>?@[\\\]^_`{|}~]> (although if a locale is in effect,
+it could alter the behavior of C<[[:punct:]]>).
+
+The similarly named property, C<\p{Punct}>, matches a somewhat different
+set in the ASCII range, namely
+C<[-!"#%&'()*,./:;?@[\\\]_{}]>.  That is, it is missing the nine
+characters C<[$+E<lt>=E<gt>^`|~]>.
+This is because Unicode splits what POSIX considers to be punctuation into two
+categories, Punctuation and Symbols.
+
+C<\p{XPosixPunct}> and (under Unicode rules) C<[[:punct:]]>, match what
+C<\p{PosixPunct}> matches in the ASCII range, plus what C<\p{Punct}>
+matches.  This is different than strictly matching according to
+C<\p{Punct}>.  Another way to say it is that
+if Unicode rules are in effect, C<[[:punct:]]> matches all characters
+that Unicode considers punctuation, plus all ASCII-range characters that
+Unicode considers symbols.
+
+=item [6]
+
+C<\p{XPerlSpace}> and C<\p{Space}> match identically starting with Perl
+v5.18.  In earlier versions, these differ only in that in non-locale
+matching, C<\p{XPerlSpace}> did not match the vertical tab, C<\cK>.
+Same for the two ASCII-only range forms.
+
+=back
+
+There are various other synonyms that can be used besides the names
+listed in the table.  For example, C<\p{PosixAlpha}> can be written as
+C<\p{Alpha}>.  All are listed in
+L<perluniprops/Properties accessible through \p{} and \P{}>.
+
+Both the C<\p> counterparts always assume Unicode rules are in effect.
+On ASCII platforms, this means they assume that the code points from 128
+to 255 are Latin-1, and that means that using them under locale rules is
+unwise unless the locale is guaranteed to be Latin-1 or UTF-8.  In contrast, the
+POSIX character classes are useful under locale rules.  They are
+affected by the actual rules in effect, as follows:
+
+=over
+
+=item If the C</a> modifier, is in effect ...
+
+Each of the POSIX classes matches exactly the same as their ASCII-range
+counterparts.
+
+=item otherwise ...
+
+=over
+
+=item For code points above 255 ...
+
+The POSIX class matches the same as its Full-range counterpart.
+
+=item For code points below 256 ...
+
+=over
+
+=item if locale rules are in effect ...
+
+The POSIX class matches according to the locale, except:
+
+=over
+
+=item C<word>
+
+also includes the platform's native underscore character, no matter what
+the locale is.
+
+=item C<ascii>
+
+on platforms that don't have the POSIX C<ascii> extension, this matches
+just the platform's native ASCII-range characters.
+
+=item C<blank>
+
+on platforms that don't have the POSIX C<blank> extension, this matches
+just the platform's native tab and space characters.
+
+=back
+
+=item if Unicode rules are in effect ...
+
+The POSIX class matches the same as the Full-range counterpart.
+
+=item otherwise ...
+
+The POSIX class matches the same as the ASCII range counterpart.
+
+=back
+
+=back
+
+=back
+
+Which rules apply are determined as described in
+L<perlre/Which character set modifier is in effect?>.
+
+It is proposed to change this behavior in a future release of Perl so that
+whether or not Unicode rules are in effect would not change the
+behavior:  Outside of locale, the POSIX classes
+would behave like their ASCII-range counterparts.  If you wish to
+comment on this proposal, send email to C<perl5-porters@perl.org>.
+
+=head4 Negation of POSIX character classes
+X<character class, negation>
+
+A Perl extension to the POSIX character class is the ability to
+negate it. This is done by prefixing the class name with a caret (C<^>).
+Some examples:
+
+     POSIX         ASCII-range     Full-range  backslash
+                    Unicode         Unicode    sequence
+ -----------------------------------------------------
+ [[:^digit:]]   \P{PosixDigit}  \P{XPosixDigit}   \D
+ [[:^space:]]   \P{PosixSpace}  \P{XPosixSpace}
+                \P{PerlSpace}   \P{XPerlSpace}    \S
+ [[:^word:]]    \P{PerlWord}    \P{XPosixWord}    \W
+
+The backslash sequence can mean either ASCII- or Full-range Unicode,
+depending on various factors as described in L<perlre/Which character set modifier is in effect?>.
+
+=head4 [= =] and [. .]
+
+Perl recognizes the POSIX character classes C<[=class=]> and
+C<[.class.]>, but does not (yet?) support them.  Any attempt to use
+either construct raises an exception.
+
+=head4 Examples
+
+ /[[:digit:]]/            # Matches a character that is a digit.
+ /[01[:lower:]]/          # Matches a character that is either a
+                          # lowercase letter, or '0' or '1'.
+ /[[:digit:][:^xdigit:]]/ # Matches a character that can be anything
+                          # except the letters 'a' to 'f' and 'A' to
+                          # 'F'.  This is because the main character
+                          # class is composed of two POSIX character
+                          # classes that are ORed together, one that
+                          # matches any digit, and the other that
+                          # matches anything that isn't a hex digit.
+                          # The OR adds the digits, leaving only the
+                          # letters 'a' to 'f' and 'A' to 'F' excluded.
+
+=head3 Extended Bracketed Character Classes
+X<character class>
+X<set operations>
+
+This is a fancy bracketed character class that can be used for more
+readable and less error-prone classes, and to perform set operations,
+such as intersection. An example is
+
+ /(?[ \p{Thai} & \p{Digit} ])/
+
+This will match all the digit characters that are in the Thai script.
+
+This is an experimental feature available starting in 5.18, and is
+subject to change as we gain field experience with it.  Any attempt to
+use it will raise a warning, unless disabled via
+
+ no warnings "experimental::regex_sets";
+
+Comments on this feature are welcome; send email to
+C<perl5-porters@perl.org>.
+
+The rules used by L<C<use re 'strict>|re/'strict' mode> apply to this
+construct.
+
+We can extend the example above:
+
+ /(?[ ( \p{Thai} + \p{Lao} ) & \p{Digit} ])/
+
+This matches digits that are in either the Thai or Laotian scripts.
+
+Notice the white space in these examples.  This construct always has
+the C<E<sol>x> modifier turned on within it.
+
+The available binary operators are:
+
+ &    intersection
+ +    union
+ |    another name for '+', hence means union
+ -    subtraction (the result matches the set consisting of those
+      code points matched by the first operand, excluding any that
+      are also matched by the second operand)
+ ^    symmetric difference (the union minus the intersection).  This
+      is like an exclusive or, in that the result is the set of code
+      points that are matched by either, but not both, of the
+      operands.
+
+There is one unary operator:
+
+ !    complement
+
+All the binary operators left associate; C<"&"> is higher precedence
+than the others, which all have equal precedence.  The unary operator
+right associates, and has highest precedence.  Thus this follows the
+normal Perl precedence rules for logical operators.  Use parentheses to
+override the default precedence and associativity.
+
+The main restriction is that everything is a metacharacter.  Thus,
+you cannot refer to single characters by doing something like this:
+
+ /(?[ a + b ])/ # Syntax error!
+
+The easiest way to specify an individual typable character is to enclose
+it in brackets:
+
+ /(?[ [a] + [b] ])/
+
+(This is the same thing as C<[ab]>.)  You could also have said the
+equivalent:
+
+ /(?[[ a b ]])/
+
+(You can, of course, specify single characters by using, C<\x{...}>,
+C<\N{...}>, etc.)
+
+This last example shows the use of this construct to specify an ordinary
+bracketed character class without additional set operations.  Note the
+white space within it; a limited version of C<E<sol>x> is turned on even
+within bracketed character classes, with only the SPACE and TAB (C<\t>)
+characters allowed, and no comments.  Hence,
+
+ (?[ [#] ])
+
+matches the literal character "#".  To specify a literal white space character,
+you can escape it with a backslash, like:
+
+ /(?[ [ a e i o u \  ] ])/
+
+This matches the English vowels plus the SPACE character.
+All the other escapes accepted by normal bracketed character classes are
+accepted here as well; but unrecognized escapes that generate warnings
+in normal classes are fatal errors here.
+
+All warnings from these class elements are fatal, as well as some
+practices that don't currently warn.  For example you cannot say
+
+ /(?[ [ \xF ] ])/     # Syntax error!
+
+You have to have two hex digits after a braceless C<\x> (use a leading
+zero to make two).  These restrictions are to lower the incidence of
+typos causing the class to not match what you thought it would.
+
+If a regular bracketed character class contains a C<\p{}> or C<\P{}> and
+is matched against a non-Unicode code point, a warning may be
+raised, as the result is not Unicode-defined.  No such warning will come
+when using this extended form.
+
+The final difference between regular bracketed character classes and
+these, is that it is not possible to get these to match a
+multi-character fold.  Thus,
+
+ /(?[ [\xDF] ])/iu
+
+does not match the string C<ss>.
+
+You don't have to enclose POSIX class names inside double brackets,
+hence both of the following work:
+
+ /(?[ [:word:] - [:lower:] ])/
+ /(?[ [[:word:]] - [[:lower:]] ])/
+
+Any contained POSIX character classes, including things like C<\w> and C<\D>
+respect the C<E<sol>a> (and C<E<sol>aa>) modifiers.
+
+C<< (?[ ]) >> is a regex-compile-time construct.  Any attempt to use
+something which isn't knowable at the time the containing regular
+expression is compiled is a fatal error.  In practice, this means
+just three limitations:
+
+=over 4
+
+=item 1
+
+When compiled within the scope of C<use locale> (or the C<E<sol>l> regex
+modifier), this construct assumes that the execution-time locale will be
+a UTF-8 one, and the generated pattern always uses Unicode rules.  What
+gets matched or not thus isn't dependent on the actual runtime locale, so
+tainting is not enabled.  But a C<locale> category warning is raised
+if the runtime locale turns out to not be UTF-8.
+
+=item 2
+
+Any
+L<user-defined property|perlunicode/"User-Defined Character Properties">
+used must be already defined by the time the regular expression is
+compiled (but note that this construct can be used instead of such
+properties).
+
+=item 3
+
+A regular expression that otherwise would compile
+using C<E<sol>d> rules, and which uses this construct will instead
+use C<E<sol>u>.  Thus this construct tells Perl that you don't want
+C<E<sol>d> rules for the entire regular expression containing it.
+
+=back
+
+Note that skipping white space applies only to the interior of this
+construct.  There must not be any space between any of the characters
+that form the initial C<(?[>.  Nor may there be space between the
+closing C<])> characters.
+
+Just as in all regular expressions, the pattern can be built up by
+including variables that are interpolated at regex compilation time.
+Care must be taken to ensure that you are getting what you expect.  For
+example:
+
+ my $thai_or_lao = '\p{Thai} + \p{Lao}';
+ ...
+ qr/(?[ \p{Digit} & $thai_or_lao ])/;
+
+compiles to
+
+ qr/(?[ \p{Digit} & \p{Thai} + \p{Lao} ])/;
+
+But this does not have the effect that someone reading the code would
+likely expect, as the intersection applies just to C<\p{Thai}>,
+excluding the Laotian.  Pitfalls like this can be avoided by
+parenthesizing the component pieces:
+
+ my $thai_or_lao = '( \p{Thai} + \p{Lao} )';
+
+But any modifiers will still apply to all the components:
+
+ my $lower = '\p{Lower} + \p{Digit}';
+ qr/(?[ \p{Greek} & $lower ])/i;
+
+matches upper case things.  You can avoid surprises by making the
+components into instances of this construct by compiling them:
+
+ my $thai_or_lao = qr/(?[ \p{Thai} + \p{Lao} ])/;
+ my $lower = qr/(?[ \p{Lower} + \p{Digit} ])/;
+
+When these are embedded in another pattern, what they match does not
+change, regardless of parenthesization or what modifiers are in effect
+in that outer pattern.
+
+Due to the way that Perl parses things, your parentheses and brackets
+may need to be balanced, even including comments.  If you run into any
+examples, please send them to C<perlbug@perl.org>, so that we can have a
+concrete example for this man page.
+
+We may change it so that things that remain legal uses in normal bracketed
+character classes might become illegal within this experimental
+construct.  One proposal, for example, is to forbid adjacent uses of the
+same character, as in C<(?[ [aa] ])>.  The motivation for such a change
+is that this usage is likely a typo, as the second "a" adds nothing.
diff --git a/lib/5.24.1/pod/perlref.pod b/lib/5.24.1/pod/perlref.pod
new file mode 100644
index 00000000..8959ba55
--- /dev/null
+++ b/lib/5.24.1/pod/perlref.pod
@@ -0,0 +1,920 @@
+=head1 NAME
+X<reference> X<pointer> X<data structure> X<structure> X<struct>
+
+perlref - Perl references and nested data structures
+
+=head1 NOTE
+
+This is complete documentation about all aspects of references.
+For a shorter, tutorial introduction to just the essential features,
+see L<perlreftut>.
+
+=head1 DESCRIPTION
+
+Before release 5 of Perl it was difficult to represent complex data
+structures, because all references had to be symbolic--and even then
+it was difficult to refer to a variable instead of a symbol table entry.
+Perl now not only makes it easier to use symbolic references to variables,
+but also lets you have "hard" references to any piece of data or code.
+Any scalar may hold a hard reference.  Because arrays and hashes contain
+scalars, you can now easily build arrays of arrays, arrays of hashes,
+hashes of arrays, arrays of hashes of functions, and so on.
+
+Hard references are smart--they keep track of reference counts for you,
+automatically freeing the thing referred to when its reference count goes
+to zero.  (Reference counts for values in self-referential or
+cyclic data structures may not go to zero without a little help; see
+L</"Circular References"> for a detailed explanation.)
+If that thing happens to be an object, the object is destructed.  See
+L<perlobj> for more about objects.  (In a sense, everything in Perl is an
+object, but we usually reserve the word for references to objects that
+have been officially "blessed" into a class package.)
+
+Symbolic references are names of variables or other objects, just as a
+symbolic link in a Unix filesystem contains merely the name of a file.
+The C<*glob> notation is something of a symbolic reference.  (Symbolic
+references are sometimes called "soft references", but please don't call
+them that; references are confusing enough without useless synonyms.)
+X<reference, symbolic> X<reference, soft>
+X<symbolic reference> X<soft reference>
+
+In contrast, hard references are more like hard links in a Unix file
+system: They are used to access an underlying object without concern for
+what its (other) name is.  When the word "reference" is used without an
+adjective, as in the following paragraph, it is usually talking about a
+hard reference.
+X<reference, hard> X<hard reference>
+
+References are easy to use in Perl.  There is just one overriding
+principle: in general, Perl does no implicit referencing or dereferencing.
+When a scalar is holding a reference, it always behaves as a simple scalar.
+It doesn't magically start being an array or hash or subroutine; you have to
+tell it explicitly to do so, by dereferencing it.
+
+=head2 Making References
+X<reference, creation> X<referencing>
+
+References can be created in several ways.
+
+=over 4
+
+=item 1.
+X<\> X<backslash>
+
+By using the backslash operator on a variable, subroutine, or value.
+(This works much like the & (address-of) operator in C.)
+This typically creates I<another> reference to a variable, because
+there's already a reference to the variable in the symbol table.  But
+the symbol table reference might go away, and you'll still have the
+reference that the backslash returned.  Here are some examples:
+
+    $scalarref = \$foo;
+    $arrayref  = \@ARGV;
+    $hashref   = \%ENV;
+    $coderef   = \&handler;
+    $globref   = \*foo;
+
+It isn't possible to create a true reference to an IO handle (filehandle
+or dirhandle) using the backslash operator.  The most you can get is a
+reference to a typeglob, which is actually a complete symbol table entry.
+But see the explanation of the C<*foo{THING}> syntax below.  However,
+you can still use type globs and globrefs as though they were IO handles.
+
+=item 2.
+X<array, anonymous> X<[> X<[]> X<square bracket>
+X<bracket, square> X<arrayref> X<array reference> X<reference, array>
+
+A reference to an anonymous array can be created using square
+brackets:
+
+    $arrayref = [1, 2, ['a', 'b', 'c']];
+
+Here we've created a reference to an anonymous array of three elements
+whose final element is itself a reference to another anonymous array of three
+elements.  (The multidimensional syntax described later can be used to
+access this.  For example, after the above, C<< $arrayref->[2][1] >> would have
+the value "b".)
+
+Taking a reference to an enumerated list is not the same
+as using square brackets--instead it's the same as creating
+a list of references!
+
+    @list = (\$a, \@b, \%c);
+    @list = \($a, @b, %c);      # same thing!
+
+As a special case, C<\(@foo)> returns a list of references to the contents
+of C<@foo>, not a reference to C<@foo> itself.  Likewise for C<%foo>,
+except that the key references are to copies (since the keys are just
+strings rather than full-fledged scalars).
+
+=item 3.
+X<hash, anonymous> X<{> X<{}> X<curly bracket>
+X<bracket, curly> X<brace> X<hashref> X<hash reference> X<reference, hash>
+
+A reference to an anonymous hash can be created using curly
+brackets:
+
+    $hashref = {
+        'Adam'  => 'Eve',
+        'Clyde' => 'Bonnie',
+    };
+
+Anonymous hash and array composers like these can be intermixed freely to
+produce as complicated a structure as you want.  The multidimensional
+syntax described below works for these too.  The values above are
+literals, but variables and expressions would work just as well, because
+assignment operators in Perl (even within local() or my()) are executable
+statements, not compile-time declarations.
+
+Because curly brackets (braces) are used for several other things
+including BLOCKs, you may occasionally have to disambiguate braces at the
+beginning of a statement by putting a C<+> or a C<return> in front so
+that Perl realizes the opening brace isn't starting a BLOCK.  The economy and
+mnemonic value of using curlies is deemed worth this occasional extra
+hassle.
+
+For example, if you wanted a function to make a new hash and return a
+reference to it, you have these options:
+
+    sub hashem {        { @_ } }   # silently wrong
+    sub hashem {       +{ @_ } }   # ok
+    sub hashem { return { @_ } }   # ok
+
+On the other hand, if you want the other meaning, you can do this:
+
+    sub showem {        { @_ } }   # ambiguous (currently ok,
+                                   # but may change)
+    sub showem {       {; @_ } }   # ok
+    sub showem { { return @_ } }   # ok
+
+The leading C<+{> and C<{;> always serve to disambiguate
+the expression to mean either the HASH reference, or the BLOCK.
+
+=item 4.
+X<subroutine, anonymous> X<subroutine, reference> X<reference, subroutine>
+X<scope, lexical> X<closure> X<lexical> X<lexical scope>
+
+A reference to an anonymous subroutine can be created by using
+C<sub> without a subname:
+
+    $coderef = sub { print "Boink!\n" };
+
+Note the semicolon.  Except for the code
+inside not being immediately executed, a C<sub {}> is not so much a
+declaration as it is an operator, like C<do{}> or C<eval{}>.  (However, no
+matter how many times you execute that particular line (unless you're in an
+C<eval("...")>), $coderef will still have a reference to the I<same>
+anonymous subroutine.)
+
+Anonymous subroutines act as closures with respect to my() variables,
+that is, variables lexically visible within the current scope.  Closure
+is a notion out of the Lisp world that says if you define an anonymous
+function in a particular lexical context, it pretends to run in that
+context even when it's called outside the context.
+
+In human terms, it's a funny way of passing arguments to a subroutine when
+you define it as well as when you call it.  It's useful for setting up
+little bits of code to run later, such as callbacks.  You can even
+do object-oriented stuff with it, though Perl already provides a different
+mechanism to do that--see L<perlobj>.
+
+You might also think of closure as a way to write a subroutine
+template without using eval().  Here's a small example of how
+closures work:
+
+    sub newprint {
+        my $x = shift;
+        return sub { my $y = shift; print "$x, $y!\n"; };
+    }
+    $h = newprint("Howdy");
+    $g = newprint("Greetings");
+
+    # Time passes...
+
+    &$h("world");
+    &$g("earthlings");
+
+This prints
+
+    Howdy, world!
+    Greetings, earthlings!
+
+Note particularly that $x continues to refer to the value passed
+into newprint() I<despite> "my $x" having gone out of scope by the
+time the anonymous subroutine runs.  That's what a closure is all
+about.
+
+This applies only to lexical variables, by the way.  Dynamic variables
+continue to work as they have always worked.  Closure is not something
+that most Perl programmers need trouble themselves about to begin with.
+
+=item 5.
+X<constructor> X<new>
+
+References are often returned by special subroutines called constructors.  Perl
+objects are just references to a special type of object that happens to know
+which package it's associated with.  Constructors are just special subroutines
+that know how to create that association.  They do so by starting with an
+ordinary reference, and it remains an ordinary reference even while it's also
+being an object.  Constructors are often named C<new()>.  You I<can> call them
+indirectly:
+
+    $objref = new Doggie( Tail => 'short', Ears => 'long' );
+
+But that can produce ambiguous syntax in certain cases, so it's often
+better to use the direct method invocation approach:
+
+    $objref   = Doggie->new(Tail => 'short', Ears => 'long');
+
+    use Term::Cap;
+    $terminal = Term::Cap->Tgetent( { OSPEED => 9600 });
+
+    use Tk;
+    $main    = MainWindow->new();
+    $menubar = $main->Frame(-relief              => "raised",
+                            -borderwidth         => 2)
+
+=item 6.
+X<autovivification>
+
+References of the appropriate type can spring into existence if you
+dereference them in a context that assumes they exist.  Because we haven't
+talked about dereferencing yet, we can't show you any examples yet.
+
+=item 7.
+X<*foo{THING}> X<*>
+
+A reference can be created by using a special syntax, lovingly known as
+the *foo{THING} syntax.  *foo{THING} returns a reference to the THING
+slot in *foo (which is the symbol table entry which holds everything
+known as foo).
+
+    $scalarref = *foo{SCALAR};
+    $arrayref  = *ARGV{ARRAY};
+    $hashref   = *ENV{HASH};
+    $coderef   = *handler{CODE};
+    $ioref     = *STDIN{IO};
+    $globref   = *foo{GLOB};
+    $formatref = *foo{FORMAT};
+    $globname  = *foo{NAME};    # "foo"
+    $pkgname   = *foo{PACKAGE}; # "main"
+
+Most of these are self-explanatory, but C<*foo{IO}>
+deserves special attention.  It returns
+the IO handle, used for file handles (L<perlfunc/open>), sockets
+(L<perlfunc/socket> and L<perlfunc/socketpair>), and directory
+handles (L<perlfunc/opendir>).  For compatibility with previous
+versions of Perl, C<*foo{FILEHANDLE}> is a synonym for C<*foo{IO}>, though it
+is discouraged, to encourage a consistent use of one name: IO.  On perls
+between v5.8 and v5.22, it will issue a deprecation warning, but this
+deprecation has since been rescinded.
+
+C<*foo{THING}> returns undef if that particular THING hasn't been used yet,
+except in the case of scalars.  C<*foo{SCALAR}> returns a reference to an
+anonymous scalar if $foo hasn't been used yet.  This might change in a
+future release.
+
+C<*foo{NAME}> and C<*foo{PACKAGE}> are the exception, in that they return
+strings, rather than references.  These return the package and name of the
+typeglob itself, rather than one that has been assigned to it.  So, after
+C<*foo=*Foo::bar>, C<*foo> will become "*Foo::bar" when used as a string,
+but C<*foo{PACKAGE}> and C<*foo{NAME}> will continue to produce "main" and
+"foo", respectively.
+
+C<*foo{IO}> is an alternative to the C<*HANDLE> mechanism given in
+L<perldata/"Typeglobs and Filehandles"> for passing filehandles
+into or out of subroutines, or storing into larger data structures.
+Its disadvantage is that it won't create a new filehandle for you.
+Its advantage is that you have less risk of clobbering more than
+you want to with a typeglob assignment.  (It still conflates file
+and directory handles, though.)  However, if you assign the incoming
+value to a scalar instead of a typeglob as we do in the examples
+below, there's no risk of that happening.
+
+    splutter(*STDOUT);          # pass the whole glob
+    splutter(*STDOUT{IO});      # pass both file and dir handles
+
+    sub splutter {
+        my $fh = shift;
+        print $fh "her um well a hmmm\n";
+    }
+
+    $rec = get_rec(*STDIN);     # pass the whole glob
+    $rec = get_rec(*STDIN{IO}); # pass both file and dir handles
+
+    sub get_rec {
+        my $fh = shift;
+        return scalar <$fh>;
+    }
+
+=back
+
+=head2 Using References
+X<reference, use> X<dereferencing> X<dereference>
+
+That's it for creating references.  By now you're probably dying to
+know how to use references to get back to your long-lost data.  There
+are several basic methods.
+
+=over 4
+
+=item 1.
+
+Anywhere you'd put an identifier (or chain of identifiers) as part
+of a variable or subroutine name, you can replace the identifier with
+a simple scalar variable containing a reference of the correct type:
+
+    $bar = $$scalarref;
+    push(@$arrayref, $filename);
+    $$arrayref[0] = "January";
+    $$hashref{"KEY"} = "VALUE";
+    &$coderef(1,2,3);
+    print $globref "output\n";
+
+It's important to understand that we are specifically I<not> dereferencing
+C<$arrayref[0]> or C<$hashref{"KEY"}> there.  The dereference of the
+scalar variable happens I<before> it does any key lookups.  Anything more
+complicated than a simple scalar variable must use methods 2 or 3 below.
+However, a "simple scalar" includes an identifier that itself uses method
+1 recursively.  Therefore, the following prints "howdy".
+
+    $refrefref = \\\"howdy";
+    print $$$$refrefref;
+
+=item 2.
+
+Anywhere you'd put an identifier (or chain of identifiers) as part of a
+variable or subroutine name, you can replace the identifier with a
+BLOCK returning a reference of the correct type.  In other words, the
+previous examples could be written like this:
+
+    $bar = ${$scalarref};
+    push(@{$arrayref}, $filename);
+    ${$arrayref}[0] = "January";
+    ${$hashref}{"KEY"} = "VALUE";
+    &{$coderef}(1,2,3);
+    $globref->print("output\n");  # iff IO::Handle is loaded
+
+Admittedly, it's a little silly to use the curlies in this case, but
+the BLOCK can contain any arbitrary expression, in particular,
+subscripted expressions:
+
+    &{ $dispatch{$index} }(1,2,3);      # call correct routine
+
+Because of being able to omit the curlies for the simple case of C<$$x>,
+people often make the mistake of viewing the dereferencing symbols as
+proper operators, and wonder about their precedence.  If they were,
+though, you could use parentheses instead of braces.  That's not the case.
+Consider the difference below; case 0 is a short-hand version of case 1,
+I<not> case 2:
+
+    $$hashref{"KEY"}   = "VALUE";       # CASE 0
+    ${$hashref}{"KEY"} = "VALUE";       # CASE 1
+    ${$hashref{"KEY"}} = "VALUE";       # CASE 2
+    ${$hashref->{"KEY"}} = "VALUE";     # CASE 3
+
+Case 2 is also deceptive in that you're accessing a variable
+called %hashref, not dereferencing through $hashref to the hash
+it's presumably referencing.  That would be case 3.
+
+=item 3.
+
+Subroutine calls and lookups of individual array elements arise often
+enough that it gets cumbersome to use method 2.  As a form of
+syntactic sugar, the examples for method 2 may be written:
+
+    $arrayref->[0] = "January";   # Array element
+    $hashref->{"KEY"} = "VALUE";  # Hash element
+    $coderef->(1,2,3);            # Subroutine call
+
+The left side of the arrow can be any expression returning a reference,
+including a previous dereference.  Note that C<$array[$x]> is I<not> the
+same thing as C<< $array->[$x] >> here:
+
+    $array[$x]->{"foo"}->[0] = "January";
+
+This is one of the cases we mentioned earlier in which references could
+spring into existence when in an lvalue context.  Before this
+statement, C<$array[$x]> may have been undefined.  If so, it's
+automatically defined with a hash reference so that we can look up
+C<{"foo"}> in it.  Likewise C<< $array[$x]->{"foo"} >> will automatically get
+defined with an array reference so that we can look up C<[0]> in it.
+This process is called I<autovivification>.
+
+One more thing here.  The arrow is optional I<between> brackets
+subscripts, so you can shrink the above down to
+
+    $array[$x]{"foo"}[0] = "January";
+
+Which, in the degenerate case of using only ordinary arrays, gives you
+multidimensional arrays just like C's:
+
+    $score[$x][$y][$z] += 42;
+
+Well, okay, not entirely like C's arrays, actually.  C doesn't know how
+to grow its arrays on demand.  Perl does.
+
+=item 4.
+
+If a reference happens to be a reference to an object, then there are
+probably methods to access the things referred to, and you should probably
+stick to those methods unless you're in the class package that defines the
+object's methods.  In other words, be nice, and don't violate the object's
+encapsulation without a very good reason.  Perl does not enforce
+encapsulation.  We are not totalitarians here.  We do expect some basic
+civility though.
+
+=back
+
+Using a string or number as a reference produces a symbolic reference,
+as explained above.  Using a reference as a number produces an
+integer representing its storage location in memory.  The only
+useful thing to be done with this is to compare two references
+numerically to see whether they refer to the same location.
+X<reference, numeric context>
+
+    if ($ref1 == $ref2) {  # cheap numeric compare of references
+        print "refs 1 and 2 refer to the same thing\n";
+    }
+
+Using a reference as a string produces both its referent's type,
+including any package blessing as described in L<perlobj>, as well
+as the numeric address expressed in hex.  The ref() operator returns
+just the type of thing the reference is pointing to, without the
+address.  See L<perlfunc/ref> for details and examples of its use.
+X<reference, string context>
+
+The bless() operator may be used to associate the object a reference
+points to with a package functioning as an object class.  See L<perlobj>.
+
+A typeglob may be dereferenced the same way a reference can, because
+the dereference syntax always indicates the type of reference desired.
+So C<${*foo}> and C<${\$foo}> both indicate the same scalar variable.
+
+Here's a trick for interpolating a subroutine call into a string:
+
+    print "My sub returned @{[mysub(1,2,3)]} that time.\n";
+
+The way it works is that when the C<@{...}> is seen in the double-quoted
+string, it's evaluated as a block.  The block creates a reference to an
+anonymous array containing the results of the call to C<mysub(1,2,3)>.  So
+the whole block returns a reference to an array, which is then
+dereferenced by C<@{...}> and stuck into the double-quoted string. This
+chicanery is also useful for arbitrary expressions:
+
+    print "That yields @{[$n + 5]} widgets\n";
+
+Similarly, an expression that returns a reference to a scalar can be
+dereferenced via C<${...}>. Thus, the above expression may be written
+as:
+
+    print "That yields ${\($n + 5)} widgets\n";
+
+=head2 Circular References
+X<circular reference> X<reference, circular>
+
+It is possible to create a "circular reference" in Perl, which can lead
+to memory leaks. A circular reference occurs when two references
+contain a reference to each other, like this:
+
+    my $foo = {};
+    my $bar = { foo => $foo };
+    $foo->{bar} = $bar;
+
+You can also create a circular reference with a single variable:
+
+    my $foo;
+    $foo = \$foo;
+
+In this case, the reference count for the variables will never reach 0,
+and the references will never be garbage-collected. This can lead to
+memory leaks.
+
+Because objects in Perl are implemented as references, it's possible to
+have circular references with objects as well. Imagine a TreeNode class
+where each node references its parent and child nodes. Any node with a
+parent will be part of a circular reference.
+
+You can break circular references by creating a "weak reference". A
+weak reference does not increment the reference count for a variable,
+which means that the object can go out of scope and be destroyed. You
+can weaken a reference with the C<weaken> function exported by the
+L<Scalar::Util> module.
+
+Here's how we can make the first example safer:
+
+    use Scalar::Util 'weaken';
+
+    my $foo = {};
+    my $bar = { foo => $foo };
+    $foo->{bar} = $bar;
+
+    weaken $foo->{bar};
+
+The reference from C<$foo> to C<$bar> has been weakened. When the
+C<$bar> variable goes out of scope, it will be garbage-collected. The
+next time you look at the value of the C<< $foo->{bar} >> key, it will
+be C<undef>.
+
+This action at a distance can be confusing, so you should be careful
+with your use of weaken. You should weaken the reference in the
+variable that will go out of scope I<first>. That way, the longer-lived
+variable will contain the expected reference until it goes out of
+scope.
+
+=head2 Symbolic references
+X<reference, symbolic> X<reference, soft>
+X<symbolic reference> X<soft reference>
+
+We said that references spring into existence as necessary if they are
+undefined, but we didn't say what happens if a value used as a
+reference is already defined, but I<isn't> a hard reference.  If you
+use it as a reference, it'll be treated as a symbolic
+reference.  That is, the value of the scalar is taken to be the I<name>
+of a variable, rather than a direct link to a (possibly) anonymous
+value.
+
+People frequently expect it to work like this.  So it does.
+
+    $name = "foo";
+    $$name = 1;                 # Sets $foo
+    ${$name} = 2;               # Sets $foo
+    ${$name x 2} = 3;           # Sets $foofoo
+    $name->[0] = 4;             # Sets $foo[0]
+    @$name = ();                # Clears @foo
+    &$name();                   # Calls &foo()
+    $pack = "THAT";
+    ${"${pack}::$name"} = 5;    # Sets $THAT::foo without eval
+
+This is powerful, and slightly dangerous, in that it's possible
+to intend (with the utmost sincerity) to use a hard reference, and
+accidentally use a symbolic reference instead.  To protect against
+that, you can say
+
+    use strict 'refs';
+
+and then only hard references will be allowed for the rest of the enclosing
+block.  An inner block may countermand that with
+
+    no strict 'refs';
+
+Only package variables (globals, even if localized) are visible to
+symbolic references.  Lexical variables (declared with my()) aren't in
+a symbol table, and thus are invisible to this mechanism.  For example:
+
+    local $value = 10;
+    $ref = "value";
+    {
+        my $value = 20;
+        print $$ref;
+    }
+
+This will still print 10, not 20.  Remember that local() affects package
+variables, which are all "global" to the package.
+
+=head2 Not-so-symbolic references
+
+Brackets around a symbolic reference can simply
+serve to isolate an identifier or variable name from the rest of an
+expression, just as they always have within a string.  For example,
+
+    $push = "pop on ";
+    print "${push}over";
+
+has always meant to print "pop on over", even though push is
+a reserved word.  This is generalized to work the same
+without the enclosing double quotes, so that
+
+    print ${push} . "over";
+
+and even
+
+    print ${ push } . "over";
+
+will have the same effect.  This
+construct is I<not> considered to be a symbolic reference when you're
+using strict refs:
+
+    use strict 'refs';
+    ${ bareword };      # Okay, means $bareword.
+    ${ "bareword" };    # Error, symbolic reference.
+
+Similarly, because of all the subscripting that is done using single words,
+the same rule applies to any bareword that is used for subscripting a hash.
+So now, instead of writing
+
+    $array{ "aaa" }{ "bbb" }{ "ccc" }
+
+you can write just
+
+    $array{ aaa }{ bbb }{ ccc }
+
+and not worry about whether the subscripts are reserved words.  In the
+rare event that you do wish to do something like
+
+    $array{ shift }
+
+you can force interpretation as a reserved word by adding anything that
+makes it more than a bareword:
+
+    $array{ shift() }
+    $array{ +shift }
+    $array{ shift @_ }
+
+The C<use warnings> pragma or the B<-w> switch will warn you if it
+interprets a reserved word as a string.
+But it will no longer warn you about using lowercase words, because the
+string is effectively quoted.
+
+=head2 Pseudo-hashes: Using an array as a hash
+X<pseudo-hash> X<pseudo hash> X<pseudohash>
+
+Pseudo-hashes have been removed from Perl.  The 'fields' pragma
+remains available.
+
+=head2 Function Templates
+X<scope, lexical> X<closure> X<lexical> X<lexical scope>
+X<subroutine, nested> X<sub, nested> X<subroutine, local> X<sub, local>
+
+As explained above, an anonymous function with access to the lexical
+variables visible when that function was compiled, creates a closure.  It
+retains access to those variables even though it doesn't get run until
+later, such as in a signal handler or a Tk callback.
+
+Using a closure as a function template allows us to generate many functions
+that act similarly.  Suppose you wanted functions named after the colors
+that generated HTML font changes for the various colors:
+
+    print "Be ", red("careful"), "with that ", green("light");
+
+The red() and green() functions would be similar.  To create these,
+we'll assign a closure to a typeglob of the name of the function we're
+trying to build.
+
+    @colors = qw(red blue green yellow orange purple violet);
+    for my $name (@colors) {
+        no strict 'refs';       # allow symbol table manipulation
+        *$name = *{uc $name} = sub { "<FONT COLOR='$name'>@_</FONT>" };
+    }
+
+Now all those different functions appear to exist independently.  You can
+call red(), RED(), blue(), BLUE(), green(), etc.  This technique saves on
+both compile time and memory use, and is less error-prone as well, since
+syntax checks happen at compile time.  It's critical that any variables in
+the anonymous subroutine be lexicals in order to create a proper closure.
+That's the reasons for the C<my> on the loop iteration variable.
+
+This is one of the only places where giving a prototype to a closure makes
+much sense.  If you wanted to impose scalar context on the arguments of
+these functions (probably not a wise idea for this particular example),
+you could have written it this way instead:
+
+    *$name = sub ($) { "<FONT COLOR='$name'>$_[0]</FONT>" };
+
+However, since prototype checking happens at compile time, the assignment
+above happens too late to be of much use.  You could address this by
+putting the whole loop of assignments within a BEGIN block, forcing it
+to occur during compilation.
+
+Access to lexicals that change over time--like those in the C<for> loop
+above, basically aliases to elements from the surrounding lexical scopes--
+only works with anonymous subs, not with named subroutines. Generally
+said, named subroutines do not nest properly and should only be declared
+in the main package scope.
+
+This is because named subroutines are created at compile time so their
+lexical variables get assigned to the parent lexicals from the first
+execution of the parent block. If a parent scope is entered a second
+time, its lexicals are created again, while the nested subs still
+reference the old ones.
+
+Anonymous subroutines get to capture each time you execute the C<sub>
+operator, as they are created on the fly. If you are accustomed to using
+nested subroutines in other programming languages with their own private
+variables, you'll have to work at it a bit in Perl.  The intuitive coding
+of this type of thing incurs mysterious warnings about "will not stay
+shared" due to the reasons explained above.
+For example, this won't work:
+
+    sub outer {
+        my $x = $_[0] + 35;
+        sub inner { return $x * 19 }   # WRONG
+        return $x + inner();
+    }
+
+A work-around is the following:
+
+    sub outer {
+        my $x = $_[0] + 35;
+        local *inner = sub { return $x * 19 };
+        return $x + inner();
+    }
+
+Now inner() can only be called from within outer(), because of the
+temporary assignments of the anonymous subroutine. But when it does,
+it has normal access to the lexical variable $x from the scope of
+outer() at the time outer is invoked.
+
+This has the interesting effect of creating a function local to another
+function, something not normally supported in Perl.
+
+=head1 WARNING
+X<reference, string context> X<reference, use as hash key>
+
+You may not (usefully) use a reference as the key to a hash.  It will be
+converted into a string:
+
+    $x{ \$a } = $a;
+
+If you try to dereference the key, it won't do a hard dereference, and
+you won't accomplish what you're attempting.  You might want to do something
+more like
+
+    $r = \@a;
+    $x{ $r } = $r;
+
+And then at least you can use the values(), which will be
+real refs, instead of the keys(), which won't.
+
+The standard Tie::RefHash module provides a convenient workaround to this.
+
+=head1 Postfix Dereference Syntax
+
+Beginning in v5.20.0, a postfix syntax for using references is
+available.  It behaves as described in L</Using References>, but instead
+of a prefixed sigil, a postfixed sigil-and-star is used.
+
+For example:
+
+    $r = \@a;
+    @b = $r->@*; # equivalent to @$r or @{ $r }
+
+    $r = [ 1, [ 2, 3 ], 4 ];
+    $r->[1]->@*;  # equivalent to @{ $r->[1] }
+
+In Perl 5.20 and 5.22, this syntax must be enabled with C<use feature
+'postderef'>. As of Perl 5.24, no feature declarations are required to make
+it available.
+
+Postfix dereference should work in all circumstances where block
+(circumfix) dereference worked, and should be entirely equivalent.  This
+syntax allows dereferencing to be written and read entirely
+left-to-right.  The following equivalencies are defined:
+
+  $sref->$*;  # same as  ${ $sref }
+  $aref->@*;  # same as  @{ $aref }
+  $aref->$#*; # same as $#{ $aref }
+  $href->%*;  # same as  %{ $href }
+  $cref->&*;  # same as  &{ $cref }
+  $gref->**;  # same as  *{ $gref }
+
+Note especially that C<< $cref->&* >> is I<not> equivalent to C<<
+$cref->() >>, and can serve different purposes.
+
+Glob elements can be extracted through the postfix dereferencing feature:
+
+  $gref->*{SCALAR}; # same as *{ $gref }{SCALAR}
+
+Postfix array and scalar dereferencing I<can> be used in interpolating
+strings (double quotes or the C<qq> operator), but only if the
+C<postderef_qq> feature is enabled.
+
+=head2 Postfix Reference Slicing
+
+Value slices of arrays and hashes may also be taken with postfix
+dereferencing notation, with the following equivalencies:
+
+  $aref->@[ ... ];  # same as @$aref[ ... ]
+  $href->@{ ... };  # same as @$href{ ... }
+
+Postfix key/value pair slicing, added in 5.20.0 and documented in
+L<the KeyE<sol>Value Hash Slices section of perldata|perldata/"Key/Value Hash
+Slices">, also behaves as expected:
+
+  $aref->%[ ... ];  # same as %$aref[ ... ]
+  $href->%{ ... };  # same as %$href{ ... }
+
+As with postfix array, postfix value slice dereferencing I<can> be used
+in interpolating strings (double quotes or the C<qq> operator), but only
+if the C<postderef_qq> L<feature> is enabled.
+
+=head1 Assigning to References
+
+Beginning in v5.22.0, the referencing operator can be assigned to.  It
+performs an aliasing operation, so that the variable name referenced on the
+left-hand side becomes an alias for the thing referenced on the right-hand
+side:
+
+    \$a = \$b; # $a and $b now point to the same scalar
+    \&foo = \&bar; # foo() now means bar()
+
+This syntax must be enabled with C<use feature 'refaliasing'>.  It is
+experimental, and will warn by default unless C<no warnings
+'experimental::refaliasing'> is in effect.
+
+These forms may be assigned to, and cause the right-hand side to be
+evaluated in scalar context:
+
+    \$scalar
+    \@array
+    \%hash
+    \&sub
+    \my $scalar
+    \my @array
+    \my %hash
+    \state $scalar # or @array, etc.
+    \our $scalar   # etc.
+    \local $scalar # etc.
+    \local our $scalar # etc.
+    \$some_array[$index]
+    \$some_hash{$key}
+    \local $some_array[$index]
+    \local $some_hash{$key}
+    condition ? \$this : \$that[0] # etc.
+
+Slicing operations and parentheses cause
+the right-hand side to be evaluated in
+list context:
+
+    \@array[5..7]
+    (\@array[5..7])
+    \(@array[5..7])
+    \@hash{'foo','bar'}
+    (\@hash{'foo','bar'})
+    \(@hash{'foo','bar'})
+    (\$scalar)
+    \($scalar)
+    \(my $scalar)
+    \my($scalar)
+    (\@array)
+    (\%hash)
+    (\&sub)
+    \(&sub)
+    \($foo, @bar, %baz)
+    (\$foo, \@bar, \%baz)
+
+Each element on the right-hand side must be a reference to a datum of the
+right type.  Parentheses immediately surrounding an array (and possibly
+also C<my>/C<state>/C<our>/C<local>) will make each element of the array an
+alias to the corresponding scalar referenced on the right-hand side:
+
+    \(@a) = \(@b); # @a and @b now have the same elements
+    \my(@a) = \(@b); # likewise
+    \(my @a) = \(@b); # likewise
+    push @a, 3; # but now @a has an extra element that @b lacks
+    \(@a) = (\$a, \$b, \$c); # @a now contains $a, $b, and $c
+
+Combining that form with C<local> and putting parentheses immediately
+around a hash are forbidden (because it is not clear what they should do):
+
+    \local(@array) = foo(); # WRONG
+    \(%hash)       = bar(); # wRONG
+
+Assignment to references and non-references may be combined in lists and
+conditional ternary expressions, as long as the values on the right-hand
+side are the right type for each element on the left, though this may make
+for obfuscated code:
+
+    (my $tom, \my $dick, \my @harry) = (\1, \2, [1..3]);
+    # $tom is now \1
+    # $dick is now 2 (read-only)
+    # @harry is (1,2,3)
+
+    my $type = ref $thingy;
+    ($type ? $type eq 'ARRAY' ? \@foo : \$bar : $baz) = $thingy;
+
+The C<foreach> loop can also take a reference constructor for its loop
+variable, though the syntax is limited to one of the following, with an
+optional C<my>, C<state>, or C<our> after the backslash:
+
+    \$s
+    \@a
+    \%h
+    \&c
+
+No parentheses are permitted.  This feature is particularly useful for
+arrays-of-arrays, or arrays-of-hashes:
+
+    foreach \my @a (@array_of_arrays) {
+        frobnicate($a[0], $a[-1]);
+    }
+
+    foreach \my %h (@array_of_hashes) {
+        $h{gelastic}++ if $h{type} eq 'funny';
+    }
+
+B<CAVEAT:> Aliasing does not work correctly with closures.  If you try to
+alias lexical variables from an inner subroutine or C<eval>, the aliasing
+will only be visible within that inner sub, and will not affect the outer
+subroutine where the variables are declared.  This bizarre behavior is
+subject to change.
+
+=head1 SEE ALSO
+
+Besides the obvious documents, source code can be instructive.
+Some pathological examples of the use of references can be found
+in the F<t/op/ref.t> regression test in the Perl source directory.
+
+See also L<perldsc> and L<perllol> for how to use references to create
+complex data structures, and L<perlootut> and L<perlobj>
+for how to use them to create objects.
diff --git a/lib/5.24.1/pod/perlreftut.pod b/lib/5.24.1/pod/perlreftut.pod
new file mode 100644
index 00000000..cd17c8bb
--- /dev/null
+++ b/lib/5.24.1/pod/perlreftut.pod
@@ -0,0 +1,525 @@
+=head1 NAME
+
+perlreftut - Mark's very short tutorial about references
+
+=head1 DESCRIPTION
+
+One of the most important new features in Perl 5 was the capability to
+manage complicated data structures like multidimensional arrays and
+nested hashes.  To enable these, Perl 5 introduced a feature called
+I<references>, and using references is the key to managing complicated,
+structured data in Perl.  Unfortunately, there's a lot of funny syntax
+to learn, and the main manual page can be hard to follow.  The manual
+is quite complete, and sometimes people find that a problem, because
+it can be hard to tell what is important and what isn't.
+
+Fortunately, you only need to know 10% of what's in the main page to get
+90% of the benefit.  This page will show you that 10%.
+
+=head1 Who Needs Complicated Data Structures?
+
+One problem that comes up all the time is needing a hash whose values are
+lists.  Perl has hashes, of course, but the values have to be scalars;
+they can't be lists.
+
+Why would you want a hash of lists?  Let's take a simple example: You
+have a file of city and country names, like this:
+
+	Chicago, USA
+	Frankfurt, Germany
+	Berlin, Germany
+	Washington, USA
+	Helsinki, Finland
+	New York, USA
+
+and you want to produce an output like this, with each country mentioned
+once, and then an alphabetical list of the cities in that country:
+
+	Finland: Helsinki.
+	Germany: Berlin, Frankfurt.
+	USA:  Chicago, New York, Washington.
+
+The natural way to do this is to have a hash whose keys are country
+names.  Associated with each country name key is a list of the cities in
+that country.  Each time you read a line of input, split it into a country
+and a city, look up the list of cities already known to be in that
+country, and append the new city to the list.  When you're done reading
+the input, iterate over the hash as usual, sorting each list of cities
+before you print it out.
+
+If hash values couldn't be lists, you lose.  You'd probably have to
+combine all the cities into a single string somehow, and then when
+time came to write the output, you'd have to break the string into a
+list, sort the list, and turn it back into a string.  This is messy
+and error-prone.  And it's frustrating, because Perl already has
+perfectly good lists that would solve the problem if only you could
+use them.
+
+=head1 The Solution
+
+By the time Perl 5 rolled around, we were already stuck with this
+design: Hash values must be scalars.  The solution to this is
+references.
+
+A reference is a scalar value that I<refers to> an entire array or an
+entire hash (or to just about anything else).  Names are one kind of
+reference that you're already familiar with.  Think of the President
+of the United States: a messy, inconvenient bag of blood and bones.
+But to talk about him, or to represent him in a computer program, all
+you need is the easy, convenient scalar string "Barack Obama".
+
+References in Perl are like names for arrays and hashes.  They're
+Perl's private, internal names, so you can be sure they're
+unambiguous.  Unlike "Barack Obama", a reference only refers to one
+thing, and you always know what it refers to.  If you have a reference
+to an array, you can recover the entire array from it.  If you have a
+reference to a hash, you can recover the entire hash.  But the
+reference is still an easy, compact scalar value.
+
+You can't have a hash whose values are arrays; hash values can only be
+scalars.  We're stuck with that.  But a single reference can refer to
+an entire array, and references are scalars, so you can have a hash of
+references to arrays, and it'll act a lot like a hash of arrays, and
+it'll be just as useful as a hash of arrays.
+
+We'll come back to this city-country problem later, after we've seen
+some syntax for managing references.
+
+
+=head1 Syntax
+
+There are just two ways to make a reference, and just two ways to use
+it once you have it.
+
+=head2 Making References
+
+=head3 B<Make Rule 1>
+
+If you put a C<\> in front of a variable, you get a
+reference to that variable.
+
+    $aref = \@array;         # $aref now holds a reference to @array
+    $href = \%hash;          # $href now holds a reference to %hash
+    $sref = \$scalar;        # $sref now holds a reference to $scalar
+
+Once the reference is stored in a variable like $aref or $href, you
+can copy it or store it just the same as any other scalar value:
+
+    $xy = $aref;             # $xy now holds a reference to @array
+    $p[3] = $href;           # $p[3] now holds a reference to %hash
+    $z = $p[3];              # $z now holds a reference to %hash
+
+
+These examples show how to make references to variables with names.
+Sometimes you want to make an array or a hash that doesn't have a
+name.  This is analogous to the way you like to be able to use the
+string C<"\n"> or the number 80 without having to store it in a named
+variable first.
+
+=head3 B<Make Rule 2>
+
+C<[ ITEMS ]> makes a new, anonymous array, and returns a reference to
+that array.  C<{ ITEMS }> makes a new, anonymous hash, and returns a
+reference to that hash.
+
+    $aref = [ 1, "foo", undef, 13 ];
+    # $aref now holds a reference to an array
+
+    $href = { APR => 4, AUG => 8 };
+    # $href now holds a reference to a hash
+
+
+The references you get from rule 2 are the same kind of
+references that you get from rule 1:
+
+	# This:
+	$aref = [ 1, 2, 3 ];
+
+	# Does the same as this:
+	@array = (1, 2, 3);
+	$aref = \@array;
+
+
+The first line is an abbreviation for the following two lines, except
+that it doesn't create the superfluous array variable C<@array>.
+
+If you write just C<[]>, you get a new, empty anonymous array.
+If you write just C<{}>, you get a new, empty anonymous hash.
+
+
+=head2 Using References
+
+What can you do with a reference once you have it?  It's a scalar
+value, and we've seen that you can store it as a scalar and get it back
+again just like any scalar.  There are just two more ways to use it:
+
+=head3 B<Use Rule 1>
+
+You can always use an array reference, in curly braces, in place of
+the name of an array.  For example, C<@{$aref}> instead of C<@array>.
+
+Here are some examples of that:
+
+Arrays:
+
+
+	@a		@{$aref}		An array
+	reverse @a	reverse @{$aref}	Reverse the array
+	$a[3]		${$aref}[3]		An element of the array
+	$a[3] = 17;	${$aref}[3] = 17	Assigning an element
+
+
+On each line are two expressions that do the same thing.  The
+left-hand versions operate on the array C<@a>.  The right-hand
+versions operate on the array that is referred to by C<$aref>.  Once
+they find the array they're operating on, both versions do the same
+things to the arrays.
+
+Using a hash reference is I<exactly> the same:
+
+	%h		%{$href}	      A hash
+	keys %h		keys %{$href}	      Get the keys from the hash
+	$h{'red'}	${$href}{'red'}	      An element of the hash
+	$h{'red'} = 17	${$href}{'red'} = 17  Assigning an element
+
+Whatever you want to do with a reference, B<Use Rule 1> tells you how
+to do it.  You just write the Perl code that you would have written
+for doing the same thing to a regular array or hash, and then replace
+the array or hash name with C<{$reference}>.  "How do I loop over an
+array when all I have is a reference?"  Well, to loop over an array, you
+would write
+
+        for my $element (@array) {
+          ...
+        }
+
+so replace the array name, C<@array>, with the reference:
+
+        for my $element (@{$aref}) {
+          ...
+        }
+
+"How do I print out the contents of a hash when all I have is a
+reference?"  First write the code for printing out a hash:
+
+        for my $key (keys %hash) {
+          print "$key => $hash{$key}\n";
+        }
+
+And then replace the hash name with the reference:
+
+        for my $key (keys %{$href}) {
+          print "$key => ${$href}{$key}\n";
+        }
+
+=head3 B<Use Rule 2>
+
+L<B<Use Rule 1>|/B<Use Rule 1>> is all you really need, because it tells
+you how to do absolutely everything you ever need to do with references.
+But the most common thing to do with an array or a hash is to extract a
+single element, and the L<B<Use Rule 1>|/B<Use Rule 1>> notation is
+cumbersome.  So there is an abbreviation.
+
+C<${$aref}[3]> is too hard to read, so you can write C<< $aref->[3] >>
+instead.
+
+C<${$href}{red}> is too hard to read, so you can write
+C<< $href->{red} >> instead.
+
+If C<$aref> holds a reference to an array, then C<< $aref->[3] >> is
+the fourth element of the array.  Don't confuse this with C<$aref[3]>,
+which is the fourth element of a totally different array, one
+deceptively named C<@aref>.  C<$aref> and C<@aref> are unrelated the
+same way that C<$item> and C<@item> are.
+
+Similarly, C<< $href->{'red'} >> is part of the hash referred to by
+the scalar variable C<$href>, perhaps even one with no name.
+C<$href{'red'}> is part of the deceptively named C<%href> hash.  It's
+easy to forget to leave out the C<< -> >>, and if you do, you'll get
+bizarre results when your program gets array and hash elements out of
+totally unexpected hashes and arrays that weren't the ones you wanted
+to use.
+
+
+=head2 An Example
+
+Let's see a quick example of how all this is useful.
+
+First, remember that C<[1, 2, 3]> makes an anonymous array containing
+C<(1, 2, 3)>, and gives you a reference to that array.
+
+Now think about
+
+	@a = ( [1, 2, 3],
+               [4, 5, 6],
+	       [7, 8, 9]
+             );
+
+C<@a> is an array with three elements, and each one is a reference to
+another array.
+
+C<$a[1]> is one of these references.  It refers to an array, the array
+containing C<(4, 5, 6)>, and because it is a reference to an array,
+L<B<Use Rule 2>|/B<Use Rule 2>> says that we can write C<< $a[1]->[2] >>
+to get the third element from that array.  C<< $a[1]->[2] >> is the 6.
+Similarly, C<< $a[0]->[1] >> is the 2.  What we have here is like a
+two-dimensional array; you can write C<< $a[ROW]->[COLUMN] >> to get or
+set the element in any row and any column of the array.
+
+The notation still looks a little cumbersome, so there's one more
+abbreviation:
+
+=head2 Arrow Rule
+
+In between two B<subscripts>, the arrow is optional.
+
+Instead of C<< $a[1]->[2] >>, we can write C<$a[1][2]>; it means the
+same thing.  Instead of C<< $a[0]->[1] = 23 >>, we can write
+C<$a[0][1] = 23>; it means the same thing.
+
+Now it really looks like two-dimensional arrays!
+
+You can see why the arrows are important.  Without them, we would have
+had to write C<${$a[1]}[2]> instead of C<$a[1][2]>.  For
+three-dimensional arrays, they let us write C<$x[2][3][5]> instead of
+the unreadable C<${${$x[2]}[3]}[5]>.
+
+=head1 Solution
+
+Here's the answer to the problem I posed earlier, of reformatting a
+file of city and country names.
+
+    1   my %table;
+
+    2   while (<>) {
+    3     chomp;
+    4     my ($city, $country) = split /, /;
+    5     $table{$country} = [] unless exists $table{$country};
+    6     push @{$table{$country}}, $city;
+    7   }
+
+    8   for my $country (sort keys %table) {
+    9     print "$country: ";
+   10     my @cities = @{$table{$country}};
+   11     print join ', ', sort @cities;
+   12     print ".\n";
+   13	}
+
+
+The program has two pieces: Lines 2-7 read the input and build a data
+structure, and lines 8-13 analyze the data and print out the report.
+We're going to have a hash, C<%table>, whose keys are country names,
+and whose values are references to arrays of city names.  The data
+structure will look like this:
+
+
+           %table
+        +-------+---+
+        |       |   |   +-----------+--------+
+        |Germany| *---->| Frankfurt | Berlin |
+        |       |   |   +-----------+--------+
+        +-------+---+
+        |       |   |   +----------+
+        |Finland| *---->| Helsinki |
+        |       |   |   +----------+
+        +-------+---+
+        |       |   |   +---------+------------+----------+
+        |  USA  | *---->| Chicago | Washington | New York |
+        |       |   |   +---------+------------+----------+
+        +-------+---+
+
+We'll look at output first.  Supposing we already have this structure,
+how do we print it out?
+
+    8   for my $country (sort keys %table) {
+    9     print "$country: ";
+   10     my @cities = @{$table{$country}};
+   11     print join ', ', sort @cities;
+   12     print ".\n";
+   13	}
+
+C<%table> is an ordinary hash, and we get a list of keys from it, sort
+the keys, and loop over the keys as usual.  The only use of references
+is in line 10.  C<$table{$country}> looks up the key C<$country> in the
+hash and gets the value, which is a reference to an array of cities in
+that country.  L<B<Use Rule 1>|/B<Use Rule 1>> says that we can recover
+the array by saying C<@{$table{$country}}>.  Line 10 is just like
+
+	@cities = @array;
+
+except that the name C<array> has been replaced by the reference
+C<{$table{$country}}>.  The C<@> tells Perl to get the entire array.
+Having gotten the list of cities, we sort it, join it, and print it
+out as usual.
+
+Lines 2-7 are responsible for building the structure in the first
+place.  Here they are again:
+
+    2   while (<>) {
+    3     chomp;
+    4     my ($city, $country) = split /, /;
+    5     $table{$country} = [] unless exists $table{$country};
+    6     push @{$table{$country}}, $city;
+    7   }
+
+Lines 2-4 acquire a city and country name.  Line 5 looks to see if the
+country is already present as a key in the hash.  If it's not, the
+program uses the C<[]> notation (L<B<Make Rule 2>|/B<Make Rule 2>>) to
+manufacture a new, empty anonymous array of cities, and installs a
+reference to it into the hash under the appropriate key.
+
+Line 6 installs the city name into the appropriate array.
+C<$table{$country}> now holds a reference to the array of cities seen
+in that country so far.  Line 6 is exactly like
+
+	push @array, $city;
+
+except that the name C<array> has been replaced by the reference
+C<{$table{$country}}>.  The L<C<push>|perlfunc/push ARRAY,LIST> adds a
+city name to the end of the referred-to array.
+
+There's one fine point I skipped.  Line 5 is unnecessary, and we can
+get rid of it.
+
+    2   while (<>) {
+    3     chomp;
+    4     my ($city, $country) = split /, /;
+    5   ####  $table{$country} = [] unless exists $table{$country};
+    6     push @{$table{$country}}, $city;
+    7   }
+
+If there's already an entry in C<%table> for the current C<$country>,
+then nothing is different.  Line 6 will locate the value in
+C<$table{$country}>, which is a reference to an array, and push C<$city>
+into the array.  But what does it do when C<$country> holds a key, say
+C<Greece>, that is not yet in C<%table>?
+
+This is Perl, so it does the exact right thing.  It sees that you want
+to push C<Athens> onto an array that doesn't exist, so it helpfully
+makes a new, empty, anonymous array for you, installs it into
+C<%table>, and then pushes C<Athens> onto it.  This is called
+I<autovivification>--bringing things to life automatically.  Perl saw
+that the key wasn't in the hash, so it created a new hash entry
+automatically. Perl saw that you wanted to use the hash value as an
+array, so it created a new empty array and installed a reference to it
+in the hash automatically.  And as usual, Perl made the array one
+element longer to hold the new city name.
+
+=head1 The Rest
+
+I promised to give you 90% of the benefit with 10% of the details, and
+that means I left out 90% of the details.  Now that you have an
+overview of the important parts, it should be easier to read the
+L<perlref> manual page, which discusses 100% of the details.
+
+Some of the highlights of L<perlref>:
+
+=over 4
+
+=item *
+
+You can make references to anything, including scalars, functions, and
+other references.
+
+=item *
+
+In L<B<Use Rule 1>|/B<Use Rule 1>>, you can omit the curly brackets
+whenever the thing inside them is an atomic scalar variable like
+C<$aref>.  For example, C<@$aref> is the same as C<@{$aref}>, and
+C<$$aref[1]> is the same as C<${$aref}[1]>.  If you're just starting
+out, you may want to adopt the habit of always including the curly
+brackets.
+
+=item *
+
+This doesn't copy the underlying array:
+
+        $aref2 = $aref1;
+
+You get two references to the same array.  If you modify
+C<< $aref1->[23] >> and then look at
+C<< $aref2->[23] >> you'll see the change.
+
+To copy the array, use
+
+        $aref2 = [@{$aref1}];
+
+This uses C<[...]> notation to create a new anonymous array, and
+C<$aref2> is assigned a reference to the new array.  The new array is
+initialized with the contents of the array referred to by C<$aref1>.
+
+Similarly, to copy an anonymous hash, you can use
+
+        $href2 = {%{$href1}};
+
+=item *
+
+To see if a variable contains a reference, use the
+L<C<ref>|perlfunc/ref EXPR> function.  It returns true if its argument
+is a reference.  Actually it's a little better than that: It returns
+C<HASH> for hash references and C<ARRAY> for array references.
+
+=item *
+
+If you try to use a reference like a string, you get strings like
+
+	ARRAY(0x80f5dec)   or    HASH(0x826afc0)
+
+If you ever see a string that looks like this, you'll know you
+printed out a reference by mistake.
+
+A side effect of this representation is that you can use
+L<C<eq>|perlop/Equality Operators> to see if two references refer to the
+same thing.  (But you should usually use
+L<C<==>|perlop/Equality Operators> instead because it's much faster.)
+
+=item *
+
+You can use a string as if it were a reference.  If you use the string
+C<"foo"> as an array reference, it's taken to be a reference to the
+array C<@foo>.  This is called a I<symbolic reference>.  The declaration
+L<C<use strict 'refs'>|strict> disables this feature, which can cause
+all sorts of trouble if you use it by accident.
+
+=back
+
+You might prefer to go on to L<perllol> instead of L<perlref>; it
+discusses lists of lists and multidimensional arrays in detail.  After
+that, you should move on to L<perldsc>; it's a Data Structure Cookbook
+that shows recipes for using and printing out arrays of hashes, hashes
+of arrays, and other kinds of data.
+
+=head1 Summary
+
+Everyone needs compound data structures, and in Perl the way you get
+them is with references.  There are four important rules for managing
+references: Two for making references and two for using them.  Once
+you know these rules you can do most of the important things you need
+to do with references.
+
+=head1 Credits
+
+Author: Mark Jason Dominus, Plover Systems (C<mjd-perl-ref+@plover.com>)
+
+This article originally appeared in I<The Perl Journal>
+( http://www.tpj.com/ ) volume 3, #2.  Reprinted with permission.
+
+The original title was I<Understand References Today>.
+
+=head2 Distribution Conditions
+
+Copyright 1998 The Perl Journal.
+
+This documentation is free; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+Irrespective of its distribution, all code examples in these files are
+hereby placed into the public domain.  You are permitted and
+encouraged to use this code in your own programs for fun or for profit
+as you see fit.  A simple comment in the code giving credit would be
+courteous but is not required.
+
+
+
+
+=cut
diff --git a/lib/5.24.1/pod/perlreguts.pod b/lib/5.24.1/pod/perlreguts.pod
new file mode 100644
index 00000000..eac08f5d
--- /dev/null
+++ b/lib/5.24.1/pod/perlreguts.pod
@@ -0,0 +1,904 @@
+=head1 NAME
+
+perlreguts - Description of the Perl regular expression engine.
+
+=head1 DESCRIPTION
+
+This document is an attempt to shine some light on the guts of the regex
+engine and how it works. The regex engine represents a significant chunk
+of the perl codebase, but is relatively poorly understood. This document
+is a meagre attempt at addressing this situation. It is derived from the
+author's experience, comments in the source code, other papers on the
+regex engine, feedback on the perl5-porters mail list, and no doubt other
+places as well.
+
+B<NOTICE!> It should be clearly understood that the behavior and
+structures discussed in this represents the state of the engine as the
+author understood it at the time of writing. It is B<NOT> an API
+definition, it is purely an internals guide for those who want to hack
+the regex engine, or understand how the regex engine works. Readers of
+this document are expected to understand perl's regex syntax and its
+usage in detail. If you want to learn about the basics of Perl's
+regular expressions, see L<perlre>. And if you want to replace the
+regex engine with your own, see L<perlreapi>.
+
+=head1 OVERVIEW
+
+=head2 A quick note on terms
+
+There is some debate as to whether to say "regexp" or "regex". In this
+document we will use the term "regex" unless there is a special reason
+not to, in which case we will explain why.
+
+When speaking about regexes we need to distinguish between their source
+code form and their internal form. In this document we will use the term
+"pattern" when we speak of their textual, source code form, and the term
+"program" when we speak of their internal representation. These
+correspond to the terms I<S-regex> and I<B-regex> that Mark Jason
+Dominus employs in his paper on "Rx" ([1] in L</REFERENCES>).
+
+=head2 What is a regular expression engine?
+
+A regular expression engine is a program that takes a set of constraints
+specified in a mini-language, and then applies those constraints to a
+target string, and determines whether or not the string satisfies the
+constraints. See L<perlre> for a full definition of the language.
+
+In less grandiose terms, the first part of the job is to turn a pattern into
+something the computer can efficiently use to find the matching point in
+the string, and the second part is performing the search itself.
+
+To do this we need to produce a program by parsing the text. We then
+need to execute the program to find the point in the string that
+matches. And we need to do the whole thing efficiently.
+
+=head2 Structure of a Regexp Program
+
+=head3 High Level
+
+Although it is a bit confusing and some people object to the terminology, it
+is worth taking a look at a comment that has
+been in F<regexp.h> for years:
+
+I<This is essentially a linear encoding of a nondeterministic
+finite-state machine (aka syntax charts or "railroad normal form" in
+parsing technology).>
+
+The term "railroad normal form" is a bit esoteric, with "syntax
+diagram/charts", or "railroad diagram/charts" being more common terms.
+Nevertheless it provides a useful mental image of a regex program: each
+node can be thought of as a unit of track, with a single entry and in
+most cases a single exit point (there are pieces of track that fork, but
+statistically not many), and the whole forms a layout with a
+single entry and single exit point. The matching process can be thought
+of as a car that moves along the track, with the particular route through
+the system being determined by the character read at each possible
+connector point. A car can fall off the track at any point but it may
+only proceed as long as it matches the track.
+
+Thus the pattern C</foo(?:\w+|\d+|\s+)bar/> can be thought of as the
+following chart:
+
+                      [start]
+                         |
+                       <foo>
+                         |
+                   +-----+-----+
+                   |     |     |
+                 <\w+> <\d+> <\s+>
+                   |     |     |
+                   +-----+-----+
+                         |
+                       <bar>
+                         |
+                       [end]
+
+The truth of the matter is that perl's regular expressions these days are
+much more complex than this kind of structure, but visualising it this way
+can help when trying to get your bearings, and it matches the
+current implementation pretty closely.
+
+To be more precise, we will say that a regex program is an encoding
+of a graph. Each node in the graph corresponds to part of
+the original regex pattern, such as a literal string or a branch,
+and has a pointer to the nodes representing the next component
+to be matched. Since "node" and "opcode" already have other meanings in the
+perl source, we will call the nodes in a regex program "regops".
+
+The program is represented by an array of C<regnode> structures, one or
+more of which represent a single regop of the program. Struct
+C<regnode> is the smallest struct needed, and has a field structure which is
+shared with all the other larger structures.
+
+The "next" pointers of all regops except C<BRANCH> implement concatenation;
+a "next" pointer with a C<BRANCH> on both ends of it is connecting two
+alternatives.  [Here we have one of the subtle syntax dependencies: an
+individual C<BRANCH> (as opposed to a collection of them) is never
+concatenated with anything because of operator precedence.]
+
+The operand of some types of regop is a literal string; for others,
+it is a regop leading into a sub-program.  In particular, the operand
+of a C<BRANCH> node is the first regop of the branch.
+
+B<NOTE>: As the railroad metaphor suggests, this is B<not> a tree
+structure:  the tail of the branch connects to the thing following the
+set of C<BRANCH>es.  It is a like a single line of railway track that
+splits as it goes into a station or railway yard and rejoins as it comes
+out the other side.
+
+=head3 Regops
+
+The base structure of a regop is defined in F<regexp.h> as follows:
+
+    struct regnode {
+        U8  flags;    /* Various purposes, sometimes overridden */
+        U8  type;     /* Opcode value as specified by regnodes.h */
+        U16 next_off; /* Offset in size regnode */
+    };
+
+Other larger C<regnode>-like structures are defined in F<regcomp.h>. They
+are almost like subclasses in that they have the same fields as
+C<regnode>, with possibly additional fields following in
+the structure, and in some cases the specific meaning (and name)
+of some of base fields are overridden. The following is a more
+complete description.
+
+=over 4
+
+=item C<regnode_1>
+
+=item C<regnode_2>
+
+C<regnode_1> structures have the same header, followed by a single
+four-byte argument; C<regnode_2> structures contain two two-byte
+arguments instead:
+
+    regnode_1                U32 arg1;
+    regnode_2                U16 arg1;  U16 arg2;
+
+=item C<regnode_string>
+
+C<regnode_string> structures, used for literal strings, follow the header
+with a one-byte length and then the string data. Strings are padded on
+the end with zero bytes so that the total length of the node is a
+multiple of four bytes:
+
+    regnode_string           char string[1];
+                             U8 str_len; /* overrides flags */
+
+=item C<regnode_charclass>
+
+Bracketed character classes are represented by C<regnode_charclass>
+structures, which have a four-byte argument and then a 32-byte (256-bit)
+bitmap indicating which characters in the Latin1 range are included in
+the class.
+
+    regnode_charclass        U32 arg1;
+                             char bitmap[ANYOF_BITMAP_SIZE];
+
+Various flags whose names begin with C<ANYOF_> are used for special
+situations.  Above Latin1 matches and things not known until run-time
+are stored in L</Perl's pprivate structure>.
+
+=item C<regnode_charclass_posixl>
+
+There is also a larger form of a char class structure used to represent
+POSIX char classes under C</l> matching,
+called C<regnode_charclass_posixl> which has an
+additional 32-bit bitmap indicating which POSIX char classes
+have been included.
+
+   regnode_charclass_posixl U32 arg1;
+                            char bitmap[ANYOF_BITMAP_SIZE];
+                            U32 classflags;
+
+=back
+
+F<regnodes.h> defines an array called C<regarglen[]> which gives the size
+of each opcode in units of C<size regnode> (4-byte). A macro is used
+to calculate the size of an C<EXACT> node based on its C<str_len> field.
+
+The regops are defined in F<regnodes.h> which is generated from
+F<regcomp.sym> by F<regcomp.pl>. Currently the maximum possible number
+of distinct regops is restricted to 256, with about a quarter already
+used.
+
+A set of macros makes accessing the fields
+easier and more consistent. These include C<OP()>, which is used to determine
+the type of a C<regnode>-like structure; C<NEXT_OFF()>, which is the offset to
+the next node (more on this later); C<ARG()>, C<ARG1()>, C<ARG2()>, C<ARG_SET()>,
+and equivalents for reading and setting the arguments; and C<STR_LEN()>,
+C<STRING()> and C<OPERAND()> for manipulating strings and regop bearing
+types.
+
+=head3 What regop is next?
+
+There are three distinct concepts of "next" in the regex engine, and
+it is important to keep them clear.
+
+=over 4
+
+=item *
+
+There is the "next regnode" from a given regnode, a value which is
+rarely useful except that sometimes it matches up in terms of value
+with one of the others, and that sometimes the code assumes this to
+always be so.
+
+=item *
+
+There is the "next regop" from a given regop/regnode. This is the
+regop physically located after the current one, as determined by
+the size of the current regop. This is often useful, such as when
+dumping the structure we use this order to traverse. Sometimes the code
+assumes that the "next regnode" is the same as the "next regop", or in
+other words assumes that the sizeof a given regop type is always going
+to be one regnode large.
+
+=item *
+
+There is the "regnext" from a given regop. This is the regop which
+is reached by jumping forward by the value of C<NEXT_OFF()>,
+or in a few cases for longer jumps by the C<arg1> field of the C<regnode_1>
+structure. The subroutine C<regnext()> handles this transparently.
+This is the logical successor of the node, which in some cases, like
+that of the C<BRANCH> regop, has special meaning.
+
+=back
+
+=head1 Process Overview
+
+Broadly speaking, performing a match of a string against a pattern
+involves the following steps:
+
+=over 5
+
+=item A. Compilation
+
+=over 5
+
+=item 1. Parsing for size
+
+=item 2. Parsing for construction
+
+=item 3. Peep-hole optimisation and analysis
+
+=back
+
+=item B. Execution
+
+=over 5
+
+=item 4. Start position and no-match optimisations
+
+=item 5. Program execution
+
+=back
+
+=back
+
+
+Where these steps occur in the actual execution of a perl program is
+determined by whether the pattern involves interpolating any string
+variables. If interpolation occurs, then compilation happens at run time. If it
+does not, then compilation is performed at compile time. (The C</o> modifier changes this,
+as does C<qr//> to a certain extent.) The engine doesn't really care that
+much.
+
+=head2 Compilation
+
+This code resides primarily in F<regcomp.c>, along with the header files
+F<regcomp.h>, F<regexp.h> and F<regnodes.h>.
+
+Compilation starts with C<pregcomp()>, which is mostly an initialisation
+wrapper which farms work out to two other routines for the heavy lifting: the
+first is C<reg()>, which is the start point for parsing; the second,
+C<study_chunk()>, is responsible for optimisation.
+
+Initialisation in C<pregcomp()> mostly involves the creation and data-filling
+of a special structure, C<RExC_state_t> (defined in F<regcomp.c>).
+Almost all internally-used routines in F<regcomp.h> take a pointer to one
+of these structures as their first argument, with the name C<pRExC_state>.
+This structure is used to store the compilation state and contains many
+fields. Likewise there are many macros which operate on this
+variable: anything that looks like C<RExC_xxxx> is a macro that operates on
+this pointer/structure.
+
+=head3 Parsing for size
+
+In this pass the input pattern is parsed in order to calculate how much
+space is needed for each regop we would need to emit. The size is also
+used to determine whether long jumps will be required in the program.
+
+This stage is controlled by the macro C<SIZE_ONLY> being set.
+
+The parse proceeds pretty much exactly as it does during the
+construction phase, except that most routines are short-circuited to
+change the size field C<RExC_size> and not do anything else.
+
+=head3 Parsing for construction
+
+Once the size of the program has been determined, the pattern is parsed
+again, but this time for real. Now C<SIZE_ONLY> will be false, and the
+actual construction can occur.
+
+C<reg()> is the start of the parse process. It is responsible for
+parsing an arbitrary chunk of pattern up to either the end of the
+string, or the first closing parenthesis it encounters in the pattern.
+This means it can be used to parse the top-level regex, or any section
+inside of a grouping parenthesis. It also handles the "special parens"
+that perl's regexes have. For instance when parsing C</x(?:foo)y/> C<reg()>
+will at one point be called to parse from the "?" symbol up to and
+including the ")".
+
+Additionally, C<reg()> is responsible for parsing the one or more
+branches from the pattern, and for "finishing them off" by correctly
+setting their next pointers. In order to do the parsing, it repeatedly
+calls out to C<regbranch()>, which is responsible for handling up to the
+first C<|> symbol it sees.
+
+C<regbranch()> in turn calls C<regpiece()> which
+handles "things" followed by a quantifier. In order to parse the
+"things", C<regatom()> is called. This is the lowest level routine, which
+parses out constant strings, character classes, and the
+various special symbols like C<$>. If C<regatom()> encounters a "("
+character it in turn calls C<reg()>.
+
+The routine C<regtail()> is called by both C<reg()> and C<regbranch()>
+in order to "set the tail pointer" correctly. When executing and
+we get to the end of a branch, we need to go to the node following the
+grouping parens. When parsing, however, we don't know where the end will
+be until we get there, so when we do we must go back and update the
+offsets as appropriate. C<regtail> is used to make this easier.
+
+A subtlety of the parsing process means that a regex like C</foo/> is
+originally parsed into an alternation with a single branch. It is only
+afterwards that the optimiser converts single branch alternations into the
+simpler form.
+
+=head3 Parse Call Graph and a Grammar
+
+The call graph looks like this:
+
+ reg()                        # parse a top level regex, or inside of
+                              # parens
+     regbranch()              # parse a single branch of an alternation
+         regpiece()           # parse a pattern followed by a quantifier
+             regatom()        # parse a simple pattern
+                 regclass()   #   used to handle a class
+                 reg()        #   used to handle a parenthesised
+                              #   subpattern
+                 ....
+         ...
+         regtail()            # finish off the branch
+     ...
+     regtail()                # finish off the branch sequence. Tie each
+                              # branch's tail to the tail of the
+                              # sequence
+                              # (NEW) In Debug mode this is
+                              # regtail_study().
+
+A grammar form might be something like this:
+
+    atom  : constant | class
+    quant : '*' | '+' | '?' | '{min,max}'
+    _branch: piece
+           | piece _branch
+           | nothing
+    branch: _branch
+          | _branch '|' branch
+    group : '(' branch ')'
+    _piece: atom | group
+    piece : _piece
+          | _piece quant
+
+=head3 Parsing complications
+
+The implication of the above description is that a pattern containing nested
+parentheses will result in a call graph which cycles through C<reg()>,
+C<regbranch()>, C<regpiece()>, C<regatom()>, C<reg()>, C<regbranch()> I<etc>
+multiple times, until the deepest level of nesting is reached. All the above
+routines return a pointer to a C<regnode>, which is usually the last regnode
+added to the program. However, one complication is that reg() returns NULL
+for parsing C<(?:)> syntax for embedded modifiers, setting the flag
+C<TRYAGAIN>. The C<TRYAGAIN> propagates upwards until it is captured, in
+some cases by C<regatom()>, but otherwise unconditionally by
+C<regbranch()>. Hence it will never be returned by C<regbranch()> to
+C<reg()>. This flag permits patterns such as C<(?i)+> to be detected as
+errors (I<Quantifier follows nothing in regex; marked by <-- HERE in m/(?i)+
+<-- HERE />).
+
+Another complication is that the representation used for the program differs
+if it needs to store Unicode, but it's not always possible to know for sure
+whether it does until midway through parsing. The Unicode representation for
+the program is larger, and cannot be matched as efficiently. (See L</Unicode
+and Localisation Support> below for more details as to why.)  If the pattern
+contains literal Unicode, it's obvious that the program needs to store
+Unicode. Otherwise, the parser optimistically assumes that the more
+efficient representation can be used, and starts sizing on this basis.
+However, if it then encounters something in the pattern which must be stored
+as Unicode, such as an C<\x{...}> escape sequence representing a character
+literal, then this means that all previously calculated sizes need to be
+redone, using values appropriate for the Unicode representation. Currently,
+all regular expression constructions which can trigger this are parsed by code
+in C<regatom()>.
+
+To avoid wasted work when a restart is needed, the sizing pass is abandoned
+- C<regatom()> immediately returns NULL, setting the flag C<RESTART_UTF8>.
+(This action is encapsulated using the macro C<REQUIRE_UTF8>.) This restart
+request is propagated up the call chain in a similar fashion, until it is
+"caught" in C<Perl_re_op_compile()>, which marks the pattern as containing
+Unicode, and restarts the sizing pass. It is also possible for constructions
+within run-time code blocks to turn out to need Unicode representation.,
+which is signalled by C<S_compile_runtime_code()> returning false to
+C<Perl_re_op_compile()>.
+
+The restart was previously implemented using a C<longjmp> in C<regatom()>
+back to a C<setjmp> in C<Perl_re_op_compile()>, but this proved to be
+problematic as the latter is a large function containing many automatic
+variables, which interact badly with the emergent control flow of C<setjmp>.
+
+=head3 Debug Output
+
+In the 5.9.x development version of perl you can C<< use re Debug => 'PARSE' >>
+to see some trace information about the parse process. We will start with some
+simple patterns and build up to more complex patterns.
+
+So when we parse C</foo/> we see something like the following table. The
+left shows what is being parsed, and the number indicates where the next regop
+would go. The stuff on the right is the trace output of the graph. The
+names are chosen to be short to make it less dense on the screen. 'tsdy'
+is a special form of C<regtail()> which does some extra analysis.
+
+ >foo<             1    reg
+                          brnc
+                            piec
+                              atom
+ ><                4      tsdy~ EXACT <foo> (EXACT) (1)
+                              ~ attach to END (3) offset to 2
+
+The resulting program then looks like:
+
+   1: EXACT <foo>(3)
+   3: END(0)
+
+As you can see, even though we parsed out a branch and a piece, it was ultimately
+only an atom. The final program shows us how things work. We have an C<EXACT> regop,
+followed by an C<END> regop. The number in parens indicates where the C<regnext> of
+the node goes. The C<regnext> of an C<END> regop is unused, as C<END> regops mean
+we have successfully matched. The number on the left indicates the position of
+the regop in the regnode array.
+
+Now let's try a harder pattern. We will add a quantifier, so now we have the pattern
+C</foo+/>. We will see that C<regbranch()> calls C<regpiece()> twice.
+
+ >foo+<            1    reg
+                          brnc
+                            piec
+                              atom
+ >o+<              3        piec
+                              atom
+ ><                6        tail~ EXACT <fo> (1)
+                   7      tsdy~ EXACT <fo> (EXACT) (1)
+                              ~ PLUS (END) (3)
+                              ~ attach to END (6) offset to 3
+
+And we end up with the program:
+
+   1: EXACT <fo>(3)
+   3: PLUS(6)
+   4:   EXACT <o>(0)
+   6: END(0)
+
+Now we have a special case. The C<EXACT> regop has a C<regnext> of 0. This is
+because if it matches it should try to match itself again. The C<PLUS> regop
+handles the actual failure of the C<EXACT> regop and acts appropriately (going
+to regnode 6 if the C<EXACT> matched at least once, or failing if it didn't).
+
+Now for something much more complex: C</x(?:foo*|b[a][rR])(foo|bar)$/>
+
+ >x(?:foo*|b...    1    reg
+                          brnc
+                            piec
+                              atom
+ >(?:foo*|b[...    3        piec
+                              atom
+ >?:foo*|b[a...                 reg
+ >foo*|b[a][...                   brnc
+                                    piec
+                                      atom
+ >o*|b[a][rR...    5                piec
+                                      atom
+ >|b[a][rR])...    8                tail~ EXACT <fo> (3)
+ >b[a][rR])(...    9              brnc
+                  10                piec
+                                      atom
+ >[a][rR])(f...   12                piec
+                                      atom
+ >a][rR])(fo...                         clas
+ >[rR])(foo|...   14                tail~ EXACT <b> (10)
+                                    piec
+                                      atom
+ >rR])(foo|b...                         clas
+ >)(foo|bar)...   25                tail~ EXACT <a> (12)
+                                  tail~ BRANCH (3)
+                  26              tsdy~ BRANCH (END) (9)
+                                      ~ attach to TAIL (25) offset to 16
+                                  tsdy~ EXACT <fo> (EXACT) (4)
+                                      ~ STAR (END) (6)
+                                      ~ attach to TAIL (25) offset to 19
+                                  tsdy~ EXACT <b> (EXACT) (10)
+                                      ~ EXACT <a> (EXACT) (12)
+                                      ~ ANYOF[Rr] (END) (14)
+                                      ~ attach to TAIL (25) offset to 11
+ >(foo|bar)$<               tail~ EXACT <x> (1)
+                            piec
+                              atom
+ >foo|bar)$<                    reg
+                  28              brnc
+                                    piec
+                                      atom
+ >|bar)$<         31              tail~ OPEN1 (26)
+ >bar)$<                          brnc
+                  32                piec
+                                      atom
+ >)$<             34              tail~ BRANCH (28)
+                  36              tsdy~ BRANCH (END) (31)
+                                     ~ attach to CLOSE1 (34) offset to 3
+                                  tsdy~ EXACT <foo> (EXACT) (29)
+                                     ~ attach to CLOSE1 (34) offset to 5
+                                  tsdy~ EXACT <bar> (EXACT) (32)
+                                     ~ attach to CLOSE1 (34) offset to 2
+ >$<                        tail~ BRANCH (3)
+                                ~ BRANCH (9)
+                                ~ TAIL (25)
+                            piec
+                              atom
+ ><               37        tail~ OPEN1 (26)
+                                ~ BRANCH (28)
+                                ~ BRANCH (31)
+                                ~ CLOSE1 (34)
+                  38      tsdy~ EXACT <x> (EXACT) (1)
+                              ~ BRANCH (END) (3)
+                              ~ BRANCH (END) (9)
+                              ~ TAIL (END) (25)
+                              ~ OPEN1 (END) (26)
+                              ~ BRANCH (END) (28)
+                              ~ BRANCH (END) (31)
+                              ~ CLOSE1 (END) (34)
+                              ~ EOL (END) (36)
+                              ~ attach to END (37) offset to 1
+
+Resulting in the program
+
+   1: EXACT <x>(3)
+   3: BRANCH(9)
+   4:   EXACT <fo>(6)
+   6:   STAR(26)
+   7:     EXACT <o>(0)
+   9: BRANCH(25)
+  10:   EXACT <ba>(14)
+  12:   OPTIMIZED (2 nodes)
+  14:   ANYOF[Rr](26)
+  25: TAIL(26)
+  26: OPEN1(28)
+  28:   TRIE-EXACT(34)
+        [StS:1 Wds:2 Cs:6 Uq:5 #Sts:7 Mn:3 Mx:3 Stcls:bf]
+          <foo>
+          <bar>
+  30:   OPTIMIZED (4 nodes)
+  34: CLOSE1(36)
+  36: EOL(37)
+  37: END(0)
+
+Here we can see a much more complex program, with various optimisations in
+play. At regnode 10 we see an example where a character class with only
+one character in it was turned into an C<EXACT> node. We can also see where
+an entire alternation was turned into a C<TRIE-EXACT> node. As a consequence,
+some of the regnodes have been marked as optimised away. We can see that
+the C<$> symbol has been converted into an C<EOL> regop, a special piece of
+code that looks for C<\n> or the end of the string.
+
+The next pointer for C<BRANCH>es is interesting in that it points at where
+execution should go if the branch fails. When executing, if the engine
+tries to traverse from a branch to a C<regnext> that isn't a branch then
+the engine will know that the entire set of branches has failed.
+
+=head3 Peep-hole Optimisation and Analysis
+
+The regular expression engine can be a weighty tool to wield. On long
+strings and complex patterns it can end up having to do a lot of work
+to find a match, and even more to decide that no match is possible.
+Consider a situation like the following pattern.
+
+   'ababababababababababab' =~ /(a|b)*z/
+
+The C<(a|b)*> part can match at every char in the string, and then fail
+every time because there is no C<z> in the string. So obviously we can
+avoid using the regex engine unless there is a C<z> in the string.
+Likewise in a pattern like:
+
+   /foo(\w+)bar/
+
+In this case we know that the string must contain a C<foo> which must be
+followed by C<bar>. We can use Fast Boyer-Moore matching as implemented
+in C<fbm_instr()> to find the location of these strings. If they don't exist
+then we don't need to resort to the much more expensive regex engine.
+Even better, if they do exist then we can use their positions to
+reduce the search space that the regex engine needs to cover to determine
+if the entire pattern matches.
+
+There are various aspects of the pattern that can be used to facilitate
+optimisations along these lines:
+
+=over 5
+
+=item * anchored fixed strings
+
+=item * floating fixed strings
+
+=item * minimum and maximum length requirements
+
+=item * start class
+
+=item * Beginning/End of line positions
+
+=back
+
+Another form of optimisation that can occur is the post-parse "peep-hole"
+optimisation, where inefficient constructs are replaced by more efficient
+constructs. The C<TAIL> regops which are used during parsing to mark the end
+of branches and the end of groups are examples of this. These regops are used
+as place-holders during construction and "always match" so they can be
+"optimised away" by making the things that point to the C<TAIL> point to the
+thing that C<TAIL> points to, thus "skipping" the node.
+
+Another optimisation that can occur is that of "C<EXACT> merging" which is
+where two consecutive C<EXACT> nodes are merged into a single
+regop. An even more aggressive form of this is that a branch
+sequence of the form C<EXACT BRANCH ... EXACT> can be converted into a
+C<TRIE-EXACT> regop.
+
+All of this occurs in the routine C<study_chunk()> which uses a special
+structure C<scan_data_t> to store the analysis that it has performed, and
+does the "peep-hole" optimisations as it goes.
+
+The code involved in C<study_chunk()> is extremely cryptic. Be careful. :-)
+
+=head2 Execution
+
+Execution of a regex generally involves two phases, the first being
+finding the start point in the string where we should match from,
+and the second being running the regop interpreter.
+
+If we can tell that there is no valid start point then we don't bother running
+the interpreter at all. Likewise, if we know from the analysis phase that we
+cannot detect a short-cut to the start position, we go straight to the
+interpreter.
+
+The two entry points are C<re_intuit_start()> and C<pregexec()>. These routines
+have a somewhat incestuous relationship with overlap between their functions,
+and C<pregexec()> may even call C<re_intuit_start()> on its own. Nevertheless
+other parts of the perl source code may call into either, or both.
+
+Execution of the interpreter itself used to be recursive, but thanks to the
+efforts of Dave Mitchell in the 5.9.x development track, that has changed: now an
+internal stack is maintained on the heap and the routine is fully
+iterative. This can make it tricky as the code is quite conservative
+about what state it stores, with the result that two consecutive lines in the
+code can actually be running in totally different contexts due to the
+simulated recursion.
+
+=head3 Start position and no-match optimisations
+
+C<re_intuit_start()> is responsible for handling start points and no-match
+optimisations as determined by the results of the analysis done by
+C<study_chunk()> (and described in L<Peep-hole Optimisation and Analysis>).
+
+The basic structure of this routine is to try to find the start- and/or
+end-points of where the pattern could match, and to ensure that the string
+is long enough to match the pattern. It tries to use more efficient
+methods over less efficient methods and may involve considerable
+cross-checking of constraints to find the place in the string that matches.
+For instance it may try to determine that a given fixed string must be
+not only present but a certain number of chars before the end of the
+string, or whatever.
+
+It calls several other routines, such as C<fbm_instr()> which does
+Fast Boyer Moore matching and C<find_byclass()> which is responsible for
+finding the start using the first mandatory regop in the program.
+
+When the optimisation criteria have been satisfied, C<reg_try()> is called
+to perform the match.
+
+=head3 Program execution
+
+C<pregexec()> is the main entry point for running a regex. It contains
+support for initialising the regex interpreter's state, running
+C<re_intuit_start()> if needed, and running the interpreter on the string
+from various start positions as needed. When it is necessary to use
+the regex interpreter C<pregexec()> calls C<regtry()>.
+
+C<regtry()> is the entry point into the regex interpreter. It expects
+as arguments a pointer to a C<regmatch_info> structure and a pointer to
+a string.  It returns an integer 1 for success and a 0 for failure.
+It is basically a set-up wrapper around C<regmatch()>.
+
+C<regmatch> is the main "recursive loop" of the interpreter. It is
+basically a giant switch statement that implements a state machine, where
+the possible states are the regops themselves, plus a number of additional
+intermediate and failure states. A few of the states are implemented as
+subroutines but the bulk are inline code.
+
+=head1 MISCELLANEOUS
+
+=head2 Unicode and Localisation Support
+
+When dealing with strings containing characters that cannot be represented
+using an eight-bit character set, perl uses an internal representation
+that is a permissive version of Unicode's UTF-8 encoding[2]. This uses single
+bytes to represent characters from the ASCII character set, and sequences
+of two or more bytes for all other characters. (See L<perlunitut>
+for more information about the relationship between UTF-8 and perl's
+encoding, utf8. The difference isn't important for this discussion.)
+
+No matter how you look at it, Unicode support is going to be a pain in a
+regex engine. Tricks that might be fine when you have 256 possible
+characters often won't scale to handle the size of the UTF-8 character
+set.  Things you can take for granted with ASCII may not be true with
+Unicode. For instance, in ASCII, it is safe to assume that
+C<sizeof(char1) == sizeof(char2)>, but in UTF-8 it isn't. Unicode case folding is
+vastly more complex than the simple rules of ASCII, and even when not
+using Unicode but only localised single byte encodings, things can get
+tricky (for example, B<LATIN SMALL LETTER SHARP S> (U+00DF, E<szlig>)
+should match 'SS' in localised case-insensitive matching).
+
+Making things worse is that UTF-8 support was a later addition to the
+regex engine (as it was to perl) and this necessarily  made things a lot
+more complicated. Obviously it is easier to design a regex engine with
+Unicode support in mind from the beginning than it is to retrofit it to
+one that wasn't.
+
+Nearly all regops that involve looking at the input string have
+two cases, one for UTF-8, and one not. In fact, it's often more complex
+than that, as the pattern may be UTF-8 as well.
+
+Care must be taken when making changes to make sure that you handle
+UTF-8 properly, both at compile time and at execution time, including
+when the string and pattern are mismatched.
+
+=head2 Base Structures
+
+The C<regexp> structure described in L<perlreapi> is common to all
+regex engines. Two of its fields are intended for the private use
+of the regex engine that compiled the pattern. These are the
+C<intflags> and pprivate members. The C<pprivate> is a void pointer to
+an arbitrary structure whose use and management is the responsibility
+of the compiling engine. perl will never modify either of these
+values. In the case of the stock engine the structure pointed to by
+C<pprivate> is called C<regexp_internal>.
+
+Its C<pprivate> and C<intflags> fields contain data
+specific to each engine.
+
+There are two structures used to store a compiled regular expression.
+One, the C<regexp> structure described in L<perlreapi> is populated by
+the engine currently being. used and some of its fields read by perl to
+implement things such as the stringification of C<qr//>.
+
+
+The other structure is pointed to by the C<regexp> struct's
+C<pprivate> and is in addition to C<intflags> in the same struct
+considered to be the property of the regex engine which compiled the
+regular expression;
+
+The regexp structure contains all the data that perl needs to be aware of
+to properly work with the regular expression. It includes data about
+optimisations that perl can use to determine if the regex engine should
+really be used, and various other control info that is needed to properly
+execute patterns in various contexts such as is the pattern anchored in
+some way, or what flags were used during the compile, or whether the
+program contains special constructs that perl needs to be aware of.
+
+In addition it contains two fields that are intended for the private use
+of the regex engine that compiled the pattern. These are the C<intflags>
+and pprivate members. The C<pprivate> is a void pointer to an arbitrary
+structure whose use and management is the responsibility of the compiling
+engine. perl will never modify either of these values.
+
+As mentioned earlier, in the case of the default engines, the C<pprivate>
+will be a pointer to a regexp_internal structure which holds the compiled
+program and any additional data that is private to the regex engine
+implementation.
+
+=head3 Perl's C<pprivate> structure
+
+The following structure is used as the C<pprivate> struct by perl's
+regex engine. Since it is specific to perl it is only of curiosity
+value to other engine implementations.
+
+ typedef struct regexp_internal {
+         U32 *offsets;           /* offset annotations 20001228 MJD
+                                  * data about mapping the program to
+                                  * the string*/
+         regnode *regstclass;    /* Optional startclass as identified or
+                                  * constructed by the optimiser */
+         struct reg_data *data;  /* Additional miscellaneous data used
+                                  * by the program.  Used to make it
+                                  * easier to clone and free arbitrary
+                                  * data that the regops need. Often the
+                                  * ARG field of a regop is an index
+                                  * into this structure */
+         regnode program[1];     /* Unwarranted chumminess with
+                                  * compiler. */
+ } regexp_internal;
+
+=over 5
+
+=item C<offsets>
+
+Offsets holds a mapping of offset in the C<program>
+to offset in the C<precomp> string. This is only used by ActiveState's
+visual regex debugger.
+
+=item C<regstclass>
+
+Special regop that is used by C<re_intuit_start()> to check if a pattern
+can match at a certain position. For instance if the regex engine knows
+that the pattern must start with a 'Z' then it can scan the string until
+it finds one and then launch the regex engine from there. The routine
+that handles this is called C<find_by_class()>. Sometimes this field
+points at a regop embedded in the program, and sometimes it points at
+an independent synthetic regop that has been constructed by the optimiser.
+
+=item C<data>
+
+This field points at a C<reg_data> structure, which is defined as follows
+
+    struct reg_data {
+        U32 count;
+        U8 *what;
+        void* data[1];
+    };
+
+This structure is used for handling data structures that the regex engine
+needs to handle specially during a clone or free operation on the compiled
+product. Each element in the data array has a corresponding element in the
+what array. During compilation regops that need special structures stored
+will add an element to each array using the add_data() routine and then store
+the index in the regop.
+
+=item C<program>
+
+Compiled program. Inlined into the structure so the entire struct can be
+treated as a single blob.
+
+=back
+
+=head1 SEE ALSO
+
+L<perlreapi>
+
+L<perlre>
+
+L<perlunitut>
+
+=head1 AUTHOR
+
+by Yves Orton, 2006.
+
+With excerpts from Perl, and contributions and suggestions from
+Ronald J. Kimball, Dave Mitchell, Dominic Dunlop, Mark Jason Dominus,
+Stephen McCamant, and David Landgren.
+
+=head1 LICENCE
+
+Same terms as Perl.
+
+=head1 REFERENCES
+
+[1] L<http://perl.plover.com/Rx/paper/>
+
+[2] L<http://www.unicode.org>
+
+=cut
diff --git a/lib/5.24.1/pod/perlrepository.pod b/lib/5.24.1/pod/perlrepository.pod
new file mode 100644
index 00000000..5c4ab002
--- /dev/null
+++ b/lib/5.24.1/pod/perlrepository.pod
@@ -0,0 +1,18 @@
+=encoding utf8
+
+=head1 NAME
+
+perlrepository - Links to current information on the Perl source repository
+
+=head1 DESCRIPTION
+
+Perl's source code is stored in a Git repository.
+
+See L<perlhack> for an explanation of Perl development, including the
+L<Super Quick Patch Guide|perlhack/SUPER QUICK PATCH GUIDE> for making and
+submitting a small patch.
+
+See L<perlgit> for detailed information about Perl's Git repository.
+
+(The above documents supersede the information that was formerly here in
+perlrepository.)
diff --git a/lib/5.24.1/pod/perlrequick.pod b/lib/5.24.1/pod/perlrequick.pod
new file mode 100644
index 00000000..d72bd2b5
--- /dev/null
+++ b/lib/5.24.1/pod/perlrequick.pod
@@ -0,0 +1,534 @@
+=head1 NAME
+
+perlrequick - Perl regular expressions quick start
+
+=head1 DESCRIPTION
+
+This page covers the very basics of understanding, creating and
+using regular expressions ('regexes') in Perl.
+
+
+=head1 The Guide
+
+=head2 Simple word matching
+
+The simplest regex is simply a word, or more generally, a string of
+characters.  A regex consisting of a word matches any string that
+contains that word:
+
+    "Hello World" =~ /World/;  # matches
+
+In this statement, C<World> is a regex and the C<//> enclosing
+C</World/> tells Perl to search a string for a match.  The operator
+C<=~> associates the string with the regex match and produces a true
+value if the regex matched, or false if the regex did not match.  In
+our case, C<World> matches the second word in C<"Hello World">, so the
+expression is true.  This idea has several variations.
+
+Expressions like this are useful in conditionals:
+
+    print "It matches\n" if "Hello World" =~ /World/;
+
+The sense of the match can be reversed by using C<!~> operator:
+
+    print "It doesn't match\n" if "Hello World" !~ /World/;
+
+The literal string in the regex can be replaced by a variable:
+
+    $greeting = "World";
+    print "It matches\n" if "Hello World" =~ /$greeting/;
+
+If you're matching against C<$_>, the C<$_ =~> part can be omitted:
+
+    $_ = "Hello World";
+    print "It matches\n" if /World/;
+
+Finally, the C<//> default delimiters for a match can be changed to
+arbitrary delimiters by putting an C<'m'> out front:
+
+    "Hello World" =~ m!World!;   # matches, delimited by '!'
+    "Hello World" =~ m{World};   # matches, note the matching '{}'
+    "/usr/bin/perl" =~ m"/perl"; # matches after '/usr/bin',
+                                 # '/' becomes an ordinary char
+
+Regexes must match a part of the string I<exactly> in order for the
+statement to be true:
+
+    "Hello World" =~ /world/;  # doesn't match, case sensitive
+    "Hello World" =~ /o W/;    # matches, ' ' is an ordinary char
+    "Hello World" =~ /World /; # doesn't match, no ' ' at end
+
+Perl will always match at the earliest possible point in the string:
+
+    "Hello World" =~ /o/;       # matches 'o' in 'Hello'
+    "That hat is red" =~ /hat/; # matches 'hat' in 'That'
+
+Not all characters can be used 'as is' in a match.  Some characters,
+called B<metacharacters>, are reserved for use in regex notation.
+The metacharacters are
+
+    {}[]()^$.|*+?\
+
+A metacharacter can be matched by putting a backslash before it:
+
+    "2+2=4" =~ /2+2/;    # doesn't match, + is a metacharacter
+    "2+2=4" =~ /2\+2/;   # matches, \+ is treated like an ordinary +
+    'C:\WIN32' =~ /C:\\WIN/;                       # matches
+    "/usr/bin/perl" =~ /\/usr\/bin\/perl/;  # matches
+
+In the last regex, the forward slash C<'/'> is also backslashed,
+because it is used to delimit the regex.
+
+Non-printable ASCII characters are represented by B<escape sequences>.
+Common examples are C<\t> for a tab, C<\n> for a newline, and C<\r>
+for a carriage return.  Arbitrary bytes are represented by octal
+escape sequences, e.g., C<\033>, or hexadecimal escape sequences,
+e.g., C<\x1B>:
+
+    "1000\t2000" =~ m(0\t2)  # matches
+    "cat" =~ /\143\x61\x74/  # matches in ASCII, but 
+                             # a weird way to spell cat
+
+Regexes are treated mostly as double-quoted strings, so variable
+substitution works:
+
+    $foo = 'house';
+    'cathouse' =~ /cat$foo/;   # matches
+    'housecat' =~ /${foo}cat/; # matches
+
+With all of the regexes above, if the regex matched anywhere in the
+string, it was considered a match.  To specify I<where> it should
+match, we would use the B<anchor> metacharacters C<^> and C<$>.  The
+anchor C<^> means match at the beginning of the string and the anchor
+C<$> means match at the end of the string, or before a newline at the
+end of the string.  Some examples:
+
+    "housekeeper" =~ /keeper/;         # matches
+    "housekeeper" =~ /^keeper/;        # doesn't match
+    "housekeeper" =~ /keeper$/;        # matches
+    "housekeeper\n" =~ /keeper$/;      # matches
+    "housekeeper" =~ /^housekeeper$/;  # matches
+
+=head2 Using character classes
+
+A B<character class> allows a set of possible characters, rather than
+just a single character, to match at a particular point in a regex.
+Character classes are denoted by brackets C<[...]>, with the set of
+characters to be possibly matched inside.  Here are some examples:
+
+    /cat/;            # matches 'cat'
+    /[bcr]at/;        # matches 'bat', 'cat', or 'rat'
+    "abc" =~ /[cab]/; # matches 'a'
+
+In the last statement, even though C<'c'> is the first character in
+the class, the earliest point at which the regex can match is C<'a'>.
+
+    /[yY][eE][sS]/; # match 'yes' in a case-insensitive way
+                    # 'yes', 'Yes', 'YES', etc.
+    /yes/i;         # also match 'yes' in a case-insensitive way
+
+The last example shows a match with an C<'i'> B<modifier>, which makes
+the match case-insensitive.
+
+Character classes also have ordinary and special characters, but the
+sets of ordinary and special characters inside a character class are
+different than those outside a character class.  The special
+characters for a character class are C<-]\^$> and are matched using an
+escape:
+
+   /[\]c]def/; # matches ']def' or 'cdef'
+   $x = 'bcr';
+   /[$x]at/;   # matches 'bat, 'cat', or 'rat'
+   /[\$x]at/;  # matches '$at' or 'xat'
+   /[\\$x]at/; # matches '\at', 'bat, 'cat', or 'rat'
+
+The special character C<'-'> acts as a range operator within character
+classes, so that the unwieldy C<[0123456789]> and C<[abc...xyz]>
+become the svelte C<[0-9]> and C<[a-z]>:
+
+    /item[0-9]/;  # matches 'item0' or ... or 'item9'
+    /[0-9a-fA-F]/;  # matches a hexadecimal digit
+
+If C<'-'> is the first or last character in a character class, it is
+treated as an ordinary character.
+
+The special character C<^> in the first position of a character class
+denotes a B<negated character class>, which matches any character but
+those in the brackets.  Both C<[...]> and C<[^...]> must match a
+character, or the match fails.  Then
+
+    /[^a]at/;  # doesn't match 'aat' or 'at', but matches
+               # all other 'bat', 'cat, '0at', '%at', etc.
+    /[^0-9]/;  # matches a non-numeric character
+    /[a^]at/;  # matches 'aat' or '^at'; here '^' is ordinary
+
+Perl has several abbreviations for common character classes. (These
+definitions are those that Perl uses in ASCII-safe mode with the C</a> modifier.
+Otherwise they could match many more non-ASCII Unicode characters as
+well.  See L<perlrecharclass/Backslash sequences> for details.)
+
+=over 4
+
+=item *
+
+\d is a digit and represents
+
+    [0-9]
+
+=item *
+
+\s is a whitespace character and represents
+
+    [\ \t\r\n\f]
+
+=item *
+
+\w is a word character (alphanumeric or _) and represents
+
+    [0-9a-zA-Z_]
+
+=item *
+
+\D is a negated \d; it represents any character but a digit
+
+    [^0-9]
+
+=item *
+
+\S is a negated \s; it represents any non-whitespace character
+
+    [^\s]
+
+=item *
+
+\W is a negated \w; it represents any non-word character
+
+    [^\w]
+
+=item *
+
+The period '.' matches any character but "\n"
+
+=back
+
+The C<\d\s\w\D\S\W> abbreviations can be used both inside and outside
+of character classes.  Here are some in use:
+
+    /\d\d:\d\d:\d\d/; # matches a hh:mm:ss time format
+    /[\d\s]/;         # matches any digit or whitespace character
+    /\w\W\w/;         # matches a word char, followed by a
+                      # non-word char, followed by a word char
+    /..rt/;           # matches any two chars, followed by 'rt'
+    /end\./;          # matches 'end.'
+    /end[.]/;         # same thing, matches 'end.'
+
+The S<B<word anchor> > C<\b> matches a boundary between a word
+character and a non-word character C<\w\W> or C<\W\w>:
+
+    $x = "Housecat catenates house and cat";
+    $x =~ /\bcat/;  # matches cat in 'catenates'
+    $x =~ /cat\b/;  # matches cat in 'housecat'
+    $x =~ /\bcat\b/;  # matches 'cat' at end of string
+
+In the last example, the end of the string is considered a word
+boundary.
+
+For natural language processing (so that, for example, apostrophes are
+included in words), use instead C<\b{wb}>
+
+    "don't" =~ / .+? \b{wb} /x;  # matches the whole string
+
+=head2 Matching this or that
+
+We can match different character strings with the B<alternation>
+metacharacter C<'|'>.  To match C<dog> or C<cat>, we form the regex
+C<dog|cat>.  As before, Perl will try to match the regex at the
+earliest possible point in the string.  At each character position,
+Perl will first try to match the first alternative, C<dog>.  If
+C<dog> doesn't match, Perl will then try the next alternative, C<cat>.
+If C<cat> doesn't match either, then the match fails and Perl moves to
+the next position in the string.  Some examples:
+
+    "cats and dogs" =~ /cat|dog|bird/;  # matches "cat"
+    "cats and dogs" =~ /dog|cat|bird/;  # matches "cat"
+
+Even though C<dog> is the first alternative in the second regex,
+C<cat> is able to match earlier in the string.
+
+    "cats"          =~ /c|ca|cat|cats/; # matches "c"
+    "cats"          =~ /cats|cat|ca|c/; # matches "cats"
+
+At a given character position, the first alternative that allows the
+regex match to succeed will be the one that matches. Here, all the
+alternatives match at the first string position, so the first matches.
+
+=head2 Grouping things and hierarchical matching
+
+The B<grouping> metacharacters C<()> allow a part of a regex to be
+treated as a single unit.  Parts of a regex are grouped by enclosing
+them in parentheses.  The regex C<house(cat|keeper)> means match
+C<house> followed by either C<cat> or C<keeper>.  Some more examples
+are
+
+    /(a|b)b/;    # matches 'ab' or 'bb'
+    /(^a|b)c/;   # matches 'ac' at start of string or 'bc' anywhere
+
+    /house(cat|)/;  # matches either 'housecat' or 'house'
+    /house(cat(s|)|)/;  # matches either 'housecats' or 'housecat' or
+                        # 'house'.  Note groups can be nested.
+
+    "20" =~ /(19|20|)\d\d/;  # matches the null alternative '()\d\d',
+                             # because '20\d\d' can't match
+
+=head2 Extracting matches
+
+The grouping metacharacters C<()> also allow the extraction of the
+parts of a string that matched.  For each grouping, the part that
+matched inside goes into the special variables C<$1>, C<$2>, etc.
+They can be used just as ordinary variables:
+
+    # extract hours, minutes, seconds
+    $time =~ /(\d\d):(\d\d):(\d\d)/;  # match hh:mm:ss format
+    $hours = $1;
+    $minutes = $2;
+    $seconds = $3;
+
+In list context, a match C</regex/> with groupings will return the
+list of matched values C<($1,$2,...)>.  So we could rewrite it as
+
+    ($hours, $minutes, $second) = ($time =~ /(\d\d):(\d\d):(\d\d)/);
+
+If the groupings in a regex are nested, C<$1> gets the group with the
+leftmost opening parenthesis, C<$2> the next opening parenthesis,
+etc.  For example, here is a complex regex and the matching variables
+indicated below it:
+
+    /(ab(cd|ef)((gi)|j))/;
+     1  2      34
+
+Associated with the matching variables C<$1>, C<$2>, ... are
+the B<backreferences> C<\g1>, C<\g2>, ...  Backreferences are
+matching variables that can be used I<inside> a regex:
+
+    /(\w\w\w)\s\g1/; # find sequences like 'the the' in string
+
+C<$1>, C<$2>, ... should only be used outside of a regex, and C<\g1>,
+C<\g2>, ... only inside a regex.
+
+=head2 Matching repetitions
+
+The B<quantifier> metacharacters C<?>, C<*>, C<+>, and C<{}> allow us
+to determine the number of repeats of a portion of a regex we
+consider to be a match.  Quantifiers are put immediately after the
+character, character class, or grouping that we want to specify.  They
+have the following meanings:
+
+=over 4
+
+=item *
+
+C<a?> = match 'a' 1 or 0 times
+
+=item *
+
+C<a*> = match 'a' 0 or more times, i.e., any number of times
+
+=item *
+
+C<a+> = match 'a' 1 or more times, i.e., at least once
+
+=item *
+
+C<a{n,m}> = match at least C<n> times, but not more than C<m>
+times.
+
+=item *
+
+C<a{n,}> = match at least C<n> or more times
+
+=item *
+
+C<a{n}> = match exactly C<n> times
+
+=back
+
+Here are some examples:
+
+    /[a-z]+\s+\d*/;  # match a lowercase word, at least some space, and
+                     # any number of digits
+    /(\w+)\s+\g1/;    # match doubled words of arbitrary length
+    $year =~ /^\d{2,4}$/;  # make sure year is at least 2 but not more
+                           # than 4 digits
+    $year =~ /^\d{4}$|^\d{2}$/; # better match; throw out 3 digit dates
+
+These quantifiers will try to match as much of the string as possible,
+while still allowing the regex to match.  So we have
+
+    $x = 'the cat in the hat';
+    $x =~ /^(.*)(at)(.*)$/; # matches,
+                            # $1 = 'the cat in the h'
+                            # $2 = 'at'
+                            # $3 = ''   (0 matches)
+
+The first quantifier C<.*> grabs as much of the string as possible
+while still having the regex match. The second quantifier C<.*> has
+no string left to it, so it matches 0 times.
+
+=head2 More matching
+
+There are a few more things you might want to know about matching
+operators.
+The global modifier C<//g> allows the matching operator to match
+within a string as many times as possible.  In scalar context,
+successive matches against a string will have C<//g> jump from match
+to match, keeping track of position in the string as it goes along.
+You can get or set the position with the C<pos()> function.
+For example,
+
+    $x = "cat dog house"; # 3 words
+    while ($x =~ /(\w+)/g) {
+        print "Word is $1, ends at position ", pos $x, "\n";
+    }
+
+prints
+
+    Word is cat, ends at position 3
+    Word is dog, ends at position 7
+    Word is house, ends at position 13
+
+A failed match or changing the target string resets the position.  If
+you don't want the position reset after failure to match, add the
+C<//c>, as in C</regex/gc>.
+
+In list context, C<//g> returns a list of matched groupings, or if
+there are no groupings, a list of matches to the whole regex.  So
+
+    @words = ($x =~ /(\w+)/g);  # matches,
+                                # $word[0] = 'cat'
+                                # $word[1] = 'dog'
+                                # $word[2] = 'house'
+
+=head2 Search and replace
+
+Search and replace is performed using C<s/regex/replacement/modifiers>.
+The C<replacement> is a Perl double-quoted string that replaces in the
+string whatever is matched with the C<regex>.  The operator C<=~> is
+also used here to associate a string with C<s///>.  If matching
+against C<$_>, the S<C<$_ =~>> can be dropped.  If there is a match,
+C<s///> returns the number of substitutions made; otherwise it returns
+false.  Here are a few examples:
+
+    $x = "Time to feed the cat!";
+    $x =~ s/cat/hacker/;   # $x contains "Time to feed the hacker!"
+    $y = "'quoted words'";
+    $y =~ s/^'(.*)'$/$1/;  # strip single quotes,
+                           # $y contains "quoted words"
+
+With the C<s///> operator, the matched variables C<$1>, C<$2>, etc.
+are immediately available for use in the replacement expression. With
+the global modifier, C<s///g> will search and replace all occurrences
+of the regex in the string:
+
+    $x = "I batted 4 for 4";
+    $x =~ s/4/four/;   # $x contains "I batted four for 4"
+    $x = "I batted 4 for 4";
+    $x =~ s/4/four/g;  # $x contains "I batted four for four"
+
+The non-destructive modifier C<s///r> causes the result of the substitution
+to be returned instead of modifying C<$_> (or whatever variable the
+substitute was bound to with C<=~>):
+
+    $x = "I like dogs.";
+    $y = $x =~ s/dogs/cats/r;
+    print "$x $y\n"; # prints "I like dogs. I like cats."
+
+    $x = "Cats are great.";
+    print $x =~ s/Cats/Dogs/r =~ s/Dogs/Frogs/r =~
+        s/Frogs/Hedgehogs/r, "\n";
+    # prints "Hedgehogs are great."
+
+    @foo = map { s/[a-z]/X/r } qw(a b c 1 2 3);
+    # @foo is now qw(X X X 1 2 3)
+
+The evaluation modifier C<s///e> wraps an C<eval{...}> around the
+replacement string and the evaluated result is substituted for the
+matched substring.  Some examples:
+
+    # reverse all the words in a string
+    $x = "the cat in the hat";
+    $x =~ s/(\w+)/reverse $1/ge;   # $x contains "eht tac ni eht tah"
+
+    # convert percentage to decimal
+    $x = "A 39% hit rate";
+    $x =~ s!(\d+)%!$1/100!e;       # $x contains "A 0.39 hit rate"
+
+The last example shows that C<s///> can use other delimiters, such as
+C<s!!!> and C<s{}{}>, and even C<s{}//>.  If single quotes are used
+C<s'''>, then the regex and replacement are treated as single-quoted
+strings.
+
+=head2 The split operator
+
+C<split /regex/, string> splits C<string> into a list of substrings
+and returns that list.  The regex determines the character sequence
+that C<string> is split with respect to.  For example, to split a
+string into words, use
+
+    $x = "Calvin and Hobbes";
+    @word = split /\s+/, $x;  # $word[0] = 'Calvin'
+                              # $word[1] = 'and'
+                              # $word[2] = 'Hobbes'
+
+To extract a comma-delimited list of numbers, use
+
+    $x = "1.618,2.718,   3.142";
+    @const = split /,\s*/, $x;  # $const[0] = '1.618'
+                                # $const[1] = '2.718'
+                                # $const[2] = '3.142'
+
+If the empty regex C<//> is used, the string is split into individual
+characters.  If the regex has groupings, then the list produced contains
+the matched substrings from the groupings as well:
+
+    $x = "/usr/bin";
+    @parts = split m!(/)!, $x;  # $parts[0] = ''
+                                # $parts[1] = '/'
+                                # $parts[2] = 'usr'
+                                # $parts[3] = '/'
+                                # $parts[4] = 'bin'
+
+Since the first character of $x matched the regex, C<split> prepended
+an empty initial element to the list.
+
+=head2 C<use re 'strict'>
+
+New in v5.22, this applies stricter rules than otherwise when compiling
+regular expression patterns.  It can find things that, while legal, may
+not be what you intended.
+
+See L<'strict' in re|re/'strict' mode>.
+
+=head1 BUGS
+
+None.
+
+=head1 SEE ALSO
+
+This is just a quick start guide.  For a more in-depth tutorial on
+regexes, see L<perlretut> and for the reference page, see L<perlre>.
+
+=head1 AUTHOR AND COPYRIGHT
+
+Copyright (c) 2000 Mark Kvale
+All rights reserved.
+
+This document may be distributed under the same terms as Perl itself.
+
+=head2 Acknowledgments
+
+The author would like to thank Mark-Jason Dominus, Tom Christiansen,
+Ilya Zakharevich, Brad Hughes, and Mike Giroux for all their helpful
+comments.
+
+=cut
+
diff --git a/lib/5.24.1/pod/perlreref.pod b/lib/5.24.1/pod/perlreref.pod
new file mode 100644
index 00000000..db7c173a
--- /dev/null
+++ b/lib/5.24.1/pod/perlreref.pod
@@ -0,0 +1,412 @@
+=head1 NAME
+
+perlreref - Perl Regular Expressions Reference
+
+=head1 DESCRIPTION
+
+This is a quick reference to Perl's regular expressions.
+For full information see L<perlre> and L<perlop>, as well
+as the L</"SEE ALSO"> section in this document.
+
+=head2 OPERATORS
+
+C<=~> determines to which variable the regex is applied.
+In its absence, $_ is used.
+
+    $var =~ /foo/;
+
+C<!~> determines to which variable the regex is applied,
+and negates the result of the match; it returns
+false if the match succeeds, and true if it fails.
+
+    $var !~ /foo/;
+
+C<m/pattern/msixpogcdualn> searches a string for a pattern match,
+applying the given options.
+
+    m  Multiline mode - ^ and $ match internal lines
+    s  match as a Single line - . matches \n
+    i  case-Insensitive
+    x  eXtended legibility - free whitespace and comments
+    p  Preserve a copy of the matched string -
+       ${^PREMATCH}, ${^MATCH}, ${^POSTMATCH} will be defined.
+    o  compile pattern Once
+    g  Global - all occurrences
+    c  don't reset pos on failed matches when using /g
+    a  restrict \d, \s, \w and [:posix:] to match ASCII only
+    aa (two a's) also /i matches exclude ASCII/non-ASCII
+    l  match according to current locale
+    u  match according to Unicode rules
+    d  match according to native rules unless something indicates
+       Unicode
+    n  Non-capture mode. Don't let () fill in $1, $2, etc...
+
+If 'pattern' is an empty string, the last I<successfully> matched
+regex is used. Delimiters other than '/' may be used for both this
+operator and the following ones. The leading C<m> can be omitted
+if the delimiter is '/'.
+
+C<qr/pattern/msixpodualn> lets you store a regex in a variable,
+or pass one around. Modifiers as for C<m//>, and are stored
+within the regex.
+
+C<s/pattern/replacement/msixpogcedual> substitutes matches of
+'pattern' with 'replacement'. Modifiers as for C<m//>,
+with two additions:
+
+    e  Evaluate 'replacement' as an expression
+    r  Return substitution and leave the original string untouched.
+
+'e' may be specified multiple times. 'replacement' is interpreted
+as a double quoted string unless a single-quote (C<'>) is the delimiter.
+
+C<?pattern?> is like C<m/pattern/> but matches only once. No alternate
+delimiters can be used.  Must be reset with reset().
+
+=head2 SYNTAX
+
+ \       Escapes the character immediately following it
+ .       Matches any single character except a newline (unless /s is
+           used)
+ ^       Matches at the beginning of the string (or line, if /m is used)
+ $       Matches at the end of the string (or line, if /m is used)
+ *       Matches the preceding element 0 or more times
+ +       Matches the preceding element 1 or more times
+ ?       Matches the preceding element 0 or 1 times
+ {...}   Specifies a range of occurrences for the element preceding it
+ [...]   Matches any one of the characters contained within the brackets
+ (...)   Groups subexpressions for capturing to $1, $2...
+ (?:...) Groups subexpressions without capturing (cluster)
+ |       Matches either the subexpression preceding or following it
+ \g1 or \g{1}, \g2 ...    Matches the text from the Nth group
+ \1, \2, \3 ...           Matches the text from the Nth group
+ \g-1 or \g{-1}, \g-2 ... Matches the text from the Nth previous group
+ \g{name}     Named backreference
+ \k<name>     Named backreference
+ \k'name'     Named backreference
+ (?P=name)    Named backreference (python syntax)
+
+=head2 ESCAPE SEQUENCES
+
+These work as in normal strings.
+
+   \a       Alarm (beep)
+   \e       Escape
+   \f       Formfeed
+   \n       Newline
+   \r       Carriage return
+   \t       Tab
+   \037     Char whose ordinal is the 3 octal digits, max \777
+   \o{2307} Char whose ordinal is the octal number, unrestricted
+   \x7f     Char whose ordinal is the 2 hex digits, max \xFF
+   \x{263a} Char whose ordinal is the hex number, unrestricted
+   \cx      Control-x
+   \N{name} A named Unicode character or character sequence
+   \N{U+263D} A Unicode character by hex ordinal
+
+   \l  Lowercase next character
+   \u  Titlecase next character
+   \L  Lowercase until \E
+   \U  Uppercase until \E
+   \F  Foldcase until \E
+   \Q  Disable pattern metacharacters until \E
+   \E  End modification
+
+For Titlecase, see L</Titlecase>.
+
+This one works differently from normal strings:
+
+   \b  An assertion, not backspace, except in a character class
+
+=head2 CHARACTER CLASSES
+
+   [amy]    Match 'a', 'm' or 'y'
+   [f-j]    Dash specifies "range"
+   [f-j-]   Dash escaped or at start or end means 'dash'
+   [^f-j]   Caret indicates "match any character _except_ these"
+
+The following sequences (except C<\N>) work within or without a character class.
+The first six are locale aware, all are Unicode aware. See L<perllocale>
+and L<perlunicode> for details.
+
+   \d      A digit
+   \D      A nondigit
+   \w      A word character
+   \W      A non-word character
+   \s      A whitespace character
+   \S      A non-whitespace character
+   \h      An horizontal whitespace
+   \H      A non horizontal whitespace
+   \N      A non newline (when not followed by '{NAME}';;
+           not valid in a character class; equivalent to [^\n]; it's
+           like '.' without /s modifier)
+   \v      A vertical whitespace
+   \V      A non vertical whitespace
+   \R      A generic newline           (?>\v|\x0D\x0A)
+
+   \pP     Match P-named (Unicode) property
+   \p{...} Match Unicode property with name longer than 1 character
+   \PP     Match non-P
+   \P{...} Match lack of Unicode property with name longer than 1 char
+   \X      Match Unicode extended grapheme cluster
+
+POSIX character classes and their Unicode and Perl equivalents:
+
+            ASCII-         Full-
+   POSIX    range          range    backslash
+ [[:...:]]  \p{...}        \p{...}   sequence    Description
+
+ -----------------------------------------------------------------------
+ alnum   PosixAlnum       XPosixAlnum            'alpha' plus 'digit'
+ alpha   PosixAlpha       XPosixAlpha            Alphabetic characters
+ ascii   ASCII                                   Any ASCII character
+ blank   PosixBlank       XPosixBlank   \h       Horizontal whitespace;
+                                                   full-range also
+                                                   written as
+                                                   \p{HorizSpace} (GNU
+                                                   extension)
+ cntrl   PosixCntrl       XPosixCntrl            Control characters
+ digit   PosixDigit       XPosixDigit   \d       Decimal digits
+ graph   PosixGraph       XPosixGraph            'alnum' plus 'punct'
+ lower   PosixLower       XPosixLower            Lowercase characters
+ print   PosixPrint       XPosixPrint            'graph' plus 'space',
+                                                   but not any Controls
+ punct   PosixPunct       XPosixPunct            Punctuation and Symbols
+                                                   in ASCII-range; just
+                                                   punct outside it
+ space   PosixSpace       XPosixSpace   \s       Whitespace
+ upper   PosixUpper       XPosixUpper            Uppercase characters
+ word    PosixWord        XPosixWord    \w       'alnum' + Unicode marks
+                                                    + connectors, like
+                                                    '_' (Perl extension)
+ xdigit  ASCII_Hex_Digit  XPosixDigit            Hexadecimal digit,
+                                                    ASCII-range is
+                                                    [0-9A-Fa-f]
+
+Also, various synonyms like C<\p{Alpha}> for C<\p{XPosixAlpha}>; all listed
+in L<perluniprops/Properties accessible through \p{} and \P{}>
+
+Within a character class:
+
+    POSIX      traditional   Unicode
+  [:digit:]       \d        \p{Digit}
+  [:^digit:]      \D        \P{Digit}
+
+=head2 ANCHORS
+
+All are zero-width assertions.
+
+   ^  Match string start (or line, if /m is used)
+   $  Match string end (or line, if /m is used) or before newline
+   \b{} Match boundary of type specified within the braces
+   \B{} Match wherever \b{} doesn't match
+   \b Match word boundary (between \w and \W)
+   \B Match except at word boundary (between \w and \w or \W and \W)
+   \A Match string start (regardless of /m)
+   \Z Match string end (before optional newline)
+   \z Match absolute string end
+   \G Match where previous m//g left off
+   \K Keep the stuff left of the \K, don't include it in $&
+
+=head2 QUANTIFIERS
+
+Quantifiers are greedy by default and match the B<longest> leftmost.
+
+   Maximal Minimal Possessive Allowed range
+   ------- ------- ---------- -------------
+   {n,m}   {n,m}?  {n,m}+     Must occur at least n times
+                              but no more than m times
+   {n,}    {n,}?   {n,}+      Must occur at least n times
+   {n}     {n}?    {n}+       Must occur exactly n times
+   *       *?      *+         0 or more times (same as {0,})
+   +       +?      ++         1 or more times (same as {1,})
+   ?       ??      ?+         0 or 1 time (same as {0,1})
+
+The possessive forms (new in Perl 5.10) prevent backtracking: what gets
+matched by a pattern with a possessive quantifier will not be backtracked
+into, even if that causes the whole match to fail.
+
+There is no quantifier C<{,n}>. That's interpreted as a literal string.
+
+=head2 EXTENDED CONSTRUCTS
+
+   (?#text)          A comment
+   (?:...)           Groups subexpressions without capturing (cluster)
+   (?pimsx-imsx:...) Enable/disable option (as per m// modifiers)
+   (?=...)           Zero-width positive lookahead assertion
+   (?!...)           Zero-width negative lookahead assertion
+   (?<=...)          Zero-width positive lookbehind assertion
+   (?<!...)          Zero-width negative lookbehind assertion
+   (?>...)           Grab what we can, prohibit backtracking
+   (?|...)           Branch reset
+   (?<name>...)      Named capture
+   (?'name'...)      Named capture
+   (?P<name>...)     Named capture (python syntax)
+   (?[...])          Extended bracketed character class
+   (?{ code })       Embedded code, return value becomes $^R
+   (??{ code })      Dynamic regex, return value used as regex
+   (?N)              Recurse into subpattern number N
+   (?-N), (?+N)      Recurse into Nth previous/next subpattern
+   (?R), (?0)        Recurse at the beginning of the whole pattern
+   (?&name)          Recurse into a named subpattern
+   (?P>name)         Recurse into a named subpattern (python syntax)
+   (?(cond)yes|no)
+   (?(cond)yes)      Conditional expression, where "cond" can be:
+                     (?=pat)   lookahead
+                     (?!pat)   negative lookahead
+                     (?<=pat)  lookbehind
+                     (?<!pat)  negative lookbehind
+                     (N)       subpattern N has matched something
+                     (<name>)  named subpattern has matched something
+                     ('name')  named subpattern has matched something
+                     (?{code}) code condition
+                     (R)       true if recursing
+                     (RN)      true if recursing into Nth subpattern
+                     (R&name)  true if recursing into named subpattern
+                     (DEFINE)  always false, no no-pattern allowed
+
+=head2 VARIABLES
+
+   $_    Default variable for operators to use
+
+   $`    Everything prior to matched string
+   $&    Entire matched string
+   $'    Everything after to matched string
+
+   ${^PREMATCH}   Everything prior to matched string
+   ${^MATCH}      Entire matched string
+   ${^POSTMATCH}  Everything after to matched string
+
+Note to those still using Perl 5.18 or earlier:
+The use of C<$`>, C<$&> or C<$'> will slow down B<all> regex use
+within your program. Consult L<perlvar> for C<@->
+to see equivalent expressions that won't cause slow down.
+See also L<Devel::SawAmpersand>. Starting with Perl 5.10, you
+can also use the equivalent variables C<${^PREMATCH}>, C<${^MATCH}>
+and C<${^POSTMATCH}>, but for them to be defined, you have to
+specify the C</p> (preserve) modifier on your regular expression.
+In Perl 5.20, the use of C<$`>, C<$&> and C<$'> makes no speed difference.
+
+   $1, $2 ...  hold the Xth captured expr
+   $+    Last parenthesized pattern match
+   $^N   Holds the most recently closed capture
+   $^R   Holds the result of the last (?{...}) expr
+   @-    Offsets of starts of groups. $-[0] holds start of whole match
+   @+    Offsets of ends of groups. $+[0] holds end of whole match
+   %+    Named capture groups
+   %-    Named capture groups, as array refs
+
+Captured groups are numbered according to their I<opening> paren.
+
+=head2 FUNCTIONS
+
+   lc          Lowercase a string
+   lcfirst     Lowercase first char of a string
+   uc          Uppercase a string
+   ucfirst     Titlecase first char of a string
+   fc          Foldcase a string
+
+   pos         Return or set current match position
+   quotemeta   Quote metacharacters
+   reset       Reset ?pattern? status
+   study       Analyze string for optimizing matching
+
+   split       Use a regex to split a string into parts
+
+The first five of these are like the escape sequences C<\L>, C<\l>,
+C<\U>, C<\u>, and C<\F>.  For Titlecase, see L</Titlecase>; For
+Foldcase, see L</Foldcase>.
+
+=head2 TERMINOLOGY
+
+=head3 Titlecase
+
+Unicode concept which most often is equal to uppercase, but for
+certain characters like the German "sharp s" there is a difference.
+
+=head3 Foldcase
+
+Unicode form that is useful when comparing strings regardless of case,
+as certain characters have complex one-to-many case mappings. Primarily a
+variant of lowercase.
+
+=head1 AUTHOR
+
+Iain Truskett. Updated by the Perl 5 Porters.
+
+This document may be distributed under the same terms as Perl itself.
+
+=head1 SEE ALSO
+
+=over 4
+
+=item *
+
+L<perlretut> for a tutorial on regular expressions.
+
+=item *
+
+L<perlrequick> for a rapid tutorial.
+
+=item *
+
+L<perlre> for more details.
+
+=item *
+
+L<perlvar> for details on the variables.
+
+=item *
+
+L<perlop> for details on the operators.
+
+=item *
+
+L<perlfunc> for details on the functions.
+
+=item *
+
+L<perlfaq6> for FAQs on regular expressions.
+
+=item *
+
+L<perlrebackslash> for a reference on backslash sequences.
+
+=item *
+
+L<perlrecharclass> for a reference on character classes.
+
+=item *
+
+The L<re> module to alter behaviour and aid
+debugging.
+
+=item *
+
+L<perldebug/"Debugging Regular Expressions">
+
+=item *
+
+L<perluniintro>, L<perlunicode>, L<charnames> and L<perllocale>
+for details on regexes and internationalisation.
+
+=item *
+
+I<Mastering Regular Expressions> by Jeffrey Friedl
+(F<http://oreilly.com/catalog/9780596528126/>) for a thorough grounding and
+reference on the topic.
+
+=back
+
+=head1 THANKS
+
+David P.C. Wollmann,
+Richard Soderberg,
+Sean M. Burke,
+Tom Christiansen,
+Jim Cromie,
+and
+Jeffrey Goff
+for useful advice.
+
+=cut
diff --git a/lib/5.24.1/pod/perlretut.pod b/lib/5.24.1/pod/perlretut.pod
new file mode 100644
index 00000000..516d8691
--- /dev/null
+++ b/lib/5.24.1/pod/perlretut.pod
@@ -0,0 +1,2934 @@
+=head1 NAME
+
+perlretut - Perl regular expressions tutorial
+
+=head1 DESCRIPTION
+
+This page provides a basic tutorial on understanding, creating and
+using regular expressions in Perl.  It serves as a complement to the
+reference page on regular expressions L<perlre>.  Regular expressions
+are an integral part of the C<m//>, C<s///>, C<qr//> and C<split>
+operators and so this tutorial also overlaps with
+L<perlop/"Regexp Quote-Like Operators"> and L<perlfunc/split>.
+
+Perl is widely renowned for excellence in text processing, and regular
+expressions are one of the big factors behind this fame.  Perl regular
+expressions display an efficiency and flexibility unknown in most
+other computer languages.  Mastering even the basics of regular
+expressions will allow you to manipulate text with surprising ease.
+
+What is a regular expression?  A regular expression is simply a string
+that describes a pattern.  Patterns are in common use these days;
+examples are the patterns typed into a search engine to find web pages
+and the patterns used to list files in a directory, e.g., C<ls *.txt>
+or C<dir *.*>.  In Perl, the patterns described by regular expressions
+are used to search strings, extract desired parts of strings, and to
+do search and replace operations.
+
+Regular expressions have the undeserved reputation of being abstract
+and difficult to understand.  Regular expressions are constructed using
+simple concepts like conditionals and loops and are no more difficult
+to understand than the corresponding C<if> conditionals and C<while>
+loops in the Perl language itself.  In fact, the main challenge in
+learning regular expressions is just getting used to the terse
+notation used to express these concepts.
+
+This tutorial flattens the learning curve by discussing regular
+expression concepts, along with their notation, one at a time and with
+many examples.  The first part of the tutorial will progress from the
+simplest word searches to the basic regular expression concepts.  If
+you master the first part, you will have all the tools needed to solve
+about 98% of your needs.  The second part of the tutorial is for those
+comfortable with the basics and hungry for more power tools.  It
+discusses the more advanced regular expression operators and
+introduces the latest cutting-edge innovations.
+
+A note: to save time, 'regular expression' is often abbreviated as
+regexp or regex.  Regexp is a more natural abbreviation than regex, but
+is harder to pronounce.  The Perl pod documentation is evenly split on
+regexp vs regex; in Perl, there is more than one way to abbreviate it.
+We'll use regexp in this tutorial.
+
+New in v5.22, L<C<use re 'strict'>|re/'strict' mode> applies stricter
+rules than otherwise when compiling regular expression patterns.  It can
+find things that, while legal, may not be what you intended.
+
+=head1 Part 1: The basics
+
+=head2 Simple word matching
+
+The simplest regexp is simply a word, or more generally, a string of
+characters.  A regexp consisting of a word matches any string that
+contains that word:
+
+    "Hello World" =~ /World/;  # matches
+
+What is this Perl statement all about? C<"Hello World"> is a simple
+double-quoted string.  C<World> is the regular expression and the
+C<//> enclosing C</World/> tells Perl to search a string for a match.
+The operator C<=~> associates the string with the regexp match and
+produces a true value if the regexp matched, or false if the regexp
+did not match.  In our case, C<World> matches the second word in
+C<"Hello World">, so the expression is true.  Expressions like this
+are useful in conditionals:
+
+    if ("Hello World" =~ /World/) {
+        print "It matches\n";
+    }
+    else {
+        print "It doesn't match\n";
+    }
+
+There are useful variations on this theme.  The sense of the match can
+be reversed by using the C<!~> operator:
+
+    if ("Hello World" !~ /World/) {
+        print "It doesn't match\n";
+    }
+    else {
+        print "It matches\n";
+    }
+
+The literal string in the regexp can be replaced by a variable:
+
+    $greeting = "World";
+    if ("Hello World" =~ /$greeting/) {
+        print "It matches\n";
+    }
+    else {
+        print "It doesn't match\n";
+    }
+
+If you're matching against the special default variable C<$_>, the
+C<$_ =~> part can be omitted:
+
+    $_ = "Hello World";
+    if (/World/) {
+        print "It matches\n";
+    }
+    else {
+        print "It doesn't match\n";
+    }
+
+And finally, the C<//> default delimiters for a match can be changed
+to arbitrary delimiters by putting an C<'m'> out front:
+
+    "Hello World" =~ m!World!;   # matches, delimited by '!'
+    "Hello World" =~ m{World};   # matches, note the matching '{}'
+    "/usr/bin/perl" =~ m"/perl"; # matches after '/usr/bin',
+                                 # '/' becomes an ordinary char
+
+C</World/>, C<m!World!>, and C<m{World}> all represent the
+same thing.  When, e.g., the quote (C<">) is used as a delimiter, the forward
+slash C<'/'> becomes an ordinary character and can be used in this regexp
+without trouble.
+
+Let's consider how different regexps would match C<"Hello World">:
+
+    "Hello World" =~ /world/;  # doesn't match
+    "Hello World" =~ /o W/;    # matches
+    "Hello World" =~ /oW/;     # doesn't match
+    "Hello World" =~ /World /; # doesn't match
+
+The first regexp C<world> doesn't match because regexps are
+case-sensitive.  The second regexp matches because the substring
+S<C<'o W'>> occurs in the string S<C<"Hello World">>.  The space
+character ' ' is treated like any other character in a regexp and is
+needed to match in this case.  The lack of a space character is the
+reason the third regexp C<'oW'> doesn't match.  The fourth regexp
+C<'World '> doesn't match because there is a space at the end of the
+regexp, but not at the end of the string.  The lesson here is that
+regexps must match a part of the string I<exactly> in order for the
+statement to be true.
+
+If a regexp matches in more than one place in the string, Perl will
+always match at the earliest possible point in the string:
+
+    "Hello World" =~ /o/;       # matches 'o' in 'Hello'
+    "That hat is red" =~ /hat/; # matches 'hat' in 'That'
+
+With respect to character matching, there are a few more points you
+need to know about.   First of all, not all characters can be used 'as
+is' in a match.  Some characters, called I<metacharacters>, are reserved
+for use in regexp notation.  The metacharacters are
+
+    {}[]()^$.|*+?\
+
+The significance of each of these will be explained
+in the rest of the tutorial, but for now, it is important only to know
+that a metacharacter can be matched by putting a backslash before it:
+
+    "2+2=4" =~ /2+2/;    # doesn't match, + is a metacharacter
+    "2+2=4" =~ /2\+2/;   # matches, \+ is treated like an ordinary +
+    "The interval is [0,1)." =~ /[0,1)./     # is a syntax error!
+    "The interval is [0,1)." =~ /\[0,1\)\./  # matches
+    "#!/usr/bin/perl" =~ /#!\/usr\/bin\/perl/;  # matches
+
+In the last regexp, the forward slash C<'/'> is also backslashed,
+because it is used to delimit the regexp.  This can lead to LTS
+(leaning toothpick syndrome), however, and it is often more readable
+to change delimiters.
+
+    "#!/usr/bin/perl" =~ m!#\!/usr/bin/perl!;  # easier to read
+
+The backslash character C<'\'> is a metacharacter itself and needs to
+be backslashed:
+
+    'C:\WIN32' =~ /C:\\WIN/;   # matches
+
+In addition to the metacharacters, there are some ASCII characters
+which don't have printable character equivalents and are instead
+represented by I<escape sequences>.  Common examples are C<\t> for a
+tab, C<\n> for a newline, C<\r> for a carriage return and C<\a> for a
+bell (or alert).  If your string is better thought of as a sequence of arbitrary
+bytes, the octal escape sequence, e.g., C<\033>, or hexadecimal escape
+sequence, e.g., C<\x1B> may be a more natural representation for your
+bytes.  Here are some examples of escapes:
+
+    "1000\t2000" =~ m(0\t2)   # matches
+    "1000\n2000" =~ /0\n20/   # matches
+    "1000\t2000" =~ /\000\t2/ # doesn't match, "0" ne "\000"
+    "cat"   =~ /\o{143}\x61\x74/ # matches in ASCII, but a weird way
+                                 # to spell cat
+
+If you've been around Perl a while, all this talk of escape sequences
+may seem familiar.  Similar escape sequences are used in double-quoted
+strings and in fact the regexps in Perl are mostly treated as
+double-quoted strings.  This means that variables can be used in
+regexps as well.  Just like double-quoted strings, the values of the
+variables in the regexp will be substituted in before the regexp is
+evaluated for matching purposes.  So we have:
+
+    $foo = 'house';
+    'housecat' =~ /$foo/;      # matches
+    'cathouse' =~ /cat$foo/;   # matches
+    'housecat' =~ /${foo}cat/; # matches
+
+So far, so good.  With the knowledge above you can already perform
+searches with just about any literal string regexp you can dream up.
+Here is a I<very simple> emulation of the Unix grep program:
+
+    % cat > simple_grep
+    #!/usr/bin/perl
+    $regexp = shift;
+    while (<>) {
+        print if /$regexp/;
+    }
+    ^D
+
+    % chmod +x simple_grep
+
+    % simple_grep abba /usr/dict/words
+    Babbage
+    cabbage
+    cabbages
+    sabbath
+    Sabbathize
+    Sabbathizes
+    sabbatical
+    scabbard
+    scabbards
+
+This program is easy to understand.  C<#!/usr/bin/perl> is the standard
+way to invoke a perl program from the shell.
+S<C<$regexp = shift;>> saves the first command line argument as the
+regexp to be used, leaving the rest of the command line arguments to
+be treated as files.  S<C<< while (<>) >>> loops over all the lines in
+all the files.  For each line, S<C<print if /$regexp/;>> prints the
+line if the regexp matches the line.  In this line, both C<print> and
+C</$regexp/> use the default variable C<$_> implicitly.
+
+With all of the regexps above, if the regexp matched anywhere in the
+string, it was considered a match.  Sometimes, however, we'd like to
+specify I<where> in the string the regexp should try to match.  To do
+this, we would use the I<anchor> metacharacters C<^> and C<$>.  The
+anchor C<^> means match at the beginning of the string and the anchor
+C<$> means match at the end of the string, or before a newline at the
+end of the string.  Here is how they are used:
+
+    "housekeeper" =~ /keeper/;    # matches
+    "housekeeper" =~ /^keeper/;   # doesn't match
+    "housekeeper" =~ /keeper$/;   # matches
+    "housekeeper\n" =~ /keeper$/; # matches
+
+The second regexp doesn't match because C<^> constrains C<keeper> to
+match only at the beginning of the string, but C<"housekeeper"> has
+keeper starting in the middle.  The third regexp does match, since the
+C<$> constrains C<keeper> to match only at the end of the string.
+
+When both C<^> and C<$> are used at the same time, the regexp has to
+match both the beginning and the end of the string, i.e., the regexp
+matches the whole string.  Consider
+
+    "keeper" =~ /^keep$/;      # doesn't match
+    "keeper" =~ /^keeper$/;    # matches
+    ""       =~ /^$/;          # ^$ matches an empty string
+
+The first regexp doesn't match because the string has more to it than
+C<keep>.  Since the second regexp is exactly the string, it
+matches.  Using both C<^> and C<$> in a regexp forces the complete
+string to match, so it gives you complete control over which strings
+match and which don't.  Suppose you are looking for a fellow named
+bert, off in a string by himself:
+
+    "dogbert" =~ /bert/;   # matches, but not what you want
+
+    "dilbert" =~ /^bert/;  # doesn't match, but ..
+    "bertram" =~ /^bert/;  # matches, so still not good enough
+
+    "bertram" =~ /^bert$/; # doesn't match, good
+    "dilbert" =~ /^bert$/; # doesn't match, good
+    "bert"    =~ /^bert$/; # matches, perfect
+
+Of course, in the case of a literal string, one could just as easily
+use the string comparison S<C<$string eq 'bert'>> and it would be
+more efficient.   The  C<^...$> regexp really becomes useful when we
+add in the more powerful regexp tools below.
+
+=head2 Using character classes
+
+Although one can already do quite a lot with the literal string
+regexps above, we've only scratched the surface of regular expression
+technology.  In this and subsequent sections we will introduce regexp
+concepts (and associated metacharacter notations) that will allow a
+regexp to represent not just a single character sequence, but a I<whole
+class> of them.
+
+One such concept is that of a I<character class>.  A character class
+allows a set of possible characters, rather than just a single
+character, to match at a particular point in a regexp.  You can define
+your own custom character classes.  These
+are denoted by brackets C<[...]>, with the set of characters
+to be possibly matched inside.  Here are some examples:
+
+    /cat/;       # matches 'cat'
+    /[bcr]at/;   # matches 'bat, 'cat', or 'rat'
+    /item[0123456789]/;  # matches 'item0' or ... or 'item9'
+    "abc" =~ /[cab]/;    # matches 'a'
+
+In the last statement, even though C<'c'> is the first character in
+the class, C<'a'> matches because the first character position in the
+string is the earliest point at which the regexp can match.
+
+    /[yY][eE][sS]/;      # match 'yes' in a case-insensitive way
+                         # 'yes', 'Yes', 'YES', etc.
+
+This regexp displays a common task: perform a case-insensitive
+match.  Perl provides a way of avoiding all those brackets by simply
+appending an C<'i'> to the end of the match.  Then C</[yY][eE][sS]/;>
+can be rewritten as C</yes/i;>.  The C<'i'> stands for
+case-insensitive and is an example of a I<modifier> of the matching
+operation.  We will meet other modifiers later in the tutorial.
+
+We saw in the section above that there were ordinary characters, which
+represented themselves, and special characters, which needed a
+backslash C<\> to represent themselves.  The same is true in a
+character class, but the sets of ordinary and special characters
+inside a character class are different than those outside a character
+class.  The special characters for a character class are C<-]\^$> (and
+the pattern delimiter, whatever it is).
+C<]> is special because it denotes the end of a character class.  C<$> is
+special because it denotes a scalar variable.  C<\> is special because
+it is used in escape sequences, just like above.  Here is how the
+special characters C<]$\> are handled:
+
+   /[\]c]def/; # matches ']def' or 'cdef'
+   $x = 'bcr';
+   /[$x]at/;   # matches 'bat', 'cat', or 'rat'
+   /[\$x]at/;  # matches '$at' or 'xat'
+   /[\\$x]at/; # matches '\at', 'bat, 'cat', or 'rat'
+
+The last two are a little tricky.  In C<[\$x]>, the backslash protects
+the dollar sign, so the character class has two members C<$> and C<x>.
+In C<[\\$x]>, the backslash is protected, so C<$x> is treated as a
+variable and substituted in double quote fashion.
+
+The special character C<'-'> acts as a range operator within character
+classes, so that a contiguous set of characters can be written as a
+range.  With ranges, the unwieldy C<[0123456789]> and C<[abc...xyz]>
+become the svelte C<[0-9]> and C<[a-z]>.  Some examples are
+
+    /item[0-9]/;  # matches 'item0' or ... or 'item9'
+    /[0-9bx-z]aa/;  # matches '0aa', ..., '9aa',
+                    # 'baa', 'xaa', 'yaa', or 'zaa'
+    /[0-9a-fA-F]/;  # matches a hexadecimal digit
+    /[0-9a-zA-Z_]/; # matches a "word" character,
+                    # like those in a Perl variable name
+
+If C<'-'> is the first or last character in a character class, it is
+treated as an ordinary character; C<[-ab]>, C<[ab-]> and C<[a\-b]> are
+all equivalent.
+
+The special character C<^> in the first position of a character class
+denotes a I<negated character class>, which matches any character but
+those in the brackets.  Both C<[...]> and C<[^...]> must match a
+character, or the match fails.  Then
+
+    /[^a]at/;  # doesn't match 'aat' or 'at', but matches
+               # all other 'bat', 'cat, '0at', '%at', etc.
+    /[^0-9]/;  # matches a non-numeric character
+    /[a^]at/;  # matches 'aat' or '^at'; here '^' is ordinary
+
+Now, even C<[0-9]> can be a bother to write multiple times, so in the
+interest of saving keystrokes and making regexps more readable, Perl
+has several abbreviations for common character classes, as shown below.
+Since the introduction of Unicode, unless the C<//a> modifier is in
+effect, these character classes match more than just a few characters in
+the ASCII range.
+
+=over 4
+
+=item *
+
+\d matches a digit, not just [0-9] but also digits from non-roman scripts
+
+=item *
+
+\s matches a whitespace character, the set [\ \t\r\n\f] and others
+
+=item *
+
+\w matches a word character (alphanumeric or _), not just [0-9a-zA-Z_]
+but also digits and characters from non-roman scripts
+
+=item *
+
+\D is a negated \d; it represents any other character than a digit, or [^\d]
+
+=item *
+
+\S is a negated \s; it represents any non-whitespace character [^\s]
+
+=item *
+
+\W is a negated \w; it represents any non-word character [^\w]
+
+=item *
+
+The period '.' matches any character but "\n" (unless the modifier C<//s> is
+in effect, as explained below).
+
+=item *
+
+\N, like the period, matches any character but "\n", but it does so
+regardless of whether the modifier C<//s> is in effect.
+
+=back
+
+The C<//a> modifier, available starting in Perl 5.14,  is used to
+restrict the matches of \d, \s, and \w to just those in the ASCII range.
+It is useful to keep your program from being needlessly exposed to full
+Unicode (and its accompanying security considerations) when all you want
+is to process English-like text.  (The "a" may be doubled, C<//aa>, to
+provide even more restrictions, preventing case-insensitive matching of
+ASCII with non-ASCII characters; otherwise a Unicode "Kelvin Sign"
+would caselessly match a "k" or "K".)
+
+The C<\d\s\w\D\S\W> abbreviations can be used both inside and outside
+of bracketed character classes.  Here are some in use:
+
+    /\d\d:\d\d:\d\d/; # matches a hh:mm:ss time format
+    /[\d\s]/;         # matches any digit or whitespace character
+    /\w\W\w/;         # matches a word char, followed by a
+                      # non-word char, followed by a word char
+    /..rt/;           # matches any two chars, followed by 'rt'
+    /end\./;          # matches 'end.'
+    /end[.]/;         # same thing, matches 'end.'
+
+Because a period is a metacharacter, it needs to be escaped to match
+as an ordinary period. Because, for example, C<\d> and C<\w> are sets
+of characters, it is incorrect to think of C<[^\d\w]> as C<[\D\W]>; in
+fact C<[^\d\w]> is the same as C<[^\w]>, which is the same as
+C<[\W]>. Think DeMorgan's laws.
+
+In actuality, the period and C<\d\s\w\D\S\W> abbreviations are
+themselves types of character classes, so the ones surrounded by
+brackets are just one type of character class.  When we need to make a
+distinction, we refer to them as "bracketed character classes."
+
+An anchor useful in basic regexps is the I<word anchor>
+C<\b>.  This matches a boundary between a word character and a non-word
+character C<\w\W> or C<\W\w>:
+
+    $x = "Housecat catenates house and cat";
+    $x =~ /cat/;    # matches cat in 'housecat'
+    $x =~ /\bcat/;  # matches cat in 'catenates'
+    $x =~ /cat\b/;  # matches cat in 'housecat'
+    $x =~ /\bcat\b/;  # matches 'cat' at end of string
+
+Note in the last example, the end of the string is considered a word
+boundary.
+
+For natural language processing (so that, for example, apostrophes are
+included in words), use instead C<\b{wb}>
+
+    "don't" =~ / .+? \b{wb} /x;  # matches the whole string
+
+You might wonder why C<'.'> matches everything but C<"\n"> - why not
+every character? The reason is that often one is matching against
+lines and would like to ignore the newline characters.  For instance,
+while the string C<"\n"> represents one line, we would like to think
+of it as empty.  Then
+
+    ""   =~ /^$/;    # matches
+    "\n" =~ /^$/;    # matches, $ anchors before "\n"
+
+    ""   =~ /./;      # doesn't match; it needs a char
+    ""   =~ /^.$/;    # doesn't match; it needs a char
+    "\n" =~ /^.$/;    # doesn't match; it needs a char other than "\n"
+    "a"  =~ /^.$/;    # matches
+    "a\n"  =~ /^.$/;  # matches, $ anchors before "\n"
+
+This behavior is convenient, because we usually want to ignore
+newlines when we count and match characters in a line.  Sometimes,
+however, we want to keep track of newlines.  We might even want C<^>
+and C<$> to anchor at the beginning and end of lines within the
+string, rather than just the beginning and end of the string.  Perl
+allows us to choose between ignoring and paying attention to newlines
+by using the C<//s> and C<//m> modifiers.  C<//s> and C<//m> stand for
+single line and multi-line and they determine whether a string is to
+be treated as one continuous string, or as a set of lines.  The two
+modifiers affect two aspects of how the regexp is interpreted: 1) how
+the C<'.'> character class is defined, and 2) where the anchors C<^>
+and C<$> are able to match.  Here are the four possible combinations:
+
+=over 4
+
+=item *
+
+no modifiers (//): Default behavior.  C<'.'> matches any character
+except C<"\n">.  C<^> matches only at the beginning of the string and
+C<$> matches only at the end or before a newline at the end.
+
+=item *
+
+s modifier (//s): Treat string as a single long line.  C<'.'> matches
+any character, even C<"\n">.  C<^> matches only at the beginning of
+the string and C<$> matches only at the end or before a newline at the
+end.
+
+=item *
+
+m modifier (//m): Treat string as a set of multiple lines.  C<'.'>
+matches any character except C<"\n">.  C<^> and C<$> are able to match
+at the start or end of I<any> line within the string.
+
+=item *
+
+both s and m modifiers (//sm): Treat string as a single long line, but
+detect multiple lines.  C<'.'> matches any character, even
+C<"\n">.  C<^> and C<$>, however, are able to match at the start or end
+of I<any> line within the string.
+
+=back
+
+Here are examples of C<//s> and C<//m> in action:
+
+    $x = "There once was a girl\nWho programmed in Perl\n";
+
+    $x =~ /^Who/;   # doesn't match, "Who" not at start of string
+    $x =~ /^Who/s;  # doesn't match, "Who" not at start of string
+    $x =~ /^Who/m;  # matches, "Who" at start of second line
+    $x =~ /^Who/sm; # matches, "Who" at start of second line
+
+    $x =~ /girl.Who/;   # doesn't match, "." doesn't match "\n"
+    $x =~ /girl.Who/s;  # matches, "." matches "\n"
+    $x =~ /girl.Who/m;  # doesn't match, "." doesn't match "\n"
+    $x =~ /girl.Who/sm; # matches, "." matches "\n"
+
+Most of the time, the default behavior is what is wanted, but C<//s> and
+C<//m> are occasionally very useful.  If C<//m> is being used, the start
+of the string can still be matched with C<\A> and the end of the string
+can still be matched with the anchors C<\Z> (matches both the end and
+the newline before, like C<$>), and C<\z> (matches only the end):
+
+    $x =~ /^Who/m;   # matches, "Who" at start of second line
+    $x =~ /\AWho/m;  # doesn't match, "Who" is not at start of string
+
+    $x =~ /girl$/m;  # matches, "girl" at end of first line
+    $x =~ /girl\Z/m; # doesn't match, "girl" is not at end of string
+
+    $x =~ /Perl\Z/m; # matches, "Perl" is at newline before end
+    $x =~ /Perl\z/m; # doesn't match, "Perl" is not at end of string
+
+We now know how to create choices among classes of characters in a
+regexp.  What about choices among words or character strings? Such
+choices are described in the next section.
+
+=head2 Matching this or that
+
+Sometimes we would like our regexp to be able to match different
+possible words or character strings.  This is accomplished by using
+the I<alternation> metacharacter C<|>.  To match C<dog> or C<cat>, we
+form the regexp C<dog|cat>.  As before, Perl will try to match the
+regexp at the earliest possible point in the string.  At each
+character position, Perl will first try to match the first
+alternative, C<dog>.  If C<dog> doesn't match, Perl will then try the
+next alternative, C<cat>.  If C<cat> doesn't match either, then the
+match fails and Perl moves to the next position in the string.  Some
+examples:
+
+    "cats and dogs" =~ /cat|dog|bird/;  # matches "cat"
+    "cats and dogs" =~ /dog|cat|bird/;  # matches "cat"
+
+Even though C<dog> is the first alternative in the second regexp,
+C<cat> is able to match earlier in the string.
+
+    "cats"          =~ /c|ca|cat|cats/; # matches "c"
+    "cats"          =~ /cats|cat|ca|c/; # matches "cats"
+
+Here, all the alternatives match at the first string position, so the
+first alternative is the one that matches.  If some of the
+alternatives are truncations of the others, put the longest ones first
+to give them a chance to match.
+
+    "cab" =~ /a|b|c/ # matches "c"
+                     # /a|b|c/ == /[abc]/
+
+The last example points out that character classes are like
+alternations of characters.  At a given character position, the first
+alternative that allows the regexp match to succeed will be the one
+that matches.
+
+=head2 Grouping things and hierarchical matching
+
+Alternation allows a regexp to choose among alternatives, but by
+itself it is unsatisfying.  The reason is that each alternative is a whole
+regexp, but sometime we want alternatives for just part of a
+regexp.  For instance, suppose we want to search for housecats or
+housekeepers.  The regexp C<housecat|housekeeper> fits the bill, but is
+inefficient because we had to type C<house> twice.  It would be nice to
+have parts of the regexp be constant, like C<house>, and some
+parts have alternatives, like C<cat|keeper>.
+
+The I<grouping> metacharacters C<()> solve this problem.  Grouping
+allows parts of a regexp to be treated as a single unit.  Parts of a
+regexp are grouped by enclosing them in parentheses.  Thus we could solve
+the C<housecat|housekeeper> by forming the regexp as
+C<house(cat|keeper)>.  The regexp C<house(cat|keeper)> means match
+C<house> followed by either C<cat> or C<keeper>.  Some more examples
+are
+
+    /(a|b)b/;    # matches 'ab' or 'bb'
+    /(ac|b)b/;   # matches 'acb' or 'bb'
+    /(^a|b)c/;   # matches 'ac' at start of string or 'bc' anywhere
+    /(a|[bc])d/; # matches 'ad', 'bd', or 'cd'
+
+    /house(cat|)/;  # matches either 'housecat' or 'house'
+    /house(cat(s|)|)/;  # matches either 'housecats' or 'housecat' or
+                        # 'house'.  Note groups can be nested.
+
+    /(19|20|)\d\d/;  # match years 19xx, 20xx, or the Y2K problem, xx
+    "20" =~ /(19|20|)\d\d/;  # matches the null alternative '()\d\d',
+                             # because '20\d\d' can't match
+
+Alternations behave the same way in groups as out of them: at a given
+string position, the leftmost alternative that allows the regexp to
+match is taken.  So in the last example at the first string position,
+C<"20"> matches the second alternative, but there is nothing left over
+to match the next two digits C<\d\d>.  So Perl moves on to the next
+alternative, which is the null alternative and that works, since
+C<"20"> is two digits.
+
+The process of trying one alternative, seeing if it matches, and
+moving on to the next alternative, while going back in the string
+from where the previous alternative was tried, if it doesn't, is called
+I<backtracking>.  The term 'backtracking' comes from the idea that
+matching a regexp is like a walk in the woods.  Successfully matching
+a regexp is like arriving at a destination.  There are many possible
+trailheads, one for each string position, and each one is tried in
+order, left to right.  From each trailhead there may be many paths,
+some of which get you there, and some which are dead ends.  When you
+walk along a trail and hit a dead end, you have to backtrack along the
+trail to an earlier point to try another trail.  If you hit your
+destination, you stop immediately and forget about trying all the
+other trails.  You are persistent, and only if you have tried all the
+trails from all the trailheads and not arrived at your destination, do
+you declare failure.  To be concrete, here is a step-by-step analysis
+of what Perl does when it tries to match the regexp
+
+    "abcde" =~ /(abd|abc)(df|d|de)/;
+
+=over 4
+
+=item Z<>0
+
+Start with the first letter in the string 'a'.
+
+=item Z<>1
+
+Try the first alternative in the first group 'abd'.
+
+=item Z<>2
+
+Match 'a' followed by 'b'. So far so good.
+
+=item Z<>3
+
+'d' in the regexp doesn't match 'c' in the string - a dead
+end.  So backtrack two characters and pick the second alternative in
+the first group 'abc'.
+
+=item Z<>4
+
+Match 'a' followed by 'b' followed by 'c'.  We are on a roll
+and have satisfied the first group. Set $1 to 'abc'.
+
+=item Z<>5
+
+Move on to the second group and pick the first alternative
+'df'.
+
+=item Z<>6
+
+Match the 'd'.
+
+=item Z<>7
+
+'f' in the regexp doesn't match 'e' in the string, so a dead
+end.  Backtrack one character and pick the second alternative in the
+second group 'd'.
+
+=item Z<>8
+
+'d' matches. The second grouping is satisfied, so set $2 to
+'d'.
+
+=item Z<>9
+
+We are at the end of the regexp, so we are done! We have
+matched 'abcd' out of the string "abcde".
+
+=back
+
+There are a couple of things to note about this analysis.  First, the
+third alternative in the second group 'de' also allows a match, but we
+stopped before we got to it - at a given character position, leftmost
+wins.  Second, we were able to get a match at the first character
+position of the string 'a'.  If there were no matches at the first
+position, Perl would move to the second character position 'b' and
+attempt the match all over again.  Only when all possible paths at all
+possible character positions have been exhausted does Perl give
+up and declare S<C<$string =~ /(abd|abc)(df|d|de)/;>> to be false.
+
+Even with all this work, regexp matching happens remarkably fast.  To
+speed things up, Perl compiles the regexp into a compact sequence of
+opcodes that can often fit inside a processor cache.  When the code is
+executed, these opcodes can then run at full throttle and search very
+quickly.
+
+=head2 Extracting matches
+
+The grouping metacharacters C<()> also serve another completely
+different function: they allow the extraction of the parts of a string
+that matched.  This is very useful to find out what matched and for
+text processing in general.  For each grouping, the part that matched
+inside goes into the special variables C<$1>, C<$2>, etc.  They can be
+used just as ordinary variables:
+
+    # extract hours, minutes, seconds
+    if ($time =~ /(\d\d):(\d\d):(\d\d)/) {    # match hh:mm:ss format
+	$hours = $1;
+	$minutes = $2;
+	$seconds = $3;
+    }
+
+Now, we know that in scalar context,
+S<C<$time =~ /(\d\d):(\d\d):(\d\d)/>> returns a true or false
+value.  In list context, however, it returns the list of matched values
+C<($1,$2,$3)>.  So we could write the code more compactly as
+
+    # extract hours, minutes, seconds
+    ($hours, $minutes, $second) = ($time =~ /(\d\d):(\d\d):(\d\d)/);
+
+If the groupings in a regexp are nested, C<$1> gets the group with the
+leftmost opening parenthesis, C<$2> the next opening parenthesis,
+etc.  Here is a regexp with nested groups:
+
+    /(ab(cd|ef)((gi)|j))/;
+     1  2      34
+
+If this regexp matches, C<$1> contains a string starting with
+C<'ab'>, C<$2> is either set to C<'cd'> or C<'ef'>, C<$3> equals either
+C<'gi'> or C<'j'>, and C<$4> is either set to C<'gi'>, just like C<$3>,
+or it remains undefined.
+
+For convenience, Perl sets C<$+> to the string held by the highest numbered
+C<$1>, C<$2>,... that got assigned (and, somewhat related, C<$^N> to the
+value of the C<$1>, C<$2>,... most-recently assigned; i.e. the C<$1>,
+C<$2>,... associated with the rightmost closing parenthesis used in the
+match).
+
+
+=head2 Backreferences
+
+Closely associated with the matching variables C<$1>, C<$2>, ... are
+the I<backreferences> C<\g1>, C<\g2>,...  Backreferences are simply
+matching variables that can be used I<inside> a regexp.  This is a
+really nice feature; what matches later in a regexp is made to depend on
+what matched earlier in the regexp.  Suppose we wanted to look
+for doubled words in a text, like 'the the'.  The following regexp finds
+all 3-letter doubles with a space in between:
+
+    /\b(\w\w\w)\s\g1\b/;
+
+The grouping assigns a value to \g1, so that the same 3-letter sequence
+is used for both parts.
+
+A similar task is to find words consisting of two identical parts:
+
+    % simple_grep '^(\w\w\w\w|\w\w\w|\w\w|\w)\g1$' /usr/dict/words
+    beriberi
+    booboo
+    coco
+    mama
+    murmur
+    papa
+
+The regexp has a single grouping which considers 4-letter
+combinations, then 3-letter combinations, etc., and uses C<\g1> to look for
+a repeat.  Although C<$1> and C<\g1> represent the same thing, care should be
+taken to use matched variables C<$1>, C<$2>,... only I<outside> a regexp
+and backreferences C<\g1>, C<\g2>,... only I<inside> a regexp; not doing
+so may lead to surprising and unsatisfactory results.
+
+
+=head2 Relative backreferences
+
+Counting the opening parentheses to get the correct number for a
+backreference is error-prone as soon as there is more than one
+capturing group.  A more convenient technique became available
+with Perl 5.10: relative backreferences. To refer to the immediately
+preceding capture group one now may write C<\g{-1}>, the next but
+last is available via C<\g{-2}>, and so on.
+
+Another good reason in addition to readability and maintainability
+for using relative backreferences is illustrated by the following example,
+where a simple pattern for matching peculiar strings is used:
+
+    $a99a = '([a-z])(\d)\g2\g1';   # matches a11a, g22g, x33x, etc.
+
+Now that we have this pattern stored as a handy string, we might feel
+tempted to use it as a part of some other pattern:
+
+    $line = "code=e99e";
+    if ($line =~ /^(\w+)=$a99a$/){   # unexpected behavior!
+        print "$1 is valid\n";
+    } else {
+        print "bad line: '$line'\n";
+    }
+
+But this doesn't match, at least not the way one might expect. Only
+after inserting the interpolated C<$a99a> and looking at the resulting
+full text of the regexp is it obvious that the backreferences have
+backfired. The subexpression C<(\w+)> has snatched number 1 and
+demoted the groups in C<$a99a> by one rank. This can be avoided by
+using relative backreferences:
+
+    $a99a = '([a-z])(\d)\g{-1}\g{-2}';  # safe for being interpolated
+
+
+=head2 Named backreferences
+
+Perl 5.10 also introduced named capture groups and named backreferences.
+To attach a name to a capturing group, you write either
+C<< (?<name>...) >> or C<< (?'name'...) >>.  The backreference may
+then be written as C<\g{name}>.  It is permissible to attach the
+same name to more than one group, but then only the leftmost one of the
+eponymous set can be referenced.  Outside of the pattern a named
+capture group is accessible through the C<%+> hash.
+
+Assuming that we have to match calendar dates which may be given in one
+of the three formats yyyy-mm-dd, mm/dd/yyyy or dd.mm.yyyy, we can write
+three suitable patterns where we use 'd', 'm' and 'y' respectively as the
+names of the groups capturing the pertaining components of a date. The
+matching operation combines the three patterns as alternatives:
+
+    $fmt1 = '(?<y>\d\d\d\d)-(?<m>\d\d)-(?<d>\d\d)';
+    $fmt2 = '(?<m>\d\d)/(?<d>\d\d)/(?<y>\d\d\d\d)';
+    $fmt3 = '(?<d>\d\d)\.(?<m>\d\d)\.(?<y>\d\d\d\d)';
+    for my $d qw( 2006-10-21 15.01.2007 10/31/2005 ){
+        if ( $d =~ m{$fmt1|$fmt2|$fmt3} ){
+            print "day=$+{d} month=$+{m} year=$+{y}\n";
+        }
+    }
+
+If any of the alternatives matches, the hash C<%+> is bound to contain the
+three key-value pairs.
+
+
+=head2 Alternative capture group numbering
+
+Yet another capturing group numbering technique (also as from Perl 5.10)
+deals with the problem of referring to groups within a set of alternatives.
+Consider a pattern for matching a time of the day, civil or military style:
+
+    if ( $time =~ /(\d\d|\d):(\d\d)|(\d\d)(\d\d)/ ){
+        # process hour and minute
+    }
+
+Processing the results requires an additional if statement to determine
+whether C<$1> and C<$2> or C<$3> and C<$4> contain the goodies. It would
+be easier if we could use group numbers 1 and 2 in second alternative as
+well, and this is exactly what the parenthesized construct C<(?|...)>,
+set around an alternative achieves. Here is an extended version of the
+previous pattern:
+
+  if($time =~ /(?|(\d\d|\d):(\d\d)|(\d\d)(\d\d))\s+([A-Z][A-Z][A-Z])/){
+      print "hour=$1 minute=$2 zone=$3\n";
+  }
+
+Within the alternative numbering group, group numbers start at the same
+position for each alternative. After the group, numbering continues
+with one higher than the maximum reached across all the alternatives.
+
+=head2 Position information
+
+In addition to what was matched, Perl also provides the
+positions of what was matched as contents of the C<@-> and C<@+>
+arrays. C<$-[0]> is the position of the start of the entire match and
+C<$+[0]> is the position of the end. Similarly, C<$-[n]> is the
+position of the start of the C<$n> match and C<$+[n]> is the position
+of the end. If C<$n> is undefined, so are C<$-[n]> and C<$+[n]>. Then
+this code
+
+    $x = "Mmm...donut, thought Homer";
+    $x =~ /^(Mmm|Yech)\.\.\.(donut|peas)/; # matches
+    foreach $exp (1..$#-) {
+        print "Match $exp: '${$exp}' at position ($-[$exp],$+[$exp])\n";
+    }
+
+prints
+
+    Match 1: 'Mmm' at position (0,3)
+    Match 2: 'donut' at position (6,11)
+
+Even if there are no groupings in a regexp, it is still possible to
+find out what exactly matched in a string.  If you use them, Perl
+will set C<$`> to the part of the string before the match, will set C<$&>
+to the part of the string that matched, and will set C<$'> to the part
+of the string after the match.  An example:
+
+    $x = "the cat caught the mouse";
+    $x =~ /cat/;  # $` = 'the ', $& = 'cat', $' = ' caught the mouse'
+    $x =~ /the/;  # $` = '', $& = 'the', $' = ' cat caught the mouse'
+
+In the second match, C<$`> equals C<''> because the regexp matched at the
+first character position in the string and stopped; it never saw the
+second 'the'.
+
+If your code is to run on Perl versions earlier than
+5.20, it is worthwhile to note that using C<$`> and C<$'>
+slows down regexp matching quite a bit, while C<$&> slows it down to a
+lesser extent, because if they are used in one regexp in a program,
+they are generated for I<all> regexps in the program.  So if raw
+performance is a goal of your application, they should be avoided.
+If you need to extract the corresponding substrings, use C<@-> and
+C<@+> instead:
+
+    $` is the same as substr( $x, 0, $-[0] )
+    $& is the same as substr( $x, $-[0], $+[0]-$-[0] )
+    $' is the same as substr( $x, $+[0] )
+
+As of Perl 5.10, the C<${^PREMATCH}>, C<${^MATCH}> and C<${^POSTMATCH}>
+variables may be used.  These are only set if the C</p> modifier is
+present.  Consequently they do not penalize the rest of the program.  In
+Perl 5.20, C<${^PREMATCH}>, C<${^MATCH}> and C<${^POSTMATCH}> are available
+whether the C</p> has been used or not (the modifier is ignored), and
+C<$`>, C<$'> and C<$&> do not cause any speed difference.
+
+=head2 Non-capturing groupings
+
+A group that is required to bundle a set of alternatives may or may not be
+useful as a capturing group.  If it isn't, it just creates a superfluous
+addition to the set of available capture group values, inside as well as
+outside the regexp.  Non-capturing groupings, denoted by C<(?:regexp)>,
+still allow the regexp to be treated as a single unit, but don't establish
+a capturing group at the same time.  Both capturing and non-capturing
+groupings are allowed to co-exist in the same regexp.  Because there is
+no extraction, non-capturing groupings are faster than capturing
+groupings.  Non-capturing groupings are also handy for choosing exactly
+which parts of a regexp are to be extracted to matching variables:
+
+    # match a number, $1-$4 are set, but we only want $1
+    /([+-]?\ *(\d+(\.\d*)?|\.\d+)([eE][+-]?\d+)?)/;
+
+    # match a number faster , only $1 is set
+    /([+-]?\ *(?:\d+(?:\.\d*)?|\.\d+)(?:[eE][+-]?\d+)?)/;
+
+    # match a number, get $1 = whole number, $2 = exponent
+    /([+-]?\ *(?:\d+(?:\.\d*)?|\.\d+)(?:[eE]([+-]?\d+))?)/;
+
+Non-capturing groupings are also useful for removing nuisance
+elements gathered from a split operation where parentheses are
+required for some reason:
+
+    $x = '12aba34ba5';
+    @num = split /(a|b)+/, $x;    # @num = ('12','a','34','a','5')
+    @num = split /(?:a|b)+/, $x;  # @num = ('12','34','5')
+
+In Perl 5.22 and later, all groups within a regexp can be set to
+non-capturing by using the new C</n> flag:
+
+    "hello" =~ /(hi|hello)/n; # $1 is not set!
+
+See L<perlre/"n"> for more information.
+
+=head2 Matching repetitions
+
+The examples in the previous section display an annoying weakness.  We
+were only matching 3-letter words, or chunks of words of 4 letters or
+less.  We'd like to be able to match words or, more generally, strings
+of any length, without writing out tedious alternatives like
+C<\w\w\w\w|\w\w\w|\w\w|\w>.
+
+This is exactly the problem the I<quantifier> metacharacters C<?>,
+C<*>, C<+>, and C<{}> were created for.  They allow us to delimit the
+number of repeats for a portion of a regexp we consider to be a
+match.  Quantifiers are put immediately after the character, character
+class, or grouping that we want to specify.  They have the following
+meanings:
+
+=over 4
+
+=item *
+
+C<a?> means: match 'a' 1 or 0 times
+
+=item *
+
+C<a*> means: match 'a' 0 or more times, i.e., any number of times
+
+=item *
+
+C<a+> means: match 'a' 1 or more times, i.e., at least once
+
+=item *
+
+C<a{n,m}> means: match at least C<n> times, but not more than C<m>
+times.
+
+=item *
+
+C<a{n,}> means: match at least C<n> or more times
+
+=item *
+
+C<a{n}> means: match exactly C<n> times
+
+=back
+
+Here are some examples:
+
+    /[a-z]+\s+\d*/;  # match a lowercase word, at least one space, and
+                     # any number of digits
+    /(\w+)\s+\g1/;    # match doubled words of arbitrary length
+    /y(es)?/i;       # matches 'y', 'Y', or a case-insensitive 'yes'
+    $year =~ /^\d{2,4}$/;  # make sure year is at least 2 but not more
+                           # than 4 digits
+    $year =~ /^\d{4}$|^\d{2}$/; # better match; throw out 3-digit dates
+    $year =~ /^\d{2}(\d{2})?$/; # same thing written differently.
+                                # However, this captures the last two
+                                # digits in $1 and the other does not.
+
+    % simple_grep '^(\w+)\g1$' /usr/dict/words   # isn't this easier?
+    beriberi
+    booboo
+    coco
+    mama
+    murmur
+    papa
+
+For all of these quantifiers, Perl will try to match as much of the
+string as possible, while still allowing the regexp to succeed.  Thus
+with C</a?.../>, Perl will first try to match the regexp with the C<a>
+present; if that fails, Perl will try to match the regexp without the
+C<a> present.  For the quantifier C<*>, we get the following:
+
+    $x = "the cat in the hat";
+    $x =~ /^(.*)(cat)(.*)$/; # matches,
+                             # $1 = 'the '
+                             # $2 = 'cat'
+                             # $3 = ' in the hat'
+
+Which is what we might expect, the match finds the only C<cat> in the
+string and locks onto it.  Consider, however, this regexp:
+
+    $x =~ /^(.*)(at)(.*)$/; # matches,
+                            # $1 = 'the cat in the h'
+                            # $2 = 'at'
+                            # $3 = ''   (0 characters match)
+
+One might initially guess that Perl would find the C<at> in C<cat> and
+stop there, but that wouldn't give the longest possible string to the
+first quantifier C<.*>.  Instead, the first quantifier C<.*> grabs as
+much of the string as possible while still having the regexp match.  In
+this example, that means having the C<at> sequence with the final C<at>
+in the string.  The other important principle illustrated here is that,
+when there are two or more elements in a regexp, the I<leftmost>
+quantifier, if there is one, gets to grab as much of the string as
+possible, leaving the rest of the regexp to fight over scraps.  Thus in
+our example, the first quantifier C<.*> grabs most of the string, while
+the second quantifier C<.*> gets the empty string.   Quantifiers that
+grab as much of the string as possible are called I<maximal match> or
+I<greedy> quantifiers.
+
+When a regexp can match a string in several different ways, we can use
+the principles above to predict which way the regexp will match:
+
+=over 4
+
+=item *
+
+Principle 0: Taken as a whole, any regexp will be matched at the
+earliest possible position in the string.
+
+=item *
+
+Principle 1: In an alternation C<a|b|c...>, the leftmost alternative
+that allows a match for the whole regexp will be the one used.
+
+=item *
+
+Principle 2: The maximal matching quantifiers C<?>, C<*>, C<+> and
+C<{n,m}> will in general match as much of the string as possible while
+still allowing the whole regexp to match.
+
+=item *
+
+Principle 3: If there are two or more elements in a regexp, the
+leftmost greedy quantifier, if any, will match as much of the string
+as possible while still allowing the whole regexp to match.  The next
+leftmost greedy quantifier, if any, will try to match as much of the
+string remaining available to it as possible, while still allowing the
+whole regexp to match.  And so on, until all the regexp elements are
+satisfied.
+
+=back
+
+As we have seen above, Principle 0 overrides the others. The regexp
+will be matched as early as possible, with the other principles
+determining how the regexp matches at that earliest character
+position.
+
+Here is an example of these principles in action:
+
+    $x = "The programming republic of Perl";
+    $x =~ /^(.+)(e|r)(.*)$/;  # matches,
+                              # $1 = 'The programming republic of Pe'
+                              # $2 = 'r'
+                              # $3 = 'l'
+
+This regexp matches at the earliest string position, C<'T'>.  One
+might think that C<e>, being leftmost in the alternation, would be
+matched, but C<r> produces the longest string in the first quantifier.
+
+    $x =~ /(m{1,2})(.*)$/;  # matches,
+                            # $1 = 'mm'
+                            # $2 = 'ing republic of Perl'
+
+Here, The earliest possible match is at the first C<'m'> in
+C<programming>. C<m{1,2}> is the first quantifier, so it gets to match
+a maximal C<mm>.
+
+    $x =~ /.*(m{1,2})(.*)$/;  # matches,
+                              # $1 = 'm'
+                              # $2 = 'ing republic of Perl'
+
+Here, the regexp matches at the start of the string. The first
+quantifier C<.*> grabs as much as possible, leaving just a single
+C<'m'> for the second quantifier C<m{1,2}>.
+
+    $x =~ /(.?)(m{1,2})(.*)$/;  # matches,
+                                # $1 = 'a'
+                                # $2 = 'mm'
+                                # $3 = 'ing republic of Perl'
+
+Here, C<.?> eats its maximal one character at the earliest possible
+position in the string, C<'a'> in C<programming>, leaving C<m{1,2}>
+the opportunity to match both C<m>'s. Finally,
+
+    "aXXXb" =~ /(X*)/; # matches with $1 = ''
+
+because it can match zero copies of C<'X'> at the beginning of the
+string.  If you definitely want to match at least one C<'X'>, use
+C<X+>, not C<X*>.
+
+Sometimes greed is not good.  At times, we would like quantifiers to
+match a I<minimal> piece of string, rather than a maximal piece.  For
+this purpose, Larry Wall created the I<minimal match> or
+I<non-greedy> quantifiers C<??>, C<*?>, C<+?>, and C<{}?>.  These are
+the usual quantifiers with a C<?> appended to them.  They have the
+following meanings:
+
+=over 4
+
+=item *
+
+C<a??> means: match 'a' 0 or 1 times. Try 0 first, then 1.
+
+=item *
+
+C<a*?> means: match 'a' 0 or more times, i.e., any number of times,
+but as few times as possible
+
+=item *
+
+C<a+?> means: match 'a' 1 or more times, i.e., at least once, but
+as few times as possible
+
+=item *
+
+C<a{n,m}?> means: match at least C<n> times, not more than C<m>
+times, as few times as possible
+
+=item *
+
+C<a{n,}?> means: match at least C<n> times, but as few times as
+possible
+
+=item *
+
+C<a{n}?> means: match exactly C<n> times.  Because we match exactly
+C<n> times, C<a{n}?> is equivalent to C<a{n}> and is just there for
+notational consistency.
+
+=back
+
+Let's look at the example above, but with minimal quantifiers:
+
+    $x = "The programming republic of Perl";
+    $x =~ /^(.+?)(e|r)(.*)$/; # matches,
+                              # $1 = 'Th'
+                              # $2 = 'e'
+                              # $3 = ' programming republic of Perl'
+
+The minimal string that will allow both the start of the string C<^>
+and the alternation to match is C<Th>, with the alternation C<e|r>
+matching C<e>.  The second quantifier C<.*> is free to gobble up the
+rest of the string.
+
+    $x =~ /(m{1,2}?)(.*?)$/;  # matches,
+                              # $1 = 'm'
+                              # $2 = 'ming republic of Perl'
+
+The first string position that this regexp can match is at the first
+C<'m'> in C<programming>. At this position, the minimal C<m{1,2}?>
+matches just one C<'m'>.  Although the second quantifier C<.*?> would
+prefer to match no characters, it is constrained by the end-of-string
+anchor C<$> to match the rest of the string.
+
+    $x =~ /(.*?)(m{1,2}?)(.*)$/;  # matches,
+                                  # $1 = 'The progra'
+                                  # $2 = 'm'
+                                  # $3 = 'ming republic of Perl'
+
+In this regexp, you might expect the first minimal quantifier C<.*?>
+to match the empty string, because it is not constrained by a C<^>
+anchor to match the beginning of the word.  Principle 0 applies here,
+however.  Because it is possible for the whole regexp to match at the
+start of the string, it I<will> match at the start of the string.  Thus
+the first quantifier has to match everything up to the first C<m>.  The
+second minimal quantifier matches just one C<m> and the third
+quantifier matches the rest of the string.
+
+    $x =~ /(.??)(m{1,2})(.*)$/;  # matches,
+                                 # $1 = 'a'
+                                 # $2 = 'mm'
+                                 # $3 = 'ing republic of Perl'
+
+Just as in the previous regexp, the first quantifier C<.??> can match
+earliest at position C<'a'>, so it does.  The second quantifier is
+greedy, so it matches C<mm>, and the third matches the rest of the
+string.
+
+We can modify principle 3 above to take into account non-greedy
+quantifiers:
+
+=over 4
+
+=item *
+
+Principle 3: If there are two or more elements in a regexp, the
+leftmost greedy (non-greedy) quantifier, if any, will match as much
+(little) of the string as possible while still allowing the whole
+regexp to match.  The next leftmost greedy (non-greedy) quantifier, if
+any, will try to match as much (little) of the string remaining
+available to it as possible, while still allowing the whole regexp to
+match.  And so on, until all the regexp elements are satisfied.
+
+=back
+
+Just like alternation, quantifiers are also susceptible to
+backtracking.  Here is a step-by-step analysis of the example
+
+    $x = "the cat in the hat";
+    $x =~ /^(.*)(at)(.*)$/; # matches,
+                            # $1 = 'the cat in the h'
+                            # $2 = 'at'
+                            # $3 = ''   (0 matches)
+
+=over 4
+
+=item Z<>0
+
+Start with the first letter in the string 't'.
+
+=item Z<>1
+
+The first quantifier '.*' starts out by matching the whole
+string 'the cat in the hat'.
+
+=item Z<>2
+
+'a' in the regexp element 'at' doesn't match the end of the
+string.  Backtrack one character.
+
+=item Z<>3
+
+'a' in the regexp element 'at' still doesn't match the last
+letter of the string 't', so backtrack one more character.
+
+=item Z<>4
+
+Now we can match the 'a' and the 't'.
+
+=item Z<>5
+
+Move on to the third element '.*'.  Since we are at the end of
+the string and '.*' can match 0 times, assign it the empty string.
+
+=item Z<>6
+
+We are done!
+
+=back
+
+Most of the time, all this moving forward and backtracking happens
+quickly and searching is fast. There are some pathological regexps,
+however, whose execution time exponentially grows with the size of the
+string.  A typical structure that blows up in your face is of the form
+
+    /(a|b+)*/;
+
+The problem is the nested indeterminate quantifiers.  There are many
+different ways of partitioning a string of length n between the C<+>
+and C<*>: one repetition with C<b+> of length n, two repetitions with
+the first C<b+> length k and the second with length n-k, m repetitions
+whose bits add up to length n, etc.  In fact there are an exponential
+number of ways to partition a string as a function of its length.  A
+regexp may get lucky and match early in the process, but if there is
+no match, Perl will try I<every> possibility before giving up.  So be
+careful with nested C<*>'s, C<{n,m}>'s, and C<+>'s.  The book
+I<Mastering Regular Expressions> by Jeffrey Friedl gives a wonderful
+discussion of this and other efficiency issues.
+
+
+=head2 Possessive quantifiers
+
+Backtracking during the relentless search for a match may be a waste
+of time, particularly when the match is bound to fail.  Consider
+the simple pattern
+
+    /^\w+\s+\w+$/; # a word, spaces, a word
+
+Whenever this is applied to a string which doesn't quite meet the
+pattern's expectations such as S<C<"abc  ">> or S<C<"abc  def ">>,
+the regex engine will backtrack, approximately once for each character
+in the string.  But we know that there is no way around taking I<all>
+of the initial word characters to match the first repetition, that I<all>
+spaces must be eaten by the middle part, and the same goes for the second
+word.
+
+With the introduction of the I<possessive quantifiers> in Perl 5.10, we
+have a way of instructing the regex engine not to backtrack, with the
+usual quantifiers with a C<+> appended to them.  This makes them greedy as
+well as stingy; once they succeed they won't give anything back to permit
+another solution. They have the following meanings:
+
+=over 4
+
+=item *
+
+C<a{n,m}+> means: match at least C<n> times, not more than C<m> times,
+as many times as possible, and don't give anything up. C<a?+> is short
+for C<a{0,1}+>
+
+=item *
+
+C<a{n,}+> means: match at least C<n> times, but as many times as possible,
+and don't give anything up. C<a*+> is short for C<a{0,}+> and C<a++> is
+short for C<a{1,}+>.
+
+=item *
+
+C<a{n}+> means: match exactly C<n> times.  It is just there for
+notational consistency.
+
+=back
+
+These possessive quantifiers represent a special case of a more general
+concept, the I<independent subexpression>, see below.
+
+As an example where a possessive quantifier is suitable we consider
+matching a quoted string, as it appears in several programming languages.
+The backslash is used as an escape character that indicates that the
+next character is to be taken literally, as another character for the
+string.  Therefore, after the opening quote, we expect a (possibly
+empty) sequence of alternatives: either some character except an
+unescaped quote or backslash or an escaped character.
+
+    /"(?:[^"\\]++|\\.)*+"/;
+
+
+=head2 Building a regexp
+
+At this point, we have all the basic regexp concepts covered, so let's
+give a more involved example of a regular expression.  We will build a
+regexp that matches numbers.
+
+The first task in building a regexp is to decide what we want to match
+and what we want to exclude.  In our case, we want to match both
+integers and floating point numbers and we want to reject any string
+that isn't a number.
+
+The next task is to break the problem down into smaller problems that
+are easily converted into a regexp.
+
+The simplest case is integers.  These consist of a sequence of digits,
+with an optional sign in front.  The digits we can represent with
+C<\d+> and the sign can be matched with C<[+-]>.  Thus the integer
+regexp is
+
+    /[+-]?\d+/;  # matches integers
+
+A floating point number potentially has a sign, an integral part, a
+decimal point, a fractional part, and an exponent.  One or more of these
+parts is optional, so we need to check out the different
+possibilities.  Floating point numbers which are in proper form include
+123., 0.345, .34, -1e6, and 25.4E-72.  As with integers, the sign out
+front is completely optional and can be matched by C<[+-]?>.  We can
+see that if there is no exponent, floating point numbers must have a
+decimal point, otherwise they are integers.  We might be tempted to
+model these with C<\d*\.\d*>, but this would also match just a single
+decimal point, which is not a number.  So the three cases of floating
+point number without exponent are
+
+   /[+-]?\d+\./;  # 1., 321., etc.
+   /[+-]?\.\d+/;  # .1, .234, etc.
+   /[+-]?\d+\.\d+/;  # 1.0, 30.56, etc.
+
+These can be combined into a single regexp with a three-way alternation:
+
+   /[+-]?(\d+\.\d+|\d+\.|\.\d+)/;  # floating point, no exponent
+
+In this alternation, it is important to put C<'\d+\.\d+'> before
+C<'\d+\.'>.  If C<'\d+\.'> were first, the regexp would happily match that
+and ignore the fractional part of the number.
+
+Now consider floating point numbers with exponents.  The key
+observation here is that I<both> integers and numbers with decimal
+points are allowed in front of an exponent.  Then exponents, like the
+overall sign, are independent of whether we are matching numbers with
+or without decimal points, and can be 'decoupled' from the
+mantissa.  The overall form of the regexp now becomes clear:
+
+    /^(optional sign)(integer | f.p. mantissa)(optional exponent)$/;
+
+The exponent is an C<e> or C<E>, followed by an integer.  So the
+exponent regexp is
+
+   /[eE][+-]?\d+/;  # exponent
+
+Putting all the parts together, we get a regexp that matches numbers:
+
+   /^[+-]?(\d+\.\d+|\d+\.|\.\d+|\d+)([eE][+-]?\d+)?$/;  # Ta da!
+
+Long regexps like this may impress your friends, but can be hard to
+decipher.  In complex situations like this, the C<//x> modifier for a
+match is invaluable.  It allows one to put nearly arbitrary whitespace
+and comments into a regexp without affecting their meaning.  Using it,
+we can rewrite our 'extended' regexp in the more pleasing form
+
+   /^
+      [+-]?         # first, match an optional sign
+      (             # then match integers or f.p. mantissas:
+          \d+\.\d+  # mantissa of the form a.b
+         |\d+\.     # mantissa of the form a.
+         |\.\d+     # mantissa of the form .b
+         |\d+       # integer of the form a
+      )
+      ([eE][+-]?\d+)?  # finally, optionally match an exponent
+   $/x;
+
+If whitespace is mostly irrelevant, how does one include space
+characters in an extended regexp? The answer is to backslash it
+S<C<'\ '>> or put it in a character class S<C<[ ]>>.  The same thing
+goes for pound signs: use C<\#> or C<[#]>.  For instance, Perl allows
+a space between the sign and the mantissa or integer, and we could add
+this to our regexp as follows:
+
+   /^
+      [+-]?\ *      # first, match an optional sign *and space*
+      (             # then match integers or f.p. mantissas:
+          \d+\.\d+  # mantissa of the form a.b
+         |\d+\.     # mantissa of the form a.
+         |\.\d+     # mantissa of the form .b
+         |\d+       # integer of the form a
+      )
+      ([eE][+-]?\d+)?  # finally, optionally match an exponent
+   $/x;
+
+In this form, it is easier to see a way to simplify the
+alternation.  Alternatives 1, 2, and 4 all start with C<\d+>, so it
+could be factored out:
+
+   /^
+      [+-]?\ *      # first, match an optional sign
+      (             # then match integers or f.p. mantissas:
+          \d+       # start out with a ...
+          (
+              \.\d* # mantissa of the form a.b or a.
+          )?        # ? takes care of integers of the form a
+         |\.\d+     # mantissa of the form .b
+      )
+      ([eE][+-]?\d+)?  # finally, optionally match an exponent
+   $/x;
+
+or written in the compact form,
+
+    /^[+-]?\ *(\d+(\.\d*)?|\.\d+)([eE][+-]?\d+)?$/;
+
+This is our final regexp.  To recap, we built a regexp by
+
+=over 4
+
+=item *
+
+specifying the task in detail,
+
+=item *
+
+breaking down the problem into smaller parts,
+
+=item *
+
+translating the small parts into regexps,
+
+=item *
+
+combining the regexps,
+
+=item *
+
+and optimizing the final combined regexp.
+
+=back
+
+These are also the typical steps involved in writing a computer
+program.  This makes perfect sense, because regular expressions are
+essentially programs written in a little computer language that specifies
+patterns.
+
+=head2 Using regular expressions in Perl
+
+The last topic of Part 1 briefly covers how regexps are used in Perl
+programs.  Where do they fit into Perl syntax?
+
+We have already introduced the matching operator in its default
+C</regexp/> and arbitrary delimiter C<m!regexp!> forms.  We have used
+the binding operator C<=~> and its negation C<!~> to test for string
+matches.  Associated with the matching operator, we have discussed the
+single line C<//s>, multi-line C<//m>, case-insensitive C<//i> and
+extended C<//x> modifiers.  There are a few more things you might
+want to know about matching operators.
+
+=head3 Prohibiting substitution
+
+If you change C<$pattern> after the first substitution happens, Perl
+will ignore it.  If you don't want any substitutions at all, use the
+special delimiter C<m''>:
+
+    @pattern = ('Seuss');
+    while (<>) {
+        print if m'@pattern';  # matches literal '@pattern', not 'Seuss'
+    }
+
+Similar to strings, C<m''> acts like apostrophes on a regexp; all other
+C<m> delimiters act like quotes.  If the regexp evaluates to the empty string,
+the regexp in the I<last successful match> is used instead.  So we have
+
+    "dog" =~ /d/;  # 'd' matches
+    "dogbert =~ //;  # this matches the 'd' regexp used before
+
+
+=head3 Global matching
+
+The final two modifiers we will discuss here,
+C<//g> and C<//c>, concern multiple matches.
+The modifier C<//g> stands for global matching and allows the
+matching operator to match within a string as many times as possible.
+In scalar context, successive invocations against a string will have
+C<//g> jump from match to match, keeping track of position in the
+string as it goes along.  You can get or set the position with the
+C<pos()> function.
+
+The use of C<//g> is shown in the following example.  Suppose we have
+a string that consists of words separated by spaces.  If we know how
+many words there are in advance, we could extract the words using
+groupings:
+
+    $x = "cat dog house"; # 3 words
+    $x =~ /^\s*(\w+)\s+(\w+)\s+(\w+)\s*$/; # matches,
+                                           # $1 = 'cat'
+                                           # $2 = 'dog'
+                                           # $3 = 'house'
+
+But what if we had an indeterminate number of words? This is the sort
+of task C<//g> was made for.  To extract all words, form the simple
+regexp C<(\w+)> and loop over all matches with C</(\w+)/g>:
+
+    while ($x =~ /(\w+)/g) {
+        print "Word is $1, ends at position ", pos $x, "\n";
+    }
+
+prints
+
+    Word is cat, ends at position 3
+    Word is dog, ends at position 7
+    Word is house, ends at position 13
+
+A failed match or changing the target string resets the position.  If
+you don't want the position reset after failure to match, add the
+C<//c>, as in C</regexp/gc>.  The current position in the string is
+associated with the string, not the regexp.  This means that different
+strings have different positions and their respective positions can be
+set or read independently.
+
+In list context, C<//g> returns a list of matched groupings, or if
+there are no groupings, a list of matches to the whole regexp.  So if
+we wanted just the words, we could use
+
+    @words = ($x =~ /(\w+)/g);  # matches,
+                                # $words[0] = 'cat'
+                                # $words[1] = 'dog'
+                                # $words[2] = 'house'
+
+Closely associated with the C<//g> modifier is the C<\G> anchor.  The
+C<\G> anchor matches at the point where the previous C<//g> match left
+off.  C<\G> allows us to easily do context-sensitive matching:
+
+    $metric = 1;  # use metric units
+    ...
+    $x = <FILE>;  # read in measurement
+    $x =~ /^([+-]?\d+)\s*/g;  # get magnitude
+    $weight = $1;
+    if ($metric) { # error checking
+        print "Units error!" unless $x =~ /\Gkg\./g;
+    }
+    else {
+        print "Units error!" unless $x =~ /\Glbs\./g;
+    }
+    $x =~ /\G\s+(widget|sprocket)/g;  # continue processing
+
+The combination of C<//g> and C<\G> allows us to process the string a
+bit at a time and use arbitrary Perl logic to decide what to do next.
+Currently, the C<\G> anchor is only fully supported when used to anchor
+to the start of the pattern.
+
+C<\G> is also invaluable in processing fixed-length records with
+regexps.  Suppose we have a snippet of coding region DNA, encoded as
+base pair letters C<ATCGTTGAAT...> and we want to find all the stop
+codons C<TGA>.  In a coding region, codons are 3-letter sequences, so
+we can think of the DNA snippet as a sequence of 3-letter records.  The
+naive regexp
+
+    # expanded, this is "ATC GTT GAA TGC AAA TGA CAT GAC"
+    $dna = "ATCGTTGAATGCAAATGACATGAC";
+    $dna =~ /TGA/;
+
+doesn't work; it may match a C<TGA>, but there is no guarantee that
+the match is aligned with codon boundaries, e.g., the substring
+S<C<GTT GAA>> gives a match.  A better solution is
+
+    while ($dna =~ /(\w\w\w)*?TGA/g) {  # note the minimal *?
+        print "Got a TGA stop codon at position ", pos $dna, "\n";
+    }
+
+which prints
+
+    Got a TGA stop codon at position 18
+    Got a TGA stop codon at position 23
+
+Position 18 is good, but position 23 is bogus.  What happened?
+
+The answer is that our regexp works well until we get past the last
+real match.  Then the regexp will fail to match a synchronized C<TGA>
+and start stepping ahead one character position at a time, not what we
+want.  The solution is to use C<\G> to anchor the match to the codon
+alignment:
+
+    while ($dna =~ /\G(\w\w\w)*?TGA/g) {
+        print "Got a TGA stop codon at position ", pos $dna, "\n";
+    }
+
+This prints
+
+    Got a TGA stop codon at position 18
+
+which is the correct answer.  This example illustrates that it is
+important not only to match what is desired, but to reject what is not
+desired.
+
+(There are other regexp modifiers that are available, such as
+C<//o>, but their specialized uses are beyond the
+scope of this introduction.  )
+
+=head3 Search and replace
+
+Regular expressions also play a big role in I<search and replace>
+operations in Perl.  Search and replace is accomplished with the
+C<s///> operator.  The general form is
+C<s/regexp/replacement/modifiers>, with everything we know about
+regexps and modifiers applying in this case as well.  The
+C<replacement> is a Perl double-quoted string that replaces in the
+string whatever is matched with the C<regexp>.  The operator C<=~> is
+also used here to associate a string with C<s///>.  If matching
+against C<$_>, the S<C<$_ =~>> can be dropped.  If there is a match,
+C<s///> returns the number of substitutions made; otherwise it returns
+false.  Here are a few examples:
+
+    $x = "Time to feed the cat!";
+    $x =~ s/cat/hacker/;   # $x contains "Time to feed the hacker!"
+    if ($x =~ s/^(Time.*hacker)!$/$1 now!/) {
+        $more_insistent = 1;
+    }
+    $y = "'quoted words'";
+    $y =~ s/^'(.*)'$/$1/;  # strip single quotes,
+                           # $y contains "quoted words"
+
+In the last example, the whole string was matched, but only the part
+inside the single quotes was grouped.  With the C<s///> operator, the
+matched variables C<$1>, C<$2>, etc. are immediately available for use
+in the replacement expression, so we use C<$1> to replace the quoted
+string with just what was quoted.  With the global modifier, C<s///g>
+will search and replace all occurrences of the regexp in the string:
+
+    $x = "I batted 4 for 4";
+    $x =~ s/4/four/;   # doesn't do it all:
+                       # $x contains "I batted four for 4"
+    $x = "I batted 4 for 4";
+    $x =~ s/4/four/g;  # does it all:
+                       # $x contains "I batted four for four"
+
+If you prefer 'regex' over 'regexp' in this tutorial, you could use
+the following program to replace it:
+
+    % cat > simple_replace
+    #!/usr/bin/perl
+    $regexp = shift;
+    $replacement = shift;
+    while (<>) {
+        s/$regexp/$replacement/g;
+        print;
+    }
+    ^D
+
+    % simple_replace regexp regex perlretut.pod
+
+In C<simple_replace> we used the C<s///g> modifier to replace all
+occurrences of the regexp on each line.  (Even though the regular
+expression appears in a loop, Perl is smart enough to compile it
+only once.)  As with C<simple_grep>, both the
+C<print> and the C<s/$regexp/$replacement/g> use C<$_> implicitly.
+
+If you don't want C<s///> to change your original variable you can use
+the non-destructive substitute modifier, C<s///r>.  This changes the
+behavior so that C<s///r> returns the final substituted string
+(instead of the number of substitutions):
+
+    $x = "I like dogs.";
+    $y = $x =~ s/dogs/cats/r;
+    print "$x $y\n";
+
+That example will print "I like dogs. I like cats". Notice the original
+C<$x> variable has not been affected. The overall
+result of the substitution is instead stored in C<$y>. If the
+substitution doesn't affect anything then the original string is
+returned:
+
+    $x = "I like dogs.";
+    $y = $x =~ s/elephants/cougars/r;
+    print "$x $y\n"; # prints "I like dogs. I like dogs."
+
+One other interesting thing that the C<s///r> flag allows is chaining
+substitutions:
+
+    $x = "Cats are great.";
+    print $x =~ s/Cats/Dogs/r =~ s/Dogs/Frogs/r =~
+        s/Frogs/Hedgehogs/r, "\n";
+    # prints "Hedgehogs are great."
+
+A modifier available specifically to search and replace is the
+C<s///e> evaluation modifier.  C<s///e> treats the
+replacement text as Perl code, rather than a double-quoted
+string.  The value that the code returns is substituted for the
+matched substring.  C<s///e> is useful if you need to do a bit of
+computation in the process of replacing text.  This example counts
+character frequencies in a line:
+
+    $x = "Bill the cat";
+    $x =~ s/(.)/$chars{$1}++;$1/eg; # final $1 replaces char with itself
+    print "frequency of '$_' is $chars{$_}\n"
+        foreach (sort {$chars{$b} <=> $chars{$a}} keys %chars);
+
+This prints
+
+    frequency of ' ' is 2
+    frequency of 't' is 2
+    frequency of 'l' is 2
+    frequency of 'B' is 1
+    frequency of 'c' is 1
+    frequency of 'e' is 1
+    frequency of 'h' is 1
+    frequency of 'i' is 1
+    frequency of 'a' is 1
+
+As with the match C<m//> operator, C<s///> can use other delimiters,
+such as C<s!!!> and C<s{}{}>, and even C<s{}//>.  If single quotes are
+used C<s'''>, then the regexp and replacement are
+treated as single-quoted strings and there are no
+variable substitutions.  C<s///> in list context
+returns the same thing as in scalar context, i.e., the number of
+matches.
+
+=head3 The split function
+
+The C<split()> function is another place where a regexp is used.
+C<split /regexp/, string, limit> separates the C<string> operand into
+a list of substrings and returns that list.  The regexp must be designed
+to match whatever constitutes the separators for the desired substrings.
+The C<limit>, if present, constrains splitting into no more than C<limit>
+number of strings.  For example, to split a string into words, use
+
+    $x = "Calvin and Hobbes";
+    @words = split /\s+/, $x;  # $word[0] = 'Calvin'
+                               # $word[1] = 'and'
+                               # $word[2] = 'Hobbes'
+
+If the empty regexp C<//> is used, the regexp always matches and
+the string is split into individual characters.  If the regexp has
+groupings, then the resulting list contains the matched substrings from the
+groupings as well.  For instance,
+
+    $x = "/usr/bin/perl";
+    @dirs = split m!/!, $x;  # $dirs[0] = ''
+                             # $dirs[1] = 'usr'
+                             # $dirs[2] = 'bin'
+                             # $dirs[3] = 'perl'
+    @parts = split m!(/)!, $x;  # $parts[0] = ''
+                                # $parts[1] = '/'
+                                # $parts[2] = 'usr'
+                                # $parts[3] = '/'
+                                # $parts[4] = 'bin'
+                                # $parts[5] = '/'
+                                # $parts[6] = 'perl'
+
+Since the first character of $x matched the regexp, C<split> prepended
+an empty initial element to the list.
+
+If you have read this far, congratulations! You now have all the basic
+tools needed to use regular expressions to solve a wide range of text
+processing problems.  If this is your first time through the tutorial,
+why not stop here and play around with regexps a while....  S<Part 2>
+concerns the more esoteric aspects of regular expressions and those
+concepts certainly aren't needed right at the start.
+
+=head1 Part 2: Power tools
+
+OK, you know the basics of regexps and you want to know more.  If
+matching regular expressions is analogous to a walk in the woods, then
+the tools discussed in Part 1 are analogous to topo maps and a
+compass, basic tools we use all the time.  Most of the tools in part 2
+are analogous to flare guns and satellite phones.  They aren't used
+too often on a hike, but when we are stuck, they can be invaluable.
+
+What follows are the more advanced, less used, or sometimes esoteric
+capabilities of Perl regexps.  In Part 2, we will assume you are
+comfortable with the basics and concentrate on the advanced features.
+
+=head2 More on characters, strings, and character classes
+
+There are a number of escape sequences and character classes that we
+haven't covered yet.
+
+There are several escape sequences that convert characters or strings
+between upper and lower case, and they are also available within
+patterns.  C<\l> and C<\u> convert the next character to lower or
+upper case, respectively:
+
+    $x = "perl";
+    $string =~ /\u$x/;  # matches 'Perl' in $string
+    $x = "M(rs?|s)\\."; # note the double backslash
+    $string =~ /\l$x/;  # matches 'mr.', 'mrs.', and 'ms.',
+
+A C<\L> or C<\U> indicates a lasting conversion of case, until
+terminated by C<\E> or thrown over by another C<\U> or C<\L>:
+
+    $x = "This word is in lower case:\L SHOUT\E";
+    $x =~ /shout/;       # matches
+    $x = "I STILL KEYPUNCH CARDS FOR MY 360"
+    $x =~ /\Ukeypunch/;  # matches punch card string
+
+If there is no C<\E>, case is converted until the end of the
+string. The regexps C<\L\u$word> or C<\u\L$word> convert the first
+character of C<$word> to uppercase and the rest of the characters to
+lowercase.
+
+Control characters can be escaped with C<\c>, so that a control-Z
+character would be matched with C<\cZ>.  The escape sequence
+C<\Q>...C<\E> quotes, or protects most non-alphabetic characters.   For
+instance,
+
+    $x = "\QThat !^*&%~& cat!";
+    $x =~ /\Q!^*&%~&\E/;  # check for rough language
+
+It does not protect C<$> or C<@>, so that variables can still be
+substituted.
+
+C<\Q>, C<\L>, C<\l>, C<\U>, C<\u> and C<\E> are actually part of
+double-quotish syntax, and not part of regexp syntax proper.  They will
+work if they appear in a regular expression embedded directly in a
+program, but not when contained in a string that is interpolated in a
+pattern.
+
+Perl regexps can handle more than just the
+standard ASCII character set.  Perl supports I<Unicode>, a standard
+for representing the alphabets from virtually all of the world's written
+languages, and a host of symbols.  Perl's text strings are Unicode strings, so
+they can contain characters with a value (codepoint or character number) higher
+than 255.
+
+What does this mean for regexps? Well, regexp users don't need to know
+much about Perl's internal representation of strings.  But they do need
+to know 1) how to represent Unicode characters in a regexp and 2) that
+a matching operation will treat the string to be searched as a sequence
+of characters, not bytes.  The answer to 1) is that Unicode characters
+greater than C<chr(255)> are represented using the C<\x{hex}> notation, because
+\x hex (without curly braces) doesn't go further than 255.  (Starting in Perl
+5.14, if you're an octal fan, you can also use C<\o{oct}>.)
+
+    /\x{263a}/;  # match a Unicode smiley face :)
+
+B<NOTE>: In Perl 5.6.0 it used to be that one needed to say C<use
+utf8> to use any Unicode features.  This is no more the case: for
+almost all Unicode processing, the explicit C<utf8> pragma is not
+needed.  (The only case where it matters is if your Perl script is in
+Unicode and encoded in UTF-8, then an explicit C<use utf8> is needed.)
+
+Figuring out the hexadecimal sequence of a Unicode character you want
+or deciphering someone else's hexadecimal Unicode regexp is about as
+much fun as programming in machine code.  So another way to specify
+Unicode characters is to use the I<named character> escape
+sequence C<\N{I<name>}>.  I<name> is a name for the Unicode character, as
+specified in the Unicode standard.  For instance, if we wanted to
+represent or match the astrological sign for the planet Mercury, we
+could use
+
+    $x = "abc\N{MERCURY}def";
+    $x =~ /\N{MERCURY}/;   # matches
+
+One can also use "short" names:
+
+    print "\N{GREEK SMALL LETTER SIGMA} is called sigma.\n";
+    print "\N{greek:Sigma} is an upper-case sigma.\n";
+
+You can also restrict names to a certain alphabet by specifying the
+L<charnames> pragma:
+
+    use charnames qw(greek);
+    print "\N{sigma} is Greek sigma\n";
+
+An index of character names is available on-line from the Unicode
+Consortium, L<http://www.unicode.org/charts/charindex.html>; explanatory
+material with links to other resources at
+L<http://www.unicode.org/standard/where>.
+
+The answer to requirement 2) is that a regexp (mostly)
+uses Unicode characters.  The "mostly" is for messy backward
+compatibility reasons, but starting in Perl 5.14, any regex compiled in
+the scope of a C<use feature 'unicode_strings'> (which is automatically
+turned on within the scope of a C<use 5.012> or higher) will turn that
+"mostly" into "always".  If you want to handle Unicode properly, you
+should ensure that C<'unicode_strings'> is turned on.
+Internally, this is encoded to bytes using either UTF-8 or a native 8
+bit encoding, depending on the history of the string, but conceptually
+it is a sequence of characters, not bytes. See L<perlunitut> for a
+tutorial about that.
+
+Let us now discuss Unicode character classes, most usually called
+"character properties".  These are represented by the
+C<\p{name}> escape sequence.  Closely associated is the C<\P{name}>
+property, which is the negation of the C<\p{name}> one.  For
+example, to match lower and uppercase characters,
+
+    $x = "BOB";
+    $x =~ /^\p{IsUpper}/;   # matches, uppercase char class
+    $x =~ /^\P{IsUpper}/;   # doesn't match, char class sans uppercase
+    $x =~ /^\p{IsLower}/;   # doesn't match, lowercase char class
+    $x =~ /^\P{IsLower}/;   # matches, char class sans lowercase
+
+(The "Is" is optional.)
+
+There are many, many Unicode character properties.  For the full list
+see L<perluniprops>.  Most of them have synonyms with shorter names,
+also listed there.  Some synonyms are a single character.  For these,
+you can drop the braces.  For instance, C<\pM> is the same thing as
+C<\p{Mark}>, meaning things like accent marks.
+
+The Unicode C<\p{Script}> property is used to categorize every Unicode
+character into the language script it is written in.  For example,
+English, French, and a bunch of other European languages are written in
+the Latin script.  But there is also the Greek script, the Thai script,
+the Katakana script, etc.  You can test whether a character is in a
+particular script with, for example C<\p{Latin}>, C<\p{Greek}>,
+or C<\p{Katakana}>.  To test if it isn't in the Balinese script, you
+would use C<\P{Balinese}>.
+
+What we have described so far is the single form of the C<\p{...}> character
+classes.  There is also a compound form which you may run into.  These
+look like C<\p{name=value}> or C<\p{name:value}> (the equals sign and colon
+can be used interchangeably).  These are more general than the single form,
+and in fact most of the single forms are just Perl-defined shortcuts for common
+compound forms.  For example, the script examples in the previous paragraph
+could be written equivalently as C<\p{Script=Latin}>, C<\p{Script:Greek}>,
+C<\p{script=katakana}>, and C<\P{script=balinese}> (case is irrelevant
+between the C<{}> braces).  You may
+never have to use the compound forms, but sometimes it is necessary, and their
+use can make your code easier to understand.
+
+C<\X> is an abbreviation for a character class that comprises
+a Unicode I<extended grapheme cluster>.  This represents a "logical character":
+what appears to be a single character, but may be represented internally by more
+than one.  As an example, using the Unicode full names, e.g., S<C<A + COMBINING
+RING>> is a grapheme cluster with base character C<A> and combining character
+S<C<COMBINING RING>>, which translates in Danish to A with the circle atop it,
+as in the word E<Aring>ngstrom.
+
+For the full and latest information about Unicode see the latest
+Unicode standard, or the Unicode Consortium's website L<http://www.unicode.org>
+
+As if all those classes weren't enough, Perl also defines POSIX-style
+character classes.  These have the form C<[:name:]>, with C<name> the
+name of the POSIX class.  The POSIX classes are C<alpha>, C<alnum>,
+C<ascii>, C<cntrl>, C<digit>, C<graph>, C<lower>, C<print>, C<punct>,
+C<space>, C<upper>, and C<xdigit>, and two extensions, C<word> (a Perl
+extension to match C<\w>), and C<blank> (a GNU extension).  The C<//a>
+modifier restricts these to matching just in the ASCII range; otherwise
+they can match the same as their corresponding Perl Unicode classes:
+C<[:upper:]> is the same as C<\p{IsUpper}>, etc.  (There are some
+exceptions and gotchas with this; see L<perlrecharclass> for a full
+discussion.) The C<[:digit:]>, C<[:word:]>, and
+C<[:space:]> correspond to the familiar C<\d>, C<\w>, and C<\s>
+character classes.  To negate a POSIX class, put a C<^> in front of
+the name, so that, e.g., C<[:^digit:]> corresponds to C<\D> and, under
+Unicode, C<\P{IsDigit}>.  The Unicode and POSIX character classes can
+be used just like C<\d>, with the exception that POSIX character
+classes can only be used inside of a character class:
+
+    /\s+[abc[:digit:]xyz]\s*/;  # match a,b,c,x,y,z, or a digit
+    /^=item\s[[:digit:]]/;      # match '=item',
+                                # followed by a space and a digit
+    /\s+[abc\p{IsDigit}xyz]\s+/;  # match a,b,c,x,y,z, or a digit
+    /^=item\s\p{IsDigit}/;        # match '=item',
+                                  # followed by a space and a digit
+
+Whew! That is all the rest of the characters and character classes.
+
+=head2 Compiling and saving regular expressions
+
+In Part 1 we mentioned that Perl compiles a regexp into a compact
+sequence of opcodes.  Thus, a compiled regexp is a data structure
+that can be stored once and used again and again.  The regexp quote
+C<qr//> does exactly that: C<qr/string/> compiles the C<string> as a
+regexp and transforms the result into a form that can be assigned to a
+variable:
+
+    $reg = qr/foo+bar?/;  # reg contains a compiled regexp
+
+Then C<$reg> can be used as a regexp:
+
+    $x = "fooooba";
+    $x =~ $reg;     # matches, just like /foo+bar?/
+    $x =~ /$reg/;   # same thing, alternate form
+
+C<$reg> can also be interpolated into a larger regexp:
+
+    $x =~ /(abc)?$reg/;  # still matches
+
+As with the matching operator, the regexp quote can use different
+delimiters, e.g., C<qr!!>, C<qr{}> or C<qr~~>.  Apostrophes
+as delimiters (C<qr''>) inhibit any interpolation.
+
+Pre-compiled regexps are useful for creating dynamic matches that
+don't need to be recompiled each time they are encountered.  Using
+pre-compiled regexps, we write a C<grep_step> program which greps
+for a sequence of patterns, advancing to the next pattern as soon
+as one has been satisfied.
+
+    % cat > grep_step
+    #!/usr/bin/perl
+    # grep_step - match <number> regexps, one after the other
+    # usage: multi_grep <number> regexp1 regexp2 ... file1 file2 ...
+
+    $number = shift;
+    $regexp[$_] = shift foreach (0..$number-1);
+    @compiled = map qr/$_/, @regexp;
+    while ($line = <>) {
+        if ($line =~ /$compiled[0]/) {
+            print $line;
+            shift @compiled;
+            last unless @compiled;
+        }
+    }
+    ^D
+
+    % grep_step 3 shift print last grep_step
+    $number = shift;
+            print $line;
+            last unless @compiled;
+
+Storing pre-compiled regexps in an array C<@compiled> allows us to
+simply loop through the regexps without any recompilation, thus gaining
+flexibility without sacrificing speed.
+
+
+=head2 Composing regular expressions at runtime
+
+Backtracking is more efficient than repeated tries with different regular
+expressions.  If there are several regular expressions and a match with
+any of them is acceptable, then it is possible to combine them into a set
+of alternatives.  If the individual expressions are input data, this
+can be done by programming a join operation.  We'll exploit this idea in
+an improved version of the C<simple_grep> program: a program that matches
+multiple patterns:
+
+    % cat > multi_grep
+    #!/usr/bin/perl
+    # multi_grep - match any of <number> regexps
+    # usage: multi_grep <number> regexp1 regexp2 ... file1 file2 ...
+
+    $number = shift;
+    $regexp[$_] = shift foreach (0..$number-1);
+    $pattern = join '|', @regexp;
+
+    while ($line = <>) {
+        print $line if $line =~ /$pattern/;
+    }
+    ^D
+
+    % multi_grep 2 shift for multi_grep
+    $number = shift;
+    $regexp[$_] = shift foreach (0..$number-1);
+
+Sometimes it is advantageous to construct a pattern from the I<input>
+that is to be analyzed and use the permissible values on the left
+hand side of the matching operations.  As an example for this somewhat
+paradoxical situation, let's assume that our input contains a command
+verb which should match one out of a set of available command verbs,
+with the additional twist that commands may be abbreviated as long as
+the given string is unique. The program below demonstrates the basic
+algorithm.
+
+    % cat > keymatch
+    #!/usr/bin/perl
+    $kwds = 'copy compare list print';
+    while( $cmd = <> ){
+        $cmd =~ s/^\s+|\s+$//g;  # trim leading and trailing spaces
+        if( ( @matches = $kwds =~ /\b$cmd\w*/g ) == 1 ){
+            print "command: '@matches'\n";
+        } elsif( @matches == 0 ){
+            print "no such command: '$cmd'\n";
+        } else {
+            print "not unique: '$cmd' (could be one of: @matches)\n";
+        }
+    }
+    ^D
+
+    % keymatch
+    li
+    command: 'list'
+    co
+    not unique: 'co' (could be one of: copy compare)
+    printer
+    no such command: 'printer'
+
+Rather than trying to match the input against the keywords, we match the
+combined set of keywords against the input.  The pattern matching
+operation S<C<$kwds =~ /\b($cmd\w*)/g>> does several things at the
+same time. It makes sure that the given command begins where a keyword
+begins (C<\b>). It tolerates abbreviations due to the added C<\w*>. It
+tells us the number of matches (C<scalar @matches>) and all the keywords
+that were actually matched.  You could hardly ask for more.
+
+=head2 Embedding comments and modifiers in a regular expression
+
+Starting with this section, we will be discussing Perl's set of
+I<extended patterns>.  These are extensions to the traditional regular
+expression syntax that provide powerful new tools for pattern
+matching.  We have already seen extensions in the form of the minimal
+matching constructs C<??>, C<*?>, C<+?>, C<{n,m}?>, and C<{n,}?>.  Most
+of the extensions below have the form C<(?char...)>, where the
+C<char> is a character that determines the type of extension.
+
+The first extension is an embedded comment C<(?#text)>.  This embeds a
+comment into the regular expression without affecting its meaning.  The
+comment should not have any closing parentheses in the text.  An
+example is
+
+    /(?# Match an integer:)[+-]?\d+/;
+
+This style of commenting has been largely superseded by the raw,
+freeform commenting that is allowed with the C<//x> modifier.
+
+Most modifiers, such as C<//i>, C<//m>, C<//s> and C<//x> (or any
+combination thereof) can also be embedded in
+a regexp using C<(?i)>, C<(?m)>, C<(?s)>, and C<(?x)>.  For instance,
+
+    /(?i)yes/;  # match 'yes' case insensitively
+    /yes/i;     # same thing
+    /(?x)(          # freeform version of an integer regexp
+             [+-]?  # match an optional sign
+             \d+    # match a sequence of digits
+         )
+    /x;
+
+Embedded modifiers can have two important advantages over the usual
+modifiers.  Embedded modifiers allow a custom set of modifiers to
+I<each> regexp pattern.  This is great for matching an array of regexps
+that must have different modifiers:
+
+    $pattern[0] = '(?i)doctor';
+    $pattern[1] = 'Johnson';
+    ...
+    while (<>) {
+        foreach $patt (@pattern) {
+            print if /$patt/;
+        }
+    }
+
+The second advantage is that embedded modifiers (except C<//p>, which
+modifies the entire regexp) only affect the regexp
+inside the group the embedded modifier is contained in.  So grouping
+can be used to localize the modifier's effects:
+
+    /Answer: ((?i)yes)/;  # matches 'Answer: yes', 'Answer: YES', etc.
+
+Embedded modifiers can also turn off any modifiers already present
+by using, e.g., C<(?-i)>.  Modifiers can also be combined into
+a single expression, e.g., C<(?s-i)> turns on single line mode and
+turns off case insensitivity.
+
+Embedded modifiers may also be added to a non-capturing grouping.
+C<(?i-m:regexp)> is a non-capturing grouping that matches C<regexp>
+case insensitively and turns off multi-line mode.
+
+
+=head2 Looking ahead and looking behind
+
+This section concerns the lookahead and lookbehind assertions.  First,
+a little background.
+
+In Perl regular expressions, most regexp elements 'eat up' a certain
+amount of string when they match.  For instance, the regexp element
+C<[abc]> eats up one character of the string when it matches, in the
+sense that Perl moves to the next character position in the string
+after the match.  There are some elements, however, that don't eat up
+characters (advance the character position) if they match.  The examples
+we have seen so far are the anchors.  The anchor C<^> matches the
+beginning of the line, but doesn't eat any characters.  Similarly, the
+word boundary anchor C<\b> matches wherever a character matching C<\w>
+is next to a character that doesn't, but it doesn't eat up any
+characters itself.  Anchors are examples of I<zero-width assertions>:
+zero-width, because they consume
+no characters, and assertions, because they test some property of the
+string.  In the context of our walk in the woods analogy to regexp
+matching, most regexp elements move us along a trail, but anchors have
+us stop a moment and check our surroundings.  If the local environment
+checks out, we can proceed forward.  But if the local environment
+doesn't satisfy us, we must backtrack.
+
+Checking the environment entails either looking ahead on the trail,
+looking behind, or both.  C<^> looks behind, to see that there are no
+characters before.  C<$> looks ahead, to see that there are no
+characters after.  C<\b> looks both ahead and behind, to see if the
+characters on either side differ in their "word-ness".
+
+The lookahead and lookbehind assertions are generalizations of the
+anchor concept.  Lookahead and lookbehind are zero-width assertions
+that let us specify which characters we want to test for.  The
+lookahead assertion is denoted by C<(?=regexp)> and the lookbehind
+assertion is denoted by C<< (?<=fixed-regexp) >>.  Some examples are
+
+    $x = "I catch the housecat 'Tom-cat' with catnip";
+    $x =~ /cat(?=\s)/;   # matches 'cat' in 'housecat'
+    @catwords = ($x =~ /(?<=\s)cat\w+/g);  # matches,
+                                           # $catwords[0] = 'catch'
+                                           # $catwords[1] = 'catnip'
+    $x =~ /\bcat\b/;  # matches 'cat' in 'Tom-cat'
+    $x =~ /(?<=\s)cat(?=\s)/; # doesn't match; no isolated 'cat' in
+                              # middle of $x
+
+Note that the parentheses in C<(?=regexp)> and C<< (?<=regexp) >> are
+non-capturing, since these are zero-width assertions.  Thus in the
+second regexp, the substrings captured are those of the whole regexp
+itself.  Lookahead C<(?=regexp)> can match arbitrary regexps, but
+lookbehind C<< (?<=fixed-regexp) >> only works for regexps of fixed
+width, i.e., a fixed number of characters long.  Thus
+C<< (?<=(ab|bc)) >> is fine, but C<< (?<=(ab)*) >> is not.  The
+negated versions of the lookahead and lookbehind assertions are
+denoted by C<(?!regexp)> and C<< (?<!fixed-regexp) >> respectively.
+They evaluate true if the regexps do I<not> match:
+
+    $x = "foobar";
+    $x =~ /foo(?!bar)/;  # doesn't match, 'bar' follows 'foo'
+    $x =~ /foo(?!baz)/;  # matches, 'baz' doesn't follow 'foo'
+    $x =~ /(?<!\s)foo/;  # matches, there is no \s before 'foo'
+
+Here is an example where a string containing blank-separated words,
+numbers and single dashes is to be split into its components.
+Using C</\s+/> alone won't work, because spaces are not required between
+dashes, or a word or a dash. Additional places for a split are established
+by looking ahead and behind:
+
+    $str = "one two - --6-8";
+    @toks = split / \s+              # a run of spaces
+                  | (?<=\S) (?=-)    # any non-space followed by '-'
+                  | (?<=-)  (?=\S)   # a '-' followed by any non-space
+                  /x, $str;          # @toks = qw(one two - - - 6 - 8)
+
+
+=head2 Using independent subexpressions to prevent backtracking
+
+I<Independent subexpressions> are regular expressions, in the
+context of a larger regular expression, that function independently of
+the larger regular expression.  That is, they consume as much or as
+little of the string as they wish without regard for the ability of
+the larger regexp to match.  Independent subexpressions are represented
+by C<< (?>regexp) >>.  We can illustrate their behavior by first
+considering an ordinary regexp:
+
+    $x = "ab";
+    $x =~ /a*ab/;  # matches
+
+This obviously matches, but in the process of matching, the
+subexpression C<a*> first grabbed the C<a>.  Doing so, however,
+wouldn't allow the whole regexp to match, so after backtracking, C<a*>
+eventually gave back the C<a> and matched the empty string.  Here, what
+C<a*> matched was I<dependent> on what the rest of the regexp matched.
+
+Contrast that with an independent subexpression:
+
+    $x =~ /(?>a*)ab/;  # doesn't match!
+
+The independent subexpression C<< (?>a*) >> doesn't care about the rest
+of the regexp, so it sees an C<a> and grabs it.  Then the rest of the
+regexp C<ab> cannot match.  Because C<< (?>a*) >> is independent, there
+is no backtracking and the independent subexpression does not give
+up its C<a>.  Thus the match of the regexp as a whole fails.  A similar
+behavior occurs with completely independent regexps:
+
+    $x = "ab";
+    $x =~ /a*/g;   # matches, eats an 'a'
+    $x =~ /\Gab/g; # doesn't match, no 'a' available
+
+Here C<//g> and C<\G> create a 'tag team' handoff of the string from
+one regexp to the other.  Regexps with an independent subexpression are
+much like this, with a handoff of the string to the independent
+subexpression, and a handoff of the string back to the enclosing
+regexp.
+
+The ability of an independent subexpression to prevent backtracking
+can be quite useful.  Suppose we want to match a non-empty string
+enclosed in parentheses up to two levels deep.  Then the following
+regexp matches:
+
+    $x = "abc(de(fg)h";  # unbalanced parentheses
+    $x =~ /\( ( [^()]+ | \([^()]*\) )+ \)/x;
+
+The regexp matches an open parenthesis, one or more copies of an
+alternation, and a close parenthesis.  The alternation is two-way, with
+the first alternative C<[^()]+> matching a substring with no
+parentheses and the second alternative C<\([^()]*\)>  matching a
+substring delimited by parentheses.  The problem with this regexp is
+that it is pathological: it has nested indeterminate quantifiers
+of the form C<(a+|b)+>.  We discussed in Part 1 how nested quantifiers
+like this could take an exponentially long time to execute if there
+was no match possible.  To prevent the exponential blowup, we need to
+prevent useless backtracking at some point.  This can be done by
+enclosing the inner quantifier as an independent subexpression:
+
+    $x =~ /\( ( (?>[^()]+) | \([^()]*\) )+ \)/x;
+
+Here, C<< (?>[^()]+) >> breaks the degeneracy of string partitioning
+by gobbling up as much of the string as possible and keeping it.   Then
+match failures fail much more quickly.
+
+
+=head2 Conditional expressions
+
+A I<conditional expression> is a form of if-then-else statement
+that allows one to choose which patterns are to be matched, based on
+some condition.  There are two types of conditional expression:
+C<(?(condition)yes-regexp)> and
+C<(?(condition)yes-regexp|no-regexp)>.  C<(?(condition)yes-regexp)> is
+like an S<C<'if () {}'>> statement in Perl.  If the C<condition> is true,
+the C<yes-regexp> will be matched.  If the C<condition> is false, the
+C<yes-regexp> will be skipped and Perl will move onto the next regexp
+element.  The second form is like an S<C<'if () {} else {}'>> statement
+in Perl.  If the C<condition> is true, the C<yes-regexp> will be
+matched, otherwise the C<no-regexp> will be matched.
+
+The C<condition> can have several forms.  The first form is simply an
+integer in parentheses C<(integer)>.  It is true if the corresponding
+backreference C<\integer> matched earlier in the regexp.  The same
+thing can be done with a name associated with a capture group, written
+as C<< (<name>) >> or C<< ('name') >>.  The second form is a bare
+zero-width assertion C<(?...)>, either a lookahead, a lookbehind, or a
+code assertion (discussed in the next section).  The third set of forms
+provides tests that return true if the expression is executed within
+a recursion (C<(R)>) or is being called from some capturing group,
+referenced either by number (C<(R1)>, C<(R2)>,...) or by name
+(C<(R&name)>).
+
+The integer or name form of the C<condition> allows us to choose,
+with more flexibility, what to match based on what matched earlier in the
+regexp. This searches for words of the form C<"$x$x"> or C<"$x$y$y$x">:
+
+    % simple_grep '^(\w+)(\w+)?(?(2)\g2\g1|\g1)$' /usr/dict/words
+    beriberi
+    coco
+    couscous
+    deed
+    ...
+    toot
+    toto
+    tutu
+
+The lookbehind C<condition> allows, along with backreferences,
+an earlier part of the match to influence a later part of the
+match.  For instance,
+
+    /[ATGC]+(?(?<=AA)G|C)$/;
+
+matches a DNA sequence such that it either ends in C<AAG>, or some
+other base pair combination and C<C>.  Note that the form is
+C<< (?(?<=AA)G|C) >> and not C<< (?((?<=AA))G|C) >>; for the
+lookahead, lookbehind or code assertions, the parentheses around the
+conditional are not needed.
+
+
+=head2 Defining named patterns
+
+Some regular expressions use identical subpatterns in several places.
+Starting with Perl 5.10, it is possible to define named subpatterns in
+a section of the pattern so that they can be called up by name
+anywhere in the pattern.  This syntactic pattern for this definition
+group is C<< (?(DEFINE)(?<name>pattern)...) >>.  An insertion
+of a named pattern is written as C<(?&name)>.
+
+The example below illustrates this feature using the pattern for
+floating point numbers that was presented earlier on.  The three
+subpatterns that are used more than once are the optional sign, the
+digit sequence for an integer and the decimal fraction.  The DEFINE
+group at the end of the pattern contains their definition.  Notice
+that the decimal fraction pattern is the first place where we can
+reuse the integer pattern.
+
+   /^ (?&osg)\ * ( (?&int)(?&dec)? | (?&dec) )
+      (?: [eE](?&osg)(?&int) )?
+    $
+    (?(DEFINE)
+      (?<osg>[-+]?)         # optional sign
+      (?<int>\d++)          # integer
+      (?<dec>\.(?&int))     # decimal fraction
+    )/x
+
+
+=head2 Recursive patterns
+
+This feature (introduced in Perl 5.10) significantly extends the
+power of Perl's pattern matching.  By referring to some other
+capture group anywhere in the pattern with the construct
+C<(?group-ref)>, the I<pattern> within the referenced group is used
+as an independent subpattern in place of the group reference itself.
+Because the group reference may be contained I<within> the group it
+refers to, it is now possible to apply pattern matching to tasks that
+hitherto required a recursive parser.
+
+To illustrate this feature, we'll design a pattern that matches if
+a string contains a palindrome. (This is a word or a sentence that,
+while ignoring spaces, interpunctuation and case, reads the same backwards
+as forwards. We begin by observing that the empty string or a string
+containing just one word character is a palindrome. Otherwise it must
+have a word character up front and the same at its end, with another
+palindrome in between.
+
+    /(?: (\w) (?...Here be a palindrome...) \g{-1} | \w? )/x
+
+Adding C<\W*> at either end to eliminate what is to be ignored, we already
+have the full pattern:
+
+    my $pp = qr/^(\W* (?: (\w) (?1) \g{-1} | \w? ) \W*)$/ix;
+    for $s ( "saippuakauppias", "A man, a plan, a canal: Panama!" ){
+        print "'$s' is a palindrome\n" if $s =~ /$pp/;
+    }
+
+In C<(?...)> both absolute and relative backreferences may be used.
+The entire pattern can be reinserted with C<(?R)> or C<(?0)>.
+If you prefer to name your groups, you can use C<(?&name)> to
+recurse into that group.
+
+
+=head2 A bit of magic: executing Perl code in a regular expression
+
+Normally, regexps are a part of Perl expressions.
+I<Code evaluation> expressions turn that around by allowing
+arbitrary Perl code to be a part of a regexp.  A code evaluation
+expression is denoted C<(?{code})>, with I<code> a string of Perl
+statements.
+
+Be warned that this feature is considered experimental, and may be
+changed without notice.
+
+Code expressions are zero-width assertions, and the value they return
+depends on their environment.  There are two possibilities: either the
+code expression is used as a conditional in a conditional expression
+C<(?(condition)...)>, or it is not.  If the code expression is a
+conditional, the code is evaluated and the result (i.e., the result of
+the last statement) is used to determine truth or falsehood.  If the
+code expression is not used as a conditional, the assertion always
+evaluates true and the result is put into the special variable
+C<$^R>.  The variable C<$^R> can then be used in code expressions later
+in the regexp.  Here are some silly examples:
+
+    $x = "abcdef";
+    $x =~ /abc(?{print "Hi Mom!";})def/; # matches,
+                                         # prints 'Hi Mom!'
+    $x =~ /aaa(?{print "Hi Mom!";})def/; # doesn't match,
+                                         # no 'Hi Mom!'
+
+Pay careful attention to the next example:
+
+    $x =~ /abc(?{print "Hi Mom!";})ddd/; # doesn't match,
+                                         # no 'Hi Mom!'
+                                         # but why not?
+
+At first glance, you'd think that it shouldn't print, because obviously
+the C<ddd> isn't going to match the target string. But look at this
+example:
+
+    $x =~ /abc(?{print "Hi Mom!";})[dD]dd/; # doesn't match,
+                                            # but _does_ print
+
+Hmm. What happened here? If you've been following along, you know that
+the above pattern should be effectively (almost) the same as the last one;
+enclosing the C<d> in a character class isn't going to change what it
+matches. So why does the first not print while the second one does?
+
+The answer lies in the optimizations the regex engine makes. In the first
+case, all the engine sees are plain old characters (aside from the
+C<?{}> construct). It's smart enough to realize that the string 'ddd'
+doesn't occur in our target string before actually running the pattern
+through. But in the second case, we've tricked it into thinking that our
+pattern is more complicated. It takes a look, sees our
+character class, and decides that it will have to actually run the
+pattern to determine whether or not it matches, and in the process of
+running it hits the print statement before it discovers that we don't
+have a match.
+
+To take a closer look at how the engine does optimizations, see the
+section L<"Pragmas and debugging"> below.
+
+More fun with C<?{}>:
+
+    $x =~ /(?{print "Hi Mom!";})/;       # matches,
+                                         # prints 'Hi Mom!'
+    $x =~ /(?{$c = 1;})(?{print "$c";})/;  # matches,
+                                           # prints '1'
+    $x =~ /(?{$c = 1;})(?{print "$^R";})/; # matches,
+                                           # prints '1'
+
+The bit of magic mentioned in the section title occurs when the regexp
+backtracks in the process of searching for a match.  If the regexp
+backtracks over a code expression and if the variables used within are
+localized using C<local>, the changes in the variables produced by the
+code expression are undone! Thus, if we wanted to count how many times
+a character got matched inside a group, we could use, e.g.,
+
+    $x = "aaaa";
+    $count = 0;  # initialize 'a' count
+    $c = "bob";  # test if $c gets clobbered
+    $x =~ /(?{local $c = 0;})         # initialize count
+           ( a                        # match 'a'
+             (?{local $c = $c + 1;})  # increment count
+           )*                         # do this any number of times,
+           aa                         # but match 'aa' at the end
+           (?{$count = $c;})          # copy local $c var into $count
+          /x;
+    print "'a' count is $count, \$c variable is '$c'\n";
+
+This prints
+
+    'a' count is 2, $c variable is 'bob'
+
+If we replace the S<C< (?{local $c = $c + 1;})>> with
+S<C< (?{$c = $c + 1;})>>, the variable changes are I<not> undone
+during backtracking, and we get
+
+    'a' count is 4, $c variable is 'bob'
+
+Note that only localized variable changes are undone.  Other side
+effects of code expression execution are permanent.  Thus
+
+    $x = "aaaa";
+    $x =~ /(a(?{print "Yow\n";}))*aa/;
+
+produces
+
+   Yow
+   Yow
+   Yow
+   Yow
+
+The result C<$^R> is automatically localized, so that it will behave
+properly in the presence of backtracking.
+
+This example uses a code expression in a conditional to match a
+definite article, either 'the' in English or 'der|die|das' in German:
+
+    $lang = 'DE';  # use German
+    ...
+    $text = "das";
+    print "matched\n"
+        if $text =~ /(?(?{
+                          $lang eq 'EN'; # is the language English?
+                         })
+                       the |             # if so, then match 'the'
+                       (der|die|das)     # else, match 'der|die|das'
+                     )
+                    /xi;
+
+Note that the syntax here is C<(?(?{...})yes-regexp|no-regexp)>, not
+C<(?((?{...}))yes-regexp|no-regexp)>.  In other words, in the case of a
+code expression, we don't need the extra parentheses around the
+conditional.
+
+If you try to use code expressions where the code text is contained within
+an interpolated variable, rather than appearing literally in the pattern,
+Perl may surprise you:
+
+    $bar = 5;
+    $pat = '(?{ 1 })';
+    /foo(?{ $bar })bar/; # compiles ok, $bar not interpolated
+    /foo(?{ 1 })$bar/;   # compiles ok, $bar interpolated
+    /foo${pat}bar/;      # compile error!
+
+    $pat = qr/(?{ $foo = 1 })/;  # precompile code regexp
+    /foo${pat}bar/;      # compiles ok
+
+If a regexp has a variable that interpolates a code expression, Perl
+treats the regexp as an error. If the code expression is precompiled into
+a variable, however, interpolating is ok. The question is, why is this an
+error?
+
+The reason is that variable interpolation and code expressions
+together pose a security risk.  The combination is dangerous because
+many programmers who write search engines often take user input and
+plug it directly into a regexp:
+
+    $regexp = <>;       # read user-supplied regexp
+    $chomp $regexp;     # get rid of possible newline
+    $text =~ /$regexp/; # search $text for the $regexp
+
+If the C<$regexp> variable contains a code expression, the user could
+then execute arbitrary Perl code.  For instance, some joker could
+search for S<C<system('rm -rf *');>> to erase your files.  In this
+sense, the combination of interpolation and code expressions I<taints>
+your regexp.  So by default, using both interpolation and code
+expressions in the same regexp is not allowed.  If you're not
+concerned about malicious users, it is possible to bypass this
+security check by invoking S<C<use re 'eval'>>:
+
+    use re 'eval';       # throw caution out the door
+    $bar = 5;
+    $pat = '(?{ 1 })';
+    /foo${pat}bar/;      # compiles ok
+
+Another form of code expression is the I<pattern code expression>.
+The pattern code expression is like a regular code expression, except
+that the result of the code evaluation is treated as a regular
+expression and matched immediately.  A simple example is
+
+    $length = 5;
+    $char = 'a';
+    $x = 'aaaaabb';
+    $x =~ /(??{$char x $length})/x; # matches, there are 5 of 'a'
+
+
+This final example contains both ordinary and pattern code
+expressions.  It detects whether a binary string C<1101010010001...> has a
+Fibonacci spacing 0,1,1,2,3,5,...  of the C<1>'s:
+
+    $x = "1101010010001000001";
+    $z0 = ''; $z1 = '0';   # initial conditions
+    print "It is a Fibonacci sequence\n"
+        if $x =~ /^1         # match an initial '1'
+                    (?:
+                       ((??{ $z0 })) # match some '0'
+                       1             # and then a '1'
+		       (?{ $z0 = $z1; $z1 .= $^N; })
+                    )+   # repeat as needed
+                  $      # that is all there is
+                 /x;
+    printf "Largest sequence matched was %d\n", length($z1)-length($z0);
+
+Remember that C<$^N> is set to whatever was matched by the last
+completed capture group. This prints
+
+    It is a Fibonacci sequence
+    Largest sequence matched was 5
+
+Ha! Try that with your garden variety regexp package...
+
+Note that the variables C<$z0> and C<$z1> are not substituted when the
+regexp is compiled, as happens for ordinary variables outside a code
+expression.  Rather, the whole code block is parsed as perl code at the
+same time as perl is compiling the code containing the literal regexp
+pattern.
+
+The regexp without the C<//x> modifier is
+
+    /^1(?:((??{ $z0 }))1(?{ $z0 = $z1; $z1 .= $^N; }))+$/
+
+which shows that spaces are still possible in the code parts. Nevertheless,
+when working with code and conditional expressions, the extended form of
+regexps is almost necessary in creating and debugging regexps.
+
+
+=head2 Backtracking control verbs
+
+Perl 5.10 introduced a number of control verbs intended to provide
+detailed control over the backtracking process, by directly influencing
+the regexp engine and by providing monitoring techniques.  As all
+the features in this group are experimental and subject to change or
+removal in a future version of Perl, the interested reader is
+referred to L<perlre/"Special Backtracking Control Verbs"> for a
+detailed description.
+
+Below is just one example, illustrating the control verb C<(*FAIL)>,
+which may be abbreviated as C<(*F)>. If this is inserted in a regexp
+it will cause it to fail, just as it would at some
+mismatch between the pattern and the string. Processing
+of the regexp continues as it would after any "normal"
+failure, so that, for instance, the next position in the string or another
+alternative will be tried. As failing to match doesn't preserve capture
+groups or produce results, it may be necessary to use this in
+combination with embedded code.
+
+   %count = ();
+   "supercalifragilisticexpialidocious" =~
+       /([aeiou])(?{ $count{$1}++; })(*FAIL)/i;
+   printf "%3d '%s'\n", $count{$_}, $_ for (sort keys %count);
+
+The pattern begins with a class matching a subset of letters.  Whenever
+this matches, a statement like C<$count{'a'}++;> is executed, incrementing
+the letter's counter. Then C<(*FAIL)> does what it says, and
+the regexp engine proceeds according to the book: as long as the end of
+the string hasn't been reached, the position is advanced before looking
+for another vowel. Thus, match or no match makes no difference, and the
+regexp engine proceeds until the entire string has been inspected.
+(It's remarkable that an alternative solution using something like
+
+   $count{lc($_)}++ for split('', "supercalifragilisticexpialidocious");
+   printf "%3d '%s'\n", $count2{$_}, $_ for ( qw{ a e i o u } );
+
+is considerably slower.)
+
+
+=head2 Pragmas and debugging
+
+Speaking of debugging, there are several pragmas available to control
+and debug regexps in Perl.  We have already encountered one pragma in
+the previous section, S<C<use re 'eval';>>, that allows variable
+interpolation and code expressions to coexist in a regexp.  The other
+pragmas are
+
+    use re 'taint';
+    $tainted = <>;
+    @parts = ($tainted =~ /(\w+)\s+(\w+)/; # @parts is now tainted
+
+The C<taint> pragma causes any substrings from a match with a tainted
+variable to be tainted as well.  This is not normally the case, as
+regexps are often used to extract the safe bits from a tainted
+variable.  Use C<taint> when you are not extracting safe bits, but are
+performing some other processing.  Both C<taint> and C<eval> pragmas
+are lexically scoped, which means they are in effect only until
+the end of the block enclosing the pragmas.
+
+    use re '/m';  # or any other flags
+    $multiline_string =~ /^foo/; # /m is implied
+
+The C<re '/flags'> pragma (introduced in Perl
+5.14) turns on the given regular expression flags
+until the end of the lexical scope.  See
+L<re/"'E<sol>flags' mode"> for more
+detail.
+
+    use re 'debug';
+    /^(.*)$/s;       # output debugging info
+
+    use re 'debugcolor';
+    /^(.*)$/s;       # output debugging info in living color
+
+The global C<debug> and C<debugcolor> pragmas allow one to get
+detailed debugging info about regexp compilation and
+execution.  C<debugcolor> is the same as debug, except the debugging
+information is displayed in color on terminals that can display
+termcap color sequences.  Here is example output:
+
+    % perl -e 'use re "debug"; "abc" =~ /a*b+c/;'
+    Compiling REx 'a*b+c'
+    size 9 first at 1
+       1: STAR(4)
+       2:   EXACT <a>(0)
+       4: PLUS(7)
+       5:   EXACT <b>(0)
+       7: EXACT <c>(9)
+       9: END(0)
+    floating 'bc' at 0..2147483647 (checking floating) minlen 2
+    Guessing start of match, REx 'a*b+c' against 'abc'...
+    Found floating substr 'bc' at offset 1...
+    Guessed: match at offset 0
+    Matching REx 'a*b+c' against 'abc'
+      Setting an EVAL scope, savestack=3
+       0 <> <abc>           |  1:  STAR
+                             EXACT <a> can match 1 times out of 32767...
+      Setting an EVAL scope, savestack=3
+       1 <a> <bc>           |  4:    PLUS
+                             EXACT <b> can match 1 times out of 32767...
+      Setting an EVAL scope, savestack=3
+       2 <ab> <c>           |  7:      EXACT <c>
+       3 <abc> <>           |  9:      END
+    Match successful!
+    Freeing REx: 'a*b+c'
+
+If you have gotten this far into the tutorial, you can probably guess
+what the different parts of the debugging output tell you.  The first
+part
+
+    Compiling REx 'a*b+c'
+    size 9 first at 1
+       1: STAR(4)
+       2:   EXACT <a>(0)
+       4: PLUS(7)
+       5:   EXACT <b>(0)
+       7: EXACT <c>(9)
+       9: END(0)
+
+describes the compilation stage.  C<STAR(4)> means that there is a
+starred object, in this case C<'a'>, and if it matches, goto line 4,
+i.e., C<PLUS(7)>.  The middle lines describe some heuristics and
+optimizations performed before a match:
+
+    floating 'bc' at 0..2147483647 (checking floating) minlen 2
+    Guessing start of match, REx 'a*b+c' against 'abc'...
+    Found floating substr 'bc' at offset 1...
+    Guessed: match at offset 0
+
+Then the match is executed and the remaining lines describe the
+process:
+
+    Matching REx 'a*b+c' against 'abc'
+      Setting an EVAL scope, savestack=3
+       0 <> <abc>           |  1:  STAR
+                             EXACT <a> can match 1 times out of 32767...
+      Setting an EVAL scope, savestack=3
+       1 <a> <bc>           |  4:    PLUS
+                             EXACT <b> can match 1 times out of 32767...
+      Setting an EVAL scope, savestack=3
+       2 <ab> <c>           |  7:      EXACT <c>
+       3 <abc> <>           |  9:      END
+    Match successful!
+    Freeing REx: 'a*b+c'
+
+Each step is of the form S<C<< n <x> <y> >>>, with C<< <x> >> the
+part of the string matched and C<< <y> >> the part not yet
+matched.  The S<C<< |  1:  STAR >>> says that Perl is at line number 1
+in the compilation list above.  See
+L<perldebguts/"Debugging Regular Expressions"> for much more detail.
+
+An alternative method of debugging regexps is to embed C<print>
+statements within the regexp.  This provides a blow-by-blow account of
+the backtracking in an alternation:
+
+    "that this" =~ m@(?{print "Start at position ", pos, "\n";})
+                     t(?{print "t1\n";})
+                     h(?{print "h1\n";})
+                     i(?{print "i1\n";})
+                     s(?{print "s1\n";})
+                         |
+                     t(?{print "t2\n";})
+                     h(?{print "h2\n";})
+                     a(?{print "a2\n";})
+                     t(?{print "t2\n";})
+                     (?{print "Done at position ", pos, "\n";})
+                    @x;
+
+prints
+
+    Start at position 0
+    t1
+    h1
+    t2
+    h2
+    a2
+    t2
+    Done at position 4
+
+=head1 BUGS
+
+Code expressions, conditional expressions, and independent expressions
+are I<experimental>.  Don't use them in production code.  Yet.
+
+=head1 SEE ALSO
+
+This is just a tutorial.  For the full story on Perl regular
+expressions, see the L<perlre> regular expressions reference page.
+
+For more information on the matching C<m//> and substitution C<s///>
+operators, see L<perlop/"Regexp Quote-Like Operators">.  For
+information on the C<split> operation, see L<perlfunc/split>.
+
+For an excellent all-around resource on the care and feeding of
+regular expressions, see the book I<Mastering Regular Expressions> by
+Jeffrey Friedl (published by O'Reilly, ISBN 1556592-257-3).
+
+=head1 AUTHOR AND COPYRIGHT
+
+Copyright (c) 2000 Mark Kvale
+All rights reserved.
+
+This document may be distributed under the same terms as Perl itself.
+
+=head2 Acknowledgments
+
+The inspiration for the stop codon DNA example came from the ZIP
+code example in chapter 7 of I<Mastering Regular Expressions>.
+
+The author would like to thank Jeff Pinyan, Andrew Johnson, Peter
+Haworth, Ronald J Kimball, and Joe Smith for all their helpful
+comments.
+
+=cut
+
diff --git a/lib/5.24.1/pod/perlriscos.pod b/lib/5.24.1/pod/perlriscos.pod
new file mode 100644
index 00000000..2acd738c
--- /dev/null
+++ b/lib/5.24.1/pod/perlriscos.pod
@@ -0,0 +1,67 @@
+If you read this file _as_is_, just ignore the funny characters you
+see.  It is written in the POD format (see pod/perlpod.pod) which is
+specifically designed to be readable as is.
+
+=head1 NAME
+
+perlriscos - Perl version 5 for RISC OS
+
+=head1 DESCRIPTION
+
+This document gives instructions for building Perl for RISC OS. It is
+complicated by the need to cross compile. There is a binary version of
+perl available from L<http://www.cp15.org/perl/> which you may wish to
+use instead of trying to compile it yourself.
+
+=head1 BUILD
+
+You need an installed and working gccsdk cross compiler
+L<http://gccsdk.riscos.info/> and REXEN
+L<http://www.cp15.org/programming/>
+
+Firstly, copy the source and build a native copy of perl for your host
+system.
+Then, in the source to be cross compiled:
+
+=over 4
+
+=item 1.
+
+    $ ./Configure
+
+=item 2.
+
+Select the riscos hint file. The default answers for the rest of the
+questions are usually sufficient.
+
+Note that, if you wish to run Configure non-interactively (see the INSTALL
+document for details), to have it select the correct hint file, you'll
+need to provide the argument -Dhintfile=riscos on the Configure
+command-line.
+
+=item 3.
+
+    $ make miniperl
+
+=item 4.
+
+This should build miniperl and then fail when it tries to run it.
+
+=item 5.
+
+Copy the miniperl executable from the native build done earlier to
+replace the cross compiled miniperl.
+
+=item 6.
+
+    $ make
+
+=item 7.
+
+This will use miniperl to complete the rest of the build.
+
+=back
+
+=head1 AUTHOR
+
+Alex Waugh <alex@alexwaugh.com>
diff --git a/lib/5.24.1/pod/perlrun.pod b/lib/5.24.1/pod/perlrun.pod
new file mode 100644
index 00000000..349e91e3
--- /dev/null
+++ b/lib/5.24.1/pod/perlrun.pod
@@ -0,0 +1,1404 @@
+=head1 NAME
+
+perlrun - how to execute the Perl interpreter
+
+=head1 SYNOPSIS
+
+B<perl>	S<[ B<-sTtuUWX> ]>
+	S<[ B<-hv> ] [ B<-V>[:I<configvar>] ]>
+	S<[ B<-cw> ] [ B<-d>[B<t>][:I<debugger>] ] [ B<-D>[I<number/list>] ]>
+	S<[ B<-pna> ] [ B<-F>I<pattern> ] [ B<-l>[I<octal>] ] [ B<-0>[I<octal/hexadecimal>] ]>
+	S<[ B<-I>I<dir> ] [ B<-m>[B<->]I<module> ] [ B<-M>[B<->]I<'module...'> ] [ B<-f> ]>
+	S<[ B<-C [I<number/list>] >]>
+	S<[ B<-S> ]>
+	S<[ B<-x>[I<dir>] ]>
+	S<[ B<-i>[I<extension>] ]>
+	S<[ [B<-e>|B<-E>] I<'command'> ] [ B<--> ] [ I<programfile> ] [ I<argument> ]...>
+
+=head1 DESCRIPTION
+
+The normal way to run a Perl program is by making it directly
+executable, or else by passing the name of the source file as an
+argument on the command line.  (An interactive Perl environment
+is also possible--see L<perldebug> for details on how to do that.)
+Upon startup, Perl looks for your program in one of the following
+places:
+
+=over 4
+
+=item 1.
+
+Specified line by line via B<-e> or B<-E> switches on the command line.
+
+=item 2.
+
+Contained in the file specified by the first filename on the command line.
+(Note that systems supporting the C<#!> notation invoke interpreters this
+way. See L<Location of Perl>.)
+
+=item 3.
+
+Passed in implicitly via standard input.  This works only if there are
+no filename arguments--to pass arguments to a STDIN-read program you
+must explicitly specify a "-" for the program name.
+
+=back
+
+With methods 2 and 3, Perl starts parsing the input file from the
+beginning, unless you've specified a B<-x> switch, in which case it
+scans for the first line starting with C<#!> and containing the word
+"perl", and starts there instead.  This is useful for running a program
+embedded in a larger message.  (In this case you would indicate the end
+of the program using the C<__END__> token.)
+
+The C<#!> line is always examined for switches as the line is being
+parsed.  Thus, if you're on a machine that allows only one argument
+with the C<#!> line, or worse, doesn't even recognize the C<#!> line, you
+still can get consistent switch behaviour regardless of how Perl was
+invoked, even if B<-x> was used to find the beginning of the program.
+
+Because historically some operating systems silently chopped off
+kernel interpretation of the C<#!> line after 32 characters, some
+switches may be passed in on the command line, and some may not;
+you could even get a "-" without its letter, if you're not careful.
+You probably want to make sure that all your switches fall either
+before or after that 32-character boundary.  Most switches don't
+actually care if they're processed redundantly, but getting a "-"
+instead of a complete switch could cause Perl to try to execute
+standard input instead of your program.  And a partial B<-I> switch
+could also cause odd results.
+
+Some switches do care if they are processed twice, for instance
+combinations of B<-l> and B<-0>.  Either put all the switches after
+the 32-character boundary (if applicable), or replace the use of
+B<-0>I<digits> by C<BEGIN{ $/ = "\0digits"; }>.
+
+Parsing of the C<#!> switches starts wherever "perl" is mentioned in the line.
+The sequences "-*" and "- " are specifically ignored so that you could,
+if you were so inclined, say
+
+    #!/bin/sh
+    #! -*-perl-*-
+    eval 'exec perl -x -wS $0 ${1+"$@"}'
+        if 0;
+
+to let Perl see the B<-p> switch.
+
+A similar trick involves the I<env> program, if you have it.
+
+    #!/usr/bin/env perl
+
+The examples above use a relative path to the perl interpreter,
+getting whatever version is first in the user's path.  If you want
+a specific version of Perl, say, perl5.14.1, you should place
+that directly in the C<#!> line's path.
+
+If the C<#!> line does not contain the word "perl" nor the word "indir",
+the program named after the C<#!> is executed instead of the Perl
+interpreter.  This is slightly bizarre, but it helps people on machines
+that don't do C<#!>, because they can tell a program that their SHELL is
+F</usr/bin/perl>, and Perl will then dispatch the program to the correct
+interpreter for them.
+
+After locating your program, Perl compiles the entire program to an
+internal form.  If there are any compilation errors, execution of the
+program is not attempted.  (This is unlike the typical shell script,
+which might run part-way through before finding a syntax error.)
+
+If the program is syntactically correct, it is executed.  If the program
+runs off the end without hitting an exit() or die() operator, an implicit
+C<exit(0)> is provided to indicate successful completion.
+
+=head2 #! and quoting on non-Unix systems
+X<hashbang> X<#!>
+
+Unix's C<#!> technique can be simulated on other systems:
+
+=over 4
+
+=item OS/2
+
+Put
+
+    extproc perl -S -your_switches
+
+as the first line in C<*.cmd> file (B<-S> due to a bug in cmd.exe's
+`extproc' handling).
+
+=item MS-DOS
+
+Create a batch file to run your program, and codify it in
+C<ALTERNATE_SHEBANG> (see the F<dosish.h> file in the source
+distribution for more information).
+
+=item Win95/NT
+
+The Win95/NT installation, when using the ActiveState installer for Perl,
+will modify the Registry to associate the F<.pl> extension with the perl
+interpreter.  If you install Perl by other means (including building from
+the sources), you may have to modify the Registry yourself.  Note that
+this means you can no longer tell the difference between an executable
+Perl program and a Perl library file.
+
+=item VMS
+
+Put
+
+ $ perl -mysw 'f$env("procedure")' 'p1' 'p2' 'p3' 'p4' 'p5' 'p6' 'p7' 'p8' !
+ $ exit++ + ++$status != 0 and $exit = $status = undef;
+
+at the top of your program, where B<-mysw> are any command line switches you
+want to pass to Perl.  You can now invoke the program directly, by saying
+C<perl program>, or as a DCL procedure, by saying C<@program> (or implicitly
+via F<DCL$PATH> by just using the name of the program).
+
+This incantation is a bit much to remember, but Perl will display it for
+you if you say C<perl "-V:startperl">.
+
+=back
+
+Command-interpreters on non-Unix systems have rather different ideas
+on quoting than Unix shells.  You'll need to learn the special
+characters in your command-interpreter (C<*>, C<\> and C<"> are
+common) and how to protect whitespace and these characters to run
+one-liners (see L<-e|/-e commandline> below).
+
+On some systems, you may have to change single-quotes to double ones,
+which you must I<not> do on Unix or Plan 9 systems.  You might also
+have to change a single % to a %%.
+
+For example:
+
+    # Unix
+    perl -e 'print "Hello world\n"'
+
+    # MS-DOS, etc.
+    perl -e "print \"Hello world\n\""
+
+    # VMS
+    perl -e "print ""Hello world\n"""
+
+The problem is that none of this is reliable: it depends on the
+command and it is entirely possible neither works.  If I<4DOS> were
+the command shell, this would probably work better:
+
+    perl -e "print <Ctrl-x>"Hello world\n<Ctrl-x>""
+
+B<CMD.EXE> in Windows NT slipped a lot of standard Unix functionality in
+when nobody was looking, but just try to find documentation for its
+quoting rules.
+
+There is no general solution to all of this.  It's just a mess.
+
+=head2 Location of Perl
+X<perl, location of interpreter>
+
+It may seem obvious to say, but Perl is useful only when users can
+easily find it.  When possible, it's good for both F</usr/bin/perl>
+and F</usr/local/bin/perl> to be symlinks to the actual binary.  If
+that can't be done, system administrators are strongly encouraged
+to put (symlinks to) perl and its accompanying utilities into a
+directory typically found along a user's PATH, or in some other
+obvious and convenient place.
+
+In this documentation, C<#!/usr/bin/perl> on the first line of the program
+will stand in for whatever method works on your system.  You are
+advised to use a specific path if you care about a specific version.
+
+    #!/usr/local/bin/perl5.14
+
+or if you just want to be running at least version, place a statement
+like this at the top of your program:
+
+    use 5.014;
+
+=head2 Command Switches
+X<perl, command switches> X<command switches>
+
+As with all standard commands, a single-character switch may be
+clustered with the following switch, if any.
+
+    #!/usr/bin/perl -spi.orig	# same as -s -p -i.orig
+
+A C<--> signals the end of options and disables further option processing. Any
+arguments after the C<--> are treated as filenames and arguments.
+
+Switches include:
+
+=over 5
+
+=item B<-0>[I<octal/hexadecimal>]
+X<-0> X<$/>
+
+specifies the input record separator (C<$/>) as an octal or
+hexadecimal number.  If there are no digits, the null character is the
+separator.  Other switches may precede or follow the digits.  For
+example, if you have a version of I<find> which can print filenames
+terminated by the null character, you can say this:
+
+    find . -name '*.orig' -print0 | perl -n0e unlink
+
+The special value 00 will cause Perl to slurp files in paragraph mode.
+Any value 0400 or above will cause Perl to slurp files whole, but by convention
+the value 0777 is the one normally used for this purpose.
+
+You can also specify the separator character using hexadecimal notation:
+B<-0xI<HHH...>>, where the C<I<H>> are valid hexadecimal digits.  Unlike
+the octal form, this one may be used to specify any Unicode character, even
+those beyond 0xFF.  So if you I<really> want a record separator of 0777,
+specify it as B<-0x1FF>.  (This means that you cannot use the B<-x> option
+with a directory name that consists of hexadecimal digits, or else Perl
+will think you have specified a hex number to B<-0>.)
+
+=item B<-a>
+X<-a> X<autosplit>
+
+turns on autosplit mode when used with a B<-n> or B<-p>.  An implicit
+split command to the @F array is done as the first thing inside the
+implicit while loop produced by the B<-n> or B<-p>.
+
+    perl -ane 'print pop(@F), "\n";'
+
+is equivalent to
+
+    while (<>) {
+	@F = split(' ');
+	print pop(@F), "\n";
+    }
+
+An alternate delimiter may be specified using B<-F>.
+
+B<-a> implicitly sets B<-n>.
+
+=item B<-C [I<number/list>]>
+X<-C>
+
+The B<-C> flag controls some of the Perl Unicode features.
+
+As of 5.8.1, the B<-C> can be followed either by a number or a list
+of option letters.  The letters, their numeric values, and effects
+are as follows; listing the letters is equal to summing the numbers.
+
+    I     1   STDIN is assumed to be in UTF-8
+    O     2   STDOUT will be in UTF-8
+    E     4   STDERR will be in UTF-8
+    S     7   I + O + E
+    i     8   UTF-8 is the default PerlIO layer for input streams
+    o    16   UTF-8 is the default PerlIO layer for output streams
+    D    24   i + o
+    A    32   the @ARGV elements are expected to be strings encoded
+              in UTF-8
+    L    64   normally the "IOEioA" are unconditional, the L makes
+              them conditional on the locale environment variables
+              (the LC_ALL, LC_CTYPE, and LANG, in the order of
+              decreasing precedence) -- if the variables indicate
+              UTF-8, then the selected "IOEioA" are in effect
+    a   256   Set ${^UTF8CACHE} to -1, to run the UTF-8 caching
+              code in debugging mode.
+
+=for documenting_the_underdocumented
+perl.h gives W/128 as PERL_UNICODE_WIDESYSCALLS "/* for Sarathy */"
+
+=for todo
+perltodo mentions Unicode in %ENV and filenames. I guess that these will be
+options e and f (or F).
+
+For example, B<-COE> and B<-C6> will both turn on UTF-8-ness on both
+STDOUT and STDERR.  Repeating letters is just redundant, not cumulative
+nor toggling.
+
+The C<io> options mean that any subsequent open() (or similar I/O
+operations) in the current file scope will have the C<:utf8> PerlIO layer
+implicitly applied to them, in other words, UTF-8 is expected from any
+input stream, and UTF-8 is produced to any output stream.  This is just
+the default, with explicit layers in open() and with binmode() one can
+manipulate streams as usual.
+
+B<-C> on its own (not followed by any number or option list), or the
+empty string C<""> for the C<PERL_UNICODE> environment variable, has the
+same effect as B<-CSDL>.  In other words, the standard I/O handles and
+the default C<open()> layer are UTF-8-fied I<but> only if the locale
+environment variables indicate a UTF-8 locale.  This behaviour follows
+the I<implicit> (and problematic) UTF-8 behaviour of Perl 5.8.0.
+(See L<perl581delta/UTF-8 no longer default under UTF-8 locales>.)
+
+You can use B<-C0> (or C<"0"> for C<PERL_UNICODE>) to explicitly
+disable all the above Unicode features.
+
+The read-only magic variable C<${^UNICODE}> reflects the numeric value
+of this setting.  This variable is set during Perl startup and is
+thereafter read-only.  If you want runtime effects, use the three-arg
+open() (see L<perlfunc/open>), the two-arg binmode() (see L<perlfunc/binmode>),
+and the C<open> pragma (see L<open>).
+
+(In Perls earlier than 5.8.1 the B<-C> switch was a Win32-only switch
+that enabled the use of Unicode-aware "wide system call" Win32 APIs.
+This feature was practically unused, however, and the command line
+switch was therefore "recycled".)
+
+B<Note:> Since perl 5.10.1, if the B<-C> option is used on the C<#!> line,
+it must be specified on the command line as well, since the standard streams
+are already set up at this point in the execution of the perl interpreter.
+You can also use binmode() to set the encoding of an I/O stream.
+
+=item B<-c>
+X<-c>
+
+causes Perl to check the syntax of the program and then exit without
+executing it.  Actually, it I<will> execute and C<BEGIN>, C<UNITCHECK>,
+or C<CHECK> blocks and any C<use> statements: these are considered as
+occurring outside the execution of your program.  C<INIT> and C<END>
+blocks, however, will be skipped.
+
+=item B<-d>
+X<-d> X<-dt>
+
+=item B<-dt>
+
+runs the program under the Perl debugger.  See L<perldebug>.
+If B<t> is specified, it indicates to the debugger that threads
+will be used in the code being debugged.
+
+=item B<-d:>I<MOD[=bar,baz]>
+X<-d> X<-dt>
+
+=item B<-dt:>I<MOD[=bar,baz]>
+
+runs the program under the control of a debugging, profiling, or tracing
+module installed as C<Devel::I<MOD>>. E.g., B<-d:DProf> executes the
+program using the C<Devel::DProf> profiler.  As with the B<-M> flag, options
+may be passed to the C<Devel::I<MOD>> package where they will be received
+and interpreted by the C<Devel::I<MOD>::import> routine.  Again, like B<-M>,
+use -B<-d:-I<MOD>> to call C<Devel::I<MOD>::unimport> instead of import.  The
+comma-separated list of options must follow a C<=> character.  If B<t> is
+specified, it indicates to the debugger that threads will be used in the
+code being debugged.  See L<perldebug>.
+
+=item B<-D>I<letters>
+X<-D> X<DEBUGGING> X<-DDEBUGGING>
+
+=item B<-D>I<number>
+
+sets debugging flags.  To watch how it executes your program, use
+B<-Dtls>.  (This works only if debugging is compiled into your
+Perl.)  Another nice value is B<-Dx>, which lists your compiled
+syntax tree.  And B<-Dr> displays compiled regular expressions;
+the format of the output is explained in L<perldebguts>.
+
+As an alternative, specify a number instead of list of letters (e.g.,
+B<-D14> is equivalent to B<-Dtls>):
+
+         1  p  Tokenizing and parsing (with v, displays parse
+               stack)
+         2  s  Stack snapshots (with v, displays all stacks)
+         4  l  Context (loop) stack processing
+         8  t  Trace execution
+        16  o  Method and overloading resolution
+        32  c  String/numeric conversions
+        64  P  Print profiling info, source file input state
+       128  m  Memory and SV allocation
+       256  f  Format processing
+       512  r  Regular expression parsing and execution
+      1024  x  Syntax tree dump
+      2048  u  Tainting checks
+      4096  U  Unofficial, User hacking (reserved for private,
+               unreleased use)
+      8192  H  Hash dump -- usurps values()
+     16384  X  Scratchpad allocation
+     32768  D  Cleaning up
+     65536  S  Op slab allocation
+    131072  T  Tokenizing
+    262144  R  Include reference counts of dumped variables
+               (eg when using -Ds)
+    524288  J  show s,t,P-debug (don't Jump over) on opcodes within
+               package DB
+   1048576  v  Verbose: use in conjunction with other flags
+   2097152  C  Copy On Write
+   4194304  A  Consistency checks on internal structures
+   8388608  q  quiet - currently only suppresses the "EXECUTING"
+               message
+  16777216  M  trace smart match resolution
+  33554432  B  dump suBroutine definitions, including special
+               Blocks like BEGIN
+  67108864  L  trace Locale-related info; what gets output is very
+               subject to change
+ 134217728  i  trace PerlIO layer processing.  Set PERLIO_DEBUG to
+               the filename to trace to.
+
+All these flags require B<-DDEBUGGING> when you compile the Perl
+executable (but see C<:opd> in L<Devel::Peek> or L<re/'debug' mode>
+which may change this).
+See the F<INSTALL> file in the Perl source distribution
+for how to do this.  This flag is automatically set if you include B<-g>
+option when C<Configure> asks you about optimizer/debugger flags.
+
+If you're just trying to get a print out of each line of Perl code
+as it executes, the way that C<sh -x> provides for shell scripts,
+you can't use Perl's B<-D> switch.  Instead do this
+
+  # If you have "env" utility
+  env PERLDB_OPTS="NonStop=1 AutoTrace=1 frame=2" perl -dS program
+
+  # Bourne shell syntax
+  $ PERLDB_OPTS="NonStop=1 AutoTrace=1 frame=2" perl -dS program
+
+  # csh syntax
+  % (setenv PERLDB_OPTS "NonStop=1 AutoTrace=1 frame=2"; perl -dS program)
+
+See L<perldebug> for details and variations.
+
+=item B<-e> I<commandline>
+X<-e>
+
+may be used to enter one line of program.  If B<-e> is given, Perl
+will not look for a filename in the argument list.  Multiple B<-e>
+commands may be given to build up a multi-line script.  Make sure
+to use semicolons where you would in a normal program.
+
+=item B<-E> I<commandline>
+X<-E>
+
+behaves just like B<-e>, except that it implicitly enables all
+optional features (in the main compilation unit). See L<feature>.
+
+=item B<-f>
+X<-f> X<sitecustomize> X<sitecustomize.pl>
+
+Disable executing F<$Config{sitelib}/sitecustomize.pl> at startup.
+
+Perl can be built so that it by default will try to execute
+F<$Config{sitelib}/sitecustomize.pl> at startup (in a BEGIN block).
+This is a hook that allows the sysadmin to customize how Perl behaves.
+It can for instance be used to add entries to the @INC array to make Perl
+find modules in non-standard locations.
+
+Perl actually inserts the following code:
+
+    BEGIN {
+        do { local $!; -f "$Config{sitelib}/sitecustomize.pl"; }
+            && do "$Config{sitelib}/sitecustomize.pl";
+    }
+
+Since it is an actual C<do> (not a C<require>), F<sitecustomize.pl>
+doesn't need to return a true value. The code is run in package C<main>,
+in its own lexical scope. However, if the script dies, C<$@> will not
+be set.
+
+The value of C<$Config{sitelib}> is also determined in C code and not
+read from C<Config.pm>, which is not loaded.
+
+The code is executed I<very> early. For example, any changes made to
+C<@INC> will show up in the output of `perl -V`. Of course, C<END>
+blocks will be likewise executed very late.
+
+To determine at runtime if this capability has been compiled in your
+perl, you can check the value of C<$Config{usesitecustomize}>.
+
+=item B<-F>I<pattern>
+X<-F>
+
+specifies the pattern to split on for B<-a>. The pattern may be
+surrounded by C<//>, C<"">, or C<''>, otherwise it will be put in single
+quotes. You can't use literal whitespace in the pattern.
+
+B<-F> implicitly sets both B<-a> and B<-n>.
+
+=item B<-h>
+X<-h>
+
+prints a summary of the options.
+
+=item B<-i>[I<extension>]
+X<-i> X<in-place>
+
+specifies that files processed by the C<E<lt>E<gt>> construct are to be
+edited in-place.  It does this by renaming the input file, opening the
+output file by the original name, and selecting that output file as the
+default for print() statements.  The extension, if supplied, is used to
+modify the name of the old file to make a backup copy, following these
+rules:
+
+If no extension is supplied, and your system supports it, the original
+I<file> is kept open without a name while the output is redirected to
+a new file with the original I<filename>.  When perl exits, cleanly or not,
+the original I<file> is unlinked.
+
+If the extension doesn't contain a C<*>, then it is appended to the
+end of the current filename as a suffix.  If the extension does
+contain one or more C<*> characters, then each C<*> is replaced
+with the current filename.  In Perl terms, you could think of this
+as:
+
+    ($backup = $extension) =~ s/\*/$file_name/g;
+
+This allows you to add a prefix to the backup file, instead of (or in
+addition to) a suffix:
+
+ $ perl -pi'orig_*' -e 's/bar/baz/' fileA  # backup to
+                                           # 'orig_fileA'
+
+Or even to place backup copies of the original files into another
+directory (provided the directory already exists):
+
+ $ perl -pi'old/*.orig' -e 's/bar/baz/' fileA  # backup to
+                                               # 'old/fileA.orig'
+
+These sets of one-liners are equivalent:
+
+ $ perl -pi -e 's/bar/baz/' fileA          # overwrite current file
+ $ perl -pi'*' -e 's/bar/baz/' fileA       # overwrite current file
+
+ $ perl -pi'.orig' -e 's/bar/baz/' fileA   # backup to 'fileA.orig'
+ $ perl -pi'*.orig' -e 's/bar/baz/' fileA  # backup to 'fileA.orig'
+
+From the shell, saying
+
+    $ perl -p -i.orig -e "s/foo/bar/; ... "
+
+is the same as using the program:
+
+    #!/usr/bin/perl -pi.orig
+    s/foo/bar/;
+
+which is equivalent to
+
+    #!/usr/bin/perl
+    $extension = '.orig';
+    LINE: while (<>) {
+	if ($ARGV ne $oldargv) {
+	    if ($extension !~ /\*/) {
+		$backup = $ARGV . $extension;
+	    }
+	    else {
+		($backup = $extension) =~ s/\*/$ARGV/g;
+	    }
+	    rename($ARGV, $backup);
+	    open(ARGVOUT, ">$ARGV");
+	    select(ARGVOUT);
+	    $oldargv = $ARGV;
+	}
+	s/foo/bar/;
+    }
+    continue {
+	print;	# this prints to original filename
+    }
+    select(STDOUT);
+
+except that the B<-i> form doesn't need to compare $ARGV to $oldargv to
+know when the filename has changed.  It does, however, use ARGVOUT for
+the selected filehandle.  Note that STDOUT is restored as the default
+output filehandle after the loop.
+
+As shown above, Perl creates the backup file whether or not any output
+is actually changed.  So this is just a fancy way to copy files:
+
+    $ perl -p -i'/some/file/path/*' -e 1 file1 file2 file3...
+or
+    $ perl -p -i'.orig' -e 1 file1 file2 file3...
+
+You can use C<eof> without parentheses to locate the end of each input
+file, in case you want to append to each file, or reset line numbering
+(see example in L<perlfunc/eof>).
+
+If, for a given file, Perl is unable to create the backup file as
+specified in the extension then it will skip that file and continue on
+with the next one (if it exists).
+
+For a discussion of issues surrounding file permissions and B<-i>, see
+L<perlfaq5/Why does Perl let me delete read-only files?  Why does -i clobber
+protected files?  Isn't this a bug in Perl?>.
+
+You cannot use B<-i> to create directories or to strip extensions from
+files.
+
+Perl does not expand C<~> in filenames, which is good, since some
+folks use it for their backup files:
+
+    $ perl -pi~ -e 's/foo/bar/' file1 file2 file3...
+
+Note that because B<-i> renames or deletes the original file before
+creating a new file of the same name, Unix-style soft and hard links will
+not be preserved.
+
+Finally, the B<-i> switch does not impede execution when no
+files are given on the command line.  In this case, no backup is made
+(the original file cannot, of course, be determined) and processing
+proceeds from STDIN to STDOUT as might be expected.
+
+=item B<-I>I<directory>
+X<-I> X<@INC>
+
+Directories specified by B<-I> are prepended to the search path for
+modules (C<@INC>).
+
+=item B<-l>[I<octnum>]
+X<-l> X<$/> X<$\>
+
+enables automatic line-ending processing.  It has two separate
+effects.  First, it automatically chomps C<$/> (the input record
+separator) when used with B<-n> or B<-p>.  Second, it assigns C<$\>
+(the output record separator) to have the value of I<octnum> so
+that any print statements will have that separator added back on.
+If I<octnum> is omitted, sets C<$\> to the current value of
+C<$/>.  For instance, to trim lines to 80 columns:
+
+    perl -lpe 'substr($_, 80) = ""'
+
+Note that the assignment C<$\ = $/> is done when the switch is processed,
+so the input record separator can be different than the output record
+separator if the B<-l> switch is followed by a B<-0> switch:
+
+    gnufind / -print0 | perl -ln0e 'print "found $_" if -p'
+
+This sets C<$\> to newline and then sets C<$/> to the null character.
+
+=item B<-m>[B<->]I<module>
+X<-m> X<-M>
+
+=item B<-M>[B<->]I<module>
+
+=item B<-M>[B<->]I<'module ...'>
+
+=item B<-[mM]>[B<->]I<module=arg[,arg]...>
+
+B<-m>I<module> executes C<use> I<module> C<();> before executing your
+program.
+
+B<-M>I<module> executes C<use> I<module> C<;> before executing your
+program.  You can use quotes to add extra code after the module name,
+e.g., C<'-MI<MODULE> qw(foo bar)'>.
+
+If the first character after the B<-M> or B<-m> is a dash (B<->)
+then the 'use' is replaced with 'no'.
+
+A little builtin syntactic sugar means you can also say
+B<-mI<MODULE>=foo,bar> or B<-MI<MODULE>=foo,bar> as a shortcut for
+B<'-MI<MODULE> qw(foo bar)'>.  This avoids the need to use quotes when
+importing symbols.  The actual code generated by B<-MI<MODULE>=foo,bar> is
+C<use module split(/,/,q{foo,bar})>.  Note that the C<=> form
+removes the distinction between B<-m> and B<-M>; that is,
+B<-mI<MODULE>=foo,bar> is the same as B<-MI<MODULE>=foo,bar>.
+
+A consequence of this is that B<-MI<MODULE>=number> never does a version check,
+unless C<I<MODULE>::import()> itself is set up to do a version check, which
+could happen for example if I<MODULE> inherits from L<Exporter>.
+
+=item B<-n>
+X<-n>
+
+causes Perl to assume the following loop around your program, which
+makes it iterate over filename arguments somewhat like I<sed -n> or
+I<awk>:
+
+  LINE:
+    while (<>) {
+	...		# your program goes here
+    }
+
+Note that the lines are not printed by default.  See L</-p> to have
+lines printed.  If a file named by an argument cannot be opened for
+some reason, Perl warns you about it and moves on to the next file.
+
+Also note that C<< <> >> passes command line arguments to
+L<perlfunc/open>, which doesn't necessarily interpret them as file names.
+See  L<perlop> for possible security implications.
+
+Here is an efficient way to delete all files that haven't been modified for
+at least a week:
+
+    find . -mtime +7 -print | perl -nle unlink
+
+This is faster than using the B<-exec> switch of I<find> because you don't
+have to start a process on every filename found (but it's not faster
+than using the B<-delete> switch available in newer versions of I<find>.
+It does suffer from the bug of mishandling newlines in pathnames, which
+you can fix if you follow the example under B<-0>.
+
+C<BEGIN> and C<END> blocks may be used to capture control before or after
+the implicit program loop, just as in I<awk>.
+
+=item B<-p>
+X<-p>
+
+causes Perl to assume the following loop around your program, which
+makes it iterate over filename arguments somewhat like I<sed>:
+
+
+  LINE:
+    while (<>) {
+	...		# your program goes here
+    } continue {
+	print or die "-p destination: $!\n";
+    }
+
+If a file named by an argument cannot be opened for some reason, Perl
+warns you about it, and moves on to the next file.  Note that the
+lines are printed automatically.  An error occurring during printing is
+treated as fatal.  To suppress printing use the B<-n> switch.  A B<-p>
+overrides a B<-n> switch.
+
+C<BEGIN> and C<END> blocks may be used to capture control before or after
+the implicit loop, just as in I<awk>.
+
+=item B<-s>
+X<-s>
+
+enables rudimentary switch parsing for switches on the command
+line after the program name but before any filename arguments (or before
+an argument of B<-->).  Any switch found there is removed from @ARGV and sets the
+corresponding variable in the Perl program.  The following program
+prints "1" if the program is invoked with a B<-xyz> switch, and "abc"
+if it is invoked with B<-xyz=abc>.
+
+    #!/usr/bin/perl -s
+    if ($xyz) { print "$xyz\n" }
+
+Do note that a switch like B<--help> creates the variable C<${-help}>, which is
+not compliant with C<use strict "refs">.  Also, when using this option on a
+script with warnings enabled you may get a lot of spurious "used only once"
+warnings.
+
+=item B<-S>
+X<-S>
+
+makes Perl use the PATH environment variable to search for the
+program unless the name of the program contains path separators.
+
+On some platforms, this also makes Perl append suffixes to the
+filename while searching for it.  For example, on Win32 platforms,
+the ".bat" and ".cmd" suffixes are appended if a lookup for the
+original name fails, and if the name does not already end in one
+of those suffixes.  If your Perl was compiled with C<DEBUGGING> turned
+on, using the B<-Dp> switch to Perl shows how the search progresses.
+
+Typically this is used to emulate C<#!> startup on platforms that don't
+support C<#!>.  It's also convenient when debugging a script that uses C<#!>,
+and is thus normally found by the shell's $PATH search mechanism.
+
+This example works on many platforms that have a shell compatible with
+Bourne shell:
+
+    #!/usr/bin/perl
+    eval 'exec /usr/bin/perl -wS $0 ${1+"$@"}'
+	    if $running_under_some_shell;
+
+The system ignores the first line and feeds the program to F</bin/sh>,
+which proceeds to try to execute the Perl program as a shell script.
+The shell executes the second line as a normal shell command, and thus
+starts up the Perl interpreter.  On some systems $0 doesn't always
+contain the full pathname, so the B<-S> tells Perl to search for the
+program if necessary.  After Perl locates the program, it parses the
+lines and ignores them because the variable $running_under_some_shell
+is never true.  If the program will be interpreted by csh, you will need
+to replace C<${1+"$@"}> with C<$*>, even though that doesn't understand
+embedded spaces (and such) in the argument list.  To start up I<sh> rather
+than I<csh>, some systems may have to replace the C<#!> line with a line
+containing just a colon, which will be politely ignored by Perl.  Other
+systems can't control that, and need a totally devious construct that
+will work under any of I<csh>, I<sh>, or Perl, such as the following:
+
+	eval '(exit $?0)' && eval 'exec perl -wS $0 ${1+"$@"}'
+	& eval 'exec /usr/bin/perl -wS $0 $argv:q'
+		if $running_under_some_shell;
+
+If the filename supplied contains directory separators (and so is an
+absolute or relative pathname), and if that file is not found,
+platforms that append file extensions will do so and try to look
+for the file with those extensions added, one by one.
+
+On DOS-like platforms, if the program does not contain directory
+separators, it will first be searched for in the current directory
+before being searched for on the PATH.  On Unix platforms, the
+program will be searched for strictly on the PATH.
+
+=item B<-t>
+X<-t>
+
+Like B<-T>, but taint checks will issue warnings rather than fatal
+errors.  These warnings can now be controlled normally with C<no warnings
+qw(taint)>.
+
+B<Note: This is not a substitute for C<-T>!> This is meant to be
+used I<only> as a temporary development aid while securing legacy code:
+for real production code and for new secure code written from scratch,
+always use the real B<-T>.
+
+=item B<-T>
+X<-T>
+
+turns on "taint" so you can test them.  Ordinarily
+these checks are done only when running setuid or setgid.  It's a
+good idea to turn them on explicitly for programs that run on behalf
+of someone else whom you might not necessarily trust, such as CGI
+programs or any internet servers you might write in Perl.  See
+L<perlsec> for details.  For security reasons, this option must be
+seen by Perl quite early; usually this means it must appear early
+on the command line or in the C<#!> line for systems which support
+that construct.
+
+=item B<-u>
+X<-u>
+
+This switch causes Perl to dump core after compiling your
+program.  You can then in theory take this core dump and turn it
+into an executable file by using the I<undump> program (not supplied).
+This speeds startup at the expense of some disk space (which you
+can minimize by stripping the executable).  (Still, a "hello world"
+executable comes out to about 200K on my machine.)  If you want to
+execute a portion of your program before dumping, use the dump()
+operator instead.  Note: availability of I<undump> is platform
+specific and may not be available for a specific port of Perl.
+
+=item B<-U>
+X<-U>
+
+allows Perl to do unsafe operations.  Currently the only "unsafe"
+operations are attempting to unlink directories while running as superuser
+and running setuid programs with fatal taint checks turned into warnings.
+Note that warnings must be enabled along with this option to actually
+I<generate> the taint-check warnings.
+
+=item B<-v>
+X<-v>
+
+prints the version and patchlevel of your perl executable.
+
+=item B<-V>
+X<-V>
+
+prints summary of the major perl configuration values and the current
+values of @INC.
+
+=item B<-V:>I<configvar>
+
+Prints to STDOUT the value of the named configuration variable(s),
+with multiples when your C<I<configvar>> argument looks like a regex (has
+non-letters).  For example:
+
+    $ perl -V:libc
+	libc='/lib/libc-2.2.4.so';
+    $ perl -V:lib.
+	libs='-lnsl -lgdbm -ldb -ldl -lm -lcrypt -lutil -lc';
+	libc='/lib/libc-2.2.4.so';
+    $ perl -V:lib.*
+	libpth='/usr/local/lib /lib /usr/lib';
+	libs='-lnsl -lgdbm -ldb -ldl -lm -lcrypt -lutil -lc';
+	lib_ext='.a';
+	libc='/lib/libc-2.2.4.so';
+	libperl='libperl.a';
+	....
+
+Additionally, extra colons can be used to control formatting.  A
+trailing colon suppresses the linefeed and terminator ";", allowing
+you to embed queries into shell commands.  (mnemonic: PATH separator
+":".)
+
+    $ echo "compression-vars: " `perl -V:z.*: ` " are here !"
+    compression-vars:  zcat='' zip='zip'  are here !
+
+A leading colon removes the "name=" part of the response, this allows
+you to map to the name you need.  (mnemonic: empty label)
+
+    $ echo "goodvfork="`./perl -Ilib -V::usevfork`
+    goodvfork=false;
+
+Leading and trailing colons can be used together if you need
+positional parameter values without the names.  Note that in the case
+below, the C<PERL_API> params are returned in alphabetical order.
+
+    $ echo building_on `perl -V::osname: -V::PERL_API_.*:` now
+    building_on 'linux' '5' '1' '9' now
+
+=item B<-w>
+X<-w>
+
+prints warnings about dubious constructs, such as variable names
+mentioned only once and scalar variables used
+before being set; redefined subroutines; references to undefined
+filehandles; filehandles opened read-only that you are attempting
+to write on; values used as a number that don't I<look> like numbers;
+using an array as though it were a scalar; if your subroutines
+recurse more than 100 deep; and innumerable other things.
+
+This switch really just enables the global C<$^W> variable; normally,
+the lexically scoped C<use warnings> pragma is preferred. You
+can disable or promote into fatal errors specific warnings using
+C<__WARN__> hooks, as described in L<perlvar> and L<perlfunc/warn>.
+See also L<perldiag> and L<perltrap>.  A fine-grained warning
+facility is also available if you want to manipulate entire classes
+of warnings; see L<warnings>.
+
+=item B<-W>
+X<-W>
+
+Enables all warnings regardless of C<no warnings> or C<$^W>.
+See L<warnings>.
+
+=item B<-X>
+X<-X>
+
+Disables all warnings regardless of C<use warnings> or C<$^W>.
+See L<warnings>.
+
+=item B<-x>
+X<-x>
+
+=item B<-x>I<directory>
+
+tells Perl that the program is embedded in a larger chunk of unrelated
+text, such as in a mail message.  Leading garbage will be
+discarded until the first line that starts with C<#!> and contains the
+string "perl".  Any meaningful switches on that line will be applied.
+
+All references to line numbers by the program (warnings, errors, ...)
+will treat the C<#!> line as the first line.
+Thus a warning on the 2nd line of the program, which is on the 100th
+line in the file will be reported as line 2, not as line 100.
+This can be overridden by using the C<#line> directive.
+(See L<perlsyn/"Plain Old Comments (Not!)">)
+
+If a directory name is specified, Perl will switch to that directory
+before running the program.  The B<-x> switch controls only the
+disposal of leading garbage.  The program must be terminated with
+C<__END__> if there is trailing garbage to be ignored;  the program
+can process any or all of the trailing garbage via the C<DATA> filehandle
+if desired.
+
+The directory, if specified, must appear immediately following the B<-x>
+with no intervening whitespace.
+
+=back
+
+=head1 ENVIRONMENT
+X<perl, environment variables>
+
+=over 12
+
+=item HOME
+X<HOME>
+
+Used if C<chdir> has no argument.
+
+=item LOGDIR
+X<LOGDIR>
+
+Used if C<chdir> has no argument and HOME is not set.
+
+=item PATH
+X<PATH>
+
+Used in executing subprocesses, and in finding the program if B<-S> is
+used.
+
+=item PERL5LIB
+X<PERL5LIB>
+
+A list of directories in which to look for Perl library
+files before looking in the standard library and the current
+directory.  Any architecture-specific and version-specific directories,
+such as F<version/archname/>, F<version/>, or F<archname/> under the
+specified locations are automatically included if they exist, with this
+lookup done at interpreter startup time.  In addition, any directories
+matching the entries in C<$Config{inc_version_list}> are added.
+(These typically would be for older compatible perl versions installed
+in the same directory tree.)
+
+If PERL5LIB is not defined, PERLLIB is used.  Directories are separated
+(like in PATH) by a colon on Unixish platforms and by a semicolon on
+Windows (the proper path separator being given by the command C<perl
+-V:I<path_sep>>).
+
+When running taint checks, either because the program was running setuid or
+setgid, or the B<-T> or B<-t> switch was specified, neither PERL5LIB nor
+PERLLIB is consulted. The program should instead say:
+
+    use lib "/my/directory";
+
+=item PERL5OPT
+X<PERL5OPT>
+
+Command-line options (switches).  Switches in this variable are treated
+as if they were on every Perl command line.  Only the B<-[CDIMUdmtwW]>
+switches are allowed.  When running taint checks (either because the
+program was running setuid or setgid, or because the B<-T> or B<-t>
+switch was used), this variable is ignored.  If PERL5OPT begins with
+B<-T>, tainting will be enabled and subsequent options ignored.  If
+PERL5OPT begins with B<-t>, tainting will be enabled, a writable dot
+removed from @INC, and subsequent options honored.
+
+=item PERLIO
+X<PERLIO>
+
+A space (or colon) separated list of PerlIO layers. If perl is built
+to use PerlIO system for IO (the default) these layers affect Perl's IO.
+
+It is conventional to start layer names with a colon (for example, C<:perlio>) to
+emphasize their similarity to variable "attributes". But the code that parses
+layer specification strings, which is also used to decode the PERLIO
+environment variable, treats the colon as a separator.
+
+An unset or empty PERLIO is equivalent to the default set of layers for
+your platform; for example, C<:unix:perlio> on Unix-like systems
+and C<:unix:crlf> on Windows and other DOS-like systems.
+
+The list becomes the default for I<all> Perl's IO. Consequently only built-in
+layers can appear in this list, as external layers (such as C<:encoding()>) need
+IO in order to load them!  See L<"open pragma"|open> for how to add external
+encodings as defaults.
+
+Layers it makes sense to include in the PERLIO environment
+variable are briefly summarized below. For more details see L<PerlIO>.
+
+=over 8
+
+=item :bytes
+X<:bytes>
+
+A pseudolayer that turns the C<:utf8> flag I<off> for the layer below;
+unlikely to be useful on its own in the global PERLIO environment variable.
+You perhaps were thinking of C<:crlf:bytes> or C<:perlio:bytes>.
+
+=item :crlf
+X<:crlf>
+
+A layer which does CRLF to C<"\n"> translation distinguishing "text" and
+"binary" files in the manner of MS-DOS and similar operating systems.
+(It currently does I<not> mimic MS-DOS as far as treating of Control-Z
+as being an end-of-file marker.)
+
+=item :mmap
+X<:mmap>
+
+A layer that implements "reading" of files by using I<mmap>(2) to
+make an entire file appear in the process's address space, and then
+using that as PerlIO's "buffer".
+
+=item :perlio
+X<:perlio>
+
+This is a re-implementation of stdio-like buffering written as a
+PerlIO layer.  As such it will call whatever layer is below it for
+its operations, typically C<:unix>.
+
+=item :pop
+X<:pop>
+
+An experimental pseudolayer that removes the topmost layer.
+Use with the same care as is reserved for nitroglycerine.
+
+=item :raw
+X<:raw>
+
+A pseudolayer that manipulates other layers.  Applying the C<:raw>
+layer is equivalent to calling C<binmode($fh)>.  It makes the stream
+pass each byte as-is without translation.  In particular, both CRLF
+translation and intuiting C<:utf8> from the locale are disabled.
+
+Unlike in earlier versions of Perl, C<:raw> is I<not>
+just the inverse of C<:crlf>: other layers which would affect the
+binary nature of the stream are also removed or disabled.
+
+=item :stdio
+X<:stdio>
+
+This layer provides a PerlIO interface by wrapping system's ANSI C "stdio"
+library calls. The layer provides both buffering and IO.
+Note that the C<:stdio> layer does I<not> do CRLF translation even if that
+is the platform's normal behaviour. You will need a C<:crlf> layer above it
+to do that.
+
+=item :unix
+X<:unix>
+
+Low-level layer that calls C<read>, C<write>, C<lseek>, etc.
+
+=item :utf8
+X<:utf8>
+
+A pseudolayer that enables a flag in the layer below to tell Perl
+that output should be in utf8 and that input should be regarded as
+already in valid utf8 form. B<WARNING: It does not check for validity and as such
+should be handled with extreme caution for input, because security violations
+can occur with non-shortest UTF-8 encodings, etc.> Generally C<:encoding(utf8)> is
+the best option when reading UTF-8 encoded data.
+
+=item :win32
+X<:win32>
+
+On Win32 platforms this I<experimental> layer uses native "handle" IO
+rather than a Unix-like numeric file descriptor layer. Known to be
+buggy in this release (5.14).
+
+=back
+
+The default set of layers should give acceptable results on all platforms
+
+For Unix platforms that will be the equivalent of "unix perlio" or "stdio".
+Configure is set up to prefer the "stdio" implementation if the system's library
+provides for fast access to the buffer; otherwise, it uses the "unix perlio"
+implementation.
+
+On Win32 the default in this release (5.14) is "unix crlf". Win32's "stdio"
+has a number of bugs/mis-features for Perl IO which are somewhat depending
+on the version and vendor of the C compiler. Using our own C<crlf> layer as
+the buffer avoids those issues and makes things more uniform.  The C<crlf>
+layer provides CRLF conversion as well as buffering.
+
+This release (5.14) uses C<unix> as the bottom layer on Win32, and so still
+uses the C compiler's numeric file descriptor routines. There is an
+experimental native C<win32> layer, which is expected to be enhanced and
+should eventually become the default under Win32.
+
+The PERLIO environment variable is completely ignored when Perl
+is run in taint mode.
+
+=item PERLIO_DEBUG
+X<PERLIO_DEBUG>
+
+If set to the name of a file or device when Perl is run with the
+B<-Di> command-line switch, the logging of certain operations of
+the PerlIO subsystem will be redirected to the specified file rather
+than going to stderr, which is the default. The file is opened in append
+mode. Typical uses are in Unix:
+
+   % env PERLIO_DEBUG=/tmp/perlio.log perl -Di script ...
+
+and under Win32, the approximately equivalent:
+
+   > set PERLIO_DEBUG=CON
+   perl -Di script ...
+
+This functionality is disabled for setuid scripts, for scripts run
+with B<-T>, and for scripts run on a Perl built without C<-DDEBUGGING>
+support.
+
+=item PERLLIB
+X<PERLLIB>
+
+A list of directories in which to look for Perl library
+files before looking in the standard library and the current directory.
+If PERL5LIB is defined, PERLLIB is not used.
+
+The PERLLIB environment variable is completely ignored when Perl
+is run in taint mode.
+
+=item PERL5DB
+X<PERL5DB>
+
+The command used to load the debugger code.  The default is:
+
+	BEGIN { require "perl5db.pl" }
+
+The PERL5DB environment variable is only used when Perl is started with
+a bare B<-d> switch.
+
+=item PERL5DB_THREADED
+X<PERL5DB_THREADED>
+
+If set to a true value, indicates to the debugger that the code being
+debugged uses threads.
+
+=item PERL5SHELL (specific to the Win32 port)
+X<PERL5SHELL>
+
+On Win32 ports only, may be set to an alternative shell that Perl must use
+internally for executing "backtick" commands or system().  Default is
+C<cmd.exe /x/d/c> on WindowsNT and C<command.com /c> on Windows95.  The
+value is considered space-separated.  Precede any character that
+needs to be protected, like a space or backslash, with another backslash.
+
+Note that Perl doesn't use COMSPEC for this purpose because
+COMSPEC has a high degree of variability among users, leading to
+portability concerns.  Besides, Perl can use a shell that may not be
+fit for interactive use, and setting COMSPEC to such a shell may
+interfere with the proper functioning of other programs (which usually
+look in COMSPEC to find a shell fit for interactive use).
+
+Before Perl 5.10.0 and 5.8.8, PERL5SHELL was not taint checked
+when running external commands.  It is recommended that
+you explicitly set (or delete) C<$ENV{PERL5SHELL}> when running
+in taint mode under Windows.
+
+=item PERL_ALLOW_NON_IFS_LSP (specific to the Win32 port)
+X<PERL_ALLOW_NON_IFS_LSP>
+
+Set to 1 to allow the use of non-IFS compatible LSPs (Layered Service Providers).
+Perl normally searches for an IFS-compatible LSP because this is required
+for its emulation of Windows sockets as real filehandles.  However, this may
+cause problems if you have a firewall such as I<McAfee Guardian>, which requires
+that all applications use its LSP but which is not IFS-compatible, because clearly
+Perl will normally avoid using such an LSP.
+
+Setting this environment variable to 1 means that Perl will simply use the
+first suitable LSP enumerated in the catalog, which keeps I<McAfee Guardian>
+happy--and in that particular case Perl still works too because I<McAfee
+Guardian>'s LSP actually plays other games which allow applications
+requiring IFS compatibility to work.
+
+=item PERL_DEBUG_MSTATS
+X<PERL_DEBUG_MSTATS>
+
+Relevant only if Perl is compiled with the C<malloc> included with the Perl
+distribution; that is, if C<perl -V:d_mymalloc> is "define".
+
+If set, this dumps out memory statistics after execution.  If set
+to an integer greater than one, also dumps out memory statistics
+after compilation.
+
+=item PERL_DESTRUCT_LEVEL
+X<PERL_DESTRUCT_LEVEL>
+
+Relevant only if your Perl executable was built with B<-DDEBUGGING>,
+this controls the behaviour of global destruction of objects and other
+references.  See L<perlhacktips/PERL_DESTRUCT_LEVEL> for more information.
+
+=item PERL_DL_NONLAZY
+X<PERL_DL_NONLAZY>
+
+Set to C<"1"> to have Perl resolve I<all> undefined symbols when it loads
+a dynamic library.  The default behaviour is to resolve symbols when
+they are used.  Setting this variable is useful during testing of
+extensions, as it ensures that you get an error on misspelled function
+names even if the test suite doesn't call them.
+
+=item PERL_ENCODING
+X<PERL_ENCODING>
+
+If using the C<use encoding> pragma without an explicit encoding name, the
+PERL_ENCODING environment variable is consulted for an encoding name.
+
+=item PERL_HASH_SEED
+X<PERL_HASH_SEED>
+
+(Since Perl 5.8.1, new semantics in Perl 5.18.0)  Used to override
+the randomization of Perl's internal hash function. The value is expressed
+in hexadecimal, and may include a leading 0x. Truncated patterns
+are treated as though they are suffixed with sufficient 0's as required.
+
+If the option is provided, and C<PERL_PERTURB_KEYS> is NOT set, then
+a value of '0' implies C<PERL_PERTURB_KEYS=0> and any other value
+implies C<PERL_PERTURB_KEYS=2>.
+
+B<PLEASE NOTE: The hash seed is sensitive information>. Hashes are
+randomized to protect against local and remote attacks against Perl
+code. By manually setting a seed, this protection may be partially or
+completely lost.
+
+See L<perlsec/"Algorithmic Complexity Attacks">, L</PERL_PERTURB_KEYS>, and
+L</PERL_HASH_SEED_DEBUG> for more information.
+
+=item PERL_PERTURB_KEYS
+X<PERL_PERTURB_KEYS>
+
+(Since Perl 5.18.0)  Set to C<"0"> or C<"NO"> then traversing keys
+will be repeatable from run to run for the same PERL_HASH_SEED.
+Insertion into a hash will not change the order, except to provide
+for more space in the hash. When combined with setting PERL_HASH_SEED
+this mode is as close to pre 5.18 behavior as you can get.
+
+When set to C<"1"> or C<"RANDOM"> then traversing keys will be randomized.
+Every time a hash is inserted into the key order will change in a random
+fashion. The order may not be repeatable in a following program run
+even if the PERL_HASH_SEED has been specified. This is the default
+mode for perl.
+
+When set to C<"2"> or C<"DETERMINISTIC"> then inserting keys into a hash
+will cause the key order to change, but in a way that is repeatable
+from program run to program run.
+
+B<NOTE:> Use of this option is considered insecure, and is intended only
+for debugging non-deterministic behavior in Perl's hash function. Do
+not use it in production.
+
+See L<perlsec/"Algorithmic Complexity Attacks"> and L</PERL_HASH_SEED>
+and L</PERL_HASH_SEED_DEBUG> for more information. You can get and set the
+key traversal mask for a specific hash by using the C<hash_traversal_mask()>
+function from L<Hash::Util>.
+
+=item PERL_HASH_SEED_DEBUG
+X<PERL_HASH_SEED_DEBUG>
+
+(Since Perl 5.8.1.)  Set to C<"1"> to display (to STDERR) information
+about the hash function, seed, and what type of key traversal
+randomization is in effect at the beginning of execution.  This, combined
+with L</PERL_HASH_SEED> and L</PERL_PERTURB_KEYS> is intended to aid in
+debugging nondeterministic behaviour caused by hash randomization.
+
+B<Note> that any information about the hash function, especially the hash
+seed is B<sensitive information>: by knowing it, one can craft a denial-of-service
+attack against Perl code, even remotely; see L<perlsec/"Algorithmic Complexity Attacks">
+for more information. B<Do not disclose the hash seed> to people who
+don't need to know it. See also C<hash_seed()> and
+C<key_traversal_mask()> in L<Hash::Util>.
+
+An example output might be:
+
+ HASH_FUNCTION = ONE_AT_A_TIME_HARD HASH_SEED = 0x652e9b9349a7a032 PERTURB_KEYS = 1 (RANDOM)
+
+=item PERL_MEM_LOG
+X<PERL_MEM_LOG>
+
+If your Perl was configured with B<-Accflags=-DPERL_MEM_LOG>, setting
+the environment variable C<PERL_MEM_LOG> enables logging debug
+messages. The value has the form C<< <I<number>>[m][s][t] >>, where
+C<I<number>> is the file descriptor number you want to write to (2 is
+default), and the combination of letters specifies that you want
+information about (m)emory and/or (s)v, optionally with
+(t)imestamps. For example, C<PERL_MEM_LOG=1mst> logs all
+information to stdout. You can write to other opened file descriptors
+in a variety of ways:
+
+  $ 3>foo3 PERL_MEM_LOG=3m perl ...
+
+=item PERL_ROOT (specific to the VMS port)
+X<PERL_ROOT>
+
+A translation-concealed rooted logical name that contains Perl and the
+logical device for the @INC path on VMS only.  Other logical names that
+affect Perl on VMS include PERLSHR, PERL_ENV_TABLES, and
+SYS$TIMEZONE_DIFFERENTIAL, but are optional and discussed further in
+L<perlvms> and in F<README.vms> in the Perl source distribution.
+
+=item PERL_SIGNALS
+X<PERL_SIGNALS>
+
+Available in Perls 5.8.1 and later.  If set to C<"unsafe">, the pre-Perl-5.8.0
+signal behaviour (which is immediate but unsafe) is restored.  If set
+to C<safe>, then safe (but deferred) signals are used.  See
+L<perlipc/"Deferred Signals (Safe Signals)">.
+
+=item PERL_UNICODE
+X<PERL_UNICODE>
+
+Equivalent to the B<-C> command-line switch.  Note that this is not
+a boolean variable. Setting this to C<"1"> is not the right way to
+"enable Unicode" (whatever that would mean).  You can use C<"0"> to
+"disable Unicode", though (or alternatively unset PERL_UNICODE in
+your shell before starting Perl).  See the description of the B<-C>
+switch for more information.
+
+=item SYS$LOGIN (specific to the VMS port)
+X<SYS$LOGIN>
+
+Used if chdir has no argument and HOME and LOGDIR are not set.
+
+=back
+
+Perl also has environment variables that control how Perl handles data
+specific to particular natural languages; see L<perllocale>.
+
+Perl and its various modules and components, including its test frameworks,
+may sometimes make use of certain other environment variables.  Some of
+these are specific to a particular platform.  Please consult the
+appropriate module documentation and any documentation for your platform
+(like L<perlsolaris>, L<perllinux>, L<perlmacosx>, L<perlwin32>, etc) for
+variables peculiar to those specific situations.
+
+Perl makes all environment variables available to the program being
+executed, and passes these along to any child processes it starts.
+However, programs running setuid would do well to execute the following
+lines before doing anything else, just to keep people honest:
+
+    $ENV{PATH}  = "/bin:/usr/bin";    # or whatever you need
+    $ENV{SHELL} = "/bin/sh" if exists $ENV{SHELL};
+    delete @ENV{qw(IFS CDPATH ENV BASH_ENV)};
diff --git a/lib/5.24.1/pod/perlsec.pod b/lib/5.24.1/pod/perlsec.pod
new file mode 100644
index 00000000..6eb1bd21
--- /dev/null
+++ b/lib/5.24.1/pod/perlsec.pod
@@ -0,0 +1,581 @@
+=head1 NAME
+
+perlsec - Perl security
+
+=head1 DESCRIPTION
+
+Perl is designed to make it easy to program securely even when running
+with extra privileges, like setuid or setgid programs.  Unlike most
+command line shells, which are based on multiple substitution passes on
+each line of the script, Perl uses a more conventional evaluation scheme
+with fewer hidden snags.  Additionally, because the language has more
+builtin functionality, it can rely less upon external (and possibly
+untrustworthy) programs to accomplish its purposes.
+
+=head1 SECURITY VULNERABILITY CONTACT INFORMATION
+
+If you believe you have found a security vulnerability in Perl, please
+email the details to perl5-security-report@perl.org. This creates a new
+Request Tracker ticket in a special queue which isn't initially publicly
+accessible. The email will also be copied to a closed subscription
+unarchived mailing list which includes all the core committers, who will
+be able to help assess the impact of issues, figure out a resolution, and
+help co-ordinate the release of patches to mitigate or fix the problem
+across all platforms on which Perl is supported. Please only use this
+address for security issues in the Perl core, not for modules
+independently distributed on CPAN.
+
+When sending an initial request to the security email address, please
+don't Cc any other parties, because if they reply to all, the reply will
+generate yet another new ticket. Once you have received an initial reply
+with a C<[perl #NNNNNN]> ticket number in  the headline, it's okay to Cc
+subsequent replies to third parties: all emails to the
+perl5-security-report address with the ticket number in the subject line
+will be added to the ticket; without it, a new ticket will be created.
+
+=head1 SECURITY MECHANISMS AND CONCERNS
+
+=head2 Taint mode
+
+Perl automatically enables a set of special security checks, called I<taint
+mode>, when it detects its program running with differing real and effective
+user or group IDs.  The setuid bit in Unix permissions is mode 04000, the
+setgid bit mode 02000; either or both may be set.  You can also enable taint
+mode explicitly by using the B<-T> command line flag.  This flag is
+I<strongly> suggested for server programs and any program run on behalf of
+someone else, such as a CGI script.  Once taint mode is on, it's on for
+the remainder of your script.
+
+While in this mode, Perl takes special precautions called I<taint
+checks> to prevent both obvious and subtle traps.  Some of these checks
+are reasonably simple, such as verifying that path directories aren't
+writable by others; careful programmers have always used checks like
+these.  Other checks, however, are best supported by the language itself,
+and it is these checks especially that contribute to making a set-id Perl
+program more secure than the corresponding C program.
+
+You may not use data derived from outside your program to affect
+something else outside your program--at least, not by accident.  All
+command line arguments, environment variables, locale information (see
+L<perllocale>), results of certain system calls (C<readdir()>,
+C<readlink()>, the variable of C<shmread()>, the messages returned by
+C<msgrcv()>, the password, gcos and shell fields returned by the
+C<getpwxxx()> calls), and all file input are marked as "tainted".
+Tainted data may not be used directly or indirectly in any command
+that invokes a sub-shell, nor in any command that modifies files,
+directories, or processes, B<with the following exceptions>:
+
+=over 4
+
+=item *
+
+Arguments to C<print> and C<syswrite> are B<not> checked for taintedness.
+
+=item *
+
+Symbolic methods
+
+    $obj->$method(@args);
+
+and symbolic sub references
+
+    &{$foo}(@args);
+    $foo->(@args);
+
+are not checked for taintedness.  This requires extra carefulness
+unless you want external data to affect your control flow.  Unless
+you carefully limit what these symbolic values are, people are able
+to call functions B<outside> your Perl code, such as POSIX::system,
+in which case they are able to run arbitrary external code.
+
+=item *
+
+Hash keys are B<never> tainted.
+
+=back
+
+For efficiency reasons, Perl takes a conservative view of
+whether data is tainted.  If an expression contains tainted data,
+any subexpression may be considered tainted, even if the value
+of the subexpression is not itself affected by the tainted data.
+
+Because taintedness is associated with each scalar value, some
+elements of an array or hash can be tainted and others not.
+The keys of a hash are B<never> tainted.
+
+For example:
+
+    $arg = shift;		# $arg is tainted
+    $hid = $arg . 'bar';	# $hid is also tainted
+    $line = <>;			# Tainted
+    $line = <STDIN>;		# Also tainted
+    open FOO, "/home/me/bar" or die $!;
+    $line = <FOO>;		# Still tainted
+    $path = $ENV{'PATH'};	# Tainted, but see below
+    $data = 'abc';		# Not tainted
+
+    system "echo $arg";		# Insecure
+    system "/bin/echo", $arg;	# Considered insecure
+				# (Perl doesn't know about /bin/echo)
+    system "echo $hid";		# Insecure
+    system "echo $data";	# Insecure until PATH set
+
+    $path = $ENV{'PATH'};	# $path now tainted
+
+    $ENV{'PATH'} = '/bin:/usr/bin';
+    delete @ENV{'IFS', 'CDPATH', 'ENV', 'BASH_ENV'};
+
+    $path = $ENV{'PATH'};	# $path now NOT tainted
+    system "echo $data";	# Is secure now!
+
+    open(FOO, "< $arg");	# OK - read-only file
+    open(FOO, "> $arg"); 	# Not OK - trying to write
+
+    open(FOO,"echo $arg|");	# Not OK
+    open(FOO,"-|")
+	or exec 'echo', $arg;	# Also not OK
+
+    $shout = `echo $arg`;	# Insecure, $shout now tainted
+
+    unlink $data, $arg;		# Insecure
+    umask $arg;			# Insecure
+
+    exec "echo $arg";		# Insecure
+    exec "echo", $arg;		# Insecure
+    exec "sh", '-c', $arg;	# Very insecure!
+
+    @files = <*.c>;		# insecure (uses readdir() or similar)
+    @files = glob('*.c');	# insecure (uses readdir() or similar)
+
+    # In either case, the results of glob are tainted, since the list of
+    # filenames comes from outside of the program.
+
+    $bad = ($arg, 23);		# $bad will be tainted
+    $arg, `true`;		# Insecure (although it isn't really)
+
+If you try to do something insecure, you will get a fatal error saying
+something like "Insecure dependency" or "Insecure $ENV{PATH}".
+
+The exception to the principle of "one tainted value taints the whole
+expression" is with the ternary conditional operator C<?:>.  Since code
+with a ternary conditional
+
+    $result = $tainted_value ? "Untainted" : "Also untainted";
+
+is effectively
+
+    if ( $tainted_value ) {
+        $result = "Untainted";
+    } else {
+        $result = "Also untainted";
+    }
+
+it doesn't make sense for C<$result> to be tainted.
+
+=head2 Laundering and Detecting Tainted Data
+
+To test whether a variable contains tainted data, and whose use would
+thus trigger an "Insecure dependency" message, you can use the
+C<tainted()> function of the Scalar::Util module, available in your
+nearby CPAN mirror, and included in Perl starting from the release 5.8.0.
+Or you may be able to use the following C<is_tainted()> function.
+
+    sub is_tainted {
+        local $@;   # Don't pollute caller's value.
+        return ! eval { eval("#" . substr(join("", @_), 0, 0)); 1 };
+    }
+
+This function makes use of the fact that the presence of tainted data
+anywhere within an expression renders the entire expression tainted.  It
+would be inefficient for every operator to test every argument for
+taintedness.  Instead, the slightly more efficient and conservative
+approach is used that if any tainted value has been accessed within the
+same expression, the whole expression is considered tainted.
+
+But testing for taintedness gets you only so far.  Sometimes you have just
+to clear your data's taintedness.  Values may be untainted by using them
+as keys in a hash; otherwise the only way to bypass the tainting
+mechanism is by referencing subpatterns from a regular expression match.
+Perl presumes that if you reference a substring using $1, $2, etc. in a
+non-tainting pattern, that
+you knew what you were doing when you wrote that pattern.  That means using
+a bit of thought--don't just blindly untaint anything, or you defeat the
+entire mechanism.  It's better to verify that the variable has only good
+characters (for certain values of "good") rather than checking whether it
+has any bad characters.  That's because it's far too easy to miss bad
+characters that you never thought of.
+
+Here's a test to make sure that the data contains nothing but "word"
+characters (alphabetics, numerics, and underscores), a hyphen, an at sign,
+or a dot.
+
+    if ($data =~ /^([-\@\w.]+)$/) {
+	$data = $1; 			# $data now untainted
+    } else {
+	die "Bad data in '$data'"; 	# log this somewhere
+    }
+
+This is fairly secure because C</\w+/> doesn't normally match shell
+metacharacters, nor are dot, dash, or at going to mean something special
+to the shell.  Use of C</.+/> would have been insecure in theory because
+it lets everything through, but Perl doesn't check for that.  The lesson
+is that when untainting, you must be exceedingly careful with your patterns.
+Laundering data using regular expression is the I<only> mechanism for
+untainting dirty data, unless you use the strategy detailed below to fork
+a child of lesser privilege.
+
+The example does not untaint C<$data> if C<use locale> is in effect,
+because the characters matched by C<\w> are determined by the locale.
+Perl considers that locale definitions are untrustworthy because they
+contain data from outside the program.  If you are writing a
+locale-aware program, and want to launder data with a regular expression
+containing C<\w>, put C<no locale> ahead of the expression in the same
+block.  See L<perllocale/SECURITY> for further discussion and examples.
+
+=head2 Switches On the "#!" Line
+
+When you make a script executable, in order to make it usable as a
+command, the system will pass switches to perl from the script's #!
+line.  Perl checks that any command line switches given to a setuid
+(or setgid) script actually match the ones set on the #! line.  Some
+Unix and Unix-like environments impose a one-switch limit on the #!
+line, so you may need to use something like C<-wU> instead of C<-w -U>
+under such systems.  (This issue should arise only in Unix or
+Unix-like environments that support #! and setuid or setgid scripts.)
+
+=head2 Taint mode and @INC
+
+When the taint mode (C<-T>) is in effect, the "." directory is removed
+from C<@INC>, and the environment variables C<PERL5LIB> and C<PERLLIB>
+are ignored by Perl.  You can still adjust C<@INC> from outside the
+program by using the C<-I> command line option as explained in
+L<perlrun>.  The two environment variables are ignored because
+they are obscured, and a user running a program could be unaware that
+they are set, whereas the C<-I> option is clearly visible and
+therefore permitted.
+
+Another way to modify C<@INC> without modifying the program, is to use
+the C<lib> pragma, e.g.:
+
+  perl -Mlib=/foo program
+
+The benefit of using C<-Mlib=/foo> over C<-I/foo>, is that the former
+will automagically remove any duplicated directories, while the latter
+will not.
+
+Note that if a tainted string is added to C<@INC>, the following
+problem will be reported:
+
+  Insecure dependency in require while running with -T switch
+
+=head2 Cleaning Up Your Path
+
+For "Insecure C<$ENV{PATH}>" messages, you need to set C<$ENV{'PATH'}> to
+a known value, and each directory in the path must be absolute and
+non-writable by others than its owner and group.  You may be surprised to
+get this message even if the pathname to your executable is fully
+qualified.  This is I<not> generated because you didn't supply a full path
+to the program; instead, it's generated because you never set your PATH
+environment variable, or you didn't set it to something that was safe.
+Because Perl can't guarantee that the executable in question isn't itself
+going to turn around and execute some other program that is dependent on
+your PATH, it makes sure you set the PATH.
+
+The PATH isn't the only environment variable which can cause problems.
+Because some shells may use the variables IFS, CDPATH, ENV, and
+BASH_ENV, Perl checks that those are either empty or untainted when
+starting subprocesses.  You may wish to add something like this to your
+setid and taint-checking scripts.
+
+    delete @ENV{qw(IFS CDPATH ENV BASH_ENV)};   # Make %ENV safer
+
+It's also possible to get into trouble with other operations that don't
+care whether they use tainted values.  Make judicious use of the file
+tests in dealing with any user-supplied filenames.  When possible, do
+opens and such B<after> properly dropping any special user (or group!)
+privileges.  Perl doesn't prevent you from
+opening tainted filenames for reading,
+so be careful what you print out.  The tainting mechanism is intended to
+prevent stupid mistakes, not to remove the need for thought.
+
+Perl does not call the shell to expand wild cards when you pass C<system>
+and C<exec> explicit parameter lists instead of strings with possible shell
+wildcards in them.  Unfortunately, the C<open>, C<glob>, and
+backtick functions provide no such alternate calling convention, so more
+subterfuge will be required.
+
+Perl provides a reasonably safe way to open a file or pipe from a setuid
+or setgid program: just create a child process with reduced privilege who
+does the dirty work for you.  First, fork a child using the special
+C<open> syntax that connects the parent and child by a pipe.  Now the
+child resets its ID set and any other per-process attributes, like
+environment variables, umasks, current working directories, back to the
+originals or known safe values.  Then the child process, which no longer
+has any special permissions, does the C<open> or other system call.
+Finally, the child passes the data it managed to access back to the
+parent.  Because the file or pipe was opened in the child while running
+under less privilege than the parent, it's not apt to be tricked into
+doing something it shouldn't.
+
+Here's a way to do backticks reasonably safely.  Notice how the C<exec> is
+not called with a string that the shell could expand.  This is by far the
+best way to call something that might be subjected to shell escapes: just
+never call the shell at all.  
+
+        use English;
+        die "Can't fork: $!" unless defined($pid = open(KID, "-|"));
+        if ($pid) {           # parent
+            while (<KID>) {
+                # do something
+            }
+            close KID;
+        } else {
+            my @temp     = ($EUID, $EGID);
+            my $orig_uid = $UID;
+            my $orig_gid = $GID;
+            $EUID = $UID;
+            $EGID = $GID;
+            # Drop privileges
+            $UID  = $orig_uid;
+            $GID  = $orig_gid;
+            # Make sure privs are really gone
+            ($EUID, $EGID) = @temp;
+            die "Can't drop privileges"
+                unless $UID == $EUID  && $GID eq $EGID;
+            $ENV{PATH} = "/bin:/usr/bin"; # Minimal PATH.
+	    # Consider sanitizing the environment even more.
+            exec 'myprog', 'arg1', 'arg2'
+                or die "can't exec myprog: $!";
+        }
+
+A similar strategy would work for wildcard expansion via C<glob>, although
+you can use C<readdir> instead.
+
+Taint checking is most useful when although you trust yourself not to have
+written a program to give away the farm, you don't necessarily trust those
+who end up using it not to try to trick it into doing something bad.  This
+is the kind of security checking that's useful for set-id programs and
+programs launched on someone else's behalf, like CGI programs.
+
+This is quite different, however, from not even trusting the writer of the
+code not to try to do something evil.  That's the kind of trust needed
+when someone hands you a program you've never seen before and says, "Here,
+run this."  For that kind of safety, you might want to check out the Safe
+module, included standard in the Perl distribution.  This module allows the
+programmer to set up special compartments in which all system operations
+are trapped and namespace access is carefully controlled.  Safe should
+not be considered bullet-proof, though: it will not prevent the foreign
+code to set up infinite loops, allocate gigabytes of memory, or even
+abusing perl bugs to make the host interpreter crash or behave in
+unpredictable ways.  In any case it's better avoided completely if you're
+really concerned about security.
+
+=head2 Security Bugs
+
+Beyond the obvious problems that stem from giving special privileges to
+systems as flexible as scripts, on many versions of Unix, set-id scripts
+are inherently insecure right from the start.  The problem is a race
+condition in the kernel.  Between the time the kernel opens the file to
+see which interpreter to run and when the (now-set-id) interpreter turns
+around and reopens the file to interpret it, the file in question may have
+changed, especially if you have symbolic links on your system.
+
+Fortunately, sometimes this kernel "feature" can be disabled.
+Unfortunately, there are two ways to disable it.  The system can simply
+outlaw scripts with any set-id bit set, which doesn't help much.
+Alternately, it can simply ignore the set-id bits on scripts.
+
+However, if the kernel set-id script feature isn't disabled, Perl will
+complain loudly that your set-id script is insecure.  You'll need to
+either disable the kernel set-id script feature, or put a C wrapper around
+the script.  A C wrapper is just a compiled program that does nothing
+except call your Perl program.   Compiled programs are not subject to the
+kernel bug that plagues set-id scripts.  Here's a simple wrapper, written
+in C:
+
+    #define REAL_PATH "/path/to/script"
+    main(ac, av)
+	char **av;
+    {
+	execv(REAL_PATH, av);
+    }
+
+Compile this wrapper into a binary executable and then make I<it> rather
+than your script setuid or setgid.
+
+In recent years, vendors have begun to supply systems free of this
+inherent security bug.  On such systems, when the kernel passes the name
+of the set-id script to open to the interpreter, rather than using a
+pathname subject to meddling, it instead passes I</dev/fd/3>.  This is a
+special file already opened on the script, so that there can be no race
+condition for evil scripts to exploit.  On these systems, Perl should be
+compiled with C<-DSETUID_SCRIPTS_ARE_SECURE_NOW>.  The F<Configure>
+program that builds Perl tries to figure this out for itself, so you
+should never have to specify this yourself.  Most modern releases of
+SysVr4 and BSD 4.4 use this approach to avoid the kernel race condition.
+
+=head2 Protecting Your Programs
+
+There are a number of ways to hide the source to your Perl programs,
+with varying levels of "security".
+
+First of all, however, you I<can't> take away read permission, because
+the source code has to be readable in order to be compiled and
+interpreted.  (That doesn't mean that a CGI script's source is
+readable by people on the web, though.)  So you have to leave the
+permissions at the socially friendly 0755 level.  This lets 
+people on your local system only see your source.
+
+Some people mistakenly regard this as a security problem.  If your program does
+insecure things, and relies on people not knowing how to exploit those
+insecurities, it is not secure.  It is often possible for someone to
+determine the insecure things and exploit them without viewing the
+source.  Security through obscurity, the name for hiding your bugs
+instead of fixing them, is little security indeed.
+
+You can try using encryption via source filters (Filter::* from CPAN,
+or Filter::Util::Call and Filter::Simple since Perl 5.8).
+But crackers might be able to decrypt it.  You can try using the byte
+code compiler and interpreter described below, but crackers might be
+able to de-compile it.  You can try using the native-code compiler
+described below, but crackers might be able to disassemble it.  These
+pose varying degrees of difficulty to people wanting to get at your
+code, but none can definitively conceal it (this is true of every
+language, not just Perl).
+
+If you're concerned about people profiting from your code, then the
+bottom line is that nothing but a restrictive license will give you
+legal security.  License your software and pepper it with threatening
+statements like "This is unpublished proprietary software of XYZ Corp.
+Your access to it does not give you permission to use it blah blah
+blah."  You should see a lawyer to be sure your license's wording will
+stand up in court.
+
+=head2 Unicode
+
+Unicode is a new and complex technology and one may easily overlook
+certain security pitfalls.  See L<perluniintro> for an overview and
+L<perlunicode> for details, and L<perlunicode/"Security Implications
+of Unicode"> for security implications in particular.
+
+=head2 Algorithmic Complexity Attacks
+
+Certain internal algorithms used in the implementation of Perl can
+be attacked by choosing the input carefully to consume large amounts
+of either time or space or both.  This can lead into the so-called
+I<Denial of Service> (DoS) attacks.
+
+=over 4
+
+=item *
+
+Hash Algorithm - Hash algorithms like the one used in Perl are well
+known to be vulnerable to collision attacks on their hash function.
+Such attacks involve constructing a set of keys which collide into
+the same bucket producing inefficient behavior.  Such attacks often
+depend on discovering the seed of the hash function used to map the
+keys to buckets.  That seed is then used to brute-force a key set which
+can be used to mount a denial of service attack.  In Perl 5.8.1 changes
+were introduced to harden Perl to such attacks, and then later in
+Perl 5.18.0 these features were enhanced and additional protections
+added.
+
+At the time of this writing, Perl 5.18.0 is considered to be
+well-hardened against algorithmic complexity attacks on its hash
+implementation.  This is largely owed to the following measures
+mitigate attacks:
+
+=over 4
+
+=item Hash Seed Randomization
+
+In order to make it impossible to know what seed to generate an attack
+key set for, this seed is randomly initialized at process start.  This
+may be overridden by using the PERL_HASH_SEED environment variable, see
+L<perlrun/PERL_HASH_SEED>.  This environment variable controls how
+items are actually stored, not how they are presented via
+C<keys>, C<values> and C<each>.
+
+=item Hash Traversal Randomization
+
+Independent of which seed is used in the hash function, C<keys>,
+C<values>, and C<each> return items in a per-hash randomized order.
+Modifying a hash by insertion will change the iteration order of that hash.
+This behavior can be overridden by using C<hash_traversal_mask()> from
+L<Hash::Util> or by using the PERL_PERTURB_KEYS environment variable,
+see L<perlrun/PERL_PERTURB_KEYS>.  Note that this feature controls the
+"visible" order of the keys, and not the actual order they are stored in.
+
+=item Bucket Order Perturbance
+
+When items collide into a given hash bucket the order they are stored in
+the chain is no longer predictable in Perl 5.18.  This
+has the intention to make it harder to observe a
+collision.  This behavior can be overridden by using
+the PERL_PERTURB_KEYS environment variable, see L<perlrun/PERL_PERTURB_KEYS>.
+
+=item New Default Hash Function
+
+The default hash function has been modified with the intention of making
+it harder to infer the hash seed.
+
+=item Alternative Hash Functions
+
+The source code includes multiple hash algorithms to choose from.  While we
+believe that the default perl hash is robust to attack, we have included the
+hash function Siphash as a fall-back option.  At the time of release of
+Perl 5.18.0 Siphash is believed to be of cryptographic strength.  This is
+not the default as it is much slower than the default hash.
+
+=back
+
+Without compiling a special Perl, there is no way to get the exact same
+behavior of any versions prior to Perl 5.18.0.  The closest one can get
+is by setting PERL_PERTURB_KEYS to 0 and setting the PERL_HASH_SEED
+to a known value.  We do not advise those settings for production use
+due to the above security considerations.
+
+B<Perl has never guaranteed any ordering of the hash keys>, and
+the ordering has already changed several times during the lifetime of
+Perl 5.  Also, the ordering of hash keys has always been, and continues
+to be, affected by the insertion order and the history of changes made
+to the hash over its lifetime.
+
+Also note that while the order of the hash elements might be
+randomized, this "pseudo-ordering" should B<not> be used for
+applications like shuffling a list randomly (use C<List::Util::shuffle()>
+for that, see L<List::Util>, a standard core module since Perl 5.8.0;
+or the CPAN module C<Algorithm::Numerical::Shuffle>), or for generating
+permutations (use e.g. the CPAN modules C<Algorithm::Permute> or
+C<Algorithm::FastPermute>), or for any cryptographic applications.
+
+Tied hashes may have their own ordering and algorithmic complexity
+attacks.
+
+=item *
+
+Regular expressions - Perl's regular expression engine is so called NFA
+(Non-deterministic Finite Automaton), which among other things means that
+it can rather easily consume large amounts of both time and space if the
+regular expression may match in several ways.  Careful crafting of the
+regular expressions can help but quite often there really isn't much
+one can do (the book "Mastering Regular Expressions" is required
+reading, see L<perlfaq2>).  Running out of space manifests itself by
+Perl running out of memory.
+
+=item *
+
+Sorting - the quicksort algorithm used in Perls before 5.8.0 to
+implement the sort() function is very easy to trick into misbehaving
+so that it consumes a lot of time.  Starting from Perl 5.8.0 a different
+sorting algorithm, mergesort, is used by default.  Mergesort cannot
+misbehave on any input.
+
+=back
+
+See L<http://www.cs.rice.edu/~scrosby/hash/> for more information,
+and any computer science textbook on algorithmic complexity.
+
+=head1 SEE ALSO
+
+L<perlrun> for its description of cleaning up environment variables.
diff --git a/lib/5.24.1/pod/perlsolaris.pod b/lib/5.24.1/pod/perlsolaris.pod
new file mode 100644
index 00000000..8f763055
--- /dev/null
+++ b/lib/5.24.1/pod/perlsolaris.pod
@@ -0,0 +1,712 @@
+If you read this file _as_is_, just ignore the funny characters you
+see.  It is written in the POD format (see pod/perlpod.pod) which is
+specifically designed to be readable as is.
+
+=head1 NAME
+
+perlsolaris - Perl version 5 on Solaris systems
+
+=head1 DESCRIPTION
+
+This document describes various features of Sun's Solaris operating system
+that will affect how Perl version 5 (hereafter just perl) is
+compiled and/or runs.  Some issues relating to the older SunOS 4.x are
+also discussed, though they may be out of date.
+
+For the most part, everything should just work.
+
+Starting with Solaris 8, perl5.00503 (or higher) is supplied with the
+operating system, so you might not even need to build a newer version
+of perl at all.  The Sun-supplied version is installed in /usr/perl5
+with F</usr/bin/perl> pointing to F</usr/perl5/bin/perl>.  Do not disturb
+that installation unless you really know what you are doing.  If you
+remove the perl supplied with the OS, you will render some bits of
+your system inoperable.  If you wish to install a newer version of perl,
+install it under a different prefix from /usr/perl5.  Common prefixes
+to use are /usr/local and /opt/perl.
+
+You may wish to put your version of perl in the PATH of all users by
+changing the link F</usr/bin/perl>.  This is probably OK, as most perl
+scripts shipped with Solaris use an explicit path.  (There are a few
+exceptions, such as F</usr/bin/rpm2cpio> and F</etc/rcm/scripts/README>, but
+these are also sufficiently generic that the actual version of perl
+probably doesn't matter too much.)
+
+Solaris ships with a range of Solaris-specific modules.  If you choose
+to install your own version of perl you will find the source of many of
+these modules is available on CPAN under the Sun::Solaris:: namespace.
+
+Solaris may include two versions of perl, e.g. Solaris 9 includes
+both 5.005_03 and 5.6.1.  This is to provide stability across Solaris
+releases, in cases where a later perl version has incompatibilities
+with the version included in the preceding Solaris release.  The
+default perl version will always be the most recent, and in general
+the old version will only be retained for one Solaris release.  Note
+also that the default perl will NOT be configured to search for modules
+in the older version, again due to compatibility/stability concerns.
+As a consequence if you upgrade Solaris, you will have to
+rebuild/reinstall any additional CPAN modules that you installed for
+the previous Solaris version.  See the CPAN manpage under 'autobundle'
+for a quick way of doing this.
+
+As an interim measure, you may either change the #! line of your
+scripts to specifically refer to the old perl version, e.g. on
+Solaris 9 use #!/usr/perl5/5.00503/bin/perl to use the perl version
+that was the default for Solaris 8, or if you have a large number of
+scripts it may be more convenient to make the old version of perl the
+default on your system.  You can do this by changing the appropriate
+symlinks under /usr/perl5 as follows (example for Solaris 9):
+
+ # cd /usr/perl5
+ # rm bin man pod
+ # ln -s ./5.00503/bin
+ # ln -s ./5.00503/man
+ # ln -s ./5.00503/lib/pod
+ # rm /usr/bin/perl
+ # ln -s ../perl5/5.00503/bin/perl /usr/bin/perl
+
+In both cases this should only be considered to be a temporary
+measure - you should upgrade to the later version of perl as soon as
+is practicable.
+
+Note also that the perl command-line utilities (e.g. perldoc) and any
+that are added by modules that you install will be under
+/usr/perl5/bin, so that directory should be added to your PATH.
+
+=head2 Solaris Version Numbers.
+
+For consistency with common usage, perl's Configure script performs
+some minor manipulations on the operating system name and version
+number as reported by uname.  Here's a partial translation table:
+
+          Sun:                      perl's Configure:
+ uname    uname -r   Name           osname     osvers
+ SunOS    4.1.3     Solaris 1.1     sunos      4.1.3
+ SunOS    5.6       Solaris 2.6     solaris    2.6
+ SunOS    5.8       Solaris 8       solaris    2.8
+ SunOS    5.9       Solaris 9       solaris    2.9
+ SunOS    5.10      Solaris 10      solaris    2.10
+
+The complete table can be found in the Sun Managers' FAQ
+L<ftp://ftp.cs.toronto.edu/pub/jdd/sunmanagers/faq> under
+"9.1) Which Sun models run which versions of SunOS?".
+
+=head1 RESOURCES
+
+There are many, many sources for Solaris information.  A few of the
+important ones for perl:
+
+=over 4
+
+=item Solaris FAQ
+
+The Solaris FAQ is available at
+L<http://www.science.uva.nl/pub/solaris/solaris2.html>.
+
+The Sun Managers' FAQ is available at
+L<ftp://ftp.cs.toronto.edu/pub/jdd/sunmanagers/faq>
+
+=item Precompiled Binaries
+
+Precompiled binaries, links to many sites, and much, much more are
+available at L<http://www.sunfreeware.com/> and
+L<http://www.blastwave.org/>.
+
+=item Solaris Documentation
+
+All Solaris documentation is available on-line at L<http://docs.sun.com/>.
+
+=back
+
+=head1 SETTING UP
+
+=head2 File Extraction Problems on Solaris.
+
+Be sure to use a tar program compiled under Solaris (not SunOS 4.x)
+to extract the perl-5.x.x.tar.gz file.  Do not use GNU tar compiled
+for SunOS4 on Solaris.  (GNU tar compiled for Solaris should be fine.)
+When you run SunOS4 binaries on Solaris, the run-time system magically
+alters pathnames matching m#lib/locale# so that when tar tries to create
+lib/locale.pm, a file named lib/oldlocale.pm gets created instead.
+If you found this advice too late and used a SunOS4-compiled tar
+anyway, you must find the incorrectly renamed file and move it back
+to lib/locale.pm.
+
+=head2 Compiler and Related Tools on Solaris.
+
+You must use an ANSI C compiler to build perl.  Perl can be compiled
+with either Sun's add-on C compiler or with gcc.  The C compiler that
+shipped with SunOS4 will not do.
+
+=head3 Include /usr/ccs/bin/ in your PATH.
+
+Several tools needed to build perl are located in /usr/ccs/bin/:  ar,
+as, ld, and make.  Make sure that /usr/ccs/bin/ is in your PATH.
+
+
+On all the released versions of Solaris (8, 9 and 10) you need to make sure the following packages are installed (this info is extracted from the Solaris FAQ):
+
+for tools (sccs, lex, yacc, make, nm, truss, ld, as): SUNWbtool,
+SUNWsprot, SUNWtoo
+
+for libraries & headers: SUNWhea, SUNWarc, SUNWlibm, SUNWlibms, SUNWdfbh,
+SUNWcg6h, SUNWxwinc
+
+Additionaly, on Solaris 8 and 9 you also need:
+
+for 64 bit development: SUNWarcx, SUNWbtoox, SUNWdplx, SUNWscpux,
+SUNWsprox, SUNWtoox, SUNWlmsx, SUNWlmx, SUNWlibCx
+
+And only on Solaris 8 you also need:
+
+for libraries & headers: SUNWolinc
+
+
+If you are in doubt which package contains a file you are missing,
+try to find an installation that has that file. Then do a
+
+ $ grep /my/missing/file /var/sadm/install/contents
+
+This will display a line like this:
+
+/usr/include/sys/errno.h f none 0644 root bin 7471 37605 956241356 SUNWhea
+
+The last item listed (SUNWhea in this example) is the package you need.
+
+=head3 Avoid /usr/ucb/cc.
+
+You don't need to have /usr/ucb/ in your PATH to build perl.  If you
+want /usr/ucb/ in your PATH anyway, make sure that /usr/ucb/ is NOT
+in your PATH before the directory containing the right C compiler.
+
+=head3 Sun's C Compiler
+
+If you use Sun's C compiler, make sure the correct directory
+(usually /opt/SUNWspro/bin/) is in your PATH (before /usr/ucb/).
+
+=head3 GCC
+
+If you use gcc, make sure your installation is recent and complete.
+perl versions since 5.6.0 build fine with gcc > 2.8.1 on Solaris >=
+2.6.
+
+You must Configure perl with
+
+ $ sh Configure -Dcc=gcc
+
+If you don't, you may experience strange build errors.
+
+If you have updated your Solaris version, you may also have to update
+your gcc.  For example, if you are running Solaris 2.6 and your gcc is
+installed under /usr/local, check in /usr/local/lib/gcc-lib and make
+sure you have the appropriate directory, sparc-sun-solaris2.6/ or
+i386-pc-solaris2.6/.  If gcc's directory is for a different version of
+Solaris than you are running, then you will need to rebuild gcc for
+your new version of Solaris.
+
+You can get a precompiled version of gcc from
+L<http://www.sunfreeware.com/> or L<http://www.blastwave.org/>. Make
+sure you pick up the package for your Solaris release.
+
+If you wish to use gcc to build add-on modules for use with the perl
+shipped with Solaris, you should use the Solaris::PerlGcc module
+which is available from CPAN.  The perl shipped with Solaris
+is configured and built with the Sun compilers, and the compiler
+configuration information stored in Config.pm is therefore only
+relevant to the Sun compilers.  The Solaris:PerlGcc module contains a
+replacement Config.pm that is correct for gcc - see the module for
+details.
+
+=head3 GNU as and GNU ld
+
+The following information applies to gcc version 2.  Volunteers to
+update it as appropriately for gcc version 3 would be appreciated.
+
+The versions of as and ld supplied with Solaris work fine for building
+perl.  There is normally no need to install the GNU versions to
+compile perl.
+
+If you decide to ignore this advice and use the GNU versions anyway,
+then be sure that they are relatively recent.  Versions newer than 2.7
+are apparently new enough.  Older versions may have trouble with
+dynamic loading.
+
+If you wish to use GNU ld, then you need to pass it the -Wl,-E flag.
+The hints/solaris_2.sh file tries to do this automatically by setting
+the following Configure variables:
+
+ ccdlflags="$ccdlflags -Wl,-E"
+ lddlflags="$lddlflags -Wl,-E -G"
+
+However, over the years, changes in gcc, GNU ld, and Solaris ld have made
+it difficult to automatically detect which ld ultimately gets called.
+You may have to manually edit config.sh and add the -Wl,-E flags
+yourself, or else run Configure interactively and add the flags at the
+appropriate prompts.
+
+If your gcc is configured to use GNU as and ld but you want to use the
+Solaris ones instead to build perl, then you'll need to add
+-B/usr/ccs/bin/ to the gcc command line.  One convenient way to do
+that is with
+
+ $ sh Configure -Dcc='gcc -B/usr/ccs/bin/'
+
+Note that the trailing slash is required.  This will result in some
+harmless warnings as Configure is run:
+
+ gcc: file path prefix `/usr/ccs/bin/' never used
+
+These messages may safely be ignored.
+(Note that for a SunOS4 system, you must use -B/bin/ instead.)
+
+Alternatively, you can use the GCC_EXEC_PREFIX environment variable to
+ensure that Sun's as and ld are used.  Consult your gcc documentation
+for further information on the -B option and the GCC_EXEC_PREFIX variable.
+
+=head3 Sun and GNU make
+
+The make under /usr/ccs/bin works fine for building perl.  If you
+have the Sun C compilers, you will also have a parallel version of
+make (dmake).  This works fine to build perl, but can sometimes cause
+problems when running 'make test' due to underspecified dependencies
+between the different test harness files.  The same problem can also
+affect the building of some add-on modules, so in those cases either
+specify '-m serial' on the dmake command line, or use
+/usr/ccs/bin/make instead.  If you wish to use GNU make, be sure that
+the set-group-id bit is not set.  If it is, then arrange your PATH so
+that /usr/ccs/bin/make is before GNU make or else have the system
+administrator disable the set-group-id bit on GNU make.
+
+=head3 Avoid libucb.
+
+Solaris provides some BSD-compatibility functions in /usr/ucblib/libucb.a.
+Perl will not build and run correctly if linked against -lucb since it
+contains routines that are incompatible with the standard Solaris libc.
+Normally this is not a problem since the solaris hints file prevents
+Configure from even looking in /usr/ucblib for libraries, and also
+explicitly omits -lucb.
+
+=head2 Environment for Compiling perl on Solaris
+
+=head3 PATH
+
+Make sure your PATH includes the compiler (/opt/SUNWspro/bin/ if you're
+using Sun's compiler) as well as /usr/ccs/bin/ to pick up the other
+development tools (such as make, ar, as, and ld).  Make sure your path
+either doesn't include /usr/ucb or that it includes it after the
+compiler and compiler tools and other standard Solaris directories.
+You definitely don't want /usr/ucb/cc.
+
+=head3 LD_LIBRARY_PATH
+
+If you have the LD_LIBRARY_PATH environment variable set, be sure that
+it does NOT include /lib or /usr/lib.  If you will be building
+extensions that call third-party shared libraries (e.g. Berkeley DB)
+then make sure that your LD_LIBRARY_PATH environment variable includes
+the directory with that library (e.g. /usr/local/lib).
+
+If you get an error message
+
+ dlopen: stub interception failed
+
+it is probably because your LD_LIBRARY_PATH environment variable
+includes a directory which is a symlink to /usr/lib (such as /lib).
+The reason this causes a problem is quite subtle.  The file
+libdl.so.1.0 actually *only* contains functions which generate 'stub
+interception failed' errors!  The runtime linker intercepts links to
+"/usr/lib/libdl.so.1.0" and links in internal implementations of those
+functions instead.  [Thanks to Tim Bunce for this explanation.]
+
+=head1 RUN CONFIGURE.
+
+See the INSTALL file for general information regarding Configure.
+Only Solaris-specific issues are discussed here.  Usually, the
+defaults should be fine.
+
+=head2 64-bit perl on Solaris.
+
+See the INSTALL file for general information regarding 64-bit compiles.
+In general, the defaults should be fine for most people.
+
+By default, perl-5.6.0 (or later) is compiled as a 32-bit application
+with largefile and long-long support.
+
+=head3 General 32-bit vs. 64-bit issues.
+
+Solaris 7 and above will run in either 32 bit or 64 bit mode on SPARC
+CPUs, via a reboot. You can build 64 bit apps whilst running 32 bit
+mode and vice-versa. 32 bit apps will run under Solaris running in
+either 32 or 64 bit mode.  64 bit apps require Solaris to be running
+64 bit mode.
+
+Existing 32 bit apps are properly known as LP32, i.e. Longs and
+Pointers are 32 bit.  64-bit apps are more properly known as LP64.
+The discriminating feature of a LP64 bit app is its ability to utilise a
+64-bit address space.  It is perfectly possible to have a LP32 bit app
+that supports both 64-bit integers (long long) and largefiles (> 2GB),
+and this is the default for perl-5.6.0.
+
+For a more complete explanation of 64-bit issues, see the
+"Solaris 64-bit Developer's Guide" at L<http://docs.sun.com/>
+
+You can detect the OS mode using "isainfo -v", e.g.
+
+ $ isainfo -v   # Ultra 30 in 64 bit mode
+ 64-bit sparcv9 applications
+ 32-bit sparc applications
+
+By default, perl will be compiled as a 32-bit application.  Unless
+you want to allocate more than ~ 4GB of memory inside perl, or unless
+you need more than 255 open file descriptors, you probably don't need
+perl to be a 64-bit app.
+
+=head3 Large File Support
+
+For Solaris 2.6 and onwards, there are two different ways for 32-bit
+applications to manipulate large files (files whose size is > 2GByte).
+(A 64-bit application automatically has largefile support built in
+by default.)
+
+First is the "transitional compilation environment", described in
+lfcompile64(5).  According to the man page,
+
+ The transitional compilation  environment  exports  all  the
+ explicit 64-bit functions (xxx64()) and types in addition to
+ all the regular functions (xxx()) and types. Both xxx()  and
+ xxx64()  functions  are  available to the program source.  A
+ 32-bit application must use the xxx64() functions in  order
+ to  access  large  files.  See the lf64(5) manual page for a
+ complete listing of the 64-bit transitional interfaces.
+
+The transitional compilation environment is obtained with the
+following compiler and linker flags:
+
+ getconf LFS64_CFLAGS        -D_LARGEFILE64_SOURCE
+ getconf LFS64_LDFLAG        # nothing special needed
+ getconf LFS64_LIBS          # nothing special needed
+
+Second is the "large file compilation environment", described in
+lfcompile(5).  According to the man page,
+
+ Each interface named xxx() that needs to access 64-bit entities
+ to  access  large  files maps to a xxx64() call in the
+ resulting binary. All relevant data types are defined to  be
+ of correct size (for example, off_t has a typedef definition
+ for a 64-bit entity).
+
+ An application compiled in this environment is able  to  use
+ the  xxx()  source interfaces to access both large and small
+ files, rather than having to explicitly utilize the  transitional
+ xxx64()  interface  calls to access large files.
+
+Two exceptions are fseek() and ftell().  32-bit applications should
+use fseeko(3C) and ftello(3C).  These will get automatically mapped
+to fseeko64() and ftello64().
+
+The large file compilation environment is obtained with
+
+ getconf LFS_CFLAGS      -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64
+ getconf LFS_LDFLAGS     # nothing special needed
+ getconf LFS_LIBS        # nothing special needed
+
+By default, perl uses the large file compilation environment and
+relies on Solaris to do the underlying mapping of interfaces.
+
+=head3 Building an LP64 perl
+
+To compile a 64-bit application on an UltraSparc with a recent Sun Compiler,
+you need to use the flag "-xarch=v9".  getconf(1) will tell you this, e.g.
+
+ $ getconf -a | grep v9
+ XBS5_LP64_OFF64_CFLAGS:         -xarch=v9
+ XBS5_LP64_OFF64_LDFLAGS:        -xarch=v9
+ XBS5_LP64_OFF64_LINTFLAGS:      -xarch=v9
+ XBS5_LPBIG_OFFBIG_CFLAGS:       -xarch=v9
+ XBS5_LPBIG_OFFBIG_LDFLAGS:      -xarch=v9
+ XBS5_LPBIG_OFFBIG_LINTFLAGS:    -xarch=v9
+ _XBS5_LP64_OFF64_CFLAGS:        -xarch=v9
+ _XBS5_LP64_OFF64_LDFLAGS:       -xarch=v9
+ _XBS5_LP64_OFF64_LINTFLAGS:     -xarch=v9
+ _XBS5_LPBIG_OFFBIG_CFLAGS:      -xarch=v9
+ _XBS5_LPBIG_OFFBIG_LDFLAGS:     -xarch=v9
+ _XBS5_LPBIG_OFFBIG_LINTFLAGS:   -xarch=v9
+
+This flag is supported in Sun WorkShop Compilers 5.0 and onwards
+(now marketed under the name Forte) when used on Solaris 7 or later on
+UltraSparc systems.
+
+If you are using gcc, you would need to use -mcpu=v9 -m64 instead.  This
+option is not yet supported as of gcc 2.95.2; from install/SPECIFIC
+in that release:
+
+ GCC version 2.95 is not able to compile code correctly for sparc64
+ targets. Users of the Linux kernel, at least, can use the sparc32
+ program to start up a new shell invocation with an environment that
+ causes configure to recognize (via uname -a) the system as sparc-*-*
+ instead.
+
+All this should be handled automatically by the hints file, if
+requested.
+
+=head3 Long Doubles.
+
+As of 5.8.1, long doubles are working if you use the Sun compilers
+(needed for additional math routines not included in libm).
+
+=head2 Threads in perl on Solaris.
+
+It is possible to build a threaded version of perl on Solaris.  The entire
+perl thread implementation is still experimental, however, so beware.
+
+=head2 Malloc Issues with perl on Solaris.
+
+Starting from perl 5.7.1 perl uses the Solaris malloc, since the perl
+malloc breaks when dealing with more than 2GB of memory, and the Solaris
+malloc also seems to be faster.
+
+If you for some reason (such as binary backward compatibility) really
+need to use perl's malloc, you can rebuild perl from the sources
+and Configure the build with 
+
+ $ sh Configure -Dusemymalloc
+
+You should not use perl's malloc if you are building with gcc.  There
+are reports of core dumps, especially in the PDL module.  The problem
+appears to go away under -DDEBUGGING, so it has been difficult to
+track down.  Sun's compiler appears to be okay with or without perl's
+malloc. [XXX further investigation is needed here.]
+
+=head1 MAKE PROBLEMS.
+
+=over 4
+
+=item Dynamic Loading Problems With GNU as and GNU ld
+
+If you have problems with dynamic loading using gcc on SunOS or
+Solaris, and you are using GNU as and GNU ld, see the section
+L<"GNU as and GNU ld"> above.
+
+=item ld.so.1: ./perl: fatal: relocation error:
+
+If you get this message on SunOS or Solaris, and you're using gcc,
+it's probably the GNU as or GNU ld problem in the previous item
+L<"GNU as and GNU ld">.
+
+=item dlopen: stub interception failed
+
+The primary cause of the 'dlopen: stub interception failed' message is
+that the LD_LIBRARY_PATH environment variable includes a directory
+which is a symlink to /usr/lib (such as /lib).  See
+L<"LD_LIBRARY_PATH"> above.
+
+=item #error "No DATAMODEL_NATIVE specified"
+
+This is a common error when trying to build perl on Solaris 2.6 with a
+gcc installation from Solaris 2.5 or 2.5.1.  The Solaris header files
+changed, so you need to update your gcc installation.  You can either
+rerun the fixincludes script from gcc or take the opportunity to
+update your gcc installation.
+
+=item sh: ar: not found
+
+This is a message from your shell telling you that the command 'ar'
+was not found.  You need to check your PATH environment variable to
+make sure that it includes the directory with the 'ar' command.  This
+is a common problem on Solaris, where 'ar' is in the /usr/ccs/bin/
+directory.
+
+=back
+
+=head1 MAKE TEST
+
+=head2 op/stat.t test 4 in Solaris
+
+F<op/stat.t> test 4 may fail if you are on a tmpfs of some sort.
+Building in /tmp sometimes shows this behavior.  The
+test suite detects if you are building in /tmp, but it may not be able
+to catch all tmpfs situations.
+
+=head2 nss_delete core dump from op/pwent or op/grent
+
+See L<perlhpux/"nss_delete core dump from op/pwent or op/grent">.
+
+=head1 CROSS-COMPILATION
+
+Nothing too unusual here.  You can easily do this if you have a 
+cross-compiler available;  A usual Configure invocation when targetting a
+Solaris x86 looks something like this:
+
+    sh ./Configure -des -Dusecrosscompile \
+        -Dcc=i386-pc-solaris2.11-gcc      \
+        -Dsysroot=$SYSROOT                \
+        -Alddlflags=" -Wl,-z,notext"      \
+        -Dtargethost=... # The usual cross-compilation options
+
+The lddlflags addition is the only abnormal bit.
+
+=head1 PREBUILT BINARIES OF PERL FOR SOLARIS.
+
+You can pick up prebuilt binaries for Solaris from
+L<http://www.sunfreeware.com/>, L<http://www.blastwave.org>,
+ActiveState L<http://www.activestate.com/>, and
+L<http://www.perl.com/> under the Binaries list at the top of the
+page.  There are probably other sources as well.  Please note that
+these sites are under the control of their respective owners, not the
+perl developers.
+
+=head1 RUNTIME ISSUES FOR PERL ON SOLARIS.
+
+=head2 Limits on Numbers of Open Files on Solaris.
+
+The stdio(3C) manpage notes that for LP32 applications, only 255
+files may be opened using fopen(), and only file descriptors 0
+through 255 can be used in a stream.  Since perl calls open() and
+then fdopen(3C) with the resulting file descriptor, perl is limited
+to 255 simultaneous open files, even if sysopen() is used.  If this
+proves to be an insurmountable problem, you can compile perl as a
+LP64 application, see L<Building an LP64 perl> for details.  Note
+also that the default resource limit for open file descriptors on
+Solaris is 255, so you will have to modify your ulimit or rctl
+(Solaris 9 onwards) appropriately.
+
+=head1 SOLARIS-SPECIFIC MODULES.
+
+See the modules under the Solaris:: and Sun::Solaris namespaces on CPAN,
+see L<http://www.cpan.org/modules/by-module/Solaris/> and
+L<http://www.cpan.org/modules/by-module/Sun/>.
+
+=head1 SOLARIS-SPECIFIC PROBLEMS WITH MODULES.
+
+=head2 Proc::ProcessTable on Solaris
+
+Proc::ProcessTable does not compile on Solaris with perl5.6.0 and higher
+if you have LARGEFILES defined.  Since largefile support is the
+default in 5.6.0 and later, you have to take special steps to use this
+module.
+
+The problem is that various structures visible via procfs use off_t,
+and if you compile with largefile support these change from 32 bits to
+64 bits.  Thus what you get back from procfs doesn't match up with
+the structures in perl, resulting in garbage.  See proc(4) for further
+discussion.
+
+A fix for Proc::ProcessTable is to edit Makefile to
+explicitly remove the largefile flags from the ones MakeMaker picks up
+from Config.pm.  This will result in Proc::ProcessTable being built
+under the correct environment.  Everything should then be OK as long as
+Proc::ProcessTable doesn't try to share off_t's with the rest of perl,
+or if it does they should be explicitly specified as off64_t.
+
+=head2 BSD::Resource on Solaris
+
+BSD::Resource versions earlier than 1.09 do not compile on Solaris
+with perl 5.6.0 and higher, for the same reasons as Proc::ProcessTable.
+BSD::Resource versions starting from 1.09 have a workaround for the problem.
+
+=head2 Net::SSLeay on Solaris
+
+Net::SSLeay requires a /dev/urandom to be present. This device is
+available from Solaris 9 onwards.  For earlier Solaris versions you
+can either get the package SUNWski (packaged with several Sun
+software products, for example the Sun WebServer, which is part of
+the Solaris Server Intranet Extension, or the Sun Directory Services,
+part of Solaris for ISPs) or download the ANDIrand package from
+L<http://www.cosy.sbg.ac.at/~andi/>. If you use SUNWski, make a
+symbolic link /dev/urandom pointing to /dev/random.  For more details,
+see Document ID27606 entitled "Differing /dev/random support requirements
+within Solaris[TM] Operating Environments", available at
+L<http://sunsolve.sun.com> .
+
+It may be possible to use the Entropy Gathering Daemon (written in
+Perl!), available from L<http://www.lothar.com/tech/crypto/>.
+
+=head1 SunOS 4.x
+
+In SunOS 4.x you most probably want to use the SunOS ld, /usr/bin/ld,
+since the more recent versions of GNU ld (like 2.13) do not seem to
+work for building Perl anymore.  When linking the extensions, the
+GNU ld gets very unhappy and spews a lot of errors like this
+
+  ... relocation truncated to fit: BASE13 ...
+
+and dies.  Therefore the SunOS 4.1 hints file explicitly sets the
+ld to be F</usr/bin/ld>.
+
+As of Perl 5.8.1 the dynamic loading of libraries (DynaLoader, XSLoader)
+also seems to have become broken in in SunOS 4.x.  Therefore the default
+is to build Perl statically.
+
+Running the test suite in SunOS 4.1 is a bit tricky since the
+F<dist/Tie-File/t/09_gen_rs.t> test hangs (subtest #51, FWIW) for some
+unknown reason.  Just stop the test and kill that particular Perl
+process.
+
+There are various other failures, that as of SunOS 4.1.4 and gcc 3.2.2
+look a lot like gcc bugs.  Many of the failures happen in the Encode
+tests, where for example when the test expects "0" you get "&#48;"
+which should after a little squinting look very odd indeed.
+Another example is earlier in F<t/run/fresh_perl> where chr(0xff) is
+expected but the test fails because the result is chr(0xff).  Exactly.
+
+This is the "make test" result from the said combination:
+
+  Failed 27 test scripts out of 745, 96.38% okay.
+
+Running the C<harness> is painful because of the many failing
+Unicode-related tests will output megabytes of failure messages,
+but if one patiently waits, one gets these results:
+
+ Failed Test                     Stat Wstat Total Fail  Failed  List of Failed
+ -----------------------------------------------------------------------------
+ ...
+ ../ext/Encode/t/at-cn.t            4  1024    29    4  13.79%  14-17
+ ../ext/Encode/t/at-tw.t           10  2560    17   10  58.82%  2 4 6 8 10 12
+                                                                14-17
+ ../ext/Encode/t/enc_data.t        29  7424    ??   ??       %  ??
+ ../ext/Encode/t/enc_eucjp.t       29  7424    ??   ??       %  ??
+ ../ext/Encode/t/enc_module.t      29  7424    ??   ??       %  ??
+ ../ext/Encode/t/encoding.t        29  7424    ??   ??       %  ??
+ ../ext/Encode/t/grow.t            12  3072    24   12  50.00%  2 4 6 8 10 12 14
+                                                                16 18 20 22 24
+  Failed Test                     Stat Wstat Total Fail  Failed  List of Failed
+ ------------------------------------------------------------------------------
+ ../ext/Encode/t/guess.t          255 65280    29   40 137.93%  10-29
+ ../ext/Encode/t/jperl.t           29  7424    15   30 200.00%  1-15
+ ../ext/Encode/t/mime-header.t      2   512    10    2  20.00%  2-3
+ ../ext/Encode/t/perlio.t          22  5632    38   22  57.89%  1-4 9-16 19-20
+                                                                23-24 27-32
+ ../ext/List/Util/t/shuffle.t       0   139    ??   ??       %  ??
+ ../ext/PerlIO/t/encoding.t                    14    1   7.14%  11
+ ../ext/PerlIO/t/fallback.t                     9    2  22.22%  3 5
+ ../ext/Socket/t/socketpair.t       0     2    45   70 155.56%  11-45
+ ../lib/CPAN/t/vcmp.t                          30    1   3.33%  25
+ ../lib/Tie/File/t/09_gen_rs.t      0    15    ??   ??       %  ??
+ ../lib/Unicode/Collate/t/test.t              199   30  15.08%  7 26-27 71-75
+                                                                81-88 95 101
+                                                                103-104 106 108-
+                                                                109 122 124 161
+                                                                169-172
+ ../lib/sort.t                      0   139   119   26  21.85%  107-119
+ op/alarm.t                                     4    1  25.00%  4
+ op/utfhash.t                                  97    1   1.03%  31
+ run/fresh_perl.t                              91    1   1.10%  32
+ uni/tr_7jis.t                                 ??   ??       %  ??
+ uni/tr_eucjp.t                    29  7424     6   12 200.00%  1-6
+ uni/tr_sjis.t                     29  7424     6   12 200.00%  1-6
+ 56 tests and 467 subtests skipped.
+ Failed 27/811 test scripts, 96.67% okay. 1383/75399 subtests failed,
+   98.17% okay.
+
+The alarm() test failure is caused by system() apparently blocking
+alarm().  That is probably a libc bug, and given that SunOS 4.x
+has been end-of-lifed years ago, don't hold your breath for a fix.
+In addition to that, don't try anything too Unicode-y, especially
+with Encode, and you should be fine in SunOS 4.x.
+
+=head1 AUTHOR
+
+The original was written by Andy Dougherty F<doughera@lafayette.edu>
+drawing heavily on advice from Alan Burlison, Nick Ing-Simmons, Tim Bunce,
+and many other Solaris users over the years.
+
+Please report any errors, updates, or suggestions to F<perlbug@perl.org>.
diff --git a/lib/5.24.1/pod/perlsource.pod b/lib/5.24.1/pod/perlsource.pod
new file mode 100644
index 00000000..502ba42d
--- /dev/null
+++ b/lib/5.24.1/pod/perlsource.pod
@@ -0,0 +1,231 @@
+=encoding utf8
+
+=for comment
+Consistent formatting of this file is achieved with:
+  perl ./Porting/podtidy pod/perlsource.pod
+
+=head1 NAME
+
+perlsource - A guide to the Perl source tree
+
+=head1 DESCRIPTION
+
+This document describes the layout of the Perl source tree. If you're
+hacking on the Perl core, this will help you find what you're looking
+for.
+
+=head1 FINDING YOUR WAY AROUND
+
+The Perl source tree is big. Here's some of the thing you'll find in
+it:
+
+=head2 C code
+
+The C source code and header files mostly live in the root of the
+source tree. There are a few platform-specific directories which
+contain C code. In addition, some of the modules shipped with Perl
+include C or XS code.
+
+See L<perlinterp> for more details on the files that make up the Perl
+interpreter, as well as details on how it works.
+
+=head2 Core modules
+
+Modules shipped as part of the Perl core live in four subdirectories.
+Two of these directories contain modules that live in the core, and two
+contain modules that can also be released separately on CPAN. Modules
+which can be released on cpan are known as "dual-life" modules.
+
+=over 4
+
+=item * F<lib/>
+
+This directory contains pure-Perl modules which are only released as
+part of the core. This directory contains I<all> of the modules and
+their tests, unlike other core modules.
+
+=item * F<ext/>
+
+Like F<lib/>, this directory contains modules which are only released
+as part of the core.  Unlike F<lib/>, however, a module under F<ext/>
+generally has a CPAN-style directory- and file-layout and its own
+F<Makefile.PL>.  There is no expectation that a module under F<ext/>
+will work with earlier versions of Perl 5.  Hence, such a module may
+take full advantage of syntactical and other improvements in Perl 5
+blead.
+
+=item * F<dist/>
+
+This directory is for dual-life modules where the blead source is
+canonical. Note that some modules in this directory may not yet have
+been released separately on CPAN.  Modules under F<dist/> should make
+an effort to work with earlier versions of Perl 5.
+
+=item * F<cpan/>
+
+This directory contains dual-life modules where the CPAN module is
+canonical. Do not patch these modules directly! Changes to these
+modules should be submitted to the maintainer of the CPAN module. Once
+those changes are applied and released, the new version of the module
+will be incorporated into the core.
+
+=back
+
+For some dual-life modules, it has not yet been determined if the CPAN
+version or the blead source is canonical. Until that is done, those
+modules should be in F<cpan/>.
+
+=head2 Tests
+
+The Perl core has an extensive test suite. If you add new tests (or new
+modules with tests), you may need to update the F<t/TEST> file so that
+the tests are run.
+
+=over 4
+
+=item * Module tests
+
+Tests for core modules in the F<lib/> directory are right next to the
+module itself. For example, we have F<lib/strict.pm> and
+F<lib/strict.t>.
+
+Tests for modules in F<ext/> and the dual-life modules are in F<t/>
+subdirectories for each module, like a standard CPAN distribution.
+
+=item * F<t/base/>
+
+Tests for the absolute basic functionality of Perl. This includes
+C<if>, basic file reads and writes, simple regexes, etc. These are run
+first in the test suite and if any of them fail, something is I<really>
+broken.
+
+=item * F<t/cmd/>
+
+Tests for basic control structures, C<if>/C<else>, C<while>, subroutines,
+etc.
+
+=item * F<t/comp/>
+
+Tests for basic issues of how Perl parses and compiles itself.
+
+=item * F<t/io/>
+
+Tests for built-in IO functions, including command line arguments.
+
+=item * F<t/mro/>
+
+Tests for perl's method resolution order implementations (see L<mro>).
+
+=item * F<t/op/>
+
+Tests for perl's built in functions that don't fit into any of the
+other directories.
+
+=item * F<t/opbasic/>
+
+Tests for perl's built in functions which, like those in F<t/op/>, do
+not fit into any of the other directories, but which, in addition,
+cannot use F<t/test.pl>,as that program depends on functionality which
+the test file itself is testing.
+
+=item * F<t/re/>
+
+Tests for regex related functions or behaviour. (These used to live in
+t/op).
+
+=item * F<t/run/>
+
+Tests for features of how perl actually runs, including exit codes and
+handling of PERL* environment variables.
+
+=item * F<t/uni/>
+
+Tests for the core support of Unicode.
+
+=item * F<t/win32/>
+
+Windows-specific tests.
+
+=item * F<t/porting/>
+
+Tests the state of the source tree for various common errors. For
+example, it tests that everyone who is listed in the git log has a
+corresponding entry in the F<AUTHORS> file.
+
+=item * F<t/lib/>
+
+The old home for the module tests, you shouldn't put anything new in
+here. There are still some bits and pieces hanging around in here that
+need to be moved. Perhaps you could move them?  Thanks!
+
+=back
+
+=head2 Documentation
+
+All of the core documentation intended for end users lives in F<pod/>.
+Individual modules in F<lib/>, F<ext/>, F<dist/>, and F<cpan/> usually
+have their own documentation, either in the F<Module.pm> file or an
+accompanying F<Module.pod> file.
+
+Finally, documentation intended for core Perl developers lives in the
+F<Porting/> directory.
+
+=head2 Hacking tools and documentation
+
+The F<Porting> directory contains a grab bag of code and documentation
+intended to help porters work on Perl. Some of the highlights include:
+
+=over 4
+
+=item * F<check*>
+
+These are scripts which will check the source things like ANSI C
+violations, POD encoding issues, etc.
+
+=item * F<Maintainers>, F<Maintainers.pl>, and F<Maintainers.pm>
+
+These files contain information on who maintains which modules. Run
+C<perl Porting/Maintainers -M Module::Name> to find out more
+information about a dual-life module.
+
+=item * F<podtidy>
+
+Tidies a pod file. It's a good idea to run this on a pod file you've
+patched.
+
+=back
+
+=head2 Build system
+
+The Perl build system starts with the F<Configure> script in the root
+directory.
+
+Platform-specific pieces of the build system also live in
+platform-specific directories like F<win32/>, F<vms/>, etc.
+
+The F<Configure> script is ultimately responsible for generating a
+F<Makefile>.
+
+The build system that Perl uses is called metaconfig. This system is
+maintained separately from the Perl core.
+
+The metaconfig system has its own git repository. Please see its README
+file in L<http://perl5.git.perl.org/metaconfig.git/> for more details.
+
+The F<Cross> directory contains various files related to
+cross-compiling Perl. See F<Cross/README> for more details.
+
+=head2 F<AUTHORS>
+
+This file lists everyone who's contributed to Perl. If you submit a
+patch, you should add your name to this file as part of the patch.
+
+=head2 F<MANIFEST>
+
+The F<MANIFEST> file in the root of the source tree contains a list of
+every file in the Perl core, as well as a brief description of each
+file.
+
+You can get an overview of all the files with this command:
+
+  % perl -lne 'print if /^[^\/]+\.[ch]\s+/' MANIFEST
diff --git a/lib/5.24.1/pod/perlstyle.pod b/lib/5.24.1/pod/perlstyle.pod
new file mode 100644
index 00000000..37dfaaf1
--- /dev/null
+++ b/lib/5.24.1/pod/perlstyle.pod
@@ -0,0 +1,303 @@
+=head1 NAME
+
+perlstyle - Perl style guide
+
+=head1 DESCRIPTION
+
+Each programmer will, of course, have his or her own preferences in
+regards to formatting, but there are some general guidelines that will
+make your programs easier to read, understand, and maintain.
+
+The most important thing is to run your programs under the B<-w>
+flag at all times.  You may turn it off explicitly for particular
+portions of code via the C<no warnings> pragma or the C<$^W> variable
+if you must.  You should also always run under C<use strict> or know the
+reason why not.  The C<use sigtrap> and even C<use diagnostics> pragmas
+may also prove useful.
+
+Regarding aesthetics of code lay out, about the only thing Larry
+cares strongly about is that the closing curly bracket of
+a multi-line BLOCK should line up with the keyword that started the construct.
+Beyond that, he has other preferences that aren't so strong:
+
+=over 4
+
+=item *
+
+4-column indent.
+
+=item *
+
+Opening curly on same line as keyword, if possible, otherwise line up.
+
+=item *
+
+Space before the opening curly of a multi-line BLOCK.
+
+=item *
+
+One-line BLOCK may be put on one line, including curlies.
+
+=item *
+
+No space before the semicolon.
+
+=item *
+
+Semicolon omitted in "short" one-line BLOCK.
+
+=item *
+
+Space around most operators.
+
+=item *
+
+Space around a "complex" subscript (inside brackets).
+
+=item *
+
+Blank lines between chunks that do different things.
+
+=item *
+
+Uncuddled elses.
+
+=item *
+
+No space between function name and its opening parenthesis.
+
+=item *
+
+Space after each comma.
+
+=item *
+
+Long lines broken after an operator (except C<and> and C<or>).
+
+=item *
+
+Space after last parenthesis matching on current line.
+
+=item *
+
+Line up corresponding items vertically.
+
+=item *
+
+Omit redundant punctuation as long as clarity doesn't suffer.
+
+=back
+
+Larry has his reasons for each of these things, but he doesn't claim that
+everyone else's mind works the same as his does.
+
+Here are some other more substantive style issues to think about:
+
+=over 4
+
+=item *
+
+Just because you I<CAN> do something a particular way doesn't mean that
+you I<SHOULD> do it that way.  Perl is designed to give you several
+ways to do anything, so consider picking the most readable one.  For
+instance
+
+    open(FOO,$foo) || die "Can't open $foo: $!";
+
+is better than
+
+    die "Can't open $foo: $!" unless open(FOO,$foo);
+
+because the second way hides the main point of the statement in a
+modifier.  On the other hand
+
+    print "Starting analysis\n" if $verbose;
+
+is better than
+
+    $verbose && print "Starting analysis\n";
+
+because the main point isn't whether the user typed B<-v> or not.
+
+Similarly, just because an operator lets you assume default arguments
+doesn't mean that you have to make use of the defaults.  The defaults
+are there for lazy systems programmers writing one-shot programs.  If
+you want your program to be readable, consider supplying the argument.
+
+Along the same lines, just because you I<CAN> omit parentheses in many
+places doesn't mean that you ought to:
+
+    return print reverse sort num values %array;
+    return print(reverse(sort num (values(%array))));
+
+When in doubt, parenthesize.  At the very least it will let some poor
+schmuck bounce on the % key in B<vi>.
+
+Even if you aren't in doubt, consider the mental welfare of the person
+who has to maintain the code after you, and who will probably put
+parentheses in the wrong place.
+
+=item *
+
+Don't go through silly contortions to exit a loop at the top or the
+bottom, when Perl provides the C<last> operator so you can exit in
+the middle.  Just "outdent" it a little to make it more visible:
+
+    LINE:
+	for (;;) {
+	    statements;
+	  last LINE if $foo;
+	    next LINE if /^#/;
+	    statements;
+	}
+
+=item *
+
+Don't be afraid to use loop labels--they're there to enhance
+readability as well as to allow multilevel loop breaks.  See the
+previous example.
+
+=item *
+
+Avoid using C<grep()> (or C<map()>) or `backticks` in a void context, that is,
+when you just throw away their return values.  Those functions all
+have return values, so use them.  Otherwise use a C<foreach()> loop or
+the C<system()> function instead.
+
+=item *
+
+For portability, when using features that may not be implemented on
+every machine, test the construct in an eval to see if it fails.  If
+you know what version or patchlevel a particular feature was
+implemented, you can test C<$]> (C<$PERL_VERSION> in C<English>) to see if it
+will be there.  The C<Config> module will also let you interrogate values
+determined by the B<Configure> program when Perl was installed.
+
+=item *
+
+Choose mnemonic identifiers.  If you can't remember what mnemonic means,
+you've got a problem.
+
+=item *
+
+While short identifiers like C<$gotit> are probably ok, use underscores to
+separate words in longer identifiers.  It is generally easier to read
+C<$var_names_like_this> than C<$VarNamesLikeThis>, especially for
+non-native speakers of English. It's also a simple rule that works
+consistently with C<VAR_NAMES_LIKE_THIS>.
+
+Package names are sometimes an exception to this rule.  Perl informally
+reserves lowercase module names for "pragma" modules like C<integer> and
+C<strict>.  Other modules should begin with a capital letter and use mixed
+case, but probably without underscores due to limitations in primitive
+file systems' representations of module names as files that must fit into a
+few sparse bytes.
+
+=item *
+
+You may find it helpful to use letter case to indicate the scope
+or nature of a variable. For example:
+
+    $ALL_CAPS_HERE   constants only (beware clashes with perl vars!)
+    $Some_Caps_Here  package-wide global/static
+    $no_caps_here    function scope my() or local() variables
+
+Function and method names seem to work best as all lowercase.
+E.g., C<$obj-E<gt>as_string()>.
+
+You can use a leading underscore to indicate that a variable or
+function should not be used outside the package that defined it.
+
+=item *
+
+If you have a really hairy regular expression, use the C</x> modifier and
+put in some whitespace to make it look a little less like line noise.
+Don't use slash as a delimiter when your regexp has slashes or backslashes.
+
+=item *
+
+Use the new C<and> and C<or> operators to avoid having to parenthesize
+list operators so much, and to reduce the incidence of punctuation
+operators like C<&&> and C<||>.  Call your subroutines as if they were
+functions or list operators to avoid excessive ampersands and parentheses.
+
+=item *
+
+Use here documents instead of repeated C<print()> statements.
+
+=item *
+
+Line up corresponding things vertically, especially if it'd be too long
+to fit on one line anyway.
+
+    $IDX = $ST_MTIME;
+    $IDX = $ST_ATIME 	   if $opt_u;
+    $IDX = $ST_CTIME 	   if $opt_c;
+    $IDX = $ST_SIZE  	   if $opt_s;
+
+    mkdir $tmpdir, 0700	or die "can't mkdir $tmpdir: $!";
+    chdir($tmpdir)      or die "can't chdir $tmpdir: $!";
+    mkdir 'tmp',   0777	or die "can't mkdir $tmpdir/tmp: $!";
+
+=item *
+
+Always check the return codes of system calls.  Good error messages should
+go to C<STDERR>, include which program caused the problem, what the failed
+system call and arguments were, and (VERY IMPORTANT) should contain the
+standard system error message for what went wrong.  Here's a simple but
+sufficient example:
+
+    opendir(D, $dir)	 or die "can't opendir $dir: $!";
+
+=item *
+
+Line up your transliterations when it makes sense:
+
+    tr [abc]
+       [xyz];
+
+=item *
+
+Think about reusability.  Why waste brainpower on a one-shot when you
+might want to do something like it again?  Consider generalizing your
+code.  Consider writing a module or object class.  Consider making your
+code run cleanly with C<use strict> and C<use warnings> (or B<-w>) in
+effect.  Consider giving away your code.  Consider changing your whole
+world view.  Consider... oh, never mind.
+
+=item *
+
+Try to document your code and use Pod formatting in a consistent way. Here
+are commonly expected conventions:
+
+=over 4
+
+=item *
+
+use C<CE<lt>E<gt>> for function, variable and module names (and more
+generally anything that can be considered part of code, like filehandles
+or specific values). Note that function names are considered more readable
+with parentheses after their name, that is C<function()>.
+
+=item *
+
+use C<BE<lt>E<gt>> for commands names like B<cat> or B<grep>.
+
+=item *
+
+use C<FE<lt>E<gt>> or C<CE<lt>E<gt>> for file names. C<FE<lt>E<gt>> should
+be the only Pod code for file names, but as most Pod formatters render it
+as italic, Unix and Windows paths with their slashes and backslashes may
+be less readable, and better rendered with C<CE<lt>E<gt>>.
+
+=back
+
+=item *
+
+Be consistent.
+
+=item *
+
+Be nice.
+
+=back
diff --git a/lib/5.24.1/pod/perlsub.pod b/lib/5.24.1/pod/perlsub.pod
new file mode 100644
index 00000000..78de2847
--- /dev/null
+++ b/lib/5.24.1/pod/perlsub.pod
@@ -0,0 +1,1999 @@
+=head1 NAME
+X<subroutine> X<function>
+
+perlsub - Perl subroutines
+
+=head1 SYNOPSIS
+
+To declare subroutines:
+X<subroutine, declaration> X<sub>
+
+    sub NAME;			  # A "forward" declaration.
+    sub NAME(PROTO);		  #  ditto, but with prototypes
+    sub NAME : ATTRS;		  #  with attributes
+    sub NAME(PROTO) : ATTRS;	  #  with attributes and prototypes
+
+    sub NAME BLOCK		  # A declaration and a definition.
+    sub NAME(PROTO) BLOCK	  #  ditto, but with prototypes
+    sub NAME(SIG) BLOCK           #  with a signature instead
+    sub NAME : ATTRS BLOCK	  #  with attributes
+    sub NAME(PROTO) : ATTRS BLOCK #  with prototypes and attributes
+    sub NAME(SIG) : ATTRS BLOCK   #  with a signature and attributes
+
+To define an anonymous subroutine at runtime:
+X<subroutine, anonymous>
+
+    $subref = sub BLOCK;		 # no proto
+    $subref = sub (PROTO) BLOCK;	 # with proto
+    $subref = sub (SIG) BLOCK;           # with signature
+    $subref = sub : ATTRS BLOCK;	 # with attributes
+    $subref = sub (PROTO) : ATTRS BLOCK; # with proto and attributes
+    $subref = sub (SIG) : ATTRS BLOCK;   # with signature and attributes
+
+To import subroutines:
+X<import>
+
+    use MODULE qw(NAME1 NAME2 NAME3);
+
+To call subroutines:
+X<subroutine, call> X<call>
+
+    NAME(LIST);	   # & is optional with parentheses.
+    NAME LIST;	   # Parentheses optional if predeclared/imported.
+    &NAME(LIST);   # Circumvent prototypes.
+    &NAME;	   # Makes current @_ visible to called subroutine.
+
+=head1 DESCRIPTION
+
+Like many languages, Perl provides for user-defined subroutines.
+These may be located anywhere in the main program, loaded in from
+other files via the C<do>, C<require>, or C<use> keywords, or
+generated on the fly using C<eval> or anonymous subroutines.
+You can even call a function indirectly using a variable containing
+its name or a CODE reference.
+
+The Perl model for function call and return values is simple: all
+functions are passed as parameters one single flat list of scalars, and
+all functions likewise return to their caller one single flat list of
+scalars.  Any arrays or hashes in these call and return lists will
+collapse, losing their identities--but you may always use
+pass-by-reference instead to avoid this.  Both call and return lists may
+contain as many or as few scalar elements as you'd like.  (Often a
+function without an explicit return statement is called a subroutine, but
+there's really no difference from Perl's perspective.)
+X<subroutine, parameter> X<parameter>
+
+Any arguments passed in show up in the array C<@_>.
+(They may also show up in lexical variables introduced by a signature;
+see L</Signatures> below.)  Therefore, if
+you called a function with two arguments, those would be stored in
+C<$_[0]> and C<$_[1]>.  The array C<@_> is a local array, but its
+elements are aliases for the actual scalar parameters.  In particular,
+if an element C<$_[0]> is updated, the corresponding argument is
+updated (or an error occurs if it is not updatable).  If an argument
+is an array or hash element which did not exist when the function
+was called, that element is created only when (and if) it is modified
+or a reference to it is taken.  (Some earlier versions of Perl
+created the element whether or not the element was assigned to.)
+Assigning to the whole array C<@_> removes that aliasing, and does
+not update any arguments.
+X<subroutine, argument> X<argument> X<@_>
+
+A C<return> statement may be used to exit a subroutine, optionally
+specifying the returned value, which will be evaluated in the
+appropriate context (list, scalar, or void) depending on the context of
+the subroutine call.  If you specify no return value, the subroutine
+returns an empty list in list context, the undefined value in scalar
+context, or nothing in void context.  If you return one or more
+aggregates (arrays and hashes), these will be flattened together into
+one large indistinguishable list.
+
+If no C<return> is found and if the last statement is an expression, its
+value is returned.  If the last statement is a loop control structure
+like a C<foreach> or a C<while>, the returned value is unspecified.  The
+empty sub returns the empty list.
+X<subroutine, return value> X<return value> X<return>
+
+Aside from an experimental facility (see L</Signatures> below),
+Perl does not have named formal parameters.  In practice all you
+do is assign to a C<my()> list of these.  Variables that aren't
+declared to be private are global variables.  For gory details
+on creating private variables, see L<"Private Variables via my()">
+and L<"Temporary Values via local()">.  To create protected
+environments for a set of functions in a separate package (and
+probably a separate file), see L<perlmod/"Packages">.
+X<formal parameter> X<parameter, formal>
+
+Example:
+
+    sub max {
+	my $max = shift(@_);
+	foreach $foo (@_) {
+	    $max = $foo if $max < $foo;
+	}
+	return $max;
+    }
+    $bestday = max($mon,$tue,$wed,$thu,$fri);
+
+Example:
+
+    # get a line, combining continuation lines
+    #  that start with whitespace
+
+    sub get_line {
+	$thisline = $lookahead;  # global variables!
+	LINE: while (defined($lookahead = <STDIN>)) {
+	    if ($lookahead =~ /^[ \t]/) {
+		$thisline .= $lookahead;
+	    }
+	    else {
+		last LINE;
+	    }
+	}
+	return $thisline;
+    }
+
+    $lookahead = <STDIN>;	# get first line
+    while (defined($line = get_line())) {
+	...
+    }
+
+Assigning to a list of private variables to name your arguments:
+
+    sub maybeset {
+	my($key, $value) = @_;
+	$Foo{$key} = $value unless $Foo{$key};
+    }
+
+Because the assignment copies the values, this also has the effect
+of turning call-by-reference into call-by-value.  Otherwise a
+function is free to do in-place modifications of C<@_> and change
+its caller's values.
+X<call-by-reference> X<call-by-value>
+
+    upcase_in($v1, $v2);  # this changes $v1 and $v2
+    sub upcase_in {
+	for (@_) { tr/a-z/A-Z/ }
+    }
+
+You aren't allowed to modify constants in this way, of course.  If an
+argument were actually literal and you tried to change it, you'd take a
+(presumably fatal) exception.   For example, this won't work:
+X<call-by-reference> X<call-by-value>
+
+    upcase_in("frederick");
+
+It would be much safer if the C<upcase_in()> function
+were written to return a copy of its parameters instead
+of changing them in place:
+
+    ($v3, $v4) = upcase($v1, $v2);  # this doesn't change $v1 and $v2
+    sub upcase {
+	return unless defined wantarray;  # void context, do nothing
+	my @parms = @_;
+	for (@parms) { tr/a-z/A-Z/ }
+  	return wantarray ? @parms : $parms[0];
+    }
+
+Notice how this (unprototyped) function doesn't care whether it was
+passed real scalars or arrays.  Perl sees all arguments as one big,
+long, flat parameter list in C<@_>.  This is one area where
+Perl's simple argument-passing style shines.  The C<upcase()>
+function would work perfectly well without changing the C<upcase()>
+definition even if we fed it things like this:
+
+    @newlist   = upcase(@list1, @list2);
+    @newlist   = upcase( split /:/, $var );
+
+Do not, however, be tempted to do this:
+
+    (@a, @b)   = upcase(@list1, @list2);
+
+Like the flattened incoming parameter list, the return list is also
+flattened on return.  So all you have managed to do here is stored
+everything in C<@a> and made C<@b> empty.  See 
+L<Pass by Reference> for alternatives.
+
+A subroutine may be called using an explicit C<&> prefix.  The
+C<&> is optional in modern Perl, as are parentheses if the
+subroutine has been predeclared.  The C<&> is I<not> optional
+when just naming the subroutine, such as when it's used as
+an argument to defined() or undef().  Nor is it optional when you
+want to do an indirect subroutine call with a subroutine name or
+reference using the C<&$subref()> or C<&{$subref}()> constructs,
+although the C<< $subref->() >> notation solves that problem.
+See L<perlref> for more about all that.
+X<&>
+
+Subroutines may be called recursively.  If a subroutine is called
+using the C<&> form, the argument list is optional, and if omitted,
+no C<@_> array is set up for the subroutine: the C<@_> array at the
+time of the call is visible to subroutine instead.  This is an
+efficiency mechanism that new users may wish to avoid.
+X<recursion>
+
+    &foo(1,2,3);	# pass three arguments
+    foo(1,2,3);		# the same
+
+    foo();		# pass a null list
+    &foo();		# the same
+
+    &foo;		# foo() get current args, like foo(@_) !!
+    foo;		# like foo() IFF sub foo predeclared, else "foo"
+
+Not only does the C<&> form make the argument list optional, it also
+disables any prototype checking on arguments you do provide.  This
+is partly for historical reasons, and partly for having a convenient way
+to cheat if you know what you're doing.  See L</Prototypes> below.
+X<&>
+
+Since Perl 5.16.0, the C<__SUB__> token is available under C<use feature
+'current_sub'> and C<use 5.16.0>.  It will evaluate to a reference to the
+currently-running sub, which allows for recursive calls without knowing
+your subroutine's name.
+
+    use 5.16.0;
+    my $factorial = sub {
+      my ($x) = @_;
+      return 1 if $x == 1;
+      return($x * __SUB__->( $x - 1 ) );
+    };
+
+The behavior of C<__SUB__> within a regex code block (such as C</(?{...})/>)
+is subject to change.
+
+Subroutines whose names are in all upper case are reserved to the Perl
+core, as are modules whose names are in all lower case.  A subroutine in
+all capitals is a loosely-held convention meaning it will be called
+indirectly by the run-time system itself, usually due to a triggered event.
+Subroutines whose name start with a left parenthesis are also reserved the 
+same way.  The following is a list of some subroutines that currently do 
+special, pre-defined things.
+
+=over
+
+=item documented later in this document
+
+C<AUTOLOAD>
+
+=item documented in L<perlmod>
+
+C<CLONE>, C<CLONE_SKIP>
+
+=item documented in L<perlobj>
+
+C<DESTROY>, C<DOES>
+
+=item documented in L<perltie>
+
+C<BINMODE>, C<CLEAR>, C<CLOSE>, C<DELETE>, C<DESTROY>, C<EOF>, C<EXISTS>, 
+C<EXTEND>, C<FETCH>, C<FETCHSIZE>, C<FILENO>, C<FIRSTKEY>, C<GETC>, 
+C<NEXTKEY>, C<OPEN>, C<POP>, C<PRINT>, C<PRINTF>, C<PUSH>, C<READ>, 
+C<READLINE>, C<SCALAR>, C<SEEK>, C<SHIFT>, C<SPLICE>, C<STORE>, 
+C<STORESIZE>, C<TELL>, C<TIEARRAY>, C<TIEHANDLE>, C<TIEHASH>, 
+C<TIESCALAR>, C<UNSHIFT>, C<UNTIE>, C<WRITE>
+
+=item documented in L<PerlIO::via>
+
+C<BINMODE>, C<CLEARERR>, C<CLOSE>, C<EOF>, C<ERROR>, C<FDOPEN>, C<FILENO>, 
+C<FILL>, C<FLUSH>, C<OPEN>, C<POPPED>, C<PUSHED>, C<READ>, C<SEEK>, 
+C<SETLINEBUF>, C<SYSOPEN>, C<TELL>, C<UNREAD>, C<UTF8>, C<WRITE>
+
+=item documented in L<perlfunc>
+
+L<< C<import> | perlfunc/use >>, L<< C<unimport> | perlfunc/use >>,
+L<< C<INC> | perlfunc/require >>
+
+=item documented in L<UNIVERSAL>
+
+C<VERSION>
+
+=item documented in L<perldebguts>
+
+C<DB::DB>, C<DB::sub>, C<DB::lsub>, C<DB::goto>, C<DB::postponed>
+
+=item undocumented, used internally by the L<overload> feature
+
+any starting with C<(>
+
+=back
+
+The C<BEGIN>, C<UNITCHECK>, C<CHECK>, C<INIT> and C<END> subroutines
+are not so much subroutines as named special code blocks, of which you
+can have more than one in a package, and which you can B<not> call
+explicitly.  See L<perlmod/"BEGIN, UNITCHECK, CHECK, INIT and END">
+
+=head2 Signatures
+
+B<WARNING>: Subroutine signatures are experimental.  The feature may be
+modified or removed in future versions of Perl.
+
+Perl has an experimental facility to allow a subroutine's formal
+parameters to be introduced by special syntax, separate from the
+procedural code of the subroutine body.  The formal parameter list
+is known as a I<signature>.  The facility must be enabled first by a
+pragmatic declaration, C<use feature 'signatures'>, and it will produce
+a warning unless the "experimental::signatures" warnings category is
+disabled.
+
+The signature is part of a subroutine's body.  Normally the body of a
+subroutine is simply a braced block of code.  When using a signature,
+the signature is a parenthesised list that goes immediately after
+the subroutine name (or, for anonymous subroutines, immediately after
+the C<sub> keyword).  The signature declares lexical variables that are
+in scope for the block.  When the subroutine is called, the signature
+takes control first.  It populates the signature variables from the
+list of arguments that were passed.  If the argument list doesn't meet
+the requirements of the signature, then it will throw an exception.
+When the signature processing is complete, control passes to the block.
+
+Positional parameters are handled by simply naming scalar variables in
+the signature.  For example,
+
+    sub foo ($left, $right) {
+	return $left + $right;
+    }
+
+takes two positional parameters, which must be filled at runtime by
+two arguments.  By default the parameters are mandatory, and it is
+not permitted to pass more arguments than expected.  So the above is
+equivalent to
+
+    sub foo {
+	die "Too many arguments for subroutine" unless @_ <= 2;
+	die "Too few arguments for subroutine" unless @_ >= 2;
+	my $left = $_[0];
+	my $right = $_[1];
+	return $left + $right;
+    }
+
+An argument can be ignored by omitting the main part of the name from
+a parameter declaration, leaving just a bare C<$> sigil.  For example,
+
+    sub foo ($first, $, $third) {
+	return "first=$first, third=$third";
+    }
+
+Although the ignored argument doesn't go into a variable, it is still
+mandatory for the caller to pass it.
+
+A positional parameter is made optional by giving a default value,
+separated from the parameter name by C<=>:
+
+    sub foo ($left, $right = 0) {
+	return $left + $right;
+    }
+
+The above subroutine may be called with either one or two arguments.
+The default value expression is evaluated when the subroutine is called,
+so it may provide different default values for different calls.  It is
+only evaluated if the argument was actually omitted from the call.
+For example,
+
+    my $auto_id = 0;
+    sub foo ($thing, $id = $auto_id++) {
+	print "$thing has ID $id";
+    }
+
+automatically assigns distinct sequential IDs to things for which no
+ID was supplied by the caller.  A default value expression may also
+refer to parameters earlier in the signature, making the default for
+one parameter vary according to the earlier parameters.  For example,
+
+    sub foo ($first_name, $surname, $nickname = $first_name) {
+	print "$first_name $surname is known as \"$nickname\"";
+    }
+
+An optional parameter can be nameless just like a mandatory parameter.
+For example,
+
+    sub foo ($thing, $ = 1) {
+	print $thing;
+    }
+
+The parameter's default value will still be evaluated if the corresponding
+argument isn't supplied, even though the value won't be stored anywhere.
+This is in case evaluating it has important side effects.  However, it
+will be evaluated in void context, so if it doesn't have side effects
+and is not trivial it will generate a warning if the "void" warning
+category is enabled.  If a nameless optional parameter's default value
+is not important, it may be omitted just as the parameter's name was:
+
+    sub foo ($thing, $=) {
+	print $thing;
+    }
+
+Optional positional parameters must come after all mandatory positional
+parameters.  (If there are no mandatory positional parameters then an
+optional positional parameters can be the first thing in the signature.)
+If there are multiple optional positional parameters and not enough
+arguments are supplied to fill them all, they will be filled from left
+to right.
+
+After positional parameters, additional arguments may be captured in a
+slurpy parameter.  The simplest form of this is just an array variable:
+
+    sub foo ($filter, @inputs) {
+	print $filter->($_) foreach @inputs;
+    }
+
+With a slurpy parameter in the signature, there is no upper limit on how
+many arguments may be passed.  A slurpy array parameter may be nameless
+just like a positional parameter, in which case its only effect is to
+turn off the argument limit that would otherwise apply:
+
+    sub foo ($thing, @) {
+	print $thing;
+    }
+
+A slurpy parameter may instead be a hash, in which case the arguments
+available to it are interpreted as alternating keys and values.
+There must be as many keys as values: if there is an odd argument then
+an exception will be thrown.  Keys will be stringified, and if there are
+duplicates then the later instance takes precedence over the earlier,
+as with standard hash construction.
+
+    sub foo ($filter, %inputs) {
+	print $filter->($_, $inputs{$_}) foreach sort keys %inputs;
+    }
+
+A slurpy hash parameter may be nameless just like other kinds of
+parameter.  It still insists that the number of arguments available to
+it be even, even though they're not being put into a variable.
+
+    sub foo ($thing, %) {
+	print $thing;
+    }
+
+A slurpy parameter, either array or hash, must be the last thing in the
+signature.  It may follow mandatory and optional positional parameters;
+it may also be the only thing in the signature.  Slurpy parameters cannot
+have default values: if no arguments are supplied for them then you get
+an empty array or empty hash.
+
+A signature may be entirely empty, in which case all it does is check
+that the caller passed no arguments:
+
+    sub foo () {
+	return 123;
+    }
+
+When using a signature, the arguments are still available in the special
+array variable C<@_>, in addition to the lexical variables of the
+signature.  There is a difference between the two ways of accessing the
+arguments: C<@_> I<aliases> the arguments, but the signature variables
+get I<copies> of the arguments.  So writing to a signature variable
+only changes that variable, and has no effect on the caller's variables,
+but writing to an element of C<@_> modifies whatever the caller used to
+supply that argument.
+
+There is a potential syntactic ambiguity between signatures and prototypes
+(see L</Prototypes>), because both start with an opening parenthesis and
+both can appear in some of the same places, such as just after the name
+in a subroutine declaration.  For historical reasons, when signatures
+are not enabled, any opening parenthesis in such a context will trigger
+very forgiving prototype parsing.  Most signatures will be interpreted
+as prototypes in those circumstances, but won't be valid prototypes.
+(A valid prototype cannot contain any alphabetic character.)  This will
+lead to somewhat confusing error messages.
+
+To avoid ambiguity, when signatures are enabled the special syntax
+for prototypes is disabled.  There is no attempt to guess whether a
+parenthesised group was intended to be a prototype or a signature.
+To give a subroutine a prototype under these circumstances, use a
+L<prototype attribute|attributes/Built-in Attributes>.  For example,
+
+    sub foo :prototype($) { $_[0] }
+
+It is entirely possible for a subroutine to have both a prototype and
+a signature.  They do different jobs: the prototype affects compilation
+of calls to the subroutine, and the signature puts argument values into
+lexical variables at runtime.  You can therefore write
+
+    sub foo ($left, $right) : prototype($$) {
+	return $left + $right;
+    }
+
+The prototype attribute, and any other attributes, come after 
+the signature.
+
+=head2 Private Variables via my()
+X<my> X<variable, lexical> X<lexical> X<lexical variable> X<scope, lexical>
+X<lexical scope> X<attributes, my>
+
+Synopsis:
+
+    my $foo;	    	# declare $foo lexically local
+    my (@wid, %get); 	# declare list of variables local
+    my $foo = "flurp";	# declare $foo lexical, and init it
+    my @oof = @bar;	# declare @oof lexical, and init it
+    my $x : Foo = $y;	# similar, with an attribute applied
+
+B<WARNING>: The use of attribute lists on C<my> declarations is still
+evolving.  The current semantics and interface are subject to change.
+See L<attributes> and L<Attribute::Handlers>.
+
+The C<my> operator declares the listed variables to be lexically
+confined to the enclosing block, conditional
+(C<if>/C<unless>/C<elsif>/C<else>), loop
+(C<for>/C<foreach>/C<while>/C<until>/C<continue>), subroutine, C<eval>,
+or C<do>/C<require>/C<use>'d file.  If more than one value is listed, the
+list must be placed in parentheses.  All listed elements must be
+legal lvalues.  Only alphanumeric identifiers may be lexically
+scoped--magical built-ins like C<$/> must currently be C<local>ized
+with C<local> instead.
+
+Unlike dynamic variables created by the C<local> operator, lexical
+variables declared with C<my> are totally hidden from the outside
+world, including any called subroutines.  This is true if it's the
+same subroutine called from itself or elsewhere--every call gets
+its own copy.
+X<local>
+
+This doesn't mean that a C<my> variable declared in a statically
+enclosing lexical scope would be invisible.  Only dynamic scopes
+are cut off.   For example, the C<bumpx()> function below has access
+to the lexical $x variable because both the C<my> and the C<sub>
+occurred at the same scope, presumably file scope.
+
+    my $x = 10;
+    sub bumpx { $x++ } 
+
+An C<eval()>, however, can see lexical variables of the scope it is
+being evaluated in, so long as the names aren't hidden by declarations within
+the C<eval()> itself.  See L<perlref>.
+X<eval, scope of>
+
+The parameter list to my() may be assigned to if desired, which allows you
+to initialize your variables.  (If no initializer is given for a
+particular variable, it is created with the undefined value.)  Commonly
+this is used to name input parameters to a subroutine.  Examples:
+
+    $arg = "fred";	  # "global" variable
+    $n = cube_root(27);
+    print "$arg thinks the root is $n\n";
+ fred thinks the root is 3
+
+    sub cube_root {
+	my $arg = shift;  # name doesn't matter
+	$arg **= 1/3;
+	return $arg;
+    }
+
+The C<my> is simply a modifier on something you might assign to.  So when
+you do assign to variables in its argument list, C<my> doesn't
+change whether those variables are viewed as a scalar or an array.  So
+
+    my ($foo) = <STDIN>;		# WRONG?
+    my @FOO = <STDIN>;
+
+both supply a list context to the right-hand side, while
+
+    my $foo = <STDIN>;
+
+supplies a scalar context.  But the following declares only one variable:
+
+    my $foo, $bar = 1;			# WRONG
+
+That has the same effect as
+
+    my $foo;
+    $bar = 1;
+
+The declared variable is not introduced (is not visible) until after
+the current statement.  Thus,
+
+    my $x = $x;
+
+can be used to initialize a new $x with the value of the old $x, and
+the expression
+
+    my $x = 123 and $x == 123
+
+is false unless the old $x happened to have the value C<123>.
+
+Lexical scopes of control structures are not bounded precisely by the
+braces that delimit their controlled blocks; control expressions are
+part of that scope, too.  Thus in the loop
+
+    while (my $line = <>) {
+        $line = lc $line;
+    } continue {
+        print $line;
+    }
+
+the scope of $line extends from its declaration throughout the rest of
+the loop construct (including the C<continue> clause), but not beyond
+it.  Similarly, in the conditional
+
+    if ((my $answer = <STDIN>) =~ /^yes$/i) {
+        user_agrees();
+    } elsif ($answer =~ /^no$/i) {
+        user_disagrees();
+    } else {
+	chomp $answer;
+        die "'$answer' is neither 'yes' nor 'no'";
+    }
+
+the scope of $answer extends from its declaration through the rest
+of that conditional, including any C<elsif> and C<else> clauses, 
+but not beyond it.  See L<perlsyn/"Simple Statements"> for information
+on the scope of variables in statements with modifiers.
+
+The C<foreach> loop defaults to scoping its index variable dynamically
+in the manner of C<local>.  However, if the index variable is
+prefixed with the keyword C<my>, or if there is already a lexical
+by that name in scope, then a new lexical is created instead.  Thus
+in the loop
+X<foreach> X<for>
+
+    for my $i (1, 2, 3) {
+        some_function();
+    }
+
+the scope of $i extends to the end of the loop, but not beyond it,
+rendering the value of $i inaccessible within C<some_function()>.
+X<foreach> X<for>
+
+Some users may wish to encourage the use of lexically scoped variables.
+As an aid to catching implicit uses to package variables,
+which are always global, if you say
+
+    use strict 'vars';
+
+then any variable mentioned from there to the end of the enclosing
+block must either refer to a lexical variable, be predeclared via
+C<our> or C<use vars>, or else must be fully qualified with the package name.
+A compilation error results otherwise.  An inner block may countermand
+this with C<no strict 'vars'>.
+
+A C<my> has both a compile-time and a run-time effect.  At compile
+time, the compiler takes notice of it.  The principal usefulness
+of this is to quiet C<use strict 'vars'>, but it is also essential
+for generation of closures as detailed in L<perlref>.  Actual
+initialization is delayed until run time, though, so it gets executed
+at the appropriate time, such as each time through a loop, for
+example.
+
+Variables declared with C<my> are not part of any package and are therefore
+never fully qualified with the package name.  In particular, you're not
+allowed to try to make a package variable (or other global) lexical:
+
+    my $pack::var;	# ERROR!  Illegal syntax
+
+In fact, a dynamic variable (also known as package or global variables)
+are still accessible using the fully qualified C<::> notation even while a
+lexical of the same name is also visible:
+
+    package main;
+    local $x = 10;
+    my    $x = 20;
+    print "$x and $::x\n";
+
+That will print out C<20> and C<10>.
+
+You may declare C<my> variables at the outermost scope of a file
+to hide any such identifiers from the world outside that file.  This
+is similar in spirit to C's static variables when they are used at
+the file level.  To do this with a subroutine requires the use of
+a closure (an anonymous function that accesses enclosing lexicals).
+If you want to create a private subroutine that cannot be called
+from outside that block, it can declare a lexical variable containing
+an anonymous sub reference:
+
+    my $secret_version = '1.001-beta';
+    my $secret_sub = sub { print $secret_version };
+    &$secret_sub();
+
+As long as the reference is never returned by any function within the
+module, no outside module can see the subroutine, because its name is not in
+any package's symbol table.  Remember that it's not I<REALLY> called
+C<$some_pack::secret_version> or anything; it's just $secret_version,
+unqualified and unqualifiable.
+
+This does not work with object methods, however; all object methods
+have to be in the symbol table of some package to be found.  See
+L<perlref/"Function Templates"> for something of a work-around to
+this.
+
+=head2 Persistent Private Variables
+X<state> X<state variable> X<static> X<variable, persistent> X<variable, static> X<closure>
+
+There are two ways to build persistent private variables in Perl 5.10.
+First, you can simply use the C<state> feature.  Or, you can use closures,
+if you want to stay compatible with releases older than 5.10.
+
+=head3 Persistent variables via state()
+
+Beginning with Perl 5.10.0, you can declare variables with the C<state>
+keyword in place of C<my>.  For that to work, though, you must have
+enabled that feature beforehand, either by using the C<feature> pragma, or
+by using C<-E> on one-liners (see L<feature>).  Beginning with Perl 5.16,
+the C<CORE::state> form does not require the
+C<feature> pragma.
+
+The C<state> keyword creates a lexical variable (following the same scoping
+rules as C<my>) that persists from one subroutine call to the next.  If a
+state variable resides inside an anonymous subroutine, then each copy of
+the subroutine has its own copy of the state variable.  However, the value
+of the state variable will still persist between calls to the same copy of
+the anonymous subroutine.  (Don't forget that C<sub { ... }> creates a new
+subroutine each time it is executed.)
+
+For example, the following code maintains a private counter, incremented
+each time the gimme_another() function is called:
+
+    use feature 'state';
+    sub gimme_another { state $x; return ++$x }
+
+And this example uses anonymous subroutines to create separate counters:
+
+    use feature 'state';
+    sub create_counter {
+	return sub { state $x; return ++$x }
+    }
+
+Also, since C<$x> is lexical, it can't be reached or modified by any Perl
+code outside.
+
+When combined with variable declaration, simple scalar assignment to C<state>
+variables (as in C<state $x = 42>) is executed only the first time.  When such
+statements are evaluated subsequent times, the assignment is ignored.  The
+behavior of this sort of assignment to non-scalar variables is undefined.
+
+=head3 Persistent variables with closures
+
+Just because a lexical variable is lexically (also called statically)
+scoped to its enclosing block, C<eval>, or C<do> FILE, this doesn't mean that
+within a function it works like a C static.  It normally works more
+like a C auto, but with implicit garbage collection.  
+
+Unlike local variables in C or C++, Perl's lexical variables don't
+necessarily get recycled just because their scope has exited.
+If something more permanent is still aware of the lexical, it will
+stick around.  So long as something else references a lexical, that
+lexical won't be freed--which is as it should be.  You wouldn't want
+memory being free until you were done using it, or kept around once you
+were done.  Automatic garbage collection takes care of this for you.
+
+This means that you can pass back or save away references to lexical
+variables, whereas to return a pointer to a C auto is a grave error.
+It also gives us a way to simulate C's function statics.  Here's a
+mechanism for giving a function private variables with both lexical
+scoping and a static lifetime.  If you do want to create something like
+C's static variables, just enclose the whole function in an extra block,
+and put the static variable outside the function but in the block.
+
+    {
+	my $secret_val = 0;
+	sub gimme_another {
+	    return ++$secret_val;
+	}
+    }
+    # $secret_val now becomes unreachable by the outside
+    # world, but retains its value between calls to gimme_another
+
+If this function is being sourced in from a separate file
+via C<require> or C<use>, then this is probably just fine.  If it's
+all in the main program, you'll need to arrange for the C<my>
+to be executed early, either by putting the whole block above
+your main program, or more likely, placing merely a C<BEGIN>
+code block around it to make sure it gets executed before your program
+starts to run:
+
+    BEGIN {
+	my $secret_val = 0;
+	sub gimme_another {
+	    return ++$secret_val;
+	}
+    }
+
+See L<perlmod/"BEGIN, UNITCHECK, CHECK, INIT and END"> about the
+special triggered code blocks, C<BEGIN>, C<UNITCHECK>, C<CHECK>,
+C<INIT> and C<END>.
+
+If declared at the outermost scope (the file scope), then lexicals
+work somewhat like C's file statics.  They are available to all
+functions in that same file declared below them, but are inaccessible
+from outside that file.  This strategy is sometimes used in modules
+to create private variables that the whole module can see.
+
+=head2 Temporary Values via local()
+X<local> X<scope, dynamic> X<dynamic scope> X<variable, local>
+X<variable, temporary>
+
+B<WARNING>: In general, you should be using C<my> instead of C<local>, because
+it's faster and safer.  Exceptions to this include the global punctuation
+variables, global filehandles and formats, and direct manipulation of the
+Perl symbol table itself.  C<local> is mostly used when the current value
+of a variable must be visible to called subroutines.
+
+Synopsis:
+
+    # localization of values
+
+    local $foo;		       # make $foo dynamically local
+    local (@wid, %get);	       # make list of variables local
+    local $foo = "flurp";      # make $foo dynamic, and init it
+    local @oof = @bar;	       # make @oof dynamic, and init it
+
+    local $hash{key} = "val";  # sets a local value for this hash entry
+    delete local $hash{key};   # delete this entry for the current block
+    local ($cond ? $v1 : $v2); # several types of lvalues support
+			       # localization
+
+    # localization of symbols
+
+    local *FH;		       # localize $FH, @FH, %FH, &FH  ...
+    local *merlyn = *randal;   # now $merlyn is really $randal, plus
+                               #     @merlyn is really @randal, etc
+    local *merlyn = 'randal';  # SAME THING: promote 'randal' to *randal
+    local *merlyn = \$randal;  # just alias $merlyn, not @merlyn etc
+
+A C<local> modifies its listed variables to be "local" to the
+enclosing block, C<eval>, or C<do FILE>--and to I<any subroutine
+called from within that block>.  A C<local> just gives temporary
+values to global (meaning package) variables.  It does I<not> create
+a local variable.  This is known as dynamic scoping.  Lexical scoping
+is done with C<my>, which works more like C's auto declarations.
+
+Some types of lvalues can be localized as well: hash and array elements
+and slices, conditionals (provided that their result is always
+localizable), and symbolic references.  As for simple variables, this
+creates new, dynamically scoped values.
+
+If more than one variable or expression is given to C<local>, they must be
+placed in parentheses.  This operator works
+by saving the current values of those variables in its argument list on a
+hidden stack and restoring them upon exiting the block, subroutine, or
+eval.  This means that called subroutines can also reference the local
+variable, but not the global one.  The argument list may be assigned to if
+desired, which allows you to initialize your local variables.  (If no
+initializer is given for a particular variable, it is created with an
+undefined value.)
+
+Because C<local> is a run-time operator, it gets executed each time
+through a loop.  Consequently, it's more efficient to localize your
+variables outside the loop.
+
+=head3 Grammatical note on local()
+X<local, context>
+
+A C<local> is simply a modifier on an lvalue expression.  When you assign to
+a C<local>ized variable, the C<local> doesn't change whether its list is viewed
+as a scalar or an array.  So
+
+    local($foo) = <STDIN>;
+    local @FOO = <STDIN>;
+
+both supply a list context to the right-hand side, while
+
+    local $foo = <STDIN>;
+
+supplies a scalar context.
+
+=head3 Localization of special variables
+X<local, special variable>
+
+If you localize a special variable, you'll be giving a new value to it,
+but its magic won't go away.  That means that all side-effects related
+to this magic still work with the localized value.
+
+This feature allows code like this to work :
+
+    # Read the whole contents of FILE in $slurp
+    { local $/ = undef; $slurp = <FILE>; }
+
+Note, however, that this restricts localization of some values ; for
+example, the following statement dies, as of perl 5.10.0, with an error
+I<Modification of a read-only value attempted>, because the $1 variable is
+magical and read-only :
+
+    local $1 = 2;
+
+One exception is the default scalar variable: starting with perl 5.14
+C<local($_)> will always strip all magic from $_, to make it possible
+to safely reuse $_ in a subroutine.
+
+B<WARNING>: Localization of tied arrays and hashes does not currently
+work as described.
+This will be fixed in a future release of Perl; in the meantime, avoid
+code that relies on any particular behavior of localising tied arrays
+or hashes (localising individual elements is still okay).
+See L<perl58delta/"Localising Tied Arrays and Hashes Is Broken"> for more
+details.
+X<local, tie>
+
+=head3 Localization of globs
+X<local, glob> X<glob>
+
+The construct
+
+    local *name;
+
+creates a whole new symbol table entry for the glob C<name> in the
+current package.  That means that all variables in its glob slot ($name,
+@name, %name, &name, and the C<name> filehandle) are dynamically reset.
+
+This implies, among other things, that any magic eventually carried by
+those variables is locally lost.  In other words, saying C<local */>
+will not have any effect on the internal value of the input record
+separator.
+
+=head3 Localization of elements of composite types
+X<local, composite type element> X<local, array element> X<local, hash element>
+
+It's also worth taking a moment to explain what happens when you
+C<local>ize a member of a composite type (i.e. an array or hash element).
+In this case, the element is C<local>ized I<by name>.  This means that
+when the scope of the C<local()> ends, the saved value will be
+restored to the hash element whose key was named in the C<local()>, or
+the array element whose index was named in the C<local()>.  If that
+element was deleted while the C<local()> was in effect (e.g. by a
+C<delete()> from a hash or a C<shift()> of an array), it will spring
+back into existence, possibly extending an array and filling in the
+skipped elements with C<undef>.  For instance, if you say
+
+    %hash = ( 'This' => 'is', 'a' => 'test' );
+    @ary  = ( 0..5 );
+    {
+         local($ary[5]) = 6;
+         local($hash{'a'}) = 'drill';
+         while (my $e = pop(@ary)) {
+             print "$e . . .\n";
+             last unless $e > 3;
+         }
+         if (@ary) {
+             $hash{'only a'} = 'test';
+             delete $hash{'a'};
+         }
+    }
+    print join(' ', map { "$_ $hash{$_}" } sort keys %hash),".\n";
+    print "The array has ",scalar(@ary)," elements: ",
+          join(', ', map { defined $_ ? $_ : 'undef' } @ary),"\n";
+
+Perl will print
+
+    6 . . .
+    4 . . .
+    3 . . .
+    This is a test only a test.
+    The array has 6 elements: 0, 1, 2, undef, undef, 5
+
+The behavior of local() on non-existent members of composite
+types is subject to change in future.
+
+=head3 Localized deletion of elements of composite types
+X<delete> X<local, composite type element> X<local, array element> X<local, hash element>
+
+You can use the C<delete local $array[$idx]> and C<delete local $hash{key}>
+constructs to delete a composite type entry for the current block and restore
+it when it ends.  They return the array/hash value before the localization,
+which means that they are respectively equivalent to
+
+    do {
+        my $val = $array[$idx];
+        local  $array[$idx];
+        delete $array[$idx];
+        $val
+    }
+
+and
+
+    do {
+        my $val = $hash{key};
+        local  $hash{key};
+        delete $hash{key};
+        $val
+    }
+
+except that for those the C<local> is
+scoped to the C<do> block.  Slices are
+also accepted.
+
+    my %hash = (
+     a => [ 7, 8, 9 ],
+     b => 1,
+    )
+
+    {
+     my $a = delete local $hash{a};
+     # $a is [ 7, 8, 9 ]
+     # %hash is (b => 1)
+
+     {
+      my @nums = delete local @$a[0, 2]
+      # @nums is (7, 9)
+      # $a is [ undef, 8 ]
+
+      $a[0] = 999; # will be erased when the scope ends
+     }
+     # $a is back to [ 7, 8, 9 ]
+
+    }
+    # %hash is back to its original state
+
+=head2 Lvalue subroutines
+X<lvalue> X<subroutine, lvalue>
+
+It is possible to return a modifiable value from a subroutine.
+To do this, you have to declare the subroutine to return an lvalue.
+
+    my $val;
+    sub canmod : lvalue {
+	$val;  # or:  return $val;
+    }
+    sub nomod {
+	$val;
+    }
+
+    canmod() = 5;   # assigns to $val
+    nomod()  = 5;   # ERROR
+
+The scalar/list context for the subroutine and for the right-hand
+side of assignment is determined as if the subroutine call is replaced
+by a scalar.  For example, consider:
+
+    data(2,3) = get_data(3,4);
+
+Both subroutines here are called in a scalar context, while in:
+
+    (data(2,3)) = get_data(3,4);
+
+and in:
+
+    (data(2),data(3)) = get_data(3,4);
+
+all the subroutines are called in a list context.
+
+Lvalue subroutines are convenient, but you have to keep in mind that,
+when used with objects, they may violate encapsulation.  A normal
+mutator can check the supplied argument before setting the attribute
+it is protecting, an lvalue subroutine cannot.  If you require any
+special processing when storing and retrieving the values, consider
+using the CPAN module Sentinel or something similar.
+
+=head2 Lexical Subroutines
+X<my sub> X<state sub> X<our sub> X<subroutine, lexical>
+
+B<WARNING>: Lexical subroutines are still experimental.  The feature may be
+modified or removed in future versions of Perl.
+
+Lexical subroutines are only available under the C<use feature
+'lexical_subs'> pragma, which produces a warning unless the
+"experimental::lexical_subs" warnings category is disabled.
+
+Beginning with Perl 5.18, you can declare a private subroutine with C<my>
+or C<state>.  As with state variables, the C<state> keyword is only
+available under C<use feature 'state'> or C<use 5.010> or higher.
+
+These subroutines are only visible within the block in which they are
+declared, and only after that declaration:
+
+    no warnings "experimental::lexical_subs";
+    use feature 'lexical_subs';
+
+    foo();		# calls the package/global subroutine
+    state sub foo {
+	foo();		# also calls the package subroutine
+    }
+    foo();		# calls "state" sub
+    my $ref = \&foo;	# take a reference to "state" sub
+
+    my sub bar { ... }
+    bar();		# calls "my" sub
+
+To use a lexical subroutine from inside the subroutine itself, you must
+predeclare it.  The C<sub foo {...}> subroutine definition syntax respects
+any previous C<my sub;> or C<state sub;> declaration.
+
+    my sub baz;		# predeclaration
+    sub baz {		# define the "my" sub
+	baz();		# recursive call
+    }
+
+=head3 C<state sub> vs C<my sub>
+
+What is the difference between "state" subs and "my" subs?  Each time that
+execution enters a block when "my" subs are declared, a new copy of each
+sub is created.  "State" subroutines persist from one execution of the
+containing block to the next.
+
+So, in general, "state" subroutines are faster.  But "my" subs are
+necessary if you want to create closures:
+
+    no warnings "experimental::lexical_subs";
+    use feature 'lexical_subs';
+
+    sub whatever {
+	my $x = shift;
+	my sub inner {
+	    ... do something with $x ...
+	}
+	inner();
+    }
+
+In this example, a new C<$x> is created when C<whatever> is called, and
+also a new C<inner>, which can see the new C<$x>.  A "state" sub will only
+see the C<$x> from the first call to C<whatever>.
+
+=head3 C<our> subroutines
+
+Like C<our $variable>, C<our sub> creates a lexical alias to the package
+subroutine of the same name.
+
+The two main uses for this are to switch back to using the package sub
+inside an inner scope:
+
+    no warnings "experimental::lexical_subs";
+    use feature 'lexical_subs';
+
+    sub foo { ... }
+
+    sub bar {
+	my sub foo { ... }
+	{
+	    # need to use the outer foo here
+	    our sub foo;
+	    foo();
+	}
+    }
+
+and to make a subroutine visible to other packages in the same scope:
+
+    package MySneakyModule;
+
+    no warnings "experimental::lexical_subs";
+    use feature 'lexical_subs';
+
+    our sub do_something { ... }
+
+    sub do_something_with_caller {
+	package DB;
+	() = caller 1;		# sets @DB::args
+	do_something(@args);	# uses MySneakyModule::do_something
+    }
+
+=head2 Passing Symbol Table Entries (typeglobs)
+X<typeglob> X<*>
+
+B<WARNING>: The mechanism described in this section was originally
+the only way to simulate pass-by-reference in older versions of
+Perl.  While it still works fine in modern versions, the new reference
+mechanism is generally easier to work with.  See below.
+
+Sometimes you don't want to pass the value of an array to a subroutine
+but rather the name of it, so that the subroutine can modify the global
+copy of it rather than working with a local copy.  In perl you can
+refer to all objects of a particular name by prefixing the name
+with a star: C<*foo>.  This is often known as a "typeglob", because the
+star on the front can be thought of as a wildcard match for all the
+funny prefix characters on variables and subroutines and such.
+
+When evaluated, the typeglob produces a scalar value that represents
+all the objects of that name, including any filehandle, format, or
+subroutine.  When assigned to, it causes the name mentioned to refer to
+whatever C<*> value was assigned to it.  Example:
+
+    sub doubleary {
+	local(*someary) = @_;
+	foreach $elem (@someary) {
+	    $elem *= 2;
+	}
+    }
+    doubleary(*foo);
+    doubleary(*bar);
+
+Scalars are already passed by reference, so you can modify
+scalar arguments without using this mechanism by referring explicitly
+to C<$_[0]> etc.  You can modify all the elements of an array by passing
+all the elements as scalars, but you have to use the C<*> mechanism (or
+the equivalent reference mechanism) to C<push>, C<pop>, or change the size of
+an array.  It will certainly be faster to pass the typeglob (or reference).
+
+Even if you don't want to modify an array, this mechanism is useful for
+passing multiple arrays in a single LIST, because normally the LIST
+mechanism will merge all the array values so that you can't extract out
+the individual arrays.  For more on typeglobs, see
+L<perldata/"Typeglobs and Filehandles">.
+
+=head2 When to Still Use local()
+X<local> X<variable, local>
+
+Despite the existence of C<my>, there are still three places where the
+C<local> operator still shines.  In fact, in these three places, you
+I<must> use C<local> instead of C<my>.
+
+=over 4
+
+=item 1.
+
+You need to give a global variable a temporary value, especially $_.
+
+The global variables, like C<@ARGV> or the punctuation variables, must be 
+C<local>ized with C<local()>.  This block reads in F</etc/motd>, and splits
+it up into chunks separated by lines of equal signs, which are placed
+in C<@Fields>.
+
+    {
+	local @ARGV = ("/etc/motd");
+        local $/ = undef;
+        local $_ = <>;	
+	@Fields = split /^\s*=+\s*$/;
+    } 
+
+It particular, it's important to C<local>ize $_ in any routine that assigns
+to it.  Look out for implicit assignments in C<while> conditionals.
+
+=item 2.
+
+You need to create a local file or directory handle or a local function.
+
+A function that needs a filehandle of its own must use
+C<local()> on a complete typeglob.   This can be used to create new symbol
+table entries:
+
+    sub ioqueue {
+        local  (*READER, *WRITER);    # not my!
+        pipe    (READER,  WRITER)     or die "pipe: $!";
+        return (*READER, *WRITER);
+    }
+    ($head, $tail) = ioqueue();
+
+See the Symbol module for a way to create anonymous symbol table
+entries.
+
+Because assignment of a reference to a typeglob creates an alias, this
+can be used to create what is effectively a local function, or at least,
+a local alias.
+
+    {
+        local *grow = \&shrink; # only until this block exits
+        grow();                # really calls shrink()
+	move();		       # if move() grow()s, it shrink()s too
+    }
+    grow();		       # get the real grow() again
+
+See L<perlref/"Function Templates"> for more about manipulating
+functions by name in this way.
+
+=item 3.
+
+You want to temporarily change just one element of an array or hash.
+
+You can C<local>ize just one element of an aggregate.  Usually this
+is done on dynamics:
+
+    {
+	local $SIG{INT} = 'IGNORE';
+	funct();			    # uninterruptible
+    } 
+    # interruptibility automatically restored here
+
+But it also works on lexically declared aggregates.
+
+=back
+
+=head2 Pass by Reference
+X<pass by reference> X<pass-by-reference> X<reference>
+
+If you want to pass more than one array or hash into a function--or
+return them from it--and have them maintain their integrity, then
+you're going to have to use an explicit pass-by-reference.  Before you
+do that, you need to understand references as detailed in L<perlref>.
+This section may not make much sense to you otherwise.
+
+Here are a few simple examples.  First, let's pass in several arrays
+to a function and have it C<pop> all of then, returning a new list
+of all their former last elements:
+
+    @tailings = popmany ( \@a, \@b, \@c, \@d );
+
+    sub popmany {
+	my $aref;
+	my @retlist;
+	foreach $aref ( @_ ) {
+	    push @retlist, pop @$aref;
+	}
+	return @retlist;
+    }
+
+Here's how you might write a function that returns a
+list of keys occurring in all the hashes passed to it:
+
+    @common = inter( \%foo, \%bar, \%joe );
+    sub inter {
+	my ($k, $href, %seen); # locals
+	foreach $href (@_) {
+	    while ( $k = each %$href ) {
+		$seen{$k}++;
+	    }
+	}
+	return grep { $seen{$_} == @_ } keys %seen;
+    }
+
+So far, we're using just the normal list return mechanism.
+What happens if you want to pass or return a hash?  Well,
+if you're using only one of them, or you don't mind them
+concatenating, then the normal calling convention is ok, although
+a little expensive.
+
+Where people get into trouble is here:
+
+    (@a, @b) = func(@c, @d);
+or
+    (%a, %b) = func(%c, %d);
+
+That syntax simply won't work.  It sets just C<@a> or C<%a> and
+clears the C<@b> or C<%b>.  Plus the function didn't get passed
+into two separate arrays or hashes: it got one long list in C<@_>,
+as always.
+
+If you can arrange for everyone to deal with this through references, it's
+cleaner code, although not so nice to look at.  Here's a function that
+takes two array references as arguments, returning the two array elements
+in order of how many elements they have in them:
+
+    ($aref, $bref) = func(\@c, \@d);
+    print "@$aref has more than @$bref\n";
+    sub func {
+	my ($cref, $dref) = @_;
+	if (@$cref > @$dref) {
+	    return ($cref, $dref);
+	} else {
+	    return ($dref, $cref);
+	}
+    }
+
+It turns out that you can actually do this also:
+
+    (*a, *b) = func(\@c, \@d);
+    print "@a has more than @b\n";
+    sub func {
+	local (*c, *d) = @_;
+	if (@c > @d) {
+	    return (\@c, \@d);
+	} else {
+	    return (\@d, \@c);
+	}
+    }
+
+Here we're using the typeglobs to do symbol table aliasing.  It's
+a tad subtle, though, and also won't work if you're using C<my>
+variables, because only globals (even in disguise as C<local>s)
+are in the symbol table.
+
+If you're passing around filehandles, you could usually just use the bare
+typeglob, like C<*STDOUT>, but typeglobs references work, too.
+For example:
+
+    splutter(\*STDOUT);
+    sub splutter {
+	my $fh = shift;
+	print $fh "her um well a hmmm\n";
+    }
+
+    $rec = get_rec(\*STDIN);
+    sub get_rec {
+	my $fh = shift;
+	return scalar <$fh>;
+    }
+
+If you're planning on generating new filehandles, you could do this.
+Notice to pass back just the bare *FH, not its reference.
+
+    sub openit {
+	my $path = shift;
+	local *FH;
+	return open (FH, $path) ? *FH : undef;
+    }
+
+=head2 Prototypes
+X<prototype> X<subroutine, prototype>
+
+Perl supports a very limited kind of compile-time argument checking
+using function prototyping.  This can be declared in either the PROTO
+section or with a L<prototype attribute|attributes/Built-in Attributes>.
+If you declare either of
+
+    sub mypush (\@@)
+    sub mypush :prototype(\@@)
+
+then C<mypush()> takes arguments exactly like C<push()> does.
+
+If subroutine signatures are enabled (see L</Signatures>), then
+the shorter PROTO syntax is unavailable, because it would clash with
+signatures.  In that case, a prototype can only be declared in the form
+of an attribute.
+
+The
+function declaration must be visible at compile time.  The prototype
+affects only interpretation of new-style calls to the function,
+where new-style is defined as not using the C<&> character.  In
+other words, if you call it like a built-in function, then it behaves
+like a built-in function.  If you call it like an old-fashioned
+subroutine, then it behaves like an old-fashioned subroutine.  It
+naturally falls out from this rule that prototypes have no influence
+on subroutine references like C<\&foo> or on indirect subroutine
+calls like C<&{$subref}> or C<< $subref->() >>.
+
+Method calls are not influenced by prototypes either, because the
+function to be called is indeterminate at compile time, since
+the exact code called depends on inheritance.
+
+Because the intent of this feature is primarily to let you define
+subroutines that work like built-in functions, here are prototypes
+for some other functions that parse almost exactly like the
+corresponding built-in.
+
+   Declared as		   Called as
+
+   sub mylink ($$)	   mylink $old, $new
+   sub myvec ($$$)	   myvec $var, $offset, 1
+   sub myindex ($$;$)	   myindex &getstring, "substr"
+   sub mysyswrite ($$$;$)  mysyswrite $buf, 0, length($buf) - $off, $off
+   sub myreverse (@)	   myreverse $a, $b, $c
+   sub myjoin ($@)	   myjoin ":", $a, $b, $c
+   sub mypop (\@)	   mypop @array
+   sub mysplice (\@$$@)	   mysplice @array, 0, 2, @pushme
+   sub mykeys (\[%@])	   mykeys %{$hashref}
+   sub myopen (*;$)	   myopen HANDLE, $name
+   sub mypipe (**)	   mypipe READHANDLE, WRITEHANDLE
+   sub mygrep (&@)	   mygrep { /foo/ } $a, $b, $c
+   sub myrand (;$)	   myrand 42
+   sub mytime ()	   mytime
+
+Any backslashed prototype character represents an actual argument
+that must start with that character (optionally preceded by C<my>,
+C<our> or C<local>), with the exception of C<$>, which will
+accept any scalar lvalue expression, such as C<$foo = 7> or
+C<< my_function()->[0] >>.  The value passed as part of C<@_> will be a
+reference to the actual argument given in the subroutine call,
+obtained by applying C<\> to that argument.
+
+You can use the C<\[]> backslash group notation to specify more than one
+allowed argument type.  For example:
+
+    sub myref (\[$@%&*])
+
+will allow calling myref() as
+
+    myref $var
+    myref @array
+    myref %hash
+    myref &sub
+    myref *glob
+
+and the first argument of myref() will be a reference to
+a scalar, an array, a hash, a code, or a glob.
+
+Unbackslashed prototype characters have special meanings.  Any
+unbackslashed C<@> or C<%> eats all remaining arguments, and forces
+list context.  An argument represented by C<$> forces scalar context.  An
+C<&> requires an anonymous subroutine, which, if passed as the first
+argument, does not require the C<sub> keyword or a subsequent comma.
+
+A C<*> allows the subroutine to accept a bareword, constant, scalar expression,
+typeglob, or a reference to a typeglob in that slot.  The value will be
+available to the subroutine either as a simple scalar, or (in the latter
+two cases) as a reference to the typeglob.  If you wish to always convert
+such arguments to a typeglob reference, use Symbol::qualify_to_ref() as
+follows:
+
+    use Symbol 'qualify_to_ref';
+
+    sub foo (*) {
+	my $fh = qualify_to_ref(shift, caller);
+	...
+    }
+
+The C<+> prototype is a special alternative to C<$> that will act like
+C<\[@%]> when given a literal array or hash variable, but will otherwise
+force scalar context on the argument.  This is useful for functions which
+should accept either a literal array or an array reference as the argument:
+
+    sub mypush (+@) {
+        my $aref = shift;
+        die "Not an array or arrayref" unless ref $aref eq 'ARRAY';
+        push @$aref, @_;
+    }
+
+When using the C<+> prototype, your function must check that the argument
+is of an acceptable type.
+
+A semicolon (C<;>) separates mandatory arguments from optional arguments.
+It is redundant before C<@> or C<%>, which gobble up everything else.
+
+As the last character of a prototype, or just before a semicolon, a C<@>
+or a C<%>, you can use C<_> in place of C<$>: if this argument is not
+provided, C<$_> will be used instead.
+
+Note how the last three examples in the table above are treated
+specially by the parser.  C<mygrep()> is parsed as a true list
+operator, C<myrand()> is parsed as a true unary operator with unary
+precedence the same as C<rand()>, and C<mytime()> is truly without
+arguments, just like C<time()>.  That is, if you say
+
+    mytime +2;
+
+you'll get C<mytime() + 2>, not C<mytime(2)>, which is how it would be parsed
+without a prototype.  If you want to force a unary function to have the
+same precedence as a list operator, add C<;> to the end of the prototype:
+
+    sub mygetprotobynumber($;);
+    mygetprotobynumber $a > $b; # parsed as mygetprotobynumber($a > $b)
+
+The interesting thing about C<&> is that you can generate new syntax with it,
+provided it's in the initial position:
+X<&>
+
+    sub try (&@) {
+	my($try,$catch) = @_;
+	eval { &$try };
+	if ($@) {
+	    local $_ = $@;
+	    &$catch;
+	}
+    }
+    sub catch (&) { $_[0] }
+
+    try {
+	die "phooey";
+    } catch {
+	/phooey/ and print "unphooey\n";
+    };
+
+That prints C<"unphooey">.  (Yes, there are still unresolved
+issues having to do with visibility of C<@_>.  I'm ignoring that
+question for the moment.  (But note that if we make C<@_> lexically
+scoped, those anonymous subroutines can act like closures... (Gee,
+is this sounding a little Lispish?  (Never mind.))))
+
+And here's a reimplementation of the Perl C<grep> operator:
+X<grep>
+
+    sub mygrep (&@) {
+	my $code = shift;
+	my @result;
+	foreach $_ (@_) {
+	    push(@result, $_) if &$code;
+	}
+	@result;
+    }
+
+Some folks would prefer full alphanumeric prototypes.  Alphanumerics have
+been intentionally left out of prototypes for the express purpose of
+someday in the future adding named, formal parameters.  The current
+mechanism's main goal is to let module writers provide better diagnostics
+for module users.  Larry feels the notation quite understandable to Perl
+programmers, and that it will not intrude greatly upon the meat of the
+module, nor make it harder to read.  The line noise is visually
+encapsulated into a small pill that's easy to swallow.
+
+If you try to use an alphanumeric sequence in a prototype you will
+generate an optional warning - "Illegal character in prototype...".
+Unfortunately earlier versions of Perl allowed the prototype to be
+used as long as its prefix was a valid prototype.  The warning may be
+upgraded to a fatal error in a future version of Perl once the
+majority of offending code is fixed.
+
+It's probably best to prototype new functions, not retrofit prototyping
+into older ones.  That's because you must be especially careful about
+silent impositions of differing list versus scalar contexts.  For example,
+if you decide that a function should take just one parameter, like this:
+
+    sub func ($) {
+	my $n = shift;
+	print "you gave me $n\n";
+    }
+
+and someone has been calling it with an array or expression
+returning a list:
+
+    func(@foo);
+    func( split /:/ );
+
+Then you've just supplied an automatic C<scalar> in front of their
+argument, which can be more than a bit surprising.  The old C<@foo>
+which used to hold one thing doesn't get passed in.  Instead,
+C<func()> now gets passed in a C<1>; that is, the number of elements
+in C<@foo>.  And the C<split> gets called in scalar context so it
+starts scribbling on your C<@_> parameter list.  Ouch!
+
+If a sub has both a PROTO and a BLOCK, the prototype is not applied
+until after the BLOCK is completely defined.  This means that a recursive
+function with a prototype has to be predeclared for the prototype to take
+effect, like so:
+
+	sub foo($$);
+	sub foo($$) {
+		foo 1, 2;
+	}
+
+This is all very powerful, of course, and should be used only in moderation
+to make the world a better place.
+
+=head2 Constant Functions
+X<constant>
+
+Functions with a prototype of C<()> are potential candidates for
+inlining.  If the result after optimization and constant folding
+is either a constant or a lexically-scoped scalar which has no other
+references, then it will be used in place of function calls made
+without C<&>.  Calls made using C<&> are never inlined.  (See
+F<constant.pm> for an easy way to declare most constants.)
+
+The following functions would all be inlined:
+
+    sub pi ()		{ 3.14159 }		# Not exact, but close.
+    sub PI ()		{ 4 * atan2 1, 1 }	# As good as it gets,
+						# and it's inlined, too!
+    sub ST_DEV ()	{ 0 }
+    sub ST_INO ()	{ 1 }
+
+    sub FLAG_FOO ()	{ 1 << 8 }
+    sub FLAG_BAR ()	{ 1 << 9 }
+    sub FLAG_MASK ()	{ FLAG_FOO | FLAG_BAR }
+
+    sub OPT_BAZ ()	{ not (0x1B58 & FLAG_MASK) }
+
+    sub N () { int(OPT_BAZ) / 3 }
+
+    sub FOO_SET () { 1 if FLAG_MASK & FLAG_FOO }
+    sub FOO_SET2 () { if (FLAG_MASK & FLAG_FOO) { 1 } }
+
+(Be aware that the last example was not always inlined in Perl 5.20 and
+earlier, which did not behave consistently with subroutines containing
+inner scopes.)  You can countermand inlining by using an explicit
+C<return>:
+
+    sub baz_val () {
+	if (OPT_BAZ) {
+	    return 23;
+	}
+	else {
+	    return 42;
+	}
+    }
+    sub bonk_val () { return 12345 }
+
+As alluded to earlier you can also declare inlined subs dynamically at
+BEGIN time if their body consists of a lexically-scoped scalar which
+has no other references.  Only the first example here will be inlined:
+
+    BEGIN {
+        my $var = 1;
+        no strict 'refs';
+        *INLINED = sub () { $var };
+    }
+
+    BEGIN {
+        my $var = 1;
+        my $ref = \$var;
+        no strict 'refs';
+        *NOT_INLINED = sub () { $var };
+    }
+
+A not so obvious caveat with this (see [RT #79908]) is that the
+variable will be immediately inlined, and will stop behaving like a
+normal lexical variable, e.g. this will print C<79907>, not C<79908>:
+
+    BEGIN {
+        my $x = 79907;
+        *RT_79908 = sub () { $x };
+        $x++;
+    }
+    print RT_79908(); # prints 79907
+
+As of Perl 5.22, this buggy behavior, while preserved for backward
+compatibility, is detected and emits a deprecation warning.  If you want
+the subroutine to be inlined (with no warning), make sure the variable is
+not used in a context where it could be modified aside from where it is
+declared.
+
+    # Fine, no warning
+    BEGIN {
+        my $x = 54321;
+        *INLINED = sub () { $x };
+    }
+    # Warns.  Future Perl versions will stop inlining it.
+    BEGIN {
+        my $x;
+        $x = 54321;
+        *ALSO_INLINED = sub () { $x };
+    }
+
+Perl 5.22 also introduces the experimental "const" attribute as an
+alternative.  (Disable the "experimental::const_attr" warnings if you want
+to use it.)  When applied to an anonymous subroutine, it forces the sub to
+be called when the C<sub> expression is evaluated.  The return value is
+captured and turned into a constant subroutine:
+
+    my $x = 54321;
+    *INLINED = sub : const { $x };
+    $x++;
+
+The return value of C<INLINED> in this example will always be 54321,
+regardless of later modifications to $x.  You can also put any arbitrary
+code inside the sub, at it will be executed immediately and its return
+value captured the same way.
+
+If you really want a subroutine with a C<()> prototype that returns a
+lexical variable you can easily force it to not be inlined by adding
+an explicit C<return>:
+
+    BEGIN {
+        my $x = 79907;
+        *RT_79908 = sub () { return $x };
+        $x++;
+    }
+    print RT_79908(); # prints 79908
+
+The easiest way to tell if a subroutine was inlined is by using
+L<B::Deparse>.  Consider this example of two subroutines returning
+C<1>, one with a C<()> prototype causing it to be inlined, and one
+without (with deparse output truncated for clarity):
+
+ $ perl -MO=Deparse -le 'sub ONE { 1 } if (ONE) { print ONE if ONE }'
+ sub ONE {
+     1;
+ }
+ if (ONE ) {
+     print ONE() if ONE ;
+ }
+ $ perl -MO=Deparse -le 'sub ONE () { 1 } if (ONE) { print ONE if ONE }'
+ sub ONE () { 1 }
+ do {
+     print 1
+ };
+
+If you redefine a subroutine that was eligible for inlining, you'll
+get a warning by default.  You can use this warning to tell whether or
+not a particular subroutine is considered inlinable, since it's
+different than the warning for overriding non-inlined subroutines:
+
+    $ perl -e 'sub one () {1} sub one () {2}'
+    Constant subroutine one redefined at -e line 1.
+    $ perl -we 'sub one {1} sub one {2}'
+    Subroutine one redefined at -e line 1.
+
+The warning is considered severe enough not to be affected by the
+B<-w> switch (or its absence) because previously compiled invocations
+of the function will still be using the old value of the function.  If
+you need to be able to redefine the subroutine, you need to ensure
+that it isn't inlined, either by dropping the C<()> prototype (which
+changes calling semantics, so beware) or by thwarting the inlining
+mechanism in some other way, e.g. by adding an explicit C<return>, as
+mentioned above:
+
+    sub not_inlined () { return 23 }
+
+=head2 Overriding Built-in Functions
+X<built-in> X<override> X<CORE> X<CORE::GLOBAL>
+
+Many built-in functions may be overridden, though this should be tried
+only occasionally and for good reason.  Typically this might be
+done by a package attempting to emulate missing built-in functionality
+on a non-Unix system.
+
+Overriding may be done only by importing the name from a module at
+compile time--ordinary predeclaration isn't good enough.  However, the
+C<use subs> pragma lets you, in effect, predeclare subs
+via the import syntax, and these names may then override built-in ones:
+
+    use subs 'chdir', 'chroot', 'chmod', 'chown';
+    chdir $somewhere;
+    sub chdir { ... }
+
+To unambiguously refer to the built-in form, precede the
+built-in name with the special package qualifier C<CORE::>.  For example,
+saying C<CORE::open()> always refers to the built-in C<open()>, even
+if the current package has imported some other subroutine called
+C<&open()> from elsewhere.  Even though it looks like a regular
+function call, it isn't: the CORE:: prefix in that case is part of Perl's
+syntax, and works for any keyword, regardless of what is in the CORE
+package.  Taking a reference to it, that is, C<\&CORE::open>, only works
+for some keywords.  See L<CORE>.
+
+Library modules should not in general export built-in names like C<open>
+or C<chdir> as part of their default C<@EXPORT> list, because these may
+sneak into someone else's namespace and change the semantics unexpectedly.
+Instead, if the module adds that name to C<@EXPORT_OK>, then it's
+possible for a user to import the name explicitly, but not implicitly.
+That is, they could say
+
+    use Module 'open';
+
+and it would import the C<open> override.  But if they said
+
+    use Module;
+
+they would get the default imports without overrides.
+
+The foregoing mechanism for overriding built-in is restricted, quite
+deliberately, to the package that requests the import.  There is a second
+method that is sometimes applicable when you wish to override a built-in
+everywhere, without regard to namespace boundaries.  This is achieved by
+importing a sub into the special namespace C<CORE::GLOBAL::>.  Here is an
+example that quite brazenly replaces the C<glob> operator with something
+that understands regular expressions.
+
+    package REGlob;
+    require Exporter;
+    @ISA = 'Exporter';
+    @EXPORT_OK = 'glob';
+
+    sub import {
+	my $pkg = shift;
+	return unless @_;
+	my $sym = shift;
+	my $where = ($sym =~ s/^GLOBAL_// ? 'CORE::GLOBAL' : caller(0));
+	$pkg->export($where, $sym, @_);
+    }
+
+    sub glob {
+	my $pat = shift;
+	my @got;
+	if (opendir my $d, '.') { 
+	    @got = grep /$pat/, readdir $d; 
+	    closedir $d;   
+	}
+	return @got;
+    }
+    1;
+
+And here's how it could be (ab)used:
+
+    #use REGlob 'GLOBAL_glob';	    # override glob() in ALL namespaces
+    package Foo;
+    use REGlob 'glob';		    # override glob() in Foo:: only
+    print for <^[a-z_]+\.pm\$>;	    # show all pragmatic modules
+
+The initial comment shows a contrived, even dangerous example.
+By overriding C<glob> globally, you would be forcing the new (and
+subversive) behavior for the C<glob> operator for I<every> namespace,
+without the complete cognizance or cooperation of the modules that own
+those namespaces.  Naturally, this should be done with extreme caution--if
+it must be done at all.
+
+The C<REGlob> example above does not implement all the support needed to
+cleanly override perl's C<glob> operator.  The built-in C<glob> has
+different behaviors depending on whether it appears in a scalar or list
+context, but our C<REGlob> doesn't.  Indeed, many perl built-in have such
+context sensitive behaviors, and these must be adequately supported by
+a properly written override.  For a fully functional example of overriding
+C<glob>, study the implementation of C<File::DosGlob> in the standard
+library.
+
+When you override a built-in, your replacement should be consistent (if
+possible) with the built-in native syntax.  You can achieve this by using
+a suitable prototype.  To get the prototype of an overridable built-in,
+use the C<prototype> function with an argument of C<"CORE::builtin_name">
+(see L<perlfunc/prototype>).
+
+Note however that some built-ins can't have their syntax expressed by a
+prototype (such as C<system> or C<chomp>).  If you override them you won't
+be able to fully mimic their original syntax.
+
+The built-ins C<do>, C<require> and C<glob> can also be overridden, but due
+to special magic, their original syntax is preserved, and you don't have
+to define a prototype for their replacements.  (You can't override the
+C<do BLOCK> syntax, though).
+
+C<require> has special additional dark magic: if you invoke your
+C<require> replacement as C<require Foo::Bar>, it will actually receive
+the argument C<"Foo/Bar.pm"> in @_.  See L<perlfunc/require>.
+
+And, as you'll have noticed from the previous example, if you override
+C<glob>, the C<< <*> >> glob operator is overridden as well.
+
+In a similar fashion, overriding the C<readline> function also overrides
+the equivalent I/O operator C<< <FILEHANDLE> >>.  Also, overriding
+C<readpipe> also overrides the operators C<``> and C<qx//>.
+
+Finally, some built-ins (e.g. C<exists> or C<grep>) can't be overridden.
+
+=head2 Autoloading
+X<autoloading> X<AUTOLOAD>
+
+If you call a subroutine that is undefined, you would ordinarily
+get an immediate, fatal error complaining that the subroutine doesn't
+exist.  (Likewise for subroutines being used as methods, when the
+method doesn't exist in any base class of the class's package.)
+However, if an C<AUTOLOAD> subroutine is defined in the package or
+packages used to locate the original subroutine, then that
+C<AUTOLOAD> subroutine is called with the arguments that would have
+been passed to the original subroutine.  The fully qualified name
+of the original subroutine magically appears in the global $AUTOLOAD
+variable of the same package as the C<AUTOLOAD> routine.  The name
+is not passed as an ordinary argument because, er, well, just
+because, that's why.  (As an exception, a method call to a nonexistent
+C<import> or C<unimport> method is just skipped instead.  Also, if
+the AUTOLOAD subroutine is an XSUB, there are other ways to retrieve the
+subroutine name.  See L<perlguts/Autoloading with XSUBs> for details.)
+
+
+Many C<AUTOLOAD> routines load in a definition for the requested
+subroutine using eval(), then execute that subroutine using a special
+form of goto() that erases the stack frame of the C<AUTOLOAD> routine
+without a trace.  (See the source to the standard module documented
+in L<AutoLoader>, for example.)  But an C<AUTOLOAD> routine can
+also just emulate the routine and never define it.   For example,
+let's pretend that a function that wasn't defined should just invoke
+C<system> with those arguments.  All you'd do is:
+
+    sub AUTOLOAD {
+	my $program = $AUTOLOAD;
+	$program =~ s/.*:://;
+	system($program, @_);
+    }
+    date();
+    who('am', 'i');
+    ls('-l');
+
+In fact, if you predeclare functions you want to call that way, you don't
+even need parentheses:
+
+    use subs qw(date who ls);
+    date;
+    who "am", "i";
+    ls '-l';
+
+A more complete example of this is the Shell module on CPAN, which
+can treat undefined subroutine calls as calls to external programs.
+
+Mechanisms are available to help modules writers split their modules
+into autoloadable files.  See the standard AutoLoader module
+described in L<AutoLoader> and in L<AutoSplit>, the standard
+SelfLoader modules in L<SelfLoader>, and the document on adding C
+functions to Perl code in L<perlxs>.
+
+=head2 Subroutine Attributes
+X<attribute> X<subroutine, attribute> X<attrs>
+
+A subroutine declaration or definition may have a list of attributes
+associated with it.  If such an attribute list is present, it is
+broken up at space or colon boundaries and treated as though a
+C<use attributes> had been seen.  See L<attributes> for details
+about what attributes are currently supported.
+Unlike the limitation with the obsolescent C<use attrs>, the
+C<sub : ATTRLIST> syntax works to associate the attributes with
+a pre-declaration, and not just with a subroutine definition.
+
+The attributes must be valid as simple identifier names (without any
+punctuation other than the '_' character).  They may have a parameter
+list appended, which is only checked for whether its parentheses ('(',')')
+nest properly.
+
+Examples of valid syntax (even though the attributes are unknown):
+
+    sub fnord (&\%) : switch(10,foo(7,3))  :  expensive;
+    sub plugh () : Ugly('\(") :Bad;
+    sub xyzzy : _5x5 { ... }
+
+Examples of invalid syntax:
+
+    sub fnord : switch(10,foo(); # ()-string not balanced
+    sub snoid : Ugly('(');	  # ()-string not balanced
+    sub xyzzy : 5x5;		  # "5x5" not a valid identifier
+    sub plugh : Y2::north;	  # "Y2::north" not a simple identifier
+    sub snurt : foo + bar;	  # "+" not a colon or space
+
+The attribute list is passed as a list of constant strings to the code
+which associates them with the subroutine.  In particular, the second example
+of valid syntax above currently looks like this in terms of how it's
+parsed and invoked:
+
+    use attributes __PACKAGE__, \&plugh, q[Ugly('\(")], 'Bad';
+
+For further details on attribute lists and their manipulation,
+see L<attributes> and L<Attribute::Handlers>.
+
+=head1 SEE ALSO
+
+See L<perlref/"Function Templates"> for more about references and closures.
+See L<perlxs> if you'd like to learn about calling C subroutines from Perl.  
+See L<perlembed> if you'd like to learn about calling Perl subroutines from C.  
+See L<perlmod> to learn about bundling up your functions in separate files.
+See L<perlmodlib> to learn what library modules come standard on your system.
+See L<perlootut> to learn how to make object method calls.
diff --git a/lib/5.24.1/pod/perlsymbian.pod b/lib/5.24.1/pod/perlsymbian.pod
new file mode 100644
index 00000000..c111f303
--- /dev/null
+++ b/lib/5.24.1/pod/perlsymbian.pod
@@ -0,0 +1,434 @@
+If you read this file _as_is_, just ignore the funny characters you see.
+It is written in the POD format (see pod/perlpod.pod) which is specially
+designed to be readable as is.
+
+=head1 NAME
+
+perlsymbian - Perl version 5 on Symbian OS
+
+=head1 DESCRIPTION
+
+This document describes various features of the Symbian operating
+system that will affect how Perl version 5 (hereafter just Perl)
+is compiled and/or runs.
+
+B<NOTE: this port (as of 0.4.1) does not compile into a Symbian
+OS GUI application, but instead it results in a Symbian DLL.>
+The DLL includes a C++ class called CPerlBase, which one can then
+(derive from and) use to embed Perl into applications, see F<symbian/README>.
+
+The base port of Perl to Symbian only implements the basic POSIX-like
+functionality; it does not implement any further Symbian or Series 60,
+Series 80, or UIQ bindings for Perl.
+
+It is also possible to generate Symbian executables for "miniperl"
+and "perl", but since there is no standard command line interface
+for Symbian (nor full keyboards in the devices), these are useful
+mainly as demonstrations.
+
+=head2 Compiling Perl on Symbian
+
+(0) You need to have the appropriate Symbian SDK installed.
+
+These instructions have been tested under various Nokia Series 60
+Symbian SDKs (1.2 to 2.6, 2.8 should also work, 1.2 compiles but
+does not work), Series 80 2.0, and Nokia 7710 (Series 90) SDK.
+You can get the SDKs from Forum Nokia (L<http://www.forum.nokia.com/>).
+A very rough port ("it compiles") to UIQ 2.1 has also been made.
+
+A prerequisite for any of the SDKs is to install ActivePerl
+from ActiveState, L<http://www.activestate.com/Products/ActivePerl/>
+
+Having the SDK installed also means that you need to have either
+the Metrowerks CodeWarrior installed (2.8 and 3.0 were used in testing)
+or the Microsoft Visual C++ 6.0 installed (SP3 minimum, SP5 recommended).
+
+Note that for example the Series 60 2.0 VC SDK installation talks
+about ActivePerl build 518, which does no more (as of mid-2005) exist
+at the ActiveState website.  The ActivePerl 5.8.4 build 810 was
+used successfully for compiling Perl on Symbian.  The 5.6.x ActivePerls
+do not work.
+
+Other SDKs or compilers like Visual.NET, command-line-only
+Visual.NET, Borland, GnuPoc, or sdk2unix have not been tried.
+
+These instructions almost certainly won't work with older Symbian
+releases or other SDKs.  Patches to get this port running in other
+releases, SDKs, compilers, platforms, or devices are naturally welcome.
+
+(1) Get a Perl source code distribution (for example the file
+perl-5.9.2.tar.gz is fine) from L<http://www.cpan.org/src/>
+and unpack it in your the C:/Symbian directory of your Windows
+system.
+
+(2) Change to the perl source directory.
+
+    cd c:\Symbian\perl-5.x.x
+
+(3) Run the following script using the perl coming with the SDK
+
+    perl symbian\config.pl
+
+You must use the cmd.exe, the Cygwin shell will not work.
+The PATH must include the SDK tools, including a Perl,
+which should be the case under cmd.exe.  If you do not
+have that, see the end of symbian\sdk.pl for notes of
+how your environment should be set up for Symbian compiles.
+
+(4) Build the project, either by
+
+     make all
+
+in cmd.exe or by using either the Metrowerks CodeWarrior
+or the Visual C++ 6.0, or the Visual Studio 8 (the Visual C++
+2005 Express Edition works fine).
+
+If you use the VC IDE, you will have to run F<symbian\config.pl>
+first using the cmd.exe, and then run 'make win.mf vc6.mf' to generate
+the VC6 makefiles and workspaces.  "make vc6" will compile for the VC6,
+and "make cw" for the CodeWarrior.
+
+The following SDK and compiler configurations and Nokia phones were
+tested at some point in time (+ = compiled and PerlApp run, - = not),
+both for Perl 5.8.x and 5.9.x:
+
+     SDK     | VC | CW |
+     --------+----+----+---
+     S60 1.2 | +  | +  | 3650 (*)
+     S60 2.0 | +  | +  | 6600
+     S60 2.1 | -  | +  | 6670
+     S60 2.6 | +  | +  | 6630
+     S60 2.8 | +  | +  | (not tested in a device)
+     S80 2.6 | -  | +  | 9300
+     S90 1.1 | +  | -  | 7710
+     UIQ 2.1 | -  | +  | (not tested in a device)
+
+ (*) Compiles but does not work, unfortunately, a problem with Symbian.
+
+If you are using the 'make' directly, it is the GNU make from the SDKs,
+and it will invoke the right make commands for the Windows emulator
+build and the Arm target builds ('thumb' by default) as necessary.
+
+The build scripts assume the 'absolute style' SDK installs under C:,
+the 'subst style' will not work.
+
+If using the VC IDE, to build use for example the File->Open Workspace->
+C:\Symbian\8.0a\S60_2nd_FP2\epoc32\build\symbian\perl\perl\wins\perl.dsw
+The emulator binaries will appear in the same directory.
+
+If using the VC IDE, you will a lot of warnings in the beginning of
+the build because a lot of headers mentioned by the source cannot
+be found, but this is not serious since those headers are not used.
+
+The Metrowerks will give a lot of warnings about unused variables and
+empty declarations, you can ignore those.
+
+When the Windows and Arm DLLs are built do not be scared by a very long
+messages whizzing by: it is the "export freeze" phase where the whole
+(rather large) API of Perl is listed.
+
+Once the build is completed you need to create the DLL SIS file by
+
+     make perldll.sis
+
+which will create the file perlXYZ.sis (the XYZ being the Perl version)
+which you can then install into your Symbian device: an easy way
+to do this is to send them via Bluetooth or infrared and just open
+the messages.
+
+Since the total size of all Perl SIS files once installed is
+over 2 MB, it is recommended to do the installation into a
+memory card (drive E:) instead of the C: drive.
+
+The size of the perlXYZ.SIS is about 370 kB but once it is in the
+device it is about one 750 kB (according to the application manager).
+
+The perlXYZ.sis includes only the Perl DLL: to create an additional
+SIS file which includes some of the standard (pure) Perl libraries,
+issue the command
+
+     make perllib.sis
+
+Some of the standard Perl libraries are included, but not all:
+see L</HISTORY> or F<symbian\install.cfg> for more details
+(250 kB -> 700 kB).
+
+Some of the standard Perl XS extensions (see L</HISTORY> are
+also available:
+
+     make perlext.sis
+
+which will create perlXYZext.sis (290 kB -> 770 kB).
+
+To compile the demonstration application PerlApp you need first to
+install the Perl headers under the SDK.
+
+To install the Perl headers and the class CPerlBase documentation
+so that you no more need the Perl sources around to compile Perl
+applications using the SDK:
+
+     make sdkinstall
+
+The destination directory is C:\Symbian\perl\X.Y.Z.  For more
+details, see F<symbian\PerlBase.pod>.
+
+Once the headers have been installed, you can create a SIS for
+the PerlApp:
+
+     make perlapp.sis
+
+The perlapp.sis (11 kB -> 16 kB) will be built in the symbian
+subdirectory, but a copy will also be made to the main directory.
+
+If you want to package the Perl DLLs (one for WINS, one for ARMI),
+the headers, and the documentation:
+
+     make perlsdk.zip
+
+which will create perlXYZsdk.zip that can be used in another
+Windows system with the SDK, without having to compile Perl in
+that system.
+
+If you want to package the PerlApp sources:
+
+     make perlapp.zip
+
+If you want to package the perl.exe and miniperl.exe, you
+can use the perlexe.sis and miniperlexe.sis make targets.
+You also probably want the perllib.sis for the libraries
+and maybe even the perlapp.sis for the recognizer.
+
+The make target 'allsis' combines all the above SIS targets.
+
+To clean up after compilation you can use either of
+
+     make clean
+     make distclean
+
+depending on how clean you want to be.
+
+=head2 Compilation problems
+
+If you see right after "make" this
+
+    cat makefile.sh >makefile
+    'cat' is not recognized as an internal or external command,
+    operable program or batch file.
+
+it means you need to (re)run the F<symbian\config.pl>.
+
+If you get the error
+
+        'perl' is not recognized as an internal or external command,
+        operable program or batch file.
+
+you may need to reinstall the ActivePerl.
+
+If you see this
+
+    ren makedef.pl nomakedef.pl
+    The system cannot find the file specified.
+    C:\Symbian\...\make.exe: [rename_makedef] Error 1 (ignored)
+
+please ignore it since it is nothing serious (the build process of
+renames the Perl makedef.pl as nomakedef.pl to avoid confusing it
+with a makedef.pl of the SDK).
+
+=head2 PerlApp
+
+The PerlApp application demonstrates how to embed Perl interpreters
+to a Symbian application.  The "Time" menu item runs the following
+Perl code: C<print "Running in ", $^O, "\n", scalar localtime>,
+the "Oneliner" allows one to type in Perl code, and the "Run"
+opens a file chooser for selecting a Perl file to run.
+
+The PerlApp also is started when the "Perl recognizer" (also included
+and installed) detects a Perl file being activated through the GUI,
+and offers either to install it under \Perl (if the Perl file is in
+the inbox of the messaging application) or to run it (if the Perl file
+is under \Perl).
+
+=head2 sisify.pl
+
+In the symbian subdirectory there is F<sisify.pl> utility which can be used
+to package Perl scripts and/or Perl library directories into SIS files,
+which can be installed to the device.  To run the sisify.pl utility,
+you will need to have the 'makesis' and 'uidcrc' utilities already
+installed.  If you don't have the Win32 SDKs, you may try for example
+L<http://gnupoc.sourceforge.net/> or L<http://symbianos.org/~andreh/>.
+
+=head2 Using Perl in Symbian
+
+First of all note that you have full access to the Symbian device
+when using Perl: you can do a lot of damage to your device (like
+removing system files) unless you are careful.  Please do take
+backups before doing anything.
+
+The Perl port has been done for the most part using the Symbian
+standard POSIX-ish STDLIB library. It is a reasonably complete
+library, but certain corners of such emulation libraries that tend
+to be left unimplemented on non-UNIX platforms have been left
+unimplemented also this time: fork(), signals(), user/group ids,
+select() working for sockets, non-blocking sockets, and so forth.
+See the file F<symbian/config.sh> and look for 'undef' to find the
+unsupported APIs (or from Perl use Config).
+
+The filesystem of Symbian devices uses DOSish syntax, "drives"
+separated from paths by a colon, and backslashes for the path.  The
+exact assignment of the drives probably varies between platforms, but
+for example in Series 60 you might see C: as the (flash) main memory,
+D: as the RAM drive, E: as the memory card (MMC), Z: as the ROM.  In
+Series 80 D: is the memory card.  As far the devices go the NUL: is
+the bit bucket, the COMx: are the serial lines, IRCOMx: are the IR
+ports, TMP: might be C:\System\Temp.  Remember to double those
+backslashes in doublequoted strings.
+
+The Perl DLL is installed in \System\Libs\.  The Perl libraries and
+extension DLLs are installed in \System\Libs\Perl\X.Y.Z\.  The PerlApp
+is installed in \System\Apps\, and the SIS also installs a couple of
+demo scripts in \Perl\ (C:\Mydocs\Perl\ on Nokia 7710).
+
+Note that the Symbian filesystem is very picky: it strongly prefers
+the \ instead of the /.
+
+When doing XS / Symbian C++ programming include first the Symbian
+headers, then any standard C/POSIX headers, then Perl headers, and finally
+any application headers.
+
+New() and Copy() are unfortunately used by both Symbian and Perl code
+so you'll have to play cpp games if you need them.  PerlBase.h undefines
+the Perl definitions and redefines them as PerlNew() and PerlCopy().
+
+=head1 TO DO
+
+Lots.  See F<symbian/TODO>.
+
+=head1 WARNING
+
+As of Perl Symbian port version 0.4.1 any part of Perl's standard
+regression test suite has not been run on a real Symbian device using
+the ported Perl, so innumerable bugs may lie in wait.  Therefore there
+is absolutely no warranty.
+
+=head1 NOTE
+
+When creating and extending application programming interfaces (APIs)
+for Symbian or Series 60 or Series 80 or Series 90 it is suggested
+that trademarks, registered trademarks, or trade names are not used in
+the API names.  Instead, developers should consider basing the API
+naming in the existing (C++, or maybe Java) public component and API
+naming, modified as appropriate by the rules of the programming
+language the new APIs are for.
+
+Nokia is a registered trademark of Nokia Corporation. Nokia's product
+names are trademarks or registered trademarks of Nokia.  Other product
+and company names mentioned herein may be trademarks or trade names of
+their respective owners.
+
+=head1 AUTHOR
+
+Jarkko Hietaniemi
+
+=head1 COPYRIGHT
+
+Copyright (c) 2004-2005 Nokia.  All rights reserved.
+
+Copyright (c) 2006-2007 Jarkko Hietaniemi.
+
+=head1 LICENSE
+
+The Symbian port is licensed under the same terms as Perl itself.
+
+=head1 HISTORY
+
+=over 4
+
+=item *
+
+0.1.0: April 2005
+
+(This will show as "0.01" in the Symbian Installer.)
+
+ - The console window is a very simple console indeed: one can
+   get the newline with "000" and the "C" button is a backspace.
+   Do not expect a terminal capable of vt100 or ANSI sequences.
+   The console is also "ASCII", you cannot input e.g. any accented
+   letters.  Because of obvious physical constraints the console is
+   also very small: (in Nokia 6600) 22 columns, 17 rows.
+ - The following libraries are available:
+   AnyDBM_File AutoLoader base Carp Config Cwd constant
+   DynaLoader Exporter File::Spec integer lib strict Symbol
+   vars warnings XSLoader
+ - The following extensions are available:
+   attributes Compress::Zlib Cwd Data::Dumper Devel::Peek
+   Digest::MD5 DynaLoader Fcntl File::Glob Filter::Util::Call
+   IO List::Util MIME::Base64
+   PerlIO::scalar PerlIO::via SDBM_File Socket Storable Time::HiRes
+ - The following extensions are missing for various technical
+   reasons:
+   B ByteLoader Devel::DProf Devel::PPPort Encode GDBM_File
+   I18N::Langinfo IPC::SysV NDBM_File Opcode PerlIO::encoding POSIX
+   re Safe Sys::Hostname Sys::Syslog
+   threads threads::shared Unicode::Normalize
+ - Using MakeMaker or the Module::* to build and install modules
+   is not supported.
+ - Building XS other than the ones in the core is not supported.
+
+Since this is 0.something release, any future releases are almost
+guaranteed to be binary incompatible.  As a sign of this the Symbian
+symbol exports are kept unfrozen and the .def files fully rebuilt
+every time.
+
+=item *
+
+0.2.0: October 2005
+
+  - Perl 5.9.3 (patch level 25741)
+  - Compress::Zlib and IO::Zlib supported
+  - sisify.pl added
+
+We maintain the binary incompatibility.
+
+=item *
+
+0.3.0: October 2005
+
+  - Perl 5.9.3 (patch level 25911)
+  - Series 80 2.0 and UIQ 2.1 support
+
+We maintain the binary incompatibility.
+
+=item *
+
+0.4.0: November 2005
+
+  - Perl 5.9.3 (patch level 26052)
+  - adding a sample Symbian extension
+
+We maintain the binary incompatibility.
+
+=item *
+
+0.4.1: December 2006
+
+  - Perl 5.9.5-to-be (patch level 30002)
+  - added extensions: Compress/Raw/Zlib, Digest/SHA,
+    Hash/Util, Math/BigInt/FastCalc, Text/Soundex, Time/Piece
+  - port to S90 1.1 by alexander smishlajev
+
+We maintain the binary incompatibility.
+
+=item *
+
+0.4.2: March 2007
+
+  - catchup with Perl 5.9.5-to-be (patch level 30812)
+  - tested to build with Microsoft Visual C++ 2005 Express Edition
+    (which uses Microsoft Visual C 8, instead of the old VC6),
+    SDK used for testing S60_2nd_FP3 aka 8.1a
+
+We maintain the binary incompatibility.
+
+=back
+
+=cut
diff --git a/lib/5.24.1/pod/perlsyn.pod b/lib/5.24.1/pod/perlsyn.pod
new file mode 100644
index 00000000..09cfd13b
--- /dev/null
+++ b/lib/5.24.1/pod/perlsyn.pod
@@ -0,0 +1,1256 @@
+=head1 NAME
+X<syntax>
+
+perlsyn - Perl syntax
+
+=head1 DESCRIPTION
+
+A Perl program consists of a sequence of declarations and statements
+which run from the top to the bottom.  Loops, subroutines, and other
+control structures allow you to jump around within the code.
+
+Perl is a B<free-form> language: you can format and indent it however
+you like.  Whitespace serves mostly to separate tokens, unlike
+languages like Python where it is an important part of the syntax,
+or Fortran where it is immaterial.
+
+Many of Perl's syntactic elements are B<optional>.  Rather than
+requiring you to put parentheses around every function call and
+declare every variable, you can often leave such explicit elements off
+and Perl will figure out what you meant.  This is known as B<Do What I
+Mean>, abbreviated B<DWIM>.  It allows programmers to be B<lazy> and to
+code in a style with which they are comfortable.
+
+Perl B<borrows syntax> and concepts from many languages: awk, sed, C,
+Bourne Shell, Smalltalk, Lisp and even English.  Other
+languages have borrowed syntax from Perl, particularly its regular
+expression extensions.  So if you have programmed in another language
+you will see familiar pieces in Perl.  They often work the same, but
+see L<perltrap> for information about how they differ.
+
+=head2 Declarations
+X<declaration> X<undef> X<undefined> X<uninitialized>
+
+The only things you need to declare in Perl are report formats and
+subroutines (and sometimes not even subroutines).  A scalar variable holds
+the undefined value (C<undef>) until it has been assigned a defined
+value, which is anything other than C<undef>.  When used as a number,
+C<undef> is treated as C<0>; when used as a string, it is treated as
+the empty string, C<"">; and when used as a reference that isn't being
+assigned to, it is treated as an error.  If you enable warnings,
+you'll be notified of an uninitialized value whenever you treat
+C<undef> as a string or a number.  Well, usually.  Boolean contexts,
+such as:
+
+    if ($a) {}
+
+are exempt from warnings (because they care about truth rather than
+definedness).  Operators such as C<++>, C<-->, C<+=>,
+C<-=>, and C<.=>, that operate on undefined variables such as:
+
+    undef $a;
+    $a++;
+
+are also always exempt from such warnings.
+
+A declaration can be put anywhere a statement can, but has no effect on
+the execution of the primary sequence of statements: declarations all
+take effect at compile time.  All declarations are typically put at
+the beginning or the end of the script.  However, if you're using
+lexically-scoped private variables created with C<my()>,
+C<state()>, or C<our()>, you'll have to make sure
+your format or subroutine definition is within the same block scope
+as the my if you expect to be able to access those private variables.
+
+Declaring a subroutine allows a subroutine name to be used as if it were a
+list operator from that point forward in the program.  You can declare a
+subroutine without defining it by saying C<sub name>, thus:
+X<subroutine, declaration>
+
+    sub myname;
+    $me = myname $0             or die "can't get myname";
+
+A bare declaration like that declares the function to be a list operator,
+not a unary operator, so you have to be careful to use parentheses (or
+C<or> instead of C<||>.)  The C<||> operator binds too tightly to use after
+list operators; it becomes part of the last element.  You can always use
+parentheses around the list operators arguments to turn the list operator
+back into something that behaves more like a function call.  Alternatively,
+you can use the prototype C<($)> to turn the subroutine into a unary
+operator:
+
+  sub myname ($);
+  $me = myname $0             || die "can't get myname";
+
+That now parses as you'd expect, but you still ought to get in the habit of
+using parentheses in that situation.  For more on prototypes, see
+L<perlsub>.
+
+Subroutines declarations can also be loaded up with the C<require> statement
+or both loaded and imported into your namespace with a C<use> statement.
+See L<perlmod> for details on this.
+
+A statement sequence may contain declarations of lexically-scoped
+variables, but apart from declaring a variable name, the declaration acts
+like an ordinary statement, and is elaborated within the sequence of
+statements as if it were an ordinary statement.  That means it actually
+has both compile-time and run-time effects.
+
+=head2 Comments
+X<comment> X<#>
+
+Text from a C<"#"> character until the end of the line is a comment,
+and is ignored.  Exceptions include C<"#"> inside a string or regular
+expression.
+
+=head2 Simple Statements
+X<statement> X<semicolon> X<expression> X<;>
+
+The only kind of simple statement is an expression evaluated for its
+side-effects.  Every simple statement must be terminated with a
+semicolon, unless it is the final statement in a block, in which case
+the semicolon is optional.  But put the semicolon in anyway if the
+block takes up more than one line, because you may eventually add
+another line.  Note that there are operators like C<eval {}>, C<sub {}>, and
+C<do {}> that I<look> like compound statements, but aren't--they're just
+TERMs in an expression--and thus need an explicit termination when used
+as the last item in a statement.
+
+=head2 Truth and Falsehood
+X<truth> X<falsehood> X<true> X<false> X<!> X<not> X<negation> X<0>
+
+The number 0, the strings C<'0'> and C<"">, the empty list C<()>, and
+C<undef> are all false in a boolean context.  All other values are true.
+Negation of a true value by C<!> or C<not> returns a special false value.
+When evaluated as a string it is treated as C<"">, but as a number, it
+is treated as 0.  Most Perl operators
+that return true or false behave this way.
+
+=head2 Statement Modifiers
+X<statement modifier> X<modifier> X<if> X<unless> X<while>
+X<until> X<when> X<foreach> X<for>
+
+Any simple statement may optionally be followed by a I<SINGLE> modifier,
+just before the terminating semicolon (or block ending).  The possible
+modifiers are:
+
+    if EXPR
+    unless EXPR
+    while EXPR
+    until EXPR
+    for LIST
+    foreach LIST
+    when EXPR
+
+The C<EXPR> following the modifier is referred to as the "condition".
+Its truth or falsehood determines how the modifier will behave.
+
+C<if> executes the statement once I<if> and only if the condition is
+true.  C<unless> is the opposite, it executes the statement I<unless>
+the condition is true (that is, if the condition is false).
+
+    print "Basset hounds got long ears" if length $ear >= 10;
+    go_outside() and play() unless $is_raining;
+
+The C<for(each)> modifier is an iterator: it executes the statement once
+for each item in the LIST (with C<$_> aliased to each item in turn).
+
+    print "Hello $_!\n" for qw(world Dolly nurse);
+
+C<while> repeats the statement I<while> the condition is true.
+C<until> does the opposite, it repeats the statement I<until> the
+condition is true (or while the condition is false):
+
+    # Both of these count from 0 to 10.
+    print $i++ while $i <= 10;
+    print $j++ until $j >  10;
+
+The C<while> and C<until> modifiers have the usual "C<while> loop"
+semantics (conditional evaluated first), except when applied to a
+C<do>-BLOCK (or to the Perl4 C<do>-SUBROUTINE statement), in
+which case the block executes once before the conditional is
+evaluated.
+
+This is so that you can write loops like:
+
+    do {
+        $line = <STDIN>;
+        ...
+    } until !defined($line) || $line eq ".\n"
+
+See L<perlfunc/do>.  Note also that the loop control statements described
+later will I<NOT> work in this construct, because modifiers don't take
+loop labels.  Sorry.  You can always put another block inside of it
+(for C<next>/C<redo>) or around it (for C<last>) to do that sort of thing.
+X<next> X<last> X<redo>
+
+For C<next> or C<redo>, just double the braces:
+
+    do {{
+        next if $x == $y;
+        # do something here
+    }} until $x++ > $z;
+
+For C<last>, you have to be more elaborate and put braces around it:
+X<last>
+
+    {
+        do {
+            last if $x == $y**2;
+            # do something here
+        } while $x++ <= $z;
+    }
+
+If you need both C<next> and C<last>, you have to do both and also use a
+loop label:
+
+    LOOP: {
+        do {{
+            next if $x == $y;
+            last LOOP if $x == $y**2;
+            # do something here
+        }} until $x++ > $z;
+    }
+
+B<NOTE:> The behaviour of a C<my>, C<state>, or
+C<our> modified with a statement modifier conditional
+or loop construct (for example, C<my $x if ...>) is
+B<undefined>.  The value of the C<my> variable may be C<undef>, any
+previously assigned value, or possibly anything else.  Don't rely on
+it.  Future versions of perl might do something different from the
+version of perl you try it out on.  Here be dragons.
+X<my>
+
+The C<when> modifier is an experimental feature that first appeared in Perl
+5.14.  To use it, you should include a C<use v5.14> declaration.
+(Technically, it requires only the C<switch> feature, but that aspect of it
+was not available before 5.14.)  Operative only from within a C<foreach>
+loop or a C<given> block, it executes the statement only if the smartmatch
+C<< $_ ~~ I<EXPR> >> is true.  If the statement executes, it is followed by
+a C<next> from inside a C<foreach> and C<break> from inside a C<given>.
+
+Under the current implementation, the C<foreach> loop can be
+anywhere within the C<when> modifier's dynamic scope, but must be
+within the C<given> block's lexical scope.  This restricted may
+be relaxed in a future release.  See L<"Switch Statements"> below.
+
+=head2 Compound Statements
+X<statement, compound> X<block> X<bracket, curly> X<curly bracket> X<brace>
+X<{> X<}> X<if> X<unless> X<given> X<while> X<until> X<foreach> X<for> X<continue>
+
+In Perl, a sequence of statements that defines a scope is called a block.
+Sometimes a block is delimited by the file containing it (in the case
+of a required file, or the program as a whole), and sometimes a block
+is delimited by the extent of a string (in the case of an eval).
+
+But generally, a block is delimited by curly brackets, also known as braces.
+We will call this syntactic construct a BLOCK.
+
+The following compound statements may be used to control flow:
+
+    if (EXPR) BLOCK
+    if (EXPR) BLOCK else BLOCK
+    if (EXPR) BLOCK elsif (EXPR) BLOCK ...
+    if (EXPR) BLOCK elsif (EXPR) BLOCK ... else BLOCK
+
+    unless (EXPR) BLOCK
+    unless (EXPR) BLOCK else BLOCK
+    unless (EXPR) BLOCK elsif (EXPR) BLOCK ...
+    unless (EXPR) BLOCK elsif (EXPR) BLOCK ... else BLOCK
+
+    given (EXPR) BLOCK
+
+    LABEL while (EXPR) BLOCK
+    LABEL while (EXPR) BLOCK continue BLOCK
+
+    LABEL until (EXPR) BLOCK
+    LABEL until (EXPR) BLOCK continue BLOCK
+
+    LABEL for (EXPR; EXPR; EXPR) BLOCK
+    LABEL for VAR (LIST) BLOCK
+    LABEL for VAR (LIST) BLOCK continue BLOCK
+
+    LABEL foreach (EXPR; EXPR; EXPR) BLOCK
+    LABEL foreach VAR (LIST) BLOCK
+    LABEL foreach VAR (LIST) BLOCK continue BLOCK
+
+    LABEL BLOCK
+    LABEL BLOCK continue BLOCK
+
+    PHASE BLOCK
+
+The experimental C<given> statement is I<not automatically enabled>; see
+L</"Switch Statements"> below for how to do so, and the attendant caveats.
+
+Unlike in C and Pascal, in Perl these are all defined in terms of BLOCKs,
+not statements.  This means that the curly brackets are I<required>--no
+dangling statements allowed.  If you want to write conditionals without
+curly brackets, there are several other ways to do it.  The following
+all do the same thing:
+
+    if (!open(FOO)) { die "Can't open $FOO: $!" }
+    die "Can't open $FOO: $!" unless open(FOO);
+    open(FOO)  || die "Can't open $FOO: $!";
+    open(FOO) ? () : die "Can't open $FOO: $!";
+        # a bit exotic, that last one
+
+The C<if> statement is straightforward.  Because BLOCKs are always
+bounded by curly brackets, there is never any ambiguity about which
+C<if> an C<else> goes with.  If you use C<unless> in place of C<if>,
+the sense of the test is reversed.  Like C<if>, C<unless> can be followed
+by C<else>.  C<unless> can even be followed by one or more C<elsif>
+statements, though you may want to think twice before using that particular
+language construct, as everyone reading your code will have to think at least
+twice before they can understand what's going on.
+
+The C<while> statement executes the block as long as the expression is
+L<true|/"Truth and Falsehood">.
+The C<until> statement executes the block as long as the expression is
+false.
+The LABEL is optional, and if present, consists of an identifier followed
+by a colon.  The LABEL identifies the loop for the loop control
+statements C<next>, C<last>, and C<redo>.
+If the LABEL is omitted, the loop control statement
+refers to the innermost enclosing loop.  This may include dynamically
+looking back your call-stack at run time to find the LABEL.  Such
+desperate behavior triggers a warning if you use the C<use warnings>
+pragma or the B<-w> flag.
+
+If there is a C<continue> BLOCK, it is always executed just before the
+conditional is about to be evaluated again.  Thus it can be used to
+increment a loop variable, even when the loop has been continued via
+the C<next> statement.
+
+When a block is preceding by a compilation phase keyword such as C<BEGIN>,
+C<END>, C<INIT>, C<CHECK>, or C<UNITCHECK>, then the block will run only
+during the corresponding phase of execution.  See L<perlmod> for more details.
+
+Extension modules can also hook into the Perl parser to define new
+kinds of compound statements.  These are introduced by a keyword which
+the extension recognizes, and the syntax following the keyword is
+defined entirely by the extension.  If you are an implementor, see
+L<perlapi/PL_keyword_plugin> for the mechanism.  If you are using such
+a module, see the module's documentation for details of the syntax that
+it defines.
+
+=head2 Loop Control
+X<loop control> X<loop, control> X<next> X<last> X<redo> X<continue>
+
+The C<next> command starts the next iteration of the loop:
+
+    LINE: while (<STDIN>) {
+        next LINE if /^#/;      # discard comments
+        ...
+    }
+
+The C<last> command immediately exits the loop in question.  The
+C<continue> block, if any, is not executed:
+
+    LINE: while (<STDIN>) {
+        last LINE if /^$/;      # exit when done with header
+        ...
+    }
+
+The C<redo> command restarts the loop block without evaluating the
+conditional again.  The C<continue> block, if any, is I<not> executed.
+This command is normally used by programs that want to lie to themselves
+about what was just input.
+
+For example, when processing a file like F</etc/termcap>.
+If your input lines might end in backslashes to indicate continuation, you
+want to skip ahead and get the next record.
+
+    while (<>) {
+        chomp;
+        if (s/\\$//) {
+            $_ .= <>;
+            redo unless eof();
+        }
+        # now process $_
+    }
+
+which is Perl shorthand for the more explicitly written version:
+
+    LINE: while (defined($line = <ARGV>)) {
+        chomp($line);
+        if ($line =~ s/\\$//) {
+            $line .= <ARGV>;
+            redo LINE unless eof(); # not eof(ARGV)!
+        }
+        # now process $line
+    }
+
+Note that if there were a C<continue> block on the above code, it would
+get executed only on lines discarded by the regex (since redo skips the
+continue block).  A continue block is often used to reset line counters
+or C<m?pat?> one-time matches:
+
+    # inspired by :1,$g/fred/s//WILMA/
+    while (<>) {
+        m?(fred)?    && s//WILMA $1 WILMA/;
+        m?(barney)?  && s//BETTY $1 BETTY/;
+        m?(homer)?   && s//MARGE $1 MARGE/;
+    } continue {
+        print "$ARGV $.: $_";
+        close ARGV  if eof;             # reset $.
+        reset       if eof;             # reset ?pat?
+    }
+
+If the word C<while> is replaced by the word C<until>, the sense of the
+test is reversed, but the conditional is still tested before the first
+iteration.
+
+Loop control statements don't work in an C<if> or C<unless>, since
+they aren't loops.  You can double the braces to make them such, though.
+
+    if (/pattern/) {{
+        last if /fred/;
+        next if /barney/; # same effect as "last",
+                          # but doesn't document as well
+        # do something here
+    }}
+
+This is caused by the fact that a block by itself acts as a loop that
+executes once, see L<"Basic BLOCKs">.
+
+The form C<while/if BLOCK BLOCK>, available in Perl 4, is no longer
+available.   Replace any occurrence of C<if BLOCK> by C<if (do BLOCK)>.
+
+=head2 For Loops
+X<for> X<foreach>
+
+Perl's C-style C<for> loop works like the corresponding C<while> loop;
+that means that this:
+
+    for ($i = 1; $i < 10; $i++) {
+        ...
+    }
+
+is the same as this:
+
+    $i = 1;
+    while ($i < 10) {
+        ...
+    } continue {
+        $i++;
+    }
+
+There is one minor difference: if variables are declared with C<my>
+in the initialization section of the C<for>, the lexical scope of
+those variables is exactly the C<for> loop (the body of the loop
+and the control sections).
+X<my>
+
+As a special case, if the test in the C<for> loop (or the corresponding
+C<while> loop) is empty, it is treated as true.  That is, both
+
+    for (;;) {
+        ...
+    }
+
+and
+
+    while () {
+        ...
+    }
+
+are treated as infinite loops.
+
+Besides the normal array index looping, C<for> can lend itself
+to many other interesting applications.  Here's one that avoids the
+problem you get into if you explicitly test for end-of-file on
+an interactive file descriptor causing your program to appear to
+hang.
+X<eof> X<end-of-file> X<end of file>
+
+    $on_a_tty = -t STDIN && -t STDOUT;
+    sub prompt { print "yes? " if $on_a_tty }
+    for ( prompt(); <STDIN>; prompt() ) {
+        # do something
+    }
+
+Using C<readline> (or the operator form, C<< <EXPR> >>) as the
+conditional of a C<for> loop is shorthand for the following.  This
+behaviour is the same as a C<while> loop conditional.
+X<readline> X<< <> >>
+
+    for ( prompt(); defined( $_ = <STDIN> ); prompt() ) {
+        # do something
+    }
+
+=head2 Foreach Loops
+X<for> X<foreach>
+
+The C<foreach> loop iterates over a normal list value and sets the scalar
+variable VAR to be each element of the list in turn.  If the variable
+is preceded with the keyword C<my>, then it is lexically scoped, and
+is therefore visible only within the loop.  Otherwise, the variable is
+implicitly local to the loop and regains its former value upon exiting
+the loop.  If the variable was previously declared with C<my>, it uses
+that variable instead of the global one, but it's still localized to
+the loop.  This implicit localization occurs I<only> in a C<foreach>
+loop.
+X<my> X<local>
+
+The C<foreach> keyword is actually a synonym for the C<for> keyword, so
+you can use either.  If VAR is omitted, C<$_> is set to each value.
+X<$_>
+
+If any element of LIST is an lvalue, you can modify it by modifying
+VAR inside the loop.  Conversely, if any element of LIST is NOT an
+lvalue, any attempt to modify that element will fail.  In other words,
+the C<foreach> loop index variable is an implicit alias for each item
+in the list that you're looping over.
+X<alias>
+
+If any part of LIST is an array, C<foreach> will get very confused if
+you add or remove elements within the loop body, for example with
+C<splice>.   So don't do that.
+X<splice>
+
+C<foreach> probably won't do what you expect if VAR is a tied or other
+special variable.   Don't do that either.
+
+As of Perl 5.22, there is an experimental variant of this loop that accepts
+a variable preceded by a backslash for VAR, in which case the items in the
+LIST must be references.  The backslashed variable will become an alias
+to each referenced item in the LIST, which must be of the correct type.
+The variable needn't be a scalar in this case, and the backslash may be
+followed by C<my>.  To use this form, you must enable the C<refaliasing>
+feature via C<use feature>.  (See L<feature>.  See also L<perlref/Assigning
+to References>.)
+
+Examples:
+
+    for (@ary) { s/foo/bar/ }
+
+    for my $elem (@elements) {
+        $elem *= 2;
+    }
+
+    for $count (reverse(1..10), "BOOM") {
+        print $count, "\n";
+        sleep(1);
+    }
+
+    for (1..15) { print "Merry Christmas\n"; }
+
+    foreach $item (split(/:[\\\n:]*/, $ENV{TERMCAP})) {
+        print "Item: $item\n";
+    }
+
+    use feature "refaliasing";
+    no warnings "experimental::refaliasing";
+    foreach \my %hash (@array_of_hash_references) {
+        # do something which each %hash
+    }
+
+Here's how a C programmer might code up a particular algorithm in Perl:
+
+    for (my $i = 0; $i < @ary1; $i++) {
+        for (my $j = 0; $j < @ary2; $j++) {
+            if ($ary1[$i] > $ary2[$j]) {
+                last; # can't go to outer :-(
+            }
+            $ary1[$i] += $ary2[$j];
+        }
+        # this is where that last takes me
+    }
+
+Whereas here's how a Perl programmer more comfortable with the idiom might
+do it:
+
+    OUTER: for my $wid (@ary1) {
+    INNER:   for my $jet (@ary2) {
+                next OUTER if $wid > $jet;
+                $wid += $jet;
+             }
+          }
+
+See how much easier this is?  It's cleaner, safer, and faster.  It's
+cleaner because it's less noisy.  It's safer because if code gets added
+between the inner and outer loops later on, the new code won't be
+accidentally executed.  The C<next> explicitly iterates the other loop
+rather than merely terminating the inner one.  And it's faster because
+Perl executes a C<foreach> statement more rapidly than it would the
+equivalent C<for> loop.
+
+Perceptive Perl hackers may have noticed that a C<for> loop has a return
+value, and that this value can be captured by wrapping the loop in a C<do>
+block.  The reward for this discovery is this cautionary advice:  The
+return value of a C<for> loop is unspecified and may change without notice.
+Do not rely on it.
+
+=head2 Basic BLOCKs
+X<block>
+
+A BLOCK by itself (labeled or not) is semantically equivalent to a
+loop that executes once.  Thus you can use any of the loop control
+statements in it to leave or restart the block.  (Note that this is
+I<NOT> true in C<eval{}>, C<sub{}>, or contrary to popular belief
+C<do{}> blocks, which do I<NOT> count as loops.)  The C<continue>
+block is optional.
+
+The BLOCK construct can be used to emulate case structures.
+
+    SWITCH: {
+        if (/^abc/) { $abc = 1; last SWITCH; }
+        if (/^def/) { $def = 1; last SWITCH; }
+        if (/^xyz/) { $xyz = 1; last SWITCH; }
+        $nothing = 1;
+    }
+
+You'll also find that C<foreach> loop used to create a topicalizer
+and a switch:
+
+    SWITCH:
+    for ($var) {
+        if (/^abc/) { $abc = 1; last SWITCH; }
+        if (/^def/) { $def = 1; last SWITCH; }
+        if (/^xyz/) { $xyz = 1; last SWITCH; }
+        $nothing = 1;
+    }
+
+Such constructs are quite frequently used, both because older versions of
+Perl had no official C<switch> statement, and also because the new version
+described immediately below remains experimental and can sometimes be confusing.
+
+=head2 Switch Statements
+
+X<switch> X<case> X<given> X<when> X<default>
+
+Starting from Perl 5.10.1 (well, 5.10.0, but it didn't work
+right), you can say
+
+    use feature "switch";
+
+to enable an experimental switch feature.  This is loosely based on an
+old version of a Perl 6 proposal, but it no longer resembles the Perl 6
+construct.   You also get the switch feature whenever you declare that your
+code prefers to run under a version of Perl that is 5.10 or later.  For
+example:
+
+    use v5.14;
+
+Under the "switch" feature, Perl gains the experimental keywords
+C<given>, C<when>, C<default>, C<continue>, and C<break>.
+Starting from Perl 5.16, one can prefix the switch
+keywords with C<CORE::> to access the feature without a C<use feature>
+statement.  The keywords C<given> and
+C<when> are analogous to C<switch> and
+C<case> in other languages, so the code in the previous section could be
+rewritten as
+
+    use v5.10.1;
+    for ($var) {
+        when (/^abc/) { $abc = 1 }
+        when (/^def/) { $def = 1 }
+        when (/^xyz/) { $xyz = 1 }
+        default       { $nothing = 1 }
+    }
+
+The C<foreach> is the non-experimental way to set a topicalizer.
+If you wish to use the highly experimental C<given>, that could be
+written like this:
+
+    use v5.10.1;
+    given ($var) {
+        when (/^abc/) { $abc = 1 }
+        when (/^def/) { $def = 1 }
+        when (/^xyz/) { $xyz = 1 }
+        default       { $nothing = 1 }
+    }
+
+As of 5.14, that can also be written this way:
+
+    use v5.14;
+    for ($var) {
+        $abc = 1 when /^abc/;
+        $def = 1 when /^def/;
+        $xyz = 1 when /^xyz/;
+        default { $nothing = 1 }
+    }
+
+Or if you don't care to play it safe, like this:
+
+    use v5.14;
+    given ($var) {
+        $abc = 1 when /^abc/;
+        $def = 1 when /^def/;
+        $xyz = 1 when /^xyz/;
+        default { $nothing = 1 }
+    }
+
+The arguments to C<given> and C<when> are in scalar context,
+and C<given> assigns the C<$_> variable its topic value.
+
+Exactly what the I<EXPR> argument to C<when> does is hard to describe
+precisely, but in general, it tries to guess what you want done.  Sometimes
+it is interpreted as C<< $_ ~~ I<EXPR> >>, and sometimes it is not.  It
+also behaves differently when lexically enclosed by a C<given> block than
+it does when dynamically enclosed by a C<foreach> loop.  The rules are far
+too difficult to understand to be described here.  See L</"Experimental Details
+on given and when"> later on.
+
+Due to an unfortunate bug in how C<given> was implemented between Perl 5.10
+and 5.16, under those implementations the version of C<$_> governed by
+C<given> is merely a lexically scoped copy of the original, not a
+dynamically scoped alias to the original, as it would be if it were a
+C<foreach> or under both the original and the current Perl 6 language
+specification.  This bug was fixed in Perl 5.18 (and lexicalized C<$_> itself
+was removed in Perl 5.24).
+
+If your code still needs to run on older versions,
+stick to C<foreach> for your topicalizer and
+you will be less unhappy.
+
+=head2 Goto
+X<goto>
+
+Although not for the faint of heart, Perl does support a C<goto>
+statement.  There are three forms: C<goto>-LABEL, C<goto>-EXPR, and
+C<goto>-&NAME.  A loop's LABEL is not actually a valid target for
+a C<goto>; it's just the name of the loop.
+
+The C<goto>-LABEL form finds the statement labeled with LABEL and resumes
+execution there.  It may not be used to go into any construct that
+requires initialization, such as a subroutine or a C<foreach> loop.  It
+also can't be used to go into a construct that is optimized away.  It
+can be used to go almost anywhere else within the dynamic scope,
+including out of subroutines, but it's usually better to use some other
+construct such as C<last> or C<die>.  The author of Perl has never felt the
+need to use this form of C<goto> (in Perl, that is--C is another matter).
+
+The C<goto>-EXPR form expects a label name, whose scope will be resolved
+dynamically.  This allows for computed C<goto>s per FORTRAN, but isn't
+necessarily recommended if you're optimizing for maintainability:
+
+    goto(("FOO", "BAR", "GLARCH")[$i]);
+
+The C<goto>-&NAME form is highly magical, and substitutes a call to the
+named subroutine for the currently running subroutine.  This is used by
+C<AUTOLOAD()> subroutines that wish to load another subroutine and then
+pretend that the other subroutine had been called in the first place
+(except that any modifications to C<@_> in the current subroutine are
+propagated to the other subroutine.)  After the C<goto>, not even C<caller()>
+will be able to tell that this routine was called first.
+
+In almost all cases like this, it's usually a far, far better idea to use the
+structured control flow mechanisms of C<next>, C<last>, or C<redo> instead of
+resorting to a C<goto>.  For certain applications, the catch and throw pair of
+C<eval{}> and die() for exception processing can also be a prudent approach.
+
+=head2 The Ellipsis Statement
+X<...>
+X<... statement>
+X<ellipsis operator>
+X<elliptical statement>
+X<unimplemented statement>
+X<unimplemented operator>
+X<yada-yada>
+X<yada-yada operator>
+X<... operator>
+X<whatever operator>
+X<triple-dot operator>
+
+Beginning in Perl 5.12, Perl accepts an ellipsis, "C<...>", as a
+placeholder for code that you haven't implemented yet.  This form of
+ellipsis, the unimplemented statement, should not be confused with the
+binary flip-flop C<...> operator.  One is a statement and the other an
+operator.  (Perl doesn't usually confuse them because usually Perl can tell
+whether it wants an operator or a statement, but see below for exceptions.)
+
+When Perl 5.12 or later encounters an ellipsis statement, it parses this
+without error, but if and when you should actually try to execute it, Perl
+throws an exception with the text C<Unimplemented>:
+
+    use v5.12;
+    sub unimplemented { ... }
+    eval { unimplemented() };
+    if ($@ =~ /^Unimplemented at /) {
+        say "I found an ellipsis!";
+    }
+
+You can only use the elliptical statement to stand in for a
+complete statement.  These examples of how the ellipsis works:
+
+    use v5.12;
+    { ... }
+    sub foo { ... }
+    ...;
+    eval { ... };
+    sub somemeth {
+        my $self = shift;
+        ...;
+    }
+    $x = do {
+        my $n;
+        ...;
+        say "Hurrah!";
+        $n;
+    };
+
+The elliptical statement cannot stand in for an expression that
+is part of a larger statement, since the C<...> is also the three-dot
+version of the flip-flop operator (see L<perlop/"Range Operators">).
+
+These examples of attempts to use an ellipsis are syntax errors:
+
+    use v5.12;
+
+    print ...;
+    open(my $fh, ">", "/dev/passwd") or ...;
+    if ($condition && ... ) { say "Howdy" };
+
+There are some cases where Perl can't immediately tell the difference
+between an expression and a statement.  For instance, the syntax for a
+block and an anonymous hash reference constructor look the same unless
+there's something in the braces to give Perl a hint.  The ellipsis is a
+syntax error if Perl doesn't guess that the C<{ ... }> is a block.  In that
+case, it doesn't think the C<...> is an ellipsis because it's expecting an
+expression instead of a statement:
+
+    @transformed = map { ... } @input;    # syntax error
+
+Inside your block, you can use a C<;> before the ellipsis to denote that the
+C<{ ... }> is a block and not a hash reference constructor.  Now the ellipsis
+works:
+
+    @transformed = map {; ... } @input;   # ';' disambiguates
+
+Note: Some folks colloquially refer to this bit of punctuation as a
+"yada-yada" or "triple-dot", but its true name
+is actually an ellipsis.
+
+=head2 PODs: Embedded Documentation
+X<POD> X<documentation>
+
+Perl has a mechanism for intermixing documentation with source code.
+While it's expecting the beginning of a new statement, if the compiler
+encounters a line that begins with an equal sign and a word, like this
+
+    =head1 Here There Be Pods!
+
+Then that text and all remaining text up through and including a line
+beginning with C<=cut> will be ignored.  The format of the intervening
+text is described in L<perlpod>.
+
+This allows you to intermix your source code
+and your documentation text freely, as in
+
+    =item snazzle($)
+
+    The snazzle() function will behave in the most spectacular
+    form that you can possibly imagine, not even excepting
+    cybernetic pyrotechnics.
+
+    =cut back to the compiler, nuff of this pod stuff!
+
+    sub snazzle($) {
+        my $thingie = shift;
+        .........
+    }
+
+Note that pod translators should look at only paragraphs beginning
+with a pod directive (it makes parsing easier), whereas the compiler
+actually knows to look for pod escapes even in the middle of a
+paragraph.  This means that the following secret stuff will be
+ignored by both the compiler and the translators.
+
+    $a=3;
+    =secret stuff
+     warn "Neither POD nor CODE!?"
+    =cut back
+    print "got $a\n";
+
+You probably shouldn't rely upon the C<warn()> being podded out forever.
+Not all pod translators are well-behaved in this regard, and perhaps
+the compiler will become pickier.
+
+One may also use pod directives to quickly comment out a section
+of code.
+
+=head2 Plain Old Comments (Not!)
+X<comment> X<line> X<#> X<preprocessor> X<eval>
+
+Perl can process line directives, much like the C preprocessor.  Using
+this, one can control Perl's idea of filenames and line numbers in
+error or warning messages (especially for strings that are processed
+with C<eval()>).  The syntax for this mechanism is almost the same as for
+most C preprocessors: it matches the regular expression
+
+    # example: '# line 42 "new_filename.plx"'
+    /^\#   \s*
+      line \s+ (\d+)   \s*
+      (?:\s("?)([^"]+)\g2)? \s*
+     $/x
+
+with C<$1> being the line number for the next line, and C<$3> being
+the optional filename (specified with or without quotes).  Note that
+no whitespace may precede the C<< # >>, unlike modern C preprocessors.
+
+There is a fairly obvious gotcha included with the line directive:
+Debuggers and profilers will only show the last source line to appear
+at a particular line number in a given file.  Care should be taken not
+to cause line number collisions in code you'd like to debug later.
+
+Here are some examples that you should be able to type into your command
+shell:
+
+    % perl
+    # line 200 "bzzzt"
+    # the '#' on the previous line must be the first char on line
+    die 'foo';
+    __END__
+    foo at bzzzt line 201.
+
+    % perl
+    # line 200 "bzzzt"
+    eval qq[\n#line 2001 ""\ndie 'foo']; print $@;
+    __END__
+    foo at - line 2001.
+
+    % perl
+    eval qq[\n#line 200 "foo bar"\ndie 'foo']; print $@;
+    __END__
+    foo at foo bar line 200.
+
+    % perl
+    # line 345 "goop"
+    eval "\n#line " . __LINE__ . ' "' . __FILE__ ."\"\ndie 'foo'";
+    print $@;
+    __END__
+    foo at goop line 345.
+
+=head2 Experimental Details on given and when
+
+As previously mentioned, the "switch" feature is considered highly
+experimental; it is subject to change with little notice.  In particular,
+C<when> has tricky behaviours that are expected to change to become less
+tricky in the future.  Do not rely upon its current (mis)implementation.
+Before Perl 5.18, C<given> also had tricky behaviours that you should still
+beware of if your code must run on older versions of Perl.
+
+Here is a longer example of C<given>:
+
+    use feature ":5.10";
+    given ($foo) {
+        when (undef) {
+            say '$foo is undefined';
+        }
+        when ("foo") {
+            say '$foo is the string "foo"';
+        }
+        when ([1,3,5,7,9]) {
+            say '$foo is an odd digit';
+            continue; # Fall through
+        }
+        when ($_ < 100) {
+            say '$foo is numerically less than 100';
+        }
+        when (\&complicated_check) {
+            say 'a complicated check for $foo is true';
+        }
+        default {
+            die q(I don't know what to do with $foo);
+        }
+    }
+
+Before Perl 5.18, C<given(EXPR)> assigned the value of I<EXPR> to
+merely a lexically scoped I<B<copy>> (!) of C<$_>, not a dynamically
+scoped alias the way C<foreach> does.  That made it similar to
+
+        do { my $_ = EXPR; ... }
+
+except that the block was automatically broken out of by a successful
+C<when> or an explicit C<break>.  Because it was only a copy, and because
+it was only lexically scoped, not dynamically scoped, you could not do the
+things with it that you are used to in a C<foreach> loop.  In particular,
+it did not work for arbitrary function calls if those functions might try
+to access $_.  Best stick to C<foreach> for that.
+
+Most of the power comes from the implicit smartmatching that can
+sometimes apply.  Most of the time, C<when(EXPR)> is treated as an
+implicit smartmatch of C<$_>, that is, C<$_ ~~ EXPR>.  (See
+L<perlop/"Smartmatch Operator"> for more information on smartmatching.)
+But when I<EXPR> is one of the 10 exceptional cases (or things like them)
+listed below, it is used directly as a boolean.
+
+=over 4
+
+=item Z<>1.
+
+A user-defined subroutine call or a method invocation.
+
+=item Z<>2.
+
+A regular expression match in the form of C</REGEX/>, C<$foo =~ /REGEX/>,
+or C<$foo =~ EXPR>.  Also, a negated regular expression match in
+the form C<!/REGEX/>, C<$foo !~ /REGEX/>, or C<$foo !~ EXPR>.
+
+=item Z<>3.
+
+A smart match that uses an explicit C<~~> operator, such as C<EXPR ~~ EXPR>.
+
+B<NOTE:> You will often have to use C<$c ~~ $_> because the default case
+uses C<$_ ~~ $c> , which is frequentlythe opposite of what you want.
+
+=item Z<>4.
+
+A boolean comparison operator such as C<$_ E<lt> 10> or C<$x eq "abc">.  The
+relational operators that this applies to are the six numeric comparisons
+(C<< < >>, C<< > >>, C<< <= >>, C<< >= >>, C<< == >>, and C<< != >>), and
+the six string comparisons (C<lt>, C<gt>, C<le>, C<ge>, C<eq>, and C<ne>).
+
+=item Z<>5.
+
+At least the three builtin functions C<defined(...)>, C<exists(...)>, and
+C<eof(...)>.  We might someday add more of these later if we think of them.
+
+=item Z<>6.
+
+A negated expression, whether C<!(EXPR)> or C<not(EXPR)>, or a logical
+exclusive-or, C<(EXPR1) xor (EXPR2)>.  The bitwise versions (C<~> and C<^>)
+are not included.
+
+=item Z<>7.
+
+A filetest operator, with exactly 4 exceptions: C<-s>, C<-M>, C<-A>, and
+C<-C>, as these return numerical values, not boolean ones.  The C<-z>
+filetest operator is not included in the exception list.
+
+=item Z<>8.
+
+The C<..> and C<...> flip-flop operators.  Note that the C<...> flip-flop
+operator is completely different from the C<...> elliptical statement
+just described.
+
+=back
+
+In those 8 cases above, the value of EXPR is used directly as a boolean, so
+no smartmatching is done.  You may think of C<when> as a smartsmartmatch.
+
+Furthermore, Perl inspects the operands of logical operators to
+decide whether to use smartmatching for each one by applying the
+above test to the operands:
+
+=over 4
+
+=item Z<>9.
+
+If EXPR is C<EXPR1 && EXPR2> or C<EXPR1 and EXPR2>, the test is applied
+I<recursively> to both EXPR1 and EXPR2.
+Only if I<both> operands also pass the
+test, I<recursively>, will the expression be treated as boolean.  Otherwise,
+smartmatching is used.
+
+=item Z<>10.
+
+If EXPR is C<EXPR1 || EXPR2>, C<EXPR1 // EXPR2>, or C<EXPR1 or EXPR2>, the
+test is applied I<recursively> to EXPR1 only (which might itself be a
+higher-precedence AND operator, for example, and thus subject to the
+previous rule), not to EXPR2.  If EXPR1 is to use smartmatching, then EXPR2
+also does so, no matter what EXPR2 contains.  But if EXPR2 does not get to
+use smartmatching, then the second argument will not be either.  This is
+quite different from the C<&&> case just described, so be careful.
+
+=back
+
+These rules are complicated, but the goal is for them to do what you want
+(even if you don't quite understand why they are doing it).  For example:
+
+    when (/^\d+$/ && $_ < 75) { ... }
+
+will be treated as a boolean match because the rules say both
+a regex match and an explicit test on C<$_> will be treated
+as boolean.
+
+Also:
+
+    when ([qw(foo bar)] && /baz/) { ... }
+
+will use smartmatching because only I<one> of the operands is a boolean:
+the other uses smartmatching, and that wins.
+
+Further:
+
+    when ([qw(foo bar)] || /^baz/) { ... }
+
+will use smart matching (only the first operand is considered), whereas
+
+    when (/^baz/ || [qw(foo bar)]) { ... }
+
+will test only the regex, which causes both operands to be
+treated as boolean.  Watch out for this one, then, because an
+arrayref is always a true value, which makes it effectively
+redundant.  Not a good idea.
+
+Tautologous boolean operators are still going to be optimized
+away.  Don't be tempted to write
+
+    when ("foo" or "bar") { ... }
+
+This will optimize down to C<"foo">, so C<"bar"> will never be considered (even
+though the rules say to use a smartmatch
+on C<"foo">).  For an alternation like
+this, an array ref will work, because this will instigate smartmatching:
+
+    when ([qw(foo bar)] { ... }
+
+This is somewhat equivalent to the C-style switch statement's fallthrough
+functionality (not to be confused with I<Perl's> fallthrough
+functionality--see below), wherein the same block is used for several
+C<case> statements.
+
+Another useful shortcut is that, if you use a literal array or hash as the
+argument to C<given>, it is turned into a reference.  So C<given(@foo)> is
+the same as C<given(\@foo)>, for example.
+
+C<default> behaves exactly like C<when(1 == 1)>, which is
+to say that it always matches.
+
+=head3 Breaking out
+
+You can use the C<break> keyword to break out of the enclosing
+C<given> block.  Every C<when> block is implicitly ended with
+a C<break>.
+
+=head3 Fall-through
+
+You can use the C<continue> keyword to fall through from one
+case to the next:
+
+    given($foo) {
+        when (/x/) { say '$foo contains an x'; continue }
+        when (/y/) { say '$foo contains a y'            }
+        default    { say '$foo does not contain a y'    }
+    }
+
+=head3 Return value
+
+When a C<given> statement is also a valid expression (for example,
+when it's the last statement of a block), it evaluates to:
+
+=over 4
+
+=item *
+
+An empty list as soon as an explicit C<break> is encountered.
+
+=item *
+
+The value of the last evaluated expression of the successful
+C<when>/C<default> clause, if there happens to be one.
+
+=item *
+
+The value of the last evaluated expression of the C<given> block if no
+condition is true.
+
+=back
+
+In both last cases, the last expression is evaluated in the context that
+was applied to the C<given> block.
+
+Note that, unlike C<if> and C<unless>, failed C<when> statements always
+evaluate to an empty list.
+
+    my $price = do {
+        given ($item) {
+            when (["pear", "apple"]) { 1 }
+            break when "vote";      # My vote cannot be bought
+            1e10  when /Mona Lisa/;
+            "unknown";
+        }
+    };
+
+Currently, C<given> blocks can't always
+be used as proper expressions.  This
+may be addressed in a future version of Perl.
+
+=head3 Switching in a loop
+
+Instead of using C<given()>, you can use a C<foreach()> loop.
+For example, here's one way to count how many times a particular
+string occurs in an array:
+
+    use v5.10.1;
+    my $count = 0;
+    for (@array) {
+        when ("foo") { ++$count }
+    }
+    print "\@array contains $count copies of 'foo'\n";
+
+Or in a more recent version:
+
+    use v5.14;
+    my $count = 0;
+    for (@array) {
+        ++$count when "foo";
+    }
+    print "\@array contains $count copies of 'foo'\n";
+
+At the end of all C<when> blocks, there is an implicit C<next>.
+You can override that with an explicit C<last> if you're
+interested in only the first match alone.
+
+This doesn't work if you explicitly specify a loop variable, as
+in C<for $item (@array)>.  You have to use the default variable C<$_>.
+
+=head3 Differences from Perl 6
+
+The Perl 5 smartmatch and C<given>/C<when> constructs are not compatible
+with their Perl 6 analogues.  The most visible difference and least
+important difference is that, in Perl 5, parentheses are required around
+the argument to C<given()> and C<when()> (except when this last one is used
+as a statement modifier).  Parentheses in Perl 6 are always optional in a
+control construct such as C<if()>, C<while()>, or C<when()>; they can't be
+made optional in Perl 5 without a great deal of potential confusion,
+because Perl 5 would parse the expression
+
+    given $foo {
+        ...
+    }
+
+as though the argument to C<given> were an element of the hash
+C<%foo>, interpreting the braces as hash-element syntax.
+
+However, their are many, many other differences.  For example,
+this works in Perl 5:
+
+    use v5.12;
+    my @primary = ("red", "blue", "green");
+
+    if (@primary ~~ "red") {
+        say "primary smartmatches red";
+    }
+
+    if ("red" ~~ @primary) {
+        say "red smartmatches primary";
+    }
+
+    say "that's all, folks!";
+
+But it doesn't work at all in Perl 6.  Instead, you should
+use the (parallelizable) C<any> operator:
+
+   if any(@primary) eq "red" {
+       say "primary smartmatches red";
+   }
+
+   if "red" eq any(@primary) {
+       say "red smartmatches primary";
+   }
+
+The table of smartmatches in L<perlop/"Smartmatch Operator"> is not
+identical to that proposed by the Perl 6 specification, mainly due to
+differences between Perl 6's and Perl 5's data models, but also because
+the Perl 6 spec has changed since Perl 5 rushed into early adoption.
+
+In Perl 6, C<when()> will always do an implicit smartmatch with its
+argument, while in Perl 5 it is convenient (albeit potentially confusing) to
+suppress this implicit smartmatch in various rather loosely-defined
+situations, as roughly outlined above.  (The difference is largely because
+Perl 5 does not have, even internally, a boolean type.)
+
+=cut
diff --git a/lib/5.24.1/pod/perlsynology.pod b/lib/5.24.1/pod/perlsynology.pod
new file mode 100644
index 00000000..b1ef60b8
--- /dev/null
+++ b/lib/5.24.1/pod/perlsynology.pod
@@ -0,0 +1,260 @@
+If you read this file _as_is_, just ignore the funny characters you see.
+It is written in the POD format (see pod/perlpod.pod) which is specially
+designed to be readable as is. But if you have been into Perl you
+probably already know this.
+
+=head1 NAME
+
+perlsynology - Perl 5 on Synology DSM systems
+
+=head1 DESCRIPTION
+
+Synology manufactures a vast number of Network Attached Storage (NAS)
+devices that are very popular in large organisations as well as small
+businesses and homes.
+
+The NAS systems are equipped with Synology Disk Storage Manager (DSM),
+which is a trimmed-down Linux system enhanced with several tools for
+managing the NAS. There are several flavours of hardware: Marvell
+Armada (ARMv5tel, ARMv7l), Intel Atom (i686, x86_64), Freescale QorIQ
+(PPC), and more. For a full list see the
+L<Synology FAQ|http://forum.synology.com/wiki/index.php/What_kind_of_CPU_does_my_NAS_have>.
+
+Since it is based on Linux, the NAS can run many popular Linux
+software packages, including Perl. In fact, Synology provides a
+ready-to-install package for Perl, depending on the version of DSM
+the installed perl ranges from 5.8.6 on DSM-4.3 to 5.18.4 on DSM-5.1.
+
+There is an active user community that provides many software packages
+for the Synology DSM systems; at the time of writing this document
+they provide Perl version 5.18.4.
+
+This document describes various features of Synology DSM operating
+system that will affect how Perl 5 (hereafter just Perl) is
+configured, compiled and/or runs. It has been compiled and verified by
+Johan Vromans for the Synology DS413 (QorIQ), with feedback from
+H.Merijn Brand (DS213, ARMv5tel).
+
+=head2 Setting up the build environment
+
+As DSM is a trimmed-down Linux system, it lacks many of the tools and
+libraries commonly found on Linux. The basic tools like sh, cp, rm,
+etc. are implemented using
+L<BusyBox|http://en.wikipedia.org/wiki/BusyBox>.
+
+=over 4
+
+=item *
+
+Using your favourite browser open the DSM management page and start
+the Package Center.
+
+=item *
+
+If you want to smoke test Perl, install C<Perl>.
+
+=item *
+
+In Settings, add the following Package Sources:
+
+  http://www.cphub.net
+  http://packages.quadrat4.de
+
+=item *
+
+Still in Settings, in Channel Update, select Beta Channel.
+
+=item *
+
+Press Refresh. In the left panel the item "Community" will appear.
+Click it. Select "Bootstrap Installer Beta" and install it.
+
+=item *
+
+Likewise, install "iPKGui Beta".
+
+The application window should now show an icon for iPKGui.
+
+=item *
+
+Start iPKGui. Install the packages C<make>, C<gcc> and C<coreutils>.
+
+If you want to smoke test Perl, install C<patch>.
+
+=back
+
+The next step is to add some symlinks to system libraries. For
+example, the development software expect a library C<libm.so> that
+normally is a symlink to C<libm.so.6>. Synology only provides the
+latter and not the symlink.
+
+Here the actual architecture of the Synology system matters. You have
+to find out where the gcc libraries have been installed. Look in /opt
+for a directory similar to arm-none-linux-gnueab or
+powerpc-linux-gnuspe. In the instructions below I'll use
+powerpc-linux-gnuspe as an example.
+
+=over 4
+
+=item *
+
+On the DSM management page start the Control Panel.
+
+=item *
+
+Click Terminal, and enable SSH service.
+
+=item *
+
+Close Terminal and the Control Panel.
+
+=item *
+
+Open a shell on the Synology using ssh and become root.
+
+=item *
+
+Execute the following commands:
+
+  cd /lib
+  ln -s libm.so.6 libm.so
+  ln -s libcrypt.so.1 libcrypt.so
+  ln -s libdl.so.2 libdl.so
+  cd /opt/powerpc-linux-gnuspe/lib  (or
+                                    /opt/arm-none-linux-gnueabi/lib)
+  ln -s /lib/libdl.so.2 libdl.so
+
+=back
+
+B<WARNING:> When you perform a system software upgrade, these links
+will disappear and need to be re-established.
+
+=head2 Compiling Perl 5
+
+When the build environment has been set up, building and testing Perl
+is straightforward. The only thing you need to do is download the
+sources as usual, and add a file Policy.sh as follows:
+
+  # Administrivia.
+  perladmin="your.email@goes.here"
+
+  # Install Perl in a tree in /opt/perl instead of /opt/bin.
+  prefix=/opt/perl
+
+  # Select the compiler. Note that there is no 'cc' alias or link.
+  cc=gcc
+
+  # Build flags.
+  ccflags="-DDEBUGGING"
+
+  # Library and include paths.
+  libpth="/lib"
+  locincpth="/opt/include"
+  loclibpth="/lib"
+
+You may want to create the destination directory and give it the right
+permissions before installing, thus eliminating the need to build Perl
+as a super user.
+
+In the directory where you unpacked the sources, issue the familiar
+commands:
+
+  ./Configure -des
+  make
+  make test
+  make install
+
+=head2 Known problems
+
+=head3 Configure
+
+No known problems yet
+
+=head3 Build
+
+=over 4
+
+=item Error message "No error definitions found".
+
+This error is generated when it is not possible to find the local
+definitions for error codes, due to the uncommon structure of the
+Synology file system.
+
+This error was fixed in the Perl development git for version 5.19,
+commit 7a8f1212e5482613c8a5b0402528e3105b26ff24.
+
+=back
+
+=head3 Failing tests
+
+=over 4
+
+=item F<ext/DynaLoader/t/DynaLoader.t>
+
+One subtest fails due to the uncommon structure of the Synology file
+system. The file F</lib/glibc.so> is missing.
+
+B<WARNING:> Do not symlink F</lib/glibc.so.6> to F</lib/glibc.so> or
+some system components will start to fail.
+
+=back
+
+=head2 Smoke testing Perl 5
+
+If building completes successfully, you can set up smoke testing as
+described in the Test::Smoke documentation.
+
+For smoke testing you need a running Perl. You can either install the
+Synology supplied package for Perl 5.8.6, or build and install your
+own, much more recent version.
+
+Note that I could not run successful smokes when initiated by the
+Synology Task Scheduler. I resorted to initiating the smokes via a
+cron job run on another system, using ssh:
+
+  ssh nas1 wrk/Test-Smoke/smoke/smokecurrent.sh
+
+=head3 Local patches
+
+When local patches are applied with smoke testing, the test driver
+will automatically request regeneration of certain tables after the
+patches are applied. The Synology supplied Perl 5.8.6 (at least on the
+DS413) B<is NOT capable> of generating these tables. It will generate
+opcodes with bogus values, causing the build to fail.
+
+You can prevent regeneration by adding the setting
+
+  'flags' => 0,
+
+to the smoke config, or by adding another patch that inserts
+
+  exit 0 if $] == 5.008006;
+
+in the beginning of the C<regen.pl> program.
+
+=head2 Adding libraries
+
+The above procedure describes a basic environment and hence results in
+a basic Perl. If you want to add additional libraries to Perl, you may
+need some extra settings.
+
+For example, the basic Perl does not have any of the DB libraries (db,
+dbm, ndbm, gdsm). You can add these using iPKGui, however, you need to
+set environment variable LD_LIBRARY_PATH to the appropriate value:
+
+  LD_LIBRARY_PATH=/lib:/opt/lib
+  export LD_LIBRARY_PATH
+
+This setting needs to be in effect while Perl is built, but also when
+the programs are run.
+
+=head1 REVISION
+
+March 2015, for Synology DSM 5.1.5022.
+
+=head1 AUTHOR
+
+Johan Vromans <jvromans@squirrel.nl>
+H. Merijn Brand <h.m.brand@xs4all.nl>
+
+=cut
diff --git a/lib/5.24.1/pod/perlthrtut.pod b/lib/5.24.1/pod/perlthrtut.pod
new file mode 100644
index 00000000..f5e35a3a
--- /dev/null
+++ b/lib/5.24.1/pod/perlthrtut.pod
@@ -0,0 +1,1181 @@
+=encoding utf8
+
+=head1 NAME
+
+perlthrtut - Tutorial on threads in Perl
+
+=head1 DESCRIPTION
+
+This tutorial describes the use of Perl interpreter threads (sometimes
+referred to as I<ithreads>).  In this
+model, each thread runs in its own Perl interpreter, and any data sharing
+between threads must be explicit.  The user-level interface for I<ithreads>
+uses the L<threads> class.
+
+B<NOTE>: There was another older Perl threading flavor called the 5.005 model
+that used the L<threads> class.  This old model was known to have problems, is
+deprecated, and was removed for release 5.10.  You are
+strongly encouraged to migrate any existing 5.005 threads code to the new
+model as soon as possible.
+
+You can see which (or neither) threading flavour you have by
+running C<perl -V> and looking at the C<Platform> section.
+If you have C<useithreads=define> you have ithreads, if you
+have C<use5005threads=define> you have 5.005 threads.
+If you have neither, you don't have any thread support built in.
+If you have both, you are in trouble.
+
+The L<threads> and L<threads::shared> modules are included in the core Perl
+distribution.  Additionally, they are maintained as a separate modules on
+CPAN, so you can check there for any updates.
+
+=head1 What Is A Thread Anyway?
+
+A thread is a flow of control through a program with a single
+execution point.
+
+Sounds an awful lot like a process, doesn't it? Well, it should.
+Threads are one of the pieces of a process.  Every process has at least
+one thread and, up until now, every process running Perl had only one
+thread.  With 5.8, though, you can create extra threads.  We're going
+to show you how, when, and why.
+
+=head1 Threaded Program Models
+
+There are three basic ways that you can structure a threaded
+program.  Which model you choose depends on what you need your program
+to do.  For many non-trivial threaded programs, you'll need to choose
+different models for different pieces of your program.
+
+=head2 Boss/Worker
+
+The boss/worker model usually has one I<boss> thread and one or more
+I<worker> threads.  The boss thread gathers or generates tasks that need
+to be done, then parcels those tasks out to the appropriate worker
+thread.
+
+This model is common in GUI and server programs, where a main thread
+waits for some event and then passes that event to the appropriate
+worker threads for processing.  Once the event has been passed on, the
+boss thread goes back to waiting for another event.
+
+The boss thread does relatively little work.  While tasks aren't
+necessarily performed faster than with any other method, it tends to
+have the best user-response times.
+
+=head2 Work Crew
+
+In the work crew model, several threads are created that do
+essentially the same thing to different pieces of data.  It closely
+mirrors classical parallel processing and vector processors, where a
+large array of processors do the exact same thing to many pieces of
+data.
+
+This model is particularly useful if the system running the program
+will distribute multiple threads across different processors.  It can
+also be useful in ray tracing or rendering engines, where the
+individual threads can pass on interim results to give the user visual
+feedback.
+
+=head2 Pipeline
+
+The pipeline model divides up a task into a series of steps, and
+passes the results of one step on to the thread processing the
+next.  Each thread does one thing to each piece of data and passes the
+results to the next thread in line.
+
+This model makes the most sense if you have multiple processors so two
+or more threads will be executing in parallel, though it can often
+make sense in other contexts as well.  It tends to keep the individual
+tasks small and simple, as well as allowing some parts of the pipeline
+to block (on I/O or system calls, for example) while other parts keep
+going.  If you're running different parts of the pipeline on different
+processors you may also take advantage of the caches on each
+processor.
+
+This model is also handy for a form of recursive programming where,
+rather than having a subroutine call itself, it instead creates
+another thread.  Prime and Fibonacci generators both map well to this
+form of the pipeline model. (A version of a prime number generator is
+presented later on.)
+
+=head1 What kind of threads are Perl threads?
+
+If you have experience with other thread implementations, you might
+find that things aren't quite what you expect.  It's very important to
+remember when dealing with Perl threads that I<Perl Threads Are Not X
+Threads> for all values of X.  They aren't POSIX threads, or
+DecThreads, or Java's Green threads, or Win32 threads.  There are
+similarities, and the broad concepts are the same, but if you start
+looking for implementation details you're going to be either
+disappointed or confused.  Possibly both.
+
+This is not to say that Perl threads are completely different from
+everything that's ever come before. They're not.  Perl's threading
+model owes a lot to other thread models, especially POSIX.  Just as
+Perl is not C, though, Perl threads are not POSIX threads.  So if you
+find yourself looking for mutexes, or thread priorities, it's time to
+step back a bit and think about what you want to do and how Perl can
+do it.
+
+However, it is important to remember that Perl threads cannot magically
+do things unless your operating system's threads allow it. So if your
+system blocks the entire process on C<sleep()>, Perl usually will, as well.
+
+B<Perl Threads Are Different.>
+
+=head1 Thread-Safe Modules
+
+The addition of threads has changed Perl's internals
+substantially. There are implications for people who write
+modules with XS code or external libraries. However, since Perl data is
+not shared among threads by default, Perl modules stand a high chance of
+being thread-safe or can be made thread-safe easily.  Modules that are not
+tagged as thread-safe should be tested or code reviewed before being used
+in production code.
+
+Not all modules that you might use are thread-safe, and you should
+always assume a module is unsafe unless the documentation says
+otherwise.  This includes modules that are distributed as part of the
+core.  Threads are a relatively new feature, and even some of the standard
+modules aren't thread-safe.
+
+Even if a module is thread-safe, it doesn't mean that the module is optimized
+to work well with threads. A module could possibly be rewritten to utilize
+the new features in threaded Perl to increase performance in a threaded
+environment.
+
+If you're using a module that's not thread-safe for some reason, you
+can protect yourself by using it from one, and only one thread at all.
+If you need multiple threads to access such a module, you can use semaphores and
+lots of programming discipline to control access to it.  Semaphores
+are covered in L</"Basic semaphores">.
+
+See also L</"Thread-Safety of System Libraries">.
+
+=head1 Thread Basics
+
+The L<threads> module provides the basic functions you need to write
+threaded programs.  In the following sections, we'll cover the basics,
+showing you what you need to do to create a threaded program.   After
+that, we'll go over some of the features of the L<threads> module that
+make threaded programming easier.
+
+=head2 Basic Thread Support
+
+Thread support is a Perl compile-time option. It's something that's
+turned on or off when Perl is built at your site, rather than when
+your programs are compiled. If your Perl wasn't compiled with thread
+support enabled, then any attempt to use threads will fail.
+
+Your programs can use the Config module to check whether threads are
+enabled. If your program can't run without them, you can say something
+like:
+
+    use Config;
+    $Config{useithreads} or
+        die('Recompile Perl with threads to run this program.');
+
+A possibly-threaded program using a possibly-threaded module might
+have code like this:
+
+    use Config;
+    use MyMod;
+
+    BEGIN {
+        if ($Config{useithreads}) {
+            # We have threads
+            require MyMod_threaded;
+            import MyMod_threaded;
+        } else {
+            require MyMod_unthreaded;
+            import MyMod_unthreaded;
+        }
+    }
+
+Since code that runs both with and without threads is usually pretty
+messy, it's best to isolate the thread-specific code in its own
+module.  In our example above, that's what C<MyMod_threaded> is, and it's
+only imported if we're running on a threaded Perl.
+
+=head2 A Note about the Examples
+
+In a real situation, care should be taken that all threads are finished
+executing before the program exits.  That care has B<not> been taken in these
+examples in the interest of simplicity.  Running these examples I<as is> will
+produce error messages, usually caused by the fact that there are still
+threads running when the program exits.  You should not be alarmed by this.
+
+=head2 Creating Threads
+
+The L<threads> module provides the tools you need to create new
+threads.  Like any other module, you need to tell Perl that you want to use
+it; C<use threads;> imports all the pieces you need to create basic
+threads.
+
+The simplest, most straightforward way to create a thread is with C<create()>:
+
+    use threads;
+
+    my $thr = threads->create(\&sub1);
+
+    sub sub1 {
+        print("In the thread\n");
+    }
+
+The C<create()> method takes a reference to a subroutine and creates a new
+thread that starts executing in the referenced subroutine.  Control
+then passes both to the subroutine and the caller.
+
+If you need to, your program can pass parameters to the subroutine as
+part of the thread startup.  Just include the list of parameters as
+part of the C<threads-E<gt>create()> call, like this:
+
+    use threads;
+
+    my $Param3 = 'foo';
+    my $thr1 = threads->create(\&sub1, 'Param 1', 'Param 2', $Param3);
+    my @ParamList = (42, 'Hello', 3.14);
+    my $thr2 = threads->create(\&sub1, @ParamList);
+    my $thr3 = threads->create(\&sub1, qw(Param1 Param2 Param3));
+
+    sub sub1 {
+        my @InboundParameters = @_;
+        print("In the thread\n");
+        print('Got parameters >', join('<>',@InboundParameters), "<\n");
+    }
+
+The last example illustrates another feature of threads.  You can spawn
+off several threads using the same subroutine.  Each thread executes
+the same subroutine, but in a separate thread with a separate
+environment and potentially separate arguments.
+
+C<new()> is a synonym for C<create()>.
+
+=head2 Waiting For A Thread To Exit
+
+Since threads are also subroutines, they can return values.  To wait
+for a thread to exit and extract any values it might return, you can
+use the C<join()> method:
+
+    use threads;
+
+    my ($thr) = threads->create(\&sub1);
+
+    my @ReturnData = $thr->join();
+    print('Thread returned ', join(', ', @ReturnData), "\n");
+
+    sub sub1 { return ('Fifty-six', 'foo', 2); }
+
+In the example above, the C<join()> method returns as soon as the thread
+ends.  In addition to waiting for a thread to finish and gathering up
+any values that the thread might have returned, C<join()> also performs
+any OS cleanup necessary for the thread.  That cleanup might be
+important, especially for long-running programs that spawn lots of
+threads.  If you don't want the return values and don't want to wait
+for the thread to finish, you should call the C<detach()> method
+instead, as described next.
+
+NOTE: In the example above, the thread returns a list, thus necessitating
+that the thread creation call be made in list context (i.e., C<my ($thr)>).
+See L<< threads/"$thr->join()" >> and L<threads/"THREAD CONTEXT"> for more
+details on thread context and return values.
+
+=head2 Ignoring A Thread
+
+C<join()> does three things: it waits for a thread to exit, cleans up
+after it, and returns any data the thread may have produced.  But what
+if you're not interested in the thread's return values, and you don't
+really care when the thread finishes? All you want is for the thread
+to get cleaned up after when it's done.
+
+In this case, you use the C<detach()> method.  Once a thread is detached,
+it'll run until it's finished; then Perl will clean up after it
+automatically.
+
+    use threads;
+
+    my $thr = threads->create(\&sub1);   # Spawn the thread
+
+    $thr->detach();   # Now we officially don't care any more
+
+    sleep(15);        # Let thread run for awhile
+
+    sub sub1 {
+        my $count = 0;
+        while (1) {
+            $count++;
+            print("\$count is $count\n");
+            sleep(1);
+        }
+    }
+
+Once a thread is detached, it may not be joined, and any return data
+that it might have produced (if it was done and waiting for a join) is
+lost.
+
+C<detach()> can also be called as a class method to allow a thread to
+detach itself:
+
+    use threads;
+
+    my $thr = threads->create(\&sub1);
+
+    sub sub1 {
+        threads->detach();
+        # Do more work
+    }
+
+=head2 Process and Thread Termination
+
+With threads one must be careful to make sure they all have a chance to
+run to completion, assuming that is what you want.
+
+An action that terminates a process will terminate I<all> running
+threads.  die() and exit() have this property,
+and perl does an exit when the main thread exits,
+perhaps implicitly by falling off the end of your code,
+even if that's not what you want.
+
+As an example of this case, this code prints the message
+"Perl exited with active threads: 2 running and unjoined":
+
+    use threads;
+    my $thr1 = threads->new(\&thrsub, "test1");
+    my $thr2 = threads->new(\&thrsub, "test2");
+    sub thrsub {
+       my ($message) = @_;
+       sleep 1;
+       print "thread $message\n";
+    }
+
+But when the following lines are added at the end:
+
+    $thr1->join();
+    $thr2->join();
+
+it prints two lines of output, a perhaps more useful outcome.
+
+=head1 Threads And Data
+
+Now that we've covered the basics of threads, it's time for our next
+topic: Data.  Threading introduces a couple of complications to data
+access that non-threaded programs never need to worry about.
+
+=head2 Shared And Unshared Data
+
+The biggest difference between Perl I<ithreads> and the old 5.005 style
+threading, or for that matter, to most other threading systems out there,
+is that by default, no data is shared. When a new Perl thread is created,
+all the data associated with the current thread is copied to the new
+thread, and is subsequently private to that new thread!
+This is similar in feel to what happens when a Unix process forks,
+except that in this case, the data is just copied to a different part of
+memory within the same process rather than a real fork taking place.
+
+To make use of threading, however, one usually wants the threads to share
+at least some data between themselves. This is done with the
+L<threads::shared> module and the C<:shared> attribute:
+
+    use threads;
+    use threads::shared;
+
+    my $foo :shared = 1;
+    my $bar = 1;
+    threads->create(sub { $foo++; $bar++; })->join();
+
+    print("$foo\n");  # Prints 2 since $foo is shared
+    print("$bar\n");  # Prints 1 since $bar is not shared
+
+In the case of a shared array, all the array's elements are shared, and for
+a shared hash, all the keys and values are shared. This places
+restrictions on what may be assigned to shared array and hash elements: only
+simple values or references to shared variables are allowed - this is
+so that a private variable can't accidentally become shared. A bad
+assignment will cause the thread to die. For example:
+
+    use threads;
+    use threads::shared;
+
+    my $var          = 1;
+    my $svar :shared = 2;
+    my %hash :shared;
+
+    ... create some threads ...
+
+    $hash{a} = 1;       # All threads see exists($hash{a})
+                        # and $hash{a} == 1
+    $hash{a} = $var;    # okay - copy-by-value: same effect as previous
+    $hash{a} = $svar;   # okay - copy-by-value: same effect as previous
+    $hash{a} = \$svar;  # okay - a reference to a shared variable
+    $hash{a} = \$var;   # This will die
+    delete($hash{a});   # okay - all threads will see !exists($hash{a})
+
+Note that a shared variable guarantees that if two or more threads try to
+modify it at the same time, the internal state of the variable will not
+become corrupted. However, there are no guarantees beyond this, as
+explained in the next section.
+
+=head2 Thread Pitfalls: Races
+
+While threads bring a new set of useful tools, they also bring a
+number of pitfalls.  One pitfall is the race condition:
+
+    use threads;
+    use threads::shared;
+
+    my $x :shared = 1;
+    my $thr1 = threads->create(\&sub1);
+    my $thr2 = threads->create(\&sub2);
+
+    $thr1->join();
+    $thr2->join();
+    print("$x\n");
+
+    sub sub1 { my $foo = $x; $x = $foo + 1; }
+    sub sub2 { my $bar = $x; $x = $bar + 1; }
+
+What do you think C<$x> will be? The answer, unfortunately, is I<it
+depends>. Both C<sub1()> and C<sub2()> access the global variable C<$x>, once
+to read and once to write.  Depending on factors ranging from your
+thread implementation's scheduling algorithm to the phase of the moon,
+C<$x> can be 2 or 3.
+
+Race conditions are caused by unsynchronized access to shared
+data.  Without explicit synchronization, there's no way to be sure that
+nothing has happened to the shared data between the time you access it
+and the time you update it.  Even this simple code fragment has the
+possibility of error:
+
+    use threads;
+    my $x :shared = 2;
+    my $y :shared;
+    my $z :shared;
+    my $thr1 = threads->create(sub { $y = $x; $x = $y + 1; });
+    my $thr2 = threads->create(sub { $z = $x; $x = $z + 1; });
+    $thr1->join();
+    $thr2->join();
+
+Two threads both access C<$x>.  Each thread can potentially be interrupted
+at any point, or be executed in any order.  At the end, C<$x> could be 3
+or 4, and both C<$y> and C<$z> could be 2 or 3.
+
+Even C<$x += 5> or C<$x++> are not guaranteed to be atomic.
+
+Whenever your program accesses data or resources that can be accessed
+by other threads, you must take steps to coordinate access or risk
+data inconsistency and race conditions. Note that Perl will protect its
+internals from your race conditions, but it won't protect you from you.
+
+=head1 Synchronization and control
+
+Perl provides a number of mechanisms to coordinate the interactions
+between themselves and their data, to avoid race conditions and the like.
+Some of these are designed to resemble the common techniques used in thread
+libraries such as C<pthreads>; others are Perl-specific. Often, the
+standard techniques are clumsy and difficult to get right (such as
+condition waits). Where possible, it is usually easier to use Perlish
+techniques such as queues, which remove some of the hard work involved.
+
+=head2 Controlling access: lock()
+
+The C<lock()> function takes a shared variable and puts a lock on it.
+No other thread may lock the variable until the variable is unlocked
+by the thread holding the lock. Unlocking happens automatically
+when the locking thread exits the block that contains the call to the
+C<lock()> function.  Using C<lock()> is straightforward: This example has
+several threads doing some calculations in parallel, and occasionally
+updating a running total:
+
+    use threads;
+    use threads::shared;
+
+    my $total :shared = 0;
+
+    sub calc {
+        while (1) {
+            my $result;
+            # (... do some calculations and set $result ...)
+            {
+                lock($total);  # Block until we obtain the lock
+                $total += $result;
+            } # Lock implicitly released at end of scope
+            last if $result == 0;
+        }
+    }
+
+    my $thr1 = threads->create(\&calc);
+    my $thr2 = threads->create(\&calc);
+    my $thr3 = threads->create(\&calc);
+    $thr1->join();
+    $thr2->join();
+    $thr3->join();
+    print("total=$total\n");
+
+C<lock()> blocks the thread until the variable being locked is
+available.  When C<lock()> returns, your thread can be sure that no other
+thread can lock that variable until the block containing the
+lock exits.
+
+It's important to note that locks don't prevent access to the variable
+in question, only lock attempts.  This is in keeping with Perl's
+longstanding tradition of courteous programming, and the advisory file
+locking that C<flock()> gives you.
+
+You may lock arrays and hashes as well as scalars.  Locking an array,
+though, will not block subsequent locks on array elements, just lock
+attempts on the array itself.
+
+Locks are recursive, which means it's okay for a thread to
+lock a variable more than once.  The lock will last until the outermost
+C<lock()> on the variable goes out of scope. For example:
+
+    my $x :shared;
+    doit();
+
+    sub doit {
+        {
+            {
+                lock($x); # Wait for lock
+                lock($x); # NOOP - we already have the lock
+                {
+                    lock($x); # NOOP
+                    {
+                        lock($x); # NOOP
+                        lockit_some_more();
+                    }
+                }
+            } # *** Implicit unlock here ***
+        }
+    }
+
+    sub lockit_some_more {
+        lock($x); # NOOP
+    } # Nothing happens here
+
+Note that there is no C<unlock()> function - the only way to unlock a
+variable is to allow it to go out of scope.
+
+A lock can either be used to guard the data contained within the variable
+being locked, or it can be used to guard something else, like a section
+of code. In this latter case, the variable in question does not hold any
+useful data, and exists only for the purpose of being locked. In this
+respect, the variable behaves like the mutexes and basic semaphores of
+traditional thread libraries.
+
+=head2 A Thread Pitfall: Deadlocks
+
+Locks are a handy tool to synchronize access to data, and using them
+properly is the key to safe shared data.  Unfortunately, locks aren't
+without their dangers, especially when multiple locks are involved.
+Consider the following code:
+
+    use threads;
+
+    my $x :shared = 4;
+    my $y :shared = 'foo';
+    my $thr1 = threads->create(sub {
+        lock($x);
+        sleep(20);
+        lock($y);
+    });
+    my $thr2 = threads->create(sub {
+        lock($y);
+        sleep(20);
+        lock($x);
+    });
+
+This program will probably hang until you kill it.  The only way it
+won't hang is if one of the two threads acquires both locks
+first.  A guaranteed-to-hang version is more complicated, but the
+principle is the same.
+
+The first thread will grab a lock on C<$x>, then, after a pause during which
+the second thread has probably had time to do some work, try to grab a
+lock on C<$y>.  Meanwhile, the second thread grabs a lock on C<$y>, then later
+tries to grab a lock on C<$x>.  The second lock attempt for both threads will
+block, each waiting for the other to release its lock.
+
+This condition is called a deadlock, and it occurs whenever two or
+more threads are trying to get locks on resources that the others
+own.  Each thread will block, waiting for the other to release a lock
+on a resource.  That never happens, though, since the thread with the
+resource is itself waiting for a lock to be released.
+
+There are a number of ways to handle this sort of problem.  The best
+way is to always have all threads acquire locks in the exact same
+order.  If, for example, you lock variables C<$x>, C<$y>, and C<$z>, always lock
+C<$x> before C<$y>, and C<$y> before C<$z>.  It's also best to hold on to locks for
+as short a period of time to minimize the risks of deadlock.
+
+The other synchronization primitives described below can suffer from
+similar problems.
+
+=head2 Queues: Passing Data Around
+
+A queue is a special thread-safe object that lets you put data in one
+end and take it out the other without having to worry about
+synchronization issues.  They're pretty straightforward, and look like
+this:
+
+    use threads;
+    use Thread::Queue;
+
+    my $DataQueue = Thread::Queue->new();
+    my $thr = threads->create(sub {
+        while (my $DataElement = $DataQueue->dequeue()) {
+            print("Popped $DataElement off the queue\n");
+        }
+    });
+
+    $DataQueue->enqueue(12);
+    $DataQueue->enqueue("A", "B", "C");
+    sleep(10);
+    $DataQueue->enqueue(undef);
+    $thr->join();
+
+You create the queue with C<Thread::Queue-E<gt>new()>.  Then you can
+add lists of scalars onto the end with C<enqueue()>, and pop scalars off
+the front of it with C<dequeue()>.  A queue has no fixed size, and can grow
+as needed to hold everything pushed on to it.
+
+If a queue is empty, C<dequeue()> blocks until another thread enqueues
+something.  This makes queues ideal for event loops and other
+communications between threads.
+
+=head2 Semaphores: Synchronizing Data Access
+
+Semaphores are a kind of generic locking mechanism. In their most basic
+form, they behave very much like lockable scalars, except that they
+can't hold data, and that they must be explicitly unlocked. In their
+advanced form, they act like a kind of counter, and can allow multiple
+threads to have the I<lock> at any one time.
+
+=head2 Basic semaphores
+
+Semaphores have two methods, C<down()> and C<up()>: C<down()> decrements the resource
+count, while C<up()> increments it. Calls to C<down()> will block if the
+semaphore's current count would decrement below zero.  This program
+gives a quick demonstration:
+
+    use threads;
+    use Thread::Semaphore;
+
+    my $semaphore = Thread::Semaphore->new();
+    my $GlobalVariable :shared = 0;
+
+    $thr1 = threads->create(\&sample_sub, 1);
+    $thr2 = threads->create(\&sample_sub, 2);
+    $thr3 = threads->create(\&sample_sub, 3);
+
+    sub sample_sub {
+        my $SubNumber = shift(@_);
+        my $TryCount = 10;
+        my $LocalCopy;
+        sleep(1);
+        while ($TryCount--) {
+            $semaphore->down();
+            $LocalCopy = $GlobalVariable;
+            print("$TryCount tries left for sub $SubNumber "
+                 ."(\$GlobalVariable is $GlobalVariable)\n");
+            sleep(2);
+            $LocalCopy++;
+            $GlobalVariable = $LocalCopy;
+            $semaphore->up();
+        }
+    }
+
+    $thr1->join();
+    $thr2->join();
+    $thr3->join();
+
+The three invocations of the subroutine all operate in sync.  The
+semaphore, though, makes sure that only one thread is accessing the
+global variable at once.
+
+=head2 Advanced Semaphores
+
+By default, semaphores behave like locks, letting only one thread
+C<down()> them at a time.  However, there are other uses for semaphores.
+
+Each semaphore has a counter attached to it. By default, semaphores are
+created with the counter set to one, C<down()> decrements the counter by
+one, and C<up()> increments by one. However, we can override any or all
+of these defaults simply by passing in different values:
+
+    use threads;
+    use Thread::Semaphore;
+
+    my $semaphore = Thread::Semaphore->new(5);
+                    # Creates a semaphore with the counter set to five
+
+    my $thr1 = threads->create(\&sub1);
+    my $thr2 = threads->create(\&sub1);
+
+    sub sub1 {
+        $semaphore->down(5); # Decrements the counter by five
+        # Do stuff here
+        $semaphore->up(5); # Increment the counter by five
+    }
+
+    $thr1->detach();
+    $thr2->detach();
+
+If C<down()> attempts to decrement the counter below zero, it blocks until
+the counter is large enough.  Note that while a semaphore can be created
+with a starting count of zero, any C<up()> or C<down()> always changes the
+counter by at least one, and so C<< $semaphore->down(0) >> is the same as
+C<< $semaphore->down(1) >>.
+
+The question, of course, is why would you do something like this? Why
+create a semaphore with a starting count that's not one, or why
+decrement or increment it by more than one? The answer is resource
+availability.  Many resources that you want to manage access for can be
+safely used by more than one thread at once.
+
+For example, let's take a GUI driven program.  It has a semaphore that
+it uses to synchronize access to the display, so only one thread is
+ever drawing at once.  Handy, but of course you don't want any thread
+to start drawing until things are properly set up.  In this case, you
+can create a semaphore with a counter set to zero, and up it when
+things are ready for drawing.
+
+Semaphores with counters greater than one are also useful for
+establishing quotas.  Say, for example, that you have a number of
+threads that can do I/O at once.  You don't want all the threads
+reading or writing at once though, since that can potentially swamp
+your I/O channels, or deplete your process's quota of filehandles.  You
+can use a semaphore initialized to the number of concurrent I/O
+requests (or open files) that you want at any one time, and have your
+threads quietly block and unblock themselves.
+
+Larger increments or decrements are handy in those cases where a
+thread needs to check out or return a number of resources at once.
+
+=head2 Waiting for a Condition
+
+The functions C<cond_wait()> and C<cond_signal()>
+can be used in conjunction with locks to notify
+co-operating threads that a resource has become available. They are
+very similar in use to the functions found in C<pthreads>. However
+for most purposes, queues are simpler to use and more intuitive. See
+L<threads::shared> for more details.
+
+=head2 Giving up control
+
+There are times when you may find it useful to have a thread
+explicitly give up the CPU to another thread.  You may be doing something
+processor-intensive and want to make sure that the user-interface thread
+gets called frequently.  Regardless, there are times that you might want
+a thread to give up the processor.
+
+Perl's threading package provides the C<yield()> function that does
+this. C<yield()> is pretty straightforward, and works like this:
+
+    use threads;
+
+    sub loop {
+        my $thread = shift;
+        my $foo = 50;
+        while($foo--) { print("In thread $thread\n"); }
+        threads->yield();
+        $foo = 50;
+        while($foo--) { print("In thread $thread\n"); }
+    }
+
+    my $thr1 = threads->create(\&loop, 'first');
+    my $thr2 = threads->create(\&loop, 'second');
+    my $thr3 = threads->create(\&loop, 'third');
+
+It is important to remember that C<yield()> is only a hint to give up the CPU,
+it depends on your hardware, OS and threading libraries what actually happens.
+B<On many operating systems, yield() is a no-op.>  Therefore it is important
+to note that one should not build the scheduling of the threads around
+C<yield()> calls. It might work on your platform but it won't work on another
+platform.
+
+=head1 General Thread Utility Routines
+
+We've covered the workhorse parts of Perl's threading package, and
+with these tools you should be well on your way to writing threaded
+code and packages.  There are a few useful little pieces that didn't
+really fit in anyplace else.
+
+=head2 What Thread Am I In?
+
+The C<threads-E<gt>self()> class method provides your program with a way to
+get an object representing the thread it's currently in.  You can use this
+object in the same way as the ones returned from thread creation.
+
+=head2 Thread IDs
+
+C<tid()> is a thread object method that returns the thread ID of the
+thread the object represents.  Thread IDs are integers, with the main
+thread in a program being 0.  Currently Perl assigns a unique TID to
+every thread ever created in your program, assigning the first thread
+to be created a TID of 1, and increasing the TID by 1 for each new
+thread that's created.  When used as a class method, C<threads-E<gt>tid()>
+can be used by a thread to get its own TID.
+
+=head2 Are These Threads The Same?
+
+The C<equal()> method takes two thread objects and returns true
+if the objects represent the same thread, and false if they don't.
+
+Thread objects also have an overloaded C<==> comparison so that you can do
+comparison on them as you would with normal objects.
+
+=head2 What Threads Are Running?
+
+C<threads-E<gt>list()> returns a list of thread objects, one for each thread
+that's currently running and not detached.  Handy for a number of things,
+including cleaning up at the end of your program (from the main Perl thread,
+of course):
+
+    # Loop through all the threads
+    foreach my $thr (threads->list()) {
+        $thr->join();
+    }
+
+If some threads have not finished running when the main Perl thread
+ends, Perl will warn you about it and die, since it is impossible for Perl
+to clean up itself while other threads are running.
+
+NOTE:  The main Perl thread (thread 0) is in a I<detached> state, and so
+does not appear in the list returned by C<threads-E<gt>list()>.
+
+=head1 A Complete Example
+
+Confused yet? It's time for an example program to show some of the
+things we've covered.  This program finds prime numbers using threads.
+
+   1 #!/usr/bin/perl
+   2 # prime-pthread, courtesy of Tom Christiansen
+   3
+   4 use strict;
+   5 use warnings;
+   6
+   7 use threads;
+   8 use Thread::Queue;
+   9
+  10 sub check_num {
+  11     my ($upstream, $cur_prime) = @_;
+  12     my $kid;
+  13     my $downstream = Thread::Queue->new();
+  14     while (my $num = $upstream->dequeue()) {
+  15         next unless ($num % $cur_prime);
+  16         if ($kid) {
+  17             $downstream->enqueue($num);
+  18         } else {
+  19             print("Found prime: $num\n");
+  20             $kid = threads->create(\&check_num, $downstream, $num);
+  21             if (! $kid) {
+  22                 warn("Sorry.  Ran out of threads.\n");
+  23                 last;
+  24             }
+  25         }
+  26     }
+  27     if ($kid) {
+  28         $downstream->enqueue(undef);
+  29         $kid->join();
+  30     }
+  31 }
+  32
+  33 my $stream = Thread::Queue->new(3..1000, undef);
+  34 check_num($stream, 2);
+
+This program uses the pipeline model to generate prime numbers.  Each
+thread in the pipeline has an input queue that feeds numbers to be
+checked, a prime number that it's responsible for, and an output queue
+into which it funnels numbers that have failed the check.  If the thread
+has a number that's failed its check and there's no child thread, then
+the thread must have found a new prime number.  In that case, a new
+child thread is created for that prime and stuck on the end of the
+pipeline.
+
+This probably sounds a bit more confusing than it really is, so let's
+go through this program piece by piece and see what it does.  (For
+those of you who might be trying to remember exactly what a prime
+number is, it's a number that's only evenly divisible by itself and 1.)
+
+The bulk of the work is done by the C<check_num()> subroutine, which
+takes a reference to its input queue and a prime number that it's
+responsible for.  After pulling in the input queue and the prime that
+the subroutine is checking (line 11), we create a new queue (line 13)
+and reserve a scalar for the thread that we're likely to create later
+(line 12).
+
+The while loop from line 14 to line 26 grabs a scalar off the input
+queue and checks against the prime this thread is responsible
+for.  Line 15 checks to see if there's a remainder when we divide the
+number to be checked by our prime.  If there is one, the number
+must not be evenly divisible by our prime, so we need to either pass
+it on to the next thread if we've created one (line 17) or create a
+new thread if we haven't.
+
+The new thread creation is line 20.  We pass on to it a reference to
+the queue we've created, and the prime number we've found.  In lines 21
+through 24, we check to make sure that our new thread got created, and
+if not, we stop checking any remaining numbers in the queue.
+
+Finally, once the loop terminates (because we got a 0 or C<undef> in the
+queue, which serves as a note to terminate), we pass on the notice to our
+child, and wait for it to exit if we've created a child (lines 27 and
+30).
+
+Meanwhile, back in the main thread, we first create a queue (line 33) and
+queue up all the numbers from 3 to 1000 for checking, plus a termination
+notice.  Then all we have to do to get the ball rolling is pass the queue
+and the first prime to the C<check_num()> subroutine (line 34).
+
+That's how it works.  It's pretty simple; as with many Perl programs,
+the explanation is much longer than the program.
+
+=head1 Different implementations of threads
+
+Some background on thread implementations from the operating system
+viewpoint.  There are three basic categories of threads: user-mode threads,
+kernel threads, and multiprocessor kernel threads.
+
+User-mode threads are threads that live entirely within a program and
+its libraries.  In this model, the OS knows nothing about threads.  As
+far as it's concerned, your process is just a process.
+
+This is the easiest way to implement threads, and the way most OSes
+start.  The big disadvantage is that, since the OS knows nothing about
+threads, if one thread blocks they all do.  Typical blocking activities
+include most system calls, most I/O, and things like C<sleep()>.
+
+Kernel threads are the next step in thread evolution.  The OS knows
+about kernel threads, and makes allowances for them.  The main
+difference between a kernel thread and a user-mode thread is
+blocking.  With kernel threads, things that block a single thread don't
+block other threads.  This is not the case with user-mode threads,
+where the kernel blocks at the process level and not the thread level.
+
+This is a big step forward, and can give a threaded program quite a
+performance boost over non-threaded programs.  Threads that block
+performing I/O, for example, won't block threads that are doing other
+things.  Each process still has only one thread running at once,
+though, regardless of how many CPUs a system might have.
+
+Since kernel threading can interrupt a thread at any time, they will
+uncover some of the implicit locking assumptions you may make in your
+program.  For example, something as simple as C<$x = $x + 2> can behave
+unpredictably with kernel threads if C<$x> is visible to other
+threads, as another thread may have changed C<$x> between the time it
+was fetched on the right hand side and the time the new value is
+stored.
+
+Multiprocessor kernel threads are the final step in thread
+support.  With multiprocessor kernel threads on a machine with multiple
+CPUs, the OS may schedule two or more threads to run simultaneously on
+different CPUs.
+
+This can give a serious performance boost to your threaded program,
+since more than one thread will be executing at the same time.  As a
+tradeoff, though, any of those nagging synchronization issues that
+might not have shown with basic kernel threads will appear with a
+vengeance.
+
+In addition to the different levels of OS involvement in threads,
+different OSes (and different thread implementations for a particular
+OS) allocate CPU cycles to threads in different ways.
+
+Cooperative multitasking systems have running threads give up control
+if one of two things happen.  If a thread calls a yield function, it
+gives up control.  It also gives up control if the thread does
+something that would cause it to block, such as perform I/O.  In a
+cooperative multitasking implementation, one thread can starve all the
+others for CPU time if it so chooses.
+
+Preemptive multitasking systems interrupt threads at regular intervals
+while the system decides which thread should run next.  In a preemptive
+multitasking system, one thread usually won't monopolize the CPU.
+
+On some systems, there can be cooperative and preemptive threads
+running simultaneously. (Threads running with realtime priorities
+often behave cooperatively, for example, while threads running at
+normal priorities behave preemptively.)
+
+Most modern operating systems support preemptive multitasking nowadays.
+
+=head1 Performance considerations
+
+The main thing to bear in mind when comparing Perl's I<ithreads> to other threading
+models is the fact that for each new thread created, a complete copy of
+all the variables and data of the parent thread has to be taken. Thus,
+thread creation can be quite expensive, both in terms of memory usage and
+time spent in creation. The ideal way to reduce these costs is to have a
+relatively short number of long-lived threads, all created fairly early
+on (before the base thread has accumulated too much data). Of course, this
+may not always be possible, so compromises have to be made. However, after
+a thread has been created, its performance and extra memory usage should
+be little different than ordinary code.
+
+Also note that under the current implementation, shared variables
+use a little more memory and are a little slower than ordinary variables.
+
+=head1 Process-scope Changes
+
+Note that while threads themselves are separate execution threads and
+Perl data is thread-private unless explicitly shared, the threads can
+affect process-scope state, affecting all the threads.
+
+The most common example of this is changing the current working
+directory using C<chdir()>.  One thread calls C<chdir()>, and the working
+directory of all the threads changes.
+
+Even more drastic example of a process-scope change is C<chroot()>:
+the root directory of all the threads changes, and no thread can
+undo it (as opposed to C<chdir()>).
+
+Further examples of process-scope changes include C<umask()> and
+changing uids and gids.
+
+Thinking of mixing C<fork()> and threads?  Please lie down and wait
+until the feeling passes.  Be aware that the semantics of C<fork()> vary
+between platforms.  For example, some Unix systems copy all the current
+threads into the child process, while others only copy the thread that
+called C<fork()>. You have been warned!
+
+Similarly, mixing signals and threads may be problematic.
+Implementations are platform-dependent, and even the POSIX
+semantics may not be what you expect (and Perl doesn't even
+give you the full POSIX API).  For example, there is no way to
+guarantee that a signal sent to a multi-threaded Perl application
+will get intercepted by any particular thread.  (However, a recently
+added feature does provide the capability to send signals between
+threads.  See L<threads/THREAD SIGNALLING> for more details.)
+
+=head1 Thread-Safety of System Libraries
+
+Whether various library calls are thread-safe is outside the control
+of Perl.  Calls often suffering from not being thread-safe include:
+C<localtime()>, C<gmtime()>,  functions fetching user, group and
+network information (such as C<getgrent()>, C<gethostent()>,
+C<getnetent()> and so on), C<readdir()>, C<rand()>, and C<srand()>. In
+general, calls that depend on some global external state.
+
+If the system Perl is compiled in has thread-safe variants of such
+calls, they will be used.  Beyond that, Perl is at the mercy of
+the thread-safety or -unsafety of the calls.  Please consult your
+C library call documentation.
+
+On some platforms the thread-safe library interfaces may fail if the
+result buffer is too small (for example the user group databases may
+be rather large, and the reentrant interfaces may have to carry around
+a full snapshot of those databases).  Perl will start with a small
+buffer, but keep retrying and growing the result buffer
+until the result fits.  If this limitless growing sounds bad for
+security or memory consumption reasons you can recompile Perl with
+C<PERL_REENTRANT_MAXSIZE> defined to the maximum number of bytes you will
+allow.
+
+=head1 Conclusion
+
+A complete thread tutorial could fill a book (and has, many times),
+but with what we've covered in this introduction, you should be well
+on your way to becoming a threaded Perl expert.
+
+=head1 SEE ALSO
+
+Annotated POD for L<threads>:
+L<http://annocpan.org/?mode=search&field=Module&name=threads>
+
+Latest version of L<threads> on CPAN:
+L<http://search.cpan.org/search?module=threads>
+
+Annotated POD for L<threads::shared>:
+L<http://annocpan.org/?mode=search&field=Module&name=threads%3A%3Ashared>
+
+Latest version of L<threads::shared> on CPAN:
+L<http://search.cpan.org/search?module=threads%3A%3Ashared>
+
+Perl threads mailing list:
+L<http://lists.perl.org/list/ithreads.html>
+
+=head1 Bibliography
+
+Here's a short bibliography courtesy of Jürgen Christoffel:
+
+=head2 Introductory Texts
+
+Birrell, Andrew D. An Introduction to Programming with
+Threads. Digital Equipment Corporation, 1989, DEC-SRC Research Report
+#35 online as
+ftp://ftp.dec.com/pub/DEC/SRC/research-reports/SRC-035.pdf
+(highly recommended)
+
+Robbins, Kay. A., and Steven Robbins. Practical Unix Programming: A
+Guide to Concurrency, Communication, and
+Multithreading. Prentice-Hall, 1996.
+
+Lewis, Bill, and Daniel J. Berg. Multithreaded Programming with
+Pthreads. Prentice Hall, 1997, ISBN 0-13-443698-9 (a well-written
+introduction to threads).
+
+Nelson, Greg (editor). Systems Programming with Modula-3.  Prentice
+Hall, 1991, ISBN 0-13-590464-1.
+
+Nichols, Bradford, Dick Buttlar, and Jacqueline Proulx Farrell.
+Pthreads Programming. O'Reilly & Associates, 1996, ISBN 156592-115-1
+(covers POSIX threads).
+
+=head2 OS-Related References
+
+Boykin, Joseph, David Kirschen, Alan Langerman, and Susan
+LoVerso. Programming under Mach. Addison-Wesley, 1994, ISBN
+0-201-52739-1.
+
+Tanenbaum, Andrew S. Distributed Operating Systems. Prentice Hall,
+1995, ISBN 0-13-219908-4 (great textbook).
+
+Silberschatz, Abraham, and Peter B. Galvin. Operating System Concepts,
+4th ed. Addison-Wesley, 1995, ISBN 0-201-59292-4
+
+=head2 Other References
+
+Arnold, Ken and James Gosling. The Java Programming Language, 2nd
+ed. Addison-Wesley, 1998, ISBN 0-201-31006-6.
+
+comp.programming.threads FAQ,
+L<http://www.serpentine.com/~bos/threads-faq/>
+
+Le Sergent, T. and B. Berthomieu. "Incremental MultiThreaded Garbage
+Collection on Virtually Shared Memory Architectures" in Memory
+Management: Proc. of the International Workshop IWMM 92, St. Malo,
+France, September 1992, Yves Bekkers and Jacques Cohen, eds. Springer,
+1992, ISBN 3540-55940-X (real-life thread applications).
+
+Artur Bergman, "Where Wizards Fear To Tread", June 11, 2002,
+L<http://www.perl.com/pub/a/2002/06/11/threads.html>
+
+=head1 Acknowledgements
+
+Thanks (in no particular order) to Chaim Frenkel, Steve Fink, Gurusamy
+Sarathy, Ilya Zakharevich, Benjamin Sugars, Jürgen Christoffel, Joshua
+Pritikin, and Alan Burlison, for their help in reality-checking and
+polishing this article.  Big thanks to Tom Christiansen for his rewrite
+of the prime number generator.
+
+=head1 AUTHOR
+
+Dan Sugalski E<lt>dan@sidhe.org<gt>
+
+Slightly modified by Arthur Bergman to fit the new thread model/module.
+
+Reworked slightly by Jörg Walter E<lt>jwalt@cpan.org<gt> to be more concise
+about thread-safety of Perl code.
+
+Rearranged slightly by Elizabeth Mattijsen E<lt>liz@dijkmat.nl<gt> to put
+less emphasis on yield().
+
+=head1 Copyrights
+
+The original version of this article originally appeared in The Perl
+Journal #10, and is copyright 1998 The Perl Journal. It appears courtesy
+of Jon Orwant and The Perl Journal.  This document may be distributed
+under the same terms as Perl itself.
+
+=cut
diff --git a/lib/5.24.1/pod/perltie.pod b/lib/5.24.1/pod/perltie.pod
new file mode 100644
index 00000000..7b89f570
--- /dev/null
+++ b/lib/5.24.1/pod/perltie.pod
@@ -0,0 +1,1237 @@
+=head1 NAME
+X<tie>
+
+perltie - how to hide an object class in a simple variable
+
+=head1 SYNOPSIS
+
+ tie VARIABLE, CLASSNAME, LIST
+
+ $object = tied VARIABLE
+
+ untie VARIABLE
+
+=head1 DESCRIPTION
+
+Prior to release 5.0 of Perl, a programmer could use dbmopen()
+to connect an on-disk database in the standard Unix dbm(3x)
+format magically to a %HASH in their program.  However, their Perl was either
+built with one particular dbm library or another, but not both, and
+you couldn't extend this mechanism to other packages or types of variables.
+
+Now you can.
+
+The tie() function binds a variable to a class (package) that will provide
+the implementation for access methods for that variable.  Once this magic
+has been performed, accessing a tied variable automatically triggers
+method calls in the proper class.  The complexity of the class is
+hidden behind magic methods calls.  The method names are in ALL CAPS,
+which is a convention that Perl uses to indicate that they're called
+implicitly rather than explicitly--just like the BEGIN() and END()
+functions.
+
+In the tie() call, C<VARIABLE> is the name of the variable to be
+enchanted.  C<CLASSNAME> is the name of a class implementing objects of
+the correct type.  Any additional arguments in the C<LIST> are passed to
+the appropriate constructor method for that class--meaning TIESCALAR(),
+TIEARRAY(), TIEHASH(), or TIEHANDLE().  (Typically these are arguments
+such as might be passed to the dbminit() function of C.) The object
+returned by the "new" method is also returned by the tie() function,
+which would be useful if you wanted to access other methods in
+C<CLASSNAME>. (You don't actually have to return a reference to a right
+"type" (e.g., HASH or C<CLASSNAME>) so long as it's a properly blessed
+object.)  You can also retrieve a reference to the underlying object
+using the tied() function.
+
+Unlike dbmopen(), the tie() function will not C<use> or C<require> a module
+for you--you need to do that explicitly yourself.
+
+=head2 Tying Scalars
+X<scalar, tying>
+
+A class implementing a tied scalar should define the following methods:
+TIESCALAR, FETCH, STORE, and possibly UNTIE and/or DESTROY.
+
+Let's look at each in turn, using as an example a tie class for
+scalars that allows the user to do something like:
+
+    tie $his_speed, 'Nice', getppid();
+    tie $my_speed,  'Nice', $$;
+
+And now whenever either of those variables is accessed, its current
+system priority is retrieved and returned.  If those variables are set,
+then the process's priority is changed!
+
+We'll use Jarkko Hietaniemi <F<jhi@iki.fi>>'s BSD::Resource class (not
+included) to access the PRIO_PROCESS, PRIO_MIN, and PRIO_MAX constants
+from your system, as well as the getpriority() and setpriority() system
+calls.  Here's the preamble of the class.
+
+    package Nice;
+    use Carp;
+    use BSD::Resource;
+    use strict;
+    $Nice::DEBUG = 0 unless defined $Nice::DEBUG;
+
+=over 4
+
+=item TIESCALAR classname, LIST
+X<TIESCALAR>
+
+This is the constructor for the class.  That means it is
+expected to return a blessed reference to a new scalar
+(probably anonymous) that it's creating.  For example:
+
+ sub TIESCALAR {
+     my $class = shift;
+     my $pid = shift || $$; # 0 means me
+
+     if ($pid !~ /^\d+$/) {
+         carp "Nice::Tie::Scalar got non-numeric pid $pid" if $^W;
+         return undef;
+     }
+
+     unless (kill 0, $pid) { # EPERM or ERSCH, no doubt
+         carp "Nice::Tie::Scalar got bad pid $pid: $!" if $^W;
+         return undef;
+     }
+
+     return bless \$pid, $class;
+ }
+
+This tie class has chosen to return an error rather than raising an
+exception if its constructor should fail.  While this is how dbmopen() works,
+other classes may well not wish to be so forgiving.  It checks the global
+variable C<$^W> to see whether to emit a bit of noise anyway.
+
+=item FETCH this
+X<FETCH>
+
+This method will be triggered every time the tied variable is accessed
+(read).  It takes no arguments beyond its self reference, which is the
+object representing the scalar we're dealing with.  Because in this case
+we're using just a SCALAR ref for the tied scalar object, a simple $$self
+allows the method to get at the real value stored there.  In our example
+below, that real value is the process ID to which we've tied our variable.
+
+    sub FETCH {
+        my $self = shift;
+        confess "wrong type" unless ref $self;
+        croak "usage error" if @_;
+        my $nicety;
+        local($!) = 0;
+        $nicety = getpriority(PRIO_PROCESS, $$self);
+        if ($!) { croak "getpriority failed: $!" }
+        return $nicety;
+    }
+
+This time we've decided to blow up (raise an exception) if the renice
+fails--there's no place for us to return an error otherwise, and it's
+probably the right thing to do.
+
+=item STORE this, value
+X<STORE>
+
+This method will be triggered every time the tied variable is set
+(assigned).  Beyond its self reference, it also expects one (and only one)
+argument: the new value the user is trying to assign. Don't worry about
+returning a value from STORE; the semantic of assignment returning the
+assigned value is implemented with FETCH.
+
+ sub STORE {
+     my $self = shift;
+     confess "wrong type" unless ref $self;
+     my $new_nicety = shift;
+     croak "usage error" if @_;
+
+     if ($new_nicety < PRIO_MIN) {
+         carp sprintf
+           "WARNING: priority %d less than minimum system priority %d",
+               $new_nicety, PRIO_MIN if $^W;
+         $new_nicety = PRIO_MIN;
+     }
+
+     if ($new_nicety > PRIO_MAX) {
+         carp sprintf
+           "WARNING: priority %d greater than maximum system priority %d",
+               $new_nicety, PRIO_MAX if $^W;
+         $new_nicety = PRIO_MAX;
+     }
+
+     unless (defined setpriority(PRIO_PROCESS,
+                                 $$self,
+                                 $new_nicety))
+     {
+         confess "setpriority failed: $!";
+     }
+ }
+
+=item UNTIE this
+X<UNTIE>
+
+This method will be triggered when the C<untie> occurs. This can be useful
+if the class needs to know when no further calls will be made. (Except DESTROY
+of course.) See L<The C<untie> Gotcha> below for more details.
+
+=item DESTROY this
+X<DESTROY>
+
+This method will be triggered when the tied variable needs to be destructed.
+As with other object classes, such a method is seldom necessary, because Perl
+deallocates its moribund object's memory for you automatically--this isn't
+C++, you know.  We'll use a DESTROY method here for debugging purposes only.
+
+    sub DESTROY {
+        my $self = shift;
+        confess "wrong type" unless ref $self;
+        carp "[ Nice::DESTROY pid $$self ]" if $Nice::DEBUG;
+    }
+
+=back
+
+That's about all there is to it.  Actually, it's more than all there
+is to it, because we've done a few nice things here for the sake
+of completeness, robustness, and general aesthetics.  Simpler
+TIESCALAR classes are certainly possible.
+
+=head2 Tying Arrays
+X<array, tying>
+
+A class implementing a tied ordinary array should define the following
+methods: TIEARRAY, FETCH, STORE, FETCHSIZE, STORESIZE, CLEAR
+and perhaps UNTIE and/or DESTROY.
+
+FETCHSIZE and STORESIZE are used to provide C<$#array> and
+equivalent C<scalar(@array)> access.
+
+The methods POP, PUSH, SHIFT, UNSHIFT, SPLICE, DELETE, and EXISTS are
+required if the perl operator with the corresponding (but lowercase) name
+is to operate on the tied array. The B<Tie::Array> class can be used as a
+base class to implement the first five of these in terms of the basic
+methods above.  The default implementations of DELETE and EXISTS in
+B<Tie::Array> simply C<croak>.
+
+In addition EXTEND will be called when perl would have pre-extended
+allocation in a real array.
+
+For this discussion, we'll implement an array whose elements are a fixed
+size at creation.  If you try to create an element larger than the fixed
+size, you'll take an exception.  For example:
+
+    use FixedElem_Array;
+    tie @array, 'FixedElem_Array', 3;
+    $array[0] = 'cat';  # ok.
+    $array[1] = 'dogs'; # exception, length('dogs') > 3.
+
+The preamble code for the class is as follows:
+
+    package FixedElem_Array;
+    use Carp;
+    use strict;
+
+=over 4
+
+=item TIEARRAY classname, LIST
+X<TIEARRAY>
+
+This is the constructor for the class.  That means it is expected to
+return a blessed reference through which the new array (probably an
+anonymous ARRAY ref) will be accessed.
+
+In our example, just to show you that you don't I<really> have to return an
+ARRAY reference, we'll choose a HASH reference to represent our object.
+A HASH works out well as a generic record type: the C<{ELEMSIZE}> field will
+store the maximum element size allowed, and the C<{ARRAY}> field will hold the
+true ARRAY ref.  If someone outside the class tries to dereference the
+object returned (doubtless thinking it an ARRAY ref), they'll blow up.
+This just goes to show you that you should respect an object's privacy.
+
+    sub TIEARRAY {
+      my $class    = shift;
+      my $elemsize = shift;
+      if ( @_ || $elemsize =~ /\D/ ) {
+        croak "usage: tie ARRAY, '" . __PACKAGE__ . "', elem_size";
+      }
+      return bless {
+        ELEMSIZE => $elemsize,
+        ARRAY    => [],
+      }, $class;
+    }
+
+=item FETCH this, index
+X<FETCH>
+
+This method will be triggered every time an individual element the tied array
+is accessed (read).  It takes one argument beyond its self reference: the
+index whose value we're trying to fetch.
+
+    sub FETCH {
+      my $self  = shift;
+      my $index = shift;
+      return $self->{ARRAY}->[$index];
+    }
+
+If a negative array index is used to read from an array, the index
+will be translated to a positive one internally by calling FETCHSIZE
+before being passed to FETCH.  You may disable this feature by
+assigning a true value to the variable C<$NEGATIVE_INDICES> in the
+tied array class.
+
+As you may have noticed, the name of the FETCH method (et al.) is the same
+for all accesses, even though the constructors differ in names (TIESCALAR
+vs TIEARRAY).  While in theory you could have the same class servicing
+several tied types, in practice this becomes cumbersome, and it's easiest
+to keep them at simply one tie type per class.
+
+=item STORE this, index, value
+X<STORE>
+
+This method will be triggered every time an element in the tied array is set
+(written).  It takes two arguments beyond its self reference: the index at
+which we're trying to store something and the value we're trying to put
+there.
+
+In our example, C<undef> is really C<$self-E<gt>{ELEMSIZE}> number of
+spaces so we have a little more work to do here:
+
+ sub STORE {
+   my $self = shift;
+   my( $index, $value ) = @_;
+   if ( length $value > $self->{ELEMSIZE} ) {
+     croak "length of $value is greater than $self->{ELEMSIZE}";
+   }
+   # fill in the blanks
+   $self->EXTEND( $index ) if $index > $self->FETCHSIZE();
+   # right justify to keep element size for smaller elements
+   $self->{ARRAY}->[$index] = sprintf "%$self->{ELEMSIZE}s", $value;
+ }
+
+Negative indexes are treated the same as with FETCH.
+
+=item FETCHSIZE this
+X<FETCHSIZE>
+
+Returns the total number of items in the tied array associated with
+object I<this>. (Equivalent to C<scalar(@array)>).  For example:
+
+    sub FETCHSIZE {
+      my $self = shift;
+      return scalar @{$self->{ARRAY}};
+    }
+
+=item STORESIZE this, count
+X<STORESIZE>
+
+Sets the total number of items in the tied array associated with
+object I<this> to be I<count>. If this makes the array larger then
+class's mapping of C<undef> should be returned for new positions.
+If the array becomes smaller then entries beyond count should be
+deleted. 
+
+In our example, 'undef' is really an element containing
+C<$self-E<gt>{ELEMSIZE}> number of spaces.  Observe:
+
+    sub STORESIZE {
+      my $self  = shift;
+      my $count = shift;
+      if ( $count > $self->FETCHSIZE() ) {
+        foreach ( $count - $self->FETCHSIZE() .. $count ) {
+          $self->STORE( $_, '' );
+        }
+      } elsif ( $count < $self->FETCHSIZE() ) {
+        foreach ( 0 .. $self->FETCHSIZE() - $count - 2 ) {
+          $self->POP();
+        }
+      }
+    }
+
+=item EXTEND this, count
+X<EXTEND>
+
+Informative call that array is likely to grow to have I<count> entries.
+Can be used to optimize allocation. This method need do nothing.
+
+In our example, we want to make sure there are no blank (C<undef>)
+entries, so C<EXTEND> will make use of C<STORESIZE> to fill elements
+as needed:
+
+    sub EXTEND {   
+      my $self  = shift;
+      my $count = shift;
+      $self->STORESIZE( $count );
+    }
+
+=item EXISTS this, key
+X<EXISTS>
+
+Verify that the element at index I<key> exists in the tied array I<this>.
+
+In our example, we will determine that if an element consists of
+C<$self-E<gt>{ELEMSIZE}> spaces only, it does not exist:
+
+ sub EXISTS {
+   my $self  = shift;
+   my $index = shift;
+   return 0 if ! defined $self->{ARRAY}->[$index] ||
+               $self->{ARRAY}->[$index] eq ' ' x $self->{ELEMSIZE};
+   return 1;
+ }
+
+=item DELETE this, key
+X<DELETE>
+
+Delete the element at index I<key> from the tied array I<this>.
+
+In our example, a deleted item is C<$self-E<gt>{ELEMSIZE}> spaces:
+
+    sub DELETE {
+      my $self  = shift;
+      my $index = shift;
+      return $self->STORE( $index, '' );
+    }
+
+=item CLEAR this
+X<CLEAR>
+
+Clear (remove, delete, ...) all values from the tied array associated with
+object I<this>.  For example:
+
+    sub CLEAR {
+      my $self = shift;
+      return $self->{ARRAY} = [];
+    }
+
+=item PUSH this, LIST 
+X<PUSH>
+
+Append elements of I<LIST> to the array.  For example:
+
+    sub PUSH {  
+      my $self = shift;
+      my @list = @_;
+      my $last = $self->FETCHSIZE();
+      $self->STORE( $last + $_, $list[$_] ) foreach 0 .. $#list;
+      return $self->FETCHSIZE();
+    }   
+
+=item POP this
+X<POP>
+
+Remove last element of the array and return it.  For example:
+
+    sub POP {
+      my $self = shift;
+      return pop @{$self->{ARRAY}};
+    }
+
+=item SHIFT this
+X<SHIFT>
+
+Remove the first element of the array (shifting other elements down)
+and return it.  For example:
+
+    sub SHIFT {
+      my $self = shift;
+      return shift @{$self->{ARRAY}};
+    }
+
+=item UNSHIFT this, LIST 
+X<UNSHIFT>
+
+Insert LIST elements at the beginning of the array, moving existing elements
+up to make room.  For example:
+
+    sub UNSHIFT {
+      my $self = shift;
+      my @list = @_;
+      my $size = scalar( @list );
+      # make room for our list
+      @{$self->{ARRAY}}[ $size .. $#{$self->{ARRAY}} + $size ]
+       = @{$self->{ARRAY}};
+      $self->STORE( $_, $list[$_] ) foreach 0 .. $#list;
+    }
+
+=item SPLICE this, offset, length, LIST
+X<SPLICE>
+
+Perform the equivalent of C<splice> on the array. 
+
+I<offset> is optional and defaults to zero, negative values count back 
+from the end of the array. 
+
+I<length> is optional and defaults to rest of the array.
+
+I<LIST> may be empty.
+
+Returns a list of the original I<length> elements at I<offset>.
+
+In our example, we'll use a little shortcut if there is a I<LIST>:
+
+    sub SPLICE {
+      my $self   = shift;
+      my $offset = shift || 0;
+      my $length = shift || $self->FETCHSIZE() - $offset;
+      my @list   = (); 
+      if ( @_ ) {
+        tie @list, __PACKAGE__, $self->{ELEMSIZE};
+        @list   = @_;
+      }
+      return splice @{$self->{ARRAY}}, $offset, $length, @list;
+    }
+
+=item UNTIE this
+X<UNTIE>
+
+Will be called when C<untie> happens. (See L<The C<untie> Gotcha> below.)
+
+=item DESTROY this
+X<DESTROY>
+
+This method will be triggered when the tied variable needs to be destructed.
+As with the scalar tie class, this is almost never needed in a
+language that does its own garbage collection, so this time we'll
+just leave it out.
+
+=back
+
+=head2 Tying Hashes
+X<hash, tying>
+
+Hashes were the first Perl data type to be tied (see dbmopen()).  A class
+implementing a tied hash should define the following methods: TIEHASH is
+the constructor.  FETCH and STORE access the key and value pairs.  EXISTS
+reports whether a key is present in the hash, and DELETE deletes one.
+CLEAR empties the hash by deleting all the key and value pairs.  FIRSTKEY
+and NEXTKEY implement the keys() and each() functions to iterate over all
+the keys. SCALAR is triggered when the tied hash is evaluated in scalar 
+context. UNTIE is called when C<untie> happens, and DESTROY is called when
+the tied variable is garbage collected.
+
+If this seems like a lot, then feel free to inherit from merely the
+standard Tie::StdHash module for most of your methods, redefining only the
+interesting ones.  See L<Tie::Hash> for details.
+
+Remember that Perl distinguishes between a key not existing in the hash,
+and the key existing in the hash but having a corresponding value of
+C<undef>.  The two possibilities can be tested with the C<exists()> and
+C<defined()> functions.
+
+Here's an example of a somewhat interesting tied hash class:  it gives you
+a hash representing a particular user's dot files.  You index into the hash
+with the name of the file (minus the dot) and you get back that dot file's
+contents.  For example:
+
+    use DotFiles;
+    tie %dot, 'DotFiles';
+    if ( $dot{profile} =~ /MANPATH/ ||
+         $dot{login}   =~ /MANPATH/ ||
+         $dot{cshrc}   =~ /MANPATH/    )
+    {
+	print "you seem to set your MANPATH\n";
+    }
+
+Or here's another sample of using our tied class:
+
+    tie %him, 'DotFiles', 'daemon';
+    foreach $f ( keys %him ) {
+	printf "daemon dot file %s is size %d\n",
+	    $f, length $him{$f};
+    }
+
+In our tied hash DotFiles example, we use a regular
+hash for the object containing several important
+fields, of which only the C<{LIST}> field will be what the
+user thinks of as the real hash.
+
+=over 5
+
+=item USER
+
+whose dot files this object represents
+
+=item HOME
+
+where those dot files live
+
+=item CLOBBER
+
+whether we should try to change or remove those dot files
+
+=item LIST
+
+the hash of dot file names and content mappings
+
+=back
+
+Here's the start of F<Dotfiles.pm>:
+
+    package DotFiles;
+    use Carp;
+    sub whowasi { (caller(1))[3] . '()' }
+    my $DEBUG = 0;
+    sub debug { $DEBUG = @_ ? shift : 1 }
+
+For our example, we want to be able to emit debugging info to help in tracing
+during development.  We keep also one convenience function around
+internally to help print out warnings; whowasi() returns the function name
+that calls it.
+
+Here are the methods for the DotFiles tied hash.
+
+=over 4
+
+=item TIEHASH classname, LIST
+X<TIEHASH>
+
+This is the constructor for the class.  That means it is expected to
+return a blessed reference through which the new object (probably but not
+necessarily an anonymous hash) will be accessed.
+
+Here's the constructor:
+
+    sub TIEHASH {
+	my $self = shift;
+	my $user = shift || $>;
+	my $dotdir = shift || '';
+	croak "usage: @{[&whowasi]} [USER [DOTDIR]]" if @_;
+	$user = getpwuid($user) if $user =~ /^\d+$/;
+	my $dir = (getpwnam($user))[7]
+		|| croak "@{[&whowasi]}: no user $user";
+	$dir .= "/$dotdir" if $dotdir;
+
+	my $node = {
+	    USER    => $user,
+	    HOME    => $dir,
+	    LIST    => {},
+	    CLOBBER => 0,
+	};
+
+	opendir(DIR, $dir)
+		|| croak "@{[&whowasi]}: can't opendir $dir: $!";
+	foreach $dot ( grep /^\./ && -f "$dir/$_", readdir(DIR)) {
+	    $dot =~ s/^\.//;
+	    $node->{LIST}{$dot} = undef;
+	}
+	closedir DIR;
+	return bless $node, $self;
+    }
+
+It's probably worth mentioning that if you're going to filetest the
+return values out of a readdir, you'd better prepend the directory
+in question.  Otherwise, because we didn't chdir() there, it would
+have been testing the wrong file.
+
+=item FETCH this, key
+X<FETCH>
+
+This method will be triggered every time an element in the tied hash is
+accessed (read).  It takes one argument beyond its self reference: the key
+whose value we're trying to fetch.
+
+Here's the fetch for our DotFiles example.
+
+    sub FETCH {
+	carp &whowasi if $DEBUG;
+	my $self = shift;
+	my $dot = shift;
+	my $dir = $self->{HOME};
+	my $file = "$dir/.$dot";
+
+	unless (exists $self->{LIST}->{$dot} || -f $file) {
+	    carp "@{[&whowasi]}: no $dot file" if $DEBUG;
+	    return undef;
+	}
+
+	if (defined $self->{LIST}->{$dot}) {
+	    return $self->{LIST}->{$dot};
+	} else {
+	    return $self->{LIST}->{$dot} = `cat $dir/.$dot`;
+	}
+    }
+
+It was easy to write by having it call the Unix cat(1) command, but it
+would probably be more portable to open the file manually (and somewhat
+more efficient).  Of course, because dot files are a Unixy concept, we're
+not that concerned.
+
+=item STORE this, key, value
+X<STORE>
+
+This method will be triggered every time an element in the tied hash is set
+(written).  It takes two arguments beyond its self reference: the index at
+which we're trying to store something, and the value we're trying to put
+there.
+
+Here in our DotFiles example, we'll be careful not to let
+them try to overwrite the file unless they've called the clobber()
+method on the original object reference returned by tie().
+
+    sub STORE {
+	carp &whowasi if $DEBUG;
+	my $self = shift;
+	my $dot = shift;
+	my $value = shift;
+	my $file = $self->{HOME} . "/.$dot";
+	my $user = $self->{USER};
+
+	croak "@{[&whowasi]}: $file not clobberable"
+	    unless $self->{CLOBBER};
+
+	open(my $f, '>', $file) || croak "can't open $file: $!";
+	print $f $value;
+	close($f);
+    }
+
+If they wanted to clobber something, they might say:
+
+    $ob = tie %daemon_dots, 'daemon';
+    $ob->clobber(1);
+    $daemon_dots{signature} = "A true daemon\n";
+
+Another way to lay hands on a reference to the underlying object is to
+use the tied() function, so they might alternately have set clobber
+using:
+
+    tie %daemon_dots, 'daemon';
+    tied(%daemon_dots)->clobber(1);
+
+The clobber method is simply:
+
+    sub clobber {
+	my $self = shift;
+	$self->{CLOBBER} = @_ ? shift : 1;
+    }
+
+=item DELETE this, key
+X<DELETE>
+
+This method is triggered when we remove an element from the hash,
+typically by using the delete() function.  Again, we'll
+be careful to check whether they really want to clobber files.
+
+ sub DELETE   {
+     carp &whowasi if $DEBUG;
+
+     my $self = shift;
+     my $dot = shift;
+     my $file = $self->{HOME} . "/.$dot";
+     croak "@{[&whowasi]}: won't remove file $file"
+         unless $self->{CLOBBER};
+     delete $self->{LIST}->{$dot};
+     my $success = unlink($file);
+     carp "@{[&whowasi]}: can't unlink $file: $!" unless $success;
+     $success;
+ }
+
+The value returned by DELETE becomes the return value of the call
+to delete().  If you want to emulate the normal behavior of delete(),
+you should return whatever FETCH would have returned for this key.
+In this example, we have chosen instead to return a value which tells
+the caller whether the file was successfully deleted.
+
+=item CLEAR this
+X<CLEAR>
+
+This method is triggered when the whole hash is to be cleared, usually by
+assigning the empty list to it.
+
+In our example, that would remove all the user's dot files!  It's such a
+dangerous thing that they'll have to set CLOBBER to something higher than
+1 to make it happen.
+
+ sub CLEAR    {
+     carp &whowasi if $DEBUG;
+     my $self = shift;
+     croak "@{[&whowasi]}: won't remove all dot files for $self->{USER}"
+         unless $self->{CLOBBER} > 1;
+     my $dot;
+     foreach $dot ( keys %{$self->{LIST}}) {
+         $self->DELETE($dot);
+     }
+ }
+
+=item EXISTS this, key
+X<EXISTS>
+
+This method is triggered when the user uses the exists() function
+on a particular hash.  In our example, we'll look at the C<{LIST}>
+hash element for this:
+
+    sub EXISTS   {
+	carp &whowasi if $DEBUG;
+	my $self = shift;
+	my $dot = shift;
+	return exists $self->{LIST}->{$dot};
+    }
+
+=item FIRSTKEY this
+X<FIRSTKEY>
+
+This method will be triggered when the user is going
+to iterate through the hash, such as via a keys(), values(), or each() call.
+
+    sub FIRSTKEY {
+	carp &whowasi if $DEBUG;
+	my $self = shift;
+	my $a = keys %{$self->{LIST}};  # reset each() iterator
+	each %{$self->{LIST}}
+    }
+
+FIRSTKEY is always called in scalar context and it should just
+return the first key.  values(), and each() in list context,
+will call FETCH for the returned keys.
+
+=item NEXTKEY this, lastkey
+X<NEXTKEY>
+
+This method gets triggered during a keys(), values(), or each() iteration.  It has a
+second argument which is the last key that had been accessed.  This is
+useful if you're caring about ordering or calling the iterator from more
+than one sequence, or not really storing things in a hash anywhere.
+
+NEXTKEY is always called in scalar context and it should just
+return the next key.  values(), and each() in list context,
+will call FETCH for the returned keys.
+
+For our example, we're using a real hash so we'll do just the simple
+thing, but we'll have to go through the LIST field indirectly.
+
+    sub NEXTKEY  {
+	carp &whowasi if $DEBUG;
+	my $self = shift;
+	return each %{ $self->{LIST} }
+    }
+
+=item SCALAR this
+X<SCALAR>
+
+This is called when the hash is evaluated in scalar context. In order
+to mimic the behaviour of untied hashes, this method should return a
+false value when the tied hash is considered empty. If this method does
+not exist, perl will make some educated guesses and return true when
+the hash is inside an iteration. If this isn't the case, FIRSTKEY is
+called, and the result will be a false value if FIRSTKEY returns the empty
+list, true otherwise.
+
+However, you should B<not> blindly rely on perl always doing the right 
+thing. Particularly, perl will mistakenly return true when you clear the 
+hash by repeatedly calling DELETE until it is empty. You are therefore 
+advised to supply your own SCALAR method when you want to be absolutely 
+sure that your hash behaves nicely in scalar context.
+
+In our example we can just call C<scalar> on the underlying hash
+referenced by C<$self-E<gt>{LIST}>:
+
+    sub SCALAR {
+	carp &whowasi if $DEBUG;
+	my $self = shift;
+	return scalar %{ $self->{LIST} }
+    }
+
+=item UNTIE this
+X<UNTIE>
+
+This is called when C<untie> occurs.  See L<The C<untie> Gotcha> below.
+
+=item DESTROY this
+X<DESTROY>
+
+This method is triggered when a tied hash is about to go out of
+scope.  You don't really need it unless you're trying to add debugging
+or have auxiliary state to clean up.  Here's a very simple function:
+
+    sub DESTROY  {
+	carp &whowasi if $DEBUG;
+    }
+
+=back
+
+Note that functions such as keys() and values() may return huge lists
+when used on large objects, like DBM files.  You may prefer to use the
+each() function to iterate over such.  Example:
+
+    # print out history file offsets
+    use NDBM_File;
+    tie(%HIST, 'NDBM_File', '/usr/lib/news/history', 1, 0);
+    while (($key,$val) = each %HIST) {
+        print $key, ' = ', unpack('L',$val), "\n";
+    }
+    untie(%HIST);
+
+=head2 Tying FileHandles
+X<filehandle, tying>
+
+This is partially implemented now.
+
+A class implementing a tied filehandle should define the following
+methods: TIEHANDLE, at least one of PRINT, PRINTF, WRITE, READLINE, GETC,
+READ, and possibly CLOSE, UNTIE and DESTROY.  The class can also provide: BINMODE,
+OPEN, EOF, FILENO, SEEK, TELL - if the corresponding perl operators are
+used on the handle.
+
+When STDERR is tied, its PRINT method will be called to issue warnings
+and error messages.  This feature is temporarily disabled during the call, 
+which means you can use C<warn()> inside PRINT without starting a recursive
+loop.  And just like C<__WARN__> and C<__DIE__> handlers, STDERR's PRINT
+method may be called to report parser errors, so the caveats mentioned under 
+L<perlvar/%SIG> apply.
+
+All of this is especially useful when perl is embedded in some other 
+program, where output to STDOUT and STDERR may have to be redirected 
+in some special way.  See nvi and the Apache module for examples.
+
+When tying a handle, the first argument to C<tie> should begin with an
+asterisk.  So, if you are tying STDOUT, use C<*STDOUT>.  If you have
+assigned it to a scalar variable, say C<$handle>, use C<*$handle>.
+C<tie $handle> ties the scalar variable C<$handle>, not the handle inside
+it.
+
+In our example we're going to create a shouting handle.
+
+    package Shout;
+
+=over 4
+
+=item TIEHANDLE classname, LIST
+X<TIEHANDLE>
+
+This is the constructor for the class.  That means it is expected to
+return a blessed reference of some sort. The reference can be used to
+hold some internal information.
+
+    sub TIEHANDLE { print "<shout>\n"; my $i; bless \$i, shift }
+
+=item WRITE this, LIST
+X<WRITE>
+
+This method will be called when the handle is written to via the
+C<syswrite> function.
+
+ sub WRITE {
+     $r = shift;
+     my($buf,$len,$offset) = @_;
+     print "WRITE called, \$buf=$buf, \$len=$len, \$offset=$offset";
+ }
+
+=item PRINT this, LIST
+X<PRINT>
+
+This method will be triggered every time the tied handle is printed to
+with the C<print()> or C<say()> functions.  Beyond its self reference
+it also expects the list that was passed to the print function.
+
+  sub PRINT { $r = shift; $$r++; print join($,,map(uc($_),@_)),$\ }
+
+C<say()> acts just like C<print()> except $\ will be localized to C<\n> so
+you need do nothing special to handle C<say()> in C<PRINT()>.
+
+=item PRINTF this, LIST
+X<PRINTF>
+
+This method will be triggered every time the tied handle is printed to
+with the C<printf()> function.
+Beyond its self reference it also expects the format and list that was
+passed to the printf function.
+
+    sub PRINTF {
+        shift;
+        my $fmt = shift;
+        print sprintf($fmt, @_);
+    }
+
+=item READ this, LIST
+X<READ>
+
+This method will be called when the handle is read from via the C<read>
+or C<sysread> functions.
+
+ sub READ {
+   my $self = shift;
+   my $bufref = \$_[0];
+   my(undef,$len,$offset) = @_;
+   print "READ called, \$buf=$bufref, \$len=$len, \$offset=$offset";
+   # add to $$bufref, set $len to number of characters read
+   $len;
+ }
+
+=item READLINE this
+X<READLINE>
+
+This method is called when the handle is read via C<E<lt>HANDLEE<gt>>
+or C<readline HANDLE>.
+
+As per L<C<readline>|perlfunc/readline>, in scalar context it should return
+the next line, or C<undef> for no more data.  In list context it should
+return all remaining lines, or an empty list for no more data.  The strings
+returned should include the input record separator C<$/> (see L<perlvar>),
+unless it is C<undef> (which means "slurp" mode).
+
+    sub READLINE {
+      my $r = shift;
+      if (wantarray) {
+        return ("all remaining\n",
+                "lines up\n",
+                "to eof\n");
+      } else {
+        return "READLINE called " . ++$$r . " times\n";
+      }
+    }
+
+=item GETC this
+X<GETC>
+
+This method will be called when the C<getc> function is called.
+
+    sub GETC { print "Don't GETC, Get Perl"; return "a"; }
+
+=item EOF this
+X<EOF>
+
+This method will be called when the C<eof> function is called.
+
+Starting with Perl 5.12, an additional integer parameter will be passed.  It
+will be zero if C<eof> is called without parameter; C<1> if C<eof> is given
+a filehandle as a parameter, e.g. C<eof(FH)>; and C<2> in the very special
+case that the tied filehandle is C<ARGV> and C<eof> is called with an empty
+parameter list, e.g. C<eof()>.
+
+    sub EOF { not length $stringbuf }
+
+=item CLOSE this
+X<CLOSE>
+
+This method will be called when the handle is closed via the C<close>
+function.
+
+    sub CLOSE { print "CLOSE called.\n" }
+
+=item UNTIE this
+X<UNTIE>
+
+As with the other types of ties, this method will be called when C<untie> happens.
+It may be appropriate to "auto CLOSE" when this occurs.  See
+L<The C<untie> Gotcha> below.
+
+=item DESTROY this
+X<DESTROY>
+
+As with the other types of ties, this method will be called when the
+tied handle is about to be destroyed. This is useful for debugging and
+possibly cleaning up.
+
+    sub DESTROY { print "</shout>\n" }
+
+=back
+
+Here's how to use our little example:
+
+    tie(*FOO,'Shout');
+    print FOO "hello\n";
+    $a = 4; $b = 6;
+    print FOO $a, " plus ", $b, " equals ", $a + $b, "\n";
+    print <FOO>;
+
+=head2 UNTIE this
+X<UNTIE>
+
+You can define for all tie types an UNTIE method that will be called
+at untie().  See L<The C<untie> Gotcha> below.
+
+=head2 The C<untie> Gotcha
+X<untie>
+
+If you intend making use of the object returned from either tie() or
+tied(), and if the tie's target class defines a destructor, there is a
+subtle gotcha you I<must> guard against.
+
+As setup, consider this (admittedly rather contrived) example of a
+tie; all it does is use a file to keep a log of the values assigned to
+a scalar.
+
+    package Remember;
+
+    use strict;
+    use warnings;
+    use IO::File;
+
+    sub TIESCALAR {
+        my $class = shift;
+        my $filename = shift;
+        my $handle = IO::File->new( "> $filename" )
+                         or die "Cannot open $filename: $!\n";
+
+        print $handle "The Start\n";
+        bless {FH => $handle, Value => 0}, $class;
+    }
+
+    sub FETCH {
+        my $self = shift;
+        return $self->{Value};
+    }
+
+    sub STORE {
+        my $self = shift;
+        my $value = shift;
+        my $handle = $self->{FH};
+        print $handle "$value\n";
+        $self->{Value} = $value;
+    }
+
+    sub DESTROY {
+        my $self = shift;
+        my $handle = $self->{FH};
+        print $handle "The End\n";
+        close $handle;
+    }
+
+    1;
+
+Here is an example that makes use of this tie:
+
+    use strict;
+    use Remember;
+
+    my $fred;
+    tie $fred, 'Remember', 'myfile.txt';
+    $fred = 1;
+    $fred = 4;
+    $fred = 5;
+    untie $fred;
+    system "cat myfile.txt";
+
+This is the output when it is executed:
+
+    The Start
+    1
+    4
+    5
+    The End
+
+So far so good.  Those of you who have been paying attention will have
+spotted that the tied object hasn't been used so far.  So lets add an
+extra method to the Remember class to allow comments to be included in
+the file; say, something like this:
+
+    sub comment {
+        my $self = shift;
+        my $text = shift;
+        my $handle = $self->{FH};
+        print $handle $text, "\n";
+    }
+
+And here is the previous example modified to use the C<comment> method
+(which requires the tied object):
+
+    use strict;
+    use Remember;
+
+    my ($fred, $x);
+    $x = tie $fred, 'Remember', 'myfile.txt';
+    $fred = 1;
+    $fred = 4;
+    comment $x "changing...";
+    $fred = 5;
+    untie $fred;
+    system "cat myfile.txt";
+
+When this code is executed there is no output.  Here's why:
+
+When a variable is tied, it is associated with the object which is the
+return value of the TIESCALAR, TIEARRAY, or TIEHASH function.  This
+object normally has only one reference, namely, the implicit reference
+from the tied variable.  When untie() is called, that reference is
+destroyed.  Then, as in the first example above, the object's
+destructor (DESTROY) is called, which is normal for objects that have
+no more valid references; and thus the file is closed.
+
+In the second example, however, we have stored another reference to
+the tied object in $x.  That means that when untie() gets called
+there will still be a valid reference to the object in existence, so
+the destructor is not called at that time, and thus the file is not
+closed.  The reason there is no output is because the file buffers
+have not been flushed to disk.
+
+Now that you know what the problem is, what can you do to avoid it?
+Prior to the introduction of the optional UNTIE method the only way
+was the good old C<-w> flag. Which will spot any instances where you call
+untie() and there are still valid references to the tied object.  If
+the second script above this near the top C<use warnings 'untie'>
+or was run with the C<-w> flag, Perl prints this
+warning message:
+
+    untie attempted while 1 inner references still exist
+
+To get the script to work properly and silence the warning make sure
+there are no valid references to the tied object I<before> untie() is
+called:
+
+    undef $x;
+    untie $fred;
+
+Now that UNTIE exists the class designer can decide which parts of the
+class functionality are really associated with C<untie> and which with
+the object being destroyed. What makes sense for a given class depends
+on whether the inner references are being kept so that non-tie-related
+methods can be called on the object. But in most cases it probably makes
+sense to move the functionality that would have been in DESTROY to the UNTIE
+method.
+
+If the UNTIE method exists then the warning above does not occur. Instead the
+UNTIE method is passed the count of "extra" references and can issue its own
+warning if appropriate. e.g. to replicate the no UNTIE case this method can
+be used:
+
+ sub UNTIE
+ {
+  my ($obj,$count) = @_;
+  carp "untie attempted while $count inner references still exist"
+                                                              if $count;
+ }
+
+=head1 SEE ALSO
+
+See L<DB_File> or L<Config> for some interesting tie() implementations.
+A good starting point for many tie() implementations is with one of the
+modules L<Tie::Scalar>, L<Tie::Array>, L<Tie::Hash>, or L<Tie::Handle>.
+
+=head1 BUGS
+
+The bucket usage information provided by C<scalar(%hash)> is not
+available.  What this means is that using %tied_hash in boolean
+context doesn't work right (currently this always tests false,
+regardless of whether the hash is empty or hash elements).
+
+Localizing tied arrays or hashes does not work.  After exiting the
+scope the arrays or the hashes are not restored.
+
+Counting the number of entries in a hash via C<scalar(keys(%hash))>
+or C<scalar(values(%hash)>) is inefficient since it needs to iterate
+through all the entries with FIRSTKEY/NEXTKEY.
+
+Tied hash/array slices cause multiple FETCH/STORE pairs, there are no
+tie methods for slice operations.
+
+You cannot easily tie a multilevel data structure (such as a hash of
+hashes) to a dbm file.  The first problem is that all but GDBM and
+Berkeley DB have size limitations, but beyond that, you also have problems
+with how references are to be represented on disk.  One
+module that does attempt to address this need is DBM::Deep.  Check your
+nearest CPAN site as described in L<perlmodlib> for source code.  Note
+that despite its name, DBM::Deep does not use dbm.  Another earlier attempt
+at solving the problem is MLDBM, which is also available on the CPAN, but
+which has some fairly serious limitations.
+
+Tied filehandles are still incomplete.  sysopen(), truncate(),
+flock(), fcntl(), stat() and -X can't currently be trapped.
+
+=head1 AUTHOR
+
+Tom Christiansen
+
+TIEHANDLE by Sven Verdoolaege <F<skimo@dns.ufsia.ac.be>> and Doug MacEachern <F<dougm@osf.org>>
+
+UNTIE by Nick Ing-Simmons <F<nick@ing-simmons.net>>
+
+SCALAR by Tassilo von Parseval <F<tassilo.von.parseval@rwth-aachen.de>>
+
+Tying Arrays by Casey West <F<casey@geeknest.com>>
diff --git a/lib/5.24.1/pod/perltoc.pod b/lib/5.24.1/pod/perltoc.pod
new file mode 100644
index 00000000..b1feeadf
--- /dev/null
+++ b/lib/5.24.1/pod/perltoc.pod
@@ -0,0 +1,35803 @@
+
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is autogenerated by buildtoc from all the other pods.
+# Edit those files and run pod/buildtoc to effect changes.
+
+=encoding UTF-8
+
+=head1 NAME
+
+perltoc - perl documentation table of contents
+
+=head1 DESCRIPTION
+
+This page provides a brief table of contents for the rest of the Perl
+documentation set.  It is meant to be scanned quickly or grepped
+through to locate the proper section you're looking for.
+
+=head1 BASIC DOCUMENTATION
+
+=head2 perl - The Perl 5 language interpreter
+
+=over 4
+
+=item SYNOPSIS
+
+=item GETTING HELP
+
+=over 4
+
+=item Overview
+
+=item Tutorials
+
+=item Reference Manual
+
+=item Internals and C Language Interface
+
+=item Miscellaneous
+
+=item Language-Specific
+
+=item Platform-Specific
+
+=item Stubs for Deleted Documents
+
+=back
+
+=item DESCRIPTION
+
+=item AVAILABILITY
+
+=item ENVIRONMENT
+
+=item AUTHOR
+
+=item FILES
+
+=item SEE ALSO
+
+=item DIAGNOSTICS
+
+=item BUGS
+
+=item NOTES
+
+=back
+
+=head2 perlintro -- a brief introduction and overview of Perl
+
+=over 4
+
+=item DESCRIPTION
+
+=over 4
+
+=item What is Perl?
+
+=item Running Perl programs
+
+=item Safety net
+
+=item Basic syntax overview
+
+=item Perl variable types
+
+Scalars, Arrays, Hashes
+
+=item Variable scoping
+
+=item Conditional and looping constructs
+
+if, while, for, foreach
+
+=item Builtin operators and functions
+
+Arithmetic, Numeric comparison, String comparison, Boolean logic,
+Miscellaneous
+
+=item Files and I/O
+
+=item Regular expressions
+
+Simple matching, Simple substitution, More complex regular expressions,
+Parentheses for capturing, Other regexp features
+
+=item Writing subroutines
+
+=item OO Perl
+
+=item Using Perl modules
+
+=back
+
+=item AUTHOR
+
+=back
+
+=head2 perlrun - how to execute the Perl interpreter
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item #! and quoting on non-Unix systems
+X<hashbang> X<#!>
+
+OS/2, MS-DOS, Win95/NT, VMS
+
+=item Location of Perl
+X<perl, location of interpreter>
+
+=item Command Switches
+X<perl, command switches> X<command switches>
+
+B<-0>[I<octal/hexadecimal>] X<-0> X<$/>, B<-a> X<-a> X<autosplit>, B<-C
+[I<number/list>]> X<-C>, B<-c> X<-c>, B<-d> X<-d> X<-dt>, B<-dt>,
+B<-d:>I<MOD[=bar,baz]> X<-d> X<-dt>, B<-dt:>I<MOD[=bar,baz]>,
+B<-D>I<letters> X<-D> X<DEBUGGING> X<-DDEBUGGING>, B<-D>I<number>, B<-e>
+I<commandline> X<-e>, B<-E> I<commandline> X<-E>, B<-f> X<-f>
+X<sitecustomize> X<sitecustomize.pl>, B<-F>I<pattern> X<-F>, B<-h> X<-h>,
+B<-i>[I<extension>] X<-i> X<in-place>, B<-I>I<directory> X<-I> X<@INC>,
+B<-l>[I<octnum>] X<-l> X<$/> X<$\>, B<-m>[B<->]I<module> X<-m> X<-M>,
+B<-M>[B<->]I<module>, B<-M>[B<->]I<'module ...'>,
+B<-[mM]>[B<->]I<module=arg[,arg]...>, B<-n> X<-n>, B<-p> X<-p>, B<-s>
+X<-s>, B<-S> X<-S>, B<-t> X<-t>, B<-T> X<-T>, B<-u> X<-u>, B<-U> X<-U>,
+B<-v> X<-v>, B<-V> X<-V>, B<-V:>I<configvar>, B<-w> X<-w>, B<-W> X<-W>,
+B<-X> X<-X>, B<-x> X<-x>, B<-x>I<directory>
+
+=back
+
+=item ENVIRONMENT
+X<perl, environment variables>
+
+HOME X<HOME>, LOGDIR X<LOGDIR>, PATH X<PATH>, PERL5LIB X<PERL5LIB>,
+PERL5OPT X<PERL5OPT>, PERLIO X<PERLIO>, :bytes X<:bytes>, :crlf X<:crlf>,
+:mmap X<:mmap>, :perlio X<:perlio>, :pop X<:pop>, :raw X<:raw>, :stdio
+X<:stdio>, :unix X<:unix>, :utf8 X<:utf8>, :win32 X<:win32>, PERLIO_DEBUG
+X<PERLIO_DEBUG>, PERLLIB X<PERLLIB>, PERL5DB X<PERL5DB>, PERL5DB_THREADED
+X<PERL5DB_THREADED>, PERL5SHELL (specific to the Win32 port) X<PERL5SHELL>,
+PERL_ALLOW_NON_IFS_LSP (specific to the Win32 port)
+X<PERL_ALLOW_NON_IFS_LSP>, PERL_DEBUG_MSTATS X<PERL_DEBUG_MSTATS>,
+PERL_DESTRUCT_LEVEL X<PERL_DESTRUCT_LEVEL>, PERL_DL_NONLAZY
+X<PERL_DL_NONLAZY>, PERL_ENCODING X<PERL_ENCODING>, PERL_HASH_SEED
+X<PERL_HASH_SEED>, PERL_PERTURB_KEYS X<PERL_PERTURB_KEYS>,
+PERL_HASH_SEED_DEBUG X<PERL_HASH_SEED_DEBUG>, PERL_MEM_LOG X<PERL_MEM_LOG>,
+PERL_ROOT (specific to the VMS port) X<PERL_ROOT>, PERL_SIGNALS
+X<PERL_SIGNALS>, PERL_UNICODE X<PERL_UNICODE>, SYS$LOGIN (specific to the
+VMS port) X<SYS$LOGIN>
+
+=back
+
+=head2 perlreftut - Mark's very short tutorial about references
+
+=over 4
+
+=item DESCRIPTION
+
+=item Who Needs Complicated Data Structures?
+
+=item The Solution
+
+=item Syntax
+
+=over 4
+
+=item Making References
+
+=item Using References
+
+=item An Example
+
+=item Arrow Rule
+
+=back
+
+=item Solution
+
+=item The Rest
+
+=item Summary
+
+=item Credits
+
+=over 4
+
+=item Distribution Conditions
+
+=back
+
+=back
+
+=head2 perldsc - Perl Data Structures Cookbook
+
+=over 4
+
+=item DESCRIPTION
+
+arrays of arrays, hashes of arrays, arrays of hashes, hashes of hashes,
+more elaborate constructs
+
+=item REFERENCES
+X<reference> X<dereference> X<dereferencing> X<pointer>
+
+=item COMMON MISTAKES
+
+=item CAVEAT ON PRECEDENCE
+X<dereference, precedence> X<dereferencing, precedence>
+
+=item WHY YOU SHOULD ALWAYS C<use strict>
+
+=item DEBUGGING
+X<data structure, debugging> X<complex data structure, debugging>
+X<AoA, debugging> X<HoA, debugging> X<AoH, debugging> X<HoH, debugging>
+X<array of arrays, debugging> X<hash of arrays, debugging>
+X<array of hashes, debugging> X<hash of hashes, debugging>
+
+=item CODE EXAMPLES
+
+=item ARRAYS OF ARRAYS
+X<array of arrays> X<AoA>
+
+=over 4
+
+=item Declaration of an ARRAY OF ARRAYS
+
+=item Generation of an ARRAY OF ARRAYS
+
+=item Access and Printing of an ARRAY OF ARRAYS
+
+=back
+
+=item HASHES OF ARRAYS
+X<hash of arrays> X<HoA>
+
+=over 4
+
+=item Declaration of a HASH OF ARRAYS
+
+=item Generation of a HASH OF ARRAYS
+
+=item Access and Printing of a HASH OF ARRAYS
+
+=back
+
+=item ARRAYS OF HASHES
+X<array of hashes> X<AoH>
+
+=over 4
+
+=item Declaration of an ARRAY OF HASHES
+
+=item Generation of an ARRAY OF HASHES
+
+=item Access and Printing of an ARRAY OF HASHES
+
+=back
+
+=item HASHES OF HASHES
+X<hash of hashes> X<HoH>
+
+=over 4
+
+=item Declaration of a HASH OF HASHES
+
+=item Generation of a HASH OF HASHES
+
+=item Access and Printing of a HASH OF HASHES
+
+=back
+
+=item MORE ELABORATE RECORDS
+X<record> X<structure> X<struct>
+
+=over 4
+
+=item Declaration of MORE ELABORATE RECORDS
+
+=item Declaration of a HASH OF COMPLEX RECORDS
+
+=item Generation of a HASH OF COMPLEX RECORDS
+
+=back
+
+=item Database Ties
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=back
+
+=head2 perllol - Manipulating Arrays of Arrays in Perl
+
+=over 4
+
+=item DESCRIPTION
+
+=over 4
+
+=item Declaration and Access of Arrays of Arrays
+
+=item Growing Your Own
+
+=item Access and Printing
+
+=item Slices
+
+=back
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=back
+
+=head2 perlrequick - Perl regular expressions quick start
+
+=over 4
+
+=item DESCRIPTION
+
+=item The Guide
+
+=over 4
+
+=item Simple word matching
+
+=item Using character classes
+
+=item Matching this or that
+
+=item Grouping things and hierarchical matching
+
+=item Extracting matches
+
+=item Matching repetitions
+
+=item More matching
+
+=item Search and replace
+
+=item The split operator
+
+=item C<use re 'strict'>
+
+=back
+
+=item BUGS
+
+=item SEE ALSO
+
+=item AUTHOR AND COPYRIGHT
+
+=over 4
+
+=item Acknowledgments
+
+=back
+
+=back
+
+=head2 perlretut - Perl regular expressions tutorial
+
+=over 4
+
+=item DESCRIPTION
+
+=item Part 1: The basics
+
+=over 4
+
+=item Simple word matching
+
+=item Using character classes
+
+=item Matching this or that
+
+=item Grouping things and hierarchical matching
+
+Z<>0, Z<>1, Z<>2, Z<>3, Z<>4, Z<>5, Z<>6, Z<>7, Z<>8, Z<>9
+
+=item Extracting matches
+
+=item Backreferences
+
+=item Relative backreferences
+
+=item Named backreferences
+
+=item Alternative capture group numbering
+
+=item Position information
+
+=item Non-capturing groupings
+
+=item Matching repetitions
+
+Z<>0, Z<>1, Z<>2, Z<>3, Z<>4, Z<>5, Z<>6
+
+=item Possessive quantifiers
+
+=item Building a regexp
+
+=item Using regular expressions in Perl
+
+=back
+
+=item Part 2: Power tools
+
+=over 4
+
+=item More on characters, strings, and character classes
+
+=item Compiling and saving regular expressions
+
+=item Composing regular expressions at runtime
+
+=item Embedding comments and modifiers in a regular expression
+
+=item Looking ahead and looking behind
+
+=item Using independent subexpressions to prevent backtracking
+
+=item Conditional expressions
+
+=item Defining named patterns
+
+=item Recursive patterns
+
+=item A bit of magic: executing Perl code in a regular expression
+
+=item Backtracking control verbs
+
+=item Pragmas and debugging
+
+=back
+
+=item BUGS
+
+=item SEE ALSO
+
+=item AUTHOR AND COPYRIGHT
+
+=over 4
+
+=item Acknowledgments
+
+=back
+
+=back
+
+=head2 perlootut - Object-Oriented Programming in Perl Tutorial
+
+=over 4
+
+=item DATE
+
+=item DESCRIPTION
+
+=item OBJECT-ORIENTED FUNDAMENTALS
+
+=over 4
+
+=item Object
+
+=item Class
+
+=item Methods
+
+=item Attributes
+
+=item Polymorphism
+
+=item Inheritance
+
+=item Encapsulation
+
+=item Composition
+
+=item Roles
+
+=item When to Use OO
+
+=back
+
+=item PERL OO SYSTEMS
+
+=over 4
+
+=item Moose
+
+Declarative sugar, Roles built-in, A miniature type system, Full
+introspection and manipulation, Self-hosted and extensible, Rich ecosystem,
+Many more features
+
+=item Class::Accessor
+
+=item Class::Tiny
+
+=item Role::Tiny
+
+=item OO System Summary
+
+L<Moose>, L<Class::Accessor>, L<Class::Tiny>, L<Role::Tiny>
+
+=item Other OO Systems
+
+=back
+
+=item CONCLUSION
+
+=back
+
+=head2 perlperf - Perl Performance and Optimization Techniques
+
+=over 4
+
+=item DESCRIPTION
+
+=item OVERVIEW
+
+=over 4
+
+=item ONE STEP SIDEWAYS
+
+=item ONE STEP FORWARD
+
+=item ANOTHER STEP SIDEWAYS
+
+=back
+
+=item GENERAL GUIDELINES
+
+=item BENCHMARKS
+
+=over 4
+
+=item  Assigning and Dereferencing Variables.
+
+=item  Search and replace or tr
+
+=back
+
+=item PROFILING TOOLS
+
+=over 4
+
+=item Devel::DProf
+
+=item Devel::Profiler
+
+=item Devel::SmallProf
+
+=item Devel::FastProf
+
+=item Devel::NYTProf
+
+=back
+
+=item  SORTING
+
+Elapsed Real Time, User CPU Time, System CPU Time
+
+=item LOGGING
+
+=over 4
+
+=item  Logging if DEBUG (constant)
+
+=back
+
+=item POSTSCRIPT
+
+=item SEE ALSO
+
+=over 4
+
+=item PERLDOCS
+
+=item MAN PAGES
+
+=item MODULES
+
+=item URLS
+
+=back
+
+=item AUTHOR
+
+=back
+
+=head2 perlstyle - Perl style guide
+
+=over 4
+
+=item DESCRIPTION
+
+=back
+
+=head2 perlcheat - Perl 5 Cheat Sheet
+
+=over 4
+
+=item DESCRIPTION
+
+=over 4
+
+=item The sheet
+
+=back
+
+=item ACKNOWLEDGEMENTS
+
+=item AUTHOR
+
+=item SEE ALSO
+
+=back
+
+=head2 perltrap - Perl traps for the unwary
+
+=over 4
+
+=item DESCRIPTION
+
+=over 4
+
+=item Awk Traps
+
+=item C/C++ Traps
+
+=item JavaScript Traps
+
+=item Sed Traps
+
+=item Shell Traps
+
+=item Perl Traps
+
+=back
+
+=back
+
+=head2 perldebtut - Perl debugging tutorial
+
+=over 4
+
+=item DESCRIPTION
+
+=item use strict
+
+=item Looking at data and -w and v
+
+=item help
+
+=item Stepping through code
+
+=item Placeholder for a, w, t, T
+
+=item REGULAR EXPRESSIONS
+
+=item OUTPUT TIPS
+
+=item CGI
+
+=item GUIs
+
+=item SUMMARY
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=item CONTRIBUTORS
+
+=back
+
+=head2 perlfaq - frequently asked questions about Perl
+
+=over 4
+
+=item VERSION
+
+=item DESCRIPTION
+
+=over 4
+
+=item Where to find the perlfaq
+
+=item How to use the perlfaq
+
+=item How to contribute to the perlfaq
+
+=item What if my question isn't answered in the FAQ?
+
+=back
+
+=item TABLE OF CONTENTS
+
+perlfaq1 - General Questions About Perl, perlfaq2 - Obtaining and Learning
+about Perl, perlfaq3 - Programming Tools, perlfaq4 - Data Manipulation,
+perlfaq5 - Files and Formats, perlfaq6 - Regular Expressions, perlfaq7 -
+General Perl Language Issues, perlfaq8 - System Interaction, perlfaq9 -
+Web, Email and Networking
+
+=item THE QUESTIONS
+
+=over 4
+
+=item L<perlfaq1>: General Questions About Perl
+
+=item L<perlfaq2>: Obtaining and Learning about Perl
+
+=item L<perlfaq3>: Programming Tools
+
+=item L<perlfaq4>: Data Manipulation
+
+=item L<perlfaq5>: Files and Formats
+
+=item L<perlfaq6>: Regular Expressions
+
+=item L<perlfaq7>: General Perl Language Issues
+
+=item L<perlfaq8>: System Interaction
+
+=item L<perlfaq9>: Web, Email and Networking
+
+=back
+
+=item CREDITS
+
+=item AUTHOR AND COPYRIGHT
+
+=back
+
+=head2 perlfaq1 - General Questions About Perl
+
+=over 4
+
+=item VERSION
+
+=item DESCRIPTION
+
+=over 4
+
+=item What is Perl?
+
+=item Who supports Perl? Who develops it? Why is it free?
+
+=item Which version of Perl should I use?
+
+=item What are Perl 4, Perl 5, or Perl 6?
+
+=item What is Perl 6?
+
+=item How stable is Perl?
+
+=item How often are new versions of Perl released?
+
+=item Is Perl difficult to learn?
+
+=item How does Perl compare with other languages like Java, Python, REXX,
+Scheme, or Tcl?
+
+=item Can I do [task] in Perl?
+
+=item When shouldn't I program in Perl?
+
+=item What's the difference between "perl" and "Perl"?
+
+=item What is a JAPH?
+
+=item How can I convince others to use Perl?
+
+L<http://www.perl.org/about.html>,
+L<http://perltraining.com.au/whyperl.html>
+
+=back
+
+=item AUTHOR AND COPYRIGHT
+
+=back
+
+=head2 perlfaq2 - Obtaining and Learning about Perl
+
+=over 4
+
+=item VERSION
+
+=item DESCRIPTION
+
+=over 4
+
+=item What machines support Perl? Where do I get it?
+
+=item How can I get a binary version of Perl?
+
+=item I don't have a C compiler. How can I build my own Perl interpreter?
+
+=item I copied the Perl binary from one machine to another, but scripts
+don't work.
+
+=item I grabbed the sources and tried to compile but gdbm/dynamic
+loading/malloc/linking/... failed. How do I make it work?
+
+=item What modules and extensions are available for Perl? What is CPAN?
+
+=item Where can I get information on Perl?
+
+L<http://www.perl.org/>, L<http://perldoc.perl.org/>,
+L<http://learn.perl.org/>
+
+=item What is perl.com? Perl Mongers? pm.org? perl.org? cpan.org?
+
+L<http://www.perl.org/>, L<http://learn.perl.org/>,
+L<http://jobs.perl.org/>, L<http://lists.perl.org/>
+
+=item Where can I post questions?
+
+=item Perl Books
+
+=item Which magazines have Perl content?
+
+=item Which Perl blogs should I read?
+
+=item What mailing lists are there for Perl?
+
+=item Where can I buy a commercial version of Perl?
+
+=item Where do I send bug reports?
+
+=back
+
+=item AUTHOR AND COPYRIGHT
+
+=back
+
+=head2 perlfaq3 - Programming Tools
+
+=over 4
+
+=item VERSION
+
+=item DESCRIPTION
+
+=over 4
+
+=item How do I do (anything)?
+
+Basics, L<perldata> - Perl data types, L<perlvar> - Perl pre-defined
+variables, L<perlsyn> - Perl syntax, L<perlop> - Perl operators and
+precedence, L<perlsub> - Perl subroutines, Execution, L<perlrun> - how to
+execute the Perl interpreter, L<perldebug> - Perl debugging, Functions,
+L<perlfunc> - Perl builtin functions, Objects, L<perlref> - Perl references
+and nested data structures, L<perlmod> - Perl modules (packages and symbol
+tables), L<perlobj> - Perl objects, L<perltie> - how to hide an object
+class in a simple variable, Data Structures, L<perlref> - Perl references
+and nested data structures, L<perllol> - Manipulating arrays of arrays in
+Perl, L<perldsc> - Perl Data Structures Cookbook, Modules, L<perlmod> -
+Perl modules (packages and symbol tables), L<perlmodlib> - constructing new
+Perl modules and finding existing ones, Regexes, L<perlre> - Perl regular
+expressions, L<perlfunc> - Perl builtin functions>, L<perlop> - Perl
+operators and precedence, L<perllocale> - Perl locale handling
+(internationalization and localization), Moving to perl5, L<perltrap> -
+Perl traps for the unwary, L<perl>, Linking with C, L<perlxstut> - Tutorial
+for writing XSUBs, L<perlxs> - XS language reference manual, L<perlcall> -
+Perl calling conventions from C, L<perlguts> - Introduction to the Perl
+API, L<perlembed> - how to embed perl in your C program, Various
+
+=item How can I use Perl interactively?
+
+=item How do I find which modules are installed on my system?
+
+=item How do I debug my Perl programs?
+
+=item How do I profile my Perl programs?
+
+=item How do I cross-reference my Perl programs?
+
+=item Is there a pretty-printer (formatter) for Perl?
+
+=item Is there an IDE or Windows Perl Editor?
+
+Eclipse, Enginsite, Kephra, Komodo, Notepad++, Open Perl IDE, OptiPerl,
+Padre, PerlBuilder, visiPerl+, Visual Perl, Zeus, GNU Emacs, MicroEMACS,
+XEmacs, Jed, Vim, Vile, MultiEdit, SlickEdit, ConTEXT, bash, zsh, BBEdit
+and TextWrangler
+
+=item Where can I get Perl macros for vi?
+
+=item Where can I get perl-mode or cperl-mode for emacs?
+X<emacs>
+
+=item How can I use curses with Perl?
+
+=item How can I write a GUI (X, Tk, Gtk, etc.) in Perl?
+X<GUI> X<Tk> X<Wx> X<WxWidgets> X<Gtk> X<Gtk2> X<CamelBones> X<Qt>
+
+Tk, Wx, Gtk and Gtk2, Win32::GUI, CamelBones, Qt, Athena
+
+=item How can I make my Perl program run faster?
+
+=item How can I make my Perl program take less memory?
+
+Don't slurp!, Use map and grep selectively, Avoid unnecessary quotes and
+stringification, Pass by reference, Tie large variables to disk
+
+=item Is it safe to return a reference to local or lexical data?
+
+=item How can I free an array or hash so my program shrinks?
+
+=item How can I make my CGI script more efficient?
+
+=item How can I hide the source for my Perl program?
+
+=item How can I compile my Perl program into byte code or C?
+
+=item How can I get C<#!perl> to work on [MS-DOS,NT,...]?
+
+=item Can I write useful Perl programs on the command line?
+
+=item Why don't Perl one-liners work on my DOS/Mac/VMS system?
+
+=item Where can I learn about CGI or Web programming in Perl?
+
+=item Where can I learn about object-oriented Perl programming?
+
+=item Where can I learn about linking C with Perl?
+
+=item I've read perlembed, perlguts, etc., but I can't embed perl in my C
+program; what am I doing wrong?
+
+=item When I tried to run my script, I got this message. What does it mean?
+
+=item What's MakeMaker?
+
+=back
+
+=item AUTHOR AND COPYRIGHT
+
+=back
+
+=head2 perlfaq4 - Data Manipulation
+
+=over 4
+
+=item VERSION
+
+=item DESCRIPTION
+
+=item Data: Numbers
+
+=over 4
+
+=item Why am I getting long decimals (eg, 19.9499999999999) instead of the
+numbers I should be getting (eg, 19.95)?
+
+=item Why is int() broken?
+
+=item Why isn't my octal data interpreted correctly?
+
+=item Does Perl have a round() function? What about ceil() and floor()?
+Trig functions?
+
+=item How do I convert between numeric representations/bases/radixes?
+
+How do I convert hexadecimal into decimal, How do I convert from decimal to
+hexadecimal, How do I convert from octal to decimal, How do I convert from
+decimal to octal, How do I convert from binary to decimal, How do I convert
+from decimal to binary
+
+=item Why doesn't & work the way I want it to?
+
+=item How do I multiply matrices?
+
+=item How do I perform an operation on a series of integers?
+
+=item How can I output Roman numerals?
+
+=item Why aren't my random numbers random?
+
+=item How do I get a random number between X and Y?
+
+=back
+
+=item Data: Dates
+
+=over 4
+
+=item How do I find the day or week of the year?
+
+=item How do I find the current century or millennium?
+
+=item How can I compare two dates and find the difference?
+
+=item How can I take a string and turn it into epoch seconds?
+
+=item How can I find the Julian Day?
+
+=item How do I find yesterday's date?
+X<date> X<yesterday> X<DateTime> X<Date::Calc> X<Time::Local>
+X<daylight saving time> X<day> X<Today_and_Now> X<localtime>
+X<timelocal>
+
+=item Does Perl have a Year 2000 or 2038 problem? Is Perl Y2K compliant?
+
+=back
+
+=item Data: Strings
+
+=over 4
+
+=item How do I validate input?
+
+=item How do I unescape a string?
+
+=item How do I remove consecutive pairs of characters?
+
+=item How do I expand function calls in a string?
+
+=item How do I find matching/nesting anything?
+
+=item How do I reverse a string?
+
+=item How do I expand tabs in a string?
+
+=item How do I reformat a paragraph?
+
+=item How can I access or change N characters of a string?
+
+=item How do I change the Nth occurrence of something?
+
+=item How can I count the number of occurrences of a substring within a
+string?
+
+=item How do I capitalize all the words on one line?
+X<Text::Autoformat> X<capitalize> X<case, title> X<case, sentence>
+
+=item How can I split a [character]-delimited string except when inside
+[character]?
+
+=item How do I strip blank space from the beginning/end of a string?
+
+=item How do I pad a string with blanks or pad a number with zeroes?
+
+=item How do I extract selected columns from a string?
+
+=item How do I find the soundex value of a string?
+
+=item How can I expand variables in text strings?
+
+=item What's wrong with always quoting "$vars"?
+
+=item Why don't my E<lt>E<lt>HERE documents work?
+
+There must be no space after the E<lt>E<lt> part, There (probably) should
+be a semicolon at the end of the opening token, You can't (easily) have any
+space in front of the tag, There needs to be at least a line separator
+after the end token
+
+=back
+
+=item Data: Arrays
+
+=over 4
+
+=item What is the difference between a list and an array?
+
+=item What is the difference between $array[1] and @array[1]?
+
+=item How can I remove duplicate elements from a list or array?
+
+=item How can I tell whether a certain element is contained in a list or
+array?
+
+=item How do I compute the difference of two arrays? How do I compute the
+intersection of two arrays?
+
+=item How do I test whether two arrays or hashes are equal?
+
+=item How do I find the first array element for which a condition is true?
+
+=item How do I handle linked lists?
+
+=item How do I handle circular lists?
+X<circular> X<array> X<Tie::Cycle> X<Array::Iterator::Circular>
+X<cycle> X<modulus>
+
+=item How do I shuffle an array randomly?
+
+=item How do I process/modify each element of an array?
+
+=item How do I select a random element from an array?
+
+=item How do I permute N elements of a list?
+X<List::Permutor> X<permute> X<Algorithm::Loops> X<Knuth>
+X<The Art of Computer Programming> X<Fischer-Krause>
+
+=item How do I sort an array by (anything)?
+
+=item How do I manipulate arrays of bits?
+
+=item Why does defined() return true on empty arrays and hashes?
+
+=back
+
+=item Data: Hashes (Associative Arrays)
+
+=over 4
+
+=item How do I process an entire hash?
+
+=item How do I merge two hashes?
+X<hash> X<merge> X<slice, hash>
+
+=item What happens if I add or remove keys from a hash while iterating over
+it?
+
+=item How do I look up a hash element by value?
+
+=item How can I know how many entries are in a hash?
+
+=item How do I sort a hash (optionally by value instead of key)?
+
+=item How can I always keep my hash sorted?
+X<hash tie sort DB_File Tie::IxHash>
+
+=item What's the difference between "delete" and "undef" with hashes?
+
+=item Why don't my tied hashes make the defined/exists distinction?
+
+=item How do I reset an each() operation part-way through?
+
+=item How can I get the unique keys from two hashes?
+
+=item How can I store a multidimensional array in a DBM file?
+
+=item How can I make my hash remember the order I put elements into it?
+
+=item Why does passing a subroutine an undefined element in a hash create
+it?
+
+=item How can I make the Perl equivalent of a C structure/C++ class/hash or
+array of hashes or arrays?
+
+=item How can I use a reference as a hash key?
+
+=item How can I check if a key exists in a multilevel hash?
+
+=item How can I prevent addition of unwanted keys into a hash?
+
+=back
+
+=item Data: Misc
+
+=over 4
+
+=item How do I handle binary data correctly?
+
+=item How do I determine whether a scalar is a number/whole/integer/float?
+
+=item How do I keep persistent data across program calls?
+
+=item How do I print out or copy a recursive data structure?
+
+=item How do I define methods for every class/object?
+
+=item How do I verify a credit card checksum?
+
+=item How do I pack arrays of doubles or floats for XS code?
+
+=back
+
+=item AUTHOR AND COPYRIGHT
+
+=back
+
+=head2 perlfaq5 - Files and Formats
+
+=over 4
+
+=item VERSION
+
+=item DESCRIPTION
+
+=over 4
+
+=item How do I flush/unbuffer an output filehandle? Why must I do this?
+X<flush> X<buffer> X<unbuffer> X<autoflush>
+
+=item How do I change, delete, or insert a line in a file, or append to the
+beginning of a file?
+X<file, editing>
+
+=item How do I count the number of lines in a file?
+X<file, counting lines> X<lines> X<line>
+
+=item How do I delete the last N lines from a file?
+X<lines> X<file>
+
+=item How can I use Perl's C<-i> option from within a program?
+X<-i> X<in-place>
+
+=item How can I copy a file?
+X<copy> X<file, copy> X<File::Copy>
+
+=item How do I make a temporary file name?
+X<file, temporary>
+
+=item How can I manipulate fixed-record-length files?
+X<fixed-length> X<file, fixed-length records>
+
+=item How can I make a filehandle local to a subroutine? How do I pass
+filehandles between subroutines? How do I make an array of filehandles?
+X<filehandle, local> X<filehandle, passing> X<filehandle, reference>
+
+=item How can I use a filehandle indirectly?
+X<filehandle, indirect>
+
+=item How can I set up a footer format to be used with write()?
+X<footer>
+
+=item How can I write() into a string?
+X<write, into a string>
+
+=item How can I open a filehandle to a string?
+X<string> X<open> X<IO::String> X<filehandle>
+
+=item How can I output my numbers with commas added?
+X<number, commify>
+
+=item How can I translate tildes (~) in a filename?
+X<tilde> X<tilde expansion>
+
+=item How come when I open a file read-write it wipes it out?
+X<clobber> X<read-write> X<clobbering> X<truncate> X<truncating>
+
+=item Why do I sometimes get an "Argument list too long" when I use
+E<lt>*E<gt>?
+X<argument list too long>
+
+=item How can I open a file with a leading ">" or trailing blanks?
+X<filename, special characters>
+
+=item How can I reliably rename a file?
+X<rename> X<mv> X<move> X<file, rename>
+
+=item How can I lock a file?
+X<lock> X<file, lock> X<flock>
+
+=item Why can't I just open(FH, "E<gt>file.lock")?
+X<lock, lockfile race condition>
+
+=item I still don't get locking. I just want to increment the number in the
+file. How can I do this?
+X<counter> X<file, counter>
+
+=item All I want to do is append a small amount of text to the end of a
+file. Do I still have to use locking?
+X<append> X<file, append>
+
+=item How do I randomly update a binary file?
+X<file, binary patch>
+
+=item How do I get a file's timestamp in perl?
+X<timestamp> X<file, timestamp>
+
+=item How do I set a file's timestamp in perl?
+X<timestamp> X<file, timestamp>
+
+=item How do I print to more than one file at once?
+X<print, to multiple files>
+
+=item How can I read in an entire file all at once?
+X<slurp> X<file, slurping>
+
+=item How can I read in a file by paragraphs?
+X<file, reading by paragraphs>
+
+=item How can I read a single character from a file? From the keyboard?
+X<getc> X<file, reading one character at a time>
+
+=item How can I tell whether there's a character waiting on a filehandle?
+
+=item How do I do a C<tail -f> in perl?
+X<tail> X<IO::Handle> X<File::Tail> X<clearerr>
+
+=item How do I dup() a filehandle in Perl?
+X<dup>
+
+=item How do I close a file descriptor by number?
+X<file, closing file descriptors> X<POSIX> X<close>
+
+=item Why can't I use "C:\temp\foo" in DOS paths? Why doesn't
+`C:\temp\foo.exe` work?
+X<filename, DOS issues>
+
+=item Why doesn't glob("*.*") get all the files?
+X<glob>
+
+=item Why does Perl let me delete read-only files? Why does C<-i> clobber
+protected files? Isn't this a bug in Perl?
+
+=item How do I select a random line from a file?
+X<file, selecting a random line>
+
+=item Why do I get weird spaces when I print an array of lines?
+
+=item How do I traverse a directory tree?
+
+=item How do I delete a directory tree?
+
+=item How do I copy an entire directory?
+
+=back
+
+=item AUTHOR AND COPYRIGHT
+
+=back
+
+=head2 perlfaq6 - Regular Expressions
+
+=over 4
+
+=item VERSION
+
+=item DESCRIPTION
+
+=over 4
+
+=item How can I hope to use regular expressions without creating illegible
+and unmaintainable code?
+X<regex, legibility> X<regexp, legibility>
+X<regular expression, legibility> X</x>
+
+Comments Outside the Regex, Comments Inside the Regex, Different Delimiters
+
+=item I'm having trouble matching over more than one line. What's wrong?
+X<regex, multiline> X<regexp, multiline> X<regular expression, multiline>
+
+=item How can I pull out lines between two patterns that are themselves on
+different lines?
+X<..>
+
+=item How do I match XML, HTML, or other nasty, ugly things with a regex?
+X<regex, XML> X<regex, HTML> X<XML> X<HTML> X<pain> X<frustration>
+X<sucking out, will to live>
+
+=item I put a regular expression into $/ but it didn't work. What's wrong?
+X<$/, regexes in> X<$INPUT_RECORD_SEPARATOR, regexes in>
+X<$RS, regexes in>
+
+=item How do I substitute case-insensitively on the LHS while preserving
+case on the RHS?
+X<replace, case preserving> X<substitute, case preserving>
+X<substitution, case preserving> X<s, case preserving>
+
+=item How can I make C<\w> match national character sets?
+X<\w>
+
+=item How can I match a locale-smart version of C</[a-zA-Z]/>?
+X<alpha>
+
+=item How can I quote a variable to use in a regex?
+X<regex, escaping> X<regexp, escaping> X<regular expression, escaping>
+
+=item What is C</o> really for?
+X</o, regular expressions> X<compile, regular expressions>
+
+=item How do I use a regular expression to strip C-style comments from a
+file?
+
+=item Can I use Perl regular expressions to match balanced text?
+X<regex, matching balanced test> X<regexp, matching balanced test>
+X<regular expression, matching balanced test> X<possessive> X<PARNO>
+X<Text::Balanced> X<Regexp::Common> X<backtracking> X<recursion>
+
+=item What does it mean that regexes are greedy? How can I get around it?
+X<greedy> X<greediness>
+
+=item How do I process each word on each line?
+X<word>
+
+=item How can I print out a word-frequency or line-frequency summary?
+
+=item How can I do approximate matching?
+X<match, approximate> X<matching, approximate>
+
+=item How do I efficiently match many regular expressions at once?
+X<regex, efficiency> X<regexp, efficiency>
+X<regular expression, efficiency>
+
+=item Why don't word-boundary searches with C<\b> work for me?
+X<\b>
+
+=item Why does using $&, $`, or $' slow my program down?
+X<$MATCH> X<$&> X<$POSTMATCH> X<$'> X<$PREMATCH> X<$`>
+
+=item What good is C<\G> in a regular expression?
+X<\G>
+
+=item Are Perl regexes DFAs or NFAs? Are they POSIX compliant?
+X<DFA> X<NFA> X<POSIX>
+
+=item What's wrong with using grep in a void context?
+X<grep>
+
+=item How can I match strings with multibyte characters?
+X<regex, and multibyte characters> X<regexp, and multibyte characters>
+X<regular expression, and multibyte characters> X<martian> X<encoding,
+Martian>
+
+=item How do I match a regular expression that's in a variable?
+X<regex, in variable> X<eval> X<regex> X<quotemeta> X<\Q, regex>
+X<\E, regex> X<qr//>
+
+=back
+
+=item AUTHOR AND COPYRIGHT
+
+=back
+
+=head2 perlfaq7 - General Perl Language Issues
+
+=over 4
+
+=item VERSION
+
+=item DESCRIPTION
+
+=over 4
+
+=item Can I get a BNF/yacc/RE for the Perl language?
+
+=item What are all these $@%&* punctuation signs, and how do I know when to
+use them?
+
+=item Do I always/never have to quote my strings or use semicolons and
+commas?
+
+=item How do I skip some return values?
+
+=item How do I temporarily block warnings?
+
+=item What's an extension?
+
+=item Why do Perl operators have different precedence than C operators?
+
+=item How do I declare/create a structure?
+
+=item How do I create a module?
+
+=item How do I adopt or take over a module already on CPAN?
+
+=item How do I create a class?
+X<class, creation> X<package>
+
+=item How can I tell if a variable is tainted?
+
+=item What's a closure?
+
+=item What is variable suicide and how can I prevent it?
+
+=item How can I pass/return a {Function, FileHandle, Array, Hash, Method,
+Regex}?
+
+Passing Variables and Functions, Passing Filehandles, Passing Regexes,
+Passing Methods
+
+=item How do I create a static variable?
+
+=item What's the difference between dynamic and lexical (static) scoping?
+Between local() and my()?
+
+=item How can I access a dynamic variable while a similarly named lexical
+is in scope?
+
+=item What's the difference between deep and shallow binding?
+
+=item Why doesn't "my($foo) = E<lt>$fhE<gt>;" work right?
+
+=item How do I redefine a builtin function, operator, or method?
+
+=item What's the difference between calling a function as &foo and foo()?
+
+=item How do I create a switch or case statement?
+
+=item How can I catch accesses to undefined variables, functions, or
+methods?
+
+=item Why can't a method included in this same file be found?
+
+=item How can I find out my current or calling package?
+
+=item How can I comment out a large block of Perl code?
+
+=item How do I clear a package?
+
+=item How can I use a variable as a variable name?
+
+=item What does "bad interpreter" mean?
+
+=item Do I need to recompile XS modules when there is a change in the C
+library?
+
+=back
+
+=item AUTHOR AND COPYRIGHT
+
+=back
+
+=head2 perlfaq8 - System Interaction
+
+=over 4
+
+=item VERSION
+
+=item DESCRIPTION
+
+=over 4
+
+=item How do I find out which operating system I'm running under?
+
+=item How come exec() doesn't return?
+X<exec> X<system> X<fork> X<open> X<pipe>
+
+=item How do I do fancy stuff with the keyboard/screen/mouse?
+
+Keyboard, Screen, Mouse
+
+=item How do I print something out in color?
+
+=item How do I read just one key without waiting for a return key?
+
+=item How do I check whether input is ready on the keyboard?
+
+=item How do I clear the screen?
+
+=item How do I get the screen size?
+
+=item How do I ask the user for a password?
+
+=item How do I read and write the serial port?
+
+lockfiles, open mode, end of line, flushing output, non-blocking input
+
+=item How do I decode encrypted password files?
+
+=item How do I start a process in the background?
+
+STDIN, STDOUT, and STDERR are shared, Signals, Zombies
+
+=item How do I trap control characters/signals?
+
+=item How do I modify the shadow password file on a Unix system?
+
+=item How do I set the time and date?
+
+=item How can I sleep() or alarm() for under a second?
+X<Time::HiRes> X<BSD::Itimer> X<sleep> X<select>
+
+=item How can I measure time under a second?
+X<Time::HiRes> X<BSD::Itimer> X<sleep> X<select>
+
+=item How can I do an atexit() or setjmp()/longjmp()? (Exception handling)
+
+=item Why doesn't my sockets program work under System V (Solaris)? What
+does the error message "Protocol not supported" mean?
+
+=item How can I call my system's unique C functions from Perl?
+
+=item Where do I get the include files to do ioctl() or syscall()?
+
+=item Why do setuid perl scripts complain about kernel problems?
+
+=item How can I open a pipe both to and from a command?
+
+=item Why can't I get the output of a command with system()?
+
+=item How can I capture STDERR from an external command?
+
+=item Why doesn't open() return an error when a pipe open fails?
+
+=item What's wrong with using backticks in a void context?
+
+=item How can I call backticks without shell processing?
+
+=item Why can't my script read from STDIN after I gave it EOF (^D on Unix,
+^Z on MS-DOS)?
+
+=item How can I convert my shell script to perl?
+
+=item Can I use perl to run a telnet or ftp session?
+
+=item How can I write expect in Perl?
+
+=item Is there a way to hide perl's command line from programs such as
+"ps"?
+
+=item I {changed directory, modified my environment} in a perl script. How
+come the change disappeared when I exited the script? How do I get my
+changes to be visible?
+
+Unix
+
+=item How do I close a process's filehandle without waiting for it to
+complete?
+
+=item How do I fork a daemon process?
+
+=item How do I find out if I'm running interactively or not?
+
+=item How do I timeout a slow event?
+
+=item How do I set CPU limits?
+X<BSD::Resource> X<limit> X<CPU>
+
+=item How do I avoid zombies on a Unix system?
+
+=item How do I use an SQL database?
+
+=item How do I make a system() exit on control-C?
+
+=item How do I open a file without blocking?
+
+=item How do I tell the difference between errors from the shell and perl?
+
+=item How do I install a module from CPAN?
+
+=item What's the difference between require and use?
+
+=item How do I keep my own module/library directory?
+
+=item How do I add the directory my program lives in to the module/library
+search path?
+
+=item How do I add a directory to my include path (@INC) at runtime?
+
+the C<PERLLIB> environment variable, the C<PERL5LIB> environment variable,
+the C<perl -Idir> command line flag, the C<lib> pragma:, the L<local::lib>
+module:
+
+=item Where are modules installed?
+
+=item What is socket.ph and where do I get it?
+
+=back
+
+=item AUTHOR AND COPYRIGHT
+
+=back
+
+=head2 perlfaq9 - Web, Email and Networking
+
+=over 4
+
+=item VERSION
+
+=item DESCRIPTION
+
+=over 4
+
+=item Should I use a web framework?
+
+=item Which web framework should I use?
+X<framework> X<CGI.pm> X<CGI> X<Catalyst> X<Dancer>
+
+L<Catalyst>, L<Dancer>, L<Mojolicious>, L<Web::Simple>
+
+=item What is Plack and PSGI?
+
+=item How do I remove HTML from a string?
+
+=item How do I extract URLs?
+
+=item How do I fetch an HTML file?
+
+=item How do I automate an HTML form submission?
+
+=item How do I decode or create those %-encodings on the web?
+X<URI> X<URI::Escape> X<RFC 2396>
+
+=item How do I redirect to another page?
+
+=item How do I put a password on my web pages?
+
+=item How do I make sure users can't enter values into a form that causes
+my CGI script to do bad things?
+
+=item How do I parse a mail header?
+
+=item How do I check a valid mail address?
+
+=item How do I decode a MIME/BASE64 string?
+
+=item How do I find the user's mail address?
+
+=item How do I send email?
+
+L<Email::Sender::Transport::Sendmail>, L<Email::Sender::Transport::SMTP>,
+L<Email::Sender::Transport::SMTP::TLS>
+
+=item How do I use MIME to make an attachment to a mail message?
+
+=item How do I read email?
+
+=item How do I find out my hostname, domainname, or IP address?
+X<hostname, domainname, IP address, host, domain, hostfqdn, inet_ntoa,
+gethostbyname, Socket, Net::Domain, Sys::Hostname>
+
+=item How do I fetch/put an (S)FTP file?
+
+=item How can I do RPC in Perl?
+
+=back
+
+=item AUTHOR AND COPYRIGHT
+
+=back
+
+=head2 perlsyn - Perl syntax
+
+=over 4
+
+=item DESCRIPTION
+
+=over 4
+
+=item Declarations
+X<declaration> X<undef> X<undefined> X<uninitialized>
+
+=item Comments
+X<comment> X<#>
+
+=item Simple Statements
+X<statement> X<semicolon> X<expression> X<;>
+
+=item Truth and Falsehood
+X<truth> X<falsehood> X<true> X<false> X<!> X<not> X<negation> X<0>
+
+=item Statement Modifiers
+X<statement modifier> X<modifier> X<if> X<unless> X<while>
+X<until> X<when> X<foreach> X<for>
+
+=item Compound Statements
+X<statement, compound> X<block> X<bracket, curly> X<curly bracket> X<brace>
+X<{> X<}> X<if> X<unless> X<given> X<while> X<until> X<foreach> X<for>
+X<continue>
+
+=item Loop Control
+X<loop control> X<loop, control> X<next> X<last> X<redo> X<continue>
+
+=item For Loops
+X<for> X<foreach>
+
+=item Foreach Loops
+X<for> X<foreach>
+
+=item Basic BLOCKs
+X<block>
+
+=item Switch Statements
+
+=item Goto
+X<goto>
+
+=item The Ellipsis Statement
+X<...>
+X<... statement>
+X<ellipsis operator>
+X<elliptical statement>
+X<unimplemented statement>
+X<unimplemented operator>
+X<yada-yada>
+X<yada-yada operator>
+X<... operator>
+X<whatever operator>
+X<triple-dot operator>
+
+=item PODs: Embedded Documentation
+X<POD> X<documentation>
+
+=item Plain Old Comments (Not!)
+X<comment> X<line> X<#> X<preprocessor> X<eval>
+
+=item Experimental Details on given and when
+
+Z<>1, Z<>2, Z<>3, Z<>4, Z<>5, Z<>6, Z<>7, Z<>8, Z<>9, Z<>10
+
+=back
+
+=back
+
+=head2 perldata - Perl data types
+
+=over 4
+
+=item DESCRIPTION
+
+=over 4
+
+=item Variable names
+X<variable, name> X<variable name> X<data type> X<type>
+
+=item Identifier parsing
+X<identifiers>
+
+=item Context
+X<context> X<scalar context> X<list context>
+
+=item Scalar values
+X<scalar> X<number> X<string> X<reference>
+
+=item Scalar value constructors
+X<scalar, literal> X<scalar, constant>
+
+=item List value constructors
+X<list>
+
+=item Subscripts
+
+=item Multi-dimensional array emulation
+
+=item Slices
+X<slice> X<array, slice> X<hash, slice>
+
+=item Typeglobs and Filehandles
+X<typeglob> X<filehandle> X<*>
+
+=back
+
+=item SEE ALSO
+
+=back
+
+=head2 perlop - Perl operators and precedence
+
+=over 4
+
+=item DESCRIPTION
+
+=over 4
+
+=item Operator Precedence and Associativity
+X<operator, precedence> X<precedence> X<associativity>
+
+=item Terms and List Operators (Leftward)
+X<list operator> X<operator, list> X<term>
+
+=item The Arrow Operator
+X<arrow> X<dereference> X<< -> >>
+
+=item Auto-increment and Auto-decrement
+X<increment> X<auto-increment> X<++> X<decrement> X<auto-decrement> X<-->
+
+=item Exponentiation
+X<**> X<exponentiation> X<power>
+
+=item Symbolic Unary Operators
+X<unary operator> X<operator, unary>
+
+=item Binding Operators
+X<binding> X<operator, binding> X<=~> X<!~>
+
+=item Multiplicative Operators
+X<operator, multiplicative>
+
+=item Additive Operators
+X<operator, additive>
+
+=item Shift Operators
+X<shift operator> X<operator, shift> X<<< << >>>
+X<<< >> >>> X<right shift> X<left shift> X<bitwise shift>
+X<shl> X<shr> X<shift, right> X<shift, left>
+
+=item Named Unary Operators
+X<operator, named unary>
+
+=item Relational Operators
+X<relational operator> X<operator, relational>
+
+=item Equality Operators
+X<equality> X<equal> X<equals> X<operator, equality>
+
+=item Smartmatch Operator
+
+1. Empty hashes or arrays match, 2. That is, each element smartmatches the
+element of the same index in the other array.[3], 3. If a circular
+reference is found, fall back to referential equality, 4. Either an actual
+number, or a string that looks like one
+
+=item Bitwise And
+X<operator, bitwise, and> X<bitwise and> X<&>
+
+=item Bitwise Or and Exclusive Or
+X<operator, bitwise, or> X<bitwise or> X<|> X<operator, bitwise, xor>
+X<bitwise xor> X<^>
+
+=item C-style Logical And
+X<&&> X<logical and> X<operator, logical, and>
+
+=item C-style Logical Or
+X<||> X<operator, logical, or>
+
+=item Logical Defined-Or
+X<//> X<operator, logical, defined-or>
+
+=item Range Operators
+X<operator, range> X<range> X<..> X<...>
+
+=item Conditional Operator
+X<operator, conditional> X<operator, ternary> X<ternary> X<?:>
+
+=item Assignment Operators
+X<assignment> X<operator, assignment> X<=> X<**=> X<+=> X<*=> X<&=>
+X<<< <<= >>> X<&&=> X<-=> X</=> X<|=> X<<< >>= >>> X<||=> X<//=> X<.=>
+X<%=> X<^=> X<x=> X<&.=> X<|.=> X<^.=>
+
+=item Comma Operator
+X<comma> X<operator, comma> X<,>
+
+=item List Operators (Rightward)
+X<operator, list, rightward> X<list operator>
+
+=item Logical Not
+X<operator, logical, not> X<not>
+
+=item Logical And
+X<operator, logical, and> X<and>
+
+=item Logical or and Exclusive Or
+X<operator, logical, or> X<operator, logical, xor>
+X<operator, logical, exclusive or>
+X<or> X<xor>
+
+=item C Operators Missing From Perl
+X<operator, missing from perl> X<&> X<*>
+X<typecasting> X<(TYPE)>
+
+unary &, unary *, (TYPE)
+
+=item Quote and Quote-like Operators
+X<operator, quote> X<operator, quote-like> X<q> X<qq> X<qx> X<qw> X<m>
+X<qr> X<s> X<tr> X<'> X<''> X<"> X<""> X<//> X<`> X<``> X<<< << >>>
+X<escape sequence> X<escape>
+
+[1], [2], [3], [4], [5], [6], [7], [8]
+
+=item Regexp Quote-Like Operators
+X<operator, regexp>
+
+C<qr/I<STRING>/msixpodualn> X<qr> X</i> X</m> X</o> X</s> X</x> X</p>,
+C<m/I<PATTERN>/msixpodualngc> X<m> X<operator, match> X<regexp, options>
+X<regexp> X<regex, options> X<regex> X</m> X</s> X</i> X</x> X</p> X</o>
+X</g> X</c>, C</I<PATTERN>/msixpodualngc>, The empty pattern C<//>,
+Matching in list context, C<\G I<assertion>>, C<m?I<PATTERN>?msixpodualngc>
+X<?> X<operator, match-once>, C<?I<PATTERN>?msixpodualngc>,
+C<s/I<PATTERN>/I<REPLACEMENT>/msixpodualngcer> X<substitute>
+X<substitution> X<replace> X<regexp, replace> X<regexp, substitute> X</m>
+X</s> X</i> X</x> X</p> X</o> X</g> X</c> X</e> X</r>
+
+=item Quote-Like Operators
+X<operator, quote-like>
+
+C<q/I<STRING>/> X<q> X<quote, single> X<'> X<''>, C<'I<STRING>'>,
+C<qq/I<STRING>/> X<qq> X<quote, double> X<"> X<"">, "I<STRING>",
+C<qx/I<STRING>/> X<qx> X<`> X<``> X<backtick>, C<`I<STRING>`>,
+C<qw/I<STRING>/> X<qw> X<quote, list> X<quote, words>,
+C<tr/I<SEARCHLIST>/I<REPLACEMENTLIST>/cdsr> X<tr> X<y> X<transliterate>
+X</c> X</d> X</s>, C<y/I<SEARCHLIST>/I<REPLACEMENTLIST>/cdsr>, C<< <<I<EOF>
+>> X<here-doc> X<heredoc> X<here-document> X<<< << >>>, Double Quotes,
+Single Quotes, Backticks
+
+=item Gory details of parsing quoted constructs
+X<quote, gory details>
+
+Finding the end, Interpolation X<interpolation>, C<<<'EOF'>,  C<m''>, the
+pattern of C<s'''>, C<''>, C<q//>, C<tr'''>, C<y'''>, the replacement of
+C<s'''>, C<tr///>, C<y///>, C<"">, C<``>, C<qq//>, C<qx//>, C<< <file*glob>
+>>, C<<<"EOF">, the replacement of C<s///>, C<RE> in C<?RE?>, C</RE/>,
+C<m/RE/>, C<s/RE/foo/>,, parsing regular expressions X<regexp, parse>,
+Optimization of regular expressions X<regexp, optimization>
+
+=item I/O Operators
+X<operator, i/o> X<operator, io> X<io> X<while> X<filehandle>
+X<< <> >> X<< <<>> >> X<@ARGV>
+
+=item Constant Folding
+X<constant folding> X<folding>
+
+=item No-ops
+X<no-op> X<nop>
+
+=item Bitwise String Operators
+X<operator, bitwise, string> X<&.> X<|.> X<^.> X<~.>
+
+=item Integer Arithmetic
+X<integer>
+
+=item Floating-point Arithmetic
+
+=item Bigger Numbers
+X<number, arbitrary precision>
+
+=back
+
+=back
+
+=head2 perlsub - Perl subroutines
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+documented later in this document, documented in L<perlmod>, documented in
+L<perlobj>, documented in L<perltie>, documented in L<PerlIO::via>,
+documented in L<perlfunc>, documented in L<UNIVERSAL>, documented in
+L<perldebguts>, undocumented, used internally by the L<overload> feature
+
+=over 4
+
+=item Signatures
+
+=item Private Variables via my()
+X<my> X<variable, lexical> X<lexical> X<lexical variable> X<scope, lexical>
+X<lexical scope> X<attributes, my>
+
+=item Persistent Private Variables
+X<state> X<state variable> X<static> X<variable, persistent> X<variable,
+static> X<closure>
+
+=item Temporary Values via local()
+X<local> X<scope, dynamic> X<dynamic scope> X<variable, local>
+X<variable, temporary>
+
+=item Lvalue subroutines
+X<lvalue> X<subroutine, lvalue>
+
+=item Lexical Subroutines
+X<my sub> X<state sub> X<our sub> X<subroutine, lexical>
+
+=item Passing Symbol Table Entries (typeglobs)
+X<typeglob> X<*>
+
+=item When to Still Use local()
+X<local> X<variable, local>
+
+=item Pass by Reference
+X<pass by reference> X<pass-by-reference> X<reference>
+
+=item Prototypes
+X<prototype> X<subroutine, prototype>
+
+=item Constant Functions
+X<constant>
+
+=item Overriding Built-in Functions
+X<built-in> X<override> X<CORE> X<CORE::GLOBAL>
+
+=item Autoloading
+X<autoloading> X<AUTOLOAD>
+
+=item Subroutine Attributes
+X<attribute> X<subroutine, attribute> X<attrs>
+
+=back
+
+=item SEE ALSO
+
+=back
+
+=head2 perlfunc - Perl builtin functions
+
+=over 4
+
+=item DESCRIPTION
+
+=over 4
+
+=item Perl Functions by Category
+X<function>
+
+Functions for SCALARs or strings X<scalar> X<string> X<character>, Regular
+expressions and pattern matching X<regular expression> X<regex> X<regexp>,
+Numeric functions X<numeric> X<number> X<trigonometric> X<trigonometry>,
+Functions for real @ARRAYs X<array>, Functions for list data X<list>,
+Functions for real %HASHes X<hash>, Input and output functions X<I/O>
+X<input> X<output> X<dbm>, Functions for fixed-length data or records,
+Functions for filehandles, files, or directories X<file> X<filehandle>
+X<directory> X<pipe> X<link> X<symlink>, Keywords related to the control
+flow of your Perl program X<control flow>, Keywords related to scoping,
+Miscellaneous functions, Functions for processes and process groups
+X<process> X<pid> X<process id>, Keywords related to Perl modules
+X<module>, Keywords related to classes and object-orientation X<object>
+X<class> X<package>, Low-level socket functions X<socket> X<sock>, System V
+interprocess communication functions X<IPC> X<System V> X<semaphore>
+X<shared memory> X<memory> X<message>, Fetching user and group info X<user>
+X<group> X<password> X<uid> X<gid>  X<passwd> X</etc/passwd>, Fetching
+network info X<network> X<protocol> X<host> X<hostname> X<IP> X<address>
+X<service>, Time-related functions X<time> X<date>, Non-function keywords
+
+=item Portability
+X<portability> X<Unix> X<portable>
+
+=item Alphabetical Listing of Perl Functions
+
+-I<X> FILEHANDLE
+X<-r>X<-w>X<-x>X<-o>X<-R>X<-W>X<-X>X<-O>X<-e>X<-z>X<-s>X<-f>X<-d>X<-l>X<-p>
+X<-S>X<-b>X<-c>X<-t>X<-u>X<-g>X<-k>X<-T>X<-B>X<-M>X<-A>X<-C>, -I<X> EXPR,
+-I<X> DIRHANDLE, -I<X>, abs VALUE X<abs> X<absolute>, abs, accept
+NEWSOCKET,GENERICSOCKET X<accept>, alarm SECONDS X<alarm> X<SIGALRM>
+X<timer>, alarm, atan2 Y,X X<atan2> X<arctangent> X<tan> X<tangent>, bind
+SOCKET,NAME X<bind>, binmode FILEHANDLE, LAYER X<binmode> X<binary> X<text>
+X<DOS> X<Windows>, binmode FILEHANDLE, bless REF,CLASSNAME X<bless>, bless
+REF, break, caller EXPR X<caller> X<call stack> X<stack> X<stack trace>,
+caller, chdir EXPR X<chdir> X<cd> X<directory, change>, chdir FILEHANDLE,
+chdir DIRHANDLE, chdir, chmod LIST X<chmod> X<permission> X<mode>, chomp
+VARIABLE X<chomp> X<INPUT_RECORD_SEPARATOR> X<$/> X<newline> X<eol>, chomp(
+LIST ), chomp, chop VARIABLE X<chop>, chop( LIST ), chop, chown LIST
+X<chown> X<owner> X<user> X<group>, chr NUMBER X<chr> X<character> X<ASCII>
+X<Unicode>, chr, chroot FILENAME X<chroot> X<root>, chroot, close
+FILEHANDLE X<close>, close, closedir DIRHANDLE X<closedir>, connect
+SOCKET,NAME X<connect>, continue BLOCK X<continue>, continue, cos EXPR
+X<cos> X<cosine> X<acos> X<arccosine>, cos, crypt PLAINTEXT,SALT X<crypt>
+X<digest> X<hash> X<salt> X<plaintext> X<password> X<decrypt>
+X<cryptography> X<passwd> X<encrypt>, dbmclose HASH X<dbmclose>, dbmopen
+HASH,DBNAME,MASK X<dbmopen> X<dbm> X<ndbm> X<sdbm> X<gdbm>, defined EXPR
+X<defined> X<undef> X<undefined>, defined, delete EXPR X<delete>, die LIST
+X<die> X<throw> X<exception> X<raise> X<$@> X<abort>, do BLOCK X<do>
+X<block>, do EXPR X<do>, dump LABEL X<dump> X<core> X<undump>, dump EXPR,
+dump, each HASH X<each> X<hash, iterator>, each ARRAY X<array, iterator>,
+eof FILEHANDLE X<eof> X<end of file> X<end-of-file>, eof (), eof, eval EXPR
+X<eval> X<try> X<catch> X<evaluate> X<parse> X<execute> X<error, handling>
+X<exception, handling>, eval BLOCK, eval, evalbytes EXPR X<evalbytes>,
+evalbytes, exec LIST X<exec> X<execute>, exec PROGRAM LIST, exists EXPR
+X<exists> X<autovivification>, exit EXPR X<exit> X<terminate> X<abort>,
+exit, exp EXPR X<exp> X<exponential> X<antilog> X<antilogarithm> X<e>, exp,
+fc EXPR X<fc> X<foldcase> X<casefold> X<fold-case> X<case-fold>, fc, fcntl
+FILEHANDLE,FUNCTION,SCALAR X<fcntl>, __FILE__ X<__FILE__>, fileno
+FILEHANDLE X<fileno>, flock FILEHANDLE,OPERATION X<flock> X<lock>
+X<locking>, fork X<fork> X<child> X<parent>, format X<format>, formline
+PICTURE,LIST X<formline>, getc FILEHANDLE X<getc> X<getchar> X<character>
+X<file, read>, getc, getlogin X<getlogin> X<login>, getpeername SOCKET
+X<getpeername> X<peer>, getpgrp PID X<getpgrp> X<group>, getppid X<getppid>
+X<parent> X<pid>, getpriority WHICH,WHO X<getpriority> X<priority> X<nice>,
+getpwnam NAME X<getpwnam> X<getgrnam> X<gethostbyname> X<getnetbyname>
+X<getprotobyname> X<getpwuid> X<getgrgid> X<getservbyname> X<gethostbyaddr>
+X<getnetbyaddr> X<getprotobynumber> X<getservbyport> X<getpwent>
+X<getgrent> X<gethostent> X<getnetent> X<getprotoent> X<getservent>
+X<setpwent> X<setgrent> X<sethostent> X<setnetent> X<setprotoent>
+X<setservent> X<endpwent> X<endgrent> X<endhostent> X<endnetent>
+X<endprotoent> X<endservent>, getgrnam NAME, gethostbyname NAME,
+getnetbyname NAME, getprotobyname NAME, getpwuid UID, getgrgid GID,
+getservbyname NAME,PROTO, gethostbyaddr ADDR,ADDRTYPE, getnetbyaddr
+ADDR,ADDRTYPE, getprotobynumber NUMBER, getservbyport PORT,PROTO, getpwent,
+getgrent, gethostent, getnetent, getprotoent, getservent, setpwent,
+setgrent, sethostent STAYOPEN, setnetent STAYOPEN, setprotoent STAYOPEN,
+setservent STAYOPEN, endpwent, endgrent, endhostent, endnetent,
+endprotoent, endservent, getsockname SOCKET X<getsockname>, getsockopt
+SOCKET,LEVEL,OPTNAME X<getsockopt>, glob EXPR X<glob> X<wildcard>
+X<filename, expansion> X<expand>, glob, gmtime EXPR X<gmtime> X<UTC>
+X<Greenwich>, gmtime, goto LABEL X<goto> X<jump> X<jmp>, goto EXPR, goto
+&NAME, grep BLOCK LIST X<grep>, grep EXPR,LIST, hex EXPR X<hex>
+X<hexadecimal>, hex, import LIST X<import>, index STR,SUBSTR,POSITION
+X<index> X<indexOf> X<InStr>, index STR,SUBSTR, int EXPR X<int> X<integer>
+X<truncate> X<trunc> X<floor>, int, ioctl FILEHANDLE,FUNCTION,SCALAR
+X<ioctl>, join EXPR,LIST X<join>, keys HASH X<keys> X<key>, keys ARRAY,
+kill SIGNAL, LIST, kill SIGNAL X<kill> X<signal>, last LABEL X<last>
+X<break>, last EXPR, last, lc EXPR X<lc> X<lowercase>, lc, If C<use bytes>
+is in effect:, Otherwise, if C<use locale> for C<LC_CTYPE> is in effect:,
+Otherwise, If EXPR has the UTF8 flag set:, Otherwise, if C<use feature
+'unicode_strings'> or C<use locale ':not_characters'> is in effect:,
+Otherwise:, lcfirst EXPR X<lcfirst> X<lowercase>, lcfirst, length EXPR
+X<length> X<size>, length, __LINE__ X<__LINE__>, link OLDFILE,NEWFILE
+X<link>, listen SOCKET,QUEUESIZE X<listen>, local EXPR X<local>, localtime
+EXPR X<localtime> X<ctime>, localtime, lock THING X<lock>, log EXPR X<log>
+X<logarithm> X<e> X<ln> X<base>, log, lstat FILEHANDLE X<lstat>, lstat
+EXPR, lstat DIRHANDLE, lstat, m//, map BLOCK LIST X<map>, map EXPR,LIST,
+mkdir FILENAME,MASK X<mkdir> X<md> X<directory, create>, mkdir FILENAME,
+mkdir, msgctl ID,CMD,ARG X<msgctl>, msgget KEY,FLAGS X<msgget>, msgrcv
+ID,VAR,SIZE,TYPE,FLAGS X<msgrcv>, msgsnd ID,MSG,FLAGS X<msgsnd>, my VARLIST
+X<my>, my TYPE VARLIST, my VARLIST : ATTRS, my TYPE VARLIST : ATTRS, next
+LABEL X<next> X<continue>, next EXPR, next, no MODULE VERSION LIST X<no
+declarations> X<unimporting>, no MODULE VERSION, no MODULE LIST, no MODULE,
+no VERSION, oct EXPR X<oct> X<octal> X<hex> X<hexadecimal> X<binary>
+X<bin>, oct, open FILEHANDLE,EXPR X<open> X<pipe> X<file, open> X<fopen>,
+open FILEHANDLE,MODE,EXPR, open FILEHANDLE,MODE,EXPR,LIST, open
+FILEHANDLE,MODE,REFERENCE, open FILEHANDLE, opendir DIRHANDLE,EXPR
+X<opendir>, ord EXPR X<ord> X<encoding>, ord, our VARLIST X<our> X<global>,
+our TYPE VARLIST, our VARLIST : ATTRS, our TYPE VARLIST : ATTRS, pack
+TEMPLATE,LIST X<pack>, package NAMESPACE, package NAMESPACE VERSION
+X<package> X<module> X<namespace> X<version>, package NAMESPACE BLOCK,
+package NAMESPACE VERSION BLOCK X<package> X<module> X<namespace>
+X<version>, __PACKAGE__ X<__PACKAGE__>, pipe READHANDLE,WRITEHANDLE
+X<pipe>, pop ARRAY X<pop> X<stack>, pop, pos SCALAR X<pos> X<match,
+position>, pos, print FILEHANDLE LIST X<print>, print FILEHANDLE, print
+LIST, print, printf FILEHANDLE FORMAT, LIST X<printf>, printf FILEHANDLE,
+printf FORMAT, LIST, printf, prototype FUNCTION X<prototype>, prototype,
+push ARRAY,LIST X<push> X<stack>, q/STRING/, qq/STRING/, qw/STRING/,
+qx/STRING/, qr/STRING/, quotemeta EXPR X<quotemeta> X<metacharacter>,
+quotemeta, rand EXPR X<rand> X<random>, rand, read
+FILEHANDLE,SCALAR,LENGTH,OFFSET X<read> X<file, read>, read
+FILEHANDLE,SCALAR,LENGTH, readdir DIRHANDLE X<readdir>, readline EXPR,
+readline X<readline> X<gets> X<fgets>, readlink EXPR X<readlink>, readlink,
+readpipe EXPR, readpipe X<readpipe>, recv SOCKET,SCALAR,LENGTH,FLAGS
+X<recv>, redo LABEL X<redo>, redo EXPR, redo, ref EXPR X<ref> X<reference>,
+ref, rename OLDNAME,NEWNAME X<rename> X<move> X<mv> X<ren>, require VERSION
+X<require>, require EXPR, require, reset EXPR X<reset>, reset, return EXPR
+X<return>, return, reverse LIST X<reverse> X<rev> X<invert>, rewinddir
+DIRHANDLE X<rewinddir>, rindex STR,SUBSTR,POSITION X<rindex>, rindex
+STR,SUBSTR, rmdir FILENAME X<rmdir> X<rd> X<directory, remove>, rmdir,
+s///, say FILEHANDLE LIST X<say>, say FILEHANDLE, say LIST, say, scalar
+EXPR X<scalar> X<context>, seek FILEHANDLE,POSITION,WHENCE X<seek> X<fseek>
+X<filehandle, position>, seekdir DIRHANDLE,POS X<seekdir>, select
+FILEHANDLE X<select> X<filehandle, default>, select, select
+RBITS,WBITS,EBITS,TIMEOUT X<select>, semctl ID,SEMNUM,CMD,ARG X<semctl>,
+semget KEY,NSEMS,FLAGS X<semget>, semop KEY,OPSTRING X<semop>, send
+SOCKET,MSG,FLAGS,TO X<send>, send SOCKET,MSG,FLAGS, setpgrp PID,PGRP
+X<setpgrp> X<group>, setpriority WHICH,WHO,PRIORITY X<setpriority>
+X<priority> X<nice> X<renice>, setsockopt SOCKET,LEVEL,OPTNAME,OPTVAL
+X<setsockopt>, shift ARRAY X<shift>, shift, shmctl ID,CMD,ARG X<shmctl>,
+shmget KEY,SIZE,FLAGS X<shmget>, shmread ID,VAR,POS,SIZE X<shmread>
+X<shmwrite>, shmwrite ID,STRING,POS,SIZE, shutdown SOCKET,HOW X<shutdown>,
+sin EXPR X<sin> X<sine> X<asin> X<arcsine>, sin, sleep EXPR X<sleep>
+X<pause>, sleep, socket SOCKET,DOMAIN,TYPE,PROTOCOL X<socket>, socketpair
+SOCKET1,SOCKET2,DOMAIN,TYPE,PROTOCOL X<socketpair>, sort SUBNAME LIST
+X<sort> X<qsort> X<quicksort> X<mergesort>, sort BLOCK LIST, sort LIST,
+splice ARRAY,OFFSET,LENGTH,LIST X<splice>, splice ARRAY,OFFSET,LENGTH,
+splice ARRAY,OFFSET, splice ARRAY, split /PATTERN/,EXPR,LIMIT X<split>,
+split /PATTERN/,EXPR, split /PATTERN/, split, sprintf FORMAT, LIST
+X<sprintf>, format parameter index, flags, vector flag, (minimum) width,
+precision, or maximum width X<precision>, size, order of arguments, sqrt
+EXPR X<sqrt> X<root> X<square root>, sqrt, srand EXPR X<srand> X<seed>
+X<randseed>, srand, stat FILEHANDLE X<stat> X<file, status> X<ctime>, stat
+EXPR, stat DIRHANDLE, stat, state VARLIST X<state>, state TYPE VARLIST,
+state VARLIST : ATTRS, state TYPE VARLIST : ATTRS, study SCALAR X<study>,
+study, sub NAME BLOCK X<sub>, sub NAME (PROTO) BLOCK, sub NAME : ATTRS
+BLOCK, sub NAME (PROTO) : ATTRS BLOCK, __SUB__ X<__SUB__>, substr
+EXPR,OFFSET,LENGTH,REPLACEMENT X<substr> X<substring> X<mid> X<left>
+X<right>, substr EXPR,OFFSET,LENGTH, substr EXPR,OFFSET, symlink
+OLDFILE,NEWFILE X<symlink> X<link> X<symbolic link> X<link, symbolic>,
+syscall NUMBER, LIST X<syscall> X<system call>, sysopen
+FILEHANDLE,FILENAME,MODE X<sysopen>, sysopen
+FILEHANDLE,FILENAME,MODE,PERMS, sysread FILEHANDLE,SCALAR,LENGTH,OFFSET
+X<sysread>, sysread FILEHANDLE,SCALAR,LENGTH, sysseek
+FILEHANDLE,POSITION,WHENCE X<sysseek> X<lseek>, system LIST X<system>
+X<shell>, system PROGRAM LIST, syswrite FILEHANDLE,SCALAR,LENGTH,OFFSET
+X<syswrite>, syswrite FILEHANDLE,SCALAR,LENGTH, syswrite FILEHANDLE,SCALAR,
+tell FILEHANDLE X<tell>, tell, telldir DIRHANDLE X<telldir>, tie
+VARIABLE,CLASSNAME,LIST X<tie>, tied VARIABLE X<tied>, time X<time>
+X<epoch>, times X<times>, tr///, truncate FILEHANDLE,LENGTH X<truncate>,
+truncate EXPR,LENGTH, uc EXPR X<uc> X<uppercase> X<toupper>, uc, ucfirst
+EXPR X<ucfirst> X<uppercase>, ucfirst, umask EXPR X<umask>, umask, undef
+EXPR X<undef> X<undefine>, undef, unlink LIST X<unlink> X<delete> X<remove>
+X<rm> X<del>, unlink, unpack TEMPLATE,EXPR X<unpack>, unpack TEMPLATE,
+unshift ARRAY,LIST X<unshift>, untie VARIABLE X<untie>, use Module VERSION
+LIST X<use> X<module> X<import>, use Module VERSION, use Module LIST, use
+Module, use VERSION, utime LIST X<utime>, values HASH X<values>, values
+ARRAY, vec EXPR,OFFSET,BITS X<vec> X<bit> X<bit vector>, wait X<wait>,
+waitpid PID,FLAGS X<waitpid>, wantarray X<wantarray> X<context>, warn LIST
+X<warn> X<warning> X<STDERR>, write FILEHANDLE X<write>, write EXPR, write,
+y///
+
+=item Non-function Keywords by Cross-reference
+
+__DATA__, __END__, BEGIN, CHECK, END, INIT, UNITCHECK, DESTROY, and, cmp,
+eq, ge, gt, le, lt, ne, not, or, x, xor, AUTOLOAD, else, elsif, for,
+foreach, if, unless, until, while, elseif, default, given, when
+
+=back
+
+=back
+
+=head2 perlopentut - simple recipes for opening files and pipes in Perl
+
+=over 4
+
+=item DESCRIPTION
+
+I<OK>, I<HANDLE>, I<MODE>, I<PATHNAME>
+
+=item Opening Text Files
+
+=over 4
+
+=item Opening Text Files for Reading
+
+=item Opening Text Files for Writing
+
+=back
+
+=item Opening Binary Files
+
+=item Opening Pipes
+
+=item Low-level File Opens via sysopen
+
+=item SEE ALSO
+
+=item AUTHOR and COPYRIGHT
+
+=back
+
+=head2 perlpacktut - tutorial on C<pack> and C<unpack>
+
+=over 4
+
+=item DESCRIPTION
+
+=item The Basic Principle
+
+=item Packing Text
+
+=item Packing Numbers
+
+=over 4
+
+=item Integers
+
+=item Unpacking a Stack Frame
+
+=item How to Eat an Egg on a Net
+
+=item Byte-order modifiers
+
+=item Floating point Numbers
+
+=back
+
+=item Exotic Templates
+
+=over 4
+
+=item Bit Strings
+
+=item Uuencoding
+
+=item Doing Sums
+
+=item  Unicode
+
+=item Another Portable Binary Encoding
+
+=back
+
+=item Template Grouping
+
+=item Lengths and Widths
+
+=over 4
+
+=item String Lengths
+
+=item Dynamic Templates
+
+=item Counting Repetitions
+
+=item Intel HEX
+
+=back
+
+=item Packing and Unpacking C Structures
+
+=over 4
+
+=item The Alignment Pit
+
+=item Dealing with Endian-ness
+
+=item Alignment, Take 2
+
+=item Alignment, Take 3
+
+=item Pointers for How to Use Them
+
+=back
+
+=item Pack Recipes
+
+=item Funnies Section
+
+=item Authors
+
+=back
+
+=head2 perlpod - the Plain Old Documentation format
+
+=over 4
+
+=item DESCRIPTION
+
+=over 4
+
+=item Ordinary Paragraph
+X<POD, ordinary paragraph>
+
+=item Verbatim Paragraph
+X<POD, verbatim paragraph> X<verbatim>
+
+=item Command Paragraph
+X<POD, command>
+
+C<=head1 I<Heading Text>> X<=head1> X<=head2> X<=head3> X<=head4> X<head1>
+X<head2> X<head3> X<head4>, C<=head2 I<Heading Text>>, C<=head3 I<Heading
+Text>>, C<=head4 I<Heading Text>>, C<=over I<indentlevel>> X<=over>
+X<=item> X<=back> X<over> X<item> X<back>, C<=item I<stuff...>>, C<=back>,
+C<=cut> X<=cut> X<cut>, C<=pod> X<=pod> X<pod>, C<=begin I<formatname>>
+X<=begin> X<=end> X<=for> X<begin> X<end> X<for>, C<=end I<formatname>>,
+C<=for I<formatname> I<text...>>, C<=encoding I<encodingname>> X<=encoding>
+X<encoding>
+
+=item Formatting Codes
+X<POD, formatting code> X<formatting code>
+X<POD, interior sequence> X<interior sequence>
+
+C<IE<lt>textE<gt>> -- italic text X<I> X<< IZ<><> >> X<POD, formatting
+code, italic> X<italic>, C<BE<lt>textE<gt>> -- bold text X<B> X<< BZ<><> >>
+X<POD, formatting code, bold> X<bold>, C<CE<lt>codeE<gt>> -- code text X<C>
+X<< CZ<><> >> X<POD, formatting code, code> X<code>, C<LE<lt>nameE<gt>> --
+a hyperlink X<L> X<< LZ<><> >> X<POD, formatting code, hyperlink>
+X<hyperlink>, C<EE<lt>escapeE<gt>> -- a character escape X<E> X<< EZ<><> >>
+X<POD, formatting code, escape> X<escape>, C<FE<lt>filenameE<gt>> -- used
+for filenames X<F> X<< FZ<><> >> X<POD, formatting code, filename>
+X<filename>, C<SE<lt>textE<gt>> -- text contains non-breaking spaces X<S>
+X<< SZ<><> >> X<POD, formatting code, non-breaking space>  X<non-breaking
+space>, C<XE<lt>topic nameE<gt>> -- an index entry X<X> X<< XZ<><> >>
+X<POD, formatting code, index entry> X<index entry>, C<ZE<lt>E<gt>> -- a
+null (zero-effect) formatting code X<Z> X<< ZZ<><> >> X<POD, formatting
+code, null> X<null>
+
+=item The Intent
+X<POD, intent of>
+
+=item Embedding Pods in Perl Modules
+X<POD, embedding>
+
+=item Hints for Writing Pod
+
+X<podchecker> X<POD, validating>
+
+=back
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=back
+
+=head2 perlpodspec - Plain Old Documentation: format specification and
+notes
+
+=over 4
+
+=item DESCRIPTION
+
+=item Pod Definitions
+
+=item Pod Commands
+
+"=head1", "=head2", "=head3", "=head4", "=pod", "=cut", "=over", "=item",
+"=back", "=begin formatname", "=begin formatname parameter", "=end
+formatname", "=for formatname text...", "=encoding encodingname"
+
+=item Pod Formatting Codes
+
+C<IE<lt>textE<gt>> -- italic text, C<BE<lt>textE<gt>> -- bold text,
+C<CE<lt>codeE<gt>> -- code text, C<FE<lt>filenameE<gt>> -- style for
+filenames, C<XE<lt>topic nameE<gt>> -- an index entry, C<ZE<lt>E<gt>> -- a
+null (zero-effect) formatting code, C<LE<lt>nameE<gt>> -- a hyperlink,
+C<EE<lt>escapeE<gt>> -- a character escape, C<SE<lt>textE<gt>> -- text
+contains non-breaking spaces
+
+=item Notes on Implementing Pod Processors
+
+=item About LE<lt>...E<gt> Codes
+
+First:, Second:, Third:, Fourth:, Fifth:, Sixth:
+
+=item About =over...=back Regions
+
+=item About Data Paragraphs and "=begin/=end" Regions
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=back
+
+=head2 perlpodstyle - Perl POD style guide
+
+=over 4
+
+=item DESCRIPTION
+
+NAME, SYNOPSIS, DESCRIPTION, OPTIONS, RETURN VALUE, ERRORS, DIAGNOSTICS,
+EXAMPLES, ENVIRONMENT, FILES, CAVEATS, BUGS, RESTRICTIONS, NOTES, AUTHOR,
+HISTORY, COPYRIGHT AND LICENSE, SEE ALSO
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=item COPYRIGHT AND LICENSE
+
+=back
+
+=head2 perldiag - various Perl diagnostics
+
+=over 4
+
+=item DESCRIPTION
+
+=item SEE ALSO
+
+=back
+
+=head2 perllexwarn - Perl Lexical Warnings
+
+=over 4
+
+=item DESCRIPTION
+
+=back
+
+=head2 perldebug - Perl debugging
+
+=over 4
+
+=item DESCRIPTION
+
+=item The Perl Debugger
+
+=over 4
+
+=item Calling the Debugger
+
+perl -d program_name, perl -d -e 0, perl -d:ptkdb program_name, perl -dt
+threaded_program_name
+
+=item Debugger Commands
+
+h X<debugger command, h>, h [command], h h, p expr X<debugger command, p>,
+x [maxdepth] expr X<debugger command, x>, V [pkg [vars]] X<debugger
+command, V>, X [vars] X<debugger command, X>, y [level [vars]] X<debugger
+command, y>, T X<debugger command, T> X<backtrace> X<stack, backtrace>, s
+[expr] X<debugger command, s> X<step>, n [expr] X<debugger command, n>, r
+X<debugger command, r>, <CR>, c [line|sub] X<debugger command, c>, l
+X<debugger command, l>, l min+incr, l min-max, l line, l subname, -
+X<debugger command, ->, v [line] X<debugger command, v>, . X<debugger
+command, .>, f filename X<debugger command, f>, /pattern/, ?pattern?, L
+[abw] X<debugger command, L>, S [[!]regex] X<debugger command, S>, t [n]
+X<debugger command, t>, t [n] expr X<debugger command, t>, b X<breakpoint>
+X<debugger command, b>, b [line] [condition] X<breakpoint> X<debugger
+command, b>, b [file]:[line] [condition] X<breakpoint> X<debugger command,
+b>, b subname [condition] X<breakpoint> X<debugger command, b>, b postpone
+subname [condition] X<breakpoint> X<debugger command, b>, b load filename
+X<breakpoint> X<debugger command, b>, b compile subname X<breakpoint>
+X<debugger command, b>, B line X<breakpoint> X<debugger command, B>, B *
+X<breakpoint> X<debugger command, B>, disable [file]:[line] X<breakpoint>
+X<debugger command, disable> X<disable>, disable [line] X<breakpoint>
+X<debugger command, disable> X<disable>, enable [file]:[line] X<breakpoint>
+X<debugger command, disable> X<disable>, enable [line] X<breakpoint>
+X<debugger command, disable> X<disable>, a [line] command X<debugger
+command, a>, A line X<debugger command, A>, A * X<debugger command, A>, w
+expr X<debugger command, w>, W expr X<debugger command, W>, W * X<debugger
+command, W>, o X<debugger command, o>, o booloption ... X<debugger command,
+o>, o anyoption? ... X<debugger command, o>, o option=value ... X<debugger
+command, o>, < ? X<< debugger command, < >>, < [ command ] X<< debugger
+command, < >>, < * X<< debugger command, < >>, << command X<< debugger
+command, << >>, > ? X<< debugger command, > >>, > command X<< debugger
+command, > >>, > * X<< debugger command, > >>, >> command X<<< debugger
+command, >> >>>, { ? X<debugger command, {>, { [ command ], { * X<debugger
+command, {>, {{ command X<debugger command, {{>, ! number X<debugger
+command, !>, ! -number X<debugger command, !>, ! pattern X<debugger
+command, !>, !! cmd X<debugger command, !!>, source file X<debugger
+command, source>, H -number X<debugger command, H>, q or ^D X<debugger
+command, q> X<debugger command, ^D>, R X<debugger command, R>, |dbcmd
+X<debugger command, |>, ||dbcmd X<debugger command, ||>, command, m expr
+X<debugger command, m>, M X<debugger command, M>, man [manpage] X<debugger
+command, man>
+
+=item Configurable Options
+
+C<recallCommand>, C<ShellBang> X<debugger option, recallCommand> X<debugger
+option, ShellBang>, C<pager> X<debugger option, pager>, C<tkRunning>
+X<debugger option, tkRunning>, C<signalLevel>, C<warnLevel>, C<dieLevel>
+X<debugger option, signalLevel> X<debugger option, warnLevel> X<debugger
+option, dieLevel>, C<AutoTrace> X<debugger option, AutoTrace>, C<LineInfo>
+X<debugger option, LineInfo>, C<inhibit_exit> X<debugger option,
+inhibit_exit>, C<PrintRet> X<debugger option, PrintRet>, C<ornaments>
+X<debugger option, ornaments>, C<frame> X<debugger option, frame>,
+C<maxTraceLen> X<debugger option, maxTraceLen>, C<windowSize> X<debugger
+option, windowSize>, C<arrayDepth>, C<hashDepth> X<debugger option,
+arrayDepth> X<debugger option, hashDepth>, C<dumpDepth> X<debugger option,
+dumpDepth>, C<compactDump>, C<veryCompact> X<debugger option, compactDump>
+X<debugger option, veryCompact>, C<globPrint> X<debugger option,
+globPrint>, C<DumpDBFiles> X<debugger option, DumpDBFiles>, C<DumpPackages>
+X<debugger option, DumpPackages>, C<DumpReused> X<debugger option,
+DumpReused>, C<quote>, C<HighBit>, C<undefPrint> X<debugger option, quote>
+X<debugger option, HighBit> X<debugger option, undefPrint>, C<UsageOnly>
+X<debugger option, UsageOnly>, C<HistFile> X<debugger option, history,
+HistFile>, C<HistSize> X<debugger option, history, HistSize>, C<TTY>
+X<debugger option, TTY>, C<noTTY> X<debugger option, noTTY>, C<ReadLine>
+X<debugger option, ReadLine>, C<NonStop> X<debugger option, NonStop>
+
+=item Debugger Input/Output
+
+Prompt, Multiline commands, Stack backtrace X<backtrace> X<stack,
+backtrace>, Line Listing Format, Frame listing
+
+=item Debugging Compile-Time Statements
+
+=item Debugger Customization
+
+=item Readline Support / History in the Debugger
+
+=item Editor Support for Debugging
+
+=item The Perl Profiler
+X<profile> X<profiling> X<profiler>
+
+=back
+
+=item Debugging Regular Expressions
+X<regular expression, debugging>
+X<regex, debugging> X<regexp, debugging>
+
+=item Debugging Memory Usage
+X<memory usage>
+
+=item SEE ALSO
+
+=item BUGS
+
+=back
+
+=head2 perlvar - Perl predefined variables
+
+=over 4
+
+=item DESCRIPTION
+
+=over 4
+
+=item The Syntax of Variable Names
+
+=back
+
+=item SPECIAL VARIABLES
+
+=over 4
+
+=item General Variables
+
+$ARG, $_ X<$_> X<$ARG>, @ARG, @_ X<@_> X<@ARG>, $LIST_SEPARATOR, $" X<$">
+X<$LIST_SEPARATOR>, $PROCESS_ID, $PID, $$ X<$$> X<$PID> X<$PROCESS_ID>,
+$PROGRAM_NAME, $0 X<$0> X<$PROGRAM_NAME>, $REAL_GROUP_ID, $GID, $( X<$(>
+X<$GID> X<$REAL_GROUP_ID>, $EFFECTIVE_GROUP_ID, $EGID, $) X<$)> X<$EGID>
+X<$EFFECTIVE_GROUP_ID>, $REAL_USER_ID, $UID, $< X<< $< >> X<$UID>
+X<$REAL_USER_ID>, $EFFECTIVE_USER_ID, $EUID, $> X<< $> >> X<$EUID>
+X<$EFFECTIVE_USER_ID>, $SUBSCRIPT_SEPARATOR, $SUBSEP, $; X<$;> X<$SUBSEP>
+X<SUBSCRIPT_SEPARATOR>, $a, $b X<$a> X<$b>, %ENV X<%ENV>,
+$OLD_PERL_VERSION, $] X<$]> X<$OLD_PERL_VERSION>, $SYSTEM_FD_MAX, $^F
+X<$^F> X<$SYSTEM_FD_MAX>, @F X<@F>, @INC X<@INC>, %INC X<%INC>,
+$INPLACE_EDIT, $^I X<$^I> X<$INPLACE_EDIT>, $^M X<$^M>, $OSNAME, $^O X<$^O>
+X<$OSNAME>, %SIG X<%SIG>, $BASETIME, $^T X<$^T> X<$BASETIME>,
+$PERL_VERSION, $^V X<$^V> X<$PERL_VERSION>, ${^WIN32_SLOPPY_STAT}
+X<${^WIN32_SLOPPY_STAT}> X<sitecustomize> X<sitecustomize.pl>,
+$EXECUTABLE_NAME, $^X X<$^X> X<$EXECUTABLE_NAME>
+
+=item Variables related to regular expressions
+
+$<I<digits>> ($1, $2, ...) X<$1> X<$2> X<$3>, $MATCH, $& X<$&> X<$MATCH>,
+${^MATCH} X<${^MATCH}>, $PREMATCH, $` X<$`> X<$PREMATCH> X<${^PREMATCH}>,
+${^PREMATCH} X<$`> X<${^PREMATCH}>, $POSTMATCH, $' X<$'> X<$POSTMATCH>
+X<${^POSTMATCH}> X<@->, ${^POSTMATCH} X<${^POSTMATCH}> X<$'> X<$POSTMATCH>,
+$LAST_PAREN_MATCH, $+ X<$+> X<$LAST_PAREN_MATCH>, $LAST_SUBMATCH_RESULT,
+$^N X<$^N> X<$LAST_SUBMATCH_RESULT>, @LAST_MATCH_END, @+ X<@+>
+X<@LAST_MATCH_END>, %LAST_PAREN_MATCH, %+ X<%+> X<%LAST_PAREN_MATCH>,
+@LAST_MATCH_START, @- X<@-> X<@LAST_MATCH_START>, C<$`> is the same as
+C<substr($var, 0, $-[0])>, C<$&> is the same as C<substr($var, $-[0], $+[0]
+- $-[0])>, C<$'> is the same as C<substr($var, $+[0])>, C<$1> is the same
+as C<substr($var, $-[1], $+[1] - $-[1])>, C<$2> is the same as
+C<substr($var, $-[2], $+[2] - $-[2])>, C<$3> is the same as C<substr($var,
+$-[3], $+[3] - $-[3])>, %- X<%->, $LAST_REGEXP_CODE_RESULT, $^R X<$^R>
+X<$LAST_REGEXP_CODE_RESULT>, ${^RE_DEBUG_FLAGS} X<${^RE_DEBUG_FLAGS}>,
+${^RE_TRIE_MAXBUF} X<${^RE_TRIE_MAXBUF}>
+
+=item Variables related to filehandles
+
+$ARGV X<$ARGV>, @ARGV X<@ARGV>, ARGV X<ARGV>, ARGVOUT X<ARGVOUT>,
+IO::Handle->output_field_separator( EXPR ), $OUTPUT_FIELD_SEPARATOR, $OFS,
+$, X<$,> X<$OFS> X<$OUTPUT_FIELD_SEPARATOR>, HANDLE->input_line_number(
+EXPR ), $INPUT_LINE_NUMBER, $NR, $. X<$.> X<$NR> X<$INPUT_LINE_NUMBER>
+X<line number>, IO::Handle->input_record_separator( EXPR ),
+$INPUT_RECORD_SEPARATOR, $RS, $/ X<$/> X<$RS> X<$INPUT_RECORD_SEPARATOR>,
+IO::Handle->output_record_separator( EXPR ), $OUTPUT_RECORD_SEPARATOR,
+$ORS, $\ X<$\> X<$ORS> X<$OUTPUT_RECORD_SEPARATOR>, HANDLE->autoflush( EXPR
+), $OUTPUT_AUTOFLUSH, $| X<$|> X<autoflush> X<flush> X<$OUTPUT_AUTOFLUSH>,
+${^LAST_FH} X<${^LAST_FH}>, $ACCUMULATOR, $^A X<$^A> X<$ACCUMULATOR>,
+IO::Handle->format_formfeed(EXPR), $FORMAT_FORMFEED, $^L X<$^L>
+X<$FORMAT_FORMFEED>, HANDLE->format_page_number(EXPR), $FORMAT_PAGE_NUMBER,
+$% X<$%> X<$FORMAT_PAGE_NUMBER>, HANDLE->format_lines_left(EXPR),
+$FORMAT_LINES_LEFT, $- X<$-> X<$FORMAT_LINES_LEFT>,
+IO::Handle->format_line_break_characters EXPR,
+$FORMAT_LINE_BREAK_CHARACTERS, $: X<$:> X<FORMAT_LINE_BREAK_CHARACTERS>,
+HANDLE->format_lines_per_page(EXPR), $FORMAT_LINES_PER_PAGE, $= X<$=>
+X<$FORMAT_LINES_PER_PAGE>, HANDLE->format_top_name(EXPR), $FORMAT_TOP_NAME,
+$^ X<$^> X<$FORMAT_TOP_NAME>, HANDLE->format_name(EXPR), $FORMAT_NAME, $~
+X<$~> X<$FORMAT_NAME>
+
+=item Error Variables
+X<error> X<exception>
+
+${^CHILD_ERROR_NATIVE} X<$^CHILD_ERROR_NATIVE>, $EXTENDED_OS_ERROR, $^E
+X<$^E> X<$EXTENDED_OS_ERROR>, $EXCEPTIONS_BEING_CAUGHT, $^S X<$^S>
+X<$EXCEPTIONS_BEING_CAUGHT>, $WARNING, $^W X<$^W> X<$WARNING>,
+${^WARNING_BITS} X<${^WARNING_BITS}>, $OS_ERROR, $ERRNO, $! X<$!> X<$ERRNO>
+X<$OS_ERROR>, %OS_ERROR, %ERRNO, %! X<%!> X<%OS_ERROR> X<%ERRNO>,
+$CHILD_ERROR, $? X<$?> X<$CHILD_ERROR>, $EVAL_ERROR, $@ X<$@>
+X<$EVAL_ERROR>
+
+=item Variables related to the interpreter state
+
+$COMPILING, $^C X<$^C> X<$COMPILING>, $DEBUGGING, $^D X<$^D> X<$DEBUGGING>,
+${^ENCODING} X<${^ENCODING}>, ${^GLOBAL_PHASE} X<${^GLOBAL_PHASE}>,
+CONSTRUCT, START, CHECK, INIT, RUN, END, DESTRUCT, $^H X<$^H>, %^H X<%^H>,
+${^OPEN} X<${^OPEN}>, $PERLDB, $^P X<$^P> X<$PERLDB>, 0x01, 0x02, 0x04,
+0x08, 0x10, 0x20, 0x40, 0x80, 0x100, 0x200, 0x400, 0x800, 0x1000, ${^TAINT}
+X<${^TAINT}>, ${^UNICODE} X<${^UNICODE}>, ${^UTF8CACHE} X<${^UTF8CACHE}>,
+${^UTF8LOCALE} X<${^UTF8LOCALE}>
+
+=item Deprecated and removed variables
+
+$# X<$#>, $* X<$*>, $[ X<$[>
+
+=back
+
+=back
+
+=head2 perlre - Perl regular expressions
+
+=over 4
+
+=item DESCRIPTION
+
+=over 4
+
+=item Modifiers
+
+B<C<m>> X</m> X<regex, multiline> X<regexp, multiline> X<regular
+expression, multiline>, B<C<s>> X</s> X<regex, single-line> X<regexp,
+single-line> X<regular expression, single-line>, B<C<i>> X</i> X<regex,
+case-insensitive> X<regexp, case-insensitive> X<regular expression,
+case-insensitive>, B<C<x>> X</x>, B<C<p>> X</p> X<regex, preserve>
+X<regexp, preserve>, B<C<a>>, B<C<d>>, B<C<l>>, and B<C<u>> X</a> X</d>
+X</l> X</u>, B<C<n>> X</n> X<regex, non-capture> X<regexp, non-capture>
+X<regular expression, non-capture>, Other Modifiers
+
+=item Regular Expressions
+
+[1], [2], [3], [4], [5], [6], [7], [8]
+
+=item Quoting metacharacters
+
+=item Extended Patterns
+
+C<(?#text)> X<(?#)>, C<(?adlupimnsx-imnsx)>, C<(?^alupimnsx)> X<(?)>
+X<(?^)>, C<(?:pattern)> X<(?:)>, C<(?adluimnsx-imnsx:pattern)>,
+C<(?^aluimnsx:pattern)> X<(?^:)>, C<(?|pattern)> X<(?|)> X<Branch reset>,
+Lookaround Assertions X<look-around assertion> X<lookaround assertion>
+X<look-around> X<lookaround>, C<(?=pattern)> X<(?=)> X<look-ahead,
+positive> X<lookahead, positive>, C<(?!pattern)> X<(?!)> X<look-ahead,
+negative> X<lookahead, negative>, C<(?<=pattern)> C<\K> X<(?<=)>
+X<look-behind, positive> X<lookbehind, positive> X<\K>, C<(?<!pattern)>
+X<(?<!)> X<look-behind, negative> X<lookbehind, negative>,
+C<(?'NAME'pattern)>, C<< (?<NAME>pattern) >> X<< (?<NAME>) >> X<(?'NAME')>
+X<named capture> X<capture>, C<< \k<NAME> >>, C<< \k'NAME' >>, C<(?{ code
+})> X<(?{})> X<regex, code in> X<regexp, code in> X<regular expression,
+code in>, C<(??{ code })> X<(??{})> X<regex, postponed> X<regexp,
+postponed> X<regular expression, postponed>, C<(?I<PARNO>)> C<(?-I<PARNO>)>
+C<(?+I<PARNO>)> C<(?R)> C<(?0)> X<(?PARNO)> X<(?1)> X<(?R)> X<(?0)>
+X<(?-1)> X<(?+1)> X<(?-PARNO)> X<(?+PARNO)> X<regex, recursive> X<regexp,
+recursive> X<regular expression, recursive> X<regex, relative recursion>
+X<GOSUB> X<GOSTART>, C<(?&NAME)> X<(?&NAME)>,
+C<(?(condition)yes-pattern|no-pattern)> X<(?()>,
+C<(?(condition)yes-pattern)>, an integer in parentheses, a
+lookahead/lookbehind/evaluate zero-width assertion;, a name in angle
+brackets or single quotes, the special symbol C<(R)>, C<(1)> C<(2)> ..,
+C<(E<lt>I<NAME>E<gt>)> C<('I<NAME>')>, C<(?=...)> C<(?!...)> C<(?<=...)>
+C<(?<!...)>, C<(?{ I<CODE> })>, C<(R)>, C<(R1)> C<(R2)> .., C<(R&I<NAME>)>,
+C<(DEFINE)>, C<< (?>pattern) >> X<backtrack> X<backtracking> X<atomic>
+X<possessive>, C<(?[ ])>
+
+=item Special Backtracking Control Verbs
+
+Verbs, C<(*PRUNE)> C<(*PRUNE:NAME)> X<(*PRUNE)> X<(*PRUNE:NAME)>,
+C<(*SKIP)> C<(*SKIP:NAME)> X<(*SKIP)>, C<(*MARK:NAME)> C<(*:NAME)>
+X<(*MARK)> X<(*MARK:NAME)> X<(*:NAME)>, C<(*THEN)> C<(*THEN:NAME)>,
+C<(*COMMIT)> C<(*COMMIT:args)> X<(*COMMIT)>, C<(*FAIL)> C<(*F)>
+C<(*FAIL:arg)> X<(*FAIL)> X<(*F)>, C<(*ACCEPT)> C<(*ACCEPT:arg)>
+X<(*ACCEPT)>
+
+=item Backtracking
+X<backtrack> X<backtracking>
+
+=item Version 8 Regular Expressions
+X<regular expression, version 8> X<regex, version 8> X<regexp, version 8>
+
+=item Warning on C<\1> Instead of C<$1>
+
+=item Repeated Patterns Matching a Zero-length Substring
+
+=item Combining RE Pieces
+
+C<ST>, C<S|T>, C<S{REPEAT_COUNT}>, C<S{min,max}>, C<S{min,max}?>, C<S?>,
+C<S*>, C<S+>, C<S??>, C<S*?>, C<S+?>, C<< (?>S) >>, C<(?=S)>, C<(?<=S)>,
+C<(?!S)>, C<(?<!S)>, C<(??{ EXPR })>, C<(?I<PARNO>)>,
+C<(?(condition)yes-pattern|no-pattern)>
+
+=item Creating Custom RE Engines
+
+=item Embedded Code Execution Frequency
+
+=item PCRE/Python Support
+
+C<< (?PE<lt>NAMEE<gt>pattern) >>, C<< (?P=NAME) >>, C<< (?P>NAME) >>
+
+=back
+
+=item BUGS
+
+=item SEE ALSO
+
+=back
+
+=head2 perlrebackslash - Perl Regular Expression Backslash Sequences and
+Escapes
+
+=over 4
+
+=item DESCRIPTION
+
+=over 4
+
+=item The backslash
+
+[1]
+
+=item All the sequences and escapes
+
+=item Character Escapes
+
+[1], [2]
+
+=item Modifiers
+
+=item Character classes
+
+=item Referencing
+
+=item Assertions
+
+\A, \z, \Z, \G, \b{}, \b, \B{}, \B, C<\b{gcb}> or C<\b{g}>, C<\b{lb}>,
+C<\b{sb}>, C<\b{wb}>
+
+=item Misc
+
+\K, \N, \R X<\R>, \X X<\X>
+
+=back
+
+=back
+
+=head2 perlrecharclass - Perl Regular Expression Character Classes
+
+=over 4
+
+=item DESCRIPTION
+
+=over 4
+
+=item The dot
+
+=item Backslash sequences
+X<\w> X<\W> X<\s> X<\S> X<\d> X<\D> X<\p> X<\P>
+X<\N> X<\v> X<\V> X<\h> X<\H>
+X<word> X<whitespace>
+
+If the C</a> modifier is in effect .., otherwise .., For code points above
+255 .., For code points below 256 .., if locale rules are in effect .., if
+Unicode rules are in effect .., otherwise .., If the C</a> modifier is in
+effect .., otherwise .., For code points above 255 .., For code points
+below 256 .., if locale rules are in effect .., if Unicode rules are in
+effect .., otherwise .., [1], [2]
+
+=item Bracketed Character Classes
+
+[1], [2], [3], [4], [5], [6], If the C</a> modifier, is in effect ..,
+otherwise .., For code points above 255 .., For code points below 256 ..,
+if locale rules are in effect .., C<word>, C<ascii>, C<blank>, if Unicode
+rules are in effect .., otherwise ..
+
+=back
+
+=back
+
+=head2 perlreref - Perl Regular Expressions Reference
+
+=over 4
+
+=item DESCRIPTION
+
+=over 4
+
+=item OPERATORS
+
+=item SYNTAX
+
+=item ESCAPE SEQUENCES
+
+=item CHARACTER CLASSES
+
+=item ANCHORS
+
+=item QUANTIFIERS
+
+=item EXTENDED CONSTRUCTS
+
+=item VARIABLES
+
+=item FUNCTIONS
+
+=item TERMINOLOGY
+
+=back
+
+=item AUTHOR
+
+=item SEE ALSO
+
+=item THANKS
+
+=back
+
+=head2 perlref - Perl references and nested data structures
+
+=over 4
+
+=item NOTE
+
+=item DESCRIPTION
+
+=over 4
+
+=item Making References
+X<reference, creation> X<referencing>
+
+1. X<\> X<backslash>, 2. X<array, anonymous> X<[> X<[]> X<square bracket>
+X<bracket, square> X<arrayref> X<array reference> X<reference, array>, 3.
+X<hash, anonymous> X<{> X<{}> X<curly bracket> X<bracket, curly> X<brace>
+X<hashref> X<hash reference> X<reference, hash>, 4. X<subroutine,
+anonymous> X<subroutine, reference> X<reference, subroutine> X<scope,
+lexical> X<closure> X<lexical> X<lexical scope>, 5. X<constructor> X<new>,
+6. X<autovivification>, 7. X<*foo{THING}> X<*>
+
+=item Using References
+X<reference, use> X<dereferencing> X<dereference>
+
+=item Circular References
+X<circular reference> X<reference, circular>
+
+=item Symbolic references
+X<reference, symbolic> X<reference, soft>
+X<symbolic reference> X<soft reference>
+
+=item Not-so-symbolic references
+
+=item Pseudo-hashes: Using an array as a hash
+X<pseudo-hash> X<pseudo hash> X<pseudohash>
+
+=item Function Templates
+X<scope, lexical> X<closure> X<lexical> X<lexical scope>
+X<subroutine, nested> X<sub, nested> X<subroutine, local> X<sub, local>
+
+=back
+
+=item WARNING
+X<reference, string context> X<reference, use as hash key>
+
+=item Postfix Dereference Syntax
+
+=over 4
+
+=item Postfix Reference Slicing
+
+=back
+
+=item Assigning to References
+
+=item SEE ALSO
+
+=back
+
+=head2 perlform - Perl formats
+
+=over 4
+
+=item DESCRIPTION
+
+=over 4
+
+=item Text Fields
+X<format, text field>
+
+=item Numeric Fields
+X<#> X<format, numeric field>
+
+=item The Field @* for Variable-Width Multi-Line Text
+X<@*>
+
+=item The Field ^* for Variable-Width One-line-at-a-time Text
+X<^*>
+
+=item Specifying Values
+X<format, specifying values>
+
+=item Using Fill Mode
+X<format, fill mode>
+
+=item Suppressing Lines Where All Fields Are Void
+X<format, suppressing lines>
+
+=item Repeating Format Lines
+X<format, repeating lines>
+
+=item Top of Form Processing
+X<format, top of form> X<top> X<header>
+
+=item Format Variables
+X<format variables>
+X<format, variables>
+
+=back
+
+=item NOTES
+
+=over 4
+
+=item Footers
+X<format, footer> X<footer>
+
+=item Accessing Formatting Internals
+X<format, internals>
+
+=back
+
+=item WARNINGS
+
+=back
+
+=head2 perlobj - Perl object reference
+
+=over 4
+
+=item DESCRIPTION
+
+=over 4
+
+=item An Object is Simply a Data Structure
+X<object> X<bless> X<constructor> X<new>
+
+=item A Class is Simply a Package
+X<class> X<package> X<@ISA> X<inheritance>
+
+=item A Method is Simply a Subroutine
+X<method>
+
+=item Method Invocation
+X<invocation> X<method> X<arrow> X<< -> >>
+
+=item Inheritance
+X<inheritance>
+
+=item Writing Constructors
+X<constructor>
+
+=item Attributes
+X<attribute>
+
+=item An Aside About Smarter and Safer Code
+
+=item Method Call Variations
+X<method>
+
+=item Invoking Class Methods
+X<invocation>
+
+=item C<bless>, C<blessed>, and C<ref>
+
+=item The UNIVERSAL Class
+X<UNIVERSAL>
+
+isa($class) X<isa>, DOES($role) X<DOES>, can($method) X<can>,
+VERSION($need) X<VERSION>
+
+=item AUTOLOAD
+X<AUTOLOAD>
+
+=item Destructors
+X<destructor> X<DESTROY>
+
+=item Non-Hash Objects
+
+=item Inside-Out objects
+
+=item Pseudo-hashes
+
+=back
+
+=item SEE ALSO
+
+=back
+
+=head2 perltie - how to hide an object class in a simple variable
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item Tying Scalars
+X<scalar, tying>
+
+TIESCALAR classname, LIST X<TIESCALAR>, FETCH this X<FETCH>, STORE this,
+value X<STORE>, UNTIE this X<UNTIE>, DESTROY this X<DESTROY>
+
+=item Tying Arrays
+X<array, tying>
+
+TIEARRAY classname, LIST X<TIEARRAY>, FETCH this, index X<FETCH>, STORE
+this, index, value X<STORE>, FETCHSIZE this X<FETCHSIZE>, STORESIZE this,
+count X<STORESIZE>, EXTEND this, count X<EXTEND>, EXISTS this, key
+X<EXISTS>, DELETE this, key X<DELETE>, CLEAR this X<CLEAR>, PUSH this, LIST
+ X<PUSH>, POP this X<POP>, SHIFT this X<SHIFT>, UNSHIFT this, LIST 
+X<UNSHIFT>, SPLICE this, offset, length, LIST X<SPLICE>, UNTIE this
+X<UNTIE>, DESTROY this X<DESTROY>
+
+=item Tying Hashes
+X<hash, tying>
+
+USER, HOME, CLOBBER, LIST, TIEHASH classname, LIST X<TIEHASH>, FETCH this,
+key X<FETCH>, STORE this, key, value X<STORE>, DELETE this, key X<DELETE>,
+CLEAR this X<CLEAR>, EXISTS this, key X<EXISTS>, FIRSTKEY this X<FIRSTKEY>,
+NEXTKEY this, lastkey X<NEXTKEY>, SCALAR this X<SCALAR>, UNTIE this
+X<UNTIE>, DESTROY this X<DESTROY>
+
+=item Tying FileHandles
+X<filehandle, tying>
+
+TIEHANDLE classname, LIST X<TIEHANDLE>, WRITE this, LIST X<WRITE>, PRINT
+this, LIST X<PRINT>, PRINTF this, LIST X<PRINTF>, READ this, LIST X<READ>,
+READLINE this X<READLINE>, GETC this X<GETC>, EOF this X<EOF>, CLOSE this
+X<CLOSE>, UNTIE this X<UNTIE>, DESTROY this X<DESTROY>
+
+=item UNTIE this
+X<UNTIE>
+
+=item The C<untie> Gotcha
+X<untie>
+
+=back
+
+=item SEE ALSO
+
+=item BUGS
+
+=item AUTHOR
+
+=back
+
+=head2 perldbmfilter - Perl DBM Filters
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+B<filter_store_key>, B<filter_store_value>, B<filter_fetch_key>,
+B<filter_fetch_value>
+
+=over 4
+
+=item The Filter
+
+=item An Example: the NULL termination problem.
+
+=item Another Example: Key is a C int.
+
+=back
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=back
+
+=head2 perlipc - Perl interprocess communication (signals, fifos, pipes,
+safe subprocesses, sockets, and semaphores)
+
+=over 4
+
+=item DESCRIPTION
+
+=item Signals
+
+=over 4
+
+=item Handling the SIGHUP Signal in Daemons
+
+=item Deferred Signals (Safe Signals)
+
+Long-running opcodes, Interrupting IO, Restartable system calls, Signals as
+"faults", Signals triggered by operating system state
+
+=back
+
+=item Named Pipes
+
+=item Using open() for IPC
+
+=over 4
+
+=item Filehandles
+
+=item Background Processes
+
+=item Complete Dissociation of Child from Parent
+
+=item Safe Pipe Opens
+
+=item Avoiding Pipe Deadlocks
+
+=item Bidirectional Communication with Another Process
+
+=item Bidirectional Communication with Yourself
+
+=back
+
+=item Sockets: Client/Server Communication
+
+=over 4
+
+=item Internet Line Terminators
+
+=item Internet TCP Clients and Servers
+
+=item Unix-Domain TCP Clients and Servers
+
+=back
+
+=item TCP Clients with IO::Socket
+
+=over 4
+
+=item A Simple Client
+
+C<Proto>, C<PeerAddr>, C<PeerPort>
+
+=item A Webget Client
+
+=item Interactive Client with IO::Socket
+
+=back
+
+=item TCP Servers with IO::Socket
+
+Proto, LocalPort, Listen, Reuse
+
+=item UDP: Message Passing
+
+=item SysV IPC
+
+=item NOTES
+
+=item BUGS
+
+=item AUTHOR
+
+=item SEE ALSO
+
+=back
+
+=head2 perlfork - Perl's fork() emulation
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item Behavior of other Perl features in forked pseudo-processes
+
+$$ or $PROCESS_ID, %ENV, chdir() and all other builtins that accept
+filenames, wait() and waitpid(), kill(), exec(), exit(), Open handles to
+files, directories and network sockets
+
+=item Resource limits
+
+=item Killing the parent process
+
+=item Lifetime of the parent process and pseudo-processes
+
+=back
+
+=item CAVEATS AND LIMITATIONS
+
+BEGIN blocks, Open filehandles, Open directory handles, Forking pipe open()
+not yet implemented, Global state maintained by XSUBs, Interpreter embedded
+in larger application, Thread-safety of extensions
+
+=item PORTABILITY CAVEATS
+
+=item BUGS
+
+=item AUTHOR
+
+=item SEE ALSO
+
+=back
+
+=head2 perlnumber - semantics of numbers and numeric operations in Perl
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item Storing numbers
+
+=item Numeric operators and numeric conversions
+
+=item Flavors of Perl numeric operations
+
+Arithmetic operators, ++, Arithmetic operators during C<use integer>, Other
+mathematical operators, Bitwise operators, Bitwise operators during C<use
+integer>, Operators which expect an integer, Operators which expect a
+string
+
+=item AUTHOR
+
+=item SEE ALSO
+
+=back
+
+=head2 perlthrtut - Tutorial on threads in Perl
+
+=over 4
+
+=item DESCRIPTION
+
+=item What Is A Thread Anyway?
+
+=item Threaded Program Models
+
+=over 4
+
+=item Boss/Worker
+
+=item Work Crew
+
+=item Pipeline
+
+=back
+
+=item What kind of threads are Perl threads?
+
+=item Thread-Safe Modules
+
+=item Thread Basics
+
+=over 4
+
+=item Basic Thread Support
+
+=item A Note about the Examples
+
+=item Creating Threads
+
+=item Waiting For A Thread To Exit
+
+=item Ignoring A Thread
+
+=item Process and Thread Termination
+
+=back
+
+=item Threads And Data
+
+=over 4
+
+=item Shared And Unshared Data
+
+=item Thread Pitfalls: Races
+
+=back
+
+=item Synchronization and control
+
+=over 4
+
+=item Controlling access: lock()
+
+=item A Thread Pitfall: Deadlocks
+
+=item Queues: Passing Data Around
+
+=item Semaphores: Synchronizing Data Access
+
+=item Basic semaphores
+
+=item Advanced Semaphores
+
+=item Waiting for a Condition
+
+=item Giving up control
+
+=back
+
+=item General Thread Utility Routines
+
+=over 4
+
+=item What Thread Am I In?
+
+=item Thread IDs
+
+=item Are These Threads The Same?
+
+=item What Threads Are Running?
+
+=back
+
+=item A Complete Example
+
+=item Different implementations of threads
+
+=item Performance considerations
+
+=item Process-scope Changes
+
+=item Thread-Safety of System Libraries
+
+=item Conclusion
+
+=item SEE ALSO
+
+=item Bibliography
+
+=over 4
+
+=item Introductory Texts
+
+=item OS-Related References
+
+=item Other References
+
+=back
+
+=item Acknowledgements
+
+=item AUTHOR
+
+=item Copyrights
+
+=back
+
+=head2 perlport - Writing portable Perl
+
+=over 4
+
+=item DESCRIPTION
+
+Not all Perl programs have to be portable, Nearly all of Perl already I<is>
+portable
+
+=item ISSUES
+
+=over 4
+
+=item Newlines
+
+=item Numbers endianness and Width
+
+=item Files and Filesystems
+
+=item System Interaction
+
+=item Command names versus file pathnames
+
+=item Networking
+
+=item Interprocess Communication (IPC)
+
+=item External Subroutines (XS)
+
+=item Standard Modules
+
+=item Time and Date
+
+=item Character sets and character encoding
+
+=item Internationalisation
+
+=item System Resources
+
+=item Security
+
+=item Style
+
+=back
+
+=item CPAN Testers
+
+=item PLATFORMS
+
+=over 4
+
+=item Unix
+
+=item DOS and Derivatives
+
+=item VMS
+
+=item VOS
+
+=item EBCDIC Platforms
+
+=item Acorn RISC OS
+
+=item Other perls
+
+=back
+
+=item FUNCTION IMPLEMENTATIONS
+
+=over 4
+
+=item Alphabetical Listing of Perl Functions
+
+-I<X>, alarm, atan2, binmode, chmod, chown, chroot, crypt, dbmclose,
+dbmopen, dump, exec, exit, fcntl, flock, fork, getlogin, getpgrp, getppid,
+getpriority, getpwnam, getgrnam, getnetbyname, getpwuid, getgrgid,
+getnetbyaddr, getprotobynumber, getservbyport, getpwent, getgrent,
+gethostbyname, gethostent, getnetent, getprotoent, getservent, seekdir,
+sethostent, setnetent, setprotoent, setservent, endpwent, endgrent,
+endhostent, endnetent, endprotoent, endservent, getsockopt
+SOCKET,LEVEL,OPTNAME, glob, gmtime, ioctl FILEHANDLE,FUNCTION,SCALAR, kill,
+link, localtime, lstat, msgctl, msgget, msgsnd, msgrcv, open, readlink,
+rename, rewinddir, select, semctl, semget, semop, setgrent, setpgrp,
+setpriority, setpwent, setsockopt, shmctl, shmget, shmread, shmwrite,
+sleep, sockatmark, socketpair, stat, symlink, syscall, sysopen, system,
+telldir, times, truncate, umask, utime, wait, waitpid
+
+=back
+
+=item Supported Platforms
+
+Linux (x86, ARM, IA64), HP-UX, AIX, Win32, Windows 2000, Windows XP,
+Windows Server 2003, Windows Vista, Windows Server 2008, Windows 7, Cygwin,
+Solaris (x86, SPARC), OpenVMS, Alpha (7.2 and later), I64 (8.2 and later),
+Symbian, NetBSD, FreeBSD, Debian GNU/kFreeBSD, Haiku, Irix (6.5. What
+else?), OpenBSD, Dragonfly BSD, Midnight BSD, QNX Neutrino RTOS (6.5.0),
+MirOS BSD, Stratus OpenVOS (17.0 or later), time_t issues that may or may
+not be fixed, Symbian (Series 60 v3, 3.2 and 5 - what else?), Stratus VOS /
+OpenVOS, AIX, Android, FreeMINT
+
+=item EOL Platforms
+
+=over 4
+
+=item (Perl 5.20)
+
+AT&T 3b1
+
+=item (Perl 5.14)
+
+Windows 95, Windows 98, Windows ME, Windows NT4
+
+=item (Perl 5.12)
+
+Atari MiNT, Apollo Domain/OS, Apple Mac OS 8/9, Tenon Machten
+
+=back
+
+=item Supported Platforms (Perl 5.8)
+
+=item SEE ALSO
+
+=item AUTHORS / CONTRIBUTORS
+
+=back
+
+=head2 perllocale - Perl locale handling (internationalization and
+localization)
+
+=over 4
+
+=item DESCRIPTION
+
+=item WHAT IS A LOCALE
+
+Category C<LC_NUMERIC>: Numeric formatting, Category C<LC_MONETARY>:
+Formatting of monetary amounts, Category C<LC_TIME>: Date/Time formatting,
+Category C<LC_MESSAGES>: Error and other messages, Category C<LC_COLLATE>:
+Collation, Category C<LC_CTYPE>: Character Types, Other categories
+
+=item PREPARING TO USE LOCALES
+
+=item USING LOCALES
+
+=over 4
+
+=item The C<"use locale"> pragma
+
+B<Not within the scope of C<"use locale">>, B<Lingering effects of C<S<use
+locale>>>, B<Under C<"use locale";>>
+
+=item The setlocale function
+
+=item Finding locales
+
+=item LOCALE PROBLEMS
+
+=item Testing for broken locales
+
+=item Temporarily fixing locale problems
+
+=item Permanently fixing locale problems
+
+=item Permanently fixing your system's locale configuration
+
+=item Fixing system locale configuration
+
+=item The localeconv function
+
+=item I18N::Langinfo
+
+=back
+
+=item LOCALE CATEGORIES
+
+=over 4
+
+=item Category C<LC_COLLATE>: Collation
+
+=item Category C<LC_CTYPE>: Character Types
+
+=item Category C<LC_NUMERIC>: Numeric Formatting
+
+=item Category C<LC_MONETARY>: Formatting of monetary amounts
+
+=item C<LC_TIME>
+
+=item Other categories
+
+=back
+
+=item SECURITY
+
+=item ENVIRONMENT
+
+PERL_SKIP_LOCALE_INIT, PERL_BADLANG, C<LC_ALL>, C<LANGUAGE>, C<LC_CTYPE>,
+C<LC_COLLATE>, C<LC_MONETARY>, C<LC_NUMERIC>, C<LC_TIME>, C<LANG>
+
+=over 4
+
+=item Examples
+
+=back
+
+=item NOTES
+
+=over 4
+
+=item String C<eval> and C<LC_NUMERIC>
+
+=item Backward compatibility
+
+=item I18N:Collate obsolete
+
+=item Sort speed and memory use impacts
+
+=item Freely available locale definitions
+
+=item I18n and l10n
+
+=item An imperfect standard
+
+=back
+
+=item Unicode and UTF-8
+
+=item BUGS
+
+=over 4
+
+=item Broken systems
+
+=back
+
+=item SEE ALSO
+
+=item HISTORY
+
+=back
+
+=head2 perluniintro - Perl Unicode introduction
+
+=over 4
+
+=item DESCRIPTION
+
+=over 4
+
+=item Unicode
+
+=item Perl's Unicode Support
+
+=item Perl's Unicode Model
+
+=item Unicode and EBCDIC
+
+=item Creating Unicode
+
+=item Handling Unicode
+
+=item Legacy Encodings
+
+=item Unicode I/O
+
+=item Displaying Unicode As Text
+
+=item Special Cases
+
+=item Advanced Topics
+
+=item Miscellaneous
+
+=item Questions With Answers
+
+=item Hexadecimal Notation
+
+=item Further Resources
+
+=back
+
+=item UNICODE IN OLDER PERLS
+
+=item SEE ALSO
+
+=item ACKNOWLEDGMENTS
+
+=item AUTHOR, COPYRIGHT, AND LICENSE
+
+=back
+
+=head2 perlunicode - Unicode support in Perl
+
+=over 4
+
+=item DESCRIPTION
+
+=over 4
+
+=item Important Caveats
+
+Safest if you C<use feature 'unicode_strings'>, Input and Output Layers,
+You should convert your non-ASCII, non-UTF-8 Perl scripts to be UTF-8,
+C<use utf8> still needed to enable L<UTF-8|/Unicode Encodings> in scripts,
+C<BOM>-marked scripts and L<UTF-16|/Unicode Encodings> scripts autodetected
+
+=item Byte and Character Semantics
+
+=item ASCII Rules versus Unicode Rules
+
+When the string has been upgraded to UTF-8, There are additional methods
+for regular expression patterns
+
+=item Extended Grapheme Clusters (Logical characters)
+
+=item Unicode Character Properties
+
+B<C<\p{All}>>, B<C<\p{Alnum}>>, B<C<\p{Any}>>, B<C<\p{ASCII}>>,
+B<C<\p{Assigned}>>, B<C<\p{Blank}>>, B<C<\p{Decomposition_Type:
+Non_Canonical}>>    (Short: C<\p{Dt=NonCanon}>), B<C<\p{Graph}>>,
+B<C<\p{HorizSpace}>>, B<C<\p{In=*}>>, B<C<\p{PerlSpace}>>,
+B<C<\p{PerlWord}>>, B<C<\p{Posix...}>>, B<C<\p{Present_In: *}>>    (Short:
+C<\p{In=*}>), B<C<\p{Print}>>, B<C<\p{SpacePerl}>>, B<C<\p{Title}>> and 
+B<C<\p{Titlecase}>>, B<C<\p{Unicode}>>, B<C<\p{VertSpace}>>,
+B<C<\p{Word}>>, B<C<\p{XPosix...}>>
+
+=item User-Defined Character Properties
+
+=item User-Defined Case Mappings (for serious hackers only)
+
+=item Character Encodings for Input and Output
+
+=item Unicode Regular Expression Support Level
+
+[1] C<\N{U+...}> and C<\x{...}>, [2] C<\p{...}> C<\P{...}>, [3] supports
+not only minimal list, but all Unicode character properties (see Unicode
+Character Properties above), [4] C<\d> C<\D> C<\s> C<\S> C<\w> C<\W> C<\X>
+C<[:I<prop>:]> C<[:^I<prop>:]>, [5] The experimental feature starting in
+v5.18 C<"(?[...])"> accomplishes this, [6] C<\b> C<\B>, [7] Note that Perl
+does Full case-folding in matching, not Simple:, [8] Perl treats C<\n> as
+the start- and end-line delimiter.  Unicode specifies more characters that
+should be so-interpreted, [9] But C<qr/\b{lb}/> and
+C<L<Unicode::LineBreak>> are available, [10] UTF-8/UTF-EBDDIC used in Perl
+allows not only C<U+10000> to C<U+10FFFF> but also beyond C<U+10FFFF>
+
+=item Unicode Encodings
+
+=item Noncharacter code points
+
+=item Beyond Unicode code points
+
+=item Security Implications of Unicode
+
+=item Unicode in Perl on EBCDIC
+
+=item Locales
+
+=item When Unicode Does Not Happen
+
+=item The "Unicode Bug"
+
+=item Forcing Unicode in Perl (Or Unforcing Unicode in Perl)
+
+=item Using Unicode in XS
+
+=item Hacking Perl to work on earlier Unicode versions (for very serious
+hackers only)
+
+=item Porting code from perl-5.6.X
+
+=back
+
+=item BUGS
+
+=over 4
+
+=item Interaction with Extensions
+
+=item Speed
+
+=back
+
+=item SEE ALSO
+
+=back
+
+=head2 perlunicook - cookbookish examples of handling Unicode in Perl
+
+=over 4
+
+=item DESCRIPTION
+
+=item EXAMPLES
+
+=over 4
+
+=item â„ž 0: Standard preamble
+
+=item â„ž 1: Generic Unicode-savvy filter
+
+=item â„ž 2: Fine-tuning Unicode warnings
+
+=item â„ž 3: Declare source in utf8 for identifiers and literals
+
+=item â„ž 4: Characters and their numbers
+
+=item â„ž 5: Unicode literals by character number
+
+=item â„ž 6: Get character name by number
+
+=item â„ž 7: Get character number by name
+
+=item â„ž 8: Unicode named characters
+
+=item â„ž 9: Unicode named sequences
+
+=item â„ž 10: Custom named characters
+
+=item â„ž 11: Names of CJK codepoints
+
+=item â„ž 12: Explicit encode/decode
+
+=item â„ž 13: Decode program arguments as utf8
+
+=item â„ž 14: Decode program arguments as locale encoding
+
+=item â„ž 15: Declare STD{IN,OUT,ERR} to be utf8
+
+=item â„ž 16: Declare STD{IN,OUT,ERR} to be in locale encoding
+
+=item â„ž 17: Make file I/O default to utf8
+
+=item â„ž 18: Make all I/O and args default to utf8
+
+=item â„ž 19: Open file with specific encoding
+
+=item â„ž 20: Unicode casing
+
+=item â„ž 21: Unicode case-insensitive comparisons
+
+=item â„ž 22: Match Unicode linebreak sequence in regex
+
+=item â„ž 23: Get character category
+
+=item â„ž 24: Disabling Unicode-awareness in builtin charclasses
+
+=item â„ž 25: Match Unicode properties in regex with \p, \P
+
+=item â„ž 26: Custom character properties
+
+=item â„ž 27: Unicode normalization
+
+=item â„ž 28: Convert non-ASCII Unicode numerics
+
+=item â„ž 29: Match Unicode grapheme cluster in regex
+
+=item â„ž 30: Extract by grapheme instead of by codepoint (regex)
+
+=item â„ž 31: Extract by grapheme instead of by codepoint (substr)
+
+=item â„ž 32: Reverse string by grapheme
+
+=item â„ž 33: String length in graphemes
+
+=item â„ž 34: Unicode column-width for printing
+
+=item â„ž 35: Unicode collation
+
+=item â„ž 36: Case- I<and> accent-insensitive Unicode sort
+
+=item â„ž 37: Unicode locale collation
+
+=item â„ž 38: Making C<cmp> work on text instead of codepoints
+
+=item â„ž 39: Case- I<and> accent-insensitive comparisons
+
+=item â„ž 40: Case- I<and> accent-insensitive locale comparisons
+
+=item â„ž 41: Unicode linebreaking
+
+=item â„ž 42: Unicode text in DBM hashes, the tedious way
+
+=item â„ž 43: Unicode text in DBM hashes, the easy way
+
+=item â„ž 44: PROGRAM: Demo of Unicode collation and printing
+
+=back
+
+=item SEE ALSO
+
+§3.13 Default Case Algorithms, page 113; §4.2  Case, pages 120–122;
+Case Mappings, page 166–172, especially Caseless Matching starting on
+page 170, UAX #44: Unicode Character Database, UTS #18: Unicode Regular
+Expressions, UAX #15: Unicode Normalization Forms, UTS #10: Unicode
+Collation Algorithm, UAX #29: Unicode Text Segmentation, UAX #14: Unicode
+Line Breaking Algorithm, UAX #11: East Asian Width
+
+=item AUTHOR
+
+=item COPYRIGHT AND LICENCE
+
+=item REVISION HISTORY
+
+=back
+
+=head2 perlunifaq - Perl Unicode FAQ
+
+=over 4
+
+=item Q and A
+
+=over 4
+
+=item perlunitut isn't really a Unicode tutorial, is it?
+
+=item What character encodings does Perl support?
+
+=item Which version of perl should I use?
+
+=item What about binary data, like images?
+
+=item When should I decode or encode?
+
+=item What if I don't decode?
+
+=item What if I don't encode?
+
+=item Is there a way to automatically decode or encode?
+
+=item What if I don't know which encoding was used?
+
+=item Can I use Unicode in my Perl sources?
+
+=item Data::Dumper doesn't restore the UTF8 flag; is it broken?
+
+=item Why do regex character classes sometimes match only in the ASCII
+range?
+
+=item Why do some characters not uppercase or lowercase correctly?
+
+=item How can I determine if a string is a text string or a binary string?
+
+=item How do I convert from encoding FOO to encoding BAR?
+
+=item What are C<decode_utf8> and C<encode_utf8>?
+
+=item What is a "wide character"?
+
+=back
+
+=item INTERNALS
+
+=over 4
+
+=item What is "the UTF8 flag"?
+
+=item What about the C<use bytes> pragma?
+
+=item What about the C<use encoding> pragma?
+
+=item What is the difference between C<:encoding> and C<:utf8>?
+
+=item What's the difference between C<UTF-8> and C<utf8>?
+
+=item I lost track; what encoding is the internal format really?
+
+=back
+
+=item AUTHOR
+
+=item SEE ALSO
+
+=back
+
+=head2 perluniprops - Index of Unicode Version 8.0.0 character properties
+in Perl
+
+=over 4
+
+=item DESCRIPTION
+
+=item Properties accessible through C<\p{}> and C<\P{}>
+
+Single form (C<\p{name}>) tighter rules:, white space adjacent to a
+non-word character, underscores separating digits in numbers, Compound form
+(C<\p{name=value}> or C<\p{name:value}>) tighter rules:, Stabilized,
+Deprecated, Obsolete, Discouraged
+
+=over 4
+
+=item Legal C<\p{}> and C<\P{}> constructs that match no characters
+
+\p{Canonical_Combining_Class=Attached_Below_Left},
+\p{Canonical_Combining_Class=CCC133}, \p{Grapheme_Cluster_Break=Prepend}
+
+=back
+
+=item Properties accessible through Unicode::UCD
+
+=item Properties accessible through other means
+
+=item Unicode character properties that are NOT accepted by Perl
+
+I<Expands_On_NFC> (XO_NFC), I<Expands_On_NFD> (XO_NFD), I<Expands_On_NFKC>
+(XO_NFKC), I<Expands_On_NFKD> (XO_NFKD), I<Grapheme_Link> (Gr_Link),
+I<Jamo_Short_Name> (JSN), I<Other_Alphabetic> (OAlpha),
+I<Other_Default_Ignorable_Code_Point> (ODI), I<Other_Grapheme_Extend>
+(OGr_Ext), I<Other_ID_Continue> (OIDC), I<Other_ID_Start> (OIDS),
+I<Other_Lowercase> (OLower), I<Other_Math> (OMath), I<Other_Uppercase>
+(OUpper), I<Script=Katakana_Or_Hiragana> (sc=Hrkt),
+I<Script_Extensions=Katakana_Or_Hiragana> (scx=Hrkt)
+
+=item Other information in the Unicode data base
+
+F<auxiliary/GraphemeBreakTest.html>, F<auxiliary/LineBreakTest.html>,
+F<auxiliary/SentenceBreakTest.html>, F<auxiliary/WordBreakTest.html>,
+F<BidiCharacterTest.txt>, F<BidiTest.txt>, F<NormTest.txt>,
+F<CJKRadicals.txt>, F<EmojiSources.txt>, F<Index.txt>, F<NamedSqProv.txt>,
+F<NamesList.html>, F<NamesList.txt>, F<NormalizationCorrections.txt>,
+F<ReadMe.txt>, F<StandardizedVariants.html>, F<StandardizedVariants.txt>,
+F<USourceData.txt>, F<USourceGlyphs.pdf>
+
+=item SEE ALSO
+
+=back
+
+=head2 perlunitut - Perl Unicode Tutorial
+
+=over 4
+
+=item DESCRIPTION
+
+=over 4
+
+=item Definitions
+
+=item Your new toolkit
+
+=item I/O flow (the actual 5 minute tutorial)
+
+=back
+
+=item SUMMARY
+
+=item Q and A (or FAQ)
+
+=item ACKNOWLEDGEMENTS
+
+=item AUTHOR
+
+=item SEE ALSO
+
+=back
+
+=head2 perlebcdic - Considerations for running Perl on EBCDIC platforms
+
+=over 4
+
+=item DESCRIPTION
+
+=item COMMON CHARACTER CODE SETS
+
+=over 4
+
+=item ASCII
+
+=item ISO 8859
+
+=item Latin 1 (ISO 8859-1)
+
+=item EBCDIC
+
+B<0037>, B<1047>, B<POSIX-BC>
+
+=item Unicode code points versus EBCDIC code points
+
+=item Unicode and UTF
+
+=item Using Encode
+
+=back
+
+=item SINGLE OCTET TABLES
+
+recipe 0, recipe 1, recipe 2, recipe 3, recipe 4, recipe 5, recipe 6
+
+=over 4
+
+=item Table in hex, sorted in 1047 order
+
+=back
+
+=item IDENTIFYING CHARACTER CODE SETS
+
+=item CONVERSIONS
+
+=over 4
+
+=item C<utf8::unicode_to_native()> and C<utf8::native_to_unicode()>
+
+=item tr///
+
+=item iconv
+
+=item C RTL
+
+=back
+
+=item OPERATOR DIFFERENCES
+
+=item FUNCTION DIFFERENCES
+
+C<chr()>, C<ord()>, C<pack()>, C<print()>, C<printf()>, C<sort()>,
+C<sprintf()>, C<unpack()>
+
+=item REGULAR EXPRESSION DIFFERENCES
+
+=item SOCKETS
+
+=item SORTING
+
+=over 4
+
+=item Ignore ASCII vs. EBCDIC sort differences.
+
+=item Use a sort helper function
+
+=item MONO CASE then sort data (for non-digits, non-underscore)
+
+=item Perform sorting on one type of platform only.
+
+=back
+
+=item TRANSFORMATION FORMATS
+
+=over 4
+
+=item URL decoding and encoding
+
+=item uu encoding and decoding
+
+=item Quoted-Printable encoding and decoding
+
+=item Caesarean ciphers
+
+=back
+
+=item Hashing order and checksums
+
+=item I18N AND L10N
+
+=item MULTI-OCTET CHARACTER SETS
+
+=item OS ISSUES
+
+=over 4
+
+=item OS/400
+
+PASE, IFS access
+
+=item OS/390, z/OS
+
+C<sigaction>, C<chcp>, dataset access, C<iconv>, locales
+
+=item POSIX-BC?
+
+=back
+
+=item BUGS
+
+=item SEE ALSO
+
+=item REFERENCES
+
+=item HISTORY
+
+=item AUTHOR
+
+=back
+
+=head2 perlsec - Perl security
+
+=over 4
+
+=item DESCRIPTION
+
+=item SECURITY VULNERABILITY CONTACT INFORMATION
+
+=item SECURITY MECHANISMS AND CONCERNS
+
+=over 4
+
+=item Taint mode
+
+=item Laundering and Detecting Tainted Data
+
+=item Switches On the "#!" Line
+
+=item Taint mode and @INC
+
+=item Cleaning Up Your Path
+
+=item Security Bugs
+
+=item Protecting Your Programs
+
+=item Unicode
+
+=item Algorithmic Complexity Attacks
+
+Hash Seed Randomization, Hash Traversal Randomization, Bucket Order
+Perturbance, New Default Hash Function, Alternative Hash Functions
+
+=back
+
+=item SEE ALSO
+
+=back
+
+=head2 perlmod - Perl modules (packages and symbol tables)
+
+=over 4
+
+=item DESCRIPTION
+
+=over 4
+
+=item Is this the document you were after?
+
+This doc, L<perlnewmod>, L<perlmodstyle>
+
+=item Packages
+X<package> X<namespace> X<variable, global> X<global variable> X<global>
+
+=item Symbol Tables
+X<symbol table> X<stash> X<%::> X<%main::> X<typeglob> X<glob> X<alias>
+
+=item BEGIN, UNITCHECK, CHECK, INIT and END
+X<BEGIN> X<UNITCHECK> X<CHECK> X<INIT> X<END>
+
+=item Perl Classes
+X<class> X<@ISA>
+
+=item Perl Modules
+X<module>
+
+=item Making your module threadsafe
+X<threadsafe> X<thread safe>
+X<module, threadsafe> X<module, thread safe>
+X<CLONE> X<CLONE_SKIP> X<thread> X<threads> X<ithread>
+
+=back
+
+=item SEE ALSO
+
+=back
+
+=head2 perlmodlib - constructing new Perl modules and finding existing ones
+
+=over 4
+
+=item THE PERL MODULE LIBRARY
+
+=over 4
+
+=item Pragmatic Modules
+
+arybase, attributes, autodie, autodie::exception,
+autodie::exception::system, autodie::hints, autodie::skip, autouse, base,
+bigint, bignum, bigrat, blib, bytes, charnames, constant, deprecate,
+diagnostics, encoding, encoding::warnings, experimental, feature, fields,
+filetest, if, integer, less, lib, locale, mro, ok, open, ops, overload,
+overloading, parent, re, sigtrap, sort, strict, subs, threads,
+threads::shared, utf8, vars, version, vmsish, warnings::register
+
+=item Standard Modules
+
+Amiga::ARexx, Amiga::Exec, AnyDBM_File, App::Cpan, App::Prove,
+App::Prove::State, App::Prove::State::Result,
+App::Prove::State::Result::Test, Archive::Tar, Archive::Tar::File,
+Attribute::Handlers, AutoLoader, AutoSplit, B, B::Concise, B::Debug,
+B::Deparse, B::Op_private, B::Showlex, B::Terse, B::Xref, Benchmark,
+C<IO::Socket::IP>, C<Socket>, CORE, CPAN, CPAN::API::HOWTO, CPAN::Debug,
+CPAN::Distroprefs, CPAN::FirstTime, CPAN::HandleConfig, CPAN::Kwalify,
+CPAN::Meta, CPAN::Meta::Converter, CPAN::Meta::Feature,
+CPAN::Meta::History, CPAN::Meta::History::Meta_1_0,
+CPAN::Meta::History::Meta_1_1, CPAN::Meta::History::Meta_1_2,
+CPAN::Meta::History::Meta_1_3, CPAN::Meta::History::Meta_1_4,
+CPAN::Meta::Merge, CPAN::Meta::Prereqs, CPAN::Meta::Requirements,
+CPAN::Meta::Spec, CPAN::Meta::Validator, CPAN::Meta::YAML, CPAN::Nox,
+CPAN::Plugin, CPAN::Plugin::Specfile, CPAN::Queue, CPAN::Tarzip,
+CPAN::Version, Carp, Class::Struct, Compress::Raw::Bzip2,
+Compress::Raw::Zlib, Compress::Zlib, Config, Config::Perl::V, Cwd, DB,
+DBM_Filter, DBM_Filter::compress, DBM_Filter::encode, DBM_Filter::int32,
+DBM_Filter::null, DBM_Filter::utf8, DB_File, Data::Dumper, Devel::PPPort,
+Devel::Peek, Devel::SelfStubber, Digest, Digest::MD5, Digest::SHA,
+Digest::base, Digest::file, DirHandle, Dumpvalue, DynaLoader, Encode,
+Encode::Alias, Encode::Byte, Encode::CJKConstants, Encode::CN,
+Encode::CN::HZ, Encode::Config, Encode::EBCDIC, Encode::Encoder,
+Encode::Encoding, Encode::GSM0338, Encode::Guess, Encode::JP,
+Encode::JP::H2Z, Encode::JP::JIS7, Encode::KR, Encode::KR::2022_KR,
+Encode::MIME::Header, Encode::MIME::Name, Encode::PerlIO,
+Encode::Supported, Encode::Symbol, Encode::TW, Encode::Unicode,
+Encode::Unicode::UTF7, English, Env, Errno, Exporter, Exporter::Heavy,
+ExtUtils::CBuilder, ExtUtils::CBuilder::Platform::Windows,
+ExtUtils::Command, ExtUtils::Command::MM, ExtUtils::Constant,
+ExtUtils::Constant::Base, ExtUtils::Constant::Utils,
+ExtUtils::Constant::XS, ExtUtils::Embed, ExtUtils::Install,
+ExtUtils::Installed, ExtUtils::Liblist, ExtUtils::MM, ExtUtils::MM_AIX,
+ExtUtils::MM_Any, ExtUtils::MM_BeOS, ExtUtils::MM_Cygwin, ExtUtils::MM_DOS,
+ExtUtils::MM_Darwin, ExtUtils::MM_MacOS, ExtUtils::MM_NW5,
+ExtUtils::MM_OS2, ExtUtils::MM_QNX, ExtUtils::MM_UWIN, ExtUtils::MM_Unix,
+ExtUtils::MM_VMS, ExtUtils::MM_VOS, ExtUtils::MM_Win32, ExtUtils::MM_Win95,
+ExtUtils::MY, ExtUtils::MakeMaker, ExtUtils::MakeMaker::Config,
+ExtUtils::MakeMaker::FAQ, ExtUtils::MakeMaker::Locale,
+ExtUtils::MakeMaker::Tutorial, ExtUtils::Manifest, ExtUtils::Miniperl,
+ExtUtils::Mkbootstrap, ExtUtils::Mksymlists, ExtUtils::Packlist,
+ExtUtils::ParseXS, ExtUtils::ParseXS::Constants, ExtUtils::ParseXS::Eval,
+ExtUtils::ParseXS::Utilities, ExtUtils::Typemaps, ExtUtils::Typemaps::Cmd,
+ExtUtils::Typemaps::InputMap, ExtUtils::Typemaps::OutputMap,
+ExtUtils::Typemaps::Type, ExtUtils::XSSymSet, ExtUtils::testlib, Fatal,
+Fcntl, File::Basename, File::Compare, File::Copy, File::DosGlob,
+File::Fetch, File::Find, File::Glob, File::GlobMapper, File::Path,
+File::Spec, File::Spec::AmigaOS, File::Spec::Cygwin, File::Spec::Epoc,
+File::Spec::Functions, File::Spec::Mac, File::Spec::OS2, File::Spec::Unix,
+File::Spec::VMS, File::Spec::Win32, File::Temp, File::stat, FileCache,
+FileHandle, Filter::Simple, Filter::Util::Call, FindBin, GDBM_File,
+Getopt::Long, Getopt::Std, HTTP::Tiny, Hash::Util, Hash::Util::FieldHash,
+I18N::Collate, I18N::LangTags, I18N::LangTags::Detect,
+I18N::LangTags::List, I18N::Langinfo, IO, IO::Compress::Base,
+IO::Compress::Bzip2, IO::Compress::Deflate, IO::Compress::FAQ,
+IO::Compress::Gzip, IO::Compress::RawDeflate, IO::Compress::Zip, IO::Dir,
+IO::File, IO::Handle, IO::Pipe, IO::Poll, IO::Seekable, IO::Select,
+IO::Socket, IO::Socket::INET, IO::Socket::UNIX, IO::Uncompress::AnyInflate,
+IO::Uncompress::AnyUncompress, IO::Uncompress::Base,
+IO::Uncompress::Bunzip2, IO::Uncompress::Gunzip, IO::Uncompress::Inflate,
+IO::Uncompress::RawInflate, IO::Uncompress::Unzip, IO::Zlib, IPC::Cmd,
+IPC::Msg, IPC::Open2, IPC::Open3, IPC::Semaphore, IPC::SharedMem,
+IPC::SysV, JSON::PP, JSON::PP::Boolean, List::Util, List::Util::XS,
+Locale::Codes, Locale::Codes::API, Locale::Codes::Changes,
+Locale::Codes::Country, Locale::Codes::Currency, Locale::Codes::LangExt,
+Locale::Codes::LangFam, Locale::Codes::LangVar, Locale::Codes::Language,
+Locale::Codes::Script, Locale::Country, Locale::Currency, Locale::Language,
+Locale::Maketext, Locale::Maketext::Cookbook, Locale::Maketext::Guts,
+Locale::Maketext::GutsLoader, Locale::Maketext::Simple,
+Locale::Maketext::TPJ13, Locale::Script, MIME::Base64, MIME::QuotedPrint,
+Math::BigFloat, Math::BigInt, Math::BigInt::Calc, Math::BigInt::CalcEmu,
+Math::BigInt::FastCalc, Math::BigRat, Math::Complex, Math::Trig, Memoize,
+Memoize::AnyDBM_File, Memoize::Expire, Memoize::ExpireFile,
+Memoize::ExpireTest, Memoize::NDBM_File, Memoize::SDBM_File,
+Memoize::Storable, Module::CoreList, Module::CoreList::Utils, Module::Load,
+Module::Load::Conditional, Module::Loaded, Module::Metadata, NDBM_File,
+NEXT, Net::Cmd, Net::Config, Net::Domain, Net::FTP, Net::FTP::dataconn,
+Net::NNTP, Net::Netrc, Net::POP3, Net::Ping, Net::SMTP, Net::Time,
+Net::hostent, Net::libnetFAQ, Net::netent, Net::protoent, Net::servent, O,
+ODBM_File, Opcode, POSIX, Params::Check, Parse::CPAN::Meta, Perl::OSType,
+PerlIO, PerlIO::encoding, PerlIO::mmap, PerlIO::scalar, PerlIO::via,
+PerlIO::via::QuotedPrint, Pod::Escapes, Pod::Find, Pod::Functions,
+Pod::Html, Pod::InputObjects, Pod::Man, Pod::ParseLink, Pod::ParseUtils,
+Pod::Parser, Pod::Perldoc, Pod::Perldoc::BaseTo, Pod::Perldoc::GetOptsOO,
+Pod::Perldoc::ToANSI, Pod::Perldoc::ToChecker, Pod::Perldoc::ToMan,
+Pod::Perldoc::ToNroff, Pod::Perldoc::ToPod, Pod::Perldoc::ToRtf,
+Pod::Perldoc::ToTerm, Pod::Perldoc::ToText, Pod::Perldoc::ToTk,
+Pod::Perldoc::ToXml, Pod::PlainText, Pod::Select, Pod::Simple,
+Pod::Simple::Checker, Pod::Simple::Debug, Pod::Simple::DumpAsText,
+Pod::Simple::DumpAsXML, Pod::Simple::HTML, Pod::Simple::HTMLBatch,
+Pod::Simple::LinkSection, Pod::Simple::Methody, Pod::Simple::PullParser,
+Pod::Simple::PullParserEndToken, Pod::Simple::PullParserStartToken,
+Pod::Simple::PullParserTextToken, Pod::Simple::PullParserToken,
+Pod::Simple::RTF, Pod::Simple::Search, Pod::Simple::SimpleTree,
+Pod::Simple::Subclassing, Pod::Simple::Text, Pod::Simple::TextContent,
+Pod::Simple::XHTML, Pod::Simple::XMLOutStream, Pod::Text, Pod::Text::Color,
+Pod::Text::Termcap, Pod::Usage, SDBM_File, Safe, Scalar::Util,
+Search::Dict, SelectSaver, SelfLoader, Storable, Sub::Util, Symbol,
+Sys::Hostname, Sys::Syslog, Sys::Syslog::Win32, TAP::Base,
+TAP::Formatter::Base, TAP::Formatter::Color, TAP::Formatter::Console,
+TAP::Formatter::Console::ParallelSession, TAP::Formatter::Console::Session,
+TAP::Formatter::File, TAP::Formatter::File::Session,
+TAP::Formatter::Session, TAP::Harness, TAP::Harness::Env, TAP::Object,
+TAP::Parser, TAP::Parser::Aggregator, TAP::Parser::Grammar,
+TAP::Parser::Iterator, TAP::Parser::Iterator::Array,
+TAP::Parser::Iterator::Process, TAP::Parser::Iterator::Stream,
+TAP::Parser::IteratorFactory, TAP::Parser::Multiplexer,
+TAP::Parser::Result, TAP::Parser::Result::Bailout,
+TAP::Parser::Result::Comment, TAP::Parser::Result::Plan,
+TAP::Parser::Result::Pragma, TAP::Parser::Result::Test,
+TAP::Parser::Result::Unknown, TAP::Parser::Result::Version,
+TAP::Parser::Result::YAML, TAP::Parser::ResultFactory,
+TAP::Parser::Scheduler, TAP::Parser::Scheduler::Job,
+TAP::Parser::Scheduler::Spinner, TAP::Parser::Source,
+TAP::Parser::SourceHandler, TAP::Parser::SourceHandler::Executable,
+TAP::Parser::SourceHandler::File, TAP::Parser::SourceHandler::Handle,
+TAP::Parser::SourceHandler::Perl, TAP::Parser::SourceHandler::RawTAP,
+TAP::Parser::YAMLish::Reader, TAP::Parser::YAMLish::Writer,
+Term::ANSIColor, Term::Cap, Term::Complete, Term::ReadLine, Test,
+Test::Builder, Test::Builder::IO::Scalar, Test::Builder::Module,
+Test::Builder::Tester, Test::Builder::Tester::Color, Test::Harness,
+Test::Harness::Beyond, Test::More, Test::Simple, Test::Tester,
+Test::Tester::Capture, Test::Tester::CaptureRunner, Test::Tutorial,
+Test::use::ok, Text::Abbrev, Text::Balanced, Text::ParseWords, Text::Tabs,
+Text::Wrap, Thread, Thread::Queue, Thread::Semaphore, Tie::Array,
+Tie::File, Tie::Handle, Tie::Hash, Tie::Hash::NamedCapture, Tie::Memoize,
+Tie::RefHash, Tie::Scalar, Tie::StdHandle, Tie::SubstrHash, Time::HiRes,
+Time::Local, Time::Piece, Time::Seconds, Time::gmtime, Time::localtime,
+Time::tm, UNIVERSAL, Unicode::Collate, Unicode::Collate::CJK::Big5,
+Unicode::Collate::CJK::GB2312, Unicode::Collate::CJK::JISX0208,
+Unicode::Collate::CJK::Korean, Unicode::Collate::CJK::Pinyin,
+Unicode::Collate::CJK::Stroke, Unicode::Collate::CJK::Zhuyin,
+Unicode::Collate::Locale, Unicode::Normalize, Unicode::UCD, User::grent,
+User::pwent, VMS::DCLsym, VMS::Filespec, VMS::Stdio, Win32, Win32API::File,
+Win32CORE, XS::APItest, XS::Typemap, XSLoader, autodie::Scope::Guard,
+autodie::Scope::GuardStack, autodie::Util, version::Internals
+
+=item Extension Modules
+
+=back
+
+=item CPAN
+
+=over 4
+
+=item Africa
+
+South Africa
+
+=item Asia
+
+China, Hong Kong, India, Indonesia, Japan, Republic of Korea, Russia,
+Singapore, Taiwan, Thailand, Turkey
+
+=item Central America
+
+Costa Rica
+
+=item Europe
+
+Austria, Belgium, Bosnia and Herzegovina, Bulgaria, Croatia, Czech
+Republic, Denmark, Finland, France, Germany, Greece, Hungary, Iceland,
+Ireland, Italy, Latvia, Lithuania, Malta, Netherlands, Norway, Poland,
+Portugal, Romania, Russia, Slovakia, Slovenia, Spain, Sweden, Switzerland,
+Ukraine, United Kingdom
+
+=item North America
+
+Bahamas, Canada, Mexico, United States, Alabama, Arizona, California,
+Florida, Idaho, Illinois, Indiana, Massachusetts, Michigan, Minnesota, New
+Jersey, New York, North Carolina, Oregon, Pennsylvania, South Carolina,
+Tennessee, Texas, Utah, Virginia, Washington, Wisconsin
+
+=item Oceania
+
+Australia, New Zealand
+
+=item South America
+
+Argentina, Brazil, Chile, Colombia
+
+=item RSYNC Mirrors
+
+=back
+
+=item Modules: Creation, Use, and Abuse
+
+=over 4
+
+=item Guidelines for Module Creation
+
+=item Guidelines for Converting Perl 4 Library Scripts into Modules
+
+=item Guidelines for Reusing Application Code
+
+=back
+
+=item NOTE
+
+=back
+
+=head2 perlmodstyle - Perl module style guide
+
+=over 4
+
+=item INTRODUCTION
+
+=item QUICK CHECKLIST
+
+=over 4
+
+=item Before you start
+
+=item The API
+
+=item Stability
+
+=item Documentation
+
+=item Release considerations
+
+=back
+
+=item BEFORE YOU START WRITING A MODULE
+
+=over 4
+
+=item Has it been done before?
+
+=item Do one thing and do it well
+
+=item What's in a name?
+
+=item Get feedback before publishing
+
+=back
+
+=item DESIGNING AND WRITING YOUR MODULE
+
+=over 4
+
+=item To OO or not to OO?
+
+=item Designing your API
+
+Write simple routines to do simple things, Separate functionality from
+output, Provide sensible shortcuts and defaults, Naming conventions,
+Parameter passing
+
+=item Strictness and warnings
+
+=item Backwards compatibility
+
+=item Error handling and messages
+
+=back
+
+=item DOCUMENTING YOUR MODULE
+
+=over 4
+
+=item POD
+
+=item README, INSTALL, release notes, changelogs
+
+perl Makefile.PL, make, make test, make install, perl Build.PL, perl Build,
+perl Build test, perl Build install
+
+=back
+
+=item RELEASE CONSIDERATIONS
+
+=over 4
+
+=item Version numbering
+
+=item Pre-requisites
+
+=item Testing
+
+=item Packaging
+
+=item Licensing
+
+=back
+
+=item COMMON PITFALLS
+
+=over 4
+
+=item Reinventing the wheel
+
+=item Trying to do too much
+
+=item Inappropriate documentation
+
+=back
+
+=item SEE ALSO
+
+L<perlstyle>, L<perlnewmod>, L<perlpod>, L<podchecker>, Packaging Tools,
+Testing tools, http://pause.perl.org/, Any good book on software
+engineering
+
+=item AUTHOR
+
+=back
+
+=head2 perlmodinstall - Installing CPAN Modules
+
+=over 4
+
+=item DESCRIPTION
+
+=over 4
+
+=item PREAMBLE
+
+B<DECOMPRESS> the file, B<UNPACK> the file into a directory, B<BUILD> the
+module (sometimes unnecessary), B<INSTALL> the module
+
+=back
+
+=item PORTABILITY
+
+=item HEY
+
+=item AUTHOR
+
+=item COPYRIGHT
+
+=back
+
+=head2 perlnewmod - preparing a new module for distribution
+
+=over 4
+
+=item DESCRIPTION
+
+=over 4
+
+=item Warning
+
+=item What should I make into a module?
+
+=item Step-by-step: Preparing the ground
+
+Look around, Check it's new, Discuss the need, Choose a name, Check again
+
+=item Step-by-step: Making the module
+
+Start with F<module-starter> or F<h2xs>, Use L<strict|strict> and
+L<warnings|warnings>, Use L<Carp|Carp>, Use L<Exporter|Exporter> - wisely!,
+Use L<plain old documentation|perlpod>, Write tests, Write the README
+
+=item Step-by-step: Distributing your module
+
+Get a CPAN user ID, C<perl Makefile.PL; make test; make dist>, Upload the
+tarball, Announce to the modules list, Announce to clpa, Fix bugs!
+
+=back
+
+=item AUTHOR
+
+=item SEE ALSO
+
+=back
+
+=head2 perlpragma - how to write a user pragma
+
+=over 4
+
+=item DESCRIPTION
+
+=item A basic example
+
+=item Key naming
+
+=item Implementation details
+
+=back
+
+=head2 perlutil - utilities packaged with the Perl distribution
+
+=over 4
+
+=item DESCRIPTION
+
+=item LIST OF UTILITIES
+
+=over 4
+
+=item Documentation
+
+L<perldoc|perldoc>, L<pod2man|pod2man> and L<pod2text|pod2text>,
+L<pod2html|pod2html>, L<pod2usage|pod2usage>, L<podselect|podselect>,
+L<podchecker|podchecker>, L<splain|splain>, C<roffitall>
+
+=item Converters
+
+=item Administration
+
+L<libnetcfg|libnetcfg>, L<perlivp>
+
+=item Development
+
+L<perlbug|perlbug>, L<perlthanks|perlbug>, L<h2ph|h2ph>, L<c2ph|c2ph> and
+L<pstruct|pstruct>, L<h2xs|h2xs>, L<enc2xs>, L<xsubpp>, L<prove>,
+L<corelist>
+
+=item General tools
+
+L<piconv>, L<ptar>, L<ptardiff>, L<ptargrep>, L<shasum>, L<zipdetails>
+
+=item Installation
+
+L<cpan>, L<instmodsh>
+
+=back
+
+=item SEE ALSO
+
+=back
+
+=head2 perlfilter - Source Filters
+
+=over 4
+
+=item DESCRIPTION
+
+=item CONCEPTS
+
+=item USING FILTERS
+
+=item WRITING A SOURCE FILTER
+
+=item WRITING A SOURCE FILTER IN C
+
+B<Decryption Filters>
+
+=item CREATING A SOURCE FILTER AS A SEPARATE EXECUTABLE
+
+=item WRITING A SOURCE FILTER IN PERL
+
+=item USING CONTEXT: THE DEBUG FILTER
+
+=item CONCLUSION
+
+=item LIMITATIONS
+
+=item THINGS TO LOOK OUT FOR
+
+Some Filters Clobber the C<DATA> Handle
+
+=item REQUIREMENTS
+
+=item AUTHOR
+
+=item Copyrights
+
+=back
+
+=head2 perldtrace - Perl's support for DTrace
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item HISTORY
+
+=item PROBES
+
+sub-entry(SUBNAME, FILE, LINE, PACKAGE), sub-return(SUBNAME, FILE, LINE,
+PACKAGE), phase-change(NEWPHASE, OLDPHASE), op-entry(OPNAME),
+loading-file(FILENAME), loaded-file(FILENAME)
+
+=item EXAMPLES
+
+Most frequently called functions, Trace function calls, Function calls
+during interpreter cleanup, System calls at compile time, Perl functions
+that execute the most opcodes
+
+=item REFERENCES
+
+DTrace Dynamic Tracing Guide, DTrace: Dynamic Tracing in Oracle Solaris,
+Mac OS X and FreeBSD
+
+=item SEE ALSO
+
+L<Devel::DTrace::Provider>
+
+=item AUTHORS
+
+=back
+
+=head2 perlglossary - Perl Glossary
+
+=over 4
+
+=item VERSION
+
+=item DESCRIPTION
+
+=over 4
+
+=item A
+
+accessor methods, actual arguments, address operator, algorithm, alias,
+alphabetic, alternatives, anonymous, application, architecture, argument,
+ARGV, arithmetical operator, array, array context, Artistic License, ASCII,
+assertion, assignment, assignment operator, associative array,
+associativity, asynchronous, atom, atomic operation, attribute,
+autogeneration, autoincrement, autoload, autosplit, autovivification, AV,
+awk
+
+=item B
+
+backreference, backtracking, backward compatibility, bareword, base class,
+big-endian, binary, binary operator, bind, bit, bit shift, bit string,
+bless, block, BLOCK, block buffering, Boolean, Boolean context, breakpoint,
+broadcast, BSD, bucket, buffer, built-in, bundle, byte, bytecode
+
+=item C
+
+C, cache, callback, call by reference, call by value, canonical, capture
+variables, capturing, cargo cult, case, casefolding, casemapping,
+character, character class, character property, circumfix operator, class,
+class method, client, closure, cluster, CODE, code generator, codepoint,
+code subpattern, collating sequence, co-maintainer, combining character,
+command, command buffering, command-line arguments, command name, comment,
+compilation unit, compile, compile phase, compiler, compile time, composer,
+concatenation, conditional, connection, construct, constructor, context,
+continuation, core dump, CPAN, C preprocessor, cracker, currently selected
+output channel, current package, current working directory, CV
+
+=item D
+
+dangling statement, datagram, data structure, data type, DBM, declaration,
+declarator, decrement, default, defined, delimiter, dereference, derived
+class, descriptor, destroy, destructor, device, directive, directory,
+directory handle, discipline, dispatch, distribution, dual-lived, dweomer,
+dwimmer, dynamic scoping
+
+=item E
+
+eclectic, element, embedding, empty subclass test, encapsulation, endian,
+en passant, environment, environment variable, EOF, errno, error, escape
+sequence, exception, exception handling, exec, executable file, execute,
+execute bit, exit status, exploit, export, expression, extension
+
+=item F
+
+false, FAQ, fatal error, feeping creaturism, field, FIFO, file, file
+descriptor, fileglob, filehandle, filename, filesystem, file test operator,
+filter, first-come, flag, floating point, flush, FMTEYEWTK, foldcase, fork,
+formal arguments, format, freely available, freely redistributable,
+freeware, function, funny character
+
+=item G
+
+garbage collection, GID, glob, global, global destruction, glue language,
+granularity, grapheme, greedy, grep, group, GV
+
+=item H
+
+hacker, handler, hard reference, hash, hash table, header file, here
+document, hexadecimal, home directory, host, hubris, HV
+
+=item I
+
+identifier, impatience, implementation, import, increment, indexing,
+indirect filehandle, indirection, indirect object, indirect object slot,
+infix, inheritance, instance, instance data, instance method, instance
+variable, integer, interface, interpolation, interpreter, invocant,
+invocation, I/O, IO, I/O layer, IPA, IP, IPC, is-a, iteration, iterator, IV
+
+=item J
+
+JAPH
+
+=item K
+
+key, keyword
+
+=item L
+
+label, laziness, leftmost longest, left shift, lexeme, lexer, lexical
+analysis, lexical scoping, lexical variable, library, LIFO, line,
+linebreak, line buffering, line number, link, LIST, list, list context,
+list operator, list value, literal, little-endian, local, logical operator,
+lookahead, lookbehind, loop, loop control statement, loop label, lowercase,
+lvaluable, lvalue, lvalue modifier
+
+=item M
+
+magic, magical increment, magical variables, Makefile, man, manpage,
+matching, member data, memory, metacharacter, metasymbol, method, method
+resolution order, minicpan, minimalism, mode, modifier, module, modulus,
+mojibake, monger, mortal, mro, multidimensional array, multiple inheritance
+
+=item N
+
+named pipe, namespace, NaN, network address, newline, NFS, normalization,
+null character, null list, null string, numeric context, numification, NV,
+nybble
+
+=item O
+
+object, octal, offset, one-liner, open source software, operand, operating
+system, operator, operator overloading, options, ordinal, overloading,
+overriding, owner
+
+=item P
+
+package, pad, parameter, parent class, parse tree, parsing, patch, PATH,
+pathname, pattern, pattern matching, PAUSE, Perl mongers, permission bits,
+Pern, pipe, pipeline, platform, pod, pod command, pointer, polymorphism,
+port, portable, porter, possessive, POSIX, postfix, pp, pragma, precedence,
+prefix, preprocessing, primary maintainer, procedure, process, program,
+program generator, progressive matching, property, protocol, prototype,
+pseudofunction, pseudohash, pseudoliteral, public domain, pumpkin,
+pumpking, PV
+
+=item Q
+
+qualified, quantifier
+
+=item R
+
+race condition, readable, reaping, record, recursion, reference, referent,
+regex, regular expression, regular expression modifier, regular file,
+relational operator, reserved words, return value, RFC, right shift, role,
+root, RTFM, run phase, runtime, runtime pattern, RV, rvalue
+
+=item S
+
+sandbox, scalar, scalar context, scalar literal, scalar value, scalar
+variable, scope, scratchpad, script, script kiddie, sed, semaphore,
+separator, serialization, server, service, setgid, setuid, shared memory,
+shebang, shell, side effects, sigil, signal, signal handler, single
+inheritance, slice, slurp, socket, soft reference, source filter, stack,
+standard, standard error, standard input, standard I/O, Standard Library,
+standard output, statement, statement modifier, static, static method,
+static scoping, static variable, stat structure, status, STDERR, STDIN,
+STDIO, STDOUT, stream, string, string context, stringification, struct,
+structure, subclass, subpattern, subroutine, subscript, substitution,
+substring, superclass, superuser, SV, switch, switch cluster, switch
+statement, symbol, symbolic debugger, symbolic link, symbolic reference,
+symbol table, synchronous, syntactic sugar, syntax, syntax tree, syscall
+
+=item T
+
+taint checks, tainted, taint mode, TCP, term, terminator, ternary, text,
+thread, tie, titlecase, TMTOWTDI, token, tokener, tokenizing, toolbox
+approach, topic, transliterate, trigger, trinary, troff, true, truncating,
+type, type casting, typedef, typed lexical, typeglob, typemap
+
+=item U
+
+UDP, UID, umask, unary operator, Unicode, Unix, uppercase
+
+=item V
+
+value, variable, variable interpolation, variadic, vector, virtual, void
+context, v-string
+
+=item W
+
+warning, watch expression, weak reference, whitespace, word, working
+directory, wrapper, WYSIWYG
+
+=item X
+
+XS, XSUB
+
+=item Y
+
+yacc
+
+=item Z
+
+zero width, zombie
+
+=back
+
+=item AUTHOR AND COPYRIGHT
+
+=back
+
+=head2 perlembed - how to embed perl in your C program
+
+=over 4
+
+=item DESCRIPTION
+
+=over 4
+
+=item PREAMBLE
+
+B<Use C from Perl?>, B<Use a Unix program from Perl?>, B<Use Perl from
+Perl?>, B<Use C from C?>, B<Use Perl from C?>
+
+=item ROADMAP
+
+=item Compiling your C program
+
+=item Adding a Perl interpreter to your C program
+
+=item Calling a Perl subroutine from your C program
+
+=item Evaluating a Perl statement from your C program
+
+=item Performing Perl pattern matches and substitutions from your C program
+
+=item Fiddling with the Perl stack from your C program
+
+=item Maintaining a persistent interpreter
+
+=item Execution of END blocks
+
+=item $0 assignments
+
+=item Maintaining multiple interpreter instances
+
+=item Using Perl modules, which themselves use C libraries, from your C
+program
+
+=item Using embedded Perl with POSIX locales
+
+=back
+
+=item Hiding Perl_
+
+=item MORAL
+
+=item AUTHOR
+
+=item COPYRIGHT
+
+=back
+
+=head2 perldebguts - Guts of Perl debugging 
+
+=over 4
+
+=item DESCRIPTION
+
+=item Debugger Internals
+
+=over 4
+
+=item Writing Your Own Debugger
+
+=back
+
+=item Frame Listing Output Examples
+
+=item Debugging Regular Expressions
+
+=over 4
+
+=item Compile-time Output
+
+C<anchored> I<STRING> C<at> I<POS>, C<floating> I<STRING> C<at>
+I<POS1..POS2>, C<matching floating/anchored>, C<minlen>, C<stclass>
+I<TYPE>, C<noscan>, C<isall>, C<GPOS>, C<plus>, C<implicit>, C<with eval>,
+C<anchored(TYPE)>
+
+=item Types of Nodes
+
+=item Run-time Output
+
+=back
+
+=item Debugging Perl Memory Usage
+
+=over 4
+
+=item Using C<$ENV{PERL_DEBUG_MSTATS}>
+
+C<buckets SMALLEST(APPROX)..GREATEST(APPROX)>, Free/Used, C<Total sbrk():
+SBRKed/SBRKs:CONTINUOUS>, C<pad: 0>, C<heads: 2192>, C<chain: 0>, C<tail:
+6144>
+
+=back
+
+=item SEE ALSO
+
+=back
+
+=head2 perlxstut - Tutorial for writing XSUBs
+
+=over 4
+
+=item DESCRIPTION
+
+=item SPECIAL NOTES
+
+=over 4
+
+=item make
+
+=item Version caveat
+
+=item Dynamic Loading versus Static Loading
+
+=item Threads and PERL_NO_GET_CONTEXT
+
+=back
+
+=item TUTORIAL
+
+=over 4
+
+=item EXAMPLE 1
+
+=item EXAMPLE 2
+
+=item What has gone on?
+
+=item Writing good test scripts
+
+=item EXAMPLE 3
+
+=item What's new here?
+
+=item Input and Output Parameters
+
+=item The XSUBPP Program
+
+=item The TYPEMAP file
+
+=item Warning about Output Arguments
+
+=item EXAMPLE 4
+
+=item What has happened here?
+
+=item Anatomy of .xs file
+
+=item Getting the fat out of XSUBs
+
+=item More about XSUB arguments
+
+=item The Argument Stack
+
+=item Extending your Extension
+
+=item Documenting your Extension
+
+=item Installing your Extension
+
+=item EXAMPLE 5
+
+=item New Things in this Example
+
+=item EXAMPLE 6
+
+=item New Things in this Example
+
+=item EXAMPLE 7 (Coming Soon)
+
+=item EXAMPLE 8 (Coming Soon)
+
+=item EXAMPLE 9 Passing open files to XSes
+
+=item Troubleshooting these Examples
+
+=back
+
+=item See also
+
+=item Author
+
+=over 4
+
+=item Last Changed
+
+=back
+
+=back
+
+=head2 perlxs - XS language reference manual
+
+=over 4
+
+=item DESCRIPTION
+
+=over 4
+
+=item Introduction
+
+=item On The Road
+
+=item The Anatomy of an XSUB
+
+=item The Argument Stack
+
+=item The RETVAL Variable
+
+=item Returning SVs, AVs and HVs through RETVAL
+
+=item The MODULE Keyword
+
+=item The PACKAGE Keyword
+
+=item The PREFIX Keyword
+
+=item The OUTPUT: Keyword
+
+=item The NO_OUTPUT Keyword
+
+=item The CODE: Keyword
+
+=item The INIT: Keyword
+
+=item The NO_INIT Keyword
+
+=item The TYPEMAP: Keyword
+
+=item Initializing Function Parameters
+
+=item Default Parameter Values
+
+=item The PREINIT: Keyword
+
+=item The SCOPE: Keyword
+
+=item The INPUT: Keyword
+
+=item The IN/OUTLIST/IN_OUTLIST/OUT/IN_OUT Keywords
+
+=item The C<length(NAME)> Keyword
+
+=item Variable-length Parameter Lists
+
+=item The C_ARGS: Keyword
+
+=item The PPCODE: Keyword
+
+=item Returning Undef And Empty Lists
+
+=item The REQUIRE: Keyword
+
+=item The CLEANUP: Keyword
+
+=item The POSTCALL: Keyword
+
+=item The BOOT: Keyword
+
+=item The VERSIONCHECK: Keyword
+
+=item The PROTOTYPES: Keyword
+
+=item The PROTOTYPE: Keyword
+
+=item The ALIAS: Keyword
+
+=item The OVERLOAD: Keyword
+
+=item The FALLBACK: Keyword
+
+=item The INTERFACE: Keyword
+
+=item The INTERFACE_MACRO: Keyword
+
+=item The INCLUDE: Keyword
+
+=item The INCLUDE_COMMAND: Keyword
+
+=item The CASE: Keyword
+
+=item The EXPORT_XSUB_SYMBOLS: Keyword
+
+=item The & Unary Operator
+
+=item Inserting POD, Comments and C Preprocessor Directives
+
+=item Using XS With C++
+
+=item Interface Strategy
+
+=item Perl Objects And C Structures
+
+=item Safely Storing Static Data in XS
+
+MY_CXT_KEY, typedef my_cxt_t, START_MY_CXT, MY_CXT_INIT, dMY_CXT, MY_CXT,
+aMY_CXT/pMY_CXT, MY_CXT_CLONE, MY_CXT_INIT_INTERP(my_perl),
+dMY_CXT_INTERP(my_perl)
+
+=item Thread-aware system interfaces
+
+=back
+
+=item EXAMPLES
+
+=item CAVEATS
+
+Non-locale-aware XS code, Locale-aware XS code
+
+=item XS VERSION
+
+=item AUTHOR
+
+=back
+
+=head2 perlxstypemap - Perl XS C/Perl type mapping
+
+=over 4
+
+=item DESCRIPTION
+
+=over 4
+
+=item Anatomy of a typemap
+
+=item The Role of the typemap File in Your Distribution
+
+=item Sharing typemaps Between CPAN Distributions
+
+=item Writing typemap Entries
+
+=item Full Listing of Core Typemaps
+
+T_SV, T_SVREF, T_SVREF_FIXED, T_AVREF, T_AVREF_REFCOUNT_FIXED, T_HVREF,
+T_HVREF_REFCOUNT_FIXED, T_CVREF, T_CVREF_REFCOUNT_FIXED, T_SYSRET, T_UV,
+T_IV, T_INT, T_ENUM, T_BOOL, T_U_INT, T_SHORT, T_U_SHORT, T_LONG, T_U_LONG,
+T_CHAR, T_U_CHAR, T_FLOAT, T_NV, T_DOUBLE, T_PV, T_PTR, T_PTRREF, T_PTROBJ,
+T_REF_IV_REF, T_REF_IV_PTR, T_PTRDESC, T_REFREF, T_REFOBJ, T_OPAQUEPTR,
+T_OPAQUE, Implicit array, T_PACKED, T_PACKEDARRAY, T_DATAUNIT, T_CALLBACK,
+T_ARRAY, T_STDIO, T_INOUT, T_IN, T_OUT
+
+=back
+
+=back
+
+=head2 perlclib - Internal replacements for standard C library functions
+
+=over 4
+
+=item DESCRIPTION
+
+=over 4
+
+=item Conventions
+
+C<t>, C<p>, C<n>, C<s>
+
+=item File Operations
+
+=item File Input and Output
+
+=item File Positioning
+
+=item Memory Management and String Handling
+
+=item Character Class Tests
+
+=item F<stdlib.h> functions
+
+=item Miscellaneous functions
+
+=back
+
+=item SEE ALSO
+
+=back
+
+=head2 perlguts - Introduction to the Perl API
+
+=over 4
+
+=item DESCRIPTION
+
+=item Variables
+
+=over 4
+
+=item Datatypes
+
+=item What is an "IV"?
+
+=item Working with SVs
+
+=item Offsets
+
+=item What's Really Stored in an SV?
+
+=item Working with AVs
+
+=item Working with HVs
+
+=item Hash API Extensions
+
+=item AVs, HVs and undefined values
+
+=item References
+
+=item Blessed References and Class Objects
+
+=item Creating New Variables
+
+GV_ADDMULTI, GV_ADDWARN
+
+=item Reference Counts and Mortality
+
+=item Stashes and Globs
+
+=item Double-Typed SVs
+
+=item Read-Only Values
+
+=item Copy on Write
+
+=item Magic Variables
+
+=item Assigning Magic
+
+=item Magic Virtual Tables
+
+=item Finding Magic
+
+=item Understanding the Magic of Tied Hashes and Arrays
+
+=item Localizing changes
+
+C<SAVEINT(int i)>, C<SAVEIV(IV i)>, C<SAVEI32(I32 i)>, C<SAVELONG(long i)>,
+C<SAVESPTR(s)>, C<SAVEPPTR(p)>, C<SAVEFREESV(SV *sv)>, C<SAVEMORTALIZESV(SV
+*sv)>, C<SAVEFREEOP(OP *op)>, C<SAVEFREEPV(p)>, C<SAVECLEARSV(SV *sv)>,
+C<SAVEDELETE(HV *hv, char *key, I32 length)>,
+C<SAVEDESTRUCTOR(DESTRUCTORFUNC_NOCONTEXT_t f, void *p)>,
+C<SAVEDESTRUCTOR_X(DESTRUCTORFUNC_t f, void *p)>, C<SAVESTACK_POS()>, C<SV*
+save_scalar(GV *gv)>, C<AV* save_ary(GV *gv)>, C<HV* save_hash(GV *gv)>,
+C<void save_item(SV *item)>, C<void save_list(SV **sarg, I32 maxsarg)>,
+C<SV* save_svref(SV **sptr)>, C<void save_aptr(AV **aptr)>, C<void
+save_hptr(HV **hptr)>
+
+=back
+
+=item Subroutines
+
+=over 4
+
+=item XSUBs and the Argument Stack
+
+=item Autoloading with XSUBs
+
+=item Calling Perl Routines from within C Programs
+
+=item Putting a C value on Perl stack
+
+=item Scratchpads
+
+=item Scratchpads and recursion
+
+=back
+
+=item Memory Allocation
+
+=over 4
+
+=item Allocation
+
+=item Reallocation
+
+=item Moving
+
+=back
+
+=item PerlIO
+
+=item Compiled code
+
+=over 4
+
+=item Code tree
+
+=item Examining the tree
+
+=item Compile pass 1: check routines
+
+=item Compile pass 1a: constant folding
+
+=item Compile pass 2: context propagation
+
+=item Compile pass 3: peephole optimization
+
+=item Pluggable runops
+
+=item Compile-time scope hooks
+
+C<void bhk_start(pTHX_ int full)>, C<void bhk_pre_end(pTHX_ OP **o)>,
+C<void bhk_post_end(pTHX_ OP **o)>, C<void bhk_eval(pTHX_ OP *const o)>
+
+=back
+
+=item Examining internal data structures with the C<dump> functions
+
+=item How multiple interpreters and concurrency are supported
+
+=over 4
+
+=item Background and PERL_IMPLICIT_CONTEXT
+
+=item So what happened to dTHR?
+
+=item How do I use all this in extensions?
+
+=item Should I do anything special if I call perl from multiple threads?
+
+=item Future Plans and PERL_IMPLICIT_SYS
+
+=back
+
+=item Internal Functions
+
+A, p, d, s, n, r, f, M, o, x, m, X, E, b, others
+
+=over 4
+
+=item Formatted Printing of IVs, UVs, and NVs
+
+=item Pointer-To-Integer and Integer-To-Pointer
+
+=item Exception Handling
+
+=item Source Documentation
+
+=item Backwards compatibility
+
+=back
+
+=item Unicode Support
+
+=over 4
+
+=item What B<is> Unicode, anyway?
+
+=item How can I recognise a UTF-8 string?
+
+=item How does UTF-8 represent Unicode characters?
+
+=item How does Perl store UTF-8 strings?
+
+=item How do I convert a string to UTF-8?
+
+=item How do I compare strings?
+
+=item Is there anything else I need to know?
+
+=back
+
+=item Custom Operators
+
+xop_name, xop_desc, xop_class, OA_BASEOP, OA_UNOP, OA_BINOP, OA_LOGOP,
+OA_LISTOP, OA_PMOP, OA_SVOP, OA_PADOP, OA_PVOP_OR_SVOP, OA_LOOP, OA_COP,
+xop_peep
+
+=item Dynamic Scope and the Context Stack
+
+=over 4
+
+=item Introduction to the context stack
+
+=item Pushing contexts
+
+=item Popping contexts
+
+=item Redoing contexts
+
+=back
+
+=item AUTHORS
+
+=item SEE ALSO
+
+=back
+
+=head2 perlcall - Perl calling conventions from C
+
+=over 4
+
+=item DESCRIPTION
+
+An Error Handler, An Event-Driven Program
+
+=item THE CALL_ FUNCTIONS
+
+call_sv, call_pv, call_method, call_argv
+
+=item FLAG VALUES
+
+=over 4
+
+=item  G_VOID
+
+=item  G_SCALAR
+
+=item G_ARRAY
+
+=item G_DISCARD
+
+=item G_NOARGS
+
+=item G_EVAL
+
+=item G_KEEPERR
+
+=item Determining the Context
+
+=back
+
+=item EXAMPLES
+
+=over 4
+
+=item No Parameters, Nothing Returned
+
+=item Passing Parameters
+
+=item Returning a Scalar
+
+=item Returning a List of Values
+
+=item Returning a List in Scalar Context
+
+=item Returning Data from Perl via the Parameter List
+
+=item Using G_EVAL
+
+=item Using G_KEEPERR
+
+=item Using call_sv
+
+=item Using call_argv
+
+=item Using call_method
+
+=item Using GIMME_V
+
+=item Using Perl to Dispose of Temporaries
+
+=item Strategies for Storing Callback Context Information
+
+1. Ignore the problem - Allow only 1 callback, 2. Create a sequence of
+callbacks - hard wired limit, 3. Use a parameter to map to the Perl
+callback
+
+=item Alternate Stack Manipulation
+
+=item Creating and Calling an Anonymous Subroutine in C
+
+=back
+
+=item LIGHTWEIGHT CALLBACKS
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=item DATE
+
+=back
+
+=head2 perlmroapi - Perl method resolution plugin interface
+
+=over 4
+
+=item DESCRIPTION
+
+resolve, name, length, kflags, hash
+
+=item Callbacks
+
+=item Caching
+
+=item Examples
+
+=item AUTHORS
+
+=back
+
+=head2 perlreapi - Perl regular expression plugin interface
+
+=over 4
+
+=item DESCRIPTION
+
+=item Callbacks
+
+=over 4
+
+=item comp
+
+C</m> - RXf_PMf_MULTILINE, C</s> - RXf_PMf_SINGLELINE, C</i> -
+RXf_PMf_FOLD, C</x> - RXf_PMf_EXTENDED, C</p> - RXf_PMf_KEEPCOPY, Character
+set, RXf_SPLIT, RXf_SKIPWHITE, RXf_START_ONLY, RXf_WHITE, RXf_NULL,
+RXf_NO_INPLACE_SUBST
+
+=item exec
+
+rx, sv, strbeg, strend, stringarg, minend, data, flags
+
+=item intuit
+
+=item checkstr
+
+=item free
+
+=item Numbered capture callbacks
+
+=item Named capture callbacks
+
+=item qr_package
+
+=item dupe
+
+=item op_comp
+
+=back
+
+=item The REGEXP structure
+
+=over 4
+
+=item C<engine>
+
+=item C<mother_re>
+
+=item C<extflags>
+
+=item C<minlen> C<minlenret>
+
+=item C<gofs>
+
+=item C<substrs>
+
+=item C<nparens>, C<lastparen>, and C<lastcloseparen>
+
+=item C<intflags>
+
+=item C<pprivate>
+
+=item C<swap>
+
+=item C<offs>
+
+=item C<precomp> C<prelen>
+
+=item C<paren_names>
+
+=item C<substrs>
+
+=item C<subbeg> C<sublen> C<saved_copy> C<suboffset> C<subcoffset>
+
+=item C<wrapped> C<wraplen>
+
+=item C<seen_evals>
+
+=item C<refcnt>
+
+=back
+
+=item HISTORY
+
+=item AUTHORS
+
+=item LICENSE
+
+=back
+
+=head2 perlreguts - Description of the Perl regular expression engine.
+
+=over 4
+
+=item DESCRIPTION
+
+=item OVERVIEW
+
+=over 4
+
+=item A quick note on terms
+
+=item What is a regular expression engine?
+
+=item Structure of a Regexp Program
+
+C<regnode_1>, C<regnode_2>, C<regnode_string>, C<regnode_charclass>,
+C<regnode_charclass_posixl>
+
+=back
+
+=item Process Overview
+
+A. Compilation, 1. Parsing for size, 2. Parsing for construction, 3.
+Peep-hole optimisation and analysis, B. Execution, 4. Start position and
+no-match optimisations, 5. Program execution
+
+=over 4
+
+=item Compilation
+
+anchored fixed strings, floating fixed strings, minimum and maximum length
+requirements, start class, Beginning/End of line positions
+
+=item Execution
+
+=back
+
+=item MISCELLANEOUS
+
+=over 4
+
+=item Unicode and Localisation Support
+
+=item Base Structures
+
+C<offsets>, C<regstclass>, C<data>, C<program>
+
+=back
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=item LICENCE
+
+=item REFERENCES
+
+=back
+
+=head2 perlapi - autogenerated documentation for the perl public API
+
+=over 4
+
+=item DESCRIPTION
+X<Perl API> X<API> X<api>
+
+=item Array Manipulation Functions
+
+av_clear X<av_clear>, av_create_and_push X<av_create_and_push>,
+av_create_and_unshift_one X<av_create_and_unshift_one>, av_delete
+X<av_delete>, av_exists X<av_exists>, av_extend X<av_extend>, av_fetch
+X<av_fetch>, AvFILL X<AvFILL>, av_fill X<av_fill>, av_len X<av_len>,
+av_make X<av_make>, av_pop X<av_pop>, av_push X<av_push>, av_shift
+X<av_shift>, av_store X<av_store>, av_tindex X<av_tindex>, av_top_index
+X<av_top_index>, av_undef X<av_undef>, av_unshift X<av_unshift>, get_av
+X<get_av>, newAV X<newAV>, sortsv X<sortsv>, sortsv_flags X<sortsv_flags>
+
+=item Callback Functions
+
+call_argv X<call_argv>, call_method X<call_method>, call_pv X<call_pv>,
+call_sv X<call_sv>, ENTER X<ENTER>, eval_pv X<eval_pv>, eval_sv X<eval_sv>,
+FREETMPS X<FREETMPS>, LEAVE X<LEAVE>, SAVETMPS X<SAVETMPS>
+
+=item Character case changing
+
+toFOLD X<toFOLD>, toFOLD_utf8 X<toFOLD_utf8>, toFOLD_uvchr X<toFOLD_uvchr>,
+toLOWER X<toLOWER>, toLOWER_L1 X<toLOWER_L1>, toLOWER_LC X<toLOWER_LC>,
+toLOWER_utf8 X<toLOWER_utf8>, toLOWER_uvchr X<toLOWER_uvchr>, toTITLE
+X<toTITLE>, toTITLE_utf8 X<toTITLE_utf8>, toTITLE_uvchr X<toTITLE_uvchr>,
+toUPPER X<toUPPER>, toUPPER_utf8 X<toUPPER_utf8>, toUPPER_uvchr
+X<toUPPER_uvchr>
+
+=item Character classification
+
+isALPHA X<isALPHA>, isALPHANUMERIC X<isALPHANUMERIC>, isASCII X<isASCII>,
+isBLANK X<isBLANK>, isCNTRL X<isCNTRL>, isDIGIT X<isDIGIT>, isGRAPH
+X<isGRAPH>, isIDCONT X<isIDCONT>, isIDFIRST X<isIDFIRST>, isLOWER
+X<isLOWER>, isOCTAL X<isOCTAL>, isPRINT X<isPRINT>, isPSXSPC X<isPSXSPC>,
+isPUNCT X<isPUNCT>, isSPACE X<isSPACE>, isUPPER X<isUPPER>, isWORDCHAR
+X<isWORDCHAR>, isXDIGIT X<isXDIGIT>
+
+=item Cloning an interpreter
+
+perl_clone X<perl_clone>
+
+=item Compile-time scope hooks
+
+BhkDISABLE X<BhkDISABLE>, BhkENABLE X<BhkENABLE>, BhkENTRY_set
+X<BhkENTRY_set>, blockhook_register X<blockhook_register>
+
+=item COP Hint Hashes
+
+cophh_2hv X<cophh_2hv>, cophh_copy X<cophh_copy>, cophh_delete_pv
+X<cophh_delete_pv>, cophh_delete_pvn X<cophh_delete_pvn>, cophh_delete_pvs
+X<cophh_delete_pvs>, cophh_delete_sv X<cophh_delete_sv>, cophh_fetch_pv
+X<cophh_fetch_pv>, cophh_fetch_pvn X<cophh_fetch_pvn>, cophh_fetch_pvs
+X<cophh_fetch_pvs>, cophh_fetch_sv X<cophh_fetch_sv>, cophh_free
+X<cophh_free>, cophh_new_empty X<cophh_new_empty>, cophh_store_pv
+X<cophh_store_pv>, cophh_store_pvn X<cophh_store_pvn>, cophh_store_pvs
+X<cophh_store_pvs>, cophh_store_sv X<cophh_store_sv>
+
+=item COP Hint Reading
+
+cop_hints_2hv X<cop_hints_2hv>, cop_hints_fetch_pv X<cop_hints_fetch_pv>,
+cop_hints_fetch_pvn X<cop_hints_fetch_pvn>, cop_hints_fetch_pvs
+X<cop_hints_fetch_pvs>, cop_hints_fetch_sv X<cop_hints_fetch_sv>
+
+=item Custom Operators
+
+custom_op_register X<custom_op_register>, custom_op_xop X<custom_op_xop>,
+XopDISABLE X<XopDISABLE>, XopENABLE X<XopENABLE>, XopENTRY X<XopENTRY>,
+XopENTRYCUSTOM X<XopENTRYCUSTOM>, XopENTRY_set X<XopENTRY_set>, XopFLAGS
+X<XopFLAGS>
+
+=item CV Manipulation Functions
+
+caller_cx X<caller_cx>, CvSTASH X<CvSTASH>, find_runcv X<find_runcv>,
+get_cv X<get_cv>, get_cvn_flags X<get_cvn_flags>
+
+=item C<xsubpp> variables and internal functions
+
+ax X<ax>, CLASS X<CLASS>, dAX X<dAX>, dAXMARK X<dAXMARK>, dITEMS X<dITEMS>,
+dUNDERBAR X<dUNDERBAR>, dXSARGS X<dXSARGS>, dXSI32 X<dXSI32>, items
+X<items>, ix X<ix>, RETVAL X<RETVAL>, ST X<ST>, THIS X<THIS>, UNDERBAR
+X<UNDERBAR>, XS X<XS>, XS_EXTERNAL X<XS_EXTERNAL>, XS_INTERNAL
+X<XS_INTERNAL>
+
+=item Debugging Utilities
+
+dump_all X<dump_all>, dump_packsubs X<dump_packsubs>, op_dump X<op_dump>,
+sv_dump X<sv_dump>
+
+=item Display and Dump functions
+
+pv_display X<pv_display>, pv_escape X<pv_escape>, pv_pretty X<pv_pretty>
+
+=item Embedding Functions
+
+cv_clone X<cv_clone>, cv_name X<cv_name>, cv_undef X<cv_undef>,
+find_rundefsv X<find_rundefsv>, find_rundefsvoffset X<find_rundefsvoffset>,
+intro_my X<intro_my>, load_module X<load_module>, newPADNAMELIST
+X<newPADNAMELIST>, newPADNAMEouter X<newPADNAMEouter>, newPADNAMEpvn
+X<newPADNAMEpvn>, nothreadhook X<nothreadhook>, pad_add_anon
+X<pad_add_anon>, pad_add_name_pv X<pad_add_name_pv>, pad_add_name_pvn
+X<pad_add_name_pvn>, pad_add_name_sv X<pad_add_name_sv>, pad_alloc
+X<pad_alloc>, pad_findmy_pv X<pad_findmy_pv>, pad_findmy_pvn
+X<pad_findmy_pvn>, pad_findmy_sv X<pad_findmy_sv>, padnamelist_fetch
+X<padnamelist_fetch>, padnamelist_store X<padnamelist_store>, pad_setsv
+X<pad_setsv>, pad_sv X<pad_sv>, pad_tidy X<pad_tidy>, perl_alloc
+X<perl_alloc>, perl_construct X<perl_construct>, perl_destruct
+X<perl_destruct>, perl_free X<perl_free>, perl_parse X<perl_parse>,
+perl_run X<perl_run>, require_pv X<require_pv>
+
+=item Exception Handling (simple) Macros
+
+dXCPT X<dXCPT>, XCPT_CATCH X<XCPT_CATCH>, XCPT_RETHROW X<XCPT_RETHROW>,
+XCPT_TRY_END X<XCPT_TRY_END>, XCPT_TRY_START X<XCPT_TRY_START>
+
+=item Functions in file scope.c
+
+save_gp X<save_gp>
+
+=item Functions in file vutil.c
+
+new_version X<new_version>, prescan_version X<prescan_version>,
+scan_version X<scan_version>, upg_version X<upg_version>, vcmp X<vcmp>,
+vnormal X<vnormal>, vnumify X<vnumify>, vstringify X<vstringify>, vverify
+X<vverify>
+
+=item "Gimme" Values
+
+G_ARRAY X<G_ARRAY>, G_DISCARD X<G_DISCARD>, G_EVAL X<G_EVAL>, GIMME
+X<GIMME>, GIMME_V X<GIMME_V>, G_NOARGS X<G_NOARGS>, G_SCALAR X<G_SCALAR>,
+G_VOID X<G_VOID>
+
+=item Global Variables
+
+PL_check X<PL_check>, PL_keyword_plugin X<PL_keyword_plugin>
+
+=item GV Functions
+
+GvAV X<GvAV>, gv_const_sv X<gv_const_sv>, GvCV X<GvCV>, gv_fetchmeth
+X<gv_fetchmeth>, gv_fetchmethod_autoload X<gv_fetchmethod_autoload>,
+gv_fetchmeth_autoload X<gv_fetchmeth_autoload>, gv_fetchmeth_pv
+X<gv_fetchmeth_pv>, gv_fetchmeth_pvn X<gv_fetchmeth_pvn>,
+gv_fetchmeth_pvn_autoload X<gv_fetchmeth_pvn_autoload>,
+gv_fetchmeth_pv_autoload X<gv_fetchmeth_pv_autoload>, gv_fetchmeth_sv
+X<gv_fetchmeth_sv>, gv_fetchmeth_sv_autoload X<gv_fetchmeth_sv_autoload>,
+GvHV X<GvHV>, gv_init X<gv_init>, gv_init_pv X<gv_init_pv>, gv_init_pvn
+X<gv_init_pvn>, gv_init_sv X<gv_init_sv>, gv_stashpv X<gv_stashpv>,
+gv_stashpvn X<gv_stashpvn>, gv_stashpvs X<gv_stashpvs>, gv_stashsv
+X<gv_stashsv>, GvSV X<GvSV>, setdefout X<setdefout>
+
+=item Handy Values
+
+Nullav X<Nullav>, Nullch X<Nullch>, Nullcv X<Nullcv>, Nullhv X<Nullhv>,
+Nullsv X<Nullsv>
+
+=item Hash Manipulation Functions
+
+cop_fetch_label X<cop_fetch_label>, cop_store_label X<cop_store_label>,
+get_hv X<get_hv>, HEf_SVKEY X<HEf_SVKEY>, HeHASH X<HeHASH>, HeKEY X<HeKEY>,
+HeKLEN X<HeKLEN>, HePV X<HePV>, HeSVKEY X<HeSVKEY>, HeSVKEY_force
+X<HeSVKEY_force>, HeSVKEY_set X<HeSVKEY_set>, HeUTF8 X<HeUTF8>, HeVAL
+X<HeVAL>, hv_assert X<hv_assert>, hv_clear X<hv_clear>,
+hv_clear_placeholders X<hv_clear_placeholders>, hv_copy_hints_hv
+X<hv_copy_hints_hv>, hv_delete X<hv_delete>, hv_delete_ent
+X<hv_delete_ent>, HvENAME X<HvENAME>, HvENAMELEN X<HvENAMELEN>, HvENAMEUTF8
+X<HvENAMEUTF8>, hv_exists X<hv_exists>, hv_exists_ent X<hv_exists_ent>,
+hv_fetch X<hv_fetch>, hv_fetchs X<hv_fetchs>, hv_fetch_ent X<hv_fetch_ent>,
+hv_fill X<hv_fill>, hv_iterinit X<hv_iterinit>, hv_iterkey X<hv_iterkey>,
+hv_iterkeysv X<hv_iterkeysv>, hv_iternext X<hv_iternext>, hv_iternextsv
+X<hv_iternextsv>, hv_iternext_flags X<hv_iternext_flags>, hv_iterval
+X<hv_iterval>, hv_magic X<hv_magic>, HvNAME X<HvNAME>, HvNAMELEN
+X<HvNAMELEN>, HvNAMEUTF8 X<HvNAMEUTF8>, hv_scalar X<hv_scalar>, hv_store
+X<hv_store>, hv_stores X<hv_stores>, hv_store_ent X<hv_store_ent>, hv_undef
+X<hv_undef>, newHV X<newHV>
+
+=item Hook manipulation
+
+wrap_op_checker X<wrap_op_checker>
+
+=item Lexer interface
+
+lex_bufutf8 X<lex_bufutf8>, lex_discard_to X<lex_discard_to>,
+lex_grow_linestr X<lex_grow_linestr>, lex_next_chunk X<lex_next_chunk>,
+lex_peek_unichar X<lex_peek_unichar>, lex_read_space X<lex_read_space>,
+lex_read_to X<lex_read_to>, lex_read_unichar X<lex_read_unichar>, lex_start
+X<lex_start>, lex_stuff_pv X<lex_stuff_pv>, lex_stuff_pvn X<lex_stuff_pvn>,
+lex_stuff_pvs X<lex_stuff_pvs>, lex_stuff_sv X<lex_stuff_sv>, lex_unstuff
+X<lex_unstuff>, parse_arithexpr X<parse_arithexpr>, parse_barestmt
+X<parse_barestmt>, parse_block X<parse_block>, parse_fullexpr
+X<parse_fullexpr>, parse_fullstmt X<parse_fullstmt>, parse_label
+X<parse_label>, parse_listexpr X<parse_listexpr>, parse_stmtseq
+X<parse_stmtseq>, parse_termexpr X<parse_termexpr>, PL_parser X<PL_parser>,
+PL_parser-E<gt>bufend X<PL_parser-E<gt>bufend>, PL_parser-E<gt>bufptr
+X<PL_parser-E<gt>bufptr>, PL_parser-E<gt>linestart
+X<PL_parser-E<gt>linestart>, PL_parser-E<gt>linestr
+X<PL_parser-E<gt>linestr>
+
+=item Locale-related functions and macros
+
+DECLARATION_FOR_LC_NUMERIC_MANIPULATION
+X<DECLARATION_FOR_LC_NUMERIC_MANIPULATION>, RESTORE_LC_NUMERIC
+X<RESTORE_LC_NUMERIC>, STORE_LC_NUMERIC_FORCE_TO_UNDERLYING
+X<STORE_LC_NUMERIC_FORCE_TO_UNDERLYING>, STORE_LC_NUMERIC_SET_TO_NEEDED
+X<STORE_LC_NUMERIC_SET_TO_NEEDED>, sync_locale X<sync_locale>
+
+=item Magical Functions
+
+mg_clear X<mg_clear>, mg_copy X<mg_copy>, mg_find X<mg_find>, mg_findext
+X<mg_findext>, mg_free X<mg_free>, mg_free_type X<mg_free_type>, mg_get
+X<mg_get>, mg_length X<mg_length>, mg_magical X<mg_magical>, mg_set
+X<mg_set>, SvGETMAGIC X<SvGETMAGIC>, SvLOCK X<SvLOCK>, SvSETMAGIC
+X<SvSETMAGIC>, SvSetMagicSV X<SvSetMagicSV>, SvSetMagicSV_nosteal
+X<SvSetMagicSV_nosteal>, SvSetSV X<SvSetSV>, SvSetSV_nosteal
+X<SvSetSV_nosteal>, SvSHARE X<SvSHARE>, SvUNLOCK X<SvUNLOCK>
+
+=item Memory Management
+
+Copy X<Copy>, CopyD X<CopyD>, Move X<Move>, MoveD X<MoveD>, Newx X<Newx>,
+Newxc X<Newxc>, Newxz X<Newxz>, Poison X<Poison>, PoisonFree X<PoisonFree>,
+PoisonNew X<PoisonNew>, PoisonWith X<PoisonWith>, Renew X<Renew>, Renewc
+X<Renewc>, Safefree X<Safefree>, savepv X<savepv>, savepvn X<savepvn>,
+savepvs X<savepvs>, savesharedpv X<savesharedpv>, savesharedpvn
+X<savesharedpvn>, savesharedpvs X<savesharedpvs>, savesharedsvpv
+X<savesharedsvpv>, savesvpv X<savesvpv>, StructCopy X<StructCopy>, Zero
+X<Zero>, ZeroD X<ZeroD>
+
+=item Miscellaneous Functions
+
+dump_c_backtrace X<dump_c_backtrace>, fbm_compile X<fbm_compile>, fbm_instr
+X<fbm_instr>, foldEQ X<foldEQ>, foldEQ_locale X<foldEQ_locale>, form
+X<form>, getcwd_sv X<getcwd_sv>, get_c_backtrace_dump
+X<get_c_backtrace_dump>, ibcmp X<ibcmp>, ibcmp_locale X<ibcmp_locale>,
+is_safe_syscall X<is_safe_syscall>, memEQ X<memEQ>, memNE X<memNE>, mess
+X<mess>, mess_sv X<mess_sv>, my_snprintf X<my_snprintf>, my_sprintf
+X<my_sprintf>, my_strlcat X<my_strlcat>, my_strlcpy X<my_strlcpy>,
+my_vsnprintf X<my_vsnprintf>, ninstr X<ninstr>, PERL_SYS_INIT
+X<PERL_SYS_INIT>, PERL_SYS_INIT3 X<PERL_SYS_INIT3>, PERL_SYS_TERM
+X<PERL_SYS_TERM>, quadmath_format_needed X<quadmath_format_needed>,
+quadmath_format_single X<quadmath_format_single>, READ_XDIGIT
+X<READ_XDIGIT>, rninstr X<rninstr>, strEQ X<strEQ>, strGE X<strGE>, strGT
+X<strGT>, strLE X<strLE>, strLT X<strLT>, strNE X<strNE>, strnEQ X<strnEQ>,
+strnNE X<strnNE>, sv_destroyable X<sv_destroyable>, sv_nosharing
+X<sv_nosharing>, vmess X<vmess>
+
+=item MRO Functions
+
+mro_get_linear_isa X<mro_get_linear_isa>, mro_method_changed_in
+X<mro_method_changed_in>, mro_register X<mro_register>
+
+=item Multicall Functions
+
+dMULTICALL X<dMULTICALL>, MULTICALL X<MULTICALL>, POP_MULTICALL
+X<POP_MULTICALL>, PUSH_MULTICALL X<PUSH_MULTICALL>
+
+=item Numeric functions
+
+grok_bin X<grok_bin>, grok_hex X<grok_hex>, grok_infnan X<grok_infnan>,
+grok_number X<grok_number>, grok_number_flags X<grok_number_flags>,
+grok_numeric_radix X<grok_numeric_radix>, grok_oct X<grok_oct>, isinfnan
+X<isinfnan>, Perl_signbit X<Perl_signbit>, scan_bin X<scan_bin>, scan_hex
+X<scan_hex>, scan_oct X<scan_oct>
+
+=item Obsolete backwards compatibility functions
+
+custom_op_desc X<custom_op_desc>, custom_op_name X<custom_op_name>,
+gv_fetchmethod X<gv_fetchmethod>, is_utf8_char X<is_utf8_char>,
+is_utf8_char_buf X<is_utf8_char_buf>, pack_cat X<pack_cat>,
+pad_compname_type X<pad_compname_type>, sv_2pvbyte_nolen
+X<sv_2pvbyte_nolen>, sv_2pvutf8_nolen X<sv_2pvutf8_nolen>, sv_2pv_nolen
+X<sv_2pv_nolen>, sv_catpvn_mg X<sv_catpvn_mg>, sv_catsv_mg X<sv_catsv_mg>,
+sv_force_normal X<sv_force_normal>, sv_iv X<sv_iv>, sv_nolocking
+X<sv_nolocking>, sv_nounlocking X<sv_nounlocking>, sv_nv X<sv_nv>, sv_pv
+X<sv_pv>, sv_pvbyte X<sv_pvbyte>, sv_pvbyten X<sv_pvbyten>, sv_pvn
+X<sv_pvn>, sv_pvutf8 X<sv_pvutf8>, sv_pvutf8n X<sv_pvutf8n>, sv_taint
+X<sv_taint>, sv_unref X<sv_unref>, sv_usepvn X<sv_usepvn>, sv_usepvn_mg
+X<sv_usepvn_mg>, sv_uv X<sv_uv>, unpack_str X<unpack_str>, utf8_to_uvchr
+X<utf8_to_uvchr>, utf8_to_uvuni X<utf8_to_uvuni>
+
+=item Optree construction
+
+newASSIGNOP X<newASSIGNOP>, newBINOP X<newBINOP>, newCONDOP X<newCONDOP>,
+newDEFSVOP X<newDEFSVOP>, newFOROP X<newFOROP>, newGIVENOP X<newGIVENOP>,
+newGVOP X<newGVOP>, newLISTOP X<newLISTOP>, newLOGOP X<newLOGOP>, newLOOPEX
+X<newLOOPEX>, newLOOPOP X<newLOOPOP>, newMETHOP X<newMETHOP>,
+newMETHOP_named X<newMETHOP_named>, newNULLLIST X<newNULLLIST>, newOP
+X<newOP>, newPADOP X<newPADOP>, newPMOP X<newPMOP>, newPVOP X<newPVOP>,
+newRANGE X<newRANGE>, newSLICEOP X<newSLICEOP>, newSTATEOP X<newSTATEOP>,
+newSVOP X<newSVOP>, newUNOP X<newUNOP>, newUNOP_AUX X<newUNOP_AUX>,
+newWHENOP X<newWHENOP>, newWHILEOP X<newWHILEOP>
+
+=item Optree Manipulation Functions
+
+alloccopstash X<alloccopstash>, block_end X<block_end>, block_start
+X<block_start>, ck_entersub_args_list X<ck_entersub_args_list>,
+ck_entersub_args_proto X<ck_entersub_args_proto>,
+ck_entersub_args_proto_or_list X<ck_entersub_args_proto_or_list>,
+cv_const_sv X<cv_const_sv>, cv_get_call_checker X<cv_get_call_checker>,
+cv_set_call_checker X<cv_set_call_checker>, cv_set_call_checker_flags
+X<cv_set_call_checker_flags>, LINKLIST X<LINKLIST>, newCONSTSUB
+X<newCONSTSUB>, newCONSTSUB_flags X<newCONSTSUB_flags>, newXS X<newXS>,
+op_append_elem X<op_append_elem>, op_append_list X<op_append_list>,
+OP_CLASS X<OP_CLASS>, op_contextualize X<op_contextualize>, op_convert_list
+X<op_convert_list>, OP_DESC X<OP_DESC>, op_free X<op_free>, OpHAS_SIBLING
+X<OpHAS_SIBLING>, OpLASTSIB_set X<OpLASTSIB_set>, op_linklist
+X<op_linklist>, op_lvalue X<op_lvalue>, OpMAYBESIB_set X<OpMAYBESIB_set>,
+OpMORESIB_set X<OpMORESIB_set>, OP_NAME X<OP_NAME>, op_null X<op_null>,
+op_parent X<op_parent>, op_prepend_elem X<op_prepend_elem>, op_scope
+X<op_scope>, OpSIBLING X<OpSIBLING>, op_sibling_splice
+X<op_sibling_splice>, OP_TYPE_IS X<OP_TYPE_IS>, OP_TYPE_IS_OR_WAS
+X<OP_TYPE_IS_OR_WAS>, rv2cv_op_cv X<rv2cv_op_cv>
+
+=item Pack and Unpack
+
+packlist X<packlist>, unpackstring X<unpackstring>
+
+=item Pad Data Structures
+
+CvPADLIST X<CvPADLIST>, pad_add_name_pvs X<pad_add_name_pvs>, PadARRAY
+X<PadARRAY>, pad_findmy_pvs X<pad_findmy_pvs>, PadlistARRAY
+X<PadlistARRAY>, PadlistMAX X<PadlistMAX>, PadlistNAMES X<PadlistNAMES>,
+PadlistNAMESARRAY X<PadlistNAMESARRAY>, PadlistNAMESMAX X<PadlistNAMESMAX>,
+PadlistREFCNT X<PadlistREFCNT>, PadMAX X<PadMAX>, PadnameLEN X<PadnameLEN>,
+PadnamelistARRAY X<PadnamelistARRAY>, PadnamelistMAX X<PadnamelistMAX>,
+PadnamelistREFCNT X<PadnamelistREFCNT>, PadnamelistREFCNT_dec
+X<PadnamelistREFCNT_dec>, PadnamePV X<PadnamePV>, PadnameREFCNT
+X<PadnameREFCNT>, PadnameREFCNT_dec X<PadnameREFCNT_dec>, PadnameSV
+X<PadnameSV>, PadnameUTF8 X<PadnameUTF8>, pad_new X<pad_new>, PL_comppad
+X<PL_comppad>, PL_comppad_name X<PL_comppad_name>, PL_curpad X<PL_curpad>
+
+=item Per-Interpreter Variables
+
+PL_modglobal X<PL_modglobal>, PL_na X<PL_na>, PL_opfreehook
+X<PL_opfreehook>, PL_peepp X<PL_peepp>, PL_rpeepp X<PL_rpeepp>, PL_sv_no
+X<PL_sv_no>, PL_sv_undef X<PL_sv_undef>, PL_sv_yes X<PL_sv_yes>
+
+=item REGEXP Functions
+
+SvRX X<SvRX>, SvRXOK X<SvRXOK>
+
+=item Stack Manipulation Macros
+
+dMARK X<dMARK>, dORIGMARK X<dORIGMARK>, dSP X<dSP>, EXTEND X<EXTEND>, MARK
+X<MARK>, mPUSHi X<mPUSHi>, mPUSHn X<mPUSHn>, mPUSHp X<mPUSHp>, mPUSHs
+X<mPUSHs>, mPUSHu X<mPUSHu>, mXPUSHi X<mXPUSHi>, mXPUSHn X<mXPUSHn>,
+mXPUSHp X<mXPUSHp>, mXPUSHs X<mXPUSHs>, mXPUSHu X<mXPUSHu>, ORIGMARK
+X<ORIGMARK>, POPi X<POPi>, POPl X<POPl>, POPn X<POPn>, POPp X<POPp>,
+POPpbytex X<POPpbytex>, POPpx X<POPpx>, POPs X<POPs>, POPu X<POPu>, POPul
+X<POPul>, PUSHi X<PUSHi>, PUSHMARK X<PUSHMARK>, PUSHmortal X<PUSHmortal>,
+PUSHn X<PUSHn>, PUSHp X<PUSHp>, PUSHs X<PUSHs>, PUSHu X<PUSHu>, PUTBACK
+X<PUTBACK>, SP X<SP>, SPAGAIN X<SPAGAIN>, XPUSHi X<XPUSHi>, XPUSHmortal
+X<XPUSHmortal>, XPUSHn X<XPUSHn>, XPUSHp X<XPUSHp>, XPUSHs X<XPUSHs>,
+XPUSHu X<XPUSHu>, XSRETURN X<XSRETURN>, XSRETURN_EMPTY X<XSRETURN_EMPTY>,
+XSRETURN_IV X<XSRETURN_IV>, XSRETURN_NO X<XSRETURN_NO>, XSRETURN_NV
+X<XSRETURN_NV>, XSRETURN_PV X<XSRETURN_PV>, XSRETURN_UNDEF
+X<XSRETURN_UNDEF>, XSRETURN_UV X<XSRETURN_UV>, XSRETURN_YES
+X<XSRETURN_YES>, XST_mIV X<XST_mIV>, XST_mNO X<XST_mNO>, XST_mNV
+X<XST_mNV>, XST_mPV X<XST_mPV>, XST_mUNDEF X<XST_mUNDEF>, XST_mYES
+X<XST_mYES>
+
+=item SV-Body Allocation
+
+looks_like_number X<looks_like_number>, newRV_noinc X<newRV_noinc>, newSV
+X<newSV>, newSVhek X<newSVhek>, newSViv X<newSViv>, newSVnv X<newSVnv>,
+newSVpv X<newSVpv>, newSVpvf X<newSVpvf>, newSVpvn X<newSVpvn>,
+newSVpvn_flags X<newSVpvn_flags>, newSVpvn_share X<newSVpvn_share>,
+newSVpvs X<newSVpvs>, newSVpvs_flags X<newSVpvs_flags>, newSVpv_share
+X<newSVpv_share>, newSVpvs_share X<newSVpvs_share>, newSVrv X<newSVrv>,
+newSVsv X<newSVsv>, newSV_type X<newSV_type>, newSVuv X<newSVuv>, sv_2bool
+X<sv_2bool>, sv_2bool_flags X<sv_2bool_flags>, sv_2cv X<sv_2cv>, sv_2io
+X<sv_2io>, sv_2iv_flags X<sv_2iv_flags>, sv_2mortal X<sv_2mortal>,
+sv_2nv_flags X<sv_2nv_flags>, sv_2pvbyte X<sv_2pvbyte>, sv_2pvutf8
+X<sv_2pvutf8>, sv_2pv_flags X<sv_2pv_flags>, sv_2uv_flags X<sv_2uv_flags>,
+sv_backoff X<sv_backoff>, sv_bless X<sv_bless>, sv_catpv X<sv_catpv>,
+sv_catpvf X<sv_catpvf>, sv_catpvf_mg X<sv_catpvf_mg>, sv_catpvn
+X<sv_catpvn>, sv_catpvn_flags X<sv_catpvn_flags>, sv_catpvs X<sv_catpvs>,
+sv_catpvs_flags X<sv_catpvs_flags>, sv_catpvs_mg X<sv_catpvs_mg>,
+sv_catpvs_nomg X<sv_catpvs_nomg>, sv_catpv_flags X<sv_catpv_flags>,
+sv_catpv_mg X<sv_catpv_mg>, sv_catsv X<sv_catsv>, sv_catsv_flags
+X<sv_catsv_flags>, sv_chop X<sv_chop>, sv_clear X<sv_clear>, sv_cmp
+X<sv_cmp>, sv_cmp_flags X<sv_cmp_flags>, sv_cmp_locale X<sv_cmp_locale>,
+sv_cmp_locale_flags X<sv_cmp_locale_flags>, sv_collxfrm X<sv_collxfrm>,
+sv_collxfrm_flags X<sv_collxfrm_flags>, sv_copypv_flags X<sv_copypv_flags>,
+sv_copypv_nomg X<sv_copypv_nomg>, sv_dec X<sv_dec>, sv_dec_nomg
+X<sv_dec_nomg>, sv_eq X<sv_eq>, sv_eq_flags X<sv_eq_flags>,
+sv_force_normal_flags X<sv_force_normal_flags>, sv_free X<sv_free>, sv_gets
+X<sv_gets>, sv_get_backrefs X<sv_get_backrefs>, sv_grow X<sv_grow>, sv_inc
+X<sv_inc>, sv_inc_nomg X<sv_inc_nomg>, sv_insert X<sv_insert>,
+sv_insert_flags X<sv_insert_flags>, sv_isa X<sv_isa>, sv_isobject
+X<sv_isobject>, sv_len X<sv_len>, sv_len_utf8 X<sv_len_utf8>, sv_magic
+X<sv_magic>, sv_magicext X<sv_magicext>, sv_mortalcopy X<sv_mortalcopy>,
+sv_newmortal X<sv_newmortal>, sv_newref X<sv_newref>, sv_pos_b2u
+X<sv_pos_b2u>, sv_pos_b2u_flags X<sv_pos_b2u_flags>, sv_pos_u2b
+X<sv_pos_u2b>, sv_pos_u2b_flags X<sv_pos_u2b_flags>, sv_pvbyten_force
+X<sv_pvbyten_force>, sv_pvn_force X<sv_pvn_force>, sv_pvn_force_flags
+X<sv_pvn_force_flags>, sv_pvutf8n_force X<sv_pvutf8n_force>, sv_ref
+X<sv_ref>, sv_reftype X<sv_reftype>, sv_replace X<sv_replace>, sv_reset
+X<sv_reset>, sv_rvweaken X<sv_rvweaken>, sv_setiv X<sv_setiv>, sv_setiv_mg
+X<sv_setiv_mg>, sv_setnv X<sv_setnv>, sv_setnv_mg X<sv_setnv_mg>, sv_setpv
+X<sv_setpv>, sv_setpvf X<sv_setpvf>, sv_setpvf_mg X<sv_setpvf_mg>,
+sv_setpviv X<sv_setpviv>, sv_setpviv_mg X<sv_setpviv_mg>, sv_setpvn
+X<sv_setpvn>, sv_setpvn_mg X<sv_setpvn_mg>, sv_setpvs X<sv_setpvs>,
+sv_setpvs_mg X<sv_setpvs_mg>, sv_setpv_mg X<sv_setpv_mg>, sv_setref_iv
+X<sv_setref_iv>, sv_setref_nv X<sv_setref_nv>, sv_setref_pv
+X<sv_setref_pv>, sv_setref_pvn X<sv_setref_pvn>, sv_setref_pvs
+X<sv_setref_pvs>, sv_setref_uv X<sv_setref_uv>, sv_setsv X<sv_setsv>,
+sv_setsv_flags X<sv_setsv_flags>, sv_setsv_mg X<sv_setsv_mg>, sv_setuv
+X<sv_setuv>, sv_setuv_mg X<sv_setuv_mg>, sv_tainted X<sv_tainted>, sv_true
+X<sv_true>, sv_unmagic X<sv_unmagic>, sv_unmagicext X<sv_unmagicext>,
+sv_unref_flags X<sv_unref_flags>, sv_untaint X<sv_untaint>, sv_upgrade
+X<sv_upgrade>, sv_usepvn_flags X<sv_usepvn_flags>, sv_utf8_decode
+X<sv_utf8_decode>, sv_utf8_downgrade X<sv_utf8_downgrade>, sv_utf8_encode
+X<sv_utf8_encode>, sv_utf8_upgrade X<sv_utf8_upgrade>,
+sv_utf8_upgrade_flags X<sv_utf8_upgrade_flags>, sv_utf8_upgrade_flags_grow
+X<sv_utf8_upgrade_flags_grow>, sv_utf8_upgrade_nomg
+X<sv_utf8_upgrade_nomg>, sv_vcatpvf X<sv_vcatpvf>, sv_vcatpvfn
+X<sv_vcatpvfn>, sv_vcatpvfn_flags X<sv_vcatpvfn_flags>, sv_vcatpvf_mg
+X<sv_vcatpvf_mg>, sv_vsetpvf X<sv_vsetpvf>, sv_vsetpvfn X<sv_vsetpvfn>,
+sv_vsetpvf_mg X<sv_vsetpvf_mg>
+
+=item SV Flags
+
+SVt_INVLIST X<SVt_INVLIST>, SVt_IV X<SVt_IV>, SVt_NULL X<SVt_NULL>, SVt_NV
+X<SVt_NV>, SVt_PV X<SVt_PV>, SVt_PVAV X<SVt_PVAV>, SVt_PVCV X<SVt_PVCV>,
+SVt_PVFM X<SVt_PVFM>, SVt_PVGV X<SVt_PVGV>, SVt_PVHV X<SVt_PVHV>, SVt_PVIO
+X<SVt_PVIO>, SVt_PVIV X<SVt_PVIV>, SVt_PVLV X<SVt_PVLV>, SVt_PVMG
+X<SVt_PVMG>, SVt_PVNV X<SVt_PVNV>, SVt_REGEXP X<SVt_REGEXP>, svtype
+X<svtype>
+
+=item SV Manipulation Functions
+
+boolSV X<boolSV>, croak_xs_usage X<croak_xs_usage>, get_sv X<get_sv>,
+newRV_inc X<newRV_inc>, newSVpadname X<newSVpadname>, newSVpvn_utf8
+X<newSVpvn_utf8>, sv_catpvn_nomg X<sv_catpvn_nomg>, sv_catpv_nomg
+X<sv_catpv_nomg>, sv_catsv_nomg X<sv_catsv_nomg>, SvCUR X<SvCUR>, SvCUR_set
+X<SvCUR_set>, sv_derived_from X<sv_derived_from>, sv_derived_from_pv
+X<sv_derived_from_pv>, sv_derived_from_pvn X<sv_derived_from_pvn>,
+sv_derived_from_sv X<sv_derived_from_sv>, sv_does X<sv_does>, sv_does_pv
+X<sv_does_pv>, sv_does_pvn X<sv_does_pvn>, sv_does_sv X<sv_does_sv>, SvEND
+X<SvEND>, SvGAMAGIC X<SvGAMAGIC>, SvGROW X<SvGROW>, SvIOK X<SvIOK>,
+SvIOK_notUV X<SvIOK_notUV>, SvIOK_off X<SvIOK_off>, SvIOK_on X<SvIOK_on>,
+SvIOK_only X<SvIOK_only>, SvIOK_only_UV X<SvIOK_only_UV>, SvIOKp X<SvIOKp>,
+SvIOK_UV X<SvIOK_UV>, SvIsCOW X<SvIsCOW>, SvIsCOW_shared_hash
+X<SvIsCOW_shared_hash>, SvIV X<SvIV>, SvIV_nomg X<SvIV_nomg>, SvIV_set
+X<SvIV_set>, SvIVX X<SvIVX>, SvIVx X<SvIVx>, SvLEN X<SvLEN>, SvLEN_set
+X<SvLEN_set>, SvMAGIC_set X<SvMAGIC_set>, SvNIOK X<SvNIOK>, SvNIOK_off
+X<SvNIOK_off>, SvNIOKp X<SvNIOKp>, SvNOK X<SvNOK>, SvNOK_off X<SvNOK_off>,
+SvNOK_on X<SvNOK_on>, SvNOK_only X<SvNOK_only>, SvNOKp X<SvNOKp>, SvNV
+X<SvNV>, SvNV_nomg X<SvNV_nomg>, SvNV_set X<SvNV_set>, SvNVX X<SvNVX>,
+SvNVx X<SvNVx>, SvOK X<SvOK>, SvOOK X<SvOOK>, SvOOK_offset X<SvOOK_offset>,
+SvPOK X<SvPOK>, SvPOK_off X<SvPOK_off>, SvPOK_on X<SvPOK_on>, SvPOK_only
+X<SvPOK_only>, SvPOK_only_UTF8 X<SvPOK_only_UTF8>, SvPOKp X<SvPOKp>, SvPV
+X<SvPV>, SvPVbyte X<SvPVbyte>, SvPVbyte_force X<SvPVbyte_force>,
+SvPVbyte_nolen X<SvPVbyte_nolen>, SvPVbytex X<SvPVbytex>, SvPVbytex_force
+X<SvPVbytex_force>, SvPV_force X<SvPV_force>, SvPV_force_nomg
+X<SvPV_force_nomg>, SvPV_nolen X<SvPV_nolen>, SvPV_nomg X<SvPV_nomg>,
+SvPV_nomg_nolen X<SvPV_nomg_nolen>, SvPV_set X<SvPV_set>, SvPVutf8
+X<SvPVutf8>, SvPVutf8x X<SvPVutf8x>, SvPVutf8x_force X<SvPVutf8x_force>,
+SvPVutf8_force X<SvPVutf8_force>, SvPVutf8_nolen X<SvPVutf8_nolen>, SvPVX
+X<SvPVX>, SvPVx X<SvPVx>, SvREFCNT X<SvREFCNT>, SvREFCNT_dec
+X<SvREFCNT_dec>, SvREFCNT_dec_NN X<SvREFCNT_dec_NN>, SvREFCNT_inc
+X<SvREFCNT_inc>, SvREFCNT_inc_NN X<SvREFCNT_inc_NN>, SvREFCNT_inc_simple
+X<SvREFCNT_inc_simple>, SvREFCNT_inc_simple_NN X<SvREFCNT_inc_simple_NN>,
+SvREFCNT_inc_simple_void X<SvREFCNT_inc_simple_void>,
+SvREFCNT_inc_simple_void_NN X<SvREFCNT_inc_simple_void_NN>,
+SvREFCNT_inc_void X<SvREFCNT_inc_void>, SvREFCNT_inc_void_NN
+X<SvREFCNT_inc_void_NN>, sv_report_used X<sv_report_used>, SvROK X<SvROK>,
+SvROK_off X<SvROK_off>, SvROK_on X<SvROK_on>, SvRV X<SvRV>, SvRV_set
+X<SvRV_set>, sv_setsv_nomg X<sv_setsv_nomg>, SvSTASH X<SvSTASH>,
+SvSTASH_set X<SvSTASH_set>, SvTAINT X<SvTAINT>, SvTAINTED X<SvTAINTED>,
+SvTAINTED_off X<SvTAINTED_off>, SvTAINTED_on X<SvTAINTED_on>, SvTRUE
+X<SvTRUE>, SvTRUE_nomg X<SvTRUE_nomg>, SvTYPE X<SvTYPE>, SvUOK X<SvUOK>,
+SvUPGRADE X<SvUPGRADE>, SvUTF8 X<SvUTF8>, sv_utf8_upgrade_nomg
+X<sv_utf8_upgrade_nomg>, SvUTF8_off X<SvUTF8_off>, SvUTF8_on X<SvUTF8_on>,
+SvUV X<SvUV>, SvUV_nomg X<SvUV_nomg>, SvUV_set X<SvUV_set>, SvUVX X<SvUVX>,
+SvUVx X<SvUVx>, SvVOK X<SvVOK>
+
+=item Unicode Support
+
+bytes_cmp_utf8 X<bytes_cmp_utf8>, bytes_from_utf8 X<bytes_from_utf8>,
+bytes_to_utf8 X<bytes_to_utf8>, DO_UTF8 X<DO_UTF8>, foldEQ_utf8
+X<foldEQ_utf8>, is_ascii_string X<is_ascii_string>, is_invariant_string
+X<is_invariant_string>, is_utf8_string X<is_utf8_string>,
+is_utf8_string_loc X<is_utf8_string_loc>, is_utf8_string_loclen
+X<is_utf8_string_loclen>, isUTF8_CHAR X<isUTF8_CHAR>, pv_uni_display
+X<pv_uni_display>, sv_cat_decode X<sv_cat_decode>, sv_recode_to_utf8
+X<sv_recode_to_utf8>, sv_uni_display X<sv_uni_display>, to_utf8_case
+X<to_utf8_case>, to_utf8_fold X<to_utf8_fold>, to_utf8_lower
+X<to_utf8_lower>, to_utf8_title X<to_utf8_title>, to_utf8_upper
+X<to_utf8_upper>, utf8n_to_uvchr X<utf8n_to_uvchr>, utf8n_to_uvuni
+X<utf8n_to_uvuni>, UTF8SKIP X<UTF8SKIP>, utf8_distance X<utf8_distance>,
+utf8_hop X<utf8_hop>, utf8_length X<utf8_length>, utf8_to_bytes
+X<utf8_to_bytes>, utf8_to_uvchr_buf X<utf8_to_uvchr_buf>, utf8_to_uvuni_buf
+X<utf8_to_uvuni_buf>, UVCHR_SKIP X<UVCHR_SKIP>, uvchr_to_utf8
+X<uvchr_to_utf8>, uvchr_to_utf8_flags X<uvchr_to_utf8_flags>,
+uvoffuni_to_utf8_flags X<uvoffuni_to_utf8_flags>, uvuni_to_utf8_flags
+X<uvuni_to_utf8_flags>
+
+=item Variables created by C<xsubpp> and C<xsubpp> internal functions
+
+newXSproto X<newXSproto>, XS_APIVERSION_BOOTCHECK
+X<XS_APIVERSION_BOOTCHECK>, XS_VERSION X<XS_VERSION>, XS_VERSION_BOOTCHECK
+X<XS_VERSION_BOOTCHECK>
+
+=item Warning and Dieing
+
+croak X<croak>, croak_no_modify X<croak_no_modify>, croak_sv X<croak_sv>,
+die X<die>, die_sv X<die_sv>, vcroak X<vcroak>, vwarn X<vwarn>, warn
+X<warn>, warn_sv X<warn_sv>
+
+=item Undocumented functions
+
+GetVars X<GetVars>, Gv_AMupdate X<Gv_AMupdate>, PerlIO_clearerr
+X<PerlIO_clearerr>, PerlIO_close X<PerlIO_close>, PerlIO_context_layers
+X<PerlIO_context_layers>, PerlIO_eof X<PerlIO_eof>, PerlIO_error
+X<PerlIO_error>, PerlIO_fileno X<PerlIO_fileno>, PerlIO_fill
+X<PerlIO_fill>, PerlIO_flush X<PerlIO_flush>, PerlIO_get_base
+X<PerlIO_get_base>, PerlIO_get_bufsiz X<PerlIO_get_bufsiz>, PerlIO_get_cnt
+X<PerlIO_get_cnt>, PerlIO_get_ptr X<PerlIO_get_ptr>, PerlIO_read
+X<PerlIO_read>, PerlIO_seek X<PerlIO_seek>, PerlIO_set_cnt
+X<PerlIO_set_cnt>, PerlIO_set_ptrcnt X<PerlIO_set_ptrcnt>,
+PerlIO_setlinebuf X<PerlIO_setlinebuf>, PerlIO_stderr X<PerlIO_stderr>,
+PerlIO_stdin X<PerlIO_stdin>, PerlIO_stdout X<PerlIO_stdout>, PerlIO_tell
+X<PerlIO_tell>, PerlIO_unread X<PerlIO_unread>, PerlIO_write
+X<PerlIO_write>, amagic_call X<amagic_call>, amagic_deref_call
+X<amagic_deref_call>, any_dup X<any_dup>, atfork_lock X<atfork_lock>,
+atfork_unlock X<atfork_unlock>, av_arylen_p X<av_arylen_p>, av_iter_p
+X<av_iter_p>, block_gimme X<block_gimme>, call_atexit X<call_atexit>,
+call_list X<call_list>, calloc X<calloc>, cast_i32 X<cast_i32>, cast_iv
+X<cast_iv>, cast_ulong X<cast_ulong>, cast_uv X<cast_uv>, ck_warner
+X<ck_warner>, ck_warner_d X<ck_warner_d>, ckwarn X<ckwarn>, ckwarn_d
+X<ckwarn_d>, clear_defarray X<clear_defarray>, clone_params_del
+X<clone_params_del>, clone_params_new X<clone_params_new>,
+croak_memory_wrap X<croak_memory_wrap>, croak_nocontext X<croak_nocontext>,
+csighandler X<csighandler>, cx_dump X<cx_dump>, cx_dup X<cx_dup>, cxinc
+X<cxinc>, deb X<deb>, deb_nocontext X<deb_nocontext>, debop X<debop>,
+debprofdump X<debprofdump>, debstack X<debstack>, debstackptrs
+X<debstackptrs>, delimcpy X<delimcpy>, despatch_signals
+X<despatch_signals>, die_nocontext X<die_nocontext>, dirp_dup X<dirp_dup>,
+do_aspawn X<do_aspawn>, do_binmode X<do_binmode>, do_close X<do_close>,
+do_gv_dump X<do_gv_dump>, do_gvgv_dump X<do_gvgv_dump>, do_hv_dump
+X<do_hv_dump>, do_join X<do_join>, do_magic_dump X<do_magic_dump>,
+do_op_dump X<do_op_dump>, do_open X<do_open>, do_open9 X<do_open9>,
+do_openn X<do_openn>, do_pmop_dump X<do_pmop_dump>, do_spawn X<do_spawn>,
+do_spawn_nowait X<do_spawn_nowait>, do_sprintf X<do_sprintf>, do_sv_dump
+X<do_sv_dump>, doing_taint X<doing_taint>, doref X<doref>, dounwind
+X<dounwind>, dowantarray X<dowantarray>, dump_eval X<dump_eval>, dump_form
+X<dump_form>, dump_indent X<dump_indent>, dump_mstats X<dump_mstats>,
+dump_sub X<dump_sub>, dump_vindent X<dump_vindent>, filter_add
+X<filter_add>, filter_del X<filter_del>, filter_read X<filter_read>,
+foldEQ_latin1 X<foldEQ_latin1>, form_nocontext X<form_nocontext>, fp_dup
+X<fp_dup>, fprintf_nocontext X<fprintf_nocontext>, free_global_struct
+X<free_global_struct>, free_tmps X<free_tmps>, get_context X<get_context>,
+get_mstats X<get_mstats>, get_op_descs X<get_op_descs>, get_op_names
+X<get_op_names>, get_ppaddr X<get_ppaddr>, get_vtbl X<get_vtbl>, gp_dup
+X<gp_dup>, gp_free X<gp_free>, gp_ref X<gp_ref>, gv_AVadd X<gv_AVadd>,
+gv_HVadd X<gv_HVadd>, gv_IOadd X<gv_IOadd>, gv_SVadd X<gv_SVadd>,
+gv_add_by_type X<gv_add_by_type>, gv_autoload4 X<gv_autoload4>,
+gv_autoload_pv X<gv_autoload_pv>, gv_autoload_pvn X<gv_autoload_pvn>,
+gv_autoload_sv X<gv_autoload_sv>, gv_check X<gv_check>, gv_dump X<gv_dump>,
+gv_efullname X<gv_efullname>, gv_efullname3 X<gv_efullname3>, gv_efullname4
+X<gv_efullname4>, gv_fetchfile X<gv_fetchfile>, gv_fetchfile_flags
+X<gv_fetchfile_flags>, gv_fetchpv X<gv_fetchpv>, gv_fetchpvn_flags
+X<gv_fetchpvn_flags>, gv_fetchsv X<gv_fetchsv>, gv_fullname X<gv_fullname>,
+gv_fullname3 X<gv_fullname3>, gv_fullname4 X<gv_fullname4>, gv_handler
+X<gv_handler>, gv_name_set X<gv_name_set>, he_dup X<he_dup>, hek_dup
+X<hek_dup>, hv_common X<hv_common>, hv_common_key_len X<hv_common_key_len>,
+hv_delayfree_ent X<hv_delayfree_ent>, hv_eiter_p X<hv_eiter_p>,
+hv_eiter_set X<hv_eiter_set>, hv_free_ent X<hv_free_ent>, hv_ksplit
+X<hv_ksplit>, hv_name_set X<hv_name_set>, hv_placeholders_get
+X<hv_placeholders_get>, hv_placeholders_set X<hv_placeholders_set>,
+hv_rand_set X<hv_rand_set>, hv_riter_p X<hv_riter_p>, hv_riter_set
+X<hv_riter_set>, ibcmp_utf8 X<ibcmp_utf8>, init_global_struct
+X<init_global_struct>, init_stacks X<init_stacks>, init_tm X<init_tm>,
+instr X<instr>, is_lvalue_sub X<is_lvalue_sub>, leave_scope X<leave_scope>,
+load_module_nocontext X<load_module_nocontext>, magic_dump X<magic_dump>,
+malloc X<malloc>, markstack_grow X<markstack_grow>, mess_nocontext
+X<mess_nocontext>, mfree X<mfree>, mg_dup X<mg_dup>, mg_size X<mg_size>,
+mini_mktime X<mini_mktime>, moreswitches X<moreswitches>, mro_get_from_name
+X<mro_get_from_name>, mro_get_private_data X<mro_get_private_data>,
+mro_set_mro X<mro_set_mro>, mro_set_private_data X<mro_set_private_data>,
+my_atof X<my_atof>, my_atof2 X<my_atof2>, my_bcopy X<my_bcopy>, my_bzero
+X<my_bzero>, my_chsize X<my_chsize>, my_cxt_index X<my_cxt_index>,
+my_cxt_init X<my_cxt_init>, my_dirfd X<my_dirfd>, my_exit X<my_exit>,
+my_failure_exit X<my_failure_exit>, my_fflush_all X<my_fflush_all>, my_fork
+X<my_fork>, my_lstat X<my_lstat>, my_memcmp X<my_memcmp>, my_memset
+X<my_memset>, my_pclose X<my_pclose>, my_popen X<my_popen>, my_popen_list
+X<my_popen_list>, my_setenv X<my_setenv>, my_socketpair X<my_socketpair>,
+my_stat X<my_stat>, my_strftime X<my_strftime>, newANONATTRSUB
+X<newANONATTRSUB>, newANONHASH X<newANONHASH>, newANONLIST X<newANONLIST>,
+newANONSUB X<newANONSUB>, newATTRSUB X<newATTRSUB>, newAVREF X<newAVREF>,
+newCVREF X<newCVREF>, newFORM X<newFORM>, newGVREF X<newGVREF>, newGVgen
+X<newGVgen>, newGVgen_flags X<newGVgen_flags>, newHVREF X<newHVREF>,
+newHVhv X<newHVhv>, newIO X<newIO>, newMYSUB X<newMYSUB>, newPROG
+X<newPROG>, newRV X<newRV>, newSUB X<newSUB>, newSVREF X<newSVREF>,
+newSVpvf_nocontext X<newSVpvf_nocontext>, new_stackinfo X<new_stackinfo>,
+op_refcnt_lock X<op_refcnt_lock>, op_refcnt_unlock X<op_refcnt_unlock>,
+parser_dup X<parser_dup>, perl_alloc_using X<perl_alloc_using>,
+perl_clone_using X<perl_clone_using>, pmop_dump X<pmop_dump>, pop_scope
+X<pop_scope>, pregcomp X<pregcomp>, pregexec X<pregexec>, pregfree
+X<pregfree>, pregfree2 X<pregfree2>, printf_nocontext X<printf_nocontext>,
+ptr_table_fetch X<ptr_table_fetch>, ptr_table_free X<ptr_table_free>,
+ptr_table_new X<ptr_table_new>, ptr_table_split X<ptr_table_split>,
+ptr_table_store X<ptr_table_store>, push_scope X<push_scope>, re_compile
+X<re_compile>, re_dup_guts X<re_dup_guts>, re_intuit_start
+X<re_intuit_start>, re_intuit_string X<re_intuit_string>, realloc
+X<realloc>, reentrant_free X<reentrant_free>, reentrant_init
+X<reentrant_init>, reentrant_retry X<reentrant_retry>, reentrant_size
+X<reentrant_size>, ref X<ref>, reg_named_buff_all X<reg_named_buff_all>,
+reg_named_buff_exists X<reg_named_buff_exists>, reg_named_buff_fetch
+X<reg_named_buff_fetch>, reg_named_buff_firstkey
+X<reg_named_buff_firstkey>, reg_named_buff_nextkey
+X<reg_named_buff_nextkey>, reg_named_buff_scalar X<reg_named_buff_scalar>,
+regdump X<regdump>, regdupe_internal X<regdupe_internal>, regexec_flags
+X<regexec_flags>, regfree_internal X<regfree_internal>, reginitcolors
+X<reginitcolors>, regnext X<regnext>, repeatcpy X<repeatcpy>, rsignal
+X<rsignal>, rsignal_state X<rsignal_state>, runops_debug X<runops_debug>,
+runops_standard X<runops_standard>, rvpv_dup X<rvpv_dup>, safesyscalloc
+X<safesyscalloc>, safesysfree X<safesysfree>, safesysmalloc
+X<safesysmalloc>, safesysrealloc X<safesysrealloc>, save_I16 X<save_I16>,
+save_I32 X<save_I32>, save_I8 X<save_I8>, save_adelete X<save_adelete>,
+save_aelem X<save_aelem>, save_aelem_flags X<save_aelem_flags>, save_alloc
+X<save_alloc>, save_aptr X<save_aptr>, save_ary X<save_ary>, save_bool
+X<save_bool>, save_clearsv X<save_clearsv>, save_delete X<save_delete>,
+save_destructor X<save_destructor>, save_destructor_x X<save_destructor_x>,
+save_freeop X<save_freeop>, save_freepv X<save_freepv>, save_freesv
+X<save_freesv>, save_generic_pvref X<save_generic_pvref>,
+save_generic_svref X<save_generic_svref>, save_hash X<save_hash>,
+save_hdelete X<save_hdelete>, save_helem X<save_helem>, save_helem_flags
+X<save_helem_flags>, save_hints X<save_hints>, save_hptr X<save_hptr>,
+save_int X<save_int>, save_item X<save_item>, save_iv X<save_iv>, save_list
+X<save_list>, save_long X<save_long>, save_mortalizesv X<save_mortalizesv>,
+save_nogv X<save_nogv>, save_op X<save_op>, save_padsv_and_mortalize
+X<save_padsv_and_mortalize>, save_pptr X<save_pptr>, save_pushi32ptr
+X<save_pushi32ptr>, save_pushptr X<save_pushptr>, save_pushptrptr
+X<save_pushptrptr>, save_re_context X<save_re_context>, save_scalar
+X<save_scalar>, save_set_svflags X<save_set_svflags>, save_shared_pvref
+X<save_shared_pvref>, save_sptr X<save_sptr>, save_svref X<save_svref>,
+save_vptr X<save_vptr>, savestack_grow X<savestack_grow>,
+savestack_grow_cnt X<savestack_grow_cnt>, scan_num X<scan_num>,
+scan_vstring X<scan_vstring>, seed X<seed>, set_context X<set_context>,
+set_numeric_local X<set_numeric_local>, set_numeric_radix
+X<set_numeric_radix>, set_numeric_standard X<set_numeric_standard>,
+share_hek X<share_hek>, si_dup X<si_dup>, ss_dup X<ss_dup>, stack_grow
+X<stack_grow>, start_subparse X<start_subparse>, str_to_version
+X<str_to_version>, sv_2iv X<sv_2iv>, sv_2pv X<sv_2pv>, sv_2uv X<sv_2uv>,
+sv_catpvf_mg_nocontext X<sv_catpvf_mg_nocontext>, sv_catpvf_nocontext
+X<sv_catpvf_nocontext>, sv_dup X<sv_dup>, sv_dup_inc X<sv_dup_inc>, sv_peek
+X<sv_peek>, sv_pvn_nomg X<sv_pvn_nomg>, sv_setpvf_mg_nocontext
+X<sv_setpvf_mg_nocontext>, sv_setpvf_nocontext X<sv_setpvf_nocontext>,
+sys_init X<sys_init>, sys_init3 X<sys_init3>, sys_intern_clear
+X<sys_intern_clear>, sys_intern_dup X<sys_intern_dup>, sys_intern_init
+X<sys_intern_init>, sys_term X<sys_term>, taint_env X<taint_env>,
+taint_proper X<taint_proper>, unlnk X<unlnk>, unsharepvn X<unsharepvn>,
+utf16_to_utf8 X<utf16_to_utf8>, utf16_to_utf8_reversed
+X<utf16_to_utf8_reversed>, uvuni_to_utf8 X<uvuni_to_utf8>, vdeb X<vdeb>,
+vform X<vform>, vload_module X<vload_module>, vnewSVpvf X<vnewSVpvf>,
+vwarner X<vwarner>, warn_nocontext X<warn_nocontext>, warner X<warner>,
+warner_nocontext X<warner_nocontext>, whichsig X<whichsig>, whichsig_pv
+X<whichsig_pv>, whichsig_pvn X<whichsig_pvn>, whichsig_sv X<whichsig_sv>
+
+=item AUTHORS
+
+=item SEE ALSO
+
+=back
+
+=head2 perlintern - autogenerated documentation of purely B<internal>
+		 Perl functions
+
+=over 4
+
+=item DESCRIPTION
+X<internal Perl functions> X<interpreter functions>
+
+=item Compile-time scope hooks
+
+BhkENTRY X<BhkENTRY>, BhkFLAGS X<BhkFLAGS>, CALL_BLOCK_HOOKS
+X<CALL_BLOCK_HOOKS>
+
+=item Custom Operators
+
+core_prototype X<core_prototype>
+
+=item CV Manipulation Functions
+
+docatch X<docatch>
+
+=item CV reference counts and CvOUTSIDE
+
+CvWEAKOUTSIDE X<CvWEAKOUTSIDE>
+
+=item Embedding Functions
+
+cv_dump X<cv_dump>, cv_forget_slab X<cv_forget_slab>, do_dump_pad
+X<do_dump_pad>, pad_alloc_name X<pad_alloc_name>, pad_block_start
+X<pad_block_start>, pad_check_dup X<pad_check_dup>, pad_findlex
+X<pad_findlex>, pad_fixup_inner_anons X<pad_fixup_inner_anons>, pad_free
+X<pad_free>, pad_leavemy X<pad_leavemy>, padlist_dup X<padlist_dup>,
+padname_dup X<padname_dup>, padnamelist_dup X<padnamelist_dup>, pad_push
+X<pad_push>, pad_reset X<pad_reset>, pad_swipe X<pad_swipe>
+
+=item GV Functions
+
+gv_try_downgrade X<gv_try_downgrade>
+
+=item Hash Manipulation Functions
+
+hv_ename_add X<hv_ename_add>, hv_ename_delete X<hv_ename_delete>,
+refcounted_he_chain_2hv X<refcounted_he_chain_2hv>, refcounted_he_fetch_pv
+X<refcounted_he_fetch_pv>, refcounted_he_fetch_pvn
+X<refcounted_he_fetch_pvn>, refcounted_he_fetch_pvs
+X<refcounted_he_fetch_pvs>, refcounted_he_fetch_sv
+X<refcounted_he_fetch_sv>, refcounted_he_free X<refcounted_he_free>,
+refcounted_he_inc X<refcounted_he_inc>, refcounted_he_new_pv
+X<refcounted_he_new_pv>, refcounted_he_new_pvn X<refcounted_he_new_pvn>,
+refcounted_he_new_pvs X<refcounted_he_new_pvs>, refcounted_he_new_sv
+X<refcounted_he_new_sv>
+
+=item IO Functions
+
+start_glob X<start_glob>
+
+=item Lexer interface
+
+validate_proto X<validate_proto>
+
+=item Magical Functions
+
+magic_clearhint X<magic_clearhint>, magic_clearhints X<magic_clearhints>,
+magic_methcall X<magic_methcall>, magic_sethint X<magic_sethint>,
+mg_localize X<mg_localize>
+
+=item Miscellaneous Functions
+
+free_c_backtrace X<free_c_backtrace>, get_c_backtrace X<get_c_backtrace>
+
+=item MRO Functions
+
+mro_get_linear_isa_dfs X<mro_get_linear_isa_dfs>, mro_isa_changed_in
+X<mro_isa_changed_in>, mro_package_moved X<mro_package_moved>
+
+=item Optree Manipulation Functions
+
+finalize_optree X<finalize_optree>
+
+=item Pad Data Structures
+
+CX_CURPAD_SAVE X<CX_CURPAD_SAVE>, CX_CURPAD_SV X<CX_CURPAD_SV>, PAD_BASE_SV
+X<PAD_BASE_SV>, PAD_CLONE_VARS X<PAD_CLONE_VARS>, PAD_COMPNAME_FLAGS
+X<PAD_COMPNAME_FLAGS>, PAD_COMPNAME_GEN X<PAD_COMPNAME_GEN>,
+PAD_COMPNAME_GEN_set X<PAD_COMPNAME_GEN_set>, PAD_COMPNAME_OURSTASH
+X<PAD_COMPNAME_OURSTASH>, PAD_COMPNAME_PV X<PAD_COMPNAME_PV>,
+PAD_COMPNAME_TYPE X<PAD_COMPNAME_TYPE>, PadnameIsOUR X<PadnameIsOUR>,
+PadnameIsSTATE X<PadnameIsSTATE>, PadnameOURSTASH X<PadnameOURSTASH>,
+PadnameOUTER X<PadnameOUTER>, PadnameTYPE X<PadnameTYPE>, PAD_RESTORE_LOCAL
+X<PAD_RESTORE_LOCAL>, PAD_SAVE_LOCAL X<PAD_SAVE_LOCAL>, PAD_SAVE_SETNULLPAD
+X<PAD_SAVE_SETNULLPAD>, PAD_SETSV X<PAD_SETSV>, PAD_SET_CUR X<PAD_SET_CUR>,
+PAD_SET_CUR_NOSAVE X<PAD_SET_CUR_NOSAVE>, PAD_SV X<PAD_SV>, PAD_SVl
+X<PAD_SVl>, SAVECLEARSV X<SAVECLEARSV>, SAVECOMPPAD X<SAVECOMPPAD>,
+SAVEPADSV X<SAVEPADSV>
+
+=item Per-Interpreter Variables
+
+PL_DBsingle X<PL_DBsingle>, PL_DBsub X<PL_DBsub>, PL_DBtrace X<PL_DBtrace>,
+PL_dowarn X<PL_dowarn>, PL_last_in_gv X<PL_last_in_gv>, PL_ofsgv
+X<PL_ofsgv>, PL_rs X<PL_rs>
+
+=item Stack Manipulation Macros
+
+djSP X<djSP>, LVRET X<LVRET>
+
+=item SV-Body Allocation
+
+sv_2num X<sv_2num>, sv_copypv X<sv_copypv>
+
+=item SV Manipulation Functions
+
+sv_add_arena X<sv_add_arena>, sv_clean_all X<sv_clean_all>, sv_clean_objs
+X<sv_clean_objs>, sv_free_arenas X<sv_free_arenas>, SvTHINKFIRST
+X<SvTHINKFIRST>
+
+=item Unicode Support
+
+find_uninit_var X<find_uninit_var>, report_uninit X<report_uninit>
+
+=item Undocumented functions
+
+PerlIO_restore_errno X<PerlIO_restore_errno>, PerlIO_save_errno
+X<PerlIO_save_errno>, Slab_Alloc X<Slab_Alloc>, Slab_Free X<Slab_Free>,
+Slab_to_ro X<Slab_to_ro>, Slab_to_rw X<Slab_to_rw>, _add_range_to_invlist
+X<_add_range_to_invlist>, _core_swash_init X<_core_swash_init>,
+_get_encoding X<_get_encoding>, _get_swash_invlist X<_get_swash_invlist>,
+_invlistEQ X<_invlistEQ>, _invlist_array_init X<_invlist_array_init>,
+_invlist_contains_cp X<_invlist_contains_cp>, _invlist_dump
+X<_invlist_dump>, _invlist_intersection X<_invlist_intersection>,
+_invlist_intersection_maybe_complement_2nd
+X<_invlist_intersection_maybe_complement_2nd>, _invlist_invert
+X<_invlist_invert>, _invlist_len X<_invlist_len>, _invlist_populate_swatch
+X<_invlist_populate_swatch>, _invlist_search X<_invlist_search>,
+_invlist_subtract X<_invlist_subtract>, _invlist_union X<_invlist_union>,
+_invlist_union_maybe_complement_2nd X<_invlist_union_maybe_complement_2nd>,
+_load_PL_utf8_foldclosures X<_load_PL_utf8_foldclosures>, _new_invlist
+X<_new_invlist>, _setup_canned_invlist X<_setup_canned_invlist>,
+_swash_inversion_hash X<_swash_inversion_hash>, _swash_to_invlist
+X<_swash_to_invlist>, _to_fold_latin1 X<_to_fold_latin1>,
+_to_upper_title_latin1 X<_to_upper_title_latin1>, _warn_problematic_locale
+X<_warn_problematic_locale>, add_cp_to_invlist X<add_cp_to_invlist>,
+alloc_maybe_populate_EXACT X<alloc_maybe_populate_EXACT>, allocmy
+X<allocmy>, amagic_is_enabled X<amagic_is_enabled>, apply X<apply>,
+av_extend_guts X<av_extend_guts>, av_reify X<av_reify>, bind_match
+X<bind_match>, boot_core_PerlIO X<boot_core_PerlIO>, boot_core_UNIVERSAL
+X<boot_core_UNIVERSAL>, boot_core_mro X<boot_core_mro>, cando X<cando>,
+check_utf8_print X<check_utf8_print>, ck_anoncode X<ck_anoncode>,
+ck_backtick X<ck_backtick>, ck_bitop X<ck_bitop>, ck_cmp X<ck_cmp>,
+ck_concat X<ck_concat>, ck_defined X<ck_defined>, ck_delete X<ck_delete>,
+ck_each X<ck_each>, ck_entersub_args_core X<ck_entersub_args_core>, ck_eof
+X<ck_eof>, ck_eval X<ck_eval>, ck_exec X<ck_exec>, ck_exists X<ck_exists>,
+ck_ftst X<ck_ftst>, ck_fun X<ck_fun>, ck_glob X<ck_glob>, ck_grep
+X<ck_grep>, ck_index X<ck_index>, ck_join X<ck_join>, ck_length
+X<ck_length>, ck_lfun X<ck_lfun>, ck_listiob X<ck_listiob>, ck_match
+X<ck_match>, ck_method X<ck_method>, ck_null X<ck_null>, ck_open
+X<ck_open>, ck_prototype X<ck_prototype>, ck_readline X<ck_readline>,
+ck_refassign X<ck_refassign>, ck_repeat X<ck_repeat>, ck_require
+X<ck_require>, ck_return X<ck_return>, ck_rfun X<ck_rfun>, ck_rvconst
+X<ck_rvconst>, ck_sassign X<ck_sassign>, ck_select X<ck_select>, ck_shift
+X<ck_shift>, ck_smartmatch X<ck_smartmatch>, ck_sort X<ck_sort>, ck_spair
+X<ck_spair>, ck_split X<ck_split>, ck_stringify X<ck_stringify>, ck_subr
+X<ck_subr>, ck_substr X<ck_substr>, ck_svconst X<ck_svconst>, ck_tell
+X<ck_tell>, ck_trunc X<ck_trunc>, closest_cop X<closest_cop>,
+compute_EXACTish X<compute_EXACTish>, coresub_op X<coresub_op>,
+create_eval_scope X<create_eval_scope>, croak_no_mem X<croak_no_mem>,
+croak_popstack X<croak_popstack>, current_re_engine X<current_re_engine>,
+custom_op_get_field X<custom_op_get_field>, cv_ckproto_len_flags
+X<cv_ckproto_len_flags>, cv_clone_into X<cv_clone_into>, cv_const_sv_or_av
+X<cv_const_sv_or_av>, cv_undef_flags X<cv_undef_flags>, cvgv_from_hek
+X<cvgv_from_hek>, cvgv_set X<cvgv_set>, cvstash_set X<cvstash_set>,
+deb_stack_all X<deb_stack_all>, defelem_target X<defelem_target>,
+delete_eval_scope X<delete_eval_scope>, die_unwind X<die_unwind>, do_aexec
+X<do_aexec>, do_aexec5 X<do_aexec5>, do_eof X<do_eof>, do_exec X<do_exec>,
+do_exec3 X<do_exec3>, do_execfree X<do_execfree>, do_ipcctl X<do_ipcctl>,
+do_ipcget X<do_ipcget>, do_msgrcv X<do_msgrcv>, do_msgsnd X<do_msgsnd>,
+do_ncmp X<do_ncmp>, do_open6 X<do_open6>, do_open_raw X<do_open_raw>,
+do_print X<do_print>, do_readline X<do_readline>, do_seek X<do_seek>,
+do_semop X<do_semop>, do_shmio X<do_shmio>, do_sysseek X<do_sysseek>,
+do_tell X<do_tell>, do_trans X<do_trans>, do_vecget X<do_vecget>, do_vecset
+X<do_vecset>, do_vop X<do_vop>, dofile X<dofile>, drand48_init_r
+X<drand48_init_r>, drand48_r X<drand48_r>, dtrace_probe_call
+X<dtrace_probe_call>, dtrace_probe_load X<dtrace_probe_load>,
+dtrace_probe_op X<dtrace_probe_op>, dtrace_probe_phase
+X<dtrace_probe_phase>, dump_all_perl X<dump_all_perl>, dump_packsubs_perl
+X<dump_packsubs_perl>, dump_sub_perl X<dump_sub_perl>, dump_sv_child
+X<dump_sv_child>, emulate_cop_io X<emulate_cop_io>, feature_is_enabled
+X<feature_is_enabled>, find_lexical_cv X<find_lexical_cv>, find_runcv_where
+X<find_runcv_where>, find_script X<find_script>, form_short_octal_warning
+X<form_short_octal_warning>, free_tied_hv_pool X<free_tied_hv_pool>,
+get_and_check_backslash_N_name X<get_and_check_backslash_N_name>,
+get_db_sub X<get_db_sub>, get_debug_opts X<get_debug_opts>, get_hash_seed
+X<get_hash_seed>, get_invlist_iter_addr X<get_invlist_iter_addr>,
+get_invlist_offset_addr X<get_invlist_offset_addr>,
+get_invlist_previous_index_addr X<get_invlist_previous_index_addr>,
+get_no_modify X<get_no_modify>, get_opargs X<get_opargs>, get_re_arg
+X<get_re_arg>, getenv_len X<getenv_len>, grok_atoUV X<grok_atoUV>,
+grok_bslash_c X<grok_bslash_c>, grok_bslash_o X<grok_bslash_o>,
+grok_bslash_x X<grok_bslash_x>, gv_fetchmeth_internal
+X<gv_fetchmeth_internal>, gv_override X<gv_override>, gv_setref
+X<gv_setref>, gv_stashpvn_internal X<gv_stashpvn_internal>,
+gv_stashsvpvn_cached X<gv_stashsvpvn_cached>, handle_named_backref
+X<handle_named_backref>, hfree_next_entry X<hfree_next_entry>,
+hv_backreferences_p X<hv_backreferences_p>, hv_kill_backrefs
+X<hv_kill_backrefs>, hv_placeholders_p X<hv_placeholders_p>, hv_undef_flags
+X<hv_undef_flags>, init_argv_symbols X<init_argv_symbols>, init_constants
+X<init_constants>, init_dbargs X<init_dbargs>, init_debugger
+X<init_debugger>, invert X<invert>, invlist_array X<invlist_array>,
+invlist_clear X<invlist_clear>, invlist_clone X<invlist_clone>,
+invlist_highest X<invlist_highest>, invlist_is_iterating
+X<invlist_is_iterating>, invlist_iterfinish X<invlist_iterfinish>,
+invlist_iterinit X<invlist_iterinit>, invlist_max X<invlist_max>,
+invlist_previous_index X<invlist_previous_index>, invlist_set_len
+X<invlist_set_len>, invlist_set_previous_index
+X<invlist_set_previous_index>, invlist_trim X<invlist_trim>, io_close
+X<io_close>, isGCB X<isGCB>, is_utf8_common X<is_utf8_common>, isinfnansv
+X<isinfnansv>, jmaybe X<jmaybe>, keyword X<keyword>,
+keyword_plugin_standard X<keyword_plugin_standard>, list X<list>, localize
+X<localize>, magic_clear_all_env X<magic_clear_all_env>,
+magic_cleararylen_p X<magic_cleararylen_p>, magic_clearenv
+X<magic_clearenv>, magic_clearisa X<magic_clearisa>, magic_clearpack
+X<magic_clearpack>, magic_clearsig X<magic_clearsig>, magic_copycallchecker
+X<magic_copycallchecker>, magic_existspack X<magic_existspack>,
+magic_freearylen_p X<magic_freearylen_p>, magic_freeovrld
+X<magic_freeovrld>, magic_get X<magic_get>, magic_getarylen
+X<magic_getarylen>, magic_getdebugvar X<magic_getdebugvar>,
+magic_getdefelem X<magic_getdefelem>, magic_getnkeys X<magic_getnkeys>,
+magic_getpack X<magic_getpack>, magic_getpos X<magic_getpos>, magic_getsig
+X<magic_getsig>, magic_getsubstr X<magic_getsubstr>, magic_gettaint
+X<magic_gettaint>, magic_getuvar X<magic_getuvar>, magic_getvec
+X<magic_getvec>, magic_killbackrefs X<magic_killbackrefs>, magic_nextpack
+X<magic_nextpack>, magic_regdata_cnt X<magic_regdata_cnt>,
+magic_regdatum_get X<magic_regdatum_get>, magic_regdatum_set
+X<magic_regdatum_set>, magic_scalarpack X<magic_scalarpack>, magic_set
+X<magic_set>, magic_set_all_env X<magic_set_all_env>, magic_setarylen
+X<magic_setarylen>, magic_setcollxfrm X<magic_setcollxfrm>, magic_setdbline
+X<magic_setdbline>, magic_setdebugvar X<magic_setdebugvar>,
+magic_setdefelem X<magic_setdefelem>, magic_setenv X<magic_setenv>,
+magic_setisa X<magic_setisa>, magic_setlvref X<magic_setlvref>,
+magic_setmglob X<magic_setmglob>, magic_setnkeys X<magic_setnkeys>,
+magic_setpack X<magic_setpack>, magic_setpos X<magic_setpos>,
+magic_setregexp X<magic_setregexp>, magic_setsig X<magic_setsig>,
+magic_setsubstr X<magic_setsubstr>, magic_settaint X<magic_settaint>,
+magic_setutf8 X<magic_setutf8>, magic_setuvar X<magic_setuvar>,
+magic_setvec X<magic_setvec>, magic_sizepack X<magic_sizepack>,
+magic_wipepack X<magic_wipepack>, malloc_good_size X<malloc_good_size>,
+malloced_size X<malloced_size>, mem_collxfrm X<mem_collxfrm>, mem_log_alloc
+X<mem_log_alloc>, mem_log_free X<mem_log_free>, mem_log_realloc
+X<mem_log_realloc>, mg_find_mglob X<mg_find_mglob>, mode_from_discipline
+X<mode_from_discipline>, more_bodies X<more_bodies>, mro_meta_dup
+X<mro_meta_dup>, mro_meta_init X<mro_meta_init>, multideref_stringify
+X<multideref_stringify>, my_attrs X<my_attrs>, my_clearenv X<my_clearenv>,
+my_lstat_flags X<my_lstat_flags>, my_stat_flags X<my_stat_flags>, my_unexec
+X<my_unexec>, newATTRSUB_x X<newATTRSUB_x>, newGP X<newGP>,
+newMETHOP_internal X<newMETHOP_internal>, newSTUB X<newSTUB>,
+newSVavdefelem X<newSVavdefelem>, newXS_deffile X<newXS_deffile>,
+newXS_len_flags X<newXS_len_flags>, new_warnings_bitfield
+X<new_warnings_bitfield>, nextargv X<nextargv>, noperl_die X<noperl_die>,
+oopsAV X<oopsAV>, oopsHV X<oopsHV>, op_clear X<op_clear>, op_integerize
+X<op_integerize>, op_lvalue_flags X<op_lvalue_flags>, op_refcnt_dec
+X<op_refcnt_dec>, op_refcnt_inc X<op_refcnt_inc>, op_relocate_sv
+X<op_relocate_sv>, op_std_init X<op_std_init>, op_unscope X<op_unscope>,
+opmethod_stash X<opmethod_stash>, opslab_force_free X<opslab_force_free>,
+opslab_free X<opslab_free>, opslab_free_nopad X<opslab_free_nopad>, package
+X<package>, package_version X<package_version>, pad_add_weakref
+X<pad_add_weakref>, padlist_store X<padlist_store>, padname_free
+X<padname_free>, padnamelist_free X<padnamelist_free>, parse_subsignature
+X<parse_subsignature>, parse_unicode_opts X<parse_unicode_opts>,
+parser_free X<parser_free>, parser_free_nexttoke_ops
+X<parser_free_nexttoke_ops>, path_is_searchable X<path_is_searchable>, peep
+X<peep>, pmruntime X<pmruntime>, populate_isa X<populate_isa>, ptr_hash
+X<ptr_hash>, qerror X<qerror>, re_exec_indentf X<re_exec_indentf>,
+re_indentf X<re_indentf>, re_op_compile X<re_op_compile>, re_printf
+X<re_printf>, reg_named_buff X<reg_named_buff>, reg_named_buff_iter
+X<reg_named_buff_iter>, reg_numbered_buff_fetch X<reg_numbered_buff_fetch>,
+reg_numbered_buff_length X<reg_numbered_buff_length>,
+reg_numbered_buff_store X<reg_numbered_buff_store>, reg_qr_package
+X<reg_qr_package>, reg_skipcomment X<reg_skipcomment>, reg_temp_copy
+X<reg_temp_copy>, regcurly X<regcurly>, regprop X<regprop>, report_evil_fh
+X<report_evil_fh>, report_redefined_cv X<report_redefined_cv>,
+report_wrongway_fh X<report_wrongway_fh>, rpeep X<rpeep>, rsignal_restore
+X<rsignal_restore>, rsignal_save X<rsignal_save>, rxres_save X<rxres_save>,
+same_dirent X<same_dirent>, save_strlen X<save_strlen>, sawparens
+X<sawparens>, scalar X<scalar>, scalarvoid X<scalarvoid>, set_caret_X
+X<set_caret_X>, set_padlist X<set_padlist>, should_warn_nl
+X<should_warn_nl>, sighandler X<sighandler>, softref2xv X<softref2xv>,
+ssc_add_range X<ssc_add_range>, ssc_clear_locale X<ssc_clear_locale>,
+ssc_cp_and X<ssc_cp_and>, ssc_intersection X<ssc_intersection>, ssc_union
+X<ssc_union>, sub_crush_depth X<sub_crush_depth>, sv_add_backref
+X<sv_add_backref>, sv_buf_to_ro X<sv_buf_to_ro>, sv_del_backref
+X<sv_del_backref>, sv_free2 X<sv_free2>, sv_kill_backrefs
+X<sv_kill_backrefs>, sv_len_utf8_nomg X<sv_len_utf8_nomg>,
+sv_magicext_mglob X<sv_magicext_mglob>, sv_mortalcopy_flags
+X<sv_mortalcopy_flags>, sv_only_taint_gmagic X<sv_only_taint_gmagic>,
+sv_or_pv_pos_u2b X<sv_or_pv_pos_u2b>, sv_resetpvn X<sv_resetpvn>, sv_sethek
+X<sv_sethek>, sv_setsv_cow X<sv_setsv_cow>, sv_unglob X<sv_unglob>,
+tied_method X<tied_method>, tmps_grow_p X<tmps_grow_p>,
+translate_substr_offsets X<translate_substr_offsets>, try_amagic_bin
+X<try_amagic_bin>, try_amagic_un X<try_amagic_un>, unshare_hek
+X<unshare_hek>, utilize X<utilize>, varname X<varname>, vivify_defelem
+X<vivify_defelem>, vivify_ref X<vivify_ref>, wait4pid X<wait4pid>,
+was_lvalue_sub X<was_lvalue_sub>, watch X<watch>,
+win32_croak_not_implemented X<win32_croak_not_implemented>, write_to_stderr
+X<write_to_stderr>, xs_boot_epilog X<xs_boot_epilog>, xs_handshake
+X<xs_handshake>, yyerror X<yyerror>, yyerror_pv X<yyerror_pv>, yyerror_pvn
+X<yyerror_pvn>, yylex X<yylex>, yyparse X<yyparse>, yyunlex X<yyunlex>
+
+=item AUTHORS
+
+=item SEE ALSO
+
+=back
+
+=head2 perliol - C API for Perl's implementation of IO in Layers.
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item History and Background
+
+=item Basic Structure
+
+=item Layers vs Disciplines
+
+=item Data Structures
+
+=item Functions and Attributes
+
+=item Per-instance Data
+
+=item Layers in action.
+
+=item Per-instance flag bits
+
+PERLIO_F_EOF, PERLIO_F_CANWRITE,  PERLIO_F_CANREAD, PERLIO_F_ERROR,
+PERLIO_F_TRUNCATE, PERLIO_F_APPEND, PERLIO_F_CRLF, PERLIO_F_UTF8,
+PERLIO_F_UNBUF, PERLIO_F_WRBUF, PERLIO_F_RDBUF, PERLIO_F_LINEBUF,
+PERLIO_F_TEMP, PERLIO_F_OPEN, PERLIO_F_FASTGETS
+
+=item Methods in Detail
+
+fsize, name, size, kind, PERLIO_K_BUFFERED, PERLIO_K_RAW, PERLIO_K_CANCRLF,
+PERLIO_K_FASTGETS, PERLIO_K_MULTIARG, Pushed, Popped, Open, Binmode,
+Getarg, Fileno, Dup, Read, Write, Seek, Tell, Close, Flush, Fill, Eof,
+Error,	Clearerr, Setlinebuf, Get_base, Get_bufsiz, Get_ptr, Get_cnt,
+Set_ptrcnt
+
+=item Utilities
+
+=item Implementing PerlIO Layers
+
+C implementations, Perl implementations
+
+=item Core Layers
+
+"unix", "perlio", "stdio", "crlf", "mmap", "pending", "raw", "utf8"
+
+=item Extension Layers
+
+":encoding", ":scalar", ":via"
+
+=back
+
+=item TODO
+
+=back
+
+=head2 perlapio - perl's IO abstraction interface.
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+1. USE_STDIO, 2. USE_PERLIO, B<PerlIO_stdin()>, B<PerlIO_stdout()>,
+B<PerlIO_stderr()>, B<PerlIO_open(path, mode)>, B<PerlIO_fdopen(fd,mode)>,
+B<PerlIO_reopen(path,mode,f)>, B<PerlIO_printf(f,fmt,...)>,
+B<PerlIO_vprintf(f,fmt,a)>, B<PerlIO_stdoutf(fmt,...)>,
+B<PerlIO_read(f,buf,count)>, B<PerlIO_write(f,buf,count)>,
+B<PerlIO_close(f)>, B<PerlIO_puts(f,s)>, B<PerlIO_putc(f,c)>,
+B<PerlIO_ungetc(f,c)>, B<PerlIO_getc(f)>, B<PerlIO_eof(f)>,
+B<PerlIO_error(f)>, B<PerlIO_fileno(f)>, B<PerlIO_clearerr(f)>,
+B<PerlIO_flush(f)>, B<PerlIO_seek(f,offset,whence)>, B<PerlIO_tell(f)>,
+B<PerlIO_getpos(f,p)>, B<PerlIO_setpos(f,p)>, B<PerlIO_rewind(f)>,
+B<PerlIO_tmpfile()>, B<PerlIO_setlinebuf(f)>
+
+=over 4
+
+=item Co-existence with stdio
+
+B<PerlIO_importFILE(f,mode)>, B<PerlIO_exportFILE(f,mode)>,
+B<PerlIO_releaseFILE(p,f)>, B<PerlIO_findFILE(f)>
+
+=item "Fast gets" Functions
+
+B<PerlIO_fast_gets(f)>, B<PerlIO_has_cntptr(f)>, B<PerlIO_get_cnt(f)>,
+B<PerlIO_get_ptr(f)>, B<PerlIO_set_ptrcnt(f,p,c)>, B<PerlIO_canset_cnt(f)>,
+B<PerlIO_set_cnt(f,c)>, B<PerlIO_has_base(f)>, B<PerlIO_get_base(f)>,
+B<PerlIO_get_bufsiz(f)>
+
+=item Other Functions
+
+PerlIO_apply_layers(f,mode,layers), PerlIO_binmode(f,ptype,imode,layers),
+'E<lt>' read, 'E<gt>' write, '+' read/write, PerlIO_debug(fmt,...)
+
+=back
+
+=back
+
+=head2 perlhack - How to hack on Perl
+
+=over 4
+
+=item DESCRIPTION
+
+=item SUPER QUICK PATCH GUIDE
+
+Check out the source repository, Ensure you're following the latest advice,
+Make your change, Test your change, Commit your change, Send your change to
+perlbug, Thank you, Next time
+
+=item BUG REPORTING
+
+=item PERL 5 PORTERS
+
+=over 4
+
+=item perl-changes mailing list
+
+=item #p5p on IRC
+
+=back
+
+=item GETTING THE PERL SOURCE
+
+=over 4
+
+=item Read access via Git
+
+=item Read access via the web
+
+=item Read access via rsync
+
+=item Write access via git
+
+=back
+
+=item PATCHING PERL
+
+=over 4
+
+=item Submitting patches
+
+=item Getting your patch accepted
+
+Why, What, How
+
+=item Patching a core module
+
+=item Updating perldelta
+
+=item What makes for a good patch?
+
+=back
+
+=item TESTING
+
+F<t/base>, F<t/comp> and F<t/opbasic>, F<t/cmd>, F<t/run>, F<t/io> and
+F<t/op>, Everything else
+
+=over 4
+
+=item Special C<make test> targets
+
+test_porting, minitest, test.valgrind check.valgrind, test_harness,
+test-notty test_notty
+
+=item Parallel tests
+
+=item Running tests by hand
+
+=item Using F<t/harness> for testing
+
+-v, -torture, -re=PATTERN, -re LIST OF PATTERNS, PERL_CORE=1,
+PERL_DESTRUCT_LEVEL=2, PERL, PERL_SKIP_TTY_TEST, PERL_TEST_Net_Ping,
+PERL_TEST_NOVREXX, PERL_TEST_NUMCONVERTS, PERL_TEST_MEMORY
+
+=item Performance testing
+
+=back
+
+=item MORE READING FOR GUTS HACKERS
+
+L<perlsource>, L<perlinterp>, L<perlhacktut>, L<perlhacktips>, L<perlguts>,
+L<perlxstut> and L<perlxs>, L<perlapi>, F<Porting/pumpkin.pod>
+
+=item CPAN TESTERS AND PERL SMOKERS
+
+=item WHAT NEXT?
+
+=over 4
+
+=item "The Road goes ever on and on, down from the door where it began."
+
+=item Metaphoric Quotations
+
+=back
+
+=item AUTHOR
+
+=back
+
+=head2 perlsource - A guide to the Perl source tree
+
+=over 4
+
+=item DESCRIPTION
+
+=item FINDING YOUR WAY AROUND
+
+=over 4
+
+=item C code
+
+=item Core modules
+
+F<lib/>, F<ext/>, F<dist/>, F<cpan/>
+
+=item Tests
+
+Module tests, F<t/base/>, F<t/cmd/>, F<t/comp/>, F<t/io/>, F<t/mro/>,
+F<t/op/>, F<t/opbasic/>, F<t/re/>, F<t/run/>, F<t/uni/>, F<t/win32/>,
+F<t/porting/>, F<t/lib/>
+
+=item Documentation
+
+=item Hacking tools and documentation
+
+F<check*>, F<Maintainers>, F<Maintainers.pl>, and F<Maintainers.pm>,
+F<podtidy>
+
+=item Build system
+
+=item F<AUTHORS>
+
+=item F<MANIFEST>
+
+=back
+
+=back
+
+=head2 perlinterp - An overview of the Perl interpreter
+
+=over 4
+
+=item DESCRIPTION
+
+=item ELEMENTS OF THE INTERPRETER
+
+=over 4
+
+=item Startup
+
+=item Parsing
+
+=item Optimization
+
+=item Running
+
+=item Exception handing
+
+=item INTERNAL VARIABLE TYPES
+
+=back
+
+=item OP TREES
+
+=item STACKS
+
+=over 4
+
+=item Argument stack
+
+=item Mark stack
+
+=item Save stack
+
+=back
+
+=item MILLIONS OF MACROS
+
+=item FURTHER READING
+
+=back
+
+=head2 perlhacktut - Walk through the creation of a simple C code patch
+
+=over 4
+
+=item DESCRIPTION
+
+=item EXAMPLE OF A SIMPLE PATCH
+
+=over 4
+
+=item Writing the patch
+
+=item Testing the patch
+
+=item Documenting the patch
+
+=item Submit
+
+=back
+
+=item AUTHOR
+
+=back
+
+=head2 perlhacktips - Tips for Perl core C code hacking
+
+=over 4
+
+=item DESCRIPTION
+
+=item COMMON PROBLEMS
+
+=over 4
+
+=item Perl environment problems
+
+=item Portability problems
+
+=item Problematic System Interfaces
+
+=item Security problems
+
+=back
+
+=item DEBUGGING
+
+=over 4
+
+=item Poking at Perl
+
+=item Using a source-level debugger
+
+run [args], break function_name, break source.c:xxx, step, next, continue,
+finish, 'enter', ptype, print
+
+=item gdb macro support
+
+=item Dumping Perl Data Structures
+
+=item Using gdb to look at specific parts of a program
+
+=item Using gdb to look at what the parser/lexer are doing
+
+=back
+
+=item SOURCE CODE STATIC ANALYSIS
+
+=over 4
+
+=item lint, splint
+
+=item Coverity
+
+=item HP-UX cadvise (Code Advisor)
+
+=item cpd (cut-and-paste detector)
+
+=item gcc warnings
+
+=item Warnings of other C compilers
+
+=back
+
+=item MEMORY DEBUGGERS
+
+=over 4
+
+=item valgrind
+
+=item AddressSanitizer
+
+-Dcc=clang, -Accflags=-faddress-sanitizer, -Aldflags=-faddress-sanitizer,
+-Alddlflags=-shared\ -faddress-sanitizer
+
+=back
+
+=item PROFILING
+
+=over 4
+
+=item Gprof Profiling
+
+-a, -b, -e routine, -f routine, -s, -z
+
+=item GCC gcov Profiling
+
+=back
+
+=item MISCELLANEOUS TRICKS
+
+=over 4
+
+=item PERL_DESTRUCT_LEVEL
+
+=item PERL_MEM_LOG
+
+=item DDD over gdb
+
+=item C backtrace
+
+Linux, OS X, get_c_backtrace, free_c_backtrace, get_c_backtrace_dump,
+dump_c_backtrace
+
+=item Poison
+
+=item Read-only optrees
+
+=item When is a bool not a bool?
+
+=item The .i Targets
+
+=back
+
+=item AUTHOR
+
+=back
+
+=head2 perlpolicy - Various and sundry policies and commitments related to
+the Perl core
+
+=over 4
+
+=item DESCRIPTION
+
+=item GOVERNANCE
+
+=over 4
+
+=item Perl 5 Porters
+
+=back
+
+=item MAINTENANCE AND SUPPORT
+
+=item BACKWARD COMPATIBILITY AND DEPRECATION
+
+=over 4
+
+=item Terminology
+
+experimental, deprecated, discouraged, removed
+
+=back
+
+=item MAINTENANCE BRANCHES
+
+=over 4
+
+=item Getting changes into a maint branch
+
+=back
+
+=item CONTRIBUTED MODULES
+
+=over 4
+
+=item A Social Contract about Artistic Control
+
+=back
+
+=item DOCUMENTATION
+
+=item STANDARDS OF CONDUCT
+
+=item CREDITS
+
+=back
+
+=head2 perlgit - Detailed information about git and the Perl repository
+
+=over 4
+
+=item DESCRIPTION
+
+=item CLONING THE REPOSITORY
+
+=item WORKING WITH THE REPOSITORY
+
+=over 4
+
+=item Finding out your status
+
+=item Patch workflow
+
+=item Committing your changes
+
+=item Sending patch emails
+
+=item A note on derived files
+
+=item Cleaning a working directory
+
+=item Bisecting
+
+=item Topic branches and rewriting history
+
+=item Grafts
+
+=back
+
+=item WRITE ACCESS TO THE GIT REPOSITORY
+
+=over 4
+
+=item Accepting a patch
+
+=item Committing to blead
+
+=item On merging and rebasing
+
+=item Committing to maintenance versions
+
+=item Merging from a branch via GitHub
+
+=item Using a smoke-me branch to test changes
+
+=item A note on camel and dromedary
+
+=back
+
+=back
+
+=head2 perlbook - Books about and related to Perl
+
+=over 4
+
+=item DESCRIPTION
+
+=over 4
+
+=item The most popular books
+
+I<Programming Perl> (the "Camel Book"):, I<The Perl Cookbook> (the "Ram
+Book"):, I<Learning Perl>  (the "Llama Book"), I<Intermediate Perl> (the
+"Alpaca Book")
+
+=item References
+
+I<Perl 5 Pocket Reference>, I<Perl Debugger Pocket Reference>, I<Regular
+Expression Pocket Reference>
+
+=item Tutorials
+
+I<Beginning Perl>, I<Learning Perl> (the "Llama Book"), I<Intermediate
+Perl> (the "Alpaca Book"), I<Mastering Perl>, I<Effective Perl Programming>
+
+=item Task-Oriented
+
+I<Writing Perl Modules for CPAN>, I<The Perl Cookbook>, I<Automating System
+Administration with Perl>, I<Real World SQL Server Administration with
+Perl>
+
+=item Special Topics
+
+I<Regular Expressions Cookbook>, I<Programming the Perl DBI>, I<Perl Best
+Practices>, I<Higher-Order Perl>, I<Mastering Regular Expressions>,
+I<Network Programming with Perl>, I<Perl Template Toolkit>, I<Object
+Oriented Perl>, I<Data Munging with Perl>, I<Mastering Perl/Tk>,
+I<Extending and Embedding Perl>, I<Pro Perl Debugging>
+
+=item Free (as in beer) books
+
+=item Other interesting, non-Perl books
+
+I<Programming Pearls>, I<More Programming Pearls>
+
+=item A note on freshness
+
+=item Get your book listed
+
+=back
+
+=back
+
+=head2 perlcommunity - a brief overview of the Perl community
+
+=over 4
+
+=item DESCRIPTION
+
+=over 4
+
+=item Where to Find the Community
+
+=item Mailing Lists and Newsgroups
+
+=item IRC
+
+=item Websites
+
+L<http://perl.com/>, L<http://blogs.perl.org/>, L<http://perlsphere.net/>,
+L<http://perlweekly.com/>, L<http://use.perl.org/>,
+L<http://www.perlmonks.org/>, L<http://stackoverflow.com/>,
+L<http://prepan.org/>
+
+=item User Groups
+
+=item Workshops
+
+=item Hackathons
+
+=item Conventions
+
+=item Calendar of Perl Events
+
+=back
+
+=item AUTHOR
+
+=back
+
+=head2 perldoc - Look up Perl documentation in Pod format.
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item OPTIONS
+
+B<-h>, B<-D>, B<-t>, B<-u>, B<-m> I<module>, B<-l>, B<-F>, B<-f>
+I<perlfunc>, B<-q> I<perlfaq-search-regexp>, B<-a> I<perlapifunc>, B<-v>
+I<perlvar>, B<-T>, B<-d> I<destination-filename>, B<-o>
+I<output-formatname>, B<-M> I<module-name>, B<-w> I<option:value> or B<-w>
+I<option>, B<-X>, B<-L> I<language_code>,
+B<PageName|ModuleName|ProgramName|URL>, B<-n> I<some-formatter>, B<-r>,
+B<-i>, B<-V>
+
+=item SECURITY
+
+=item ENVIRONMENT
+
+=item CHANGES
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=back
+
+=head2 perlhist - the Perl history records
+
+=over 4
+
+=item DESCRIPTION
+
+=item INTRODUCTION
+
+=item THE KEEPERS OF THE PUMPKIN
+
+=over 4
+
+=item PUMPKIN?
+
+=back
+
+=item THE RECORDS
+
+=over 4
+
+=item SELECTED RELEASE SIZES
+
+=item SELECTED PATCH SIZES
+
+=back
+
+=item THE KEEPERS OF THE RECORDS
+
+=back
+
+=head2 perldelta - what is new for perl v5.24.1
+
+=over 4
+
+=item DESCRIPTION
+
+=item Security
+
+=over 4
+
+=item B<-Di> switch is now required for PerlIO debugging output
+
+=item Core modules and tools no longer search F<"."> for optional modules
+
+=back
+
+=item Incompatible Changes
+
+=item Modules and Pragmata
+
+=over 4
+
+=item Updated Modules and Pragmata
+
+=back
+
+=item Documentation
+
+=over 4
+
+=item Changes to Existing Documentation
+
+=back
+
+=item Testing
+
+=item Selected Bug Fixes
+
+=item Acknowledgements
+
+=item Reporting Bugs
+
+=item SEE ALSO
+
+=back
+
+=head2 perl5241delta, perldelta - what is new for perl v5.24.1
+
+=over 4
+
+=item DESCRIPTION
+
+=item Security
+
+=over 4
+
+=item B<-Di> switch is now required for PerlIO debugging output
+
+=item Core modules and tools no longer search F<"."> for optional modules
+
+=back
+
+=item Incompatible Changes
+
+=item Modules and Pragmata
+
+=over 4
+
+=item Updated Modules and Pragmata
+
+=back
+
+=item Documentation
+
+=over 4
+
+=item Changes to Existing Documentation
+
+=back
+
+=item Testing
+
+=item Selected Bug Fixes
+
+=item Acknowledgements
+
+=item Reporting Bugs
+
+=item SEE ALSO
+
+=back
+
+=head2 perl5240delta - what is new for perl v5.24.0
+
+=over 4
+
+=item DESCRIPTION
+
+=item Core Enhancements
+
+=over 4
+
+=item Postfix dereferencing is no longer experimental
+
+=item Unicode 8.0 is now supported
+
+=item perl will now croak when closing an in-place output file fails
+
+=item New C<\b{lb}> boundary in regular expressions
+
+=item C<qr/(?[ ])/> now works in UTF-8 locales
+
+=item Integer shift (C<< << >> and C<< >> >>) now more explicitly defined
+
+=item printf and sprintf now allow reordered precision arguments
+
+=item More fields provided to C<sigaction> callback with C<SA_SIGINFO>
+
+=item Hashbang redirection to Perl 6
+
+=back
+
+=item Security
+
+=over 4
+
+=item Set proper umask before calling C<mkstemp(3)>
+
+=item Fix out of boundary access in Win32 path handling
+
+=item Fix loss of taint in canonpath
+
+=item Avoid accessing uninitialized memory in win32 C<crypt()>
+
+=item Remove duplicate environment variables from C<environ>
+
+=back
+
+=item Incompatible Changes
+
+=over 4
+
+=item The C<autoderef> feature has been removed
+
+=item Lexical $_ has been removed
+
+=item C<qr/\b{wb}/> is now tailored to Perl expectations
+
+=item Regular expression compilation errors
+
+=item C<qr/\N{}/> now disallowed under C<use re "strict">
+
+=item Nested declarations are now disallowed
+
+=item The C</\C/> character class has been removed.
+
+=item C<chdir('')> no longer chdirs home
+
+=item ASCII characters in variable names must now be all visible
+
+=item An off by one issue in C<$Carp::MaxArgNums> has been fixed
+
+=item Only blanks and tabs are now allowed within C<[...]> within
+C<(?[...])>.
+
+=back
+
+=item Deprecations
+
+=over 4
+
+=item Using code points above the platform's C<IV_MAX> is now deprecated
+
+=item Doing bitwise operations on strings containing code points above
+0xFF is deprecated
+
+=item C<sysread()>, C<syswrite()>, C<recv()> and C<send()> are deprecated
+on
+:utf8 handles
+
+=back
+
+=item Performance Enhancements
+
+=item Modules and Pragmata
+
+=over 4
+
+=item Updated Modules and Pragmata
+
+=back
+
+=item Documentation
+
+=over 4
+
+=item Changes to Existing Documentation
+
+=back
+
+=item Diagnostics
+
+=over 4
+
+=item New Diagnostics
+
+=item Changes to Existing Diagnostics
+
+=back
+
+=item Configuration and Compilation
+
+=item Testing
+
+=item Platform Support
+
+=over 4
+
+=item Platform-Specific Notes
+
+AmigaOS, Cygwin, EBCDIC, UTF-EBCDIC extended, EBCDIC C<cmp()> and C<sort()>
+fixed for UTF-EBCDIC strings, EBCDIC C<tr///> and C<y///> fixed for
+C<\N{}>, and C<S<use utf8>> ranges, FreeBSD, IRIX, MacOS X, Solaris, Tru64,
+VMS, Win32, ppc64el, floating point
+
+=back
+
+=item Internal Changes
+
+=item Selected Bug Fixes
+
+=item Known Problems
+
+L<Algorithm::Permute>, L<Coro>, L<Data::Alias>, L<RPerl>, L<Scope::Upper>,
+L<TryCatch>
+
+=item Acknowledgements
+
+=item Reporting Bugs
+
+=item SEE ALSO
+
+=back
+
+=head2 perl5222delta - what is new for perl v5.22.2
+
+=over 4
+
+=item DESCRIPTION
+
+=item Security
+
+=over 4
+
+=item Fix out of boundary access in Win32 path handling
+
+=item Fix loss of taint in C<canonpath()>
+
+=item Set proper umask before calling C<mkstemp(3)>
+
+=item Avoid accessing uninitialized memory in Win32 C<crypt()>
+
+=item Remove duplicate environment variables from C<environ>
+
+=back
+
+=item Incompatible Changes
+
+=item Modules and Pragmata
+
+=over 4
+
+=item Updated Modules and Pragmata
+
+=back
+
+=item Documentation
+
+=over 4
+
+=item Changes to Existing Documentation
+
+=back
+
+=item Configuration and Compilation
+
+=item Platform Support
+
+=over 4
+
+=item Platform-Specific Notes
+
+Darwin, OS X/Darwin, ppc64el, Tru64
+
+=back
+
+=item Internal Changes
+
+=item Selected Bug Fixes
+
+=item Acknowledgements
+
+=item Reporting Bugs
+
+=item SEE ALSO
+
+=back
+
+=head2 perl5221delta - what is new for perl v5.22.1
+
+=over 4
+
+=item DESCRIPTION
+
+=item Incompatible Changes
+
+=over 4
+
+=item Bounds Checking Constructs
+
+=back
+
+=item Modules and Pragmata
+
+=over 4
+
+=item Updated Modules and Pragmata
+
+=back
+
+=item Documentation
+
+=over 4
+
+=item Changes to Existing Documentation
+
+=back
+
+=item Diagnostics
+
+=over 4
+
+=item Changes to Existing Diagnostics
+
+=back
+
+=item Configuration and Compilation
+
+=item Platform Support
+
+=over 4
+
+=item Platform-Specific Notes
+
+IRIX
+
+=back
+
+=item Selected Bug Fixes
+
+=item Acknowledgements
+
+=item Reporting Bugs
+
+=item SEE ALSO
+
+=back
+
+=head2 perl5220delta - what is new for perl v5.22.0
+
+=over 4
+
+=item DESCRIPTION
+
+=item Core Enhancements
+
+=over 4
+
+=item New bitwise operators
+
+=item New double-diamond operator
+
+=item New C<\b> boundaries in regular expressions
+
+=item Non-Capturing Regular Expression Flag
+
+=item C<use re 'strict'>
+
+=item Unicode 7.0 (with correction) is now supported
+
+=item S<C<use locale>> can restrict which locale categories are affected
+
+=item Perl now supports POSIX 2008 locale currency additions
+
+=item Better heuristics on older platforms for determining locale UTF-8ness
+
+=item Aliasing via reference
+
+=item C<prototype> with no arguments
+
+=item New C<:const> subroutine attribute
+
+=item C<fileno> now works on directory handles
+
+=item List form of pipe open implemented for Win32
+
+=item Assignment to list repetition
+
+=item Infinity and NaN (not-a-number) handling improved
+
+=item Floating point parsing has been improved
+
+=item Packing infinity or not-a-number into a character is now fatal
+
+=item Experimental C Backtrace API
+
+=back
+
+=item Security
+
+=over 4
+
+=item Perl is now compiled with C<-fstack-protector-strong> if available
+
+=item The L<Safe> module could allow outside packages to be replaced
+
+=item Perl is now always compiled with C<-D_FORTIFY_SOURCE=2> if available
+
+=back
+
+=item Incompatible Changes
+
+=over 4
+
+=item Subroutine signatures moved before attributes
+
+=item C<&> and C<\&> prototypes accepts only subs
+
+=item C<use encoding> is now lexical
+
+=item List slices returning empty lists
+
+=item C<\N{}> with a sequence of multiple spaces is now a fatal error
+
+=item S<C<use UNIVERSAL '...'>> is now a fatal error
+
+=item In double-quotish C<\cI<X>>, I<X> must now be a printable ASCII
+character
+
+=item Splitting the tokens C<(?> and C<(*> in regular expressions is now a
+fatal compilation error.
+
+=item C<qr/foo/x> now ignores all Unicode pattern white space
+
+=item Comment lines within S<C<(?[ ])>> are now ended only by a C<\n>
+
+=item C<(?[...])> operators now follow standard Perl precedence
+
+=item Omitting C<%> and C<@> on hash and array names is no longer permitted
+
+=item C<"$!"> text is now in English outside the scope of C<use locale>
+
+=item C<"$!"> text will be returned in UTF-8 when appropriate
+
+=item Support for C<?PATTERN?> without explicit operator has been removed
+
+=item C<defined(@array)> and C<defined(%hash)> are now fatal errors
+
+=item Using a hash or an array as a reference are now fatal errors
+
+=item Changes to the C<*> prototype
+
+=back
+
+=item Deprecations
+
+=over 4
+
+=item Setting C<${^ENCODING}> to anything but C<undef>
+
+=item Use of non-graphic characters in single-character variable names
+
+=item Inlining of C<sub () { $var }> with observable side-effects
+
+=item Use of multiple C</x> regexp modifiers
+
+=item Using a NO-BREAK space in a character alias for C<\N{...}> is now
+deprecated
+
+=item A literal C<"{"> should now be escaped in a pattern
+
+=item Making all warnings fatal is discouraged
+
+=back
+
+=item Performance Enhancements
+
+=item Modules and Pragmata
+
+=over 4
+
+=item Updated Modules and Pragmata
+
+=item Removed Modules and Pragmata
+
+=back
+
+=item Documentation
+
+=over 4
+
+=item New Documentation
+
+=item Changes to Existing Documentation
+
+=back
+
+=item Diagnostics
+
+=over 4
+
+=item New Diagnostics
+
+=item Changes to Existing Diagnostics
+
+=item Diagnostic Removals
+
+=back
+
+=item Utility Changes
+
+=over 4
+
+=item F<find2perl>, F<s2p> and F<a2p> removal
+
+=item L<h2ph>
+
+=item L<encguess>
+
+=back
+
+=item Configuration and Compilation
+
+=item Testing
+
+=item Platform Support
+
+=over 4
+
+=item Regained Platforms
+
+IRIX and Tru64 platforms are working again, z/OS running EBCDIC Code Page
+1047
+
+=item Discontinued Platforms
+
+NeXTSTEP/OPENSTEP
+
+=item Platform-Specific Notes
+
+EBCDIC, HP-UX, Android, VMS, Win32, OpenBSD, Solaris
+
+=back
+
+=item Internal Changes
+
+=item Selected Bug Fixes
+
+=item Known Problems
+
+=item Obituary
+
+=item Acknowledgements
+
+=item Reporting Bugs
+
+=item SEE ALSO
+
+=back
+
+=head2 perl5203delta - what is new for perl v5.20.3
+
+=over 4
+
+=item DESCRIPTION
+
+=item Incompatible Changes
+
+=item Modules and Pragmata
+
+=over 4
+
+=item Updated Modules and Pragmata
+
+=back
+
+=item Documentation
+
+=over 4
+
+=item Changes to Existing Documentation
+
+=back
+
+=item Utility Changes
+
+=over 4
+
+=item L<h2ph>
+
+=back
+
+=item Testing
+
+=item Platform Support
+
+=over 4
+
+=item Platform-Specific Notes
+
+Win32
+
+=back
+
+=item Selected Bug Fixes
+
+=item Acknowledgements
+
+=item Reporting Bugs
+
+=item SEE ALSO
+
+=back
+
+=head2 perl5202delta - what is new for perl v5.20.2
+
+=over 4
+
+=item DESCRIPTION
+
+=item Incompatible Changes
+
+=item Modules and Pragmata
+
+=over 4
+
+=item Updated Modules and Pragmata
+
+=back
+
+=item Documentation
+
+=over 4
+
+=item New Documentation
+
+=item Changes to Existing Documentation
+
+=back
+
+=item Diagnostics
+
+=over 4
+
+=item Changes to Existing Diagnostics
+
+=back
+
+=item Testing
+
+=item Platform Support
+
+=over 4
+
+=item Regained Platforms
+
+=back
+
+=item Selected Bug Fixes
+
+=item Known Problems
+
+=item Errata From Previous Releases
+
+=item Acknowledgements
+
+=item Reporting Bugs
+
+=item SEE ALSO
+
+=back
+
+=head2 perl5201delta - what is new for perl v5.20.1
+
+=over 4
+
+=item DESCRIPTION
+
+=item Incompatible Changes
+
+=item Performance Enhancements
+
+=item Modules and Pragmata
+
+=over 4
+
+=item Updated Modules and Pragmata
+
+=back
+
+=item Documentation
+
+=over 4
+
+=item Changes to Existing Documentation
+
+=back
+
+=item Diagnostics
+
+=over 4
+
+=item Changes to Existing Diagnostics
+
+=back
+
+=item Configuration and Compilation
+
+=item Platform Support
+
+=over 4
+
+=item Platform-Specific Notes
+
+Android, OpenBSD, Solaris, VMS, Windows
+
+=back
+
+=item Internal Changes
+
+=item Selected Bug Fixes
+
+=item Acknowledgements
+
+=item Reporting Bugs
+
+=item SEE ALSO
+
+=back
+
+=head2 perl5200delta - what is new for perl v5.20.0
+
+=over 4
+
+=item DESCRIPTION
+
+=item Core Enhancements
+
+=over 4
+
+=item Experimental Subroutine signatures
+
+=item C<sub>s now take a C<prototype> attribute
+
+=item More consistent prototype parsing
+
+=item C<rand> now uses a consistent random number generator
+
+=item New slice syntax
+
+=item Experimental Postfix Dereferencing
+
+=item Unicode 6.3 now supported
+
+=item New C<\p{Unicode}> regular expression pattern property
+
+=item Better 64-bit support
+
+=item C<S<use locale>> now works on UTF-8 locales
+
+=item C<S<use locale>> now compiles on systems without locale ability
+
+=item More locale initialization fallback options
+
+=item C<-DL> runtime option now added for tracing locale setting
+
+=item B<-F> now implies B<-a> and B<-a> implies B<-n>
+
+=item $a and $b warnings exemption
+
+=back
+
+=item Security
+
+=over 4
+
+=item Avoid possible read of free()d memory during parsing
+
+=back
+
+=item Incompatible Changes
+
+=over 4
+
+=item C<do> can no longer be used to call subroutines
+
+=item Quote-like escape changes
+
+=item Tainting happens under more circumstances; now conforms to
+documentation
+
+=item C<\p{}>, C<\P{}> matching has changed for non-Unicode code
+points.
+
+=item C<\p{All}> has been expanded to match all possible code points
+
+=item Data::Dumper's output may change
+
+=item Locale decimal point character no longer leaks outside of S<C<use
+locale>> scope
+
+=item Assignments of Windows sockets error codes to $! now prefer
+F<errno.h> values over WSAGetLastError() values
+
+=item Functions C<PerlIO_vsprintf> and C<PerlIO_sprintf> have been removed
+
+=back
+
+=item Deprecations
+
+=over 4
+
+=item The C</\C/> character class
+
+=item Literal control characters in variable names
+
+=item References to non-integers and non-positive integers in C<$/>
+
+=item Character matching routines in POSIX
+
+=item Interpreter-based threads are now I<discouraged>
+
+=item Module removals
+
+L<CGI> and its associated CGI:: packages, L<inc::latest>,
+L<Package::Constants>, L<Module::Build> and its associated Module::Build::
+packages
+
+=item Utility removals
+
+L<find2perl>, L<s2p>, L<a2p>
+
+=back
+
+=item Performance Enhancements
+
+=item Modules and Pragmata
+
+=over 4
+
+=item New Modules and Pragmata
+
+=item Updated Modules and Pragmata
+
+=back
+
+=item Documentation
+
+=over 4
+
+=item New Documentation
+
+=item Changes to Existing Documentation
+
+=back
+
+=item Diagnostics
+
+=over 4
+
+=item New Diagnostics
+
+=item Changes to Existing Diagnostics
+
+=back
+
+=item Utility Changes
+
+=item Configuration and Compilation
+
+=item Testing
+
+=item Platform Support
+
+=over 4
+
+=item New Platforms
+
+Android, Bitrig, FreeMiNT, Synology
+
+=item Discontinued Platforms
+
+C<sfio>, AT&T 3b1, DG/UX, EBCDIC
+
+=item Platform-Specific Notes
+
+Cygwin, GNU/Hurd, Linux, Mac OS, MidnightBSD, Mixed-endian platforms, VMS,
+Win32, WinCE
+
+=back
+
+=item Internal Changes
+
+=item Selected Bug Fixes
+
+=over 4
+
+=item Regular Expressions
+
+=item Perl 5 Debugger and -d
+
+=item Lexical Subroutines
+
+=item Everything Else
+
+=back
+
+=item Known Problems
+
+=item Obituary
+
+=item Acknowledgements
+
+=item Reporting Bugs
+
+=item SEE ALSO
+
+=back
+
+=head2 perl5184delta - what is new for perl v5.18.4
+
+=over 4
+
+=item DESCRIPTION
+
+=item Modules and Pragmata
+
+=over 4
+
+=item Updated Modules and Pragmata
+
+=back
+
+=item Platform Support
+
+=over 4
+
+=item Platform-Specific Notes
+
+Win32
+
+=back
+
+=item Selected Bug Fixes
+
+=item Acknowledgements
+
+=item Reporting Bugs
+
+=item SEE ALSO
+
+=back
+
+=head2 perl5182delta - what is new for perl v5.18.2
+
+=over 4
+
+=item DESCRIPTION
+
+=item Modules and Pragmata
+
+=over 4
+
+=item Updated Modules and Pragmata
+
+=back
+
+=item Documentation
+
+=over 4
+
+=item Changes to Existing Documentation
+
+=back
+
+=item Selected Bug Fixes
+
+=item Acknowledgements
+
+=item Reporting Bugs
+
+=item SEE ALSO
+
+=back
+
+=head2 perl5181delta - what is new for perl v5.18.1
+
+=over 4
+
+=item DESCRIPTION
+
+=item Incompatible Changes
+
+=item Modules and Pragmata
+
+=over 4
+
+=item Updated Modules and Pragmata
+
+=back
+
+=item Platform Support
+
+=over 4
+
+=item Platform-Specific Notes
+
+AIX, MidnightBSD
+
+=back
+
+=item Selected Bug Fixes
+
+=item Acknowledgements
+
+=item Reporting Bugs
+
+=item SEE ALSO
+
+=back
+
+=head2 perl5180delta - what is new for perl v5.18.0
+
+=over 4
+
+=item DESCRIPTION
+
+=item Core Enhancements
+
+=over 4
+
+=item New mechanism for experimental features
+
+=item Hash overhaul
+
+=item Upgrade to Unicode 6.2
+
+=item Character name aliases may now include non-Latin1-range characters
+
+=item New DTrace probes
+
+=item C<${^LAST_FH}>
+
+=item Regular Expression Set Operations
+
+=item Lexical subroutines
+
+=item Computed Labels
+
+=item More CORE:: subs
+
+=item C<kill> with negative signal names
+
+=back
+
+=item Security
+
+=over 4
+
+=item See also: hash overhaul
+
+=item C<Storable> security warning in documentation
+
+=item C<Locale::Maketext> allowed code injection via a malicious template
+
+=item Avoid calling memset with a negative count
+
+=back
+
+=item Incompatible Changes
+
+=over 4
+
+=item See also: hash overhaul
+
+=item An unknown character name in C<\N{...}> is now a syntax error
+
+=item Formerly deprecated characters in C<\N{}> character name aliases are
+now errors.
+
+=item C<\N{BELL}> now refers to U+1F514 instead of U+0007
+
+=item New Restrictions in Multi-Character Case-Insensitive Matching in
+Regular Expression Bracketed Character Classes
+
+=item Explicit rules for variable names and identifiers
+
+=item Vertical tabs are now whitespace
+
+=item C</(?{})/> and C</(??{})/> have been heavily reworked
+
+=item Stricter parsing of substitution replacement
+
+=item C<given> now aliases the global C<$_>
+
+=item The smartmatch family of features are now experimental
+
+=item Lexical C<$_> is now experimental
+
+=item readline() with C<$/ = \N> now reads N characters, not N bytes
+
+=item Overridden C<glob> is now passed one argument
+
+=item Here doc parsing
+
+=item Alphanumeric operators must now be separated from the closing
+delimiter of regular expressions
+
+=item qw(...) can no longer be used as parentheses
+
+=item Interaction of lexical and default warnings
+
+=item C<state sub> and C<our sub>
+
+=item Defined values stored in environment are forced to byte strings
+
+=item C<require> dies for unreadable files
+
+=item C<gv_fetchmeth_*> and SUPER
+
+=item C<split>'s first argument is more consistently interpreted
+
+=back
+
+=item Deprecations
+
+=over 4
+
+=item Module removals
+
+L<encoding>, L<Archive::Extract>, L<B::Lint>, L<B::Lint::Debug>,
+L<CPANPLUS> and all included C<CPANPLUS::*> modules,
+L<Devel::InnerPackage>, L<Log::Message>, L<Log::Message::Config>,
+L<Log::Message::Handlers>, L<Log::Message::Item>, L<Log::Message::Simple>,
+L<Module::Pluggable>, L<Module::Pluggable::Object>, L<Object::Accessor>,
+L<Pod::LaTeX>, L<Term::UI>, L<Term::UI::History>
+
+=item Deprecated Utilities
+
+L<cpanp>, C<cpanp-run-perl>, L<cpan2dist>, L<pod2latex>
+
+=item PL_sv_objcount
+
+=item Five additional characters should be escaped in patterns with C</x>
+
+=item User-defined charnames with surprising whitespace
+
+=item Various XS-callable functions are now deprecated
+
+=item Certain rare uses of backslashes within regexes are now deprecated
+
+=item Splitting the tokens C<(?> and C<(*> in regular expressions
+
+=item Pre-PerlIO IO implementations
+
+=back
+
+=item Future Deprecations
+
+DG/UX, NeXT
+
+=item Performance Enhancements
+
+=item Modules and Pragmata
+
+=over 4
+
+=item New Modules and Pragmata
+
+=item Updated Modules and Pragmata
+
+=item Removed Modules and Pragmata
+
+=back
+
+=item Documentation
+
+=over 4
+
+=item Changes to Existing Documentation
+
+=item New Diagnostics
+
+=item Changes to Existing Diagnostics
+
+=back
+
+=item Utility Changes
+
+=item Configuration and Compilation
+
+=item Testing
+
+=item Platform Support
+
+=over 4
+
+=item Discontinued Platforms
+
+BeOS, UTS Global, VM/ESA, MPE/IX, EPOC, Rhapsody
+
+=item Platform-Specific Notes
+
+=back
+
+=item Internal Changes
+
+=item Selected Bug Fixes
+
+=item Known Problems
+
+=item Obituary
+
+=item Acknowledgements
+
+=item Reporting Bugs
+
+=item SEE ALSO
+
+=back
+
+=head2 perl5163delta - what is new for perl v5.16.3
+
+=over 4
+
+=item DESCRIPTION
+
+=item Core Enhancements
+
+=item Security
+
+=over 4
+
+=item CVE-2013-1667: memory exhaustion with arbitrary hash keys
+
+=item wrap-around with IO on long strings
+
+=item memory leak in Encode
+
+=back
+
+=item Incompatible Changes
+
+=item Deprecations
+
+=item Modules and Pragmata
+
+=over 4
+
+=item Updated Modules and Pragmata
+
+=back
+
+=item Known Problems
+
+=item Acknowledgements
+
+=item Reporting Bugs
+
+=item SEE ALSO
+
+=back
+
+=head2 perl5162delta - what is new for perl v5.16.2
+
+=over 4
+
+=item DESCRIPTION
+
+=item Incompatible Changes
+
+=item Modules and Pragmata
+
+=over 4
+
+=item Updated Modules and Pragmata
+
+=back
+
+=item Configuration and Compilation
+
+configuration should no longer be confused by ls colorization
+
+=item Platform Support
+
+=over 4
+
+=item Platform-Specific Notes
+
+AIX
+
+=back
+
+=item Selected Bug Fixes
+
+fix /\h/ equivalence with /[\h]/
+
+=item Known Problems
+
+=item Acknowledgements
+
+=item Reporting Bugs
+
+=item SEE ALSO
+
+=back
+
+=head2 perl5161delta - what is new for perl v5.16.1
+
+=over 4
+
+=item DESCRIPTION
+
+=item Security
+
+=over 4
+
+=item an off-by-two error in Scalar-List-Util has been fixed
+
+=back
+
+=item Incompatible Changes
+
+=item Modules and Pragmata
+
+=over 4
+
+=item Updated Modules and Pragmata
+
+=back
+
+=item Configuration and Compilation
+
+=item Platform Support
+
+=over 4
+
+=item Platform-Specific Notes
+
+VMS
+
+=back
+
+=item Selected Bug Fixes
+
+=item Known Problems
+
+=item Acknowledgements
+
+=item Reporting Bugs
+
+=item SEE ALSO
+
+=back
+
+=head2 perl5160delta - what is new for perl v5.16.0
+
+=over 4
+
+=item DESCRIPTION
+
+=item Notice
+
+=item Core Enhancements
+
+=over 4
+
+=item C<use I<VERSION>>
+
+=item C<__SUB__>
+
+=item New and Improved Built-ins
+
+=item Unicode Support
+
+=item XS Changes
+
+=item Changes to Special Variables
+
+=item Debugger Changes
+
+=item The C<CORE> Namespace
+
+=item Other Changes
+
+=back
+
+=item Security
+
+=over 4
+
+=item Use C<is_utf8_char_buf()> and not C<is_utf8_char()>
+
+=item Malformed UTF-8 input could cause attempts to read beyond the end of
+the buffer
+
+=item C<File::Glob::bsd_glob()> memory error with GLOB_ALTDIRFUNC
+(CVE-2011-2728).
+
+=item Privileges are now set correctly when assigning to C<$(>
+
+=back
+
+=item Deprecations
+
+=over 4
+
+=item Don't read the Unicode data base files in F<lib/unicore>
+
+=item XS functions C<is_utf8_char()>, C<utf8_to_uvchr()> and
+C<utf8_to_uvuni()>
+
+=back
+
+=item Future Deprecations
+
+=over 4
+
+=item Core Modules
+
+=item Platforms with no supporting programmers
+
+=item Other Future Deprecations
+
+=back
+
+=item Incompatible Changes
+
+=over 4
+
+=item Special blocks called in void context
+
+=item The C<overloading> pragma and regexp objects
+
+=item Two XS typemap Entries removed
+
+=item Unicode 6.1 has incompatibilities with Unicode 6.0
+
+=item Borland compiler
+
+=item Certain deprecated Unicode properties are no longer supported by
+default
+
+=item Dereferencing IO thingies as typeglobs
+
+=item User-defined case-changing operations
+
+=item XSUBs are now 'static'
+
+=item Weakening read-only references
+
+=item Tying scalars that hold typeglobs
+
+=item IPC::Open3 no longer provides C<xfork()>, C<xclose_on_exec()>
+and C<xpipe_anon()>
+
+=item C<$$> no longer caches PID
+
+=item C<$$> and C<getppid()> no longer emulate POSIX semantics under
+LinuxThreads
+
+=item C<< $< >>, C<< $> >>, C<$(> and C<$)> are no longer cached
+
+=item Which Non-ASCII characters get quoted by C<quotemeta> and C<\Q> has
+changed
+
+=back
+
+=item Performance Enhancements
+
+=item Modules and Pragmata
+
+=over 4
+
+=item Deprecated Modules
+
+L<Version::Requirements>
+
+=item New Modules and Pragmata
+
+=item Updated Modules and Pragmata
+
+=item Removed Modules and Pragmata
+
+=back
+
+=item Documentation
+
+=over 4
+
+=item New Documentation
+
+=item Changes to Existing Documentation
+
+=item Removed Documentation
+
+=back
+
+=item Diagnostics
+
+=over 4
+
+=item New Diagnostics
+
+=item Removed Errors
+
+=item Changes to Existing Diagnostics
+
+=back
+
+=item Utility Changes
+
+=item Configuration and Compilation
+
+=item Platform Support
+
+=over 4
+
+=item Platform-Specific Notes
+
+=back
+
+=item Internal Changes
+
+=item Selected Bug Fixes
+
+=over 4
+
+=item Array and hash
+
+=item C API fixes
+
+=item Compile-time hints
+
+=item Copy-on-write scalars
+
+=item The debugger
+
+=item Dereferencing operators
+
+=item Filehandle, last-accessed
+
+=item Filetests and C<stat>
+
+=item Formats
+
+=item C<given> and C<when>
+
+=item The C<glob> operator
+
+=item Lvalue subroutines
+
+=item Overloading
+
+=item Prototypes of built-in keywords
+
+=item Regular expressions
+
+=item Smartmatching
+
+=item The C<sort> operator
+
+=item The C<substr> operator
+
+=item Support for embedded nulls
+
+=item Threading bugs
+
+=item Tied variables
+
+=item Version objects and vstrings
+
+=item Warnings, redefinition
+
+=item Warnings, "Uninitialized"
+
+=item Weak references
+
+=item Other notable fixes
+
+=back
+
+=item Known Problems
+
+=item Acknowledgements
+
+=item Reporting Bugs
+
+=item SEE ALSO
+
+=back
+
+=head2 perl5144delta - what is new for perl v5.14.4
+
+=over 4
+
+=item DESCRIPTION
+
+=item Core Enhancements
+
+=item Security
+
+=over 4
+
+=item CVE-2013-1667: memory exhaustion with arbitrary hash keys
+
+=item memory leak in Encode
+
+=item [perl #111594] Socket::unpack_sockaddr_un heap-buffer-overflow
+
+=item [perl #111586] SDBM_File: fix off-by-one access to global ".dir"
+
+=item off-by-two error in List::Util
+
+=item [perl #115994] fix segv in regcomp.c:S_join_exact()
+
+=item [perl #115992] PL_eval_start use-after-free
+
+=item wrap-around with IO on long strings
+
+=back
+
+=item Incompatible Changes
+
+=item Deprecations
+
+=item Modules and Pragmata
+
+=over 4
+
+=item New Modules and Pragmata
+
+=item Updated Modules and Pragmata
+
+Socket, SDBM_File, List::Util
+
+=item Removed Modules and Pragmata
+
+=back
+
+=item Documentation
+
+=over 4
+
+=item New Documentation
+
+=item Changes to Existing Documentation
+
+=back
+
+=item Diagnostics
+
+=item Utility Changes
+
+=item Configuration and Compilation
+
+=item Platform Support
+
+=over 4
+
+=item New Platforms
+
+=item Discontinued Platforms
+
+=item Platform-Specific Notes
+
+VMS
+
+=back
+
+=item Selected Bug Fixes
+
+=item Known Problems
+
+=item Acknowledgements
+
+=item Reporting Bugs
+
+=item SEE ALSO
+
+=back
+
+=head2 perl5143delta - what is new for perl v5.14.3
+
+=over 4
+
+=item DESCRIPTION
+
+=item Core Enhancements
+
+=item Security
+
+=over 4
+
+=item C<Digest> unsafe use of eval (CVE-2011-3597)
+
+=item Heap buffer overrun in 'x' string repeat operator (CVE-2012-5195)
+
+=back
+
+=item Incompatible Changes
+
+=item Deprecations
+
+=item Modules and Pragmata
+
+=over 4
+
+=item New Modules and Pragmata
+
+=item Updated Modules and Pragmata
+
+=item Removed Modules and Pragmata
+
+=back
+
+=item Documentation
+
+=over 4
+
+=item New Documentation
+
+=item Changes to Existing Documentation
+
+=back
+
+=item Configuration and Compilation
+
+=item Platform Support
+
+=over 4
+
+=item New Platforms
+
+=item Discontinued Platforms
+
+=item Platform-Specific Notes
+
+FreeBSD, Solaris and NetBSD, HP-UX, Linux, Mac OS X, GNU/Hurd, NetBSD
+
+=back
+
+=item Bug Fixes
+
+=item Acknowledgements
+
+=item Reporting Bugs
+
+=item SEE ALSO
+
+=back
+
+=head2 perl5142delta - what is new for perl v5.14.2
+
+=over 4
+
+=item DESCRIPTION
+
+=item Core Enhancements
+
+=item Security
+
+=over 4
+
+=item C<File::Glob::bsd_glob()> memory error with GLOB_ALTDIRFUNC
+(CVE-2011-2728).
+
+=item C<Encode> decode_xs n-byte heap-overflow (CVE-2011-2939)
+
+=back
+
+=item Incompatible Changes
+
+=item Deprecations
+
+=item Modules and Pragmata
+
+=over 4
+
+=item New Modules and Pragmata
+
+=item Updated Modules and Pragmata
+
+=item Removed Modules and Pragmata
+
+=back
+
+=item Platform Support
+
+=over 4
+
+=item New Platforms
+
+=item Discontinued Platforms
+
+=item Platform-Specific Notes
+
+HP-UX PA-RISC/64 now supports gcc-4.x, Building on OS X 10.7 Lion and Xcode
+4 works again
+
+=back
+
+=item Bug Fixes
+
+=item Known Problems
+
+=item Acknowledgements
+
+=item Reporting Bugs
+
+=item SEE ALSO
+
+=back
+
+=head2 perl5141delta - what is new for perl v5.14.1
+
+=over 4
+
+=item DESCRIPTION
+
+=item Core Enhancements
+
+=item Security
+
+=item Incompatible Changes
+
+=item Deprecations
+
+=item Modules and Pragmata
+
+=over 4
+
+=item New Modules and Pragmata
+
+=item Updated Modules and Pragmata
+
+=item Removed Modules and Pragmata
+
+=back
+
+=item Documentation
+
+=over 4
+
+=item New Documentation
+
+=item Changes to Existing Documentation
+
+=back
+
+=item Diagnostics
+
+=over 4
+
+=item New Diagnostics
+
+=item Changes to Existing Diagnostics
+
+=back
+
+=item Utility Changes
+
+=item Configuration and Compilation
+
+=item Testing
+
+=item Platform Support
+
+=over 4
+
+=item New Platforms
+
+=item Discontinued Platforms
+
+=item Platform-Specific Notes
+
+=back
+
+=item Internal Changes
+
+=item Bug Fixes
+
+=item Acknowledgements
+
+=item Reporting Bugs
+
+=item SEE ALSO
+
+=back
+
+=head2 perl5140delta - what is new for perl v5.14.0
+
+=over 4
+
+=item DESCRIPTION
+
+=item Notice
+
+=item Core Enhancements
+
+=over 4
+
+=item Unicode
+
+=item Regular Expressions
+
+=item Syntactical Enhancements
+
+=item Exception Handling
+
+=item Other Enhancements
+
+C<-d:-foo>, C<-d:-foo=bar>
+
+=item New C APIs
+
+=back
+
+=item Security
+
+=over 4
+
+=item User-defined regular expression properties
+
+=back
+
+=item Incompatible Changes
+
+=over 4
+
+=item Regular Expressions and String Escapes
+
+=item Stashes and Package Variables
+
+=item Changes to Syntax or to Perl Operators
+
+=item Threads and Processes
+
+=item Configuration
+
+=back
+
+=item Deprecations
+
+=over 4
+
+=item Omitting a space between a regular expression and subsequent word
+
+=item C<\cI<X>>
+
+=item C<"\b{"> and C<"\B{">
+
+=item Perl 4-era .pl libraries
+
+=item List assignment to C<$[>
+
+=item Use of qw(...) as parentheses
+
+=item C<\N{BELL}>
+
+=item C<?PATTERN?>
+
+=item Tie functions on scalars holding typeglobs
+
+=item User-defined case-mapping
+
+=item Deprecated modules
+
+L<Devel::DProf>
+
+=back
+
+=item Performance Enhancements
+
+=over 4
+
+=item "Safe signals" optimisation
+
+=item Optimisation of shift() and pop() calls without arguments
+
+=item Optimisation of regexp engine string comparison work
+
+=item Regular expression compilation speed-up
+
+=item String appending is 100 times faster
+
+=item Eliminate C<PL_*> accessor functions under ithreads
+
+=item Freeing weak references
+
+=item Lexical array and hash assignments
+
+=item C<@_> uses less memory
+
+=item Size optimisations to SV and HV structures
+
+=item Memory consumption improvements to Exporter
+
+=item Memory savings for weak references
+
+=item C<%+> and C<%-> use less memory
+
+=item Multiple small improvements to threads
+
+=item Adjacent pairs of nextstate opcodes are now optimized away
+
+=back
+
+=item Modules and Pragmata
+
+=over 4
+
+=item New Modules and Pragmata
+
+=item Updated Modules and Pragma
+
+much less configuration dialog hassle, support for F<META/MYMETA.json>,
+support for L<local::lib>, support for L<HTTP::Tiny> to reduce the
+dependency on FTP sites, automatic mirror selection, iron out all known
+bugs in configure_requires, support for distributions compressed with
+L<bzip2(1)>, allow F<Foo/Bar.pm> on the command line to mean C<Foo::Bar>,
+charinfo(), charscript(), charblock()
+
+=item Removed Modules and Pragmata
+
+=back
+
+=item Documentation
+
+=over 4
+
+=item New Documentation
+
+=item Changes to Existing Documentation
+
+=back
+
+=item Diagnostics
+
+=over 4
+
+=item New Diagnostics
+
+Closure prototype called, Insecure user-defined property %s, panic: gp_free
+failed to free glob pointer - something is repeatedly re-creating entries,
+Parsing code internal error (%s), refcnt: fd %d%s, Regexp modifier "/%c"
+may not appear twice, Regexp modifiers "/%c" and "/%c" are mutually
+exclusive, Using !~ with %s doesn't make sense, "\b{" is deprecated; use
+"\b\{" instead, "\B{" is deprecated; use "\B\{" instead, Operation "%s"
+returns its argument for .., Use of qw(...) as parentheses is deprecated
+
+=item Changes to Existing Diagnostics
+
+=back
+
+=item Utility Changes
+
+=item Configuration and Compilation
+
+=item Platform Support
+
+=over 4
+
+=item New Platforms
+
+AIX
+
+=item Discontinued Platforms
+
+Apollo DomainOS, MacOS Classic
+
+=item Platform-Specific Notes
+
+=back
+
+=item Internal Changes
+
+=over 4
+
+=item New APIs
+
+=item C API Changes
+
+=item Deprecated C APIs
+
+C<Perl_ptr_table_clear>, C<sv_compile_2op>, C<find_rundefsvoffset>,
+C<CALL_FPTR> and C<CPERLscope>
+
+=item Other Internal Changes
+
+=back
+
+=item Selected Bug Fixes
+
+=over 4
+
+=item I/O
+
+=item Regular Expression Bug Fixes
+
+=item Syntax/Parsing Bugs
+
+=item Stashes, Globs and Method Lookup
+
+Aliasing packages by assigning to globs [perl #77358], Deleting packages by
+deleting their containing stash elements, Undefining the glob containing a
+package (C<undef *Foo::>), Undefining an ISA glob (C<undef *Foo::ISA>),
+Deleting an ISA stash element (C<delete $Foo::{ISA}>), Sharing @ISA arrays
+between classes (via C<*Foo::ISA = \@Bar::ISA> or C<*Foo::ISA = *Bar::ISA>)
+[perl #77238]
+
+=item Unicode
+
+=item Ties, Overloading and Other Magic
+
+=item The Debugger
+
+=item Threads
+
+=item Scoping and Subroutines
+
+=item Signals
+
+=item Miscellaneous Memory Leaks
+
+=item Memory Corruption and Crashes
+
+=item Fixes to Various Perl Operators
+
+=item Bugs Relating to the C API
+
+=back
+
+=item Known Problems
+
+=item Errata
+
+=over 4
+
+=item keys(), values(), and each() work on arrays
+
+=item split() and C<@_>
+
+=back
+
+=item Obituary
+
+=item Acknowledgements
+
+=item Reporting Bugs
+
+=item SEE ALSO
+
+=back
+
+=head2 perl5125delta - what is new for perl v5.12.5
+
+=over 4
+
+=item DESCRIPTION
+
+=item Security
+
+=over 4
+
+=item C<Encode> decode_xs n-byte heap-overflow (CVE-2011-2939)
+
+=item C<File::Glob::bsd_glob()> memory error with GLOB_ALTDIRFUNC
+(CVE-2011-2728).
+
+=item Heap buffer overrun in 'x' string repeat operator (CVE-2012-5195)
+
+=back
+
+=item Incompatible Changes
+
+=item Modules and Pragmata
+
+=over 4
+
+=item Updated Modules
+
+=back
+
+=item Changes to Existing Documentation
+
+=over 4
+
+=item L<perlebcdic>
+
+=item L<perlunicode>
+
+=item L<perluniprops>
+
+=back
+
+=item Installation and Configuration Improvements
+
+=over 4
+
+=item Platform Specific Changes
+
+Mac OS X, NetBSD
+
+=back
+
+=item Selected Bug Fixes
+
+=item Errata
+
+=over 4
+
+=item split() and C<@_>
+
+=back
+
+=item Acknowledgements
+
+=item Reporting Bugs
+
+=item SEE ALSO
+
+=back
+
+=head2 perl5124delta - what is new for perl v5.12.4
+
+=over 4
+
+=item DESCRIPTION
+
+=item Incompatible Changes
+
+=item Selected Bug Fixes
+
+=item Modules and Pragmata
+
+=item Testing
+
+=item Documentation
+
+=item Platform Specific Notes
+
+Linux
+
+=item Acknowledgements
+
+=item Reporting Bugs
+
+=item SEE ALSO
+
+=back
+
+=head2 perl5123delta - what is new for perl v5.12.3
+
+=over 4
+
+=item DESCRIPTION
+
+=item Incompatible Changes
+
+=item Core Enhancements
+
+=over 4
+
+=item C<keys>, C<values> work on arrays
+
+=back
+
+=item Bug Fixes
+
+=item Platform Specific Notes
+
+Solaris, VMS, VOS
+
+=item Acknowledgements
+
+=item Reporting Bugs
+
+=item SEE ALSO
+
+=back
+
+=head2 perl5122delta - what is new for perl v5.12.2
+
+=over 4
+
+=item DESCRIPTION
+
+=item Incompatible Changes
+
+=item Core Enhancements
+
+=item Modules and Pragmata
+
+=over 4
+
+=item New Modules and Pragmata
+
+=item Pragmata Changes
+
+=item Updated Modules
+
+C<Carp>, C<CPANPLUS>, C<File::Glob>, C<File::Copy>, C<File::Spec>
+
+=back
+
+=item Utility Changes
+
+=item Changes to Existing Documentation
+
+=item Installation and Configuration Improvements
+
+=over 4
+
+=item Configuration improvements
+
+=item Compilation improvements
+
+=back
+
+=item Selected Bug Fixes
+
+=item Platform Specific Notes
+
+=over 4
+
+=item AIX
+
+=item Windows
+
+=item VMS
+
+=back
+
+=item Acknowledgements
+
+=item Reporting Bugs
+
+=item SEE ALSO
+
+=back
+
+=head2 perl5121delta - what is new for perl v5.12.1
+
+=over 4
+
+=item DESCRIPTION
+
+=item Incompatible Changes
+
+=item Core Enhancements
+
+=item Modules and Pragmata
+
+=over 4
+
+=item Pragmata Changes
+
+=item Updated Modules
+
+=back
+
+=item Changes to Existing Documentation
+
+=item Testing
+
+=over 4
+
+=item Testing Improvements
+
+=back
+
+=item Installation and Configuration Improvements
+
+=over 4
+
+=item Configuration improvements
+
+=back
+
+=item Bug Fixes
+
+=item Platform Specific Notes
+
+=over 4
+
+=item HP-UX
+
+=item AIX
+
+=item FreeBSD 7
+
+=item VMS
+
+=back
+
+=item Known Problems
+
+=item Acknowledgements
+
+=item Reporting Bugs
+
+=item SEE ALSO
+
+=back
+
+=head2 perl5120delta - what is new for perl v5.12.0
+
+=over 4
+
+=item DESCRIPTION
+
+=item Core Enhancements
+
+=over 4
+
+=item New C<package NAME VERSION> syntax
+
+=item The C<...> operator
+
+=item Implicit strictures
+
+=item Unicode improvements
+
+=item Y2038 compliance
+
+=item qr overloading
+
+=item Pluggable keywords
+
+=item APIs for more internals
+
+=item Overridable function lookup
+
+=item A proper interface for pluggable Method Resolution Orders
+
+=item C<\N> experimental regex escape
+
+=item DTrace support
+
+=item Support for C<configure_requires> in CPAN module metadata
+
+=item C<each>, C<keys>, C<values> are now more flexible
+
+=item C<when> as a statement modifier
+
+=item C<$,> flexibility
+
+=item // in when clauses
+
+=item Enabling warnings from your shell environment
+
+=item C<delete local>
+
+=item New support for Abstract namespace sockets
+
+=item 32-bit limit on substr arguments removed
+
+=back
+
+=item Potentially Incompatible Changes
+
+=over 4
+
+=item Deprecations warn by default
+
+=item Version number formats
+
+=item @INC reorganization
+
+=item REGEXPs are now first class
+
+=item Switch statement changes
+
+flip-flop operators, defined-or operator
+
+=item Smart match changes
+
+=item Other potentially incompatible changes
+
+=back
+
+=item Deprecations
+
+suidperl, Use of C<:=> to mean an empty attribute list, C<<
+UNIVERSAL->import() >>, Use of "goto" to jump into a construct, Custom
+character names in \N{name} that don't look like names, Deprecated Modules,
+L<Class::ISA>, L<Pod::Plainer>, L<Shell>, L<Switch>, Assignment to $[, Use
+of the attribute :locked on subroutines, Use of "locked" with the
+attributes pragma, Use of "unique" with the attributes pragma, Perl_pmflag,
+Numerous Perl 4-era libraries
+
+=item Unicode overhaul
+
+=item Modules and Pragmata
+
+=over 4
+
+=item New Modules and Pragmata
+
+C<autodie>, C<Compress::Raw::Bzip2>, C<overloading>, C<parent>,
+C<Parse::CPAN::Meta>, C<VMS::DCLsym>, C<VMS::Stdio>,
+C<XS::APItest::KeywordRPN>
+
+=item Updated Pragmata
+
+C<base>, C<bignum>, C<charnames>, C<constant>, C<diagnostics>, C<feature>,
+C<less>, C<lib>, C<mro>, C<overload>, C<threads>, C<threads::shared>,
+C<version>, C<warnings>
+
+=item Updated Modules
+
+C<Archive::Extract>, C<Archive::Tar>, C<Attribute::Handlers>,
+C<AutoLoader>, C<B::Concise>, C<B::Debug>, C<B::Deparse>, C<B::Lint>,
+C<CGI>, C<Class::ISA>, C<Compress::Raw::Zlib>, C<CPAN>, C<CPANPLUS>,
+C<CPANPLUS::Dist::Build>, C<Data::Dumper>, C<DB_File>, C<Devel::PPPort>,
+C<Digest>, C<Digest::MD5>, C<Digest::SHA>, C<Encode>, C<Exporter>,
+C<ExtUtils::CBuilder>, C<ExtUtils::Command>, C<ExtUtils::Constant>,
+C<ExtUtils::Install>, C<ExtUtils::MakeMaker>, C<ExtUtils::Manifest>,
+C<ExtUtils::ParseXS>, C<File::Fetch>, C<File::Path>, C<File::Temp>,
+C<Filter::Simple>, C<Filter::Util::Call>, C<Getopt::Long>, C<IO>,
+C<IO::Zlib>, C<IPC::Cmd>, C<IPC::SysV>, C<Locale::Maketext>,
+C<Locale::Maketext::Simple>, C<Log::Message>, C<Log::Message::Simple>,
+C<Math::BigInt>, C<Math::BigInt::FastCalc>, C<Math::BigRat>,
+C<Math::Complex>, C<Memoize>, C<MIME::Base64>, C<Module::Build>,
+C<Module::CoreList>, C<Module::Load>, C<Module::Load::Conditional>,
+C<Module::Loaded>, C<Module::Pluggable>, C<Net::Ping>, C<NEXT>,
+C<Object::Accessor>, C<Package::Constants>, C<PerlIO>, C<Pod::Parser>,
+C<Pod::Perldoc>, C<Pod::Plainer>, C<Pod::Simple>, C<Safe>, C<SelfLoader>,
+C<Storable>, C<Switch>, C<Sys::Syslog>, C<Term::ANSIColor>, C<Term::UI>,
+C<Test>, C<Test::Harness>, C<Test::Simple>, C<Text::Balanced>,
+C<Text::ParseWords>, C<Text::Soundex>, C<Thread::Queue>,
+C<Thread::Semaphore>, C<Tie::RefHash>, C<Time::HiRes>, C<Time::Local>,
+C<Time::Piece>, C<Unicode::Collate>, C<Unicode::Normalize>, C<Win32>,
+C<Win32API::File>, C<XSLoader>
+
+=item Removed Modules and Pragmata
+
+C<attrs>, C<CPAN::API::HOWTO>, C<CPAN::DeferedCode>, C<CPANPLUS::inc>,
+C<DCLsym>, C<ExtUtils::MakeMaker::bytes>, C<ExtUtils::MakeMaker::vmsish>,
+C<Stdio>, C<Test::Harness::Assert>, C<Test::Harness::Iterator>,
+C<Test::Harness::Point>, C<Test::Harness::Results>,
+C<Test::Harness::Straps>, C<Test::Harness::Util>, C<XSSymSet>
+
+=item Deprecated Modules and Pragmata
+
+=back
+
+=item Documentation
+
+=over 4
+
+=item New Documentation
+
+=item Changes to Existing Documentation
+
+=back
+
+=item Selected Performance Enhancements
+
+=item Installation and Configuration Improvements
+
+=item Internal Changes
+
+=item Testing
+
+=over 4
+
+=item Testing improvements
+
+Parallel tests, Test harness flexibility, Test watchdog
+
+=item New Tests
+
+=back
+
+=item New or Changed Diagnostics
+
+=over 4
+
+=item New Diagnostics
+
+=item Changed Diagnostics
+
+C<Illegal character in prototype for %s : %s>, C<Prototype after '%c' for
+%s : %s>
+
+=back
+
+=item Utility Changes
+
+=item Selected Bug Fixes
+
+=item Platform Specific Changes
+
+=over 4
+
+=item New Platforms
+
+Haiku, MirOS BSD
+
+=item Discontinued Platforms
+
+Domain/OS, MiNT, Tenon MachTen
+
+=item Updated Platforms
+
+AIX, Cygwin, Darwin (Mac OS X), DragonFly BSD, FreeBSD, Irix, NetBSD,
+OpenVMS, Stratus VOS, Symbian, Windows
+
+=back
+
+=item Known Problems
+
+=item Errata
+
+=item Acknowledgements
+
+=item Reporting Bugs
+
+=item SEE ALSO
+
+=back
+
+=head2 perl5101delta - what is new for perl v5.10.1
+
+=over 4
+
+=item DESCRIPTION
+
+=item Incompatible Changes
+
+=over 4
+
+=item Switch statement changes
+
+flip-flop operators, defined-or operator
+
+=item Smart match changes
+
+=item Other incompatible changes
+
+=back
+
+=item Core Enhancements
+
+=over 4
+
+=item Unicode Character Database 5.1.0
+
+=item A proper interface for pluggable Method Resolution Orders
+
+=item The C<overloading> pragma
+
+=item Parallel tests
+
+=item DTrace support
+
+=item Support for C<configure_requires> in CPAN module metadata
+
+=back
+
+=item Modules and Pragmata
+
+=over 4
+
+=item New Modules and Pragmata
+
+C<autodie>, C<Compress::Raw::Bzip2>, C<parent>, C<Parse::CPAN::Meta>
+
+=item Pragmata Changes
+
+C<attributes>, C<attrs>, C<base>, C<bigint>, C<bignum>, C<bigrat>,
+C<charnames>, C<constant>, C<feature>, C<fields>, C<lib>, C<open>,
+C<overload>, C<overloading>, C<version>
+
+=item Updated Modules
+
+C<Archive::Extract>, C<Archive::Tar>, C<Attribute::Handlers>,
+C<AutoLoader>, C<AutoSplit>, C<B>, C<B::Debug>, C<B::Deparse>, C<B::Lint>,
+C<B::Xref>, C<Benchmark>, C<Carp>, C<CGI>, C<Compress::Zlib>, C<CPAN>,
+C<CPANPLUS>, C<CPANPLUS::Dist::Build>, C<Cwd>, C<Data::Dumper>, C<DB>,
+C<DB_File>, C<Devel::PPPort>, C<Digest::MD5>, C<Digest::SHA>, C<DirHandle>,
+C<Dumpvalue>, C<DynaLoader>, C<Encode>, C<Errno>, C<Exporter>,
+C<ExtUtils::CBuilder>, C<ExtUtils::Command>, C<ExtUtils::Constant>,
+C<ExtUtils::Embed>, C<ExtUtils::Install>, C<ExtUtils::MakeMaker>,
+C<ExtUtils::Manifest>, C<ExtUtils::ParseXS>, C<Fatal>, C<File::Basename>,
+C<File::Compare>, C<File::Copy>, C<File::Fetch>, C<File::Find>,
+C<File::Path>, C<File::Spec>, C<File::stat>, C<File::Temp>, C<FileCache>,
+C<FileHandle>, C<Filter::Simple>, C<Filter::Util::Call>, C<FindBin>,
+C<GDBM_File>, C<Getopt::Long>, C<Hash::Util::FieldHash>, C<I18N::Collate>,
+C<IO>, C<IO::Compress::*>, C<IO::Dir>, C<IO::Handle>, C<IO::Socket>,
+C<IO::Zlib>, C<IPC::Cmd>, C<IPC::Open3>, C<IPC::SysV>, C<lib>,
+C<List::Util>, C<Locale::MakeText>, C<Log::Message>, C<Math::BigFloat>,
+C<Math::BigInt>, C<Math::BigInt::FastCalc>, C<Math::BigRat>,
+C<Math::Complex>, C<Math::Trig>, C<Memoize>, C<Module::Build>,
+C<Module::CoreList>, C<Module::Load>, C<Module::Load::Conditional>,
+C<Module::Loaded>, C<Module::Pluggable>, C<NDBM_File>, C<Net::Ping>,
+C<NEXT>, C<Object::Accessor>, C<OS2::REXX>, C<Package::Constants>,
+C<PerlIO>, C<PerlIO::via>, C<Pod::Man>, C<Pod::Parser>, C<Pod::Simple>,
+C<Pod::Text>, C<POSIX>, C<Safe>, C<Scalar::Util>, C<SelectSaver>,
+C<SelfLoader>, C<Socket>, C<Storable>, C<Switch>, C<Symbol>,
+C<Sys::Syslog>, C<Term::ANSIColor>, C<Term::ReadLine>, C<Term::UI>,
+C<Test::Harness>, C<Test::Simple>, C<Text::ParseWords>, C<Text::Tabs>,
+C<Text::Wrap>, C<Thread::Queue>, C<Thread::Semaphore>, C<threads>,
+C<threads::shared>, C<Tie::RefHash>, C<Tie::StdHandle>, C<Time::HiRes>,
+C<Time::Local>, C<Time::Piece>, C<Unicode::Normalize>, C<Unicode::UCD>,
+C<UNIVERSAL>, C<Win32>, C<Win32API::File>, C<XSLoader>
+
+=back
+
+=item Utility Changes
+
+F<h2ph>, F<h2xs>, F<perl5db.pl>, F<perlthanks>
+
+=item New Documentation
+
+L<perlhaiku>, L<perlmroapi>, L<perlperf>, L<perlrepository>, L<perlthanks>
+
+=item Changes to Existing Documentation
+
+=item Performance Enhancements
+
+=item Installation and Configuration Improvements
+
+=over 4
+
+=item F<ext/> reorganisation
+
+=item Configuration improvements
+
+=item Compilation improvements
+
+=item Platform Specific Changes
+
+AIX, Cygwin, FreeBSD, Irix, Haiku, MirOS BSD, NetBSD, Stratus VOS, Symbian,
+Win32, VMS
+
+=back
+
+=item Selected Bug Fixes
+
+=item New or Changed Diagnostics
+
+C<panic: sv_chop %s>, C<Can't locate package %s for the parents of %s>,
+C<v-string in use/require is non-portable>, C<Deep recursion on subroutine
+"%s">
+
+=item Changed Internals
+
+C<SVf_UTF8>, C<SVs_TEMP>
+
+=item New Tests
+
+t/comp/retainedlines.t, t/io/perlio_fail.t, t/io/perlio_leaks.t,
+t/io/perlio_open.t, t/io/perlio.t, t/io/pvbm.t, t/mro/package_aliases.t,
+t/op/dbm.t, t/op/index_thr.t, t/op/pat_thr.t, t/op/qr_gc.t,
+t/op/reg_email_thr.t, t/op/regexp_qr_embed_thr.t,
+t/op/regexp_unicode_prop.t, t/op/regexp_unicode_prop_thr.t,
+t/op/reg_nc_tie.t, t/op/reg_posixcc.t, t/op/re.t, t/op/setpgrpstack.t,
+t/op/substr_thr.t, t/op/upgrade.t, t/uni/lex_utf8.t, t/uni/tie.t
+
+=item Known Problems
+
+=item Deprecations
+
+=item Acknowledgements
+
+=item Reporting Bugs
+
+=item SEE ALSO
+
+=back
+
+=head2 perl5100delta - what is new for perl 5.10.0
+
+=over 4
+
+=item DESCRIPTION
+
+=item Core Enhancements
+
+=over 4
+
+=item The C<feature> pragma
+
+=item New B<-E> command-line switch
+
+=item Defined-or operator
+
+=item Switch and Smart Match operator
+
+=item Regular expressions
+
+Recursive Patterns, Named Capture Buffers, Possessive Quantifiers,
+Backtracking control verbs, Relative backreferences, C<\K> escape, Vertical
+and horizontal whitespace, and linebreak, Optional pre-match and post-match
+captures with the /p flag
+
+=item C<say()>
+
+=item Lexical C<$_>
+
+=item The C<_> prototype
+
+=item UNITCHECK blocks
+
+=item New Pragma, C<mro>
+
+=item readdir() may return a "short filename" on Windows
+
+=item readpipe() is now overridable
+
+=item Default argument for readline()
+
+=item state() variables
+
+=item Stacked filetest operators
+
+=item UNIVERSAL::DOES()
+
+=item Formats
+
+=item Byte-order modifiers for pack() and unpack()
+
+=item C<no VERSION>
+
+=item C<chdir>, C<chmod> and C<chown> on filehandles
+
+=item OS groups
+
+=item Recursive sort subs
+
+=item Exceptions in constant folding
+
+=item Source filters in @INC
+
+=item New internal variables
+
+C<${^RE_DEBUG_FLAGS}>, C<${^CHILD_ERROR_NATIVE}>, C<${^RE_TRIE_MAXBUF}>,
+C<${^WIN32_SLOPPY_STAT}>
+
+=item Miscellaneous
+
+=item UCD 5.0.0
+
+=item MAD
+
+=item kill() on Windows
+
+=back
+
+=item Incompatible Changes
+
+=over 4
+
+=item Packing and UTF-8 strings
+
+=item Byte/character count feature in unpack()
+
+=item The C<$*> and C<$#> variables have been removed
+
+=item substr() lvalues are no longer fixed-length
+
+=item Parsing of C<-f _>
+
+=item C<:unique>
+
+=item Effect of pragmas in eval
+
+=item chdir FOO
+
+=item Handling of .pmc files
+
+=item $^V is now a C<version> object instead of a v-string
+
+=item @- and @+ in patterns
+
+=item $AUTOLOAD can now be tainted
+
+=item Tainting and printf
+
+=item undef and signal handlers
+
+=item strictures and dereferencing in defined()
+
+=item C<(?p{})> has been removed
+
+=item Pseudo-hashes have been removed
+
+=item Removal of the bytecode compiler and of perlcc
+
+=item Removal of the JPL
+
+=item Recursive inheritance detected earlier
+
+=item warnings::enabled and warnings::warnif changed to favor users of
+modules
+
+=back
+
+=item Modules and Pragmata
+
+=over 4
+
+=item Upgrading individual core modules
+
+=item Pragmata Changes
+
+C<feature>, C<mro>, Scoping of the C<sort> pragma, Scoping of C<bignum>,
+C<bigint>, C<bigrat>, C<base>, C<strict> and C<warnings>, C<version>,
+C<warnings>, C<less>
+
+=item New modules
+
+=item Selected Changes to Core Modules
+
+C<Attribute::Handlers>, C<B::Lint>, C<B>, C<Thread>
+
+=back
+
+=item Utility Changes
+
+perl -d, ptar, ptardiff, shasum, corelist, h2ph and h2xs, perlivp,
+find2perl, config_data, cpanp, cpan2dist, pod2html
+
+=item New Documentation
+
+=item Performance Enhancements
+
+=over 4
+
+=item In-place sorting
+
+=item Lexical array access
+
+=item XS-assisted SWASHGET
+
+=item Constant subroutines
+
+=item C<PERL_DONT_CREATE_GVSV>
+
+=item Weak references are cheaper
+
+=item sort() enhancements
+
+=item Memory optimisations
+
+=item UTF-8 cache optimisation
+
+=item Sloppy stat on Windows
+
+=item Regular expressions optimisations
+
+Engine de-recursivised, Single char char-classes treated as literals, Trie
+optimisation of literal string alternations, Aho-Corasick start-point
+optimisation
+
+=back
+
+=item Installation and Configuration Improvements
+
+=over 4
+
+=item Configuration improvements
+
+C<-Dusesitecustomize>, Relocatable installations, strlcat() and strlcpy(),
+C<d_pseudofork> and C<d_printf_format_null>, Configure help
+
+=item Compilation improvements
+
+Parallel build, Borland's compilers support, Static build on Windows,
+ppport.h files, C++ compatibility, Support for Microsoft 64-bit compiler,
+Visual C++, Win32 builds
+
+=item Installation improvements
+
+Module auxiliary files
+
+=item New Or Improved Platforms
+
+=back
+
+=item Selected Bug Fixes
+
+strictures in regexp-eval blocks, Calling CORE::require(), Subscripts of
+slices, C<no warnings 'category'> works correctly with -w, threads
+improvements, chr() and negative values, PERL5SHELL and tainting, Using
+*FILE{IO}, Overloading and reblessing, Overloading and UTF-8, eval memory
+leaks fixed, Random device on Windows, PERLIO_DEBUG, PerlIO::scalar and
+read-only scalars, study() and UTF-8, Critical signals, @INC-hook fix,
+C<-t> switch fix, Duping UTF-8 filehandles, Localisation of hash elements
+
+=item New or Changed Diagnostics
+
+Use of uninitialized value, Deprecated use of my() in false conditional,
+!=~ should be !~, Newline in left-justified string, Too late for "-T"
+option, "%s" variable %s masks earlier declaration,
+readdir()/closedir()/etc. attempted on invalid dirhandle, Opening
+dirhandle/filehandle %s also as a file/directory, Use of -P is deprecated,
+v-string in use/require is non-portable, perl -V
+
+=item Changed Internals
+
+=over 4
+
+=item Reordering of SVt_* constants
+
+=item Elimination of SVt_PVBM
+
+=item New type SVt_BIND
+
+=item Removal of CPP symbols
+
+=item Less space is used by ops
+
+=item New parser
+
+=item Use of C<const>
+
+=item Mathoms
+
+=item C<AvFLAGS> has been removed
+
+=item C<av_*> changes
+
+=item $^H and %^H
+
+=item B:: modules inheritance changed
+
+=item Anonymous hash and array constructors
+
+=back
+
+=item Known Problems
+
+=over 4
+
+=item UTF-8 problems
+
+=back
+
+=item Platform Specific Problems
+
+=item Reporting Bugs
+
+=item SEE ALSO
+
+=back
+
+=head2 perl589delta - what is new for perl v5.8.9
+
+=over 4
+
+=item DESCRIPTION
+
+=item Notice
+
+=item Incompatible Changes
+
+=item Core Enhancements
+
+=over 4
+
+=item Unicode Character Database 5.1.0.
+
+=item stat and -X on directory handles
+
+=item Source filters in @INC
+
+=item Exceptions in constant folding
+
+=item C<no VERSION>
+
+=item Improved internal UTF-8 caching code
+
+=item Runtime relocatable installations
+
+=item New internal variables
+
+C<${^CHILD_ERROR_NATIVE}>, C<${^UTF8CACHE}>
+
+=item C<readpipe> is now overridable
+
+=item simple exception handling macros
+
+=item -D option enhancements 
+
+=item XS-assisted SWASHGET
+
+=item Constant subroutines
+
+=back
+
+=item New Platforms
+
+=item Modules and Pragmata
+
+=over 4
+
+=item New Modules
+
+=item Updated Modules
+
+=back
+
+=item Utility Changes
+
+=over 4
+
+=item debugger upgraded to version 1.31
+
+=item F<perlthanks>
+
+=item F<perlbug>
+
+=item F<h2xs>
+
+=item F<h2ph>
+
+=back
+
+=item New Documentation
+
+=item Changes to Existing Documentation
+
+=item Performance Enhancements
+
+=item Installation and Configuration Improvements
+
+=over 4
+
+=item Relocatable installations
+
+=item Configuration improvements
+
+=item Compilation improvements
+
+=item Installation improvements.
+
+=item Platform Specific Changes
+
+=back
+
+=item Selected Bug Fixes
+
+=over 4
+
+=item Unicode
+
+=item PerlIO
+
+=item Magic
+
+=item Reblessing overloaded objects now works
+
+=item C<strict> now propagates correctly into string evals
+
+=item Other fixes
+
+=item Platform Specific Fixes
+
+=item Smaller fixes
+
+=back
+
+=item New or Changed Diagnostics
+
+=over 4
+
+=item panic: sv_chop %s
+
+=item Maximal count of pending signals (%s) exceeded
+
+=item panic: attempt to call %s in %s
+
+=item FETCHSIZE returned a negative value
+
+=item Can't upgrade %s (%d) to %d
+
+=item %s argument is not a HASH or ARRAY element or a subroutine
+
+=item Cannot make the non-overridable builtin %s fatal
+
+=item Unrecognized character '%s' in column %d
+
+=item Offset outside string
+
+=item Invalid escape in the specified encoding in regexp; marked by <--
+HERE in m/%s/
+
+=item Your machine doesn't support dump/undump.
+
+=back
+
+=item Changed Internals
+
+=over 4
+
+=item Macro cleanups
+
+=back
+
+=item New Tests
+
+ext/DynaLoader/t/DynaLoader.t, t/comp/fold.t, t/io/pvbm.t,
+t/lib/proxy_constant_subs.t, t/op/attrhand.t, t/op/dbm.t,
+t/op/inccode-tie.t, t/op/incfilter.t, t/op/kill0.t, t/op/qrstack.t,
+t/op/qr.t, t/op/regexp_qr_embed.t, t/op/regexp_qr.t, t/op/rxcode.t,
+t/op/studytied.t, t/op/substT.t, t/op/symbolcache.t, t/op/upgrade.t,
+t/mro/package_aliases.t, t/pod/twice.t, t/run/cloexec.t, t/uni/cache.t,
+t/uni/chr.t, t/uni/greek.t, t/uni/latin2.t, t/uni/overload.t, t/uni/tie.t
+
+=item Known Problems
+
+=item Platform Specific Notes
+
+=over 4
+
+=item Win32
+
+=item OS/2
+
+=item VMS
+
+=back
+
+=item Obituary
+
+=item Acknowledgements
+
+=item Reporting Bugs
+
+=item SEE ALSO
+
+=back
+
+=head2 perl588delta - what is new for perl v5.8.8
+
+=over 4
+
+=item DESCRIPTION
+
+=item Incompatible Changes
+
+=item Core Enhancements
+
+=item Modules and Pragmata
+
+=item Utility Changes
+
+=over 4
+
+=item C<h2xs> enhancements
+
+=item C<perlivp> enhancements
+
+=back
+
+=item New Documentation
+
+=item Performance Enhancements
+
+=item Installation and Configuration Improvements
+
+=item Selected Bug Fixes
+
+=over 4
+
+=item no warnings 'category' works correctly with -w
+
+=item Remove over-optimisation
+
+=item sprintf() fixes
+
+=item Debugger and Unicode slowdown
+
+=item Smaller fixes
+
+=back
+
+=item New or Changed Diagnostics
+
+=over 4
+
+=item Attempt to set length of freed array
+
+=item Non-string passed as bitmask
+
+=item Search pattern not terminated or ternary operator parsed as search
+pattern
+
+=back
+
+=item Changed Internals
+
+=item Platform Specific Problems
+
+=item Reporting Bugs
+
+=item SEE ALSO
+
+=back
+
+=head2 perl587delta - what is new for perl v5.8.7
+
+=over 4
+
+=item DESCRIPTION
+
+=item Incompatible Changes
+
+=item Core Enhancements
+
+=over 4
+
+=item Unicode Character Database 4.1.0
+
+=item suidperl less insecure
+
+=item Optional site customization script
+
+=item C<Config.pm> is now much smaller.
+
+=back
+
+=item Modules and Pragmata
+
+=item Utility Changes
+
+=over 4
+
+=item find2perl enhancements
+
+=back
+
+=item Performance Enhancements
+
+=item Installation and Configuration Improvements
+
+=item Selected Bug Fixes
+
+=item New or Changed Diagnostics
+
+=item Changed Internals
+
+=item Known Problems
+
+=item Platform Specific Problems
+
+=item Reporting Bugs
+
+=item SEE ALSO
+
+=back
+
+=head2 perl586delta - what is new for perl v5.8.6
+
+=over 4
+
+=item DESCRIPTION
+
+=item Incompatible Changes
+
+=item Core Enhancements
+
+=item Modules and Pragmata
+
+=item Utility Changes
+
+=item Performance Enhancements
+
+=item Selected Bug Fixes
+
+=item New or Changed Diagnostics
+
+=item Changed Internals
+
+=item New Tests
+
+=item Reporting Bugs
+
+=item SEE ALSO
+
+=back
+
+=head2 perl585delta - what is new for perl v5.8.5
+
+=over 4
+
+=item DESCRIPTION
+
+=item Incompatible Changes
+
+=item Core Enhancements
+
+=item Modules and Pragmata
+
+=item Utility Changes
+
+=over 4
+
+=item Perl's debugger
+
+=item h2ph
+
+=back
+
+=item Installation and Configuration Improvements
+
+=item Selected Bug Fixes
+
+=item New or Changed Diagnostics
+
+=item Changed Internals
+
+=item Known Problems
+
+=item Platform Specific Problems
+
+=item Reporting Bugs
+
+=item SEE ALSO
+
+=back
+
+=head2 perl584delta - what is new for perl v5.8.4
+
+=over 4
+
+=item DESCRIPTION
+
+=item Incompatible Changes
+
+=item Core Enhancements
+
+=over 4
+
+=item Malloc wrapping
+
+=item Unicode Character Database 4.0.1
+
+=item suidperl less insecure
+
+=item format
+
+=back
+
+=item Modules and Pragmata
+
+=over 4
+
+=item Updated modules
+
+Attribute::Handlers, B, Benchmark, CGI, Carp, Cwd, Exporter, File::Find,
+IO, IPC::Open3, Local::Maketext, Math::BigFloat, Math::BigInt,
+Math::BigRat, MIME::Base64, ODBM_File, POSIX, Shell, Socket, Storable,
+Switch, Sys::Syslog, Term::ANSIColor, Time::HiRes, Unicode::UCD, Win32,
+base, open, threads, utf8
+
+=back
+
+=item Performance Enhancements
+
+=item Utility Changes
+
+=item Installation and Configuration Improvements
+
+=item Selected Bug Fixes
+
+=item New or Changed Diagnostics
+
+=item Changed Internals
+
+=item Future Directions
+
+=item Platform Specific Problems
+
+=item Reporting Bugs
+
+=item SEE ALSO
+
+=back
+
+=head2 perl583delta - what is new for perl v5.8.3
+
+=over 4
+
+=item DESCRIPTION
+
+=item Incompatible Changes
+
+=item Core Enhancements
+
+=item Modules and Pragmata
+
+CGI, Cwd, Digest, Digest::MD5, Encode, File::Spec, FindBin, List::Util,
+Math::BigInt, PodParser, Pod::Perldoc, POSIX, Unicode::Collate,
+Unicode::Normalize, Test::Harness, threads::shared
+
+=item Utility Changes
+
+=item New Documentation
+
+=item Installation and Configuration Improvements
+
+=item Selected Bug Fixes
+
+=item New or Changed Diagnostics
+
+=item Changed Internals
+
+=item Configuration and Building
+
+=item Platform Specific Problems
+
+=item Known Problems
+
+=item Future Directions
+
+=item Obituary
+
+=item Reporting Bugs
+
+=item SEE ALSO
+
+=back
+
+=head2 perl582delta - what is new for perl v5.8.2
+
+=over 4
+
+=item DESCRIPTION
+
+=item Incompatible Changes
+
+=item Core Enhancements
+
+=over 4
+
+=item Hash Randomisation
+
+=item Threading
+
+=back
+
+=item Modules and Pragmata
+
+=over 4
+
+=item Updated Modules And Pragmata
+
+Devel::PPPort, Digest::MD5, I18N::LangTags, libnet, MIME::Base64,
+Pod::Perldoc, strict, Tie::Hash, Time::HiRes, Unicode::Collate,
+Unicode::Normalize, UNIVERSAL
+
+=back
+
+=item Selected Bug Fixes
+
+=item Changed Internals
+
+=item Platform Specific Problems
+
+=item Future Directions
+
+=item Reporting Bugs
+
+=item SEE ALSO
+
+=back
+
+=head2 perl581delta - what is new for perl v5.8.1
+
+=over 4
+
+=item DESCRIPTION
+
+=item Incompatible Changes
+
+=over 4
+
+=item Hash Randomisation
+
+=item UTF-8 On Filehandles No Longer Activated By Locale
+
+=item Single-number v-strings are no longer v-strings before "=>"
+
+=item (Win32) The -C Switch Has Been Repurposed
+
+=item (Win32) The /d Switch Of cmd.exe
+
+=back
+
+=item Core Enhancements
+
+=over 4
+
+=item UTF-8 no longer default under UTF-8 locales
+
+=item Unsafe signals again available
+
+=item Tied Arrays with Negative Array Indices
+
+=item local ${$x}
+
+=item Unicode Character Database 4.0.0
+
+=item Deprecation Warnings
+
+=item Miscellaneous Enhancements
+
+=back
+
+=item Modules and Pragmata
+
+=over 4
+
+=item Updated Modules And Pragmata
+
+base, B::Bytecode, B::Concise, B::Deparse, Benchmark, ByteLoader, bytes,
+CGI, charnames, CPAN, Data::Dumper, DB_File, Devel::PPPort, Digest::MD5,
+Encode, fields, libnet, Math::BigInt, MIME::Base64, NEXT, Net::Ping,
+PerlIO::scalar, podlators, Pod::LaTeX, PodParsers, Pod::Perldoc,
+Scalar::Util, Storable, strict, Term::ANSIcolor, Test::Harness, Test::More,
+Test::Simple, Text::Balanced, Time::HiRes, threads, threads::shared,
+Unicode::Collate, Unicode::Normalize, Win32::GetFolderPath,
+Win32::GetOSVersion
+
+=back
+
+=item Utility Changes
+
+=item New Documentation
+
+=item Installation and Configuration Improvements
+
+=over 4
+
+=item Platform-specific enhancements
+
+=back
+
+=item Selected Bug Fixes
+
+=over 4
+
+=item Closures, eval and lexicals
+
+=item Generic fixes
+
+=item Platform-specific fixes
+
+=back
+
+=item New or Changed Diagnostics
+
+=over 4
+
+=item Changed "A thread exited while %d threads were running"
+
+=item Removed "Attempt to clear a restricted hash"
+
+=item New "Illegal declaration of anonymous subroutine"
+
+=item Changed "Invalid range "%s" in transliteration operator"
+
+=item New "Missing control char name in \c"
+
+=item New "Newline in left-justified string for %s"
+
+=item New "Possible precedence problem on bitwise %c operator"
+
+=item New "Pseudo-hashes are deprecated"
+
+=item New "read() on %s filehandle %s"
+
+=item New "5.005 threads are deprecated"
+
+=item New "Tied variable freed while still in use"
+
+=item New "To%s: illegal mapping '%s'"
+
+=item New "Use of freed value in iteration"
+
+=back
+
+=item Changed Internals
+
+=item New Tests
+
+=item Known Problems
+
+=over 4
+
+=item Tied hashes in scalar context
+
+=item Net::Ping 450_service and 510_ping_udp failures
+
+=item B::C
+
+=back
+
+=item Platform Specific Problems
+
+=over 4
+
+=item EBCDIC Platforms
+
+=item Cygwin 1.5 problems
+
+=item HP-UX: HP cc warnings about sendfile and sendpath
+
+=item IRIX: t/uni/tr_7jis.t falsely failing
+
+=item Mac OS X: no usemymalloc
+
+=item Tru64: No threaded builds with GNU cc (gcc)
+
+=item Win32: sysopen, sysread, syswrite
+
+=back
+
+=item Future Directions
+
+=item Reporting Bugs
+
+=item SEE ALSO
+
+=back
+
+=head2 perl58delta - what is new for perl v5.8.0
+
+=over 4
+
+=item DESCRIPTION
+
+=item Highlights In 5.8.0
+
+=item Incompatible Changes
+
+=over 4
+
+=item Binary Incompatibility
+
+=item 64-bit platforms and malloc
+
+=item AIX Dynaloading
+
+=item Attributes for C<my> variables now handled at run-time
+
+=item Socket Extension Dynamic in VMS
+
+=item IEEE-format Floating Point Default on OpenVMS Alpha
+
+=item New Unicode Semantics (no more C<use utf8>, almost)
+
+=item New Unicode Properties
+
+=item REF(...) Instead Of SCALAR(...)
+
+=item pack/unpack D/F recycled
+
+=item glob() now returns filenames in alphabetical order
+
+=item Deprecations
+
+=back
+
+=item Core Enhancements
+
+=over 4
+
+=item Unicode Overhaul
+
+=item PerlIO is Now The Default
+
+=item ithreads
+
+=item Restricted Hashes
+
+=item Safe Signals
+
+=item Understanding of Numbers
+
+=item Arrays now always interpolate into double-quoted strings [561]
+
+=item Miscellaneous Changes
+
+=back
+
+=item Modules and Pragmata
+
+=over 4
+
+=item New Modules and Pragmata
+
+=item Updated And Improved Modules and Pragmata
+
+=back
+
+=item Utility Changes
+
+=item New Documentation
+
+=item Performance Enhancements
+
+=item Installation and Configuration Improvements
+
+=over 4
+
+=item Generic Improvements
+
+=item New Or Improved Platforms
+
+=back
+
+=item Selected Bug Fixes
+
+=over 4
+
+=item Platform Specific Changes and Fixes
+
+=back
+
+=item New or Changed Diagnostics
+
+=item Changed Internals
+
+=item Security Vulnerability Closed [561]
+
+=item New Tests
+
+=item Known Problems
+
+=over 4
+
+=item The Compiler Suite Is Still Very Experimental
+
+=item Localising Tied Arrays and Hashes Is Broken
+
+=item Building Extensions Can Fail Because Of Largefiles
+
+=item Modifying $_ Inside for(..)
+
+=item mod_perl 1.26 Doesn't Build With Threaded Perl
+
+=item lib/ftmp-security tests warn 'system possibly insecure'
+
+=item libwww-perl (LWP) fails base/date #51
+
+=item PDL failing some tests
+
+=item Perl_get_sv
+
+=item Self-tying Problems
+
+=item ext/threads/t/libc
+
+=item Failure of Thread (5.005-style) tests
+
+=item Timing problems
+
+=item Tied/Magical Array/Hash Elements Do Not Autovivify
+
+=item Unicode in package/class and subroutine names does not work
+
+=back
+
+=item Platform Specific Problems
+
+=over 4
+
+=item AIX
+
+=item Alpha systems with old gccs fail several tests
+
+=item AmigaOS
+
+=item BeOS
+
+=item Cygwin "unable to remap"
+
+=item Cygwin ndbm tests fail on FAT
+
+=item DJGPP Failures
+
+=item FreeBSD built with ithreads coredumps reading large directories
+
+=item FreeBSD Failing locale Test 117 For ISO 8859-15 Locales
+
+=item IRIX fails ext/List/Util/t/shuffle.t or Digest::MD5
+
+=item HP-UX lib/posix Subtest 9 Fails When LP64-Configured
+
+=item Linux with glibc 2.2.5 fails t/op/int subtest #6 with -Duse64bitint
+
+=item Linux With Sfio Fails op/misc Test 48
+
+=item Mac OS X
+
+=item Mac OS X dyld undefined symbols
+
+=item OS/2 Test Failures
+
+=item op/sprintf tests 91, 129, and 130
+
+=item SCO
+
+=item Solaris 2.5
+
+=item Solaris x86 Fails Tests With -Duse64bitint
+
+=item SUPER-UX (NEC SX)
+
+=item Term::ReadKey not working on Win32
+
+=item UNICOS/mk
+
+=item UTS
+
+=item VOS (Stratus)
+
+=item VMS
+
+=item Win32
+
+=item XML::Parser not working
+
+=item z/OS (OS/390)
+
+=item Unicode Support on EBCDIC Still Spotty
+
+=item Seen In Perl 5.7 But Gone Now
+
+=back
+
+=item Reporting Bugs
+
+=item SEE ALSO
+
+=item HISTORY
+
+=back
+
+=head2 perl561delta - what's new for perl v5.6.1
+
+=over 4
+
+=item DESCRIPTION
+
+=item Summary of changes between 5.6.0 and 5.6.1
+
+=over 4
+
+=item Security Issues
+
+=item Core bug fixes
+
+C<UNIVERSAL::isa()>, Memory leaks, Numeric conversions, qw(a\\b), caller(),
+Bugs in regular expressions, "slurp" mode, Autovivification of symbolic
+references to special variables, Lexical warnings, Spurious warnings and
+errors, glob(), Tainting, sort(), #line directives, Subroutine prototypes,
+map(), Debugger, PERL5OPT, chop(), Unicode support, 64-bit support,
+Compiler, Lvalue subroutines, IO::Socket, File::Find, xsubpp, C<no
+Module;>, Tests
+
+=item Core features
+
+=item Configuration issues
+
+=item Documentation
+
+=item Bundled modules
+
+B::Concise, File::Temp, Pod::LaTeX, Pod::Text::Overstrike, CGI, CPAN,
+Class::Struct, DB_File, Devel::Peek, File::Find, Getopt::Long, IO::Poll,
+IPC::Open3, Math::BigFloat, Math::Complex, Net::Ping, Opcode, Pod::Parser,
+Pod::Text, SDBM_File, Sys::Syslog, Tie::RefHash, Tie::SubstrHash
+
+=item Platform-specific improvements
+
+NCR MP-RAS, NonStop-UX
+
+=back
+
+=item Core Enhancements
+
+=over 4
+
+=item Interpreter cloning, threads, and concurrency
+
+=item Lexically scoped warning categories
+
+=item Unicode and UTF-8 support
+
+=item Support for interpolating named characters
+
+=item "our" declarations
+
+=item Support for strings represented as a vector of ordinals
+
+=item Improved Perl version numbering system
+
+=item New syntax for declaring subroutine attributes
+
+=item File and directory handles can be autovivified
+
+=item open() with more than two arguments
+
+=item 64-bit support
+
+=item Large file support
+
+=item Long doubles
+
+=item "more bits"
+
+=item Enhanced support for sort() subroutines
+
+=item C<sort $coderef @foo> allowed
+
+=item File globbing implemented internally
+
+=item Support for CHECK blocks
+
+=item POSIX character class syntax [: :] supported
+
+=item Better pseudo-random number generator
+
+=item Improved C<qw//> operator
+
+=item Better worst-case behavior of hashes
+
+=item pack() format 'Z' supported
+
+=item pack() format modifier '!' supported
+
+=item pack() and unpack() support counted strings
+
+=item Comments in pack() templates
+
+=item Weak references
+
+=item Binary numbers supported
+
+=item Lvalue subroutines
+
+=item Some arrows may be omitted in calls through references
+
+=item Boolean assignment operators are legal lvalues
+
+=item exists() is supported on subroutine names
+
+=item exists() and delete() are supported on array elements
+
+=item Pseudo-hashes work better
+
+=item Automatic flushing of output buffers
+
+=item Better diagnostics on meaningless filehandle operations
+
+=item Where possible, buffered data discarded from duped input filehandle
+
+=item eof() has the same old magic as <>
+
+=item binmode() can be used to set :crlf and :raw modes
+
+=item C<-T> filetest recognizes UTF-8 encoded files as "text"
+
+=item system(), backticks and pipe open now reflect exec() failure
+
+=item Improved diagnostics
+
+=item Diagnostics follow STDERR
+
+=item More consistent close-on-exec behavior
+
+=item syswrite() ease-of-use
+
+=item Better syntax checks on parenthesized unary operators
+
+=item Bit operators support full native integer width
+
+=item Improved security features
+
+=item More functional bareword prototype (*)
+
+=item C<require> and C<do> may be overridden
+
+=item $^X variables may now have names longer than one character
+
+=item New variable $^C reflects C<-c> switch
+
+=item New variable $^V contains Perl version as a string
+
+=item Optional Y2K warnings
+
+=item Arrays now always interpolate into double-quoted strings
+
+=item @- and @+ provide starting/ending offsets of regex submatches
+
+=back
+
+=item Modules and Pragmata
+
+=over 4
+
+=item Modules
+
+attributes, B, Benchmark, ByteLoader, constant, charnames, Data::Dumper,
+DB, DB_File, Devel::DProf, Devel::Peek, Dumpvalue, DynaLoader, English,
+Env, Fcntl, File::Compare, File::Find, File::Glob, File::Spec,
+File::Spec::Functions, Getopt::Long, IO, JPL, lib, Math::BigInt,
+Math::Complex, Math::Trig, Pod::Parser, Pod::InputObjects, Pod::Checker,
+podchecker, Pod::ParseUtils, Pod::Find, Pod::Select, podselect, Pod::Usage,
+pod2usage, Pod::Text and Pod::Man, SDBM_File, Sys::Syslog, Sys::Hostname,
+Term::ANSIColor, Time::Local, Win32, XSLoader, DBM Filters
+
+=item Pragmata
+
+=back
+
+=item Utility Changes
+
+=over 4
+
+=item dprofpp
+
+=item find2perl
+
+=item h2xs
+
+=item perlcc
+
+=item perldoc
+
+=item The Perl Debugger
+
+=back
+
+=item Improved Documentation
+
+perlapi.pod, perlboot.pod, perlcompile.pod, perldbmfilter.pod,
+perldebug.pod, perldebguts.pod, perlfork.pod, perlfilter.pod, perlhack.pod,
+perlintern.pod, perllexwarn.pod, perlnumber.pod, perlopentut.pod,
+perlreftut.pod, perltootc.pod, perltodo.pod, perlunicode.pod
+
+=item Performance enhancements
+
+=over 4
+
+=item Simple sort() using { $a <=> $b } and the like are optimized
+
+=item Optimized assignments to lexical variables
+
+=item Faster subroutine calls
+
+=item delete(), each(), values() and hash iteration are faster
+
+=back
+
+=item Installation and Configuration Improvements
+
+=over 4
+
+=item -Dusethreads means something different
+
+=item New Configure flags
+
+=item Threadedness and 64-bitness now more daring
+
+=item Long Doubles
+
+=item -Dusemorebits
+
+=item -Duselargefiles
+
+=item installusrbinperl
+
+=item SOCKS support
+
+=item C<-A> flag
+
+=item Enhanced Installation Directories
+
+=item gcc automatically tried if 'cc' does not seem to be working
+
+=back
+
+=item Platform specific changes
+
+=over 4
+
+=item Supported platforms
+
+=item DOS
+
+=item OS390 (OpenEdition MVS)
+
+=item VMS
+
+=item Win32
+
+=back
+
+=item Significant bug fixes
+
+=over 4
+
+=item <HANDLE> on empty files
+
+=item C<eval '...'> improvements
+
+=item All compilation errors are true errors
+
+=item Implicitly closed filehandles are safer
+
+=item Behavior of list slices is more consistent
+
+=item C<(\$)> prototype and C<$foo{a}>
+
+=item C<goto &sub> and AUTOLOAD
+
+=item C<-bareword> allowed under C<use integer>
+
+=item Failures in DESTROY()
+
+=item Locale bugs fixed
+
+=item Memory leaks
+
+=item Spurious subroutine stubs after failed subroutine calls
+
+=item Taint failures under C<-U>
+
+=item END blocks and the C<-c> switch
+
+=item Potential to leak DATA filehandles
+
+=back
+
+=item New or Changed Diagnostics
+
+"%s" variable %s masks earlier declaration in same %s, "my sub" not yet
+implemented, "our" variable %s redeclared, '!' allowed only after types %s,
+/ cannot take a count, / must be followed by a, A or Z, / must be followed
+by a*, A* or Z*, / must follow a numeric type, /%s/: Unrecognized escape
+\\%c passed through, /%s/: Unrecognized escape \\%c in character class
+passed through, /%s/ should probably be written as "%s", %s() called too
+early to check prototype, %s argument is not a HASH or ARRAY element, %s
+argument is not a HASH or ARRAY element or slice, %s argument is not a
+subroutine name, %s package attribute may clash with future reserved word:
+%s, (in cleanup) %s, <> should be quotes, Attempt to join self, Bad evalled
+substitution pattern, Bad realloc() ignored, Bareword found in conditional,
+Binary number > 0b11111111111111111111111111111111 non-portable, Bit vector
+size > 32 non-portable, Buffer overflow in prime_env_iter: %s, Can't check
+filesystem of script "%s", Can't declare class for non-scalar %s in "%s",
+Can't declare %s in "%s", Can't ignore signal CHLD, forcing to default,
+Can't modify non-lvalue subroutine call, Can't read CRTL environ, Can't
+remove %s: %s, skipping file, Can't return %s from lvalue subroutine, Can't
+weaken a nonreference, Character class [:%s:] unknown, Character class
+syntax [%s] belongs inside character classes, Constant is not %s reference,
+constant(%s): %s, CORE::%s is not a keyword, defined(@array) is deprecated,
+defined(%hash) is deprecated, Did not produce a valid header, (Did you mean
+"local" instead of "our"?), Document contains no data, entering effective
+%s failed, false [] range "%s" in regexp, Filehandle %s opened only for
+output, flock() on closed filehandle %s, Global symbol "%s" requires
+explicit package name, Hexadecimal number > 0xffffffff non-portable,
+Ill-formed CRTL environ value "%s", Ill-formed message in prime_env_iter:
+|%s|, Illegal binary digit %s, Illegal binary digit %s ignored, Illegal
+number of bits in vec, Integer overflow in %s number, Invalid %s attribute:
+%s, Invalid %s attributes: %s, invalid [] range "%s" in regexp, Invalid
+separator character %s in attribute list, Invalid separator character %s in
+subroutine attribute list, leaving effective %s failed, Lvalue subs
+returning %s not implemented yet, Method %s not permitted, Missing
+%sbrace%s on \N{}, Missing command in piped open, Missing name in "my sub",
+No %s specified for -%c, No package name allowed for variable %s in "our",
+No space allowed after -%c, no UTC offset information; assuming local time
+is UTC, Octal number > 037777777777 non-portable, panic: del_backref,
+panic: kid popen errno read, panic: magic_killbackrefs, Parentheses missing
+around "%s" list, Possible unintended interpolation of %s in string,
+Possible Y2K bug: %s, pragma "attrs" is deprecated, use "sub NAME : ATTRS"
+instead, Premature end of script headers, Repeat count in pack overflows,
+Repeat count in unpack overflows, realloc() of freed memory ignored,
+Reference is already weak, setpgrp can't take arguments, Strange *+?{} on
+zero-length expression, switching effective %s is not implemented, This
+Perl can't reset CRTL environ elements (%s), This Perl can't set CRTL
+environ elements (%s=%s), Too late to run %s block, Unknown open() mode
+'%s', Unknown process %x sent message to prime_env_iter: %s, Unrecognized
+escape \\%c passed through, Unterminated attribute parameter in attribute
+list, Unterminated attribute list, Unterminated attribute parameter in
+subroutine attribute list, Unterminated subroutine attribute list, Value of
+CLI symbol "%s" too long, Version number must be a constant number
+
+=item New tests
+
+=item Incompatible Changes
+
+=over 4
+
+=item Perl Source Incompatibilities
+
+CHECK is a new keyword, Treatment of list slices of undef has changed,
+Format of $English::PERL_VERSION is different, Literals of the form
+C<1.2.3> parse differently, Possibly changed pseudo-random number
+generator, Hashing function for hash keys has changed, C<undef> fails on
+read only values, Close-on-exec bit may be set on pipe and socket handles,
+Writing C<"$$1"> to mean C<"${$}1"> is unsupported, delete(), each(),
+values() and C<\(%h)>, vec(EXPR,OFFSET,BITS) enforces powers-of-two BITS,
+Text of some diagnostic output has changed, C<%@> has been removed,
+Parenthesized not() behaves like a list operator, Semantics of bareword
+prototype C<(*)> have changed, Semantics of bit operators may have changed
+on 64-bit platforms, More builtins taint their results
+
+=item C Source Incompatibilities
+
+C<PERL_POLLUTE>, C<PERL_IMPLICIT_CONTEXT>, C<PERL_POLLUTE_MALLOC>
+
+=item Compatible C Source API Changes
+
+C<PATCHLEVEL> is now C<PERL_VERSION>
+
+=item Binary Incompatibilities
+
+=back
+
+=item Known Problems
+
+=over 4
+
+=item Localizing a tied hash element may leak memory
+
+=item Known test failures
+
+=item EBCDIC platforms not fully supported
+
+=item UNICOS/mk CC failures during Configure run
+
+=item Arrow operator and arrays
+
+=item Experimental features
+
+Threads, Unicode, 64-bit support, Lvalue subroutines, Weak references, The
+pseudo-hash data type, The Compiler suite, Internal implementation of file
+globbing, The DB module, The regular expression code constructs:
+
+=back
+
+=item Obsolete Diagnostics
+
+Character class syntax [: :] is reserved for future extensions, Ill-formed
+logical name |%s| in prime_env_iter, In string, @%s now must be written as
+\@%s, Probable precedence problem on %s, regexp too big, Use of "$$<digit>"
+to mean "${$}<digit>" is deprecated
+
+=item Reporting Bugs
+
+=item SEE ALSO
+
+=item HISTORY
+
+=back
+
+=head2 perl56delta - what's new for perl v5.6.0
+
+=over 4
+
+=item DESCRIPTION
+
+=item Core Enhancements
+
+=over 4
+
+=item Interpreter cloning, threads, and concurrency
+
+=item Lexically scoped warning categories
+
+=item Unicode and UTF-8 support
+
+=item Support for interpolating named characters
+
+=item "our" declarations
+
+=item Support for strings represented as a vector of ordinals
+
+=item Improved Perl version numbering system
+
+=item New syntax for declaring subroutine attributes
+
+=item File and directory handles can be autovivified
+
+=item open() with more than two arguments
+
+=item 64-bit support
+
+=item Large file support
+
+=item Long doubles
+
+=item "more bits"
+
+=item Enhanced support for sort() subroutines
+
+=item C<sort $coderef @foo> allowed
+
+=item File globbing implemented internally
+
+=item Support for CHECK blocks
+
+=item POSIX character class syntax [: :] supported
+
+=item Better pseudo-random number generator
+
+=item Improved C<qw//> operator
+
+=item Better worst-case behavior of hashes
+
+=item pack() format 'Z' supported
+
+=item pack() format modifier '!' supported
+
+=item pack() and unpack() support counted strings
+
+=item Comments in pack() templates
+
+=item Weak references
+
+=item Binary numbers supported
+
+=item Lvalue subroutines
+
+=item Some arrows may be omitted in calls through references
+
+=item Boolean assignment operators are legal lvalues
+
+=item exists() is supported on subroutine names
+
+=item exists() and delete() are supported on array elements
+
+=item Pseudo-hashes work better
+
+=item Automatic flushing of output buffers
+
+=item Better diagnostics on meaningless filehandle operations
+
+=item Where possible, buffered data discarded from duped input filehandle
+
+=item eof() has the same old magic as <>
+
+=item binmode() can be used to set :crlf and :raw modes
+
+=item C<-T> filetest recognizes UTF-8 encoded files as "text"
+
+=item system(), backticks and pipe open now reflect exec() failure
+
+=item Improved diagnostics
+
+=item Diagnostics follow STDERR
+
+=item More consistent close-on-exec behavior
+
+=item syswrite() ease-of-use
+
+=item Better syntax checks on parenthesized unary operators
+
+=item Bit operators support full native integer width
+
+=item Improved security features
+
+=item More functional bareword prototype (*)
+
+=item C<require> and C<do> may be overridden
+
+=item $^X variables may now have names longer than one character
+
+=item New variable $^C reflects C<-c> switch
+
+=item New variable $^V contains Perl version as a string
+
+=item Optional Y2K warnings
+
+=item Arrays now always interpolate into double-quoted strings
+
+=item @- and @+ provide starting/ending offsets of regex matches
+
+=back
+
+=item Modules and Pragmata
+
+=over 4
+
+=item Modules
+
+attributes, B, Benchmark, ByteLoader, constant, charnames, Data::Dumper,
+DB, DB_File, Devel::DProf, Devel::Peek, Dumpvalue, DynaLoader, English,
+Env, Fcntl, File::Compare, File::Find, File::Glob, File::Spec,
+File::Spec::Functions, Getopt::Long, IO, JPL, lib, Math::BigInt,
+Math::Complex, Math::Trig, Pod::Parser, Pod::InputObjects, Pod::Checker,
+podchecker, Pod::ParseUtils, Pod::Find, Pod::Select, podselect, Pod::Usage,
+pod2usage, Pod::Text and Pod::Man, SDBM_File, Sys::Syslog, Sys::Hostname,
+Term::ANSIColor, Time::Local, Win32, XSLoader, DBM Filters
+
+=item Pragmata
+
+=back
+
+=item Utility Changes
+
+=over 4
+
+=item dprofpp
+
+=item find2perl
+
+=item h2xs
+
+=item perlcc
+
+=item perldoc
+
+=item The Perl Debugger
+
+=back
+
+=item Improved Documentation
+
+perlapi.pod, perlboot.pod, perlcompile.pod, perldbmfilter.pod,
+perldebug.pod, perldebguts.pod, perlfork.pod, perlfilter.pod, perlhack.pod,
+perlintern.pod, perllexwarn.pod, perlnumber.pod, perlopentut.pod,
+perlreftut.pod, perltootc.pod, perltodo.pod, perlunicode.pod
+
+=item Performance enhancements
+
+=over 4
+
+=item Simple sort() using { $a <=> $b } and the like are optimized
+
+=item Optimized assignments to lexical variables
+
+=item Faster subroutine calls
+
+=item delete(), each(), values() and hash iteration are faster
+
+=back
+
+=item Installation and Configuration Improvements
+
+=over 4
+
+=item -Dusethreads means something different
+
+=item New Configure flags
+
+=item Threadedness and 64-bitness now more daring
+
+=item Long Doubles
+
+=item -Dusemorebits
+
+=item -Duselargefiles
+
+=item installusrbinperl
+
+=item SOCKS support
+
+=item C<-A> flag
+
+=item Enhanced Installation Directories
+
+=back
+
+=item Platform specific changes
+
+=over 4
+
+=item Supported platforms
+
+=item DOS
+
+=item OS390 (OpenEdition MVS)
+
+=item VMS
+
+=item Win32
+
+=back
+
+=item Significant bug fixes
+
+=over 4
+
+=item <HANDLE> on empty files
+
+=item C<eval '...'> improvements
+
+=item All compilation errors are true errors
+
+=item Implicitly closed filehandles are safer
+
+=item Behavior of list slices is more consistent
+
+=item C<(\$)> prototype and C<$foo{a}>
+
+=item C<goto &sub> and AUTOLOAD
+
+=item C<-bareword> allowed under C<use integer>
+
+=item Failures in DESTROY()
+
+=item Locale bugs fixed
+
+=item Memory leaks
+
+=item Spurious subroutine stubs after failed subroutine calls
+
+=item Taint failures under C<-U>
+
+=item END blocks and the C<-c> switch
+
+=item Potential to leak DATA filehandles
+
+=back
+
+=item New or Changed Diagnostics
+
+"%s" variable %s masks earlier declaration in same %s, "my sub" not yet
+implemented, "our" variable %s redeclared, '!' allowed only after types %s,
+/ cannot take a count, / must be followed by a, A or Z, / must be followed
+by a*, A* or Z*, / must follow a numeric type, /%s/: Unrecognized escape
+\\%c passed through, /%s/: Unrecognized escape \\%c in character class
+passed through, /%s/ should probably be written as "%s", %s() called too
+early to check prototype, %s argument is not a HASH or ARRAY element, %s
+argument is not a HASH or ARRAY element or slice, %s argument is not a
+subroutine name, %s package attribute may clash with future reserved word:
+%s, (in cleanup) %s, <> should be quotes, Attempt to join self, Bad evalled
+substitution pattern, Bad realloc() ignored, Bareword found in conditional,
+Binary number > 0b11111111111111111111111111111111 non-portable, Bit vector
+size > 32 non-portable, Buffer overflow in prime_env_iter: %s, Can't check
+filesystem of script "%s", Can't declare class for non-scalar %s in "%s",
+Can't declare %s in "%s", Can't ignore signal CHLD, forcing to default,
+Can't modify non-lvalue subroutine call, Can't read CRTL environ, Can't
+remove %s: %s, skipping file, Can't return %s from lvalue subroutine, Can't
+weaken a nonreference, Character class [:%s:] unknown, Character class
+syntax [%s] belongs inside character classes, Constant is not %s reference,
+constant(%s): %s, CORE::%s is not a keyword, defined(@array) is deprecated,
+defined(%hash) is deprecated, Did not produce a valid header, (Did you mean
+"local" instead of "our"?), Document contains no data, entering effective
+%s failed, false [] range "%s" in regexp, Filehandle %s opened only for
+output, flock() on closed filehandle %s, Global symbol "%s" requires
+explicit package name, Hexadecimal number > 0xffffffff non-portable,
+Ill-formed CRTL environ value "%s", Ill-formed message in prime_env_iter:
+|%s|, Illegal binary digit %s, Illegal binary digit %s ignored, Illegal
+number of bits in vec, Integer overflow in %s number, Invalid %s attribute:
+%s, Invalid %s attributes: %s, invalid [] range "%s" in regexp, Invalid
+separator character %s in attribute list, Invalid separator character %s in
+subroutine attribute list, leaving effective %s failed, Lvalue subs
+returning %s not implemented yet, Method %s not permitted, Missing
+%sbrace%s on \N{}, Missing command in piped open, Missing name in "my sub",
+No %s specified for -%c, No package name allowed for variable %s in "our",
+No space allowed after -%c, no UTC offset information; assuming local time
+is UTC, Octal number > 037777777777 non-portable, panic: del_backref,
+panic: kid popen errno read, panic: magic_killbackrefs, Parentheses missing
+around "%s" list, Possible unintended interpolation of %s in string,
+Possible Y2K bug: %s, pragma "attrs" is deprecated, use "sub NAME : ATTRS"
+instead, Premature end of script headers, Repeat count in pack overflows,
+Repeat count in unpack overflows, realloc() of freed memory ignored,
+Reference is already weak, setpgrp can't take arguments, Strange *+?{} on
+zero-length expression, switching effective %s is not implemented, This
+Perl can't reset CRTL environ elements (%s), This Perl can't set CRTL
+environ elements (%s=%s), Too late to run %s block, Unknown open() mode
+'%s', Unknown process %x sent message to prime_env_iter: %s, Unrecognized
+escape \\%c passed through, Unterminated attribute parameter in attribute
+list, Unterminated attribute list, Unterminated attribute parameter in
+subroutine attribute list, Unterminated subroutine attribute list, Value of
+CLI symbol "%s" too long, Version number must be a constant number
+
+=item New tests
+
+=item Incompatible Changes
+
+=over 4
+
+=item Perl Source Incompatibilities
+
+CHECK is a new keyword, Treatment of list slices of undef has changed,
+Format of $English::PERL_VERSION is different, Literals of the form
+C<1.2.3> parse differently, Possibly changed pseudo-random number
+generator, Hashing function for hash keys has changed, C<undef> fails on
+read only values, Close-on-exec bit may be set on pipe and socket handles,
+Writing C<"$$1"> to mean C<"${$}1"> is unsupported, delete(), each(),
+values() and C<\(%h)>, vec(EXPR,OFFSET,BITS) enforces powers-of-two BITS,
+Text of some diagnostic output has changed, C<%@> has been removed,
+Parenthesized not() behaves like a list operator, Semantics of bareword
+prototype C<(*)> have changed, Semantics of bit operators may have changed
+on 64-bit platforms, More builtins taint their results
+
+=item C Source Incompatibilities
+
+C<PERL_POLLUTE>, C<PERL_IMPLICIT_CONTEXT>, C<PERL_POLLUTE_MALLOC>
+
+=item Compatible C Source API Changes
+
+C<PATCHLEVEL> is now C<PERL_VERSION>
+
+=item Binary Incompatibilities
+
+=back
+
+=item Known Problems
+
+=over 4
+
+=item Thread test failures
+
+=item EBCDIC platforms not supported
+
+=item In 64-bit HP-UX the lib/io_multihomed test may hang
+
+=item NEXTSTEP 3.3 POSIX test failure
+
+=item Tru64 (aka Digital UNIX, aka DEC OSF/1) lib/sdbm test failure with
+gcc
+
+=item UNICOS/mk CC failures during Configure run
+
+=item Arrow operator and arrays
+
+=item Experimental features
+
+Threads, Unicode, 64-bit support, Lvalue subroutines, Weak references, The
+pseudo-hash data type, The Compiler suite, Internal implementation of file
+globbing, The DB module, The regular expression code constructs:
+
+=back
+
+=item Obsolete Diagnostics
+
+Character class syntax [: :] is reserved for future extensions, Ill-formed
+logical name |%s| in prime_env_iter, In string, @%s now must be written as
+\@%s, Probable precedence problem on %s, regexp too big, Use of "$$<digit>"
+to mean "${$}<digit>" is deprecated
+
+=item Reporting Bugs
+
+=item SEE ALSO
+
+=item HISTORY
+
+=back
+
+=head2 perl5005delta - what's new for perl5.005
+
+=over 4
+
+=item DESCRIPTION
+
+=item About the new versioning system
+
+=item Incompatible Changes
+
+=over 4
+
+=item WARNING:	This version is not binary compatible with Perl 5.004.
+
+=item Default installation structure has changed
+
+=item Perl Source Compatibility
+
+=item C Source Compatibility
+
+=item Binary Compatibility
+
+=item Security fixes may affect compatibility
+
+=item Relaxed new mandatory warnings introduced in 5.004
+
+=item Licensing
+
+=back
+
+=item Core Changes
+
+=over 4
+
+=item Threads
+
+=item Compiler
+
+=item Regular Expressions
+
+Many new and improved optimizations, Many bug fixes, New regular expression
+constructs, New operator for precompiled regular expressions, Other
+improvements, Incompatible changes
+
+=item	Improved malloc()
+
+=item Quicksort is internally implemented
+
+=item Reliable signals
+
+=item Reliable stack pointers
+
+=item More generous treatment of carriage returns
+
+=item Memory leaks
+
+=item Better support for multiple interpreters
+
+=item Behavior of local() on array and hash elements is now well-defined
+
+=item C<%!> is transparently tied to the L<Errno> module
+
+=item Pseudo-hashes are supported
+
+=item C<EXPR foreach EXPR> is supported
+
+=item Keywords can be globally overridden
+
+=item C<$^E> is meaningful on Win32
+
+=item C<foreach (1..1000000)> optimized
+
+=item C<Foo::> can be used as implicitly quoted package name
+
+=item C<exists $Foo::{Bar::}> tests existence of a package
+
+=item Better locale support
+
+=item Experimental support for 64-bit platforms
+
+=item prototype() returns useful results on builtins
+
+=item Extended support for exception handling
+
+=item Re-blessing in DESTROY() supported for chaining DESTROY() methods
+
+=item All C<printf> format conversions are handled internally
+
+=item New C<INIT> keyword
+
+=item New C<lock> keyword
+
+=item New C<qr//> operator
+
+=item C<our> is now a reserved word
+
+=item Tied arrays are now fully supported
+
+=item Tied handles support is better
+
+=item 4th argument to substr
+
+=item Negative LENGTH argument to splice
+
+=item Magic lvalues are now more magical
+
+=item <> now reads in records
+
+=back
+
+=item Supported Platforms
+
+=over 4
+
+=item New Platforms
+
+=item Changes in existing support
+
+=back
+
+=item Modules and Pragmata
+
+=over 4
+
+=item New Modules
+
+B, Data::Dumper, Dumpvalue, Errno, File::Spec, ExtUtils::Installed,
+ExtUtils::Packlist, Fatal, IPC::SysV, Test, Tie::Array, Tie::Handle,
+Thread, attrs, fields, re
+
+=item Changes in existing modules
+
+Benchmark, Carp, CGI, Fcntl, Math::Complex, Math::Trig, POSIX, DB_File,
+MakeMaker, CPAN, Cwd
+
+=back
+
+=item Utility Changes
+
+=item Documentation Changes
+
+=item New Diagnostics
+
+Ambiguous call resolved as CORE::%s(), qualify as such or use &, Bad index
+while coercing array into hash, Bareword "%s" refers to nonexistent
+package, Can't call method "%s" on an undefined value, Can't check
+filesystem of script "%s" for nosuid, Can't coerce array into hash, Can't
+goto subroutine from an eval-string, Can't localize pseudo-hash element,
+Can't use %%! because Errno.pm is not available, Cannot find an opnumber
+for "%s", Character class syntax [. .] is reserved for future extensions,
+Character class syntax [: :] is reserved for future extensions, Character
+class syntax [= =] is reserved for future extensions, %s: Eval-group in
+insecure regular expression, %s: Eval-group not allowed, use re 'eval', %s:
+Eval-group not allowed at run time, Explicit blessing to '' (assuming
+package main), Illegal hex digit ignored, No such array field, No such
+field "%s" in variable %s of type %s, Out of memory during ridiculously
+large request, Range iterator outside integer range, Recursive inheritance
+detected while looking for method '%s' %s, Reference found where even-sized
+list expected, Undefined value assigned to typeglob, Use of reserved word
+"%s" is deprecated, perl: warning: Setting locale failed
+
+=item Obsolete Diagnostics
+
+Can't mktemp(), Can't write to temp file for B<-e>: %s, Cannot open
+temporary file, regexp too big
+
+=item Configuration Changes
+
+=item BUGS
+
+=item SEE ALSO
+
+=item HISTORY
+
+=back
+
+=head2 perl5004delta - what's new for perl5.004
+
+=over 4
+
+=item DESCRIPTION
+
+=item Supported Environments
+
+=item Core Changes
+
+=over 4
+
+=item List assignment to %ENV works
+
+=item Change to "Can't locate Foo.pm in @INC" error
+
+=item Compilation option: Binary compatibility with 5.003
+
+=item $PERL5OPT environment variable
+
+=item Limitations on B<-M>, B<-m>, and B<-T> options
+
+=item More precise warnings
+
+=item Deprecated: Inherited C<AUTOLOAD> for non-methods
+
+=item Previously deprecated %OVERLOAD is no longer usable
+
+=item Subroutine arguments created only when they're modified
+
+=item Group vector changeable with C<$)>
+
+=item Fixed parsing of $$<digit>, &$<digit>, etc.
+
+=item Fixed localization of $<digit>, $&, etc.
+
+=item No resetting of $. on implicit close
+
+=item C<wantarray> may return undef
+
+=item C<eval EXPR> determines value of EXPR in scalar context
+
+=item Changes to tainting checks
+
+No glob() or <*>, No spawning if tainted $CDPATH, $ENV, $BASH_ENV, No
+spawning if tainted $TERM doesn't look like a terminal name
+
+=item New Opcode module and revised Safe module
+
+=item Embedding improvements
+
+=item Internal change: FileHandle class based on IO::* classes
+
+=item Internal change: PerlIO abstraction interface
+
+=item New and changed syntax
+
+$coderef->(PARAMS)
+
+=item New and changed builtin constants
+
+__PACKAGE__
+
+=item New and changed builtin variables
+
+$^E, $^H, $^M
+
+=item New and changed builtin functions
+
+delete on slices, flock, printf and sprintf, keys as an lvalue, my() in
+Control Structures, pack() and unpack(), sysseek(), use VERSION, use Module
+VERSION LIST, prototype(FUNCTION), srand, $_ as Default, C<m//gc> does not
+reset search position on failure, C<m//x> ignores whitespace before ?*+{},
+nested C<sub{}> closures work now, formats work right on changing lexicals
+
+=item New builtin methods
+
+isa(CLASS), can(METHOD), VERSION( [NEED] )
+
+=item TIEHANDLE now supported
+
+TIEHANDLE classname, LIST, PRINT this, LIST, PRINTF this, LIST, READ this
+LIST, READLINE this, GETC this, DESTROY this
+
+=item Malloc enhancements
+
+-DPERL_EMERGENCY_SBRK, -DPACK_MALLOC, -DTWO_POT_OPTIMIZE
+
+=item Miscellaneous efficiency enhancements
+
+=back
+
+=item Support for More Operating Systems
+
+=over 4
+
+=item Win32
+
+=item Plan 9
+
+=item QNX
+
+=item AmigaOS
+
+=back
+
+=item Pragmata
+
+use autouse MODULE => qw(sub1 sub2 sub3), use blib, use blib 'dir', use
+constant NAME => VALUE, use locale, use ops, use vmsish
+
+=item Modules
+
+=over 4
+
+=item Required Updates
+
+=item Installation directories
+
+=item Module information summary
+
+=item Fcntl
+
+=item IO
+
+=item Math::Complex
+
+=item Math::Trig
+
+=item DB_File
+
+=item Net::Ping
+
+=item Object-oriented overrides for builtin operators
+
+=back
+
+=item Utility Changes
+
+=over 4
+
+=item pod2html
+
+Sends converted HTML to standard output
+
+=item xsubpp
+
+C<void> XSUBs now default to returning nothing
+
+=back
+
+=item C Language API Changes
+
+C<gv_fetchmethod> and C<perl_call_sv>, C<perl_eval_pv>, Extended API for
+manipulating hashes
+
+=item Documentation Changes
+
+L<perldelta>, L<perlfaq>, L<perllocale>, L<perltoot>, L<perlapio>,
+L<perlmodlib>, L<perldebug>, L<perlsec>
+
+=item New Diagnostics
+
+"my" variable %s masks earlier declaration in same scope, %s argument is
+not a HASH element or slice, Allocation too large: %lx, Allocation too
+large, Applying %s to %s will act on scalar(%s), Attempt to free
+nonexistent shared string, Attempt to use reference as lvalue in substr,
+Bareword "%s" refers to nonexistent package, Can't redefine active sort
+subroutine %s, Can't use bareword ("%s") as %s ref while "strict refs" in
+use, Cannot resolve method `%s' overloading `%s' in package `%s', Constant
+subroutine %s redefined, Constant subroutine %s undefined, Copy method did
+not return a reference, Died, Exiting pseudo-block via %s, Identifier too
+long, Illegal character %s (carriage return), Illegal switch in PERL5OPT:
+%s, Integer overflow in hex number, Integer overflow in octal number,
+internal error: glob failed, Invalid conversion in %s: "%s", Invalid type
+in pack: '%s', Invalid type in unpack: '%s', Name "%s::%s" used only once:
+possible typo, Null picture in formline, Offset outside string, Out of
+memory!, Out of memory during request for %s, panic: frexp, Possible
+attempt to put comments in qw() list, Possible attempt to separate words
+with commas, Scalar value @%s{%s} better written as $%s{%s}, Stub found
+while resolving method `%s' overloading `%s' in %s, Too late for "B<-T>"
+option, untie attempted while %d inner references still exist, Unrecognized
+character %s, Unsupported function fork, Use of "$$<digit>" to mean
+"${$}<digit>" is deprecated, Value of %s can be "0"; test with defined(),
+Variable "%s" may be unavailable, Variable "%s" will not stay shared,
+Warning: something's wrong, Ill-formed logical name |%s| in prime_env_iter,
+Got an error from DosAllocMem, Malformed PERLLIB_PREFIX, PERL_SH_DIR too
+long, Process terminated by SIG%s
+
+=item BUGS
+
+=item SEE ALSO
+
+=item HISTORY
+
+=back
+
+=head2 perlexperiment - A listing of experimental features in Perl
+
+=over 4
+
+=item DESCRIPTION
+
+=over 4
+
+=item Current experiments
+
+C<our> can now have an experimental optional attribute C<unique>, Smart
+match (C<~~>), Pluggable keywords, Lexical subroutines, Regular Expression
+Set Operations, Subroutine signatures, Aliasing via reference, The "const"
+attribute, use re 'strict';, String- and number-specific bitwise operators,
+The <:win32> IO pseudolayer, There is an C<installhtml> target in the
+Makefile, Unicode in Perl on EBCDIC
+
+=item Accepted features
+
+64-bit support, die accepts a reference, DB module, Weak references,
+Internal file glob, fork() emulation, -Dusemultiplicity -Duseithreads,
+Support for long doubles, The C<\N> regex character class, C<(?{code})> and
+C<(??{ code })>, Linux abstract Unix domain sockets, Lvalue subroutines,
+Backtracking control verbs, The <:pop> IO pseudolayer, C<\s> in regexp
+matches vertical tab, Postfix dereference syntax
+
+=item Removed features
+
+5.005-style threading, perlcc, The pseudo-hash data type, GetOpt::Long
+Options can now take multiple values at once (experimental), Assertions,
+Test::Harness::Straps, C<legacy>, Lexical C<$_>, Array and hash container
+functions accept references
+
+=back
+
+=item SEE ALSO
+
+=item AUTHORS
+
+=item COPYRIGHT
+
+=item LICENSE
+
+=back
+
+=head2 perlartistic - the Perl Artistic License
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item The "Artistic License"
+
+=over 4
+
+=item Preamble
+
+=item Definitions
+
+"Package", "Standard Version", "Copyright Holder", "You", "Reasonable
+copying fee", "Freely Available"
+
+=item Conditions
+
+a), b), c), d), a), b), c), d)
+
+=back
+
+=back
+
+=head2 perlgpl - the GNU General Public License, version 1
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=back
+
+=over 4
+
+=item GNU GENERAL PUBLIC LICENSE
+
+=back
+
+=head2 perlaix - Perl version 5 on IBM AIX (UNIX) systems
+
+=over 4
+
+=item DESCRIPTION
+
+=over 4
+
+=item Compiling Perl 5 on AIX
+
+=item Supported Compilers
+
+=item Incompatibility with AIX Toolbox lib gdbm
+
+=item Perl 5 was successfully compiled and tested on:
+
+=item Building Dynamic Extensions on AIX
+
+=item Using Large Files with Perl
+
+=item Threaded Perl
+
+=item 64-bit Perl
+
+=item Long doubles
+
+=item Recommended Options AIX 5.1/5.2/5.3/6.1 and 7.1 (threaded/32-bit)
+
+=item Recommended Options AIX 5.1/5.2/5.3/6.1 and 7.1 (32-bit)
+
+=item Recommended Options AIX 5.1/5.2/5.3/6.1 and 7.1 (threaded/64-bit)
+
+=item Recommended Options AIX 5.1/5.2/5.3/6.1 and 7.1 (64-bit)
+
+=item Compiling Perl 5 on AIX 7.1.0
+
+=item Compiling Perl 5 on older AIX versions up to 4.3.3
+
+=item OS level
+
+=item Building Dynamic Extensions on AIX E<lt> 5L
+
+=item The IBM ANSI C Compiler
+
+=item The usenm option
+
+=item Using GNU's gcc for building Perl
+
+=item Using Large Files with Perl E<lt> 5L
+
+=item Threaded Perl E<lt> 5L
+
+=item 64-bit Perl E<lt> 5L
+
+=item AIX 4.2 and extensions using C++ with statics
+
+=back
+
+=item AUTHORS
+
+=back
+
+=head2 perlamiga - Perl under AmigaOS 4.1
+
+=over 4
+
+=item NOTE
+
+=item SYNOPSIS
+
+=back
+
+=over 4
+
+=item DESCRIPTION
+
+=over 4
+
+=item Prerequisites for running Perl 5.22.1 under AmigaOS 4.1
+
+B<AmigaOS 4.1 update 6 with all updates applied as of 9th October 2013>,
+B<newlib.library version 53.28 or greater>, B<AmigaOS SDK>, B<abc-shell>
+
+=item Starting Perl programs under AmigaOS 4.1
+
+=item Limitations of Perl under AmigaOS 4.1
+
+B<Nested Piped programs can crash when run from older abc-shells>,
+B<Incorrect or unexpected command line unescaping>, B<Starting subprocesses
+via open has limitations>, If you find any other limitations or bugs then
+let me know
+
+=back
+
+=item INSTALLATION
+
+=item Amiga Specific Modules
+
+=over 4
+
+=item Amiga::ARexx
+
+=item Amiga::Exec
+
+=back
+
+=item BUILDING
+
+=item CHANGES
+
+B<August 2015>, Port to Perl 5.22, Add handling of NIL: to afstat(), Fix
+inheritance of environment variables by subprocesses, Fix exec, and exit in
+"forked" subprocesses, Fix issue with newlib's unlink, which could cause
+infinite loops, Add flock() emulation using IDOS->LockRecord thanks to Tony
+Cook for the suggestion, Fix issue where kill was using the wrong kind of
+process ID, B<27th November 2013>, Create new installation system based on
+installperl links and Amiga protection bits now set correctly, Pod now
+defaults to text, File::Spec should now recognise an Amiga style absolute
+path as well as an Unix style one. Relative paths must always be Unix
+style, B<20th November 2013>, Configured to use SDK:Local/C/perl to start
+standard scripts, Added Amiga::Exec module with support for Wait() and
+AmigaOS signal numbers, B<10th October 13>
+
+=item SEE ALSO
+
+=back
+
+=head2 perlandroid - Perl under Android
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item Cross-compilation
+
+=over 4
+
+=item Get the Android Native Development Kit (NDK)
+
+=item Determine the architecture you'll be cross-compiling for
+
+=item Set up a standalone toolchain
+
+=item adb or ssh?
+
+=item Configure and beyond
+
+=back
+
+=item Native Builds
+
+=item AUTHOR
+
+=back
+
+=head2 perlbs2000 - building and installing Perl for BS2000.
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item gzip on BS2000
+
+=item bison on BS2000
+
+=item Unpacking Perl Distribution on BS2000
+
+=item Compiling Perl on BS2000
+
+=item Testing Perl on BS2000
+
+=item Installing Perl on BS2000
+
+=item Using Perl in the Posix-Shell of BS2000
+
+=item Using Perl in "native" BS2000
+
+=item Floating point anomalies on BS2000
+
+=item Using PerlIO and different encodings on ASCII and EBCDIC partitions
+
+=back
+
+=item AUTHORS
+
+=item SEE ALSO
+
+=over 4
+
+=item Mailing list
+
+=back
+
+=item HISTORY
+
+=back
+
+=head2 perlce - Perl for WinCE
+
+=over 4
+
+=item Building Perl for WinCE
+
+=over 4
+
+=item WARNING
+
+=item DESCRIPTION
+
+=item General explanations on cross-compiling WinCE
+
+=item CURRENT BUILD INSTRUCTIONS
+
+=item OLD BUILD INSTRUCTIONS
+
+Microsoft Embedded Visual Tools, Microsoft Visual C++, Rainer Keuchel's
+celib-sources, Rainer Keuchel's console-sources, go to F<./win32>
+subdirectory, edit file F<./win32/ce-helpers/compile.bat>, run	 
+compile.bat, run    compile.bat dist
+
+=back
+
+=item Using Perl on WinCE
+
+=over 4
+
+=item DESCRIPTION
+
+=item LIMITATIONS
+
+=item ENVIRONMENT
+
+PERL5LIB, PATH, TMP, UNIXROOTPATH, ROWS/COLS, HOME, CONSOLEFONTSIZE
+
+=item REGISTRY
+
+=item XS
+
+=item BUGS
+
+=item INSTALLATION
+
+=back
+
+=item ACKNOWLEDGEMENTS
+
+=item History of WinCE port
+
+=item AUTHORS
+
+Rainer Keuchel <coyxc@rainer-keuchel.de>, Vadim Konovalov, Daniel Dragan
+
+=back
+
+=head2 perlcygwin - Perl for Cygwin
+
+=over 4
+
+=item SYNOPSIS
+
+=item PREREQUISITES FOR COMPILING PERL ON CYGWIN
+
+=over 4
+
+=item Cygwin = GNU+Cygnus+Windows (Don't leave UNIX without it)
+
+=item Cygwin Configuration
+
+C<PATH>, I<nroff>
+
+=back
+
+=item CONFIGURE PERL ON CYGWIN
+
+=over 4
+
+=item Stripping Perl Binaries on Cygwin
+
+=item Optional Libraries for Perl on Cygwin
+
+C<-lcrypt>, C<-lgdbm_compat> (C<use GDBM_File>), C<-ldb> (C<use DB_File>),
+C<cygserver> (C<use IPC::SysV>), C<-lutil>
+
+=item Configure-time Options for Perl on Cygwin
+
+C<-Uusedl>, C<-Dusemymalloc>, C<-Uuseperlio>, C<-Dusemultiplicity>,
+C<-Uuse64bitint>, C<-Duselongdouble>, C<-Uuseithreads>, C<-Duselargefiles>,
+C<-Dmksymlinks>
+
+=item Suspicious Warnings on Cygwin
+
+Win9x and C<d_eofnblk>, Compiler/Preprocessor defines
+
+=back
+
+=item MAKE ON CYGWIN
+
+=item TEST ON CYGWIN
+
+=over 4
+
+=item File Permissions on Cygwin
+
+=item NDBM_File and ODBM_File do not work on FAT filesystems
+
+=item C<fork()> failures in io_* tests
+
+=back
+
+=item Specific features of the Cygwin port
+
+=over 4
+
+=item Script Portability on Cygwin
+
+Pathnames, Text/Binary, PerlIO, F<.exe>, Cygwin vs. Windows process ids,
+Cygwin vs. Windows errors, rebase errors on fork or system, C<chown()>,
+Miscellaneous
+
+=item Prebuilt methods:
+
+C<Cwd::cwd>, C<Cygwin::pid_to_winpid>, C<Cygwin::winpid_to_pid>,
+C<Cygwin::win_to_posix_path>, C<Cygwin::posix_to_win_path>,
+C<Cygwin::mount_table()>, C<Cygwin::mount_flags>, C<Cygwin::is_binmount>,
+C<Cygwin::sync_winenv>
+
+=back
+
+=item INSTALL PERL ON CYGWIN
+
+=item MANIFEST ON CYGWIN
+
+Documentation, Build, Configure, Make, Install, Tests, Compiled Perl
+Source, Compiled Module Source, Perl Modules/Scripts, Perl Module Tests
+
+=item BUGS ON CYGWIN
+
+=item AUTHORS
+
+=item HISTORY
+
+=back
+
+=head2 perldos - Perl under DOS, W31, W95.
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item Prerequisites for Compiling Perl on DOS
+
+DJGPP, Pthreads
+
+=item Shortcomings of Perl under DOS
+
+=item Building Perl on DOS
+
+=item Testing Perl on DOS
+
+=item Installation of Perl on DOS
+
+=back
+
+=item BUILDING AND INSTALLING MODULES ON DOS
+
+=over 4
+
+=item Building Prerequisites for Perl on DOS
+
+=item Unpacking CPAN Modules on DOS
+
+=item Building Non-XS Modules on DOS
+
+=item Building XS Modules on DOS
+
+=back
+
+=item AUTHOR
+
+=item SEE ALSO
+
+=back
+
+=head2 perlfreebsd - Perl version 5 on FreeBSD systems
+
+=over 4
+
+=item DESCRIPTION
+
+=over 4
+
+=item FreeBSD core dumps from readdir_r with ithreads
+
+=item $^X doesn't always contain a full path in FreeBSD
+
+=back
+
+=item AUTHOR
+
+=back
+
+=head2 perlhaiku - Perl version 5.10+ on Haiku
+
+=over 4
+
+=item DESCRIPTION
+
+=item BUILD AND INSTALL
+
+=item KNOWN PROBLEMS
+
+=item CONTACT
+
+=back
+
+=head2 perlhpux - Perl version 5 on Hewlett-Packard Unix (HP-UX) systems
+
+=over 4
+
+=item DESCRIPTION
+
+=over 4
+
+=item Using perl as shipped with HP-UX
+
+=item Using perl from HP's porting centre
+
+=item Other prebuilt perl binaries
+
+=item Compiling Perl 5 on HP-UX
+
+=item PA-RISC
+
+=item Portability Between PA-RISC Versions
+
+=item PA-RISC 1.0
+
+=item PA-RISC 1.1
+
+=item PA-RISC 2.0
+
+=item Itanium Processor Family (IPF) and HP-UX
+
+=item Itanium, Itanium 2 & Madison 6
+
+=item HP-UX versions
+
+=item Building Dynamic Extensions on HP-UX
+
+=item The HP ANSI C Compiler
+
+=item The GNU C Compiler
+
+=item Using Large Files with Perl on HP-UX
+
+=item Threaded Perl on HP-UX
+
+=item 64-bit Perl on HP-UX
+
+=item Oracle on HP-UX
+
+=item GDBM and Threads on HP-UX
+
+=item NFS filesystems and utime(2) on HP-UX
+
+=item HP-UX Kernel Parameters (maxdsiz) for Compiling Perl
+
+=back
+
+=item nss_delete core dump from op/pwent or op/grent
+
+=item error: pasting ")" and "l" does not give a valid preprocessing token
+
+=item Redeclaration of "sendpath" with a different storage class specifier
+
+=item Miscellaneous
+
+=item AUTHOR
+
+=back
+
+=head2 perlhurd - Perl version 5 on Hurd
+
+=over 4
+
+=item DESCRIPTION
+
+=over 4
+
+=item Known Problems with Perl on Hurd 
+
+=back
+
+=item AUTHOR
+
+=back
+
+=head2 perlirix - Perl version 5 on Irix systems
+
+=over 4
+
+=item DESCRIPTION
+
+=over 4
+
+=item Building 32-bit Perl in Irix
+
+=item Building 64-bit Perl in Irix
+
+=item About Compiler Versions of Irix
+
+=item Linker Problems in Irix
+
+=item Malloc in Irix
+
+=item Building with threads in Irix
+
+=item Irix 5.3
+
+=back
+
+=item AUTHOR
+
+=back
+
+=head2 perllinux - Perl version 5 on Linux systems
+
+=over 4
+
+=item DESCRIPTION
+
+=over 4
+
+=item Experimental Support for Sun Studio Compilers for Linux OS
+
+=back
+
+=item AUTHOR
+
+=back
+
+=head2 perlmacos - Perl under Mac OS (Classic)
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item AUTHOR
+
+=back
+
+=head2 perlmacosx - Perl under Mac OS X
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item Installation Prefix
+
+=item SDK support
+
+=item Universal Binary support
+
+=item 64-bit PPC support
+
+=item libperl and Prebinding
+
+=item Updating Apple's Perl
+
+=item Known problems
+
+=item Cocoa
+
+=back
+
+=item Starting From Scratch
+
+=item AUTHOR
+
+=item DATE
+
+=back
+
+=head2 perlnetware - Perl for NetWare
+
+=over 4
+
+=item DESCRIPTION
+
+=item BUILD
+
+=over 4
+
+=item Tools & SDK
+
+=item Setup
+
+SetNWBld.bat, Buildtype.bat
+
+=item Make
+
+=item Interpreter
+
+=item Extensions
+
+=back
+
+=item INSTALL
+
+=item BUILD NEW EXTENSIONS
+
+=item ACKNOWLEDGEMENTS
+
+=item AUTHORS
+
+=item DATE
+
+=back
+
+=head2 perlopenbsd - Perl version 5 on OpenBSD systems
+
+=over 4
+
+=item DESCRIPTION
+
+=over 4
+
+=item OpenBSD core dumps from getprotobyname_r and getservbyname_r with
+ithreads
+
+=back
+
+=item AUTHOR
+
+=back
+
+=head2 perlos2 - Perl under OS/2, DOS, Win0.3*, Win0.95 and WinNT.
+
+=over 4
+
+=item SYNOPSIS
+
+=back
+
+=over 4
+
+=item DESCRIPTION
+
+=over 4
+
+=item Target
+
+=item Other OSes
+
+=item Prerequisites
+
+EMX, RSX, HPFS, pdksh
+
+=item Starting Perl programs under OS/2 (and DOS and...)
+
+=item Starting OS/2 (and DOS) programs under Perl
+
+=back
+
+=item Frequently asked questions
+
+=over 4
+
+=item "It does not work"
+
+=item I cannot run external programs
+
+=item I cannot embed perl into my program, or use F<perl.dll> from my
+program. 
+
+Is your program EMX-compiled with C<-Zmt -Zcrtdll>?, Did you use
+L<ExtUtils::Embed>?
+
+=item C<``> and pipe-C<open> do not work under DOS.
+
+=item Cannot start C<find.exe "pattern" file>
+
+=back
+
+=item INSTALLATION
+
+=over 4
+
+=item Automatic binary installation
+
+C<PERL_BADLANG>, C<PERL_BADFREE>, F<Config.pm>
+
+=item Manual binary installation
+
+Perl VIO and PM executables (dynamically linked), Perl_ VIO executable
+(statically linked), Executables for Perl utilities, Main Perl library,
+Additional Perl modules, Tools to compile Perl modules, Manpages for Perl
+and utilities, Manpages for Perl modules, Source for Perl documentation,
+Perl manual in F<.INF> format, Pdksh
+
+=item B<Warning>
+
+=back
+
+=item Accessing documentation
+
+=over 4
+
+=item OS/2 F<.INF> file
+
+=item Plain text
+
+=item Manpages
+
+=item HTML
+
+=item GNU C<info> files
+
+=item F<PDF> files
+
+=item C<LaTeX> docs
+
+=back
+
+=item BUILD
+
+=over 4
+
+=item The short story
+
+=item Prerequisites
+
+=item Getting perl source
+
+=item Application of the patches
+
+=item Hand-editing
+
+=item Making
+
+=item Testing
+
+A lot of C<bad free>, Process terminated by SIGTERM/SIGINT, F<op/fs.t>,
+Z<>18, Z<>25, F<op/stat.t>
+
+=item Installing the built perl
+
+=item C<a.out>-style build
+
+=back
+
+=item Building a binary distribution
+
+=item Building custom F<.EXE> files
+
+=over 4
+
+=item Making executables with a custom collection of statically loaded
+extensions
+
+=item Making executables with a custom search-paths
+
+=back
+
+=item Build FAQ
+
+=over 4
+
+=item Some C</> became C<\> in pdksh.
+
+=item C<'errno'> - unresolved external
+
+=item Problems with tr or sed
+
+=item Some problem (forget which ;-)
+
+=item Library ... not found
+
+=item Segfault in make
+
+=item op/sprintf test failure
+
+=back
+
+=item Specific (mis)features of OS/2 port
+
+=over 4
+
+=item C<setpriority>, C<getpriority>
+
+=item C<system()>
+
+=item C<extproc> on the first line
+
+=item Additional modules:
+
+=item Prebuilt methods:
+
+C<File::Copy::syscopy>, C<DynaLoader::mod2fname>,  C<Cwd::current_drive()>,
+ C<Cwd::sys_chdir(name)>,  C<Cwd::change_drive(name)>, 
+C<Cwd::sys_is_absolute(name)>,	C<Cwd::sys_is_rooted(name)>, 
+C<Cwd::sys_is_relative(name)>,	C<Cwd::sys_cwd(name)>, 
+C<Cwd::sys_abspath(name, dir)>,  C<Cwd::extLibpath([type])>, 
+C<Cwd::extLibpath_set( path [, type ] )>,
+C<OS2::Error(do_harderror,do_exception)>, C<OS2::Errors2Drive(drive)>,
+OS2::SysInfo(), OS2::BootDrive(), C<OS2::MorphPM(serve)>,
+C<OS2::UnMorphPM(serve)>, C<OS2::Serve_Messages(force)>,
+C<OS2::Process_Messages(force [, cnt])>, C<OS2::_control87(new,mask)>,
+OS2::get_control87(), C<OS2::set_control87_em(new=MCW_EM,mask=MCW_EM)>,
+C<OS2::DLLname([how [, \&xsub]])>
+
+=item Prebuilt variables:
+
+$OS2::emx_rev, $OS2::emx_env, $OS2::os_ver, $OS2::is_aout, $OS2::can_fork,
+$OS2::nsyserror
+
+=item Misfeatures
+
+=item Modifications
+
+C<popen>, C<tmpnam>, C<tmpfile>, C<ctermid>, C<stat>, C<mkdir>, C<rmdir>,
+C<flock>
+
+=item Identifying DLLs
+
+=item Centralized management of resources
+
+C<HAB>, C<HMQ>, Treating errors reported by OS/2 API,
+C<CheckOSError(expr)>, C<CheckWinError(expr)>, C<SaveWinError(expr)>,
+C<SaveCroakWinError(expr,die,name1,name2)>, C<WinError_2_Perl_rc>,
+C<FillWinError>, C<FillOSError(rc)>, Loading DLLs and ordinals in DLLs
+
+=back
+
+=item Perl flavors
+
+=over 4
+
+=item F<perl.exe>
+
+=item F<perl_.exe>
+
+=item F<perl__.exe>
+
+=item F<perl___.exe>
+
+=item Why strange names?
+
+=item Why dynamic linking?
+
+=item Why chimera build?
+
+=back
+
+=item ENVIRONMENT
+
+=over 4
+
+=item C<PERLLIB_PREFIX>
+
+=item C<PERL_BADLANG>
+
+=item C<PERL_BADFREE>
+
+=item C<PERL_SH_DIR>
+
+=item C<USE_PERL_FLOCK>
+
+=item C<TMP> or C<TEMP>
+
+=back
+
+=item Evolution
+
+=over 4
+
+=item Text-mode filehandles
+
+=item Priorities
+
+=item DLL name mangling: pre 5.6.2
+
+=item DLL name mangling: 5.6.2 and beyond
+
+Global DLLs, specific DLLs, C<BEGINLIBPATH> and C<ENDLIBPATH>, F<.> from
+C<LIBPATH>
+
+=item DLL forwarder generation
+
+=item Threading
+
+=item Calls to external programs
+
+=item Memory allocation
+
+=item Threads
+
+C<COND_WAIT>, F<os2.c>
+
+=back
+
+=item BUGS
+
+=back
+
+=over 4
+
+=item AUTHOR
+
+=item SEE ALSO
+
+=back
+
+=head2 perlos390 - building and installing Perl for OS/390 and z/OS
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item Tools
+
+=item Unpacking Perl distribution on OS/390
+
+=item Setup and utilities for Perl on OS/390
+
+=item Configure Perl on OS/390
+
+=item Build, Test, Install Perl on OS/390
+
+=item Build Anomalies with Perl on OS/390
+
+=item Testing Anomalies with Perl on OS/390
+
+=item Installation Anomalies with Perl on OS/390
+
+=item Usage Hints for Perl on OS/390
+
+=item Floating Point Anomalies with Perl on OS/390
+
+=item Modules and Extensions for Perl on OS/390
+
+=back
+
+=item AUTHORS
+
+=item SEE ALSO
+
+=over 4
+
+=item Mailing list for Perl on OS/390
+
+=back
+
+=item HISTORY
+
+=back
+
+=head2 perlos400 - Perl version 5 on OS/400
+
+=over 4
+
+=item DESCRIPTION
+
+=over 4
+
+=item Compiling Perl for OS/400 PASE
+
+=item Installing Perl in OS/400 PASE
+
+=item Using Perl in OS/400 PASE
+
+=item Known Problems
+
+=item Perl on ILE
+
+=back
+
+=item AUTHORS
+
+=back
+
+=head2 perlplan9 - Plan 9-specific documentation for Perl
+
+=over 4
+
+=item DESCRIPTION
+
+=over 4
+
+=item Invoking Perl
+
+=item What's in Plan 9 Perl
+
+=item What's not in Plan 9 Perl
+
+=item Perl5 Functions not currently supported in Plan 9 Perl
+
+=item Signals in Plan 9 Perl
+
+=back
+
+=item COMPILING AND INSTALLING PERL ON PLAN 9
+
+=over 4
+
+=item Installing Perl Documentation on Plan 9
+
+=back
+
+=item BUGS
+
+=item Revision date
+
+=item AUTHOR
+
+=back
+
+=head2 perlqnx - Perl version 5 on QNX
+
+=over 4
+
+=item DESCRIPTION
+
+=over 4
+
+=item Required Software for Compiling Perl on QNX4
+
+/bin/sh, ar, nm, cpp, make
+
+=item Outstanding Issues with Perl on QNX4
+
+=item QNX auxiliary files
+
+qnx/ar, qnx/cpp
+
+=item Outstanding issues with perl under QNX6
+
+=item Cross-compilation
+
+=back
+
+=item AUTHOR
+
+=back
+
+=head2 perlriscos - Perl version 5 for RISC OS
+
+=over 4
+
+=item DESCRIPTION
+
+=item BUILD
+
+=item AUTHOR
+
+=back
+
+=head2 perlsolaris - Perl version 5 on Solaris systems
+
+=over 4
+
+=item DESCRIPTION
+
+=over 4
+
+=item Solaris Version Numbers.
+
+=back
+
+=item RESOURCES
+
+Solaris FAQ, Precompiled Binaries, Solaris Documentation
+
+=item SETTING UP
+
+=over 4
+
+=item File Extraction Problems on Solaris.
+
+=item Compiler and Related Tools on Solaris.
+
+=item Environment for Compiling perl on Solaris
+
+=back
+
+=item RUN CONFIGURE.
+
+=over 4
+
+=item 64-bit perl on Solaris.
+
+=item Threads in perl on Solaris.
+
+=item Malloc Issues with perl on Solaris.
+
+=back
+
+=item MAKE PROBLEMS.
+
+Dynamic Loading Problems With GNU as and GNU ld, ld.so.1: ./perl: fatal:
+relocation error:, dlopen: stub interception failed, #error "No
+DATAMODEL_NATIVE specified", sh: ar: not found
+
+=item MAKE TEST
+
+=over 4
+
+=item op/stat.t test 4 in Solaris
+
+=item nss_delete core dump from op/pwent or op/grent
+
+=back
+
+=item CROSS-COMPILATION
+
+=item PREBUILT BINARIES OF PERL FOR SOLARIS.
+
+=item RUNTIME ISSUES FOR PERL ON SOLARIS.
+
+=over 4
+
+=item Limits on Numbers of Open Files on Solaris.
+
+=back
+
+=item SOLARIS-SPECIFIC MODULES.
+
+=item SOLARIS-SPECIFIC PROBLEMS WITH MODULES.
+
+=over 4
+
+=item Proc::ProcessTable on Solaris
+
+=item BSD::Resource on Solaris
+
+=item Net::SSLeay on Solaris
+
+=back
+
+=item SunOS 4.x
+
+=item AUTHOR
+
+=back
+
+=head2 perlsymbian - Perl version 5 on Symbian OS
+
+=over 4
+
+=item DESCRIPTION
+
+=over 4
+
+=item Compiling Perl on Symbian
+
+=item Compilation problems
+
+=item PerlApp
+
+=item sisify.pl
+
+=item Using Perl in Symbian
+
+=back
+
+=item TO DO
+
+=item WARNING
+
+=item NOTE
+
+=item AUTHOR
+
+=item COPYRIGHT
+
+=item LICENSE
+
+=item HISTORY
+
+=back
+
+=head2 perlsynology - Perl 5 on Synology DSM systems
+
+=over 4
+
+=item DESCRIPTION
+
+=over 4
+
+=item Setting up the build environment
+
+=item Compiling Perl 5
+
+=item Known problems
+
+Error message "No error definitions found",
+F<ext/DynaLoader/t/DynaLoader.t>
+
+=item Smoke testing Perl 5
+
+=item Adding libraries
+
+=back
+
+=item REVISION
+
+=item AUTHOR
+
+=back
+
+=head2 perltru64 - Perl version 5 on Tru64 (formerly known as Digital UNIX
+formerly known as DEC OSF/1) systems
+
+=over 4
+
+=item DESCRIPTION
+
+=over 4
+
+=item Compiling Perl 5 on Tru64
+
+=item Using Large Files with Perl on Tru64
+
+=item Threaded Perl on Tru64
+
+=item Long Doubles on Tru64
+
+=item DB_File tests failing on Tru64
+
+=item 64-bit Perl on Tru64
+
+=item Warnings about floating-point overflow when compiling Perl on Tru64
+
+=back
+
+=item Testing Perl on Tru64
+
+=item ext/ODBM_File/odbm Test Failing With Static Builds
+
+=item Perl Fails Because Of Unresolved Symbol sockatmark
+
+=item read_cur_obj_info: bad file magic number
+
+=item AUTHOR
+
+=back
+
+=head2 perlvms - VMS-specific documentation for Perl
+
+=over 4
+
+=item DESCRIPTION
+
+=item Installation
+
+=item Organization of Perl Images
+
+=over 4
+
+=item Core Images
+
+=item Perl Extensions
+
+=item Installing static extensions
+
+=item Installing dynamic extensions
+
+=back
+
+=item File specifications
+
+=over 4
+
+=item Syntax
+
+=item Filename Case
+
+=item Symbolic Links
+
+=item Wildcard expansion
+
+=item Pipes
+
+=back
+
+=item PERL5LIB and PERLLIB
+
+=item The Perl Forked Debugger
+
+=item PERL_VMS_EXCEPTION_DEBUG
+
+=item Command line
+
+=over 4
+
+=item I/O redirection and backgrounding
+
+=item Command line switches
+
+-i, -S, -u
+
+=back
+
+=item Perl functions
+
+File tests, backticks, binmode FILEHANDLE, crypt PLAINTEXT, USER, die,
+dump, exec LIST, fork, getpwent, getpwnam, getpwuid, gmtime, kill, qx//,
+select (system call), stat EXPR, system LIST, time, times, unlink LIST,
+utime LIST, waitpid PID,FLAGS
+
+=item Perl variables
+
+%ENV, CRTL_ENV, CLISYM_[LOCAL], Any other string, $!, $^E, $?, $|
+
+=item Standard modules with VMS-specific differences
+
+=over 4
+
+=item SDBM_File
+
+=back
+
+=item Revision date
+
+=item AUTHOR
+
+=back
+
+=head2 perlvos - Perl for Stratus OpenVOS
+
+=over 4
+
+=item SYNOPSIS
+
+=item BUILDING PERL FOR OPENVOS
+
+=item INSTALLING PERL IN OPENVOS
+
+=item USING PERL IN OPENVOS
+
+=over 4
+
+=item Restrictions of Perl on OpenVOS
+
+=back
+
+=item TEST STATUS
+
+=item SUPPORT STATUS
+
+=item AUTHOR
+
+=item LAST UPDATE
+
+=back
+
+=head2 perlwin32 - Perl under Windows
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+L<http://mingw.org>, L<http://mingw-w64.org>
+
+=over 4
+
+=item Setting Up Perl on Windows
+
+Make, Command Shell, Microsoft Visual C++, Microsoft Visual C++ 2008-2013
+Express Edition, Microsoft Visual C++ 2005 Express Edition, Microsoft
+Visual C++ Toolkit 2003, Microsoft Platform SDK 64-bit Compiler, MinGW
+release 3 with gcc, Intel C++ Compiler
+
+=item Building
+
+=item Testing Perl on Windows
+
+=item Installation of Perl on Windows
+
+=item Usage Hints for Perl on Windows
+
+Environment Variables, File Globbing, Using perl from the command line,
+Building Extensions, Command-line Wildcard Expansion, Notes on 64-bit
+Windows
+
+=item Running Perl Scripts
+
+=item Miscellaneous Things
+
+=back
+
+=item BUGS AND CAVEATS
+
+=item ACKNOWLEDGEMENTS
+
+=item AUTHORS
+
+Gary Ng E<lt>71564.1743@CompuServe.COME<gt>, Gurusamy Sarathy
+E<lt>gsar@activestate.comE<gt>, Nick Ing-Simmons
+E<lt>nick@ing-simmons.netE<gt>, Jan Dubois E<lt>jand@activestate.comE<gt>,
+Steve Hay E<lt>steve.m.hay@googlemail.comE<gt>
+
+=item SEE ALSO
+
+=item HISTORY
+
+=back
+
+=head2 perlboot - Links to information on object-oriented programming in
+Perl
+
+=over 4
+
+=item DESCRIPTION
+
+=back
+
+=head2 perlbot - Links to information on object-oriented programming in
+Perl
+
+=over 4
+
+=item DESCRIPTION
+
+=back
+
+=head2 perlrepository - Links to current information on the Perl source
+repository
+
+=over 4
+
+=item DESCRIPTION
+
+=back
+
+=head2 perltodo - Link to the Perl to-do list
+
+=over 4
+
+=item DESCRIPTION
+
+=back
+
+=head2 perltooc - Links to information on object-oriented programming in
+Perl
+
+=over 4
+
+=item DESCRIPTION
+
+=back
+
+=head2 perltoot - Links to information on object-oriented programming in
+Perl
+
+=over 4
+
+=item DESCRIPTION
+
+=back
+
+=head1 PRAGMA DOCUMENTATION
+
+=head2 arybase - Set indexing base via $[
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item HISTORY
+
+=item BUGS
+
+=item SEE ALSO
+
+=back
+
+=head2 attributes - get/set subroutine or variable attributes
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item What C<import> does
+
+=item Built-in Attributes
+
+lvalue, method, prototype(..), locked, const, shared, unique
+
+=item Available Subroutines
+
+get, reftype
+
+=item Package-specific Attribute Handling
+
+FETCH_I<type>_ATTRIBUTES, MODIFY_I<type>_ATTRIBUTES
+
+=item Syntax of Attribute Lists
+
+=back
+
+=item EXPORTS
+
+=over 4
+
+=item Default exports
+
+=item Available exports
+
+=item Export tags defined
+
+=back
+
+=item EXAMPLES
+
+=item MORE EXAMPLES
+
+=item SEE ALSO
+
+=back
+
+=head2 autodie - Replace functions with ones that succeed or die with
+lexical scope
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item EXCEPTIONS
+
+=item CATEGORIES
+
+=item FUNCTION SPECIFIC NOTES
+
+=over 4
+
+=item print
+
+=item flock
+
+=item system/exec
+
+=back
+
+=item GOTCHAS
+
+=item DIAGNOSTICS
+
+:void cannot be used with lexical scope, No user hints defined for %s
+
+=item BUGS
+
+=over 4
+
+=item autodie and string eval
+
+=item REPORTING BUGS
+
+=back
+
+=item FEEDBACK
+
+=item AUTHOR
+
+=item LICENSE
+
+=item SEE ALSO
+
+=item ACKNOWLEDGEMENTS
+
+=back
+
+=head2 autodie::Scope::Guard - Wrapper class for calling subs at end of
+scope
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item Methods
+
+=back
+
+=item AUTHOR
+
+=item LICENSE
+
+=back
+
+=head2 autodie::Scope::GuardStack -  Hook stack for managing scopes via %^H
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item Methods
+
+=back
+
+=item AUTHOR
+
+=item LICENSE
+
+=back
+
+=head2 autodie::Util - Internal Utility subroutines for autodie and Fatal
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item Methods
+
+=back
+
+=item AUTHOR
+
+=item LICENSE
+
+=back
+
+=head2 autodie::exception - Exceptions from autodying functions.
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item Common Methods
+
+=back
+
+=back
+
+=over 4
+
+=item Advanced methods
+
+=back
+
+=over 4
+
+=item SEE ALSO
+
+=item LICENSE
+
+=item AUTHOR
+
+=back
+
+=head2 autodie::exception::system - Exceptions from autodying system().
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=back
+
+=over 4
+
+=item stringify
+
+=back
+
+=over 4
+
+=item LICENSE
+
+=item AUTHOR
+
+=back
+
+=head2 autodie::hints - Provide hints about user subroutines to autodie
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item Introduction
+
+=item What are hints?
+
+=item Example hints
+
+=back
+
+=item Manually setting hints from within your program
+
+=item Adding hints to your module
+
+=item Insisting on hints
+
+=back
+
+=over 4
+
+=item Diagnostics
+
+Attempts to set_hints_for unidentifiable subroutine, fail hints cannot be
+provided with either scalar or list hints for %s, %s hint missing for %s
+
+=item ACKNOWLEDGEMENTS
+
+=item AUTHOR
+
+=item LICENSE
+
+=item SEE ALSO
+
+=back
+
+=head2 autodie::skip - Skip a package when throwing autodie exceptions
+
+=over 4
+
+=item SYNPOSIS
+
+=item DESCRIPTION
+
+=item AUTHOR
+
+=item LICENSE
+
+=item SEE ALSO
+
+=back
+
+=head2 autouse - postpone load of modules until a function is used
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item WARNING
+
+=item AUTHOR
+
+=item SEE ALSO
+
+=back
+
+=head2 base - Establish an ISA relationship with base classes at compile
+time
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item DIAGNOSTICS
+
+Base class package "%s" is empty, Class 'Foo' tried to inherit from itself
+
+=item HISTORY
+
+=item CAVEATS
+
+=item SEE ALSO
+
+=back
+
+=head2 bigint - Transparent BigInteger support for Perl
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item use integer vs. use bigint
+
+=item Options
+
+a or accuracy, p or precision, t or trace, hex, oct, l, lib, try or only, v
+or version
+
+=item Math Library
+
+=item Internal Format
+
+=item Sign
+
+=item Method calls
+
+=item Methods
+
+inf(), NaN(), e, PI, bexp(), bpi(), upgrade(), in_effect()
+
+=back
+
+=item CAVEATS
+
+Operator vs literal overloading, ranges, in_effect(), hex()/oct()
+
+=item MODULES USED
+
+=item EXAMPLES
+
+=item LICENSE
+
+=item SEE ALSO
+
+=item AUTHORS
+
+=back
+
+=head2 bignum - Transparent BigNumber support for Perl
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item Options
+
+a or accuracy, p or precision, t or trace, l or lib, hex, oct, v or version
+
+=item Methods
+
+=item Caveats
+
+inf(), NaN(), e, PI(), bexp(), bpi(), upgrade(), in_effect()
+
+=item Math Library
+
+=item INTERNAL FORMAT
+
+=item SIGN
+
+=back
+
+=item CAVEATS
+
+Operator vs literal overloading, in_effect(), hex()/oct()
+
+=item MODULES USED
+
+=item EXAMPLES
+
+=item LICENSE
+
+=item SEE ALSO
+
+=item AUTHORS
+
+=back
+
+=head2 bigrat - Transparent BigNumber/BigRational support for Perl
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item Modules Used
+
+=item Math Library
+
+=item Sign
+
+=item Methods
+
+inf(), NaN(), e, PI, bexp(), bpi(), upgrade(), in_effect()
+
+=item MATH LIBRARY
+
+=item Caveat
+
+=item Options
+
+a or accuracy, p or precision, t or trace, l or lib, hex, oct, v or version
+
+=back
+
+=item CAVEATS
+
+Operator vs literal overloading, in_effect(), hex()/oct()
+
+=item EXAMPLES
+
+=item LICENSE
+
+=item SEE ALSO
+
+=item AUTHORS
+
+=back
+
+=head2 blib - Use MakeMaker's uninstalled version of a package
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item BUGS
+
+=item AUTHOR
+
+=back
+
+=head2 bytes - Perl pragma to expose the individual bytes of characters
+
+=over 4
+
+=item NOTICE
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item LIMITATIONS
+
+=item SEE ALSO
+
+=back
+
+=head2 charnames - access to Unicode character names and named character
+sequences; also define character names
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item LOOSE MATCHES
+
+=item ALIASES
+
+=item CUSTOM ALIASES
+
+=item charnames::string_vianame(I<name>)
+
+=item charnames::vianame(I<name>)
+
+=item charnames::viacode(I<code>)
+
+=item CUSTOM TRANSLATORS
+
+=item BUGS
+
+=back
+
+=head2 constant - Perl pragma to declare constants
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item NOTES
+
+=over 4
+
+=item List constants
+
+=item Defining multiple constants at once
+
+=item Magic constants
+
+=back
+
+=item TECHNICAL NOTES
+
+=item CAVEATS
+
+=item SEE ALSO
+
+=item BUGS
+
+=item AUTHORS
+
+=item COPYRIGHT & LICENSE
+
+=back
+
+=head2 deprecate - Perl pragma for deprecating the core version of a module
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item EXPORT
+
+=back
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=item COPYRIGHT AND LICENSE
+
+=back
+
+=head2 diagnostics, splain - produce verbose warning diagnostics
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item The C<diagnostics> Pragma
+
+=item The I<splain> Program
+
+=back
+
+=item EXAMPLES
+
+=item INTERNALS
+
+=item BUGS
+
+=item AUTHOR
+
+=back
+
+=head2 encoding - allows you to write your script in non-ASCII and
+non-UTF-8
+
+=over 4
+
+=item WARNING
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+C<use encoding ['I<ENCNAME>'] ;>, C<use encoding I<ENCNAME>
+Filter=E<gt>1;>, C<no encoding;>
+
+=item OPTIONS
+
+=over 4
+
+=item Setting C<STDIN> and/or C<STDOUT> individually
+
+=item The C<:locale> sub-pragma
+
+=back
+
+=item CAVEATS
+
+=over 4
+
+=item SIDE EFFECTS
+
+=item DO NOT MIX MULTIPLE ENCODINGS
+
+=item Prior to Perl v5.22
+
+=item Prior to Encode version 1.87
+
+=item Prior to Perl v5.8.1
+
+"NON-EUC" doublebyte encodings, C<tr///>, Legend of characters above
+
+=back
+
+=item EXAMPLE - Greekperl
+
+=item BUGS
+
+Thread safety, Can't be used by more than one module in a single program,
+Other modules using C<STDIN> and C<STDOUT> get the encoded stream, literals
+in regex that are longer than 127 bytes, EBCDIC, C<format>, See also
+L</CAVEATS>
+
+=item HISTORY
+
+=item SEE ALSO
+
+=back
+
+=head2 encoding::warnings - Warn on implicit encoding conversions
+
+=over 4
+
+=item VERSION
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item Overview of the problem
+
+=item Detecting the problem
+
+=item Solving the problem
+
+Upgrade both sides to unicode-strings, Downgrade both sides to
+byte-strings, Specify the encoding for implicit byte-string upgrading,
+PerlIO layers for B<STDIN> and B<STDOUT>, Literal conversions, Implicit
+upgrading for byte-strings
+
+=back
+
+=item CAVEATS
+
+=back
+
+=over 4
+
+=item SEE ALSO
+
+=item AUTHORS
+
+=item COPYRIGHT
+
+=back
+
+=head2 experimental - Experimental features made easy
+
+=over 4
+
+=item VERSION
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item Ordering matters
+
+=item Disclaimer
+
+=back
+
+=item AUTHOR
+
+=item COPYRIGHT AND LICENSE
+
+=back
+
+=head2 feature - Perl pragma to enable new features
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item Lexical effect
+
+=item C<no feature>
+
+=back
+
+=item AVAILABLE FEATURES
+
+=over 4
+
+=item The 'say' feature
+
+=item The 'state' feature
+
+=item The 'switch' feature
+
+=item The 'unicode_strings' feature
+
+=item The 'unicode_eval' and 'evalbytes' features
+
+=item The 'current_sub' feature
+
+=item The 'array_base' feature
+
+=item The 'fc' feature
+
+=item The 'lexical_subs' feature
+
+=item The 'postderef' and 'postderef_qq' features
+
+=item The 'signatures' feature
+
+=item The 'refaliasing' feature
+
+=item The 'bitwise' feature
+
+=back
+
+=item FEATURE BUNDLES
+
+=item IMPLICIT LOADING
+
+=back
+
+=head2 fields - compile-time class fields
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+new, phash
+
+=item SEE ALSO
+
+=back
+
+=head2 filetest - Perl pragma to control the filetest permission operators
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item Consider this carefully
+
+=item The "access" sub-pragma
+
+=item Limitation with regard to C<_>
+
+=back
+
+=back
+
+=head2 if - C<use> a Perl module if a condition holds (also can C<no> a
+module)
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item EXAMPLES
+
+=back
+
+=item BUGS
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=item COPYRIGHT AND LICENCE
+
+=back
+
+=head2 integer - Perl pragma to use integer arithmetic instead of floating
+point
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=back
+
+=head2 less - perl pragma to request less of something
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item FOR MODULE AUTHORS
+
+=over 4
+
+=item C<< BOOLEAN = less->of( FEATURE ) >>
+
+=item C<< FEATURES = less->of() >>
+
+=back
+
+=item CAVEATS
+
+This probably does nothing, This works only on 5.10+
+
+=back
+
+=head2 lib - manipulate @INC at compile time
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item Adding directories to @INC
+
+=item Deleting directories from @INC
+
+=item Restoring original @INC
+
+=back
+
+=item CAVEATS
+
+=item NOTES
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=item COPYRIGHT AND LICENSE
+
+=back
+
+=head2 locale - Perl pragma to use or avoid POSIX locales for built-in
+operations
+
+=over 4
+
+=item WARNING
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=back
+
+=head2 mro - Method Resolution Order
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item OVERVIEW
+
+=item The C3 MRO
+
+=over 4
+
+=item What is C3?
+
+=item How does C3 work
+
+=back
+
+=item Functions
+
+=over 4
+
+=item mro::get_linear_isa($classname[, $type])
+
+=item mro::set_mro ($classname, $type)
+
+=item mro::get_mro($classname)
+
+=item mro::get_isarev($classname)
+
+=item mro::is_universal($classname)
+
+=item mro::invalidate_all_method_caches()
+
+=item mro::method_changed_in($classname)
+
+=item mro::get_pkg_gen($classname)
+
+=item next::method
+
+=item next::can
+
+=item maybe::next::method
+
+=back
+
+=item SEE ALSO
+
+=over 4
+
+=item The original Dylan paper
+
+L<http://haahr.tempdomainname.com/dylan/linearization-oopsla96.html>
+
+=item Pugs
+
+=item Parrot
+
+L<http://use.perl.org/~autrijus/journal/25768>
+
+=item Python 2.3 MRO related links
+
+L<http://www.python.org/2.3/mro.html>,
+L<http://www.python.org/2.2.2/descrintro.html#mro>
+
+=item Class::C3
+
+L<Class::C3>
+
+=back
+
+=item AUTHOR
+
+=back
+
+=head2 ok - Alternative to Test::More::use_ok
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item CC0 1.0 Universal
+
+=back
+
+=head2 open - perl pragma to set default PerlIO layers for input and output
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item NONPERLIO FUNCTIONALITY
+
+=item IMPLEMENTATION DETAILS
+
+=item SEE ALSO
+
+=back
+
+=head2 ops - Perl pragma to restrict unsafe operations when compiling
+
+=over 4
+
+=item SYNOPSIS	
+
+=item DESCRIPTION
+
+=item SEE ALSO
+
+=back
+
+=head2 overload - Package for overloading Perl operations
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item Fundamentals
+
+=item Overloadable Operations
+
+C<not>, C<neg>, C<++>, C<-->, I<Assignments>, I<Non-mutators with a mutator
+variant>, C<int>, I<String, numeric, boolean, and regexp conversions>,
+I<Iteration>, I<File tests>, I<Matching>, I<Dereferencing>, I<Special>
+
+=item Magic Autogeneration
+
+=item Special Keys for C<use overload>
+
+defined, but FALSE, C<undef>, TRUE
+
+=item How Perl Chooses an Operator Implementation
+
+=item Losing Overloading
+
+=item Inheritance and Overloading
+
+Method names in the C<use overload> directive, Overloading of an operation
+is inherited by derived classes
+
+=item Run-time Overloading
+
+=item Public Functions
+
+overload::StrVal(arg), overload::Overloaded(arg), overload::Method(obj,op)
+
+=item Overloading Constants
+
+integer, float, binary, q, qr
+
+=back
+
+=item IMPLEMENTATION
+
+=item COOKBOOK
+
+=over 4
+
+=item Two-face Scalars
+
+=item Two-face References
+
+=item Symbolic Calculator
+
+=item I<Really> Symbolic Calculator
+
+=back
+
+=item AUTHOR
+
+=item SEE ALSO
+
+=item DIAGNOSTICS
+
+Odd number of arguments for overload::constant, '%s' is not an overloadable
+type, '%s' is not a code reference, overload arg '%s' is invalid
+
+=item BUGS AND PITFALLS
+
+=back
+
+=head2 overloading - perl pragma to lexically control overloading
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+C<no overloading>, C<no overloading @ops>, C<use overloading>, C<use
+overloading @ops>
+
+=back
+
+=head2 parent - Establish an ISA relationship with base classes at compile
+time
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item HISTORY
+
+=item CAVEATS
+
+=item SEE ALSO
+
+=item AUTHORS AND CONTRIBUTORS
+
+=item MAINTAINER
+
+=item LICENSE
+
+=back
+
+=head2 re - Perl pragma to alter regular expression behaviour
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item 'taint' mode
+
+=item 'eval' mode
+
+=item 'strict' mode
+
+=item '/flags' mode
+
+=item 'debug' mode
+
+=item 'Debug' mode
+
+Compile related options, COMPILE, PARSE, OPTIMISE, TRIEC, DUMP, FLAGS,
+TEST, Execute related options, EXECUTE, MATCH, TRIEE, INTUIT, Extra
+debugging options, EXTRA, BUFFERS, TRIEM, STATE, STACK, GPOS, OPTIMISEM,
+OFFSETS, OFFSETSDBG, Other useful flags, ALL, All, MORE, More
+
+=item Exportable Functions
+
+is_regexp($ref), regexp_pattern($ref), regmust($ref), regname($name,$all),
+regnames($all), regnames_count()
+
+=back
+
+=item SEE ALSO
+
+=back
+
+=head2 sigtrap - Perl pragma to enable simple signal handling
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item OPTIONS
+
+=over 4
+
+=item SIGNAL HANDLERS
+
+B<stack-trace>, B<die>, B<handler> I<your-handler>
+
+=item SIGNAL LISTS
+
+B<normal-signals>, B<error-signals>, B<old-interface-signals>
+
+=item OTHER
+
+B<untrapped>, B<any>, I<signal>, I<number>
+
+=back
+
+=item EXAMPLES
+
+=back
+
+=head2 sort - perl pragma to control sort() behaviour
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item CAVEATS
+
+=back
+
+=head2 strict - Perl pragma to restrict unsafe constructs
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+C<strict refs>, C<strict vars>, C<strict subs>
+
+=item HISTORY
+
+=back
+
+=head2 subs - Perl pragma to predeclare sub names
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=back
+
+=head2 threads - Perl interpreter-based threads
+
+=over 4
+
+=item VERSION
+
+=item WARNING
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+$thr = threads->create(FUNCTION, ARGS), $thr->join(), $thr->detach(),
+threads->detach(), threads->self(), $thr->tid(), threads->tid(), "$thr",
+threads->object($tid), threads->yield(), threads->list(),
+threads->list(threads::all), threads->list(threads::running),
+threads->list(threads::joinable), $thr1->equal($thr2), async BLOCK;,
+$thr->error(), $thr->_handle(), threads->_handle()
+
+=item EXITING A THREAD
+
+threads->exit(), threads->exit(status), die(), exit(status), use threads
+'exit' => 'threads_only', threads->create({'exit' => 'thread_only'}, ...),
+$thr->set_thread_exit_only(boolean), threads->set_thread_exit_only(boolean)
+
+=item THREAD STATE
+
+$thr->is_running(), $thr->is_joinable(), $thr->is_detached(),
+threads->is_detached()
+
+=item THREAD CONTEXT
+
+=over 4
+
+=item Explicit context
+
+=item Implicit context
+
+=item $thr->wantarray()
+
+=item threads->wantarray()
+
+=back
+
+=item THREAD STACK SIZE
+
+threads->get_stack_size();, $size = $thr->get_stack_size();, $old_size =
+threads->set_stack_size($new_size);, use threads ('stack_size' => VALUE);,
+$ENV{'PERL5_ITHREADS_STACK_SIZE'}, threads->create({'stack_size' => VALUE},
+FUNCTION, ARGS), $thr2 = $thr1->create(FUNCTION, ARGS)
+
+=item THREAD SIGNALLING
+
+$thr->kill('SIG...');
+
+=item WARNINGS
+
+Perl exited with active threads:, Thread creation failed: pthread_create
+returned #, Thread # terminated abnormally: .., Using minimum thread stack
+size of #, Thread creation failed: pthread_attr_setstacksize(I<SIZE>)
+returned 22
+
+=item ERRORS
+
+This Perl not built to support threads, Cannot change stack size of an
+existing thread, Cannot signal threads without safe signals, Unrecognized
+signal name: ..
+
+=item BUGS AND LIMITATIONS
+
+Thread-safe modules, Using non-thread-safe modules, Memory consumption,
+Current working directory, Environment variables, Catching signals,
+Parent-child threads, Creating threads inside special blocks, Unsafe
+signals, Perl has been built with C<PERL_OLD_SIGNALS> (see C<perl -V>), The
+environment variable C<PERL_SIGNALS> is set to C<unsafe> (see
+L<perlrun/"PERL_SIGNALS">), The module L<Perl::Unsafe::Signals> is used,
+Returning closures from threads, Returning objects from threads, END blocks
+in threads, Open directory handles, Perl Bugs and the CPAN Version of
+L<threads>
+
+=item REQUIREMENTS
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=item LICENSE
+
+=item ACKNOWLEDGEMENTS
+
+=back
+
+=head2 threads::shared - Perl extension for sharing data structures between
+threads
+
+=over 4
+
+=item VERSION
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item EXPORT
+
+=item FUNCTIONS
+
+share VARIABLE, shared_clone REF, is_shared VARIABLE, lock VARIABLE,
+cond_wait VARIABLE, cond_wait CONDVAR, LOCKVAR, cond_timedwait VARIABLE,
+ABS_TIMEOUT, cond_timedwait CONDVAR, ABS_TIMEOUT, LOCKVAR, cond_signal
+VARIABLE, cond_broadcast VARIABLE
+
+=item OBJECTS
+
+=item NOTES
+
+=item WARNINGS
+
+cond_broadcast() called on unlocked variable, cond_signal() called on
+unlocked variable
+
+=item BUGS AND LIMITATIONS
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=item LICENSE
+
+=back
+
+=head2 utf8 - Perl pragma to enable/disable UTF-8 (or UTF-EBCDIC) in source
+code
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item Utility functions
+
+C<$num_octets = utf8::upgrade($string)>, C<$success =
+utf8::downgrade($string[, $fail_ok])>, C<utf8::encode($string)>, C<$success
+= utf8::decode($string)>, C<$unicode =
+utf8::native_to_unicode($code_point)>, C<$native =
+utf8::unicode_to_native($code_point)>, C<$flag = utf8::is_utf8($string)>,
+C<$flag = utf8::valid($string)>
+
+=back
+
+=item BUGS
+
+=item SEE ALSO
+
+=back
+
+=head2 vars - Perl pragma to predeclare global variable names
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=back
+
+=head2 version - Perl extension for Version Objects
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item TYPES OF VERSION OBJECTS
+
+Decimal Versions, Dotted Decimal Versions
+
+=item DECLARING VERSIONS
+
+=over 4
+
+=item How to convert a module from decimal to dotted-decimal
+
+=item How to C<declare()> a dotted-decimal version
+
+=back
+
+=item PARSING AND COMPARING VERSIONS
+
+=over 4
+
+=item How to C<parse()> a version
+
+=item How to check for a legal version string
+
+C<is_lax()>, C<is_strict()>
+
+=item How to compare version objects
+
+=back
+
+=item OBJECT METHODS
+
+=over 4
+
+=item is_alpha()
+
+=item is_qv()
+
+=item normal()
+
+=item numify()
+
+=item stringify()
+
+=back
+
+=item EXPORTED FUNCTIONS
+
+=over 4
+
+=item qv()
+
+=item is_lax()
+
+=item is_strict()
+
+=back
+
+=item AUTHOR
+
+=item SEE ALSO
+
+=back
+
+=head2 version::Internals - Perl extension for Version Objects
+
+=over 4
+
+=item DESCRIPTION
+
+=item WHAT IS A VERSION?
+
+Decimal versions, Dotted-Decimal versions
+
+=over 4
+
+=item Decimal Versions
+
+=item Dotted-Decimal Versions
+
+=item Alpha Versions
+
+=item Regular Expressions for Version Parsing
+
+C<$version::LAX>, C<$version::STRICT>, v1.234.5
+
+=back
+
+=item IMPLEMENTATION DETAILS
+
+=over 4
+
+=item Equivalence between Decimal and Dotted-Decimal Versions
+
+=item Quoting Rules
+
+=item What about v-strings?
+
+=item Version Object Internals
+
+original, qv, alpha, version
+
+=item Replacement UNIVERSAL::VERSION
+
+=back
+
+=item USAGE DETAILS
+
+=over 4
+
+=item Using modules that use version.pm
+
+Decimal versions always work, Dotted-Decimal version work sometimes
+
+=item Object Methods
+
+new(), qv(), Normal Form, Numification, Stringification, Comparison
+operators, Logical Operators
+
+=back
+
+=item AUTHOR
+
+=item SEE ALSO
+
+=back
+
+=head2 vmsish - Perl pragma to control VMS-specific language features
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+C<vmsish status>, C<vmsish exit>, C<vmsish time>, C<vmsish hushed>
+
+=back
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item Default Warnings and Optional Warnings
+
+=item What's wrong with B<-w> and C<$^W>
+
+=item Controlling Warnings from the Command Line
+
+B<-w> X<-w>, B<-W> X<-W>, B<-X> X<-X>
+
+=item Backward Compatibility
+
+=item Category Hierarchy
+X<warning, categories>
+
+=item Fatal Warnings
+X<warning, fatal>
+
+=item Reporting Warnings from a Module
+X<warning, reporting> X<warning, registering>
+
+=back
+
+=item FUNCTIONS
+
+use warnings::register, warnings::enabled(), warnings::enabled($category),
+warnings::enabled($object), warnings::fatal_enabled(),
+warnings::fatal_enabled($category), warnings::fatal_enabled($object),
+warnings::warn($message), warnings::warn($category, $message),
+warnings::warn($object, $message), warnings::warnif($message),
+warnings::warnif($category, $message), warnings::warnif($object, $message),
+warnings::register_categories(@names)
+
+=back
+
+=head2 warnings::register - warnings import function
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=back
+
+=head1 MODULE DOCUMENTATION
+
+=head2 AnyDBM_File - provide framework for multiple DBMs
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item DBM Comparisons
+
+[0], [1], [2], [3]
+
+=back
+
+=item SEE ALSO
+
+=back
+
+=head2 App::Cpan - easily interact with CPAN from the command line
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item Options
+
+-a, -A module [ module ... ], -c module, -C module [ module ... ], -D
+module [ module ... ], -f, -F, -g module [ module ... ], -G module [ module
+... ], -h, -i, -I, -j Config.pm, -J, -l, -L author [ author ... ], -m, -M
+mirror1,mirror2,.., -n, -O, -p, -P, -r, -t, -T, -u, -v, -V, -w
+
+=item Examples
+
+=item Environment variables
+
+NONINTERACTIVE_TESTING, PERL_MM_USE_DEFAULT, CPAN_OPTS,
+CPANSCRIPT_LOGLEVEL, GIT_COMMAND
+
+=item Methods
+
+=back
+
+=back
+
+run()
+
+=over 4
+
+=item EXIT VALUES
+
+=item TO DO
+
+=item BUGS
+
+=item SEE ALSO
+
+=item SOURCE AVAILABILITY
+
+=item CREDITS
+
+=item AUTHOR
+
+=item COPYRIGHT
+
+=back
+
+=head2 App::Prove - Implements the C<prove> command.
+
+=over 4
+
+=item VERSION
+
+=back
+
+=over 4
+
+=item DESCRIPTION
+
+=item SYNOPSIS
+
+=back
+
+=over 4
+
+=item METHODS
+
+=over 4
+
+=item Class Methods
+
+=back
+
+=back
+
+=over 4
+
+=item Attributes
+
+C<archive>, C<argv>, C<backwards>, C<blib>, C<color>, C<directives>,
+C<dry>, C<exec>, C<extensions>, C<failures>, C<comments>, C<formatter>,
+C<harness>, C<ignore_exit>, C<includes>, C<jobs>, C<lib>, C<merge>,
+C<modules>, C<parse>, C<plugins>, C<quiet>, C<really_quiet>, C<recurse>,
+C<rules>, C<show_count>, C<show_help>, C<show_man>, C<show_version>,
+C<shuffle>, C<state>, C<state_class>, C<taint_fail>, C<taint_warn>,
+C<test_args>, C<timer>, C<verbose>, C<warnings_fail>, C<warnings_warn>,
+C<tapversion>, C<trap>
+
+=back
+
+=over 4
+
+=item PLUGINS
+
+=over 4
+
+=item Sample Plugin
+
+=back
+
+=item SEE ALSO
+
+=back
+
+=head2 App::Prove::State - State storage for the C<prove> command.
+
+=over 4
+
+=item VERSION
+
+=back
+
+=over 4
+
+=item DESCRIPTION
+
+=item SYNOPSIS
+
+=back
+
+=over 4
+
+=item METHODS
+
+=over 4
+
+=item Class Methods
+
+C<store>, C<extensions> (optional), C<result_class> (optional)
+
+=back
+
+=back
+
+=over 4
+
+=item C<result_class>
+
+=back
+
+=over 4
+
+=item C<extensions>
+
+=back
+
+=over 4
+
+=item C<results>
+
+=back
+
+=over 4
+
+=item C<commit>
+
+=back
+
+=over 4
+
+=item Instance Methods
+
+C<last>, C<failed>, C<passed>, C<all>, C<hot>, C<todo>, C<slow>, C<fast>,
+C<new>, C<old>, C<save>
+
+=back
+
+=head2 App::Prove::State::Result - Individual test suite results.
+
+=over 4
+
+=item VERSION
+
+=back
+
+=over 4
+
+=item DESCRIPTION
+
+=item SYNOPSIS
+
+=back
+
+=over 4
+
+=item METHODS
+
+=over 4
+
+=item Class Methods
+
+=back
+
+=back
+
+=over 4
+
+=item C<state_version>
+
+=back
+
+=over 4
+
+=item C<test_class>
+
+=back
+
+=head2 App::Prove::State::Result::Test - Individual test results.
+
+=over 4
+
+=item VERSION
+
+=back
+
+=over 4
+
+=item DESCRIPTION
+
+=item SYNOPSIS
+
+=back
+
+=over 4
+
+=item METHODS
+
+=over 4
+
+=item Class Methods
+
+=back
+
+=back
+
+=over 4
+
+=item Instance Methods
+
+=back
+
+=head2 Archive::Tar - module for manipulations of tar archives
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item Object Methods
+
+=over 4
+
+=item Archive::Tar->new( [$file, $compressed] )
+
+=back
+
+=back
+
+=over 4
+
+=item $tar->read ( $filename|$handle, [$compressed, {opt => 'val'}] )
+
+limit, filter, md5, extract
+
+=back
+
+=over 4
+
+=item $tar->contains_file( $filename )
+
+=back
+
+=over 4
+
+=item $tar->extract( [@filenames] )
+
+=back
+
+=over 4
+
+=item $tar->extract_file( $file, [$extract_path] )
+
+=back
+
+=over 4
+
+=item $tar->list_files( [\@properties] )
+
+=back
+
+=over 4
+
+=item $tar->get_files( [@filenames] )
+
+=back
+
+=over 4
+
+=item $tar->get_content( $file )
+
+=back
+
+=over 4
+
+=item $tar->replace_content( $file, $content )
+
+=back
+
+=over 4
+
+=item $tar->rename( $file, $new_name )
+
+=back
+
+=over 4
+
+=item $tar->chmod( $file, $mode )
+
+=back
+
+=over 4
+
+=item $tar->chown( $file, $uname [, $gname] )
+
+=back
+
+=over 4
+
+=item $tar->remove (@filenamelist)
+
+=back
+
+=over 4
+
+=item $tar->clear
+
+=back
+
+=over 4
+
+=item $tar->write ( [$file, $compressed, $prefix] )
+
+=back
+
+=over 4
+
+=item $tar->add_files( @filenamelist )
+
+=back
+
+=over 4
+
+=item $tar->add_data ( $filename, $data, [$opthashref] )
+
+FILE, HARDLINK, SYMLINK, CHARDEV, BLOCKDEV, DIR, FIFO, SOCKET
+
+=back
+
+=over 4
+
+=item $tar->error( [$BOOL] )
+
+=back
+
+=over 4
+
+=item $tar->setcwd( $cwd );
+
+=back
+
+=over 4
+
+=item Class Methods
+
+=over 4
+
+=item Archive::Tar->create_archive($file, $compressed, @filelist)
+
+=back
+
+=back
+
+=over 4
+
+=item Archive::Tar->iter( $filename, [ $compressed, {opt => $val} ] )
+
+=back
+
+=over 4
+
+=item Archive::Tar->list_archive($file, $compressed, [\@properties])
+
+=back
+
+=over 4
+
+=item Archive::Tar->extract_archive($file, $compressed)
+
+=back
+
+=over 4
+
+=item $bool = Archive::Tar->has_io_string
+
+=back
+
+=over 4
+
+=item $bool = Archive::Tar->has_perlio
+
+=back
+
+=over 4
+
+=item $bool = Archive::Tar->has_zlib_support
+
+=back
+
+=over 4
+
+=item $bool = Archive::Tar->has_bzip2_support
+
+=back
+
+=over 4
+
+=item Archive::Tar->can_handle_compressed_files
+
+=back
+
+=over 4
+
+=item GLOBAL VARIABLES
+
+=over 4
+
+=item $Archive::Tar::FOLLOW_SYMLINK
+
+=item $Archive::Tar::CHOWN
+
+=item $Archive::Tar::CHMOD
+
+=item $Archive::Tar::SAME_PERMISSIONS
+
+=item $Archive::Tar::DO_NOT_USE_PREFIX
+
+=item $Archive::Tar::DEBUG
+
+=item $Archive::Tar::WARN
+
+=item $Archive::Tar::error
+
+=item $Archive::Tar::INSECURE_EXTRACT_MODE
+
+=item $Archive::Tar::HAS_PERLIO
+
+=item $Archive::Tar::HAS_IO_STRING
+
+=item $Archive::Tar::ZERO_PAD_NUMBERS
+
+=item Tuning the way RESOLVE_SYMLINK will works
+
+=back
+
+=back
+
+=over 4
+
+=item FAQ
+
+What's the minimum perl version required to run Archive::Tar?, Isn't
+Archive::Tar slow?, Isn't Archive::Tar heavier on memory than /bin/tar?,
+Can you lazy-load data instead?, How much memory will an X kb tar file
+need?, What do you do with unsupported filetypes in an archive?, I'm using
+WinZip, or some other non-POSIX client, and files are not being extracted
+properly!, How do I extract only files that have property X from an
+archive?, How do I access .tar.Z files?, How do I handle Unicode strings?
+
+=item CAVEATS
+
+=item TODO
+
+Check if passed in handles are open for read/write, Allow archives to be
+passed in as string, Facilitate processing an opened filehandle of a
+compressed archive
+
+=item SEE ALSO
+
+The GNU tar specification, The PAX format specification, A comparison of
+GNU and POSIX tar standards;
+C<http://www.delorie.com/gnu/docs/tar/tar_114.html>, GNU tar intends to
+switch to POSIX compatibility, A Comparison between various tar
+implementations
+
+=item AUTHOR
+
+=item ACKNOWLEDGEMENTS
+
+=item COPYRIGHT
+
+=back
+
+=head2 Archive::Tar::File - a subclass for in-memory extracted file from
+Archive::Tar
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item Accessors
+
+name, mode, uid, gid, size, mtime, chksum, type, linkname, magic, version,
+uname, gname, devmajor, devminor, prefix, raw
+
+=back
+
+=item Methods
+
+=over 4
+
+=item Archive::Tar::File->new( file => $path )
+
+=item Archive::Tar::File->new( data => $path, $data, $opt )
+
+=item Archive::Tar::File->new( chunk => $chunk )
+
+=back
+
+=back
+
+=over 4
+
+=item $bool = $file->extract( [ $alternative_name ] )
+
+=back
+
+=over 4
+
+=item $path = $file->full_path
+
+=back
+
+=over 4
+
+=item $bool = $file->validate
+
+=back
+
+=over 4
+
+=item $bool = $file->has_content
+
+=back
+
+=over 4
+
+=item $content = $file->get_content
+
+=back
+
+=over 4
+
+=item $cref = $file->get_content_by_ref
+
+=back
+
+=over 4
+
+=item $bool = $file->replace_content( $content )
+
+=back
+
+=over 4
+
+=item $bool = $file->rename( $new_name )
+
+=back
+
+=over 4
+
+=item $bool = $file->chmod $mode)
+
+=back
+
+=over 4
+
+=item $bool = $file->chown( $user [, $group])
+
+=back
+
+=over 4
+
+=item Convenience methods
+
+$file->is_file, $file->is_dir, $file->is_hardlink, $file->is_symlink,
+$file->is_chardev, $file->is_blockdev, $file->is_fifo, $file->is_socket,
+$file->is_longlink, $file->is_label, $file->is_unknown
+
+=back
+
+=head2 Attribute::Handlers - Simpler definition of attribute handlers
+
+=over 4
+
+=item VERSION
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+[0], [1], [2], [3], [4], [5], [6], [7]
+
+=over 4
+
+=item Typed lexicals
+
+=item Type-specific attribute handlers
+
+=item Non-interpretive attribute handlers
+
+=item Phase-specific attribute handlers
+
+=item Attributes as C<tie> interfaces
+
+=back
+
+=item EXAMPLES
+
+=item UTILITY FUNCTIONS
+
+findsym
+
+=item DIAGNOSTICS
+
+C<Bad attribute type: ATTR(%s)>, C<Attribute handler %s doesn't handle %s
+attributes>, C<Declaration of %s attribute in package %s may clash with
+future reserved word>, C<Can't have two ATTR specifiers on one subroutine>,
+C<Can't autotie a %s>, C<Internal error: %s symbol went missing>, C<Won't
+be able to apply END handler>
+
+=item AUTHOR
+
+=item BUGS
+
+=item COPYRIGHT AND LICENSE
+
+=back
+
+=head2 AutoLoader - load subroutines only on demand
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item Subroutine Stubs
+
+=item Using B<AutoLoader>'s AUTOLOAD Subroutine
+
+=item Overriding B<AutoLoader>'s AUTOLOAD Subroutine
+
+=item Package Lexicals
+
+=item Not Using AutoLoader
+
+=item B<AutoLoader> vs. B<SelfLoader>
+
+=item Forcing AutoLoader to Load a Function
+
+=back
+
+=item CAVEATS
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=item COPYRIGHT AND LICENSE
+
+=back
+
+=head2 AutoSplit - split a package for autoloading
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+$keep, $check, $modtime
+
+=over 4
+
+=item Multiple packages
+
+=back
+
+=item DIAGNOSTICS
+
+=item AUTHOR
+
+=item COPYRIGHT AND LICENSE
+
+=back
+
+=head2 B - The Perl Compiler Backend
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item OVERVIEW
+
+=item Utility Functions
+
+=over 4
+
+=item Functions Returning C<B::SV>, C<B::AV>, C<B::HV>, and C<B::CV>
+objects
+
+sv_undef, sv_yes, sv_no, svref_2object(SVREF), amagic_generation, init_av,
+check_av, unitcheck_av, begin_av, end_av, comppadlist, regex_padav, main_cv
+
+=item Functions for Examining the Symbol Table
+
+walksymtable(SYMREF, METHOD, RECURSE, PREFIX)
+
+=item Functions Returning C<B::OP> objects or for walking op trees
+
+main_root, main_start, walkoptree(OP, METHOD), walkoptree_debug(DEBUG)
+
+=item Miscellaneous Utility Functions
+
+ppname(OPNUM), hash(STR), cast_I32(I), minus_c, cstring(STR),
+perlstring(STR), safename(STR), class(OBJ), threadsv_names
+
+=item Exported utility variables
+
+@optype, @specialsv_name
+
+=back
+
+=item OVERVIEW OF CLASSES
+
+=over 4
+
+=item SV-RELATED CLASSES
+
+=item B::SV Methods
+
+REFCNT, FLAGS, object_2svref
+
+=item B::IV Methods
+
+IV, IVX, UVX, int_value, needs64bits, packiv
+
+=item B::NV Methods
+
+NV, NVX, COP_SEQ_RANGE_LOW, COP_SEQ_RANGE_HIGH
+
+=item B::RV Methods
+
+RV
+
+=item B::PV Methods
+
+PV, RV, PVX, CUR, LEN
+
+=item B::PVMG Methods
+
+MAGIC, SvSTASH
+
+=item B::MAGIC Methods
+
+MOREMAGIC, precomp, PRIVATE, TYPE, FLAGS, OBJ, PTR, REGEX
+
+=item B::PVLV Methods
+
+TARGOFF, TARGLEN, TYPE, TARG
+
+=item B::BM Methods
+
+USEFUL, PREVIOUS, RARE, TABLE
+
+=item B::REGEXP Methods
+
+REGEX, precomp, qr_anoncv, compflags
+
+=item B::GV Methods
+
+is_empty, NAME, SAFENAME, STASH, SV, IO, FORM, AV, HV, EGV, CV, CVGEN,
+LINE, FILE, FILEGV, GvREFCNT, FLAGS, GPFLAGS
+
+=item B::IO Methods
+
+LINES, PAGE, PAGE_LEN, LINES_LEFT, TOP_NAME, TOP_GV, FMT_NAME, FMT_GV,
+BOTTOM_NAME, BOTTOM_GV, SUBPROCESS, IoTYPE, IoFLAGS, IsSTD
+
+=item B::AV Methods
+
+FILL, MAX, ARRAY, ARRAYelt, OFF, AvFLAGS
+
+=item B::CV Methods
+
+STASH, START, ROOT, GV, FILE, DEPTH, PADLIST, OUTSIDE, OUTSIDE_SEQ, XSUB,
+XSUBANY, CvFLAGS, const_sv, NAME_HEK
+
+=item B::HV Methods
+
+FILL, MAX, KEYS, RITER, NAME, ARRAY, PMROOT
+
+=item OP-RELATED CLASSES
+
+=item B::OP Methods
+
+next, sibling, parent, name, ppaddr, desc, targ, type, opt, flags, private,
+spare
+
+=item B::UNOP Method
+
+first
+
+=item B::UNOP_AUX Methods (since 5.22)
+
+aux_list(cv), string(cv)
+
+=item B::BINOP Method
+
+last
+
+=item B::LOGOP Method
+
+other
+
+=item B::LISTOP Method
+
+children
+
+=item B::PMOP Methods
+
+pmreplroot, pmreplstart, pmnext, pmflags, extflags, precomp, pmoffset,
+code_list, pmregexp
+
+=item B::SVOP Methods
+
+sv, gv
+
+=item B::PADOP Method
+
+padix
+
+=item B::PVOP Method
+
+pv
+
+=item B::LOOP Methods
+
+redoop, nextop, lastop
+
+=item B::COP Methods
+
+label, stash, stashpv, stashoff (threaded only), file, cop_seq, arybase,
+line, warnings, io, hints, hints_hash
+
+=item B::METHOP Methods (Since Perl 5.22)
+
+first, meth_sv
+
+=item PAD-RELATED CLASSES
+
+=item B::PADLIST Methods
+
+MAX, ARRAY, ARRAYelt, NAMES, REFCNT, id, outid
+
+=item B::PADNAMELIST Methods
+
+MAX, ARRAY, ARRAYelt, REFCNT
+
+=item B::PADNAME Methods
+
+PV, PVX, LEN, REFCNT, FLAGS, TYPE, SvSTASH, OURSTASH, PROTOCV,
+COP_SEQ_RANGE_LOW, COP_SEQ_RANGE_HIGH, PARENT_PAD_INDEX,
+PARENT_FAKELEX_FLAGS
+
+=item $B::overlay
+
+=back
+
+=item AUTHOR
+
+=back
+
+=head2 B::Concise - Walk Perl syntax tree, printing concise info about ops
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item EXAMPLE
+
+=item OPTIONS
+
+=over 4
+
+=item Options for Opcode Ordering
+
+B<-basic>, B<-exec>, B<-tree>
+
+=item Options for Line-Style
+
+B<-concise>, B<-terse>, B<-linenoise>, B<-debug>, B<-env>
+
+=item Options for tree-specific formatting
+
+B<-compact>, B<-loose>, B<-vt>, B<-ascii>
+
+=item Options controlling sequence numbering
+
+B<-base>I<n>, B<-bigendian>, B<-littleendian>
+
+=item Other options
+
+B<-src>, B<-stash="somepackage">, B<-main>, B<-nomain>, B<-nobanner>,
+B<-banner>, B<-banneris> => subref
+
+=item Option Stickiness
+
+=back
+
+=item ABBREVIATIONS
+
+=over 4
+
+=item OP class abbreviations
+
+=item OP flags abbreviations
+
+=back
+
+=item FORMATTING SPECIFICATIONS
+
+=over 4
+
+=item Special Patterns
+
+B<(x(>I<exec_text>B<;>I<basic_text>B<)x)>, B<(*(>I<text>B<)*)>,
+B<(*(>I<text1>B<;>I<text2>B<)*)>, B<(?(>I<text1>B<#>I<var>I<Text2>B<)?)>,
+B<~>
+
+=item # Variables
+
+B<#>I<var>, B<#>I<var>I<N>, B<#>I<Var>, B<#addr>, B<#arg>, B<#class>,
+B<#classsym>, B<#coplabel>, B<#exname>, B<#extarg>, B<#firstaddr>,
+B<#flags>, B<#flagval>, B<#hints>, B<#hintsval>, B<#hyphseq>, B<#label>,
+B<#lastaddr>, B<#name>, B<#NAME>, B<#next>, B<#nextaddr>, B<#noise>,
+B<#private>, B<#privval>, B<#seq>, B<#seqnum>, B<#opt>, B<#sibaddr>,
+B<#svaddr>, B<#svclass>, B<#svval>, B<#targ>, B<#targarg>, B<#targarglife>,
+B<#typenum>
+
+=back
+
+=item One-Liner Command tips
+
+perl -MO=Concise,bar foo.pl, perl -MDigest::MD5=md5 -MO=Concise,md5 -e1,
+perl -MPOSIX -MO=Concise,_POSIX_ARG_MAX -e1, perl -MPOSIX -MO=Concise,a -e
+'print _POSIX_SAVED_IDS', perl -MPOSIX -MO=Concise,a -e 'sub
+a{_POSIX_SAVED_IDS}', perl -MB::Concise -e
+'B::Concise::compile("-exec","-src", \%B::Concise::)->()'
+
+=item Using B::Concise outside of the O framework
+
+=over 4
+
+=item Example: Altering Concise Renderings
+
+=item set_style()
+
+=item set_style_standard($name)
+
+=item add_style ()
+
+=item add_callback ()
+
+=item Running B::Concise::compile()
+
+=item B::Concise::reset_sequence()
+
+=item Errors
+
+=back
+
+=item AUTHOR
+
+=back
+
+=head2 B::Debug - Walk Perl syntax tree, printing debug info about ops
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item OPTIONS
+
+=item AUTHOR
+
+=item LICENSE
+
+=back
+
+=head2 B::Deparse - Perl compiler backend to produce perl code
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item OPTIONS
+
+B<-d>, B<-f>I<FILE>, B<-l>, B<-p>, B<-P>, B<-q>, B<-s>I<LETTERS>, B<C>,
+B<i>I<NUMBER>, B<T>, B<v>I<STRING>B<.>, B<-x>I<LEVEL>
+
+=item USING B::Deparse AS A MODULE
+
+=over 4
+
+=item Synopsis
+
+=item Description
+
+=item new
+
+=item ambient_pragmas
+
+strict, $[, bytes, utf8, integer, re, warnings, hint_bits, warning_bits,
+%^H
+
+=item coderef2text
+
+=back
+
+=item BUGS
+
+=item AUTHOR
+
+=back
+
+=head2 B::Op_private -	OP op_private flag definitions
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item C<%bits>
+
+=item C<%defines>
+
+=item C<%labels>
+
+=item C<%ops_using>
+
+=back
+
+=back
+
+=head2 B::Showlex - Show lexical variables used in functions or files
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item EXAMPLES
+
+=over 4
+
+=item OPTIONS
+
+=back
+
+=item SEE ALSO
+
+=item TODO
+
+=item AUTHOR
+
+=back
+
+=head2 B::Terse - Walk Perl syntax tree, printing terse info about ops
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item AUTHOR
+
+=back
+
+=head2 B::Xref - Generates cross reference reports for Perl programs
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+i, &, s, r
+
+=item OPTIONS
+
+C<-oFILENAME>, C<-r>, C<-d>, C<-D[tO]>
+
+=item BUGS
+
+=item AUTHOR
+
+=back
+
+=head2 Benchmark - benchmark running times of Perl code
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item Methods
+
+new, debug, iters
+
+=item Standard Exports
+
+timeit(COUNT, CODE), timethis ( COUNT, CODE, [ TITLE, [ STYLE ]] ),
+timethese ( COUNT, CODEHASHREF, [ STYLE ] ), timediff ( T1, T2 ), timestr (
+TIMEDIFF, [ STYLE, [ FORMAT ] ] )
+
+=item Optional Exports
+
+clearcache ( COUNT ), clearallcache ( ), cmpthese ( COUNT, CODEHASHREF, [
+STYLE ] ), cmpthese ( RESULTSHASHREF, [ STYLE ] ), countit(TIME, CODE),
+disablecache ( ), enablecache ( ), timesum ( T1, T2 )
+
+=item :hireswallclock
+
+=back
+
+=item Benchmark Object
+
+cpu_p, cpu_c, cpu_a, real, iters
+
+=item NOTES
+
+=item EXAMPLES
+
+=item INHERITANCE
+
+=item CAVEATS
+
+=item SEE ALSO
+
+=item AUTHORS
+
+=item MODIFICATION HISTORY
+
+=back
+
+=head2 CORE - Namespace for Perl's core routines
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item OVERRIDING CORE FUNCTIONS
+
+=item AUTHOR
+
+=item SEE ALSO
+
+=back
+
+=head2 CPAN - query, download and build perl modules from CPAN sites
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item CPAN::shell([$prompt, $command]) Starting Interactive Mode
+
+Searching for authors, bundles, distribution files and modules, C<get>,
+C<make>, C<test>, C<install>, C<clean> modules or distributions, C<readme>,
+C<perldoc>, C<look> module or distribution, C<ls> author, C<ls>
+globbing_expression, C<failed>, Persistence between sessions, The C<force>
+and the C<fforce> pragma, Lockfile, Signals
+
+=item CPAN::Shell
+
+=item autobundle
+
+=item hosts
+
+install_tested, is_tested
+
+=item mkmyconfig
+
+=item r [Module|/Regexp/]...
+
+=item recent ***EXPERIMENTAL COMMAND***
+
+=item recompile
+
+=item report Bundle|Distribution|Module
+
+=item smoke ***EXPERIMENTAL COMMAND***
+
+=item upgrade [Module|/Regexp/]...
+
+=item The four C<CPAN::*> Classes: Author, Bundle, Module, Distribution
+
+=item Integrating local directories
+
+=item Redirection
+
+=item Plugin support ***EXPERIMENTAL***
+
+=back
+
+=item CONFIGURATION
+
+completion support, displaying some help: o conf help, displaying current
+values: o conf [KEY], changing of scalar values: o conf KEY VALUE, changing
+of list values: o conf KEY SHIFT|UNSHIFT|PUSH|POP|SPLICE|LIST, reverting to
+saved: o conf defaults, saving the config: o conf commit
+
+=over 4
+
+=item Config Variables
+
+C<o conf E<lt>scalar optionE<gt>>, C<o conf E<lt>scalar optionE<gt>
+E<lt>valueE<gt>>, C<o conf E<lt>list optionE<gt>>, C<o conf E<lt>list
+optionE<gt> [shift|pop]>, C<o conf E<lt>list optionE<gt>
+[unshift|push|splice] E<lt>listE<gt>>, interactive editing: o conf init
+[MATCH|LIST]
+
+=item CPAN::anycwd($path): Note on config variable getcwd
+
+cwd, getcwd, fastcwd, getdcwd, backtickcwd
+
+=item Note on the format of the urllist parameter
+
+=item The urllist parameter has CD-ROM support
+
+=item Maintaining the urllist parameter
+
+=item The C<requires> and C<build_requires> dependency declarations
+
+=item Configuration for individual distributions (I<Distroprefs>)
+
+=item Filenames
+
+=item Fallback Data::Dumper and Storable
+
+=item Blueprint
+
+=item Language Specs
+
+comment [scalar], cpanconfig [hash], depends [hash] *** EXPERIMENTAL
+FEATURE ***, disabled [boolean], features [array] *** EXPERIMENTAL FEATURE
+***, goto [string], install [hash], make [hash], match [hash], patches
+[array], pl [hash], test [hash]
+
+=item Processing Instructions
+
+args [array], commandline, eexpect [hash], env [hash], expect [array]
+
+=item Schema verification with C<Kwalify>
+
+=item Example Distroprefs Files
+
+=back
+
+=item PROGRAMMER'S INTERFACE
+
+expand($type,@things), expandany(@things), Programming Examples
+
+=over 4
+
+=item Methods in the other Classes
+
+CPAN::Author::as_glimpse(), CPAN::Author::as_string(),
+CPAN::Author::email(), CPAN::Author::fullname(), CPAN::Author::name(),
+CPAN::Bundle::as_glimpse(), CPAN::Bundle::as_string(),
+CPAN::Bundle::clean(), CPAN::Bundle::contains(),
+CPAN::Bundle::force($method,@args), CPAN::Bundle::get(),
+CPAN::Bundle::inst_file(), CPAN::Bundle::inst_version(),
+CPAN::Bundle::uptodate(), CPAN::Bundle::install(), CPAN::Bundle::make(),
+CPAN::Bundle::readme(), CPAN::Bundle::test(),
+CPAN::Distribution::as_glimpse(), CPAN::Distribution::as_string(),
+CPAN::Distribution::author, CPAN::Distribution::pretty_id(),
+CPAN::Distribution::base_id(), CPAN::Distribution::clean(),
+CPAN::Distribution::containsmods(), CPAN::Distribution::cvs_import(),
+CPAN::Distribution::dir(), CPAN::Distribution::force($method,@args),
+CPAN::Distribution::get(), CPAN::Distribution::install(),
+CPAN::Distribution::isa_perl(), CPAN::Distribution::look(),
+CPAN::Distribution::make(), CPAN::Distribution::perldoc(),
+CPAN::Distribution::prefs(), CPAN::Distribution::prereq_pm(),
+CPAN::Distribution::readme(), CPAN::Distribution::reports(),
+CPAN::Distribution::read_yaml(), CPAN::Distribution::test(),
+CPAN::Distribution::uptodate(), CPAN::Index::force_reload(),
+CPAN::Index::reload(), CPAN::InfoObj::dump(), CPAN::Module::as_glimpse(),
+CPAN::Module::as_string(), CPAN::Module::clean(),
+CPAN::Module::cpan_file(), CPAN::Module::cpan_version(),
+CPAN::Module::cvs_import(), CPAN::Module::description(),
+CPAN::Module::distribution(), CPAN::Module::dslip_status(),
+CPAN::Module::force($method,@args), CPAN::Module::get(),
+CPAN::Module::inst_file(), CPAN::Module::available_file(),
+CPAN::Module::inst_version(), CPAN::Module::available_version(),
+CPAN::Module::install(), CPAN::Module::look(), CPAN::Module::make(),
+CPAN::Module::manpage_headline(), CPAN::Module::perldoc(),
+CPAN::Module::readme(), CPAN::Module::reports(), CPAN::Module::test(),
+CPAN::Module::uptodate(), CPAN::Module::userid()
+
+=item Cache Manager
+
+=item Bundles
+
+=back
+
+=item PREREQUISITES
+
+=item UTILITIES
+
+=over 4
+
+=item Finding packages and VERSION
+
+=item Debugging
+
+o debug package.., o debug -package.., o debug all, o debug number
+
+=item Floppy, Zip, Offline Mode
+
+=item Basic Utilities for Programmers
+
+has_inst($module), use_inst($module), has_usable($module),
+instance($module), frontend(), frontend($new_frontend)
+
+=back
+
+=item SECURITY
+
+=over 4
+
+=item Cryptographically signed modules
+
+=back
+
+=item EXPORT
+
+=item ENVIRONMENT
+
+=item POPULATE AN INSTALLATION WITH LOTS OF MODULES
+
+=item WORKING WITH CPAN.pm BEHIND FIREWALLS
+
+=over 4
+
+=item Three basic types of firewalls
+
+http firewall, ftp firewall, One-way visibility, SOCKS, IP Masquerade
+
+=item Configuring lynx or ncftp for going through a firewall
+
+=back
+
+=item FAQ
+
+1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17),
+18)
+
+=item COMPATIBILITY
+
+=over 4
+
+=item OLD PERL VERSIONS
+
+=item CPANPLUS
+
+=item CPANMINUS
+
+=back
+
+=item SECURITY ADVICE
+
+=item BUGS
+
+=item AUTHOR
+
+=item LICENSE
+
+=item TRANSLATIONS
+
+=item SEE ALSO
+
+=back
+
+=head2 CPAN::API::HOWTO - a recipe book for programming with CPAN.pm
+
+=over 4
+
+=item RECIPES
+
+=over 4
+
+=item What distribution contains a particular module?
+
+=item What modules does a particular distribution contain?
+
+=back
+
+=item SEE ALSO
+
+=item LICENSE
+
+=item AUTHOR
+
+=back
+
+=head2 CPAN::Debug - internal debugging for CPAN.pm
+
+=over 4
+
+=item LICENSE
+
+=back
+
+=head2 CPAN::Distroprefs -- read and match distroprefs
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item INTERFACE
+
+a CPAN::Distroprefs::Result object, C<undef>, indicating that no prefs
+files remain to be found
+
+=item RESULTS
+
+=over 4
+
+=item Common
+
+=item Errors
+
+=item Successes
+
+=back
+
+=item PREFS
+
+=item LICENSE
+
+=back
+
+=head2 CPAN::FirstTime - Utility for CPAN::Config file Initialization
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=back
+
+auto_commit, build_cache, build_dir, build_dir_reuse,
+build_requires_install_policy, cache_metadata, check_sigs, colorize_output,
+colorize_print, colorize_warn, colorize_debug, commandnumber_in_prompt,
+connect_to_internet_ok, ftp_passive, ftpstats_period, ftpstats_size,
+getcwd, halt_on_failure, histfile, histsize, inactivity_timeout,
+index_expire, inhibit_startup_message, keep_source_where,
+load_module_verbosity, makepl_arg, make_arg, make_install_arg,
+make_install_make_command, mbuildpl_arg, mbuild_arg, mbuild_install_arg,
+mbuild_install_build_command, pager, prefer_installer, prefs_dir,
+prerequisites_policy, randomize_urllist, recommends_policy, scan_cache,
+shell, show_unparsable_versions, show_upload_date, show_zero_versions,
+suggests_policy, tar_verbosity, term_is_latin, term_ornaments, test_report,
+perl5lib_verbosity, prefer_external_tar, trust_test_report_history,
+use_prompt_default, use_sqlite, version_timeout, yaml_load_code,
+yaml_module
+
+=over 4
+
+=item LICENSE
+
+=back
+
+=head2 CPAN::HandleConfig - internal configuration handling for CPAN.pm
+
+=over 4
+
+=item C<< CLASS->safe_quote ITEM >>
+
+=back
+
+=over 4
+
+=item LICENSE
+
+=back
+
+=head2 CPAN::Kwalify - Interface between CPAN.pm and Kwalify.pm
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+_validate($schema_name, $data, $file, $doc), yaml($schema_name)
+
+=item AUTHOR
+
+=item LICENSE
+
+=back
+
+=head2 CPAN::Meta - the distribution metadata for a CPAN dist
+
+=over 4
+
+=item VERSION
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item METHODS
+
+=over 4
+
+=item new
+
+=item create
+
+=item load_file
+
+=item load_yaml_string
+
+=item load_json_string
+
+=item load_string
+
+=item save
+
+=item meta_spec_version
+
+=item effective_prereqs
+
+=item should_index_file
+
+=item should_index_package
+
+=item features
+
+=item feature
+
+=item as_struct
+
+=item as_string
+
+=back
+
+=item STRING DATA
+
+=item LIST DATA
+
+=item MAP DATA
+
+=item CUSTOM DATA
+
+=item BUGS
+
+=item SEE ALSO
+
+=item SUPPORT
+
+=over 4
+
+=item Bugs / Feature Requests
+
+=item Source Code
+
+=back
+
+=item AUTHORS
+
+=item CONTRIBUTORS
+
+=item COPYRIGHT AND LICENSE
+
+=back
+
+=head2 CPAN::Meta::Converter - Convert CPAN distribution metadata
+structures
+
+=over 4
+
+=item VERSION
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item METHODS
+
+=over 4
+
+=item new
+
+=item convert
+
+=item upgrade_fragment
+
+=back
+
+=item BUGS
+
+=item AUTHORS
+
+=item COPYRIGHT AND LICENSE
+
+=back
+
+=head2 CPAN::Meta::Feature - an optional feature provided by a CPAN
+distribution
+
+=over 4
+
+=item VERSION
+
+=item DESCRIPTION
+
+=item METHODS
+
+=over 4
+
+=item new
+
+=item identifier
+
+=item description
+
+=item prereqs
+
+=back
+
+=item BUGS
+
+=item AUTHORS
+
+=item COPYRIGHT AND LICENSE
+
+=back
+
+=head2 CPAN::Meta::History - history of CPAN Meta Spec changes
+
+=over 4
+
+=item VERSION
+
+=item DESCRIPTION
+
+=item HISTORY
+
+=over 4
+
+=item Version 2
+
+=item Version 1.4
+
+=item Version 1.3
+
+=item Version 1.2
+
+=item Version 1.1
+
+=item Version 1.0
+
+=back
+
+=item AUTHORS
+
+=item COPYRIGHT AND LICENSE
+
+=back
+
+=head2 CPAN::Meta::History::Meta_1_0 - Version 1.0 metadata specification
+for META.yml
+
+=over 4
+
+=item PREFACE
+
+=item DESCRIPTION
+
+=item Format
+
+=item Fields
+
+name, version, license, perl, gpl, lgpl, artistic, bsd, open_source,
+unrestricted, restrictive, distribution_type, requires, recommends,
+build_requires, conflicts, dynamic_config, generated_by
+
+=item Related Projects
+
+DOAP
+
+=item History
+
+=back
+
+=head2 CPAN::Meta::History::Meta_1_1 - Version 1.1 metadata specification
+for META.yml
+
+=over 4
+
+=item PREFACE
+
+=item DESCRIPTION
+
+=item Format
+
+=item Fields
+
+name, version, license, perl, gpl, lgpl, artistic, bsd, open_source,
+unrestricted, restrictive, license_uri, distribution_type, private,
+requires, recommends, build_requires, conflicts, dynamic_config,
+generated_by
+
+=over 4
+
+=item Ingy's suggestions
+
+short_description, description, maturity, author_id, owner_id,
+categorization, keyword, chapter_id, URL for further information,
+namespaces
+
+=back
+
+=item History
+
+=back
+
+=head2 CPAN::Meta::History::Meta_1_2 - Version 1.2 metadata specification
+for META.yml
+
+=over 4
+
+=item PREFACE
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item FORMAT
+
+=item TERMINOLOGY
+
+distribution, module
+
+=item VERSION SPECIFICATIONS
+
+=item HEADER
+
+=item FIELDS
+
+=over 4
+
+=item meta-spec
+
+=item name
+
+=item version
+
+=item abstract
+
+=item author
+
+=item license
+
+perl, gpl, lgpl, artistic, bsd, open_source, unrestricted, restrictive
+
+=item distribution_type
+
+=item requires
+
+=item recommends
+
+=item build_requires
+
+=item conflicts
+
+=item dynamic_config
+
+=item private
+
+=item provides
+
+=item no_index
+
+=item keywords
+
+=item resources
+
+homepage, license, bugtracker
+
+=item generated_by
+
+=back
+
+=item SEE ALSO
+
+=item HISTORY
+
+March 14, 2003 (Pi day), May 8, 2003, November 13, 2003, November 16, 2003,
+December 9, 2003, December 15, 2003, July 26, 2005, August 23, 2005
+
+=back
+
+=head2 CPAN::Meta::History::Meta_1_3 - Version 1.3 metadata specification
+for META.yml
+
+=over 4
+
+=item PREFACE
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item FORMAT
+
+Module::Build design plans, Not keen on YAML, META Concerns
+
+=item TERMINOLOGY
+
+distribution, module
+
+=item HEADER
+
+=item FIELDS
+
+=over 4
+
+=item meta-spec
+
+=item name
+
+=item version
+
+=item abstract
+
+=item author
+
+=item license
+
+apache, artistic, bsd, gpl, lgpl, mit, mozilla, open_source, perl,
+restrictive, unrestricted
+
+=item distribution_type
+
+=item requires
+
+=item recommends
+
+=item build_requires
+
+=item conflicts
+
+=item dynamic_config
+
+=item private
+
+=item provides
+
+=item no_index
+
+=item keywords
+
+=item resources
+
+homepage, license, bugtracker
+
+=item generated_by
+
+=back
+
+=item VERSION SPECIFICATIONS
+
+=item SEE ALSO
+
+=item HISTORY
+
+March 14, 2003 (Pi day), May 8, 2003, November 13, 2003, November 16, 2003,
+December 9, 2003, December 15, 2003, July 26, 2005, August 23, 2005
+
+=back
+
+=head2 CPAN::Meta::History::Meta_1_4 - Version 1.4 metadata specification
+for META.yml
+
+=over 4
+
+=item PREFACE
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item FORMAT
+
+Module::Build design plans, Not keen on YAML, META Concerns
+
+=item TERMINOLOGY
+
+distribution, module
+
+=item HEADER
+
+=item FIELDS
+
+=over 4
+
+=item meta-spec
+
+=item name
+
+=item version
+
+=item abstract
+
+=item author
+
+=item license
+
+apache, artistic, bsd, gpl, lgpl, mit, mozilla, open_source, perl,
+restrictive, unrestricted
+
+=item distribution_type
+
+=item requires
+
+=item recommends
+
+=item build_requires
+
+=item configure_requires
+
+=item conflicts
+
+=item dynamic_config
+
+=item private
+
+=item provides
+
+=item no_index
+
+=item keywords
+
+=item resources
+
+homepage, license, bugtracker
+
+=item generated_by
+
+=back
+
+=item VERSION SPECIFICATIONS
+
+=item SEE ALSO
+
+=item HISTORY
+
+March 14, 2003 (Pi day), May 8, 2003, November 13, 2003, November 16, 2003,
+December 9, 2003, December 15, 2003, July 26, 2005, August 23, 2005, June
+12, 2007
+
+=back
+
+=head2 CPAN::Meta::Merge - Merging CPAN Meta fragments
+
+=over 4
+
+=item VERSION
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item METHODS
+
+=over 4
+
+=item new
+
+=item merge(@fragments)
+
+=back
+
+=item AUTHORS
+
+=item COPYRIGHT AND LICENSE
+
+=back
+
+=head2 CPAN::Meta::Prereqs - a set of distribution prerequisites by phase
+and type
+
+=over 4
+
+=item VERSION
+
+=item DESCRIPTION
+
+=item METHODS
+
+=over 4
+
+=item new
+
+=item requirements_for
+
+=item with_merged_prereqs
+
+=item merged_requirements
+
+=item as_string_hash
+
+=item is_finalized
+
+=item finalize
+
+=item clone
+
+=back
+
+=item BUGS
+
+=item AUTHORS
+
+=item COPYRIGHT AND LICENSE
+
+=back
+
+=head2 CPAN::Meta::Requirements - a set of version requirements for a CPAN
+dist
+
+=over 4
+
+=item VERSION
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item METHODS
+
+=over 4
+
+=item new
+
+=item add_minimum
+
+=item add_maximum
+
+=item add_exclusion
+
+=item exact_version
+
+=item add_requirements
+
+=item accepts_module
+
+=item clear_requirement
+
+=item requirements_for_module
+
+=item structured_requirements_for_module
+
+=item required_modules
+
+=item clone
+
+=item is_simple
+
+=item is_finalized
+
+=item finalize
+
+=item as_string_hash
+
+=item add_string_requirement
+
+>= 1.3, <= 1.3, != 1.3, > 1.3, < 1.3, >= 1.3, != 1.5, <= 2.0
+
+=item from_string_hash
+
+=back
+
+=item SUPPORT
+
+=over 4
+
+=item Bugs / Feature Requests
+
+=item Source Code
+
+=back
+
+=item AUTHORS
+
+=item CONTRIBUTORS
+
+=item COPYRIGHT AND LICENSE
+
+=back
+
+=head2 CPAN::Meta::Spec - specification for CPAN distribution metadata
+
+=over 4
+
+=item VERSION
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item TERMINOLOGY
+
+distribution, module, package, consumer, producer, must, should, may, etc
+
+=item DATA TYPES
+
+=over 4
+
+=item Boolean
+
+=item String
+
+=item List
+
+=item Map
+
+=item License String
+
+=item URL
+
+=item Version
+
+=item Version Range
+
+=back
+
+=item STRUCTURE
+
+=over 4
+
+=item REQUIRED FIELDS
+
+version, url, stable, testing, unstable
+
+=item OPTIONAL FIELDS
+
+file, directory, package, namespace, description, prereqs, file, version,
+homepage, license, bugtracker, repository
+
+=item DEPRECATED FIELDS
+
+=back
+
+=item VERSION NUMBERS
+
+=over 4
+
+=item Version Formats
+
+Decimal versions, Dotted-integer versions
+
+=item Version Ranges
+
+=back
+
+=item PREREQUISITES
+
+=over 4
+
+=item Prereq Spec
+
+configure, build, test, runtime, develop, requires, recommends, suggests,
+conflicts
+
+=item Merging and Resolving Prerequisites
+
+=back
+
+=item SERIALIZATION
+
+=item NOTES FOR IMPLEMENTORS
+
+=over 4
+
+=item Extracting Version Numbers from Perl Modules
+
+=item Comparing Version Numbers
+
+=item Prerequisites for dynamically configured distributions
+
+=item Indexing distributions a la PAUSE
+
+=back
+
+=item SEE ALSO
+
+=item HISTORY
+
+=item AUTHORS
+
+=item COPYRIGHT AND LICENSE
+
+=back
+
+=head2 CPAN::Meta::Validator - validate CPAN distribution metadata
+structures
+
+=over 4
+
+=item VERSION
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item METHODS
+
+=over 4
+
+=item new
+
+=item is_valid
+
+=item errors
+
+=item Check Methods
+
+=item Validator Methods
+
+=back
+
+=item BUGS
+
+=item AUTHORS
+
+=item COPYRIGHT AND LICENSE
+
+=back
+
+=head2 CPAN::Meta::YAML - Read and write a subset of YAML for CPAN Meta
+files
+
+=over 4
+
+=item VERSION
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item SUPPORT
+
+=item SEE ALSO
+
+=item AUTHORS
+
+=item COPYRIGHT AND LICENSE
+
+=back
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=back
+
+new( LOCAL_FILE_NAME )
+
+continents()
+
+countries( [CONTINENTS] )
+
+mirrors( [COUNTRIES] )
+
+get_mirrors_by_countries( [COUNTRIES] )
+
+get_mirrors_by_continents( [CONTINENTS] )
+
+get_countries_by_continents( [CONTINENTS] )
+
+default_mirror
+
+best_mirrors
+
+get_n_random_mirrors_by_continents( N, [CONTINENTS] )
+
+get_mirrors_timings( MIRROR_LIST, SEEN, CALLBACK );
+
+find_best_continents( HASH_REF );
+
+=over 4
+
+=item AUTHOR
+
+=item LICENSE
+
+=back
+
+=head2 CPAN::Nox - Wrapper around CPAN.pm without using any XS module
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item LICENSE
+
+=item  SEE ALSO
+
+=back
+
+=head2 CPAN::Plugin - Base class for CPAN shell extensions
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item Alpha Status
+
+=item How Plugins work?
+
+=back
+
+=item METHODS
+
+=over 4
+
+=item plugin_requires
+
+=item distribution_object
+
+=item distribution
+
+=item distribution_info
+
+=item build_dir
+
+=item is_xs
+
+=back
+
+=item AUTHOR
+
+=back
+
+=head2 CPAN::Plugin::Specfile - Proof of concept implementation of a
+trivial CPAN::Plugin
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item OPTIONS
+
+=back
+
+=item AUTHOR
+
+=back
+
+=head2 CPAN::Queue - internal queue support for CPAN.pm
+
+=over 4
+
+=item LICENSE
+
+=back
+
+=head2 CPAN::Tarzip - internal handling of tar archives for CPAN.pm
+
+=over 4
+
+=item LICENSE
+
+=back
+
+=head2 CPAN::Version - utility functions to compare CPAN versions
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item LICENSE
+
+=back
+
+=head2 Carp - alternative warn and die for modules
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item Forcing a Stack Trace
+
+=item Stack Trace formatting
+
+=back
+
+=item GLOBAL VARIABLES
+
+=over 4
+
+=item $Carp::MaxEvalLen
+
+=item $Carp::MaxArgLen
+
+=item $Carp::MaxArgNums
+
+=item $Carp::Verbose
+
+=item $Carp::RefArgFormatter
+
+=item @CARP_NOT
+
+=item %Carp::Internal
+
+=item %Carp::CarpInternal
+
+=item $Carp::CarpLevel
+
+=back
+
+=item BUGS
+
+=item SEE ALSO
+
+=item CONTRIBUTING
+
+=item AUTHOR
+
+=item COPYRIGHT
+
+=item LICENSE
+
+=back
+
+=head2 Class::Struct - declare struct-like datatypes as Perl classes
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item The C<struct()> function
+
+=item Class Creation at Compile Time
+
+=item Element Types and Accessor Methods
+
+Scalar (C<'$'> or C<'*$'>), Array (C<'@'> or C<'*@'>), Hash (C<'%'> or
+C<'*%'>), Class (C<'Class_Name'> or C<'*Class_Name'>)
+
+=item Initializing with C<new>
+
+=back
+
+=item EXAMPLES
+
+Example 1, Example 2, Example 3
+
+=item Author and Modification History
+
+=back
+
+=head2 Compress::Raw::Bzip2 - Low-Level Interface to bzip2 compression
+library
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item Compression
+
+=over 4
+
+=item ($z, $status) = new Compress::Raw::Bzip2 $appendOutput,
+$blockSize100k, $workfactor;
+
+B<$appendOutput>, B<$blockSize100k>, B<$workfactor>
+
+=item $status = $bz->bzdeflate($input, $output);
+
+=item $status = $bz->bzflush($output);
+
+=item $status = $bz->bzclose($output);
+
+=item Example
+
+=back
+
+=item Uncompression
+
+=over 4
+
+=item ($z, $status) = new Compress::Raw::Bunzip2 $appendOutput,
+$consumeInput, $small, $verbosity, $limitOutput;
+
+B<$appendOutput>, B<$consumeInput>, B<$small>, B<$limitOutput>,
+B<$verbosity>
+
+=item $status = $z->bzinflate($input, $output);
+
+=back
+
+=item Misc
+
+=over 4
+
+=item my $version = Compress::Raw::Bzip2::bzlibversion();
+
+=back
+
+=item Constants
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=item MODIFICATION HISTORY
+
+=item COPYRIGHT AND LICENSE
+
+=back
+
+=head2 Compress::Raw::Zlib - Low-Level Interface to zlib compression
+library
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item Compress::Raw::Zlib::Deflate
+
+=over 4
+
+=item B<($d, $status) = new Compress::Raw::Zlib::Deflate( [OPT] ) >
+
+B<-Level>, B<-Method>, B<-WindowBits>, B<-MemLevel>, B<-Strategy>,
+B<-Dictionary>, B<-Bufsize>, B<-AppendOutput>, B<-CRC32>, B<-ADLER32>
+
+=item B<$status = $d-E<gt>deflate($input, $output)>
+
+=item B<$status = $d-E<gt>flush($output [, $flush_type]) >
+
+=item B<$status = $d-E<gt>deflateReset() >
+
+=item B<$status = $d-E<gt>deflateParams([OPT])>
+
+B<-Level>, B<-Strategy>, B<-BufSize>
+
+=item B<$status = $d-E<gt>deflateTune($good_length, $max_lazy,
+$nice_length, $max_chain)>
+
+=item B<$d-E<gt>dict_adler()>
+
+=item B<$d-E<gt>crc32()>
+
+=item B<$d-E<gt>adler32()>
+
+=item B<$d-E<gt>msg()>
+
+=item B<$d-E<gt>total_in()>
+
+=item B<$d-E<gt>total_out()>
+
+=item B<$d-E<gt>get_Strategy()>
+
+=item B<$d-E<gt>get_Level()>
+
+=item B<$d-E<gt>get_BufSize()>
+
+=item Example
+
+=back
+
+=item Compress::Raw::Zlib::Inflate
+
+=over 4
+
+=item B< ($i, $status) = new Compress::Raw::Zlib::Inflate( [OPT] ) >
+
+B<-WindowBits>, B<-Bufsize>, B<-Dictionary>, B<-AppendOutput>, B<-CRC32>,
+B<-ADLER32>, B<-ConsumeInput>, B<-LimitOutput>
+
+=item B< $status = $i-E<gt>inflate($input, $output [,$eof]) >
+
+=item B<$status = $i-E<gt>inflateSync($input)>
+
+=item B<$status = $i-E<gt>inflateReset() >
+
+=item B<$i-E<gt>dict_adler()>
+
+=item B<$i-E<gt>crc32()>
+
+=item B<$i-E<gt>adler32()>
+
+=item B<$i-E<gt>msg()>
+
+=item B<$i-E<gt>total_in()>
+
+=item B<$i-E<gt>total_out()>
+
+=item B<$d-E<gt>get_BufSize()>
+
+=item Examples
+
+=back
+
+=item CHECKSUM FUNCTIONS
+
+=item Misc
+
+=over 4
+
+=item my $version = Compress::Raw::Zlib::zlib_version();
+
+=item  my $flags = Compress::Raw::Zlib::zlibCompileFlags();
+
+=back
+
+=item The LimitOutput option.
+
+=item ACCESSING ZIP FILES
+
+=item FAQ
+
+=over 4
+
+=item Compatibility with Unix compress/uncompress.
+
+=item Accessing .tar.Z files
+
+=item Zlib Library Version Support
+
+=back
+
+=item CONSTANTS
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=item MODIFICATION HISTORY
+
+=item COPYRIGHT AND LICENSE
+
+=back
+
+=head2 Compress::Zlib - Interface to zlib compression library
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item Notes for users of Compress::Zlib version 1
+
+=back
+
+=item GZIP INTERFACE
+
+B<$gz = gzopen($filename, $mode)>, B<$gz = gzopen($filehandle, $mode)>,
+B<$bytesread = $gz-E<gt>gzread($buffer [, $size]) ;>, B<$bytesread =
+$gz-E<gt>gzreadline($line) ;>, B<$byteswritten = $gz-E<gt>gzwrite($buffer)
+;>, B<$status = $gz-E<gt>gzflush($flush_type) ;>, B<$offset =
+$gz-E<gt>gztell() ;>, B<$status = $gz-E<gt>gzseek($offset, $whence) ;>,
+B<$gz-E<gt>gzclose>, B<$gz-E<gt>gzsetparams($level, $strategy>, B<$level>,
+B<$strategy>, B<$gz-E<gt>gzerror>, B<$gzerrno>
+
+=over 4
+
+=item Examples
+
+=item Compress::Zlib::memGzip
+
+=item Compress::Zlib::memGunzip
+
+=back
+
+=item COMPRESS/UNCOMPRESS
+
+B<$dest = compress($source [, $level] ) ;>, B<$dest = uncompress($source)
+;>
+
+=item Deflate Interface
+
+=over 4
+
+=item B<($d, $status) = deflateInit( [OPT] )>
+
+B<-Level>, B<-Method>, B<-WindowBits>, B<-MemLevel>, B<-Strategy>,
+B<-Dictionary>, B<-Bufsize>
+
+=item B<($out, $status) = $d-E<gt>deflate($buffer)>
+
+=item B<($out, $status) = $d-E<gt>flush()>
+=head2 B<($out, $status) = $d-E<gt>flush($flush_type)>
+
+=item B<$status = $d-E<gt>deflateParams([OPT])>
+
+B<-Level>, B<-Strategy>
+
+=item B<$d-E<gt>dict_adler()>
+
+=item B<$d-E<gt>msg()>
+
+=item B<$d-E<gt>total_in()>
+
+=item B<$d-E<gt>total_out()>
+
+=item Example
+
+=back
+
+=item Inflate Interface
+
+=over 4
+
+=item B<($i, $status) = inflateInit()>
+
+B<-WindowBits>, B<-Bufsize>, B<-Dictionary>
+
+=item B<($out, $status) = $i-E<gt>inflate($buffer)>
+
+=item B<$status = $i-E<gt>inflateSync($buffer)>
+
+=item B<$i-E<gt>dict_adler()>
+
+=item B<$i-E<gt>msg()>
+
+=item B<$i-E<gt>total_in()>
+
+=item B<$i-E<gt>total_out()>
+
+=item Example
+
+=back
+
+=item CHECKSUM FUNCTIONS
+
+=item Misc
+
+=over 4
+
+=item my $version = Compress::Zlib::zlib_version();
+
+=back
+
+=item CONSTANTS
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=item MODIFICATION HISTORY
+
+=item COPYRIGHT AND LICENSE
+
+=back
+
+=head2 Config - access Perl configuration information
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+myconfig(), config_sh(), config_re($regex), config_vars(@names),
+bincompat_options(), non_bincompat_options(), compile_date(),
+local_patches(), header_files()
+
+=item EXAMPLE
+
+=item WARNING
+
+=item GLOSSARY
+
+=back
+
+=over 4
+
+=item _
+
+=back
+
+C<_a>, C<_exe>, C<_o>
+
+=over 4
+
+=item a
+
+=back
+
+C<afs>, C<afsroot>, C<alignbytes>, C<ansi2knr>, C<aphostname>,
+C<api_revision>, C<api_subversion>, C<api_version>, C<api_versionstring>,
+C<ar>, C<archlib>, C<archlibexp>, C<archname>, C<archname64>, C<archobjs>,
+C<asctime_r_proto>, C<awk>
+
+=over 4
+
+=item b
+
+=back
+
+C<baserev>, C<bash>, C<bin>, C<bin_ELF>, C<binexp>, C<bison>, C<byacc>,
+C<byteorder>
+
+=over 4
+
+=item c
+
+=back
+
+C<c>, C<castflags>, C<cat>, C<cc>, C<cccdlflags>, C<ccdlflags>, C<ccflags>,
+C<ccflags_uselargefiles>, C<ccname>, C<ccsymbols>, C<ccversion>, C<cf_by>,
+C<cf_email>, C<cf_time>, C<charbits>, C<charsize>, C<chgrp>, C<chmod>,
+C<chown>, C<clocktype>, C<comm>, C<compress>, C<config_arg0>,
+C<config_argc>, C<config_args>, C<contains>, C<cp>, C<cpio>, C<cpp>,
+C<cpp_stuff>, C<cppccsymbols>, C<cppflags>, C<cpplast>, C<cppminus>,
+C<cpprun>, C<cppstdin>, C<cppsymbols>, C<crypt_r_proto>, C<cryptlib>,
+C<csh>, C<ctermid_r_proto>, C<ctime_r_proto>
+
+=over 4
+
+=item d
+
+=back
+
+C<d__fwalk>, C<d_access>, C<d_accessx>, C<d_acosh>, C<d_aintl>, C<d_alarm>,
+C<d_archlib>, C<d_asctime64>, C<d_asctime_r>, C<d_asinh>, C<d_atanh>,
+C<d_atolf>, C<d_atoll>, C<d_attribute_deprecated>, C<d_attribute_format>,
+C<d_attribute_malloc>, C<d_attribute_nonnull>, C<d_attribute_noreturn>,
+C<d_attribute_pure>, C<d_attribute_unused>,
+C<d_attribute_warn_unused_result>, C<d_backtrace>, C<d_bcmp>, C<d_bcopy>,
+C<d_bsd>, C<d_bsdgetpgrp>, C<d_bsdsetpgrp>, C<d_builtin_choose_expr>,
+C<d_builtin_expect>, C<d_bzero>, C<d_c99_variadic_macros>, C<d_casti32>,
+C<d_castneg>, C<d_cbrt>, C<d_charvspr>, C<d_chown>, C<d_chroot>,
+C<d_chsize>, C<d_class>, C<d_clearenv>, C<d_closedir>, C<d_cmsghdr_s>,
+C<d_const>, C<d_copysign>, C<d_copysignl>, C<d_cplusplus>, C<d_crypt>,
+C<d_crypt_r>, C<d_csh>, C<d_ctermid>, C<d_ctermid_r>, C<d_ctime64>,
+C<d_ctime_r>, C<d_cuserid>, C<d_dbl_dig>, C<d_dbminitproto>, C<d_difftime>,
+C<d_difftime64>, C<d_dir_dd_fd>, C<d_dirfd>, C<d_dirnamlen>, C<d_dladdr>,
+C<d_dlerror>, C<d_dlopen>, C<d_dlsymun>, C<d_dosuid>, C<d_drand48_r>,
+C<d_drand48proto>, C<d_dup2>, C<d_duplocale>, C<d_eaccess>, C<d_endgrent>,
+C<d_endgrent_r>, C<d_endhent>, C<d_endhostent_r>, C<d_endnent>,
+C<d_endnetent_r>, C<d_endpent>, C<d_endprotoent_r>, C<d_endpwent>,
+C<d_endpwent_r>, C<d_endsent>, C<d_endservent_r>, C<d_eofnblk>, C<d_erf>,
+C<d_erfc>, C<d_eunice>, C<d_exp2>, C<d_expm1>, C<d_faststdio>, C<d_fchdir>,
+C<d_fchmod>, C<d_fchown>, C<d_fcntl>, C<d_fcntl_can_lock>, C<d_fd_macros>,
+C<d_fd_set>, C<d_fdclose>, C<d_fdim>, C<d_fds_bits>, C<d_fegetround>,
+C<d_fgetpos>, C<d_finite>, C<d_finitel>, C<d_flexfnam>, C<d_flock>,
+C<d_flockproto>, C<d_fma>, C<d_fmax>, C<d_fmin>, C<d_fork>, C<d_fp_class>,
+C<d_fp_classify>, C<d_fp_classl>, C<d_fpathconf>, C<d_fpclass>,
+C<d_fpclassify>, C<d_fpclassl>, C<d_fpgetround>, C<d_fpos64_t>,
+C<d_freelocale>, C<d_frexpl>, C<d_fs_data_s>, C<d_fseeko>, C<d_fsetpos>,
+C<d_fstatfs>, C<d_fstatvfs>, C<d_fsync>, C<d_ftello>, C<d_ftime>,
+C<d_futimes>, C<d_Gconvert>, C<d_gdbm_ndbm_h_uses_prototypes>,
+C<d_gdbmndbm_h_uses_prototypes>, C<d_getaddrinfo>, C<d_getcwd>,
+C<d_getespwnam>, C<d_getfsstat>, C<d_getgrent>, C<d_getgrent_r>,
+C<d_getgrgid_r>, C<d_getgrnam_r>, C<d_getgrps>, C<d_gethbyaddr>,
+C<d_gethbyname>, C<d_gethent>, C<d_gethname>, C<d_gethostbyaddr_r>,
+C<d_gethostbyname_r>, C<d_gethostent_r>, C<d_gethostprotos>,
+C<d_getitimer>, C<d_getlogin>, C<d_getlogin_r>, C<d_getmnt>,
+C<d_getmntent>, C<d_getnameinfo>, C<d_getnbyaddr>, C<d_getnbyname>,
+C<d_getnent>, C<d_getnetbyaddr_r>, C<d_getnetbyname_r>, C<d_getnetent_r>,
+C<d_getnetprotos>, C<d_getpagsz>, C<d_getpbyname>, C<d_getpbynumber>,
+C<d_getpent>, C<d_getpgid>, C<d_getpgrp>, C<d_getpgrp2>, C<d_getppid>,
+C<d_getprior>, C<d_getprotobyname_r>, C<d_getprotobynumber_r>,
+C<d_getprotoent_r>, C<d_getprotoprotos>, C<d_getprpwnam>, C<d_getpwent>,
+C<d_getpwent_r>, C<d_getpwnam_r>, C<d_getpwuid_r>, C<d_getsbyname>,
+C<d_getsbyport>, C<d_getsent>, C<d_getservbyname_r>, C<d_getservbyport_r>,
+C<d_getservent_r>, C<d_getservprotos>, C<d_getspnam>, C<d_getspnam_r>,
+C<d_gettimeod>, C<d_gmtime64>, C<d_gmtime_r>, C<d_gnulibc>, C<d_grpasswd>,
+C<d_hasmntopt>, C<d_htonl>, C<d_hypot>, C<d_ilogb>, C<d_ilogbl>,
+C<d_inc_version_list>, C<d_index>, C<d_inetaton>, C<d_inetntop>,
+C<d_inetpton>, C<d_int64_t>, C<d_ip_mreq>, C<d_ip_mreq_source>,
+C<d_ipv6_mreq>, C<d_ipv6_mreq_source>, C<d_isascii>, C<d_isblank>,
+C<d_isfinite>, C<d_isfinitel>, C<d_isinf>, C<d_isinfl>, C<d_isless>,
+C<d_isnan>, C<d_isnanl>, C<d_isnormal>, C<d_j0>, C<d_j0l>, C<d_killpg>,
+C<d_lc_monetary_2008>, C<d_lchown>, C<d_ldbl_dig>, C<d_ldexpl>,
+C<d_lgamma>, C<d_lgamma_r>, C<d_libm_lib_version>, C<d_libname_unique>,
+C<d_link>, C<d_llrint>, C<d_llrintl>, C<d_llround>, C<d_llroundl>,
+C<d_localtime64>, C<d_localtime_r>, C<d_localtime_r_needs_tzset>,
+C<d_locconv>, C<d_lockf>, C<d_log1p>, C<d_log2>, C<d_logb>, C<d_longdbl>,
+C<d_longlong>, C<d_lrint>, C<d_lrintl>, C<d_lround>, C<d_lroundl>,
+C<d_lseekproto>, C<d_lstat>, C<d_madvise>, C<d_malloc_good_size>,
+C<d_malloc_size>, C<d_mblen>, C<d_mbstowcs>, C<d_mbtowc>, C<d_memchr>,
+C<d_memcmp>, C<d_memcpy>, C<d_memmem>, C<d_memmove>, C<d_memset>,
+C<d_mkdir>, C<d_mkdtemp>, C<d_mkfifo>, C<d_mkstemp>, C<d_mkstemps>,
+C<d_mktime>, C<d_mktime64>, C<d_mmap>, C<d_modfl>, C<d_modflproto>,
+C<d_mprotect>, C<d_msg>, C<d_msg_ctrunc>, C<d_msg_dontroute>, C<d_msg_oob>,
+C<d_msg_peek>, C<d_msg_proxy>, C<d_msgctl>, C<d_msgget>, C<d_msghdr_s>,
+C<d_msgrcv>, C<d_msgsnd>, C<d_msync>, C<d_munmap>, C<d_mymalloc>, C<d_nan>,
+C<d_ndbm>, C<d_ndbm_h_uses_prototypes>, C<d_nearbyint>, C<d_newlocale>,
+C<d_nextafter>, C<d_nexttoward>, C<d_nice>, C<d_nl_langinfo>,
+C<d_nv_preserves_uv>, C<d_nv_zero_is_allbits_zero>, C<d_off64_t>,
+C<d_old_pthread_create_joinable>, C<d_oldpthreads>, C<d_oldsock>,
+C<d_open3>, C<d_pathconf>, C<d_pause>, C<d_perl_otherlibdirs>,
+C<d_phostname>, C<d_pipe>, C<d_poll>, C<d_portable>, C<d_prctl>,
+C<d_prctl_set_name>, C<d_PRId64>, C<d_PRIeldbl>, C<d_PRIEUldbl>,
+C<d_PRIfldbl>, C<d_PRIFUldbl>, C<d_PRIgldbl>, C<d_PRIGUldbl>, C<d_PRIi64>,
+C<d_printf_format_null>, C<d_PRIo64>, C<d_PRIu64>, C<d_PRIx64>,
+C<d_PRIXU64>, C<d_procselfexe>, C<d_pseudofork>, C<d_pthread_atfork>,
+C<d_pthread_attr_setscope>, C<d_pthread_yield>, C<d_ptrdiff_t>, C<d_pwage>,
+C<d_pwchange>, C<d_pwclass>, C<d_pwcomment>, C<d_pwexpire>, C<d_pwgecos>,
+C<d_pwpasswd>, C<d_pwquota>, C<d_qgcvt>, C<d_quad>, C<d_random_r>,
+C<d_re_comp>, C<d_readdir>, C<d_readdir64_r>, C<d_readdir_r>,
+C<d_readlink>, C<d_readv>, C<d_recvmsg>, C<d_regcmp>, C<d_regcomp>,
+C<d_remainder>, C<d_remquo>, C<d_rename>, C<d_rewinddir>, C<d_rint>,
+C<d_rmdir>, C<d_round>, C<d_safebcpy>, C<d_safemcpy>, C<d_sanemcmp>,
+C<d_sbrkproto>, C<d_scalbn>, C<d_scalbnl>, C<d_sched_yield>,
+C<d_scm_rights>, C<d_SCNfldbl>, C<d_seekdir>, C<d_select>, C<d_sem>,
+C<d_semctl>, C<d_semctl_semid_ds>, C<d_semctl_semun>, C<d_semget>,
+C<d_semop>, C<d_sendmsg>, C<d_setegid>, C<d_seteuid>, C<d_setgrent>,
+C<d_setgrent_r>, C<d_setgrps>, C<d_sethent>, C<d_sethostent_r>,
+C<d_setitimer>, C<d_setlinebuf>, C<d_setlocale>, C<d_setlocale_r>,
+C<d_setnent>, C<d_setnetent_r>, C<d_setpent>, C<d_setpgid>, C<d_setpgrp>,
+C<d_setpgrp2>, C<d_setprior>, C<d_setproctitle>, C<d_setprotoent_r>,
+C<d_setpwent>, C<d_setpwent_r>, C<d_setregid>, C<d_setresgid>,
+C<d_setresuid>, C<d_setreuid>, C<d_setrgid>, C<d_setruid>, C<d_setsent>,
+C<d_setservent_r>, C<d_setsid>, C<d_setvbuf>, C<d_shm>, C<d_shmat>,
+C<d_shmatprototype>, C<d_shmctl>, C<d_shmdt>, C<d_shmget>, C<d_sigaction>,
+C<d_siginfo_si_addr>, C<d_siginfo_si_band>, C<d_siginfo_si_errno>,
+C<d_siginfo_si_fd>, C<d_siginfo_si_pid>, C<d_siginfo_si_status>,
+C<d_siginfo_si_uid>, C<d_siginfo_si_value>, C<d_signbit>, C<d_sigprocmask>,
+C<d_sigsetjmp>, C<d_sin6_scope_id>, C<d_sitearch>, C<d_snprintf>,
+C<d_sockaddr_in6>, C<d_sockaddr_sa_len>, C<d_sockatmark>,
+C<d_sockatmarkproto>, C<d_socket>, C<d_socklen_t>, C<d_sockpair>,
+C<d_socks5_init>, C<d_sprintf_returns_strlen>, C<d_sqrtl>, C<d_srand48_r>,
+C<d_srandom_r>, C<d_sresgproto>, C<d_sresuproto>, C<d_stat>, C<d_statblks>,
+C<d_statfs_f_flags>, C<d_statfs_s>, C<d_static_inline>, C<d_statvfs>,
+C<d_stdio_cnt_lval>, C<d_stdio_ptr_lval>, C<d_stdio_ptr_lval_nochange_cnt>,
+C<d_stdio_ptr_lval_sets_cnt>, C<d_stdio_stream_array>, C<d_stdiobase>,
+C<d_stdstdio>, C<d_strchr>, C<d_strcoll>, C<d_strctcpy>, C<d_strerrm>,
+C<d_strerror>, C<d_strerror_r>, C<d_strftime>, C<d_strlcat>, C<d_strlcpy>,
+C<d_strtod>, C<d_strtol>, C<d_strtold>, C<d_strtoll>, C<d_strtoq>,
+C<d_strtoul>, C<d_strtoull>, C<d_strtouq>, C<d_strxfrm>, C<d_suidsafe>,
+C<d_symlink>, C<d_syscall>, C<d_syscallproto>, C<d_sysconf>,
+C<d_sysernlst>, C<d_syserrlst>, C<d_system>, C<d_tcgetpgrp>,
+C<d_tcsetpgrp>, C<d_telldir>, C<d_telldirproto>, C<d_tgamma>, C<d_time>,
+C<d_timegm>, C<d_times>, C<d_tm_tm_gmtoff>, C<d_tm_tm_zone>, C<d_tmpnam_r>,
+C<d_trunc>, C<d_truncate>, C<d_truncl>, C<d_ttyname_r>, C<d_tzname>,
+C<d_u32align>, C<d_ualarm>, C<d_umask>, C<d_uname>, C<d_union_semun>,
+C<d_unordered>, C<d_unsetenv>, C<d_uselocale>, C<d_usleep>,
+C<d_usleepproto>, C<d_ustat>, C<d_vendorarch>, C<d_vendorbin>,
+C<d_vendorlib>, C<d_vendorscript>, C<d_vfork>, C<d_void_closedir>,
+C<d_voidsig>, C<d_voidtty>, C<d_volatile>, C<d_vprintf>, C<d_vsnprintf>,
+C<d_wait4>, C<d_waitpid>, C<d_wcscmp>, C<d_wcstombs>, C<d_wcsxfrm>,
+C<d_wctomb>, C<d_writev>, C<d_xenix>, C<date>, C<db_hashtype>,
+C<db_prefixtype>, C<db_version_major>, C<db_version_minor>,
+C<db_version_patch>, C<direntrytype>, C<dlext>, C<dlsrc>,
+C<doubleinfbytes>, C<doublekind>, C<doublemantbits>, C<doublenanbytes>,
+C<doublesize>, C<drand01>, C<drand48_r_proto>, C<dtrace>, C<dtraceobject>,
+C<dynamic_ext>
+
+=over 4
+
+=item e
+
+=back
+
+C<eagain>, C<ebcdic>, C<echo>, C<egrep>, C<emacs>, C<endgrent_r_proto>,
+C<endhostent_r_proto>, C<endnetent_r_proto>, C<endprotoent_r_proto>,
+C<endpwent_r_proto>, C<endservent_r_proto>, C<eunicefix>, C<exe_ext>,
+C<expr>, C<extensions>, C<extern_C>, C<extras>
+
+=over 4
+
+=item f
+
+=back
+
+C<fflushall>, C<fflushNULL>, C<find>, C<firstmakefile>, C<flex>,
+C<fpossize>, C<fpostype>, C<freetype>, C<from>, C<full_ar>, C<full_csh>,
+C<full_sed>
+
+=over 4
+
+=item g
+
+=back
+
+C<gccansipedantic>, C<gccosandvers>, C<gccversion>, C<getgrent_r_proto>,
+C<getgrgid_r_proto>, C<getgrnam_r_proto>, C<gethostbyaddr_r_proto>,
+C<gethostbyname_r_proto>, C<gethostent_r_proto>, C<getlogin_r_proto>,
+C<getnetbyaddr_r_proto>, C<getnetbyname_r_proto>, C<getnetent_r_proto>,
+C<getprotobyname_r_proto>, C<getprotobynumber_r_proto>,
+C<getprotoent_r_proto>, C<getpwent_r_proto>, C<getpwnam_r_proto>,
+C<getpwuid_r_proto>, C<getservbyname_r_proto>, C<getservbyport_r_proto>,
+C<getservent_r_proto>, C<getspnam_r_proto>, C<gidformat>, C<gidsign>,
+C<gidsize>, C<gidtype>, C<glibpth>, C<gmake>, C<gmtime_r_proto>,
+C<gnulibc_version>, C<grep>, C<groupcat>, C<groupstype>, C<gzip>
+
+=over 4
+
+=item h
+
+=back
+
+C<h_fcntl>, C<h_sysfile>, C<hint>, C<hostcat>, C<hostgenerate>,
+C<hostosname>, C<hostperl>, C<html1dir>, C<html1direxp>, C<html3dir>,
+C<html3direxp>
+
+=over 4
+
+=item i
+
+=back
+
+C<i16size>, C<i16type>, C<i32size>, C<i32type>, C<i64size>, C<i64type>,
+C<i8size>, C<i8type>, C<i_arpainet>, C<i_assert>, C<i_bfd>, C<i_bsdioctl>,
+C<i_crypt>, C<i_db>, C<i_dbm>, C<i_dirent>, C<i_dlfcn>, C<i_execinfo>,
+C<i_fcntl>, C<i_fenv>, C<i_float>, C<i_fp>, C<i_fp_class>, C<i_gdbm>,
+C<i_gdbm_ndbm>, C<i_gdbmndbm>, C<i_grp>, C<i_ieeefp>, C<i_inttypes>,
+C<i_langinfo>, C<i_libutil>, C<i_limits>, C<i_locale>, C<i_machcthr>,
+C<i_malloc>, C<i_mallocmalloc>, C<i_math>, C<i_memory>, C<i_mntent>,
+C<i_ndbm>, C<i_netdb>, C<i_neterrno>, C<i_netinettcp>, C<i_niin>,
+C<i_poll>, C<i_prot>, C<i_pthread>, C<i_pwd>, C<i_quadmath>,
+C<i_rpcsvcdbm>, C<i_sgtty>, C<i_shadow>, C<i_socks>, C<i_stdarg>,
+C<i_stdbool>, C<i_stddef>, C<i_stdint>, C<i_stdlib>, C<i_string>,
+C<i_sunmath>, C<i_sysaccess>, C<i_sysdir>, C<i_sysfile>, C<i_sysfilio>,
+C<i_sysin>, C<i_sysioctl>, C<i_syslog>, C<i_sysmman>, C<i_sysmode>,
+C<i_sysmount>, C<i_sysndir>, C<i_sysparam>, C<i_syspoll>, C<i_sysresrc>,
+C<i_syssecrt>, C<i_sysselct>, C<i_syssockio>, C<i_sysstat>, C<i_sysstatfs>,
+C<i_sysstatvfs>, C<i_systime>, C<i_systimek>, C<i_systimes>, C<i_systypes>,
+C<i_sysuio>, C<i_sysun>, C<i_sysutsname>, C<i_sysvfs>, C<i_syswait>,
+C<i_termio>, C<i_termios>, C<i_time>, C<i_unistd>, C<i_ustat>, C<i_utime>,
+C<i_values>, C<i_varargs>, C<i_varhdr>, C<i_vfork>, C<i_xlocale>,
+C<ignore_versioned_solibs>, C<inc_version_list>, C<inc_version_list_init>,
+C<incpath>, C<incpth>, C<inews>, C<initialinstalllocation>,
+C<installarchlib>, C<installbin>, C<installhtml1dir>, C<installhtml3dir>,
+C<installman1dir>, C<installman3dir>, C<installprefix>,
+C<installprefixexp>, C<installprivlib>, C<installscript>,
+C<installsitearch>, C<installsitebin>, C<installsitehtml1dir>,
+C<installsitehtml3dir>, C<installsitelib>, C<installsiteman1dir>,
+C<installsiteman3dir>, C<installsitescript>, C<installstyle>,
+C<installusrbinperl>, C<installvendorarch>, C<installvendorbin>,
+C<installvendorhtml1dir>, C<installvendorhtml3dir>, C<installvendorlib>,
+C<installvendorman1dir>, C<installvendorman3dir>, C<installvendorscript>,
+C<intsize>, C<issymlink>, C<ivdformat>, C<ivsize>, C<ivtype>
+
+=over 4
+
+=item k
+
+=back
+
+C<known_extensions>, C<ksh>
+
+=over 4
+
+=item l
+
+=back
+
+C<ld>, C<ld_can_script>, C<lddlflags>, C<ldflags>,
+C<ldflags_uselargefiles>, C<ldlibpthname>, C<less>, C<lib_ext>, C<libc>,
+C<libperl>, C<libpth>, C<libs>, C<libsdirs>, C<libsfiles>, C<libsfound>,
+C<libspath>, C<libswanted>, C<libswanted_uselargefiles>, C<line>, C<lint>,
+C<lkflags>, C<ln>, C<lns>, C<localtime_r_proto>, C<locincpth>,
+C<loclibpth>, C<longdblinfbytes>, C<longdblkind>, C<longdblmantbits>,
+C<longdblnanbytes>, C<longdblsize>, C<longlongsize>, C<longsize>, C<lp>,
+C<lpr>, C<ls>, C<lseeksize>, C<lseektype>
+
+=over 4
+
+=item m
+
+=back
+
+C<mail>, C<mailx>, C<make>, C<make_set_make>, C<mallocobj>, C<mallocsrc>,
+C<malloctype>, C<man1dir>, C<man1direxp>, C<man1ext>, C<man3dir>,
+C<man3direxp>, C<man3ext>, C<mips_type>, C<mistrustnm>, C<mkdir>,
+C<mmaptype>, C<modetype>, C<more>, C<multiarch>, C<mv>, C<myarchname>,
+C<mydomain>, C<myhostname>, C<myuname>
+
+=over 4
+
+=item n
+
+=back
+
+C<n>, C<need_va_copy>, C<netdb_hlen_type>, C<netdb_host_type>,
+C<netdb_name_type>, C<netdb_net_type>, C<nm>, C<nm_opt>, C<nm_so_opt>,
+C<nonxs_ext>, C<nroff>, C<nv_overflows_integers_at>,
+C<nv_preserves_uv_bits>, C<nveformat>, C<nvEUformat>, C<nvfformat>,
+C<nvFUformat>, C<nvgformat>, C<nvGUformat>, C<nvmantbits>, C<nvsize>,
+C<nvtype>
+
+=over 4
+
+=item o
+
+=back
+
+C<o_nonblock>, C<obj_ext>, C<old_pthread_create_joinable>, C<optimize>,
+C<orderlib>, C<osname>, C<osvers>, C<otherlibdirs>
+
+=over 4
+
+=item p
+
+=back
+
+C<package>, C<pager>, C<passcat>, C<patchlevel>, C<path_sep>, C<perl>,
+C<perl5>
+
+=over 4
+
+=item P
+
+=back
+
+C<PERL_API_REVISION>, C<PERL_API_SUBVERSION>, C<PERL_API_VERSION>,
+C<PERL_CONFIG_SH>, C<PERL_PATCHLEVEL>, C<perl_patchlevel>,
+C<PERL_REVISION>, C<perl_static_inline>, C<PERL_SUBVERSION>,
+C<PERL_VERSION>, C<perladmin>, C<perllibs>, C<perlpath>, C<pg>,
+C<phostname>, C<pidtype>, C<plibpth>, C<pmake>, C<pr>, C<prefix>,
+C<prefixexp>, C<privlib>, C<privlibexp>, C<procselfexe>, C<prototype>,
+C<ptrsize>
+
+=over 4
+
+=item q
+
+=back
+
+C<quadkind>, C<quadtype>
+
+=over 4
+
+=item r
+
+=back
+
+C<randbits>, C<randfunc>, C<random_r_proto>, C<randseedtype>, C<ranlib>,
+C<rd_nodata>, C<readdir64_r_proto>, C<readdir_r_proto>, C<revision>, C<rm>,
+C<rm_try>, C<rmail>, C<run>, C<runnm>
+
+=over 4
+
+=item s
+
+=back
+
+C<sched_yield>, C<scriptdir>, C<scriptdirexp>, C<sed>, C<seedfunc>,
+C<selectminbits>, C<selecttype>, C<sendmail>, C<setgrent_r_proto>,
+C<sethostent_r_proto>, C<setlocale_r_proto>, C<setnetent_r_proto>,
+C<setprotoent_r_proto>, C<setpwent_r_proto>, C<setservent_r_proto>,
+C<sGMTIME_max>, C<sGMTIME_min>, C<sh>, C<shar>, C<sharpbang>, C<shmattype>,
+C<shortsize>, C<shrpenv>, C<shsharp>, C<sig_count>, C<sig_name>,
+C<sig_name_init>, C<sig_num>, C<sig_num_init>, C<sig_size>, C<signal_t>,
+C<sitearch>, C<sitearchexp>, C<sitebin>, C<sitebinexp>, C<sitehtml1dir>,
+C<sitehtml1direxp>, C<sitehtml3dir>, C<sitehtml3direxp>, C<sitelib>,
+C<sitelib_stem>, C<sitelibexp>, C<siteman1dir>, C<siteman1direxp>,
+C<siteman3dir>, C<siteman3direxp>, C<siteprefix>, C<siteprefixexp>,
+C<sitescript>, C<sitescriptexp>, C<sizesize>, C<sizetype>, C<sleep>,
+C<sLOCALTIME_max>, C<sLOCALTIME_min>, C<smail>, C<so>, C<sockethdr>,
+C<socketlib>, C<socksizetype>, C<sort>, C<spackage>, C<spitshell>,
+C<sPRId64>, C<sPRIeldbl>, C<sPRIEUldbl>, C<sPRIfldbl>, C<sPRIFUldbl>,
+C<sPRIgldbl>, C<sPRIGUldbl>, C<sPRIi64>, C<sPRIo64>, C<sPRIu64>,
+C<sPRIx64>, C<sPRIXU64>, C<srand48_r_proto>, C<srandom_r_proto>, C<src>,
+C<sSCNfldbl>, C<ssizetype>, C<st_ino_sign>, C<st_ino_size>, C<startperl>,
+C<startsh>, C<static_ext>, C<stdchar>, C<stdio_base>, C<stdio_bufsiz>,
+C<stdio_cnt>, C<stdio_filbuf>, C<stdio_ptr>, C<stdio_stream_array>,
+C<strerror_r_proto>, C<strings>, C<submit>, C<subversion>, C<sysman>,
+C<sysroot>
+
+=over 4
+
+=item t
+
+=back
+
+C<tail>, C<tar>, C<targetarch>, C<targetdir>, C<targetenv>, C<targethost>,
+C<targetmkdir>, C<targetport>, C<targetsh>, C<tbl>, C<tee>, C<test>,
+C<timeincl>, C<timetype>, C<tmpnam_r_proto>, C<to>, C<touch>, C<tr>,
+C<trnl>, C<troff>, C<ttyname_r_proto>
+
+=over 4
+
+=item u
+
+=back
+
+C<u16size>, C<u16type>, C<u32size>, C<u32type>, C<u64size>, C<u64type>,
+C<u8size>, C<u8type>, C<uidformat>, C<uidsign>, C<uidsize>, C<uidtype>,
+C<uname>, C<uniq>, C<uquadtype>, C<use5005threads>, C<use64bitall>,
+C<use64bitint>, C<usecbacktrace>, C<usecrosscompile>, C<usedevel>,
+C<usedl>, C<usedtrace>, C<usefaststdio>, C<useithreads>,
+C<usekernprocpathname>, C<uselargefiles>, C<uselongdouble>,
+C<usemallocwrap>, C<usemorebits>, C<usemultiplicity>, C<usemymalloc>,
+C<usenm>, C<usensgetexecutablepath>, C<useopcode>, C<useperlio>,
+C<useposix>, C<usequadmath>, C<usereentrant>, C<userelocatableinc>,
+C<useshrplib>, C<usesitecustomize>, C<usesocks>, C<usethreads>,
+C<usevendorprefix>, C<useversionedarchname>, C<usevfork>, C<usrinc>,
+C<uuname>, C<uvoformat>, C<uvsize>, C<uvtype>, C<uvuformat>, C<uvxformat>,
+C<uvXUformat>
+
+=over 4
+
+=item v
+
+=back
+
+C<vaproto>, C<vendorarch>, C<vendorarchexp>, C<vendorbin>, C<vendorbinexp>,
+C<vendorhtml1dir>, C<vendorhtml1direxp>, C<vendorhtml3dir>,
+C<vendorhtml3direxp>, C<vendorlib>, C<vendorlib_stem>, C<vendorlibexp>,
+C<vendorman1dir>, C<vendorman1direxp>, C<vendorman3dir>,
+C<vendorman3direxp>, C<vendorprefix>, C<vendorprefixexp>, C<vendorscript>,
+C<vendorscriptexp>, C<version>, C<version_patchlevel_string>,
+C<versiononly>, C<vi>
+
+=over 4
+
+=item x
+
+=back
+
+C<xlibpth>
+
+=over 4
+
+=item y
+
+=back
+
+C<yacc>, C<yaccflags>
+
+=over 4
+
+=item z
+
+=back
+
+C<zcat>, C<zip>
+
+=over 4
+
+=item GIT DATA
+
+=item NOTE
+
+=back
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+dynamic, nonxs, static
+
+=item AUTHOR
+
+=back
+
+=head2 Config::Perl::V - Structured data retrieval of perl -V output
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item $conf = myconfig ()
+
+=item $conf = plv2hash ($text [, ...])
+
+=item $info = summary ([$conf])
+
+=item $md5 = signature ([$conf])
+
+=item The hash structure
+
+build, osname, stamp, options, derived, patches, environment, config, inc
+
+=back
+
+=item REASONING
+
+=item BUGS
+
+=item TODO
+
+=item AUTHOR
+
+=item COPYRIGHT AND LICENSE
+
+=back
+
+=head2 Cwd - get pathname of current working directory
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item getcwd and friends
+
+getcwd, cwd, fastcwd, fastgetcwd, getdcwd
+
+=item abs_path and friends
+
+abs_path, realpath, fast_abs_path
+
+=item $ENV{PWD}
+
+=back
+
+=item NOTES
+
+=item AUTHOR
+
+=item COPYRIGHT
+
+=item SEE ALSO
+
+=back
+
+=head2 DB - programmatic interface to the Perl debugging API
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item Global Variables
+
+ $DB::sub,  %DB::sub,  $DB::single,  $DB::signal,  $DB::trace,	@DB::args, 
+@DB::dbline,  %DB::dbline,  $DB::package,  $DB::filename,  $DB::subname, 
+$DB::lineno
+
+=item API Methods
+
+CLIENT->register(), CLIENT->evalcode(STRING), CLIENT->skippkg('D::hide'),
+CLIENT->run(), CLIENT->step(), CLIENT->next(), CLIENT->done()
+
+=item Client Callback Methods
+
+CLIENT->init(), CLIENT->prestop([STRING]), CLIENT->stop(), CLIENT->idle(),
+CLIENT->poststop([STRING]), CLIENT->evalcode(STRING), CLIENT->cleanup(),
+CLIENT->output(LIST)
+
+=back
+
+=item BUGS
+
+=item AUTHOR
+
+=back
+
+=head2 DBM_Filter -- Filter DBM keys/values 
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item What is a DBM Filter?
+
+=over 4
+
+=item So what's new?
+
+=back
+
+=item METHODS
+
+=over 4
+
+=item $db->Filter_Push() / $db->Filter_Key_Push() /
+$db->Filter_Value_Push()
+
+Filter_Push, Filter_Key_Push, Filter_Value_Push
+
+=item $db->Filter_Pop()
+
+=item $db->Filtered()
+
+=back
+
+=item Writing a Filter
+
+=over 4
+
+=item Immediate Filters
+
+=item Canned Filters
+
+"name", params
+
+=back
+
+=item Filters Included
+
+utf8, encode, compress, int32, null
+
+=item NOTES
+
+=over 4
+
+=item Maintain Round Trip Integrity
+
+=item Don't mix filtered & non-filtered data in the same database file. 
+
+=back
+
+=item EXAMPLE
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=back
+
+=head2 DBM_Filter::compress - filter for DBM_Filter
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=back
+
+=head2 DBM_Filter::encode - filter for DBM_Filter
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=back
+
+=head2 DBM_Filter::int32 - filter for DBM_Filter
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=back
+
+=head2 DBM_Filter::null - filter for DBM_Filter
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=back
+
+=head2 DBM_Filter::utf8 - filter for DBM_Filter
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=back
+
+=head2 Data::Dumper - stringified perl data structures, suitable for both
+printing and C<eval>
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item Methods
+
+I<PACKAGE>->new(I<ARRAYREF [>, I<ARRAYREF]>), I<$OBJ>->Dump  I<or> 
+I<PACKAGE>->Dump(I<ARRAYREF [>, I<ARRAYREF]>), I<$OBJ>->Seen(I<[HASHREF]>),
+I<$OBJ>->Values(I<[ARRAYREF]>), I<$OBJ>->Names(I<[ARRAYREF]>),
+I<$OBJ>->Reset
+
+=item Functions
+
+Dumper(I<LIST>)
+
+=item Configuration Variables or Methods
+
+=item Exports
+
+Dumper
+
+=back
+
+=item EXAMPLES
+
+=item BUGS
+
+=over 4
+
+=item NOTE
+
+=back
+
+=item AUTHOR
+
+=item VERSION
+
+=item SEE ALSO
+
+=back
+
+=head2 Devel::PPPort - Perl/Pollution/Portability
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item Why use ppport.h?
+
+=item How to use ppport.h
+
+=item Running ppport.h
+
+=back
+
+=item FUNCTIONS
+
+=over 4
+
+=item WriteFile
+
+=item GetFileContents
+
+=back
+
+=item COMPATIBILITY
+
+=over 4
+
+=item Provided Perl compatibility API
+
+=item Perl API not supported by ppport.h
+
+perl 5.21.8, perl 5.21.7, perl 5.21.6, perl 5.21.5, perl 5.21.4, perl
+5.21.2, perl 5.21.1, perl 5.19.10, perl 5.19.9, perl 5.19.7, perl 5.19.4,
+perl 5.19.3, perl 5.19.2, perl 5.19.1, perl 5.18.0, perl 5.17.9, perl
+5.17.8, perl 5.17.7, perl 5.17.6, perl 5.17.4, perl 5.17.2, perl 5.15.9,
+perl 5.15.8, perl 5.15.7, perl 5.15.6, perl 5.15.4, perl 5.15.1, perl
+5.14.0, perl 5.13.10, perl 5.13.8, perl 5.13.7, perl 5.13.6, perl 5.13.5,
+perl 5.13.3, perl 5.13.2, perl 5.13.1, perl 5.11.5, perl 5.11.4, perl
+5.11.2, perl 5.11.1, perl 5.11.0, perl 5.10.1, perl 5.10.0, perl 5.9.5,
+perl 5.9.4, perl 5.9.3, perl 5.9.2, perl 5.9.1, perl 5.9.0, perl 5.8.3,
+perl 5.8.1, perl 5.8.0, perl 5.7.3, perl 5.7.2, perl 5.7.1, perl 5.6.1,
+perl 5.6.0, perl 5.005_03, perl 5.005, perl 5.004_05, perl 5.004, perl
+5.003_07
+
+=back
+
+=item BUGS
+
+=item AUTHORS
+
+=item COPYRIGHT
+
+=item SEE ALSO
+
+=back
+
+=head2 Devel::Peek - A data debugging tool for the XS programmer
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item Runtime debugging
+
+=item Memory footprint debugging
+
+=back
+
+=item EXAMPLES
+
+=over 4
+
+=item A simple scalar string
+
+=item A simple scalar number
+
+=item A simple scalar with an extra reference
+
+=item A reference to a simple scalar
+
+=item A reference to an array
+
+=item A reference to a hash
+
+=item Dumping a large array or hash
+
+=item A reference to an SV which holds a C pointer
+
+=item A reference to a subroutine
+
+=back
+
+=item EXPORTS
+
+=item BUGS
+
+=item AUTHOR
+
+=item SEE ALSO
+
+=back
+
+=head2 Devel::SelfStubber - generate stubs for a SelfLoading module
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=back
+
+=head2 Digest - Modules that calculate message digests
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+I<binary>, I<hex>, I<base64>
+
+=item OO INTERFACE
+
+$ctx = Digest->XXX($arg,...), $ctx = Digest->new(XXX => $arg,...), $ctx =
+Digest::XXX->new($arg,...), $other_ctx = $ctx->clone, $ctx->reset,
+$ctx->add( $data ), $ctx->add( $chunk1, $chunk2, ... ), $ctx->addfile(
+$io_handle ), $ctx->add_bits( $data, $nbits ), $ctx->add_bits( $bitstring
+), $ctx->digest, $ctx->hexdigest, $ctx->b64digest
+
+=item Digest speed
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=back
+
+=head2 Digest::MD5 - Perl interface to the MD5 Algorithm
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item FUNCTIONS
+
+md5($data,...), md5_hex($data,...), md5_base64($data,...)
+
+=item METHODS
+
+$md5 = Digest::MD5->new, $md5->reset, $md5->clone, $md5->add($data,...),
+$md5->addfile($io_handle), $md5->add_bits($data, $nbits),
+$md5->add_bits($bitstring), $md5->digest, $md5->hexdigest, $md5->b64digest,
+@ctx = $md5->context, $md5->context(@ctx)
+
+=item EXAMPLES
+
+=item SEE ALSO
+
+=item COPYRIGHT
+
+=item AUTHORS
+
+=back
+
+=head2 Digest::SHA - Perl extension for SHA-1/224/256/384/512
+
+=over 4
+
+=item SYNOPSIS
+
+=item SYNOPSIS (HMAC-SHA)
+
+=item ABSTRACT
+
+=item DESCRIPTION
+
+=item UNICODE AND SIDE EFFECTS
+
+=item NIST STATEMENT ON SHA-1
+
+=item PADDING OF BASE64 DIGESTS
+
+=item EXPORT
+
+=item EXPORTABLE FUNCTIONS
+
+B<sha1($data, ...)>, B<sha224($data, ...)>, B<sha256($data, ...)>,
+B<sha384($data, ...)>, B<sha512($data, ...)>, B<sha512224($data, ...)>,
+B<sha512256($data, ...)>, B<sha1_hex($data, ...)>, B<sha224_hex($data,
+...)>, B<sha256_hex($data, ...)>, B<sha384_hex($data, ...)>,
+B<sha512_hex($data, ...)>, B<sha512224_hex($data, ...)>,
+B<sha512256_hex($data, ...)>, B<sha1_base64($data, ...)>,
+B<sha224_base64($data, ...)>, B<sha256_base64($data, ...)>,
+B<sha384_base64($data, ...)>, B<sha512_base64($data, ...)>,
+B<sha512224_base64($data, ...)>, B<sha512256_base64($data, ...)>,
+B<new($alg)>, B<reset($alg)>, B<hashsize>, B<algorithm>, B<clone>,
+B<add($data, ...)>, B<add_bits($data, $nbits)>, B<add_bits($bits)>,
+B<addfile(*FILE)>, B<addfile($filename [, $mode])>, B<getstate>,
+B<putstate($str)>, B<dump($filename)>, B<load($filename)>, B<digest>,
+B<hexdigest>, B<b64digest>, B<hmac_sha1($data, $key)>, B<hmac_sha224($data,
+$key)>, B<hmac_sha256($data, $key)>, B<hmac_sha384($data, $key)>,
+B<hmac_sha512($data, $key)>, B<hmac_sha512224($data, $key)>,
+B<hmac_sha512256($data, $key)>, B<hmac_sha1_hex($data, $key)>,
+B<hmac_sha224_hex($data, $key)>, B<hmac_sha256_hex($data, $key)>,
+B<hmac_sha384_hex($data, $key)>, B<hmac_sha512_hex($data, $key)>,
+B<hmac_sha512224_hex($data, $key)>, B<hmac_sha512256_hex($data, $key)>,
+B<hmac_sha1_base64($data, $key)>, B<hmac_sha224_base64($data, $key)>,
+B<hmac_sha256_base64($data, $key)>, B<hmac_sha384_base64($data, $key)>,
+B<hmac_sha512_base64($data, $key)>, B<hmac_sha512224_base64($data, $key)>,
+B<hmac_sha512256_base64($data, $key)>
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=item ACKNOWLEDGMENTS
+
+=item COPYRIGHT AND LICENSE
+
+=back
+
+=head2 Digest::base - Digest base class
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item SEE ALSO
+
+=back
+
+=head2 Digest::file - Calculate digests of files
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+digest_file( $file, $algorithm, [$arg,...] ), digest_file_hex( $file,
+$algorithm, [$arg,...] ), digest_file_base64( $file, $algorithm, [$arg,...]
+)
+
+=item SEE ALSO
+
+=back
+
+=head2 DirHandle - supply object methods for directory handles
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=back
+
+=head2 Dumpvalue - provides screen dump of Perl data.
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item Creation
+
+C<arrayDepth>, C<hashDepth>, C<compactDump>, C<veryCompact>, C<globPrint>,
+C<dumpDBFiles>, C<dumpPackages>, C<dumpReused>, C<tick>, C<quoteHighBit>,
+C<printUndef>, C<usageOnly>, unctrl, subdump, bareStringify, quoteHighBit,
+stopDbSignal
+
+=item Methods
+
+dumpValue, dumpValues, stringify, dumpvars, set_quote, set_unctrl,
+compactDump, veryCompact, set, get
+
+=back
+
+=back
+
+=head2 DynaLoader - Dynamically load C libraries into Perl code
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+@dl_library_path, @dl_resolve_using, @dl_require_symbols, @dl_librefs,
+@dl_modules, @dl_shared_objects, dl_error(), $dl_debug, $dl_dlext,
+dl_findfile(), dl_expandspec(), dl_load_file(), dl_unload_file(),
+dl_load_flags(), dl_find_symbol(), dl_find_symbol_anywhere(),
+dl_undef_symbols(), dl_install_xsub(), bootstrap()
+
+=item AUTHOR
+
+=back
+
+=head2 Encode - character encodings in Perl
+
+=over 4
+
+=item SYNOPSIS
+
+=over 4
+
+=item Table of Contents
+
+L<Encode::Alias> - Alias definitions to encodings, L<Encode::Encoding> -
+Encode Implementation Base Class, L<Encode::Supported> - List of Supported
+Encodings, L<Encode::CN> - Simplified Chinese Encodings, L<Encode::JP> -
+Japanese Encodings, L<Encode::KR> - Korean Encodings, L<Encode::TW> -
+Traditional Chinese Encodings
+
+=back
+
+=item DESCRIPTION
+
+=over 4
+
+=item TERMINOLOGY
+
+=back
+
+=item THE PERL ENCODING API
+
+=over 4
+
+=item Basic methods
+
+=item Listing available encodings
+
+=item Defining Aliases
+
+=item Finding IANA Character Set Registry names
+
+=back
+
+=item Encoding via PerlIO
+
+=item Handling Malformed Data
+
+=over 4
+
+=item List of I<CHECK> values
+
+perlqq mode (I<CHECK> = Encode::FB_PERLQQ), HTML charref mode (I<CHECK> =
+Encode::FB_HTMLCREF), XML charref mode (I<CHECK> = Encode::FB_XMLCREF)
+
+=item coderef for CHECK
+
+=back
+
+=item Defining Encodings
+
+=item The UTF8 flag
+
+Goal #1:, Goal #2:, Goal #3:, Goal #4:
+
+=over 4
+
+=item Messing with Perl's Internals
+
+=back
+
+=item UTF-8 vs. utf8 vs. UTF8
+
+=item SEE ALSO
+
+=item MAINTAINER
+
+=item COPYRIGHT
+
+=back
+
+=head2 Encode::Alias - alias definitions to encodings
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+As a simple string, As a qr// compiled regular expression, e.g.:, As a code
+reference, e.g.:
+
+=over 4
+
+=item Alias overloading
+
+=back
+
+=item SEE ALSO
+
+=back
+
+=head2 Encode::Byte - Single Byte Encodings
+
+=over 4
+
+=item SYNOPSIS
+
+=item ABSTRACT
+
+=item DESCRIPTION
+
+=item SEE ALSO
+
+=back
+
+=head2 Encode::CJKConstants -- Internally used by Encode::??::ISO_2022_*
+
+=head2 Encode::CN - China-based Chinese Encodings
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item NOTES
+
+=item BUGS
+
+=item SEE ALSO
+
+=back
+
+=head2 Encode::CN::HZ -- internally used by Encode::CN
+
+=head2 Encode::Config -- internally used by Encode
+
+=head2 Encode::EBCDIC - EBCDIC Encodings
+
+=over 4
+
+=item SYNOPSIS
+
+=item ABSTRACT
+
+=item DESCRIPTION
+
+=item SEE ALSO
+
+=back
+
+=head2 Encode::Encoder -- Object Oriented Encoder
+
+=over 4
+
+=item SYNOPSIS
+
+=item ABSTRACT
+
+=item Description
+
+=over 4
+
+=item Predefined Methods
+
+$e = Encode::Encoder-E<gt>new([$data, $encoding]);, encoder(),
+$e-E<gt>data([$data]), $e-E<gt>encoding([$encoding]),
+$e-E<gt>bytes([$encoding])
+
+=item Example: base64 transcoder
+
+=item Operator Overloading
+
+=back
+
+=item SEE ALSO
+
+=back
+
+=head2 Encode::Encoding - Encode Implementation Base Class
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item Methods you should implement
+
+-E<gt>encode($string [,$check]), -E<gt>decode($octets [,$check]),
+-E<gt>cat_decode($destination, $octets, $offset, $terminator [,$check])
+
+=item Other methods defined in Encode::Encodings
+
+-E<gt>name, -E<gt>mime_name, -E<gt>renew, -E<gt>renewed, -E<gt>perlio_ok(),
+-E<gt>needs_lines()
+
+=item Example: Encode::ROT13
+
+=back
+
+=item Why the heck Encode API is different?
+
+=over 4
+
+=item Compiled Encodings
+
+=back
+
+=item SEE ALSO
+
+Scheme 1, Scheme 2, Other Schemes
+
+=back
+
+=head2 Encode::GSM0338 -- ESTI GSM 03.38 Encoding
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item NOTES
+
+=item BUGS
+
+=item SEE ALSO
+
+=back
+
+=head2 Encode::Guess -- Guesses encoding from data
+
+=over 4
+
+=item SYNOPSIS
+
+=item ABSTRACT
+
+=item DESCRIPTION
+
+Encode::Guess->set_suspects, Encode::Guess->add_suspects,
+Encode::decode("Guess" ...), Encode::Guess->guess($data),
+guess_encoding($data, [, I<list of suspects>])
+
+=item CAVEATS
+
+=item TO DO
+
+=item SEE ALSO
+
+=back
+
+=head2 Encode::JP - Japanese Encodings
+
+=over 4
+
+=item SYNOPSIS
+
+=item ABSTRACT
+
+=item DESCRIPTION
+
+=item Note on ISO-2022-JP(-1)?
+
+=item BUGS
+
+=item SEE ALSO
+
+=back
+
+=head2 Encode::JP::H2Z -- internally used by Encode::JP::2022_JP*
+
+=head2 Encode::JP::JIS7 -- internally used by Encode::JP
+
+=head2 Encode::KR - Korean Encodings
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item BUGS
+
+=item SEE ALSO
+
+=back
+
+=head2 Encode::KR::2022_KR -- internally used by Encode::KR
+
+=head2 Encode::MIME::Header -- MIME 'B' and 'Q' header encoding
+
+=over 4
+
+=item SYNOPSIS
+
+=item ABSTRACT
+
+=item DESCRIPTION
+
+=item BUGS
+
+=item SEE ALSO
+
+=back
+
+=head2 Encode::MIME::Name, Encode::MIME::NAME -- internally used by Encode
+
+=over 4
+
+=item SEE ALSO
+
+=back
+
+=head2 Encode::PerlIO -- a detailed document on Encode and PerlIO
+
+=over 4
+
+=item Overview
+
+=item How does it work?
+
+=item Line Buffering
+
+=over 4
+
+=item How can I tell whether my encoding fully supports PerlIO ?
+
+=back
+
+=item SEE ALSO
+
+=back
+
+=head2 Encode::Supported -- Encodings supported by Encode
+
+=over 4
+
+=item DESCRIPTION
+
+=over 4
+
+=item Encoding Names
+
+=back
+
+=item Supported Encodings
+
+=over 4
+
+=item Built-in Encodings
+
+=item Encode::Unicode -- other Unicode encodings
+
+=item Encode::Byte -- Extended ASCII
+
+ISO-8859 and corresponding vendor mappings, KOI8 - De Facto Standard for
+the Cyrillic world
+
+=item gsm0338 - Hentai Latin 1
+
+gsm0338 support before 2.19
+
+=item CJK: Chinese, Japanese, Korean (Multibyte)
+
+Encode::CN -- Continental China, Encode::JP -- Japan, Encode::KR -- Korea,
+Encode::TW -- Taiwan, Encode::HanExtra -- More Chinese via CPAN,
+Encode::JIS2K -- JIS X 0213 encodings via CPAN
+
+=item Miscellaneous encodings
+
+Encode::EBCDIC, Encode::Symbols, Encode::MIME::Header, Encode::Guess
+
+=back
+
+=item Unsupported encodings
+
+  ISO-2022-JP-2 [RFC1554], ISO-2022-CN [RFC1922], Various HP-UX encodings,
+Cyrillic encoding ISO-IR-111, ISO-8859-8-1 [Hebrew], ISIRI 3342, Iran
+System, ISIRI 2900 [Farsi], Thai encoding TCVN, Vietnamese encodings VPS,
+Various Mac encodings, (Mac) Indic encodings
+
+=item Encoding vs. Charset -- terminology
+
+=item Encoding Classification (by Anton Tagunov and Dan Kogai)
+
+=over 4
+
+=item Microsoft-related naming mess
+
+KS_C_5601-1987, GB2312, Big5, Shift_JIS
+
+=back
+
+=item Glossary
+
+character repertoire, coded character set (CCS), character encoding scheme
+(CES), charset (in MIME context), EUC, ISO-2022, UCS, UCS-2, Unicode, UTF,
+UTF-16
+
+=item See Also
+
+=item References
+
+ECMA, ECMA-035 (eq C<ISO-2022>), IANA, Assigned Charset Names by IANA, ISO,
+RFC, UC, Unicode Glossary
+
+=over 4
+
+=item Other Notable Sites
+
+czyborra.com, CJK.inf, Jungshik Shin's Hangul FAQ, debian.org:
+"Introduction to i18n"
+
+=item Offline sources
+
+C<CJKV Information Processing> by Ken Lunde
+
+=back
+
+=back
+
+=head2 Encode::Symbol - Symbol Encodings
+
+=over 4
+
+=item SYNOPSIS
+
+=item ABSTRACT
+
+=item DESCRIPTION
+
+=item SEE ALSO
+
+=back
+
+=head2 Encode::TW - Taiwan-based Chinese Encodings
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item NOTES
+
+=item BUGS
+
+=item SEE ALSO
+
+=back
+
+=head2 Encode::Unicode -- Various Unicode Transformation Formats
+
+=over 4
+
+=item SYNOPSIS
+
+=item ABSTRACT
+
+L<http://www.unicode.org/glossary/> says:, Quick Reference
+
+=item Size, Endianness, and BOM
+
+=over 4
+
+=item by size
+
+=item by endianness
+
+BOM as integer when fetched in network byte order
+
+=back
+
+=item Surrogate Pairs
+
+=item Error Checking
+
+=item SEE ALSO
+
+=back
+
+=head2 Encode::Unicode::UTF7 -- UTF-7 encoding
+
+=over 4
+
+=item SYNOPSIS
+
+=item ABSTRACT
+
+=item In Practice
+
+=item SEE ALSO
+
+=back
+
+=head2 English - use nice English (or awk) names for ugly punctuation
+variables
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item PERFORMANCE
+
+=back
+
+=head2 Env - perl module that imports environment variables as scalars or
+arrays
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item LIMITATIONS
+
+=item AUTHOR
+
+=back
+
+=head2 Errno - System errno constants
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item CAVEATS
+
+=item AUTHOR
+
+=item COPYRIGHT
+
+=back
+
+=head2 Exporter - Implements default import method for modules
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item How to Export
+
+=item Selecting What to Export
+
+=item How to Import
+
+C<use YourModule;>, C<use YourModule ();>, C<use YourModule qw(...);>
+
+=back
+
+=item Advanced Features
+
+=over 4
+
+=item Specialised Import Lists
+
+=item Exporting Without Using Exporter's import Method
+
+=item Exporting Without Inheriting from Exporter
+
+=item Module Version Checking
+
+=item Managing Unknown Symbols
+
+=item Tag Handling Utility Functions
+
+=item Generating Combined Tags
+
+=item C<AUTOLOAD>ed Constants
+
+=back
+
+=item Good Practices
+
+=over 4
+
+=item Declaring C<@EXPORT_OK> and Friends
+
+=item Playing Safe
+
+=item What Not to Export
+
+=back
+
+=item SEE ALSO
+
+=item LICENSE
+
+=back
+
+=head2 Exporter::Heavy - Exporter guts
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=back
+
+=head2 ExtUtils::CBuilder - Compile and link C code for Perl modules
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item METHODS
+
+new, have_compiler, have_cplusplus, compile, C<object_file>,
+C<include_dirs>, C<extra_compiler_flags>, C<C++>, link, lib_file,
+module_name, extra_linker_flags, link_executable, exe_file, object_file,
+lib_file, exe_file, prelink, need_prelink, extra_link_args_after_prelink
+
+=item TO DO
+
+=item HISTORY
+
+=item SUPPORT
+
+=item AUTHOR
+
+=item COPYRIGHT
+
+=item SEE ALSO
+
+=back
+
+=head2 ExtUtils::CBuilder::Platform::Windows - Builder class for Windows
+platforms
+
+=over 4
+
+=item DESCRIPTION
+
+=item AUTHOR
+
+=item SEE ALSO
+
+=back
+
+=head2 ExtUtils::Command - utilities to replace common UNIX commands in
+Makefiles etc.
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item FUNCTIONS
+
+=back
+
+=back
+
+cat
+
+eqtime
+
+rm_rf
+
+rm_f
+
+touch
+
+mv
+
+cp
+
+chmod
+
+mkpath
+
+test_f
+
+test_d
+
+dos2unix
+
+=over 4
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=back
+
+=head2 ExtUtils::Command::MM - Commands for the MM's to use in Makefiles
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+B<test_harness>
+
+=back
+
+B<pod2man>
+
+B<warn_if_old_packlist>
+
+B<perllocal_install>
+
+B<uninstall>
+
+B<test_s>
+
+B<cp_nonempty>
+
+=head2 ExtUtils::Constant - generate XS code to import C header constants
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item USAGE
+
+IV, UV, NV, PV, PVN, SV, YES, NO, UNDEF
+
+=item FUNCTIONS
+
+=back
+
+constant_types
+
+XS_constant PACKAGE, TYPES, XS_SUBNAME, C_SUBNAME
+
+autoload PACKAGE, VERSION, AUTOLOADER
+
+WriteMakefileSnippet
+
+WriteConstants ATTRIBUTE =E<gt> VALUE [, ...], NAME, DEFAULT_TYPE,
+BREAKOUT_AT, NAMES, PROXYSUBS, C_FH, C_FILE, XS_FH, XS_FILE, XS_SUBNAME,
+C_SUBNAME
+
+=over 4
+
+=item AUTHOR
+
+=back
+
+=head2 ExtUtils::Constant::Base - base class for ExtUtils::Constant objects
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item USAGE
+
+=back
+
+header
+
+memEQ_clause args_hashref
+
+dump_names arg_hashref, ITEM..
+
+assign arg_hashref, VALUE..
+
+return_clause arg_hashref, ITEM
+
+switch_clause arg_hashref, NAMELEN, ITEMHASH, ITEM..
+
+params WHAT
+
+dogfood arg_hashref, ITEM..
+
+normalise_items args, default_type, seen_types, seen_items, ITEM..
+
+C_constant arg_hashref, ITEM.., name, type, value, macro, default, pre,
+post, def_pre, def_post, utf8, weight
+
+=over 4
+
+=item BUGS
+
+=item AUTHOR
+
+=back
+
+=head2 ExtUtils::Constant::Utils - helper functions for ExtUtils::Constant
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item USAGE
+
+C_stringify NAME
+
+=back
+
+perl_stringify NAME
+
+=over 4
+
+=item AUTHOR
+
+=back
+
+=head2 ExtUtils::Constant::XS - generate C code for XS modules' constants.
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item BUGS
+
+=item AUTHOR
+
+=back
+
+=head2 ExtUtils::Embed - Utilities for embedding Perl in C/C++ applications
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item @EXPORT
+
+=item FUNCTIONS
+
+xsinit(), Examples, ldopts(), Examples, perl_inc(), ccflags(), ccdlflags(),
+ccopts(), xsi_header(), xsi_protos(@modules), xsi_body(@modules)
+
+=item EXAMPLES
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=back
+
+=head2 ExtUtils::Install - install files from here to there
+
+=over 4
+
+=item SYNOPSIS
+
+=item VERSION
+
+=back
+
+=over 4
+
+=item DESCRIPTION
+
+_chmod($$;$), _warnonce(@), _choke(@)
+
+=back
+
+_move_file_at_boot( $file, $target, $moan  )
+
+_unlink_or_rename( $file, $tryhard, $installing )
+
+=over 4
+
+=item Functions
+
+_get_install_skip
+
+=back
+
+_have_write_access
+
+_can_write_dir(C<$dir>)
+
+_mkpath($dir,$show,$mode,$verbose,$dry_run)
+
+_copy($from,$to,$verbose,$dry_run)
+
+_chdir($from)
+
+B<install>
+
+_do_cleanup
+
+install_rooted_file( $file ), install_rooted_dir( $dir )
+
+forceunlink( $file, $tryhard )
+
+directory_not_empty( $dir )
+
+B<install_default> I<DISCOURAGED>
+
+B<uninstall>
+
+inc_uninstall($filepath,$libdir,$verbose,$dry_run,$ignore,$results)
+
+run_filter($cmd,$src,$dest)
+
+B<pm_to_blib>
+
+_autosplit
+
+_invokant
+
+=over 4
+
+=item ENVIRONMENT
+
+B<PERL_INSTALL_ROOT>, B<EU_INSTALL_IGNORE_SKIP>,
+B<EU_INSTALL_SITE_SKIPFILE>, B<EU_INSTALL_ALWAYS_COPY>
+
+=item AUTHOR
+
+=item LICENSE
+
+=back
+
+=head2 ExtUtils::Installed - Inventory management of installed modules
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item USAGE
+
+=item METHODS
+
+new(), modules(), files(), directories(), directory_tree(), validate(),
+packlist(), version()
+
+=item EXAMPLE
+
+=item AUTHOR
+
+=back
+
+=head2 ExtUtils::Liblist - determine libraries to use and how to use them
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+For static extensions, For dynamic extensions at build/link time, For
+dynamic extensions at load time
+
+=over 4
+
+=item EXTRALIBS
+
+=item LDLOADLIBS and LD_RUN_PATH
+
+=item BSLOADLIBS
+
+=back
+
+=item PORTABILITY
+
+=over 4
+
+=item VMS implementation
+
+=item Win32 implementation
+
+=back
+
+=item SEE ALSO
+
+=back
+
+=head2 ExtUtils::MM - OS adjusted ExtUtils::MakeMaker subclass
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=back
+
+=head2 ExtUtils::MM_AIX - AIX specific subclass of ExtUtils::MM_Unix
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item Overridden methods
+
+=back
+
+=back
+
+=over 4
+
+=item AUTHOR
+
+=item SEE ALSO
+
+=back
+
+=head2 ExtUtils::MM_Any - Platform-agnostic MM methods
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item METHODS
+
+=over 4
+
+=item Cross-platform helper methods
+
+=back
+
+=back
+
+=over 4
+
+=item Targets
+
+=back
+
+=over 4
+
+=item Init methods
+
+=back
+
+=over 4
+
+=item Tools
+
+=back
+
+=over 4
+
+=item File::Spec wrappers
+
+=back
+
+=over 4
+
+=item Misc
+
+=back
+
+=over 4
+
+=item AUTHOR
+
+=back
+
+=head2 ExtUtils::MM_BeOS - methods to override UN*X behaviour in
+ExtUtils::MakeMaker
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=back
+
+os_flavor
+
+init_linker
+
+=head2 ExtUtils::MM_Cygwin - methods to override UN*X behaviour in
+ExtUtils::MakeMaker
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+os_flavor
+
+=back
+
+cflags
+
+replace_manpage_separator
+
+init_linker
+
+maybe_command
+
+dynamic_lib
+
+all_target
+
+=head2 ExtUtils::MM_DOS - DOS specific subclass of ExtUtils::MM_Unix
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item Overridden methods
+
+os_flavor
+
+=back
+
+=back
+
+B<replace_manpage_separator>
+
+=over 4
+
+=item AUTHOR
+
+=item SEE ALSO
+
+=back
+
+=head2 ExtUtils::MM_Darwin - special behaviors for OS X
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item Overriden Methods
+
+=back
+
+=back
+
+=head2 ExtUtils::MM_MacOS - once produced Makefiles for MacOS Classic
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=back
+
+=head2 ExtUtils::MM_NW5 - methods to override UN*X behaviour in
+ExtUtils::MakeMaker
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=back
+
+os_flavor
+
+init_platform, platform_constants
+
+const_cccmd
+
+static_lib
+
+dynamic_lib
+
+=head2 ExtUtils::MM_OS2 - methods to override UN*X behaviour in
+ExtUtils::MakeMaker
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item METHODS
+
+init_dist
+
+=back
+
+init_linker
+
+os_flavor
+
+=head2 ExtUtils::MM_QNX - QNX specific subclass of ExtUtils::MM_Unix
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item Overridden methods
+
+=back
+
+=back
+
+=over 4
+
+=item AUTHOR
+
+=item SEE ALSO
+
+=back
+
+=head2 ExtUtils::MM_UWIN - U/WIN specific subclass of ExtUtils::MM_Unix
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item Overridden methods
+
+os_flavor
+
+=back
+
+=back
+
+B<replace_manpage_separator>
+
+=over 4
+
+=item AUTHOR
+
+=item SEE ALSO
+
+=back
+
+=head2 ExtUtils::MM_Unix - methods used by ExtUtils::MakeMaker
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item METHODS
+
+=back
+
+=over 4
+
+=item Methods
+
+os_flavor
+
+=back
+
+c_o (o)
+
+cflags (o)
+
+const_cccmd (o)
+
+const_config (o)
+
+const_loadlibs (o)
+
+constants (o)
+
+depend (o)
+
+init_DEST
+
+init_dist
+
+dist (o)
+
+dist_basics (o)
+
+dist_ci (o)
+
+dist_core (o)
+
+B<dist_target>
+
+B<tardist_target>
+
+B<zipdist_target>
+
+B<tarfile_target>
+
+zipfile_target
+
+uutardist_target
+
+shdist_target
+
+dlsyms (o)
+
+dynamic_bs (o)
+
+dynamic_lib (o)
+
+exescan
+
+extliblist
+
+find_perl
+
+fixin
+
+force (o)
+
+guess_name
+
+has_link_code
+
+init_dirscan
+
+init_MANPODS
+
+init_MAN1PODS
+
+init_MAN3PODS
+
+init_PM
+
+init_DIRFILESEP
+
+init_main
+
+init_tools
+
+init_linker
+
+init_lib2arch
+
+init_PERL
+
+init_platform, platform_constants
+
+init_PERM
+
+init_xs
+
+install (o)
+
+installbin (o)
+
+linkext (o)
+
+lsdir
+
+macro (o)
+
+makeaperl (o)
+
+makefile (o)
+
+maybe_command
+
+needs_linking (o)
+
+parse_abstract
+
+parse_version
+
+pasthru (o)
+
+perl_script
+
+perldepend (o)
+
+pm_to_blib
+
+post_constants (o)
+
+post_initialize (o)
+
+postamble (o)
+
+ppd
+
+prefixify
+
+processPL (o)
+
+specify_shell
+
+quote_paren
+
+replace_manpage_separator
+
+cd
+
+oneliner
+
+quote_literal
+
+escape_newlines
+
+max_exec_len
+
+static (o)
+
+static_lib (o)
+
+staticmake (o)
+
+subdir_x (o)
+
+subdirs (o)
+
+test (o)
+
+test_via_harness (override)
+
+test_via_script (override)
+
+tool_xsubpp (o)
+
+all_target
+
+top_targets (o)
+
+writedoc
+
+xs_c (o)
+
+xs_cpp (o)
+
+xs_o (o)
+
+=over 4
+
+=item SEE ALSO
+
+=back
+
+=head2 ExtUtils::MM_VMS - methods to override UN*X behaviour in
+ExtUtils::MakeMaker
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item Methods always loaded
+
+wraplist
+
+=back
+
+=back
+
+=over 4
+
+=item Methods
+
+guess_name (override)
+
+=back
+
+find_perl (override)
+
+_fixin_replace_shebang (override)
+
+maybe_command (override)
+
+pasthru (override)
+
+pm_to_blib (override)
+
+perl_script (override)
+
+replace_manpage_separator
+
+init_DEST
+
+init_DIRFILESEP
+
+init_main (override)
+
+init_tools (override)
+
+init_platform (override)
+
+platform_constants
+
+init_VERSION (override)
+
+constants (override)
+
+special_targets
+
+cflags (override)
+
+const_cccmd (override)
+
+tools_other (override)
+
+init_dist (override)
+
+c_o (override)
+
+xs_c (override)
+
+xs_o (override)
+
+dlsyms (override)
+
+dynamic_lib (override)
+
+static_lib (override)
+
+extra_clean_files
+
+zipfile_target, tarfile_target, shdist_target
+
+install (override)
+
+perldepend (override)
+
+makeaperl (override)
+
+maketext_filter (override)
+
+prefixify (override)
+
+cd
+
+oneliner
+
+B<echo>
+
+quote_literal
+
+escape_dollarsigns
+
+escape_all_dollarsigns
+
+escape_newlines
+
+max_exec_len
+
+init_linker
+
+catdir (override), catfile (override)
+
+eliminate_macros
+
+fixpath
+
+os_flavor
+
+is_make_type (override)
+
+=over 4
+
+=item AUTHOR
+
+=back
+
+=head2 ExtUtils::MM_VOS - VOS specific subclass of ExtUtils::MM_Unix
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item Overridden methods
+
+=back
+
+=back
+
+=over 4
+
+=item AUTHOR
+
+=item SEE ALSO
+
+=back
+
+=head2 ExtUtils::MM_Win32 - methods to override UN*X behaviour in
+ExtUtils::MakeMaker
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=back
+
+=over 4
+
+=item Overridden methods
+
+B<dlsyms>
+
+=back
+
+replace_manpage_separator
+
+B<maybe_command>
+
+B<init_DIRFILESEP>
+
+init_tools
+
+init_others
+
+init_platform, platform_constants
+
+specify_shell
+
+constants
+
+special_targets
+
+static_lib
+
+dynamic_lib
+
+extra_clean_files
+
+init_linker
+
+perl_script
+
+quote_dep
+
+xs_o
+
+pasthru
+
+arch_check (override)
+
+oneliner
+
+cd
+
+max_exec_len
+
+os_flavor
+
+cflags
+
+=head2 ExtUtils::MM_Win95 - method to customize MakeMaker for Win9X
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item Overridden methods
+
+xs_c
+
+=back
+
+=back
+
+xs_cpp
+
+xs_o
+
+max_exec_len
+
+os_flavor
+
+=over 4
+
+=item AUTHOR
+
+=back
+
+=head2 ExtUtils::MY - ExtUtils::MakeMaker subclass for customization
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=back
+
+=head2 ExtUtils::MakeMaker - Create a module Makefile
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item How To Write A Makefile.PL
+
+=item Default Makefile Behaviour
+
+=item make test
+
+=item make testdb
+
+=item make install
+
+=item INSTALL_BASE
+
+=item PREFIX and LIB attribute
+
+=item AFS users
+
+=item Static Linking of a new Perl Binary
+
+=item Determination of Perl Library and Installation Locations
+
+=item Which architecture dependent directory?
+
+=item Using Attributes and Parameters
+
+ABSTRACT, ABSTRACT_FROM, AUTHOR, BINARY_LOCATION, BUILD_REQUIRES, C,
+CCFLAGS, CONFIG, CONFIGURE, CONFIGURE_REQUIRES, DEFINE, DESTDIR, DIR,
+DISTNAME, DISTVNAME, DLEXT, DL_FUNCS, DL_VARS, EXCLUDE_EXT, EXE_FILES,
+FIRST_MAKEFILE, FULLPERL, FULLPERLRUN, FULLPERLRUNINST, FUNCLIST, H,
+IMPORTS, INC, INCLUDE_EXT, INSTALLARCHLIB, INSTALLBIN, INSTALLDIRS,
+INSTALLMAN1DIR, INSTALLMAN3DIR, INSTALLPRIVLIB, INSTALLSCRIPT,
+INSTALLSITEARCH, INSTALLSITEBIN, INSTALLSITELIB, INSTALLSITEMAN1DIR,
+INSTALLSITEMAN3DIR, INSTALLSITESCRIPT, INSTALLVENDORARCH, INSTALLVENDORBIN,
+INSTALLVENDORLIB, INSTALLVENDORMAN1DIR, INSTALLVENDORMAN3DIR,
+INSTALLVENDORSCRIPT, INST_ARCHLIB, INST_BIN, INST_LIB, INST_MAN1DIR,
+INST_MAN3DIR, INST_SCRIPT, LD, LDDLFLAGS, LDFROM, LIB, LIBPERL_A, LIBS,
+LICENSE, LINKTYPE, MAGICXS, MAKE, MAKEAPERL, MAKEFILE_OLD, MAN1PODS,
+MAN3PODS, MAP_TARGET, META_ADD, META_MERGE, MIN_PERL_VERSION, MYEXTLIB,
+NAME, NEEDS_LINKING, NOECHO, NORECURS, NO_META, NO_MYMETA, NO_PACKLIST,
+NO_PERLLOCAL, NO_VC, OBJECT, OPTIMIZE, PERL, PERL_CORE, PERLMAINCC,
+PERL_ARCHLIB, PERL_LIB, PERL_MALLOC_OK, PERLPREFIX, PERLRUN, PERLRUNINST,
+PERL_SRC, PERM_DIR, PERM_RW, PERM_RWX, PL_FILES, PM, PMLIBDIRS, PM_FILTER,
+POLLUTE, PPM_INSTALL_EXEC, PPM_INSTALL_SCRIPT, PPM_UNINSTALL_EXEC,
+PPM_UNINSTALL_SCRIPT, PREFIX, PREREQ_FATAL, PREREQ_PM, PREREQ_PRINT,
+PRINT_PREREQ, SITEPREFIX, SIGN, SKIP, TEST_REQUIRES, TYPEMAPS,
+VENDORPREFIX, VERBINST, VERSION, VERSION_FROM, VERSION_SYM, XS, XSOPT,
+XSPROTOARG, XS_VERSION
+
+=item Additional lowercase attributes
+
+clean, depend, dist, dynamic_lib, linkext, macro, postamble, realclean,
+test, tool_autosplit
+
+=item Overriding MakeMaker Methods
+
+=item The End Of Cargo Cult Programming
+
+C<< MAN3PODS => ' ' >>
+
+=item Hintsfile support
+
+=item Distribution Support
+
+   make distcheck,    make skipcheck,	 make distclean,    make veryclean,
+   make manifest,    make distdir,   make disttest,    make tardist,   
+make dist,    make uutardist,	 make shdist,	 make zipdist,	  make ci
+
+=item Module Meta-Data (META and MYMETA)
+
+=item Disabling an extension
+
+=item Other Handy Functions
+
+prompt
+
+=item Supported versions of Perl
+
+=back
+
+=item ENVIRONMENT
+
+PERL_MM_OPT, PERL_MM_USE_DEFAULT, PERL_CORE
+
+=item SEE ALSO
+
+=item AUTHORS
+
+=item LICENSE
+
+=back
+
+=head2 ExtUtils::MakeMaker::Config - Wrapper around Config.pm
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=back
+
+=head2 ExtUtils::MakeMaker::FAQ - Frequently Asked Questions About
+MakeMaker
+
+=over 4
+
+=item DESCRIPTION
+
+=over 4
+
+=item Module Installation
+
+How do I install a module into my home directory?, How do I get MakeMaker
+and Module::Build to install to the same place?, How do I keep from
+installing man pages?, How do I use a module without installing it?, PREFIX
+vs INSTALL_BASE from Module::Build::Cookbook
+
+=item Common errors and problems
+
+"No rule to make target `/usr/lib/perl5/CORE/config.h', needed by
+`Makefile'"
+
+=item Philosophy and History
+
+Why not just use <insert other build config tool here>?, What is
+Module::Build and how does it relate to MakeMaker?, pure perl.	no make, no
+shell commands, easier to customize, cleaner internals, less cruft
+
+=item Module Writing
+
+How do I keep my $VERSION up to date without resetting it manually?, What's
+this F<META.yml> thing and how did it get in my F<MANIFEST>?!, How do I
+delete everything not in my F<MANIFEST>?, Which tar should I use on
+Windows?, Which zip should I use on Windows for '[nd]make zipdist'?
+
+=item XS
+
+How do I prevent "object version X.XX does not match bootstrap parameter
+Y.YY" errors?, How do I make two or more XS files coexist in the same
+directory?
+
+=back
+
+=item PATCHING
+
+=item AUTHOR
+
+=item SEE ALSO
+
+=back
+
+=head2 ExtUtils::MakeMaker::Locale - bundled Encode::Locale
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+decode_argv( ), decode_argv( Encode::FB_CROAK ), env( $uni_key ), env(
+$uni_key => $uni_value ), reinit( ), reinit( $encoding ), $ENCODING_LOCALE,
+$ENCODING_LOCALE_FS, $ENCODING_CONSOLE_IN, $ENCODING_CONSOLE_OUT
+
+=item NOTES
+
+=over 4
+
+=item Windows
+
+=item Mac OS X
+
+=item POSIX (Linux and other Unixes)
+
+=back
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=back
+
+=head2 ExtUtils::MakeMaker::Tutorial - Writing a module with MakeMaker
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item The Mantra
+
+=item The Layout
+
+Makefile.PL, MANIFEST, lib/, t/, Changes, README, INSTALL, MANIFEST.SKIP,
+bin/
+
+=back
+
+=item SEE ALSO
+
+=back
+
+=head2 ExtUtils::Manifest - utilities to write and check a MANIFEST file
+
+=over 4
+
+=item VERSION
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item Functions
+
+mkmanifest
+
+=back
+
+=back
+
+manifind
+
+manicheck
+
+filecheck
+
+fullcheck
+
+skipcheck
+
+maniread
+
+maniskip
+
+manicopy
+
+maniadd
+
+=over 4
+
+=item MANIFEST
+
+=item MANIFEST.SKIP
+
+#!include_default, #!include /Path/to/another/manifest.skip
+
+=item EXPORT_OK
+
+=item GLOBAL VARIABLES
+
+=back
+
+=over 4
+
+=item DIAGNOSTICS
+
+C<Not in MANIFEST:> I<file>, C<Skipping> I<file>, C<No such file:> I<file>,
+C<MANIFEST:> I<$!>, C<Added to MANIFEST:> I<file>
+
+=item ENVIRONMENT
+
+B<PERL_MM_MANIFEST_DEBUG>
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=item COPYRIGHT AND LICENSE
+
+=back
+
+=head2 ExtUtils::Miniperl - write the C code for perlmain.c
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item SEE ALSO
+
+=back
+
+=head2 ExtUtils::Mkbootstrap - make a bootstrap file for use by DynaLoader
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=back
+
+=head2 ExtUtils::Mksymlists - write linker options files for dynamic
+extension
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+DLBASE, DL_FUNCS, DL_VARS, FILE, FUNCLIST, IMPORTS, NAME
+
+=item AUTHOR
+
+=item REVISION
+
+mkfh()
+
+=back
+
+__find_relocations
+
+=head2 ExtUtils::Packlist - manage .packlist files
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item USAGE
+
+=item FUNCTIONS
+
+new(), read(), write(), validate(), packlist_file()
+
+=item EXAMPLE
+
+=item AUTHOR
+
+=back
+
+=head2 ExtUtils::ParseXS - converts Perl XS code into C code
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item EXPORT
+
+=item METHODS
+
+$pxs->new(), $pxs->process_file(), B<C++>, B<hiertype>, B<except>,
+B<typemap>, B<prototypes>, B<versioncheck>, B<linenumbers>, B<optimize>,
+B<inout>, B<argtypes>, B<s>, $pxs->report_error_count()
+
+=item AUTHOR
+
+=item COPYRIGHT
+
+=item SEE ALSO
+
+=back
+
+=head2 ExtUtils::ParseXS::Constants - Initialization values for some
+globals
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=back
+
+=head2 ExtUtils::ParseXS::Eval - Clean package to evaluate code in
+
+=over 4
+
+=item SYNOPSIS
+
+=item SUBROUTINES
+
+=over 4
+
+=item $pxs->eval_output_typemap_code($typemapcode, $other_hashref)
+
+=back
+
+=back
+
+=over 4
+
+=item $pxs->eval_input_typemap_code($typemapcode, $other_hashref)
+
+=back
+
+=over 4
+
+=item TODO
+
+=back
+
+=head2 ExtUtils::ParseXS::Utilities - Subroutines used with
+ExtUtils::ParseXS
+
+=over 4
+
+=item SYNOPSIS
+
+=item SUBROUTINES
+
+=over 4
+
+=item C<standard_typemap_locations()>
+
+Purpose, Arguments, Return Value
+
+=back
+
+=back
+
+=over 4
+
+=item C<trim_whitespace()>
+
+Purpose, Argument, Return Value
+
+=back
+
+=over 4
+
+=item C<C_string()>
+
+Purpose, Arguments, Return Value
+
+=back
+
+=over 4
+
+=item C<valid_proto_string()>
+
+Purpose, Arguments, Return Value
+
+=back
+
+=over 4
+
+=item C<process_typemaps()>
+
+Purpose, Arguments, Return Value
+
+=back
+
+=over 4
+
+=item C<map_type()>
+
+Purpose, Arguments, Return Value
+
+=back
+
+=over 4
+
+=item C<standard_XS_defs()>
+
+Purpose, Arguments, Return Value
+
+=back
+
+=over 4
+
+=item C<assign_func_args()>
+
+Purpose, Arguments, Return Value
+
+=back
+
+=over 4
+
+=item C<analyze_preprocessor_statements()>
+
+Purpose, Arguments, Return Value
+
+=back
+
+=over 4
+
+=item C<set_cond()>
+
+Purpose, Arguments, Return Value
+
+=back
+
+=over 4
+
+=item C<current_line_number()>
+
+Purpose, Arguments, Return Value
+
+=back
+
+=over 4
+
+=item C<Warn()>
+
+Purpose, Arguments, Return Value
+
+=back
+
+=over 4
+
+=item C<blurt()>
+
+Purpose, Arguments, Return Value
+
+=back
+
+=over 4
+
+=item C<death()>
+
+Purpose, Arguments, Return Value
+
+=back
+
+=over 4
+
+=item C<check_conditional_preprocessor_statements()>
+
+Purpose, Arguments, Return Value
+
+=back
+
+=over 4
+
+=item C<escape_file_for_line_directive()>
+
+Purpose, Arguments, Return Value
+
+=back
+
+=over 4
+
+=item C<report_typemap_failure>
+
+Purpose, Arguments, Return Value
+
+=back
+
+=head2 ExtUtils::Typemaps - Read/Write/Modify Perl/XS typemap files
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item METHODS
+
+=back
+
+=over 4
+
+=item new
+
+=back
+
+=over 4
+
+=item file
+
+=back
+
+=over 4
+
+=item add_typemap
+
+=back
+
+=over 4
+
+=item add_inputmap
+
+=back
+
+=over 4
+
+=item add_outputmap
+
+=back
+
+=over 4
+
+=item add_string
+
+=back
+
+=over 4
+
+=item remove_typemap
+
+=back
+
+=over 4
+
+=item remove_inputmap
+
+=back
+
+=over 4
+
+=item remove_inputmap
+
+=back
+
+=over 4
+
+=item get_typemap
+
+=back
+
+=over 4
+
+=item get_inputmap
+
+=back
+
+=over 4
+
+=item get_outputmap
+
+=back
+
+=over 4
+
+=item write
+
+=back
+
+=over 4
+
+=item as_string
+
+=back
+
+=over 4
+
+=item as_embedded_typemap
+
+=back
+
+=over 4
+
+=item merge
+
+=back
+
+=over 4
+
+=item is_empty
+
+=back
+
+=over 4
+
+=item list_mapped_ctypes
+
+=back
+
+=over 4
+
+=item _get_typemap_hash
+
+=back
+
+=over 4
+
+=item _get_inputmap_hash
+
+=back
+
+=over 4
+
+=item _get_outputmap_hash
+
+=back
+
+=over 4
+
+=item _get_prototype_hash
+
+=back
+
+=over 4
+
+=item clone
+
+=back
+
+=over 4
+
+=item tidy_type
+
+=back
+
+=over 4
+
+=item CAVEATS
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=item COPYRIGHT & LICENSE
+
+=back
+
+=head2 ExtUtils::Typemaps::Cmd - Quick commands for handling typemaps
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item EXPORTED FUNCTIONS
+
+=over 4
+
+=item embeddable_typemap
+
+=back
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=item COPYRIGHT & LICENSE
+
+=back
+
+=head2 ExtUtils::Typemaps::InputMap - Entry in the INPUT section of a
+typemap
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item METHODS
+
+=back
+
+=over 4
+
+=item new
+
+=back
+
+=over 4
+
+=item code
+
+=back
+
+=over 4
+
+=item xstype
+
+=back
+
+=over 4
+
+=item cleaned_code
+
+=back
+
+=over 4
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=item COPYRIGHT & LICENSE
+
+=back
+
+=head2 ExtUtils::Typemaps::OutputMap - Entry in the OUTPUT section of a
+typemap
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item METHODS
+
+=back
+
+=over 4
+
+=item new
+
+=back
+
+=over 4
+
+=item code
+
+=back
+
+=over 4
+
+=item xstype
+
+=back
+
+=over 4
+
+=item cleaned_code
+
+=back
+
+=over 4
+
+=item targetable
+
+=back
+
+=over 4
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=item COPYRIGHT & LICENSE
+
+=back
+
+=head2 ExtUtils::Typemaps::Type - Entry in the TYPEMAP section of a typemap
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item METHODS
+
+=back
+
+=over 4
+
+=item new
+
+=back
+
+=over 4
+
+=item proto
+
+=back
+
+=over 4
+
+=item xstype
+
+=back
+
+=over 4
+
+=item ctype
+
+=back
+
+=over 4
+
+=item tidy_ctype
+
+=back
+
+=over 4
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=item COPYRIGHT & LICENSE
+
+=back
+
+=head2 ExtUtils::XSSymSet - keep sets of symbol names palatable to the VMS
+linker
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+new([$maxlen[,$silent]]), addsym($name[,$maxlen[,$silent]]),
+trimsym($name[,$maxlen[,$silent]]), delsym($name), get_orig($trimmed),
+get_trimmed($name), all_orig(), all_trimmed()
+
+=item AUTHOR
+
+=item REVISION
+
+=back
+
+=head2 ExtUtils::testlib - add blib/* directories to @INC
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=back
+
+=head2 Fatal - Replace functions with equivalents which succeed or die
+
+=over 4
+
+=item SYNOPSIS
+
+=item BEST PRACTICE
+
+=item DESCRIPTION
+
+=item DIAGNOSTICS
+
+Bad subroutine name for Fatal: %s, %s is not a Perl subroutine, %s is
+neither a builtin, nor a Perl subroutine, Cannot make the non-overridable
+%s fatal, Internal error: %s
+
+=item BUGS
+
+=item AUTHOR
+
+=item LICENSE
+
+=item SEE ALSO
+
+=back
+
+=head2 Fcntl - load the C Fcntl.h defines
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item NOTE
+
+=item EXPORTED SYMBOLS
+
+=back
+
+=head2 File::Basename - Parse file paths into directory, filename and
+suffix.
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=back
+
+C<fileparse> X<fileparse>
+
+C<basename> X<basename> X<filename>
+
+C<dirname> X<dirname>
+
+C<fileparse_set_fstype> X<filesystem>
+
+=over 4
+
+=item SEE ALSO
+
+=back
+
+=head2 File::Compare - Compare files or filehandles
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item RETURN
+
+=item AUTHOR
+
+=back
+
+=head2 File::Copy - Copy files or filehandles
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+copy X<copy> X<cp>, move X<move> X<mv> X<rename>, syscopy X<syscopy>,
+rmscopy($from,$to[,$date_flag]) X<rmscopy>
+
+=item RETURN
+
+=item NOTES
+
+=item AUTHOR
+
+=back
+
+=head2 File::DosGlob - DOS like globbing and then some
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item EXPORTS (by request only)
+
+=item BUGS
+
+=item AUTHOR
+
+=item HISTORY
+
+=item SEE ALSO
+
+=back
+
+=head2 File::Fetch - A generic file fetching mechanism
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item ACCESSORS
+
+$ff->uri, $ff->scheme, $ff->host, $ff->vol, $ff->share, $ff->path,
+$ff->file, $ff->file_default
+
+=back
+
+$ff->output_file
+
+=over 4
+
+=item METHODS
+
+=over 4
+
+=item $ff = File::Fetch->new( uri => 'http://some.where.com/dir/file.txt'
+);
+
+=back
+
+=back
+
+=over 4
+
+=item $where = $ff->fetch( [to => /my/output/dir/ | \$scalar] )
+
+=back
+
+=over 4
+
+=item $ff->error([BOOL])
+
+=back
+
+=over 4
+
+=item HOW IT WORKS
+
+=item GLOBAL VARIABLES
+
+=over 4
+
+=item $File::Fetch::FROM_EMAIL
+
+=item $File::Fetch::USER_AGENT
+
+=item $File::Fetch::FTP_PASSIVE
+
+=item $File::Fetch::TIMEOUT
+
+=item $File::Fetch::WARN
+
+=item $File::Fetch::DEBUG
+
+=item $File::Fetch::BLACKLIST
+
+=item $File::Fetch::METHOD_FAIL
+
+=back
+
+=item MAPPING
+
+=item FREQUENTLY ASKED QUESTIONS
+
+=over 4
+
+=item So how do I use a proxy with File::Fetch?
+
+=item I used 'lynx' to fetch a file, but its contents is all wrong!
+
+=item Files I'm trying to fetch have reserved characters or non-ASCII
+characters in them. What do I do?
+
+=back
+
+=item TODO
+
+Implement $PREFER_BIN
+
+=item BUG REPORTS
+
+=item AUTHOR
+
+=item COPYRIGHT
+
+=back
+
+=head2 File::Find - Traverse a directory tree.
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+B<find>, B<finddepth>
+
+=over 4
+
+=item %options
+
+C<wanted>, C<bydepth>, C<preprocess>, C<postprocess>, C<follow>,
+C<follow_fast>, C<follow_skip>, C<dangling_symlinks>, C<no_chdir>,
+C<untaint>, C<untaint_pattern>, C<untaint_skip>
+
+=item The wanted function
+
+C<$File::Find::dir> is the current directory name,, C<$_> is the current
+filename within that directory, C<$File::Find::name> is the complete
+pathname to the file
+
+=back
+
+=item WARNINGS
+
+=item CAVEAT
+
+$dont_use_nlink, symlinks
+
+=item BUGS AND CAVEATS
+
+=item HISTORY
+
+=item SEE ALSO
+
+=back
+
+=head2 File::Glob - Perl extension for BSD glob routine
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item META CHARACTERS
+
+=item EXPORTS
+
+=item POSIX FLAGS
+
+C<GLOB_ERR>, C<GLOB_LIMIT>, C<GLOB_MARK>, C<GLOB_NOCASE>, C<GLOB_NOCHECK>,
+C<GLOB_NOSORT>, C<GLOB_BRACE>, C<GLOB_NOMAGIC>, C<GLOB_QUOTE>,
+C<GLOB_TILDE>, C<GLOB_CSH>, C<GLOB_ALPHASORT>
+
+=back
+
+=item DIAGNOSTICS
+
+C<GLOB_NOSPACE>, C<GLOB_ABEND>
+
+=item NOTES
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=back
+
+=head2 File::GlobMapper - Extend File Glob to Allow Input and Output Files
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item Behind The Scenes
+
+=item Limitations
+
+=item Input File Glob
+
+B<~>, B<~user>, B<.>, B<*>, B<?>, B<\>,  B<[]>,  B<{,}>,  B<()>
+
+=item Output File Glob
+
+"*", #1
+
+=item Returned Data
+
+=back
+
+=item EXAMPLES
+
+=over 4
+
+=item A Rename script
+
+=item A few example globmaps
+
+=back
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=item COPYRIGHT AND LICENSE
+
+=back
+
+=head2 File::Path - Create or remove directory trees
+
+=over 4
+
+=item VERSION
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+make_path( $dir1, $dir2, .... ), make_path( $dir1, $dir2, ...., \%opts ),
+mode => $num, chmod => $num, verbose => $bool, error => \$err, owner =>
+$owner, user => $owner, uid => $owner, group => $group, mkpath( $dir ),
+mkpath( $dir, $verbose, $mode ), mkpath( [$dir1, $dir2,...], $verbose,
+$mode ), mkpath( $dir1, $dir2,..., \%opt ), remove_tree( $dir1, $dir2, ....
+), remove_tree( $dir1, $dir2, ...., \%opts ), verbose => $bool, safe =>
+$bool, keep_root => $bool, result => \$res, error => \$err, rmtree( $dir ),
+rmtree( $dir, $verbose, $safe ), rmtree( [$dir1, $dir2,...], $verbose,
+$safe ), rmtree( $dir1, $dir2,..., \%opt )
+
+=over 4
+
+=item ERROR HANDLING
+
+B<NOTE:>
+
+=item NOTES
+
+=back
+
+=item DIAGNOSTICS
+
+mkdir [path]: [errmsg] (SEVERE), No root path(s) specified, No such file or
+directory, cannot fetch initial working directory: [errmsg], cannot stat
+initial working directory: [errmsg], cannot chdir to [dir]: [errmsg],
+directory [dir] changed before chdir, expected dev=[n] ino=[n], actual
+dev=[n] ino=[n], aborting. (FATAL), cannot make directory [dir]
+read+writeable: [errmsg], cannot read [dir]: [errmsg], cannot reset chmod
+[dir]: [errmsg], cannot remove [dir] when cwd is [dir], cannot chdir to
+[parent-dir] from [child-dir]: [errmsg], aborting. (FATAL), cannot stat
+prior working directory [dir]: [errmsg], aborting. (FATAL), previous
+directory [parent-dir] changed before entering [child-dir], expected
+dev=[n] ino=[n], actual dev=[n] ino=[n], aborting. (FATAL), cannot make
+directory [dir] writeable: [errmsg], cannot remove directory [dir]:
+[errmsg], cannot restore permissions of [dir] to [0nnn]: [errmsg], cannot
+make file [file] writeable: [errmsg], cannot unlink file [file]: [errmsg],
+cannot restore permissions of [file] to [0nnn]: [errmsg], unable to map
+[owner] to a uid, ownership not changed");, unable to map [group] to a gid,
+group ownership not changed
+
+=item SEE ALSO
+
+=item BUGS AND LIMITATIONS
+
+=over 4
+
+=item MULTITHREAD APPLICATIONS
+
+=item NFS Mount Points
+
+=item REPORTING BUGS
+
+=back
+
+=item ACKNOWLEDGEMENTS
+
+=item AUTHORS
+
+=item CONTRIBUTORS
+
+<F<bulkdd@cpan.org>>, Craig A. Berry <F<craigberry@mac.com>>, Richard
+Elberger <F<riche@cpan.org>>, Ryan Yee <F<ryee@cpan.org>>, Skye Shaw
+<F<shaw@cpan.org>>, Tom Lutz <F<tommylutz@gmail.com>>
+
+=item COPYRIGHT
+
+=item LICENSE
+
+=back
+
+=head2 File::Spec - portably perform operations on file names
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item METHODS
+
+canonpath X<canonpath>, catdir X<catdir>, catfile X<catfile>, curdir
+X<curdir>, devnull X<devnull>, rootdir X<rootdir>, tmpdir X<tmpdir>, updir
+X<updir>, no_upwards, case_tolerant, file_name_is_absolute, path X<path>,
+join X<join, path>, splitpath X<splitpath> X<split, path>, splitdir
+X<splitdir> X<split, dir>, catpath(), abs2rel X<abs2rel> X<absolute, path>
+X<relative, path>, rel2abs() X<rel2abs> X<absolute, path> X<relative, path>
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=item COPYRIGHT
+
+=back
+
+=head2 File::Spec::AmigaOS - File::Spec for AmigaOS
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item METHODS
+
+tmpdir
+
+=back
+
+file_name_is_absolute
+
+=head2 File::Spec::Cygwin - methods for Cygwin file specs
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=back
+
+canonpath
+
+file_name_is_absolute
+
+tmpdir (override)
+
+case_tolerant
+
+=over 4
+
+=item COPYRIGHT
+
+=back
+
+=head2 File::Spec::Epoc - methods for Epoc file specs
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=back
+
+canonpath()
+
+=over 4
+
+=item AUTHOR
+
+=item COPYRIGHT
+
+=item SEE ALSO
+
+=back
+
+=head2 File::Spec::Functions - portably perform operations on file names
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item Exports
+
+=back
+
+=item COPYRIGHT
+
+=item SEE ALSO
+
+=back
+
+=head2 File::Spec::Mac - File::Spec for Mac OS (Classic)
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item METHODS
+
+canonpath
+
+=back
+
+catdir()
+
+catfile
+
+curdir
+
+devnull
+
+rootdir
+
+tmpdir
+
+updir
+
+file_name_is_absolute
+
+path
+
+splitpath
+
+splitdir
+
+catpath
+
+abs2rel
+
+rel2abs
+
+=over 4
+
+=item AUTHORS
+
+=item COPYRIGHT
+
+=item SEE ALSO
+
+=back
+
+=head2 File::Spec::OS2 - methods for OS/2 file specs
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+tmpdir, splitpath
+
+=item COPYRIGHT
+
+=back
+
+=head2 File::Spec::Unix - File::Spec for Unix, base for other File::Spec
+modules
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item METHODS
+
+canonpath()
+
+=back
+
+catdir()
+
+catfile
+
+curdir
+
+devnull
+
+rootdir
+
+tmpdir
+
+updir
+
+no_upwards
+
+case_tolerant
+
+file_name_is_absolute
+
+path
+
+join
+
+splitpath
+
+splitdir
+
+catpath()
+
+abs2rel
+
+rel2abs()
+
+=over 4
+
+=item COPYRIGHT
+
+=item SEE ALSO
+
+=back
+
+=head2 File::Spec::VMS - methods for VMS file specs
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=back
+
+canonpath (override)
+
+catdir (override)
+
+catfile (override)
+
+curdir (override)
+
+devnull (override)
+
+rootdir (override)
+
+tmpdir (override)
+
+updir (override)
+
+case_tolerant (override)
+
+path (override)
+
+file_name_is_absolute (override)
+
+splitpath (override)
+
+splitdir (override)
+
+catpath (override)
+
+abs2rel (override)
+
+rel2abs (override)
+
+=over 4
+
+=item COPYRIGHT
+
+=item SEE ALSO
+
+=back
+
+=head2 File::Spec::Win32 - methods for Win32 file specs
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+devnull
+
+=back
+
+tmpdir
+
+case_tolerant
+
+file_name_is_absolute
+
+catfile
+
+canonpath
+
+splitpath
+
+splitdir
+
+catpath
+
+=over 4
+
+=item Note For File::Spec::Win32 Maintainers
+
+=back
+
+=over 4
+
+=item COPYRIGHT
+
+=item SEE ALSO
+
+=back
+
+=head2 File::Temp - return name and handle of a temporary file safely
+
+=over 4
+
+=item VERSION
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item PORTABILITY
+
+=item OBJECT-ORIENTED INTERFACE
+
+B<new>, B<newdir>, B<filename>, B<dirname>, B<unlink_on_destroy>,
+B<DESTROY>
+
+=item FUNCTIONS
+
+B<tempfile>, B<tempdir>
+
+=item MKTEMP FUNCTIONS
+
+B<mkstemp>, B<mkstemps>, B<mkdtemp>, B<mktemp>
+
+=item POSIX FUNCTIONS
+
+B<tmpnam>, B<tmpfile>
+
+=item ADDITIONAL FUNCTIONS
+
+B<tempnam>
+
+=item UTILITY FUNCTIONS
+
+B<unlink0>, B<cmpstat>, B<unlink1>, B<cleanup>
+
+=item PACKAGE VARIABLES
+
+B<safe_level>, STANDARD, MEDIUM, HIGH, TopSystemUID, B<$KEEP_ALL>,
+B<$DEBUG>
+
+=item WARNING
+
+=over 4
+
+=item Temporary files and NFS
+
+=item Forking
+
+=item Directory removal
+
+=item Taint mode
+
+=item BINMODE
+
+=back
+
+=item HISTORY
+
+=item SEE ALSO
+
+=item SUPPORT
+
+=over 4
+
+=item Bugs / Feature Requests
+
+=item Source Code
+
+=back
+
+=item AUTHOR
+
+=item CONTRIBUTORS
+
+=item COPYRIGHT AND LICENSE
+
+=back
+
+=head2 File::stat - by-name interface to Perl's built-in stat() functions
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item BUGS
+
+=item ERRORS
+
+-%s is not implemented on a File::stat object
+
+=item WARNINGS
+
+File::stat ignores use filetest 'access', File::stat ignores VMS ACLs
+
+=item NOTE
+
+=item AUTHOR
+
+=back
+
+=head2 FileCache - keep more files open than the system permits
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+cacheout EXPR, cacheout MODE, EXPR
+
+=item CAVEATS
+
+=item BUGS
+
+=back
+
+=head2 FileHandle - supply object methods for filehandles
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+$fh->print, $fh->printf, $fh->getline, $fh->getlines
+
+=item SEE ALSO
+
+=back
+
+=head2 Filter::Simple - Simplified source filtering
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item The Problem
+
+=item A Solution
+
+=item Disabling or changing <no> behaviour
+
+=item All-in-one interface
+
+=item Filtering only specific components of source code
+
+C<"code">, C<"code_no_comments">, C<"executable">,
+C<"executable_no_comments">, C<"quotelike">, C<"string">, C<"regex">,
+C<"all">
+
+=item Filtering only the code parts of source code
+
+=item Using Filter::Simple with an explicit C<import> subroutine
+
+=item Using Filter::Simple and Exporter together
+
+=item How it works
+
+=back
+
+=item AUTHOR
+
+=item CONTACT
+
+=item COPYRIGHT AND LICENSE
+
+=back
+
+=head2 Filter::Util::Call - Perl Source Filter Utility Module
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item B<use Filter::Util::Call>
+
+=item B<import()>
+
+=item B<filter_add()>
+
+=item B<filter() and anonymous sub>
+
+B<$_>, B<$status>, B<filter_read> and B<filter_read_exact>, B<filter_del>,
+I<real_import>, I<unimport()>
+
+=back
+
+=item LIMITATIONS
+
+__DATA__ is ignored, Max. codesize limited to 32-bit
+
+=item EXAMPLES
+
+=over 4
+
+=item Example 1: A simple filter.
+
+=item Example 2: Using the context
+
+=item Example 3: Using the context within the filter
+
+=item Example 4: Using filter_del
+
+=back
+
+=item Filter::Simple
+
+=item AUTHOR
+
+=item DATE
+
+=item LICENSE
+
+=back
+
+=head2 FindBin - Locate directory of original perl script
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item EXPORTABLE VARIABLES
+
+=item KNOWN ISSUES
+
+=item AUTHORS
+
+=item COPYRIGHT
+
+=back
+
+=head2 Getopt::Long - Extended processing of command line options
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item Command Line Options, an Introduction
+
+=item Getting Started with Getopt::Long
+
+=over 4
+
+=item Simple options
+
+=item A little bit less simple options
+
+=item Mixing command line option with other arguments
+
+=item Options with values
+
+=item Options with multiple values
+
+=item Options with hash values
+
+=item User-defined subroutines to handle options
+
+=item Options with multiple names
+
+=item Case and abbreviations
+
+=item Summary of Option Specifications
+
+!, +, s, i, o, f, : I<type> [ I<desttype> ], : I<number> [ I<desttype> ], :
++ [ I<desttype> ]
+
+=back
+
+=item Advanced Possibilities
+
+=over 4
+
+=item Object oriented interface
+
+=item Thread Safety
+
+=item Documentation and help texts
+
+=item Parsing options from an arbitrary array
+
+=item Parsing options from an arbitrary string
+
+=item Storing options values in a hash
+
+=item Bundling
+
+=item The lonesome dash
+
+=item Argument callback
+
+=back
+
+=item Configuring Getopt::Long
+
+default, posix_default, auto_abbrev, getopt_compat, gnu_compat, gnu_getopt,
+require_order, permute, bundling (default: disabled), bundling_override
+(default: disabled), ignore_case  (default: enabled), ignore_case_always
+(default: disabled), auto_version (default:disabled), auto_help
+(default:disabled), pass_through (default: disabled), prefix,
+prefix_pattern, long_prefix_pattern, debug (default: disabled)
+
+=item Exportable Methods
+
+VersionMessage, C<-message>, C<-msg>, C<-exitval>, C<-output>, HelpMessage
+
+=item Return values and Errors
+
+=item Legacy
+
+=over 4
+
+=item Default destinations
+
+=item Alternative option starters
+
+=item Configuration variables
+
+=back
+
+=item Tips and Techniques
+
+=over 4
+
+=item Pushing multiple values in a hash option
+
+=back
+
+=item Troubleshooting
+
+=over 4
+
+=item GetOptions does not return a false result when an option is not
+supplied
+
+=item GetOptions does not split the command line correctly
+
+=item Undefined subroutine &main::GetOptions called
+
+=item How do I put a "-?" option into a Getopt::Long?
+
+=back
+
+=item AUTHOR
+
+=item COPYRIGHT AND DISCLAIMER
+
+=back
+
+=head2 Getopt::Std, getopt, getopts - Process single-character switches
+with switch clustering
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item C<--help> and C<--version>
+
+=back
+
+=head2 HTTP::Tiny - A small, simple, correct HTTP/1.1 client
+
+=over 4
+
+=item VERSION
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item METHODS
+
+=over 4
+
+=item new
+
+=item get|head|put|post|delete
+
+=item post_form
+
+=item mirror
+
+=item request
+
+=item www_form_urlencode
+
+=item can_ssl
+
+=back
+
+=item SSL SUPPORT
+
+=item PROXY SUPPORT
+
+=item LIMITATIONS
+
+=item SEE ALSO
+
+=item SUPPORT
+
+=over 4
+
+=item Bugs / Feature Requests
+
+=item Source Code
+
+=back
+
+=item AUTHORS
+
+=item CONTRIBUTORS
+
+=item COPYRIGHT AND LICENSE
+
+=back
+
+=head2 Hash::Util - A selection of general-utility hash subroutines
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item Restricted hashes
+
+B<lock_keys>, B<unlock_keys>
+
+=back
+
+=back
+
+B<lock_keys_plus>
+
+B<lock_value>, B<unlock_value>
+
+B<lock_hash>, B<unlock_hash>
+
+B<lock_hash_recurse>, B<unlock_hash_recurse>
+
+B<hashref_locked>, B<hash_locked>
+
+B<hashref_unlocked>, B<hash_unlocked>
+
+B<legal_keys>, B<hidden_keys>, B<all_keys>, B<hash_seed>, B<hash_value>,
+B<bucket_info>, B<bucket_stats>, B<bucket_array>
+
+B<bucket_stats_formatted>
+
+B<hv_store>, B<hash_traversal_mask>
+
+=over 4
+
+=item Operating on references to hashes.
+
+lock_ref_keys, unlock_ref_keys, lock_ref_keys_plus, lock_ref_value,
+unlock_ref_value, lock_hashref, unlock_hashref, lock_hashref_recurse,
+unlock_hashref_recurse, hash_ref_unlocked, legal_ref_keys, hidden_ref_keys
+
+=back
+
+=over 4
+
+=item CAVEATS
+
+=item BUGS
+
+=item AUTHOR
+
+=item SEE ALSO
+
+=back
+
+=head2 Hash::Util::FieldHash - Support for Inside-Out Classes
+
+=over 4
+
+=item SYNOPSIS
+
+=item FUNCTIONS
+
+id, id_2obj, register, idhash, idhashes, fieldhash, fieldhashes
+
+=item DESCRIPTION
+
+=over 4
+
+=item The Inside-out Technique
+
+=item Problems of Inside-out
+
+=item Solutions
+
+=item More Problems
+
+=item The Generic Object
+
+=item How to use Field Hashes
+
+=item Garbage-Collected Hashes
+
+=back
+
+=item EXAMPLES
+
+C<init()>, C<first()>, C<last()>, C<name()>, C<Name_hash>, C<Name_id>,
+C<Name_idhash>, C<Name_id_reg>, C<Name_idhash_reg>, C<Name_fieldhash>
+
+=over 4
+
+=item Example 1
+
+=item Example 2
+
+=back
+
+=item GUTS
+
+=over 4
+
+=item The C<PERL_MAGIC_uvar> interface for hashes
+
+=item Weakrefs call uvar magic
+
+=item How field hashes work
+
+=item Internal function Hash::Util::FieldHash::_fieldhash
+
+=back
+
+=item AUTHOR
+
+=item COPYRIGHT AND LICENSE
+
+=back
+
+=head2 I18N::Collate - compare 8-bit scalar data according to the current
+locale
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=back
+
+=head2 I18N::LangTags - functions for dealing with RFC3066-style language
+tags
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=back
+
+the function is_language_tag($lang1)
+
+the function extract_language_tags($whatever)
+
+the function same_language_tag($lang1, $lang2)
+
+the function similarity_language_tag($lang1, $lang2)
+
+the function is_dialect_of($lang1, $lang2)
+
+the function super_languages($lang1)
+
+the function locale2language_tag($locale_identifier)
+
+the function encode_language_tag($lang1)
+
+the function alternate_language_tags($lang1)
+
+the function @langs = panic_languages(@accept_languages)
+
+the function implicate_supers( ...languages... ), the function
+implicate_supers_strictly( ...languages... )
+
+=over 4
+
+=item ABOUT LOWERCASING
+
+=item ABOUT UNICODE PLAINTEXT LANGUAGE TAGS
+
+=item SEE ALSO
+
+=item COPYRIGHT
+
+=item AUTHOR
+
+=back
+
+=head2 I18N::LangTags::Detect - detect the user's language preferences
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item FUNCTIONS
+
+=item ENVIRONMENT
+
+=item SEE ALSO
+
+=item COPYRIGHT
+
+=item AUTHOR
+
+=back
+
+=head2 I18N::LangTags::List -- tags and names for human languages
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item ABOUT LANGUAGE TAGS
+
+=item LIST OF LANGUAGES
+
+{ab} : Abkhazian, {ace} : Achinese, {ach} : Acoli, {ada} : Adangme, {ady} :
+Adyghe, {aa} : Afar, {afh} : Afrihili, {af} : Afrikaans, [{afa} :
+Afro-Asiatic (Other)], {ak} : Akan, {akk} : Akkadian, {sq} : Albanian,
+{ale} : Aleut, [{alg} : Algonquian languages], [{tut} : Altaic (Other)],
+{am} : Amharic, {i-ami} : Ami, [{apa} : Apache languages], {ar} : Arabic,
+{arc} : Aramaic, {arp} : Arapaho, {arn} : Araucanian, {arw} : Arawak, {hy}
+: Armenian, {an} : Aragonese, [{art} : Artificial (Other)], {ast} :
+Asturian, {as} : Assamese, [{ath} : Athapascan languages], [{aus} :
+Australian languages], [{map} : Austronesian (Other)], {av} : Avaric, {ae}
+: Avestan, {awa} : Awadhi, {ay} : Aymara, {az} : Azerbaijani, {ban} :
+Balinese, [{bat} : Baltic (Other)], {bal} : Baluchi, {bm} : Bambara, [{bai}
+: Bamileke languages], {bad} : Banda, [{bnt} : Bantu (Other)], {bas} :
+Basa, {ba} : Bashkir, {eu} : Basque, {btk} : Batak (Indonesia), {bej} :
+Beja, {be} : Belarusian, {bem} : Bemba, {bn} : Bengali, [{ber} : Berber
+(Other)], {bho} : Bhojpuri, {bh} : Bihari, {bik} : Bikol, {bin} : Bini,
+{bi} : Bislama, {bs} : Bosnian, {bra} : Braj, {br} : Breton, {bug} :
+Buginese, {bg} : Bulgarian, {i-bnn} : Bunun, {bua} : Buriat, {my} :
+Burmese, {cad} : Caddo, {car} : Carib, {ca} : Catalan, [{cau} : Caucasian
+(Other)], {ceb} : Cebuano, [{cel} : Celtic (Other)], [{cai} : Central
+American Indian (Other)], {chg} : Chagatai, [{cmc} : Chamic languages],
+{ch} : Chamorro, {ce} : Chechen, {chr} : Cherokee, {chy} : Cheyenne, {chb}
+: Chibcha, {ny} : Chichewa, {zh} : Chinese, {chn} : Chinook Jargon, {chp} :
+Chipewyan, {cho} : Choctaw, {cu} : Church Slavic, {chk} : Chuukese, {cv} :
+Chuvash, {cop} : Coptic, {kw} : Cornish, {co} : Corsican, {cr} : Cree,
+{mus} : Creek, [{cpe} : English-based Creoles and pidgins (Other)], [{cpf}
+: French-based Creoles and pidgins (Other)], [{cpp} : Portuguese-based
+Creoles and pidgins (Other)], [{crp} : Creoles and pidgins (Other)], {hr} :
+Croatian, [{cus} : Cushitic (Other)], {cs} : Czech, {dak} : Dakota, {da} :
+Danish, {dar} : Dargwa, {day} : Dayak, {i-default} : Default (Fallthru)
+Language, {del} : Delaware, {din} : Dinka, {dv} : Divehi, {doi} : Dogri,
+{dgr} : Dogrib, [{dra} : Dravidian (Other)], {dua} : Duala, {nl} : Dutch,
+{dum} : Middle Dutch (ca.1050-1350), {dyu} : Dyula, {dz} : Dzongkha, {efi}
+: Efik, {egy} : Ancient Egyptian, {eka} : Ekajuk, {elx} : Elamite, {en} :
+English, {enm} : Old English (1100-1500), {ang} : Old English
+(ca.450-1100), {i-enochian} : Enochian (Artificial), {myv} : Erzya, {eo} :
+Esperanto, {et} : Estonian, {ee} : Ewe, {ewo} : Ewondo, {fan} : Fang, {fat}
+: Fanti, {fo} : Faroese, {fj} : Fijian, {fi} : Finnish, [{fiu} :
+Finno-Ugrian (Other)], {fon} : Fon, {fr} : French, {frm} : Middle French
+(ca.1400-1600), {fro} : Old French (842-ca.1400), {fy} : Frisian, {fur} :
+Friulian, {ff} : Fulah, {gaa} : Ga, {gd} : Scots Gaelic, {gl} : Gallegan,
+{lg} : Ganda, {gay} : Gayo, {gba} : Gbaya, {gez} : Geez, {ka} : Georgian,
+{de} : German, {gmh} : Middle High German (ca.1050-1500), {goh} : Old High
+German (ca.750-1050), [{gem} : Germanic (Other)], {gil} : Gilbertese, {gon}
+: Gondi, {gor} : Gorontalo, {got} : Gothic, {grb} : Grebo, {grc} : Ancient
+Greek, {el} : Modern Greek, {gn} : Guarani, {gu} : Gujarati, {gwi} :
+Gwich'in, {hai} : Haida, {ht} : Haitian, {ha} : Hausa, {haw} : Hawaiian,
+{he} : Hebrew, {hz} : Herero, {hil} : Hiligaynon, {him} : Himachali, {hi} :
+Hindi, {ho} : Hiri Motu, {hit} : Hittite, {hmn} : Hmong, {hu} : Hungarian,
+{hup} : Hupa, {iba} : Iban, {is} : Icelandic, {io} : Ido, {ig} : Igbo,
+{ijo} : Ijo, {ilo} : Iloko, [{inc} : Indic (Other)], [{ine} : Indo-European
+(Other)], {id} : Indonesian, {inh} : Ingush, {ia} : Interlingua
+(International Auxiliary Language Association), {ie} : Interlingue, {iu} :
+Inuktitut, {ik} : Inupiaq, [{ira} : Iranian (Other)], {ga} : Irish, {mga} :
+Middle Irish (900-1200), {sga} : Old Irish (to 900), [{iro} : Iroquoian
+languages], {it} : Italian, {ja} : Japanese, {jv} : Javanese, {jrb} :
+Judeo-Arabic, {jpr} : Judeo-Persian, {kbd} : Kabardian, {kab} : Kabyle,
+{kac} : Kachin, {kl} : Kalaallisut, {xal} : Kalmyk, {kam} : Kamba, {kn} :
+Kannada, {kr} : Kanuri, {krc} : Karachay-Balkar, {kaa} : Kara-Kalpak, {kar}
+: Karen, {ks} : Kashmiri, {csb} : Kashubian, {kaw} : Kawi, {kk} : Kazakh,
+{kha} : Khasi, {km} : Khmer, [{khi} : Khoisan (Other)], {kho} : Khotanese,
+{ki} : Kikuyu, {kmb} : Kimbundu, {rw} : Kinyarwanda, {ky} : Kirghiz,
+{i-klingon} : Klingon, {kv} : Komi, {kg} : Kongo, {kok} : Konkani, {ko} :
+Korean, {kos} : Kosraean, {kpe} : Kpelle, {kro} : Kru, {kj} : Kuanyama,
+{kum} : Kumyk, {ku} : Kurdish, {kru} : Kurukh, {kut} : Kutenai, {lad} :
+Ladino, {lah} : Lahnda, {lam} : Lamba, {lo} : Lao, {la} : Latin, {lv} :
+Latvian, {lb} : Letzeburgesch, {lez} : Lezghian, {li} : Limburgish, {ln} :
+Lingala, {lt} : Lithuanian, {nds} : Low German, {art-lojban} : Lojban
+(Artificial), {loz} : Lozi, {lu} : Luba-Katanga, {lua} : Luba-Lulua, {lui}
+: Luiseno, {lun} : Lunda, {luo} : Luo (Kenya and Tanzania), {lus} : Lushai,
+{mk} : Macedonian, {mad} : Madurese, {mag} : Magahi, {mai} : Maithili,
+{mak} : Makasar, {mg} : Malagasy, {ms} : Malay, {ml} : Malayalam, {mt} :
+Maltese, {mnc} : Manchu, {mdr} : Mandar, {man} : Mandingo, {mni} :
+Manipuri, [{mno} : Manobo languages], {gv} : Manx, {mi} : Maori, {mr} :
+Marathi, {chm} : Mari, {mh} : Marshall, {mwr} : Marwari, {mas} : Masai,
+[{myn} : Mayan languages], {men} : Mende, {mic} : Micmac, {min} :
+Minangkabau, {i-mingo} : Mingo, [{mis} : Miscellaneous languages], {moh} :
+Mohawk, {mdf} : Moksha, {mo} : Moldavian, [{mkh} : Mon-Khmer (Other)],
+{lol} : Mongo, {mn} : Mongolian, {mos} : Mossi, [{mul} : Multiple
+languages], [{mun} : Munda languages], {nah} : Nahuatl, {nap} : Neapolitan,
+{na} : Nauru, {nv} : Navajo, {nd} : North Ndebele, {nr} : South Ndebele,
+{ng} : Ndonga, {ne} : Nepali, {new} : Newari, {nia} : Nias, [{nic} :
+Niger-Kordofanian (Other)], [{ssa} : Nilo-Saharan (Other)], {niu} : Niuean,
+{nog} : Nogai, {non} : Old Norse, [{nai} : North American Indian], {no} :
+Norwegian, {nb} : Norwegian Bokmal, {nn} : Norwegian Nynorsk, [{nub} :
+Nubian languages], {nym} : Nyamwezi, {nyn} : Nyankole, {nyo} : Nyoro, {nzi}
+: Nzima, {oc} : Occitan (post 1500), {oj} : Ojibwa, {or} : Oriya, {om} :
+Oromo, {osa} : Osage, {os} : Ossetian; Ossetic, [{oto} : Otomian
+languages], {pal} : Pahlavi, {i-pwn} : Paiwan, {pau} : Palauan, {pi} :
+Pali, {pam} : Pampanga, {pag} : Pangasinan, {pa} : Panjabi, {pap} :
+Papiamento, [{paa} : Papuan (Other)], {fa} : Persian, {peo} : Old Persian
+(ca.600-400 B.C.), [{phi} : Philippine (Other)], {phn} : Phoenician, {pon}
+: Pohnpeian, {pl} : Polish, {pt} : Portuguese, [{pra} : Prakrit languages],
+{pro} : Old Provencal (to 1500), {ps} : Pushto, {qu} : Quechua, {rm} :
+Raeto-Romance, {raj} : Rajasthani, {rap} : Rapanui, {rar} : Rarotongan,
+[{qaa - qtz} : Reserved for local use.], [{roa} : Romance (Other)], {ro} :
+Romanian, {rom} : Romany, {rn} : Rundi, {ru} : Russian, [{sal} : Salishan
+languages], {sam} : Samaritan Aramaic, {se} : Northern Sami, {sma} :
+Southern Sami, {smn} : Inari Sami, {smj} : Lule Sami, {sms} : Skolt Sami,
+[{smi} : Sami languages (Other)], {sm} : Samoan, {sad} : Sandawe, {sg} :
+Sango, {sa} : Sanskrit, {sat} : Santali, {sc} : Sardinian, {sas} : Sasak,
+{sco} : Scots, {sel} : Selkup, [{sem} : Semitic (Other)], {sr} : Serbian,
+{srr} : Serer, {shn} : Shan, {sn} : Shona, {sid} : Sidamo, {sgn-...} : Sign
+Languages, {bla} : Siksika, {sd} : Sindhi, {si} : Sinhalese, [{sit} :
+Sino-Tibetan (Other)], [{sio} : Siouan languages], {den} : Slave
+(Athapascan), [{sla} : Slavic (Other)], {sk} : Slovak, {sl} : Slovenian,
+{sog} : Sogdian, {so} : Somali, {son} : Songhai, {snk} : Soninke, {wen} :
+Sorbian languages, {nso} : Northern Sotho, {st} : Southern Sotho, [{sai} :
+South American Indian (Other)], {es} : Spanish, {suk} : Sukuma, {sux} :
+Sumerian, {su} : Sundanese, {sus} : Susu, {sw} : Swahili, {ss} : Swati,
+{sv} : Swedish, {syr} : Syriac, {tl} : Tagalog, {ty} : Tahitian, [{tai} :
+Tai (Other)], {tg} : Tajik, {tmh} : Tamashek, {ta} : Tamil, {i-tao} : Tao,
+{tt} : Tatar, {i-tay} : Tayal, {te} : Telugu, {ter} : Tereno, {tet} :
+Tetum, {th} : Thai, {bo} : Tibetan, {tig} : Tigre, {ti} : Tigrinya, {tem} :
+Timne, {tiv} : Tiv, {tli} : Tlingit, {tpi} : Tok Pisin, {tkl} : Tokelau,
+{tog} : Tonga (Nyasa), {to} : Tonga (Tonga Islands), {tsi} : Tsimshian,
+{ts} : Tsonga, {i-tsu} : Tsou, {tn} : Tswana, {tum} : Tumbuka, [{tup} :
+Tupi languages], {tr} : Turkish, {ota} : Ottoman Turkish (1500-1928), {crh}
+: Crimean Turkish, {tk} : Turkmen, {tvl} : Tuvalu, {tyv} : Tuvinian, {tw} :
+Twi, {udm} : Udmurt, {uga} : Ugaritic, {ug} : Uighur, {uk} : Ukrainian,
+{umb} : Umbundu, {und} : Undetermined, {ur} : Urdu, {uz} : Uzbek, {vai} :
+Vai, {ve} : Venda, {vi} : Vietnamese, {vo} : Volapuk, {vot} : Votic, [{wak}
+: Wakashan languages], {wa} : Walloon, {wal} : Walamo, {war} : Waray, {was}
+: Washo, {cy} : Welsh, {wo} : Wolof, {x-...} : Unregistered (Semi-Private
+Use), {xh} : Xhosa, {sah} : Yakut, {yao} : Yao, {yap} : Yapese, {ii} :
+Sichuan Yi, {yi} : Yiddish, {yo} : Yoruba, [{ypk} : Yupik languages], {znd}
+: Zande, [{zap} : Zapotec], {zen} : Zenaga, {za} : Zhuang, {zu} : Zulu,
+{zun} : Zuni
+
+=item SEE ALSO
+
+=item COPYRIGHT AND DISCLAIMER
+
+=item AUTHOR
+
+=back
+
+=head2 I18N::Langinfo - query locale information
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item EXPORT
+
+=back
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=item COPYRIGHT AND LICENSE
+
+=back
+
+=head2 IO - load various IO modules
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item DEPRECATED
+
+=back
+
+=head2 IO::Compress::Base - Base Class for IO::Compress modules 
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=item MODIFICATION HISTORY
+
+=item COPYRIGHT AND LICENSE
+
+=back
+
+=head2 IO::Compress::Bzip2 - Write bzip2 files/buffers
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item Functional Interface
+
+=over 4
+
+=item bzip2 $input_filename_or_reference => $output_filename_or_reference
+[, OPTS]
+
+A filename, A filehandle, A scalar reference, An array reference, An Input
+FileGlob string, A filename, A filehandle, A scalar reference, An Array
+Reference, An Output FileGlob
+
+=item Notes
+
+=item Optional Parameters
+
+C<< AutoClose => 0|1 >>, C<< BinModeIn => 0|1 >>, C<< Append => 0|1 >>, A
+Buffer, A Filename, A Filehandle
+
+=item Examples
+
+=back
+
+=item OO Interface
+
+=over 4
+
+=item Constructor
+
+A filename, A filehandle, A scalar reference
+
+=item Constructor Options
+
+C<< AutoClose => 0|1 >>, C<< Append => 0|1 >>, A Buffer, A Filename, A
+Filehandle, C<< BlockSize100K => number >>, C<< WorkFactor => number >>,
+C<< Strict => 0|1 >>
+
+=item Examples
+
+=back
+
+=item Methods 
+
+=over 4
+
+=item print
+
+=item printf
+
+=item syswrite
+
+=item write
+
+=item flush
+
+=item tell
+
+=item eof
+
+=item seek
+
+=item binmode
+
+=item opened
+
+=item autoflush
+
+=item input_line_number
+
+=item fileno
+
+=item close
+
+=item newStream([OPTS])
+
+=back
+
+=item Importing 
+
+:all
+
+=item EXAMPLES
+
+=over 4
+
+=item Apache::GZip Revisited
+
+=item Working with Net::FTP
+
+=back
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=item MODIFICATION HISTORY
+
+=item COPYRIGHT AND LICENSE
+
+=back
+
+=head2 IO::Compress::Deflate - Write RFC 1950 files/buffers
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item Functional Interface
+
+=over 4
+
+=item deflate $input_filename_or_reference => $output_filename_or_reference
+[, OPTS]
+
+A filename, A filehandle, A scalar reference, An array reference, An Input
+FileGlob string, A filename, A filehandle, A scalar reference, An Array
+Reference, An Output FileGlob
+
+=item Notes
+
+=item Optional Parameters
+
+C<< AutoClose => 0|1 >>, C<< BinModeIn => 0|1 >>, C<< Append => 0|1 >>, A
+Buffer, A Filename, A Filehandle
+
+=item Examples
+
+=back
+
+=item OO Interface
+
+=over 4
+
+=item Constructor
+
+A filename, A filehandle, A scalar reference
+
+=item Constructor Options
+
+C<< AutoClose => 0|1 >>, C<< Append => 0|1 >>, A Buffer, A Filename, A
+Filehandle, C<< Merge => 0|1 >>, -Level, -Strategy, C<< Strict => 0|1 >>
+
+=item Examples
+
+=back
+
+=item Methods 
+
+=over 4
+
+=item print
+
+=item printf
+
+=item syswrite
+
+=item write
+
+=item flush
+
+=item tell
+
+=item eof
+
+=item seek
+
+=item binmode
+
+=item opened
+
+=item autoflush
+
+=item input_line_number
+
+=item fileno
+
+=item close
+
+=item newStream([OPTS])
+
+=item deflateParams
+
+=back
+
+=item Importing 
+
+:all, :constants, :flush, :level, :strategy
+
+=item EXAMPLES
+
+=over 4
+
+=item Apache::GZip Revisited
+
+=item Working with Net::FTP
+
+=back
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=item MODIFICATION HISTORY
+
+=item COPYRIGHT AND LICENSE
+
+=back
+
+=head2 IO::Compress::FAQ -- Frequently Asked Questions about IO::Compress
+
+=over 4
+
+=item DESCRIPTION
+
+=item GENERAL 
+
+=over 4
+
+=item Compatibility with Unix compress/uncompress.
+
+=item Accessing .tar.Z files
+
+=item How do I recompress using a different compression?
+
+=back
+
+=item ZIP
+
+=over 4
+
+=item What Compression Types do IO::Compress::Zip & IO::Uncompress::Unzip
+support?
+
+Store (method 0), Deflate (method 8), Bzip2 (method 12), Lzma (method 14)
+
+=item Can I Read/Write Zip files larger the 4 Gig?
+
+=item Can I write more that 64K entries is a Zip files?
+
+=item Zip Resources
+
+=back
+
+=item GZIP
+
+=over 4
+
+=item Gzip Resources
+
+=item Dealing with concatenated gzip files
+
+=item Reading bgzip files with IO::Uncompress::Gunzip
+
+=back
+
+=item ZLIB
+
+=over 4
+
+=item Zlib Resources
+
+=back
+
+=item Bzip2
+
+=over 4
+
+=item Bzip2 Resources
+
+=item Dealing with Concatenated bzip2 files
+
+=item Interoperating with Pbzip2
+
+=back
+
+=item HTTP & NETWORK
+
+=over 4
+
+=item Apache::GZip Revisited
+
+=item Compressed files and Net::FTP
+
+=back
+
+=item MISC
+
+=over 4
+
+=item Using C<InputLength> to uncompress data embedded in a larger
+file/buffer.
+
+=back
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=item MODIFICATION HISTORY
+
+=item COPYRIGHT AND LICENSE
+
+=back
+
+=head2 IO::Compress::Gzip - Write RFC 1952 files/buffers
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item Functional Interface
+
+=over 4
+
+=item gzip $input_filename_or_reference => $output_filename_or_reference [,
+OPTS]
+
+A filename, A filehandle, A scalar reference, An array reference, An Input
+FileGlob string, A filename, A filehandle, A scalar reference, An Array
+Reference, An Output FileGlob
+
+=item Notes
+
+=item Optional Parameters
+
+C<< AutoClose => 0|1 >>, C<< BinModeIn => 0|1 >>, C<< Append => 0|1 >>, A
+Buffer, A Filename, A Filehandle
+
+=item Examples
+
+=back
+
+=item OO Interface
+
+=over 4
+
+=item Constructor
+
+A filename, A filehandle, A scalar reference
+
+=item Constructor Options
+
+C<< AutoClose => 0|1 >>, C<< Append => 0|1 >>, A Buffer, A Filename, A
+Filehandle, C<< Merge => 0|1 >>, -Level, -Strategy, C<< Minimal => 0|1 >>,
+C<< Comment => $comment >>, C<< Name => $string >>, C<< Time => $number >>,
+C<< TextFlag => 0|1 >>, C<< HeaderCRC => 0|1 >>, C<< OS_Code => $value >>,
+C<< ExtraField => $data >>, C<< ExtraFlags => $value >>, C<< Strict => 0|1
+>>
+
+=item Examples
+
+=back
+
+=item Methods 
+
+=over 4
+
+=item print
+
+=item printf
+
+=item syswrite
+
+=item write
+
+=item flush
+
+=item tell
+
+=item eof
+
+=item seek
+
+=item binmode
+
+=item opened
+
+=item autoflush
+
+=item input_line_number
+
+=item fileno
+
+=item close
+
+=item newStream([OPTS])
+
+=item deflateParams
+
+=back
+
+=item Importing 
+
+:all, :constants, :flush, :level, :strategy
+
+=item EXAMPLES
+
+=over 4
+
+=item Apache::GZip Revisited
+
+=item Working with Net::FTP
+
+=back
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=item MODIFICATION HISTORY
+
+=item COPYRIGHT AND LICENSE
+
+=back
+
+=head2 IO::Compress::RawDeflate - Write RFC 1951 files/buffers
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item Functional Interface
+
+=over 4
+
+=item rawdeflate $input_filename_or_reference =>
+$output_filename_or_reference [, OPTS]
+
+A filename, A filehandle, A scalar reference, An array reference, An Input
+FileGlob string, A filename, A filehandle, A scalar reference, An Array
+Reference, An Output FileGlob
+
+=item Notes
+
+=item Optional Parameters
+
+C<< AutoClose => 0|1 >>, C<< BinModeIn => 0|1 >>, C<< Append => 0|1 >>, A
+Buffer, A Filename, A Filehandle
+
+=item Examples
+
+=back
+
+=item OO Interface
+
+=over 4
+
+=item Constructor
+
+A filename, A filehandle, A scalar reference
+
+=item Constructor Options
+
+C<< AutoClose => 0|1 >>, C<< Append => 0|1 >>, A Buffer, A Filename, A
+Filehandle, C<< Merge => 0|1 >>, -Level, -Strategy, C<< Strict => 0|1 >>
+
+=item Examples
+
+=back
+
+=item Methods 
+
+=over 4
+
+=item print
+
+=item printf
+
+=item syswrite
+
+=item write
+
+=item flush
+
+=item tell
+
+=item eof
+
+=item seek
+
+=item binmode
+
+=item opened
+
+=item autoflush
+
+=item input_line_number
+
+=item fileno
+
+=item close
+
+=item newStream([OPTS])
+
+=item deflateParams
+
+=back
+
+=item Importing 
+
+:all, :constants, :flush, :level, :strategy
+
+=item EXAMPLES
+
+=over 4
+
+=item Apache::GZip Revisited
+
+=item Working with Net::FTP
+
+=back
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=item MODIFICATION HISTORY
+
+=item COPYRIGHT AND LICENSE
+
+=back
+
+=head2 IO::Compress::Zip - Write zip files/buffers
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item Functional Interface
+
+=over 4
+
+=item zip $input_filename_or_reference => $output_filename_or_reference [,
+OPTS]
+
+A filename, A filehandle, A scalar reference, An array reference, An Input
+FileGlob string, A filename, A filehandle, A scalar reference, An Array
+Reference, An Output FileGlob
+
+=item Notes
+
+=item Optional Parameters
+
+C<< AutoClose => 0|1 >>, C<< BinModeIn => 0|1 >>, C<< Append => 0|1 >>, A
+Buffer, A Filename, A Filehandle
+
+=item Examples
+
+=back
+
+=item OO Interface
+
+=over 4
+
+=item Constructor
+
+A filename, A filehandle, A scalar reference
+
+=item Constructor Options
+
+C<< AutoClose => 0|1 >>, C<< Append => 0|1 >>, A Buffer, A Filename, A
+Filehandle, C<< Name => $string >>, C<< CanonicalName => 0|1 >>, C<<
+FilterName => sub { ... }  >>, C<< Time => $number >>, C<< ExtAttr => $attr
+>>, C<< exTime => [$atime, $mtime, $ctime] >>, C<< exUnix2 => [$uid, $gid]
+>>, C<< exUnixN => [$uid, $gid] >>, C<< Comment => $comment >>, C<<
+ZipComment => $comment >>, C<< Method => $method >>, C<< Stream => 0|1 >>,
+C<< Zip64 => 0|1 >>, C<< TextFlag => 0|1 >>, C<< ExtraFieldLocal => $data
+>>, C<< ExtraFieldCentral => $data >>, C<< Minimal => 1|0 >>, C<<
+BlockSize100K => number >>, C<< WorkFactor => number >>, C<< Preset =>
+number >>, C<< Extreme => 0|1 >>, -Level, -Strategy, C<< Strict => 0|1 >>
+
+=item Examples
+
+=back
+
+=item Methods 
+
+=over 4
+
+=item print
+
+=item printf
+
+=item syswrite
+
+=item write
+
+=item flush
+
+=item tell
+
+=item eof
+
+=item seek
+
+=item binmode
+
+=item opened
+
+=item autoflush
+
+=item input_line_number
+
+=item fileno
+
+=item close
+
+=item newStream([OPTS])
+
+=item deflateParams
+
+=back
+
+=item Importing 
+
+:all, :constants, :flush, :level, :strategy, :zip_method
+
+=item EXAMPLES
+
+=over 4
+
+=item Apache::GZip Revisited
+
+=item Working with Net::FTP
+
+=back
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=item MODIFICATION HISTORY
+
+=item COPYRIGHT AND LICENSE
+
+=back
+
+=head2 IO::Dir - supply object methods for directory handles
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+new ( [ DIRNAME ] ), open ( DIRNAME ), read (), seek ( POS ), tell (),
+rewind (), close (), tie %hash, 'IO::Dir', DIRNAME [, OPTIONS ]
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=item COPYRIGHT
+
+=back
+
+=head2 IO::File - supply object methods for filehandles
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item CONSTRUCTOR
+
+new ( FILENAME [,MODE [,PERMS]] ), new_tmpfile
+
+=item METHODS
+
+open( FILENAME [,MODE [,PERMS]] ), open( FILENAME, IOLAYERS ), binmode(
+[LAYER] )
+
+=item NOTE
+
+=item SEE ALSO
+
+=item HISTORY
+
+=back
+
+=head2 IO::Handle - supply object methods for I/O handles
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item CONSTRUCTOR
+
+new (), new_from_fd ( FD, MODE )
+
+=item METHODS
+
+$io->fdopen ( FD, MODE ), $io->opened, $io->getline, $io->getlines,
+$io->ungetc ( ORD ), $io->write ( BUF, LEN [, OFFSET ] ), $io->error,
+$io->clearerr, $io->sync, $io->flush, $io->printflush ( ARGS ),
+$io->blocking ( [ BOOL ] ), $io->untaint
+
+=item NOTE
+
+=item SEE ALSO
+
+=item BUGS
+
+=item HISTORY
+
+=back
+
+=head2 IO::Pipe - supply object methods for pipes
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item CONSTRUCTOR
+
+new ( [READER, WRITER] )
+
+=item METHODS
+
+reader ([ARGS]), writer ([ARGS]), handles ()
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=item COPYRIGHT
+
+=back
+
+=head2 IO::Poll - Object interface to system poll call
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item METHODS
+
+mask ( IO [, EVENT_MASK ] ), poll ( [ TIMEOUT ] ), events ( IO ), remove (
+IO ), handles( [ EVENT_MASK ] )
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=item COPYRIGHT
+
+=back
+
+=head2 IO::Seekable - supply seek based methods for I/O objects
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+$io->getpos, $io->setpos, $io->seek ( POS, WHENCE ), WHENCE=0 (SEEK_SET),
+WHENCE=1 (SEEK_CUR), WHENCE=2 (SEEK_END), $io->sysseek( POS, WHENCE ),
+$io->tell
+
+=item SEE ALSO
+
+=item HISTORY
+
+=back
+
+=head2 IO::Select - OO interface to the select system call
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item CONSTRUCTOR
+
+new ( [ HANDLES ] )
+
+=item METHODS
+
+add ( HANDLES ), remove ( HANDLES ), exists ( HANDLE ), handles, can_read (
+[ TIMEOUT ] ), can_write ( [ TIMEOUT ] ), has_exception ( [ TIMEOUT ] ),
+count (), bits(), select ( READ, WRITE, EXCEPTION [, TIMEOUT ] )
+
+=item EXAMPLE
+
+=item AUTHOR
+
+=item COPYRIGHT
+
+=back
+
+=head2 IO::Socket - Object interface to socket communications
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item CONSTRUCTOR
+
+new ( [ARGS] )
+
+=item METHODS
+
+accept([PKG]), socketpair(DOMAIN, TYPE, PROTOCOL), atmark, connected,
+protocol, sockdomain, sockopt(OPT [, VAL]), getsockopt(LEVEL, OPT),
+setsockopt(LEVEL, OPT, VAL), socktype, timeout([VAL])
+
+=item LIMITATIONS
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=item COPYRIGHT
+
+=back
+
+=head2 IO::Socket::INET - Object interface for AF_INET domain sockets
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item CONSTRUCTOR
+
+new ( [ARGS] )
+
+=over 4
+
+=item METHODS
+
+sockaddr (), sockport (), sockhost (), peeraddr (), peerport (), peerhost
+()
+
+=back
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=item COPYRIGHT
+
+=back
+
+=head2 IO::Socket::IP, C<IO::Socket::IP> - Family-neutral IP socket
+supporting both IPv4 and IPv6
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item REPLACING C<IO::Socket> DEFAULT BEHAVIOUR
+
+=back
+
+=over 4
+
+=item CONSTRUCTORS
+
+=back
+
+=over 4
+
+=item $sock = IO::Socket::IP->new( %args )
+
+PeerHost => STRING, PeerService => STRING, PeerAddr => STRING, PeerPort =>
+STRING, PeerAddrInfo => ARRAY, LocalHost => STRING, LocalService => STRING,
+LocalAddr => STRING, LocalPort => STRING, LocalAddrInfo => ARRAY, Family =>
+INT, Type => INT, Proto => STRING or INT, GetAddrInfoFlags => INT, Listen
+=> INT, ReuseAddr => BOOL, ReusePort => BOOL, Broadcast => BOOL, V6Only =>
+BOOL, MultiHomed, Blocking => BOOL, Timeout => NUM
+
+=item $sock = IO::Socket::IP->new( $peeraddr )
+
+=back
+
+=over 4
+
+=item METHODS
+
+=back
+
+=over 4
+
+=item ( $host, $service ) = $sock->sockhost_service( $numeric )
+
+=back
+
+=over 4
+
+=item $addr = $sock->sockhost
+
+=item $port = $sock->sockport
+
+=item $host = $sock->sockhostname
+
+=item $service = $sock->sockservice
+
+=back
+
+=over 4
+
+=item $addr = $sock->sockaddr
+
+=back
+
+=over 4
+
+=item ( $host, $service ) = $sock->peerhost_service( $numeric )
+
+=back
+
+=over 4
+
+=item $addr = $sock->peerhost
+
+=item $port = $sock->peerport
+
+=item $host = $sock->peerhostname
+
+=item $service = $sock->peerservice
+
+=back
+
+=over 4
+
+=item $addr = $peer->peeraddr
+
+=back
+
+=over 4
+
+=item $inet = $sock->as_inet
+
+=back
+
+=over 4
+
+=item NON-BLOCKING
+
+=back
+
+=over 4
+
+=item C<PeerHost> AND C<LocalHost> PARSING
+
+=over 4
+
+=item ( $host, $port ) = IO::Socket::IP->split_addr( $addr )
+
+=back
+
+=back
+
+=over 4
+
+=item $addr = IO::Socket::IP->join_addr( $host, $port )
+
+=back
+
+=over 4
+
+=item C<IO::Socket::INET> INCOMPATIBILITES
+
+=back
+
+=over 4
+
+=item TODO
+
+=item AUTHOR
+
+=back
+
+=head2 IO::Socket::UNIX - Object interface for AF_UNIX domain sockets
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item CONSTRUCTOR
+
+new ( [ARGS] )
+
+=item METHODS
+
+hostpath(), peerpath()
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=item COPYRIGHT
+
+=back
+
+=head2 IO::Uncompress::AnyInflate - Uncompress zlib-based (zip, gzip)
+file/buffer
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+RFC 1950, RFC 1951 (optionally), gzip (RFC 1952), zip
+
+=item Functional Interface
+
+=over 4
+
+=item anyinflate $input_filename_or_reference =>
+$output_filename_or_reference [, OPTS]
+
+A filename, A filehandle, A scalar reference, An array reference, An Input
+FileGlob string, A filename, A filehandle, A scalar reference, An Array
+Reference, An Output FileGlob
+
+=item Notes
+
+=item Optional Parameters
+
+C<< AutoClose => 0|1 >>, C<< BinModeOut => 0|1 >>, C<< Append => 0|1 >>, A
+Buffer, A Filename, A Filehandle, C<< MultiStream => 0|1 >>, C<<
+TrailingData => $scalar >>
+
+=item Examples
+
+=back
+
+=item OO Interface
+
+=over 4
+
+=item Constructor
+
+A filename, A filehandle, A scalar reference
+
+=item Constructor Options
+
+C<< AutoClose => 0|1 >>, C<< MultiStream => 0|1 >>, C<< Prime => $string
+>>, C<< Transparent => 0|1 >>, C<< BlockSize => $num >>, C<< InputLength =>
+$size >>, C<< Append => 0|1 >>, C<< Strict => 0|1 >>, C<< RawInflate => 0|1
+>>, C<< ParseExtra => 0|1 >> If the gzip FEXTRA header field is present and
+this option is set, it will force the module to check that it conforms to
+the sub-field structure as defined in RFC 1952
+
+=item Examples
+
+=back
+
+=item Methods 
+
+=over 4
+
+=item read
+
+=item read
+
+=item getline
+
+=item getc
+
+=item ungetc
+
+=item inflateSync
+
+=item getHeaderInfo
+
+=item tell
+
+=item eof
+
+=item seek
+
+=item binmode
+
+=item opened
+
+=item autoflush
+
+=item input_line_number
+
+=item fileno
+
+=item close
+
+=item nextStream
+
+=item trailingData
+
+=back
+
+=item Importing 
+
+:all
+
+=item EXAMPLES
+
+=over 4
+
+=item Working with Net::FTP
+
+=back
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=item MODIFICATION HISTORY
+
+=item COPYRIGHT AND LICENSE
+
+=back
+
+=head2 IO::Uncompress::AnyUncompress - Uncompress gzip, zip, bzip2 or lzop
+file/buffer
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+RFC 1950, RFC 1951 (optionally), gzip (RFC 1952), zip, bzip2, lzop, lzf,
+lzma, xz
+
+=item Functional Interface
+
+=over 4
+
+=item anyuncompress $input_filename_or_reference =>
+$output_filename_or_reference [, OPTS]
+
+A filename, A filehandle, A scalar reference, An array reference, An Input
+FileGlob string, A filename, A filehandle, A scalar reference, An Array
+Reference, An Output FileGlob
+
+=item Notes
+
+=item Optional Parameters
+
+C<< AutoClose => 0|1 >>, C<< BinModeOut => 0|1 >>, C<< Append => 0|1 >>, A
+Buffer, A Filename, A Filehandle, C<< MultiStream => 0|1 >>, C<<
+TrailingData => $scalar >>
+
+=item Examples
+
+=back
+
+=item OO Interface
+
+=over 4
+
+=item Constructor
+
+A filename, A filehandle, A scalar reference
+
+=item Constructor Options
+
+C<< AutoClose => 0|1 >>, C<< MultiStream => 0|1 >>, C<< Prime => $string
+>>, C<< Transparent => 0|1 >>, C<< BlockSize => $num >>, C<< InputLength =>
+$size >>, C<< Append => 0|1 >>, C<< Strict => 0|1 >>, C<< RawInflate => 0|1
+>>, C<< UnLzma => 0|1 >>
+
+=item Examples
+
+=back
+
+=item Methods 
+
+=over 4
+
+=item read
+
+=item read
+
+=item getline
+
+=item getc
+
+=item ungetc
+
+=item getHeaderInfo
+
+=item tell
+
+=item eof
+
+=item seek
+
+=item binmode
+
+=item opened
+
+=item autoflush
+
+=item input_line_number
+
+=item fileno
+
+=item close
+
+=item nextStream
+
+=item trailingData
+
+=back
+
+=item Importing 
+
+:all
+
+=item EXAMPLES
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=item MODIFICATION HISTORY
+
+=item COPYRIGHT AND LICENSE
+
+=back
+
+=head2 IO::Uncompress::Base - Base Class for IO::Uncompress modules 
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=item MODIFICATION HISTORY
+
+=item COPYRIGHT AND LICENSE
+
+=back
+
+=head2 IO::Uncompress::Bunzip2 - Read bzip2 files/buffers
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item Functional Interface
+
+=over 4
+
+=item bunzip2 $input_filename_or_reference => $output_filename_or_reference
+[, OPTS]
+
+A filename, A filehandle, A scalar reference, An array reference, An Input
+FileGlob string, A filename, A filehandle, A scalar reference, An Array
+Reference, An Output FileGlob
+
+=item Notes
+
+=item Optional Parameters
+
+C<< AutoClose => 0|1 >>, C<< BinModeOut => 0|1 >>, C<< Append => 0|1 >>, A
+Buffer, A Filename, A Filehandle, C<< MultiStream => 0|1 >>, C<<
+TrailingData => $scalar >>
+
+=item Examples
+
+=back
+
+=item OO Interface
+
+=over 4
+
+=item Constructor
+
+A filename, A filehandle, A scalar reference
+
+=item Constructor Options
+
+C<< AutoClose => 0|1 >>, C<< MultiStream => 0|1 >>, C<< Prime => $string
+>>, C<< Transparent => 0|1 >>, C<< BlockSize => $num >>, C<< InputLength =>
+$size >>, C<< Append => 0|1 >>, C<< Strict => 0|1 >>, C<< Small => 0|1 >>
+
+=item Examples
+
+=back
+
+=item Methods 
+
+=over 4
+
+=item read
+
+=item read
+
+=item getline
+
+=item getc
+
+=item ungetc
+
+=item getHeaderInfo
+
+=item tell
+
+=item eof
+
+=item seek
+
+=item binmode
+
+=item opened
+
+=item autoflush
+
+=item input_line_number
+
+=item fileno
+
+=item close
+
+=item nextStream
+
+=item trailingData
+
+=back
+
+=item Importing 
+
+:all
+
+=item EXAMPLES
+
+=over 4
+
+=item Working with Net::FTP
+
+=back
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=item MODIFICATION HISTORY
+
+=item COPYRIGHT AND LICENSE
+
+=back
+
+=head2 IO::Uncompress::Gunzip - Read RFC 1952 files/buffers
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item Functional Interface
+
+=over 4
+
+=item gunzip $input_filename_or_reference => $output_filename_or_reference
+[, OPTS]
+
+A filename, A filehandle, A scalar reference, An array reference, An Input
+FileGlob string, A filename, A filehandle, A scalar reference, An Array
+Reference, An Output FileGlob
+
+=item Notes
+
+=item Optional Parameters
+
+C<< AutoClose => 0|1 >>, C<< BinModeOut => 0|1 >>, C<< Append => 0|1 >>, A
+Buffer, A Filename, A Filehandle, C<< MultiStream => 0|1 >>, C<<
+TrailingData => $scalar >>
+
+=item Examples
+
+=back
+
+=item OO Interface
+
+=over 4
+
+=item Constructor
+
+A filename, A filehandle, A scalar reference
+
+=item Constructor Options
+
+C<< AutoClose => 0|1 >>, C<< MultiStream => 0|1 >>, C<< Prime => $string
+>>, C<< Transparent => 0|1 >>, C<< BlockSize => $num >>, C<< InputLength =>
+$size >>, C<< Append => 0|1 >>, C<< Strict => 0|1 >>, C<< ParseExtra => 0|1
+>> If the gzip FEXTRA header field is present and this option is set, it
+will force the module to check that it conforms to the sub-field structure
+as defined in RFC 1952
+
+=item Examples
+
+=back
+
+=item Methods 
+
+=over 4
+
+=item read
+
+=item read
+
+=item getline
+
+=item getc
+
+=item ungetc
+
+=item inflateSync
+
+=item getHeaderInfo
+
+Name, Comment
+
+=item tell
+
+=item eof
+
+=item seek
+
+=item binmode
+
+=item opened
+
+=item autoflush
+
+=item input_line_number
+
+=item fileno
+
+=item close
+
+=item nextStream
+
+=item trailingData
+
+=back
+
+=item Importing 
+
+:all
+
+=item EXAMPLES
+
+=over 4
+
+=item Working with Net::FTP
+
+=back
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=item MODIFICATION HISTORY
+
+=item COPYRIGHT AND LICENSE
+
+=back
+
+=head2 IO::Uncompress::Inflate - Read RFC 1950 files/buffers
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item Functional Interface
+
+=over 4
+
+=item inflate $input_filename_or_reference => $output_filename_or_reference
+[, OPTS]
+
+A filename, A filehandle, A scalar reference, An array reference, An Input
+FileGlob string, A filename, A filehandle, A scalar reference, An Array
+Reference, An Output FileGlob
+
+=item Notes
+
+=item Optional Parameters
+
+C<< AutoClose => 0|1 >>, C<< BinModeOut => 0|1 >>, C<< Append => 0|1 >>, A
+Buffer, A Filename, A Filehandle, C<< MultiStream => 0|1 >>, C<<
+TrailingData => $scalar >>
+
+=item Examples
+
+=back
+
+=item OO Interface
+
+=over 4
+
+=item Constructor
+
+A filename, A filehandle, A scalar reference
+
+=item Constructor Options
+
+C<< AutoClose => 0|1 >>, C<< MultiStream => 0|1 >>, C<< Prime => $string
+>>, C<< Transparent => 0|1 >>, C<< BlockSize => $num >>, C<< InputLength =>
+$size >>, C<< Append => 0|1 >>, C<< Strict => 0|1 >>
+
+=item Examples
+
+=back
+
+=item Methods 
+
+=over 4
+
+=item read
+
+=item read
+
+=item getline
+
+=item getc
+
+=item ungetc
+
+=item inflateSync
+
+=item getHeaderInfo
+
+=item tell
+
+=item eof
+
+=item seek
+
+=item binmode
+
+=item opened
+
+=item autoflush
+
+=item input_line_number
+
+=item fileno
+
+=item close
+
+=item nextStream
+
+=item trailingData
+
+=back
+
+=item Importing 
+
+:all
+
+=item EXAMPLES
+
+=over 4
+
+=item Working with Net::FTP
+
+=back
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=item MODIFICATION HISTORY
+
+=item COPYRIGHT AND LICENSE
+
+=back
+
+=head2 IO::Uncompress::RawInflate - Read RFC 1951 files/buffers
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item Functional Interface
+
+=over 4
+
+=item rawinflate $input_filename_or_reference =>
+$output_filename_or_reference [, OPTS]
+
+A filename, A filehandle, A scalar reference, An array reference, An Input
+FileGlob string, A filename, A filehandle, A scalar reference, An Array
+Reference, An Output FileGlob
+
+=item Notes
+
+=item Optional Parameters
+
+C<< AutoClose => 0|1 >>, C<< BinModeOut => 0|1 >>, C<< Append => 0|1 >>, A
+Buffer, A Filename, A Filehandle, C<< MultiStream => 0|1 >>, C<<
+TrailingData => $scalar >>
+
+=item Examples
+
+=back
+
+=item OO Interface
+
+=over 4
+
+=item Constructor
+
+A filename, A filehandle, A scalar reference
+
+=item Constructor Options
+
+C<< AutoClose => 0|1 >>, C<< MultiStream => 0|1 >>, C<< Prime => $string
+>>, C<< Transparent => 0|1 >>, C<< BlockSize => $num >>, C<< InputLength =>
+$size >>, C<< Append => 0|1 >>, C<< Strict => 0|1 >>
+
+=item Examples
+
+=back
+
+=item Methods 
+
+=over 4
+
+=item read
+
+=item read
+
+=item getline
+
+=item getc
+
+=item ungetc
+
+=item inflateSync
+
+=item getHeaderInfo
+
+=item tell
+
+=item eof
+
+=item seek
+
+=item binmode
+
+=item opened
+
+=item autoflush
+
+=item input_line_number
+
+=item fileno
+
+=item close
+
+=item nextStream
+
+=item trailingData
+
+=back
+
+=item Importing 
+
+:all
+
+=item EXAMPLES
+
+=over 4
+
+=item Working with Net::FTP
+
+=back
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=item MODIFICATION HISTORY
+
+=item COPYRIGHT AND LICENSE
+
+=back
+
+=head2 IO::Uncompress::Unzip - Read zip files/buffers
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item Functional Interface
+
+=over 4
+
+=item unzip $input_filename_or_reference => $output_filename_or_reference
+[, OPTS]
+
+A filename, A filehandle, A scalar reference, An array reference, An Input
+FileGlob string, A filename, A filehandle, A scalar reference, An Array
+Reference, An Output FileGlob
+
+=item Notes
+
+=item Optional Parameters
+
+C<< AutoClose => 0|1 >>, C<< BinModeOut => 0|1 >>, C<< Append => 0|1 >>, A
+Buffer, A Filename, A Filehandle, C<< MultiStream => 0|1 >>, C<<
+TrailingData => $scalar >>
+
+=item Examples
+
+=back
+
+=item OO Interface
+
+=over 4
+
+=item Constructor
+
+A filename, A filehandle, A scalar reference
+
+=item Constructor Options
+
+C<< Name => "membername" >>, C<< AutoClose => 0|1 >>, C<< MultiStream =>
+0|1 >>, C<< Prime => $string >>, C<< Transparent => 0|1 >>, C<< BlockSize
+=> $num >>, C<< InputLength => $size >>, C<< Append => 0|1 >>, C<< Strict
+=> 0|1 >>
+
+=item Examples
+
+=back
+
+=item Methods 
+
+=over 4
+
+=item read
+
+=item read
+
+=item getline
+
+=item getc
+
+=item ungetc
+
+=item inflateSync
+
+=item getHeaderInfo
+
+=item tell
+
+=item eof
+
+=item seek
+
+=item binmode
+
+=item opened
+
+=item autoflush
+
+=item input_line_number
+
+=item fileno
+
+=item close
+
+=item nextStream
+
+=item trailingData
+
+=back
+
+=item Importing 
+
+:all
+
+=item EXAMPLES
+
+=over 4
+
+=item Working with Net::FTP
+
+=item Walking through a zip file
+
+=item Unzipping a complete zip file to disk
+
+=back
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=item MODIFICATION HISTORY
+
+=item COPYRIGHT AND LICENSE
+
+=back
+
+=head2 IO::Zlib - IO:: style interface to L<Compress::Zlib>
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item CONSTRUCTOR
+
+new ( [ARGS] )
+
+=item OBJECT METHODS
+
+open ( FILENAME, MODE ), opened, close, getc, getline, getlines, print (
+ARGS... ), read ( BUF, NBYTES, [OFFSET] ), eof, seek ( OFFSET, WHENCE ),
+tell, setpos ( POS ), getpos ( POS )
+
+=item USING THE EXTERNAL GZIP
+
+=item CLASS METHODS
+
+has_Compress_Zlib, gzip_external, gzip_used, gzip_read_open,
+gzip_write_open
+
+=item DIAGNOSTICS
+
+IO::Zlib::getlines: must be called in list context,
+IO::Zlib::gzopen_external: mode '...' is illegal, IO::Zlib::import: '...'
+is illegal, IO::Zlib::import: ':gzip_external' requires an argument,
+IO::Zlib::import: 'gzip_read_open' requires an argument, IO::Zlib::import:
+'gzip_read' '...' is illegal, IO::Zlib::import: 'gzip_write_open' requires
+an argument, IO::Zlib::import: 'gzip_write_open' '...' is illegal,
+IO::Zlib::import: no Compress::Zlib and no external gzip, IO::Zlib::open:
+needs a filename, IO::Zlib::READ: NBYTES must be specified,
+IO::Zlib::WRITE: too long LENGTH
+
+=item SEE ALSO
+
+=item HISTORY
+
+=item COPYRIGHT
+
+=back
+
+=head2 IPC::Cmd - finding and running system commands made easy
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item CLASS METHODS
+
+=over 4
+
+=item $ipc_run_version = IPC::Cmd->can_use_ipc_run( [VERBOSE] )
+
+=back
+
+=back
+
+=over 4
+
+=item $ipc_open3_version = IPC::Cmd->can_use_ipc_open3( [VERBOSE] )
+
+=back
+
+=over 4
+
+=item $bool = IPC::Cmd->can_capture_buffer
+
+=back
+
+=over 4
+
+=item $bool = IPC::Cmd->can_use_run_forked
+
+=back
+
+=over 4
+
+=item FUNCTIONS
+
+=over 4
+
+=item $path = can_run( PROGRAM );
+
+=back
+
+=back
+
+=over 4
+
+=item $ok | ($ok, $err, $full_buf, $stdout_buff, $stderr_buff) = run(
+command => COMMAND, [verbose => BOOL, buffer => \$SCALAR, timeout => DIGIT]
+);
+
+command, verbose, buffer, timeout, success, error message, full_buffer,
+out_buffer, error_buffer
+
+=back
+
+=over 4
+
+=item $hashref = run_forked( COMMAND, { child_stdin => SCALAR, timeout =>
+DIGIT, stdout_handler => CODEREF, stderr_handler => CODEREF} );
+
+C<timeout>, C<child_stdin>, C<stdout_handler>, C<stderr_handler>,
+C<discard_output>, C<terminate_on_parent_sudden_death>, C<exit_code>,
+C<timeout>, C<stdout>, C<stderr>, C<merged>, C<err_msg>
+
+=back
+
+=over 4
+
+=item $q = QUOTE
+
+=back
+
+=over 4
+
+=item HOW IT WORKS
+
+=item Global Variables
+
+=over 4
+
+=item $IPC::Cmd::VERBOSE
+
+=item $IPC::Cmd::USE_IPC_RUN
+
+=item $IPC::Cmd::USE_IPC_OPEN3
+
+=item $IPC::Cmd::WARN
+
+=item $IPC::Cmd::INSTANCES
+
+=item $IPC::Cmd::ALLOW_NULL_ARGS
+
+=back
+
+=item Caveats
+
+Whitespace and IPC::Open3 / system(), Whitespace and IPC::Run, IO Redirect,
+Interleaving STDOUT/STDERR
+
+=item See Also
+
+=item ACKNOWLEDGEMENTS
+
+=item BUG REPORTS
+
+=item AUTHOR
+
+=item COPYRIGHT
+
+=back
+
+=head2 IPC::Msg - SysV Msg IPC object class
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item METHODS
+
+new ( KEY , FLAGS ), id, rcv ( BUF, LEN [, TYPE [, FLAGS ]] ), remove, set
+( STAT ), set ( NAME => VALUE [, NAME => VALUE ...] ), snd ( TYPE, MSG [,
+FLAGS ] ), stat
+
+=item SEE ALSO
+
+=item AUTHORS
+
+=item COPYRIGHT
+
+=back
+
+=head2 IPC::Open2 - open a process for both reading and writing using
+open2()
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item WARNING 
+
+=item SEE ALSO
+
+=back
+
+=head2 IPC::Open3 - open a process for reading, writing, and error handling
+using open3()
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item See Also
+
+L<IPC::Open2>, L<IPC::Run>
+
+=item WARNING
+
+=back
+
+=head2 IPC::Semaphore - SysV Semaphore IPC object class
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item METHODS
+
+new ( KEY , NSEMS , FLAGS ), getall, getncnt ( SEM ), getpid ( SEM ),
+getval ( SEM ), getzcnt ( SEM ), id, op ( OPLIST ), remove, set ( STAT ),
+set ( NAME => VALUE [, NAME => VALUE ...] ), setall ( VALUES ), setval ( N
+, VALUE ), stat
+
+=item SEE ALSO
+
+=item AUTHORS
+
+=item COPYRIGHT
+
+=back
+
+=head2 IPC::SharedMem - SysV Shared Memory IPC object class
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item METHODS
+
+new ( KEY , SIZE , FLAGS ), id, read ( POS, SIZE ), write ( STRING, POS,
+SIZE ), remove, is_removed, stat, attach ( [FLAG] ), detach, addr
+
+=item SEE ALSO
+
+=item AUTHORS
+
+=item COPYRIGHT
+
+=back
+
+=head2 IPC::SysV - System V IPC constants and system calls
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+ftok( PATH ), ftok( PATH, ID ), shmat( ID, ADDR, FLAG ), shmdt( ADDR ),
+memread( ADDR, VAR, POS, SIZE ), memwrite( ADDR, STRING, POS, SIZE )
+
+=item SEE ALSO
+
+=item AUTHORS
+
+=item COPYRIGHT
+
+=back
+
+=head2 JSON::PP - JSON::XS compatible pure-Perl module.
+
+=over 4
+
+=item SYNOPSIS
+
+=item VERSION
+
+=item NOTE
+
+=item DESCRIPTION
+
+=over 4
+
+=item FEATURES
+
+correct unicode handling, round-trip integrity, strict checking of JSON
+correctness
+
+=back
+
+=item FUNCTIONAL INTERFACE
+
+=over 4
+
+=item encode_json
+
+=item decode_json
+
+=item JSON::PP::is_bool
+
+=item JSON::PP::true
+
+=item JSON::PP::false
+
+=item JSON::PP::null
+
+=back
+
+=item HOW DO I DECODE A DATA FROM OUTER AND ENCODE TO OUTER
+
+=item METHODS
+
+=over 4
+
+=item new
+
+=item ascii
+
+=item latin1
+
+=item utf8
+
+=item pretty
+
+=item indent
+
+=item space_before
+
+=item space_after
+
+=item relaxed
+
+list items can have an end-comma, shell-style '#'-comments
+
+=item canonical
+
+=item allow_nonref
+
+=item allow_unknown
+
+=item allow_blessed
+
+=item convert_blessed
+
+=item filter_json_object
+
+=item filter_json_single_key_object
+
+=item shrink
+
+=item max_depth
+
+=item max_size
+
+=item encode
+
+=item decode
+
+=item decode_prefix
+
+=back
+
+=item INCREMENTAL PARSING
+
+=over 4
+
+=item incr_parse
+
+=item incr_text
+
+=item incr_skip
+
+=item incr_reset
+
+=back
+
+=item JSON::PP OWN METHODS
+
+=over 4
+
+=item allow_singlequote
+
+=item allow_barekey
+
+=item allow_bignum
+
+=item loose
+
+=item escape_slash
+
+=item indent_length
+
+=item sort_by
+
+=back
+
+=item INTERNAL
+
+PP_encode_box, PP_decode_box
+
+=item MAPPING
+
+=over 4
+
+=item JSON -> PERL
+
+object, array, string, number, true, false, null
+
+=item PERL -> JSON
+
+hash references, array references, other references, JSON::PP::true,
+JSON::PP::false, JSON::PP::null, blessed objects, simple scalars, Big
+Number
+
+=back
+
+=item UNICODE HANDLING ON PERLS
+
+=over 4
+
+=item Perl 5.8 and later
+
+=item Perl 5.6
+
+=item Perl 5.005
+
+=back
+
+=item TODO
+
+speed, memory saving
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=item COPYRIGHT AND LICENSE
+
+=back
+
+=head2 JSON::PP::Boolean - dummy module providing JSON::PP::Boolean
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=back
+
+=over 4
+
+=item AUTHOR
+
+=back
+
+=head2 List::Util - A selection of general-utility list subroutines
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=back
+
+=over 4
+
+=item LIST-REDUCTION FUNCTIONS
+
+=back
+
+=over 4
+
+=item $result = reduce { BLOCK } @list
+
+=item any
+
+=item all
+
+=item none
+
+=item notall
+
+=item first
+
+=item max
+
+=item maxstr
+
+=item min
+
+=item minstr
+
+=item product
+
+=item sum
+
+=item sum0
+
+=back
+
+=over 4
+
+=item KEY/VALUE PAIR LIST FUNCTIONS
+
+=back
+
+=over 4
+
+=item pairs
+
+=item unpairs
+
+=item pairkeys
+
+=item pairvalues
+
+=item pairgrep
+
+=item pairfirst
+
+=item pairmap
+
+=back
+
+=over 4
+
+=item OTHER FUNCTIONS
+
+=back
+
+=over 4
+
+=item shuffle
+
+=back
+
+=over 4
+
+=item KNOWN BUGS
+
+=over 4
+
+=item RT #95409
+
+=back
+
+=item SUGGESTED ADDITIONS
+
+=item SEE ALSO
+
+=item COPYRIGHT
+
+=back
+
+=head2 List::Util::XS - Indicate if List::Util was compiled with a C
+compiler
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item SEE ALSO
+
+=item COPYRIGHT
+
+=back
+
+=head2 Locale::Codes - a distribution of modules to handle locale codes
+
+=over 4
+
+=item DESCRIPTION
+
+L<Locale::Codes::Country>, L<Locale::Country>, L<Locale::Codes::Language>,
+L<Locale::Language>, L<Locale::Codes::Currency>, L<Locale::Currency>,
+L<Locale::Codes::Script>, L<Locale::Script>, L<Locale::Codes::LangExt>,
+L<Locale::Codes::LangVar>, L<Locale::Codes::LangFam>, B<Locale::Codes>,
+B<Locale::Codes::Constants>, B<Locale::Codes::Country_codes>,
+B<Locale::Codes::Language_codes>, B<Locale::Codes::Currency_codes>,
+B<Locale::Codes::Script_codes>, B<Locale::Codes::LangExt_codes>,
+B<Locale::Codes::LangVar_codes>, B<Locale::Codes::LangFam_codes>
+
+=item NEW CODE SETS
+
+B<General-use code set>, B<An official source of data>, B<A free source of
+the data>, B<A reliable source of data>
+
+=item COMMON ALIASES
+
+=item DEPRECATED CODES
+
+=item SEE ALSO
+
+L<Locale::Codes::API>, L<Locale::Codes::Country>,
+L<Locale::Codes::Language>, L<Locale::Codes::Script>,
+L<Locale::Codes::Currency>, L<Locale::Codes::LangExt>,
+L<Locale::Codes::LangVar>, L<Locale::Codes::LangFam>,
+L<Locale::Codes::Changes>
+
+=item AUTHOR
+
+=item COPYRIGHT
+
+=back
+
+=head2 Locale::Codes::API - a description of the callable function in each
+module
+
+=over 4
+
+=item DESCRIPTION
+
+=item ROUTINES
+
+B<code2XXX ( CODE [,CODESET] [,'retired'] )>, B<XXX2code ( NAME [,CODESET]
+[,'retired'] )>, B<XXX_code2code ( CODE ,CODESET ,CODESET2 )>,
+B<all_XXX_codes ( [CODESET] [,'retired'] )>, B<all_XXX_names ( [CODESET]
+[,'retired'] )>
+
+=item SEMI-PRIVATE ROUTINES
+
+B<MODULE::rename_XXX  ( CODE ,NEW_NAME [,CODESET] )>, B<MODULE::add_XXX  (
+CODE ,NAME [,CODESET] )>, B<MODULE::delete_XXX	( CODE [,CODESET] )>,
+B<MODULE::add_XXX_alias  ( NAME ,NEW_NAME )>, B<MODULE::delete_XXX_alias  (
+NAME )>, B<MODULE::rename_XXX_code  ( CODE ,NEW_CODE [,CODESET] )>,
+B<MODULE::add_XXX_code_alias  ( CODE ,NEW_CODE [,CODESET] )>,
+B<MODULE::delete_XXX_code_alias  ( CODE [,CODESET] )>
+
+=item KNOWN BUGS AND LIMITATIONS
+
+B<Relationship between code sets>, B<Non-ASCII characters not supported>
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=item COPYRIGHT
+
+=back
+
+=head2 Locale::Codes::Changes - details changes to Locale::Codes
+
+=over 4
+
+=item SYNOPSIS
+
+=item VERSION 3.41  (planned 2016-12-01; sbeck)
+
+=item VERSION 3.40  (planned 2016-09-01; sbeck)
+
+=item VERSION 3.39  (planned 2016-06-01; sbeck)
+
+=item VERSION 3.38  (planned 2016-03-01; sbeck)
+
+=item VERSION 3.37  (2015-12-01; sbeck)
+
+=item VERSION 3.36  (2015-09-01; sbeck)
+
+B<(!) Removed alias_code function>
+
+=item VERSION 3.35  (2015-06-01; sbeck)
+
+B<Documentation improvements>
+
+=item VERSION 3.34  (2015-03-01; sbeck)
+
+=item VERSION 3.33  (2014-12-01; sbeck)
+
+B<Filled out LOCALE_LANG_TERM codeset>, B<Moved repository to GitHub>
+
+=item VERSION 3.32  (2014-09-01; sbeck)
+
+=item VERSION 3.31  (2014-06-01; sbeck)
+
+B<Bug fixes>
+
+=item VERSION 3.30  (2014-03-04; sbeck)
+
+B<alias_code remove date set>, B<Bug fixes>
+
+=item VERSION 3.29  (2014-01-27; sbeck)
+
+B<ISO 3166 country codes improved>, B<Bug fixes>
+
+=item VERSION 3.28  (2013-12-02; sbeck)
+
+=item VERSION 3.27  (2013-09-03; sbeck)
+
+B<* FIPS-10 country codes removed>
+
+=item VERSION 3.26  (2013-06-03; sbeck)
+
+B<Documentation fixes>
+
+=item VERSION 3.25  (2013-03-01; sbeck)
+
+=item VERSION 3.24  (2012-12-03; sbeck)
+
+B<Syria alias>, B<FIPS-10 country codes deprecated>, B<Domain country codes
+now come from ISO 3166>
+
+=item VERSION 3.23  (2012-09-01; sbeck)
+
+=item VERSION 3.22  (2012-06-01; sbeck)
+
+B<Updated perl version required>, B<Sorted deprecated codes>
+
+=item VERSION 3.21  (2012-03-01; sbeck)
+
+=item VERSION 3.20  (2011-12-01; sbeck)
+
+B<Added limited support for deprecated codes>, B<Fixed capitalization>,
+B<Pod tests off by default>, B<Codesets may be specified by name>,
+B<alias_code deprecated>, B<Code cleanup>, B<Added LangFam module>
+
+=item VERSION 3.18  (2011-08-31; sbeck)
+
+B<No longer use CIA data>
+
+=item VERSION 3.17  (2011-06-28; sbeck)
+
+B<Added new types of codes>, B<Added new codeset(s)>, B<Bug fixes>,
+B<Reorganized code>
+
+=item VERSION 3.16  (2011-03-01; sbeck)
+
+=item VERSION 3.15  (2010-12-02; sbeck)
+
+B<Minor fixes>
+
+=item VERSION 3.14  (2010-09-28; sbeck)
+
+B<Bug fixes>
+
+=item VERSION 3.13  (2010-06-04; sbeck)
+
+=item VERSION 3.12  (2010-04-06; sbeck)
+
+B<Reorganized code>
+
+=item VERSION 3.11  (2010-03-01; sbeck)
+
+B<Added new codeset(s)>, B<Bug fixes>
+
+=item VERSION 3.10  (2010-02-18; sbeck)
+
+B<Reorganized code>, B<(!) Changed XXX_code2code behavior slightly>,
+B<Added many semi-private routines>, B<New aliases>
+
+=item VERSION 3.01  (2010-02-15; sbeck)
+
+B<Fixed Makefile.PL and Build.PL>
+
+=item VERSION 3.00  (2010-02-10; sbeck)
+
+B<(*) New maintainer>, B<(*) (!) All codes are generated from standards>,
+B<Added new codeset(s)>, B<(*) (!) Locale::Script changed>, B<Added missing
+functions>, B<(!) Dropped support for _alias_code>, B<(!) All functions
+return the standard value>, B<(!) rename_country function altered>
+
+=item VERSION 2.07  (2004-06-10; neilb)
+
+=item VERSION 2.06  (2002-07-15; neilb)
+
+=item VERSION 2.05  (2002-07-08; neilb)
+
+=item VERSION 2.04  (2002-05-23; neilb)
+
+=item VERSION 2.03  (2002-03-24; neilb)
+
+=item VERSION 2.02  (2002-03-09; neilb)
+
+=item VERSION 2.01  (2002-02-18; neilb)
+
+=item VERSION 2.00  (2002-02-17; neilb)
+
+=item VERSION 1.06  (2001-03-04; neilb)
+
+=item VERSION 1.05  (2001-02-13; neilb)
+
+=item VERSION 1.04  (2000-12-21; neilb)
+
+=item VERSION 1.03  (2000-12-??; neilb)
+
+=item VERSION 1.02  (2000-05-04; neilb)
+
+=item VERSION 1.00  (1998-03-09; neilb)
+
+=item VERSION 0.003  (1997-05-09; neilb)
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=item COPYRIGHT
+
+=back
+
+=head2 Locale::Codes::Country - standard codes for country identification
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item SUPPORTED CODE SETS
+
+B<alpha-2, LOCALE_CODE_ALPHA_2>, B<alpha-3, LOCALE_CODE_ALPHA_3>,
+B<numeric, LOCALE_CODE_NUMERIC>, B<dom, LOCALE_CODE_DOM>
+
+=item ROUTINES
+
+B<code2country(CODE [,CODESET] [,'retired'])>, B<country2code(NAME
+[,CODESET] [,'retired'])>, B<country_code2code(CODE ,CODESET ,CODESET2)>,
+B<all_country_codes([CODESET] [,'retired'])>, B<all_country_names([CODESET]
+[,'retired'])>, B<Locale::Codes::Country::rename_country(CODE ,NEW_NAME
+[,CODESET])>, B<Locale::Codes::Country::add_country(CODE ,NAME
+[,CODESET])>, B<Locale::Codes::Country::delete_country(CODE [,CODESET])>,
+B<Locale::Codes::Country::add_country_alias(NAME ,NEW_NAME)>,
+B<Locale::Codes::Country::delete_country_alias(NAME)>,
+B<Locale::Codes::Country::rename_country_code(CODE ,NEW_CODE [,CODESET])>,
+B<Locale::Codes::Country::add_country_code_alias(CODE ,NEW_CODE
+[,CODESET])>, B<Locale::Codes::Country::delete_country_code_alias(CODE
+[,CODESET])>
+
+=item SEE ALSO
+
+L<Locale::Codes>, L<Locale::Codes::API>, L<Locale::SubCountry>,
+L<http://www.iso.org/iso/home/standards/country_codes.htm>,
+L<http://www.iso.org/iso/home/standards/country_codes/iso-3166-1_decoding_t
+able.htm>, L<http://www.iana.org/domains/root/db/>,
+L<http://unstats.un.org/unsd/methods/m49/m49alpha.htm>,
+L<https://www.cia.gov/library/publications/the-world-factbook/appendix/prin
+t_appendix-d.html>, L<http://www.statoids.com/wab.html>
+
+=item AUTHOR
+
+=item COPYRIGHT
+
+=back
+
+=head2 Locale::Codes::Currency - standard codes for currency identification
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item SUPPORTED CODE SETS
+
+B<alpha, LOCALE_CURR_ALPHA>, B<num, LOCALE_CURR_NUMERIC>
+
+=item ROUTINES
+
+B<code2currency(CODE [,CODESET] [,'retired'])>, B<currency2code(NAME
+[,CODESET] [,'retired'])>, B<currency_code2code(CODE ,CODESET ,CODESET2)>,
+B<all_currency_codes([CODESET] [,'retired'])>,
+B<all_currency_names([CODESET] [,'retired'])>,
+B<Locale::Codes::Currency::rename_currency(CODE ,NEW_NAME [,CODESET])>,
+B<Locale::Codes::Currency::add_currency(CODE ,NAME [,CODESET])>,
+B<Locale::Codes::Currency::delete_currency(CODE [,CODESET])>,
+B<Locale::Codes::Currency::add_currency_alias(NAME ,NEW_NAME)>,
+B<Locale::Codes::Currency::delete_currency_alias(NAME)>,
+B<Locale::Codes::Currency::rename_currency_code(CODE ,NEW_CODE
+[,CODESET])>, B<Locale::Codes::Currency::add_currency_code_alias(CODE
+,NEW_CODE [,CODESET])>,
+B<Locale::Codes::Currency::delete_currency_code_alias( ODE [,CODESET])>
+
+=item SEE ALSO
+
+L<Locale::Codes>, L<Locale::Codes::API>,
+L<http://www.iso.org/iso/support/currency_codes_list-1.htm>
+
+=item AUTHOR
+
+=item COPYRIGHT
+
+=back
+
+=head2 Locale::Codes::LangExt - standard codes for language extension
+identification
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item SUPPORTED CODE SETS
+
+B<alpha>
+
+=item ROUTINES
+
+B<code2langext(CODE [,CODESET] [,'retired'])>, B<langext2code(NAME
+[,CODESET] [,'retired'])>, B<langext_code2code(CODE ,CODESET ,CODESET2)>,
+B<all_langext_codes([CODESET] [,'retired'])>, B<all_langext_names([CODESET]
+[,'retired'])>, B<Locale::Codes::LangExt::rename_langext(CODE ,NEW_NAME
+[,CODESET])>, B<Locale::Codes::LangExt::add_langext(CODE ,NAME
+[,CODESET])>, B<Locale::Codes::LangExt::delete_langext(CODE [,CODESET])>,
+B<Locale::Codes::LangExt::add_langext_alias(NAME ,NEW_NAME)>,
+B<Locale::Codes::LangExt::delete_langext_alias(NAME)>,
+B<Locale::Codes::LangExt::rename_langext_code(CODE ,NEW_CODE [,CODESET])>,
+B<Locale::Codes::LangExt::add_langext_code_alias(CODE ,NEW_CODE
+[,CODESET])>, B<Locale::Codes::LangExt::delete_langext_code_alias(CODE
+[,CODESET])>
+
+=item SEE ALSO
+
+L<Locale::Codes>, L<Locale::Codes::API>,
+L<http://www.iana.org/assignments/language-subtag-registry>
+
+=item AUTHOR
+
+=item COPYRIGHT
+
+=back
+
+=head2 Locale::Codes::LangFam - standard codes for language extension
+identification
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item SUPPORTED CODE SETS
+
+B<alpha>
+
+=item ROUTINES
+
+B<code2langfam(CODE [,CODESET] [,'retired'])>, B<langfam2code(NAME
+[,CODESET] [,'retired'])>, B<langfam_code2code(CODE ,CODESET ,CODESET2)>,
+B<all_langfam_codes([CODESET] [,'retired'])>, B<all_langfam_names([CODESET]
+[,'retired'])>, B<Locale::Codes::LangFam::rename_langfam(CODE ,NEW_NAME
+[,CODESET])>, B<Locale::Codes::LangFam::add_langfam(CODE ,NAME
+[,CODESET])>, B<Locale::Codes::LangFam::delete_langfam(CODE [,CODESET])>,
+B<Locale::Codes::LangFam::add_langfam_alias(NAME ,NEW_NAME)>,
+B<Locale::Codes::LangFam::delete_langfam_alias(NAME)>,
+B<Locale::Codes::LangFam::rename_langfam_code(CODE ,NEW_CODE [,CODESET])>,
+B<Locale::Codes::LangFam::add_langfam_code_alias(CODE ,NEW_CODE
+[,CODESET])>, B<Locale::Codes::LangFam::delete_langfam_code_alias(CODE
+[,CODESET])>
+
+=item SEE ALSO
+
+L<Locale::Codes>, L<Locale::Codes::API>,
+L<http://www.loc.gov/standards/iso639-5/id.php>
+
+=item AUTHOR
+
+=item COPYRIGHT
+
+=back
+
+=head2 Locale::Codes::LangVar - standard codes for language variation
+identification
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item SUPPORTED CODE SETS
+
+B<alpha>
+
+=item ROUTINES
+
+B<code2langvar(CODE [,CODESET] [,'retired'])>, B<langvar2code(NAME
+[,CODESET] [,'retired'])>, B<langvar_code2code(CODE ,CODESET ,CODESET2)>,
+B<all_langvar_codes([CODESET] [,'retired'])>, B<all_langvar_names([CODESET]
+[,'retired'])>, B<Locale::Codes::LangVar::rename_langvar(CODE ,NEW_NAME
+[,CODESET])>, B<Locale::Codes::LangVar::add_langvar(CODE ,NAME
+[,CODESET])>, B<Locale::Codes::LangVar::delete_langvar(CODE [,CODESET])>,
+B<Locale::Codes::LangVar::add_langvar_alias(NAME ,NEW_NAME)>,
+B<Locale::Codes::LangVar::delete_langvar_alias(NAME)>,
+B<Locale::Codes::LangVar::rename_langvar_code(CODE ,NEW_CODE [,CODESET])>,
+B<Locale::Codes::LangVar::add_langvar_code_alias(CODE ,NEW_CODE
+[,CODESET])>, B<Locale::Codes::LangVar::delete_langvar_code_alias(CODE
+[,CODESET])>
+
+=item SEE ALSO
+
+L<Locale::Codes>, L<Locale::Codes::API>,
+L<http://www.iana.org/assignments/language-subtag-registry>
+
+=item AUTHOR
+
+=item COPYRIGHT
+
+=back
+
+=head2 Locale::Codes::Language - standard codes for language identification
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item SUPPORTED CODE SETS
+
+B<alpha-2, LOCALE_LANG_ALPHA_2>, B<alpha-3, LOCALE_LANG_ALPHA_3>, B<term,
+LOCALE_LANG_TERM>
+
+=item ROUTINES
+
+B<code2language(CODE [,CODESET] [,'retired'])>, B<language2code(NAME
+[,CODESET] [,'retired'])>, B<language_code2code(CODE ,CODESET ,CODESET2)>,
+B<all_language_codes([CODESET] [,'retired'])>,
+B<all_language_names([CODESET] [,'retired'])>,
+B<Locale::Codes::Language::rename_language(CODE ,NEW_NAME [,CODESET])>,
+B<Locale::Codes::Language::add_language(CODE ,NAME [,CODESET])>,
+B<Locale::Codes::Language::delete_language(CODE [,CODESET])>,
+B<Locale::Codes::Language::add_language_alias(NAME ,NEW_NAME)>,
+B<Locale::Codes::Language::delete_language_alias(NAME)>,
+B<Locale::Codes::Language::rename_language_code(CODE ,NEW_CODE
+[,CODESET])>, B<Locale::Codes::Language::add_language_code_alias(CODE
+,NEW_CODE [,CODESET])>,
+B<Locale::Codes::Language::delete_language_code_alias(CODE [,CODESET])>
+
+=item SEE ALSO
+
+L<Locale::Codes>, L<Locale::Codes::API>,
+L<http://www.loc.gov/standards/iso639-2/>,
+L<http://www.loc.gov/standards/iso639-5/>,
+L<http://www.iana.org/assignments/language-subtag-registry>
+
+=item AUTHOR
+
+=item COPYRIGHT
+
+=back
+
+=head2 Locale::Codes::Script - standard codes for script identification
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item SUPPORTED CODE SETS
+
+B<alpha, LOCALE_SCRIPT_ALPHA>, B<num, LOCALE_SCRIPT_NUMERIC>
+
+=item ROUTINES
+
+B<code2script(CODE [,CODESET] [,'retired'])>, B<script2code(NAME [,CODESET]
+[,'retired'])>, B<script_code2code(CODE ,CODESET ,CODESET2)>,
+B<all_script_codes([CODESET] [,'retired'])>, B<all_script_names([CODESET]
+[,'retired'])>, B<Locale::Codes::Script::rename_script(CODE ,NEW_NAME
+[,CODESET])>, B<Locale::Codes::Script::add_script(CODE ,NAME [,CODESET])>,
+B<Locale::Codes::Script::delete_script(CODE [,CODESET])>,
+B<Locale::Codes::Script::add_script_alias(NAME ,NEW_NAME)>,
+B<Locale::Codes::Script::delete_script_alias(NAME)>,
+B<Locale::Codes::Script::rename_script_code(CODE ,NEW_CODE [,CODESET])>,
+B<Locale::Codes::Script::add_script_code_alias(CODE ,NEW_CODE [,CODESET])>,
+B<Locale::Codes::Script::delete_script_code_alias(CODE [,CODESET])>
+
+=item SEE ALSO
+
+L<Locale::Codes>, L<Locale::Codes::API>,
+L<http://www.unicode.org/iso15924/>,
+L<http://www.iana.org/assignments/language-subtag-registry>
+
+=item AUTHOR
+
+=item COPYRIGHT
+
+=back
+
+=head2 Locale::Country - standard codes for country identification
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item SUPPORTED CODE SETS
+
+B<alpha-2, LOCALE_CODE_ALPHA_2>, B<alpha-3, LOCALE_CODE_ALPHA_3>,
+B<numeric, LOCALE_CODE_NUMERIC>, B<dom, LOCALE_CODE_DOM>
+
+=item ROUTINES
+
+B<code2country(CODE [,CODESET] [,'retired'])>, B<country2code(NAME
+[,CODESET] [,'retired'])>, B<country_code2code(CODE ,CODESET ,CODESET2)>,
+B<all_country_codes([CODESET] [,'retired'])>, B<all_country_names([CODESET]
+[,'retired'])>, B<Locale::Country::rename_country(CODE ,NEW_NAME
+[,CODESET])>, B<Locale::Country::add_country(CODE ,NAME [,CODESET])>,
+B<Locale::Country::delete_country(CODE [,CODESET])>,
+B<Locale::Country::add_country_alias(NAME ,NEW_NAME)>,
+B<Locale::Country::delete_country_alias(NAME)>,
+B<Locale::Country::rename_country_code(CODE ,NEW_CODE [,CODESET])>,
+B<Locale::Country::add_country_code_alias(CODE ,NEW_CODE [,CODESET])>,
+B<Locale::Country::delete_country_code_alias(CODE [,CODESET])>
+
+=item SEE ALSO
+
+L<Locale::Codes>, L<Locale::Codes::API>, L<Locale::SubCountry>,
+L<http://www.iso.org/iso/home/standards/country_codes.htm>,
+L<http://www.iso.org/iso/home/standards/country_codes/iso-3166-1_decoding_t
+able.htm>, L<http://www.iana.org/domains/root/db/>,
+L<http://unstats.un.org/unsd/methods/m49/m49alpha.htm>,
+L<https://www.cia.gov/library/publications/the-world-factbook/appendix/prin
+t_appendix-d.html>, L<http://www.statoids.com/wab.html>
+
+=item AUTHOR
+
+=item COPYRIGHT
+
+=back
+
+=head2 Locale::Currency - standard codes for currency identification
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item SUPPORTED CODE SETS
+
+B<alpha, LOCALE_CURR_ALPHA>, B<num, LOCALE_CURR_NUMERIC>
+
+=item ROUTINES
+
+B<code2currency(CODE [,CODESET] [,'retired'])>, B<currency2code(NAME
+[,CODESET] [,'retired'])>, B<currency_code2code(CODE ,CODESET ,CODESET2)>,
+B<all_currency_codes([CODESET] [,'retired'])>,
+B<all_currency_names([CODESET] [,'retired'])>,
+B<Locale::Currency::rename_currency(CODE ,NEW_NAME [,CODESET])>,
+B<Locale::Currency::add_currency(CODE ,NAME [,CODESET])>,
+B<Locale::Currency::delete_currency(CODE [,CODESET])>,
+B<Locale::Currency::add_currency_alias(NAME ,NEW_NAME)>,
+B<Locale::Currency::delete_currency_alias(NAME)>,
+B<Locale::Currency::rename_currency_code(CODE ,NEW_CODE [,CODESET])>,
+B<Locale::Currency::add_currency_code_alias(CODE ,NEW_CODE [,CODESET])>,
+B<Locale::Currency::delete_currency_code_alias( ODE [,CODESET])>
+
+=item SEE ALSO
+
+L<Locale::Codes>, L<Locale::Codes::API>,
+L<http://www.iso.org/iso/support/currency_codes_list-1.htm>
+
+=item AUTHOR
+
+=item COPYRIGHT
+
+=back
+
+=head2 Locale::Language - standard codes for language identification
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item SUPPORTED CODE SETS
+
+B<alpha-2, LOCALE_LANG_ALPHA_2>, B<alpha-3, LOCALE_LANG_ALPHA_3>, B<term,
+LOCALE_LANG_TERM>
+
+=item ROUTINES
+
+B<code2language(CODE [,CODESET] [,'retired'])>, B<language2code(NAME
+[,CODESET] [,'retired'])>, B<language_code2code(CODE ,CODESET ,CODESET2)>,
+B<all_language_codes([CODESET] [,'retired'])>,
+B<all_language_names([CODESET] [,'retired'])>,
+B<Locale::Language::rename_language(CODE ,NEW_NAME [,CODESET])>,
+B<Locale::Language::add_language(CODE ,NAME [,CODESET])>,
+B<Locale::Language::delete_language(CODE [,CODESET])>,
+B<Locale::Language::add_language_alias(NAME ,NEW_NAME)>,
+B<Locale::Language::delete_language_alias(NAME)>,
+B<Locale::Language::rename_language_code(CODE ,NEW_CODE [,CODESET])>,
+B<Locale::Language::add_language_code_alias(CODE ,NEW_CODE [,CODESET])>,
+B<Locale::Language::delete_language_code_alias(CODE [,CODESET])>
+
+=item SEE ALSO
+
+L<Locale::Codes>, L<Locale::Codes::API>,
+L<http://www.loc.gov/standards/iso639-2/>,
+L<http://www.loc.gov/standards/iso639-5/>,
+L<http://www.iana.org/assignments/language-subtag-registry>
+
+=item AUTHOR
+
+=item COPYRIGHT
+
+=back
+
+=head2 Locale::Maketext - framework for localization
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item QUICK OVERVIEW
+
+=item METHODS
+
+=over 4
+
+=item Construction Methods
+
+=item The "maketext" Method
+
+$lh->fail_with I<or> $lh->fail_with(I<PARAM>), $lh->failure_handler_auto
+
+=item Utility Methods
+
+$language->quant($number, $singular), $language->quant($number, $singular,
+$plural), $language->quant($number, $singular, $plural, $negative),
+$language->numf($number), $language->numerate($number, $singular, $plural,
+$negative), $language->sprintf($format, @items), $language->language_tag(),
+$language->encoding()
+
+=item Language Handle Attributes and Internals
+
+=back
+
+=item LANGUAGE CLASS HIERARCHIES
+
+=item ENTRIES IN EACH LEXICON
+
+=item BRACKET NOTATION
+
+=item AUTO LEXICONS
+
+=item READONLY LEXICONS
+
+=item CONTROLLING LOOKUP FAILURE
+
+=item HOW TO USE MAKETEXT
+
+=item SEE ALSO
+
+=item COPYRIGHT AND DISCLAIMER
+
+=item AUTHOR
+
+=back
+
+=head2 Locale::Maketext::Cookbook - recipes for using Locale::Maketext
+
+=over 4
+
+=item INTRODUCTION
+
+=item ONESIDED LEXICONS
+
+=item DECIMAL PLACES IN NUMBER FORMATTING
+
+=back
+
+=head2 Locale::Maketext::Guts - Deprecated module to load Locale::Maketext
+utf8 code
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=back
+
+=head2 Locale::Maketext::GutsLoader - Deprecated module to load
+Locale::Maketext utf8 code
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=back
+
+=head2 Locale::Maketext::Simple - Simple interface to
+Locale::Maketext::Lexicon
+
+=over 4
+
+=item VERSION
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item OPTIONS
+
+=over 4
+
+=item Class
+
+=item Path
+
+=item Style
+
+=item Export
+
+=item Subclass
+
+=item Decode
+
+=item Encoding
+
+=back
+
+=back
+
+=over 4
+
+=item ACKNOWLEDGMENTS
+
+=item SEE ALSO
+
+=item AUTHORS
+
+=item COPYRIGHT
+
+=over 4
+
+=item The "MIT" License
+
+=back
+
+=back
+
+=head2 Locale::Maketext::TPJ13 -- article about software localization
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item Localization and Perl: gettext breaks, Maketext fixes
+
+=over 4
+
+=item A Localization Horror Story: It Could Happen To You
+
+=item The Linguistic View
+
+=item Breaking gettext
+
+=item Replacing gettext
+
+=item Buzzwords: Abstraction and Encapsulation
+
+=item Buzzword: Isomorphism
+
+=item Buzzword: Inheritance
+
+=item Buzzword: Concision
+
+=item The Devil in the Details
+
+=item The Proof in the Pudding: Localizing Web Sites
+
+=item References
+
+=back
+
+=back
+
+=head2 Locale::Script - standard codes for script identification
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item SUPPORTED CODE SETS
+
+B<alpha, LOCALE_SCRIPT_ALPHA>, B<num, LOCALE_SCRIPT_NUMERIC>
+
+=item ROUTINES
+
+B<code2script(CODE [,CODESET] [,'retired'])>, B<script2code(NAME [,CODESET]
+[,'retired'])>, B<script_code2code(CODE ,CODESET ,CODESET2)>,
+B<all_script_codes([CODESET] [,'retired'])>, B<all_script_names([CODESET]
+[,'retired'])>, B<Locale::Script::rename_script(CODE ,NEW_NAME
+[,CODESET])>, B<Locale::Script::add_script(CODE ,NAME [,CODESET])>,
+B<Locale::Script::delete_script(CODE [,CODESET])>,
+B<Locale::Script::add_script_alias(NAME ,NEW_NAME)>,
+B<Locale::Script::delete_script_alias(NAME)>,
+B<Locale::Script::rename_script_code(CODE ,NEW_CODE [,CODESET])>,
+B<Locale::Script::add_script_code_alias(CODE ,NEW_CODE [,CODESET])>,
+B<Locale::Script::delete_script_code_alias(CODE [,CODESET])>
+
+=item SEE ALSO
+
+L<Locale::Codes>, L<Locale::Codes::API>,
+L<http://www.unicode.org/iso15924/>,
+L<http://www.iana.org/assignments/language-subtag-registry>
+
+=item AUTHOR
+
+=item COPYRIGHT
+
+=back
+
+=head2 MIME::Base64 - Encoding and decoding of base64 strings
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+encode_base64( $bytes ), encode_base64( $bytes, $eol );, decode_base64(
+$str ), encode_base64url( $bytes ), decode_base64url( $str ),
+encoded_base64_length( $bytes ), encoded_base64_length( $bytes, $eol ),
+decoded_base64_length( $str )
+
+=item EXAMPLES
+
+=item COPYRIGHT
+
+=item SEE ALSO
+
+=back
+
+=head2 MIME::QuotedPrint - Encoding and decoding of quoted-printable
+strings
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+encode_qp( $str), encode_qp( $str, $eol), encode_qp( $str, $eol, $binmode
+), decode_qp( $str )
+
+=item COPYRIGHT
+
+=item SEE ALSO
+
+=back
+
+=head2 Math::BigFloat - Arbitrary size floating point math package
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item Input
+
+=item Output
+
+=item mantissa(), exponent() and parts()
+
+=item Accuracy vs. Precision
+
+=item Rounding
+
+bfround ( +$scale ), bfround ( -$scale ), bfround ( 0 ), bround  ( +$scale
+), bround  ( -$scale ) and bround ( 0 )
+
+=back
+
+=item METHODS
+
+accuracy(), precision(), bdiv(), bmod(), bexp(), bnok(), bpi(), bcos(),
+bsin(), batan2(), batan(), bmuladd(), as_float(), from_hex(), from_bin(),
+from_oct()
+
+=item Autocreating constants
+
+=over 4
+
+=item Math library
+
+=item Using Math::BigInt::Lite
+
+=back
+
+=item EXPORTS
+
+=item CAVEATS
+
+stringify, bstr(), bdiv(), brsft(), Modifying and =, bpow(), precision()
+vs. accuracy()
+
+=item BUGS
+
+=item SUPPORT
+
+RT: CPAN's request tracker, AnnoCPAN: Annotated CPAN documentation, CPAN
+Ratings, Search CPAN, CPAN Testers Matrix, The Bignum mailing list, Post to
+mailing list, View mailing list, Subscribe/Unsubscribe
+
+=item LICENSE
+
+=item SEE ALSO
+
+=item AUTHORS
+
+=back
+
+=head2 Math::BigInt - Arbitrary size integer/float math package
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item Input
+
+=item Output
+
+=back
+
+=item METHODS
+
+config(), accuracy(), precision(), brsft(), new(), from_oct(), from_hex(),
+from_bin(), bnan(), bzero(), binf(), bone(),
+is_one()/is_zero()/is_nan()/is_inf(),
+is_pos()/is_neg()/is_positive()/is_negative(), is_odd()/is_even()/is_int(),
+bcmp(), bacmp(), sign(), digit(), bneg(), babs(), bsgn(), bnorm(), bnot(),
+binc(), bdec(), badd(), bsub(), bmul(), bmuladd(), bdiv(), bmod(),
+bmodinv(), bmodpow(), bpow(), blog(), bexp(), bnok(), bpi(), bcos(),
+bsin(), batan2(), batan(), blsft(), brsft(), band(), bior(), bxor(),
+bnot(), bsqrt(), broot(), bfac(), round(), bround(), bfround(), bfloor(),
+bceil(), bint(), bgcd(), blcm(), length(), exponent(), mantissa(), parts(),
+copy(), as_int(), as_number(), bstr(), bsstr(), as_hex(), as_bin(),
+as_oct(), numify(), modify(), upgrade()/downgrade(), div_scale(),
+round_mode()
+
+=item ACCURACY and PRECISION
+
+=over 4
+
+=item Precision P
+
+=item Accuracy A
+
+=item Fallback F
+
+=item Rounding mode R
+
+'trunc', 'even', 'odd', '+inf', '-inf', 'zero', 'common', Precision,
+Accuracy (significant digits), Setting/Accessing, Creating numbers, Usage,
+Precedence, Overriding globals, Local settings, Rounding, Default values,
+Remarks
+
+=back
+
+=item Infinity and Not a Number
+
+oct()/hex(), log(-inf), exp(), cos(), sin(), atan2()
+
+=item INTERNALS
+
+=over 4
+
+=item MATH LIBRARY
+
+=item SIGN
+
+=item mantissa(), exponent() and parts()
+
+=back
+
+=item EXAMPLES
+
+=item Autocreating constants
+
+=item PERFORMANCE
+
+=over 4
+
+=item Alternative math libraries
+
+=back
+
+=item SUBCLASSING
+
+=over 4
+
+=item Subclassing Math::BigInt
+
+=back
+
+=item UPGRADING
+
+=over 4
+
+=item Auto-upgrade
+
+bsqrt(), div(), blog(), bexp(), bpi(), bcos(), bsin(), batan2(), batan()
+
+=back
+
+=item EXPORTS
+
+=item CAVEATS
+
+bstr(), bsstr() and 'cmp', int(), length(), bdiv(), infinity handling,
+Modifying and =, bpow, Overloading -$x, Mixing different object types,
+bsqrt(), brsft()
+
+=item BUGS
+
+=item SUPPORT
+
+RT: CPAN's request tracker, AnnoCPAN: Annotated CPAN documentation, CPAN
+Ratings, Search CPAN, CPAN Testers Matrix, The Bignum mailing list, Post to
+mailing list, View mailing list, Subscribe/Unsubscribe
+
+=item LICENSE
+
+=item SEE ALSO
+
+=item AUTHORS
+
+=back
+
+=head2 Math::BigInt::Calc - Pure Perl module to support Math::BigInt
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item THE Math::BigInt API
+
+=over 4
+
+=item General Notes
+
+=item API version 1
+
+I<api_version()>, I<_new(STR)>, I<_zero()>, I<_one()>, I<_two()>,
+I<_ten()>, I<_from_bin(STR)>, I<_from_oct(STR)>, I<_from_hex(STR)>,
+I<_add(OBJ1, OBJ2)>, I<_mul(OBJ1, OBJ2)>, I<_div(OBJ1, OBJ2)>, I<_sub(OBJ1,
+OBJ2, FLAG)>, I<_sub(OBJ1, OBJ2)>, I<_dec(OBJ)>, I<_inc(OBJ)>, I<_mod(OBJ1,
+OBJ2)>, I<_sqrt(OBJ)>, I<_root(OBJ, N)>, I<_fac(OBJ)>, I<_pow(OBJ1, OBJ2)>,
+I<_modinv(OBJ1, OBJ2)>, I<_modpow(OBJ1, OBJ2, OBJ3)>, I<_rsft(OBJ, N, B)>,
+I<_lsft(OBJ, N, B)>, I<_log_int(OBJ, B)>, I<_gcd(OBJ1, OBJ2)>, I<_and(OBJ1,
+OBJ2)>, I<_or(OBJ1, OBJ2)>, I<_xor(OBJ1, OBJ2)>, I<_is_zero(OBJ)>,
+I<_is_one(OBJ)>, I<_is_two(OBJ)>, I<_is_ten(OBJ)>, I<_is_even(OBJ)>,
+I<_is_odd(OBJ)>, I<_acmp(OBJ1, OBJ2)>, I<_str(OBJ)>, I<_as_bin(OBJ)>,
+I<_as_oct(OBJ)>, I<_as_hex(OBJ)>, I<_num(OBJ)>, I<_copy(OBJ)>,
+I<_len(OBJ)>, I<_zeros(OBJ)>, I<_digit(OBJ, N)>, I<_check(OBJ)>
+
+=item API version 2
+
+I<_1ex(N)>, I<_nok(OBJ1, OBJ2)>, I<_alen(OBJ)>
+
+=item API optional methods
+
+I<_signed_or(OBJ1, OBJ2, SIGN1, SIGN2)>, I<_signed_and(OBJ1, OBJ2, SIGN1,
+SIGN2)>, I<_signed_xor(OBJ1, OBJ2, SIGN1, SIGN2)>
+
+=back
+
+=item WRAP YOUR OWN
+
+=item BUGS
+
+=item SUPPORT
+
+RT: CPAN's request tracker, AnnoCPAN: Annotated CPAN documentation, CPAN
+Ratings, Search CPAN, CPAN Testers Matrix, The Bignum mailing list, Post to
+mailing list, View mailing list, Subscribe/Unsubscribe
+
+=item LICENSE
+
+=item AUTHORS
+
+=item SEE ALSO
+
+=back
+
+=head2 Math::BigInt::CalcEmu - Emulate low-level math with BigInt code
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item METHODS
+
+__emu_bxor, __emu_band, __emu_bior
+
+=item BUGS
+
+=item SUPPORT
+
+RT: CPAN's request tracker, AnnoCPAN: Annotated CPAN documentation, CPAN
+Ratings, Search CPAN, CPAN Testers Matrix, The Bignum mailing list, Post to
+mailing list, View mailing list, Subscribe/Unsubscribe
+
+=item LICENSE
+
+=item AUTHORS
+
+=item SEE ALSO
+
+=back
+
+=head2 Math::BigInt::FastCalc - Math::BigInt::Calc with some XS for more
+speed
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item STORAGE
+
+=item METHODS
+
+=item BUGS
+
+=item SUPPORT
+
+RT: CPAN's request tracker, AnnoCPAN: Annotated CPAN documentation, CPAN
+Ratings, Search CPAN, CPAN Testers Matrix, The Bignum mailing list, Post to
+mailing list, View mailing list, Subscribe/Unsubscribe
+
+=item LICENSE
+
+=item AUTHORS
+
+=item SEE ALSO
+
+=back
+
+=head2 Math::BigRat - Arbitrary big rational numbers
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item MATH LIBRARY
+
+=back
+
+=item METHODS
+
+=over 4
+
+=item new()
+
+=item numerator()
+
+=item denominator()
+
+=item parts()
+
+=item numify()
+
+=item as_int()/as_number()
+
+=item as_float()
+
+=item as_hex()
+
+=item as_bin()
+
+=item as_oct()
+
+=item from_hex()/from_bin()/from_oct()
+
+=item length()
+
+=item digit()
+
+=item bnorm()
+
+=item bfac()
+
+=item bround()/round()/bfround()
+
+=item bmod()
+
+=item bneg()
+
+=item is_one()
+
+=item is_zero()
+
+=item is_pos()/is_positive()
+
+=item is_neg()/is_negative()
+
+=item is_int()
+
+=item is_odd()
+
+=item is_even()
+
+=item bceil()
+
+=item bfloor()
+
+=item bsqrt()
+
+=item broot()
+
+=item badd()
+
+=item bmul()
+
+=item bsub()
+
+=item bdiv()
+
+=item bdec()
+
+=item binc()
+
+=item copy()
+
+=item bstr()/bsstr()
+
+=item bacmp()/bcmp()
+
+=item blsft()/brsft()
+
+=item bpow()
+
+=item bexp()
+
+=item bnok()
+
+=item config()
+
+=item objectify()
+
+=back
+
+=item BUGS
+
+=item SUPPORT
+
+RT: CPAN's request tracker, AnnoCPAN: Annotated CPAN documentation, CPAN
+Ratings, Search CPAN, CPAN Testers Matrix, The Bignum mailing list, Post to
+mailing list, View mailing list, Subscribe/Unsubscribe
+
+=item LICENSE
+
+=item SEE ALSO
+
+=item AUTHORS
+
+=back
+
+=head2 Math::Complex - complex numbers and associated mathematical
+functions
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item OPERATIONS
+
+=item CREATION
+
+=item DISPLAYING
+
+=over 4
+
+=item CHANGED IN PERL 5.6
+
+=back
+
+=item USAGE
+
+=item CONSTANTS
+
+=over 4
+
+=item PI
+
+=item Inf
+
+=back
+
+=item ERRORS DUE TO DIVISION BY ZERO OR LOGARITHM OF ZERO
+
+=item ERRORS DUE TO INDIGESTIBLE ARGUMENTS
+
+=item BUGS
+
+=item SEE ALSO
+
+=item AUTHORS
+
+=item LICENSE
+
+=back
+
+=head2 Math::Trig - trigonometric functions
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item TRIGONOMETRIC FUNCTIONS
+
+B<tan>
+
+=over 4
+
+=item ERRORS DUE TO DIVISION BY ZERO
+
+=item SIMPLE (REAL) ARGUMENTS, COMPLEX RESULTS
+
+=back
+
+=item PLANE ANGLE CONVERSIONS
+
+deg2rad, grad2rad, rad2deg, grad2deg, deg2grad, rad2grad, rad2rad, deg2deg,
+grad2grad
+
+=item RADIAL COORDINATE CONVERSIONS
+
+=over 4
+
+=item COORDINATE SYSTEMS
+
+=item 3-D ANGLE CONVERSIONS
+
+cartesian_to_cylindrical, cartesian_to_spherical, cylindrical_to_cartesian,
+cylindrical_to_spherical, spherical_to_cartesian, spherical_to_cylindrical
+
+=back
+
+=item GREAT CIRCLE DISTANCES AND DIRECTIONS
+
+=over 4
+
+=item great_circle_distance
+
+=item great_circle_direction
+
+=item great_circle_bearing
+
+=item great_circle_destination
+
+=item great_circle_midpoint
+
+=item great_circle_waypoint
+
+=back
+
+=item EXAMPLES
+
+=over 4
+
+=item CAVEAT FOR GREAT CIRCLE FORMULAS
+
+=item Real-valued asin and acos
+
+asin_real, acos_real
+
+=back
+
+=item BUGS
+
+=item AUTHORS
+
+=item LICENSE
+
+=back
+
+=head2 Memoize - Make functions faster by trading space for time
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item DETAILS
+
+=item OPTIONS
+
+=over 4
+
+=item INSTALL
+
+=item NORMALIZER
+
+=item C<SCALAR_CACHE>, C<LIST_CACHE>
+
+C<MEMORY>, C<HASH>, C<TIE>, C<FAULT>, C<MERGE>
+
+=back
+
+=item OTHER FACILITIES
+
+=over 4
+
+=item C<unmemoize>
+
+=item C<flush_cache>
+
+=back
+
+=item CAVEATS
+
+=item PERSISTENT CACHE SUPPORT
+
+=item EXPIRATION SUPPORT
+
+=item BUGS
+
+=item MAILING LIST
+
+=item AUTHOR
+
+=item COPYRIGHT AND LICENSE
+
+=item THANK YOU
+
+=back
+
+=head2 Memoize::AnyDBM_File - glue to provide EXISTS for AnyDBM_File for
+Storable use
+
+=over 4
+
+=item DESCRIPTION
+
+=back
+
+=head2 Memoize::Expire - Plug-in module for automatic expiration of
+memoized values
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item INTERFACE
+
+ TIEHASH,  EXISTS,  STORE
+
+=item ALTERNATIVES
+
+=item CAVEATS
+
+=item AUTHOR
+
+=item SEE ALSO
+
+=back
+
+=head2 Memoize::ExpireFile - test for Memoize expiration semantics
+
+=over 4
+
+=item DESCRIPTION
+
+=back
+
+=head2 Memoize::ExpireTest - test for Memoize expiration semantics
+
+=over 4
+
+=item DESCRIPTION
+
+=back
+
+=head2 Memoize::NDBM_File - glue to provide EXISTS for NDBM_File for
+Storable use
+
+=over 4
+
+=item DESCRIPTION
+
+=back
+
+=head2 Memoize::SDBM_File - glue to provide EXISTS for SDBM_File for
+Storable use
+
+=over 4
+
+=item DESCRIPTION
+
+=back
+
+=head2 Memoize::Storable - store Memoized data in Storable database
+
+=over 4
+
+=item DESCRIPTION
+
+=back
+
+=head2 Module::CoreList - what modules shipped with versions of perl
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item FUNCTIONS API
+
+C<first_release( MODULE )>, C<first_release_by_date( MODULE )>,
+C<find_modules( REGEX, [ LIST OF PERLS ] )>, C<find_version( PERL_VERSION
+)>, C<is_core( MODULE, [ MODULE_VERSION, [ PERL_VERSION ] ] )>,
+C<is_deprecated( MODULE, PERL_VERSION )>, C<deprecated_in( MODULE )>,
+C<removed_from( MODULE )>, C<removed_from_by_date( MODULE )>,
+C<changes_between( PERL_VERSION, PERL_VERSION )>
+
+=item DATA STRUCTURES
+
+C<%Module::CoreList::version>, C<%Module::CoreList::delta>,
+C<%Module::CoreList::released>, C<%Module::CoreList::families>,
+C<%Module::CoreList::deprecated>, C<%Module::CoreList::upstream>,
+C<%Module::CoreList::bug_tracker>
+
+=item CAVEATS
+
+=item HISTORY
+
+=item AUTHOR
+
+=item LICENSE
+
+=item SEE ALSO
+
+=back
+
+=head2 Module::CoreList::Utils - what utilities shipped with versions of
+perl
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item FUNCTIONS API
+
+C<utilities>, C<first_release( UTILITY )>, C<first_release_by_date( UTILITY
+)>, C<removed_from( UTILITY )>, C<removed_from_by_date( UTILITY )>
+
+=item DATA STRUCTURES
+
+C<%Module::CoreList::Utils::utilities>
+
+=item AUTHOR
+
+=item LICENSE
+
+=item SEE ALSO
+
+=back
+
+=head2 Module::Load - runtime require of both modules and files
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item Difference between C<load> and C<autoload>
+
+=back
+
+=item FUNCTIONS
+
+load, autoload, load_remote, autoload_remote
+
+=item Rules
+
+=item IMPORTS THE FUNCTIONS
+
+"load","autoload","load_remote","autoload_remote", 'all', '','none',undef
+
+=item Caveats
+
+=item ACKNOWLEDGEMENTS
+
+=item BUG REPORTS
+
+=item AUTHOR
+
+=item COPYRIGHT
+
+=back
+
+=head2 Module::Load::Conditional - Looking up module information / loading
+at runtime
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item Methods
+
+=over 4
+
+=item $href = check_install( module => NAME [, version => VERSION, verbose
+=> BOOL ] );
+
+module, version, verbose, file, dir, version, uptodate
+
+=back
+
+=back
+
+=over 4
+
+=item $bool = can_load( modules => { NAME => VERSION [,NAME => VERSION] },
+[verbose => BOOL, nocache => BOOL, autoload => BOOL] )
+
+modules, verbose, nocache, autoload
+
+=back
+
+=over 4
+
+=item @list = requires( MODULE );
+
+=back
+
+=over 4
+
+=item Global Variables
+
+=over 4
+
+=item $Module::Load::Conditional::VERBOSE
+
+=item $Module::Load::Conditional::FIND_VERSION
+
+=item $Module::Load::Conditional::CHECK_INC_HASH
+
+=item $Module::Load::Conditional::CACHE
+
+=item $Module::Load::Conditional::ERROR
+
+=item $Module::Load::Conditional::DEPRECATED
+
+=back
+
+=item See Also
+
+=item BUG REPORTS
+
+=item AUTHOR
+
+=item COPYRIGHT
+
+=back
+
+=head2 Module::Loaded - mark modules as loaded or unloaded
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item FUNCTIONS
+
+=over 4
+
+=item $bool = mark_as_loaded( PACKAGE );
+
+=back
+
+=back
+
+=over 4
+
+=item $bool = mark_as_unloaded( PACKAGE );
+
+=back
+
+=over 4
+
+=item $loc = is_loaded( PACKAGE );
+
+=back
+
+=over 4
+
+=item BUG REPORTS
+
+=item AUTHOR
+
+=item COPYRIGHT
+
+=back
+
+=head2 Module::Metadata - Gather package and POD information from perl
+module files
+
+=over 4
+
+=item VERSION
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item CLASS METHODS
+
+=over 4
+
+=item C<< new_from_file($filename, collect_pod => 1) >>
+
+=item C<< new_from_handle($handle, $filename, collect_pod => 1) >>
+
+=item C<< new_from_module($module, collect_pod => 1, inc => \@dirs) >>
+
+=item C<< find_module_by_name($module, \@dirs) >>
+
+=item C<< find_module_dir_by_name($module, \@dirs) >>
+
+=item C<< provides( %options ) >>
+
+version B<(required)>, dir, files, prefix
+
+=item C<< package_versions_from_directory($dir, \@files?) >>
+
+=item C<< log_info (internal) >>
+
+=back
+
+=item OBJECT METHODS
+
+=over 4
+
+=item C<< name() >>
+
+=item C<< version($package) >>
+
+=item C<< filename() >>
+
+=item C<< packages_inside() >>
+
+=item C<< pod_inside() >>
+
+=item C<< contains_pod() >>
+
+=item C<< pod($section) >>
+
+=item C<< is_indexable($package) >> or C<< is_indexable() >>
+
+=back
+
+=item SUPPORT
+
+=item AUTHOR
+
+=item CONTRIBUTORS
+
+=item COPYRIGHT & LICENSE
+
+=back
+
+=head2 NEXT - Provide a pseudo-class NEXT (et al) that allows method
+redispatch
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item Enforcing redispatch
+
+=item Avoiding repetitions
+
+=item Invoking all versions of a method with a single call
+
+=item Using C<EVERY> methods
+
+=back
+
+=item AUTHOR
+
+=item BUGS AND IRRITATIONS
+
+=item COPYRIGHT
+
+=back
+
+=head2 Net::Cmd - Network Command class (as used by FTP, SMTP etc)
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item USER METHODS
+
+debug ( VALUE ), message (), code (), ok (), status (), datasend ( DATA ),
+dataend ()
+
+=item CLASS METHODS
+
+debug_print ( DIR, TEXT ), debug_text ( DIR, TEXT ), command ( CMD [, ARGS,
+... ]), unsupported (), response (), parse_response ( TEXT ), getline (),
+ungetline ( TEXT ), rawdatasend ( DATA ), read_until_dot (), tied_fh ()
+
+=item PSEUDO RESPONSES
+
+Initial value, Connection closed, Timeout
+
+=item EXPORTS
+
+=item AUTHOR
+
+=item COPYRIGHT
+
+=back
+
+=head2 Net::Config - Local configuration data for libnet
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item METHODS
+
+requires_firewall ( HOST )
+
+=item NetConfig VALUES
+
+nntp_hosts, snpp_hosts, pop3_hosts, smtp_hosts, ph_hosts, daytime_hosts,
+time_hosts, inet_domain, ftp_firewall, ftp_firewall_type, 0Z<>, 1Z<>, 2Z<>,
+3Z<>, 4Z<>, 5Z<>, 6Z<>, 7Z<>, ftp_ext_passive, ftp_int_passive,
+local_netmask, test_hosts, test_exists
+
+=item AUTHOR
+
+=item COPYRIGHT
+
+=back
+
+=head2 Net::Domain - Attempt to evaluate the current host's internet name
+and domain
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+hostfqdn (), domainname (), hostname (), hostdomain ()
+
+=item AUTHOR
+
+=item COPYRIGHT
+
+=back
+
+=head2 Net::FTP - FTP Client class
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item OVERVIEW
+
+=item CONSTRUCTOR
+
+new ([ HOST ] [, OPTIONS ])
+
+=item METHODS
+
+login ([LOGIN [,PASSWORD [, ACCOUNT] ] ]), starttls (), stoptls (), prot (
+LEVEL ), host (), account( ACCT ), authorize ( [AUTH [, RESP]]), site
+(ARGS), ascii (), binary (), type ( [ TYPE ] ), rename ( OLDNAME, NEWNAME
+), delete ( FILENAME ), cwd ( [ DIR ] ), cdup (), passive ( [ PASSIVE ] ),
+pwd (), restart ( WHERE ), rmdir ( DIR [, RECURSE ]), mkdir ( DIR [,
+RECURSE ]), alloc ( SIZE [, RECORD_SIZE] ), ls ( [ DIR ] ), dir ( [ DIR ]
+), get ( REMOTE_FILE [, LOCAL_FILE [, WHERE]] ), put ( LOCAL_FILE [,
+REMOTE_FILE ] ), put_unique ( LOCAL_FILE [, REMOTE_FILE ] ), append (
+LOCAL_FILE [, REMOTE_FILE ] ), unique_name (), mdtm ( FILE ), size ( FILE
+), supported ( CMD ), hash ( [FILEHANDLE_GLOB_REF],[ BYTES_PER_HASH_MARK]
+), feature ( NAME ), nlst ( [ DIR ] ), list ( [ DIR ] ), retr ( FILE ),
+stor ( FILE ), stou ( FILE ), appe ( FILE ), port ( [ PORT ] ), eprt ( [
+PORT ] ), pasv (), epsv (), pasv_xfer ( SRC_FILE, DEST_SERVER [, DEST_FILE
+] ), pasv_xfer_unique ( SRC_FILE, DEST_SERVER [, DEST_FILE ] ), pasv_wait (
+NON_PASV_SERVER ), abort (), quit ()
+
+=over 4
+
+=item Methods for the adventurous
+
+quot (CMD [,ARGS]), can_inet6 (), can_ssl ()
+
+=back
+
+=item THE dataconn CLASS
+
+=item UNIMPLEMENTED
+
+B<SMNT>, B<HELP>, B<MODE>, B<SYST>, B<STAT>, B<STRU>, B<REIN>
+
+=item REPORTING BUGS
+
+=item AUTHOR
+
+=item SEE ALSO
+
+=item USE EXAMPLES
+
+http://www.csh.rit.edu/~adam/Progs/
+
+=item CREDITS
+
+=item COPYRIGHT
+
+=back
+
+=head2 Net::NNTP - NNTP Client class
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item CONSTRUCTOR
+
+new ( [ HOST ] [, OPTIONS ])
+
+=item METHODS
+
+host (), starttls (), article ( [ MSGID|MSGNUM ], [FH] ), body ( [
+MSGID|MSGNUM ], [FH] ), head ( [ MSGID|MSGNUM ], [FH] ), articlefh ( [
+MSGID|MSGNUM ] ), bodyfh ( [ MSGID|MSGNUM ] ), headfh ( [ MSGID|MSGNUM ] ),
+nntpstat ( [ MSGID|MSGNUM ] ), group ( [ GROUP ] ), help ( ), ihave ( MSGID
+[, MESSAGE ]), last (), date (), postok (), authinfo ( USER, PASS ),
+authinfo_simple ( USER, PASS ), list (), newgroups ( SINCE [, DISTRIBUTIONS
+]), newnews ( SINCE [, GROUPS [, DISTRIBUTIONS ]]), next (), post ( [
+MESSAGE ] ), postfh (), slave (), quit (), can_inet6 (), can_ssl ()
+
+=over 4
+
+=item Extension methods
+
+newsgroups ( [ PATTERN ] ), distributions (), distribution_patterns (),
+subscriptions (), overview_fmt (), active_times (), active ( [ PATTERN ] ),
+xgtitle ( PATTERN ), xhdr ( HEADER, MESSAGE-SPEC ), xover ( MESSAGE-SPEC ),
+xpath ( MESSAGE-ID ), xpat ( HEADER, PATTERN, MESSAGE-SPEC), xrover (),
+listgroup ( [ GROUP ] ), reader ()
+
+=back
+
+=item UNSUPPORTED
+
+=item DEFINITIONS
+
+MESSAGE-SPEC, PATTERN, Examples, C<[^]-]>, C<*bdc>, C<[0-9a-zA-Z]>, C<a??d>
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=item COPYRIGHT
+
+=back
+
+=head2 Net::Netrc - OO interface to users netrc file
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item THE .netrc FILE
+
+machine name, default, login name, password string, account string, macdef
+name
+
+=item CONSTRUCTOR
+
+lookup ( MACHINE [, LOGIN ])
+
+=item METHODS
+
+login (), password (), account (), lpa ()
+
+=item AUTHOR
+
+=item SEE ALSO
+
+=item COPYRIGHT
+
+=back
+
+=head2 Net::POP3 - Post Office Protocol 3 Client class (RFC1939)
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item CONSTRUCTOR
+
+new ( [ HOST ] [, OPTIONS ] )
+
+=item METHODS
+
+host (), auth ( USERNAME, PASSWORD ), user ( USER ), pass ( PASS ), login (
+[ USER [, PASS ]] ), starttls ( SSLARGS ), apop ( [ USER [, PASS ]] ),
+banner (), capa (),  capabilities (), top ( MSGNUM [, NUMLINES ] ), list (
+[ MSGNUM ] ), get ( MSGNUM [, FH ] ), getfh ( MSGNUM ), last (), popstat
+(), ping ( USER ), uidl ( [ MSGNUM ] ), delete ( MSGNUM ), reset (), quit
+(), can_inet6 (), can_ssl ()
+
+=item NOTES
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=item COPYRIGHT
+
+=back
+
+=head2 Net::Ping - check a remote host for reachability
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item Functions
+
+Net::Ping->new([$proto [, $def_timeout [, $bytes [, $device [, $tos [, $ttl
+]]]]]]);, $p->ping($host [, $timeout]);, $p->source_verify( { 0 | 1 } );,
+$p->service_check( { 0 | 1 } );, $p->tcp_service_check( { 0 | 1 } );,
+$p->hires( { 0 | 1 } );, $p->bind($local_addr);, $p->open($host);, $p->ack(
+[ $host ] );, $p->nack( $failed_ack_host );, $p->close();,
+$p->port_number([$port_number]), pingecho($host [, $timeout]);
+
+=back
+
+=item NOTES
+
+=item INSTALL
+
+=item BUGS
+
+=item AUTHORS
+
+=item COPYRIGHT
+
+=back
+
+=head2 Net::SMTP - Simple Mail Transfer Protocol Client
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item EXAMPLES
+
+=item CONSTRUCTOR
+
+new ( [ HOST ] [, OPTIONS ] )
+
+=item METHODS
+
+banner (), domain (), hello ( DOMAIN ), host (), etrn ( DOMAIN ), starttls
+( SSLARGS ), auth ( USERNAME, PASSWORD ), auth ( SASL ), mail ( ADDRESS [,
+OPTIONS] ), send ( ADDRESS ), send_or_mail ( ADDRESS ), send_and_mail (
+ADDRESS ), reset (), recipient ( ADDRESS [, ADDRESS, [...]] [, OPTIONS ] ),
+to ( ADDRESS [, ADDRESS [...]] ), cc ( ADDRESS [, ADDRESS [...]] ), bcc (
+ADDRESS [, ADDRESS [...]] ), data ( [ DATA ] ), bdat ( DATA ), bdatlast (
+DATA ), expand ( ADDRESS ), verify ( ADDRESS ), help ( [ $subject ] ), quit
+(), can_inet6 (), can_ssl ()
+
+=item ADDRESSES
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=item COPYRIGHT
+
+=back
+
+=head2 Net::Time - time and daytime network client interface
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+inet_time ( [HOST [, PROTOCOL [, TIMEOUT]]]), inet_daytime ( [HOST [,
+PROTOCOL [, TIMEOUT]]])
+
+=item AUTHOR
+
+=item COPYRIGHT
+
+=back
+
+=head2 Net::hostent - by-name interface to Perl's built-in gethost*()
+functions
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item EXAMPLES
+
+=item NOTE
+
+=item AUTHOR
+
+=back
+
+=head2 Net::libnetFAQ, libnetFAQ - libnet Frequently Asked Questions
+
+=over 4
+
+=item DESCRIPTION
+
+=over 4
+
+=item Where to get this document
+
+=item How to contribute to this document
+
+=back
+
+=item Author and Copyright Information
+
+=over 4
+
+=item Disclaimer
+
+=back
+
+=item Obtaining and installing libnet
+
+=over 4
+
+=item What is libnet ?
+
+=item Which version of perl do I need ?
+
+=item What other modules do I need ?
+
+=item What machines support libnet ?
+
+=item Where can I get the latest libnet release
+
+=back
+
+=item Using Net::FTP
+
+=over 4
+
+=item How do I download files from an FTP server ?
+
+=item How do I transfer files in binary mode ?
+
+=item How can I get the size of a file on a remote FTP server ?
+
+=item How can I get the modification time of a file on a remote FTP server
+?
+
+=item How can I change the permissions of a file on a remote server ?
+
+=item Can I do a reget operation like the ftp command ?
+
+=item How do I get a directory listing from an FTP server ?
+
+=item Changing directory to "" does not fail ?
+
+=item I am behind a SOCKS firewall, but the Firewall option does not work ?
+
+=item I am behind an FTP proxy firewall, but cannot access machines outside
+?
+
+=item My ftp proxy firewall does not listen on port 21
+
+=item Is it possible to change the file permissions of a file on an FTP
+server ?
+
+=item I have seen scripts call a method message, but cannot find it
+documented ?
+
+=item Why does Net::FTP not implement mput and mget methods
+
+=back
+
+=item Using Net::SMTP
+
+=over 4
+
+=item Why can't the part of an Email address after the @ be used as the
+hostname ?
+
+=item Why does Net::SMTP not do DNS MX lookups ?
+
+=item The verify method always returns true ?
+
+=back
+
+=item Debugging scripts
+
+=over 4
+
+=item How can I debug my scripts that use Net::* modules ?
+
+=back
+
+=item AUTHOR AND COPYRIGHT
+
+=back
+
+=head2 Net::netent - by-name interface to Perl's built-in getnet*()
+functions
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item EXAMPLES
+
+=item NOTE
+
+=item AUTHOR
+
+=back
+
+=head2 Net::protoent - by-name interface to Perl's built-in getproto*()
+functions
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item NOTE
+
+=item AUTHOR
+
+=back
+
+=head2 Net::servent - by-name interface to Perl's built-in getserv*()
+functions
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item EXAMPLES
+
+=item NOTE
+
+=item AUTHOR
+
+=back
+
+=head2 O - Generic interface to Perl Compiler backends
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item CONVENTIONS
+
+=item IMPLEMENTATION
+
+=item BUGS
+
+=item AUTHOR
+
+=back
+
+=head2 Opcode - Disable named opcodes when compiling perl code
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item NOTE
+
+=item WARNING
+
+=item Operator Names and Operator Lists
+
+an operator name (opname), an operator tag name (optag), a negated opname
+or optag, an operator set (opset)
+
+=item Opcode Functions
+
+opcodes, opset (OP, ...), opset_to_ops (OPSET), opset_to_hex (OPSET),
+full_opset, empty_opset, invert_opset (OPSET), verify_opset (OPSET, ...),
+define_optag (OPTAG, OPSET), opmask_add (OPSET), opmask, opdesc (OP, ...),
+opdump (PAT)
+
+=item Manipulating Opsets
+
+=item TO DO (maybe)
+
+=back
+
+=over 4
+
+=item Predefined Opcode Tags
+
+:base_core, :base_mem, :base_loop, :base_io, :base_orig, :base_math,
+:base_thread, :default, :filesys_read, :sys_db, :browse, :filesys_open,
+:filesys_write, :subprocess, :ownprocess, :others, :load,
+:still_to_be_decided, :dangerous
+
+=item SEE ALSO
+
+=item AUTHORS
+
+=back
+
+=head2 POSIX - Perl interface to IEEE Std 1003.1
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item CAVEATS
+
+=item FUNCTIONS
+
+C<_exit>, C<abort>, C<abs>, C<access>, C<acos>, C<acosh>, C<alarm>,
+C<asctime>, C<asin>, C<asinh>, C<assert>, C<atan>, C<atanh>, C<atan2>,
+C<atexit>, C<atof>, C<atoi>, C<atol>, C<bsearch>, C<calloc>, C<cbrt>,
+C<ceil>, C<chdir>, C<chmod>, C<chown>, C<clearerr>, C<clock>, C<close>,
+C<closedir>, C<cos>, C<cosh>, C<copysign>, C<creat>, C<ctermid>, C<ctime>,
+C<cuserid>, C<difftime>, C<div>, C<dup>, C<dup2>, C<erf>, C<erfc>,
+C<errno>, C<execl>, C<execle>, C<execlp>, C<execv>, C<execve>, C<execvp>,
+C<exit>, C<exp>, C<expm1>, C<fabs>, C<fclose>, C<fcntl>, C<fdopen>,
+C<feof>, C<ferror>, C<fflush>, C<fgetc>, C<fgetpos>, C<fgets>, C<fileno>,
+C<floor>, C<fdim>, C<fegetround>, C<fesetround>, C<fma>, C<fmax>, C<fmin>,
+C<fmod>, C<fopen>, C<fork>, C<fpathconf>, C<fpclassify>, C<fprintf>,
+C<fputc>, C<fputs>, C<fread>, C<free>, C<freopen>, C<frexp>, C<fscanf>,
+C<fseek>, C<fsetpos>, C<fstat>, C<fsync>, C<ftell>, C<fwrite>, C<getc>,
+C<getchar>, C<getcwd>, C<getegid>, C<getenv>, C<geteuid>, C<getgid>,
+C<getgrgid>, C<getgrnam>, C<getgroups>, C<getlogin>, C<getpayload>,
+C<getpgrp>, C<getpid>, C<getppid>, C<getpwnam>, C<getpwuid>, C<gets>,
+C<getuid>, C<gmtime>, C<hypot>, C<ilogb>, C<Inf>, C<isalnum>, C<isalpha>,
+C<isatty>, C<iscntrl>, C<isdigit>, C<isfinite>, C<isgraph>, C<isgreater>,
+C<isinf>, C<islower>, C<isnan>, C<isnormal>, C<isprint>, C<ispunct>,
+C<issignaling>, C<isspace>, C<isupper>, C<isxdigit>, C<j0>, C<j1>, C<jn>,
+C<y0>, C<y1>, C<yn>, C<kill>, C<labs>, C<lchown>, C<ldexp>, C<ldiv>,
+C<lgamma>, C<log1p>, C<log2>, C<logb>, C<link>, C<localeconv>,
+C<localtime>, C<log>, C<log10>, C<longjmp>, C<lseek>, C<lrint>, C<lround>,
+C<malloc>, C<mblen>, C<mbstowcs>, C<mbtowc>, C<memchr>, C<memcmp>,
+C<memcpy>, C<memmove>, C<memset>, C<mkdir>, C<mkfifo>, C<mktime>, C<modf>,
+C<NaN>, C<nan>, C<nearbyint>, C<nextafter>, C<nexttoward>, C<nice>,
+C<offsetof>, C<open>, C<opendir>, C<pathconf>, C<pause>, C<perror>,
+C<pipe>, C<pow>, C<printf>, C<putc>, C<putchar>, C<puts>, C<qsort>,
+C<raise>, C<rand>, C<read>, C<readdir>, C<realloc>, C<remainder>,
+C<remove>, C<remquo>, C<rename>, C<rewind>, C<rewinddir>, C<rint>,
+C<rmdir>, C<round>, C<scalbn>, C<scanf>, C<setgid>, C<setjmp>,
+C<setlocale>, C<setpayload>, C<setpayloadsig>, C<setpgid>, C<setsid>,
+C<setuid>, C<sigaction>, C<siglongjmp>, C<signbit>, C<sigpending>,
+C<sigprocmask>, C<sigsetjmp>, C<sigsuspend>, C<sin>, C<sinh>, C<sleep>,
+C<sprintf>, C<sqrt>, C<srand>, C<sscanf>, C<stat>, C<strcat>, C<strchr>,
+C<strcmp>, C<strcoll>, C<strcpy>, C<strcspn>, C<strerror>, C<strftime>,
+C<strlen>, C<strncat>, C<strncmp>, C<strncpy>, C<strpbrk>, C<strrchr>,
+C<strspn>, C<strstr>, C<strtod>, C<strtok>, C<strtol>, C<strtold>,
+C<strtoul>, C<strxfrm>, C<sysconf>, C<system>, C<tan>, C<tanh>, C<tcdrain>,
+C<tcflow>, C<tcflush>, C<tcgetpgrp>, C<tcsendbreak>, C<tcsetpgrp>,
+C<tgamma>, C<time>, C<times>, C<tmpfile>, C<tmpnam>, C<tolower>,
+C<toupper>, C<trunc>, C<ttyname>, C<tzname>, C<tzset>, C<umask>, C<uname>,
+C<ungetc>, C<unlink>, C<utime>, C<vfprintf>, C<vprintf>, C<vsprintf>,
+C<wait>, C<waitpid>, C<wcstombs>, C<wctomb>, C<write>
+
+=item CLASSES
+
+=over 4
+
+=item C<POSIX::SigAction>
+
+C<new>, C<handler>, C<mask>, C<flags>, C<safe>
+
+=item C<POSIX::SigRt>
+
+C<%SIGRT>, C<SIGRTMIN>, C<SIGRTMAX>
+
+=item C<POSIX::SigSet>
+
+C<new>, C<addset>, C<delset>, C<emptyset>, C<fillset>, C<ismember>
+
+=item C<POSIX::Termios>
+
+C<new>, C<getattr>, C<getcc>, C<getcflag>, C<getiflag>, C<getispeed>,
+C<getlflag>, C<getoflag>, C<getospeed>, C<setattr>, C<setcc>, C<setcflag>,
+C<setiflag>, C<setispeed>, C<setlflag>, C<setoflag>, C<setospeed>, Baud
+rate values, Terminal interface values, C<c_cc> field values, C<c_cflag>
+field values, C<c_iflag> field values, C<c_lflag> field values, C<c_oflag>
+field values
+
+=back
+
+=item PATHNAME CONSTANTS
+
+Constants
+
+=item POSIX CONSTANTS
+
+Constants
+
+=item SYSTEM CONFIGURATION
+
+Constants
+
+=item ERRNO
+
+Constants
+
+=item FCNTL
+
+Constants
+
+=item FLOAT
+
+Constants
+
+=item FLOATING-POINT ENVIRONMENT
+
+Constants
+
+=item LIMITS
+
+Constants
+
+=item LOCALE
+
+Constants
+
+=item MATH
+
+Constants
+
+=item SIGNAL
+
+Constants
+
+=item STAT
+
+Constants, Macros
+
+=item STDLIB
+
+Constants
+
+=item STDIO
+
+Constants
+
+=item TIME
+
+Constants
+
+=item UNISTD
+
+Constants
+
+=item WAIT
+
+Constants, C<WNOHANG>, C<WUNTRACED>, Macros, C<WIFEXITED>, C<WEXITSTATUS>,
+C<WIFSIGNALED>, C<WTERMSIG>, C<WIFSTOPPED>, C<WSTOPSIG>
+
+=item WINSOCK
+
+Constants
+
+=back
+
+=head2 Params::Check - A generic input parsing/checking mechanism.
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item Template
+
+default, required, strict_type, defined, no_override, store, allow
+
+=item Functions
+
+=over 4
+
+=item check( \%tmpl, \%args, [$verbose] );
+
+Template, Arguments, Verbose
+
+=back
+
+=back
+
+=over 4
+
+=item allow( $test_me, \@criteria );
+
+string, regexp, subroutine, array ref
+
+=back
+
+=over 4
+
+=item last_error()
+
+=back
+
+=over 4
+
+=item Global Variables
+
+=over 4
+
+=item $Params::Check::VERBOSE
+
+=item $Params::Check::STRICT_TYPE
+
+=item $Params::Check::ALLOW_UNKNOWN
+
+=item $Params::Check::STRIP_LEADING_DASHES
+
+=item $Params::Check::NO_DUPLICATES
+
+=item $Params::Check::PRESERVE_CASE
+
+=item $Params::Check::ONLY_ALLOW_DEFINED
+
+=item $Params::Check::SANITY_CHECK_TEMPLATE
+
+=item $Params::Check::WARNINGS_FATAL
+
+=item $Params::Check::CALLER_DEPTH
+
+=back
+
+=item Acknowledgements
+
+=item BUG REPORTS
+
+=item AUTHOR
+
+=item COPYRIGHT
+
+=back
+
+=head2 Parse::CPAN::Meta - Parse META.yml and META.json CPAN metadata files
+
+=over 4
+
+=item VERSION
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item METHODS
+
+=over 4
+
+=item load_file
+
+=item load_yaml_string
+
+=item load_json_string
+
+=item load_string
+
+=item yaml_backend
+
+=item json_backend
+
+=back
+
+=item FUNCTIONS
+
+=over 4
+
+=item Load
+
+=item LoadFile
+
+=back
+
+=item ENVIRONMENT
+
+=over 4
+
+=item PERL_JSON_BACKEND
+
+=item PERL_YAML_BACKEND
+
+=back
+
+=item SUPPORT
+
+=over 4
+
+=item Bugs / Feature Requests
+
+=item Source Code
+
+=back
+
+=item AUTHORS
+
+=item CONTRIBUTORS
+
+=item COPYRIGHT AND LICENSE
+
+=back
+
+=head2 Perl::OSType - Map Perl operating system names to generic types
+
+=over 4
+
+=item VERSION
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item USAGE
+
+=over 4
+
+=item os_type()
+
+=item is_os_type()
+
+=back
+
+=item SEE ALSO
+
+=item SUPPORT
+
+=over 4
+
+=item Bugs / Feature Requests
+
+=item Source Code
+
+=back
+
+=item AUTHOR
+
+=item CONTRIBUTORS
+
+=item COPYRIGHT AND LICENSE
+
+=back
+
+=head2 PerlIO - On demand loader for PerlIO layers and root of PerlIO::*
+name space
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+:unix, :stdio, :perlio, :crlf, :utf8, :bytes, :raw, :pop, :win32
+
+=over 4
+
+=item Custom Layers
+
+:encoding, :mmap, :via
+
+=item Alternatives to raw
+
+=item Defaults and how to override them
+
+=item Querying the layers of filehandles
+
+=back
+
+=item AUTHOR
+
+=item SEE ALSO
+
+=back
+
+=head2 PerlIO::encoding - encoding layer
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item SEE ALSO
+
+=back
+
+=head2 PerlIO::mmap - Memory mapped IO
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item IMPLEMENTATION NOTE
+
+=back
+
+=head2 PerlIO::scalar - in-memory IO, scalar IO
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item IMPLEMENTATION NOTE
+
+=back
+
+=head2 PerlIO::via - Helper class for PerlIO layers implemented in perl
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item EXPECTED METHODS
+
+$class->PUSHED([$mode,[$fh]]), $obj->POPPED([$fh]),
+$obj->UTF8($belowFlag,[$fh]), $obj->OPEN($path,$mode,[$fh]),
+$obj->BINMODE([$fh]), $obj->FDOPEN($fd,[$fh]),
+$obj->SYSOPEN($path,$imode,$perm,[$fh]), $obj->FILENO($fh),
+$obj->READ($buffer,$len,$fh), $obj->WRITE($buffer,$fh), $obj->FILL($fh),
+$obj->CLOSE($fh), $obj->SEEK($posn,$whence,$fh), $obj->TELL($fh),
+$obj->UNREAD($buffer,$fh), $obj->FLUSH($fh), $obj->SETLINEBUF($fh),
+$obj->CLEARERR($fh), $obj->ERROR($fh), $obj->EOF($fh)
+
+=item EXAMPLES
+
+=over 4
+
+=item Example - a Hexadecimal Handle
+
+=back
+
+=back
+
+=head2 PerlIO::via::QuotedPrint - PerlIO layer for quoted-printable strings
+
+=over 4
+
+=item SYNOPSIS
+
+=item VERSION
+
+=item DESCRIPTION
+
+=item REQUIRED MODULES
+
+=item SEE ALSO
+
+=item ACKNOWLEDGEMENTS
+
+=item COPYRIGHT
+
+=back
+
+=head2 Pod::Escapes - for resolving Pod EE<lt>...E<gt> sequences
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item GOODIES
+
+e2char($e_content), e2charnum($e_content), $Name2character{I<name>},
+$Name2character_number{I<name>}, $Latin1Code_to_fallback{I<integer>},
+$Latin1Char_to_fallback{I<character>}, $Code2USASCII{I<integer>}
+
+=item CAVEATS
+
+=item SEE ALSO
+
+=item REPOSITORY
+
+=item COPYRIGHT AND DISCLAIMERS
+
+=item AUTHOR
+
+=back
+
+=head2 Pod::Find - find POD documents in directory trees
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=back
+
+=over 4
+
+=item C<pod_find( { %opts } , @directories )>
+
+C<-verbose =E<gt> 1>, C<-perl =E<gt> 1>, C<-script =E<gt> 1>, C<-inc =E<gt>
+1>
+
+=back
+
+=over 4
+
+=item C<simplify_name( $str )>
+
+=back
+
+=over 4
+
+=item C<pod_where( { %opts }, $pod )>
+
+C<-inc =E<gt> 1>, C<-dirs =E<gt> [ $dir1, $dir2, ... ]>, C<-verbose =E<gt>
+1>
+
+=back
+
+=over 4
+
+=item C<contains_pod( $file , $verbose )>
+
+=back
+
+=over 4
+
+=item AUTHOR
+
+=item SEE ALSO
+
+=back
+
+=head2 Pod::Html - module to convert pod files to HTML
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item FUNCTIONS
+
+=over 4
+
+=item pod2html
+
+backlink, cachedir, css, flush, header, help, htmldir, htmlroot, index,
+infile, outfile, poderrors, podpath, podroot, quiet, recurse, title,
+verbose
+
+=item htmlify
+
+=item anchorify
+
+=back
+
+=item ENVIRONMENT
+
+=item AUTHOR
+
+=item SEE ALSO
+
+=item COPYRIGHT
+
+=back
+
+=head2 Pod::InputObjects - objects representing POD input paragraphs,
+commands, etc.
+
+=over 4
+
+=item SYNOPSIS
+
+=item REQUIRES
+
+=item EXPORTS
+
+=item DESCRIPTION
+
+package B<Pod::InputSource>, package B<Pod::Paragraph>, package
+B<Pod::InteriorSequence>, package B<Pod::ParseTree>
+
+=back
+
+=over 4
+
+=item B<Pod::InputSource>
+
+=back
+
+=over 4
+
+=item B<new()>
+
+=back
+
+=over 4
+
+=item B<name()>
+
+=back
+
+=over 4
+
+=item B<handle()>
+
+=back
+
+=over 4
+
+=item B<was_cutting()>
+
+=back
+
+=over 4
+
+=item B<Pod::Paragraph>
+
+=back
+
+=over 4
+
+=item Pod::Paragraph-E<gt>B<new()>
+
+=back
+
+=over 4
+
+=item $pod_para-E<gt>B<cmd_name()>
+
+=back
+
+=over 4
+
+=item $pod_para-E<gt>B<text()>
+
+=back
+
+=over 4
+
+=item $pod_para-E<gt>B<raw_text()>
+
+=back
+
+=over 4
+
+=item $pod_para-E<gt>B<cmd_prefix()>
+
+=back
+
+=over 4
+
+=item $pod_para-E<gt>B<cmd_separator()>
+
+=back
+
+=over 4
+
+=item $pod_para-E<gt>B<parse_tree()>
+
+=back
+
+=over 4
+
+=item $pod_para-E<gt>B<file_line()>
+
+=back
+
+=over 4
+
+=item B<Pod::InteriorSequence>
+
+=back
+
+=over 4
+
+=item Pod::InteriorSequence-E<gt>B<new()>
+
+=back
+
+=over 4
+
+=item $pod_seq-E<gt>B<cmd_name()>
+
+=back
+
+=over 4
+
+=item $pod_seq-E<gt>B<prepend()>
+
+=back
+
+=over 4
+
+=item $pod_seq-E<gt>B<append()>
+
+=back
+
+=over 4
+
+=item $pod_seq-E<gt>B<nested()>
+
+=back
+
+=over 4
+
+=item $pod_seq-E<gt>B<raw_text()>
+
+=back
+
+=over 4
+
+=item $pod_seq-E<gt>B<left_delimiter()>
+
+=back
+
+=over 4
+
+=item $pod_seq-E<gt>B<right_delimiter()>
+
+=back
+
+=over 4
+
+=item $pod_seq-E<gt>B<parse_tree()>
+
+=back
+
+=over 4
+
+=item $pod_seq-E<gt>B<file_line()>
+
+=back
+
+=over 4
+
+=item Pod::InteriorSequence::B<DESTROY()>
+
+=back
+
+=over 4
+
+=item B<Pod::ParseTree>
+
+=back
+
+=over 4
+
+=item Pod::ParseTree-E<gt>B<new()>
+
+=back
+
+=over 4
+
+=item $ptree-E<gt>B<top()>
+
+=back
+
+=over 4
+
+=item $ptree-E<gt>B<children()>
+
+=back
+
+=over 4
+
+=item $ptree-E<gt>B<prepend()>
+
+=back
+
+=over 4
+
+=item $ptree-E<gt>B<append()>
+
+=back
+
+=over 4
+
+=item $ptree-E<gt>B<raw_text()>
+
+=back
+
+=over 4
+
+=item Pod::ParseTree::B<DESTROY()>
+
+=back
+
+=over 4
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=back
+
+=head2 Pod::Man - Convert POD data to formatted *roff input
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+center, date, errors, fixed, fixedbold, fixeditalic, fixedbolditalic, name,
+nourls, quotes, release, section, stderr, utf8
+
+=item DIAGNOSTICS
+
+roff font should be 1 or 2 chars, not "%s", Invalid errors setting "%s",
+Invalid quote specification "%s", POD document had syntax errors
+
+=item ENVIRONMENT
+
+PERL_CORE, POD_MAN_DATE, SOURCE_DATE_EPOCH
+
+=item BUGS
+
+=item CAVEATS
+
+=item AUTHOR
+
+=item COPYRIGHT AND LICENSE
+
+=item SEE ALSO
+
+=back
+
+=head2 Pod::ParseLink - Parse an LE<lt>E<gt> formatting code in POD text
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=item COPYRIGHT AND LICENSE
+
+=back
+
+=head2 Pod::ParseUtils - helpers for POD parsing and conversion
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=back
+
+=over 4
+
+=item Pod::List
+
+Pod::List-E<gt>new()
+
+=back
+
+$list-E<gt>file()
+
+$list-E<gt>start()
+
+$list-E<gt>indent()
+
+$list-E<gt>type()
+
+$list-E<gt>rx()
+
+$list-E<gt>item()
+
+$list-E<gt>parent()
+
+$list-E<gt>tag()
+
+=over 4
+
+=item Pod::Hyperlink
+
+Pod::Hyperlink-E<gt>new()
+
+=back
+
+$link-E<gt>parse($string)
+
+$link-E<gt>markup($string)
+
+$link-E<gt>text()
+
+$link-E<gt>warning()
+
+$link-E<gt>file(), $link-E<gt>line()
+
+$link-E<gt>page()
+
+$link-E<gt>node()
+
+$link-E<gt>alttext()
+
+$link-E<gt>type()
+
+$link-E<gt>link()
+
+=over 4
+
+=item Pod::Cache
+
+Pod::Cache-E<gt>new()
+
+=back
+
+$cache-E<gt>item()
+
+$cache-E<gt>find_page($name)
+
+=over 4
+
+=item Pod::Cache::Item
+
+Pod::Cache::Item-E<gt>new()
+
+=back
+
+$cacheitem-E<gt>page()
+
+$cacheitem-E<gt>description()
+
+$cacheitem-E<gt>path()
+
+$cacheitem-E<gt>file()
+
+$cacheitem-E<gt>nodes()
+
+$cacheitem-E<gt>find_node($name)
+
+$cacheitem-E<gt>idx()
+
+=over 4
+
+=item AUTHOR
+
+=item SEE ALSO
+
+=back
+
+=head2 Pod::Parser - base class for creating POD filters and translators
+
+=over 4
+
+=item SYNOPSIS
+
+=item REQUIRES
+
+=item EXPORTS
+
+=item DESCRIPTION
+
+=item QUICK OVERVIEW
+
+=item PARSING OPTIONS
+
+B<-want_nonPODs> (default: unset), B<-process_cut_cmd> (default: unset),
+B<-warnings> (default: unset)
+
+=back
+
+=over 4
+
+=item RECOMMENDED SUBROUTINE/METHOD OVERRIDES
+
+=back
+
+=over 4
+
+=item B<command()>
+
+C<$cmd>, C<$text>, C<$line_num>, C<$pod_para>
+
+=back
+
+=over 4
+
+=item B<verbatim()>
+
+C<$text>, C<$line_num>, C<$pod_para>
+
+=back
+
+=over 4
+
+=item B<textblock()>
+
+C<$text>, C<$line_num>, C<$pod_para>
+
+=back
+
+=over 4
+
+=item B<interior_sequence()>
+
+=back
+
+=over 4
+
+=item OPTIONAL SUBROUTINE/METHOD OVERRIDES
+
+=back
+
+=over 4
+
+=item B<new()>
+
+=back
+
+=over 4
+
+=item B<initialize()>
+
+=back
+
+=over 4
+
+=item B<begin_pod()>
+
+=back
+
+=over 4
+
+=item B<begin_input()>
+
+=back
+
+=over 4
+
+=item B<end_input()>
+
+=back
+
+=over 4
+
+=item B<end_pod()>
+
+=back
+
+=over 4
+
+=item B<preprocess_line()>
+
+=back
+
+=over 4
+
+=item B<preprocess_paragraph()>
+
+=back
+
+=over 4
+
+=item METHODS FOR PARSING AND PROCESSING
+
+=back
+
+=over 4
+
+=item B<parse_text()>
+
+B<-expand_seq> =E<gt> I<code-ref>|I<method-name>, B<-expand_text> =E<gt>
+I<code-ref>|I<method-name>, B<-expand_ptree> =E<gt>
+I<code-ref>|I<method-name>
+
+=back
+
+=over 4
+
+=item B<interpolate()>
+
+=back
+
+=over 4
+
+=item B<parse_paragraph()>
+
+=back
+
+=over 4
+
+=item B<parse_from_filehandle()>
+
+=back
+
+=over 4
+
+=item B<parse_from_file()>
+
+=back
+
+=over 4
+
+=item ACCESSOR METHODS
+
+=back
+
+=over 4
+
+=item B<errorsub()>
+
+=back
+
+=over 4
+
+=item B<cutting()>
+
+=back
+
+=over 4
+
+=item B<parseopts()>
+
+=back
+
+=over 4
+
+=item B<output_file()>
+
+=back
+
+=over 4
+
+=item B<output_handle()>
+
+=back
+
+=over 4
+
+=item B<input_file()>
+
+=back
+
+=over 4
+
+=item B<input_handle()>
+
+=back
+
+=over 4
+
+=item B<input_streams()>
+
+=back
+
+=over 4
+
+=item B<top_stream()>
+
+=back
+
+=over 4
+
+=item PRIVATE METHODS AND DATA
+
+=back
+
+=over 4
+
+=item B<_push_input_stream()>
+
+=back
+
+=over 4
+
+=item B<_pop_input_stream()>
+
+=back
+
+=over 4
+
+=item TREE-BASED PARSING
+
+=item CAVEATS
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=item LICENSE
+
+=back
+
+=head2 Pod::Perldoc - Look up Perl documentation in Pod format.
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item SEE ALSO
+
+=item COPYRIGHT AND DISCLAIMERS
+
+=item AUTHOR
+
+=back
+
+=head2 Pod::Perldoc::BaseTo - Base for Pod::Perldoc formatters
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item SEE ALSO
+
+=item COPYRIGHT AND DISCLAIMERS
+
+=item AUTHOR
+
+=back
+
+=head2 Pod::Perldoc::GetOptsOO - Customized option parser for Pod::Perldoc
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+Call Pod::Perldoc::GetOptsOO::getopts($object, \@ARGV, $truth), Given -n,
+if there's a opt_n_with, it'll call $object->opt_n_with( ARGUMENT )   
+(e.g., "-n foo" => $object->opt_n_with('foo').	Ditto "-nfoo"), Otherwise
+(given -n) if there's an opt_n, we'll call it $object->opt_n($truth)   
+(Truth defaults to 1), Otherwise we try calling
+$object->handle_unknown_option('n')    (and we increment the error count by
+the return value of it), If there's no handle_unknown_option, then we just
+warn, and then increment    the error counter
+
+=item SEE ALSO
+
+=item COPYRIGHT AND DISCLAIMERS
+
+=item AUTHOR
+
+=back
+
+=head2 Pod::Perldoc::ToANSI - render Pod with ANSI color escapes 
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item CAVEAT
+
+=item SEE ALSO
+
+=item COPYRIGHT AND DISCLAIMERS
+
+=item AUTHOR
+
+=back
+
+=head2 Pod::Perldoc::ToChecker - let Perldoc check Pod for errors
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item SEE ALSO
+
+=item COPYRIGHT AND DISCLAIMERS
+
+=item AUTHOR
+
+=back
+
+=head2 Pod::Perldoc::ToMan - let Perldoc render Pod as man pages
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item CAVEAT
+
+=item SEE ALSO
+
+=item COPYRIGHT AND DISCLAIMERS
+
+=item AUTHOR
+
+=back
+
+=head2 Pod::Perldoc::ToNroff - let Perldoc convert Pod to nroff
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item CAVEAT
+
+=item SEE ALSO
+
+=item COPYRIGHT AND DISCLAIMERS
+
+=item AUTHOR
+
+=back
+
+=head2 Pod::Perldoc::ToPod - let Perldoc render Pod as ... Pod!
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item SEE ALSO
+
+=item COPYRIGHT AND DISCLAIMERS
+
+=item AUTHOR
+
+=back
+
+=head2 Pod::Perldoc::ToRtf - let Perldoc render Pod as RTF
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item SEE ALSO
+
+=item COPYRIGHT AND DISCLAIMERS
+
+=item AUTHOR
+
+=back
+
+=head2 Pod::Perldoc::ToTerm - render Pod with terminal escapes 
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item CAVEAT
+
+=item SEE ALSO
+
+=item COPYRIGHT AND DISCLAIMERS
+
+=item AUTHOR
+
+=back
+
+=head2 Pod::Perldoc::ToText - let Perldoc render Pod as plaintext
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item CAVEAT
+
+=item SEE ALSO
+
+=item COPYRIGHT AND DISCLAIMERS
+
+=item AUTHOR
+
+=back
+
+=head2 Pod::Perldoc::ToTk - let Perldoc use Tk::Pod to render Pod
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=back
+
+=head2 Pod::Perldoc::ToXml - let Perldoc render Pod as XML
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item SEE ALSO
+
+=item COPYRIGHT AND DISCLAIMERS
+
+=item AUTHOR
+
+=back
+
+=head2 Pod::PlainText - Convert POD data to formatted ASCII text
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+alt, indent, loose, sentence, width
+
+=item DIAGNOSTICS
+
+Bizarre space in item, Can't open %s for reading: %s, Unknown escape: %s,
+Unknown sequence: %s, Unmatched =back
+
+=item RESTRICTIONS
+
+=item NOTES
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=back
+
+=head2 Pod::Select, podselect() - extract selected sections of POD from
+input
+
+=over 4
+
+=item SYNOPSIS
+
+=item REQUIRES
+
+=item EXPORTS
+
+=item DESCRIPTION
+
+=item SECTION SPECIFICATIONS
+
+=item RANGE SPECIFICATIONS
+
+=back
+
+=over 4
+
+=item OBJECT METHODS
+
+=back
+
+=over 4
+
+=item B<curr_headings()>
+
+=back
+
+=over 4
+
+=item B<select()>
+
+=back
+
+=over 4
+
+=item B<add_selection()>
+
+=back
+
+=over 4
+
+=item B<clear_selections()>
+
+=back
+
+=over 4
+
+=item B<match_section()>
+
+=back
+
+=over 4
+
+=item B<is_selected()>
+
+=back
+
+=over 4
+
+=item EXPORTED FUNCTIONS
+
+=back
+
+=over 4
+
+=item B<podselect()>
+
+B<-output>, B<-sections>, B<-ranges>
+
+=back
+
+=over 4
+
+=item PRIVATE METHODS AND DATA
+
+=back
+
+=over 4
+
+=item B<_compile_section_spec()>
+
+=back
+
+=over 4
+
+=item $self->{_SECTION_HEADINGS}
+
+=back
+
+=over 4
+
+=item $self->{_SELECTED_SECTIONS}
+
+=back
+
+=over 4
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=back
+
+=head2 Pod::Simple - framework for parsing Pod
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item MAIN METHODS
+
+C<< $parser = I<SomeClass>->new(); >>, C<< $parser->output_fh( *OUT ); >>,
+C<< $parser->output_string( \$somestring ); >>, C<< $parser->parse_file(
+I<$some_filename> ); >>, C<< $parser->parse_file( *INPUT_FH ); >>, C<<
+$parser->parse_string_document( I<$all_content> ); >>, C<<
+$parser->parse_lines( I<...@lines...>, undef ); >>, C<<
+$parser->content_seen >>, C<< I<SomeClass>->filter( I<$filename> ); >>, C<<
+I<SomeClass>->filter( I<*INPUT_FH> ); >>, C<< I<SomeClass>->filter(
+I<\$document_content> ); >>
+
+=item SECONDARY METHODS
+
+C<< $parser->parse_characters( I<SOMEVALUE> ) >>, C<< $parser->no_whining(
+I<SOMEVALUE> ) >>, C<< $parser->no_errata_section( I<SOMEVALUE> ) >>, C<<
+$parser->complain_stderr( I<SOMEVALUE> ) >>, C<< $parser->source_filename
+>>, C<< $parser->doc_has_started >>, C<< $parser->source_dead >>, C<<
+$parser->strip_verbatim_indent( I<SOMEVALUE> ) >>
+
+=item TERTIARY METHODS
+
+C<< $parser->abandon_output_fh() >>X<abandon_output_fh>, C<<
+$parser->abandon_output_string() >>X<abandon_output_string>, C<<
+$parser->accept_code( @codes ) >>X<accept_code>, C<< $parser->accept_codes(
+@codes ) >>X<accept_codes>, C<< $parser->accept_directive_as_data(
+@directives ) >>X<accept_directive_as_data>, C<<
+$parser->accept_directive_as_processed( @directives )
+>>X<accept_directive_as_processed>, C<<
+$parser->accept_directive_as_verbatim( @directives )
+>>X<accept_directive_as_verbatim>, C<< $parser->accept_target( @targets )
+>>X<accept_target>, C<< $parser->accept_target_as_text( @targets )
+>>X<accept_target_as_text>, C<< $parser->accept_targets( @targets )
+>>X<accept_targets>, C<< $parser->accept_targets_as_text( @targets )
+>>X<accept_targets_as_text>, C<< $parser->any_errata_seen()
+>>X<any_errata_seen>, C<< $parser->errata_seen() >>X<errata_seen>, C<<
+$parser->detected_encoding() >>X<detected_encoding>, C<<
+$parser->encoding() >>X<encoding>, C<< $parser->parse_from_file( $source,
+$to ) >>X<parse_from_file>, C<< $parser->scream( @error_messages )
+>>X<scream>, C<< $parser->unaccept_code( @codes ) >>X<unaccept_code>, C<<
+$parser->unaccept_codes( @codes ) >>X<unaccept_codes>, C<<
+$parser->unaccept_directive( @directives ) >>X<unaccept_directive>, C<<
+$parser->unaccept_directives( @directives ) >>X<unaccept_directives>, C<<
+$parser->unaccept_target( @targets ) >>X<unaccept_target>, C<<
+$parser->unaccept_targets( @targets ) >>X<unaccept_targets>, C<<
+$parser->version_report() >>X<version_report>, C<< $parser->whine(
+@error_messages ) >>X<whine>
+
+=item ENCODING
+
+=item SEE ALSO
+
+=item SUPPORT
+
+=item COPYRIGHT AND DISCLAIMERS
+
+=item AUTHOR
+
+Allison Randal C<allison@perl.org>, Hans Dieter Pearcey C<hdp@cpan.org>,
+David E. Wheeler C<dwheeler@cpan.org>, Gabor Szabo C<szabgab@gmail.com>,
+Shawn H Corey  C<SHCOREY at cpan.org>
+
+=back
+
+=head2 Pod::Simple::Checker -- check the Pod syntax of a document
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item SEE ALSO
+
+=item SUPPORT
+
+=item COPYRIGHT AND DISCLAIMERS
+
+=item AUTHOR
+
+Allison Randal C<allison@perl.org>, Hans Dieter Pearcey C<hdp@cpan.org>,
+David E. Wheeler C<dwheeler@cpan.org>
+
+=back
+
+=head2 Pod::Simple::Debug -- put Pod::Simple into trace/debug mode
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item CAVEATS
+
+=item GUTS
+
+=item SEE ALSO
+
+=item SUPPORT
+
+=item COPYRIGHT AND DISCLAIMERS
+
+=item AUTHOR
+
+Allison Randal C<allison@perl.org>, Hans Dieter Pearcey C<hdp@cpan.org>,
+David E. Wheeler C<dwheeler@cpan.org>
+
+=back
+
+=head2 Pod::Simple::DumpAsText -- dump Pod-parsing events as text
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item SEE ALSO
+
+=item SUPPORT
+
+=item COPYRIGHT AND DISCLAIMERS
+
+=item AUTHOR
+
+Allison Randal C<allison@perl.org>, Hans Dieter Pearcey C<hdp@cpan.org>,
+David E. Wheeler C<dwheeler@cpan.org>
+
+=back
+
+=head2 Pod::Simple::DumpAsXML -- turn Pod into XML
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item SEE ALSO
+
+=item SUPPORT
+
+=item COPYRIGHT AND DISCLAIMERS
+
+=item AUTHOR
+
+Allison Randal C<allison@perl.org>, Hans Dieter Pearcey C<hdp@cpan.org>,
+David E. Wheeler C<dwheeler@cpan.org>
+
+=back
+
+=head2 Pod::Simple::HTML - convert Pod to HTML
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item CALLING FROM THE COMMAND LINE
+
+=item CALLING FROM PERL
+
+=over 4
+
+=item Minimal code
+
+=item More detailed example
+
+=back
+
+=item METHODS
+
+=over 4
+
+=item html_css
+
+=item html_javascript
+
+=item title_prefix
+
+=item title_postfix
+
+=item html_header_before_title
+
+=item top_anchor
+
+=item html_h_level
+
+=item index
+
+=item html_header_after_title
+
+=item html_footer
+
+=back
+
+=item SUBCLASSING
+
+=item SEE ALSO
+
+=item SUPPORT
+
+=item COPYRIGHT AND DISCLAIMERS
+
+=item ACKNOWLEDGEMENTS
+
+=item AUTHOR
+
+Allison Randal C<allison@perl.org>, Hans Dieter Pearcey C<hdp@cpan.org>,
+David E. Wheeler C<dwheeler@cpan.org>
+
+=back
+
+=head2 Pod::Simple::HTMLBatch - convert several Pod files to several HTML
+files
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item FROM THE COMMAND LINE
+
+=back
+
+=item MAIN METHODS
+
+$batchconv = Pod::Simple::HTMLBatch->new;, $batchconv->batch_convert(
+I<indirs>, I<outdir> );, $batchconv->batch_convert( undef    , ...);,
+$batchconv->batch_convert( q{@INC}, ...);, $batchconv->batch_convert(
+\@dirs , ...);, $batchconv->batch_convert( "somedir" , ...);,
+$batchconv->batch_convert( 'somedir:someother:also' , ...);,
+$batchconv->batch_convert( ... , undef );, $batchconv->batch_convert( ... ,
+'somedir' );
+
+=over 4
+
+=item ACCESSOR METHODS
+
+$batchconv->verbose( I<nonnegative_integer> );, $batchconv->index(
+I<true-or-false> );, $batchconv->contents_file( I<filename> );,
+$batchconv->contents_page_start( I<HTML_string> );,
+$batchconv->contents_page_end( I<HTML_string> );, $batchconv->add_css( $url
+);, $batchconv->add_javascript( $url );, $batchconv->css_flurry(
+I<true-or-false> );, $batchconv->javascript_flurry( I<true-or-false> );,
+$batchconv->no_contents_links( I<true-or-false> );,
+$batchconv->html_render_class( I<classname> );, $batchconv->search_class(
+I<classname> );
+
+=back
+
+=item NOTES ON CUSTOMIZATION
+
+=item SEE ALSO
+
+=item SUPPORT
+
+=item COPYRIGHT AND DISCLAIMERS
+
+=item AUTHOR
+
+Allison Randal C<allison@perl.org>, Hans Dieter Pearcey C<hdp@cpan.org>,
+David E. Wheeler C<dwheeler@cpan.org>
+
+=back
+
+=head2 Pod::Simple::LinkSection -- represent "section" attributes of L
+codes
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item SEE ALSO
+
+=item SUPPORT
+
+=item COPYRIGHT AND DISCLAIMERS
+
+=item AUTHOR
+
+Allison Randal C<allison@perl.org>, Hans Dieter Pearcey C<hdp@cpan.org>,
+David E. Wheeler C<dwheeler@cpan.org>
+
+=back
+
+=head2 Pod::Simple::Methody -- turn Pod::Simple events into method calls
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item METHOD CALLING
+
+=item SEE ALSO
+
+=item SUPPORT
+
+=item COPYRIGHT AND DISCLAIMERS
+
+=item AUTHOR
+
+Allison Randal C<allison@perl.org>, Hans Dieter Pearcey C<hdp@cpan.org>,
+David E. Wheeler C<dwheeler@cpan.org>
+
+=back
+
+=head2 Pod::Simple::PullParser -- a pull-parser interface to parsing Pod
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item METHODS
+
+my $token = $parser->get_token, $parser->unget_token( $token ),
+$parser->unget_token( $token1, $token2, ... ), $parser->set_source(
+$filename ), $parser->set_source( $filehandle_object ),
+$parser->set_source( \$document_source ), $parser->set_source(
+\@document_lines ), $parser->parse_file(...),
+$parser->parse_string_document(...), $parser->filter(...),
+$parser->parse_from_file(...), my $title_string = $parser->get_title, my
+$title_string = $parser->get_short_title, $author_name	 =
+$parser->get_author, $description_name = $parser->get_description,
+$version_block = $parser->get_version
+
+=item NOTE
+
+=item SEE ALSO
+
+=item SUPPORT
+
+=item COPYRIGHT AND DISCLAIMERS
+
+=item AUTHOR
+
+Allison Randal C<allison@perl.org>, Hans Dieter Pearcey C<hdp@cpan.org>,
+David E. Wheeler C<dwheeler@cpan.org>
+
+=back
+
+=head2 Pod::Simple::PullParserEndToken -- end-tokens from
+Pod::Simple::PullParser
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+$token->tagname, $token->tagname(I<somestring>), $token->tag(...),
+$token->is_tag(I<somestring>) or $token->is_tagname(I<somestring>)
+
+=item SEE ALSO
+
+=item SUPPORT
+
+=item COPYRIGHT AND DISCLAIMERS
+
+=item AUTHOR
+
+Allison Randal C<allison@perl.org>, Hans Dieter Pearcey C<hdp@cpan.org>,
+David E. Wheeler C<dwheeler@cpan.org>
+
+=back
+
+=head2 Pod::Simple::PullParserStartToken -- start-tokens from
+Pod::Simple::PullParser
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+$token->tagname, $token->tagname(I<somestring>), $token->tag(...),
+$token->is_tag(I<somestring>) or $token->is_tagname(I<somestring>),
+$token->attr(I<attrname>), $token->attr(I<attrname>, I<newvalue>),
+$token->attr_hash
+
+=item SEE ALSO
+
+=item SEE ALSO
+
+=item SUPPORT
+
+=item COPYRIGHT AND DISCLAIMERS
+
+=item AUTHOR
+
+Allison Randal C<allison@perl.org>, Hans Dieter Pearcey C<hdp@cpan.org>,
+David E. Wheeler C<dwheeler@cpan.org>
+
+=back
+
+=head2 Pod::Simple::PullParserTextToken -- text-tokens from
+Pod::Simple::PullParser
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+$token->text, $token->text(I<somestring>), $token->text_r()
+
+=item SEE ALSO
+
+=item SUPPORT
+
+=item COPYRIGHT AND DISCLAIMERS
+
+=item AUTHOR
+
+Allison Randal C<allison@perl.org>, Hans Dieter Pearcey C<hdp@cpan.org>,
+David E. Wheeler C<dwheeler@cpan.org>
+
+=back
+
+=head2 Pod::Simple::PullParserToken -- tokens from Pod::Simple::PullParser
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+$token->type, $token->is_start, $token->is_text, $token->is_end,
+$token->dump
+
+=item SEE ALSO
+
+=item SUPPORT
+
+=item COPYRIGHT AND DISCLAIMERS
+
+=item AUTHOR
+
+Allison Randal C<allison@perl.org>, Hans Dieter Pearcey C<hdp@cpan.org>,
+David E. Wheeler C<dwheeler@cpan.org>
+
+=back
+
+=head2 Pod::Simple::RTF -- format Pod as RTF
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item FORMAT CONTROL ATTRIBUTES
+
+$parser->head1_halfpoint_size( I<halfpoint_integer> );,
+$parser->head2_halfpoint_size( I<halfpoint_integer> );,
+$parser->head3_halfpoint_size( I<halfpoint_integer> );,
+$parser->head4_halfpoint_size( I<halfpoint_integer> );,
+$parser->codeblock_halfpoint_size( I<halfpoint_integer> );,
+$parser->header_halfpoint_size( I<halfpoint_integer> );,
+$parser->normal_halfpoint_size( I<halfpoint_integer> );,
+$parser->no_proofing_exemptions( I<true_or_false> );, $parser->doc_lang(
+I<microsoft_decimal_language_code> )
+
+=item SEE ALSO
+
+=item SUPPORT
+
+=item COPYRIGHT AND DISCLAIMERS
+
+=item AUTHOR
+
+Allison Randal C<allison@perl.org>, Hans Dieter Pearcey C<hdp@cpan.org>,
+David E. Wheeler C<dwheeler@cpan.org>
+
+=back
+
+=head2 Pod::Simple::Search - find POD documents in directory trees
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item CONSTRUCTOR
+
+=item ACCESSORS
+
+$search->inc( I<true-or-false> );, $search->verbose( I<nonnegative-number>
+);, $search->limit_glob( I<some-glob-string> );, $search->callback(
+I<\&some_routine> );, $search->laborious( I<true-or-false> );,
+$search->recurse( I<true-or-false> );, $search->shadows( I<true-or-false>
+);, $search->limit_re( I<some-regxp> );, $search->dir_prefix(
+I<some-string-value> );, $search->progress( I<some-progress-object> );,
+$name2path = $self->name2path;, $path2name = $self->path2name;
+
+=item MAIN SEARCH METHODS
+
+=over 4
+
+=item C<< $search->survey( @directories ) >>
+
+C<name2path>, C<path2name>
+
+=item C<< $search->simplify_name( $str ) >>
+
+=item C<< $search->find( $pod ) >>
+
+=item C<< $search->find( $pod, @search_dirs ) >>
+
+=item C<< $self->contains_pod( $file ) >>
+
+=back
+
+=item SUPPORT
+
+=item COPYRIGHT AND DISCLAIMERS
+
+=item AUTHOR
+
+Allison Randal C<allison@perl.org>, Hans Dieter Pearcey C<hdp@cpan.org>,
+David E. Wheeler C<dwheeler@cpan.org>
+
+=back
+
+=head2 Pod::Simple::SimpleTree -- parse Pod into a simple parse tree 
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item METHODS
+
+=item Tree Contents
+
+=item SEE ALSO
+
+=item SUPPORT
+
+=item COPYRIGHT AND DISCLAIMERS
+
+=item AUTHOR
+
+Allison Randal C<allison@perl.org>, Hans Dieter Pearcey C<hdp@cpan.org>,
+David E. Wheeler C<dwheeler@cpan.org>
+
+=back
+
+=head2 Pod::Simple::Subclassing -- write a formatter as a Pod::Simple
+subclass
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+Pod::Simple, Pod::Simple::Methody, Pod::Simple::PullParser,
+Pod::Simple::SimpleTree
+
+=item Events
+
+C<< $parser->_handle_element_start( I<element_name>, I<attr_hashref> ) >>,
+C<< $parser->_handle_element_end( I<element_name>  ) >>, C<<
+$parser->_handle_text(	I<text_string>	) >>, events with an element_name
+of Document, events with an element_name of Para, events with an
+element_name of B, C, F, or I, events with an element_name of S, events
+with an element_name of X, events with an element_name of L, events with an
+element_name of E or Z, events with an element_name of Verbatim, events
+with an element_name of head1 .. head4, events with an element_name of
+encoding, events with an element_name of over-bullet, events with an
+element_name of over-number, events with an element_name of over-text,
+events with an element_name of over-block, events with an element_name of
+over-empty, events with an element_name of item-bullet, events with an
+element_name of item-number, events with an element_name of item-text,
+events with an element_name of for, events with an element_name of Data
+
+=item More Pod::Simple Methods
+
+C<< $parser->accept_targets( I<SOMEVALUE> ) >>, C<<
+$parser->accept_targets_as_text(  I<SOMEVALUE>	) >>, C<<
+$parser->accept_codes( I<Codename>, I<Codename>...  ) >>, C<<
+$parser->accept_directive_as_data( I<directive_name> ) >>, C<<
+$parser->accept_directive_as_verbatim( I<directive_name> ) >>, C<<
+$parser->accept_directive_as_processed( I<directive_name> ) >>, C<<
+$parser->nbsp_for_S( I<BOOLEAN> ); >>, C<< $parser->version_report() >>,
+C<< $parser->pod_para_count() >>, C<< $parser->line_count() >>, C<<
+$parser->nix_X_codes(  I<SOMEVALUE>  ) >>, C<<
+$parser->keep_encoding_directive(  I<SOMEVALUE>  ) >>, C<<
+$parser->merge_text(  I<SOMEVALUE>  ) >>, C<< $parser->code_handler( 
+I<CODE_REF>  ) >>, C<< $parser->cut_handler(  I<CODE_REF>  ) >>, C<<
+$parser->pod_handler(  I<CODE_REF>  ) >>, C<< $parser->whiteline_handler( 
+I<CODE_REF>  ) >>, C<< $parser->whine( I<linenumber>, I<complaint string> )
+>>, C<< $parser->scream( I<linenumber>, I<complaint string> ) >>, C<<
+$parser->source_dead(1) >>, C<< $parser->hide_line_numbers( I<SOMEVALUE> )
+>>, C<< $parser->no_whining( I<SOMEVALUE> ) >>, C<<
+$parser->no_errata_section( I<SOMEVALUE> ) >>, C<<
+$parser->complain_stderr( I<SOMEVALUE> ) >>, C<< $parser->bare_output(
+I<SOMEVALUE> ) >>, C<< $parser->preserve_whitespace( I<SOMEVALUE> ) >>, C<<
+$parser->parse_empty_lists( I<SOMEVALUE> ) >>
+
+=item SEE ALSO
+
+=item SUPPORT
+
+=item COPYRIGHT AND DISCLAIMERS
+
+=item AUTHOR
+
+Allison Randal C<allison@perl.org>, Hans Dieter Pearcey C<hdp@cpan.org>,
+David E. Wheeler C<dwheeler@cpan.org>
+
+=back
+
+=head2 Pod::Simple::Text -- format Pod as plaintext
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item SEE ALSO
+
+=item SUPPORT
+
+=item COPYRIGHT AND DISCLAIMERS
+
+=item AUTHOR
+
+Allison Randal C<allison@perl.org>, Hans Dieter Pearcey C<hdp@cpan.org>,
+David E. Wheeler C<dwheeler@cpan.org>
+
+=back
+
+=head2 Pod::Simple::TextContent -- get the text content of Pod
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item SEE ALSO
+
+=item SUPPORT
+
+=item COPYRIGHT AND DISCLAIMERS
+
+=item AUTHOR
+
+Allison Randal C<allison@perl.org>, Hans Dieter Pearcey C<hdp@cpan.org>,
+David E. Wheeler C<dwheeler@cpan.org>
+
+=back
+
+=head2 Pod::Simple::XHTML -- format Pod as validating XHTML
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item Minimal code
+
+=back
+
+=back
+
+=over 4
+
+=item METHODS
+
+=over 4
+
+=item perldoc_url_prefix
+
+=item perldoc_url_postfix
+
+=item man_url_prefix
+
+=item man_url_postfix
+
+=item title_prefix, title_postfix
+
+=item html_css
+
+=item html_javascript
+
+=item html_doctype
+
+=item html_charset
+
+=item html_header_tags
+
+=item html_h_level
+
+=item default_title
+
+=item force_title
+
+=item html_header, html_footer
+
+=item index
+
+=item anchor_items
+
+=item backlink
+
+=back
+
+=back
+
+=over 4
+
+=item SUBCLASSING
+
+=back
+
+=over 4
+
+=item handle_text
+
+=item handle_code
+
+=item accept_targets_as_html
+
+=back
+
+=over 4
+
+=item resolve_pod_page_link
+
+=back
+
+=over 4
+
+=item resolve_man_page_link
+
+=back
+
+=over 4
+
+=item idify
+
+=back
+
+=over 4
+
+=item batch_mode_page_object_init
+
+=back
+
+=over 4
+
+=item SEE ALSO
+
+=item SUPPORT
+
+=item COPYRIGHT AND DISCLAIMERS
+
+=item ACKNOWLEDGEMENTS
+
+=item AUTHOR
+
+Allison Randal C<allison@perl.org>, Hans Dieter Pearcey C<hdp@cpan.org>,
+David E. Wheeler C<dwheeler@cpan.org>
+
+=back
+
+=head2 Pod::Simple::XMLOutStream -- turn Pod into XML
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item SEE ALSO
+
+=item ABOUT EXTENDING POD
+
+=item SEE ALSO
+
+=item SUPPORT
+
+=item COPYRIGHT AND DISCLAIMERS
+
+=item AUTHOR
+
+Allison Randal C<allison@perl.org>, Hans Dieter Pearcey C<hdp@cpan.org>,
+David E. Wheeler C<dwheeler@cpan.org>
+
+=back
+
+=head2 Pod::Text - Convert POD data to formatted text
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+alt, code, errors, indent, loose, margin, nourls, quotes, sentence, stderr,
+utf8, width
+
+=item DIAGNOSTICS
+
+Bizarre space in item, Item called without tag, Can't open %s for reading:
+%s, Invalid errors setting "%s", Invalid quote specification "%s", POD
+document had syntax errors
+
+=item BUGS
+
+=item CAVEATS
+
+=item NOTES
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=item COPYRIGHT AND LICENSE
+
+=back
+
+=head2 Pod::Text::Color - Convert POD data to formatted color ASCII text
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item BUGS
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=item COPYRIGHT AND LICENSE
+
+=back
+
+=head2 Pod::Text::Overstrike, =for stopwords
+overstrike
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item BUGS
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=item COPYRIGHT AND LICENSE
+
+=back
+
+=head2 Pod::Text::Termcap - Convert POD data to ASCII text with format
+escapes
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item ENVIRONMENT
+
+=item NOTES
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=item COPYRIGHT AND LICENSE
+
+=back
+
+=head2 Pod::Usage - print a usage message from embedded pod documentation
+
+=over 4
+
+=item SYNOPSIS
+
+=item ARGUMENTS
+
+C<-message> I<string>, C<-msg> I<string>, C<-exitval> I<value>, C<-verbose>
+I<value>, C<-sections> I<spec>, C<-output> I<handle>, C<-input> I<handle>,
+C<-pathlist> I<string>, C<-noperldoc>, C<-perlcmd>, C<-perldoc>
+I<path-to-perldoc>, C<-perldocopt> I<string>
+
+=over 4
+
+=item Formatting base class
+
+=item Pass-through options
+
+=back
+
+=item DESCRIPTION
+
+=over 4
+
+=item Scripts
+
+=back
+
+=item EXAMPLES
+
+=over 4
+
+=item Recommended Use
+
+=back
+
+=item CAVEATS
+
+=item AUTHOR
+
+=item ACKNOWLEDGMENTS
+
+=item SEE ALSO
+
+=back
+
+=head2 SDBM_File - Tied access to sdbm files
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item Tie
+
+=back
+
+=item EXPORTS
+
+=item DIAGNOSTICS
+
+=over 4
+
+=item C<sdbm store returned -1, errno 22, key "..." at ...>
+
+=back
+
+=item BUGS AND WARNINGS
+
+=back
+
+=head2 Safe - Compile and execute code in restricted compartments
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+a new namespace, an operator mask
+
+=item WARNING
+
+=item METHODS
+
+=over 4
+
+=item permit (OP, ...)
+
+=item permit_only (OP, ...)
+
+=item deny (OP, ...)
+
+=item deny_only (OP, ...)
+
+=item trap (OP, ...), untrap (OP, ...)
+
+=item share (NAME, ...)
+
+=item share_from (PACKAGE, ARRAYREF)
+
+=item varglob (VARNAME)
+
+=item reval (STRING, STRICT)
+
+=item rdo (FILENAME)
+
+=item root (NAMESPACE)
+
+=item mask (MASK)
+
+=item wrap_code_ref (CODEREF)
+
+=item wrap_code_refs_within (...)
+
+=back
+
+=item RISKS
+
+Memory, CPU, Snooping, Signals, State Changes
+
+=item AUTHOR
+
+=back
+
+=head2 Scalar::Util - A selection of general-utility scalar subroutines
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=back
+
+=over 4
+
+=item FUNCTIONS FOR REFERENCES
+
+=over 4
+
+=item blessed
+
+=item refaddr
+
+=item reftype
+
+=item weaken
+
+=item unweaken
+
+=item isweak
+
+=back
+
+=item OTHER FUNCTIONS
+
+=over 4
+
+=item dualvar
+
+=item isdual
+
+=item isvstring
+
+=item looks_like_number
+
+=item openhandle
+
+=item readonly
+
+=item set_prototype
+
+=item tainted
+
+=back
+
+=item DIAGNOSTICS
+
+Weak references are not implemented in the version of perl, Vstrings are
+not implemented in the version of perl, C<NAME> is only available with the
+XS version of Scalar::Util
+
+=item KNOWN BUGS
+
+=item SEE ALSO
+
+=item COPYRIGHT
+
+=back
+
+=head2 Search::Dict - look - search for key in dictionary file
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=back
+
+=head2 SelectSaver - save and restore selected file handle
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=back
+
+=head2 SelfLoader - load functions only on demand
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item The __DATA__ token
+
+=item SelfLoader autoloading
+
+=item Autoloading and package lexicals
+
+=item SelfLoader and AutoLoader
+
+=item __DATA__, __END__, and the FOOBAR::DATA filehandle.
+
+=item Classes and inherited methods.
+
+=back
+
+=item Multiple packages and fully qualified subroutine names
+
+=item AUTHOR
+
+=item COPYRIGHT AND LICENSE
+
+a), b)
+
+=back
+
+=head2 Socket, C<Socket> - networking constants and support functions
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=back
+
+=over 4
+
+=item CONSTANTS
+
+=back
+
+=over 4
+
+=item PF_INET, PF_INET6, PF_UNIX, ...
+
+=item AF_INET, AF_INET6, AF_UNIX, ...
+
+=item SOCK_STREAM, SOCK_DGRAM, SOCK_RAW, ...
+
+=item SOCK_NONBLOCK. SOCK_CLOEXEC
+
+=item SOL_SOCKET
+
+=item SO_ACCEPTCONN, SO_BROADCAST, SO_ERROR, ...
+
+=item IP_OPTIONS, IP_TOS, IP_TTL, ...
+
+=item IPTOS_LOWDELAY, IPTOS_THROUGHPUT, IPTOS_RELIABILITY, ...
+
+=item MSG_BCAST, MSG_OOB, MSG_TRUNC, ...
+
+=item SHUT_RD, SHUT_RDWR, SHUT_WR
+
+=item INADDR_ANY, INADDR_BROADCAST, INADDR_LOOPBACK, INADDR_NONE
+
+=item IPPROTO_IP, IPPROTO_IPV6, IPPROTO_TCP, ...
+
+=item TCP_CORK, TCP_KEEPALIVE, TCP_NODELAY, ...
+
+=item IN6ADDR_ANY, IN6ADDR_LOOPBACK
+
+=item IPV6_ADD_MEMBERSHIP, IPV6_MTU, IPV6_V6ONLY, ...
+
+=back
+
+=over 4
+
+=item STRUCTURE MANIPULATORS
+
+=back
+
+=over 4
+
+=item $family = sockaddr_family $sockaddr
+
+=item $sockaddr = pack_sockaddr_in $port, $ip_address
+
+=item ($port, $ip_address) = unpack_sockaddr_in $sockaddr
+
+=item $sockaddr = sockaddr_in $port, $ip_address
+
+=item ($port, $ip_address) = sockaddr_in $sockaddr
+
+=item $sockaddr = pack_sockaddr_in6 $port, $ip6_address, [$scope_id,
+[$flowinfo]]
+
+=item ($port, $ip6_address, $scope_id, $flowinfo) = unpack_sockaddr_in6
+$sockaddr
+
+=item $sockaddr = sockaddr_in6 $port, $ip6_address, [$scope_id,
+[$flowinfo]]
+
+=item ($port, $ip6_address, $scope_id, $flowinfo) = sockaddr_in6 $sockaddr
+
+=item $sockaddr = pack_sockaddr_un $path
+
+=item ($path) = unpack_sockaddr_un $sockaddr
+
+=item $sockaddr = sockaddr_un $path
+
+=item ($path) = sockaddr_un $sockaddr
+
+=item $ip_mreq = pack_ip_mreq $multiaddr, $interface
+
+=item ($multiaddr, $interface) = unpack_ip_mreq $ip_mreq
+
+=item $ip_mreq_source = pack_ip_mreq_source $multiaddr, $source, $interface
+
+=item ($multiaddr, $source, $interface) = unpack_ip_mreq_source $ip_mreq
+
+=item $ipv6_mreq = pack_ipv6_mreq $multiaddr6, $ifindex
+
+=item ($multiaddr6, $ifindex) = unpack_ipv6_mreq $ipv6_mreq
+
+=back
+
+=over 4
+
+=item FUNCTIONS
+
+=back
+
+=over 4
+
+=item $ip_address = inet_aton $string
+
+=item $string = inet_ntoa $ip_address
+
+=item $address = inet_pton $family, $string
+
+=item $string = inet_ntop $family, $address
+
+=item ($err, @result) = getaddrinfo $host, $service, [$hints]
+
+flags => INT, family => INT, socktype => INT, protocol => INT, family =>
+INT, socktype => INT, protocol => INT, addr => STRING, canonname => STRING,
+AI_PASSIVE, AI_CANONNAME, AI_NUMERICHOST
+
+=item ($err, $hostname, $servicename) = getnameinfo $sockaddr, [$flags,
+[$xflags]]
+
+NI_NUMERICHOST, NI_NUMERICSERV, NI_NAMEREQD, NI_DGRAM, NIx_NOHOST,
+NIx_NOSERV
+
+=back
+
+=over 4
+
+=item getaddrinfo() / getnameinfo() ERROR CONSTANTS
+
+EAI_AGAIN, EAI_BADFLAGS, EAI_FAMILY, EAI_NODATA, EAI_NONAME, EAI_SERVICE
+
+=back
+
+=over 4
+
+=item EXAMPLES
+
+=over 4
+
+=item Lookup for connect()
+
+=item Making a human-readable string out of an address
+
+=item Resolving hostnames into IP addresses
+
+=item Accessing socket options
+
+=back
+
+=back
+
+=over 4
+
+=item AUTHOR
+
+=back
+
+=head2 Storable - persistence for Perl data structures
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item MEMORY STORE
+
+=item ADVISORY LOCKING
+
+=item SPEED
+
+=item CANONICAL REPRESENTATION
+
+=item CODE REFERENCES
+
+=item FORWARD COMPATIBILITY
+
+utf8 data, restricted hashes, files from future versions of Storable
+
+=item ERROR REPORTING
+
+=item WIZARDS ONLY
+
+=over 4
+
+=item Hooks
+
+C<STORABLE_freeze> I<obj>, I<cloning>, C<STORABLE_thaw> I<obj>, I<cloning>,
+I<serialized>, .., C<STORABLE_attach> I<class>, I<cloning>, I<serialized>
+
+=item Predicates
+
+C<Storable::last_op_in_netorder>, C<Storable::is_storing>,
+C<Storable::is_retrieving>
+
+=item Recursion
+
+=item Deep Cloning
+
+=back
+
+=item Storable magic
+
+$info = Storable::file_magic( $filename ), C<version>, C<version_nv>,
+C<major>, C<minor>, C<hdrsize>, C<netorder>, C<byteorder>, C<intsize>,
+C<longsize>, C<ptrsize>, C<nvsize>, C<file>, $info = Storable::read_magic(
+$buffer ), $info = Storable::read_magic( $buffer, $must_be_file )
+
+=item EXAMPLES
+
+=item SECURITY WARNING
+
+=item WARNING
+
+=item BUGS
+
+=over 4
+
+=item 64 bit data in perl 5.6.0 and 5.6.1
+
+=back
+
+=item CREDITS
+
+=item AUTHOR
+
+=item SEE ALSO
+
+=back
+
+=head2 Sub::Util - A selection of utility subroutines for subs and CODE
+references
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=back
+
+=over 4
+
+=item FUNCTIONS
+
+=back
+
+=over 4
+
+=item prototype
+
+=back
+
+=over 4
+
+=item set_prototype
+
+=back
+
+=over 4
+
+=item subname
+
+=back
+
+=over 4
+
+=item set_subname
+
+=back
+
+=over 4
+
+=item AUTHOR
+
+=back
+
+=head2 Symbol - manipulate Perl symbols and their names
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item BUGS
+
+=back
+
+=head2 Sys::Hostname - Try every conceivable way to get hostname
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item AUTHOR
+
+=back
+
+=head2 Sys::Syslog - Perl interface to the UNIX syslog(3) calls
+
+=over 4
+
+=item VERSION
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item EXPORTS
+
+=item FUNCTIONS
+
+B<openlog($ident, $logopt, $facility)>, B<syslog($priority, $message)>,
+B<syslog($priority, $format, @args)>, B<Note>,
+B<setlogmask($mask_priority)>, B<setlogsock()>, B<Note>, B<closelog()>
+
+=item THE RULES OF SYS::SYSLOG
+
+=item EXAMPLES
+
+=item CONSTANTS
+
+=over 4
+
+=item Facilities
+
+=item Levels
+
+=back
+
+=item DIAGNOSTICS
+
+C<Invalid argument passed to setlogsock>, C<eventlog passed to setlogsock,
+but no Win32 API available>, C<no connection to syslog available>, C<stream
+passed to setlogsock, but %s is not writable>, C<stream passed to
+setlogsock, but could not find any device>, C<tcp passed to setlogsock, but
+tcp service unavailable>, C<syslog: expecting argument %s>, C<syslog:
+invalid level/facility: %s>, C<syslog: too many levels given: %s>,
+C<syslog: too many facilities given: %s>, C<syslog: level must be given>,
+C<udp passed to setlogsock, but udp service unavailable>, C<unix passed to
+setlogsock, but path not available>
+
+=item HISTORY
+
+=item SEE ALSO
+
+=over 4
+
+=item Other modules
+
+=item Manual Pages
+
+=item RFCs
+
+=item Articles
+
+=item Event Log
+
+=back
+
+=item AUTHORS & ACKNOWLEDGEMENTS
+
+=item BUGS
+
+=item SUPPORT
+
+AnnoCPAN: Annotated CPAN documentation, CPAN Ratings, RT: CPAN's request
+tracker, Search CPAN, MetaCPAN, Perl Documentation
+
+=item COPYRIGHT
+
+=item LICENSE
+
+=back
+
+=head2 TAP::Base - Base class that provides common functionality to
+L<TAP::Parser>
+and L<TAP::Harness>
+
+=over 4
+
+=item VERSION
+
+=back
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item METHODS
+
+=over 4
+
+=item Class Methods
+
+=back
+
+=back
+
+=head2 TAP::Formatter::Base - Base class for harness output delegates
+
+=over 4
+
+=item VERSION
+
+=back
+
+=over 4
+
+=item DESCRIPTION
+
+=item SYNOPSIS
+
+=back
+
+=over 4
+
+=item METHODS
+
+=over 4
+
+=item Class Methods
+
+C<verbosity>, C<verbose>, C<timer>, C<failures>, C<comments>, C<quiet>,
+C<really_quiet>, C<silent>, C<errors>, C<directives>, C<stdout>, C<color>,
+C<jobs>, C<show_count>
+
+=back
+
+=back
+
+=head2 TAP::Formatter::Color - Run Perl test scripts with color
+
+=over 4
+
+=item VERSION
+
+=back
+
+=over 4
+
+=item DESCRIPTION
+
+=item SYNOPSIS
+
+=item METHODS
+
+=over 4
+
+=item Class Methods
+
+=back
+
+=back
+
+=head2 TAP::Formatter::Console - Harness output delegate for default
+console output
+
+=over 4
+
+=item VERSION
+
+=back
+
+=over 4
+
+=item DESCRIPTION
+
+=item SYNOPSIS
+
+=over 4
+
+=item C<< open_test >>
+
+=back
+
+=back
+
+=head2 TAP::Formatter::Console::ParallelSession - Harness output delegate
+for parallel console output
+
+=over 4
+
+=item VERSION
+
+=back
+
+=over 4
+
+=item DESCRIPTION
+
+=item SYNOPSIS
+
+=back
+
+=over 4
+
+=item METHODS
+
+=over 4
+
+=item Class Methods
+
+=back
+
+=back
+
+=head2 TAP::Formatter::Console::Session - Harness output delegate for
+default console output
+
+=over 4
+
+=item VERSION
+
+=back
+
+=over 4
+
+=item DESCRIPTION
+
+=back
+
+=over 4
+
+=item C<<	clear_for_close >>
+
+=item C<<	close_test >>
+
+=item C<<	header >>
+
+=item C<<	result >>
+
+=back
+
+=head2 TAP::Formatter::File - Harness output delegate for file output
+
+=over 4
+
+=item VERSION
+
+=back
+
+=over 4
+
+=item DESCRIPTION
+
+=item SYNOPSIS
+
+=over 4
+
+=item C<< open_test >>
+
+=back
+
+=back
+
+=head2 TAP::Formatter::File::Session - Harness output delegate for file
+output
+
+=over 4
+
+=item VERSION
+
+=back
+
+=over 4
+
+=item DESCRIPTION
+
+=back
+
+=over 4
+
+=item METHODS
+
+=over 4
+
+=item result
+
+=back
+
+=back
+
+=over 4
+
+=item close_test
+
+=back
+
+=head2 TAP::Formatter::Session - Abstract base class for harness output
+delegate 
+
+=over 4
+
+=item VERSION
+
+=back
+
+=over 4
+
+=item METHODS
+
+=over 4
+
+=item Class Methods
+
+C<formatter>, C<parser>, C<name>, C<show_count>
+
+=back
+
+=back
+
+=head2 TAP::Harness - Run test scripts with statistics
+
+=over 4
+
+=item VERSION
+
+=back
+
+=over 4
+
+=item DESCRIPTION
+
+=item SYNOPSIS
+
+=back
+
+=over 4
+
+=item METHODS
+
+=over 4
+
+=item Class Methods
+
+C<verbosity>, C<timer>, C<failures>, C<comments>, C<show_count>,
+C<normalize>, C<lib>, C<switches>, C<test_args>, C<color>, C<exec>,
+C<merge>, C<sources>, C<aggregator_class>, C<version>, C<formatter_class>,
+C<multiplexer_class>, C<parser_class>, C<scheduler_class>, C<formatter>,
+C<errors>, C<directives>, C<ignore_exit>, C<jobs>, C<rules>, C<rulesfiles>,
+C<stdout>, C<trap>
+
+=back
+
+=back
+
+=over 4
+
+=item Instance Methods
+
+=back
+
+the source name of a test to run, a reference to a [ source name, display
+name ] array
+
+=over 4
+
+=item CONFIGURING
+
+=over 4
+
+=item Plugins
+
+=item C<Module::Build>
+
+=item C<ExtUtils::MakeMaker>
+
+=item C<prove>
+
+=back
+
+=item WRITING PLUGINS
+
+Customize how TAP gets into the parser, Customize how TAP results are
+output from the parser
+
+=item SUBCLASSING
+
+=over 4
+
+=item Methods
+
+L</new>, L</runtests>, L</summary>
+
+=back
+
+=back
+
+=over 4
+
+=item REPLACING
+
+=item SEE ALSO
+
+=back
+
+=head2 TAP::Harness::Beyond, Test::Harness::Beyond - Beyond make test
+
+=over 4
+
+=item Beyond make test
+
+=over 4
+
+=item Saved State
+
+=item Parallel Testing
+
+=item Non-Perl Tests
+
+=item Mixing it up
+
+=item Rolling My Own
+
+=item Deeper Customisation
+
+=item Callbacks
+
+=item Parsing TAP
+
+=item Getting Support
+
+=back
+
+=back
+
+=head2 TAP::Harness::Env - Parsing harness related environmental variables
+where appropriate
+
+=over 4
+
+=item VERSION
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item METHODS
+
+create( \%args )
+
+=item ENVIRONMENTAL VARIABLES
+
+C<HARNESS_PERL_SWITCHES>, C<HARNESS_VERBOSE>, C<HARNESS_SUBCLASS>,
+C<HARNESS_OPTIONS>, C<< j<n> >>, C<< c >>, C<< a<file.tgz> >>, C<<
+fPackage-With-Dashes >>, C<HARNESS_TIMER>, C<HARNESS_COLOR>,
+C<HARNESS_IGNORE_EXIT>
+
+=back
+
+=head2 TAP::Object - Base class that provides common functionality to all
+C<TAP::*> modules
+
+=over 4
+
+=item VERSION
+
+=back
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item METHODS
+
+=over 4
+
+=item Class Methods
+
+=back
+
+=back
+
+=over 4
+
+=item Instance Methods
+
+=back
+
+=head2 TAP::Parser - Parse L<TAP|Test::Harness::TAP> output
+
+=over 4
+
+=item VERSION
+
+=back
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item METHODS
+
+=over 4
+
+=item Class Methods
+
+C<source>, C<tap>, C<exec>, C<sources>, C<callback>, C<switches>,
+C<test_args>, C<spool>, C<merge>, C<grammar_class>,
+C<result_factory_class>, C<iterator_factory_class>
+
+=back
+
+=back
+
+=over 4
+
+=item Instance Methods
+
+=back
+
+=over 4
+
+=item INDIVIDUAL RESULTS
+
+=over 4
+
+=item Result types
+
+Version, Plan, Pragma, Test, Comment, Bailout, Unknown
+
+=item Common type methods
+
+=item C<plan> methods
+
+=item C<pragma> methods
+
+=item C<comment> methods
+
+=item C<bailout> methods
+
+=item C<unknown> methods
+
+=item C<test> methods
+
+=back
+
+=item TOTAL RESULTS
+
+=over 4
+
+=item Individual Results
+
+=back
+
+=back
+
+=over 4
+
+=item Pragmas
+
+=back
+
+=over 4
+
+=item Summary Results
+
+=back
+
+=over 4
+
+=item C<ignore_exit>
+
+=back
+
+Misplaced plan, No plan, More than one plan, Test numbers out of sequence
+
+=over 4
+
+=item CALLBACKS
+
+C<test>, C<version>, C<plan>, C<comment>, C<bailout>, C<yaml>, C<unknown>,
+C<ELSE>, C<ALL>, C<EOF>
+
+=item TAP GRAMMAR
+
+=item BACKWARDS COMPATIBILITY
+
+=over 4
+
+=item Differences
+
+TODO plans, 'Missing' tests
+
+=back
+
+=item SUBCLASSING
+
+=over 4
+
+=item Parser Components
+
+option 1, option 2
+
+=back
+
+=item ACKNOWLEDGMENTS
+
+Michael Schwern, Andy Lester, chromatic, GEOFFR, Shlomi Fish, Torsten
+Schoenfeld, Jerry Gay, Aristotle, Adam Kennedy, Yves Orton, Adrian Howard,
+Sean & Lil, Andreas J. Koenig, Florian Ragwitz, Corion, Mark Stosberg, Matt
+Kraai, David Wheeler, Alex Vandiver, Cosimo Streppone, Ville Skyttä
+
+=item AUTHORS
+
+=item BUGS
+
+=item COPYRIGHT & LICENSE
+
+=back
+
+=head2 TAP::Parser::Aggregator - Aggregate TAP::Parser results
+
+=over 4
+
+=item VERSION
+
+=back
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item METHODS
+
+=over 4
+
+=item Class Methods
+
+=back
+
+=back
+
+=over 4
+
+=item Instance Methods
+
+=back
+
+=over 4
+
+=item Summary methods
+
+failed, parse_errors, passed, planned, skipped, todo, todo_passed, wait,
+exit
+
+=back
+
+Failed tests, Parse errors, Bad exit or wait status
+
+=over 4
+
+=item See Also
+
+=back
+
+=head2 TAP::Parser::Grammar - A grammar for the Test Anything Protocol.
+
+=over 4
+
+=item VERSION
+
+=back
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item METHODS
+
+=over 4
+
+=item Class Methods
+
+=back
+
+=back
+
+=over 4
+
+=item Instance Methods
+
+=back
+
+=over 4
+
+=item TAP GRAMMAR
+
+=item SUBCLASSING
+
+=item SEE ALSO
+
+=back
+
+=head2 TAP::Parser::Iterator - Base class for TAP source iterators
+
+=over 4
+
+=item VERSION
+
+=back
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item METHODS
+
+=over 4
+
+=item Class Methods
+
+=item Instance Methods
+
+=back
+
+=back
+
+=over 4
+
+=item SUBCLASSING
+
+=over 4
+
+=item Example
+
+=back
+
+=item SEE ALSO
+
+=back
+
+=head2 TAP::Parser::Iterator::Array - Iterator for array-based TAP sources
+
+=over 4
+
+=item VERSION
+
+=back
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item METHODS
+
+=over 4
+
+=item Class Methods
+
+=item Instance Methods
+
+=back
+
+=back
+
+=over 4
+
+=item ATTRIBUTION
+
+=item SEE ALSO
+
+=back
+
+=head2 TAP::Parser::Iterator::Process - Iterator for process-based TAP
+sources
+
+=over 4
+
+=item VERSION
+
+=back
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item METHODS
+
+=over 4
+
+=item Class Methods
+
+=item Instance Methods
+
+=back
+
+=back
+
+=over 4
+
+=item ATTRIBUTION
+
+=item SEE ALSO
+
+=back
+
+=head2 TAP::Parser::Iterator::Stream - Iterator for filehandle-based TAP
+sources
+
+=over 4
+
+=item VERSION
+
+=back
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item METHODS
+
+=over 4
+
+=item Class Methods
+
+=back
+
+=back
+
+=over 4
+
+=item Instance Methods
+
+=back
+
+=over 4
+
+=item ATTRIBUTION
+
+=item SEE ALSO
+
+=back
+
+=head2 TAP::Parser::IteratorFactory - Figures out which SourceHandler
+objects to use for a given Source
+
+=over 4
+
+=item VERSION
+
+=back
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item METHODS
+
+=over 4
+
+=item Class Methods
+
+=back
+
+=back
+
+=over 4
+
+=item Instance Methods
+
+=back
+
+=over 4
+
+=item SUBCLASSING
+
+=over 4
+
+=item Example
+
+=back
+
+=item AUTHORS
+
+=item ATTRIBUTION
+
+=item SEE ALSO
+
+=back
+
+=head2 TAP::Parser::Multiplexer - Multiplex multiple TAP::Parsers
+
+=over 4
+
+=item VERSION
+
+=back
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item METHODS
+
+=over 4
+
+=item Class Methods
+
+=back
+
+=back
+
+=over 4
+
+=item Instance Methods
+
+=back
+
+=over 4
+
+=item See Also
+
+=back
+
+=head2 TAP::Parser::Result - Base class for TAP::Parser output objects
+
+=over 4
+
+=item VERSION
+
+=back
+
+=over 4
+
+=item SYNOPSIS
+
+=over 4
+
+=item DESCRIPTION
+
+=item METHODS
+
+=back
+
+=back
+
+=over 4
+
+=item Boolean methods
+
+C<is_plan>, C<is_pragma>, C<is_test>, C<is_comment>, C<is_bailout>,
+C<is_version>, C<is_unknown>, C<is_yaml>
+
+=back
+
+=over 4
+
+=item SUBCLASSING
+
+=over 4
+
+=item Example
+
+=back
+
+=item SEE ALSO
+
+=back
+
+=head2 TAP::Parser::Result::Bailout - Bailout result token.
+
+=over 4
+
+=item VERSION
+
+=back
+
+=over 4
+
+=item DESCRIPTION
+
+=item OVERRIDDEN METHODS
+
+C<as_string>
+
+=back
+
+=over 4
+
+=item Instance Methods
+
+=back
+
+=head2 TAP::Parser::Result::Comment - Comment result token.
+
+=over 4
+
+=item VERSION
+
+=back
+
+=over 4
+
+=item DESCRIPTION
+
+=item OVERRIDDEN METHODS
+
+C<as_string>
+
+=back
+
+=over 4
+
+=item Instance Methods
+
+=back
+
+=head2 TAP::Parser::Result::Plan - Plan result token.
+
+=over 4
+
+=item VERSION
+
+=back
+
+=over 4
+
+=item DESCRIPTION
+
+=item OVERRIDDEN METHODS
+
+C<as_string>, C<raw>
+
+=back
+
+=over 4
+
+=item Instance Methods
+
+=back
+
+=head2 TAP::Parser::Result::Pragma - TAP pragma token.
+
+=over 4
+
+=item VERSION
+
+=back
+
+=over 4
+
+=item DESCRIPTION
+
+=item OVERRIDDEN METHODS
+
+C<as_string>, C<raw>
+
+=back
+
+=over 4
+
+=item Instance Methods
+
+=back
+
+=head2 TAP::Parser::Result::Test - Test result token.
+
+=over 4
+
+=item VERSION
+
+=back
+
+=over 4
+
+=item DESCRIPTION
+
+=item OVERRIDDEN METHODS
+
+=over 4
+
+=item Instance Methods
+
+=back
+
+=back
+
+=head2 TAP::Parser::Result::Unknown - Unknown result token.
+
+=over 4
+
+=item VERSION
+
+=back
+
+=over 4
+
+=item DESCRIPTION
+
+=item OVERRIDDEN METHODS
+
+C<as_string>, C<raw>
+
+=back
+
+=head2 TAP::Parser::Result::Version - TAP syntax version token.
+
+=over 4
+
+=item VERSION
+
+=back
+
+=over 4
+
+=item DESCRIPTION
+
+=item OVERRIDDEN METHODS
+
+C<as_string>, C<raw>
+
+=back
+
+=over 4
+
+=item Instance Methods
+
+=back
+
+=head2 TAP::Parser::Result::YAML - YAML result token.
+
+=over 4
+
+=item VERSION
+
+=back
+
+=over 4
+
+=item DESCRIPTION
+
+=item OVERRIDDEN METHODS
+
+C<as_string>, C<raw>
+
+=back
+
+=over 4
+
+=item Instance Methods
+
+=back
+
+=head2 TAP::Parser::ResultFactory - Factory for creating TAP::Parser output
+objects
+
+=over 4
+
+=item SYNOPSIS
+
+=item VERSION
+
+=back
+
+=over 4
+
+=item DESCRIPTION
+
+=item METHODS
+
+=item Class Methods
+
+=back
+
+=over 4
+
+=item SUBCLASSING
+
+=over 4
+
+=item Example
+
+=back
+
+=item SEE ALSO
+
+=back
+
+=head2 TAP::Parser::Scheduler - Schedule tests during parallel testing
+
+=over 4
+
+=item VERSION
+
+=back
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item METHODS
+
+=over 4
+
+=item Class Methods
+
+=item Rules data structure
+
+By default, all tests are eligible to be run in parallel. Specifying any of
+your own rules removes this one, "First match wins". The first rule that
+matches a test will be the one that applies, Any test which does not match
+a rule will be run in sequence at the end of the run, The existence of a
+rule does not imply selecting a test. You must still specify the tests to
+run, Specifying a rule to allow tests to run in parallel does not make the
+run in parallel. You still need specify the number of parallel C<jobs> in
+your Harness object
+
+=back
+
+=back
+
+=over 4
+
+=item Instance Methods
+
+=back
+
+=head2 TAP::Parser::Scheduler::Job - A single testing job.
+
+=over 4
+
+=item VERSION
+
+=back
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item METHODS
+
+=over 4
+
+=item Class Methods
+
+=back
+
+=back
+
+=over 4
+
+=item Instance Methods
+
+=back
+
+=over 4
+
+=item Attributes
+
+=back
+
+=head2 TAP::Parser::Scheduler::Spinner - A no-op job.
+
+=over 4
+
+=item VERSION
+
+=back
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item METHODS
+
+=over 4
+
+=item Class Methods
+
+=back
+
+=back
+
+=over 4
+
+=item Instance Methods
+
+=back
+
+=over 4
+
+=item SEE ALSO
+
+=back
+
+=head2 TAP::Parser::Source - a TAP source & meta data about it
+
+=over 4
+
+=item VERSION
+
+=back
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item METHODS
+
+=over 4
+
+=item Class Methods
+
+=back
+
+=back
+
+=over 4
+
+=item Instance Methods
+
+=back
+
+=over 4
+
+=item AUTHORS
+
+=item SEE ALSO
+
+=back
+
+=head2 TAP::Parser::SourceHandler - Base class for different TAP source
+handlers
+
+=over 4
+
+=item VERSION
+
+=back
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item METHODS
+
+=over 4
+
+=item Class Methods
+
+=back
+
+=back
+
+=over 4
+
+=item SUBCLASSING
+
+=over 4
+
+=item Example
+
+=back
+
+=item AUTHORS
+
+=item SEE ALSO
+
+=back
+
+=head2 TAP::Parser::SourceHandler::Executable - Stream output from an
+executable TAP source
+
+=over 4
+
+=item VERSION
+
+=back
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item METHODS
+
+=over 4
+
+=item Class Methods
+
+=back
+
+=back
+
+=over 4
+
+=item SUBCLASSING
+
+=over 4
+
+=item Example
+
+=back
+
+=item SEE ALSO
+
+=back
+
+=head2 TAP::Parser::SourceHandler::File - Stream TAP from a text file.
+
+=over 4
+
+=item VERSION
+
+=back
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item METHODS
+
+=over 4
+
+=item Class Methods
+
+=back
+
+=back
+
+=over 4
+
+=item CONFIGURATION
+
+=item SUBCLASSING
+
+=item SEE ALSO
+
+=back
+
+=head2 TAP::Parser::SourceHandler::Handle - Stream TAP from an IO::Handle
+or a GLOB.
+
+=over 4
+
+=item VERSION
+
+=back
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item METHODS
+
+=over 4
+
+=item Class Methods
+
+=back
+
+=back
+
+=over 4
+
+=item SUBCLASSING
+
+=item SEE ALSO
+
+=back
+
+=head2 TAP::Parser::SourceHandler::Perl - Stream TAP from a Perl executable
+
+=over 4
+
+=item VERSION
+
+=back
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item METHODS
+
+=over 4
+
+=item Class Methods
+
+=back
+
+=back
+
+=over 4
+
+=item SUBCLASSING
+
+=over 4
+
+=item Example
+
+=back
+
+=item SEE ALSO
+
+=back
+
+=head2 TAP::Parser::SourceHandler::RawTAP - Stream output from raw TAP in a
+scalar/array ref.
+
+=over 4
+
+=item VERSION
+
+=back
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item METHODS
+
+=over 4
+
+=item Class Methods
+
+=back
+
+=back
+
+=over 4
+
+=item SUBCLASSING
+
+=item SEE ALSO
+
+=back
+
+=head2 TAP::Parser::YAMLish::Reader - Read YAMLish data from iterator
+
+=over 4
+
+=item VERSION
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item METHODS
+
+=over 4
+
+=item Class Methods
+
+=item Instance Methods
+
+=back
+
+=item AUTHOR
+
+=item SEE ALSO
+
+=item COPYRIGHT
+
+=back
+
+=head2 TAP::Parser::YAMLish::Writer - Write YAMLish data
+
+=over 4
+
+=item VERSION
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item METHODS
+
+=over 4
+
+=item Class Methods
+
+=item Instance Methods
+
+a reference to a scalar to append YAML to, the handle of an open file, a
+reference to an array into which YAML will be pushed, a code reference
+
+=back
+
+=item AUTHOR
+
+=item SEE ALSO
+
+=item COPYRIGHT
+
+=back
+
+=head2 Term::ANSIColor - Color screen output using ANSI escape sequences
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item Supported Colors
+
+=item Function Interface
+
+color(ATTR[, ATTR ...]), colored(STRING, ATTR[, ATTR ...]),
+colored(ATTR-REF, STRING[, STRING...]), uncolor(ESCAPE),
+colorstrip(STRING[, STRING ...]), colorvalid(ATTR[, ATTR ...]),
+coloralias(ALIAS[, ATTR])
+
+=item Constant Interface
+
+=item The Color Stack
+
+=back
+
+=item DIAGNOSTICS
+
+Bad color mapping %s, Bad escape sequence %s, Bareword "%s" not allowed
+while "strict subs" in use, Cannot alias standard color %s, Cannot alias
+standard color %s in %s, Invalid alias name %s, Invalid alias name %s in
+%s, Invalid attribute name %s, Invalid attribute name %s in %s, Name "%s"
+used only once: possible typo, No comma allowed after filehandle, No name
+for escape sequence %s
+
+=item ENVIRONMENT
+
+ANSI_COLORS_ALIASES, ANSI_COLORS_DISABLED
+
+=item COMPATIBILITY
+
+=item RESTRICTIONS
+
+=item NOTES
+
+=item AUTHORS
+
+=item COPYRIGHT AND LICENSE
+
+=item SEE ALSO
+
+=back
+
+=head2 Term::Cap - Perl termcap interface
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item METHODS
+
+=back
+
+=back
+
+B<Tgetent>, OSPEED, TERM
+
+B<Tpad>, B<$string>, B<$cnt>, B<$FH>
+
+B<Tputs>, B<$cap>, B<$cnt>, B<$FH>
+
+B<Tgoto>, B<$cap>, B<$col>, B<$row>, B<$FH>
+
+B<Trequire>
+
+=over 4
+
+=item EXAMPLES
+
+=item COPYRIGHT AND LICENSE
+
+=item AUTHOR
+
+=item SEE ALSO
+
+=back
+
+=head2 Term::Complete - Perl word completion module
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+E<lt>tabE<gt>, ^D, ^U, E<lt>delE<gt>, E<lt>bsE<gt>
+
+=item DIAGNOSTICS
+
+=item BUGS
+
+=item AUTHOR
+
+=back
+
+=head2 Term::ReadLine - Perl interface to various C<readline> packages.
+If no real package is found, substitutes stubs instead of basic functions.
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item Minimal set of supported functions
+
+C<ReadLine>, C<new>, C<readline>, C<addhistory>, C<IN>, C<OUT>, C<MinLine>,
+C<findConsole>, Attribs, C<Features>
+
+=item Additional supported functions
+
+C<tkRunning>, C<event_loop>, C<ornaments>, C<newTTY>
+
+=item EXPORTS
+
+=item ENVIRONMENT
+
+=back
+
+=head2 Test - provides a simple framework for writing test scripts
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item QUICK START GUIDE
+
+=over 4
+
+=item Functions
+
+C<plan(...)>, C<tests =E<gt> I<number>>, C<todo =E<gt> [I<1,5,14>]>,
+C<onfail =E<gt> sub { ... }>, C<onfail =E<gt> \&some_sub>
+
+=back
+
+=back
+
+B<_to_value>
+
+C<ok(...)>
+
+C<skip(I<skip_if_true>, I<args...>)>
+
+=over 4
+
+=item TEST TYPES
+
+NORMAL TESTS, SKIPPED TESTS, TODO TESTS
+
+=item ONFAIL
+
+=item BUGS and CAVEATS
+
+=item ENVIRONMENT
+
+=item NOTE
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=back
+
+=head2 Test::Builder - Backend for building test libraries
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item Construction
+
+B<new>
+
+=back
+
+=back
+
+B<create>
+
+B<child>
+
+B<subtest>
+
+B<_plan_handled>, Explicitly setting the number of tests, Setting
+'no_plan', Set 'skip_all'
+
+B<finalize>
+
+B<parent>
+
+B<name>
+
+B<reset>
+
+=over 4
+
+=item Setting up tests
+
+B<plan>
+
+=back
+
+B<expected_tests>
+
+B<no_plan>
+
+B<_output_plan>
+
+B<done_testing>
+
+B<has_plan>
+
+B<skip_all>
+
+B<exported_to>
+
+=over 4
+
+=item Running tests
+
+B<ok>
+
+=back
+
+B<is_eq>, B<is_num>
+
+B<isnt_eq>, B<isnt_num>
+
+B<like>, B<unlike>
+
+B<cmp_ok>
+
+=over 4
+
+=item Other Testing Methods
+
+B<BAIL_OUT>
+
+=back
+
+B<skip>
+
+B<todo_skip>
+
+B<skip_rest>
+
+=over 4
+
+=item Test building utility methods
+
+B<maybe_regex>
+
+=back
+
+B<_try>
+
+B<is_fh>
+
+=over 4
+
+=item Test style
+
+B<level>
+
+=back
+
+B<use_numbers>
+
+B<no_diag>, B<no_ending>, B<no_header>
+
+=over 4
+
+=item Output
+
+B<diag>
+
+=back
+
+B<note>
+
+B<explain>
+
+B<_print>
+
+B<output>, B<failure_output>, B<todo_output>
+
+reset_outputs
+
+carp, croak
+
+=over 4
+
+=item Test Status and Info
+
+B<current_test>
+
+=back
+
+B<is_passing>
+
+B<summary>
+
+B<details>
+
+B<todo>
+
+B<find_TODO>
+
+B<in_todo>
+
+B<todo_start>
+
+C<todo_end>
+
+B<caller>
+
+B<_sanity_check>
+
+B<_whoa>
+
+B<_my_exit>
+
+=over 4
+
+=item EXIT CODES
+
+=item THREADS
+
+=item MEMORY
+
+=item EXAMPLES
+
+=item SEE ALSO
+
+=item AUTHORS
+
+=item MAINTAINERS
+
+Chad Granum E<lt>exodist@cpan.orgE<gt>
+
+=item COPYRIGHT
+
+=back
+
+=head2 Test::Builder::IO::Scalar - A copy of IO::Scalar for Test::Builder
+
+=over 4
+
+=item DESCRIPTION
+
+=item COPYRIGHT and LICENSE
+
+=back
+
+=over 4
+
+=item Construction
+
+=back
+
+new [ARGS...]
+
+open [SCALARREF]
+
+opened
+
+close
+
+=over 4
+
+=item Input and output
+
+=back
+
+flush
+
+getc
+
+getline
+
+getlines
+
+print ARGS..
+
+read BUF, NBYTES, [OFFSET]
+
+write BUF, NBYTES, [OFFSET]
+
+sysread BUF, LEN, [OFFSET]
+
+syswrite BUF, NBYTES, [OFFSET]
+
+=over 4
+
+=item Seeking/telling and other attributes
+
+=back
+
+autoflush
+
+binmode
+
+clearerr
+
+eof
+
+seek OFFSET, WHENCE
+
+sysseek OFFSET, WHENCE
+
+tell
+
+ use_RS [YESNO]
+
+setpos POS
+
+getpos
+
+sref
+
+=over 4
+
+=item WARNINGS
+
+=item VERSION
+
+=item AUTHORS
+
+=over 4
+
+=item Primary Maintainer
+
+=item Principal author
+
+=item Other contributors
+
+=back
+
+=item SEE ALSO
+
+=back
+
+=head2 Test::Builder::Module - Base class for test modules
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item Importing
+
+=back
+
+=back
+
+=over 4
+
+=item Builder
+
+=back
+
+=head2 Test::Builder::Tester - test testsuites that have been built with
+Test::Builder
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=back
+
+=over 4
+
+=item Functions
+
+test_out, test_err
+
+=back
+
+test_fail
+
+test_diag
+
+test_test, title (synonym 'name', 'label'), skip_out, skip_err
+
+line_num
+
+color
+
+=over 4
+
+=item BUGS
+
+=item AUTHOR
+
+=item MAINTAINERS
+
+Chad Granum E<lt>exodist@cpan.orgE<gt>
+
+=item NOTES
+
+=item SEE ALSO
+
+=back
+
+=head2 Test::Builder::Tester::Color - turn on colour in
+Test::Builder::Tester
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=back
+
+=over 4
+
+=item AUTHOR
+
+=item BUGS
+
+=item SEE ALSO
+
+=back
+
+=head2 Test::Harness - Run Perl standard test scripts with statistics
+
+=over 4
+
+=item VERSION
+
+=back
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item FUNCTIONS
+
+=over 4
+
+=item runtests( @test_files )
+
+=back
+
+=back
+
+=over 4
+
+=item execute_tests( tests => \@test_files, out => \*FH )
+
+=back
+
+=over 4
+
+=item EXPORT
+
+=item ENVIRONMENT VARIABLES THAT TAP::HARNESS::COMPATIBLE SETS
+
+C<HARNESS_ACTIVE>, C<HARNESS_VERSION>
+
+=item ENVIRONMENT VARIABLES THAT AFFECT TEST::HARNESS
+
+C<HARNESS_PERL_SWITCHES>, C<HARNESS_TIMER>, C<HARNESS_VERBOSE>,
+C<HARNESS_OPTIONS>, C<< j<n> >>, C<< c >>, C<< a<file.tgz> >>, C<<
+fPackage-With-Dashes >>, C<HARNESS_SUBCLASS>,
+C<HARNESS_SUMMARY_COLOR_SUCCESS>, C<HARNESS_SUMMARY_COLOR_FAIL>
+
+=item Taint Mode
+
+=item SEE ALSO
+
+=item BUGS
+
+=item AUTHORS
+
+=item LICENCE AND COPYRIGHT
+
+=back
+
+=head2 Test::More - yet another framework for writing test scripts
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item I love it when a plan comes together
+
+=back
+
+=back
+
+B<done_testing>
+
+=over 4
+
+=item Test names
+
+=item I'm ok, you're not ok.
+
+B<ok>
+
+=back
+
+B<is>, B<isnt>
+
+B<like>
+
+B<unlike>
+
+B<cmp_ok>
+
+B<can_ok>
+
+B<isa_ok>
+
+B<new_ok>
+
+B<subtest>
+
+B<pass>, B<fail>
+
+=over 4
+
+=item Module tests
+
+B<require_ok>
+
+=back
+
+B<use_ok>
+
+=over 4
+
+=item Complex data structures
+
+B<is_deeply>
+
+=back
+
+=over 4
+
+=item Diagnostics
+
+B<diag>, B<note>
+
+=back
+
+B<explain>
+
+=over 4
+
+=item Conditional tests
+
+B<SKIP: BLOCK>
+
+=back
+
+B<TODO: BLOCK>, B<todo_skip>
+
+When do I use SKIP vs. TODO?
+
+=over 4
+
+=item Test control
+
+B<BAIL_OUT>
+
+=back
+
+=over 4
+
+=item Discouraged comparison functions
+
+B<eq_array>
+
+=back
+
+B<eq_hash>
+
+B<eq_set>
+
+=over 4
+
+=item Extending and Embedding Test::More
+
+B<builder>
+
+=back
+
+=over 4
+
+=item EXIT CODES
+
+=item COMPATIBILITY
+
+subtests, C<done_testing()>, C<cmp_ok()>, C<new_ok()> C<note()> and
+C<explain()>
+
+=item CAVEATS and NOTES
+
+utf8 / "Wide character in print", Overloaded objects, Threads
+
+=item HISTORY
+
+=item SEE ALSO
+
+=over 4
+
+=item ALTERNATIVES
+
+=item TESTING FRAMEWORKS
+
+=item ADDITIONAL LIBRARIES
+
+=item OTHER COMPONENTS
+
+=item BUNDLES
+
+=back
+
+=item AUTHORS
+
+=item MAINTAINERS
+
+Chad Granum E<lt>exodist@cpan.orgE<gt>
+
+=item BUGS
+
+=item SOURCE
+
+=item COPYRIGHT
+
+=back
+
+=head2 Test::Simple - Basic utilities for writing tests.
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+B<ok>
+
+=back
+
+=over 4
+
+=item EXAMPLE
+
+=item CAVEATS
+
+=item NOTES
+
+=item HISTORY
+
+=item SEE ALSO
+
+L<Test::More>
+
+=item AUTHORS
+
+=item MAINTAINERS
+
+Chad Granum E<lt>exodist@cpan.orgE<gt>
+
+=item COPYRIGHT
+
+=back
+
+=head2 Test::Tester - Ease testing test modules built with Test::Builder
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item HOW TO USE (THE EASY WAY)
+
+=item HOW TO USE (THE HARD WAY)
+
+=item TEST RESULTS
+
+ok, actual_ok, name, type, reason, diag, depth
+
+=item SPACES AND TABS
+
+=item COLOUR
+
+=item EXPORTED FUNCTIONS
+
+=item HOW IT WORKS
+
+=item CAVEATS
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=item LICENSE
+
+=back
+
+=head2 Test::Tester::Capture - Help testing test modules built with
+Test::Builder
+
+=over 4
+
+=item DESCRIPTION
+
+=item AUTHOR
+
+=item LICENSE
+
+=back
+
+=head2 Test::Tester::CaptureRunner - Help testing test modules built with
+Test::Builder
+
+=over 4
+
+=item DESCRIPTION
+
+=item AUTHOR
+
+=item LICENSE
+
+=back
+
+=head2 Test::Tutorial - A tutorial about writing really basic tests
+
+=over 4
+
+=item DESCRIPTION
+
+=over 4
+
+=item Nuts and bolts of testing.
+
+=item Where to start?
+
+=item Names
+
+=item Test the manual
+
+=item Sometimes the tests are wrong
+
+=item Testing lots of values
+
+=item Informative names
+
+=item Skipping tests
+
+=item Todo tests
+
+=item Testing with taint mode.
+
+=back
+
+=item FOOTNOTES
+
+=item AUTHORS
+
+=item MAINTAINERS
+
+Chad Granum E<lt>exodist@cpan.orgE<gt>
+
+=item COPYRIGHT
+
+=back
+
+=head2 Test::use::ok - Alternative to Test::More::use_ok
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item SEE ALSO
+
+=item MAINTAINER
+
+Chad Granum E<lt>exodist@cpan.orgE<gt>
+
+=item CC0 1.0 Universal
+
+=back
+
+=head2 Text::Abbrev - abbrev - create an abbreviation table from a list
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item EXAMPLE
+
+=back
+
+=head2 Text::Balanced - Extract delimited text sequences from strings.
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item General behaviour in list contexts
+
+[0], [1], [2]
+
+=item General behaviour in scalar and void contexts
+
+=item A note about prefixes
+
+=item C<extract_delimited>
+
+=item C<extract_bracketed>
+
+=item C<extract_variable>
+
+[0], [1], [2]
+
+=item C<extract_tagged>
+
+C<reject =E<gt> $listref>, C<ignore =E<gt> $listref>, C<fail =E<gt> $str>,
+[0], [1], [2], [3], [4], [5]
+
+=item C<gen_extract_tagged>
+
+=item C<extract_quotelike>
+
+[0], [1], [2], [3], [4], [5], [6], [7], [8], [9], [10]
+
+=item C<extract_quotelike> and "here documents"
+
+[0], [1], [2], [3], [4], [5], [6], [7..10]
+
+=item C<extract_codeblock>
+
+=item C<extract_multiple>
+
+=item C<gen_delimited_pat>
+
+=item C<delimited_pat>
+
+=back
+
+=item DIAGNOSTICS
+
+ C<Did not find a suitable bracket: "%s">,  C<Did not find prefix: /%s/>, 
+C<Did not find opening bracket after prefix: "%s">,  C<No quotelike
+operator found after prefix: "%s">,  C<Unmatched closing bracket: "%c">, 
+C<Unmatched opening bracket(s): "%s">, C<Unmatched embedded quote (%s)>,
+C<Did not find closing delimiter to match '%s'>,  C<Mismatched closing
+bracket: expected "%c" but found "%s">,  C<No block delimiter found after
+quotelike "%s">, C<Did not find leading dereferencer>, C<Bad identifier
+after dereferencer>, C<Did not find expected opening bracket at %s>,
+C<Improperly nested codeblock at %s>,  C<Missing second block for quotelike
+"%s">, C<No match found for opening bracket>, C<Did not find opening tag:
+/%s/>, C<Unable to construct closing tag to match: /%s/>, C<Found invalid
+nested tag: %s>, C<Found unbalanced nested tag: %s>, C<Did not find closing
+tag>
+
+=item AUTHOR
+
+=item BUGS AND IRRITATIONS
+
+=item COPYRIGHT
+
+=back
+
+=head2 Text::ParseWords - parse text into an array of tokens or array of
+arrays
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item EXAMPLES
+
+0Z<>, 1Z<>, 2Z<>, 3Z<>, 4Z<>, 5Z<>
+
+=item SEE ALSO
+
+=item AUTHORS
+
+=item COPYRIGHT AND LICENSE
+
+=back
+
+=head2 Text::Tabs - expand and unexpand tabs like unix expand(1) and
+unexpand(1)
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item EXPORTS
+
+expand, unexpand, $tabstop
+
+=item EXAMPLE
+
+=item SUBVERSION
+
+=item BUGS
+
+=item LICENSE
+
+=back
+
+=head2 Text::Wrap - line wrapping to form simple paragraphs
+
+=over 4
+
+=item SYNOPSIS 
+
+=item DESCRIPTION
+
+=item OVERRIDES
+
+=item EXAMPLES
+
+=item SUBVERSION
+
+=item SEE ALSO
+
+=item AUTHOR
+
+=item LICENSE
+
+=back
+
+=head2 Thread - Manipulate threads in Perl (for old code only)
+
+=over 4
+
+=item DEPRECATED
+
+=item HISTORY
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item FUNCTIONS
+
+$thread = Thread->new(\&start_sub), $thread = Thread->new(\&start_sub,
+LIST), lock VARIABLE, async BLOCK;, Thread->self, Thread->list, cond_wait
+VARIABLE, cond_signal VARIABLE, cond_broadcast VARIABLE, yield
+
+=item METHODS
+
+join, detach, equal, tid, done
+
+=item DEFUNCT
+
+lock(\&sub), eval, flags
+
+=item SEE ALSO
+
+=back
+
+=head2 Thread::Queue - Thread-safe queues
+
+=over 4
+
+=item VERSION
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+Ordinary scalars, Array refs, Hash refs, Scalar refs, Objects based on the
+above
+
+=item QUEUE CREATION
+
+->new(), ->new(LIST)
+
+=item BASIC METHODS
+
+->enqueue(LIST), ->dequeue(), ->dequeue(COUNT), ->dequeue_nb(),
+->dequeue_nb(COUNT), ->dequeue_timed(TIMEOUT), ->dequeue_timed(TIMEOUT,
+COUNT), ->pending(), ->limit, ->end()
+
+=item ADVANCED METHODS
+
+->peek(), ->peek(INDEX), ->insert(INDEX, LIST), ->extract(),
+->extract(INDEX), ->extract(INDEX, COUNT)
+
+=item NOTES
+
+=item LIMITATIONS
+
+=item SEE ALSO
+
+=item MAINTAINER
+
+=item LICENSE
+
+=back
+
+=head2 Thread::Semaphore - Thread-safe semaphores
+
+=over 4
+
+=item VERSION
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item METHODS
+
+->new(), ->new(NUMBER), ->down(), ->down(NUMBER), ->down_nb(),
+->down_nb(NUMBER), ->down_force(), ->down_force(NUMBER), ->up(),
+->up(NUMBER)
+
+=item NOTES
+
+=item SEE ALSO
+
+=item MAINTAINER
+
+=item LICENSE
+
+=back
+
+=head2 Tie::Array - base class for tied arrays
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+TIEARRAY classname, LIST, STORE this, index, value, FETCH this, index,
+FETCHSIZE this, STORESIZE this, count, EXTEND this, count, EXISTS this,
+key, DELETE this, key, CLEAR this, DESTROY this, PUSH this, LIST, POP this,
+SHIFT this, UNSHIFT this, LIST, SPLICE this, offset, length, LIST
+
+=item CAVEATS
+
+=item AUTHOR
+
+=back
+
+=head2 Tie::File - Access the lines of a disk file via a Perl array
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item C<recsep>
+
+=item C<autochomp>
+
+=item C<mode>
+
+=item C<memory>
+
+=item C<dw_size>
+
+=item Option Format
+
+=back
+
+=item Public Methods
+
+=over 4
+
+=item C<flock>
+
+=item C<autochomp>
+
+=item C<defer>, C<flush>, C<discard>, and C<autodefer>
+
+=item C<offset>
+
+=back
+
+=item Tying to an already-opened filehandle
+
+=item Deferred Writing
+
+=over 4
+
+=item Autodeferring
+
+=back
+
+=item CONCURRENT ACCESS TO FILES
+
+=item CAVEATS
+
+=item SUBCLASSING
+
+=item WHAT ABOUT C<DB_File>?
+
+=item AUTHOR
+
+=item LICENSE
+
+=item WARRANTY
+
+=item THANKS
+
+=item TODO
+
+=back
+
+=head2 Tie::Handle - base class definitions for tied handles
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+TIEHANDLE classname, LIST, WRITE this, scalar, length, offset, PRINT this,
+LIST, PRINTF this, format, LIST, READ this, scalar, length, offset,
+READLINE this, GETC this, CLOSE this, OPEN this, filename, BINMODE this,
+EOF this, TELL this, SEEK this, offset, whence, DESTROY this
+
+=item MORE INFORMATION
+
+=item COMPATIBILITY
+
+=back
+
+=head2 Tie::Hash, Tie::StdHash, Tie::ExtraHash - base class definitions for
+tied hashes
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+TIEHASH classname, LIST, STORE this, key, value, FETCH this, key, FIRSTKEY
+this, NEXTKEY this, lastkey, EXISTS this, key, DELETE this, key, CLEAR
+this, SCALAR this
+
+=item Inheriting from B<Tie::StdHash>
+
+=item Inheriting from B<Tie::ExtraHash>
+
+=item C<SCALAR>, C<UNTIE> and C<DESTROY>
+
+=item MORE INFORMATION
+
+=back
+
+=head2 Tie::Hash::NamedCapture - Named regexp capture buffers
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item SEE ALSO
+
+=back
+
+=head2 Tie::Memoize - add data to hash when needed
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item Inheriting from B<Tie::Memoize>
+
+=item EXAMPLE
+
+=item BUGS
+
+=item AUTHOR
+
+=back
+
+=head2 Tie::RefHash - use references as hash keys
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item EXAMPLE
+
+=item THREAD SUPPORT
+
+=item STORABLE SUPPORT
+
+=item RELIC SUPPORT
+
+=item LICENSE
+
+=item MAINTAINER
+
+=item AUTHOR
+
+=item SEE ALSO
+
+=back
+
+=head2 Tie::Scalar, Tie::StdScalar - base class definitions for tied
+scalars
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+TIESCALAR classname, LIST, FETCH this, STORE this, value, DESTROY this
+
+=over 4
+
+=item Tie::Scalar vs Tie::StdScalar
+
+=back
+
+=item MORE INFORMATION
+
+=back
+
+=head2 Tie::StdHandle - base class definitions for tied handles
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=back
+
+=head2 Tie::SubstrHash - Fixed-table-size, fixed-key-length hashing
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item CAVEATS
+
+=back
+
+=head2 Time::HiRes - High resolution alarm, sleep, gettimeofday, interval
+timers
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+gettimeofday (), usleep ( $useconds ), nanosleep ( $nanoseconds ), ualarm (
+$useconds [, $interval_useconds ] ), tv_interval, time (), sleep (
+$floating_seconds ), alarm ( $floating_seconds [,
+$interval_floating_seconds ] ), setitimer ( $which, $floating_seconds [,
+$interval_floating_seconds ] ), getitimer ( $which ), clock_gettime (
+$which ), clock_getres ( $which ), clock_nanosleep ( $which, $nanoseconds,
+$flags = 0), clock(), stat, stat FH, stat EXPR, lstat, lstat FH, lstat EXPR
+
+=item EXAMPLES
+
+=item C API
+
+=item DIAGNOSTICS
+
+=over 4
+
+=item useconds or interval more than ...
+
+=item negative time not invented yet
+
+=item internal error: useconds < 0 (unsigned ... signed ...)
+
+=item useconds or uinterval equal to or more than 1000000
+
+=item unimplemented in this platform
+
+=back
+
+=item CAVEATS
+
+=item SEE ALSO
+
+=item AUTHORS
+
+=item COPYRIGHT AND LICENSE
+
+=back
+
+=head2 Time::Local - efficiently compute time from local and GMT time
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item FUNCTIONS
+
+=over 4
+
+=item C<timelocal()> and C<timegm()>
+
+=item C<timelocal_nocheck()> and C<timegm_nocheck()>
+
+=item Year Value Interpretation
+
+=item Limits of time_t
+
+=item Ambiguous Local Times (DST)
+
+=item Non-Existent Local Times (DST)
+
+=item Negative Epoch Values
+
+=back
+
+=item IMPLEMENTATION
+
+=item BUGS
+
+=item SUPPORT
+
+=item COPYRIGHT
+
+=item AUTHOR
+
+=back
+
+=head2 Time::Piece - Object Oriented time objects
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item USAGE
+
+=over 4
+
+=item Local Locales
+
+=item Date Calculations
+
+=item Date Comparisons
+
+=item Date Parsing
+
+=item YYYY-MM-DDThh:mm:ss
+
+=item Week Number
+
+=item Global Overriding
+
+=back
+
+=item CAVEATS
+
+=over 4
+
+=item Setting $ENV{TZ} in Threads on Win32
+
+=item Use of epoch seconds
+
+=back
+
+=item AUTHOR
+
+=item COPYRIGHT AND LICENSE
+
+=item SEE ALSO
+
+=item BUGS
+
+=back
+
+=head2 Time::Seconds - a simple API to convert seconds to other date values
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item METHODS
+
+=item AUTHOR
+
+=item COPYRIGHT AND LICENSE
+
+=item Bugs
+
+=back
+
+=head2 Time::gmtime - by-name interface to Perl's built-in gmtime()
+function
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item NOTE
+
+=item AUTHOR
+
+=back
+
+=head2 Time::localtime - by-name interface to Perl's built-in localtime()
+function
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item NOTE
+
+=item AUTHOR
+
+=back
+
+=head2 Time::tm - internal object used by Time::gmtime and Time::localtime
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item AUTHOR
+
+=back
+
+=head2 UNIVERSAL - base class for ALL classes (blessed references)
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+C<< $obj->isa( TYPE ) >>, C<< CLASS->isa( TYPE ) >>, C<< eval { VAL->isa(
+TYPE ) } >>, C<TYPE>, C<$obj>, C<CLASS>, C<VAL>, C<< $obj->DOES( ROLE ) >>,
+C<< CLASS->DOES( ROLE ) >>, C<< $obj->can( METHOD ) >>, C<< CLASS->can(
+METHOD ) >>, C<< eval { VAL->can( METHOD ) } >>, C<VERSION ( [ REQUIRE ] )>
+
+=item WARNINGS
+
+=item EXPORTS
+
+=back
+
+=head2 Unicode::Collate - Unicode Collation Algorithm
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item Constructor and Tailoring
+
+UCA_Version, alternate, backwards, entry, hangul_terminator, highestFFFF,
+identical, ignoreChar, ignoreName, ignore_level2, katakana_before_hiragana,
+level, long_contraction, minimalFFFE, normalization, overrideCJK,
+overrideHangul, overrideOut, preprocess, rearrange, rewrite, suppress,
+table, undefChar, undefName, upper_before_lower, variable
+
+=item Methods for Collation
+
+C<@sorted = $Collator-E<gt>sort(@not_sorted)>, C<$result =
+$Collator-E<gt>cmp($a, $b)>, C<$result = $Collator-E<gt>eq($a, $b)>,
+C<$result = $Collator-E<gt>ne($a, $b)>, C<$result = $Collator-E<gt>lt($a,
+$b)>, C<$result = $Collator-E<gt>le($a, $b)>, C<$result =
+$Collator-E<gt>gt($a, $b)>, C<$result = $Collator-E<gt>ge($a, $b)>,
+C<$sortKey = $Collator-E<gt>getSortKey($string)>, C<$sortKeyForm =
+$Collator-E<gt>viewSortKey($string)>
+
+=item Methods for Searching
+
+C<$position = $Collator-E<gt>index($string, $substring[, $position])>,
+C<($position, $length) = $Collator-E<gt>index($string, $substring[,
+$position])>, C<$match_ref = $Collator-E<gt>match($string, $substring)>,
+C<($match)   = $Collator-E<gt>match($string, $substring)>, C<@match =
+$Collator-E<gt>gmatch($string, $substring)>, C<$count =
+$Collator-E<gt>subst($string, $substring, $replacement)>, C<$count =
+$Collator-E<gt>gsubst($string, $substring, $replacement)>
+
+=item Other Methods
+
+C<%old_tailoring = $Collator-E<gt>change(%new_tailoring)>,
+C<$modified_collator = $Collator-E<gt>change(%new_tailoring)>, C<$version =
+$Collator-E<gt>version()>, C<UCA_Version()>, C<Base_Unicode_Version()>
+
+=back
+
+=item EXPORT
+
+=item INSTALL
+
+=item CAVEATS
+
+Normalization, Conformance Test
+
+=item AUTHOR, COPYRIGHT AND LICENSE
+
+=item SEE ALSO
+
+Unicode Collation Algorithm - UTS #10, The Default Unicode Collation
+Element Table (DUCET), The conformance test for the UCA, Hangul Syllable
+Type, Unicode Normalization Forms - UAX #15, Unicode Locale Data Markup
+Language (LDML) - UTS #35
+
+=back
+
+=head2 Unicode::Collate::CJK::Big5 - weighting CJK Unified Ideographs
+for Unicode::Collate
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item SEE ALSO
+
+CLDR - Unicode Common Locale Data Repository, Unicode Locale Data Markup
+Language (LDML) - UTS #35, L<Unicode::Collate>, L<Unicode::Collate::Locale>
+
+=back
+
+=head2 Unicode::Collate::CJK::GB2312 - weighting CJK Unified Ideographs
+for Unicode::Collate
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item CAVEAT
+
+=item SEE ALSO
+
+CLDR - Unicode Common Locale Data Repository, Unicode Locale Data Markup
+Language (LDML) - UTS #35, L<Unicode::Collate>, L<Unicode::Collate::Locale>
+
+=back
+
+=head2 Unicode::Collate::CJK::JISX0208 - weighting JIS KANJI for
+Unicode::Collate
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item SEE ALSO
+
+L<Unicode::Collate>, L<Unicode::Collate::Locale>
+
+=back
+
+=head2 Unicode::Collate::CJK::Korean - weighting CJK Unified Ideographs
+for Unicode::Collate
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item SEE ALSO
+
+CLDR - Unicode Common Locale Data Repository, Unicode Locale Data Markup
+Language (LDML) - UTS #35, L<Unicode::Collate>, L<Unicode::Collate::Locale>
+
+=back
+
+=head2 Unicode::Collate::CJK::Pinyin - weighting CJK Unified Ideographs
+for Unicode::Collate
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item CAVEAT
+
+=item SEE ALSO
+
+CLDR - Unicode Common Locale Data Repository, Unicode Locale Data Markup
+Language (LDML) - UTS #35, L<Unicode::Collate>, L<Unicode::Collate::Locale>
+
+=back
+
+=head2 Unicode::Collate::CJK::Stroke - weighting CJK Unified Ideographs
+for Unicode::Collate
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item CAVEAT
+
+=item SEE ALSO
+
+CLDR - Unicode Common Locale Data Repository, Unicode Locale Data Markup
+Language (LDML) - UTS #35, L<Unicode::Collate>, L<Unicode::Collate::Locale>
+
+=back
+
+=head2 Unicode::Collate::CJK::Zhuyin - weighting CJK Unified Ideographs
+for Unicode::Collate
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item CAVEAT
+
+=item SEE ALSO
+
+CLDR - Unicode Common Locale Data Repository, Unicode Locale Data Markup
+Language (LDML) - UTS #35, L<Unicode::Collate>, L<Unicode::Collate::Locale>
+
+=back
+
+=head2 Unicode::Collate::Locale - Linguistic tailoring for DUCET via
+Unicode::Collate
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item Constructor
+
+=item Methods
+
+C<$Collator-E<gt>getlocale>, C<$Collator-E<gt>locale_version>
+
+=item A list of tailorable locales
+
+=back
+
+=item INSTALL
+
+=item CAVEAT
+
+tailoring is not maximum
+
+=item AUTHOR
+
+=item SEE ALSO
+
+Unicode Collation Algorithm - UTS #10, The Default Unicode Collation
+Element Table (DUCET), Unicode Locale Data Markup Language (LDML) - UTS
+#35, CLDR - Unicode Common Locale Data Repository, L<Unicode::Collate>,
+L<Unicode::Normalize>
+
+=back
+
+=head2 Unicode::Normalize - Unicode Normalization Forms
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item Normalization Forms
+
+C<$NFD_string = NFD($string)>, C<$NFC_string = NFC($string)>,
+C<$NFKD_string = NFKD($string)>, C<$NFKC_string = NFKC($string)>,
+C<$FCD_string = FCD($string)>, C<$FCC_string = FCC($string)>,
+C<$normalized_string = normalize($form_name, $string)>
+
+=item Decomposition and Composition
+
+C<$decomposed_string = decompose($string [, $useCompatMapping])>,
+C<$reordered_string = reorder($string)>, C<$composed_string =
+compose($string)>, C<($processed, $unprocessed) =
+splitOnLastStarter($normalized)>, C<$processed = normalize_partial($form,
+$unprocessed)>, C<$processed = NFD_partial($unprocessed)>, C<$processed =
+NFC_partial($unprocessed)>, C<$processed = NFKD_partial($unprocessed)>,
+C<$processed = NFKC_partial($unprocessed)>
+
+=item Quick Check
+
+C<$result = checkNFD($string)>, C<$result = checkNFC($string)>, C<$result =
+checkNFKD($string)>, C<$result = checkNFKC($string)>, C<$result =
+checkFCD($string)>, C<$result = checkFCC($string)>, C<$result =
+check($form_name, $string)>
+
+=item Character Data
+
+C<$canonical_decomposition = getCanon($code_point)>,
+C<$compatibility_decomposition = getCompat($code_point)>,
+C<$code_point_composite = getComposite($code_point_here,
+$code_point_next)>, C<$combining_class = getCombinClass($code_point)>,
+C<$may_be_composed_with_prev_char = isComp2nd($code_point)>,
+C<$is_exclusion = isExclusion($code_point)>, C<$is_singleton =
+isSingleton($code_point)>, C<$is_non_starter_decomposition =
+isNonStDecomp($code_point)>, C<$is_Full_Composition_Exclusion =
+isComp_Ex($code_point)>, C<$NFD_is_NO = isNFD_NO($code_point)>,
+C<$NFC_is_NO = isNFC_NO($code_point)>, C<$NFC_is_MAYBE =
+isNFC_MAYBE($code_point)>, C<$NFKD_is_NO = isNFKD_NO($code_point)>,
+C<$NFKC_is_NO = isNFKC_NO($code_point)>, C<$NFKC_is_MAYBE =
+isNFKC_MAYBE($code_point)>
+
+=back
+
+=item EXPORT
+
+=item CAVEATS
+
+Perl's version vs. Unicode version, Correction of decomposition mapping,
+Revised definition of canonical composition
+
+=item AUTHOR
+
+=item LICENSE
+
+=item SEE ALSO
+
+http://www.unicode.org/reports/tr15/,
+http://www.unicode.org/Public/UNIDATA/CompositionExclusions.txt,
+http://www.unicode.org/Public/UNIDATA/DerivedNormalizationProps.txt,
+http://www.unicode.org/Public/UNIDATA/NormalizationCorrections.txt,
+http://www.unicode.org/review/pr-29.html, http://www.unicode.org/notes/tn5/
+
+=back
+
+=head2 Unicode::UCD - Unicode character database
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item code point argument
+
+=back
+
+=back
+
+=over 4
+
+=item B<charinfo()>
+
+B<code>, B<name>, B<category>, B<combining>, B<bidi>, B<decomposition>,
+B<decimal>, B<digit>, B<numeric>, B<mirrored>, B<unicode10>, B<comment>,
+B<upper>, B<lower>, B<title>, B<block>, B<script>
+
+=back
+
+=over 4
+
+=item B<charprop()>
+
+Block, Decomposition_Mapping, Name_Alias, Numeric_Value, Script_Extensions
+
+=back
+
+=over 4
+
+=item B<charprops_all()>
+
+=back
+
+=over 4
+
+=item B<charblock()>
+
+=back
+
+=over 4
+
+=item B<charscript()>
+
+=back
+
+=over 4
+
+=item B<charblocks()>
+
+=back
+
+=over 4
+
+=item B<charscripts()>
+
+=back
+
+=over 4
+
+=item B<charinrange()>
+
+=back
+
+=over 4
+
+=item B<general_categories()>
+
+=back
+
+=over 4
+
+=item B<bidi_types()>
+
+=back
+
+=over 4
+
+=item B<compexcl()>
+
+=back
+
+=over 4
+
+=item B<casefold()>
+
+B<code>, B<full>, B<simple>, B<mapping>, B<status>, Z<>B<*> If you use this
+C<I> mapping, Z<>B<*> If you exclude this C<I> mapping, B<turkic>
+
+=back
+
+=over 4
+
+=item B<all_casefolds()>
+
+=back
+
+=over 4
+
+=item B<casespec()>
+
+B<code>, B<lower>, B<title>, B<upper>, B<condition>
+
+=back
+
+=over 4
+
+=item B<namedseq()>
+
+=back
+
+=over 4
+
+=item B<num()>
+
+=back
+
+=over 4
+
+=item B<prop_aliases()>
+
+=back
+
+=over 4
+
+=item B<prop_values()>
+
+=back
+
+=over 4
+
+=item B<prop_value_aliases()>
+
+=back
+
+=over 4
+
+=item B<prop_invlist()>
+
+=back
+
+=over 4
+
+=item B<prop_invmap()>
+
+B<C<s>>, B<C<sl>>, C<correction>, C<control>, C<alternate>, C<figment>,
+C<abbreviation>, B<C<a>>, B<C<al>>, B<C<ae>>, B<C<ale>>, B<C<ar>>, B<C<n>>,
+B<C<ad>>
+
+=back
+
+=over 4
+
+=item B<search_invlist()>
+
+=back
+
+=over 4
+
+=item Unicode::UCD::UnicodeVersion
+
+=back
+
+=over 4
+
+=item B<Blocks versus Scripts>
+
+=item B<Matching Scripts and Blocks>
+
+=item Old-style versus new-style block names
+
+=item Use with older Unicode versions
+
+=back
+
+=over 4
+
+=item AUTHOR
+
+=back
+
+=head2 User::grent - by-name interface to Perl's built-in getgr*()
+functions
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=item NOTE
+
+=item AUTHOR
+
+=back
+
+=head2 User::pwent - by-name interface to Perl's built-in getpw*()
+functions
+
+=over 4
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item System Specifics
+
+=back
+
+=item NOTE
+
+=item AUTHOR
+
+=item HISTORY
+
+March 18th, 2000
+
+=back
+
+=head2 XSLoader - Dynamically load C libraries into Perl code
+
+=over 4
+
+=item VERSION
+
+=item SYNOPSIS
+
+=item DESCRIPTION
+
+=over 4
+
+=item Migration from C<DynaLoader>
+
+=item Backward compatible boilerplate
+
+=back
+
+=item Order of initialization: early load()
+
+=over 4
+
+=item The most hairy case
+
+=back
+
+=item DIAGNOSTICS
+
+C<Can't find '%s' symbol in %s>, C<Can't load '%s' for module %s: %s>,
+C<Undefined symbols present after loading %s: %s>
+
+=item LIMITATIONS
+
+=item KNOWN BUGS
+
+=item BUGS
+
+=item SEE ALSO
+
+=item AUTHORS
+
+=item COPYRIGHT & LICENSE
+
+=back
+
+=head1 AUXILIARY DOCUMENTATION
+
+Here should be listed all the extra programs' documentation, but they
+don't all have manual pages yet:
+
+=over 4
+
+=item c2ph
+
+=item h2ph
+
+=item h2xs
+
+=item perlbug
+
+=item pl2pm
+
+=item pod2html
+
+=item pod2man
+
+=item splain
+
+=item xsubpp
+
+=back
+
+=head1 AUTHOR
+
+Larry Wall <F<larry@wall.org>>, with the help of oodles
+of other folks.
+
diff --git a/lib/5.24.1/pod/perltodo.pod b/lib/5.24.1/pod/perltodo.pod
new file mode 100644
index 00000000..2011e1dd
--- /dev/null
+++ b/lib/5.24.1/pod/perltodo.pod
@@ -0,0 +1,11 @@
+=head1 NAME
+
+perltodo - Link to the Perl to-do list
+
+=head1 DESCRIPTION
+
+The Perl 5 to-do list is maintained in the git repository, and can
+be viewed at L<http://perl5.git.perl.org/perl.git/blob/HEAD:/Porting/todo.pod>
+
+(The to-do list used to be here in perltodo. That has stopped, as installing a
+snapshot that becomes increasingly out of date isn't that useful to anyone.)
diff --git a/lib/5.24.1/pod/perltooc.pod b/lib/5.24.1/pod/perltooc.pod
new file mode 100644
index 00000000..b6a17644
--- /dev/null
+++ b/lib/5.24.1/pod/perltooc.pod
@@ -0,0 +1,15 @@
+=encoding utf8
+
+=head1 NAME
+
+perltooc - Links to information on object-oriented programming in Perl
+
+=head1 DESCRIPTION
+
+For information on OO programming with Perl, please see L<perlootut>
+and L<perlobj>.
+
+(The above documents supersede the tutorial that was formerly here in
+perltooc.)
+
+=cut
diff --git a/lib/5.24.1/pod/perltoot.pod b/lib/5.24.1/pod/perltoot.pod
new file mode 100644
index 00000000..468dcaef
--- /dev/null
+++ b/lib/5.24.1/pod/perltoot.pod
@@ -0,0 +1,15 @@
+=encoding utf8
+
+=head1 NAME
+
+perltoot - Links to information on object-oriented programming in Perl
+
+=head1 DESCRIPTION
+
+For information on OO programming with Perl, please see L<perlootut>
+and L<perlobj>.
+
+(The above documents supersede the tutorial that was formerly here in
+perltoot.)
+
+=cut
diff --git a/lib/5.24.1/pod/perltrap.pod b/lib/5.24.1/pod/perltrap.pod
new file mode 100644
index 00000000..acb43925
--- /dev/null
+++ b/lib/5.24.1/pod/perltrap.pod
@@ -0,0 +1,447 @@
+=head1 NAME
+
+perltrap - Perl traps for the unwary
+
+=head1 DESCRIPTION
+
+The biggest trap of all is forgetting to C<use warnings> or use the B<-w>
+switch; see L<warnings> and L<perlrun>. The second biggest trap is not
+making your entire program runnable under C<use strict>.  The third biggest
+trap is not reading the list of changes in this version of Perl; see
+L<perldelta>.
+
+=head2 Awk Traps
+
+Accustomed B<awk> users should take special note of the following:
+
+=over 4
+
+=item *
+
+A Perl program executes only once, not once for each input line.  You can
+do an implicit loop with C<-n> or C<-p>.
+
+=item *
+
+The English module, loaded via
+
+    use English;
+
+allows you to refer to special variables (like C<$/>) with names (like
+$RS), as though they were in B<awk>; see L<perlvar> for details.
+
+=item *
+
+Semicolons are required after all simple statements in Perl (except
+at the end of a block).  Newline is not a statement delimiter.
+
+=item *
+
+Curly brackets are required on C<if>s and C<while>s.
+
+=item *
+
+Variables begin with "$", "@" or "%" in Perl.
+
+=item *
+
+Arrays index from 0.  Likewise string positions in substr() and
+index().
+
+=item *
+
+You have to decide whether your array has numeric or string indices.
+
+=item *
+
+Hash values do not spring into existence upon mere reference.
+
+=item *
+
+You have to decide whether you want to use string or numeric
+comparisons.
+
+=item *
+
+Reading an input line does not split it for you.  You get to split it
+to an array yourself.  And the split() operator has different
+arguments than B<awk>'s.
+
+=item *
+
+The current input line is normally in $_, not $0.  It generally does
+not have the newline stripped.  ($0 is the name of the program
+executed.)  See L<perlvar>.
+
+=item *
+
+$<I<digit>> does not refer to fields--it refers to substrings matched
+by the last match pattern.
+
+=item *
+
+The print() statement does not add field and record separators unless
+you set C<$,> and C<$\>.  You can set $OFS and $ORS if you're using
+the English module.
+
+=item *
+
+You must open your files before you print to them.
+
+=item *
+
+The range operator is "..", not comma.  The comma operator works as in
+C.
+
+=item *
+
+The match operator is "=~", not "~".  ("~" is the one's complement
+operator, as in C.)
+
+=item *
+
+The exponentiation operator is "**", not "^".  "^" is the XOR
+operator, as in C.  (You know, one could get the feeling that B<awk> is
+basically incompatible with C.)
+
+=item *
+
+The concatenation operator is ".", not the null string.  (Using the
+null string would render C</pat/ /pat/> unparsable, because the third slash
+would be interpreted as a division operator--the tokenizer is in fact
+slightly context sensitive for operators like "/", "?", and ">".
+And in fact, "." itself can be the beginning of a number.)
+
+=item *
+
+The C<next>, C<exit>, and C<continue> keywords work differently.
+
+=item *
+
+
+The following variables work differently:
+
+      Awk	Perl
+      ARGC	scalar @ARGV (compare with $#ARGV)
+      ARGV[0]	$0
+      FILENAME	$ARGV
+      FNR	$. - something
+      FS	(whatever you like)
+      NF	$#Fld, or some such
+      NR	$.
+      OFMT	$#
+      OFS	$,
+      ORS	$\
+      RLENGTH	length($&)
+      RS	$/
+      RSTART	length($`)
+      SUBSEP	$;
+
+=item *
+
+You cannot set $RS to a pattern, only a string.
+
+=item *
+
+When in doubt, run the B<awk> construct through B<a2p> and see what it
+gives you.
+
+=back
+
+=head2 C/C++ Traps
+
+Cerebral C and C++ programmers should take note of the following:
+
+=over 4
+
+=item *
+
+Curly brackets are required on C<if>'s and C<while>'s.
+
+=item *
+
+You must use C<elsif> rather than C<else if>.
+
+=item *
+
+The C<break> and C<continue> keywords from C become in Perl C<last>
+and C<next>, respectively.  Unlike in C, these do I<not> work within a
+C<do { } while> construct.  See L<perlsyn/"Loop Control">.
+
+=item *
+
+The switch statement is called C<given>/C<when> and only available in
+perl 5.10 or newer.  See L<perlsyn/"Switch Statements">.
+
+=item *
+
+Variables begin with "$", "@" or "%" in Perl.
+
+=item *
+
+Comments begin with "#", not "/*" or "//".  Perl may interpret C/C++
+comments as division operators, unterminated regular expressions or
+the defined-or operator.
+
+=item *
+
+You can't take the address of anything, although a similar operator
+in Perl is the backslash, which creates a reference.
+
+=item *
+
+C<ARGV> must be capitalized.  C<$ARGV[0]> is C's C<argv[1]>, and C<argv[0]>
+ends up in C<$0>.
+
+=item *
+
+System calls such as link(), unlink(), rename(), etc. return nonzero for
+success, not 0. (system(), however, returns zero for success.)
+
+=item *
+
+Signal handlers deal with signal names, not numbers.  Use C<kill -l>
+to find their names on your system.
+
+=back
+
+=head2 JavaScript Traps
+
+Judicious JavaScript programmers should take note of the following:
+
+=over 4
+
+=item *
+
+In Perl, binary C<+> is always addition.  C<$string1 + $string2> converts
+both strings to numbers and then adds them.  To concatenate two strings,
+use the C<.> operator.
+
+=item *
+
+The C<+> unary operator doesn't do anything in Perl.  It exists to avoid
+syntactic ambiguities.
+
+=item *
+
+Unlike C<for...in>, Perl's C<for> (also spelled C<foreach>) does not allow
+the left-hand side to be an arbitrary expression.  It must be a variable:
+
+   for my $variable (keys %hash) {
+	...
+   }
+
+Furthermore, don't forget the C<keys> in there, as
+C<foreach my $kv (%hash) {}> iterates over the keys and values, and is
+generally not useful ($kv would be a key, then a value, and so on).
+
+=item *
+
+To iterate over the indices of an array, use C<foreach my $i (0 .. $#array)
+{}>.  C<foreach my $v (@array) {}> iterates over the values.
+
+=item *
+
+Perl requires braces following C<if>, C<while>, C<foreach>, etc.
+
+=item *
+
+In Perl, C<else if> is spelled C<elsif>.
+
+=item *
+
+C<? :> has higher precedence than assignment.  In JavaScript, one can
+write:
+
+    condition ? do_something() : variable = 3
+
+and the variable is only assigned if the condition is false.  In Perl, you
+need parentheses:
+
+    $condition ? do_something() : ($variable = 3);
+
+Or just use C<if>.
+
+=item *
+
+Perl requires semicolons to separate statements.
+
+=item *
+
+Variables declared with C<my> only affect code I<after> the declaration.
+You cannot write C<$x = 1; my $x;> and expect the first assignment to
+affect the same variable.  It will instead assign to an C<$x> declared
+previously in an outer scope, or to a global variable.
+
+Note also that the variable is not visible until the following
+I<statement>.  This means that in C<my $x = 1 + $x> the second $x refers
+to one declared previously.
+
+=item *
+
+C<my> variables are scoped to the current block, not to the current
+function.  If you write C<{my $x;} $x;>, the second C<$x> does not refer to
+the one declared inside the block.
+
+=item *
+
+An object's members cannot be made accessible as variables.  The closest
+Perl equivalent to C<with(object) { method() }> is C<for>, which can alias
+C<$_> to the object:
+
+    for ($object) {
+	$_->method;
+    }
+
+=item *
+
+The object or class on which a method is called is passed as one of the
+method's arguments, not as a separate C<this> value.
+
+=back
+
+=head2 Sed Traps
+
+Seasoned B<sed> programmers should take note of the following:
+
+=over 4
+
+=item *
+
+A Perl program executes only once, not once for each input line.  You can
+do an implicit loop with C<-n> or C<-p>.
+
+=item *
+
+Backreferences in substitutions use "$" rather than "\".
+
+=item *
+
+The pattern matching metacharacters "(", ")", and "|" do not have backslashes
+in front.
+
+=item *
+
+The range operator is C<...>, rather than comma.
+
+=back
+
+=head2 Shell Traps
+
+Sharp shell programmers should take note of the following:
+
+=over 4
+
+=item *
+
+The backtick operator does variable interpolation without regard to
+the presence of single quotes in the command.
+
+=item *
+
+The backtick operator does no translation of the return value, unlike B<csh>.
+
+=item *
+
+Shells (especially B<csh>) do several levels of substitution on each
+command line.  Perl does substitution in only certain constructs
+such as double quotes, backticks, angle brackets, and search patterns.
+
+=item *
+
+Shells interpret scripts a little bit at a time.  Perl compiles the
+entire program before executing it (except for C<BEGIN> blocks, which
+execute at compile time).
+
+=item *
+
+The arguments are available via @ARGV, not $1, $2, etc.
+
+=item *
+
+The environment is not automatically made available as separate scalar
+variables.
+
+=item *
+
+The shell's C<test> uses "=", "!=", "<" etc for string comparisons and "-eq",
+"-ne", "-lt" etc for numeric comparisons. This is the reverse of Perl, which
+uses C<eq>, C<ne>, C<lt> for string comparisons, and C<==>, C<!=> C<< < >> etc
+for numeric comparisons.
+
+=back
+
+=head2 Perl Traps
+
+Practicing Perl Programmers should take note of the following:
+
+=over 4
+
+=item *
+
+Remember that many operations behave differently in a list
+context than they do in a scalar one.  See L<perldata> for details.
+
+=item *
+
+Avoid barewords if you can, especially all lowercase ones.
+You can't tell by just looking at it whether a bareword is
+a function or a string.  By using quotes on strings and
+parentheses on function calls, you won't ever get them confused.
+
+=item *
+
+You cannot discern from mere inspection which builtins
+are unary operators (like chop() and chdir())
+and which are list operators (like print() and unlink()).
+(Unless prototyped, user-defined subroutines can B<only> be list
+operators, never unary ones.)  See L<perlop> and L<perlsub>.
+
+=item *
+
+People have a hard time remembering that some functions
+default to $_, or @ARGV, or whatever, but that others which
+you might expect to do not.
+
+=item *
+
+The <FH> construct is not the name of the filehandle, it is a readline
+operation on that handle.  The data read is assigned to $_ only if the
+file read is the sole condition in a while loop:
+
+    while (<FH>)      { }
+    while (defined($_ = <FH>)) { }..
+    <FH>;  # data discarded!
+
+=item *
+
+Remember not to use C<=> when you need C<=~>;
+these two constructs are quite different:
+
+    $x =  /foo/;
+    $x =~ /foo/;
+
+=item *
+
+The C<do {}> construct isn't a real loop that you can use
+loop control on.
+
+=item *
+
+Use C<my()> for local variables whenever you can get away with
+it (but see L<perlform> for where you can't).
+Using C<local()> actually gives a local value to a global
+variable, which leaves you open to unforeseen side-effects
+of dynamic scoping.
+
+=item *
+
+If you localize an exported variable in a module, its exported value will
+not change.  The local name becomes an alias to a new value but the
+external name is still an alias for the original.
+
+=back
+
+As always, if any of these are ever officially declared as bugs,
+they'll be fixed and removed.
+
diff --git a/lib/5.24.1/pod/perltru64.pod b/lib/5.24.1/pod/perltru64.pod
new file mode 100644
index 00000000..7b596a99
--- /dev/null
+++ b/lib/5.24.1/pod/perltru64.pod
@@ -0,0 +1,190 @@
+If you read this file _as_is_, just ignore the funny characters you see.
+It is written in the POD format (see pod/perlpod.pod) which is specially
+designed to be readable as is.
+
+=head1 NAME
+
+perltru64 - Perl version 5 on Tru64 (formerly known as Digital UNIX formerly known as DEC OSF/1) systems
+
+=head1 DESCRIPTION
+
+This document describes various features of HP's (formerly Compaq's,
+formerly Digital's) Unix operating system (Tru64) that will affect
+how Perl version 5 (hereafter just Perl) is configured, compiled
+and/or runs.
+
+=head2 Compiling Perl 5 on Tru64
+
+The recommended compiler to use in Tru64 is the native C compiler.
+The native compiler produces much faster code (the speed difference is
+noticeable: several dozen percentages) and also more correct code: if
+you are considering using the GNU C compiler you should use at the
+very least the release of 2.95.3 since all older gcc releases are
+known to produce broken code when compiling Perl.  One manifestation
+of this brokenness is the lib/sdbm test dumping core; another is many
+of the op/regexp and op/pat, or ext/Storable tests dumping core
+(the exact pattern of failures depending on the GCC release and
+optimization flags).
+
+Both the native cc and gcc seem to consume lots of memory when
+building Perl.  toke.c is a known trouble spot when optimizing:
+256 megabytes of data section seems to be enough.  Another known
+trouble spot is the mktables script which builds the Unicode support
+tables.  The default setting of the process data section in Tru64
+should be one gigabyte, but some sites/setups might have lowered that.
+The configuration process of Perl checks for too low process limits,
+and lowers the optimization for the toke.c if necessary, and also
+gives advice on how to raise the process limits
+(for example: C<ulimit -d 262144>)
+
+Also, Configure might abort with
+
+ Build a threading Perl? [n]
+ Configure[2437]: Syntax error at line 1 : 'config.sh' is not expected.
+
+This indicates that Configure is being run with a broken Korn shell
+(even though you think you are using a Bourne shell by using
+"sh Configure" or "./Configure").  The Korn shell bug has been reported
+to Compaq as of February 1999 but in the meanwhile, the reason ksh is
+being used is that you have the environment variable BIN_SH set to
+'xpg4'.  This causes /bin/sh to delegate its duties to /bin/posix/sh
+(a ksh).  Unset the environment variable and rerun Configure.
+
+=head2 Using Large Files with Perl on Tru64
+
+In Tru64 Perl is automatically able to use large files, that is,
+files larger than 2 gigabytes, there is no need to use the Configure
+-Duselargefiles option as described in INSTALL (though using the option
+is harmless).
+
+=head2 Threaded Perl on Tru64
+
+If you want to use threads, you should primarily use the Perl
+5.8.0 threads model by running Configure with -Duseithreads.
+
+Perl threading is going to work only in Tru64 4.0 and newer releases,
+older operating releases like 3.2 aren't probably going to work
+properly with threads.
+
+In Tru64 V5 (at least V5.1A, V5.1B) you cannot build threaded Perl with gcc
+because the system header <pthread.h> explicitly checks for supported
+C compilers, gcc (at least 3.2.2) not being one of them.  But the
+system C compiler should work just fine.
+
+=head2 Long Doubles on Tru64
+
+You cannot Configure Perl to use long doubles unless you have at least
+Tru64 V5.0, the long double support simply wasn't functional enough
+before that.  Perl's Configure will override attempts to use the long
+doubles (you can notice this by Configure finding out that the modfl()
+function does not work as it should).
+
+At the time of this writing (June 2002), there is a known bug in the
+Tru64 libc printing of long doubles when not using "e" notation.
+The values are correct and usable, but you only get a limited number
+of digits displayed unless you force the issue by using C<printf
+"%.33e",$num> or the like.  For Tru64 versions V5.0A through V5.1A, a
+patch is expected sometime after perl 5.8.0 is released.  If your libc
+has not yet been patched, you'll get a warning from Configure when
+selecting long doubles.
+
+=head2 DB_File tests failing on Tru64
+
+The DB_File tests (db-btree.t, db-hash.t, db-recno.t) may fail you
+have installed a newer version of Berkeley DB into the system and the
+-I and -L compiler and linker flags introduce version conflicts with
+the DB 1.85 headers and libraries that came with the Tru64.  For example, 
+mixing a DB v2 library with the DB v1 headers is a bad idea.  Watch
+out for Configure options -Dlocincpth and -Dloclibpth, and check your
+/usr/local/include and /usr/local/lib since they are included by default.
+
+The second option is to explicitly instruct Configure to detect the
+newer Berkeley DB installation, by supplying the right directories with
+C<-Dlocincpth=/some/include> and C<-Dloclibpth=/some/lib> B<and> before
+running "make test" setting your LD_LIBRARY_PATH to F</some/lib>.
+
+The third option is to work around the problem by disabling the
+DB_File completely when build Perl by specifying -Ui_db to Configure,
+and then using the BerkeleyDB module from CPAN instead of DB_File.
+The BerkeleyDB works with Berkeley DB versions 2.* or greater.
+
+The Berkeley DB 4.1.25 has been tested with Tru64 V5.1A and found
+to work.  The latest Berkeley DB can be found from L<http://www.sleepycat.com>.
+
+=head2 64-bit Perl on Tru64
+
+In Tru64 Perl's integers are automatically 64-bit wide, there is
+no need to use the Configure -Duse64bitint option as described
+in INSTALL.  Similarly, there is no need for -Duse64bitall
+since pointers are automatically 64-bit wide.
+
+=head2 Warnings about floating-point overflow when compiling Perl on Tru64
+
+When compiling Perl in Tru64 you may (depending on the compiler
+release) see two warnings like this
+
+ cc: Warning: numeric.c, line 104: In this statement, floating-point
+ overflow occurs in evaluating the expression "1.8e308". (floatoverfl)
+     return HUGE_VAL;
+ -----------^
+
+and when compiling the POSIX extension
+
+ cc: Warning: const-c.inc, line 2007: In this statement, floating-point
+ overflow occurs in evaluating the expression "1.8e308". (floatoverfl)
+             return HUGE_VAL;
+ -------------------^
+
+The exact line numbers may vary between Perl releases.  The warnings
+are benign and can be ignored: in later C compiler releases the warnings
+should be gone.
+
+When the file F<pp_sys.c> is being compiled you may (depending on the
+operating system release) see an additional compiler flag being used:
+C<-DNO_EFF_ONLY_OK>.  This is normal and refers to a feature that is
+relevant only if you use the C<filetest> pragma.  In older releases of
+the operating system the feature was broken and the NO_EFF_ONLY_OK
+instructs Perl not to use the feature.
+
+=head1 Testing Perl on Tru64
+
+During "make test" the C<comp>/C<cpp> will be skipped because on Tru64 it
+cannot be tested before Perl has been installed.  The test refers to
+the use of the C<-P> option of Perl.
+
+=head1 ext/ODBM_File/odbm Test Failing With Static Builds
+
+The ext/ODBM_File/odbm is known to fail with static builds
+(Configure -Uusedl) due to a known bug in Tru64's static libdbm
+library.  The good news is that you very probably don't need to ever
+use the ODBM_File extension since more advanced NDBM_File works fine,
+not to mention the even more advanced DB_File.
+
+=head1 Perl Fails Because Of Unresolved Symbol sockatmark
+
+If you get an error like
+
+    Can't load '.../OSF1/lib/perl5/5.8.0/alpha-dec_osf/auto/IO/IO.so' for module IO: Unresolved symbol in .../lib/perl5/5.8.0/alpha-dec_osf/auto/IO/IO.so: sockatmark at .../lib/perl5/5.8.0/alpha-dec_osf/XSLoader.pm line 75.
+
+you need to either recompile your Perl in Tru64 4.0D or upgrade your
+Tru64 4.0D to at least 4.0F: the sockatmark() system call was
+added in Tru64 4.0F, and the IO extension refers that symbol.
+
+=head1 read_cur_obj_info: bad file magic number
+
+You may be mixing the Tru64 cc/ar/ld with the GNU gcc/ar/ld.
+That may work, but sometimes it doesn't (your gcc or GNU utils
+may have been compiled for an incompatible OS release).
+
+Try 'which ld' and 'which ld' (or try 'ar --version' and 'ld --version',
+which work only for the GNU tools, and will announce themselves to be such),
+and adjust your PATH so that you are consistently using either
+the native tools or the GNU tools.  After fixing your PATH, you should
+do 'make distclean' and start all the way from running the Configure
+since you may have quite a confused situation.
+
+=head1 AUTHOR
+
+Jarkko Hietaniemi <jhi@iki.fi>
+
+=cut
diff --git a/lib/5.24.1/pod/perltw.pod b/lib/5.24.1/pod/perltw.pod
new file mode 100644
index 00000000..5944bd86
--- /dev/null
+++ b/lib/5.24.1/pod/perltw.pod
@@ -0,0 +1,162 @@
+=encoding utf8
+
+如果你用一般的文字編輯器閱覽這份文件, 請忽略文中奇特的註記字符.
+這份文件是以 POD (簡明文件格�) 寫�; 這種格�是為了能讓人直接讀�,
+而特別設計的. 關於此格�的進一步資訊, 請�考 perlpod 線上文件.
+
+=head1 NAME
+
+perltw - 正體中文 Perl 指�
+
+=head1 DESCRIPTION
+
+歡迎來到 Perl 的天地!
+
+從 5.8.0 版開始, Perl 具備了完善的 Unicode (�國碼) 支�,
+也連帶支�了許多拉�語系以外的編碼方�; CJK (中日韓) 便是其中的一部份.
+Unicode 是國際性的標準, 試圖涵蓋世界上所有的字符: 西方世界, �方世界,
+以�兩者間的一切 (希臘文, 敘利亞文, 阿拉伯文, 希伯來文, �度文,
+�地安文, 等等). 它也容�了多種作業系統與平臺 (如 PC �麥金塔).
+
+Perl 本身以 Unicode 進行�作. 這表示 Perl 內部的字串資料�用 Unicode
+表示; Perl 的函�與算符 (例如正�表示�比�) 也能� Unicode 進行�作.
+在輸入�輸出時, 為了處�以 Unicode 之�的編碼方�儲存的資料, Perl
+�供了 Encode 這個模組, �以讓你輕易地讀��寫入舊有的編碼資料.
+
+Encode 延伸模組支�下列正體中文的編碼方� ('big5' 表示 'big5-eten'):
+
+    big5-eten	Big5 編碼 (�倚天延伸字形)
+    big5-hkscs	Big5 + 香港外字集, 2001 年版
+    cp950	字碼� 950 (Big5 + 微軟添加的字符)
+
+舉例來說, 將 Big5 編碼的檔案轉� Unicode, 祗需�入下列指令:
+
+    perl -MEncode -pe '$_= encode( utf8 => decode( big5 => $_ ) )' \
+      < file.big5 > file.utf8
+
+Perl 也內附了 "piconv", 一支完全以 Perl 寫�的字符轉�工具程�, 用法如下:
+
+    piconv -f big5 -t utf8 < file.big5 > file.utf8
+    piconv -f utf8 -t big5 < file.utf8 > file.big5
+
+�外，若程�碼本身以 utf8 編碼儲存，��使用 utf8 模組，�讓程�碼中字串以�其�
+算皆以字符為單�，而�以�元為單�，如下所示：
+
+    #!/usr/bin/env perl
+    use utf8;
+    print length("駱�");	     #  2 (�是 6)
+    print index("諄諄教誨", "教誨"); #  2 (從 0 起算第 2 個字符)
+
+
+=head2 �外的中文編碼
+
+如果需�更多的中文編碼, �以從 CPAN (L<http://www.cpan.org/>) 下載
+Encode::HanExtra 模組. 它目��供下列編碼方�:
+
+    cccii	1980 年文建會的中文資訊交�碼
+    euc-tw	Unix 延伸字符集, 包� CNS11643 平� 1-7
+    big5plus	中文數�化技術推廣基金會的 Big5+
+    big5ext	中文數�化技術推廣基金會的 Big5e
+
+�外, Encode::HanConvert 模組則�供了簡�轉�用的兩種編碼:
+
+    big5-simp	Big5 正體中文與 Unicode 簡體中文互轉
+    gbk-trad	GBK 簡體中文與 Unicode 正體中文互轉
+
+若想在 GBK 與 Big5 之間互轉, 請�考該模組內附的 b2g.pl 與 g2b.pl 兩支程�,
+或在程�內使用下列寫法:
+
+    use Encode::HanConvert;
+    $euc_cn = big5_to_gb($big5); # 從 Big5 轉為 GBK
+    $big5 = gb_to_big5($euc_cn); # 從 GBK 轉為 Big5
+
+=head2 進一步的資訊
+
+請�考 Perl 內附的大�說明文件 (�幸全是用英文寫的), 來學習更多關於
+Perl 的知識, 以� Unicode 的使用方�. ��, 外部的資�相當�富:
+
+=head2 �供 Perl 資�的網�
+
+=over 4
+
+=item L<http://www.perl.com/>
+
+Perl 的首� (由��禮公�維護)
+
+=item L<http://www.cpan.org/>
+
+Perl 綜�典�網 (Comprehensive Perl Archive Network)
+
+=item L<http://lists.perl.org/>
+
+Perl 郵�論壇一覽
+
+=back
+
+=head2 學習 Perl 的網�
+
+=over 4
+
+=item L<http://www.oreilly.com.tw/product_perl.php?id=index_perl>
+
+正體中文版的��禮 Perl 書藉
+
+=item L<http://groups.google.com/groups?q=tw.bbs.comp.lang.perl>
+
+臺� Perl 連線討論� (也就是�大 BBS 的 Perl 連線版)
+
+=back
+
+=head2 Perl 使用者集會
+
+=over 4
+
+=item L<http://www.pm.org/groups/taiwan.html>
+
+臺� Perl 推廣組一覽
+
+=item L<irc://irc.freenode.org/#perl.tw>
+
+Perl.tw 線上�天室
+
+=back
+
+=head2 Unicode 相關網�
+
+=over 4
+
+=item L<http://www.unicode.org/>
+
+Unicode 學術學會 (Unicode 標準的制定者)
+
+=item L<http://www.cl.cam.ac.uk/%7Emgk25/unicode.html>
+
+Unix/Linux 上的 UTF-8 � Unicode 答客�
+
+=back
+
+=head2 中文化資訊
+
+=over 4
+
+=item 中文化軟體�盟
+
+L<http://www.cpatch.org/>
+
+=item Linux 軟體中文化計劃
+
+L<http://www.linux.org.tw/CLDP/>
+
+=back
+
+=head1 SEE ALSO
+
+L<Encode>, L<Encode::TW>, L<perluniintro>, L<perlunicode>
+
+=head1 AUTHORS
+
+Jarkko Hietaniemi E<lt>jhi@iki.fiE<gt>
+
+Audrey Tang (�鳳) E<lt>audreyt@audreyt.orgE<gt>
+
+=cut
diff --git a/lib/5.24.1/pod/perlunicode.pod b/lib/5.24.1/pod/perlunicode.pod
new file mode 100644
index 00000000..775a4307
--- /dev/null
+++ b/lib/5.24.1/pod/perlunicode.pod
@@ -0,0 +1,2039 @@
+=head1 NAME
+
+perlunicode - Unicode support in Perl
+
+=head1 DESCRIPTION
+
+If you haven't already, before reading this document, you should become
+familiar with both L<perlunitut> and L<perluniintro>.
+
+Unicode aims to B<UNI>-fy the en-B<CODE>-ings of all the world's
+character sets into a single Standard.   For quite a few of the various
+coding standards that existed when Unicode was first created, converting
+from each to Unicode essentially meant adding a constant to each code
+point in the original standard, and converting back meant just
+subtracting that same constant.  For ASCII and ISO-8859-1, the constant
+is 0.  For ISO-8859-5, (Cyrillic) the constant is 864; for Hebrew
+(ISO-8859-8), it's 1488; Thai (ISO-8859-11), 3424; and so forth.  This
+made it easy to do the conversions, and facilitated the adoption of
+Unicode.
+
+And it worked; nowadays, those legacy standards are rarely used.  Most
+everyone uses Unicode.
+
+Unicode is a comprehensive standard.  It specifies many things outside
+the scope of Perl, such as how to display sequences of characters.  For
+a full discussion of all aspects of Unicode, see
+L<http://www.unicode.org>.
+
+=head2 Important Caveats
+
+Even though some of this section may not be understandable to you on
+first reading, we think it's important enough to highlight some of the
+gotchas before delving further, so here goes:
+
+Unicode support is an extensive requirement. While Perl does not
+implement the Unicode standard or the accompanying technical reports
+from cover to cover, Perl does support many Unicode features.
+
+Also, the use of Unicode may present security issues that aren't obvious.
+Read L<Unicode Security Considerations|http://www.unicode.org/reports/tr36>.
+
+=over 4
+
+=item Safest if you C<use feature 'unicode_strings'>
+
+In order to preserve backward compatibility, Perl does not turn
+on full internal Unicode support unless the pragma
+L<S<C<use feature 'unicode_strings'>>|feature/The 'unicode_strings' feature>
+is specified.  (This is automatically
+selected if you S<C<use 5.012>> or higher.)  Failure to do this can
+trigger unexpected surprises.  See L</The "Unicode Bug"> below.
+
+This pragma doesn't affect I/O.  Nor does it change the internal
+representation of strings, only their interpretation.  There are still
+several places where Unicode isn't fully supported, such as in
+filenames.
+
+=item Input and Output Layers
+
+Use the C<:encoding(...)> layer  to read from and write to
+filehandles using the specified encoding.  (See L<open>.)
+
+=item You should convert your non-ASCII, non-UTF-8 Perl scripts to be
+UTF-8.
+
+See L<encoding>.
+
+=item C<use utf8> still needed to enable L<UTF-8|/Unicode Encodings> in scripts
+
+If your Perl script is itself encoded in L<UTF-8|/Unicode Encodings>,
+the S<C<use utf8>> pragma must be explicitly included to enable
+recognition of that (in string or regular expression literals, or in
+identifier names).  B<This is the only time when an explicit S<C<use
+utf8>> is needed.>  (See L<utf8>).
+
+=item C<BOM>-marked scripts and L<UTF-16|/Unicode Encodings> scripts autodetected
+
+However, if a Perl script begins with the Unicode C<BOM> (UTF-16LE,
+UTF16-BE, or UTF-8), or if the script looks like non-C<BOM>-marked
+UTF-16 of either endianness, Perl will correctly read in the script as
+the appropriate Unicode encoding.  (C<BOM>-less UTF-8 cannot be
+effectively recognized or differentiated from ISO 8859-1 or other
+eight-bit encodings.)
+
+=back
+
+=head2 Byte and Character Semantics
+
+Before Unicode, most encodings used 8 bits (a single byte) to encode
+each character.  Thus a character was a byte, and a byte was a
+character, and there could be only 256 or fewer possible characters.
+"Byte Semantics" in the title of this section refers to
+this behavior.  There was no need to distinguish between "Byte" and
+"Character".
+
+Then along comes Unicode which has room for over a million characters
+(and Perl allows for even more).  This means that a character may
+require more than a single byte to represent it, and so the two terms
+are no longer equivalent.  What matter are the characters as whole
+entities, and not usually the bytes that comprise them.  That's what the
+term "Character Semantics" in the title of this section refers to.
+
+Perl had to change internally to decouple "bytes" from "characters".
+It is important that you too change your ideas, if you haven't already,
+so that "byte" and "character" no longer mean the same thing in your
+mind.
+
+The basic building block of Perl strings has always been a "character".
+The changes basically come down to that the implementation no longer
+thinks that a character is always just a single byte.
+
+There are various things to note:
+
+=over 4
+
+=item *
+
+String handling functions, for the most part, continue to operate in
+terms of characters.  C<length()>, for example, returns the number of
+characters in a string, just as before.  But that number no longer is
+necessarily the same as the number of bytes in the string (there may be
+more bytes than characters).  The other such functions include
+C<chop()>, C<chomp()>, C<substr()>, C<pos()>, C<index()>, C<rindex()>,
+C<sort()>, C<sprintf()>, and C<write()>.
+
+The exceptions are:
+
+=over 4
+
+=item *
+
+the bit-oriented C<vec>
+
+E<nbsp>
+
+=item *
+
+the byte-oriented C<pack>/C<unpack> C<"C"> format
+
+However, the C<W> specifier does operate on whole characters, as does the
+C<U> specifier.
+
+=item *
+
+some operators that interact with the platform's operating system
+
+Operators dealing with filenames are examples.
+
+=item *
+
+when the functions are called from within the scope of the
+S<C<L<use bytes|bytes>>> pragma
+
+Likely, you should use this only for debugging anyway.
+
+=back
+
+=item *
+
+Strings--including hash keys--and regular expression patterns may
+contain characters that have ordinal values larger than 255.
+
+If you use a Unicode editor to edit your program, Unicode characters may
+occur directly within the literal strings in UTF-8 encoding, or UTF-16.
+(The former requires a C<BOM> or C<use utf8>, the latter requires a C<BOM>.)
+
+L<perluniintro/Creating Unicode> gives other ways to place non-ASCII
+characters in your strings.
+
+=item *
+
+The C<chr()> and C<ord()> functions work on whole characters.
+
+=item *
+
+Regular expressions match whole characters.  For example, C<"."> matches
+a whole character instead of only a single byte.
+
+=item *
+
+The C<tr///> operator translates whole characters.  (Note that the
+C<tr///CU> functionality has been removed.  For similar functionality to
+that, see C<pack('U0', ...)> and C<pack('C0', ...)>).
+
+=item *
+
+C<scalar reverse()> reverses by character rather than by byte.
+
+=item *
+
+The bit string operators, C<& | ^ ~> and (starting in v5.22)
+C<&. |. ^.  ~.> can operate on characters that don't fit into a byte.
+However, the current behavior is likely to change.  You should not use
+these operators on strings that are encoded in UTF-8.  If you're not
+sure about the encoding of a string, downgrade it before using any of
+these operators; you can use
+L<C<utf8::utf8_downgrade()>|utf8/Utility functions>.
+
+=back
+
+The bottom line is that Perl has always practiced "Character Semantics",
+but with the advent of Unicode, that is now different than "Byte
+Semantics".
+
+=head2 ASCII Rules versus Unicode Rules
+
+Before Unicode, when a character was a byte was a character,
+Perl knew only about the 128 characters defined by ASCII, code points 0
+through 127 (except for under S<C<use locale>>).  That left the code
+points 128 to 255 as unassigned, and available for whatever use a
+program might want.  The only semantics they have is their ordinal
+numbers, and that they are members of none of the non-negative character
+classes.  None are considered to match C<\w> for example, but all match
+C<\W>.
+
+Unicode, of course, assigns each of those code points a particular
+meaning (along with ones above 255).  To preserve backward
+compatibility, Perl only uses the Unicode meanings when there is some
+indication that Unicode is what is intended; otherwise the non-ASCII
+code points remain treated as if they are unassigned.
+
+Here are the ways that Perl knows that a string should be treated as
+Unicode:
+
+=over
+
+=item *
+
+Within the scope of S<C<use utf8>>
+
+If the whole program is Unicode (signified by using 8-bit B<U>nicode
+B<T>ransformation B<F>ormat), then all strings within it must be
+Unicode.
+
+=item *
+
+Within the scope of
+L<S<C<use feature 'unicode_strings'>>|feature/The 'unicode_strings' feature>
+
+This pragma was created so you can explicitly tell Perl that operations
+executed within its scope are to use Unicode rules.  More operations are
+affected with newer perls.  See L</The "Unicode Bug">.
+
+=item *
+
+Within the scope of S<C<use 5.012>> or higher
+
+This implicitly turns on S<C<use feature 'unicode_strings'>>.
+
+=item *
+
+Within the scope of
+L<S<C<use locale 'not_characters'>>|perllocale/Unicode and UTF-8>,
+or L<S<C<use locale>>|perllocale> and the current
+locale is a UTF-8 locale.
+
+The former is defined to imply Unicode handling; and the latter
+indicates a Unicode locale, hence a Unicode interpretation of all
+strings within it.
+
+=item *
+
+When the string contains a Unicode-only code point
+
+Perl has never accepted code points above 255 without them being
+Unicode, so their use implies Unicode for the whole string.
+
+=item *
+
+When the string contains a Unicode named code point C<\N{...}>
+
+The C<\N{...}> construct explicitly refers to a Unicode code point,
+even if it is one that is also in ASCII.  Therefore the string
+containing it must be Unicode.
+
+=item *
+
+When the string has come from an external source marked as
+Unicode
+
+The L<C<-C>|perlrun/-C [numberE<sol>list]> command line option can
+specify that certain inputs to the program are Unicode, and the values
+of this can be read by your Perl code, see L<perlvar/"${^UNICODE}">.
+
+=item * When the string has been upgraded to UTF-8
+
+The function L<C<utf8::utf8_upgrade()>|utf8/Utility functions>
+can be explicitly used to permanently (unless a subsequent
+C<utf8::utf8_downgrade()> is called) cause a string to be treated as
+Unicode.
+
+=item * There are additional methods for regular expression patterns
+
+A pattern that is compiled with the C<< /u >> or C<< /a >> modifiers is
+treated as Unicode (though there are some restrictions with C<< /a >>).
+Under the C<< /d >> and C<< /l >> modifiers, there are several other
+indications for Unicode; see L<perlre/Character set modifiers>.
+
+=back
+
+Note that all of the above are overridden within the scope of
+C<L<use bytes|bytes>>; but you should be using this pragma only for
+debugging.
+
+Note also that some interactions with the platform's operating system
+never use Unicode rules.
+
+When Unicode rules are in effect:
+
+=over 4
+
+=item *
+
+Case translation operators use the Unicode case translation tables.
+
+Note that C<uc()>, or C<\U> in interpolated strings, translates to
+uppercase, while C<ucfirst>, or C<\u> in interpolated strings,
+translates to titlecase in languages that make the distinction (which is
+equivalent to uppercase in languages without the distinction).
+
+There is a CPAN module, C<L<Unicode::Casing>>, which allows you to
+define your own mappings to be used in C<lc()>, C<lcfirst()>, C<uc()>,
+C<ucfirst()>, and C<fc> (or their double-quoted string inlined versions
+such as C<\U>).  (Prior to Perl 5.16, this functionality was partially
+provided in the Perl core, but suffered from a number of insurmountable
+drawbacks, so the CPAN module was written instead.)
+
+=item *
+
+Character classes in regular expressions match based on the character
+properties specified in the Unicode properties database.
+
+C<\w> can be used to match a Japanese ideograph, for instance; and
+C<[[:digit:]]> a Bengali number.
+
+=item *
+
+Named Unicode properties, scripts, and block ranges may be used (like
+bracketed character classes) by using the C<\p{}> "matches property"
+construct and the C<\P{}> negation, "doesn't match property".
+
+See L</"Unicode Character Properties"> for more details.
+
+You can define your own character properties and use them
+in the regular expression with the C<\p{}> or C<\P{}> construct.
+See L</"User-Defined Character Properties"> for more details.
+
+=back
+
+=head2 Extended Grapheme Clusters (Logical characters)
+
+Consider a character, say C<H>.  It could appear with various marks around it,
+such as an acute accent, or a circumflex, or various hooks, circles, arrows,
+I<etc.>, above, below, to one side or the other, I<etc>.  There are many
+possibilities among the world's languages.  The number of combinations is
+astronomical, and if there were a character for each combination, it would
+soon exhaust Unicode's more than a million possible characters.  So Unicode
+took a different approach: there is a character for the base C<H>, and a
+character for each of the possible marks, and these can be variously combined
+to get a final logical character.  So a logical character--what appears to be a
+single character--can be a sequence of more than one individual characters.
+The Unicode standard calls these "extended grapheme clusters" (which
+is an improved version of the no-longer much used "grapheme cluster");
+Perl furnishes the C<\X> regular expression construct to match such
+sequences in their entirety.
+
+But Unicode's intent is to unify the existing character set standards and
+practices, and several pre-existing standards have single characters that
+mean the same thing as some of these combinations, like ISO-8859-1,
+which has quite a few of them. For example, C<"LATIN CAPITAL LETTER E
+WITH ACUTE"> was already in this standard when Unicode came along.
+Unicode therefore added it to its repertoire as that single character.
+But this character is considered by Unicode to be equivalent to the
+sequence consisting of the character C<"LATIN CAPITAL LETTER E">
+followed by the character C<"COMBINING ACUTE ACCENT">.
+
+C<"LATIN CAPITAL LETTER E WITH ACUTE"> is called a "pre-composed"
+character, and its equivalence with the "E" and the "COMBINING ACCENT"
+sequence is called canonical equivalence.  All pre-composed characters
+are said to have a decomposition (into the equivalent sequence), and the
+decomposition type is also called canonical.  A string may be comprised
+as much as possible of precomposed characters, or it may be comprised of
+entirely decomposed characters.  Unicode calls these respectively,
+"Normalization Form Composed" (NFC) and "Normalization Form Decomposed".
+The C<L<Unicode::Normalize>> module contains functions that convert
+between the two.  A string may also have both composed characters and
+decomposed characters; this module can be used to make it all one or the
+other.
+
+You may be presented with strings in any of these equivalent forms.
+There is currently nothing in Perl 5 that ignores the differences.  So
+you'll have to specially hanlde it.  The usual advice is to convert your
+inputs to C<NFD> before processing further.
+
+For more detailed information, see L<http://unicode.org/reports/tr15/>.
+
+=head2 Unicode Character Properties
+
+(The only time that Perl considers a sequence of individual code
+points as a single logical character is in the C<\X> construct, already
+mentioned above.   Therefore "character" in this discussion means a single
+Unicode code point.)
+
+Very nearly all Unicode character properties are accessible through
+regular expressions by using the C<\p{}> "matches property" construct
+and the C<\P{}> "doesn't match property" for its negation.
+
+For instance, C<\p{Uppercase}> matches any single character with the Unicode
+C<"Uppercase"> property, while C<\p{L}> matches any character with a
+C<General_Category> of C<"L"> (letter) property (see
+L</General_Category> below).  Brackets are not
+required for single letter property names, so C<\p{L}> is equivalent to C<\pL>.
+
+More formally, C<\p{Uppercase}> matches any single character whose Unicode
+C<Uppercase> property value is C<True>, and C<\P{Uppercase}> matches any character
+whose C<Uppercase> property value is C<False>, and they could have been written as
+C<\p{Uppercase=True}> and C<\p{Uppercase=False}>, respectively.
+
+This formality is needed when properties are not binary; that is, if they can
+take on more values than just C<True> and C<False>.  For example, the
+C<Bidi_Class> property (see L</"Bidirectional Character Types"> below),
+can take on several different
+values, such as C<Left>, C<Right>, C<Whitespace>, and others.  To match these, one needs
+to specify both the property name (C<Bidi_Class>), AND the value being
+matched against
+(C<Left>, C<Right>, I<etc.>).  This is done, as in the examples above, by having the
+two components separated by an equal sign (or interchangeably, a colon), like
+C<\p{Bidi_Class: Left}>.
+
+All Unicode-defined character properties may be written in these compound forms
+of C<\p{I<property>=I<value>}> or C<\p{I<property>:I<value>}>, but Perl provides some
+additional properties that are written only in the single form, as well as
+single-form short-cuts for all binary properties and certain others described
+below, in which you may omit the property name and the equals or colon
+separator.
+
+Most Unicode character properties have at least two synonyms (or aliases if you
+prefer): a short one that is easier to type and a longer one that is more
+descriptive and hence easier to understand.  Thus the C<"L"> and
+C<"Letter"> properties above are equivalent and can be used
+interchangeably.  Likewise, C<"Upper"> is a synonym for C<"Uppercase">,
+and we could have written C<\p{Uppercase}> equivalently as C<\p{Upper}>.
+Also, there are typically various synonyms for the values the property
+can be.   For binary properties, C<"True"> has 3 synonyms: C<"T">,
+C<"Yes">, and C<"Y">; and C<"False"> has correspondingly C<"F">,
+C<"No">, and C<"N">.  But be careful.  A short form of a value for one
+property may not mean the same thing as the same short form for another.
+Thus, for the C<L</General_Category>> property, C<"L"> means
+C<"Letter">, but for the L<C<Bidi_Class>|/Bidirectional Character Types>
+property, C<"L"> means C<"Left">.  A complete list of properties and
+synonyms is in L<perluniprops>.
+
+Upper/lower case differences in property names and values are irrelevant;
+thus C<\p{Upper}> means the same thing as C<\p{upper}> or even C<\p{UpPeR}>.
+Similarly, you can add or subtract underscores anywhere in the middle of a
+word, so that these are also equivalent to C<\p{U_p_p_e_r}>.  And white space
+is irrelevant adjacent to non-word characters, such as the braces and the equals
+or colon separators, so C<\p{   Upper  }> and C<\p{ Upper_case : Y }> are
+equivalent to these as well.  In fact, white space and even
+hyphens can usually be added or deleted anywhere.  So even C<\p{ Up-per case = Yes}> is
+equivalent.  All this is called "loose-matching" by Unicode.  The few places
+where stricter matching is used is in the middle of numbers, and in the Perl
+extension properties that begin or end with an underscore.  Stricter matching
+cares about white space (except adjacent to non-word characters),
+hyphens, and non-interior underscores.
+
+You can also use negation in both C<\p{}> and C<\P{}> by introducing a caret
+(C<^>) between the first brace and the property name: C<\p{^Tamil}> is
+equal to C<\P{Tamil}>.
+
+Almost all properties are immune to case-insensitive matching.  That is,
+adding a C</i> regular expression modifier does not change what they
+match.  There are two sets that are affected.
+The first set is
+C<Uppercase_Letter>,
+C<Lowercase_Letter>,
+and C<Titlecase_Letter>,
+all of which match C<Cased_Letter> under C</i> matching.
+And the second set is
+C<Uppercase>,
+C<Lowercase>,
+and C<Titlecase>,
+all of which match C<Cased> under C</i> matching.
+This set also includes its subsets C<PosixUpper> and C<PosixLower> both
+of which under C</i> match C<PosixAlpha>.
+(The difference between these sets is that some things, such as Roman
+numerals, come in both upper and lower case so they are C<Cased>, but
+aren't considered letters, so they aren't C<Cased_Letter>'s.)
+
+See L</Beyond Unicode code points> for special considerations when
+matching Unicode properties against non-Unicode code points.
+
+=head3 B<General_Category>
+
+Every Unicode character is assigned a general category, which is the "most
+usual categorization of a character" (from
+L<http://www.unicode.org/reports/tr44>).
+
+The compound way of writing these is like C<\p{General_Category=Number}>
+(short: C<\p{gc:n}>).  But Perl furnishes shortcuts in which everything up
+through the equal or colon separator is omitted.  So you can instead just write
+C<\pN>.
+
+Here are the short and long forms of the values the C<General Category> property
+can have:
+
+    Short       Long
+
+    L           Letter
+    LC, L&      Cased_Letter (that is: [\p{Ll}\p{Lu}\p{Lt}])
+    Lu          Uppercase_Letter
+    Ll          Lowercase_Letter
+    Lt          Titlecase_Letter
+    Lm          Modifier_Letter
+    Lo          Other_Letter
+
+    M           Mark
+    Mn          Nonspacing_Mark
+    Mc          Spacing_Mark
+    Me          Enclosing_Mark
+
+    N           Number
+    Nd          Decimal_Number (also Digit)
+    Nl          Letter_Number
+    No          Other_Number
+
+    P           Punctuation (also Punct)
+    Pc          Connector_Punctuation
+    Pd          Dash_Punctuation
+    Ps          Open_Punctuation
+    Pe          Close_Punctuation
+    Pi          Initial_Punctuation
+                (may behave like Ps or Pe depending on usage)
+    Pf          Final_Punctuation
+                (may behave like Ps or Pe depending on usage)
+    Po          Other_Punctuation
+
+    S           Symbol
+    Sm          Math_Symbol
+    Sc          Currency_Symbol
+    Sk          Modifier_Symbol
+    So          Other_Symbol
+
+    Z           Separator
+    Zs          Space_Separator
+    Zl          Line_Separator
+    Zp          Paragraph_Separator
+
+    C           Other
+    Cc          Control (also Cntrl)
+    Cf          Format
+    Cs          Surrogate
+    Co          Private_Use
+    Cn          Unassigned
+
+Single-letter properties match all characters in any of the
+two-letter sub-properties starting with the same letter.
+C<LC> and C<L&> are special: both are aliases for the set consisting of everything matched by C<Ll>, C<Lu>, and C<Lt>.
+
+=head3 B<Bidirectional Character Types>
+
+Because scripts differ in their directionality (Hebrew and Arabic are
+written right to left, for example) Unicode supplies a C<Bidi_Class> property.
+Some of the values this property can have are:
+
+    Value       Meaning
+
+    L           Left-to-Right
+    LRE         Left-to-Right Embedding
+    LRO         Left-to-Right Override
+    R           Right-to-Left
+    AL          Arabic Letter
+    RLE         Right-to-Left Embedding
+    RLO         Right-to-Left Override
+    PDF         Pop Directional Format
+    EN          European Number
+    ES          European Separator
+    ET          European Terminator
+    AN          Arabic Number
+    CS          Common Separator
+    NSM         Non-Spacing Mark
+    BN          Boundary Neutral
+    B           Paragraph Separator
+    S           Segment Separator
+    WS          Whitespace
+    ON          Other Neutrals
+
+This property is always written in the compound form.
+For example, C<\p{Bidi_Class:R}> matches characters that are normally
+written right to left.  Unlike the
+C<L</General_Category>> property, this
+property can have more values added in a future Unicode release.  Those
+listed above comprised the complete set for many Unicode releases, but
+others were added in Unicode 6.3; you can always find what the
+current ones are in L<perluniprops>.  And
+L<http://www.unicode.org/reports/tr9/> describes how to use them.
+
+=head3 B<Scripts>
+
+The world's languages are written in many different scripts.  This sentence
+(unless you're reading it in translation) is written in Latin, while Russian is
+written in Cyrillic, and Greek is written in, well, Greek; Japanese mainly in
+Hiragana or Katakana.  There are many more.
+
+The Unicode C<Script> and C<Script_Extensions> properties give what script a
+given character is in.  Either property can be specified with the
+compound form like
+C<\p{Script=Hebrew}> (short: C<\p{sc=hebr}>), or
+C<\p{Script_Extensions=Javanese}> (short: C<\p{scx=java}>).
+In addition, Perl furnishes shortcuts for all
+C<Script> property names.  You can omit everything up through the equals
+(or colon), and simply write C<\p{Latin}> or C<\P{Cyrillic}>.
+(This is not true for C<Script_Extensions>, which is required to be
+written in the compound form.)
+
+The difference between these two properties involves characters that are
+used in multiple scripts.  For example the digits '0' through '9' are
+used in many parts of the world.  These are placed in a script named
+C<Common>.  Other characters are used in just a few scripts.  For
+example, the C<"KATAKANA-HIRAGANA DOUBLE HYPHEN"> is used in both Japanese
+scripts, Katakana and Hiragana, but nowhere else.  The C<Script>
+property places all characters that are used in multiple scripts in the
+C<Common> script, while the C<Script_Extensions> property places those
+that are used in only a few scripts into each of those scripts; while
+still using C<Common> for those used in many scripts.  Thus both these
+match:
+
+ "0" =~ /\p{sc=Common}/     # Matches
+ "0" =~ /\p{scx=Common}/    # Matches
+
+and only the first of these match:
+
+ "\N{KATAKANA-HIRAGANA DOUBLE HYPHEN}" =~ /\p{sc=Common}  # Matches
+ "\N{KATAKANA-HIRAGANA DOUBLE HYPHEN}" =~ /\p{scx=Common} # No match
+
+And only the last two of these match:
+
+ "\N{KATAKANA-HIRAGANA DOUBLE HYPHEN}" =~ /\p{sc=Hiragana}  # No match
+ "\N{KATAKANA-HIRAGANA DOUBLE HYPHEN}" =~ /\p{sc=Katakana}  # No match
+ "\N{KATAKANA-HIRAGANA DOUBLE HYPHEN}" =~ /\p{scx=Hiragana} # Matches
+ "\N{KATAKANA-HIRAGANA DOUBLE HYPHEN}" =~ /\p{scx=Katakana} # Matches
+
+C<Script_Extensions> is thus an improved C<Script>, in which there are
+fewer characters in the C<Common> script, and correspondingly more in
+other scripts.  It is new in Unicode version 6.0, and its data are likely
+to change significantly in later releases, as things get sorted out.
+New code should probably be using C<Script_Extensions> and not plain
+C<Script>.
+
+(Actually, besides C<Common>, the C<Inherited> script, contains
+characters that are used in multiple scripts.  These are modifier
+characters which inherit the script value
+of the controlling character.  Some of these are used in many scripts,
+and so go into C<Inherited> in both C<Script> and C<Script_Extensions>.
+Others are used in just a few scripts, so are in C<Inherited> in
+C<Script>, but not in C<Script_Extensions>.)
+
+It is worth stressing that there are several different sets of digits in
+Unicode that are equivalent to 0-9 and are matchable by C<\d> in a
+regular expression.  If they are used in a single language only, they
+are in that language's C<Script> and C<Script_Extension>.  If they are
+used in more than one script, they will be in C<sc=Common>, but only
+if they are used in many scripts should they be in C<scx=Common>.
+
+A complete list of scripts and their shortcuts is in L<perluniprops>.
+
+=head3 B<Use of the C<"Is"> Prefix>
+
+For backward compatibility (with Perl 5.6), all properties writable
+without using the compound form mentioned
+so far may have C<Is> or C<Is_> prepended to their name, so C<\P{Is_Lu}>, for
+example, is equal to C<\P{Lu}>, and C<\p{IsScript:Arabic}> is equal to
+C<\p{Arabic}>.
+
+=head3 B<Blocks>
+
+In addition to B<scripts>, Unicode also defines B<blocks> of
+characters.  The difference between scripts and blocks is that the
+concept of scripts is closer to natural languages, while the concept
+of blocks is more of an artificial grouping based on groups of Unicode
+characters with consecutive ordinal values. For example, the C<"Basic Latin">
+block is all the characters whose ordinals are between 0 and 127, inclusive; in
+other words, the ASCII characters.  The C<"Latin"> script contains some letters
+from this as well as several other blocks, like C<"Latin-1 Supplement">,
+C<"Latin Extended-A">, I<etc.>, but it does not contain all the characters from
+those blocks. It does not, for example, contain the digits 0-9, because
+those digits are shared across many scripts, and hence are in the
+C<Common> script.
+
+For more about scripts versus blocks, see UAX#24 "Unicode Script Property":
+L<http://www.unicode.org/reports/tr24>
+
+The C<Script> or C<Script_Extensions> properties are likely to be the
+ones you want to use when processing
+natural language; the C<Block> property may occasionally be useful in working
+with the nuts and bolts of Unicode.
+
+Block names are matched in the compound form, like C<\p{Block: Arrows}> or
+C<\p{Blk=Hebrew}>.  Unlike most other properties, only a few block names have a
+Unicode-defined short name.
+
+Perl also defines single form synonyms for the block property in cases
+where these do not conflict with something else.  But don't use any of
+these, because they are unstable.  Since these are Perl extensions, they
+are subordinate to official Unicode property names; Unicode doesn't know
+nor care about Perl's extensions.  It may happen that a name that
+currently means the Perl extension will later be changed without warning
+to mean a different Unicode property in a future version of the perl
+interpreter that uses a later Unicode release, and your code would no
+longer work.  The extensions are mentioned here for completeness:  Take
+the block name and prefix it with one of: C<In> (for example
+C<\p{Blk=Arrows}> can currently be written as C<\p{In_Arrows}>); or
+sometimes C<Is> (like C<\p{Is_Arrows}>); or sometimes no prefix at all
+(C<\p{Arrows}>).  As of this writing (Unicode 8.0) there are no
+conflicts with using the C<In_> prefix, but there are plenty with the
+other two forms.  For example, C<\p{Is_Hebrew}> and C<\p{Hebrew}> mean
+C<\p{Script=Hebrew}> which is NOT the same thing as C<\p{Blk=Hebrew}>.  Our
+advice used to be to use the C<In_> prefix as a single form way of
+specifying a block.  But Unicode 8.0 added properties whose names begin
+with C<In>, and it's now clear that it's only luck that's so far
+prevented a conflict.  Using C<In> is only marginally less typing than
+C<Blk:>, and the latter's meaning is clearer anyway, and guaranteed to
+never conflict.  So don't take chances.  Use C<\p{Blk=foo}> for new
+code.  And be sure that block is what you really really want to do.  In
+most cases scripts are what you want instead.
+
+A complete list of blocks is in L<perluniprops>.
+
+=head3 B<Other Properties>
+
+There are many more properties than the very basic ones described here.
+A complete list is in L<perluniprops>.
+
+Unicode defines all its properties in the compound form, so all single-form
+properties are Perl extensions.  Most of these are just synonyms for the
+Unicode ones, but some are genuine extensions, including several that are in
+the compound form.  And quite a few of these are actually recommended by Unicode
+(in L<http://www.unicode.org/reports/tr18>).
+
+This section gives some details on all extensions that aren't just
+synonyms for compound-form Unicode properties
+(for those properties, you'll have to refer to the
+L<Unicode Standard|http://www.unicode.org/reports/tr44>.
+
+=over
+
+=item B<C<\p{All}>>
+
+This matches every possible code point.  It is equivalent to C<qr/./s>.
+Unlike all the other non-user-defined C<\p{}> property matches, no
+warning is ever generated if this is property is matched against a
+non-Unicode code point (see L</Beyond Unicode code points> below).
+
+=item B<C<\p{Alnum}>>
+
+This matches any C<\p{Alphabetic}> or C<\p{Decimal_Number}> character.
+
+=item B<C<\p{Any}>>
+
+This matches any of the 1_114_112 Unicode code points.  It is a synonym
+for C<\p{Unicode}>.
+
+=item B<C<\p{ASCII}>>
+
+This matches any of the 128 characters in the US-ASCII character set,
+which is a subset of Unicode.
+
+=item B<C<\p{Assigned}>>
+
+This matches any assigned code point; that is, any code point whose L<general
+category|/General_Category> is not C<Unassigned> (or equivalently, not C<Cn>).
+
+=item B<C<\p{Blank}>>
+
+This is the same as C<\h> and C<\p{HorizSpace}>:  A character that changes the
+spacing horizontally.
+
+=item B<C<\p{Decomposition_Type: Non_Canonical}>>    (Short: C<\p{Dt=NonCanon}>)
+
+Matches a character that has a non-canonical decomposition.
+
+The L</Extended Grapheme Clusters (Logical characters)> section above
+talked about canonical decompositions.  However, many more characters
+have a different type of decomposition, a "compatible" or
+"non-canonical" decomposition.  The sequences that form these
+decompositions are not considered canonically equivalent to the
+pre-composed character.  An example is the C<"SUPERSCRIPT ONE">.  It is
+somewhat like a regular digit 1, but not exactly; its decomposition into
+the digit 1 is called a "compatible" decomposition, specifically a
+"super" decomposition.  There are several such compatibility
+decompositions (see L<http://www.unicode.org/reports/tr44>), including
+one called "compat", which means some miscellaneous type of
+decomposition that doesn't fit into the other decomposition categories
+that Unicode has chosen.
+
+Note that most Unicode characters don't have a decomposition, so their
+decomposition type is C<"None">.
+
+For your convenience, Perl has added the C<Non_Canonical> decomposition
+type to mean any of the several compatibility decompositions.
+
+=item B<C<\p{Graph}>>
+
+Matches any character that is graphic.  Theoretically, this means a character
+that on a printer would cause ink to be used.
+
+=item B<C<\p{HorizSpace}>>
+
+This is the same as C<\h> and C<\p{Blank}>:  a character that changes the
+spacing horizontally.
+
+=item B<C<\p{In=*}>>
+
+This is a synonym for C<\p{Present_In=*}>
+
+=item B<C<\p{PerlSpace}>>
+
+This is the same as C<\s>, restricted to ASCII, namely C<S<[ \f\n\r\t]>>
+and starting in Perl v5.18, a vertical tab.
+
+Mnemonic: Perl's (original) space
+
+=item B<C<\p{PerlWord}>>
+
+This is the same as C<\w>, restricted to ASCII, namely C<[A-Za-z0-9_]>
+
+Mnemonic: Perl's (original) word.
+
+=item B<C<\p{Posix...}>>
+
+There are several of these, which are equivalents, using the C<\p{}>
+notation, for Posix classes and are described in
+L<perlrecharclass/POSIX Character Classes>.
+
+=item B<C<\p{Present_In: *}>>    (Short: C<\p{In=*}>)
+
+This property is used when you need to know in what Unicode version(s) a
+character is.
+
+The "*" above stands for some two digit Unicode version number, such as
+C<1.1> or C<4.0>; or the "*" can also be C<Unassigned>.  This property will
+match the code points whose final disposition has been settled as of the
+Unicode release given by the version number; C<\p{Present_In: Unassigned}>
+will match those code points whose meaning has yet to be assigned.
+
+For example, C<U+0041> C<"LATIN CAPITAL LETTER A"> was present in the very first
+Unicode release available, which is C<1.1>, so this property is true for all
+valid "*" versions.  On the other hand, C<U+1EFF> was not assigned until version
+5.1 when it became C<"LATIN SMALL LETTER Y WITH LOOP">, so the only "*" that
+would match it are 5.1, 5.2, and later.
+
+Unicode furnishes the C<Age> property from which this is derived.  The problem
+with Age is that a strict interpretation of it (which Perl takes) has it
+matching the precise release a code point's meaning is introduced in.  Thus
+C<U+0041> would match only 1.1; and C<U+1EFF> only 5.1.  This is not usually what
+you want.
+
+Some non-Perl implementations of the Age property may change its meaning to be
+the same as the Perl C<Present_In> property; just be aware of that.
+
+Another confusion with both these properties is that the definition is not
+that the code point has been I<assigned>, but that the meaning of the code point
+has been I<determined>.  This is because 66 code points will always be
+unassigned, and so the C<Age> for them is the Unicode version in which the decision
+to make them so was made.  For example, C<U+FDD0> is to be permanently
+unassigned to a character, and the decision to do that was made in version 3.1,
+so C<\p{Age=3.1}> matches this character, as also does C<\p{Present_In: 3.1}> and up.
+
+=item B<C<\p{Print}>>
+
+This matches any character that is graphical or blank, except controls.
+
+=item B<C<\p{SpacePerl}>>
+
+This is the same as C<\s>, including beyond ASCII.
+
+Mnemonic: Space, as modified by Perl.  (It doesn't include the vertical tab
+until v5.18, which both the Posix standard and Unicode consider white space.)
+
+=item B<C<\p{Title}>> and  B<C<\p{Titlecase}>>
+
+Under case-sensitive matching, these both match the same code points as
+C<\p{General Category=Titlecase_Letter}> (C<\p{gc=lt}>).  The difference
+is that under C</i> caseless matching, these match the same as
+C<\p{Cased}>, whereas C<\p{gc=lt}> matches C<\p{Cased_Letter>).
+
+=item B<C<\p{Unicode}>>
+
+This matches any of the 1_114_112 Unicode code points.
+C<\p{Any}>.
+
+=item B<C<\p{VertSpace}>>
+
+This is the same as C<\v>:  A character that changes the spacing vertically.
+
+=item B<C<\p{Word}>>
+
+This is the same as C<\w>, including over 100_000 characters beyond ASCII.
+
+=item B<C<\p{XPosix...}>>
+
+There are several of these, which are the standard Posix classes
+extended to the full Unicode range.  They are described in
+L<perlrecharclass/POSIX Character Classes>.
+
+=back
+
+
+=head2 User-Defined Character Properties
+
+You can define your own binary character properties by defining subroutines
+whose names begin with C<"In"> or C<"Is">.  (The experimental feature
+L<perlre/(?[ ])> provides an alternative which allows more complex
+definitions.)  The subroutines can be defined in any
+package.  The user-defined properties can be used in the regular expression
+C<\p{}> and C<\P{}> constructs; if you are using a user-defined property from a
+package other than the one you are in, you must specify its package in the
+C<\p{}> or C<\P{}> construct.
+
+    # assuming property Is_Foreign defined in Lang::
+    package main;  # property package name required
+    if ($txt =~ /\p{Lang::IsForeign}+/) { ... }
+
+    package Lang;  # property package name not required
+    if ($txt =~ /\p{IsForeign}+/) { ... }
+
+
+Note that the effect is compile-time and immutable once defined.
+However, the subroutines are passed a single parameter, which is 0 if
+case-sensitive matching is in effect and non-zero if caseless matching
+is in effect.  The subroutine may return different values depending on
+the value of the flag, and one set of values will immutably be in effect
+for all case-sensitive matches, and the other set for all case-insensitive
+matches.
+
+Note that if the regular expression is tainted, then Perl will die rather
+than calling the subroutine when the name of the subroutine is
+determined by the tainted data.
+
+The subroutines must return a specially-formatted string, with one
+or more newline-separated lines.  Each line must be one of the following:
+
+=over 4
+
+=item *
+
+A single hexadecimal number denoting a code point to include.
+
+=item *
+
+Two hexadecimal numbers separated by horizontal whitespace (space or
+tabular characters) denoting a range of code points to include.
+
+=item *
+
+Something to include, prefixed by C<"+">: a built-in character
+property (prefixed by C<"utf8::">) or a fully qualified (including package
+name) user-defined character property,
+to represent all the characters in that property; two hexadecimal code
+points for a range; or a single hexadecimal code point.
+
+=item *
+
+Something to exclude, prefixed by C<"-">: an existing character
+property (prefixed by C<"utf8::">) or a fully qualified (including package
+name) user-defined character property,
+to represent all the characters in that property; two hexadecimal code
+points for a range; or a single hexadecimal code point.
+
+=item *
+
+Something to negate, prefixed C<"!">: an existing character
+property (prefixed by C<"utf8::">) or a fully qualified (including package
+name) user-defined character property,
+to represent all the characters in that property; two hexadecimal code
+points for a range; or a single hexadecimal code point.
+
+=item *
+
+Something to intersect with, prefixed by C<"&">: an existing character
+property (prefixed by C<"utf8::">) or a fully qualified (including package
+name) user-defined character property,
+for all the characters except the characters in the property; two
+hexadecimal code points for a range; or a single hexadecimal code point.
+
+=back
+
+For example, to define a property that covers both the Japanese
+syllabaries (hiragana and katakana), you can define
+
+    sub InKana {
+        return <<END;
+    3040\t309F
+    30A0\t30FF
+    END
+    }
+
+Imagine that the here-doc end marker is at the beginning of the line.
+Now you can use C<\p{InKana}> and C<\P{InKana}>.
+
+You could also have used the existing block property names:
+
+    sub InKana {
+        return <<'END';
+    +utf8::InHiragana
+    +utf8::InKatakana
+    END
+    }
+
+Suppose you wanted to match only the allocated characters,
+not the raw block ranges: in other words, you want to remove
+the unassigned characters:
+
+    sub InKana {
+        return <<'END';
+    +utf8::InHiragana
+    +utf8::InKatakana
+    -utf8::IsCn
+    END
+    }
+
+The negation is useful for defining (surprise!) negated classes.
+
+    sub InNotKana {
+        return <<'END';
+    !utf8::InHiragana
+    -utf8::InKatakana
+    +utf8::IsCn
+    END
+    }
+
+This will match all non-Unicode code points, since every one of them is
+not in Kana.  You can use intersection to exclude these, if desired, as
+this modified example shows:
+
+    sub InNotKana {
+        return <<'END';
+    !utf8::InHiragana
+    -utf8::InKatakana
+    +utf8::IsCn
+    &utf8::Any
+    END
+    }
+
+C<&utf8::Any> must be the last line in the definition.
+
+Intersection is used generally for getting the common characters matched
+by two (or more) classes.  It's important to remember not to use C<"&"> for
+the first set; that would be intersecting with nothing, resulting in an
+empty set.
+
+Unlike non-user-defined C<\p{}> property matches, no warning is ever
+generated if these properties are matched against a non-Unicode code
+point (see L</Beyond Unicode code points> below).
+
+=head2 User-Defined Case Mappings (for serious hackers only)
+
+B<This feature has been removed as of Perl 5.16.>
+The CPAN module C<L<Unicode::Casing>> provides better functionality without
+the drawbacks that this feature had.  If you are using a Perl earlier
+than 5.16, this feature was most fully documented in the 5.14 version of
+this pod:
+L<http://perldoc.perl.org/5.14.0/perlunicode.html#User-Defined-Case-Mappings-%28for-serious-hackers-only%29>
+
+=head2 Character Encodings for Input and Output
+
+See L<Encode>.
+
+=head2 Unicode Regular Expression Support Level
+
+The following list of Unicode supported features for regular expressions describes
+all features currently directly supported by core Perl.  The references to "Level N"
+and the section numbers refer to the Unicode Technical Standard #18,
+"Unicode Regular Expressions", version 13, from August 2008.
+
+=over 4
+
+=item *
+
+Level 1 - Basic Unicode Support
+
+ RL1.1   Hex Notation                     - done          [1]
+ RL1.2   Properties                       - done          [2][3]
+ RL1.2a  Compatibility Properties         - done          [4]
+ RL1.3   Subtraction and Intersection     - experimental  [5]
+ RL1.4   Simple Word Boundaries           - done          [6]
+ RL1.5   Simple Loose Matches             - done          [7]
+ RL1.6   Line Boundaries                  - MISSING       [8][9]
+ RL1.7   Supplementary Code Points        - done          [10]
+
+=over 4
+
+=item [1] C<\N{U+...}> and C<\x{...}>
+
+=item [2] C<\p{...}> C<\P{...}>
+
+=item [3] supports not only minimal list, but all Unicode character
+properties (see Unicode Character Properties above)
+
+=item [4] C<\d> C<\D> C<\s> C<\S> C<\w> C<\W> C<\X> C<[:I<prop>:]>
+C<[:^I<prop>:]>
+
+=item [5] The experimental feature starting in v5.18 C<"(?[...])"> accomplishes
+this.
+
+See L<perlre/(?[ ])>.  If you don't want to use an experimental
+feature, you can use one of the following:
+
+=over 4
+
+=item *
+
+Regular expression lookahead
+
+You can mimic class subtraction using lookahead.
+For example, what UTS#18 might write as
+
+    [{Block=Greek}-[{UNASSIGNED}]]
+
+in Perl can be written as:
+
+    (?!\p{Unassigned})\p{Block=Greek}
+    (?=\p{Assigned})\p{Block=Greek}
+
+But in this particular example, you probably really want
+
+    \p{Greek}
+
+which will match assigned characters known to be part of the Greek script.
+
+=item *
+
+CPAN module C<L<Unicode::Regex::Set>>
+
+It does implement the full UTS#18 grouping, intersection, union, and
+removal (subtraction) syntax.
+
+=item *
+
+L</"User-Defined Character Properties">
+
+C<"+"> for union, C<"-"> for removal (set-difference), C<"&"> for intersection
+
+=back
+
+=item [6] C<\b> C<\B>
+
+=item [7]
+Note that Perl does Full case-folding in matching, not Simple:
+
+For example C<U+1F88> is equivalent to C<U+1F00 U+03B9>, instead of just
+C<U+1F80>.  This difference matters mainly for certain Greek capital
+letters with certain modifiers: the Full case-folding decomposes the
+letter, while the Simple case-folding would map it to a single
+character.
+
+=item [8]
+Perl treats C<\n> as the start- and end-line delimiter.  Unicode
+specifies more characters that should be so-interpreted.
+
+These are:
+
+ VT   U+000B  (\v in C)
+ FF   U+000C  (\f)
+ CR   U+000D  (\r)
+ NEL  U+0085
+ LS   U+2028
+ PS   U+2029
+
+C<^> and C<$> in regular expression patterns are supposed to match all
+these, but don't.
+These characters also don't, but should, affect C<< <> >> C<$.>, and
+script line numbers.
+
+Also, lines should not be split within C<CRLF> (i.e. there is no
+empty line between C<\r> and C<\n>).  For C<CRLF>, try the C<:crlf>
+layer (see L<PerlIO>).
+
+=item [9] But C<qr/\b{lb}/> and C<L<Unicode::LineBreak>> are available.
+
+L<C<qrE<sol>\b{lb}E<sol>>|perlrebackslash/\b{lb}> supplies default line
+breaking conformant with
+L<UAX#14 "Unicode Line Breaking Algorithm"|http://www.unicode.org/reports/tr14>.
+
+And, the module C<L<Unicode::LineBreak>> also conformant with UAX#14,
+provides customizable line breaking.
+
+=item [10]
+UTF-8/UTF-EBDDIC used in Perl allows not only C<U+10000> to
+C<U+10FFFF> but also beyond C<U+10FFFF>
+
+=back
+
+=item *
+
+Level 2 - Extended Unicode Support
+
+ RL2.1   Canonical Equivalents           - MISSING       [10][11]
+ RL2.2   Default Grapheme Clusters       - MISSING       [12]
+ RL2.3   Default Word Boundaries         - DONE          [14]
+ RL2.4   Default Loose Matches           - MISSING       [15]
+ RL2.5   Name Properties                 - DONE
+ RL2.6   Wildcard Properties             - MISSING
+
+ [10] see UAX#15 "Unicode Normalization Forms"
+ [11] have Unicode::Normalize but not integrated to regexes
+ [12] have \X and \b{gcb} but we don't have a "Grapheme Cluster
+      Mode"
+ [14] see UAX#29, Word Boundaries
+ [15] This is covered in Chapter 3.13 (in Unicode 6.0)
+
+=item *
+
+Level 3 - Tailored Support
+
+ RL3.1   Tailored Punctuation            - MISSING
+ RL3.2   Tailored Grapheme Clusters      - MISSING       [17][18]
+ RL3.3   Tailored Word Boundaries        - MISSING
+ RL3.4   Tailored Loose Matches          - MISSING
+ RL3.5   Tailored Ranges                 - MISSING
+ RL3.6   Context Matching                - MISSING       [19]
+ RL3.7   Incremental Matches             - MISSING
+      ( RL3.8   Unicode Set Sharing )
+ RL3.9   Possible Match Sets             - MISSING
+ RL3.10  Folded Matching                 - MISSING       [20]
+ RL3.11  Submatchers                     - MISSING
+
+ [17] see UAX#10 "Unicode Collation Algorithms"
+ [18] have Unicode::Collate but not integrated to regexes
+ [19] have (?<=x) and (?=x), but lookaheads or lookbehinds
+      should see outside of the target substring
+ [20] need insensitive matching for linguistic features other
+      than case; for example, hiragana to katakana, wide and
+      narrow, simplified Han to traditional Han (see UTR#30
+      "Character Foldings")
+
+=back
+
+=head2 Unicode Encodings
+
+Unicode characters are assigned to I<code points>, which are abstract
+numbers.  To use these numbers, various encodings are needed.
+
+=over 4
+
+=item *
+
+UTF-8
+
+UTF-8 is a variable-length (1 to 4 bytes), byte-order independent
+encoding.  In most of Perl's documentation, including elsewhere in this
+document, the term "UTF-8" means also "UTF-EBCDIC".  But in this section,
+"UTF-8" refers only to the encoding used on ASCII platforms.  It is a
+superset of 7-bit US-ASCII, so anything encoded in ASCII has the
+identical representation when encoded in UTF-8.
+
+The following table is from Unicode 3.2.
+
+ Code Points            1st Byte  2nd Byte  3rd Byte 4th Byte
+
+   U+0000..U+007F       00..7F
+   U+0080..U+07FF     * C2..DF    80..BF
+   U+0800..U+0FFF       E0      * A0..BF    80..BF
+   U+1000..U+CFFF       E1..EC    80..BF    80..BF
+   U+D000..U+D7FF       ED        80..9F    80..BF
+   U+D800..U+DFFF       +++++ utf16 surrogates, not legal utf8 +++++
+   U+E000..U+FFFF       EE..EF    80..BF    80..BF
+  U+10000..U+3FFFF      F0      * 90..BF    80..BF    80..BF
+  U+40000..U+FFFFF      F1..F3    80..BF    80..BF    80..BF
+ U+100000..U+10FFFF     F4        80..8F    80..BF    80..BF
+
+Note the gaps marked by "*" before several of the byte entries above.  These are
+caused by legal UTF-8 avoiding non-shortest encodings: it is technically
+possible to UTF-8-encode a single code point in different ways, but that is
+explicitly forbidden, and the shortest possible encoding should always be used
+(and that is what Perl does).
+
+Another way to look at it is via bits:
+
+                Code Points  1st Byte  2nd Byte  3rd Byte  4th Byte
+
+                   0aaaaaaa  0aaaaaaa
+           00000bbbbbaaaaaa  110bbbbb  10aaaaaa
+           ccccbbbbbbaaaaaa  1110cccc  10bbbbbb  10aaaaaa
+ 00000dddccccccbbbbbbaaaaaa  11110ddd  10cccccc  10bbbbbb  10aaaaaa
+
+As you can see, the continuation bytes all begin with C<"10">, and the
+leading bits of the start byte tell how many bytes there are in the
+encoded character.
+
+The original UTF-8 specification allowed up to 6 bytes, to allow
+encoding of numbers up to C<0x7FFF_FFFF>.  Perl continues to allow those,
+and has extended that up to 13 bytes to encode code points up to what
+can fit in a 64-bit word.  However, Perl will warn if you output any of
+these as being non-portable; and under strict UTF-8 input protocols,
+they are forbidden.  In addition, it is deprecated to use a code point
+larger than what a signed integer variable on your system can hold.  On
+32-bit ASCII systems, this means C<0x7FFF_FFFF> is the legal maximum
+going forward (much higher on 64-bit systems).
+
+=item *
+
+UTF-EBCDIC
+
+Like UTF-8, but EBCDIC-safe, in the way that UTF-8 is ASCII-safe.
+This means that all the basic characters (which includes all
+those that have ASCII equivalents (like C<"A">, C<"0">, C<"%">, I<etc.>)
+are the same in both EBCDIC and UTF-EBCDIC.)
+
+UTF-EBCDIC is used on EBCDIC platforms.  It generally requires more
+bytes to represent a given code point than UTF-8 does; the largest
+Unicode code points take 5 bytes to represent (instead of 4 in UTF-8),
+and, extended for 64-bit words, it uses 14 bytes instead of 13 bytes in
+UTF-8.
+
+=item *
+
+UTF-16, UTF-16BE, UTF-16LE, Surrogates, and C<BOM>'s (Byte Order Marks)
+
+The followings items are mostly for reference and general Unicode
+knowledge, Perl doesn't use these constructs internally.
+
+Like UTF-8, UTF-16 is a variable-width encoding, but where
+UTF-8 uses 8-bit code units, UTF-16 uses 16-bit code units.
+All code points occupy either 2 or 4 bytes in UTF-16: code points
+C<U+0000..U+FFFF> are stored in a single 16-bit unit, and code
+points C<U+10000..U+10FFFF> in two 16-bit units.  The latter case is
+using I<surrogates>, the first 16-bit unit being the I<high
+surrogate>, and the second being the I<low surrogate>.
+
+Surrogates are code points set aside to encode the C<U+10000..U+10FFFF>
+range of Unicode code points in pairs of 16-bit units.  The I<high
+surrogates> are the range C<U+D800..U+DBFF> and the I<low surrogates>
+are the range C<U+DC00..U+DFFF>.  The surrogate encoding is
+
+    $hi = ($uni - 0x10000) / 0x400 + 0xD800;
+    $lo = ($uni - 0x10000) % 0x400 + 0xDC00;
+
+and the decoding is
+
+    $uni = 0x10000 + ($hi - 0xD800) * 0x400 + ($lo - 0xDC00);
+
+Because of the 16-bitness, UTF-16 is byte-order dependent.  UTF-16
+itself can be used for in-memory computations, but if storage or
+transfer is required either UTF-16BE (big-endian) or UTF-16LE
+(little-endian) encodings must be chosen.
+
+This introduces another problem: what if you just know that your data
+is UTF-16, but you don't know which endianness?  Byte Order Marks, or
+C<BOM>'s, are a solution to this.  A special character has been reserved
+in Unicode to function as a byte order marker: the character with the
+code point C<U+FEFF> is the C<BOM>.
+
+The trick is that if you read a C<BOM>, you will know the byte order,
+since if it was written on a big-endian platform, you will read the
+bytes C<0xFE 0xFF>, but if it was written on a little-endian platform,
+you will read the bytes C<0xFF 0xFE>.  (And if the originating platform
+was writing in ASCII platform UTF-8, you will read the bytes
+C<0xEF 0xBB 0xBF>.)
+
+The way this trick works is that the character with the code point
+C<U+FFFE> is not supposed to be in input streams, so the
+sequence of bytes C<0xFF 0xFE> is unambiguously "C<BOM>, represented in
+little-endian format" and cannot be C<U+FFFE>, represented in big-endian
+format".
+
+Surrogates have no meaning in Unicode outside their use in pairs to
+represent other code points.  However, Perl allows them to be
+represented individually internally, for example by saying
+C<chr(0xD801)>, so that all code points, not just those valid for open
+interchange, are
+representable.  Unicode does define semantics for them, such as their
+C<L</General_Category>> is C<"Cs">.  But because their use is somewhat dangerous,
+Perl will warn (using the warning category C<"surrogate">, which is a
+sub-category of C<"utf8">) if an attempt is made
+to do things like take the lower case of one, or match
+case-insensitively, or to output them.  (But don't try this on Perls
+before 5.14.)
+
+=item *
+
+UTF-32, UTF-32BE, UTF-32LE
+
+The UTF-32 family is pretty much like the UTF-16 family, except that
+the units are 32-bit, and therefore the surrogate scheme is not
+needed.  UTF-32 is a fixed-width encoding.  The C<BOM> signatures are
+C<0x00 0x00 0xFE 0xFF> for BE and C<0xFF 0xFE 0x00 0x00> for LE.
+
+=item *
+
+UCS-2, UCS-4
+
+Legacy, fixed-width encodings defined by the ISO 10646 standard.  UCS-2 is a 16-bit
+encoding.  Unlike UTF-16, UCS-2 is not extensible beyond C<U+FFFF>,
+because it does not use surrogates.  UCS-4 is a 32-bit encoding,
+functionally identical to UTF-32 (the difference being that
+UCS-4 forbids neither surrogates nor code points larger than C<0x10_FFFF>).
+
+=item *
+
+UTF-7
+
+A seven-bit safe (non-eight-bit) encoding, which is useful if the
+transport or storage is not eight-bit safe.  Defined by RFC 2152.
+
+=back
+
+=head2 Noncharacter code points
+
+66 code points are set aside in Unicode as "noncharacter code points".
+These all have the C<Unassigned> (C<Cn>) C<L</General_Category>>, and
+no character will ever be assigned to any of them.  They are the 32 code
+points between C<U+FDD0> and C<U+FDEF> inclusive, and the 34 code
+points:
+
+ U+FFFE   U+FFFF
+ U+1FFFE  U+1FFFF
+ U+2FFFE  U+2FFFF
+ ...
+ U+EFFFE  U+EFFFF
+ U+FFFFE  U+FFFFF
+ U+10FFFE U+10FFFF
+
+Until Unicode 7.0, the noncharacters were "B<forbidden> for use in open
+interchange of Unicode text data", so that code that processed those
+streams could use these code points as sentinels that could be mixed in
+with character data, and would always be distinguishable from that data.
+(Emphasis above and in the next paragraph are added in this document.)
+
+Unicode 7.0 changed the wording so that they are "B<not recommended> for
+use in open interchange of Unicode text data".  The 7.0 Standard goes on
+to say:
+
+=over 4
+
+"If a noncharacter is received in open interchange, an application is
+not required to interpret it in any way.  It is good practice, however,
+to recognize it as a noncharacter and to take appropriate action, such
+as replacing it with C<U+FFFD> replacement character, to indicate the
+problem in the text.  It is not recommended to simply delete
+noncharacter code points from such text, because of the potential
+security issues caused by deleting uninterpreted characters.  (See
+conformance clause C7 in Section 3.2, Conformance Requirements, and
+L<Unicode Technical Report #36, "Unicode Security
+Considerations"|http://www.unicode.org/reports/tr36/#Substituting_for_Ill_Formed_Subsequences>)."
+
+=back
+
+This change was made because it was found that various commercial tools
+like editors, or for things like source code control, had been written
+so that they would not handle program files that used these code points,
+effectively precluding their use almost entirely!  And that was never
+the intent.  They've always been meant to be usable within an
+application, or cooperating set of applications, at will.
+
+If you're writing code, such as an editor, that is supposed to be able
+to handle any Unicode text data, then you shouldn't be using these code
+points yourself, and instead allow them in the input.  If you need
+sentinels, they should instead be something that isn't legal Unicode.
+For UTF-8 data, you can use the bytes 0xC1 and 0xC2 as sentinels, as
+they never appear in well-formed UTF-8.  (There are equivalents for
+UTF-EBCDIC).  You can also store your Unicode code points in integer
+variables and use negative values as sentinels.
+
+If you're not writing such a tool, then whether you accept noncharacters
+as input is up to you (though the Standard recommends that you not).  If
+you do strict input stream checking with Perl, these code points
+continue to be forbidden.  This is to maintain backward compatibility
+(otherwise potential security holes could open up, as an unsuspecting
+application that was written assuming the noncharacters would be
+filtered out before getting to it, could now, without warning, start
+getting them).  To do strict checking, you can use the layer
+C<:encoding('UTF-8')>.
+
+Perl continues to warn (using the warning category C<"nonchar">, which
+is a sub-category of C<"utf8">) if an attempt is made to output
+noncharacters.
+
+=head2 Beyond Unicode code points
+
+The maximum Unicode code point is C<U+10FFFF>, and Unicode only defines
+operations on code points up through that.  But Perl works on code
+points up to the maximum permissible unsigned number available on the
+platform.  However, Perl will not accept these from input streams unless
+lax rules are being used, and will warn (using the warning category
+C<"non_unicode">, which is a sub-category of C<"utf8">) if any are output.
+
+Since Unicode rules are not defined on these code points, if a
+Unicode-defined operation is done on them, Perl uses what we believe are
+sensible rules, while generally warning, using the C<"non_unicode">
+category.  For example, C<uc("\x{11_0000}")> will generate such a
+warning, returning the input parameter as its result, since Perl defines
+the uppercase of every non-Unicode code point to be the code point
+itself.  (All the case changing operations, not just uppercasing, work
+this way.)
+
+The situation with matching Unicode properties in regular expressions,
+the C<\p{}> and C<\P{}> constructs, against these code points is not as
+clear cut, and how these are handled has changed as we've gained
+experience.
+
+One possibility is to treat any match against these code points as
+undefined.  But since Perl doesn't have the concept of a match being
+undefined, it converts this to failing or C<FALSE>.  This is almost, but
+not quite, what Perl did from v5.14 (when use of these code points
+became generally reliable) through v5.18.  The difference is that Perl
+treated all C<\p{}> matches as failing, but all C<\P{}> matches as
+succeeding.
+
+One problem with this is that it leads to unexpected, and confusting
+results in some cases:
+
+ chr(0x110000) =~ \p{ASCII_Hex_Digit=True}      # Failed on <= v5.18
+ chr(0x110000) =~ \p{ASCII_Hex_Digit=False}     # Failed! on <= v5.18
+
+That is, it treated both matches as undefined, and converted that to
+false (raising a warning on each).  The first case is the expected
+result, but the second is likely counterintuitive: "How could both be
+false when they are complements?"  Another problem was that the
+implementation optimized many Unicode property matches down to already
+existing simpler, faster operations, which don't raise the warning.  We
+chose to not forgo those optimizations, which help the vast majority of
+matches, just to generate a warning for the unlikely event that an
+above-Unicode code point is being matched against.
+
+As a result of these problems, starting in v5.20, what Perl does is
+to treat non-Unicode code points as just typical unassigned Unicode
+characters, and matches accordingly.  (Note: Unicode has atypical
+unassigned code points.  For example, it has noncharacter code points,
+and ones that, when they do get assigned, are destined to be written
+Right-to-left, as Arabic and Hebrew are.  Perl assumes that no
+non-Unicode code point has any atypical properties.)
+
+Perl, in most cases, will raise a warning when matching an above-Unicode
+code point against a Unicode property when the result is C<TRUE> for
+C<\p{}>, and C<FALSE> for C<\P{}>.  For example:
+
+ chr(0x110000) =~ \p{ASCII_Hex_Digit=True}      # Fails, no warning
+ chr(0x110000) =~ \p{ASCII_Hex_Digit=False}     # Succeeds, with warning
+
+In both these examples, the character being matched is non-Unicode, so
+Unicode doesn't define how it should match.  It clearly isn't an ASCII
+hex digit, so the first example clearly should fail, and so it does,
+with no warning.  But it is arguable that the second example should have
+an undefined, hence C<FALSE>, result.  So a warning is raised for it.
+
+Thus the warning is raised for many fewer cases than in earlier Perls,
+and only when what the result is could be arguable.  It turns out that
+none of the optimizations made by Perl (or are ever likely to be made)
+cause the warning to be skipped, so it solves both problems of Perl's
+earlier approach.  The most commonly used property that is affected by
+this change is C<\p{Unassigned}> which is a short form for
+C<\p{General_Category=Unassigned}>.  Starting in v5.20, all non-Unicode
+code points are considered C<Unassigned>.  In earlier releases the
+matches failed because the result was considered undefined.
+
+The only place where the warning is not raised when it might ought to
+have been is if optimizations cause the whole pattern match to not even
+be attempted.  For example, Perl may figure out that for a string to
+match a certain regular expression pattern, the string has to contain
+the substring C<"foobar">.  Before attempting the match, Perl may look
+for that substring, and if not found, immediately fail the match without
+actually trying it; so no warning gets generated even if the string
+contains an above-Unicode code point.
+
+This behavior is more "Do what I mean" than in earlier Perls for most
+applications.  But it catches fewer issues for code that needs to be
+strictly Unicode compliant.  Therefore there is an additional mode of
+operation available to accommodate such code.  This mode is enabled if a
+regular expression pattern is compiled within the lexical scope where
+the C<"non_unicode"> warning class has been made fatal, say by:
+
+ use warnings FATAL => "non_unicode"
+
+(see L<warnings>).  In this mode of operation, Perl will raise the
+warning for all matches against a non-Unicode code point (not just the
+arguable ones), and it skips the optimizations that might cause the
+warning to not be output.  (It currently still won't warn if the match
+isn't even attempted, like in the C<"foobar"> example above.)
+
+In summary, Perl now normally treats non-Unicode code points as typical
+Unicode unassigned code points for regular expression matches, raising a
+warning only when it is arguable what the result should be.  However, if
+this warning has been made fatal, it isn't skipped.
+
+There is one exception to all this.  C<\p{All}> looks like a Unicode
+property, but it is a Perl extension that is defined to be true for all
+possible code points, Unicode or not, so no warning is ever generated
+when matching this against a non-Unicode code point.  (Prior to v5.20,
+it was an exact synonym for C<\p{Any}>, matching code points C<0>
+through C<0x10FFFF>.)
+
+=head2 Security Implications of Unicode
+
+First, read
+L<Unicode Security Considerations|http://www.unicode.org/reports/tr36>.
+
+Also, note the following:
+
+=over 4
+
+=item *
+
+Malformed UTF-8
+
+Unfortunately, the original specification of UTF-8 leaves some room for
+interpretation of how many bytes of encoded output one should generate
+from one input Unicode character.  Strictly speaking, the shortest
+possible sequence of UTF-8 bytes should be generated,
+because otherwise there is potential for an input buffer overflow at
+the receiving end of a UTF-8 connection.  Perl always generates the
+shortest length UTF-8, and with warnings on, Perl will warn about
+non-shortest length UTF-8 along with other malformations, such as the
+surrogates, which are not Unicode code points valid for interchange.
+
+=item *
+
+Regular expression pattern matching may surprise you if you're not
+accustomed to Unicode.  Starting in Perl 5.14, several pattern
+modifiers are available to control this, called the character set
+modifiers.  Details are given in L<perlre/Character set modifiers>.
+
+=back
+
+As discussed elsewhere, Perl has one foot (two hooves?) planted in
+each of two worlds: the old world of ASCII and single-byte locales, and
+the new world of Unicode, upgrading when necessary.
+If your legacy code does not explicitly use Unicode, no automatic
+switch-over to Unicode should happen.
+
+=head2 Unicode in Perl on EBCDIC
+
+Unicode is supported on EBCDIC platforms.  See L<perlebcdic>.
+
+Unless ASCII vs. EBCDIC issues are specifically being discussed,
+references to UTF-8 encoding in this document and elsewhere should be
+read as meaning UTF-EBCDIC on EBCDIC platforms.
+See L<perlebcdic/Unicode and UTF>.
+
+Because UTF-EBCDIC is so similar to UTF-8, the differences are mostly
+hidden from you; S<C<use utf8>> (and NOT something like
+S<C<use utfebcdic>>) declares the the script is in the platform's
+"native" 8-bit encoding of Unicode.  (Similarly for the C<":utf8">
+layer.)
+
+=head2 Locales
+
+See L<perllocale/Unicode and UTF-8>
+
+=head2 When Unicode Does Not Happen
+
+There are still many places where Unicode (in some encoding or
+another) could be given as arguments or received as results, or both in
+Perl, but it is not, in spite of Perl having extensive ways to input and
+output in Unicode, and a few other "entry points" like the C<@ARGV>
+array (which can sometimes be interpreted as UTF-8).
+
+The following are such interfaces.  Also, see L</The "Unicode Bug">.
+For all of these interfaces Perl
+currently (as of v5.16.0) simply assumes byte strings both as arguments
+and results, or UTF-8 strings if the (deprecated) C<encoding> pragma has been used.
+
+One reason that Perl does not attempt to resolve the role of Unicode in
+these situations is that the answers are highly dependent on the operating
+system and the file system(s).  For example, whether filenames can be
+in Unicode and in exactly what kind of encoding, is not exactly a
+portable concept.  Similarly for C<qx> and C<system>: how well will the
+"command-line interface" (and which of them?) handle Unicode?
+
+=over 4
+
+=item *
+
+C<chdir>, C<chmod>, C<chown>, C<chroot>, C<exec>, C<link>, C<lstat>, C<mkdir>,
+C<rename>, C<rmdir>, C<stat>, C<symlink>, C<truncate>, C<unlink>, C<utime>, C<-X>
+
+=item *
+
+C<%ENV>
+
+=item *
+
+C<glob> (aka the C<E<lt>*E<gt>>)
+
+=item *
+
+C<open>, C<opendir>, C<sysopen>
+
+=item *
+
+C<qx> (aka the backtick operator), C<system>
+
+=item *
+
+C<readdir>, C<readlink>
+
+=back
+
+=head2 The "Unicode Bug"
+
+The term, "Unicode bug" has been applied to an inconsistency with the
+code points in the C<Latin-1 Supplement> block, that is, between
+128 and 255.  Without a locale specified, unlike all other characters or
+code points, these characters can have very different semantics
+depending on the rules in effect.  (Characters whose code points are
+above 255 force Unicode rules; whereas the rules for ASCII characters
+are the same under both ASCII and Unicode rules.)
+
+Under Unicode rules, these upper-Latin1 characters are interpreted as
+Unicode code points, which means they have the same semantics as Latin-1
+(ISO-8859-1) and C1 controls.
+
+As explained in L</ASCII Rules versus Unicode Rules>, under ASCII rules,
+they are considered to be unassigned characters.
+
+This can lead to unexpected results.  For example, a string's
+semantics can suddenly change if a code point above 255 is appended to
+it, which changes the rules from ASCII to Unicode.  As an
+example, consider the following program and its output:
+
+ $ perl -le'
+     no feature 'unicode_strings';
+     $s1 = "\xC2";
+     $s2 = "\x{2660}";
+     for ($s1, $s2, $s1.$s2) {
+         print /\w/ || 0;
+     }
+ '
+ 0
+ 0
+ 1
+
+If there's no C<\w> in C<s1> nor in C<s2>, why does their concatenation
+have one?
+
+This anomaly stems from Perl's attempt to not disturb older programs that
+didn't use Unicode, along with Perl's desire to add Unicode support
+seamlessly.  But the result turned out to not be seamless.  (By the way,
+you can choose to be warned when things like this happen.  See
+C<L<encoding::warnings>>.)
+
+L<S<C<use feature 'unicode_strings'>>|feature/The 'unicode_strings' feature>
+was added, starting in Perl v5.12, to address this problem.  It affects
+these things:
+
+=over 4
+
+=item *
+
+Changing the case of a scalar, that is, using C<uc()>, C<ucfirst()>, C<lc()>,
+and C<lcfirst()>, or C<\L>, C<\U>, C<\u> and C<\l> in double-quotish
+contexts, such as regular expression substitutions.
+
+Under C<unicode_strings> starting in Perl 5.12.0, Unicode rules are
+generally used.  See L<perlfunc/lc> for details on how this works
+in combination with various other pragmas.
+
+=item *
+
+Using caseless (C</i>) regular expression matching.
+
+Starting in Perl 5.14.0, regular expressions compiled within
+the scope of C<unicode_strings> use Unicode rules
+even when executed or compiled into larger
+regular expressions outside the scope.
+
+=item *
+
+Matching any of several properties in regular expressions.
+
+These properties are C<\b> (without braces), C<\B> (without braces),
+C<\s>, C<\S>, C<\w>, C<\W>, and all the Posix character classes
+I<except> C<[[:ascii:]]>.
+
+Starting in Perl 5.14.0, regular expressions compiled within
+the scope of C<unicode_strings> use Unicode rules
+even when executed or compiled into larger
+regular expressions outside the scope.
+
+=item *
+
+In C<quotemeta> or its inline equivalent C<\Q>.
+
+Starting in Perl 5.16.0, consistent quoting rules are used within the
+scope of C<unicode_strings>, as described in L<perlfunc/quotemeta>.
+Prior to that, or outside its scope, no code points above 127 are quoted
+in UTF-8 encoded strings, but in byte encoded strings, code points
+between 128-255 are always quoted.
+
+=back
+
+You can see from the above that the effect of C<unicode_strings>
+increased over several Perl releases.  (And Perl's support for Unicode
+continues to improve; it's best to use the latest available release in
+order to get the most complete and accurate results possible.)  Note that
+C<unicode_strings> is automatically chosen if you S<C<use 5.012>> or
+higher.
+
+For Perls earlier than those described above, or when a string is passed
+to a function outside the scope of C<unicode_strings>, see the next section.
+
+=head2 Forcing Unicode in Perl (Or Unforcing Unicode in Perl)
+
+Sometimes (see L</"When Unicode Does Not Happen"> or L</The "Unicode Bug">)
+there are situations where you simply need to force a byte
+string into UTF-8, or vice versa.  The standard module L<Encode> can be
+used for this, or the low-level calls
+L<C<utf8::upgrade($bytestring)>|utf8/Utility functions> and
+L<C<utf8::downgrade($utf8string[, FAIL_OK])>|utf8/Utility functions>.
+
+Note that C<utf8::downgrade()> can fail if the string contains characters
+that don't fit into a byte.
+
+Calling either function on a string that already is in the desired state is a
+no-op.
+
+L</ASCII Rules versus Unicode Rules> gives all the ways that a string is
+made to use Unicode rules.
+
+=head2 Using Unicode in XS
+
+See L<perlguts/"Unicode Support"> for an introduction to Unicode at
+the XS level, and L<perlapi/Unicode Support> for the API details.
+
+=head2 Hacking Perl to work on earlier Unicode versions (for very serious hackers only)
+
+Perl by default comes with the latest supported Unicode version built-in, but
+the goal is to allow you to change to use any earlier one.  In Perls
+v5.20 and v5.22, however, the earliest usable version is Unicode 5.1.
+Perl v5.18 is able to handle all earlier versions.
+
+Download the files in the desired version of Unicode from the Unicode web
+site L<http://www.unicode.org>).  These should replace the existing files in
+F<lib/unicore> in the Perl source tree.  Follow the instructions in
+F<README.perl> in that directory to change some of their names, and then build
+perl (see L<INSTALL>).
+
+=head2 Porting code from perl-5.6.X
+
+Perls starting in 5.8 have a different Unicode model from 5.6. In 5.6 the
+programmer was required to use the C<utf8> pragma to declare that a
+given scope expected to deal with Unicode data and had to make sure that
+only Unicode data were reaching that scope. If you have code that is
+working with 5.6, you will need some of the following adjustments to
+your code. The examples are written such that the code will continue to
+work under 5.6, so you should be safe to try them out.
+
+=over 3
+
+=item *
+
+A filehandle that should read or write UTF-8
+
+  if ($] > 5.008) {
+    binmode $fh, ":encoding(utf8)";
+  }
+
+=item *
+
+A scalar that is going to be passed to some extension
+
+Be it C<Compress::Zlib>, C<Apache::Request> or any extension that has no
+mention of Unicode in the manpage, you need to make sure that the
+UTF8 flag is stripped off. Note that at the time of this writing
+(January 2012) the mentioned modules are not UTF-8-aware. Please
+check the documentation to verify if this is still true.
+
+  if ($] > 5.008) {
+    require Encode;
+    $val = Encode::encode_utf8($val); # make octets
+  }
+
+=item *
+
+A scalar we got back from an extension
+
+If you believe the scalar comes back as UTF-8, you will most likely
+want the UTF8 flag restored:
+
+  if ($] > 5.008) {
+    require Encode;
+    $val = Encode::decode_utf8($val);
+  }
+
+=item *
+
+Same thing, if you are really sure it is UTF-8
+
+  if ($] > 5.008) {
+    require Encode;
+    Encode::_utf8_on($val);
+  }
+
+=item *
+
+A wrapper for L<DBI> C<fetchrow_array> and C<fetchrow_hashref>
+
+When the database contains only UTF-8, a wrapper function or method is
+a convenient way to replace all your C<fetchrow_array> and
+C<fetchrow_hashref> calls. A wrapper function will also make it easier to
+adapt to future enhancements in your database driver. Note that at the
+time of this writing (January 2012), the DBI has no standardized way
+to deal with UTF-8 data. Please check the L<DBI documentation|DBI> to verify if
+that is still true.
+
+  sub fetchrow {
+    # $what is one of fetchrow_{array,hashref}
+    my($self, $sth, $what) = @_;
+    if ($] < 5.008) {
+      return $sth->$what;
+    } else {
+      require Encode;
+      if (wantarray) {
+        my @arr = $sth->$what;
+        for (@arr) {
+          defined && /[^\000-\177]/ && Encode::_utf8_on($_);
+        }
+        return @arr;
+      } else {
+        my $ret = $sth->$what;
+        if (ref $ret) {
+          for my $k (keys %$ret) {
+            defined
+            && /[^\000-\177]/
+            && Encode::_utf8_on($_) for $ret->{$k};
+          }
+          return $ret;
+        } else {
+          defined && /[^\000-\177]/ && Encode::_utf8_on($_) for $ret;
+          return $ret;
+        }
+      }
+    }
+  }
+
+
+=item *
+
+A large scalar that you know can only contain ASCII
+
+Scalars that contain only ASCII and are marked as UTF-8 are sometimes
+a drag to your program. If you recognize such a situation, just remove
+the UTF8 flag:
+
+  utf8::downgrade($val) if $] > 5.008;
+
+=back
+
+=head1 BUGS
+
+See also L</The "Unicode Bug"> above.
+
+=head2 Interaction with Extensions
+
+When Perl exchanges data with an extension, the extension should be
+able to understand the UTF8 flag and act accordingly. If the
+extension doesn't recognize that flag, it's likely that the extension
+will return incorrectly-flagged data.
+
+So if you're working with Unicode data, consult the documentation of
+every module you're using if there are any issues with Unicode data
+exchange. If the documentation does not talk about Unicode at all,
+suspect the worst and probably look at the source to learn how the
+module is implemented. Modules written completely in Perl shouldn't
+cause problems. Modules that directly or indirectly access code written
+in other programming languages are at risk.
+
+For affected functions, the simple strategy to avoid data corruption is
+to always make the encoding of the exchanged data explicit. Choose an
+encoding that you know the extension can handle. Convert arguments passed
+to the extensions to that encoding and convert results back from that
+encoding. Write wrapper functions that do the conversions for you, so
+you can later change the functions when the extension catches up.
+
+To provide an example, let's say the popular C<Foo::Bar::escape_html>
+function doesn't deal with Unicode data yet. The wrapper function
+would convert the argument to raw UTF-8 and convert the result back to
+Perl's internal representation like so:
+
+    sub my_escape_html ($) {
+        my($what) = shift;
+        return unless defined $what;
+        Encode::decode_utf8(Foo::Bar::escape_html(
+                                         Encode::encode_utf8($what)));
+    }
+
+Sometimes, when the extension does not convert data but just stores
+and retrieves it, you will be able to use the otherwise
+dangerous L<C<Encode::_utf8_on()>|Encode/_utf8_on> function. Let's say
+the popular C<Foo::Bar> extension, written in C, provides a C<param>
+method that lets you store and retrieve data according to these prototypes:
+
+    $self->param($name, $value);            # set a scalar
+    $value = $self->param($name);           # retrieve a scalar
+
+If it does not yet provide support for any encoding, one could write a
+derived class with such a C<param> method:
+
+    sub param {
+      my($self,$name,$value) = @_;
+      utf8::upgrade($name);     # make sure it is UTF-8 encoded
+      if (defined $value) {
+        utf8::upgrade($value);  # make sure it is UTF-8 encoded
+        return $self->SUPER::param($name,$value);
+      } else {
+        my $ret = $self->SUPER::param($name);
+        Encode::_utf8_on($ret); # we know, it is UTF-8 encoded
+        return $ret;
+      }
+    }
+
+Some extensions provide filters on data entry/exit points, such as
+C<DB_File::filter_store_key> and family. Look out for such filters in
+the documentation of your extensions; they can make the transition to
+Unicode data much easier.
+
+=head2 Speed
+
+Some functions are slower when working on UTF-8 encoded strings than
+on byte encoded strings.  All functions that need to hop over
+characters such as C<length()>, C<substr()> or C<index()>, or matching
+regular expressions can work B<much> faster when the underlying data are
+byte-encoded.
+
+In Perl 5.8.0 the slowness was often quite spectacular; in Perl 5.8.1
+a caching scheme was introduced which improved the situation.  In general,
+operations with UTF-8 encoded strings are still slower. As an example,
+the Unicode properties (character classes) like C<\p{Nd}> are known to
+be quite a bit slower (5-20 times) than their simpler counterparts
+like C<[0-9]> (then again, there are hundreds of Unicode characters matching
+C<Nd> compared with the 10 ASCII characters matching C<[0-9]>).
+
+=head1 SEE ALSO
+
+L<perlunitut>, L<perluniintro>, L<perluniprops>, L<Encode>, L<open>, L<utf8>, L<bytes>,
+L<perlretut>, L<perlvar/"${^UNICODE}">,
+L<http://www.unicode.org/reports/tr44>).
+
+=cut
diff --git a/lib/5.24.1/pod/perlunicook.pod b/lib/5.24.1/pod/perlunicook.pod
new file mode 100644
index 00000000..e1693cd6
--- /dev/null
+++ b/lib/5.24.1/pod/perlunicook.pod
@@ -0,0 +1,857 @@
+
+=encoding utf8
+
+=head1 NAME
+
+perlunicook - cookbookish examples of handling Unicode in Perl
+
+=head1 DESCRIPTION
+
+This manpage contains short recipes demonstrating how to handle common Unicode
+operations in Perl, plus one complete program at the end. Any undeclared
+variables in individual recipes are assumed to have a previous appropriate
+value in them.
+
+=head1 EXAMPLES
+
+=head2 â„ž 0: Standard preamble
+
+Unless otherwise notes, all examples below require this standard preamble
+to work correctly, with the C<#!> adjusted to work on your system:
+
+ #!/usr/bin/env perl
+
+ use utf8;      # so literals and identifiers can be in UTF-8
+ use v5.12;     # or later to get "unicode_strings" feature
+ use strict;    # quote strings, declare variables
+ use warnings;  # on by default
+ use warnings  qw(FATAL utf8);    # fatalize encoding glitches
+ use open      qw(:std :utf8);    # undeclared streams in UTF-8
+ use charnames qw(:full :short);  # unneeded in v5.16
+
+This I<does> make even Unix programmers C<binmode> your binary streams,
+or open them with C<:raw>, but that's the only way to get at them
+portably anyway.
+
+B<WARNING>: C<use autodie> (pre 2.26) and C<use open> do not get along with each
+other.
+
+=head2 â„ž 1: Generic Unicode-savvy filter
+
+Always decompose on the way in, then recompose on the way out.
+
+ use Unicode::Normalize;
+
+ while (<>) {
+     $_ = NFD($_);   # decompose + reorder canonically
+     ...
+ } continue {
+     print NFC($_);  # recompose (where possible) + reorder canonically
+ }
+
+=head2 â„ž 2: Fine-tuning Unicode warnings
+
+As of v5.14, Perl distinguishes three subclasses of UTF‑8 warnings.
+
+ use v5.14;                  # subwarnings unavailable any earlier
+ no warnings "nonchar";      # the 66 forbidden non-characters
+ no warnings "surrogate";    # UTF-16/CESU-8 nonsense
+ no warnings "non_unicode";  # for codepoints over 0x10_FFFF
+
+=head2 â„ž 3: Declare source in utf8 for identifiers and literals
+
+Without the all-critical C<use utf8> declaration, putting UTF‑8 in your
+literals and identifiers won’t work right.  If you used the standard
+preamble just given above, this already happened.  If you did, you can
+do things like this:
+
+ use utf8;
+
+ my $measure   = "Ångström";
+ my @μsoft     = qw( cp852 cp1251 cp1252 );
+ my @ὑπέ�μεγας = qw( ὑπέ�  μεγας );
+ my @鯉        = qw( koi8-f koi8-u koi8-r );
+ my $motto     = "👪 💗 �"; # FAMILY, GROWING HEART, DROMEDARY CAMEL
+
+If you forget C<use utf8>, high bytes will be misunderstood as
+separate characters, and nothing will work right.
+
+=head2 â„ž 4: Characters and their numbers
+
+The C<ord> and C<chr> functions work transparently on all codepoints,
+not just on ASCII alone — nor in fact, not even just on Unicode alone.
+
+ # ASCII characters
+ ord("A")
+ chr(65)
+
+ # characters from the Basic Multilingual Plane
+ ord("Σ")
+ chr(0x3A3)
+
+ # beyond the BMP
+ ord("�")               # MATHEMATICAL ITALIC SMALL N
+ chr(0x1D45B)
+
+ # beyond Unicode! (up to MAXINT)
+ ord("\x{20_0000}")
+ chr(0x20_0000)
+
+=head2 â„ž 5: Unicode literals by character number
+
+In an interpolated literal, whether a double-quoted string or a
+regex, you may specify a character by its number using the
+C<\x{I<HHHHHH>}> escape.
+
+ String: "\x{3a3}"
+ Regex:  /\x{3a3}/
+
+ String: "\x{1d45b}"
+ Regex:  /\x{1d45b}/
+
+ # even non-BMP ranges in regex work fine
+ /[\x{1D434}-\x{1D467}]/
+
+=head2 â„ž 6: Get character name by number
+
+ use charnames ();
+ my $name = charnames::viacode(0x03A3);
+
+=head2 â„ž 7: Get character number by name
+
+ use charnames ();
+ my $number = charnames::vianame("GREEK CAPITAL LETTER SIGMA");
+
+=head2 â„ž 8: Unicode named characters
+
+Use the C<< \N{I<charname>} >> notation to get the character
+by that name for use in interpolated literals (double-quoted
+strings and regexes).  In v5.16, there is an implicit
+
+ use charnames qw(:full :short);
+
+But prior to v5.16, you must be explicit about which set of charnames you
+want.  The C<:full> names are the official Unicode character name, alias, or
+sequence, which all share a namespace.
+
+ use charnames qw(:full :short latin greek);
+
+ "\N{MATHEMATICAL ITALIC SMALL N}"      # :full
+ "\N{GREEK CAPITAL LETTER SIGMA}"       # :full
+
+Anything else is a Perl-specific convenience abbreviation.  Specify one or
+more scripts by names if you want short names that are script-specific.
+
+ "\N{Greek:Sigma}"                      # :short
+ "\N{ae}"                               #  latin
+ "\N{epsilon}"                          #  greek
+
+The v5.16 release also supports a C<:loose> import for loose matching of
+character names, which works just like loose matching of property names:
+that is, it disregards case, whitespace, and underscores:
+
+ "\N{euro sign}"                        # :loose (from v5.16)
+
+=head2 â„ž 9: Unicode named sequences
+
+These look just like character names but return multiple codepoints.
+Notice the C<%vx> vector-print functionality in C<printf>.
+
+ use charnames qw(:full);
+ my $seq = "\N{LATIN CAPITAL LETTER A WITH MACRON AND GRAVE}";
+ printf "U+%v04X\n", $seq;
+ U+0100.0300
+
+=head2 â„ž 10: Custom named characters
+
+Use C<:alias> to give your own lexically scoped nicknames to existing
+characters, or even to give unnamed private-use characters useful names.
+
+ use charnames ":full", ":alias" => {
+     ecute => "LATIN SMALL LETTER E WITH ACUTE",
+     "APPLE LOGO" => 0xF8FF, # private use character
+ };
+
+ "\N{ecute}"
+ "\N{APPLE LOGO}"
+
+=head2 â„ž 11: Names of CJK codepoints
+
+Sinograms like “�京� come back with character names of
+C<CJK UNIFIED IDEOGRAPH-6771> and C<CJK UNIFIED IDEOGRAPH-4EAC>,
+because their “names� vary.  The CPAN C<Unicode::Unihan> module
+has a large database for decoding these (and a whole lot more), provided you
+know how to understand its output.
+
+ # cpan -i Unicode::Unihan
+ use Unicode::Unihan;
+ my $str = "�京";
+ my $unhan = Unicode::Unihan->new;
+ for my $lang (qw(Mandarin Cantonese Korean JapaneseOn JapaneseKun)) {
+     printf "CJK $str in %-12s is ", $lang;
+     say $unhan->$lang($str);
+ }
+
+prints:
+
+ CJK �京 in Mandarin     is DONG1JING1
+ CJK �京 in Cantonese    is dung1ging1
+ CJK �京 in Korean       is TONGKYENG
+ CJK �京 in JapaneseOn   is TOUKYOU KEI KIN
+ CJK �京 in JapaneseKun  is HIGASHI AZUMAMIYAKO
+
+If you have a specific romanization scheme in mind,
+use the specific module:
+
+ # cpan -i Lingua::JA::Romanize::Japanese
+ use Lingua::JA::Romanize::Japanese;
+ my $k2r = Lingua::JA::Romanize::Japanese->new;
+ my $str = "�京";
+ say "Japanese for $str is ", $k2r->chars($str);
+
+prints
+
+ Japanese for �京 is toukyou
+
+=head2 â„ž 12: Explicit encode/decode
+
+On rare occasion, such as a database read, you may be
+given encoded text you need to decode.
+
+  use Encode qw(encode decode);
+
+  my $chars = decode("shiftjis", $bytes, 1);
+ # OR
+  my $bytes = encode("MIME-Header-ISO_2022_JP", $chars, 1);
+
+For streams all in the same encoding, don't use encode/decode; instead
+set the file encoding when you open the file or immediately after with
+C<binmode> as described later below.
+
+=head2 â„ž 13: Decode program arguments as utf8
+
+     $ perl -CA ...
+ or
+     $ export PERL_UNICODE=A
+ or
+    use Encode qw(decode_utf8);
+    @ARGV = map { decode_utf8($_, 1) } @ARGV;
+
+=head2 â„ž 14: Decode program arguments as locale encoding
+
+    # cpan -i Encode::Locale
+    use Encode qw(locale);
+    use Encode::Locale;
+
+    # use "locale" as an arg to encode/decode
+    @ARGV = map { decode(locale => $_, 1) } @ARGV;
+
+=head2 â„ž 15: Declare STD{IN,OUT,ERR} to be utf8
+
+Use a command-line option, an environment variable, or else
+call C<binmode> explicitly:
+
+     $ perl -CS ...
+ or
+     $ export PERL_UNICODE=S
+ or
+     use open qw(:std :utf8);
+ or
+     binmode(STDIN,  ":utf8");
+     binmode(STDOUT, ":utf8");
+     binmode(STDERR, ":utf8");
+
+=head2 â„ž 16: Declare STD{IN,OUT,ERR} to be in locale encoding
+
+    # cpan -i Encode::Locale
+    use Encode;
+    use Encode::Locale;
+
+    # or as a stream for binmode or open
+    binmode STDIN,  ":encoding(console_in)"  if -t STDIN;
+    binmode STDOUT, ":encoding(console_out)" if -t STDOUT;
+    binmode STDERR, ":encoding(console_out)" if -t STDERR;
+
+=head2 â„ž 17: Make file I/O default to utf8
+
+Files opened without an encoding argument will be in UTF-8:
+
+     $ perl -CD ...
+ or
+     $ export PERL_UNICODE=D
+ or
+     use open qw(:utf8);
+
+=head2 â„ž 18: Make all I/O and args default to utf8
+
+     $ perl -CSDA ...
+ or
+     $ export PERL_UNICODE=SDA
+ or
+     use open qw(:std :utf8);
+     use Encode qw(decode_utf8);
+     @ARGV = map { decode_utf8($_, 1) } @ARGV;
+
+=head2 â„ž 19: Open file with specific encoding
+
+Specify stream encoding.  This is the normal way
+to deal with encoded text, not by calling low-level
+functions.
+
+ # input file
+     open(my $in_file, "< :encoding(UTF-16)", "wintext");
+ OR
+     open(my $in_file, "<", "wintext");
+     binmode($in_file, ":encoding(UTF-16)");
+ THEN
+     my $line = <$in_file>;
+
+ # output file
+     open($out_file, "> :encoding(cp1252)", "wintext");
+ OR
+     open(my $out_file, ">", "wintext");
+     binmode($out_file, ":encoding(cp1252)");
+ THEN
+     print $out_file "some text\n";
+
+More layers than just the encoding can be specified here. For example,
+the incantation C<":raw :encoding(UTF-16LE) :crlf"> includes implicit
+CRLF handling.
+
+=head2 â„ž 20: Unicode casing
+
+Unicode casing is very different from ASCII casing.
+
+ uc("henry â…·")  # "HENRY â…§"
+ uc("tschüß")   # "TSCHÜSS"  notice ß => SS
+
+ # both are true:
+ "tschüß"  =~ /TSCHÜSS/i   # notice ß => SS
+ "Σίσυφος" =~ /ΣΊΣΥΦΟΣ/i   # notice Σ,σ,ς sameness
+
+=head2 â„ž 21: Unicode case-insensitive comparisons
+
+Also available in the CPAN L<Unicode::CaseFold> module,
+the new C<fc> “foldcase� function from v5.16 grants
+access to the same Unicode casefolding as the C</i>
+pattern modifier has always used:
+
+ use feature "fc"; # fc() function is from v5.16
+
+ # sort case-insensitively
+ my @sorted = sort { fc($a) cmp fc($b) } @list;
+
+ # both are true:
+ fc("tschüß")  eq fc("TSCHÜSS")
+ fc("Σίσυφος") eq fc("ΣΊΣΥΦΟΣ")
+
+=head2 â„ž 22: Match Unicode linebreak sequence in regex
+
+A Unicode linebreak matches the two-character CRLF
+grapheme or any of seven vertical whitespace characters.
+Good for dealing with textfiles coming from different
+operating systems.
+
+ \R
+
+ s/\R/\n/g;  # normalize all linebreaks to \n
+
+=head2 â„ž 23: Get character category
+
+Find the general category of a numeric codepoint.
+
+ use Unicode::UCD qw(charinfo);
+ my $cat = charinfo(0x3A3)->{category};  # "Lu"
+
+=head2 â„ž 24: Disabling Unicode-awareness in builtin charclasses
+
+Disable C<\w>, C<\b>, C<\s>, C<\d>, and the POSIX
+classes from working correctly on Unicode either in this
+scope, or in just one regex.
+
+ use v5.14;
+ use re "/a";
+
+ # OR
+
+ my($num) = $str =~ /(\d+)/a;
+
+Or use specific un-Unicode properties, like C<\p{ahex}>
+and C<\p{POSIX_Digit>}.  Properties still work normally
+no matter what charset modifiers (C</d /u /l /a /aa>)
+should be effect.
+
+=head2 â„ž 25: Match Unicode properties in regex with \p, \P
+
+These all match a single codepoint with the given
+property.  Use C<\P> in place of C<\p> to match
+one codepoint lacking that property.
+
+ \pL, \pN, \pS, \pP, \pM, \pZ, \pC
+ \p{Sk}, \p{Ps}, \p{Lt}
+ \p{alpha}, \p{upper}, \p{lower}
+ \p{Latin}, \p{Greek}
+ \p{script=Latin}, \p{script=Greek}
+ \p{East_Asian_Width=Wide}, \p{EA=W}
+ \p{Line_Break=Hyphen}, \p{LB=HY}
+ \p{Numeric_Value=4}, \p{NV=4}
+
+=head2 â„ž 26: Custom character properties
+
+Define at compile-time your own custom character
+properties for use in regexes.
+
+ # using private-use characters
+ sub In_Tengwar { "E000\tE07F\n" }
+
+ if (/\p{In_Tengwar}/) { ... }
+
+ # blending existing properties
+ sub Is_GraecoRoman_Title {<<'END_OF_SET'}
+ +utf8::IsLatin
+ +utf8::IsGreek
+ &utf8::IsTitle
+ END_OF_SET
+
+ if (/\p{Is_GraecoRoman_Title}/ { ... }
+
+=head2 â„ž 27: Unicode normalization
+
+Typically render into NFD on input and NFC on output. Using NFKC or NFKD
+functions improves recall on searches, assuming you've already done to the
+same text to be searched. Note that this is about much more than just pre-
+combined compatibility glyphs; it also reorders marks according to their
+canonical combining classes and weeds out singletons.
+
+ use Unicode::Normalize;
+ my $nfd  = NFD($orig);
+ my $nfc  = NFC($orig);
+ my $nfkd = NFKD($orig);
+ my $nfkc = NFKC($orig);
+
+=head2 â„ž 28: Convert non-ASCII Unicode numerics
+
+Unless you’ve used C</a> or C</aa>, C<\d> matches more than
+ASCII digits only, but Perl’s implicit string-to-number
+conversion does not current recognize these.  Here’s how to
+convert such strings manually.
+
+ use v5.14;  # needed for num() function
+ use Unicode::UCD qw(num);
+ my $str = "got Ⅻ and ४५६७ and ⅞ and here";
+ my @nums = ();
+ while ($str =~ /(\d+|\N)/g) {  # not just ASCII!
+    push @nums, num($1);
+ }
+ say "@nums";   #     12      4567      0.875
+
+ use charnames qw(:full);
+ my $nv = num("\N{RUMI DIGIT ONE}\N{RUMI DIGIT TWO}");
+
+=head2 â„ž 29: Match Unicode grapheme cluster in regex
+
+Programmer-visible “characters� are codepoints matched by C</./s>,
+but user-visible “characters� are graphemes matched by C</\X/>.
+
+ # Find vowel *plus* any combining diacritics,underlining,etc.
+ my $nfd = NFD($orig);
+ $nfd =~ / (?=[aeiou]) \X /xi
+
+=head2 â„ž 30: Extract by grapheme instead of by codepoint (regex)
+
+ # match and grab five first graphemes
+ my($first_five) = $str =~ /^ ( \X{5} ) /x;
+
+=head2 â„ž 31: Extract by grapheme instead of by codepoint (substr)
+
+ # cpan -i Unicode::GCString
+ use Unicode::GCString;
+ my $gcs = Unicode::GCString->new($str);
+ my $first_five = $gcs->substr(0, 5);
+
+=head2 â„ž 32: Reverse string by grapheme
+
+Reversing by codepoint messes up diacritics, mistakenly converting
+C<crème brûlée> into C<éel̂urb em̀erc> instead of into C<eélûrb emèrc>;
+so reverse by grapheme instead.  Both these approaches work
+right no matter what normalization the string is in:
+
+ $str = join("", reverse $str =~ /\X/g);
+
+ # OR: cpan -i Unicode::GCString
+ use Unicode::GCString;
+ $str = reverse Unicode::GCString->new($str);
+
+=head2 â„ž 33: String length in graphemes
+
+The string C<brûlée> has six graphemes but up to eight codepoints.
+This counts by grapheme, not by codepoint:
+
+ my $str = "brûlée";
+ my $count = 0;
+ while ($str =~ /\X/g) { $count++ }
+
+  # OR: cpan -i Unicode::GCString
+ use Unicode::GCString;
+ my $gcs = Unicode::GCString->new($str);
+ my $count = $gcs->length;
+
+=head2 â„ž 34: Unicode column-width for printing
+
+Perl’s C<printf>, C<sprintf>, and C<format> think all
+codepoints take up 1 print column, but many take 0 or 2.
+Here to show that normalization makes no difference,
+we print out both forms:
+
+ use Unicode::GCString;
+ use Unicode::Normalize;
+
+ my @words = qw/crème brûlée/;
+ @words = map { NFC($_), NFD($_) } @words;
+
+ for my $str (@words) {
+     my $gcs = Unicode::GCString->new($str);
+     my $cols = $gcs->columns;
+     my $pad = " " x (10 - $cols);
+     say str, $pad, " |";
+ }
+
+generates this to show that it pads correctly no matter
+the normalization:
+
+ crème      |
+ crème      |
+ brûlée     |
+ brûle�e     |
+
+=head2 â„ž 35: Unicode collation
+
+Text sorted by numeric codepoint follows no reasonable alphabetic order;
+use the UCA for sorting text.
+
+ use Unicode::Collate;
+ my $col = Unicode::Collate->new();
+ my @list = $col->sort(@old_list);
+
+See the I<ucsort> program from the L<Unicode::Tussle> CPAN module
+for a convenient command-line interface to this module.
+
+=head2 â„ž 36: Case- I<and> accent-insensitive Unicode sort
+
+Specify a collation strength of level 1 to ignore case and
+diacritics, only looking at the basic character.
+
+ use Unicode::Collate;
+ my $col = Unicode::Collate->new(level => 1);
+ my @list = $col->sort(@old_list);
+
+=head2 â„ž 37: Unicode locale collation
+
+Some locales have special sorting rules.
+
+ # either use v5.12, OR: cpan -i Unicode::Collate::Locale
+ use Unicode::Collate::Locale;
+ my $col = Unicode::Collate::Locale->new(locale => "de__phonebook");
+ my @list = $col->sort(@old_list);
+
+The I<ucsort> program mentioned above accepts a C<--locale> parameter.
+
+=head2 â„ž 38: Making C<cmp> work on text instead of codepoints
+
+Instead of this:
+
+ @srecs = sort {
+     $b->{AGE}   <=>  $a->{AGE}
+                 ||
+     $a->{NAME}  cmp  $b->{NAME}
+ } @recs;
+
+Use this:
+
+ my $coll = Unicode::Collate->new();
+ for my $rec (@recs) {
+     $rec->{NAME_key} = $coll->getSortKey( $rec->{NAME} );
+ }
+ @srecs = sort {
+     $b->{AGE}       <=>  $a->{AGE}
+                     ||
+     $a->{NAME_key}  cmp  $b->{NAME_key}
+ } @recs;
+
+=head2 â„ž 39: Case- I<and> accent-insensitive comparisons
+
+Use a collator object to compare Unicode text by character
+instead of by codepoint.
+
+ use Unicode::Collate;
+ my $es = Unicode::Collate->new(
+     level => 1,
+     normalization => undef
+ );
+
+  # now both are true:
+ $es->eq("García",  "GARCIA" );
+ $es->eq("Márquez", "MARQUEZ");
+
+=head2 â„ž 40: Case- I<and> accent-insensitive locale comparisons
+
+Same, but in a specific locale.
+
+ my $de = Unicode::Collate::Locale->new(
+            locale => "de__phonebook",
+          );
+
+ # now this is true:
+ $de->eq("tschüß", "TSCHUESS");  # notice ü => UE, ß => SS
+
+=head2 â„ž 41: Unicode linebreaking
+
+Break up text into lines according to Unicode rules.
+
+ # cpan -i Unicode::LineBreak
+ use Unicode::LineBreak;
+ use charnames qw(:full);
+
+ my $para = "This is a super\N{HYPHEN}long string. " x 20;
+ my $fmt = Unicode::LineBreak->new;
+ print $fmt->break($para), "\n";
+
+=head2 â„ž 42: Unicode text in DBM hashes, the tedious way
+
+Using a regular Perl string as a key or value for a DBM
+hash will trigger a wide character exception if any codepoints
+won’t fit into a byte.  Here’s how to manually manage the translation:
+
+    use DB_File;
+    use Encode qw(encode decode);
+    tie %dbhash, "DB_File", "pathname";
+
+ # STORE
+
+    # assume $uni_key and $uni_value are abstract Unicode strings
+    my $enc_key   = encode("UTF-8", $uni_key, 1);
+    my $enc_value = encode("UTF-8", $uni_value, 1);
+    $dbhash{$enc_key} = $enc_value;
+
+ # FETCH
+
+    # assume $uni_key holds a normal Perl string (abstract Unicode)
+    my $enc_key   = encode("UTF-8", $uni_key, 1);
+    my $enc_value = $dbhash{$enc_key};
+    my $uni_value = decode("UTF-8", $enc_value, 1);
+
+=head2 â„ž 43: Unicode text in DBM hashes, the easy way
+
+Here’s how to implicitly manage the translation; all encoding
+and decoding is done automatically, just as with streams that
+have a particular encoding attached to them:
+
+    use DB_File;
+    use DBM_Filter;
+
+    my $dbobj = tie %dbhash, "DB_File", "pathname";
+    $dbobj->Filter_Value("utf8");  # this is the magic bit
+
+ # STORE
+
+    # assume $uni_key and $uni_value are abstract Unicode strings
+    $dbhash{$uni_key} = $uni_value;
+
+  # FETCH
+
+    # $uni_key holds a normal Perl string (abstract Unicode)
+    my $uni_value = $dbhash{$uni_key};
+
+=head2 â„ž 44: PROGRAM: Demo of Unicode collation and printing
+
+Here’s a full program showing how to make use of locale-sensitive
+sorting, Unicode casing, and managing print widths when some of the
+characters take up zero or two columns, not just one column each time.
+When run, the following program produces this nicely aligned output:
+
+    Crème Brûlée....... €2.00
+    Éclair............. €1.60
+    Fideuà............. €4.20
+    Hamburger.......... €6.00
+    Jamón Serrano...... €4.45
+    Linguiça........... €7.00
+    Pâté............... €4.15
+    Pears.............. €2.00
+    Pêches............. €2.25
+    Smørbrød........... €5.75
+    Spätzle............ €5.50
+    Xoriço............. €3.00
+    Γ��ος.............. €6.50
+    막걸리............. €4.00
+    �も�............. €2.65
+    �好�焼�......... €8.00
+    シュークリーム..... €1.85
+    寿�............... €9.99
+    包�............... €7.50
+
+Here's that program; tested on v5.14.
+
+ #!/usr/bin/env perl
+ # umenu - demo sorting and printing of Unicode food
+ #
+ # (obligatory and increasingly long preamble)
+ #
+ use utf8;
+ use v5.14;                       # for locale sorting
+ use strict;
+ use warnings;
+ use warnings  qw(FATAL utf8);    # fatalize encoding faults
+ use open      qw(:std :utf8);    # undeclared streams in UTF-8
+ use charnames qw(:full :short);  # unneeded in v5.16
+
+ # std modules
+ use Unicode::Normalize;          # std perl distro as of v5.8
+ use List::Util qw(max);          # std perl distro as of v5.10
+ use Unicode::Collate::Locale;    # std perl distro as of v5.14
+
+ # cpan modules
+ use Unicode::GCString;           # from CPAN
+
+ # forward defs
+ sub pad($$$);
+ sub colwidth(_);
+ sub entitle(_);
+
+ my %price = (
+     "γ��ος"             => 6.50, # gyros
+     "pears"             => 2.00, # like um, pears
+     "linguiça"          => 7.00, # spicy sausage, Portuguese
+     "xoriço"            => 3.00, # chorizo sausage, Catalan
+     "hamburger"         => 6.00, # burgermeister meisterburger
+     "éclair"            => 1.60, # dessert, French
+     "smørbrød"          => 5.75, # sandwiches, Norwegian
+     "spätzle"           => 5.50, # Bayerisch noodles, little sparrows
+     "包�"              => 7.50, # bao1 zi5, steamed pork buns, Mandarin
+     "jamón serrano"     => 4.45, # country ham, Spanish
+     "pêches"            => 2.25, # peaches, French
+     "シュークリーム"    => 1.85, # cream-filled pastry like eclair
+     "막걸리"            => 4.00, # makgeolli, Korean rice wine
+     "寿�"              => 9.99, # sushi, Japanese
+     "�も�"            => 2.65, # omochi, rice cakes, Japanese
+     "crème brûlée"      => 2.00, # crema catalana
+     "fideuà"            => 4.20, # more noodles, Valencian
+                                  # (Catalan=fideuada)
+     "pâté"              => 4.15, # gooseliver paste, French
+     "�好�焼�"        => 8.00, # okonomiyaki, Japanese
+ );
+
+ my $width = 5 + max map { colwidth } keys %price;
+
+ # So the Asian stuff comes out in an order that someone
+ # who reads those scripts won't freak out over; the
+ # CJK stuff will be in JIS X 0208 order that way.
+ my $coll  = Unicode::Collate::Locale->new(locale => "ja");
+
+ for my $item ($coll->sort(keys %price)) {
+     print pad(entitle($item), $width, ".");
+     printf " €%.2f\n", $price{$item};
+ }
+
+ sub pad($$$) {
+     my($str, $width, $padchar) = @_;
+     return $str . ($padchar x ($width - colwidth($str)));
+ }
+
+ sub colwidth(_) {
+     my($str) = @_;
+     return Unicode::GCString->new($str)->columns;
+ }
+
+ sub entitle(_) {
+     my($str) = @_;
+     $str =~ s{ (?=\pL)(\S)     (\S*) }
+              { ucfirst($1) . lc($2)  }xge;
+     return $str;
+ }
+
+=head1 SEE ALSO
+
+See these manpages, some of which are CPAN modules:
+L<perlunicode>, L<perluniprops>,
+L<perlre>, L<perlrecharclass>,
+L<perluniintro>, L<perlunitut>, L<perlunifaq>,
+L<PerlIO>, L<DB_File>, L<DBM_Filter>, L<DBM_Filter::utf8>,
+L<Encode>, L<Encode::Locale>,
+L<Unicode::UCD>,
+L<Unicode::Normalize>,
+L<Unicode::GCString>, L<Unicode::LineBreak>,
+L<Unicode::Collate>, L<Unicode::Collate::Locale>,
+L<Unicode::Unihan>,
+L<Unicode::CaseFold>,
+L<Unicode::Tussle>,
+L<Lingua::JA::Romanize::Japanese>,
+L<Lingua::ZH::Romanize::Pinyin>,
+L<Lingua::KO::Romanize::Hangul>.
+
+The L<Unicode::Tussle> CPAN module includes many programs
+to help with working with Unicode, including
+these programs to fully or partly replace standard utilities:
+I<tcgrep> instead of I<egrep>,
+I<uniquote> instead of I<cat -v> or I<hexdump>,
+I<uniwc> instead of I<wc>,
+I<unilook> instead of I<look>,
+I<unifmt> instead of I<fmt>,
+and
+I<ucsort> instead of I<sort>.
+For exploring Unicode character names and character properties,
+see its I<uniprops>, I<unichars>, and I<uninames> programs.
+It also supplies these programs, all of which are general filters that do Unicode-y things:
+I<unititle> and I<unicaps>;
+I<uniwide> and I<uninarrow>;
+I<unisupers> and I<unisubs>;
+I<nfd>, I<nfc>, I<nfkd>, and I<nfkc>;
+and I<uc>, I<lc>, and I<tc>.
+
+Finally, see the published Unicode Standard (page numbers are from version
+6.0.0), including these specific annexes and technical reports:
+
+=over
+
+=item §3.13 Default Case Algorithms, page 113;
+§4.2  Case, pages 120–122;
+Case Mappings, page 166–172, especially Caseless Matching starting on page 170.
+
+=item UAX #44: Unicode Character Database
+
+=item UTS #18: Unicode Regular Expressions
+
+=item UAX #15: Unicode Normalization Forms
+
+=item UTS #10: Unicode Collation Algorithm
+
+=item UAX #29: Unicode Text Segmentation
+
+=item UAX #14: Unicode Line Breaking Algorithm
+
+=item UAX #11: East Asian Width
+
+=back
+
+=head1 AUTHOR
+
+Tom Christiansen E<lt>tchrist@perl.comE<gt> wrote this, with occasional
+kibbitzing from Larry Wall and Jeffrey Friedl in the background.
+
+=head1 COPYRIGHT AND LICENCE
+
+Copyright © 2012 Tom Christiansen.
+
+This program is free software; you may redistribute it and/or modify it
+under the same terms as Perl itself.
+
+Most of these examples taken from the current edition of the “Camel Book�;
+that is, from the 4ᵗʰ Edition of I<Programming Perl>, Copyright © 2012 Tom
+Christiansen <et al.>, 2012-02-13 by O’Reilly Media.  The code itself is
+freely redistributable, and you are encouraged to transplant, fold,
+spindle, and mutilate any of the examples in this manpage however you please
+for inclusion into your own programs without any encumbrance whatsoever.
+Acknowledgement via code comment is polite but not required.
+
+=head1 REVISION HISTORY
+
+v1.0.0 – first public release, 2012-02-27
diff --git a/lib/5.24.1/pod/perlunifaq.pod b/lib/5.24.1/pod/perlunifaq.pod
new file mode 100644
index 00000000..4135fbae
--- /dev/null
+++ b/lib/5.24.1/pod/perlunifaq.pod
@@ -0,0 +1,319 @@
+=head1 NAME
+
+perlunifaq - Perl Unicode FAQ
+
+=head1 Q and A
+
+This is a list of questions and answers about Unicode in Perl, intended to be
+read after L<perlunitut>.
+
+=head2 perlunitut isn't really a Unicode tutorial, is it?
+
+No, and this isn't really a Unicode FAQ.
+
+Perl has an abstracted interface for all supported character encodings, so this
+is actually a generic C<Encode> tutorial and C<Encode> FAQ. But many people
+think that Unicode is special and magical, and I didn't want to disappoint
+them, so I decided to call the document a Unicode tutorial.
+
+=head2 What character encodings does Perl support?
+
+To find out which character encodings your Perl supports, run:
+
+    perl -MEncode -le "print for Encode->encodings(':all')"
+
+=head2 Which version of perl should I use?
+
+Well, if you can, upgrade to the most recent, but certainly C<5.8.1> or newer.
+The tutorial and FAQ assume the latest release.
+
+You should also check your modules, and upgrade them if necessary. For example,
+HTML::Entities requires version >= 1.32 to function correctly, even though the
+changelog is silent about this.
+
+=head2 What about binary data, like images?
+
+Well, apart from a bare C<binmode $fh>, you shouldn't treat them specially.
+(The binmode is needed because otherwise Perl may convert line endings on Win32
+systems.)
+
+Be careful, though, to never combine text strings with binary strings. If you
+need text in a binary stream, encode your text strings first using the
+appropriate encoding, then join them with binary strings. See also: "What if I
+don't encode?".
+
+=head2 When should I decode or encode?
+
+Whenever you're communicating text with anything that is external to your perl
+process, like a database, a text file, a socket, or another program. Even if
+the thing you're communicating with is also written in Perl.
+
+=head2 What if I don't decode?
+
+Whenever your encoded, binary string is used together with a text string, Perl
+will assume that your binary string was encoded with ISO-8859-1, also known as
+latin-1. If it wasn't latin-1, then your data is unpleasantly converted. For
+example, if it was UTF-8, the individual bytes of multibyte characters are seen
+as separate characters, and then again converted to UTF-8. Such double encoding
+can be compared to double HTML encoding (C<&amp;gt;>), or double URI encoding
+(C<%253E>).
+
+This silent implicit decoding is known as "upgrading". That may sound
+positive, but it's best to avoid it.
+
+=head2 What if I don't encode?
+
+Your text string will be sent using the bytes in Perl's internal format. In
+some cases, Perl will warn you that you're doing something wrong, with a
+friendly warning:
+
+    Wide character in print at example.pl line 2.
+
+Because the internal format is often UTF-8, these bugs are hard to spot,
+because UTF-8 is usually the encoding you wanted! But don't be lazy, and don't
+use the fact that Perl's internal format is UTF-8 to your advantage. Encode
+explicitly to avoid weird bugs, and to show to maintenance programmers that you
+thought this through.
+
+=head2 Is there a way to automatically decode or encode?
+
+If all data that comes from a certain handle is encoded in exactly the same
+way, you can tell the PerlIO system to automatically decode everything, with
+the C<encoding> layer. If you do this, you can't accidentally forget to decode
+or encode anymore, on things that use the layered handle.
+
+You can provide this layer when C<open>ing the file:
+
+  open my $fh, '>:encoding(UTF-8)', $filename;  # auto encoding on write
+  open my $fh, '<:encoding(UTF-8)', $filename;  # auto decoding on read
+
+Or if you already have an open filehandle:
+
+  binmode $fh, ':encoding(UTF-8)';
+
+Some database drivers for DBI can also automatically encode and decode, but
+that is sometimes limited to the UTF-8 encoding.
+
+=head2 What if I don't know which encoding was used?
+
+Do whatever you can to find out, and if you have to: guess. (Don't forget to
+document your guess with a comment.)
+
+You could open the document in a web browser, and change the character set or
+character encoding until you can visually confirm that all characters look the
+way they should.
+
+There is no way to reliably detect the encoding automatically, so if people
+keep sending you data without charset indication, you may have to educate them.
+
+=head2 Can I use Unicode in my Perl sources?
+
+Yes, you can! If your sources are UTF-8 encoded, you can indicate that with the
+C<use utf8> pragma.
+
+    use utf8;
+
+This doesn't do anything to your input, or to your output. It only influences
+the way your sources are read. You can use Unicode in string literals, in
+identifiers (but they still have to be "word characters" according to C<\w>),
+and even in custom delimiters.
+
+=head2 Data::Dumper doesn't restore the UTF8 flag; is it broken?
+
+No, Data::Dumper's Unicode abilities are as they should be. There have been
+some complaints that it should restore the UTF8 flag when the data is read
+again with C<eval>. However, you should really not look at the flag, and
+nothing indicates that Data::Dumper should break this rule.
+
+Here's what happens: when Perl reads in a string literal, it sticks to 8 bit
+encoding as long as it can. (But perhaps originally it was internally encoded
+as UTF-8, when you dumped it.) When it has to give that up because other
+characters are added to the text string, it silently upgrades the string to
+UTF-8. 
+
+If you properly encode your strings for output, none of this is of your
+concern, and you can just C<eval> dumped data as always.
+
+=head2 Why do regex character classes sometimes match only in the ASCII range?
+
+Starting in Perl 5.14 (and partially in Perl 5.12), just put a
+C<use feature 'unicode_strings'> near the beginning of your program.
+Within its lexical scope you shouldn't have this problem.  It also is
+automatically enabled under C<use feature ':5.12'> or C<use v5.12> or
+using C<-E> on the command line for Perl 5.12 or higher.
+
+The rationale for requiring this is to not break older programs that
+rely on the way things worked before Unicode came along.  Those older
+programs knew only about the ASCII character set, and so may not work
+properly for additional characters.  When a string is encoded in UTF-8,
+Perl assumes that the program is prepared to deal with Unicode, but when
+the string isn't, Perl assumes that only ASCII
+is wanted, and so those characters that are not ASCII
+characters aren't recognized as to what they would be in Unicode.
+C<use feature 'unicode_strings'> tells Perl to treat all characters as
+Unicode, whether the string is encoded in UTF-8 or not, thus avoiding
+the problem.
+
+However, on earlier Perls, or if you pass strings to subroutines outside
+the feature's scope, you can force Unicode rules by changing the
+encoding to UTF-8 by doing C<utf8::upgrade($string)>. This can be used
+safely on any string, as it checks and does not change strings that have
+already been upgraded.
+
+For a more detailed discussion, see L<Unicode::Semantics> on CPAN.
+
+=head2 Why do some characters not uppercase or lowercase correctly?
+
+See the answer to the previous question.
+
+=head2 How can I determine if a string is a text string or a binary string?
+
+You can't. Some use the UTF8 flag for this, but that's misuse, and makes well
+behaved modules like Data::Dumper look bad. The flag is useless for this
+purpose, because it's off when an 8 bit encoding (by default ISO-8859-1) is
+used to store the string.
+
+This is something you, the programmer, has to keep track of; sorry. You could
+consider adopting a kind of "Hungarian notation" to help with this.
+
+=head2 How do I convert from encoding FOO to encoding BAR?
+
+By first converting the FOO-encoded byte string to a text string, and then the
+text string to a BAR-encoded byte string:
+
+    my $text_string = decode('FOO', $foo_string);
+    my $bar_string  = encode('BAR', $text_string);
+
+or by skipping the text string part, and going directly from one binary
+encoding to the other:
+
+    use Encode qw(from_to);
+    from_to($string, 'FOO', 'BAR');  # changes contents of $string
+
+or by letting automatic decoding and encoding do all the work:
+
+    open my $foofh, '<:encoding(FOO)', 'example.foo.txt';
+    open my $barfh, '>:encoding(BAR)', 'example.bar.txt';
+    print { $barfh } $_ while <$foofh>;
+
+=head2 What are C<decode_utf8> and C<encode_utf8>?
+
+These are alternate syntaxes for C<decode('utf8', ...)> and C<encode('utf8',
+...)>.
+
+=head2 What is a "wide character"?
+
+This is a term used for characters occupying more than one byte.
+
+The Perl warning "Wide character in ..." is caused by such a character.
+With no specified encoding layer, Perl tries to
+fit things into a single byte.  When it can't, it
+emits this warning (if warnings are enabled), and uses UTF-8 encoded data
+instead.
+
+To avoid this warning and to avoid having different output encodings in a single
+stream, always specify an encoding explicitly, for example with a PerlIO layer:
+
+    binmode STDOUT, ":encoding(UTF-8)";
+
+=head1 INTERNALS
+
+=head2 What is "the UTF8 flag"?
+
+Please, unless you're hacking the internals, or debugging weirdness, don't
+think about the UTF8 flag at all. That means that you very probably shouldn't
+use C<is_utf8>, C<_utf8_on> or C<_utf8_off> at all.
+
+The UTF8 flag, also called SvUTF8, is an internal flag that indicates that the
+current internal representation is UTF-8. Without the flag, it is assumed to be
+ISO-8859-1. Perl converts between these automatically.  (Actually Perl usually
+assumes the representation is ASCII; see L</Why do regex character classes
+sometimes match only in the ASCII range?> above.)
+
+One of Perl's internal formats happens to be UTF-8. Unfortunately, Perl can't
+keep a secret, so everyone knows about this. That is the source of much
+confusion. It's better to pretend that the internal format is some unknown
+encoding, and that you always have to encode and decode explicitly.
+
+=head2 What about the C<use bytes> pragma?
+
+Don't use it. It makes no sense to deal with bytes in a text string, and it
+makes no sense to deal with characters in a byte string. Do the proper
+conversions (by decoding/encoding), and things will work out well: you get
+character counts for decoded data, and byte counts for encoded data.
+
+C<use bytes> is usually a failed attempt to do something useful. Just forget
+about it.
+
+=head2 What about the C<use encoding> pragma?
+
+Don't use it. Unfortunately, it assumes that the programmer's environment and
+that of the user will use the same encoding. It will use the same encoding for
+the source code and for STDIN and STDOUT. When a program is copied to another
+machine, the source code does not change, but the STDIO environment might.
+
+If you need non-ASCII characters in your source code, make it a UTF-8 encoded
+file and C<use utf8>.
+
+If you need to set the encoding for STDIN, STDOUT, and STDERR, for example
+based on the user's locale, C<use open>.
+
+=head2 What is the difference between C<:encoding> and C<:utf8>?
+
+Because UTF-8 is one of Perl's internal formats, you can often just skip the
+encoding or decoding step, and manipulate the UTF8 flag directly.
+
+Instead of C<:encoding(UTF-8)>, you can simply use C<:utf8>, which skips the
+encoding step if the data was already represented as UTF8 internally. This is
+widely accepted as good behavior when you're writing, but it can be dangerous
+when reading, because it causes internal inconsistency when you have invalid
+byte sequences. Using C<:utf8> for input can sometimes result in security
+breaches, so please use C<:encoding(UTF-8)> instead.
+
+Instead of C<decode> and C<encode>, you could use C<_utf8_on> and C<_utf8_off>,
+but this is considered bad style. Especially C<_utf8_on> can be dangerous, for
+the same reason that C<:utf8> can.
+
+There are some shortcuts for oneliners;
+see L<-C|perlrun/-C [numberE<sol>list]> in L<perlrun>.
+
+=head2 What's the difference between C<UTF-8> and C<utf8>?
+
+C<UTF-8> is the official standard. C<utf8> is Perl's way of being liberal in
+what it accepts. If you have to communicate with things that aren't so liberal,
+you may want to consider using C<UTF-8>. If you have to communicate with things
+that are too liberal, you may have to use C<utf8>. The full explanation is in
+L<Encode>.
+
+C<UTF-8> is internally known as C<utf-8-strict>. The tutorial uses UTF-8
+consistently, even where utf8 is actually used internally, because the
+distinction can be hard to make, and is mostly irrelevant.
+
+For example, utf8 can be used for code points that don't exist in Unicode, like
+9999999, but if you encode that to UTF-8, you get a substitution character (by
+default; see L<Encode/"Handling Malformed Data"> for more ways of dealing with
+this.)
+
+Okay, if you insist: the "internal format" is utf8, not UTF-8. (When it's not
+some other encoding.)
+
+=head2 I lost track; what encoding is the internal format really?
+
+It's good that you lost track, because you shouldn't depend on the internal
+format being any specific encoding. But since you asked: by default, the
+internal format is either ISO-8859-1 (latin-1), or utf8, depending on the
+history of the string. On EBCDIC platforms, this may be different even.
+
+Perl knows how it stored the string internally, and will use that knowledge
+when you C<encode>. In other words: don't try to find out what the internal
+encoding for a certain string is, but instead just encode it into the encoding
+that you want.
+
+=head1 AUTHOR
+
+Juerd Waalboer <#####@juerd.nl>
+
+=head1 SEE ALSO
+
+L<perlunicode>, L<perluniintro>, L<Encode>
+
diff --git a/lib/5.24.1/pod/perluniintro.pod b/lib/5.24.1/pod/perluniintro.pod
new file mode 100644
index 00000000..7ddf77c1
--- /dev/null
+++ b/lib/5.24.1/pod/perluniintro.pod
@@ -0,0 +1,992 @@
+=head1 NAME
+
+perluniintro - Perl Unicode introduction
+
+=head1 DESCRIPTION
+
+This document gives a general idea of Unicode and how to use Unicode
+in Perl.  See L</Further Resources> for references to more in-depth
+treatments of Unicode.
+
+=head2 Unicode
+
+Unicode is a character set standard which plans to codify all of the
+writing systems of the world, plus many other symbols.
+
+Unicode and ISO/IEC 10646 are coordinated standards that unify
+almost all other modern character set standards,
+covering more than 80 writing systems and hundreds of languages,
+including all commercially-important modern languages.  All characters
+in the largest Chinese, Japanese, and Korean dictionaries are also
+encoded. The standards will eventually cover almost all characters in
+more than 250 writing systems and thousands of languages.
+Unicode 1.0 was released in October 1991, and 6.0 in October 2010.
+
+A Unicode I<character> is an abstract entity.  It is not bound to any
+particular integer width, especially not to the C language C<char>.
+Unicode is language-neutral and display-neutral: it does not encode the
+language of the text, and it does not generally define fonts or other graphical
+layout details.  Unicode operates on characters and on text built from
+those characters.
+
+Unicode defines characters like C<LATIN CAPITAL LETTER A> or C<GREEK
+SMALL LETTER ALPHA> and unique numbers for the characters, in this
+case 0x0041 and 0x03B1, respectively.  These unique numbers are called
+I<code points>.  A code point is essentially the position of the
+character within the set of all possible Unicode characters, and thus in
+Perl, the term I<ordinal> is often used interchangeably with it.
+
+The Unicode standard prefers using hexadecimal notation for the code
+points.  If numbers like C<0x0041> are unfamiliar to you, take a peek
+at a later section, L</"Hexadecimal Notation">.  The Unicode standard
+uses the notation C<U+0041 LATIN CAPITAL LETTER A>, to give the
+hexadecimal code point and the normative name of the character.
+
+Unicode also defines various I<properties> for the characters, like
+"uppercase" or "lowercase", "decimal digit", or "punctuation";
+these properties are independent of the names of the characters.
+Furthermore, various operations on the characters like uppercasing,
+lowercasing, and collating (sorting) are defined.
+
+A Unicode I<logical> "character" can actually consist of more than one internal
+I<actual> "character" or code point.  For Western languages, this is adequately
+modelled by a I<base character> (like C<LATIN CAPITAL LETTER A>) followed
+by one or more I<modifiers> (like C<COMBINING ACUTE ACCENT>).  This sequence of
+base character and modifiers is called a I<combining character
+sequence>.  Some non-western languages require more complicated
+models, so Unicode created the I<grapheme cluster> concept, which was
+later further refined into the I<extended grapheme cluster>.  For
+example, a Korean Hangul syllable is considered a single logical
+character, but most often consists of three actual
+Unicode characters: a leading consonant followed by an interior vowel followed
+by a trailing consonant.
+
+Whether to call these extended grapheme clusters "characters" depends on your
+point of view. If you are a programmer, you probably would tend towards seeing
+each element in the sequences as one unit, or "character".  However from
+the user's point of view, the whole sequence could be seen as one
+"character" since that's probably what it looks like in the context of the
+user's language.  In this document, we take the programmer's point of
+view: one "character" is one Unicode code point.
+
+For some combinations of base character and modifiers, there are
+I<precomposed> characters.  There is a single character equivalent, for
+example, for the sequence C<LATIN CAPITAL LETTER A> followed by
+C<COMBINING ACUTE ACCENT>.  It is called  C<LATIN CAPITAL LETTER A WITH
+ACUTE>.  These precomposed characters are, however, only available for
+some combinations, and are mainly meant to support round-trip
+conversions between Unicode and legacy standards (like ISO 8859).  Using
+sequences, as Unicode does, allows for needing fewer basic building blocks
+(code points) to express many more potential grapheme clusters.  To
+support conversion between equivalent forms, various I<normalization
+forms> are also defined.  Thus, C<LATIN CAPITAL LETTER A WITH ACUTE> is
+in I<Normalization Form Composed>, (abbreviated NFC), and the sequence
+C<LATIN CAPITAL LETTER A> followed by C<COMBINING ACUTE ACCENT>
+represents the same character in I<Normalization Form Decomposed> (NFD).
+
+Because of backward compatibility with legacy encodings, the "a unique
+number for every character" idea breaks down a bit: instead, there is
+"at least one number for every character".  The same character could
+be represented differently in several legacy encodings.  The
+converse is not true: some code points do not have an assigned
+character.  Firstly, there are unallocated code points within
+otherwise used blocks.  Secondly, there are special Unicode control
+characters that do not represent true characters.
+
+When Unicode was first conceived, it was thought that all the world's
+characters could be represented using a 16-bit word; that is a maximum of
+C<0x10000> (or 65,536) characters would be needed, from C<0x0000> to
+C<0xFFFF>.  This soon proved to be wrong, and since Unicode 2.0 (July
+1996), Unicode has been defined all the way up to 21 bits (C<0x10FFFF>),
+and Unicode 3.1 (March 2001) defined the first characters above C<0xFFFF>.
+The first C<0x10000> characters are called the I<Plane 0>, or the
+I<Basic Multilingual Plane> (BMP).  With Unicode 3.1, 17 (yes,
+seventeen) planes in all were defined--but they are nowhere near full of
+defined characters, yet.
+
+When a new language is being encoded, Unicode generally will choose a
+C<block> of consecutive unallocated code points for its characters.  So
+far, the number of code points in these blocks has always been evenly
+divisible by 16.  Extras in a block, not currently needed, are left
+unallocated, for future growth.  But there have been occasions when
+a later release needed more code points than the available extras, and a
+new block had to allocated somewhere else, not contiguous to the initial
+one, to handle the overflow.  Thus, it became apparent early on that
+"block" wasn't an adequate organizing principal, and so the C<Script>
+property was created.  (Later an improved script property was added as
+well, the C<Script_Extensions> property.)  Those code points that are in
+overflow blocks can still
+have the same script as the original ones.  The script concept fits more
+closely with natural language: there is C<Latin> script, C<Greek>
+script, and so on; and there are several artificial scripts, like
+C<Common> for characters that are used in multiple scripts, such as
+mathematical symbols.  Scripts usually span varied parts of several
+blocks.  For more information about scripts, see L<perlunicode/Scripts>.
+The division into blocks exists, but it is almost completely
+accidental--an artifact of how the characters have been and still are
+allocated.  (Note that this paragraph has oversimplified things for the
+sake of this being an introduction.  Unicode doesn't really encode
+languages, but the writing systems for them--their scripts; and one
+script can be used by many languages.  Unicode also encodes things that
+aren't really about languages, such as symbols like C<BAGGAGE CLAIM>.)
+
+The Unicode code points are just abstract numbers.  To input and
+output these abstract numbers, the numbers must be I<encoded> or
+I<serialised> somehow.  Unicode defines several I<character encoding
+forms>, of which I<UTF-8> is the most popular.  UTF-8 is a
+variable length encoding that encodes Unicode characters as 1 to 4
+bytes.  Other encodings
+include UTF-16 and UTF-32 and their big- and little-endian variants
+(UTF-8 is byte-order independent).  The ISO/IEC 10646 defines the UCS-2
+and UCS-4 encoding forms.
+
+For more information about encodings--for instance, to learn what
+I<surrogates> and I<byte order marks> (BOMs) are--see L<perlunicode>.
+
+=head2 Perl's Unicode Support
+
+Starting from Perl v5.6.0, Perl has had the capacity to handle Unicode
+natively.  Perl v5.8.0, however, is the first recommended release for
+serious Unicode work.  The maintenance release 5.6.1 fixed many of the
+problems of the initial Unicode implementation, but for example
+regular expressions still do not work with Unicode in 5.6.1.
+Perl v5.14.0 is the first release where Unicode support is
+(almost) seamlessly integrable without some gotchas (the exception being
+some differences in L<quotemeta|perlfunc/quotemeta>, and that is fixed
+starting in Perl 5.16.0).   To enable this
+seamless support, you should C<use feature 'unicode_strings'> (which is
+automatically selected if you C<use 5.012> or higher).  See L<feature>.
+(5.14 also fixes a number of bugs and departures from the Unicode
+standard.)
+
+Before Perl v5.8.0, the use of C<use utf8> was used to declare
+that operations in the current block or file would be Unicode-aware.
+This model was found to be wrong, or at least clumsy: the "Unicodeness"
+is now carried with the data, instead of being attached to the
+operations.
+Starting with Perl v5.8.0, only one case remains where an explicit C<use
+utf8> is needed: if your Perl script itself is encoded in UTF-8, you can
+use UTF-8 in your identifier names, and in string and regular expression
+literals, by saying C<use utf8>.  This is not the default because
+scripts with legacy 8-bit data in them would break.  See L<utf8>.
+
+=head2 Perl's Unicode Model
+
+Perl supports both pre-5.6 strings of eight-bit native bytes, and
+strings of Unicode characters.  The general principle is that Perl tries
+to keep its data as eight-bit bytes for as long as possible, but as soon
+as Unicodeness cannot be avoided, the data is transparently upgraded
+to Unicode.  Prior to Perl v5.14.0, the upgrade was not completely
+transparent (see L<perlunicode/The "Unicode Bug">), and for backwards
+compatibility, full transparency is not gained unless C<use feature
+'unicode_strings'> (see L<feature>) or C<use 5.012> (or higher) is
+selected.
+
+Internally, Perl currently uses either whatever the native eight-bit
+character set of the platform (for example Latin-1) is, defaulting to
+UTF-8, to encode Unicode strings. Specifically, if all code points in
+the string are C<0xFF> or less, Perl uses the native eight-bit
+character set.  Otherwise, it uses UTF-8.
+
+A user of Perl does not normally need to know nor care how Perl
+happens to encode its internal strings, but it becomes relevant when
+outputting Unicode strings to a stream without a PerlIO layer (one with
+the "default" encoding).  In such a case, the raw bytes used internally
+(the native character set or UTF-8, as appropriate for each string)
+will be used, and a "Wide character" warning will be issued if those
+strings contain a character beyond 0x00FF.
+
+For example,
+
+      perl -e 'print "\x{DF}\n", "\x{0100}\x{DF}\n"'
+
+produces a fairly useless mixture of native bytes and UTF-8, as well
+as a warning:
+
+     Wide character in print at ...
+
+To output UTF-8, use the C<:encoding> or C<:utf8> output layer.  Prepending
+
+      binmode(STDOUT, ":utf8");
+
+to this sample program ensures that the output is completely UTF-8,
+and removes the program's warning.
+
+You can enable automatic UTF-8-ification of your standard file
+handles, default C<open()> layer, and C<@ARGV> by using either
+the C<-C> command line switch or the C<PERL_UNICODE> environment
+variable, see L<perlrun> for the documentation of the C<-C> switch.
+
+Note that this means that Perl expects other software to work the same
+way:
+if Perl has been led to believe that STDIN should be UTF-8, but then
+STDIN coming in from another command is not UTF-8, Perl will likely
+complain about the malformed UTF-8.
+
+All features that combine Unicode and I/O also require using the new
+PerlIO feature.  Almost all Perl 5.8 platforms do use PerlIO, though:
+you can see whether yours is by running "perl -V" and looking for
+C<useperlio=define>.
+
+=head2 Unicode and EBCDIC
+
+Perl 5.8.0 added support for Unicode on EBCDIC platforms.  This support
+was allowed to lapse in later releases, but was revived in 5.22.
+Unicode support is somewhat more complex to implement since additional
+conversions are needed.  See L<perlebcdic> for more information.
+
+On EBCDIC platforms, the internal Unicode encoding form is UTF-EBCDIC
+instead of UTF-8.  The difference is that as UTF-8 is "ASCII-safe" in
+that ASCII characters encode to UTF-8 as-is, while UTF-EBCDIC is
+"EBCDIC-safe", in that all the basic characters (which includes all
+those that have ASCII equivalents (like C<"A">, C<"0">, C<"%">, I<etc.>)
+are the same in both EBCDIC and UTF-EBCDIC.  Often, documentation
+will use the term "UTF-8" to mean UTF-EBCDIC as well.  This is the case
+in this document.
+
+=head2 Creating Unicode
+
+This section applies fully to Perls starting with v5.22.  Various
+caveats for earlier releases are in the L</Earlier releases caveats>
+subsection below.
+
+To create Unicode characters in literals,
+use the C<\N{...}> notation in double-quoted strings:
+
+ my $smiley_from_name = "\N{WHITE SMILING FACE}";
+ my $smiley_from_code_point = "\N{U+263a}";
+
+Similarly, they can be used in regular expression literals
+
+ $smiley =~ /\N{WHITE SMILING FACE}/;
+ $smiley =~ /\N{U+263a}/;
+
+At run-time you can use:
+
+ use charnames ();
+ my $hebrew_alef_from_name
+                      = charnames::string_vianame("HEBREW LETTER ALEF");
+ my $hebrew_alef_from_code_point = charnames::string_vianame("U+05D0");
+
+Naturally, C<ord()> will do the reverse: it turns a character into
+a code point.
+
+There are other runtime options as well.  You can use C<pack()>:
+
+ my $hebrew_alef_from_code_point = pack("U", 0x05d0);
+
+Or you can use C<chr()>, though it is less convenient in the general
+case:
+
+ $hebrew_alef_from_code_point = chr(utf8::unicode_to_native(0x05d0));
+ utf8::upgrade($hebrew_alef_from_code_point);
+
+The C<utf8::unicode_to_native()> and C<utf8::upgrade()> aren't needed if
+the argument is above 0xFF, so the above could have been written as
+
+ $hebrew_alef_from_code_point = chr(0x05d0);
+
+since 0x5d0 is above 255.
+
+C<\x{}> and C<\o{}> can also be used to specify code points at compile
+time in double-quotish strings, but, for backward compatibility with
+older Perls, the same rules apply as with C<chr()> for code points less
+than 256.
+
+C<utf8::unicode_to_native()> is used so that the Perl code is portable
+to EBCDIC platforms.  You can omit it if you're I<really> sure no one
+will ever want to use your code on a non-ASCII platform.  Starting in
+Perl v5.22, calls to it on ASCII platforms are optimized out, so there's
+no performance penalty at all in adding it.  Or you can simply use the
+other constructs that don't require it.
+
+See L</"Further Resources"> for how to find all these names and numeric
+codes.
+
+=head3 Earlier releases caveats
+
+On EBCDIC platforms, prior to v5.22, using C<\N{U+...}> doesn't work
+properly.
+
+Prior to v5.16, using C<\N{...}> with a character name (as opposed to a
+C<U+...> code point) required a S<C<use charnames :full>>.
+
+Prior to v5.14, there were some bugs in C<\N{...}> with a character name
+(as opposed to a C<U+...> code point).
+
+C<charnames::string_vianame()> was introduced in v5.14.  Prior to that,
+C<charnames::vianame()> should work, but only if the argument is of the
+form C<"U+...">.  Your best bet there for runtime Unicode by character
+name is probably:
+
+ use charnames ();
+ my $hebrew_alef_from_name
+                  = pack("U", charnames::vianame("HEBREW LETTER ALEF"));
+
+=head2 Handling Unicode
+
+Handling Unicode is for the most part transparent: just use the
+strings as usual.  Functions like C<index()>, C<length()>, and
+C<substr()> will work on the Unicode characters; regular expressions
+will work on the Unicode characters (see L<perlunicode> and L<perlretut>).
+
+Note that Perl considers grapheme clusters to be separate characters, so for
+example
+
+ print length("\N{LATIN CAPITAL LETTER A}\N{COMBINING ACUTE ACCENT}"),
+       "\n";
+
+will print 2, not 1.  The only exception is that regular expressions
+have C<\X> for matching an extended grapheme cluster.  (Thus C<\X> in a
+regular expression would match the entire sequence of both the example
+characters.)
+
+Life is not quite so transparent, however, when working with legacy
+encodings, I/O, and certain special cases:
+
+=head2 Legacy Encodings
+
+When you combine legacy data and Unicode, the legacy data needs
+to be upgraded to Unicode.  Normally the legacy data is assumed to be
+ISO 8859-1 (or EBCDIC, if applicable).
+
+The C<Encode> module knows about many encodings and has interfaces
+for doing conversions between those encodings:
+
+    use Encode 'decode';
+    $data = decode("iso-8859-3", $data); # convert from legacy to utf-8
+
+=head2 Unicode I/O
+
+Normally, writing out Unicode data
+
+    print FH $some_string_with_unicode, "\n";
+
+produces raw bytes that Perl happens to use to internally encode the
+Unicode string.  Perl's internal encoding depends on the system as
+well as what characters happen to be in the string at the time. If
+any of the characters are at code points C<0x100> or above, you will get
+a warning.  To ensure that the output is explicitly rendered in the
+encoding you desire--and to avoid the warning--open the stream with
+the desired encoding. Some examples:
+
+    open FH, ">:utf8", "file";
+
+    open FH, ">:encoding(ucs2)",      "file";
+    open FH, ">:encoding(UTF-8)",     "file";
+    open FH, ">:encoding(shift_jis)", "file";
+
+and on already open streams, use C<binmode()>:
+
+    binmode(STDOUT, ":utf8");
+
+    binmode(STDOUT, ":encoding(ucs2)");
+    binmode(STDOUT, ":encoding(UTF-8)");
+    binmode(STDOUT, ":encoding(shift_jis)");
+
+The matching of encoding names is loose: case does not matter, and
+many encodings have several aliases.  Note that the C<:utf8> layer
+must always be specified exactly like that; it is I<not> subject to
+the loose matching of encoding names. Also note that currently C<:utf8> is unsafe for
+input, because it accepts the data without validating that it is indeed valid
+UTF-8; you should instead use C<:encoding(utf-8)> (with or without a
+hyphen).
+
+See L<PerlIO> for the C<:utf8> layer, L<PerlIO::encoding> and
+L<Encode::PerlIO> for the C<:encoding()> layer, and
+L<Encode::Supported> for many encodings supported by the C<Encode>
+module.
+
+Reading in a file that you know happens to be encoded in one of the
+Unicode or legacy encodings does not magically turn the data into
+Unicode in Perl's eyes.  To do that, specify the appropriate
+layer when opening files
+
+    open(my $fh,'<:encoding(utf8)', 'anything');
+    my $line_of_unicode = <$fh>;
+
+    open(my $fh,'<:encoding(Big5)', 'anything');
+    my $line_of_unicode = <$fh>;
+
+The I/O layers can also be specified more flexibly with
+the C<open> pragma.  See L<open>, or look at the following example.
+
+    use open ':encoding(utf8)'; # input/output default encoding will be
+                                # UTF-8
+    open X, ">file";
+    print X chr(0x100), "\n";
+    close X;
+    open Y, "<file";
+    printf "%#x\n", ord(<Y>); # this should print 0x100
+    close Y;
+
+With the C<open> pragma you can use the C<:locale> layer
+
+    BEGIN { $ENV{LC_ALL} = $ENV{LANG} = 'ru_RU.KOI8-R' }
+    # the :locale will probe the locale environment variables like
+    # LC_ALL
+    use open OUT => ':locale'; # russki parusski
+    open(O, ">koi8");
+    print O chr(0x430); # Unicode CYRILLIC SMALL LETTER A = KOI8-R 0xc1
+    close O;
+    open(I, "<koi8");
+    printf "%#x\n", ord(<I>), "\n"; # this should print 0xc1
+    close I;
+
+These methods install a transparent filter on the I/O stream that
+converts data from the specified encoding when it is read in from the
+stream.  The result is always Unicode.
+
+The L<open> pragma affects all the C<open()> calls after the pragma by
+setting default layers.  If you want to affect only certain
+streams, use explicit layers directly in the C<open()> call.
+
+You can switch encodings on an already opened stream by using
+C<binmode()>; see L<perlfunc/binmode>.
+
+The C<:locale> does not currently work with
+C<open()> and C<binmode()>, only with the C<open> pragma.  The
+C<:utf8> and C<:encoding(...)> methods do work with all of C<open()>,
+C<binmode()>, and the C<open> pragma.
+
+Similarly, you may use these I/O layers on output streams to
+automatically convert Unicode to the specified encoding when it is
+written to the stream. For example, the following snippet copies the
+contents of the file "text.jis" (encoded as ISO-2022-JP, aka JIS) to
+the file "text.utf8", encoded as UTF-8:
+
+    open(my $nihongo, '<:encoding(iso-2022-jp)', 'text.jis');
+    open(my $unicode, '>:utf8',                  'text.utf8');
+    while (<$nihongo>) { print $unicode $_ }
+
+The naming of encodings, both by the C<open()> and by the C<open>
+pragma allows for flexible names: C<koi8-r> and C<KOI8R> will both be
+understood.
+
+Common encodings recognized by ISO, MIME, IANA, and various other
+standardisation organisations are recognised; for a more detailed
+list see L<Encode::Supported>.
+
+C<read()> reads characters and returns the number of characters.
+C<seek()> and C<tell()> operate on byte counts, as do C<sysread()>
+and C<sysseek()>.
+
+Notice that because of the default behaviour of not doing any
+conversion upon input if there is no default layer,
+it is easy to mistakenly write code that keeps on expanding a file
+by repeatedly encoding the data:
+
+    # BAD CODE WARNING
+    open F, "file";
+    local $/; ## read in the whole file of 8-bit characters
+    $t = <F>;
+    close F;
+    open F, ">:encoding(utf8)", "file";
+    print F $t; ## convert to UTF-8 on output
+    close F;
+
+If you run this code twice, the contents of the F<file> will be twice
+UTF-8 encoded.  A C<use open ':encoding(utf8)'> would have avoided the
+bug, or explicitly opening also the F<file> for input as UTF-8.
+
+B<NOTE>: the C<:utf8> and C<:encoding> features work only if your
+Perl has been built with L<PerlIO>, which is the default
+on most systems.
+
+=head2 Displaying Unicode As Text
+
+Sometimes you might want to display Perl scalars containing Unicode as
+simple ASCII (or EBCDIC) text.  The following subroutine converts
+its argument so that Unicode characters with code points greater than
+255 are displayed as C<\x{...}>, control characters (like C<\n>) are
+displayed as C<\x..>, and the rest of the characters as themselves:
+
+ sub nice_string {
+        join("",
+        map { $_ > 255                    # if wide character...
+              ? sprintf("\\x{%04X}", $_)  # \x{...}
+              : chr($_) =~ /[[:cntrl:]]/  # else if control character...
+                ? sprintf("\\x%02X", $_)  # \x..
+                : quotemeta(chr($_))      # else quoted or as themselves
+        } unpack("W*", $_[0]));           # unpack Unicode characters
+   }
+
+For example,
+
+   nice_string("foo\x{100}bar\n")
+
+returns the string
+
+   'foo\x{0100}bar\x0A'
+
+which is ready to be printed.
+
+(C<\\x{}> is used here instead of C<\\N{}>, since it's most likely that
+you want to see what the native values are.)
+
+=head2 Special Cases
+
+=over 4
+
+=item *
+
+Bit Complement Operator ~ And vec()
+
+The bit complement operator C<~> may produce surprising results if
+used on strings containing characters with ordinal values above
+255. In such a case, the results are consistent with the internal
+encoding of the characters, but not with much else. So don't do
+that. Similarly for C<vec()>: you will be operating on the
+internally-encoded bit patterns of the Unicode characters, not on
+the code point values, which is very probably not what you want.
+
+=item *
+
+Peeking At Perl's Internal Encoding
+
+Normal users of Perl should never care how Perl encodes any particular
+Unicode string (because the normal ways to get at the contents of a
+string with Unicode--via input and output--should always be via
+explicitly-defined I/O layers). But if you must, there are two
+ways of looking behind the scenes.
+
+One way of peeking inside the internal encoding of Unicode characters
+is to use C<unpack("C*", ...> to get the bytes of whatever the string
+encoding happens to be, or C<unpack("U0..", ...)> to get the bytes of the
+UTF-8 encoding:
+
+    # this prints  c4 80  for the UTF-8 bytes 0xc4 0x80
+    print join(" ", unpack("U0(H2)*", pack("U", 0x100))), "\n";
+
+Yet another way would be to use the Devel::Peek module:
+
+    perl -MDevel::Peek -e 'Dump(chr(0x100))'
+
+That shows the C<UTF8> flag in FLAGS and both the UTF-8 bytes
+and Unicode characters in C<PV>.  See also later in this document
+the discussion about the C<utf8::is_utf8()> function.
+
+=back
+
+=head2 Advanced Topics
+
+=over 4
+
+=item *
+
+String Equivalence
+
+The question of string equivalence turns somewhat complicated
+in Unicode: what do you mean by "equal"?
+
+(Is C<LATIN CAPITAL LETTER A WITH ACUTE> equal to
+C<LATIN CAPITAL LETTER A>?)
+
+The short answer is that by default Perl compares equivalence (C<eq>,
+C<ne>) based only on code points of the characters.  In the above
+case, the answer is no (because 0x00C1 != 0x0041).  But sometimes, any
+CAPITAL LETTER A's should be considered equal, or even A's of any case.
+
+The long answer is that you need to consider character normalization
+and casing issues: see L<Unicode::Normalize>, Unicode Technical Report #15,
+L<Unicode Normalization Forms|http://www.unicode.org/unicode/reports/tr15> and
+sections on case mapping in the L<Unicode Standard|http://www.unicode.org>.
+
+As of Perl 5.8.0, the "Full" case-folding of I<Case
+Mappings/SpecialCasing> is implemented, but bugs remain in C<qr//i> with them,
+mostly fixed by 5.14, and essentially entirely by 5.18.
+
+=item *
+
+String Collation
+
+People like to see their strings nicely sorted--or as Unicode
+parlance goes, collated.  But again, what do you mean by collate?
+
+(Does C<LATIN CAPITAL LETTER A WITH ACUTE> come before or after
+C<LATIN CAPITAL LETTER A WITH GRAVE>?)
+
+The short answer is that by default, Perl compares strings (C<lt>,
+C<le>, C<cmp>, C<ge>, C<gt>) based only on the code points of the
+characters.  In the above case, the answer is "after", since
+C<0x00C1> > C<0x00C0>.
+
+The long answer is that "it depends", and a good answer cannot be
+given without knowing (at the very least) the language context.
+See L<Unicode::Collate>, and I<Unicode Collation Algorithm>
+L<http://www.unicode.org/unicode/reports/tr10/>
+
+=back
+
+=head2 Miscellaneous
+
+=over 4
+
+=item *
+
+Character Ranges and Classes
+
+Character ranges in regular expression bracketed character classes ( e.g.,
+C</[a-z]/>) and in the C<tr///> (also known as C<y///>) operator are not
+magically Unicode-aware.  What this means is that C<[A-Za-z]> will not
+magically start to mean "all alphabetic letters" (not that it does mean that
+even for 8-bit characters; for those, if you are using locales (L<perllocale>),
+use C</[[:alpha:]]/>; and if not, use the 8-bit-aware property C<\p{alpha}>).
+
+All the properties that begin with C<\p> (and its inverse C<\P>) are actually
+character classes that are Unicode-aware.  There are dozens of them, see
+L<perluniprops>.
+
+Starting in v5.22, you can use Unicode code points as the end points of
+regular expression pattern character ranges, and the range will include
+all Unicode code points that lie between those end points, inclusive.
+
+ qr/ [\N{U+03]-\N{U+20}] /x
+
+includes the code points
+C<\N{U+03}>, C<\N{U+04}>, ..., C<\N{U+20}>.
+
+(It is planned to extend this behavior to ranges in C<tr///> in Perl
+v5.24.)
+
+=item *
+
+String-To-Number Conversions
+
+Unicode does define several other decimal--and numeric--characters
+besides the familiar 0 to 9, such as the Arabic and Indic digits.
+Perl does not support string-to-number conversion for digits other
+than ASCII C<0> to C<9> (and ASCII C<a> to C<f> for hexadecimal).
+To get safe conversions from any Unicode string, use
+L<Unicode::UCD/num()>.
+
+=back
+
+=head2 Questions With Answers
+
+=over 4
+
+=item *
+
+Will My Old Scripts Break?
+
+Very probably not.  Unless you are generating Unicode characters
+somehow, old behaviour should be preserved.  About the only behaviour
+that has changed and which could start generating Unicode is the old
+behaviour of C<chr()> where supplying an argument more than 255
+produced a character modulo 255.  C<chr(300)>, for example, was equal
+to C<chr(45)> or "-" (in ASCII), now it is LATIN CAPITAL LETTER I WITH
+BREVE.
+
+=item *
+
+How Do I Make My Scripts Work With Unicode?
+
+Very little work should be needed since nothing changes until you
+generate Unicode data.  The most important thing is getting input as
+Unicode; for that, see the earlier I/O discussion.
+To get full seamless Unicode support, add
+C<use feature 'unicode_strings'> (or C<use 5.012> or higher) to your
+script.
+
+=item *
+
+How Do I Know Whether My String Is In Unicode?
+
+You shouldn't have to care.  But you may if your Perl is before 5.14.0
+or you haven't specified C<use feature 'unicode_strings'> or C<use
+5.012> (or higher) because otherwise the rules for the code points
+in the range 128 to 255 are different depending on
+whether the string they are contained within is in Unicode or not.
+(See L<perlunicode/When Unicode Does Not Happen>.)
+
+To determine if a string is in Unicode, use:
+
+    print utf8::is_utf8($string) ? 1 : 0, "\n";
+
+But note that this doesn't mean that any of the characters in the
+string are necessary UTF-8 encoded, or that any of the characters have
+code points greater than 0xFF (255) or even 0x80 (128), or that the
+string has any characters at all.  All the C<is_utf8()> does is to
+return the value of the internal "utf8ness" flag attached to the
+C<$string>.  If the flag is off, the bytes in the scalar are interpreted
+as a single byte encoding.  If the flag is on, the bytes in the scalar
+are interpreted as the (variable-length, potentially multi-byte) UTF-8 encoded
+code points of the characters.  Bytes added to a UTF-8 encoded string are
+automatically upgraded to UTF-8.  If mixed non-UTF-8 and UTF-8 scalars
+are merged (double-quoted interpolation, explicit concatenation, or
+printf/sprintf parameter substitution), the result will be UTF-8 encoded
+as if copies of the byte strings were upgraded to UTF-8: for example,
+
+    $a = "ab\x80c";
+    $b = "\x{100}";
+    print "$a = $b\n";
+
+the output string will be UTF-8-encoded C<ab\x80c = \x{100}\n>, but
+C<$a> will stay byte-encoded.
+
+Sometimes you might really need to know the byte length of a string
+instead of the character length. For that use either the
+C<Encode::encode_utf8()> function or the C<bytes> pragma
+and the C<length()> function:
+
+    my $unicode = chr(0x100);
+    print length($unicode), "\n"; # will print 1
+    require Encode;
+    print length(Encode::encode_utf8($unicode)),"\n"; # will print 2
+    use bytes;
+    print length($unicode), "\n"; # will also print 2
+                                  # (the 0xC4 0x80 of the UTF-8)
+    no bytes;
+
+=item *
+
+How Do I Find Out What Encoding a File Has?
+
+You might try L<Encode::Guess>, but it has a number of limitations.
+
+=item *
+
+How Do I Detect Data That's Not Valid In a Particular Encoding?
+
+Use the C<Encode> package to try converting it.
+For example,
+
+    use Encode 'decode_utf8';
+
+    if (eval { decode_utf8($string, Encode::FB_CROAK); 1 }) {
+        # $string is valid utf8
+    } else {
+        # $string is not valid utf8
+    }
+
+Or use C<unpack> to try decoding it:
+
+    use warnings;
+    @chars = unpack("C0U*", $string_of_bytes_that_I_think_is_utf8);
+
+If invalid, a C<Malformed UTF-8 character> warning is produced. The "C0" means
+"process the string character per character".  Without that, the
+C<unpack("U*", ...)> would work in C<U0> mode (the default if the format
+string starts with C<U>) and it would return the bytes making up the UTF-8
+encoding of the target string, something that will always work.
+
+=item *
+
+How Do I Convert Binary Data Into a Particular Encoding, Or Vice Versa?
+
+This probably isn't as useful as you might think.
+Normally, you shouldn't need to.
+
+In one sense, what you are asking doesn't make much sense: encodings
+are for characters, and binary data are not "characters", so converting
+"data" into some encoding isn't meaningful unless you know in what
+character set and encoding the binary data is in, in which case it's
+not just binary data, now is it?
+
+If you have a raw sequence of bytes that you know should be
+interpreted via a particular encoding, you can use C<Encode>:
+
+    use Encode 'from_to';
+    from_to($data, "iso-8859-1", "utf-8"); # from latin-1 to utf-8
+
+The call to C<from_to()> changes the bytes in C<$data>, but nothing
+material about the nature of the string has changed as far as Perl is
+concerned.  Both before and after the call, the string C<$data>
+contains just a bunch of 8-bit bytes. As far as Perl is concerned,
+the encoding of the string remains as "system-native 8-bit bytes".
+
+You might relate this to a fictional 'Translate' module:
+
+   use Translate;
+   my $phrase = "Yes";
+   Translate::from_to($phrase, 'english', 'deutsch');
+   ## phrase now contains "Ja"
+
+The contents of the string changes, but not the nature of the string.
+Perl doesn't know any more after the call than before that the
+contents of the string indicates the affirmative.
+
+Back to converting data.  If you have (or want) data in your system's
+native 8-bit encoding (e.g. Latin-1, EBCDIC, etc.), you can use
+pack/unpack to convert to/from Unicode.
+
+    $native_string  = pack("W*", unpack("U*", $Unicode_string));
+    $Unicode_string = pack("U*", unpack("W*", $native_string));
+
+If you have a sequence of bytes you B<know> is valid UTF-8,
+but Perl doesn't know it yet, you can make Perl a believer, too:
+
+    use Encode 'decode_utf8';
+    $Unicode = decode_utf8($bytes);
+
+or:
+
+    $Unicode = pack("U0a*", $bytes);
+
+You can find the bytes that make up a UTF-8 sequence with
+
+    @bytes = unpack("C*", $Unicode_string)
+
+and you can create well-formed Unicode with
+
+    $Unicode_string = pack("U*", 0xff, ...)
+
+=item *
+
+How Do I Display Unicode?  How Do I Input Unicode?
+
+See L<http://www.alanwood.net/unicode/> and
+L<http://www.cl.cam.ac.uk/~mgk25/unicode.html>
+
+=item *
+
+How Does Unicode Work With Traditional Locales?
+
+If your locale is a UTF-8 locale, starting in Perl v5.20, Perl works
+well for all categories except C<LC_COLLATE> dealing with sorting and
+the C<cmp> operator.
+
+For other locales, starting in Perl 5.16, you can specify
+
+    use locale ':not_characters';
+
+to get Perl to work well with them.  The catch is that you
+have to translate from the locale character set to/from Unicode
+yourself.  See L</Unicode IE<sol>O> above for how to
+
+    use open ':locale';
+
+to accomplish this, but full details are in L<perllocale/Unicode and
+UTF-8>, including gotchas that happen if you don't specify
+C<:not_characters>.
+
+=back
+
+=head2 Hexadecimal Notation
+
+The Unicode standard prefers using hexadecimal notation because
+that more clearly shows the division of Unicode into blocks of 256 characters.
+Hexadecimal is also simply shorter than decimal.  You can use decimal
+notation, too, but learning to use hexadecimal just makes life easier
+with the Unicode standard.  The C<U+HHHH> notation uses hexadecimal,
+for example.
+
+The C<0x> prefix means a hexadecimal number, the digits are 0-9 I<and>
+a-f (or A-F, case doesn't matter).  Each hexadecimal digit represents
+four bits, or half a byte.  C<print 0x..., "\n"> will show a
+hexadecimal number in decimal, and C<printf "%x\n", $decimal> will
+show a decimal number in hexadecimal.  If you have just the
+"hex digits" of a hexadecimal number, you can use the C<hex()> function.
+
+    print 0x0009, "\n";    # 9
+    print 0x000a, "\n";    # 10
+    print 0x000f, "\n";    # 15
+    print 0x0010, "\n";    # 16
+    print 0x0011, "\n";    # 17
+    print 0x0100, "\n";    # 256
+
+    print 0x0041, "\n";    # 65
+
+    printf "%x\n",  65;    # 41
+    printf "%#x\n", 65;    # 0x41
+
+    print hex("41"), "\n"; # 65
+
+=head2 Further Resources
+
+=over 4
+
+=item *
+
+Unicode Consortium
+
+L<http://www.unicode.org/>
+
+=item *
+
+Unicode FAQ
+
+L<http://www.unicode.org/unicode/faq/>
+
+=item *
+
+Unicode Glossary
+
+L<http://www.unicode.org/glossary/>
+
+=item *
+
+Unicode Recommended Reading List
+
+The Unicode Consortium has a list of articles and books, some of which
+give a much more in depth treatment of Unicode:
+L<http://unicode.org/resources/readinglist.html>
+
+=item *
+
+Unicode Useful Resources
+
+L<http://www.unicode.org/unicode/onlinedat/resources.html>
+
+=item *
+
+Unicode and Multilingual Support in HTML, Fonts, Web Browsers and Other Applications
+
+L<http://www.alanwood.net/unicode/>
+
+=item *
+
+UTF-8 and Unicode FAQ for Unix/Linux
+
+L<http://www.cl.cam.ac.uk/~mgk25/unicode.html>
+
+=item *
+
+Legacy Character Sets
+
+L<http://www.czyborra.com/>
+L<http://www.eki.ee/letter/>
+
+=item *
+
+You can explore various information from the Unicode data files using
+the C<Unicode::UCD> module.
+
+=back
+
+=head1 UNICODE IN OLDER PERLS
+
+If you cannot upgrade your Perl to 5.8.0 or later, you can still
+do some Unicode processing by using the modules C<Unicode::String>,
+C<Unicode::Map8>, and C<Unicode::Map>, available from CPAN.
+If you have the GNU recode installed, you can also use the
+Perl front-end C<Convert::Recode> for character conversions.
+
+The following are fast conversions from ISO 8859-1 (Latin-1) bytes
+to UTF-8 bytes and back, the code works even with older Perl 5 versions.
+
+    # ISO 8859-1 to UTF-8
+    s/([\x80-\xFF])/chr(0xC0|ord($1)>>6).chr(0x80|ord($1)&0x3F)/eg;
+
+    # UTF-8 to ISO 8859-1
+    s/([\xC2\xC3])([\x80-\xBF])/chr(ord($1)<<6&0xC0|ord($2)&0x3F)/eg;
+
+=head1 SEE ALSO
+
+L<perlunitut>, L<perlunicode>, L<Encode>, L<open>, L<utf8>, L<bytes>,
+L<perlretut>, L<perlrun>, L<Unicode::Collate>, L<Unicode::Normalize>,
+L<Unicode::UCD>
+
+=head1 ACKNOWLEDGMENTS
+
+Thanks to the kind readers of the perl5-porters@perl.org,
+perl-unicode@perl.org, linux-utf8@nl.linux.org, and unicore@unicode.org
+mailing lists for their valuable feedback.
+
+=head1 AUTHOR, COPYRIGHT, AND LICENSE
+
+Copyright 2001-2011 Jarkko Hietaniemi E<lt>jhi@iki.fiE<gt>.
+Now maintained by Perl 5 Porters.
+
+This document may be distributed under the same terms as Perl itself.
diff --git a/lib/5.24.1/pod/perluniprops.pod b/lib/5.24.1/pod/perluniprops.pod
new file mode 100644
index 00000000..7dfc4468
--- /dev/null
+++ b/lib/5.24.1/pod/perluniprops.pod
@@ -0,0 +1,4902 @@
+=begin comment
+
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+
+To change this file, edit lib/unicore/mktables instead.
+
+=end comment
+
+=head1 NAME
+
+perluniprops - Index of Unicode Version 8.0.0 character properties in Perl
+
+=head1 DESCRIPTION
+
+This document provides information about the portion of the Unicode database
+that deals with character properties, that is the portion that is defined on
+single code points.  (L</Other information in the Unicode data base>
+below briefly mentions other data that Unicode provides.)
+
+Perl can provide access to all non-provisional Unicode character properties,
+though not all are enabled by default.  The omitted ones are the Unihan
+properties (accessible via the CPAN module L<Unicode::Unihan>) and certain
+deprecated or Unicode-internal properties.  (An installation may choose to
+recompile Perl's tables to change this.  See L<Unicode character
+properties that are NOT accepted by Perl>.)
+
+For most purposes, access to Unicode properties from the Perl core is through
+regular expression matches, as described in the next section.
+For some special purposes, and to access the properties that are not suitable
+for regular expression matching, all the Unicode character properties that
+Perl handles are accessible via the standard L<Unicode::UCD> module, as
+described in the section L</Properties accessible through Unicode::UCD>.
+
+Perl also provides some additional extensions and short-cut synonyms
+for Unicode properties.
+
+This document merely lists all available properties and does not attempt to
+explain what each property really means.  There is a brief description of each
+Perl extension; see L<perlunicode/Other Properties> for more information on
+these.  There is some detail about Blocks, Scripts, General_Category,
+and Bidi_Class in L<perlunicode>, but to find out about the intricacies of the
+official Unicode properties, refer to the Unicode standard.  A good starting
+place is L<http://www.unicode.org/reports/tr44/>.
+
+Note that you can define your own properties; see
+L<perlunicode/"User-Defined Character Properties">.
+
+=head1 Properties accessible through C<\p{}> and C<\P{}>
+
+The Perl regular expression C<\p{}> and C<\P{}> constructs give access to
+most of the Unicode character properties.  The table below shows all these
+constructs, both single and compound forms.
+
+B<Compound forms> consist of two components, separated by an equals sign or a
+colon.  The first component is the property name, and the second component is
+the particular value of the property to match against, for example,
+C<\p{Script: Greek}> and C<\p{Script=Greek}> both mean to match characters
+whose Script property value is Greek.
+
+B<Single forms>, like C<\p{Greek}>, are mostly Perl-defined shortcuts for
+their equivalent compound forms.  The table shows these equivalences.  (In our
+example, C<\p{Greek}> is a just a shortcut for C<\p{Script=Greek}>.)
+There are also a few Perl-defined single forms that are not shortcuts for a
+compound form.  One such is C<\p{Word}>.  These are also listed in the table.
+
+In parsing these constructs, Perl always ignores Upper/lower case differences
+everywhere within the {braces}.  Thus C<\p{Greek}> means the same thing as
+C<\p{greek}>.  But note that changing the case of the C<"p"> or C<"P"> before
+the left brace completely changes the meaning of the construct, from "match"
+(for C<\p{}>) to "doesn't match" (for C<\P{}>).  Casing in this document is
+for improved legibility.
+
+Also, white space, hyphens, and underscores are normally ignored
+everywhere between the {braces}, and hence can be freely added or removed
+even if the C</x> modifier hasn't been specified on the regular expression.
+But in the table below a 'B<T>' at the beginning of an entry
+means that tighter (stricter) rules are used for that entry:
+
+=over 4
+
+=over 4
+
+=item Single form (C<\p{name}>) tighter rules:
+
+White space, hyphens, and underscores ARE significant
+except for:
+
+=over 4
+
+=item * white space adjacent to a non-word character
+
+=item * underscores separating digits in numbers
+
+=back
+
+That means, for example, that you can freely add or remove white space
+adjacent to (but within) the braces without affecting the meaning.
+
+=item Compound form (C<\p{name=value}> or C<\p{name:value}>) tighter rules:
+
+The tighter rules given above for the single form apply to everything to the
+right of the colon or equals; the looser rules still apply to everything to
+the left.
+
+That means, for example, that you can freely add or remove white space
+adjacent to (but within) the braces and the colon or equal sign.
+
+=back
+
+=back
+
+Some properties are considered obsolete by Unicode, but still available.
+There are several varieties of obsolescence:
+
+=over 4
+
+=over 4
+
+=item Stabilized
+
+A property may be stabilized.  Such a determination does not indicate
+that the property should or should not be used; instead it is a declaration
+that the property will not be maintained nor extended for newly encoded
+characters.  Such properties are marked with an 'B<S>' in the
+table.
+
+=item Deprecated
+
+A property may be deprecated, perhaps because its original intent
+has been replaced by another property, or because its specification was
+somehow defective.  This means that its use is strongly
+discouraged, so much so that a warning will be issued if used, unless the
+regular expression is in the scope of a C<S<no warnings 'deprecated'>>
+statement.  A 'B<D>' flags each such entry in the table, and
+the entry there for the longest, most descriptive version of the property will
+give the reason it is deprecated, and perhaps advice.  Perl may issue such a
+warning, even for properties that aren't officially deprecated by Unicode,
+when there used to be characters or code points that were matched by them, but
+no longer.  This is to warn you that your program may not work like it did on
+earlier Unicode releases.
+
+A deprecated property may be made unavailable in a future Perl version, so it
+is best to move away from them.
+
+A deprecated property may also be stabilized, but this fact is not shown.
+
+=item Obsolete
+
+Properties marked with an 'B<O>' in the table are considered (plain)
+obsolete.  Generally this designation is given to properties that Unicode once
+used for internal purposes (but not any longer).
+
+=item Discouraged
+
+This is not actually a Unicode-specified obsolescence, but applies to certain
+Perl extensions that are present for backwards compatibility, but are
+discouraged from being used.  These are not obsolete, but their meanings are
+not stable.  Future Unicode versions could force any of these extensions to be
+removed without warning, replaced by another property with the same name that
+means something different.  An 'B<X>' flags each such entry in the
+table.  Use the equivalent shown instead.
+
+
+In particular, matches in the Block property have single forms
+defined by Perl that begin with C<"In_">, C<"Is_>, or even with no prefix at
+all,  Like all B<DISCOURAGED> forms, these are not stable.  For example,
+C<\p{Block=Deseret}> can currently be written as C<\p{In_Deseret}>,
+C<\p{Is_Deseret}>, or C<\p{Deseret}>.  But, a new Unicode version may
+come along that would force Perl to change the meaning of one or more of
+these, and your program would no longer be correct.  Currently there are no
+such conflicts with the form that begins C<"In_">, but there are many with the
+other two shortcuts, and Unicode continues to define new properties that begin
+with C<"In">, so it's quite possible that a conflict will occur in the future.
+The compound form is guaranteed to not become obsolete, and its meaning is
+clearer anyway.  See L<perlunicode/"Blocks"> for more information about this.
+
+
+=back
+
+=back
+
+The table below has two columns.  The left column contains the C<\p{}>
+constructs to look up, possibly preceded by the flags mentioned above; and
+the right column contains information about them, like a description, or
+synonyms.  The table shows both the single and compound forms for each
+property that has them.  If the left column is a short name for a property,
+the right column will give its longer, more descriptive name; and if the left
+column is the longest name, the right column will show any equivalent shortest
+name, in both single and compound forms if applicable.
+
+If braces are not needed to specify a property (e.g., C<\pL>), the left
+column contains both forms, with and without braces.
+
+The right column will also caution you if a property means something different
+than what might normally be expected.
+
+All single forms are Perl extensions; a few compound forms are as well, and
+are noted as such.
+
+Numbers in (parentheses) indicate the total number of Unicode code points
+matched by the property.  For emphasis, those properties that match no code
+points at all are listed as well in a separate section following the table.
+
+Most properties match the same code points regardless of whether C<"/i">
+case-insensitive matching is specified or not.  But a few properties are
+affected.  These are shown with the notation S<C<(/i= I<other_property>)>>
+in the second column.  Under case-insensitive matching they match the
+same code pode points as the property I<other_property>.
+
+There is no description given for most non-Perl defined properties (See
+L<http://www.unicode.org/reports/tr44/> for that).
+
+For compactness, 'B<*>' is used as a wildcard instead of showing all possible
+combinations.  For example, entries like:
+
+ \p{Gc: *}                                  \p{General_Category: *}
+
+mean that 'Gc' is a synonym for 'General_Category', and anything that is valid
+for the latter is also valid for the former.  Similarly,
+
+ \p{Is_*}                                   \p{*}
+
+means that if and only if, for example, C<\p{Foo}> exists, then
+C<\p{Is_Foo}> and C<\p{IsFoo}> are also valid and all mean the same thing.
+And similarly, C<\p{Foo=Bar}> means the same as C<\p{Is_Foo=Bar}> and
+C<\p{IsFoo=Bar}>.  "*" here is restricted to something not beginning with an
+underscore.
+
+Also, in binary properties, 'Yes', 'T', and 'True' are all synonyms for 'Y'.
+And 'No', 'F', and 'False' are all synonyms for 'N'.  The table shows 'Y*' and
+'N*' to indicate this, and doesn't have separate entries for the other
+possibilities.  Note that not all properties which have values 'Yes' and 'No'
+are binary, and they have all their values spelled out without using this wild
+card, and a C<NOT> clause in their description that highlights their not being
+binary.  These also require the compound form to match them, whereas true
+binary properties have both single and compound forms available.
+
+Note that all non-essential underscores are removed in the display of the
+short names below.
+
+B<Legend summary:>
+
+=over 4
+
+=item *
+
+B<*> is a wild-card
+
+=item *
+
+B<(\d+)> in the info column gives the number of Unicode code points matched
+by this property.
+
+=item *
+
+B<D> means this is deprecated.
+
+=item *
+
+B<O> means this is obsolete.
+
+=item *
+
+B<S> means this is stabilized.
+
+=item *
+
+B<T> means tighter (stricter) name matching applies.
+
+=item *
+
+B<X> means use of this form is discouraged, and may not be
+stable.
+
+=back
+
+       NAME                           INFO
+
+ X \p{Aegean_Numbers}      \p{Block=Aegean_Numbers} (64)
+ T \p{Age: 1.1}            \p{Age=V1_1} (33_979)
+ T \p{Age: 2.0}            \p{Age=V2_0} (144_521)
+ T \p{Age: 2.1}            \p{Age=V2_1} (2)
+ T \p{Age: 3.0}            \p{Age=V3_0} (10_307)
+ T \p{Age: 3.1}            \p{Age=V3_1} (44_978)
+ T \p{Age: 3.2}            \p{Age=V3_2} (1016)
+ T \p{Age: 4.0}            \p{Age=V4_0} (1226)
+ T \p{Age: 4.1}            \p{Age=V4_1} (1273)
+ T \p{Age: 5.0}            \p{Age=V5_0} (1369)
+ T \p{Age: 5.1}            \p{Age=V5_1} (1624)
+ T \p{Age: 5.2}            \p{Age=V5_2} (6648)
+ T \p{Age: 6.0}            \p{Age=V6_0} (2088)
+ T \p{Age: 6.1}            \p{Age=V6_1} (732)
+ T \p{Age: 6.2}            \p{Age=V6_2} (1)
+ T \p{Age: 6.3}            \p{Age=V6_3} (5)
+ T \p{Age: 7.0}            \p{Age=V7_0} (2834)
+ T \p{Age: 8.0}            \p{Age=V8_0} (7716)
+   \p{Age: NA}             \p{Age=Unassigned} (853_793 plus all
+                             above-Unicode code points)
+   \p{Age: Unassigned}     Code point's usage has not been assigned
+                             in any Unicode release thus far. (Short:
+                             \p{Age=NA}) (853_793 plus all above-
+                             Unicode code points)
+   \p{Age: V1_1}           Code point's usage introduced in version
+                             1.1 (33_979)
+   \p{Age: V2_0}           Code point's usage was introduced in
+                             version 2.0; See also Property
+                             'Present_In' (144_521)
+   \p{Age: V2_1}           Code point's usage was introduced in
+                             version 2.1; See also Property
+                             'Present_In' (2)
+   \p{Age: V3_0}           Code point's usage was introduced in
+                             version 3.0; See also Property
+                             'Present_In' (10_307)
+   \p{Age: V3_1}           Code point's usage was introduced in
+                             version 3.1; See also Property
+                             'Present_In' (44_978)
+   \p{Age: V3_2}           Code point's usage was introduced in
+                             version 3.2; See also Property
+                             'Present_In' (1016)
+   \p{Age: V4_0}           Code point's usage was introduced in
+                             version 4.0; See also Property
+                             'Present_In' (1226)
+   \p{Age: V4_1}           Code point's usage was introduced in
+                             version 4.1; See also Property
+                             'Present_In' (1273)
+   \p{Age: V5_0}           Code point's usage was introduced in
+                             version 5.0; See also Property
+                             'Present_In' (1369)
+   \p{Age: V5_1}           Code point's usage was introduced in
+                             version 5.1; See also Property
+                             'Present_In' (1624)
+   \p{Age: V5_2}           Code point's usage was introduced in
+                             version 5.2; See also Property
+                             'Present_In' (6648)
+   \p{Age: V6_0}           Code point's usage was introduced in
+                             version 6.0; See also Property
+                             'Present_In' (2088)
+   \p{Age: V6_1}           Code point's usage was introduced in
+                             version 6.1; See also Property
+                             'Present_In' (732)
+   \p{Age: V6_2}           Code point's usage was introduced in
+                             version 6.2; See also Property
+                             'Present_In' (1)
+   \p{Age: V6_3}           Code point's usage was introduced in
+                             version 6.3; See also Property
+                             'Present_In' (5)
+   \p{Age: V7_0}           Code point's usage was introduced in
+                             version 7.0; See also Property
+                             'Present_In' (2834)
+   \p{Age: V8_0}           Code point's usage was introduced in
+                             version 8.0; See also Property
+                             'Present_In' (7716)
+   \p{Aghb}                \p{Caucasian_Albanian} (= \p{Script=
+                             Caucasian_Albanian}) (NOT \p{Block=
+                             Caucasian_Albanian}) (53)
+   \p{AHex}                \p{PosixXDigit} (= \p{ASCII_Hex_Digit=Y})
+                             (22)
+   \p{AHex: *}             \p{ASCII_Hex_Digit: *}
+   \p{Ahom}                \p{Script=Ahom} (NOT \p{Block=Ahom}) (57)
+ X \p{Alchemical}          \p{Alchemical_Symbols} (= \p{Block=
+                             Alchemical_Symbols}) (128)
+ X \p{Alchemical_Symbols}  \p{Block=Alchemical_Symbols} (Short:
+                             \p{InAlchemical}) (128)
+   \p{All}                 All code points, including those above
+                             Unicode.  Same as qr/./s (1_114_112 plus
+                             all above-Unicode code points)
+   \p{Alnum}               \p{XPosixAlnum} (111_493)
+   \p{Alpha}               \p{XPosixAlpha} (= \p{Alphabetic=Y})
+                             (110_943)
+   \p{Alpha: *}            \p{Alphabetic: *}
+   \p{Alphabetic}          \p{XPosixAlpha} (= \p{Alphabetic=Y})
+                             (110_943)
+   \p{Alphabetic: N*}      (Short: \p{Alpha=N}, \P{Alpha}) (1_003_169
+                             plus all above-Unicode code points)
+   \p{Alphabetic: Y*}      (Short: \p{Alpha=Y}, \p{Alpha}) (110_943)
+ X \p{Alphabetic_PF}       \p{Alphabetic_Presentation_Forms} (=
+                             \p{Block=Alphabetic_Presentation_Forms})
+                             (80)
+ X \p{Alphabetic_Presentation_Forms} \p{Block=
+                             Alphabetic_Presentation_Forms} (Short:
+                             \p{InAlphabeticPF}) (80)
+   \p{Anatolian_Hieroglyphs} \p{Script=Anatolian_Hieroglyphs} (Short:
+                             \p{Hluw}; NOT \p{Block=
+                             Anatolian_Hieroglyphs}) (583)
+ X \p{Ancient_Greek_Music} \p{Ancient_Greek_Musical_Notation} (=
+                             \p{Block=
+                             Ancient_Greek_Musical_Notation}) (80)
+ X \p{Ancient_Greek_Musical_Notation} \p{Block=
+                             Ancient_Greek_Musical_Notation} (Short:
+                             \p{InAncientGreekMusic}) (80)
+ X \p{Ancient_Greek_Numbers} \p{Block=Ancient_Greek_Numbers} (80)
+ X \p{Ancient_Symbols}     \p{Block=Ancient_Symbols} (64)
+   \p{Any}                 All Unicode code points: [\x{0000}-
+                             \x{10FFFF}] (1_114_112)
+   \p{Arab}                \p{Arabic} (= \p{Script=Arabic}) (NOT
+                             \p{Block=Arabic}) (1257)
+   \p{Arabic}              \p{Script=Arabic} (Short: \p{Arab}; NOT
+                             \p{Block=Arabic}) (1257)
+ X \p{Arabic_Ext_A}        \p{Arabic_Extended_A} (= \p{Block=
+                             Arabic_Extended_A}) (96)
+ X \p{Arabic_Extended_A}   \p{Block=Arabic_Extended_A} (Short:
+                             \p{InArabicExtA}) (96)
+ X \p{Arabic_Math}         \p{Arabic_Mathematical_Alphabetic_Symbols}
+                             (= \p{Block=
+                             Arabic_Mathematical_Alphabetic_Symbols})
+                             (256)
+ X \p{Arabic_Mathematical_Alphabetic_Symbols} \p{Block=
+                             Arabic_Mathematical_Alphabetic_Symbols}
+                             (Short: \p{InArabicMath}) (256)
+ X \p{Arabic_PF_A}         \p{Arabic_Presentation_Forms_A} (=
+                             \p{Block=Arabic_Presentation_Forms_A})
+                             (688)
+ X \p{Arabic_PF_B}         \p{Arabic_Presentation_Forms_B} (=
+                             \p{Block=Arabic_Presentation_Forms_B})
+                             (144)
+ X \p{Arabic_Presentation_Forms_A} \p{Block=
+                             Arabic_Presentation_Forms_A} (Short:
+                             \p{InArabicPFA}) (688)
+ X \p{Arabic_Presentation_Forms_B} \p{Block=
+                             Arabic_Presentation_Forms_B} (Short:
+                             \p{InArabicPFB}) (144)
+ X \p{Arabic_Sup}          \p{Arabic_Supplement} (= \p{Block=
+                             Arabic_Supplement}) (48)
+ X \p{Arabic_Supplement}   \p{Block=Arabic_Supplement} (Short:
+                             \p{InArabicSup}) (48)
+   \p{Armenian}            \p{Script=Armenian} (Short: \p{Armn}; NOT
+                             \p{Block=Armenian}) (93)
+   \p{Armi}                \p{Imperial_Aramaic} (= \p{Script=
+                             Imperial_Aramaic}) (NOT \p{Block=
+                             Imperial_Aramaic}) (31)
+   \p{Armn}                \p{Armenian} (= \p{Script=Armenian}) (NOT
+                             \p{Block=Armenian}) (93)
+ X \p{Arrows}              \p{Block=Arrows} (112)
+   \p{ASCII}               \p{Block=Basic_Latin} [[:ASCII:]] (128)
+   \p{ASCII_Hex_Digit}     \p{PosixXDigit} (= \p{ASCII_Hex_Digit=Y})
+                             (22)
+   \p{ASCII_Hex_Digit: N*} (Short: \p{AHex=N}, \P{AHex}) (1_114_090
+                             plus all above-Unicode code points)
+   \p{ASCII_Hex_Digit: Y*} (Short: \p{AHex=Y}, \p{AHex}) (22)
+   \p{Assigned}            All assigned code points (260_253)
+   \p{Avestan}             \p{Script=Avestan} (Short: \p{Avst}; NOT
+                             \p{Block=Avestan}) (61)
+   \p{Avst}                \p{Avestan} (= \p{Script=Avestan}) (NOT
+                             \p{Block=Avestan}) (61)
+   \p{Bali}                \p{Balinese} (= \p{Script=Balinese}) (NOT
+                             \p{Block=Balinese}) (121)
+   \p{Balinese}            \p{Script=Balinese} (Short: \p{Bali}; NOT
+                             \p{Block=Balinese}) (121)
+   \p{Bamu}                \p{Bamum} (= \p{Script=Bamum}) (NOT
+                             \p{Block=Bamum}) (657)
+   \p{Bamum}               \p{Script=Bamum} (Short: \p{Bamu}; NOT
+                             \p{Block=Bamum}) (657)
+ X \p{Bamum_Sup}           \p{Bamum_Supplement} (= \p{Block=
+                             Bamum_Supplement}) (576)
+ X \p{Bamum_Supplement}    \p{Block=Bamum_Supplement} (Short:
+                             \p{InBamumSup}) (576)
+ X \p{Basic_Latin}         \p{ASCII} (= \p{Block=Basic_Latin}) (128)
+   \p{Bass}                \p{Bassa_Vah} (= \p{Script=Bassa_Vah})
+                             (NOT \p{Block=Bassa_Vah}) (36)
+   \p{Bassa_Vah}           \p{Script=Bassa_Vah} (Short: \p{Bass}; NOT
+                             \p{Block=Bassa_Vah}) (36)
+   \p{Batak}               \p{Script=Batak} (Short: \p{Batk}; NOT
+                             \p{Block=Batak}) (56)
+   \p{Batk}                \p{Batak} (= \p{Script=Batak}) (NOT
+                             \p{Block=Batak}) (56)
+   \p{Bc: *}               \p{Bidi_Class: *}
+   \p{Beng}                \p{Bengali} (= \p{Script=Bengali}) (NOT
+                             \p{Block=Bengali}) (93)
+   \p{Bengali}             \p{Script=Bengali} (Short: \p{Beng}; NOT
+                             \p{Block=Bengali}) (93)
+   \p{Bidi_C}              \p{Bidi_Control} (= \p{Bidi_Control=Y})
+                             (12)
+   \p{Bidi_C: *}           \p{Bidi_Control: *}
+   \p{Bidi_Class: AL}      \p{Bidi_Class=Arabic_Letter} (1435)
+   \p{Bidi_Class: AN}      \p{Bidi_Class=Arabic_Number} (50)
+   \p{Bidi_Class: Arabic_Letter} (Short: \p{Bc=AL}) (1435)
+   \p{Bidi_Class: Arabic_Number} (Short: \p{Bc=AN}) (50)
+   \p{Bidi_Class: B}       \p{Bidi_Class=Paragraph_Separator} (7)
+   \p{Bidi_Class: BN}      \p{Bidi_Class=Boundary_Neutral} (4016)
+   \p{Bidi_Class: Boundary_Neutral} (Short: \p{Bc=BN}) (4016)
+   \p{Bidi_Class: Common_Separator} (Short: \p{Bc=CS}) (15)
+   \p{Bidi_Class: CS}      \p{Bidi_Class=Common_Separator} (15)
+   \p{Bidi_Class: EN}      \p{Bidi_Class=European_Number} (158)
+   \p{Bidi_Class: ES}      \p{Bidi_Class=European_Separator} (12)
+   \p{Bidi_Class: ET}      \p{Bidi_Class=European_Terminator} (87)
+   \p{Bidi_Class: European_Number} (Short: \p{Bc=EN}) (158)
+   \p{Bidi_Class: European_Separator} (Short: \p{Bc=ES}) (12)
+   \p{Bidi_Class: European_Terminator} (Short: \p{Bc=ET}) (87)
+   \p{Bidi_Class: First_Strong_Isolate} (Short: \p{Bc=FSI}) (1)
+   \p{Bidi_Class: FSI}     \p{Bidi_Class=First_Strong_Isolate} (1)
+   \p{Bidi_Class: L}       \p{Bidi_Class=Left_To_Right} (1_097_474
+                             plus all above-Unicode code points)
+   \p{Bidi_Class: Left_To_Right} (Short: \p{Bc=L}) (1_097_474 plus
+                             all above-Unicode code points)
+   \p{Bidi_Class: Left_To_Right_Embedding} (Short: \p{Bc=LRE}) (1)
+   \p{Bidi_Class: Left_To_Right_Isolate} (Short: \p{Bc=LRI}) (1)
+   \p{Bidi_Class: Left_To_Right_Override} (Short: \p{Bc=LRO}) (1)
+   \p{Bidi_Class: LRE}     \p{Bidi_Class=Left_To_Right_Embedding} (1)
+   \p{Bidi_Class: LRI}     \p{Bidi_Class=Left_To_Right_Isolate} (1)
+   \p{Bidi_Class: LRO}     \p{Bidi_Class=Left_To_Right_Override} (1)
+   \p{Bidi_Class: Nonspacing_Mark} (Short: \p{Bc=NSM}) (1578)
+   \p{Bidi_Class: NSM}     \p{Bidi_Class=Nonspacing_Mark} (1578)
+   \p{Bidi_Class: ON}      \p{Bidi_Class=Other_Neutral} (5174)
+   \p{Bidi_Class: Other_Neutral} (Short: \p{Bc=ON}) (5174)
+   \p{Bidi_Class: Paragraph_Separator} (Short: \p{Bc=B}) (7)
+   \p{Bidi_Class: PDF}     \p{Bidi_Class=Pop_Directional_Format} (1)
+   \p{Bidi_Class: PDI}     \p{Bidi_Class=Pop_Directional_Isolate} (1)
+   \p{Bidi_Class: Pop_Directional_Format} (Short: \p{Bc=PDF}) (1)
+   \p{Bidi_Class: Pop_Directional_Isolate} (Short: \p{Bc=PDI}) (1)
+   \p{Bidi_Class: R}       \p{Bidi_Class=Right_To_Left} (4077)
+   \p{Bidi_Class: Right_To_Left} (Short: \p{Bc=R}) (4077)
+   \p{Bidi_Class: Right_To_Left_Embedding} (Short: \p{Bc=RLE}) (1)
+   \p{Bidi_Class: Right_To_Left_Isolate} (Short: \p{Bc=RLI}) (1)
+   \p{Bidi_Class: Right_To_Left_Override} (Short: \p{Bc=RLO}) (1)
+   \p{Bidi_Class: RLE}     \p{Bidi_Class=Right_To_Left_Embedding} (1)
+   \p{Bidi_Class: RLI}     \p{Bidi_Class=Right_To_Left_Isolate} (1)
+   \p{Bidi_Class: RLO}     \p{Bidi_Class=Right_To_Left_Override} (1)
+   \p{Bidi_Class: S}       \p{Bidi_Class=Segment_Separator} (3)
+   \p{Bidi_Class: Segment_Separator} (Short: \p{Bc=S}) (3)
+   \p{Bidi_Class: White_Space} (Short: \p{Bc=WS}) (17)
+   \p{Bidi_Class: WS}      \p{Bidi_Class=White_Space} (17)
+   \p{Bidi_Control}        \p{Bidi_Control=Y} (Short: \p{BidiC}) (12)
+   \p{Bidi_Control: N*}    (Short: \p{BidiC=N}, \P{BidiC}) (1_114_100
+                             plus all above-Unicode code points)
+   \p{Bidi_Control: Y*}    (Short: \p{BidiC=Y}, \p{BidiC}) (12)
+   \p{Bidi_M}              \p{Bidi_Mirrored} (= \p{Bidi_Mirrored=Y})
+                             (545)
+   \p{Bidi_M: *}           \p{Bidi_Mirrored: *}
+   \p{Bidi_Mirrored}       \p{Bidi_Mirrored=Y} (Short: \p{BidiM})
+                             (545)
+   \p{Bidi_Mirrored: N*}   (Short: \p{BidiM=N}, \P{BidiM}) (1_113_567
+                             plus all above-Unicode code points)
+   \p{Bidi_Mirrored: Y*}   (Short: \p{BidiM=Y}, \p{BidiM}) (545)
+   \p{Bidi_Paired_Bracket_Type: C} \p{Bidi_Paired_Bracket_Type=Close}
+                             (60)
+   \p{Bidi_Paired_Bracket_Type: Close} (Short: \p{Bpt=C}) (60)
+   \p{Bidi_Paired_Bracket_Type: N} \p{Bidi_Paired_Bracket_Type=None}
+                             (1_113_992 plus all above-Unicode code
+                             points)
+   \p{Bidi_Paired_Bracket_Type: None} (Short: \p{Bpt=N}) (1_113_992
+                             plus all above-Unicode code points)
+   \p{Bidi_Paired_Bracket_Type: O} \p{Bidi_Paired_Bracket_Type=Open}
+                             (60)
+   \p{Bidi_Paired_Bracket_Type: Open} (Short: \p{Bpt=O}) (60)
+   \p{Blank}               \p{XPosixBlank} (18)
+   \p{Blk: *}              \p{Block: *}
+   \p{Block: Aegean_Numbers} (64)
+   \p{Block: Ahom}         (NOT \p{Ahom} NOR \p{Is_Ahom}) (64)
+   \p{Block: Alchemical}   \p{Block=Alchemical_Symbols} (128)
+   \p{Block: Alchemical_Symbols} (Short: \p{Blk=Alchemical}) (128)
+   \p{Block: Alphabetic_PF} \p{Block=Alphabetic_Presentation_Forms}
+                             (80)
+   \p{Block: Alphabetic_Presentation_Forms} (Short: \p{Blk=
+                             AlphabeticPF}) (80)
+   \p{Block: Anatolian_Hieroglyphs} (NOT \p{Anatolian_Hieroglyphs}
+                             NOR \p{Is_Anatolian_Hieroglyphs}) (640)
+   \p{Block: Ancient_Greek_Music} \p{Block=
+                             Ancient_Greek_Musical_Notation} (80)
+   \p{Block: Ancient_Greek_Musical_Notation} (Short: \p{Blk=
+                             AncientGreekMusic}) (80)
+   \p{Block: Ancient_Greek_Numbers} (80)
+   \p{Block: Ancient_Symbols} (64)
+   \p{Block: Arabic}       (NOT \p{Arabic} NOR \p{Is_Arabic}) (256)
+   \p{Block: Arabic_Ext_A} \p{Block=Arabic_Extended_A} (96)
+   \p{Block: Arabic_Extended_A} (Short: \p{Blk=ArabicExtA}) (96)
+   \p{Block: Arabic_Math}  \p{Block=
+                             Arabic_Mathematical_Alphabetic_Symbols}
+                             (256)
+   \p{Block: Arabic_Mathematical_Alphabetic_Symbols} (Short: \p{Blk=
+                             ArabicMath}) (256)
+   \p{Block: Arabic_PF_A}  \p{Block=Arabic_Presentation_Forms_A} (688)
+   \p{Block: Arabic_PF_B}  \p{Block=Arabic_Presentation_Forms_B} (144)
+   \p{Block: Arabic_Presentation_Forms_A} (Short: \p{Blk=ArabicPFA})
+                             (688)
+   \p{Block: Arabic_Presentation_Forms_B} (Short: \p{Blk=ArabicPFB})
+                             (144)
+   \p{Block: Arabic_Sup}   \p{Block=Arabic_Supplement} (48)
+   \p{Block: Arabic_Supplement} (Short: \p{Blk=ArabicSup}) (48)
+   \p{Block: Armenian}     (NOT \p{Armenian} NOR \p{Is_Armenian}) (96)
+   \p{Block: Arrows}       (112)
+   \p{Block: ASCII}        \p{Block=Basic_Latin} (128)
+   \p{Block: Avestan}      (NOT \p{Avestan} NOR \p{Is_Avestan}) (64)
+   \p{Block: Balinese}     (NOT \p{Balinese} NOR \p{Is_Balinese})
+                             (128)
+   \p{Block: Bamum}        (NOT \p{Bamum} NOR \p{Is_Bamum}) (96)
+   \p{Block: Bamum_Sup}    \p{Block=Bamum_Supplement} (576)
+   \p{Block: Bamum_Supplement} (Short: \p{Blk=BamumSup}) (576)
+   \p{Block: Basic_Latin}  (Short: \p{Blk=ASCII}) (128)
+   \p{Block: Bassa_Vah}    (NOT \p{Bassa_Vah} NOR \p{Is_Bassa_Vah})
+                             (48)
+   \p{Block: Batak}        (NOT \p{Batak} NOR \p{Is_Batak}) (64)
+   \p{Block: Bengali}      (NOT \p{Bengali} NOR \p{Is_Bengali}) (128)
+   \p{Block: Block_Elements} (32)
+   \p{Block: Bopomofo}     (NOT \p{Bopomofo} NOR \p{Is_Bopomofo}) (48)
+   \p{Block: Bopomofo_Ext} \p{Block=Bopomofo_Extended} (32)
+   \p{Block: Bopomofo_Extended} (Short: \p{Blk=BopomofoExt}) (32)
+   \p{Block: Box_Drawing}  (128)
+   \p{Block: Brahmi}       (NOT \p{Brahmi} NOR \p{Is_Brahmi}) (128)
+   \p{Block: Braille}      \p{Block=Braille_Patterns} (256)
+   \p{Block: Braille_Patterns} (Short: \p{Blk=Braille}) (256)
+   \p{Block: Buginese}     (NOT \p{Buginese} NOR \p{Is_Buginese}) (32)
+   \p{Block: Buhid}        (NOT \p{Buhid} NOR \p{Is_Buhid}) (32)
+   \p{Block: Byzantine_Music} \p{Block=Byzantine_Musical_Symbols}
+                             (256)
+   \p{Block: Byzantine_Musical_Symbols} (Short: \p{Blk=
+                             ByzantineMusic}) (256)
+   \p{Block: Canadian_Syllabics} \p{Block=
+                             Unified_Canadian_Aboriginal_Syllabics}
+                             (640)
+   \p{Block: Carian}       (NOT \p{Carian} NOR \p{Is_Carian}) (64)
+   \p{Block: Caucasian_Albanian} (NOT \p{Caucasian_Albanian} NOR
+                             \p{Is_Caucasian_Albanian}) (64)
+   \p{Block: Chakma}       (NOT \p{Chakma} NOR \p{Is_Chakma}) (80)
+   \p{Block: Cham}         (NOT \p{Cham} NOR \p{Is_Cham}) (96)
+   \p{Block: Cherokee}     (NOT \p{Cherokee} NOR \p{Is_Cherokee}) (96)
+   \p{Block: Cherokee_Sup} \p{Block=Cherokee_Supplement} (80)
+   \p{Block: Cherokee_Supplement} (Short: \p{Blk=CherokeeSup}) (80)
+   \p{Block: CJK}          \p{Block=CJK_Unified_Ideographs} (20_992)
+   \p{Block: CJK_Compat}   \p{Block=CJK_Compatibility} (256)
+   \p{Block: CJK_Compat_Forms} \p{Block=CJK_Compatibility_Forms} (32)
+   \p{Block: CJK_Compat_Ideographs} \p{Block=
+                             CJK_Compatibility_Ideographs} (512)
+   \p{Block: CJK_Compat_Ideographs_Sup} \p{Block=
+                             CJK_Compatibility_Ideographs_Supplement}
+                             (544)
+   \p{Block: CJK_Compatibility} (Short: \p{Blk=CJKCompat}) (256)
+   \p{Block: CJK_Compatibility_Forms} (Short: \p{Blk=CJKCompatForms})
+                             (32)
+   \p{Block: CJK_Compatibility_Ideographs} (Short: \p{Blk=
+                             CJKCompatIdeographs}) (512)
+   \p{Block: CJK_Compatibility_Ideographs_Supplement} (Short: \p{Blk=
+                             CJKCompatIdeographsSup}) (544)
+   \p{Block: CJK_Ext_A}    \p{Block=
+                             CJK_Unified_Ideographs_Extension_A}
+                             (6592)
+   \p{Block: CJK_Ext_B}    \p{Block=
+                             CJK_Unified_Ideographs_Extension_B}
+                             (42_720)
+   \p{Block: CJK_Ext_C}    \p{Block=
+                             CJK_Unified_Ideographs_Extension_C}
+                             (4160)
+   \p{Block: CJK_Ext_D}    \p{Block=
+                             CJK_Unified_Ideographs_Extension_D} (224)
+   \p{Block: CJK_Ext_E}    \p{Block=
+                             CJK_Unified_Ideographs_Extension_E}
+                             (5776)
+   \p{Block: CJK_Radicals_Sup} \p{Block=CJK_Radicals_Supplement} (128)
+   \p{Block: CJK_Radicals_Supplement} (Short: \p{Blk=CJKRadicalsSup})
+                             (128)
+   \p{Block: CJK_Strokes}  (48)
+   \p{Block: CJK_Symbols}  \p{Block=CJK_Symbols_And_Punctuation} (64)
+   \p{Block: CJK_Symbols_And_Punctuation} (Short: \p{Blk=CJKSymbols})
+                             (64)
+   \p{Block: CJK_Unified_Ideographs} (Short: \p{Blk=CJK}) (20_992)
+   \p{Block: CJK_Unified_Ideographs_Extension_A} (Short: \p{Blk=
+                             CJKExtA}) (6592)
+   \p{Block: CJK_Unified_Ideographs_Extension_B} (Short: \p{Blk=
+                             CJKExtB}) (42_720)
+   \p{Block: CJK_Unified_Ideographs_Extension_C} (Short: \p{Blk=
+                             CJKExtC}) (4160)
+   \p{Block: CJK_Unified_Ideographs_Extension_D} (Short: \p{Blk=
+                             CJKExtD}) (224)
+   \p{Block: CJK_Unified_Ideographs_Extension_E} (Short: \p{Blk=
+                             CJKExtE}) (5776)
+   \p{Block: Combining_Diacritical_Marks} (Short: \p{Blk=
+                             Diacriticals}) (112)
+   \p{Block: Combining_Diacritical_Marks_Extended} (Short: \p{Blk=
+                             DiacriticalsExt}) (80)
+   \p{Block: Combining_Diacritical_Marks_For_Symbols} (Short: \p{Blk=
+                             DiacriticalsForSymbols}) (48)
+   \p{Block: Combining_Diacritical_Marks_Supplement} (Short: \p{Blk=
+                             DiacriticalsSup}) (64)
+   \p{Block: Combining_Half_Marks} (Short: \p{Blk=HalfMarks}) (16)
+   \p{Block: Combining_Marks_For_Symbols} \p{Block=
+                             Combining_Diacritical_Marks_For_Symbols}
+                             (48)
+   \p{Block: Common_Indic_Number_Forms} (Short: \p{Blk=
+                             IndicNumberForms}) (16)
+   \p{Block: Compat_Jamo}  \p{Block=Hangul_Compatibility_Jamo} (96)
+   \p{Block: Control_Pictures} (64)
+   \p{Block: Coptic}       (NOT \p{Coptic} NOR \p{Is_Coptic}) (128)
+   \p{Block: Coptic_Epact_Numbers} (32)
+   \p{Block: Counting_Rod} \p{Block=Counting_Rod_Numerals} (32)
+   \p{Block: Counting_Rod_Numerals} (Short: \p{Blk=CountingRod}) (32)
+   \p{Block: Cuneiform}    (NOT \p{Cuneiform} NOR \p{Is_Cuneiform})
+                             (1024)
+   \p{Block: Cuneiform_Numbers} \p{Block=
+                             Cuneiform_Numbers_And_Punctuation} (128)
+   \p{Block: Cuneiform_Numbers_And_Punctuation} (Short: \p{Blk=
+                             CuneiformNumbers}) (128)
+   \p{Block: Currency_Symbols} (48)
+   \p{Block: Cypriot_Syllabary} (64)
+   \p{Block: Cyrillic}     (NOT \p{Cyrillic} NOR \p{Is_Cyrillic})
+                             (256)
+   \p{Block: Cyrillic_Ext_A} \p{Block=Cyrillic_Extended_A} (32)
+   \p{Block: Cyrillic_Ext_B} \p{Block=Cyrillic_Extended_B} (96)
+   \p{Block: Cyrillic_Extended_A} (Short: \p{Blk=CyrillicExtA}) (32)
+   \p{Block: Cyrillic_Extended_B} (Short: \p{Blk=CyrillicExtB}) (96)
+   \p{Block: Cyrillic_Sup} \p{Block=Cyrillic_Supplement} (48)
+   \p{Block: Cyrillic_Supplement} (Short: \p{Blk=CyrillicSup}) (48)
+   \p{Block: Cyrillic_Supplementary} \p{Block=Cyrillic_Supplement}
+                             (48)
+   \p{Block: Deseret}      (80)
+   \p{Block: Devanagari}   (NOT \p{Devanagari} NOR \p{Is_Devanagari})
+                             (128)
+   \p{Block: Devanagari_Ext} \p{Block=Devanagari_Extended} (32)
+   \p{Block: Devanagari_Extended} (Short: \p{Blk=DevanagariExt}) (32)
+   \p{Block: Diacriticals} \p{Block=Combining_Diacritical_Marks} (112)
+   \p{Block: Diacriticals_Ext} \p{Block=
+                             Combining_Diacritical_Marks_Extended}
+                             (80)
+   \p{Block: Diacriticals_For_Symbols} \p{Block=
+                             Combining_Diacritical_Marks_For_Symbols}
+                             (48)
+   \p{Block: Diacriticals_Sup} \p{Block=
+                             Combining_Diacritical_Marks_Supplement}
+                             (64)
+   \p{Block: Dingbats}     (192)
+   \p{Block: Domino}       \p{Block=Domino_Tiles} (112)
+   \p{Block: Domino_Tiles} (Short: \p{Blk=Domino}) (112)
+   \p{Block: Duployan}     (NOT \p{Duployan} NOR \p{Is_Duployan})
+                             (160)
+   \p{Block: Early_Dynastic_Cuneiform} (208)
+   \p{Block: Egyptian_Hieroglyphs} (NOT \p{Egyptian_Hieroglyphs} NOR
+                             \p{Is_Egyptian_Hieroglyphs}) (1072)
+   \p{Block: Elbasan}      (NOT \p{Elbasan} NOR \p{Is_Elbasan}) (48)
+   \p{Block: Emoticons}    (80)
+   \p{Block: Enclosed_Alphanum} \p{Block=Enclosed_Alphanumerics} (160)
+   \p{Block: Enclosed_Alphanum_Sup} \p{Block=
+                             Enclosed_Alphanumeric_Supplement} (256)
+   \p{Block: Enclosed_Alphanumeric_Supplement} (Short: \p{Blk=
+                             EnclosedAlphanumSup}) (256)
+   \p{Block: Enclosed_Alphanumerics} (Short: \p{Blk=
+                             EnclosedAlphanum}) (160)
+   \p{Block: Enclosed_CJK} \p{Block=Enclosed_CJK_Letters_And_Months}
+                             (256)
+   \p{Block: Enclosed_CJK_Letters_And_Months} (Short: \p{Blk=
+                             EnclosedCJK}) (256)
+   \p{Block: Enclosed_Ideographic_Sup} \p{Block=
+                             Enclosed_Ideographic_Supplement} (256)
+   \p{Block: Enclosed_Ideographic_Supplement} (Short: \p{Blk=
+                             EnclosedIdeographicSup}) (256)
+   \p{Block: Ethiopic}     (NOT \p{Ethiopic} NOR \p{Is_Ethiopic})
+                             (384)
+   \p{Block: Ethiopic_Ext} \p{Block=Ethiopic_Extended} (96)
+   \p{Block: Ethiopic_Ext_A} \p{Block=Ethiopic_Extended_A} (48)
+   \p{Block: Ethiopic_Extended} (Short: \p{Blk=EthiopicExt}) (96)
+   \p{Block: Ethiopic_Extended_A} (Short: \p{Blk=EthiopicExtA}) (48)
+   \p{Block: Ethiopic_Sup} \p{Block=Ethiopic_Supplement} (32)
+   \p{Block: Ethiopic_Supplement} (Short: \p{Blk=EthiopicSup}) (32)
+   \p{Block: General_Punctuation} (Short: \p{Blk=Punctuation}; NOT
+                             \p{Punct} NOR \p{Is_Punctuation}) (112)
+   \p{Block: Geometric_Shapes} (96)
+   \p{Block: Geometric_Shapes_Ext} \p{Block=
+                             Geometric_Shapes_Extended} (128)
+   \p{Block: Geometric_Shapes_Extended} (Short: \p{Blk=
+                             GeometricShapesExt}) (128)
+   \p{Block: Georgian}     (NOT \p{Georgian} NOR \p{Is_Georgian}) (96)
+   \p{Block: Georgian_Sup} \p{Block=Georgian_Supplement} (48)
+   \p{Block: Georgian_Supplement} (Short: \p{Blk=GeorgianSup}) (48)
+   \p{Block: Glagolitic}   (NOT \p{Glagolitic} NOR \p{Is_Glagolitic})
+                             (96)
+   \p{Block: Gothic}       (NOT \p{Gothic} NOR \p{Is_Gothic}) (32)
+   \p{Block: Grantha}      (NOT \p{Grantha} NOR \p{Is_Grantha}) (128)
+   \p{Block: Greek}        \p{Block=Greek_And_Coptic} (NOT \p{Greek}
+                             NOR \p{Is_Greek}) (144)
+   \p{Block: Greek_And_Coptic} (Short: \p{Blk=Greek}; NOT \p{Greek}
+                             NOR \p{Is_Greek}) (144)
+   \p{Block: Greek_Ext}    \p{Block=Greek_Extended} (256)
+   \p{Block: Greek_Extended} (Short: \p{Blk=GreekExt}) (256)
+   \p{Block: Gujarati}     (NOT \p{Gujarati} NOR \p{Is_Gujarati})
+                             (128)
+   \p{Block: Gurmukhi}     (NOT \p{Gurmukhi} NOR \p{Is_Gurmukhi})
+                             (128)
+   \p{Block: Half_And_Full_Forms} \p{Block=
+                             Halfwidth_And_Fullwidth_Forms} (240)
+   \p{Block: Half_Marks}   \p{Block=Combining_Half_Marks} (16)
+   \p{Block: Halfwidth_And_Fullwidth_Forms} (Short: \p{Blk=
+                             HalfAndFullForms}) (240)
+   \p{Block: Hangul}       \p{Block=Hangul_Syllables} (NOT \p{Hangul}
+                             NOR \p{Is_Hangul}) (11_184)
+   \p{Block: Hangul_Compatibility_Jamo} (Short: \p{Blk=CompatJamo})
+                             (96)
+   \p{Block: Hangul_Jamo}  (Short: \p{Blk=Jamo}) (256)
+   \p{Block: Hangul_Jamo_Extended_A} (Short: \p{Blk=JamoExtA}) (32)
+   \p{Block: Hangul_Jamo_Extended_B} (Short: \p{Blk=JamoExtB}) (80)
+   \p{Block: Hangul_Syllables} (Short: \p{Blk=Hangul}; NOT \p{Hangul}
+                             NOR \p{Is_Hangul}) (11_184)
+   \p{Block: Hanunoo}      (NOT \p{Hanunoo} NOR \p{Is_Hanunoo}) (32)
+   \p{Block: Hatran}       (NOT \p{Hatran} NOR \p{Is_Hatran}) (32)
+   \p{Block: Hebrew}       (NOT \p{Hebrew} NOR \p{Is_Hebrew}) (112)
+   \p{Block: High_Private_Use_Surrogates} (Short: \p{Blk=
+                             HighPUSurrogates}) (128)
+   \p{Block: High_PU_Surrogates} \p{Block=
+                             High_Private_Use_Surrogates} (128)
+   \p{Block: High_Surrogates} (896)
+   \p{Block: Hiragana}     (NOT \p{Hiragana} NOR \p{Is_Hiragana}) (96)
+   \p{Block: IDC}          \p{Block=
+                             Ideographic_Description_Characters} (NOT
+                             \p{ID_Continue} NOR \p{Is_IDC}) (16)
+   \p{Block: Ideographic_Description_Characters} (Short: \p{Blk=IDC};
+                             NOT \p{ID_Continue} NOR \p{Is_IDC}) (16)
+   \p{Block: Imperial_Aramaic} (NOT \p{Imperial_Aramaic} NOR
+                             \p{Is_Imperial_Aramaic}) (32)
+   \p{Block: Indic_Number_Forms} \p{Block=Common_Indic_Number_Forms}
+                             (16)
+   \p{Block: Inscriptional_Pahlavi} (NOT \p{Inscriptional_Pahlavi}
+                             NOR \p{Is_Inscriptional_Pahlavi}) (32)
+   \p{Block: Inscriptional_Parthian} (NOT \p{Inscriptional_Parthian}
+                             NOR \p{Is_Inscriptional_Parthian}) (32)
+   \p{Block: IPA_Ext}      \p{Block=IPA_Extensions} (96)
+   \p{Block: IPA_Extensions} (Short: \p{Blk=IPAExt}) (96)
+   \p{Block: Jamo}         \p{Block=Hangul_Jamo} (256)
+   \p{Block: Jamo_Ext_A}   \p{Block=Hangul_Jamo_Extended_A} (32)
+   \p{Block: Jamo_Ext_B}   \p{Block=Hangul_Jamo_Extended_B} (80)
+   \p{Block: Javanese}     (NOT \p{Javanese} NOR \p{Is_Javanese}) (96)
+   \p{Block: Kaithi}       (NOT \p{Kaithi} NOR \p{Is_Kaithi}) (80)
+   \p{Block: Kana_Sup}     \p{Block=Kana_Supplement} (256)
+   \p{Block: Kana_Supplement} (Short: \p{Blk=KanaSup}) (256)
+   \p{Block: Kanbun}       (16)
+   \p{Block: Kangxi}       \p{Block=Kangxi_Radicals} (224)
+   \p{Block: Kangxi_Radicals} (Short: \p{Blk=Kangxi}) (224)
+   \p{Block: Kannada}      (NOT \p{Kannada} NOR \p{Is_Kannada}) (128)
+   \p{Block: Katakana}     (NOT \p{Katakana} NOR \p{Is_Katakana}) (96)
+   \p{Block: Katakana_Ext} \p{Block=Katakana_Phonetic_Extensions} (16)
+   \p{Block: Katakana_Phonetic_Extensions} (Short: \p{Blk=
+                             KatakanaExt}) (16)
+   \p{Block: Kayah_Li}     (NOT \p{Kayah_Li} NOR \p{Is_Kayah_Li}) (48)
+   \p{Block: Kharoshthi}   (NOT \p{Kharoshthi} NOR \p{Is_Kharoshthi})
+                             (96)
+   \p{Block: Khmer}        (NOT \p{Khmer} NOR \p{Is_Khmer}) (128)
+   \p{Block: Khmer_Symbols} (32)
+   \p{Block: Khojki}       (NOT \p{Khojki} NOR \p{Is_Khojki}) (80)
+   \p{Block: Khudawadi}    (NOT \p{Khudawadi} NOR \p{Is_Khudawadi})
+                             (80)
+   \p{Block: Lao}          (NOT \p{Lao} NOR \p{Is_Lao}) (128)
+   \p{Block: Latin_1}      \p{Block=Latin_1_Supplement} (128)
+   \p{Block: Latin_1_Sup}  \p{Block=Latin_1_Supplement} (128)
+   \p{Block: Latin_1_Supplement} (Short: \p{Blk=Latin1}) (128)
+   \p{Block: Latin_Ext_A}  \p{Block=Latin_Extended_A} (128)
+   \p{Block: Latin_Ext_Additional} \p{Block=
+                             Latin_Extended_Additional} (256)
+   \p{Block: Latin_Ext_B}  \p{Block=Latin_Extended_B} (208)
+   \p{Block: Latin_Ext_C}  \p{Block=Latin_Extended_C} (32)
+   \p{Block: Latin_Ext_D}  \p{Block=Latin_Extended_D} (224)
+   \p{Block: Latin_Ext_E}  \p{Block=Latin_Extended_E} (64)
+   \p{Block: Latin_Extended_A} (Short: \p{Blk=LatinExtA}) (128)
+   \p{Block: Latin_Extended_Additional} (Short: \p{Blk=
+                             LatinExtAdditional}) (256)
+   \p{Block: Latin_Extended_B} (Short: \p{Blk=LatinExtB}) (208)
+   \p{Block: Latin_Extended_C} (Short: \p{Blk=LatinExtC}) (32)
+   \p{Block: Latin_Extended_D} (Short: \p{Blk=LatinExtD}) (224)
+   \p{Block: Latin_Extended_E} (Short: \p{Blk=LatinExtE}) (64)
+   \p{Block: Lepcha}       (NOT \p{Lepcha} NOR \p{Is_Lepcha}) (80)
+   \p{Block: Letterlike_Symbols} (80)
+   \p{Block: Limbu}        (NOT \p{Limbu} NOR \p{Is_Limbu}) (80)
+   \p{Block: Linear_A}     (NOT \p{Linear_A} NOR \p{Is_Linear_A})
+                             (384)
+   \p{Block: Linear_B_Ideograms} (128)
+   \p{Block: Linear_B_Syllabary} (128)
+   \p{Block: Lisu}         (48)
+   \p{Block: Low_Surrogates} (1024)
+   \p{Block: Lycian}       (NOT \p{Lycian} NOR \p{Is_Lycian}) (32)
+   \p{Block: Lydian}       (NOT \p{Lydian} NOR \p{Is_Lydian}) (32)
+   \p{Block: Mahajani}     (NOT \p{Mahajani} NOR \p{Is_Mahajani}) (48)
+   \p{Block: Mahjong}      \p{Block=Mahjong_Tiles} (48)
+   \p{Block: Mahjong_Tiles} (Short: \p{Blk=Mahjong}) (48)
+   \p{Block: Malayalam}    (NOT \p{Malayalam} NOR \p{Is_Malayalam})
+                             (128)
+   \p{Block: Mandaic}      (NOT \p{Mandaic} NOR \p{Is_Mandaic}) (32)
+   \p{Block: Manichaean}   (NOT \p{Manichaean} NOR \p{Is_Manichaean})
+                             (64)
+   \p{Block: Math_Alphanum} \p{Block=
+                             Mathematical_Alphanumeric_Symbols} (1024)
+   \p{Block: Math_Operators} \p{Block=Mathematical_Operators} (256)
+   \p{Block: Mathematical_Alphanumeric_Symbols} (Short: \p{Blk=
+                             MathAlphanum}) (1024)
+   \p{Block: Mathematical_Operators} (Short: \p{Blk=MathOperators})
+                             (256)
+   \p{Block: Meetei_Mayek} (NOT \p{Meetei_Mayek} NOR
+                             \p{Is_Meetei_Mayek}) (64)
+   \p{Block: Meetei_Mayek_Ext} \p{Block=Meetei_Mayek_Extensions} (32)
+   \p{Block: Meetei_Mayek_Extensions} (Short: \p{Blk=MeeteiMayekExt})
+                             (32)
+   \p{Block: Mende_Kikakui} (NOT \p{Mende_Kikakui} NOR
+                             \p{Is_Mende_Kikakui}) (224)
+   \p{Block: Meroitic_Cursive} (NOT \p{Meroitic_Cursive} NOR
+                             \p{Is_Meroitic_Cursive}) (96)
+   \p{Block: Meroitic_Hieroglyphs} (32)
+   \p{Block: Miao}         (NOT \p{Miao} NOR \p{Is_Miao}) (160)
+   \p{Block: Misc_Arrows}  \p{Block=Miscellaneous_Symbols_And_Arrows}
+                             (256)
+   \p{Block: Misc_Math_Symbols_A} \p{Block=
+                             Miscellaneous_Mathematical_Symbols_A}
+                             (48)
+   \p{Block: Misc_Math_Symbols_B} \p{Block=
+                             Miscellaneous_Mathematical_Symbols_B}
+                             (128)
+   \p{Block: Misc_Pictographs} \p{Block=
+                             Miscellaneous_Symbols_And_Pictographs}
+                             (768)
+   \p{Block: Misc_Symbols} \p{Block=Miscellaneous_Symbols} (256)
+   \p{Block: Misc_Technical} \p{Block=Miscellaneous_Technical} (256)
+   \p{Block: Miscellaneous_Mathematical_Symbols_A} (Short: \p{Blk=
+                             MiscMathSymbolsA}) (48)
+   \p{Block: Miscellaneous_Mathematical_Symbols_B} (Short: \p{Blk=
+                             MiscMathSymbolsB}) (128)
+   \p{Block: Miscellaneous_Symbols} (Short: \p{Blk=MiscSymbols}) (256)
+   \p{Block: Miscellaneous_Symbols_And_Arrows} (Short: \p{Blk=
+                             MiscArrows}) (256)
+   \p{Block: Miscellaneous_Symbols_And_Pictographs} (Short: \p{Blk=
+                             MiscPictographs}) (768)
+   \p{Block: Miscellaneous_Technical} (Short: \p{Blk=MiscTechnical})
+                             (256)
+   \p{Block: Modi}         (NOT \p{Modi} NOR \p{Is_Modi}) (96)
+   \p{Block: Modifier_Letters} \p{Block=Spacing_Modifier_Letters} (80)
+   \p{Block: Modifier_Tone_Letters} (32)
+   \p{Block: Mongolian}    (NOT \p{Mongolian} NOR \p{Is_Mongolian})
+                             (176)
+   \p{Block: Mro}          (NOT \p{Mro} NOR \p{Is_Mro}) (48)
+   \p{Block: Multani}      (NOT \p{Multani} NOR \p{Is_Multani}) (48)
+   \p{Block: Music}        \p{Block=Musical_Symbols} (256)
+   \p{Block: Musical_Symbols} (Short: \p{Blk=Music}) (256)
+   \p{Block: Myanmar}      (NOT \p{Myanmar} NOR \p{Is_Myanmar}) (160)
+   \p{Block: Myanmar_Ext_A} \p{Block=Myanmar_Extended_A} (32)
+   \p{Block: Myanmar_Ext_B} \p{Block=Myanmar_Extended_B} (32)
+   \p{Block: Myanmar_Extended_A} (Short: \p{Blk=MyanmarExtA}) (32)
+   \p{Block: Myanmar_Extended_B} (Short: \p{Blk=MyanmarExtB}) (32)
+   \p{Block: Nabataean}    (NOT \p{Nabataean} NOR \p{Is_Nabataean})
+                             (48)
+   \p{Block: NB}           \p{Block=No_Block} (849_856 plus all
+                             above-Unicode code points)
+   \p{Block: New_Tai_Lue}  (NOT \p{New_Tai_Lue} NOR
+                             \p{Is_New_Tai_Lue}) (96)
+   \p{Block: NKo}          (NOT \p{Nko} NOR \p{Is_NKo}) (64)
+   \p{Block: No_Block}     (Short: \p{Blk=NB}) (849_856 plus all
+                             above-Unicode code points)
+   \p{Block: Number_Forms} (64)
+   \p{Block: OCR}          \p{Block=Optical_Character_Recognition}
+                             (32)
+   \p{Block: Ogham}        (NOT \p{Ogham} NOR \p{Is_Ogham}) (32)
+   \p{Block: Ol_Chiki}     (48)
+   \p{Block: Old_Hungarian} (NOT \p{Old_Hungarian} NOR
+                             \p{Is_Old_Hungarian}) (128)
+   \p{Block: Old_Italic}   (NOT \p{Old_Italic} NOR \p{Is_Old_Italic})
+                             (48)
+   \p{Block: Old_North_Arabian} (32)
+   \p{Block: Old_Permic}   (NOT \p{Old_Permic} NOR \p{Is_Old_Permic})
+                             (48)
+   \p{Block: Old_Persian}  (NOT \p{Old_Persian} NOR
+                             \p{Is_Old_Persian}) (64)
+   \p{Block: Old_South_Arabian} (32)
+   \p{Block: Old_Turkic}   (NOT \p{Old_Turkic} NOR \p{Is_Old_Turkic})
+                             (80)
+   \p{Block: Optical_Character_Recognition} (Short: \p{Blk=OCR}) (32)
+   \p{Block: Oriya}        (NOT \p{Oriya} NOR \p{Is_Oriya}) (128)
+   \p{Block: Ornamental_Dingbats} (48)
+   \p{Block: Osmanya}      (NOT \p{Osmanya} NOR \p{Is_Osmanya}) (48)
+   \p{Block: Pahawh_Hmong} (NOT \p{Pahawh_Hmong} NOR
+                             \p{Is_Pahawh_Hmong}) (144)
+   \p{Block: Palmyrene}    (32)
+   \p{Block: Pau_Cin_Hau}  (NOT \p{Pau_Cin_Hau} NOR
+                             \p{Is_Pau_Cin_Hau}) (64)
+   \p{Block: Phags_Pa}     (NOT \p{Phags_Pa} NOR \p{Is_Phags_Pa}) (64)
+   \p{Block: Phaistos}     \p{Block=Phaistos_Disc} (48)
+   \p{Block: Phaistos_Disc} (Short: \p{Blk=Phaistos}) (48)
+   \p{Block: Phoenician}   (NOT \p{Phoenician} NOR \p{Is_Phoenician})
+                             (32)
+   \p{Block: Phonetic_Ext} \p{Block=Phonetic_Extensions} (128)
+   \p{Block: Phonetic_Ext_Sup} \p{Block=
+                             Phonetic_Extensions_Supplement} (64)
+   \p{Block: Phonetic_Extensions} (Short: \p{Blk=PhoneticExt}) (128)
+   \p{Block: Phonetic_Extensions_Supplement} (Short: \p{Blk=
+                             PhoneticExtSup}) (64)
+   \p{Block: Playing_Cards} (96)
+   \p{Block: Private_Use}  \p{Block=Private_Use_Area} (NOT
+                             \p{Private_Use} NOR \p{Is_Private_Use})
+                             (6400)
+   \p{Block: Private_Use_Area} (Short: \p{Blk=PUA}; NOT
+                             \p{Private_Use} NOR \p{Is_Private_Use})
+                             (6400)
+   \p{Block: Psalter_Pahlavi} (NOT \p{Psalter_Pahlavi} NOR
+                             \p{Is_Psalter_Pahlavi}) (48)
+   \p{Block: PUA}          \p{Block=Private_Use_Area} (NOT
+                             \p{Private_Use} NOR \p{Is_Private_Use})
+                             (6400)
+   \p{Block: Punctuation}  \p{Block=General_Punctuation} (NOT
+                             \p{Punct} NOR \p{Is_Punctuation}) (112)
+   \p{Block: Rejang}       (NOT \p{Rejang} NOR \p{Is_Rejang}) (48)
+   \p{Block: Rumi}         \p{Block=Rumi_Numeral_Symbols} (32)
+   \p{Block: Rumi_Numeral_Symbols} (Short: \p{Blk=Rumi}) (32)
+   \p{Block: Runic}        (NOT \p{Runic} NOR \p{Is_Runic}) (96)
+   \p{Block: Samaritan}    (NOT \p{Samaritan} NOR \p{Is_Samaritan})
+                             (64)
+   \p{Block: Saurashtra}   (NOT \p{Saurashtra} NOR \p{Is_Saurashtra})
+                             (96)
+   \p{Block: Sharada}      (NOT \p{Sharada} NOR \p{Is_Sharada}) (96)
+   \p{Block: Shavian}      (48)
+   \p{Block: Shorthand_Format_Controls} (16)
+   \p{Block: Siddham}      (NOT \p{Siddham} NOR \p{Is_Siddham}) (128)
+   \p{Block: Sinhala}      (NOT \p{Sinhala} NOR \p{Is_Sinhala}) (128)
+   \p{Block: Sinhala_Archaic_Numbers} (32)
+   \p{Block: Small_Form_Variants} (Short: \p{Blk=SmallForms}) (32)
+   \p{Block: Small_Forms}  \p{Block=Small_Form_Variants} (32)
+   \p{Block: Sora_Sompeng} (NOT \p{Sora_Sompeng} NOR
+                             \p{Is_Sora_Sompeng}) (48)
+   \p{Block: Spacing_Modifier_Letters} (Short: \p{Blk=
+                             ModifierLetters}) (80)
+   \p{Block: Specials}     (16)
+   \p{Block: Sundanese}    (NOT \p{Sundanese} NOR \p{Is_Sundanese})
+                             (64)
+   \p{Block: Sundanese_Sup} \p{Block=Sundanese_Supplement} (16)
+   \p{Block: Sundanese_Supplement} (Short: \p{Blk=SundaneseSup}) (16)
+   \p{Block: Sup_Arrows_A} \p{Block=Supplemental_Arrows_A} (16)
+   \p{Block: Sup_Arrows_B} \p{Block=Supplemental_Arrows_B} (128)
+   \p{Block: Sup_Arrows_C} \p{Block=Supplemental_Arrows_C} (256)
+   \p{Block: Sup_Math_Operators} \p{Block=
+                             Supplemental_Mathematical_Operators}
+                             (256)
+   \p{Block: Sup_PUA_A}    \p{Block=Supplementary_Private_Use_Area_A}
+                             (65_536)
+   \p{Block: Sup_PUA_B}    \p{Block=Supplementary_Private_Use_Area_B}
+                             (65_536)
+   \p{Block: Sup_Punctuation} \p{Block=Supplemental_Punctuation} (128)
+   \p{Block: Sup_Symbols_And_Pictographs} \p{Block=
+                             Supplemental_Symbols_And_Pictographs}
+                             (256)
+   \p{Block: Super_And_Sub} \p{Block=Superscripts_And_Subscripts} (48)
+   \p{Block: Superscripts_And_Subscripts} (Short: \p{Blk=
+                             SuperAndSub}) (48)
+   \p{Block: Supplemental_Arrows_A} (Short: \p{Blk=SupArrowsA}) (16)
+   \p{Block: Supplemental_Arrows_B} (Short: \p{Blk=SupArrowsB}) (128)
+   \p{Block: Supplemental_Arrows_C} (Short: \p{Blk=SupArrowsC}) (256)
+   \p{Block: Supplemental_Mathematical_Operators} (Short: \p{Blk=
+                             SupMathOperators}) (256)
+   \p{Block: Supplemental_Punctuation} (Short: \p{Blk=
+                             SupPunctuation}) (128)
+   \p{Block: Supplemental_Symbols_And_Pictographs} (Short: \p{Blk=
+                             SupSymbolsAndPictographs}) (256)
+   \p{Block: Supplementary_Private_Use_Area_A} (Short: \p{Blk=
+                             SupPUAA}) (65_536)
+   \p{Block: Supplementary_Private_Use_Area_B} (Short: \p{Blk=
+                             SupPUAB}) (65_536)
+   \p{Block: Sutton_SignWriting} (688)
+   \p{Block: Syloti_Nagri} (NOT \p{Syloti_Nagri} NOR
+                             \p{Is_Syloti_Nagri}) (48)
+   \p{Block: Syriac}       (NOT \p{Syriac} NOR \p{Is_Syriac}) (80)
+   \p{Block: Tagalog}      (NOT \p{Tagalog} NOR \p{Is_Tagalog}) (32)
+   \p{Block: Tagbanwa}     (NOT \p{Tagbanwa} NOR \p{Is_Tagbanwa}) (32)
+   \p{Block: Tags}         (128)
+   \p{Block: Tai_Le}       (NOT \p{Tai_Le} NOR \p{Is_Tai_Le}) (48)
+   \p{Block: Tai_Tham}     (NOT \p{Tai_Tham} NOR \p{Is_Tai_Tham})
+                             (144)
+   \p{Block: Tai_Viet}     (NOT \p{Tai_Viet} NOR \p{Is_Tai_Viet}) (96)
+   \p{Block: Tai_Xuan_Jing} \p{Block=Tai_Xuan_Jing_Symbols} (96)
+   \p{Block: Tai_Xuan_Jing_Symbols} (Short: \p{Blk=TaiXuanJing}) (96)
+   \p{Block: Takri}        (NOT \p{Takri} NOR \p{Is_Takri}) (80)
+   \p{Block: Tamil}        (NOT \p{Tamil} NOR \p{Is_Tamil}) (128)
+   \p{Block: Telugu}       (NOT \p{Telugu} NOR \p{Is_Telugu}) (128)
+   \p{Block: Thaana}       (NOT \p{Thaana} NOR \p{Is_Thaana}) (64)
+   \p{Block: Thai}         (NOT \p{Thai} NOR \p{Is_Thai}) (128)
+   \p{Block: Tibetan}      (NOT \p{Tibetan} NOR \p{Is_Tibetan}) (256)
+   \p{Block: Tifinagh}     (NOT \p{Tifinagh} NOR \p{Is_Tifinagh}) (80)
+   \p{Block: Tirhuta}      (NOT \p{Tirhuta} NOR \p{Is_Tirhuta}) (96)
+   \p{Block: Transport_And_Map} \p{Block=Transport_And_Map_Symbols}
+                             (128)
+   \p{Block: Transport_And_Map_Symbols} (Short: \p{Blk=
+                             TransportAndMap}) (128)
+   \p{Block: UCAS}         \p{Block=
+                             Unified_Canadian_Aboriginal_Syllabics}
+                             (640)
+   \p{Block: UCAS_Ext}     \p{Block=
+                             Unified_Canadian_Aboriginal_Syllabics_-
+                             Extended} (80)
+   \p{Block: Ugaritic}     (NOT \p{Ugaritic} NOR \p{Is_Ugaritic}) (32)
+   \p{Block: Unified_Canadian_Aboriginal_Syllabics} (Short: \p{Blk=
+                             UCAS}) (640)
+   \p{Block: Unified_Canadian_Aboriginal_Syllabics_Extended} (Short:
+                             \p{Blk=UCASExt}) (80)
+   \p{Block: Vai}          (NOT \p{Vai} NOR \p{Is_Vai}) (320)
+   \p{Block: Variation_Selectors} (Short: \p{Blk=VS}; NOT
+                             \p{Variation_Selector} NOR \p{Is_VS})
+                             (16)
+   \p{Block: Variation_Selectors_Supplement} (Short: \p{Blk=VSSup})
+                             (240)
+   \p{Block: Vedic_Ext}    \p{Block=Vedic_Extensions} (48)
+   \p{Block: Vedic_Extensions} (Short: \p{Blk=VedicExt}) (48)
+   \p{Block: Vertical_Forms} (16)
+   \p{Block: VS}           \p{Block=Variation_Selectors} (NOT
+                             \p{Variation_Selector} NOR \p{Is_VS})
+                             (16)
+   \p{Block: VS_Sup}       \p{Block=Variation_Selectors_Supplement}
+                             (240)
+   \p{Block: Warang_Citi}  (NOT \p{Warang_Citi} NOR
+                             \p{Is_Warang_Citi}) (96)
+   \p{Block: Yi_Radicals}  (64)
+   \p{Block: Yi_Syllables} (1168)
+   \p{Block: Yijing}       \p{Block=Yijing_Hexagram_Symbols} (64)
+   \p{Block: Yijing_Hexagram_Symbols} (Short: \p{Blk=Yijing}) (64)
+ X \p{Block_Elements}      \p{Block=Block_Elements} (32)
+   \p{Bopo}                \p{Bopomofo} (= \p{Script=Bopomofo}) (NOT
+                             \p{Block=Bopomofo}) (70)
+   \p{Bopomofo}            \p{Script=Bopomofo} (Short: \p{Bopo}; NOT
+                             \p{Block=Bopomofo}) (70)
+ X \p{Bopomofo_Ext}        \p{Bopomofo_Extended} (= \p{Block=
+                             Bopomofo_Extended}) (32)
+ X \p{Bopomofo_Extended}   \p{Block=Bopomofo_Extended} (Short:
+                             \p{InBopomofoExt}) (32)
+ X \p{Box_Drawing}         \p{Block=Box_Drawing} (128)
+   \p{Bpt: *}              \p{Bidi_Paired_Bracket_Type: *}
+   \p{Brah}                \p{Brahmi} (= \p{Script=Brahmi}) (NOT
+                             \p{Block=Brahmi}) (109)
+   \p{Brahmi}              \p{Script=Brahmi} (Short: \p{Brah}; NOT
+                             \p{Block=Brahmi}) (109)
+   \p{Brai}                \p{Braille} (= \p{Script=Braille}) (256)
+   \p{Braille}             \p{Script=Braille} (Short: \p{Brai}) (256)
+ X \p{Braille_Patterns}    \p{Block=Braille_Patterns} (Short:
+                             \p{InBraille}) (256)
+   \p{Bugi}                \p{Buginese} (= \p{Script=Buginese}) (NOT
+                             \p{Block=Buginese}) (30)
+   \p{Buginese}            \p{Script=Buginese} (Short: \p{Bugi}; NOT
+                             \p{Block=Buginese}) (30)
+   \p{Buhd}                \p{Buhid} (= \p{Script=Buhid}) (NOT
+                             \p{Block=Buhid}) (20)
+   \p{Buhid}               \p{Script=Buhid} (Short: \p{Buhd}; NOT
+                             \p{Block=Buhid}) (20)
+ X \p{Byzantine_Music}     \p{Byzantine_Musical_Symbols} (= \p{Block=
+                             Byzantine_Musical_Symbols}) (256)
+ X \p{Byzantine_Musical_Symbols} \p{Block=Byzantine_Musical_Symbols}
+                             (Short: \p{InByzantineMusic}) (256)
+   \p{C} \pC               \p{Other} (= \p{General_Category=Other})
+                             (993_590 plus all above-Unicode code
+                             points)
+   \p{Cakm}                \p{Chakma} (= \p{Script=Chakma}) (NOT
+                             \p{Block=Chakma}) (67)
+   \p{Canadian_Aboriginal} \p{Script=Canadian_Aboriginal} (Short:
+                             \p{Cans}) (710)
+ X \p{Canadian_Syllabics}  \p{Unified_Canadian_Aboriginal_Syllabics}
+                             (= \p{Block=
+                             Unified_Canadian_Aboriginal_Syllabics})
+                             (640)
+ T \p{Canonical_Combining_Class: 0} \p{Canonical_Combining_Class=
+                             Not_Reordered} (1_113_361 plus all
+                             above-Unicode code points)
+ T \p{Canonical_Combining_Class: 1} \p{Canonical_Combining_Class=
+                             Overlay} (32)
+ T \p{Canonical_Combining_Class: 7} \p{Canonical_Combining_Class=
+                             Nukta} (20)
+ T \p{Canonical_Combining_Class: 8} \p{Canonical_Combining_Class=
+                             Kana_Voicing} (2)
+ T \p{Canonical_Combining_Class: 9} \p{Canonical_Combining_Class=
+                             Virama} (45)
+ T \p{Canonical_Combining_Class: 10} \p{Canonical_Combining_Class=
+                             CCC10} (1)
+ T \p{Canonical_Combining_Class: 11} \p{Canonical_Combining_Class=
+                             CCC11} (1)
+ T \p{Canonical_Combining_Class: 12} \p{Canonical_Combining_Class=
+                             CCC12} (1)
+ T \p{Canonical_Combining_Class: 13} \p{Canonical_Combining_Class=
+                             CCC13} (1)
+ T \p{Canonical_Combining_Class: 14} \p{Canonical_Combining_Class=
+                             CCC14} (1)
+ T \p{Canonical_Combining_Class: 15} \p{Canonical_Combining_Class=
+                             CCC15} (1)
+ T \p{Canonical_Combining_Class: 16} \p{Canonical_Combining_Class=
+                             CCC16} (1)
+ T \p{Canonical_Combining_Class: 17} \p{Canonical_Combining_Class=
+                             CCC17} (1)
+ T \p{Canonical_Combining_Class: 18} \p{Canonical_Combining_Class=
+                             CCC18} (2)
+ T \p{Canonical_Combining_Class: 19} \p{Canonical_Combining_Class=
+                             CCC19} (2)
+ T \p{Canonical_Combining_Class: 20} \p{Canonical_Combining_Class=
+                             CCC20} (1)
+ T \p{Canonical_Combining_Class: 21} \p{Canonical_Combining_Class=
+                             CCC21} (1)
+ T \p{Canonical_Combining_Class: 22} \p{Canonical_Combining_Class=
+                             CCC22} (1)
+ T \p{Canonical_Combining_Class: 23} \p{Canonical_Combining_Class=
+                             CCC23} (1)
+ T \p{Canonical_Combining_Class: 24} \p{Canonical_Combining_Class=
+                             CCC24} (1)
+ T \p{Canonical_Combining_Class: 25} \p{Canonical_Combining_Class=
+                             CCC25} (1)
+ T \p{Canonical_Combining_Class: 26} \p{Canonical_Combining_Class=
+                             CCC26} (1)
+ T \p{Canonical_Combining_Class: 27} \p{Canonical_Combining_Class=
+                             CCC27} (2)
+ T \p{Canonical_Combining_Class: 28} \p{Canonical_Combining_Class=
+                             CCC28} (2)
+ T \p{Canonical_Combining_Class: 29} \p{Canonical_Combining_Class=
+                             CCC29} (2)
+ T \p{Canonical_Combining_Class: 30} \p{Canonical_Combining_Class=
+                             CCC30} (2)
+ T \p{Canonical_Combining_Class: 31} \p{Canonical_Combining_Class=
+                             CCC31} (2)
+ T \p{Canonical_Combining_Class: 32} \p{Canonical_Combining_Class=
+                             CCC32} (2)
+ T \p{Canonical_Combining_Class: 33} \p{Canonical_Combining_Class=
+                             CCC33} (1)
+ T \p{Canonical_Combining_Class: 34} \p{Canonical_Combining_Class=
+                             CCC34} (1)
+ T \p{Canonical_Combining_Class: 35} \p{Canonical_Combining_Class=
+                             CCC35} (1)
+ T \p{Canonical_Combining_Class: 36} \p{Canonical_Combining_Class=
+                             CCC36} (1)
+ T \p{Canonical_Combining_Class: 84} \p{Canonical_Combining_Class=
+                             CCC84} (1)
+ T \p{Canonical_Combining_Class: 91} \p{Canonical_Combining_Class=
+                             CCC91} (1)
+ T \p{Canonical_Combining_Class: 103} \p{Canonical_Combining_Class=
+                             CCC103} (2)
+ T \p{Canonical_Combining_Class: 107} \p{Canonical_Combining_Class=
+                             CCC107} (4)
+ T \p{Canonical_Combining_Class: 118} \p{Canonical_Combining_Class=
+                             CCC118} (2)
+ T \p{Canonical_Combining_Class: 122} \p{Canonical_Combining_Class=
+                             CCC122} (4)
+ T \p{Canonical_Combining_Class: 129} \p{Canonical_Combining_Class=
+                             CCC129} (1)
+ T \p{Canonical_Combining_Class: 130} \p{Canonical_Combining_Class=
+                             CCC130} (6)
+ T \p{Canonical_Combining_Class: 132} \p{Canonical_Combining_Class=
+                             CCC132} (1)
+ T \p{Canonical_Combining_Class: 133} \p{Canonical_Combining_Class=
+                             CCC133} (0)
+ T \p{Canonical_Combining_Class: 200} \p{Canonical_Combining_Class=
+                             Attached_Below_Left} (0)
+ T \p{Canonical_Combining_Class: 202} \p{Canonical_Combining_Class=
+                             Attached_Below} (5)
+ T \p{Canonical_Combining_Class: 214} \p{Canonical_Combining_Class=
+                             Attached_Above} (1)
+ T \p{Canonical_Combining_Class: 216} \p{Canonical_Combining_Class=
+                             Attached_Above_Right} (9)
+ T \p{Canonical_Combining_Class: 218} \p{Canonical_Combining_Class=
+                             Below_Left} (1)
+ T \p{Canonical_Combining_Class: 220} \p{Canonical_Combining_Class=
+                             Below} (153)
+ T \p{Canonical_Combining_Class: 222} \p{Canonical_Combining_Class=
+                             Below_Right} (4)
+ T \p{Canonical_Combining_Class: 224} \p{Canonical_Combining_Class=
+                             Left} (2)
+ T \p{Canonical_Combining_Class: 226} \p{Canonical_Combining_Class=
+                             Right} (1)
+ T \p{Canonical_Combining_Class: 228} \p{Canonical_Combining_Class=
+                             Above_Left} (3)
+ T \p{Canonical_Combining_Class: 230} \p{Canonical_Combining_Class=
+                             Above} (402)
+ T \p{Canonical_Combining_Class: 232} \p{Canonical_Combining_Class=
+                             Above_Right} (4)
+ T \p{Canonical_Combining_Class: 233} \p{Canonical_Combining_Class=
+                             Double_Below} (4)
+ T \p{Canonical_Combining_Class: 234} \p{Canonical_Combining_Class=
+                             Double_Above} (5)
+ T \p{Canonical_Combining_Class: 240} \p{Canonical_Combining_Class=
+                             Iota_Subscript} (1)
+   \p{Canonical_Combining_Class: A} \p{Canonical_Combining_Class=
+                             Above} (402)
+   \p{Canonical_Combining_Class: Above} (Short: \p{Ccc=A}) (402)
+   \p{Canonical_Combining_Class: Above_Left} (Short: \p{Ccc=AL}) (3)
+   \p{Canonical_Combining_Class: Above_Right} (Short: \p{Ccc=AR}) (4)
+   \p{Canonical_Combining_Class: AL} \p{Canonical_Combining_Class=
+                             Above_Left} (3)
+   \p{Canonical_Combining_Class: AR} \p{Canonical_Combining_Class=
+                             Above_Right} (4)
+   \p{Canonical_Combining_Class: ATA} \p{Canonical_Combining_Class=
+                             Attached_Above} (1)
+   \p{Canonical_Combining_Class: ATAR} \p{Canonical_Combining_Class=
+                             Attached_Above_Right} (9)
+   \p{Canonical_Combining_Class: ATB} \p{Canonical_Combining_Class=
+                             Attached_Below} (5)
+   \p{Canonical_Combining_Class: ATBL} \p{Canonical_Combining_Class=
+                             Attached_Below_Left} (0)
+   \p{Canonical_Combining_Class: Attached_Above} (Short: \p{Ccc=ATA})
+                             (1)
+   \p{Canonical_Combining_Class: Attached_Above_Right} (Short:
+                             \p{Ccc=ATAR}) (9)
+   \p{Canonical_Combining_Class: Attached_Below} (Short: \p{Ccc=ATB})
+                             (5)
+   \p{Canonical_Combining_Class: Attached_Below_Left} (Short: \p{Ccc=
+                             ATBL}) (0)
+   \p{Canonical_Combining_Class: B} \p{Canonical_Combining_Class=
+                             Below} (153)
+   \p{Canonical_Combining_Class: Below} (Short: \p{Ccc=B}) (153)
+   \p{Canonical_Combining_Class: Below_Left} (Short: \p{Ccc=BL}) (1)
+   \p{Canonical_Combining_Class: Below_Right} (Short: \p{Ccc=BR}) (4)
+   \p{Canonical_Combining_Class: BL} \p{Canonical_Combining_Class=
+                             Below_Left} (1)
+   \p{Canonical_Combining_Class: BR} \p{Canonical_Combining_Class=
+                             Below_Right} (4)
+   \p{Canonical_Combining_Class: CCC10} (Short: \p{Ccc=CCC10}) (1)
+   \p{Canonical_Combining_Class: CCC103} (Short: \p{Ccc=CCC103}) (2)
+   \p{Canonical_Combining_Class: CCC107} (Short: \p{Ccc=CCC107}) (4)
+   \p{Canonical_Combining_Class: CCC11} (Short: \p{Ccc=CCC11}) (1)
+   \p{Canonical_Combining_Class: CCC118} (Short: \p{Ccc=CCC118}) (2)
+   \p{Canonical_Combining_Class: CCC12} (Short: \p{Ccc=CCC12}) (1)
+   \p{Canonical_Combining_Class: CCC122} (Short: \p{Ccc=CCC122}) (4)
+   \p{Canonical_Combining_Class: CCC129} (Short: \p{Ccc=CCC129}) (1)
+   \p{Canonical_Combining_Class: CCC13} (Short: \p{Ccc=CCC13}) (1)
+   \p{Canonical_Combining_Class: CCC130} (Short: \p{Ccc=CCC130}) (6)
+   \p{Canonical_Combining_Class: CCC132} (Short: \p{Ccc=CCC132}) (1)
+   \p{Canonical_Combining_Class: CCC133} (Short: \p{Ccc=CCC133}) (0)
+   \p{Canonical_Combining_Class: CCC14} (Short: \p{Ccc=CCC14}) (1)
+   \p{Canonical_Combining_Class: CCC15} (Short: \p{Ccc=CCC15}) (1)
+   \p{Canonical_Combining_Class: CCC16} (Short: \p{Ccc=CCC16}) (1)
+   \p{Canonical_Combining_Class: CCC17} (Short: \p{Ccc=CCC17}) (1)
+   \p{Canonical_Combining_Class: CCC18} (Short: \p{Ccc=CCC18}) (2)
+   \p{Canonical_Combining_Class: CCC19} (Short: \p{Ccc=CCC19}) (2)
+   \p{Canonical_Combining_Class: CCC20} (Short: \p{Ccc=CCC20}) (1)
+   \p{Canonical_Combining_Class: CCC21} (Short: \p{Ccc=CCC21}) (1)
+   \p{Canonical_Combining_Class: CCC22} (Short: \p{Ccc=CCC22}) (1)
+   \p{Canonical_Combining_Class: CCC23} (Short: \p{Ccc=CCC23}) (1)
+   \p{Canonical_Combining_Class: CCC24} (Short: \p{Ccc=CCC24}) (1)
+   \p{Canonical_Combining_Class: CCC25} (Short: \p{Ccc=CCC25}) (1)
+   \p{Canonical_Combining_Class: CCC26} (Short: \p{Ccc=CCC26}) (1)
+   \p{Canonical_Combining_Class: CCC27} (Short: \p{Ccc=CCC27}) (2)
+   \p{Canonical_Combining_Class: CCC28} (Short: \p{Ccc=CCC28}) (2)
+   \p{Canonical_Combining_Class: CCC29} (Short: \p{Ccc=CCC29}) (2)
+   \p{Canonical_Combining_Class: CCC30} (Short: \p{Ccc=CCC30}) (2)
+   \p{Canonical_Combining_Class: CCC31} (Short: \p{Ccc=CCC31}) (2)
+   \p{Canonical_Combining_Class: CCC32} (Short: \p{Ccc=CCC32}) (2)
+   \p{Canonical_Combining_Class: CCC33} (Short: \p{Ccc=CCC33}) (1)
+   \p{Canonical_Combining_Class: CCC34} (Short: \p{Ccc=CCC34}) (1)
+   \p{Canonical_Combining_Class: CCC35} (Short: \p{Ccc=CCC35}) (1)
+   \p{Canonical_Combining_Class: CCC36} (Short: \p{Ccc=CCC36}) (1)
+   \p{Canonical_Combining_Class: CCC84} (Short: \p{Ccc=CCC84}) (1)
+   \p{Canonical_Combining_Class: CCC91} (Short: \p{Ccc=CCC91}) (1)
+   \p{Canonical_Combining_Class: DA} \p{Canonical_Combining_Class=
+                             Double_Above} (5)
+   \p{Canonical_Combining_Class: DB} \p{Canonical_Combining_Class=
+                             Double_Below} (4)
+   \p{Canonical_Combining_Class: Double_Above} (Short: \p{Ccc=DA}) (5)
+   \p{Canonical_Combining_Class: Double_Below} (Short: \p{Ccc=DB}) (4)
+   \p{Canonical_Combining_Class: Iota_Subscript} (Short: \p{Ccc=IS})
+                             (1)
+   \p{Canonical_Combining_Class: IS} \p{Canonical_Combining_Class=
+                             Iota_Subscript} (1)
+   \p{Canonical_Combining_Class: Kana_Voicing} (Short: \p{Ccc=KV}) (2)
+   \p{Canonical_Combining_Class: KV} \p{Canonical_Combining_Class=
+                             Kana_Voicing} (2)
+   \p{Canonical_Combining_Class: L} \p{Canonical_Combining_Class=
+                             Left} (2)
+   \p{Canonical_Combining_Class: Left} (Short: \p{Ccc=L}) (2)
+   \p{Canonical_Combining_Class: NK} \p{Canonical_Combining_Class=
+                             Nukta} (20)
+   \p{Canonical_Combining_Class: Not_Reordered} (Short: \p{Ccc=NR})
+                             (1_113_361 plus all above-Unicode code
+                             points)
+   \p{Canonical_Combining_Class: NR} \p{Canonical_Combining_Class=
+                             Not_Reordered} (1_113_361 plus all
+                             above-Unicode code points)
+   \p{Canonical_Combining_Class: Nukta} (Short: \p{Ccc=NK}) (20)
+   \p{Canonical_Combining_Class: OV} \p{Canonical_Combining_Class=
+                             Overlay} (32)
+   \p{Canonical_Combining_Class: Overlay} (Short: \p{Ccc=OV}) (32)
+   \p{Canonical_Combining_Class: R} \p{Canonical_Combining_Class=
+                             Right} (1)
+   \p{Canonical_Combining_Class: Right} (Short: \p{Ccc=R}) (1)
+   \p{Canonical_Combining_Class: Virama} (Short: \p{Ccc=VR}) (45)
+   \p{Canonical_Combining_Class: VR} \p{Canonical_Combining_Class=
+                             Virama} (45)
+   \p{Cans}                \p{Canadian_Aboriginal} (= \p{Script=
+                             Canadian_Aboriginal}) (710)
+   \p{Cari}                \p{Carian} (= \p{Script=Carian}) (NOT
+                             \p{Block=Carian}) (49)
+   \p{Carian}              \p{Script=Carian} (Short: \p{Cari}; NOT
+                             \p{Block=Carian}) (49)
+   \p{Case_Ignorable}      \p{Case_Ignorable=Y} (Short: \p{CI}) (2115)
+   \p{Case_Ignorable: N*}  (Short: \p{CI=N}, \P{CI}) (1_111_997 plus
+                             all above-Unicode code points)
+   \p{Case_Ignorable: Y*}  (Short: \p{CI=Y}, \p{CI}) (2115)
+   \p{Cased}               \p{Cased=Y} (3955)
+   \p{Cased: N*}           (Single: \P{Cased}) (1_110_157 plus all
+                             above-Unicode code points)
+   \p{Cased: Y*}           (Single: \p{Cased}) (3955)
+   \p{Cased_Letter}        \p{General_Category=Cased_Letter} (Short:
+                             \p{LC}) (3646)
+   \p{Category: *}         \p{General_Category: *}
+   \p{Caucasian_Albanian}  \p{Script=Caucasian_Albanian} (Short:
+                             \p{Aghb}; NOT \p{Block=
+                             Caucasian_Albanian}) (53)
+   \p{Cc}                  \p{XPosixCntrl} (= \p{General_Category=
+                             Control}) (65)
+   \p{Ccc: *}              \p{Canonical_Combining_Class: *}
+   \p{CE}                  \p{Composition_Exclusion} (=
+                             \p{Composition_Exclusion=Y}) (81)
+   \p{CE: *}               \p{Composition_Exclusion: *}
+   \p{Cf}                  \p{Format} (= \p{General_Category=Format})
+                             (150)
+   \p{Chakma}              \p{Script=Chakma} (Short: \p{Cakm}; NOT
+                             \p{Block=Chakma}) (67)
+   \p{Cham}                \p{Script=Cham} (NOT \p{Block=Cham}) (83)
+   \p{Changes_When_Casefolded} \p{Changes_When_Casefolded=Y} (Short:
+                             \p{CWCF}) (1297)
+   \p{Changes_When_Casefolded: N*} (Short: \p{CWCF=N}, \P{CWCF})
+                             (1_112_815 plus all above-Unicode code
+                             points)
+   \p{Changes_When_Casefolded: Y*} (Short: \p{CWCF=Y}, \p{CWCF})
+                             (1297)
+   \p{Changes_When_Casemapped} \p{Changes_When_Casemapped=Y} (Short:
+                             \p{CWCM}) (2518)
+   \p{Changes_When_Casemapped: N*} (Short: \p{CWCM=N}, \P{CWCM})
+                             (1_111_594 plus all above-Unicode code
+                             points)
+   \p{Changes_When_Casemapped: Y*} (Short: \p{CWCM=Y}, \p{CWCM})
+                             (2518)
+   \p{Changes_When_Lowercased} \p{Changes_When_Lowercased=Y} (Short:
+                             \p{CWL}) (1233)
+   \p{Changes_When_Lowercased: N*} (Short: \p{CWL=N}, \P{CWL})
+                             (1_112_879 plus all above-Unicode code
+                             points)
+   \p{Changes_When_Lowercased: Y*} (Short: \p{CWL=Y}, \p{CWL}) (1233)
+   \p{Changes_When_NFKC_Casefolded} \p{Changes_When_NFKC_Casefolded=
+                             Y} (Short: \p{CWKCF}) (10_146)
+   \p{Changes_When_NFKC_Casefolded: N*} (Short: \p{CWKCF=N},
+                             \P{CWKCF}) (1_103_966 plus all above-
+                             Unicode code points)
+   \p{Changes_When_NFKC_Casefolded: Y*} (Short: \p{CWKCF=Y},
+                             \p{CWKCF}) (10_146)
+   \p{Changes_When_Titlecased} \p{Changes_When_Titlecased=Y} (Short:
+                             \p{CWT}) (1289)
+   \p{Changes_When_Titlecased: N*} (Short: \p{CWT=N}, \P{CWT})
+                             (1_112_823 plus all above-Unicode code
+                             points)
+   \p{Changes_When_Titlecased: Y*} (Short: \p{CWT=Y}, \p{CWT}) (1289)
+   \p{Changes_When_Uppercased} \p{Changes_When_Uppercased=Y} (Short:
+                             \p{CWU}) (1316)
+   \p{Changes_When_Uppercased: N*} (Short: \p{CWU=N}, \P{CWU})
+                             (1_112_796 plus all above-Unicode code
+                             points)
+   \p{Changes_When_Uppercased: Y*} (Short: \p{CWU=Y}, \p{CWU}) (1316)
+   \p{Cher}                \p{Cherokee} (= \p{Script=Cherokee}) (NOT
+                             \p{Block=Cherokee}) (172)
+   \p{Cherokee}            \p{Script=Cherokee} (Short: \p{Cher}; NOT
+                             \p{Block=Cherokee}) (172)
+ X \p{Cherokee_Sup}        \p{Cherokee_Supplement} (= \p{Block=
+                             Cherokee_Supplement}) (80)
+ X \p{Cherokee_Supplement} \p{Block=Cherokee_Supplement} (Short:
+                             \p{InCherokeeSup}) (80)
+   \p{CI}                  \p{Case_Ignorable} (= \p{Case_Ignorable=
+                             Y}) (2115)
+   \p{CI: *}               \p{Case_Ignorable: *}
+ X \p{CJK}                 \p{CJK_Unified_Ideographs} (= \p{Block=
+                             CJK_Unified_Ideographs}) (20_992)
+ X \p{CJK_Compat}          \p{CJK_Compatibility} (= \p{Block=
+                             CJK_Compatibility}) (256)
+ X \p{CJK_Compat_Forms}    \p{CJK_Compatibility_Forms} (= \p{Block=
+                             CJK_Compatibility_Forms}) (32)
+ X \p{CJK_Compat_Ideographs} \p{CJK_Compatibility_Ideographs} (=
+                             \p{Block=CJK_Compatibility_Ideographs})
+                             (512)
+ X \p{CJK_Compat_Ideographs_Sup}
+                             \p{CJK_Compatibility_Ideographs_-
+                             Supplement} (= \p{Block=
+                             CJK_Compatibility_Ideographs_-
+                             Supplement}) (544)
+ X \p{CJK_Compatibility}   \p{Block=CJK_Compatibility} (Short:
+                             \p{InCJKCompat}) (256)
+ X \p{CJK_Compatibility_Forms} \p{Block=CJK_Compatibility_Forms}
+                             (Short: \p{InCJKCompatForms}) (32)
+ X \p{CJK_Compatibility_Ideographs} \p{Block=
+                             CJK_Compatibility_Ideographs} (Short:
+                             \p{InCJKCompatIdeographs}) (512)
+ X \p{CJK_Compatibility_Ideographs_Supplement} \p{Block=
+                             CJK_Compatibility_Ideographs_Supplement}
+                             (Short: \p{InCJKCompatIdeographsSup})
+                             (544)
+ X \p{CJK_Ext_A}           \p{CJK_Unified_Ideographs_Extension_A} (=
+                             \p{Block=
+                             CJK_Unified_Ideographs_Extension_A})
+                             (6592)
+ X \p{CJK_Ext_B}           \p{CJK_Unified_Ideographs_Extension_B} (=
+                             \p{Block=
+                             CJK_Unified_Ideographs_Extension_B})
+                             (42_720)
+ X \p{CJK_Ext_C}           \p{CJK_Unified_Ideographs_Extension_C} (=
+                             \p{Block=
+                             CJK_Unified_Ideographs_Extension_C})
+                             (4160)
+ X \p{CJK_Ext_D}           \p{CJK_Unified_Ideographs_Extension_D} (=
+                             \p{Block=
+                             CJK_Unified_Ideographs_Extension_D})
+                             (224)
+ X \p{CJK_Ext_E}           \p{CJK_Unified_Ideographs_Extension_E} (=
+                             \p{Block=
+                             CJK_Unified_Ideographs_Extension_E})
+                             (5776)
+ X \p{CJK_Radicals_Sup}    \p{CJK_Radicals_Supplement} (= \p{Block=
+                             CJK_Radicals_Supplement}) (128)
+ X \p{CJK_Radicals_Supplement} \p{Block=CJK_Radicals_Supplement}
+                             (Short: \p{InCJKRadicalsSup}) (128)
+ X \p{CJK_Strokes}         \p{Block=CJK_Strokes} (48)
+ X \p{CJK_Symbols}         \p{CJK_Symbols_And_Punctuation} (=
+                             \p{Block=CJK_Symbols_And_Punctuation})
+                             (64)
+ X \p{CJK_Symbols_And_Punctuation} \p{Block=
+                             CJK_Symbols_And_Punctuation} (Short:
+                             \p{InCJKSymbols}) (64)
+ X \p{CJK_Unified_Ideographs} \p{Block=CJK_Unified_Ideographs}
+                             (Short: \p{InCJK}) (20_992)
+ X \p{CJK_Unified_Ideographs_Extension_A} \p{Block=
+                             CJK_Unified_Ideographs_Extension_A}
+                             (Short: \p{InCJKExtA}) (6592)
+ X \p{CJK_Unified_Ideographs_Extension_B} \p{Block=
+                             CJK_Unified_Ideographs_Extension_B}
+                             (Short: \p{InCJKExtB}) (42_720)
+ X \p{CJK_Unified_Ideographs_Extension_C} \p{Block=
+                             CJK_Unified_Ideographs_Extension_C}
+                             (Short: \p{InCJKExtC}) (4160)
+ X \p{CJK_Unified_Ideographs_Extension_D} \p{Block=
+                             CJK_Unified_Ideographs_Extension_D}
+                             (Short: \p{InCJKExtD}) (224)
+ X \p{CJK_Unified_Ideographs_Extension_E} \p{Block=
+                             CJK_Unified_Ideographs_Extension_E}
+                             (Short: \p{InCJKExtE}) (5776)
+   \p{Close_Punctuation}   \p{General_Category=Close_Punctuation}
+                             (Short: \p{Pe}) (73)
+   \p{Cn}                  \p{Unassigned} (= \p{General_Category=
+                             Unassigned}) (853_859 plus all above-
+                             Unicode code points)
+   \p{Cntrl}               \p{XPosixCntrl} (= \p{General_Category=
+                             Control}) (65)
+   \p{Co}                  \p{Private_Use} (= \p{General_Category=
+                             Private_Use}) (NOT \p{Private_Use_Area})
+                             (137_468)
+ X \p{Combining_Diacritical_Marks} \p{Block=
+                             Combining_Diacritical_Marks} (Short:
+                             \p{InDiacriticals}) (112)
+ X \p{Combining_Diacritical_Marks_Extended} \p{Block=
+                             Combining_Diacritical_Marks_Extended}
+                             (Short: \p{InDiacriticalsExt}) (80)
+ X \p{Combining_Diacritical_Marks_For_Symbols} \p{Block=
+                             Combining_Diacritical_Marks_For_Symbols}
+                             (Short: \p{InDiacriticalsForSymbols})
+                             (48)
+ X \p{Combining_Diacritical_Marks_Supplement} \p{Block=
+                             Combining_Diacritical_Marks_Supplement}
+                             (Short: \p{InDiacriticalsSup}) (64)
+ X \p{Combining_Half_Marks} \p{Block=Combining_Half_Marks} (Short:
+                             \p{InHalfMarks}) (16)
+   \p{Combining_Mark}      \p{Mark} (= \p{General_Category=Mark})
+                             (1963)
+ X \p{Combining_Marks_For_Symbols}
+                             \p{Combining_Diacritical_Marks_For_-
+                             Symbols} (= \p{Block=
+                             Combining_Diacritical_Marks_For_-
+                             Symbols}) (48)
+   \p{Common}              \p{Script=Common} (Short: \p{Zyyy}) (7179)
+ X \p{Common_Indic_Number_Forms} \p{Block=Common_Indic_Number_Forms}
+                             (Short: \p{InIndicNumberForms}) (16)
+   \p{Comp_Ex}             \p{Full_Composition_Exclusion} (=
+                             \p{Full_Composition_Exclusion=Y}) (1120)
+   \p{Comp_Ex: *}          \p{Full_Composition_Exclusion: *}
+ X \p{Compat_Jamo}         \p{Hangul_Compatibility_Jamo} (= \p{Block=
+                             Hangul_Compatibility_Jamo}) (96)
+   \p{Composition_Exclusion} \p{Composition_Exclusion=Y} (Short:
+                             \p{CE}) (81)
+   \p{Composition_Exclusion: N*} (Short: \p{CE=N}, \P{CE}) (1_114_031
+                             plus all above-Unicode code points)
+   \p{Composition_Exclusion: Y*} (Short: \p{CE=Y}, \p{CE}) (81)
+   \p{Connector_Punctuation} \p{General_Category=
+                             Connector_Punctuation} (Short: \p{Pc})
+                             (10)
+   \p{Control}             \p{XPosixCntrl} (= \p{General_Category=
+                             Control}) (65)
+ X \p{Control_Pictures}    \p{Block=Control_Pictures} (64)
+   \p{Copt}                \p{Coptic} (= \p{Script=Coptic}) (NOT
+                             \p{Block=Coptic}) (137)
+   \p{Coptic}              \p{Script=Coptic} (Short: \p{Copt}; NOT
+                             \p{Block=Coptic}) (137)
+ X \p{Coptic_Epact_Numbers} \p{Block=Coptic_Epact_Numbers} (32)
+ X \p{Counting_Rod}        \p{Counting_Rod_Numerals} (= \p{Block=
+                             Counting_Rod_Numerals}) (32)
+ X \p{Counting_Rod_Numerals} \p{Block=Counting_Rod_Numerals} (Short:
+                             \p{InCountingRod}) (32)
+   \p{Cprt}                \p{Cypriot} (= \p{Script=Cypriot}) (55)
+   \p{Cs}                  \p{Surrogate} (= \p{General_Category=
+                             Surrogate}) (2048)
+   \p{Cuneiform}           \p{Script=Cuneiform} (Short: \p{Xsux}; NOT
+                             \p{Block=Cuneiform}) (1234)
+ X \p{Cuneiform_Numbers}   \p{Cuneiform_Numbers_And_Punctuation} (=
+                             \p{Block=
+                             Cuneiform_Numbers_And_Punctuation}) (128)
+ X \p{Cuneiform_Numbers_And_Punctuation} \p{Block=
+                             Cuneiform_Numbers_And_Punctuation}
+                             (Short: \p{InCuneiformNumbers}) (128)
+   \p{Currency_Symbol}     \p{General_Category=Currency_Symbol}
+                             (Short: \p{Sc}) (53)
+ X \p{Currency_Symbols}    \p{Block=Currency_Symbols} (48)
+   \p{CWCF}                \p{Changes_When_Casefolded} (=
+                             \p{Changes_When_Casefolded=Y}) (1297)
+   \p{CWCF: *}             \p{Changes_When_Casefolded: *}
+   \p{CWCM}                \p{Changes_When_Casemapped} (=
+                             \p{Changes_When_Casemapped=Y}) (2518)
+   \p{CWCM: *}             \p{Changes_When_Casemapped: *}
+   \p{CWKCF}               \p{Changes_When_NFKC_Casefolded} (=
+                             \p{Changes_When_NFKC_Casefolded=Y})
+                             (10_146)
+   \p{CWKCF: *}            \p{Changes_When_NFKC_Casefolded: *}
+   \p{CWL}                 \p{Changes_When_Lowercased} (=
+                             \p{Changes_When_Lowercased=Y}) (1233)
+   \p{CWL: *}              \p{Changes_When_Lowercased: *}
+   \p{CWT}                 \p{Changes_When_Titlecased} (=
+                             \p{Changes_When_Titlecased=Y}) (1289)
+   \p{CWT: *}              \p{Changes_When_Titlecased: *}
+   \p{CWU}                 \p{Changes_When_Uppercased} (=
+                             \p{Changes_When_Uppercased=Y}) (1316)
+   \p{CWU: *}              \p{Changes_When_Uppercased: *}
+   \p{Cypriot}             \p{Script=Cypriot} (Short: \p{Cprt}) (55)
+ X \p{Cypriot_Syllabary}   \p{Block=Cypriot_Syllabary} (64)
+   \p{Cyrillic}            \p{Script=Cyrillic} (Short: \p{Cyrl}; NOT
+                             \p{Block=Cyrillic}) (434)
+ X \p{Cyrillic_Ext_A}      \p{Cyrillic_Extended_A} (= \p{Block=
+                             Cyrillic_Extended_A}) (32)
+ X \p{Cyrillic_Ext_B}      \p{Cyrillic_Extended_B} (= \p{Block=
+                             Cyrillic_Extended_B}) (96)
+ X \p{Cyrillic_Extended_A} \p{Block=Cyrillic_Extended_A} (Short:
+                             \p{InCyrillicExtA}) (32)
+ X \p{Cyrillic_Extended_B} \p{Block=Cyrillic_Extended_B} (Short:
+                             \p{InCyrillicExtB}) (96)
+ X \p{Cyrillic_Sup}        \p{Cyrillic_Supplement} (= \p{Block=
+                             Cyrillic_Supplement}) (48)
+ X \p{Cyrillic_Supplement} \p{Block=Cyrillic_Supplement} (Short:
+                             \p{InCyrillicSup}) (48)
+ X \p{Cyrillic_Supplementary} \p{Cyrillic_Supplement} (= \p{Block=
+                             Cyrillic_Supplement}) (48)
+   \p{Cyrl}                \p{Cyrillic} (= \p{Script=Cyrillic}) (NOT
+                             \p{Block=Cyrillic}) (434)
+   \p{Dash}                \p{Dash=Y} (28)
+   \p{Dash: N*}            (Single: \P{Dash}) (1_114_084 plus all
+                             above-Unicode code points)
+   \p{Dash: Y*}            (Single: \p{Dash}) (28)
+   \p{Dash_Punctuation}    \p{General_Category=Dash_Punctuation}
+                             (Short: \p{Pd}) (24)
+   \p{Decimal_Number}      \p{XPosixDigit} (= \p{General_Category=
+                             Decimal_Number}) (550)
+   \p{Decomposition_Type: Can} \p{Decomposition_Type=Canonical}
+                             (13_232)
+   \p{Decomposition_Type: Canonical} (Short: \p{Dt=Can}) (13_232)
+   \p{Decomposition_Type: Circle} (Short: \p{Dt=Enc}) (240)
+   \p{Decomposition_Type: Com} \p{Decomposition_Type=Compat} (720)
+   \p{Decomposition_Type: Compat} (Short: \p{Dt=Com}) (720)
+   \p{Decomposition_Type: Enc} \p{Decomposition_Type=Circle} (240)
+   \p{Decomposition_Type: Fin} \p{Decomposition_Type=Final} (240)
+   \p{Decomposition_Type: Final} (Short: \p{Dt=Fin}) (240)
+   \p{Decomposition_Type: Font} (Short: \p{Dt=Font}) (1184)
+   \p{Decomposition_Type: Fra} \p{Decomposition_Type=Fraction} (20)
+   \p{Decomposition_Type: Fraction} (Short: \p{Dt=Fra}) (20)
+   \p{Decomposition_Type: Init} \p{Decomposition_Type=Initial} (171)
+   \p{Decomposition_Type: Initial} (Short: \p{Dt=Init}) (171)
+   \p{Decomposition_Type: Iso} \p{Decomposition_Type=Isolated} (238)
+   \p{Decomposition_Type: Isolated} (Short: \p{Dt=Iso}) (238)
+   \p{Decomposition_Type: Med} \p{Decomposition_Type=Medial} (82)
+   \p{Decomposition_Type: Medial} (Short: \p{Dt=Med}) (82)
+   \p{Decomposition_Type: Nar} \p{Decomposition_Type=Narrow} (122)
+   \p{Decomposition_Type: Narrow} (Short: \p{Dt=Nar}) (122)
+   \p{Decomposition_Type: Nb} \p{Decomposition_Type=Nobreak} (5)
+   \p{Decomposition_Type: Nobreak} (Short: \p{Dt=Nb}) (5)
+   \p{Decomposition_Type: Non_Canon} \p{Decomposition_Type=
+                             Non_Canonical} (Perl extension) (3661)
+   \p{Decomposition_Type: Non_Canonical} Union of all non-canonical
+                             decompositions (Short: \p{Dt=NonCanon})
+                             (Perl extension) (3661)
+   \p{Decomposition_Type: None} (Short: \p{Dt=None}) (1_097_219 plus
+                             all above-Unicode code points)
+   \p{Decomposition_Type: Small} (Short: \p{Dt=Sml}) (26)
+   \p{Decomposition_Type: Sml} \p{Decomposition_Type=Small} (26)
+   \p{Decomposition_Type: Sqr} \p{Decomposition_Type=Square} (284)
+   \p{Decomposition_Type: Square} (Short: \p{Dt=Sqr}) (284)
+   \p{Decomposition_Type: Sub} (Short: \p{Dt=Sub}) (38)
+   \p{Decomposition_Type: Sup} \p{Decomposition_Type=Super} (152)
+   \p{Decomposition_Type: Super} (Short: \p{Dt=Sup}) (152)
+   \p{Decomposition_Type: Vert} \p{Decomposition_Type=Vertical} (35)
+   \p{Decomposition_Type: Vertical} (Short: \p{Dt=Vert}) (35)
+   \p{Decomposition_Type: Wide} (Short: \p{Dt=Wide}) (104)
+   \p{Default_Ignorable_Code_Point} \p{Default_Ignorable_Code_Point=
+                             Y} (Short: \p{DI}) (4173)
+   \p{Default_Ignorable_Code_Point: N*} (Short: \p{DI=N}, \P{DI})
+                             (1_109_939 plus all above-Unicode code
+                             points)
+   \p{Default_Ignorable_Code_Point: Y*} (Short: \p{DI=Y}, \p{DI})
+                             (4173)
+   \p{Dep}                 \p{Deprecated} (= \p{Deprecated=Y}) (16)
+   \p{Dep: *}              \p{Deprecated: *}
+   \p{Deprecated}          \p{Deprecated=Y} (Short: \p{Dep}) (16)
+   \p{Deprecated: N*}      (Short: \p{Dep=N}, \P{Dep}) (1_114_096
+                             plus all above-Unicode code points)
+   \p{Deprecated: Y*}      (Short: \p{Dep=Y}, \p{Dep}) (16)
+   \p{Deseret}             \p{Script=Deseret} (Short: \p{Dsrt}) (80)
+   \p{Deva}                \p{Devanagari} (= \p{Script=Devanagari})
+                             (NOT \p{Block=Devanagari}) (154)
+   \p{Devanagari}          \p{Script=Devanagari} (Short: \p{Deva};
+                             NOT \p{Block=Devanagari}) (154)
+ X \p{Devanagari_Ext}      \p{Devanagari_Extended} (= \p{Block=
+                             Devanagari_Extended}) (32)
+ X \p{Devanagari_Extended} \p{Block=Devanagari_Extended} (Short:
+                             \p{InDevanagariExt}) (32)
+   \p{DI}                  \p{Default_Ignorable_Code_Point} (=
+                             \p{Default_Ignorable_Code_Point=Y})
+                             (4173)
+   \p{DI: *}               \p{Default_Ignorable_Code_Point: *}
+   \p{Dia}                 \p{Diacritic} (= \p{Diacritic=Y}) (773)
+   \p{Dia: *}              \p{Diacritic: *}
+   \p{Diacritic}           \p{Diacritic=Y} (Short: \p{Dia}) (773)
+   \p{Diacritic: N*}       (Short: \p{Dia=N}, \P{Dia}) (1_113_339
+                             plus all above-Unicode code points)
+   \p{Diacritic: Y*}       (Short: \p{Dia=Y}, \p{Dia}) (773)
+ X \p{Diacriticals}        \p{Combining_Diacritical_Marks} (=
+                             \p{Block=Combining_Diacritical_Marks})
+                             (112)
+ X \p{Diacriticals_Ext}    \p{Combining_Diacritical_Marks_Extended}
+                             (= \p{Block=
+                             Combining_Diacritical_Marks_Extended})
+                             (80)
+ X \p{Diacriticals_For_Symbols}
+                             \p{Combining_Diacritical_Marks_For_-
+                             Symbols} (= \p{Block=
+                             Combining_Diacritical_Marks_For_-
+                             Symbols}) (48)
+ X \p{Diacriticals_Sup}    \p{Combining_Diacritical_Marks_Supplement}
+                             (= \p{Block=
+                             Combining_Diacritical_Marks_Supplement})
+                             (64)
+   \p{Digit}               \p{XPosixDigit} (= \p{General_Category=
+                             Decimal_Number}) (550)
+ X \p{Dingbats}            \p{Block=Dingbats} (192)
+ X \p{Domino}              \p{Domino_Tiles} (= \p{Block=
+                             Domino_Tiles}) (112)
+ X \p{Domino_Tiles}        \p{Block=Domino_Tiles} (Short:
+                             \p{InDomino}) (112)
+   \p{Dsrt}                \p{Deseret} (= \p{Script=Deseret}) (80)
+   \p{Dt: *}               \p{Decomposition_Type: *}
+   \p{Dupl}                \p{Duployan} (= \p{Script=Duployan}) (NOT
+                             \p{Block=Duployan}) (143)
+   \p{Duployan}            \p{Script=Duployan} (Short: \p{Dupl}; NOT
+                             \p{Block=Duployan}) (143)
+   \p{Ea: *}               \p{East_Asian_Width: *}
+ X \p{Early_Dynastic_Cuneiform} \p{Block=Early_Dynastic_Cuneiform}
+                             (208)
+   \p{East_Asian_Width: A} \p{East_Asian_Width=Ambiguous} (138_746)
+   \p{East_Asian_Width: Ambiguous} (Short: \p{Ea=A}) (138_746)
+   \p{East_Asian_Width: F} \p{East_Asian_Width=Fullwidth} (104)
+   \p{East_Asian_Width: Fullwidth} (Short: \p{Ea=F}) (104)
+   \p{East_Asian_Width: H} \p{East_Asian_Width=Halfwidth} (123)
+   \p{East_Asian_Width: Halfwidth} (Short: \p{Ea=H}) (123)
+   \p{East_Asian_Width: N} \p{East_Asian_Width=Neutral} (801_894 plus
+                             all above-Unicode code points)
+   \p{East_Asian_Width: Na} \p{East_Asian_Width=Narrow} (111)
+   \p{East_Asian_Width: Narrow} (Short: \p{Ea=Na}) (111)
+   \p{East_Asian_Width: Neutral} (Short: \p{Ea=N}) (801_894 plus all
+                             above-Unicode code points)
+   \p{East_Asian_Width: W} \p{East_Asian_Width=Wide} (173_134)
+   \p{East_Asian_Width: Wide} (Short: \p{Ea=W}) (173_134)
+   \p{Egyp}                \p{Egyptian_Hieroglyphs} (= \p{Script=
+                             Egyptian_Hieroglyphs}) (NOT \p{Block=
+                             Egyptian_Hieroglyphs}) (1071)
+   \p{Egyptian_Hieroglyphs} \p{Script=Egyptian_Hieroglyphs} (Short:
+                             \p{Egyp}; NOT \p{Block=
+                             Egyptian_Hieroglyphs}) (1071)
+   \p{Elba}                \p{Elbasan} (= \p{Script=Elbasan}) (NOT
+                             \p{Block=Elbasan}) (40)
+   \p{Elbasan}             \p{Script=Elbasan} (Short: \p{Elba}; NOT
+                             \p{Block=Elbasan}) (40)
+ X \p{Emoticons}           \p{Block=Emoticons} (80)
+ X \p{Enclosed_Alphanum}   \p{Enclosed_Alphanumerics} (= \p{Block=
+                             Enclosed_Alphanumerics}) (160)
+ X \p{Enclosed_Alphanum_Sup} \p{Enclosed_Alphanumeric_Supplement} (=
+                             \p{Block=
+                             Enclosed_Alphanumeric_Supplement}) (256)
+ X \p{Enclosed_Alphanumeric_Supplement} \p{Block=
+                             Enclosed_Alphanumeric_Supplement}
+                             (Short: \p{InEnclosedAlphanumSup}) (256)
+ X \p{Enclosed_Alphanumerics} \p{Block=Enclosed_Alphanumerics}
+                             (Short: \p{InEnclosedAlphanum}) (160)
+ X \p{Enclosed_CJK}        \p{Enclosed_CJK_Letters_And_Months} (=
+                             \p{Block=
+                             Enclosed_CJK_Letters_And_Months}) (256)
+ X \p{Enclosed_CJK_Letters_And_Months} \p{Block=
+                             Enclosed_CJK_Letters_And_Months} (Short:
+                             \p{InEnclosedCJK}) (256)
+ X \p{Enclosed_Ideographic_Sup} \p{Enclosed_Ideographic_Supplement}
+                             (= \p{Block=
+                             Enclosed_Ideographic_Supplement}) (256)
+ X \p{Enclosed_Ideographic_Supplement} \p{Block=
+                             Enclosed_Ideographic_Supplement} (Short:
+                             \p{InEnclosedIdeographicSup}) (256)
+   \p{Enclosing_Mark}      \p{General_Category=Enclosing_Mark}
+                             (Short: \p{Me}) (13)
+   \p{Ethi}                \p{Ethiopic} (= \p{Script=Ethiopic}) (NOT
+                             \p{Block=Ethiopic}) (495)
+   \p{Ethiopic}            \p{Script=Ethiopic} (Short: \p{Ethi}; NOT
+                             \p{Block=Ethiopic}) (495)
+ X \p{Ethiopic_Ext}        \p{Ethiopic_Extended} (= \p{Block=
+                             Ethiopic_Extended}) (96)
+ X \p{Ethiopic_Ext_A}      \p{Ethiopic_Extended_A} (= \p{Block=
+                             Ethiopic_Extended_A}) (48)
+ X \p{Ethiopic_Extended}   \p{Block=Ethiopic_Extended} (Short:
+                             \p{InEthiopicExt}) (96)
+ X \p{Ethiopic_Extended_A} \p{Block=Ethiopic_Extended_A} (Short:
+                             \p{InEthiopicExtA}) (48)
+ X \p{Ethiopic_Sup}        \p{Ethiopic_Supplement} (= \p{Block=
+                             Ethiopic_Supplement}) (32)
+ X \p{Ethiopic_Supplement} \p{Block=Ethiopic_Supplement} (Short:
+                             \p{InEthiopicSup}) (32)
+   \p{Ext}                 \p{Extender} (= \p{Extender=Y}) (38)
+   \p{Ext: *}              \p{Extender: *}
+   \p{Extender}            \p{Extender=Y} (Short: \p{Ext}) (38)
+   \p{Extender: N*}        (Short: \p{Ext=N}, \P{Ext}) (1_114_074
+                             plus all above-Unicode code points)
+   \p{Extender: Y*}        (Short: \p{Ext=Y}, \p{Ext}) (38)
+   \p{Final_Punctuation}   \p{General_Category=Final_Punctuation}
+                             (Short: \p{Pf}) (10)
+   \p{Format}              \p{General_Category=Format} (Short:
+                             \p{Cf}) (150)
+   \p{Full_Composition_Exclusion} \p{Full_Composition_Exclusion=Y}
+                             (Short: \p{CompEx}) (1120)
+   \p{Full_Composition_Exclusion: N*} (Short: \p{CompEx=N},
+                             \P{CompEx}) (1_112_992 plus all above-
+                             Unicode code points)
+   \p{Full_Composition_Exclusion: Y*} (Short: \p{CompEx=Y},
+                             \p{CompEx}) (1120)
+   \p{Gc: *}               \p{General_Category: *}
+   \p{GCB: *}              \p{Grapheme_Cluster_Break: *}
+   \p{General_Category: C} \p{General_Category=Other} (993_590 plus
+                             all above-Unicode code points)
+   \p{General_Category: Cased_Letter} [\p{Ll}\p{Lu}\p{Lt}] (Short:
+                             \p{Gc=LC}, \p{LC}) (3646)
+   \p{General_Category: Cc} \p{General_Category=Control} (65)
+   \p{General_Category: Cf} \p{General_Category=Format} (150)
+   \p{General_Category: Close_Punctuation} (Short: \p{Gc=Pe}, \p{Pe})
+                             (73)
+   \p{General_Category: Cn} \p{General_Category=Unassigned} (853_859
+                             plus all above-Unicode code points)
+   \p{General_Category: Cntrl} \p{General_Category=Control} (65)
+   \p{General_Category: Co} \p{General_Category=Private_Use} (137_468)
+   \p{General_Category: Combining_Mark} \p{General_Category=Mark}
+                             (1963)
+   \p{General_Category: Connector_Punctuation} (Short: \p{Gc=Pc},
+                             \p{Pc}) (10)
+   \p{General_Category: Control} (Short: \p{Gc=Cc}, \p{Cc}) (65)
+   \p{General_Category: Cs} \p{General_Category=Surrogate} (2048)
+   \p{General_Category: Currency_Symbol} (Short: \p{Gc=Sc}, \p{Sc})
+                             (53)
+   \p{General_Category: Dash_Punctuation} (Short: \p{Gc=Pd}, \p{Pd})
+                             (24)
+   \p{General_Category: Decimal_Number} (Short: \p{Gc=Nd}, \p{Nd})
+                             (550)
+   \p{General_Category: Digit} \p{General_Category=Decimal_Number}
+                             (550)
+   \p{General_Category: Enclosing_Mark} (Short: \p{Gc=Me}, \p{Me})
+                             (13)
+   \p{General_Category: Final_Punctuation} (Short: \p{Gc=Pf}, \p{Pf})
+                             (10)
+   \p{General_Category: Format} (Short: \p{Gc=Cf}, \p{Cf}) (150)
+   \p{General_Category: Initial_Punctuation} (Short: \p{Gc=Pi},
+                             \p{Pi}) (12)
+   \p{General_Category: L} \p{General_Category=Letter} (109_591)
+ X \p{General_Category: L&} \p{General_Category=Cased_Letter} (3646)
+ X \p{General_Category: L_} \p{General_Category=Cased_Letter} Note
+                             the trailing '_' matters in spite of
+                             loose matching rules. (3646)
+   \p{General_Category: LC} \p{General_Category=Cased_Letter} (3646)
+   \p{General_Category: Letter} (Short: \p{Gc=L}, \p{L}) (109_591)
+   \p{General_Category: Letter_Number} (Short: \p{Gc=Nl}, \p{Nl})
+                             (236)
+   \p{General_Category: Line_Separator} (Short: \p{Gc=Zl}, \p{Zl}) (1)
+   \p{General_Category: Ll} \p{General_Category=Lowercase_Letter}
+                             (/i= General_Category=Cased_Letter)
+                             (1984)
+   \p{General_Category: Lm} \p{General_Category=Modifier_Letter} (248)
+   \p{General_Category: Lo} \p{General_Category=Other_Letter}
+                             (105_697)
+   \p{General_Category: Lowercase_Letter} (Short: \p{Gc=Ll}, \p{Ll};
+                             /i= General_Category=Cased_Letter) (1984)
+   \p{General_Category: Lt} \p{General_Category=Titlecase_Letter}
+                             (/i= General_Category=Cased_Letter) (31)
+   \p{General_Category: Lu} \p{General_Category=Uppercase_Letter}
+                             (/i= General_Category=Cased_Letter)
+                             (1631)
+   \p{General_Category: M} \p{General_Category=Mark} (1963)
+   \p{General_Category: Mark} (Short: \p{Gc=M}, \p{M}) (1963)
+   \p{General_Category: Math_Symbol} (Short: \p{Gc=Sm}, \p{Sm}) (948)
+   \p{General_Category: Mc} \p{General_Category=Spacing_Mark} (383)
+   \p{General_Category: Me} \p{General_Category=Enclosing_Mark} (13)
+   \p{General_Category: Mn} \p{General_Category=Nonspacing_Mark}
+                             (1567)
+   \p{General_Category: Modifier_Letter} (Short: \p{Gc=Lm}, \p{Lm})
+                             (248)
+   \p{General_Category: Modifier_Symbol} (Short: \p{Gc=Sk}, \p{Sk})
+                             (121)
+   \p{General_Category: N} \p{General_Category=Number} (1433)
+   \p{General_Category: Nd} \p{General_Category=Decimal_Number} (550)
+   \p{General_Category: Nl} \p{General_Category=Letter_Number} (236)
+   \p{General_Category: No} \p{General_Category=Other_Number} (647)
+   \p{General_Category: Nonspacing_Mark} (Short: \p{Gc=Mn}, \p{Mn})
+                             (1567)
+   \p{General_Category: Number} (Short: \p{Gc=N}, \p{N}) (1433)
+   \p{General_Category: Open_Punctuation} (Short: \p{Gc=Ps}, \p{Ps})
+                             (75)
+   \p{General_Category: Other} (Short: \p{Gc=C}, \p{C}) (993_590 plus
+                             all above-Unicode code points)
+   \p{General_Category: Other_Letter} (Short: \p{Gc=Lo}, \p{Lo})
+                             (105_697)
+   \p{General_Category: Other_Number} (Short: \p{Gc=No}, \p{No}) (647)
+   \p{General_Category: Other_Punctuation} (Short: \p{Gc=Po}, \p{Po})
+                             (513)
+   \p{General_Category: Other_Symbol} (Short: \p{Gc=So}, \p{So})
+                             (5677)
+   \p{General_Category: P} \p{General_Category=Punctuation} (717)
+   \p{General_Category: Paragraph_Separator} (Short: \p{Gc=Zp},
+                             \p{Zp}) (1)
+   \p{General_Category: Pc} \p{General_Category=
+                             Connector_Punctuation} (10)
+   \p{General_Category: Pd} \p{General_Category=Dash_Punctuation} (24)
+   \p{General_Category: Pe} \p{General_Category=Close_Punctuation}
+                             (73)
+   \p{General_Category: Pf} \p{General_Category=Final_Punctuation}
+                             (10)
+   \p{General_Category: Pi} \p{General_Category=Initial_Punctuation}
+                             (12)
+   \p{General_Category: Po} \p{General_Category=Other_Punctuation}
+                             (513)
+   \p{General_Category: Private_Use} (Short: \p{Gc=Co}, \p{Co})
+                             (137_468)
+   \p{General_Category: Ps} \p{General_Category=Open_Punctuation} (75)
+   \p{General_Category: Punct} \p{General_Category=Punctuation} (717)
+   \p{General_Category: Punctuation} (Short: \p{Gc=P}, \p{P}) (717)
+   \p{General_Category: S} \p{General_Category=Symbol} (6799)
+   \p{General_Category: Sc} \p{General_Category=Currency_Symbol} (53)
+   \p{General_Category: Separator} (Short: \p{Gc=Z}, \p{Z}) (19)
+   \p{General_Category: Sk} \p{General_Category=Modifier_Symbol} (121)
+   \p{General_Category: Sm} \p{General_Category=Math_Symbol} (948)
+   \p{General_Category: So} \p{General_Category=Other_Symbol} (5677)
+   \p{General_Category: Space_Separator} (Short: \p{Gc=Zs}, \p{Zs})
+                             (17)
+   \p{General_Category: Spacing_Mark} (Short: \p{Gc=Mc}, \p{Mc}) (383)
+   \p{General_Category: Surrogate} (Short: \p{Gc=Cs}, \p{Cs}) (2048)
+   \p{General_Category: Symbol} (Short: \p{Gc=S}, \p{S}) (6799)
+   \p{General_Category: Titlecase_Letter} (Short: \p{Gc=Lt}, \p{Lt};
+                             /i= General_Category=Cased_Letter) (31)
+   \p{General_Category: Unassigned} (Short: \p{Gc=Cn}, \p{Cn})
+                             (853_859 plus all above-Unicode code
+                             points)
+   \p{General_Category: Uppercase_Letter} (Short: \p{Gc=Lu}, \p{Lu};
+                             /i= General_Category=Cased_Letter) (1631)
+   \p{General_Category: Z} \p{General_Category=Separator} (19)
+   \p{General_Category: Zl} \p{General_Category=Line_Separator} (1)
+   \p{General_Category: Zp} \p{General_Category=Paragraph_Separator}
+                             (1)
+   \p{General_Category: Zs} \p{General_Category=Space_Separator} (17)
+ X \p{General_Punctuation} \p{Block=General_Punctuation} (Short:
+                             \p{InPunctuation}) (112)
+ X \p{Geometric_Shapes}    \p{Block=Geometric_Shapes} (96)
+ X \p{Geometric_Shapes_Ext} \p{Geometric_Shapes_Extended} (=
+                             \p{Block=Geometric_Shapes_Extended})
+                             (128)
+ X \p{Geometric_Shapes_Extended} \p{Block=Geometric_Shapes_Extended}
+                             (Short: \p{InGeometricShapesExt}) (128)
+   \p{Geor}                \p{Georgian} (= \p{Script=Georgian}) (NOT
+                             \p{Block=Georgian}) (127)
+   \p{Georgian}            \p{Script=Georgian} (Short: \p{Geor}; NOT
+                             \p{Block=Georgian}) (127)
+ X \p{Georgian_Sup}        \p{Georgian_Supplement} (= \p{Block=
+                             Georgian_Supplement}) (48)
+ X \p{Georgian_Supplement} \p{Block=Georgian_Supplement} (Short:
+                             \p{InGeorgianSup}) (48)
+   \p{Glag}                \p{Glagolitic} (= \p{Script=Glagolitic})
+                             (NOT \p{Block=Glagolitic}) (94)
+   \p{Glagolitic}          \p{Script=Glagolitic} (Short: \p{Glag};
+                             NOT \p{Block=Glagolitic}) (94)
+   \p{Goth}                \p{Gothic} (= \p{Script=Gothic}) (NOT
+                             \p{Block=Gothic}) (27)
+   \p{Gothic}              \p{Script=Gothic} (Short: \p{Goth}; NOT
+                             \p{Block=Gothic}) (27)
+   \p{Gr_Base}             \p{Grapheme_Base} (= \p{Grapheme_Base=Y})
+                             (118_912)
+   \p{Gr_Base: *}          \p{Grapheme_Base: *}
+   \p{Gr_Ext}              \p{Grapheme_Extend} (= \p{Grapheme_Extend=
+                             Y}) (1610)
+   \p{Gr_Ext: *}           \p{Grapheme_Extend: *}
+   \p{Gran}                \p{Grantha} (= \p{Script=Grantha}) (NOT
+                             \p{Block=Grantha}) (85)
+   \p{Grantha}             \p{Script=Grantha} (Short: \p{Gran}; NOT
+                             \p{Block=Grantha}) (85)
+   \p{Graph}               \p{XPosixGraph} (258_121)
+   \p{Grapheme_Base}       \p{Grapheme_Base=Y} (Short: \p{GrBase})
+                             (118_912)
+   \p{Grapheme_Base: N*}   (Short: \p{GrBase=N}, \P{GrBase}) (995_200
+                             plus all above-Unicode code points)
+   \p{Grapheme_Base: Y*}   (Short: \p{GrBase=Y}, \p{GrBase}) (118_912)
+   \p{Grapheme_Cluster_Break: CN} \p{Grapheme_Cluster_Break=Control}
+                             (6030)
+   \p{Grapheme_Cluster_Break: Control} (Short: \p{GCB=CN}) (6030)
+   \p{Grapheme_Cluster_Break: CR} (Short: \p{GCB=CR}) (1)
+   \p{Grapheme_Cluster_Break: EX} \p{Grapheme_Cluster_Break=Extend}
+                             (1610)
+   \p{Grapheme_Cluster_Break: Extend} (Short: \p{GCB=EX}) (1610)
+   \p{Grapheme_Cluster_Break: L} (Short: \p{GCB=L}) (125)
+   \p{Grapheme_Cluster_Break: LF} (Short: \p{GCB=LF}) (1)
+   \p{Grapheme_Cluster_Break: LV} (Short: \p{GCB=LV}) (399)
+   \p{Grapheme_Cluster_Break: LVT} (Short: \p{GCB=LVT}) (10_773)
+   \p{Grapheme_Cluster_Break: Other} (Short: \p{GCB=XX}) (1_094_585
+                             plus all above-Unicode code points)
+   \p{Grapheme_Cluster_Break: PP} \p{Grapheme_Cluster_Break=Prepend}
+                             (0)
+   \p{Grapheme_Cluster_Break: Prepend} (Short: \p{GCB=PP}) (0)
+   \p{Grapheme_Cluster_Break: Regional_Indicator} (Short: \p{GCB=RI})
+                             (26)
+   \p{Grapheme_Cluster_Break: RI} \p{Grapheme_Cluster_Break=
+                             Regional_Indicator} (26)
+   \p{Grapheme_Cluster_Break: SM} \p{Grapheme_Cluster_Break=
+                             SpacingMark} (330)
+   \p{Grapheme_Cluster_Break: SpacingMark} (Short: \p{GCB=SM}) (330)
+   \p{Grapheme_Cluster_Break: T} (Short: \p{GCB=T}) (137)
+   \p{Grapheme_Cluster_Break: V} (Short: \p{GCB=V}) (95)
+   \p{Grapheme_Cluster_Break: XX} \p{Grapheme_Cluster_Break=Other}
+                             (1_094_585 plus all above-Unicode code
+                             points)
+   \p{Grapheme_Extend}     \p{Grapheme_Extend=Y} (Short: \p{GrExt})
+                             (1610)
+   \p{Grapheme_Extend: N*} (Short: \p{GrExt=N}, \P{GrExt}) (1_112_502
+                             plus all above-Unicode code points)
+   \p{Grapheme_Extend: Y*} (Short: \p{GrExt=Y}, \p{GrExt}) (1610)
+   \p{Greek}               \p{Script=Greek} (Short: \p{Grek}; NOT
+                             \p{Greek_And_Coptic}) (516)
+ X \p{Greek_And_Coptic}    \p{Block=Greek_And_Coptic} (Short:
+                             \p{InGreek}) (144)
+ X \p{Greek_Ext}           \p{Greek_Extended} (= \p{Block=
+                             Greek_Extended}) (256)
+ X \p{Greek_Extended}      \p{Block=Greek_Extended} (Short:
+                             \p{InGreekExt}) (256)
+   \p{Grek}                \p{Greek} (= \p{Script=Greek}) (NOT
+                             \p{Greek_And_Coptic}) (516)
+   \p{Gujarati}            \p{Script=Gujarati} (Short: \p{Gujr}; NOT
+                             \p{Block=Gujarati}) (85)
+   \p{Gujr}                \p{Gujarati} (= \p{Script=Gujarati}) (NOT
+                             \p{Block=Gujarati}) (85)
+   \p{Gurmukhi}            \p{Script=Gurmukhi} (Short: \p{Guru}; NOT
+                             \p{Block=Gurmukhi}) (79)
+   \p{Guru}                \p{Gurmukhi} (= \p{Script=Gurmukhi}) (NOT
+                             \p{Block=Gurmukhi}) (79)
+ X \p{Half_And_Full_Forms} \p{Halfwidth_And_Fullwidth_Forms} (=
+                             \p{Block=Halfwidth_And_Fullwidth_Forms})
+                             (240)
+ X \p{Half_Marks}          \p{Combining_Half_Marks} (= \p{Block=
+                             Combining_Half_Marks}) (16)
+ X \p{Halfwidth_And_Fullwidth_Forms} \p{Block=
+                             Halfwidth_And_Fullwidth_Forms} (Short:
+                             \p{InHalfAndFullForms}) (240)
+   \p{Han}                 \p{Script=Han} (81_734)
+   \p{Hang}                \p{Hangul} (= \p{Script=Hangul}) (NOT
+                             \p{Hangul_Syllables}) (11_739)
+   \p{Hangul}              \p{Script=Hangul} (Short: \p{Hang}; NOT
+                             \p{Hangul_Syllables}) (11_739)
+ X \p{Hangul_Compatibility_Jamo} \p{Block=Hangul_Compatibility_Jamo}
+                             (Short: \p{InCompatJamo}) (96)
+ X \p{Hangul_Jamo}         \p{Block=Hangul_Jamo} (Short: \p{InJamo})
+                             (256)
+ X \p{Hangul_Jamo_Extended_A} \p{Block=Hangul_Jamo_Extended_A}
+                             (Short: \p{InJamoExtA}) (32)
+ X \p{Hangul_Jamo_Extended_B} \p{Block=Hangul_Jamo_Extended_B}
+                             (Short: \p{InJamoExtB}) (80)
+   \p{Hangul_Syllable_Type: L} \p{Hangul_Syllable_Type=Leading_Jamo}
+                             (125)
+   \p{Hangul_Syllable_Type: Leading_Jamo} (Short: \p{Hst=L}) (125)
+   \p{Hangul_Syllable_Type: LV} \p{Hangul_Syllable_Type=LV_Syllable}
+                             (399)
+   \p{Hangul_Syllable_Type: LV_Syllable} (Short: \p{Hst=LV}) (399)
+   \p{Hangul_Syllable_Type: LVT} \p{Hangul_Syllable_Type=
+                             LVT_Syllable} (10_773)
+   \p{Hangul_Syllable_Type: LVT_Syllable} (Short: \p{Hst=LVT})
+                             (10_773)
+   \p{Hangul_Syllable_Type: NA} \p{Hangul_Syllable_Type=
+                             Not_Applicable} (1_102_583 plus all
+                             above-Unicode code points)
+   \p{Hangul_Syllable_Type: Not_Applicable} (Short: \p{Hst=NA})
+                             (1_102_583 plus all above-Unicode code
+                             points)
+   \p{Hangul_Syllable_Type: T} \p{Hangul_Syllable_Type=Trailing_Jamo}
+                             (137)
+   \p{Hangul_Syllable_Type: Trailing_Jamo} (Short: \p{Hst=T}) (137)
+   \p{Hangul_Syllable_Type: V} \p{Hangul_Syllable_Type=Vowel_Jamo}
+                             (95)
+   \p{Hangul_Syllable_Type: Vowel_Jamo} (Short: \p{Hst=V}) (95)
+ X \p{Hangul_Syllables}    \p{Block=Hangul_Syllables} (Short:
+                             \p{InHangul}) (11_184)
+   \p{Hani}                \p{Han} (= \p{Script=Han}) (81_734)
+   \p{Hano}                \p{Hanunoo} (= \p{Script=Hanunoo}) (NOT
+                             \p{Block=Hanunoo}) (21)
+   \p{Hanunoo}             \p{Script=Hanunoo} (Short: \p{Hano}; NOT
+                             \p{Block=Hanunoo}) (21)
+   \p{Hatr}                \p{Hatran} (= \p{Script=Hatran}) (NOT
+                             \p{Block=Hatran}) (26)
+   \p{Hatran}              \p{Script=Hatran} (Short: \p{Hatr}; NOT
+                             \p{Block=Hatran}) (26)
+   \p{Hebr}                \p{Hebrew} (= \p{Script=Hebrew}) (NOT
+                             \p{Block=Hebrew}) (133)
+   \p{Hebrew}              \p{Script=Hebrew} (Short: \p{Hebr}; NOT
+                             \p{Block=Hebrew}) (133)
+   \p{Hex}                 \p{XPosixXDigit} (= \p{Hex_Digit=Y}) (44)
+   \p{Hex: *}              \p{Hex_Digit: *}
+   \p{Hex_Digit}           \p{XPosixXDigit} (= \p{Hex_Digit=Y}) (44)
+   \p{Hex_Digit: N*}       (Short: \p{Hex=N}, \P{Hex}) (1_114_068
+                             plus all above-Unicode code points)
+   \p{Hex_Digit: Y*}       (Short: \p{Hex=Y}, \p{Hex}) (44)
+ X \p{High_Private_Use_Surrogates} \p{Block=
+                             High_Private_Use_Surrogates} (Short:
+                             \p{InHighPUSurrogates}) (128)
+ X \p{High_PU_Surrogates}  \p{High_Private_Use_Surrogates} (=
+                             \p{Block=High_Private_Use_Surrogates})
+                             (128)
+ X \p{High_Surrogates}     \p{Block=High_Surrogates} (896)
+   \p{Hira}                \p{Hiragana} (= \p{Script=Hiragana}) (NOT
+                             \p{Block=Hiragana}) (91)
+   \p{Hiragana}            \p{Script=Hiragana} (Short: \p{Hira}; NOT
+                             \p{Block=Hiragana}) (91)
+   \p{Hluw}                \p{Anatolian_Hieroglyphs} (= \p{Script=
+                             Anatolian_Hieroglyphs}) (NOT \p{Block=
+                             Anatolian_Hieroglyphs}) (583)
+   \p{Hmng}                \p{Pahawh_Hmong} (= \p{Script=
+                             Pahawh_Hmong}) (NOT \p{Block=
+                             Pahawh_Hmong}) (127)
+   \p{HorizSpace}          \p{XPosixBlank} (18)
+   \p{Hst: *}              \p{Hangul_Syllable_Type: *}
+   \p{Hung}                \p{Old_Hungarian} (= \p{Script=
+                             Old_Hungarian}) (NOT \p{Block=
+                             Old_Hungarian}) (108)
+ D \p{Hyphen}              \p{Hyphen=Y} (11)
+ D \p{Hyphen: N*}          Supplanted by Line_Break property values;
+                             see www.unicode.org/reports/tr14
+                             (Single: \P{Hyphen}) (1_114_101 plus all
+                             above-Unicode code points)
+ D \p{Hyphen: Y*}          Supplanted by Line_Break property values;
+                             see www.unicode.org/reports/tr14
+                             (Single: \p{Hyphen}) (11)
+   \p{ID_Continue}         \p{ID_Continue=Y} (Short: \p{IDC}; NOT
+                             \p{Ideographic_Description_Characters})
+                             (112_352)
+   \p{ID_Continue: N*}     (Short: \p{IDC=N}, \P{IDC}) (1_001_760
+                             plus all above-Unicode code points)
+   \p{ID_Continue: Y*}     (Short: \p{IDC=Y}, \p{IDC}) (112_352)
+   \p{ID_Start}            \p{ID_Start=Y} (Short: \p{IDS}) (109_830)
+   \p{ID_Start: N*}        (Short: \p{IDS=N}, \P{IDS}) (1_004_282
+                             plus all above-Unicode code points)
+   \p{ID_Start: Y*}        (Short: \p{IDS=Y}, \p{IDS}) (109_830)
+   \p{IDC}                 \p{ID_Continue} (= \p{ID_Continue=Y}) (NOT
+                             \p{Ideographic_Description_Characters})
+                             (112_352)
+   \p{IDC: *}              \p{ID_Continue: *}
+   \p{Ideo}                \p{Ideographic} (= \p{Ideographic=Y})
+                             (81_404)
+   \p{Ideo: *}             \p{Ideographic: *}
+   \p{Ideographic}         \p{Ideographic=Y} (Short: \p{Ideo})
+                             (81_404)
+   \p{Ideographic: N*}     (Short: \p{Ideo=N}, \P{Ideo}) (1_032_708
+                             plus all above-Unicode code points)
+   \p{Ideographic: Y*}     (Short: \p{Ideo=Y}, \p{Ideo}) (81_404)
+ X \p{Ideographic_Description_Characters} \p{Block=
+                             Ideographic_Description_Characters}
+                             (Short: \p{InIDC}) (16)
+   \p{IDS}                 \p{ID_Start} (= \p{ID_Start=Y}) (109_830)
+   \p{IDS: *}              \p{ID_Start: *}
+   \p{IDS_Binary_Operator} \p{IDS_Binary_Operator=Y} (Short:
+                             \p{IDSB}) (10)
+   \p{IDS_Binary_Operator: N*} (Short: \p{IDSB=N}, \P{IDSB})
+                             (1_114_102 plus all above-Unicode code
+                             points)
+   \p{IDS_Binary_Operator: Y*} (Short: \p{IDSB=Y}, \p{IDSB}) (10)
+   \p{IDS_Trinary_Operator} \p{IDS_Trinary_Operator=Y} (Short:
+                             \p{IDST}) (2)
+   \p{IDS_Trinary_Operator: N*} (Short: \p{IDST=N}, \P{IDST})
+                             (1_114_110 plus all above-Unicode code
+                             points)
+   \p{IDS_Trinary_Operator: Y*} (Short: \p{IDST=Y}, \p{IDST}) (2)
+   \p{IDSB}                \p{IDS_Binary_Operator} (=
+                             \p{IDS_Binary_Operator=Y}) (10)
+   \p{IDSB: *}             \p{IDS_Binary_Operator: *}
+   \p{IDST}                \p{IDS_Trinary_Operator} (=
+                             \p{IDS_Trinary_Operator=Y}) (2)
+   \p{IDST: *}             \p{IDS_Trinary_Operator: *}
+   \p{Imperial_Aramaic}    \p{Script=Imperial_Aramaic} (Short:
+                             \p{Armi}; NOT \p{Block=
+                             Imperial_Aramaic}) (31)
+   \p{In: *}               \p{Present_In: *} (Perl extension)
+ X \p{In_*}                \p{Block: *}
+ X \p{Indic_Number_Forms}  \p{Common_Indic_Number_Forms} (= \p{Block=
+                             Common_Indic_Number_Forms}) (16)
+   \p{Indic_Positional_Category: Bottom} (Short: \p{InPC=Bottom})
+                             (256)
+   \p{Indic_Positional_Category: Bottom_And_Right} (Short: \p{InPC=
+                             BottomAndRight}) (2)
+   \p{Indic_Positional_Category: Left} (Short: \p{InPC=Left}) (55)
+   \p{Indic_Positional_Category: Left_And_Right} (Short: \p{InPC=
+                             LeftAndRight}) (21)
+   \p{Indic_Positional_Category: NA} (Short: \p{InPC=NA}) (1_113_142
+                             plus all above-Unicode code points)
+   \p{Indic_Positional_Category: Overstruck} (Short: \p{InPC=
+                             Overstruck}) (10)
+   \p{Indic_Positional_Category: Right} (Short: \p{InPC=Right}) (249)
+   \p{Indic_Positional_Category: Top} (Short: \p{InPC=Top}) (324)
+   \p{Indic_Positional_Category: Top_And_Bottom} (Short: \p{InPC=
+                             TopAndBottom}) (10)
+   \p{Indic_Positional_Category: Top_And_Bottom_And_Right} (Short:
+                             \p{InPC=TopAndBottomAndRight}) (1)
+   \p{Indic_Positional_Category: Top_And_Left} (Short: \p{InPC=
+                             TopAndLeft}) (6)
+   \p{Indic_Positional_Category: Top_And_Left_And_Right} (Short:
+                             \p{InPC=TopAndLeftAndRight}) (4)
+   \p{Indic_Positional_Category: Top_And_Right} (Short: \p{InPC=
+                             TopAndRight}) (13)
+   \p{Indic_Positional_Category: Visual_Order_Left} (Short: \p{InPC=
+                             VisualOrderLeft}) (19)
+   \p{Indic_Syllabic_Category: Avagraha} (Short: \p{InSC=Avagraha})
+                             (13)
+   \p{Indic_Syllabic_Category: Bindu} (Short: \p{InSC=Bindu}) (60)
+   \p{Indic_Syllabic_Category: Brahmi_Joining_Number} (Short:
+                             \p{InSC=BrahmiJoiningNumber}) (20)
+   \p{Indic_Syllabic_Category: Cantillation_Mark} (Short: \p{InSC=
+                             CantillationMark}) (52)
+   \p{Indic_Syllabic_Category: Consonant} (Short: \p{InSC=Consonant})
+                             (1805)
+   \p{Indic_Syllabic_Category: Consonant_Dead} (Short: \p{InSC=
+                             ConsonantDead}) (7)
+   \p{Indic_Syllabic_Category: Consonant_Final} (Short: \p{InSC=
+                             ConsonantFinal}) (62)
+   \p{Indic_Syllabic_Category: Consonant_Head_Letter} (Short:
+                             \p{InSC=ConsonantHeadLetter}) (5)
+   \p{Indic_Syllabic_Category: Consonant_Killer} (Short: \p{InSC=
+                             ConsonantKiller}) (2)
+   \p{Indic_Syllabic_Category: Consonant_Medial} (Short: \p{InSC=
+                             ConsonantMedial}) (22)
+   \p{Indic_Syllabic_Category: Consonant_Placeholder} (Short:
+                             \p{InSC=ConsonantPlaceholder}) (13)
+   \p{Indic_Syllabic_Category: Consonant_Preceding_Repha} (Short:
+                             \p{InSC=ConsonantPrecedingRepha}) (1)
+   \p{Indic_Syllabic_Category: Consonant_Prefixed} (Short: \p{InSC=
+                             ConsonantPrefixed}) (2)
+   \p{Indic_Syllabic_Category: Consonant_Subjoined} (Short: \p{InSC=
+                             ConsonantSubjoined}) (61)
+   \p{Indic_Syllabic_Category: Consonant_Succeeding_Repha} (Short:
+                             \p{InSC=ConsonantSucceedingRepha}) (4)
+   \p{Indic_Syllabic_Category: Consonant_With_Stacker} (Short:
+                             \p{InSC=ConsonantWithStacker}) (4)
+   \p{Indic_Syllabic_Category: Gemination_Mark} (Short: \p{InSC=
+                             GeminationMark}) (2)
+   \p{Indic_Syllabic_Category: Invisible_Stacker} (Short: \p{InSC=
+                             InvisibleStacker}) (7)
+   \p{Indic_Syllabic_Category: Joiner} (Short: \p{InSC=Joiner}) (1)
+   \p{Indic_Syllabic_Category: Modifying_Letter} (Short: \p{InSC=
+                             ModifyingLetter}) (1)
+   \p{Indic_Syllabic_Category: Non_Joiner} (Short: \p{InSC=
+                             NonJoiner}) (1)
+   \p{Indic_Syllabic_Category: Nukta} (Short: \p{InSC=Nukta}) (23)
+   \p{Indic_Syllabic_Category: Number} (Short: \p{InSC=Number}) (420)
+   \p{Indic_Syllabic_Category: Number_Joiner} (Short: \p{InSC=
+                             NumberJoiner}) (1)
+   \p{Indic_Syllabic_Category: Other} (Short: \p{InSC=Other})
+                             (1_110_379 plus all above-Unicode code
+                             points)
+   \p{Indic_Syllabic_Category: Pure_Killer} (Short: \p{InSC=
+                             PureKiller}) (16)
+   \p{Indic_Syllabic_Category: Register_Shifter} (Short: \p{InSC=
+                             RegisterShifter}) (2)
+   \p{Indic_Syllabic_Category: Syllable_Modifier} (Short: \p{InSC=
+                             SyllableModifier}) (20)
+   \p{Indic_Syllabic_Category: Tone_Letter} (Short: \p{InSC=
+                             ToneLetter}) (7)
+   \p{Indic_Syllabic_Category: Tone_Mark} (Short: \p{InSC=ToneMark})
+                             (42)
+   \p{Indic_Syllabic_Category: Virama} (Short: \p{InSC=Virama}) (22)
+   \p{Indic_Syllabic_Category: Visarga} (Short: \p{InSC=Visarga}) (29)
+   \p{Indic_Syllabic_Category: Vowel} (Short: \p{InSC=Vowel}) (30)
+   \p{Indic_Syllabic_Category: Vowel_Dependent} (Short: \p{InSC=
+                             VowelDependent}) (572)
+   \p{Indic_Syllabic_Category: Vowel_Independent} (Short: \p{InSC=
+                             VowelIndependent}) (404)
+   \p{Inherited}           \p{Script=Inherited} (Short: \p{Zinh})
+                             (563)
+   \p{Initial_Punctuation} \p{General_Category=Initial_Punctuation}
+                             (Short: \p{Pi}) (12)
+   \p{InPC: *}             \p{Indic_Positional_Category: *}
+   \p{InSC: *}             \p{Indic_Syllabic_Category: *}
+   \p{Inscriptional_Pahlavi} \p{Script=Inscriptional_Pahlavi} (Short:
+                             \p{Phli}; NOT \p{Block=
+                             Inscriptional_Pahlavi}) (27)
+   \p{Inscriptional_Parthian} \p{Script=Inscriptional_Parthian}
+                             (Short: \p{Prti}; NOT \p{Block=
+                             Inscriptional_Parthian}) (30)
+ X \p{IPA_Ext}             \p{IPA_Extensions} (= \p{Block=
+                             IPA_Extensions}) (96)
+ X \p{IPA_Extensions}      \p{Block=IPA_Extensions} (Short:
+                             \p{InIPAExt}) (96)
+   \p{Is_*}                \p{*} (Any exceptions are individually
+                             noted beginning with the word NOT.) If
+                             an entry has flag(s) at its beginning,
+                             like "D", the "Is_" form has the same
+                             flag(s)
+   \p{Ital}                \p{Old_Italic} (= \p{Script=Old_Italic})
+                             (NOT \p{Block=Old_Italic}) (36)
+ X \p{Jamo}                \p{Hangul_Jamo} (= \p{Block=Hangul_Jamo})
+                             (256)
+ X \p{Jamo_Ext_A}          \p{Hangul_Jamo_Extended_A} (= \p{Block=
+                             Hangul_Jamo_Extended_A}) (32)
+ X \p{Jamo_Ext_B}          \p{Hangul_Jamo_Extended_B} (= \p{Block=
+                             Hangul_Jamo_Extended_B}) (80)
+   \p{Java}                \p{Javanese} (= \p{Script=Javanese}) (NOT
+                             \p{Block=Javanese}) (90)
+   \p{Javanese}            \p{Script=Javanese} (Short: \p{Java}; NOT
+                             \p{Block=Javanese}) (90)
+   \p{Jg: *}               \p{Joining_Group: *}
+   \p{Join_C}              \p{Join_Control} (= \p{Join_Control=Y}) (2)
+   \p{Join_C: *}           \p{Join_Control: *}
+   \p{Join_Control}        \p{Join_Control=Y} (Short: \p{JoinC}) (2)
+   \p{Join_Control: N*}    (Short: \p{JoinC=N}, \P{JoinC}) (1_114_110
+                             plus all above-Unicode code points)
+   \p{Join_Control: Y*}    (Short: \p{JoinC=Y}, \p{JoinC}) (2)
+   \p{Joining_Group: Ain}  (Short: \p{Jg=Ain}) (8)
+   \p{Joining_Group: Alaph} (Short: \p{Jg=Alaph}) (1)
+   \p{Joining_Group: Alef} (Short: \p{Jg=Alef}) (10)
+   \p{Joining_Group: Beh}  (Short: \p{Jg=Beh}) (21)
+   \p{Joining_Group: Beth} (Short: \p{Jg=Beth}) (2)
+   \p{Joining_Group: Burushaski_Yeh_Barree} (Short: \p{Jg=
+                             BurushaskiYehBarree}) (2)
+   \p{Joining_Group: Dal}  (Short: \p{Jg=Dal}) (15)
+   \p{Joining_Group: Dalath_Rish} (Short: \p{Jg=DalathRish}) (4)
+   \p{Joining_Group: E}    (Short: \p{Jg=E}) (1)
+   \p{Joining_Group: Farsi_Yeh} (Short: \p{Jg=FarsiYeh}) (7)
+   \p{Joining_Group: Fe}   (Short: \p{Jg=Fe}) (1)
+   \p{Joining_Group: Feh}  (Short: \p{Jg=Feh}) (10)
+   \p{Joining_Group: Final_Semkath} (Short: \p{Jg=FinalSemkath}) (1)
+   \p{Joining_Group: Gaf}  (Short: \p{Jg=Gaf}) (14)
+   \p{Joining_Group: Gamal} (Short: \p{Jg=Gamal}) (3)
+   \p{Joining_Group: Hah}  (Short: \p{Jg=Hah}) (18)
+   \p{Joining_Group: Hamza_On_Heh_Goal} (Short: \p{Jg=
+                             HamzaOnHehGoal}) (1)
+   \p{Joining_Group: He}   (Short: \p{Jg=He}) (1)
+   \p{Joining_Group: Heh}  (Short: \p{Jg=Heh}) (1)
+   \p{Joining_Group: Heh_Goal} (Short: \p{Jg=HehGoal}) (2)
+   \p{Joining_Group: Heth} (Short: \p{Jg=Heth}) (1)
+   \p{Joining_Group: Kaf}  (Short: \p{Jg=Kaf}) (6)
+   \p{Joining_Group: Kaph} (Short: \p{Jg=Kaph}) (1)
+   \p{Joining_Group: Khaph} (Short: \p{Jg=Khaph}) (1)
+   \p{Joining_Group: Knotted_Heh} (Short: \p{Jg=KnottedHeh}) (2)
+   \p{Joining_Group: Lam}  (Short: \p{Jg=Lam}) (7)
+   \p{Joining_Group: Lamadh} (Short: \p{Jg=Lamadh}) (1)
+   \p{Joining_Group: Manichaean_Aleph} (Short: \p{Jg=
+                             ManichaeanAleph}) (1)
+   \p{Joining_Group: Manichaean_Ayin} (Short: \p{Jg=ManichaeanAyin})
+                             (2)
+   \p{Joining_Group: Manichaean_Beth} (Short: \p{Jg=ManichaeanBeth})
+                             (2)
+   \p{Joining_Group: Manichaean_Daleth} (Short: \p{Jg=
+                             ManichaeanDaleth}) (1)
+   \p{Joining_Group: Manichaean_Dhamedh} (Short: \p{Jg=
+                             ManichaeanDhamedh}) (1)
+   \p{Joining_Group: Manichaean_Five} (Short: \p{Jg=ManichaeanFive})
+                             (1)
+   \p{Joining_Group: Manichaean_Gimel} (Short: \p{Jg=
+                             ManichaeanGimel}) (2)
+   \p{Joining_Group: Manichaean_Heth} (Short: \p{Jg=ManichaeanHeth})
+                             (1)
+   \p{Joining_Group: Manichaean_Hundred} (Short: \p{Jg=
+                             ManichaeanHundred}) (1)
+   \p{Joining_Group: Manichaean_Kaph} (Short: \p{Jg=ManichaeanKaph})
+                             (3)
+   \p{Joining_Group: Manichaean_Lamedh} (Short: \p{Jg=
+                             ManichaeanLamedh}) (1)
+   \p{Joining_Group: Manichaean_Mem} (Short: \p{Jg=ManichaeanMem}) (1)
+   \p{Joining_Group: Manichaean_Nun} (Short: \p{Jg=ManichaeanNun}) (1)
+   \p{Joining_Group: Manichaean_One} (Short: \p{Jg=ManichaeanOne}) (1)
+   \p{Joining_Group: Manichaean_Pe} (Short: \p{Jg=ManichaeanPe}) (2)
+   \p{Joining_Group: Manichaean_Qoph} (Short: \p{Jg=ManichaeanQoph})
+                             (3)
+   \p{Joining_Group: Manichaean_Resh} (Short: \p{Jg=ManichaeanResh})
+                             (1)
+   \p{Joining_Group: Manichaean_Sadhe} (Short: \p{Jg=
+                             ManichaeanSadhe}) (1)
+   \p{Joining_Group: Manichaean_Samekh} (Short: \p{Jg=
+                             ManichaeanSamekh}) (1)
+   \p{Joining_Group: Manichaean_Taw} (Short: \p{Jg=ManichaeanTaw}) (1)
+   \p{Joining_Group: Manichaean_Ten} (Short: \p{Jg=ManichaeanTen}) (1)
+   \p{Joining_Group: Manichaean_Teth} (Short: \p{Jg=ManichaeanTeth})
+                             (1)
+   \p{Joining_Group: Manichaean_Thamedh} (Short: \p{Jg=
+                             ManichaeanThamedh}) (1)
+   \p{Joining_Group: Manichaean_Twenty} (Short: \p{Jg=
+                             ManichaeanTwenty}) (1)
+   \p{Joining_Group: Manichaean_Waw} (Short: \p{Jg=ManichaeanWaw}) (1)
+   \p{Joining_Group: Manichaean_Yodh} (Short: \p{Jg=ManichaeanYodh})
+                             (1)
+   \p{Joining_Group: Manichaean_Zayin} (Short: \p{Jg=
+                             ManichaeanZayin}) (2)
+   \p{Joining_Group: Meem} (Short: \p{Jg=Meem}) (4)
+   \p{Joining_Group: Mim}  (Short: \p{Jg=Mim}) (1)
+   \p{Joining_Group: No_Joining_Group} (Short: \p{Jg=NoJoiningGroup})
+                             (1_113_826 plus all above-Unicode code
+                             points)
+   \p{Joining_Group: Noon} (Short: \p{Jg=Noon}) (8)
+   \p{Joining_Group: Nun}  (Short: \p{Jg=Nun}) (1)
+   \p{Joining_Group: Nya}  (Short: \p{Jg=Nya}) (1)
+   \p{Joining_Group: Pe}   (Short: \p{Jg=Pe}) (1)
+   \p{Joining_Group: Qaf}  (Short: \p{Jg=Qaf}) (5)
+   \p{Joining_Group: Qaph} (Short: \p{Jg=Qaph}) (1)
+   \p{Joining_Group: Reh}  (Short: \p{Jg=Reh}) (18)
+   \p{Joining_Group: Reversed_Pe} (Short: \p{Jg=ReversedPe}) (1)
+   \p{Joining_Group: Rohingya_Yeh} (Short: \p{Jg=RohingyaYeh}) (1)
+   \p{Joining_Group: Sad}  (Short: \p{Jg=Sad}) (6)
+   \p{Joining_Group: Sadhe} (Short: \p{Jg=Sadhe}) (1)
+   \p{Joining_Group: Seen} (Short: \p{Jg=Seen}) (11)
+   \p{Joining_Group: Semkath} (Short: \p{Jg=Semkath}) (1)
+   \p{Joining_Group: Shin} (Short: \p{Jg=Shin}) (1)
+   \p{Joining_Group: Straight_Waw} (Short: \p{Jg=StraightWaw}) (1)
+   \p{Joining_Group: Swash_Kaf} (Short: \p{Jg=SwashKaf}) (1)
+   \p{Joining_Group: Syriac_Waw} (Short: \p{Jg=SyriacWaw}) (1)
+   \p{Joining_Group: Tah}  (Short: \p{Jg=Tah}) (4)
+   \p{Joining_Group: Taw}  (Short: \p{Jg=Taw}) (1)
+   \p{Joining_Group: Teh_Marbuta} (Short: \p{Jg=TehMarbuta}) (3)
+   \p{Joining_Group: Teh_Marbuta_Goal} \p{Joining_Group=
+                             Hamza_On_Heh_Goal} (1)
+   \p{Joining_Group: Teth} (Short: \p{Jg=Teth}) (2)
+   \p{Joining_Group: Waw}  (Short: \p{Jg=Waw}) (16)
+   \p{Joining_Group: Yeh}  (Short: \p{Jg=Yeh}) (10)
+   \p{Joining_Group: Yeh_Barree} (Short: \p{Jg=YehBarree}) (2)
+   \p{Joining_Group: Yeh_With_Tail} (Short: \p{Jg=YehWithTail}) (1)
+   \p{Joining_Group: Yudh} (Short: \p{Jg=Yudh}) (1)
+   \p{Joining_Group: Yudh_He} (Short: \p{Jg=YudhHe}) (1)
+   \p{Joining_Group: Zain} (Short: \p{Jg=Zain}) (1)
+   \p{Joining_Group: Zhain} (Short: \p{Jg=Zhain}) (1)
+   \p{Joining_Type: C}     \p{Joining_Type=Join_Causing} (4)
+   \p{Joining_Type: D}     \p{Joining_Type=Dual_Joining} (426)
+   \p{Joining_Type: Dual_Joining} (Short: \p{Jt=D}) (426)
+   \p{Joining_Type: Join_Causing} (Short: \p{Jt=C}) (4)
+   \p{Joining_Type: L}     \p{Joining_Type=Left_Joining} (3)
+   \p{Joining_Type: Left_Joining} (Short: \p{Jt=L}) (3)
+   \p{Joining_Type: Non_Joining} (Short: \p{Jt=U}) (1_111_852 plus
+                             all above-Unicode code points)
+   \p{Joining_Type: R}     \p{Joining_Type=Right_Joining} (111)
+   \p{Joining_Type: Right_Joining} (Short: \p{Jt=R}) (111)
+   \p{Joining_Type: T}     \p{Joining_Type=Transparent} (1716)
+   \p{Joining_Type: Transparent} (Short: \p{Jt=T}) (1716)
+   \p{Joining_Type: U}     \p{Joining_Type=Non_Joining} (1_111_852
+                             plus all above-Unicode code points)
+   \p{Jt: *}               \p{Joining_Type: *}
+   \p{Kaithi}              \p{Script=Kaithi} (Short: \p{Kthi}; NOT
+                             \p{Block=Kaithi}) (66)
+   \p{Kali}                \p{Kayah_Li} (= \p{Script=Kayah_Li}) (NOT
+                             \p{Block=Kayah_Li}) (47)
+   \p{Kana}                \p{Katakana} (= \p{Script=Katakana}) (NOT
+                             \p{Block=Katakana}) (300)
+ X \p{Kana_Sup}            \p{Kana_Supplement} (= \p{Block=
+                             Kana_Supplement}) (256)
+ X \p{Kana_Supplement}     \p{Block=Kana_Supplement} (Short:
+                             \p{InKanaSup}) (256)
+ X \p{Kanbun}              \p{Block=Kanbun} (16)
+ X \p{Kangxi}              \p{Kangxi_Radicals} (= \p{Block=
+                             Kangxi_Radicals}) (224)
+ X \p{Kangxi_Radicals}     \p{Block=Kangxi_Radicals} (Short:
+                             \p{InKangxi}) (224)
+   \p{Kannada}             \p{Script=Kannada} (Short: \p{Knda}; NOT
+                             \p{Block=Kannada}) (87)
+   \p{Katakana}            \p{Script=Katakana} (Short: \p{Kana}; NOT
+                             \p{Block=Katakana}) (300)
+ X \p{Katakana_Ext}        \p{Katakana_Phonetic_Extensions} (=
+                             \p{Block=Katakana_Phonetic_Extensions})
+                             (16)
+ X \p{Katakana_Phonetic_Extensions} \p{Block=
+                             Katakana_Phonetic_Extensions} (Short:
+                             \p{InKatakanaExt}) (16)
+   \p{Kayah_Li}            \p{Script=Kayah_Li} (Short: \p{Kali}; NOT
+                             \p{Block=Kayah_Li}) (47)
+   \p{Khar}                \p{Kharoshthi} (= \p{Script=Kharoshthi})
+                             (NOT \p{Block=Kharoshthi}) (65)
+   \p{Kharoshthi}          \p{Script=Kharoshthi} (Short: \p{Khar};
+                             NOT \p{Block=Kharoshthi}) (65)
+   \p{Khmer}               \p{Script=Khmer} (Short: \p{Khmr}; NOT
+                             \p{Block=Khmer}) (146)
+ X \p{Khmer_Symbols}       \p{Block=Khmer_Symbols} (32)
+   \p{Khmr}                \p{Khmer} (= \p{Script=Khmer}) (NOT
+                             \p{Block=Khmer}) (146)
+   \p{Khoj}                \p{Khojki} (= \p{Script=Khojki}) (NOT
+                             \p{Block=Khojki}) (61)
+   \p{Khojki}              \p{Script=Khojki} (Short: \p{Khoj}; NOT
+                             \p{Block=Khojki}) (61)
+   \p{Khudawadi}           \p{Script=Khudawadi} (Short: \p{Sind}; NOT
+                             \p{Block=Khudawadi}) (69)
+   \p{Knda}                \p{Kannada} (= \p{Script=Kannada}) (NOT
+                             \p{Block=Kannada}) (87)
+   \p{Kthi}                \p{Kaithi} (= \p{Script=Kaithi}) (NOT
+                             \p{Block=Kaithi}) (66)
+   \p{L} \pL               \p{Letter} (= \p{General_Category=Letter})
+                             (109_591)
+ X \p{L&}                  \p{Cased_Letter} (= \p{General_Category=
+                             Cased_Letter}) (3646)
+ X \p{L_}                  \p{Cased_Letter} (= \p{General_Category=
+                             Cased_Letter}) Note the trailing '_'
+                             matters in spite of loose matching
+                             rules. (3646)
+   \p{Lana}                \p{Tai_Tham} (= \p{Script=Tai_Tham}) (NOT
+                             \p{Block=Tai_Tham}) (127)
+   \p{Lao}                 \p{Script=Lao} (NOT \p{Block=Lao}) (67)
+   \p{Laoo}                \p{Lao} (= \p{Script=Lao}) (NOT \p{Block=
+                             Lao}) (67)
+   \p{Latin}               \p{Script=Latin} (Short: \p{Latn}) (1349)
+ X \p{Latin_1}             \p{Latin_1_Supplement} (= \p{Block=
+                             Latin_1_Supplement}) (128)
+ X \p{Latin_1_Sup}         \p{Latin_1_Supplement} (= \p{Block=
+                             Latin_1_Supplement}) (128)
+ X \p{Latin_1_Supplement}  \p{Block=Latin_1_Supplement} (Short:
+                             \p{InLatin1}) (128)
+ X \p{Latin_Ext_A}         \p{Latin_Extended_A} (= \p{Block=
+                             Latin_Extended_A}) (128)
+ X \p{Latin_Ext_Additional} \p{Latin_Extended_Additional} (=
+                             \p{Block=Latin_Extended_Additional})
+                             (256)
+ X \p{Latin_Ext_B}         \p{Latin_Extended_B} (= \p{Block=
+                             Latin_Extended_B}) (208)
+ X \p{Latin_Ext_C}         \p{Latin_Extended_C} (= \p{Block=
+                             Latin_Extended_C}) (32)
+ X \p{Latin_Ext_D}         \p{Latin_Extended_D} (= \p{Block=
+                             Latin_Extended_D}) (224)
+ X \p{Latin_Ext_E}         \p{Latin_Extended_E} (= \p{Block=
+                             Latin_Extended_E}) (64)
+ X \p{Latin_Extended_A}    \p{Block=Latin_Extended_A} (Short:
+                             \p{InLatinExtA}) (128)
+ X \p{Latin_Extended_Additional} \p{Block=Latin_Extended_Additional}
+                             (Short: \p{InLatinExtAdditional}) (256)
+ X \p{Latin_Extended_B}    \p{Block=Latin_Extended_B} (Short:
+                             \p{InLatinExtB}) (208)
+ X \p{Latin_Extended_C}    \p{Block=Latin_Extended_C} (Short:
+                             \p{InLatinExtC}) (32)
+ X \p{Latin_Extended_D}    \p{Block=Latin_Extended_D} (Short:
+                             \p{InLatinExtD}) (224)
+ X \p{Latin_Extended_E}    \p{Block=Latin_Extended_E} (Short:
+                             \p{InLatinExtE}) (64)
+   \p{Latn}                \p{Latin} (= \p{Script=Latin}) (1349)
+   \p{Lb: *}               \p{Line_Break: *}
+   \p{LC}                  \p{Cased_Letter} (= \p{General_Category=
+                             Cased_Letter}) (3646)
+   \p{Lepc}                \p{Lepcha} (= \p{Script=Lepcha}) (NOT
+                             \p{Block=Lepcha}) (74)
+   \p{Lepcha}              \p{Script=Lepcha} (Short: \p{Lepc}; NOT
+                             \p{Block=Lepcha}) (74)
+   \p{Letter}              \p{General_Category=Letter} (Short: \p{L})
+                             (109_591)
+   \p{Letter_Number}       \p{General_Category=Letter_Number} (Short:
+                             \p{Nl}) (236)
+ X \p{Letterlike_Symbols}  \p{Block=Letterlike_Symbols} (80)
+   \p{Limb}                \p{Limbu} (= \p{Script=Limbu}) (NOT
+                             \p{Block=Limbu}) (68)
+   \p{Limbu}               \p{Script=Limbu} (Short: \p{Limb}; NOT
+                             \p{Block=Limbu}) (68)
+   \p{Lina}                \p{Linear_A} (= \p{Script=Linear_A}) (NOT
+                             \p{Block=Linear_A}) (341)
+   \p{Linb}                \p{Linear_B} (= \p{Script=Linear_B}) (211)
+   \p{Line_Break: AI}      \p{Line_Break=Ambiguous} (689)
+   \p{Line_Break: AL}      \p{Line_Break=Alphabetic} (19_294)
+   \p{Line_Break: Alphabetic} (Short: \p{Lb=AL}) (19_294)
+   \p{Line_Break: Ambiguous} (Short: \p{Lb=AI}) (689)
+   \p{Line_Break: B2}      \p{Line_Break=Break_Both} (3)
+   \p{Line_Break: BA}      \p{Line_Break=Break_After} (206)
+   \p{Line_Break: BB}      \p{Line_Break=Break_Before} (23)
+   \p{Line_Break: BK}      \p{Line_Break=Mandatory_Break} (4)
+   \p{Line_Break: Break_After} (Short: \p{Lb=BA}) (206)
+   \p{Line_Break: Break_Before} (Short: \p{Lb=BB}) (23)
+   \p{Line_Break: Break_Both} (Short: \p{Lb=B2}) (3)
+   \p{Line_Break: Break_Symbols} (Short: \p{Lb=SY}) (1)
+   \p{Line_Break: Carriage_Return} (Short: \p{Lb=CR}) (1)
+   \p{Line_Break: CB}      \p{Line_Break=Contingent_Break} (1)
+   \p{Line_Break: CJ}      \p{Line_Break=
+                             Conditional_Japanese_Starter} (51)
+   \p{Line_Break: CL}      \p{Line_Break=Close_Punctuation} (90)
+   \p{Line_Break: Close_Parenthesis} (Short: \p{Lb=CP}) (2)
+   \p{Line_Break: Close_Punctuation} (Short: \p{Lb=CL}) (90)
+   \p{Line_Break: CM}      \p{Line_Break=Combining_Mark} (1957)
+   \p{Line_Break: Combining_Mark} (Short: \p{Lb=CM}) (1957)
+   \p{Line_Break: Complex_Context} (Short: \p{Lb=SA}) (734)
+   \p{Line_Break: Conditional_Japanese_Starter} (Short: \p{Lb=CJ})
+                             (51)
+   \p{Line_Break: Contingent_Break} (Short: \p{Lb=CB}) (1)
+   \p{Line_Break: CP}      \p{Line_Break=Close_Parenthesis} (2)
+   \p{Line_Break: CR}      \p{Line_Break=Carriage_Return} (1)
+   \p{Line_Break: EX}      \p{Line_Break=Exclamation} (36)
+   \p{Line_Break: Exclamation} (Short: \p{Lb=EX}) (36)
+   \p{Line_Break: GL}      \p{Line_Break=Glue} (18)
+   \p{Line_Break: Glue}    (Short: \p{Lb=GL}) (18)
+   \p{Line_Break: H2}      (Short: \p{Lb=H2}) (399)
+   \p{Line_Break: H3}      (Short: \p{Lb=H3}) (10_773)
+   \p{Line_Break: Hebrew_Letter} (Short: \p{Lb=HL}) (74)
+   \p{Line_Break: HL}      \p{Line_Break=Hebrew_Letter} (74)
+   \p{Line_Break: HY}      \p{Line_Break=Hyphen} (1)
+   \p{Line_Break: Hyphen}  (Short: \p{Lb=HY}) (1)
+   \p{Line_Break: ID}      \p{Line_Break=Ideographic} (162_973)
+   \p{Line_Break: Ideographic} (Short: \p{Lb=ID}) (162_973)
+   \p{Line_Break: IN}      \p{Line_Break=Inseparable} (6)
+   \p{Line_Break: Infix_Numeric} (Short: \p{Lb=IS}) (13)
+   \p{Line_Break: Inseparable} (Short: \p{Lb=IN}) (6)
+   \p{Line_Break: Inseperable} \p{Line_Break=Inseparable} (6)
+   \p{Line_Break: IS}      \p{Line_Break=Infix_Numeric} (13)
+   \p{Line_Break: JL}      (Short: \p{Lb=JL}) (125)
+   \p{Line_Break: JT}      (Short: \p{Lb=JT}) (137)
+   \p{Line_Break: JV}      (Short: \p{Lb=JV}) (95)
+   \p{Line_Break: LF}      \p{Line_Break=Line_Feed} (1)
+   \p{Line_Break: Line_Feed} (Short: \p{Lb=LF}) (1)
+   \p{Line_Break: Mandatory_Break} (Short: \p{Lb=BK}) (4)
+   \p{Line_Break: Next_Line} (Short: \p{Lb=NL}) (1)
+   \p{Line_Break: NL}      \p{Line_Break=Next_Line} (1)
+   \p{Line_Break: Nonstarter} (Short: \p{Lb=NS}) (29)
+   \p{Line_Break: NS}      \p{Line_Break=Nonstarter} (29)
+   \p{Line_Break: NU}      \p{Line_Break=Numeric} (542)
+   \p{Line_Break: Numeric} (Short: \p{Lb=NU}) (542)
+   \p{Line_Break: OP}      \p{Line_Break=Open_Punctuation} (85)
+   \p{Line_Break: Open_Punctuation} (Short: \p{Lb=OP}) (85)
+   \p{Line_Break: PO}      \p{Line_Break=Postfix_Numeric} (30)
+   \p{Line_Break: Postfix_Numeric} (Short: \p{Lb=PO}) (30)
+   \p{Line_Break: PR}      \p{Line_Break=Prefix_Numeric} (65)
+   \p{Line_Break: Prefix_Numeric} (Short: \p{Lb=PR}) (65)
+   \p{Line_Break: QU}      \p{Line_Break=Quotation} (39)
+   \p{Line_Break: Quotation} (Short: \p{Lb=QU}) (39)
+   \p{Line_Break: Regional_Indicator} (Short: \p{Lb=RI}) (26)
+   \p{Line_Break: RI}      \p{Line_Break=Regional_Indicator} (26)
+   \p{Line_Break: SA}      \p{Line_Break=Complex_Context} (734)
+ D \p{Line_Break: SG}      \p{Line_Break=Surrogate} (2048)
+   \p{Line_Break: SP}      \p{Line_Break=Space} (1)
+   \p{Line_Break: Space}   (Short: \p{Lb=SP}) (1)
+ D \p{Line_Break: Surrogate} Deprecated by Unicode because surrogates
+                             should never appear in well-formed text,
+                             and therefore shouldn't be the basis for
+                             line breaking (Short: \p{Lb=SG}) (2048)
+   \p{Line_Break: SY}      \p{Line_Break=Break_Symbols} (1)
+   \p{Line_Break: Unknown} (Short: \p{Lb=XX}) (913_536 plus all
+                             above-Unicode code points)
+   \p{Line_Break: WJ}      \p{Line_Break=Word_Joiner} (2)
+   \p{Line_Break: Word_Joiner} (Short: \p{Lb=WJ}) (2)
+   \p{Line_Break: XX}      \p{Line_Break=Unknown} (913_536 plus all
+                             above-Unicode code points)
+   \p{Line_Break: ZW}      \p{Line_Break=ZWSpace} (1)
+   \p{Line_Break: ZWSpace} (Short: \p{Lb=ZW}) (1)
+   \p{Line_Separator}      \p{General_Category=Line_Separator}
+                             (Short: \p{Zl}) (1)
+   \p{Linear_A}            \p{Script=Linear_A} (Short: \p{Lina}; NOT
+                             \p{Block=Linear_A}) (341)
+   \p{Linear_B}            \p{Script=Linear_B} (Short: \p{Linb}) (211)
+ X \p{Linear_B_Ideograms}  \p{Block=Linear_B_Ideograms} (128)
+ X \p{Linear_B_Syllabary}  \p{Block=Linear_B_Syllabary} (128)
+   \p{Lisu}                \p{Script=Lisu} (48)
+   \p{Ll}                  \p{Lowercase_Letter} (=
+                             \p{General_Category=Lowercase_Letter})
+                             (/i= General_Category=Cased_Letter)
+                             (1984)
+   \p{Lm}                  \p{Modifier_Letter} (=
+                             \p{General_Category=Modifier_Letter})
+                             (248)
+   \p{Lo}                  \p{Other_Letter} (= \p{General_Category=
+                             Other_Letter}) (105_697)
+   \p{LOE}                 \p{Logical_Order_Exception} (=
+                             \p{Logical_Order_Exception=Y}) (19)
+   \p{LOE: *}              \p{Logical_Order_Exception: *}
+   \p{Logical_Order_Exception} \p{Logical_Order_Exception=Y} (Short:
+                             \p{LOE}) (19)
+   \p{Logical_Order_Exception: N*} (Short: \p{LOE=N}, \P{LOE})
+                             (1_114_093 plus all above-Unicode code
+                             points)
+   \p{Logical_Order_Exception: Y*} (Short: \p{LOE=Y}, \p{LOE}) (19)
+ X \p{Low_Surrogates}      \p{Block=Low_Surrogates} (1024)
+   \p{Lower}               \p{XPosixLower} (= \p{Lowercase=Y}) (/i=
+                             Cased=Yes) (2173)
+   \p{Lower: *}            \p{Lowercase: *}
+   \p{Lowercase}           \p{XPosixLower} (= \p{Lowercase=Y}) (/i=
+                             Cased=Yes) (2173)
+   \p{Lowercase: N*}       (Short: \p{Lower=N}, \P{Lower}; /i= Cased=
+                             No) (1_111_939 plus all above-Unicode
+                             code points)
+   \p{Lowercase: Y*}       (Short: \p{Lower=Y}, \p{Lower}; /i= Cased=
+                             Yes) (2173)
+   \p{Lowercase_Letter}    \p{General_Category=Lowercase_Letter}
+                             (Short: \p{Ll}; /i= General_Category=
+                             Cased_Letter) (1984)
+   \p{Lt}                  \p{Titlecase_Letter} (=
+                             \p{General_Category=Titlecase_Letter})
+                             (/i= General_Category=Cased_Letter) (31)
+   \p{Lu}                  \p{Uppercase_Letter} (=
+                             \p{General_Category=Uppercase_Letter})
+                             (/i= General_Category=Cased_Letter)
+                             (1631)
+   \p{Lyci}                \p{Lycian} (= \p{Script=Lycian}) (NOT
+                             \p{Block=Lycian}) (29)
+   \p{Lycian}              \p{Script=Lycian} (Short: \p{Lyci}; NOT
+                             \p{Block=Lycian}) (29)
+   \p{Lydi}                \p{Lydian} (= \p{Script=Lydian}) (NOT
+                             \p{Block=Lydian}) (27)
+   \p{Lydian}              \p{Script=Lydian} (Short: \p{Lydi}; NOT
+                             \p{Block=Lydian}) (27)
+   \p{M} \pM               \p{Mark} (= \p{General_Category=Mark})
+                             (1963)
+   \p{Mahajani}            \p{Script=Mahajani} (Short: \p{Mahj}; NOT
+                             \p{Block=Mahajani}) (39)
+   \p{Mahj}                \p{Mahajani} (= \p{Script=Mahajani}) (NOT
+                             \p{Block=Mahajani}) (39)
+ X \p{Mahjong}             \p{Mahjong_Tiles} (= \p{Block=
+                             Mahjong_Tiles}) (48)
+ X \p{Mahjong_Tiles}       \p{Block=Mahjong_Tiles} (Short:
+                             \p{InMahjong}) (48)
+   \p{Malayalam}           \p{Script=Malayalam} (Short: \p{Mlym}; NOT
+                             \p{Block=Malayalam}) (100)
+   \p{Mand}                \p{Mandaic} (= \p{Script=Mandaic}) (NOT
+                             \p{Block=Mandaic}) (29)
+   \p{Mandaic}             \p{Script=Mandaic} (Short: \p{Mand}; NOT
+                             \p{Block=Mandaic}) (29)
+   \p{Mani}                \p{Manichaean} (= \p{Script=Manichaean})
+                             (NOT \p{Block=Manichaean}) (51)
+   \p{Manichaean}          \p{Script=Manichaean} (Short: \p{Mani};
+                             NOT \p{Block=Manichaean}) (51)
+   \p{Mark}                \p{General_Category=Mark} (Short: \p{M})
+                             (1963)
+   \p{Math}                \p{Math=Y} (2310)
+   \p{Math: N*}            (Single: \P{Math}) (1_111_802 plus all
+                             above-Unicode code points)
+   \p{Math: Y*}            (Single: \p{Math}) (2310)
+ X \p{Math_Alphanum}       \p{Mathematical_Alphanumeric_Symbols} (=
+                             \p{Block=
+                             Mathematical_Alphanumeric_Symbols})
+                             (1024)
+ X \p{Math_Operators}      \p{Mathematical_Operators} (= \p{Block=
+                             Mathematical_Operators}) (256)
+   \p{Math_Symbol}         \p{General_Category=Math_Symbol} (Short:
+                             \p{Sm}) (948)
+ X \p{Mathematical_Alphanumeric_Symbols} \p{Block=
+                             Mathematical_Alphanumeric_Symbols}
+                             (Short: \p{InMathAlphanum}) (1024)
+ X \p{Mathematical_Operators} \p{Block=Mathematical_Operators}
+                             (Short: \p{InMathOperators}) (256)
+   \p{Mc}                  \p{Spacing_Mark} (= \p{General_Category=
+                             Spacing_Mark}) (383)
+   \p{Me}                  \p{Enclosing_Mark} (= \p{General_Category=
+                             Enclosing_Mark}) (13)
+   \p{Meetei_Mayek}        \p{Script=Meetei_Mayek} (Short: \p{Mtei};
+                             NOT \p{Block=Meetei_Mayek}) (79)
+ X \p{Meetei_Mayek_Ext}    \p{Meetei_Mayek_Extensions} (= \p{Block=
+                             Meetei_Mayek_Extensions}) (32)
+ X \p{Meetei_Mayek_Extensions} \p{Block=Meetei_Mayek_Extensions}
+                             (Short: \p{InMeeteiMayekExt}) (32)
+   \p{Mend}                \p{Mende_Kikakui} (= \p{Script=
+                             Mende_Kikakui}) (NOT \p{Block=
+                             Mende_Kikakui}) (213)
+   \p{Mende_Kikakui}       \p{Script=Mende_Kikakui} (Short: \p{Mend};
+                             NOT \p{Block=Mende_Kikakui}) (213)
+   \p{Merc}                \p{Meroitic_Cursive} (= \p{Script=
+                             Meroitic_Cursive}) (NOT \p{Block=
+                             Meroitic_Cursive}) (90)
+   \p{Mero}                \p{Meroitic_Hieroglyphs} (= \p{Script=
+                             Meroitic_Hieroglyphs}) (32)
+   \p{Meroitic_Cursive}    \p{Script=Meroitic_Cursive} (Short:
+                             \p{Merc}; NOT \p{Block=
+                             Meroitic_Cursive}) (90)
+   \p{Meroitic_Hieroglyphs} \p{Script=Meroitic_Hieroglyphs} (Short:
+                             \p{Mero}) (32)
+   \p{Miao}                \p{Script=Miao} (NOT \p{Block=Miao}) (133)
+ X \p{Misc_Arrows}         \p{Miscellaneous_Symbols_And_Arrows} (=
+                             \p{Block=
+                             Miscellaneous_Symbols_And_Arrows}) (256)
+ X \p{Misc_Math_Symbols_A} \p{Miscellaneous_Mathematical_Symbols_A}
+                             (= \p{Block=
+                             Miscellaneous_Mathematical_Symbols_A})
+                             (48)
+ X \p{Misc_Math_Symbols_B} \p{Miscellaneous_Mathematical_Symbols_B}
+                             (= \p{Block=
+                             Miscellaneous_Mathematical_Symbols_B})
+                             (128)
+ X \p{Misc_Pictographs}    \p{Miscellaneous_Symbols_And_Pictographs}
+                             (= \p{Block=
+                             Miscellaneous_Symbols_And_Pictographs})
+                             (768)
+ X \p{Misc_Symbols}        \p{Miscellaneous_Symbols} (= \p{Block=
+                             Miscellaneous_Symbols}) (256)
+ X \p{Misc_Technical}      \p{Miscellaneous_Technical} (= \p{Block=
+                             Miscellaneous_Technical}) (256)
+ X \p{Miscellaneous_Mathematical_Symbols_A} \p{Block=
+                             Miscellaneous_Mathematical_Symbols_A}
+                             (Short: \p{InMiscMathSymbolsA}) (48)
+ X \p{Miscellaneous_Mathematical_Symbols_B} \p{Block=
+                             Miscellaneous_Mathematical_Symbols_B}
+                             (Short: \p{InMiscMathSymbolsB}) (128)
+ X \p{Miscellaneous_Symbols} \p{Block=Miscellaneous_Symbols} (Short:
+                             \p{InMiscSymbols}) (256)
+ X \p{Miscellaneous_Symbols_And_Arrows} \p{Block=
+                             Miscellaneous_Symbols_And_Arrows}
+                             (Short: \p{InMiscArrows}) (256)
+ X \p{Miscellaneous_Symbols_And_Pictographs} \p{Block=
+                             Miscellaneous_Symbols_And_Pictographs}
+                             (Short: \p{InMiscPictographs}) (768)
+ X \p{Miscellaneous_Technical} \p{Block=Miscellaneous_Technical}
+                             (Short: \p{InMiscTechnical}) (256)
+   \p{Mlym}                \p{Malayalam} (= \p{Script=Malayalam})
+                             (NOT \p{Block=Malayalam}) (100)
+   \p{Mn}                  \p{Nonspacing_Mark} (=
+                             \p{General_Category=Nonspacing_Mark})
+                             (1567)
+   \p{Modi}                \p{Script=Modi} (NOT \p{Block=Modi}) (79)
+   \p{Modifier_Letter}     \p{General_Category=Modifier_Letter}
+                             (Short: \p{Lm}) (248)
+ X \p{Modifier_Letters}    \p{Spacing_Modifier_Letters} (= \p{Block=
+                             Spacing_Modifier_Letters}) (80)
+   \p{Modifier_Symbol}     \p{General_Category=Modifier_Symbol}
+                             (Short: \p{Sk}) (121)
+ X \p{Modifier_Tone_Letters} \p{Block=Modifier_Tone_Letters} (32)
+   \p{Mong}                \p{Mongolian} (= \p{Script=Mongolian})
+                             (NOT \p{Block=Mongolian}) (153)
+   \p{Mongolian}           \p{Script=Mongolian} (Short: \p{Mong}; NOT
+                             \p{Block=Mongolian}) (153)
+   \p{Mro}                 \p{Script=Mro} (NOT \p{Block=Mro}) (43)
+   \p{Mroo}                \p{Mro} (= \p{Script=Mro}) (NOT \p{Block=
+                             Mro}) (43)
+   \p{Mtei}                \p{Meetei_Mayek} (= \p{Script=
+                             Meetei_Mayek}) (NOT \p{Block=
+                             Meetei_Mayek}) (79)
+   \p{Mult}                \p{Multani} (= \p{Script=Multani}) (NOT
+                             \p{Block=Multani}) (38)
+   \p{Multani}             \p{Script=Multani} (Short: \p{Mult}; NOT
+                             \p{Block=Multani}) (38)
+ X \p{Music}               \p{Musical_Symbols} (= \p{Block=
+                             Musical_Symbols}) (256)
+ X \p{Musical_Symbols}     \p{Block=Musical_Symbols} (Short:
+                             \p{InMusic}) (256)
+   \p{Myanmar}             \p{Script=Myanmar} (Short: \p{Mymr}; NOT
+                             \p{Block=Myanmar}) (223)
+ X \p{Myanmar_Ext_A}       \p{Myanmar_Extended_A} (= \p{Block=
+                             Myanmar_Extended_A}) (32)
+ X \p{Myanmar_Ext_B}       \p{Myanmar_Extended_B} (= \p{Block=
+                             Myanmar_Extended_B}) (32)
+ X \p{Myanmar_Extended_A}  \p{Block=Myanmar_Extended_A} (Short:
+                             \p{InMyanmarExtA}) (32)
+ X \p{Myanmar_Extended_B}  \p{Block=Myanmar_Extended_B} (Short:
+                             \p{InMyanmarExtB}) (32)
+   \p{Mymr}                \p{Myanmar} (= \p{Script=Myanmar}) (NOT
+                             \p{Block=Myanmar}) (223)
+   \p{N} \pN               \p{Number} (= \p{General_Category=Number})
+                             (1433)
+   \p{Nabataean}           \p{Script=Nabataean} (Short: \p{Nbat}; NOT
+                             \p{Block=Nabataean}) (40)
+   \p{Narb}                \p{Old_North_Arabian} (= \p{Script=
+                             Old_North_Arabian}) (32)
+ X \p{NB}                  \p{No_Block} (= \p{Block=No_Block})
+                             (849_856 plus all above-Unicode code
+                             points)
+   \p{Nbat}                \p{Nabataean} (= \p{Script=Nabataean})
+                             (NOT \p{Block=Nabataean}) (40)
+   \p{NChar}               \p{Noncharacter_Code_Point} (=
+                             \p{Noncharacter_Code_Point=Y}) (66)
+   \p{NChar: *}            \p{Noncharacter_Code_Point: *}
+   \p{Nd}                  \p{XPosixDigit} (= \p{General_Category=
+                             Decimal_Number}) (550)
+   \p{New_Tai_Lue}         \p{Script=New_Tai_Lue} (Short: \p{Talu};
+                             NOT \p{Block=New_Tai_Lue}) (83)
+   \p{NFC_QC: *}           \p{NFC_Quick_Check: *}
+   \p{NFC_Quick_Check: M}  \p{NFC_Quick_Check=Maybe} (110)
+   \p{NFC_Quick_Check: Maybe} (Short: \p{NFCQC=M}) (110)
+   \p{NFC_Quick_Check: N}  \p{NFC_Quick_Check=No} (NOT
+                             \P{NFC_Quick_Check} NOR \P{NFC_QC})
+                             (1120)
+   \p{NFC_Quick_Check: No} (Short: \p{NFCQC=N}; NOT
+                             \P{NFC_Quick_Check} NOR \P{NFC_QC})
+                             (1120)
+   \p{NFC_Quick_Check: Y}  \p{NFC_Quick_Check=Yes} (NOT
+                             \p{NFC_Quick_Check} NOR \p{NFC_QC})
+                             (1_112_882 plus all above-Unicode code
+                             points)
+   \p{NFC_Quick_Check: Yes} (Short: \p{NFCQC=Y}; NOT
+                             \p{NFC_Quick_Check} NOR \p{NFC_QC})
+                             (1_112_882 plus all above-Unicode code
+                             points)
+   \p{NFD_QC: *}           \p{NFD_Quick_Check: *}
+   \p{NFD_Quick_Check: N}  \p{NFD_Quick_Check=No} (NOT
+                             \P{NFD_Quick_Check} NOR \P{NFD_QC})
+                             (13_232)
+   \p{NFD_Quick_Check: No} (Short: \p{NFDQC=N}; NOT
+                             \P{NFD_Quick_Check} NOR \P{NFD_QC})
+                             (13_232)
+   \p{NFD_Quick_Check: Y}  \p{NFD_Quick_Check=Yes} (NOT
+                             \p{NFD_Quick_Check} NOR \p{NFD_QC})
+                             (1_100_880 plus all above-Unicode code
+                             points)
+   \p{NFD_Quick_Check: Yes} (Short: \p{NFDQC=Y}; NOT
+                             \p{NFD_Quick_Check} NOR \p{NFD_QC})
+                             (1_100_880 plus all above-Unicode code
+                             points)
+   \p{NFKC_QC: *}          \p{NFKC_Quick_Check: *}
+   \p{NFKC_Quick_Check: M} \p{NFKC_Quick_Check=Maybe} (110)
+   \p{NFKC_Quick_Check: Maybe} (Short: \p{NFKCQC=M}) (110)
+   \p{NFKC_Quick_Check: N} \p{NFKC_Quick_Check=No} (NOT
+                             \P{NFKC_Quick_Check} NOR \P{NFKC_QC})
+                             (4793)
+   \p{NFKC_Quick_Check: No} (Short: \p{NFKCQC=N}; NOT
+                             \P{NFKC_Quick_Check} NOR \P{NFKC_QC})
+                             (4793)
+   \p{NFKC_Quick_Check: Y} \p{NFKC_Quick_Check=Yes} (NOT
+                             \p{NFKC_Quick_Check} NOR \p{NFKC_QC})
+                             (1_109_209 plus all above-Unicode code
+                             points)
+   \p{NFKC_Quick_Check: Yes} (Short: \p{NFKCQC=Y}; NOT
+                             \p{NFKC_Quick_Check} NOR \p{NFKC_QC})
+                             (1_109_209 plus all above-Unicode code
+                             points)
+   \p{NFKD_QC: *}          \p{NFKD_Quick_Check: *}
+   \p{NFKD_Quick_Check: N} \p{NFKD_Quick_Check=No} (NOT
+                             \P{NFKD_Quick_Check} NOR \P{NFKD_QC})
+                             (16_893)
+   \p{NFKD_Quick_Check: No} (Short: \p{NFKDQC=N}; NOT
+                             \P{NFKD_Quick_Check} NOR \P{NFKD_QC})
+                             (16_893)
+   \p{NFKD_Quick_Check: Y} \p{NFKD_Quick_Check=Yes} (NOT
+                             \p{NFKD_Quick_Check} NOR \p{NFKD_QC})
+                             (1_097_219 plus all above-Unicode code
+                             points)
+   \p{NFKD_Quick_Check: Yes} (Short: \p{NFKDQC=Y}; NOT
+                             \p{NFKD_Quick_Check} NOR \p{NFKD_QC})
+                             (1_097_219 plus all above-Unicode code
+                             points)
+   \p{Nko}                 \p{Script=Nko} (NOT \p{NKo}) (59)
+   \p{Nkoo}                \p{Nko} (= \p{Script=Nko}) (NOT \p{NKo})
+                             (59)
+   \p{Nl}                  \p{Letter_Number} (= \p{General_Category=
+                             Letter_Number}) (236)
+   \p{No}                  \p{Other_Number} (= \p{General_Category=
+                             Other_Number}) (647)
+ X \p{No_Block}            \p{Block=No_Block} (Short: \p{InNB})
+                             (849_856 plus all above-Unicode code
+                             points)
+   \p{Noncharacter_Code_Point} \p{Noncharacter_Code_Point=Y} (Short:
+                             \p{NChar}) (66)
+   \p{Noncharacter_Code_Point: N*} (Short: \p{NChar=N}, \P{NChar})
+                             (1_114_046 plus all above-Unicode code
+                             points)
+   \p{Noncharacter_Code_Point: Y*} (Short: \p{NChar=Y}, \p{NChar})
+                             (66)
+   \p{Nonspacing_Mark}     \p{General_Category=Nonspacing_Mark}
+                             (Short: \p{Mn}) (1567)
+   \p{Nt: *}               \p{Numeric_Type: *}
+   \p{Number}              \p{General_Category=Number} (Short: \p{N})
+                             (1433)
+ X \p{Number_Forms}        \p{Block=Number_Forms} (64)
+   \p{Numeric_Type: De}    \p{Numeric_Type=Decimal} (550)
+   \p{Numeric_Type: Decimal} (Short: \p{Nt=De}) (550)
+   \p{Numeric_Type: Di}    \p{Numeric_Type=Digit} (128)
+   \p{Numeric_Type: Digit} (Short: \p{Nt=Di}) (128)
+   \p{Numeric_Type: None}  (Short: \p{Nt=None}) (1_112_598 plus all
+                             above-Unicode code points)
+   \p{Numeric_Type: Nu}    \p{Numeric_Type=Numeric} (836)
+   \p{Numeric_Type: Numeric} (Short: \p{Nt=Nu}) (836)
+ T \p{Numeric_Value: -1/2} (Short: \p{Nv=-1/2}) (1)
+ T \p{Numeric_Value: 0}    (Short: \p{Nv=0}) (71)
+ T \p{Numeric_Value: 1/16} (Short: \p{Nv=1/16}) (3)
+ T \p{Numeric_Value: 1/12} (Short: \p{Nv=1/12}) (1)
+ T \p{Numeric_Value: 1/10} (Short: \p{Nv=1/10}) (1)
+ T \p{Numeric_Value: 1/9}  (Short: \p{Nv=1/9}) (1)
+ T \p{Numeric_Value: 1/8}  (Short: \p{Nv=1/8}) (5)
+ T \p{Numeric_Value: 1/7}  (Short: \p{Nv=1/7}) (1)
+ T \p{Numeric_Value: 1/6}  (Short: \p{Nv=1/6}) (3)
+ T \p{Numeric_Value: 3/16} (Short: \p{Nv=3/16}) (3)
+ T \p{Numeric_Value: 1/5}  (Short: \p{Nv=1/5}) (1)
+ T \p{Numeric_Value: 1/4}  (Short: \p{Nv=1/4}) (12)
+ T \p{Numeric_Value: 1/3}  (Short: \p{Nv=1/3}) (6)
+ T \p{Numeric_Value: 3/8}  (Short: \p{Nv=3/8}) (1)
+ T \p{Numeric_Value: 2/5}  (Short: \p{Nv=2/5}) (1)
+ T \p{Numeric_Value: 5/12} (Short: \p{Nv=5/12}) (1)
+ T \p{Numeric_Value: 1/2}  (Short: \p{Nv=1/2}) (13)
+ T \p{Numeric_Value: 7/12} (Short: \p{Nv=7/12}) (1)
+ T \p{Numeric_Value: 3/5}  (Short: \p{Nv=3/5}) (1)
+ T \p{Numeric_Value: 5/8}  (Short: \p{Nv=5/8}) (1)
+ T \p{Numeric_Value: 2/3}  (Short: \p{Nv=2/3}) (7)
+ T \p{Numeric_Value: 3/4}  (Short: \p{Nv=3/4}) (7)
+ T \p{Numeric_Value: 4/5}  (Short: \p{Nv=4/5}) (1)
+ T \p{Numeric_Value: 5/6}  (Short: \p{Nv=5/6}) (3)
+ T \p{Numeric_Value: 7/8}  (Short: \p{Nv=7/8}) (1)
+ T \p{Numeric_Value: 11/12} (Short: \p{Nv=11/12}) (1)
+ T \p{Numeric_Value: 1}    (Short: \p{Nv=1}) (117)
+ T \p{Numeric_Value: 3/2}  (Short: \p{Nv=3/2}) (1)
+ T \p{Numeric_Value: 2}    (Short: \p{Nv=2}) (117)
+ T \p{Numeric_Value: 5/2}  (Short: \p{Nv=5/2}) (1)
+ T \p{Numeric_Value: 3}    (Short: \p{Nv=3}) (119)
+ T \p{Numeric_Value: 7/2}  (Short: \p{Nv=7/2}) (1)
+ T \p{Numeric_Value: 4}    (Short: \p{Nv=4}) (111)
+ T \p{Numeric_Value: 9/2}  (Short: \p{Nv=9/2}) (1)
+ T \p{Numeric_Value: 5}    (Short: \p{Nv=5}) (109)
+ T \p{Numeric_Value: 11/2} (Short: \p{Nv=11/2}) (1)
+ T \p{Numeric_Value: 6}    (Short: \p{Nv=6}) (96)
+ T \p{Numeric_Value: 13/2} (Short: \p{Nv=13/2}) (1)
+ T \p{Numeric_Value: 7}    (Short: \p{Nv=7}) (95)
+ T \p{Numeric_Value: 15/2} (Short: \p{Nv=15/2}) (1)
+ T \p{Numeric_Value: 8}    (Short: \p{Nv=8}) (91)
+ T \p{Numeric_Value: 17/2} (Short: \p{Nv=17/2}) (1)
+ T \p{Numeric_Value: 9}    (Short: \p{Nv=9}) (95)
+ T \p{Numeric_Value: 10}   (Short: \p{Nv=10}) (53)
+ T \p{Numeric_Value: 11}   (Short: \p{Nv=11}) (6)
+ T \p{Numeric_Value: 12}   (Short: \p{Nv=12}) (6)
+ T \p{Numeric_Value: 13}   (Short: \p{Nv=13}) (4)
+ T \p{Numeric_Value: 14}   (Short: \p{Nv=14}) (4)
+ T \p{Numeric_Value: 15}   (Short: \p{Nv=15}) (4)
+ T \p{Numeric_Value: 16}   (Short: \p{Nv=16}) (5)
+ T \p{Numeric_Value: 17}   (Short: \p{Nv=17}) (5)
+ T \p{Numeric_Value: 18}   (Short: \p{Nv=18}) (5)
+ T \p{Numeric_Value: 19}   (Short: \p{Nv=19}) (5)
+ T \p{Numeric_Value: 20}   (Short: \p{Nv=20}) (30)
+ T \p{Numeric_Value: 21}   (Short: \p{Nv=21}) (1)
+ T \p{Numeric_Value: 22}   (Short: \p{Nv=22}) (1)
+ T \p{Numeric_Value: 23}   (Short: \p{Nv=23}) (1)
+ T \p{Numeric_Value: 24}   (Short: \p{Nv=24}) (1)
+ T \p{Numeric_Value: 25}   (Short: \p{Nv=25}) (1)
+ T \p{Numeric_Value: 26}   (Short: \p{Nv=26}) (1)
+ T \p{Numeric_Value: 27}   (Short: \p{Nv=27}) (1)
+ T \p{Numeric_Value: 28}   (Short: \p{Nv=28}) (1)
+ T \p{Numeric_Value: 29}   (Short: \p{Nv=29}) (1)
+ T \p{Numeric_Value: 30}   (Short: \p{Nv=30}) (15)
+ T \p{Numeric_Value: 31}   (Short: \p{Nv=31}) (1)
+ T \p{Numeric_Value: 32}   (Short: \p{Nv=32}) (1)
+ T \p{Numeric_Value: 33}   (Short: \p{Nv=33}) (1)
+ T \p{Numeric_Value: 34}   (Short: \p{Nv=34}) (1)
+ T \p{Numeric_Value: 35}   (Short: \p{Nv=35}) (1)
+ T \p{Numeric_Value: 36}   (Short: \p{Nv=36}) (1)
+ T \p{Numeric_Value: 37}   (Short: \p{Nv=37}) (1)
+ T \p{Numeric_Value: 38}   (Short: \p{Nv=38}) (1)
+ T \p{Numeric_Value: 39}   (Short: \p{Nv=39}) (1)
+ T \p{Numeric_Value: 40}   (Short: \p{Nv=40}) (15)
+ T \p{Numeric_Value: 41}   (Short: \p{Nv=41}) (1)
+ T \p{Numeric_Value: 42}   (Short: \p{Nv=42}) (1)
+ T \p{Numeric_Value: 43}   (Short: \p{Nv=43}) (1)
+ T \p{Numeric_Value: 44}   (Short: \p{Nv=44}) (1)
+ T \p{Numeric_Value: 45}   (Short: \p{Nv=45}) (1)
+ T \p{Numeric_Value: 46}   (Short: \p{Nv=46}) (1)
+ T \p{Numeric_Value: 47}   (Short: \p{Nv=47}) (1)
+ T \p{Numeric_Value: 48}   (Short: \p{Nv=48}) (1)
+ T \p{Numeric_Value: 49}   (Short: \p{Nv=49}) (1)
+ T \p{Numeric_Value: 50}   (Short: \p{Nv=50}) (26)
+ T \p{Numeric_Value: 60}   (Short: \p{Nv=60}) (10)
+ T \p{Numeric_Value: 70}   (Short: \p{Nv=70}) (10)
+ T \p{Numeric_Value: 80}   (Short: \p{Nv=80}) (9)
+ T \p{Numeric_Value: 90}   (Short: \p{Nv=90}) (9)
+ T \p{Numeric_Value: 100}  (Short: \p{Nv=100}) (29)
+ T \p{Numeric_Value: 200}  (Short: \p{Nv=200}) (4)
+ T \p{Numeric_Value: 300}  (Short: \p{Nv=300}) (5)
+ T \p{Numeric_Value: 400}  (Short: \p{Nv=400}) (4)
+ T \p{Numeric_Value: 500}  (Short: \p{Nv=500}) (14)
+ T \p{Numeric_Value: 600}  (Short: \p{Nv=600}) (4)
+ T \p{Numeric_Value: 700}  (Short: \p{Nv=700}) (4)
+ T \p{Numeric_Value: 800}  (Short: \p{Nv=800}) (4)
+ T \p{Numeric_Value: 900}  (Short: \p{Nv=900}) (5)
+ T \p{Numeric_Value: 1000} (Short: \p{Nv=1000}) (20)
+ T \p{Numeric_Value: 2000} (Short: \p{Nv=2000}) (2)
+ T \p{Numeric_Value: 3000} (Short: \p{Nv=3000}) (2)
+ T \p{Numeric_Value: 4000} (Short: \p{Nv=4000}) (2)
+ T \p{Numeric_Value: 5000} (Short: \p{Nv=5000}) (6)
+ T \p{Numeric_Value: 6000} (Short: \p{Nv=6000}) (2)
+ T \p{Numeric_Value: 7000} (Short: \p{Nv=7000}) (2)
+ T \p{Numeric_Value: 8000} (Short: \p{Nv=8000}) (2)
+ T \p{Numeric_Value: 9000} (Short: \p{Nv=9000}) (2)
+ T \p{Numeric_Value: 10000} (= 1.0e+04) (Short: \p{Nv=10000}) (9)
+ T \p{Numeric_Value: 20000} (= 2.0e+04) (Short: \p{Nv=20000}) (2)
+ T \p{Numeric_Value: 30000} (= 3.0e+04) (Short: \p{Nv=30000}) (2)
+ T \p{Numeric_Value: 40000} (= 4.0e+04) (Short: \p{Nv=40000}) (2)
+ T \p{Numeric_Value: 50000} (= 5.0e+04) (Short: \p{Nv=50000}) (5)
+ T \p{Numeric_Value: 60000} (= 6.0e+04) (Short: \p{Nv=60000}) (2)
+ T \p{Numeric_Value: 70000} (= 7.0e+04) (Short: \p{Nv=70000}) (2)
+ T \p{Numeric_Value: 80000} (= 8.0e+04) (Short: \p{Nv=80000}) (2)
+ T \p{Numeric_Value: 90000} (= 9.0e+04) (Short: \p{Nv=90000}) (2)
+ T \p{Numeric_Value: 100000} (= 1.0e+05) (Short: \p{Nv=100000}) (2)
+ T \p{Numeric_Value: 200000} (= 2.0e+05) (Short: \p{Nv=200000}) (1)
+ T \p{Numeric_Value: 216000} (= 2.2e+05) (Short: \p{Nv=216000}) (1)
+ T \p{Numeric_Value: 300000} (= 3.0e+05) (Short: \p{Nv=300000}) (1)
+ T \p{Numeric_Value: 400000} (= 4.0e+05) (Short: \p{Nv=400000}) (1)
+ T \p{Numeric_Value: 432000} (= 4.3e+05) (Short: \p{Nv=432000}) (1)
+ T \p{Numeric_Value: 500000} (= 5.0e+05) (Short: \p{Nv=500000}) (1)
+ T \p{Numeric_Value: 600000} (= 6.0e+05) (Short: \p{Nv=600000}) (1)
+ T \p{Numeric_Value: 700000} (= 7.0e+05) (Short: \p{Nv=700000}) (1)
+ T \p{Numeric_Value: 800000} (= 8.0e+05) (Short: \p{Nv=800000}) (1)
+ T \p{Numeric_Value: 900000} (= 9.0e+05) (Short: \p{Nv=900000}) (1)
+ T \p{Numeric_Value: 1000000} (= 1.0e+06) (Short: \p{Nv=1000000}) (1)
+ T \p{Numeric_Value: 100000000} (= 1.0e+08) (Short: \p{Nv=100000000})
+                             (3)
+ T \p{Numeric_Value: 10000000000} (= 1.0e+10) (Short: \p{Nv=
+                             10000000000}) (1)
+ T \p{Numeric_Value: 1000000000000} (= 1.0e+12) (Short: \p{Nv=
+                             1000000000000}) (2)
+   \p{Numeric_Value: NaN}  (Short: \p{Nv=NaN}) (1_112_598 plus all
+                             above-Unicode code points)
+   \p{Nv: *}               \p{Numeric_Value: *}
+ X \p{OCR}                 \p{Optical_Character_Recognition} (=
+                             \p{Block=Optical_Character_Recognition})
+                             (32)
+   \p{Ogam}                \p{Ogham} (= \p{Script=Ogham}) (NOT
+                             \p{Block=Ogham}) (29)
+   \p{Ogham}               \p{Script=Ogham} (Short: \p{Ogam}; NOT
+                             \p{Block=Ogham}) (29)
+   \p{Ol_Chiki}            \p{Script=Ol_Chiki} (Short: \p{Olck}) (48)
+   \p{Olck}                \p{Ol_Chiki} (= \p{Script=Ol_Chiki}) (48)
+   \p{Old_Hungarian}       \p{Script=Old_Hungarian} (Short: \p{Hung};
+                             NOT \p{Block=Old_Hungarian}) (108)
+   \p{Old_Italic}          \p{Script=Old_Italic} (Short: \p{Ital};
+                             NOT \p{Block=Old_Italic}) (36)
+   \p{Old_North_Arabian}   \p{Script=Old_North_Arabian} (Short:
+                             \p{Narb}) (32)
+   \p{Old_Permic}          \p{Script=Old_Permic} (Short: \p{Perm};
+                             NOT \p{Block=Old_Permic}) (43)
+   \p{Old_Persian}         \p{Script=Old_Persian} (Short: \p{Xpeo};
+                             NOT \p{Block=Old_Persian}) (50)
+   \p{Old_South_Arabian}   \p{Script=Old_South_Arabian} (Short:
+                             \p{Sarb}) (32)
+   \p{Old_Turkic}          \p{Script=Old_Turkic} (Short: \p{Orkh};
+                             NOT \p{Block=Old_Turkic}) (73)
+   \p{Open_Punctuation}    \p{General_Category=Open_Punctuation}
+                             (Short: \p{Ps}) (75)
+ X \p{Optical_Character_Recognition} \p{Block=
+                             Optical_Character_Recognition} (Short:
+                             \p{InOCR}) (32)
+   \p{Oriya}               \p{Script=Oriya} (Short: \p{Orya}; NOT
+                             \p{Block=Oriya}) (90)
+   \p{Orkh}                \p{Old_Turkic} (= \p{Script=Old_Turkic})
+                             (NOT \p{Block=Old_Turkic}) (73)
+ X \p{Ornamental_Dingbats} \p{Block=Ornamental_Dingbats} (48)
+   \p{Orya}                \p{Oriya} (= \p{Script=Oriya}) (NOT
+                             \p{Block=Oriya}) (90)
+   \p{Osma}                \p{Osmanya} (= \p{Script=Osmanya}) (NOT
+                             \p{Block=Osmanya}) (40)
+   \p{Osmanya}             \p{Script=Osmanya} (Short: \p{Osma}; NOT
+                             \p{Block=Osmanya}) (40)
+   \p{Other}               \p{General_Category=Other} (Short: \p{C})
+                             (993_590 plus all above-Unicode code
+                             points)
+   \p{Other_Letter}        \p{General_Category=Other_Letter} (Short:
+                             \p{Lo}) (105_697)
+   \p{Other_Number}        \p{General_Category=Other_Number} (Short:
+                             \p{No}) (647)
+   \p{Other_Punctuation}   \p{General_Category=Other_Punctuation}
+                             (Short: \p{Po}) (513)
+   \p{Other_Symbol}        \p{General_Category=Other_Symbol} (Short:
+                             \p{So}) (5677)
+   \p{P} \pP               \p{Punct} (= \p{General_Category=
+                             Punctuation}) (NOT
+                             \p{General_Punctuation}) (717)
+   \p{Pahawh_Hmong}        \p{Script=Pahawh_Hmong} (Short: \p{Hmng};
+                             NOT \p{Block=Pahawh_Hmong}) (127)
+   \p{Palm}                \p{Palmyrene} (= \p{Script=Palmyrene}) (32)
+   \p{Palmyrene}           \p{Script=Palmyrene} (Short: \p{Palm}) (32)
+   \p{Paragraph_Separator} \p{General_Category=Paragraph_Separator}
+                             (Short: \p{Zp}) (1)
+   \p{Pat_Syn}             \p{Pattern_Syntax} (= \p{Pattern_Syntax=
+                             Y}) (2760)
+   \p{Pat_Syn: *}          \p{Pattern_Syntax: *}
+   \p{Pat_WS}              \p{Pattern_White_Space} (=
+                             \p{Pattern_White_Space=Y}) (11)
+   \p{Pat_WS: *}           \p{Pattern_White_Space: *}
+   \p{Pattern_Syntax}      \p{Pattern_Syntax=Y} (Short: \p{PatSyn})
+                             (2760)
+   \p{Pattern_Syntax: N*}  (Short: \p{PatSyn=N}, \P{PatSyn})
+                             (1_111_352 plus all above-Unicode code
+                             points)
+   \p{Pattern_Syntax: Y*}  (Short: \p{PatSyn=Y}, \p{PatSyn}) (2760)
+   \p{Pattern_White_Space} \p{Pattern_White_Space=Y} (Short:
+                             \p{PatWS}) (11)
+   \p{Pattern_White_Space: N*} (Short: \p{PatWS=N}, \P{PatWS})
+                             (1_114_101 plus all above-Unicode code
+                             points)
+   \p{Pattern_White_Space: Y*} (Short: \p{PatWS=Y}, \p{PatWS}) (11)
+   \p{Pau_Cin_Hau}         \p{Script=Pau_Cin_Hau} (Short: \p{Pauc};
+                             NOT \p{Block=Pau_Cin_Hau}) (57)
+   \p{Pauc}                \p{Pau_Cin_Hau} (= \p{Script=Pau_Cin_Hau})
+                             (NOT \p{Block=Pau_Cin_Hau}) (57)
+   \p{Pc}                  \p{Connector_Punctuation} (=
+                             \p{General_Category=
+                             Connector_Punctuation}) (10)
+   \p{Pd}                  \p{Dash_Punctuation} (=
+                             \p{General_Category=Dash_Punctuation})
+                             (24)
+   \p{Pe}                  \p{Close_Punctuation} (=
+                             \p{General_Category=Close_Punctuation})
+                             (73)
+   \p{PerlSpace}           \p{PosixSpace} (6)
+   \p{PerlWord}            \p{PosixWord} (63)
+   \p{Perm}                \p{Old_Permic} (= \p{Script=Old_Permic})
+                             (NOT \p{Block=Old_Permic}) (43)
+   \p{Pf}                  \p{Final_Punctuation} (=
+                             \p{General_Category=Final_Punctuation})
+                             (10)
+   \p{Phag}                \p{Phags_Pa} (= \p{Script=Phags_Pa}) (NOT
+                             \p{Block=Phags_Pa}) (56)
+   \p{Phags_Pa}            \p{Script=Phags_Pa} (Short: \p{Phag}; NOT
+                             \p{Block=Phags_Pa}) (56)
+ X \p{Phaistos}            \p{Phaistos_Disc} (= \p{Block=
+                             Phaistos_Disc}) (48)
+ X \p{Phaistos_Disc}       \p{Block=Phaistos_Disc} (Short:
+                             \p{InPhaistos}) (48)
+   \p{Phli}                \p{Inscriptional_Pahlavi} (= \p{Script=
+                             Inscriptional_Pahlavi}) (NOT \p{Block=
+                             Inscriptional_Pahlavi}) (27)
+   \p{Phlp}                \p{Psalter_Pahlavi} (= \p{Script=
+                             Psalter_Pahlavi}) (NOT \p{Block=
+                             Psalter_Pahlavi}) (29)
+   \p{Phnx}                \p{Phoenician} (= \p{Script=Phoenician})
+                             (NOT \p{Block=Phoenician}) (29)
+   \p{Phoenician}          \p{Script=Phoenician} (Short: \p{Phnx};
+                             NOT \p{Block=Phoenician}) (29)
+ X \p{Phonetic_Ext}        \p{Phonetic_Extensions} (= \p{Block=
+                             Phonetic_Extensions}) (128)
+ X \p{Phonetic_Ext_Sup}    \p{Phonetic_Extensions_Supplement} (=
+                             \p{Block=
+                             Phonetic_Extensions_Supplement}) (64)
+ X \p{Phonetic_Extensions} \p{Block=Phonetic_Extensions} (Short:
+                             \p{InPhoneticExt}) (128)
+ X \p{Phonetic_Extensions_Supplement} \p{Block=
+                             Phonetic_Extensions_Supplement} (Short:
+                             \p{InPhoneticExtSup}) (64)
+   \p{Pi}                  \p{Initial_Punctuation} (=
+                             \p{General_Category=
+                             Initial_Punctuation}) (12)
+ X \p{Playing_Cards}       \p{Block=Playing_Cards} (96)
+   \p{Plrd}                \p{Miao} (= \p{Script=Miao}) (NOT
+                             \p{Block=Miao}) (133)
+   \p{Po}                  \p{Other_Punctuation} (=
+                             \p{General_Category=Other_Punctuation})
+                             (513)
+   \p{PosixAlnum}          [A-Za-z0-9] (62)
+   \p{PosixAlpha}          [A-Za-z] (52)
+   \p{PosixBlank}          \t and ' ' (2)
+   \p{PosixCntrl}          ASCII control characters: NUL, SOH, STX,
+                             ETX, EOT, ENQ, ACK, BEL, BS, HT, LF, VT,
+                             FF, CR, SO, SI, DLE, DC1, DC2, DC3, DC4,
+                             NAK, SYN, ETB, CAN, EOM, SUB, ESC, FS,
+                             GS, RS, US, and DEL (33)
+   \p{PosixDigit}          [0-9] (10)
+   \p{PosixGraph}          [-!"#$%&'()*+,./:;<=>?@[\\]^_`{|}~0-9A-Za-
+                             z] (94)
+   \p{PosixLower}          [a-z] (/i= PosixAlpha) (26)
+   \p{PosixPrint}          [- 0-9A-Za-z!"#$%&'()*+,./:;<=
+                             >?@[\\]^_`{|}~] (95)
+   \p{PosixPunct}          [-!"#$%&'()*+,./:;<=>?@[\\]^_`{|}~] (32)
+   \p{PosixSpace}          \t, \n, \cK, \f, \r, and ' '.  (\cK is
+                             vertical tab) (Short: \p{PerlSpace}) (6)
+   \p{PosixUpper}          [A-Z] (/i= PosixAlpha) (26)
+   \p{PosixWord}           \w, restricted to ASCII = [A-Za-z0-9_]
+                             (Short: \p{PerlWord}) (63)
+   \p{PosixXDigit}         \p{ASCII_Hex_Digit=Y} [0-9A-Fa-f] (Short:
+                             \p{AHex}) (22)
+ T \p{Present_In: 1.1}     \p{Age=V1_1} (Short: \p{In=1.1}) (Perl
+                             extension) (33_979)
+ T \p{Present_In: 2.0}     Code point's usage introduced in version
+                             2.0 or earlier (Short: \p{In=2.0}) (Perl
+                             extension) (178_500)
+ T \p{Present_In: 2.1}     Code point's usage introduced in version
+                             2.1 or earlier (Short: \p{In=2.1}) (Perl
+                             extension) (178_502)
+ T \p{Present_In: 3.0}     Code point's usage introduced in version
+                             3.0 or earlier (Short: \p{In=3.0}) (Perl
+                             extension) (188_809)
+ T \p{Present_In: 3.1}     Code point's usage introduced in version
+                             3.1 or earlier (Short: \p{In=3.1}) (Perl
+                             extension) (233_787)
+ T \p{Present_In: 3.2}     Code point's usage introduced in version
+                             3.2 or earlier (Short: \p{In=3.2}) (Perl
+                             extension) (234_803)
+ T \p{Present_In: 4.0}     Code point's usage introduced in version
+                             4.0 or earlier (Short: \p{In=4.0}) (Perl
+                             extension) (236_029)
+ T \p{Present_In: 4.1}     Code point's usage introduced in version
+                             4.1 or earlier (Short: \p{In=4.1}) (Perl
+                             extension) (237_302)
+ T \p{Present_In: 5.0}     Code point's usage introduced in version
+                             5.0 or earlier (Short: \p{In=5.0}) (Perl
+                             extension) (238_671)
+ T \p{Present_In: 5.1}     Code point's usage introduced in version
+                             5.1 or earlier (Short: \p{In=5.1}) (Perl
+                             extension) (240_295)
+ T \p{Present_In: 5.2}     Code point's usage introduced in version
+                             5.2 or earlier (Short: \p{In=5.2}) (Perl
+                             extension) (246_943)
+ T \p{Present_In: 6.0}     Code point's usage introduced in version
+                             6.0 or earlier (Short: \p{In=6.0}) (Perl
+                             extension) (249_031)
+ T \p{Present_In: 6.1}     Code point's usage introduced in version
+                             6.1 or earlier (Short: \p{In=6.1}) (Perl
+                             extension) (249_763)
+ T \p{Present_In: 6.2}     Code point's usage introduced in version
+                             6.2 or earlier (Short: \p{In=6.2}) (Perl
+                             extension) (249_764)
+ T \p{Present_In: 6.3}     Code point's usage introduced in version
+                             6.3 or earlier (Short: \p{In=6.3}) (Perl
+                             extension) (249_769)
+ T \p{Present_In: 7.0}     Code point's usage introduced in version
+                             7.0 or earlier (Short: \p{In=7.0}) (Perl
+                             extension) (252_603)
+ T \p{Present_In: 8.0}     Code point's usage introduced in version
+                             8.0 or earlier (Short: \p{In=8.0}) (Perl
+                             extension) (260_319)
+   \p{Present_In: Unassigned} \p{Age=Unassigned} (Short: \p{In=
+                             Unassigned}) (Perl extension) (853_793
+                             plus all above-Unicode code points)
+   \p{Print}               \p{XPosixPrint} (258_138)
+   \p{Private_Use}         \p{General_Category=Private_Use} (Short:
+                             \p{Co}; NOT \p{Private_Use_Area})
+                             (137_468)
+ X \p{Private_Use_Area}    \p{Block=Private_Use_Area} (Short:
+                             \p{InPUA}) (6400)
+   \p{Prti}                \p{Inscriptional_Parthian} (= \p{Script=
+                             Inscriptional_Parthian}) (NOT \p{Block=
+                             Inscriptional_Parthian}) (30)
+   \p{Ps}                  \p{Open_Punctuation} (=
+                             \p{General_Category=Open_Punctuation})
+                             (75)
+   \p{Psalter_Pahlavi}     \p{Script=Psalter_Pahlavi} (Short:
+                             \p{Phlp}; NOT \p{Block=Psalter_Pahlavi})
+                             (29)
+ X \p{PUA}                 \p{Private_Use_Area} (= \p{Block=
+                             Private_Use_Area}) (6400)
+   \p{Punct}               \p{General_Category=Punctuation} (Short:
+                             \p{P}; NOT \p{General_Punctuation}) (717)
+   \p{Punctuation}         \p{Punct} (= \p{General_Category=
+                             Punctuation}) (NOT
+                             \p{General_Punctuation}) (717)
+   \p{Qaac}                \p{Coptic} (= \p{Script=Coptic}) (NOT
+                             \p{Block=Coptic}) (137)
+   \p{Qaai}                \p{Inherited} (= \p{Script=Inherited})
+                             (563)
+   \p{QMark}               \p{Quotation_Mark} (= \p{Quotation_Mark=
+                             Y}) (30)
+   \p{QMark: *}            \p{Quotation_Mark: *}
+   \p{Quotation_Mark}      \p{Quotation_Mark=Y} (Short: \p{QMark})
+                             (30)
+   \p{Quotation_Mark: N*}  (Short: \p{QMark=N}, \P{QMark}) (1_114_082
+                             plus all above-Unicode code points)
+   \p{Quotation_Mark: Y*}  (Short: \p{QMark=Y}, \p{QMark}) (30)
+   \p{Radical}             \p{Radical=Y} (329)
+   \p{Radical: N*}         (Single: \P{Radical}) (1_113_783 plus all
+                             above-Unicode code points)
+   \p{Radical: Y*}         (Single: \p{Radical}) (329)
+   \p{Rejang}              \p{Script=Rejang} (Short: \p{Rjng}; NOT
+                             \p{Block=Rejang}) (37)
+   \p{Rjng}                \p{Rejang} (= \p{Script=Rejang}) (NOT
+                             \p{Block=Rejang}) (37)
+ X \p{Rumi}                \p{Rumi_Numeral_Symbols} (= \p{Block=
+                             Rumi_Numeral_Symbols}) (32)
+ X \p{Rumi_Numeral_Symbols} \p{Block=Rumi_Numeral_Symbols} (Short:
+                             \p{InRumi}) (32)
+   \p{Runic}               \p{Script=Runic} (Short: \p{Runr}; NOT
+                             \p{Block=Runic}) (86)
+   \p{Runr}                \p{Runic} (= \p{Script=Runic}) (NOT
+                             \p{Block=Runic}) (86)
+   \p{S} \pS               \p{Symbol} (= \p{General_Category=Symbol})
+                             (6799)
+   \p{Samaritan}           \p{Script=Samaritan} (Short: \p{Samr}; NOT
+                             \p{Block=Samaritan}) (61)
+   \p{Samr}                \p{Samaritan} (= \p{Script=Samaritan})
+                             (NOT \p{Block=Samaritan}) (61)
+   \p{Sarb}                \p{Old_South_Arabian} (= \p{Script=
+                             Old_South_Arabian}) (32)
+   \p{Saur}                \p{Saurashtra} (= \p{Script=Saurashtra})
+                             (NOT \p{Block=Saurashtra}) (81)
+   \p{Saurashtra}          \p{Script=Saurashtra} (Short: \p{Saur};
+                             NOT \p{Block=Saurashtra}) (81)
+   \p{SB: *}               \p{Sentence_Break: *}
+   \p{Sc}                  \p{Currency_Symbol} (=
+                             \p{General_Category=Currency_Symbol})
+                             (53)
+   \p{Sc: *}               \p{Script: *}
+   \p{Script: Aghb}        \p{Script=Caucasian_Albanian} (53)
+   \p{Script: Ahom}        (Short: \p{Sc=Ahom}, \p{Ahom}) (57)
+   \p{Script: Anatolian_Hieroglyphs} (Short: \p{Sc=Hluw}, \p{Hluw})
+                             (583)
+   \p{Script: Arab}        \p{Script=Arabic} (1257)
+   \p{Script: Arabic}      (Short: \p{Sc=Arab}, \p{Arab}) (1257)
+   \p{Script: Armenian}    (Short: \p{Sc=Armn}, \p{Armn}) (93)
+   \p{Script: Armi}        \p{Script=Imperial_Aramaic} (31)
+   \p{Script: Armn}        \p{Script=Armenian} (93)
+   \p{Script: Avestan}     (Short: \p{Sc=Avst}, \p{Avst}) (61)
+   \p{Script: Avst}        \p{Script=Avestan} (61)
+   \p{Script: Bali}        \p{Script=Balinese} (121)
+   \p{Script: Balinese}    (Short: \p{Sc=Bali}, \p{Bali}) (121)
+   \p{Script: Bamu}        \p{Script=Bamum} (657)
+   \p{Script: Bamum}       (Short: \p{Sc=Bamu}, \p{Bamu}) (657)
+   \p{Script: Bass}        \p{Script=Bassa_Vah} (36)
+   \p{Script: Bassa_Vah}   (Short: \p{Sc=Bass}, \p{Bass}) (36)
+   \p{Script: Batak}       (Short: \p{Sc=Batk}, \p{Batk}) (56)
+   \p{Script: Batk}        \p{Script=Batak} (56)
+   \p{Script: Beng}        \p{Script=Bengali} (93)
+   \p{Script: Bengali}     (Short: \p{Sc=Beng}, \p{Beng}) (93)
+   \p{Script: Bopo}        \p{Script=Bopomofo} (70)
+   \p{Script: Bopomofo}    (Short: \p{Sc=Bopo}, \p{Bopo}) (70)
+   \p{Script: Brah}        \p{Script=Brahmi} (109)
+   \p{Script: Brahmi}      (Short: \p{Sc=Brah}, \p{Brah}) (109)
+   \p{Script: Brai}        \p{Script=Braille} (256)
+   \p{Script: Braille}     (Short: \p{Sc=Brai}, \p{Brai}) (256)
+   \p{Script: Bugi}        \p{Script=Buginese} (30)
+   \p{Script: Buginese}    (Short: \p{Sc=Bugi}, \p{Bugi}) (30)
+   \p{Script: Buhd}        \p{Script=Buhid} (20)
+   \p{Script: Buhid}       (Short: \p{Sc=Buhd}, \p{Buhd}) (20)
+   \p{Script: Cakm}        \p{Script=Chakma} (67)
+   \p{Script: Canadian_Aboriginal} (Short: \p{Sc=Cans}, \p{Cans})
+                             (710)
+   \p{Script: Cans}        \p{Script=Canadian_Aboriginal} (710)
+   \p{Script: Cari}        \p{Script=Carian} (49)
+   \p{Script: Carian}      (Short: \p{Sc=Cari}, \p{Cari}) (49)
+   \p{Script: Caucasian_Albanian} (Short: \p{Sc=Aghb}, \p{Aghb}) (53)
+   \p{Script: Chakma}      (Short: \p{Sc=Cakm}, \p{Cakm}) (67)
+   \p{Script: Cham}        (Short: \p{Sc=Cham}, \p{Cham}) (83)
+   \p{Script: Cher}        \p{Script=Cherokee} (172)
+   \p{Script: Cherokee}    (Short: \p{Sc=Cher}, \p{Cher}) (172)
+   \p{Script: Common}      (Short: \p{Sc=Zyyy}, \p{Zyyy}) (7179)
+   \p{Script: Copt}        \p{Script=Coptic} (137)
+   \p{Script: Coptic}      (Short: \p{Sc=Copt}, \p{Copt}) (137)
+   \p{Script: Cprt}        \p{Script=Cypriot} (55)
+   \p{Script: Cuneiform}   (Short: \p{Sc=Xsux}, \p{Xsux}) (1234)
+   \p{Script: Cypriot}     (Short: \p{Sc=Cprt}, \p{Cprt}) (55)
+   \p{Script: Cyrillic}    (Short: \p{Sc=Cyrl}, \p{Cyrl}) (434)
+   \p{Script: Cyrl}        \p{Script=Cyrillic} (434)
+   \p{Script: Deseret}     (Short: \p{Sc=Dsrt}, \p{Dsrt}) (80)
+   \p{Script: Deva}        \p{Script=Devanagari} (154)
+   \p{Script: Devanagari}  (Short: \p{Sc=Deva}, \p{Deva}) (154)
+   \p{Script: Dsrt}        \p{Script=Deseret} (80)
+   \p{Script: Dupl}        \p{Script=Duployan} (143)
+   \p{Script: Duployan}    (Short: \p{Sc=Dupl}, \p{Dupl}) (143)
+   \p{Script: Egyp}        \p{Script=Egyptian_Hieroglyphs} (1071)
+   \p{Script: Egyptian_Hieroglyphs} (Short: \p{Sc=Egyp}, \p{Egyp})
+                             (1071)
+   \p{Script: Elba}        \p{Script=Elbasan} (40)
+   \p{Script: Elbasan}     (Short: \p{Sc=Elba}, \p{Elba}) (40)
+   \p{Script: Ethi}        \p{Script=Ethiopic} (495)
+   \p{Script: Ethiopic}    (Short: \p{Sc=Ethi}, \p{Ethi}) (495)
+   \p{Script: Geor}        \p{Script=Georgian} (127)
+   \p{Script: Georgian}    (Short: \p{Sc=Geor}, \p{Geor}) (127)
+   \p{Script: Glag}        \p{Script=Glagolitic} (94)
+   \p{Script: Glagolitic}  (Short: \p{Sc=Glag}, \p{Glag}) (94)
+   \p{Script: Goth}        \p{Script=Gothic} (27)
+   \p{Script: Gothic}      (Short: \p{Sc=Goth}, \p{Goth}) (27)
+   \p{Script: Gran}        \p{Script=Grantha} (85)
+   \p{Script: Grantha}     (Short: \p{Sc=Gran}, \p{Gran}) (85)
+   \p{Script: Greek}       (Short: \p{Sc=Grek}, \p{Grek}) (516)
+   \p{Script: Grek}        \p{Script=Greek} (516)
+   \p{Script: Gujarati}    (Short: \p{Sc=Gujr}, \p{Gujr}) (85)
+   \p{Script: Gujr}        \p{Script=Gujarati} (85)
+   \p{Script: Gurmukhi}    (Short: \p{Sc=Guru}, \p{Guru}) (79)
+   \p{Script: Guru}        \p{Script=Gurmukhi} (79)
+   \p{Script: Han}         (Short: \p{Sc=Han}, \p{Han}) (81_734)
+   \p{Script: Hang}        \p{Script=Hangul} (11_739)
+   \p{Script: Hangul}      (Short: \p{Sc=Hang}, \p{Hang}) (11_739)
+   \p{Script: Hani}        \p{Script=Han} (81_734)
+   \p{Script: Hano}        \p{Script=Hanunoo} (21)
+   \p{Script: Hanunoo}     (Short: \p{Sc=Hano}, \p{Hano}) (21)
+   \p{Script: Hatr}        \p{Script=Hatran} (26)
+   \p{Script: Hatran}      (Short: \p{Sc=Hatr}, \p{Hatr}) (26)
+   \p{Script: Hebr}        \p{Script=Hebrew} (133)
+   \p{Script: Hebrew}      (Short: \p{Sc=Hebr}, \p{Hebr}) (133)
+   \p{Script: Hira}        \p{Script=Hiragana} (91)
+   \p{Script: Hiragana}    (Short: \p{Sc=Hira}, \p{Hira}) (91)
+   \p{Script: Hluw}        \p{Script=Anatolian_Hieroglyphs} (583)
+   \p{Script: Hmng}        \p{Script=Pahawh_Hmong} (127)
+   \p{Script: Hung}        \p{Script=Old_Hungarian} (108)
+   \p{Script: Imperial_Aramaic} (Short: \p{Sc=Armi}, \p{Armi}) (31)
+   \p{Script: Inherited}   (Short: \p{Sc=Zinh}, \p{Zinh}) (563)
+   \p{Script: Inscriptional_Pahlavi} (Short: \p{Sc=Phli}, \p{Phli})
+                             (27)
+   \p{Script: Inscriptional_Parthian} (Short: \p{Sc=Prti}, \p{Prti})
+                             (30)
+   \p{Script: Ital}        \p{Script=Old_Italic} (36)
+   \p{Script: Java}        \p{Script=Javanese} (90)
+   \p{Script: Javanese}    (Short: \p{Sc=Java}, \p{Java}) (90)
+   \p{Script: Kaithi}      (Short: \p{Sc=Kthi}, \p{Kthi}) (66)
+   \p{Script: Kali}        \p{Script=Kayah_Li} (47)
+   \p{Script: Kana}        \p{Script=Katakana} (300)
+   \p{Script: Kannada}     (Short: \p{Sc=Knda}, \p{Knda}) (87)
+   \p{Script: Katakana}    (Short: \p{Sc=Kana}, \p{Kana}) (300)
+   \p{Script: Kayah_Li}    (Short: \p{Sc=Kali}, \p{Kali}) (47)
+   \p{Script: Khar}        \p{Script=Kharoshthi} (65)
+   \p{Script: Kharoshthi}  (Short: \p{Sc=Khar}, \p{Khar}) (65)
+   \p{Script: Khmer}       (Short: \p{Sc=Khmr}, \p{Khmr}) (146)
+   \p{Script: Khmr}        \p{Script=Khmer} (146)
+   \p{Script: Khoj}        \p{Script=Khojki} (61)
+   \p{Script: Khojki}      (Short: \p{Sc=Khoj}, \p{Khoj}) (61)
+   \p{Script: Khudawadi}   (Short: \p{Sc=Sind}, \p{Sind}) (69)
+   \p{Script: Knda}        \p{Script=Kannada} (87)
+   \p{Script: Kthi}        \p{Script=Kaithi} (66)
+   \p{Script: Lana}        \p{Script=Tai_Tham} (127)
+   \p{Script: Lao}         (Short: \p{Sc=Lao}, \p{Lao}) (67)
+   \p{Script: Laoo}        \p{Script=Lao} (67)
+   \p{Script: Latin}       (Short: \p{Sc=Latn}, \p{Latn}) (1349)
+   \p{Script: Latn}        \p{Script=Latin} (1349)
+   \p{Script: Lepc}        \p{Script=Lepcha} (74)
+   \p{Script: Lepcha}      (Short: \p{Sc=Lepc}, \p{Lepc}) (74)
+   \p{Script: Limb}        \p{Script=Limbu} (68)
+   \p{Script: Limbu}       (Short: \p{Sc=Limb}, \p{Limb}) (68)
+   \p{Script: Lina}        \p{Script=Linear_A} (341)
+   \p{Script: Linb}        \p{Script=Linear_B} (211)
+   \p{Script: Linear_A}    (Short: \p{Sc=Lina}, \p{Lina}) (341)
+   \p{Script: Linear_B}    (Short: \p{Sc=Linb}, \p{Linb}) (211)
+   \p{Script: Lisu}        (Short: \p{Sc=Lisu}, \p{Lisu}) (48)
+   \p{Script: Lyci}        \p{Script=Lycian} (29)
+   \p{Script: Lycian}      (Short: \p{Sc=Lyci}, \p{Lyci}) (29)
+   \p{Script: Lydi}        \p{Script=Lydian} (27)
+   \p{Script: Lydian}      (Short: \p{Sc=Lydi}, \p{Lydi}) (27)
+   \p{Script: Mahajani}    (Short: \p{Sc=Mahj}, \p{Mahj}) (39)
+   \p{Script: Mahj}        \p{Script=Mahajani} (39)
+   \p{Script: Malayalam}   (Short: \p{Sc=Mlym}, \p{Mlym}) (100)
+   \p{Script: Mand}        \p{Script=Mandaic} (29)
+   \p{Script: Mandaic}     (Short: \p{Sc=Mand}, \p{Mand}) (29)
+   \p{Script: Mani}        \p{Script=Manichaean} (51)
+   \p{Script: Manichaean}  (Short: \p{Sc=Mani}, \p{Mani}) (51)
+   \p{Script: Meetei_Mayek} (Short: \p{Sc=Mtei}, \p{Mtei}) (79)
+   \p{Script: Mend}        \p{Script=Mende_Kikakui} (213)
+   \p{Script: Mende_Kikakui} (Short: \p{Sc=Mend}, \p{Mend}) (213)
+   \p{Script: Merc}        \p{Script=Meroitic_Cursive} (90)
+   \p{Script: Mero}        \p{Script=Meroitic_Hieroglyphs} (32)
+   \p{Script: Meroitic_Cursive} (Short: \p{Sc=Merc}, \p{Merc}) (90)
+   \p{Script: Meroitic_Hieroglyphs} (Short: \p{Sc=Mero}, \p{Mero})
+                             (32)
+   \p{Script: Miao}        (Short: \p{Sc=Miao}, \p{Miao}) (133)
+   \p{Script: Mlym}        \p{Script=Malayalam} (100)
+   \p{Script: Modi}        (Short: \p{Sc=Modi}, \p{Modi}) (79)
+   \p{Script: Mong}        \p{Script=Mongolian} (153)
+   \p{Script: Mongolian}   (Short: \p{Sc=Mong}, \p{Mong}) (153)
+   \p{Script: Mro}         (Short: \p{Sc=Mro}, \p{Mro}) (43)
+   \p{Script: Mroo}        \p{Script=Mro} (43)
+   \p{Script: Mtei}        \p{Script=Meetei_Mayek} (79)
+   \p{Script: Mult}        \p{Script=Multani} (38)
+   \p{Script: Multani}     (Short: \p{Sc=Mult}, \p{Mult}) (38)
+   \p{Script: Myanmar}     (Short: \p{Sc=Mymr}, \p{Mymr}) (223)
+   \p{Script: Mymr}        \p{Script=Myanmar} (223)
+   \p{Script: Nabataean}   (Short: \p{Sc=Nbat}, \p{Nbat}) (40)
+   \p{Script: Narb}        \p{Script=Old_North_Arabian} (32)
+   \p{Script: Nbat}        \p{Script=Nabataean} (40)
+   \p{Script: New_Tai_Lue} (Short: \p{Sc=Talu}, \p{Talu}) (83)
+   \p{Script: Nko}         (Short: \p{Sc=Nko}, \p{Nko}) (59)
+   \p{Script: Nkoo}        \p{Script=Nko} (59)
+   \p{Script: Ogam}        \p{Script=Ogham} (29)
+   \p{Script: Ogham}       (Short: \p{Sc=Ogam}, \p{Ogam}) (29)
+   \p{Script: Ol_Chiki}    (Short: \p{Sc=Olck}, \p{Olck}) (48)
+   \p{Script: Olck}        \p{Script=Ol_Chiki} (48)
+   \p{Script: Old_Hungarian} (Short: \p{Sc=Hung}, \p{Hung}) (108)
+   \p{Script: Old_Italic}  (Short: \p{Sc=Ital}, \p{Ital}) (36)
+   \p{Script: Old_North_Arabian} (Short: \p{Sc=Narb}, \p{Narb}) (32)
+   \p{Script: Old_Permic}  (Short: \p{Sc=Perm}, \p{Perm}) (43)
+   \p{Script: Old_Persian} (Short: \p{Sc=Xpeo}, \p{Xpeo}) (50)
+   \p{Script: Old_South_Arabian} (Short: \p{Sc=Sarb}, \p{Sarb}) (32)
+   \p{Script: Old_Turkic}  (Short: \p{Sc=Orkh}, \p{Orkh}) (73)
+   \p{Script: Oriya}       (Short: \p{Sc=Orya}, \p{Orya}) (90)
+   \p{Script: Orkh}        \p{Script=Old_Turkic} (73)
+   \p{Script: Orya}        \p{Script=Oriya} (90)
+   \p{Script: Osma}        \p{Script=Osmanya} (40)
+   \p{Script: Osmanya}     (Short: \p{Sc=Osma}, \p{Osma}) (40)
+   \p{Script: Pahawh_Hmong} (Short: \p{Sc=Hmng}, \p{Hmng}) (127)
+   \p{Script: Palm}        \p{Script=Palmyrene} (32)
+   \p{Script: Palmyrene}   (Short: \p{Sc=Palm}, \p{Palm}) (32)
+   \p{Script: Pau_Cin_Hau} (Short: \p{Sc=Pauc}, \p{Pauc}) (57)
+   \p{Script: Pauc}        \p{Script=Pau_Cin_Hau} (57)
+   \p{Script: Perm}        \p{Script=Old_Permic} (43)
+   \p{Script: Phag}        \p{Script=Phags_Pa} (56)
+   \p{Script: Phags_Pa}    (Short: \p{Sc=Phag}, \p{Phag}) (56)
+   \p{Script: Phli}        \p{Script=Inscriptional_Pahlavi} (27)
+   \p{Script: Phlp}        \p{Script=Psalter_Pahlavi} (29)
+   \p{Script: Phnx}        \p{Script=Phoenician} (29)
+   \p{Script: Phoenician}  (Short: \p{Sc=Phnx}, \p{Phnx}) (29)
+   \p{Script: Plrd}        \p{Script=Miao} (133)
+   \p{Script: Prti}        \p{Script=Inscriptional_Parthian} (30)
+   \p{Script: Psalter_Pahlavi} (Short: \p{Sc=Phlp}, \p{Phlp}) (29)
+   \p{Script: Qaac}        \p{Script=Coptic} (137)
+   \p{Script: Qaai}        \p{Script=Inherited} (563)
+   \p{Script: Rejang}      (Short: \p{Sc=Rjng}, \p{Rjng}) (37)
+   \p{Script: Rjng}        \p{Script=Rejang} (37)
+   \p{Script: Runic}       (Short: \p{Sc=Runr}, \p{Runr}) (86)
+   \p{Script: Runr}        \p{Script=Runic} (86)
+   \p{Script: Samaritan}   (Short: \p{Sc=Samr}, \p{Samr}) (61)
+   \p{Script: Samr}        \p{Script=Samaritan} (61)
+   \p{Script: Sarb}        \p{Script=Old_South_Arabian} (32)
+   \p{Script: Saur}        \p{Script=Saurashtra} (81)
+   \p{Script: Saurashtra}  (Short: \p{Sc=Saur}, \p{Saur}) (81)
+   \p{Script: Sgnw}        \p{Script=SignWriting} (672)
+   \p{Script: Sharada}     (Short: \p{Sc=Shrd}, \p{Shrd}) (94)
+   \p{Script: Shavian}     (Short: \p{Sc=Shaw}, \p{Shaw}) (48)
+   \p{Script: Shaw}        \p{Script=Shavian} (48)
+   \p{Script: Shrd}        \p{Script=Sharada} (94)
+   \p{Script: Sidd}        \p{Script=Siddham} (92)
+   \p{Script: Siddham}     (Short: \p{Sc=Sidd}, \p{Sidd}) (92)
+   \p{Script: SignWriting} (Short: \p{Sc=Sgnw}, \p{Sgnw}) (672)
+   \p{Script: Sind}        \p{Script=Khudawadi} (69)
+   \p{Script: Sinh}        \p{Script=Sinhala} (110)
+   \p{Script: Sinhala}     (Short: \p{Sc=Sinh}, \p{Sinh}) (110)
+   \p{Script: Sora}        \p{Script=Sora_Sompeng} (35)
+   \p{Script: Sora_Sompeng} (Short: \p{Sc=Sora}, \p{Sora}) (35)
+   \p{Script: Sund}        \p{Script=Sundanese} (72)
+   \p{Script: Sundanese}   (Short: \p{Sc=Sund}, \p{Sund}) (72)
+   \p{Script: Sylo}        \p{Script=Syloti_Nagri} (44)
+   \p{Script: Syloti_Nagri} (Short: \p{Sc=Sylo}, \p{Sylo}) (44)
+   \p{Script: Syrc}        \p{Script=Syriac} (77)
+   \p{Script: Syriac}      (Short: \p{Sc=Syrc}, \p{Syrc}) (77)
+   \p{Script: Tagalog}     (Short: \p{Sc=Tglg}, \p{Tglg}) (20)
+   \p{Script: Tagb}        \p{Script=Tagbanwa} (18)
+   \p{Script: Tagbanwa}    (Short: \p{Sc=Tagb}, \p{Tagb}) (18)
+   \p{Script: Tai_Le}      (Short: \p{Sc=Tale}, \p{Tale}) (35)
+   \p{Script: Tai_Tham}    (Short: \p{Sc=Lana}, \p{Lana}) (127)
+   \p{Script: Tai_Viet}    (Short: \p{Sc=Tavt}, \p{Tavt}) (72)
+   \p{Script: Takr}        \p{Script=Takri} (66)
+   \p{Script: Takri}       (Short: \p{Sc=Takr}, \p{Takr}) (66)
+   \p{Script: Tale}        \p{Script=Tai_Le} (35)
+   \p{Script: Talu}        \p{Script=New_Tai_Lue} (83)
+   \p{Script: Tamil}       (Short: \p{Sc=Taml}, \p{Taml}) (72)
+   \p{Script: Taml}        \p{Script=Tamil} (72)
+   \p{Script: Tavt}        \p{Script=Tai_Viet} (72)
+   \p{Script: Telu}        \p{Script=Telugu} (96)
+   \p{Script: Telugu}      (Short: \p{Sc=Telu}, \p{Telu}) (96)
+   \p{Script: Tfng}        \p{Script=Tifinagh} (59)
+   \p{Script: Tglg}        \p{Script=Tagalog} (20)
+   \p{Script: Thaa}        \p{Script=Thaana} (50)
+   \p{Script: Thaana}      (Short: \p{Sc=Thaa}, \p{Thaa}) (50)
+   \p{Script: Thai}        (Short: \p{Sc=Thai}, \p{Thai}) (86)
+   \p{Script: Tibetan}     (Short: \p{Sc=Tibt}, \p{Tibt}) (207)
+   \p{Script: Tibt}        \p{Script=Tibetan} (207)
+   \p{Script: Tifinagh}    (Short: \p{Sc=Tfng}, \p{Tfng}) (59)
+   \p{Script: Tirh}        \p{Script=Tirhuta} (82)
+   \p{Script: Tirhuta}     (Short: \p{Sc=Tirh}, \p{Tirh}) (82)
+   \p{Script: Ugar}        \p{Script=Ugaritic} (31)
+   \p{Script: Ugaritic}    (Short: \p{Sc=Ugar}, \p{Ugar}) (31)
+   \p{Script: Unknown}     (Short: \p{Sc=Zzzz}, \p{Zzzz}) (993_375
+                             plus all above-Unicode code points)
+   \p{Script: Vai}         (Short: \p{Sc=Vai}, \p{Vai}) (300)
+   \p{Script: Vaii}        \p{Script=Vai} (300)
+   \p{Script: Wara}        \p{Script=Warang_Citi} (84)
+   \p{Script: Warang_Citi} (Short: \p{Sc=Wara}, \p{Wara}) (84)
+   \p{Script: Xpeo}        \p{Script=Old_Persian} (50)
+   \p{Script: Xsux}        \p{Script=Cuneiform} (1234)
+   \p{Script: Yi}          (Short: \p{Sc=Yi}, \p{Yi}) (1220)
+   \p{Script: Yiii}        \p{Script=Yi} (1220)
+   \p{Script: Zinh}        \p{Script=Inherited} (563)
+   \p{Script: Zyyy}        \p{Script=Common} (7179)
+   \p{Script: Zzzz}        \p{Script=Unknown} (993_375 plus all
+                             above-Unicode code points)
+   \p{Script_Extensions: Aghb} \p{Script_Extensions=
+                             Caucasian_Albanian} (53)
+   \p{Script_Extensions: Ahom} (Short: \p{Scx=Ahom}) (57)
+   \p{Script_Extensions: Anatolian_Hieroglyphs} (Short: \p{Scx=Hluw})
+                             (583)
+   \p{Script_Extensions: Arab} \p{Script_Extensions=Arabic} (1301)
+   \p{Script_Extensions: Arabic} (Short: \p{Scx=Arab}) (1301)
+   \p{Script_Extensions: Armenian} (Short: \p{Scx=Armn}) (94)
+   \p{Script_Extensions: Armi} \p{Script_Extensions=Imperial_Aramaic}
+                             (31)
+   \p{Script_Extensions: Armn} \p{Script_Extensions=Armenian} (94)
+   \p{Script_Extensions: Avestan} (Short: \p{Scx=Avst}) (61)
+   \p{Script_Extensions: Avst} \p{Script_Extensions=Avestan} (61)
+   \p{Script_Extensions: Bali} \p{Script_Extensions=Balinese} (121)
+   \p{Script_Extensions: Balinese} (Short: \p{Scx=Bali}) (121)
+   \p{Script_Extensions: Bamu} \p{Script_Extensions=Bamum} (657)
+   \p{Script_Extensions: Bamum} (Short: \p{Scx=Bamu}) (657)
+   \p{Script_Extensions: Bass} \p{Script_Extensions=Bassa_Vah} (36)
+   \p{Script_Extensions: Bassa_Vah} (Short: \p{Scx=Bass}) (36)
+   \p{Script_Extensions: Batak} (Short: \p{Scx=Batk}) (56)
+   \p{Script_Extensions: Batk} \p{Script_Extensions=Batak} (56)
+   \p{Script_Extensions: Beng} \p{Script_Extensions=Bengali} (97)
+   \p{Script_Extensions: Bengali} (Short: \p{Scx=Beng}) (97)
+   \p{Script_Extensions: Bopo} \p{Script_Extensions=Bopomofo} (306)
+   \p{Script_Extensions: Bopomofo} (Short: \p{Scx=Bopo}) (306)
+   \p{Script_Extensions: Brah} \p{Script_Extensions=Brahmi} (109)
+   \p{Script_Extensions: Brahmi} (Short: \p{Scx=Brah}) (109)
+   \p{Script_Extensions: Brai} \p{Script_Extensions=Braille} (256)
+   \p{Script_Extensions: Braille} (Short: \p{Scx=Brai}) (256)
+   \p{Script_Extensions: Bugi} \p{Script_Extensions=Buginese} (31)
+   \p{Script_Extensions: Buginese} (Short: \p{Scx=Bugi}) (31)
+   \p{Script_Extensions: Buhd} \p{Script_Extensions=Buhid} (22)
+   \p{Script_Extensions: Buhid} (Short: \p{Scx=Buhd}) (22)
+   \p{Script_Extensions: Cakm} \p{Script_Extensions=Chakma} (87)
+   \p{Script_Extensions: Canadian_Aboriginal} (Short: \p{Scx=Cans})
+                             (710)
+   \p{Script_Extensions: Cans} \p{Script_Extensions=
+                             Canadian_Aboriginal} (710)
+   \p{Script_Extensions: Cari} \p{Script_Extensions=Carian} (49)
+   \p{Script_Extensions: Carian} (Short: \p{Scx=Cari}) (49)
+   \p{Script_Extensions: Caucasian_Albanian} (Short: \p{Scx=Aghb})
+                             (53)
+   \p{Script_Extensions: Chakma} (Short: \p{Scx=Cakm}) (87)
+   \p{Script_Extensions: Cham} (Short: \p{Scx=Cham}) (83)
+   \p{Script_Extensions: Cher} \p{Script_Extensions=Cherokee} (172)
+   \p{Script_Extensions: Cherokee} (Short: \p{Scx=Cher}) (172)
+   \p{Script_Extensions: Common} (Short: \p{Scx=Zyyy}) (6772)
+   \p{Script_Extensions: Copt} \p{Script_Extensions=Coptic} (165)
+   \p{Script_Extensions: Coptic} (Short: \p{Scx=Copt}) (165)
+   \p{Script_Extensions: Cprt} \p{Script_Extensions=Cypriot} (112)
+   \p{Script_Extensions: Cuneiform} (Short: \p{Scx=Xsux}) (1234)
+   \p{Script_Extensions: Cypriot} (Short: \p{Scx=Cprt}) (112)
+   \p{Script_Extensions: Cyrillic} (Short: \p{Scx=Cyrl}) (436)
+   \p{Script_Extensions: Cyrl} \p{Script_Extensions=Cyrillic} (436)
+   \p{Script_Extensions: Deseret} (Short: \p{Scx=Dsrt}) (80)
+   \p{Script_Extensions: Deva} \p{Script_Extensions=Devanagari} (210)
+   \p{Script_Extensions: Devanagari} (Short: \p{Scx=Deva}) (210)
+   \p{Script_Extensions: Dsrt} \p{Script_Extensions=Deseret} (80)
+   \p{Script_Extensions: Dupl} \p{Script_Extensions=Duployan} (147)
+   \p{Script_Extensions: Duployan} (Short: \p{Scx=Dupl}) (147)
+   \p{Script_Extensions: Egyp} \p{Script_Extensions=
+                             Egyptian_Hieroglyphs} (1071)
+   \p{Script_Extensions: Egyptian_Hieroglyphs} (Short: \p{Scx=Egyp})
+                             (1071)
+   \p{Script_Extensions: Elba} \p{Script_Extensions=Elbasan} (40)
+   \p{Script_Extensions: Elbasan} (Short: \p{Scx=Elba}) (40)
+   \p{Script_Extensions: Ethi} \p{Script_Extensions=Ethiopic} (495)
+   \p{Script_Extensions: Ethiopic} (Short: \p{Scx=Ethi}) (495)
+   \p{Script_Extensions: Geor} \p{Script_Extensions=Georgian} (128)
+   \p{Script_Extensions: Georgian} (Short: \p{Scx=Geor}) (128)
+   \p{Script_Extensions: Glag} \p{Script_Extensions=Glagolitic} (96)
+   \p{Script_Extensions: Glagolitic} (Short: \p{Scx=Glag}) (96)
+   \p{Script_Extensions: Goth} \p{Script_Extensions=Gothic} (27)
+   \p{Script_Extensions: Gothic} (Short: \p{Scx=Goth}) (27)
+   \p{Script_Extensions: Gran} \p{Script_Extensions=Grantha} (113)
+   \p{Script_Extensions: Grantha} (Short: \p{Scx=Gran}) (113)
+   \p{Script_Extensions: Greek} (Short: \p{Scx=Grek}) (520)
+   \p{Script_Extensions: Grek} \p{Script_Extensions=Greek} (520)
+   \p{Script_Extensions: Gujarati} (Short: \p{Scx=Gujr}) (99)
+   \p{Script_Extensions: Gujr} \p{Script_Extensions=Gujarati} (99)
+   \p{Script_Extensions: Gurmukhi} (Short: \p{Scx=Guru}) (93)
+   \p{Script_Extensions: Guru} \p{Script_Extensions=Gurmukhi} (93)
+   \p{Script_Extensions: Han} (Short: \p{Scx=Han}) (82_007)
+   \p{Script_Extensions: Hang} \p{Script_Extensions=Hangul} (11_971)
+   \p{Script_Extensions: Hangul} (Short: \p{Scx=Hang}) (11_971)
+   \p{Script_Extensions: Hani} \p{Script_Extensions=Han} (82_007)
+   \p{Script_Extensions: Hano} \p{Script_Extensions=Hanunoo} (23)
+   \p{Script_Extensions: Hanunoo} (Short: \p{Scx=Hano}) (23)
+   \p{Script_Extensions: Hatr} \p{Script_Extensions=Hatran} (26)
+   \p{Script_Extensions: Hatran} (Short: \p{Scx=Hatr}) (26)
+   \p{Script_Extensions: Hebr} \p{Script_Extensions=Hebrew} (133)
+   \p{Script_Extensions: Hebrew} (Short: \p{Scx=Hebr}) (133)
+   \p{Script_Extensions: Hira} \p{Script_Extensions=Hiragana} (356)
+   \p{Script_Extensions: Hiragana} (Short: \p{Scx=Hira}) (356)
+   \p{Script_Extensions: Hluw} \p{Script_Extensions=
+                             Anatolian_Hieroglyphs} (583)
+   \p{Script_Extensions: Hmng} \p{Script_Extensions=Pahawh_Hmong}
+                             (127)
+   \p{Script_Extensions: Hung} \p{Script_Extensions=Old_Hungarian}
+                             (108)
+   \p{Script_Extensions: Imperial_Aramaic} (Short: \p{Scx=Armi}) (31)
+   \p{Script_Extensions: Inherited} (Short: \p{Scx=Zinh}) (495)
+   \p{Script_Extensions: Inscriptional_Pahlavi} (Short: \p{Scx=Phli})
+                             (27)
+   \p{Script_Extensions: Inscriptional_Parthian} (Short: \p{Scx=
+                             Prti}) (30)
+   \p{Script_Extensions: Ital} \p{Script_Extensions=Old_Italic} (36)
+   \p{Script_Extensions: Java} \p{Script_Extensions=Javanese} (91)
+   \p{Script_Extensions: Javanese} (Short: \p{Scx=Java}) (91)
+   \p{Script_Extensions: Kaithi} (Short: \p{Scx=Kthi}) (86)
+   \p{Script_Extensions: Kali} \p{Script_Extensions=Kayah_Li} (48)
+   \p{Script_Extensions: Kana} \p{Script_Extensions=Katakana} (565)
+   \p{Script_Extensions: Kannada} (Short: \p{Scx=Knda}) (93)
+   \p{Script_Extensions: Katakana} (Short: \p{Scx=Kana}) (565)
+   \p{Script_Extensions: Kayah_Li} (Short: \p{Scx=Kali}) (48)
+   \p{Script_Extensions: Khar} \p{Script_Extensions=Kharoshthi} (65)
+   \p{Script_Extensions: Kharoshthi} (Short: \p{Scx=Khar}) (65)
+   \p{Script_Extensions: Khmer} (Short: \p{Scx=Khmr}) (146)
+   \p{Script_Extensions: Khmr} \p{Script_Extensions=Khmer} (146)
+   \p{Script_Extensions: Khoj} \p{Script_Extensions=Khojki} (71)
+   \p{Script_Extensions: Khojki} (Short: \p{Scx=Khoj}) (71)
+   \p{Script_Extensions: Khudawadi} (Short: \p{Scx=Sind}) (81)
+   \p{Script_Extensions: Knda} \p{Script_Extensions=Kannada} (93)
+   \p{Script_Extensions: Kthi} \p{Script_Extensions=Kaithi} (86)
+   \p{Script_Extensions: Lana} \p{Script_Extensions=Tai_Tham} (127)
+   \p{Script_Extensions: Lao} (Short: \p{Scx=Lao}) (67)
+   \p{Script_Extensions: Laoo} \p{Script_Extensions=Lao} (67)
+   \p{Script_Extensions: Latin} (Short: \p{Scx=Latn}) (1368)
+   \p{Script_Extensions: Latn} \p{Script_Extensions=Latin} (1368)
+   \p{Script_Extensions: Lepc} \p{Script_Extensions=Lepcha} (74)
+   \p{Script_Extensions: Lepcha} (Short: \p{Scx=Lepc}) (74)
+   \p{Script_Extensions: Limb} \p{Script_Extensions=Limbu} (69)
+   \p{Script_Extensions: Limbu} (Short: \p{Scx=Limb}) (69)
+   \p{Script_Extensions: Lina} \p{Script_Extensions=Linear_A} (341)
+   \p{Script_Extensions: Linb} \p{Script_Extensions=Linear_B} (268)
+   \p{Script_Extensions: Linear_A} (Short: \p{Scx=Lina}) (341)
+   \p{Script_Extensions: Linear_B} (Short: \p{Scx=Linb}) (268)
+   \p{Script_Extensions: Lisu} (Short: \p{Scx=Lisu}) (48)
+   \p{Script_Extensions: Lyci} \p{Script_Extensions=Lycian} (29)
+   \p{Script_Extensions: Lycian} (Short: \p{Scx=Lyci}) (29)
+   \p{Script_Extensions: Lydi} \p{Script_Extensions=Lydian} (27)
+   \p{Script_Extensions: Lydian} (Short: \p{Scx=Lydi}) (27)
+   \p{Script_Extensions: Mahajani} (Short: \p{Scx=Mahj}) (61)
+   \p{Script_Extensions: Mahj} \p{Script_Extensions=Mahajani} (61)
+   \p{Script_Extensions: Malayalam} (Short: \p{Scx=Mlym}) (105)
+   \p{Script_Extensions: Mand} \p{Script_Extensions=Mandaic} (30)
+   \p{Script_Extensions: Mandaic} (Short: \p{Scx=Mand}) (30)
+   \p{Script_Extensions: Mani} \p{Script_Extensions=Manichaean} (52)
+   \p{Script_Extensions: Manichaean} (Short: \p{Scx=Mani}) (52)
+   \p{Script_Extensions: Meetei_Mayek} (Short: \p{Scx=Mtei}) (79)
+   \p{Script_Extensions: Mend} \p{Script_Extensions=Mende_Kikakui}
+                             (213)
+   \p{Script_Extensions: Mende_Kikakui} (Short: \p{Scx=Mend}) (213)
+   \p{Script_Extensions: Merc} \p{Script_Extensions=Meroitic_Cursive}
+                             (90)
+   \p{Script_Extensions: Mero} \p{Script_Extensions=
+                             Meroitic_Hieroglyphs} (32)
+   \p{Script_Extensions: Meroitic_Cursive} (Short: \p{Scx=Merc}) (90)
+   \p{Script_Extensions: Meroitic_Hieroglyphs} (Short: \p{Scx=Mero})
+                             (32)
+   \p{Script_Extensions: Miao} (Short: \p{Scx=Miao}) (133)
+   \p{Script_Extensions: Mlym} \p{Script_Extensions=Malayalam} (105)
+   \p{Script_Extensions: Modi} (Short: \p{Scx=Modi}) (89)
+   \p{Script_Extensions: Mong} \p{Script_Extensions=Mongolian} (156)
+   \p{Script_Extensions: Mongolian} (Short: \p{Scx=Mong}) (156)
+   \p{Script_Extensions: Mro} (Short: \p{Scx=Mro}) (43)
+   \p{Script_Extensions: Mroo} \p{Script_Extensions=Mro} (43)
+   \p{Script_Extensions: Mtei} \p{Script_Extensions=Meetei_Mayek} (79)
+   \p{Script_Extensions: Mult} \p{Script_Extensions=Multani} (48)
+   \p{Script_Extensions: Multani} (Short: \p{Scx=Mult}) (48)
+   \p{Script_Extensions: Myanmar} (Short: \p{Scx=Mymr}) (224)
+   \p{Script_Extensions: Mymr} \p{Script_Extensions=Myanmar} (224)
+   \p{Script_Extensions: Nabataean} (Short: \p{Scx=Nbat}) (40)
+   \p{Script_Extensions: Narb} \p{Script_Extensions=
+                             Old_North_Arabian} (32)
+   \p{Script_Extensions: Nbat} \p{Script_Extensions=Nabataean} (40)
+   \p{Script_Extensions: New_Tai_Lue} (Short: \p{Scx=Talu}) (83)
+   \p{Script_Extensions: Nko} (Short: \p{Scx=Nko}) (59)
+   \p{Script_Extensions: Nkoo} \p{Script_Extensions=Nko} (59)
+   \p{Script_Extensions: Ogam} \p{Script_Extensions=Ogham} (29)
+   \p{Script_Extensions: Ogham} (Short: \p{Scx=Ogam}) (29)
+   \p{Script_Extensions: Ol_Chiki} (Short: \p{Scx=Olck}) (48)
+   \p{Script_Extensions: Olck} \p{Script_Extensions=Ol_Chiki} (48)
+   \p{Script_Extensions: Old_Hungarian} (Short: \p{Scx=Hung}) (108)
+   \p{Script_Extensions: Old_Italic} (Short: \p{Scx=Ital}) (36)
+   \p{Script_Extensions: Old_North_Arabian} (Short: \p{Scx=Narb}) (32)
+   \p{Script_Extensions: Old_Permic} (Short: \p{Scx=Perm}) (44)
+   \p{Script_Extensions: Old_Persian} (Short: \p{Scx=Xpeo}) (50)
+   \p{Script_Extensions: Old_South_Arabian} (Short: \p{Scx=Sarb}) (32)
+   \p{Script_Extensions: Old_Turkic} (Short: \p{Scx=Orkh}) (73)
+   \p{Script_Extensions: Oriya} (Short: \p{Scx=Orya}) (94)
+   \p{Script_Extensions: Orkh} \p{Script_Extensions=Old_Turkic} (73)
+   \p{Script_Extensions: Orya} \p{Script_Extensions=Oriya} (94)
+   \p{Script_Extensions: Osma} \p{Script_Extensions=Osmanya} (40)
+   \p{Script_Extensions: Osmanya} (Short: \p{Scx=Osma}) (40)
+   \p{Script_Extensions: Pahawh_Hmong} (Short: \p{Scx=Hmng}) (127)
+   \p{Script_Extensions: Palm} \p{Script_Extensions=Palmyrene} (32)
+   \p{Script_Extensions: Palmyrene} (Short: \p{Scx=Palm}) (32)
+   \p{Script_Extensions: Pau_Cin_Hau} (Short: \p{Scx=Pauc}) (57)
+   \p{Script_Extensions: Pauc} \p{Script_Extensions=Pau_Cin_Hau} (57)
+   \p{Script_Extensions: Perm} \p{Script_Extensions=Old_Permic} (44)
+   \p{Script_Extensions: Phag} \p{Script_Extensions=Phags_Pa} (59)
+   \p{Script_Extensions: Phags_Pa} (Short: \p{Scx=Phag}) (59)
+   \p{Script_Extensions: Phli} \p{Script_Extensions=
+                             Inscriptional_Pahlavi} (27)
+   \p{Script_Extensions: Phlp} \p{Script_Extensions=Psalter_Pahlavi}
+                             (30)
+   \p{Script_Extensions: Phnx} \p{Script_Extensions=Phoenician} (29)
+   \p{Script_Extensions: Phoenician} (Short: \p{Scx=Phnx}) (29)
+   \p{Script_Extensions: Plrd} \p{Script_Extensions=Miao} (133)
+   \p{Script_Extensions: Prti} \p{Script_Extensions=
+                             Inscriptional_Parthian} (30)
+   \p{Script_Extensions: Psalter_Pahlavi} (Short: \p{Scx=Phlp}) (30)
+   \p{Script_Extensions: Qaac} \p{Script_Extensions=Coptic} (165)
+   \p{Script_Extensions: Qaai} \p{Script_Extensions=Inherited} (495)
+   \p{Script_Extensions: Rejang} (Short: \p{Scx=Rjng}) (37)
+   \p{Script_Extensions: Rjng} \p{Script_Extensions=Rejang} (37)
+   \p{Script_Extensions: Runic} (Short: \p{Scx=Runr}) (86)
+   \p{Script_Extensions: Runr} \p{Script_Extensions=Runic} (86)
+   \p{Script_Extensions: Samaritan} (Short: \p{Scx=Samr}) (61)
+   \p{Script_Extensions: Samr} \p{Script_Extensions=Samaritan} (61)
+   \p{Script_Extensions: Sarb} \p{Script_Extensions=
+                             Old_South_Arabian} (32)
+   \p{Script_Extensions: Saur} \p{Script_Extensions=Saurashtra} (81)
+   \p{Script_Extensions: Saurashtra} (Short: \p{Scx=Saur}) (81)
+   \p{Script_Extensions: Sgnw} \p{Script_Extensions=SignWriting} (672)
+   \p{Script_Extensions: Sharada} (Short: \p{Scx=Shrd}) (100)
+   \p{Script_Extensions: Shavian} (Short: \p{Scx=Shaw}) (48)
+   \p{Script_Extensions: Shaw} \p{Script_Extensions=Shavian} (48)
+   \p{Script_Extensions: Shrd} \p{Script_Extensions=Sharada} (100)
+   \p{Script_Extensions: Sidd} \p{Script_Extensions=Siddham} (92)
+   \p{Script_Extensions: Siddham} (Short: \p{Scx=Sidd}) (92)
+   \p{Script_Extensions: SignWriting} (Short: \p{Scx=Sgnw}) (672)
+   \p{Script_Extensions: Sind} \p{Script_Extensions=Khudawadi} (81)
+   \p{Script_Extensions: Sinh} \p{Script_Extensions=Sinhala} (112)
+   \p{Script_Extensions: Sinhala} (Short: \p{Scx=Sinh}) (112)
+   \p{Script_Extensions: Sora} \p{Script_Extensions=Sora_Sompeng} (35)
+   \p{Script_Extensions: Sora_Sompeng} (Short: \p{Scx=Sora}) (35)
+   \p{Script_Extensions: Sund} \p{Script_Extensions=Sundanese} (72)
+   \p{Script_Extensions: Sundanese} (Short: \p{Scx=Sund}) (72)
+   \p{Script_Extensions: Sylo} \p{Script_Extensions=Syloti_Nagri} (56)
+   \p{Script_Extensions: Syloti_Nagri} (Short: \p{Scx=Sylo}) (56)
+   \p{Script_Extensions: Syrc} \p{Script_Extensions=Syriac} (93)
+   \p{Script_Extensions: Syriac} (Short: \p{Scx=Syrc}) (93)
+   \p{Script_Extensions: Tagalog} (Short: \p{Scx=Tglg}) (22)
+   \p{Script_Extensions: Tagb} \p{Script_Extensions=Tagbanwa} (20)
+   \p{Script_Extensions: Tagbanwa} (Short: \p{Scx=Tagb}) (20)
+   \p{Script_Extensions: Tai_Le} (Short: \p{Scx=Tale}) (45)
+   \p{Script_Extensions: Tai_Tham} (Short: \p{Scx=Lana}) (127)
+   \p{Script_Extensions: Tai_Viet} (Short: \p{Scx=Tavt}) (72)
+   \p{Script_Extensions: Takr} \p{Script_Extensions=Takri} (78)
+   \p{Script_Extensions: Takri} (Short: \p{Scx=Takr}) (78)
+   \p{Script_Extensions: Tale} \p{Script_Extensions=Tai_Le} (45)
+   \p{Script_Extensions: Talu} \p{Script_Extensions=New_Tai_Lue} (83)
+   \p{Script_Extensions: Tamil} (Short: \p{Scx=Taml}) (78)
+   \p{Script_Extensions: Taml} \p{Script_Extensions=Tamil} (78)
+   \p{Script_Extensions: Tavt} \p{Script_Extensions=Tai_Viet} (72)
+   \p{Script_Extensions: Telu} \p{Script_Extensions=Telugu} (101)
+   \p{Script_Extensions: Telugu} (Short: \p{Scx=Telu}) (101)
+   \p{Script_Extensions: Tfng} \p{Script_Extensions=Tifinagh} (59)
+   \p{Script_Extensions: Tglg} \p{Script_Extensions=Tagalog} (22)
+   \p{Script_Extensions: Thaa} \p{Script_Extensions=Thaana} (65)
+   \p{Script_Extensions: Thaana} (Short: \p{Scx=Thaa}) (65)
+   \p{Script_Extensions: Thai} (Short: \p{Scx=Thai}) (86)
+   \p{Script_Extensions: Tibetan} (Short: \p{Scx=Tibt}) (207)
+   \p{Script_Extensions: Tibt} \p{Script_Extensions=Tibetan} (207)
+   \p{Script_Extensions: Tifinagh} (Short: \p{Scx=Tfng}) (59)
+   \p{Script_Extensions: Tirh} \p{Script_Extensions=Tirhuta} (94)
+   \p{Script_Extensions: Tirhuta} (Short: \p{Scx=Tirh}) (94)
+   \p{Script_Extensions: Ugar} \p{Script_Extensions=Ugaritic} (31)
+   \p{Script_Extensions: Ugaritic} (Short: \p{Scx=Ugar}) (31)
+   \p{Script_Extensions: Unknown} (Short: \p{Scx=Zzzz}) (993_375 plus
+                             all above-Unicode code points)
+   \p{Script_Extensions: Vai} (Short: \p{Scx=Vai}) (300)
+   \p{Script_Extensions: Vaii} \p{Script_Extensions=Vai} (300)
+   \p{Script_Extensions: Wara} \p{Script_Extensions=Warang_Citi} (84)
+   \p{Script_Extensions: Warang_Citi} (Short: \p{Scx=Wara}) (84)
+   \p{Script_Extensions: Xpeo} \p{Script_Extensions=Old_Persian} (50)
+   \p{Script_Extensions: Xsux} \p{Script_Extensions=Cuneiform} (1234)
+   \p{Script_Extensions: Yi} (Short: \p{Scx=Yi}) (1246)
+   \p{Script_Extensions: Yiii} \p{Script_Extensions=Yi} (1246)
+   \p{Script_Extensions: Zinh} \p{Script_Extensions=Inherited} (495)
+   \p{Script_Extensions: Zyyy} \p{Script_Extensions=Common} (6772)
+   \p{Script_Extensions: Zzzz} \p{Script_Extensions=Unknown} (993_375
+                             plus all above-Unicode code points)
+   \p{Scx: *}              \p{Script_Extensions: *}
+   \p{SD}                  \p{Soft_Dotted} (= \p{Soft_Dotted=Y}) (46)
+   \p{SD: *}               \p{Soft_Dotted: *}
+   \p{Sentence_Break: AT}  \p{Sentence_Break=ATerm} (4)
+   \p{Sentence_Break: ATerm} (Short: \p{SB=AT}) (4)
+   \p{Sentence_Break: CL}  \p{Sentence_Break=Close} (187)
+   \p{Sentence_Break: Close} (Short: \p{SB=CL}) (187)
+   \p{Sentence_Break: CR}  (Short: \p{SB=CR}) (1)
+   \p{Sentence_Break: EX}  \p{Sentence_Break=Extend} (1967)
+   \p{Sentence_Break: Extend} (Short: \p{SB=EX}) (1967)
+   \p{Sentence_Break: FO}  \p{Sentence_Break=Format} (148)
+   \p{Sentence_Break: Format} (Short: \p{SB=FO}) (148)
+   \p{Sentence_Break: LE}  \p{Sentence_Break=OLetter} (106_002)
+   \p{Sentence_Break: LF}  (Short: \p{SB=LF}) (1)
+   \p{Sentence_Break: LO}  \p{Sentence_Break=Lower} (2172)
+   \p{Sentence_Break: Lower} (Short: \p{SB=LO}) (2172)
+   \p{Sentence_Break: NU}  \p{Sentence_Break=Numeric} (542)
+   \p{Sentence_Break: Numeric} (Short: \p{SB=NU}) (542)
+   \p{Sentence_Break: OLetter} (Short: \p{SB=LE}) (106_002)
+   \p{Sentence_Break: Other} (Short: \p{SB=XX}) (1_001_140 plus all
+                             above-Unicode code points)
+   \p{Sentence_Break: SC}  \p{Sentence_Break=SContinue} (26)
+   \p{Sentence_Break: SContinue} (Short: \p{SB=SC}) (26)
+   \p{Sentence_Break: SE}  \p{Sentence_Break=Sep} (3)
+   \p{Sentence_Break: Sep} (Short: \p{SB=SE}) (3)
+   \p{Sentence_Break: Sp}  (Short: \p{SB=Sp}) (20)
+   \p{Sentence_Break: ST}  \p{Sentence_Break=STerm} (117)
+   \p{Sentence_Break: STerm} (Short: \p{SB=ST}) (117)
+   \p{Sentence_Break: UP}  \p{Sentence_Break=Upper} (1782)
+   \p{Sentence_Break: Upper} (Short: \p{SB=UP}) (1782)
+   \p{Sentence_Break: XX}  \p{Sentence_Break=Other} (1_001_140 plus
+                             all above-Unicode code points)
+   \p{Separator}           \p{General_Category=Separator} (Short:
+                             \p{Z}) (19)
+   \p{Sgnw}                \p{SignWriting} (= \p{Script=SignWriting})
+                             (672)
+   \p{Sharada}             \p{Script=Sharada} (Short: \p{Shrd}; NOT
+                             \p{Block=Sharada}) (94)
+   \p{Shavian}             \p{Script=Shavian} (Short: \p{Shaw}) (48)
+   \p{Shaw}                \p{Shavian} (= \p{Script=Shavian}) (48)
+ X \p{Shorthand_Format_Controls} \p{Block=Shorthand_Format_Controls}
+                             (16)
+   \p{Shrd}                \p{Sharada} (= \p{Script=Sharada}) (NOT
+                             \p{Block=Sharada}) (94)
+   \p{Sidd}                \p{Siddham} (= \p{Script=Siddham}) (NOT
+                             \p{Block=Siddham}) (92)
+   \p{Siddham}             \p{Script=Siddham} (Short: \p{Sidd}; NOT
+                             \p{Block=Siddham}) (92)
+   \p{SignWriting}         \p{Script=SignWriting} (Short: \p{Sgnw})
+                             (672)
+   \p{Sind}                \p{Khudawadi} (= \p{Script=Khudawadi})
+                             (NOT \p{Block=Khudawadi}) (69)
+   \p{Sinh}                \p{Sinhala} (= \p{Script=Sinhala}) (NOT
+                             \p{Block=Sinhala}) (110)
+   \p{Sinhala}             \p{Script=Sinhala} (Short: \p{Sinh}; NOT
+                             \p{Block=Sinhala}) (110)
+ X \p{Sinhala_Archaic_Numbers} \p{Block=Sinhala_Archaic_Numbers} (32)
+   \p{Sk}                  \p{Modifier_Symbol} (=
+                             \p{General_Category=Modifier_Symbol})
+                             (121)
+   \p{Sm}                  \p{Math_Symbol} (= \p{General_Category=
+                             Math_Symbol}) (948)
+ X \p{Small_Form_Variants} \p{Block=Small_Form_Variants} (Short:
+                             \p{InSmallForms}) (32)
+ X \p{Small_Forms}         \p{Small_Form_Variants} (= \p{Block=
+                             Small_Form_Variants}) (32)
+   \p{So}                  \p{Other_Symbol} (= \p{General_Category=
+                             Other_Symbol}) (5677)
+   \p{Soft_Dotted}         \p{Soft_Dotted=Y} (Short: \p{SD}) (46)
+   \p{Soft_Dotted: N*}     (Short: \p{SD=N}, \P{SD}) (1_114_066 plus
+                             all above-Unicode code points)
+   \p{Soft_Dotted: Y*}     (Short: \p{SD=Y}, \p{SD}) (46)
+   \p{Sora}                \p{Sora_Sompeng} (= \p{Script=
+                             Sora_Sompeng}) (NOT \p{Block=
+                             Sora_Sompeng}) (35)
+   \p{Sora_Sompeng}        \p{Script=Sora_Sompeng} (Short: \p{Sora};
+                             NOT \p{Block=Sora_Sompeng}) (35)
+   \p{Space}               \p{White_Space} (= \p{White_Space=Y}) (25)
+   \p{Space: *}            \p{White_Space: *}
+   \p{Space_Separator}     \p{General_Category=Space_Separator}
+                             (Short: \p{Zs}) (17)
+   \p{SpacePerl}           \p{XPosixSpace} (25)
+   \p{Spacing_Mark}        \p{General_Category=Spacing_Mark} (Short:
+                             \p{Mc}) (383)
+ X \p{Spacing_Modifier_Letters} \p{Block=Spacing_Modifier_Letters}
+                             (Short: \p{InModifierLetters}) (80)
+ X \p{Specials}            \p{Block=Specials} (16)
+   \p{STerm}               \p{STerm=Y} (120)
+   \p{STerm: N*}           (Single: \P{STerm}) (1_113_992 plus all
+                             above-Unicode code points)
+   \p{STerm: Y*}           (Single: \p{STerm}) (120)
+   \p{Sund}                \p{Sundanese} (= \p{Script=Sundanese})
+                             (NOT \p{Block=Sundanese}) (72)
+   \p{Sundanese}           \p{Script=Sundanese} (Short: \p{Sund}; NOT
+                             \p{Block=Sundanese}) (72)
+ X \p{Sundanese_Sup}       \p{Sundanese_Supplement} (= \p{Block=
+                             Sundanese_Supplement}) (16)
+ X \p{Sundanese_Supplement} \p{Block=Sundanese_Supplement} (Short:
+                             \p{InSundaneseSup}) (16)
+ X \p{Sup_Arrows_A}        \p{Supplemental_Arrows_A} (= \p{Block=
+                             Supplemental_Arrows_A}) (16)
+ X \p{Sup_Arrows_B}        \p{Supplemental_Arrows_B} (= \p{Block=
+                             Supplemental_Arrows_B}) (128)
+ X \p{Sup_Arrows_C}        \p{Supplemental_Arrows_C} (= \p{Block=
+                             Supplemental_Arrows_C}) (256)
+ X \p{Sup_Math_Operators}  \p{Supplemental_Mathematical_Operators} (=
+                             \p{Block=
+                             Supplemental_Mathematical_Operators})
+                             (256)
+ X \p{Sup_PUA_A}           \p{Supplementary_Private_Use_Area_A} (=
+                             \p{Block=
+                             Supplementary_Private_Use_Area_A})
+                             (65_536)
+ X \p{Sup_PUA_B}           \p{Supplementary_Private_Use_Area_B} (=
+                             \p{Block=
+                             Supplementary_Private_Use_Area_B})
+                             (65_536)
+ X \p{Sup_Punctuation}     \p{Supplemental_Punctuation} (= \p{Block=
+                             Supplemental_Punctuation}) (128)
+ X \p{Sup_Symbols_And_Pictographs}
+                             \p{Supplemental_Symbols_And_Pictographs}
+                             (= \p{Block=
+                             Supplemental_Symbols_And_Pictographs})
+                             (256)
+ X \p{Super_And_Sub}       \p{Superscripts_And_Subscripts} (=
+                             \p{Block=Superscripts_And_Subscripts})
+                             (48)
+ X \p{Superscripts_And_Subscripts} \p{Block=
+                             Superscripts_And_Subscripts} (Short:
+                             \p{InSuperAndSub}) (48)
+ X \p{Supplemental_Arrows_A} \p{Block=Supplemental_Arrows_A} (Short:
+                             \p{InSupArrowsA}) (16)
+ X \p{Supplemental_Arrows_B} \p{Block=Supplemental_Arrows_B} (Short:
+                             \p{InSupArrowsB}) (128)
+ X \p{Supplemental_Arrows_C} \p{Block=Supplemental_Arrows_C} (Short:
+                             \p{InSupArrowsC}) (256)
+ X \p{Supplemental_Mathematical_Operators} \p{Block=
+                             Supplemental_Mathematical_Operators}
+                             (Short: \p{InSupMathOperators}) (256)
+ X \p{Supplemental_Punctuation} \p{Block=Supplemental_Punctuation}
+                             (Short: \p{InSupPunctuation}) (128)
+ X \p{Supplemental_Symbols_And_Pictographs} \p{Block=
+                             Supplemental_Symbols_And_Pictographs}
+                             (Short: \p{InSupSymbolsAndPictographs})
+                             (256)
+ X \p{Supplementary_Private_Use_Area_A} \p{Block=
+                             Supplementary_Private_Use_Area_A}
+                             (Short: \p{InSupPUAA}) (65_536)
+ X \p{Supplementary_Private_Use_Area_B} \p{Block=
+                             Supplementary_Private_Use_Area_B}
+                             (Short: \p{InSupPUAB}) (65_536)
+   \p{Surrogate}           \p{General_Category=Surrogate} (Short:
+                             \p{Cs}) (2048)
+ X \p{Sutton_SignWriting}  \p{Block=Sutton_SignWriting} (688)
+   \p{Sylo}                \p{Syloti_Nagri} (= \p{Script=
+                             Syloti_Nagri}) (NOT \p{Block=
+                             Syloti_Nagri}) (44)
+   \p{Syloti_Nagri}        \p{Script=Syloti_Nagri} (Short: \p{Sylo};
+                             NOT \p{Block=Syloti_Nagri}) (44)
+   \p{Symbol}              \p{General_Category=Symbol} (Short: \p{S})
+                             (6799)
+   \p{Syrc}                \p{Syriac} (= \p{Script=Syriac}) (NOT
+                             \p{Block=Syriac}) (77)
+   \p{Syriac}              \p{Script=Syriac} (Short: \p{Syrc}; NOT
+                             \p{Block=Syriac}) (77)
+   \p{Tagalog}             \p{Script=Tagalog} (Short: \p{Tglg}; NOT
+                             \p{Block=Tagalog}) (20)
+   \p{Tagb}                \p{Tagbanwa} (= \p{Script=Tagbanwa}) (NOT
+                             \p{Block=Tagbanwa}) (18)
+   \p{Tagbanwa}            \p{Script=Tagbanwa} (Short: \p{Tagb}; NOT
+                             \p{Block=Tagbanwa}) (18)
+ X \p{Tags}                \p{Block=Tags} (128)
+   \p{Tai_Le}              \p{Script=Tai_Le} (Short: \p{Tale}; NOT
+                             \p{Block=Tai_Le}) (35)
+   \p{Tai_Tham}            \p{Script=Tai_Tham} (Short: \p{Lana}; NOT
+                             \p{Block=Tai_Tham}) (127)
+   \p{Tai_Viet}            \p{Script=Tai_Viet} (Short: \p{Tavt}; NOT
+                             \p{Block=Tai_Viet}) (72)
+ X \p{Tai_Xuan_Jing}       \p{Tai_Xuan_Jing_Symbols} (= \p{Block=
+                             Tai_Xuan_Jing_Symbols}) (96)
+ X \p{Tai_Xuan_Jing_Symbols} \p{Block=Tai_Xuan_Jing_Symbols} (Short:
+                             \p{InTaiXuanJing}) (96)
+   \p{Takr}                \p{Takri} (= \p{Script=Takri}) (NOT
+                             \p{Block=Takri}) (66)
+   \p{Takri}               \p{Script=Takri} (Short: \p{Takr}; NOT
+                             \p{Block=Takri}) (66)
+   \p{Tale}                \p{Tai_Le} (= \p{Script=Tai_Le}) (NOT
+                             \p{Block=Tai_Le}) (35)
+   \p{Talu}                \p{New_Tai_Lue} (= \p{Script=New_Tai_Lue})
+                             (NOT \p{Block=New_Tai_Lue}) (83)
+   \p{Tamil}               \p{Script=Tamil} (Short: \p{Taml}; NOT
+                             \p{Block=Tamil}) (72)
+   \p{Taml}                \p{Tamil} (= \p{Script=Tamil}) (NOT
+                             \p{Block=Tamil}) (72)
+   \p{Tavt}                \p{Tai_Viet} (= \p{Script=Tai_Viet}) (NOT
+                             \p{Block=Tai_Viet}) (72)
+   \p{Telu}                \p{Telugu} (= \p{Script=Telugu}) (NOT
+                             \p{Block=Telugu}) (96)
+   \p{Telugu}              \p{Script=Telugu} (Short: \p{Telu}; NOT
+                             \p{Block=Telugu}) (96)
+   \p{Term}                \p{Terminal_Punctuation} (=
+                             \p{Terminal_Punctuation=Y}) (238)
+   \p{Term: *}             \p{Terminal_Punctuation: *}
+   \p{Terminal_Punctuation} \p{Terminal_Punctuation=Y} (Short:
+                             \p{Term}) (238)
+   \p{Terminal_Punctuation: N*} (Short: \p{Term=N}, \P{Term})
+                             (1_113_874 plus all above-Unicode code
+                             points)
+   \p{Terminal_Punctuation: Y*} (Short: \p{Term=Y}, \p{Term}) (238)
+   \p{Tfng}                \p{Tifinagh} (= \p{Script=Tifinagh}) (NOT
+                             \p{Block=Tifinagh}) (59)
+   \p{Tglg}                \p{Tagalog} (= \p{Script=Tagalog}) (NOT
+                             \p{Block=Tagalog}) (20)
+   \p{Thaa}                \p{Thaana} (= \p{Script=Thaana}) (NOT
+                             \p{Block=Thaana}) (50)
+   \p{Thaana}              \p{Script=Thaana} (Short: \p{Thaa}; NOT
+                             \p{Block=Thaana}) (50)
+   \p{Thai}                \p{Script=Thai} (NOT \p{Block=Thai}) (86)
+   \p{Tibetan}             \p{Script=Tibetan} (Short: \p{Tibt}; NOT
+                             \p{Block=Tibetan}) (207)
+   \p{Tibt}                \p{Tibetan} (= \p{Script=Tibetan}) (NOT
+                             \p{Block=Tibetan}) (207)
+   \p{Tifinagh}            \p{Script=Tifinagh} (Short: \p{Tfng}; NOT
+                             \p{Block=Tifinagh}) (59)
+   \p{Tirh}                \p{Tirhuta} (= \p{Script=Tirhuta}) (NOT
+                             \p{Block=Tirhuta}) (82)
+   \p{Tirhuta}             \p{Script=Tirhuta} (Short: \p{Tirh}; NOT
+                             \p{Block=Tirhuta}) (82)
+   \p{Title}               \p{Titlecase} (/i= Cased=Yes) (31)
+   \p{Titlecase}           (= \p{Gc=Lt}) (Short: \p{Title}; /i=
+                             Cased=Yes) (31)
+   \p{Titlecase_Letter}    \p{General_Category=Titlecase_Letter}
+                             (Short: \p{Lt}; /i= General_Category=
+                             Cased_Letter) (31)
+ X \p{Transport_And_Map}   \p{Transport_And_Map_Symbols} (= \p{Block=
+                             Transport_And_Map_Symbols}) (128)
+ X \p{Transport_And_Map_Symbols} \p{Block=Transport_And_Map_Symbols}
+                             (Short: \p{InTransportAndMap}) (128)
+ X \p{UCAS}                \p{Unified_Canadian_Aboriginal_Syllabics}
+                             (= \p{Block=
+                             Unified_Canadian_Aboriginal_Syllabics})
+                             (640)
+ X \p{UCAS_Ext}            \p{Unified_Canadian_Aboriginal_Syllabics_-
+                             Extended} (= \p{Block=
+                             Unified_Canadian_Aboriginal_Syllabics_-
+                             Extended}) (80)
+   \p{Ugar}                \p{Ugaritic} (= \p{Script=Ugaritic}) (NOT
+                             \p{Block=Ugaritic}) (31)
+   \p{Ugaritic}            \p{Script=Ugaritic} (Short: \p{Ugar}; NOT
+                             \p{Block=Ugaritic}) (31)
+   \p{UIdeo}               \p{Unified_Ideograph} (=
+                             \p{Unified_Ideograph=Y}) (80_388)
+   \p{UIdeo: *}            \p{Unified_Ideograph: *}
+   \p{Unassigned}          \p{General_Category=Unassigned} (Short:
+                             \p{Cn}) (853_859 plus all above-Unicode
+                             code points)
+   \p{Unicode}             \p{Any} (1_114_112)
+ X \p{Unified_Canadian_Aboriginal_Syllabics} \p{Block=
+                             Unified_Canadian_Aboriginal_Syllabics}
+                             (Short: \p{InUCAS}) (640)
+ X \p{Unified_Canadian_Aboriginal_Syllabics_Extended} \p{Block=
+                             Unified_Canadian_Aboriginal_Syllabics_-
+                             Extended} (Short: \p{InUCASExt}) (80)
+   \p{Unified_Ideograph}   \p{Unified_Ideograph=Y} (Short: \p{UIdeo})
+                             (80_388)
+   \p{Unified_Ideograph: N*} (Short: \p{UIdeo=N}, \P{UIdeo})
+                             (1_033_724 plus all above-Unicode code
+                             points)
+   \p{Unified_Ideograph: Y*} (Short: \p{UIdeo=Y}, \p{UIdeo}) (80_388)
+   \p{Unknown}             \p{Script=Unknown} (Short: \p{Zzzz})
+                             (993_375 plus all above-Unicode code
+                             points)
+   \p{Upper}               \p{XPosixUpper} (= \p{Uppercase=Y}) (/i=
+                             Cased=Yes) (1751)
+   \p{Upper: *}            \p{Uppercase: *}
+   \p{Uppercase}           \p{XPosixUpper} (= \p{Uppercase=Y}) (/i=
+                             Cased=Yes) (1751)
+   \p{Uppercase: N*}       (Short: \p{Upper=N}, \P{Upper}; /i= Cased=
+                             No) (1_112_361 plus all above-Unicode
+                             code points)
+   \p{Uppercase: Y*}       (Short: \p{Upper=Y}, \p{Upper}; /i= Cased=
+                             Yes) (1751)
+   \p{Uppercase_Letter}    \p{General_Category=Uppercase_Letter}
+                             (Short: \p{Lu}; /i= General_Category=
+                             Cased_Letter) (1631)
+   \p{Vai}                 \p{Script=Vai} (NOT \p{Block=Vai}) (300)
+   \p{Vaii}                \p{Vai} (= \p{Script=Vai}) (NOT \p{Block=
+                             Vai}) (300)
+   \p{Variation_Selector}  \p{Variation_Selector=Y} (Short: \p{VS};
+                             NOT \p{Variation_Selectors}) (259)
+   \p{Variation_Selector: N*} (Short: \p{VS=N}, \P{VS}) (1_113_853
+                             plus all above-Unicode code points)
+   \p{Variation_Selector: Y*} (Short: \p{VS=Y}, \p{VS}) (259)
+ X \p{Variation_Selectors} \p{Block=Variation_Selectors} (Short:
+                             \p{InVS}) (16)
+ X \p{Variation_Selectors_Supplement} \p{Block=
+                             Variation_Selectors_Supplement} (Short:
+                             \p{InVSSup}) (240)
+ X \p{Vedic_Ext}           \p{Vedic_Extensions} (= \p{Block=
+                             Vedic_Extensions}) (48)
+ X \p{Vedic_Extensions}    \p{Block=Vedic_Extensions} (Short:
+                             \p{InVedicExt}) (48)
+ X \p{Vertical_Forms}      \p{Block=Vertical_Forms} (16)
+   \p{VertSpace}           \v (7)
+   \p{VS}                  \p{Variation_Selector} (=
+                             \p{Variation_Selector=Y}) (NOT
+                             \p{Variation_Selectors}) (259)
+   \p{VS: *}               \p{Variation_Selector: *}
+ X \p{VS_Sup}              \p{Variation_Selectors_Supplement} (=
+                             \p{Block=
+                             Variation_Selectors_Supplement}) (240)
+   \p{Wara}                \p{Warang_Citi} (= \p{Script=Warang_Citi})
+                             (NOT \p{Block=Warang_Citi}) (84)
+   \p{Warang_Citi}         \p{Script=Warang_Citi} (Short: \p{Wara};
+                             NOT \p{Block=Warang_Citi}) (84)
+   \p{WB: *}               \p{Word_Break: *}
+   \p{White_Space}         \p{White_Space=Y} (Short: \p{Space}) (25)
+   \p{White_Space: N*}     (Short: \p{Space=N}, \P{Space}) (1_114_087
+                             plus all above-Unicode code points)
+   \p{White_Space: Y*}     (Short: \p{Space=Y}, \p{Space}) (25)
+   \p{Word}                \p{XPosixWord} (112_482)
+   \p{Word_Break: ALetter} (Short: \p{WB=LE}) (27_697)
+   \p{Word_Break: CR}      (Short: \p{WB=CR}) (1)
+   \p{Word_Break: Double_Quote} (Short: \p{WB=DQ}) (1)
+   \p{Word_Break: DQ}      \p{Word_Break=Double_Quote} (1)
+   \p{Word_Break: EX}      \p{Word_Break=ExtendNumLet} (10)
+   \p{Word_Break: Extend}  (Short: \p{WB=Extend}) (1967)
+   \p{Word_Break: ExtendNumLet} (Short: \p{WB=EX}) (10)
+   \p{Word_Break: FO}      \p{Word_Break=Format} (147)
+   \p{Word_Break: Format}  (Short: \p{WB=FO}) (147)
+   \p{Word_Break: Hebrew_Letter} (Short: \p{WB=HL}) (74)
+   \p{Word_Break: HL}      \p{Word_Break=Hebrew_Letter} (74)
+   \p{Word_Break: KA}      \p{Word_Break=Katakana} (310)
+   \p{Word_Break: Katakana} (Short: \p{WB=KA}) (310)
+   \p{Word_Break: LE}      \p{Word_Break=ALetter} (27_697)
+   \p{Word_Break: LF}      (Short: \p{WB=LF}) (1)
+   \p{Word_Break: MB}      \p{Word_Break=MidNumLet} (7)
+   \p{Word_Break: MidLetter} (Short: \p{WB=ML}) (9)
+   \p{Word_Break: MidNum}  (Short: \p{WB=MN}) (15)
+   \p{Word_Break: MidNumLet} (Short: \p{WB=MB}) (7)
+   \p{Word_Break: ML}      \p{Word_Break=MidLetter} (9)
+   \p{Word_Break: MN}      \p{Word_Break=MidNum} (15)
+   \p{Word_Break: Newline} (Short: \p{WB=NL}) (5)
+   \p{Word_Break: NL}      \p{Word_Break=Newline} (5)
+   \p{Word_Break: NU}      \p{Word_Break=Numeric} (541)
+   \p{Word_Break: Numeric} (Short: \p{WB=NU}) (541)
+   \p{Word_Break: Other}   (Short: \p{WB=XX}) (1_083_300 plus all
+                             above-Unicode code points)
+   \p{Word_Break: Regional_Indicator} (Short: \p{WB=RI}) (26)
+   \p{Word_Break: RI}      \p{Word_Break=Regional_Indicator} (26)
+   \p{Word_Break: Single_Quote} (Short: \p{WB=SQ}) (1)
+   \p{Word_Break: SQ}      \p{Word_Break=Single_Quote} (1)
+   \p{Word_Break: XX}      \p{Word_Break=Other} (1_083_300 plus all
+                             above-Unicode code points)
+   \p{WSpace}              \p{White_Space} (= \p{White_Space=Y}) (25)
+   \p{WSpace: *}           \p{White_Space: *}
+   \p{XDigit}              \p{XPosixXDigit} (= \p{Hex_Digit=Y}) (44)
+   \p{XID_Continue}        \p{XID_Continue=Y} (Short: \p{XIDC})
+                             (112_333)
+   \p{XID_Continue: N*}    (Short: \p{XIDC=N}, \P{XIDC}) (1_001_779
+                             plus all above-Unicode code points)
+   \p{XID_Continue: Y*}    (Short: \p{XIDC=Y}, \p{XIDC}) (112_333)
+   \p{XID_Start}           \p{XID_Start=Y} (Short: \p{XIDS}) (109_807)
+   \p{XID_Start: N*}       (Short: \p{XIDS=N}, \P{XIDS}) (1_004_305
+                             plus all above-Unicode code points)
+   \p{XID_Start: Y*}       (Short: \p{XIDS=Y}, \p{XIDS}) (109_807)
+   \p{XIDC}                \p{XID_Continue} (= \p{XID_Continue=Y})
+                             (112_333)
+   \p{XIDC: *}             \p{XID_Continue: *}
+   \p{XIDS}                \p{XID_Start} (= \p{XID_Start=Y}) (109_807)
+   \p{XIDS: *}             \p{XID_Start: *}
+   \p{Xpeo}                \p{Old_Persian} (= \p{Script=Old_Persian})
+                             (NOT \p{Block=Old_Persian}) (50)
+   \p{XPerlSpace}          \p{XPosixSpace} (25)
+   \p{XPosixAlnum}         Alphabetic and (decimal) Numeric (Short:
+                             \p{Alnum}) (111_493)
+   \p{XPosixAlpha}         \p{Alphabetic=Y} (Short: \p{Alpha})
+                             (110_943)
+   \p{XPosixBlank}         \h, Horizontal white space (Short:
+                             \p{Blank}) (18)
+   \p{XPosixCntrl}         \p{General_Category=Control} Control
+                             characters (Short: \p{Cc}) (65)
+   \p{XPosixDigit}         \p{General_Category=Decimal_Number} [0-9]
+                             + all other decimal digits (Short:
+                             \p{Nd}) (550)
+   \p{XPosixGraph}         Characters that are graphical (Short:
+                             \p{Graph}) (258_121)
+   \p{XPosixLower}         \p{Lowercase=Y} (Short: \p{Lower}; /i=
+                             Cased=Yes) (2173)
+   \p{XPosixPrint}         Characters that are graphical plus space
+                             characters (but no controls) (Short:
+                             \p{Print}) (258_138)
+   \p{XPosixPunct}         \p{Punct} + ASCII-range \p{Symbol} (726)
+   \p{XPosixSpace}         \s including beyond ASCII and vertical tab
+                             (Short: \p{SpacePerl}) (25)
+   \p{XPosixUpper}         \p{Uppercase=Y} (Short: \p{Upper}; /i=
+                             Cased=Yes) (1751)
+   \p{XPosixWord}          \w, including beyond ASCII; = \p{Alnum} +
+                             \pM + \p{Pc} (Short: \p{Word}) (112_482)
+   \p{XPosixXDigit}        \p{Hex_Digit=Y} (Short: \p{Hex}) (44)
+   \p{Xsux}                \p{Cuneiform} (= \p{Script=Cuneiform})
+                             (NOT \p{Block=Cuneiform}) (1234)
+   \p{Yi}                  \p{Script=Yi} (1220)
+ X \p{Yi_Radicals}         \p{Block=Yi_Radicals} (64)
+ X \p{Yi_Syllables}        \p{Block=Yi_Syllables} (1168)
+   \p{Yiii}                \p{Yi} (= \p{Script=Yi}) (1220)
+ X \p{Yijing}              \p{Yijing_Hexagram_Symbols} (= \p{Block=
+                             Yijing_Hexagram_Symbols}) (64)
+ X \p{Yijing_Hexagram_Symbols} \p{Block=Yijing_Hexagram_Symbols}
+                             (Short: \p{InYijing}) (64)
+   \p{Z} \pZ               \p{Separator} (= \p{General_Category=
+                             Separator}) (19)
+   \p{Zinh}                \p{Inherited} (= \p{Script=Inherited})
+                             (563)
+   \p{Zl}                  \p{Line_Separator} (= \p{General_Category=
+                             Line_Separator}) (1)
+   \p{Zp}                  \p{Paragraph_Separator} (=
+                             \p{General_Category=
+                             Paragraph_Separator}) (1)
+   \p{Zs}                  \p{Space_Separator} (=
+                             \p{General_Category=Space_Separator})
+                             (17)
+   \p{Zyyy}                \p{Common} (= \p{Script=Common}) (7179)
+   \p{Zzzz}                \p{Unknown} (= \p{Script=Unknown})
+                             (993_375 plus all above-Unicode code
+                             points)
+ TX\p{_CanonDCIJ}          (For internal use by Perl, not necessarily
+                             stable) (= \p{Soft_Dotted=Y}) (46)
+ TX\p{_Case_Ignorable}     (For internal use by Perl, not necessarily
+                             stable) (= \p{Case_Ignorable=Y}) (2115)
+ TX\p{_CombAbove}          (For internal use by Perl, not necessarily
+                             stable) (= \p{Canonical_Combining_Class=
+                             Above}) (402)
+
+
+
+=head2 Legal C<\p{}> and C<\P{}> constructs that match no characters
+
+Unicode has some property-value pairs that currently don't match anything.
+This happens generally either because they are obsolete, or they exist for
+symmetry with other forms, but no language has yet been encoded that uses
+them.  In this version of Unicode, the following match zero code points:
+
+=over 4
+
+=item \p{Canonical_Combining_Class=Attached_Below_Left}
+
+=item \p{Canonical_Combining_Class=CCC133}
+
+=item \p{Grapheme_Cluster_Break=Prepend}
+
+=back
+
+
+
+=head1 Properties accessible through Unicode::UCD
+
+The value of any Unicode (not including Perl extensions) character
+property mentioned above for any single code point is available through
+L<Unicode::UCD/charprop()>.  L<Unicode::UCD/charprops_all()> returns the
+values of all the Unicode properties for a given code point.
+
+Besides these, all the Unicode character properties mentioned above
+(except for those marked as for internal use by Perl) are also
+accessible by L<Unicode::UCD/prop_invlist()>.
+
+Due to their nature, not all Unicode character properties are suitable for
+regular expression matches, nor C<prop_invlist()>.  The remaining
+non-provisional, non-internal ones are accessible via
+L<Unicode::UCD/prop_invmap()> (except for those that this Perl installation
+hasn't included; see L<below for which those are|/Unicode character properties
+that are NOT accepted by Perl>).
+
+For compatibility with other parts of Perl, all the single forms given in the
+table in the L<section above|/Properties accessible through \p{} and \P{}>
+are recognized.  BUT, there are some ambiguities between some Perl extensions
+and the Unicode properties, all of which are silently resolved in favor of the
+official Unicode property.  To avoid surprises, you should only use
+C<prop_invmap()> for forms listed in the table below, which omits the
+non-recommended ones.  The affected forms are the Perl single form equivalents
+of Unicode properties, such as C<\p{sc}> being a single-form equivalent of
+C<\p{gc=sc}>, which is treated by C<prop_invmap()> as the C<Script> property,
+whose short name is C<sc>.  The table indicates the current ambiguities in the
+INFO column, beginning with the word C<"NOT">.
+
+The standard Unicode properties listed below are documented in
+L<http://www.unicode.org/reports/tr44/>; Perl_Decimal_Digit is documented in
+L<Unicode::UCD/prop_invmap()>.  The other Perl extensions are in
+L<perlunicode/Other Properties>;
+
+The first column in the table is a name for the property; the second column is
+an alternative name, if any, plus possibly some annotations.  The alternative
+name is the property's full name, unless that would simply repeat the first
+column, in which case the second column indicates the property's short name
+(if different).  The annotations are given only in the entry for the full
+name.  If a property is obsolete, etc, the entry will be flagged with the same
+characters used in the table in the L<section above|/Properties accessible
+through \p{} and \P{}>, like B<D> or B<S>.
+
+   NAME                      INFO
+
+   Age
+   AHex                    ASCII_Hex_Digit
+   All                     (Perl extension).  All code points,
+                           including those above Unicode.  Same as
+                           qr/./s
+   Alnum                   XPosixAlnum.  (Perl extension)
+   Alpha                   Alphabetic
+   Alphabetic              (Short: Alpha)
+   Any                     (Perl extension).  All Unicode code
+                           points: [\x{0000}-\x{10FFFF}]
+   ASCII                   Block=ASCII.  (Perl extension).
+                           [[:ASCII:]]
+   ASCII_Hex_Digit         (Short: AHex)
+   Assigned                (Perl extension).  All assigned code points
+   Bc                      Bidi_Class
+   Bidi_C                  Bidi_Control
+   Bidi_Class              (Short: bc)
+   Bidi_Control            (Short: Bidi_C)
+   Bidi_M                  Bidi_Mirrored
+   Bidi_Mirrored           (Short: Bidi_M)
+   Bidi_Mirroring_Glyph    (Short: bmg)
+   Bidi_Paired_Bracket     (Short: bpb)
+   Bidi_Paired_Bracket_Type (Short: bpt)
+   Blank                   XPosixBlank.  (Perl extension)
+   Blk                     Block
+   Block                   (Short: blk)
+   Bmg                     Bidi_Mirroring_Glyph
+   Bpb                     Bidi_Paired_Bracket
+   Bpt                     Bidi_Paired_Bracket_Type
+   Canonical_Combining_Class (Short: ccc)
+   Case_Folding            (Short: cf)
+   Case_Ignorable          (Short: CI)
+   Cased
+   Category                General_Category
+   Ccc                     Canonical_Combining_Class
+   CE                      Composition_Exclusion
+   Cf                      Case_Folding; NOT 'cf' meaning
+                           'General_Category=Format'
+   Changes_When_Casefolded (Short: CWCF)
+   Changes_When_Casemapped (Short: CWCM)
+   Changes_When_Lowercased (Short: CWL)
+   Changes_When_NFKC_Casefolded (Short: CWKCF)
+   Changes_When_Titlecased (Short: CWT)
+   Changes_When_Uppercased (Short: CWU)
+   CI                      Case_Ignorable
+   Cntrl                   General_Category=XPosixCntrl.  (Perl
+                           extension)
+   Comp_Ex                 Full_Composition_Exclusion
+   Composition_Exclusion   (Short: CE)
+   CWCF                    Changes_When_Casefolded
+   CWCM                    Changes_When_Casemapped
+   CWKCF                   Changes_When_NFKC_Casefolded
+   CWL                     Changes_When_Lowercased
+   CWT                     Changes_When_Titlecased
+   CWU                     Changes_When_Uppercased
+   Dash
+   Decomposition_Mapping   (Short: dm)
+   Decomposition_Type      (Short: dt)
+   Default_Ignorable_Code_Point (Short: DI)
+   Dep                     Deprecated
+   Deprecated              (Short: Dep)
+   DI                      Default_Ignorable_Code_Point
+   Dia                     Diacritic
+   Diacritic               (Short: Dia)
+   Digit                   General_Category=XPosixDigit.  (Perl
+                           extension)
+   Dm                      Decomposition_Mapping
+   Dt                      Decomposition_Type
+   Ea                      East_Asian_Width
+   East_Asian_Width        (Short: ea)
+   Ext                     Extender
+   Extender                (Short: Ext)
+   Full_Composition_Exclusion (Short: Comp_Ex)
+   Gc                      General_Category
+   GCB                     Grapheme_Cluster_Break
+   General_Category        (Short: gc)
+   Gr_Base                 Grapheme_Base
+   Gr_Ext                  Grapheme_Extend
+   Graph                   XPosixGraph.  (Perl extension)
+   Grapheme_Base           (Short: Gr_Base)
+   Grapheme_Cluster_Break  (Short: GCB)
+   Grapheme_Extend         (Short: Gr_Ext)
+   Hangul_Syllable_Type    (Short: hst)
+   Hex                     Hex_Digit
+   Hex_Digit               (Short: Hex)
+   HorizSpace              XPosixBlank.  (Perl extension)
+   Hst                     Hangul_Syllable_Type
+ D Hyphen                  Supplanted by Line_Break property values;
+                           see www.unicode.org/reports/tr14
+   ID_Continue             (Short: IDC)
+   ID_Start                (Short: IDS)
+   IDC                     ID_Continue
+   Ideo                    Ideographic
+   Ideographic             (Short: Ideo)
+   IDS                     ID_Start
+   IDS_Binary_Operator     (Short: IDSB)
+   IDS_Trinary_Operator    (Short: IDST)
+   IDSB                    IDS_Binary_Operator
+   IDST                    IDS_Trinary_Operator
+   In                      Present_In.  (Perl extension)
+   Indic_Positional_Category (Short: InPC)
+   Indic_Syllabic_Category (Short: InSC)
+   InPC                    Indic_Positional_Category
+   InSC                    Indic_Syllabic_Category
+   Isc                     ISO_Comment; NOT 'isc' meaning
+                           'General_Category=Other'
+   ISO_Comment             (Short: isc)
+   Jg                      Joining_Group
+   Join_C                  Join_Control
+   Join_Control            (Short: Join_C)
+   Joining_Group           (Short: jg)
+   Joining_Type            (Short: jt)
+   Jt                      Joining_Type
+   Lb                      Line_Break
+   Lc                      Lowercase_Mapping; NOT 'lc' meaning
+                           'General_Category=Cased_Letter'
+   Line_Break              (Short: lb)
+   LOE                     Logical_Order_Exception
+   Logical_Order_Exception (Short: LOE)
+   Lower                   Lowercase
+   Lowercase               (Short: Lower)
+   Lowercase_Mapping       (Short: lc)
+   Math
+   Na                      Name
+   Na1                     Unicode_1_Name
+   Name                    (Short: na)
+   Name_Alias
+   NChar                   Noncharacter_Code_Point
+   NFC_QC                  NFC_Quick_Check
+   NFC_Quick_Check         (Short: NFC_QC)
+   NFD_QC                  NFD_Quick_Check
+   NFD_Quick_Check         (Short: NFD_QC)
+   NFKC_Casefold           (Short: NFKC_CF)
+   NFKC_CF                 NFKC_Casefold
+   NFKC_QC                 NFKC_Quick_Check
+   NFKC_Quick_Check        (Short: NFKC_QC)
+   NFKD_QC                 NFKD_Quick_Check
+   NFKD_Quick_Check        (Short: NFKD_QC)
+   Noncharacter_Code_Point (Short: NChar)
+   Nt                      Numeric_Type
+   Numeric_Type            (Short: nt)
+   Numeric_Value           (Short: nv)
+   Nv                      Numeric_Value
+   Pat_Syn                 Pattern_Syntax
+   Pat_WS                  Pattern_White_Space
+   Pattern_Syntax          (Short: Pat_Syn)
+   Pattern_White_Space     (Short: Pat_WS)
+   Perl_Decimal_Digit      (Perl extension)
+   PerlSpace               PosixSpace.  (Perl extension)
+   PerlWord                PosixWord.  (Perl extension)
+   PosixAlnum              (Perl extension).  [A-Za-z0-9]
+   PosixAlpha              (Perl extension).  [A-Za-z]
+   PosixBlank              (Perl extension).  \t and ' '
+   PosixCntrl              (Perl extension).  ASCII control
+                           characters: NUL, SOH, STX, ETX, EOT, ENQ,
+                           ACK, BEL, BS, HT, LF, VT, FF, CR, SO, SI,
+                           DLE, DC1, DC2, DC3, DC4, NAK, SYN, ETB,
+                           CAN, EOM, SUB, ESC, FS, GS, RS, US, and DEL
+   PosixDigit              (Perl extension).  [0-9]
+   PosixGraph              (Perl extension).  [-!"#$%&'()*+,./:;<=
+                           >?@[\\]^_`{|}~0-9A-Za-z]
+   PosixLower              (Perl extension).  [a-z]
+   PosixPrint              (Perl extension).  [- 0-9A-Za-
+                           z!"#$%&'()*+,./:;<=>?@[\\]^_`{|}~]
+   PosixPunct              (Perl extension).  [-!"#$%&'()*+,./:;<=
+                           >?@[\\]^_`{|}~]
+   PosixSpace              (Perl extension).  \t, \n, \cK, \f, \r,
+                           and ' '.  (\cK is vertical tab)
+   PosixUpper              (Perl extension).  [A-Z]
+   PosixWord               (Perl extension).  \w, restricted to ASCII
+                           = [A-Za-z0-9_]
+   PosixXDigit             (Perl extension).  [0-9A-Fa-f]
+   Present_In              (Short: In).  (Perl extension)
+   Print                   XPosixPrint.  (Perl extension)
+   Punct                   General_Category=Punct.  (Perl extension)
+   QMark                   Quotation_Mark
+   Quotation_Mark          (Short: QMark)
+   Radical
+   SB                      Sentence_Break
+   Sc                      Script; NOT 'sc' meaning
+                           'General_Category=Currency_Symbol'
+   Scf                     Simple_Case_Folding
+   Script                  (Short: sc)
+   Script_Extensions       (Short: scx)
+   Scx                     Script_Extensions
+   SD                      Soft_Dotted
+   Sentence_Break          (Short: SB)
+   Sfc                     Simple_Case_Folding
+   Simple_Case_Folding     (Short: scf)
+   Simple_Lowercase_Mapping (Short: slc)
+   Simple_Titlecase_Mapping (Short: stc)
+   Simple_Uppercase_Mapping (Short: suc)
+   Slc                     Simple_Lowercase_Mapping
+   Soft_Dotted             (Short: SD)
+   Space                   White_Space
+   SpacePerl               XPosixSpace.  (Perl extension)
+   Stc                     Simple_Titlecase_Mapping
+   STerm
+   Suc                     Simple_Uppercase_Mapping
+   Tc                      Titlecase_Mapping
+   Term                    Terminal_Punctuation
+   Terminal_Punctuation    (Short: Term)
+   Title                   Titlecase.  (Perl extension)
+   Titlecase               (Short: Title).  (Perl extension).  (=
+                           \p{Gc=Lt})
+   Titlecase_Mapping       (Short: tc)
+   Uc                      Uppercase_Mapping
+   UIdeo                   Unified_Ideograph
+   Unicode                 Any.  (Perl extension)
+   Unicode_1_Name          (Short: na1)
+   Unified_Ideograph       (Short: UIdeo)
+   Upper                   Uppercase
+   Uppercase               (Short: Upper)
+   Uppercase_Mapping       (Short: uc)
+   Variation_Selector      (Short: VS)
+   VertSpace               (Perl extension).  \v
+   VS                      Variation_Selector
+   WB                      Word_Break
+   White_Space             (Short: WSpace)
+   Word                    XPosixWord.  (Perl extension)
+   Word_Break              (Short: WB)
+   WSpace                  White_Space
+   XDigit                  XPosixXDigit.  (Perl extension)
+   XID_Continue            (Short: XIDC)
+   XID_Start               (Short: XIDS)
+   XIDC                    XID_Continue
+   XIDS                    XID_Start
+   XPerlSpace              XPosixSpace.  (Perl extension)
+   XPosixAlnum             (Short: Alnum).  (Perl extension).
+                           Alphabetic and (decimal) Numeric
+   XPosixAlpha             (Perl extension)
+   XPosixBlank             (Short: Blank).  (Perl extension).  \h,
+                           Horizontal white space
+   XPosixCntrl             General_Category=XPosixCntrl  (Short:
+                           Cntrl).  (Perl extension).  Control
+                           characters
+   XPosixDigit             General_Category=XPosixDigit  (Short:
+                           Digit).  (Perl extension).  [0-9] + all
+                           other decimal digits
+   XPosixGraph             (Short: Graph).  (Perl extension).
+                           Characters that are graphical
+   XPosixLower             (Perl extension)
+   XPosixPrint             (Short: Print).  (Perl extension).
+                           Characters that are graphical plus space
+                           characters (but no controls)
+   XPosixPunct             (Perl extension).  \p{Punct} + ASCII-range
+                           \p{Symbol}
+   XPosixSpace             (Perl extension).  \s including beyond
+                           ASCII and vertical tab
+   XPosixUpper             (Perl extension)
+   XPosixWord              (Short: Word).  (Perl extension).  \w,
+                           including beyond ASCII; = \p{Alnum} + \pM
+                           + \p{Pc}
+   XPosixXDigit            (Short: XDigit).  (Perl extension)
+
+
+=head1 Properties accessible through other means
+
+Certain properties are accessible also via core function calls.  These are:
+
+ Lowercase_Mapping          lc() and lcfirst()
+ Titlecase_Mapping          ucfirst()
+ Uppercase_Mapping          uc()
+
+Also, Case_Folding is accessible through the C</i> modifier in regular
+expressions, the C<\F> transliteration escape, and the C<L<fc|perlfunc/fc>>
+operator.
+
+And, the Name and Name_Aliases properties are accessible through the C<\N{}>
+interpolation in double-quoted strings and regular expressions; and functions
+C<charnames::viacode()>, C<charnames::vianame()>, and
+C<charnames::string_vianame()> (which require a C<use charnames ();> to be
+specified.
+
+Finally, most properties related to decomposition are accessible via
+L<Unicode::Normalize>.
+
+=head1 Unicode character properties that are NOT accepted by Perl
+
+Perl will generate an error for a few character properties in Unicode when
+used in a regular expression.  The non-Unihan ones are listed below, with the
+reasons they are not accepted, perhaps with work-arounds.  The short names for
+the properties are listed enclosed in (parentheses).
+As described after the list, an installation can change the defaults and choose
+to accept any of these.  The list is machine generated based on the
+choices made for the installation that generated this document.
+
+
+=over 4
+
+
+
+=item I<Expands_On_NFC> (XO_NFC)
+
+=item I<Expands_On_NFD> (XO_NFD)
+
+=item I<Expands_On_NFKC> (XO_NFKC)
+
+=item I<Expands_On_NFKD> (XO_NFKD)
+
+Deprecated by Unicode.  These are characters that expand to more than one character in the specified normalization form, but whether they actually take up more bytes or not depends on the encoding being used.  For example, a UTF-8 encoded character may expand to a different number of bytes than a UTF-32 encoded character.
+
+
+
+=item I<Grapheme_Link> (Gr_Link)
+
+Deprecated by Unicode:  Duplicates ccc=vr (Canonical_Combining_Class=Virama)
+
+
+
+=item I<Jamo_Short_Name> (JSN)
+
+=item I<Other_Alphabetic> (OAlpha)
+
+=item I<Other_Default_Ignorable_Code_Point> (ODI)
+
+=item I<Other_Grapheme_Extend> (OGr_Ext)
+
+=item I<Other_ID_Continue> (OIDC)
+
+=item I<Other_ID_Start> (OIDS)
+
+=item I<Other_Lowercase> (OLower)
+
+=item I<Other_Math> (OMath)
+
+=item I<Other_Uppercase> (OUpper)
+
+Used by Unicode internally for generating other properties and not intended to be used stand-alone
+
+
+
+=item I<Script=Katakana_Or_Hiragana> (sc=Hrkt)
+
+Obsolete.  All code points previously matched by this have been moved to "Script=Common".  Consider instead using "Script_Extensions=Katakana" or "Script_Extensions=Hiragana" (or both)
+
+
+
+=item I<Script_Extensions=Katakana_Or_Hiragana> (scx=Hrkt)
+
+All code points that would be matched by this are matched by either "Script_Extensions=Katakana" or "Script_Extensions=Hiragana"
+
+=back
+
+
+An installation can choose to allow any of these to be matched by downloading
+the Unicode database from L<http://www.unicode.org/Public/> to
+C<$Config{privlib}>/F<unicore/> in the Perl source tree, changing the
+controlling lists contained in the program
+C<$Config{privlib}>/F<unicore/mktables> and then re-compiling and installing.
+(C<%Config> is available from the Config module).
+
+Also, perl can be recompiled to operate on an earlier version of the Unicode
+standard.  Further information is at
+C<$Config{privlib}>/F<unicore/README.perl>.
+
+=head1 Other information in the Unicode data base
+
+The Unicode data base is delivered in two different formats.  The XML version
+is valid for more modern Unicode releases.  The other version is a collection
+of files.  The two are intended to give equivalent information.  Perl uses the
+older form; this allows you to recompile Perl to use early Unicode releases.
+
+The only non-character property that Perl currently supports is Named
+Sequences, in which a sequence of code points
+is given a name and generally treated as a single entity.  (Perl supports
+these via the C<\N{...}> double-quotish construct,
+L<charnames/charnames::string_vianame(name)>, and L<Unicode::UCD/namedseq()>.
+
+Below is a list of the files in the Unicode data base that Perl doesn't
+currently use, along with very brief descriptions of their purposes.
+Some of the names of the files have been shortened from those that Unicode
+uses, in order to allow them to be distinguishable from similarly named files
+on file systems for which only the first 8 characters of a name are
+significant.
+
+=over 4
+
+
+
+
+=item F<auxiliary/GraphemeBreakTest.html> 
+
+=item F<auxiliary/LineBreakTest.html> 
+
+=item F<auxiliary/SentenceBreakTest.html> 
+
+=item F<auxiliary/WordBreakTest.html> 
+
+Documentation of validation Tests
+
+
+
+=item F<BidiCharacterTest.txt> 
+
+=item F<BidiTest.txt> 
+
+=item F<NormTest.txt> 
+
+Validation Tests
+
+
+
+=item F<CJKRadicals.txt> 
+
+Maps the kRSUnicode property values to corresponding code points
+
+
+
+=item F<EmojiSources.txt> 
+
+Maps certain Unicode code points to their legacy Japanese cell-phone values
+
+
+
+=item F<Index.txt> 
+
+Alphabetical index of Unicode characters
+
+
+
+=item F<NamedSqProv.txt> 
+
+Named sequences proposed for inclusion in a later version of the Unicode Standard; if you need them now, you can append this file to F<NamedSequences.txt> and recompile perl
+
+
+
+=item F<NamesList.html> 
+
+Describes the format and contents of F<NamesList.txt>
+
+
+
+=item F<NamesList.txt> 
+
+Annotated list of characters
+
+
+
+=item F<NormalizationCorrections.txt> 
+
+Documentation of corrections already incorporated into the Unicode data base
+
+
+
+=item F<ReadMe.txt> 
+
+Documentation
+
+
+
+=item F<StandardizedVariants.html> 
+
+Provides a visual display of the standard variant sequences derived from F<StandardizedVariants.txt>.
+
+
+
+=item F<StandardizedVariants.txt> 
+
+Certain glyph variations for character display are standardized.  This lists the non-Unihan ones; the Unihan ones are also not used by Perl, and are in a separate Unicode data base L<http://www.unicode.org/ivd>
+
+
+
+=item F<USourceData.txt> 
+
+Documentation of status and cross reference of proposals for encoding by Unicode of Unihan characters
+
+
+
+=item F<USourceGlyphs.pdf> 
+
+Pictures of the characters in F<USourceData.txt>
+
+
+=back
+
+=head1 SEE ALSO
+
+L<http://www.unicode.org/reports/tr44/>
+
+L<perlrecharclass>
+
+L<perlunicode>
+
diff --git a/lib/5.24.1/pod/perlunitut.pod b/lib/5.24.1/pod/perlunitut.pod
new file mode 100644
index 00000000..e96a9d24
--- /dev/null
+++ b/lib/5.24.1/pod/perlunitut.pod
@@ -0,0 +1,209 @@
+=head1 NAME
+
+perlunitut - Perl Unicode Tutorial
+
+=head1 DESCRIPTION
+
+The days of just flinging strings around are over. It's well established that
+modern programs need to be capable of communicating funny accented letters, and
+things like euro symbols. This means that programmers need new habits. It's
+easy to program Unicode capable software, but it does require discipline to do
+it right.
+
+There's a lot to know about character sets, and text encodings. It's probably
+best to spend a full day learning all this, but the basics can be learned in
+minutes. 
+
+These are not the very basics, though. It is assumed that you already
+know the difference between bytes and characters, and realise (and accept!)
+that there are many different character sets and encodings, and that your
+program has to be explicit about them. Recommended reading is "The Absolute
+Minimum Every Software Developer Absolutely, Positively Must Know About Unicode
+and Character Sets (No Excuses!)" by Joel Spolsky, at
+L<http://joelonsoftware.com/articles/Unicode.html>.
+
+This tutorial speaks in rather absolute terms, and provides only a limited view
+of the wealth of character string related features that Perl has to offer. For
+most projects, this information will probably suffice.
+
+=head2 Definitions
+
+It's important to set a few things straight first. This is the most important
+part of this tutorial. This view may conflict with other information that you
+may have found on the web, but that's mostly because many sources are wrong.
+
+You may have to re-read this entire section a few times...
+
+=head3 Unicode
+
+B<Unicode> is a character set with room for lots of characters. The ordinal
+value of a character is called a B<code point>.   (But in practice, the
+distinction between code point and character is blurred, so the terms often
+are used interchangeably.)
+
+There are many, many code points, but computers work with bytes, and a byte has
+room for only 256 values.  Unicode has many more characters than that,
+so you need a method to make these accessible.
+
+Unicode is encoded using several competing encodings, of which UTF-8 is the
+most used. In a Unicode encoding, multiple subsequent bytes can be used to
+store a single code point, or simply: character.
+
+=head3 UTF-8
+
+B<UTF-8> is a Unicode encoding. Many people think that Unicode and UTF-8 are
+the same thing, but they're not. There are more Unicode encodings, but much of
+the world has standardized on UTF-8. 
+
+UTF-8 treats the first 128 codepoints, 0..127, the same as ASCII. They take
+only one byte per character. All other characters are encoded as two to
+four bytes using a complex scheme. Fortunately, Perl handles this for
+us, so we don't have to worry about this.
+
+=head3 Text strings (character strings)
+
+B<Text strings>, or B<character strings> are made of characters. Bytes are
+irrelevant here, and so are encodings. Each character is just that: the
+character.
+
+On a text string, you would do things like:
+
+    $text =~ s/foo/bar/;
+    if ($string =~ /^\d+$/) { ... }
+    $text = ucfirst $text;
+    my $character_count = length $text;
+
+The value of a character (C<ord>, C<chr>) is the corresponding Unicode code
+point.
+
+=head3 Binary strings (byte strings)
+
+B<Binary strings>, or B<byte strings> are made of bytes. Here, you don't have
+characters, just bytes. All communication with the outside world (anything
+outside of your current Perl process) is done in binary.
+
+On a binary string, you would do things like:
+
+    my (@length_content) = unpack "(V/a)*", $binary;
+    $binary =~ s/\x00\x0F/\xFF\xF0/;  # for the brave :)
+    print {$fh} $binary;
+    my $byte_count = length $binary;
+
+=head3 Encoding
+
+B<Encoding> (as a verb) is the conversion from I<text> to I<binary>. To encode,
+you have to supply the target encoding, for example C<iso-8859-1> or C<UTF-8>.
+Some encodings, like the C<iso-8859> ("latin") range, do not support the full
+Unicode standard; characters that can't be represented are lost in the
+conversion.
+
+=head3 Decoding
+
+B<Decoding> is the conversion from I<binary> to I<text>. To decode, you have to
+know what encoding was used during the encoding phase. And most of all, it must
+be something decodable. It doesn't make much sense to decode a PNG image into a
+text string.
+
+=head3 Internal format
+
+Perl has an B<internal format>, an encoding that it uses to encode text strings
+so it can store them in memory. All text strings are in this internal format.
+In fact, text strings are never in any other format!
+
+You shouldn't worry about what this format is, because conversion is
+automatically done when you decode or encode.
+
+=head2 Your new toolkit
+
+Add to your standard heading the following line:
+
+    use Encode qw(encode decode);
+
+Or, if you're lazy, just:
+
+    use Encode;
+
+=head2 I/O flow (the actual 5 minute tutorial)
+
+The typical input/output flow of a program is:
+
+    1. Receive and decode
+    2. Process
+    3. Encode and output
+
+If your input is binary, and is supposed to remain binary, you shouldn't decode
+it to a text string, of course. But in all other cases, you should decode it.
+
+Decoding can't happen reliably if you don't know how the data was encoded. If
+you get to choose, it's a good idea to standardize on UTF-8.
+
+    my $foo   = decode('UTF-8', get 'http://example.com/');
+    my $bar   = decode('ISO-8859-1', readline STDIN);
+    my $xyzzy = decode('Windows-1251', $cgi->param('foo'));
+
+Processing happens as you knew before. The only difference is that you're now
+using characters instead of bytes. That's very useful if you use things like
+C<substr>, or C<length>.
+
+It's important to realize that there are no bytes in a text string. Of course,
+Perl has its internal encoding to store the string in memory, but ignore that.
+If you have to do anything with the number of bytes, it's probably best to move
+that part to step 3, just after you've encoded the string. Then you know
+exactly how many bytes it will be in the destination string.
+
+The syntax for encoding text strings to binary strings is as simple as decoding:
+
+    $body = encode('UTF-8', $body);
+
+If you needed to know the length of the string in bytes, now's the perfect time
+for that. Because C<$body> is now a byte string, C<length> will report the
+number of bytes, instead of the number of characters. The number of
+characters is no longer known, because characters only exist in text strings.
+
+    my $byte_count = length $body;
+
+And if the protocol you're using supports a way of letting the recipient know
+which character encoding you used, please help the receiving end by using that
+feature! For example, E-mail and HTTP support MIME headers, so you can use the
+C<Content-Type> header. They can also have C<Content-Length> to indicate the
+number of I<bytes>, which is always a good idea to supply if the number is
+known.
+
+    "Content-Type: text/plain; charset=UTF-8",
+    "Content-Length: $byte_count"
+
+=head1 SUMMARY
+
+Decode everything you receive, encode everything you send out. (If it's text
+data.)
+
+=head1 Q and A (or FAQ)
+
+After reading this document, you ought to read L<perlunifaq> too, then
+L<perluniintro>.
+
+=head1 ACKNOWLEDGEMENTS
+
+Thanks to Johan Vromans from Squirrel Consultancy. His UTF-8 rants during the
+Amsterdam Perl Mongers meetings got me interested and determined to find out
+how to use character encodings in Perl in ways that don't break easily.
+
+Thanks to Gerard Goossen from TTY. His presentation "UTF-8 in the wild" (Dutch
+Perl Workshop 2006) inspired me to publish my thoughts and write this tutorial.
+
+Thanks to the people who asked about this kind of stuff in several Perl IRC
+channels, and have constantly reminded me that a simpler explanation was
+needed.
+
+Thanks to the people who reviewed this document for me, before it went public.
+They are: Benjamin Smith, Jan-Pieter Cornet, Johan Vromans, Lukas Mai, Nathan
+Gray.
+
+=head1 AUTHOR
+
+Juerd Waalboer <#####@juerd.nl>
+
+=head1 SEE ALSO
+
+L<perlunifaq>, L<perlunicode>, L<perluniintro>, L<Encode>
+
diff --git a/lib/5.24.1/pod/perlutil.pod b/lib/5.24.1/pod/perlutil.pod
new file mode 100644
index 00000000..4047b42e
--- /dev/null
+++ b/lib/5.24.1/pod/perlutil.pod
@@ -0,0 +1,245 @@
+=head1 NAME
+
+perlutil - utilities packaged with the Perl distribution
+
+=head1 DESCRIPTION
+
+Along with the Perl interpreter itself, the Perl distribution installs a
+range of utilities on your system. There are also several utilities
+which are used by the Perl distribution itself as part of the install
+process. This document exists to list all of these utilities, explain
+what they are for and provide pointers to each module's documentation,
+if appropriate.
+
+=head1 LIST OF UTILITIES
+
+=head2 Documentation
+
+=over 3
+
+=item L<perldoc|perldoc>
+
+The main interface to Perl's documentation is C<perldoc>, although
+if you're reading this, it's more than likely that you've already found
+it. F<perldoc> will extract and format the documentation from any file
+in the current directory, any Perl module installed on the system, or
+any of the standard documentation pages, such as this one. Use 
+C<perldoc E<lt>nameE<gt>> to get information on any of the utilities
+described in this document.
+
+=item L<pod2man|pod2man> and L<pod2text|pod2text>
+
+If it's run from a terminal, F<perldoc> will usually call F<pod2man> to
+translate POD (Plain Old Documentation - see L<perlpod> for an
+explanation) into a manpage, and then run F<man> to display it; if
+F<man> isn't available, F<pod2text> will be used instead and the output
+piped through your favourite pager.
+
+=item L<pod2html|pod2html>
+
+As well as these two, there is another converter: F<pod2html> will
+produce HTML pages from POD.
+
+=item L<pod2usage|pod2usage>
+
+If you just want to know how to use the utilities described here,
+F<pod2usage> will just extract the "USAGE" section; some of
+the utilities will automatically call F<pod2usage> on themselves when
+you call them with C<-help>.
+
+=item L<podselect|podselect>
+
+F<pod2usage> is a special case of F<podselect>, a utility to extract
+named sections from documents written in POD. For instance, while
+utilities have "USAGE" sections, Perl modules usually have "SYNOPSIS"
+sections: C<podselect -s "SYNOPSIS" ...> will extract this section for
+a given file.
+
+=item L<podchecker|podchecker>
+
+If you're writing your own documentation in POD, the F<podchecker>
+utility will look for errors in your markup.
+
+=item L<splain|splain>
+
+F<splain> is an interface to L<perldiag> - paste in your error message
+to it, and it'll explain it for you.
+
+=item C<roffitall>
+
+The C<roffitall> utility is not installed on your system but lives in
+the F<pod/> directory of your Perl source kit; it converts all the
+documentation from the distribution to F<*roff> format, and produces a
+typeset PostScript or text file of the whole lot.
+
+=back
+
+=head2 Converters
+
+To help you convert legacy programs to more modern Perl, the
+L<pl2pm|pl2pm> utility will help you convert old-style Perl 4 libraries
+to new-style Perl5 modules.
+
+=head2 Administration
+
+=over 3
+
+=item L<libnetcfg|libnetcfg>
+
+To display and change the libnet configuration run the libnetcfg command.
+
+=item L<perlivp>
+
+The F<perlivp> program is set up at Perl source code build time to test
+the Perl version it was built under.  It can be used after running C<make
+install> (or your platform's equivalent procedure) to verify that perl
+and its libraries have been installed correctly.
+
+=back
+
+=head2 Development
+
+There are a set of utilities which help you in developing Perl programs, 
+and in particular, extending Perl with C.
+
+=over 3
+
+=item L<perlbug|perlbug>
+
+F<perlbug> is the recommended way to report bugs in the perl interpreter
+itself or any of the standard library modules back to the developers;
+please read through the documentation for F<perlbug> thoroughly before
+using it to submit a bug report.
+
+=item L<perlthanks|perlbug>
+
+This program provides an easy way to send a thank-you message back to the
+authors and maintainers of perl. It's just F<perlbug> installed under
+another name.
+
+=item L<h2ph|h2ph>
+
+Back before Perl had the XS system for connecting with C libraries,
+programmers used to get library constants by reading through the C
+header files. You may still see C<require 'syscall.ph'> or similar
+around - the F<.ph> file should be created by running F<h2ph> on the
+corresponding F<.h> file. See the F<h2ph> documentation for more on how
+to convert a whole bunch of header files at once.
+
+=item L<c2ph|c2ph> and L<pstruct|pstruct>
+
+F<c2ph> and F<pstruct>, which are actually the same program but behave
+differently depending on how they are called, provide another way of
+getting at C with Perl - they'll convert C structures and union declarations
+to Perl code. This is deprecated in favour of F<h2xs> these days.
+
+=item L<h2xs|h2xs>
+
+F<h2xs> converts C header files into XS modules, and will try and write
+as much glue between C libraries and Perl modules as it can. It's also
+very useful for creating skeletons of pure Perl modules.
+
+=item L<enc2xs>
+
+F<enc2xs> builds a Perl extension for use by Encode from either
+Unicode Character Mapping files (.ucm) or Tcl Encoding Files (.enc).
+Besides being used internally during the build process of the Encode
+module, you can use F<enc2xs> to add your own encoding to perl.
+No knowledge of XS is necessary.
+
+=item L<xsubpp>
+
+F<xsubpp> is a compiler to convert Perl XS code into C code.
+It is typically run by the makefiles created by L<ExtUtils::MakeMaker>.
+
+F<xsubpp> will compile XS code into C code by embedding the constructs
+necessary to let C functions manipulate Perl values and creates the glue
+necessary to let Perl access those functions.
+
+=item L<prove>
+
+F<prove> is a command-line interface to the test-running functionality
+of F<Test::Harness>.  It's an alternative to C<make test>.
+
+=item L<corelist>
+
+A command-line front-end to C<Module::CoreList>, to query what modules
+were shipped with given versions of perl.
+
+=back
+
+=head2 General tools
+
+A few general-purpose tools are shipped with perl, mostly because they
+came along modules included in the perl distribution.
+
+=over 3
+
+=item L<piconv>
+
+B<piconv> is a Perl version of B<iconv>, a character encoding converter
+widely available for various Unixen today.  This script was primarily a
+technology demonstrator for Perl v5.8.0, but you can use piconv in the
+place of iconv for virtually any case.
+
+=item L<ptar>
+
+F<ptar> is a tar-like program, written in pure Perl.
+
+=item L<ptardiff>
+
+F<ptardiff> is a small utility that produces a diff between an extracted
+archive and an unextracted one. (Note that this utility requires the
+C<Text::Diff> module to function properly; this module isn't distributed
+with perl, but is available from the CPAN.)
+
+=item L<ptargrep>
+
+F<ptargrep> is a utility to apply pattern matching to the contents of files 
+in a tar archive.
+
+=item L<shasum>
+
+This utility, that comes with the C<Digest::SHA> module, is used to print
+or verify SHA checksums.
+
+=item L<zipdetails>
+
+L<zipdetails> displays information about the internal record structure of the zip file.
+It is not concerned with displaying any details of the compressed data stored in the zip file.
+
+=back
+
+=head2 Installation
+
+These utilities help manage extra Perl modules that don't come with the perl
+distribution.
+
+=over 3
+
+=item L<cpan>
+
+F<cpan> is a command-line interface to CPAN.pm.  It allows you to install
+modules or distributions from CPAN, or just get information about them, and
+a lot more.  It is similar to the command line mode of the L<CPAN> module,
+
+    perl -MCPAN -e shell
+
+=item L<instmodsh>
+
+A little interface to ExtUtils::Installed to examine installed modules,
+validate your packlists and even create a tarball from an installed module.
+
+=back
+
+=head1 SEE ALSO
+
+L<perldoc|perldoc>, L<pod2man|pod2man>, L<perlpod>,
+L<pod2html|pod2html>, L<pod2usage|pod2usage>, L<podselect|podselect>,
+L<podchecker|podchecker>, L<splain|splain>, L<perldiag>,
+C<roffitall|roffitall>, L<File::Find|File::Find>, L<pl2pm|pl2pm>,
+L<perlbug|perlbug>, L<h2ph|h2ph>, L<c2ph|c2ph>, L<h2xs|h2xs>, L<enc2xs>,
+L<xsubpp>, L<cpan>, L<instmodsh>, L<piconv>, L<prove>, L<corelist>, L<ptar>,
+L<ptardiff>, L<shasum>, L<zipdetails>
+
+=cut
diff --git a/lib/5.24.1/pod/perlvar.pod b/lib/5.24.1/pod/perlvar.pod
new file mode 100644
index 00000000..1821b95d
--- /dev/null
+++ b/lib/5.24.1/pod/perlvar.pod
@@ -0,0 +1,2321 @@
+=head1 NAME
+
+perlvar - Perl predefined variables
+
+=head1 DESCRIPTION
+
+=head2 The Syntax of Variable Names
+
+Variable names in Perl can have several formats.  Usually, they
+must begin with a letter or underscore, in which case they can be
+arbitrarily long (up to an internal limit of 251 characters) and
+may contain letters, digits, underscores, or the special sequence
+C<::> or C<'>.  In this case, the part before the last C<::> or
+C<'> is taken to be a I<package qualifier>; see L<perlmod>.
+A Unicode letter that is not ASCII is not considered to be a letter
+unless S<C<"use utf8">> is in effect, and somewhat more complicated
+rules apply; see L<perldata/Identifier parsing> for details.
+
+Perl variable names may also be a sequence of digits, a single
+punctuation character, or the two-character sequence: C<^> (caret or
+CIRCUMFLEX ACCENT) followed by any one of the characters C<[][A-Z^_?\]>.
+These names are all reserved for
+special uses by Perl; for example, the all-digits names are used
+to hold data captured by backreferences after a regular expression
+match.
+
+Since Perl v5.6.0, Perl variable names may also be alphanumeric strings
+preceded by a caret.  These must all be written in the form C<${^Foo}>;
+the braces are not optional.  C<${^Foo}> denotes the scalar variable
+whose name is considered to be a control-C<F> followed by two C<o>'s.
+These variables are
+reserved for future special uses by Perl, except for the ones that
+begin with C<^_> (caret-underscore).  No
+name that begins with C<^_> will acquire a special
+meaning in any future version of Perl; such names may therefore be
+used safely in programs.  C<$^_> itself, however, I<is> reserved.
+
+Perl identifiers that begin with digits or
+punctuation characters are exempt from the effects of the C<package>
+declaration and are always forced to be in package C<main>; they are
+also exempt from C<strict 'vars'> errors.  A few other names are also
+exempt in these ways:
+
+    ENV      STDIN
+    INC      STDOUT
+    ARGV     STDERR
+    ARGVOUT
+    SIG
+
+In particular, the special C<${^_XYZ}> variables are always taken
+to be in package C<main>, regardless of any C<package> declarations
+presently in scope.
+
+=head1 SPECIAL VARIABLES
+
+The following names have special meaning to Perl.  Most punctuation
+names have reasonable mnemonics, or analogs in the shells.
+Nevertheless, if you wish to use long variable names, you need only say:
+
+    use English;
+
+at the top of your program.  This aliases all the short names to the long
+names in the current package.  Some even have medium names, generally
+borrowed from B<awk>.  For more info, please see L<English>.
+
+Before you continue, note the sort order for variables.  In general, we
+first list the variables in case-insensitive, almost-lexigraphical
+order (ignoring the C<{> or C<^> preceding words, as in C<${^UNICODE}>
+or C<$^T>), although C<$_> and C<@_> move up to the top of the pile.
+For variables with the same identifier, we list it in order of scalar,
+array, hash, and bareword.
+
+=head2 General Variables
+
+=over 8
+
+=item $ARG
+
+=item $_
+X<$_> X<$ARG>
+
+The default input and pattern-searching space.  The following pairs are
+equivalent:
+
+    while (<>) {...}    # equivalent only in while!
+    while (defined($_ = <>)) {...}
+
+    /^Subject:/
+    $_ =~ /^Subject:/
+
+    tr/a-z/A-Z/
+    $_ =~ tr/a-z/A-Z/
+
+    chomp
+    chomp($_)
+
+Here are the places where Perl will assume C<$_> even if you don't use it:
+
+=over 3
+
+=item *
+
+The following functions use C<$_> as a default argument:
+
+abs, alarm, chomp, chop, chr, chroot,
+cos, defined, eval, evalbytes, exp, fc, glob, hex, int, lc,
+lcfirst, length, log, lstat, mkdir, oct, ord, pos, print, printf,
+quotemeta, readlink, readpipe, ref, require, reverse (in scalar context only),
+rmdir, say, sin, split (for its second
+argument), sqrt, stat, study, uc, ucfirst,
+unlink, unpack.
+
+=item *
+
+All file tests (C<-f>, C<-d>) except for C<-t>, which defaults to STDIN.
+See L<perlfunc/-X>
+
+=item *
+
+The pattern matching operations C<m//>, C<s///> and C<tr///> (aka C<y///>)
+when used without an C<=~> operator.
+
+=item *
+
+The default iterator variable in a C<foreach> loop if no other
+variable is supplied.
+
+=item *
+
+The implicit iterator variable in the C<grep()> and C<map()> functions.
+
+=item *
+
+The implicit variable of C<given()>.
+
+=item *
+
+The default place to put the next value or input record
+when a C<< <FH> >>, C<readline>, C<readdir> or C<each>
+operation's result is tested by itself as the sole criterion of a C<while>
+test.  Outside a C<while> test, this will not happen.
+
+=back
+
+C<$_> is by default a global variable.  However, as
+of perl v5.10.0, you can use a lexical version of
+C<$_> by declaring it in a file or in a block with C<my>.  Moreover,
+declaring C<our $_> restores the global C<$_> in the current scope.  Though
+this seemed like a good idea at the time it was introduced, lexical C<$_>
+actually causes more problems than it solves.  If you call a function that
+expects to be passed information via C<$_>, it may or may not work,
+depending on how the function is written, there not being any easy way to
+solve this.  Just avoid lexical C<$_>, unless you are feeling particularly
+masochistic.  For this reason lexical C<$_> is still experimental and will
+produce a warning unless warnings have been disabled.  As with other
+experimental features, the behavior of lexical C<$_> is subject to change
+without notice, including change into a fatal error.
+
+Mnemonic: underline is understood in certain operations.
+
+=item @ARG
+
+=item @_
+X<@_> X<@ARG>
+
+Within a subroutine the array C<@_> contains the parameters passed to
+that subroutine.  Inside a subroutine, C<@_> is the default array for
+the array operators C<pop> and C<shift>.
+
+See L<perlsub>.
+
+=item $LIST_SEPARATOR
+
+=item $"
+X<$"> X<$LIST_SEPARATOR>
+
+When an array or an array slice is interpolated into a double-quoted
+string or a similar context such as C</.../>, its elements are
+separated by this value.  Default is a space.  For example, this:
+
+    print "The array is: @array\n";
+
+is equivalent to this:
+
+    print "The array is: " . join($", @array) . "\n";
+
+Mnemonic: works in double-quoted context.
+
+=item $PROCESS_ID
+
+=item $PID
+
+=item $$
+X<$$> X<$PID> X<$PROCESS_ID>
+
+The process number of the Perl running this script.  Though you I<can> set
+this variable, doing so is generally discouraged, although it can be
+invaluable for some testing purposes.  It will be reset automatically
+across C<fork()> calls.
+
+Note for Linux and Debian GNU/kFreeBSD users: Before Perl v5.16.0 perl
+would emulate POSIX semantics on Linux systems using LinuxThreads, a
+partial implementation of POSIX Threads that has since been superseded
+by the Native POSIX Thread Library (NPTL).
+
+LinuxThreads is now obsolete on Linux, and caching C<getpid()>
+like this made embedding perl unnecessarily complex (since you'd have
+to manually update the value of $$), so now C<$$> and C<getppid()>
+will always return the same values as the underlying C library.
+
+Debian GNU/kFreeBSD systems also used LinuxThreads up until and
+including the 6.0 release, but after that moved to FreeBSD thread
+semantics, which are POSIX-like.
+
+To see if your system is affected by this discrepancy check if
+C<getconf GNU_LIBPTHREAD_VERSION | grep -q NPTL> returns a false
+value.  NTPL threads preserve the POSIX semantics.
+
+Mnemonic: same as shells.
+
+=item $PROGRAM_NAME
+
+=item $0
+X<$0> X<$PROGRAM_NAME>
+
+Contains the name of the program being executed.
+
+On some (but not all) operating systems assigning to C<$0> modifies
+the argument area that the C<ps> program sees.  On some platforms you
+may have to use special C<ps> options or a different C<ps> to see the
+changes.  Modifying the C<$0> is more useful as a way of indicating the
+current program state than it is for hiding the program you're
+running.
+
+Note that there are platform-specific limitations on the maximum
+length of C<$0>.  In the most extreme case it may be limited to the
+space occupied by the original C<$0>.
+
+In some platforms there may be arbitrary amount of padding, for
+example space characters, after the modified name as shown by C<ps>.
+In some platforms this padding may extend all the way to the original
+length of the argument area, no matter what you do (this is the case
+for example with Linux 2.2).
+
+Note for BSD users: setting C<$0> does not completely remove "perl"
+from the ps(1) output.  For example, setting C<$0> to C<"foobar"> may
+result in C<"perl: foobar (perl)"> (whether both the C<"perl: "> prefix
+and the " (perl)" suffix are shown depends on your exact BSD variant
+and version).  This is an operating system feature, Perl cannot help it.
+
+In multithreaded scripts Perl coordinates the threads so that any
+thread may modify its copy of the C<$0> and the change becomes visible
+to ps(1) (assuming the operating system plays along).  Note that
+the view of C<$0> the other threads have will not change since they
+have their own copies of it.
+
+If the program has been given to perl via the switches C<-e> or C<-E>,
+C<$0> will contain the string C<"-e">.
+
+On Linux as of perl v5.14.0 the legacy process name will be set with
+C<prctl(2)>, in addition to altering the POSIX name via C<argv[0]> as
+perl has done since version 4.000.  Now system utilities that read the
+legacy process name such as ps, top and killall will recognize the
+name you set when assigning to C<$0>.  The string you supply will be
+cut off at 16 bytes, this is a limitation imposed by Linux.
+
+Mnemonic: same as B<sh> and B<ksh>.
+
+=item $REAL_GROUP_ID
+
+=item $GID
+
+=item $(
+X<$(> X<$GID> X<$REAL_GROUP_ID>
+
+The real gid of this process.  If you are on a machine that supports
+membership in multiple groups simultaneously, gives a space separated
+list of groups you are in.  The first number is the one returned by
+C<getgid()>, and the subsequent ones by C<getgroups()>, one of which may be
+the same as the first number.
+
+However, a value assigned to C<$(> must be a single number used to
+set the real gid.  So the value given by C<$(> should I<not> be assigned
+back to C<$(> without being forced numeric, such as by adding zero.  Note
+that this is different to the effective gid (C<$)>) which does take a
+list.
+
+You can change both the real gid and the effective gid at the same
+time by using C<POSIX::setgid()>.  Changes
+to C<$(> require a check to C<$!>
+to detect any possible errors after an attempted change.
+
+Mnemonic: parentheses are used to I<group> things.  The real gid is the
+group you I<left>, if you're running setgid.
+
+=item $EFFECTIVE_GROUP_ID
+
+=item $EGID
+
+=item $)
+X<$)> X<$EGID> X<$EFFECTIVE_GROUP_ID>
+
+The effective gid of this process.  If you are on a machine that
+supports membership in multiple groups simultaneously, gives a space
+separated list of groups you are in.  The first number is the one
+returned by C<getegid()>, and the subsequent ones by C<getgroups()>,
+one of which may be the same as the first number.
+
+Similarly, a value assigned to C<$)> must also be a space-separated
+list of numbers.  The first number sets the effective gid, and
+the rest (if any) are passed to C<setgroups()>.  To get the effect of an
+empty list for C<setgroups()>, just repeat the new effective gid; that is,
+to force an effective gid of 5 and an effectively empty C<setgroups()>
+list, say C< $) = "5 5" >.
+
+You can change both the effective gid and the real gid at the same
+time by using C<POSIX::setgid()> (use only a single numeric argument).
+Changes to C<$)> require a check to C<$!> to detect any possible errors
+after an attempted change.
+
+C<< $< >>, C<< $> >>, C<$(> and C<$)> can be set only on
+machines that support the corresponding I<set[re][ug]id()> routine.  C<$(>
+and C<$)> can be swapped only on machines supporting C<setregid()>.
+
+Mnemonic: parentheses are used to I<group> things.  The effective gid
+is the group that's I<right> for you, if you're running setgid.
+
+=item $REAL_USER_ID
+
+=item $UID
+
+=item $<
+X<< $< >> X<$UID> X<$REAL_USER_ID>
+
+The real uid of this process.  You can change both the real uid and the
+effective uid at the same time by using C<POSIX::setuid()>.  Since
+changes to C<< $< >> require a system call, check C<$!> after a change
+attempt to detect any possible errors.
+
+Mnemonic: it's the uid you came I<from>, if you're running setuid.
+
+=item $EFFECTIVE_USER_ID
+
+=item $EUID
+
+=item $>
+X<< $> >> X<$EUID> X<$EFFECTIVE_USER_ID>
+
+The effective uid of this process.  For example:
+
+    $< = $>;            # set real to effective uid
+    ($<,$>) = ($>,$<);  # swap real and effective uids
+
+You can change both the effective uid and the real uid at the same
+time by using C<POSIX::setuid()>.  Changes to C<< $> >> require a check
+to C<$!> to detect any possible errors after an attempted change.
+
+C<< $< >> and C<< $> >> can be swapped only on machines
+supporting C<setreuid()>.
+
+Mnemonic: it's the uid you went I<to>, if you're running setuid.
+
+=item $SUBSCRIPT_SEPARATOR
+
+=item $SUBSEP
+
+=item $;
+X<$;> X<$SUBSEP> X<SUBSCRIPT_SEPARATOR>
+
+The subscript separator for multidimensional array emulation.  If you
+refer to a hash element as
+
+    $foo{$x,$y,$z}
+
+it really means
+
+    $foo{join($;, $x, $y, $z)}
+
+But don't put
+
+    @foo{$x,$y,$z}	# a slice--note the @
+
+which means
+
+    ($foo{$x},$foo{$y},$foo{$z})
+
+Default is "\034", the same as SUBSEP in B<awk>.  If your keys contain
+binary data there might not be any safe value for C<$;>.
+
+Consider using "real" multidimensional arrays as described
+in L<perllol>.
+
+Mnemonic: comma (the syntactic subscript separator) is a semi-semicolon.
+
+=item $a
+
+=item $b
+X<$a> X<$b>
+
+Special package variables when using C<sort()>, see L<perlfunc/sort>.
+Because of this specialness C<$a> and C<$b> don't need to be declared
+(using C<use vars>, or C<our()>) even when using the C<strict 'vars'>
+pragma.  Don't lexicalize them with C<my $a> or C<my $b> if you want to
+be able to use them in the C<sort()> comparison block or function.
+
+=item %ENV
+X<%ENV>
+
+The hash C<%ENV> contains your current environment.  Setting a
+value in C<ENV> changes the environment for any child processes
+you subsequently C<fork()> off.
+
+As of v5.18.0, both keys and values stored in C<%ENV> are stringified.
+
+    my $foo = 1;
+    $ENV{'bar'} = \$foo;
+    if( ref $ENV{'bar'} ) {
+        say "Pre 5.18.0 Behaviour";
+    } else {
+        say "Post 5.18.0 Behaviour";
+    }
+
+Previously, only child processes received stringified values:
+
+    my $foo = 1;
+    $ENV{'bar'} = \$foo;
+
+    # Always printed 'non ref'
+    system($^X, '-e',
+           q/print ( ref $ENV{'bar'}  ? 'ref' : 'non ref' ) /);
+
+This happens because you can't really share arbitrary data structures with
+foreign processes.
+
+=item $OLD_PERL_VERSION
+
+=item $]
+X<$]> X<$OLD_PERL_VERSION>
+
+The revision, version, and subversion of the Perl interpreter, represented
+as a decimal of the form 5.XXXYYY, where XXX is the version / 1e3 and YYY
+is the subversion / 1e6.  For example, Perl v5.10.1 would be "5.010001".
+
+This variable can be used to determine whether the Perl interpreter
+executing a script is in the right range of versions:
+
+    warn "No PerlIO!\n" if $] lt '5.008';
+
+When comparing C<$]>, string comparison operators are B<highly
+recommended>.  The inherent limitations of binary floating point
+representation can sometimes lead to incorrect comparisons for some
+numbers on some architectures.
+
+See also the documentation of C<use VERSION> and C<require VERSION>
+for a convenient way to fail if the running Perl interpreter is too old.
+
+See L</$^V> for a representation of the Perl version as a L<version>
+object, which allows more flexible string comparisons.
+
+The main advantage of C<$]> over C<$^V> is that it works the same on any
+version of Perl.  The disadvantages are that it can't easily be compared
+to versions in other formats (e.g. literal v-strings, "v1.2.3" or
+version objects) and numeric comparisons can occasionally fail; it's good
+for string literal version checks and bad for comparing to a variable
+that hasn't been sanity-checked.
+
+The C<$OLD_PERL_VERSION> form was added in Perl v5.20.0 for historical
+reasons but its use is discouraged. (If your reason to use C<$]> is to
+run code on old perls then referring to it as C<$OLD_PERL_VERSION> would
+be self-defeating.)
+
+Mnemonic: Is this version of perl in the right bracket?
+
+=item $SYSTEM_FD_MAX
+
+=item $^F
+X<$^F> X<$SYSTEM_FD_MAX>
+
+The maximum system file descriptor, ordinarily 2.  System file
+descriptors are passed to C<exec()>ed processes, while higher file
+descriptors are not.  Also, during an
+C<open()>, system file descriptors are
+preserved even if the C<open()> fails (ordinary file descriptors are
+closed before the C<open()> is attempted).  The close-on-exec
+status of a file descriptor will be decided according to the value of
+C<$^F> when the corresponding file, pipe, or socket was opened, not the
+time of the C<exec()>.
+
+=item @F
+X<@F>
+
+The array C<@F> contains the fields of each line read in when autosplit
+mode is turned on.  See L<perlrun> for the B<-a> switch.  This array
+is package-specific, and must be declared or given a full package name
+if not in package main when running under C<strict 'vars'>.
+
+=item @INC
+X<@INC>
+
+The array C<@INC> contains the list of places that the C<do EXPR>,
+C<require>, or C<use> constructs look for their library files.  It
+initially consists of the arguments to any B<-I> command-line
+switches, followed by the default Perl library, probably
+F</usr/local/lib/perl>, followed by ".", to represent the current
+directory.  ("." will not be appended if taint checks are enabled,
+either by C<-T> or by C<-t>.)  If you need to modify this at runtime,
+you should use the C<use lib> pragma to get the machine-dependent
+library properly loaded also:
+
+    use lib '/mypath/libdir/';
+    use SomeMod;
+
+You can also insert hooks into the file inclusion system by putting Perl
+code directly into C<@INC>.  Those hooks may be subroutine references,
+array references or blessed objects.  See L<perlfunc/require> for details.
+
+=item %INC
+X<%INC>
+
+The hash C<%INC> contains entries for each filename included via the
+C<do>, C<require>, or C<use> operators.  The key is the filename
+you specified (with module names converted to pathnames), and the
+value is the location of the file found.  The C<require>
+operator uses this hash to determine whether a particular file has
+already been included.
+
+If the file was loaded via a hook (e.g. a subroutine reference, see
+L<perlfunc/require> for a description of these hooks), this hook is
+by default inserted into C<%INC> in place of a filename.  Note, however,
+that the hook may have set the C<%INC> entry by itself to provide some more
+specific info.
+
+=item $INPLACE_EDIT
+
+=item $^I
+X<$^I> X<$INPLACE_EDIT>
+
+The current value of the inplace-edit extension.  Use C<undef> to disable
+inplace editing.
+
+Mnemonic: value of B<-i> switch.
+
+=item $^M
+X<$^M>
+
+By default, running out of memory is an untrappable, fatal error.
+However, if suitably built, Perl can use the contents of C<$^M>
+as an emergency memory pool after C<die()>ing.  Suppose that your Perl
+were compiled with C<-DPERL_EMERGENCY_SBRK> and used Perl's malloc.
+Then
+
+    $^M = 'a' x (1 << 16);
+
+would allocate a 64K buffer for use in an emergency.  See the
+F<INSTALL> file in the Perl distribution for information on how to
+add custom C compilation flags when compiling perl.  To discourage casual
+use of this advanced feature, there is no L<English|English> long name for
+this variable.
+
+This variable was added in Perl 5.004.
+
+=item $OSNAME
+
+=item $^O
+X<$^O> X<$OSNAME>
+
+The name of the operating system under which this copy of Perl was
+built, as determined during the configuration process.  For examples
+see L<perlport/PLATFORMS>.
+
+The value is identical to C<$Config{'osname'}>.  See also L<Config>
+and the B<-V> command-line switch documented in L<perlrun>.
+
+In Windows platforms, C<$^O> is not very helpful: since it is always
+C<MSWin32>, it doesn't tell the difference between
+95/98/ME/NT/2000/XP/CE/.NET.  Use C<Win32::GetOSName()> or
+Win32::GetOSVersion() (see L<Win32> and L<perlport>) to distinguish
+between the variants.
+
+This variable was added in Perl 5.003.
+
+=item %SIG
+X<%SIG>
+
+The hash C<%SIG> contains signal handlers for signals.  For example:
+
+    sub handler {   # 1st argument is signal name
+	my($sig) = @_;
+	print "Caught a SIG$sig--shutting down\n";
+	close(LOG);
+	exit(0);
+	}
+
+    $SIG{'INT'}  = \&handler;
+    $SIG{'QUIT'} = \&handler;
+    ...
+    $SIG{'INT'}  = 'DEFAULT';   # restore default action
+    $SIG{'QUIT'} = 'IGNORE';    # ignore SIGQUIT
+
+Using a value of C<'IGNORE'> usually has the effect of ignoring the
+signal, except for the C<CHLD> signal.  See L<perlipc> for more about
+this special case.
+
+Here are some other examples:
+
+    $SIG{"PIPE"} = "Plumber";   # assumes main::Plumber (not
+				# recommended)
+    $SIG{"PIPE"} = \&Plumber;   # just fine; assume current
+				# Plumber
+    $SIG{"PIPE"} = *Plumber;    # somewhat esoteric
+    $SIG{"PIPE"} = Plumber();   # oops, what did Plumber()
+				# return??
+
+Be sure not to use a bareword as the name of a signal handler,
+lest you inadvertently call it.
+
+If your system has the C<sigaction()> function then signal handlers
+are installed using it.  This means you get reliable signal handling.
+
+The default delivery policy of signals changed in Perl v5.8.0 from
+immediate (also known as "unsafe") to deferred, also known as "safe
+signals".  See L<perlipc> for more information.
+
+Certain internal hooks can be also set using the C<%SIG> hash.  The
+routine indicated by C<$SIG{__WARN__}> is called when a warning
+message is about to be printed.  The warning message is passed as the
+first argument.  The presence of a C<__WARN__> hook causes the
+ordinary printing of warnings to C<STDERR> to be suppressed.  You can
+use this to save warnings in a variable, or turn warnings into fatal
+errors, like this:
+
+    local $SIG{__WARN__} = sub { die $_[0] };
+    eval $proggie;
+
+As the C<'IGNORE'> hook is not supported by C<__WARN__>, you can
+disable warnings using the empty subroutine:
+
+    local $SIG{__WARN__} = sub {};
+
+The routine indicated by C<$SIG{__DIE__}> is called when a fatal
+exception is about to be thrown.  The error message is passed as the
+first argument.  When a C<__DIE__> hook routine returns, the exception
+processing continues as it would have in the absence of the hook,
+unless the hook routine itself exits via a C<goto &sub>, a loop exit,
+or a C<die()>.  The C<__DIE__> handler is explicitly disabled during
+the call, so that you can die from a C<__DIE__> handler.  Similarly
+for C<__WARN__>.
+
+Due to an implementation glitch, the C<$SIG{__DIE__}> hook is called
+even inside an C<eval()>.  Do not use this to rewrite a pending
+exception in C<$@>, or as a bizarre substitute for overriding
+C<CORE::GLOBAL::die()>.  This strange action at a distance may be fixed
+in a future release so that C<$SIG{__DIE__}> is only called if your
+program is about to exit, as was the original intent.  Any other use is
+deprecated.
+
+C<__DIE__>/C<__WARN__> handlers are very special in one respect: they
+may be called to report (probable) errors found by the parser.  In such
+a case the parser may be in inconsistent state, so any attempt to
+evaluate Perl code from such a handler will probably result in a
+segfault.  This means that warnings or errors that result from parsing
+Perl should be used with extreme caution, like this:
+
+    require Carp if defined $^S;
+    Carp::confess("Something wrong") if defined &Carp::confess;
+    die "Something wrong, but could not load Carp to give "
+      . "backtrace...\n\t"
+      . "To see backtrace try starting Perl with -MCarp switch";
+
+Here the first line will load C<Carp> I<unless> it is the parser who
+called the handler.  The second line will print backtrace and die if
+C<Carp> was available.  The third line will be executed only if C<Carp> was
+not available.
+
+Having to even think about the C<$^S> variable in your exception
+handlers is simply wrong.  C<$SIG{__DIE__}> as currently implemented
+invites grievous and difficult to track down errors.  Avoid it
+and use an C<END{}> or CORE::GLOBAL::die override instead.
+
+See L<perlfunc/die>, L<perlfunc/warn>, L<perlfunc/eval>, and
+L<warnings> for additional information.
+
+=item $BASETIME
+
+=item $^T
+X<$^T> X<$BASETIME>
+
+The time at which the program began running, in seconds since the
+epoch (beginning of 1970).  The values returned by the B<-M>, B<-A>,
+and B<-C> filetests are based on this value.
+
+=item $PERL_VERSION
+
+=item $^V
+X<$^V> X<$PERL_VERSION>
+
+The revision, version, and subversion of the Perl interpreter,
+represented as a L<version> object.
+
+This variable first appeared in perl v5.6.0; earlier versions of perl
+will see an undefined value.  Before perl v5.10.0 C<$^V> was represented
+as a v-string rather than a L<version> object.
+
+C<$^V> can be used to determine whether the Perl interpreter executing
+a script is in the right range of versions.  For example:
+
+    warn "Hashes not randomized!\n" if !$^V or $^V lt v5.8.1
+
+While version objects overload stringification, to portably convert
+C<$^V> into its string representation, use C<sprintf()>'s C<"%vd">
+conversion, which works for both v-strings or version objects:
+
+    printf "version is v%vd\n", $^V;  # Perl's version
+
+See the documentation of C<use VERSION> and C<require VERSION>
+for a convenient way to fail if the running Perl interpreter is too old.
+
+See also C<$]> for a decimal representation of the Perl version.
+
+The main advantage of C<$^V> over C<$]> is that, for Perl v5.10.0 or
+later, it overloads operators, allowing easy comparison against other
+version representations (e.g. decimal, literal v-string, "v1.2.3", or
+objects).  The disadvantage is that prior to v5.10.0, it was only a
+literal v-string, which can't be easily printed or compared.
+
+Mnemonic: use ^V for a version object.
+
+=item ${^WIN32_SLOPPY_STAT}
+X<${^WIN32_SLOPPY_STAT}> X<sitecustomize> X<sitecustomize.pl>
+
+If this variable is set to a true value, then C<stat()> on Windows will
+not try to open the file.  This means that the link count cannot be
+determined and file attributes may be out of date if additional
+hardlinks to the file exist.  On the other hand, not opening the file
+is considerably faster, especially for files on network drives.
+
+This variable could be set in the F<sitecustomize.pl> file to
+configure the local Perl installation to use "sloppy" C<stat()> by
+default.  See the documentation for B<-f> in
+L<perlrun|perlrun/"Command Switches"> for more information about site
+customization.
+
+This variable was added in Perl v5.10.0.
+
+=item $EXECUTABLE_NAME
+
+=item $^X
+X<$^X> X<$EXECUTABLE_NAME>
+
+The name used to execute the current copy of Perl, from C's
+C<argv[0]> or (where supported) F</proc/self/exe>.
+
+Depending on the host operating system, the value of C<$^X> may be
+a relative or absolute pathname of the perl program file, or may
+be the string used to invoke perl but not the pathname of the
+perl program file.  Also, most operating systems permit invoking
+programs that are not in the PATH environment variable, so there
+is no guarantee that the value of C<$^X> is in PATH.  For VMS, the
+value may or may not include a version number.
+
+You usually can use the value of C<$^X> to re-invoke an independent
+copy of the same perl that is currently running, e.g.,
+
+    @first_run = `$^X -le "print int rand 100 for 1..100"`;
+
+But recall that not all operating systems support forking or
+capturing of the output of commands, so this complex statement
+may not be portable.
+
+It is not safe to use the value of C<$^X> as a path name of a file,
+as some operating systems that have a mandatory suffix on
+executable files do not require use of the suffix when invoking
+a command.  To convert the value of C<$^X> to a path name, use the
+following statements:
+
+    # Build up a set of file names (not command names).
+    use Config;
+    my $this_perl = $^X;
+    if ($^O ne 'VMS') {
+	$this_perl .= $Config{_exe}
+	  unless $this_perl =~ m/$Config{_exe}$/i;
+	}
+
+Because many operating systems permit anyone with read access to
+the Perl program file to make a copy of it, patch the copy, and
+then execute the copy, the security-conscious Perl programmer
+should take care to invoke the installed copy of perl, not the
+copy referenced by C<$^X>.  The following statements accomplish
+this goal, and produce a pathname that can be invoked as a
+command or referenced as a file.
+
+    use Config;
+    my $secure_perl_path = $Config{perlpath};
+    if ($^O ne 'VMS') {
+	$secure_perl_path .= $Config{_exe}
+	    unless $secure_perl_path =~ m/$Config{_exe}$/i;
+	}
+
+=back
+
+=head2 Variables related to regular expressions
+
+Most of the special variables related to regular expressions are side
+effects.  Perl sets these variables when it has a successful match, so
+you should check the match result before using them.  For instance:
+
+    if( /P(A)TT(ER)N/ ) {
+	print "I found $1 and $2\n";
+	}
+
+These variables are read-only and dynamically-scoped, unless we note
+otherwise.
+
+The dynamic nature of the regular expression variables means that
+their value is limited to the block that they are in, as demonstrated
+by this bit of code:
+
+    my $outer = 'Wallace and Grommit';
+    my $inner = 'Mutt and Jeff';
+
+    my $pattern = qr/(\S+) and (\S+)/;
+
+    sub show_n { print "\$1 is $1; \$2 is $2\n" }
+
+    {
+    OUTER:
+	show_n() if $outer =~ m/$pattern/;
+
+	INNER: {
+	    show_n() if $inner =~ m/$pattern/;
+	    }
+
+	show_n();
+    }
+
+The output shows that while in the C<OUTER> block, the values of C<$1>
+and C<$2> are from the match against C<$outer>.  Inside the C<INNER>
+block, the values of C<$1> and C<$2> are from the match against
+C<$inner>, but only until the end of the block (i.e. the dynamic
+scope).  After the C<INNER> block completes, the values of C<$1> and
+C<$2> return to the values for the match against C<$outer> even though
+we have not made another match:
+
+    $1 is Wallace; $2 is Grommit
+    $1 is Mutt; $2 is Jeff
+    $1 is Wallace; $2 is Grommit
+
+=head3 Performance issues
+
+Traditionally in Perl, any use of any of the three variables  C<$`>, C<$&>
+or C<$'> (or their C<use English> equivalents) anywhere in the code, caused
+all subsequent successful pattern matches to make a copy of the matched
+string, in case the code might subsequently access one of those variables.
+This imposed a considerable performance penalty across the whole program,
+so generally the use of these variables has been discouraged.
+
+In Perl 5.6.0 the C<@-> and C<@+> dynamic arrays were introduced that
+supply the indices of successful matches. So you could for example do
+this:
+
+    $str =~ /pattern/;
+
+    print $`, $&, $'; # bad: perfomance hit
+
+    print             # good: no perfomance hit
+	substr($str, 0,     $-[0]),
+	substr($str, $-[0], $+[0]-$-[0]),
+	substr($str, $+[0]);
+
+In Perl 5.10.0 the C</p> match operator flag and the C<${^PREMATCH}>,
+C<${^MATCH}>, and C<${^POSTMATCH}> variables were introduced, that allowed
+you to suffer the penalties only on patterns marked with C</p>.
+
+In Perl 5.18.0 onwards, perl started noting the presence of each of the
+three variables separately, and only copied that part of the string
+required; so in
+
+    $`; $&; "abcdefgh" =~ /d/
+
+perl would only copy the "abcd" part of the string. That could make a big
+difference in something like
+
+    $str = 'x' x 1_000_000;
+    $&; # whoops
+    $str =~ /x/g # one char copied a million times, not a million chars
+
+In Perl 5.20.0 a new copy-on-write system was enabled by default, which
+finally fixes all performance issues with these three variables, and makes
+them safe to use anywhere.
+
+The C<Devel::NYTProf> and C<Devel::FindAmpersand> modules can help you
+find uses of these problematic match variables in your code.
+
+=over 8
+
+=item $<I<digits>> ($1, $2, ...)
+X<$1> X<$2> X<$3>
+
+Contains the subpattern from the corresponding set of capturing
+parentheses from the last successful pattern match, not counting patterns
+matched in nested blocks that have been exited already.
+
+These variables are read-only and dynamically-scoped.
+
+Mnemonic: like \digits.
+
+=item $MATCH
+
+=item $&
+X<$&> X<$MATCH>
+
+The string matched by the last successful pattern match (not counting
+any matches hidden within a BLOCK or C<eval()> enclosed by the current
+BLOCK).
+
+See L</Performance issues> above for the serious performance implications
+of using this variable (even once) in your code.
+
+This variable is read-only and dynamically-scoped.
+
+Mnemonic: like C<&> in some editors.
+
+=item ${^MATCH}
+X<${^MATCH}>
+
+This is similar to C<$&> (C<$MATCH>) except that it does not incur the
+performance penalty associated with that variable.
+
+See L</Performance issues> above.
+
+In Perl v5.18 and earlier, it is only guaranteed
+to return a defined value when the pattern was compiled or executed with
+the C</p> modifier.  In Perl v5.20, the C</p> modifier does nothing, so
+C<${^MATCH}> does the same thing as C<$MATCH>.
+
+This variable was added in Perl v5.10.0.
+
+This variable is read-only and dynamically-scoped.
+
+=item $PREMATCH
+
+=item $`
+X<$`> X<$PREMATCH> X<${^PREMATCH}>
+
+The string preceding whatever was matched by the last successful
+pattern match, not counting any matches hidden within a BLOCK or C<eval>
+enclosed by the current BLOCK.
+
+See L</Performance issues> above for the serious performance implications
+of using this variable (even once) in your code.
+
+This variable is read-only and dynamically-scoped.
+
+Mnemonic: C<`> often precedes a quoted string.
+
+=item ${^PREMATCH}
+X<$`> X<${^PREMATCH}>
+
+This is similar to C<$`> ($PREMATCH) except that it does not incur the
+performance penalty associated with that variable.
+
+See L</Performance issues> above.
+
+In Perl v5.18 and earlier, it is only guaranteed
+to return a defined value when the pattern was compiled or executed with
+the C</p> modifier.  In Perl v5.20, the C</p> modifier does nothing, so
+C<${^PREMATCH}> does the same thing as C<$PREMATCH>.
+
+This variable was added in Perl v5.10.0.
+
+This variable is read-only and dynamically-scoped.
+
+=item $POSTMATCH
+
+=item $'
+X<$'> X<$POSTMATCH> X<${^POSTMATCH}> X<@->
+
+The string following whatever was matched by the last successful
+pattern match (not counting any matches hidden within a BLOCK or C<eval()>
+enclosed by the current BLOCK).  Example:
+
+    local $_ = 'abcdefghi';
+    /def/;
+    print "$`:$&:$'\n";  	# prints abc:def:ghi
+
+See L</Performance issues> above for the serious performance implications
+of using this variable (even once) in your code.
+
+This variable is read-only and dynamically-scoped.
+
+Mnemonic: C<'> often follows a quoted string.
+
+=item ${^POSTMATCH}
+X<${^POSTMATCH}> X<$'> X<$POSTMATCH>
+
+This is similar to C<$'> (C<$POSTMATCH>) except that it does not incur the
+performance penalty associated with that variable.
+
+See L</Performance issues> above.
+
+In Perl v5.18 and earlier, it is only guaranteed
+to return a defined value when the pattern was compiled or executed with
+the C</p> modifier.  In Perl v5.20, the C</p> modifier does nothing, so
+C<${^POSTMATCH}> does the same thing as C<$POSTMATCH>.
+
+This variable was added in Perl v5.10.0.
+
+This variable is read-only and dynamically-scoped.
+
+=item $LAST_PAREN_MATCH
+
+=item $+
+X<$+> X<$LAST_PAREN_MATCH>
+
+The text matched by the last bracket of the last successful search pattern.
+This is useful if you don't know which one of a set of alternative patterns
+matched.  For example:
+
+    /Version: (.*)|Revision: (.*)/ && ($rev = $+);
+
+This variable is read-only and dynamically-scoped.
+
+Mnemonic: be positive and forward looking.
+
+=item $LAST_SUBMATCH_RESULT
+
+=item $^N
+X<$^N> X<$LAST_SUBMATCH_RESULT>
+
+The text matched by the used group most-recently closed (i.e. the group
+with the rightmost closing parenthesis) of the last successful search
+pattern.
+
+This is primarily used inside C<(?{...})> blocks for examining text
+recently matched.  For example, to effectively capture text to a variable
+(in addition to C<$1>, C<$2>, etc.), replace C<(...)> with
+
+    (?:(...)(?{ $var = $^N }))
+
+By setting and then using C<$var> in this way relieves you from having to
+worry about exactly which numbered set of parentheses they are.
+
+This variable was added in Perl v5.8.0.
+
+Mnemonic: the (possibly) Nested parenthesis that most recently closed.
+
+=item @LAST_MATCH_END
+
+=item @+
+X<@+> X<@LAST_MATCH_END>
+
+This array holds the offsets of the ends of the last successful
+submatches in the currently active dynamic scope.  C<$+[0]> is
+the offset into the string of the end of the entire match.  This
+is the same value as what the C<pos> function returns when called
+on the variable that was matched against.  The I<n>th element
+of this array holds the offset of the I<n>th submatch, so
+C<$+[1]> is the offset past where C<$1> ends, C<$+[2]> the offset
+past where C<$2> ends, and so on.  You can use C<$#+> to determine
+how many subgroups were in the last successful match.  See the
+examples given for the C<@-> variable.
+
+This variable was added in Perl v5.6.0.
+
+=item %LAST_PAREN_MATCH
+
+=item %+
+X<%+> X<%LAST_PAREN_MATCH>
+
+Similar to C<@+>, the C<%+> hash allows access to the named capture
+buffers, should they exist, in the last successful match in the
+currently active dynamic scope.
+
+For example, C<$+{foo}> is equivalent to C<$1> after the following match:
+
+    'foo' =~ /(?<foo>foo)/;
+
+The keys of the C<%+> hash list only the names of buffers that have
+captured (and that are thus associated to defined values).
+
+The underlying behaviour of C<%+> is provided by the
+L<Tie::Hash::NamedCapture> module.
+
+B<Note:> C<%-> and C<%+> are tied views into a common internal hash
+associated with the last successful regular expression.  Therefore mixing
+iterative access to them via C<each> may have unpredictable results.
+Likewise, if the last successful match changes, then the results may be
+surprising.
+
+This variable was added in Perl v5.10.0.
+
+This variable is read-only and dynamically-scoped.
+
+=item @LAST_MATCH_START
+
+=item @-
+X<@-> X<@LAST_MATCH_START>
+
+C<$-[0]> is the offset of the start of the last successful match.
+C<$-[>I<n>C<]> is the offset of the start of the substring matched by
+I<n>-th subpattern, or undef if the subpattern did not match.
+
+Thus, after a match against C<$_>, C<$&> coincides with C<substr $_, $-[0],
+$+[0] - $-[0]>.  Similarly, $I<n> coincides with C<substr $_, $-[n],
+$+[n] - $-[n]> if C<$-[n]> is defined, and $+ coincides with
+C<substr $_, $-[$#-], $+[$#-] - $-[$#-]>.  One can use C<$#-> to find the
+last matched subgroup in the last successful match.  Contrast with
+C<$#+>, the number of subgroups in the regular expression.  Compare
+with C<@+>.
+
+This array holds the offsets of the beginnings of the last
+successful submatches in the currently active dynamic scope.
+C<$-[0]> is the offset into the string of the beginning of the
+entire match.  The I<n>th element of this array holds the offset
+of the I<n>th submatch, so C<$-[1]> is the offset where C<$1>
+begins, C<$-[2]> the offset where C<$2> begins, and so on.
+
+After a match against some variable C<$var>:
+
+=over 5
+
+=item C<$`> is the same as C<substr($var, 0, $-[0])>
+
+=item C<$&> is the same as C<substr($var, $-[0], $+[0] - $-[0])>
+
+=item C<$'> is the same as C<substr($var, $+[0])>
+
+=item C<$1> is the same as C<substr($var, $-[1], $+[1] - $-[1])>
+
+=item C<$2> is the same as C<substr($var, $-[2], $+[2] - $-[2])>
+
+=item C<$3> is the same as C<substr($var, $-[3], $+[3] - $-[3])>
+
+=back
+
+This variable was added in Perl v5.6.0.
+
+=item %-
+X<%->
+
+Similar to C<%+>, this variable allows access to the named capture groups
+in the last successful match in the currently active dynamic scope.  To
+each capture group name found in the regular expression, it associates a
+reference to an array containing the list of values captured by all
+buffers with that name (should there be several of them), in the order
+where they appear.
+
+Here's an example:
+
+    if ('1234' =~ /(?<A>1)(?<B>2)(?<A>3)(?<B>4)/) {
+        foreach my $bufname (sort keys %-) {
+            my $ary = $-{$bufname};
+            foreach my $idx (0..$#$ary) {
+                print "\$-{$bufname}[$idx] : ",
+                      (defined($ary->[$idx])
+                          ? "'$ary->[$idx]'"
+                          : "undef"),
+                      "\n";
+            }
+        }
+    }
+
+would print out:
+
+    $-{A}[0] : '1'
+    $-{A}[1] : '3'
+    $-{B}[0] : '2'
+    $-{B}[1] : '4'
+
+The keys of the C<%-> hash correspond to all buffer names found in
+the regular expression.
+
+The behaviour of C<%-> is implemented via the
+L<Tie::Hash::NamedCapture> module.
+
+B<Note:> C<%-> and C<%+> are tied views into a common internal hash
+associated with the last successful regular expression.  Therefore mixing
+iterative access to them via C<each> may have unpredictable results.
+Likewise, if the last successful match changes, then the results may be
+surprising.
+
+This variable was added in Perl v5.10.0.
+
+This variable is read-only and dynamically-scoped.
+
+=item $LAST_REGEXP_CODE_RESULT
+
+=item $^R
+X<$^R> X<$LAST_REGEXP_CODE_RESULT>
+
+The result of evaluation of the last successful C<(?{ code })>
+regular expression assertion (see L<perlre>).  May be written to.
+
+This variable was added in Perl 5.005.
+
+=item ${^RE_DEBUG_FLAGS}
+X<${^RE_DEBUG_FLAGS}>
+
+The current value of the regex debugging flags.  Set to 0 for no debug output
+even when the C<re 'debug'> module is loaded.  See L<re> for details.
+
+This variable was added in Perl v5.10.0.
+
+=item ${^RE_TRIE_MAXBUF}
+X<${^RE_TRIE_MAXBUF}>
+
+Controls how certain regex optimisations are applied and how much memory they
+utilize.  This value by default is 65536 which corresponds to a 512kB
+temporary cache.  Set this to a higher value to trade
+memory for speed when matching large alternations.  Set
+it to a lower value if you want the optimisations to
+be as conservative of memory as possible but still occur, and set it to a
+negative value to prevent the optimisation and conserve the most memory.
+Under normal situations this variable should be of no interest to you.
+
+This variable was added in Perl v5.10.0.
+
+=back
+
+=head2 Variables related to filehandles
+
+Variables that depend on the currently selected filehandle may be set
+by calling an appropriate object method on the C<IO::Handle> object,
+although this is less efficient than using the regular built-in
+variables.  (Summary lines below for this contain the word HANDLE.)
+First you must say
+
+    use IO::Handle;
+
+after which you may use either
+
+    method HANDLE EXPR
+
+or more safely,
+
+    HANDLE->method(EXPR)
+
+Each method returns the old value of the C<IO::Handle> attribute.  The
+methods each take an optional EXPR, which, if supplied, specifies the
+new value for the C<IO::Handle> attribute in question.  If not
+supplied, most methods do nothing to the current value--except for
+C<autoflush()>, which will assume a 1 for you, just to be different.
+
+Because loading in the C<IO::Handle> class is an expensive operation,
+you should learn how to use the regular built-in variables.
+
+A few of these variables are considered "read-only".  This means that
+if you try to assign to this variable, either directly or indirectly
+through a reference, you'll raise a run-time exception.
+
+You should be very careful when modifying the default values of most
+special variables described in this document.  In most cases you want
+to localize these variables before changing them, since if you don't,
+the change may affect other modules which rely on the default values
+of the special variables that you have changed.  This is one of the
+correct ways to read the whole file at once:
+
+    open my $fh, "<", "foo" or die $!;
+    local $/; # enable localized slurp mode
+    my $content = <$fh>;
+    close $fh;
+
+But the following code is quite bad:
+
+    open my $fh, "<", "foo" or die $!;
+    undef $/; # enable slurp mode
+    my $content = <$fh>;
+    close $fh;
+
+since some other module, may want to read data from some file in the
+default "line mode", so if the code we have just presented has been
+executed, the global value of C<$/> is now changed for any other code
+running inside the same Perl interpreter.
+
+Usually when a variable is localized you want to make sure that this
+change affects the shortest scope possible.  So unless you are already
+inside some short C<{}> block, you should create one yourself.  For
+example:
+
+    my $content = '';
+    open my $fh, "<", "foo" or die $!;
+    {
+	local $/;
+	$content = <$fh>;
+    }
+    close $fh;
+
+Here is an example of how your own code can go broken:
+
+    for ( 1..3 ){
+	$\ = "\r\n";
+	nasty_break();
+	print "$_";
+    }
+
+    sub nasty_break {
+	$\ = "\f";
+	# do something with $_
+    }
+
+You probably expect this code to print the equivalent of
+
+    "1\r\n2\r\n3\r\n"
+
+but instead you get:
+
+    "1\f2\f3\f"
+
+Why? Because C<nasty_break()> modifies C<$\> without localizing it
+first.  The value you set in  C<nasty_break()> is still there when you
+return.  The fix is to add C<local()> so the value doesn't leak out of
+C<nasty_break()>:
+
+    local $\ = "\f";
+
+It's easy to notice the problem in such a short example, but in more
+complicated code you are looking for trouble if you don't localize
+changes to the special variables.
+
+=over 8
+
+=item $ARGV
+X<$ARGV>
+
+Contains the name of the current file when reading from C<< <> >>.
+
+=item @ARGV
+X<@ARGV>
+
+The array C<@ARGV> contains the command-line arguments intended for
+the script.  C<$#ARGV> is generally the number of arguments minus
+one, because C<$ARGV[0]> is the first argument, I<not> the program's
+command name itself.  See L</$0> for the command name.
+
+=item ARGV
+X<ARGV>
+
+The special filehandle that iterates over command-line filenames in
+C<@ARGV>.  Usually written as the null filehandle in the angle operator
+C<< <> >>.  Note that currently C<ARGV> only has its magical effect
+within the C<< <> >> operator; elsewhere it is just a plain filehandle
+corresponding to the last file opened by C<< <> >>.  In particular,
+passing C<\*ARGV> as a parameter to a function that expects a filehandle
+may not cause your function to automatically read the contents of all the
+files in C<@ARGV>.
+
+=item ARGVOUT
+X<ARGVOUT>
+
+The special filehandle that points to the currently open output file
+when doing edit-in-place processing with B<-i>.  Useful when you have
+to do a lot of inserting and don't want to keep modifying C<$_>.  See
+L<perlrun> for the B<-i> switch.
+
+=item IO::Handle->output_field_separator( EXPR )
+
+=item $OUTPUT_FIELD_SEPARATOR
+
+=item $OFS
+
+=item $,
+X<$,> X<$OFS> X<$OUTPUT_FIELD_SEPARATOR>
+
+The output field separator for the print operator.  If defined, this
+value is printed between each of print's arguments.  Default is C<undef>.
+
+You cannot call C<output_field_separator()> on a handle, only as a
+static method.  See L<IO::Handle|IO::Handle>.
+
+Mnemonic: what is printed when there is a "," in your print statement.
+
+=item HANDLE->input_line_number( EXPR )
+
+=item $INPUT_LINE_NUMBER
+
+=item $NR
+
+=item $.
+X<$.> X<$NR> X<$INPUT_LINE_NUMBER> X<line number>
+
+Current line number for the last filehandle accessed.
+
+Each filehandle in Perl counts the number of lines that have been read
+from it.  (Depending on the value of C<$/>, Perl's idea of what
+constitutes a line may not match yours.)  When a line is read from a
+filehandle (via C<readline()> or C<< <> >>), or when C<tell()> or
+C<seek()> is called on it, C<$.> becomes an alias to the line counter
+for that filehandle.
+
+You can adjust the counter by assigning to C<$.>, but this will not
+actually move the seek pointer.  I<Localizing C<$.> will not localize
+the filehandle's line count>.  Instead, it will localize perl's notion
+of which filehandle C<$.> is currently aliased to.
+
+C<$.> is reset when the filehandle is closed, but B<not> when an open
+filehandle is reopened without an intervening C<close()>.  For more
+details, see L<perlop/"IE<sol>O Operators">.  Because C<< <> >> never does
+an explicit close, line numbers increase across C<ARGV> files (but see
+examples in L<perlfunc/eof>).
+
+You can also use C<< HANDLE->input_line_number(EXPR) >> to access the
+line counter for a given filehandle without having to worry about
+which handle you last accessed.
+
+Mnemonic: many programs use "." to mean the current line number.
+
+=item IO::Handle->input_record_separator( EXPR )
+
+=item $INPUT_RECORD_SEPARATOR
+
+=item $RS
+
+=item $/
+X<$/> X<$RS> X<$INPUT_RECORD_SEPARATOR>
+
+The input record separator, newline by default.  This influences Perl's
+idea of what a "line" is.  Works like B<awk>'s RS variable, including
+treating empty lines as a terminator if set to the null string (an
+empty line cannot contain any spaces or tabs).  You may set it to a
+multi-character string to match a multi-character terminator, or to
+C<undef> to read through the end of file.  Setting it to C<"\n\n">
+means something slightly different than setting to C<"">, if the file
+contains consecutive empty lines.  Setting to C<""> will treat two or
+more consecutive empty lines as a single empty line.  Setting to
+C<"\n\n"> will blindly assume that the next input character belongs to
+the next paragraph, even if it's a newline.
+
+    local $/;           # enable "slurp" mode
+    local $_ = <FH>;    # whole file now here
+    s/\n[ \t]+/ /g;
+
+Remember: the value of C<$/> is a string, not a regex.  B<awk> has to
+be better for something. :-)
+
+Setting C<$/> to a reference to an integer, scalar containing an
+integer, or scalar that's convertible to an integer will attempt to
+read records instead of lines, with the maximum record size being the
+referenced integer number of characters.  So this:
+
+    local $/ = \32768; # or \"32768", or \$var_containing_32768
+    open my $fh, "<", $myfile or die $!;
+    local $_ = <$fh>;
+
+will read a record of no more than 32768 characters from $fh.  If you're
+not reading from a record-oriented file (or your OS doesn't have
+record-oriented files), then you'll likely get a full chunk of data
+with every read.  If a record is larger than the record size you've
+set, you'll get the record back in pieces.  Trying to set the record
+size to zero or less is deprecated and will cause $/ to have the value
+of "undef", which will cause reading in the (rest of the) whole file.
+
+As of 5.19.9 setting C<$/> to any other form of reference will throw a
+fatal exception. This is in preparation for supporting new ways to set
+C<$/> in the future.
+
+On VMS only, record reads bypass PerlIO layers and any associated
+buffering, so you must not mix record and non-record reads on the
+same filehandle.  Record mode mixes with line mode only when the
+same buffering layer is in use for both modes.
+
+You cannot call C<input_record_separator()> on a handle, only as a
+static method.  See L<IO::Handle|IO::Handle>.
+
+See also L<perlport/"Newlines">.  Also see L</$.>.
+
+Mnemonic: / delimits line boundaries when quoting poetry.
+
+=item IO::Handle->output_record_separator( EXPR )
+
+=item $OUTPUT_RECORD_SEPARATOR
+
+=item $ORS
+
+=item $\
+X<$\> X<$ORS> X<$OUTPUT_RECORD_SEPARATOR>
+
+The output record separator for the print operator.  If defined, this
+value is printed after the last of print's arguments.  Default is C<undef>.
+
+You cannot call C<output_record_separator()> on a handle, only as a
+static method.  See L<IO::Handle|IO::Handle>.
+
+Mnemonic: you set C<$\> instead of adding "\n" at the end of the print.
+Also, it's just like C<$/>, but it's what you get "back" from Perl.
+
+=item HANDLE->autoflush( EXPR )
+
+=item $OUTPUT_AUTOFLUSH
+
+=item $|
+X<$|> X<autoflush> X<flush> X<$OUTPUT_AUTOFLUSH>
+
+If set to nonzero, forces a flush right away and after every write or
+print on the currently selected output channel.  Default is 0
+(regardless of whether the channel is really buffered by the system or
+not; C<$|> tells you only whether you've asked Perl explicitly to
+flush after each write).  STDOUT will typically be line buffered if
+output is to the terminal and block buffered otherwise.  Setting this
+variable is useful primarily when you are outputting to a pipe or
+socket, such as when you are running a Perl program under B<rsh> and
+want to see the output as it's happening.  This has no effect on input
+buffering.  See L<perlfunc/getc> for that.  See L<perlfunc/select> on
+how to select the output channel.  See also L<IO::Handle>.
+
+Mnemonic: when you want your pipes to be piping hot.
+
+=item ${^LAST_FH}
+X<${^LAST_FH}>
+
+This read-only variable contains a reference to the last-read filehandle.
+This is set by C<< <HANDLE> >>, C<readline>, C<tell>, C<eof> and C<seek>.
+This is the same handle that C<$.> and C<tell> and C<eof> without arguments
+use.  It is also the handle used when Perl appends ", <STDIN> line 1" to
+an error or warning message.
+
+This variable was added in Perl v5.18.0.
+
+=back
+
+=head3 Variables related to formats
+
+The special variables for formats are a subset of those for
+filehandles.  See L<perlform> for more information about Perl's
+formats.
+
+=over 8
+
+=item $ACCUMULATOR
+
+=item $^A
+X<$^A> X<$ACCUMULATOR>
+
+The current value of the C<write()> accumulator for C<format()> lines.
+A format contains C<formline()> calls that put their result into
+C<$^A>.  After calling its format, C<write()> prints out the contents
+of C<$^A> and empties.  So you never really see the contents of C<$^A>
+unless you call C<formline()> yourself and then look at it.  See
+L<perlform> and L<perlfunc/"formline PICTURE,LIST">.
+
+=item IO::Handle->format_formfeed(EXPR)
+
+=item $FORMAT_FORMFEED
+
+=item $^L
+X<$^L> X<$FORMAT_FORMFEED>
+
+What formats output as a form feed.  The default is C<\f>.
+
+You cannot call C<format_formfeed()> on a handle, only as a static
+method.  See L<IO::Handle|IO::Handle>.
+
+=item HANDLE->format_page_number(EXPR)
+
+=item $FORMAT_PAGE_NUMBER
+
+=item $%
+X<$%> X<$FORMAT_PAGE_NUMBER>
+
+The current page number of the currently selected output channel.
+
+Mnemonic: C<%> is page number in B<nroff>.
+
+=item HANDLE->format_lines_left(EXPR)
+
+=item $FORMAT_LINES_LEFT
+
+=item $-
+X<$-> X<$FORMAT_LINES_LEFT>
+
+The number of lines left on the page of the currently selected output
+channel.
+
+Mnemonic: lines_on_page - lines_printed.
+
+=item IO::Handle->format_line_break_characters EXPR
+
+=item $FORMAT_LINE_BREAK_CHARACTERS
+
+=item $:
+X<$:> X<FORMAT_LINE_BREAK_CHARACTERS>
+
+The current set of characters after which a string may be broken to
+fill continuation fields (starting with C<^>) in a format.  The default is
+S<" \n-">, to break on a space, newline, or a hyphen.
+
+You cannot call C<format_line_break_characters()> on a handle, only as
+a static method.  See L<IO::Handle|IO::Handle>.
+
+Mnemonic: a "colon" in poetry is a part of a line.
+
+=item HANDLE->format_lines_per_page(EXPR)
+
+=item $FORMAT_LINES_PER_PAGE
+
+=item $=
+X<$=> X<$FORMAT_LINES_PER_PAGE>
+
+The current page length (printable lines) of the currently selected
+output channel.  The default is 60.
+
+Mnemonic: = has horizontal lines.
+
+=item HANDLE->format_top_name(EXPR)
+
+=item $FORMAT_TOP_NAME
+
+=item $^
+X<$^> X<$FORMAT_TOP_NAME>
+
+The name of the current top-of-page format for the currently selected
+output channel.  The default is the name of the filehandle with C<_TOP>
+appended.  For example, the default format top name for the C<STDOUT>
+filehandle is C<STDOUT_TOP>.
+
+Mnemonic: points to top of page.
+
+=item HANDLE->format_name(EXPR)
+
+=item $FORMAT_NAME
+
+=item $~
+X<$~> X<$FORMAT_NAME>
+
+The name of the current report format for the currently selected
+output channel.  The default format name is the same as the filehandle
+name.  For example, the default format name for the C<STDOUT>
+filehandle is just C<STDOUT>.
+
+Mnemonic: brother to C<$^>.
+
+=back
+
+=head2 Error Variables
+X<error> X<exception>
+
+The variables C<$@>, C<$!>, C<$^E>, and C<$?> contain information
+about different types of error conditions that may appear during
+execution of a Perl program.  The variables are shown ordered by
+the "distance" between the subsystem which reported the error and
+the Perl process.  They correspond to errors detected by the Perl
+interpreter, C library, operating system, or an external program,
+respectively.
+
+To illustrate the differences between these variables, consider the
+following Perl expression, which uses a single-quoted string.  After
+execution of this statement, perl may have set all four special error
+variables:
+
+    eval q{
+	open my $pipe, "/cdrom/install |" or die $!;
+	my @res = <$pipe>;
+	close $pipe or die "bad pipe: $?, $!";
+    };
+
+When perl executes the C<eval()> expression, it translates the
+C<open()>, C<< <PIPE> >>, and C<close> calls in the C run-time library
+and thence to the operating system kernel.  perl sets C<$!> to
+the C library's C<errno> if one of these calls fails.
+
+C<$@> is set if the string to be C<eval>-ed did not compile (this may
+happen if C<open> or C<close> were imported with bad prototypes), or
+if Perl code executed during evaluation C<die()>d.  In these cases the
+value of C<$@> is the compile error, or the argument to C<die> (which
+will interpolate C<$!> and C<$?>).  (See also L<Fatal>, though.)
+
+Under a few operating systems, C<$^E> may contain a more verbose error
+indicator, such as in this case, "CDROM tray not closed."  Systems that
+do not support extended error messages leave C<$^E> the same as C<$!>.
+
+Finally, C<$?> may be set to a non-0 value if the external program
+F</cdrom/install> fails.  The upper eight bits reflect specific error
+conditions encountered by the program (the program's C<exit()> value).
+The lower eight bits reflect mode of failure, like signal death and
+core dump information.  See L<wait(2)> for details.  In contrast to
+C<$!> and C<$^E>, which are set only if an error condition is detected,
+the variable C<$?> is set on each C<wait> or pipe C<close>,
+overwriting the old value.  This is more like C<$@>, which on every
+C<eval()> is always set on failure and cleared on success.
+
+For more details, see the individual descriptions at C<$@>, C<$!>,
+C<$^E>, and C<$?>.
+
+=over 8
+
+=item ${^CHILD_ERROR_NATIVE}
+X<$^CHILD_ERROR_NATIVE>
+
+The native status returned by the last pipe close, backtick (C<``>)
+command, successful call to C<wait()> or C<waitpid()>, or from the
+C<system()> operator.  On POSIX-like systems this value can be decoded
+with the WIFEXITED, WEXITSTATUS, WIFSIGNALED, WTERMSIG, WIFSTOPPED,
+WSTOPSIG and WIFCONTINUED functions provided by the L<POSIX> module.
+
+Under VMS this reflects the actual VMS exit status; i.e. it is the
+same as C<$?> when the pragma C<use vmsish 'status'> is in effect.
+
+This variable was added in Perl v5.10.0.
+
+=item $EXTENDED_OS_ERROR
+
+=item $^E
+X<$^E> X<$EXTENDED_OS_ERROR>
+
+Error information specific to the current operating system.  At the
+moment, this differs from C<L</$!>> under only VMS, OS/2, and Win32 (and
+for MacPerl).  On all other platforms, C<$^E> is always just the same
+as C<$!>.
+
+Under VMS, C<$^E> provides the VMS status value from the last system
+error.  This is more specific information about the last system error
+than that provided by C<$!>.  This is particularly important when C<$!>
+is set to B<EVMSERR>.
+
+Under OS/2, C<$^E> is set to the error code of the last call to OS/2
+API either via CRT, or directly from perl.
+
+Under Win32, C<$^E> always returns the last error information reported
+by the Win32 call C<GetLastError()> which describes the last error
+from within the Win32 API.  Most Win32-specific code will report errors
+via C<$^E>.  ANSI C and Unix-like calls set C<errno> and so most
+portable Perl code will report errors via C<$!>.
+
+Caveats mentioned in the description of C<L</$!>> generally apply to
+C<$^E>, also.
+
+This variable was added in Perl 5.003.
+
+Mnemonic: Extra error explanation.
+
+=item $EXCEPTIONS_BEING_CAUGHT
+
+=item $^S
+X<$^S> X<$EXCEPTIONS_BEING_CAUGHT>
+
+Current state of the interpreter.
+
+	$^S         State
+	---------   -------------------------------------
+	undef       Parsing module, eval, or main program
+	true (1)    Executing an eval
+	false (0)   Otherwise
+
+The first state may happen in C<$SIG{__DIE__}> and C<$SIG{__WARN__}>
+handlers.
+
+The English name $EXCEPTIONS_BEING_CAUGHT is slightly misleading, because
+the C<undef> value does not indicate whether exceptions are being caught,
+since compilation of the main program does not catch exceptions.
+
+This variable was added in Perl 5.004.
+
+=item $WARNING
+
+=item $^W
+X<$^W> X<$WARNING>
+
+The current value of the warning switch, initially true if B<-w> was
+used, false otherwise, but directly modifiable.
+
+See also L<warnings>.
+
+Mnemonic: related to the B<-w> switch.
+
+=item ${^WARNING_BITS}
+X<${^WARNING_BITS}>
+
+The current set of warning checks enabled by the C<use warnings> pragma.
+It has the same scoping as the C<$^H> and C<%^H> variables.  The exact
+values are considered internal to the L<warnings> pragma and may change
+between versions of Perl.
+
+This variable was added in Perl v5.6.0.
+
+=item $OS_ERROR
+
+=item $ERRNO
+
+=item $!
+X<$!> X<$ERRNO> X<$OS_ERROR>
+
+When referenced, C<$!> retrieves the current value
+of the C C<errno> integer variable.
+If C<$!> is assigned a numerical value, that value is stored in C<errno>.
+When referenced as a string, C<$!> yields the system error string
+corresponding to C<errno>.
+
+Many system or library calls set C<errno> if they fail,
+to indicate the cause of failure.  They usually do B<not>
+set C<errno> to zero if they succeed.  This means C<errno>,
+hence C<$!>, is meaningful only I<immediately> after a B<failure>:
+
+    if (open my $fh, "<", $filename) {
+		# Here $! is meaningless.
+		...
+    }
+    else {
+		# ONLY here is $! meaningful.
+		...
+		# Already here $! might be meaningless.
+    }
+    # Since here we might have either success or failure,
+    # $! is meaningless.
+
+Here, I<meaningless> means that C<$!> may be unrelated to the outcome
+of the C<open()> operator.  Assignment to C<$!> is similarly ephemeral.
+It can be used immediately before invoking the C<die()> operator,
+to set the exit value, or to inspect the system error string
+corresponding to error I<n>, or to restore C<$!> to a meaningful state.
+
+Mnemonic: What just went bang?
+
+=item %OS_ERROR
+
+=item %ERRNO
+
+=item %!
+X<%!> X<%OS_ERROR> X<%ERRNO>
+
+Each element of C<%!> has a true value only if C<$!> is set to that
+value.  For example, C<$!{ENOENT}> is true if and only if the current
+value of C<$!> is C<ENOENT>; that is, if the most recent error was "No
+such file or directory" (or its moral equivalent: not all operating
+systems give that exact error, and certainly not all languages).  The
+specific true value is not guaranteed, but in the past has generally
+been the numeric value of C<$!>.  To check if a particular key is
+meaningful on your system, use C<exists $!{the_key}>; for a list of legal
+keys, use C<keys %!>.  See L<Errno> for more information, and also see
+L</$!>.
+
+This variable was added in Perl 5.005.
+
+=item $CHILD_ERROR
+
+=item $?
+X<$?> X<$CHILD_ERROR>
+
+The status returned by the last pipe close, backtick (C<``>) command,
+successful call to C<wait()> or C<waitpid()>, or from the C<system()>
+operator.  This is just the 16-bit status word returned by the
+traditional Unix C<wait()> system call (or else is made up to look
+like it).  Thus, the exit value of the subprocess is really (C<<< $? >>
+8 >>>), and C<$? & 127> gives which signal, if any, the process died
+from, and C<$? & 128> reports whether there was a core dump.
+
+Additionally, if the C<h_errno> variable is supported in C, its value
+is returned via C<$?> if any C<gethost*()> function fails.
+
+If you have installed a signal handler for C<SIGCHLD>, the
+value of C<$?> will usually be wrong outside that handler.
+
+Inside an C<END> subroutine C<$?> contains the value that is going to be
+given to C<exit()>.  You can modify C<$?> in an C<END> subroutine to
+change the exit status of your program.  For example:
+
+    END {
+	$? = 1 if $? == 255;  # die would make it 255
+    }
+
+Under VMS, the pragma C<use vmsish 'status'> makes C<$?> reflect the
+actual VMS exit status, instead of the default emulation of POSIX
+status; see L<perlvms/$?> for details.
+
+Mnemonic: similar to B<sh> and B<ksh>.
+
+=item $EVAL_ERROR
+
+=item $@
+X<$@> X<$EVAL_ERROR>
+
+The Perl error from the last C<eval> operator, i.e. the last exception that
+was caught.  For C<eval BLOCK>, this is either a runtime error message or the
+string or reference C<die> was called with.  The C<eval STRING> form also
+catches syntax errors and other compile time exceptions.
+
+If no error occurs, C<eval> sets C<$@> to the empty string.
+
+Warning messages are not collected in this variable.  You can, however,
+set up a routine to process warnings by setting C<$SIG{__WARN__}> as
+described in L</%SIG>.
+
+Mnemonic: Where was the error "at"?
+
+=back
+
+=head2 Variables related to the interpreter state
+
+These variables provide information about the current interpreter state.
+
+=over 8
+
+=item $COMPILING
+
+=item $^C
+X<$^C> X<$COMPILING>
+
+The current value of the flag associated with the B<-c> switch.
+Mainly of use with B<-MO=...> to allow code to alter its behavior
+when being compiled, such as for example to C<AUTOLOAD> at compile
+time rather than normal, deferred loading.  Setting
+C<$^C = 1> is similar to calling C<B::minus_c>.
+
+This variable was added in Perl v5.6.0.
+
+=item $DEBUGGING
+
+=item $^D
+X<$^D> X<$DEBUGGING>
+
+The current value of the debugging flags.  May be read or set.  Like its
+L<command-line equivalent|perlrun/B<-D>I<letters>>, you can use numeric
+or symbolic values, e.g. C<$^D = 10> or C<$^D = "st">.  See
+L<perlrun/B<-D>I<number>>.  The contents of this variable also affects the
+debugger operation.  See L<perldebguts/Debugger Internals>.
+
+Mnemonic: value of B<-D> switch.
+
+=item ${^ENCODING}
+X<${^ENCODING}>
+
+DEPRECATED!!!
+
+The I<object reference> to the C<Encode> object that is used to convert
+the source code to Unicode.  Thanks to this variable your Perl script
+does not have to be written in UTF-8.  Default is C<undef>.
+
+Setting this variable to any other value than C<undef> is deprecated due
+to fundamental defects in its design and implementation.  It is planned
+to remove it from a future Perl version.  Its purpose was to allow your
+non-ASCII Perl scripts to not have to be written in UTF-8; this was
+useful before editors that worked on UTF-8 encoded text were common, but
+that was long ago.  It causes problems, such as affecting the operation
+of other modules that aren't expecting it, causing general mayhem.  Its
+use can lead to segfaults.
+
+If you need something like this functionality, you should use the
+L<encoding> pragma, which is also deprecated, but has fewer nasty side
+effects.
+
+If you are coming here because code of yours is being adversely affected
+by someone's use of this variable, you can usually work around it by
+doing this:
+
+ local ${^ENCODING};
+
+near the beginning of the functions that are getting broken.  This
+undefines the variable during the scope of execution of the including
+function.
+
+This variable was added in Perl 5.8.2.
+
+=item ${^GLOBAL_PHASE}
+X<${^GLOBAL_PHASE}>
+
+The current phase of the perl interpreter.
+
+Possible values are:
+
+=over 8
+
+=item CONSTRUCT
+
+The C<PerlInterpreter*> is being constructed via C<perl_construct>.  This
+value is mostly there for completeness and for use via the
+underlying C variable C<PL_phase>.  It's not really possible for Perl
+code to be executed unless construction of the interpreter is
+finished.
+
+=item START
+
+This is the global compile-time.  That includes, basically, every
+C<BEGIN> block executed directly or indirectly from during the
+compile-time of the top-level program.
+
+This phase is not called "BEGIN" to avoid confusion with
+C<BEGIN>-blocks, as those are executed during compile-time of any
+compilation unit, not just the top-level program.  A new, localised
+compile-time entered at run-time, for example by constructs as
+C<eval "use SomeModule"> are not global interpreter phases, and
+therefore aren't reflected by C<${^GLOBAL_PHASE}>.
+
+=item CHECK
+
+Execution of any C<CHECK> blocks.
+
+=item INIT
+
+Similar to "CHECK", but for C<INIT>-blocks, not C<CHECK> blocks.
+
+=item RUN
+
+The main run-time, i.e. the execution of C<PL_main_root>.
+
+=item END
+
+Execution of any C<END> blocks.
+
+=item DESTRUCT
+
+Global destruction.
+
+=back
+
+Also note that there's no value for UNITCHECK-blocks.  That's because
+those are run for each compilation unit individually, and therefore is
+not a global interpreter phase.
+
+Not every program has to go through each of the possible phases, but
+transition from one phase to another can only happen in the order
+described in the above list.
+
+An example of all of the phases Perl code can see:
+
+    BEGIN { print "compile-time: ${^GLOBAL_PHASE}\n" }
+
+    INIT  { print "init-time: ${^GLOBAL_PHASE}\n" }
+
+    CHECK { print "check-time: ${^GLOBAL_PHASE}\n" }
+
+    {
+        package Print::Phase;
+
+        sub new {
+            my ($class, $time) = @_;
+            return bless \$time, $class;
+        }
+
+        sub DESTROY {
+            my $self = shift;
+            print "$$self: ${^GLOBAL_PHASE}\n";
+        }
+    }
+
+    print "run-time: ${^GLOBAL_PHASE}\n";
+
+    my $runtime = Print::Phase->new(
+        "lexical variables are garbage collected before END"
+    );
+
+    END   { print "end-time: ${^GLOBAL_PHASE}\n" }
+
+    our $destruct = Print::Phase->new(
+        "package variables are garbage collected after END"
+    );
+
+This will print out
+
+    compile-time: START
+    check-time: CHECK
+    init-time: INIT
+    run-time: RUN
+    lexical variables are garbage collected before END: RUN
+    end-time: END
+    package variables are garbage collected after END: DESTRUCT
+
+This variable was added in Perl 5.14.0.
+
+=item $^H
+X<$^H>
+
+WARNING: This variable is strictly for
+internal use only.  Its availability,
+behavior, and contents are subject to change without notice.
+
+This variable contains compile-time hints for the Perl interpreter.  At the
+end of compilation of a BLOCK the value of this variable is restored to the
+value when the interpreter started to compile the BLOCK.
+
+When perl begins to parse any block construct that provides a lexical scope
+(e.g., eval body, required file, subroutine body, loop body, or conditional
+block), the existing value of C<$^H> is saved, but its value is left unchanged.
+When the compilation of the block is completed, it regains the saved value.
+Between the points where its value is saved and restored, code that
+executes within BEGIN blocks is free to change the value of C<$^H>.
+
+This behavior provides the semantic of lexical scoping, and is used in,
+for instance, the C<use strict> pragma.
+
+The contents should be an integer; different bits of it are used for
+different pragmatic flags.  Here's an example:
+
+    sub add_100 { $^H |= 0x100 }
+
+    sub foo {
+	BEGIN { add_100() }
+	bar->baz($boon);
+    }
+
+Consider what happens during execution of the BEGIN block.  At this point
+the BEGIN block has already been compiled, but the body of C<foo()> is still
+being compiled.  The new value of C<$^H>
+will therefore be visible only while
+the body of C<foo()> is being compiled.
+
+Substitution of C<BEGIN { add_100() }> block with:
+
+    BEGIN { require strict; strict->import('vars') }
+
+demonstrates how C<use strict 'vars'> is implemented.  Here's a conditional
+version of the same lexical pragma:
+
+    BEGIN {
+	require strict; strict->import('vars') if $condition
+    }
+
+This variable was added in Perl 5.003.
+
+=item %^H
+X<%^H>
+
+The C<%^H> hash provides the same scoping semantic as C<$^H>.  This makes
+it useful for implementation of lexically scoped pragmas.  See
+L<perlpragma>.   All the entries are stringified when accessed at
+runtime, so only simple values can be accommodated.  This means no
+pointers to objects, for example.
+
+When putting items into C<%^H>, in order to avoid conflicting with other
+users of the hash there is a convention regarding which keys to use.
+A module should use only keys that begin with the module's name (the
+name of its main package) and a "/" character.  For example, a module
+C<Foo::Bar> should use keys such as C<Foo::Bar/baz>.
+
+This variable was added in Perl v5.6.0.
+
+=item ${^OPEN}
+X<${^OPEN}>
+
+An internal variable used by PerlIO.  A string in two parts, separated
+by a C<\0> byte, the first part describes the input layers, the second
+part describes the output layers.
+
+This variable was added in Perl v5.8.0.
+
+=item $PERLDB
+
+=item $^P
+X<$^P> X<$PERLDB>
+
+The internal variable for debugging support.  The meanings of the
+various bits are subject to change, but currently indicate:
+
+=over 6
+
+=item 0x01
+
+Debug subroutine enter/exit.
+
+=item 0x02
+
+Line-by-line debugging.  Causes C<DB::DB()> subroutine to be called for
+each statement executed.  Also causes saving source code lines (like
+0x400).
+
+=item 0x04
+
+Switch off optimizations.
+
+=item 0x08
+
+Preserve more data for future interactive inspections.
+
+=item 0x10
+
+Keep info about source lines on which a subroutine is defined.
+
+=item 0x20
+
+Start with single-step on.
+
+=item 0x40
+
+Use subroutine address instead of name when reporting.
+
+=item 0x80
+
+Report C<goto &subroutine> as well.
+
+=item 0x100
+
+Provide informative "file" names for evals based on the place they were compiled.
+
+=item 0x200
+
+Provide informative names to anonymous subroutines based on the place they
+were compiled.
+
+=item 0x400
+
+Save source code lines into C<@{"_<$filename"}>.
+
+=item 0x800
+
+When saving source, include evals that generate no subroutines.
+
+=item 0x1000
+
+When saving source, include source that did not compile.
+
+=back
+
+Some bits may be relevant at compile-time only, some at
+run-time only.  This is a new mechanism and the details may change.
+See also L<perldebguts>.
+
+=item ${^TAINT}
+X<${^TAINT}>
+
+Reflects if taint mode is on or off.  1 for on (the program was run with
+B<-T>), 0 for off, -1 when only taint warnings are enabled (i.e. with
+B<-t> or B<-TU>).
+
+This variable is read-only.
+
+This variable was added in Perl v5.8.0.
+
+=item ${^UNICODE}
+X<${^UNICODE}>
+
+Reflects certain Unicode settings of Perl.  See L<perlrun>
+documentation for the C<-C> switch for more information about
+the possible values.
+
+This variable is set during Perl startup and is thereafter read-only.
+
+This variable was added in Perl v5.8.2.
+
+=item ${^UTF8CACHE}
+X<${^UTF8CACHE}>
+
+This variable controls the state of the internal UTF-8 offset caching code.
+1 for on (the default), 0 for off, -1 to debug the caching code by checking
+all its results against linear scans, and panicking on any discrepancy.
+
+This variable was added in Perl v5.8.9.  It is subject to change or
+removal without notice, but is currently used to avoid recalculating the
+boundaries of multi-byte UTF-8-encoded characters.
+
+=item ${^UTF8LOCALE}
+X<${^UTF8LOCALE}>
+
+This variable indicates whether a UTF-8 locale was detected by perl at
+startup.  This information is used by perl when it's in
+adjust-utf8ness-to-locale mode (as when run with the C<-CL> command-line
+switch); see L<perlrun> for more info on this.
+
+This variable was added in Perl v5.8.8.
+
+=back
+
+=head2 Deprecated and removed variables
+
+Deprecating a variable announces the intent of the perl maintainers to
+eventually remove the variable from the language.  It may still be
+available despite its status.  Using a deprecated variable triggers
+a warning.
+
+Once a variable is removed, its use triggers an error telling you
+the variable is unsupported.
+
+See L<perldiag> for details about error messages.
+
+=over 8
+
+=item $#
+X<$#>
+
+C<$#> was a variable that could be used to format printed numbers.
+After a deprecation cycle, its magic was removed in Perl v5.10.0 and
+using it now triggers a warning: C<$# is no longer supported>.
+
+This is not the sigil you use in front of an array name to get the
+last index, like C<$#array>.  That's still how you get the last index
+of an array in Perl.  The two have nothing to do with each other.
+
+Deprecated in Perl 5.
+
+Removed in Perl v5.10.0.
+
+=item $*
+X<$*>
+
+C<$*> was a variable that you could use to enable multiline matching.
+After a deprecation cycle, its magic was removed in Perl v5.10.0.
+Using it now triggers a warning: C<$* is no longer supported>.
+You should use the C</s> and C</m> regexp modifiers instead.
+
+Deprecated in Perl 5.
+
+Removed in Perl v5.10.0.
+
+=item $[
+X<$[>
+
+This variable stores the index of the first element in an array, and
+of the first character in a substring.  The default is 0, but you could
+theoretically set it to 1 to make Perl behave more like B<awk> (or Fortran)
+when subscripting and when evaluating the index() and substr() functions.
+
+As of release 5 of Perl, assignment to C<$[> is treated as a compiler
+directive, and cannot influence the behavior of any other file.
+(That's why you can only assign compile-time constants to it.)
+Its use is highly discouraged.
+
+Prior to Perl v5.10.0, assignment to C<$[> could be seen from outer lexical
+scopes in the same file, unlike other compile-time directives (such as
+L<strict>).  Using local() on it would bind its value strictly to a lexical
+block.  Now it is always lexically scoped.
+
+As of Perl v5.16.0, it is implemented by the L<arybase> module.  See
+L<arybase> for more details on its behaviour.
+
+Under C<use v5.16>, or C<no feature "array_base">, C<$[> no longer has any
+effect, and always contains 0.  Assigning 0 to it is permitted, but any
+other value will produce an error.
+
+Mnemonic: [ begins subscripts.
+
+Deprecated in Perl v5.12.0.
+
+=back
+
+=cut
diff --git a/lib/5.24.1/pod/perlvms.pod b/lib/5.24.1/pod/perlvms.pod
new file mode 100644
index 00000000..22082570
--- /dev/null
+++ b/lib/5.24.1/pod/perlvms.pod
@@ -0,0 +1,1186 @@
+=head1 NAME
+
+perlvms - VMS-specific documentation for Perl
+
+=head1 DESCRIPTION
+
+Gathered below are notes describing details of Perl 5's 
+behavior on VMS.  They are a supplement to the regular Perl 5 
+documentation, so we have focussed on the ways in which Perl 
+5 functions differently under VMS than it does under Unix, 
+and on the interactions between Perl and the rest of the 
+operating system.  We haven't tried to duplicate complete 
+descriptions of Perl features from the main Perl 
+documentation, which can be found in the F<[.pod]> 
+subdirectory of the Perl distribution.
+
+We hope these notes will save you from confusion and lost 
+sleep when writing Perl scripts on VMS.  If you find we've 
+missed something you think should appear here, please don't 
+hesitate to drop a line to vmsperl@perl.org.
+
+=head1 Installation
+
+Directions for building and installing Perl 5 can be found in 
+the file F<README.vms> in the main source directory of the 
+Perl distribution.
+
+=head1 Organization of Perl Images
+
+=head2 Core Images
+
+During the build process, three Perl images are produced.
+F<Miniperl.Exe> is an executable image which contains all of
+the basic functionality of Perl, but cannot take advantage of
+Perl XS extensions and has a hard-wired list of library locations
+for loading pure-Perl modules.  It is used extensively to build and
+test Perl and various extensions, but is not installed.
+
+Most of the complete Perl resides in the shareable image F<PerlShr.Exe>,
+which provides a core to which the Perl executable image and all Perl
+extensions are linked. It is generally located via the logical name
+F<PERLSHR>.  While it's possible to put the image in F<SYS$SHARE> to
+make it loadable, that's not recommended. And while you may wish to
+INSTALL the image for performance reasons, you should not install it
+with privileges; if you do, the result will not be what you expect as
+image privileges are disabled during Perl start-up.
+
+Finally, F<Perl.Exe> is an executable image containing the main
+entry point for Perl, as well as some initialization code.  It
+should be placed in a public directory, and made world executable.
+In order to run Perl with command line arguments, you should
+define a foreign command to invoke this image.
+
+=head2 Perl Extensions
+
+Perl extensions are packages which provide both XS and Perl code
+to add new functionality to perl.  (XS is a meta-language which
+simplifies writing C code which interacts with Perl, see
+L<perlxs> for more details.)  The Perl code for an
+extension is treated like any other library module - it's
+made available in your script through the appropriate
+C<use> or C<require> statement, and usually defines a Perl
+package containing the extension.
+
+The portion of the extension provided by the XS code may be
+connected to the rest of Perl in either of two ways.  In the
+B<static> configuration, the object code for the extension is
+linked directly into F<PerlShr.Exe>, and is initialized whenever
+Perl is invoked.  In the B<dynamic> configuration, the extension's
+machine code is placed into a separate shareable image, which is
+mapped by Perl's DynaLoader when the extension is C<use>d or
+C<require>d in your script.  This allows you to maintain the
+extension as a separate entity, at the cost of keeping track of the
+additional shareable image.  Most extensions can be set up as either
+static or dynamic.
+
+The source code for an extension usually resides in its own
+directory.  At least three files are generally provided:
+I<Extshortname>F<.xs> (where I<Extshortname> is the portion of
+the extension's name following the last C<::>), containing
+the XS code, I<Extshortname>F<.pm>, the Perl library module
+for the extension, and F<Makefile.PL>, a Perl script which uses
+the C<MakeMaker> library modules supplied with Perl to generate
+a F<Descrip.MMS> file for the extension.
+
+=head2 Installing static extensions
+
+Since static extensions are incorporated directly into
+F<PerlShr.Exe>, you'll have to rebuild Perl to incorporate a
+new extension.  You should edit the main F<Descrip.MMS> or F<Makefile>
+you use to build Perl, adding the extension's name to the C<ext>
+macro, and the extension's object file to the C<extobj> macro.
+You'll also need to build the extension's object file, either
+by adding dependencies to the main F<Descrip.MMS>, or using a
+separate F<Descrip.MMS> for the extension.  Then, rebuild
+F<PerlShr.Exe> to incorporate the new code.
+
+Finally, you'll need to copy the extension's Perl library
+module to the F<[.>I<Extname>F<]> subdirectory under one
+of the directories in C<@INC>, where I<Extname> is the name
+of the extension, with all C<::> replaced by C<.> (e.g.
+the library module for extension Foo::Bar would be copied
+to a F<[.Foo.Bar]> subdirectory).
+
+=head2 Installing dynamic extensions
+
+In general, the distributed kit for a Perl extension includes
+a file named Makefile.PL, which is a Perl program which is used
+to create a F<Descrip.MMS> file which can be used to build and
+install the files required by the extension.  The kit should be
+unpacked into a directory tree B<not> under the main Perl source
+directory, and the procedure for building the extension is simply
+
+    $ perl Makefile.PL  ! Create Descrip.MMS
+    $ mmk               ! Build necessary files
+    $ mmk test          ! Run test code, if supplied
+    $ mmk install       ! Install into public Perl tree
+
+VMS support for this process in the current release of Perl
+is sufficient to handle most extensions.  (See the MakeMaker
+documentation for more details on installation options for
+extensions.)
+
+=over 4
+
+=item *
+
+the F<[.Lib.Auto.>I<Arch>I<$PVers>I<Extname>F<]> subdirectory
+of one of the directories in C<@INC> (where I<PVers>
+is the version of Perl you're using, as supplied in C<$]>,
+with '.' converted to '_'), or
+
+=item *
+
+one of the directories in C<@INC>, or
+
+=item *
+
+a directory which the extensions Perl library module
+passes to the DynaLoader when asking it to map
+the shareable image, or
+
+=item *
+
+F<Sys$Share> or F<Sys$Library>.
+
+=back
+
+If the shareable image isn't in any of these places, you'll need
+to define a logical name I<Extshortname>, where I<Extshortname>
+is the portion of the extension's name after the last C<::>, which
+translates to the full file specification of the shareable image.
+
+=head1 File specifications
+
+=head2 Syntax
+
+We have tried to make Perl aware of both VMS-style and Unix-style file
+specifications wherever possible.  You may use either style, or both,
+on the command line and in scripts, but you may not combine the two
+styles within a single file specification.  VMS Perl interprets Unix
+pathnames in much the same way as the CRTL (I<e.g.> the first component
+of an absolute path is read as the device name for the VMS file
+specification).  There are a set of functions provided in the
+C<VMS::Filespec> package for explicit interconversion between VMS and
+Unix syntax; its documentation provides more details.
+
+We've tried to minimize the dependence of Perl library
+modules on Unix syntax, but you may find that some of these,
+as well as some scripts written for Unix systems, will
+require that you use Unix syntax, since they will assume that
+'/' is the directory separator, I<etc.>  If you find instances
+of this in the Perl distribution itself, please let us know,
+so we can try to work around them.
+
+Also when working on Perl programs on VMS, if you need a syntax
+in a specific operating system format, then you need either to
+check the appropriate DECC$ feature logical, or call a conversion
+routine to force it to that format.
+
+The feature logical name DECC$FILENAME_UNIX_REPORT modifies traditional
+Perl behavior in the conversion of file specifications from Unix to VMS
+format in order to follow the extended character handling rules now
+expected by the CRTL.  Specifically, when this feature is in effect, the
+C<./.../> in a Unix path is now translated to C<[.^.^.^.]> instead of
+the traditional VMS C<[...]>.  To be compatible with what MakeMaker
+expects, if a VMS path cannot be translated to a Unix path, it is
+passed through unchanged, so C<unixify("[...]")> will return C<[...]>.
+
+There are several ambiguous cases where a conversion routine cannot
+determine whether an input filename is in Unix format or in VMS format,
+since now both VMS and Unix file specifications may have characters in
+them that could be mistaken for syntax delimiters of the other type. So
+some pathnames simply cannot be used in a mode that allows either type
+of pathname to be present.  Perl will tend to assume that an ambiguous
+filename is in Unix format.
+
+Allowing "." as a version delimiter is simply incompatible with
+determining whether a pathname is in VMS format or in Unix format with
+extended file syntax.  There is no way to know whether "perl-5.8.6" is a
+Unix "perl-5.8.6" or a VMS "perl-5.8;6" when passing it to unixify() or
+vmsify().
+
+The DECC$FILENAME_UNIX_REPORT logical name controls how Perl interprets
+filenames to the extent that Perl uses the CRTL internally for many
+purposes, and attempts to follow CRTL conventions for reporting
+filenames.  The DECC$FILENAME_UNIX_ONLY feature differs in that it
+expects all filenames passed to the C run-time to be already in Unix
+format.  This feature is not yet supported in Perl since Perl uses
+traditional OpenVMS file specifications internally and in the test
+harness, and it is not yet clear whether this mode will be useful or
+useable.  The feature logical name DECC$POSIX_COMPLIANT_PATHNAMES is new
+with the RMS Symbolic Link SDK and included with OpenVMS v8.3, but is
+not yet supported in Perl.
+
+=head2 Filename Case
+
+Perl enables DECC$EFS_CASE_PRESERVE and DECC$ARGV_PARSE_STYLE by
+default.  Note that the latter only takes effect when extended parse
+is set in the process in which Perl is running.  When these features
+are explicitly disabled in the environment or the CRTL does not support
+them, Perl follows the traditional CRTL behavior of downcasing command-line
+arguments and returning file specifications in lower case only.
+
+I<N. B.>  It is very easy to get tripped up using a mixture of other
+programs, external utilities, and Perl scripts that are in varying
+states of being able to handle case preservation.  For example, a file
+created by an older version of an archive utility or a build utility
+such as MMK or MMS may generate a filename in all upper case even on an
+ODS-5 volume.  If this filename is later retrieved by a Perl script or
+module in a case preserving environment, that upper case name may not
+match the mixed-case or lower-case expectations of the Perl code.  Your
+best bet is to follow an all-or-nothing approach to case preservation:
+either don't use it at all, or make sure your entire toolchain and
+application environment support and use it.
+
+OpenVMS Alpha v7.3-1 and later and all version of OpenVMS I64 support
+case sensitivity as a process setting (see C<SET PROCESS
+/CASE_LOOKUP=SENSITIVE>). Perl does not currently support case
+sensitivity on VMS, but it may in the future, so Perl programs should
+use the C<< File::Spec->case_tolerant >> method to determine the state, and
+not the C<$^O> variable.
+
+=head2 Symbolic Links
+
+When built on an ODS-5 volume with symbolic links enabled, Perl by
+default supports symbolic links when the requisite support is available
+in the filesystem and CRTL (generally 64-bit OpenVMS v8.3 and later). 
+There are a number of limitations and caveats to be aware of when
+working with symbolic links on VMS.  Most notably, the target of a valid
+symbolic link must be expressed as a Unix-style path and it must exist
+on a volume visible from your POSIX root (see the C<SHOW ROOT> command
+in DCL help).  For further details on symbolic link capabilities and
+requirements, see chapter 12 of the CRTL manual that ships with OpenVMS
+v8.3 or later.
+
+=head2 Wildcard expansion
+
+File specifications containing wildcards are allowed both on 
+the command line and within Perl globs (e.g. C<E<lt>*.cE<gt>>).  If
+the wildcard filespec uses VMS syntax, the resultant 
+filespecs will follow VMS syntax; if a Unix-style filespec is 
+passed in, Unix-style filespecs will be returned.
+Similar to the behavior of wildcard globbing for a Unix shell,
+one can escape command line wildcards with double quotation
+marks C<"> around a perl program command line argument.  However,
+owing to the stripping of C<"> characters carried out by the C
+handling of argv you will need to escape a construct such as
+this one (in a directory containing the files F<PERL.C>, F<PERL.EXE>,
+F<PERL.H>, and F<PERL.OBJ>):
+
+    $ perl -e "print join(' ',@ARGV)" perl.*
+    perl.c perl.exe perl.h perl.obj
+
+in the following triple quoted manner:
+
+    $ perl -e "print join(' ',@ARGV)" """perl.*"""
+    perl.*
+
+In both the case of unquoted command line arguments or in calls
+to C<glob()> VMS wildcard expansion is performed. (csh-style
+wildcard expansion is available if you use C<File::Glob::glob>.)
+If the wildcard filespec contains a device or directory 
+specification, then the resultant filespecs will also contain 
+a device and directory; otherwise, device and directory 
+information are removed.  VMS-style resultant filespecs will 
+contain a full device and directory, while Unix-style 
+resultant filespecs will contain only as much of a directory 
+path as was present in the input filespec.  For example, if 
+your default directory is Perl_Root:[000000], the expansion 
+of C<[.t]*.*> will yield filespecs  like 
+"perl_root:[t]base.dir", while the expansion of C<t/*/*> will 
+yield filespecs like "t/base.dir".  (This is done to match 
+the behavior of glob expansion performed by Unix shells.) 
+
+Similarly, the resultant filespec will contain the file version
+only if one was present in the input filespec.
+
+
+=head2 Pipes
+
+Input and output pipes to Perl filehandles are supported; the 
+"file name" is passed to lib$spawn() for asynchronous 
+execution.  You should be careful to close any pipes you have 
+opened in a Perl script, lest you leave any "orphaned" 
+subprocesses around when Perl exits. 
+
+You may also use backticks to invoke a DCL subprocess, whose 
+output is used as the return value of the expression.  The 
+string between the backticks is handled as if it were the
+argument to the C<system> operator (see below).  In this case,
+Perl will wait for the subprocess to complete before continuing. 
+
+The mailbox (MBX) that perl can create to communicate with a pipe
+defaults to a buffer size of 8192 on 64-bit systems, 512 on VAX.  The
+default buffer size is adjustable via the logical name PERL_MBX_SIZE
+provided that the value falls between 128 and the SYSGEN parameter
+MAXBUF inclusive.  For example, to set the mailbox size to 32767 use
+C<$ENV{'PERL_MBX_SIZE'} = 32767;> and then open and use pipe constructs. 
+An alternative would be to issue the command:
+
+    $ Define PERL_MBX_SIZE 32767
+
+before running your wide record pipe program.  A larger value may
+improve performance at the expense of the BYTLM UAF quota.
+
+=head1 PERL5LIB and PERLLIB
+
+The PERL5LIB and PERLLIB logical names work as documented in L<perl>,
+except that the element separator is '|' instead of ':'.  The
+directory specifications may use either VMS or Unix syntax.
+
+=head1 The Perl Forked Debugger
+
+The Perl forked debugger places the debugger commands and output in a
+separate X-11 terminal window so that commands and output from multiple
+processes are not mixed together.
+
+Perl on VMS supports an emulation of the forked debugger when Perl is
+run on a VMS system that has X11 support installed.
+
+To use the forked debugger, you need to have the default display set to an
+X-11 Server and some environment variables set that Unix expects.
+
+The forked debugger requires the environment variable C<TERM> to be C<xterm>,
+and the environment variable C<DISPLAY> to exist.  C<xterm> must be in
+lower case.
+
+  $define TERM "xterm"
+
+  $define DISPLAY "hostname:0.0"
+
+Currently the value of C<DISPLAY> is ignored.  It is recommended that it be set
+to be the hostname of the display, the server and screen in Unix notation.  In
+the future the value of DISPLAY may be honored by Perl instead of using the
+default display.
+
+It may be helpful to always use the forked debugger so that script I/O is
+separated from debugger I/O.  You can force the debugger to be forked by
+assigning a value to the logical name <PERLDB_PIDS> that is not a process
+identification number.
+
+  $define PERLDB_PIDS XXXX
+
+
+=head1 PERL_VMS_EXCEPTION_DEBUG
+
+The PERL_VMS_EXCEPTION_DEBUG being defined as "ENABLE" will cause the VMS
+debugger to be invoked if a fatal exception that is not otherwise
+handled is raised.  The purpose of this is to allow debugging of
+internal Perl problems that would cause such a condition.
+
+This allows the programmer to look at the execution stack and variables to
+find out the cause of the exception.  As the debugger is being invoked as
+the Perl interpreter is about to do a fatal exit, continuing the execution
+in debug mode is usually not practical.
+
+Starting Perl in the VMS debugger may change the program execution
+profile in a way that such problems are not reproduced.
+
+The C<kill> function can be used to test this functionality from within
+a program.
+
+In typical VMS style, only the first letter of the value of this logical
+name is actually checked in a case insensitive mode, and it is considered
+enabled if it is the value "T","1" or "E".
+
+This logical name must be defined before Perl is started.
+
+=head1 Command line
+
+=head2 I/O redirection and backgrounding
+
+Perl for VMS supports redirection of input and output on the 
+command line, using a subset of Bourne shell syntax:
+
+=over 4
+
+=item *
+
+C<E<lt>file> reads stdin from C<file>,
+
+=item *
+
+C<E<gt>file> writes stdout to C<file>,
+
+=item *
+
+C<E<gt>E<gt>file> appends stdout to C<file>,
+
+=item *
+
+C<2E<gt>file> writes stderr to C<file>,
+
+=item *
+
+C<2E<gt>E<gt>file> appends stderr to C<file>, and
+
+=item *
+
+C<< 2>&1 >> redirects stderr to stdout.
+
+=back
+
+In addition, output may be piped to a subprocess, using the  
+character '|'.  Anything after this character on the command 
+line is passed to a subprocess for execution; the subprocess 
+takes the output of Perl as its input.
+
+Finally, if the command line ends with '&', the entire 
+command is run in the background as an asynchronous 
+subprocess.
+
+=head2 Command line switches
+
+The following command line switches behave differently under
+VMS than described in L<perlrun>.  Note also that in order
+to pass uppercase switches to Perl, you need to enclose
+them in double-quotes on the command line, since the CRTL
+downcases all unquoted strings.
+
+On newer 64 bit versions of OpenVMS, a process setting now
+controls if the quoting is needed to preserve the case of
+command line arguments.
+
+=over 4
+
+=item -i
+
+If the C<-i> switch is present but no extension for a backup
+copy is given, then inplace editing creates a new version of
+a file; the existing copy is not deleted.  (Note that if
+an extension is given, an existing file is renamed to the backup
+file, as is the case under other operating systems, so it does
+not remain as a previous version under the original filename.)
+
+=item -S
+
+If the C<"-S"> or C<-"S"> switch is present I<and> the script
+name does not contain a directory, then Perl translates the
+logical name DCL$PATH as a searchlist, using each translation
+as a directory in which to look for the script.  In addition,
+if no file type is specified, Perl looks in each directory
+for a file matching the name specified, with a blank type,
+a type of F<.pl>, and a type of F<.com>, in that order.
+
+=item -u
+
+The C<-u> switch causes the VMS debugger to be invoked
+after the Perl program is compiled, but before it has
+run.  It does not create a core dump file.
+
+=back
+
+=head1 Perl functions
+
+As of the time this document was last revised, the following 
+Perl functions were implemented in the VMS port of Perl 
+(functions marked with * are discussed in more detail below):
+
+    file tests*, abs, alarm, atan, backticks*, binmode*, bless,
+    caller, chdir, chmod, chown, chomp, chop, chr,
+    close, closedir, cos, crypt*, defined, delete, die, do, dump*, 
+    each, endgrent, endpwent, eof, eval, exec*, exists, exit, exp, 
+    fileno, flock  getc, getgrent*, getgrgid*, getgrnam, getlogin,
+    getppid, getpwent*, getpwnam*, getpwuid*, glob, gmtime*, goto,
+    grep, hex, ioctl, import, index, int, join, keys, kill*,
+    last, lc, lcfirst, lchown*, length, link*, local, localtime, log,
+    lstat, m//, map, mkdir, my, next, no, oct, open, opendir, ord,
+    pack, pipe, pop, pos, print, printf, push, q//, qq//, qw//,
+    qx//*, quotemeta, rand, read, readdir, readlink*, redo, ref,
+    rename, require, reset, return, reverse, rewinddir, rindex,
+    rmdir, s///, scalar, seek, seekdir, select(internal),
+    select (system call)*, setgrent, setpwent, shift, sin, sleep,
+    socketpair, sort, splice, split, sprintf, sqrt, srand, stat,
+    study, substr, symlink*, sysread, system*, syswrite, tell,
+    telldir, tie, time, times*, tr///, uc, ucfirst, umask,
+    undef, unlink*, unpack, untie, unshift, use, utime*,
+    values, vec, wait, waitpid*, wantarray, warn, write, y///
+
+The following functions were not implemented in the VMS port, 
+and calling them produces a fatal error (usually) or 
+undefined behavior (rarely, we hope):
+
+    chroot, dbmclose, dbmopen, fork*, getpgrp, getpriority,  
+    msgctl, msgget, msgsend, msgrcv, semctl,
+    semget, semop, setpgrp, setpriority, shmctl, shmget,
+    shmread, shmwrite, syscall
+
+The following functions are available on Perls compiled with Dec C
+5.2 or greater and running VMS 7.0 or greater:
+
+    truncate
+
+The following functions are available on Perls built on VMS 7.2 or
+greater:
+
+    fcntl (without locking)
+
+The following functions may or may not be implemented, 
+depending on what type of socket support you've built into 
+your copy of Perl:
+
+    accept, bind, connect, getpeername,
+    gethostbyname, getnetbyname, getprotobyname,
+    getservbyname, gethostbyaddr, getnetbyaddr,
+    getprotobynumber, getservbyport, gethostent,
+    getnetent, getprotoent, getservent, sethostent,
+    setnetent, setprotoent, setservent, endhostent,
+    endnetent, endprotoent, endservent, getsockname,
+    getsockopt, listen, recv, select(system call)*,
+    send, setsockopt, shutdown, socket
+
+The following function is available on Perls built on 64 bit OpenVMS v8.2
+with hard links enabled on an ODS-5 formatted build disk.  CRTL support
+is in principle available as of OpenVMS v7.3-1, and better configuration
+support could detect this.
+
+    link
+
+The following functions are available on Perls built on 64 bit OpenVMS
+v8.2 and later.  CRTL support is in principle available as of OpenVMS
+v7.3-2, and better configuration support could detect this.
+
+   getgrgid, getgrnam, getpwnam, getpwuid,
+   setgrent, ttyname
+
+The following functions are available on Perls built on 64 bit OpenVMS v8.2
+and later.  
+
+   statvfs, socketpair
+
+=over 4
+
+=item File tests
+
+The tests C<-b>, C<-B>, C<-c>, C<-C>, C<-d>, C<-e>, C<-f>,
+C<-o>, C<-M>, C<-s>, C<-S>, C<-t>, C<-T>, and C<-z> work as
+advertised.  The return values for C<-r>, C<-w>, and C<-x>
+tell you whether you can actually access the file; this may
+not reflect the UIC-based file protections.  Since real and
+effective UIC don't differ under VMS, C<-O>, C<-R>, C<-W>,
+and C<-X> are equivalent to C<-o>, C<-r>, C<-w>, and C<-x>.
+Similarly, several other tests, including C<-A>, C<-g>, C<-k>,
+C<-l>, C<-p>, and C<-u>, aren't particularly meaningful under
+VMS, and the values returned by these tests reflect whatever
+your CRTL C<stat()> routine does to the equivalent bits in the
+st_mode field.  Finally, C<-d> returns true if passed a device
+specification without an explicit directory (e.g. C<DUA1:>), as
+well as if passed a directory.
+
+There are DECC feature logical names AND ODS-5 volume attributes that
+also control what values are returned for the date fields.
+
+Note: Some sites have reported problems when using the file-access
+tests (C<-r>, C<-w>, and C<-x>) on files accessed via DEC's DFS.
+Specifically, since DFS does not currently provide access to the
+extended file header of files on remote volumes, attempts to
+examine the ACL fail, and the file tests will return false,
+with C<$!> indicating that the file does not exist.  You can
+use C<stat> on these files, since that checks UIC-based protection
+only, and then manually check the appropriate bits, as defined by
+your C compiler's F<stat.h>, in the mode value it returns, if you
+need an approximation of the file's protections.
+
+=item backticks
+
+Backticks create a subprocess, and pass the enclosed string
+to it for execution as a DCL command.  Since the subprocess is
+created directly via C<lib$spawn()>, any valid DCL command string
+may be specified.
+
+=item binmode FILEHANDLE
+
+The C<binmode> operator will attempt to insure that no translation
+of carriage control occurs on input from or output to this filehandle.
+Since this involves reopening the file and then restoring its
+file position indicator, if this function returns FALSE, the
+underlying filehandle may no longer point to an open file, or may
+point to a different position in the file than before C<binmode>
+was called.
+
+Note that C<binmode> is generally not necessary when using normal
+filehandles; it is provided so that you can control I/O to existing
+record-structured files when necessary.  You can also use the
+C<vmsfopen> function in the VMS::Stdio extension to gain finer
+control of I/O to files and devices with different record structures.
+
+=item crypt PLAINTEXT, USER
+
+The C<crypt> operator uses the C<sys$hash_password> system
+service to generate the hashed representation of PLAINTEXT.
+If USER is a valid username, the algorithm and salt values
+are taken from that user's UAF record.  If it is not, then
+the preferred algorithm and a salt of 0 are used.  The
+quadword encrypted value is returned as an 8-character string.
+
+The value returned by C<crypt> may be compared against
+the encrypted password from the UAF returned by the C<getpw*>
+functions, in order to authenticate users.  If you're
+going to do this, remember that the encrypted password in
+the UAF was generated using uppercase username and
+password strings; you'll have to upcase the arguments to
+C<crypt> to insure that you'll get the proper value:
+
+    sub validate_passwd {
+        my($user,$passwd) = @_;
+        my($pwdhash);
+        if ( !($pwdhash = (getpwnam($user))[1]) ||
+               $pwdhash ne crypt("\U$passwd","\U$name") ) {
+            intruder_alert($name);
+        }
+        return 1;
+    }
+
+
+=item die
+
+C<die> will force the native VMS exit status to be an SS$_ABORT code
+if neither of the $! or $? status values are ones that would cause
+the native status to be interpreted as being what VMS classifies as
+SEVERE_ERROR severity for DCL error handling.
+
+When C<PERL_VMS_POSIX_EXIT> is active (see L</"$?"> below), the native VMS exit
+status value will have either one of the C<$!> or C<$?> or C<$^E> or
+the Unix value 255 encoded into it in a way that the effective original
+value can be decoded by other programs written in C, including Perl
+and the GNV package.  As per the normal non-VMS behavior of C<die> if
+either C<$!> or C<$?> are non-zero, one of those values will be
+encoded into a native VMS status value.  If both of the Unix status
+values are 0, and the C<$^E> value is set one of ERROR or SEVERE_ERROR
+severity, then the C<$^E> value will be used as the exit code as is.
+If none of the above apply, the Unix value of 255 will be encoded into
+a native VMS exit status value.
+
+Please note a significant difference in the behavior of C<die> in
+the C<PERL_VMS_POSIX_EXIT> mode is that it does not force a VMS
+SEVERE_ERROR status on exit.  The Unix exit values of 2 through
+255 will be encoded in VMS status values with severity levels of
+SUCCESS.  The Unix exit value of 1 will be encoded in a VMS status
+value with a severity level of ERROR.  This is to be compatible with
+how the VMS C library encodes these values.
+
+The minimum severity level set by C<die> in C<PERL_VMS_POSIX_EXIT> mode
+may be changed to be ERROR or higher in the future depending on the 
+results of testing and further review.
+
+See L</"$?"> for a description of the encoding of the Unix value to
+produce a native VMS status containing it.
+
+=item dump
+
+Rather than causing Perl to abort and dump core, the C<dump>
+operator invokes the VMS debugger.  If you continue to
+execute the Perl program under the debugger, control will
+be transferred to the label specified as the argument to
+C<dump>, or, if no label was specified, back to the
+beginning of the program.  All other state of the program
+(I<e.g.> values of variables, open file handles) are not
+affected by calling C<dump>.
+
+=item exec LIST
+
+A call to C<exec> will cause Perl to exit, and to invoke the command
+given as an argument to C<exec> via C<lib$do_command>.  If the
+argument begins with '@' or '$' (other than as part of a filespec),
+then it is executed as a DCL command.  Otherwise, the first token on
+the command line is treated as the filespec of an image to run, and
+an attempt is made to invoke it (using F<.Exe> and the process
+defaults to expand the filespec) and pass the rest of C<exec>'s
+argument to it as parameters.  If the token has no file type, and
+matches a file with null type, then an attempt is made to determine
+whether the file is an executable image which should be invoked
+using C<MCR> or a text file which should be passed to DCL as a
+command procedure.
+
+=item fork
+
+While in principle the C<fork> operator could be implemented via
+(and with the same rather severe limitations as) the CRTL C<vfork()>
+routine, and while some internal support to do just that is in
+place, the implementation has never been completed, making C<fork>
+currently unavailable.  A true kernel C<fork()> is expected in a
+future version of VMS, and the pseudo-fork based on interpreter
+threads may be available in a future version of Perl on VMS (see
+L<perlfork>).  In the meantime, use C<system>, backticks, or piped
+filehandles to create subprocesses.
+
+=item getpwent
+
+=item getpwnam
+
+=item getpwuid
+
+These operators obtain the information described in L<perlfunc>,
+if you have the privileges necessary to retrieve the named user's
+UAF information via C<sys$getuai>.  If not, then only the C<$name>,
+C<$uid>, and C<$gid> items are returned.  The C<$dir> item contains
+the login directory in VMS syntax, while the C<$comment> item
+contains the login directory in Unix syntax. The C<$gcos> item
+contains the owner field from the UAF record.  The C<$quota>
+item is not used.
+
+=item gmtime
+
+The C<gmtime> operator will function properly if you have a
+working CRTL C<gmtime()> routine, or if the logical name
+SYS$TIMEZONE_DIFFERENTIAL is defined as the number of seconds
+which must be added to UTC to yield local time.  (This logical
+name is defined automatically if you are running a version of
+VMS with built-in UTC support.)  If neither of these cases is
+true, a warning message is printed, and C<undef> is returned.
+
+=item kill
+
+In most cases, C<kill> is implemented via the undocumented system
+service C<$SIGPRC>, which has the same calling sequence as C<$FORCEX>, but
+throws an exception in the target process rather than forcing it to call
+C<$EXIT>.  Generally speaking, C<kill> follows the behavior of the
+CRTL's C<kill()> function, but unlike that function can be called from
+within a signal handler.  Also, unlike the C<kill> in some versions of
+the CRTL, Perl's C<kill> checks the validity of the signal passed in and
+returns an error rather than attempting to send an unrecognized signal.
+
+Also, negative signal values don't do anything special under
+VMS; they're just converted to the corresponding positive value.
+
+=item qx//
+
+See the entry on C<backticks> above.
+
+=item select (system call)
+
+If Perl was not built with socket support, the system call
+version of C<select> is not available at all.  If socket
+support is present, then the system call version of
+C<select> functions only for file descriptors attached
+to sockets.  It will not provide information about regular
+files or pipes, since the CRTL C<select()> routine does not
+provide this functionality.
+
+=item stat EXPR
+
+Since VMS keeps track of files according to a different scheme
+than Unix, it's not really possible to represent the file's ID
+in the C<st_dev> and C<st_ino> fields of a C<struct stat>.  Perl
+tries its best, though, and the values it uses are pretty unlikely
+to be the same for two different files.  We can't guarantee this,
+though, so caveat scriptor.
+
+=item system LIST
+
+The C<system> operator creates a subprocess, and passes its 
+arguments to the subprocess for execution as a DCL command.  
+Since the subprocess is created directly via C<lib$spawn()>, any 
+valid DCL command string may be specified.  If the string begins with
+'@', it is treated as a DCL command unconditionally.  Otherwise, if
+the first token contains a character used as a delimiter in file
+specification (e.g. C<:> or C<]>), an attempt is made to expand it
+using  a default type of F<.Exe> and the process defaults, and if
+successful, the resulting file is invoked via C<MCR>. This allows you
+to invoke an image directly simply by passing the file specification
+to C<system>, a common Unixish idiom.  If the token has no file type,
+and matches a file with null type, then an attempt is made to
+determine whether the file is an executable image which should be
+invoked using C<MCR> or a text file which should be passed to DCL
+as a command procedure.
+
+If LIST consists of the empty string, C<system> spawns an
+interactive DCL subprocess, in the same fashion as typing
+B<SPAWN> at the DCL prompt.
+
+Perl waits for the subprocess to complete before continuing
+execution in the current process.  As described in L<perlfunc>,
+the return value of C<system> is a fake "status" which follows
+POSIX semantics unless the pragma C<use vmsish 'status'> is in
+effect; see the description of C<$?> in this document for more 
+detail.  
+
+=item time
+
+The value returned by C<time> is the offset in seconds from
+01-JAN-1970 00:00:00 (just like the CRTL's times() routine), in order
+to make life easier for code coming in from the POSIX/Unix world.
+
+=item times
+
+The array returned by the C<times> operator is divided up 
+according to the same rules the CRTL C<times()> routine.  
+Therefore, the "system time" elements will always be 0, since 
+there is no difference between "user time" and "system" time 
+under VMS, and the time accumulated by a subprocess may or may 
+not appear separately in the "child time" field, depending on 
+whether C<times()> keeps track of subprocesses separately.  Note
+especially that the VAXCRTL (at least) keeps track only of
+subprocesses spawned using C<fork()> and C<exec()>; it will not
+accumulate the times of subprocesses spawned via pipes, C<system()>,
+or backticks.
+
+=item unlink LIST
+
+C<unlink> will delete the highest version of a file only; in
+order to delete all versions, you need to say
+
+    1 while unlink LIST;
+
+You may need to make this change to scripts written for a
+Unix system which expect that after a call to C<unlink>,
+no files with the names passed to C<unlink> will exist.
+(Note: This can be changed at compile time; if you
+C<use Config> and C<$Config{'d_unlink_all_versions'}> is
+C<define>, then C<unlink> will delete all versions of a
+file on the first call.)
+
+C<unlink> will delete a file if at all possible, even if it
+requires changing file protection (though it won't try to
+change the protection of the parent directory).  You can tell
+whether you've got explicit delete access to a file by using the
+C<VMS::Filespec::candelete> operator.  For instance, in order
+to delete only files to which you have delete access, you could
+say something like
+
+    sub safe_unlink {
+        my($file,$num);
+        foreach $file (@_) {
+            next unless VMS::Filespec::candelete($file);
+            $num += unlink $file;
+        }
+        $num;
+    }
+
+(or you could just use C<VMS::Stdio::remove>, if you've installed
+the VMS::Stdio extension distributed with Perl). If C<unlink> has to
+change the file protection to delete the file, and you interrupt it
+in midstream, the file may be left intact, but with a changed ACL
+allowing you delete access.
+
+This behavior of C<unlink> is to be compatible with POSIX behavior
+and not traditional VMS behavior.
+
+=item utime LIST
+
+This operator changes only the modification time of the file (VMS 
+revision date) on ODS-2 volumes and ODS-5 volumes without access 
+dates enabled. On ODS-5 volumes with access dates enabled, the 
+true access time is modified.
+
+=item waitpid PID,FLAGS
+
+If PID is a subprocess started by a piped C<open()> (see L<open>), 
+C<waitpid> will wait for that subprocess, and return its final status
+value in C<$?>.  If PID is a subprocess created in some other way (e.g.
+SPAWNed before Perl was invoked), C<waitpid> will simply check once per
+second whether the process has completed, and return when it has.  (If
+PID specifies a process that isn't a subprocess of the current process,
+and you invoked Perl with the C<-w> switch, a warning will be issued.)
+
+Returns PID on success, -1 on error.  The FLAGS argument is ignored
+in all cases.
+
+=back
+
+=head1 Perl variables
+
+The following VMS-specific information applies to the indicated
+"special" Perl variables, in addition to the general information
+in L<perlvar>.  Where there is a conflict, this information
+takes precedence.
+
+=over 4
+
+=item %ENV 
+
+The operation of the C<%ENV> array depends on the translation
+of the logical name F<PERL_ENV_TABLES>.  If defined, it should
+be a search list, each element of which specifies a location
+for C<%ENV> elements.  If you tell Perl to read or set the
+element C<$ENV{>I<name>C<}>, then Perl uses the translations of
+F<PERL_ENV_TABLES> as follows:
+
+=over 4
+
+=item CRTL_ENV
+
+This string tells Perl to consult the CRTL's internal C<environ> array
+of key-value pairs, using I<name> as the key.  In most cases, this
+contains only a few keys, but if Perl was invoked via the C
+C<exec[lv]e()> function, as is the case for some embedded Perl
+applications or when running under a shell such as GNV bash, the
+C<environ> array may have been populated by the calling program.
+
+=item CLISYM_[LOCAL]
+
+A string beginning with C<CLISYM_>tells Perl to consult the CLI's
+symbol tables, using I<name> as the name of the symbol.  When reading
+an element of C<%ENV>, the local symbol table is scanned first, followed
+by the global symbol table..  The characters following C<CLISYM_> are
+significant when an element of C<%ENV> is set or deleted: if the
+complete string is C<CLISYM_LOCAL>, the change is made in the local
+symbol table; otherwise the global symbol table is changed.
+
+=item Any other string
+
+If an element of F<PERL_ENV_TABLES> translates to any other string,
+that string is used as the name of a logical name table, which is
+consulted using I<name> as the logical name.  The normal search
+order of access modes is used.
+
+=back
+
+F<PERL_ENV_TABLES> is translated once when Perl starts up; any changes
+you make while Perl is running do not affect the behavior of C<%ENV>.
+If F<PERL_ENV_TABLES> is not defined, then Perl defaults to consulting
+first the logical name tables specified by F<LNM$FILE_DEV>, and then
+the CRTL C<environ> array.  This default order is reversed when the
+logical name F<GNV$UNIX_SHELL> is defined, such as when running under
+GNV bash.
+
+For operations on %ENV entries based on logical names or DCL symbols, the
+key string is treated as if it were entirely uppercase, regardless of the
+case actually specified in the Perl expression. Entries in %ENV based on the
+CRTL's environ array preserve the case of the key string when stored, and
+lookups are case sensitive.
+
+When an element of C<%ENV> is read, the locations to which
+F<PERL_ENV_TABLES> points are checked in order, and the value
+obtained from the first successful lookup is returned.  If the
+name of the C<%ENV> element contains a semi-colon, it and
+any characters after it are removed.  These are ignored when
+the CRTL C<environ> array or a CLI symbol table is consulted.
+However, the name is looked up in a logical name table, the
+suffix after the semi-colon is treated as the translation index
+to be used for the lookup.   This lets you look up successive values
+for search list logical names.  For instance, if you say
+
+   $  Define STORY  once,upon,a,time,there,was
+   $  perl -e "for ($i = 0; $i <= 6; $i++) " -
+   _$ -e "{ print $ENV{'story;'.$i},' '}"
+
+Perl will print C<ONCE UPON A TIME THERE WAS>, assuming, of course,
+that F<PERL_ENV_TABLES> is set up so that the logical name C<story>
+is found, rather than a CLI symbol or CRTL C<environ> element with
+the same name.
+
+When an element of C<%ENV> is set to a defined string, the
+corresponding definition is made in the location to which the
+first translation of F<PERL_ENV_TABLES> points.  If this causes a
+logical name to be created, it is defined in supervisor mode.
+(The same is done if an existing logical name was defined in
+executive or kernel mode; an existing user or supervisor mode
+logical name is reset to the new value.)  If the value is an empty
+string, the logical name's translation is defined as a single C<NUL>
+(ASCII C<\0>) character, since a logical name cannot translate to a
+zero-length string.  (This restriction does not apply to CLI symbols
+or CRTL C<environ> values; they are set to the empty string.)
+
+When an element of C<%ENV> is set to C<undef>, the element is looked
+up as if it were being read, and if it is found, it is deleted.  (An
+item "deleted" from the CRTL C<environ> array is set to the empty
+string.)  Using C<delete> to remove an element from C<%ENV> has a
+similar effect, but after the element is deleted, another attempt is
+made to look up the element, so an inner-mode logical name or a name
+in another location will replace the logical name just deleted. In
+either case, only the first value found searching PERL_ENV_TABLES is
+altered.  It is not possible at present to define a search list
+logical name via %ENV.
+
+The element C<$ENV{DEFAULT}> is special: when read, it returns
+Perl's current default device and directory, and when set, it
+resets them, regardless of the definition of F<PERL_ENV_TABLES>.
+It cannot be cleared or deleted; attempts to do so are silently
+ignored.
+
+Note that if you want to pass on any elements of the
+C-local environ array to a subprocess which isn't
+started by fork/exec, or isn't running a C program, you
+can "promote" them to logical names in the current
+process, which will then be inherited by all subprocesses,
+by saying
+
+    foreach my $key (qw[C-local keys you want promoted]) {
+        my $temp = $ENV{$key}; # read from C-local array
+        $ENV{$key} = $temp;    # and define as logical name
+    }
+
+(You can't just say C<$ENV{$key} = $ENV{$key}>, since the
+Perl optimizer is smart enough to elide the expression.)
+
+Don't try to clear C<%ENV> by saying C<%ENV = ();>, it will throw
+a fatal error.  This is equivalent to doing the following from DCL:
+
+    DELETE/LOGICAL *
+
+You can imagine how bad things would be if, for example, the SYS$MANAGER
+or SYS$SYSTEM logical names were deleted.
+
+At present, the first time you iterate over %ENV using
+C<keys>, or C<values>,  you will incur a time penalty as all
+logical names are read, in order to fully populate %ENV.
+Subsequent iterations will not reread logical names, so they
+won't be as slow, but they also won't reflect any changes
+to logical name tables caused by other programs.
+
+You do need to be careful with the logical names representing
+process-permanent files, such as C<SYS$INPUT> and C<SYS$OUTPUT>.
+The translations for these logical names are prepended with a
+two-byte binary value (0x1B 0x00) that needs to be stripped off
+if you want to use it. (In previous versions of Perl it wasn't
+possible to get the values of these logical names, as the null
+byte acted as an end-of-string marker)
+
+=item $!
+
+The string value of C<$!> is that returned by the CRTL's
+strerror() function, so it will include the VMS message for
+VMS-specific errors.  The numeric value of C<$!> is the
+value of C<errno>, except if errno is EVMSERR, in which
+case C<$!> contains the value of vaxc$errno.  Setting C<$!>
+always sets errno to the value specified.  If this value is
+EVMSERR, it also sets vaxc$errno to 4 (NONAME-F-NOMSG), so
+that the string value of C<$!> won't reflect the VMS error
+message from before C<$!> was set.
+
+=item $^E
+
+This variable provides direct access to VMS status values
+in vaxc$errno, which are often more specific than the
+generic Unix-style error messages in C<$!>.  Its numeric value
+is the value of vaxc$errno, and its string value is the
+corresponding VMS message string, as retrieved by sys$getmsg().
+Setting C<$^E> sets vaxc$errno to the value specified.
+
+While Perl attempts to keep the vaxc$errno value to be current, if
+errno is not EVMSERR, it may not be from the current operation.
+
+=item $?
+
+The "status value" returned in C<$?> is synthesized from the
+actual exit status of the subprocess in a way that approximates
+POSIX wait(5) semantics, in order to allow Perl programs to
+portably test for successful completion of subprocesses.  The
+low order 8 bits of C<$?> are always 0 under VMS, since the
+termination status of a process may or may not have been
+generated by an exception.
+
+The next 8 bits contain the termination status of the program.
+
+If the child process follows the convention of C programs
+compiled with the _POSIX_EXIT macro set, the status value will
+contain the actual value of 0 to 255 returned by that program
+on a normal exit.
+
+With the _POSIX_EXIT macro set, the Unix exit value of zero is
+represented as a VMS native status of 1, and the Unix values
+from 2 to 255 are encoded by the equation:
+
+   VMS_status = 0x35a000 + (unix_value * 8) + 1.
+
+And in the special case of Unix value 1 the encoding is:
+
+   VMS_status = 0x35a000 + 8 + 2 + 0x10000000.
+
+For other termination statuses, the severity portion of the
+subprocess's exit status is used: if the severity was success or
+informational, these bits are all 0; if the severity was
+warning, they contain a value of 1; if the severity was
+error or fatal error, they contain the actual severity bits,
+which turns out to be a value of 2 for error and 4 for severe_error.
+Fatal is another term for the severe_error status.
+
+As a result, C<$?> will always be zero if the subprocess's exit
+status indicated successful completion, and non-zero if a
+warning or error occurred or a program compliant with encoding
+_POSIX_EXIT values was run and set a status.
+
+How can you tell the difference between a non-zero status that is
+the result of a VMS native error status or an encoded Unix status?
+You can not unless you look at the ${^CHILD_ERROR_NATIVE} value.
+The ${^CHILD_ERROR_NATIVE} value returns the actual VMS status value
+and check the severity bits. If the severity bits are equal to 1,
+then if the numeric value for C<$?> is between 2 and 255 or 0, then
+C<$?> accurately reflects a value passed back from a Unix application.
+If C<$?> is 1, and the severity bits indicate a VMS error (2), then
+C<$?> is from a Unix application exit value.
+
+In practice, Perl scripts that call programs that return _POSIX_EXIT
+type status values will be expecting those values, and programs that
+call traditional VMS programs will either be expecting the previous
+behavior or just checking for a non-zero status.
+
+And success is always the value 0 in all behaviors.
+
+When the actual VMS termination status of the child is an error,
+internally the C<$!> value will be set to the closest Unix errno
+value to that error so that Perl scripts that test for error
+messages will see the expected Unix style error message instead
+of a VMS message.
+
+Conversely, when setting C<$?> in an END block, an attempt is made
+to convert the POSIX value into a native status intelligible to
+the operating system upon exiting Perl.  What this boils down to
+is that setting C<$?> to zero results in the generic success value
+SS$_NORMAL, and setting C<$?> to a non-zero value results in the
+generic failure status SS$_ABORT.  See also L<perlport/exit>.
+
+With the C<PERL_VMS_POSIX_EXIT> logical name defined as "ENABLE",
+setting C<$?> will cause the new value to be encoded into C<$^E>
+so that either the original parent or child exit status values 
+ 0 to 255 can be automatically recovered by C programs expecting
+_POSIX_EXIT behavior.  If both a parent and a child exit value are
+non-zero, then it will be assumed that this is actually a VMS native
+status value to be passed through.  The special value of 0xFFFF is
+almost a NOOP as it will cause the current native VMS status in the
+C library to become the current native Perl VMS status, and is handled
+this way as it is known to not be a valid native VMS status value.
+It is recommend that only values in the range of normal Unix parent or
+child status numbers, 0 to 255 are used.
+
+The pragma C<use vmsish 'status'> makes C<$?> reflect the actual 
+VMS exit status instead of the default emulation of POSIX status 
+described above.  This pragma also disables the conversion of
+non-zero values to SS$_ABORT when setting C<$?> in an END
+block (but zero will still be converted to SS$_NORMAL).
+
+Do not use the pragma C<use vmsish 'status'> with C<PERL_VMS_POSIX_EXIT>
+enabled, as they are at times requesting conflicting actions and the
+consequence of ignoring this advice will be undefined to allow future
+improvements in the POSIX exit handling.
+
+In general, with C<PERL_VMS_POSIX_EXIT> enabled, more detailed information
+will be available in the exit status for DCL scripts or other native VMS tools,
+and will give the expected information for Posix programs.  It has not been
+made the default in order to preserve backward compatibility.
+
+N.B. Setting C<DECC$FILENAME_UNIX_REPORT> implicitly enables 
+C<PERL_VMS_POSIX_EXIT>.
+
+=item $|
+
+Setting C<$|> for an I/O stream causes data to be flushed
+all the way to disk on each write (I<i.e.> not just to
+the underlying RMS buffers for a file).  In other words,
+it's equivalent to calling fflush() and fsync() from C.
+
+=back
+
+=head1 Standard modules with VMS-specific differences
+
+=head2 SDBM_File
+
+SDBM_File works properly on VMS. It has, however, one minor
+difference. The database directory file created has a F<.sdbm_dir>
+extension rather than a F<.dir> extension. F<.dir> files are VMS filesystem
+directory files, and using them for other purposes could cause unacceptable
+problems.
+
+=head1 Revision date
+
+Please see the git repository for revision history.
+
+=head1 AUTHOR
+
+Charles Bailey  bailey@cor.newman.upenn.edu
+Craig Berry  craigberry@mac.com
+Dan Sugalski  dan@sidhe.org
+John Malmberg wb8tyw@qsl.net
diff --git a/lib/5.24.1/pod/perlvos.pod b/lib/5.24.1/pod/perlvos.pod
new file mode 100644
index 00000000..7249f492
--- /dev/null
+++ b/lib/5.24.1/pod/perlvos.pod
@@ -0,0 +1,121 @@
+If you read this file _as_is_, just ignore the funny characters you
+see. It is written in the POD format (see pod/perlpod.pod) which is
+specially designed to be readable as is.
+
+=head1 NAME
+
+perlvos - Perl for Stratus OpenVOS
+
+=head1 SYNOPSIS
+
+This file contains notes for building perl on the Stratus OpenVOS
+operating system.  Perl is a scripting or macro language that is
+popular on many systems.  See L<perlbook> for a number of good books
+on Perl.
+
+These are instructions for building Perl from source.  This version of
+Perl requires the dynamic linking support that is found in OpenVOS
+Release 17.1 and thus is not supported on OpenVOS Release 17.0 or
+earlier releases.
+
+If you are running VOS Release 14.4.1 or later, you can obtain a
+pre-compiled, supported copy of perl by purchasing the GNU Tools
+product from Stratus Technologies.
+
+=head1 BUILDING PERL FOR OPENVOS
+
+To build perl from its source code on the Stratus V Series platform
+you must have OpenVOS Release 17.1.0 or later, GNU Tools Release
+3.5 or later, and the C/POSIX Runtime Libraries.
+
+Follow the normal instructions for building perl; e.g, enter bash, run
+the Configure script, then use "gmake" to build perl.
+
+=head1 INSTALLING PERL IN OPENVOS
+
+=over 4
+
+=item 1
+
+After you have built perl using the Configure script, ensure that you
+have modify and default write permission to C<< >system>ported >> and
+all subdirectories.  Then type
+
+     gmake install
+
+=item 2
+
+While there are currently no architecture-specific extensions or
+modules distributed with perl, the following directories can be
+used to hold such files (replace the string VERSION by the
+appropriate version number):
+
+     >system>ported>lib>perl5>VERSION>i786
+
+=item 3
+
+Site-specific perl extensions and modules can be installed in one of
+two places.  Put architecture-independent files into:
+
+     >system>ported>lib>perl5>site_perl>VERSION
+
+Put site-specific architecture-dependent files into one of the
+following directories:
+
+     >system>ported>lib>perl5>site_perl>VERSION>i786
+
+=item 4
+
+You can examine the @INC variable from within a perl program
+to see the order in which Perl searches these directories.
+
+=back
+
+=head1 USING PERL IN OPENVOS
+
+=head2 Restrictions of Perl on OpenVOS
+
+This port of Perl version 5 prefers Unix-style, slash-separated
+pathnames over OpenVOS-style greater-than-separated pathnames.
+OpenVOS-style pathnames should work in most contexts, but if you have
+trouble, replace all greater-than characters by slash characters.
+Because the slash character is used as a pathname delimiter, Perl
+cannot process OpenVOS pathnames containing a slash character in a
+directory or file name; these must be renamed.
+
+This port of Perl also uses Unix-epoch date values internally.
+As long as you are dealing with ASCII character string
+representations of dates, this should not be an issue.  The
+supported epoch is January 1, 1980 to January 17, 2038.
+
+See the file pod/perlport.pod for more information about the OpenVOS
+port of Perl.
+
+=head1 TEST STATUS
+
+A number of the perl self-tests fails for various reasons; generally
+these are minor and due to subtle differences between common
+POSIX-based environments and the OpenVOS POSIX environment.  Ensure
+that you conduct sufficient testing of your code to guarantee that it
+works properly in the OpenVOS environment.
+
+=head1 SUPPORT STATUS
+
+I'm offering this port "as is".  You can ask me questions, but I
+can't guarantee I'll be able to answer them.  There are some
+excellent books available on the Perl language; consult a book
+seller.
+
+If you want a supported version of perl for OpenVOS, purchase the
+OpenVOS GNU Tools product from Stratus Technologies, along with a
+support contract (or from anyone else who will sell you support).
+
+=head1 AUTHOR
+
+Paul Green (Paul.Green@stratus.com)
+
+=head1 LAST UPDATE
+
+February 28, 2013
+
+=cut
diff --git a/lib/5.24.1/pod/perlwin32.pod b/lib/5.24.1/pod/perlwin32.pod
new file mode 100644
index 00000000..df417025
--- /dev/null
+++ b/lib/5.24.1/pod/perlwin32.pod
@@ -0,0 +1,955 @@
+If you read this file _as_is_, just ignore the funny characters you
+see. It is written in the POD format (see pod/perlpod.pod) which is
+specially designed to be readable as is.
+
+=head1 NAME
+
+perlwin32 - Perl under Windows
+
+=head1 SYNOPSIS
+
+These are instructions for building Perl under Windows 2000 and later.
+
+=head1 DESCRIPTION
+
+Before you start, you should glance through the README file
+found in the top-level directory to which the Perl distribution
+was extracted.  Make sure you read and understand the terms under
+which this software is being distributed.
+
+Also make sure you read L<BUGS AND CAVEATS> below for the
+known limitations of this port.
+
+The INSTALL file in the perl top-level has much information that is
+only relevant to people building Perl on Unix-like systems.  In
+particular, you can safely ignore any information that talks about
+"Configure".
+
+You may also want to look at one other option for building a perl that
+will work on Windows: the README.cygwin file, which give a different
+set of rules to build a perl for Windows.  This method will probably
+enable you to build a more Unix-compatible perl, but you will also
+need to download and use various other build-time and run-time support
+software described in that file.
+
+This set of instructions is meant to describe a so-called "native"
+port of Perl to the Windows platform.  This includes both 32-bit and
+64-bit Windows operating systems.  The resulting Perl requires no
+additional software to run (other than what came with your operating
+system).  Currently, this port is capable of using one of the
+following compilers on the Intel x86 architecture:
+
+      Microsoft Visual C++    version 6.0 or later
+      Intel C++ Compiler      (experimental)
+      Gcc by mingw.org        gcc version 3.4.5 or later
+      Gcc by mingw-w64.org    gcc version 4.4.3 or later
+
+Note that the last two of these are actually competing projects both
+delivering complete gcc toolchain for MS Windows:
+
+=over 4
+
+=item L<http://mingw.org>
+
+Delivers gcc toolchain targeting 32-bit Windows platform.
+
+=item L<http://mingw-w64.org>
+
+Delivers gcc toolchain targeting both 64-bit Windows and 32-bit Windows
+platforms (despite the project name "mingw-w64" they are not only 64-bit
+oriented). They deliver the native gcc compilers and cross-compilers
+that are also supported by perl's makefile.
+
+=back
+
+The Microsoft Visual C++ compilers are also now being given away free. They are
+available as "Visual C++ Toolkit 2003" or "Visual C++ 2005-2013 Express
+Edition" (and also as part of the ".NET Framework SDK") and are the same
+compilers that ship with "Visual C++ .NET 2003 Professional" or "Visual C++
+2005-2013 Professional" respectively.
+
+This port can also be built on IA64/AMD64 using:
+
+      Microsoft Platform SDK	Nov 2001 (64-bit compiler and tools)
+      MinGW64 compiler (gcc version 4.4.3 or later)
+
+The Windows SDK can be downloaded from L<http://www.microsoft.com/>.
+The MinGW64 compiler is available at L<http://mingw-w64.org>.
+The latter is actually a cross-compiler targeting Win64. There's also a trimmed
+down compiler (no java, or gfortran) suitable for building perl available at:
+L<http://strawberryperl.com/package/kmx/64_gcctoolchain/>
+
+NOTE: If you're using a 32-bit compiler to build perl on a 64-bit Windows
+operating system, then you should set the WIN64 environment variable to "undef".
+Also, the trimmed down compiler only passes tests when USE_ITHREADS *= define
+(as opposed to undef) and when the CFG *= Debug line is commented out.
+
+This port fully supports MakeMaker (the set of modules that
+is used to build extensions to perl).  Therefore, you should be
+able to build and install most extensions found in the CPAN sites.
+See L<Usage Hints for Perl on Windows> below for general hints about this.
+
+=head2 Setting Up Perl on Windows
+
+=over 4
+
+=item Make
+
+You need a "make" program to build the sources.  If you are using
+Visual C++ or the Windows SDK tools, you can use nmake supplied with Visual C++
+or Windows SDK. You may also use, for Visual C++ or Windows SDK, dmake or gmake
+instead of nmake.  dmake is open source software, but is not included with
+Visual C++ or Windows SDK.  Builds using gcc need dmake or gmake.  nmake is not
+supported for gcc builds.  Parallel building is only supported with dmake and
+gmake, not nmake.  When using dmake it is recommended to use dmake 4.13 or newer
+for parallel building.  Older dmakes, in parallel mode, have very high CPU usage
+and pound the disk/filing system with duplicate I/O calls in an aggressive
+polling loop.
+
+A port of dmake for Windows is available from:
+
+L<http://search.cpan.org/dist/dmake/>
+
+Fetch and install dmake somewhere on your path.
+
+=item Command Shell
+
+Use the default "cmd" shell that comes with Windows.  Some versions of the
+popular 4DOS/NT shell have incompatibilities that may cause you trouble.
+If the build fails under that shell, try building again with the cmd
+shell.
+
+Make sure the path to the build directory does not contain spaces.  The
+build usually works in this circumstance, but some tests will fail.
+
+=item Microsoft Visual C++
+
+The nmake that comes with Visual C++ will suffice for building. Visual C
+requires that certain things be set up in the console before Visual C will
+sucessfully run. To make a console box be able to run the C compiler, you will
+need to beforehand, run the C<vcvars32.bat> file to compile for x86-32 and for
+x86-64 C<vcvarsall.bat x64> or C<vcvarsamd64.bat>. On a typical install of a
+Microsoft C compiler product, these batch files will already be in your C<PATH>
+environment variable so you may just type them without an absolute path into
+your console. If you need to find the absolute path to the batch file, it is
+usually found somewhere like C:\Program Files\Microsoft Visual Studio\VC98\Bin.
+With some newer Micrsoft C products (released after ~2004), the installer will
+put a shortcut in the start menu to launch a new console window with the
+console already set up for your target architecture (x86-32 or x86-64 or IA64).
+With the newer compilers, you may also use the older batch files if you choose
+so.
+
+=item Microsoft Visual C++ 2008-2013 Express Edition
+
+These free versions of Visual C++ 2008-2013 Professional contain the same
+compilers and linkers that ship with the full versions, and also contain
+everything necessary to build Perl, rather than requiring a separate download
+of the Windows SDK like previous versions did.
+
+These packages can be downloaded by searching in the Download Center at
+L<http://www.microsoft.com/downloads/search.aspx?displaylang=en>.  (Providing exact
+links to these packages has proven a pointless task because the links keep on
+changing so often.)
+
+Install Visual C++ 2008-2013 Express, then setup your environment using, e.g.
+
+ C:\Program Files\Microsoft Visual Studio 12.0\Common7\Tools\vsvars32.bat
+
+(assuming the default installation location was chosen).
+
+Perl should now build using the win32/Makefile.  You will need to edit that
+file to set CCTYPE to one of MSVC90FREE-MSVC120FREE first.
+
+=item Microsoft Visual C++ 2005 Express Edition
+
+This free version of Visual C++ 2005 Professional contains the same compiler
+and linker that ship with the full version, but doesn't contain everything
+necessary to build Perl.
+
+You will also need to download the "Windows SDK" (the "Core SDK" and "MDAC
+SDK" components are required) for more header files and libraries.
+
+These packages can both be downloaded by searching in the Download Center at
+L<http://www.microsoft.com/downloads/search.aspx?displaylang=en>.  (Providing exact
+links to these packages has proven a pointless task because the links keep on
+changing so often.)
+
+Try to obtain the latest version of the Windows SDK.  Sometimes these packages
+contain a particular Windows OS version in their name, but actually work on
+other OS versions too.  For example, the "Windows Server 2003 R2 Platform SDK"
+also runs on Windows XP SP2 and Windows 2000.
+
+Install Visual C++ 2005 first, then the Platform SDK.  Setup your environment
+as follows (assuming default installation locations were chosen):
+
+ SET PlatformSDKDir=C:\Program Files\Microsoft Platform SDK
+
+ SET PATH=%SystemRoot%\system32;%SystemRoot%;C:\Program Files\Microsoft Visual Studio 8\Common7\IDE;C:\Program Files\Microsoft Visual Studio 8\VC\BIN;C:\Program Files\Microsoft Visual Studio 8\Common7\Tools;C:\Program Files\Microsoft Visual Studio 8\SDK\v2.0\bin;C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727;C:\Program Files\Microsoft Visual Studio 8\VC\VCPackages;%PlatformSDKDir%\Bin
+
+ SET INCLUDE=C:\Program Files\Microsoft Visual Studio 8\VC\INCLUDE;%PlatformSDKDir%\include
+
+ SET LIB=C:\Program Files\Microsoft Visual Studio 8\VC\LIB;C:\Program Files\Microsoft Visual Studio 8\SDK\v2.0\lib;%PlatformSDKDir%\lib
+
+ SET LIBPATH=C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727
+
+(The PlatformSDKDir might need to be set differently depending on which version
+you are using. Earlier versions installed into "C:\Program Files\Microsoft SDK",
+while the latest versions install into version-specific locations such as
+"C:\Program Files\Microsoft Platform SDK for Windows Server 2003 R2".)
+
+Perl should now build using the win32/Makefile.  You will need to edit that
+file to set
+
+ CCTYPE = MSVC80FREE
+
+and to set CCHOME, CCINCDIR and CCLIBDIR as per the environment setup above.
+
+=item Microsoft Visual C++ Toolkit 2003
+
+This free toolkit contains the same compiler and linker that ship with
+Visual C++ .NET 2003 Professional, but doesn't contain everything
+necessary to build Perl.
+
+You will also need to download the "Platform SDK" (the "Core SDK" and "MDAC
+SDK" components are required) for header files, libraries and rc.exe, and
+".NET Framework SDK" for more libraries and nmake.exe.  Note that the latter
+(which also includes the free compiler and linker) requires the ".NET
+Framework Redistributable" to be installed first.  This can be downloaded and
+installed separately, but is included in the "Visual C++ Toolkit 2003" anyway.
+
+These packages can all be downloaded by searching in the Download Center at
+L<http://www.microsoft.com/downloads/search.aspx?displaylang=en>.  (Providing exact
+links to these packages has proven a pointless task because the links keep on
+changing so often.)
+
+Try to obtain the latest version of the Windows SDK.  Sometimes these packages
+contain a particular Windows OS version in their name, but actually work on
+other OS versions too.  For example, the "Windows Server 2003 R2 Platform SDK"
+also runs on Windows XP SP2 and Windows 2000.
+
+Install the Toolkit first, then the Platform SDK, then the .NET Framework SDK.
+Setup your environment as follows (assuming default installation locations
+were chosen):
+
+ SET PlatformSDKDir=C:\Program Files\Microsoft Platform SDK
+
+ SET PATH=%SystemRoot%\system32;%SystemRoot%;C:\Program Files\Microsoft Visual C++ Toolkit 2003\bin;%PlatformSDKDir%\Bin;C:\Program Files\Microsoft.NET\SDK\v1.1\Bin
+
+ SET INCLUDE=C:\Program Files\Microsoft Visual C++ Toolkit 2003\include;%PlatformSDKDir%\include;C:\Program Files\Microsoft Visual Studio .NET 2003\Vc7\include
+
+ SET LIB=C:\Program Files\Microsoft Visual C++ Toolkit 2003\lib;%PlatformSDKDir%\lib;C:\Program Files\Microsoft Visual Studio .NET 2003\Vc7\lib
+
+(The PlatformSDKDir might need to be set differently depending on which version
+you are using. Earlier versions installed into "C:\Program Files\Microsoft SDK",
+while the latest versions install into version-specific locations such as
+"C:\Program Files\Microsoft Platform SDK for Windows Server 2003 R2".)
+
+Several required files will still be missing:
+
+=over 4
+
+=item *
+
+cvtres.exe is required by link.exe when using a .res file.  It is actually
+installed by the .NET Framework SDK, but into a location such as the
+following:
+
+ C:\WINDOWS\Microsoft.NET\Framework\v1.1.4322
+
+Copy it from there to %PlatformSDKDir%\Bin
+
+=item *
+
+lib.exe is normally used to build libraries, but link.exe with the /lib
+option also works, so change win32/config.vc to use it instead:
+
+Change the line reading:
+
+	ar='lib'
+
+to:
+
+	ar='link /lib'
+
+It may also be useful to create a batch file called lib.bat in
+C:\Program Files\Microsoft Visual C++ Toolkit 2003\bin containing:
+
+	@echo off
+	link /lib %*
+
+for the benefit of any naughty C extension modules that you might want to build
+later which explicitly reference "lib" rather than taking their value from
+$Config{ar}.
+
+=item *
+
+setargv.obj is required to build perlglob.exe (and perl.exe if the USE_SETARGV
+option is enabled).  The Platform SDK supplies this object file in source form
+in %PlatformSDKDir%\src\crt.  Copy setargv.c, cruntime.h and
+internal.h from there to some temporary location and build setargv.obj using
+
+	cl.exe /c /I. /D_CRTBLD setargv.c
+
+Then copy setargv.obj to %PlatformSDKDir%\lib
+
+Alternatively, if you don't need perlglob.exe and don't need to enable the
+USE_SETARGV option then you can safely just remove all mention of $(GLOBEXE)
+from win32/Makefile and setargv.obj won't be required anyway.
+
+=back
+
+Perl should now build using the win32/Makefile.  You will need to edit that
+file to set
+
+	CCTYPE = MSVC70FREE
+
+and to set CCHOME, CCINCDIR and CCLIBDIR as per the environment setup above.
+
+=item Microsoft Platform SDK 64-bit Compiler
+
+The nmake that comes with the Platform SDK will suffice for building
+Perl.  Make sure you are building within one of the "Build Environment"
+shells available after you install the Platform SDK from the Start Menu.
+
+=item MinGW release 3 with gcc
+
+Perl can be compiled with gcc from MinGW release 3 and later (using gcc 3.4.5
+and later).  It can be downloaded here:
+
+L<http://www.mingw.org/>
+
+You also need dmake.  See L</"Make"> above on how to get it.
+
+=item Intel C++ Compiler
+
+Experimental support for using Intel C++ Compiler has been added. Edit
+win32/Makefile and pick the correct CCTYPE for the Visual C that Intel C was
+installed into. Also uncomment __ICC to enable Intel C on Visual C support.
+To set up the build enviroment, from the Start Menu run
+IA-32 Visual Studio 20__ mode or Intel 64 Visual Studio 20__ mode as
+appropriate. Then run nmake as usually in that prompt box.
+
+Only Intel C++ Compiler v12.1 has been tested. Other versions probably will
+work. Using Intel C++ Compiler instead of Visual C has the benefit of C99
+compatibility which is needed by some CPAN XS modules, while maintaining
+compatibility with Visual C object code and Visual C debugging infrastructure
+unlike GCC.
+
+=back
+
+=head2 Building
+
+=over 4
+
+=item *
+
+Make sure you are in the "win32" subdirectory under the perl toplevel.
+This directory contains a "Makefile" that will work with
+versions of nmake that come with Visual C++ or the Windows SDK, and
+a dmake "makefile.mk" that will work for all supported compilers.  The
+defaults in the dmake makefile are setup to build using MinGW/gcc.
+
+=item *
+
+Edit the makefile.mk (or Makefile, if you're using nmake) and change
+the values of INST_DRV and INST_TOP.   You can also enable various
+build flags.  These are explained in the makefiles.
+
+Note that it is generally not a good idea to try to build a perl with
+INST_DRV and INST_TOP set to a path that already exists from a previous
+build.  In particular, this may cause problems with the
+lib/ExtUtils/t/Embed.t test, which attempts to build a test program and
+may end up building against the installed perl's lib/CORE directory rather
+than the one being tested.
+
+You will have to make sure that CCTYPE is set correctly and that
+CCHOME points to wherever you installed your compiler.
+
+If building with the cross-compiler provided by
+mingw-w64.org you'll need to uncomment the line that sets
+GCCCROSS in the makefile.mk. Do this only if it's the cross-compiler - ie
+only if the bin folder doesn't contain a gcc.exe. (The cross-compiler
+does not provide a gcc.exe, g++.exe, ar.exe, etc. Instead, all of these
+executables are prefixed with 'x86_64-w64-mingw32-'.)
+
+The default value for CCHOME in the makefiles for Visual C++
+may not be correct for some versions.  Make sure the default exists
+and is valid.
+
+You may also need to comment out the C<DELAYLOAD = ...> line in the
+Makefile if you're using VC++ 6.0 without the latest service pack and
+the linker reports an internal error.
+
+If you want build some core extensions statically into perl's dll, specify
+them in the STATIC_EXT macro.
+
+NOTE: The USE_64_BIT_INT build option is not supported with the 32-bit
+Visual C++ 6.0 compiler.
+
+Be sure to read the instructions near the top of the makefiles carefully.
+
+=item *
+
+Type "dmake" (or "nmake" if you are using that make).
+
+This should build everything.  Specifically, it will create perl.exe,
+perl524.dll at the perl toplevel, and various other extension dll's
+under the lib\auto directory.  If the build fails for any reason, make
+sure you have done the previous steps correctly.
+
+To try dmake's parallel mode, type "dmake -P2", where 2, is the maximum number
+of parallel jobs you want to run. A number of things in the build process will
+run in parallel, but there are serialization points where you will see just 1
+CPU maxed out. This is normal.
+
+If you are advanced enough with building C code, here is a suggestion to speed
+up building perl, and the later C<make test>. Try to keep your PATH enviromental
+variable with the least number of folders possible (remember to keep your C
+compiler's folders there). C<C:\WINDOWS\system32> or C<C:\WINNT\system32>
+depending on your OS version should be first folder in PATH, since "cmd.exe"
+is the most commonly launched program during the build and later testing.
+
+=back
+
+=head2 Testing Perl on Windows
+
+Type "dmake test" (or "nmake test").  This will run most of the tests from
+the testsuite (many tests will be skipped).
+
+There should be no test failures.
+
+If you build with Visual C++ 2013 then three tests currently may fail with
+Daylight Saving Time related problems: F<t/io/fs.t>,
+F<cpan/HTTP-Tiny/t/110_mirror.t> and F<lib/File/Copy.t>. The failures are
+caused by bugs in the CRT in VC++ 2013 which will be fixed in future releases
+of VC++, as explained by Microsoft here:
+L<https://connect.microsoft.com/VisualStudio/feedback/details/811534/utime-sometimes-fails-to-set-the-correct-file-times-in-visual-c-2013>. In the meantime,
+if you need fixed C<stat> and C<utime> functions then have a look at the
+CPAN distribution Win32::UTCFileTime.
+
+If you build with certain versions (e.g. 4.8.1) of gcc from www.mingw.org then
+F<ext/POSIX/t/time.t> may fail test 17 due to a known bug in those gcc builds:
+see L<http://sourceforge.net/p/mingw/bugs/2152/>.
+
+Some test failures may occur if you use a command shell other than the
+native "cmd.exe", or if you are building from a path that contains
+spaces.  So don't do that.
+
+If you are running the tests from a emacs shell window, you may see
+failures in op/stat.t.  Run "dmake test-notty" in that case.
+
+Furthermore, you should make sure that during C<make test> you do not
+have any GNU tool packages in your path: some toolkits like Unixutils
+include some tools (C<type> for instance) which override the Windows
+ones and makes tests fail. Remove them from your path while testing to
+avoid these errors.
+
+Please report any other failures as described under L<BUGS AND CAVEATS>.
+
+=head2 Installation of Perl on Windows
+
+Type "dmake install" (or "nmake install").  This will put the newly
+built perl and the libraries under whatever C<INST_TOP> points to in the
+Makefile.  It will also install the pod documentation under
+C<$INST_TOP\$INST_VER\lib\pod> and HTML versions of the same under
+C<$INST_TOP\$INST_VER\lib\pod\html>.
+
+To use the Perl you just installed you will need to add a new entry to
+your PATH environment variable: C<$INST_TOP\bin>, e.g.
+
+    set PATH=c:\perl\bin;%PATH%
+
+If you opted to uncomment C<INST_VER> and C<INST_ARCH> in the makefile
+then the installation structure is a little more complicated and you will
+need to add two new PATH components instead: C<$INST_TOP\$INST_VER\bin> and
+C<$INST_TOP\$INST_VER\bin\$ARCHNAME>, e.g.
+
+    set PATH=c:\perl\5.6.0\bin;c:\perl\5.6.0\bin\MSWin32-x86;%PATH%
+
+=head2 Usage Hints for Perl on Windows
+
+=over 4
+
+=item Environment Variables
+
+The installation paths that you set during the build get compiled
+into perl, so you don't have to do anything additional to start
+using that perl (except add its location to your PATH variable).
+
+If you put extensions in unusual places, you can set PERL5LIB
+to a list of paths separated by semicolons where you want perl
+to look for libraries.  Look for descriptions of other environment
+variables you can set in L<perlrun>.
+
+You can also control the shell that perl uses to run system() and
+backtick commands via PERL5SHELL.  See L<perlrun>.
+
+Perl does not depend on the registry, but it can look up certain default
+values if you choose to put them there unless disabled at build time with
+USE_NO_REGISTRY.  On Perl process start Perl checks if
+C<HKEY_CURRENT_USER\Software\Perl> and C<HKEY_LOCAL_MACHINE\Software\Perl>
+exist.  If the keys exists, they will be checked for remainder of the Perl
+process's run life for certain entries.  Entries in
+C<HKEY_CURRENT_USER\Software\Perl> override entries in
+C<HKEY_LOCAL_MACHINE\Software\Perl>.  One or more of the following entries
+(of type REG_SZ or REG_EXPAND_SZ) may be set in the keys:
+
+ lib-$]        version-specific standard library path to add to @INC
+ lib           standard library path to add to @INC
+ sitelib-$]    version-specific site library path to add to @INC
+ sitelib       site library path to add to @INC
+ vendorlib-$]  version-specific vendor library path to add to @INC
+ vendorlib     vendor library path to add to @INC
+ PERL*         fallback for all %ENV lookups that begin with "PERL"
+
+Note the C<$]> in the above is not literal.  Substitute whatever version
+of perl you want to honor that entry, e.g. C<5.6.0>.  Paths must be
+separated with semicolons, as usual on Windows.
+
+=item File Globbing
+
+By default, perl handles file globbing using the File::Glob extension,
+which provides portable globbing.
+
+If you want perl to use globbing that emulates the quirks of DOS
+filename conventions, you might want to consider using File::DosGlob
+to override the internal glob() implementation.  See L<File::DosGlob> for
+details.
+
+=item Using perl from the command line
+
+If you are accustomed to using perl from various command-line
+shells found in UNIX environments, you will be less than pleased
+with what Windows offers by way of a command shell.
+
+The crucial thing to understand about the Windows environment is that
+the command line you type in is processed twice before Perl sees it.
+First, your command shell (usually CMD.EXE) preprocesses the command
+line, to handle redirection, environment variable expansion, and
+location of the executable to run. Then, the perl executable splits
+the remaining command line into individual arguments, using the
+C runtime library upon which Perl was built.
+
+It is particularly important to note that neither the shell nor the C
+runtime do any wildcard expansions of command-line arguments (so
+wildcards need not be quoted).  Also, the quoting behaviours of the
+shell and the C runtime are rudimentary at best (and may, if you are
+using a non-standard shell, be inconsistent).  The only (useful) quote
+character is the double quote (").  It can be used to protect spaces
+and other special characters in arguments.
+
+The Windows documentation describes the shell parsing rules here:
+L<http://www.microsoft.com/resources/documentation/windows/xp/all/proddocs/en-us/cmd.mspx?mfr=true>
+and the C runtime parsing rules here:
+L<http://msdn.microsoft.com/en-us/library/17w5ykft%28v=VS.100%29.aspx>.
+
+Here are some further observations based on experiments: The C runtime
+breaks arguments at spaces and passes them to programs in argc/argv.
+Double quotes can be used to prevent arguments with spaces in them from
+being split up.  You can put a double quote in an argument by escaping
+it with a backslash and enclosing the whole argument within double quotes.
+The backslash and the pair of double quotes surrounding the argument will
+be stripped by the C runtime.
+
+The file redirection characters "E<lt>", "E<gt>", and "|" can be quoted by
+double quotes (although there are suggestions that this may not always
+be true).  Single quotes are not treated as quotes by the shell or
+the C runtime, they don't get stripped by the shell (just to make
+this type of quoting completely useless).  The caret "^" has also
+been observed to behave as a quoting character, but this appears
+to be a shell feature, and the caret is not stripped from the command
+line, so Perl still sees it (and the C runtime phase does not treat
+the caret as a quote character).
+
+Here are some examples of usage of the "cmd" shell:
+
+This prints two doublequotes:
+
+    perl -e "print '\"\"' "
+
+This does the same:
+
+    perl -e "print \"\\\"\\\"\" "
+
+This prints "bar" and writes "foo" to the file "blurch":
+
+    perl -e "print 'foo'; print STDERR 'bar'" > blurch
+
+This prints "foo" ("bar" disappears into nowhereland):
+
+    perl -e "print 'foo'; print STDERR 'bar'" 2> nul
+
+This prints "bar" and writes "foo" into the file "blurch":
+
+    perl -e "print 'foo'; print STDERR 'bar'" 1> blurch
+
+This pipes "foo" to the "less" pager and prints "bar" on the console:
+
+    perl -e "print 'foo'; print STDERR 'bar'" | less
+
+This pipes "foo\nbar\n" to the less pager:
+
+    perl -le "print 'foo'; print STDERR 'bar'" 2>&1 | less
+
+This pipes "foo" to the pager and writes "bar" in the file "blurch":
+
+    perl -e "print 'foo'; print STDERR 'bar'" 2> blurch | less
+
+
+Discovering the usefulness of the "command.com" shell on Windows 9x
+is left as an exercise to the reader :)
+
+One particularly pernicious problem with the 4NT command shell for
+Windows is that it (nearly) always treats a % character as indicating
+that environment variable expansion is needed.  Under this shell, it is
+therefore important to always double any % characters which you want
+Perl to see (for example, for hash variables), even when they are
+quoted.
+
+=item Building Extensions
+
+The Comprehensive Perl Archive Network (CPAN) offers a wealth
+of extensions, some of which require a C compiler to build.
+Look in L<http://www.cpan.org/> for more information on CPAN.
+
+Note that not all of the extensions available from CPAN may work
+in the Windows environment; you should check the information at
+L<http://www.cpantesters.org/> before investing too much effort into
+porting modules that don't readily build.
+
+Most extensions (whether they require a C compiler or not) can
+be built, tested and installed with the standard mantra:
+
+    perl Makefile.PL
+    $MAKE
+    $MAKE test
+    $MAKE install
+
+where $MAKE is whatever 'make' program you have configured perl to
+use.  Use "perl -V:make" to find out what this is.  Some extensions
+may not provide a testsuite (so "$MAKE test" may not do anything or
+fail), but most serious ones do.
+
+It is important that you use a supported 'make' program, and
+ensure Config.pm knows about it.  If you don't have nmake, you can
+either get dmake from the location mentioned earlier or get an
+old version of nmake reportedly available from:
+
+L<http://download.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/nmake15.exe>
+
+Another option is to use the make written in Perl, available from
+CPAN.
+
+L<http://www.cpan.org/modules/by-module/Make/>
+
+You may also use dmake.  See L</"Make"> above on how to get it.
+
+Note that MakeMaker actually emits makefiles with different syntax
+depending on what 'make' it thinks you are using.  Therefore, it is
+important that one of the following values appears in Config.pm:
+
+    make='nmake'	# MakeMaker emits nmake syntax
+    make='dmake'	# MakeMaker emits dmake syntax
+    any other value	# MakeMaker emits generic make syntax
+    			    (e.g GNU make, or Perl make)
+
+If the value doesn't match the 'make' program you want to use,
+edit Config.pm to fix it.
+
+If a module implements XSUBs, you will need one of the supported
+C compilers.  You must make sure you have set up the environment for
+the compiler for command-line compilation before running C<perl Makefile.PL>
+or any invocation of make.
+
+If a module does not build for some reason, look carefully for
+why it failed, and report problems to the module author.  If
+it looks like the extension building support is at fault, report
+that with full details of how the build failed using the perlbug
+utility.
+
+=item Command-line Wildcard Expansion
+
+The default command shells on DOS descendant operating systems (such
+as they are) usually do not expand wildcard arguments supplied to
+programs.  They consider it the application's job to handle that.
+This is commonly achieved by linking the application (in our case,
+perl) with startup code that the C runtime libraries usually provide.
+However, doing that results in incompatible perl versions (since the
+behavior of the argv expansion code differs depending on the
+compiler, and it is even buggy on some compilers).  Besides, it may
+be a source of frustration if you use such a perl binary with an
+alternate shell that *does* expand wildcards.
+
+Instead, the following solution works rather well. The nice things
+about it are 1) you can start using it right away; 2) it is more
+powerful, because it will do the right thing with a pattern like
+*/*/*.c; 3) you can decide whether you do/don't want to use it; and
+4) you can extend the method to add any customizations (or even
+entirely different kinds of wildcard expansion).
+
+ C:\> copy con c:\perl\lib\Wild.pm
+ # Wild.pm - emulate shell @ARGV expansion on shells that don't
+ use File::DosGlob;
+ @ARGV = map {
+	      my @g = File::DosGlob::glob($_) if /[*?]/;
+	      @g ? @g : $_;
+	    } @ARGV;
+ 1;
+ ^Z
+ C:\> set PERL5OPT=-MWild
+ C:\> perl -le "for (@ARGV) { print }" */*/perl*.c
+ p4view/perl/perl.c
+ p4view/perl/perlio.c
+ p4view/perl/perly.c
+ perl5.005/win32/perlglob.c
+ perl5.005/win32/perllib.c
+ perl5.005/win32/perlglob.c
+ perl5.005/win32/perllib.c
+ perl5.005/win32/perlglob.c
+ perl5.005/win32/perllib.c
+
+Note there are two distinct steps there: 1) You'll have to create
+Wild.pm and put it in your perl lib directory. 2) You'll need to
+set the PERL5OPT environment variable.  If you want argv expansion
+to be the default, just set PERL5OPT in your default startup
+environment.
+
+If you are using the Visual C compiler, you can get the C runtime's
+command line wildcard expansion built into perl binary.  The resulting
+binary will always expand unquoted command lines, which may not be
+what you want if you use a shell that does that for you.  The expansion
+done is also somewhat less powerful than the approach suggested above.
+
+=item Notes on 64-bit Windows
+
+Windows .NET Server supports the LLP64 data model on the Intel Itanium
+architecture.
+
+The LLP64 data model is different from the LP64 data model that is the
+norm on 64-bit Unix platforms.  In the former, C<int> and C<long> are
+both 32-bit data types, while pointers are 64 bits wide.  In addition,
+there is a separate 64-bit wide integral type, C<__int64>.  In contrast,
+the LP64 data model that is pervasive on Unix platforms provides C<int>
+as the 32-bit type, while both the C<long> type and pointers are of
+64-bit precision.  Note that both models provide for 64-bits of
+addressability.
+
+64-bit Windows running on Itanium is capable of running 32-bit x86
+binaries transparently.  This means that you could use a 32-bit build
+of Perl on a 64-bit system.  Given this, why would one want to build
+a 64-bit build of Perl?  Here are some reasons why you would bother:
+
+=over
+
+=item *
+
+A 64-bit native application will run much more efficiently on
+Itanium hardware.
+
+=item *
+
+There is no 2GB limit on process size.
+
+=item *
+
+Perl automatically provides large file support when built under
+64-bit Windows.
+
+=item *
+
+Embedding Perl inside a 64-bit application.
+
+=back
+
+=back
+
+=head2 Running Perl Scripts
+
+Perl scripts on UNIX use the "#!" (a.k.a "shebang") line to
+indicate to the OS that it should execute the file using perl.
+Windows has no comparable means to indicate arbitrary files are
+executables.
+
+Instead, all available methods to execute plain text files on
+Windows rely on the file "extension".  There are three methods
+to use this to execute perl scripts:
+
+=over 8
+
+=item 1
+
+There is a facility called "file extension associations".  This can be
+manipulated via the two commands "assoc" and "ftype" that come
+standard with Windows.  Type "ftype /?" for a complete example of how
+to set this up for perl scripts (Say what?  You thought Windows
+wasn't perl-ready? :).
+
+=item 2
+
+Since file associations don't work everywhere, and there are
+reportedly bugs with file associations where it does work, the
+old method of wrapping the perl script to make it look like a
+regular batch file to the OS, may be used.  The install process
+makes available the "pl2bat.bat" script which can be used to wrap
+perl scripts into batch files.  For example:
+
+	pl2bat foo.pl
+
+will create the file "FOO.BAT".  Note "pl2bat" strips any
+.pl suffix and adds a .bat suffix to the generated file.
+
+If you use the 4DOS/NT or similar command shell, note that
+"pl2bat" uses the "%*" variable in the generated batch file to
+refer to all the command line arguments, so you may need to make
+sure that construct works in batch files.  As of this writing,
+4DOS/NT users will need a "ParameterChar = *" statement in their
+4NT.INI file or will need to execute "setdos /p*" in the 4DOS/NT
+startup file to enable this to work.
+
+=item 3
+
+Using "pl2bat" has a few problems:  the file name gets changed,
+so scripts that rely on C<$0> to find what they must do may not
+run properly; running "pl2bat" replicates the contents of the
+original script, and so this process can be maintenance intensive
+if the originals get updated often.  A different approach that
+avoids both problems is possible.
+
+A script called "runperl.bat" is available that can be copied
+to any filename (along with the .bat suffix).  For example,
+if you call it "foo.bat", it will run the file "foo" when it is
+executed.  Since you can run batch files on Windows platforms simply
+by typing the name (without the extension), this effectively
+runs the file "foo", when you type either "foo" or "foo.bat".
+With this method, "foo.bat" can even be in a different location
+than the file "foo", as long as "foo" is available somewhere on
+the PATH.  If your scripts are on a filesystem that allows symbolic
+links, you can even avoid copying "runperl.bat".
+
+Here's a diversion:  copy "runperl.bat" to "runperl", and type
+"runperl".  Explain the observed behavior, or lack thereof. :)
+Hint: .gnidnats llits er'uoy fi ,"lrepnur" eteled :tniH
+
+=back
+
+=head2 Miscellaneous Things
+
+A full set of HTML documentation is installed, so you should be
+able to use it if you have a web browser installed on your
+system.
+
+C<perldoc> is also a useful tool for browsing information contained
+in the documentation, especially in conjunction with a pager
+like C<less> (recent versions of which have Windows support).  You may
+have to set the PAGER environment variable to use a specific pager.
+"perldoc -f foo" will print information about the perl operator
+"foo".
+
+One common mistake when using this port with a GUI library like C<Tk>
+is assuming that Perl's normal behavior of opening a command-line
+window will go away.  This isn't the case.  If you want to start a copy
+of C<perl> without opening a command-line window, use the C<wperl>
+executable built during the installation process.  Usage is exactly
+the same as normal C<perl> on Windows, except that options like C<-h>
+don't work (since they need a command-line window to print to).
+
+If you find bugs in perl, you can run C<perlbug> to create a
+bug report (you may have to send it manually if C<perlbug> cannot
+find a mailer on your system).
+
+=head1 BUGS AND CAVEATS
+
+Norton AntiVirus interferes with the build process, particularly if
+set to "AutoProtect, All Files, when Opened". Unlike large applications
+the perl build process opens and modifies a lot of files. Having the
+the AntiVirus scan each and every one slows build the process significantly.
+Worse, with PERLIO=stdio the build process fails with peculiar messages
+as the virus checker interacts badly with miniperl.exe writing configure
+files (it seems to either catch file part written and treat it as suspicious,
+or virus checker may have it "locked" in a way which inhibits miniperl
+updating it). The build does complete with
+
+   set PERLIO=perlio
+
+but that may be just luck. Other AntiVirus software may have similar issues.
+
+A git GUI shell extension for Windows such as TortoiseGit will cause the build
+and later C<make test> to run much slower since every file is checked for its
+git status as soon as it is created and/or modified. TortoiseGit doesn't cause
+any test failures or build problems unlike the antivirus software described
+above, but it does cause similar slowness. It is suggested to use Task Manager
+to look for background processes which use high CPU amounts during the building
+process.
+
+Some of the built-in functions do not act exactly as documented in
+L<perlfunc>, and a few are not implemented at all.  To avoid
+surprises, particularly if you have had prior exposure to Perl
+in other operating environments or if you intend to write code
+that will be portable to other environments, see L<perlport>
+for a reasonably definitive list of these differences.
+
+Not all extensions available from CPAN may build or work properly
+in the Windows environment.  See L</"Building Extensions">.
+
+Most C<socket()> related calls are supported, but they may not
+behave as on Unix platforms.  See L<perlport> for the full list.
+
+Signal handling may not behave as on Unix platforms (where it
+doesn't exactly "behave", either :).  For instance, calling C<die()>
+or C<exit()> from signal handlers will cause an exception, since most
+implementations of C<signal()> on Windows are severely crippled.
+Thus, signals may work only for simple things like setting a flag
+variable in the handler.  Using signals under this port should
+currently be considered unsupported.
+
+Please send detailed descriptions of any problems and solutions that
+you may find to E<lt>F<perlbug@perl.org>E<gt>, along with the output
+produced by C<perl -V>.
+
+=head1 ACKNOWLEDGEMENTS
+
+The use of a camel with the topic of Perl is a trademark
+of O'Reilly and Associates, Inc. Used with permission.
+
+=head1 AUTHORS
+
+=over 4
+
+=item Gary Ng E<lt>71564.1743@CompuServe.COME<gt>
+
+=item Gurusamy Sarathy E<lt>gsar@activestate.comE<gt>
+
+=item Nick Ing-Simmons E<lt>nick@ing-simmons.netE<gt>
+
+=item Jan Dubois E<lt>jand@activestate.comE<gt>
+
+=item Steve Hay E<lt>steve.m.hay@googlemail.comE<gt>
+
+=back
+
+This document is maintained by Jan Dubois.
+
+=head1 SEE ALSO
+
+L<perl>
+
+=head1 HISTORY
+
+This port was originally contributed by Gary Ng around 5.003_24,
+and borrowed from the Hip Communications port that was available
+at the time.  Various people have made numerous and sundry hacks
+since then.
+
+GCC/mingw32 support was added in 5.005 (Nick Ing-Simmons).
+
+Support for PERL_OBJECT was added in 5.005 (ActiveState Tool Corp).
+
+Support for fork() emulation was added in 5.6 (ActiveState Tool Corp).
+
+Win9x support was added in 5.6 (Benjamin Stuhl).
+
+Support for 64-bit Windows added in 5.8 (ActiveState Corp).
+
+Last updated: 07 October 2014
+
+=cut
diff --git a/lib/5.24.1/pod/perlxs.pod b/lib/5.24.1/pod/perlxs.pod
new file mode 100644
index 00000000..e887d33c
--- /dev/null
+++ b/lib/5.24.1/pod/perlxs.pod
@@ -0,0 +1,2236 @@
+=head1 NAME
+
+perlxs - XS language reference manual
+
+=head1 DESCRIPTION
+
+=head2 Introduction
+
+XS is an interface description file format used to create an extension
+interface between Perl and C code (or a C library) which one wishes
+to use with Perl.  The XS interface is combined with the library to
+create a new library which can then be either dynamically loaded
+or statically linked into perl.  The XS interface description is
+written in the XS language and is the core component of the Perl
+extension interface.
+
+Before writing XS, read the L</CAVEATS> section below.
+
+An B<XSUB> forms the basic unit of the XS interface.  After compilation
+by the B<xsubpp> compiler, each XSUB amounts to a C function definition
+which will provide the glue between Perl calling conventions and C
+calling conventions.
+
+The glue code pulls the arguments from the Perl stack, converts these
+Perl values to the formats expected by a C function, call this C function,
+transfers the return values of the C function back to Perl.
+Return values here may be a conventional C return value or any C
+function arguments that may serve as output parameters.  These return
+values may be passed back to Perl either by putting them on the
+Perl stack, or by modifying the arguments supplied from the Perl side.
+
+The above is a somewhat simplified view of what really happens.  Since
+Perl allows more flexible calling conventions than C, XSUBs may do much
+more in practice, such as checking input parameters for validity,
+throwing exceptions (or returning undef/empty list) if the return value
+from the C function indicates failure, calling different C functions
+based on numbers and types of the arguments, providing an object-oriented
+interface, etc.
+
+Of course, one could write such glue code directly in C.  However, this
+would be a tedious task, especially if one needs to write glue for
+multiple C functions, and/or one is not familiar enough with the Perl
+stack discipline and other such arcana.  XS comes to the rescue here:
+instead of writing this glue C code in long-hand, one can write
+a more concise short-hand I<description> of what should be done by
+the glue, and let the XS compiler B<xsubpp> handle the rest.
+
+The XS language allows one to describe the mapping between how the C
+routine is used, and how the corresponding Perl routine is used.  It
+also allows creation of Perl routines which are directly translated to
+C code and which are not related to a pre-existing C function.  In cases
+when the C interface coincides with the Perl interface, the XSUB
+declaration is almost identical to a declaration of a C function (in K&R
+style).  In such circumstances, there is another tool called C<h2xs>
+that is able to translate an entire C header file into a corresponding
+XS file that will provide glue to the functions/macros described in
+the header file.
+
+The XS compiler is called B<xsubpp>.  This compiler creates
+the constructs necessary to let an XSUB manipulate Perl values, and
+creates the glue necessary to let Perl call the XSUB.  The compiler
+uses B<typemaps> to determine how to map C function parameters
+and output values to Perl values and back.  The default typemap
+(which comes with Perl) handles many common C types.  A supplementary
+typemap may also be needed to handle any special structures and types
+for the library being linked. For more information on typemaps,
+see L<perlxstypemap>.
+
+A file in XS format starts with a C language section which goes until the
+first C<MODULE =Z<>> directive.  Other XS directives and XSUB definitions
+may follow this line.  The "language" used in this part of the file
+is usually referred to as the XS language.  B<xsubpp> recognizes and
+skips POD (see L<perlpod>) in both the C and XS language sections, which
+allows the XS file to contain embedded documentation.
+
+See L<perlxstut> for a tutorial on the whole extension creation process.
+
+Note: For some extensions, Dave Beazley's SWIG system may provide a
+significantly more convenient mechanism for creating the extension
+glue code.  See L<http://www.swig.org/> for more information.
+
+=head2 On The Road
+
+Many of the examples which follow will concentrate on creating an interface
+between Perl and the ONC+ RPC bind library functions.  The rpcb_gettime()
+function is used to demonstrate many features of the XS language.  This
+function has two parameters; the first is an input parameter and the second
+is an output parameter.  The function also returns a status value.
+
+	bool_t rpcb_gettime(const char *host, time_t *timep);
+
+From C this function will be called with the following
+statements.
+
+     #include <rpc/rpc.h>
+     bool_t status;
+     time_t timep;
+     status = rpcb_gettime( "localhost", &timep );
+
+If an XSUB is created to offer a direct translation between this function
+and Perl, then this XSUB will be used from Perl with the following code.
+The $status and $timep variables will contain the output of the function.
+
+     use RPC;
+     $status = rpcb_gettime( "localhost", $timep );
+
+The following XS file shows an XS subroutine, or XSUB, which
+demonstrates one possible interface to the rpcb_gettime()
+function.  This XSUB represents a direct translation between
+C and Perl and so preserves the interface even from Perl.
+This XSUB will be invoked from Perl with the usage shown
+above.  Note that the first three #include statements, for
+C<EXTERN.h>, C<perl.h>, and C<XSUB.h>, will always be present at the
+beginning of an XS file.  This approach and others will be
+expanded later in this document.  A #define for C<PERL_NO_GET_CONTEXT>
+should be present to fetch the interpreter context more efficiently,
+see L<perlguts|perlguts/How multiple interpreters and concurrency are
+supported> for details.
+
+     #define PERL_NO_GET_CONTEXT
+     #include "EXTERN.h"
+     #include "perl.h"
+     #include "XSUB.h"
+     #include <rpc/rpc.h>
+
+     MODULE = RPC  PACKAGE = RPC
+
+     bool_t
+     rpcb_gettime(host,timep)
+          char *host
+          time_t &timep
+        OUTPUT:
+          timep
+
+Any extension to Perl, including those containing XSUBs,
+should have a Perl module to serve as the bootstrap which
+pulls the extension into Perl.  This module will export the
+extension's functions and variables to the Perl program and
+will cause the extension's XSUBs to be linked into Perl.
+The following module will be used for most of the examples
+in this document and should be used from Perl with the C<use>
+command as shown earlier.  Perl modules are explained in
+more detail later in this document.
+
+     package RPC;
+
+     require Exporter;
+     require DynaLoader;
+     @ISA = qw(Exporter DynaLoader);
+     @EXPORT = qw( rpcb_gettime );
+
+     bootstrap RPC;
+     1;
+
+Throughout this document a variety of interfaces to the rpcb_gettime()
+XSUB will be explored.  The XSUBs will take their parameters in different
+orders or will take different numbers of parameters.  In each case the
+XSUB is an abstraction between Perl and the real C rpcb_gettime()
+function, and the XSUB must always ensure that the real rpcb_gettime()
+function is called with the correct parameters.  This abstraction will
+allow the programmer to create a more Perl-like interface to the C
+function.
+
+=head2 The Anatomy of an XSUB
+
+The simplest XSUBs consist of 3 parts: a description of the return
+value, the name of the XSUB routine and the names of its arguments,
+and a description of types or formats of the arguments.
+
+The following XSUB allows a Perl program to access a C library function
+called sin().  The XSUB will imitate the C function which takes a single
+argument and returns a single value.
+
+     double
+     sin(x)
+       double x
+
+Optionally, one can merge the description of types and the list of
+argument names, rewriting this as
+
+     double
+     sin(double x)
+
+This makes this XSUB look similar to an ANSI C declaration.  An optional
+semicolon is allowed after the argument list, as in
+
+     double
+     sin(double x);
+
+Parameters with C pointer types can have different semantic: C functions
+with similar declarations
+
+     bool string_looks_as_a_number(char *s);
+     bool make_char_uppercase(char *c);
+
+are used in absolutely incompatible manner.  Parameters to these functions
+could be described B<xsubpp> like this:
+
+     char *  s
+     char    &c
+
+Both these XS declarations correspond to the C<char*> C type, but they have
+different semantics, see L<"The & Unary Operator">.
+
+It is convenient to think that the indirection operator
+C<*> should be considered as a part of the type and the address operator C<&>
+should be considered part of the variable.  See L<perlxstypemap>
+for more info about handling qualifiers and unary operators in C types.
+
+The function name and the return type must be placed on
+separate lines and should be flush left-adjusted.
+
+  INCORRECT                        CORRECT
+
+  double sin(x)                    double
+    double x                       sin(x)
+				     double x
+
+The rest of the function description may be indented or left-adjusted. The
+following example shows a function with its body left-adjusted.  Most
+examples in this document will indent the body for better readability.
+
+  CORRECT
+
+  double
+  sin(x)
+  double x
+
+More complicated XSUBs may contain many other sections.  Each section of
+an XSUB starts with the corresponding keyword, such as INIT: or CLEANUP:.
+However, the first two lines of an XSUB always contain the same data:
+descriptions of the return type and the names of the function and its
+parameters.  Whatever immediately follows these is considered to be
+an INPUT: section unless explicitly marked with another keyword.
+(See L<The INPUT: Keyword>.)
+
+An XSUB section continues until another section-start keyword is found.
+
+=head2 The Argument Stack
+
+The Perl argument stack is used to store the values which are
+sent as parameters to the XSUB and to store the XSUB's
+return value(s).  In reality all Perl functions (including non-XSUB
+ones) keep their values on this stack all the same time, each limited
+to its own range of positions on the stack.  In this document the
+first position on that stack which belongs to the active
+function will be referred to as position 0 for that function.
+
+XSUBs refer to their stack arguments with the macro B<ST(x)>, where I<x>
+refers to a position in this XSUB's part of the stack.  Position 0 for that
+function would be known to the XSUB as ST(0).  The XSUB's incoming
+parameters and outgoing return values always begin at ST(0).  For many
+simple cases the B<xsubpp> compiler will generate the code necessary to
+handle the argument stack by embedding code fragments found in the
+typemaps.  In more complex cases the programmer must supply the code.
+
+=head2 The RETVAL Variable
+
+The RETVAL variable is a special C variable that is declared automatically
+for you.  The C type of RETVAL matches the return type of the C library
+function.  The B<xsubpp> compiler will declare this variable in each XSUB
+with non-C<void> return type.  By default the generated C function
+will use RETVAL to hold the return value of the C library function being
+called.  In simple cases the value of RETVAL will be placed in ST(0) of
+the argument stack where it can be received by Perl as the return value
+of the XSUB.
+
+If the XSUB has a return type of C<void> then the compiler will
+not declare a RETVAL variable for that function.  When using
+a PPCODE: section no manipulation of the RETVAL variable is required, the
+section may use direct stack manipulation to place output values on the stack.
+
+If PPCODE: directive is not used, C<void> return value should be used
+only for subroutines which do not return a value, I<even if> CODE:
+directive is used which sets ST(0) explicitly.
+
+Older versions of this document recommended to use C<void> return
+value in such cases. It was discovered that this could lead to
+segfaults in cases when XSUB was I<truly> C<void>. This practice is
+now deprecated, and may be not supported at some future version. Use
+the return value C<SV *> in such cases. (Currently C<xsubpp> contains
+some heuristic code which tries to disambiguate between "truly-void"
+and "old-practice-declared-as-void" functions. Hence your code is at
+mercy of this heuristics unless you use C<SV *> as return value.)
+
+=head2 Returning SVs, AVs and HVs through RETVAL
+
+When you're using RETVAL to return an C<SV *>, there's some magic
+going on behind the scenes that should be mentioned. When you're
+manipulating the argument stack using the ST(x) macro, for example,
+you usually have to pay special attention to reference counts. (For
+more about reference counts, see L<perlguts>.) To make your life
+easier, the typemap file automatically makes C<RETVAL> mortal when
+you're returning an C<SV *>. Thus, the following two XSUBs are more
+or less equivalent:
+
+  void
+  alpha()
+      PPCODE:
+          ST(0) = newSVpv("Hello World",0);
+          sv_2mortal(ST(0));
+          XSRETURN(1);
+
+  SV *
+  beta()
+      CODE:
+          RETVAL = newSVpv("Hello World",0);
+      OUTPUT:
+          RETVAL
+
+This is quite useful as it usually improves readability. While
+this works fine for an C<SV *>, it's unfortunately not as easy
+to have C<AV *> or C<HV *> as a return value. You I<should> be
+able to write:
+
+  AV *
+  array()
+      CODE:
+          RETVAL = newAV();
+          /* do something with RETVAL */
+      OUTPUT:
+          RETVAL
+
+But due to an unfixable bug (fixing it would break lots of existing
+CPAN modules) in the typemap file, the reference count of the C<AV *>
+is not properly decremented. Thus, the above XSUB would leak memory
+whenever it is being called. The same problem exists for C<HV *>,
+C<CV *>, and C<SVREF> (which indicates a scalar reference, not
+a general C<SV *>).
+In XS code on perls starting with perl 5.16, you can override the
+typemaps for any of these types with a version that has proper
+handling of refcounts. In your C<TYPEMAP> section, do
+
+  AV*	T_AVREF_REFCOUNT_FIXED
+
+to get the repaired variant. For backward compatibility with older
+versions of perl, you can instead decrement the reference count
+manually when you're returning one of the aforementioned
+types using C<sv_2mortal>:
+
+  AV *
+  array()
+      CODE:
+          RETVAL = newAV();
+          sv_2mortal((SV*)RETVAL);
+          /* do something with RETVAL */
+      OUTPUT:
+          RETVAL
+
+Remember that you don't have to do this for an C<SV *>. The reference
+documentation for all core typemaps can be found in L<perlxstypemap>.
+
+=head2 The MODULE Keyword
+
+The MODULE keyword is used to start the XS code and to specify the package
+of the functions which are being defined.  All text preceding the first
+MODULE keyword is considered C code and is passed through to the output with
+POD stripped, but otherwise untouched.  Every XS module will have a
+bootstrap function which is used to hook the XSUBs into Perl.  The package
+name of this bootstrap function will match the value of the last MODULE
+statement in the XS source files.  The value of MODULE should always remain
+constant within the same XS file, though this is not required.
+
+The following example will start the XS code and will place
+all functions in a package named RPC.
+
+     MODULE = RPC
+
+=head2 The PACKAGE Keyword
+
+When functions within an XS source file must be separated into packages
+the PACKAGE keyword should be used.  This keyword is used with the MODULE
+keyword and must follow immediately after it when used.
+
+     MODULE = RPC  PACKAGE = RPC
+
+     [ XS code in package RPC ]
+
+     MODULE = RPC  PACKAGE = RPCB
+
+     [ XS code in package RPCB ]
+
+     MODULE = RPC  PACKAGE = RPC
+
+     [ XS code in package RPC ]
+
+The same package name can be used more than once, allowing for
+non-contiguous code. This is useful if you have a stronger ordering
+principle than package names.
+
+Although this keyword is optional and in some cases provides redundant
+information it should always be used.  This keyword will ensure that the
+XSUBs appear in the desired package.
+
+=head2 The PREFIX Keyword
+
+The PREFIX keyword designates prefixes which should be
+removed from the Perl function names.  If the C function is
+C<rpcb_gettime()> and the PREFIX value is C<rpcb_> then Perl will
+see this function as C<gettime()>.
+
+This keyword should follow the PACKAGE keyword when used.
+If PACKAGE is not used then PREFIX should follow the MODULE
+keyword.
+
+     MODULE = RPC  PREFIX = rpc_
+
+     MODULE = RPC  PACKAGE = RPCB  PREFIX = rpcb_
+
+=head2 The OUTPUT: Keyword
+
+The OUTPUT: keyword indicates that certain function parameters should be
+updated (new values made visible to Perl) when the XSUB terminates or that
+certain values should be returned to the calling Perl function.  For
+simple functions which have no CODE: or PPCODE: section,
+such as the sin() function above, the RETVAL variable is
+automatically designated as an output value.  For more complex functions
+the B<xsubpp> compiler will need help to determine which variables are output
+variables.
+
+This keyword will normally be used to complement the CODE:  keyword.
+The RETVAL variable is not recognized as an output variable when the
+CODE: keyword is present.  The OUTPUT:  keyword is used in this
+situation to tell the compiler that RETVAL really is an output
+variable.
+
+The OUTPUT: keyword can also be used to indicate that function parameters
+are output variables.  This may be necessary when a parameter has been
+modified within the function and the programmer would like the update to
+be seen by Perl.
+
+     bool_t
+     rpcb_gettime(host,timep)
+          char *host
+          time_t &timep
+        OUTPUT:
+          timep
+
+The OUTPUT: keyword will also allow an output parameter to
+be mapped to a matching piece of code rather than to a
+typemap.
+
+     bool_t
+     rpcb_gettime(host,timep)
+          char *host
+          time_t &timep
+        OUTPUT:
+          timep sv_setnv(ST(1), (double)timep);
+
+B<xsubpp> emits an automatic C<SvSETMAGIC()> for all parameters in the
+OUTPUT section of the XSUB, except RETVAL.  This is the usually desired
+behavior, as it takes care of properly invoking 'set' magic on output
+parameters (needed for hash or array element parameters that must be
+created if they didn't exist).  If for some reason, this behavior is
+not desired, the OUTPUT section may contain a C<SETMAGIC: DISABLE> line
+to disable it for the remainder of the parameters in the OUTPUT section.
+Likewise,  C<SETMAGIC: ENABLE> can be used to reenable it for the
+remainder of the OUTPUT section.  See L<perlguts> for more details
+about 'set' magic.
+
+=head2 The NO_OUTPUT Keyword
+
+The NO_OUTPUT can be placed as the first token of the XSUB.  This keyword
+indicates that while the C subroutine we provide an interface to has
+a non-C<void> return type, the return value of this C subroutine should not
+be returned from the generated Perl subroutine.
+
+With this keyword present L<The RETVAL Variable> is created, and in the
+generated call to the subroutine this variable is assigned to, but the value
+of this variable is not going to be used in the auto-generated code.
+
+This keyword makes sense only if C<RETVAL> is going to be accessed by the
+user-supplied code.  It is especially useful to make a function interface
+more Perl-like, especially when the C return value is just an error condition
+indicator.  For example,
+
+  NO_OUTPUT int
+  delete_file(char *name)
+    POSTCALL:
+      if (RETVAL != 0)
+	  croak("Error %d while deleting file '%s'", RETVAL, name);
+
+Here the generated XS function returns nothing on success, and will die()
+with a meaningful error message on error.
+
+=head2 The CODE: Keyword
+
+This keyword is used in more complicated XSUBs which require
+special handling for the C function.  The RETVAL variable is
+still declared, but it will not be returned unless it is specified
+in the OUTPUT: section.
+
+The following XSUB is for a C function which requires special handling of
+its parameters.  The Perl usage is given first.
+
+     $status = rpcb_gettime( "localhost", $timep );
+
+The XSUB follows.
+
+     bool_t
+     rpcb_gettime(host,timep)
+          char *host
+          time_t timep
+        CODE:
+               RETVAL = rpcb_gettime( host, &timep );
+        OUTPUT:
+          timep
+          RETVAL
+
+=head2 The INIT: Keyword
+
+The INIT: keyword allows initialization to be inserted into the XSUB before
+the compiler generates the call to the C function.  Unlike the CODE: keyword
+above, this keyword does not affect the way the compiler handles RETVAL.
+
+    bool_t
+    rpcb_gettime(host,timep)
+          char *host
+          time_t &timep
+	INIT:
+	  printf("# Host is %s\n", host );
+        OUTPUT:
+          timep
+
+Another use for the INIT: section is to check for preconditions before
+making a call to the C function:
+
+    long long
+    lldiv(a,b)
+	long long a
+	long long b
+      INIT:
+	if (a == 0 && b == 0)
+	    XSRETURN_UNDEF;
+	if (b == 0)
+	    croak("lldiv: cannot divide by 0");
+
+=head2 The NO_INIT Keyword
+
+The NO_INIT keyword is used to indicate that a function
+parameter is being used only as an output value.  The B<xsubpp>
+compiler will normally generate code to read the values of
+all function parameters from the argument stack and assign
+them to C variables upon entry to the function.  NO_INIT
+will tell the compiler that some parameters will be used for
+output rather than for input and that they will be handled
+before the function terminates.
+
+The following example shows a variation of the rpcb_gettime() function.
+This function uses the timep variable only as an output variable and does
+not care about its initial contents.
+
+     bool_t
+     rpcb_gettime(host,timep)
+          char *host
+          time_t &timep = NO_INIT
+        OUTPUT:
+          timep
+
+=head2 The TYPEMAP: Keyword
+
+Starting with Perl 5.16, you can embed typemaps into your XS code
+instead of or in addition to typemaps in a separate file.  Multiple
+such embedded typemaps will be processed in order of appearance in
+the XS code and like local typemap files take precedence over the
+default typemap, the embedded typemaps may overwrite previous
+definitions of TYPEMAP, INPUT, and OUTPUT stanzas.  The syntax for
+embedded typemaps is
+
+      TYPEMAP: <<HERE
+      ... your typemap code here ...
+      HERE
+
+where the C<TYPEMAP> keyword must appear in the first column of a
+new line.
+
+Refer to L<perlxstypemap> for details on writing typemaps.
+
+=head2 Initializing Function Parameters
+
+C function parameters are normally initialized with their values from
+the argument stack (which in turn contains the parameters that were
+passed to the XSUB from Perl).  The typemaps contain the
+code segments which are used to translate the Perl values to
+the C parameters.  The programmer, however, is allowed to
+override the typemaps and supply alternate (or additional)
+initialization code.  Initialization code starts with the first
+C<=>, C<;> or C<+> on a line in the INPUT: section.  The only
+exception happens if this C<;> terminates the line, then this C<;>
+is quietly ignored.
+
+The following code demonstrates how to supply initialization code for
+function parameters.  The initialization code is eval'ed within double
+quotes by the compiler before it is added to the output so anything
+which should be interpreted literally [mainly C<$>, C<@>, or C<\\>]
+must be protected with backslashes.  The variables C<$var>, C<$arg>,
+and C<$type> can be used as in typemaps.
+
+     bool_t
+     rpcb_gettime(host,timep)
+          char *host = (char *)SvPV_nolen($arg);
+          time_t &timep = 0;
+        OUTPUT:
+          timep
+
+This should not be used to supply default values for parameters.  One
+would normally use this when a function parameter must be processed by
+another library function before it can be used.  Default parameters are
+covered in the next section.
+
+If the initialization begins with C<=>, then it is output in
+the declaration for the input variable, replacing the initialization
+supplied by the typemap.  If the initialization
+begins with C<;> or C<+>, then it is performed after
+all of the input variables have been declared.  In the C<;>
+case the initialization normally supplied by the typemap is not performed.
+For the C<+> case, the declaration for the variable will include the
+initialization from the typemap.  A global
+variable, C<%v>, is available for the truly rare case where
+information from one initialization is needed in another
+initialization.
+
+Here's a truly obscure example:
+
+     bool_t
+     rpcb_gettime(host,timep)
+          time_t &timep; /* \$v{timep}=@{[$v{timep}=$arg]} */
+          char *host + SvOK($v{timep}) ? SvPV_nolen($arg) : NULL;
+        OUTPUT:
+          timep
+
+The construct C<\$v{timep}=@{[$v{timep}=$arg]}> used in the above
+example has a two-fold purpose: first, when this line is processed by
+B<xsubpp>, the Perl snippet C<$v{timep}=$arg> is evaluated.  Second,
+the text of the evaluated snippet is output into the generated C file
+(inside a C comment)!  During the processing of C<char *host> line,
+C<$arg> will evaluate to C<ST(0)>, and C<$v{timep}> will evaluate to
+C<ST(1)>.
+
+=head2 Default Parameter Values
+
+Default values for XSUB arguments can be specified by placing an
+assignment statement in the parameter list.  The default value may
+be a number, a string or the special string C<NO_INIT>.  Defaults should
+always be used on the right-most parameters only.
+
+To allow the XSUB for rpcb_gettime() to have a default host
+value the parameters to the XSUB could be rearranged.  The
+XSUB will then call the real rpcb_gettime() function with
+the parameters in the correct order.  This XSUB can be called
+from Perl with either of the following statements:
+
+     $status = rpcb_gettime( $timep, $host );
+
+     $status = rpcb_gettime( $timep );
+
+The XSUB will look like the code  which  follows.   A  CODE:
+block  is used to call the real rpcb_gettime() function with
+the parameters in the correct order for that function.
+
+     bool_t
+     rpcb_gettime(timep,host="localhost")
+          char *host
+          time_t timep = NO_INIT
+        CODE:
+               RETVAL = rpcb_gettime( host, &timep );
+        OUTPUT:
+          timep
+          RETVAL
+
+=head2 The PREINIT: Keyword
+
+The PREINIT: keyword allows extra variables to be declared immediately
+before or after the declarations of the parameters from the INPUT: section
+are emitted.
+
+If a variable is declared inside a CODE: section it will follow any typemap
+code that is emitted for the input parameters.  This may result in the
+declaration ending up after C code, which is C syntax error.  Similar
+errors may happen with an explicit C<;>-type or C<+>-type initialization of
+parameters is used (see L<"Initializing Function Parameters">).  Declaring
+these variables in an INIT: section will not help.
+
+In such cases, to force an additional variable to be declared together
+with declarations of other variables, place the declaration into a
+PREINIT: section.  The PREINIT: keyword may be used one or more times
+within an XSUB.
+
+The following examples are equivalent, but if the code is using complex
+typemaps then the first example is safer.
+
+     bool_t
+     rpcb_gettime(timep)
+          time_t timep = NO_INIT
+	PREINIT:
+          char *host = "localhost";
+        CODE:
+	  RETVAL = rpcb_gettime( host, &timep );
+        OUTPUT:
+          timep
+          RETVAL
+
+For this particular case an INIT: keyword would generate the
+same C code as the PREINIT: keyword.  Another correct, but error-prone example:
+
+     bool_t
+     rpcb_gettime(timep)
+          time_t timep = NO_INIT
+	CODE:
+          char *host = "localhost";
+	  RETVAL = rpcb_gettime( host, &timep );
+        OUTPUT:
+          timep
+          RETVAL
+
+Another way to declare C<host> is to use a C block in the CODE: section:
+
+     bool_t
+     rpcb_gettime(timep)
+          time_t timep = NO_INIT
+	CODE:
+	  {
+            char *host = "localhost";
+	    RETVAL = rpcb_gettime( host, &timep );
+	  }
+        OUTPUT:
+          timep
+          RETVAL
+
+The ability to put additional declarations before the typemap entries are
+processed is very handy in the cases when typemap conversions manipulate
+some global state:
+
+    MyObject
+    mutate(o)
+	PREINIT:
+	    MyState st = global_state;
+	INPUT:
+	    MyObject o;
+	CLEANUP:
+	    reset_to(global_state, st);
+
+Here we suppose that conversion to C<MyObject> in the INPUT: section and from
+MyObject when processing RETVAL will modify a global variable C<global_state>.
+After these conversions are performed, we restore the old value of
+C<global_state> (to avoid memory leaks, for example).
+
+There is another way to trade clarity for compactness: INPUT sections allow
+declaration of C variables which do not appear in the parameter list of
+a subroutine.  Thus the above code for mutate() can be rewritten as
+
+    MyObject
+    mutate(o)
+	  MyState st = global_state;
+	  MyObject o;
+	CLEANUP:
+	  reset_to(global_state, st);
+
+and the code for rpcb_gettime() can be rewritten as
+
+     bool_t
+     rpcb_gettime(timep)
+	  time_t timep = NO_INIT
+	  char *host = "localhost";
+	C_ARGS:
+	  host, &timep
+	OUTPUT:
+          timep
+          RETVAL
+
+=head2 The SCOPE: Keyword
+
+The SCOPE: keyword allows scoping to be enabled for a particular XSUB. If
+enabled, the XSUB will invoke ENTER and LEAVE automatically.
+
+To support potentially complex type mappings, if a typemap entry used
+by an XSUB contains a comment like C</*scope*/> then scoping will
+be automatically enabled for that XSUB.
+
+To enable scoping:
+
+    SCOPE: ENABLE
+
+To disable scoping:
+
+    SCOPE: DISABLE
+
+=head2 The INPUT: Keyword
+
+The XSUB's parameters are usually evaluated immediately after entering the
+XSUB.  The INPUT: keyword can be used to force those parameters to be
+evaluated a little later.  The INPUT: keyword can be used multiple times
+within an XSUB and can be used to list one or more input variables.  This
+keyword is used with the PREINIT: keyword.
+
+The following example shows how the input parameter C<timep> can be
+evaluated late, after a PREINIT.
+
+    bool_t
+    rpcb_gettime(host,timep)
+          char *host
+	PREINIT:
+	  time_t tt;
+	INPUT:
+          time_t timep
+        CODE:
+               RETVAL = rpcb_gettime( host, &tt );
+	       timep = tt;
+        OUTPUT:
+          timep
+          RETVAL
+
+The next example shows each input parameter evaluated late.
+
+    bool_t
+    rpcb_gettime(host,timep)
+	PREINIT:
+	  time_t tt;
+	INPUT:
+          char *host
+	PREINIT:
+	  char *h;
+	INPUT:
+          time_t timep
+        CODE:
+	       h = host;
+	       RETVAL = rpcb_gettime( h, &tt );
+	       timep = tt;
+        OUTPUT:
+          timep
+          RETVAL
+
+Since INPUT sections allow declaration of C variables which do not appear
+in the parameter list of a subroutine, this may be shortened to:
+
+    bool_t
+    rpcb_gettime(host,timep)
+	  time_t tt;
+          char *host;
+	  char *h = host;
+          time_t timep;
+        CODE:
+	  RETVAL = rpcb_gettime( h, &tt );
+	  timep = tt;
+        OUTPUT:
+          timep
+          RETVAL
+
+(We used our knowledge that input conversion for C<char *> is a "simple" one,
+thus C<host> is initialized on the declaration line, and our assignment
+C<h = host> is not performed too early.  Otherwise one would need to have the
+assignment C<h = host> in a CODE: or INIT: section.)
+
+=head2 The IN/OUTLIST/IN_OUTLIST/OUT/IN_OUT Keywords
+
+In the list of parameters for an XSUB, one can precede parameter names
+by the C<IN>/C<OUTLIST>/C<IN_OUTLIST>/C<OUT>/C<IN_OUT> keywords.
+C<IN> keyword is the default, the other keywords indicate how the Perl
+interface should differ from the C interface.
+
+Parameters preceded by C<OUTLIST>/C<IN_OUTLIST>/C<OUT>/C<IN_OUT>
+keywords are considered to be used by the C subroutine I<via
+pointers>.  C<OUTLIST>/C<OUT> keywords indicate that the C subroutine
+does not inspect the memory pointed by this parameter, but will write
+through this pointer to provide additional return values.
+
+Parameters preceded by C<OUTLIST> keyword do not appear in the usage
+signature of the generated Perl function.
+
+Parameters preceded by C<IN_OUTLIST>/C<IN_OUT>/C<OUT> I<do> appear as
+parameters to the Perl function.  With the exception of
+C<OUT>-parameters, these parameters are converted to the corresponding
+C type, then pointers to these data are given as arguments to the C
+function.  It is expected that the C function will write through these
+pointers.
+
+The return list of the generated Perl function consists of the C return value
+from the function (unless the XSUB is of C<void> return type or
+C<The NO_OUTPUT Keyword> was used) followed by all the C<OUTLIST>
+and C<IN_OUTLIST> parameters (in the order of appearance).  On the
+return from the XSUB the C<IN_OUT>/C<OUT> Perl parameter will be
+modified to have the values written by the C function.
+
+For example, an XSUB
+
+  void
+  day_month(OUTLIST day, IN unix_time, OUTLIST month)
+    int day
+    int unix_time
+    int month
+
+should be used from Perl as
+
+  my ($day, $month) = day_month(time);
+
+The C signature of the corresponding function should be
+
+  void day_month(int *day, int unix_time, int *month);
+
+The C<IN>/C<OUTLIST>/C<IN_OUTLIST>/C<IN_OUT>/C<OUT> keywords can be
+mixed with ANSI-style declarations, as in
+
+  void
+  day_month(OUTLIST int day, int unix_time, OUTLIST int month)
+
+(here the optional C<IN> keyword is omitted).
+
+The C<IN_OUT> parameters are identical with parameters introduced with
+L<The & Unary Operator> and put into the C<OUTPUT:> section (see
+L<The OUTPUT: Keyword>).  The C<IN_OUTLIST> parameters are very similar,
+the only difference being that the value C function writes through the
+pointer would not modify the Perl parameter, but is put in the output
+list.
+
+The C<OUTLIST>/C<OUT> parameter differ from C<IN_OUTLIST>/C<IN_OUT>
+parameters only by the initial value of the Perl parameter not
+being read (and not being given to the C function - which gets some
+garbage instead).  For example, the same C function as above can be
+interfaced with as
+
+  void day_month(OUT int day, int unix_time, OUT int month);
+
+or
+
+  void
+  day_month(day, unix_time, month)
+      int &day = NO_INIT
+      int  unix_time
+      int &month = NO_INIT
+    OUTPUT:
+      day
+      month
+
+However, the generated Perl function is called in very C-ish style:
+
+  my ($day, $month);
+  day_month($day, time, $month);
+
+=head2 The C<length(NAME)> Keyword
+
+If one of the input arguments to the C function is the length of a string
+argument C<NAME>, one can substitute the name of the length-argument by
+C<length(NAME)> in the XSUB declaration.  This argument must be omitted when
+the generated Perl function is called.  E.g.,
+
+  void
+  dump_chars(char *s, short l)
+  {
+    short n = 0;
+    while (n < l) {
+        printf("s[%d] = \"\\%#03o\"\n", n, (int)s[n]);
+        n++;
+    }
+  }
+
+  MODULE = x		PACKAGE = x
+
+  void dump_chars(char *s, short length(s))
+
+should be called as C<dump_chars($string)>.
+
+This directive is supported with ANSI-type function declarations only.
+
+=head2 Variable-length Parameter Lists
+
+XSUBs can have variable-length parameter lists by specifying an ellipsis
+C<(...)> in the parameter list.  This use of the ellipsis is similar to that
+found in ANSI C.  The programmer is able to determine the number of
+arguments passed to the XSUB by examining the C<items> variable which the
+B<xsubpp> compiler supplies for all XSUBs.  By using this mechanism one can
+create an XSUB which accepts a list of parameters of unknown length.
+
+The I<host> parameter for the rpcb_gettime() XSUB can be
+optional so the ellipsis can be used to indicate that the
+XSUB will take a variable number of parameters.  Perl should
+be able to call this XSUB with either of the following statements.
+
+     $status = rpcb_gettime( $timep, $host );
+
+     $status = rpcb_gettime( $timep );
+
+The XS code, with ellipsis, follows.
+
+     bool_t
+     rpcb_gettime(timep, ...)
+          time_t timep = NO_INIT
+	PREINIT:
+          char *host = "localhost";
+        CODE:
+	  if( items > 1 )
+	       host = (char *)SvPV_nolen(ST(1));
+	  RETVAL = rpcb_gettime( host, &timep );
+        OUTPUT:
+          timep
+          RETVAL
+
+=head2 The C_ARGS: Keyword
+
+The C_ARGS: keyword allows creating of XSUBS which have different
+calling sequence from Perl than from C, without a need to write
+CODE: or PPCODE: section.  The contents of the C_ARGS: paragraph is
+put as the argument to the called C function without any change.
+
+For example, suppose that a C function is declared as
+
+    symbolic nth_derivative(int n, symbolic function, int flags);
+
+and that the default flags are kept in a global C variable
+C<default_flags>.  Suppose that you want to create an interface which
+is called as
+
+    $second_deriv = $function->nth_derivative(2);
+
+To do this, declare the XSUB as
+
+    symbolic
+    nth_derivative(function, n)
+	symbolic	function
+	int		n
+      C_ARGS:
+	n, function, default_flags
+
+=head2 The PPCODE: Keyword
+
+The PPCODE: keyword is an alternate form of the CODE: keyword and is used
+to tell the B<xsubpp> compiler that the programmer is supplying the code to
+control the argument stack for the XSUBs return values.  Occasionally one
+will want an XSUB to return a list of values rather than a single value.
+In these cases one must use PPCODE: and then explicitly push the list of
+values on the stack.  The PPCODE: and CODE:  keywords should not be used
+together within the same XSUB.
+
+The actual difference between PPCODE: and CODE: sections is in the
+initialization of C<SP> macro (which stands for the I<current> Perl
+stack pointer), and in the handling of data on the stack when returning
+from an XSUB.  In CODE: sections SP preserves the value which was on
+entry to the XSUB: SP is on the function pointer (which follows the
+last parameter).  In PPCODE: sections SP is moved backward to the
+beginning of the parameter list, which allows C<PUSH*()> macros
+to place output values in the place Perl expects them to be when
+the XSUB returns back to Perl.
+
+The generated trailer for a CODE: section ensures that the number of return
+values Perl will see is either 0 or 1 (depending on the C<void>ness of the
+return value of the C function, and heuristics mentioned in
+L<"The RETVAL Variable">).  The trailer generated for a PPCODE: section
+is based on the number of return values and on the number of times
+C<SP> was updated by C<[X]PUSH*()> macros.
+
+Note that macros C<ST(i)>, C<XST_m*()> and C<XSRETURN*()> work equally
+well in CODE: sections and PPCODE: sections.
+
+The following XSUB will call the C rpcb_gettime() function
+and will return its two output values, timep and status, to
+Perl as a single list.
+
+     void
+     rpcb_gettime(host)
+          char *host
+	PREINIT:
+          time_t  timep;
+          bool_t  status;
+        PPCODE:
+          status = rpcb_gettime( host, &timep );
+          EXTEND(SP, 2);
+          PUSHs(sv_2mortal(newSViv(status)));
+          PUSHs(sv_2mortal(newSViv(timep)));
+
+Notice that the programmer must supply the C code necessary
+to have the real rpcb_gettime() function called and to have
+the return values properly placed on the argument stack.
+
+The C<void> return type for this function tells the B<xsubpp> compiler that
+the RETVAL variable is not needed or used and that it should not be created.
+In most scenarios the void return type should be used with the PPCODE:
+directive.
+
+The EXTEND() macro is used to make room on the argument
+stack for 2 return values.  The PPCODE: directive causes the
+B<xsubpp> compiler to create a stack pointer available as C<SP>, and it
+is this pointer which is being used in the EXTEND() macro.
+The values are then pushed onto the stack with the PUSHs()
+macro.
+
+Now the rpcb_gettime() function can be used from Perl with
+the following statement.
+
+     ($status, $timep) = rpcb_gettime("localhost");
+
+When handling output parameters with a PPCODE section, be sure to handle
+'set' magic properly.  See L<perlguts> for details about 'set' magic.
+
+=head2 Returning Undef And Empty Lists
+
+Occasionally the programmer will want to return simply
+C<undef> or an empty list if a function fails rather than a
+separate status value.  The rpcb_gettime() function offers
+just this situation.  If the function succeeds we would like
+to have it return the time and if it fails we would like to
+have undef returned.  In the following Perl code the value
+of $timep will either be undef or it will be a valid time.
+
+     $timep = rpcb_gettime( "localhost" );
+
+The following XSUB uses the C<SV *> return type as a mnemonic only,
+and uses a CODE: block to indicate to the compiler
+that the programmer has supplied all the necessary code.  The
+sv_newmortal() call will initialize the return value to undef, making that
+the default return value.
+
+     SV *
+     rpcb_gettime(host)
+          char *  host
+	PREINIT:
+          time_t  timep;
+          bool_t x;
+        CODE:
+          ST(0) = sv_newmortal();
+          if( rpcb_gettime( host, &timep ) )
+               sv_setnv( ST(0), (double)timep);
+
+The next example demonstrates how one would place an explicit undef in the
+return value, should the need arise.
+
+     SV *
+     rpcb_gettime(host)
+          char *  host
+	PREINIT:
+          time_t  timep;
+          bool_t x;
+        CODE:
+          if( rpcb_gettime( host, &timep ) ){
+               ST(0) = sv_newmortal();
+               sv_setnv( ST(0), (double)timep);
+          }
+          else{
+               ST(0) = &PL_sv_undef;
+          }
+
+To return an empty list one must use a PPCODE: block and
+then not push return values on the stack.
+
+     void
+     rpcb_gettime(host)
+          char *host
+	PREINIT:
+          time_t  timep;
+        PPCODE:
+          if( rpcb_gettime( host, &timep ) )
+               PUSHs(sv_2mortal(newSViv(timep)));
+          else{
+	      /* Nothing pushed on stack, so an empty
+	       * list is implicitly returned. */
+          }
+
+Some people may be inclined to include an explicit C<return> in the above
+XSUB, rather than letting control fall through to the end.  In those
+situations C<XSRETURN_EMPTY> should be used, instead.  This will ensure that
+the XSUB stack is properly adjusted.  Consult L<perlapi> for other
+C<XSRETURN> macros.
+
+Since C<XSRETURN_*> macros can be used with CODE blocks as well, one can
+rewrite this example as:
+
+     int
+     rpcb_gettime(host)
+          char *host
+	PREINIT:
+          time_t  timep;
+        CODE:
+          RETVAL = rpcb_gettime( host, &timep );
+	  if (RETVAL == 0)
+		XSRETURN_UNDEF;
+	OUTPUT:
+	  RETVAL
+
+In fact, one can put this check into a POSTCALL: section as well.  Together
+with PREINIT: simplifications, this leads to:
+
+     int
+     rpcb_gettime(host)
+          char *host
+          time_t  timep;
+	POSTCALL:
+	  if (RETVAL == 0)
+		XSRETURN_UNDEF;
+
+=head2 The REQUIRE: Keyword
+
+The REQUIRE: keyword is used to indicate the minimum version of the
+B<xsubpp> compiler needed to compile the XS module.  An XS module which
+contains the following statement will compile with only B<xsubpp> version
+1.922 or greater:
+
+	REQUIRE: 1.922
+
+=head2 The CLEANUP: Keyword
+
+This keyword can be used when an XSUB requires special cleanup procedures
+before it terminates.  When the CLEANUP:  keyword is used it must follow
+any CODE:, or OUTPUT: blocks which are present in the XSUB.  The code
+specified for the cleanup block will be added as the last statements in
+the XSUB.
+
+=head2 The POSTCALL: Keyword
+
+This keyword can be used when an XSUB requires special procedures
+executed after the C subroutine call is performed.  When the POSTCALL:
+keyword is used it must precede OUTPUT: and CLEANUP: blocks which are
+present in the XSUB.
+
+See examples in L<"The NO_OUTPUT Keyword"> and L<"Returning Undef And Empty Lists">.
+
+The POSTCALL: block does not make a lot of sense when the C subroutine
+call is supplied by user by providing either CODE: or PPCODE: section.
+
+=head2 The BOOT: Keyword
+
+The BOOT: keyword is used to add code to the extension's bootstrap
+function.  The bootstrap function is generated by the B<xsubpp> compiler and
+normally holds the statements necessary to register any XSUBs with Perl.
+With the BOOT: keyword the programmer can tell the compiler to add extra
+statements to the bootstrap function.
+
+This keyword may be used any time after the first MODULE keyword and should
+appear on a line by itself.  The first blank line after the keyword will
+terminate the code block.
+
+     BOOT:
+     # The following message will be printed when the
+     # bootstrap function executes.
+     printf("Hello from the bootstrap!\n");
+
+=head2 The VERSIONCHECK: Keyword
+
+The VERSIONCHECK: keyword corresponds to B<xsubpp>'s C<-versioncheck> and
+C<-noversioncheck> options.  This keyword overrides the command line
+options.  Version checking is enabled by default.  When version checking is
+enabled the XS module will attempt to verify that its version matches the
+version of the PM module.
+
+To enable version checking:
+
+    VERSIONCHECK: ENABLE
+
+To disable version checking:
+
+    VERSIONCHECK: DISABLE
+
+Note that if the version of the PM module is an NV (a floating point
+number), it will be stringified with a possible loss of precision
+(currently chopping to nine decimal places) so that it may not match
+the version of the XS module anymore. Quoting the $VERSION declaration
+to make it a string is recommended if long version numbers are used.
+
+=head2 The PROTOTYPES: Keyword
+
+The PROTOTYPES: keyword corresponds to B<xsubpp>'s C<-prototypes> and
+C<-noprototypes> options.  This keyword overrides the command line options.
+Prototypes are disabled by default.  When prototypes are enabled, XSUBs will
+be given Perl prototypes.  This keyword may be used multiple times in an XS
+module to enable and disable prototypes for different parts of the module.
+Note that B<xsubpp> will nag you if you don't explicitly enable or disable
+prototypes, with:
+
+    Please specify prototyping behavior for Foo.xs (see perlxs manual)
+
+To enable prototypes:
+
+    PROTOTYPES: ENABLE
+
+To disable prototypes:
+
+    PROTOTYPES: DISABLE
+
+=head2 The PROTOTYPE: Keyword
+
+This keyword is similar to the PROTOTYPES: keyword above but can be used to
+force B<xsubpp> to use a specific prototype for the XSUB.  This keyword
+overrides all other prototype options and keywords but affects only the
+current XSUB.  Consult L<perlsub/Prototypes> for information about Perl
+prototypes.
+
+    bool_t
+    rpcb_gettime(timep, ...)
+          time_t timep = NO_INIT
+	PROTOTYPE: $;$
+	PREINIT:
+          char *host = "localhost";
+        CODE:
+		  if( items > 1 )
+		       host = (char *)SvPV_nolen(ST(1));
+		  RETVAL = rpcb_gettime( host, &timep );
+        OUTPUT:
+          timep
+          RETVAL
+
+If the prototypes are enabled, you can disable it locally for a given
+XSUB as in the following example:
+
+    void
+    rpcb_gettime_noproto()
+        PROTOTYPE: DISABLE
+    ...
+
+=head2 The ALIAS: Keyword
+
+The ALIAS: keyword allows an XSUB to have two or more unique Perl names
+and to know which of those names was used when it was invoked.  The Perl
+names may be fully-qualified with package names.  Each alias is given an
+index.  The compiler will setup a variable called C<ix> which contain the
+index of the alias which was used.  When the XSUB is called with its
+declared name C<ix> will be 0.
+
+The following example will create aliases C<FOO::gettime()> and
+C<BAR::getit()> for this function.
+
+    bool_t
+    rpcb_gettime(host,timep)
+          char *host
+          time_t &timep
+	ALIAS:
+	    FOO::gettime = 1
+	    BAR::getit = 2
+	INIT:
+	  printf("# ix = %d\n", ix );
+        OUTPUT:
+          timep
+
+=head2 The OVERLOAD: Keyword
+
+Instead of writing an overloaded interface using pure Perl, you
+can also use the OVERLOAD keyword to define additional Perl names
+for your functions (like the ALIAS: keyword above).  However, the
+overloaded functions must be defined with three parameters (except
+for the nomethod() function which needs four parameters).  If any
+function has the OVERLOAD: keyword, several additional lines
+will be defined in the c file generated by xsubpp in order to
+register with the overload magic.
+
+Since blessed objects are actually stored as RV's, it is useful
+to use the typemap features to preprocess parameters and extract
+the actual SV stored within the blessed RV.  See the sample for
+T_PTROBJ_SPECIAL below.
+
+To use the OVERLOAD: keyword, create an XS function which takes
+three input parameters ( or use the c style '...' definition) like
+this:
+
+    SV *
+    cmp (lobj, robj, swap)
+    My_Module_obj    lobj
+    My_Module_obj    robj
+    IV               swap
+    OVERLOAD: cmp <=>
+    { /* function defined here */}
+
+In this case, the function will overload both of the three way
+comparison operators.  For all overload operations using non-alpha
+characters, you must type the parameter without quoting, separating
+multiple overloads with whitespace.  Note that "" (the stringify
+overload) should be entered as \"\" (i.e. escaped).
+
+=head2 The FALLBACK: Keyword
+
+In addition to the OVERLOAD keyword, if you need to control how
+Perl autogenerates missing overloaded operators, you can set the
+FALLBACK keyword in the module header section, like this:
+
+    MODULE = RPC  PACKAGE = RPC
+
+    FALLBACK: TRUE
+    ...
+
+where FALLBACK can take any of the three values TRUE, FALSE, or
+UNDEF.  If you do not set any FALLBACK value when using OVERLOAD,
+it defaults to UNDEF.  FALLBACK is not used except when one or
+more functions using OVERLOAD have been defined.  Please see
+L<overload/fallback> for more details.
+
+=head2 The INTERFACE: Keyword
+
+This keyword declares the current XSUB as a keeper of the given
+calling signature.  If some text follows this keyword, it is
+considered as a list of functions which have this signature, and
+should be attached to the current XSUB.
+
+For example, if you have 4 C functions multiply(), divide(), add(),
+subtract() all having the signature:
+
+    symbolic f(symbolic, symbolic);
+
+you can make them all to use the same XSUB using this:
+
+    symbolic
+    interface_s_ss(arg1, arg2)
+	symbolic	arg1
+	symbolic	arg2
+    INTERFACE:
+	multiply divide
+	add subtract
+
+(This is the complete XSUB code for 4 Perl functions!)  Four generated
+Perl function share names with corresponding C functions.
+
+The advantage of this approach comparing to ALIAS: keyword is that there
+is no need to code a switch statement, each Perl function (which shares
+the same XSUB) knows which C function it should call.  Additionally, one
+can attach an extra function remainder() at runtime by using
+
+    CV *mycv = newXSproto("Symbolic::remainder",
+			  XS_Symbolic_interface_s_ss, __FILE__, "$$");
+    XSINTERFACE_FUNC_SET(mycv, remainder);
+
+say, from another XSUB.  (This example supposes that there was no
+INTERFACE_MACRO: section, otherwise one needs to use something else instead of
+C<XSINTERFACE_FUNC_SET>, see the next section.)
+
+=head2 The INTERFACE_MACRO: Keyword
+
+This keyword allows one to define an INTERFACE using a different way
+to extract a function pointer from an XSUB.  The text which follows
+this keyword should give the name of macros which would extract/set a
+function pointer.  The extractor macro is given return type, C<CV*>,
+and C<XSANY.any_dptr> for this C<CV*>.  The setter macro is given cv,
+and the function pointer.
+
+The default value is C<XSINTERFACE_FUNC> and C<XSINTERFACE_FUNC_SET>.
+An INTERFACE keyword with an empty list of functions can be omitted if
+INTERFACE_MACRO keyword is used.
+
+Suppose that in the previous example functions pointers for
+multiply(), divide(), add(), subtract() are kept in a global C array
+C<fp[]> with offsets being C<multiply_off>, C<divide_off>, C<add_off>,
+C<subtract_off>.  Then one can use
+
+    #define XSINTERFACE_FUNC_BYOFFSET(ret,cv,f) \
+	((XSINTERFACE_CVT_ANON(ret))fp[CvXSUBANY(cv).any_i32])
+    #define XSINTERFACE_FUNC_BYOFFSET_set(cv,f) \
+	CvXSUBANY(cv).any_i32 = CAT2( f, _off )
+
+in C section,
+
+    symbolic
+    interface_s_ss(arg1, arg2)
+	symbolic	arg1
+	symbolic	arg2
+      INTERFACE_MACRO:
+	XSINTERFACE_FUNC_BYOFFSET
+	XSINTERFACE_FUNC_BYOFFSET_set
+      INTERFACE:
+	multiply divide
+	add subtract
+
+in XSUB section.
+
+=head2 The INCLUDE: Keyword
+
+This keyword can be used to pull other files into the XS module.  The other
+files may have XS code.  INCLUDE: can also be used to run a command to
+generate the XS code to be pulled into the module.
+
+The file F<Rpcb1.xsh> contains our C<rpcb_gettime()> function:
+
+    bool_t
+    rpcb_gettime(host,timep)
+          char *host
+          time_t &timep
+        OUTPUT:
+          timep
+
+The XS module can use INCLUDE: to pull that file into it.
+
+    INCLUDE: Rpcb1.xsh
+
+If the parameters to the INCLUDE: keyword are followed by a pipe (C<|>) then
+the compiler will interpret the parameters as a command. This feature is
+mildly deprecated in favour of the C<INCLUDE_COMMAND:> directive, as documented
+below.
+
+    INCLUDE: cat Rpcb1.xsh |
+
+Do not use this to run perl: C<INCLUDE: perl |> will run the perl that
+happens to be the first in your path and not necessarily the same perl that is
+used to run C<xsubpp>. See L<"The INCLUDE_COMMAND: Keyword">.
+
+=head2 The INCLUDE_COMMAND: Keyword
+
+Runs the supplied command and includes its output into the current XS
+document. C<INCLUDE_COMMAND> assigns special meaning to the C<$^X> token
+in that it runs the same perl interpreter that is running C<xsubpp>:
+
+    INCLUDE_COMMAND: cat Rpcb1.xsh
+
+    INCLUDE_COMMAND: $^X -e ...
+
+=head2 The CASE: Keyword
+
+The CASE: keyword allows an XSUB to have multiple distinct parts with each
+part acting as a virtual XSUB.  CASE: is greedy and if it is used then all
+other XS keywords must be contained within a CASE:.  This means nothing may
+precede the first CASE: in the XSUB and anything following the last CASE: is
+included in that case.
+
+A CASE: might switch via a parameter of the XSUB, via the C<ix> ALIAS:
+variable (see L<"The ALIAS: Keyword">), or maybe via the C<items> variable
+(see L<"Variable-length Parameter Lists">).  The last CASE: becomes the
+B<default> case if it is not associated with a conditional.  The following
+example shows CASE switched via C<ix> with a function C<rpcb_gettime()>
+having an alias C<x_gettime()>.  When the function is called as
+C<rpcb_gettime()> its parameters are the usual C<(char *host, time_t *timep)>,
+but when the function is called as C<x_gettime()> its parameters are
+reversed, C<(time_t *timep, char *host)>.
+
+    long
+    rpcb_gettime(a,b)
+      CASE: ix == 1
+	ALIAS:
+	  x_gettime = 1
+	INPUT:
+	  # 'a' is timep, 'b' is host
+          char *b
+          time_t a = NO_INIT
+        CODE:
+               RETVAL = rpcb_gettime( b, &a );
+        OUTPUT:
+          a
+          RETVAL
+      CASE:
+	  # 'a' is host, 'b' is timep
+          char *a
+          time_t &b = NO_INIT
+        OUTPUT:
+          b
+          RETVAL
+
+That function can be called with either of the following statements.  Note
+the different argument lists.
+
+	$status = rpcb_gettime( $host, $timep );
+
+	$status = x_gettime( $timep, $host );
+
+=head2 The EXPORT_XSUB_SYMBOLS: Keyword
+
+The EXPORT_XSUB_SYMBOLS: keyword is likely something you will never need.
+In perl versions earlier than 5.16.0, this keyword does nothing. Starting
+with 5.16, XSUB symbols are no longer exported by default. That is, they
+are C<static> functions. If you include
+
+  EXPORT_XSUB_SYMBOLS: ENABLE
+
+in your XS code, the XSUBs following this line will not be declared C<static>.
+You can later disable this with
+
+  EXPORT_XSUB_SYMBOLS: DISABLE
+
+which, again, is the default that you should probably never change.
+You cannot use this keyword on versions of perl before 5.16 to make
+XSUBs C<static>.
+
+=head2 The & Unary Operator
+
+The C<&> unary operator in the INPUT: section is used to tell B<xsubpp>
+that it should convert a Perl value to/from C using the C type to the left
+of C<&>, but provide a pointer to this value when the C function is called.
+
+This is useful to avoid a CODE: block for a C function which takes a parameter
+by reference.  Typically, the parameter should be not a pointer type (an
+C<int> or C<long> but not an C<int*> or C<long*>).
+
+The following XSUB will generate incorrect C code.  The B<xsubpp> compiler will
+turn this into code which calls C<rpcb_gettime()> with parameters C<(char
+*host, time_t timep)>, but the real C<rpcb_gettime()> wants the C<timep>
+parameter to be of type C<time_t*> rather than C<time_t>.
+
+    bool_t
+    rpcb_gettime(host,timep)
+          char *host
+          time_t timep
+        OUTPUT:
+          timep
+
+That problem is corrected by using the C<&> operator.  The B<xsubpp> compiler
+will now turn this into code which calls C<rpcb_gettime()> correctly with
+parameters C<(char *host, time_t *timep)>.  It does this by carrying the
+C<&> through, so the function call looks like C<rpcb_gettime(host, &timep)>.
+
+    bool_t
+    rpcb_gettime(host,timep)
+          char *host
+          time_t &timep
+        OUTPUT:
+          timep
+
+=head2 Inserting POD, Comments and C Preprocessor Directives
+
+C preprocessor directives are allowed within BOOT:, PREINIT: INIT:, CODE:,
+PPCODE:, POSTCALL:, and CLEANUP: blocks, as well as outside the functions.
+Comments are allowed anywhere after the MODULE keyword.  The compiler will
+pass the preprocessor directives through untouched and will remove the
+commented lines. POD documentation is allowed at any point, both in the
+C and XS language sections. POD must be terminated with a C<=cut> command;
+C<xsubpp> will exit with an error if it does not. It is very unlikely that
+human generated C code will be mistaken for POD, as most indenting styles
+result in whitespace in front of any line starting with C<=>. Machine
+generated XS files may fall into this trap unless care is taken to
+ensure that a space breaks the sequence "\n=".
+
+Comments can be added to XSUBs by placing a C<#> as the first
+non-whitespace of a line.  Care should be taken to avoid making the
+comment look like a C preprocessor directive, lest it be interpreted as
+such.  The simplest way to prevent this is to put whitespace in front of
+the C<#>.
+
+If you use preprocessor directives to choose one of two
+versions of a function, use
+
+    #if ... version1
+    #else /* ... version2  */
+    #endif
+
+and not
+
+    #if ... version1
+    #endif
+    #if ... version2
+    #endif
+
+because otherwise B<xsubpp> will believe that you made a duplicate
+definition of the function.  Also, put a blank line before the
+#else/#endif so it will not be seen as part of the function body.
+
+=head2 Using XS With C++
+
+If an XSUB name contains C<::>, it is considered to be a C++ method.
+The generated Perl function will assume that
+its first argument is an object pointer.  The object pointer
+will be stored in a variable called THIS.  The object should
+have been created by C++ with the new() function and should
+be blessed by Perl with the sv_setref_pv() macro.  The
+blessing of the object by Perl can be handled by a typemap.  An example
+typemap is shown at the end of this section.
+
+If the return type of the XSUB includes C<static>, the method is considered
+to be a static method.  It will call the C++
+function using the class::method() syntax.  If the method is not static
+the function will be called using the THIS-E<gt>method() syntax.
+
+The next examples will use the following C++ class.
+
+     class color {
+          public:
+          color();
+          ~color();
+          int blue();
+          void set_blue( int );
+
+          private:
+          int c_blue;
+     };
+
+The XSUBs for the blue() and set_blue() methods are defined with the class
+name but the parameter for the object (THIS, or "self") is implicit and is
+not listed.
+
+     int
+     color::blue()
+
+     void
+     color::set_blue( val )
+          int val
+
+Both Perl functions will expect an object as the first parameter.  In the
+generated C++ code the object is called C<THIS>, and the method call will
+be performed on this object.  So in the C++ code the blue() and set_blue()
+methods will be called as this:
+
+     RETVAL = THIS->blue();
+
+     THIS->set_blue( val );
+
+You could also write a single get/set method using an optional argument:
+
+     int
+     color::blue( val = NO_INIT )
+         int val
+         PROTOTYPE $;$
+         CODE:
+             if (items > 1)
+                 THIS->set_blue( val );
+             RETVAL = THIS->blue();
+         OUTPUT:
+             RETVAL
+
+If the function's name is B<DESTROY> then the C++ C<delete> function will be
+called and C<THIS> will be given as its parameter.  The generated C++ code for
+
+     void
+     color::DESTROY()
+
+will look like this:
+
+     color *THIS = ...;  // Initialized as in typemap
+
+     delete THIS;
+
+If the function's name is B<new> then the C++ C<new> function will be called
+to create a dynamic C++ object.  The XSUB will expect the class name, which
+will be kept in a variable called C<CLASS>, to be given as the first
+argument.
+
+     color *
+     color::new()
+
+The generated C++ code will call C<new>.
+
+     RETVAL = new color();
+
+The following is an example of a typemap that could be used for this C++
+example.
+
+    TYPEMAP
+    color *  O_OBJECT
+
+    OUTPUT
+    # The Perl object is blessed into 'CLASS', which should be a
+    # char* having the name of the package for the blessing.
+    O_OBJECT
+        sv_setref_pv( $arg, CLASS, (void*)$var );
+
+    INPUT
+    O_OBJECT
+        if( sv_isobject($arg) && (SvTYPE(SvRV($arg)) == SVt_PVMG) )
+            $var = ($type)SvIV((SV*)SvRV( $arg ));
+        else{
+            warn("${Package}::$func_name() -- " .
+                "$var is not a blessed SV reference");
+            XSRETURN_UNDEF;
+        }
+
+=head2 Interface Strategy
+
+When designing an interface between Perl and a C library a straight
+translation from C to XS (such as created by C<h2xs -x>) is often sufficient.
+However, sometimes the interface will look
+very C-like and occasionally nonintuitive, especially when the C function
+modifies one of its parameters, or returns failure inband (as in "negative
+return values mean failure").  In cases where the programmer wishes to
+create a more Perl-like interface the following strategy may help to
+identify the more critical parts of the interface.
+
+Identify the C functions with input/output or output parameters.  The XSUBs for
+these functions may be able to return lists to Perl.
+
+Identify the C functions which use some inband info as an indication
+of failure.  They may be
+candidates to return undef or an empty list in case of failure.  If the
+failure may be detected without a call to the C function, you may want to use
+an INIT: section to report the failure.  For failures detectable after the C
+function returns one may want to use a POSTCALL: section to process the
+failure.  In more complicated cases use CODE: or PPCODE: sections.
+
+If many functions use the same failure indication based on the return value,
+you may want to create a special typedef to handle this situation.  Put
+
+  typedef int negative_is_failure;
+
+near the beginning of XS file, and create an OUTPUT typemap entry
+for C<negative_is_failure> which converts negative values to C<undef>, or
+maybe croak()s.  After this the return value of type C<negative_is_failure>
+will create more Perl-like interface.
+
+Identify which values are used by only the C and XSUB functions
+themselves, say, when a parameter to a function should be a contents of a
+global variable.  If Perl does not need to access the contents of the value
+then it may not be necessary to provide a translation for that value
+from C to Perl.
+
+Identify the pointers in the C function parameter lists and return
+values.  Some pointers may be used to implement input/output or
+output parameters, they can be handled in XS with the C<&> unary operator,
+and, possibly, using the NO_INIT keyword.
+Some others will require handling of types like C<int *>, and one needs
+to decide what a useful Perl translation will do in such a case.  When
+the semantic is clear, it is advisable to put the translation into a typemap
+file.
+
+Identify the structures used by the C functions.  In many
+cases it may be helpful to use the T_PTROBJ typemap for
+these structures so they can be manipulated by Perl as
+blessed objects.  (This is handled automatically by C<h2xs -x>.)
+
+If the same C type is used in several different contexts which require
+different translations, C<typedef> several new types mapped to this C type,
+and create separate F<typemap> entries for these new types.  Use these
+types in declarations of return type and parameters to XSUBs.
+
+=head2 Perl Objects And C Structures
+
+When dealing with C structures one should select either
+B<T_PTROBJ> or B<T_PTRREF> for the XS type.  Both types are
+designed to handle pointers to complex objects.  The
+T_PTRREF type will allow the Perl object to be unblessed
+while the T_PTROBJ type requires that the object be blessed.
+By using T_PTROBJ one can achieve a form of type-checking
+because the XSUB will attempt to verify that the Perl object
+is of the expected type.
+
+The following XS code shows the getnetconfigent() function which is used
+with ONC+ TIRPC.  The getnetconfigent() function will return a pointer to a
+C structure and has the C prototype shown below.  The example will
+demonstrate how the C pointer will become a Perl reference.  Perl will
+consider this reference to be a pointer to a blessed object and will
+attempt to call a destructor for the object.  A destructor will be
+provided in the XS source to free the memory used by getnetconfigent().
+Destructors in XS can be created by specifying an XSUB function whose name
+ends with the word B<DESTROY>.  XS destructors can be used to free memory
+which may have been malloc'd by another XSUB.
+
+     struct netconfig *getnetconfigent(const char *netid);
+
+A C<typedef> will be created for C<struct netconfig>.  The Perl
+object will be blessed in a class matching the name of the C
+type, with the tag C<Ptr> appended, and the name should not
+have embedded spaces if it will be a Perl package name.  The
+destructor will be placed in a class corresponding to the
+class of the object and the PREFIX keyword will be used to
+trim the name to the word DESTROY as Perl will expect.
+
+     typedef struct netconfig Netconfig;
+
+     MODULE = RPC  PACKAGE = RPC
+
+     Netconfig *
+     getnetconfigent(netid)
+          char *netid
+
+     MODULE = RPC  PACKAGE = NetconfigPtr  PREFIX = rpcb_
+
+     void
+     rpcb_DESTROY(netconf)
+          Netconfig *netconf
+        CODE:
+          printf("Now in NetconfigPtr::DESTROY\n");
+          free( netconf );
+
+This example requires the following typemap entry.  Consult
+L<perlxstypemap> for more information about adding new typemaps
+for an extension.
+
+     TYPEMAP
+     Netconfig *  T_PTROBJ
+
+This example will be used with the following Perl statements.
+
+     use RPC;
+     $netconf = getnetconfigent("udp");
+
+When Perl destroys the object referenced by $netconf it will send the
+object to the supplied XSUB DESTROY function.  Perl cannot determine, and
+does not care, that this object is a C struct and not a Perl object.  In
+this sense, there is no difference between the object created by the
+getnetconfigent() XSUB and an object created by a normal Perl subroutine.
+
+=head2 Safely Storing Static Data in XS
+
+Starting with Perl 5.8, a macro framework has been defined to allow
+static data to be safely stored in XS modules that will be accessed from
+a multi-threaded Perl.
+
+Although primarily designed for use with multi-threaded Perl, the macros
+have been designed so that they will work with non-threaded Perl as well.
+
+It is therefore strongly recommended that these macros be used by all
+XS modules that make use of static data.
+
+The easiest way to get a template set of macros to use is by specifying
+the C<-g> (C<--global>) option with h2xs (see L<h2xs>).
+
+Below is an example module that makes use of the macros.
+
+    #define PERL_NO_GET_CONTEXT
+    #include "EXTERN.h"
+    #include "perl.h"
+    #include "XSUB.h"
+
+    /* Global Data */
+
+    #define MY_CXT_KEY "BlindMice::_guts" XS_VERSION
+
+    typedef struct {
+        int count;
+        char name[3][100];
+    } my_cxt_t;
+
+    START_MY_CXT
+
+    MODULE = BlindMice           PACKAGE = BlindMice
+
+    BOOT:
+    {
+        MY_CXT_INIT;
+        MY_CXT.count = 0;
+        strcpy(MY_CXT.name[0], "None");
+        strcpy(MY_CXT.name[1], "None");
+        strcpy(MY_CXT.name[2], "None");
+    }
+
+    int
+    newMouse(char * name)
+        PREINIT:
+          dMY_CXT;
+        CODE:
+          if (MY_CXT.count >= 3) {
+              warn("Already have 3 blind mice");
+              RETVAL = 0;
+          }
+          else {
+              RETVAL = ++ MY_CXT.count;
+              strcpy(MY_CXT.name[MY_CXT.count - 1], name);
+          }
+        OUTPUT:
+          RETVAL
+
+    char *
+    get_mouse_name(index)
+          int index
+        PREINIT:
+          dMY_CXT;
+        CODE:
+          if (index > MY_CXT.count)
+            croak("There are only 3 blind mice.");
+          else
+            RETVAL = MY_CXT.name[index - 1];
+        OUTPUT:
+          RETVAL
+
+    void
+    CLONE(...)
+	CODE:
+	  MY_CXT_CLONE;
+
+=head3 MY_CXT REFERENCE
+
+=over 5
+
+=item MY_CXT_KEY
+
+This macro is used to define a unique key to refer to the static data
+for an XS module. The suggested naming scheme, as used by h2xs, is to
+use a string that consists of the module name, the string "::_guts"
+and the module version number.
+
+    #define MY_CXT_KEY "MyModule::_guts" XS_VERSION
+
+=item typedef my_cxt_t
+
+This struct typedef I<must> always be called C<my_cxt_t>. The other
+C<CXT*> macros assume the existence of the C<my_cxt_t> typedef name.
+
+Declare a typedef named C<my_cxt_t> that is a structure that contains
+all the data that needs to be interpreter-local.
+
+    typedef struct {
+        int some_value;
+    } my_cxt_t;
+
+=item START_MY_CXT
+
+Always place the START_MY_CXT macro directly after the declaration
+of C<my_cxt_t>.
+
+=item MY_CXT_INIT
+
+The MY_CXT_INIT macro initializes storage for the C<my_cxt_t> struct.
+
+It I<must> be called exactly once, typically in a BOOT: section. If you
+are maintaining multiple interpreters, it should be called once in each
+interpreter instance, except for interpreters cloned from existing ones.
+(But see L</MY_CXT_CLONE> below.)
+
+=item dMY_CXT
+
+Use the dMY_CXT macro (a declaration) in all the functions that access
+MY_CXT.
+
+=item MY_CXT
+
+Use the MY_CXT macro to access members of the C<my_cxt_t> struct. For
+example, if C<my_cxt_t> is
+
+    typedef struct {
+        int index;
+    } my_cxt_t;
+
+then use this to access the C<index> member
+
+    dMY_CXT;
+    MY_CXT.index = 2;
+
+=item aMY_CXT/pMY_CXT
+
+C<dMY_CXT> may be quite expensive to calculate, and to avoid the overhead
+of invoking it in each function it is possible to pass the declaration
+onto other functions using the C<aMY_CXT>/C<pMY_CXT> macros, eg
+
+    void sub1() {
+	dMY_CXT;
+	MY_CXT.index = 1;
+	sub2(aMY_CXT);
+    }
+
+    void sub2(pMY_CXT) {
+	MY_CXT.index = 2;
+    }
+
+Analogously to C<pTHX>, there are equivalent forms for when the macro is the
+first or last in multiple arguments, where an underscore represents a
+comma, i.e.  C<_aMY_CXT>, C<aMY_CXT_>, C<_pMY_CXT> and C<pMY_CXT_>.
+
+=item MY_CXT_CLONE
+
+By default, when a new interpreter is created as a copy of an existing one
+(eg via C<< threads->create() >>), both interpreters share the same physical
+my_cxt_t structure. Calling C<MY_CXT_CLONE> (typically via the package's
+C<CLONE()> function), causes a byte-for-byte copy of the structure to be
+taken, and any future dMY_CXT will cause the copy to be accessed instead.
+
+=item MY_CXT_INIT_INTERP(my_perl)
+
+=item dMY_CXT_INTERP(my_perl)
+
+These are versions of the macros which take an explicit interpreter as an
+argument.
+
+=back
+
+Note that these macros will only work together within the I<same> source
+file; that is, a dMY_CTX in one source file will access a different structure
+than a dMY_CTX in another source file.
+
+=head2 Thread-aware system interfaces
+
+Starting from Perl 5.8, in C/C++ level Perl knows how to wrap
+system/library interfaces that have thread-aware versions
+(e.g. getpwent_r()) into frontend macros (e.g. getpwent()) that
+correctly handle the multithreaded interaction with the Perl
+interpreter.  This will happen transparently, the only thing
+you need to do is to instantiate a Perl interpreter.
+
+This wrapping happens always when compiling Perl core source
+(PERL_CORE is defined) or the Perl core extensions (PERL_EXT is
+defined).  When compiling XS code outside of Perl core the wrapping
+does not take place.  Note, however, that intermixing the _r-forms
+(as Perl compiled for multithreaded operation will do) and the _r-less
+forms is neither well-defined (inconsistent results, data corruption,
+or even crashes become more likely), nor is it very portable.
+
+=head1 EXAMPLES
+
+File C<RPC.xs>: Interface to some ONC+ RPC bind library functions.
+
+     #define PERL_NO_GET_CONTEXT
+     #include "EXTERN.h"
+     #include "perl.h"
+     #include "XSUB.h"
+
+     #include <rpc/rpc.h>
+
+     typedef struct netconfig Netconfig;
+
+     MODULE = RPC  PACKAGE = RPC
+
+     SV *
+     rpcb_gettime(host="localhost")
+          char *host
+	PREINIT:
+          time_t  timep;
+        CODE:
+          ST(0) = sv_newmortal();
+          if( rpcb_gettime( host, &timep ) )
+               sv_setnv( ST(0), (double)timep );
+
+     Netconfig *
+     getnetconfigent(netid="udp")
+          char *netid
+
+     MODULE = RPC  PACKAGE = NetconfigPtr  PREFIX = rpcb_
+
+     void
+     rpcb_DESTROY(netconf)
+          Netconfig *netconf
+        CODE:
+          printf("NetconfigPtr::DESTROY\n");
+          free( netconf );
+
+File C<typemap>: Custom typemap for RPC.xs. (cf. L<perlxstypemap>)
+
+     TYPEMAP
+     Netconfig *  T_PTROBJ
+
+File C<RPC.pm>: Perl module for the RPC extension.
+
+     package RPC;
+
+     require Exporter;
+     require DynaLoader;
+     @ISA = qw(Exporter DynaLoader);
+     @EXPORT = qw(rpcb_gettime getnetconfigent);
+
+     bootstrap RPC;
+     1;
+
+File C<rpctest.pl>: Perl test program for the RPC extension.
+
+     use RPC;
+
+     $netconf = getnetconfigent();
+     $a = rpcb_gettime();
+     print "time = $a\n";
+     print "netconf = $netconf\n";
+
+     $netconf = getnetconfigent("tcp");
+     $a = rpcb_gettime("poplar");
+     print "time = $a\n";
+     print "netconf = $netconf\n";
+
+=head1 CAVEATS
+
+XS code has full access to system calls including C library functions.
+It thus has the capability of interfering with things that the Perl core
+or other modules have set up, such as signal handlers or file handles.
+It could mess with the memory, or any number of harmful things.  Don't.
+
+Some modules have an event loop, waiting for user-input.  It is highly
+unlikely that two such modules would work adequately together in a
+single Perl application.
+
+In general, the perl interpreter views itself as the center of the
+universe as far as the Perl program goes.  XS code is viewed as a
+help-mate, to accomplish things that perl doesn't do, or doesn't do fast
+enough, but always subservient to perl.  The closer XS code adheres to
+this model, the less likely conflicts will occur.
+
+One area where there has been conflict is in regards to C locales.  (See
+L<perllocale>.)  perl, with one exception and unless told otherwise,
+sets up the underlying locale the program is running in to the locale
+passed
+into it from the environment.  This is an important difference from a
+generic C language program, where the underlying locale is the "C"
+locale unless the program changes it.  As of v5.20, this underlying
+locale is completely hidden from pure perl code outside the lexical
+scope of C<S<use locale>> except for a couple of function calls in the
+POSIX module which of necessity use it.  But the underlying locale, with
+that
+one exception is exposed to XS code, affecting all C library routines
+whose behavior is locale-dependent.  Your XS code better not assume that
+the underlying locale is "C".  The exception is the
+L<C<LC_NUMERIC>|perllocale/Category LC_NUMERIC: Numeric Formatting>
+locale category, and the reason it is an exception is that experience
+has shown that it can be problematic for XS code, whereas we have not
+had reports of problems with the
+L<other locale categories|perllocale/WHAT IS A LOCALE>.  And the reason
+for this one category being problematic is that the character used as a
+decimal point can vary.  Many European languages use a comma, whereas
+English, and hence Perl are expecting a dot (U+002E: FULL STOP).  Many
+modules can handle only the radix character being a dot, and so perl
+attempts to make it so.  Up through Perl v5.20, the attempt was merely
+to set C<LC_NUMERIC> upon startup to the C<"C"> locale.  Any
+L<setlocale()|perllocale/The setlocale function> otherwise would change
+it; this caused some failures.  Therefore, starting in v5.22, perl tries
+to keep C<LC_NUMERIC> always set to C<"C"> for XS code.
+
+To summarize, here's what to expect and how to handle locales in XS code:
+
+=over
+
+=item Non-locale-aware XS code
+
+Keep in mind that even if you think your code is not locale-aware, it
+may call a C library function that is.  Hopefully the man page for such
+a function will indicate that dependency, but the documentation is
+imperfect.
+
+The current locale is exposed to XS code except possibly C<LC_NUMERIC>
+(explained in the next paragraph).
+There have not been reports of problems with the other categories.
+Perl initializes things on start-up so that the current locale is the
+one which is indicated by the user's environment in effect at that time.
+See L<perllocale/ENVIRONMENT>.
+
+However, up through v5.20, Perl initialized things on start-up so that
+C<LC_NUMERIC> was set to the "C" locale.  But if any code anywhere
+changed it, it would stay changed.  This means that your module can't
+count on C<LC_NUMERIC> being something in particular, and you can't
+expect floating point numbers (including version strings) to have dots
+in them.  If you don't allow for a non-dot, your code could break if
+anyone anywhere changed the locale.  For this reason, v5.22 changed
+the behavior so that Perl tries to keep C<LC_NUMERIC> in the "C" locale
+except around the operations internally where it should be something
+else.  Misbehaving XS code will always be able to change the locale
+anyway, but the most common instance of this is checked for and
+handled.
+
+=item Locale-aware XS code
+
+If the locale from the user's environment is desired, there should be no
+need for XS code to set the locale except for C<LC_NUMERIC>, as perl has
+already set it up.  XS code should avoid changing the locale, as it can
+adversely affect other, unrelated, code and may not be thread safe.
+However, some alien libraries that may be called do set it, such as
+C<Gtk>.  This can cause problems for the perl core and other modules.
+Starting in v5.20.1, calling the function
+L<sync_locale()|perlapi/sync_locale> from XS should be sufficient to
+avoid most of these problems.  Prior to this, you need a pure Perl
+statement that does this:
+
+ POSIX::setlocale(LC_ALL, POSIX::setlocale(LC_ALL));
+
+In the event that your XS code may need the underlying C<LC_NUMERIC>
+locale, there are macros available to access this; see
+L<perlapi/Locale-related functions and macros>.
+
+=back
+
+=head1 XS VERSION
+
+This document covers features supported by C<ExtUtils::ParseXS>
+(also known as C<xsubpp>) 3.13_01.
+
+=head1 AUTHOR
+
+Originally written by Dean Roehrich <F<roehrich@cray.com>>.
+
+Maintained since 1996 by The Perl Porters <F<perlbug@perl.org>>.
diff --git a/lib/5.24.1/pod/perlxstut.pod b/lib/5.24.1/pod/perlxstut.pod
new file mode 100644
index 00000000..f8a74ddf
--- /dev/null
+++ b/lib/5.24.1/pod/perlxstut.pod
@@ -0,0 +1,1401 @@
+=head1 NAME
+
+perlxstut - Tutorial for writing XSUBs
+
+=head1 DESCRIPTION
+
+This tutorial will educate the reader on the steps involved in creating
+a Perl extension.  The reader is assumed to have access to L<perlguts>,
+L<perlapi> and L<perlxs>.
+
+This tutorial starts with very simple examples and becomes more complex,
+with each new example adding new features.  Certain concepts may not be
+completely explained until later in the tutorial in order to slowly ease
+the reader into building extensions.
+
+This tutorial was written from a Unix point of view.  Where I know them
+to be otherwise different for other platforms (e.g. Win32), I will list
+them.  If you find something that was missed, please let me know.
+
+=head1 SPECIAL NOTES
+
+=head2 make
+
+This tutorial assumes that the make program that Perl is configured to
+use is called C<make>.  Instead of running "make" in the examples that
+follow, you may have to substitute whatever make program Perl has been
+configured to use.  Running B<perl -V:make> should tell you what it is.
+
+=head2 Version caveat
+
+When writing a Perl extension for general consumption, one should expect that
+the extension will be used with versions of Perl different from the
+version available on your machine.  Since you are reading this document,
+the version of Perl on your machine is probably 5.005 or later, but the users
+of your extension may have more ancient versions.
+
+To understand what kinds of incompatibilities one may expect, and in the rare
+case that the version of Perl on your machine is older than this document,
+see the section on "Troubleshooting these Examples" for more information.
+
+If your extension uses some features of Perl which are not available on older
+releases of Perl, your users would appreciate an early meaningful warning.
+You would probably put this information into the F<README> file, but nowadays
+installation of extensions may be performed automatically, guided by F<CPAN.pm>
+module or other tools.
+
+In MakeMaker-based installations, F<Makefile.PL> provides the earliest
+opportunity to perform version checks.  One can put something like this
+in F<Makefile.PL> for this purpose:
+
+    eval { require 5.007 }
+        or die <<EOD;
+    ############
+    ### This module uses frobnication framework which is not available
+    ### before version 5.007 of Perl.  Upgrade your Perl before
+    ### installing Kara::Mba.
+    ############
+    EOD
+
+=head2 Dynamic Loading versus Static Loading
+
+It is commonly thought that if a system does not have the capability to
+dynamically load a library, you cannot build XSUBs.  This is incorrect.
+You I<can> build them, but you must link the XSUBs subroutines with the
+rest of Perl, creating a new executable.  This situation is similar to
+Perl 4.
+
+This tutorial can still be used on such a system.  The XSUB build mechanism
+will check the system and build a dynamically-loadable library if possible,
+or else a static library and then, optionally, a new statically-linked
+executable with that static library linked in.
+
+Should you wish to build a statically-linked executable on a system which
+can dynamically load libraries, you may, in all the following examples,
+where the command "C<make>" with no arguments is executed, run the command
+"C<make perl>" instead.
+
+If you have generated such a statically-linked executable by choice, then
+instead of saying "C<make test>", you should say "C<make test_static>".
+On systems that cannot build dynamically-loadable libraries at all, simply
+saying "C<make test>" is sufficient.
+
+=head2 Threads and PERL_NO_GET_CONTEXT
+
+For threaded builds, perl requires the context pointer for the current
+thread, without C<PERL_NO_GET_CONTEXT>, perl will call a function to
+retrieve the context.
+
+For improved performance, include:
+
+  #define PERL_NO_GET_CONTEXT
+
+as shown below.
+
+For more details, see L<perlguts|perlguts/How multiple interpreters
+and concurrency are supported>.
+
+=head1 TUTORIAL
+
+Now let's go on with the show!
+
+=head2 EXAMPLE 1
+
+Our first extension will be very simple.  When we call the routine in the
+extension, it will print out a well-known message and return.
+
+Run "C<h2xs -A -n Mytest>".  This creates a directory named Mytest,
+possibly under ext/ if that directory exists in the current working
+directory.  Several files will be created under the Mytest dir, including
+MANIFEST, Makefile.PL, lib/Mytest.pm, Mytest.xs, t/Mytest.t, and Changes.
+
+The MANIFEST file contains the names of all the files just created in the
+Mytest directory.
+
+The file Makefile.PL should look something like this:
+
+    use ExtUtils::MakeMaker;
+    # See lib/ExtUtils/MakeMaker.pm for details of how to influence
+    # the contents of the Makefile that is written.
+    WriteMakefile(
+	NAME         => 'Mytest',
+	VERSION_FROM => 'Mytest.pm', # finds $VERSION
+	LIBS         => [''],   # e.g., '-lm'
+	DEFINE       => '',     # e.g., '-DHAVE_SOMETHING'
+	INC          => '',     # e.g., '-I/usr/include/other'
+    );
+
+The file Mytest.pm should start with something like this:
+
+    package Mytest;
+
+    use 5.008008;
+    use strict;
+    use warnings;
+
+    require Exporter;
+
+    our @ISA = qw(Exporter);
+    our %EXPORT_TAGS = ( 'all' => [ qw(
+
+    ) ] );
+
+    our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
+
+    our @EXPORT = qw(
+
+    );
+
+    our $VERSION = '0.01';
+
+    require XSLoader;
+    XSLoader::load('Mytest', $VERSION);
+
+    # Preloaded methods go here.
+
+    1;
+    __END__
+    # Below is the stub of documentation for your module. You better
+    # edit it!
+
+The rest of the .pm file contains sample code for providing documentation for
+the extension.
+
+Finally, the Mytest.xs file should look something like this:
+
+    #define PERL_NO_GET_CONTEXT
+    #include "EXTERN.h"
+    #include "perl.h"
+    #include "XSUB.h"
+
+    #include "ppport.h"
+
+    MODULE = Mytest		PACKAGE = Mytest
+
+Let's edit the .xs file by adding this to the end of the file:
+
+    void
+    hello()
+	CODE:
+	    printf("Hello, world!\n");
+
+It is okay for the lines starting at the "CODE:" line to not be indented.
+However, for readability purposes, it is suggested that you indent CODE:
+one level and the lines following one more level.
+
+Now we'll run "C<perl Makefile.PL>".  This will create a real Makefile,
+which make needs.  Its output looks something like:
+
+    % perl Makefile.PL
+    Checking if your kit is complete...
+    Looks good
+    Writing Makefile for Mytest
+    %
+
+Now, running make will produce output that looks something like this (some
+long lines have been shortened for clarity and some extraneous lines have
+been deleted):
+
+ % make
+ cp lib/Mytest.pm blib/lib/Mytest.pm
+ perl xsubpp  -typemap typemap  Mytest.xs > Mytest.xsc && \
+ mv Mytest.xsc Mytest.c
+ Please specify prototyping behavior for Mytest.xs (see perlxs manual)
+ cc -c     Mytest.c
+ Running Mkbootstrap for Mytest ()
+ chmod 644 Mytest.bs
+ rm -f blib/arch/auto/Mytest/Mytest.so
+ cc -shared -L/usr/local/lib Mytest.o -o blib/arch/auto/Mytest/Mytest.so
+
+ chmod 755 blib/arch/auto/Mytest/Mytest.so
+ cp Mytest.bs blib/arch/auto/Mytest/Mytest.bs
+ chmod 644 blib/arch/auto/Mytest/Mytest.bs
+ Manifying blib/man3/Mytest.3pm
+ %
+
+You can safely ignore the line about "prototyping behavior" - it is
+explained in L<perlxs/"The PROTOTYPES: Keyword">.
+
+Perl has its own special way of easily writing test scripts, but for this
+example only, we'll create our own test script.  Create a file called hello
+that looks like this:
+
+    #! /opt/perl5/bin/perl
+
+    use ExtUtils::testlib;
+
+    use Mytest;
+
+    Mytest::hello();
+
+Now we make the script executable (C<chmod +x hello>), run the script
+and we should see the following output:
+
+    % ./hello
+    Hello, world!
+    %
+
+=head2 EXAMPLE 2
+
+Now let's add to our extension a subroutine that will take a single numeric
+argument as input and return 1 if the number is even or 0 if the number
+is odd.
+
+Add the following to the end of Mytest.xs:
+
+    int
+    is_even(input)
+	    int input
+	CODE:
+	    RETVAL = (input % 2 == 0);
+	OUTPUT:
+	    RETVAL
+
+There does not need to be whitespace at the start of the "C<int input>"
+line, but it is useful for improving readability.  Placing a semi-colon at
+the end of that line is also optional.  Any amount and kind of whitespace
+may be placed between the "C<int>" and "C<input>".
+
+Now re-run make to rebuild our new shared library.
+
+Now perform the same steps as before, generating a Makefile from the
+Makefile.PL file, and running make.
+
+In order to test that our extension works, we now need to look at the
+file Mytest.t.  This file is set up to imitate the same kind of testing
+structure that Perl itself has.  Within the test script, you perform a
+number of tests to confirm the behavior of the extension, printing "ok"
+when the test is correct, "not ok" when it is not.
+
+    use Test::More tests => 4;
+    BEGIN { use_ok('Mytest') };
+
+    #########################
+
+    # Insert your test code below, the Test::More module is use()ed here
+    # so read its man page ( perldoc Test::More ) for help writing this
+    # test script.
+
+    is(&Mytest::is_even(0), 1);
+    is(&Mytest::is_even(1), 0);
+    is(&Mytest::is_even(2), 1);
+
+We will be calling the test script through the command "C<make test>".  You
+should see output that looks something like this:
+
+ %make test
+ PERL_DL_NONLAZY=1 /usr/bin/perl "-MExtUtils::Command::MM" "-e"
+ "test_harness(0, 'blib/lib', 'blib/arch')" t/*.t
+ t/Mytest....ok
+ All tests successful.
+ Files=1, Tests=4, 0 wallclock secs ( 0.03 cusr + 0.00 csys = 0.03 CPU)
+ %
+
+=head2 What has gone on?
+
+The program h2xs is the starting point for creating extensions.  In later
+examples we'll see how we can use h2xs to read header files and generate
+templates to connect to C routines.
+
+h2xs creates a number of files in the extension directory.  The file
+Makefile.PL is a perl script which will generate a true Makefile to build
+the extension.  We'll take a closer look at it later.
+
+The .pm and .xs files contain the meat of the extension.  The .xs file holds
+the C routines that make up the extension.  The .pm file contains routines
+that tell Perl how to load your extension.
+
+Generating the Makefile and running C<make> created a directory called blib
+(which stands for "build library") in the current working directory.  This
+directory will contain the shared library that we will build.  Once we have
+tested it, we can install it into its final location.
+
+Invoking the test script via "C<make test>" did something very important.
+It invoked perl with all those C<-I> arguments so that it could find the
+various files that are part of the extension.  It is I<very> important that
+while you are still testing extensions that you use "C<make test>".  If you
+try to run the test script all by itself, you will get a fatal error.
+Another reason it is important to use "C<make test>" to run your test
+script is that if you are testing an upgrade to an already-existing version,
+using "C<make test>" ensures that you will test your new extension, not the
+already-existing version.
+
+When Perl sees a C<use extension;>, it searches for a file with the same name
+as the C<use>'d extension that has a .pm suffix.  If that file cannot be found,
+Perl dies with a fatal error.  The default search path is contained in the
+C<@INC> array.
+
+In our case, Mytest.pm tells perl that it will need the Exporter and Dynamic
+Loader extensions.  It then sets the C<@ISA> and C<@EXPORT> arrays and the
+C<$VERSION> scalar; finally it tells perl to bootstrap the module.  Perl
+will call its dynamic loader routine (if there is one) and load the shared
+library.
+
+The two arrays C<@ISA> and C<@EXPORT> are very important.  The C<@ISA>
+array contains a list of other packages in which to search for methods (or
+subroutines) that do not exist in the current package.  This is usually
+only important for object-oriented extensions (which we will talk about
+much later), and so usually doesn't need to be modified.
+
+The C<@EXPORT> array tells Perl which of the extension's variables and
+subroutines should be placed into the calling package's namespace.  Because
+you don't know if the user has already used your variable and subroutine
+names, it's vitally important to carefully select what to export.  Do I<not>
+export method or variable names I<by default> without a good reason.
+
+As a general rule, if the module is trying to be object-oriented then don't
+export anything.  If it's just a collection of functions and variables, then
+you can export them via another array, called C<@EXPORT_OK>.  This array
+does not automatically place its subroutine and variable names into the
+namespace unless the user specifically requests that this be done.
+
+See L<perlmod> for more information.
+
+The C<$VERSION> variable is used to ensure that the .pm file and the shared
+library are "in sync" with each other.  Any time you make changes to
+the .pm or .xs files, you should increment the value of this variable.
+
+=head2 Writing good test scripts
+
+The importance of writing good test scripts cannot be over-emphasized.  You
+should closely follow the "ok/not ok" style that Perl itself uses, so that
+it is very easy and unambiguous to determine the outcome of each test case.
+When you find and fix a bug, make sure you add a test case for it.
+
+By running "C<make test>", you ensure that your Mytest.t script runs and uses
+the correct version of your extension.  If you have many test cases,
+save your test files in the "t" directory and use the suffix ".t".
+When you run "C<make test>", all of these test files will be executed.
+
+=head2 EXAMPLE 3
+
+Our third extension will take one argument as its input, round off that
+value, and set the I<argument> to the rounded value.
+
+Add the following to the end of Mytest.xs:
+
+	void
+	round(arg)
+		double  arg
+	    CODE:
+		if (arg > 0.0) {
+			arg = floor(arg + 0.5);
+		} else if (arg < 0.0) {
+			arg = ceil(arg - 0.5);
+		} else {
+			arg = 0.0;
+		}
+	    OUTPUT:
+		arg
+
+Edit the Makefile.PL file so that the corresponding line looks like this:
+
+	'LIBS'      => ['-lm'],   # e.g., '-lm'
+
+Generate the Makefile and run make.  Change the test number in Mytest.t to
+"9" and add the following tests:
+
+	$i = -1.5; &Mytest::round($i); is( $i, -2.0 );
+	$i = -1.1; &Mytest::round($i); is( $i, -1.0 );
+	$i = 0.0; &Mytest::round($i);  is( $i,  0.0 );
+	$i = 0.5; &Mytest::round($i);  is( $i,  1.0 );
+	$i = 1.2; &Mytest::round($i);  is( $i,  1.0 );
+
+Running "C<make test>" should now print out that all nine tests are okay.
+
+Notice that in these new test cases, the argument passed to round was a
+scalar variable.  You might be wondering if you can round a constant or
+literal.  To see what happens, temporarily add the following line to Mytest.t:
+
+	&Mytest::round(3);
+
+Run "C<make test>" and notice that Perl dies with a fatal error.  Perl won't
+let you change the value of constants!
+
+=head2 What's new here?
+
+=over 4
+
+=item *
+
+We've made some changes to Makefile.PL.  In this case, we've specified an
+extra library to be linked into the extension's shared library, the math
+library libm in this case.  We'll talk later about how to write XSUBs that
+can call every routine in a library.
+
+=item *
+
+The value of the function is not being passed back as the function's return
+value, but by changing the value of the variable that was passed into the
+function.  You might have guessed that when you saw that the return value
+of round is of type "void".
+
+=back
+
+=head2 Input and Output Parameters
+
+You specify the parameters that will be passed into the XSUB on the line(s)
+after you declare the function's return value and name.  Each input parameter
+line starts with optional whitespace, and may have an optional terminating
+semicolon.
+
+The list of output parameters occurs at the very end of the function, just
+after the OUTPUT: directive.  The use of RETVAL tells Perl that you
+wish to send this value back as the return value of the XSUB function.  In
+Example 3, we wanted the "return value" placed in the original variable
+which we passed in, so we listed it (and not RETVAL) in the OUTPUT: section.
+
+=head2 The XSUBPP Program
+
+The B<xsubpp> program takes the XS code in the .xs file and translates it into
+C code, placing it in a file whose suffix is .c.  The C code created makes
+heavy use of the C functions within Perl.
+
+=head2 The TYPEMAP file
+
+The B<xsubpp> program uses rules to convert from Perl's data types (scalar,
+array, etc.) to C's data types (int, char, etc.).  These rules are stored
+in the typemap file ($PERLLIB/ExtUtils/typemap).  There's a brief discussion
+below, but all the nitty-gritty details can be found in L<perlxstypemap>.
+If you have a new-enough version of perl (5.16 and up) or an upgraded
+XS compiler (C<ExtUtils::ParseXS> 3.13_01 or better), then you can inline
+typemaps in your XS instead of writing separate files.
+Either way, this typemap thing is split into three parts:
+
+The first section maps various C data types to a name, which corresponds
+somewhat with the various Perl types.  The second section contains C code
+which B<xsubpp> uses to handle input parameters.  The third section contains
+C code which B<xsubpp> uses to handle output parameters.
+
+Let's take a look at a portion of the .c file created for our extension.
+The file name is Mytest.c:
+
+	XS(XS_Mytest_round)
+	{
+	    dXSARGS;
+	    if (items != 1)
+		Perl_croak(aTHX_ "Usage: Mytest::round(arg)");
+	    PERL_UNUSED_VAR(cv); /* -W */
+	    {
+		double  arg = (double)SvNV(ST(0));	/* XXXXX */
+		if (arg > 0.0) {
+			arg = floor(arg + 0.5);
+		} else if (arg < 0.0) {
+			arg = ceil(arg - 0.5);
+		} else {
+			arg = 0.0;
+		}
+		sv_setnv(ST(0), (double)arg);	/* XXXXX */
+		SvSETMAGIC(ST(0));
+	    }
+	    XSRETURN_EMPTY;
+	}
+
+Notice the two lines commented with "XXXXX".  If you check the first part
+of the typemap file (or section), you'll see that doubles are of type
+T_DOUBLE.  In the INPUT part of the typemap, an argument that is T_DOUBLE
+is assigned to the variable arg by calling the routine SvNV on something,
+then casting it to double, then assigned to the variable arg.  Similarly,
+in the OUTPUT section, once arg has its final value, it is passed to the
+sv_setnv function to be passed back to the calling subroutine.  These two
+functions are explained in L<perlguts>; we'll talk more later about what
+that "ST(0)" means in the section on the argument stack.
+
+=head2 Warning about Output Arguments
+
+In general, it's not a good idea to write extensions that modify their input
+parameters, as in Example 3.  Instead, you should probably return multiple
+values in an array and let the caller handle them (we'll do this in a later
+example).  However, in order to better accommodate calling pre-existing C
+routines, which often do modify their input parameters, this behavior is
+tolerated.
+
+=head2 EXAMPLE 4
+
+In this example, we'll now begin to write XSUBs that will interact with
+pre-defined C libraries.  To begin with, we will build a small library of
+our own, then let h2xs write our .pm and .xs files for us.
+
+Create a new directory called Mytest2 at the same level as the directory
+Mytest.  In the Mytest2 directory, create another directory called mylib,
+and cd into that directory.
+
+Here we'll create some files that will generate a test library.  These will
+include a C source file and a header file.  We'll also create a Makefile.PL
+in this directory.  Then we'll make sure that running make at the Mytest2
+level will automatically run this Makefile.PL file and the resulting Makefile.
+
+In the mylib directory, create a file mylib.h that looks like this:
+
+	#define TESTVAL	4
+
+	extern double	foo(int, long, const char*);
+
+Also create a file mylib.c that looks like this:
+
+	#include <stdlib.h>
+	#include "./mylib.h"
+
+	double
+	foo(int a, long b, const char *c)
+	{
+		return (a + b + atof(c) + TESTVAL);
+	}
+
+And finally create a file Makefile.PL that looks like this:
+
+	use ExtUtils::MakeMaker;
+	$Verbose = 1;
+	WriteMakefile(
+	    NAME   => 'Mytest2::mylib',
+	    SKIP   => [qw(all static static_lib dynamic dynamic_lib)],
+	    clean  => {'FILES' => 'libmylib$(LIB_EXT)'},
+	);
+
+
+	sub MY::top_targets {
+		'
+	all :: static
+
+	pure_all :: static
+
+	static ::       libmylib$(LIB_EXT)
+
+	libmylib$(LIB_EXT): $(O_FILES)
+		$(AR) cr libmylib$(LIB_EXT) $(O_FILES)
+		$(RANLIB) libmylib$(LIB_EXT)
+
+	';
+	}
+
+Make sure you use a tab and not spaces on the lines beginning with "$(AR)"
+and "$(RANLIB)".  Make will not function properly if you use spaces.
+It has also been reported that the "cr" argument to $(AR) is unnecessary
+on Win32 systems.
+
+We will now create the main top-level Mytest2 files.  Change to the directory
+above Mytest2 and run the following command:
+
+	% h2xs -O -n Mytest2 ./Mytest2/mylib/mylib.h
+
+This will print out a warning about overwriting Mytest2, but that's okay.
+Our files are stored in Mytest2/mylib, and will be untouched.
+
+The normal Makefile.PL that h2xs generates doesn't know about the mylib
+directory.  We need to tell it that there is a subdirectory and that we
+will be generating a library in it.  Let's add the argument MYEXTLIB to
+the WriteMakefile call so that it looks like this:
+
+	WriteMakefile(
+	    'NAME'      => 'Mytest2',
+	    'VERSION_FROM' => 'Mytest2.pm', # finds $VERSION
+	    'LIBS'      => [''],   # e.g., '-lm'
+	    'DEFINE'    => '',     # e.g., '-DHAVE_SOMETHING'
+	    'INC'       => '',     # e.g., '-I/usr/include/other'
+	    'MYEXTLIB' => 'mylib/libmylib$(LIB_EXT)',
+	);
+
+and then at the end add a subroutine (which will override the pre-existing
+subroutine).  Remember to use a tab character to indent the line beginning
+with "cd"!
+
+	sub MY::postamble {
+	'
+	$(MYEXTLIB): mylib/Makefile
+		cd mylib && $(MAKE) $(PASSTHRU)
+	';
+	}
+
+Let's also fix the MANIFEST file so that it accurately reflects the contents
+of our extension.  The single line that says "mylib" should be replaced by
+the following three lines:
+
+	mylib/Makefile.PL
+	mylib/mylib.c
+	mylib/mylib.h
+
+To keep our namespace nice and unpolluted, edit the .pm file and change
+the variable C<@EXPORT> to C<@EXPORT_OK>.  Finally, in the
+.xs file, edit the #include line to read:
+
+	#include "mylib/mylib.h"
+
+And also add the following function definition to the end of the .xs file:
+
+	double
+	foo(a,b,c)
+		int             a
+		long            b
+		const char *    c
+	    OUTPUT:
+		RETVAL
+
+Now we also need to create a typemap because the default Perl doesn't
+currently support the C<const char *> type.  Include a new TYPEMAP
+section in your XS code before the above function:
+
+        TYPEMAP: <<END
+	const char *	T_PV
+        END
+
+Now run perl on the top-level Makefile.PL.  Notice that it also created a
+Makefile in the mylib directory.  Run make and watch that it does cd into
+the mylib directory and run make in there as well.
+
+Now edit the Mytest2.t script and change the number of tests to "4",
+and add the following lines to the end of the script:
+
+	is( &Mytest2::foo(1, 2, "Hello, world!"), 7 );
+	is( &Mytest2::foo(1, 2, "0.0"), 7 );
+	ok( abs(&Mytest2::foo(0, 0, "-3.4") - 0.6) <= 0.01 );
+
+(When dealing with floating-point comparisons, it is best to not check for
+equality, but rather that the difference between the expected and actual
+result is below a certain amount (called epsilon) which is 0.01 in this case)
+
+Run "C<make test>" and all should be well. There are some warnings on missing
+tests for the Mytest2::mylib extension, but you can ignore them.
+
+=head2 What has happened here?
+
+Unlike previous examples, we've now run h2xs on a real include file.  This
+has caused some extra goodies to appear in both the .pm and .xs files.
+
+=over 4
+
+=item *
+
+In the .xs file, there's now a #include directive with the absolute path to
+the mylib.h header file.  We changed this to a relative path so that we
+could move the extension directory if we wanted to.
+
+=item *
+
+There's now some new C code that's been added to the .xs file.  The purpose
+of the C<constant> routine is to make the values that are #define'd in the
+header file accessible by the Perl script (by calling either C<TESTVAL> or
+C<&Mytest2::TESTVAL>).  There's also some XS code to allow calls to the
+C<constant> routine.
+
+=item *
+
+The .pm file originally exported the name C<TESTVAL> in the C<@EXPORT> array.
+This could lead to name clashes.  A good rule of thumb is that if the #define
+is only going to be used by the C routines themselves, and not by the user,
+they should be removed from the C<@EXPORT> array.  Alternately, if you don't
+mind using the "fully qualified name" of a variable, you could move most
+or all of the items from the C<@EXPORT> array into the C<@EXPORT_OK> array.
+
+=item *
+
+If our include file had contained #include directives, these would not have
+been processed by h2xs.  There is no good solution to this right now.
+
+=item *
+
+We've also told Perl about the library that we built in the mylib
+subdirectory.  That required only the addition of the C<MYEXTLIB> variable
+to the WriteMakefile call and the replacement of the postamble subroutine
+to cd into the subdirectory and run make.  The Makefile.PL for the
+library is a bit more complicated, but not excessively so.  Again we
+replaced the postamble subroutine to insert our own code.  This code
+simply specified that the library to be created here was a static archive
+library (as opposed to a dynamically loadable library) and provided the
+commands to build it.
+
+=back
+
+=head2 Anatomy of .xs file
+
+The .xs file of L<"EXAMPLE 4"> contained some new elements.  To understand
+the meaning of these elements, pay attention to the line which reads
+
+	MODULE = Mytest2		PACKAGE = Mytest2
+
+Anything before this line is plain C code which describes which headers
+to include, and defines some convenience functions.  No translations are
+performed on this part, apart from having embedded POD documentation
+skipped over (see L<perlpod>) it goes into the generated output C file as is.
+
+Anything after this line is the description of XSUB functions.
+These descriptions are translated by B<xsubpp> into C code which
+implements these functions using Perl calling conventions, and which
+makes these functions visible from Perl interpreter.
+
+Pay a special attention to the function C<constant>.  This name appears
+twice in the generated .xs file: once in the first part, as a static C
+function, then another time in the second part, when an XSUB interface to
+this static C function is defined.
+
+This is quite typical for .xs files: usually the .xs file provides
+an interface to an existing C function.  Then this C function is defined
+somewhere (either in an external library, or in the first part of .xs file),
+and a Perl interface to this function (i.e. "Perl glue") is described in the
+second part of .xs file.  The situation in L<"EXAMPLE 1">, L<"EXAMPLE 2">,
+and L<"EXAMPLE 3">, when all the work is done inside the "Perl glue", is
+somewhat of an exception rather than the rule.
+
+=head2 Getting the fat out of XSUBs
+
+In L<"EXAMPLE 4"> the second part of .xs file contained the following
+description of an XSUB:
+
+	double
+	foo(a,b,c)
+		int             a
+		long            b
+		const char *    c
+	    OUTPUT:
+		RETVAL
+
+Note that in contrast with L<"EXAMPLE 1">, L<"EXAMPLE 2"> and L<"EXAMPLE 3">,
+this description does not contain the actual I<code> for what is done
+during a call to Perl function foo().  To understand what is going
+on here, one can add a CODE section to this XSUB:
+
+	double
+	foo(a,b,c)
+		int             a
+		long            b
+		const char *    c
+	    CODE:
+		RETVAL = foo(a,b,c);
+	    OUTPUT:
+		RETVAL
+
+However, these two XSUBs provide almost identical generated C code: B<xsubpp>
+compiler is smart enough to figure out the C<CODE:> section from the first
+two lines of the description of XSUB.  What about C<OUTPUT:> section?  In
+fact, that is absolutely the same!  The C<OUTPUT:> section can be removed
+as well, I<as far as C<CODE:> section or C<PPCODE:> section> is not
+specified: B<xsubpp> can see that it needs to generate a function call
+section, and will autogenerate the OUTPUT section too.  Thus one can
+shortcut the XSUB to become:
+
+	double
+	foo(a,b,c)
+		int             a
+		long            b
+		const char *    c
+
+Can we do the same with an XSUB
+
+	int
+	is_even(input)
+		int	input
+	    CODE:
+		RETVAL = (input % 2 == 0);
+	    OUTPUT:
+		RETVAL
+
+of L<"EXAMPLE 2">?  To do this, one needs to define a C function C<int
+is_even(int input)>.  As we saw in L<Anatomy of .xs file>, a proper place
+for this definition is in the first part of .xs file.  In fact a C function
+
+	int
+	is_even(int arg)
+	{
+		return (arg % 2 == 0);
+	}
+
+is probably overkill for this.  Something as simple as a C<#define> will
+do too:
+
+	#define is_even(arg)	((arg) % 2 == 0)
+
+After having this in the first part of .xs file, the "Perl glue" part becomes
+as simple as
+
+	int
+	is_even(input)
+		int	input
+
+This technique of separation of the glue part from the workhorse part has
+obvious tradeoffs: if you want to change a Perl interface, you need to
+change two places in your code.  However, it removes a lot of clutter,
+and makes the workhorse part independent from idiosyncrasies of Perl calling
+convention.  (In fact, there is nothing Perl-specific in the above description,
+a different version of B<xsubpp> might have translated this to TCL glue or
+Python glue as well.)
+
+=head2 More about XSUB arguments
+
+With the completion of Example 4, we now have an easy way to simulate some
+real-life libraries whose interfaces may not be the cleanest in the world.
+We shall now continue with a discussion of the arguments passed to the
+B<xsubpp> compiler.
+
+When you specify arguments to routines in the .xs file, you are really
+passing three pieces of information for each argument listed.  The first
+piece is the order of that argument relative to the others (first, second,
+etc).  The second is the type of argument, and consists of the type
+declaration of the argument (e.g., int, char*, etc).  The third piece is
+the calling convention for the argument in the call to the library function.
+
+While Perl passes arguments to functions by reference,
+C passes arguments by value; to implement a C function which modifies data
+of one of the "arguments", the actual argument of this C function would be
+a pointer to the data.  Thus two C functions with declarations
+
+	int string_length(char *s);
+	int upper_case_char(char *cp);
+
+may have completely different semantics: the first one may inspect an array
+of chars pointed by s, and the second one may immediately dereference C<cp>
+and manipulate C<*cp> only (using the return value as, say, a success
+indicator).  From Perl one would use these functions in
+a completely different manner.
+
+One conveys this info to B<xsubpp> by replacing C<*> before the
+argument by C<&>.  C<&> means that the argument should be passed to a library
+function by its address.  The above two function may be XSUB-ified as
+
+	int
+	string_length(s)
+		char *	s
+
+	int
+	upper_case_char(cp)
+		char	&cp
+
+For example, consider:
+
+	int
+	foo(a,b)
+		char	&a
+		char *	b
+
+The first Perl argument to this function would be treated as a char and
+assigned to the variable a, and its address would be passed into the function
+foo. The second Perl argument would be treated as a string pointer and assigned
+to the variable b. The I<value> of b would be passed into the function foo.
+The actual call to the function foo that B<xsubpp> generates would look like
+this:
+
+	foo(&a, b);
+
+B<xsubpp> will parse the following function argument lists identically:
+
+	char	&a
+	char&a
+	char	& a
+
+However, to help ease understanding, it is suggested that you place a "&"
+next to the variable name and away from the variable type), and place a
+"*" near the variable type, but away from the variable name (as in the
+call to foo above).  By doing so, it is easy to understand exactly what
+will be passed to the C function; it will be whatever is in the "last
+column".
+
+You should take great pains to try to pass the function the type of variable
+it wants, when possible.  It will save you a lot of trouble in the long run.
+
+=head2 The Argument Stack
+
+If we look at any of the C code generated by any of the examples except
+example 1, you will notice a number of references to ST(n), where n is
+usually 0.  "ST" is actually a macro that points to the n'th argument
+on the argument stack.  ST(0) is thus the first argument on the stack and
+therefore the first argument passed to the XSUB, ST(1) is the second
+argument, and so on.
+
+When you list the arguments to the XSUB in the .xs file, that tells B<xsubpp>
+which argument corresponds to which of the argument stack (i.e., the first
+one listed is the first argument, and so on).  You invite disaster if you
+do not list them in the same order as the function expects them.
+
+The actual values on the argument stack are pointers to the values passed
+in.  When an argument is listed as being an OUTPUT value, its corresponding
+value on the stack (i.e., ST(0) if it was the first argument) is changed.
+You can verify this by looking at the C code generated for Example 3.
+The code for the round() XSUB routine contains lines that look like this:
+
+	double  arg = (double)SvNV(ST(0));
+	/* Round the contents of the variable arg */
+	sv_setnv(ST(0), (double)arg);
+
+The arg variable is initially set by taking the value from ST(0), then is
+stored back into ST(0) at the end of the routine.
+
+XSUBs are also allowed to return lists, not just scalars.  This must be
+done by manipulating stack values ST(0), ST(1), etc, in a subtly
+different way.  See L<perlxs> for details.
+
+XSUBs are also allowed to avoid automatic conversion of Perl function arguments
+to C function arguments.  See L<perlxs> for details.  Some people prefer
+manual conversion by inspecting C<ST(i)> even in the cases when automatic
+conversion will do, arguing that this makes the logic of an XSUB call clearer.
+Compare with L<"Getting the fat out of XSUBs"> for a similar tradeoff of
+a complete separation of "Perl glue" and "workhorse" parts of an XSUB.
+
+While experts may argue about these idioms, a novice to Perl guts may
+prefer a way which is as little Perl-guts-specific as possible, meaning
+automatic conversion and automatic call generation, as in
+L<"Getting the fat out of XSUBs">.  This approach has the additional
+benefit of protecting the XSUB writer from future changes to the Perl API.
+
+=head2 Extending your Extension
+
+Sometimes you might want to provide some extra methods or subroutines
+to assist in making the interface between Perl and your extension simpler
+or easier to understand.  These routines should live in the .pm file.
+Whether they are automatically loaded when the extension itself is loaded
+or only loaded when called depends on where in the .pm file the subroutine
+definition is placed.  You can also consult L<AutoLoader> for an alternate
+way to store and load your extra subroutines.
+
+=head2 Documenting your Extension
+
+There is absolutely no excuse for not documenting your extension.
+Documentation belongs in the .pm file.  This file will be fed to pod2man,
+and the embedded documentation will be converted to the manpage format,
+then placed in the blib directory.  It will be copied to Perl's
+manpage directory when the extension is installed.
+
+You may intersperse documentation and Perl code within the .pm file.
+In fact, if you want to use method autoloading, you must do this,
+as the comment inside the .pm file explains.
+
+See L<perlpod> for more information about the pod format.
+
+=head2 Installing your Extension
+
+Once your extension is complete and passes all its tests, installing it
+is quite simple: you simply run "make install".  You will either need
+to have write permission into the directories where Perl is installed,
+or ask your system administrator to run the make for you.
+
+Alternately, you can specify the exact directory to place the extension's
+files by placing a "PREFIX=/destination/directory" after the make install
+(or in between the make and install if you have a brain-dead version of make).
+This can be very useful if you are building an extension that will eventually
+be distributed to multiple systems.  You can then just archive the files in
+the destination directory and distribute them to your destination systems.
+
+=head2 EXAMPLE 5
+
+In this example, we'll do some more work with the argument stack.  The
+previous examples have all returned only a single value.  We'll now
+create an extension that returns an array.
+
+This extension is very Unix-oriented (struct statfs and the statfs system
+call).  If you are not running on a Unix system, you can substitute for
+statfs any other function that returns multiple values, you can hard-code
+values to be returned to the caller (although this will be a bit harder
+to test the error case), or you can simply not do this example.  If you
+change the XSUB, be sure to fix the test cases to match the changes.
+
+Return to the Mytest directory and add the following code to the end of
+Mytest.xs:
+
+	void
+	statfs(path)
+		char *  path
+	    INIT:
+		int i;
+		struct statfs buf;
+
+	    PPCODE:
+		i = statfs(path, &buf);
+		if (i == 0) {
+			XPUSHs(sv_2mortal(newSVnv(buf.f_bavail)));
+			XPUSHs(sv_2mortal(newSVnv(buf.f_bfree)));
+			XPUSHs(sv_2mortal(newSVnv(buf.f_blocks)));
+			XPUSHs(sv_2mortal(newSVnv(buf.f_bsize)));
+			XPUSHs(sv_2mortal(newSVnv(buf.f_ffree)));
+			XPUSHs(sv_2mortal(newSVnv(buf.f_files)));
+			XPUSHs(sv_2mortal(newSVnv(buf.f_type)));
+		} else {
+			XPUSHs(sv_2mortal(newSVnv(errno)));
+		}
+
+You'll also need to add the following code to the top of the .xs file, just
+after the include of "XSUB.h":
+
+	#include <sys/vfs.h>
+
+Also add the following code segment to Mytest.t while incrementing the "9"
+tests to "11":
+
+	@a = &Mytest::statfs("/blech");
+	ok( scalar(@a) == 1 && $a[0] == 2 );
+	@a = &Mytest::statfs("/");
+	is( scalar(@a), 7 );
+
+=head2 New Things in this Example
+
+This example added quite a few new concepts.  We'll take them one at a time.
+
+=over 4
+
+=item *
+
+The INIT: directive contains code that will be placed immediately after
+the argument stack is decoded.  C does not allow variable declarations at
+arbitrary locations inside a function,
+so this is usually the best way to declare local variables needed by the XSUB.
+(Alternatively, one could put the whole C<PPCODE:> section into braces, and
+put these declarations on top.)
+
+=item *
+
+This routine also returns a different number of arguments depending on the
+success or failure of the call to statfs.  If there is an error, the error
+number is returned as a single-element array.  If the call is successful,
+then a 7-element array is returned.  Since only one argument is passed into
+this function, we need room on the stack to hold the 7 values which may be
+returned.
+
+We do this by using the PPCODE: directive, rather than the CODE: directive.
+This tells B<xsubpp> that we will be managing the return values that will be
+put on the argument stack by ourselves.
+
+=item *
+
+When we want to place values to be returned to the caller onto the stack,
+we use the series of macros that begin with "XPUSH".  There are five
+different versions, for placing integers, unsigned integers, doubles,
+strings, and Perl scalars on the stack.  In our example, we placed a
+Perl scalar onto the stack.  (In fact this is the only macro which
+can be used to return multiple values.)
+
+The XPUSH* macros will automatically extend the return stack to prevent
+it from being overrun.  You push values onto the stack in the order you
+want them seen by the calling program.
+
+=item *
+
+The values pushed onto the return stack of the XSUB are actually mortal SV's.
+They are made mortal so that once the values are copied by the calling
+program, the SV's that held the returned values can be deallocated.
+If they were not mortal, then they would continue to exist after the XSUB
+routine returned, but would not be accessible.  This is a memory leak.
+
+=item *
+
+If we were interested in performance, not in code compactness, in the success
+branch we would not use C<XPUSHs> macros, but C<PUSHs> macros, and would
+pre-extend the stack before pushing the return values:
+
+	EXTEND(SP, 7);
+
+The tradeoff is that one needs to calculate the number of return values
+in advance (though overextending the stack will not typically hurt
+anything but memory consumption).
+
+Similarly, in the failure branch we could use C<PUSHs> I<without> extending
+the stack: the Perl function reference comes to an XSUB on the stack, thus
+the stack is I<always> large enough to take one return value.
+
+=back
+
+=head2 EXAMPLE 6
+
+In this example, we will accept a reference to an array as an input
+parameter, and return a reference to an array of hashes.  This will
+demonstrate manipulation of complex Perl data types from an XSUB.
+
+This extension is somewhat contrived.  It is based on the code in
+the previous example.  It calls the statfs function multiple times,
+accepting a reference to an array of filenames as input, and returning
+a reference to an array of hashes containing the data for each of the
+filesystems.
+
+Return to the Mytest directory and add the following code to the end of
+Mytest.xs:
+
+    SV *
+    multi_statfs(paths)
+	    SV * paths
+	INIT:
+	    AV * results;
+	    SSize_t numpaths = 0, n;
+	    int i;
+	    struct statfs buf;
+
+	    SvGETMAGIC(paths);
+	    if ((!SvROK(paths))
+		|| (SvTYPE(SvRV(paths)) != SVt_PVAV)
+		|| ((numpaths = av_top_index((AV *)SvRV(paths))) < 0))
+	    {
+		XSRETURN_UNDEF;
+	    }
+	    results = (AV *)sv_2mortal((SV *)newAV());
+	CODE:
+	    for (n = 0; n <= numpaths; n++) {
+		HV * rh;
+		STRLEN l;
+		char * fn = SvPV(*av_fetch((AV *)SvRV(paths), n, 0), l);
+
+		i = statfs(fn, &buf);
+		if (i != 0) {
+		    av_push(results, newSVnv(errno));
+		    continue;
+		}
+
+		rh = (HV *)sv_2mortal((SV *)newHV());
+
+		hv_store(rh, "f_bavail", 8, newSVnv(buf.f_bavail), 0);
+		hv_store(rh, "f_bfree",  7, newSVnv(buf.f_bfree),  0);
+		hv_store(rh, "f_blocks", 8, newSVnv(buf.f_blocks), 0);
+		hv_store(rh, "f_bsize",  7, newSVnv(buf.f_bsize),  0);
+		hv_store(rh, "f_ffree",  7, newSVnv(buf.f_ffree),  0);
+		hv_store(rh, "f_files",  7, newSVnv(buf.f_files),  0);
+		hv_store(rh, "f_type",   6, newSVnv(buf.f_type),   0);
+
+		av_push(results, newRV((SV *)rh));
+	    }
+	    RETVAL = newRV((SV *)results);
+	OUTPUT:
+	    RETVAL
+
+And add the following code to Mytest.t, while incrementing the "11"
+tests to "13":
+
+	$results = Mytest::multi_statfs([ '/', '/blech' ]);
+	ok( ref $results->[0] );
+	ok( ! ref $results->[1] );
+
+=head2 New Things in this Example
+
+There are a number of new concepts introduced here, described below:
+
+=over 4
+
+=item *
+
+This function does not use a typemap.  Instead, we declare it as accepting
+one SV* (scalar) parameter, and returning an SV* value, and we take care of
+populating these scalars within the code.  Because we are only returning
+one value, we don't need a C<PPCODE:> directive - instead, we use C<CODE:>
+and C<OUTPUT:> directives.
+
+=item *
+
+When dealing with references, it is important to handle them with caution.
+The C<INIT:> block first calls SvGETMAGIC(paths), in case
+paths is a tied variable.  Then it checks that C<SvROK> returns
+true, which indicates that paths is a valid reference.  (Simply
+checking C<SvROK> won't trigger FETCH on a tied variable.)  It
+then verifies that the object referenced by paths is an array, using C<SvRV>
+to dereference paths, and C<SvTYPE> to discover its type.  As an added test,
+it checks that the array referenced by paths is non-empty, using the
+C<av_top_index> function (which returns -1 if the array is empty). The
+XSRETURN_UNDEF macro is used to abort the XSUB and return the undefined value
+whenever all three of these conditions are not met.
+
+=item *
+
+We manipulate several arrays in this XSUB.  Note that an array is represented
+internally by an AV* pointer.  The functions and macros for manipulating
+arrays are similar to the functions in Perl: C<av_top_index> returns the
+highest index in an AV*, much like $#array; C<av_fetch> fetches a single scalar
+value from an array, given its index; C<av_push> pushes a scalar value onto the
+end of the array, automatically extending the array as necessary.
+
+Specifically, we read pathnames one at a time from the input array, and
+store the results in an output array (results) in the same order.  If
+statfs fails, the element pushed onto the return array is the value of
+errno after the failure.  If statfs succeeds, though, the value pushed
+onto the return array is a reference to a hash containing some of the
+information in the statfs structure.
+
+As with the return stack, it would be possible (and a small performance win)
+to pre-extend the return array before pushing data into it, since we know
+how many elements we will return:
+
+	av_extend(results, numpaths);
+
+=item *
+
+We are performing only one hash operation in this function, which is storing
+a new scalar under a key using C<hv_store>.  A hash is represented by an HV*
+pointer.  Like arrays, the functions for manipulating hashes from an XSUB
+mirror the functionality available from Perl.  See L<perlguts> and L<perlapi>
+for details.
+
+=item *
+
+To create a reference, we use the C<newRV> function.  Note that you can
+cast an AV* or an HV* to type SV* in this case (and many others).  This
+allows you to take references to arrays, hashes and scalars with the same
+function.  Conversely, the C<SvRV> function always returns an SV*, which may
+need to be cast to the appropriate type if it is something other than a
+scalar (check with C<SvTYPE>).
+
+=item *
+
+At this point, xsubpp is doing very little work - the differences between
+Mytest.xs and Mytest.c are minimal.
+
+=back
+
+=head2 EXAMPLE 7 (Coming Soon)
+
+XPUSH args AND set RETVAL AND assign return value to array
+
+=head2 EXAMPLE 8 (Coming Soon)
+
+Setting $!
+
+=head2 EXAMPLE 9 Passing open files to XSes
+
+You would think passing files to an XS is difficult, with all the
+typeglobs and stuff. Well, it isn't.
+
+Suppose that for some strange reason we need a wrapper around the
+standard C library function C<fputs()>. This is all we need:
+
+	#define PERLIO_NOT_STDIO 0
+	#define PERL_NO_GET_CONTEXT
+	#include "EXTERN.h"
+	#include "perl.h"
+	#include "XSUB.h"
+
+	#include <stdio.h>
+
+	int
+	fputs(s, stream)
+		char *          s
+		FILE *	        stream
+
+The real work is done in the standard typemap.
+
+B<But> you lose all the fine stuff done by the perlio layers. This
+calls the stdio function C<fputs()>, which knows nothing about them.
+
+The standard typemap offers three variants of PerlIO *:
+C<InputStream> (T_IN), C<InOutStream> (T_INOUT) and C<OutputStream>
+(T_OUT). A bare C<PerlIO *> is considered a T_INOUT. If it matters
+in your code (see below for why it might) #define or typedef
+one of the specific names and use that as the argument or result
+type in your XS file.
+
+The standard typemap does not contain PerlIO * before perl 5.7,
+but it has the three stream variants. Using a PerlIO * directly
+is not backwards compatible unless you provide your own typemap.
+
+For streams coming I<from> perl the main difference is that
+C<OutputStream> will get the output PerlIO * - which may make
+a difference on a socket. Like in our example...
+
+For streams being handed I<to> perl a new file handle is created
+(i.e. a reference to a new glob) and associated with the PerlIO *
+provided. If the read/write state of the PerlIO * is not correct then you
+may get errors or warnings from when the file handle is used.
+So if you opened the PerlIO * as "w" it should really be an
+C<OutputStream> if open as "r" it should be an C<InputStream>.
+
+Now, suppose you want to use perlio layers in your XS. We'll use the
+perlio C<PerlIO_puts()> function as an example.
+
+In the C part of the XS file (above the first MODULE line) you
+have
+
+	#define OutputStream	PerlIO *
+    or
+	typedef PerlIO *	OutputStream;
+
+
+And this is the XS code:
+
+	int
+	perlioputs(s, stream)
+		char *          s
+		OutputStream	stream
+	CODE:
+		RETVAL = PerlIO_puts(stream, s);
+	OUTPUT:
+		RETVAL
+
+We have to use a C<CODE> section because C<PerlIO_puts()> has the arguments
+reversed compared to C<fputs()>, and we want to keep the arguments the same.
+
+Wanting to explore this thoroughly, we want to use the stdio C<fputs()>
+on a PerlIO *. This means we have to ask the perlio system for a stdio
+C<FILE *>:
+
+	int
+	perliofputs(s, stream)
+		char *          s
+		OutputStream	stream
+	PREINIT:
+		FILE *fp = PerlIO_findFILE(stream);
+	CODE:
+		if (fp != (FILE*) 0) {
+			RETVAL = fputs(s, fp);
+		} else {
+			RETVAL = -1;
+		}
+	OUTPUT:
+		RETVAL
+
+Note: C<PerlIO_findFILE()> will search the layers for a stdio
+layer. If it can't find one, it will call C<PerlIO_exportFILE()> to
+generate a new stdio C<FILE>. Please only call C<PerlIO_exportFILE()> if
+you want a I<new> C<FILE>. It will generate one on each call and push a
+new stdio layer. So don't call it repeatedly on the same
+file. C<PerlIO_findFILE()> will retrieve the stdio layer once it has been
+generated by C<PerlIO_exportFILE()>.
+
+This applies to the perlio system only. For versions before 5.7,
+C<PerlIO_exportFILE()> is equivalent to C<PerlIO_findFILE()>.
+
+=head2 Troubleshooting these Examples
+
+As mentioned at the top of this document, if you are having problems with
+these example extensions, you might see if any of these help you.
+
+=over 4
+
+=item *
+
+In versions of 5.002 prior to the gamma version, the test script in Example
+1 will not function properly.  You need to change the "use lib" line to
+read:
+
+	use lib './blib';
+
+=item *
+
+In versions of 5.002 prior to version 5.002b1h, the test.pl file was not
+automatically created by h2xs.  This means that you cannot say "make test"
+to run the test script.  You will need to add the following line before the
+"use extension" statement:
+
+	use lib './blib';
+
+=item *
+
+In versions 5.000 and 5.001, instead of using the above line, you will need
+to use the following line:
+
+	BEGIN { unshift(@INC, "./blib") }
+
+=item *
+
+This document assumes that the executable named "perl" is Perl version 5.
+Some systems may have installed Perl version 5 as "perl5".
+
+=back
+
+=head1 See also
+
+For more information, consult L<perlguts>, L<perlapi>, L<perlxs>, L<perlmod>,
+and L<perlpod>.
+
+=head1 Author
+
+Jeff Okamoto <F<okamoto@corp.hp.com>>
+
+Reviewed and assisted by Dean Roehrich, Ilya Zakharevich, Andreas Koenig,
+and Tim Bunce.
+
+PerlIO material contributed by Lupe Christoph, with some clarification
+by Nick Ing-Simmons.
+
+Changes for h2xs as of Perl 5.8.x by Renee Baecker
+
+=head2 Last Changed
+
+2012-01-20
diff --git a/lib/5.24.1/pod/perlxstypemap.pod b/lib/5.24.1/pod/perlxstypemap.pod
new file mode 100644
index 00000000..7d1f73c5
--- /dev/null
+++ b/lib/5.24.1/pod/perlxstypemap.pod
@@ -0,0 +1,711 @@
+=head1 NAME
+
+perlxstypemap - Perl XS C/Perl type mapping
+
+=head1 DESCRIPTION
+
+The more you think about interfacing between two languages, the more
+you'll realize that the majority of programmer effort has to go into
+converting between the data structures that are native to either of
+the languages involved.  This trumps other matter such as differing
+calling conventions because the problem space is so much greater.
+There are simply more ways to shove data into memory than there are
+ways to implement a function call.
+
+Perl XS' attempt at a solution to this is the concept of typemaps.
+At an abstract level, a Perl XS typemap is nothing but a recipe for
+converting from a certain Perl data structure to a certain C
+data structure and vice versa.  Since there can be C types that
+are sufficiently similar to one another to warrant converting with
+the same logic, XS typemaps are represented by a unique identifier,
+henceforth called an B<XS type> in this document.  You can then tell
+the XS compiler that multiple C types are to be mapped with the same
+XS typemap.
+
+In your XS code, when you define an argument with a C type or when
+you are using a C<CODE:> and an C<OUTPUT:> section together with a
+C return type of your XSUB, it'll be the typemapping mechanism that
+makes this easy.
+
+=head2 Anatomy of a typemap
+
+In more practical terms, the typemap is a collection of code
+fragments which are used by the B<xsubpp> compiler to map C function
+parameters and values to Perl values.  The typemap file may consist
+of three sections labelled C<TYPEMAP>, C<INPUT>, and C<OUTPUT>.
+An unlabelled initial section is assumed to be a C<TYPEMAP> section.
+The INPUT section tells the compiler how to translate Perl values
+into variables of certain C types.  The OUTPUT section tells the
+compiler how to translate the values from certain C types into values
+Perl can understand.  The TYPEMAP section tells the compiler which
+of the INPUT and OUTPUT code fragments should be used to map a given
+C type to a Perl value.  The section labels C<TYPEMAP>, C<INPUT>, or
+C<OUTPUT> must begin in the first column on a line by themselves,
+and must be in uppercase.
+
+Each type of section can appear an arbitrary number of times
+and does not have to appear at all.  For example, a typemap may
+commonly lack C<INPUT> and C<OUTPUT> sections if all it needs to
+do is associate additional C types with core XS types like T_PTROBJ.
+Lines that start with a hash C<#> are considered comments and ignored
+in the C<TYPEMAP> section, but are considered significant in C<INPUT>
+and C<OUTPUT>. Blank lines are generally ignored.
+
+Traditionally, typemaps needed to be written to a separate file,
+conventionally called C<typemap> in a CPAN distribution.  With
+ExtUtils::ParseXS (the XS compiler) version 3.12 or better which
+comes with perl 5.16, typemaps can also be embedded directly into
+XS code using a HERE-doc like syntax:
+
+  TYPEMAP: <<HERE
+  ...
+  HERE
+
+where C<HERE> can be replaced by other identifiers like with normal
+Perl HERE-docs.  All details below about the typemap textual format
+remain valid.
+
+The C<TYPEMAP> section should contain one pair of C type and
+XS type per line as follows.  An example from the core typemap file:
+
+  TYPEMAP
+  # all variants of char* is handled by the T_PV typemap
+  char *          T_PV
+  const char *    T_PV
+  unsigned char * T_PV
+  ...
+
+The C<INPUT> and C<OUTPUT> sections have identical formats, that is,
+each unindented line starts a new in- or output map respectively.
+A new in- or output map must start with the name of the XS type to
+map on a line by itself, followed by the code that implements it
+indented on the following lines. Example:
+
+  INPUT
+  T_PV
+    $var = ($type)SvPV_nolen($arg)
+  T_PTR
+    $var = INT2PTR($type,SvIV($arg))
+
+We'll get to the meaning of those Perlish-looking variables in a
+little bit.
+
+Finally, here's an example of the full typemap file for mapping C
+strings of the C<char *> type to Perl scalars/strings:
+
+  TYPEMAP
+  char *  T_PV
+
+  INPUT
+  T_PV
+    $var = ($type)SvPV_nolen($arg)
+
+  OUTPUT
+  T_PV
+    sv_setpv((SV*)$arg, $var);
+
+Here's a more complicated example: suppose that you wanted
+C<struct netconfig> to be blessed into the class C<Net::Config>.
+One way to do this is to use underscores (_) to separate package
+names, as follows:
+
+  typedef struct netconfig * Net_Config;
+
+And then provide a typemap entry C<T_PTROBJ_SPECIAL> that maps
+underscores to double-colons (::), and declare C<Net_Config> to be of
+that type:
+
+  TYPEMAP
+  Net_Config      T_PTROBJ_SPECIAL
+
+  INPUT
+  T_PTROBJ_SPECIAL
+    if (sv_derived_from($arg, \"${(my $ntt=$ntype)=~s/_/::/g;\$ntt}\")){
+      IV tmp = SvIV((SV*)SvRV($arg));
+      $var = INT2PTR($type, tmp);
+    }
+    else
+      croak(\"$var is not of type ${(my $ntt=$ntype)=~s/_/::/g;\$ntt}\")
+
+  OUTPUT
+  T_PTROBJ_SPECIAL
+    sv_setref_pv($arg, \"${(my $ntt=$ntype)=~s/_/::/g;\$ntt}\",
+                 (void*)$var);
+
+The INPUT and OUTPUT sections substitute underscores for double-colons
+on the fly, giving the desired effect.  This example demonstrates some
+of the power and versatility of the typemap facility.
+
+The C<INT2PTR> macro (defined in perl.h) casts an integer to a pointer
+of a given type, taking care of the possible different size of integers
+and pointers.  There are also C<PTR2IV>, C<PTR2UV>, C<PTR2NV> macros,
+to map the other way, which may be useful in OUTPUT sections.
+
+=head2 The Role of the typemap File in Your Distribution
+
+The default typemap in the F<lib/ExtUtils> directory of the Perl source
+contains many useful types which can be used by Perl extensions.  Some
+extensions define additional typemaps which they keep in their own directory.
+These additional typemaps may reference INPUT and OUTPUT maps in the main
+typemap.  The B<xsubpp> compiler will allow the extension's own typemap to
+override any mappings which are in the default typemap.  Instead of using
+an additional F<typemap> file, typemaps may be embedded verbatim in XS
+with a heredoc-like syntax.  See the documentation on the C<TYPEMAP:> XS
+keyword.
+
+For CPAN distributions, you can assume that the XS types defined by
+the perl core are already available. Additionally, the core typemap
+has default XS types for a large number of C types.  For example, if
+you simply return a C<char *> from your XSUB, the core typemap will
+have this C type associated with the T_PV XS type.  That means your
+C string will be copied into the PV (pointer value) slot of a new scalar
+that will be returned from your XSUB to Perl.
+
+If you're developing a CPAN distribution using XS, you may add your own
+file called F<typemap> to the distribution.  That file may contain
+typemaps that either map types that are specific to your code or that
+override the core typemap file's mappings for common C types.
+
+=head2 Sharing typemaps Between CPAN Distributions
+
+Starting with ExtUtils::ParseXS version 3.13_01 (comes with perl 5.16
+and better), it is rather easy to share typemap code between multiple
+CPAN distributions. The general idea is to share it as a module that
+offers a certain API and have the dependent modules declare that as a
+built-time requirement and import the typemap into the XS. An example
+of such a typemap-sharing module on CPAN is
+C<ExtUtils::Typemaps::Basic>. Two steps to getting that module's
+typemaps available in your code:
+
+=over 4
+
+=item *
+
+Declare C<ExtUtils::Typemaps::Basic> as a build-time dependency
+in C<Makefile.PL> (use C<BUILD_REQUIRES>), or in your C<Build.PL>
+(use C<build_requires>).
+
+=item *
+
+Include the following line in the XS section of your XS file:
+(don't break the line)
+
+  INCLUDE_COMMAND: $^X -MExtUtils::Typemaps::Cmd
+                   -e "print embeddable_typemap(q{Basic})"
+
+=back
+
+=head2 Writing typemap Entries
+
+Each INPUT or OUTPUT typemap entry is a double-quoted Perl string that
+will be evaluated in the presence of certain variables to get the
+final C code for mapping a certain C type.
+
+This means that you can embed Perl code in your typemap (C) code using
+constructs such as
+C<${ perl code that evaluates to scalar reference here }>. A common
+use case is to generate error messages that refer to the true function
+name even when using the ALIAS XS feature:
+
+  ${ $ALIAS ? \q[GvNAME(CvGV(cv))] : \qq[\"$pname\"] }
+
+For many typemap examples, refer to the core typemap file that can be
+found in the perl source tree at F<lib/ExtUtils/typemap>.
+
+The Perl variables that are available for interpolation into typemaps
+are the following:
+
+=over 4
+
+=item *
+
+I<$var> - the name of the input or output variable, eg. RETVAL for
+return values.
+
+=item *
+
+I<$type> - the raw C type of the parameter, any C<:> replaced with
+C<_>.
+e.g. for a type of C<Foo::Bar>, I<$type> is C<Foo__Bar>
+
+=item *
+
+I<$ntype> - the supplied type with C<*> replaced with C<Ptr>.
+e.g. for a type of C<Foo*>, I<$ntype> is C<FooPtr>
+
+=item *
+
+I<$arg> - the stack entry, that the parameter is input from or output
+to, e.g. C<ST(0)>
+
+=item *
+
+I<$argoff> - the argument stack offset of the argument.  ie. 0 for the
+first argument, etc.
+
+=item *
+
+I<$pname> - the full name of the XSUB, with including the C<PACKAGE>
+name, with any C<PREFIX> stripped.  This is the non-ALIAS name.
+
+=item *
+
+I<$Package> - the package specified by the most recent C<PACKAGE>
+keyword.
+
+=item *
+
+I<$ALIAS> - non-zero if the current XSUB has any aliases declared with
+C<ALIAS>.
+
+=back
+
+=head2 Full Listing of Core Typemaps
+
+Each C type is represented by an entry in the typemap file that
+is responsible for converting perl variables (SV, AV, HV, CV, etc.)
+to and from that type. The following sections list all XS types
+that come with perl by default.
+
+=over 4
+
+=item T_SV
+
+This simply passes the C representation of the Perl variable (an SV*)
+in and out of the XS layer. This can be used if the C code wants
+to deal directly with the Perl variable.
+
+=item T_SVREF
+
+Used to pass in and return a reference to an SV.
+
+Note that this typemap does not decrement the reference count
+when returning the reference to an SV*.
+See also: T_SVREF_REFCOUNT_FIXED
+
+=item T_SVREF_FIXED
+
+Used to pass in and return a reference to an SV.
+This is a fixed
+variant of T_SVREF that decrements the refcount appropriately
+when returning a reference to an SV*. Introduced in perl 5.15.4.
+
+=item T_AVREF
+
+From the perl level this is a reference to a perl array.
+From the C level this is a pointer to an AV.
+
+Note that this typemap does not decrement the reference count
+when returning an AV*. See also: T_AVREF_REFCOUNT_FIXED
+
+=item T_AVREF_REFCOUNT_FIXED
+
+From the perl level this is a reference to a perl array.
+From the C level this is a pointer to an AV. This is a fixed
+variant of T_AVREF that decrements the refcount appropriately
+when returning an AV*. Introduced in perl 5.15.4.
+
+=item T_HVREF
+
+From the perl level this is a reference to a perl hash.
+From the C level this is a pointer to an HV.
+
+Note that this typemap does not decrement the reference count
+when returning an HV*. See also: T_HVREF_REFCOUNT_FIXED
+
+=item T_HVREF_REFCOUNT_FIXED
+
+From the perl level this is a reference to a perl hash.
+From the C level this is a pointer to an HV. This is a fixed
+variant of T_HVREF that decrements the refcount appropriately
+when returning an HV*. Introduced in perl 5.15.4.
+
+=item T_CVREF
+
+From the perl level this is a reference to a perl subroutine
+(e.g. $sub = sub { 1 };). From the C level this is a pointer
+to a CV.
+
+Note that this typemap does not decrement the reference count
+when returning an HV*. See also: T_HVREF_REFCOUNT_FIXED
+
+=item T_CVREF_REFCOUNT_FIXED
+
+From the perl level this is a reference to a perl subroutine
+(e.g. $sub = sub { 1 };). From the C level this is a pointer
+to a CV.
+
+This is a fixed
+variant of T_HVREF that decrements the refcount appropriately
+when returning an HV*. Introduced in perl 5.15.4.
+
+=item T_SYSRET
+
+The T_SYSRET typemap is used to process return values from system calls.
+It is only meaningful when passing values from C to perl (there is
+no concept of passing a system return value from Perl to C).
+
+System calls return -1 on error (setting ERRNO with the reason)
+and (usually) 0 on success. If the return value is -1 this typemap
+returns C<undef>. If the return value is not -1, this typemap
+translates a 0 (perl false) to "0 but true" (which
+is perl true) or returns the value itself, to indicate that the
+command succeeded.
+
+The L<POSIX|POSIX> module makes extensive use of this type.
+
+=item T_UV
+
+An unsigned integer.
+
+=item T_IV
+
+A signed integer. This is cast to the required integer type when
+passed to C and converted to an IV when passed back to Perl.
+
+=item T_INT
+
+A signed integer. This typemap converts the Perl value to a native
+integer type (the C<int> type on the current platform). When returning
+the value to perl it is processed in the same way as for T_IV.
+
+Its behaviour is identical to using an C<int> type in XS with T_IV.
+
+=item T_ENUM
+
+An enum value. Used to transfer an enum component
+from C. There is no reason to pass an enum value to C since
+it is stored as an IV inside perl.
+
+=item T_BOOL
+
+A boolean type. This can be used to pass true and false values to and
+from C.
+
+=item T_U_INT
+
+This is for unsigned integers. It is equivalent to using T_UV
+but explicitly casts the variable to type C<unsigned int>.
+The default type for C<unsigned int> is T_UV.
+
+=item T_SHORT
+
+Short integers. This is equivalent to T_IV but explicitly casts
+the return to type C<short>. The default typemap for C<short>
+is T_IV.
+
+=item T_U_SHORT
+
+Unsigned short integers. This is equivalent to T_UV but explicitly
+casts the return to type C<unsigned short>. The default typemap for
+C<unsigned short> is T_UV.
+
+T_U_SHORT is used for type C<U16> in the standard typemap.
+
+=item T_LONG
+
+Long integers. This is equivalent to T_IV but explicitly casts
+the return to type C<long>. The default typemap for C<long>
+is T_IV.
+
+=item T_U_LONG
+
+Unsigned long integers. This is equivalent to T_UV but explicitly
+casts the return to type C<unsigned long>. The default typemap for
+C<unsigned long> is T_UV.
+
+T_U_LONG is used for type C<U32> in the standard typemap.
+
+=item T_CHAR
+
+Single 8-bit characters.
+
+=item T_U_CHAR
+
+An unsigned byte.
+
+=item T_FLOAT
+
+A floating point number. This typemap guarantees to return a variable
+cast to a C<float>.
+
+=item T_NV
+
+A Perl floating point number. Similar to T_IV and T_UV in that the
+return type is cast to the requested numeric type rather than
+to a specific type.
+
+=item T_DOUBLE
+
+A double precision floating point number. This typemap guarantees to
+return a variable cast to a C<double>.
+
+=item T_PV
+
+A string (char *).
+
+=item T_PTR
+
+A memory address (pointer). Typically associated with a C<void *>
+type.
+
+=item T_PTRREF
+
+Similar to T_PTR except that the pointer is stored in a scalar and the
+reference to that scalar is returned to the caller. This can be used
+to hide the actual pointer value from the programmer since it is usually
+not required directly from within perl.
+
+The typemap checks that a scalar reference is passed from perl to XS.
+
+=item T_PTROBJ
+
+Similar to T_PTRREF except that the reference is blessed into a class.
+This allows the pointer to be used as an object. Most commonly used to
+deal with C structs. The typemap checks that the perl object passed
+into the XS routine is of the correct class (or part of a subclass).
+
+The pointer is blessed into a class that is derived from the name
+of type of the pointer but with all '*' in the name replaced with
+'Ptr'.
+
+For C<DESTROY> XSUBs only, a T_PTROBJ is optimized to a T_PTRREF. This means
+the class check is skipped.
+
+=item T_REF_IV_REF
+
+NOT YET
+
+=item T_REF_IV_PTR
+
+Similar to T_PTROBJ in that the pointer is blessed into a scalar object.
+The difference is that when the object is passed back into XS it must be
+of the correct type (inheritance is not supported) while T_PTROBJ supports
+inheritance.
+
+The pointer is blessed into a class that is derived from the name
+of type of the pointer but with all '*' in the name replaced with
+'Ptr'.
+
+For C<DESTROY> XSUBs only, a T_REF_IV_PTR is optimized to a T_PTRREF. This
+means the class check is skipped.
+
+=item T_PTRDESC
+
+NOT YET
+
+=item T_REFREF
+
+Similar to T_PTRREF, except the pointer stored in the referenced scalar
+is dereferenced and copied to the output variable. This means that
+T_REFREF is to T_PTRREF as T_OPAQUE is to T_OPAQUEPTR. All clear?
+
+Only the INPUT part of this is implemented (Perl to XSUB) and there
+are no known users in core or on CPAN.
+
+=item T_REFOBJ
+
+Like T_REFREF, except it does strict type checking (inheritance is not
+supported).
+
+For C<DESTROY> XSUBs only, a T_REFOBJ is optimized to a T_REFREF. This means
+the class check is skipped.
+
+=item T_OPAQUEPTR
+
+This can be used to store bytes in the string component of the
+SV. Here the representation of the data is irrelevant to perl and the
+bytes themselves are just stored in the SV. It is assumed that the C
+variable is a pointer (the bytes are copied from that memory
+location).  If the pointer is pointing to something that is
+represented by 8 bytes then those 8 bytes are stored in the SV (and
+length() will report a value of 8). This entry is similar to T_OPAQUE.
+
+In principle the unpack() command can be used to convert the bytes
+back to a number (if the underlying type is known to be a number).
+
+This entry can be used to store a C structure (the number
+of bytes to be copied is calculated using the C C<sizeof> function)
+and can be used as an alternative to T_PTRREF without having to worry
+about a memory leak (since Perl will clean up the SV).
+
+=item T_OPAQUE
+
+This can be used to store data from non-pointer types in the string
+part of an SV. It is similar to T_OPAQUEPTR except that the
+typemap retrieves the pointer directly rather than assuming it
+is being supplied. For example, if an integer is imported into
+Perl using T_OPAQUE rather than T_IV the underlying bytes representing
+the integer will be stored in the SV but the actual integer value will
+not be available. i.e. The data is opaque to perl.
+
+The data may be retrieved using the C<unpack> function if the
+underlying type of the byte stream is known.
+
+T_OPAQUE supports input and output of simple types.
+T_OPAQUEPTR can be used to pass these bytes back into C if a pointer
+is acceptable.
+
+=item Implicit array
+
+xsubpp supports a special syntax for returning
+packed C arrays to perl. If the XS return type is given as
+
+  array(type, nelem)
+
+xsubpp will copy the contents of C<nelem * sizeof(type)> bytes from
+RETVAL to an SV and push it onto the stack. This is only really useful
+if the number of items to be returned is known at compile time and you
+don't mind having a string of bytes in your SV.  Use T_ARRAY to push a
+variable number of arguments onto the return stack (they won't be
+packed as a single string though).
+
+This is similar to using T_OPAQUEPTR but can be used to process more
+than one element.
+
+=item T_PACKED
+
+Calls user-supplied functions for conversion. For C<OUTPUT>
+(XSUB to Perl), a function named C<XS_pack_$ntype> is called
+with the output Perl scalar and the C variable to convert from.
+C<$ntype> is the normalized C type that is to be mapped to
+Perl. Normalized means that all C<*> are replaced by the
+string C<Ptr>. The return value of the function is ignored.
+
+Conversely for C<INPUT> (Perl to XSUB) mapping, the
+function named C<XS_unpack_$ntype> is called with the input Perl
+scalar as argument and the return value is cast to the mapped
+C type and assigned to the output C variable.
+
+An example conversion function for a typemapped struct
+C<foo_t *> might be:
+
+  static void
+  XS_pack_foo_tPtr(SV *out, foo_t *in)
+  {
+    dTHX; /* alas, signature does not include pTHX_ */
+    HV* hash = newHV();
+    hv_stores(hash, "int_member", newSViv(in->int_member));
+    hv_stores(hash, "float_member", newSVnv(in->float_member));
+    /* ... */
+
+    /* mortalize as thy stack is not refcounted */
+    sv_setsv(out, sv_2mortal(newRV_noinc((SV*)hash)));
+  }
+
+The conversion from Perl to C is left as an exercise to the reader,
+but the prototype would be:
+
+  static foo_t *
+  XS_unpack_foo_tPtr(SV *in);
+
+Instead of an actual C function that has to fetch the thread context
+using C<dTHX>, you can define macros of the same name and avoid the
+overhead. Also, keep in mind to possibly free the memory allocated by
+C<XS_unpack_foo_tPtr>.
+
+=item T_PACKEDARRAY
+
+T_PACKEDARRAY is similar to T_PACKED. In fact, the C<INPUT> (Perl
+to XSUB) typemap is identical, but the C<OUTPUT> typemap passes
+an additional argument to the C<XS_pack_$ntype> function. This
+third parameter indicates the number of elements in the output
+so that the function can handle C arrays sanely. The variable
+needs to be declared by the user and must have the name
+C<count_$ntype> where C<$ntype> is the normalized C type name
+as explained above. The signature of the function would be for
+the example above and C<foo_t **>:
+
+  static void
+  XS_pack_foo_tPtrPtr(SV *out, foo_t *in, UV count_foo_tPtrPtr);
+
+The type of the third parameter is arbitrary as far as the typemap
+is concerned. It just has to be in line with the declared variable.
+
+Of course, unless you know the number of elements in the
+C<sometype **> C array, within your XSUB, the return value from
+C<foo_t ** XS_unpack_foo_tPtrPtr(...)> will be hard to decipher.
+Since the details are all up to the XS author (the typemap user),
+there are several solutions, none of which particularly elegant.
+The most commonly seen solution has been to allocate memory for
+N+1 pointers and assign C<NULL> to the (N+1)th to facilitate
+iteration.
+
+Alternatively, using a customized typemap for your purposes in
+the first place is probably preferable.
+
+=item T_DATAUNIT
+
+NOT YET
+
+=item T_CALLBACK
+
+NOT YET
+
+=item T_ARRAY
+
+This is used to convert the perl argument list to a C array
+and for pushing the contents of a C array onto the perl
+argument stack.
+
+The usual calling signature is
+
+  @out = array_func( @in );
+
+Any number of arguments can occur in the list before the array but
+the input and output arrays must be the last elements in the list.
+
+When used to pass a perl list to C the XS writer must provide a
+function (named after the array type but with 'Ptr' substituted for
+'*') to allocate the memory required to hold the list. A pointer
+should be returned. It is up to the XS writer to free the memory on
+exit from the function. The variable C<ix_$var> is set to the number
+of elements in the new array.
+
+When returning a C array to Perl the XS writer must provide an integer
+variable called C<size_$var> containing the number of elements in the
+array. This is used to determine how many elements should be pushed
+onto the return argument stack. This is not required on input since
+Perl knows how many arguments are on the stack when the routine is
+called. Ordinarily this variable would be called C<size_RETVAL>.
+
+Additionally, the type of each element is determined from the type of
+the array. If the array uses type C<intArray *> xsubpp will
+automatically work out that it contains variables of type C<int> and
+use that typemap entry to perform the copy of each element. All
+pointer '*' and 'Array' tags are removed from the name to determine
+the subtype.
+
+=item T_STDIO
+
+This is used for passing perl filehandles to and from C using
+C<FILE *> structures.
+
+=item T_INOUT
+
+This is used for passing perl filehandles to and from C using
+C<PerlIO *> structures. The file handle can used for reading and
+writing. This corresponds to the C<+E<lt>> mode, see also T_IN
+and T_OUT.
+
+See L<perliol> for more information on the Perl IO abstraction
+layer. Perl must have been built with C<-Duseperlio>.
+
+There is no check to assert that the filehandle passed from Perl
+to C was created with the right C<open()> mode.
+
+Hint: The L<perlxstut> tutorial covers the T_INOUT, T_IN, and T_OUT
+XS types nicely.
+
+=item T_IN
+
+Same as T_INOUT, but the filehandle that is returned from C to Perl
+can only be used for reading (mode C<E<lt>>).
+
+=item T_OUT
+
+Same as T_INOUT, but the filehandle that is returned from C to Perl
+is set to use the open mode C<+E<gt>>.
+
+=back
+
diff --git a/lib/5.24.1/sigtrap.pm b/lib/5.24.1/sigtrap.pm
new file mode 100644
index 00000000..7d801461
--- /dev/null
+++ b/lib/5.24.1/sigtrap.pm
@@ -0,0 +1,289 @@
+package sigtrap;
+
+=head1 NAME
+
+sigtrap - Perl pragma to enable simple signal handling
+
+=cut
+
+use Carp;
+
+$VERSION = 1.08;
+$Verbose ||= 0;
+
+sub import {
+    my $pkg = shift;
+    my $handler = \&handler_traceback;
+    my $saw_sig = 0;
+    my $untrapped = 0;
+    local $_;
+
+  Arg_loop:
+    while (@_) {
+	$_ = shift;
+	if (/^[A-Z][A-Z0-9]*$/) {
+	    $saw_sig++;
+	    unless ($untrapped and $SIG{$_} and $SIG{$_} ne 'DEFAULT') {
+		print "Installing handler $handler for $_\n" if $Verbose;
+		$SIG{$_} = $handler;
+	    }
+	}
+	elsif ($_ eq 'normal-signals') {
+	    unshift @_, grep(exists $SIG{$_}, qw(HUP INT PIPE TERM));
+	}
+	elsif ($_ eq 'error-signals') {
+	    unshift @_, grep(exists $SIG{$_},
+			     qw(ABRT BUS EMT FPE ILL QUIT SEGV SYS TRAP));
+	}
+	elsif ($_ eq 'old-interface-signals') {
+	    unshift @_,
+	    grep(exists $SIG{$_},
+		 qw(ABRT BUS EMT FPE ILL PIPE QUIT SEGV SYS TERM TRAP));
+	}
+    	elsif ($_ eq 'stack-trace') {
+	    $handler = \&handler_traceback;
+	}
+	elsif ($_ eq 'die') {
+	    $handler = \&handler_die;
+	}
+	elsif ($_ eq 'handler') {
+	    @_ or croak "No argument specified after 'handler'";
+	    $handler = shift;
+	    unless (ref $handler or $handler eq 'IGNORE'
+			or $handler eq 'DEFAULT') {
+    	    	require Symbol;
+		$handler = Symbol::qualify($handler, (caller)[0]);
+	    }
+	}
+	elsif ($_ eq 'untrapped') {
+	    $untrapped = 1;
+	}
+	elsif ($_ eq 'any') {
+	    $untrapped = 0;
+	}
+	elsif ($_ =~ /^\d/) {
+	    $VERSION >= $_ or croak "sigtrap.pm version $_ required,"
+		    	    	    	. " but this is only version $VERSION";
+	}
+	else {
+	    croak "Unrecognized argument $_";
+	}
+    }
+    unless ($saw_sig) {
+	@_ = qw(old-interface-signals);
+	goto Arg_loop;
+    }
+}
+
+sub handler_die {
+    croak "Caught a SIG$_[0]";
+}
+
+sub handler_traceback {
+    package DB;		# To get subroutine args.
+    $SIG{'ABRT'} = DEFAULT;
+    kill 'ABRT', $$ if $panic++;
+    syswrite(STDERR, 'Caught a SIG', 12);
+    syswrite(STDERR, $_[0], length($_[0]));
+    syswrite(STDERR, ' at ', 4);
+    ($pack,$file,$line) = caller;
+    syswrite(STDERR, $file, length($file));
+    syswrite(STDERR, ' line ', 6);
+    syswrite(STDERR, $line, length($line));
+    syswrite(STDERR, "\n", 1);
+
+    # Now go for broke.
+    for ($i = 1; ($p,$f,$l,$s,$h,$w,$e,$r) = caller($i); $i++) {
+        @a = ();
+	for (@{[@args]}) {
+	    s/([\'\\])/\\$1/g;
+	    s/([^\0]*)/'$1'/
+	      unless /^(?: -?[\d.]+ | \*[\w:]* )$/x;
+            require 'meta_notation.pm';
+            $_ = _meta_notation($_) if /[[:^print:]]/a;
+	    push(@a, $_);
+	}
+	$w = $w ? '@ = ' : '$ = ';
+	$a = $h ? '(' . join(', ', @a) . ')' : '';
+	$e =~ s/\n\s*\;\s*\Z// if $e;
+	$e =~ s/[\\\']/\\$1/g if $e;
+	if ($r) {
+	    $s = "require '$e'";
+	} elsif (defined $r) {
+	    $s = "eval '$e'";
+	} elsif ($s eq '(eval)') {
+	    $s = "eval {...}";
+	}
+	$f = "file '$f'" unless $f eq '-e';
+	$mess = "$w$s$a called from $f line $l\n";
+	syswrite(STDERR, $mess, length($mess));
+    }
+    kill 'ABRT', $$;
+}
+
+1;
+
+__END__
+
+=head1 SYNOPSIS
+
+    use sigtrap;
+    use sigtrap qw(stack-trace old-interface-signals);	# equivalent
+    use sigtrap qw(BUS SEGV PIPE ABRT);
+    use sigtrap qw(die INT QUIT);
+    use sigtrap qw(die normal-signals);
+    use sigtrap qw(die untrapped normal-signals);
+    use sigtrap qw(die untrapped normal-signals
+		    stack-trace any error-signals);
+    use sigtrap 'handler' => \&my_handler, 'normal-signals';
+    use sigtrap qw(handler my_handler normal-signals
+    	    	    stack-trace error-signals);
+
+=head1 DESCRIPTION
+
+The B<sigtrap> pragma is a simple interface to installing signal
+handlers.  You can have it install one of two handlers supplied by
+B<sigtrap> itself (one which provides a Perl stack trace and one which
+simply C<die()>s), or alternately you can supply your own handler for it
+to install.  It can be told only to install a handler for signals which
+are either untrapped or ignored.  It has a couple of lists of signals to
+trap, plus you can supply your own list of signals.
+
+The arguments passed to the C<use> statement which invokes B<sigtrap>
+are processed in order.  When a signal name or the name of one of
+B<sigtrap>'s signal lists is encountered a handler is immediately
+installed, when an option is encountered it affects subsequently
+installed handlers.
+
+=head1 OPTIONS
+
+=head2 SIGNAL HANDLERS
+
+These options affect which handler will be used for subsequently
+installed signals.
+
+=over 4
+
+=item B<stack-trace>
+
+The handler used for subsequently installed signals outputs a Perl stack
+trace to STDERR and then tries to dump core.  This is the default signal
+handler.
+
+=item B<die>
+
+The handler used for subsequently installed signals calls C<die>
+(actually C<croak>) with a message indicating which signal was caught.
+
+=item B<handler> I<your-handler>
+
+I<your-handler> will be used as the handler for subsequently installed
+signals.  I<your-handler> can be any value which is valid as an
+assignment to an element of C<%SIG>. See L<perlvar> for examples of
+handler functions.
+
+=back
+
+=head2 SIGNAL LISTS
+
+B<sigtrap> has a few built-in lists of signals to trap.  They are:
+
+=over 4
+
+=item B<normal-signals>
+
+These are the signals which a program might normally expect to encounter
+and which by default cause it to terminate.  They are HUP, INT, PIPE and
+TERM.
+
+=item B<error-signals>
+
+These signals usually indicate a serious problem with the Perl
+interpreter or with your script.  They are ABRT, BUS, EMT, FPE, ILL,
+QUIT, SEGV, SYS and TRAP.
+
+=item B<old-interface-signals>
+
+These are the signals which were trapped by default by the old
+B<sigtrap> interface, they are ABRT, BUS, EMT, FPE, ILL, PIPE, QUIT,
+SEGV, SYS, TERM, and TRAP.  If no signals or signals lists are passed to
+B<sigtrap>, this list is used.
+
+=back
+
+For each of these three lists, the collection of signals set to be
+trapped is checked before trapping; if your architecture does not
+implement a particular signal, it will not be trapped but rather
+silently ignored.
+
+=head2 OTHER
+
+=over 4
+
+=item B<untrapped>
+
+This token tells B<sigtrap> to install handlers only for subsequently
+listed signals which aren't already trapped or ignored.
+
+=item B<any>
+
+This token tells B<sigtrap> to install handlers for all subsequently
+listed signals.  This is the default behavior.
+
+=item I<signal>
+
+Any argument which looks like a signal name (that is,
+C</^[A-Z][A-Z0-9]*$/>) indicates that B<sigtrap> should install a
+handler for that name.
+
+=item I<number>
+
+Require that at least version I<number> of B<sigtrap> is being used.
+
+=back
+
+=head1 EXAMPLES
+
+Provide a stack trace for the old-interface-signals:
+
+    use sigtrap;
+
+Ditto:
+
+    use sigtrap qw(stack-trace old-interface-signals);
+
+Provide a stack trace on the 4 listed signals only:
+
+    use sigtrap qw(BUS SEGV PIPE ABRT);
+
+Die on INT or QUIT:
+
+    use sigtrap qw(die INT QUIT);
+
+Die on HUP, INT, PIPE or TERM:
+
+    use sigtrap qw(die normal-signals);
+
+Die on HUP, INT, PIPE or TERM, except don't change the behavior for
+signals which are already trapped or ignored:
+
+    use sigtrap qw(die untrapped normal-signals);
+
+Die on receipt one of an of the B<normal-signals> which is currently
+B<untrapped>, provide a stack trace on receipt of B<any> of the
+B<error-signals>:
+
+    use sigtrap qw(die untrapped normal-signals
+		    stack-trace any error-signals);
+
+Install my_handler() as the handler for the B<normal-signals>:
+
+    use sigtrap 'handler', \&my_handler, 'normal-signals';
+
+Install my_handler() as the handler for the normal-signals, provide a
+Perl stack trace on receipt of one of the error-signals:
+
+    use sigtrap qw(handler my_handler normal-signals
+    	    	    stack-trace error-signals);
+
+=cut
diff --git a/lib/5.24.1/sort.pm b/lib/5.24.1/sort.pm
new file mode 100644
index 00000000..7c8e50db
--- /dev/null
+++ b/lib/5.24.1/sort.pm
@@ -0,0 +1,196 @@
+package sort;
+
+our $VERSION = '2.02';
+
+# The hints for pp_sort are now stored in $^H{sort}; older versions
+# of perl used the global variable $sort::hints. -- rjh 2005-12-19
+
+$sort::quicksort_bit   = 0x00000001;
+$sort::mergesort_bit   = 0x00000002;
+$sort::sort_bits       = 0x000000FF; # allow 256 different ones
+$sort::stable_bit      = 0x00000100;
+
+use strict;
+
+sub import {
+    shift;
+    if (@_ == 0) {
+	require Carp;
+	Carp::croak("sort pragma requires arguments");
+    }
+    local $_;
+    $^H{sort} //= 0;
+    while ($_ = shift(@_)) {
+	if (/^_q(?:uick)?sort$/) {
+	    $^H{sort} &= ~$sort::sort_bits;
+	    $^H{sort} |=  $sort::quicksort_bit;
+	} elsif ($_ eq '_mergesort') {
+	    $^H{sort} &= ~$sort::sort_bits;
+	    $^H{sort} |=  $sort::mergesort_bit;
+	} elsif ($_ eq 'stable') {
+	    $^H{sort} |=  $sort::stable_bit;
+	} elsif ($_ eq 'defaults') {
+	    $^H{sort} =   0;
+	} else {
+	    require Carp;
+	    Carp::croak("sort: unknown subpragma '$_'");
+	}
+    }
+}
+
+sub unimport {
+    shift;
+    if (@_ == 0) {
+	require Carp;
+	Carp::croak("sort pragma requires arguments");
+    }
+    local $_;
+    no warnings 'uninitialized';	# bitops would warn
+    while ($_ = shift(@_)) {
+	if (/^_q(?:uick)?sort$/) {
+	    $^H{sort} &= ~$sort::sort_bits;
+	} elsif ($_ eq '_mergesort') {
+	    $^H{sort} &= ~$sort::sort_bits;
+	} elsif ($_ eq 'stable') {
+	    $^H{sort} &= ~$sort::stable_bit;
+	} else {
+	    require Carp;
+	    Carp::croak("sort: unknown subpragma '$_'");
+	}
+    }
+}
+
+sub current {
+    my @sort;
+    if ($^H{sort}) {
+	push @sort, 'quicksort' if $^H{sort} & $sort::quicksort_bit;
+	push @sort, 'mergesort' if $^H{sort} & $sort::mergesort_bit;
+	push @sort, 'stable'    if $^H{sort} & $sort::stable_bit;
+    }
+    push @sort, 'mergesort' unless @sort;
+    join(' ', @sort);
+}
+
+1;
+__END__
+
+=head1 NAME
+
+sort - perl pragma to control sort() behaviour
+
+=head1 SYNOPSIS
+
+    use sort 'stable';		# guarantee stability
+    use sort '_quicksort';	# use a quicksort algorithm
+    use sort '_mergesort';	# use a mergesort algorithm
+    use sort 'defaults';	# revert to default behavior
+    no  sort 'stable';		# stability not important
+
+    use sort '_qsort';		# alias for quicksort
+
+    my $current;
+    BEGIN {
+	$current = sort::current();	# identify prevailing algorithm
+    }
+
+=head1 DESCRIPTION
+
+With the C<sort> pragma you can control the behaviour of the builtin
+C<sort()> function.
+
+In Perl versions 5.6 and earlier the quicksort algorithm was used to
+implement C<sort()>, but in Perl 5.8 a mergesort algorithm was also made
+available, mainly to guarantee worst case O(N log N) behaviour:
+the worst case of quicksort is O(N**2).  In Perl 5.8 and later,
+quicksort defends against quadratic behaviour by shuffling large
+arrays before sorting.
+
+A stable sort means that for records that compare equal, the original
+input ordering is preserved.  Mergesort is stable, quicksort is not.
+Stability will matter only if elements that compare equal can be
+distinguished in some other way.  That means that simple numerical
+and lexical sorts do not profit from stability, since equal elements
+are indistinguishable.  However, with a comparison such as
+
+   { substr($a, 0, 3) cmp substr($b, 0, 3) }
+
+stability might matter because elements that compare equal on the
+first 3 characters may be distinguished based on subsequent characters.
+In Perl 5.8 and later, quicksort can be stabilized, but doing so will
+add overhead, so it should only be done if it matters.
+
+The best algorithm depends on many things.  On average, mergesort
+does fewer comparisons than quicksort, so it may be better when
+complicated comparison routines are used.  Mergesort also takes
+advantage of pre-existing order, so it would be favored for using
+C<sort()> to merge several sorted arrays.  On the other hand, quicksort
+is often faster for small arrays, and on arrays of a few distinct
+values, repeated many times.  You can force the
+choice of algorithm with this pragma, but this feels heavy-handed,
+so the subpragmas beginning with a C<_> may not persist beyond Perl 5.8.
+The default algorithm is mergesort, which will be stable even if
+you do not explicitly demand it.
+But the stability of the default sort is a side-effect that could
+change in later versions.  If stability is important, be sure to
+say so with a
+
+  use sort 'stable';
+
+The C<no sort> pragma doesn't
+I<forbid> what follows, it just leaves the choice open.  Thus, after
+
+  no sort qw(_mergesort stable);
+
+a mergesort, which happens to be stable, will be employed anyway.
+Note that
+
+  no sort "_quicksort";
+  no sort "_mergesort";
+
+have exactly the same effect, leaving the choice of sort algorithm open.
+
+=head1 CAVEATS
+
+As of Perl 5.10, this pragma is lexically scoped and takes effect
+at compile time. In earlier versions its effect was global and took
+effect at run-time; the documentation suggested using C<eval()> to
+change the behaviour:
+
+  { eval 'use sort qw(defaults _quicksort)'; # force quicksort
+    eval 'no sort "stable"';      # stability not wanted
+    print sort::current . "\n";
+    @a = sort @b;
+    eval 'use sort "defaults"';   # clean up, for others
+  }
+  { eval 'use sort qw(defaults stable)';     # force stability
+    print sort::current . "\n";
+    @c = sort @d;
+    eval 'use sort "defaults"';   # clean up, for others
+  }
+
+Such code no longer has the desired effect, for two reasons.
+Firstly, the use of C<eval()> means that the sorting algorithm
+is not changed until runtime, by which time it's too late to
+have any effect. Secondly, C<sort::current> is also called at
+run-time, when in fact the compile-time value of C<sort::current>
+is the one that matters.
+
+So now this code would be written:
+
+  { use sort qw(defaults _quicksort); # force quicksort
+    no sort "stable";      # stability not wanted
+    my $current;
+    BEGIN { $current = sort::current; }
+    print "$current\n";
+    @a = sort @b;
+    # Pragmas go out of scope at the end of the block
+  }
+  { use sort qw(defaults stable);     # force stability
+    my $current;
+    BEGIN { $current = sort::current; }
+    print "$current\n";
+    @c = sort @d;
+  }
+
+=cut
+
diff --git a/lib/5.24.1/strict.pm b/lib/5.24.1/strict.pm
new file mode 100644
index 00000000..923c9213
--- /dev/null
+++ b/lib/5.24.1/strict.pm
@@ -0,0 +1,184 @@
+package strict;
+
+$strict::VERSION = "1.11";
+
+my ( %bitmask, %explicit_bitmask );
+
+BEGIN {
+    # Verify that we're called correctly so that strictures will work.
+    # Can't use Carp, since Carp uses us!
+    # see also warnings.pm.
+    die sprintf "Incorrect use of pragma '%s' at %s line %d.\n", __PACKAGE__, +(caller)[1,2]
+        if __FILE__ !~ ( '(?x) \b     '.__PACKAGE__.'  \.pmc? \z' )
+        && __FILE__ =~ ( '(?x) \b (?i:'.__PACKAGE__.') \.pmc? \z' );
+
+    %bitmask = (
+        refs => 0x00000002,
+        subs => 0x00000200,
+        vars => 0x00000400,
+    );
+
+    %explicit_bitmask = (
+        refs => 0x00000020,
+        subs => 0x00000040,
+        vars => 0x00000080,
+    );
+
+    my $bits = 0;
+    $bits |= $_ for values %bitmask;
+
+    my $inline_all_bits = $bits;
+    *all_bits = sub () { $inline_all_bits };
+
+    $bits = 0;
+    $bits |= $_ for values %explicit_bitmask;
+
+    my $inline_all_explicit_bits = $bits;
+    *all_explicit_bits = sub () { $inline_all_explicit_bits };
+}
+
+sub bits {
+    my $bits = 0;
+    my @wrong;
+    foreach my $s (@_) {
+        if (exists $bitmask{$s}) {
+            $^H |= $explicit_bitmask{$s};
+
+            $bits |= $bitmask{$s};
+        }
+        else {
+            push @wrong, $s;
+        }
+    }
+    if (@wrong) {
+        require Carp;
+        Carp::croak("Unknown 'strict' tag(s) '@wrong'");
+    }
+    $bits;
+}
+
+sub import {
+    shift;
+    $^H |= @_ ? &bits : all_bits | all_explicit_bits;
+}
+
+sub unimport {
+    shift;
+
+    if (@_) {
+        $^H &= ~&bits;
+    }
+    else {
+        $^H &= ~all_bits;
+        $^H |= all_explicit_bits;
+    }
+}
+
+1;
+__END__
+
+=head1 NAME
+
+strict - Perl pragma to restrict unsafe constructs
+
+=head1 SYNOPSIS
+
+    use strict;
+
+    use strict "vars";
+    use strict "refs";
+    use strict "subs";
+
+    use strict;
+    no strict "vars";
+
+=head1 DESCRIPTION
+
+The C<strict> pragma disables certain Perl expressions that could behave
+unexpectedly or are difficult to debug, turning them into errors. The
+effect of this pragma is limited to the current file or scope block.
+
+If no import list is supplied, all possible restrictions are assumed.
+(This is the safest mode to operate in, but is sometimes too strict for
+casual programming.)  Currently, there are three possible things to be
+strict about:  "subs", "vars", and "refs".
+
+=over 6
+
+=item C<strict refs>
+
+This generates a runtime error if you 
+use symbolic references (see L<perlref>).
+
+    use strict 'refs';
+    $ref = \$foo;
+    print $$ref;	# ok
+    $ref = "foo";
+    print $$ref;	# runtime error; normally ok
+    $file = "STDOUT";
+    print $file "Hi!";	# error; note: no comma after $file
+
+There is one exception to this rule:
+
+    $bar = \&{'foo'};
+    &$bar;
+
+is allowed so that C<goto &$AUTOLOAD> would not break under stricture.
+
+
+=item C<strict vars>
+
+This generates a compile-time error if you access a variable that was
+neither explicitly declared (using any of C<my>, C<our>, C<state>, or C<use
+vars>) nor fully qualified.  (Because this is to avoid variable suicide
+problems and subtle dynamic scoping issues, a merely C<local> variable isn't
+good enough.)  See L<perlfunc/my>, L<perlfunc/our>, L<perlfunc/state>,
+L<perlfunc/local>, and L<vars>.
+
+    use strict 'vars';
+    $X::foo = 1;	 # ok, fully qualified
+    my $foo = 10;	 # ok, my() var
+    local $baz = 9;	 # blows up, $baz not declared before
+
+    package Cinna;
+    our $bar;			# Declares $bar in current package
+    $bar = 'HgS';		# ok, global declared via pragma
+
+The local() generated a compile-time error because you just touched a global
+name without fully qualifying it.
+
+Because of their special use by sort(), the variables $a and $b are
+exempted from this check.
+
+=item C<strict subs>
+
+This disables the poetry optimization, generating a compile-time error if
+you try to use a bareword identifier that's not a subroutine, unless it
+is a simple identifier (no colons) and that it appears in curly braces or
+on the left hand side of the C<< => >> symbol.
+
+    use strict 'subs';
+    $SIG{PIPE} = Plumber;   # blows up
+    $SIG{PIPE} = "Plumber"; # fine: quoted string is always ok
+    $SIG{PIPE} = \&Plumber; # preferred form
+
+=back
+
+See L<perlmodlib/Pragmatic Modules>.
+
+=head1 HISTORY
+
+C<strict 'subs'>, with Perl 5.6.1, erroneously permitted to use an unquoted
+compound identifier (e.g. C<Foo::Bar>) as a hash key (before C<< => >> or
+inside curlies), but without forcing it always to a literal string.
+
+Starting with Perl 5.8.1 strict is strict about its restrictions:
+if unknown restrictions are used, the strict pragma will abort with
+
+    Unknown 'strict' tag(s) '...'
+
+As of version 1.04 (Perl 5.10), strict verifies that it is used as
+"strict" to avoid the dreaded Strict trap on case insensitive file
+systems.
+
+=cut
diff --git a/lib/5.24.1/subs.pm b/lib/5.24.1/subs.pm
new file mode 100644
index 00000000..10d6e023
--- /dev/null
+++ b/lib/5.24.1/subs.pm
@@ -0,0 +1,40 @@
+package subs;
+
+our $VERSION = '1.02';
+
+=head1 NAME
+
+subs - Perl pragma to predeclare sub names
+
+=head1 SYNOPSIS
+
+    use subs qw(frob);
+    frob 3..10;
+
+=head1 DESCRIPTION
+
+This will predeclare all the subroutine whose names are 
+in the list, allowing you to use them without parentheses
+even before they're declared.
+
+Unlike pragmas that affect the C<$^H> hints variable, the C<use vars> and
+C<use subs> declarations are not BLOCK-scoped.  They are thus effective
+for the entire package in which they appear.  You may not rescind such
+declarations with C<no vars> or C<no subs>.
+
+See L<perlmodlib/Pragmatic Modules> and L<strict/strict subs>.
+
+=cut
+
+require 5.000;
+
+sub import {
+    my $callpack = caller;
+    my $pack = shift;
+    my @imports = @_;
+    foreach my $sym (@imports) {
+	*{"${callpack}::$sym"} = \&{"${callpack}::$sym"};
+    }
+};
+
+1;
diff --git a/lib/5.24.1/unicore/Blocks.txt b/lib/5.24.1/unicore/Blocks.txt
new file mode 100644
index 00000000..0a4a5807
--- /dev/null
+++ b/lib/5.24.1/unicore/Blocks.txt
@@ -0,0 +1,298 @@
+# Blocks-8.0.0.txt
+# Date: 2014-11-10, 23:04:00 GMT [KW]
+#
+# Unicode Character Database
+# Copyright (c) 1991-2014 Unicode, Inc.
+# For terms of use, see http://www.unicode.org/terms_of_use.html
+# For documentation, see http://www.unicode.org/reports/tr44/
+#
+# Format:
+# Start Code..End Code; Block Name
+
+# ================================================
+
+# Note:   When comparing block names, casing, whitespace, hyphens,
+#         and underbars are ignored.
+#         For example, "Latin Extended-A" and "latin extended a" are equivalent.
+#         For more information on the comparison of property values, 
+#            see UAX #44: http://www.unicode.org/reports/tr44/
+#
+#  All block ranges start with a value where (cp MOD 16) = 0,
+#  and end with a value where (cp MOD 16) = 15. In other words,
+#  the last hexadecimal digit of the start of range is ...0 
+#  and the last hexadecimal digit of the end of range is ...F.
+#  This constraint on block ranges guarantees that allocations
+#  are done in terms of whole columns, and that code chart display
+#  never involves splitting columns in the charts.
+#
+#  All code points not explicitly listed for Block
+#  have the value No_Block.
+
+# Property:	Block
+#
+# @missing: 0000..10FFFF; No_Block
+
+0000..007F; Basic Latin
+0080..00FF; Latin-1 Supplement
+0100..017F; Latin Extended-A
+0180..024F; Latin Extended-B
+0250..02AF; IPA Extensions
+02B0..02FF; Spacing Modifier Letters
+0300..036F; Combining Diacritical Marks
+0370..03FF; Greek and Coptic
+0400..04FF; Cyrillic
+0500..052F; Cyrillic Supplement
+0530..058F; Armenian
+0590..05FF; Hebrew
+0600..06FF; Arabic
+0700..074F; Syriac
+0750..077F; Arabic Supplement
+0780..07BF; Thaana
+07C0..07FF; NKo
+0800..083F; Samaritan
+0840..085F; Mandaic
+08A0..08FF; Arabic Extended-A
+0900..097F; Devanagari
+0980..09FF; Bengali
+0A00..0A7F; Gurmukhi
+0A80..0AFF; Gujarati
+0B00..0B7F; Oriya
+0B80..0BFF; Tamil
+0C00..0C7F; Telugu
+0C80..0CFF; Kannada
+0D00..0D7F; Malayalam
+0D80..0DFF; Sinhala
+0E00..0E7F; Thai
+0E80..0EFF; Lao
+0F00..0FFF; Tibetan
+1000..109F; Myanmar
+10A0..10FF; Georgian
+1100..11FF; Hangul Jamo
+1200..137F; Ethiopic
+1380..139F; Ethiopic Supplement
+13A0..13FF; Cherokee
+1400..167F; Unified Canadian Aboriginal Syllabics
+1680..169F; Ogham
+16A0..16FF; Runic
+1700..171F; Tagalog
+1720..173F; Hanunoo
+1740..175F; Buhid
+1760..177F; Tagbanwa
+1780..17FF; Khmer
+1800..18AF; Mongolian
+18B0..18FF; Unified Canadian Aboriginal Syllabics Extended
+1900..194F; Limbu
+1950..197F; Tai Le
+1980..19DF; New Tai Lue
+19E0..19FF; Khmer Symbols
+1A00..1A1F; Buginese
+1A20..1AAF; Tai Tham
+1AB0..1AFF; Combining Diacritical Marks Extended
+1B00..1B7F; Balinese
+1B80..1BBF; Sundanese
+1BC0..1BFF; Batak
+1C00..1C4F; Lepcha
+1C50..1C7F; Ol Chiki
+1CC0..1CCF; Sundanese Supplement
+1CD0..1CFF; Vedic Extensions
+1D00..1D7F; Phonetic Extensions
+1D80..1DBF; Phonetic Extensions Supplement
+1DC0..1DFF; Combining Diacritical Marks Supplement
+1E00..1EFF; Latin Extended Additional
+1F00..1FFF; Greek Extended
+2000..206F; General Punctuation
+2070..209F; Superscripts and Subscripts
+20A0..20CF; Currency Symbols
+20D0..20FF; Combining Diacritical Marks for Symbols
+2100..214F; Letterlike Symbols
+2150..218F; Number Forms
+2190..21FF; Arrows
+2200..22FF; Mathematical Operators
+2300..23FF; Miscellaneous Technical
+2400..243F; Control Pictures
+2440..245F; Optical Character Recognition
+2460..24FF; Enclosed Alphanumerics
+2500..257F; Box Drawing
+2580..259F; Block Elements
+25A0..25FF; Geometric Shapes
+2600..26FF; Miscellaneous Symbols
+2700..27BF; Dingbats
+27C0..27EF; Miscellaneous Mathematical Symbols-A
+27F0..27FF; Supplemental Arrows-A
+2800..28FF; Braille Patterns
+2900..297F; Supplemental Arrows-B
+2980..29FF; Miscellaneous Mathematical Symbols-B
+2A00..2AFF; Supplemental Mathematical Operators
+2B00..2BFF; Miscellaneous Symbols and Arrows
+2C00..2C5F; Glagolitic
+2C60..2C7F; Latin Extended-C
+2C80..2CFF; Coptic
+2D00..2D2F; Georgian Supplement
+2D30..2D7F; Tifinagh
+2D80..2DDF; Ethiopic Extended
+2DE0..2DFF; Cyrillic Extended-A
+2E00..2E7F; Supplemental Punctuation
+2E80..2EFF; CJK Radicals Supplement
+2F00..2FDF; Kangxi Radicals
+2FF0..2FFF; Ideographic Description Characters
+3000..303F; CJK Symbols and Punctuation
+3040..309F; Hiragana
+30A0..30FF; Katakana
+3100..312F; Bopomofo
+3130..318F; Hangul Compatibility Jamo
+3190..319F; Kanbun
+31A0..31BF; Bopomofo Extended
+31C0..31EF; CJK Strokes
+31F0..31FF; Katakana Phonetic Extensions
+3200..32FF; Enclosed CJK Letters and Months
+3300..33FF; CJK Compatibility
+3400..4DBF; CJK Unified Ideographs Extension A
+4DC0..4DFF; Yijing Hexagram Symbols
+4E00..9FFF; CJK Unified Ideographs
+A000..A48F; Yi Syllables
+A490..A4CF; Yi Radicals
+A4D0..A4FF; Lisu
+A500..A63F; Vai
+A640..A69F; Cyrillic Extended-B
+A6A0..A6FF; Bamum
+A700..A71F; Modifier Tone Letters
+A720..A7FF; Latin Extended-D
+A800..A82F; Syloti Nagri
+A830..A83F; Common Indic Number Forms
+A840..A87F; Phags-pa
+A880..A8DF; Saurashtra
+A8E0..A8FF; Devanagari Extended
+A900..A92F; Kayah Li
+A930..A95F; Rejang
+A960..A97F; Hangul Jamo Extended-A
+A980..A9DF; Javanese
+A9E0..A9FF; Myanmar Extended-B
+AA00..AA5F; Cham
+AA60..AA7F; Myanmar Extended-A
+AA80..AADF; Tai Viet
+AAE0..AAFF; Meetei Mayek Extensions
+AB00..AB2F; Ethiopic Extended-A
+AB30..AB6F; Latin Extended-E
+AB70..ABBF; Cherokee Supplement
+ABC0..ABFF; Meetei Mayek
+AC00..D7AF; Hangul Syllables
+D7B0..D7FF; Hangul Jamo Extended-B
+D800..DB7F; High Surrogates
+DB80..DBFF; High Private Use Surrogates
+DC00..DFFF; Low Surrogates
+E000..F8FF; Private Use Area
+F900..FAFF; CJK Compatibility Ideographs
+FB00..FB4F; Alphabetic Presentation Forms
+FB50..FDFF; Arabic Presentation Forms-A
+FE00..FE0F; Variation Selectors
+FE10..FE1F; Vertical Forms
+FE20..FE2F; Combining Half Marks
+FE30..FE4F; CJK Compatibility Forms
+FE50..FE6F; Small Form Variants
+FE70..FEFF; Arabic Presentation Forms-B
+FF00..FFEF; Halfwidth and Fullwidth Forms
+FFF0..FFFF; Specials
+10000..1007F; Linear B Syllabary
+10080..100FF; Linear B Ideograms
+10100..1013F; Aegean Numbers
+10140..1018F; Ancient Greek Numbers
+10190..101CF; Ancient Symbols
+101D0..101FF; Phaistos Disc
+10280..1029F; Lycian
+102A0..102DF; Carian
+102E0..102FF; Coptic Epact Numbers
+10300..1032F; Old Italic
+10330..1034F; Gothic
+10350..1037F; Old Permic
+10380..1039F; Ugaritic
+103A0..103DF; Old Persian
+10400..1044F; Deseret
+10450..1047F; Shavian
+10480..104AF; Osmanya
+10500..1052F; Elbasan
+10530..1056F; Caucasian Albanian
+10600..1077F; Linear A
+10800..1083F; Cypriot Syllabary
+10840..1085F; Imperial Aramaic
+10860..1087F; Palmyrene
+10880..108AF; Nabataean
+108E0..108FF; Hatran
+10900..1091F; Phoenician
+10920..1093F; Lydian
+10980..1099F; Meroitic Hieroglyphs
+109A0..109FF; Meroitic Cursive
+10A00..10A5F; Kharoshthi
+10A60..10A7F; Old South Arabian
+10A80..10A9F; Old North Arabian
+10AC0..10AFF; Manichaean
+10B00..10B3F; Avestan
+10B40..10B5F; Inscriptional Parthian
+10B60..10B7F; Inscriptional Pahlavi
+10B80..10BAF; Psalter Pahlavi
+10C00..10C4F; Old Turkic
+10C80..10CFF; Old Hungarian
+10E60..10E7F; Rumi Numeral Symbols
+11000..1107F; Brahmi
+11080..110CF; Kaithi
+110D0..110FF; Sora Sompeng
+11100..1114F; Chakma
+11150..1117F; Mahajani
+11180..111DF; Sharada
+111E0..111FF; Sinhala Archaic Numbers
+11200..1124F; Khojki
+11280..112AF; Multani
+112B0..112FF; Khudawadi
+11300..1137F; Grantha
+11480..114DF; Tirhuta
+11580..115FF; Siddham
+11600..1165F; Modi
+11680..116CF; Takri
+11700..1173F; Ahom
+118A0..118FF; Warang Citi
+11AC0..11AFF; Pau Cin Hau
+12000..123FF; Cuneiform
+12400..1247F; Cuneiform Numbers and Punctuation
+12480..1254F; Early Dynastic Cuneiform
+13000..1342F; Egyptian Hieroglyphs
+14400..1467F; Anatolian Hieroglyphs
+16800..16A3F; Bamum Supplement
+16A40..16A6F; Mro
+16AD0..16AFF; Bassa Vah
+16B00..16B8F; Pahawh Hmong
+16F00..16F9F; Miao
+1B000..1B0FF; Kana Supplement
+1BC00..1BC9F; Duployan
+1BCA0..1BCAF; Shorthand Format Controls
+1D000..1D0FF; Byzantine Musical Symbols
+1D100..1D1FF; Musical Symbols
+1D200..1D24F; Ancient Greek Musical Notation
+1D300..1D35F; Tai Xuan Jing Symbols
+1D360..1D37F; Counting Rod Numerals
+1D400..1D7FF; Mathematical Alphanumeric Symbols
+1D800..1DAAF; Sutton SignWriting
+1E800..1E8DF; Mende Kikakui
+1EE00..1EEFF; Arabic Mathematical Alphabetic Symbols
+1F000..1F02F; Mahjong Tiles
+1F030..1F09F; Domino Tiles
+1F0A0..1F0FF; Playing Cards
+1F100..1F1FF; Enclosed Alphanumeric Supplement
+1F200..1F2FF; Enclosed Ideographic Supplement
+1F300..1F5FF; Miscellaneous Symbols and Pictographs
+1F600..1F64F; Emoticons
+1F650..1F67F; Ornamental Dingbats
+1F680..1F6FF; Transport and Map Symbols
+1F700..1F77F; Alchemical Symbols
+1F780..1F7FF; Geometric Shapes Extended
+1F800..1F8FF; Supplemental Arrows-C
+1F900..1F9FF; Supplemental Symbols and Pictographs
+20000..2A6DF; CJK Unified Ideographs Extension B
+2A700..2B73F; CJK Unified Ideographs Extension C
+2B740..2B81F; CJK Unified Ideographs Extension D
+2B820..2CEAF; CJK Unified Ideographs Extension E
+2F800..2FA1F; CJK Compatibility Ideographs Supplement
+E0000..E007F; Tags
+E0100..E01EF; Variation Selectors Supplement
+F0000..FFFFF; Supplementary Private Use Area-A
+100000..10FFFF; Supplementary Private Use Area-B
+
+# EOF
diff --git a/lib/5.24.1/unicore/CombiningClass.pl b/lib/5.24.1/unicore/CombiningClass.pl
new file mode 100644
index 00000000..202e2fba
--- /dev/null
+++ b/lib/5.24.1/unicore/CombiningClass.pl
@@ -0,0 +1,341 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToCombiningClass'}{'format'} = 'i'; # integer
+$utf8::SwashInfo{'ToCombiningClass'}{'missing'} = '0';
+
+return <<'END';
+300	314	230
+315		232
+316	319	220
+31A		232
+31B		216
+31C	320	220
+321	322	202
+323	326	220
+327	328	202
+329	333	220
+334	338	1
+339	33C	220
+33D	344	230
+345		240
+346		230
+347	349	220
+34A	34C	230
+34D	34E	220
+350	352	230
+353	356	220
+357		230
+358		232
+359	35A	220
+35B		230
+35C		233
+35D	35E	234
+35F		233
+360	361	234
+362		233
+363	36F	230
+483	487	230
+591		220
+592	595	230
+596		220
+597	599	230
+59A		222
+59B		220
+59C	5A1	230
+5A2	5A7	220
+5A8	5A9	230
+5AA		220
+5AB	5AC	230
+5AD		222
+5AE		228
+5AF		230
+5B0		10
+5B1		11
+5B2		12
+5B3		13
+5B4		14
+5B5		15
+5B6		16
+5B7		17
+5B8		18
+5B9	5BA	19
+5BB		20
+5BC		21
+5BD		22
+5BF		23
+5C1		24
+5C2		25
+5C4		230
+5C5		220
+5C7		18
+610	617	230
+618		30
+619		31
+61A		32
+64B		27
+64C		28
+64D		29
+64E		30
+64F		31
+650		32
+651		33
+652		34
+653	654	230
+655	656	220
+657	65B	230
+65C		220
+65D	65E	230
+65F		220
+670		35
+6D6	6DC	230
+6DF	6E2	230
+6E3		220
+6E4		230
+6E7	6E8	230
+6EA		220
+6EB	6EC	230
+6ED		220
+711		36
+730		230
+731		220
+732	733	230
+734		220
+735	736	230
+737	739	220
+73A		230
+73B	73C	220
+73D		230
+73E		220
+73F	741	230
+742		220
+743		230
+744		220
+745		230
+746		220
+747		230
+748		220
+749	74A	230
+7EB	7F1	230
+7F2		220
+7F3		230
+816	819	230
+81B	823	230
+825	827	230
+829	82D	230
+859	85B	220
+8E3		220
+8E4	8E5	230
+8E6		220
+8E7	8E8	230
+8E9		220
+8EA	8EC	230
+8ED	8EF	220
+8F0		27
+8F1		28
+8F2		29
+8F3	8F5	230
+8F6		220
+8F7	8F8	230
+8F9	8FA	220
+8FB	8FF	230
+93C		7
+94D		9
+951		230
+952		220
+953	954	230
+9BC		7
+9CD		9
+A3C		7
+A4D		9
+ABC		7
+ACD		9
+B3C		7
+B4D		9
+BCD		9
+C4D		9
+C55		84
+C56		91
+CBC		7
+CCD		9
+D4D		9
+DCA		9
+E38	E39	103
+E3A		9
+E48	E4B	107
+EB8	EB9	118
+EC8	ECB	122
+F18	F19	220
+F35		220
+F37		220
+F39		216
+F71		129
+F72		130
+F74		132
+F7A	F7D	130
+F80		130
+F82	F83	230
+F84		9
+F86	F87	230
+FC6		220
+1037		7
+1039	103A	9
+108D		220
+135D	135F	230
+1714		9
+1734		9
+17D2		9
+17DD		230
+18A9		228
+1939		222
+193A		230
+193B		220
+1A17		230
+1A18		220
+1A60		9
+1A75	1A7C	230
+1A7F		220
+1AB0	1AB4	230
+1AB5	1ABA	220
+1ABB	1ABC	230
+1ABD		220
+1B34		7
+1B44		9
+1B6B		230
+1B6C		220
+1B6D	1B73	230
+1BAA	1BAB	9
+1BE6		7
+1BF2	1BF3	9
+1C37		7
+1CD0	1CD2	230
+1CD4		1
+1CD5	1CD9	220
+1CDA	1CDB	230
+1CDC	1CDF	220
+1CE0		230
+1CE2	1CE8	1
+1CED		220
+1CF4		230
+1CF8	1CF9	230
+1DC0	1DC1	230
+1DC2		220
+1DC3	1DC9	230
+1DCA		220
+1DCB	1DCC	230
+1DCD		234
+1DCE		214
+1DCF		220
+1DD0		202
+1DD1	1DF5	230
+1DFC		233
+1DFD		220
+1DFE		230
+1DFF		220
+20D0	20D1	230
+20D2	20D3	1
+20D4	20D7	230
+20D8	20DA	1
+20DB	20DC	230
+20E1		230
+20E5	20E6	1
+20E7		230
+20E8		220
+20E9		230
+20EA	20EB	1
+20EC	20EF	220
+20F0		230
+2CEF	2CF1	230
+2D7F		9
+2DE0	2DFF	230
+302A		218
+302B		228
+302C		232
+302D		222
+302E	302F	224
+3099	309A	8
+A66F		230
+A674	A67D	230
+A69E	A69F	230
+A6F0	A6F1	230
+A806		9
+A8C4		9
+A8E0	A8F1	230
+A92B	A92D	220
+A953		9
+A9B3		7
+A9C0		9
+AAB0		230
+AAB2	AAB3	230
+AAB4		220
+AAB7	AAB8	230
+AABE	AABF	230
+AAC1		230
+AAF6		9
+ABED		9
+FB1E		26
+FE20	FE26	230
+FE27	FE2D	220
+FE2E	FE2F	230
+101FD		220
+102E0		220
+10376	1037A	230
+10A0D		220
+10A0F		230
+10A38		230
+10A39		1
+10A3A		220
+10A3F		9
+10AE5		230
+10AE6		220
+11046		9
+1107F		9
+110B9		9
+110BA		7
+11100	11102	230
+11133	11134	9
+11173		7
+111C0		9
+111CA		7
+11235		9
+11236		7
+112E9		7
+112EA		9
+1133C		7
+1134D		9
+11366	1136C	230
+11370	11374	230
+114C2		9
+114C3		7
+115BF		9
+115C0		7
+1163F		9
+116B6		9
+116B7		7
+1172B		9
+16AF0	16AF4	1
+16B30	16B36	230
+1BC9E		1
+1D165	1D166	216
+1D167	1D169	1
+1D16D		226
+1D16E	1D172	216
+1D17B	1D182	220
+1D185	1D189	230
+1D18A	1D18B	220
+1D1AA	1D1AD	230
+1D242	1D244	230
+1E8D0	1E8D6	220
+END
diff --git a/lib/5.24.1/unicore/Decomposition.pl b/lib/5.24.1/unicore/Decomposition.pl
new file mode 100644
index 00000000..c370745e
--- /dev/null
+++ b/lib/5.24.1/unicore/Decomposition.pl
@@ -0,0 +1,5705 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+A0		<noBreak> 0020
+A8		<compat> 0020 0308
+AA		<super> 0061
+AF		<compat> 0020 0304
+B2		<super> 0032
+B3		<super> 0033
+B4		<compat> 0020 0301
+B5		<compat> 03BC
+B8		<compat> 0020 0327
+B9		<super> 0031
+BA		<super> 006F
+BC		<fraction> 0031 2044 0034
+BD		<fraction> 0031 2044 0032
+BE		<fraction> 0033 2044 0034
+C0		0041 0300
+C1		0041 0301
+C2		0041 0302
+C3		0041 0303
+C4		0041 0308
+C5		0041 030A
+C7		0043 0327
+C8		0045 0300
+C9		0045 0301
+CA		0045 0302
+CB		0045 0308
+CC		0049 0300
+CD		0049 0301
+CE		0049 0302
+CF		0049 0308
+D1		004E 0303
+D2		004F 0300
+D3		004F 0301
+D4		004F 0302
+D5		004F 0303
+D6		004F 0308
+D9		0055 0300
+DA		0055 0301
+DB		0055 0302
+DC		0055 0308
+DD		0059 0301
+E0		0061 0300
+E1		0061 0301
+E2		0061 0302
+E3		0061 0303
+E4		0061 0308
+E5		0061 030A
+E7		0063 0327
+E8		0065 0300
+E9		0065 0301
+EA		0065 0302
+EB		0065 0308
+EC		0069 0300
+ED		0069 0301
+EE		0069 0302
+EF		0069 0308
+F1		006E 0303
+F2		006F 0300
+F3		006F 0301
+F4		006F 0302
+F5		006F 0303
+F6		006F 0308
+F9		0075 0300
+FA		0075 0301
+FB		0075 0302
+FC		0075 0308
+FD		0079 0301
+FF		0079 0308
+100		0041 0304
+101		0061 0304
+102		0041 0306
+103		0061 0306
+104		0041 0328
+105		0061 0328
+106		0043 0301
+107		0063 0301
+108		0043 0302
+109		0063 0302
+10A		0043 0307
+10B		0063 0307
+10C		0043 030C
+10D		0063 030C
+10E		0044 030C
+10F		0064 030C
+112		0045 0304
+113		0065 0304
+114		0045 0306
+115		0065 0306
+116		0045 0307
+117		0065 0307
+118		0045 0328
+119		0065 0328
+11A		0045 030C
+11B		0065 030C
+11C		0047 0302
+11D		0067 0302
+11E		0047 0306
+11F		0067 0306
+120		0047 0307
+121		0067 0307
+122		0047 0327
+123		0067 0327
+124		0048 0302
+125		0068 0302
+128		0049 0303
+129		0069 0303
+12A		0049 0304
+12B		0069 0304
+12C		0049 0306
+12D		0069 0306
+12E		0049 0328
+12F		0069 0328
+130		0049 0307
+132		<compat> 0049 004A
+133		<compat> 0069 006A
+134		004A 0302
+135		006A 0302
+136		004B 0327
+137		006B 0327
+139		004C 0301
+13A		006C 0301
+13B		004C 0327
+13C		006C 0327
+13D		004C 030C
+13E		006C 030C
+13F		<compat> 004C 00B7
+140		<compat> 006C 00B7
+143		004E 0301
+144		006E 0301
+145		004E 0327
+146		006E 0327
+147		004E 030C
+148		006E 030C
+149		<compat> 02BC 006E
+14C		004F 0304
+14D		006F 0304
+14E		004F 0306
+14F		006F 0306
+150		004F 030B
+151		006F 030B
+154		0052 0301
+155		0072 0301
+156		0052 0327
+157		0072 0327
+158		0052 030C
+159		0072 030C
+15A		0053 0301
+15B		0073 0301
+15C		0053 0302
+15D		0073 0302
+15E		0053 0327
+15F		0073 0327
+160		0053 030C
+161		0073 030C
+162		0054 0327
+163		0074 0327
+164		0054 030C
+165		0074 030C
+168		0055 0303
+169		0075 0303
+16A		0055 0304
+16B		0075 0304
+16C		0055 0306
+16D		0075 0306
+16E		0055 030A
+16F		0075 030A
+170		0055 030B
+171		0075 030B
+172		0055 0328
+173		0075 0328
+174		0057 0302
+175		0077 0302
+176		0059 0302
+177		0079 0302
+178		0059 0308
+179		005A 0301
+17A		007A 0301
+17B		005A 0307
+17C		007A 0307
+17D		005A 030C
+17E		007A 030C
+17F		<compat> 0073
+1A0		004F 031B
+1A1		006F 031B
+1AF		0055 031B
+1B0		0075 031B
+1C4		<compat> 0044 017D
+1C5		<compat> 0044 017E
+1C6		<compat> 0064 017E
+1C7		<compat> 004C 004A
+1C8		<compat> 004C 006A
+1C9		<compat> 006C 006A
+1CA		<compat> 004E 004A
+1CB		<compat> 004E 006A
+1CC		<compat> 006E 006A
+1CD		0041 030C
+1CE		0061 030C
+1CF		0049 030C
+1D0		0069 030C
+1D1		004F 030C
+1D2		006F 030C
+1D3		0055 030C
+1D4		0075 030C
+1D5		00DC 0304
+1D6		00FC 0304
+1D7		00DC 0301
+1D8		00FC 0301
+1D9		00DC 030C
+1DA		00FC 030C
+1DB		00DC 0300
+1DC		00FC 0300
+1DE		00C4 0304
+1DF		00E4 0304
+1E0		0226 0304
+1E1		0227 0304
+1E2		00C6 0304
+1E3		00E6 0304
+1E6		0047 030C
+1E7		0067 030C
+1E8		004B 030C
+1E9		006B 030C
+1EA		004F 0328
+1EB		006F 0328
+1EC		01EA 0304
+1ED		01EB 0304
+1EE		01B7 030C
+1EF		0292 030C
+1F0		006A 030C
+1F1		<compat> 0044 005A
+1F2		<compat> 0044 007A
+1F3		<compat> 0064 007A
+1F4		0047 0301
+1F5		0067 0301
+1F8		004E 0300
+1F9		006E 0300
+1FA		00C5 0301
+1FB		00E5 0301
+1FC		00C6 0301
+1FD		00E6 0301
+1FE		00D8 0301
+1FF		00F8 0301
+200		0041 030F
+201		0061 030F
+202		0041 0311
+203		0061 0311
+204		0045 030F
+205		0065 030F
+206		0045 0311
+207		0065 0311
+208		0049 030F
+209		0069 030F
+20A		0049 0311
+20B		0069 0311
+20C		004F 030F
+20D		006F 030F
+20E		004F 0311
+20F		006F 0311
+210		0052 030F
+211		0072 030F
+212		0052 0311
+213		0072 0311
+214		0055 030F
+215		0075 030F
+216		0055 0311
+217		0075 0311
+218		0053 0326
+219		0073 0326
+21A		0054 0326
+21B		0074 0326
+21E		0048 030C
+21F		0068 030C
+226		0041 0307
+227		0061 0307
+228		0045 0327
+229		0065 0327
+22A		00D6 0304
+22B		00F6 0304
+22C		00D5 0304
+22D		00F5 0304
+22E		004F 0307
+22F		006F 0307
+230		022E 0304
+231		022F 0304
+232		0059 0304
+233		0079 0304
+2B0		<super> 0068
+2B1		<super> 0266
+2B2		<super> 006A
+2B3		<super> 0072
+2B4		<super> 0279
+2B5		<super> 027B
+2B6		<super> 0281
+2B7		<super> 0077
+2B8		<super> 0079
+2D8		<compat> 0020 0306
+2D9		<compat> 0020 0307
+2DA		<compat> 0020 030A
+2DB		<compat> 0020 0328
+2DC		<compat> 0020 0303
+2DD		<compat> 0020 030B
+2E0		<super> 0263
+2E1		<super> 006C
+2E2		<super> 0073
+2E3		<super> 0078
+2E4		<super> 0295
+340		0300
+341		0301
+343		0313
+344		0308 0301
+374		02B9
+37A		<compat> 0020 0345
+37E		003B
+384		<compat> 0020 0301
+385		00A8 0301
+386		0391 0301
+387		00B7
+388		0395 0301
+389		0397 0301
+38A		0399 0301
+38C		039F 0301
+38E		03A5 0301
+38F		03A9 0301
+390		03CA 0301
+3AA		0399 0308
+3AB		03A5 0308
+3AC		03B1 0301
+3AD		03B5 0301
+3AE		03B7 0301
+3AF		03B9 0301
+3B0		03CB 0301
+3CA		03B9 0308
+3CB		03C5 0308
+3CC		03BF 0301
+3CD		03C5 0301
+3CE		03C9 0301
+3D0		<compat> 03B2
+3D1		<compat> 03B8
+3D2		<compat> 03A5
+3D3		03D2 0301
+3D4		03D2 0308
+3D5		<compat> 03C6
+3D6		<compat> 03C0
+3F0		<compat> 03BA
+3F1		<compat> 03C1
+3F2		<compat> 03C2
+3F4		<compat> 0398
+3F5		<compat> 03B5
+3F9		<compat> 03A3
+400		0415 0300
+401		0415 0308
+403		0413 0301
+407		0406 0308
+40C		041A 0301
+40D		0418 0300
+40E		0423 0306
+419		0418 0306
+439		0438 0306
+450		0435 0300
+451		0435 0308
+453		0433 0301
+457		0456 0308
+45C		043A 0301
+45D		0438 0300
+45E		0443 0306
+476		0474 030F
+477		0475 030F
+4C1		0416 0306
+4C2		0436 0306
+4D0		0410 0306
+4D1		0430 0306
+4D2		0410 0308
+4D3		0430 0308
+4D6		0415 0306
+4D7		0435 0306
+4DA		04D8 0308
+4DB		04D9 0308
+4DC		0416 0308
+4DD		0436 0308
+4DE		0417 0308
+4DF		0437 0308
+4E2		0418 0304
+4E3		0438 0304
+4E4		0418 0308
+4E5		0438 0308
+4E6		041E 0308
+4E7		043E 0308
+4EA		04E8 0308
+4EB		04E9 0308
+4EC		042D 0308
+4ED		044D 0308
+4EE		0423 0304
+4EF		0443 0304
+4F0		0423 0308
+4F1		0443 0308
+4F2		0423 030B
+4F3		0443 030B
+4F4		0427 0308
+4F5		0447 0308
+4F8		042B 0308
+4F9		044B 0308
+587		<compat> 0565 0582
+622		0627 0653
+623		0627 0654
+624		0648 0654
+625		0627 0655
+626		064A 0654
+675		<compat> 0627 0674
+676		<compat> 0648 0674
+677		<compat> 06C7 0674
+678		<compat> 064A 0674
+6C0		06D5 0654
+6C2		06C1 0654
+6D3		06D2 0654
+929		0928 093C
+931		0930 093C
+934		0933 093C
+958		0915 093C
+959		0916 093C
+95A		0917 093C
+95B		091C 093C
+95C		0921 093C
+95D		0922 093C
+95E		092B 093C
+95F		092F 093C
+9CB		09C7 09BE
+9CC		09C7 09D7
+9DC		09A1 09BC
+9DD		09A2 09BC
+9DF		09AF 09BC
+A33		0A32 0A3C
+A36		0A38 0A3C
+A59		0A16 0A3C
+A5A		0A17 0A3C
+A5B		0A1C 0A3C
+A5E		0A2B 0A3C
+B48		0B47 0B56
+B4B		0B47 0B3E
+B4C		0B47 0B57
+B5C		0B21 0B3C
+B5D		0B22 0B3C
+B94		0B92 0BD7
+BCA		0BC6 0BBE
+BCB		0BC7 0BBE
+BCC		0BC6 0BD7
+C48		0C46 0C56
+CC0		0CBF 0CD5
+CC7		0CC6 0CD5
+CC8		0CC6 0CD6
+CCA		0CC6 0CC2
+CCB		0CCA 0CD5
+D4A		0D46 0D3E
+D4B		0D47 0D3E
+D4C		0D46 0D57
+DDA		0DD9 0DCA
+DDC		0DD9 0DCF
+DDD		0DDC 0DCA
+DDE		0DD9 0DDF
+E33		<compat> 0E4D 0E32
+EB3		<compat> 0ECD 0EB2
+EDC		<compat> 0EAB 0E99
+EDD		<compat> 0EAB 0EA1
+F0C		<noBreak> 0F0B
+F43		0F42 0FB7
+F4D		0F4C 0FB7
+F52		0F51 0FB7
+F57		0F56 0FB7
+F5C		0F5B 0FB7
+F69		0F40 0FB5
+F73		0F71 0F72
+F75		0F71 0F74
+F76		0FB2 0F80
+F77		<compat> 0FB2 0F81
+F78		0FB3 0F80
+F79		<compat> 0FB3 0F81
+F81		0F71 0F80
+F93		0F92 0FB7
+F9D		0F9C 0FB7
+FA2		0FA1 0FB7
+FA7		0FA6 0FB7
+FAC		0FAB 0FB7
+FB9		0F90 0FB5
+1026		1025 102E
+10FC		<super> 10DC
+1B06		1B05 1B35
+1B08		1B07 1B35
+1B0A		1B09 1B35
+1B0C		1B0B 1B35
+1B0E		1B0D 1B35
+1B12		1B11 1B35
+1B3B		1B3A 1B35
+1B3D		1B3C 1B35
+1B40		1B3E 1B35
+1B41		1B3F 1B35
+1B43		1B42 1B35
+1D2C		<super> 0041
+1D2D		<super> 00C6
+1D2E		<super> 0042
+1D30		<super> 0044
+1D31		<super> 0045
+1D32		<super> 018E
+1D33		<super> 0047
+1D34		<super> 0048
+1D35		<super> 0049
+1D36		<super> 004A
+1D37		<super> 004B
+1D38		<super> 004C
+1D39		<super> 004D
+1D3A		<super> 004E
+1D3C		<super> 004F
+1D3D		<super> 0222
+1D3E		<super> 0050
+1D3F		<super> 0052
+1D40		<super> 0054
+1D41		<super> 0055
+1D42		<super> 0057
+1D43		<super> 0061
+1D44		<super> 0250
+1D45		<super> 0251
+1D46		<super> 1D02
+1D47		<super> 0062
+1D48		<super> 0064
+1D49		<super> 0065
+1D4A		<super> 0259
+1D4B		<super> 025B
+1D4C		<super> 025C
+1D4D		<super> 0067
+1D4F		<super> 006B
+1D50		<super> 006D
+1D51		<super> 014B
+1D52		<super> 006F
+1D53		<super> 0254
+1D54		<super> 1D16
+1D55		<super> 1D17
+1D56		<super> 0070
+1D57		<super> 0074
+1D58		<super> 0075
+1D59		<super> 1D1D
+1D5A		<super> 026F
+1D5B		<super> 0076
+1D5C		<super> 1D25
+1D5D		<super> 03B2
+1D5E		<super> 03B3
+1D5F		<super> 03B4
+1D60		<super> 03C6
+1D61		<super> 03C7
+1D62		<sub> 0069
+1D63		<sub> 0072
+1D64		<sub> 0075
+1D65		<sub> 0076
+1D66		<sub> 03B2
+1D67		<sub> 03B3
+1D68		<sub> 03C1
+1D69		<sub> 03C6
+1D6A		<sub> 03C7
+1D78		<super> 043D
+1D9B		<super> 0252
+1D9C		<super> 0063
+1D9D		<super> 0255
+1D9E		<super> 00F0
+1D9F		<super> 025C
+1DA0		<super> 0066
+1DA1		<super> 025F
+1DA2		<super> 0261
+1DA3		<super> 0265
+1DA4		<super> 0268
+1DA5		<super> 0269
+1DA6		<super> 026A
+1DA7		<super> 1D7B
+1DA8		<super> 029D
+1DA9		<super> 026D
+1DAA		<super> 1D85
+1DAB		<super> 029F
+1DAC		<super> 0271
+1DAD		<super> 0270
+1DAE		<super> 0272
+1DAF		<super> 0273
+1DB0		<super> 0274
+1DB1		<super> 0275
+1DB2		<super> 0278
+1DB3		<super> 0282
+1DB4		<super> 0283
+1DB5		<super> 01AB
+1DB6		<super> 0289
+1DB7		<super> 028A
+1DB8		<super> 1D1C
+1DB9		<super> 028B
+1DBA		<super> 028C
+1DBB		<super> 007A
+1DBC		<super> 0290
+1DBD		<super> 0291
+1DBE		<super> 0292
+1DBF		<super> 03B8
+1E00		0041 0325
+1E01		0061 0325
+1E02		0042 0307
+1E03		0062 0307
+1E04		0042 0323
+1E05		0062 0323
+1E06		0042 0331
+1E07		0062 0331
+1E08		00C7 0301
+1E09		00E7 0301
+1E0A		0044 0307
+1E0B		0064 0307
+1E0C		0044 0323
+1E0D		0064 0323
+1E0E		0044 0331
+1E0F		0064 0331
+1E10		0044 0327
+1E11		0064 0327
+1E12		0044 032D
+1E13		0064 032D
+1E14		0112 0300
+1E15		0113 0300
+1E16		0112 0301
+1E17		0113 0301
+1E18		0045 032D
+1E19		0065 032D
+1E1A		0045 0330
+1E1B		0065 0330
+1E1C		0228 0306
+1E1D		0229 0306
+1E1E		0046 0307
+1E1F		0066 0307
+1E20		0047 0304
+1E21		0067 0304
+1E22		0048 0307
+1E23		0068 0307
+1E24		0048 0323
+1E25		0068 0323
+1E26		0048 0308
+1E27		0068 0308
+1E28		0048 0327
+1E29		0068 0327
+1E2A		0048 032E
+1E2B		0068 032E
+1E2C		0049 0330
+1E2D		0069 0330
+1E2E		00CF 0301
+1E2F		00EF 0301
+1E30		004B 0301
+1E31		006B 0301
+1E32		004B 0323
+1E33		006B 0323
+1E34		004B 0331
+1E35		006B 0331
+1E36		004C 0323
+1E37		006C 0323
+1E38		1E36 0304
+1E39		1E37 0304
+1E3A		004C 0331
+1E3B		006C 0331
+1E3C		004C 032D
+1E3D		006C 032D
+1E3E		004D 0301
+1E3F		006D 0301
+1E40		004D 0307
+1E41		006D 0307
+1E42		004D 0323
+1E43		006D 0323
+1E44		004E 0307
+1E45		006E 0307
+1E46		004E 0323
+1E47		006E 0323
+1E48		004E 0331
+1E49		006E 0331
+1E4A		004E 032D
+1E4B		006E 032D
+1E4C		00D5 0301
+1E4D		00F5 0301
+1E4E		00D5 0308
+1E4F		00F5 0308
+1E50		014C 0300
+1E51		014D 0300
+1E52		014C 0301
+1E53		014D 0301
+1E54		0050 0301
+1E55		0070 0301
+1E56		0050 0307
+1E57		0070 0307
+1E58		0052 0307
+1E59		0072 0307
+1E5A		0052 0323
+1E5B		0072 0323
+1E5C		1E5A 0304
+1E5D		1E5B 0304
+1E5E		0052 0331
+1E5F		0072 0331
+1E60		0053 0307
+1E61		0073 0307
+1E62		0053 0323
+1E63		0073 0323
+1E64		015A 0307
+1E65		015B 0307
+1E66		0160 0307
+1E67		0161 0307
+1E68		1E62 0307
+1E69		1E63 0307
+1E6A		0054 0307
+1E6B		0074 0307
+1E6C		0054 0323
+1E6D		0074 0323
+1E6E		0054 0331
+1E6F		0074 0331
+1E70		0054 032D
+1E71		0074 032D
+1E72		0055 0324
+1E73		0075 0324
+1E74		0055 0330
+1E75		0075 0330
+1E76		0055 032D
+1E77		0075 032D
+1E78		0168 0301
+1E79		0169 0301
+1E7A		016A 0308
+1E7B		016B 0308
+1E7C		0056 0303
+1E7D		0076 0303
+1E7E		0056 0323
+1E7F		0076 0323
+1E80		0057 0300
+1E81		0077 0300
+1E82		0057 0301
+1E83		0077 0301
+1E84		0057 0308
+1E85		0077 0308
+1E86		0057 0307
+1E87		0077 0307
+1E88		0057 0323
+1E89		0077 0323
+1E8A		0058 0307
+1E8B		0078 0307
+1E8C		0058 0308
+1E8D		0078 0308
+1E8E		0059 0307
+1E8F		0079 0307
+1E90		005A 0302
+1E91		007A 0302
+1E92		005A 0323
+1E93		007A 0323
+1E94		005A 0331
+1E95		007A 0331
+1E96		0068 0331
+1E97		0074 0308
+1E98		0077 030A
+1E99		0079 030A
+1E9A		<compat> 0061 02BE
+1E9B		017F 0307
+1EA0		0041 0323
+1EA1		0061 0323
+1EA2		0041 0309
+1EA3		0061 0309
+1EA4		00C2 0301
+1EA5		00E2 0301
+1EA6		00C2 0300
+1EA7		00E2 0300
+1EA8		00C2 0309
+1EA9		00E2 0309
+1EAA		00C2 0303
+1EAB		00E2 0303
+1EAC		1EA0 0302
+1EAD		1EA1 0302
+1EAE		0102 0301
+1EAF		0103 0301
+1EB0		0102 0300
+1EB1		0103 0300
+1EB2		0102 0309
+1EB3		0103 0309
+1EB4		0102 0303
+1EB5		0103 0303
+1EB6		1EA0 0306
+1EB7		1EA1 0306
+1EB8		0045 0323
+1EB9		0065 0323
+1EBA		0045 0309
+1EBB		0065 0309
+1EBC		0045 0303
+1EBD		0065 0303
+1EBE		00CA 0301
+1EBF		00EA 0301
+1EC0		00CA 0300
+1EC1		00EA 0300
+1EC2		00CA 0309
+1EC3		00EA 0309
+1EC4		00CA 0303
+1EC5		00EA 0303
+1EC6		1EB8 0302
+1EC7		1EB9 0302
+1EC8		0049 0309
+1EC9		0069 0309
+1ECA		0049 0323
+1ECB		0069 0323
+1ECC		004F 0323
+1ECD		006F 0323
+1ECE		004F 0309
+1ECF		006F 0309
+1ED0		00D4 0301
+1ED1		00F4 0301
+1ED2		00D4 0300
+1ED3		00F4 0300
+1ED4		00D4 0309
+1ED5		00F4 0309
+1ED6		00D4 0303
+1ED7		00F4 0303
+1ED8		1ECC 0302
+1ED9		1ECD 0302
+1EDA		01A0 0301
+1EDB		01A1 0301
+1EDC		01A0 0300
+1EDD		01A1 0300
+1EDE		01A0 0309
+1EDF		01A1 0309
+1EE0		01A0 0303
+1EE1		01A1 0303
+1EE2		01A0 0323
+1EE3		01A1 0323
+1EE4		0055 0323
+1EE5		0075 0323
+1EE6		0055 0309
+1EE7		0075 0309
+1EE8		01AF 0301
+1EE9		01B0 0301
+1EEA		01AF 0300
+1EEB		01B0 0300
+1EEC		01AF 0309
+1EED		01B0 0309
+1EEE		01AF 0303
+1EEF		01B0 0303
+1EF0		01AF 0323
+1EF1		01B0 0323
+1EF2		0059 0300
+1EF3		0079 0300
+1EF4		0059 0323
+1EF5		0079 0323
+1EF6		0059 0309
+1EF7		0079 0309
+1EF8		0059 0303
+1EF9		0079 0303
+1F00		03B1 0313
+1F01		03B1 0314
+1F02		1F00 0300
+1F03		1F01 0300
+1F04		1F00 0301
+1F05		1F01 0301
+1F06		1F00 0342
+1F07		1F01 0342
+1F08		0391 0313
+1F09		0391 0314
+1F0A		1F08 0300
+1F0B		1F09 0300
+1F0C		1F08 0301
+1F0D		1F09 0301
+1F0E		1F08 0342
+1F0F		1F09 0342
+1F10		03B5 0313
+1F11		03B5 0314
+1F12		1F10 0300
+1F13		1F11 0300
+1F14		1F10 0301
+1F15		1F11 0301
+1F18		0395 0313
+1F19		0395 0314
+1F1A		1F18 0300
+1F1B		1F19 0300
+1F1C		1F18 0301
+1F1D		1F19 0301
+1F20		03B7 0313
+1F21		03B7 0314
+1F22		1F20 0300
+1F23		1F21 0300
+1F24		1F20 0301
+1F25		1F21 0301
+1F26		1F20 0342
+1F27		1F21 0342
+1F28		0397 0313
+1F29		0397 0314
+1F2A		1F28 0300
+1F2B		1F29 0300
+1F2C		1F28 0301
+1F2D		1F29 0301
+1F2E		1F28 0342
+1F2F		1F29 0342
+1F30		03B9 0313
+1F31		03B9 0314
+1F32		1F30 0300
+1F33		1F31 0300
+1F34		1F30 0301
+1F35		1F31 0301
+1F36		1F30 0342
+1F37		1F31 0342
+1F38		0399 0313
+1F39		0399 0314
+1F3A		1F38 0300
+1F3B		1F39 0300
+1F3C		1F38 0301
+1F3D		1F39 0301
+1F3E		1F38 0342
+1F3F		1F39 0342
+1F40		03BF 0313
+1F41		03BF 0314
+1F42		1F40 0300
+1F43		1F41 0300
+1F44		1F40 0301
+1F45		1F41 0301
+1F48		039F 0313
+1F49		039F 0314
+1F4A		1F48 0300
+1F4B		1F49 0300
+1F4C		1F48 0301
+1F4D		1F49 0301
+1F50		03C5 0313
+1F51		03C5 0314
+1F52		1F50 0300
+1F53		1F51 0300
+1F54		1F50 0301
+1F55		1F51 0301
+1F56		1F50 0342
+1F57		1F51 0342
+1F59		03A5 0314
+1F5B		1F59 0300
+1F5D		1F59 0301
+1F5F		1F59 0342
+1F60		03C9 0313
+1F61		03C9 0314
+1F62		1F60 0300
+1F63		1F61 0300
+1F64		1F60 0301
+1F65		1F61 0301
+1F66		1F60 0342
+1F67		1F61 0342
+1F68		03A9 0313
+1F69		03A9 0314
+1F6A		1F68 0300
+1F6B		1F69 0300
+1F6C		1F68 0301
+1F6D		1F69 0301
+1F6E		1F68 0342
+1F6F		1F69 0342
+1F70		03B1 0300
+1F71		03AC
+1F72		03B5 0300
+1F73		03AD
+1F74		03B7 0300
+1F75		03AE
+1F76		03B9 0300
+1F77		03AF
+1F78		03BF 0300
+1F79		03CC
+1F7A		03C5 0300
+1F7B		03CD
+1F7C		03C9 0300
+1F7D		03CE
+1F80		1F00 0345
+1F81		1F01 0345
+1F82		1F02 0345
+1F83		1F03 0345
+1F84		1F04 0345
+1F85		1F05 0345
+1F86		1F06 0345
+1F87		1F07 0345
+1F88		1F08 0345
+1F89		1F09 0345
+1F8A		1F0A 0345
+1F8B		1F0B 0345
+1F8C		1F0C 0345
+1F8D		1F0D 0345
+1F8E		1F0E 0345
+1F8F		1F0F 0345
+1F90		1F20 0345
+1F91		1F21 0345
+1F92		1F22 0345
+1F93		1F23 0345
+1F94		1F24 0345
+1F95		1F25 0345
+1F96		1F26 0345
+1F97		1F27 0345
+1F98		1F28 0345
+1F99		1F29 0345
+1F9A		1F2A 0345
+1F9B		1F2B 0345
+1F9C		1F2C 0345
+1F9D		1F2D 0345
+1F9E		1F2E 0345
+1F9F		1F2F 0345
+1FA0		1F60 0345
+1FA1		1F61 0345
+1FA2		1F62 0345
+1FA3		1F63 0345
+1FA4		1F64 0345
+1FA5		1F65 0345
+1FA6		1F66 0345
+1FA7		1F67 0345
+1FA8		1F68 0345
+1FA9		1F69 0345
+1FAA		1F6A 0345
+1FAB		1F6B 0345
+1FAC		1F6C 0345
+1FAD		1F6D 0345
+1FAE		1F6E 0345
+1FAF		1F6F 0345
+1FB0		03B1 0306
+1FB1		03B1 0304
+1FB2		1F70 0345
+1FB3		03B1 0345
+1FB4		03AC 0345
+1FB6		03B1 0342
+1FB7		1FB6 0345
+1FB8		0391 0306
+1FB9		0391 0304
+1FBA		0391 0300
+1FBB		0386
+1FBC		0391 0345
+1FBD		<compat> 0020 0313
+1FBE		03B9
+1FBF		<compat> 0020 0313
+1FC0		<compat> 0020 0342
+1FC1		00A8 0342
+1FC2		1F74 0345
+1FC3		03B7 0345
+1FC4		03AE 0345
+1FC6		03B7 0342
+1FC7		1FC6 0345
+1FC8		0395 0300
+1FC9		0388
+1FCA		0397 0300
+1FCB		0389
+1FCC		0397 0345
+1FCD		1FBF 0300
+1FCE		1FBF 0301
+1FCF		1FBF 0342
+1FD0		03B9 0306
+1FD1		03B9 0304
+1FD2		03CA 0300
+1FD3		0390
+1FD6		03B9 0342
+1FD7		03CA 0342
+1FD8		0399 0306
+1FD9		0399 0304
+1FDA		0399 0300
+1FDB		038A
+1FDD		1FFE 0300
+1FDE		1FFE 0301
+1FDF		1FFE 0342
+1FE0		03C5 0306
+1FE1		03C5 0304
+1FE2		03CB 0300
+1FE3		03B0
+1FE4		03C1 0313
+1FE5		03C1 0314
+1FE6		03C5 0342
+1FE7		03CB 0342
+1FE8		03A5 0306
+1FE9		03A5 0304
+1FEA		03A5 0300
+1FEB		038E
+1FEC		03A1 0314
+1FED		00A8 0300
+1FEE		0385
+1FEF		0060
+1FF2		1F7C 0345
+1FF3		03C9 0345
+1FF4		03CE 0345
+1FF6		03C9 0342
+1FF7		1FF6 0345
+1FF8		039F 0300
+1FF9		038C
+1FFA		03A9 0300
+1FFB		038F
+1FFC		03A9 0345
+1FFD		00B4
+1FFE		<compat> 0020 0314
+2000		2002
+2001		2003
+2002	2006	<compat> 0020
+2007		<noBreak> 0020
+2008	200A	<compat> 0020
+2011		<noBreak> 2010
+2017		<compat> 0020 0333
+2024		<compat> 002E
+2025		<compat> 002E 002E
+2026		<compat> 002E 002E 002E
+202F		<noBreak> 0020
+2033		<compat> 2032 2032
+2034		<compat> 2032 2032 2032
+2036		<compat> 2035 2035
+2037		<compat> 2035 2035 2035
+203C		<compat> 0021 0021
+203E		<compat> 0020 0305
+2047		<compat> 003F 003F
+2048		<compat> 003F 0021
+2049		<compat> 0021 003F
+2057		<compat> 2032 2032 2032 2032
+205F		<compat> 0020
+2070		<super> 0030
+2071		<super> 0069
+2074		<super> 0034
+2075		<super> 0035
+2076		<super> 0036
+2077		<super> 0037
+2078		<super> 0038
+2079		<super> 0039
+207A		<super> 002B
+207B		<super> 2212
+207C		<super> 003D
+207D		<super> 0028
+207E		<super> 0029
+207F		<super> 006E
+2080		<sub> 0030
+2081		<sub> 0031
+2082		<sub> 0032
+2083		<sub> 0033
+2084		<sub> 0034
+2085		<sub> 0035
+2086		<sub> 0036
+2087		<sub> 0037
+2088		<sub> 0038
+2089		<sub> 0039
+208A		<sub> 002B
+208B		<sub> 2212
+208C		<sub> 003D
+208D		<sub> 0028
+208E		<sub> 0029
+2090		<sub> 0061
+2091		<sub> 0065
+2092		<sub> 006F
+2093		<sub> 0078
+2094		<sub> 0259
+2095		<sub> 0068
+2096		<sub> 006B
+2097		<sub> 006C
+2098		<sub> 006D
+2099		<sub> 006E
+209A		<sub> 0070
+209B		<sub> 0073
+209C		<sub> 0074
+20A8		<compat> 0052 0073
+2100		<compat> 0061 002F 0063
+2101		<compat> 0061 002F 0073
+2102		<font> 0043
+2103		<compat> 00B0 0043
+2105		<compat> 0063 002F 006F
+2106		<compat> 0063 002F 0075
+2107		<compat> 0190
+2109		<compat> 00B0 0046
+210A		<font> 0067
+210B	210D	<font> 0048
+210E		<font> 0068
+210F		<font> 0127
+2110	2111	<font> 0049
+2112		<font> 004C
+2113		<font> 006C
+2115		<font> 004E
+2116		<compat> 004E 006F
+2119		<font> 0050
+211A		<font> 0051
+211B	211D	<font> 0052
+2120		<super> 0053 004D
+2121		<compat> 0054 0045 004C
+2122		<super> 0054 004D
+2124		<font> 005A
+2126		03A9
+2128		<font> 005A
+212A		004B
+212B		00C5
+212C		<font> 0042
+212D		<font> 0043
+212F		<font> 0065
+2130		<font> 0045
+2131		<font> 0046
+2133		<font> 004D
+2134		<font> 006F
+2135		<compat> 05D0
+2136		<compat> 05D1
+2137		<compat> 05D2
+2138		<compat> 05D3
+2139		<font> 0069
+213B		<compat> 0046 0041 0058
+213C		<font> 03C0
+213D		<font> 03B3
+213E		<font> 0393
+213F		<font> 03A0
+2140		<font> 2211
+2145		<font> 0044
+2146		<font> 0064
+2147		<font> 0065
+2148		<font> 0069
+2149		<font> 006A
+2150		<fraction> 0031 2044 0037
+2151		<fraction> 0031 2044 0039
+2152		<fraction> 0031 2044 0031 0030
+2153		<fraction> 0031 2044 0033
+2154		<fraction> 0032 2044 0033
+2155		<fraction> 0031 2044 0035
+2156		<fraction> 0032 2044 0035
+2157		<fraction> 0033 2044 0035
+2158		<fraction> 0034 2044 0035
+2159		<fraction> 0031 2044 0036
+215A		<fraction> 0035 2044 0036
+215B		<fraction> 0031 2044 0038
+215C		<fraction> 0033 2044 0038
+215D		<fraction> 0035 2044 0038
+215E		<fraction> 0037 2044 0038
+215F		<fraction> 0031 2044
+2160		<compat> 0049
+2161		<compat> 0049 0049
+2162		<compat> 0049 0049 0049
+2163		<compat> 0049 0056
+2164		<compat> 0056
+2165		<compat> 0056 0049
+2166		<compat> 0056 0049 0049
+2167		<compat> 0056 0049 0049 0049
+2168		<compat> 0049 0058
+2169		<compat> 0058
+216A		<compat> 0058 0049
+216B		<compat> 0058 0049 0049
+216C		<compat> 004C
+216D		<compat> 0043
+216E		<compat> 0044
+216F		<compat> 004D
+2170		<compat> 0069
+2171		<compat> 0069 0069
+2172		<compat> 0069 0069 0069
+2173		<compat> 0069 0076
+2174		<compat> 0076
+2175		<compat> 0076 0069
+2176		<compat> 0076 0069 0069
+2177		<compat> 0076 0069 0069 0069
+2178		<compat> 0069 0078
+2179		<compat> 0078
+217A		<compat> 0078 0069
+217B		<compat> 0078 0069 0069
+217C		<compat> 006C
+217D		<compat> 0063
+217E		<compat> 0064
+217F		<compat> 006D
+2189		<fraction> 0030 2044 0033
+219A		2190 0338
+219B		2192 0338
+21AE		2194 0338
+21CD		21D0 0338
+21CE		21D4 0338
+21CF		21D2 0338
+2204		2203 0338
+2209		2208 0338
+220C		220B 0338
+2224		2223 0338
+2226		2225 0338
+222C		<compat> 222B 222B
+222D		<compat> 222B 222B 222B
+222F		<compat> 222E 222E
+2230		<compat> 222E 222E 222E
+2241		223C 0338
+2244		2243 0338
+2247		2245 0338
+2249		2248 0338
+2260		003D 0338
+2262		2261 0338
+226D		224D 0338
+226E		003C 0338
+226F		003E 0338
+2270		2264 0338
+2271		2265 0338
+2274		2272 0338
+2275		2273 0338
+2278		2276 0338
+2279		2277 0338
+2280		227A 0338
+2281		227B 0338
+2284		2282 0338
+2285		2283 0338
+2288		2286 0338
+2289		2287 0338
+22AC		22A2 0338
+22AD		22A8 0338
+22AE		22A9 0338
+22AF		22AB 0338
+22E0		227C 0338
+22E1		227D 0338
+22E2		2291 0338
+22E3		2292 0338
+22EA		22B2 0338
+22EB		22B3 0338
+22EC		22B4 0338
+22ED		22B5 0338
+2329		3008
+232A		3009
+2460		<circle> 0031
+2461		<circle> 0032
+2462		<circle> 0033
+2463		<circle> 0034
+2464		<circle> 0035
+2465		<circle> 0036
+2466		<circle> 0037
+2467		<circle> 0038
+2468		<circle> 0039
+2469		<circle> 0031 0030
+246A		<circle> 0031 0031
+246B		<circle> 0031 0032
+246C		<circle> 0031 0033
+246D		<circle> 0031 0034
+246E		<circle> 0031 0035
+246F		<circle> 0031 0036
+2470		<circle> 0031 0037
+2471		<circle> 0031 0038
+2472		<circle> 0031 0039
+2473		<circle> 0032 0030
+2474		<compat> 0028 0031 0029
+2475		<compat> 0028 0032 0029
+2476		<compat> 0028 0033 0029
+2477		<compat> 0028 0034 0029
+2478		<compat> 0028 0035 0029
+2479		<compat> 0028 0036 0029
+247A		<compat> 0028 0037 0029
+247B		<compat> 0028 0038 0029
+247C		<compat> 0028 0039 0029
+247D		<compat> 0028 0031 0030 0029
+247E		<compat> 0028 0031 0031 0029
+247F		<compat> 0028 0031 0032 0029
+2480		<compat> 0028 0031 0033 0029
+2481		<compat> 0028 0031 0034 0029
+2482		<compat> 0028 0031 0035 0029
+2483		<compat> 0028 0031 0036 0029
+2484		<compat> 0028 0031 0037 0029
+2485		<compat> 0028 0031 0038 0029
+2486		<compat> 0028 0031 0039 0029
+2487		<compat> 0028 0032 0030 0029
+2488		<compat> 0031 002E
+2489		<compat> 0032 002E
+248A		<compat> 0033 002E
+248B		<compat> 0034 002E
+248C		<compat> 0035 002E
+248D		<compat> 0036 002E
+248E		<compat> 0037 002E
+248F		<compat> 0038 002E
+2490		<compat> 0039 002E
+2491		<compat> 0031 0030 002E
+2492		<compat> 0031 0031 002E
+2493		<compat> 0031 0032 002E
+2494		<compat> 0031 0033 002E
+2495		<compat> 0031 0034 002E
+2496		<compat> 0031 0035 002E
+2497		<compat> 0031 0036 002E
+2498		<compat> 0031 0037 002E
+2499		<compat> 0031 0038 002E
+249A		<compat> 0031 0039 002E
+249B		<compat> 0032 0030 002E
+249C		<compat> 0028 0061 0029
+249D		<compat> 0028 0062 0029
+249E		<compat> 0028 0063 0029
+249F		<compat> 0028 0064 0029
+24A0		<compat> 0028 0065 0029
+24A1		<compat> 0028 0066 0029
+24A2		<compat> 0028 0067 0029
+24A3		<compat> 0028 0068 0029
+24A4		<compat> 0028 0069 0029
+24A5		<compat> 0028 006A 0029
+24A6		<compat> 0028 006B 0029
+24A7		<compat> 0028 006C 0029
+24A8		<compat> 0028 006D 0029
+24A9		<compat> 0028 006E 0029
+24AA		<compat> 0028 006F 0029
+24AB		<compat> 0028 0070 0029
+24AC		<compat> 0028 0071 0029
+24AD		<compat> 0028 0072 0029
+24AE		<compat> 0028 0073 0029
+24AF		<compat> 0028 0074 0029
+24B0		<compat> 0028 0075 0029
+24B1		<compat> 0028 0076 0029
+24B2		<compat> 0028 0077 0029
+24B3		<compat> 0028 0078 0029
+24B4		<compat> 0028 0079 0029
+24B5		<compat> 0028 007A 0029
+24B6		<circle> 0041
+24B7		<circle> 0042
+24B8		<circle> 0043
+24B9		<circle> 0044
+24BA		<circle> 0045
+24BB		<circle> 0046
+24BC		<circle> 0047
+24BD		<circle> 0048
+24BE		<circle> 0049
+24BF		<circle> 004A
+24C0		<circle> 004B
+24C1		<circle> 004C
+24C2		<circle> 004D
+24C3		<circle> 004E
+24C4		<circle> 004F
+24C5		<circle> 0050
+24C6		<circle> 0051
+24C7		<circle> 0052
+24C8		<circle> 0053
+24C9		<circle> 0054
+24CA		<circle> 0055
+24CB		<circle> 0056
+24CC		<circle> 0057
+24CD		<circle> 0058
+24CE		<circle> 0059
+24CF		<circle> 005A
+24D0		<circle> 0061
+24D1		<circle> 0062
+24D2		<circle> 0063
+24D3		<circle> 0064
+24D4		<circle> 0065
+24D5		<circle> 0066
+24D6		<circle> 0067
+24D7		<circle> 0068
+24D8		<circle> 0069
+24D9		<circle> 006A
+24DA		<circle> 006B
+24DB		<circle> 006C
+24DC		<circle> 006D
+24DD		<circle> 006E
+24DE		<circle> 006F
+24DF		<circle> 0070
+24E0		<circle> 0071
+24E1		<circle> 0072
+24E2		<circle> 0073
+24E3		<circle> 0074
+24E4		<circle> 0075
+24E5		<circle> 0076
+24E6		<circle> 0077
+24E7		<circle> 0078
+24E8		<circle> 0079
+24E9		<circle> 007A
+24EA		<circle> 0030
+2A0C		<compat> 222B 222B 222B 222B
+2A74		<compat> 003A 003A 003D
+2A75		<compat> 003D 003D
+2A76		<compat> 003D 003D 003D
+2ADC		2ADD 0338
+2C7C		<sub> 006A
+2C7D		<super> 0056
+2D6F		<super> 2D61
+2E9F		<compat> 6BCD
+2EF3		<compat> 9F9F
+2F00		<compat> 4E00
+2F01		<compat> 4E28
+2F02		<compat> 4E36
+2F03		<compat> 4E3F
+2F04		<compat> 4E59
+2F05		<compat> 4E85
+2F06		<compat> 4E8C
+2F07		<compat> 4EA0
+2F08		<compat> 4EBA
+2F09		<compat> 513F
+2F0A		<compat> 5165
+2F0B		<compat> 516B
+2F0C		<compat> 5182
+2F0D		<compat> 5196
+2F0E		<compat> 51AB
+2F0F		<compat> 51E0
+2F10		<compat> 51F5
+2F11		<compat> 5200
+2F12		<compat> 529B
+2F13		<compat> 52F9
+2F14		<compat> 5315
+2F15		<compat> 531A
+2F16		<compat> 5338
+2F17		<compat> 5341
+2F18		<compat> 535C
+2F19		<compat> 5369
+2F1A		<compat> 5382
+2F1B		<compat> 53B6
+2F1C		<compat> 53C8
+2F1D		<compat> 53E3
+2F1E		<compat> 56D7
+2F1F		<compat> 571F
+2F20		<compat> 58EB
+2F21		<compat> 5902
+2F22		<compat> 590A
+2F23		<compat> 5915
+2F24		<compat> 5927
+2F25		<compat> 5973
+2F26		<compat> 5B50
+2F27		<compat> 5B80
+2F28		<compat> 5BF8
+2F29		<compat> 5C0F
+2F2A		<compat> 5C22
+2F2B		<compat> 5C38
+2F2C		<compat> 5C6E
+2F2D		<compat> 5C71
+2F2E		<compat> 5DDB
+2F2F		<compat> 5DE5
+2F30		<compat> 5DF1
+2F31		<compat> 5DFE
+2F32		<compat> 5E72
+2F33		<compat> 5E7A
+2F34		<compat> 5E7F
+2F35		<compat> 5EF4
+2F36		<compat> 5EFE
+2F37		<compat> 5F0B
+2F38		<compat> 5F13
+2F39		<compat> 5F50
+2F3A		<compat> 5F61
+2F3B		<compat> 5F73
+2F3C		<compat> 5FC3
+2F3D		<compat> 6208
+2F3E		<compat> 6236
+2F3F		<compat> 624B
+2F40		<compat> 652F
+2F41		<compat> 6534
+2F42		<compat> 6587
+2F43		<compat> 6597
+2F44		<compat> 65A4
+2F45		<compat> 65B9
+2F46		<compat> 65E0
+2F47		<compat> 65E5
+2F48		<compat> 66F0
+2F49		<compat> 6708
+2F4A		<compat> 6728
+2F4B		<compat> 6B20
+2F4C		<compat> 6B62
+2F4D		<compat> 6B79
+2F4E		<compat> 6BB3
+2F4F		<compat> 6BCB
+2F50		<compat> 6BD4
+2F51		<compat> 6BDB
+2F52		<compat> 6C0F
+2F53		<compat> 6C14
+2F54		<compat> 6C34
+2F55		<compat> 706B
+2F56		<compat> 722A
+2F57		<compat> 7236
+2F58		<compat> 723B
+2F59		<compat> 723F
+2F5A		<compat> 7247
+2F5B		<compat> 7259
+2F5C		<compat> 725B
+2F5D		<compat> 72AC
+2F5E		<compat> 7384
+2F5F		<compat> 7389
+2F60		<compat> 74DC
+2F61		<compat> 74E6
+2F62		<compat> 7518
+2F63		<compat> 751F
+2F64		<compat> 7528
+2F65		<compat> 7530
+2F66		<compat> 758B
+2F67		<compat> 7592
+2F68		<compat> 7676
+2F69		<compat> 767D
+2F6A		<compat> 76AE
+2F6B		<compat> 76BF
+2F6C		<compat> 76EE
+2F6D		<compat> 77DB
+2F6E		<compat> 77E2
+2F6F		<compat> 77F3
+2F70		<compat> 793A
+2F71		<compat> 79B8
+2F72		<compat> 79BE
+2F73		<compat> 7A74
+2F74		<compat> 7ACB
+2F75		<compat> 7AF9
+2F76		<compat> 7C73
+2F77		<compat> 7CF8
+2F78		<compat> 7F36
+2F79		<compat> 7F51
+2F7A		<compat> 7F8A
+2F7B		<compat> 7FBD
+2F7C		<compat> 8001
+2F7D		<compat> 800C
+2F7E		<compat> 8012
+2F7F		<compat> 8033
+2F80		<compat> 807F
+2F81		<compat> 8089
+2F82		<compat> 81E3
+2F83		<compat> 81EA
+2F84		<compat> 81F3
+2F85		<compat> 81FC
+2F86		<compat> 820C
+2F87		<compat> 821B
+2F88		<compat> 821F
+2F89		<compat> 826E
+2F8A		<compat> 8272
+2F8B		<compat> 8278
+2F8C		<compat> 864D
+2F8D		<compat> 866B
+2F8E		<compat> 8840
+2F8F		<compat> 884C
+2F90		<compat> 8863
+2F91		<compat> 897E
+2F92		<compat> 898B
+2F93		<compat> 89D2
+2F94		<compat> 8A00
+2F95		<compat> 8C37
+2F96		<compat> 8C46
+2F97		<compat> 8C55
+2F98		<compat> 8C78
+2F99		<compat> 8C9D
+2F9A		<compat> 8D64
+2F9B		<compat> 8D70
+2F9C		<compat> 8DB3
+2F9D		<compat> 8EAB
+2F9E		<compat> 8ECA
+2F9F		<compat> 8F9B
+2FA0		<compat> 8FB0
+2FA1		<compat> 8FB5
+2FA2		<compat> 9091
+2FA3		<compat> 9149
+2FA4		<compat> 91C6
+2FA5		<compat> 91CC
+2FA6		<compat> 91D1
+2FA7		<compat> 9577
+2FA8		<compat> 9580
+2FA9		<compat> 961C
+2FAA		<compat> 96B6
+2FAB		<compat> 96B9
+2FAC		<compat> 96E8
+2FAD		<compat> 9751
+2FAE		<compat> 975E
+2FAF		<compat> 9762
+2FB0		<compat> 9769
+2FB1		<compat> 97CB
+2FB2		<compat> 97ED
+2FB3		<compat> 97F3
+2FB4		<compat> 9801
+2FB5		<compat> 98A8
+2FB6		<compat> 98DB
+2FB7		<compat> 98DF
+2FB8		<compat> 9996
+2FB9		<compat> 9999
+2FBA		<compat> 99AC
+2FBB		<compat> 9AA8
+2FBC		<compat> 9AD8
+2FBD		<compat> 9ADF
+2FBE		<compat> 9B25
+2FBF		<compat> 9B2F
+2FC0		<compat> 9B32
+2FC1		<compat> 9B3C
+2FC2		<compat> 9B5A
+2FC3		<compat> 9CE5
+2FC4		<compat> 9E75
+2FC5		<compat> 9E7F
+2FC6		<compat> 9EA5
+2FC7		<compat> 9EBB
+2FC8		<compat> 9EC3
+2FC9		<compat> 9ECD
+2FCA		<compat> 9ED1
+2FCB		<compat> 9EF9
+2FCC		<compat> 9EFD
+2FCD		<compat> 9F0E
+2FCE		<compat> 9F13
+2FCF		<compat> 9F20
+2FD0		<compat> 9F3B
+2FD1		<compat> 9F4A
+2FD2		<compat> 9F52
+2FD3		<compat> 9F8D
+2FD4		<compat> 9F9C
+2FD5		<compat> 9FA0
+3000		<wide> 0020
+3036		<compat> 3012
+3038		<compat> 5341
+3039		<compat> 5344
+303A		<compat> 5345
+304C		304B 3099
+304E		304D 3099
+3050		304F 3099
+3052		3051 3099
+3054		3053 3099
+3056		3055 3099
+3058		3057 3099
+305A		3059 3099
+305C		305B 3099
+305E		305D 3099
+3060		305F 3099
+3062		3061 3099
+3065		3064 3099
+3067		3066 3099
+3069		3068 3099
+3070		306F 3099
+3071		306F 309A
+3073		3072 3099
+3074		3072 309A
+3076		3075 3099
+3077		3075 309A
+3079		3078 3099
+307A		3078 309A
+307C		307B 3099
+307D		307B 309A
+3094		3046 3099
+309B		<compat> 0020 3099
+309C		<compat> 0020 309A
+309E		309D 3099
+309F		<vertical> 3088 308A
+30AC		30AB 3099
+30AE		30AD 3099
+30B0		30AF 3099
+30B2		30B1 3099
+30B4		30B3 3099
+30B6		30B5 3099
+30B8		30B7 3099
+30BA		30B9 3099
+30BC		30BB 3099
+30BE		30BD 3099
+30C0		30BF 3099
+30C2		30C1 3099
+30C5		30C4 3099
+30C7		30C6 3099
+30C9		30C8 3099
+30D0		30CF 3099
+30D1		30CF 309A
+30D3		30D2 3099
+30D4		30D2 309A
+30D6		30D5 3099
+30D7		30D5 309A
+30D9		30D8 3099
+30DA		30D8 309A
+30DC		30DB 3099
+30DD		30DB 309A
+30F4		30A6 3099
+30F7		30EF 3099
+30F8		30F0 3099
+30F9		30F1 3099
+30FA		30F2 3099
+30FE		30FD 3099
+30FF		<vertical> 30B3 30C8
+3131		<compat> 1100
+3132		<compat> 1101
+3133		<compat> 11AA
+3134		<compat> 1102
+3135		<compat> 11AC
+3136		<compat> 11AD
+3137		<compat> 1103
+3138		<compat> 1104
+3139		<compat> 1105
+313A		<compat> 11B0
+313B		<compat> 11B1
+313C		<compat> 11B2
+313D		<compat> 11B3
+313E		<compat> 11B4
+313F		<compat> 11B5
+3140		<compat> 111A
+3141		<compat> 1106
+3142		<compat> 1107
+3143		<compat> 1108
+3144		<compat> 1121
+3145		<compat> 1109
+3146		<compat> 110A
+3147		<compat> 110B
+3148		<compat> 110C
+3149		<compat> 110D
+314A		<compat> 110E
+314B		<compat> 110F
+314C		<compat> 1110
+314D		<compat> 1111
+314E		<compat> 1112
+314F		<compat> 1161
+3150		<compat> 1162
+3151		<compat> 1163
+3152		<compat> 1164
+3153		<compat> 1165
+3154		<compat> 1166
+3155		<compat> 1167
+3156		<compat> 1168
+3157		<compat> 1169
+3158		<compat> 116A
+3159		<compat> 116B
+315A		<compat> 116C
+315B		<compat> 116D
+315C		<compat> 116E
+315D		<compat> 116F
+315E		<compat> 1170
+315F		<compat> 1171
+3160		<compat> 1172
+3161		<compat> 1173
+3162		<compat> 1174
+3163		<compat> 1175
+3164		<compat> 1160
+3165		<compat> 1114
+3166		<compat> 1115
+3167		<compat> 11C7
+3168		<compat> 11C8
+3169		<compat> 11CC
+316A		<compat> 11CE
+316B		<compat> 11D3
+316C		<compat> 11D7
+316D		<compat> 11D9
+316E		<compat> 111C
+316F		<compat> 11DD
+3170		<compat> 11DF
+3171		<compat> 111D
+3172		<compat> 111E
+3173		<compat> 1120
+3174		<compat> 1122
+3175		<compat> 1123
+3176		<compat> 1127
+3177		<compat> 1129
+3178		<compat> 112B
+3179		<compat> 112C
+317A		<compat> 112D
+317B		<compat> 112E
+317C		<compat> 112F
+317D		<compat> 1132
+317E		<compat> 1136
+317F		<compat> 1140
+3180		<compat> 1147
+3181		<compat> 114C
+3182		<compat> 11F1
+3183		<compat> 11F2
+3184		<compat> 1157
+3185		<compat> 1158
+3186		<compat> 1159
+3187		<compat> 1184
+3188		<compat> 1185
+3189		<compat> 1188
+318A		<compat> 1191
+318B		<compat> 1192
+318C		<compat> 1194
+318D		<compat> 119E
+318E		<compat> 11A1
+3192		<super> 4E00
+3193		<super> 4E8C
+3194		<super> 4E09
+3195		<super> 56DB
+3196		<super> 4E0A
+3197		<super> 4E2D
+3198		<super> 4E0B
+3199		<super> 7532
+319A		<super> 4E59
+319B		<super> 4E19
+319C		<super> 4E01
+319D		<super> 5929
+319E		<super> 5730
+319F		<super> 4EBA
+3200		<compat> 0028 1100 0029
+3201		<compat> 0028 1102 0029
+3202		<compat> 0028 1103 0029
+3203		<compat> 0028 1105 0029
+3204		<compat> 0028 1106 0029
+3205		<compat> 0028 1107 0029
+3206		<compat> 0028 1109 0029
+3207		<compat> 0028 110B 0029
+3208		<compat> 0028 110C 0029
+3209		<compat> 0028 110E 0029
+320A		<compat> 0028 110F 0029
+320B		<compat> 0028 1110 0029
+320C		<compat> 0028 1111 0029
+320D		<compat> 0028 1112 0029
+320E		<compat> 0028 1100 1161 0029
+320F		<compat> 0028 1102 1161 0029
+3210		<compat> 0028 1103 1161 0029
+3211		<compat> 0028 1105 1161 0029
+3212		<compat> 0028 1106 1161 0029
+3213		<compat> 0028 1107 1161 0029
+3214		<compat> 0028 1109 1161 0029
+3215		<compat> 0028 110B 1161 0029
+3216		<compat> 0028 110C 1161 0029
+3217		<compat> 0028 110E 1161 0029
+3218		<compat> 0028 110F 1161 0029
+3219		<compat> 0028 1110 1161 0029
+321A		<compat> 0028 1111 1161 0029
+321B		<compat> 0028 1112 1161 0029
+321C		<compat> 0028 110C 116E 0029
+321D		<compat> 0028 110B 1169 110C 1165 11AB 0029
+321E		<compat> 0028 110B 1169 1112 116E 0029
+3220		<compat> 0028 4E00 0029
+3221		<compat> 0028 4E8C 0029
+3222		<compat> 0028 4E09 0029
+3223		<compat> 0028 56DB 0029
+3224		<compat> 0028 4E94 0029
+3225		<compat> 0028 516D 0029
+3226		<compat> 0028 4E03 0029
+3227		<compat> 0028 516B 0029
+3228		<compat> 0028 4E5D 0029
+3229		<compat> 0028 5341 0029
+322A		<compat> 0028 6708 0029
+322B		<compat> 0028 706B 0029
+322C		<compat> 0028 6C34 0029
+322D		<compat> 0028 6728 0029
+322E		<compat> 0028 91D1 0029
+322F		<compat> 0028 571F 0029
+3230		<compat> 0028 65E5 0029
+3231		<compat> 0028 682A 0029
+3232		<compat> 0028 6709 0029
+3233		<compat> 0028 793E 0029
+3234		<compat> 0028 540D 0029
+3235		<compat> 0028 7279 0029
+3236		<compat> 0028 8CA1 0029
+3237		<compat> 0028 795D 0029
+3238		<compat> 0028 52B4 0029
+3239		<compat> 0028 4EE3 0029
+323A		<compat> 0028 547C 0029
+323B		<compat> 0028 5B66 0029
+323C		<compat> 0028 76E3 0029
+323D		<compat> 0028 4F01 0029
+323E		<compat> 0028 8CC7 0029
+323F		<compat> 0028 5354 0029
+3240		<compat> 0028 796D 0029
+3241		<compat> 0028 4F11 0029
+3242		<compat> 0028 81EA 0029
+3243		<compat> 0028 81F3 0029
+3244		<circle> 554F
+3245		<circle> 5E7C
+3246		<circle> 6587
+3247		<circle> 7B8F
+3250		<square> 0050 0054 0045
+3251		<circle> 0032 0031
+3252		<circle> 0032 0032
+3253		<circle> 0032 0033
+3254		<circle> 0032 0034
+3255		<circle> 0032 0035
+3256		<circle> 0032 0036
+3257		<circle> 0032 0037
+3258		<circle> 0032 0038
+3259		<circle> 0032 0039
+325A		<circle> 0033 0030
+325B		<circle> 0033 0031
+325C		<circle> 0033 0032
+325D		<circle> 0033 0033
+325E		<circle> 0033 0034
+325F		<circle> 0033 0035
+3260		<circle> 1100
+3261		<circle> 1102
+3262		<circle> 1103
+3263		<circle> 1105
+3264		<circle> 1106
+3265		<circle> 1107
+3266		<circle> 1109
+3267		<circle> 110B
+3268		<circle> 110C
+3269		<circle> 110E
+326A		<circle> 110F
+326B		<circle> 1110
+326C		<circle> 1111
+326D		<circle> 1112
+326E		<circle> 1100 1161
+326F		<circle> 1102 1161
+3270		<circle> 1103 1161
+3271		<circle> 1105 1161
+3272		<circle> 1106 1161
+3273		<circle> 1107 1161
+3274		<circle> 1109 1161
+3275		<circle> 110B 1161
+3276		<circle> 110C 1161
+3277		<circle> 110E 1161
+3278		<circle> 110F 1161
+3279		<circle> 1110 1161
+327A		<circle> 1111 1161
+327B		<circle> 1112 1161
+327C		<circle> 110E 1161 11B7 1100 1169
+327D		<circle> 110C 116E 110B 1174
+327E		<circle> 110B 116E
+3280		<circle> 4E00
+3281		<circle> 4E8C
+3282		<circle> 4E09
+3283		<circle> 56DB
+3284		<circle> 4E94
+3285		<circle> 516D
+3286		<circle> 4E03
+3287		<circle> 516B
+3288		<circle> 4E5D
+3289		<circle> 5341
+328A		<circle> 6708
+328B		<circle> 706B
+328C		<circle> 6C34
+328D		<circle> 6728
+328E		<circle> 91D1
+328F		<circle> 571F
+3290		<circle> 65E5
+3291		<circle> 682A
+3292		<circle> 6709
+3293		<circle> 793E
+3294		<circle> 540D
+3295		<circle> 7279
+3296		<circle> 8CA1
+3297		<circle> 795D
+3298		<circle> 52B4
+3299		<circle> 79D8
+329A		<circle> 7537
+329B		<circle> 5973
+329C		<circle> 9069
+329D		<circle> 512A
+329E		<circle> 5370
+329F		<circle> 6CE8
+32A0		<circle> 9805
+32A1		<circle> 4F11
+32A2		<circle> 5199
+32A3		<circle> 6B63
+32A4		<circle> 4E0A
+32A5		<circle> 4E2D
+32A6		<circle> 4E0B
+32A7		<circle> 5DE6
+32A8		<circle> 53F3
+32A9		<circle> 533B
+32AA		<circle> 5B97
+32AB		<circle> 5B66
+32AC		<circle> 76E3
+32AD		<circle> 4F01
+32AE		<circle> 8CC7
+32AF		<circle> 5354
+32B0		<circle> 591C
+32B1		<circle> 0033 0036
+32B2		<circle> 0033 0037
+32B3		<circle> 0033 0038
+32B4		<circle> 0033 0039
+32B5		<circle> 0034 0030
+32B6		<circle> 0034 0031
+32B7		<circle> 0034 0032
+32B8		<circle> 0034 0033
+32B9		<circle> 0034 0034
+32BA		<circle> 0034 0035
+32BB		<circle> 0034 0036
+32BC		<circle> 0034 0037
+32BD		<circle> 0034 0038
+32BE		<circle> 0034 0039
+32BF		<circle> 0035 0030
+32C0		<compat> 0031 6708
+32C1		<compat> 0032 6708
+32C2		<compat> 0033 6708
+32C3		<compat> 0034 6708
+32C4		<compat> 0035 6708
+32C5		<compat> 0036 6708
+32C6		<compat> 0037 6708
+32C7		<compat> 0038 6708
+32C8		<compat> 0039 6708
+32C9		<compat> 0031 0030 6708
+32CA		<compat> 0031 0031 6708
+32CB		<compat> 0031 0032 6708
+32CC		<square> 0048 0067
+32CD		<square> 0065 0072 0067
+32CE		<square> 0065 0056
+32CF		<square> 004C 0054 0044
+32D0		<circle> 30A2
+32D1		<circle> 30A4
+32D2		<circle> 30A6
+32D3		<circle> 30A8
+32D4		<circle> 30AA
+32D5		<circle> 30AB
+32D6		<circle> 30AD
+32D7		<circle> 30AF
+32D8		<circle> 30B1
+32D9		<circle> 30B3
+32DA		<circle> 30B5
+32DB		<circle> 30B7
+32DC		<circle> 30B9
+32DD		<circle> 30BB
+32DE		<circle> 30BD
+32DF		<circle> 30BF
+32E0		<circle> 30C1
+32E1		<circle> 30C4
+32E2		<circle> 30C6
+32E3		<circle> 30C8
+32E4		<circle> 30CA
+32E5		<circle> 30CB
+32E6		<circle> 30CC
+32E7		<circle> 30CD
+32E8		<circle> 30CE
+32E9		<circle> 30CF
+32EA		<circle> 30D2
+32EB		<circle> 30D5
+32EC		<circle> 30D8
+32ED		<circle> 30DB
+32EE		<circle> 30DE
+32EF		<circle> 30DF
+32F0		<circle> 30E0
+32F1		<circle> 30E1
+32F2		<circle> 30E2
+32F3		<circle> 30E4
+32F4		<circle> 30E6
+32F5		<circle> 30E8
+32F6		<circle> 30E9
+32F7		<circle> 30EA
+32F8		<circle> 30EB
+32F9		<circle> 30EC
+32FA		<circle> 30ED
+32FB		<circle> 30EF
+32FC		<circle> 30F0
+32FD		<circle> 30F1
+32FE		<circle> 30F2
+3300		<square> 30A2 30D1 30FC 30C8
+3301		<square> 30A2 30EB 30D5 30A1
+3302		<square> 30A2 30F3 30DA 30A2
+3303		<square> 30A2 30FC 30EB
+3304		<square> 30A4 30CB 30F3 30B0
+3305		<square> 30A4 30F3 30C1
+3306		<square> 30A6 30A9 30F3
+3307		<square> 30A8 30B9 30AF 30FC 30C9
+3308		<square> 30A8 30FC 30AB 30FC
+3309		<square> 30AA 30F3 30B9
+330A		<square> 30AA 30FC 30E0
+330B		<square> 30AB 30A4 30EA
+330C		<square> 30AB 30E9 30C3 30C8
+330D		<square> 30AB 30ED 30EA 30FC
+330E		<square> 30AC 30ED 30F3
+330F		<square> 30AC 30F3 30DE
+3310		<square> 30AE 30AC
+3311		<square> 30AE 30CB 30FC
+3312		<square> 30AD 30E5 30EA 30FC
+3313		<square> 30AE 30EB 30C0 30FC
+3314		<square> 30AD 30ED
+3315		<square> 30AD 30ED 30B0 30E9 30E0
+3316		<square> 30AD 30ED 30E1 30FC 30C8 30EB
+3317		<square> 30AD 30ED 30EF 30C3 30C8
+3318		<square> 30B0 30E9 30E0
+3319		<square> 30B0 30E9 30E0 30C8 30F3
+331A		<square> 30AF 30EB 30BC 30A4 30ED
+331B		<square> 30AF 30ED 30FC 30CD
+331C		<square> 30B1 30FC 30B9
+331D		<square> 30B3 30EB 30CA
+331E		<square> 30B3 30FC 30DD
+331F		<square> 30B5 30A4 30AF 30EB
+3320		<square> 30B5 30F3 30C1 30FC 30E0
+3321		<square> 30B7 30EA 30F3 30B0
+3322		<square> 30BB 30F3 30C1
+3323		<square> 30BB 30F3 30C8
+3324		<square> 30C0 30FC 30B9
+3325		<square> 30C7 30B7
+3326		<square> 30C9 30EB
+3327		<square> 30C8 30F3
+3328		<square> 30CA 30CE
+3329		<square> 30CE 30C3 30C8
+332A		<square> 30CF 30A4 30C4
+332B		<square> 30D1 30FC 30BB 30F3 30C8
+332C		<square> 30D1 30FC 30C4
+332D		<square> 30D0 30FC 30EC 30EB
+332E		<square> 30D4 30A2 30B9 30C8 30EB
+332F		<square> 30D4 30AF 30EB
+3330		<square> 30D4 30B3
+3331		<square> 30D3 30EB
+3332		<square> 30D5 30A1 30E9 30C3 30C9
+3333		<square> 30D5 30A3 30FC 30C8
+3334		<square> 30D6 30C3 30B7 30A7 30EB
+3335		<square> 30D5 30E9 30F3
+3336		<square> 30D8 30AF 30BF 30FC 30EB
+3337		<square> 30DA 30BD
+3338		<square> 30DA 30CB 30D2
+3339		<square> 30D8 30EB 30C4
+333A		<square> 30DA 30F3 30B9
+333B		<square> 30DA 30FC 30B8
+333C		<square> 30D9 30FC 30BF
+333D		<square> 30DD 30A4 30F3 30C8
+333E		<square> 30DC 30EB 30C8
+333F		<square> 30DB 30F3
+3340		<square> 30DD 30F3 30C9
+3341		<square> 30DB 30FC 30EB
+3342		<square> 30DB 30FC 30F3
+3343		<square> 30DE 30A4 30AF 30ED
+3344		<square> 30DE 30A4 30EB
+3345		<square> 30DE 30C3 30CF
+3346		<square> 30DE 30EB 30AF
+3347		<square> 30DE 30F3 30B7 30E7 30F3
+3348		<square> 30DF 30AF 30ED 30F3
+3349		<square> 30DF 30EA
+334A		<square> 30DF 30EA 30D0 30FC 30EB
+334B		<square> 30E1 30AC
+334C		<square> 30E1 30AC 30C8 30F3
+334D		<square> 30E1 30FC 30C8 30EB
+334E		<square> 30E4 30FC 30C9
+334F		<square> 30E4 30FC 30EB
+3350		<square> 30E6 30A2 30F3
+3351		<square> 30EA 30C3 30C8 30EB
+3352		<square> 30EA 30E9
+3353		<square> 30EB 30D4 30FC
+3354		<square> 30EB 30FC 30D6 30EB
+3355		<square> 30EC 30E0
+3356		<square> 30EC 30F3 30C8 30B2 30F3
+3357		<square> 30EF 30C3 30C8
+3358		<compat> 0030 70B9
+3359		<compat> 0031 70B9
+335A		<compat> 0032 70B9
+335B		<compat> 0033 70B9
+335C		<compat> 0034 70B9
+335D		<compat> 0035 70B9
+335E		<compat> 0036 70B9
+335F		<compat> 0037 70B9
+3360		<compat> 0038 70B9
+3361		<compat> 0039 70B9
+3362		<compat> 0031 0030 70B9
+3363		<compat> 0031 0031 70B9
+3364		<compat> 0031 0032 70B9
+3365		<compat> 0031 0033 70B9
+3366		<compat> 0031 0034 70B9
+3367		<compat> 0031 0035 70B9
+3368		<compat> 0031 0036 70B9
+3369		<compat> 0031 0037 70B9
+336A		<compat> 0031 0038 70B9
+336B		<compat> 0031 0039 70B9
+336C		<compat> 0032 0030 70B9
+336D		<compat> 0032 0031 70B9
+336E		<compat> 0032 0032 70B9
+336F		<compat> 0032 0033 70B9
+3370		<compat> 0032 0034 70B9
+3371		<square> 0068 0050 0061
+3372		<square> 0064 0061
+3373		<square> 0041 0055
+3374		<square> 0062 0061 0072
+3375		<square> 006F 0056
+3376		<square> 0070 0063
+3377		<square> 0064 006D
+3378		<square> 0064 006D 00B2
+3379		<square> 0064 006D 00B3
+337A		<square> 0049 0055
+337B		<square> 5E73 6210
+337C		<square> 662D 548C
+337D		<square> 5927 6B63
+337E		<square> 660E 6CBB
+337F		<square> 682A 5F0F 4F1A 793E
+3380		<square> 0070 0041
+3381		<square> 006E 0041
+3382		<square> 03BC 0041
+3383		<square> 006D 0041
+3384		<square> 006B 0041
+3385		<square> 004B 0042
+3386		<square> 004D 0042
+3387		<square> 0047 0042
+3388		<square> 0063 0061 006C
+3389		<square> 006B 0063 0061 006C
+338A		<square> 0070 0046
+338B		<square> 006E 0046
+338C		<square> 03BC 0046
+338D		<square> 03BC 0067
+338E		<square> 006D 0067
+338F		<square> 006B 0067
+3390		<square> 0048 007A
+3391		<square> 006B 0048 007A
+3392		<square> 004D 0048 007A
+3393		<square> 0047 0048 007A
+3394		<square> 0054 0048 007A
+3395		<square> 03BC 2113
+3396		<square> 006D 2113
+3397		<square> 0064 2113
+3398		<square> 006B 2113
+3399		<square> 0066 006D
+339A		<square> 006E 006D
+339B		<square> 03BC 006D
+339C		<square> 006D 006D
+339D		<square> 0063 006D
+339E		<square> 006B 006D
+339F		<square> 006D 006D 00B2
+33A0		<square> 0063 006D 00B2
+33A1		<square> 006D 00B2
+33A2		<square> 006B 006D 00B2
+33A3		<square> 006D 006D 00B3
+33A4		<square> 0063 006D 00B3
+33A5		<square> 006D 00B3
+33A6		<square> 006B 006D 00B3
+33A7		<square> 006D 2215 0073
+33A8		<square> 006D 2215 0073 00B2
+33A9		<square> 0050 0061
+33AA		<square> 006B 0050 0061
+33AB		<square> 004D 0050 0061
+33AC		<square> 0047 0050 0061
+33AD		<square> 0072 0061 0064
+33AE		<square> 0072 0061 0064 2215 0073
+33AF		<square> 0072 0061 0064 2215 0073 00B2
+33B0		<square> 0070 0073
+33B1		<square> 006E 0073
+33B2		<square> 03BC 0073
+33B3		<square> 006D 0073
+33B4		<square> 0070 0056
+33B5		<square> 006E 0056
+33B6		<square> 03BC 0056
+33B7		<square> 006D 0056
+33B8		<square> 006B 0056
+33B9		<square> 004D 0056
+33BA		<square> 0070 0057
+33BB		<square> 006E 0057
+33BC		<square> 03BC 0057
+33BD		<square> 006D 0057
+33BE		<square> 006B 0057
+33BF		<square> 004D 0057
+33C0		<square> 006B 03A9
+33C1		<square> 004D 03A9
+33C2		<square> 0061 002E 006D 002E
+33C3		<square> 0042 0071
+33C4		<square> 0063 0063
+33C5		<square> 0063 0064
+33C6		<square> 0043 2215 006B 0067
+33C7		<square> 0043 006F 002E
+33C8		<square> 0064 0042
+33C9		<square> 0047 0079
+33CA		<square> 0068 0061
+33CB		<square> 0048 0050
+33CC		<square> 0069 006E
+33CD		<square> 004B 004B
+33CE		<square> 004B 004D
+33CF		<square> 006B 0074
+33D0		<square> 006C 006D
+33D1		<square> 006C 006E
+33D2		<square> 006C 006F 0067
+33D3		<square> 006C 0078
+33D4		<square> 006D 0062
+33D5		<square> 006D 0069 006C
+33D6		<square> 006D 006F 006C
+33D7		<square> 0050 0048
+33D8		<square> 0070 002E 006D 002E
+33D9		<square> 0050 0050 004D
+33DA		<square> 0050 0052
+33DB		<square> 0073 0072
+33DC		<square> 0053 0076
+33DD		<square> 0057 0062
+33DE		<square> 0056 2215 006D
+33DF		<square> 0041 2215 006D
+33E0		<compat> 0031 65E5
+33E1		<compat> 0032 65E5
+33E2		<compat> 0033 65E5
+33E3		<compat> 0034 65E5
+33E4		<compat> 0035 65E5
+33E5		<compat> 0036 65E5
+33E6		<compat> 0037 65E5
+33E7		<compat> 0038 65E5
+33E8		<compat> 0039 65E5
+33E9		<compat> 0031 0030 65E5
+33EA		<compat> 0031 0031 65E5
+33EB		<compat> 0031 0032 65E5
+33EC		<compat> 0031 0033 65E5
+33ED		<compat> 0031 0034 65E5
+33EE		<compat> 0031 0035 65E5
+33EF		<compat> 0031 0036 65E5
+33F0		<compat> 0031 0037 65E5
+33F1		<compat> 0031 0038 65E5
+33F2		<compat> 0031 0039 65E5
+33F3		<compat> 0032 0030 65E5
+33F4		<compat> 0032 0031 65E5
+33F5		<compat> 0032 0032 65E5
+33F6		<compat> 0032 0033 65E5
+33F7		<compat> 0032 0034 65E5
+33F8		<compat> 0032 0035 65E5
+33F9		<compat> 0032 0036 65E5
+33FA		<compat> 0032 0037 65E5
+33FB		<compat> 0032 0038 65E5
+33FC		<compat> 0032 0039 65E5
+33FD		<compat> 0033 0030 65E5
+33FE		<compat> 0033 0031 65E5
+33FF		<square> 0067 0061 006C
+A69C		<super> 044A
+A69D		<super> 044C
+A770		<super> A76F
+A7F8		<super> 0126
+A7F9		<super> 0153
+AB5C		<super> A727
+AB5D		<super> AB37
+AB5E		<super> 026B
+AB5F		<super> AB52
+F900		8C48
+F901		66F4
+F902		8ECA
+F903		8CC8
+F904		6ED1
+F905		4E32
+F906		53E5
+F907	F908	9F9C
+F909		5951
+F90A		91D1
+F90B		5587
+F90C		5948
+F90D		61F6
+F90E		7669
+F90F		7F85
+F910		863F
+F911		87BA
+F912		88F8
+F913		908F
+F914		6A02
+F915		6D1B
+F916		70D9
+F917		73DE
+F918		843D
+F919		916A
+F91A		99F1
+F91B		4E82
+F91C		5375
+F91D		6B04
+F91E		721B
+F91F		862D
+F920		9E1E
+F921		5D50
+F922		6FEB
+F923		85CD
+F924		8964
+F925		62C9
+F926		81D8
+F927		881F
+F928		5ECA
+F929		6717
+F92A		6D6A
+F92B		72FC
+F92C		90CE
+F92D		4F86
+F92E		51B7
+F92F		52DE
+F930		64C4
+F931		6AD3
+F932		7210
+F933		76E7
+F934		8001
+F935		8606
+F936		865C
+F937		8DEF
+F938		9732
+F939		9B6F
+F93A		9DFA
+F93B		788C
+F93C		797F
+F93D		7DA0
+F93E		83C9
+F93F		9304
+F940		9E7F
+F941		8AD6
+F942		58DF
+F943		5F04
+F944		7C60
+F945		807E
+F946		7262
+F947		78CA
+F948		8CC2
+F949		96F7
+F94A		58D8
+F94B		5C62
+F94C		6A13
+F94D		6DDA
+F94E		6F0F
+F94F		7D2F
+F950		7E37
+F951		964B
+F952		52D2
+F953		808B
+F954		51DC
+F955		51CC
+F956		7A1C
+F957		7DBE
+F958		83F1
+F959		9675
+F95A		8B80
+F95B		62CF
+F95C		6A02
+F95D		8AFE
+F95E		4E39
+F95F		5BE7
+F960		6012
+F961		7387
+F962		7570
+F963		5317
+F964		78FB
+F965		4FBF
+F966		5FA9
+F967		4E0D
+F968		6CCC
+F969		6578
+F96A		7D22
+F96B		53C3
+F96C		585E
+F96D		7701
+F96E		8449
+F96F		8AAA
+F970		6BBA
+F971		8FB0
+F972		6C88
+F973		62FE
+F974		82E5
+F975		63A0
+F976		7565
+F977		4EAE
+F978		5169
+F979		51C9
+F97A		6881
+F97B		7CE7
+F97C		826F
+F97D		8AD2
+F97E		91CF
+F97F		52F5
+F980		5442
+F981		5973
+F982		5EEC
+F983		65C5
+F984		6FFE
+F985		792A
+F986		95AD
+F987		9A6A
+F988		9E97
+F989		9ECE
+F98A		529B
+F98B		66C6
+F98C		6B77
+F98D		8F62
+F98E		5E74
+F98F		6190
+F990		6200
+F991		649A
+F992		6F23
+F993		7149
+F994		7489
+F995		79CA
+F996		7DF4
+F997		806F
+F998		8F26
+F999		84EE
+F99A		9023
+F99B		934A
+F99C		5217
+F99D		52A3
+F99E		54BD
+F99F		70C8
+F9A0		88C2
+F9A1		8AAA
+F9A2		5EC9
+F9A3		5FF5
+F9A4		637B
+F9A5		6BAE
+F9A6		7C3E
+F9A7		7375
+F9A8		4EE4
+F9A9		56F9
+F9AA		5BE7
+F9AB		5DBA
+F9AC		601C
+F9AD		73B2
+F9AE		7469
+F9AF		7F9A
+F9B0		8046
+F9B1		9234
+F9B2		96F6
+F9B3		9748
+F9B4		9818
+F9B5		4F8B
+F9B6		79AE
+F9B7		91B4
+F9B8		96B8
+F9B9		60E1
+F9BA		4E86
+F9BB		50DA
+F9BC		5BEE
+F9BD		5C3F
+F9BE		6599
+F9BF		6A02
+F9C0		71CE
+F9C1		7642
+F9C2		84FC
+F9C3		907C
+F9C4		9F8D
+F9C5		6688
+F9C6		962E
+F9C7		5289
+F9C8		677B
+F9C9		67F3
+F9CA		6D41
+F9CB		6E9C
+F9CC		7409
+F9CD		7559
+F9CE		786B
+F9CF		7D10
+F9D0		985E
+F9D1		516D
+F9D2		622E
+F9D3		9678
+F9D4		502B
+F9D5		5D19
+F9D6		6DEA
+F9D7		8F2A
+F9D8		5F8B
+F9D9		6144
+F9DA		6817
+F9DB		7387
+F9DC		9686
+F9DD		5229
+F9DE		540F
+F9DF		5C65
+F9E0		6613
+F9E1		674E
+F9E2		68A8
+F9E3		6CE5
+F9E4		7406
+F9E5		75E2
+F9E6		7F79
+F9E7		88CF
+F9E8		88E1
+F9E9		91CC
+F9EA		96E2
+F9EB		533F
+F9EC		6EBA
+F9ED		541D
+F9EE		71D0
+F9EF		7498
+F9F0		85FA
+F9F1		96A3
+F9F2		9C57
+F9F3		9E9F
+F9F4		6797
+F9F5		6DCB
+F9F6		81E8
+F9F7		7ACB
+F9F8		7B20
+F9F9		7C92
+F9FA		72C0
+F9FB		7099
+F9FC		8B58
+F9FD		4EC0
+F9FE		8336
+F9FF		523A
+FA00		5207
+FA01		5EA6
+FA02		62D3
+FA03		7CD6
+FA04		5B85
+FA05		6D1E
+FA06		66B4
+FA07		8F3B
+FA08		884C
+FA09		964D
+FA0A		898B
+FA0B		5ED3
+FA0C		5140
+FA0D		55C0
+FA10		585A
+FA12		6674
+FA15		51DE
+FA16		732A
+FA17		76CA
+FA18		793C
+FA19		795E
+FA1A		7965
+FA1B		798F
+FA1C		9756
+FA1D		7CBE
+FA1E		7FBD
+FA20		8612
+FA22		8AF8
+FA25		9038
+FA26		90FD
+FA2A		98EF
+FA2B		98FC
+FA2C		9928
+FA2D		9DB4
+FA2E		90DE
+FA2F		96B7
+FA30		4FAE
+FA31		50E7
+FA32		514D
+FA33		52C9
+FA34		52E4
+FA35		5351
+FA36		559D
+FA37		5606
+FA38		5668
+FA39		5840
+FA3A		58A8
+FA3B		5C64
+FA3C		5C6E
+FA3D		6094
+FA3E		6168
+FA3F		618E
+FA40		61F2
+FA41		654F
+FA42		65E2
+FA43		6691
+FA44		6885
+FA45		6D77
+FA46		6E1A
+FA47		6F22
+FA48		716E
+FA49		722B
+FA4A		7422
+FA4B		7891
+FA4C		793E
+FA4D		7949
+FA4E		7948
+FA4F		7950
+FA50		7956
+FA51		795D
+FA52		798D
+FA53		798E
+FA54		7A40
+FA55		7A81
+FA56		7BC0
+FA57		7DF4
+FA58		7E09
+FA59		7E41
+FA5A		7F72
+FA5B		8005
+FA5C		81ED
+FA5D	FA5E	8279
+FA5F		8457
+FA60		8910
+FA61		8996
+FA62		8B01
+FA63		8B39
+FA64		8CD3
+FA65		8D08
+FA66		8FB6
+FA67		9038
+FA68		96E3
+FA69		97FF
+FA6A		983B
+FA6B		6075
+FA6C		242EE
+FA6D		8218
+FA70		4E26
+FA71		51B5
+FA72		5168
+FA73		4F80
+FA74		5145
+FA75		5180
+FA76		52C7
+FA77		52FA
+FA78		559D
+FA79		5555
+FA7A		5599
+FA7B		55E2
+FA7C		585A
+FA7D		58B3
+FA7E		5944
+FA7F		5954
+FA80		5A62
+FA81		5B28
+FA82		5ED2
+FA83		5ED9
+FA84		5F69
+FA85		5FAD
+FA86		60D8
+FA87		614E
+FA88		6108
+FA89		618E
+FA8A		6160
+FA8B		61F2
+FA8C		6234
+FA8D		63C4
+FA8E		641C
+FA8F		6452
+FA90		6556
+FA91		6674
+FA92		6717
+FA93		671B
+FA94		6756
+FA95		6B79
+FA96		6BBA
+FA97		6D41
+FA98		6EDB
+FA99		6ECB
+FA9A		6F22
+FA9B		701E
+FA9C		716E
+FA9D		77A7
+FA9E		7235
+FA9F		72AF
+FAA0		732A
+FAA1		7471
+FAA2		7506
+FAA3		753B
+FAA4		761D
+FAA5		761F
+FAA6		76CA
+FAA7		76DB
+FAA8		76F4
+FAA9		774A
+FAAA		7740
+FAAB		78CC
+FAAC		7AB1
+FAAD		7BC0
+FAAE		7C7B
+FAAF		7D5B
+FAB0		7DF4
+FAB1		7F3E
+FAB2		8005
+FAB3		8352
+FAB4		83EF
+FAB5		8779
+FAB6		8941
+FAB7		8986
+FAB8		8996
+FAB9		8ABF
+FABA		8AF8
+FABB		8ACB
+FABC		8B01
+FABD		8AFE
+FABE		8AED
+FABF		8B39
+FAC0		8B8A
+FAC1		8D08
+FAC2		8F38
+FAC3		9072
+FAC4		9199
+FAC5		9276
+FAC6		967C
+FAC7		96E3
+FAC8		9756
+FAC9		97DB
+FACA		97FF
+FACB		980B
+FACC		983B
+FACD		9B12
+FACE		9F9C
+FACF		2284A
+FAD0		22844
+FAD1		233D5
+FAD2		3B9D
+FAD3		4018
+FAD4		4039
+FAD5		25249
+FAD6		25CD0
+FAD7		27ED3
+FAD8		9F43
+FAD9		9F8E
+FB00		<compat> 0066 0066
+FB01		<compat> 0066 0069
+FB02		<compat> 0066 006C
+FB03		<compat> 0066 0066 0069
+FB04		<compat> 0066 0066 006C
+FB05		<compat> 017F 0074
+FB06		<compat> 0073 0074
+FB13		<compat> 0574 0576
+FB14		<compat> 0574 0565
+FB15		<compat> 0574 056B
+FB16		<compat> 057E 0576
+FB17		<compat> 0574 056D
+FB1D		05D9 05B4
+FB1F		05F2 05B7
+FB20		<font> 05E2
+FB21		<font> 05D0
+FB22		<font> 05D3
+FB23		<font> 05D4
+FB24		<font> 05DB
+FB25		<font> 05DC
+FB26		<font> 05DD
+FB27		<font> 05E8
+FB28		<font> 05EA
+FB29		<font> 002B
+FB2A		05E9 05C1
+FB2B		05E9 05C2
+FB2C		FB49 05C1
+FB2D		FB49 05C2
+FB2E		05D0 05B7
+FB2F		05D0 05B8
+FB30		05D0 05BC
+FB31		05D1 05BC
+FB32		05D2 05BC
+FB33		05D3 05BC
+FB34		05D4 05BC
+FB35		05D5 05BC
+FB36		05D6 05BC
+FB38		05D8 05BC
+FB39		05D9 05BC
+FB3A		05DA 05BC
+FB3B		05DB 05BC
+FB3C		05DC 05BC
+FB3E		05DE 05BC
+FB40		05E0 05BC
+FB41		05E1 05BC
+FB43		05E3 05BC
+FB44		05E4 05BC
+FB46		05E6 05BC
+FB47		05E7 05BC
+FB48		05E8 05BC
+FB49		05E9 05BC
+FB4A		05EA 05BC
+FB4B		05D5 05B9
+FB4C		05D1 05BF
+FB4D		05DB 05BF
+FB4E		05E4 05BF
+FB4F		<compat> 05D0 05DC
+FB50		<isolated> 0671
+FB51		<final> 0671
+FB52		<isolated> 067B
+FB53		<final> 067B
+FB54		<initial> 067B
+FB55		<medial> 067B
+FB56		<isolated> 067E
+FB57		<final> 067E
+FB58		<initial> 067E
+FB59		<medial> 067E
+FB5A		<isolated> 0680
+FB5B		<final> 0680
+FB5C		<initial> 0680
+FB5D		<medial> 0680
+FB5E		<isolated> 067A
+FB5F		<final> 067A
+FB60		<initial> 067A
+FB61		<medial> 067A
+FB62		<isolated> 067F
+FB63		<final> 067F
+FB64		<initial> 067F
+FB65		<medial> 067F
+FB66		<isolated> 0679
+FB67		<final> 0679
+FB68		<initial> 0679
+FB69		<medial> 0679
+FB6A		<isolated> 06A4
+FB6B		<final> 06A4
+FB6C		<initial> 06A4
+FB6D		<medial> 06A4
+FB6E		<isolated> 06A6
+FB6F		<final> 06A6
+FB70		<initial> 06A6
+FB71		<medial> 06A6
+FB72		<isolated> 0684
+FB73		<final> 0684
+FB74		<initial> 0684
+FB75		<medial> 0684
+FB76		<isolated> 0683
+FB77		<final> 0683
+FB78		<initial> 0683
+FB79		<medial> 0683
+FB7A		<isolated> 0686
+FB7B		<final> 0686
+FB7C		<initial> 0686
+FB7D		<medial> 0686
+FB7E		<isolated> 0687
+FB7F		<final> 0687
+FB80		<initial> 0687
+FB81		<medial> 0687
+FB82		<isolated> 068D
+FB83		<final> 068D
+FB84		<isolated> 068C
+FB85		<final> 068C
+FB86		<isolated> 068E
+FB87		<final> 068E
+FB88		<isolated> 0688
+FB89		<final> 0688
+FB8A		<isolated> 0698
+FB8B		<final> 0698
+FB8C		<isolated> 0691
+FB8D		<final> 0691
+FB8E		<isolated> 06A9
+FB8F		<final> 06A9
+FB90		<initial> 06A9
+FB91		<medial> 06A9
+FB92		<isolated> 06AF
+FB93		<final> 06AF
+FB94		<initial> 06AF
+FB95		<medial> 06AF
+FB96		<isolated> 06B3
+FB97		<final> 06B3
+FB98		<initial> 06B3
+FB99		<medial> 06B3
+FB9A		<isolated> 06B1
+FB9B		<final> 06B1
+FB9C		<initial> 06B1
+FB9D		<medial> 06B1
+FB9E		<isolated> 06BA
+FB9F		<final> 06BA
+FBA0		<isolated> 06BB
+FBA1		<final> 06BB
+FBA2		<initial> 06BB
+FBA3		<medial> 06BB
+FBA4		<isolated> 06C0
+FBA5		<final> 06C0
+FBA6		<isolated> 06C1
+FBA7		<final> 06C1
+FBA8		<initial> 06C1
+FBA9		<medial> 06C1
+FBAA		<isolated> 06BE
+FBAB		<final> 06BE
+FBAC		<initial> 06BE
+FBAD		<medial> 06BE
+FBAE		<isolated> 06D2
+FBAF		<final> 06D2
+FBB0		<isolated> 06D3
+FBB1		<final> 06D3
+FBD3		<isolated> 06AD
+FBD4		<final> 06AD
+FBD5		<initial> 06AD
+FBD6		<medial> 06AD
+FBD7		<isolated> 06C7
+FBD8		<final> 06C7
+FBD9		<isolated> 06C6
+FBDA		<final> 06C6
+FBDB		<isolated> 06C8
+FBDC		<final> 06C8
+FBDD		<isolated> 0677
+FBDE		<isolated> 06CB
+FBDF		<final> 06CB
+FBE0		<isolated> 06C5
+FBE1		<final> 06C5
+FBE2		<isolated> 06C9
+FBE3		<final> 06C9
+FBE4		<isolated> 06D0
+FBE5		<final> 06D0
+FBE6		<initial> 06D0
+FBE7		<medial> 06D0
+FBE8		<initial> 0649
+FBE9		<medial> 0649
+FBEA		<isolated> 0626 0627
+FBEB		<final> 0626 0627
+FBEC		<isolated> 0626 06D5
+FBED		<final> 0626 06D5
+FBEE		<isolated> 0626 0648
+FBEF		<final> 0626 0648
+FBF0		<isolated> 0626 06C7
+FBF1		<final> 0626 06C7
+FBF2		<isolated> 0626 06C6
+FBF3		<final> 0626 06C6
+FBF4		<isolated> 0626 06C8
+FBF5		<final> 0626 06C8
+FBF6		<isolated> 0626 06D0
+FBF7		<final> 0626 06D0
+FBF8		<initial> 0626 06D0
+FBF9		<isolated> 0626 0649
+FBFA		<final> 0626 0649
+FBFB		<initial> 0626 0649
+FBFC		<isolated> 06CC
+FBFD		<final> 06CC
+FBFE		<initial> 06CC
+FBFF		<medial> 06CC
+FC00		<isolated> 0626 062C
+FC01		<isolated> 0626 062D
+FC02		<isolated> 0626 0645
+FC03		<isolated> 0626 0649
+FC04		<isolated> 0626 064A
+FC05		<isolated> 0628 062C
+FC06		<isolated> 0628 062D
+FC07		<isolated> 0628 062E
+FC08		<isolated> 0628 0645
+FC09		<isolated> 0628 0649
+FC0A		<isolated> 0628 064A
+FC0B		<isolated> 062A 062C
+FC0C		<isolated> 062A 062D
+FC0D		<isolated> 062A 062E
+FC0E		<isolated> 062A 0645
+FC0F		<isolated> 062A 0649
+FC10		<isolated> 062A 064A
+FC11		<isolated> 062B 062C
+FC12		<isolated> 062B 0645
+FC13		<isolated> 062B 0649
+FC14		<isolated> 062B 064A
+FC15		<isolated> 062C 062D
+FC16		<isolated> 062C 0645
+FC17		<isolated> 062D 062C
+FC18		<isolated> 062D 0645
+FC19		<isolated> 062E 062C
+FC1A		<isolated> 062E 062D
+FC1B		<isolated> 062E 0645
+FC1C		<isolated> 0633 062C
+FC1D		<isolated> 0633 062D
+FC1E		<isolated> 0633 062E
+FC1F		<isolated> 0633 0645
+FC20		<isolated> 0635 062D
+FC21		<isolated> 0635 0645
+FC22		<isolated> 0636 062C
+FC23		<isolated> 0636 062D
+FC24		<isolated> 0636 062E
+FC25		<isolated> 0636 0645
+FC26		<isolated> 0637 062D
+FC27		<isolated> 0637 0645
+FC28		<isolated> 0638 0645
+FC29		<isolated> 0639 062C
+FC2A		<isolated> 0639 0645
+FC2B		<isolated> 063A 062C
+FC2C		<isolated> 063A 0645
+FC2D		<isolated> 0641 062C
+FC2E		<isolated> 0641 062D
+FC2F		<isolated> 0641 062E
+FC30		<isolated> 0641 0645
+FC31		<isolated> 0641 0649
+FC32		<isolated> 0641 064A
+FC33		<isolated> 0642 062D
+FC34		<isolated> 0642 0645
+FC35		<isolated> 0642 0649
+FC36		<isolated> 0642 064A
+FC37		<isolated> 0643 0627
+FC38		<isolated> 0643 062C
+FC39		<isolated> 0643 062D
+FC3A		<isolated> 0643 062E
+FC3B		<isolated> 0643 0644
+FC3C		<isolated> 0643 0645
+FC3D		<isolated> 0643 0649
+FC3E		<isolated> 0643 064A
+FC3F		<isolated> 0644 062C
+FC40		<isolated> 0644 062D
+FC41		<isolated> 0644 062E
+FC42		<isolated> 0644 0645
+FC43		<isolated> 0644 0649
+FC44		<isolated> 0644 064A
+FC45		<isolated> 0645 062C
+FC46		<isolated> 0645 062D
+FC47		<isolated> 0645 062E
+FC48		<isolated> 0645 0645
+FC49		<isolated> 0645 0649
+FC4A		<isolated> 0645 064A
+FC4B		<isolated> 0646 062C
+FC4C		<isolated> 0646 062D
+FC4D		<isolated> 0646 062E
+FC4E		<isolated> 0646 0645
+FC4F		<isolated> 0646 0649
+FC50		<isolated> 0646 064A
+FC51		<isolated> 0647 062C
+FC52		<isolated> 0647 0645
+FC53		<isolated> 0647 0649
+FC54		<isolated> 0647 064A
+FC55		<isolated> 064A 062C
+FC56		<isolated> 064A 062D
+FC57		<isolated> 064A 062E
+FC58		<isolated> 064A 0645
+FC59		<isolated> 064A 0649
+FC5A		<isolated> 064A 064A
+FC5B		<isolated> 0630 0670
+FC5C		<isolated> 0631 0670
+FC5D		<isolated> 0649 0670
+FC5E		<isolated> 0020 064C 0651
+FC5F		<isolated> 0020 064D 0651
+FC60		<isolated> 0020 064E 0651
+FC61		<isolated> 0020 064F 0651
+FC62		<isolated> 0020 0650 0651
+FC63		<isolated> 0020 0651 0670
+FC64		<final> 0626 0631
+FC65		<final> 0626 0632
+FC66		<final> 0626 0645
+FC67		<final> 0626 0646
+FC68		<final> 0626 0649
+FC69		<final> 0626 064A
+FC6A		<final> 0628 0631
+FC6B		<final> 0628 0632
+FC6C		<final> 0628 0645
+FC6D		<final> 0628 0646
+FC6E		<final> 0628 0649
+FC6F		<final> 0628 064A
+FC70		<final> 062A 0631
+FC71		<final> 062A 0632
+FC72		<final> 062A 0645
+FC73		<final> 062A 0646
+FC74		<final> 062A 0649
+FC75		<final> 062A 064A
+FC76		<final> 062B 0631
+FC77		<final> 062B 0632
+FC78		<final> 062B 0645
+FC79		<final> 062B 0646
+FC7A		<final> 062B 0649
+FC7B		<final> 062B 064A
+FC7C		<final> 0641 0649
+FC7D		<final> 0641 064A
+FC7E		<final> 0642 0649
+FC7F		<final> 0642 064A
+FC80		<final> 0643 0627
+FC81		<final> 0643 0644
+FC82		<final> 0643 0645
+FC83		<final> 0643 0649
+FC84		<final> 0643 064A
+FC85		<final> 0644 0645
+FC86		<final> 0644 0649
+FC87		<final> 0644 064A
+FC88		<final> 0645 0627
+FC89		<final> 0645 0645
+FC8A		<final> 0646 0631
+FC8B		<final> 0646 0632
+FC8C		<final> 0646 0645
+FC8D		<final> 0646 0646
+FC8E		<final> 0646 0649
+FC8F		<final> 0646 064A
+FC90		<final> 0649 0670
+FC91		<final> 064A 0631
+FC92		<final> 064A 0632
+FC93		<final> 064A 0645
+FC94		<final> 064A 0646
+FC95		<final> 064A 0649
+FC96		<final> 064A 064A
+FC97		<initial> 0626 062C
+FC98		<initial> 0626 062D
+FC99		<initial> 0626 062E
+FC9A		<initial> 0626 0645
+FC9B		<initial> 0626 0647
+FC9C		<initial> 0628 062C
+FC9D		<initial> 0628 062D
+FC9E		<initial> 0628 062E
+FC9F		<initial> 0628 0645
+FCA0		<initial> 0628 0647
+FCA1		<initial> 062A 062C
+FCA2		<initial> 062A 062D
+FCA3		<initial> 062A 062E
+FCA4		<initial> 062A 0645
+FCA5		<initial> 062A 0647
+FCA6		<initial> 062B 0645
+FCA7		<initial> 062C 062D
+FCA8		<initial> 062C 0645
+FCA9		<initial> 062D 062C
+FCAA		<initial> 062D 0645
+FCAB		<initial> 062E 062C
+FCAC		<initial> 062E 0645
+FCAD		<initial> 0633 062C
+FCAE		<initial> 0633 062D
+FCAF		<initial> 0633 062E
+FCB0		<initial> 0633 0645
+FCB1		<initial> 0635 062D
+FCB2		<initial> 0635 062E
+FCB3		<initial> 0635 0645
+FCB4		<initial> 0636 062C
+FCB5		<initial> 0636 062D
+FCB6		<initial> 0636 062E
+FCB7		<initial> 0636 0645
+FCB8		<initial> 0637 062D
+FCB9		<initial> 0638 0645
+FCBA		<initial> 0639 062C
+FCBB		<initial> 0639 0645
+FCBC		<initial> 063A 062C
+FCBD		<initial> 063A 0645
+FCBE		<initial> 0641 062C
+FCBF		<initial> 0641 062D
+FCC0		<initial> 0641 062E
+FCC1		<initial> 0641 0645
+FCC2		<initial> 0642 062D
+FCC3		<initial> 0642 0645
+FCC4		<initial> 0643 062C
+FCC5		<initial> 0643 062D
+FCC6		<initial> 0643 062E
+FCC7		<initial> 0643 0644
+FCC8		<initial> 0643 0645
+FCC9		<initial> 0644 062C
+FCCA		<initial> 0644 062D
+FCCB		<initial> 0644 062E
+FCCC		<initial> 0644 0645
+FCCD		<initial> 0644 0647
+FCCE		<initial> 0645 062C
+FCCF		<initial> 0645 062D
+FCD0		<initial> 0645 062E
+FCD1		<initial> 0645 0645
+FCD2		<initial> 0646 062C
+FCD3		<initial> 0646 062D
+FCD4		<initial> 0646 062E
+FCD5		<initial> 0646 0645
+FCD6		<initial> 0646 0647
+FCD7		<initial> 0647 062C
+FCD8		<initial> 0647 0645
+FCD9		<initial> 0647 0670
+FCDA		<initial> 064A 062C
+FCDB		<initial> 064A 062D
+FCDC		<initial> 064A 062E
+FCDD		<initial> 064A 0645
+FCDE		<initial> 064A 0647
+FCDF		<medial> 0626 0645
+FCE0		<medial> 0626 0647
+FCE1		<medial> 0628 0645
+FCE2		<medial> 0628 0647
+FCE3		<medial> 062A 0645
+FCE4		<medial> 062A 0647
+FCE5		<medial> 062B 0645
+FCE6		<medial> 062B 0647
+FCE7		<medial> 0633 0645
+FCE8		<medial> 0633 0647
+FCE9		<medial> 0634 0645
+FCEA		<medial> 0634 0647
+FCEB		<medial> 0643 0644
+FCEC		<medial> 0643 0645
+FCED		<medial> 0644 0645
+FCEE		<medial> 0646 0645
+FCEF		<medial> 0646 0647
+FCF0		<medial> 064A 0645
+FCF1		<medial> 064A 0647
+FCF2		<medial> 0640 064E 0651
+FCF3		<medial> 0640 064F 0651
+FCF4		<medial> 0640 0650 0651
+FCF5		<isolated> 0637 0649
+FCF6		<isolated> 0637 064A
+FCF7		<isolated> 0639 0649
+FCF8		<isolated> 0639 064A
+FCF9		<isolated> 063A 0649
+FCFA		<isolated> 063A 064A
+FCFB		<isolated> 0633 0649
+FCFC		<isolated> 0633 064A
+FCFD		<isolated> 0634 0649
+FCFE		<isolated> 0634 064A
+FCFF		<isolated> 062D 0649
+FD00		<isolated> 062D 064A
+FD01		<isolated> 062C 0649
+FD02		<isolated> 062C 064A
+FD03		<isolated> 062E 0649
+FD04		<isolated> 062E 064A
+FD05		<isolated> 0635 0649
+FD06		<isolated> 0635 064A
+FD07		<isolated> 0636 0649
+FD08		<isolated> 0636 064A
+FD09		<isolated> 0634 062C
+FD0A		<isolated> 0634 062D
+FD0B		<isolated> 0634 062E
+FD0C		<isolated> 0634 0645
+FD0D		<isolated> 0634 0631
+FD0E		<isolated> 0633 0631
+FD0F		<isolated> 0635 0631
+FD10		<isolated> 0636 0631
+FD11		<final> 0637 0649
+FD12		<final> 0637 064A
+FD13		<final> 0639 0649
+FD14		<final> 0639 064A
+FD15		<final> 063A 0649
+FD16		<final> 063A 064A
+FD17		<final> 0633 0649
+FD18		<final> 0633 064A
+FD19		<final> 0634 0649
+FD1A		<final> 0634 064A
+FD1B		<final> 062D 0649
+FD1C		<final> 062D 064A
+FD1D		<final> 062C 0649
+FD1E		<final> 062C 064A
+FD1F		<final> 062E 0649
+FD20		<final> 062E 064A
+FD21		<final> 0635 0649
+FD22		<final> 0635 064A
+FD23		<final> 0636 0649
+FD24		<final> 0636 064A
+FD25		<final> 0634 062C
+FD26		<final> 0634 062D
+FD27		<final> 0634 062E
+FD28		<final> 0634 0645
+FD29		<final> 0634 0631
+FD2A		<final> 0633 0631
+FD2B		<final> 0635 0631
+FD2C		<final> 0636 0631
+FD2D		<initial> 0634 062C
+FD2E		<initial> 0634 062D
+FD2F		<initial> 0634 062E
+FD30		<initial> 0634 0645
+FD31		<initial> 0633 0647
+FD32		<initial> 0634 0647
+FD33		<initial> 0637 0645
+FD34		<medial> 0633 062C
+FD35		<medial> 0633 062D
+FD36		<medial> 0633 062E
+FD37		<medial> 0634 062C
+FD38		<medial> 0634 062D
+FD39		<medial> 0634 062E
+FD3A		<medial> 0637 0645
+FD3B		<medial> 0638 0645
+FD3C		<final> 0627 064B
+FD3D		<isolated> 0627 064B
+FD50		<initial> 062A 062C 0645
+FD51		<final> 062A 062D 062C
+FD52		<initial> 062A 062D 062C
+FD53		<initial> 062A 062D 0645
+FD54		<initial> 062A 062E 0645
+FD55		<initial> 062A 0645 062C
+FD56		<initial> 062A 0645 062D
+FD57		<initial> 062A 0645 062E
+FD58		<final> 062C 0645 062D
+FD59		<initial> 062C 0645 062D
+FD5A		<final> 062D 0645 064A
+FD5B		<final> 062D 0645 0649
+FD5C		<initial> 0633 062D 062C
+FD5D		<initial> 0633 062C 062D
+FD5E		<final> 0633 062C 0649
+FD5F		<final> 0633 0645 062D
+FD60		<initial> 0633 0645 062D
+FD61		<initial> 0633 0645 062C
+FD62		<final> 0633 0645 0645
+FD63		<initial> 0633 0645 0645
+FD64		<final> 0635 062D 062D
+FD65		<initial> 0635 062D 062D
+FD66		<final> 0635 0645 0645
+FD67		<final> 0634 062D 0645
+FD68		<initial> 0634 062D 0645
+FD69		<final> 0634 062C 064A
+FD6A		<final> 0634 0645 062E
+FD6B		<initial> 0634 0645 062E
+FD6C		<final> 0634 0645 0645
+FD6D		<initial> 0634 0645 0645
+FD6E		<final> 0636 062D 0649
+FD6F		<final> 0636 062E 0645
+FD70		<initial> 0636 062E 0645
+FD71		<final> 0637 0645 062D
+FD72		<initial> 0637 0645 062D
+FD73		<initial> 0637 0645 0645
+FD74		<final> 0637 0645 064A
+FD75		<final> 0639 062C 0645
+FD76		<final> 0639 0645 0645
+FD77		<initial> 0639 0645 0645
+FD78		<final> 0639 0645 0649
+FD79		<final> 063A 0645 0645
+FD7A		<final> 063A 0645 064A
+FD7B		<final> 063A 0645 0649
+FD7C		<final> 0641 062E 0645
+FD7D		<initial> 0641 062E 0645
+FD7E		<final> 0642 0645 062D
+FD7F		<final> 0642 0645 0645
+FD80		<final> 0644 062D 0645
+FD81		<final> 0644 062D 064A
+FD82		<final> 0644 062D 0649
+FD83		<initial> 0644 062C 062C
+FD84		<final> 0644 062C 062C
+FD85		<final> 0644 062E 0645
+FD86		<initial> 0644 062E 0645
+FD87		<final> 0644 0645 062D
+FD88		<initial> 0644 0645 062D
+FD89		<initial> 0645 062D 062C
+FD8A		<initial> 0645 062D 0645
+FD8B		<final> 0645 062D 064A
+FD8C		<initial> 0645 062C 062D
+FD8D		<initial> 0645 062C 0645
+FD8E		<initial> 0645 062E 062C
+FD8F		<initial> 0645 062E 0645
+FD92		<initial> 0645 062C 062E
+FD93		<initial> 0647 0645 062C
+FD94		<initial> 0647 0645 0645
+FD95		<initial> 0646 062D 0645
+FD96		<final> 0646 062D 0649
+FD97		<final> 0646 062C 0645
+FD98		<initial> 0646 062C 0645
+FD99		<final> 0646 062C 0649
+FD9A		<final> 0646 0645 064A
+FD9B		<final> 0646 0645 0649
+FD9C		<final> 064A 0645 0645
+FD9D		<initial> 064A 0645 0645
+FD9E		<final> 0628 062E 064A
+FD9F		<final> 062A 062C 064A
+FDA0		<final> 062A 062C 0649
+FDA1		<final> 062A 062E 064A
+FDA2		<final> 062A 062E 0649
+FDA3		<final> 062A 0645 064A
+FDA4		<final> 062A 0645 0649
+FDA5		<final> 062C 0645 064A
+FDA6		<final> 062C 062D 0649
+FDA7		<final> 062C 0645 0649
+FDA8		<final> 0633 062E 0649
+FDA9		<final> 0635 062D 064A
+FDAA		<final> 0634 062D 064A
+FDAB		<final> 0636 062D 064A
+FDAC		<final> 0644 062C 064A
+FDAD		<final> 0644 0645 064A
+FDAE		<final> 064A 062D 064A
+FDAF		<final> 064A 062C 064A
+FDB0		<final> 064A 0645 064A
+FDB1		<final> 0645 0645 064A
+FDB2		<final> 0642 0645 064A
+FDB3		<final> 0646 062D 064A
+FDB4		<initial> 0642 0645 062D
+FDB5		<initial> 0644 062D 0645
+FDB6		<final> 0639 0645 064A
+FDB7		<final> 0643 0645 064A
+FDB8		<initial> 0646 062C 062D
+FDB9		<final> 0645 062E 064A
+FDBA		<initial> 0644 062C 0645
+FDBB		<final> 0643 0645 0645
+FDBC		<final> 0644 062C 0645
+FDBD		<final> 0646 062C 062D
+FDBE		<final> 062C 062D 064A
+FDBF		<final> 062D 062C 064A
+FDC0		<final> 0645 062C 064A
+FDC1		<final> 0641 0645 064A
+FDC2		<final> 0628 062D 064A
+FDC3		<initial> 0643 0645 0645
+FDC4		<initial> 0639 062C 0645
+FDC5		<initial> 0635 0645 0645
+FDC6		<final> 0633 062E 064A
+FDC7		<final> 0646 062C 064A
+FDF0		<isolated> 0635 0644 06D2
+FDF1		<isolated> 0642 0644 06D2
+FDF2		<isolated> 0627 0644 0644 0647
+FDF3		<isolated> 0627 0643 0628 0631
+FDF4		<isolated> 0645 062D 0645 062F
+FDF5		<isolated> 0635 0644 0639 0645
+FDF6		<isolated> 0631 0633 0648 0644
+FDF7		<isolated> 0639 0644 064A 0647
+FDF8		<isolated> 0648 0633 0644 0645
+FDF9		<isolated> 0635 0644 0649
+FDFA		<isolated> 0635 0644 0649 0020 0627 0644 0644 0647 0020 0639 0644 064A 0647 0020 0648 0633 0644 0645
+FDFB		<isolated> 062C 0644 0020 062C 0644 0627 0644 0647
+FDFC		<isolated> 0631 06CC 0627 0644
+FE10		<vertical> 002C
+FE11		<vertical> 3001
+FE12		<vertical> 3002
+FE13		<vertical> 003A
+FE14		<vertical> 003B
+FE15		<vertical> 0021
+FE16		<vertical> 003F
+FE17		<vertical> 3016
+FE18		<vertical> 3017
+FE19		<vertical> 2026
+FE30		<vertical> 2025
+FE31		<vertical> 2014
+FE32		<vertical> 2013
+FE33	FE34	<vertical> 005F
+FE35		<vertical> 0028
+FE36		<vertical> 0029
+FE37		<vertical> 007B
+FE38		<vertical> 007D
+FE39		<vertical> 3014
+FE3A		<vertical> 3015
+FE3B		<vertical> 3010
+FE3C		<vertical> 3011
+FE3D		<vertical> 300A
+FE3E		<vertical> 300B
+FE3F		<vertical> 3008
+FE40		<vertical> 3009
+FE41		<vertical> 300C
+FE42		<vertical> 300D
+FE43		<vertical> 300E
+FE44		<vertical> 300F
+FE47		<vertical> 005B
+FE48		<vertical> 005D
+FE49	FE4C	<compat> 203E
+FE4D	FE4F	<compat> 005F
+FE50		<small> 002C
+FE51		<small> 3001
+FE52		<small> 002E
+FE54		<small> 003B
+FE55		<small> 003A
+FE56		<small> 003F
+FE57		<small> 0021
+FE58		<small> 2014
+FE59		<small> 0028
+FE5A		<small> 0029
+FE5B		<small> 007B
+FE5C		<small> 007D
+FE5D		<small> 3014
+FE5E		<small> 3015
+FE5F		<small> 0023
+FE60		<small> 0026
+FE61		<small> 002A
+FE62		<small> 002B
+FE63		<small> 002D
+FE64		<small> 003C
+FE65		<small> 003E
+FE66		<small> 003D
+FE68		<small> 005C
+FE69		<small> 0024
+FE6A		<small> 0025
+FE6B		<small> 0040
+FE70		<isolated> 0020 064B
+FE71		<medial> 0640 064B
+FE72		<isolated> 0020 064C
+FE74		<isolated> 0020 064D
+FE76		<isolated> 0020 064E
+FE77		<medial> 0640 064E
+FE78		<isolated> 0020 064F
+FE79		<medial> 0640 064F
+FE7A		<isolated> 0020 0650
+FE7B		<medial> 0640 0650
+FE7C		<isolated> 0020 0651
+FE7D		<medial> 0640 0651
+FE7E		<isolated> 0020 0652
+FE7F		<medial> 0640 0652
+FE80		<isolated> 0621
+FE81		<isolated> 0622
+FE82		<final> 0622
+FE83		<isolated> 0623
+FE84		<final> 0623
+FE85		<isolated> 0624
+FE86		<final> 0624
+FE87		<isolated> 0625
+FE88		<final> 0625
+FE89		<isolated> 0626
+FE8A		<final> 0626
+FE8B		<initial> 0626
+FE8C		<medial> 0626
+FE8D		<isolated> 0627
+FE8E		<final> 0627
+FE8F		<isolated> 0628
+FE90		<final> 0628
+FE91		<initial> 0628
+FE92		<medial> 0628
+FE93		<isolated> 0629
+FE94		<final> 0629
+FE95		<isolated> 062A
+FE96		<final> 062A
+FE97		<initial> 062A
+FE98		<medial> 062A
+FE99		<isolated> 062B
+FE9A		<final> 062B
+FE9B		<initial> 062B
+FE9C		<medial> 062B
+FE9D		<isolated> 062C
+FE9E		<final> 062C
+FE9F		<initial> 062C
+FEA0		<medial> 062C
+FEA1		<isolated> 062D
+FEA2		<final> 062D
+FEA3		<initial> 062D
+FEA4		<medial> 062D
+FEA5		<isolated> 062E
+FEA6		<final> 062E
+FEA7		<initial> 062E
+FEA8		<medial> 062E
+FEA9		<isolated> 062F
+FEAA		<final> 062F
+FEAB		<isolated> 0630
+FEAC		<final> 0630
+FEAD		<isolated> 0631
+FEAE		<final> 0631
+FEAF		<isolated> 0632
+FEB0		<final> 0632
+FEB1		<isolated> 0633
+FEB2		<final> 0633
+FEB3		<initial> 0633
+FEB4		<medial> 0633
+FEB5		<isolated> 0634
+FEB6		<final> 0634
+FEB7		<initial> 0634
+FEB8		<medial> 0634
+FEB9		<isolated> 0635
+FEBA		<final> 0635
+FEBB		<initial> 0635
+FEBC		<medial> 0635
+FEBD		<isolated> 0636
+FEBE		<final> 0636
+FEBF		<initial> 0636
+FEC0		<medial> 0636
+FEC1		<isolated> 0637
+FEC2		<final> 0637
+FEC3		<initial> 0637
+FEC4		<medial> 0637
+FEC5		<isolated> 0638
+FEC6		<final> 0638
+FEC7		<initial> 0638
+FEC8		<medial> 0638
+FEC9		<isolated> 0639
+FECA		<final> 0639
+FECB		<initial> 0639
+FECC		<medial> 0639
+FECD		<isolated> 063A
+FECE		<final> 063A
+FECF		<initial> 063A
+FED0		<medial> 063A
+FED1		<isolated> 0641
+FED2		<final> 0641
+FED3		<initial> 0641
+FED4		<medial> 0641
+FED5		<isolated> 0642
+FED6		<final> 0642
+FED7		<initial> 0642
+FED8		<medial> 0642
+FED9		<isolated> 0643
+FEDA		<final> 0643
+FEDB		<initial> 0643
+FEDC		<medial> 0643
+FEDD		<isolated> 0644
+FEDE		<final> 0644
+FEDF		<initial> 0644
+FEE0		<medial> 0644
+FEE1		<isolated> 0645
+FEE2		<final> 0645
+FEE3		<initial> 0645
+FEE4		<medial> 0645
+FEE5		<isolated> 0646
+FEE6		<final> 0646
+FEE7		<initial> 0646
+FEE8		<medial> 0646
+FEE9		<isolated> 0647
+FEEA		<final> 0647
+FEEB		<initial> 0647
+FEEC		<medial> 0647
+FEED		<isolated> 0648
+FEEE		<final> 0648
+FEEF		<isolated> 0649
+FEF0		<final> 0649
+FEF1		<isolated> 064A
+FEF2		<final> 064A
+FEF3		<initial> 064A
+FEF4		<medial> 064A
+FEF5		<isolated> 0644 0622
+FEF6		<final> 0644 0622
+FEF7		<isolated> 0644 0623
+FEF8		<final> 0644 0623
+FEF9		<isolated> 0644 0625
+FEFA		<final> 0644 0625
+FEFB		<isolated> 0644 0627
+FEFC		<final> 0644 0627
+FF01		<wide> 0021
+FF02		<wide> 0022
+FF03		<wide> 0023
+FF04		<wide> 0024
+FF05		<wide> 0025
+FF06		<wide> 0026
+FF07		<wide> 0027
+FF08		<wide> 0028
+FF09		<wide> 0029
+FF0A		<wide> 002A
+FF0B		<wide> 002B
+FF0C		<wide> 002C
+FF0D		<wide> 002D
+FF0E		<wide> 002E
+FF0F		<wide> 002F
+FF10		<wide> 0030
+FF11		<wide> 0031
+FF12		<wide> 0032
+FF13		<wide> 0033
+FF14		<wide> 0034
+FF15		<wide> 0035
+FF16		<wide> 0036
+FF17		<wide> 0037
+FF18		<wide> 0038
+FF19		<wide> 0039
+FF1A		<wide> 003A
+FF1B		<wide> 003B
+FF1C		<wide> 003C
+FF1D		<wide> 003D
+FF1E		<wide> 003E
+FF1F		<wide> 003F
+FF20		<wide> 0040
+FF21		<wide> 0041
+FF22		<wide> 0042
+FF23		<wide> 0043
+FF24		<wide> 0044
+FF25		<wide> 0045
+FF26		<wide> 0046
+FF27		<wide> 0047
+FF28		<wide> 0048
+FF29		<wide> 0049
+FF2A		<wide> 004A
+FF2B		<wide> 004B
+FF2C		<wide> 004C
+FF2D		<wide> 004D
+FF2E		<wide> 004E
+FF2F		<wide> 004F
+FF30		<wide> 0050
+FF31		<wide> 0051
+FF32		<wide> 0052
+FF33		<wide> 0053
+FF34		<wide> 0054
+FF35		<wide> 0055
+FF36		<wide> 0056
+FF37		<wide> 0057
+FF38		<wide> 0058
+FF39		<wide> 0059
+FF3A		<wide> 005A
+FF3B		<wide> 005B
+FF3C		<wide> 005C
+FF3D		<wide> 005D
+FF3E		<wide> 005E
+FF3F		<wide> 005F
+FF40		<wide> 0060
+FF41		<wide> 0061
+FF42		<wide> 0062
+FF43		<wide> 0063
+FF44		<wide> 0064
+FF45		<wide> 0065
+FF46		<wide> 0066
+FF47		<wide> 0067
+FF48		<wide> 0068
+FF49		<wide> 0069
+FF4A		<wide> 006A
+FF4B		<wide> 006B
+FF4C		<wide> 006C
+FF4D		<wide> 006D
+FF4E		<wide> 006E
+FF4F		<wide> 006F
+FF50		<wide> 0070
+FF51		<wide> 0071
+FF52		<wide> 0072
+FF53		<wide> 0073
+FF54		<wide> 0074
+FF55		<wide> 0075
+FF56		<wide> 0076
+FF57		<wide> 0077
+FF58		<wide> 0078
+FF59		<wide> 0079
+FF5A		<wide> 007A
+FF5B		<wide> 007B
+FF5C		<wide> 007C
+FF5D		<wide> 007D
+FF5E		<wide> 007E
+FF5F		<wide> 2985
+FF60		<wide> 2986
+FF61		<narrow> 3002
+FF62		<narrow> 300C
+FF63		<narrow> 300D
+FF64		<narrow> 3001
+FF65		<narrow> 30FB
+FF66		<narrow> 30F2
+FF67		<narrow> 30A1
+FF68		<narrow> 30A3
+FF69		<narrow> 30A5
+FF6A		<narrow> 30A7
+FF6B		<narrow> 30A9
+FF6C		<narrow> 30E3
+FF6D		<narrow> 30E5
+FF6E		<narrow> 30E7
+FF6F		<narrow> 30C3
+FF70		<narrow> 30FC
+FF71		<narrow> 30A2
+FF72		<narrow> 30A4
+FF73		<narrow> 30A6
+FF74		<narrow> 30A8
+FF75		<narrow> 30AA
+FF76		<narrow> 30AB
+FF77		<narrow> 30AD
+FF78		<narrow> 30AF
+FF79		<narrow> 30B1
+FF7A		<narrow> 30B3
+FF7B		<narrow> 30B5
+FF7C		<narrow> 30B7
+FF7D		<narrow> 30B9
+FF7E		<narrow> 30BB
+FF7F		<narrow> 30BD
+FF80		<narrow> 30BF
+FF81		<narrow> 30C1
+FF82		<narrow> 30C4
+FF83		<narrow> 30C6
+FF84		<narrow> 30C8
+FF85		<narrow> 30CA
+FF86		<narrow> 30CB
+FF87		<narrow> 30CC
+FF88		<narrow> 30CD
+FF89		<narrow> 30CE
+FF8A		<narrow> 30CF
+FF8B		<narrow> 30D2
+FF8C		<narrow> 30D5
+FF8D		<narrow> 30D8
+FF8E		<narrow> 30DB
+FF8F		<narrow> 30DE
+FF90		<narrow> 30DF
+FF91		<narrow> 30E0
+FF92		<narrow> 30E1
+FF93		<narrow> 30E2
+FF94		<narrow> 30E4
+FF95		<narrow> 30E6
+FF96		<narrow> 30E8
+FF97		<narrow> 30E9
+FF98		<narrow> 30EA
+FF99		<narrow> 30EB
+FF9A		<narrow> 30EC
+FF9B		<narrow> 30ED
+FF9C		<narrow> 30EF
+FF9D		<narrow> 30F3
+FF9E		<narrow> 3099
+FF9F		<narrow> 309A
+FFA0		<narrow> 3164
+FFA1		<narrow> 3131
+FFA2		<narrow> 3132
+FFA3		<narrow> 3133
+FFA4		<narrow> 3134
+FFA5		<narrow> 3135
+FFA6		<narrow> 3136
+FFA7		<narrow> 3137
+FFA8		<narrow> 3138
+FFA9		<narrow> 3139
+FFAA		<narrow> 313A
+FFAB		<narrow> 313B
+FFAC		<narrow> 313C
+FFAD		<narrow> 313D
+FFAE		<narrow> 313E
+FFAF		<narrow> 313F
+FFB0		<narrow> 3140
+FFB1		<narrow> 3141
+FFB2		<narrow> 3142
+FFB3		<narrow> 3143
+FFB4		<narrow> 3144
+FFB5		<narrow> 3145
+FFB6		<narrow> 3146
+FFB7		<narrow> 3147
+FFB8		<narrow> 3148
+FFB9		<narrow> 3149
+FFBA		<narrow> 314A
+FFBB		<narrow> 314B
+FFBC		<narrow> 314C
+FFBD		<narrow> 314D
+FFBE		<narrow> 314E
+FFC2		<narrow> 314F
+FFC3		<narrow> 3150
+FFC4		<narrow> 3151
+FFC5		<narrow> 3152
+FFC6		<narrow> 3153
+FFC7		<narrow> 3154
+FFCA		<narrow> 3155
+FFCB		<narrow> 3156
+FFCC		<narrow> 3157
+FFCD		<narrow> 3158
+FFCE		<narrow> 3159
+FFCF		<narrow> 315A
+FFD2		<narrow> 315B
+FFD3		<narrow> 315C
+FFD4		<narrow> 315D
+FFD5		<narrow> 315E
+FFD6		<narrow> 315F
+FFD7		<narrow> 3160
+FFDA		<narrow> 3161
+FFDB		<narrow> 3162
+FFDC		<narrow> 3163
+FFE0		<wide> 00A2
+FFE1		<wide> 00A3
+FFE2		<wide> 00AC
+FFE3		<wide> 00AF
+FFE4		<wide> 00A6
+FFE5		<wide> 00A5
+FFE6		<wide> 20A9
+FFE8		<narrow> 2502
+FFE9		<narrow> 2190
+FFEA		<narrow> 2191
+FFEB		<narrow> 2192
+FFEC		<narrow> 2193
+FFED		<narrow> 25A0
+FFEE		<narrow> 25CB
+1109A		11099 110BA
+1109C		1109B 110BA
+110AB		110A5 110BA
+1112E		11131 11127
+1112F		11132 11127
+1134B		11347 1133E
+1134C		11347 11357
+114BB		114B9 114BA
+114BC		114B9 114B0
+114BE		114B9 114BD
+115BA		115B8 115AF
+115BB		115B9 115AF
+1D15E		1D157 1D165
+1D15F		1D158 1D165
+1D160		1D15F 1D16E
+1D161		1D15F 1D16F
+1D162		1D15F 1D170
+1D163		1D15F 1D171
+1D164		1D15F 1D172
+1D1BB		1D1B9 1D165
+1D1BC		1D1BA 1D165
+1D1BD		1D1BB 1D16E
+1D1BE		1D1BC 1D16E
+1D1BF		1D1BB 1D16F
+1D1C0		1D1BC 1D16F
+1D400		<font> 0041
+1D401		<font> 0042
+1D402		<font> 0043
+1D403		<font> 0044
+1D404		<font> 0045
+1D405		<font> 0046
+1D406		<font> 0047
+1D407		<font> 0048
+1D408		<font> 0049
+1D409		<font> 004A
+1D40A		<font> 004B
+1D40B		<font> 004C
+1D40C		<font> 004D
+1D40D		<font> 004E
+1D40E		<font> 004F
+1D40F		<font> 0050
+1D410		<font> 0051
+1D411		<font> 0052
+1D412		<font> 0053
+1D413		<font> 0054
+1D414		<font> 0055
+1D415		<font> 0056
+1D416		<font> 0057
+1D417		<font> 0058
+1D418		<font> 0059
+1D419		<font> 005A
+1D41A		<font> 0061
+1D41B		<font> 0062
+1D41C		<font> 0063
+1D41D		<font> 0064
+1D41E		<font> 0065
+1D41F		<font> 0066
+1D420		<font> 0067
+1D421		<font> 0068
+1D422		<font> 0069
+1D423		<font> 006A
+1D424		<font> 006B
+1D425		<font> 006C
+1D426		<font> 006D
+1D427		<font> 006E
+1D428		<font> 006F
+1D429		<font> 0070
+1D42A		<font> 0071
+1D42B		<font> 0072
+1D42C		<font> 0073
+1D42D		<font> 0074
+1D42E		<font> 0075
+1D42F		<font> 0076
+1D430		<font> 0077
+1D431		<font> 0078
+1D432		<font> 0079
+1D433		<font> 007A
+1D434		<font> 0041
+1D435		<font> 0042
+1D436		<font> 0043
+1D437		<font> 0044
+1D438		<font> 0045
+1D439		<font> 0046
+1D43A		<font> 0047
+1D43B		<font> 0048
+1D43C		<font> 0049
+1D43D		<font> 004A
+1D43E		<font> 004B
+1D43F		<font> 004C
+1D440		<font> 004D
+1D441		<font> 004E
+1D442		<font> 004F
+1D443		<font> 0050
+1D444		<font> 0051
+1D445		<font> 0052
+1D446		<font> 0053
+1D447		<font> 0054
+1D448		<font> 0055
+1D449		<font> 0056
+1D44A		<font> 0057
+1D44B		<font> 0058
+1D44C		<font> 0059
+1D44D		<font> 005A
+1D44E		<font> 0061
+1D44F		<font> 0062
+1D450		<font> 0063
+1D451		<font> 0064
+1D452		<font> 0065
+1D453		<font> 0066
+1D454		<font> 0067
+1D456		<font> 0069
+1D457		<font> 006A
+1D458		<font> 006B
+1D459		<font> 006C
+1D45A		<font> 006D
+1D45B		<font> 006E
+1D45C		<font> 006F
+1D45D		<font> 0070
+1D45E		<font> 0071
+1D45F		<font> 0072
+1D460		<font> 0073
+1D461		<font> 0074
+1D462		<font> 0075
+1D463		<font> 0076
+1D464		<font> 0077
+1D465		<font> 0078
+1D466		<font> 0079
+1D467		<font> 007A
+1D468		<font> 0041
+1D469		<font> 0042
+1D46A		<font> 0043
+1D46B		<font> 0044
+1D46C		<font> 0045
+1D46D		<font> 0046
+1D46E		<font> 0047
+1D46F		<font> 0048
+1D470		<font> 0049
+1D471		<font> 004A
+1D472		<font> 004B
+1D473		<font> 004C
+1D474		<font> 004D
+1D475		<font> 004E
+1D476		<font> 004F
+1D477		<font> 0050
+1D478		<font> 0051
+1D479		<font> 0052
+1D47A		<font> 0053
+1D47B		<font> 0054
+1D47C		<font> 0055
+1D47D		<font> 0056
+1D47E		<font> 0057
+1D47F		<font> 0058
+1D480		<font> 0059
+1D481		<font> 005A
+1D482		<font> 0061
+1D483		<font> 0062
+1D484		<font> 0063
+1D485		<font> 0064
+1D486		<font> 0065
+1D487		<font> 0066
+1D488		<font> 0067
+1D489		<font> 0068
+1D48A		<font> 0069
+1D48B		<font> 006A
+1D48C		<font> 006B
+1D48D		<font> 006C
+1D48E		<font> 006D
+1D48F		<font> 006E
+1D490		<font> 006F
+1D491		<font> 0070
+1D492		<font> 0071
+1D493		<font> 0072
+1D494		<font> 0073
+1D495		<font> 0074
+1D496		<font> 0075
+1D497		<font> 0076
+1D498		<font> 0077
+1D499		<font> 0078
+1D49A		<font> 0079
+1D49B		<font> 007A
+1D49C		<font> 0041
+1D49E		<font> 0043
+1D49F		<font> 0044
+1D4A2		<font> 0047
+1D4A5		<font> 004A
+1D4A6		<font> 004B
+1D4A9		<font> 004E
+1D4AA		<font> 004F
+1D4AB		<font> 0050
+1D4AC		<font> 0051
+1D4AE		<font> 0053
+1D4AF		<font> 0054
+1D4B0		<font> 0055
+1D4B1		<font> 0056
+1D4B2		<font> 0057
+1D4B3		<font> 0058
+1D4B4		<font> 0059
+1D4B5		<font> 005A
+1D4B6		<font> 0061
+1D4B7		<font> 0062
+1D4B8		<font> 0063
+1D4B9		<font> 0064
+1D4BB		<font> 0066
+1D4BD		<font> 0068
+1D4BE		<font> 0069
+1D4BF		<font> 006A
+1D4C0		<font> 006B
+1D4C1		<font> 006C
+1D4C2		<font> 006D
+1D4C3		<font> 006E
+1D4C5		<font> 0070
+1D4C6		<font> 0071
+1D4C7		<font> 0072
+1D4C8		<font> 0073
+1D4C9		<font> 0074
+1D4CA		<font> 0075
+1D4CB		<font> 0076
+1D4CC		<font> 0077
+1D4CD		<font> 0078
+1D4CE		<font> 0079
+1D4CF		<font> 007A
+1D4D0		<font> 0041
+1D4D1		<font> 0042
+1D4D2		<font> 0043
+1D4D3		<font> 0044
+1D4D4		<font> 0045
+1D4D5		<font> 0046
+1D4D6		<font> 0047
+1D4D7		<font> 0048
+1D4D8		<font> 0049
+1D4D9		<font> 004A
+1D4DA		<font> 004B
+1D4DB		<font> 004C
+1D4DC		<font> 004D
+1D4DD		<font> 004E
+1D4DE		<font> 004F
+1D4DF		<font> 0050
+1D4E0		<font> 0051
+1D4E1		<font> 0052
+1D4E2		<font> 0053
+1D4E3		<font> 0054
+1D4E4		<font> 0055
+1D4E5		<font> 0056
+1D4E6		<font> 0057
+1D4E7		<font> 0058
+1D4E8		<font> 0059
+1D4E9		<font> 005A
+1D4EA		<font> 0061
+1D4EB		<font> 0062
+1D4EC		<font> 0063
+1D4ED		<font> 0064
+1D4EE		<font> 0065
+1D4EF		<font> 0066
+1D4F0		<font> 0067
+1D4F1		<font> 0068
+1D4F2		<font> 0069
+1D4F3		<font> 006A
+1D4F4		<font> 006B
+1D4F5		<font> 006C
+1D4F6		<font> 006D
+1D4F7		<font> 006E
+1D4F8		<font> 006F
+1D4F9		<font> 0070
+1D4FA		<font> 0071
+1D4FB		<font> 0072
+1D4FC		<font> 0073
+1D4FD		<font> 0074
+1D4FE		<font> 0075
+1D4FF		<font> 0076
+1D500		<font> 0077
+1D501		<font> 0078
+1D502		<font> 0079
+1D503		<font> 007A
+1D504		<font> 0041
+1D505		<font> 0042
+1D507		<font> 0044
+1D508		<font> 0045
+1D509		<font> 0046
+1D50A		<font> 0047
+1D50D		<font> 004A
+1D50E		<font> 004B
+1D50F		<font> 004C
+1D510		<font> 004D
+1D511		<font> 004E
+1D512		<font> 004F
+1D513		<font> 0050
+1D514		<font> 0051
+1D516		<font> 0053
+1D517		<font> 0054
+1D518		<font> 0055
+1D519		<font> 0056
+1D51A		<font> 0057
+1D51B		<font> 0058
+1D51C		<font> 0059
+1D51E		<font> 0061
+1D51F		<font> 0062
+1D520		<font> 0063
+1D521		<font> 0064
+1D522		<font> 0065
+1D523		<font> 0066
+1D524		<font> 0067
+1D525		<font> 0068
+1D526		<font> 0069
+1D527		<font> 006A
+1D528		<font> 006B
+1D529		<font> 006C
+1D52A		<font> 006D
+1D52B		<font> 006E
+1D52C		<font> 006F
+1D52D		<font> 0070
+1D52E		<font> 0071
+1D52F		<font> 0072
+1D530		<font> 0073
+1D531		<font> 0074
+1D532		<font> 0075
+1D533		<font> 0076
+1D534		<font> 0077
+1D535		<font> 0078
+1D536		<font> 0079
+1D537		<font> 007A
+1D538		<font> 0041
+1D539		<font> 0042
+1D53B		<font> 0044
+1D53C		<font> 0045
+1D53D		<font> 0046
+1D53E		<font> 0047
+1D540		<font> 0049
+1D541		<font> 004A
+1D542		<font> 004B
+1D543		<font> 004C
+1D544		<font> 004D
+1D546		<font> 004F
+1D54A		<font> 0053
+1D54B		<font> 0054
+1D54C		<font> 0055
+1D54D		<font> 0056
+1D54E		<font> 0057
+1D54F		<font> 0058
+1D550		<font> 0059
+1D552		<font> 0061
+1D553		<font> 0062
+1D554		<font> 0063
+1D555		<font> 0064
+1D556		<font> 0065
+1D557		<font> 0066
+1D558		<font> 0067
+1D559		<font> 0068
+1D55A		<font> 0069
+1D55B		<font> 006A
+1D55C		<font> 006B
+1D55D		<font> 006C
+1D55E		<font> 006D
+1D55F		<font> 006E
+1D560		<font> 006F
+1D561		<font> 0070
+1D562		<font> 0071
+1D563		<font> 0072
+1D564		<font> 0073
+1D565		<font> 0074
+1D566		<font> 0075
+1D567		<font> 0076
+1D568		<font> 0077
+1D569		<font> 0078
+1D56A		<font> 0079
+1D56B		<font> 007A
+1D56C		<font> 0041
+1D56D		<font> 0042
+1D56E		<font> 0043
+1D56F		<font> 0044
+1D570		<font> 0045
+1D571		<font> 0046
+1D572		<font> 0047
+1D573		<font> 0048
+1D574		<font> 0049
+1D575		<font> 004A
+1D576		<font> 004B
+1D577		<font> 004C
+1D578		<font> 004D
+1D579		<font> 004E
+1D57A		<font> 004F
+1D57B		<font> 0050
+1D57C		<font> 0051
+1D57D		<font> 0052
+1D57E		<font> 0053
+1D57F		<font> 0054
+1D580		<font> 0055
+1D581		<font> 0056
+1D582		<font> 0057
+1D583		<font> 0058
+1D584		<font> 0059
+1D585		<font> 005A
+1D586		<font> 0061
+1D587		<font> 0062
+1D588		<font> 0063
+1D589		<font> 0064
+1D58A		<font> 0065
+1D58B		<font> 0066
+1D58C		<font> 0067
+1D58D		<font> 0068
+1D58E		<font> 0069
+1D58F		<font> 006A
+1D590		<font> 006B
+1D591		<font> 006C
+1D592		<font> 006D
+1D593		<font> 006E
+1D594		<font> 006F
+1D595		<font> 0070
+1D596		<font> 0071
+1D597		<font> 0072
+1D598		<font> 0073
+1D599		<font> 0074
+1D59A		<font> 0075
+1D59B		<font> 0076
+1D59C		<font> 0077
+1D59D		<font> 0078
+1D59E		<font> 0079
+1D59F		<font> 007A
+1D5A0		<font> 0041
+1D5A1		<font> 0042
+1D5A2		<font> 0043
+1D5A3		<font> 0044
+1D5A4		<font> 0045
+1D5A5		<font> 0046
+1D5A6		<font> 0047
+1D5A7		<font> 0048
+1D5A8		<font> 0049
+1D5A9		<font> 004A
+1D5AA		<font> 004B
+1D5AB		<font> 004C
+1D5AC		<font> 004D
+1D5AD		<font> 004E
+1D5AE		<font> 004F
+1D5AF		<font> 0050
+1D5B0		<font> 0051
+1D5B1		<font> 0052
+1D5B2		<font> 0053
+1D5B3		<font> 0054
+1D5B4		<font> 0055
+1D5B5		<font> 0056
+1D5B6		<font> 0057
+1D5B7		<font> 0058
+1D5B8		<font> 0059
+1D5B9		<font> 005A
+1D5BA		<font> 0061
+1D5BB		<font> 0062
+1D5BC		<font> 0063
+1D5BD		<font> 0064
+1D5BE		<font> 0065
+1D5BF		<font> 0066
+1D5C0		<font> 0067
+1D5C1		<font> 0068
+1D5C2		<font> 0069
+1D5C3		<font> 006A
+1D5C4		<font> 006B
+1D5C5		<font> 006C
+1D5C6		<font> 006D
+1D5C7		<font> 006E
+1D5C8		<font> 006F
+1D5C9		<font> 0070
+1D5CA		<font> 0071
+1D5CB		<font> 0072
+1D5CC		<font> 0073
+1D5CD		<font> 0074
+1D5CE		<font> 0075
+1D5CF		<font> 0076
+1D5D0		<font> 0077
+1D5D1		<font> 0078
+1D5D2		<font> 0079
+1D5D3		<font> 007A
+1D5D4		<font> 0041
+1D5D5		<font> 0042
+1D5D6		<font> 0043
+1D5D7		<font> 0044
+1D5D8		<font> 0045
+1D5D9		<font> 0046
+1D5DA		<font> 0047
+1D5DB		<font> 0048
+1D5DC		<font> 0049
+1D5DD		<font> 004A
+1D5DE		<font> 004B
+1D5DF		<font> 004C
+1D5E0		<font> 004D
+1D5E1		<font> 004E
+1D5E2		<font> 004F
+1D5E3		<font> 0050
+1D5E4		<font> 0051
+1D5E5		<font> 0052
+1D5E6		<font> 0053
+1D5E7		<font> 0054
+1D5E8		<font> 0055
+1D5E9		<font> 0056
+1D5EA		<font> 0057
+1D5EB		<font> 0058
+1D5EC		<font> 0059
+1D5ED		<font> 005A
+1D5EE		<font> 0061
+1D5EF		<font> 0062
+1D5F0		<font> 0063
+1D5F1		<font> 0064
+1D5F2		<font> 0065
+1D5F3		<font> 0066
+1D5F4		<font> 0067
+1D5F5		<font> 0068
+1D5F6		<font> 0069
+1D5F7		<font> 006A
+1D5F8		<font> 006B
+1D5F9		<font> 006C
+1D5FA		<font> 006D
+1D5FB		<font> 006E
+1D5FC		<font> 006F
+1D5FD		<font> 0070
+1D5FE		<font> 0071
+1D5FF		<font> 0072
+1D600		<font> 0073
+1D601		<font> 0074
+1D602		<font> 0075
+1D603		<font> 0076
+1D604		<font> 0077
+1D605		<font> 0078
+1D606		<font> 0079
+1D607		<font> 007A
+1D608		<font> 0041
+1D609		<font> 0042
+1D60A		<font> 0043
+1D60B		<font> 0044
+1D60C		<font> 0045
+1D60D		<font> 0046
+1D60E		<font> 0047
+1D60F		<font> 0048
+1D610		<font> 0049
+1D611		<font> 004A
+1D612		<font> 004B
+1D613		<font> 004C
+1D614		<font> 004D
+1D615		<font> 004E
+1D616		<font> 004F
+1D617		<font> 0050
+1D618		<font> 0051
+1D619		<font> 0052
+1D61A		<font> 0053
+1D61B		<font> 0054
+1D61C		<font> 0055
+1D61D		<font> 0056
+1D61E		<font> 0057
+1D61F		<font> 0058
+1D620		<font> 0059
+1D621		<font> 005A
+1D622		<font> 0061
+1D623		<font> 0062
+1D624		<font> 0063
+1D625		<font> 0064
+1D626		<font> 0065
+1D627		<font> 0066
+1D628		<font> 0067
+1D629		<font> 0068
+1D62A		<font> 0069
+1D62B		<font> 006A
+1D62C		<font> 006B
+1D62D		<font> 006C
+1D62E		<font> 006D
+1D62F		<font> 006E
+1D630		<font> 006F
+1D631		<font> 0070
+1D632		<font> 0071
+1D633		<font> 0072
+1D634		<font> 0073
+1D635		<font> 0074
+1D636		<font> 0075
+1D637		<font> 0076
+1D638		<font> 0077
+1D639		<font> 0078
+1D63A		<font> 0079
+1D63B		<font> 007A
+1D63C		<font> 0041
+1D63D		<font> 0042
+1D63E		<font> 0043
+1D63F		<font> 0044
+1D640		<font> 0045
+1D641		<font> 0046
+1D642		<font> 0047
+1D643		<font> 0048
+1D644		<font> 0049
+1D645		<font> 004A
+1D646		<font> 004B
+1D647		<font> 004C
+1D648		<font> 004D
+1D649		<font> 004E
+1D64A		<font> 004F
+1D64B		<font> 0050
+1D64C		<font> 0051
+1D64D		<font> 0052
+1D64E		<font> 0053
+1D64F		<font> 0054
+1D650		<font> 0055
+1D651		<font> 0056
+1D652		<font> 0057
+1D653		<font> 0058
+1D654		<font> 0059
+1D655		<font> 005A
+1D656		<font> 0061
+1D657		<font> 0062
+1D658		<font> 0063
+1D659		<font> 0064
+1D65A		<font> 0065
+1D65B		<font> 0066
+1D65C		<font> 0067
+1D65D		<font> 0068
+1D65E		<font> 0069
+1D65F		<font> 006A
+1D660		<font> 006B
+1D661		<font> 006C
+1D662		<font> 006D
+1D663		<font> 006E
+1D664		<font> 006F
+1D665		<font> 0070
+1D666		<font> 0071
+1D667		<font> 0072
+1D668		<font> 0073
+1D669		<font> 0074
+1D66A		<font> 0075
+1D66B		<font> 0076
+1D66C		<font> 0077
+1D66D		<font> 0078
+1D66E		<font> 0079
+1D66F		<font> 007A
+1D670		<font> 0041
+1D671		<font> 0042
+1D672		<font> 0043
+1D673		<font> 0044
+1D674		<font> 0045
+1D675		<font> 0046
+1D676		<font> 0047
+1D677		<font> 0048
+1D678		<font> 0049
+1D679		<font> 004A
+1D67A		<font> 004B
+1D67B		<font> 004C
+1D67C		<font> 004D
+1D67D		<font> 004E
+1D67E		<font> 004F
+1D67F		<font> 0050
+1D680		<font> 0051
+1D681		<font> 0052
+1D682		<font> 0053
+1D683		<font> 0054
+1D684		<font> 0055
+1D685		<font> 0056
+1D686		<font> 0057
+1D687		<font> 0058
+1D688		<font> 0059
+1D689		<font> 005A
+1D68A		<font> 0061
+1D68B		<font> 0062
+1D68C		<font> 0063
+1D68D		<font> 0064
+1D68E		<font> 0065
+1D68F		<font> 0066
+1D690		<font> 0067
+1D691		<font> 0068
+1D692		<font> 0069
+1D693		<font> 006A
+1D694		<font> 006B
+1D695		<font> 006C
+1D696		<font> 006D
+1D697		<font> 006E
+1D698		<font> 006F
+1D699		<font> 0070
+1D69A		<font> 0071
+1D69B		<font> 0072
+1D69C		<font> 0073
+1D69D		<font> 0074
+1D69E		<font> 0075
+1D69F		<font> 0076
+1D6A0		<font> 0077
+1D6A1		<font> 0078
+1D6A2		<font> 0079
+1D6A3		<font> 007A
+1D6A4		<font> 0131
+1D6A5		<font> 0237
+1D6A8		<font> 0391
+1D6A9		<font> 0392
+1D6AA		<font> 0393
+1D6AB		<font> 0394
+1D6AC		<font> 0395
+1D6AD		<font> 0396
+1D6AE		<font> 0397
+1D6AF		<font> 0398
+1D6B0		<font> 0399
+1D6B1		<font> 039A
+1D6B2		<font> 039B
+1D6B3		<font> 039C
+1D6B4		<font> 039D
+1D6B5		<font> 039E
+1D6B6		<font> 039F
+1D6B7		<font> 03A0
+1D6B8		<font> 03A1
+1D6B9		<font> 03F4
+1D6BA		<font> 03A3
+1D6BB		<font> 03A4
+1D6BC		<font> 03A5
+1D6BD		<font> 03A6
+1D6BE		<font> 03A7
+1D6BF		<font> 03A8
+1D6C0		<font> 03A9
+1D6C1		<font> 2207
+1D6C2		<font> 03B1
+1D6C3		<font> 03B2
+1D6C4		<font> 03B3
+1D6C5		<font> 03B4
+1D6C6		<font> 03B5
+1D6C7		<font> 03B6
+1D6C8		<font> 03B7
+1D6C9		<font> 03B8
+1D6CA		<font> 03B9
+1D6CB		<font> 03BA
+1D6CC		<font> 03BB
+1D6CD		<font> 03BC
+1D6CE		<font> 03BD
+1D6CF		<font> 03BE
+1D6D0		<font> 03BF
+1D6D1		<font> 03C0
+1D6D2		<font> 03C1
+1D6D3		<font> 03C2
+1D6D4		<font> 03C3
+1D6D5		<font> 03C4
+1D6D6		<font> 03C5
+1D6D7		<font> 03C6
+1D6D8		<font> 03C7
+1D6D9		<font> 03C8
+1D6DA		<font> 03C9
+1D6DB		<font> 2202
+1D6DC		<font> 03F5
+1D6DD		<font> 03D1
+1D6DE		<font> 03F0
+1D6DF		<font> 03D5
+1D6E0		<font> 03F1
+1D6E1		<font> 03D6
+1D6E2		<font> 0391
+1D6E3		<font> 0392
+1D6E4		<font> 0393
+1D6E5		<font> 0394
+1D6E6		<font> 0395
+1D6E7		<font> 0396
+1D6E8		<font> 0397
+1D6E9		<font> 0398
+1D6EA		<font> 0399
+1D6EB		<font> 039A
+1D6EC		<font> 039B
+1D6ED		<font> 039C
+1D6EE		<font> 039D
+1D6EF		<font> 039E
+1D6F0		<font> 039F
+1D6F1		<font> 03A0
+1D6F2		<font> 03A1
+1D6F3		<font> 03F4
+1D6F4		<font> 03A3
+1D6F5		<font> 03A4
+1D6F6		<font> 03A5
+1D6F7		<font> 03A6
+1D6F8		<font> 03A7
+1D6F9		<font> 03A8
+1D6FA		<font> 03A9
+1D6FB		<font> 2207
+1D6FC		<font> 03B1
+1D6FD		<font> 03B2
+1D6FE		<font> 03B3
+1D6FF		<font> 03B4
+1D700		<font> 03B5
+1D701		<font> 03B6
+1D702		<font> 03B7
+1D703		<font> 03B8
+1D704		<font> 03B9
+1D705		<font> 03BA
+1D706		<font> 03BB
+1D707		<font> 03BC
+1D708		<font> 03BD
+1D709		<font> 03BE
+1D70A		<font> 03BF
+1D70B		<font> 03C0
+1D70C		<font> 03C1
+1D70D		<font> 03C2
+1D70E		<font> 03C3
+1D70F		<font> 03C4
+1D710		<font> 03C5
+1D711		<font> 03C6
+1D712		<font> 03C7
+1D713		<font> 03C8
+1D714		<font> 03C9
+1D715		<font> 2202
+1D716		<font> 03F5
+1D717		<font> 03D1
+1D718		<font> 03F0
+1D719		<font> 03D5
+1D71A		<font> 03F1
+1D71B		<font> 03D6
+1D71C		<font> 0391
+1D71D		<font> 0392
+1D71E		<font> 0393
+1D71F		<font> 0394
+1D720		<font> 0395
+1D721		<font> 0396
+1D722		<font> 0397
+1D723		<font> 0398
+1D724		<font> 0399
+1D725		<font> 039A
+1D726		<font> 039B
+1D727		<font> 039C
+1D728		<font> 039D
+1D729		<font> 039E
+1D72A		<font> 039F
+1D72B		<font> 03A0
+1D72C		<font> 03A1
+1D72D		<font> 03F4
+1D72E		<font> 03A3
+1D72F		<font> 03A4
+1D730		<font> 03A5
+1D731		<font> 03A6
+1D732		<font> 03A7
+1D733		<font> 03A8
+1D734		<font> 03A9
+1D735		<font> 2207
+1D736		<font> 03B1
+1D737		<font> 03B2
+1D738		<font> 03B3
+1D739		<font> 03B4
+1D73A		<font> 03B5
+1D73B		<font> 03B6
+1D73C		<font> 03B7
+1D73D		<font> 03B8
+1D73E		<font> 03B9
+1D73F		<font> 03BA
+1D740		<font> 03BB
+1D741		<font> 03BC
+1D742		<font> 03BD
+1D743		<font> 03BE
+1D744		<font> 03BF
+1D745		<font> 03C0
+1D746		<font> 03C1
+1D747		<font> 03C2
+1D748		<font> 03C3
+1D749		<font> 03C4
+1D74A		<font> 03C5
+1D74B		<font> 03C6
+1D74C		<font> 03C7
+1D74D		<font> 03C8
+1D74E		<font> 03C9
+1D74F		<font> 2202
+1D750		<font> 03F5
+1D751		<font> 03D1
+1D752		<font> 03F0
+1D753		<font> 03D5
+1D754		<font> 03F1
+1D755		<font> 03D6
+1D756		<font> 0391
+1D757		<font> 0392
+1D758		<font> 0393
+1D759		<font> 0394
+1D75A		<font> 0395
+1D75B		<font> 0396
+1D75C		<font> 0397
+1D75D		<font> 0398
+1D75E		<font> 0399
+1D75F		<font> 039A
+1D760		<font> 039B
+1D761		<font> 039C
+1D762		<font> 039D
+1D763		<font> 039E
+1D764		<font> 039F
+1D765		<font> 03A0
+1D766		<font> 03A1
+1D767		<font> 03F4
+1D768		<font> 03A3
+1D769		<font> 03A4
+1D76A		<font> 03A5
+1D76B		<font> 03A6
+1D76C		<font> 03A7
+1D76D		<font> 03A8
+1D76E		<font> 03A9
+1D76F		<font> 2207
+1D770		<font> 03B1
+1D771		<font> 03B2
+1D772		<font> 03B3
+1D773		<font> 03B4
+1D774		<font> 03B5
+1D775		<font> 03B6
+1D776		<font> 03B7
+1D777		<font> 03B8
+1D778		<font> 03B9
+1D779		<font> 03BA
+1D77A		<font> 03BB
+1D77B		<font> 03BC
+1D77C		<font> 03BD
+1D77D		<font> 03BE
+1D77E		<font> 03BF
+1D77F		<font> 03C0
+1D780		<font> 03C1
+1D781		<font> 03C2
+1D782		<font> 03C3
+1D783		<font> 03C4
+1D784		<font> 03C5
+1D785		<font> 03C6
+1D786		<font> 03C7
+1D787		<font> 03C8
+1D788		<font> 03C9
+1D789		<font> 2202
+1D78A		<font> 03F5
+1D78B		<font> 03D1
+1D78C		<font> 03F0
+1D78D		<font> 03D5
+1D78E		<font> 03F1
+1D78F		<font> 03D6
+1D790		<font> 0391
+1D791		<font> 0392
+1D792		<font> 0393
+1D793		<font> 0394
+1D794		<font> 0395
+1D795		<font> 0396
+1D796		<font> 0397
+1D797		<font> 0398
+1D798		<font> 0399
+1D799		<font> 039A
+1D79A		<font> 039B
+1D79B		<font> 039C
+1D79C		<font> 039D
+1D79D		<font> 039E
+1D79E		<font> 039F
+1D79F		<font> 03A0
+1D7A0		<font> 03A1
+1D7A1		<font> 03F4
+1D7A2		<font> 03A3
+1D7A3		<font> 03A4
+1D7A4		<font> 03A5
+1D7A5		<font> 03A6
+1D7A6		<font> 03A7
+1D7A7		<font> 03A8
+1D7A8		<font> 03A9
+1D7A9		<font> 2207
+1D7AA		<font> 03B1
+1D7AB		<font> 03B2
+1D7AC		<font> 03B3
+1D7AD		<font> 03B4
+1D7AE		<font> 03B5
+1D7AF		<font> 03B6
+1D7B0		<font> 03B7
+1D7B1		<font> 03B8
+1D7B2		<font> 03B9
+1D7B3		<font> 03BA
+1D7B4		<font> 03BB
+1D7B5		<font> 03BC
+1D7B6		<font> 03BD
+1D7B7		<font> 03BE
+1D7B8		<font> 03BF
+1D7B9		<font> 03C0
+1D7BA		<font> 03C1
+1D7BB		<font> 03C2
+1D7BC		<font> 03C3
+1D7BD		<font> 03C4
+1D7BE		<font> 03C5
+1D7BF		<font> 03C6
+1D7C0		<font> 03C7
+1D7C1		<font> 03C8
+1D7C2		<font> 03C9
+1D7C3		<font> 2202
+1D7C4		<font> 03F5
+1D7C5		<font> 03D1
+1D7C6		<font> 03F0
+1D7C7		<font> 03D5
+1D7C8		<font> 03F1
+1D7C9		<font> 03D6
+1D7CA		<font> 03DC
+1D7CB		<font> 03DD
+1D7CE		<font> 0030
+1D7CF		<font> 0031
+1D7D0		<font> 0032
+1D7D1		<font> 0033
+1D7D2		<font> 0034
+1D7D3		<font> 0035
+1D7D4		<font> 0036
+1D7D5		<font> 0037
+1D7D6		<font> 0038
+1D7D7		<font> 0039
+1D7D8		<font> 0030
+1D7D9		<font> 0031
+1D7DA		<font> 0032
+1D7DB		<font> 0033
+1D7DC		<font> 0034
+1D7DD		<font> 0035
+1D7DE		<font> 0036
+1D7DF		<font> 0037
+1D7E0		<font> 0038
+1D7E1		<font> 0039
+1D7E2		<font> 0030
+1D7E3		<font> 0031
+1D7E4		<font> 0032
+1D7E5		<font> 0033
+1D7E6		<font> 0034
+1D7E7		<font> 0035
+1D7E8		<font> 0036
+1D7E9		<font> 0037
+1D7EA		<font> 0038
+1D7EB		<font> 0039
+1D7EC		<font> 0030
+1D7ED		<font> 0031
+1D7EE		<font> 0032
+1D7EF		<font> 0033
+1D7F0		<font> 0034
+1D7F1		<font> 0035
+1D7F2		<font> 0036
+1D7F3		<font> 0037
+1D7F4		<font> 0038
+1D7F5		<font> 0039
+1D7F6		<font> 0030
+1D7F7		<font> 0031
+1D7F8		<font> 0032
+1D7F9		<font> 0033
+1D7FA		<font> 0034
+1D7FB		<font> 0035
+1D7FC		<font> 0036
+1D7FD		<font> 0037
+1D7FE		<font> 0038
+1D7FF		<font> 0039
+1EE00		<font> 0627
+1EE01		<font> 0628
+1EE02		<font> 062C
+1EE03		<font> 062F
+1EE05		<font> 0648
+1EE06		<font> 0632
+1EE07		<font> 062D
+1EE08		<font> 0637
+1EE09		<font> 064A
+1EE0A		<font> 0643
+1EE0B		<font> 0644
+1EE0C		<font> 0645
+1EE0D		<font> 0646
+1EE0E		<font> 0633
+1EE0F		<font> 0639
+1EE10		<font> 0641
+1EE11		<font> 0635
+1EE12		<font> 0642
+1EE13		<font> 0631
+1EE14		<font> 0634
+1EE15		<font> 062A
+1EE16		<font> 062B
+1EE17		<font> 062E
+1EE18		<font> 0630
+1EE19		<font> 0636
+1EE1A		<font> 0638
+1EE1B		<font> 063A
+1EE1C		<font> 066E
+1EE1D		<font> 06BA
+1EE1E		<font> 06A1
+1EE1F		<font> 066F
+1EE21		<font> 0628
+1EE22		<font> 062C
+1EE24		<font> 0647
+1EE27		<font> 062D
+1EE29		<font> 064A
+1EE2A		<font> 0643
+1EE2B		<font> 0644
+1EE2C		<font> 0645
+1EE2D		<font> 0646
+1EE2E		<font> 0633
+1EE2F		<font> 0639
+1EE30		<font> 0641
+1EE31		<font> 0635
+1EE32		<font> 0642
+1EE34		<font> 0634
+1EE35		<font> 062A
+1EE36		<font> 062B
+1EE37		<font> 062E
+1EE39		<font> 0636
+1EE3B		<font> 063A
+1EE42		<font> 062C
+1EE47		<font> 062D
+1EE49		<font> 064A
+1EE4B		<font> 0644
+1EE4D		<font> 0646
+1EE4E		<font> 0633
+1EE4F		<font> 0639
+1EE51		<font> 0635
+1EE52		<font> 0642
+1EE54		<font> 0634
+1EE57		<font> 062E
+1EE59		<font> 0636
+1EE5B		<font> 063A
+1EE5D		<font> 06BA
+1EE5F		<font> 066F
+1EE61		<font> 0628
+1EE62		<font> 062C
+1EE64		<font> 0647
+1EE67		<font> 062D
+1EE68		<font> 0637
+1EE69		<font> 064A
+1EE6A		<font> 0643
+1EE6C		<font> 0645
+1EE6D		<font> 0646
+1EE6E		<font> 0633
+1EE6F		<font> 0639
+1EE70		<font> 0641
+1EE71		<font> 0635
+1EE72		<font> 0642
+1EE74		<font> 0634
+1EE75		<font> 062A
+1EE76		<font> 062B
+1EE77		<font> 062E
+1EE79		<font> 0636
+1EE7A		<font> 0638
+1EE7B		<font> 063A
+1EE7C		<font> 066E
+1EE7E		<font> 06A1
+1EE80		<font> 0627
+1EE81		<font> 0628
+1EE82		<font> 062C
+1EE83		<font> 062F
+1EE84		<font> 0647
+1EE85		<font> 0648
+1EE86		<font> 0632
+1EE87		<font> 062D
+1EE88		<font> 0637
+1EE89		<font> 064A
+1EE8B		<font> 0644
+1EE8C		<font> 0645
+1EE8D		<font> 0646
+1EE8E		<font> 0633
+1EE8F		<font> 0639
+1EE90		<font> 0641
+1EE91		<font> 0635
+1EE92		<font> 0642
+1EE93		<font> 0631
+1EE94		<font> 0634
+1EE95		<font> 062A
+1EE96		<font> 062B
+1EE97		<font> 062E
+1EE98		<font> 0630
+1EE99		<font> 0636
+1EE9A		<font> 0638
+1EE9B		<font> 063A
+1EEA1		<font> 0628
+1EEA2		<font> 062C
+1EEA3		<font> 062F
+1EEA5		<font> 0648
+1EEA6		<font> 0632
+1EEA7		<font> 062D
+1EEA8		<font> 0637
+1EEA9		<font> 064A
+1EEAB		<font> 0644
+1EEAC		<font> 0645
+1EEAD		<font> 0646
+1EEAE		<font> 0633
+1EEAF		<font> 0639
+1EEB0		<font> 0641
+1EEB1		<font> 0635
+1EEB2		<font> 0642
+1EEB3		<font> 0631
+1EEB4		<font> 0634
+1EEB5		<font> 062A
+1EEB6		<font> 062B
+1EEB7		<font> 062E
+1EEB8		<font> 0630
+1EEB9		<font> 0636
+1EEBA		<font> 0638
+1EEBB		<font> 063A
+1F100		<compat> 0030 002E
+1F101		<compat> 0030 002C
+1F102		<compat> 0031 002C
+1F103		<compat> 0032 002C
+1F104		<compat> 0033 002C
+1F105		<compat> 0034 002C
+1F106		<compat> 0035 002C
+1F107		<compat> 0036 002C
+1F108		<compat> 0037 002C
+1F109		<compat> 0038 002C
+1F10A		<compat> 0039 002C
+1F110		<compat> 0028 0041 0029
+1F111		<compat> 0028 0042 0029
+1F112		<compat> 0028 0043 0029
+1F113		<compat> 0028 0044 0029
+1F114		<compat> 0028 0045 0029
+1F115		<compat> 0028 0046 0029
+1F116		<compat> 0028 0047 0029
+1F117		<compat> 0028 0048 0029
+1F118		<compat> 0028 0049 0029
+1F119		<compat> 0028 004A 0029
+1F11A		<compat> 0028 004B 0029
+1F11B		<compat> 0028 004C 0029
+1F11C		<compat> 0028 004D 0029
+1F11D		<compat> 0028 004E 0029
+1F11E		<compat> 0028 004F 0029
+1F11F		<compat> 0028 0050 0029
+1F120		<compat> 0028 0051 0029
+1F121		<compat> 0028 0052 0029
+1F122		<compat> 0028 0053 0029
+1F123		<compat> 0028 0054 0029
+1F124		<compat> 0028 0055 0029
+1F125		<compat> 0028 0056 0029
+1F126		<compat> 0028 0057 0029
+1F127		<compat> 0028 0058 0029
+1F128		<compat> 0028 0059 0029
+1F129		<compat> 0028 005A 0029
+1F12A		<compat> 3014 0053 3015
+1F12B		<circle> 0043
+1F12C		<circle> 0052
+1F12D		<circle> 0043 0044
+1F12E		<circle> 0057 005A
+1F130		<square> 0041
+1F131		<square> 0042
+1F132		<square> 0043
+1F133		<square> 0044
+1F134		<square> 0045
+1F135		<square> 0046
+1F136		<square> 0047
+1F137		<square> 0048
+1F138		<square> 0049
+1F139		<square> 004A
+1F13A		<square> 004B
+1F13B		<square> 004C
+1F13C		<square> 004D
+1F13D		<square> 004E
+1F13E		<square> 004F
+1F13F		<square> 0050
+1F140		<square> 0051
+1F141		<square> 0052
+1F142		<square> 0053
+1F143		<square> 0054
+1F144		<square> 0055
+1F145		<square> 0056
+1F146		<square> 0057
+1F147		<square> 0058
+1F148		<square> 0059
+1F149		<square> 005A
+1F14A		<square> 0048 0056
+1F14B		<square> 004D 0056
+1F14C		<square> 0053 0044
+1F14D		<square> 0053 0053
+1F14E		<square> 0050 0050 0056
+1F14F		<square> 0057 0043
+1F16A		<super> 004D 0043
+1F16B		<super> 004D 0044
+1F190		<square> 0044 004A
+1F200		<square> 307B 304B
+1F201		<square> 30B3 30B3
+1F202		<square> 30B5
+1F210		<square> 624B
+1F211		<square> 5B57
+1F212		<square> 53CC
+1F213		<square> 30C7
+1F214		<square> 4E8C
+1F215		<square> 591A
+1F216		<square> 89E3
+1F217		<square> 5929
+1F218		<square> 4EA4
+1F219		<square> 6620
+1F21A		<square> 7121
+1F21B		<square> 6599
+1F21C		<square> 524D
+1F21D		<square> 5F8C
+1F21E		<square> 518D
+1F21F		<square> 65B0
+1F220		<square> 521D
+1F221		<square> 7D42
+1F222		<square> 751F
+1F223		<square> 8CA9
+1F224		<square> 58F0
+1F225		<square> 5439
+1F226		<square> 6F14
+1F227		<square> 6295
+1F228		<square> 6355
+1F229		<square> 4E00
+1F22A		<square> 4E09
+1F22B		<square> 904A
+1F22C		<square> 5DE6
+1F22D		<square> 4E2D
+1F22E		<square> 53F3
+1F22F		<square> 6307
+1F230		<square> 8D70
+1F231		<square> 6253
+1F232		<square> 7981
+1F233		<square> 7A7A
+1F234		<square> 5408
+1F235		<square> 6E80
+1F236		<square> 6709
+1F237		<square> 6708
+1F238		<square> 7533
+1F239		<square> 5272
+1F23A		<square> 55B6
+1F240		<compat> 3014 672C 3015
+1F241		<compat> 3014 4E09 3015
+1F242		<compat> 3014 4E8C 3015
+1F243		<compat> 3014 5B89 3015
+1F244		<compat> 3014 70B9 3015
+1F245		<compat> 3014 6253 3015
+1F246		<compat> 3014 76D7 3015
+1F247		<compat> 3014 52DD 3015
+1F248		<compat> 3014 6557 3015
+1F250		<circle> 5F97
+1F251		<circle> 53EF
+2F800		4E3D
+2F801		4E38
+2F802		4E41
+2F803		20122
+2F804		4F60
+2F805		4FAE
+2F806		4FBB
+2F807		5002
+2F808		507A
+2F809		5099
+2F80A		50E7
+2F80B		50CF
+2F80C		349E
+2F80D		2063A
+2F80E		514D
+2F80F		5154
+2F810		5164
+2F811		5177
+2F812		2051C
+2F813		34B9
+2F814		5167
+2F815		518D
+2F816		2054B
+2F817		5197
+2F818		51A4
+2F819		4ECC
+2F81A		51AC
+2F81B		51B5
+2F81C		291DF
+2F81D		51F5
+2F81E		5203
+2F81F		34DF
+2F820		523B
+2F821		5246
+2F822		5272
+2F823		5277
+2F824		3515
+2F825		52C7
+2F826		52C9
+2F827		52E4
+2F828		52FA
+2F829		5305
+2F82A		5306
+2F82B		5317
+2F82C		5349
+2F82D		5351
+2F82E		535A
+2F82F		5373
+2F830		537D
+2F831	2F833	537F
+2F834		20A2C
+2F835		7070
+2F836		53CA
+2F837		53DF
+2F838		20B63
+2F839		53EB
+2F83A		53F1
+2F83B		5406
+2F83C		549E
+2F83D		5438
+2F83E		5448
+2F83F		5468
+2F840		54A2
+2F841		54F6
+2F842		5510
+2F843		5553
+2F844		5563
+2F845	2F846	5584
+2F847		5599
+2F848		55AB
+2F849		55B3
+2F84A		55C2
+2F84B		5716
+2F84C		5606
+2F84D		5717
+2F84E		5651
+2F84F		5674
+2F850		5207
+2F851		58EE
+2F852		57CE
+2F853		57F4
+2F854		580D
+2F855		578B
+2F856		5832
+2F857		5831
+2F858		58AC
+2F859		214E4
+2F85A		58F2
+2F85B		58F7
+2F85C		5906
+2F85D		591A
+2F85E		5922
+2F85F		5962
+2F860		216A8
+2F861		216EA
+2F862		59EC
+2F863		5A1B
+2F864		5A27
+2F865		59D8
+2F866		5A66
+2F867		36EE
+2F868		36FC
+2F869		5B08
+2F86A	2F86B	5B3E
+2F86C		219C8
+2F86D		5BC3
+2F86E		5BD8
+2F86F		5BE7
+2F870		5BF3
+2F871		21B18
+2F872		5BFF
+2F873		5C06
+2F874		5F53
+2F875		5C22
+2F876		3781
+2F877		5C60
+2F878		5C6E
+2F879		5CC0
+2F87A		5C8D
+2F87B		21DE4
+2F87C		5D43
+2F87D		21DE6
+2F87E		5D6E
+2F87F		5D6B
+2F880		5D7C
+2F881		5DE1
+2F882		5DE2
+2F883		382F
+2F884		5DFD
+2F885		5E28
+2F886		5E3D
+2F887		5E69
+2F888		3862
+2F889		22183
+2F88A		387C
+2F88B		5EB0
+2F88C		5EB3
+2F88D		5EB6
+2F88E		5ECA
+2F88F		2A392
+2F890		5EFE
+2F891	2F892	22331
+2F893		8201
+2F894	2F895	5F22
+2F896		38C7
+2F897		232B8
+2F898		261DA
+2F899		5F62
+2F89A		5F6B
+2F89B		38E3
+2F89C		5F9A
+2F89D		5FCD
+2F89E		5FD7
+2F89F		5FF9
+2F8A0		6081
+2F8A1		393A
+2F8A2		391C
+2F8A3		6094
+2F8A4		226D4
+2F8A5		60C7
+2F8A6		6148
+2F8A7		614C
+2F8A8		614E
+2F8A9		614C
+2F8AA		617A
+2F8AB		618E
+2F8AC		61B2
+2F8AD		61A4
+2F8AE		61AF
+2F8AF		61DE
+2F8B0		61F2
+2F8B1		61F6
+2F8B2		6210
+2F8B3		621B
+2F8B4		625D
+2F8B5		62B1
+2F8B6		62D4
+2F8B7		6350
+2F8B8		22B0C
+2F8B9		633D
+2F8BA		62FC
+2F8BB		6368
+2F8BC		6383
+2F8BD		63E4
+2F8BE		22BF1
+2F8BF		6422
+2F8C0		63C5
+2F8C1		63A9
+2F8C2		3A2E
+2F8C3		6469
+2F8C4		647E
+2F8C5		649D
+2F8C6		6477
+2F8C7		3A6C
+2F8C8		654F
+2F8C9		656C
+2F8CA		2300A
+2F8CB		65E3
+2F8CC		66F8
+2F8CD		6649
+2F8CE		3B19
+2F8CF		6691
+2F8D0		3B08
+2F8D1		3AE4
+2F8D2		5192
+2F8D3		5195
+2F8D4		6700
+2F8D5		669C
+2F8D6		80AD
+2F8D7		43D9
+2F8D8		6717
+2F8D9		671B
+2F8DA		6721
+2F8DB		675E
+2F8DC		6753
+2F8DD		233C3
+2F8DE		3B49
+2F8DF		67FA
+2F8E0		6785
+2F8E1		6852
+2F8E2		6885
+2F8E3		2346D
+2F8E4		688E
+2F8E5		681F
+2F8E6		6914
+2F8E7		3B9D
+2F8E8		6942
+2F8E9		69A3
+2F8EA		69EA
+2F8EB		6AA8
+2F8EC		236A3
+2F8ED		6ADB
+2F8EE		3C18
+2F8EF		6B21
+2F8F0		238A7
+2F8F1		6B54
+2F8F2		3C4E
+2F8F3		6B72
+2F8F4		6B9F
+2F8F5		6BBA
+2F8F6		6BBB
+2F8F7		23A8D
+2F8F8		21D0B
+2F8F9		23AFA
+2F8FA		6C4E
+2F8FB		23CBC
+2F8FC		6CBF
+2F8FD		6CCD
+2F8FE		6C67
+2F8FF		6D16
+2F900		6D3E
+2F901		6D77
+2F902		6D41
+2F903		6D69
+2F904		6D78
+2F905		6D85
+2F906		23D1E
+2F907		6D34
+2F908		6E2F
+2F909		6E6E
+2F90A		3D33
+2F90B		6ECB
+2F90C		6EC7
+2F90D		23ED1
+2F90E		6DF9
+2F90F		6F6E
+2F910		23F5E
+2F911		23F8E
+2F912		6FC6
+2F913		7039
+2F914		701E
+2F915		701B
+2F916		3D96
+2F917		704A
+2F918		707D
+2F919		7077
+2F91A		70AD
+2F91B		20525
+2F91C		7145
+2F91D		24263
+2F91E		719C
+2F91F		243AB
+2F920		7228
+2F921		7235
+2F922		7250
+2F923		24608
+2F924		7280
+2F925		7295
+2F926		24735
+2F927		24814
+2F928		737A
+2F929		738B
+2F92A		3EAC
+2F92B		73A5
+2F92C	2F92D	3EB8
+2F92E		7447
+2F92F		745C
+2F930		7471
+2F931		7485
+2F932		74CA
+2F933		3F1B
+2F934		7524
+2F935		24C36
+2F936		753E
+2F937		24C92
+2F938		7570
+2F939		2219F
+2F93A		7610
+2F93B		24FA1
+2F93C		24FB8
+2F93D		25044
+2F93E		3FFC
+2F93F		4008
+2F940		76F4
+2F941		250F3
+2F942		250F2
+2F943		25119
+2F944		25133
+2F945		771E
+2F946	2F947	771F
+2F948		774A
+2F949		4039
+2F94A		778B
+2F94B		4046
+2F94C		4096
+2F94D		2541D
+2F94E		784E
+2F94F		788C
+2F950		78CC
+2F951		40E3
+2F952		25626
+2F953		7956
+2F954		2569A
+2F955		256C5
+2F956		798F
+2F957		79EB
+2F958		412F
+2F959		7A40
+2F95A		7A4A
+2F95B		7A4F
+2F95C		2597C
+2F95D	2F95E	25AA7
+2F95F		7AEE
+2F960		4202
+2F961		25BAB
+2F962		7BC6
+2F963		7BC9
+2F964		4227
+2F965		25C80
+2F966		7CD2
+2F967		42A0
+2F968		7CE8
+2F969		7CE3
+2F96A		7D00
+2F96B		25F86
+2F96C		7D63
+2F96D		4301
+2F96E		7DC7
+2F96F		7E02
+2F970		7E45
+2F971		4334
+2F972		26228
+2F973		26247
+2F974		4359
+2F975		262D9
+2F976		7F7A
+2F977		2633E
+2F978		7F95
+2F979		7FFA
+2F97A		8005
+2F97B		264DA
+2F97C		26523
+2F97D		8060
+2F97E		265A8
+2F97F		8070
+2F980		2335F
+2F981		43D5
+2F982		80B2
+2F983		8103
+2F984		440B
+2F985		813E
+2F986		5AB5
+2F987		267A7
+2F988		267B5
+2F989		23393
+2F98A		2339C
+2F98B		8201
+2F98C		8204
+2F98D		8F9E
+2F98E		446B
+2F98F		8291
+2F990		828B
+2F991		829D
+2F992		52B3
+2F993		82B1
+2F994		82B3
+2F995		82BD
+2F996		82E6
+2F997		26B3C
+2F998		82E5
+2F999		831D
+2F99A		8363
+2F99B		83AD
+2F99C		8323
+2F99D		83BD
+2F99E		83E7
+2F99F		8457
+2F9A0		8353
+2F9A1		83CA
+2F9A2		83CC
+2F9A3		83DC
+2F9A4		26C36
+2F9A5		26D6B
+2F9A6		26CD5
+2F9A7		452B
+2F9A8		84F1
+2F9A9		84F3
+2F9AA		8516
+2F9AB		273CA
+2F9AC		8564
+2F9AD		26F2C
+2F9AE		455D
+2F9AF		4561
+2F9B0		26FB1
+2F9B1		270D2
+2F9B2		456B
+2F9B3		8650
+2F9B4		865C
+2F9B5		8667
+2F9B6		8669
+2F9B7		86A9
+2F9B8		8688
+2F9B9		870E
+2F9BA		86E2
+2F9BB		8779
+2F9BC		8728
+2F9BD		876B
+2F9BE		8786
+2F9BF		45D7
+2F9C0		87E1
+2F9C1		8801
+2F9C2		45F9
+2F9C3		8860
+2F9C4		8863
+2F9C5		27667
+2F9C6		88D7
+2F9C7		88DE
+2F9C8		4635
+2F9C9		88FA
+2F9CA		34BB
+2F9CB		278AE
+2F9CC		27966
+2F9CD		46BE
+2F9CE		46C7
+2F9CF		8AA0
+2F9D0		8AED
+2F9D1		8B8A
+2F9D2		8C55
+2F9D3		27CA8
+2F9D4		8CAB
+2F9D5		8CC1
+2F9D6		8D1B
+2F9D7		8D77
+2F9D8		27F2F
+2F9D9		20804
+2F9DA		8DCB
+2F9DB		8DBC
+2F9DC		8DF0
+2F9DD		208DE
+2F9DE		8ED4
+2F9DF		8F38
+2F9E0		285D2
+2F9E1		285ED
+2F9E2		9094
+2F9E3		90F1
+2F9E4		9111
+2F9E5		2872E
+2F9E6		911B
+2F9E7		9238
+2F9E8		92D7
+2F9E9		92D8
+2F9EA		927C
+2F9EB		93F9
+2F9EC		9415
+2F9ED		28BFA
+2F9EE		958B
+2F9EF		4995
+2F9F0		95B7
+2F9F1		28D77
+2F9F2		49E6
+2F9F3		96C3
+2F9F4		5DB2
+2F9F5		9723
+2F9F6		29145
+2F9F7		2921A
+2F9F8		4A6E
+2F9F9		4A76
+2F9FA		97E0
+2F9FB		2940A
+2F9FC		4AB2
+2F9FD		29496
+2F9FE	2F9FF	980B
+2FA00		9829
+2FA01		295B6
+2FA02		98E2
+2FA03		4B33
+2FA04		9929
+2FA05		99A7
+2FA06		99C2
+2FA07		99FE
+2FA08		4BCE
+2FA09		29B30
+2FA0A		9B12
+2FA0B		9C40
+2FA0C		9CFD
+2FA0D		4CCE
+2FA0E		4CED
+2FA0F		9D67
+2FA10		2A0CE
+2FA11		4CF8
+2FA12		2A105
+2FA13		2A20E
+2FA14		2A291
+2FA15		9EBB
+2FA16		4D56
+2FA17		9EF9
+2FA18		9EFE
+2FA19		9F05
+2FA1A		9F0F
+2FA1B		9F16
+2FA1C		9F3B
+2FA1D		2A600
+END
diff --git a/lib/5.24.1/unicore/Heavy.pl b/lib/5.24.1/unicore/Heavy.pl
new file mode 100644
index 00000000..8178f1a3
--- /dev/null
+++ b/lib/5.24.1/unicore/Heavy.pl
@@ -0,0 +1,6698 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+# This file is for the use of utf8_heavy.pl and Unicode::UCD
+
+# Maps Unicode (not Perl single-form extensions) property names in loose
+# standard form to their corresponding standard names
+%utf8::loose_property_name_of = (
+'age' => 'age',
+'ahex' => 'ahex',
+'alpha' => 'alpha',
+'alphabetic' => 'alpha',
+'asciihexdigit' => 'ahex',
+'bc' => 'bc',
+'bidic' => 'bidic',
+'bidiclass' => 'bc',
+'bidicontrol' => 'bidic',
+'bidim' => 'bidim',
+'bidimirrored' => 'bidim',
+'bidipairedbrackettype' => 'bpt',
+'blk' => 'blk',
+'block' => 'blk',
+'bpt' => 'bpt',
+'canonicalcombiningclass' => 'ccc',
+'cased' => 'cased',
+'caseignorable' => 'ci',
+'category' => 'gc',
+'ccc' => 'ccc',
+'ce' => 'ce',
+'changeswhencasefolded' => 'cwcf',
+'changeswhencasemapped' => 'cwcm',
+'changeswhenlowercased' => 'cwl',
+'changeswhennfkccasefolded' => 'cwkcf',
+'changeswhentitlecased' => 'cwt',
+'changeswhenuppercased' => 'cwu',
+'ci' => 'ci',
+'compex' => 'compex',
+'compositionexclusion' => 'ce',
+'cwcf' => 'cwcf',
+'cwcm' => 'cwcm',
+'cwkcf' => 'cwkcf',
+'cwl' => 'cwl',
+'cwt' => 'cwt',
+'cwu' => 'cwu',
+'dash' => 'dash',
+'decompositiontype' => 'dt',
+'defaultignorablecodepoint' => 'di',
+'dep' => 'dep',
+'deprecated' => 'dep',
+'di' => 'di',
+'dia' => 'dia',
+'diacritic' => 'dia',
+'dt' => 'dt',
+'ea' => 'ea',
+'eastasianwidth' => 'ea',
+'ext' => 'ext',
+'extender' => 'ext',
+'fullcompositionexclusion' => 'compex',
+'gc' => 'gc',
+'gcb' => 'gcb',
+'generalcategory' => 'gc',
+'graphemebase' => 'grbase',
+'graphemeclusterbreak' => 'gcb',
+'graphemeextend' => 'grext',
+'grbase' => 'grbase',
+'grext' => 'grext',
+'hangulsyllabletype' => 'hst',
+'hex' => 'hex',
+'hexdigit' => 'hex',
+'hst' => 'hst',
+'hyphen' => 'hyphen',
+'idc' => 'idc',
+'idcontinue' => 'idc',
+'ideo' => 'ideo',
+'ideographic' => 'ideo',
+'ids' => 'ids',
+'idsb' => 'idsb',
+'idsbinaryoperator' => 'idsb',
+'idst' => 'idst',
+'idstart' => 'ids',
+'idstrinaryoperator' => 'idst',
+'in' => 'in',
+'indicpositionalcategory' => 'inpc',
+'indicsyllabiccategory' => 'insc',
+'inpc' => 'inpc',
+'insc' => 'insc',
+'jg' => 'jg',
+'joinc' => 'joinc',
+'joincontrol' => 'joinc',
+'joininggroup' => 'jg',
+'joiningtype' => 'jt',
+'jt' => 'jt',
+'lb' => 'lb',
+'linebreak' => 'lb',
+'loe' => 'loe',
+'logicalorderexception' => 'loe',
+'lower' => 'lower',
+'lowercase' => 'lower',
+'math' => 'math',
+'nchar' => 'nchar',
+'nfcqc' => 'nfcqc',
+'nfcquickcheck' => 'nfcqc',
+'nfdqc' => 'nfdqc',
+'nfdquickcheck' => 'nfdqc',
+'nfkcqc' => 'nfkcqc',
+'nfkcquickcheck' => 'nfkcqc',
+'nfkdqc' => 'nfkdqc',
+'nfkdquickcheck' => 'nfkdqc',
+'noncharactercodepoint' => 'nchar',
+'nt' => 'nt',
+'numerictype' => 'nt',
+'numericvalue' => 'nv',
+'nv' => 'nv',
+'patsyn' => 'patsyn',
+'patternsyntax' => 'patsyn',
+'patternwhitespace' => 'patws',
+'patws' => 'patws',
+'presentin' => 'in',
+'qmark' => 'qmark',
+'quotationmark' => 'qmark',
+'radical' => 'radical',
+'sb' => 'sb',
+'sc' => 'sc',
+'script' => 'sc',
+'scriptextensions' => 'scx',
+'scx' => 'scx',
+'sd' => 'sd',
+'sentencebreak' => 'sb',
+'softdotted' => 'sd',
+'space' => 'wspace',
+'sterm' => 'sterm',
+'term' => 'term',
+'terminalpunctuation' => 'term',
+'uideo' => 'uideo',
+'unifiedideograph' => 'uideo',
+'upper' => 'upper',
+'uppercase' => 'upper',
+'variationselector' => 'vs',
+'vs' => 'vs',
+'wb' => 'wb',
+'whitespace' => 'wspace',
+'wordbreak' => 'wb',
+'wspace' => 'wspace',
+'xidc' => 'xidc',
+'xidcontinue' => 'xidc',
+'xids' => 'xids',
+'xidstart' => 'xids',
+);
+
+# Same, but strict names
+%utf8::strict_property_name_of = (
+'_perlgcb' => 'gcb',
+'_perlsb' => 'sb',
+);
+
+# Gives the definitions (in the form of inversion lists) for those properties
+# whose definitions aren't kept in files
+@utf8::inline_definitions = (
+
+'V0',
+'V1
+0',
+'V2
+0
+1114112',
+'V4
+9
+14
+32
+33',
+'V6
+10
+14
+133
+134
+8232
+8234',
+'V6
+48
+58
+65
+91
+97
+123',
+'V4
+65
+91
+97
+123',
+'V4
+9
+10
+32
+33',
+'V4
+0
+32
+127
+128',
+'V2
+48
+58',
+'V2
+33
+127',
+'V2
+97
+123',
+'V2
+32
+127',
+'V2
+65
+91',
+'V2
+55296
+57344',
+'V2
+12334
+12336',
+'V2
+119149
+119150',
+'V6
+1454
+1455
+6313
+6314
+12331
+12332',
+'V2
+12330
+12331',
+'V6
+861
+863
+864
+866
+7629
+7630',
+'V2
+837
+838',
+'V2
+12441
+12443',
+'V2
+7630
+7631',
+'V6
+801
+803
+807
+809
+7632
+7633',
+'V2
+1456
+1457',
+'V2
+1457
+1458',
+'V2
+1458
+1459',
+'V2
+1459
+1460',
+'V2
+1460
+1461',
+'V2
+1461
+1462',
+'V2
+1462
+1463',
+'V2
+1463
+1464',
+'V4
+1464
+1465
+1479
+1480',
+'V2
+1465
+1467',
+'V2
+1467
+1468',
+'V2
+1468
+1469',
+'V2
+1469
+1470',
+'V2
+1471
+1472',
+'V2
+1473
+1474',
+'V2
+1474
+1475',
+'V2
+64286
+64287',
+'V4
+1611
+1612
+2288
+2289',
+'V4
+1612
+1613
+2289
+2290',
+'V4
+1613
+1614
+2290
+2291',
+'V4
+1560
+1561
+1614
+1615',
+'V4
+1561
+1562
+1615
+1616',
+'V4
+1562
+1563
+1616
+1617',
+'V2
+1617
+1618',
+'V2
+1618
+1619',
+'V2
+1648
+1649',
+'V2
+1809
+1810',
+'V2
+3157
+3158',
+'V2
+3158
+3159',
+'V2
+3640
+3642',
+'V2
+3656
+3660',
+'V2
+3768
+3770',
+'V2
+3784
+3788',
+'V2
+3953
+3954',
+'V6
+3954
+3955
+3962
+3966
+3968
+3969',
+'V2
+3956
+3957',
+'V6
+48
+58
+65
+71
+97
+103',
+'V4
+4352
+4448
+43360
+43389',
+'V4
+4520
+4608
+55243
+55292',
+'V4
+4448
+4520
+55216
+55239',
+'V2
+13
+14',
+'V2
+10
+11',
+'V2
+127462
+127488',
+'V4
+12272
+12274
+12276
+12284',
+'V2
+12274
+12276',
+'V4
+6971
+6972
+43456
+43457',
+'V2
+6973
+6974',
+'V2
+8205
+8206',
+'V2
+8204
+8205',
+'V6
+6512
+6517
+43712
+43713
+43714
+43715',
+'V2
+69759
+69760',
+'V4
+2510
+2511
+3450
+3456',
+'V4
+2673
+2674
+70199
+70200',
+'V4
+3660
+3661
+6093
+6094',
+'V2
+2947
+2948',
+'V2
+6089
+6091',
+'V2
+70082
+70084',
+'V2
+69714
+69734',
+'V2
+3976
+3981',
+'V4
+3313
+3315
+69635
+69637',
+'V2
+3406
+3407',
+'V2
+8204
+8206',
+'V6
+11904
+11930
+11931
+12020
+12032
+12246',
+'V4
+133
+134
+8232
+8234',
+'V6
+6155
+6158
+65024
+65040
+917760
+918000',
+'V2
+34
+35',
+'V6
+11
+13
+133
+134
+8232
+8234',
+'V2
+39
+40',
+'V4
+8364
+8365
+65532
+65533',
+'V2
+8378
+8379',
+'V4
+1564
+1565
+8294
+8298',
+'V6
+9
+10
+11
+12
+31
+32',
+'V2
+8296
+8297',
+'V2
+8234
+8235',
+'V2
+8294
+8295',
+'V2
+8237
+8238',
+'V2
+8236
+8237',
+'V2
+8297
+8298',
+'V2
+8235
+8236',
+'V2
+8295
+8296',
+'V2
+8238
+8239',
+'V2
+65024
+65040',
+'V2
+19968
+40960',
+'V2
+12272
+12288',
+'V2
+3712
+3840',
+'V2
+92736
+92784',
+'V2
+1984
+2048',
+'V2
+9280
+9312',
+'V2
+57344
+63744',
+'V2
+42240
+42560',
+'V2
+71424
+71488',
+'V2
+43520
+43616',
+'V2
+4352
+4608',
+'V2
+42192
+42240',
+'V2
+93952
+94112',
+'V2
+71168
+71264',
+'V2
+69216
+69248',
+'V2
+917504
+917632',
+'V2
+3584
+3712',
+'V2
+5120
+5760',
+'V2
+0
+128',
+'V2
+42656
+42752',
+'V2
+7104
+7168',
+'V2
+5952
+5984',
+'V2
+880
+1024',
+'V2
+6016
+6144',
+'V2
+6400
+6480',
+'V2
+119040
+119296',
+'V2
+5760
+5792',
+'V2
+2816
+2944',
+'V2
+5792
+5888',
+'V2
+6480
+6528',
+'V2
+71296
+71376',
+'V2
+2944
+3072',
+'V2
+917760
+918000',
+'V2
+1536
+1792',
+'V2
+8592
+8704',
+'V2
+69632
+69760',
+'V2
+66208
+66272',
+'V2
+69888
+69968',
+'V2
+11392
+11520',
+'V2
+127024
+127136',
+'V2
+66352
+66384',
+'V2
+44032
+55216',
+'V2
+67808
+67840',
+'V2
+1424
+1536',
+'V2
+592
+688',
+'V2
+69760
+69840',
+'V2
+12688
+12704',
+'V2
+12032
+12256',
+'V2
+70144
+70224',
+'V2
+128
+256',
+'V2
+7168
+7248',
+'V2
+66176
+66208',
+'V2
+67872
+67904',
+'V2
+43312
+43360',
+'V2
+1792
+1872',
+'V2
+3072
+3200',
+'V2
+1920
+1984',
+'V2
+19904
+19968',
+'V2
+68352
+68416',
+'V2
+2432
+2560',
+'V2
+10240
+10496',
+'V2
+13312
+19904',
+'V2
+131072
+173792',
+'V2
+173824
+177984',
+'V2
+177984
+178208',
+'V2
+178208
+183984',
+'V2
+66560
+66640',
+'V2
+66816
+66864',
+'V2
+70400
+70528',
+'V2
+5920
+5952',
+'V2
+110592
+110848',
+'V2
+3200
+3328',
+'V2
+43264
+43312',
+'V2
+67072
+67456',
+'V2
+126976
+127024',
+'V2
+2112
+2144',
+'V2
+70272
+70320',
+'V2
+4096
+4256',
+'V2
+7248
+7296',
+'V2
+66688
+66736',
+'V2
+43072
+43136',
+'V2
+70016
+70112',
+'V2
+66640
+66688',
+'V2
+71040
+71168',
+'V2
+3456
+3584',
+'V2
+983040
+1048576',
+'V2
+1048576
+1114112',
+'V2
+5888
+5920',
+'V2
+6688
+6832',
+'V2
+43648
+43744',
+'V2
+3840
+4096',
+'V2
+70784
+70880',
+'V2
+6320
+6400',
+'V2
+1328
+1424',
+'V2
+6912
+7040',
+'V2
+92160
+92736',
+'V2
+92880
+92928',
+'V2
+12544
+12592',
+'V2
+6656
+6688',
+'V2
+5024
+5120',
+'V2
+1024
+1280',
+'V2
+9984
+10176',
+'V2
+113664
+113824',
+'V2
+4608
+4992',
+'V2
+4256
+4352',
+'V2
+7936
+8192',
+'V2
+2688
+2816',
+'V2
+2560
+2688',
+'V2
+12352
+12448',
+'V2
+43360
+43392',
+'V2
+55216
+55296',
+'V2
+43392
+43488',
+'V2
+12448
+12544',
+'V2
+69968
+70016',
+'V2
+66000
+66048',
+'V2
+65520
+65536',
+'V2
+5984
+6016',
+'V2
+11568
+11648',
+'V2
+66432
+66464',
+'V2
+7376
+7424',
+'V2
+64336
+65024',
+'V2
+65136
+65280',
+'V2
+1872
+1920',
+'V2
+13056
+13312',
+'V2
+73728
+74752',
+'V2
+128512
+128592',
+'V2
+65056
+65072',
+'V2
+70320
+70400',
+'V2
+256
+384',
+'V2
+384
+592',
+'V2
+11360
+11392',
+'V2
+42784
+43008',
+'V2
+43824
+43888',
+'V2
+3328
+3456',
+'V2
+6144
+6320',
+'V2
+67712
+67760',
+'V2
+6528
+6624',
+'V2
+66304
+66352',
+'V2
+66384
+66432',
+'V2
+68608
+68688',
+'V2
+67680
+67712',
+'V2
+72384
+72448',
+'V2
+2048
+2112',
+'V2
+7040
+7104',
+'V2
+128768
+128896',
+'V2
+2208
+2304',
+'V2
+126464
+126720',
+'V2
+9472
+9600',
+'V2
+12736
+12784',
+'V2
+12288
+12352',
+'V2
+12592
+12688',
+'V2
+2304
+2432',
+'V2
+11264
+11360',
+'V2
+68096
+68192',
+'V2
+68288
+68352',
+'V2
+11008
+11264',
+'V2
+66464
+66528',
+'V2
+67840
+67872',
+'V2
+43136
+43232',
+'V2
+65104
+65136',
+'V2
+10224
+10240',
+'V2
+10496
+10624',
+'V2
+129024
+129280',
+'V2
+71840
+71936',
+'V2
+42128
+42192',
+'V2
+12704
+12736',
+'V2
+43888
+43968',
+'V2
+119648
+119680',
+'V2
+1280
+1328',
+'V2
+12800
+13056',
+'V2
+11648
+11744',
+'V2
+4992
+5024',
+'V2
+11520
+11568',
+'V2
+12784
+12800',
+'V2
+43968
+44032',
+'V2
+9728
+9984',
+'V2
+43616
+43648',
+'V2
+43488
+43520',
+'V2
+8528
+8592',
+'V2
+92928
+93072',
+'V2
+7424
+7552',
+'V2
+8192
+8304',
+'V2
+69840
+69888',
+'V2
+8304
+8352',
+'V2
+43008
+43056',
+'V2
+119552
+119648',
+'V2
+40960
+42128',
+'V2
+64256
+64336',
+'V2
+11744
+11776',
+'V2
+42560
+42656',
+'V2
+768
+880',
+'V2
+43776
+43824',
+'V2
+6624
+6656',
+'V2
+119808
+120832',
+'V2
+124928
+125152',
+'V2
+68736
+68864',
+'V2
+127136
+127232',
+'V2
+7360
+7376',
+'V2
+65792
+65856',
+'V2
+9600
+9632',
+'V2
+43232
+43264',
+'V2
+56320
+57344',
+'V2
+8704
+8960',
+'V2
+8960
+9216',
+'V2
+65040
+65056',
+'V2
+65936
+66000',
+'V2
+118784
+119040',
+'V2
+65072
+65104',
+'V2
+11904
+12032',
+'V2
+55296
+56192',
+'V2
+43744
+43776',
+'V2
+7552
+7616',
+'V2
+68480
+68528',
+'V2
+11776
+11904',
+'V2
+9216
+9280',
+'V2
+8352
+8400',
+'V2
+6832
+6912',
+'V2
+7616
+7680',
+'V2
+9632
+9728',
+'V2
+67648
+67680',
+'V2
+68000
+68096',
+'V2
+127744
+128512',
+'V2
+688
+768',
+'V2
+68224
+68256',
+'V2
+68192
+68224',
+'V2
+128640
+128768',
+'V2
+74752
+74880',
+'V2
+67584
+67648',
+'V2
+9312
+9472',
+'V2
+65280
+65520',
+'V2
+56192
+56320',
+'V2
+43056
+43072',
+'V2
+65664
+65792',
+'V2
+65536
+65664',
+'V2
+10176
+10224',
+'V2
+10624
+10752',
+'V2
+10752
+11008',
+'V2
+119296
+119376',
+'V2
+66864
+66928',
+'V2
+8448
+8528',
+'V2
+120832
+121520',
+'V2
+66272
+66304',
+'V2
+128896
+129024',
+'V2
+7680
+7936',
+'V2
+128592
+128640',
+'V2
+65856
+65936',
+'V2
+63744
+64256',
+'V2
+77824
+78896',
+'V2
+127232
+127488',
+'V2
+67968
+68000',
+'V2
+42752
+42784',
+'V2
+82944
+83584',
+'V2
+68448
+68480',
+'V2
+68416
+68448',
+'V2
+70112
+70144',
+'V2
+194560
+195104',
+'V2
+8400
+8448',
+'V2
+74880
+75088',
+'V2
+127488
+127744',
+'V2
+113824
+113840',
+'V2
+129280
+129536',
+'V6
+188
+191
+8528
+8544
+8585
+8586',
+'V6
+65104
+65107
+65108
+65127
+65128
+65132',
+'V6
+12288
+12289
+65281
+65377
+65504
+65511',
+'V4
+0
+32
+127
+160',
+'V6
+57344
+63744
+983040
+1048574
+1048576
+1114110',
+'V2
+8232
+8233',
+'V2
+8233
+8234',
+'V2
+1829
+1830',
+'V2
+1871
+1872',
+'V2
+1815
+1816',
+'V2
+1830
+1831',
+'V2
+1607
+1608',
+'V2
+1825
+1826',
+'V2
+1826
+1827',
+'V2
+1725
+1726',
+'V6
+1591
+1593
+1695
+1696
+2211
+2212',
+'V2
+1836
+1837',
+'V4
+1810
+1811
+1837
+1838',
+'V2
+1818
+1819',
+'V2
+1823
+1824',
+'V6
+1605
+1606
+1893
+1895
+2215
+2216',
+'V6
+1606
+1607
+1721
+1725
+1895
+1898',
+'V2
+1833
+1834',
+'V2
+1835
+1836',
+'V2
+1819
+1821',
+'V2
+1821
+1822',
+'V2
+1817
+1818',
+'V2
+1808
+1809',
+'V4
+1811
+1813
+1838
+1839',
+'V2
+1870
+1871',
+'V2
+1832
+1833',
+'V2
+1869
+1870',
+'V2
+1824
+1825',
+'V2
+1822
+1823',
+'V2
+1729
+1731',
+'V2
+1827
+1828',
+'V2
+1706
+1707',
+'V2
+1816
+1817',
+'V2
+1746
+1748',
+'V6
+1813
+1815
+1834
+1835
+1839
+1840',
+'V4
+1726
+1727
+1791
+1792',
+'V2
+1831
+1832',
+'V6
+1577
+1578
+1728
+1729
+1749
+1750',
+'V2
+2220
+2221',
+'V2
+2225
+2226',
+'V2
+1741
+1742',
+'V2
+1828
+1829',
+'V2
+68315
+68317',
+'V2
+68310
+68311',
+'V2
+68311
+68312',
+'V2
+68331
+68332',
+'V2
+68324
+68325',
+'V2
+68333
+68334',
+'V2
+68295
+68296',
+'V2
+1731
+1732',
+'V2
+68313
+68315',
+'V2
+68289
+68291',
+'V2
+68332
+68333',
+'V2
+68301
+68302',
+'V2
+68304
+68307',
+'V2
+68318
+68321',
+'V2
+68321
+68322',
+'V2
+68302
+68303',
+'V2
+68303
+68304',
+'V2
+68288
+68289',
+'V2
+68291
+68293',
+'V2
+68317
+68318',
+'V2
+68297
+68299',
+'V2
+68293
+68294',
+'V2
+68307
+68308',
+'V2
+68312
+68313',
+'V2
+68334
+68335',
+'V2
+68308
+68309',
+'V2
+68335
+68336',
+'V2
+68309
+68310',
+'V2
+1914
+1916',
+'V6
+43122
+43123
+68301
+68302
+68311
+68312',
+'V4
+8212
+8213
+11834
+11836',
+'V4
+11
+13
+8232
+8234',
+'V2
+65532
+65533',
+'V4
+41
+42
+93
+94',
+'V2
+45
+46',
+'V2
+133
+134',
+'V2
+55296
+57344',
+'V2
+32
+33',
+'V2
+47
+48',
+'V4
+8288
+8289
+65279
+65280',
+'V2
+8203
+8204',
+'V2
+12881
+12882',
+'V2
+12882
+12883',
+'V2
+12883
+12884',
+'V2
+12884
+12885',
+'V2
+12885
+12886',
+'V2
+12886
+12887',
+'V2
+12887
+12888',
+'V2
+12888
+12889',
+'V2
+12889
+12890',
+'V2
+12891
+12892',
+'V2
+12892
+12893',
+'V2
+12893
+12894',
+'V2
+12894
+12895',
+'V2
+12895
+12896',
+'V2
+12977
+12978',
+'V2
+12978
+12979',
+'V2
+12979
+12980',
+'V2
+12980
+12981',
+'V2
+12982
+12983',
+'V2
+12983
+12984',
+'V2
+12984
+12985',
+'V2
+12985
+12986',
+'V2
+12986
+12987',
+'V2
+12987
+12988',
+'V2
+12988
+12989',
+'V2
+12989
+12990',
+'V2
+12990
+12991',
+'V2
+8533
+8534',
+'V6
+8537
+8538
+68087
+68088
+74849
+74850',
+'V2
+8528
+8529',
+'V2
+8529
+8530',
+'V2
+8534
+8535',
+'V2
+3883
+3884',
+'V2
+8535
+8536',
+'V2
+8540
+8541',
+'V2
+8536
+8537',
+'V2
+3884
+3885',
+'V6
+8538
+8539
+68095
+68096
+74844
+74845',
+'V2
+8541
+8542',
+'V2
+3885
+3886',
+'V2
+8542
+8543',
+'V2
+3886
+3887',
+'V2
+3891
+3892',
+'V2
+8530
+8531',
+'V2
+68086
+68087',
+'V6
+2548
+2549
+2933
+2934
+43059
+43060',
+'V2
+3887
+3888',
+'V2
+3888
+3889',
+'V2
+3889
+3890',
+'V2
+3890
+3891',
+'V4
+65827
+65828
+68060
+68061',
+'V6
+2550
+2551
+2935
+2936
+43061
+43062',
+'V4
+65828
+65829
+68061
+68062',
+'V4
+65829
+65830
+68062
+68063',
+'V2
+68090
+68091',
+'V4
+65831
+65832
+68064
+68065',
+'V2
+68092
+68093',
+'V4
+65832
+65833
+68065
+68066',
+'V4
+65833
+65834
+68066
+68067',
+'V4
+65834
+65835
+68067
+68068',
+'V2
+68028
+68029',
+'V4
+65836
+65837
+68069
+68070',
+'V4
+65837
+65838
+68070
+68071',
+'V4
+65838
+65839
+68071
+68072',
+'V4
+65840
+65841
+68073
+68074',
+'V4
+65841
+65842
+68074
+68075',
+'V4
+65842
+65843
+68075
+68076',
+'V4
+65843
+65844
+68076
+68077',
+'V4
+8584
+8585
+68077
+68078',
+'V2
+68078
+68079',
+'V2
+74802
+74803',
+'V2
+68079
+68080',
+'V2
+68080
+68081',
+'V2
+74803
+74804',
+'V2
+68081
+68082',
+'V2
+68082
+68083',
+'V2
+68083
+68084',
+'V2
+68084
+68085',
+'V2
+68085
+68086',
+'V2
+93022
+93023',
+'V6
+20159
+20160
+20740
+20741
+93023
+93024',
+'V2
+93024
+93025',
+'V4
+20806
+20807
+93025
+93026',
+'V4
+40960
+42125
+42128
+42183',
+'V6
+92736
+92767
+92768
+92778
+92782
+92784',
+'V2
+1984
+2043',
+'V2
+42240
+42540',
+'V4
+66864
+66916
+66927
+66928',
+'V6
+71424
+71450
+71453
+71468
+71472
+71488',
+'V4
+67648
+67670
+67671
+67680',
+'V4
+68352
+68406
+68409
+68416',
+'V4
+6912
+6988
+6992
+7037',
+'V4
+42656
+42744
+92160
+92729',
+'V4
+92880
+92910
+92912
+92918',
+'V4
+7104
+7156
+7164
+7168',
+'V6
+746
+748
+12549
+12590
+12704
+12731',
+'V6
+69632
+69710
+69714
+69744
+69759
+69760',
+'V4
+6656
+6684
+6686
+6688',
+'V2
+5952
+5972',
+'V4
+69888
+69941
+69942
+69956',
+'V4
+5120
+5760
+6320
+6390',
+'V2
+66208
+66257',
+'V6
+5024
+5110
+5112
+5118
+43888
+43968',
+'V6
+994
+1008
+11392
+11508
+11513
+11520',
+'V2
+77824
+78895',
+'V2
+66816
+66856',
+'V4
+11264
+11311
+11312
+11359',
+'V2
+66352
+66379',
+'V2
+5920
+5941',
+'V6
+67808
+67827
+67828
+67830
+67835
+67840',
+'V2
+82944
+83527',
+'V6
+68736
+68787
+68800
+68851
+68858
+68864',
+'V2
+66304
+66340',
+'V6
+43392
+43470
+43472
+43482
+43486
+43488',
+'V4
+43264
+43310
+43311
+43312',
+'V4
+70144
+70162
+70163
+70206',
+'V2
+69760
+69826',
+'V6
+7168
+7224
+7227
+7242
+7245
+7248',
+'V6
+67072
+67383
+67392
+67414
+67424
+67432',
+'V2
+66176
+66205',
+'V4
+67872
+67898
+67903
+67904',
+'V2
+69968
+70007',
+'V4
+2112
+2140
+2142
+2143',
+'V4
+68288
+68327
+68331
+68343',
+'V4
+124928
+125125
+125127
+125143',
+'V6
+68000
+68024
+68028
+68048
+68050
+68096',
+'V6
+93952
+94021
+94032
+94079
+94095
+94112',
+'V4
+71168
+71237
+71248
+71258',
+'V6
+43744
+43767
+43968
+44014
+44016
+44026',
+'V6
+4096
+4256
+43488
+43519
+43616
+43648',
+'V4
+67712
+67743
+67751
+67760',
+'V2
+5760
+5789',
+'V2
+68608
+68681',
+'V4
+66688
+66718
+66720
+66730',
+'V2
+72384
+72441',
+'V2
+66384
+66427',
+'V2
+43072
+43128',
+'V4
+68448
+68467
+68472
+68480',
+'V6
+68480
+68498
+68505
+68509
+68521
+68528',
+'V4
+67840
+67868
+67871
+67872',
+'V4
+68416
+68438
+68440
+68448',
+'V4
+43312
+43348
+43359
+43360',
+'V4
+5792
+5867
+5870
+5881',
+'V4
+2048
+2094
+2096
+2111',
+'V4
+43136
+43205
+43214
+43226',
+'V6
+120832
+121484
+121499
+121504
+121505
+121520',
+'V4
+70016
+70094
+70096
+70112',
+'V4
+71040
+71094
+71096
+71134',
+'V4
+70320
+70379
+70384
+70394',
+'V4
+69840
+69865
+69872
+69882',
+'V4
+7040
+7104
+7360
+7368',
+'V2
+43008
+43052',
+'V6
+1792
+1806
+1807
+1867
+1869
+1872',
+'V6
+5984
+5997
+5998
+6001
+6002
+6004',
+'V4
+71296
+71352
+71360
+71370',
+'V4
+6480
+6510
+6512
+6517',
+'V4
+43648
+43715
+43739
+43744',
+'V6
+11568
+11624
+11631
+11633
+11647
+11648',
+'V4
+5888
+5901
+5902
+5909',
+'V2
+1920
+1970',
+'V4
+3585
+3643
+3648
+3676',
+'V4
+70784
+70856
+70864
+70874',
+'V4
+66432
+66462
+66463
+66464',
+'V4
+71840
+71923
+71935
+71936',
+'V4
+66464
+66500
+66504
+66518',
+'V6
+6656
+6684
+6686
+6688
+43471
+43472',
+'V4
+5941
+5943
+5952
+5972',
+'V2
+5920
+5943',
+'V6
+43392
+43470
+43471
+43482
+43486
+43488',
+'V6
+2790
+2800
+70144
+70162
+70163
+70206',
+'V6
+2406
+2416
+43056
+43066
+69760
+69826',
+'V6
+2404
+2416
+43056
+43066
+69968
+70007',
+'V6
+1600
+1601
+2112
+2140
+2142
+2143',
+'V6
+1600
+1601
+68288
+68327
+68331
+68343',
+'V6
+43056
+43066
+71168
+71237
+71248
+71258',
+'V4
+1155
+1156
+66384
+66427',
+'V6
+6146
+6148
+6149
+6150
+43072
+43128',
+'V6
+2404
+2406
+2534
+2544
+43008
+43052',
+'V6
+4160
+4170
+6480
+6510
+6512
+6517',
+'V6
+5888
+5901
+5902
+5909
+5941
+5943',
+,
+);
+
+# Maps property, table to file for those using stricter matching.  For paths
+# whose directory is '#', the file is in the form of a numeric index into
+# @inline_definitions
+%utf8::stricter_to_file_of = (
+'_canondcij' => 'SD/Y',
+'_case_ignorable' => 'CI/Y',
+'_combabove' => 'Ccc/A',
+'_perl_any_folds' => 'Perl/_PerlAny',
+'_perl_charname_begin' => 'Perl/_PerlCha',
+'_perl_charname_continue' => 'Perl/_PerlCh2',
+'_perl_folds_to_multi_char' => 'Perl/_PerlFol',
+'_perl_idcont' => 'Perl/_PerlIDC',
+'_perl_idstart' => 'Perl/_PerlIDS',
+'_perl_nchar' => 'Perl/_PerlNch',
+'_perl_patws' => 'Perl/_PerlPat',
+'_perl_problematic_locale_foldeds_start' => 'Perl/_PerlPr2',
+'_perl_problematic_locale_folds' => 'Perl/_PerlPro',
+'_perl_quotemeta' => 'Perl/_PerlQuo',
+'_perl_surrogate' => '#/14',
+'age=1.1' => 'Age/V11',
+'age=2' => 'Age/V20',
+'age=2.0' => 'Age/V20',
+'age=2.1' => '#/92',
+'age=3' => 'Age/V30',
+'age=3.0' => 'Age/V30',
+'age=3.1' => 'Age/V31',
+'age=3.2' => 'Age/V32',
+'age=4' => 'Age/V40',
+'age=4.0' => 'Age/V40',
+'age=4.1' => 'Age/V41',
+'age=5' => 'Age/V50',
+'age=5.0' => 'Age/V50',
+'age=5.1' => 'Age/V51',
+'age=5.2' => 'Age/V52',
+'age=6' => 'Age/V60',
+'age=6.0' => 'Age/V60',
+'age=6.1' => 'Age/V61',
+'age=6.2' => '#/93',
+'age=6.3' => '#/94',
+'age=7' => 'Age/V70',
+'age=7.0' => 'Age/V70',
+'age=8' => 'Age/V80',
+'age=8.0' => 'Age/V80',
+'ccc=0' => 'Ccc/NR',
+'ccc=1' => 'Ccc/OV',
+'ccc=10' => '#/24',
+'ccc=103' => '#/53',
+'ccc=107' => '#/54',
+'ccc=11' => '#/25',
+'ccc=118' => '#/55',
+'ccc=12' => '#/26',
+'ccc=122' => '#/56',
+'ccc=129' => '#/57',
+'ccc=13' => '#/27',
+'ccc=130' => '#/58',
+'ccc=132' => '#/59',
+'ccc=133' => '#/0',
+'ccc=14' => '#/28',
+'ccc=15' => '#/29',
+'ccc=16' => '#/30',
+'ccc=17' => '#/31',
+'ccc=18' => '#/32',
+'ccc=19' => '#/33',
+'ccc=20' => '#/34',
+'ccc=200' => '#/0',
+'ccc=202' => '#/23',
+'ccc=21' => '#/35',
+'ccc=214' => '#/22',
+'ccc=216' => 'Ccc/ATAR',
+'ccc=218' => '#/18',
+'ccc=22' => '#/36',
+'ccc=220' => 'Ccc/B',
+'ccc=222' => 'Ccc/BR',
+'ccc=224' => '#/15',
+'ccc=226' => '#/16',
+'ccc=228' => '#/17',
+'ccc=23' => '#/37',
+'ccc=230' => 'Ccc/A',
+'ccc=232' => 'Ccc/AR',
+'ccc=233' => 'Ccc/DB',
+'ccc=234' => '#/19',
+'ccc=24' => '#/38',
+'ccc=240' => '#/20',
+'ccc=25' => '#/39',
+'ccc=26' => '#/40',
+'ccc=27' => '#/41',
+'ccc=28' => '#/42',
+'ccc=29' => '#/43',
+'ccc=30' => '#/44',
+'ccc=31' => '#/45',
+'ccc=32' => '#/46',
+'ccc=33' => '#/47',
+'ccc=34' => '#/48',
+'ccc=35' => '#/49',
+'ccc=36' => '#/50',
+'ccc=7' => 'Ccc/NK',
+'ccc=8' => '#/21',
+'ccc=84' => '#/51',
+'ccc=9' => 'Ccc/VR',
+'ccc=91' => '#/52',
+'in=1.1' => 'Age/V11',
+'in=2' => 'In/2_0',
+'in=2.0' => 'In/2_0',
+'in=2.1' => 'In/2_1',
+'in=3' => 'In/3_0',
+'in=3.0' => 'In/3_0',
+'in=3.1' => 'In/3_1',
+'in=3.2' => 'In/3_2',
+'in=4' => 'In/4_0',
+'in=4.0' => 'In/4_0',
+'in=4.1' => 'In/4_1',
+'in=5' => 'In/5_0',
+'in=5.0' => 'In/5_0',
+'in=5.1' => 'In/5_1',
+'in=5.2' => 'In/5_2',
+'in=6' => 'In/6_0',
+'in=6.0' => 'In/6_0',
+'in=6.1' => 'In/6_1',
+'in=6.2' => 'In/6_2',
+'in=6.3' => 'In/6_3',
+'in=7' => 'In/7_0',
+'in=7.0' => 'In/7_0',
+'in=8' => 'In/8_0',
+'in=8.0' => 'In/8_0',
+'nv=-1/2' => '#/497',
+'nv=0' => 'Nv/0',
+'nv=1' => 'Nv/1',
+'nv=1/10' => '#/498',
+'nv=1/12' => '#/499',
+'nv=1/16' => '#/500',
+'nv=1/2' => 'Nv/1_2',
+'nv=1/3' => 'Nv/1_3',
+'nv=1/4' => 'Nv/1_4',
+'nv=1/5' => '#/482',
+'nv=1/6' => '#/483',
+'nv=1/7' => '#/484',
+'nv=1/8' => 'Nv/1_8',
+'nv=1/9' => '#/485',
+'nv=10' => 'Nv/10',
+'nv=100' => 'Nv/100',
+'nv=1000' => 'Nv/1000',
+'nv=10000' => 'Nv/10000',
+'nv=100000' => '#/523',
+'nv=1000000' => '#/534',
+'nv=100000000' => '#/535',
+'nv=10000000000' => '#/536',
+'nv=1000000000000' => '#/537',
+'nv=11' => 'Nv/11',
+'nv=11/12' => '#/515',
+'nv=11/2' => '#/501',
+'nv=12' => 'Nv/12',
+'nv=13' => 'Nv/13',
+'nv=13/2' => '#/502',
+'nv=14' => 'Nv/14',
+'nv=15' => 'Nv/15',
+'nv=15/2' => '#/503',
+'nv=16' => 'Nv/16',
+'nv=17' => 'Nv/17',
+'nv=17/2' => '#/504',
+'nv=18' => 'Nv/18',
+'nv=19' => 'Nv/19',
+'nv=2' => 'Nv/2',
+'nv=2/3' => 'Nv/2_3',
+'nv=2/5' => '#/486',
+'nv=20' => 'Nv/20',
+'nv=200' => 'Nv/200',
+'nv=2000' => '#/505',
+'nv=20000' => '#/516',
+'nv=200000' => '#/524',
+'nv=21' => '#/455',
+'nv=216000' => '#/525',
+'nv=22' => '#/456',
+'nv=23' => '#/457',
+'nv=24' => '#/458',
+'nv=25' => '#/459',
+'nv=26' => '#/460',
+'nv=27' => '#/461',
+'nv=28' => '#/462',
+'nv=29' => '#/463',
+'nv=3' => 'Nv/3',
+'nv=3/16' => '#/506',
+'nv=3/2' => '#/487',
+'nv=3/4' => 'Nv/3_4',
+'nv=3/5' => '#/488',
+'nv=3/8' => '#/489',
+'nv=30' => 'Nv/30',
+'nv=300' => 'Nv/300',
+'nv=3000' => '#/507',
+'nv=30000' => '#/517',
+'nv=300000' => '#/526',
+'nv=31' => '#/464',
+'nv=32' => '#/465',
+'nv=33' => '#/466',
+'nv=34' => '#/467',
+'nv=35' => '#/468',
+'nv=36' => '#/469',
+'nv=37' => '#/470',
+'nv=38' => '#/471',
+'nv=39' => '#/472',
+'nv=4' => 'Nv/4',
+'nv=4/5' => '#/490',
+'nv=40' => 'Nv/40',
+'nv=400' => 'Nv/400',
+'nv=4000' => '#/508',
+'nv=40000' => '#/518',
+'nv=400000' => '#/527',
+'nv=41' => '#/473',
+'nv=42' => '#/474',
+'nv=43' => '#/475',
+'nv=432000' => '#/528',
+'nv=44' => '#/476',
+'nv=45' => '#/477',
+'nv=46' => '#/478',
+'nv=47' => '#/479',
+'nv=48' => '#/480',
+'nv=49' => '#/481',
+'nv=5' => 'Nv/5',
+'nv=5/12' => '#/509',
+'nv=5/2' => '#/491',
+'nv=5/6' => '#/492',
+'nv=5/8' => '#/493',
+'nv=50' => 'Nv/50',
+'nv=500' => 'Nv/500',
+'nv=5000' => 'Nv/5000',
+'nv=50000' => 'Nv/50000',
+'nv=500000' => '#/529',
+'nv=6' => 'Nv/6',
+'nv=60' => 'Nv/60',
+'nv=600' => 'Nv/600',
+'nv=6000' => '#/510',
+'nv=60000' => '#/519',
+'nv=600000' => '#/530',
+'nv=7' => 'Nv/7',
+'nv=7/12' => '#/511',
+'nv=7/2' => '#/494',
+'nv=7/8' => '#/495',
+'nv=70' => 'Nv/70',
+'nv=700' => 'Nv/700',
+'nv=7000' => '#/512',
+'nv=70000' => '#/520',
+'nv=700000' => '#/531',
+'nv=8' => 'Nv/8',
+'nv=80' => 'Nv/80',
+'nv=800' => 'Nv/800',
+'nv=8000' => '#/513',
+'nv=80000' => '#/521',
+'nv=800000' => '#/532',
+'nv=9' => 'Nv/9',
+'nv=9/2' => '#/496',
+'nv=90' => 'Nv/90',
+'nv=900' => 'Nv/900',
+'nv=9000' => '#/514',
+'nv=90000' => '#/522',
+'nv=900000' => '#/533',
+);
+
+# Maps property, table to file for those using loose matching.  For paths
+# whose directory is '#', the file is in the form of a numeric index into
+# @inline_definitions
+%utf8::loose_to_file_of = (
+'aegeannumbers' => '#/304',
+'age=na' => 'Age/NA',
+'age=unassigned' => 'Age/NA',
+'age=v11' => 'Age/V11',
+'age=v20' => 'Age/V20',
+'age=v21' => '#/92',
+'age=v30' => 'Age/V30',
+'age=v31' => 'Age/V31',
+'age=v32' => 'Age/V32',
+'age=v40' => 'Age/V40',
+'age=v41' => 'Age/V41',
+'age=v50' => 'Age/V50',
+'age=v51' => 'Age/V51',
+'age=v52' => 'Age/V52',
+'age=v60' => 'Age/V60',
+'age=v61' => 'Age/V61',
+'age=v62' => '#/93',
+'age=v63' => '#/94',
+'age=v70' => 'Age/V70',
+'age=v80' => 'Age/V80',
+'aghb' => '#/542',
+'ahex' => '#/60',
+'ahex=f' => '#/!60',
+'ahex=false' => '#/!60',
+'ahex=n' => '#/!60',
+'ahex=no' => '#/!60',
+'ahex=t' => '#/60',
+'ahex=true' => '#/60',
+'ahex=y' => '#/60',
+'ahex=yes' => '#/60',
+'ahom' => '#/543',
+'alchemical' => '#/250',
+'alchemicalsymbols' => '#/250',
+'all' => '#/1',
+'alnum' => 'Perl/Alnum',
+'alpha' => 'Alpha/Y',
+'alpha=f' => '!Alpha/Y',
+'alpha=false' => '!Alpha/Y',
+'alpha=n' => '!Alpha/Y',
+'alpha=no' => '!Alpha/Y',
+'alpha=t' => 'Alpha/Y',
+'alpha=true' => 'Alpha/Y',
+'alpha=y' => 'Alpha/Y',
+'alpha=yes' => 'Alpha/Y',
+'alphabetic' => 'Alpha/Y',
+'alphabeticpf' => '#/293',
+'alphabeticpresentationforms' => '#/293',
+'anatolianhieroglyphs' => '#/565',
+'ancientgreekmusic' => '#/343',
+'ancientgreekmusicalnotation' => '#/343',
+'ancientgreeknumbers' => '#/351',
+'ancientsymbols' => '#/311',
+'any' => '#/2',
+'arab' => 'Sc/Arab',
+'arabic' => 'Sc/Arab',
+'arabicexta' => '#/251',
+'arabicextendeda' => '#/251',
+'arabicmath' => '#/252',
+'arabicmathematicalalphabeticsymbols' => '#/252',
+'arabicpfa' => '#/226',
+'arabicpfb' => '#/227',
+'arabicpresentationformsa' => '#/226',
+'arabicpresentationformsb' => '#/227',
+'arabicsup' => '#/228',
+'arabicsupplement' => '#/228',
+'armenian' => 'Sc/Armn',
+'armi' => '#/544',
+'armn' => 'Sc/Armn',
+'arrows' => '#/140',
+'ascii' => '#/124',
+'asciihexdigit' => '#/60',
+'assigned' => 'Perl/Assigned',
+'avestan' => '#/545',
+'avst' => '#/545',
+'bali' => '#/546',
+'balinese' => '#/546',
+'bamu' => '#/547',
+'bamum' => '#/547',
+'bamumsup' => '#/201',
+'bamumsupplement' => '#/201',
+'basiclatin' => '#/124',
+'bass' => '#/548',
+'bassavah' => '#/548',
+'batak' => '#/549',
+'batk' => '#/549',
+'bc=al' => 'Bc/AL',
+'bc=an' => 'Bc/AN',
+'bc=arabicletter' => 'Bc/AL',
+'bc=arabicnumber' => 'Bc/AN',
+'bc=b' => 'Bc/B',
+'bc=bn' => 'Bc/BN',
+'bc=boundaryneutral' => 'Bc/BN',
+'bc=commonseparator' => 'Bc/CS',
+'bc=cs' => 'Bc/CS',
+'bc=en' => 'Bc/EN',
+'bc=es' => 'Bc/ES',
+'bc=et' => 'Bc/ET',
+'bc=europeannumber' => 'Bc/EN',
+'bc=europeanseparator' => 'Bc/ES',
+'bc=europeanterminator' => 'Bc/ET',
+'bc=firststrongisolate' => '#/96',
+'bc=fsi' => '#/96',
+'bc=l' => 'Bc/L',
+'bc=lefttoright' => 'Bc/L',
+'bc=lefttorightembedding' => '#/97',
+'bc=lefttorightisolate' => '#/98',
+'bc=lefttorightoverride' => '#/99',
+'bc=lre' => '#/97',
+'bc=lri' => '#/98',
+'bc=lro' => '#/99',
+'bc=nonspacingmark' => 'Bc/NSM',
+'bc=nsm' => 'Bc/NSM',
+'bc=on' => 'Bc/ON',
+'bc=otherneutral' => 'Bc/ON',
+'bc=paragraphseparator' => 'Bc/B',
+'bc=pdf' => '#/100',
+'bc=pdi' => '#/101',
+'bc=popdirectionalformat' => '#/100',
+'bc=popdirectionalisolate' => '#/101',
+'bc=r' => 'Bc/R',
+'bc=righttoleft' => 'Bc/R',
+'bc=righttoleftembedding' => '#/102',
+'bc=righttoleftisolate' => '#/103',
+'bc=righttoleftoverride' => '#/104',
+'bc=rle' => '#/102',
+'bc=rli' => '#/103',
+'bc=rlo' => '#/104',
+'bc=s' => '#/95',
+'bc=segmentseparator' => '#/95',
+'bc=whitespace' => 'Bc/WS',
+'bc=ws' => 'Bc/WS',
+'beng' => 'Sc/Beng',
+'bengali' => 'Sc/Beng',
+'bidic' => 'BidiC/Y',
+'bidic=f' => '!BidiC/Y',
+'bidic=false' => '!BidiC/Y',
+'bidic=n' => '!BidiC/Y',
+'bidic=no' => '!BidiC/Y',
+'bidic=t' => 'BidiC/Y',
+'bidic=true' => 'BidiC/Y',
+'bidic=y' => 'BidiC/Y',
+'bidic=yes' => 'BidiC/Y',
+'bidicontrol' => 'BidiC/Y',
+'bidim' => 'BidiM/Y',
+'bidim=f' => '!BidiM/Y',
+'bidim=false' => '!BidiM/Y',
+'bidim=n' => '!BidiM/Y',
+'bidim=no' => '!BidiM/Y',
+'bidim=t' => 'BidiM/Y',
+'bidim=true' => 'BidiM/Y',
+'bidim=y' => 'BidiM/Y',
+'bidim=yes' => 'BidiM/Y',
+'bidimirrored' => 'BidiM/Y',
+'blank' => 'Perl/Blank',
+'blk=aegeannumbers' => '#/304',
+'blk=ahom' => '#/114',
+'blk=alchemical' => '#/250',
+'blk=alchemicalsymbols' => '#/250',
+'blk=alphabeticpf' => '#/293',
+'blk=alphabeticpresentationforms' => '#/293',
+'blk=anatolianhieroglyphs' => '#/357',
+'blk=ancientgreekmusic' => '#/343',
+'blk=ancientgreekmusicalnotation' => '#/343',
+'blk=ancientgreeknumbers' => '#/351',
+'blk=ancientsymbols' => '#/311',
+'blk=arabic' => '#/139',
+'blk=arabicexta' => '#/251',
+'blk=arabicextendeda' => '#/251',
+'blk=arabicmath' => '#/252',
+'blk=arabicmathematicalalphabeticsymbols' => '#/252',
+'blk=arabicpfa' => '#/226',
+'blk=arabicpfb' => '#/227',
+'blk=arabicpresentationformsa' => '#/226',
+'blk=arabicpresentationformsb' => '#/227',
+'blk=arabicsup' => '#/228',
+'blk=arabicsupplement' => '#/228',
+'blk=armenian' => '#/199',
+'blk=arrows' => '#/140',
+'blk=ascii' => '#/124',
+'blk=avestan' => '#/164',
+'blk=balinese' => '#/200',
+'blk=bamum' => '#/125',
+'blk=bamumsup' => '#/201',
+'blk=bamumsupplement' => '#/201',
+'blk=basiclatin' => '#/124',
+'blk=bassavah' => '#/202',
+'blk=batak' => '#/126',
+'blk=bengali' => '#/165',
+'blk=blockelements' => '#/305',
+'blk=bopomofo' => '#/203',
+'blk=bopomofoext' => '#/271',
+'blk=bopomofoextended' => '#/271',
+'blk=boxdrawing' => '#/253',
+'blk=brahmi' => '#/141',
+'blk=braille' => '#/166',
+'blk=braillepatterns' => '#/166',
+'blk=buginese' => '#/204',
+'blk=buhid' => '#/127',
+'blk=byzantinemusic' => '#/312',
+'blk=byzantinemusicalsymbols' => '#/312',
+'blk=canadiansyllabics' => '#/123',
+'blk=carian' => '#/142',
+'blk=caucasianalbanian' => '#/344',
+'blk=chakma' => '#/143',
+'blk=cham' => '#/115',
+'blk=cherokee' => '#/205',
+'blk=cherokeesup' => '#/272',
+'blk=cherokeesupplement' => '#/272',
+'blk=cjk' => '#/106',
+'blk=cjkcompat' => '#/229',
+'blk=cjkcompatforms' => '#/313',
+'blk=cjkcompatibility' => '#/229',
+'blk=cjkcompatibilityforms' => '#/313',
+'blk=cjkcompatibilityideographs' => '#/352',
+'blk=cjkcompatibilityideographssupplement' => '#/361',
+'blk=cjkcompatideographs' => '#/352',
+'blk=cjkcompatideographssup' => '#/361',
+'blk=cjkexta' => '#/167',
+'blk=cjkextb' => '#/168',
+'blk=cjkextc' => '#/169',
+'blk=cjkextd' => '#/170',
+'blk=cjkexte' => '#/171',
+'blk=cjkradicalssup' => '#/314',
+'blk=cjkradicalssupplement' => '#/314',
+'blk=cjkstrokes' => '#/254',
+'blk=cjksymbols' => '#/255',
+'blk=cjksymbolsandpunctuation' => '#/255',
+'blk=cjkunifiedideographs' => '#/106',
+'blk=cjkunifiedideographsextensiona' => '#/167',
+'blk=cjkunifiedideographsextensionb' => '#/168',
+'blk=cjkunifiedideographsextensionc' => '#/169',
+'blk=cjkunifiedideographsextensiond' => '#/170',
+'blk=cjkunifiedideographsextensione' => '#/171',
+'blk=combiningdiacriticalmarks' => '#/296',
+'blk=combiningdiacriticalmarksextended' => '#/322',
+'blk=combiningdiacriticalmarksforsymbols' => '#/362',
+'blk=combiningdiacriticalmarkssupplement' => '#/323',
+'blk=combininghalfmarks' => '#/232',
+'blk=combiningmarksforsymbols' => '#/362',
+'blk=commonindicnumberforms' => '#/337',
+'blk=compatjamo' => '#/256',
+'blk=controlpictures' => '#/320',
+'blk=coptic' => '#/144',
+'blk=copticepactnumbers' => '#/347',
+'blk=countingrod' => '#/273',
+'blk=countingrodnumerals' => '#/273',
+'blk=cuneiform' => '#/230',
+'blk=cuneiformnumbers' => '#/332',
+'blk=cuneiformnumbersandpunctuation' => '#/332',
+'blk=currencysymbols' => '#/321',
+'blk=cypriotsyllabary' => '#/333',
+'blk=cyrillic' => '#/206',
+'blk=cyrillicexta' => '#/294',
+'blk=cyrillicextb' => '#/295',
+'blk=cyrillicextendeda' => '#/294',
+'blk=cyrillicextendedb' => '#/295',
+'blk=cyrillicsup' => '#/274',
+'blk=cyrillicsupplement' => '#/274',
+'blk=cyrillicsupplementary' => '#/274',
+'blk=deseret' => '#/172',
+'blk=devanagari' => '#/257',
+'blk=devanagariext' => '#/306',
+'blk=devanagariextended' => '#/306',
+'blk=diacriticals' => '#/296',
+'blk=diacriticalsext' => '#/322',
+'blk=diacriticalsforsymbols' => '#/362',
+'blk=diacriticalssup' => '#/323',
+'blk=dingbats' => '#/207',
+'blk=domino' => '#/145',
+'blk=dominotiles' => '#/145',
+'blk=duployan' => '#/208',
+'blk=earlydynasticcuneiform' => '#/363',
+'blk=egyptianhieroglyphs' => '#/353',
+'blk=elbasan' => '#/173',
+'blk=emoticons' => '#/231',
+'blk=enclosedalphanum' => '#/334',
+'blk=enclosedalphanumerics' => '#/334',
+'blk=enclosedalphanumericsupplement' => '#/354',
+'blk=enclosedalphanumsup' => '#/354',
+'blk=enclosedcjk' => '#/275',
+'blk=enclosedcjklettersandmonths' => '#/275',
+'blk=enclosedideographicsup' => '#/364',
+'blk=enclosedideographicsupplement' => '#/364',
+'blk=ethiopic' => '#/209',
+'blk=ethiopicext' => '#/276',
+'blk=ethiopicexta' => '#/297',
+'blk=ethiopicextended' => '#/276',
+'blk=ethiopicextendeda' => '#/297',
+'blk=ethiopicsup' => '#/277',
+'blk=ethiopicsupplement' => '#/277',
+'blk=generalpunctuation' => '#/287',
+'blk=geometricshapes' => '#/324',
+'blk=geometricshapesext' => '#/348',
+'blk=geometricshapesextended' => '#/348',
+'blk=georgian' => '#/210',
+'blk=georgiansup' => '#/278',
+'blk=georgiansupplement' => '#/278',
+'blk=glagolitic' => '#/258',
+'blk=gothic' => '#/146',
+'blk=grantha' => '#/174',
+'blk=greek' => '#/128',
+'blk=greekandcoptic' => '#/128',
+'blk=greekext' => '#/211',
+'blk=greekextended' => '#/211',
+'blk=gujarati' => '#/212',
+'blk=gurmukhi' => '#/213',
+'blk=halfandfullforms' => '#/335',
+'blk=halfmarks' => '#/232',
+'blk=halfwidthandfullwidthforms' => '#/335',
+'blk=hangul' => '#/147',
+'blk=hangulcompatibilityjamo' => '#/256',
+'blk=hanguljamo' => '#/116',
+'blk=hanguljamoextendeda' => '#/215',
+'blk=hanguljamoextendedb' => '#/216',
+'blk=hangulsyllables' => '#/147',
+'blk=hanunoo' => '#/175',
+'blk=hatran' => '#/148',
+'blk=hebrew' => '#/149',
+'blk=highprivateusesurrogates' => '#/336',
+'blk=highpusurrogates' => '#/336',
+'blk=highsurrogates' => '#/315',
+'blk=hiragana' => '#/214',
+'blk=idc' => '#/107',
+'blk=ideographicdescriptioncharacters' => '#/107',
+'blk=imperialaramaic' => '#/325',
+'blk=indicnumberforms' => '#/337',
+'blk=inscriptionalpahlavi' => '#/358',
+'blk=inscriptionalparthian' => '#/359',
+'blk=ipaext' => '#/150',
+'blk=ipaextensions' => '#/150',
+'blk=jamo' => '#/116',
+'blk=jamoexta' => '#/215',
+'blk=jamoextb' => '#/216',
+'blk=javanese' => '#/217',
+'blk=kaithi' => '#/151',
+'blk=kanasup' => '#/176',
+'blk=kanasupplement' => '#/176',
+'blk=kanbun' => '#/152',
+'blk=kangxi' => '#/153',
+'blk=kangxiradicals' => '#/153',
+'blk=kannada' => '#/177',
+'blk=katakana' => '#/218',
+'blk=katakanaext' => '#/279',
+'blk=katakanaphoneticextensions' => '#/279',
+'blk=kayahli' => '#/178',
+'blk=kharoshthi' => '#/259',
+'blk=khmer' => '#/129',
+'blk=khmersymbols' => '#/298',
+'blk=khojki' => '#/154',
+'blk=khudawadi' => '#/233',
+'blk=lao' => '#/108',
+'blk=latin1' => '#/155',
+'blk=latin1sup' => '#/155',
+'blk=latin1supplement' => '#/155',
+'blk=latinexta' => '#/234',
+'blk=latinextadditional' => '#/349',
+'blk=latinextb' => '#/235',
+'blk=latinextc' => '#/236',
+'blk=latinextd' => '#/237',
+'blk=latinexte' => '#/238',
+'blk=latinextendeda' => '#/234',
+'blk=latinextendedadditional' => '#/349',
+'blk=latinextendedb' => '#/235',
+'blk=latinextendedc' => '#/236',
+'blk=latinextendedd' => '#/237',
+'blk=latinextendede' => '#/238',
+'blk=lepcha' => '#/156',
+'blk=letterlikesymbols' => '#/345',
+'blk=limbu' => '#/130',
+'blk=lineara' => '#/179',
+'blk=linearbideograms' => '#/338',
+'blk=linearbsyllabary' => '#/339',
+'blk=lisu' => '#/117',
+'blk=lowsurrogates' => '#/307',
+'blk=lycian' => '#/157',
+'blk=lydian' => '#/158',
+'blk=mahajani' => '#/219',
+'blk=mahjong' => '#/180',
+'blk=mahjongtiles' => '#/180',
+'blk=malayalam' => '#/239',
+'blk=mandaic' => '#/181',
+'blk=manichaean' => '#/260',
+'blk=mathalphanum' => '#/299',
+'blk=mathematicalalphanumericsymbols' => '#/299',
+'blk=mathematicaloperators' => '#/308',
+'blk=mathoperators' => '#/308',
+'blk=meeteimayek' => '#/280',
+'blk=meeteimayekext' => '#/316',
+'blk=meeteimayekextensions' => '#/316',
+'blk=mendekikakui' => '#/300',
+'blk=meroiticcursive' => '#/326',
+'blk=meroitichieroglyphs' => '#/355',
+'blk=miao' => '#/118',
+'blk=miscarrows' => '#/261',
+'blk=miscellaneousmathematicalsymbolsa' => '#/340',
+'blk=miscellaneousmathematicalsymbolsb' => '#/341',
+'blk=miscellaneoussymbols' => '#/281',
+'blk=miscellaneoussymbolsandarrows' => '#/261',
+'blk=miscellaneoussymbolsandpictographs' => '#/327',
+'blk=miscellaneoustechnical' => '#/309',
+'blk=miscmathsymbolsa' => '#/340',
+'blk=miscmathsymbolsb' => '#/341',
+'blk=miscpictographs' => '#/327',
+'blk=miscsymbols' => '#/281',
+'blk=misctechnical' => '#/309',
+'blk=modi' => '#/119',
+'blk=modifierletters' => '#/328',
+'blk=modifiertoneletters' => '#/356',
+'blk=mongolian' => '#/240',
+'blk=mro' => '#/109',
+'blk=multani' => '#/182',
+'blk=music' => '#/131',
+'blk=musicalsymbols' => '#/131',
+'blk=myanmar' => '#/183',
+'blk=myanmarexta' => '#/282',
+'blk=myanmarextb' => '#/283',
+'blk=myanmarextendeda' => '#/282',
+'blk=myanmarextendedb' => '#/283',
+'blk=nabataean' => '#/241',
+'blk=nb' => 'Blk/NB',
+'blk=newtailue' => '#/242',
+'blk=nko' => '#/110',
+'blk=noblock' => 'Blk/NB',
+'blk=numberforms' => '#/284',
+'blk=ocr' => '#/111',
+'blk=ogham' => '#/132',
+'blk=olchiki' => '#/184',
+'blk=oldhungarian' => '#/301',
+'blk=olditalic' => '#/243',
+'blk=oldnortharabian' => '#/329',
+'blk=oldpermic' => '#/244',
+'blk=oldpersian' => '#/262',
+'blk=oldsoutharabian' => '#/330',
+'blk=oldturkic' => '#/245',
+'blk=opticalcharacterrecognition' => '#/111',
+'blk=oriya' => '#/133',
+'blk=ornamentaldingbats' => '#/350',
+'blk=osmanya' => '#/185',
+'blk=pahawhhmong' => '#/285',
+'blk=palmyrene' => '#/246',
+'blk=paucinhau' => '#/247',
+'blk=phagspa' => '#/186',
+'blk=phaistos' => '#/220',
+'blk=phaistosdisc' => '#/220',
+'blk=phoenician' => '#/263',
+'blk=phoneticext' => '#/286',
+'blk=phoneticextensions' => '#/286',
+'blk=phoneticextensionssupplement' => '#/317',
+'blk=phoneticextsup' => '#/317',
+'blk=playingcards' => '#/302',
+'blk=privateuse' => '#/112',
+'blk=privateusearea' => '#/112',
+'blk=psalterpahlavi' => '#/318',
+'blk=pua' => '#/112',
+'blk=punctuation' => '#/287',
+'blk=rejang' => '#/159',
+'blk=rumi' => '#/120',
+'blk=ruminumeralsymbols' => '#/120',
+'blk=runic' => '#/134',
+'blk=samaritan' => '#/248',
+'blk=saurashtra' => '#/264',
+'blk=sharada' => '#/187',
+'blk=shavian' => '#/188',
+'blk=shorthandformatcontrols' => '#/365',
+'blk=siddham' => '#/189',
+'blk=sinhala' => '#/190',
+'blk=sinhalaarchaicnumbers' => '#/360',
+'blk=smallforms' => '#/265',
+'blk=smallformvariants' => '#/265',
+'blk=sorasompeng' => '#/288',
+'blk=spacingmodifierletters' => '#/328',
+'blk=specials' => '#/221',
+'blk=sundanese' => '#/249',
+'blk=sundanesesup' => '#/303',
+'blk=sundanesesupplement' => '#/303',
+'blk=suparrowsa' => '#/266',
+'blk=suparrowsb' => '#/267',
+'blk=suparrowsc' => '#/268',
+'blk=superandsub' => '#/289',
+'blk=superscriptsandsubscripts' => '#/289',
+'blk=supmathoperators' => '#/342',
+'blk=supplementalarrowsa' => '#/266',
+'blk=supplementalarrowsb' => '#/267',
+'blk=supplementalarrowsc' => '#/268',
+'blk=supplementalmathematicaloperators' => '#/342',
+'blk=supplementalpunctuation' => '#/319',
+'blk=supplementalsymbolsandpictographs' => '#/366',
+'blk=supplementaryprivateuseareaa' => '#/191',
+'blk=supplementaryprivateuseareab' => '#/192',
+'blk=suppuaa' => '#/191',
+'blk=suppuab' => '#/192',
+'blk=suppunctuation' => '#/319',
+'blk=supsymbolsandpictographs' => '#/366',
+'blk=suttonsignwriting' => '#/346',
+'blk=sylotinagri' => '#/290',
+'blk=syriac' => '#/160',
+'blk=tagalog' => '#/193',
+'blk=tagbanwa' => '#/222',
+'blk=tags' => '#/121',
+'blk=taile' => '#/135',
+'blk=taitham' => '#/194',
+'blk=taiviet' => '#/195',
+'blk=taixuanjing' => '#/291',
+'blk=taixuanjingsymbols' => '#/291',
+'blk=takri' => '#/136',
+'blk=tamil' => '#/137',
+'blk=telugu' => '#/161',
+'blk=thaana' => '#/162',
+'blk=thai' => '#/122',
+'blk=tibetan' => '#/196',
+'blk=tifinagh' => '#/223',
+'blk=tirhuta' => '#/197',
+'blk=transportandmap' => '#/331',
+'blk=transportandmapsymbols' => '#/331',
+'blk=ucas' => '#/123',
+'blk=ucasext' => '#/198',
+'blk=ugaritic' => '#/224',
+'blk=unifiedcanadianaboriginalsyllabics' => '#/123',
+'blk=unifiedcanadianaboriginalsyllabicsextended' => '#/198',
+'blk=vai' => '#/113',
+'blk=variationselectors' => '#/105',
+'blk=variationselectorssupplement' => '#/138',
+'blk=vedicext' => '#/225',
+'blk=vedicextensions' => '#/225',
+'blk=verticalforms' => '#/310',
+'blk=vs' => '#/105',
+'blk=vssup' => '#/138',
+'blk=warangciti' => '#/269',
+'blk=yijing' => '#/163',
+'blk=yijinghexagramsymbols' => '#/163',
+'blk=yiradicals' => '#/270',
+'blk=yisyllables' => '#/292',
+'blockelements' => '#/305',
+'bopo' => '#/550',
+'bopomofo' => '#/550',
+'bopomofoext' => '#/271',
+'bopomofoextended' => '#/271',
+'boxdrawing' => '#/253',
+'bpt=c' => 'Bpt/C',
+'bpt=close' => 'Bpt/C',
+'bpt=n' => 'Bpt/N',
+'bpt=none' => 'Bpt/N',
+'bpt=o' => 'Bpt/O',
+'bpt=open' => 'Bpt/O',
+'brah' => '#/551',
+'brahmi' => '#/551',
+'brai' => '#/166',
+'braille' => '#/166',
+'braillepatterns' => '#/166',
+'bugi' => '#/552',
+'buginese' => '#/552',
+'buhd' => '#/553',
+'buhid' => '#/553',
+'byzantinemusic' => '#/312',
+'byzantinemusicalsymbols' => '#/312',
+'c' => 'Gc/C',
+'cakm' => '#/554',
+'canadianaboriginal' => '#/555',
+'canadiansyllabics' => '#/123',
+'cans' => '#/555',
+'cari' => '#/556',
+'carian' => '#/556',
+'cased' => 'Cased/Y',
+'cased=f' => '!Cased/Y',
+'cased=false' => '!Cased/Y',
+'cased=n' => '!Cased/Y',
+'cased=no' => '!Cased/Y',
+'cased=t' => 'Cased/Y',
+'cased=true' => 'Cased/Y',
+'cased=y' => 'Cased/Y',
+'cased=yes' => 'Cased/Y',
+'casedletter' => 'Gc/LC',
+'caseignorable' => 'CI/Y',
+'caucasianalbanian' => '#/542',
+'cc' => '#/370',
+'ccc=a' => 'Ccc/A',
+'ccc=above' => 'Ccc/A',
+'ccc=aboveleft' => '#/17',
+'ccc=aboveright' => 'Ccc/AR',
+'ccc=al' => '#/17',
+'ccc=ar' => 'Ccc/AR',
+'ccc=ata' => '#/22',
+'ccc=atar' => 'Ccc/ATAR',
+'ccc=atb' => '#/23',
+'ccc=atbl' => '#/0',
+'ccc=attachedabove' => '#/22',
+'ccc=attachedaboveright' => 'Ccc/ATAR',
+'ccc=attachedbelow' => '#/23',
+'ccc=attachedbelowleft' => '#/0',
+'ccc=b' => 'Ccc/B',
+'ccc=below' => 'Ccc/B',
+'ccc=belowleft' => '#/18',
+'ccc=belowright' => 'Ccc/BR',
+'ccc=bl' => '#/18',
+'ccc=br' => 'Ccc/BR',
+'ccc=ccc10' => '#/24',
+'ccc=ccc103' => '#/53',
+'ccc=ccc107' => '#/54',
+'ccc=ccc11' => '#/25',
+'ccc=ccc118' => '#/55',
+'ccc=ccc12' => '#/26',
+'ccc=ccc122' => '#/56',
+'ccc=ccc129' => '#/57',
+'ccc=ccc13' => '#/27',
+'ccc=ccc130' => '#/58',
+'ccc=ccc132' => '#/59',
+'ccc=ccc133' => '#/0',
+'ccc=ccc14' => '#/28',
+'ccc=ccc15' => '#/29',
+'ccc=ccc16' => '#/30',
+'ccc=ccc17' => '#/31',
+'ccc=ccc18' => '#/32',
+'ccc=ccc19' => '#/33',
+'ccc=ccc20' => '#/34',
+'ccc=ccc21' => '#/35',
+'ccc=ccc22' => '#/36',
+'ccc=ccc23' => '#/37',
+'ccc=ccc24' => '#/38',
+'ccc=ccc25' => '#/39',
+'ccc=ccc26' => '#/40',
+'ccc=ccc27' => '#/41',
+'ccc=ccc28' => '#/42',
+'ccc=ccc29' => '#/43',
+'ccc=ccc30' => '#/44',
+'ccc=ccc31' => '#/45',
+'ccc=ccc32' => '#/46',
+'ccc=ccc33' => '#/47',
+'ccc=ccc34' => '#/48',
+'ccc=ccc35' => '#/49',
+'ccc=ccc36' => '#/50',
+'ccc=ccc84' => '#/51',
+'ccc=ccc91' => '#/52',
+'ccc=da' => '#/19',
+'ccc=db' => 'Ccc/DB',
+'ccc=doubleabove' => '#/19',
+'ccc=doublebelow' => 'Ccc/DB',
+'ccc=iotasubscript' => '#/20',
+'ccc=is' => '#/20',
+'ccc=kanavoicing' => '#/21',
+'ccc=kv' => '#/21',
+'ccc=l' => '#/15',
+'ccc=left' => '#/15',
+'ccc=nk' => 'Ccc/NK',
+'ccc=notreordered' => 'Ccc/NR',
+'ccc=nr' => 'Ccc/NR',
+'ccc=nukta' => 'Ccc/NK',
+'ccc=ov' => 'Ccc/OV',
+'ccc=overlay' => 'Ccc/OV',
+'ccc=r' => '#/16',
+'ccc=right' => '#/16',
+'ccc=virama' => 'Ccc/VR',
+'ccc=vr' => 'Ccc/VR',
+'ce' => 'CE/Y',
+'ce=f' => '!CE/Y',
+'ce=false' => '!CE/Y',
+'ce=n' => '!CE/Y',
+'ce=no' => '!CE/Y',
+'ce=t' => 'CE/Y',
+'ce=true' => 'CE/Y',
+'ce=y' => 'CE/Y',
+'ce=yes' => 'CE/Y',
+'cf' => 'Gc/Cf',
+'chakma' => '#/554',
+'cham' => 'Sc/Cham',
+'changeswhencasefolded' => 'CWCF/Y',
+'changeswhencasemapped' => 'CWCM/Y',
+'changeswhenlowercased' => 'CWL/Y',
+'changeswhennfkccasefolded' => 'CWKCF/Y',
+'changeswhentitlecased' => 'CWT/Y',
+'changeswhenuppercased' => 'CWU/Y',
+'cher' => '#/557',
+'cherokee' => '#/557',
+'cherokeesup' => '#/272',
+'cherokeesupplement' => '#/272',
+'ci' => 'CI/Y',
+'ci=f' => '!CI/Y',
+'ci=false' => '!CI/Y',
+'ci=n' => '!CI/Y',
+'ci=no' => '!CI/Y',
+'ci=t' => 'CI/Y',
+'ci=true' => 'CI/Y',
+'ci=y' => 'CI/Y',
+'ci=yes' => 'CI/Y',
+'cjk' => '#/106',
+'cjkcompat' => '#/229',
+'cjkcompatforms' => '#/313',
+'cjkcompatibility' => '#/229',
+'cjkcompatibilityforms' => '#/313',
+'cjkcompatibilityideographs' => '#/352',
+'cjkcompatibilityideographssupplement' => '#/361',
+'cjkcompatideographs' => '#/352',
+'cjkcompatideographssup' => '#/361',
+'cjkexta' => '#/167',
+'cjkextb' => '#/168',
+'cjkextc' => '#/169',
+'cjkextd' => '#/170',
+'cjkexte' => '#/171',
+'cjkradicalssup' => '#/314',
+'cjkradicalssupplement' => '#/314',
+'cjkstrokes' => '#/254',
+'cjksymbols' => '#/255',
+'cjksymbolsandpunctuation' => '#/255',
+'cjkunifiedideographs' => '#/106',
+'cjkunifiedideographsextensiona' => '#/167',
+'cjkunifiedideographsextensionb' => '#/168',
+'cjkunifiedideographsextensionc' => '#/169',
+'cjkunifiedideographsextensiond' => '#/170',
+'cjkunifiedideographsextensione' => '#/171',
+'closepunctuation' => 'Gc/Pe',
+'cn' => 'Gc/Cn',
+'cntrl' => '#/370',
+'co' => '#/371',
+'combiningdiacriticalmarks' => '#/296',
+'combiningdiacriticalmarksextended' => '#/322',
+'combiningdiacriticalmarksforsymbols' => '#/362',
+'combiningdiacriticalmarkssupplement' => '#/323',
+'combininghalfmarks' => '#/232',
+'combiningmark' => 'Gc/M',
+'combiningmarksforsymbols' => '#/362',
+'common' => 'Sc/Zyyy',
+'commonindicnumberforms' => '#/337',
+'compatjamo' => '#/256',
+'compex' => 'CompEx/Y',
+'compex=f' => '!CompEx/Y',
+'compex=false' => '!CompEx/Y',
+'compex=n' => '!CompEx/Y',
+'compex=no' => '!CompEx/Y',
+'compex=t' => 'CompEx/Y',
+'compex=true' => 'CompEx/Y',
+'compex=y' => 'CompEx/Y',
+'compex=yes' => 'CompEx/Y',
+'compositionexclusion' => 'CE/Y',
+'connectorpunctuation' => 'WB/EX',
+'control' => '#/370',
+'controlpictures' => '#/320',
+'copt' => '#/558',
+'coptic' => '#/558',
+'copticepactnumbers' => '#/347',
+'countingrod' => '#/273',
+'countingrodnumerals' => '#/273',
+'cprt' => 'Sc/Cprt',
+'cs' => '#/14',
+'cuneiform' => 'Sc/Xsux',
+'cuneiformnumbers' => '#/332',
+'cuneiformnumbersandpunctuation' => '#/332',
+'currencysymbol' => 'Gc/Sc',
+'currencysymbols' => '#/321',
+'cwcf' => 'CWCF/Y',
+'cwcf=f' => '!CWCF/Y',
+'cwcf=false' => '!CWCF/Y',
+'cwcf=n' => '!CWCF/Y',
+'cwcf=no' => '!CWCF/Y',
+'cwcf=t' => 'CWCF/Y',
+'cwcf=true' => 'CWCF/Y',
+'cwcf=y' => 'CWCF/Y',
+'cwcf=yes' => 'CWCF/Y',
+'cwcm' => 'CWCM/Y',
+'cwcm=f' => '!CWCM/Y',
+'cwcm=false' => '!CWCM/Y',
+'cwcm=n' => '!CWCM/Y',
+'cwcm=no' => '!CWCM/Y',
+'cwcm=t' => 'CWCM/Y',
+'cwcm=true' => 'CWCM/Y',
+'cwcm=y' => 'CWCM/Y',
+'cwcm=yes' => 'CWCM/Y',
+'cwkcf' => 'CWKCF/Y',
+'cwkcf=f' => '!CWKCF/Y',
+'cwkcf=false' => '!CWKCF/Y',
+'cwkcf=n' => '!CWKCF/Y',
+'cwkcf=no' => '!CWKCF/Y',
+'cwkcf=t' => 'CWKCF/Y',
+'cwkcf=true' => 'CWKCF/Y',
+'cwkcf=y' => 'CWKCF/Y',
+'cwkcf=yes' => 'CWKCF/Y',
+'cwl' => 'CWL/Y',
+'cwl=f' => '!CWL/Y',
+'cwl=false' => '!CWL/Y',
+'cwl=n' => '!CWL/Y',
+'cwl=no' => '!CWL/Y',
+'cwl=t' => 'CWL/Y',
+'cwl=true' => 'CWL/Y',
+'cwl=y' => 'CWL/Y',
+'cwl=yes' => 'CWL/Y',
+'cwt' => 'CWT/Y',
+'cwt=f' => '!CWT/Y',
+'cwt=false' => '!CWT/Y',
+'cwt=n' => '!CWT/Y',
+'cwt=no' => '!CWT/Y',
+'cwt=t' => 'CWT/Y',
+'cwt=true' => 'CWT/Y',
+'cwt=y' => 'CWT/Y',
+'cwt=yes' => 'CWT/Y',
+'cwu' => 'CWU/Y',
+'cwu=f' => '!CWU/Y',
+'cwu=false' => '!CWU/Y',
+'cwu=n' => '!CWU/Y',
+'cwu=no' => '!CWU/Y',
+'cwu=t' => 'CWU/Y',
+'cwu=true' => 'CWU/Y',
+'cwu=y' => 'CWU/Y',
+'cwu=yes' => 'CWU/Y',
+'cypriot' => 'Sc/Cprt',
+'cypriotsyllabary' => '#/333',
+'cyrillic' => 'Sc/Cyrl',
+'cyrillicexta' => '#/294',
+'cyrillicextb' => '#/295',
+'cyrillicextendeda' => '#/294',
+'cyrillicextendedb' => '#/295',
+'cyrillicsup' => '#/274',
+'cyrillicsupplement' => '#/274',
+'cyrillicsupplementary' => '#/274',
+'cyrl' => 'Sc/Cyrl',
+'dash' => 'Dash/Y',
+'dash=f' => '!Dash/Y',
+'dash=false' => '!Dash/Y',
+'dash=n' => '!Dash/Y',
+'dash=no' => '!Dash/Y',
+'dash=t' => 'Dash/Y',
+'dash=true' => 'Dash/Y',
+'dash=y' => 'Dash/Y',
+'dash=yes' => 'Dash/Y',
+'dashpunctuation' => 'Gc/Pd',
+'decimalnumber' => 'Gc/Nd',
+'defaultignorablecodepoint' => 'DI/Y',
+'dep' => 'Dep/Y',
+'dep=f' => '!Dep/Y',
+'dep=false' => '!Dep/Y',
+'dep=n' => '!Dep/Y',
+'dep=no' => '!Dep/Y',
+'dep=t' => 'Dep/Y',
+'dep=true' => 'Dep/Y',
+'dep=y' => 'Dep/Y',
+'dep=yes' => 'Dep/Y',
+'deprecated' => 'Dep/Y',
+'deseret' => '#/172',
+'deva' => 'Sc/Deva',
+'devanagari' => 'Sc/Deva',
+'devanagariext' => '#/306',
+'devanagariextended' => '#/306',
+'di' => 'DI/Y',
+'di=f' => '!DI/Y',
+'di=false' => '!DI/Y',
+'di=n' => '!DI/Y',
+'di=no' => '!DI/Y',
+'di=t' => 'DI/Y',
+'di=true' => 'DI/Y',
+'di=y' => 'DI/Y',
+'di=yes' => 'DI/Y',
+'dia' => 'Dia/Y',
+'dia=f' => '!Dia/Y',
+'dia=false' => '!Dia/Y',
+'dia=n' => '!Dia/Y',
+'dia=no' => '!Dia/Y',
+'dia=t' => 'Dia/Y',
+'dia=true' => 'Dia/Y',
+'dia=y' => 'Dia/Y',
+'dia=yes' => 'Dia/Y',
+'diacritic' => 'Dia/Y',
+'diacriticals' => '#/296',
+'diacriticalsext' => '#/322',
+'diacriticalsforsymbols' => '#/362',
+'diacriticalssup' => '#/323',
+'digit' => 'Gc/Nd',
+'dingbats' => '#/207',
+'domino' => '#/145',
+'dominotiles' => '#/145',
+'dsrt' => '#/172',
+'dt=can' => 'NFDQC/N',
+'dt=canonical' => 'NFDQC/N',
+'dt=circle' => 'Dt/Enc',
+'dt=com' => 'Dt/Com',
+'dt=compat' => 'Dt/Com',
+'dt=enc' => 'Dt/Enc',
+'dt=fin' => 'Dt/Fin',
+'dt=final' => 'Dt/Fin',
+'dt=font' => 'Dt/Font',
+'dt=fra' => '#/367',
+'dt=fraction' => '#/367',
+'dt=init' => 'Dt/Init',
+'dt=initial' => 'Dt/Init',
+'dt=iso' => 'Dt/Iso',
+'dt=isolated' => 'Dt/Iso',
+'dt=med' => 'Dt/Med',
+'dt=medial' => 'Dt/Med',
+'dt=nar' => 'Dt/Nar',
+'dt=narrow' => 'Dt/Nar',
+'dt=nb' => 'Dt/Nb',
+'dt=nobreak' => 'Dt/Nb',
+'dt=noncanon' => 'Dt/NonCanon',
+'dt=noncanonical' => 'Dt/NonCanon',
+'dt=none' => 'NFKDQC/Y',
+'dt=small' => '#/368',
+'dt=sml' => '#/368',
+'dt=sqr' => 'Dt/Sqr',
+'dt=square' => 'Dt/Sqr',
+'dt=sub' => 'Dt/Sub',
+'dt=sup' => 'Dt/Sup',
+'dt=super' => 'Dt/Sup',
+'dt=vert' => 'Dt/Vert',
+'dt=vertical' => 'Dt/Vert',
+'dt=wide' => '#/369',
+'dupl' => 'Sc/Dupl',
+'duployan' => 'Sc/Dupl',
+'ea=a' => 'Ea/A',
+'ea=ambiguous' => 'Ea/A',
+'ea=f' => '#/369',
+'ea=fullwidth' => '#/369',
+'ea=h' => 'Ea/H',
+'ea=halfwidth' => 'Ea/H',
+'ea=n' => 'Ea/N',
+'ea=na' => 'Ea/Na',
+'ea=narrow' => 'Ea/Na',
+'ea=neutral' => 'Ea/N',
+'ea=w' => 'Ea/W',
+'ea=wide' => 'Ea/W',
+'earlydynasticcuneiform' => '#/363',
+'egyp' => '#/559',
+'egyptianhieroglyphs' => '#/559',
+'elba' => '#/560',
+'elbasan' => '#/560',
+'emoticons' => '#/231',
+'enclosedalphanum' => '#/334',
+'enclosedalphanumerics' => '#/334',
+'enclosedalphanumericsupplement' => '#/354',
+'enclosedalphanumsup' => '#/354',
+'enclosedcjk' => '#/275',
+'enclosedcjklettersandmonths' => '#/275',
+'enclosedideographicsup' => '#/364',
+'enclosedideographicsupplement' => '#/364',
+'enclosingmark' => 'Gc/Me',
+'ethi' => 'Sc/Ethi',
+'ethiopic' => 'Sc/Ethi',
+'ethiopicext' => '#/276',
+'ethiopicexta' => '#/297',
+'ethiopicextended' => '#/276',
+'ethiopicextendeda' => '#/297',
+'ethiopicsup' => '#/277',
+'ethiopicsupplement' => '#/277',
+'ext' => 'Ext/Y',
+'ext=f' => '!Ext/Y',
+'ext=false' => '!Ext/Y',
+'ext=n' => '!Ext/Y',
+'ext=no' => '!Ext/Y',
+'ext=t' => 'Ext/Y',
+'ext=true' => 'Ext/Y',
+'ext=y' => 'Ext/Y',
+'ext=yes' => 'Ext/Y',
+'extender' => 'Ext/Y',
+'finalpunctuation' => 'Gc/Pf',
+'format' => 'Gc/Cf',
+'fullcompositionexclusion' => 'CompEx/Y',
+'gc=c' => 'Gc/C',
+'gc=casedletter' => 'Gc/LC',
+'gc=cc' => '#/370',
+'gc=cf' => 'Gc/Cf',
+'gc=closepunctuation' => 'Gc/Pe',
+'gc=cn' => 'Gc/Cn',
+'gc=cntrl' => '#/370',
+'gc=co' => '#/371',
+'gc=combiningmark' => 'Gc/M',
+'gc=connectorpunctuation' => 'WB/EX',
+'gc=control' => '#/370',
+'gc=cs' => '#/14',
+'gc=currencysymbol' => 'Gc/Sc',
+'gc=dashpunctuation' => 'Gc/Pd',
+'gc=decimalnumber' => 'Gc/Nd',
+'gc=digit' => 'Gc/Nd',
+'gc=enclosingmark' => 'Gc/Me',
+'gc=finalpunctuation' => 'Gc/Pf',
+'gc=format' => 'Gc/Cf',
+'gc=initialpunctuation' => 'Gc/Pi',
+'gc=l' => 'Gc/L',
+'gc=l&' => 'Gc/LC',
+'gc=l_' => 'Gc/LC',
+'gc=lc' => 'Gc/LC',
+'gc=letter' => 'Gc/L',
+'gc=letternumber' => 'Gc/Nl',
+'gc=lineseparator' => '#/372',
+'gc=ll' => 'Gc/Ll',
+'gc=lm' => 'Gc/Lm',
+'gc=lo' => 'Gc/Lo',
+'gc=lowercaseletter' => 'Gc/Ll',
+'gc=lt' => 'Perl/Title',
+'gc=lu' => 'Gc/Lu',
+'gc=m' => 'Gc/M',
+'gc=mark' => 'Gc/M',
+'gc=mathsymbol' => 'Gc/Sm',
+'gc=mc' => 'Gc/Mc',
+'gc=me' => 'Gc/Me',
+'gc=mn' => 'Gc/Mn',
+'gc=modifierletter' => 'Gc/Lm',
+'gc=modifiersymbol' => 'Gc/Sk',
+'gc=n' => 'Gc/N',
+'gc=nd' => 'Gc/Nd',
+'gc=nl' => 'Gc/Nl',
+'gc=no' => 'Gc/No',
+'gc=nonspacingmark' => 'Gc/Mn',
+'gc=number' => 'Gc/N',
+'gc=openpunctuation' => 'Gc/Ps',
+'gc=other' => 'Gc/C',
+'gc=otherletter' => 'Gc/Lo',
+'gc=othernumber' => 'Gc/No',
+'gc=otherpunctuation' => 'Gc/Po',
+'gc=othersymbol' => 'Gc/So',
+'gc=p' => 'Gc/P',
+'gc=paragraphseparator' => '#/373',
+'gc=pc' => 'WB/EX',
+'gc=pd' => 'Gc/Pd',
+'gc=pe' => 'Gc/Pe',
+'gc=pf' => 'Gc/Pf',
+'gc=pi' => 'Gc/Pi',
+'gc=po' => 'Gc/Po',
+'gc=privateuse' => '#/371',
+'gc=ps' => 'Gc/Ps',
+'gc=punct' => 'Gc/P',
+'gc=punctuation' => 'Gc/P',
+'gc=s' => 'Gc/S',
+'gc=sc' => 'Gc/Sc',
+'gc=separator' => 'Gc/Z',
+'gc=sk' => 'Gc/Sk',
+'gc=sm' => 'Gc/Sm',
+'gc=so' => 'Gc/So',
+'gc=spaceseparator' => 'Gc/Zs',
+'gc=spacingmark' => 'Gc/Mc',
+'gc=surrogate' => '#/14',
+'gc=symbol' => 'Gc/S',
+'gc=titlecaseletter' => 'Perl/Title',
+'gc=unassigned' => 'Gc/Cn',
+'gc=uppercaseletter' => 'Gc/Lu',
+'gc=z' => 'Gc/Z',
+'gc=zl' => '#/372',
+'gc=zp' => '#/373',
+'gc=zs' => 'Gc/Zs',
+'gcb=cn' => 'GCB/CN',
+'gcb=control' => 'GCB/CN',
+'gcb=cr' => '#/64',
+'gcb=ex' => 'GCB/EX',
+'gcb=extend' => 'GCB/EX',
+'gcb=l' => '#/61',
+'gcb=lf' => '#/65',
+'gcb=lv' => 'GCB/LV',
+'gcb=lvt' => 'GCB/LVT',
+'gcb=other' => 'GCB/XX',
+'gcb=pp' => '#/0',
+'gcb=prepend' => '#/0',
+'gcb=regionalindicator' => '#/66',
+'gcb=ri' => '#/66',
+'gcb=sm' => 'GCB/SM',
+'gcb=spacingmark' => 'GCB/SM',
+'gcb=t' => '#/62',
+'gcb=v' => '#/63',
+'gcb=xx' => 'GCB/XX',
+'generalpunctuation' => '#/287',
+'geometricshapes' => '#/324',
+'geometricshapesext' => '#/348',
+'geometricshapesextended' => '#/348',
+'geor' => 'Sc/Geor',
+'georgian' => 'Sc/Geor',
+'georgiansup' => '#/278',
+'georgiansupplement' => '#/278',
+'glag' => '#/561',
+'glagolitic' => '#/561',
+'goth' => '#/562',
+'gothic' => '#/562',
+'gran' => 'Sc/Gran',
+'grantha' => 'Sc/Gran',
+'graph' => 'Perl/Graph',
+'graphemebase' => 'GrBase/Y',
+'graphemeextend' => 'GCB/EX',
+'grbase' => 'GrBase/Y',
+'grbase=f' => '!GrBase/Y',
+'grbase=false' => '!GrBase/Y',
+'grbase=n' => '!GrBase/Y',
+'grbase=no' => '!GrBase/Y',
+'grbase=t' => 'GrBase/Y',
+'grbase=true' => 'GrBase/Y',
+'grbase=y' => 'GrBase/Y',
+'grbase=yes' => 'GrBase/Y',
+'greek' => 'Sc/Grek',
+'greekandcoptic' => '#/128',
+'greekext' => '#/211',
+'greekextended' => '#/211',
+'grek' => 'Sc/Grek',
+'grext' => 'GCB/EX',
+'grext=f' => '!GCB/EX',
+'grext=false' => '!GCB/EX',
+'grext=n' => '!GCB/EX',
+'grext=no' => '!GCB/EX',
+'grext=t' => 'GCB/EX',
+'grext=true' => 'GCB/EX',
+'grext=y' => 'GCB/EX',
+'grext=yes' => 'GCB/EX',
+'gujarati' => 'Sc/Gujr',
+'gujr' => 'Sc/Gujr',
+'gurmukhi' => 'Sc/Guru',
+'guru' => 'Sc/Guru',
+'halfandfullforms' => '#/335',
+'halfmarks' => '#/232',
+'halfwidthandfullwidthforms' => '#/335',
+'han' => 'Sc/Han',
+'hang' => 'Sc/Hang',
+'hangul' => 'Sc/Hang',
+'hangulcompatibilityjamo' => '#/256',
+'hanguljamo' => '#/116',
+'hanguljamoextendeda' => '#/215',
+'hanguljamoextendedb' => '#/216',
+'hangulsyllables' => '#/147',
+'hani' => 'Sc/Han',
+'hano' => '#/563',
+'hanunoo' => '#/563',
+'hatr' => '#/564',
+'hatran' => '#/564',
+'hebr' => 'Sc/Hebr',
+'hebrew' => 'Sc/Hebr',
+'hex' => 'Hex/Y',
+'hex=f' => '!Hex/Y',
+'hex=false' => '!Hex/Y',
+'hex=n' => '!Hex/Y',
+'hex=no' => '!Hex/Y',
+'hex=t' => 'Hex/Y',
+'hex=true' => 'Hex/Y',
+'hex=y' => 'Hex/Y',
+'hex=yes' => 'Hex/Y',
+'hexdigit' => 'Hex/Y',
+'highprivateusesurrogates' => '#/336',
+'highpusurrogates' => '#/336',
+'highsurrogates' => '#/315',
+'hira' => 'Sc/Hira',
+'hiragana' => 'Sc/Hira',
+'hluw' => '#/565',
+'hmng' => 'Sc/Hmng',
+'horizspace' => 'Perl/Blank',
+'hst=l' => '#/61',
+'hst=leadingjamo' => '#/61',
+'hst=lv' => 'GCB/LV',
+'hst=lvsyllable' => 'GCB/LV',
+'hst=lvt' => 'GCB/LVT',
+'hst=lvtsyllable' => 'GCB/LVT',
+'hst=na' => 'Hst/NA',
+'hst=notapplicable' => 'Hst/NA',
+'hst=t' => '#/62',
+'hst=trailingjamo' => '#/62',
+'hst=v' => '#/63',
+'hst=voweljamo' => '#/63',
+'hung' => '#/566',
+'hyphen' => 'Hyphen/T',
+'hyphen=f' => '!Hyphen/T',
+'hyphen=false' => '!Hyphen/T',
+'hyphen=n' => '!Hyphen/T',
+'hyphen=no' => '!Hyphen/T',
+'hyphen=t' => 'Hyphen/T',
+'hyphen=true' => 'Hyphen/T',
+'hyphen=y' => 'Hyphen/T',
+'hyphen=yes' => 'Hyphen/T',
+'idc' => 'IDC/Y',
+'idc=f' => '!IDC/Y',
+'idc=false' => '!IDC/Y',
+'idc=n' => '!IDC/Y',
+'idc=no' => '!IDC/Y',
+'idc=t' => 'IDC/Y',
+'idc=true' => 'IDC/Y',
+'idc=y' => 'IDC/Y',
+'idc=yes' => 'IDC/Y',
+'idcontinue' => 'IDC/Y',
+'ideo' => 'Ideo/Y',
+'ideo=f' => '!Ideo/Y',
+'ideo=false' => '!Ideo/Y',
+'ideo=n' => '!Ideo/Y',
+'ideo=no' => '!Ideo/Y',
+'ideo=t' => 'Ideo/Y',
+'ideo=true' => 'Ideo/Y',
+'ideo=y' => 'Ideo/Y',
+'ideo=yes' => 'Ideo/Y',
+'ideographic' => 'Ideo/Y',
+'ideographicdescriptioncharacters' => '#/107',
+'ids' => 'IDS/Y',
+'ids=f' => '!IDS/Y',
+'ids=false' => '!IDS/Y',
+'ids=n' => '!IDS/Y',
+'ids=no' => '!IDS/Y',
+'ids=t' => 'IDS/Y',
+'ids=true' => 'IDS/Y',
+'ids=y' => 'IDS/Y',
+'ids=yes' => 'IDS/Y',
+'idsb' => '#/67',
+'idsb=f' => '#/!67',
+'idsb=false' => '#/!67',
+'idsb=n' => '#/!67',
+'idsb=no' => '#/!67',
+'idsb=t' => '#/67',
+'idsb=true' => '#/67',
+'idsb=y' => '#/67',
+'idsb=yes' => '#/67',
+'idsbinaryoperator' => '#/67',
+'idst' => '#/68',
+'idst=f' => '#/!68',
+'idst=false' => '#/!68',
+'idst=n' => '#/!68',
+'idst=no' => '#/!68',
+'idst=t' => '#/68',
+'idst=true' => '#/68',
+'idst=y' => '#/68',
+'idst=yes' => '#/68',
+'idstart' => 'IDS/Y',
+'idstrinaryoperator' => '#/68',
+'imperialaramaic' => '#/544',
+'in=unassigned' => 'Age/NA',
+'inaegeannumbers' => '#/304',
+'inahom' => '#/114',
+'inalchemical' => '#/250',
+'inalchemicalsymbols' => '#/250',
+'inalphabeticpf' => '#/293',
+'inalphabeticpresentationforms' => '#/293',
+'inanatolianhieroglyphs' => '#/357',
+'inancientgreekmusic' => '#/343',
+'inancientgreekmusicalnotation' => '#/343',
+'inancientgreeknumbers' => '#/351',
+'inancientsymbols' => '#/311',
+'inarabic' => '#/139',
+'inarabicexta' => '#/251',
+'inarabicextendeda' => '#/251',
+'inarabicmath' => '#/252',
+'inarabicmathematicalalphabeticsymbols' => '#/252',
+'inarabicpfa' => '#/226',
+'inarabicpfb' => '#/227',
+'inarabicpresentationformsa' => '#/226',
+'inarabicpresentationformsb' => '#/227',
+'inarabicsup' => '#/228',
+'inarabicsupplement' => '#/228',
+'inarmenian' => '#/199',
+'inarrows' => '#/140',
+'inascii' => '#/124',
+'inavestan' => '#/164',
+'inbalinese' => '#/200',
+'inbamum' => '#/125',
+'inbamumsup' => '#/201',
+'inbamumsupplement' => '#/201',
+'inbasiclatin' => '#/124',
+'inbassavah' => '#/202',
+'inbatak' => '#/126',
+'inbengali' => '#/165',
+'inblockelements' => '#/305',
+'inbopomofo' => '#/203',
+'inbopomofoext' => '#/271',
+'inbopomofoextended' => '#/271',
+'inboxdrawing' => '#/253',
+'inbrahmi' => '#/141',
+'inbraille' => '#/166',
+'inbraillepatterns' => '#/166',
+'inbuginese' => '#/204',
+'inbuhid' => '#/127',
+'inbyzantinemusic' => '#/312',
+'inbyzantinemusicalsymbols' => '#/312',
+'incanadiansyllabics' => '#/123',
+'incarian' => '#/142',
+'incaucasianalbanian' => '#/344',
+'inchakma' => '#/143',
+'incham' => '#/115',
+'incherokee' => '#/205',
+'incherokeesup' => '#/272',
+'incherokeesupplement' => '#/272',
+'incjk' => '#/106',
+'incjkcompat' => '#/229',
+'incjkcompatforms' => '#/313',
+'incjkcompatibility' => '#/229',
+'incjkcompatibilityforms' => '#/313',
+'incjkcompatibilityideographs' => '#/352',
+'incjkcompatibilityideographssupplement' => '#/361',
+'incjkcompatideographs' => '#/352',
+'incjkcompatideographssup' => '#/361',
+'incjkexta' => '#/167',
+'incjkextb' => '#/168',
+'incjkextc' => '#/169',
+'incjkextd' => '#/170',
+'incjkexte' => '#/171',
+'incjkradicalssup' => '#/314',
+'incjkradicalssupplement' => '#/314',
+'incjkstrokes' => '#/254',
+'incjksymbols' => '#/255',
+'incjksymbolsandpunctuation' => '#/255',
+'incjkunifiedideographs' => '#/106',
+'incjkunifiedideographsextensiona' => '#/167',
+'incjkunifiedideographsextensionb' => '#/168',
+'incjkunifiedideographsextensionc' => '#/169',
+'incjkunifiedideographsextensiond' => '#/170',
+'incjkunifiedideographsextensione' => '#/171',
+'incombiningdiacriticalmarks' => '#/296',
+'incombiningdiacriticalmarksextended' => '#/322',
+'incombiningdiacriticalmarksforsymbols' => '#/362',
+'incombiningdiacriticalmarkssupplement' => '#/323',
+'incombininghalfmarks' => '#/232',
+'incombiningmarksforsymbols' => '#/362',
+'incommonindicnumberforms' => '#/337',
+'incompatjamo' => '#/256',
+'incontrolpictures' => '#/320',
+'incoptic' => '#/144',
+'incopticepactnumbers' => '#/347',
+'incountingrod' => '#/273',
+'incountingrodnumerals' => '#/273',
+'incuneiform' => '#/230',
+'incuneiformnumbers' => '#/332',
+'incuneiformnumbersandpunctuation' => '#/332',
+'incurrencysymbols' => '#/321',
+'incypriotsyllabary' => '#/333',
+'incyrillic' => '#/206',
+'incyrillicexta' => '#/294',
+'incyrillicextb' => '#/295',
+'incyrillicextendeda' => '#/294',
+'incyrillicextendedb' => '#/295',
+'incyrillicsup' => '#/274',
+'incyrillicsupplement' => '#/274',
+'incyrillicsupplementary' => '#/274',
+'indeseret' => '#/172',
+'indevanagari' => '#/257',
+'indevanagariext' => '#/306',
+'indevanagariextended' => '#/306',
+'indiacriticals' => '#/296',
+'indiacriticalsext' => '#/322',
+'indiacriticalsforsymbols' => '#/362',
+'indiacriticalssup' => '#/323',
+'indicnumberforms' => '#/337',
+'indingbats' => '#/207',
+'indomino' => '#/145',
+'indominotiles' => '#/145',
+'induployan' => '#/208',
+'inearlydynasticcuneiform' => '#/363',
+'inegyptianhieroglyphs' => '#/353',
+'inelbasan' => '#/173',
+'inemoticons' => '#/231',
+'inenclosedalphanum' => '#/334',
+'inenclosedalphanumerics' => '#/334',
+'inenclosedalphanumericsupplement' => '#/354',
+'inenclosedalphanumsup' => '#/354',
+'inenclosedcjk' => '#/275',
+'inenclosedcjklettersandmonths' => '#/275',
+'inenclosedideographicsup' => '#/364',
+'inenclosedideographicsupplement' => '#/364',
+'inethiopic' => '#/209',
+'inethiopicext' => '#/276',
+'inethiopicexta' => '#/297',
+'inethiopicextended' => '#/276',
+'inethiopicextendeda' => '#/297',
+'inethiopicsup' => '#/277',
+'inethiopicsupplement' => '#/277',
+'ingeneralpunctuation' => '#/287',
+'ingeometricshapes' => '#/324',
+'ingeometricshapesext' => '#/348',
+'ingeometricshapesextended' => '#/348',
+'ingeorgian' => '#/210',
+'ingeorgiansup' => '#/278',
+'ingeorgiansupplement' => '#/278',
+'inglagolitic' => '#/258',
+'ingothic' => '#/146',
+'ingrantha' => '#/174',
+'ingreek' => '#/128',
+'ingreekandcoptic' => '#/128',
+'ingreekext' => '#/211',
+'ingreekextended' => '#/211',
+'ingujarati' => '#/212',
+'ingurmukhi' => '#/213',
+'inhalfandfullforms' => '#/335',
+'inhalfmarks' => '#/232',
+'inhalfwidthandfullwidthforms' => '#/335',
+'inhangul' => '#/147',
+'inhangulcompatibilityjamo' => '#/256',
+'inhanguljamo' => '#/116',
+'inhanguljamoextendeda' => '#/215',
+'inhanguljamoextendedb' => '#/216',
+'inhangulsyllables' => '#/147',
+'inhanunoo' => '#/175',
+'inhatran' => '#/148',
+'inhebrew' => '#/149',
+'inherited' => 'Sc/Zinh',
+'inhighprivateusesurrogates' => '#/336',
+'inhighpusurrogates' => '#/336',
+'inhighsurrogates' => '#/315',
+'inhiragana' => '#/214',
+'inidc' => '#/107',
+'inideographicdescriptioncharacters' => '#/107',
+'inimperialaramaic' => '#/325',
+'inindicnumberforms' => '#/337',
+'ininscriptionalpahlavi' => '#/358',
+'ininscriptionalparthian' => '#/359',
+'inipaext' => '#/150',
+'inipaextensions' => '#/150',
+'initialpunctuation' => 'Gc/Pi',
+'injamo' => '#/116',
+'injamoexta' => '#/215',
+'injamoextb' => '#/216',
+'injavanese' => '#/217',
+'inkaithi' => '#/151',
+'inkanasup' => '#/176',
+'inkanasupplement' => '#/176',
+'inkanbun' => '#/152',
+'inkangxi' => '#/153',
+'inkangxiradicals' => '#/153',
+'inkannada' => '#/177',
+'inkatakana' => '#/218',
+'inkatakanaext' => '#/279',
+'inkatakanaphoneticextensions' => '#/279',
+'inkayahli' => '#/178',
+'inkharoshthi' => '#/259',
+'inkhmer' => '#/129',
+'inkhmersymbols' => '#/298',
+'inkhojki' => '#/154',
+'inkhudawadi' => '#/233',
+'inlao' => '#/108',
+'inlatin1' => '#/155',
+'inlatin1sup' => '#/155',
+'inlatin1supplement' => '#/155',
+'inlatinexta' => '#/234',
+'inlatinextadditional' => '#/349',
+'inlatinextb' => '#/235',
+'inlatinextc' => '#/236',
+'inlatinextd' => '#/237',
+'inlatinexte' => '#/238',
+'inlatinextendeda' => '#/234',
+'inlatinextendedadditional' => '#/349',
+'inlatinextendedb' => '#/235',
+'inlatinextendedc' => '#/236',
+'inlatinextendedd' => '#/237',
+'inlatinextendede' => '#/238',
+'inlepcha' => '#/156',
+'inletterlikesymbols' => '#/345',
+'inlimbu' => '#/130',
+'inlineara' => '#/179',
+'inlinearbideograms' => '#/338',
+'inlinearbsyllabary' => '#/339',
+'inlisu' => '#/117',
+'inlowsurrogates' => '#/307',
+'inlycian' => '#/157',
+'inlydian' => '#/158',
+'inmahajani' => '#/219',
+'inmahjong' => '#/180',
+'inmahjongtiles' => '#/180',
+'inmalayalam' => '#/239',
+'inmandaic' => '#/181',
+'inmanichaean' => '#/260',
+'inmathalphanum' => '#/299',
+'inmathematicalalphanumericsymbols' => '#/299',
+'inmathematicaloperators' => '#/308',
+'inmathoperators' => '#/308',
+'inmeeteimayek' => '#/280',
+'inmeeteimayekext' => '#/316',
+'inmeeteimayekextensions' => '#/316',
+'inmendekikakui' => '#/300',
+'inmeroiticcursive' => '#/326',
+'inmeroitichieroglyphs' => '#/355',
+'inmiao' => '#/118',
+'inmiscarrows' => '#/261',
+'inmiscellaneousmathematicalsymbolsa' => '#/340',
+'inmiscellaneousmathematicalsymbolsb' => '#/341',
+'inmiscellaneoussymbols' => '#/281',
+'inmiscellaneoussymbolsandarrows' => '#/261',
+'inmiscellaneoussymbolsandpictographs' => '#/327',
+'inmiscellaneoustechnical' => '#/309',
+'inmiscmathsymbolsa' => '#/340',
+'inmiscmathsymbolsb' => '#/341',
+'inmiscpictographs' => '#/327',
+'inmiscsymbols' => '#/281',
+'inmisctechnical' => '#/309',
+'inmodi' => '#/119',
+'inmodifierletters' => '#/328',
+'inmodifiertoneletters' => '#/356',
+'inmongolian' => '#/240',
+'inmro' => '#/109',
+'inmultani' => '#/182',
+'inmusic' => '#/131',
+'inmusicalsymbols' => '#/131',
+'inmyanmar' => '#/183',
+'inmyanmarexta' => '#/282',
+'inmyanmarextb' => '#/283',
+'inmyanmarextendeda' => '#/282',
+'inmyanmarextendedb' => '#/283',
+'innabataean' => '#/241',
+'innb' => 'Blk/NB',
+'innewtailue' => '#/242',
+'innko' => '#/110',
+'innoblock' => 'Blk/NB',
+'innumberforms' => '#/284',
+'inocr' => '#/111',
+'inogham' => '#/132',
+'inolchiki' => '#/184',
+'inoldhungarian' => '#/301',
+'inolditalic' => '#/243',
+'inoldnortharabian' => '#/329',
+'inoldpermic' => '#/244',
+'inoldpersian' => '#/262',
+'inoldsoutharabian' => '#/330',
+'inoldturkic' => '#/245',
+'inopticalcharacterrecognition' => '#/111',
+'inoriya' => '#/133',
+'inornamentaldingbats' => '#/350',
+'inosmanya' => '#/185',
+'inpahawhhmong' => '#/285',
+'inpalmyrene' => '#/246',
+'inpaucinhau' => '#/247',
+'inpc=bottom' => 'InPC/Bottom',
+'inpc=bottomandright' => '#/69',
+'inpc=left' => 'InPC/Left',
+'inpc=leftandright' => 'InPC/LeftAndR',
+'inpc=na' => 'InPC/NA',
+'inpc=overstruck' => 'InPC/Overstru',
+'inpc=right' => 'InPC/Right',
+'inpc=top' => 'InPC/Top',
+'inpc=topandbottom' => 'InPC/TopAndBo',
+'inpc=topandbottomandright' => '#/70',
+'inpc=topandleft' => 'InPC/TopAndLe',
+'inpc=topandleftandright' => 'InPC/TopAndL2',
+'inpc=topandright' => 'InPC/TopAndRi',
+'inpc=visualorderleft' => 'InPC/VisualOr',
+'inphagspa' => '#/186',
+'inphaistos' => '#/220',
+'inphaistosdisc' => '#/220',
+'inphoenician' => '#/263',
+'inphoneticext' => '#/286',
+'inphoneticextensions' => '#/286',
+'inphoneticextensionssupplement' => '#/317',
+'inphoneticextsup' => '#/317',
+'inplayingcards' => '#/302',
+'inprivateuse' => '#/112',
+'inprivateusearea' => '#/112',
+'inpsalterpahlavi' => '#/318',
+'inpua' => '#/112',
+'inpunctuation' => '#/287',
+'inrejang' => '#/159',
+'inrumi' => '#/120',
+'inruminumeralsymbols' => '#/120',
+'inrunic' => '#/134',
+'insamaritan' => '#/248',
+'insaurashtra' => '#/264',
+'insc=avagraha' => 'InSC/Avagraha',
+'insc=bindu' => 'InSC/Bindu',
+'insc=brahmijoiningnumber' => '#/81',
+'insc=cantillationmark' => 'InSC/Cantilla',
+'insc=consonant' => 'InSC/Consonan',
+'insc=consonantdead' => '#/75',
+'insc=consonantfinal' => 'InSC/Consona2',
+'insc=consonantheadletter' => '#/82',
+'insc=consonantkiller' => '#/77',
+'insc=consonantmedial' => 'InSC/Consona3',
+'insc=consonantplaceholder' => 'InSC/Consona5',
+'insc=consonantprecedingrepha' => '#/84',
+'insc=consonantprefixed' => '#/80',
+'insc=consonantsubjoined' => 'InSC/Consona4',
+'insc=consonantsucceedingrepha' => 'InSC/Consona6',
+'insc=consonantwithstacker' => '#/83',
+'insc=geminationmark' => '#/76',
+'insc=invisiblestacker' => 'InSC/Invisibl',
+'insc=joiner' => '#/71',
+'insc=modifyingletter' => '#/78',
+'insc=nonjoiner' => '#/72',
+'insc=nukta' => 'InSC/Nukta',
+'insc=number' => 'InSC/Number',
+'insc=numberjoiner' => '#/74',
+'insc=other' => 'InSC/Other',
+'insc=purekiller' => 'InSC/PureKill',
+'insc=registershifter' => '#/79',
+'insc=syllablemodifier' => 'InSC/Syllable',
+'insc=toneletter' => '#/73',
+'insc=tonemark' => 'InSC/ToneMark',
+'insc=virama' => 'InSC/Virama',
+'insc=visarga' => 'InSC/Visarga',
+'insc=vowel' => 'InSC/Vowel',
+'insc=voweldependent' => 'InSC/VowelDep',
+'insc=vowelindependent' => 'InSC/VowelInd',
+'inscriptionalpahlavi' => '#/592',
+'inscriptionalparthian' => '#/595',
+'insharada' => '#/187',
+'inshavian' => '#/188',
+'inshorthandformatcontrols' => '#/365',
+'insiddham' => '#/189',
+'insinhala' => '#/190',
+'insinhalaarchaicnumbers' => '#/360',
+'insmallforms' => '#/265',
+'insmallformvariants' => '#/265',
+'insorasompeng' => '#/288',
+'inspacingmodifierletters' => '#/328',
+'inspecials' => '#/221',
+'insundanese' => '#/249',
+'insundanesesup' => '#/303',
+'insundanesesupplement' => '#/303',
+'insuparrowsa' => '#/266',
+'insuparrowsb' => '#/267',
+'insuparrowsc' => '#/268',
+'insuperandsub' => '#/289',
+'insuperscriptsandsubscripts' => '#/289',
+'insupmathoperators' => '#/342',
+'insupplementalarrowsa' => '#/266',
+'insupplementalarrowsb' => '#/267',
+'insupplementalarrowsc' => '#/268',
+'insupplementalmathematicaloperators' => '#/342',
+'insupplementalpunctuation' => '#/319',
+'insupplementalsymbolsandpictographs' => '#/366',
+'insupplementaryprivateuseareaa' => '#/191',
+'insupplementaryprivateuseareab' => '#/192',
+'insuppuaa' => '#/191',
+'insuppuab' => '#/192',
+'insuppunctuation' => '#/319',
+'insupsymbolsandpictographs' => '#/366',
+'insuttonsignwriting' => '#/346',
+'insylotinagri' => '#/290',
+'insyriac' => '#/160',
+'intagalog' => '#/193',
+'intagbanwa' => '#/222',
+'intags' => '#/121',
+'intaile' => '#/135',
+'intaitham' => '#/194',
+'intaiviet' => '#/195',
+'intaixuanjing' => '#/291',
+'intaixuanjingsymbols' => '#/291',
+'intakri' => '#/136',
+'intamil' => '#/137',
+'intelugu' => '#/161',
+'inthaana' => '#/162',
+'inthai' => '#/122',
+'intibetan' => '#/196',
+'intifinagh' => '#/223',
+'intirhuta' => '#/197',
+'intransportandmap' => '#/331',
+'intransportandmapsymbols' => '#/331',
+'inucas' => '#/123',
+'inucasext' => '#/198',
+'inugaritic' => '#/224',
+'inunifiedcanadianaboriginalsyllabics' => '#/123',
+'inunifiedcanadianaboriginalsyllabicsextended' => '#/198',
+'invai' => '#/113',
+'invariationselectors' => '#/105',
+'invariationselectorssupplement' => '#/138',
+'invedicext' => '#/225',
+'invedicextensions' => '#/225',
+'inverticalforms' => '#/310',
+'invs' => '#/105',
+'invssup' => '#/138',
+'inwarangciti' => '#/269',
+'inyijing' => '#/163',
+'inyijinghexagramsymbols' => '#/163',
+'inyiradicals' => '#/270',
+'inyisyllables' => '#/292',
+'ipaext' => '#/150',
+'ipaextensions' => '#/150',
+'isaegeannumbers' => '#/304',
+'isaghb' => '#/542',
+'isahex' => '#/60',
+'isahom' => '#/543',
+'isalchemical' => '#/250',
+'isalchemicalsymbols' => '#/250',
+'isall' => '#/1',
+'isalnum' => 'Perl/Alnum',
+'isalpha' => 'Alpha/Y',
+'isalphabetic' => 'Alpha/Y',
+'isalphabeticpf' => '#/293',
+'isalphabeticpresentationforms' => '#/293',
+'isanatolianhieroglyphs' => '#/565',
+'isancientgreekmusic' => '#/343',
+'isancientgreekmusicalnotation' => '#/343',
+'isancientgreeknumbers' => '#/351',
+'isancientsymbols' => '#/311',
+'isany' => '#/2',
+'isarab' => 'Sc/Arab',
+'isarabic' => 'Sc/Arab',
+'isarabicexta' => '#/251',
+'isarabicextendeda' => '#/251',
+'isarabicmath' => '#/252',
+'isarabicmathematicalalphabeticsymbols' => '#/252',
+'isarabicpfa' => '#/226',
+'isarabicpfb' => '#/227',
+'isarabicpresentationformsa' => '#/226',
+'isarabicpresentationformsb' => '#/227',
+'isarabicsup' => '#/228',
+'isarabicsupplement' => '#/228',
+'isarmenian' => 'Sc/Armn',
+'isarmi' => '#/544',
+'isarmn' => 'Sc/Armn',
+'isarrows' => '#/140',
+'isascii' => '#/124',
+'isasciihexdigit' => '#/60',
+'isassigned' => 'Perl/Assigned',
+'isavestan' => '#/545',
+'isavst' => '#/545',
+'isbali' => '#/546',
+'isbalinese' => '#/546',
+'isbamu' => '#/547',
+'isbamum' => '#/547',
+'isbamumsup' => '#/201',
+'isbamumsupplement' => '#/201',
+'isbasiclatin' => '#/124',
+'isbass' => '#/548',
+'isbassavah' => '#/548',
+'isbatak' => '#/549',
+'isbatk' => '#/549',
+'isbeng' => 'Sc/Beng',
+'isbengali' => 'Sc/Beng',
+'isbidic' => 'BidiC/Y',
+'isbidicontrol' => 'BidiC/Y',
+'isbidim' => 'BidiM/Y',
+'isbidimirrored' => 'BidiM/Y',
+'isblank' => 'Perl/Blank',
+'isblockelements' => '#/305',
+'isbopo' => '#/550',
+'isbopomofo' => '#/550',
+'isbopomofoext' => '#/271',
+'isbopomofoextended' => '#/271',
+'isboxdrawing' => '#/253',
+'isbrah' => '#/551',
+'isbrahmi' => '#/551',
+'isbrai' => '#/166',
+'isbraille' => '#/166',
+'isbraillepatterns' => '#/166',
+'isbugi' => '#/552',
+'isbuginese' => '#/552',
+'isbuhd' => '#/553',
+'isbuhid' => '#/553',
+'isbyzantinemusic' => '#/312',
+'isbyzantinemusicalsymbols' => '#/312',
+'isc' => 'Gc/C',
+'iscakm' => '#/554',
+'iscanadianaboriginal' => '#/555',
+'iscanadiansyllabics' => '#/123',
+'iscans' => '#/555',
+'iscari' => '#/556',
+'iscarian' => '#/556',
+'iscased' => 'Cased/Y',
+'iscasedletter' => 'Gc/LC',
+'iscaseignorable' => 'CI/Y',
+'iscaucasianalbanian' => '#/542',
+'iscc' => '#/370',
+'isce' => 'CE/Y',
+'iscf' => 'Gc/Cf',
+'ischakma' => '#/554',
+'ischam' => 'Sc/Cham',
+'ischangeswhencasefolded' => 'CWCF/Y',
+'ischangeswhencasemapped' => 'CWCM/Y',
+'ischangeswhenlowercased' => 'CWL/Y',
+'ischangeswhennfkccasefolded' => 'CWKCF/Y',
+'ischangeswhentitlecased' => 'CWT/Y',
+'ischangeswhenuppercased' => 'CWU/Y',
+'ischer' => '#/557',
+'ischerokee' => '#/557',
+'ischerokeesup' => '#/272',
+'ischerokeesupplement' => '#/272',
+'isci' => 'CI/Y',
+'iscjk' => '#/106',
+'iscjkcompat' => '#/229',
+'iscjkcompatforms' => '#/313',
+'iscjkcompatibility' => '#/229',
+'iscjkcompatibilityforms' => '#/313',
+'iscjkcompatibilityideographs' => '#/352',
+'iscjkcompatibilityideographssupplement' => '#/361',
+'iscjkcompatideographs' => '#/352',
+'iscjkcompatideographssup' => '#/361',
+'iscjkexta' => '#/167',
+'iscjkextb' => '#/168',
+'iscjkextc' => '#/169',
+'iscjkextd' => '#/170',
+'iscjkexte' => '#/171',
+'iscjkradicalssup' => '#/314',
+'iscjkradicalssupplement' => '#/314',
+'iscjkstrokes' => '#/254',
+'iscjksymbols' => '#/255',
+'iscjksymbolsandpunctuation' => '#/255',
+'iscjkunifiedideographs' => '#/106',
+'iscjkunifiedideographsextensiona' => '#/167',
+'iscjkunifiedideographsextensionb' => '#/168',
+'iscjkunifiedideographsextensionc' => '#/169',
+'iscjkunifiedideographsextensiond' => '#/170',
+'iscjkunifiedideographsextensione' => '#/171',
+'isclosepunctuation' => 'Gc/Pe',
+'iscn' => 'Gc/Cn',
+'iscntrl' => '#/370',
+'isco' => '#/371',
+'iscombiningdiacriticalmarks' => '#/296',
+'iscombiningdiacriticalmarksextended' => '#/322',
+'iscombiningdiacriticalmarksforsymbols' => '#/362',
+'iscombiningdiacriticalmarkssupplement' => '#/323',
+'iscombininghalfmarks' => '#/232',
+'iscombiningmark' => 'Gc/M',
+'iscombiningmarksforsymbols' => '#/362',
+'iscommon' => 'Sc/Zyyy',
+'iscommonindicnumberforms' => '#/337',
+'iscompatjamo' => '#/256',
+'iscompex' => 'CompEx/Y',
+'iscompositionexclusion' => 'CE/Y',
+'isconnectorpunctuation' => 'WB/EX',
+'iscontrol' => '#/370',
+'iscontrolpictures' => '#/320',
+'iscopt' => '#/558',
+'iscoptic' => '#/558',
+'iscopticepactnumbers' => '#/347',
+'iscountingrod' => '#/273',
+'iscountingrodnumerals' => '#/273',
+'iscprt' => 'Sc/Cprt',
+'iscs' => '#/14',
+'iscuneiform' => 'Sc/Xsux',
+'iscuneiformnumbers' => '#/332',
+'iscuneiformnumbersandpunctuation' => '#/332',
+'iscurrencysymbol' => 'Gc/Sc',
+'iscurrencysymbols' => '#/321',
+'iscwcf' => 'CWCF/Y',
+'iscwcm' => 'CWCM/Y',
+'iscwkcf' => 'CWKCF/Y',
+'iscwl' => 'CWL/Y',
+'iscwt' => 'CWT/Y',
+'iscwu' => 'CWU/Y',
+'iscypriot' => 'Sc/Cprt',
+'iscypriotsyllabary' => '#/333',
+'iscyrillic' => 'Sc/Cyrl',
+'iscyrillicexta' => '#/294',
+'iscyrillicextb' => '#/295',
+'iscyrillicextendeda' => '#/294',
+'iscyrillicextendedb' => '#/295',
+'iscyrillicsup' => '#/274',
+'iscyrillicsupplement' => '#/274',
+'iscyrillicsupplementary' => '#/274',
+'iscyrl' => 'Sc/Cyrl',
+'isdash' => 'Dash/Y',
+'isdashpunctuation' => 'Gc/Pd',
+'isdecimalnumber' => 'Gc/Nd',
+'isdefaultignorablecodepoint' => 'DI/Y',
+'isdep' => 'Dep/Y',
+'isdeprecated' => 'Dep/Y',
+'isdeseret' => '#/172',
+'isdeva' => 'Sc/Deva',
+'isdevanagari' => 'Sc/Deva',
+'isdevanagariext' => '#/306',
+'isdevanagariextended' => '#/306',
+'isdi' => 'DI/Y',
+'isdia' => 'Dia/Y',
+'isdiacritic' => 'Dia/Y',
+'isdiacriticals' => '#/296',
+'isdiacriticalsext' => '#/322',
+'isdiacriticalsforsymbols' => '#/362',
+'isdiacriticalssup' => '#/323',
+'isdigit' => 'Gc/Nd',
+'isdingbats' => '#/207',
+'isdomino' => '#/145',
+'isdominotiles' => '#/145',
+'isdsrt' => '#/172',
+'isdupl' => 'Sc/Dupl',
+'isduployan' => 'Sc/Dupl',
+'isearlydynasticcuneiform' => '#/363',
+'isegyp' => '#/559',
+'isegyptianhieroglyphs' => '#/559',
+'iselba' => '#/560',
+'iselbasan' => '#/560',
+'isemoticons' => '#/231',
+'isenclosedalphanum' => '#/334',
+'isenclosedalphanumerics' => '#/334',
+'isenclosedalphanumericsupplement' => '#/354',
+'isenclosedalphanumsup' => '#/354',
+'isenclosedcjk' => '#/275',
+'isenclosedcjklettersandmonths' => '#/275',
+'isenclosedideographicsup' => '#/364',
+'isenclosedideographicsupplement' => '#/364',
+'isenclosingmark' => 'Gc/Me',
+'isethi' => 'Sc/Ethi',
+'isethiopic' => 'Sc/Ethi',
+'isethiopicext' => '#/276',
+'isethiopicexta' => '#/297',
+'isethiopicextended' => '#/276',
+'isethiopicextendeda' => '#/297',
+'isethiopicsup' => '#/277',
+'isethiopicsupplement' => '#/277',
+'isext' => 'Ext/Y',
+'isextender' => 'Ext/Y',
+'isfinalpunctuation' => 'Gc/Pf',
+'isformat' => 'Gc/Cf',
+'isfullcompositionexclusion' => 'CompEx/Y',
+'isgeneralpunctuation' => '#/287',
+'isgeometricshapes' => '#/324',
+'isgeometricshapesext' => '#/348',
+'isgeometricshapesextended' => '#/348',
+'isgeor' => 'Sc/Geor',
+'isgeorgian' => 'Sc/Geor',
+'isgeorgiansup' => '#/278',
+'isgeorgiansupplement' => '#/278',
+'isglag' => '#/561',
+'isglagolitic' => '#/561',
+'isgoth' => '#/562',
+'isgothic' => '#/562',
+'isgran' => 'Sc/Gran',
+'isgrantha' => 'Sc/Gran',
+'isgraph' => 'Perl/Graph',
+'isgraphemebase' => 'GrBase/Y',
+'isgraphemeextend' => 'GCB/EX',
+'isgrbase' => 'GrBase/Y',
+'isgreek' => 'Sc/Grek',
+'isgreekandcoptic' => '#/128',
+'isgreekext' => '#/211',
+'isgreekextended' => '#/211',
+'isgrek' => 'Sc/Grek',
+'isgrext' => 'GCB/EX',
+'isgujarati' => 'Sc/Gujr',
+'isgujr' => 'Sc/Gujr',
+'isgurmukhi' => 'Sc/Guru',
+'isguru' => 'Sc/Guru',
+'ishalfandfullforms' => '#/335',
+'ishalfmarks' => '#/232',
+'ishalfwidthandfullwidthforms' => '#/335',
+'ishan' => 'Sc/Han',
+'ishang' => 'Sc/Hang',
+'ishangul' => 'Sc/Hang',
+'ishangulcompatibilityjamo' => '#/256',
+'ishanguljamo' => '#/116',
+'ishanguljamoextendeda' => '#/215',
+'ishanguljamoextendedb' => '#/216',
+'ishangulsyllables' => '#/147',
+'ishani' => 'Sc/Han',
+'ishano' => '#/563',
+'ishanunoo' => '#/563',
+'ishatr' => '#/564',
+'ishatran' => '#/564',
+'ishebr' => 'Sc/Hebr',
+'ishebrew' => 'Sc/Hebr',
+'ishex' => 'Hex/Y',
+'ishexdigit' => 'Hex/Y',
+'ishighprivateusesurrogates' => '#/336',
+'ishighpusurrogates' => '#/336',
+'ishighsurrogates' => '#/315',
+'ishira' => 'Sc/Hira',
+'ishiragana' => 'Sc/Hira',
+'ishluw' => '#/565',
+'ishmng' => 'Sc/Hmng',
+'ishorizspace' => 'Perl/Blank',
+'ishung' => '#/566',
+'ishyphen' => 'Hyphen/T',
+'isidc' => 'IDC/Y',
+'isidcontinue' => 'IDC/Y',
+'isideo' => 'Ideo/Y',
+'isideographic' => 'Ideo/Y',
+'isideographicdescriptioncharacters' => '#/107',
+'isids' => 'IDS/Y',
+'isidsb' => '#/67',
+'isidsbinaryoperator' => '#/67',
+'isidst' => '#/68',
+'isidstart' => 'IDS/Y',
+'isidstrinaryoperator' => '#/68',
+'isimperialaramaic' => '#/544',
+'isindicnumberforms' => '#/337',
+'isinherited' => 'Sc/Zinh',
+'isinitialpunctuation' => 'Gc/Pi',
+'isinscriptionalpahlavi' => '#/592',
+'isinscriptionalparthian' => '#/595',
+'isipaext' => '#/150',
+'isipaextensions' => '#/150',
+'isital' => '#/567',
+'isjamo' => '#/116',
+'isjamoexta' => '#/215',
+'isjamoextb' => '#/216',
+'isjava' => '#/568',
+'isjavanese' => '#/568',
+'isjoinc' => '#/85',
+'isjoincontrol' => '#/85',
+'iskaithi' => '#/571',
+'iskali' => '#/569',
+'iskana' => 'Sc/Kana',
+'iskanasup' => '#/176',
+'iskanasupplement' => '#/176',
+'iskanbun' => '#/152',
+'iskangxi' => '#/153',
+'iskangxiradicals' => '#/153',
+'iskannada' => 'Sc/Knda',
+'iskatakana' => 'Sc/Kana',
+'iskatakanaext' => '#/279',
+'iskatakanaphoneticextensions' => '#/279',
+'iskayahli' => '#/569',
+'iskhar' => 'Sc/Khar',
+'iskharoshthi' => 'Sc/Khar',
+'iskhmer' => 'Sc/Khmr',
+'iskhmersymbols' => '#/298',
+'iskhmr' => 'Sc/Khmr',
+'iskhoj' => '#/570',
+'iskhojki' => '#/570',
+'iskhudawadi' => '#/603',
+'isknda' => 'Sc/Knda',
+'iskthi' => '#/571',
+'isl' => 'Gc/L',
+'isl&' => 'Gc/LC',
+'isl_' => 'Gc/LC',
+'islana' => 'Sc/Lana',
+'islao' => 'Sc/Lao',
+'islaoo' => 'Sc/Lao',
+'islatin' => 'Sc/Latn',
+'islatin1' => '#/155',
+'islatin1sup' => '#/155',
+'islatin1supplement' => '#/155',
+'islatinexta' => '#/234',
+'islatinextadditional' => '#/349',
+'islatinextb' => '#/235',
+'islatinextc' => '#/236',
+'islatinextd' => '#/237',
+'islatinexte' => '#/238',
+'islatinextendeda' => '#/234',
+'islatinextendedadditional' => '#/349',
+'islatinextendedb' => '#/235',
+'islatinextendedc' => '#/236',
+'islatinextendedd' => '#/237',
+'islatinextendede' => '#/238',
+'islatn' => 'Sc/Latn',
+'islc' => 'Gc/LC',
+'islepc' => '#/572',
+'islepcha' => '#/572',
+'isletter' => 'Gc/L',
+'isletterlikesymbols' => '#/345',
+'isletternumber' => 'Gc/Nl',
+'islimb' => 'Sc/Limb',
+'islimbu' => 'Sc/Limb',
+'islina' => '#/573',
+'islinb' => 'Sc/Linb',
+'islineara' => '#/573',
+'islinearb' => 'Sc/Linb',
+'islinearbideograms' => '#/338',
+'islinearbsyllabary' => '#/339',
+'islineseparator' => '#/372',
+'islisu' => '#/117',
+'isll' => 'Gc/Ll',
+'islm' => 'Gc/Lm',
+'islo' => 'Gc/Lo',
+'isloe' => 'InPC/VisualOr',
+'islogicalorderexception' => 'InPC/VisualOr',
+'islower' => 'Lower/Y',
+'islowercase' => 'Lower/Y',
+'islowercaseletter' => 'Gc/Ll',
+'islowsurrogates' => '#/307',
+'islt' => 'Perl/Title',
+'islu' => 'Gc/Lu',
+'islyci' => '#/574',
+'islycian' => '#/574',
+'islydi' => '#/575',
+'islydian' => '#/575',
+'ism' => 'Gc/M',
+'ismahajani' => '#/576',
+'ismahj' => '#/576',
+'ismahjong' => '#/180',
+'ismahjongtiles' => '#/180',
+'ismalayalam' => 'Sc/Mlym',
+'ismand' => '#/577',
+'ismandaic' => '#/577',
+'ismani' => '#/578',
+'ismanichaean' => '#/578',
+'ismark' => 'Gc/M',
+'ismath' => 'Math/Y',
+'ismathalphanum' => '#/299',
+'ismathematicalalphanumericsymbols' => '#/299',
+'ismathematicaloperators' => '#/308',
+'ismathoperators' => '#/308',
+'ismathsymbol' => 'Gc/Sm',
+'ismc' => 'Gc/Mc',
+'isme' => 'Gc/Me',
+'ismeeteimayek' => '#/583',
+'ismeeteimayekext' => '#/316',
+'ismeeteimayekextensions' => '#/316',
+'ismend' => '#/579',
+'ismendekikakui' => '#/579',
+'ismerc' => '#/580',
+'ismero' => '#/355',
+'ismeroiticcursive' => '#/580',
+'ismeroitichieroglyphs' => '#/355',
+'ismiao' => '#/581',
+'ismiscarrows' => '#/261',
+'ismiscellaneousmathematicalsymbolsa' => '#/340',
+'ismiscellaneousmathematicalsymbolsb' => '#/341',
+'ismiscellaneoussymbols' => '#/281',
+'ismiscellaneoussymbolsandarrows' => '#/261',
+'ismiscellaneoussymbolsandpictographs' => '#/327',
+'ismiscellaneoustechnical' => '#/309',
+'ismiscmathsymbolsa' => '#/340',
+'ismiscmathsymbolsb' => '#/341',
+'ismiscpictographs' => '#/327',
+'ismiscsymbols' => '#/281',
+'ismisctechnical' => '#/309',
+'ismlym' => 'Sc/Mlym',
+'ismn' => 'Gc/Mn',
+'ismodi' => '#/582',
+'ismodifierletter' => 'Gc/Lm',
+'ismodifierletters' => '#/328',
+'ismodifiersymbol' => 'Gc/Sk',
+'ismodifiertoneletters' => '#/356',
+'ismong' => 'Sc/Mong',
+'ismongolian' => 'Sc/Mong',
+'ismro' => '#/539',
+'ismroo' => '#/539',
+'ismtei' => '#/583',
+'ismult' => 'Sc/Mult',
+'ismultani' => 'Sc/Mult',
+'ismusic' => '#/131',
+'ismusicalsymbols' => '#/131',
+'ismyanmar' => '#/584',
+'ismyanmarexta' => '#/282',
+'ismyanmarextb' => '#/283',
+'ismyanmarextendeda' => '#/282',
+'ismyanmarextendedb' => '#/283',
+'ismymr' => '#/584',
+'isn' => 'Gc/N',
+'isnabataean' => '#/585',
+'isnarb' => '#/329',
+'isnb' => 'Blk/NB',
+'isnbat' => '#/585',
+'isnchar' => 'Perl/_PerlNch',
+'isnd' => 'Gc/Nd',
+'isnewtailue' => 'Sc/Talu',
+'isnko' => '#/540',
+'isnkoo' => '#/540',
+'isnl' => 'Gc/Nl',
+'isno' => 'Gc/No',
+'isnoblock' => 'Blk/NB',
+'isnoncharactercodepoint' => 'Perl/_PerlNch',
+'isnonspacingmark' => 'Gc/Mn',
+'isnumber' => 'Gc/N',
+'isnumberforms' => '#/284',
+'isocr' => '#/111',
+'isogam' => '#/586',
+'isogham' => '#/586',
+'isolchiki' => '#/184',
+'isolck' => '#/184',
+'isoldhungarian' => '#/566',
+'isolditalic' => '#/567',
+'isoldnortharabian' => '#/329',
+'isoldpermic' => '#/590',
+'isoldpersian' => '#/619',
+'isoldsoutharabian' => '#/330',
+'isoldturkic' => '#/587',
+'isopenpunctuation' => 'Gc/Ps',
+'isopticalcharacterrecognition' => '#/111',
+'isoriya' => 'Sc/Orya',
+'isorkh' => '#/587',
+'isornamentaldingbats' => '#/350',
+'isorya' => 'Sc/Orya',
+'isosma' => '#/588',
+'isosmanya' => '#/588',
+'isother' => 'Gc/C',
+'isotherletter' => 'Gc/Lo',
+'isothernumber' => 'Gc/No',
+'isotherpunctuation' => 'Gc/Po',
+'isothersymbol' => 'Gc/So',
+'isp' => 'Gc/P',
+'ispahawhhmong' => 'Sc/Hmng',
+'ispalm' => '#/246',
+'ispalmyrene' => '#/246',
+'isparagraphseparator' => '#/373',
+'ispatsyn' => 'PatSyn/Y',
+'ispatternsyntax' => 'PatSyn/Y',
+'ispatternwhitespace' => 'Perl/_PerlPat',
+'ispatws' => 'Perl/_PerlPat',
+'ispauc' => '#/589',
+'ispaucinhau' => '#/589',
+'ispc' => 'WB/EX',
+'ispd' => 'Gc/Pd',
+'ispe' => 'Gc/Pe',
+'isperlspace' => '#/3',
+'isperlword' => 'Perl/PerlWord',
+'isperm' => '#/590',
+'ispf' => 'Gc/Pf',
+'isphag' => '#/591',
+'isphagspa' => '#/591',
+'isphaistos' => '#/220',
+'isphaistosdisc' => '#/220',
+'isphli' => '#/592',
+'isphlp' => '#/593',
+'isphnx' => '#/594',
+'isphoenician' => '#/594',
+'isphoneticext' => '#/286',
+'isphoneticextensions' => '#/286',
+'isphoneticextensionssupplement' => '#/317',
+'isphoneticextsup' => '#/317',
+'ispi' => 'Gc/Pi',
+'isplayingcards' => '#/302',
+'isplrd' => '#/581',
+'ispo' => 'Gc/Po',
+'isposixalnum' => '#/5',
+'isposixalpha' => '#/6',
+'isposixblank' => '#/7',
+'isposixcntrl' => '#/8',
+'isposixdigit' => '#/9',
+'isposixgraph' => '#/10',
+'isposixlower' => '#/11',
+'isposixprint' => '#/12',
+'isposixpunct' => 'Perl/PosixPun',
+'isposixspace' => '#/3',
+'isposixupper' => '#/13',
+'isposixword' => 'Perl/PerlWord',
+'isposixxdigit' => '#/60',
+'isprint' => 'Perl/Print',
+'isprivateuse' => '#/371',
+'isprivateusearea' => '#/112',
+'isprti' => '#/595',
+'isps' => 'Gc/Ps',
+'ispsalterpahlavi' => '#/593',
+'ispua' => '#/112',
+'ispunct' => 'Gc/P',
+'ispunctuation' => 'Gc/P',
+'isqaac' => '#/558',
+'isqaai' => 'Sc/Zinh',
+'isqmark' => 'QMark/Y',
+'isquotationmark' => 'QMark/Y',
+'isradical' => '#/86',
+'isrejang' => '#/596',
+'isrjng' => '#/596',
+'isrumi' => '#/120',
+'isruminumeralsymbols' => '#/120',
+'isrunic' => '#/597',
+'isrunr' => '#/597',
+'iss' => 'Gc/S',
+'issamaritan' => '#/598',
+'issamr' => '#/598',
+'issarb' => '#/330',
+'issaur' => '#/599',
+'issaurashtra' => '#/599',
+'issc' => 'Gc/Sc',
+'issd' => 'SD/Y',
+'isseparator' => 'Gc/Z',
+'issgnw' => '#/600',
+'issharada' => '#/601',
+'isshavian' => '#/188',
+'isshaw' => '#/188',
+'isshorthandformatcontrols' => '#/365',
+'isshrd' => '#/601',
+'issidd' => '#/602',
+'issiddham' => '#/602',
+'issignwriting' => '#/600',
+'issind' => '#/603',
+'issinh' => 'Sc/Sinh',
+'issinhala' => 'Sc/Sinh',
+'issinhalaarchaicnumbers' => '#/360',
+'issk' => 'Gc/Sk',
+'issm' => 'Gc/Sm',
+'issmallforms' => '#/265',
+'issmallformvariants' => '#/265',
+'isso' => 'Gc/So',
+'issoftdotted' => 'SD/Y',
+'issora' => '#/604',
+'issorasompeng' => '#/604',
+'isspace' => 'Perl/SpacePer',
+'isspaceperl' => 'Perl/SpacePer',
+'isspaceseparator' => 'Gc/Zs',
+'isspacingmark' => 'Gc/Mc',
+'isspacingmodifierletters' => '#/328',
+'isspecials' => '#/221',
+'issterm' => 'STerm/Y',
+'issund' => '#/605',
+'issundanese' => '#/605',
+'issundanesesup' => '#/303',
+'issundanesesupplement' => '#/303',
+'issuparrowsa' => '#/266',
+'issuparrowsb' => '#/267',
+'issuparrowsc' => '#/268',
+'issuperandsub' => '#/289',
+'issuperscriptsandsubscripts' => '#/289',
+'issupmathoperators' => '#/342',
+'issupplementalarrowsa' => '#/266',
+'issupplementalarrowsb' => '#/267',
+'issupplementalarrowsc' => '#/268',
+'issupplementalmathematicaloperators' => '#/342',
+'issupplementalpunctuation' => '#/319',
+'issupplementalsymbolsandpictographs' => '#/366',
+'issupplementaryprivateuseareaa' => '#/191',
+'issupplementaryprivateuseareab' => '#/192',
+'issuppuaa' => '#/191',
+'issuppuab' => '#/192',
+'issuppunctuation' => '#/319',
+'issupsymbolsandpictographs' => '#/366',
+'issurrogate' => '#/14',
+'issuttonsignwriting' => '#/346',
+'issylo' => '#/606',
+'issylotinagri' => '#/606',
+'issymbol' => 'Gc/S',
+'issyrc' => '#/607',
+'issyriac' => '#/607',
+'istagalog' => '#/613',
+'istagb' => '#/608',
+'istagbanwa' => '#/608',
+'istags' => '#/121',
+'istaile' => '#/610',
+'istaitham' => 'Sc/Lana',
+'istaiviet' => '#/611',
+'istaixuanjing' => '#/291',
+'istaixuanjingsymbols' => '#/291',
+'istakr' => '#/609',
+'istakri' => '#/609',
+'istale' => '#/610',
+'istalu' => 'Sc/Talu',
+'istamil' => 'Sc/Taml',
+'istaml' => 'Sc/Taml',
+'istavt' => '#/611',
+'istelu' => 'Sc/Telu',
+'istelugu' => 'Sc/Telu',
+'isterm' => 'Term/Y',
+'isterminalpunctuation' => 'Term/Y',
+'istfng' => '#/612',
+'istglg' => '#/613',
+'isthaa' => '#/614',
+'isthaana' => '#/614',
+'isthai' => '#/615',
+'istibetan' => 'Sc/Tibt',
+'istibt' => 'Sc/Tibt',
+'istifinagh' => '#/612',
+'istirh' => '#/616',
+'istirhuta' => '#/616',
+'istitle' => 'Perl/Title',
+'istitlecase' => 'Perl/Title',
+'istitlecaseletter' => 'Perl/Title',
+'istransportandmap' => '#/331',
+'istransportandmapsymbols' => '#/331',
+'isucas' => '#/123',
+'isucasext' => '#/198',
+'isugar' => '#/617',
+'isugaritic' => '#/617',
+'isuideo' => 'UIdeo/Y',
+'isunassigned' => 'Gc/Cn',
+'isunicode' => '#/2',
+'isunifiedcanadianaboriginalsyllabics' => '#/123',
+'isunifiedcanadianaboriginalsyllabicsextended' => '#/198',
+'isunifiedideograph' => 'UIdeo/Y',
+'isunknown' => 'Sc/Zzzz',
+'isupper' => 'Upper/Y',
+'isuppercase' => 'Upper/Y',
+'isuppercaseletter' => 'Gc/Lu',
+'isvai' => '#/541',
+'isvaii' => '#/541',
+'isvariationselector' => '#/88',
+'isvariationselectors' => '#/105',
+'isvariationselectorssupplement' => '#/138',
+'isvedicext' => '#/225',
+'isvedicextensions' => '#/225',
+'isverticalforms' => '#/310',
+'isvertspace' => '#/4',
+'isvs' => '#/88',
+'isvssup' => '#/138',
+'iswara' => '#/618',
+'iswarangciti' => '#/618',
+'iswhitespace' => 'Perl/SpacePer',
+'isword' => 'Perl/Word',
+'iswspace' => 'Perl/SpacePer',
+'isxdigit' => 'Hex/Y',
+'isxidc' => 'XIDC/Y',
+'isxidcontinue' => 'XIDC/Y',
+'isxids' => 'XIDS/Y',
+'isxidstart' => 'XIDS/Y',
+'isxpeo' => '#/619',
+'isxperlspace' => 'Perl/SpacePer',
+'isxposixalnum' => 'Perl/Alnum',
+'isxposixalpha' => 'Alpha/Y',
+'isxposixblank' => 'Perl/Blank',
+'isxposixcntrl' => '#/370',
+'isxposixdigit' => 'Gc/Nd',
+'isxposixgraph' => 'Perl/Graph',
+'isxposixlower' => 'Lower/Y',
+'isxposixprint' => 'Perl/Print',
+'isxposixpunct' => 'Perl/XPosixPu',
+'isxposixspace' => 'Perl/SpacePer',
+'isxposixupper' => 'Upper/Y',
+'isxposixword' => 'Perl/Word',
+'isxposixxdigit' => 'Hex/Y',
+'isxsux' => 'Sc/Xsux',
+'isyi' => '#/538',
+'isyiii' => '#/538',
+'isyijing' => '#/163',
+'isyijinghexagramsymbols' => '#/163',
+'isyiradicals' => '#/270',
+'isyisyllables' => '#/292',
+'isz' => 'Gc/Z',
+'iszinh' => 'Sc/Zinh',
+'iszl' => '#/372',
+'iszp' => '#/373',
+'iszs' => 'Gc/Zs',
+'iszyyy' => 'Sc/Zyyy',
+'iszzzz' => 'Sc/Zzzz',
+'ital' => '#/567',
+'jamo' => '#/116',
+'jamoexta' => '#/215',
+'jamoextb' => '#/216',
+'java' => '#/568',
+'javanese' => '#/568',
+'jg=ain' => 'Jg/Ain',
+'jg=alaph' => '#/394',
+'jg=alef' => 'Jg/Alef',
+'jg=beh' => 'Jg/Beh',
+'jg=beth' => '#/384',
+'jg=burushaskiyehbarree' => '#/442',
+'jg=dal' => 'Jg/Dal',
+'jg=dalathrish' => '#/406',
+'jg=e' => '#/374',
+'jg=farsiyeh' => 'Jg/FarsiYeh',
+'jg=fe' => '#/375',
+'jg=feh' => 'Jg/Feh',
+'jg=finalsemkath' => '#/413',
+'jg=gaf' => 'Jg/Gaf',
+'jg=gamal' => '#/395',
+'jg=hah' => 'Jg/Hah',
+'jg=hamzaonhehgoal' => '#/421',
+'jg=he' => '#/376',
+'jg=heh' => '#/378',
+'jg=hehgoal' => '#/401',
+'jg=heth' => '#/385',
+'jg=kaf' => 'Jg/Kaf',
+'jg=kaph' => '#/386',
+'jg=khaph' => '#/396',
+'jg=knottedheh' => '#/407',
+'jg=lam' => 'Jg/Lam',
+'jg=lamadh' => '#/399',
+'jg=manichaeanaleph' => '#/431',
+'jg=manichaeanayin' => '#/422',
+'jg=manichaeanbeth' => '#/423',
+'jg=manichaeandaleth' => '#/435',
+'jg=manichaeandhamedh' => '#/439',
+'jg=manichaeanfive' => '#/424',
+'jg=manichaeangimel' => '#/432',
+'jg=manichaeanheth' => '#/425',
+'jg=manichaeanhundred' => '#/440',
+'jg=manichaeankaph' => '#/426',
+'jg=manichaeanlamedh' => '#/436',
+'jg=manichaeanmem' => '#/415',
+'jg=manichaeannun' => '#/416',
+'jg=manichaeanone' => '#/417',
+'jg=manichaeanpe' => '#/414',
+'jg=manichaeanqoph' => '#/427',
+'jg=manichaeanresh' => '#/428',
+'jg=manichaeansadhe' => '#/433',
+'jg=manichaeansamekh' => '#/437',
+'jg=manichaeantaw' => '#/418',
+'jg=manichaeanten' => '#/419',
+'jg=manichaeanteth' => '#/429',
+'jg=manichaeanthamedh' => '#/441',
+'jg=manichaeantwenty' => '#/438',
+'jg=manichaeanwaw' => '#/420',
+'jg=manichaeanyodh' => '#/430',
+'jg=manichaeanzayin' => '#/434',
+'jg=meem' => '#/387',
+'jg=mim' => '#/379',
+'jg=nojoininggroup' => 'Jg/NoJoinin',
+'jg=noon' => '#/388',
+'jg=nun' => '#/380',
+'jg=nya' => '#/381',
+'jg=pe' => '#/377',
+'jg=qaf' => 'Jg/Qaf',
+'jg=qaph' => '#/389',
+'jg=reh' => 'Jg/Reh',
+'jg=reversedpe' => '#/408',
+'jg=rohingyayeh' => '#/410',
+'jg=sad' => 'Jg/Sad',
+'jg=sadhe' => '#/397',
+'jg=seen' => 'Jg/Seen',
+'jg=semkath' => '#/402',
+'jg=shin' => '#/390',
+'jg=straightwaw' => '#/411',
+'jg=swashkaf' => '#/403',
+'jg=syriacwaw' => '#/404',
+'jg=tah' => '#/382',
+'jg=taw' => '#/383',
+'jg=tehmarbuta' => '#/409',
+'jg=tehmarbutagoal' => '#/421',
+'jg=teth' => '#/391',
+'jg=waw' => 'Jg/Waw',
+'jg=yeh' => 'Jg/Yeh',
+'jg=yehbarree' => '#/405',
+'jg=yehwithtail' => '#/412',
+'jg=yudh' => '#/392',
+'jg=yudhhe' => '#/400',
+'jg=zain' => '#/393',
+'jg=zhain' => '#/398',
+'joinc' => '#/85',
+'joinc=f' => '#/!85',
+'joinc=false' => '#/!85',
+'joinc=n' => '#/!85',
+'joinc=no' => '#/!85',
+'joinc=t' => '#/85',
+'joinc=true' => '#/85',
+'joinc=y' => '#/85',
+'joinc=yes' => '#/85',
+'joincontrol' => '#/85',
+'jt=c' => 'Jt/C',
+'jt=d' => 'Jt/D',
+'jt=dualjoining' => 'Jt/D',
+'jt=joincausing' => 'Jt/C',
+'jt=l' => '#/443',
+'jt=leftjoining' => '#/443',
+'jt=nonjoining' => 'Jt/U',
+'jt=r' => 'Jt/R',
+'jt=rightjoining' => 'Jt/R',
+'jt=t' => 'Jt/T',
+'jt=transparent' => 'Jt/T',
+'jt=u' => 'Jt/U',
+'kaithi' => '#/571',
+'kali' => '#/569',
+'kana' => 'Sc/Kana',
+'kanasup' => '#/176',
+'kanasupplement' => '#/176',
+'kanbun' => '#/152',
+'kangxi' => '#/153',
+'kangxiradicals' => '#/153',
+'kannada' => 'Sc/Knda',
+'katakana' => 'Sc/Kana',
+'katakanaext' => '#/279',
+'katakanaphoneticextensions' => '#/279',
+'kayahli' => '#/569',
+'khar' => 'Sc/Khar',
+'kharoshthi' => 'Sc/Khar',
+'khmer' => 'Sc/Khmr',
+'khmersymbols' => '#/298',
+'khmr' => 'Sc/Khmr',
+'khoj' => '#/570',
+'khojki' => '#/570',
+'khudawadi' => '#/603',
+'knda' => 'Sc/Knda',
+'kthi' => '#/571',
+'l' => 'Gc/L',
+'l&' => 'Gc/LC',
+'l_' => 'Gc/LC',
+'lana' => 'Sc/Lana',
+'lao' => 'Sc/Lao',
+'laoo' => 'Sc/Lao',
+'latin' => 'Sc/Latn',
+'latin1' => '#/155',
+'latin1sup' => '#/155',
+'latin1supplement' => '#/155',
+'latinexta' => '#/234',
+'latinextadditional' => '#/349',
+'latinextb' => '#/235',
+'latinextc' => '#/236',
+'latinextd' => '#/237',
+'latinexte' => '#/238',
+'latinextendeda' => '#/234',
+'latinextendedadditional' => '#/349',
+'latinextendedb' => '#/235',
+'latinextendedc' => '#/236',
+'latinextendedd' => '#/237',
+'latinextendede' => '#/238',
+'latn' => 'Sc/Latn',
+'lb=ai' => 'Lb/AI',
+'lb=al' => 'Lb/AL',
+'lb=alphabetic' => 'Lb/AL',
+'lb=ambiguous' => 'Lb/AI',
+'lb=b2' => '#/444',
+'lb=ba' => 'Lb/BA',
+'lb=bb' => 'Lb/BB',
+'lb=bk' => '#/445',
+'lb=breakafter' => 'Lb/BA',
+'lb=breakbefore' => 'Lb/BB',
+'lb=breakboth' => '#/444',
+'lb=breaksymbols' => '#/452',
+'lb=carriagereturn' => '#/64',
+'lb=cb' => '#/446',
+'lb=cj' => 'Lb/CJ',
+'lb=cl' => 'Lb/CL',
+'lb=closeparenthesis' => '#/447',
+'lb=closepunctuation' => 'Lb/CL',
+'lb=cm' => 'Lb/CM',
+'lb=combiningmark' => 'Lb/CM',
+'lb=complexcontext' => 'Lb/SA',
+'lb=conditionaljapanesestarter' => 'Lb/CJ',
+'lb=contingentbreak' => '#/446',
+'lb=cp' => '#/447',
+'lb=cr' => '#/64',
+'lb=ex' => 'Lb/EX',
+'lb=exclamation' => 'Lb/EX',
+'lb=gl' => 'Lb/GL',
+'lb=glue' => 'Lb/GL',
+'lb=h2' => 'GCB/LV',
+'lb=h3' => 'GCB/LVT',
+'lb=hebrewletter' => 'WB/HL',
+'lb=hl' => 'WB/HL',
+'lb=hy' => '#/448',
+'lb=hyphen' => '#/448',
+'lb=id' => 'Lb/ID',
+'lb=ideographic' => 'Lb/ID',
+'lb=in' => 'Lb/IN',
+'lb=infixnumeric' => 'Lb/IS',
+'lb=inseparable' => 'Lb/IN',
+'lb=inseperable' => 'Lb/IN',
+'lb=is' => 'Lb/IS',
+'lb=jl' => '#/61',
+'lb=jt' => '#/62',
+'lb=jv' => '#/63',
+'lb=lf' => '#/65',
+'lb=linefeed' => '#/65',
+'lb=mandatorybreak' => '#/445',
+'lb=nextline' => '#/449',
+'lb=nl' => '#/449',
+'lb=nonstarter' => 'Lb/NS',
+'lb=ns' => 'Lb/NS',
+'lb=nu' => 'SB/NU',
+'lb=numeric' => 'SB/NU',
+'lb=op' => 'Lb/OP',
+'lb=openpunctuation' => 'Lb/OP',
+'lb=po' => 'Lb/PO',
+'lb=postfixnumeric' => 'Lb/PO',
+'lb=pr' => 'Lb/PR',
+'lb=prefixnumeric' => 'Lb/PR',
+'lb=qu' => 'Lb/QU',
+'lb=quotation' => 'Lb/QU',
+'lb=regionalindicator' => '#/66',
+'lb=ri' => '#/66',
+'lb=sa' => 'Lb/SA',
+'lb=sg' => '#/450',
+'lb=sp' => '#/451',
+'lb=space' => '#/451',
+'lb=surrogate' => '#/450',
+'lb=sy' => '#/452',
+'lb=unknown' => 'Lb/XX',
+'lb=wj' => '#/453',
+'lb=wordjoiner' => '#/453',
+'lb=xx' => 'Lb/XX',
+'lb=zw' => '#/454',
+'lb=zwspace' => '#/454',
+'lc' => 'Gc/LC',
+'lepc' => '#/572',
+'lepcha' => '#/572',
+'letter' => 'Gc/L',
+'letterlikesymbols' => '#/345',
+'letternumber' => 'Gc/Nl',
+'limb' => 'Sc/Limb',
+'limbu' => 'Sc/Limb',
+'lina' => '#/573',
+'linb' => 'Sc/Linb',
+'lineara' => '#/573',
+'linearb' => 'Sc/Linb',
+'linearbideograms' => '#/338',
+'linearbsyllabary' => '#/339',
+'lineseparator' => '#/372',
+'lisu' => '#/117',
+'ll' => 'Gc/Ll',
+'lm' => 'Gc/Lm',
+'lo' => 'Gc/Lo',
+'loe' => 'InPC/VisualOr',
+'loe=f' => '!InPC/VisualOr',
+'loe=false' => '!InPC/VisualOr',
+'loe=n' => '!InPC/VisualOr',
+'loe=no' => '!InPC/VisualOr',
+'loe=t' => 'InPC/VisualOr',
+'loe=true' => 'InPC/VisualOr',
+'loe=y' => 'InPC/VisualOr',
+'loe=yes' => 'InPC/VisualOr',
+'logicalorderexception' => 'InPC/VisualOr',
+'lower' => 'Lower/Y',
+'lower=f' => '!Lower/Y',
+'lower=false' => '!Lower/Y',
+'lower=n' => '!Lower/Y',
+'lower=no' => '!Lower/Y',
+'lower=t' => 'Lower/Y',
+'lower=true' => 'Lower/Y',
+'lower=y' => 'Lower/Y',
+'lower=yes' => 'Lower/Y',
+'lowercase' => 'Lower/Y',
+'lowercaseletter' => 'Gc/Ll',
+'lowsurrogates' => '#/307',
+'lt' => 'Perl/Title',
+'lu' => 'Gc/Lu',
+'lyci' => '#/574',
+'lycian' => '#/574',
+'lydi' => '#/575',
+'lydian' => '#/575',
+'m' => 'Gc/M',
+'mahajani' => '#/576',
+'mahj' => '#/576',
+'mahjong' => '#/180',
+'mahjongtiles' => '#/180',
+'malayalam' => 'Sc/Mlym',
+'mand' => '#/577',
+'mandaic' => '#/577',
+'mani' => '#/578',
+'manichaean' => '#/578',
+'mark' => 'Gc/M',
+'math' => 'Math/Y',
+'math=f' => '!Math/Y',
+'math=false' => '!Math/Y',
+'math=n' => '!Math/Y',
+'math=no' => '!Math/Y',
+'math=t' => 'Math/Y',
+'math=true' => 'Math/Y',
+'math=y' => 'Math/Y',
+'math=yes' => 'Math/Y',
+'mathalphanum' => '#/299',
+'mathematicalalphanumericsymbols' => '#/299',
+'mathematicaloperators' => '#/308',
+'mathoperators' => '#/308',
+'mathsymbol' => 'Gc/Sm',
+'mc' => 'Gc/Mc',
+'me' => 'Gc/Me',
+'meeteimayek' => '#/583',
+'meeteimayekext' => '#/316',
+'meeteimayekextensions' => '#/316',
+'mend' => '#/579',
+'mendekikakui' => '#/579',
+'merc' => '#/580',
+'mero' => '#/355',
+'meroiticcursive' => '#/580',
+'meroitichieroglyphs' => '#/355',
+'miao' => '#/581',
+'miscarrows' => '#/261',
+'miscellaneousmathematicalsymbolsa' => '#/340',
+'miscellaneousmathematicalsymbolsb' => '#/341',
+'miscellaneoussymbols' => '#/281',
+'miscellaneoussymbolsandarrows' => '#/261',
+'miscellaneoussymbolsandpictographs' => '#/327',
+'miscellaneoustechnical' => '#/309',
+'miscmathsymbolsa' => '#/340',
+'miscmathsymbolsb' => '#/341',
+'miscpictographs' => '#/327',
+'miscsymbols' => '#/281',
+'misctechnical' => '#/309',
+'mlym' => 'Sc/Mlym',
+'mn' => 'Gc/Mn',
+'modi' => '#/582',
+'modifierletter' => 'Gc/Lm',
+'modifierletters' => '#/328',
+'modifiersymbol' => 'Gc/Sk',
+'modifiertoneletters' => '#/356',
+'mong' => 'Sc/Mong',
+'mongolian' => 'Sc/Mong',
+'mro' => '#/539',
+'mroo' => '#/539',
+'mtei' => '#/583',
+'mult' => 'Sc/Mult',
+'multani' => 'Sc/Mult',
+'music' => '#/131',
+'musicalsymbols' => '#/131',
+'myanmar' => '#/584',
+'myanmarexta' => '#/282',
+'myanmarextb' => '#/283',
+'myanmarextendeda' => '#/282',
+'myanmarextendedb' => '#/283',
+'mymr' => '#/584',
+'n' => 'Gc/N',
+'nabataean' => '#/585',
+'narb' => '#/329',
+'nb' => 'Blk/NB',
+'nbat' => '#/585',
+'nchar' => 'Perl/_PerlNch',
+'nchar=f' => '!Perl/_PerlNch',
+'nchar=false' => '!Perl/_PerlNch',
+'nchar=n' => '!Perl/_PerlNch',
+'nchar=no' => '!Perl/_PerlNch',
+'nchar=t' => 'Perl/_PerlNch',
+'nchar=true' => 'Perl/_PerlNch',
+'nchar=y' => 'Perl/_PerlNch',
+'nchar=yes' => 'Perl/_PerlNch',
+'nd' => 'Gc/Nd',
+'newtailue' => 'Sc/Talu',
+'nfcqc=m' => 'NFCQC/M',
+'nfcqc=maybe' => 'NFCQC/M',
+'nfcqc=n' => 'CompEx/Y',
+'nfcqc=no' => 'CompEx/Y',
+'nfcqc=y' => 'NFCQC/Y',
+'nfcqc=yes' => 'NFCQC/Y',
+'nfdqc=n' => 'NFDQC/N',
+'nfdqc=no' => 'NFDQC/N',
+'nfdqc=y' => 'NFDQC/Y',
+'nfdqc=yes' => 'NFDQC/Y',
+'nfkcqc=m' => 'NFCQC/M',
+'nfkcqc=maybe' => 'NFCQC/M',
+'nfkcqc=n' => 'NFKCQC/N',
+'nfkcqc=no' => 'NFKCQC/N',
+'nfkcqc=y' => 'NFKCQC/Y',
+'nfkcqc=yes' => 'NFKCQC/Y',
+'nfkdqc=n' => 'NFKDQC/N',
+'nfkdqc=no' => 'NFKDQC/N',
+'nfkdqc=y' => 'NFKDQC/Y',
+'nfkdqc=yes' => 'NFKDQC/Y',
+'nko' => '#/540',
+'nkoo' => '#/540',
+'nl' => 'Gc/Nl',
+'no' => 'Gc/No',
+'noblock' => 'Blk/NB',
+'noncharactercodepoint' => 'Perl/_PerlNch',
+'nonspacingmark' => 'Gc/Mn',
+'nt=de' => 'Gc/Nd',
+'nt=decimal' => 'Gc/Nd',
+'nt=di' => 'Nt/Di',
+'nt=digit' => 'Nt/Di',
+'nt=none' => 'Nt/None',
+'nt=nu' => 'Nt/Nu',
+'nt=numeric' => 'Nt/Nu',
+'number' => 'Gc/N',
+'numberforms' => '#/284',
+'nv=nan' => 'Nt/None',
+'ocr' => '#/111',
+'ogam' => '#/586',
+'ogham' => '#/586',
+'olchiki' => '#/184',
+'olck' => '#/184',
+'oldhungarian' => '#/566',
+'olditalic' => '#/567',
+'oldnortharabian' => '#/329',
+'oldpermic' => '#/590',
+'oldpersian' => '#/619',
+'oldsoutharabian' => '#/330',
+'oldturkic' => '#/587',
+'openpunctuation' => 'Gc/Ps',
+'opticalcharacterrecognition' => '#/111',
+'oriya' => 'Sc/Orya',
+'orkh' => '#/587',
+'ornamentaldingbats' => '#/350',
+'orya' => 'Sc/Orya',
+'osma' => '#/588',
+'osmanya' => '#/588',
+'other' => 'Gc/C',
+'otherletter' => 'Gc/Lo',
+'othernumber' => 'Gc/No',
+'otherpunctuation' => 'Gc/Po',
+'othersymbol' => 'Gc/So',
+'p' => 'Gc/P',
+'pahawhhmong' => 'Sc/Hmng',
+'palm' => '#/246',
+'palmyrene' => '#/246',
+'paragraphseparator' => '#/373',
+'patsyn' => 'PatSyn/Y',
+'patsyn=f' => '!PatSyn/Y',
+'patsyn=false' => '!PatSyn/Y',
+'patsyn=n' => '!PatSyn/Y',
+'patsyn=no' => '!PatSyn/Y',
+'patsyn=t' => 'PatSyn/Y',
+'patsyn=true' => 'PatSyn/Y',
+'patsyn=y' => 'PatSyn/Y',
+'patsyn=yes' => 'PatSyn/Y',
+'patternsyntax' => 'PatSyn/Y',
+'patternwhitespace' => 'Perl/_PerlPat',
+'patws' => 'Perl/_PerlPat',
+'patws=f' => '!Perl/_PerlPat',
+'patws=false' => '!Perl/_PerlPat',
+'patws=n' => '!Perl/_PerlPat',
+'patws=no' => '!Perl/_PerlPat',
+'patws=t' => 'Perl/_PerlPat',
+'patws=true' => 'Perl/_PerlPat',
+'patws=y' => 'Perl/_PerlPat',
+'patws=yes' => 'Perl/_PerlPat',
+'pauc' => '#/589',
+'paucinhau' => '#/589',
+'pc' => 'WB/EX',
+'pd' => 'Gc/Pd',
+'pe' => 'Gc/Pe',
+'perlspace' => '#/3',
+'perlword' => 'Perl/PerlWord',
+'perm' => '#/590',
+'pf' => 'Gc/Pf',
+'phag' => '#/591',
+'phagspa' => '#/591',
+'phaistos' => '#/220',
+'phaistosdisc' => '#/220',
+'phli' => '#/592',
+'phlp' => '#/593',
+'phnx' => '#/594',
+'phoenician' => '#/594',
+'phoneticext' => '#/286',
+'phoneticextensions' => '#/286',
+'phoneticextensionssupplement' => '#/317',
+'phoneticextsup' => '#/317',
+'pi' => 'Gc/Pi',
+'playingcards' => '#/302',
+'plrd' => '#/581',
+'po' => 'Gc/Po',
+'posixalnum' => '#/5',
+'posixalpha' => '#/6',
+'posixblank' => '#/7',
+'posixcntrl' => '#/8',
+'posixdigit' => '#/9',
+'posixgraph' => '#/10',
+'posixlower' => '#/11',
+'posixprint' => '#/12',
+'posixpunct' => 'Perl/PosixPun',
+'posixspace' => '#/3',
+'posixupper' => '#/13',
+'posixword' => 'Perl/PerlWord',
+'posixxdigit' => '#/60',
+'print' => 'Perl/Print',
+'privateuse' => '#/371',
+'privateusearea' => '#/112',
+'prti' => '#/595',
+'ps' => 'Gc/Ps',
+'psalterpahlavi' => '#/593',
+'pua' => '#/112',
+'punct' => 'Gc/P',
+'punctuation' => 'Gc/P',
+'qaac' => '#/558',
+'qaai' => 'Sc/Zinh',
+'qmark' => 'QMark/Y',
+'qmark=f' => '!QMark/Y',
+'qmark=false' => '!QMark/Y',
+'qmark=n' => '!QMark/Y',
+'qmark=no' => '!QMark/Y',
+'qmark=t' => 'QMark/Y',
+'qmark=true' => 'QMark/Y',
+'qmark=y' => 'QMark/Y',
+'qmark=yes' => 'QMark/Y',
+'quotationmark' => 'QMark/Y',
+'radical' => '#/86',
+'radical=f' => '#/!86',
+'radical=false' => '#/!86',
+'radical=n' => '#/!86',
+'radical=no' => '#/!86',
+'radical=t' => '#/86',
+'radical=true' => '#/86',
+'radical=y' => '#/86',
+'radical=yes' => '#/86',
+'rejang' => '#/596',
+'rjng' => '#/596',
+'rumi' => '#/120',
+'ruminumeralsymbols' => '#/120',
+'runic' => '#/597',
+'runr' => '#/597',
+'s' => 'Gc/S',
+'samaritan' => '#/598',
+'samr' => '#/598',
+'sarb' => '#/330',
+'saur' => '#/599',
+'saurashtra' => '#/599',
+'sb=at' => 'SB/AT',
+'sb=aterm' => 'SB/AT',
+'sb=cl' => 'SB/CL',
+'sb=close' => 'SB/CL',
+'sb=cr' => '#/64',
+'sb=ex' => 'SB/EX',
+'sb=extend' => 'SB/EX',
+'sb=fo' => 'SB/FO',
+'sb=format' => 'SB/FO',
+'sb=le' => 'SB/LE',
+'sb=lf' => '#/65',
+'sb=lo' => 'SB/LO',
+'sb=lower' => 'SB/LO',
+'sb=nu' => 'SB/NU',
+'sb=numeric' => 'SB/NU',
+'sb=oletter' => 'SB/LE',
+'sb=other' => 'SB/XX',
+'sb=sc' => 'SB/SC',
+'sb=scontinue' => 'SB/SC',
+'sb=se' => '#/87',
+'sb=sep' => '#/87',
+'sb=sp' => 'SB/Sp',
+'sb=st' => 'SB/ST',
+'sb=sterm' => 'SB/ST',
+'sb=up' => 'SB/UP',
+'sb=upper' => 'SB/UP',
+'sb=xx' => 'SB/XX',
+'sc' => 'Gc/Sc',
+'sc=aghb' => '#/542',
+'sc=ahom' => '#/543',
+'sc=anatolianhieroglyphs' => '#/565',
+'sc=arab' => 'Sc/Arab',
+'sc=arabic' => 'Sc/Arab',
+'sc=armenian' => 'Sc/Armn',
+'sc=armi' => '#/544',
+'sc=armn' => 'Sc/Armn',
+'sc=avestan' => '#/545',
+'sc=avst' => '#/545',
+'sc=bali' => '#/546',
+'sc=balinese' => '#/546',
+'sc=bamu' => '#/547',
+'sc=bamum' => '#/547',
+'sc=bass' => '#/548',
+'sc=bassavah' => '#/548',
+'sc=batak' => '#/549',
+'sc=batk' => '#/549',
+'sc=beng' => 'Sc/Beng',
+'sc=bengali' => 'Sc/Beng',
+'sc=bopo' => '#/550',
+'sc=bopomofo' => '#/550',
+'sc=brah' => '#/551',
+'sc=brahmi' => '#/551',
+'sc=brai' => '#/166',
+'sc=braille' => '#/166',
+'sc=bugi' => '#/552',
+'sc=buginese' => '#/552',
+'sc=buhd' => '#/553',
+'sc=buhid' => '#/553',
+'sc=cakm' => '#/554',
+'sc=canadianaboriginal' => '#/555',
+'sc=cans' => '#/555',
+'sc=cari' => '#/556',
+'sc=carian' => '#/556',
+'sc=caucasianalbanian' => '#/542',
+'sc=chakma' => '#/554',
+'sc=cham' => 'Sc/Cham',
+'sc=cher' => '#/557',
+'sc=cherokee' => '#/557',
+'sc=common' => 'Sc/Zyyy',
+'sc=copt' => '#/558',
+'sc=coptic' => '#/558',
+'sc=cprt' => 'Sc/Cprt',
+'sc=cuneiform' => 'Sc/Xsux',
+'sc=cypriot' => 'Sc/Cprt',
+'sc=cyrillic' => 'Sc/Cyrl',
+'sc=cyrl' => 'Sc/Cyrl',
+'sc=deseret' => '#/172',
+'sc=deva' => 'Sc/Deva',
+'sc=devanagari' => 'Sc/Deva',
+'sc=dsrt' => '#/172',
+'sc=dupl' => 'Sc/Dupl',
+'sc=duployan' => 'Sc/Dupl',
+'sc=egyp' => '#/559',
+'sc=egyptianhieroglyphs' => '#/559',
+'sc=elba' => '#/560',
+'sc=elbasan' => '#/560',
+'sc=ethi' => 'Sc/Ethi',
+'sc=ethiopic' => 'Sc/Ethi',
+'sc=geor' => 'Sc/Geor',
+'sc=georgian' => 'Sc/Geor',
+'sc=glag' => '#/561',
+'sc=glagolitic' => '#/561',
+'sc=goth' => '#/562',
+'sc=gothic' => '#/562',
+'sc=gran' => 'Sc/Gran',
+'sc=grantha' => 'Sc/Gran',
+'sc=greek' => 'Sc/Grek',
+'sc=grek' => 'Sc/Grek',
+'sc=gujarati' => 'Sc/Gujr',
+'sc=gujr' => 'Sc/Gujr',
+'sc=gurmukhi' => 'Sc/Guru',
+'sc=guru' => 'Sc/Guru',
+'sc=han' => 'Sc/Han',
+'sc=hang' => 'Sc/Hang',
+'sc=hangul' => 'Sc/Hang',
+'sc=hani' => 'Sc/Han',
+'sc=hano' => '#/563',
+'sc=hanunoo' => '#/563',
+'sc=hatr' => '#/564',
+'sc=hatran' => '#/564',
+'sc=hebr' => 'Sc/Hebr',
+'sc=hebrew' => 'Sc/Hebr',
+'sc=hira' => 'Sc/Hira',
+'sc=hiragana' => 'Sc/Hira',
+'sc=hluw' => '#/565',
+'sc=hmng' => 'Sc/Hmng',
+'sc=hung' => '#/566',
+'sc=imperialaramaic' => '#/544',
+'sc=inherited' => 'Sc/Zinh',
+'sc=inscriptionalpahlavi' => '#/592',
+'sc=inscriptionalparthian' => '#/595',
+'sc=ital' => '#/567',
+'sc=java' => '#/568',
+'sc=javanese' => '#/568',
+'sc=kaithi' => '#/571',
+'sc=kali' => '#/569',
+'sc=kana' => 'Sc/Kana',
+'sc=kannada' => 'Sc/Knda',
+'sc=katakana' => 'Sc/Kana',
+'sc=kayahli' => '#/569',
+'sc=khar' => 'Sc/Khar',
+'sc=kharoshthi' => 'Sc/Khar',
+'sc=khmer' => 'Sc/Khmr',
+'sc=khmr' => 'Sc/Khmr',
+'sc=khoj' => '#/570',
+'sc=khojki' => '#/570',
+'sc=khudawadi' => '#/603',
+'sc=knda' => 'Sc/Knda',
+'sc=kthi' => '#/571',
+'sc=lana' => 'Sc/Lana',
+'sc=lao' => 'Sc/Lao',
+'sc=laoo' => 'Sc/Lao',
+'sc=latin' => 'Sc/Latn',
+'sc=latn' => 'Sc/Latn',
+'sc=lepc' => '#/572',
+'sc=lepcha' => '#/572',
+'sc=limb' => 'Sc/Limb',
+'sc=limbu' => 'Sc/Limb',
+'sc=lina' => '#/573',
+'sc=linb' => 'Sc/Linb',
+'sc=lineara' => '#/573',
+'sc=linearb' => 'Sc/Linb',
+'sc=lisu' => '#/117',
+'sc=lyci' => '#/574',
+'sc=lycian' => '#/574',
+'sc=lydi' => '#/575',
+'sc=lydian' => '#/575',
+'sc=mahajani' => '#/576',
+'sc=mahj' => '#/576',
+'sc=malayalam' => 'Sc/Mlym',
+'sc=mand' => '#/577',
+'sc=mandaic' => '#/577',
+'sc=mani' => '#/578',
+'sc=manichaean' => '#/578',
+'sc=meeteimayek' => '#/583',
+'sc=mend' => '#/579',
+'sc=mendekikakui' => '#/579',
+'sc=merc' => '#/580',
+'sc=mero' => '#/355',
+'sc=meroiticcursive' => '#/580',
+'sc=meroitichieroglyphs' => '#/355',
+'sc=miao' => '#/581',
+'sc=mlym' => 'Sc/Mlym',
+'sc=modi' => '#/582',
+'sc=mong' => 'Sc/Mong',
+'sc=mongolian' => 'Sc/Mong',
+'sc=mro' => '#/539',
+'sc=mroo' => '#/539',
+'sc=mtei' => '#/583',
+'sc=mult' => 'Sc/Mult',
+'sc=multani' => 'Sc/Mult',
+'sc=myanmar' => '#/584',
+'sc=mymr' => '#/584',
+'sc=nabataean' => '#/585',
+'sc=narb' => '#/329',
+'sc=nbat' => '#/585',
+'sc=newtailue' => 'Sc/Talu',
+'sc=nko' => '#/540',
+'sc=nkoo' => '#/540',
+'sc=ogam' => '#/586',
+'sc=ogham' => '#/586',
+'sc=olchiki' => '#/184',
+'sc=olck' => '#/184',
+'sc=oldhungarian' => '#/566',
+'sc=olditalic' => '#/567',
+'sc=oldnortharabian' => '#/329',
+'sc=oldpermic' => '#/590',
+'sc=oldpersian' => '#/619',
+'sc=oldsoutharabian' => '#/330',
+'sc=oldturkic' => '#/587',
+'sc=oriya' => 'Sc/Orya',
+'sc=orkh' => '#/587',
+'sc=orya' => 'Sc/Orya',
+'sc=osma' => '#/588',
+'sc=osmanya' => '#/588',
+'sc=pahawhhmong' => 'Sc/Hmng',
+'sc=palm' => '#/246',
+'sc=palmyrene' => '#/246',
+'sc=pauc' => '#/589',
+'sc=paucinhau' => '#/589',
+'sc=perm' => '#/590',
+'sc=phag' => '#/591',
+'sc=phagspa' => '#/591',
+'sc=phli' => '#/592',
+'sc=phlp' => '#/593',
+'sc=phnx' => '#/594',
+'sc=phoenician' => '#/594',
+'sc=plrd' => '#/581',
+'sc=prti' => '#/595',
+'sc=psalterpahlavi' => '#/593',
+'sc=qaac' => '#/558',
+'sc=qaai' => 'Sc/Zinh',
+'sc=rejang' => '#/596',
+'sc=rjng' => '#/596',
+'sc=runic' => '#/597',
+'sc=runr' => '#/597',
+'sc=samaritan' => '#/598',
+'sc=samr' => '#/598',
+'sc=sarb' => '#/330',
+'sc=saur' => '#/599',
+'sc=saurashtra' => '#/599',
+'sc=sgnw' => '#/600',
+'sc=sharada' => '#/601',
+'sc=shavian' => '#/188',
+'sc=shaw' => '#/188',
+'sc=shrd' => '#/601',
+'sc=sidd' => '#/602',
+'sc=siddham' => '#/602',
+'sc=signwriting' => '#/600',
+'sc=sind' => '#/603',
+'sc=sinh' => 'Sc/Sinh',
+'sc=sinhala' => 'Sc/Sinh',
+'sc=sora' => '#/604',
+'sc=sorasompeng' => '#/604',
+'sc=sund' => '#/605',
+'sc=sundanese' => '#/605',
+'sc=sylo' => '#/606',
+'sc=sylotinagri' => '#/606',
+'sc=syrc' => '#/607',
+'sc=syriac' => '#/607',
+'sc=tagalog' => '#/613',
+'sc=tagb' => '#/608',
+'sc=tagbanwa' => '#/608',
+'sc=taile' => '#/610',
+'sc=taitham' => 'Sc/Lana',
+'sc=taiviet' => '#/611',
+'sc=takr' => '#/609',
+'sc=takri' => '#/609',
+'sc=tale' => '#/610',
+'sc=talu' => 'Sc/Talu',
+'sc=tamil' => 'Sc/Taml',
+'sc=taml' => 'Sc/Taml',
+'sc=tavt' => '#/611',
+'sc=telu' => 'Sc/Telu',
+'sc=telugu' => 'Sc/Telu',
+'sc=tfng' => '#/612',
+'sc=tglg' => '#/613',
+'sc=thaa' => '#/614',
+'sc=thaana' => '#/614',
+'sc=thai' => '#/615',
+'sc=tibetan' => 'Sc/Tibt',
+'sc=tibt' => 'Sc/Tibt',
+'sc=tifinagh' => '#/612',
+'sc=tirh' => '#/616',
+'sc=tirhuta' => '#/616',
+'sc=ugar' => '#/617',
+'sc=ugaritic' => '#/617',
+'sc=unknown' => 'Sc/Zzzz',
+'sc=vai' => '#/541',
+'sc=vaii' => '#/541',
+'sc=wara' => '#/618',
+'sc=warangciti' => '#/618',
+'sc=xpeo' => '#/619',
+'sc=xsux' => 'Sc/Xsux',
+'sc=yi' => '#/538',
+'sc=yiii' => '#/538',
+'sc=zinh' => 'Sc/Zinh',
+'sc=zyyy' => 'Sc/Zyyy',
+'sc=zzzz' => 'Sc/Zzzz',
+'scx=aghb' => '#/542',
+'scx=ahom' => '#/543',
+'scx=anatolianhieroglyphs' => '#/565',
+'scx=arab' => 'Scx/Arab',
+'scx=arabic' => 'Scx/Arab',
+'scx=armenian' => 'Scx/Armn',
+'scx=armi' => '#/544',
+'scx=armn' => 'Scx/Armn',
+'scx=avestan' => '#/545',
+'scx=avst' => '#/545',
+'scx=bali' => '#/546',
+'scx=balinese' => '#/546',
+'scx=bamu' => '#/547',
+'scx=bamum' => '#/547',
+'scx=bass' => '#/548',
+'scx=bassavah' => '#/548',
+'scx=batak' => '#/549',
+'scx=batk' => '#/549',
+'scx=beng' => 'Scx/Beng',
+'scx=bengali' => 'Scx/Beng',
+'scx=bopo' => 'Scx/Bopo',
+'scx=bopomofo' => 'Scx/Bopo',
+'scx=brah' => '#/551',
+'scx=brahmi' => '#/551',
+'scx=brai' => '#/166',
+'scx=braille' => '#/166',
+'scx=bugi' => '#/620',
+'scx=buginese' => '#/620',
+'scx=buhd' => '#/621',
+'scx=buhid' => '#/621',
+'scx=cakm' => 'Scx/Cakm',
+'scx=canadianaboriginal' => '#/555',
+'scx=cans' => '#/555',
+'scx=cari' => '#/556',
+'scx=carian' => '#/556',
+'scx=caucasianalbanian' => '#/542',
+'scx=chakma' => 'Scx/Cakm',
+'scx=cham' => 'Sc/Cham',
+'scx=cher' => '#/557',
+'scx=cherokee' => '#/557',
+'scx=common' => 'Scx/Zyyy',
+'scx=copt' => 'Scx/Copt',
+'scx=coptic' => 'Scx/Copt',
+'scx=cprt' => 'Scx/Cprt',
+'scx=cuneiform' => 'Sc/Xsux',
+'scx=cypriot' => 'Scx/Cprt',
+'scx=cyrillic' => 'Scx/Cyrl',
+'scx=cyrl' => 'Scx/Cyrl',
+'scx=deseret' => '#/172',
+'scx=deva' => 'Scx/Deva',
+'scx=devanagari' => 'Scx/Deva',
+'scx=dsrt' => '#/172',
+'scx=dupl' => 'Scx/Dupl',
+'scx=duployan' => 'Scx/Dupl',
+'scx=egyp' => '#/559',
+'scx=egyptianhieroglyphs' => '#/559',
+'scx=elba' => '#/560',
+'scx=elbasan' => '#/560',
+'scx=ethi' => 'Sc/Ethi',
+'scx=ethiopic' => 'Sc/Ethi',
+'scx=geor' => 'Scx/Geor',
+'scx=georgian' => 'Scx/Geor',
+'scx=glag' => 'Scx/Glag',
+'scx=glagolitic' => 'Scx/Glag',
+'scx=goth' => '#/562',
+'scx=gothic' => '#/562',
+'scx=gran' => 'Scx/Gran',
+'scx=grantha' => 'Scx/Gran',
+'scx=greek' => 'Scx/Grek',
+'scx=grek' => 'Scx/Grek',
+'scx=gujarati' => 'Scx/Gujr',
+'scx=gujr' => 'Scx/Gujr',
+'scx=gurmukhi' => 'Scx/Guru',
+'scx=guru' => 'Scx/Guru',
+'scx=han' => 'Scx/Han',
+'scx=hang' => 'Scx/Hang',
+'scx=hangul' => 'Scx/Hang',
+'scx=hani' => 'Scx/Han',
+'scx=hano' => '#/622',
+'scx=hanunoo' => '#/622',
+'scx=hatr' => '#/564',
+'scx=hatran' => '#/564',
+'scx=hebr' => 'Sc/Hebr',
+'scx=hebrew' => 'Sc/Hebr',
+'scx=hira' => 'Scx/Hira',
+'scx=hiragana' => 'Scx/Hira',
+'scx=hluw' => '#/565',
+'scx=hmng' => 'Sc/Hmng',
+'scx=hung' => '#/566',
+'scx=imperialaramaic' => '#/544',
+'scx=inherited' => 'Scx/Zinh',
+'scx=inscriptionalpahlavi' => '#/592',
+'scx=inscriptionalparthian' => '#/595',
+'scx=ital' => '#/567',
+'scx=java' => '#/623',
+'scx=javanese' => '#/623',
+'scx=kaithi' => '#/625',
+'scx=kali' => '#/178',
+'scx=kana' => 'Scx/Kana',
+'scx=kannada' => 'Scx/Knda',
+'scx=katakana' => 'Scx/Kana',
+'scx=kayahli' => '#/178',
+'scx=khar' => 'Sc/Khar',
+'scx=kharoshthi' => 'Sc/Khar',
+'scx=khmer' => 'Sc/Khmr',
+'scx=khmr' => 'Sc/Khmr',
+'scx=khoj' => '#/624',
+'scx=khojki' => '#/624',
+'scx=khudawadi' => 'Scx/Sind',
+'scx=knda' => 'Scx/Knda',
+'scx=kthi' => '#/625',
+'scx=lana' => 'Sc/Lana',
+'scx=lao' => 'Sc/Lao',
+'scx=laoo' => 'Sc/Lao',
+'scx=latin' => 'Scx/Latn',
+'scx=latn' => 'Scx/Latn',
+'scx=lepc' => '#/572',
+'scx=lepcha' => '#/572',
+'scx=limb' => 'Scx/Limb',
+'scx=limbu' => 'Scx/Limb',
+'scx=lina' => '#/573',
+'scx=linb' => 'Scx/Linb',
+'scx=lineara' => '#/573',
+'scx=linearb' => 'Scx/Linb',
+'scx=lisu' => '#/117',
+'scx=lyci' => '#/574',
+'scx=lycian' => '#/574',
+'scx=lydi' => '#/575',
+'scx=lydian' => '#/575',
+'scx=mahajani' => '#/626',
+'scx=mahj' => '#/626',
+'scx=malayalam' => 'Scx/Mlym',
+'scx=mand' => '#/627',
+'scx=mandaic' => '#/627',
+'scx=mani' => '#/628',
+'scx=manichaean' => '#/628',
+'scx=meeteimayek' => '#/583',
+'scx=mend' => '#/579',
+'scx=mendekikakui' => '#/579',
+'scx=merc' => '#/580',
+'scx=mero' => '#/355',
+'scx=meroiticcursive' => '#/580',
+'scx=meroitichieroglyphs' => '#/355',
+'scx=miao' => '#/581',
+'scx=mlym' => 'Scx/Mlym',
+'scx=modi' => '#/629',
+'scx=mong' => 'Scx/Mong',
+'scx=mongolian' => 'Scx/Mong',
+'scx=mro' => '#/539',
+'scx=mroo' => '#/539',
+'scx=mtei' => '#/583',
+'scx=mult' => 'Scx/Mult',
+'scx=multani' => 'Scx/Mult',
+'scx=myanmar' => 'Scx/Mymr',
+'scx=mymr' => 'Scx/Mymr',
+'scx=nabataean' => '#/585',
+'scx=narb' => '#/329',
+'scx=nbat' => '#/585',
+'scx=newtailue' => 'Sc/Talu',
+'scx=nko' => '#/540',
+'scx=nkoo' => '#/540',
+'scx=ogam' => '#/586',
+'scx=ogham' => '#/586',
+'scx=olchiki' => '#/184',
+'scx=olck' => '#/184',
+'scx=oldhungarian' => '#/566',
+'scx=olditalic' => '#/567',
+'scx=oldnortharabian' => '#/329',
+'scx=oldpermic' => '#/630',
+'scx=oldpersian' => '#/619',
+'scx=oldsoutharabian' => '#/330',
+'scx=oldturkic' => '#/587',
+'scx=oriya' => 'Scx/Orya',
+'scx=orkh' => '#/587',
+'scx=orya' => 'Scx/Orya',
+'scx=osma' => '#/588',
+'scx=osmanya' => '#/588',
+'scx=pahawhhmong' => 'Sc/Hmng',
+'scx=palm' => '#/246',
+'scx=palmyrene' => '#/246',
+'scx=pauc' => '#/589',
+'scx=paucinhau' => '#/589',
+'scx=perm' => '#/630',
+'scx=phag' => '#/631',
+'scx=phagspa' => '#/631',
+'scx=phli' => '#/592',
+'scx=phlp' => 'Scx/Phlp',
+'scx=phnx' => '#/594',
+'scx=phoenician' => '#/594',
+'scx=plrd' => '#/581',
+'scx=prti' => '#/595',
+'scx=psalterpahlavi' => 'Scx/Phlp',
+'scx=qaac' => 'Scx/Copt',
+'scx=qaai' => 'Scx/Zinh',
+'scx=rejang' => '#/596',
+'scx=rjng' => '#/596',
+'scx=runic' => '#/597',
+'scx=runr' => '#/597',
+'scx=samaritan' => '#/598',
+'scx=samr' => '#/598',
+'scx=sarb' => '#/330',
+'scx=saur' => '#/599',
+'scx=saurashtra' => '#/599',
+'scx=sgnw' => '#/600',
+'scx=sharada' => 'Scx/Shrd',
+'scx=shavian' => '#/188',
+'scx=shaw' => '#/188',
+'scx=shrd' => 'Scx/Shrd',
+'scx=sidd' => '#/602',
+'scx=siddham' => '#/602',
+'scx=signwriting' => '#/600',
+'scx=sind' => 'Scx/Sind',
+'scx=sinh' => 'Scx/Sinh',
+'scx=sinhala' => 'Scx/Sinh',
+'scx=sora' => '#/604',
+'scx=sorasompeng' => '#/604',
+'scx=sund' => '#/605',
+'scx=sundanese' => '#/605',
+'scx=sylo' => '#/632',
+'scx=sylotinagri' => '#/632',
+'scx=syrc' => 'Scx/Syrc',
+'scx=syriac' => 'Scx/Syrc',
+'scx=tagalog' => '#/634',
+'scx=tagb' => 'Scx/Tagb',
+'scx=tagbanwa' => 'Scx/Tagb',
+'scx=taile' => '#/633',
+'scx=taitham' => 'Sc/Lana',
+'scx=taiviet' => '#/611',
+'scx=takr' => 'Scx/Takr',
+'scx=takri' => 'Scx/Takr',
+'scx=tale' => '#/633',
+'scx=talu' => 'Sc/Talu',
+'scx=tamil' => 'Scx/Taml',
+'scx=taml' => 'Scx/Taml',
+'scx=tavt' => '#/611',
+'scx=telu' => 'Scx/Telu',
+'scx=telugu' => 'Scx/Telu',
+'scx=tfng' => '#/612',
+'scx=tglg' => '#/634',
+'scx=thaa' => 'Scx/Thaa',
+'scx=thaana' => 'Scx/Thaa',
+'scx=thai' => '#/615',
+'scx=tibetan' => 'Sc/Tibt',
+'scx=tibt' => 'Sc/Tibt',
+'scx=tifinagh' => '#/612',
+'scx=tirh' => 'Scx/Tirh',
+'scx=tirhuta' => 'Scx/Tirh',
+'scx=ugar' => '#/617',
+'scx=ugaritic' => '#/617',
+'scx=unknown' => 'Sc/Zzzz',
+'scx=vai' => '#/541',
+'scx=vaii' => '#/541',
+'scx=wara' => '#/618',
+'scx=warangciti' => '#/618',
+'scx=xpeo' => '#/619',
+'scx=xsux' => 'Sc/Xsux',
+'scx=yi' => 'Scx/Yi',
+'scx=yiii' => 'Scx/Yi',
+'scx=zinh' => 'Scx/Zinh',
+'scx=zyyy' => 'Scx/Zyyy',
+'scx=zzzz' => 'Sc/Zzzz',
+'sd' => 'SD/Y',
+'sd=f' => '!SD/Y',
+'sd=false' => '!SD/Y',
+'sd=n' => '!SD/Y',
+'sd=no' => '!SD/Y',
+'sd=t' => 'SD/Y',
+'sd=true' => 'SD/Y',
+'sd=y' => 'SD/Y',
+'sd=yes' => 'SD/Y',
+'separator' => 'Gc/Z',
+'sgnw' => '#/600',
+'sharada' => '#/601',
+'shavian' => '#/188',
+'shaw' => '#/188',
+'shorthandformatcontrols' => '#/365',
+'shrd' => '#/601',
+'sidd' => '#/602',
+'siddham' => '#/602',
+'signwriting' => '#/600',
+'sind' => '#/603',
+'sinh' => 'Sc/Sinh',
+'sinhala' => 'Sc/Sinh',
+'sinhalaarchaicnumbers' => '#/360',
+'sk' => 'Gc/Sk',
+'sm' => 'Gc/Sm',
+'smallforms' => '#/265',
+'smallformvariants' => '#/265',
+'so' => 'Gc/So',
+'softdotted' => 'SD/Y',
+'sora' => '#/604',
+'sorasompeng' => '#/604',
+'space' => 'Perl/SpacePer',
+'spaceperl' => 'Perl/SpacePer',
+'spaceseparator' => 'Gc/Zs',
+'spacingmark' => 'Gc/Mc',
+'spacingmodifierletters' => '#/328',
+'specials' => '#/221',
+'sterm' => 'STerm/Y',
+'sterm=f' => '!STerm/Y',
+'sterm=false' => '!STerm/Y',
+'sterm=n' => '!STerm/Y',
+'sterm=no' => '!STerm/Y',
+'sterm=t' => 'STerm/Y',
+'sterm=true' => 'STerm/Y',
+'sterm=y' => 'STerm/Y',
+'sterm=yes' => 'STerm/Y',
+'sund' => '#/605',
+'sundanese' => '#/605',
+'sundanesesup' => '#/303',
+'sundanesesupplement' => '#/303',
+'suparrowsa' => '#/266',
+'suparrowsb' => '#/267',
+'suparrowsc' => '#/268',
+'superandsub' => '#/289',
+'superscriptsandsubscripts' => '#/289',
+'supmathoperators' => '#/342',
+'supplementalarrowsa' => '#/266',
+'supplementalarrowsb' => '#/267',
+'supplementalarrowsc' => '#/268',
+'supplementalmathematicaloperators' => '#/342',
+'supplementalpunctuation' => '#/319',
+'supplementalsymbolsandpictographs' => '#/366',
+'supplementaryprivateuseareaa' => '#/191',
+'supplementaryprivateuseareab' => '#/192',
+'suppuaa' => '#/191',
+'suppuab' => '#/192',
+'suppunctuation' => '#/319',
+'supsymbolsandpictographs' => '#/366',
+'surrogate' => '#/14',
+'suttonsignwriting' => '#/346',
+'sylo' => '#/606',
+'sylotinagri' => '#/606',
+'symbol' => 'Gc/S',
+'syrc' => '#/607',
+'syriac' => '#/607',
+'tagalog' => '#/613',
+'tagb' => '#/608',
+'tagbanwa' => '#/608',
+'tags' => '#/121',
+'taile' => '#/610',
+'taitham' => 'Sc/Lana',
+'taiviet' => '#/611',
+'taixuanjing' => '#/291',
+'taixuanjingsymbols' => '#/291',
+'takr' => '#/609',
+'takri' => '#/609',
+'tale' => '#/610',
+'talu' => 'Sc/Talu',
+'tamil' => 'Sc/Taml',
+'taml' => 'Sc/Taml',
+'tavt' => '#/611',
+'telu' => 'Sc/Telu',
+'telugu' => 'Sc/Telu',
+'term' => 'Term/Y',
+'term=f' => '!Term/Y',
+'term=false' => '!Term/Y',
+'term=n' => '!Term/Y',
+'term=no' => '!Term/Y',
+'term=t' => 'Term/Y',
+'term=true' => 'Term/Y',
+'term=y' => 'Term/Y',
+'term=yes' => 'Term/Y',
+'terminalpunctuation' => 'Term/Y',
+'tfng' => '#/612',
+'tglg' => '#/613',
+'thaa' => '#/614',
+'thaana' => '#/614',
+'thai' => '#/615',
+'tibetan' => 'Sc/Tibt',
+'tibt' => 'Sc/Tibt',
+'tifinagh' => '#/612',
+'tirh' => '#/616',
+'tirhuta' => '#/616',
+'title' => 'Perl/Title',
+'titlecase' => 'Perl/Title',
+'titlecaseletter' => 'Perl/Title',
+'transportandmap' => '#/331',
+'transportandmapsymbols' => '#/331',
+'ucas' => '#/123',
+'ucasext' => '#/198',
+'ugar' => '#/617',
+'ugaritic' => '#/617',
+'uideo' => 'UIdeo/Y',
+'uideo=f' => '!UIdeo/Y',
+'uideo=false' => '!UIdeo/Y',
+'uideo=n' => '!UIdeo/Y',
+'uideo=no' => '!UIdeo/Y',
+'uideo=t' => 'UIdeo/Y',
+'uideo=true' => 'UIdeo/Y',
+'uideo=y' => 'UIdeo/Y',
+'uideo=yes' => 'UIdeo/Y',
+'unassigned' => 'Gc/Cn',
+'unicode' => '#/2',
+'unifiedcanadianaboriginalsyllabics' => '#/123',
+'unifiedcanadianaboriginalsyllabicsextended' => '#/198',
+'unifiedideograph' => 'UIdeo/Y',
+'unknown' => 'Sc/Zzzz',
+'upper' => 'Upper/Y',
+'upper=f' => '!Upper/Y',
+'upper=false' => '!Upper/Y',
+'upper=n' => '!Upper/Y',
+'upper=no' => '!Upper/Y',
+'upper=t' => 'Upper/Y',
+'upper=true' => 'Upper/Y',
+'upper=y' => 'Upper/Y',
+'upper=yes' => 'Upper/Y',
+'uppercase' => 'Upper/Y',
+'uppercaseletter' => 'Gc/Lu',
+'vai' => '#/541',
+'vaii' => '#/541',
+'variationselector' => '#/88',
+'variationselectors' => '#/105',
+'variationselectorssupplement' => '#/138',
+'vedicext' => '#/225',
+'vedicextensions' => '#/225',
+'verticalforms' => '#/310',
+'vertspace' => '#/4',
+'vs' => '#/88',
+'vs=f' => '#/!88',
+'vs=false' => '#/!88',
+'vs=n' => '#/!88',
+'vs=no' => '#/!88',
+'vs=t' => '#/88',
+'vs=true' => '#/88',
+'vs=y' => '#/88',
+'vs=yes' => '#/88',
+'vssup' => '#/138',
+'wara' => '#/618',
+'warangciti' => '#/618',
+'wb=aletter' => 'WB/LE',
+'wb=cr' => '#/64',
+'wb=doublequote' => '#/89',
+'wb=dq' => '#/89',
+'wb=ex' => 'WB/EX',
+'wb=extend' => 'SB/EX',
+'wb=extendnumlet' => 'WB/EX',
+'wb=fo' => 'WB/FO',
+'wb=format' => 'WB/FO',
+'wb=hebrewletter' => 'WB/HL',
+'wb=hl' => 'WB/HL',
+'wb=ka' => 'WB/KA',
+'wb=katakana' => 'WB/KA',
+'wb=le' => 'WB/LE',
+'wb=lf' => '#/65',
+'wb=mb' => 'WB/MB',
+'wb=midletter' => 'WB/ML',
+'wb=midnum' => 'WB/MN',
+'wb=midnumlet' => 'WB/MB',
+'wb=ml' => 'WB/ML',
+'wb=mn' => 'WB/MN',
+'wb=newline' => '#/90',
+'wb=nl' => '#/90',
+'wb=nu' => 'WB/NU',
+'wb=numeric' => 'WB/NU',
+'wb=other' => 'WB/XX',
+'wb=regionalindicator' => '#/66',
+'wb=ri' => '#/66',
+'wb=singlequote' => '#/91',
+'wb=sq' => '#/91',
+'wb=xx' => 'WB/XX',
+'whitespace' => 'Perl/SpacePer',
+'word' => 'Perl/Word',
+'wspace' => 'Perl/SpacePer',
+'wspace=f' => '!Perl/SpacePer',
+'wspace=false' => '!Perl/SpacePer',
+'wspace=n' => '!Perl/SpacePer',
+'wspace=no' => '!Perl/SpacePer',
+'wspace=t' => 'Perl/SpacePer',
+'wspace=true' => 'Perl/SpacePer',
+'wspace=y' => 'Perl/SpacePer',
+'wspace=yes' => 'Perl/SpacePer',
+'xdigit' => 'Hex/Y',
+'xidc' => 'XIDC/Y',
+'xidc=f' => '!XIDC/Y',
+'xidc=false' => '!XIDC/Y',
+'xidc=n' => '!XIDC/Y',
+'xidc=no' => '!XIDC/Y',
+'xidc=t' => 'XIDC/Y',
+'xidc=true' => 'XIDC/Y',
+'xidc=y' => 'XIDC/Y',
+'xidc=yes' => 'XIDC/Y',
+'xidcontinue' => 'XIDC/Y',
+'xids' => 'XIDS/Y',
+'xids=f' => '!XIDS/Y',
+'xids=false' => '!XIDS/Y',
+'xids=n' => '!XIDS/Y',
+'xids=no' => '!XIDS/Y',
+'xids=t' => 'XIDS/Y',
+'xids=true' => 'XIDS/Y',
+'xids=y' => 'XIDS/Y',
+'xids=yes' => 'XIDS/Y',
+'xidstart' => 'XIDS/Y',
+'xpeo' => '#/619',
+'xperlspace' => 'Perl/SpacePer',
+'xposixalnum' => 'Perl/Alnum',
+'xposixalpha' => 'Alpha/Y',
+'xposixblank' => 'Perl/Blank',
+'xposixcntrl' => '#/370',
+'xposixdigit' => 'Gc/Nd',
+'xposixgraph' => 'Perl/Graph',
+'xposixlower' => 'Lower/Y',
+'xposixprint' => 'Perl/Print',
+'xposixpunct' => 'Perl/XPosixPu',
+'xposixspace' => 'Perl/SpacePer',
+'xposixupper' => 'Upper/Y',
+'xposixword' => 'Perl/Word',
+'xposixxdigit' => 'Hex/Y',
+'xsux' => 'Sc/Xsux',
+'yi' => '#/538',
+'yiii' => '#/538',
+'yijing' => '#/163',
+'yijinghexagramsymbols' => '#/163',
+'yiradicals' => '#/270',
+'yisyllables' => '#/292',
+'z' => 'Gc/Z',
+'zinh' => 'Sc/Zinh',
+'zl' => '#/372',
+'zp' => '#/373',
+'zs' => 'Gc/Zs',
+'zyyy' => 'Sc/Zyyy',
+'zzzz' => 'Sc/Zzzz',
+);
+
+# Maps floating point to fractional form
+%utf8::nv_floating_to_rational = (
+'-0.5' => '-1/2',
+'0.0625' => '1/16',
+'0.0833333333333333' => '1/12',
+'0.1' => '1/10',
+'0.111111111111111' => '1/9',
+'0.125' => '1/8',
+'0.142857142857143' => '1/7',
+'0.166666666666667' => '1/6',
+'0.1875' => '3/16',
+'0.2' => '1/5',
+'0.25' => '1/4',
+'0.333333333333333' => '1/3',
+'0.375' => '3/8',
+'0.4' => '2/5',
+'0.416666666666667' => '5/12',
+'0.5' => '1/2',
+'0.583333333333333' => '7/12',
+'0.6' => '3/5',
+'0.625' => '5/8',
+'0.666666666666667' => '2/3',
+'0.75' => '3/4',
+'0.8' => '4/5',
+'0.833333333333333' => '5/6',
+'0.875' => '7/8',
+'0.916666666666667' => '11/12',
+'1.5' => '3/2',
+'2.5' => '5/2',
+'3.5' => '7/2',
+'4.5' => '9/2',
+'5.5' => '11/2',
+'6.5' => '13/2',
+'7.5' => '15/2',
+'8.5' => '17/2',
+);
+
+# If a floating point number doesn't have enough digits in it to get this
+# close to a fraction, it isn't considered to be that fraction even if all the
+# digits it does have match.
+$utf8::max_floating_slop = 0.001;
+
+# Deprecated tables to generate a warning for.  The key is the file containing
+# the table, so as to avoid duplication, as many property names can map to the
+# file, but we only need one entry for all of them.
+%utf8::why_deprecated = (
+'#/450' => 'Deprecated by Unicode because surrogates should never appear in well-formed text, and therefore shouldn\'t be the basis for line breaking',
+'Hyphen/T' => 'Supplanted by Line_Break property values; see www.unicode.org/reports/tr14',
+);
+
+# A few properties have different behavior under /i matching.  This maps
+# those to substitute files to use under /i.
+%utf8::caseless_equivalent = (
+'gc=ll' => 'Gc/LC',
+'gc=lowercaseletter' => 'Gc/LC',
+'gc=lt' => 'Gc/LC',
+'gc=lu' => 'Gc/LC',
+'gc=titlecaseletter' => 'Gc/LC',
+'gc=uppercaseletter' => 'Gc/LC',
+'isll' => 'Gc/LC',
+'islower' => 'Cased/Y',
+'islowercase' => 'Cased/Y',
+'islowercaseletter' => 'Gc/LC',
+'islt' => 'Gc/LC',
+'islu' => 'Gc/LC',
+'isposixlower' => '#/6',
+'isposixupper' => '#/6',
+'istitle' => 'Cased/Y',
+'istitlecase' => 'Cased/Y',
+'istitlecaseletter' => 'Gc/LC',
+'isupper' => 'Cased/Y',
+'isuppercase' => 'Cased/Y',
+'isuppercaseletter' => 'Gc/LC',
+'isxposixlower' => 'Cased/Y',
+'isxposixupper' => 'Cased/Y',
+'ll' => 'Gc/LC',
+'lower' => 'Cased/Y',
+'lower=f' => '!Cased/Y',
+'lower=false' => '!Cased/Y',
+'lower=n' => '!Cased/Y',
+'lower=no' => '!Cased/Y',
+'lower=t' => 'Cased/Y',
+'lower=true' => 'Cased/Y',
+'lower=y' => 'Cased/Y',
+'lower=yes' => 'Cased/Y',
+'lowercase' => 'Cased/Y',
+'lowercaseletter' => 'Gc/LC',
+'lt' => 'Gc/LC',
+'lu' => 'Gc/LC',
+'posixlower' => '#/6',
+'posixupper' => '#/6',
+'title' => 'Cased/Y',
+'titlecase' => 'Cased/Y',
+'titlecaseletter' => 'Gc/LC',
+'upper' => 'Cased/Y',
+'upper=f' => '!Cased/Y',
+'upper=false' => '!Cased/Y',
+'upper=n' => '!Cased/Y',
+'upper=no' => '!Cased/Y',
+'upper=t' => 'Cased/Y',
+'upper=true' => 'Cased/Y',
+'upper=y' => 'Cased/Y',
+'upper=yes' => 'Cased/Y',
+'uppercase' => 'Cased/Y',
+'uppercaseletter' => 'Gc/LC',
+'xposixlower' => 'Cased/Y',
+'xposixupper' => 'Cased/Y',
+);
+
+# Property names to mapping files
+%utf8::loose_property_to_file_of = (
+'age' => 'To/Age',
+'bc' => 'To/Bc',
+'bidiclass' => 'To/Bc',
+'bidimirroringglyph' => 'To/Bmg',
+'bidipairedbracket' => 'To/Bpb',
+'bidipairedbrackettype' => 'To/Bpt',
+'bmg' => 'To/Bmg',
+'bpb' => 'To/Bpb',
+'bpt' => 'To/Bpt',
+'canonicalcombiningclass' => 'CombiningClass',
+'casefolding' => 'To/Cf',
+'category' => 'To/Gc',
+'ccc' => 'CombiningClass',
+'cf' => 'To/Cf',
+'ea' => 'To/Ea',
+'eastasianwidth' => 'To/Ea',
+'gc' => 'To/Gc',
+'gcb' => 'To/GCB',
+'generalcategory' => 'To/Gc',
+'graphemeclusterbreak' => 'To/GCB',
+'hangulsyllabletype' => 'To/Hst',
+'hst' => 'To/Hst',
+'indicpositionalcategory' => 'To/InPC',
+'indicsyllabiccategory' => 'To/InSC',
+'inpc' => 'To/InPC',
+'insc' => 'To/InSC',
+'isc' => 'To/Isc',
+'isocomment' => 'To/Isc',
+'jg' => 'To/Jg',
+'joininggroup' => 'To/Jg',
+'joiningtype' => 'To/Jt',
+'jt' => 'To/Jt',
+'lb' => 'To/Lb',
+'lc' => 'To/Lc',
+'linebreak' => 'To/Lb',
+'lowercasemapping' => 'To/Lc',
+'na1' => 'To/Na1',
+'namealias' => 'To/NameAlia',
+'nfcqc' => 'To/NFCQC',
+'nfcquickcheck' => 'To/NFCQC',
+'nfdqc' => 'To/NFDQC',
+'nfdquickcheck' => 'To/NFDQC',
+'nfkccasefold' => 'To/NFKCCF',
+'nfkccf' => 'To/NFKCCF',
+'nfkcqc' => 'To/NFKCQC',
+'nfkcquickcheck' => 'To/NFKCQC',
+'nfkdqc' => 'To/NFKDQC',
+'nfkdquickcheck' => 'To/NFKDQC',
+'nt' => 'To/Nt',
+'numerictype' => 'To/Nt',
+'numericvalue' => 'To/Nv',
+'nv' => 'To/Nv',
+'perldecimaldigit' => 'To/PerlDeci',
+'sb' => 'To/SB',
+'sc' => 'To/Sc',
+'script' => 'To/Sc',
+'scriptextensions' => 'To/Scx',
+'scx' => 'To/Scx',
+'sentencebreak' => 'To/SB',
+'tc' => 'To/Tc',
+'titlecasemapping' => 'To/Tc',
+'uc' => 'To/Uc',
+'unicode1name' => 'To/Na1',
+'uppercasemapping' => 'To/Uc',
+'wb' => 'To/WB',
+'wordbreak' => 'To/WB',
+);
+
+# Property names to mapping files
+%utf8::strict_property_to_file_of = (
+'_perl_gcb' => 'To/GCB',
+'_perl_lb' => 'To/_PerlLB',
+'_perl_name_alias' => 'To/NameAlia',
+'_perl_sb' => 'To/SB',
+'_perl_wb' => 'To/_PerlWB',
+);
+
+# Files to the swash names within them.
+%utf8::file_to_swash_name = (
+'CombiningClass' => 'ToCombiningClass',
+'To/_PerlLB' => 'To_PerlLB',
+'To/_PerlWB' => 'To_PerlWB',
+'To/Age' => 'ToAge',
+'To/Bc' => 'ToBc',
+'To/Bmg' => 'ToBmg',
+'To/Bpb' => 'ToBpb',
+'To/Bpt' => 'ToBpt',
+'To/Cf' => 'ToCf',
+'To/Ea' => 'ToEa',
+'To/Gc' => 'ToGc',
+'To/GCB' => 'ToGCB',
+'To/Hst' => 'ToHst',
+'To/InPC' => 'ToInPC',
+'To/InSC' => 'ToInSC',
+'To/Isc' => 'ToIsc',
+'To/Jg' => 'ToJg',
+'To/Jt' => 'ToJt',
+'To/Lb' => 'ToLb',
+'To/Lc' => 'ToLc',
+'To/Na1' => 'ToNa1',
+'To/NameAlia' => 'ToNameAlias',
+'To/NFCQC' => 'ToNFCQC',
+'To/NFDQC' => 'ToNFDQC',
+'To/NFKCCF' => 'ToNFKCCF',
+'To/NFKCQC' => 'ToNFKCQC',
+'To/NFKDQC' => 'ToNFKDQC',
+'To/Nt' => 'ToNt',
+'To/Nv' => 'ToNv',
+'To/PerlDeci' => 'ToPerlDecimalDigit',
+'To/SB' => 'ToSB',
+'To/Sc' => 'ToSc',
+'To/Scx' => 'ToScx',
+'To/Tc' => 'ToTc',
+'To/Uc' => 'ToUc',
+'To/WB' => 'ToWB',
+);
+
+1;
diff --git a/lib/5.24.1/unicore/Name.pl b/lib/5.24.1/unicore/Name.pl
new file mode 100644
index 00000000..9cc94a1a
--- /dev/null
+++ b/lib/5.24.1/unicore/Name.pl
@@ -0,0 +1,29016 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+00000	NULL
+00000	NUL
+00001	START OF HEADING
+00001	SOH
+00002	START OF TEXT
+00002	STX
+00003	END OF TEXT
+00003	ETX
+00004	END OF TRANSMISSION
+00004	EOT
+00005	ENQUIRY
+00005	ENQ
+00006	ACKNOWLEDGE
+00006	ACK
+00007	ALERT
+00007	BEL
+00008	BACKSPACE
+00008	BS
+00009	CHARACTER TABULATION
+00009	HORIZONTAL TABULATION
+00009	HT
+00009	TAB
+0000A	LINE FEED
+0000A	NEW LINE
+0000A	END OF LINE
+0000A	LINE FEED (LF)
+0000A	EOL
+0000A	LF
+0000A	NL
+0000B	LINE TABULATION
+0000B	VERTICAL TABULATION
+0000B	VT
+0000C	FORM FEED
+0000C	FORM FEED (FF)
+0000C	FF
+0000D	CARRIAGE RETURN
+0000D	CARRIAGE RETURN (CR)
+0000D	CR
+0000E	SHIFT OUT
+0000E	LOCKING-SHIFT ONE
+0000E	SO
+0000F	SHIFT IN
+0000F	LOCKING-SHIFT ZERO
+0000F	SI
+00010	DATA LINK ESCAPE
+00010	DLE
+00011	DEVICE CONTROL ONE
+00011	DC1
+00012	DEVICE CONTROL TWO
+00012	DC2
+00013	DEVICE CONTROL THREE
+00013	DC3
+00014	DEVICE CONTROL FOUR
+00014	DC4
+00015	NEGATIVE ACKNOWLEDGE
+00015	NAK
+00016	SYNCHRONOUS IDLE
+00016	SYN
+00017	END OF TRANSMISSION BLOCK
+00017	ETB
+00018	CANCEL
+00018	CAN
+00019	END OF MEDIUM
+00019	EOM
+0001A	SUBSTITUTE
+0001A	SUB
+0001B	ESCAPE
+0001B	ESC
+0001C	INFORMATION SEPARATOR FOUR
+0001C	FILE SEPARATOR
+0001C	FS
+0001D	INFORMATION SEPARATOR THREE
+0001D	GROUP SEPARATOR
+0001D	GS
+0001E	INFORMATION SEPARATOR TWO
+0001E	RECORD SEPARATOR
+0001E	RS
+0001F	INFORMATION SEPARATOR ONE
+0001F	UNIT SEPARATOR
+0001F	US
+00020	SPACE
+00020	SP
+00021	EXCLAMATION MARK
+00022	QUOTATION MARK
+00023	NUMBER SIGN
+00024	DOLLAR SIGN
+00025	PERCENT SIGN
+00026	AMPERSAND
+00027	APOSTROPHE
+00028	LEFT PARENTHESIS
+00029	RIGHT PARENTHESIS
+0002A	ASTERISK
+0002B	PLUS SIGN
+0002C	COMMA
+0002D	HYPHEN-MINUS
+0002E	FULL STOP
+0002F	SOLIDUS
+00030	DIGIT ZERO
+00031	DIGIT ONE
+00032	DIGIT TWO
+00033	DIGIT THREE
+00034	DIGIT FOUR
+00035	DIGIT FIVE
+00036	DIGIT SIX
+00037	DIGIT SEVEN
+00038	DIGIT EIGHT
+00039	DIGIT NINE
+0003A	COLON
+0003B	SEMICOLON
+0003C	LESS-THAN SIGN
+0003D	EQUALS SIGN
+0003E	GREATER-THAN SIGN
+0003F	QUESTION MARK
+00040	COMMERCIAL AT
+00041	LATIN CAPITAL LETTER A
+00042	LATIN CAPITAL LETTER B
+00043	LATIN CAPITAL LETTER C
+00044	LATIN CAPITAL LETTER D
+00045	LATIN CAPITAL LETTER E
+00046	LATIN CAPITAL LETTER F
+00047	LATIN CAPITAL LETTER G
+00048	LATIN CAPITAL LETTER H
+00049	LATIN CAPITAL LETTER I
+0004A	LATIN CAPITAL LETTER J
+0004B	LATIN CAPITAL LETTER K
+0004C	LATIN CAPITAL LETTER L
+0004D	LATIN CAPITAL LETTER M
+0004E	LATIN CAPITAL LETTER N
+0004F	LATIN CAPITAL LETTER O
+00050	LATIN CAPITAL LETTER P
+00051	LATIN CAPITAL LETTER Q
+00052	LATIN CAPITAL LETTER R
+00053	LATIN CAPITAL LETTER S
+00054	LATIN CAPITAL LETTER T
+00055	LATIN CAPITAL LETTER U
+00056	LATIN CAPITAL LETTER V
+00057	LATIN CAPITAL LETTER W
+00058	LATIN CAPITAL LETTER X
+00059	LATIN CAPITAL LETTER Y
+0005A	LATIN CAPITAL LETTER Z
+0005B	LEFT SQUARE BRACKET
+0005C	REVERSE SOLIDUS
+0005D	RIGHT SQUARE BRACKET
+0005E	CIRCUMFLEX ACCENT
+0005F	LOW LINE
+00060	GRAVE ACCENT
+00061	LATIN SMALL LETTER A
+00062	LATIN SMALL LETTER B
+00063	LATIN SMALL LETTER C
+00064	LATIN SMALL LETTER D
+00065	LATIN SMALL LETTER E
+00066	LATIN SMALL LETTER F
+00067	LATIN SMALL LETTER G
+00068	LATIN SMALL LETTER H
+00069	LATIN SMALL LETTER I
+0006A	LATIN SMALL LETTER J
+0006B	LATIN SMALL LETTER K
+0006C	LATIN SMALL LETTER L
+0006D	LATIN SMALL LETTER M
+0006E	LATIN SMALL LETTER N
+0006F	LATIN SMALL LETTER O
+00070	LATIN SMALL LETTER P
+00071	LATIN SMALL LETTER Q
+00072	LATIN SMALL LETTER R
+00073	LATIN SMALL LETTER S
+00074	LATIN SMALL LETTER T
+00075	LATIN SMALL LETTER U
+00076	LATIN SMALL LETTER V
+00077	LATIN SMALL LETTER W
+00078	LATIN SMALL LETTER X
+00079	LATIN SMALL LETTER Y
+0007A	LATIN SMALL LETTER Z
+0007B	LEFT CURLY BRACKET
+0007C	VERTICAL LINE
+0007D	RIGHT CURLY BRACKET
+0007E	TILDE
+0007F	DELETE
+0007F	DEL
+00080	PADDING CHARACTER
+00080	PAD
+00081	HIGH OCTET PRESET
+00081	HOP
+00082	BREAK PERMITTED HERE
+00082	BPH
+00083	NO BREAK HERE
+00083	NBH
+00084	INDEX
+00084	IND
+00085	NEXT LINE
+00085	NEXT LINE (NEL)
+00085	NEL
+00086	START OF SELECTED AREA
+00086	SSA
+00087	END OF SELECTED AREA
+00087	ESA
+00088	CHARACTER TABULATION SET
+00088	HORIZONTAL TABULATION SET
+00088	HTS
+00089	CHARACTER TABULATION WITH JUSTIFICATION
+00089	HORIZONTAL TABULATION WITH JUSTIFICATION
+00089	HTJ
+0008A	LINE TABULATION SET
+0008A	VERTICAL TABULATION SET
+0008A	VTS
+0008B	PARTIAL LINE FORWARD
+0008B	PARTIAL LINE DOWN
+0008B	PLD
+0008C	PARTIAL LINE BACKWARD
+0008C	PARTIAL LINE UP
+0008C	PLU
+0008D	REVERSE LINE FEED
+0008D	REVERSE INDEX
+0008D	RI
+0008E	SINGLE SHIFT TWO
+0008E	SINGLE-SHIFT-2
+0008E	SS2
+0008F	SINGLE SHIFT THREE
+0008F	SINGLE-SHIFT-3
+0008F	SS3
+00090	DEVICE CONTROL STRING
+00090	DCS
+00091	PRIVATE USE ONE
+00091	PRIVATE USE-1
+00091	PU1
+00092	PRIVATE USE TWO
+00092	PRIVATE USE-2
+00092	PU2
+00093	SET TRANSMIT STATE
+00093	STS
+00094	CANCEL CHARACTER
+00094	CCH
+00095	MESSAGE WAITING
+00095	MW
+00096	START OF GUARDED AREA
+00096	START OF PROTECTED AREA
+00096	SPA
+00097	END OF GUARDED AREA
+00097	END OF PROTECTED AREA
+00097	EPA
+00098	START OF STRING
+00098	SOS
+00099	SINGLE GRAPHIC CHARACTER INTRODUCER
+00099	SGC
+0009A	SINGLE CHARACTER INTRODUCER
+0009A	SCI
+0009B	CONTROL SEQUENCE INTRODUCER
+0009B	CSI
+0009C	STRING TERMINATOR
+0009C	ST
+0009D	OPERATING SYSTEM COMMAND
+0009D	OSC
+0009E	PRIVACY MESSAGE
+0009E	PM
+0009F	APPLICATION PROGRAM COMMAND
+0009F	APC
+000A0	NO-BREAK SPACE
+000A0	NBSP
+000A1	INVERTED EXCLAMATION MARK
+000A2	CENT SIGN
+000A3	POUND SIGN
+000A4	CURRENCY SIGN
+000A5	YEN SIGN
+000A6	BROKEN BAR
+000A7	SECTION SIGN
+000A8	DIAERESIS
+000A9	COPYRIGHT SIGN
+000AA	FEMININE ORDINAL INDICATOR
+000AB	LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
+000AC	NOT SIGN
+000AD	SOFT HYPHEN
+000AD	SHY
+000AE	REGISTERED SIGN
+000AF	MACRON
+000B0	DEGREE SIGN
+000B1	PLUS-MINUS SIGN
+000B2	SUPERSCRIPT TWO
+000B3	SUPERSCRIPT THREE
+000B4	ACUTE ACCENT
+000B5	MICRO SIGN
+000B6	PILCROW SIGN
+000B7	MIDDLE DOT
+000B8	CEDILLA
+000B9	SUPERSCRIPT ONE
+000BA	MASCULINE ORDINAL INDICATOR
+000BB	RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
+000BC	VULGAR FRACTION ONE QUARTER
+000BD	VULGAR FRACTION ONE HALF
+000BE	VULGAR FRACTION THREE QUARTERS
+000BF	INVERTED QUESTION MARK
+000C0	LATIN CAPITAL LETTER A WITH GRAVE
+000C1	LATIN CAPITAL LETTER A WITH ACUTE
+000C2	LATIN CAPITAL LETTER A WITH CIRCUMFLEX
+000C3	LATIN CAPITAL LETTER A WITH TILDE
+000C4	LATIN CAPITAL LETTER A WITH DIAERESIS
+000C5	LATIN CAPITAL LETTER A WITH RING ABOVE
+000C6	LATIN CAPITAL LETTER AE
+000C7	LATIN CAPITAL LETTER C WITH CEDILLA
+000C8	LATIN CAPITAL LETTER E WITH GRAVE
+000C9	LATIN CAPITAL LETTER E WITH ACUTE
+000CA	LATIN CAPITAL LETTER E WITH CIRCUMFLEX
+000CB	LATIN CAPITAL LETTER E WITH DIAERESIS
+000CC	LATIN CAPITAL LETTER I WITH GRAVE
+000CD	LATIN CAPITAL LETTER I WITH ACUTE
+000CE	LATIN CAPITAL LETTER I WITH CIRCUMFLEX
+000CF	LATIN CAPITAL LETTER I WITH DIAERESIS
+000D0	LATIN CAPITAL LETTER ETH
+000D1	LATIN CAPITAL LETTER N WITH TILDE
+000D2	LATIN CAPITAL LETTER O WITH GRAVE
+000D3	LATIN CAPITAL LETTER O WITH ACUTE
+000D4	LATIN CAPITAL LETTER O WITH CIRCUMFLEX
+000D5	LATIN CAPITAL LETTER O WITH TILDE
+000D6	LATIN CAPITAL LETTER O WITH DIAERESIS
+000D7	MULTIPLICATION SIGN
+000D8	LATIN CAPITAL LETTER O WITH STROKE
+000D9	LATIN CAPITAL LETTER U WITH GRAVE
+000DA	LATIN CAPITAL LETTER U WITH ACUTE
+000DB	LATIN CAPITAL LETTER U WITH CIRCUMFLEX
+000DC	LATIN CAPITAL LETTER U WITH DIAERESIS
+000DD	LATIN CAPITAL LETTER Y WITH ACUTE
+000DE	LATIN CAPITAL LETTER THORN
+000DF	LATIN SMALL LETTER SHARP S
+000E0	LATIN SMALL LETTER A WITH GRAVE
+000E1	LATIN SMALL LETTER A WITH ACUTE
+000E2	LATIN SMALL LETTER A WITH CIRCUMFLEX
+000E3	LATIN SMALL LETTER A WITH TILDE
+000E4	LATIN SMALL LETTER A WITH DIAERESIS
+000E5	LATIN SMALL LETTER A WITH RING ABOVE
+000E6	LATIN SMALL LETTER AE
+000E7	LATIN SMALL LETTER C WITH CEDILLA
+000E8	LATIN SMALL LETTER E WITH GRAVE
+000E9	LATIN SMALL LETTER E WITH ACUTE
+000EA	LATIN SMALL LETTER E WITH CIRCUMFLEX
+000EB	LATIN SMALL LETTER E WITH DIAERESIS
+000EC	LATIN SMALL LETTER I WITH GRAVE
+000ED	LATIN SMALL LETTER I WITH ACUTE
+000EE	LATIN SMALL LETTER I WITH CIRCUMFLEX
+000EF	LATIN SMALL LETTER I WITH DIAERESIS
+000F0	LATIN SMALL LETTER ETH
+000F1	LATIN SMALL LETTER N WITH TILDE
+000F2	LATIN SMALL LETTER O WITH GRAVE
+000F3	LATIN SMALL LETTER O WITH ACUTE
+000F4	LATIN SMALL LETTER O WITH CIRCUMFLEX
+000F5	LATIN SMALL LETTER O WITH TILDE
+000F6	LATIN SMALL LETTER O WITH DIAERESIS
+000F7	DIVISION SIGN
+000F8	LATIN SMALL LETTER O WITH STROKE
+000F9	LATIN SMALL LETTER U WITH GRAVE
+000FA	LATIN SMALL LETTER U WITH ACUTE
+000FB	LATIN SMALL LETTER U WITH CIRCUMFLEX
+000FC	LATIN SMALL LETTER U WITH DIAERESIS
+000FD	LATIN SMALL LETTER Y WITH ACUTE
+000FE	LATIN SMALL LETTER THORN
+000FF	LATIN SMALL LETTER Y WITH DIAERESIS
+00100	LATIN CAPITAL LETTER A WITH MACRON
+00101	LATIN SMALL LETTER A WITH MACRON
+00102	LATIN CAPITAL LETTER A WITH BREVE
+00103	LATIN SMALL LETTER A WITH BREVE
+00104	LATIN CAPITAL LETTER A WITH OGONEK
+00105	LATIN SMALL LETTER A WITH OGONEK
+00106	LATIN CAPITAL LETTER C WITH ACUTE
+00107	LATIN SMALL LETTER C WITH ACUTE
+00108	LATIN CAPITAL LETTER C WITH CIRCUMFLEX
+00109	LATIN SMALL LETTER C WITH CIRCUMFLEX
+0010A	LATIN CAPITAL LETTER C WITH DOT ABOVE
+0010B	LATIN SMALL LETTER C WITH DOT ABOVE
+0010C	LATIN CAPITAL LETTER C WITH CARON
+0010D	LATIN SMALL LETTER C WITH CARON
+0010E	LATIN CAPITAL LETTER D WITH CARON
+0010F	LATIN SMALL LETTER D WITH CARON
+00110	LATIN CAPITAL LETTER D WITH STROKE
+00111	LATIN SMALL LETTER D WITH STROKE
+00112	LATIN CAPITAL LETTER E WITH MACRON
+00113	LATIN SMALL LETTER E WITH MACRON
+00114	LATIN CAPITAL LETTER E WITH BREVE
+00115	LATIN SMALL LETTER E WITH BREVE
+00116	LATIN CAPITAL LETTER E WITH DOT ABOVE
+00117	LATIN SMALL LETTER E WITH DOT ABOVE
+00118	LATIN CAPITAL LETTER E WITH OGONEK
+00119	LATIN SMALL LETTER E WITH OGONEK
+0011A	LATIN CAPITAL LETTER E WITH CARON
+0011B	LATIN SMALL LETTER E WITH CARON
+0011C	LATIN CAPITAL LETTER G WITH CIRCUMFLEX
+0011D	LATIN SMALL LETTER G WITH CIRCUMFLEX
+0011E	LATIN CAPITAL LETTER G WITH BREVE
+0011F	LATIN SMALL LETTER G WITH BREVE
+00120	LATIN CAPITAL LETTER G WITH DOT ABOVE
+00121	LATIN SMALL LETTER G WITH DOT ABOVE
+00122	LATIN CAPITAL LETTER G WITH CEDILLA
+00123	LATIN SMALL LETTER G WITH CEDILLA
+00124	LATIN CAPITAL LETTER H WITH CIRCUMFLEX
+00125	LATIN SMALL LETTER H WITH CIRCUMFLEX
+00126	LATIN CAPITAL LETTER H WITH STROKE
+00127	LATIN SMALL LETTER H WITH STROKE
+00128	LATIN CAPITAL LETTER I WITH TILDE
+00129	LATIN SMALL LETTER I WITH TILDE
+0012A	LATIN CAPITAL LETTER I WITH MACRON
+0012B	LATIN SMALL LETTER I WITH MACRON
+0012C	LATIN CAPITAL LETTER I WITH BREVE
+0012D	LATIN SMALL LETTER I WITH BREVE
+0012E	LATIN CAPITAL LETTER I WITH OGONEK
+0012F	LATIN SMALL LETTER I WITH OGONEK
+00130	LATIN CAPITAL LETTER I WITH DOT ABOVE
+00131	LATIN SMALL LETTER DOTLESS I
+00132	LATIN CAPITAL LIGATURE IJ
+00133	LATIN SMALL LIGATURE IJ
+00134	LATIN CAPITAL LETTER J WITH CIRCUMFLEX
+00135	LATIN SMALL LETTER J WITH CIRCUMFLEX
+00136	LATIN CAPITAL LETTER K WITH CEDILLA
+00137	LATIN SMALL LETTER K WITH CEDILLA
+00138	LATIN SMALL LETTER KRA
+00139	LATIN CAPITAL LETTER L WITH ACUTE
+0013A	LATIN SMALL LETTER L WITH ACUTE
+0013B	LATIN CAPITAL LETTER L WITH CEDILLA
+0013C	LATIN SMALL LETTER L WITH CEDILLA
+0013D	LATIN CAPITAL LETTER L WITH CARON
+0013E	LATIN SMALL LETTER L WITH CARON
+0013F	LATIN CAPITAL LETTER L WITH MIDDLE DOT
+00140	LATIN SMALL LETTER L WITH MIDDLE DOT
+00141	LATIN CAPITAL LETTER L WITH STROKE
+00142	LATIN SMALL LETTER L WITH STROKE
+00143	LATIN CAPITAL LETTER N WITH ACUTE
+00144	LATIN SMALL LETTER N WITH ACUTE
+00145	LATIN CAPITAL LETTER N WITH CEDILLA
+00146	LATIN SMALL LETTER N WITH CEDILLA
+00147	LATIN CAPITAL LETTER N WITH CARON
+00148	LATIN SMALL LETTER N WITH CARON
+00149	LATIN SMALL LETTER N PRECEDED BY APOSTROPHE
+0014A	LATIN CAPITAL LETTER ENG
+0014B	LATIN SMALL LETTER ENG
+0014C	LATIN CAPITAL LETTER O WITH MACRON
+0014D	LATIN SMALL LETTER O WITH MACRON
+0014E	LATIN CAPITAL LETTER O WITH BREVE
+0014F	LATIN SMALL LETTER O WITH BREVE
+00150	LATIN CAPITAL LETTER O WITH DOUBLE ACUTE
+00151	LATIN SMALL LETTER O WITH DOUBLE ACUTE
+00152	LATIN CAPITAL LIGATURE OE
+00153	LATIN SMALL LIGATURE OE
+00154	LATIN CAPITAL LETTER R WITH ACUTE
+00155	LATIN SMALL LETTER R WITH ACUTE
+00156	LATIN CAPITAL LETTER R WITH CEDILLA
+00157	LATIN SMALL LETTER R WITH CEDILLA
+00158	LATIN CAPITAL LETTER R WITH CARON
+00159	LATIN SMALL LETTER R WITH CARON
+0015A	LATIN CAPITAL LETTER S WITH ACUTE
+0015B	LATIN SMALL LETTER S WITH ACUTE
+0015C	LATIN CAPITAL LETTER S WITH CIRCUMFLEX
+0015D	LATIN SMALL LETTER S WITH CIRCUMFLEX
+0015E	LATIN CAPITAL LETTER S WITH CEDILLA
+0015F	LATIN SMALL LETTER S WITH CEDILLA
+00160	LATIN CAPITAL LETTER S WITH CARON
+00161	LATIN SMALL LETTER S WITH CARON
+00162	LATIN CAPITAL LETTER T WITH CEDILLA
+00163	LATIN SMALL LETTER T WITH CEDILLA
+00164	LATIN CAPITAL LETTER T WITH CARON
+00165	LATIN SMALL LETTER T WITH CARON
+00166	LATIN CAPITAL LETTER T WITH STROKE
+00167	LATIN SMALL LETTER T WITH STROKE
+00168	LATIN CAPITAL LETTER U WITH TILDE
+00169	LATIN SMALL LETTER U WITH TILDE
+0016A	LATIN CAPITAL LETTER U WITH MACRON
+0016B	LATIN SMALL LETTER U WITH MACRON
+0016C	LATIN CAPITAL LETTER U WITH BREVE
+0016D	LATIN SMALL LETTER U WITH BREVE
+0016E	LATIN CAPITAL LETTER U WITH RING ABOVE
+0016F	LATIN SMALL LETTER U WITH RING ABOVE
+00170	LATIN CAPITAL LETTER U WITH DOUBLE ACUTE
+00171	LATIN SMALL LETTER U WITH DOUBLE ACUTE
+00172	LATIN CAPITAL LETTER U WITH OGONEK
+00173	LATIN SMALL LETTER U WITH OGONEK
+00174	LATIN CAPITAL LETTER W WITH CIRCUMFLEX
+00175	LATIN SMALL LETTER W WITH CIRCUMFLEX
+00176	LATIN CAPITAL LETTER Y WITH CIRCUMFLEX
+00177	LATIN SMALL LETTER Y WITH CIRCUMFLEX
+00178	LATIN CAPITAL LETTER Y WITH DIAERESIS
+00179	LATIN CAPITAL LETTER Z WITH ACUTE
+0017A	LATIN SMALL LETTER Z WITH ACUTE
+0017B	LATIN CAPITAL LETTER Z WITH DOT ABOVE
+0017C	LATIN SMALL LETTER Z WITH DOT ABOVE
+0017D	LATIN CAPITAL LETTER Z WITH CARON
+0017E	LATIN SMALL LETTER Z WITH CARON
+0017F	LATIN SMALL LETTER LONG S
+00180	LATIN SMALL LETTER B WITH STROKE
+00181	LATIN CAPITAL LETTER B WITH HOOK
+00182	LATIN CAPITAL LETTER B WITH TOPBAR
+00183	LATIN SMALL LETTER B WITH TOPBAR
+00184	LATIN CAPITAL LETTER TONE SIX
+00185	LATIN SMALL LETTER TONE SIX
+00186	LATIN CAPITAL LETTER OPEN O
+00187	LATIN CAPITAL LETTER C WITH HOOK
+00188	LATIN SMALL LETTER C WITH HOOK
+00189	LATIN CAPITAL LETTER AFRICAN D
+0018A	LATIN CAPITAL LETTER D WITH HOOK
+0018B	LATIN CAPITAL LETTER D WITH TOPBAR
+0018C	LATIN SMALL LETTER D WITH TOPBAR
+0018D	LATIN SMALL LETTER TURNED DELTA
+0018E	LATIN CAPITAL LETTER REVERSED E
+0018F	LATIN CAPITAL LETTER SCHWA
+00190	LATIN CAPITAL LETTER OPEN E
+00191	LATIN CAPITAL LETTER F WITH HOOK
+00192	LATIN SMALL LETTER F WITH HOOK
+00193	LATIN CAPITAL LETTER G WITH HOOK
+00194	LATIN CAPITAL LETTER GAMMA
+00195	LATIN SMALL LETTER HV
+00196	LATIN CAPITAL LETTER IOTA
+00197	LATIN CAPITAL LETTER I WITH STROKE
+00198	LATIN CAPITAL LETTER K WITH HOOK
+00199	LATIN SMALL LETTER K WITH HOOK
+0019A	LATIN SMALL LETTER L WITH BAR
+0019B	LATIN SMALL LETTER LAMBDA WITH STROKE
+0019C	LATIN CAPITAL LETTER TURNED M
+0019D	LATIN CAPITAL LETTER N WITH LEFT HOOK
+0019E	LATIN SMALL LETTER N WITH LONG RIGHT LEG
+0019F	LATIN CAPITAL LETTER O WITH MIDDLE TILDE
+001A0	LATIN CAPITAL LETTER O WITH HORN
+001A1	LATIN SMALL LETTER O WITH HORN
+001A2	LATIN CAPITAL LETTER GHA
+001A2	LATIN CAPITAL LETTER OI
+001A3	LATIN SMALL LETTER GHA
+001A3	LATIN SMALL LETTER OI
+001A4	LATIN CAPITAL LETTER P WITH HOOK
+001A5	LATIN SMALL LETTER P WITH HOOK
+001A6	LATIN LETTER YR
+001A7	LATIN CAPITAL LETTER TONE TWO
+001A8	LATIN SMALL LETTER TONE TWO
+001A9	LATIN CAPITAL LETTER ESH
+001AA	LATIN LETTER REVERSED ESH LOOP
+001AB	LATIN SMALL LETTER T WITH PALATAL HOOK
+001AC	LATIN CAPITAL LETTER T WITH HOOK
+001AD	LATIN SMALL LETTER T WITH HOOK
+001AE	LATIN CAPITAL LETTER T WITH RETROFLEX HOOK
+001AF	LATIN CAPITAL LETTER U WITH HORN
+001B0	LATIN SMALL LETTER U WITH HORN
+001B1	LATIN CAPITAL LETTER UPSILON
+001B2	LATIN CAPITAL LETTER V WITH HOOK
+001B3	LATIN CAPITAL LETTER Y WITH HOOK
+001B4	LATIN SMALL LETTER Y WITH HOOK
+001B5	LATIN CAPITAL LETTER Z WITH STROKE
+001B6	LATIN SMALL LETTER Z WITH STROKE
+001B7	LATIN CAPITAL LETTER EZH
+001B8	LATIN CAPITAL LETTER EZH REVERSED
+001B9	LATIN SMALL LETTER EZH REVERSED
+001BA	LATIN SMALL LETTER EZH WITH TAIL
+001BB	LATIN LETTER TWO WITH STROKE
+001BC	LATIN CAPITAL LETTER TONE FIVE
+001BD	LATIN SMALL LETTER TONE FIVE
+001BE	LATIN LETTER INVERTED GLOTTAL STOP WITH STROKE
+001BF	LATIN LETTER WYNN
+001C0	LATIN LETTER DENTAL CLICK
+001C1	LATIN LETTER LATERAL CLICK
+001C2	LATIN LETTER ALVEOLAR CLICK
+001C3	LATIN LETTER RETROFLEX CLICK
+001C4	LATIN CAPITAL LETTER DZ WITH CARON
+001C5	LATIN CAPITAL LETTER D WITH SMALL LETTER Z WITH CARON
+001C6	LATIN SMALL LETTER DZ WITH CARON
+001C7	LATIN CAPITAL LETTER LJ
+001C8	LATIN CAPITAL LETTER L WITH SMALL LETTER J
+001C9	LATIN SMALL LETTER LJ
+001CA	LATIN CAPITAL LETTER NJ
+001CB	LATIN CAPITAL LETTER N WITH SMALL LETTER J
+001CC	LATIN SMALL LETTER NJ
+001CD	LATIN CAPITAL LETTER A WITH CARON
+001CE	LATIN SMALL LETTER A WITH CARON
+001CF	LATIN CAPITAL LETTER I WITH CARON
+001D0	LATIN SMALL LETTER I WITH CARON
+001D1	LATIN CAPITAL LETTER O WITH CARON
+001D2	LATIN SMALL LETTER O WITH CARON
+001D3	LATIN CAPITAL LETTER U WITH CARON
+001D4	LATIN SMALL LETTER U WITH CARON
+001D5	LATIN CAPITAL LETTER U WITH DIAERESIS AND MACRON
+001D6	LATIN SMALL LETTER U WITH DIAERESIS AND MACRON
+001D7	LATIN CAPITAL LETTER U WITH DIAERESIS AND ACUTE
+001D8	LATIN SMALL LETTER U WITH DIAERESIS AND ACUTE
+001D9	LATIN CAPITAL LETTER U WITH DIAERESIS AND CARON
+001DA	LATIN SMALL LETTER U WITH DIAERESIS AND CARON
+001DB	LATIN CAPITAL LETTER U WITH DIAERESIS AND GRAVE
+001DC	LATIN SMALL LETTER U WITH DIAERESIS AND GRAVE
+001DD	LATIN SMALL LETTER TURNED E
+001DE	LATIN CAPITAL LETTER A WITH DIAERESIS AND MACRON
+001DF	LATIN SMALL LETTER A WITH DIAERESIS AND MACRON
+001E0	LATIN CAPITAL LETTER A WITH DOT ABOVE AND MACRON
+001E1	LATIN SMALL LETTER A WITH DOT ABOVE AND MACRON
+001E2	LATIN CAPITAL LETTER AE WITH MACRON
+001E3	LATIN SMALL LETTER AE WITH MACRON
+001E4	LATIN CAPITAL LETTER G WITH STROKE
+001E5	LATIN SMALL LETTER G WITH STROKE
+001E6	LATIN CAPITAL LETTER G WITH CARON
+001E7	LATIN SMALL LETTER G WITH CARON
+001E8	LATIN CAPITAL LETTER K WITH CARON
+001E9	LATIN SMALL LETTER K WITH CARON
+001EA	LATIN CAPITAL LETTER O WITH OGONEK
+001EB	LATIN SMALL LETTER O WITH OGONEK
+001EC	LATIN CAPITAL LETTER O WITH OGONEK AND MACRON
+001ED	LATIN SMALL LETTER O WITH OGONEK AND MACRON
+001EE	LATIN CAPITAL LETTER EZH WITH CARON
+001EF	LATIN SMALL LETTER EZH WITH CARON
+001F0	LATIN SMALL LETTER J WITH CARON
+001F1	LATIN CAPITAL LETTER DZ
+001F2	LATIN CAPITAL LETTER D WITH SMALL LETTER Z
+001F3	LATIN SMALL LETTER DZ
+001F4	LATIN CAPITAL LETTER G WITH ACUTE
+001F5	LATIN SMALL LETTER G WITH ACUTE
+001F6	LATIN CAPITAL LETTER HWAIR
+001F7	LATIN CAPITAL LETTER WYNN
+001F8	LATIN CAPITAL LETTER N WITH GRAVE
+001F9	LATIN SMALL LETTER N WITH GRAVE
+001FA	LATIN CAPITAL LETTER A WITH RING ABOVE AND ACUTE
+001FB	LATIN SMALL LETTER A WITH RING ABOVE AND ACUTE
+001FC	LATIN CAPITAL LETTER AE WITH ACUTE
+001FD	LATIN SMALL LETTER AE WITH ACUTE
+001FE	LATIN CAPITAL LETTER O WITH STROKE AND ACUTE
+001FF	LATIN SMALL LETTER O WITH STROKE AND ACUTE
+00200	LATIN CAPITAL LETTER A WITH DOUBLE GRAVE
+00201	LATIN SMALL LETTER A WITH DOUBLE GRAVE
+00202	LATIN CAPITAL LETTER A WITH INVERTED BREVE
+00203	LATIN SMALL LETTER A WITH INVERTED BREVE
+00204	LATIN CAPITAL LETTER E WITH DOUBLE GRAVE
+00205	LATIN SMALL LETTER E WITH DOUBLE GRAVE
+00206	LATIN CAPITAL LETTER E WITH INVERTED BREVE
+00207	LATIN SMALL LETTER E WITH INVERTED BREVE
+00208	LATIN CAPITAL LETTER I WITH DOUBLE GRAVE
+00209	LATIN SMALL LETTER I WITH DOUBLE GRAVE
+0020A	LATIN CAPITAL LETTER I WITH INVERTED BREVE
+0020B	LATIN SMALL LETTER I WITH INVERTED BREVE
+0020C	LATIN CAPITAL LETTER O WITH DOUBLE GRAVE
+0020D	LATIN SMALL LETTER O WITH DOUBLE GRAVE
+0020E	LATIN CAPITAL LETTER O WITH INVERTED BREVE
+0020F	LATIN SMALL LETTER O WITH INVERTED BREVE
+00210	LATIN CAPITAL LETTER R WITH DOUBLE GRAVE
+00211	LATIN SMALL LETTER R WITH DOUBLE GRAVE
+00212	LATIN CAPITAL LETTER R WITH INVERTED BREVE
+00213	LATIN SMALL LETTER R WITH INVERTED BREVE
+00214	LATIN CAPITAL LETTER U WITH DOUBLE GRAVE
+00215	LATIN SMALL LETTER U WITH DOUBLE GRAVE
+00216	LATIN CAPITAL LETTER U WITH INVERTED BREVE
+00217	LATIN SMALL LETTER U WITH INVERTED BREVE
+00218	LATIN CAPITAL LETTER S WITH COMMA BELOW
+00219	LATIN SMALL LETTER S WITH COMMA BELOW
+0021A	LATIN CAPITAL LETTER T WITH COMMA BELOW
+0021B	LATIN SMALL LETTER T WITH COMMA BELOW
+0021C	LATIN CAPITAL LETTER YOGH
+0021D	LATIN SMALL LETTER YOGH
+0021E	LATIN CAPITAL LETTER H WITH CARON
+0021F	LATIN SMALL LETTER H WITH CARON
+00220	LATIN CAPITAL LETTER N WITH LONG RIGHT LEG
+00221	LATIN SMALL LETTER D WITH CURL
+00222	LATIN CAPITAL LETTER OU
+00223	LATIN SMALL LETTER OU
+00224	LATIN CAPITAL LETTER Z WITH HOOK
+00225	LATIN SMALL LETTER Z WITH HOOK
+00226	LATIN CAPITAL LETTER A WITH DOT ABOVE
+00227	LATIN SMALL LETTER A WITH DOT ABOVE
+00228	LATIN CAPITAL LETTER E WITH CEDILLA
+00229	LATIN SMALL LETTER E WITH CEDILLA
+0022A	LATIN CAPITAL LETTER O WITH DIAERESIS AND MACRON
+0022B	LATIN SMALL LETTER O WITH DIAERESIS AND MACRON
+0022C	LATIN CAPITAL LETTER O WITH TILDE AND MACRON
+0022D	LATIN SMALL LETTER O WITH TILDE AND MACRON
+0022E	LATIN CAPITAL LETTER O WITH DOT ABOVE
+0022F	LATIN SMALL LETTER O WITH DOT ABOVE
+00230	LATIN CAPITAL LETTER O WITH DOT ABOVE AND MACRON
+00231	LATIN SMALL LETTER O WITH DOT ABOVE AND MACRON
+00232	LATIN CAPITAL LETTER Y WITH MACRON
+00233	LATIN SMALL LETTER Y WITH MACRON
+00234	LATIN SMALL LETTER L WITH CURL
+00235	LATIN SMALL LETTER N WITH CURL
+00236	LATIN SMALL LETTER T WITH CURL
+00237	LATIN SMALL LETTER DOTLESS J
+00238	LATIN SMALL LETTER DB DIGRAPH
+00239	LATIN SMALL LETTER QP DIGRAPH
+0023A	LATIN CAPITAL LETTER A WITH STROKE
+0023B	LATIN CAPITAL LETTER C WITH STROKE
+0023C	LATIN SMALL LETTER C WITH STROKE
+0023D	LATIN CAPITAL LETTER L WITH BAR
+0023E	LATIN CAPITAL LETTER T WITH DIAGONAL STROKE
+0023F	LATIN SMALL LETTER S WITH SWASH TAIL
+00240	LATIN SMALL LETTER Z WITH SWASH TAIL
+00241	LATIN CAPITAL LETTER GLOTTAL STOP
+00242	LATIN SMALL LETTER GLOTTAL STOP
+00243	LATIN CAPITAL LETTER B WITH STROKE
+00244	LATIN CAPITAL LETTER U BAR
+00245	LATIN CAPITAL LETTER TURNED V
+00246	LATIN CAPITAL LETTER E WITH STROKE
+00247	LATIN SMALL LETTER E WITH STROKE
+00248	LATIN CAPITAL LETTER J WITH STROKE
+00249	LATIN SMALL LETTER J WITH STROKE
+0024A	LATIN CAPITAL LETTER SMALL Q WITH HOOK TAIL
+0024B	LATIN SMALL LETTER Q WITH HOOK TAIL
+0024C	LATIN CAPITAL LETTER R WITH STROKE
+0024D	LATIN SMALL LETTER R WITH STROKE
+0024E	LATIN CAPITAL LETTER Y WITH STROKE
+0024F	LATIN SMALL LETTER Y WITH STROKE
+00250	LATIN SMALL LETTER TURNED A
+00251	LATIN SMALL LETTER ALPHA
+00252	LATIN SMALL LETTER TURNED ALPHA
+00253	LATIN SMALL LETTER B WITH HOOK
+00254	LATIN SMALL LETTER OPEN O
+00255	LATIN SMALL LETTER C WITH CURL
+00256	LATIN SMALL LETTER D WITH TAIL
+00257	LATIN SMALL LETTER D WITH HOOK
+00258	LATIN SMALL LETTER REVERSED E
+00259	LATIN SMALL LETTER SCHWA
+0025A	LATIN SMALL LETTER SCHWA WITH HOOK
+0025B	LATIN SMALL LETTER OPEN E
+0025C	LATIN SMALL LETTER REVERSED OPEN E
+0025D	LATIN SMALL LETTER REVERSED OPEN E WITH HOOK
+0025E	LATIN SMALL LETTER CLOSED REVERSED OPEN E
+0025F	LATIN SMALL LETTER DOTLESS J WITH STROKE
+00260	LATIN SMALL LETTER G WITH HOOK
+00261	LATIN SMALL LETTER SCRIPT G
+00262	LATIN LETTER SMALL CAPITAL G
+00263	LATIN SMALL LETTER GAMMA
+00264	LATIN SMALL LETTER RAMS HORN
+00265	LATIN SMALL LETTER TURNED H
+00266	LATIN SMALL LETTER H WITH HOOK
+00267	LATIN SMALL LETTER HENG WITH HOOK
+00268	LATIN SMALL LETTER I WITH STROKE
+00269	LATIN SMALL LETTER IOTA
+0026A	LATIN LETTER SMALL CAPITAL I
+0026B	LATIN SMALL LETTER L WITH MIDDLE TILDE
+0026C	LATIN SMALL LETTER L WITH BELT
+0026D	LATIN SMALL LETTER L WITH RETROFLEX HOOK
+0026E	LATIN SMALL LETTER LEZH
+0026F	LATIN SMALL LETTER TURNED M
+00270	LATIN SMALL LETTER TURNED M WITH LONG LEG
+00271	LATIN SMALL LETTER M WITH HOOK
+00272	LATIN SMALL LETTER N WITH LEFT HOOK
+00273	LATIN SMALL LETTER N WITH RETROFLEX HOOK
+00274	LATIN LETTER SMALL CAPITAL N
+00275	LATIN SMALL LETTER BARRED O
+00276	LATIN LETTER SMALL CAPITAL OE
+00277	LATIN SMALL LETTER CLOSED OMEGA
+00278	LATIN SMALL LETTER PHI
+00279	LATIN SMALL LETTER TURNED R
+0027A	LATIN SMALL LETTER TURNED R WITH LONG LEG
+0027B	LATIN SMALL LETTER TURNED R WITH HOOK
+0027C	LATIN SMALL LETTER R WITH LONG LEG
+0027D	LATIN SMALL LETTER R WITH TAIL
+0027E	LATIN SMALL LETTER R WITH FISHHOOK
+0027F	LATIN SMALL LETTER REVERSED R WITH FISHHOOK
+00280	LATIN LETTER SMALL CAPITAL R
+00281	LATIN LETTER SMALL CAPITAL INVERTED R
+00282	LATIN SMALL LETTER S WITH HOOK
+00283	LATIN SMALL LETTER ESH
+00284	LATIN SMALL LETTER DOTLESS J WITH STROKE AND HOOK
+00285	LATIN SMALL LETTER SQUAT REVERSED ESH
+00286	LATIN SMALL LETTER ESH WITH CURL
+00287	LATIN SMALL LETTER TURNED T
+00288	LATIN SMALL LETTER T WITH RETROFLEX HOOK
+00289	LATIN SMALL LETTER U BAR
+0028A	LATIN SMALL LETTER UPSILON
+0028B	LATIN SMALL LETTER V WITH HOOK
+0028C	LATIN SMALL LETTER TURNED V
+0028D	LATIN SMALL LETTER TURNED W
+0028E	LATIN SMALL LETTER TURNED Y
+0028F	LATIN LETTER SMALL CAPITAL Y
+00290	LATIN SMALL LETTER Z WITH RETROFLEX HOOK
+00291	LATIN SMALL LETTER Z WITH CURL
+00292	LATIN SMALL LETTER EZH
+00293	LATIN SMALL LETTER EZH WITH CURL
+00294	LATIN LETTER GLOTTAL STOP
+00295	LATIN LETTER PHARYNGEAL VOICED FRICATIVE
+00296	LATIN LETTER INVERTED GLOTTAL STOP
+00297	LATIN LETTER STRETCHED C
+00298	LATIN LETTER BILABIAL CLICK
+00299	LATIN LETTER SMALL CAPITAL B
+0029A	LATIN SMALL LETTER CLOSED OPEN E
+0029B	LATIN LETTER SMALL CAPITAL G WITH HOOK
+0029C	LATIN LETTER SMALL CAPITAL H
+0029D	LATIN SMALL LETTER J WITH CROSSED-TAIL
+0029E	LATIN SMALL LETTER TURNED K
+0029F	LATIN LETTER SMALL CAPITAL L
+002A0	LATIN SMALL LETTER Q WITH HOOK
+002A1	LATIN LETTER GLOTTAL STOP WITH STROKE
+002A2	LATIN LETTER REVERSED GLOTTAL STOP WITH STROKE
+002A3	LATIN SMALL LETTER DZ DIGRAPH
+002A4	LATIN SMALL LETTER DEZH DIGRAPH
+002A5	LATIN SMALL LETTER DZ DIGRAPH WITH CURL
+002A6	LATIN SMALL LETTER TS DIGRAPH
+002A7	LATIN SMALL LETTER TESH DIGRAPH
+002A8	LATIN SMALL LETTER TC DIGRAPH WITH CURL
+002A9	LATIN SMALL LETTER FENG DIGRAPH
+002AA	LATIN SMALL LETTER LS DIGRAPH
+002AB	LATIN SMALL LETTER LZ DIGRAPH
+002AC	LATIN LETTER BILABIAL PERCUSSIVE
+002AD	LATIN LETTER BIDENTAL PERCUSSIVE
+002AE	LATIN SMALL LETTER TURNED H WITH FISHHOOK
+002AF	LATIN SMALL LETTER TURNED H WITH FISHHOOK AND TAIL
+002B0	MODIFIER LETTER SMALL H
+002B1	MODIFIER LETTER SMALL H WITH HOOK
+002B2	MODIFIER LETTER SMALL J
+002B3	MODIFIER LETTER SMALL R
+002B4	MODIFIER LETTER SMALL TURNED R
+002B5	MODIFIER LETTER SMALL TURNED R WITH HOOK
+002B6	MODIFIER LETTER SMALL CAPITAL INVERTED R
+002B7	MODIFIER LETTER SMALL W
+002B8	MODIFIER LETTER SMALL Y
+002B9	MODIFIER LETTER PRIME
+002BA	MODIFIER LETTER DOUBLE PRIME
+002BB	MODIFIER LETTER TURNED COMMA
+002BC	MODIFIER LETTER APOSTROPHE
+002BD	MODIFIER LETTER REVERSED COMMA
+002BE	MODIFIER LETTER RIGHT HALF RING
+002BF	MODIFIER LETTER LEFT HALF RING
+002C0	MODIFIER LETTER GLOTTAL STOP
+002C1	MODIFIER LETTER REVERSED GLOTTAL STOP
+002C2	MODIFIER LETTER LEFT ARROWHEAD
+002C3	MODIFIER LETTER RIGHT ARROWHEAD
+002C4	MODIFIER LETTER UP ARROWHEAD
+002C5	MODIFIER LETTER DOWN ARROWHEAD
+002C6	MODIFIER LETTER CIRCUMFLEX ACCENT
+002C7	CARON
+002C8	MODIFIER LETTER VERTICAL LINE
+002C9	MODIFIER LETTER MACRON
+002CA	MODIFIER LETTER ACUTE ACCENT
+002CB	MODIFIER LETTER GRAVE ACCENT
+002CC	MODIFIER LETTER LOW VERTICAL LINE
+002CD	MODIFIER LETTER LOW MACRON
+002CE	MODIFIER LETTER LOW GRAVE ACCENT
+002CF	MODIFIER LETTER LOW ACUTE ACCENT
+002D0	MODIFIER LETTER TRIANGULAR COLON
+002D1	MODIFIER LETTER HALF TRIANGULAR COLON
+002D2	MODIFIER LETTER CENTRED RIGHT HALF RING
+002D3	MODIFIER LETTER CENTRED LEFT HALF RING
+002D4	MODIFIER LETTER UP TACK
+002D5	MODIFIER LETTER DOWN TACK
+002D6	MODIFIER LETTER PLUS SIGN
+002D7	MODIFIER LETTER MINUS SIGN
+002D8	BREVE
+002D9	DOT ABOVE
+002DA	RING ABOVE
+002DB	OGONEK
+002DC	SMALL TILDE
+002DD	DOUBLE ACUTE ACCENT
+002DE	MODIFIER LETTER RHOTIC HOOK
+002DF	MODIFIER LETTER CROSS ACCENT
+002E0	MODIFIER LETTER SMALL GAMMA
+002E1	MODIFIER LETTER SMALL L
+002E2	MODIFIER LETTER SMALL S
+002E3	MODIFIER LETTER SMALL X
+002E4	MODIFIER LETTER SMALL REVERSED GLOTTAL STOP
+002E5	MODIFIER LETTER EXTRA-HIGH TONE BAR
+002E6	MODIFIER LETTER HIGH TONE BAR
+002E7	MODIFIER LETTER MID TONE BAR
+002E8	MODIFIER LETTER LOW TONE BAR
+002E9	MODIFIER LETTER EXTRA-LOW TONE BAR
+002EA	MODIFIER LETTER YIN DEPARTING TONE MARK
+002EB	MODIFIER LETTER YANG DEPARTING TONE MARK
+002EC	MODIFIER LETTER VOICING
+002ED	MODIFIER LETTER UNASPIRATED
+002EE	MODIFIER LETTER DOUBLE APOSTROPHE
+002EF	MODIFIER LETTER LOW DOWN ARROWHEAD
+002F0	MODIFIER LETTER LOW UP ARROWHEAD
+002F1	MODIFIER LETTER LOW LEFT ARROWHEAD
+002F2	MODIFIER LETTER LOW RIGHT ARROWHEAD
+002F3	MODIFIER LETTER LOW RING
+002F4	MODIFIER LETTER MIDDLE GRAVE ACCENT
+002F5	MODIFIER LETTER MIDDLE DOUBLE GRAVE ACCENT
+002F6	MODIFIER LETTER MIDDLE DOUBLE ACUTE ACCENT
+002F7	MODIFIER LETTER LOW TILDE
+002F8	MODIFIER LETTER RAISED COLON
+002F9	MODIFIER LETTER BEGIN HIGH TONE
+002FA	MODIFIER LETTER END HIGH TONE
+002FB	MODIFIER LETTER BEGIN LOW TONE
+002FC	MODIFIER LETTER END LOW TONE
+002FD	MODIFIER LETTER SHELF
+002FE	MODIFIER LETTER OPEN SHELF
+002FF	MODIFIER LETTER LOW LEFT ARROW
+00300	COMBINING GRAVE ACCENT
+00301	COMBINING ACUTE ACCENT
+00302	COMBINING CIRCUMFLEX ACCENT
+00303	COMBINING TILDE
+00304	COMBINING MACRON
+00305	COMBINING OVERLINE
+00306	COMBINING BREVE
+00307	COMBINING DOT ABOVE
+00308	COMBINING DIAERESIS
+00309	COMBINING HOOK ABOVE
+0030A	COMBINING RING ABOVE
+0030B	COMBINING DOUBLE ACUTE ACCENT
+0030C	COMBINING CARON
+0030D	COMBINING VERTICAL LINE ABOVE
+0030E	COMBINING DOUBLE VERTICAL LINE ABOVE
+0030F	COMBINING DOUBLE GRAVE ACCENT
+00310	COMBINING CANDRABINDU
+00311	COMBINING INVERTED BREVE
+00312	COMBINING TURNED COMMA ABOVE
+00313	COMBINING COMMA ABOVE
+00314	COMBINING REVERSED COMMA ABOVE
+00315	COMBINING COMMA ABOVE RIGHT
+00316	COMBINING GRAVE ACCENT BELOW
+00317	COMBINING ACUTE ACCENT BELOW
+00318	COMBINING LEFT TACK BELOW
+00319	COMBINING RIGHT TACK BELOW
+0031A	COMBINING LEFT ANGLE ABOVE
+0031B	COMBINING HORN
+0031C	COMBINING LEFT HALF RING BELOW
+0031D	COMBINING UP TACK BELOW
+0031E	COMBINING DOWN TACK BELOW
+0031F	COMBINING PLUS SIGN BELOW
+00320	COMBINING MINUS SIGN BELOW
+00321	COMBINING PALATALIZED HOOK BELOW
+00322	COMBINING RETROFLEX HOOK BELOW
+00323	COMBINING DOT BELOW
+00324	COMBINING DIAERESIS BELOW
+00325	COMBINING RING BELOW
+00326	COMBINING COMMA BELOW
+00327	COMBINING CEDILLA
+00328	COMBINING OGONEK
+00329	COMBINING VERTICAL LINE BELOW
+0032A	COMBINING BRIDGE BELOW
+0032B	COMBINING INVERTED DOUBLE ARCH BELOW
+0032C	COMBINING CARON BELOW
+0032D	COMBINING CIRCUMFLEX ACCENT BELOW
+0032E	COMBINING BREVE BELOW
+0032F	COMBINING INVERTED BREVE BELOW
+00330	COMBINING TILDE BELOW
+00331	COMBINING MACRON BELOW
+00332	COMBINING LOW LINE
+00333	COMBINING DOUBLE LOW LINE
+00334	COMBINING TILDE OVERLAY
+00335	COMBINING SHORT STROKE OVERLAY
+00336	COMBINING LONG STROKE OVERLAY
+00337	COMBINING SHORT SOLIDUS OVERLAY
+00338	COMBINING LONG SOLIDUS OVERLAY
+00339	COMBINING RIGHT HALF RING BELOW
+0033A	COMBINING INVERTED BRIDGE BELOW
+0033B	COMBINING SQUARE BELOW
+0033C	COMBINING SEAGULL BELOW
+0033D	COMBINING X ABOVE
+0033E	COMBINING VERTICAL TILDE
+0033F	COMBINING DOUBLE OVERLINE
+00340	COMBINING GRAVE TONE MARK
+00341	COMBINING ACUTE TONE MARK
+00342	COMBINING GREEK PERISPOMENI
+00343	COMBINING GREEK KORONIS
+00344	COMBINING GREEK DIALYTIKA TONOS
+00345	COMBINING GREEK YPOGEGRAMMENI
+00346	COMBINING BRIDGE ABOVE
+00347	COMBINING EQUALS SIGN BELOW
+00348	COMBINING DOUBLE VERTICAL LINE BELOW
+00349	COMBINING LEFT ANGLE BELOW
+0034A	COMBINING NOT TILDE ABOVE
+0034B	COMBINING HOMOTHETIC ABOVE
+0034C	COMBINING ALMOST EQUAL TO ABOVE
+0034D	COMBINING LEFT RIGHT ARROW BELOW
+0034E	COMBINING UPWARDS ARROW BELOW
+0034F	COMBINING GRAPHEME JOINER
+0034F	CGJ
+00350	COMBINING RIGHT ARROWHEAD ABOVE
+00351	COMBINING LEFT HALF RING ABOVE
+00352	COMBINING FERMATA
+00353	COMBINING X BELOW
+00354	COMBINING LEFT ARROWHEAD BELOW
+00355	COMBINING RIGHT ARROWHEAD BELOW
+00356	COMBINING RIGHT ARROWHEAD AND UP ARROWHEAD BELOW
+00357	COMBINING RIGHT HALF RING ABOVE
+00358	COMBINING DOT ABOVE RIGHT
+00359	COMBINING ASTERISK BELOW
+0035A	COMBINING DOUBLE RING BELOW
+0035B	COMBINING ZIGZAG ABOVE
+0035C	COMBINING DOUBLE BREVE BELOW
+0035D	COMBINING DOUBLE BREVE
+0035E	COMBINING DOUBLE MACRON
+0035F	COMBINING DOUBLE MACRON BELOW
+00360	COMBINING DOUBLE TILDE
+00361	COMBINING DOUBLE INVERTED BREVE
+00362	COMBINING DOUBLE RIGHTWARDS ARROW BELOW
+00363	COMBINING LATIN SMALL LETTER A
+00364	COMBINING LATIN SMALL LETTER E
+00365	COMBINING LATIN SMALL LETTER I
+00366	COMBINING LATIN SMALL LETTER O
+00367	COMBINING LATIN SMALL LETTER U
+00368	COMBINING LATIN SMALL LETTER C
+00369	COMBINING LATIN SMALL LETTER D
+0036A	COMBINING LATIN SMALL LETTER H
+0036B	COMBINING LATIN SMALL LETTER M
+0036C	COMBINING LATIN SMALL LETTER R
+0036D	COMBINING LATIN SMALL LETTER T
+0036E	COMBINING LATIN SMALL LETTER V
+0036F	COMBINING LATIN SMALL LETTER X
+00370	GREEK CAPITAL LETTER HETA
+00371	GREEK SMALL LETTER HETA
+00372	GREEK CAPITAL LETTER ARCHAIC SAMPI
+00373	GREEK SMALL LETTER ARCHAIC SAMPI
+00374	GREEK NUMERAL SIGN
+00375	GREEK LOWER NUMERAL SIGN
+00376	GREEK CAPITAL LETTER PAMPHYLIAN DIGAMMA
+00377	GREEK SMALL LETTER PAMPHYLIAN DIGAMMA
+0037A	GREEK YPOGEGRAMMENI
+0037B	GREEK SMALL REVERSED LUNATE SIGMA SYMBOL
+0037C	GREEK SMALL DOTTED LUNATE SIGMA SYMBOL
+0037D	GREEK SMALL REVERSED DOTTED LUNATE SIGMA SYMBOL
+0037E	GREEK QUESTION MARK
+0037F	GREEK CAPITAL LETTER YOT
+00384	GREEK TONOS
+00385	GREEK DIALYTIKA TONOS
+00386	GREEK CAPITAL LETTER ALPHA WITH TONOS
+00387	GREEK ANO TELEIA
+00388	GREEK CAPITAL LETTER EPSILON WITH TONOS
+00389	GREEK CAPITAL LETTER ETA WITH TONOS
+0038A	GREEK CAPITAL LETTER IOTA WITH TONOS
+0038C	GREEK CAPITAL LETTER OMICRON WITH TONOS
+0038E	GREEK CAPITAL LETTER UPSILON WITH TONOS
+0038F	GREEK CAPITAL LETTER OMEGA WITH TONOS
+00390	GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS
+00391	GREEK CAPITAL LETTER ALPHA
+00392	GREEK CAPITAL LETTER BETA
+00393	GREEK CAPITAL LETTER GAMMA
+00394	GREEK CAPITAL LETTER DELTA
+00395	GREEK CAPITAL LETTER EPSILON
+00396	GREEK CAPITAL LETTER ZETA
+00397	GREEK CAPITAL LETTER ETA
+00398	GREEK CAPITAL LETTER THETA
+00399	GREEK CAPITAL LETTER IOTA
+0039A	GREEK CAPITAL LETTER KAPPA
+0039B	GREEK CAPITAL LETTER LAMDA
+0039C	GREEK CAPITAL LETTER MU
+0039D	GREEK CAPITAL LETTER NU
+0039E	GREEK CAPITAL LETTER XI
+0039F	GREEK CAPITAL LETTER OMICRON
+003A0	GREEK CAPITAL LETTER PI
+003A1	GREEK CAPITAL LETTER RHO
+003A3	GREEK CAPITAL LETTER SIGMA
+003A4	GREEK CAPITAL LETTER TAU
+003A5	GREEK CAPITAL LETTER UPSILON
+003A6	GREEK CAPITAL LETTER PHI
+003A7	GREEK CAPITAL LETTER CHI
+003A8	GREEK CAPITAL LETTER PSI
+003A9	GREEK CAPITAL LETTER OMEGA
+003AA	GREEK CAPITAL LETTER IOTA WITH DIALYTIKA
+003AB	GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA
+003AC	GREEK SMALL LETTER ALPHA WITH TONOS
+003AD	GREEK SMALL LETTER EPSILON WITH TONOS
+003AE	GREEK SMALL LETTER ETA WITH TONOS
+003AF	GREEK SMALL LETTER IOTA WITH TONOS
+003B0	GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS
+003B1	GREEK SMALL LETTER ALPHA
+003B2	GREEK SMALL LETTER BETA
+003B3	GREEK SMALL LETTER GAMMA
+003B4	GREEK SMALL LETTER DELTA
+003B5	GREEK SMALL LETTER EPSILON
+003B6	GREEK SMALL LETTER ZETA
+003B7	GREEK SMALL LETTER ETA
+003B8	GREEK SMALL LETTER THETA
+003B9	GREEK SMALL LETTER IOTA
+003BA	GREEK SMALL LETTER KAPPA
+003BB	GREEK SMALL LETTER LAMDA
+003BC	GREEK SMALL LETTER MU
+003BD	GREEK SMALL LETTER NU
+003BE	GREEK SMALL LETTER XI
+003BF	GREEK SMALL LETTER OMICRON
+003C0	GREEK SMALL LETTER PI
+003C1	GREEK SMALL LETTER RHO
+003C2	GREEK SMALL LETTER FINAL SIGMA
+003C3	GREEK SMALL LETTER SIGMA
+003C4	GREEK SMALL LETTER TAU
+003C5	GREEK SMALL LETTER UPSILON
+003C6	GREEK SMALL LETTER PHI
+003C7	GREEK SMALL LETTER CHI
+003C8	GREEK SMALL LETTER PSI
+003C9	GREEK SMALL LETTER OMEGA
+003CA	GREEK SMALL LETTER IOTA WITH DIALYTIKA
+003CB	GREEK SMALL LETTER UPSILON WITH DIALYTIKA
+003CC	GREEK SMALL LETTER OMICRON WITH TONOS
+003CD	GREEK SMALL LETTER UPSILON WITH TONOS
+003CE	GREEK SMALL LETTER OMEGA WITH TONOS
+003CF	GREEK CAPITAL KAI SYMBOL
+003D0	GREEK BETA SYMBOL
+003D1	GREEK THETA SYMBOL
+003D2	GREEK UPSILON WITH HOOK SYMBOL
+003D3	GREEK UPSILON WITH ACUTE AND HOOK SYMBOL
+003D4	GREEK UPSILON WITH DIAERESIS AND HOOK SYMBOL
+003D5	GREEK PHI SYMBOL
+003D6	GREEK PI SYMBOL
+003D7	GREEK KAI SYMBOL
+003D8	GREEK LETTER ARCHAIC KOPPA
+003D9	GREEK SMALL LETTER ARCHAIC KOPPA
+003DA	GREEK LETTER STIGMA
+003DB	GREEK SMALL LETTER STIGMA
+003DC	GREEK LETTER DIGAMMA
+003DD	GREEK SMALL LETTER DIGAMMA
+003DE	GREEK LETTER KOPPA
+003DF	GREEK SMALL LETTER KOPPA
+003E0	GREEK LETTER SAMPI
+003E1	GREEK SMALL LETTER SAMPI
+003E2	COPTIC CAPITAL LETTER SHEI
+003E3	COPTIC SMALL LETTER SHEI
+003E4	COPTIC CAPITAL LETTER FEI
+003E5	COPTIC SMALL LETTER FEI
+003E6	COPTIC CAPITAL LETTER KHEI
+003E7	COPTIC SMALL LETTER KHEI
+003E8	COPTIC CAPITAL LETTER HORI
+003E9	COPTIC SMALL LETTER HORI
+003EA	COPTIC CAPITAL LETTER GANGIA
+003EB	COPTIC SMALL LETTER GANGIA
+003EC	COPTIC CAPITAL LETTER SHIMA
+003ED	COPTIC SMALL LETTER SHIMA
+003EE	COPTIC CAPITAL LETTER DEI
+003EF	COPTIC SMALL LETTER DEI
+003F0	GREEK KAPPA SYMBOL
+003F1	GREEK RHO SYMBOL
+003F2	GREEK LUNATE SIGMA SYMBOL
+003F3	GREEK LETTER YOT
+003F4	GREEK CAPITAL THETA SYMBOL
+003F5	GREEK LUNATE EPSILON SYMBOL
+003F6	GREEK REVERSED LUNATE EPSILON SYMBOL
+003F7	GREEK CAPITAL LETTER SHO
+003F8	GREEK SMALL LETTER SHO
+003F9	GREEK CAPITAL LUNATE SIGMA SYMBOL
+003FA	GREEK CAPITAL LETTER SAN
+003FB	GREEK SMALL LETTER SAN
+003FC	GREEK RHO WITH STROKE SYMBOL
+003FD	GREEK CAPITAL REVERSED LUNATE SIGMA SYMBOL
+003FE	GREEK CAPITAL DOTTED LUNATE SIGMA SYMBOL
+003FF	GREEK CAPITAL REVERSED DOTTED LUNATE SIGMA SYMBOL
+00400	CYRILLIC CAPITAL LETTER IE WITH GRAVE
+00401	CYRILLIC CAPITAL LETTER IO
+00402	CYRILLIC CAPITAL LETTER DJE
+00403	CYRILLIC CAPITAL LETTER GJE
+00404	CYRILLIC CAPITAL LETTER UKRAINIAN IE
+00405	CYRILLIC CAPITAL LETTER DZE
+00406	CYRILLIC CAPITAL LETTER BYELORUSSIAN-UKRAINIAN I
+00407	CYRILLIC CAPITAL LETTER YI
+00408	CYRILLIC CAPITAL LETTER JE
+00409	CYRILLIC CAPITAL LETTER LJE
+0040A	CYRILLIC CAPITAL LETTER NJE
+0040B	CYRILLIC CAPITAL LETTER TSHE
+0040C	CYRILLIC CAPITAL LETTER KJE
+0040D	CYRILLIC CAPITAL LETTER I WITH GRAVE
+0040E	CYRILLIC CAPITAL LETTER SHORT U
+0040F	CYRILLIC CAPITAL LETTER DZHE
+00410	CYRILLIC CAPITAL LETTER A
+00411	CYRILLIC CAPITAL LETTER BE
+00412	CYRILLIC CAPITAL LETTER VE
+00413	CYRILLIC CAPITAL LETTER GHE
+00414	CYRILLIC CAPITAL LETTER DE
+00415	CYRILLIC CAPITAL LETTER IE
+00416	CYRILLIC CAPITAL LETTER ZHE
+00417	CYRILLIC CAPITAL LETTER ZE
+00418	CYRILLIC CAPITAL LETTER I
+00419	CYRILLIC CAPITAL LETTER SHORT I
+0041A	CYRILLIC CAPITAL LETTER KA
+0041B	CYRILLIC CAPITAL LETTER EL
+0041C	CYRILLIC CAPITAL LETTER EM
+0041D	CYRILLIC CAPITAL LETTER EN
+0041E	CYRILLIC CAPITAL LETTER O
+0041F	CYRILLIC CAPITAL LETTER PE
+00420	CYRILLIC CAPITAL LETTER ER
+00421	CYRILLIC CAPITAL LETTER ES
+00422	CYRILLIC CAPITAL LETTER TE
+00423	CYRILLIC CAPITAL LETTER U
+00424	CYRILLIC CAPITAL LETTER EF
+00425	CYRILLIC CAPITAL LETTER HA
+00426	CYRILLIC CAPITAL LETTER TSE
+00427	CYRILLIC CAPITAL LETTER CHE
+00428	CYRILLIC CAPITAL LETTER SHA
+00429	CYRILLIC CAPITAL LETTER SHCHA
+0042A	CYRILLIC CAPITAL LETTER HARD SIGN
+0042B	CYRILLIC CAPITAL LETTER YERU
+0042C	CYRILLIC CAPITAL LETTER SOFT SIGN
+0042D	CYRILLIC CAPITAL LETTER E
+0042E	CYRILLIC CAPITAL LETTER YU
+0042F	CYRILLIC CAPITAL LETTER YA
+00430	CYRILLIC SMALL LETTER A
+00431	CYRILLIC SMALL LETTER BE
+00432	CYRILLIC SMALL LETTER VE
+00433	CYRILLIC SMALL LETTER GHE
+00434	CYRILLIC SMALL LETTER DE
+00435	CYRILLIC SMALL LETTER IE
+00436	CYRILLIC SMALL LETTER ZHE
+00437	CYRILLIC SMALL LETTER ZE
+00438	CYRILLIC SMALL LETTER I
+00439	CYRILLIC SMALL LETTER SHORT I
+0043A	CYRILLIC SMALL LETTER KA
+0043B	CYRILLIC SMALL LETTER EL
+0043C	CYRILLIC SMALL LETTER EM
+0043D	CYRILLIC SMALL LETTER EN
+0043E	CYRILLIC SMALL LETTER O
+0043F	CYRILLIC SMALL LETTER PE
+00440	CYRILLIC SMALL LETTER ER
+00441	CYRILLIC SMALL LETTER ES
+00442	CYRILLIC SMALL LETTER TE
+00443	CYRILLIC SMALL LETTER U
+00444	CYRILLIC SMALL LETTER EF
+00445	CYRILLIC SMALL LETTER HA
+00446	CYRILLIC SMALL LETTER TSE
+00447	CYRILLIC SMALL LETTER CHE
+00448	CYRILLIC SMALL LETTER SHA
+00449	CYRILLIC SMALL LETTER SHCHA
+0044A	CYRILLIC SMALL LETTER HARD SIGN
+0044B	CYRILLIC SMALL LETTER YERU
+0044C	CYRILLIC SMALL LETTER SOFT SIGN
+0044D	CYRILLIC SMALL LETTER E
+0044E	CYRILLIC SMALL LETTER YU
+0044F	CYRILLIC SMALL LETTER YA
+00450	CYRILLIC SMALL LETTER IE WITH GRAVE
+00451	CYRILLIC SMALL LETTER IO
+00452	CYRILLIC SMALL LETTER DJE
+00453	CYRILLIC SMALL LETTER GJE
+00454	CYRILLIC SMALL LETTER UKRAINIAN IE
+00455	CYRILLIC SMALL LETTER DZE
+00456	CYRILLIC SMALL LETTER BYELORUSSIAN-UKRAINIAN I
+00457	CYRILLIC SMALL LETTER YI
+00458	CYRILLIC SMALL LETTER JE
+00459	CYRILLIC SMALL LETTER LJE
+0045A	CYRILLIC SMALL LETTER NJE
+0045B	CYRILLIC SMALL LETTER TSHE
+0045C	CYRILLIC SMALL LETTER KJE
+0045D	CYRILLIC SMALL LETTER I WITH GRAVE
+0045E	CYRILLIC SMALL LETTER SHORT U
+0045F	CYRILLIC SMALL LETTER DZHE
+00460	CYRILLIC CAPITAL LETTER OMEGA
+00461	CYRILLIC SMALL LETTER OMEGA
+00462	CYRILLIC CAPITAL LETTER YAT
+00463	CYRILLIC SMALL LETTER YAT
+00464	CYRILLIC CAPITAL LETTER IOTIFIED E
+00465	CYRILLIC SMALL LETTER IOTIFIED E
+00466	CYRILLIC CAPITAL LETTER LITTLE YUS
+00467	CYRILLIC SMALL LETTER LITTLE YUS
+00468	CYRILLIC CAPITAL LETTER IOTIFIED LITTLE YUS
+00469	CYRILLIC SMALL LETTER IOTIFIED LITTLE YUS
+0046A	CYRILLIC CAPITAL LETTER BIG YUS
+0046B	CYRILLIC SMALL LETTER BIG YUS
+0046C	CYRILLIC CAPITAL LETTER IOTIFIED BIG YUS
+0046D	CYRILLIC SMALL LETTER IOTIFIED BIG YUS
+0046E	CYRILLIC CAPITAL LETTER KSI
+0046F	CYRILLIC SMALL LETTER KSI
+00470	CYRILLIC CAPITAL LETTER PSI
+00471	CYRILLIC SMALL LETTER PSI
+00472	CYRILLIC CAPITAL LETTER FITA
+00473	CYRILLIC SMALL LETTER FITA
+00474	CYRILLIC CAPITAL LETTER IZHITSA
+00475	CYRILLIC SMALL LETTER IZHITSA
+00476	CYRILLIC CAPITAL LETTER IZHITSA WITH DOUBLE GRAVE ACCENT
+00477	CYRILLIC SMALL LETTER IZHITSA WITH DOUBLE GRAVE ACCENT
+00478	CYRILLIC CAPITAL LETTER UK
+00479	CYRILLIC SMALL LETTER UK
+0047A	CYRILLIC CAPITAL LETTER ROUND OMEGA
+0047B	CYRILLIC SMALL LETTER ROUND OMEGA
+0047C	CYRILLIC CAPITAL LETTER OMEGA WITH TITLO
+0047D	CYRILLIC SMALL LETTER OMEGA WITH TITLO
+0047E	CYRILLIC CAPITAL LETTER OT
+0047F	CYRILLIC SMALL LETTER OT
+00480	CYRILLIC CAPITAL LETTER KOPPA
+00481	CYRILLIC SMALL LETTER KOPPA
+00482	CYRILLIC THOUSANDS SIGN
+00483	COMBINING CYRILLIC TITLO
+00484	COMBINING CYRILLIC PALATALIZATION
+00485	COMBINING CYRILLIC DASIA PNEUMATA
+00486	COMBINING CYRILLIC PSILI PNEUMATA
+00487	COMBINING CYRILLIC POKRYTIE
+00488	COMBINING CYRILLIC HUNDRED THOUSANDS SIGN
+00489	COMBINING CYRILLIC MILLIONS SIGN
+0048A	CYRILLIC CAPITAL LETTER SHORT I WITH TAIL
+0048B	CYRILLIC SMALL LETTER SHORT I WITH TAIL
+0048C	CYRILLIC CAPITAL LETTER SEMISOFT SIGN
+0048D	CYRILLIC SMALL LETTER SEMISOFT SIGN
+0048E	CYRILLIC CAPITAL LETTER ER WITH TICK
+0048F	CYRILLIC SMALL LETTER ER WITH TICK
+00490	CYRILLIC CAPITAL LETTER GHE WITH UPTURN
+00491	CYRILLIC SMALL LETTER GHE WITH UPTURN
+00492	CYRILLIC CAPITAL LETTER GHE WITH STROKE
+00493	CYRILLIC SMALL LETTER GHE WITH STROKE
+00494	CYRILLIC CAPITAL LETTER GHE WITH MIDDLE HOOK
+00495	CYRILLIC SMALL LETTER GHE WITH MIDDLE HOOK
+00496	CYRILLIC CAPITAL LETTER ZHE WITH DESCENDER
+00497	CYRILLIC SMALL LETTER ZHE WITH DESCENDER
+00498	CYRILLIC CAPITAL LETTER ZE WITH DESCENDER
+00499	CYRILLIC SMALL LETTER ZE WITH DESCENDER
+0049A	CYRILLIC CAPITAL LETTER KA WITH DESCENDER
+0049B	CYRILLIC SMALL LETTER KA WITH DESCENDER
+0049C	CYRILLIC CAPITAL LETTER KA WITH VERTICAL STROKE
+0049D	CYRILLIC SMALL LETTER KA WITH VERTICAL STROKE
+0049E	CYRILLIC CAPITAL LETTER KA WITH STROKE
+0049F	CYRILLIC SMALL LETTER KA WITH STROKE
+004A0	CYRILLIC CAPITAL LETTER BASHKIR KA
+004A1	CYRILLIC SMALL LETTER BASHKIR KA
+004A2	CYRILLIC CAPITAL LETTER EN WITH DESCENDER
+004A3	CYRILLIC SMALL LETTER EN WITH DESCENDER
+004A4	CYRILLIC CAPITAL LIGATURE EN GHE
+004A5	CYRILLIC SMALL LIGATURE EN GHE
+004A6	CYRILLIC CAPITAL LETTER PE WITH MIDDLE HOOK
+004A7	CYRILLIC SMALL LETTER PE WITH MIDDLE HOOK
+004A8	CYRILLIC CAPITAL LETTER ABKHASIAN HA
+004A9	CYRILLIC SMALL LETTER ABKHASIAN HA
+004AA	CYRILLIC CAPITAL LETTER ES WITH DESCENDER
+004AB	CYRILLIC SMALL LETTER ES WITH DESCENDER
+004AC	CYRILLIC CAPITAL LETTER TE WITH DESCENDER
+004AD	CYRILLIC SMALL LETTER TE WITH DESCENDER
+004AE	CYRILLIC CAPITAL LETTER STRAIGHT U
+004AF	CYRILLIC SMALL LETTER STRAIGHT U
+004B0	CYRILLIC CAPITAL LETTER STRAIGHT U WITH STROKE
+004B1	CYRILLIC SMALL LETTER STRAIGHT U WITH STROKE
+004B2	CYRILLIC CAPITAL LETTER HA WITH DESCENDER
+004B3	CYRILLIC SMALL LETTER HA WITH DESCENDER
+004B4	CYRILLIC CAPITAL LIGATURE TE TSE
+004B5	CYRILLIC SMALL LIGATURE TE TSE
+004B6	CYRILLIC CAPITAL LETTER CHE WITH DESCENDER
+004B7	CYRILLIC SMALL LETTER CHE WITH DESCENDER
+004B8	CYRILLIC CAPITAL LETTER CHE WITH VERTICAL STROKE
+004B9	CYRILLIC SMALL LETTER CHE WITH VERTICAL STROKE
+004BA	CYRILLIC CAPITAL LETTER SHHA
+004BB	CYRILLIC SMALL LETTER SHHA
+004BC	CYRILLIC CAPITAL LETTER ABKHASIAN CHE
+004BD	CYRILLIC SMALL LETTER ABKHASIAN CHE
+004BE	CYRILLIC CAPITAL LETTER ABKHASIAN CHE WITH DESCENDER
+004BF	CYRILLIC SMALL LETTER ABKHASIAN CHE WITH DESCENDER
+004C0	CYRILLIC LETTER PALOCHKA
+004C1	CYRILLIC CAPITAL LETTER ZHE WITH BREVE
+004C2	CYRILLIC SMALL LETTER ZHE WITH BREVE
+004C3	CYRILLIC CAPITAL LETTER KA WITH HOOK
+004C4	CYRILLIC SMALL LETTER KA WITH HOOK
+004C5	CYRILLIC CAPITAL LETTER EL WITH TAIL
+004C6	CYRILLIC SMALL LETTER EL WITH TAIL
+004C7	CYRILLIC CAPITAL LETTER EN WITH HOOK
+004C8	CYRILLIC SMALL LETTER EN WITH HOOK
+004C9	CYRILLIC CAPITAL LETTER EN WITH TAIL
+004CA	CYRILLIC SMALL LETTER EN WITH TAIL
+004CB	CYRILLIC CAPITAL LETTER KHAKASSIAN CHE
+004CC	CYRILLIC SMALL LETTER KHAKASSIAN CHE
+004CD	CYRILLIC CAPITAL LETTER EM WITH TAIL
+004CE	CYRILLIC SMALL LETTER EM WITH TAIL
+004CF	CYRILLIC SMALL LETTER PALOCHKA
+004D0	CYRILLIC CAPITAL LETTER A WITH BREVE
+004D1	CYRILLIC SMALL LETTER A WITH BREVE
+004D2	CYRILLIC CAPITAL LETTER A WITH DIAERESIS
+004D3	CYRILLIC SMALL LETTER A WITH DIAERESIS
+004D4	CYRILLIC CAPITAL LIGATURE A IE
+004D5	CYRILLIC SMALL LIGATURE A IE
+004D6	CYRILLIC CAPITAL LETTER IE WITH BREVE
+004D7	CYRILLIC SMALL LETTER IE WITH BREVE
+004D8	CYRILLIC CAPITAL LETTER SCHWA
+004D9	CYRILLIC SMALL LETTER SCHWA
+004DA	CYRILLIC CAPITAL LETTER SCHWA WITH DIAERESIS
+004DB	CYRILLIC SMALL LETTER SCHWA WITH DIAERESIS
+004DC	CYRILLIC CAPITAL LETTER ZHE WITH DIAERESIS
+004DD	CYRILLIC SMALL LETTER ZHE WITH DIAERESIS
+004DE	CYRILLIC CAPITAL LETTER ZE WITH DIAERESIS
+004DF	CYRILLIC SMALL LETTER ZE WITH DIAERESIS
+004E0	CYRILLIC CAPITAL LETTER ABKHASIAN DZE
+004E1	CYRILLIC SMALL LETTER ABKHASIAN DZE
+004E2	CYRILLIC CAPITAL LETTER I WITH MACRON
+004E3	CYRILLIC SMALL LETTER I WITH MACRON
+004E4	CYRILLIC CAPITAL LETTER I WITH DIAERESIS
+004E5	CYRILLIC SMALL LETTER I WITH DIAERESIS
+004E6	CYRILLIC CAPITAL LETTER O WITH DIAERESIS
+004E7	CYRILLIC SMALL LETTER O WITH DIAERESIS
+004E8	CYRILLIC CAPITAL LETTER BARRED O
+004E9	CYRILLIC SMALL LETTER BARRED O
+004EA	CYRILLIC CAPITAL LETTER BARRED O WITH DIAERESIS
+004EB	CYRILLIC SMALL LETTER BARRED O WITH DIAERESIS
+004EC	CYRILLIC CAPITAL LETTER E WITH DIAERESIS
+004ED	CYRILLIC SMALL LETTER E WITH DIAERESIS
+004EE	CYRILLIC CAPITAL LETTER U WITH MACRON
+004EF	CYRILLIC SMALL LETTER U WITH MACRON
+004F0	CYRILLIC CAPITAL LETTER U WITH DIAERESIS
+004F1	CYRILLIC SMALL LETTER U WITH DIAERESIS
+004F2	CYRILLIC CAPITAL LETTER U WITH DOUBLE ACUTE
+004F3	CYRILLIC SMALL LETTER U WITH DOUBLE ACUTE
+004F4	CYRILLIC CAPITAL LETTER CHE WITH DIAERESIS
+004F5	CYRILLIC SMALL LETTER CHE WITH DIAERESIS
+004F6	CYRILLIC CAPITAL LETTER GHE WITH DESCENDER
+004F7	CYRILLIC SMALL LETTER GHE WITH DESCENDER
+004F8	CYRILLIC CAPITAL LETTER YERU WITH DIAERESIS
+004F9	CYRILLIC SMALL LETTER YERU WITH DIAERESIS
+004FA	CYRILLIC CAPITAL LETTER GHE WITH STROKE AND HOOK
+004FB	CYRILLIC SMALL LETTER GHE WITH STROKE AND HOOK
+004FC	CYRILLIC CAPITAL LETTER HA WITH HOOK
+004FD	CYRILLIC SMALL LETTER HA WITH HOOK
+004FE	CYRILLIC CAPITAL LETTER HA WITH STROKE
+004FF	CYRILLIC SMALL LETTER HA WITH STROKE
+00500	CYRILLIC CAPITAL LETTER KOMI DE
+00501	CYRILLIC SMALL LETTER KOMI DE
+00502	CYRILLIC CAPITAL LETTER KOMI DJE
+00503	CYRILLIC SMALL LETTER KOMI DJE
+00504	CYRILLIC CAPITAL LETTER KOMI ZJE
+00505	CYRILLIC SMALL LETTER KOMI ZJE
+00506	CYRILLIC CAPITAL LETTER KOMI DZJE
+00507	CYRILLIC SMALL LETTER KOMI DZJE
+00508	CYRILLIC CAPITAL LETTER KOMI LJE
+00509	CYRILLIC SMALL LETTER KOMI LJE
+0050A	CYRILLIC CAPITAL LETTER KOMI NJE
+0050B	CYRILLIC SMALL LETTER KOMI NJE
+0050C	CYRILLIC CAPITAL LETTER KOMI SJE
+0050D	CYRILLIC SMALL LETTER KOMI SJE
+0050E	CYRILLIC CAPITAL LETTER KOMI TJE
+0050F	CYRILLIC SMALL LETTER KOMI TJE
+00510	CYRILLIC CAPITAL LETTER REVERSED ZE
+00511	CYRILLIC SMALL LETTER REVERSED ZE
+00512	CYRILLIC CAPITAL LETTER EL WITH HOOK
+00513	CYRILLIC SMALL LETTER EL WITH HOOK
+00514	CYRILLIC CAPITAL LETTER LHA
+00515	CYRILLIC SMALL LETTER LHA
+00516	CYRILLIC CAPITAL LETTER RHA
+00517	CYRILLIC SMALL LETTER RHA
+00518	CYRILLIC CAPITAL LETTER YAE
+00519	CYRILLIC SMALL LETTER YAE
+0051A	CYRILLIC CAPITAL LETTER QA
+0051B	CYRILLIC SMALL LETTER QA
+0051C	CYRILLIC CAPITAL LETTER WE
+0051D	CYRILLIC SMALL LETTER WE
+0051E	CYRILLIC CAPITAL LETTER ALEUT KA
+0051F	CYRILLIC SMALL LETTER ALEUT KA
+00520	CYRILLIC CAPITAL LETTER EL WITH MIDDLE HOOK
+00521	CYRILLIC SMALL LETTER EL WITH MIDDLE HOOK
+00522	CYRILLIC CAPITAL LETTER EN WITH MIDDLE HOOK
+00523	CYRILLIC SMALL LETTER EN WITH MIDDLE HOOK
+00524	CYRILLIC CAPITAL LETTER PE WITH DESCENDER
+00525	CYRILLIC SMALL LETTER PE WITH DESCENDER
+00526	CYRILLIC CAPITAL LETTER SHHA WITH DESCENDER
+00527	CYRILLIC SMALL LETTER SHHA WITH DESCENDER
+00528	CYRILLIC CAPITAL LETTER EN WITH LEFT HOOK
+00529	CYRILLIC SMALL LETTER EN WITH LEFT HOOK
+0052A	CYRILLIC CAPITAL LETTER DZZHE
+0052B	CYRILLIC SMALL LETTER DZZHE
+0052C	CYRILLIC CAPITAL LETTER DCHE
+0052D	CYRILLIC SMALL LETTER DCHE
+0052E	CYRILLIC CAPITAL LETTER EL WITH DESCENDER
+0052F	CYRILLIC SMALL LETTER EL WITH DESCENDER
+00531	ARMENIAN CAPITAL LETTER AYB
+00532	ARMENIAN CAPITAL LETTER BEN
+00533	ARMENIAN CAPITAL LETTER GIM
+00534	ARMENIAN CAPITAL LETTER DA
+00535	ARMENIAN CAPITAL LETTER ECH
+00536	ARMENIAN CAPITAL LETTER ZA
+00537	ARMENIAN CAPITAL LETTER EH
+00538	ARMENIAN CAPITAL LETTER ET
+00539	ARMENIAN CAPITAL LETTER TO
+0053A	ARMENIAN CAPITAL LETTER ZHE
+0053B	ARMENIAN CAPITAL LETTER INI
+0053C	ARMENIAN CAPITAL LETTER LIWN
+0053D	ARMENIAN CAPITAL LETTER XEH
+0053E	ARMENIAN CAPITAL LETTER CA
+0053F	ARMENIAN CAPITAL LETTER KEN
+00540	ARMENIAN CAPITAL LETTER HO
+00541	ARMENIAN CAPITAL LETTER JA
+00542	ARMENIAN CAPITAL LETTER GHAD
+00543	ARMENIAN CAPITAL LETTER CHEH
+00544	ARMENIAN CAPITAL LETTER MEN
+00545	ARMENIAN CAPITAL LETTER YI
+00546	ARMENIAN CAPITAL LETTER NOW
+00547	ARMENIAN CAPITAL LETTER SHA
+00548	ARMENIAN CAPITAL LETTER VO
+00549	ARMENIAN CAPITAL LETTER CHA
+0054A	ARMENIAN CAPITAL LETTER PEH
+0054B	ARMENIAN CAPITAL LETTER JHEH
+0054C	ARMENIAN CAPITAL LETTER RA
+0054D	ARMENIAN CAPITAL LETTER SEH
+0054E	ARMENIAN CAPITAL LETTER VEW
+0054F	ARMENIAN CAPITAL LETTER TIWN
+00550	ARMENIAN CAPITAL LETTER REH
+00551	ARMENIAN CAPITAL LETTER CO
+00552	ARMENIAN CAPITAL LETTER YIWN
+00553	ARMENIAN CAPITAL LETTER PIWR
+00554	ARMENIAN CAPITAL LETTER KEH
+00555	ARMENIAN CAPITAL LETTER OH
+00556	ARMENIAN CAPITAL LETTER FEH
+00559	ARMENIAN MODIFIER LETTER LEFT HALF RING
+0055A	ARMENIAN APOSTROPHE
+0055B	ARMENIAN EMPHASIS MARK
+0055C	ARMENIAN EXCLAMATION MARK
+0055D	ARMENIAN COMMA
+0055E	ARMENIAN QUESTION MARK
+0055F	ARMENIAN ABBREVIATION MARK
+00561	ARMENIAN SMALL LETTER AYB
+00562	ARMENIAN SMALL LETTER BEN
+00563	ARMENIAN SMALL LETTER GIM
+00564	ARMENIAN SMALL LETTER DA
+00565	ARMENIAN SMALL LETTER ECH
+00566	ARMENIAN SMALL LETTER ZA
+00567	ARMENIAN SMALL LETTER EH
+00568	ARMENIAN SMALL LETTER ET
+00569	ARMENIAN SMALL LETTER TO
+0056A	ARMENIAN SMALL LETTER ZHE
+0056B	ARMENIAN SMALL LETTER INI
+0056C	ARMENIAN SMALL LETTER LIWN
+0056D	ARMENIAN SMALL LETTER XEH
+0056E	ARMENIAN SMALL LETTER CA
+0056F	ARMENIAN SMALL LETTER KEN
+00570	ARMENIAN SMALL LETTER HO
+00571	ARMENIAN SMALL LETTER JA
+00572	ARMENIAN SMALL LETTER GHAD
+00573	ARMENIAN SMALL LETTER CHEH
+00574	ARMENIAN SMALL LETTER MEN
+00575	ARMENIAN SMALL LETTER YI
+00576	ARMENIAN SMALL LETTER NOW
+00577	ARMENIAN SMALL LETTER SHA
+00578	ARMENIAN SMALL LETTER VO
+00579	ARMENIAN SMALL LETTER CHA
+0057A	ARMENIAN SMALL LETTER PEH
+0057B	ARMENIAN SMALL LETTER JHEH
+0057C	ARMENIAN SMALL LETTER RA
+0057D	ARMENIAN SMALL LETTER SEH
+0057E	ARMENIAN SMALL LETTER VEW
+0057F	ARMENIAN SMALL LETTER TIWN
+00580	ARMENIAN SMALL LETTER REH
+00581	ARMENIAN SMALL LETTER CO
+00582	ARMENIAN SMALL LETTER YIWN
+00583	ARMENIAN SMALL LETTER PIWR
+00584	ARMENIAN SMALL LETTER KEH
+00585	ARMENIAN SMALL LETTER OH
+00586	ARMENIAN SMALL LETTER FEH
+00587	ARMENIAN SMALL LIGATURE ECH YIWN
+00589	ARMENIAN FULL STOP
+0058A	ARMENIAN HYPHEN
+0058D	RIGHT-FACING ARMENIAN ETERNITY SIGN
+0058E	LEFT-FACING ARMENIAN ETERNITY SIGN
+0058F	ARMENIAN DRAM SIGN
+00591	HEBREW ACCENT ETNAHTA
+00592	HEBREW ACCENT SEGOL
+00593	HEBREW ACCENT SHALSHELET
+00594	HEBREW ACCENT ZAQEF QATAN
+00595	HEBREW ACCENT ZAQEF GADOL
+00596	HEBREW ACCENT TIPEHA
+00597	HEBREW ACCENT REVIA
+00598	HEBREW ACCENT ZARQA
+00599	HEBREW ACCENT PASHTA
+0059A	HEBREW ACCENT YETIV
+0059B	HEBREW ACCENT TEVIR
+0059C	HEBREW ACCENT GERESH
+0059D	HEBREW ACCENT GERESH MUQDAM
+0059E	HEBREW ACCENT GERSHAYIM
+0059F	HEBREW ACCENT QARNEY PARA
+005A0	HEBREW ACCENT TELISHA GEDOLA
+005A1	HEBREW ACCENT PAZER
+005A2	HEBREW ACCENT ATNAH HAFUKH
+005A3	HEBREW ACCENT MUNAH
+005A4	HEBREW ACCENT MAHAPAKH
+005A5	HEBREW ACCENT MERKHA
+005A6	HEBREW ACCENT MERKHA KEFULA
+005A7	HEBREW ACCENT DARGA
+005A8	HEBREW ACCENT QADMA
+005A9	HEBREW ACCENT TELISHA QETANA
+005AA	HEBREW ACCENT YERAH BEN YOMO
+005AB	HEBREW ACCENT OLE
+005AC	HEBREW ACCENT ILUY
+005AD	HEBREW ACCENT DEHI
+005AE	HEBREW ACCENT ZINOR
+005AF	HEBREW MARK MASORA CIRCLE
+005B0	HEBREW POINT SHEVA
+005B1	HEBREW POINT HATAF SEGOL
+005B2	HEBREW POINT HATAF PATAH
+005B3	HEBREW POINT HATAF QAMATS
+005B4	HEBREW POINT HIRIQ
+005B5	HEBREW POINT TSERE
+005B6	HEBREW POINT SEGOL
+005B7	HEBREW POINT PATAH
+005B8	HEBREW POINT QAMATS
+005B9	HEBREW POINT HOLAM
+005BA	HEBREW POINT HOLAM HASER FOR VAV
+005BB	HEBREW POINT QUBUTS
+005BC	HEBREW POINT DAGESH OR MAPIQ
+005BD	HEBREW POINT METEG
+005BE	HEBREW PUNCTUATION MAQAF
+005BF	HEBREW POINT RAFE
+005C0	HEBREW PUNCTUATION PASEQ
+005C1	HEBREW POINT SHIN DOT
+005C2	HEBREW POINT SIN DOT
+005C3	HEBREW PUNCTUATION SOF PASUQ
+005C4	HEBREW MARK UPPER DOT
+005C5	HEBREW MARK LOWER DOT
+005C6	HEBREW PUNCTUATION NUN HAFUKHA
+005C7	HEBREW POINT QAMATS QATAN
+005D0	HEBREW LETTER ALEF
+005D1	HEBREW LETTER BET
+005D2	HEBREW LETTER GIMEL
+005D3	HEBREW LETTER DALET
+005D4	HEBREW LETTER HE
+005D5	HEBREW LETTER VAV
+005D6	HEBREW LETTER ZAYIN
+005D7	HEBREW LETTER HET
+005D8	HEBREW LETTER TET
+005D9	HEBREW LETTER YOD
+005DA	HEBREW LETTER FINAL KAF
+005DB	HEBREW LETTER KAF
+005DC	HEBREW LETTER LAMED
+005DD	HEBREW LETTER FINAL MEM
+005DE	HEBREW LETTER MEM
+005DF	HEBREW LETTER FINAL NUN
+005E0	HEBREW LETTER NUN
+005E1	HEBREW LETTER SAMEKH
+005E2	HEBREW LETTER AYIN
+005E3	HEBREW LETTER FINAL PE
+005E4	HEBREW LETTER PE
+005E5	HEBREW LETTER FINAL TSADI
+005E6	HEBREW LETTER TSADI
+005E7	HEBREW LETTER QOF
+005E8	HEBREW LETTER RESH
+005E9	HEBREW LETTER SHIN
+005EA	HEBREW LETTER TAV
+005F0	HEBREW LIGATURE YIDDISH DOUBLE VAV
+005F1	HEBREW LIGATURE YIDDISH VAV YOD
+005F2	HEBREW LIGATURE YIDDISH DOUBLE YOD
+005F3	HEBREW PUNCTUATION GERESH
+005F4	HEBREW PUNCTUATION GERSHAYIM
+00600	ARABIC NUMBER SIGN
+00601	ARABIC SIGN SANAH
+00602	ARABIC FOOTNOTE MARKER
+00603	ARABIC SIGN SAFHA
+00604	ARABIC SIGN SAMVAT
+00605	ARABIC NUMBER MARK ABOVE
+00606	ARABIC-INDIC CUBE ROOT
+00607	ARABIC-INDIC FOURTH ROOT
+00608	ARABIC RAY
+00609	ARABIC-INDIC PER MILLE SIGN
+0060A	ARABIC-INDIC PER TEN THOUSAND SIGN
+0060B	AFGHANI SIGN
+0060C	ARABIC COMMA
+0060D	ARABIC DATE SEPARATOR
+0060E	ARABIC POETIC VERSE SIGN
+0060F	ARABIC SIGN MISRA
+00610	ARABIC SIGN SALLALLAHOU ALAYHE WASSALLAM
+00611	ARABIC SIGN ALAYHE ASSALLAM
+00612	ARABIC SIGN RAHMATULLAH ALAYHE
+00613	ARABIC SIGN RADI ALLAHOU ANHU
+00614	ARABIC SIGN TAKHALLUS
+00615	ARABIC SMALL HIGH TAH
+00616	ARABIC SMALL HIGH LIGATURE ALEF WITH LAM WITH YEH
+00617	ARABIC SMALL HIGH ZAIN
+00618	ARABIC SMALL FATHA
+00619	ARABIC SMALL DAMMA
+0061A	ARABIC SMALL KASRA
+0061B	ARABIC SEMICOLON
+0061C	ARABIC LETTER MARK
+0061C	ALM
+0061E	ARABIC TRIPLE DOT PUNCTUATION MARK
+0061F	ARABIC QUESTION MARK
+00620	ARABIC LETTER KASHMIRI YEH
+00621	ARABIC LETTER HAMZA
+00622	ARABIC LETTER ALEF WITH MADDA ABOVE
+00623	ARABIC LETTER ALEF WITH HAMZA ABOVE
+00624	ARABIC LETTER WAW WITH HAMZA ABOVE
+00625	ARABIC LETTER ALEF WITH HAMZA BELOW
+00626	ARABIC LETTER YEH WITH HAMZA ABOVE
+00627	ARABIC LETTER ALEF
+00628	ARABIC LETTER BEH
+00629	ARABIC LETTER TEH MARBUTA
+0062A	ARABIC LETTER TEH
+0062B	ARABIC LETTER THEH
+0062C	ARABIC LETTER JEEM
+0062D	ARABIC LETTER HAH
+0062E	ARABIC LETTER KHAH
+0062F	ARABIC LETTER DAL
+00630	ARABIC LETTER THAL
+00631	ARABIC LETTER REH
+00632	ARABIC LETTER ZAIN
+00633	ARABIC LETTER SEEN
+00634	ARABIC LETTER SHEEN
+00635	ARABIC LETTER SAD
+00636	ARABIC LETTER DAD
+00637	ARABIC LETTER TAH
+00638	ARABIC LETTER ZAH
+00639	ARABIC LETTER AIN
+0063A	ARABIC LETTER GHAIN
+0063B	ARABIC LETTER KEHEH WITH TWO DOTS ABOVE
+0063C	ARABIC LETTER KEHEH WITH THREE DOTS BELOW
+0063D	ARABIC LETTER FARSI YEH WITH INVERTED V
+0063E	ARABIC LETTER FARSI YEH WITH TWO DOTS ABOVE
+0063F	ARABIC LETTER FARSI YEH WITH THREE DOTS ABOVE
+00640	ARABIC TATWEEL
+00641	ARABIC LETTER FEH
+00642	ARABIC LETTER QAF
+00643	ARABIC LETTER KAF
+00644	ARABIC LETTER LAM
+00645	ARABIC LETTER MEEM
+00646	ARABIC LETTER NOON
+00647	ARABIC LETTER HEH
+00648	ARABIC LETTER WAW
+00649	ARABIC LETTER ALEF MAKSURA
+0064A	ARABIC LETTER YEH
+0064B	ARABIC FATHATAN
+0064C	ARABIC DAMMATAN
+0064D	ARABIC KASRATAN
+0064E	ARABIC FATHA
+0064F	ARABIC DAMMA
+00650	ARABIC KASRA
+00651	ARABIC SHADDA
+00652	ARABIC SUKUN
+00653	ARABIC MADDAH ABOVE
+00654	ARABIC HAMZA ABOVE
+00655	ARABIC HAMZA BELOW
+00656	ARABIC SUBSCRIPT ALEF
+00657	ARABIC INVERTED DAMMA
+00658	ARABIC MARK NOON GHUNNA
+00659	ARABIC ZWARAKAY
+0065A	ARABIC VOWEL SIGN SMALL V ABOVE
+0065B	ARABIC VOWEL SIGN INVERTED SMALL V ABOVE
+0065C	ARABIC VOWEL SIGN DOT BELOW
+0065D	ARABIC REVERSED DAMMA
+0065E	ARABIC FATHA WITH TWO DOTS
+0065F	ARABIC WAVY HAMZA BELOW
+00660	ARABIC-INDIC DIGIT ZERO
+00661	ARABIC-INDIC DIGIT ONE
+00662	ARABIC-INDIC DIGIT TWO
+00663	ARABIC-INDIC DIGIT THREE
+00664	ARABIC-INDIC DIGIT FOUR
+00665	ARABIC-INDIC DIGIT FIVE
+00666	ARABIC-INDIC DIGIT SIX
+00667	ARABIC-INDIC DIGIT SEVEN
+00668	ARABIC-INDIC DIGIT EIGHT
+00669	ARABIC-INDIC DIGIT NINE
+0066A	ARABIC PERCENT SIGN
+0066B	ARABIC DECIMAL SEPARATOR
+0066C	ARABIC THOUSANDS SEPARATOR
+0066D	ARABIC FIVE POINTED STAR
+0066E	ARABIC LETTER DOTLESS BEH
+0066F	ARABIC LETTER DOTLESS QAF
+00670	ARABIC LETTER SUPERSCRIPT ALEF
+00671	ARABIC LETTER ALEF WASLA
+00672	ARABIC LETTER ALEF WITH WAVY HAMZA ABOVE
+00673	ARABIC LETTER ALEF WITH WAVY HAMZA BELOW
+00674	ARABIC LETTER HIGH HAMZA
+00675	ARABIC LETTER HIGH HAMZA ALEF
+00676	ARABIC LETTER HIGH HAMZA WAW
+00677	ARABIC LETTER U WITH HAMZA ABOVE
+00678	ARABIC LETTER HIGH HAMZA YEH
+00679	ARABIC LETTER TTEH
+0067A	ARABIC LETTER TTEHEH
+0067B	ARABIC LETTER BEEH
+0067C	ARABIC LETTER TEH WITH RING
+0067D	ARABIC LETTER TEH WITH THREE DOTS ABOVE DOWNWARDS
+0067E	ARABIC LETTER PEH
+0067F	ARABIC LETTER TEHEH
+00680	ARABIC LETTER BEHEH
+00681	ARABIC LETTER HAH WITH HAMZA ABOVE
+00682	ARABIC LETTER HAH WITH TWO DOTS VERTICAL ABOVE
+00683	ARABIC LETTER NYEH
+00684	ARABIC LETTER DYEH
+00685	ARABIC LETTER HAH WITH THREE DOTS ABOVE
+00686	ARABIC LETTER TCHEH
+00687	ARABIC LETTER TCHEHEH
+00688	ARABIC LETTER DDAL
+00689	ARABIC LETTER DAL WITH RING
+0068A	ARABIC LETTER DAL WITH DOT BELOW
+0068B	ARABIC LETTER DAL WITH DOT BELOW AND SMALL TAH
+0068C	ARABIC LETTER DAHAL
+0068D	ARABIC LETTER DDAHAL
+0068E	ARABIC LETTER DUL
+0068F	ARABIC LETTER DAL WITH THREE DOTS ABOVE DOWNWARDS
+00690	ARABIC LETTER DAL WITH FOUR DOTS ABOVE
+00691	ARABIC LETTER RREH
+00692	ARABIC LETTER REH WITH SMALL V
+00693	ARABIC LETTER REH WITH RING
+00694	ARABIC LETTER REH WITH DOT BELOW
+00695	ARABIC LETTER REH WITH SMALL V BELOW
+00696	ARABIC LETTER REH WITH DOT BELOW AND DOT ABOVE
+00697	ARABIC LETTER REH WITH TWO DOTS ABOVE
+00698	ARABIC LETTER JEH
+00699	ARABIC LETTER REH WITH FOUR DOTS ABOVE
+0069A	ARABIC LETTER SEEN WITH DOT BELOW AND DOT ABOVE
+0069B	ARABIC LETTER SEEN WITH THREE DOTS BELOW
+0069C	ARABIC LETTER SEEN WITH THREE DOTS BELOW AND THREE DOTS ABOVE
+0069D	ARABIC LETTER SAD WITH TWO DOTS BELOW
+0069E	ARABIC LETTER SAD WITH THREE DOTS ABOVE
+0069F	ARABIC LETTER TAH WITH THREE DOTS ABOVE
+006A0	ARABIC LETTER AIN WITH THREE DOTS ABOVE
+006A1	ARABIC LETTER DOTLESS FEH
+006A2	ARABIC LETTER FEH WITH DOT MOVED BELOW
+006A3	ARABIC LETTER FEH WITH DOT BELOW
+006A4	ARABIC LETTER VEH
+006A5	ARABIC LETTER FEH WITH THREE DOTS BELOW
+006A6	ARABIC LETTER PEHEH
+006A7	ARABIC LETTER QAF WITH DOT ABOVE
+006A8	ARABIC LETTER QAF WITH THREE DOTS ABOVE
+006A9	ARABIC LETTER KEHEH
+006AA	ARABIC LETTER SWASH KAF
+006AB	ARABIC LETTER KAF WITH RING
+006AC	ARABIC LETTER KAF WITH DOT ABOVE
+006AD	ARABIC LETTER NG
+006AE	ARABIC LETTER KAF WITH THREE DOTS BELOW
+006AF	ARABIC LETTER GAF
+006B0	ARABIC LETTER GAF WITH RING
+006B1	ARABIC LETTER NGOEH
+006B2	ARABIC LETTER GAF WITH TWO DOTS BELOW
+006B3	ARABIC LETTER GUEH
+006B4	ARABIC LETTER GAF WITH THREE DOTS ABOVE
+006B5	ARABIC LETTER LAM WITH SMALL V
+006B6	ARABIC LETTER LAM WITH DOT ABOVE
+006B7	ARABIC LETTER LAM WITH THREE DOTS ABOVE
+006B8	ARABIC LETTER LAM WITH THREE DOTS BELOW
+006B9	ARABIC LETTER NOON WITH DOT BELOW
+006BA	ARABIC LETTER NOON GHUNNA
+006BB	ARABIC LETTER RNOON
+006BC	ARABIC LETTER NOON WITH RING
+006BD	ARABIC LETTER NOON WITH THREE DOTS ABOVE
+006BE	ARABIC LETTER HEH DOACHASHMEE
+006BF	ARABIC LETTER TCHEH WITH DOT ABOVE
+006C0	ARABIC LETTER HEH WITH YEH ABOVE
+006C1	ARABIC LETTER HEH GOAL
+006C2	ARABIC LETTER HEH GOAL WITH HAMZA ABOVE
+006C3	ARABIC LETTER TEH MARBUTA GOAL
+006C4	ARABIC LETTER WAW WITH RING
+006C5	ARABIC LETTER KIRGHIZ OE
+006C6	ARABIC LETTER OE
+006C7	ARABIC LETTER U
+006C8	ARABIC LETTER YU
+006C9	ARABIC LETTER KIRGHIZ YU
+006CA	ARABIC LETTER WAW WITH TWO DOTS ABOVE
+006CB	ARABIC LETTER VE
+006CC	ARABIC LETTER FARSI YEH
+006CD	ARABIC LETTER YEH WITH TAIL
+006CE	ARABIC LETTER YEH WITH SMALL V
+006CF	ARABIC LETTER WAW WITH DOT ABOVE
+006D0	ARABIC LETTER E
+006D1	ARABIC LETTER YEH WITH THREE DOTS BELOW
+006D2	ARABIC LETTER YEH BARREE
+006D3	ARABIC LETTER YEH BARREE WITH HAMZA ABOVE
+006D4	ARABIC FULL STOP
+006D5	ARABIC LETTER AE
+006D6	ARABIC SMALL HIGH LIGATURE SAD WITH LAM WITH ALEF MAKSURA
+006D7	ARABIC SMALL HIGH LIGATURE QAF WITH LAM WITH ALEF MAKSURA
+006D8	ARABIC SMALL HIGH MEEM INITIAL FORM
+006D9	ARABIC SMALL HIGH LAM ALEF
+006DA	ARABIC SMALL HIGH JEEM
+006DB	ARABIC SMALL HIGH THREE DOTS
+006DC	ARABIC SMALL HIGH SEEN
+006DD	ARABIC END OF AYAH
+006DE	ARABIC START OF RUB EL HIZB
+006DF	ARABIC SMALL HIGH ROUNDED ZERO
+006E0	ARABIC SMALL HIGH UPRIGHT RECTANGULAR ZERO
+006E1	ARABIC SMALL HIGH DOTLESS HEAD OF KHAH
+006E2	ARABIC SMALL HIGH MEEM ISOLATED FORM
+006E3	ARABIC SMALL LOW SEEN
+006E4	ARABIC SMALL HIGH MADDA
+006E5	ARABIC SMALL WAW
+006E6	ARABIC SMALL YEH
+006E7	ARABIC SMALL HIGH YEH
+006E8	ARABIC SMALL HIGH NOON
+006E9	ARABIC PLACE OF SAJDAH
+006EA	ARABIC EMPTY CENTRE LOW STOP
+006EB	ARABIC EMPTY CENTRE HIGH STOP
+006EC	ARABIC ROUNDED HIGH STOP WITH FILLED CENTRE
+006ED	ARABIC SMALL LOW MEEM
+006EE	ARABIC LETTER DAL WITH INVERTED V
+006EF	ARABIC LETTER REH WITH INVERTED V
+006F0	EXTENDED ARABIC-INDIC DIGIT ZERO
+006F1	EXTENDED ARABIC-INDIC DIGIT ONE
+006F2	EXTENDED ARABIC-INDIC DIGIT TWO
+006F3	EXTENDED ARABIC-INDIC DIGIT THREE
+006F4	EXTENDED ARABIC-INDIC DIGIT FOUR
+006F5	EXTENDED ARABIC-INDIC DIGIT FIVE
+006F6	EXTENDED ARABIC-INDIC DIGIT SIX
+006F7	EXTENDED ARABIC-INDIC DIGIT SEVEN
+006F8	EXTENDED ARABIC-INDIC DIGIT EIGHT
+006F9	EXTENDED ARABIC-INDIC DIGIT NINE
+006FA	ARABIC LETTER SHEEN WITH DOT BELOW
+006FB	ARABIC LETTER DAD WITH DOT BELOW
+006FC	ARABIC LETTER GHAIN WITH DOT BELOW
+006FD	ARABIC SIGN SINDHI AMPERSAND
+006FE	ARABIC SIGN SINDHI POSTPOSITION MEN
+006FF	ARABIC LETTER HEH WITH INVERTED V
+00700	SYRIAC END OF PARAGRAPH
+00701	SYRIAC SUPRALINEAR FULL STOP
+00702	SYRIAC SUBLINEAR FULL STOP
+00703	SYRIAC SUPRALINEAR COLON
+00704	SYRIAC SUBLINEAR COLON
+00705	SYRIAC HORIZONTAL COLON
+00706	SYRIAC COLON SKEWED LEFT
+00707	SYRIAC COLON SKEWED RIGHT
+00708	SYRIAC SUPRALINEAR COLON SKEWED LEFT
+00709	SYRIAC SUBLINEAR COLON SKEWED LEFT
+00709	SYRIAC SUBLINEAR COLON SKEWED RIGHT
+0070A	SYRIAC CONTRACTION
+0070B	SYRIAC HARKLEAN OBELUS
+0070C	SYRIAC HARKLEAN METOBELUS
+0070D	SYRIAC HARKLEAN ASTERISCUS
+0070F	SYRIAC ABBREVIATION MARK
+00710	SYRIAC LETTER ALAPH
+00711	SYRIAC LETTER SUPERSCRIPT ALAPH
+00712	SYRIAC LETTER BETH
+00713	SYRIAC LETTER GAMAL
+00714	SYRIAC LETTER GAMAL GARSHUNI
+00715	SYRIAC LETTER DALATH
+00716	SYRIAC LETTER DOTLESS DALATH RISH
+00717	SYRIAC LETTER HE
+00718	SYRIAC LETTER WAW
+00719	SYRIAC LETTER ZAIN
+0071A	SYRIAC LETTER HETH
+0071B	SYRIAC LETTER TETH
+0071C	SYRIAC LETTER TETH GARSHUNI
+0071D	SYRIAC LETTER YUDH
+0071E	SYRIAC LETTER YUDH HE
+0071F	SYRIAC LETTER KAPH
+00720	SYRIAC LETTER LAMADH
+00721	SYRIAC LETTER MIM
+00722	SYRIAC LETTER NUN
+00723	SYRIAC LETTER SEMKATH
+00724	SYRIAC LETTER FINAL SEMKATH
+00725	SYRIAC LETTER E
+00726	SYRIAC LETTER PE
+00727	SYRIAC LETTER REVERSED PE
+00728	SYRIAC LETTER SADHE
+00729	SYRIAC LETTER QAPH
+0072A	SYRIAC LETTER RISH
+0072B	SYRIAC LETTER SHIN
+0072C	SYRIAC LETTER TAW
+0072D	SYRIAC LETTER PERSIAN BHETH
+0072E	SYRIAC LETTER PERSIAN GHAMAL
+0072F	SYRIAC LETTER PERSIAN DHALATH
+00730	SYRIAC PTHAHA ABOVE
+00731	SYRIAC PTHAHA BELOW
+00732	SYRIAC PTHAHA DOTTED
+00733	SYRIAC ZQAPHA ABOVE
+00734	SYRIAC ZQAPHA BELOW
+00735	SYRIAC ZQAPHA DOTTED
+00736	SYRIAC RBASA ABOVE
+00737	SYRIAC RBASA BELOW
+00738	SYRIAC DOTTED ZLAMA HORIZONTAL
+00739	SYRIAC DOTTED ZLAMA ANGULAR
+0073A	SYRIAC HBASA ABOVE
+0073B	SYRIAC HBASA BELOW
+0073C	SYRIAC HBASA-ESASA DOTTED
+0073D	SYRIAC ESASA ABOVE
+0073E	SYRIAC ESASA BELOW
+0073F	SYRIAC RWAHA
+00740	SYRIAC FEMININE DOT
+00741	SYRIAC QUSHSHAYA
+00742	SYRIAC RUKKAKHA
+00743	SYRIAC TWO VERTICAL DOTS ABOVE
+00744	SYRIAC TWO VERTICAL DOTS BELOW
+00745	SYRIAC THREE DOTS ABOVE
+00746	SYRIAC THREE DOTS BELOW
+00747	SYRIAC OBLIQUE LINE ABOVE
+00748	SYRIAC OBLIQUE LINE BELOW
+00749	SYRIAC MUSIC
+0074A	SYRIAC BARREKH
+0074D	SYRIAC LETTER SOGDIAN ZHAIN
+0074E	SYRIAC LETTER SOGDIAN KHAPH
+0074F	SYRIAC LETTER SOGDIAN FE
+00750	ARABIC LETTER BEH WITH THREE DOTS HORIZONTALLY BELOW
+00751	ARABIC LETTER BEH WITH DOT BELOW AND THREE DOTS ABOVE
+00752	ARABIC LETTER BEH WITH THREE DOTS POINTING UPWARDS BELOW
+00753	ARABIC LETTER BEH WITH THREE DOTS POINTING UPWARDS BELOW AND TWO DOTS ABOVE
+00754	ARABIC LETTER BEH WITH TWO DOTS BELOW AND DOT ABOVE
+00755	ARABIC LETTER BEH WITH INVERTED SMALL V BELOW
+00756	ARABIC LETTER BEH WITH SMALL V
+00757	ARABIC LETTER HAH WITH TWO DOTS ABOVE
+00758	ARABIC LETTER HAH WITH THREE DOTS POINTING UPWARDS BELOW
+00759	ARABIC LETTER DAL WITH TWO DOTS VERTICALLY BELOW AND SMALL TAH
+0075A	ARABIC LETTER DAL WITH INVERTED SMALL V BELOW
+0075B	ARABIC LETTER REH WITH STROKE
+0075C	ARABIC LETTER SEEN WITH FOUR DOTS ABOVE
+0075D	ARABIC LETTER AIN WITH TWO DOTS ABOVE
+0075E	ARABIC LETTER AIN WITH THREE DOTS POINTING DOWNWARDS ABOVE
+0075F	ARABIC LETTER AIN WITH TWO DOTS VERTICALLY ABOVE
+00760	ARABIC LETTER FEH WITH TWO DOTS BELOW
+00761	ARABIC LETTER FEH WITH THREE DOTS POINTING UPWARDS BELOW
+00762	ARABIC LETTER KEHEH WITH DOT ABOVE
+00763	ARABIC LETTER KEHEH WITH THREE DOTS ABOVE
+00764	ARABIC LETTER KEHEH WITH THREE DOTS POINTING UPWARDS BELOW
+00765	ARABIC LETTER MEEM WITH DOT ABOVE
+00766	ARABIC LETTER MEEM WITH DOT BELOW
+00767	ARABIC LETTER NOON WITH TWO DOTS BELOW
+00768	ARABIC LETTER NOON WITH SMALL TAH
+00769	ARABIC LETTER NOON WITH SMALL V
+0076A	ARABIC LETTER LAM WITH BAR
+0076B	ARABIC LETTER REH WITH TWO DOTS VERTICALLY ABOVE
+0076C	ARABIC LETTER REH WITH HAMZA ABOVE
+0076D	ARABIC LETTER SEEN WITH TWO DOTS VERTICALLY ABOVE
+0076E	ARABIC LETTER HAH WITH SMALL ARABIC LETTER TAH BELOW
+0076F	ARABIC LETTER HAH WITH SMALL ARABIC LETTER TAH AND TWO DOTS
+00770	ARABIC LETTER SEEN WITH SMALL ARABIC LETTER TAH AND TWO DOTS
+00771	ARABIC LETTER REH WITH SMALL ARABIC LETTER TAH AND TWO DOTS
+00772	ARABIC LETTER HAH WITH SMALL ARABIC LETTER TAH ABOVE
+00773	ARABIC LETTER ALEF WITH EXTENDED ARABIC-INDIC DIGIT TWO ABOVE
+00774	ARABIC LETTER ALEF WITH EXTENDED ARABIC-INDIC DIGIT THREE ABOVE
+00775	ARABIC LETTER FARSI YEH WITH EXTENDED ARABIC-INDIC DIGIT TWO ABOVE
+00776	ARABIC LETTER FARSI YEH WITH EXTENDED ARABIC-INDIC DIGIT THREE ABOVE
+00777	ARABIC LETTER FARSI YEH WITH EXTENDED ARABIC-INDIC DIGIT FOUR BELOW
+00778	ARABIC LETTER WAW WITH EXTENDED ARABIC-INDIC DIGIT TWO ABOVE
+00779	ARABIC LETTER WAW WITH EXTENDED ARABIC-INDIC DIGIT THREE ABOVE
+0077A	ARABIC LETTER YEH BARREE WITH EXTENDED ARABIC-INDIC DIGIT TWO ABOVE
+0077B	ARABIC LETTER YEH BARREE WITH EXTENDED ARABIC-INDIC DIGIT THREE ABOVE
+0077C	ARABIC LETTER HAH WITH EXTENDED ARABIC-INDIC DIGIT FOUR BELOW
+0077D	ARABIC LETTER SEEN WITH EXTENDED ARABIC-INDIC DIGIT FOUR ABOVE
+0077E	ARABIC LETTER SEEN WITH INVERTED V
+0077F	ARABIC LETTER KAF WITH TWO DOTS ABOVE
+00780	THAANA LETTER HAA
+00781	THAANA LETTER SHAVIYANI
+00782	THAANA LETTER NOONU
+00783	THAANA LETTER RAA
+00784	THAANA LETTER BAA
+00785	THAANA LETTER LHAVIYANI
+00786	THAANA LETTER KAAFU
+00787	THAANA LETTER ALIFU
+00788	THAANA LETTER VAAVU
+00789	THAANA LETTER MEEMU
+0078A	THAANA LETTER FAAFU
+0078B	THAANA LETTER DHAALU
+0078C	THAANA LETTER THAA
+0078D	THAANA LETTER LAAMU
+0078E	THAANA LETTER GAAFU
+0078F	THAANA LETTER GNAVIYANI
+00790	THAANA LETTER SEENU
+00791	THAANA LETTER DAVIYANI
+00792	THAANA LETTER ZAVIYANI
+00793	THAANA LETTER TAVIYANI
+00794	THAANA LETTER YAA
+00795	THAANA LETTER PAVIYANI
+00796	THAANA LETTER JAVIYANI
+00797	THAANA LETTER CHAVIYANI
+00798	THAANA LETTER TTAA
+00799	THAANA LETTER HHAA
+0079A	THAANA LETTER KHAA
+0079B	THAANA LETTER THAALU
+0079C	THAANA LETTER ZAA
+0079D	THAANA LETTER SHEENU
+0079E	THAANA LETTER SAADHU
+0079F	THAANA LETTER DAADHU
+007A0	THAANA LETTER TO
+007A1	THAANA LETTER ZO
+007A2	THAANA LETTER AINU
+007A3	THAANA LETTER GHAINU
+007A4	THAANA LETTER QAAFU
+007A5	THAANA LETTER WAAVU
+007A6	THAANA ABAFILI
+007A7	THAANA AABAAFILI
+007A8	THAANA IBIFILI
+007A9	THAANA EEBEEFILI
+007AA	THAANA UBUFILI
+007AB	THAANA OOBOOFILI
+007AC	THAANA EBEFILI
+007AD	THAANA EYBEYFILI
+007AE	THAANA OBOFILI
+007AF	THAANA OABOAFILI
+007B0	THAANA SUKUN
+007B1	THAANA LETTER NAA
+007C0	NKO DIGIT ZERO
+007C1	NKO DIGIT ONE
+007C2	NKO DIGIT TWO
+007C3	NKO DIGIT THREE
+007C4	NKO DIGIT FOUR
+007C5	NKO DIGIT FIVE
+007C6	NKO DIGIT SIX
+007C7	NKO DIGIT SEVEN
+007C8	NKO DIGIT EIGHT
+007C9	NKO DIGIT NINE
+007CA	NKO LETTER A
+007CB	NKO LETTER EE
+007CC	NKO LETTER I
+007CD	NKO LETTER E
+007CE	NKO LETTER U
+007CF	NKO LETTER OO
+007D0	NKO LETTER O
+007D1	NKO LETTER DAGBASINNA
+007D2	NKO LETTER N
+007D3	NKO LETTER BA
+007D4	NKO LETTER PA
+007D5	NKO LETTER TA
+007D6	NKO LETTER JA
+007D7	NKO LETTER CHA
+007D8	NKO LETTER DA
+007D9	NKO LETTER RA
+007DA	NKO LETTER RRA
+007DB	NKO LETTER SA
+007DC	NKO LETTER GBA
+007DD	NKO LETTER FA
+007DE	NKO LETTER KA
+007DF	NKO LETTER LA
+007E0	NKO LETTER NA WOLOSO
+007E1	NKO LETTER MA
+007E2	NKO LETTER NYA
+007E3	NKO LETTER NA
+007E4	NKO LETTER HA
+007E5	NKO LETTER WA
+007E6	NKO LETTER YA
+007E7	NKO LETTER NYA WOLOSO
+007E8	NKO LETTER JONA JA
+007E9	NKO LETTER JONA CHA
+007EA	NKO LETTER JONA RA
+007EB	NKO COMBINING SHORT HIGH TONE
+007EC	NKO COMBINING SHORT LOW TONE
+007ED	NKO COMBINING SHORT RISING TONE
+007EE	NKO COMBINING LONG DESCENDING TONE
+007EF	NKO COMBINING LONG HIGH TONE
+007F0	NKO COMBINING LONG LOW TONE
+007F1	NKO COMBINING LONG RISING TONE
+007F2	NKO COMBINING NASALIZATION MARK
+007F3	NKO COMBINING DOUBLE DOT ABOVE
+007F4	NKO HIGH TONE APOSTROPHE
+007F5	NKO LOW TONE APOSTROPHE
+007F6	NKO SYMBOL OO DENNEN
+007F7	NKO SYMBOL GBAKURUNEN
+007F8	NKO COMMA
+007F9	NKO EXCLAMATION MARK
+007FA	NKO LAJANYALAN
+00800	SAMARITAN LETTER ALAF
+00801	SAMARITAN LETTER BIT
+00802	SAMARITAN LETTER GAMAN
+00803	SAMARITAN LETTER DALAT
+00804	SAMARITAN LETTER IY
+00805	SAMARITAN LETTER BAA
+00806	SAMARITAN LETTER ZEN
+00807	SAMARITAN LETTER IT
+00808	SAMARITAN LETTER TIT
+00809	SAMARITAN LETTER YUT
+0080A	SAMARITAN LETTER KAAF
+0080B	SAMARITAN LETTER LABAT
+0080C	SAMARITAN LETTER MIM
+0080D	SAMARITAN LETTER NUN
+0080E	SAMARITAN LETTER SINGAAT
+0080F	SAMARITAN LETTER IN
+00810	SAMARITAN LETTER FI
+00811	SAMARITAN LETTER TSAADIY
+00812	SAMARITAN LETTER QUF
+00813	SAMARITAN LETTER RISH
+00814	SAMARITAN LETTER SHAN
+00815	SAMARITAN LETTER TAAF
+00816	SAMARITAN MARK IN
+00817	SAMARITAN MARK IN-ALAF
+00818	SAMARITAN MARK OCCLUSION
+00819	SAMARITAN MARK DAGESH
+0081A	SAMARITAN MODIFIER LETTER EPENTHETIC YUT
+0081B	SAMARITAN MARK EPENTHETIC YUT
+0081C	SAMARITAN VOWEL SIGN LONG E
+0081D	SAMARITAN VOWEL SIGN E
+0081E	SAMARITAN VOWEL SIGN OVERLONG AA
+0081F	SAMARITAN VOWEL SIGN LONG AA
+00820	SAMARITAN VOWEL SIGN AA
+00821	SAMARITAN VOWEL SIGN OVERLONG A
+00822	SAMARITAN VOWEL SIGN LONG A
+00823	SAMARITAN VOWEL SIGN A
+00824	SAMARITAN MODIFIER LETTER SHORT A
+00825	SAMARITAN VOWEL SIGN SHORT A
+00826	SAMARITAN VOWEL SIGN LONG U
+00827	SAMARITAN VOWEL SIGN U
+00828	SAMARITAN MODIFIER LETTER I
+00829	SAMARITAN VOWEL SIGN LONG I
+0082A	SAMARITAN VOWEL SIGN I
+0082B	SAMARITAN VOWEL SIGN O
+0082C	SAMARITAN VOWEL SIGN SUKUN
+0082D	SAMARITAN MARK NEQUDAA
+00830	SAMARITAN PUNCTUATION NEQUDAA
+00831	SAMARITAN PUNCTUATION AFSAAQ
+00832	SAMARITAN PUNCTUATION ANGED
+00833	SAMARITAN PUNCTUATION BAU
+00834	SAMARITAN PUNCTUATION ATMAAU
+00835	SAMARITAN PUNCTUATION SHIYYAALAA
+00836	SAMARITAN ABBREVIATION MARK
+00837	SAMARITAN PUNCTUATION MELODIC QITSA
+00838	SAMARITAN PUNCTUATION ZIQAA
+00839	SAMARITAN PUNCTUATION QITSA
+0083A	SAMARITAN PUNCTUATION ZAEF
+0083B	SAMARITAN PUNCTUATION TURU
+0083C	SAMARITAN PUNCTUATION ARKAANU
+0083D	SAMARITAN PUNCTUATION SOF MASHFAAT
+0083E	SAMARITAN PUNCTUATION ANNAAU
+00840	MANDAIC LETTER HALQA
+00841	MANDAIC LETTER AB
+00842	MANDAIC LETTER AG
+00843	MANDAIC LETTER AD
+00844	MANDAIC LETTER AH
+00845	MANDAIC LETTER USHENNA
+00846	MANDAIC LETTER AZ
+00847	MANDAIC LETTER IT
+00848	MANDAIC LETTER ATT
+00849	MANDAIC LETTER AKSA
+0084A	MANDAIC LETTER AK
+0084B	MANDAIC LETTER AL
+0084C	MANDAIC LETTER AM
+0084D	MANDAIC LETTER AN
+0084E	MANDAIC LETTER AS
+0084F	MANDAIC LETTER IN
+00850	MANDAIC LETTER AP
+00851	MANDAIC LETTER ASZ
+00852	MANDAIC LETTER AQ
+00853	MANDAIC LETTER AR
+00854	MANDAIC LETTER ASH
+00855	MANDAIC LETTER AT
+00856	MANDAIC LETTER DUSHENNA
+00857	MANDAIC LETTER KAD
+00858	MANDAIC LETTER AIN
+00859	MANDAIC AFFRICATION MARK
+0085A	MANDAIC VOCALIZATION MARK
+0085B	MANDAIC GEMINATION MARK
+0085E	MANDAIC PUNCTUATION
+008A0	ARABIC LETTER BEH WITH SMALL V BELOW
+008A1	ARABIC LETTER BEH WITH HAMZA ABOVE
+008A2	ARABIC LETTER JEEM WITH TWO DOTS ABOVE
+008A3	ARABIC LETTER TAH WITH TWO DOTS ABOVE
+008A4	ARABIC LETTER FEH WITH DOT BELOW AND THREE DOTS ABOVE
+008A5	ARABIC LETTER QAF WITH DOT BELOW
+008A6	ARABIC LETTER LAM WITH DOUBLE BAR
+008A7	ARABIC LETTER MEEM WITH THREE DOTS ABOVE
+008A8	ARABIC LETTER YEH WITH TWO DOTS BELOW AND HAMZA ABOVE
+008A9	ARABIC LETTER YEH WITH TWO DOTS BELOW AND DOT ABOVE
+008AA	ARABIC LETTER REH WITH LOOP
+008AB	ARABIC LETTER WAW WITH DOT WITHIN
+008AC	ARABIC LETTER ROHINGYA YEH
+008AD	ARABIC LETTER LOW ALEF
+008AE	ARABIC LETTER DAL WITH THREE DOTS BELOW
+008AF	ARABIC LETTER SAD WITH THREE DOTS BELOW
+008B0	ARABIC LETTER GAF WITH INVERTED STROKE
+008B1	ARABIC LETTER STRAIGHT WAW
+008B2	ARABIC LETTER ZAIN WITH INVERTED V ABOVE
+008B3	ARABIC LETTER AIN WITH THREE DOTS BELOW
+008B4	ARABIC LETTER KAF WITH DOT BELOW
+008E3	ARABIC TURNED DAMMA BELOW
+008E4	ARABIC CURLY FATHA
+008E5	ARABIC CURLY DAMMA
+008E6	ARABIC CURLY KASRA
+008E7	ARABIC CURLY FATHATAN
+008E8	ARABIC CURLY DAMMATAN
+008E9	ARABIC CURLY KASRATAN
+008EA	ARABIC TONE ONE DOT ABOVE
+008EB	ARABIC TONE TWO DOTS ABOVE
+008EC	ARABIC TONE LOOP ABOVE
+008ED	ARABIC TONE ONE DOT BELOW
+008EE	ARABIC TONE TWO DOTS BELOW
+008EF	ARABIC TONE LOOP BELOW
+008F0	ARABIC OPEN FATHATAN
+008F1	ARABIC OPEN DAMMATAN
+008F2	ARABIC OPEN KASRATAN
+008F3	ARABIC SMALL HIGH WAW
+008F4	ARABIC FATHA WITH RING
+008F5	ARABIC FATHA WITH DOT ABOVE
+008F6	ARABIC KASRA WITH DOT BELOW
+008F7	ARABIC LEFT ARROWHEAD ABOVE
+008F8	ARABIC RIGHT ARROWHEAD ABOVE
+008F9	ARABIC LEFT ARROWHEAD BELOW
+008FA	ARABIC RIGHT ARROWHEAD BELOW
+008FB	ARABIC DOUBLE RIGHT ARROWHEAD ABOVE
+008FC	ARABIC DOUBLE RIGHT ARROWHEAD ABOVE WITH DOT
+008FD	ARABIC RIGHT ARROWHEAD ABOVE WITH DOT
+008FE	ARABIC DAMMA WITH DOT
+008FF	ARABIC MARK SIDEWAYS NOON GHUNNA
+00900	DEVANAGARI SIGN INVERTED CANDRABINDU
+00901	DEVANAGARI SIGN CANDRABINDU
+00902	DEVANAGARI SIGN ANUSVARA
+00903	DEVANAGARI SIGN VISARGA
+00904	DEVANAGARI LETTER SHORT A
+00905	DEVANAGARI LETTER A
+00906	DEVANAGARI LETTER AA
+00907	DEVANAGARI LETTER I
+00908	DEVANAGARI LETTER II
+00909	DEVANAGARI LETTER U
+0090A	DEVANAGARI LETTER UU
+0090B	DEVANAGARI LETTER VOCALIC R
+0090C	DEVANAGARI LETTER VOCALIC L
+0090D	DEVANAGARI LETTER CANDRA E
+0090E	DEVANAGARI LETTER SHORT E
+0090F	DEVANAGARI LETTER E
+00910	DEVANAGARI LETTER AI
+00911	DEVANAGARI LETTER CANDRA O
+00912	DEVANAGARI LETTER SHORT O
+00913	DEVANAGARI LETTER O
+00914	DEVANAGARI LETTER AU
+00915	DEVANAGARI LETTER KA
+00916	DEVANAGARI LETTER KHA
+00917	DEVANAGARI LETTER GA
+00918	DEVANAGARI LETTER GHA
+00919	DEVANAGARI LETTER NGA
+0091A	DEVANAGARI LETTER CA
+0091B	DEVANAGARI LETTER CHA
+0091C	DEVANAGARI LETTER JA
+0091D	DEVANAGARI LETTER JHA
+0091E	DEVANAGARI LETTER NYA
+0091F	DEVANAGARI LETTER TTA
+00920	DEVANAGARI LETTER TTHA
+00921	DEVANAGARI LETTER DDA
+00922	DEVANAGARI LETTER DDHA
+00923	DEVANAGARI LETTER NNA
+00924	DEVANAGARI LETTER TA
+00925	DEVANAGARI LETTER THA
+00926	DEVANAGARI LETTER DA
+00927	DEVANAGARI LETTER DHA
+00928	DEVANAGARI LETTER NA
+00929	DEVANAGARI LETTER NNNA
+0092A	DEVANAGARI LETTER PA
+0092B	DEVANAGARI LETTER PHA
+0092C	DEVANAGARI LETTER BA
+0092D	DEVANAGARI LETTER BHA
+0092E	DEVANAGARI LETTER MA
+0092F	DEVANAGARI LETTER YA
+00930	DEVANAGARI LETTER RA
+00931	DEVANAGARI LETTER RRA
+00932	DEVANAGARI LETTER LA
+00933	DEVANAGARI LETTER LLA
+00934	DEVANAGARI LETTER LLLA
+00935	DEVANAGARI LETTER VA
+00936	DEVANAGARI LETTER SHA
+00937	DEVANAGARI LETTER SSA
+00938	DEVANAGARI LETTER SA
+00939	DEVANAGARI LETTER HA
+0093A	DEVANAGARI VOWEL SIGN OE
+0093B	DEVANAGARI VOWEL SIGN OOE
+0093C	DEVANAGARI SIGN NUKTA
+0093D	DEVANAGARI SIGN AVAGRAHA
+0093E	DEVANAGARI VOWEL SIGN AA
+0093F	DEVANAGARI VOWEL SIGN I
+00940	DEVANAGARI VOWEL SIGN II
+00941	DEVANAGARI VOWEL SIGN U
+00942	DEVANAGARI VOWEL SIGN UU
+00943	DEVANAGARI VOWEL SIGN VOCALIC R
+00944	DEVANAGARI VOWEL SIGN VOCALIC RR
+00945	DEVANAGARI VOWEL SIGN CANDRA E
+00946	DEVANAGARI VOWEL SIGN SHORT E
+00947	DEVANAGARI VOWEL SIGN E
+00948	DEVANAGARI VOWEL SIGN AI
+00949	DEVANAGARI VOWEL SIGN CANDRA O
+0094A	DEVANAGARI VOWEL SIGN SHORT O
+0094B	DEVANAGARI VOWEL SIGN O
+0094C	DEVANAGARI VOWEL SIGN AU
+0094D	DEVANAGARI SIGN VIRAMA
+0094E	DEVANAGARI VOWEL SIGN PRISHTHAMATRA E
+0094F	DEVANAGARI VOWEL SIGN AW
+00950	DEVANAGARI OM
+00951	DEVANAGARI STRESS SIGN UDATTA
+00952	DEVANAGARI STRESS SIGN ANUDATTA
+00953	DEVANAGARI GRAVE ACCENT
+00954	DEVANAGARI ACUTE ACCENT
+00955	DEVANAGARI VOWEL SIGN CANDRA LONG E
+00956	DEVANAGARI VOWEL SIGN UE
+00957	DEVANAGARI VOWEL SIGN UUE
+00958	DEVANAGARI LETTER QA
+00959	DEVANAGARI LETTER KHHA
+0095A	DEVANAGARI LETTER GHHA
+0095B	DEVANAGARI LETTER ZA
+0095C	DEVANAGARI LETTER DDDHA
+0095D	DEVANAGARI LETTER RHA
+0095E	DEVANAGARI LETTER FA
+0095F	DEVANAGARI LETTER YYA
+00960	DEVANAGARI LETTER VOCALIC RR
+00961	DEVANAGARI LETTER VOCALIC LL
+00962	DEVANAGARI VOWEL SIGN VOCALIC L
+00963	DEVANAGARI VOWEL SIGN VOCALIC LL
+00964	DEVANAGARI DANDA
+00965	DEVANAGARI DOUBLE DANDA
+00966	DEVANAGARI DIGIT ZERO
+00967	DEVANAGARI DIGIT ONE
+00968	DEVANAGARI DIGIT TWO
+00969	DEVANAGARI DIGIT THREE
+0096A	DEVANAGARI DIGIT FOUR
+0096B	DEVANAGARI DIGIT FIVE
+0096C	DEVANAGARI DIGIT SIX
+0096D	DEVANAGARI DIGIT SEVEN
+0096E	DEVANAGARI DIGIT EIGHT
+0096F	DEVANAGARI DIGIT NINE
+00970	DEVANAGARI ABBREVIATION SIGN
+00971	DEVANAGARI SIGN HIGH SPACING DOT
+00972	DEVANAGARI LETTER CANDRA A
+00973	DEVANAGARI LETTER OE
+00974	DEVANAGARI LETTER OOE
+00975	DEVANAGARI LETTER AW
+00976	DEVANAGARI LETTER UE
+00977	DEVANAGARI LETTER UUE
+00978	DEVANAGARI LETTER MARWARI DDA
+00979	DEVANAGARI LETTER ZHA
+0097A	DEVANAGARI LETTER HEAVY YA
+0097B	DEVANAGARI LETTER GGA
+0097C	DEVANAGARI LETTER JJA
+0097D	DEVANAGARI LETTER GLOTTAL STOP
+0097E	DEVANAGARI LETTER DDDA
+0097F	DEVANAGARI LETTER BBA
+00980	BENGALI ANJI
+00981	BENGALI SIGN CANDRABINDU
+00982	BENGALI SIGN ANUSVARA
+00983	BENGALI SIGN VISARGA
+00985	BENGALI LETTER A
+00986	BENGALI LETTER AA
+00987	BENGALI LETTER I
+00988	BENGALI LETTER II
+00989	BENGALI LETTER U
+0098A	BENGALI LETTER UU
+0098B	BENGALI LETTER VOCALIC R
+0098C	BENGALI LETTER VOCALIC L
+0098F	BENGALI LETTER E
+00990	BENGALI LETTER AI
+00993	BENGALI LETTER O
+00994	BENGALI LETTER AU
+00995	BENGALI LETTER KA
+00996	BENGALI LETTER KHA
+00997	BENGALI LETTER GA
+00998	BENGALI LETTER GHA
+00999	BENGALI LETTER NGA
+0099A	BENGALI LETTER CA
+0099B	BENGALI LETTER CHA
+0099C	BENGALI LETTER JA
+0099D	BENGALI LETTER JHA
+0099E	BENGALI LETTER NYA
+0099F	BENGALI LETTER TTA
+009A0	BENGALI LETTER TTHA
+009A1	BENGALI LETTER DDA
+009A2	BENGALI LETTER DDHA
+009A3	BENGALI LETTER NNA
+009A4	BENGALI LETTER TA
+009A5	BENGALI LETTER THA
+009A6	BENGALI LETTER DA
+009A7	BENGALI LETTER DHA
+009A8	BENGALI LETTER NA
+009AA	BENGALI LETTER PA
+009AB	BENGALI LETTER PHA
+009AC	BENGALI LETTER BA
+009AD	BENGALI LETTER BHA
+009AE	BENGALI LETTER MA
+009AF	BENGALI LETTER YA
+009B0	BENGALI LETTER RA
+009B2	BENGALI LETTER LA
+009B6	BENGALI LETTER SHA
+009B7	BENGALI LETTER SSA
+009B8	BENGALI LETTER SA
+009B9	BENGALI LETTER HA
+009BC	BENGALI SIGN NUKTA
+009BD	BENGALI SIGN AVAGRAHA
+009BE	BENGALI VOWEL SIGN AA
+009BF	BENGALI VOWEL SIGN I
+009C0	BENGALI VOWEL SIGN II
+009C1	BENGALI VOWEL SIGN U
+009C2	BENGALI VOWEL SIGN UU
+009C3	BENGALI VOWEL SIGN VOCALIC R
+009C4	BENGALI VOWEL SIGN VOCALIC RR
+009C7	BENGALI VOWEL SIGN E
+009C8	BENGALI VOWEL SIGN AI
+009CB	BENGALI VOWEL SIGN O
+009CC	BENGALI VOWEL SIGN AU
+009CD	BENGALI SIGN VIRAMA
+009CE	BENGALI LETTER KHANDA TA
+009D7	BENGALI AU LENGTH MARK
+009DC	BENGALI LETTER RRA
+009DD	BENGALI LETTER RHA
+009DF	BENGALI LETTER YYA
+009E0	BENGALI LETTER VOCALIC RR
+009E1	BENGALI LETTER VOCALIC LL
+009E2	BENGALI VOWEL SIGN VOCALIC L
+009E3	BENGALI VOWEL SIGN VOCALIC LL
+009E6	BENGALI DIGIT ZERO
+009E7	BENGALI DIGIT ONE
+009E8	BENGALI DIGIT TWO
+009E9	BENGALI DIGIT THREE
+009EA	BENGALI DIGIT FOUR
+009EB	BENGALI DIGIT FIVE
+009EC	BENGALI DIGIT SIX
+009ED	BENGALI DIGIT SEVEN
+009EE	BENGALI DIGIT EIGHT
+009EF	BENGALI DIGIT NINE
+009F0	BENGALI LETTER RA WITH MIDDLE DIAGONAL
+009F1	BENGALI LETTER RA WITH LOWER DIAGONAL
+009F2	BENGALI RUPEE MARK
+009F3	BENGALI RUPEE SIGN
+009F4	BENGALI CURRENCY NUMERATOR ONE
+009F5	BENGALI CURRENCY NUMERATOR TWO
+009F6	BENGALI CURRENCY NUMERATOR THREE
+009F7	BENGALI CURRENCY NUMERATOR FOUR
+009F8	BENGALI CURRENCY NUMERATOR ONE LESS THAN THE DENOMINATOR
+009F9	BENGALI CURRENCY DENOMINATOR SIXTEEN
+009FA	BENGALI ISSHAR
+009FB	BENGALI GANDA MARK
+00A01	GURMUKHI SIGN ADAK BINDI
+00A02	GURMUKHI SIGN BINDI
+00A03	GURMUKHI SIGN VISARGA
+00A05	GURMUKHI LETTER A
+00A06	GURMUKHI LETTER AA
+00A07	GURMUKHI LETTER I
+00A08	GURMUKHI LETTER II
+00A09	GURMUKHI LETTER U
+00A0A	GURMUKHI LETTER UU
+00A0F	GURMUKHI LETTER EE
+00A10	GURMUKHI LETTER AI
+00A13	GURMUKHI LETTER OO
+00A14	GURMUKHI LETTER AU
+00A15	GURMUKHI LETTER KA
+00A16	GURMUKHI LETTER KHA
+00A17	GURMUKHI LETTER GA
+00A18	GURMUKHI LETTER GHA
+00A19	GURMUKHI LETTER NGA
+00A1A	GURMUKHI LETTER CA
+00A1B	GURMUKHI LETTER CHA
+00A1C	GURMUKHI LETTER JA
+00A1D	GURMUKHI LETTER JHA
+00A1E	GURMUKHI LETTER NYA
+00A1F	GURMUKHI LETTER TTA
+00A20	GURMUKHI LETTER TTHA
+00A21	GURMUKHI LETTER DDA
+00A22	GURMUKHI LETTER DDHA
+00A23	GURMUKHI LETTER NNA
+00A24	GURMUKHI LETTER TA
+00A25	GURMUKHI LETTER THA
+00A26	GURMUKHI LETTER DA
+00A27	GURMUKHI LETTER DHA
+00A28	GURMUKHI LETTER NA
+00A2A	GURMUKHI LETTER PA
+00A2B	GURMUKHI LETTER PHA
+00A2C	GURMUKHI LETTER BA
+00A2D	GURMUKHI LETTER BHA
+00A2E	GURMUKHI LETTER MA
+00A2F	GURMUKHI LETTER YA
+00A30	GURMUKHI LETTER RA
+00A32	GURMUKHI LETTER LA
+00A33	GURMUKHI LETTER LLA
+00A35	GURMUKHI LETTER VA
+00A36	GURMUKHI LETTER SHA
+00A38	GURMUKHI LETTER SA
+00A39	GURMUKHI LETTER HA
+00A3C	GURMUKHI SIGN NUKTA
+00A3E	GURMUKHI VOWEL SIGN AA
+00A3F	GURMUKHI VOWEL SIGN I
+00A40	GURMUKHI VOWEL SIGN II
+00A41	GURMUKHI VOWEL SIGN U
+00A42	GURMUKHI VOWEL SIGN UU
+00A47	GURMUKHI VOWEL SIGN EE
+00A48	GURMUKHI VOWEL SIGN AI
+00A4B	GURMUKHI VOWEL SIGN OO
+00A4C	GURMUKHI VOWEL SIGN AU
+00A4D	GURMUKHI SIGN VIRAMA
+00A51	GURMUKHI SIGN UDAAT
+00A59	GURMUKHI LETTER KHHA
+00A5A	GURMUKHI LETTER GHHA
+00A5B	GURMUKHI LETTER ZA
+00A5C	GURMUKHI LETTER RRA
+00A5E	GURMUKHI LETTER FA
+00A66	GURMUKHI DIGIT ZERO
+00A67	GURMUKHI DIGIT ONE
+00A68	GURMUKHI DIGIT TWO
+00A69	GURMUKHI DIGIT THREE
+00A6A	GURMUKHI DIGIT FOUR
+00A6B	GURMUKHI DIGIT FIVE
+00A6C	GURMUKHI DIGIT SIX
+00A6D	GURMUKHI DIGIT SEVEN
+00A6E	GURMUKHI DIGIT EIGHT
+00A6F	GURMUKHI DIGIT NINE
+00A70	GURMUKHI TIPPI
+00A71	GURMUKHI ADDAK
+00A72	GURMUKHI IRI
+00A73	GURMUKHI URA
+00A74	GURMUKHI EK ONKAR
+00A75	GURMUKHI SIGN YAKASH
+00A81	GUJARATI SIGN CANDRABINDU
+00A82	GUJARATI SIGN ANUSVARA
+00A83	GUJARATI SIGN VISARGA
+00A85	GUJARATI LETTER A
+00A86	GUJARATI LETTER AA
+00A87	GUJARATI LETTER I
+00A88	GUJARATI LETTER II
+00A89	GUJARATI LETTER U
+00A8A	GUJARATI LETTER UU
+00A8B	GUJARATI LETTER VOCALIC R
+00A8C	GUJARATI LETTER VOCALIC L
+00A8D	GUJARATI VOWEL CANDRA E
+00A8F	GUJARATI LETTER E
+00A90	GUJARATI LETTER AI
+00A91	GUJARATI VOWEL CANDRA O
+00A93	GUJARATI LETTER O
+00A94	GUJARATI LETTER AU
+00A95	GUJARATI LETTER KA
+00A96	GUJARATI LETTER KHA
+00A97	GUJARATI LETTER GA
+00A98	GUJARATI LETTER GHA
+00A99	GUJARATI LETTER NGA
+00A9A	GUJARATI LETTER CA
+00A9B	GUJARATI LETTER CHA
+00A9C	GUJARATI LETTER JA
+00A9D	GUJARATI LETTER JHA
+00A9E	GUJARATI LETTER NYA
+00A9F	GUJARATI LETTER TTA
+00AA0	GUJARATI LETTER TTHA
+00AA1	GUJARATI LETTER DDA
+00AA2	GUJARATI LETTER DDHA
+00AA3	GUJARATI LETTER NNA
+00AA4	GUJARATI LETTER TA
+00AA5	GUJARATI LETTER THA
+00AA6	GUJARATI LETTER DA
+00AA7	GUJARATI LETTER DHA
+00AA8	GUJARATI LETTER NA
+00AAA	GUJARATI LETTER PA
+00AAB	GUJARATI LETTER PHA
+00AAC	GUJARATI LETTER BA
+00AAD	GUJARATI LETTER BHA
+00AAE	GUJARATI LETTER MA
+00AAF	GUJARATI LETTER YA
+00AB0	GUJARATI LETTER RA
+00AB2	GUJARATI LETTER LA
+00AB3	GUJARATI LETTER LLA
+00AB5	GUJARATI LETTER VA
+00AB6	GUJARATI LETTER SHA
+00AB7	GUJARATI LETTER SSA
+00AB8	GUJARATI LETTER SA
+00AB9	GUJARATI LETTER HA
+00ABC	GUJARATI SIGN NUKTA
+00ABD	GUJARATI SIGN AVAGRAHA
+00ABE	GUJARATI VOWEL SIGN AA
+00ABF	GUJARATI VOWEL SIGN I
+00AC0	GUJARATI VOWEL SIGN II
+00AC1	GUJARATI VOWEL SIGN U
+00AC2	GUJARATI VOWEL SIGN UU
+00AC3	GUJARATI VOWEL SIGN VOCALIC R
+00AC4	GUJARATI VOWEL SIGN VOCALIC RR
+00AC5	GUJARATI VOWEL SIGN CANDRA E
+00AC7	GUJARATI VOWEL SIGN E
+00AC8	GUJARATI VOWEL SIGN AI
+00AC9	GUJARATI VOWEL SIGN CANDRA O
+00ACB	GUJARATI VOWEL SIGN O
+00ACC	GUJARATI VOWEL SIGN AU
+00ACD	GUJARATI SIGN VIRAMA
+00AD0	GUJARATI OM
+00AE0	GUJARATI LETTER VOCALIC RR
+00AE1	GUJARATI LETTER VOCALIC LL
+00AE2	GUJARATI VOWEL SIGN VOCALIC L
+00AE3	GUJARATI VOWEL SIGN VOCALIC LL
+00AE6	GUJARATI DIGIT ZERO
+00AE7	GUJARATI DIGIT ONE
+00AE8	GUJARATI DIGIT TWO
+00AE9	GUJARATI DIGIT THREE
+00AEA	GUJARATI DIGIT FOUR
+00AEB	GUJARATI DIGIT FIVE
+00AEC	GUJARATI DIGIT SIX
+00AED	GUJARATI DIGIT SEVEN
+00AEE	GUJARATI DIGIT EIGHT
+00AEF	GUJARATI DIGIT NINE
+00AF0	GUJARATI ABBREVIATION SIGN
+00AF1	GUJARATI RUPEE SIGN
+00AF9	GUJARATI LETTER ZHA
+00B01	ORIYA SIGN CANDRABINDU
+00B02	ORIYA SIGN ANUSVARA
+00B03	ORIYA SIGN VISARGA
+00B05	ORIYA LETTER A
+00B06	ORIYA LETTER AA
+00B07	ORIYA LETTER I
+00B08	ORIYA LETTER II
+00B09	ORIYA LETTER U
+00B0A	ORIYA LETTER UU
+00B0B	ORIYA LETTER VOCALIC R
+00B0C	ORIYA LETTER VOCALIC L
+00B0F	ORIYA LETTER E
+00B10	ORIYA LETTER AI
+00B13	ORIYA LETTER O
+00B14	ORIYA LETTER AU
+00B15	ORIYA LETTER KA
+00B16	ORIYA LETTER KHA
+00B17	ORIYA LETTER GA
+00B18	ORIYA LETTER GHA
+00B19	ORIYA LETTER NGA
+00B1A	ORIYA LETTER CA
+00B1B	ORIYA LETTER CHA
+00B1C	ORIYA LETTER JA
+00B1D	ORIYA LETTER JHA
+00B1E	ORIYA LETTER NYA
+00B1F	ORIYA LETTER TTA
+00B20	ORIYA LETTER TTHA
+00B21	ORIYA LETTER DDA
+00B22	ORIYA LETTER DDHA
+00B23	ORIYA LETTER NNA
+00B24	ORIYA LETTER TA
+00B25	ORIYA LETTER THA
+00B26	ORIYA LETTER DA
+00B27	ORIYA LETTER DHA
+00B28	ORIYA LETTER NA
+00B2A	ORIYA LETTER PA
+00B2B	ORIYA LETTER PHA
+00B2C	ORIYA LETTER BA
+00B2D	ORIYA LETTER BHA
+00B2E	ORIYA LETTER MA
+00B2F	ORIYA LETTER YA
+00B30	ORIYA LETTER RA
+00B32	ORIYA LETTER LA
+00B33	ORIYA LETTER LLA
+00B35	ORIYA LETTER VA
+00B36	ORIYA LETTER SHA
+00B37	ORIYA LETTER SSA
+00B38	ORIYA LETTER SA
+00B39	ORIYA LETTER HA
+00B3C	ORIYA SIGN NUKTA
+00B3D	ORIYA SIGN AVAGRAHA
+00B3E	ORIYA VOWEL SIGN AA
+00B3F	ORIYA VOWEL SIGN I
+00B40	ORIYA VOWEL SIGN II
+00B41	ORIYA VOWEL SIGN U
+00B42	ORIYA VOWEL SIGN UU
+00B43	ORIYA VOWEL SIGN VOCALIC R
+00B44	ORIYA VOWEL SIGN VOCALIC RR
+00B47	ORIYA VOWEL SIGN E
+00B48	ORIYA VOWEL SIGN AI
+00B4B	ORIYA VOWEL SIGN O
+00B4C	ORIYA VOWEL SIGN AU
+00B4D	ORIYA SIGN VIRAMA
+00B56	ORIYA AI LENGTH MARK
+00B57	ORIYA AU LENGTH MARK
+00B5C	ORIYA LETTER RRA
+00B5D	ORIYA LETTER RHA
+00B5F	ORIYA LETTER YYA
+00B60	ORIYA LETTER VOCALIC RR
+00B61	ORIYA LETTER VOCALIC LL
+00B62	ORIYA VOWEL SIGN VOCALIC L
+00B63	ORIYA VOWEL SIGN VOCALIC LL
+00B66	ORIYA DIGIT ZERO
+00B67	ORIYA DIGIT ONE
+00B68	ORIYA DIGIT TWO
+00B69	ORIYA DIGIT THREE
+00B6A	ORIYA DIGIT FOUR
+00B6B	ORIYA DIGIT FIVE
+00B6C	ORIYA DIGIT SIX
+00B6D	ORIYA DIGIT SEVEN
+00B6E	ORIYA DIGIT EIGHT
+00B6F	ORIYA DIGIT NINE
+00B70	ORIYA ISSHAR
+00B71	ORIYA LETTER WA
+00B72	ORIYA FRACTION ONE QUARTER
+00B73	ORIYA FRACTION ONE HALF
+00B74	ORIYA FRACTION THREE QUARTERS
+00B75	ORIYA FRACTION ONE SIXTEENTH
+00B76	ORIYA FRACTION ONE EIGHTH
+00B77	ORIYA FRACTION THREE SIXTEENTHS
+00B82	TAMIL SIGN ANUSVARA
+00B83	TAMIL SIGN VISARGA
+00B85	TAMIL LETTER A
+00B86	TAMIL LETTER AA
+00B87	TAMIL LETTER I
+00B88	TAMIL LETTER II
+00B89	TAMIL LETTER U
+00B8A	TAMIL LETTER UU
+00B8E	TAMIL LETTER E
+00B8F	TAMIL LETTER EE
+00B90	TAMIL LETTER AI
+00B92	TAMIL LETTER O
+00B93	TAMIL LETTER OO
+00B94	TAMIL LETTER AU
+00B95	TAMIL LETTER KA
+00B99	TAMIL LETTER NGA
+00B9A	TAMIL LETTER CA
+00B9C	TAMIL LETTER JA
+00B9E	TAMIL LETTER NYA
+00B9F	TAMIL LETTER TTA
+00BA3	TAMIL LETTER NNA
+00BA4	TAMIL LETTER TA
+00BA8	TAMIL LETTER NA
+00BA9	TAMIL LETTER NNNA
+00BAA	TAMIL LETTER PA
+00BAE	TAMIL LETTER MA
+00BAF	TAMIL LETTER YA
+00BB0	TAMIL LETTER RA
+00BB1	TAMIL LETTER RRA
+00BB2	TAMIL LETTER LA
+00BB3	TAMIL LETTER LLA
+00BB4	TAMIL LETTER LLLA
+00BB5	TAMIL LETTER VA
+00BB6	TAMIL LETTER SHA
+00BB7	TAMIL LETTER SSA
+00BB8	TAMIL LETTER SA
+00BB9	TAMIL LETTER HA
+00BBE	TAMIL VOWEL SIGN AA
+00BBF	TAMIL VOWEL SIGN I
+00BC0	TAMIL VOWEL SIGN II
+00BC1	TAMIL VOWEL SIGN U
+00BC2	TAMIL VOWEL SIGN UU
+00BC6	TAMIL VOWEL SIGN E
+00BC7	TAMIL VOWEL SIGN EE
+00BC8	TAMIL VOWEL SIGN AI
+00BCA	TAMIL VOWEL SIGN O
+00BCB	TAMIL VOWEL SIGN OO
+00BCC	TAMIL VOWEL SIGN AU
+00BCD	TAMIL SIGN VIRAMA
+00BD0	TAMIL OM
+00BD7	TAMIL AU LENGTH MARK
+00BE6	TAMIL DIGIT ZERO
+00BE7	TAMIL DIGIT ONE
+00BE8	TAMIL DIGIT TWO
+00BE9	TAMIL DIGIT THREE
+00BEA	TAMIL DIGIT FOUR
+00BEB	TAMIL DIGIT FIVE
+00BEC	TAMIL DIGIT SIX
+00BED	TAMIL DIGIT SEVEN
+00BEE	TAMIL DIGIT EIGHT
+00BEF	TAMIL DIGIT NINE
+00BF0	TAMIL NUMBER TEN
+00BF1	TAMIL NUMBER ONE HUNDRED
+00BF2	TAMIL NUMBER ONE THOUSAND
+00BF3	TAMIL DAY SIGN
+00BF4	TAMIL MONTH SIGN
+00BF5	TAMIL YEAR SIGN
+00BF6	TAMIL DEBIT SIGN
+00BF7	TAMIL CREDIT SIGN
+00BF8	TAMIL AS ABOVE SIGN
+00BF9	TAMIL RUPEE SIGN
+00BFA	TAMIL NUMBER SIGN
+00C00	TELUGU SIGN COMBINING CANDRABINDU ABOVE
+00C01	TELUGU SIGN CANDRABINDU
+00C02	TELUGU SIGN ANUSVARA
+00C03	TELUGU SIGN VISARGA
+00C05	TELUGU LETTER A
+00C06	TELUGU LETTER AA
+00C07	TELUGU LETTER I
+00C08	TELUGU LETTER II
+00C09	TELUGU LETTER U
+00C0A	TELUGU LETTER UU
+00C0B	TELUGU LETTER VOCALIC R
+00C0C	TELUGU LETTER VOCALIC L
+00C0E	TELUGU LETTER E
+00C0F	TELUGU LETTER EE
+00C10	TELUGU LETTER AI
+00C12	TELUGU LETTER O
+00C13	TELUGU LETTER OO
+00C14	TELUGU LETTER AU
+00C15	TELUGU LETTER KA
+00C16	TELUGU LETTER KHA
+00C17	TELUGU LETTER GA
+00C18	TELUGU LETTER GHA
+00C19	TELUGU LETTER NGA
+00C1A	TELUGU LETTER CA
+00C1B	TELUGU LETTER CHA
+00C1C	TELUGU LETTER JA
+00C1D	TELUGU LETTER JHA
+00C1E	TELUGU LETTER NYA
+00C1F	TELUGU LETTER TTA
+00C20	TELUGU LETTER TTHA
+00C21	TELUGU LETTER DDA
+00C22	TELUGU LETTER DDHA
+00C23	TELUGU LETTER NNA
+00C24	TELUGU LETTER TA
+00C25	TELUGU LETTER THA
+00C26	TELUGU LETTER DA
+00C27	TELUGU LETTER DHA
+00C28	TELUGU LETTER NA
+00C2A	TELUGU LETTER PA
+00C2B	TELUGU LETTER PHA
+00C2C	TELUGU LETTER BA
+00C2D	TELUGU LETTER BHA
+00C2E	TELUGU LETTER MA
+00C2F	TELUGU LETTER YA
+00C30	TELUGU LETTER RA
+00C31	TELUGU LETTER RRA
+00C32	TELUGU LETTER LA
+00C33	TELUGU LETTER LLA
+00C34	TELUGU LETTER LLLA
+00C35	TELUGU LETTER VA
+00C36	TELUGU LETTER SHA
+00C37	TELUGU LETTER SSA
+00C38	TELUGU LETTER SA
+00C39	TELUGU LETTER HA
+00C3D	TELUGU SIGN AVAGRAHA
+00C3E	TELUGU VOWEL SIGN AA
+00C3F	TELUGU VOWEL SIGN I
+00C40	TELUGU VOWEL SIGN II
+00C41	TELUGU VOWEL SIGN U
+00C42	TELUGU VOWEL SIGN UU
+00C43	TELUGU VOWEL SIGN VOCALIC R
+00C44	TELUGU VOWEL SIGN VOCALIC RR
+00C46	TELUGU VOWEL SIGN E
+00C47	TELUGU VOWEL SIGN EE
+00C48	TELUGU VOWEL SIGN AI
+00C4A	TELUGU VOWEL SIGN O
+00C4B	TELUGU VOWEL SIGN OO
+00C4C	TELUGU VOWEL SIGN AU
+00C4D	TELUGU SIGN VIRAMA
+00C55	TELUGU LENGTH MARK
+00C56	TELUGU AI LENGTH MARK
+00C58	TELUGU LETTER TSA
+00C59	TELUGU LETTER DZA
+00C5A	TELUGU LETTER RRRA
+00C60	TELUGU LETTER VOCALIC RR
+00C61	TELUGU LETTER VOCALIC LL
+00C62	TELUGU VOWEL SIGN VOCALIC L
+00C63	TELUGU VOWEL SIGN VOCALIC LL
+00C66	TELUGU DIGIT ZERO
+00C67	TELUGU DIGIT ONE
+00C68	TELUGU DIGIT TWO
+00C69	TELUGU DIGIT THREE
+00C6A	TELUGU DIGIT FOUR
+00C6B	TELUGU DIGIT FIVE
+00C6C	TELUGU DIGIT SIX
+00C6D	TELUGU DIGIT SEVEN
+00C6E	TELUGU DIGIT EIGHT
+00C6F	TELUGU DIGIT NINE
+00C78	TELUGU FRACTION DIGIT ZERO FOR ODD POWERS OF FOUR
+00C79	TELUGU FRACTION DIGIT ONE FOR ODD POWERS OF FOUR
+00C7A	TELUGU FRACTION DIGIT TWO FOR ODD POWERS OF FOUR
+00C7B	TELUGU FRACTION DIGIT THREE FOR ODD POWERS OF FOUR
+00C7C	TELUGU FRACTION DIGIT ONE FOR EVEN POWERS OF FOUR
+00C7D	TELUGU FRACTION DIGIT TWO FOR EVEN POWERS OF FOUR
+00C7E	TELUGU FRACTION DIGIT THREE FOR EVEN POWERS OF FOUR
+00C7F	TELUGU SIGN TUUMU
+00C81	KANNADA SIGN CANDRABINDU
+00C82	KANNADA SIGN ANUSVARA
+00C83	KANNADA SIGN VISARGA
+00C85	KANNADA LETTER A
+00C86	KANNADA LETTER AA
+00C87	KANNADA LETTER I
+00C88	KANNADA LETTER II
+00C89	KANNADA LETTER U
+00C8A	KANNADA LETTER UU
+00C8B	KANNADA LETTER VOCALIC R
+00C8C	KANNADA LETTER VOCALIC L
+00C8E	KANNADA LETTER E
+00C8F	KANNADA LETTER EE
+00C90	KANNADA LETTER AI
+00C92	KANNADA LETTER O
+00C93	KANNADA LETTER OO
+00C94	KANNADA LETTER AU
+00C95	KANNADA LETTER KA
+00C96	KANNADA LETTER KHA
+00C97	KANNADA LETTER GA
+00C98	KANNADA LETTER GHA
+00C99	KANNADA LETTER NGA
+00C9A	KANNADA LETTER CA
+00C9B	KANNADA LETTER CHA
+00C9C	KANNADA LETTER JA
+00C9D	KANNADA LETTER JHA
+00C9E	KANNADA LETTER NYA
+00C9F	KANNADA LETTER TTA
+00CA0	KANNADA LETTER TTHA
+00CA1	KANNADA LETTER DDA
+00CA2	KANNADA LETTER DDHA
+00CA3	KANNADA LETTER NNA
+00CA4	KANNADA LETTER TA
+00CA5	KANNADA LETTER THA
+00CA6	KANNADA LETTER DA
+00CA7	KANNADA LETTER DHA
+00CA8	KANNADA LETTER NA
+00CAA	KANNADA LETTER PA
+00CAB	KANNADA LETTER PHA
+00CAC	KANNADA LETTER BA
+00CAD	KANNADA LETTER BHA
+00CAE	KANNADA LETTER MA
+00CAF	KANNADA LETTER YA
+00CB0	KANNADA LETTER RA
+00CB1	KANNADA LETTER RRA
+00CB2	KANNADA LETTER LA
+00CB3	KANNADA LETTER LLA
+00CB5	KANNADA LETTER VA
+00CB6	KANNADA LETTER SHA
+00CB7	KANNADA LETTER SSA
+00CB8	KANNADA LETTER SA
+00CB9	KANNADA LETTER HA
+00CBC	KANNADA SIGN NUKTA
+00CBD	KANNADA SIGN AVAGRAHA
+00CBE	KANNADA VOWEL SIGN AA
+00CBF	KANNADA VOWEL SIGN I
+00CC0	KANNADA VOWEL SIGN II
+00CC1	KANNADA VOWEL SIGN U
+00CC2	KANNADA VOWEL SIGN UU
+00CC3	KANNADA VOWEL SIGN VOCALIC R
+00CC4	KANNADA VOWEL SIGN VOCALIC RR
+00CC6	KANNADA VOWEL SIGN E
+00CC7	KANNADA VOWEL SIGN EE
+00CC8	KANNADA VOWEL SIGN AI
+00CCA	KANNADA VOWEL SIGN O
+00CCB	KANNADA VOWEL SIGN OO
+00CCC	KANNADA VOWEL SIGN AU
+00CCD	KANNADA SIGN VIRAMA
+00CD5	KANNADA LENGTH MARK
+00CD6	KANNADA AI LENGTH MARK
+00CDE	KANNADA LETTER LLLA
+00CDE	KANNADA LETTER FA
+00CE0	KANNADA LETTER VOCALIC RR
+00CE1	KANNADA LETTER VOCALIC LL
+00CE2	KANNADA VOWEL SIGN VOCALIC L
+00CE3	KANNADA VOWEL SIGN VOCALIC LL
+00CE6	KANNADA DIGIT ZERO
+00CE7	KANNADA DIGIT ONE
+00CE8	KANNADA DIGIT TWO
+00CE9	KANNADA DIGIT THREE
+00CEA	KANNADA DIGIT FOUR
+00CEB	KANNADA DIGIT FIVE
+00CEC	KANNADA DIGIT SIX
+00CED	KANNADA DIGIT SEVEN
+00CEE	KANNADA DIGIT EIGHT
+00CEF	KANNADA DIGIT NINE
+00CF1	KANNADA SIGN JIHVAMULIYA
+00CF2	KANNADA SIGN UPADHMANIYA
+00D01	MALAYALAM SIGN CANDRABINDU
+00D02	MALAYALAM SIGN ANUSVARA
+00D03	MALAYALAM SIGN VISARGA
+00D05	MALAYALAM LETTER A
+00D06	MALAYALAM LETTER AA
+00D07	MALAYALAM LETTER I
+00D08	MALAYALAM LETTER II
+00D09	MALAYALAM LETTER U
+00D0A	MALAYALAM LETTER UU
+00D0B	MALAYALAM LETTER VOCALIC R
+00D0C	MALAYALAM LETTER VOCALIC L
+00D0E	MALAYALAM LETTER E
+00D0F	MALAYALAM LETTER EE
+00D10	MALAYALAM LETTER AI
+00D12	MALAYALAM LETTER O
+00D13	MALAYALAM LETTER OO
+00D14	MALAYALAM LETTER AU
+00D15	MALAYALAM LETTER KA
+00D16	MALAYALAM LETTER KHA
+00D17	MALAYALAM LETTER GA
+00D18	MALAYALAM LETTER GHA
+00D19	MALAYALAM LETTER NGA
+00D1A	MALAYALAM LETTER CA
+00D1B	MALAYALAM LETTER CHA
+00D1C	MALAYALAM LETTER JA
+00D1D	MALAYALAM LETTER JHA
+00D1E	MALAYALAM LETTER NYA
+00D1F	MALAYALAM LETTER TTA
+00D20	MALAYALAM LETTER TTHA
+00D21	MALAYALAM LETTER DDA
+00D22	MALAYALAM LETTER DDHA
+00D23	MALAYALAM LETTER NNA
+00D24	MALAYALAM LETTER TA
+00D25	MALAYALAM LETTER THA
+00D26	MALAYALAM LETTER DA
+00D27	MALAYALAM LETTER DHA
+00D28	MALAYALAM LETTER NA
+00D29	MALAYALAM LETTER NNNA
+00D2A	MALAYALAM LETTER PA
+00D2B	MALAYALAM LETTER PHA
+00D2C	MALAYALAM LETTER BA
+00D2D	MALAYALAM LETTER BHA
+00D2E	MALAYALAM LETTER MA
+00D2F	MALAYALAM LETTER YA
+00D30	MALAYALAM LETTER RA
+00D31	MALAYALAM LETTER RRA
+00D32	MALAYALAM LETTER LA
+00D33	MALAYALAM LETTER LLA
+00D34	MALAYALAM LETTER LLLA
+00D35	MALAYALAM LETTER VA
+00D36	MALAYALAM LETTER SHA
+00D37	MALAYALAM LETTER SSA
+00D38	MALAYALAM LETTER SA
+00D39	MALAYALAM LETTER HA
+00D3A	MALAYALAM LETTER TTTA
+00D3D	MALAYALAM SIGN AVAGRAHA
+00D3E	MALAYALAM VOWEL SIGN AA
+00D3F	MALAYALAM VOWEL SIGN I
+00D40	MALAYALAM VOWEL SIGN II
+00D41	MALAYALAM VOWEL SIGN U
+00D42	MALAYALAM VOWEL SIGN UU
+00D43	MALAYALAM VOWEL SIGN VOCALIC R
+00D44	MALAYALAM VOWEL SIGN VOCALIC RR
+00D46	MALAYALAM VOWEL SIGN E
+00D47	MALAYALAM VOWEL SIGN EE
+00D48	MALAYALAM VOWEL SIGN AI
+00D4A	MALAYALAM VOWEL SIGN O
+00D4B	MALAYALAM VOWEL SIGN OO
+00D4C	MALAYALAM VOWEL SIGN AU
+00D4D	MALAYALAM SIGN VIRAMA
+00D4E	MALAYALAM LETTER DOT REPH
+00D57	MALAYALAM AU LENGTH MARK
+00D5F	MALAYALAM LETTER ARCHAIC II
+00D60	MALAYALAM LETTER VOCALIC RR
+00D61	MALAYALAM LETTER VOCALIC LL
+00D62	MALAYALAM VOWEL SIGN VOCALIC L
+00D63	MALAYALAM VOWEL SIGN VOCALIC LL
+00D66	MALAYALAM DIGIT ZERO
+00D67	MALAYALAM DIGIT ONE
+00D68	MALAYALAM DIGIT TWO
+00D69	MALAYALAM DIGIT THREE
+00D6A	MALAYALAM DIGIT FOUR
+00D6B	MALAYALAM DIGIT FIVE
+00D6C	MALAYALAM DIGIT SIX
+00D6D	MALAYALAM DIGIT SEVEN
+00D6E	MALAYALAM DIGIT EIGHT
+00D6F	MALAYALAM DIGIT NINE
+00D70	MALAYALAM NUMBER TEN
+00D71	MALAYALAM NUMBER ONE HUNDRED
+00D72	MALAYALAM NUMBER ONE THOUSAND
+00D73	MALAYALAM FRACTION ONE QUARTER
+00D74	MALAYALAM FRACTION ONE HALF
+00D75	MALAYALAM FRACTION THREE QUARTERS
+00D79	MALAYALAM DATE MARK
+00D7A	MALAYALAM LETTER CHILLU NN
+00D7B	MALAYALAM LETTER CHILLU N
+00D7C	MALAYALAM LETTER CHILLU RR
+00D7D	MALAYALAM LETTER CHILLU L
+00D7E	MALAYALAM LETTER CHILLU LL
+00D7F	MALAYALAM LETTER CHILLU K
+00D82	SINHALA SIGN ANUSVARAYA
+00D83	SINHALA SIGN VISARGAYA
+00D85	SINHALA LETTER AYANNA
+00D86	SINHALA LETTER AAYANNA
+00D87	SINHALA LETTER AEYANNA
+00D88	SINHALA LETTER AEEYANNA
+00D89	SINHALA LETTER IYANNA
+00D8A	SINHALA LETTER IIYANNA
+00D8B	SINHALA LETTER UYANNA
+00D8C	SINHALA LETTER UUYANNA
+00D8D	SINHALA LETTER IRUYANNA
+00D8E	SINHALA LETTER IRUUYANNA
+00D8F	SINHALA LETTER ILUYANNA
+00D90	SINHALA LETTER ILUUYANNA
+00D91	SINHALA LETTER EYANNA
+00D92	SINHALA LETTER EEYANNA
+00D93	SINHALA LETTER AIYANNA
+00D94	SINHALA LETTER OYANNA
+00D95	SINHALA LETTER OOYANNA
+00D96	SINHALA LETTER AUYANNA
+00D9A	SINHALA LETTER ALPAPRAANA KAYANNA
+00D9B	SINHALA LETTER MAHAAPRAANA KAYANNA
+00D9C	SINHALA LETTER ALPAPRAANA GAYANNA
+00D9D	SINHALA LETTER MAHAAPRAANA GAYANNA
+00D9E	SINHALA LETTER KANTAJA NAASIKYAYA
+00D9F	SINHALA LETTER SANYAKA GAYANNA
+00DA0	SINHALA LETTER ALPAPRAANA CAYANNA
+00DA1	SINHALA LETTER MAHAAPRAANA CAYANNA
+00DA2	SINHALA LETTER ALPAPRAANA JAYANNA
+00DA3	SINHALA LETTER MAHAAPRAANA JAYANNA
+00DA4	SINHALA LETTER TAALUJA NAASIKYAYA
+00DA5	SINHALA LETTER TAALUJA SANYOOGA NAAKSIKYAYA
+00DA6	SINHALA LETTER SANYAKA JAYANNA
+00DA7	SINHALA LETTER ALPAPRAANA TTAYANNA
+00DA8	SINHALA LETTER MAHAAPRAANA TTAYANNA
+00DA9	SINHALA LETTER ALPAPRAANA DDAYANNA
+00DAA	SINHALA LETTER MAHAAPRAANA DDAYANNA
+00DAB	SINHALA LETTER MUURDHAJA NAYANNA
+00DAC	SINHALA LETTER SANYAKA DDAYANNA
+00DAD	SINHALA LETTER ALPAPRAANA TAYANNA
+00DAE	SINHALA LETTER MAHAAPRAANA TAYANNA
+00DAF	SINHALA LETTER ALPAPRAANA DAYANNA
+00DB0	SINHALA LETTER MAHAAPRAANA DAYANNA
+00DB1	SINHALA LETTER DANTAJA NAYANNA
+00DB3	SINHALA LETTER SANYAKA DAYANNA
+00DB4	SINHALA LETTER ALPAPRAANA PAYANNA
+00DB5	SINHALA LETTER MAHAAPRAANA PAYANNA
+00DB6	SINHALA LETTER ALPAPRAANA BAYANNA
+00DB7	SINHALA LETTER MAHAAPRAANA BAYANNA
+00DB8	SINHALA LETTER MAYANNA
+00DB9	SINHALA LETTER AMBA BAYANNA
+00DBA	SINHALA LETTER YAYANNA
+00DBB	SINHALA LETTER RAYANNA
+00DBD	SINHALA LETTER DANTAJA LAYANNA
+00DC0	SINHALA LETTER VAYANNA
+00DC1	SINHALA LETTER TAALUJA SAYANNA
+00DC2	SINHALA LETTER MUURDHAJA SAYANNA
+00DC3	SINHALA LETTER DANTAJA SAYANNA
+00DC4	SINHALA LETTER HAYANNA
+00DC5	SINHALA LETTER MUURDHAJA LAYANNA
+00DC6	SINHALA LETTER FAYANNA
+00DCA	SINHALA SIGN AL-LAKUNA
+00DCF	SINHALA VOWEL SIGN AELA-PILLA
+00DD0	SINHALA VOWEL SIGN KETTI AEDA-PILLA
+00DD1	SINHALA VOWEL SIGN DIGA AEDA-PILLA
+00DD2	SINHALA VOWEL SIGN KETTI IS-PILLA
+00DD3	SINHALA VOWEL SIGN DIGA IS-PILLA
+00DD4	SINHALA VOWEL SIGN KETTI PAA-PILLA
+00DD6	SINHALA VOWEL SIGN DIGA PAA-PILLA
+00DD8	SINHALA VOWEL SIGN GAETTA-PILLA
+00DD9	SINHALA VOWEL SIGN KOMBUVA
+00DDA	SINHALA VOWEL SIGN DIGA KOMBUVA
+00DDB	SINHALA VOWEL SIGN KOMBU DEKA
+00DDC	SINHALA VOWEL SIGN KOMBUVA HAA AELA-PILLA
+00DDD	SINHALA VOWEL SIGN KOMBUVA HAA DIGA AELA-PILLA
+00DDE	SINHALA VOWEL SIGN KOMBUVA HAA GAYANUKITTA
+00DDF	SINHALA VOWEL SIGN GAYANUKITTA
+00DE6	SINHALA LITH DIGIT ZERO
+00DE7	SINHALA LITH DIGIT ONE
+00DE8	SINHALA LITH DIGIT TWO
+00DE9	SINHALA LITH DIGIT THREE
+00DEA	SINHALA LITH DIGIT FOUR
+00DEB	SINHALA LITH DIGIT FIVE
+00DEC	SINHALA LITH DIGIT SIX
+00DED	SINHALA LITH DIGIT SEVEN
+00DEE	SINHALA LITH DIGIT EIGHT
+00DEF	SINHALA LITH DIGIT NINE
+00DF2	SINHALA VOWEL SIGN DIGA GAETTA-PILLA
+00DF3	SINHALA VOWEL SIGN DIGA GAYANUKITTA
+00DF4	SINHALA PUNCTUATION KUNDDALIYA
+00E01	THAI CHARACTER KO KAI
+00E02	THAI CHARACTER KHO KHAI
+00E03	THAI CHARACTER KHO KHUAT
+00E04	THAI CHARACTER KHO KHWAI
+00E05	THAI CHARACTER KHO KHON
+00E06	THAI CHARACTER KHO RAKHANG
+00E07	THAI CHARACTER NGO NGU
+00E08	THAI CHARACTER CHO CHAN
+00E09	THAI CHARACTER CHO CHING
+00E0A	THAI CHARACTER CHO CHANG
+00E0B	THAI CHARACTER SO SO
+00E0C	THAI CHARACTER CHO CHOE
+00E0D	THAI CHARACTER YO YING
+00E0E	THAI CHARACTER DO CHADA
+00E0F	THAI CHARACTER TO PATAK
+00E10	THAI CHARACTER THO THAN
+00E11	THAI CHARACTER THO NANGMONTHO
+00E12	THAI CHARACTER THO PHUTHAO
+00E13	THAI CHARACTER NO NEN
+00E14	THAI CHARACTER DO DEK
+00E15	THAI CHARACTER TO TAO
+00E16	THAI CHARACTER THO THUNG
+00E17	THAI CHARACTER THO THAHAN
+00E18	THAI CHARACTER THO THONG
+00E19	THAI CHARACTER NO NU
+00E1A	THAI CHARACTER BO BAIMAI
+00E1B	THAI CHARACTER PO PLA
+00E1C	THAI CHARACTER PHO PHUNG
+00E1D	THAI CHARACTER FO FA
+00E1E	THAI CHARACTER PHO PHAN
+00E1F	THAI CHARACTER FO FAN
+00E20	THAI CHARACTER PHO SAMPHAO
+00E21	THAI CHARACTER MO MA
+00E22	THAI CHARACTER YO YAK
+00E23	THAI CHARACTER RO RUA
+00E24	THAI CHARACTER RU
+00E25	THAI CHARACTER LO LING
+00E26	THAI CHARACTER LU
+00E27	THAI CHARACTER WO WAEN
+00E28	THAI CHARACTER SO SALA
+00E29	THAI CHARACTER SO RUSI
+00E2A	THAI CHARACTER SO SUA
+00E2B	THAI CHARACTER HO HIP
+00E2C	THAI CHARACTER LO CHULA
+00E2D	THAI CHARACTER O ANG
+00E2E	THAI CHARACTER HO NOKHUK
+00E2F	THAI CHARACTER PAIYANNOI
+00E30	THAI CHARACTER SARA A
+00E31	THAI CHARACTER MAI HAN-AKAT
+00E32	THAI CHARACTER SARA AA
+00E33	THAI CHARACTER SARA AM
+00E34	THAI CHARACTER SARA I
+00E35	THAI CHARACTER SARA II
+00E36	THAI CHARACTER SARA UE
+00E37	THAI CHARACTER SARA UEE
+00E38	THAI CHARACTER SARA U
+00E39	THAI CHARACTER SARA UU
+00E3A	THAI CHARACTER PHINTHU
+00E3F	THAI CURRENCY SYMBOL BAHT
+00E40	THAI CHARACTER SARA E
+00E41	THAI CHARACTER SARA AE
+00E42	THAI CHARACTER SARA O
+00E43	THAI CHARACTER SARA AI MAIMUAN
+00E44	THAI CHARACTER SARA AI MAIMALAI
+00E45	THAI CHARACTER LAKKHANGYAO
+00E46	THAI CHARACTER MAIYAMOK
+00E47	THAI CHARACTER MAITAIKHU
+00E48	THAI CHARACTER MAI EK
+00E49	THAI CHARACTER MAI THO
+00E4A	THAI CHARACTER MAI TRI
+00E4B	THAI CHARACTER MAI CHATTAWA
+00E4C	THAI CHARACTER THANTHAKHAT
+00E4D	THAI CHARACTER NIKHAHIT
+00E4E	THAI CHARACTER YAMAKKAN
+00E4F	THAI CHARACTER FONGMAN
+00E50	THAI DIGIT ZERO
+00E51	THAI DIGIT ONE
+00E52	THAI DIGIT TWO
+00E53	THAI DIGIT THREE
+00E54	THAI DIGIT FOUR
+00E55	THAI DIGIT FIVE
+00E56	THAI DIGIT SIX
+00E57	THAI DIGIT SEVEN
+00E58	THAI DIGIT EIGHT
+00E59	THAI DIGIT NINE
+00E5A	THAI CHARACTER ANGKHANKHU
+00E5B	THAI CHARACTER KHOMUT
+00E81	LAO LETTER KO
+00E82	LAO LETTER KHO SUNG
+00E84	LAO LETTER KHO TAM
+00E87	LAO LETTER NGO
+00E88	LAO LETTER CO
+00E8A	LAO LETTER SO TAM
+00E8D	LAO LETTER NYO
+00E94	LAO LETTER DO
+00E95	LAO LETTER TO
+00E96	LAO LETTER THO SUNG
+00E97	LAO LETTER THO TAM
+00E99	LAO LETTER NO
+00E9A	LAO LETTER BO
+00E9B	LAO LETTER PO
+00E9C	LAO LETTER PHO SUNG
+00E9D	LAO LETTER FO FON
+00E9D	LAO LETTER FO TAM
+00E9E	LAO LETTER PHO TAM
+00E9F	LAO LETTER FO FAY
+00E9F	LAO LETTER FO SUNG
+00EA1	LAO LETTER MO
+00EA2	LAO LETTER YO
+00EA3	LAO LETTER RO
+00EA3	LAO LETTER LO LING
+00EA5	LAO LETTER LO
+00EA5	LAO LETTER LO LOOT
+00EA7	LAO LETTER WO
+00EAA	LAO LETTER SO SUNG
+00EAB	LAO LETTER HO SUNG
+00EAD	LAO LETTER O
+00EAE	LAO LETTER HO TAM
+00EAF	LAO ELLIPSIS
+00EB0	LAO VOWEL SIGN A
+00EB1	LAO VOWEL SIGN MAI KAN
+00EB2	LAO VOWEL SIGN AA
+00EB3	LAO VOWEL SIGN AM
+00EB4	LAO VOWEL SIGN I
+00EB5	LAO VOWEL SIGN II
+00EB6	LAO VOWEL SIGN Y
+00EB7	LAO VOWEL SIGN YY
+00EB8	LAO VOWEL SIGN U
+00EB9	LAO VOWEL SIGN UU
+00EBB	LAO VOWEL SIGN MAI KON
+00EBC	LAO SEMIVOWEL SIGN LO
+00EBD	LAO SEMIVOWEL SIGN NYO
+00EC0	LAO VOWEL SIGN E
+00EC1	LAO VOWEL SIGN EI
+00EC2	LAO VOWEL SIGN O
+00EC3	LAO VOWEL SIGN AY
+00EC4	LAO VOWEL SIGN AI
+00EC6	LAO KO LA
+00EC8	LAO TONE MAI EK
+00EC9	LAO TONE MAI THO
+00ECA	LAO TONE MAI TI
+00ECB	LAO TONE MAI CATAWA
+00ECC	LAO CANCELLATION MARK
+00ECD	LAO NIGGAHITA
+00ED0	LAO DIGIT ZERO
+00ED1	LAO DIGIT ONE
+00ED2	LAO DIGIT TWO
+00ED3	LAO DIGIT THREE
+00ED4	LAO DIGIT FOUR
+00ED5	LAO DIGIT FIVE
+00ED6	LAO DIGIT SIX
+00ED7	LAO DIGIT SEVEN
+00ED8	LAO DIGIT EIGHT
+00ED9	LAO DIGIT NINE
+00EDC	LAO HO NO
+00EDD	LAO HO MO
+00EDE	LAO LETTER KHMU GO
+00EDF	LAO LETTER KHMU NYO
+00F00	TIBETAN SYLLABLE OM
+00F01	TIBETAN MARK GTER YIG MGO TRUNCATED A
+00F02	TIBETAN MARK GTER YIG MGO -UM RNAM BCAD MA
+00F03	TIBETAN MARK GTER YIG MGO -UM GTER TSHEG MA
+00F04	TIBETAN MARK INITIAL YIG MGO MDUN MA
+00F05	TIBETAN MARK CLOSING YIG MGO SGAB MA
+00F06	TIBETAN MARK CARET YIG MGO PHUR SHAD MA
+00F07	TIBETAN MARK YIG MGO TSHEG SHAD MA
+00F08	TIBETAN MARK SBRUL SHAD
+00F09	TIBETAN MARK BSKUR YIG MGO
+00F0A	TIBETAN MARK BKA- SHOG YIG MGO
+00F0B	TIBETAN MARK INTERSYLLABIC TSHEG
+00F0C	TIBETAN MARK DELIMITER TSHEG BSTAR
+00F0D	TIBETAN MARK SHAD
+00F0E	TIBETAN MARK NYIS SHAD
+00F0F	TIBETAN MARK TSHEG SHAD
+00F10	TIBETAN MARK NYIS TSHEG SHAD
+00F11	TIBETAN MARK RIN CHEN SPUNGS SHAD
+00F12	TIBETAN MARK RGYA GRAM SHAD
+00F13	TIBETAN MARK CARET -DZUD RTAGS ME LONG CAN
+00F14	TIBETAN MARK GTER TSHEG
+00F15	TIBETAN LOGOTYPE SIGN CHAD RTAGS
+00F16	TIBETAN LOGOTYPE SIGN LHAG RTAGS
+00F17	TIBETAN ASTROLOGICAL SIGN SGRA GCAN -CHAR RTAGS
+00F18	TIBETAN ASTROLOGICAL SIGN -KHYUD PA
+00F19	TIBETAN ASTROLOGICAL SIGN SDONG TSHUGS
+00F1A	TIBETAN SIGN RDEL DKAR GCIG
+00F1B	TIBETAN SIGN RDEL DKAR GNYIS
+00F1C	TIBETAN SIGN RDEL DKAR GSUM
+00F1D	TIBETAN SIGN RDEL NAG GCIG
+00F1E	TIBETAN SIGN RDEL NAG GNYIS
+00F1F	TIBETAN SIGN RDEL DKAR RDEL NAG
+00F20	TIBETAN DIGIT ZERO
+00F21	TIBETAN DIGIT ONE
+00F22	TIBETAN DIGIT TWO
+00F23	TIBETAN DIGIT THREE
+00F24	TIBETAN DIGIT FOUR
+00F25	TIBETAN DIGIT FIVE
+00F26	TIBETAN DIGIT SIX
+00F27	TIBETAN DIGIT SEVEN
+00F28	TIBETAN DIGIT EIGHT
+00F29	TIBETAN DIGIT NINE
+00F2A	TIBETAN DIGIT HALF ONE
+00F2B	TIBETAN DIGIT HALF TWO
+00F2C	TIBETAN DIGIT HALF THREE
+00F2D	TIBETAN DIGIT HALF FOUR
+00F2E	TIBETAN DIGIT HALF FIVE
+00F2F	TIBETAN DIGIT HALF SIX
+00F30	TIBETAN DIGIT HALF SEVEN
+00F31	TIBETAN DIGIT HALF EIGHT
+00F32	TIBETAN DIGIT HALF NINE
+00F33	TIBETAN DIGIT HALF ZERO
+00F34	TIBETAN MARK BSDUS RTAGS
+00F35	TIBETAN MARK NGAS BZUNG NYI ZLA
+00F36	TIBETAN MARK CARET -DZUD RTAGS BZHI MIG CAN
+00F37	TIBETAN MARK NGAS BZUNG SGOR RTAGS
+00F38	TIBETAN MARK CHE MGO
+00F39	TIBETAN MARK TSA -PHRU
+00F3A	TIBETAN MARK GUG RTAGS GYON
+00F3B	TIBETAN MARK GUG RTAGS GYAS
+00F3C	TIBETAN MARK ANG KHANG GYON
+00F3D	TIBETAN MARK ANG KHANG GYAS
+00F3E	TIBETAN SIGN YAR TSHES
+00F3F	TIBETAN SIGN MAR TSHES
+00F40	TIBETAN LETTER KA
+00F41	TIBETAN LETTER KHA
+00F42	TIBETAN LETTER GA
+00F43	TIBETAN LETTER GHA
+00F44	TIBETAN LETTER NGA
+00F45	TIBETAN LETTER CA
+00F46	TIBETAN LETTER CHA
+00F47	TIBETAN LETTER JA
+00F49	TIBETAN LETTER NYA
+00F4A	TIBETAN LETTER TTA
+00F4B	TIBETAN LETTER TTHA
+00F4C	TIBETAN LETTER DDA
+00F4D	TIBETAN LETTER DDHA
+00F4E	TIBETAN LETTER NNA
+00F4F	TIBETAN LETTER TA
+00F50	TIBETAN LETTER THA
+00F51	TIBETAN LETTER DA
+00F52	TIBETAN LETTER DHA
+00F53	TIBETAN LETTER NA
+00F54	TIBETAN LETTER PA
+00F55	TIBETAN LETTER PHA
+00F56	TIBETAN LETTER BA
+00F57	TIBETAN LETTER BHA
+00F58	TIBETAN LETTER MA
+00F59	TIBETAN LETTER TSA
+00F5A	TIBETAN LETTER TSHA
+00F5B	TIBETAN LETTER DZA
+00F5C	TIBETAN LETTER DZHA
+00F5D	TIBETAN LETTER WA
+00F5E	TIBETAN LETTER ZHA
+00F5F	TIBETAN LETTER ZA
+00F60	TIBETAN LETTER -A
+00F61	TIBETAN LETTER YA
+00F62	TIBETAN LETTER RA
+00F63	TIBETAN LETTER LA
+00F64	TIBETAN LETTER SHA
+00F65	TIBETAN LETTER SSA
+00F66	TIBETAN LETTER SA
+00F67	TIBETAN LETTER HA
+00F68	TIBETAN LETTER A
+00F69	TIBETAN LETTER KSSA
+00F6A	TIBETAN LETTER FIXED-FORM RA
+00F6B	TIBETAN LETTER KKA
+00F6C	TIBETAN LETTER RRA
+00F71	TIBETAN VOWEL SIGN AA
+00F72	TIBETAN VOWEL SIGN I
+00F73	TIBETAN VOWEL SIGN II
+00F74	TIBETAN VOWEL SIGN U
+00F75	TIBETAN VOWEL SIGN UU
+00F76	TIBETAN VOWEL SIGN VOCALIC R
+00F77	TIBETAN VOWEL SIGN VOCALIC RR
+00F78	TIBETAN VOWEL SIGN VOCALIC L
+00F79	TIBETAN VOWEL SIGN VOCALIC LL
+00F7A	TIBETAN VOWEL SIGN E
+00F7B	TIBETAN VOWEL SIGN EE
+00F7C	TIBETAN VOWEL SIGN O
+00F7D	TIBETAN VOWEL SIGN OO
+00F7E	TIBETAN SIGN RJES SU NGA RO
+00F7F	TIBETAN SIGN RNAM BCAD
+00F80	TIBETAN VOWEL SIGN REVERSED I
+00F81	TIBETAN VOWEL SIGN REVERSED II
+00F82	TIBETAN SIGN NYI ZLA NAA DA
+00F83	TIBETAN SIGN SNA LDAN
+00F84	TIBETAN MARK HALANTA
+00F85	TIBETAN MARK PALUTA
+00F86	TIBETAN SIGN LCI RTAGS
+00F87	TIBETAN SIGN YANG RTAGS
+00F88	TIBETAN SIGN LCE TSA CAN
+00F89	TIBETAN SIGN MCHU CAN
+00F8A	TIBETAN SIGN GRU CAN RGYINGS
+00F8B	TIBETAN SIGN GRU MED RGYINGS
+00F8C	TIBETAN SIGN INVERTED MCHU CAN
+00F8D	TIBETAN SUBJOINED SIGN LCE TSA CAN
+00F8E	TIBETAN SUBJOINED SIGN MCHU CAN
+00F8F	TIBETAN SUBJOINED SIGN INVERTED MCHU CAN
+00F90	TIBETAN SUBJOINED LETTER KA
+00F91	TIBETAN SUBJOINED LETTER KHA
+00F92	TIBETAN SUBJOINED LETTER GA
+00F93	TIBETAN SUBJOINED LETTER GHA
+00F94	TIBETAN SUBJOINED LETTER NGA
+00F95	TIBETAN SUBJOINED LETTER CA
+00F96	TIBETAN SUBJOINED LETTER CHA
+00F97	TIBETAN SUBJOINED LETTER JA
+00F99	TIBETAN SUBJOINED LETTER NYA
+00F9A	TIBETAN SUBJOINED LETTER TTA
+00F9B	TIBETAN SUBJOINED LETTER TTHA
+00F9C	TIBETAN SUBJOINED LETTER DDA
+00F9D	TIBETAN SUBJOINED LETTER DDHA
+00F9E	TIBETAN SUBJOINED LETTER NNA
+00F9F	TIBETAN SUBJOINED LETTER TA
+00FA0	TIBETAN SUBJOINED LETTER THA
+00FA1	TIBETAN SUBJOINED LETTER DA
+00FA2	TIBETAN SUBJOINED LETTER DHA
+00FA3	TIBETAN SUBJOINED LETTER NA
+00FA4	TIBETAN SUBJOINED LETTER PA
+00FA5	TIBETAN SUBJOINED LETTER PHA
+00FA6	TIBETAN SUBJOINED LETTER BA
+00FA7	TIBETAN SUBJOINED LETTER BHA
+00FA8	TIBETAN SUBJOINED LETTER MA
+00FA9	TIBETAN SUBJOINED LETTER TSA
+00FAA	TIBETAN SUBJOINED LETTER TSHA
+00FAB	TIBETAN SUBJOINED LETTER DZA
+00FAC	TIBETAN SUBJOINED LETTER DZHA
+00FAD	TIBETAN SUBJOINED LETTER WA
+00FAE	TIBETAN SUBJOINED LETTER ZHA
+00FAF	TIBETAN SUBJOINED LETTER ZA
+00FB0	TIBETAN SUBJOINED LETTER -A
+00FB1	TIBETAN SUBJOINED LETTER YA
+00FB2	TIBETAN SUBJOINED LETTER RA
+00FB3	TIBETAN SUBJOINED LETTER LA
+00FB4	TIBETAN SUBJOINED LETTER SHA
+00FB5	TIBETAN SUBJOINED LETTER SSA
+00FB6	TIBETAN SUBJOINED LETTER SA
+00FB7	TIBETAN SUBJOINED LETTER HA
+00FB8	TIBETAN SUBJOINED LETTER A
+00FB9	TIBETAN SUBJOINED LETTER KSSA
+00FBA	TIBETAN SUBJOINED LETTER FIXED-FORM WA
+00FBB	TIBETAN SUBJOINED LETTER FIXED-FORM YA
+00FBC	TIBETAN SUBJOINED LETTER FIXED-FORM RA
+00FBE	TIBETAN KU RU KHA
+00FBF	TIBETAN KU RU KHA BZHI MIG CAN
+00FC0	TIBETAN CANTILLATION SIGN HEAVY BEAT
+00FC1	TIBETAN CANTILLATION SIGN LIGHT BEAT
+00FC2	TIBETAN CANTILLATION SIGN CANG TE-U
+00FC3	TIBETAN CANTILLATION SIGN SBUB -CHAL
+00FC4	TIBETAN SYMBOL DRIL BU
+00FC5	TIBETAN SYMBOL RDO RJE
+00FC6	TIBETAN SYMBOL PADMA GDAN
+00FC7	TIBETAN SYMBOL RDO RJE RGYA GRAM
+00FC8	TIBETAN SYMBOL PHUR PA
+00FC9	TIBETAN SYMBOL NOR BU
+00FCA	TIBETAN SYMBOL NOR BU NYIS -KHYIL
+00FCB	TIBETAN SYMBOL NOR BU GSUM -KHYIL
+00FCC	TIBETAN SYMBOL NOR BU BZHI -KHYIL
+00FCE	TIBETAN SIGN RDEL NAG RDEL DKAR
+00FCF	TIBETAN SIGN RDEL NAG GSUM
+00FD0	TIBETAN MARK BKA- SHOG GI MGO RGYAN
+00FD0	TIBETAN MARK BSKA- SHOG GI MGO RGYAN
+00FD1	TIBETAN MARK MNYAM YIG GI MGO RGYAN
+00FD2	TIBETAN MARK NYIS TSHEG
+00FD3	TIBETAN MARK INITIAL BRDA RNYING YIG MGO MDUN MA
+00FD4	TIBETAN MARK CLOSING BRDA RNYING YIG MGO SGAB MA
+00FD5	RIGHT-FACING SVASTI SIGN
+00FD6	LEFT-FACING SVASTI SIGN
+00FD7	RIGHT-FACING SVASTI SIGN WITH DOTS
+00FD8	LEFT-FACING SVASTI SIGN WITH DOTS
+00FD9	TIBETAN MARK LEADING MCHAN RTAGS
+00FDA	TIBETAN MARK TRAILING MCHAN RTAGS
+01000	MYANMAR LETTER KA
+01001	MYANMAR LETTER KHA
+01002	MYANMAR LETTER GA
+01003	MYANMAR LETTER GHA
+01004	MYANMAR LETTER NGA
+01005	MYANMAR LETTER CA
+01006	MYANMAR LETTER CHA
+01007	MYANMAR LETTER JA
+01008	MYANMAR LETTER JHA
+01009	MYANMAR LETTER NYA
+0100A	MYANMAR LETTER NNYA
+0100B	MYANMAR LETTER TTA
+0100C	MYANMAR LETTER TTHA
+0100D	MYANMAR LETTER DDA
+0100E	MYANMAR LETTER DDHA
+0100F	MYANMAR LETTER NNA
+01010	MYANMAR LETTER TA
+01011	MYANMAR LETTER THA
+01012	MYANMAR LETTER DA
+01013	MYANMAR LETTER DHA
+01014	MYANMAR LETTER NA
+01015	MYANMAR LETTER PA
+01016	MYANMAR LETTER PHA
+01017	MYANMAR LETTER BA
+01018	MYANMAR LETTER BHA
+01019	MYANMAR LETTER MA
+0101A	MYANMAR LETTER YA
+0101B	MYANMAR LETTER RA
+0101C	MYANMAR LETTER LA
+0101D	MYANMAR LETTER WA
+0101E	MYANMAR LETTER SA
+0101F	MYANMAR LETTER HA
+01020	MYANMAR LETTER LLA
+01021	MYANMAR LETTER A
+01022	MYANMAR LETTER SHAN A
+01023	MYANMAR LETTER I
+01024	MYANMAR LETTER II
+01025	MYANMAR LETTER U
+01026	MYANMAR LETTER UU
+01027	MYANMAR LETTER E
+01028	MYANMAR LETTER MON E
+01029	MYANMAR LETTER O
+0102A	MYANMAR LETTER AU
+0102B	MYANMAR VOWEL SIGN TALL AA
+0102C	MYANMAR VOWEL SIGN AA
+0102D	MYANMAR VOWEL SIGN I
+0102E	MYANMAR VOWEL SIGN II
+0102F	MYANMAR VOWEL SIGN U
+01030	MYANMAR VOWEL SIGN UU
+01031	MYANMAR VOWEL SIGN E
+01032	MYANMAR VOWEL SIGN AI
+01033	MYANMAR VOWEL SIGN MON II
+01034	MYANMAR VOWEL SIGN MON O
+01035	MYANMAR VOWEL SIGN E ABOVE
+01036	MYANMAR SIGN ANUSVARA
+01037	MYANMAR SIGN DOT BELOW
+01038	MYANMAR SIGN VISARGA
+01039	MYANMAR SIGN VIRAMA
+0103A	MYANMAR SIGN ASAT
+0103B	MYANMAR CONSONANT SIGN MEDIAL YA
+0103C	MYANMAR CONSONANT SIGN MEDIAL RA
+0103D	MYANMAR CONSONANT SIGN MEDIAL WA
+0103E	MYANMAR CONSONANT SIGN MEDIAL HA
+0103F	MYANMAR LETTER GREAT SA
+01040	MYANMAR DIGIT ZERO
+01041	MYANMAR DIGIT ONE
+01042	MYANMAR DIGIT TWO
+01043	MYANMAR DIGIT THREE
+01044	MYANMAR DIGIT FOUR
+01045	MYANMAR DIGIT FIVE
+01046	MYANMAR DIGIT SIX
+01047	MYANMAR DIGIT SEVEN
+01048	MYANMAR DIGIT EIGHT
+01049	MYANMAR DIGIT NINE
+0104A	MYANMAR SIGN LITTLE SECTION
+0104B	MYANMAR SIGN SECTION
+0104C	MYANMAR SYMBOL LOCATIVE
+0104D	MYANMAR SYMBOL COMPLETED
+0104E	MYANMAR SYMBOL AFOREMENTIONED
+0104F	MYANMAR SYMBOL GENITIVE
+01050	MYANMAR LETTER SHA
+01051	MYANMAR LETTER SSA
+01052	MYANMAR LETTER VOCALIC R
+01053	MYANMAR LETTER VOCALIC RR
+01054	MYANMAR LETTER VOCALIC L
+01055	MYANMAR LETTER VOCALIC LL
+01056	MYANMAR VOWEL SIGN VOCALIC R
+01057	MYANMAR VOWEL SIGN VOCALIC RR
+01058	MYANMAR VOWEL SIGN VOCALIC L
+01059	MYANMAR VOWEL SIGN VOCALIC LL
+0105A	MYANMAR LETTER MON NGA
+0105B	MYANMAR LETTER MON JHA
+0105C	MYANMAR LETTER MON BBA
+0105D	MYANMAR LETTER MON BBE
+0105E	MYANMAR CONSONANT SIGN MON MEDIAL NA
+0105F	MYANMAR CONSONANT SIGN MON MEDIAL MA
+01060	MYANMAR CONSONANT SIGN MON MEDIAL LA
+01061	MYANMAR LETTER SGAW KAREN SHA
+01062	MYANMAR VOWEL SIGN SGAW KAREN EU
+01063	MYANMAR TONE MARK SGAW KAREN HATHI
+01064	MYANMAR TONE MARK SGAW KAREN KE PHO
+01065	MYANMAR LETTER WESTERN PWO KAREN THA
+01066	MYANMAR LETTER WESTERN PWO KAREN PWA
+01067	MYANMAR VOWEL SIGN WESTERN PWO KAREN EU
+01068	MYANMAR VOWEL SIGN WESTERN PWO KAREN UE
+01069	MYANMAR SIGN WESTERN PWO KAREN TONE-1
+0106A	MYANMAR SIGN WESTERN PWO KAREN TONE-2
+0106B	MYANMAR SIGN WESTERN PWO KAREN TONE-3
+0106C	MYANMAR SIGN WESTERN PWO KAREN TONE-4
+0106D	MYANMAR SIGN WESTERN PWO KAREN TONE-5
+0106E	MYANMAR LETTER EASTERN PWO KAREN NNA
+0106F	MYANMAR LETTER EASTERN PWO KAREN YWA
+01070	MYANMAR LETTER EASTERN PWO KAREN GHWA
+01071	MYANMAR VOWEL SIGN GEBA KAREN I
+01072	MYANMAR VOWEL SIGN KAYAH OE
+01073	MYANMAR VOWEL SIGN KAYAH U
+01074	MYANMAR VOWEL SIGN KAYAH EE
+01075	MYANMAR LETTER SHAN KA
+01076	MYANMAR LETTER SHAN KHA
+01077	MYANMAR LETTER SHAN GA
+01078	MYANMAR LETTER SHAN CA
+01079	MYANMAR LETTER SHAN ZA
+0107A	MYANMAR LETTER SHAN NYA
+0107B	MYANMAR LETTER SHAN DA
+0107C	MYANMAR LETTER SHAN NA
+0107D	MYANMAR LETTER SHAN PHA
+0107E	MYANMAR LETTER SHAN FA
+0107F	MYANMAR LETTER SHAN BA
+01080	MYANMAR LETTER SHAN THA
+01081	MYANMAR LETTER SHAN HA
+01082	MYANMAR CONSONANT SIGN SHAN MEDIAL WA
+01083	MYANMAR VOWEL SIGN SHAN AA
+01084	MYANMAR VOWEL SIGN SHAN E
+01085	MYANMAR VOWEL SIGN SHAN E ABOVE
+01086	MYANMAR VOWEL SIGN SHAN FINAL Y
+01087	MYANMAR SIGN SHAN TONE-2
+01088	MYANMAR SIGN SHAN TONE-3
+01089	MYANMAR SIGN SHAN TONE-5
+0108A	MYANMAR SIGN SHAN TONE-6
+0108B	MYANMAR SIGN SHAN COUNCIL TONE-2
+0108C	MYANMAR SIGN SHAN COUNCIL TONE-3
+0108D	MYANMAR SIGN SHAN COUNCIL EMPHATIC TONE
+0108E	MYANMAR LETTER RUMAI PALAUNG FA
+0108F	MYANMAR SIGN RUMAI PALAUNG TONE-5
+01090	MYANMAR SHAN DIGIT ZERO
+01091	MYANMAR SHAN DIGIT ONE
+01092	MYANMAR SHAN DIGIT TWO
+01093	MYANMAR SHAN DIGIT THREE
+01094	MYANMAR SHAN DIGIT FOUR
+01095	MYANMAR SHAN DIGIT FIVE
+01096	MYANMAR SHAN DIGIT SIX
+01097	MYANMAR SHAN DIGIT SEVEN
+01098	MYANMAR SHAN DIGIT EIGHT
+01099	MYANMAR SHAN DIGIT NINE
+0109A	MYANMAR SIGN KHAMTI TONE-1
+0109B	MYANMAR SIGN KHAMTI TONE-3
+0109C	MYANMAR VOWEL SIGN AITON A
+0109D	MYANMAR VOWEL SIGN AITON AI
+0109E	MYANMAR SYMBOL SHAN ONE
+0109F	MYANMAR SYMBOL SHAN EXCLAMATION
+010A0	GEORGIAN CAPITAL LETTER AN
+010A1	GEORGIAN CAPITAL LETTER BAN
+010A2	GEORGIAN CAPITAL LETTER GAN
+010A3	GEORGIAN CAPITAL LETTER DON
+010A4	GEORGIAN CAPITAL LETTER EN
+010A5	GEORGIAN CAPITAL LETTER VIN
+010A6	GEORGIAN CAPITAL LETTER ZEN
+010A7	GEORGIAN CAPITAL LETTER TAN
+010A8	GEORGIAN CAPITAL LETTER IN
+010A9	GEORGIAN CAPITAL LETTER KAN
+010AA	GEORGIAN CAPITAL LETTER LAS
+010AB	GEORGIAN CAPITAL LETTER MAN
+010AC	GEORGIAN CAPITAL LETTER NAR
+010AD	GEORGIAN CAPITAL LETTER ON
+010AE	GEORGIAN CAPITAL LETTER PAR
+010AF	GEORGIAN CAPITAL LETTER ZHAR
+010B0	GEORGIAN CAPITAL LETTER RAE
+010B1	GEORGIAN CAPITAL LETTER SAN
+010B2	GEORGIAN CAPITAL LETTER TAR
+010B3	GEORGIAN CAPITAL LETTER UN
+010B4	GEORGIAN CAPITAL LETTER PHAR
+010B5	GEORGIAN CAPITAL LETTER KHAR
+010B6	GEORGIAN CAPITAL LETTER GHAN
+010B7	GEORGIAN CAPITAL LETTER QAR
+010B8	GEORGIAN CAPITAL LETTER SHIN
+010B9	GEORGIAN CAPITAL LETTER CHIN
+010BA	GEORGIAN CAPITAL LETTER CAN
+010BB	GEORGIAN CAPITAL LETTER JIL
+010BC	GEORGIAN CAPITAL LETTER CIL
+010BD	GEORGIAN CAPITAL LETTER CHAR
+010BE	GEORGIAN CAPITAL LETTER XAN
+010BF	GEORGIAN CAPITAL LETTER JHAN
+010C0	GEORGIAN CAPITAL LETTER HAE
+010C1	GEORGIAN CAPITAL LETTER HE
+010C2	GEORGIAN CAPITAL LETTER HIE
+010C3	GEORGIAN CAPITAL LETTER WE
+010C4	GEORGIAN CAPITAL LETTER HAR
+010C5	GEORGIAN CAPITAL LETTER HOE
+010C7	GEORGIAN CAPITAL LETTER YN
+010CD	GEORGIAN CAPITAL LETTER AEN
+010D0	GEORGIAN LETTER AN
+010D1	GEORGIAN LETTER BAN
+010D2	GEORGIAN LETTER GAN
+010D3	GEORGIAN LETTER DON
+010D4	GEORGIAN LETTER EN
+010D5	GEORGIAN LETTER VIN
+010D6	GEORGIAN LETTER ZEN
+010D7	GEORGIAN LETTER TAN
+010D8	GEORGIAN LETTER IN
+010D9	GEORGIAN LETTER KAN
+010DA	GEORGIAN LETTER LAS
+010DB	GEORGIAN LETTER MAN
+010DC	GEORGIAN LETTER NAR
+010DD	GEORGIAN LETTER ON
+010DE	GEORGIAN LETTER PAR
+010DF	GEORGIAN LETTER ZHAR
+010E0	GEORGIAN LETTER RAE
+010E1	GEORGIAN LETTER SAN
+010E2	GEORGIAN LETTER TAR
+010E3	GEORGIAN LETTER UN
+010E4	GEORGIAN LETTER PHAR
+010E5	GEORGIAN LETTER KHAR
+010E6	GEORGIAN LETTER GHAN
+010E7	GEORGIAN LETTER QAR
+010E8	GEORGIAN LETTER SHIN
+010E9	GEORGIAN LETTER CHIN
+010EA	GEORGIAN LETTER CAN
+010EB	GEORGIAN LETTER JIL
+010EC	GEORGIAN LETTER CIL
+010ED	GEORGIAN LETTER CHAR
+010EE	GEORGIAN LETTER XAN
+010EF	GEORGIAN LETTER JHAN
+010F0	GEORGIAN LETTER HAE
+010F1	GEORGIAN LETTER HE
+010F2	GEORGIAN LETTER HIE
+010F3	GEORGIAN LETTER WE
+010F4	GEORGIAN LETTER HAR
+010F5	GEORGIAN LETTER HOE
+010F6	GEORGIAN LETTER FI
+010F7	GEORGIAN LETTER YN
+010F8	GEORGIAN LETTER ELIFI
+010F9	GEORGIAN LETTER TURNED GAN
+010FA	GEORGIAN LETTER AIN
+010FB	GEORGIAN PARAGRAPH SEPARATOR
+010FC	MODIFIER LETTER GEORGIAN NAR
+010FD	GEORGIAN LETTER AEN
+010FE	GEORGIAN LETTER HARD SIGN
+010FF	GEORGIAN LETTER LABIAL SIGN
+01100	HANGUL CHOSEONG KIYEOK
+01101	HANGUL CHOSEONG SSANGKIYEOK
+01102	HANGUL CHOSEONG NIEUN
+01103	HANGUL CHOSEONG TIKEUT
+01104	HANGUL CHOSEONG SSANGTIKEUT
+01105	HANGUL CHOSEONG RIEUL
+01106	HANGUL CHOSEONG MIEUM
+01107	HANGUL CHOSEONG PIEUP
+01108	HANGUL CHOSEONG SSANGPIEUP
+01109	HANGUL CHOSEONG SIOS
+0110A	HANGUL CHOSEONG SSANGSIOS
+0110B	HANGUL CHOSEONG IEUNG
+0110C	HANGUL CHOSEONG CIEUC
+0110D	HANGUL CHOSEONG SSANGCIEUC
+0110E	HANGUL CHOSEONG CHIEUCH
+0110F	HANGUL CHOSEONG KHIEUKH
+01110	HANGUL CHOSEONG THIEUTH
+01111	HANGUL CHOSEONG PHIEUPH
+01112	HANGUL CHOSEONG HIEUH
+01113	HANGUL CHOSEONG NIEUN-KIYEOK
+01114	HANGUL CHOSEONG SSANGNIEUN
+01115	HANGUL CHOSEONG NIEUN-TIKEUT
+01116	HANGUL CHOSEONG NIEUN-PIEUP
+01117	HANGUL CHOSEONG TIKEUT-KIYEOK
+01118	HANGUL CHOSEONG RIEUL-NIEUN
+01119	HANGUL CHOSEONG SSANGRIEUL
+0111A	HANGUL CHOSEONG RIEUL-HIEUH
+0111B	HANGUL CHOSEONG KAPYEOUNRIEUL
+0111C	HANGUL CHOSEONG MIEUM-PIEUP
+0111D	HANGUL CHOSEONG KAPYEOUNMIEUM
+0111E	HANGUL CHOSEONG PIEUP-KIYEOK
+0111F	HANGUL CHOSEONG PIEUP-NIEUN
+01120	HANGUL CHOSEONG PIEUP-TIKEUT
+01121	HANGUL CHOSEONG PIEUP-SIOS
+01122	HANGUL CHOSEONG PIEUP-SIOS-KIYEOK
+01123	HANGUL CHOSEONG PIEUP-SIOS-TIKEUT
+01124	HANGUL CHOSEONG PIEUP-SIOS-PIEUP
+01125	HANGUL CHOSEONG PIEUP-SSANGSIOS
+01126	HANGUL CHOSEONG PIEUP-SIOS-CIEUC
+01127	HANGUL CHOSEONG PIEUP-CIEUC
+01128	HANGUL CHOSEONG PIEUP-CHIEUCH
+01129	HANGUL CHOSEONG PIEUP-THIEUTH
+0112A	HANGUL CHOSEONG PIEUP-PHIEUPH
+0112B	HANGUL CHOSEONG KAPYEOUNPIEUP
+0112C	HANGUL CHOSEONG KAPYEOUNSSANGPIEUP
+0112D	HANGUL CHOSEONG SIOS-KIYEOK
+0112E	HANGUL CHOSEONG SIOS-NIEUN
+0112F	HANGUL CHOSEONG SIOS-TIKEUT
+01130	HANGUL CHOSEONG SIOS-RIEUL
+01131	HANGUL CHOSEONG SIOS-MIEUM
+01132	HANGUL CHOSEONG SIOS-PIEUP
+01133	HANGUL CHOSEONG SIOS-PIEUP-KIYEOK
+01134	HANGUL CHOSEONG SIOS-SSANGSIOS
+01135	HANGUL CHOSEONG SIOS-IEUNG
+01136	HANGUL CHOSEONG SIOS-CIEUC
+01137	HANGUL CHOSEONG SIOS-CHIEUCH
+01138	HANGUL CHOSEONG SIOS-KHIEUKH
+01139	HANGUL CHOSEONG SIOS-THIEUTH
+0113A	HANGUL CHOSEONG SIOS-PHIEUPH
+0113B	HANGUL CHOSEONG SIOS-HIEUH
+0113C	HANGUL CHOSEONG CHITUEUMSIOS
+0113D	HANGUL CHOSEONG CHITUEUMSSANGSIOS
+0113E	HANGUL CHOSEONG CEONGCHIEUMSIOS
+0113F	HANGUL CHOSEONG CEONGCHIEUMSSANGSIOS
+01140	HANGUL CHOSEONG PANSIOS
+01141	HANGUL CHOSEONG IEUNG-KIYEOK
+01142	HANGUL CHOSEONG IEUNG-TIKEUT
+01143	HANGUL CHOSEONG IEUNG-MIEUM
+01144	HANGUL CHOSEONG IEUNG-PIEUP
+01145	HANGUL CHOSEONG IEUNG-SIOS
+01146	HANGUL CHOSEONG IEUNG-PANSIOS
+01147	HANGUL CHOSEONG SSANGIEUNG
+01148	HANGUL CHOSEONG IEUNG-CIEUC
+01149	HANGUL CHOSEONG IEUNG-CHIEUCH
+0114A	HANGUL CHOSEONG IEUNG-THIEUTH
+0114B	HANGUL CHOSEONG IEUNG-PHIEUPH
+0114C	HANGUL CHOSEONG YESIEUNG
+0114D	HANGUL CHOSEONG CIEUC-IEUNG
+0114E	HANGUL CHOSEONG CHITUEUMCIEUC
+0114F	HANGUL CHOSEONG CHITUEUMSSANGCIEUC
+01150	HANGUL CHOSEONG CEONGCHIEUMCIEUC
+01151	HANGUL CHOSEONG CEONGCHIEUMSSANGCIEUC
+01152	HANGUL CHOSEONG CHIEUCH-KHIEUKH
+01153	HANGUL CHOSEONG CHIEUCH-HIEUH
+01154	HANGUL CHOSEONG CHITUEUMCHIEUCH
+01155	HANGUL CHOSEONG CEONGCHIEUMCHIEUCH
+01156	HANGUL CHOSEONG PHIEUPH-PIEUP
+01157	HANGUL CHOSEONG KAPYEOUNPHIEUPH
+01158	HANGUL CHOSEONG SSANGHIEUH
+01159	HANGUL CHOSEONG YEORINHIEUH
+0115A	HANGUL CHOSEONG KIYEOK-TIKEUT
+0115B	HANGUL CHOSEONG NIEUN-SIOS
+0115C	HANGUL CHOSEONG NIEUN-CIEUC
+0115D	HANGUL CHOSEONG NIEUN-HIEUH
+0115E	HANGUL CHOSEONG TIKEUT-RIEUL
+0115F	HANGUL CHOSEONG FILLER
+01160	HANGUL JUNGSEONG FILLER
+01161	HANGUL JUNGSEONG A
+01162	HANGUL JUNGSEONG AE
+01163	HANGUL JUNGSEONG YA
+01164	HANGUL JUNGSEONG YAE
+01165	HANGUL JUNGSEONG EO
+01166	HANGUL JUNGSEONG E
+01167	HANGUL JUNGSEONG YEO
+01168	HANGUL JUNGSEONG YE
+01169	HANGUL JUNGSEONG O
+0116A	HANGUL JUNGSEONG WA
+0116B	HANGUL JUNGSEONG WAE
+0116C	HANGUL JUNGSEONG OE
+0116D	HANGUL JUNGSEONG YO
+0116E	HANGUL JUNGSEONG U
+0116F	HANGUL JUNGSEONG WEO
+01170	HANGUL JUNGSEONG WE
+01171	HANGUL JUNGSEONG WI
+01172	HANGUL JUNGSEONG YU
+01173	HANGUL JUNGSEONG EU
+01174	HANGUL JUNGSEONG YI
+01175	HANGUL JUNGSEONG I
+01176	HANGUL JUNGSEONG A-O
+01177	HANGUL JUNGSEONG A-U
+01178	HANGUL JUNGSEONG YA-O
+01179	HANGUL JUNGSEONG YA-YO
+0117A	HANGUL JUNGSEONG EO-O
+0117B	HANGUL JUNGSEONG EO-U
+0117C	HANGUL JUNGSEONG EO-EU
+0117D	HANGUL JUNGSEONG YEO-O
+0117E	HANGUL JUNGSEONG YEO-U
+0117F	HANGUL JUNGSEONG O-EO
+01180	HANGUL JUNGSEONG O-E
+01181	HANGUL JUNGSEONG O-YE
+01182	HANGUL JUNGSEONG O-O
+01183	HANGUL JUNGSEONG O-U
+01184	HANGUL JUNGSEONG YO-YA
+01185	HANGUL JUNGSEONG YO-YAE
+01186	HANGUL JUNGSEONG YO-YEO
+01187	HANGUL JUNGSEONG YO-O
+01188	HANGUL JUNGSEONG YO-I
+01189	HANGUL JUNGSEONG U-A
+0118A	HANGUL JUNGSEONG U-AE
+0118B	HANGUL JUNGSEONG U-EO-EU
+0118C	HANGUL JUNGSEONG U-YE
+0118D	HANGUL JUNGSEONG U-U
+0118E	HANGUL JUNGSEONG YU-A
+0118F	HANGUL JUNGSEONG YU-EO
+01190	HANGUL JUNGSEONG YU-E
+01191	HANGUL JUNGSEONG YU-YEO
+01192	HANGUL JUNGSEONG YU-YE
+01193	HANGUL JUNGSEONG YU-U
+01194	HANGUL JUNGSEONG YU-I
+01195	HANGUL JUNGSEONG EU-U
+01196	HANGUL JUNGSEONG EU-EU
+01197	HANGUL JUNGSEONG YI-U
+01198	HANGUL JUNGSEONG I-A
+01199	HANGUL JUNGSEONG I-YA
+0119A	HANGUL JUNGSEONG I-O
+0119B	HANGUL JUNGSEONG I-U
+0119C	HANGUL JUNGSEONG I-EU
+0119D	HANGUL JUNGSEONG I-ARAEA
+0119E	HANGUL JUNGSEONG ARAEA
+0119F	HANGUL JUNGSEONG ARAEA-EO
+011A0	HANGUL JUNGSEONG ARAEA-U
+011A1	HANGUL JUNGSEONG ARAEA-I
+011A2	HANGUL JUNGSEONG SSANGARAEA
+011A3	HANGUL JUNGSEONG A-EU
+011A4	HANGUL JUNGSEONG YA-U
+011A5	HANGUL JUNGSEONG YEO-YA
+011A6	HANGUL JUNGSEONG O-YA
+011A7	HANGUL JUNGSEONG O-YAE
+011A8	HANGUL JONGSEONG KIYEOK
+011A9	HANGUL JONGSEONG SSANGKIYEOK
+011AA	HANGUL JONGSEONG KIYEOK-SIOS
+011AB	HANGUL JONGSEONG NIEUN
+011AC	HANGUL JONGSEONG NIEUN-CIEUC
+011AD	HANGUL JONGSEONG NIEUN-HIEUH
+011AE	HANGUL JONGSEONG TIKEUT
+011AF	HANGUL JONGSEONG RIEUL
+011B0	HANGUL JONGSEONG RIEUL-KIYEOK
+011B1	HANGUL JONGSEONG RIEUL-MIEUM
+011B2	HANGUL JONGSEONG RIEUL-PIEUP
+011B3	HANGUL JONGSEONG RIEUL-SIOS
+011B4	HANGUL JONGSEONG RIEUL-THIEUTH
+011B5	HANGUL JONGSEONG RIEUL-PHIEUPH
+011B6	HANGUL JONGSEONG RIEUL-HIEUH
+011B7	HANGUL JONGSEONG MIEUM
+011B8	HANGUL JONGSEONG PIEUP
+011B9	HANGUL JONGSEONG PIEUP-SIOS
+011BA	HANGUL JONGSEONG SIOS
+011BB	HANGUL JONGSEONG SSANGSIOS
+011BC	HANGUL JONGSEONG IEUNG
+011BD	HANGUL JONGSEONG CIEUC
+011BE	HANGUL JONGSEONG CHIEUCH
+011BF	HANGUL JONGSEONG KHIEUKH
+011C0	HANGUL JONGSEONG THIEUTH
+011C1	HANGUL JONGSEONG PHIEUPH
+011C2	HANGUL JONGSEONG HIEUH
+011C3	HANGUL JONGSEONG KIYEOK-RIEUL
+011C4	HANGUL JONGSEONG KIYEOK-SIOS-KIYEOK
+011C5	HANGUL JONGSEONG NIEUN-KIYEOK
+011C6	HANGUL JONGSEONG NIEUN-TIKEUT
+011C7	HANGUL JONGSEONG NIEUN-SIOS
+011C8	HANGUL JONGSEONG NIEUN-PANSIOS
+011C9	HANGUL JONGSEONG NIEUN-THIEUTH
+011CA	HANGUL JONGSEONG TIKEUT-KIYEOK
+011CB	HANGUL JONGSEONG TIKEUT-RIEUL
+011CC	HANGUL JONGSEONG RIEUL-KIYEOK-SIOS
+011CD	HANGUL JONGSEONG RIEUL-NIEUN
+011CE	HANGUL JONGSEONG RIEUL-TIKEUT
+011CF	HANGUL JONGSEONG RIEUL-TIKEUT-HIEUH
+011D0	HANGUL JONGSEONG SSANGRIEUL
+011D1	HANGUL JONGSEONG RIEUL-MIEUM-KIYEOK
+011D2	HANGUL JONGSEONG RIEUL-MIEUM-SIOS
+011D3	HANGUL JONGSEONG RIEUL-PIEUP-SIOS
+011D4	HANGUL JONGSEONG RIEUL-PIEUP-HIEUH
+011D5	HANGUL JONGSEONG RIEUL-KAPYEOUNPIEUP
+011D6	HANGUL JONGSEONG RIEUL-SSANGSIOS
+011D7	HANGUL JONGSEONG RIEUL-PANSIOS
+011D8	HANGUL JONGSEONG RIEUL-KHIEUKH
+011D9	HANGUL JONGSEONG RIEUL-YEORINHIEUH
+011DA	HANGUL JONGSEONG MIEUM-KIYEOK
+011DB	HANGUL JONGSEONG MIEUM-RIEUL
+011DC	HANGUL JONGSEONG MIEUM-PIEUP
+011DD	HANGUL JONGSEONG MIEUM-SIOS
+011DE	HANGUL JONGSEONG MIEUM-SSANGSIOS
+011DF	HANGUL JONGSEONG MIEUM-PANSIOS
+011E0	HANGUL JONGSEONG MIEUM-CHIEUCH
+011E1	HANGUL JONGSEONG MIEUM-HIEUH
+011E2	HANGUL JONGSEONG KAPYEOUNMIEUM
+011E3	HANGUL JONGSEONG PIEUP-RIEUL
+011E4	HANGUL JONGSEONG PIEUP-PHIEUPH
+011E5	HANGUL JONGSEONG PIEUP-HIEUH
+011E6	HANGUL JONGSEONG KAPYEOUNPIEUP
+011E7	HANGUL JONGSEONG SIOS-KIYEOK
+011E8	HANGUL JONGSEONG SIOS-TIKEUT
+011E9	HANGUL JONGSEONG SIOS-RIEUL
+011EA	HANGUL JONGSEONG SIOS-PIEUP
+011EB	HANGUL JONGSEONG PANSIOS
+011EC	HANGUL JONGSEONG IEUNG-KIYEOK
+011ED	HANGUL JONGSEONG IEUNG-SSANGKIYEOK
+011EE	HANGUL JONGSEONG SSANGIEUNG
+011EF	HANGUL JONGSEONG IEUNG-KHIEUKH
+011F0	HANGUL JONGSEONG YESIEUNG
+011F1	HANGUL JONGSEONG YESIEUNG-SIOS
+011F2	HANGUL JONGSEONG YESIEUNG-PANSIOS
+011F3	HANGUL JONGSEONG PHIEUPH-PIEUP
+011F4	HANGUL JONGSEONG KAPYEOUNPHIEUPH
+011F5	HANGUL JONGSEONG HIEUH-NIEUN
+011F6	HANGUL JONGSEONG HIEUH-RIEUL
+011F7	HANGUL JONGSEONG HIEUH-MIEUM
+011F8	HANGUL JONGSEONG HIEUH-PIEUP
+011F9	HANGUL JONGSEONG YEORINHIEUH
+011FA	HANGUL JONGSEONG KIYEOK-NIEUN
+011FB	HANGUL JONGSEONG KIYEOK-PIEUP
+011FC	HANGUL JONGSEONG KIYEOK-CHIEUCH
+011FD	HANGUL JONGSEONG KIYEOK-KHIEUKH
+011FE	HANGUL JONGSEONG KIYEOK-HIEUH
+011FF	HANGUL JONGSEONG SSANGNIEUN
+01200	ETHIOPIC SYLLABLE HA
+01201	ETHIOPIC SYLLABLE HU
+01202	ETHIOPIC SYLLABLE HI
+01203	ETHIOPIC SYLLABLE HAA
+01204	ETHIOPIC SYLLABLE HEE
+01205	ETHIOPIC SYLLABLE HE
+01206	ETHIOPIC SYLLABLE HO
+01207	ETHIOPIC SYLLABLE HOA
+01208	ETHIOPIC SYLLABLE LA
+01209	ETHIOPIC SYLLABLE LU
+0120A	ETHIOPIC SYLLABLE LI
+0120B	ETHIOPIC SYLLABLE LAA
+0120C	ETHIOPIC SYLLABLE LEE
+0120D	ETHIOPIC SYLLABLE LE
+0120E	ETHIOPIC SYLLABLE LO
+0120F	ETHIOPIC SYLLABLE LWA
+01210	ETHIOPIC SYLLABLE HHA
+01211	ETHIOPIC SYLLABLE HHU
+01212	ETHIOPIC SYLLABLE HHI
+01213	ETHIOPIC SYLLABLE HHAA
+01214	ETHIOPIC SYLLABLE HHEE
+01215	ETHIOPIC SYLLABLE HHE
+01216	ETHIOPIC SYLLABLE HHO
+01217	ETHIOPIC SYLLABLE HHWA
+01218	ETHIOPIC SYLLABLE MA
+01219	ETHIOPIC SYLLABLE MU
+0121A	ETHIOPIC SYLLABLE MI
+0121B	ETHIOPIC SYLLABLE MAA
+0121C	ETHIOPIC SYLLABLE MEE
+0121D	ETHIOPIC SYLLABLE ME
+0121E	ETHIOPIC SYLLABLE MO
+0121F	ETHIOPIC SYLLABLE MWA
+01220	ETHIOPIC SYLLABLE SZA
+01221	ETHIOPIC SYLLABLE SZU
+01222	ETHIOPIC SYLLABLE SZI
+01223	ETHIOPIC SYLLABLE SZAA
+01224	ETHIOPIC SYLLABLE SZEE
+01225	ETHIOPIC SYLLABLE SZE
+01226	ETHIOPIC SYLLABLE SZO
+01227	ETHIOPIC SYLLABLE SZWA
+01228	ETHIOPIC SYLLABLE RA
+01229	ETHIOPIC SYLLABLE RU
+0122A	ETHIOPIC SYLLABLE RI
+0122B	ETHIOPIC SYLLABLE RAA
+0122C	ETHIOPIC SYLLABLE REE
+0122D	ETHIOPIC SYLLABLE RE
+0122E	ETHIOPIC SYLLABLE RO
+0122F	ETHIOPIC SYLLABLE RWA
+01230	ETHIOPIC SYLLABLE SA
+01231	ETHIOPIC SYLLABLE SU
+01232	ETHIOPIC SYLLABLE SI
+01233	ETHIOPIC SYLLABLE SAA
+01234	ETHIOPIC SYLLABLE SEE
+01235	ETHIOPIC SYLLABLE SE
+01236	ETHIOPIC SYLLABLE SO
+01237	ETHIOPIC SYLLABLE SWA
+01238	ETHIOPIC SYLLABLE SHA
+01239	ETHIOPIC SYLLABLE SHU
+0123A	ETHIOPIC SYLLABLE SHI
+0123B	ETHIOPIC SYLLABLE SHAA
+0123C	ETHIOPIC SYLLABLE SHEE
+0123D	ETHIOPIC SYLLABLE SHE
+0123E	ETHIOPIC SYLLABLE SHO
+0123F	ETHIOPIC SYLLABLE SHWA
+01240	ETHIOPIC SYLLABLE QA
+01241	ETHIOPIC SYLLABLE QU
+01242	ETHIOPIC SYLLABLE QI
+01243	ETHIOPIC SYLLABLE QAA
+01244	ETHIOPIC SYLLABLE QEE
+01245	ETHIOPIC SYLLABLE QE
+01246	ETHIOPIC SYLLABLE QO
+01247	ETHIOPIC SYLLABLE QOA
+01248	ETHIOPIC SYLLABLE QWA
+0124A	ETHIOPIC SYLLABLE QWI
+0124B	ETHIOPIC SYLLABLE QWAA
+0124C	ETHIOPIC SYLLABLE QWEE
+0124D	ETHIOPIC SYLLABLE QWE
+01250	ETHIOPIC SYLLABLE QHA
+01251	ETHIOPIC SYLLABLE QHU
+01252	ETHIOPIC SYLLABLE QHI
+01253	ETHIOPIC SYLLABLE QHAA
+01254	ETHIOPIC SYLLABLE QHEE
+01255	ETHIOPIC SYLLABLE QHE
+01256	ETHIOPIC SYLLABLE QHO
+01258	ETHIOPIC SYLLABLE QHWA
+0125A	ETHIOPIC SYLLABLE QHWI
+0125B	ETHIOPIC SYLLABLE QHWAA
+0125C	ETHIOPIC SYLLABLE QHWEE
+0125D	ETHIOPIC SYLLABLE QHWE
+01260	ETHIOPIC SYLLABLE BA
+01261	ETHIOPIC SYLLABLE BU
+01262	ETHIOPIC SYLLABLE BI
+01263	ETHIOPIC SYLLABLE BAA
+01264	ETHIOPIC SYLLABLE BEE
+01265	ETHIOPIC SYLLABLE BE
+01266	ETHIOPIC SYLLABLE BO
+01267	ETHIOPIC SYLLABLE BWA
+01268	ETHIOPIC SYLLABLE VA
+01269	ETHIOPIC SYLLABLE VU
+0126A	ETHIOPIC SYLLABLE VI
+0126B	ETHIOPIC SYLLABLE VAA
+0126C	ETHIOPIC SYLLABLE VEE
+0126D	ETHIOPIC SYLLABLE VE
+0126E	ETHIOPIC SYLLABLE VO
+0126F	ETHIOPIC SYLLABLE VWA
+01270	ETHIOPIC SYLLABLE TA
+01271	ETHIOPIC SYLLABLE TU
+01272	ETHIOPIC SYLLABLE TI
+01273	ETHIOPIC SYLLABLE TAA
+01274	ETHIOPIC SYLLABLE TEE
+01275	ETHIOPIC SYLLABLE TE
+01276	ETHIOPIC SYLLABLE TO
+01277	ETHIOPIC SYLLABLE TWA
+01278	ETHIOPIC SYLLABLE CA
+01279	ETHIOPIC SYLLABLE CU
+0127A	ETHIOPIC SYLLABLE CI
+0127B	ETHIOPIC SYLLABLE CAA
+0127C	ETHIOPIC SYLLABLE CEE
+0127D	ETHIOPIC SYLLABLE CE
+0127E	ETHIOPIC SYLLABLE CO
+0127F	ETHIOPIC SYLLABLE CWA
+01280	ETHIOPIC SYLLABLE XA
+01281	ETHIOPIC SYLLABLE XU
+01282	ETHIOPIC SYLLABLE XI
+01283	ETHIOPIC SYLLABLE XAA
+01284	ETHIOPIC SYLLABLE XEE
+01285	ETHIOPIC SYLLABLE XE
+01286	ETHIOPIC SYLLABLE XO
+01287	ETHIOPIC SYLLABLE XOA
+01288	ETHIOPIC SYLLABLE XWA
+0128A	ETHIOPIC SYLLABLE XWI
+0128B	ETHIOPIC SYLLABLE XWAA
+0128C	ETHIOPIC SYLLABLE XWEE
+0128D	ETHIOPIC SYLLABLE XWE
+01290	ETHIOPIC SYLLABLE NA
+01291	ETHIOPIC SYLLABLE NU
+01292	ETHIOPIC SYLLABLE NI
+01293	ETHIOPIC SYLLABLE NAA
+01294	ETHIOPIC SYLLABLE NEE
+01295	ETHIOPIC SYLLABLE NE
+01296	ETHIOPIC SYLLABLE NO
+01297	ETHIOPIC SYLLABLE NWA
+01298	ETHIOPIC SYLLABLE NYA
+01299	ETHIOPIC SYLLABLE NYU
+0129A	ETHIOPIC SYLLABLE NYI
+0129B	ETHIOPIC SYLLABLE NYAA
+0129C	ETHIOPIC SYLLABLE NYEE
+0129D	ETHIOPIC SYLLABLE NYE
+0129E	ETHIOPIC SYLLABLE NYO
+0129F	ETHIOPIC SYLLABLE NYWA
+012A0	ETHIOPIC SYLLABLE GLOTTAL A
+012A1	ETHIOPIC SYLLABLE GLOTTAL U
+012A2	ETHIOPIC SYLLABLE GLOTTAL I
+012A3	ETHIOPIC SYLLABLE GLOTTAL AA
+012A4	ETHIOPIC SYLLABLE GLOTTAL EE
+012A5	ETHIOPIC SYLLABLE GLOTTAL E
+012A6	ETHIOPIC SYLLABLE GLOTTAL O
+012A7	ETHIOPIC SYLLABLE GLOTTAL WA
+012A8	ETHIOPIC SYLLABLE KA
+012A9	ETHIOPIC SYLLABLE KU
+012AA	ETHIOPIC SYLLABLE KI
+012AB	ETHIOPIC SYLLABLE KAA
+012AC	ETHIOPIC SYLLABLE KEE
+012AD	ETHIOPIC SYLLABLE KE
+012AE	ETHIOPIC SYLLABLE KO
+012AF	ETHIOPIC SYLLABLE KOA
+012B0	ETHIOPIC SYLLABLE KWA
+012B2	ETHIOPIC SYLLABLE KWI
+012B3	ETHIOPIC SYLLABLE KWAA
+012B4	ETHIOPIC SYLLABLE KWEE
+012B5	ETHIOPIC SYLLABLE KWE
+012B8	ETHIOPIC SYLLABLE KXA
+012B9	ETHIOPIC SYLLABLE KXU
+012BA	ETHIOPIC SYLLABLE KXI
+012BB	ETHIOPIC SYLLABLE KXAA
+012BC	ETHIOPIC SYLLABLE KXEE
+012BD	ETHIOPIC SYLLABLE KXE
+012BE	ETHIOPIC SYLLABLE KXO
+012C0	ETHIOPIC SYLLABLE KXWA
+012C2	ETHIOPIC SYLLABLE KXWI
+012C3	ETHIOPIC SYLLABLE KXWAA
+012C4	ETHIOPIC SYLLABLE KXWEE
+012C5	ETHIOPIC SYLLABLE KXWE
+012C8	ETHIOPIC SYLLABLE WA
+012C9	ETHIOPIC SYLLABLE WU
+012CA	ETHIOPIC SYLLABLE WI
+012CB	ETHIOPIC SYLLABLE WAA
+012CC	ETHIOPIC SYLLABLE WEE
+012CD	ETHIOPIC SYLLABLE WE
+012CE	ETHIOPIC SYLLABLE WO
+012CF	ETHIOPIC SYLLABLE WOA
+012D0	ETHIOPIC SYLLABLE PHARYNGEAL A
+012D1	ETHIOPIC SYLLABLE PHARYNGEAL U
+012D2	ETHIOPIC SYLLABLE PHARYNGEAL I
+012D3	ETHIOPIC SYLLABLE PHARYNGEAL AA
+012D4	ETHIOPIC SYLLABLE PHARYNGEAL EE
+012D5	ETHIOPIC SYLLABLE PHARYNGEAL E
+012D6	ETHIOPIC SYLLABLE PHARYNGEAL O
+012D8	ETHIOPIC SYLLABLE ZA
+012D9	ETHIOPIC SYLLABLE ZU
+012DA	ETHIOPIC SYLLABLE ZI
+012DB	ETHIOPIC SYLLABLE ZAA
+012DC	ETHIOPIC SYLLABLE ZEE
+012DD	ETHIOPIC SYLLABLE ZE
+012DE	ETHIOPIC SYLLABLE ZO
+012DF	ETHIOPIC SYLLABLE ZWA
+012E0	ETHIOPIC SYLLABLE ZHA
+012E1	ETHIOPIC SYLLABLE ZHU
+012E2	ETHIOPIC SYLLABLE ZHI
+012E3	ETHIOPIC SYLLABLE ZHAA
+012E4	ETHIOPIC SYLLABLE ZHEE
+012E5	ETHIOPIC SYLLABLE ZHE
+012E6	ETHIOPIC SYLLABLE ZHO
+012E7	ETHIOPIC SYLLABLE ZHWA
+012E8	ETHIOPIC SYLLABLE YA
+012E9	ETHIOPIC SYLLABLE YU
+012EA	ETHIOPIC SYLLABLE YI
+012EB	ETHIOPIC SYLLABLE YAA
+012EC	ETHIOPIC SYLLABLE YEE
+012ED	ETHIOPIC SYLLABLE YE
+012EE	ETHIOPIC SYLLABLE YO
+012EF	ETHIOPIC SYLLABLE YOA
+012F0	ETHIOPIC SYLLABLE DA
+012F1	ETHIOPIC SYLLABLE DU
+012F2	ETHIOPIC SYLLABLE DI
+012F3	ETHIOPIC SYLLABLE DAA
+012F4	ETHIOPIC SYLLABLE DEE
+012F5	ETHIOPIC SYLLABLE DE
+012F6	ETHIOPIC SYLLABLE DO
+012F7	ETHIOPIC SYLLABLE DWA
+012F8	ETHIOPIC SYLLABLE DDA
+012F9	ETHIOPIC SYLLABLE DDU
+012FA	ETHIOPIC SYLLABLE DDI
+012FB	ETHIOPIC SYLLABLE DDAA
+012FC	ETHIOPIC SYLLABLE DDEE
+012FD	ETHIOPIC SYLLABLE DDE
+012FE	ETHIOPIC SYLLABLE DDO
+012FF	ETHIOPIC SYLLABLE DDWA
+01300	ETHIOPIC SYLLABLE JA
+01301	ETHIOPIC SYLLABLE JU
+01302	ETHIOPIC SYLLABLE JI
+01303	ETHIOPIC SYLLABLE JAA
+01304	ETHIOPIC SYLLABLE JEE
+01305	ETHIOPIC SYLLABLE JE
+01306	ETHIOPIC SYLLABLE JO
+01307	ETHIOPIC SYLLABLE JWA
+01308	ETHIOPIC SYLLABLE GA
+01309	ETHIOPIC SYLLABLE GU
+0130A	ETHIOPIC SYLLABLE GI
+0130B	ETHIOPIC SYLLABLE GAA
+0130C	ETHIOPIC SYLLABLE GEE
+0130D	ETHIOPIC SYLLABLE GE
+0130E	ETHIOPIC SYLLABLE GO
+0130F	ETHIOPIC SYLLABLE GOA
+01310	ETHIOPIC SYLLABLE GWA
+01312	ETHIOPIC SYLLABLE GWI
+01313	ETHIOPIC SYLLABLE GWAA
+01314	ETHIOPIC SYLLABLE GWEE
+01315	ETHIOPIC SYLLABLE GWE
+01318	ETHIOPIC SYLLABLE GGA
+01319	ETHIOPIC SYLLABLE GGU
+0131A	ETHIOPIC SYLLABLE GGI
+0131B	ETHIOPIC SYLLABLE GGAA
+0131C	ETHIOPIC SYLLABLE GGEE
+0131D	ETHIOPIC SYLLABLE GGE
+0131E	ETHIOPIC SYLLABLE GGO
+0131F	ETHIOPIC SYLLABLE GGWAA
+01320	ETHIOPIC SYLLABLE THA
+01321	ETHIOPIC SYLLABLE THU
+01322	ETHIOPIC SYLLABLE THI
+01323	ETHIOPIC SYLLABLE THAA
+01324	ETHIOPIC SYLLABLE THEE
+01325	ETHIOPIC SYLLABLE THE
+01326	ETHIOPIC SYLLABLE THO
+01327	ETHIOPIC SYLLABLE THWA
+01328	ETHIOPIC SYLLABLE CHA
+01329	ETHIOPIC SYLLABLE CHU
+0132A	ETHIOPIC SYLLABLE CHI
+0132B	ETHIOPIC SYLLABLE CHAA
+0132C	ETHIOPIC SYLLABLE CHEE
+0132D	ETHIOPIC SYLLABLE CHE
+0132E	ETHIOPIC SYLLABLE CHO
+0132F	ETHIOPIC SYLLABLE CHWA
+01330	ETHIOPIC SYLLABLE PHA
+01331	ETHIOPIC SYLLABLE PHU
+01332	ETHIOPIC SYLLABLE PHI
+01333	ETHIOPIC SYLLABLE PHAA
+01334	ETHIOPIC SYLLABLE PHEE
+01335	ETHIOPIC SYLLABLE PHE
+01336	ETHIOPIC SYLLABLE PHO
+01337	ETHIOPIC SYLLABLE PHWA
+01338	ETHIOPIC SYLLABLE TSA
+01339	ETHIOPIC SYLLABLE TSU
+0133A	ETHIOPIC SYLLABLE TSI
+0133B	ETHIOPIC SYLLABLE TSAA
+0133C	ETHIOPIC SYLLABLE TSEE
+0133D	ETHIOPIC SYLLABLE TSE
+0133E	ETHIOPIC SYLLABLE TSO
+0133F	ETHIOPIC SYLLABLE TSWA
+01340	ETHIOPIC SYLLABLE TZA
+01341	ETHIOPIC SYLLABLE TZU
+01342	ETHIOPIC SYLLABLE TZI
+01343	ETHIOPIC SYLLABLE TZAA
+01344	ETHIOPIC SYLLABLE TZEE
+01345	ETHIOPIC SYLLABLE TZE
+01346	ETHIOPIC SYLLABLE TZO
+01347	ETHIOPIC SYLLABLE TZOA
+01348	ETHIOPIC SYLLABLE FA
+01349	ETHIOPIC SYLLABLE FU
+0134A	ETHIOPIC SYLLABLE FI
+0134B	ETHIOPIC SYLLABLE FAA
+0134C	ETHIOPIC SYLLABLE FEE
+0134D	ETHIOPIC SYLLABLE FE
+0134E	ETHIOPIC SYLLABLE FO
+0134F	ETHIOPIC SYLLABLE FWA
+01350	ETHIOPIC SYLLABLE PA
+01351	ETHIOPIC SYLLABLE PU
+01352	ETHIOPIC SYLLABLE PI
+01353	ETHIOPIC SYLLABLE PAA
+01354	ETHIOPIC SYLLABLE PEE
+01355	ETHIOPIC SYLLABLE PE
+01356	ETHIOPIC SYLLABLE PO
+01357	ETHIOPIC SYLLABLE PWA
+01358	ETHIOPIC SYLLABLE RYA
+01359	ETHIOPIC SYLLABLE MYA
+0135A	ETHIOPIC SYLLABLE FYA
+0135D	ETHIOPIC COMBINING GEMINATION AND VOWEL LENGTH MARK
+0135E	ETHIOPIC COMBINING VOWEL LENGTH MARK
+0135F	ETHIOPIC COMBINING GEMINATION MARK
+01360	ETHIOPIC SECTION MARK
+01361	ETHIOPIC WORDSPACE
+01362	ETHIOPIC FULL STOP
+01363	ETHIOPIC COMMA
+01364	ETHIOPIC SEMICOLON
+01365	ETHIOPIC COLON
+01366	ETHIOPIC PREFACE COLON
+01367	ETHIOPIC QUESTION MARK
+01368	ETHIOPIC PARAGRAPH SEPARATOR
+01369	ETHIOPIC DIGIT ONE
+0136A	ETHIOPIC DIGIT TWO
+0136B	ETHIOPIC DIGIT THREE
+0136C	ETHIOPIC DIGIT FOUR
+0136D	ETHIOPIC DIGIT FIVE
+0136E	ETHIOPIC DIGIT SIX
+0136F	ETHIOPIC DIGIT SEVEN
+01370	ETHIOPIC DIGIT EIGHT
+01371	ETHIOPIC DIGIT NINE
+01372	ETHIOPIC NUMBER TEN
+01373	ETHIOPIC NUMBER TWENTY
+01374	ETHIOPIC NUMBER THIRTY
+01375	ETHIOPIC NUMBER FORTY
+01376	ETHIOPIC NUMBER FIFTY
+01377	ETHIOPIC NUMBER SIXTY
+01378	ETHIOPIC NUMBER SEVENTY
+01379	ETHIOPIC NUMBER EIGHTY
+0137A	ETHIOPIC NUMBER NINETY
+0137B	ETHIOPIC NUMBER HUNDRED
+0137C	ETHIOPIC NUMBER TEN THOUSAND
+01380	ETHIOPIC SYLLABLE SEBATBEIT MWA
+01381	ETHIOPIC SYLLABLE MWI
+01382	ETHIOPIC SYLLABLE MWEE
+01383	ETHIOPIC SYLLABLE MWE
+01384	ETHIOPIC SYLLABLE SEBATBEIT BWA
+01385	ETHIOPIC SYLLABLE BWI
+01386	ETHIOPIC SYLLABLE BWEE
+01387	ETHIOPIC SYLLABLE BWE
+01388	ETHIOPIC SYLLABLE SEBATBEIT FWA
+01389	ETHIOPIC SYLLABLE FWI
+0138A	ETHIOPIC SYLLABLE FWEE
+0138B	ETHIOPIC SYLLABLE FWE
+0138C	ETHIOPIC SYLLABLE SEBATBEIT PWA
+0138D	ETHIOPIC SYLLABLE PWI
+0138E	ETHIOPIC SYLLABLE PWEE
+0138F	ETHIOPIC SYLLABLE PWE
+01390	ETHIOPIC TONAL MARK YIZET
+01391	ETHIOPIC TONAL MARK DERET
+01392	ETHIOPIC TONAL MARK RIKRIK
+01393	ETHIOPIC TONAL MARK SHORT RIKRIK
+01394	ETHIOPIC TONAL MARK DIFAT
+01395	ETHIOPIC TONAL MARK KENAT
+01396	ETHIOPIC TONAL MARK CHIRET
+01397	ETHIOPIC TONAL MARK HIDET
+01398	ETHIOPIC TONAL MARK DERET-HIDET
+01399	ETHIOPIC TONAL MARK KURT
+013A0	CHEROKEE LETTER A
+013A1	CHEROKEE LETTER E
+013A2	CHEROKEE LETTER I
+013A3	CHEROKEE LETTER O
+013A4	CHEROKEE LETTER U
+013A5	CHEROKEE LETTER V
+013A6	CHEROKEE LETTER GA
+013A7	CHEROKEE LETTER KA
+013A8	CHEROKEE LETTER GE
+013A9	CHEROKEE LETTER GI
+013AA	CHEROKEE LETTER GO
+013AB	CHEROKEE LETTER GU
+013AC	CHEROKEE LETTER GV
+013AD	CHEROKEE LETTER HA
+013AE	CHEROKEE LETTER HE
+013AF	CHEROKEE LETTER HI
+013B0	CHEROKEE LETTER HO
+013B1	CHEROKEE LETTER HU
+013B2	CHEROKEE LETTER HV
+013B3	CHEROKEE LETTER LA
+013B4	CHEROKEE LETTER LE
+013B5	CHEROKEE LETTER LI
+013B6	CHEROKEE LETTER LO
+013B7	CHEROKEE LETTER LU
+013B8	CHEROKEE LETTER LV
+013B9	CHEROKEE LETTER MA
+013BA	CHEROKEE LETTER ME
+013BB	CHEROKEE LETTER MI
+013BC	CHEROKEE LETTER MO
+013BD	CHEROKEE LETTER MU
+013BE	CHEROKEE LETTER NA
+013BF	CHEROKEE LETTER HNA
+013C0	CHEROKEE LETTER NAH
+013C1	CHEROKEE LETTER NE
+013C2	CHEROKEE LETTER NI
+013C3	CHEROKEE LETTER NO
+013C4	CHEROKEE LETTER NU
+013C5	CHEROKEE LETTER NV
+013C6	CHEROKEE LETTER QUA
+013C7	CHEROKEE LETTER QUE
+013C8	CHEROKEE LETTER QUI
+013C9	CHEROKEE LETTER QUO
+013CA	CHEROKEE LETTER QUU
+013CB	CHEROKEE LETTER QUV
+013CC	CHEROKEE LETTER SA
+013CD	CHEROKEE LETTER S
+013CE	CHEROKEE LETTER SE
+013CF	CHEROKEE LETTER SI
+013D0	CHEROKEE LETTER SO
+013D1	CHEROKEE LETTER SU
+013D2	CHEROKEE LETTER SV
+013D3	CHEROKEE LETTER DA
+013D4	CHEROKEE LETTER TA
+013D5	CHEROKEE LETTER DE
+013D6	CHEROKEE LETTER TE
+013D7	CHEROKEE LETTER DI
+013D8	CHEROKEE LETTER TI
+013D9	CHEROKEE LETTER DO
+013DA	CHEROKEE LETTER DU
+013DB	CHEROKEE LETTER DV
+013DC	CHEROKEE LETTER DLA
+013DD	CHEROKEE LETTER TLA
+013DE	CHEROKEE LETTER TLE
+013DF	CHEROKEE LETTER TLI
+013E0	CHEROKEE LETTER TLO
+013E1	CHEROKEE LETTER TLU
+013E2	CHEROKEE LETTER TLV
+013E3	CHEROKEE LETTER TSA
+013E4	CHEROKEE LETTER TSE
+013E5	CHEROKEE LETTER TSI
+013E6	CHEROKEE LETTER TSO
+013E7	CHEROKEE LETTER TSU
+013E8	CHEROKEE LETTER TSV
+013E9	CHEROKEE LETTER WA
+013EA	CHEROKEE LETTER WE
+013EB	CHEROKEE LETTER WI
+013EC	CHEROKEE LETTER WO
+013ED	CHEROKEE LETTER WU
+013EE	CHEROKEE LETTER WV
+013EF	CHEROKEE LETTER YA
+013F0	CHEROKEE LETTER YE
+013F1	CHEROKEE LETTER YI
+013F2	CHEROKEE LETTER YO
+013F3	CHEROKEE LETTER YU
+013F4	CHEROKEE LETTER YV
+013F5	CHEROKEE LETTER MV
+013F8	CHEROKEE SMALL LETTER YE
+013F9	CHEROKEE SMALL LETTER YI
+013FA	CHEROKEE SMALL LETTER YO
+013FB	CHEROKEE SMALL LETTER YU
+013FC	CHEROKEE SMALL LETTER YV
+013FD	CHEROKEE SMALL LETTER MV
+01400	CANADIAN SYLLABICS HYPHEN
+01401	CANADIAN SYLLABICS E
+01402	CANADIAN SYLLABICS AAI
+01403	CANADIAN SYLLABICS I
+01404	CANADIAN SYLLABICS II
+01405	CANADIAN SYLLABICS O
+01406	CANADIAN SYLLABICS OO
+01407	CANADIAN SYLLABICS Y-CREE OO
+01408	CANADIAN SYLLABICS CARRIER EE
+01409	CANADIAN SYLLABICS CARRIER I
+0140A	CANADIAN SYLLABICS A
+0140B	CANADIAN SYLLABICS AA
+0140C	CANADIAN SYLLABICS WE
+0140D	CANADIAN SYLLABICS WEST-CREE WE
+0140E	CANADIAN SYLLABICS WI
+0140F	CANADIAN SYLLABICS WEST-CREE WI
+01410	CANADIAN SYLLABICS WII
+01411	CANADIAN SYLLABICS WEST-CREE WII
+01412	CANADIAN SYLLABICS WO
+01413	CANADIAN SYLLABICS WEST-CREE WO
+01414	CANADIAN SYLLABICS WOO
+01415	CANADIAN SYLLABICS WEST-CREE WOO
+01416	CANADIAN SYLLABICS NASKAPI WOO
+01417	CANADIAN SYLLABICS WA
+01418	CANADIAN SYLLABICS WEST-CREE WA
+01419	CANADIAN SYLLABICS WAA
+0141A	CANADIAN SYLLABICS WEST-CREE WAA
+0141B	CANADIAN SYLLABICS NASKAPI WAA
+0141C	CANADIAN SYLLABICS AI
+0141D	CANADIAN SYLLABICS Y-CREE W
+0141E	CANADIAN SYLLABICS GLOTTAL STOP
+0141F	CANADIAN SYLLABICS FINAL ACUTE
+01420	CANADIAN SYLLABICS FINAL GRAVE
+01421	CANADIAN SYLLABICS FINAL BOTTOM HALF RING
+01422	CANADIAN SYLLABICS FINAL TOP HALF RING
+01423	CANADIAN SYLLABICS FINAL RIGHT HALF RING
+01424	CANADIAN SYLLABICS FINAL RING
+01425	CANADIAN SYLLABICS FINAL DOUBLE ACUTE
+01426	CANADIAN SYLLABICS FINAL DOUBLE SHORT VERTICAL STROKES
+01427	CANADIAN SYLLABICS FINAL MIDDLE DOT
+01428	CANADIAN SYLLABICS FINAL SHORT HORIZONTAL STROKE
+01429	CANADIAN SYLLABICS FINAL PLUS
+0142A	CANADIAN SYLLABICS FINAL DOWN TACK
+0142B	CANADIAN SYLLABICS EN
+0142C	CANADIAN SYLLABICS IN
+0142D	CANADIAN SYLLABICS ON
+0142E	CANADIAN SYLLABICS AN
+0142F	CANADIAN SYLLABICS PE
+01430	CANADIAN SYLLABICS PAAI
+01431	CANADIAN SYLLABICS PI
+01432	CANADIAN SYLLABICS PII
+01433	CANADIAN SYLLABICS PO
+01434	CANADIAN SYLLABICS POO
+01435	CANADIAN SYLLABICS Y-CREE POO
+01436	CANADIAN SYLLABICS CARRIER HEE
+01437	CANADIAN SYLLABICS CARRIER HI
+01438	CANADIAN SYLLABICS PA
+01439	CANADIAN SYLLABICS PAA
+0143A	CANADIAN SYLLABICS PWE
+0143B	CANADIAN SYLLABICS WEST-CREE PWE
+0143C	CANADIAN SYLLABICS PWI
+0143D	CANADIAN SYLLABICS WEST-CREE PWI
+0143E	CANADIAN SYLLABICS PWII
+0143F	CANADIAN SYLLABICS WEST-CREE PWII
+01440	CANADIAN SYLLABICS PWO
+01441	CANADIAN SYLLABICS WEST-CREE PWO
+01442	CANADIAN SYLLABICS PWOO
+01443	CANADIAN SYLLABICS WEST-CREE PWOO
+01444	CANADIAN SYLLABICS PWA
+01445	CANADIAN SYLLABICS WEST-CREE PWA
+01446	CANADIAN SYLLABICS PWAA
+01447	CANADIAN SYLLABICS WEST-CREE PWAA
+01448	CANADIAN SYLLABICS Y-CREE PWAA
+01449	CANADIAN SYLLABICS P
+0144A	CANADIAN SYLLABICS WEST-CREE P
+0144B	CANADIAN SYLLABICS CARRIER H
+0144C	CANADIAN SYLLABICS TE
+0144D	CANADIAN SYLLABICS TAAI
+0144E	CANADIAN SYLLABICS TI
+0144F	CANADIAN SYLLABICS TII
+01450	CANADIAN SYLLABICS TO
+01451	CANADIAN SYLLABICS TOO
+01452	CANADIAN SYLLABICS Y-CREE TOO
+01453	CANADIAN SYLLABICS CARRIER DEE
+01454	CANADIAN SYLLABICS CARRIER DI
+01455	CANADIAN SYLLABICS TA
+01456	CANADIAN SYLLABICS TAA
+01457	CANADIAN SYLLABICS TWE
+01458	CANADIAN SYLLABICS WEST-CREE TWE
+01459	CANADIAN SYLLABICS TWI
+0145A	CANADIAN SYLLABICS WEST-CREE TWI
+0145B	CANADIAN SYLLABICS TWII
+0145C	CANADIAN SYLLABICS WEST-CREE TWII
+0145D	CANADIAN SYLLABICS TWO
+0145E	CANADIAN SYLLABICS WEST-CREE TWO
+0145F	CANADIAN SYLLABICS TWOO
+01460	CANADIAN SYLLABICS WEST-CREE TWOO
+01461	CANADIAN SYLLABICS TWA
+01462	CANADIAN SYLLABICS WEST-CREE TWA
+01463	CANADIAN SYLLABICS TWAA
+01464	CANADIAN SYLLABICS WEST-CREE TWAA
+01465	CANADIAN SYLLABICS NASKAPI TWAA
+01466	CANADIAN SYLLABICS T
+01467	CANADIAN SYLLABICS TTE
+01468	CANADIAN SYLLABICS TTI
+01469	CANADIAN SYLLABICS TTO
+0146A	CANADIAN SYLLABICS TTA
+0146B	CANADIAN SYLLABICS KE
+0146C	CANADIAN SYLLABICS KAAI
+0146D	CANADIAN SYLLABICS KI
+0146E	CANADIAN SYLLABICS KII
+0146F	CANADIAN SYLLABICS KO
+01470	CANADIAN SYLLABICS KOO
+01471	CANADIAN SYLLABICS Y-CREE KOO
+01472	CANADIAN SYLLABICS KA
+01473	CANADIAN SYLLABICS KAA
+01474	CANADIAN SYLLABICS KWE
+01475	CANADIAN SYLLABICS WEST-CREE KWE
+01476	CANADIAN SYLLABICS KWI
+01477	CANADIAN SYLLABICS WEST-CREE KWI
+01478	CANADIAN SYLLABICS KWII
+01479	CANADIAN SYLLABICS WEST-CREE KWII
+0147A	CANADIAN SYLLABICS KWO
+0147B	CANADIAN SYLLABICS WEST-CREE KWO
+0147C	CANADIAN SYLLABICS KWOO
+0147D	CANADIAN SYLLABICS WEST-CREE KWOO
+0147E	CANADIAN SYLLABICS KWA
+0147F	CANADIAN SYLLABICS WEST-CREE KWA
+01480	CANADIAN SYLLABICS KWAA
+01481	CANADIAN SYLLABICS WEST-CREE KWAA
+01482	CANADIAN SYLLABICS NASKAPI KWAA
+01483	CANADIAN SYLLABICS K
+01484	CANADIAN SYLLABICS KW
+01485	CANADIAN SYLLABICS SOUTH-SLAVEY KEH
+01486	CANADIAN SYLLABICS SOUTH-SLAVEY KIH
+01487	CANADIAN SYLLABICS SOUTH-SLAVEY KOH
+01488	CANADIAN SYLLABICS SOUTH-SLAVEY KAH
+01489	CANADIAN SYLLABICS CE
+0148A	CANADIAN SYLLABICS CAAI
+0148B	CANADIAN SYLLABICS CI
+0148C	CANADIAN SYLLABICS CII
+0148D	CANADIAN SYLLABICS CO
+0148E	CANADIAN SYLLABICS COO
+0148F	CANADIAN SYLLABICS Y-CREE COO
+01490	CANADIAN SYLLABICS CA
+01491	CANADIAN SYLLABICS CAA
+01492	CANADIAN SYLLABICS CWE
+01493	CANADIAN SYLLABICS WEST-CREE CWE
+01494	CANADIAN SYLLABICS CWI
+01495	CANADIAN SYLLABICS WEST-CREE CWI
+01496	CANADIAN SYLLABICS CWII
+01497	CANADIAN SYLLABICS WEST-CREE CWII
+01498	CANADIAN SYLLABICS CWO
+01499	CANADIAN SYLLABICS WEST-CREE CWO
+0149A	CANADIAN SYLLABICS CWOO
+0149B	CANADIAN SYLLABICS WEST-CREE CWOO
+0149C	CANADIAN SYLLABICS CWA
+0149D	CANADIAN SYLLABICS WEST-CREE CWA
+0149E	CANADIAN SYLLABICS CWAA
+0149F	CANADIAN SYLLABICS WEST-CREE CWAA
+014A0	CANADIAN SYLLABICS NASKAPI CWAA
+014A1	CANADIAN SYLLABICS C
+014A2	CANADIAN SYLLABICS SAYISI TH
+014A3	CANADIAN SYLLABICS ME
+014A4	CANADIAN SYLLABICS MAAI
+014A5	CANADIAN SYLLABICS MI
+014A6	CANADIAN SYLLABICS MII
+014A7	CANADIAN SYLLABICS MO
+014A8	CANADIAN SYLLABICS MOO
+014A9	CANADIAN SYLLABICS Y-CREE MOO
+014AA	CANADIAN SYLLABICS MA
+014AB	CANADIAN SYLLABICS MAA
+014AC	CANADIAN SYLLABICS MWE
+014AD	CANADIAN SYLLABICS WEST-CREE MWE
+014AE	CANADIAN SYLLABICS MWI
+014AF	CANADIAN SYLLABICS WEST-CREE MWI
+014B0	CANADIAN SYLLABICS MWII
+014B1	CANADIAN SYLLABICS WEST-CREE MWII
+014B2	CANADIAN SYLLABICS MWO
+014B3	CANADIAN SYLLABICS WEST-CREE MWO
+014B4	CANADIAN SYLLABICS MWOO
+014B5	CANADIAN SYLLABICS WEST-CREE MWOO
+014B6	CANADIAN SYLLABICS MWA
+014B7	CANADIAN SYLLABICS WEST-CREE MWA
+014B8	CANADIAN SYLLABICS MWAA
+014B9	CANADIAN SYLLABICS WEST-CREE MWAA
+014BA	CANADIAN SYLLABICS NASKAPI MWAA
+014BB	CANADIAN SYLLABICS M
+014BC	CANADIAN SYLLABICS WEST-CREE M
+014BD	CANADIAN SYLLABICS MH
+014BE	CANADIAN SYLLABICS ATHAPASCAN M
+014BF	CANADIAN SYLLABICS SAYISI M
+014C0	CANADIAN SYLLABICS NE
+014C1	CANADIAN SYLLABICS NAAI
+014C2	CANADIAN SYLLABICS NI
+014C3	CANADIAN SYLLABICS NII
+014C4	CANADIAN SYLLABICS NO
+014C5	CANADIAN SYLLABICS NOO
+014C6	CANADIAN SYLLABICS Y-CREE NOO
+014C7	CANADIAN SYLLABICS NA
+014C8	CANADIAN SYLLABICS NAA
+014C9	CANADIAN SYLLABICS NWE
+014CA	CANADIAN SYLLABICS WEST-CREE NWE
+014CB	CANADIAN SYLLABICS NWA
+014CC	CANADIAN SYLLABICS WEST-CREE NWA
+014CD	CANADIAN SYLLABICS NWAA
+014CE	CANADIAN SYLLABICS WEST-CREE NWAA
+014CF	CANADIAN SYLLABICS NASKAPI NWAA
+014D0	CANADIAN SYLLABICS N
+014D1	CANADIAN SYLLABICS CARRIER NG
+014D2	CANADIAN SYLLABICS NH
+014D3	CANADIAN SYLLABICS LE
+014D4	CANADIAN SYLLABICS LAAI
+014D5	CANADIAN SYLLABICS LI
+014D6	CANADIAN SYLLABICS LII
+014D7	CANADIAN SYLLABICS LO
+014D8	CANADIAN SYLLABICS LOO
+014D9	CANADIAN SYLLABICS Y-CREE LOO
+014DA	CANADIAN SYLLABICS LA
+014DB	CANADIAN SYLLABICS LAA
+014DC	CANADIAN SYLLABICS LWE
+014DD	CANADIAN SYLLABICS WEST-CREE LWE
+014DE	CANADIAN SYLLABICS LWI
+014DF	CANADIAN SYLLABICS WEST-CREE LWI
+014E0	CANADIAN SYLLABICS LWII
+014E1	CANADIAN SYLLABICS WEST-CREE LWII
+014E2	CANADIAN SYLLABICS LWO
+014E3	CANADIAN SYLLABICS WEST-CREE LWO
+014E4	CANADIAN SYLLABICS LWOO
+014E5	CANADIAN SYLLABICS WEST-CREE LWOO
+014E6	CANADIAN SYLLABICS LWA
+014E7	CANADIAN SYLLABICS WEST-CREE LWA
+014E8	CANADIAN SYLLABICS LWAA
+014E9	CANADIAN SYLLABICS WEST-CREE LWAA
+014EA	CANADIAN SYLLABICS L
+014EB	CANADIAN SYLLABICS WEST-CREE L
+014EC	CANADIAN SYLLABICS MEDIAL L
+014ED	CANADIAN SYLLABICS SE
+014EE	CANADIAN SYLLABICS SAAI
+014EF	CANADIAN SYLLABICS SI
+014F0	CANADIAN SYLLABICS SII
+014F1	CANADIAN SYLLABICS SO
+014F2	CANADIAN SYLLABICS SOO
+014F3	CANADIAN SYLLABICS Y-CREE SOO
+014F4	CANADIAN SYLLABICS SA
+014F5	CANADIAN SYLLABICS SAA
+014F6	CANADIAN SYLLABICS SWE
+014F7	CANADIAN SYLLABICS WEST-CREE SWE
+014F8	CANADIAN SYLLABICS SWI
+014F9	CANADIAN SYLLABICS WEST-CREE SWI
+014FA	CANADIAN SYLLABICS SWII
+014FB	CANADIAN SYLLABICS WEST-CREE SWII
+014FC	CANADIAN SYLLABICS SWO
+014FD	CANADIAN SYLLABICS WEST-CREE SWO
+014FE	CANADIAN SYLLABICS SWOO
+014FF	CANADIAN SYLLABICS WEST-CREE SWOO
+01500	CANADIAN SYLLABICS SWA
+01501	CANADIAN SYLLABICS WEST-CREE SWA
+01502	CANADIAN SYLLABICS SWAA
+01503	CANADIAN SYLLABICS WEST-CREE SWAA
+01504	CANADIAN SYLLABICS NASKAPI SWAA
+01505	CANADIAN SYLLABICS S
+01506	CANADIAN SYLLABICS ATHAPASCAN S
+01507	CANADIAN SYLLABICS SW
+01508	CANADIAN SYLLABICS BLACKFOOT S
+01509	CANADIAN SYLLABICS MOOSE-CREE SK
+0150A	CANADIAN SYLLABICS NASKAPI SKW
+0150B	CANADIAN SYLLABICS NASKAPI S-W
+0150C	CANADIAN SYLLABICS NASKAPI SPWA
+0150D	CANADIAN SYLLABICS NASKAPI STWA
+0150E	CANADIAN SYLLABICS NASKAPI SKWA
+0150F	CANADIAN SYLLABICS NASKAPI SCWA
+01510	CANADIAN SYLLABICS SHE
+01511	CANADIAN SYLLABICS SHI
+01512	CANADIAN SYLLABICS SHII
+01513	CANADIAN SYLLABICS SHO
+01514	CANADIAN SYLLABICS SHOO
+01515	CANADIAN SYLLABICS SHA
+01516	CANADIAN SYLLABICS SHAA
+01517	CANADIAN SYLLABICS SHWE
+01518	CANADIAN SYLLABICS WEST-CREE SHWE
+01519	CANADIAN SYLLABICS SHWI
+0151A	CANADIAN SYLLABICS WEST-CREE SHWI
+0151B	CANADIAN SYLLABICS SHWII
+0151C	CANADIAN SYLLABICS WEST-CREE SHWII
+0151D	CANADIAN SYLLABICS SHWO
+0151E	CANADIAN SYLLABICS WEST-CREE SHWO
+0151F	CANADIAN SYLLABICS SHWOO
+01520	CANADIAN SYLLABICS WEST-CREE SHWOO
+01521	CANADIAN SYLLABICS SHWA
+01522	CANADIAN SYLLABICS WEST-CREE SHWA
+01523	CANADIAN SYLLABICS SHWAA
+01524	CANADIAN SYLLABICS WEST-CREE SHWAA
+01525	CANADIAN SYLLABICS SH
+01526	CANADIAN SYLLABICS YE
+01527	CANADIAN SYLLABICS YAAI
+01528	CANADIAN SYLLABICS YI
+01529	CANADIAN SYLLABICS YII
+0152A	CANADIAN SYLLABICS YO
+0152B	CANADIAN SYLLABICS YOO
+0152C	CANADIAN SYLLABICS Y-CREE YOO
+0152D	CANADIAN SYLLABICS YA
+0152E	CANADIAN SYLLABICS YAA
+0152F	CANADIAN SYLLABICS YWE
+01530	CANADIAN SYLLABICS WEST-CREE YWE
+01531	CANADIAN SYLLABICS YWI
+01532	CANADIAN SYLLABICS WEST-CREE YWI
+01533	CANADIAN SYLLABICS YWII
+01534	CANADIAN SYLLABICS WEST-CREE YWII
+01535	CANADIAN SYLLABICS YWO
+01536	CANADIAN SYLLABICS WEST-CREE YWO
+01537	CANADIAN SYLLABICS YWOO
+01538	CANADIAN SYLLABICS WEST-CREE YWOO
+01539	CANADIAN SYLLABICS YWA
+0153A	CANADIAN SYLLABICS WEST-CREE YWA
+0153B	CANADIAN SYLLABICS YWAA
+0153C	CANADIAN SYLLABICS WEST-CREE YWAA
+0153D	CANADIAN SYLLABICS NASKAPI YWAA
+0153E	CANADIAN SYLLABICS Y
+0153F	CANADIAN SYLLABICS BIBLE-CREE Y
+01540	CANADIAN SYLLABICS WEST-CREE Y
+01541	CANADIAN SYLLABICS SAYISI YI
+01542	CANADIAN SYLLABICS RE
+01543	CANADIAN SYLLABICS R-CREE RE
+01544	CANADIAN SYLLABICS WEST-CREE LE
+01545	CANADIAN SYLLABICS RAAI
+01546	CANADIAN SYLLABICS RI
+01547	CANADIAN SYLLABICS RII
+01548	CANADIAN SYLLABICS RO
+01549	CANADIAN SYLLABICS ROO
+0154A	CANADIAN SYLLABICS WEST-CREE LO
+0154B	CANADIAN SYLLABICS RA
+0154C	CANADIAN SYLLABICS RAA
+0154D	CANADIAN SYLLABICS WEST-CREE LA
+0154E	CANADIAN SYLLABICS RWAA
+0154F	CANADIAN SYLLABICS WEST-CREE RWAA
+01550	CANADIAN SYLLABICS R
+01551	CANADIAN SYLLABICS WEST-CREE R
+01552	CANADIAN SYLLABICS MEDIAL R
+01553	CANADIAN SYLLABICS FE
+01554	CANADIAN SYLLABICS FAAI
+01555	CANADIAN SYLLABICS FI
+01556	CANADIAN SYLLABICS FII
+01557	CANADIAN SYLLABICS FO
+01558	CANADIAN SYLLABICS FOO
+01559	CANADIAN SYLLABICS FA
+0155A	CANADIAN SYLLABICS FAA
+0155B	CANADIAN SYLLABICS FWAA
+0155C	CANADIAN SYLLABICS WEST-CREE FWAA
+0155D	CANADIAN SYLLABICS F
+0155E	CANADIAN SYLLABICS THE
+0155F	CANADIAN SYLLABICS N-CREE THE
+01560	CANADIAN SYLLABICS THI
+01561	CANADIAN SYLLABICS N-CREE THI
+01562	CANADIAN SYLLABICS THII
+01563	CANADIAN SYLLABICS N-CREE THII
+01564	CANADIAN SYLLABICS THO
+01565	CANADIAN SYLLABICS THOO
+01566	CANADIAN SYLLABICS THA
+01567	CANADIAN SYLLABICS THAA
+01568	CANADIAN SYLLABICS THWAA
+01569	CANADIAN SYLLABICS WEST-CREE THWAA
+0156A	CANADIAN SYLLABICS TH
+0156B	CANADIAN SYLLABICS TTHE
+0156C	CANADIAN SYLLABICS TTHI
+0156D	CANADIAN SYLLABICS TTHO
+0156E	CANADIAN SYLLABICS TTHA
+0156F	CANADIAN SYLLABICS TTH
+01570	CANADIAN SYLLABICS TYE
+01571	CANADIAN SYLLABICS TYI
+01572	CANADIAN SYLLABICS TYO
+01573	CANADIAN SYLLABICS TYA
+01574	CANADIAN SYLLABICS NUNAVIK HE
+01575	CANADIAN SYLLABICS NUNAVIK HI
+01576	CANADIAN SYLLABICS NUNAVIK HII
+01577	CANADIAN SYLLABICS NUNAVIK HO
+01578	CANADIAN SYLLABICS NUNAVIK HOO
+01579	CANADIAN SYLLABICS NUNAVIK HA
+0157A	CANADIAN SYLLABICS NUNAVIK HAA
+0157B	CANADIAN SYLLABICS NUNAVIK H
+0157C	CANADIAN SYLLABICS NUNAVUT H
+0157D	CANADIAN SYLLABICS HK
+0157E	CANADIAN SYLLABICS QAAI
+0157F	CANADIAN SYLLABICS QI
+01580	CANADIAN SYLLABICS QII
+01581	CANADIAN SYLLABICS QO
+01582	CANADIAN SYLLABICS QOO
+01583	CANADIAN SYLLABICS QA
+01584	CANADIAN SYLLABICS QAA
+01585	CANADIAN SYLLABICS Q
+01586	CANADIAN SYLLABICS TLHE
+01587	CANADIAN SYLLABICS TLHI
+01588	CANADIAN SYLLABICS TLHO
+01589	CANADIAN SYLLABICS TLHA
+0158A	CANADIAN SYLLABICS WEST-CREE RE
+0158B	CANADIAN SYLLABICS WEST-CREE RI
+0158C	CANADIAN SYLLABICS WEST-CREE RO
+0158D	CANADIAN SYLLABICS WEST-CREE RA
+0158E	CANADIAN SYLLABICS NGAAI
+0158F	CANADIAN SYLLABICS NGI
+01590	CANADIAN SYLLABICS NGII
+01591	CANADIAN SYLLABICS NGO
+01592	CANADIAN SYLLABICS NGOO
+01593	CANADIAN SYLLABICS NGA
+01594	CANADIAN SYLLABICS NGAA
+01595	CANADIAN SYLLABICS NG
+01596	CANADIAN SYLLABICS NNG
+01597	CANADIAN SYLLABICS SAYISI SHE
+01598	CANADIAN SYLLABICS SAYISI SHI
+01599	CANADIAN SYLLABICS SAYISI SHO
+0159A	CANADIAN SYLLABICS SAYISI SHA
+0159B	CANADIAN SYLLABICS WOODS-CREE THE
+0159C	CANADIAN SYLLABICS WOODS-CREE THI
+0159D	CANADIAN SYLLABICS WOODS-CREE THO
+0159E	CANADIAN SYLLABICS WOODS-CREE THA
+0159F	CANADIAN SYLLABICS WOODS-CREE TH
+015A0	CANADIAN SYLLABICS LHI
+015A1	CANADIAN SYLLABICS LHII
+015A2	CANADIAN SYLLABICS LHO
+015A3	CANADIAN SYLLABICS LHOO
+015A4	CANADIAN SYLLABICS LHA
+015A5	CANADIAN SYLLABICS LHAA
+015A6	CANADIAN SYLLABICS LH
+015A7	CANADIAN SYLLABICS TH-CREE THE
+015A8	CANADIAN SYLLABICS TH-CREE THI
+015A9	CANADIAN SYLLABICS TH-CREE THII
+015AA	CANADIAN SYLLABICS TH-CREE THO
+015AB	CANADIAN SYLLABICS TH-CREE THOO
+015AC	CANADIAN SYLLABICS TH-CREE THA
+015AD	CANADIAN SYLLABICS TH-CREE THAA
+015AE	CANADIAN SYLLABICS TH-CREE TH
+015AF	CANADIAN SYLLABICS AIVILIK B
+015B0	CANADIAN SYLLABICS BLACKFOOT E
+015B1	CANADIAN SYLLABICS BLACKFOOT I
+015B2	CANADIAN SYLLABICS BLACKFOOT O
+015B3	CANADIAN SYLLABICS BLACKFOOT A
+015B4	CANADIAN SYLLABICS BLACKFOOT WE
+015B5	CANADIAN SYLLABICS BLACKFOOT WI
+015B6	CANADIAN SYLLABICS BLACKFOOT WO
+015B7	CANADIAN SYLLABICS BLACKFOOT WA
+015B8	CANADIAN SYLLABICS BLACKFOOT NE
+015B9	CANADIAN SYLLABICS BLACKFOOT NI
+015BA	CANADIAN SYLLABICS BLACKFOOT NO
+015BB	CANADIAN SYLLABICS BLACKFOOT NA
+015BC	CANADIAN SYLLABICS BLACKFOOT KE
+015BD	CANADIAN SYLLABICS BLACKFOOT KI
+015BE	CANADIAN SYLLABICS BLACKFOOT KO
+015BF	CANADIAN SYLLABICS BLACKFOOT KA
+015C0	CANADIAN SYLLABICS SAYISI HE
+015C1	CANADIAN SYLLABICS SAYISI HI
+015C2	CANADIAN SYLLABICS SAYISI HO
+015C3	CANADIAN SYLLABICS SAYISI HA
+015C4	CANADIAN SYLLABICS CARRIER GHU
+015C5	CANADIAN SYLLABICS CARRIER GHO
+015C6	CANADIAN SYLLABICS CARRIER GHE
+015C7	CANADIAN SYLLABICS CARRIER GHEE
+015C8	CANADIAN SYLLABICS CARRIER GHI
+015C9	CANADIAN SYLLABICS CARRIER GHA
+015CA	CANADIAN SYLLABICS CARRIER RU
+015CB	CANADIAN SYLLABICS CARRIER RO
+015CC	CANADIAN SYLLABICS CARRIER RE
+015CD	CANADIAN SYLLABICS CARRIER REE
+015CE	CANADIAN SYLLABICS CARRIER RI
+015CF	CANADIAN SYLLABICS CARRIER RA
+015D0	CANADIAN SYLLABICS CARRIER WU
+015D1	CANADIAN SYLLABICS CARRIER WO
+015D2	CANADIAN SYLLABICS CARRIER WE
+015D3	CANADIAN SYLLABICS CARRIER WEE
+015D4	CANADIAN SYLLABICS CARRIER WI
+015D5	CANADIAN SYLLABICS CARRIER WA
+015D6	CANADIAN SYLLABICS CARRIER HWU
+015D7	CANADIAN SYLLABICS CARRIER HWO
+015D8	CANADIAN SYLLABICS CARRIER HWE
+015D9	CANADIAN SYLLABICS CARRIER HWEE
+015DA	CANADIAN SYLLABICS CARRIER HWI
+015DB	CANADIAN SYLLABICS CARRIER HWA
+015DC	CANADIAN SYLLABICS CARRIER THU
+015DD	CANADIAN SYLLABICS CARRIER THO
+015DE	CANADIAN SYLLABICS CARRIER THE
+015DF	CANADIAN SYLLABICS CARRIER THEE
+015E0	CANADIAN SYLLABICS CARRIER THI
+015E1	CANADIAN SYLLABICS CARRIER THA
+015E2	CANADIAN SYLLABICS CARRIER TTU
+015E3	CANADIAN SYLLABICS CARRIER TTO
+015E4	CANADIAN SYLLABICS CARRIER TTE
+015E5	CANADIAN SYLLABICS CARRIER TTEE
+015E6	CANADIAN SYLLABICS CARRIER TTI
+015E7	CANADIAN SYLLABICS CARRIER TTA
+015E8	CANADIAN SYLLABICS CARRIER PU
+015E9	CANADIAN SYLLABICS CARRIER PO
+015EA	CANADIAN SYLLABICS CARRIER PE
+015EB	CANADIAN SYLLABICS CARRIER PEE
+015EC	CANADIAN SYLLABICS CARRIER PI
+015ED	CANADIAN SYLLABICS CARRIER PA
+015EE	CANADIAN SYLLABICS CARRIER P
+015EF	CANADIAN SYLLABICS CARRIER GU
+015F0	CANADIAN SYLLABICS CARRIER GO
+015F1	CANADIAN SYLLABICS CARRIER GE
+015F2	CANADIAN SYLLABICS CARRIER GEE
+015F3	CANADIAN SYLLABICS CARRIER GI
+015F4	CANADIAN SYLLABICS CARRIER GA
+015F5	CANADIAN SYLLABICS CARRIER KHU
+015F6	CANADIAN SYLLABICS CARRIER KHO
+015F7	CANADIAN SYLLABICS CARRIER KHE
+015F8	CANADIAN SYLLABICS CARRIER KHEE
+015F9	CANADIAN SYLLABICS CARRIER KHI
+015FA	CANADIAN SYLLABICS CARRIER KHA
+015FB	CANADIAN SYLLABICS CARRIER KKU
+015FC	CANADIAN SYLLABICS CARRIER KKO
+015FD	CANADIAN SYLLABICS CARRIER KKE
+015FE	CANADIAN SYLLABICS CARRIER KKEE
+015FF	CANADIAN SYLLABICS CARRIER KKI
+01600	CANADIAN SYLLABICS CARRIER KKA
+01601	CANADIAN SYLLABICS CARRIER KK
+01602	CANADIAN SYLLABICS CARRIER NU
+01603	CANADIAN SYLLABICS CARRIER NO
+01604	CANADIAN SYLLABICS CARRIER NE
+01605	CANADIAN SYLLABICS CARRIER NEE
+01606	CANADIAN SYLLABICS CARRIER NI
+01607	CANADIAN SYLLABICS CARRIER NA
+01608	CANADIAN SYLLABICS CARRIER MU
+01609	CANADIAN SYLLABICS CARRIER MO
+0160A	CANADIAN SYLLABICS CARRIER ME
+0160B	CANADIAN SYLLABICS CARRIER MEE
+0160C	CANADIAN SYLLABICS CARRIER MI
+0160D	CANADIAN SYLLABICS CARRIER MA
+0160E	CANADIAN SYLLABICS CARRIER YU
+0160F	CANADIAN SYLLABICS CARRIER YO
+01610	CANADIAN SYLLABICS CARRIER YE
+01611	CANADIAN SYLLABICS CARRIER YEE
+01612	CANADIAN SYLLABICS CARRIER YI
+01613	CANADIAN SYLLABICS CARRIER YA
+01614	CANADIAN SYLLABICS CARRIER JU
+01615	CANADIAN SYLLABICS SAYISI JU
+01616	CANADIAN SYLLABICS CARRIER JO
+01617	CANADIAN SYLLABICS CARRIER JE
+01618	CANADIAN SYLLABICS CARRIER JEE
+01619	CANADIAN SYLLABICS CARRIER JI
+0161A	CANADIAN SYLLABICS SAYISI JI
+0161B	CANADIAN SYLLABICS CARRIER JA
+0161C	CANADIAN SYLLABICS CARRIER JJU
+0161D	CANADIAN SYLLABICS CARRIER JJO
+0161E	CANADIAN SYLLABICS CARRIER JJE
+0161F	CANADIAN SYLLABICS CARRIER JJEE
+01620	CANADIAN SYLLABICS CARRIER JJI
+01621	CANADIAN SYLLABICS CARRIER JJA
+01622	CANADIAN SYLLABICS CARRIER LU
+01623	CANADIAN SYLLABICS CARRIER LO
+01624	CANADIAN SYLLABICS CARRIER LE
+01625	CANADIAN SYLLABICS CARRIER LEE
+01626	CANADIAN SYLLABICS CARRIER LI
+01627	CANADIAN SYLLABICS CARRIER LA
+01628	CANADIAN SYLLABICS CARRIER DLU
+01629	CANADIAN SYLLABICS CARRIER DLO
+0162A	CANADIAN SYLLABICS CARRIER DLE
+0162B	CANADIAN SYLLABICS CARRIER DLEE
+0162C	CANADIAN SYLLABICS CARRIER DLI
+0162D	CANADIAN SYLLABICS CARRIER DLA
+0162E	CANADIAN SYLLABICS CARRIER LHU
+0162F	CANADIAN SYLLABICS CARRIER LHO
+01630	CANADIAN SYLLABICS CARRIER LHE
+01631	CANADIAN SYLLABICS CARRIER LHEE
+01632	CANADIAN SYLLABICS CARRIER LHI
+01633	CANADIAN SYLLABICS CARRIER LHA
+01634	CANADIAN SYLLABICS CARRIER TLHU
+01635	CANADIAN SYLLABICS CARRIER TLHO
+01636	CANADIAN SYLLABICS CARRIER TLHE
+01637	CANADIAN SYLLABICS CARRIER TLHEE
+01638	CANADIAN SYLLABICS CARRIER TLHI
+01639	CANADIAN SYLLABICS CARRIER TLHA
+0163A	CANADIAN SYLLABICS CARRIER TLU
+0163B	CANADIAN SYLLABICS CARRIER TLO
+0163C	CANADIAN SYLLABICS CARRIER TLE
+0163D	CANADIAN SYLLABICS CARRIER TLEE
+0163E	CANADIAN SYLLABICS CARRIER TLI
+0163F	CANADIAN SYLLABICS CARRIER TLA
+01640	CANADIAN SYLLABICS CARRIER ZU
+01641	CANADIAN SYLLABICS CARRIER ZO
+01642	CANADIAN SYLLABICS CARRIER ZE
+01643	CANADIAN SYLLABICS CARRIER ZEE
+01644	CANADIAN SYLLABICS CARRIER ZI
+01645	CANADIAN SYLLABICS CARRIER ZA
+01646	CANADIAN SYLLABICS CARRIER Z
+01647	CANADIAN SYLLABICS CARRIER INITIAL Z
+01648	CANADIAN SYLLABICS CARRIER DZU
+01649	CANADIAN SYLLABICS CARRIER DZO
+0164A	CANADIAN SYLLABICS CARRIER DZE
+0164B	CANADIAN SYLLABICS CARRIER DZEE
+0164C	CANADIAN SYLLABICS CARRIER DZI
+0164D	CANADIAN SYLLABICS CARRIER DZA
+0164E	CANADIAN SYLLABICS CARRIER SU
+0164F	CANADIAN SYLLABICS CARRIER SO
+01650	CANADIAN SYLLABICS CARRIER SE
+01651	CANADIAN SYLLABICS CARRIER SEE
+01652	CANADIAN SYLLABICS CARRIER SI
+01653	CANADIAN SYLLABICS CARRIER SA
+01654	CANADIAN SYLLABICS CARRIER SHU
+01655	CANADIAN SYLLABICS CARRIER SHO
+01656	CANADIAN SYLLABICS CARRIER SHE
+01657	CANADIAN SYLLABICS CARRIER SHEE
+01658	CANADIAN SYLLABICS CARRIER SHI
+01659	CANADIAN SYLLABICS CARRIER SHA
+0165A	CANADIAN SYLLABICS CARRIER SH
+0165B	CANADIAN SYLLABICS CARRIER TSU
+0165C	CANADIAN SYLLABICS CARRIER TSO
+0165D	CANADIAN SYLLABICS CARRIER TSE
+0165E	CANADIAN SYLLABICS CARRIER TSEE
+0165F	CANADIAN SYLLABICS CARRIER TSI
+01660	CANADIAN SYLLABICS CARRIER TSA
+01661	CANADIAN SYLLABICS CARRIER CHU
+01662	CANADIAN SYLLABICS CARRIER CHO
+01663	CANADIAN SYLLABICS CARRIER CHE
+01664	CANADIAN SYLLABICS CARRIER CHEE
+01665	CANADIAN SYLLABICS CARRIER CHI
+01666	CANADIAN SYLLABICS CARRIER CHA
+01667	CANADIAN SYLLABICS CARRIER TTSU
+01668	CANADIAN SYLLABICS CARRIER TTSO
+01669	CANADIAN SYLLABICS CARRIER TTSE
+0166A	CANADIAN SYLLABICS CARRIER TTSEE
+0166B	CANADIAN SYLLABICS CARRIER TTSI
+0166C	CANADIAN SYLLABICS CARRIER TTSA
+0166D	CANADIAN SYLLABICS CHI SIGN
+0166E	CANADIAN SYLLABICS FULL STOP
+0166F	CANADIAN SYLLABICS QAI
+01670	CANADIAN SYLLABICS NGAI
+01671	CANADIAN SYLLABICS NNGI
+01672	CANADIAN SYLLABICS NNGII
+01673	CANADIAN SYLLABICS NNGO
+01674	CANADIAN SYLLABICS NNGOO
+01675	CANADIAN SYLLABICS NNGA
+01676	CANADIAN SYLLABICS NNGAA
+01677	CANADIAN SYLLABICS WOODS-CREE THWEE
+01678	CANADIAN SYLLABICS WOODS-CREE THWI
+01679	CANADIAN SYLLABICS WOODS-CREE THWII
+0167A	CANADIAN SYLLABICS WOODS-CREE THWO
+0167B	CANADIAN SYLLABICS WOODS-CREE THWOO
+0167C	CANADIAN SYLLABICS WOODS-CREE THWA
+0167D	CANADIAN SYLLABICS WOODS-CREE THWAA
+0167E	CANADIAN SYLLABICS WOODS-CREE FINAL TH
+0167F	CANADIAN SYLLABICS BLACKFOOT W
+01680	OGHAM SPACE MARK
+01681	OGHAM LETTER BEITH
+01682	OGHAM LETTER LUIS
+01683	OGHAM LETTER FEARN
+01684	OGHAM LETTER SAIL
+01685	OGHAM LETTER NION
+01686	OGHAM LETTER UATH
+01687	OGHAM LETTER DAIR
+01688	OGHAM LETTER TINNE
+01689	OGHAM LETTER COLL
+0168A	OGHAM LETTER CEIRT
+0168B	OGHAM LETTER MUIN
+0168C	OGHAM LETTER GORT
+0168D	OGHAM LETTER NGEADAL
+0168E	OGHAM LETTER STRAIF
+0168F	OGHAM LETTER RUIS
+01690	OGHAM LETTER AILM
+01691	OGHAM LETTER ONN
+01692	OGHAM LETTER UR
+01693	OGHAM LETTER EADHADH
+01694	OGHAM LETTER IODHADH
+01695	OGHAM LETTER EABHADH
+01696	OGHAM LETTER OR
+01697	OGHAM LETTER UILLEANN
+01698	OGHAM LETTER IFIN
+01699	OGHAM LETTER EAMHANCHOLL
+0169A	OGHAM LETTER PEITH
+0169B	OGHAM FEATHER MARK
+0169C	OGHAM REVERSED FEATHER MARK
+016A0	RUNIC LETTER FEHU FEOH FE F
+016A1	RUNIC LETTER V
+016A2	RUNIC LETTER URUZ UR U
+016A3	RUNIC LETTER YR
+016A4	RUNIC LETTER Y
+016A5	RUNIC LETTER W
+016A6	RUNIC LETTER THURISAZ THURS THORN
+016A7	RUNIC LETTER ETH
+016A8	RUNIC LETTER ANSUZ A
+016A9	RUNIC LETTER OS O
+016AA	RUNIC LETTER AC A
+016AB	RUNIC LETTER AESC
+016AC	RUNIC LETTER LONG-BRANCH-OSS O
+016AD	RUNIC LETTER SHORT-TWIG-OSS O
+016AE	RUNIC LETTER O
+016AF	RUNIC LETTER OE
+016B0	RUNIC LETTER ON
+016B1	RUNIC LETTER RAIDO RAD REID R
+016B2	RUNIC LETTER KAUNA
+016B3	RUNIC LETTER CEN
+016B4	RUNIC LETTER KAUN K
+016B5	RUNIC LETTER G
+016B6	RUNIC LETTER ENG
+016B7	RUNIC LETTER GEBO GYFU G
+016B8	RUNIC LETTER GAR
+016B9	RUNIC LETTER WUNJO WYNN W
+016BA	RUNIC LETTER HAGLAZ H
+016BB	RUNIC LETTER HAEGL H
+016BC	RUNIC LETTER LONG-BRANCH-HAGALL H
+016BD	RUNIC LETTER SHORT-TWIG-HAGALL H
+016BE	RUNIC LETTER NAUDIZ NYD NAUD N
+016BF	RUNIC LETTER SHORT-TWIG-NAUD N
+016C0	RUNIC LETTER DOTTED-N
+016C1	RUNIC LETTER ISAZ IS ISS I
+016C2	RUNIC LETTER E
+016C3	RUNIC LETTER JERAN J
+016C4	RUNIC LETTER GER
+016C5	RUNIC LETTER LONG-BRANCH-AR AE
+016C6	RUNIC LETTER SHORT-TWIG-AR A
+016C7	RUNIC LETTER IWAZ EOH
+016C8	RUNIC LETTER PERTHO PEORTH P
+016C9	RUNIC LETTER ALGIZ EOLHX
+016CA	RUNIC LETTER SOWILO S
+016CB	RUNIC LETTER SIGEL LONG-BRANCH-SOL S
+016CC	RUNIC LETTER SHORT-TWIG-SOL S
+016CD	RUNIC LETTER C
+016CE	RUNIC LETTER Z
+016CF	RUNIC LETTER TIWAZ TIR TYR T
+016D0	RUNIC LETTER SHORT-TWIG-TYR T
+016D1	RUNIC LETTER D
+016D2	RUNIC LETTER BERKANAN BEORC BJARKAN B
+016D3	RUNIC LETTER SHORT-TWIG-BJARKAN B
+016D4	RUNIC LETTER DOTTED-P
+016D5	RUNIC LETTER OPEN-P
+016D6	RUNIC LETTER EHWAZ EH E
+016D7	RUNIC LETTER MANNAZ MAN M
+016D8	RUNIC LETTER LONG-BRANCH-MADR M
+016D9	RUNIC LETTER SHORT-TWIG-MADR M
+016DA	RUNIC LETTER LAUKAZ LAGU LOGR L
+016DB	RUNIC LETTER DOTTED-L
+016DC	RUNIC LETTER INGWAZ
+016DD	RUNIC LETTER ING
+016DE	RUNIC LETTER DAGAZ DAEG D
+016DF	RUNIC LETTER OTHALAN ETHEL O
+016E0	RUNIC LETTER EAR
+016E1	RUNIC LETTER IOR
+016E2	RUNIC LETTER CWEORTH
+016E3	RUNIC LETTER CALC
+016E4	RUNIC LETTER CEALC
+016E5	RUNIC LETTER STAN
+016E6	RUNIC LETTER LONG-BRANCH-YR
+016E7	RUNIC LETTER SHORT-TWIG-YR
+016E8	RUNIC LETTER ICELANDIC-YR
+016E9	RUNIC LETTER Q
+016EA	RUNIC LETTER X
+016EB	RUNIC SINGLE PUNCTUATION
+016EC	RUNIC MULTIPLE PUNCTUATION
+016ED	RUNIC CROSS PUNCTUATION
+016EE	RUNIC ARLAUG SYMBOL
+016EF	RUNIC TVIMADUR SYMBOL
+016F0	RUNIC BELGTHOR SYMBOL
+016F1	RUNIC LETTER K
+016F2	RUNIC LETTER SH
+016F3	RUNIC LETTER OO
+016F4	RUNIC LETTER FRANKS CASKET OS
+016F5	RUNIC LETTER FRANKS CASKET IS
+016F6	RUNIC LETTER FRANKS CASKET EH
+016F7	RUNIC LETTER FRANKS CASKET AC
+016F8	RUNIC LETTER FRANKS CASKET AESC
+01700	TAGALOG LETTER A
+01701	TAGALOG LETTER I
+01702	TAGALOG LETTER U
+01703	TAGALOG LETTER KA
+01704	TAGALOG LETTER GA
+01705	TAGALOG LETTER NGA
+01706	TAGALOG LETTER TA
+01707	TAGALOG LETTER DA
+01708	TAGALOG LETTER NA
+01709	TAGALOG LETTER PA
+0170A	TAGALOG LETTER BA
+0170B	TAGALOG LETTER MA
+0170C	TAGALOG LETTER YA
+0170E	TAGALOG LETTER LA
+0170F	TAGALOG LETTER WA
+01710	TAGALOG LETTER SA
+01711	TAGALOG LETTER HA
+01712	TAGALOG VOWEL SIGN I
+01713	TAGALOG VOWEL SIGN U
+01714	TAGALOG SIGN VIRAMA
+01720	HANUNOO LETTER A
+01721	HANUNOO LETTER I
+01722	HANUNOO LETTER U
+01723	HANUNOO LETTER KA
+01724	HANUNOO LETTER GA
+01725	HANUNOO LETTER NGA
+01726	HANUNOO LETTER TA
+01727	HANUNOO LETTER DA
+01728	HANUNOO LETTER NA
+01729	HANUNOO LETTER PA
+0172A	HANUNOO LETTER BA
+0172B	HANUNOO LETTER MA
+0172C	HANUNOO LETTER YA
+0172D	HANUNOO LETTER RA
+0172E	HANUNOO LETTER LA
+0172F	HANUNOO LETTER WA
+01730	HANUNOO LETTER SA
+01731	HANUNOO LETTER HA
+01732	HANUNOO VOWEL SIGN I
+01733	HANUNOO VOWEL SIGN U
+01734	HANUNOO SIGN PAMUDPOD
+01735	PHILIPPINE SINGLE PUNCTUATION
+01736	PHILIPPINE DOUBLE PUNCTUATION
+01740	BUHID LETTER A
+01741	BUHID LETTER I
+01742	BUHID LETTER U
+01743	BUHID LETTER KA
+01744	BUHID LETTER GA
+01745	BUHID LETTER NGA
+01746	BUHID LETTER TA
+01747	BUHID LETTER DA
+01748	BUHID LETTER NA
+01749	BUHID LETTER PA
+0174A	BUHID LETTER BA
+0174B	BUHID LETTER MA
+0174C	BUHID LETTER YA
+0174D	BUHID LETTER RA
+0174E	BUHID LETTER LA
+0174F	BUHID LETTER WA
+01750	BUHID LETTER SA
+01751	BUHID LETTER HA
+01752	BUHID VOWEL SIGN I
+01753	BUHID VOWEL SIGN U
+01760	TAGBANWA LETTER A
+01761	TAGBANWA LETTER I
+01762	TAGBANWA LETTER U
+01763	TAGBANWA LETTER KA
+01764	TAGBANWA LETTER GA
+01765	TAGBANWA LETTER NGA
+01766	TAGBANWA LETTER TA
+01767	TAGBANWA LETTER DA
+01768	TAGBANWA LETTER NA
+01769	TAGBANWA LETTER PA
+0176A	TAGBANWA LETTER BA
+0176B	TAGBANWA LETTER MA
+0176C	TAGBANWA LETTER YA
+0176E	TAGBANWA LETTER LA
+0176F	TAGBANWA LETTER WA
+01770	TAGBANWA LETTER SA
+01772	TAGBANWA VOWEL SIGN I
+01773	TAGBANWA VOWEL SIGN U
+01780	KHMER LETTER KA
+01781	KHMER LETTER KHA
+01782	KHMER LETTER KO
+01783	KHMER LETTER KHO
+01784	KHMER LETTER NGO
+01785	KHMER LETTER CA
+01786	KHMER LETTER CHA
+01787	KHMER LETTER CO
+01788	KHMER LETTER CHO
+01789	KHMER LETTER NYO
+0178A	KHMER LETTER DA
+0178B	KHMER LETTER TTHA
+0178C	KHMER LETTER DO
+0178D	KHMER LETTER TTHO
+0178E	KHMER LETTER NNO
+0178F	KHMER LETTER TA
+01790	KHMER LETTER THA
+01791	KHMER LETTER TO
+01792	KHMER LETTER THO
+01793	KHMER LETTER NO
+01794	KHMER LETTER BA
+01795	KHMER LETTER PHA
+01796	KHMER LETTER PO
+01797	KHMER LETTER PHO
+01798	KHMER LETTER MO
+01799	KHMER LETTER YO
+0179A	KHMER LETTER RO
+0179B	KHMER LETTER LO
+0179C	KHMER LETTER VO
+0179D	KHMER LETTER SHA
+0179E	KHMER LETTER SSO
+0179F	KHMER LETTER SA
+017A0	KHMER LETTER HA
+017A1	KHMER LETTER LA
+017A2	KHMER LETTER QA
+017A3	KHMER INDEPENDENT VOWEL QAQ
+017A4	KHMER INDEPENDENT VOWEL QAA
+017A5	KHMER INDEPENDENT VOWEL QI
+017A6	KHMER INDEPENDENT VOWEL QII
+017A7	KHMER INDEPENDENT VOWEL QU
+017A8	KHMER INDEPENDENT VOWEL QUK
+017A9	KHMER INDEPENDENT VOWEL QUU
+017AA	KHMER INDEPENDENT VOWEL QUUV
+017AB	KHMER INDEPENDENT VOWEL RY
+017AC	KHMER INDEPENDENT VOWEL RYY
+017AD	KHMER INDEPENDENT VOWEL LY
+017AE	KHMER INDEPENDENT VOWEL LYY
+017AF	KHMER INDEPENDENT VOWEL QE
+017B0	KHMER INDEPENDENT VOWEL QAI
+017B1	KHMER INDEPENDENT VOWEL QOO TYPE ONE
+017B2	KHMER INDEPENDENT VOWEL QOO TYPE TWO
+017B3	KHMER INDEPENDENT VOWEL QAU
+017B4	KHMER VOWEL INHERENT AQ
+017B5	KHMER VOWEL INHERENT AA
+017B6	KHMER VOWEL SIGN AA
+017B7	KHMER VOWEL SIGN I
+017B8	KHMER VOWEL SIGN II
+017B9	KHMER VOWEL SIGN Y
+017BA	KHMER VOWEL SIGN YY
+017BB	KHMER VOWEL SIGN U
+017BC	KHMER VOWEL SIGN UU
+017BD	KHMER VOWEL SIGN UA
+017BE	KHMER VOWEL SIGN OE
+017BF	KHMER VOWEL SIGN YA
+017C0	KHMER VOWEL SIGN IE
+017C1	KHMER VOWEL SIGN E
+017C2	KHMER VOWEL SIGN AE
+017C3	KHMER VOWEL SIGN AI
+017C4	KHMER VOWEL SIGN OO
+017C5	KHMER VOWEL SIGN AU
+017C6	KHMER SIGN NIKAHIT
+017C7	KHMER SIGN REAHMUK
+017C8	KHMER SIGN YUUKALEAPINTU
+017C9	KHMER SIGN MUUSIKATOAN
+017CA	KHMER SIGN TRIISAP
+017CB	KHMER SIGN BANTOC
+017CC	KHMER SIGN ROBAT
+017CD	KHMER SIGN TOANDAKHIAT
+017CE	KHMER SIGN KAKABAT
+017CF	KHMER SIGN AHSDA
+017D0	KHMER SIGN SAMYOK SANNYA
+017D1	KHMER SIGN VIRIAM
+017D2	KHMER SIGN COENG
+017D3	KHMER SIGN BATHAMASAT
+017D4	KHMER SIGN KHAN
+017D5	KHMER SIGN BARIYOOSAN
+017D6	KHMER SIGN CAMNUC PII KUUH
+017D7	KHMER SIGN LEK TOO
+017D8	KHMER SIGN BEYYAL
+017D9	KHMER SIGN PHNAEK MUAN
+017DA	KHMER SIGN KOOMUUT
+017DB	KHMER CURRENCY SYMBOL RIEL
+017DC	KHMER SIGN AVAKRAHASANYA
+017DD	KHMER SIGN ATTHACAN
+017E0	KHMER DIGIT ZERO
+017E1	KHMER DIGIT ONE
+017E2	KHMER DIGIT TWO
+017E3	KHMER DIGIT THREE
+017E4	KHMER DIGIT FOUR
+017E5	KHMER DIGIT FIVE
+017E6	KHMER DIGIT SIX
+017E7	KHMER DIGIT SEVEN
+017E8	KHMER DIGIT EIGHT
+017E9	KHMER DIGIT NINE
+017F0	KHMER SYMBOL LEK ATTAK SON
+017F1	KHMER SYMBOL LEK ATTAK MUOY
+017F2	KHMER SYMBOL LEK ATTAK PII
+017F3	KHMER SYMBOL LEK ATTAK BEI
+017F4	KHMER SYMBOL LEK ATTAK BUON
+017F5	KHMER SYMBOL LEK ATTAK PRAM
+017F6	KHMER SYMBOL LEK ATTAK PRAM-MUOY
+017F7	KHMER SYMBOL LEK ATTAK PRAM-PII
+017F8	KHMER SYMBOL LEK ATTAK PRAM-BEI
+017F9	KHMER SYMBOL LEK ATTAK PRAM-BUON
+01800	MONGOLIAN BIRGA
+01801	MONGOLIAN ELLIPSIS
+01802	MONGOLIAN COMMA
+01803	MONGOLIAN FULL STOP
+01804	MONGOLIAN COLON
+01805	MONGOLIAN FOUR DOTS
+01806	MONGOLIAN TODO SOFT HYPHEN
+01807	MONGOLIAN SIBE SYLLABLE BOUNDARY MARKER
+01808	MONGOLIAN MANCHU COMMA
+01809	MONGOLIAN MANCHU FULL STOP
+0180A	MONGOLIAN NIRUGU
+0180B	MONGOLIAN FREE VARIATION SELECTOR ONE
+0180B	FVS1
+0180C	MONGOLIAN FREE VARIATION SELECTOR TWO
+0180C	FVS2
+0180D	MONGOLIAN FREE VARIATION SELECTOR THREE
+0180D	FVS3
+0180E	MONGOLIAN VOWEL SEPARATOR
+0180E	MVS
+01810	MONGOLIAN DIGIT ZERO
+01811	MONGOLIAN DIGIT ONE
+01812	MONGOLIAN DIGIT TWO
+01813	MONGOLIAN DIGIT THREE
+01814	MONGOLIAN DIGIT FOUR
+01815	MONGOLIAN DIGIT FIVE
+01816	MONGOLIAN DIGIT SIX
+01817	MONGOLIAN DIGIT SEVEN
+01818	MONGOLIAN DIGIT EIGHT
+01819	MONGOLIAN DIGIT NINE
+01820	MONGOLIAN LETTER A
+01821	MONGOLIAN LETTER E
+01822	MONGOLIAN LETTER I
+01823	MONGOLIAN LETTER O
+01824	MONGOLIAN LETTER U
+01825	MONGOLIAN LETTER OE
+01826	MONGOLIAN LETTER UE
+01827	MONGOLIAN LETTER EE
+01828	MONGOLIAN LETTER NA
+01829	MONGOLIAN LETTER ANG
+0182A	MONGOLIAN LETTER BA
+0182B	MONGOLIAN LETTER PA
+0182C	MONGOLIAN LETTER QA
+0182D	MONGOLIAN LETTER GA
+0182E	MONGOLIAN LETTER MA
+0182F	MONGOLIAN LETTER LA
+01830	MONGOLIAN LETTER SA
+01831	MONGOLIAN LETTER SHA
+01832	MONGOLIAN LETTER TA
+01833	MONGOLIAN LETTER DA
+01834	MONGOLIAN LETTER CHA
+01835	MONGOLIAN LETTER JA
+01836	MONGOLIAN LETTER YA
+01837	MONGOLIAN LETTER RA
+01838	MONGOLIAN LETTER WA
+01839	MONGOLIAN LETTER FA
+0183A	MONGOLIAN LETTER KA
+0183B	MONGOLIAN LETTER KHA
+0183C	MONGOLIAN LETTER TSA
+0183D	MONGOLIAN LETTER ZA
+0183E	MONGOLIAN LETTER HAA
+0183F	MONGOLIAN LETTER ZRA
+01840	MONGOLIAN LETTER LHA
+01841	MONGOLIAN LETTER ZHI
+01842	MONGOLIAN LETTER CHI
+01843	MONGOLIAN LETTER TODO LONG VOWEL SIGN
+01844	MONGOLIAN LETTER TODO E
+01845	MONGOLIAN LETTER TODO I
+01846	MONGOLIAN LETTER TODO O
+01847	MONGOLIAN LETTER TODO U
+01848	MONGOLIAN LETTER TODO OE
+01849	MONGOLIAN LETTER TODO UE
+0184A	MONGOLIAN LETTER TODO ANG
+0184B	MONGOLIAN LETTER TODO BA
+0184C	MONGOLIAN LETTER TODO PA
+0184D	MONGOLIAN LETTER TODO QA
+0184E	MONGOLIAN LETTER TODO GA
+0184F	MONGOLIAN LETTER TODO MA
+01850	MONGOLIAN LETTER TODO TA
+01851	MONGOLIAN LETTER TODO DA
+01852	MONGOLIAN LETTER TODO CHA
+01853	MONGOLIAN LETTER TODO JA
+01854	MONGOLIAN LETTER TODO TSA
+01855	MONGOLIAN LETTER TODO YA
+01856	MONGOLIAN LETTER TODO WA
+01857	MONGOLIAN LETTER TODO KA
+01858	MONGOLIAN LETTER TODO GAA
+01859	MONGOLIAN LETTER TODO HAA
+0185A	MONGOLIAN LETTER TODO JIA
+0185B	MONGOLIAN LETTER TODO NIA
+0185C	MONGOLIAN LETTER TODO DZA
+0185D	MONGOLIAN LETTER SIBE E
+0185E	MONGOLIAN LETTER SIBE I
+0185F	MONGOLIAN LETTER SIBE IY
+01860	MONGOLIAN LETTER SIBE UE
+01861	MONGOLIAN LETTER SIBE U
+01862	MONGOLIAN LETTER SIBE ANG
+01863	MONGOLIAN LETTER SIBE KA
+01864	MONGOLIAN LETTER SIBE GA
+01865	MONGOLIAN LETTER SIBE HA
+01866	MONGOLIAN LETTER SIBE PA
+01867	MONGOLIAN LETTER SIBE SHA
+01868	MONGOLIAN LETTER SIBE TA
+01869	MONGOLIAN LETTER SIBE DA
+0186A	MONGOLIAN LETTER SIBE JA
+0186B	MONGOLIAN LETTER SIBE FA
+0186C	MONGOLIAN LETTER SIBE GAA
+0186D	MONGOLIAN LETTER SIBE HAA
+0186E	MONGOLIAN LETTER SIBE TSA
+0186F	MONGOLIAN LETTER SIBE ZA
+01870	MONGOLIAN LETTER SIBE RAA
+01871	MONGOLIAN LETTER SIBE CHA
+01872	MONGOLIAN LETTER SIBE ZHA
+01873	MONGOLIAN LETTER MANCHU I
+01874	MONGOLIAN LETTER MANCHU KA
+01875	MONGOLIAN LETTER MANCHU RA
+01876	MONGOLIAN LETTER MANCHU FA
+01877	MONGOLIAN LETTER MANCHU ZHA
+01880	MONGOLIAN LETTER ALI GALI ANUSVARA ONE
+01881	MONGOLIAN LETTER ALI GALI VISARGA ONE
+01882	MONGOLIAN LETTER ALI GALI DAMARU
+01883	MONGOLIAN LETTER ALI GALI UBADAMA
+01884	MONGOLIAN LETTER ALI GALI INVERTED UBADAMA
+01885	MONGOLIAN LETTER ALI GALI BALUDA
+01886	MONGOLIAN LETTER ALI GALI THREE BALUDA
+01887	MONGOLIAN LETTER ALI GALI A
+01888	MONGOLIAN LETTER ALI GALI I
+01889	MONGOLIAN LETTER ALI GALI KA
+0188A	MONGOLIAN LETTER ALI GALI NGA
+0188B	MONGOLIAN LETTER ALI GALI CA
+0188C	MONGOLIAN LETTER ALI GALI TTA
+0188D	MONGOLIAN LETTER ALI GALI TTHA
+0188E	MONGOLIAN LETTER ALI GALI DDA
+0188F	MONGOLIAN LETTER ALI GALI NNA
+01890	MONGOLIAN LETTER ALI GALI TA
+01891	MONGOLIAN LETTER ALI GALI DA
+01892	MONGOLIAN LETTER ALI GALI PA
+01893	MONGOLIAN LETTER ALI GALI PHA
+01894	MONGOLIAN LETTER ALI GALI SSA
+01895	MONGOLIAN LETTER ALI GALI ZHA
+01896	MONGOLIAN LETTER ALI GALI ZA
+01897	MONGOLIAN LETTER ALI GALI AH
+01898	MONGOLIAN LETTER TODO ALI GALI TA
+01899	MONGOLIAN LETTER TODO ALI GALI ZHA
+0189A	MONGOLIAN LETTER MANCHU ALI GALI GHA
+0189B	MONGOLIAN LETTER MANCHU ALI GALI NGA
+0189C	MONGOLIAN LETTER MANCHU ALI GALI CA
+0189D	MONGOLIAN LETTER MANCHU ALI GALI JHA
+0189E	MONGOLIAN LETTER MANCHU ALI GALI TTA
+0189F	MONGOLIAN LETTER MANCHU ALI GALI DDHA
+018A0	MONGOLIAN LETTER MANCHU ALI GALI TA
+018A1	MONGOLIAN LETTER MANCHU ALI GALI DHA
+018A2	MONGOLIAN LETTER MANCHU ALI GALI SSA
+018A3	MONGOLIAN LETTER MANCHU ALI GALI CYA
+018A4	MONGOLIAN LETTER MANCHU ALI GALI ZHA
+018A5	MONGOLIAN LETTER MANCHU ALI GALI ZA
+018A6	MONGOLIAN LETTER ALI GALI HALF U
+018A7	MONGOLIAN LETTER ALI GALI HALF YA
+018A8	MONGOLIAN LETTER MANCHU ALI GALI BHA
+018A9	MONGOLIAN LETTER ALI GALI DAGALGA
+018AA	MONGOLIAN LETTER MANCHU ALI GALI LHA
+018B0	CANADIAN SYLLABICS OY
+018B1	CANADIAN SYLLABICS AY
+018B2	CANADIAN SYLLABICS AAY
+018B3	CANADIAN SYLLABICS WAY
+018B4	CANADIAN SYLLABICS POY
+018B5	CANADIAN SYLLABICS PAY
+018B6	CANADIAN SYLLABICS PWOY
+018B7	CANADIAN SYLLABICS TAY
+018B8	CANADIAN SYLLABICS KAY
+018B9	CANADIAN SYLLABICS KWAY
+018BA	CANADIAN SYLLABICS MAY
+018BB	CANADIAN SYLLABICS NOY
+018BC	CANADIAN SYLLABICS NAY
+018BD	CANADIAN SYLLABICS LAY
+018BE	CANADIAN SYLLABICS SOY
+018BF	CANADIAN SYLLABICS SAY
+018C0	CANADIAN SYLLABICS SHOY
+018C1	CANADIAN SYLLABICS SHAY
+018C2	CANADIAN SYLLABICS SHWOY
+018C3	CANADIAN SYLLABICS YOY
+018C4	CANADIAN SYLLABICS YAY
+018C5	CANADIAN SYLLABICS RAY
+018C6	CANADIAN SYLLABICS NWI
+018C7	CANADIAN SYLLABICS OJIBWAY NWI
+018C8	CANADIAN SYLLABICS NWII
+018C9	CANADIAN SYLLABICS OJIBWAY NWII
+018CA	CANADIAN SYLLABICS NWO
+018CB	CANADIAN SYLLABICS OJIBWAY NWO
+018CC	CANADIAN SYLLABICS NWOO
+018CD	CANADIAN SYLLABICS OJIBWAY NWOO
+018CE	CANADIAN SYLLABICS RWEE
+018CF	CANADIAN SYLLABICS RWI
+018D0	CANADIAN SYLLABICS RWII
+018D1	CANADIAN SYLLABICS RWO
+018D2	CANADIAN SYLLABICS RWOO
+018D3	CANADIAN SYLLABICS RWA
+018D4	CANADIAN SYLLABICS OJIBWAY P
+018D5	CANADIAN SYLLABICS OJIBWAY T
+018D6	CANADIAN SYLLABICS OJIBWAY K
+018D7	CANADIAN SYLLABICS OJIBWAY C
+018D8	CANADIAN SYLLABICS OJIBWAY M
+018D9	CANADIAN SYLLABICS OJIBWAY N
+018DA	CANADIAN SYLLABICS OJIBWAY S
+018DB	CANADIAN SYLLABICS OJIBWAY SH
+018DC	CANADIAN SYLLABICS EASTERN W
+018DD	CANADIAN SYLLABICS WESTERN W
+018DE	CANADIAN SYLLABICS FINAL SMALL RING
+018DF	CANADIAN SYLLABICS FINAL RAISED DOT
+018E0	CANADIAN SYLLABICS R-CREE RWE
+018E1	CANADIAN SYLLABICS WEST-CREE LOO
+018E2	CANADIAN SYLLABICS WEST-CREE LAA
+018E3	CANADIAN SYLLABICS THWE
+018E4	CANADIAN SYLLABICS THWA
+018E5	CANADIAN SYLLABICS TTHWE
+018E6	CANADIAN SYLLABICS TTHOO
+018E7	CANADIAN SYLLABICS TTHAA
+018E8	CANADIAN SYLLABICS TLHWE
+018E9	CANADIAN SYLLABICS TLHOO
+018EA	CANADIAN SYLLABICS SAYISI SHWE
+018EB	CANADIAN SYLLABICS SAYISI SHOO
+018EC	CANADIAN SYLLABICS SAYISI HOO
+018ED	CANADIAN SYLLABICS CARRIER GWU
+018EE	CANADIAN SYLLABICS CARRIER DENE GEE
+018EF	CANADIAN SYLLABICS CARRIER GAA
+018F0	CANADIAN SYLLABICS CARRIER GWA
+018F1	CANADIAN SYLLABICS SAYISI JUU
+018F2	CANADIAN SYLLABICS CARRIER JWA
+018F3	CANADIAN SYLLABICS BEAVER DENE L
+018F4	CANADIAN SYLLABICS BEAVER DENE R
+018F5	CANADIAN SYLLABICS CARRIER DENTAL S
+01900	LIMBU VOWEL-CARRIER LETTER
+01901	LIMBU LETTER KA
+01902	LIMBU LETTER KHA
+01903	LIMBU LETTER GA
+01904	LIMBU LETTER GHA
+01905	LIMBU LETTER NGA
+01906	LIMBU LETTER CA
+01907	LIMBU LETTER CHA
+01908	LIMBU LETTER JA
+01909	LIMBU LETTER JHA
+0190A	LIMBU LETTER YAN
+0190B	LIMBU LETTER TA
+0190C	LIMBU LETTER THA
+0190D	LIMBU LETTER DA
+0190E	LIMBU LETTER DHA
+0190F	LIMBU LETTER NA
+01910	LIMBU LETTER PA
+01911	LIMBU LETTER PHA
+01912	LIMBU LETTER BA
+01913	LIMBU LETTER BHA
+01914	LIMBU LETTER MA
+01915	LIMBU LETTER YA
+01916	LIMBU LETTER RA
+01917	LIMBU LETTER LA
+01918	LIMBU LETTER WA
+01919	LIMBU LETTER SHA
+0191A	LIMBU LETTER SSA
+0191B	LIMBU LETTER SA
+0191C	LIMBU LETTER HA
+0191D	LIMBU LETTER GYAN
+0191E	LIMBU LETTER TRA
+01920	LIMBU VOWEL SIGN A
+01921	LIMBU VOWEL SIGN I
+01922	LIMBU VOWEL SIGN U
+01923	LIMBU VOWEL SIGN EE
+01924	LIMBU VOWEL SIGN AI
+01925	LIMBU VOWEL SIGN OO
+01926	LIMBU VOWEL SIGN AU
+01927	LIMBU VOWEL SIGN E
+01928	LIMBU VOWEL SIGN O
+01929	LIMBU SUBJOINED LETTER YA
+0192A	LIMBU SUBJOINED LETTER RA
+0192B	LIMBU SUBJOINED LETTER WA
+01930	LIMBU SMALL LETTER KA
+01931	LIMBU SMALL LETTER NGA
+01932	LIMBU SMALL LETTER ANUSVARA
+01933	LIMBU SMALL LETTER TA
+01934	LIMBU SMALL LETTER NA
+01935	LIMBU SMALL LETTER PA
+01936	LIMBU SMALL LETTER MA
+01937	LIMBU SMALL LETTER RA
+01938	LIMBU SMALL LETTER LA
+01939	LIMBU SIGN MUKPHRENG
+0193A	LIMBU SIGN KEMPHRENG
+0193B	LIMBU SIGN SA-I
+01940	LIMBU SIGN LOO
+01944	LIMBU EXCLAMATION MARK
+01945	LIMBU QUESTION MARK
+01946	LIMBU DIGIT ZERO
+01947	LIMBU DIGIT ONE
+01948	LIMBU DIGIT TWO
+01949	LIMBU DIGIT THREE
+0194A	LIMBU DIGIT FOUR
+0194B	LIMBU DIGIT FIVE
+0194C	LIMBU DIGIT SIX
+0194D	LIMBU DIGIT SEVEN
+0194E	LIMBU DIGIT EIGHT
+0194F	LIMBU DIGIT NINE
+01950	TAI LE LETTER KA
+01951	TAI LE LETTER XA
+01952	TAI LE LETTER NGA
+01953	TAI LE LETTER TSA
+01954	TAI LE LETTER SA
+01955	TAI LE LETTER YA
+01956	TAI LE LETTER TA
+01957	TAI LE LETTER THA
+01958	TAI LE LETTER LA
+01959	TAI LE LETTER PA
+0195A	TAI LE LETTER PHA
+0195B	TAI LE LETTER MA
+0195C	TAI LE LETTER FA
+0195D	TAI LE LETTER VA
+0195E	TAI LE LETTER HA
+0195F	TAI LE LETTER QA
+01960	TAI LE LETTER KHA
+01961	TAI LE LETTER TSHA
+01962	TAI LE LETTER NA
+01963	TAI LE LETTER A
+01964	TAI LE LETTER I
+01965	TAI LE LETTER EE
+01966	TAI LE LETTER EH
+01967	TAI LE LETTER U
+01968	TAI LE LETTER OO
+01969	TAI LE LETTER O
+0196A	TAI LE LETTER UE
+0196B	TAI LE LETTER E
+0196C	TAI LE LETTER AUE
+0196D	TAI LE LETTER AI
+01970	TAI LE LETTER TONE-2
+01971	TAI LE LETTER TONE-3
+01972	TAI LE LETTER TONE-4
+01973	TAI LE LETTER TONE-5
+01974	TAI LE LETTER TONE-6
+01980	NEW TAI LUE LETTER HIGH QA
+01981	NEW TAI LUE LETTER LOW QA
+01982	NEW TAI LUE LETTER HIGH KA
+01983	NEW TAI LUE LETTER HIGH XA
+01984	NEW TAI LUE LETTER HIGH NGA
+01985	NEW TAI LUE LETTER LOW KA
+01986	NEW TAI LUE LETTER LOW XA
+01987	NEW TAI LUE LETTER LOW NGA
+01988	NEW TAI LUE LETTER HIGH TSA
+01989	NEW TAI LUE LETTER HIGH SA
+0198A	NEW TAI LUE LETTER HIGH YA
+0198B	NEW TAI LUE LETTER LOW TSA
+0198C	NEW TAI LUE LETTER LOW SA
+0198D	NEW TAI LUE LETTER LOW YA
+0198E	NEW TAI LUE LETTER HIGH TA
+0198F	NEW TAI LUE LETTER HIGH THA
+01990	NEW TAI LUE LETTER HIGH NA
+01991	NEW TAI LUE LETTER LOW TA
+01992	NEW TAI LUE LETTER LOW THA
+01993	NEW TAI LUE LETTER LOW NA
+01994	NEW TAI LUE LETTER HIGH PA
+01995	NEW TAI LUE LETTER HIGH PHA
+01996	NEW TAI LUE LETTER HIGH MA
+01997	NEW TAI LUE LETTER LOW PA
+01998	NEW TAI LUE LETTER LOW PHA
+01999	NEW TAI LUE LETTER LOW MA
+0199A	NEW TAI LUE LETTER HIGH FA
+0199B	NEW TAI LUE LETTER HIGH VA
+0199C	NEW TAI LUE LETTER HIGH LA
+0199D	NEW TAI LUE LETTER LOW FA
+0199E	NEW TAI LUE LETTER LOW VA
+0199F	NEW TAI LUE LETTER LOW LA
+019A0	NEW TAI LUE LETTER HIGH HA
+019A1	NEW TAI LUE LETTER HIGH DA
+019A2	NEW TAI LUE LETTER HIGH BA
+019A3	NEW TAI LUE LETTER LOW HA
+019A4	NEW TAI LUE LETTER LOW DA
+019A5	NEW TAI LUE LETTER LOW BA
+019A6	NEW TAI LUE LETTER HIGH KVA
+019A7	NEW TAI LUE LETTER HIGH XVA
+019A8	NEW TAI LUE LETTER LOW KVA
+019A9	NEW TAI LUE LETTER LOW XVA
+019AA	NEW TAI LUE LETTER HIGH SUA
+019AB	NEW TAI LUE LETTER LOW SUA
+019B0	NEW TAI LUE VOWEL SIGN VOWEL SHORTENER
+019B1	NEW TAI LUE VOWEL SIGN AA
+019B2	NEW TAI LUE VOWEL SIGN II
+019B3	NEW TAI LUE VOWEL SIGN U
+019B4	NEW TAI LUE VOWEL SIGN UU
+019B5	NEW TAI LUE VOWEL SIGN E
+019B6	NEW TAI LUE VOWEL SIGN AE
+019B7	NEW TAI LUE VOWEL SIGN O
+019B8	NEW TAI LUE VOWEL SIGN OA
+019B9	NEW TAI LUE VOWEL SIGN UE
+019BA	NEW TAI LUE VOWEL SIGN AY
+019BB	NEW TAI LUE VOWEL SIGN AAY
+019BC	NEW TAI LUE VOWEL SIGN UY
+019BD	NEW TAI LUE VOWEL SIGN OY
+019BE	NEW TAI LUE VOWEL SIGN OAY
+019BF	NEW TAI LUE VOWEL SIGN UEY
+019C0	NEW TAI LUE VOWEL SIGN IY
+019C1	NEW TAI LUE LETTER FINAL V
+019C2	NEW TAI LUE LETTER FINAL NG
+019C3	NEW TAI LUE LETTER FINAL N
+019C4	NEW TAI LUE LETTER FINAL M
+019C5	NEW TAI LUE LETTER FINAL K
+019C6	NEW TAI LUE LETTER FINAL D
+019C7	NEW TAI LUE LETTER FINAL B
+019C8	NEW TAI LUE TONE MARK-1
+019C9	NEW TAI LUE TONE MARK-2
+019D0	NEW TAI LUE DIGIT ZERO
+019D1	NEW TAI LUE DIGIT ONE
+019D2	NEW TAI LUE DIGIT TWO
+019D3	NEW TAI LUE DIGIT THREE
+019D4	NEW TAI LUE DIGIT FOUR
+019D5	NEW TAI LUE DIGIT FIVE
+019D6	NEW TAI LUE DIGIT SIX
+019D7	NEW TAI LUE DIGIT SEVEN
+019D8	NEW TAI LUE DIGIT EIGHT
+019D9	NEW TAI LUE DIGIT NINE
+019DA	NEW TAI LUE THAM DIGIT ONE
+019DE	NEW TAI LUE SIGN LAE
+019DF	NEW TAI LUE SIGN LAEV
+019E0	KHMER SYMBOL PATHAMASAT
+019E1	KHMER SYMBOL MUOY KOET
+019E2	KHMER SYMBOL PII KOET
+019E3	KHMER SYMBOL BEI KOET
+019E4	KHMER SYMBOL BUON KOET
+019E5	KHMER SYMBOL PRAM KOET
+019E6	KHMER SYMBOL PRAM-MUOY KOET
+019E7	KHMER SYMBOL PRAM-PII KOET
+019E8	KHMER SYMBOL PRAM-BEI KOET
+019E9	KHMER SYMBOL PRAM-BUON KOET
+019EA	KHMER SYMBOL DAP KOET
+019EB	KHMER SYMBOL DAP-MUOY KOET
+019EC	KHMER SYMBOL DAP-PII KOET
+019ED	KHMER SYMBOL DAP-BEI KOET
+019EE	KHMER SYMBOL DAP-BUON KOET
+019EF	KHMER SYMBOL DAP-PRAM KOET
+019F0	KHMER SYMBOL TUTEYASAT
+019F1	KHMER SYMBOL MUOY ROC
+019F2	KHMER SYMBOL PII ROC
+019F3	KHMER SYMBOL BEI ROC
+019F4	KHMER SYMBOL BUON ROC
+019F5	KHMER SYMBOL PRAM ROC
+019F6	KHMER SYMBOL PRAM-MUOY ROC
+019F7	KHMER SYMBOL PRAM-PII ROC
+019F8	KHMER SYMBOL PRAM-BEI ROC
+019F9	KHMER SYMBOL PRAM-BUON ROC
+019FA	KHMER SYMBOL DAP ROC
+019FB	KHMER SYMBOL DAP-MUOY ROC
+019FC	KHMER SYMBOL DAP-PII ROC
+019FD	KHMER SYMBOL DAP-BEI ROC
+019FE	KHMER SYMBOL DAP-BUON ROC
+019FF	KHMER SYMBOL DAP-PRAM ROC
+01A00	BUGINESE LETTER KA
+01A01	BUGINESE LETTER GA
+01A02	BUGINESE LETTER NGA
+01A03	BUGINESE LETTER NGKA
+01A04	BUGINESE LETTER PA
+01A05	BUGINESE LETTER BA
+01A06	BUGINESE LETTER MA
+01A07	BUGINESE LETTER MPA
+01A08	BUGINESE LETTER TA
+01A09	BUGINESE LETTER DA
+01A0A	BUGINESE LETTER NA
+01A0B	BUGINESE LETTER NRA
+01A0C	BUGINESE LETTER CA
+01A0D	BUGINESE LETTER JA
+01A0E	BUGINESE LETTER NYA
+01A0F	BUGINESE LETTER NYCA
+01A10	BUGINESE LETTER YA
+01A11	BUGINESE LETTER RA
+01A12	BUGINESE LETTER LA
+01A13	BUGINESE LETTER VA
+01A14	BUGINESE LETTER SA
+01A15	BUGINESE LETTER A
+01A16	BUGINESE LETTER HA
+01A17	BUGINESE VOWEL SIGN I
+01A18	BUGINESE VOWEL SIGN U
+01A19	BUGINESE VOWEL SIGN E
+01A1A	BUGINESE VOWEL SIGN O
+01A1B	BUGINESE VOWEL SIGN AE
+01A1E	BUGINESE PALLAWA
+01A1F	BUGINESE END OF SECTION
+01A20	TAI THAM LETTER HIGH KA
+01A21	TAI THAM LETTER HIGH KHA
+01A22	TAI THAM LETTER HIGH KXA
+01A23	TAI THAM LETTER LOW KA
+01A24	TAI THAM LETTER LOW KXA
+01A25	TAI THAM LETTER LOW KHA
+01A26	TAI THAM LETTER NGA
+01A27	TAI THAM LETTER HIGH CA
+01A28	TAI THAM LETTER HIGH CHA
+01A29	TAI THAM LETTER LOW CA
+01A2A	TAI THAM LETTER LOW SA
+01A2B	TAI THAM LETTER LOW CHA
+01A2C	TAI THAM LETTER NYA
+01A2D	TAI THAM LETTER RATA
+01A2E	TAI THAM LETTER HIGH RATHA
+01A2F	TAI THAM LETTER DA
+01A30	TAI THAM LETTER LOW RATHA
+01A31	TAI THAM LETTER RANA
+01A32	TAI THAM LETTER HIGH TA
+01A33	TAI THAM LETTER HIGH THA
+01A34	TAI THAM LETTER LOW TA
+01A35	TAI THAM LETTER LOW THA
+01A36	TAI THAM LETTER NA
+01A37	TAI THAM LETTER BA
+01A38	TAI THAM LETTER HIGH PA
+01A39	TAI THAM LETTER HIGH PHA
+01A3A	TAI THAM LETTER HIGH FA
+01A3B	TAI THAM LETTER LOW PA
+01A3C	TAI THAM LETTER LOW FA
+01A3D	TAI THAM LETTER LOW PHA
+01A3E	TAI THAM LETTER MA
+01A3F	TAI THAM LETTER LOW YA
+01A40	TAI THAM LETTER HIGH YA
+01A41	TAI THAM LETTER RA
+01A42	TAI THAM LETTER RUE
+01A43	TAI THAM LETTER LA
+01A44	TAI THAM LETTER LUE
+01A45	TAI THAM LETTER WA
+01A46	TAI THAM LETTER HIGH SHA
+01A47	TAI THAM LETTER HIGH SSA
+01A48	TAI THAM LETTER HIGH SA
+01A49	TAI THAM LETTER HIGH HA
+01A4A	TAI THAM LETTER LLA
+01A4B	TAI THAM LETTER A
+01A4C	TAI THAM LETTER LOW HA
+01A4D	TAI THAM LETTER I
+01A4E	TAI THAM LETTER II
+01A4F	TAI THAM LETTER U
+01A50	TAI THAM LETTER UU
+01A51	TAI THAM LETTER EE
+01A52	TAI THAM LETTER OO
+01A53	TAI THAM LETTER LAE
+01A54	TAI THAM LETTER GREAT SA
+01A55	TAI THAM CONSONANT SIGN MEDIAL RA
+01A56	TAI THAM CONSONANT SIGN MEDIAL LA
+01A57	TAI THAM CONSONANT SIGN LA TANG LAI
+01A58	TAI THAM SIGN MAI KANG LAI
+01A59	TAI THAM CONSONANT SIGN FINAL NGA
+01A5A	TAI THAM CONSONANT SIGN LOW PA
+01A5B	TAI THAM CONSONANT SIGN HIGH RATHA OR LOW PA
+01A5C	TAI THAM CONSONANT SIGN MA
+01A5D	TAI THAM CONSONANT SIGN BA
+01A5E	TAI THAM CONSONANT SIGN SA
+01A60	TAI THAM SIGN SAKOT
+01A61	TAI THAM VOWEL SIGN A
+01A62	TAI THAM VOWEL SIGN MAI SAT
+01A63	TAI THAM VOWEL SIGN AA
+01A64	TAI THAM VOWEL SIGN TALL AA
+01A65	TAI THAM VOWEL SIGN I
+01A66	TAI THAM VOWEL SIGN II
+01A67	TAI THAM VOWEL SIGN UE
+01A68	TAI THAM VOWEL SIGN UUE
+01A69	TAI THAM VOWEL SIGN U
+01A6A	TAI THAM VOWEL SIGN UU
+01A6B	TAI THAM VOWEL SIGN O
+01A6C	TAI THAM VOWEL SIGN OA BELOW
+01A6D	TAI THAM VOWEL SIGN OY
+01A6E	TAI THAM VOWEL SIGN E
+01A6F	TAI THAM VOWEL SIGN AE
+01A70	TAI THAM VOWEL SIGN OO
+01A71	TAI THAM VOWEL SIGN AI
+01A72	TAI THAM VOWEL SIGN THAM AI
+01A73	TAI THAM VOWEL SIGN OA ABOVE
+01A74	TAI THAM SIGN MAI KANG
+01A75	TAI THAM SIGN TONE-1
+01A76	TAI THAM SIGN TONE-2
+01A77	TAI THAM SIGN KHUEN TONE-3
+01A78	TAI THAM SIGN KHUEN TONE-4
+01A79	TAI THAM SIGN KHUEN TONE-5
+01A7A	TAI THAM SIGN RA HAAM
+01A7B	TAI THAM SIGN MAI SAM
+01A7C	TAI THAM SIGN KHUEN-LUE KARAN
+01A7F	TAI THAM COMBINING CRYPTOGRAMMIC DOT
+01A80	TAI THAM HORA DIGIT ZERO
+01A81	TAI THAM HORA DIGIT ONE
+01A82	TAI THAM HORA DIGIT TWO
+01A83	TAI THAM HORA DIGIT THREE
+01A84	TAI THAM HORA DIGIT FOUR
+01A85	TAI THAM HORA DIGIT FIVE
+01A86	TAI THAM HORA DIGIT SIX
+01A87	TAI THAM HORA DIGIT SEVEN
+01A88	TAI THAM HORA DIGIT EIGHT
+01A89	TAI THAM HORA DIGIT NINE
+01A90	TAI THAM THAM DIGIT ZERO
+01A91	TAI THAM THAM DIGIT ONE
+01A92	TAI THAM THAM DIGIT TWO
+01A93	TAI THAM THAM DIGIT THREE
+01A94	TAI THAM THAM DIGIT FOUR
+01A95	TAI THAM THAM DIGIT FIVE
+01A96	TAI THAM THAM DIGIT SIX
+01A97	TAI THAM THAM DIGIT SEVEN
+01A98	TAI THAM THAM DIGIT EIGHT
+01A99	TAI THAM THAM DIGIT NINE
+01AA0	TAI THAM SIGN WIANG
+01AA1	TAI THAM SIGN WIANGWAAK
+01AA2	TAI THAM SIGN SAWAN
+01AA3	TAI THAM SIGN KEOW
+01AA4	TAI THAM SIGN HOY
+01AA5	TAI THAM SIGN DOKMAI
+01AA6	TAI THAM SIGN REVERSED ROTATED RANA
+01AA7	TAI THAM SIGN MAI YAMOK
+01AA8	TAI THAM SIGN KAAN
+01AA9	TAI THAM SIGN KAANKUU
+01AAA	TAI THAM SIGN SATKAAN
+01AAB	TAI THAM SIGN SATKAANKUU
+01AAC	TAI THAM SIGN HANG
+01AAD	TAI THAM SIGN CAANG
+01AB0	COMBINING DOUBLED CIRCUMFLEX ACCENT
+01AB1	COMBINING DIAERESIS-RING
+01AB2	COMBINING INFINITY
+01AB3	COMBINING DOWNWARDS ARROW
+01AB4	COMBINING TRIPLE DOT
+01AB5	COMBINING X-X BELOW
+01AB6	COMBINING WIGGLY LINE BELOW
+01AB7	COMBINING OPEN MARK BELOW
+01AB8	COMBINING DOUBLE OPEN MARK BELOW
+01AB9	COMBINING LIGHT CENTRALIZATION STROKE BELOW
+01ABA	COMBINING STRONG CENTRALIZATION STROKE BELOW
+01ABB	COMBINING PARENTHESES ABOVE
+01ABC	COMBINING DOUBLE PARENTHESES ABOVE
+01ABD	COMBINING PARENTHESES BELOW
+01ABE	COMBINING PARENTHESES OVERLAY
+01B00	BALINESE SIGN ULU RICEM
+01B01	BALINESE SIGN ULU CANDRA
+01B02	BALINESE SIGN CECEK
+01B03	BALINESE SIGN SURANG
+01B04	BALINESE SIGN BISAH
+01B05	BALINESE LETTER AKARA
+01B06	BALINESE LETTER AKARA TEDUNG
+01B07	BALINESE LETTER IKARA
+01B08	BALINESE LETTER IKARA TEDUNG
+01B09	BALINESE LETTER UKARA
+01B0A	BALINESE LETTER UKARA TEDUNG
+01B0B	BALINESE LETTER RA REPA
+01B0C	BALINESE LETTER RA REPA TEDUNG
+01B0D	BALINESE LETTER LA LENGA
+01B0E	BALINESE LETTER LA LENGA TEDUNG
+01B0F	BALINESE LETTER EKARA
+01B10	BALINESE LETTER AIKARA
+01B11	BALINESE LETTER OKARA
+01B12	BALINESE LETTER OKARA TEDUNG
+01B13	BALINESE LETTER KA
+01B14	BALINESE LETTER KA MAHAPRANA
+01B15	BALINESE LETTER GA
+01B16	BALINESE LETTER GA GORA
+01B17	BALINESE LETTER NGA
+01B18	BALINESE LETTER CA
+01B19	BALINESE LETTER CA LACA
+01B1A	BALINESE LETTER JA
+01B1B	BALINESE LETTER JA JERA
+01B1C	BALINESE LETTER NYA
+01B1D	BALINESE LETTER TA LATIK
+01B1E	BALINESE LETTER TA MURDA MAHAPRANA
+01B1F	BALINESE LETTER DA MURDA ALPAPRANA
+01B20	BALINESE LETTER DA MURDA MAHAPRANA
+01B21	BALINESE LETTER NA RAMBAT
+01B22	BALINESE LETTER TA
+01B23	BALINESE LETTER TA TAWA
+01B24	BALINESE LETTER DA
+01B25	BALINESE LETTER DA MADU
+01B26	BALINESE LETTER NA
+01B27	BALINESE LETTER PA
+01B28	BALINESE LETTER PA KAPAL
+01B29	BALINESE LETTER BA
+01B2A	BALINESE LETTER BA KEMBANG
+01B2B	BALINESE LETTER MA
+01B2C	BALINESE LETTER YA
+01B2D	BALINESE LETTER RA
+01B2E	BALINESE LETTER LA
+01B2F	BALINESE LETTER WA
+01B30	BALINESE LETTER SA SAGA
+01B31	BALINESE LETTER SA SAPA
+01B32	BALINESE LETTER SA
+01B33	BALINESE LETTER HA
+01B34	BALINESE SIGN REREKAN
+01B35	BALINESE VOWEL SIGN TEDUNG
+01B36	BALINESE VOWEL SIGN ULU
+01B37	BALINESE VOWEL SIGN ULU SARI
+01B38	BALINESE VOWEL SIGN SUKU
+01B39	BALINESE VOWEL SIGN SUKU ILUT
+01B3A	BALINESE VOWEL SIGN RA REPA
+01B3B	BALINESE VOWEL SIGN RA REPA TEDUNG
+01B3C	BALINESE VOWEL SIGN LA LENGA
+01B3D	BALINESE VOWEL SIGN LA LENGA TEDUNG
+01B3E	BALINESE VOWEL SIGN TALING
+01B3F	BALINESE VOWEL SIGN TALING REPA
+01B40	BALINESE VOWEL SIGN TALING TEDUNG
+01B41	BALINESE VOWEL SIGN TALING REPA TEDUNG
+01B42	BALINESE VOWEL SIGN PEPET
+01B43	BALINESE VOWEL SIGN PEPET TEDUNG
+01B44	BALINESE ADEG ADEG
+01B45	BALINESE LETTER KAF SASAK
+01B46	BALINESE LETTER KHOT SASAK
+01B47	BALINESE LETTER TZIR SASAK
+01B48	BALINESE LETTER EF SASAK
+01B49	BALINESE LETTER VE SASAK
+01B4A	BALINESE LETTER ZAL SASAK
+01B4B	BALINESE LETTER ASYURA SASAK
+01B50	BALINESE DIGIT ZERO
+01B51	BALINESE DIGIT ONE
+01B52	BALINESE DIGIT TWO
+01B53	BALINESE DIGIT THREE
+01B54	BALINESE DIGIT FOUR
+01B55	BALINESE DIGIT FIVE
+01B56	BALINESE DIGIT SIX
+01B57	BALINESE DIGIT SEVEN
+01B58	BALINESE DIGIT EIGHT
+01B59	BALINESE DIGIT NINE
+01B5A	BALINESE PANTI
+01B5B	BALINESE PAMADA
+01B5C	BALINESE WINDU
+01B5D	BALINESE CARIK PAMUNGKAH
+01B5E	BALINESE CARIK SIKI
+01B5F	BALINESE CARIK PAREREN
+01B60	BALINESE PAMENENG
+01B61	BALINESE MUSICAL SYMBOL DONG
+01B62	BALINESE MUSICAL SYMBOL DENG
+01B63	BALINESE MUSICAL SYMBOL DUNG
+01B64	BALINESE MUSICAL SYMBOL DANG
+01B65	BALINESE MUSICAL SYMBOL DANG SURANG
+01B66	BALINESE MUSICAL SYMBOL DING
+01B67	BALINESE MUSICAL SYMBOL DAENG
+01B68	BALINESE MUSICAL SYMBOL DEUNG
+01B69	BALINESE MUSICAL SYMBOL DAING
+01B6A	BALINESE MUSICAL SYMBOL DANG GEDE
+01B6B	BALINESE MUSICAL SYMBOL COMBINING TEGEH
+01B6C	BALINESE MUSICAL SYMBOL COMBINING ENDEP
+01B6D	BALINESE MUSICAL SYMBOL COMBINING KEMPUL
+01B6E	BALINESE MUSICAL SYMBOL COMBINING KEMPLI
+01B6F	BALINESE MUSICAL SYMBOL COMBINING JEGOGAN
+01B70	BALINESE MUSICAL SYMBOL COMBINING KEMPUL WITH JEGOGAN
+01B71	BALINESE MUSICAL SYMBOL COMBINING KEMPLI WITH JEGOGAN
+01B72	BALINESE MUSICAL SYMBOL COMBINING BENDE
+01B73	BALINESE MUSICAL SYMBOL COMBINING GONG
+01B74	BALINESE MUSICAL SYMBOL RIGHT-HAND OPEN DUG
+01B75	BALINESE MUSICAL SYMBOL RIGHT-HAND OPEN DAG
+01B76	BALINESE MUSICAL SYMBOL RIGHT-HAND CLOSED TUK
+01B77	BALINESE MUSICAL SYMBOL RIGHT-HAND CLOSED TAK
+01B78	BALINESE MUSICAL SYMBOL LEFT-HAND OPEN PANG
+01B79	BALINESE MUSICAL SYMBOL LEFT-HAND OPEN PUNG
+01B7A	BALINESE MUSICAL SYMBOL LEFT-HAND CLOSED PLAK
+01B7B	BALINESE MUSICAL SYMBOL LEFT-HAND CLOSED PLUK
+01B7C	BALINESE MUSICAL SYMBOL LEFT-HAND OPEN PING
+01B80	SUNDANESE SIGN PANYECEK
+01B81	SUNDANESE SIGN PANGLAYAR
+01B82	SUNDANESE SIGN PANGWISAD
+01B83	SUNDANESE LETTER A
+01B84	SUNDANESE LETTER I
+01B85	SUNDANESE LETTER U
+01B86	SUNDANESE LETTER AE
+01B87	SUNDANESE LETTER O
+01B88	SUNDANESE LETTER E
+01B89	SUNDANESE LETTER EU
+01B8A	SUNDANESE LETTER KA
+01B8B	SUNDANESE LETTER QA
+01B8C	SUNDANESE LETTER GA
+01B8D	SUNDANESE LETTER NGA
+01B8E	SUNDANESE LETTER CA
+01B8F	SUNDANESE LETTER JA
+01B90	SUNDANESE LETTER ZA
+01B91	SUNDANESE LETTER NYA
+01B92	SUNDANESE LETTER TA
+01B93	SUNDANESE LETTER DA
+01B94	SUNDANESE LETTER NA
+01B95	SUNDANESE LETTER PA
+01B96	SUNDANESE LETTER FA
+01B97	SUNDANESE LETTER VA
+01B98	SUNDANESE LETTER BA
+01B99	SUNDANESE LETTER MA
+01B9A	SUNDANESE LETTER YA
+01B9B	SUNDANESE LETTER RA
+01B9C	SUNDANESE LETTER LA
+01B9D	SUNDANESE LETTER WA
+01B9E	SUNDANESE LETTER SA
+01B9F	SUNDANESE LETTER XA
+01BA0	SUNDANESE LETTER HA
+01BA1	SUNDANESE CONSONANT SIGN PAMINGKAL
+01BA2	SUNDANESE CONSONANT SIGN PANYAKRA
+01BA3	SUNDANESE CONSONANT SIGN PANYIKU
+01BA4	SUNDANESE VOWEL SIGN PANGHULU
+01BA5	SUNDANESE VOWEL SIGN PANYUKU
+01BA6	SUNDANESE VOWEL SIGN PANAELAENG
+01BA7	SUNDANESE VOWEL SIGN PANOLONG
+01BA8	SUNDANESE VOWEL SIGN PAMEPET
+01BA9	SUNDANESE VOWEL SIGN PANEULEUNG
+01BAA	SUNDANESE SIGN PAMAAEH
+01BAB	SUNDANESE SIGN VIRAMA
+01BAC	SUNDANESE CONSONANT SIGN PASANGAN MA
+01BAD	SUNDANESE CONSONANT SIGN PASANGAN WA
+01BAE	SUNDANESE LETTER KHA
+01BAF	SUNDANESE LETTER SYA
+01BB0	SUNDANESE DIGIT ZERO
+01BB1	SUNDANESE DIGIT ONE
+01BB2	SUNDANESE DIGIT TWO
+01BB3	SUNDANESE DIGIT THREE
+01BB4	SUNDANESE DIGIT FOUR
+01BB5	SUNDANESE DIGIT FIVE
+01BB6	SUNDANESE DIGIT SIX
+01BB7	SUNDANESE DIGIT SEVEN
+01BB8	SUNDANESE DIGIT EIGHT
+01BB9	SUNDANESE DIGIT NINE
+01BBA	SUNDANESE AVAGRAHA
+01BBB	SUNDANESE LETTER REU
+01BBC	SUNDANESE LETTER LEU
+01BBD	SUNDANESE LETTER BHA
+01BBE	SUNDANESE LETTER FINAL K
+01BBF	SUNDANESE LETTER FINAL M
+01BC0	BATAK LETTER A
+01BC1	BATAK LETTER SIMALUNGUN A
+01BC2	BATAK LETTER HA
+01BC3	BATAK LETTER SIMALUNGUN HA
+01BC4	BATAK LETTER MANDAILING HA
+01BC5	BATAK LETTER BA
+01BC6	BATAK LETTER KARO BA
+01BC7	BATAK LETTER PA
+01BC8	BATAK LETTER SIMALUNGUN PA
+01BC9	BATAK LETTER NA
+01BCA	BATAK LETTER MANDAILING NA
+01BCB	BATAK LETTER WA
+01BCC	BATAK LETTER SIMALUNGUN WA
+01BCD	BATAK LETTER PAKPAK WA
+01BCE	BATAK LETTER GA
+01BCF	BATAK LETTER SIMALUNGUN GA
+01BD0	BATAK LETTER JA
+01BD1	BATAK LETTER DA
+01BD2	BATAK LETTER RA
+01BD3	BATAK LETTER SIMALUNGUN RA
+01BD4	BATAK LETTER MA
+01BD5	BATAK LETTER SIMALUNGUN MA
+01BD6	BATAK LETTER SOUTHERN TA
+01BD7	BATAK LETTER NORTHERN TA
+01BD8	BATAK LETTER SA
+01BD9	BATAK LETTER SIMALUNGUN SA
+01BDA	BATAK LETTER MANDAILING SA
+01BDB	BATAK LETTER YA
+01BDC	BATAK LETTER SIMALUNGUN YA
+01BDD	BATAK LETTER NGA
+01BDE	BATAK LETTER LA
+01BDF	BATAK LETTER SIMALUNGUN LA
+01BE0	BATAK LETTER NYA
+01BE1	BATAK LETTER CA
+01BE2	BATAK LETTER NDA
+01BE3	BATAK LETTER MBA
+01BE4	BATAK LETTER I
+01BE5	BATAK LETTER U
+01BE6	BATAK SIGN TOMPI
+01BE7	BATAK VOWEL SIGN E
+01BE8	BATAK VOWEL SIGN PAKPAK E
+01BE9	BATAK VOWEL SIGN EE
+01BEA	BATAK VOWEL SIGN I
+01BEB	BATAK VOWEL SIGN KARO I
+01BEC	BATAK VOWEL SIGN O
+01BED	BATAK VOWEL SIGN KARO O
+01BEE	BATAK VOWEL SIGN U
+01BEF	BATAK VOWEL SIGN U FOR SIMALUNGUN SA
+01BF0	BATAK CONSONANT SIGN NG
+01BF1	BATAK CONSONANT SIGN H
+01BF2	BATAK PANGOLAT
+01BF3	BATAK PANONGONAN
+01BFC	BATAK SYMBOL BINDU NA METEK
+01BFD	BATAK SYMBOL BINDU PINARBORAS
+01BFE	BATAK SYMBOL BINDU JUDUL
+01BFF	BATAK SYMBOL BINDU PANGOLAT
+01C00	LEPCHA LETTER KA
+01C01	LEPCHA LETTER KLA
+01C02	LEPCHA LETTER KHA
+01C03	LEPCHA LETTER GA
+01C04	LEPCHA LETTER GLA
+01C05	LEPCHA LETTER NGA
+01C06	LEPCHA LETTER CA
+01C07	LEPCHA LETTER CHA
+01C08	LEPCHA LETTER JA
+01C09	LEPCHA LETTER NYA
+01C0A	LEPCHA LETTER TA
+01C0B	LEPCHA LETTER THA
+01C0C	LEPCHA LETTER DA
+01C0D	LEPCHA LETTER NA
+01C0E	LEPCHA LETTER PA
+01C0F	LEPCHA LETTER PLA
+01C10	LEPCHA LETTER PHA
+01C11	LEPCHA LETTER FA
+01C12	LEPCHA LETTER FLA
+01C13	LEPCHA LETTER BA
+01C14	LEPCHA LETTER BLA
+01C15	LEPCHA LETTER MA
+01C16	LEPCHA LETTER MLA
+01C17	LEPCHA LETTER TSA
+01C18	LEPCHA LETTER TSHA
+01C19	LEPCHA LETTER DZA
+01C1A	LEPCHA LETTER YA
+01C1B	LEPCHA LETTER RA
+01C1C	LEPCHA LETTER LA
+01C1D	LEPCHA LETTER HA
+01C1E	LEPCHA LETTER HLA
+01C1F	LEPCHA LETTER VA
+01C20	LEPCHA LETTER SA
+01C21	LEPCHA LETTER SHA
+01C22	LEPCHA LETTER WA
+01C23	LEPCHA LETTER A
+01C24	LEPCHA SUBJOINED LETTER YA
+01C25	LEPCHA SUBJOINED LETTER RA
+01C26	LEPCHA VOWEL SIGN AA
+01C27	LEPCHA VOWEL SIGN I
+01C28	LEPCHA VOWEL SIGN O
+01C29	LEPCHA VOWEL SIGN OO
+01C2A	LEPCHA VOWEL SIGN U
+01C2B	LEPCHA VOWEL SIGN UU
+01C2C	LEPCHA VOWEL SIGN E
+01C2D	LEPCHA CONSONANT SIGN K
+01C2E	LEPCHA CONSONANT SIGN M
+01C2F	LEPCHA CONSONANT SIGN L
+01C30	LEPCHA CONSONANT SIGN N
+01C31	LEPCHA CONSONANT SIGN P
+01C32	LEPCHA CONSONANT SIGN R
+01C33	LEPCHA CONSONANT SIGN T
+01C34	LEPCHA CONSONANT SIGN NYIN-DO
+01C35	LEPCHA CONSONANT SIGN KANG
+01C36	LEPCHA SIGN RAN
+01C37	LEPCHA SIGN NUKTA
+01C3B	LEPCHA PUNCTUATION TA-ROL
+01C3C	LEPCHA PUNCTUATION NYET THYOOM TA-ROL
+01C3D	LEPCHA PUNCTUATION CER-WA
+01C3E	LEPCHA PUNCTUATION TSHOOK CER-WA
+01C3F	LEPCHA PUNCTUATION TSHOOK
+01C40	LEPCHA DIGIT ZERO
+01C41	LEPCHA DIGIT ONE
+01C42	LEPCHA DIGIT TWO
+01C43	LEPCHA DIGIT THREE
+01C44	LEPCHA DIGIT FOUR
+01C45	LEPCHA DIGIT FIVE
+01C46	LEPCHA DIGIT SIX
+01C47	LEPCHA DIGIT SEVEN
+01C48	LEPCHA DIGIT EIGHT
+01C49	LEPCHA DIGIT NINE
+01C4D	LEPCHA LETTER TTA
+01C4E	LEPCHA LETTER TTHA
+01C4F	LEPCHA LETTER DDA
+01C50	OL CHIKI DIGIT ZERO
+01C51	OL CHIKI DIGIT ONE
+01C52	OL CHIKI DIGIT TWO
+01C53	OL CHIKI DIGIT THREE
+01C54	OL CHIKI DIGIT FOUR
+01C55	OL CHIKI DIGIT FIVE
+01C56	OL CHIKI DIGIT SIX
+01C57	OL CHIKI DIGIT SEVEN
+01C58	OL CHIKI DIGIT EIGHT
+01C59	OL CHIKI DIGIT NINE
+01C5A	OL CHIKI LETTER LA
+01C5B	OL CHIKI LETTER AT
+01C5C	OL CHIKI LETTER AG
+01C5D	OL CHIKI LETTER ANG
+01C5E	OL CHIKI LETTER AL
+01C5F	OL CHIKI LETTER LAA
+01C60	OL CHIKI LETTER AAK
+01C61	OL CHIKI LETTER AAJ
+01C62	OL CHIKI LETTER AAM
+01C63	OL CHIKI LETTER AAW
+01C64	OL CHIKI LETTER LI
+01C65	OL CHIKI LETTER IS
+01C66	OL CHIKI LETTER IH
+01C67	OL CHIKI LETTER INY
+01C68	OL CHIKI LETTER IR
+01C69	OL CHIKI LETTER LU
+01C6A	OL CHIKI LETTER UC
+01C6B	OL CHIKI LETTER UD
+01C6C	OL CHIKI LETTER UNN
+01C6D	OL CHIKI LETTER UY
+01C6E	OL CHIKI LETTER LE
+01C6F	OL CHIKI LETTER EP
+01C70	OL CHIKI LETTER EDD
+01C71	OL CHIKI LETTER EN
+01C72	OL CHIKI LETTER ERR
+01C73	OL CHIKI LETTER LO
+01C74	OL CHIKI LETTER OTT
+01C75	OL CHIKI LETTER OB
+01C76	OL CHIKI LETTER OV
+01C77	OL CHIKI LETTER OH
+01C78	OL CHIKI MU TTUDDAG
+01C79	OL CHIKI GAAHLAA TTUDDAAG
+01C7A	OL CHIKI MU-GAAHLAA TTUDDAAG
+01C7B	OL CHIKI RELAA
+01C7C	OL CHIKI PHAARKAA
+01C7D	OL CHIKI AHAD
+01C7E	OL CHIKI PUNCTUATION MUCAAD
+01C7F	OL CHIKI PUNCTUATION DOUBLE MUCAAD
+01CC0	SUNDANESE PUNCTUATION BINDU SURYA
+01CC1	SUNDANESE PUNCTUATION BINDU PANGLONG
+01CC2	SUNDANESE PUNCTUATION BINDU PURNAMA
+01CC3	SUNDANESE PUNCTUATION BINDU CAKRA
+01CC4	SUNDANESE PUNCTUATION BINDU LEU SATANGA
+01CC5	SUNDANESE PUNCTUATION BINDU KA SATANGA
+01CC6	SUNDANESE PUNCTUATION BINDU DA SATANGA
+01CC7	SUNDANESE PUNCTUATION BINDU BA SATANGA
+01CD0	VEDIC TONE KARSHANA
+01CD1	VEDIC TONE SHARA
+01CD2	VEDIC TONE PRENKHA
+01CD3	VEDIC SIGN NIHSHVASA
+01CD4	VEDIC SIGN YAJURVEDIC MIDLINE SVARITA
+01CD5	VEDIC TONE YAJURVEDIC AGGRAVATED INDEPENDENT SVARITA
+01CD6	VEDIC TONE YAJURVEDIC INDEPENDENT SVARITA
+01CD7	VEDIC TONE YAJURVEDIC KATHAKA INDEPENDENT SVARITA
+01CD8	VEDIC TONE CANDRA BELOW
+01CD9	VEDIC TONE YAJURVEDIC KATHAKA INDEPENDENT SVARITA SCHROEDER
+01CDA	VEDIC TONE DOUBLE SVARITA
+01CDB	VEDIC TONE TRIPLE SVARITA
+01CDC	VEDIC TONE KATHAKA ANUDATTA
+01CDD	VEDIC TONE DOT BELOW
+01CDE	VEDIC TONE TWO DOTS BELOW
+01CDF	VEDIC TONE THREE DOTS BELOW
+01CE0	VEDIC TONE RIGVEDIC KASHMIRI INDEPENDENT SVARITA
+01CE1	VEDIC TONE ATHARVAVEDIC INDEPENDENT SVARITA
+01CE2	VEDIC SIGN VISARGA SVARITA
+01CE3	VEDIC SIGN VISARGA UDATTA
+01CE4	VEDIC SIGN REVERSED VISARGA UDATTA
+01CE5	VEDIC SIGN VISARGA ANUDATTA
+01CE6	VEDIC SIGN REVERSED VISARGA ANUDATTA
+01CE7	VEDIC SIGN VISARGA UDATTA WITH TAIL
+01CE8	VEDIC SIGN VISARGA ANUDATTA WITH TAIL
+01CE9	VEDIC SIGN ANUSVARA ANTARGOMUKHA
+01CEA	VEDIC SIGN ANUSVARA BAHIRGOMUKHA
+01CEB	VEDIC SIGN ANUSVARA VAMAGOMUKHA
+01CEC	VEDIC SIGN ANUSVARA VAMAGOMUKHA WITH TAIL
+01CED	VEDIC SIGN TIRYAK
+01CEE	VEDIC SIGN HEXIFORM LONG ANUSVARA
+01CEF	VEDIC SIGN LONG ANUSVARA
+01CF0	VEDIC SIGN RTHANG LONG ANUSVARA
+01CF1	VEDIC SIGN ANUSVARA UBHAYATO MUKHA
+01CF2	VEDIC SIGN ARDHAVISARGA
+01CF3	VEDIC SIGN ROTATED ARDHAVISARGA
+01CF4	VEDIC TONE CANDRA ABOVE
+01CF5	VEDIC SIGN JIHVAMULIYA
+01CF6	VEDIC SIGN UPADHMANIYA
+01CF8	VEDIC TONE RING ABOVE
+01CF9	VEDIC TONE DOUBLE RING ABOVE
+01D00	LATIN LETTER SMALL CAPITAL A
+01D01	LATIN LETTER SMALL CAPITAL AE
+01D02	LATIN SMALL LETTER TURNED AE
+01D03	LATIN LETTER SMALL CAPITAL BARRED B
+01D04	LATIN LETTER SMALL CAPITAL C
+01D05	LATIN LETTER SMALL CAPITAL D
+01D06	LATIN LETTER SMALL CAPITAL ETH
+01D07	LATIN LETTER SMALL CAPITAL E
+01D08	LATIN SMALL LETTER TURNED OPEN E
+01D09	LATIN SMALL LETTER TURNED I
+01D0A	LATIN LETTER SMALL CAPITAL J
+01D0B	LATIN LETTER SMALL CAPITAL K
+01D0C	LATIN LETTER SMALL CAPITAL L WITH STROKE
+01D0D	LATIN LETTER SMALL CAPITAL M
+01D0E	LATIN LETTER SMALL CAPITAL REVERSED N
+01D0F	LATIN LETTER SMALL CAPITAL O
+01D10	LATIN LETTER SMALL CAPITAL OPEN O
+01D11	LATIN SMALL LETTER SIDEWAYS O
+01D12	LATIN SMALL LETTER SIDEWAYS OPEN O
+01D13	LATIN SMALL LETTER SIDEWAYS O WITH STROKE
+01D14	LATIN SMALL LETTER TURNED OE
+01D15	LATIN LETTER SMALL CAPITAL OU
+01D16	LATIN SMALL LETTER TOP HALF O
+01D17	LATIN SMALL LETTER BOTTOM HALF O
+01D18	LATIN LETTER SMALL CAPITAL P
+01D19	LATIN LETTER SMALL CAPITAL REVERSED R
+01D1A	LATIN LETTER SMALL CAPITAL TURNED R
+01D1B	LATIN LETTER SMALL CAPITAL T
+01D1C	LATIN LETTER SMALL CAPITAL U
+01D1D	LATIN SMALL LETTER SIDEWAYS U
+01D1E	LATIN SMALL LETTER SIDEWAYS DIAERESIZED U
+01D1F	LATIN SMALL LETTER SIDEWAYS TURNED M
+01D20	LATIN LETTER SMALL CAPITAL V
+01D21	LATIN LETTER SMALL CAPITAL W
+01D22	LATIN LETTER SMALL CAPITAL Z
+01D23	LATIN LETTER SMALL CAPITAL EZH
+01D24	LATIN LETTER VOICED LARYNGEAL SPIRANT
+01D25	LATIN LETTER AIN
+01D26	GREEK LETTER SMALL CAPITAL GAMMA
+01D27	GREEK LETTER SMALL CAPITAL LAMDA
+01D28	GREEK LETTER SMALL CAPITAL PI
+01D29	GREEK LETTER SMALL CAPITAL RHO
+01D2A	GREEK LETTER SMALL CAPITAL PSI
+01D2B	CYRILLIC LETTER SMALL CAPITAL EL
+01D2C	MODIFIER LETTER CAPITAL A
+01D2D	MODIFIER LETTER CAPITAL AE
+01D2E	MODIFIER LETTER CAPITAL B
+01D2F	MODIFIER LETTER CAPITAL BARRED B
+01D30	MODIFIER LETTER CAPITAL D
+01D31	MODIFIER LETTER CAPITAL E
+01D32	MODIFIER LETTER CAPITAL REVERSED E
+01D33	MODIFIER LETTER CAPITAL G
+01D34	MODIFIER LETTER CAPITAL H
+01D35	MODIFIER LETTER CAPITAL I
+01D36	MODIFIER LETTER CAPITAL J
+01D37	MODIFIER LETTER CAPITAL K
+01D38	MODIFIER LETTER CAPITAL L
+01D39	MODIFIER LETTER CAPITAL M
+01D3A	MODIFIER LETTER CAPITAL N
+01D3B	MODIFIER LETTER CAPITAL REVERSED N
+01D3C	MODIFIER LETTER CAPITAL O
+01D3D	MODIFIER LETTER CAPITAL OU
+01D3E	MODIFIER LETTER CAPITAL P
+01D3F	MODIFIER LETTER CAPITAL R
+01D40	MODIFIER LETTER CAPITAL T
+01D41	MODIFIER LETTER CAPITAL U
+01D42	MODIFIER LETTER CAPITAL W
+01D43	MODIFIER LETTER SMALL A
+01D44	MODIFIER LETTER SMALL TURNED A
+01D45	MODIFIER LETTER SMALL ALPHA
+01D46	MODIFIER LETTER SMALL TURNED AE
+01D47	MODIFIER LETTER SMALL B
+01D48	MODIFIER LETTER SMALL D
+01D49	MODIFIER LETTER SMALL E
+01D4A	MODIFIER LETTER SMALL SCHWA
+01D4B	MODIFIER LETTER SMALL OPEN E
+01D4C	MODIFIER LETTER SMALL TURNED OPEN E
+01D4D	MODIFIER LETTER SMALL G
+01D4E	MODIFIER LETTER SMALL TURNED I
+01D4F	MODIFIER LETTER SMALL K
+01D50	MODIFIER LETTER SMALL M
+01D51	MODIFIER LETTER SMALL ENG
+01D52	MODIFIER LETTER SMALL O
+01D53	MODIFIER LETTER SMALL OPEN O
+01D54	MODIFIER LETTER SMALL TOP HALF O
+01D55	MODIFIER LETTER SMALL BOTTOM HALF O
+01D56	MODIFIER LETTER SMALL P
+01D57	MODIFIER LETTER SMALL T
+01D58	MODIFIER LETTER SMALL U
+01D59	MODIFIER LETTER SMALL SIDEWAYS U
+01D5A	MODIFIER LETTER SMALL TURNED M
+01D5B	MODIFIER LETTER SMALL V
+01D5C	MODIFIER LETTER SMALL AIN
+01D5D	MODIFIER LETTER SMALL BETA
+01D5E	MODIFIER LETTER SMALL GREEK GAMMA
+01D5F	MODIFIER LETTER SMALL DELTA
+01D60	MODIFIER LETTER SMALL GREEK PHI
+01D61	MODIFIER LETTER SMALL CHI
+01D62	LATIN SUBSCRIPT SMALL LETTER I
+01D63	LATIN SUBSCRIPT SMALL LETTER R
+01D64	LATIN SUBSCRIPT SMALL LETTER U
+01D65	LATIN SUBSCRIPT SMALL LETTER V
+01D66	GREEK SUBSCRIPT SMALL LETTER BETA
+01D67	GREEK SUBSCRIPT SMALL LETTER GAMMA
+01D68	GREEK SUBSCRIPT SMALL LETTER RHO
+01D69	GREEK SUBSCRIPT SMALL LETTER PHI
+01D6A	GREEK SUBSCRIPT SMALL LETTER CHI
+01D6B	LATIN SMALL LETTER UE
+01D6C	LATIN SMALL LETTER B WITH MIDDLE TILDE
+01D6D	LATIN SMALL LETTER D WITH MIDDLE TILDE
+01D6E	LATIN SMALL LETTER F WITH MIDDLE TILDE
+01D6F	LATIN SMALL LETTER M WITH MIDDLE TILDE
+01D70	LATIN SMALL LETTER N WITH MIDDLE TILDE
+01D71	LATIN SMALL LETTER P WITH MIDDLE TILDE
+01D72	LATIN SMALL LETTER R WITH MIDDLE TILDE
+01D73	LATIN SMALL LETTER R WITH FISHHOOK AND MIDDLE TILDE
+01D74	LATIN SMALL LETTER S WITH MIDDLE TILDE
+01D75	LATIN SMALL LETTER T WITH MIDDLE TILDE
+01D76	LATIN SMALL LETTER Z WITH MIDDLE TILDE
+01D77	LATIN SMALL LETTER TURNED G
+01D78	MODIFIER LETTER CYRILLIC EN
+01D79	LATIN SMALL LETTER INSULAR G
+01D7A	LATIN SMALL LETTER TH WITH STRIKETHROUGH
+01D7B	LATIN SMALL CAPITAL LETTER I WITH STROKE
+01D7C	LATIN SMALL LETTER IOTA WITH STROKE
+01D7D	LATIN SMALL LETTER P WITH STROKE
+01D7E	LATIN SMALL CAPITAL LETTER U WITH STROKE
+01D7F	LATIN SMALL LETTER UPSILON WITH STROKE
+01D80	LATIN SMALL LETTER B WITH PALATAL HOOK
+01D81	LATIN SMALL LETTER D WITH PALATAL HOOK
+01D82	LATIN SMALL LETTER F WITH PALATAL HOOK
+01D83	LATIN SMALL LETTER G WITH PALATAL HOOK
+01D84	LATIN SMALL LETTER K WITH PALATAL HOOK
+01D85	LATIN SMALL LETTER L WITH PALATAL HOOK
+01D86	LATIN SMALL LETTER M WITH PALATAL HOOK
+01D87	LATIN SMALL LETTER N WITH PALATAL HOOK
+01D88	LATIN SMALL LETTER P WITH PALATAL HOOK
+01D89	LATIN SMALL LETTER R WITH PALATAL HOOK
+01D8A	LATIN SMALL LETTER S WITH PALATAL HOOK
+01D8B	LATIN SMALL LETTER ESH WITH PALATAL HOOK
+01D8C	LATIN SMALL LETTER V WITH PALATAL HOOK
+01D8D	LATIN SMALL LETTER X WITH PALATAL HOOK
+01D8E	LATIN SMALL LETTER Z WITH PALATAL HOOK
+01D8F	LATIN SMALL LETTER A WITH RETROFLEX HOOK
+01D90	LATIN SMALL LETTER ALPHA WITH RETROFLEX HOOK
+01D91	LATIN SMALL LETTER D WITH HOOK AND TAIL
+01D92	LATIN SMALL LETTER E WITH RETROFLEX HOOK
+01D93	LATIN SMALL LETTER OPEN E WITH RETROFLEX HOOK
+01D94	LATIN SMALL LETTER REVERSED OPEN E WITH RETROFLEX HOOK
+01D95	LATIN SMALL LETTER SCHWA WITH RETROFLEX HOOK
+01D96	LATIN SMALL LETTER I WITH RETROFLEX HOOK
+01D97	LATIN SMALL LETTER OPEN O WITH RETROFLEX HOOK
+01D98	LATIN SMALL LETTER ESH WITH RETROFLEX HOOK
+01D99	LATIN SMALL LETTER U WITH RETROFLEX HOOK
+01D9A	LATIN SMALL LETTER EZH WITH RETROFLEX HOOK
+01D9B	MODIFIER LETTER SMALL TURNED ALPHA
+01D9C	MODIFIER LETTER SMALL C
+01D9D	MODIFIER LETTER SMALL C WITH CURL
+01D9E	MODIFIER LETTER SMALL ETH
+01D9F	MODIFIER LETTER SMALL REVERSED OPEN E
+01DA0	MODIFIER LETTER SMALL F
+01DA1	MODIFIER LETTER SMALL DOTLESS J WITH STROKE
+01DA2	MODIFIER LETTER SMALL SCRIPT G
+01DA3	MODIFIER LETTER SMALL TURNED H
+01DA4	MODIFIER LETTER SMALL I WITH STROKE
+01DA5	MODIFIER LETTER SMALL IOTA
+01DA6	MODIFIER LETTER SMALL CAPITAL I
+01DA7	MODIFIER LETTER SMALL CAPITAL I WITH STROKE
+01DA8	MODIFIER LETTER SMALL J WITH CROSSED-TAIL
+01DA9	MODIFIER LETTER SMALL L WITH RETROFLEX HOOK
+01DAA	MODIFIER LETTER SMALL L WITH PALATAL HOOK
+01DAB	MODIFIER LETTER SMALL CAPITAL L
+01DAC	MODIFIER LETTER SMALL M WITH HOOK
+01DAD	MODIFIER LETTER SMALL TURNED M WITH LONG LEG
+01DAE	MODIFIER LETTER SMALL N WITH LEFT HOOK
+01DAF	MODIFIER LETTER SMALL N WITH RETROFLEX HOOK
+01DB0	MODIFIER LETTER SMALL CAPITAL N
+01DB1	MODIFIER LETTER SMALL BARRED O
+01DB2	MODIFIER LETTER SMALL PHI
+01DB3	MODIFIER LETTER SMALL S WITH HOOK
+01DB4	MODIFIER LETTER SMALL ESH
+01DB5	MODIFIER LETTER SMALL T WITH PALATAL HOOK
+01DB6	MODIFIER LETTER SMALL U BAR
+01DB7	MODIFIER LETTER SMALL UPSILON
+01DB8	MODIFIER LETTER SMALL CAPITAL U
+01DB9	MODIFIER LETTER SMALL V WITH HOOK
+01DBA	MODIFIER LETTER SMALL TURNED V
+01DBB	MODIFIER LETTER SMALL Z
+01DBC	MODIFIER LETTER SMALL Z WITH RETROFLEX HOOK
+01DBD	MODIFIER LETTER SMALL Z WITH CURL
+01DBE	MODIFIER LETTER SMALL EZH
+01DBF	MODIFIER LETTER SMALL THETA
+01DC0	COMBINING DOTTED GRAVE ACCENT
+01DC1	COMBINING DOTTED ACUTE ACCENT
+01DC2	COMBINING SNAKE BELOW
+01DC3	COMBINING SUSPENSION MARK
+01DC4	COMBINING MACRON-ACUTE
+01DC5	COMBINING GRAVE-MACRON
+01DC6	COMBINING MACRON-GRAVE
+01DC7	COMBINING ACUTE-MACRON
+01DC8	COMBINING GRAVE-ACUTE-GRAVE
+01DC9	COMBINING ACUTE-GRAVE-ACUTE
+01DCA	COMBINING LATIN SMALL LETTER R BELOW
+01DCB	COMBINING BREVE-MACRON
+01DCC	COMBINING MACRON-BREVE
+01DCD	COMBINING DOUBLE CIRCUMFLEX ABOVE
+01DCE	COMBINING OGONEK ABOVE
+01DCF	COMBINING ZIGZAG BELOW
+01DD0	COMBINING IS BELOW
+01DD1	COMBINING UR ABOVE
+01DD2	COMBINING US ABOVE
+01DD3	COMBINING LATIN SMALL LETTER FLATTENED OPEN A ABOVE
+01DD4	COMBINING LATIN SMALL LETTER AE
+01DD5	COMBINING LATIN SMALL LETTER AO
+01DD6	COMBINING LATIN SMALL LETTER AV
+01DD7	COMBINING LATIN SMALL LETTER C CEDILLA
+01DD8	COMBINING LATIN SMALL LETTER INSULAR D
+01DD9	COMBINING LATIN SMALL LETTER ETH
+01DDA	COMBINING LATIN SMALL LETTER G
+01DDB	COMBINING LATIN LETTER SMALL CAPITAL G
+01DDC	COMBINING LATIN SMALL LETTER K
+01DDD	COMBINING LATIN SMALL LETTER L
+01DDE	COMBINING LATIN LETTER SMALL CAPITAL L
+01DDF	COMBINING LATIN LETTER SMALL CAPITAL M
+01DE0	COMBINING LATIN SMALL LETTER N
+01DE1	COMBINING LATIN LETTER SMALL CAPITAL N
+01DE2	COMBINING LATIN LETTER SMALL CAPITAL R
+01DE3	COMBINING LATIN SMALL LETTER R ROTUNDA
+01DE4	COMBINING LATIN SMALL LETTER S
+01DE5	COMBINING LATIN SMALL LETTER LONG S
+01DE6	COMBINING LATIN SMALL LETTER Z
+01DE7	COMBINING LATIN SMALL LETTER ALPHA
+01DE8	COMBINING LATIN SMALL LETTER B
+01DE9	COMBINING LATIN SMALL LETTER BETA
+01DEA	COMBINING LATIN SMALL LETTER SCHWA
+01DEB	COMBINING LATIN SMALL LETTER F
+01DEC	COMBINING LATIN SMALL LETTER L WITH DOUBLE MIDDLE TILDE
+01DED	COMBINING LATIN SMALL LETTER O WITH LIGHT CENTRALIZATION STROKE
+01DEE	COMBINING LATIN SMALL LETTER P
+01DEF	COMBINING LATIN SMALL LETTER ESH
+01DF0	COMBINING LATIN SMALL LETTER U WITH LIGHT CENTRALIZATION STROKE
+01DF1	COMBINING LATIN SMALL LETTER W
+01DF2	COMBINING LATIN SMALL LETTER A WITH DIAERESIS
+01DF3	COMBINING LATIN SMALL LETTER O WITH DIAERESIS
+01DF4	COMBINING LATIN SMALL LETTER U WITH DIAERESIS
+01DF5	COMBINING UP TACK ABOVE
+01DFC	COMBINING DOUBLE INVERTED BREVE BELOW
+01DFD	COMBINING ALMOST EQUAL TO BELOW
+01DFE	COMBINING LEFT ARROWHEAD ABOVE
+01DFF	COMBINING RIGHT ARROWHEAD AND DOWN ARROWHEAD BELOW
+01E00	LATIN CAPITAL LETTER A WITH RING BELOW
+01E01	LATIN SMALL LETTER A WITH RING BELOW
+01E02	LATIN CAPITAL LETTER B WITH DOT ABOVE
+01E03	LATIN SMALL LETTER B WITH DOT ABOVE
+01E04	LATIN CAPITAL LETTER B WITH DOT BELOW
+01E05	LATIN SMALL LETTER B WITH DOT BELOW
+01E06	LATIN CAPITAL LETTER B WITH LINE BELOW
+01E07	LATIN SMALL LETTER B WITH LINE BELOW
+01E08	LATIN CAPITAL LETTER C WITH CEDILLA AND ACUTE
+01E09	LATIN SMALL LETTER C WITH CEDILLA AND ACUTE
+01E0A	LATIN CAPITAL LETTER D WITH DOT ABOVE
+01E0B	LATIN SMALL LETTER D WITH DOT ABOVE
+01E0C	LATIN CAPITAL LETTER D WITH DOT BELOW
+01E0D	LATIN SMALL LETTER D WITH DOT BELOW
+01E0E	LATIN CAPITAL LETTER D WITH LINE BELOW
+01E0F	LATIN SMALL LETTER D WITH LINE BELOW
+01E10	LATIN CAPITAL LETTER D WITH CEDILLA
+01E11	LATIN SMALL LETTER D WITH CEDILLA
+01E12	LATIN CAPITAL LETTER D WITH CIRCUMFLEX BELOW
+01E13	LATIN SMALL LETTER D WITH CIRCUMFLEX BELOW
+01E14	LATIN CAPITAL LETTER E WITH MACRON AND GRAVE
+01E15	LATIN SMALL LETTER E WITH MACRON AND GRAVE
+01E16	LATIN CAPITAL LETTER E WITH MACRON AND ACUTE
+01E17	LATIN SMALL LETTER E WITH MACRON AND ACUTE
+01E18	LATIN CAPITAL LETTER E WITH CIRCUMFLEX BELOW
+01E19	LATIN SMALL LETTER E WITH CIRCUMFLEX BELOW
+01E1A	LATIN CAPITAL LETTER E WITH TILDE BELOW
+01E1B	LATIN SMALL LETTER E WITH TILDE BELOW
+01E1C	LATIN CAPITAL LETTER E WITH CEDILLA AND BREVE
+01E1D	LATIN SMALL LETTER E WITH CEDILLA AND BREVE
+01E1E	LATIN CAPITAL LETTER F WITH DOT ABOVE
+01E1F	LATIN SMALL LETTER F WITH DOT ABOVE
+01E20	LATIN CAPITAL LETTER G WITH MACRON
+01E21	LATIN SMALL LETTER G WITH MACRON
+01E22	LATIN CAPITAL LETTER H WITH DOT ABOVE
+01E23	LATIN SMALL LETTER H WITH DOT ABOVE
+01E24	LATIN CAPITAL LETTER H WITH DOT BELOW
+01E25	LATIN SMALL LETTER H WITH DOT BELOW
+01E26	LATIN CAPITAL LETTER H WITH DIAERESIS
+01E27	LATIN SMALL LETTER H WITH DIAERESIS
+01E28	LATIN CAPITAL LETTER H WITH CEDILLA
+01E29	LATIN SMALL LETTER H WITH CEDILLA
+01E2A	LATIN CAPITAL LETTER H WITH BREVE BELOW
+01E2B	LATIN SMALL LETTER H WITH BREVE BELOW
+01E2C	LATIN CAPITAL LETTER I WITH TILDE BELOW
+01E2D	LATIN SMALL LETTER I WITH TILDE BELOW
+01E2E	LATIN CAPITAL LETTER I WITH DIAERESIS AND ACUTE
+01E2F	LATIN SMALL LETTER I WITH DIAERESIS AND ACUTE
+01E30	LATIN CAPITAL LETTER K WITH ACUTE
+01E31	LATIN SMALL LETTER K WITH ACUTE
+01E32	LATIN CAPITAL LETTER K WITH DOT BELOW
+01E33	LATIN SMALL LETTER K WITH DOT BELOW
+01E34	LATIN CAPITAL LETTER K WITH LINE BELOW
+01E35	LATIN SMALL LETTER K WITH LINE BELOW
+01E36	LATIN CAPITAL LETTER L WITH DOT BELOW
+01E37	LATIN SMALL LETTER L WITH DOT BELOW
+01E38	LATIN CAPITAL LETTER L WITH DOT BELOW AND MACRON
+01E39	LATIN SMALL LETTER L WITH DOT BELOW AND MACRON
+01E3A	LATIN CAPITAL LETTER L WITH LINE BELOW
+01E3B	LATIN SMALL LETTER L WITH LINE BELOW
+01E3C	LATIN CAPITAL LETTER L WITH CIRCUMFLEX BELOW
+01E3D	LATIN SMALL LETTER L WITH CIRCUMFLEX BELOW
+01E3E	LATIN CAPITAL LETTER M WITH ACUTE
+01E3F	LATIN SMALL LETTER M WITH ACUTE
+01E40	LATIN CAPITAL LETTER M WITH DOT ABOVE
+01E41	LATIN SMALL LETTER M WITH DOT ABOVE
+01E42	LATIN CAPITAL LETTER M WITH DOT BELOW
+01E43	LATIN SMALL LETTER M WITH DOT BELOW
+01E44	LATIN CAPITAL LETTER N WITH DOT ABOVE
+01E45	LATIN SMALL LETTER N WITH DOT ABOVE
+01E46	LATIN CAPITAL LETTER N WITH DOT BELOW
+01E47	LATIN SMALL LETTER N WITH DOT BELOW
+01E48	LATIN CAPITAL LETTER N WITH LINE BELOW
+01E49	LATIN SMALL LETTER N WITH LINE BELOW
+01E4A	LATIN CAPITAL LETTER N WITH CIRCUMFLEX BELOW
+01E4B	LATIN SMALL LETTER N WITH CIRCUMFLEX BELOW
+01E4C	LATIN CAPITAL LETTER O WITH TILDE AND ACUTE
+01E4D	LATIN SMALL LETTER O WITH TILDE AND ACUTE
+01E4E	LATIN CAPITAL LETTER O WITH TILDE AND DIAERESIS
+01E4F	LATIN SMALL LETTER O WITH TILDE AND DIAERESIS
+01E50	LATIN CAPITAL LETTER O WITH MACRON AND GRAVE
+01E51	LATIN SMALL LETTER O WITH MACRON AND GRAVE
+01E52	LATIN CAPITAL LETTER O WITH MACRON AND ACUTE
+01E53	LATIN SMALL LETTER O WITH MACRON AND ACUTE
+01E54	LATIN CAPITAL LETTER P WITH ACUTE
+01E55	LATIN SMALL LETTER P WITH ACUTE
+01E56	LATIN CAPITAL LETTER P WITH DOT ABOVE
+01E57	LATIN SMALL LETTER P WITH DOT ABOVE
+01E58	LATIN CAPITAL LETTER R WITH DOT ABOVE
+01E59	LATIN SMALL LETTER R WITH DOT ABOVE
+01E5A	LATIN CAPITAL LETTER R WITH DOT BELOW
+01E5B	LATIN SMALL LETTER R WITH DOT BELOW
+01E5C	LATIN CAPITAL LETTER R WITH DOT BELOW AND MACRON
+01E5D	LATIN SMALL LETTER R WITH DOT BELOW AND MACRON
+01E5E	LATIN CAPITAL LETTER R WITH LINE BELOW
+01E5F	LATIN SMALL LETTER R WITH LINE BELOW
+01E60	LATIN CAPITAL LETTER S WITH DOT ABOVE
+01E61	LATIN SMALL LETTER S WITH DOT ABOVE
+01E62	LATIN CAPITAL LETTER S WITH DOT BELOW
+01E63	LATIN SMALL LETTER S WITH DOT BELOW
+01E64	LATIN CAPITAL LETTER S WITH ACUTE AND DOT ABOVE
+01E65	LATIN SMALL LETTER S WITH ACUTE AND DOT ABOVE
+01E66	LATIN CAPITAL LETTER S WITH CARON AND DOT ABOVE
+01E67	LATIN SMALL LETTER S WITH CARON AND DOT ABOVE
+01E68	LATIN CAPITAL LETTER S WITH DOT BELOW AND DOT ABOVE
+01E69	LATIN SMALL LETTER S WITH DOT BELOW AND DOT ABOVE
+01E6A	LATIN CAPITAL LETTER T WITH DOT ABOVE
+01E6B	LATIN SMALL LETTER T WITH DOT ABOVE
+01E6C	LATIN CAPITAL LETTER T WITH DOT BELOW
+01E6D	LATIN SMALL LETTER T WITH DOT BELOW
+01E6E	LATIN CAPITAL LETTER T WITH LINE BELOW
+01E6F	LATIN SMALL LETTER T WITH LINE BELOW
+01E70	LATIN CAPITAL LETTER T WITH CIRCUMFLEX BELOW
+01E71	LATIN SMALL LETTER T WITH CIRCUMFLEX BELOW
+01E72	LATIN CAPITAL LETTER U WITH DIAERESIS BELOW
+01E73	LATIN SMALL LETTER U WITH DIAERESIS BELOW
+01E74	LATIN CAPITAL LETTER U WITH TILDE BELOW
+01E75	LATIN SMALL LETTER U WITH TILDE BELOW
+01E76	LATIN CAPITAL LETTER U WITH CIRCUMFLEX BELOW
+01E77	LATIN SMALL LETTER U WITH CIRCUMFLEX BELOW
+01E78	LATIN CAPITAL LETTER U WITH TILDE AND ACUTE
+01E79	LATIN SMALL LETTER U WITH TILDE AND ACUTE
+01E7A	LATIN CAPITAL LETTER U WITH MACRON AND DIAERESIS
+01E7B	LATIN SMALL LETTER U WITH MACRON AND DIAERESIS
+01E7C	LATIN CAPITAL LETTER V WITH TILDE
+01E7D	LATIN SMALL LETTER V WITH TILDE
+01E7E	LATIN CAPITAL LETTER V WITH DOT BELOW
+01E7F	LATIN SMALL LETTER V WITH DOT BELOW
+01E80	LATIN CAPITAL LETTER W WITH GRAVE
+01E81	LATIN SMALL LETTER W WITH GRAVE
+01E82	LATIN CAPITAL LETTER W WITH ACUTE
+01E83	LATIN SMALL LETTER W WITH ACUTE
+01E84	LATIN CAPITAL LETTER W WITH DIAERESIS
+01E85	LATIN SMALL LETTER W WITH DIAERESIS
+01E86	LATIN CAPITAL LETTER W WITH DOT ABOVE
+01E87	LATIN SMALL LETTER W WITH DOT ABOVE
+01E88	LATIN CAPITAL LETTER W WITH DOT BELOW
+01E89	LATIN SMALL LETTER W WITH DOT BELOW
+01E8A	LATIN CAPITAL LETTER X WITH DOT ABOVE
+01E8B	LATIN SMALL LETTER X WITH DOT ABOVE
+01E8C	LATIN CAPITAL LETTER X WITH DIAERESIS
+01E8D	LATIN SMALL LETTER X WITH DIAERESIS
+01E8E	LATIN CAPITAL LETTER Y WITH DOT ABOVE
+01E8F	LATIN SMALL LETTER Y WITH DOT ABOVE
+01E90	LATIN CAPITAL LETTER Z WITH CIRCUMFLEX
+01E91	LATIN SMALL LETTER Z WITH CIRCUMFLEX
+01E92	LATIN CAPITAL LETTER Z WITH DOT BELOW
+01E93	LATIN SMALL LETTER Z WITH DOT BELOW
+01E94	LATIN CAPITAL LETTER Z WITH LINE BELOW
+01E95	LATIN SMALL LETTER Z WITH LINE BELOW
+01E96	LATIN SMALL LETTER H WITH LINE BELOW
+01E97	LATIN SMALL LETTER T WITH DIAERESIS
+01E98	LATIN SMALL LETTER W WITH RING ABOVE
+01E99	LATIN SMALL LETTER Y WITH RING ABOVE
+01E9A	LATIN SMALL LETTER A WITH RIGHT HALF RING
+01E9B	LATIN SMALL LETTER LONG S WITH DOT ABOVE
+01E9C	LATIN SMALL LETTER LONG S WITH DIAGONAL STROKE
+01E9D	LATIN SMALL LETTER LONG S WITH HIGH STROKE
+01E9E	LATIN CAPITAL LETTER SHARP S
+01E9F	LATIN SMALL LETTER DELTA
+01EA0	LATIN CAPITAL LETTER A WITH DOT BELOW
+01EA1	LATIN SMALL LETTER A WITH DOT BELOW
+01EA2	LATIN CAPITAL LETTER A WITH HOOK ABOVE
+01EA3	LATIN SMALL LETTER A WITH HOOK ABOVE
+01EA4	LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND ACUTE
+01EA5	LATIN SMALL LETTER A WITH CIRCUMFLEX AND ACUTE
+01EA6	LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND GRAVE
+01EA7	LATIN SMALL LETTER A WITH CIRCUMFLEX AND GRAVE
+01EA8	LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND HOOK ABOVE
+01EA9	LATIN SMALL LETTER A WITH CIRCUMFLEX AND HOOK ABOVE
+01EAA	LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND TILDE
+01EAB	LATIN SMALL LETTER A WITH CIRCUMFLEX AND TILDE
+01EAC	LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND DOT BELOW
+01EAD	LATIN SMALL LETTER A WITH CIRCUMFLEX AND DOT BELOW
+01EAE	LATIN CAPITAL LETTER A WITH BREVE AND ACUTE
+01EAF	LATIN SMALL LETTER A WITH BREVE AND ACUTE
+01EB0	LATIN CAPITAL LETTER A WITH BREVE AND GRAVE
+01EB1	LATIN SMALL LETTER A WITH BREVE AND GRAVE
+01EB2	LATIN CAPITAL LETTER A WITH BREVE AND HOOK ABOVE
+01EB3	LATIN SMALL LETTER A WITH BREVE AND HOOK ABOVE
+01EB4	LATIN CAPITAL LETTER A WITH BREVE AND TILDE
+01EB5	LATIN SMALL LETTER A WITH BREVE AND TILDE
+01EB6	LATIN CAPITAL LETTER A WITH BREVE AND DOT BELOW
+01EB7	LATIN SMALL LETTER A WITH BREVE AND DOT BELOW
+01EB8	LATIN CAPITAL LETTER E WITH DOT BELOW
+01EB9	LATIN SMALL LETTER E WITH DOT BELOW
+01EBA	LATIN CAPITAL LETTER E WITH HOOK ABOVE
+01EBB	LATIN SMALL LETTER E WITH HOOK ABOVE
+01EBC	LATIN CAPITAL LETTER E WITH TILDE
+01EBD	LATIN SMALL LETTER E WITH TILDE
+01EBE	LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND ACUTE
+01EBF	LATIN SMALL LETTER E WITH CIRCUMFLEX AND ACUTE
+01EC0	LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND GRAVE
+01EC1	LATIN SMALL LETTER E WITH CIRCUMFLEX AND GRAVE
+01EC2	LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND HOOK ABOVE
+01EC3	LATIN SMALL LETTER E WITH CIRCUMFLEX AND HOOK ABOVE
+01EC4	LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND TILDE
+01EC5	LATIN SMALL LETTER E WITH CIRCUMFLEX AND TILDE
+01EC6	LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND DOT BELOW
+01EC7	LATIN SMALL LETTER E WITH CIRCUMFLEX AND DOT BELOW
+01EC8	LATIN CAPITAL LETTER I WITH HOOK ABOVE
+01EC9	LATIN SMALL LETTER I WITH HOOK ABOVE
+01ECA	LATIN CAPITAL LETTER I WITH DOT BELOW
+01ECB	LATIN SMALL LETTER I WITH DOT BELOW
+01ECC	LATIN CAPITAL LETTER O WITH DOT BELOW
+01ECD	LATIN SMALL LETTER O WITH DOT BELOW
+01ECE	LATIN CAPITAL LETTER O WITH HOOK ABOVE
+01ECF	LATIN SMALL LETTER O WITH HOOK ABOVE
+01ED0	LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND ACUTE
+01ED1	LATIN SMALL LETTER O WITH CIRCUMFLEX AND ACUTE
+01ED2	LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND GRAVE
+01ED3	LATIN SMALL LETTER O WITH CIRCUMFLEX AND GRAVE
+01ED4	LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND HOOK ABOVE
+01ED5	LATIN SMALL LETTER O WITH CIRCUMFLEX AND HOOK ABOVE
+01ED6	LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND TILDE
+01ED7	LATIN SMALL LETTER O WITH CIRCUMFLEX AND TILDE
+01ED8	LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND DOT BELOW
+01ED9	LATIN SMALL LETTER O WITH CIRCUMFLEX AND DOT BELOW
+01EDA	LATIN CAPITAL LETTER O WITH HORN AND ACUTE
+01EDB	LATIN SMALL LETTER O WITH HORN AND ACUTE
+01EDC	LATIN CAPITAL LETTER O WITH HORN AND GRAVE
+01EDD	LATIN SMALL LETTER O WITH HORN AND GRAVE
+01EDE	LATIN CAPITAL LETTER O WITH HORN AND HOOK ABOVE
+01EDF	LATIN SMALL LETTER O WITH HORN AND HOOK ABOVE
+01EE0	LATIN CAPITAL LETTER O WITH HORN AND TILDE
+01EE1	LATIN SMALL LETTER O WITH HORN AND TILDE
+01EE2	LATIN CAPITAL LETTER O WITH HORN AND DOT BELOW
+01EE3	LATIN SMALL LETTER O WITH HORN AND DOT BELOW
+01EE4	LATIN CAPITAL LETTER U WITH DOT BELOW
+01EE5	LATIN SMALL LETTER U WITH DOT BELOW
+01EE6	LATIN CAPITAL LETTER U WITH HOOK ABOVE
+01EE7	LATIN SMALL LETTER U WITH HOOK ABOVE
+01EE8	LATIN CAPITAL LETTER U WITH HORN AND ACUTE
+01EE9	LATIN SMALL LETTER U WITH HORN AND ACUTE
+01EEA	LATIN CAPITAL LETTER U WITH HORN AND GRAVE
+01EEB	LATIN SMALL LETTER U WITH HORN AND GRAVE
+01EEC	LATIN CAPITAL LETTER U WITH HORN AND HOOK ABOVE
+01EED	LATIN SMALL LETTER U WITH HORN AND HOOK ABOVE
+01EEE	LATIN CAPITAL LETTER U WITH HORN AND TILDE
+01EEF	LATIN SMALL LETTER U WITH HORN AND TILDE
+01EF0	LATIN CAPITAL LETTER U WITH HORN AND DOT BELOW
+01EF1	LATIN SMALL LETTER U WITH HORN AND DOT BELOW
+01EF2	LATIN CAPITAL LETTER Y WITH GRAVE
+01EF3	LATIN SMALL LETTER Y WITH GRAVE
+01EF4	LATIN CAPITAL LETTER Y WITH DOT BELOW
+01EF5	LATIN SMALL LETTER Y WITH DOT BELOW
+01EF6	LATIN CAPITAL LETTER Y WITH HOOK ABOVE
+01EF7	LATIN SMALL LETTER Y WITH HOOK ABOVE
+01EF8	LATIN CAPITAL LETTER Y WITH TILDE
+01EF9	LATIN SMALL LETTER Y WITH TILDE
+01EFA	LATIN CAPITAL LETTER MIDDLE-WELSH LL
+01EFB	LATIN SMALL LETTER MIDDLE-WELSH LL
+01EFC	LATIN CAPITAL LETTER MIDDLE-WELSH V
+01EFD	LATIN SMALL LETTER MIDDLE-WELSH V
+01EFE	LATIN CAPITAL LETTER Y WITH LOOP
+01EFF	LATIN SMALL LETTER Y WITH LOOP
+01F00	GREEK SMALL LETTER ALPHA WITH PSILI
+01F01	GREEK SMALL LETTER ALPHA WITH DASIA
+01F02	GREEK SMALL LETTER ALPHA WITH PSILI AND VARIA
+01F03	GREEK SMALL LETTER ALPHA WITH DASIA AND VARIA
+01F04	GREEK SMALL LETTER ALPHA WITH PSILI AND OXIA
+01F05	GREEK SMALL LETTER ALPHA WITH DASIA AND OXIA
+01F06	GREEK SMALL LETTER ALPHA WITH PSILI AND PERISPOMENI
+01F07	GREEK SMALL LETTER ALPHA WITH DASIA AND PERISPOMENI
+01F08	GREEK CAPITAL LETTER ALPHA WITH PSILI
+01F09	GREEK CAPITAL LETTER ALPHA WITH DASIA
+01F0A	GREEK CAPITAL LETTER ALPHA WITH PSILI AND VARIA
+01F0B	GREEK CAPITAL LETTER ALPHA WITH DASIA AND VARIA
+01F0C	GREEK CAPITAL LETTER ALPHA WITH PSILI AND OXIA
+01F0D	GREEK CAPITAL LETTER ALPHA WITH DASIA AND OXIA
+01F0E	GREEK CAPITAL LETTER ALPHA WITH PSILI AND PERISPOMENI
+01F0F	GREEK CAPITAL LETTER ALPHA WITH DASIA AND PERISPOMENI
+01F10	GREEK SMALL LETTER EPSILON WITH PSILI
+01F11	GREEK SMALL LETTER EPSILON WITH DASIA
+01F12	GREEK SMALL LETTER EPSILON WITH PSILI AND VARIA
+01F13	GREEK SMALL LETTER EPSILON WITH DASIA AND VARIA
+01F14	GREEK SMALL LETTER EPSILON WITH PSILI AND OXIA
+01F15	GREEK SMALL LETTER EPSILON WITH DASIA AND OXIA
+01F18	GREEK CAPITAL LETTER EPSILON WITH PSILI
+01F19	GREEK CAPITAL LETTER EPSILON WITH DASIA
+01F1A	GREEK CAPITAL LETTER EPSILON WITH PSILI AND VARIA
+01F1B	GREEK CAPITAL LETTER EPSILON WITH DASIA AND VARIA
+01F1C	GREEK CAPITAL LETTER EPSILON WITH PSILI AND OXIA
+01F1D	GREEK CAPITAL LETTER EPSILON WITH DASIA AND OXIA
+01F20	GREEK SMALL LETTER ETA WITH PSILI
+01F21	GREEK SMALL LETTER ETA WITH DASIA
+01F22	GREEK SMALL LETTER ETA WITH PSILI AND VARIA
+01F23	GREEK SMALL LETTER ETA WITH DASIA AND VARIA
+01F24	GREEK SMALL LETTER ETA WITH PSILI AND OXIA
+01F25	GREEK SMALL LETTER ETA WITH DASIA AND OXIA
+01F26	GREEK SMALL LETTER ETA WITH PSILI AND PERISPOMENI
+01F27	GREEK SMALL LETTER ETA WITH DASIA AND PERISPOMENI
+01F28	GREEK CAPITAL LETTER ETA WITH PSILI
+01F29	GREEK CAPITAL LETTER ETA WITH DASIA
+01F2A	GREEK CAPITAL LETTER ETA WITH PSILI AND VARIA
+01F2B	GREEK CAPITAL LETTER ETA WITH DASIA AND VARIA
+01F2C	GREEK CAPITAL LETTER ETA WITH PSILI AND OXIA
+01F2D	GREEK CAPITAL LETTER ETA WITH DASIA AND OXIA
+01F2E	GREEK CAPITAL LETTER ETA WITH PSILI AND PERISPOMENI
+01F2F	GREEK CAPITAL LETTER ETA WITH DASIA AND PERISPOMENI
+01F30	GREEK SMALL LETTER IOTA WITH PSILI
+01F31	GREEK SMALL LETTER IOTA WITH DASIA
+01F32	GREEK SMALL LETTER IOTA WITH PSILI AND VARIA
+01F33	GREEK SMALL LETTER IOTA WITH DASIA AND VARIA
+01F34	GREEK SMALL LETTER IOTA WITH PSILI AND OXIA
+01F35	GREEK SMALL LETTER IOTA WITH DASIA AND OXIA
+01F36	GREEK SMALL LETTER IOTA WITH PSILI AND PERISPOMENI
+01F37	GREEK SMALL LETTER IOTA WITH DASIA AND PERISPOMENI
+01F38	GREEK CAPITAL LETTER IOTA WITH PSILI
+01F39	GREEK CAPITAL LETTER IOTA WITH DASIA
+01F3A	GREEK CAPITAL LETTER IOTA WITH PSILI AND VARIA
+01F3B	GREEK CAPITAL LETTER IOTA WITH DASIA AND VARIA
+01F3C	GREEK CAPITAL LETTER IOTA WITH PSILI AND OXIA
+01F3D	GREEK CAPITAL LETTER IOTA WITH DASIA AND OXIA
+01F3E	GREEK CAPITAL LETTER IOTA WITH PSILI AND PERISPOMENI
+01F3F	GREEK CAPITAL LETTER IOTA WITH DASIA AND PERISPOMENI
+01F40	GREEK SMALL LETTER OMICRON WITH PSILI
+01F41	GREEK SMALL LETTER OMICRON WITH DASIA
+01F42	GREEK SMALL LETTER OMICRON WITH PSILI AND VARIA
+01F43	GREEK SMALL LETTER OMICRON WITH DASIA AND VARIA
+01F44	GREEK SMALL LETTER OMICRON WITH PSILI AND OXIA
+01F45	GREEK SMALL LETTER OMICRON WITH DASIA AND OXIA
+01F48	GREEK CAPITAL LETTER OMICRON WITH PSILI
+01F49	GREEK CAPITAL LETTER OMICRON WITH DASIA
+01F4A	GREEK CAPITAL LETTER OMICRON WITH PSILI AND VARIA
+01F4B	GREEK CAPITAL LETTER OMICRON WITH DASIA AND VARIA
+01F4C	GREEK CAPITAL LETTER OMICRON WITH PSILI AND OXIA
+01F4D	GREEK CAPITAL LETTER OMICRON WITH DASIA AND OXIA
+01F50	GREEK SMALL LETTER UPSILON WITH PSILI
+01F51	GREEK SMALL LETTER UPSILON WITH DASIA
+01F52	GREEK SMALL LETTER UPSILON WITH PSILI AND VARIA
+01F53	GREEK SMALL LETTER UPSILON WITH DASIA AND VARIA
+01F54	GREEK SMALL LETTER UPSILON WITH PSILI AND OXIA
+01F55	GREEK SMALL LETTER UPSILON WITH DASIA AND OXIA
+01F56	GREEK SMALL LETTER UPSILON WITH PSILI AND PERISPOMENI
+01F57	GREEK SMALL LETTER UPSILON WITH DASIA AND PERISPOMENI
+01F59	GREEK CAPITAL LETTER UPSILON WITH DASIA
+01F5B	GREEK CAPITAL LETTER UPSILON WITH DASIA AND VARIA
+01F5D	GREEK CAPITAL LETTER UPSILON WITH DASIA AND OXIA
+01F5F	GREEK CAPITAL LETTER UPSILON WITH DASIA AND PERISPOMENI
+01F60	GREEK SMALL LETTER OMEGA WITH PSILI
+01F61	GREEK SMALL LETTER OMEGA WITH DASIA
+01F62	GREEK SMALL LETTER OMEGA WITH PSILI AND VARIA
+01F63	GREEK SMALL LETTER OMEGA WITH DASIA AND VARIA
+01F64	GREEK SMALL LETTER OMEGA WITH PSILI AND OXIA
+01F65	GREEK SMALL LETTER OMEGA WITH DASIA AND OXIA
+01F66	GREEK SMALL LETTER OMEGA WITH PSILI AND PERISPOMENI
+01F67	GREEK SMALL LETTER OMEGA WITH DASIA AND PERISPOMENI
+01F68	GREEK CAPITAL LETTER OMEGA WITH PSILI
+01F69	GREEK CAPITAL LETTER OMEGA WITH DASIA
+01F6A	GREEK CAPITAL LETTER OMEGA WITH PSILI AND VARIA
+01F6B	GREEK CAPITAL LETTER OMEGA WITH DASIA AND VARIA
+01F6C	GREEK CAPITAL LETTER OMEGA WITH PSILI AND OXIA
+01F6D	GREEK CAPITAL LETTER OMEGA WITH DASIA AND OXIA
+01F6E	GREEK CAPITAL LETTER OMEGA WITH PSILI AND PERISPOMENI
+01F6F	GREEK CAPITAL LETTER OMEGA WITH DASIA AND PERISPOMENI
+01F70	GREEK SMALL LETTER ALPHA WITH VARIA
+01F71	GREEK SMALL LETTER ALPHA WITH OXIA
+01F72	GREEK SMALL LETTER EPSILON WITH VARIA
+01F73	GREEK SMALL LETTER EPSILON WITH OXIA
+01F74	GREEK SMALL LETTER ETA WITH VARIA
+01F75	GREEK SMALL LETTER ETA WITH OXIA
+01F76	GREEK SMALL LETTER IOTA WITH VARIA
+01F77	GREEK SMALL LETTER IOTA WITH OXIA
+01F78	GREEK SMALL LETTER OMICRON WITH VARIA
+01F79	GREEK SMALL LETTER OMICRON WITH OXIA
+01F7A	GREEK SMALL LETTER UPSILON WITH VARIA
+01F7B	GREEK SMALL LETTER UPSILON WITH OXIA
+01F7C	GREEK SMALL LETTER OMEGA WITH VARIA
+01F7D	GREEK SMALL LETTER OMEGA WITH OXIA
+01F80	GREEK SMALL LETTER ALPHA WITH PSILI AND YPOGEGRAMMENI
+01F81	GREEK SMALL LETTER ALPHA WITH DASIA AND YPOGEGRAMMENI
+01F82	GREEK SMALL LETTER ALPHA WITH PSILI AND VARIA AND YPOGEGRAMMENI
+01F83	GREEK SMALL LETTER ALPHA WITH DASIA AND VARIA AND YPOGEGRAMMENI
+01F84	GREEK SMALL LETTER ALPHA WITH PSILI AND OXIA AND YPOGEGRAMMENI
+01F85	GREEK SMALL LETTER ALPHA WITH DASIA AND OXIA AND YPOGEGRAMMENI
+01F86	GREEK SMALL LETTER ALPHA WITH PSILI AND PERISPOMENI AND YPOGEGRAMMENI
+01F87	GREEK SMALL LETTER ALPHA WITH DASIA AND PERISPOMENI AND YPOGEGRAMMENI
+01F88	GREEK CAPITAL LETTER ALPHA WITH PSILI AND PROSGEGRAMMENI
+01F89	GREEK CAPITAL LETTER ALPHA WITH DASIA AND PROSGEGRAMMENI
+01F8A	GREEK CAPITAL LETTER ALPHA WITH PSILI AND VARIA AND PROSGEGRAMMENI
+01F8B	GREEK CAPITAL LETTER ALPHA WITH DASIA AND VARIA AND PROSGEGRAMMENI
+01F8C	GREEK CAPITAL LETTER ALPHA WITH PSILI AND OXIA AND PROSGEGRAMMENI
+01F8D	GREEK CAPITAL LETTER ALPHA WITH DASIA AND OXIA AND PROSGEGRAMMENI
+01F8E	GREEK CAPITAL LETTER ALPHA WITH PSILI AND PERISPOMENI AND PROSGEGRAMMENI
+01F8F	GREEK CAPITAL LETTER ALPHA WITH DASIA AND PERISPOMENI AND PROSGEGRAMMENI
+01F90	GREEK SMALL LETTER ETA WITH PSILI AND YPOGEGRAMMENI
+01F91	GREEK SMALL LETTER ETA WITH DASIA AND YPOGEGRAMMENI
+01F92	GREEK SMALL LETTER ETA WITH PSILI AND VARIA AND YPOGEGRAMMENI
+01F93	GREEK SMALL LETTER ETA WITH DASIA AND VARIA AND YPOGEGRAMMENI
+01F94	GREEK SMALL LETTER ETA WITH PSILI AND OXIA AND YPOGEGRAMMENI
+01F95	GREEK SMALL LETTER ETA WITH DASIA AND OXIA AND YPOGEGRAMMENI
+01F96	GREEK SMALL LETTER ETA WITH PSILI AND PERISPOMENI AND YPOGEGRAMMENI
+01F97	GREEK SMALL LETTER ETA WITH DASIA AND PERISPOMENI AND YPOGEGRAMMENI
+01F98	GREEK CAPITAL LETTER ETA WITH PSILI AND PROSGEGRAMMENI
+01F99	GREEK CAPITAL LETTER ETA WITH DASIA AND PROSGEGRAMMENI
+01F9A	GREEK CAPITAL LETTER ETA WITH PSILI AND VARIA AND PROSGEGRAMMENI
+01F9B	GREEK CAPITAL LETTER ETA WITH DASIA AND VARIA AND PROSGEGRAMMENI
+01F9C	GREEK CAPITAL LETTER ETA WITH PSILI AND OXIA AND PROSGEGRAMMENI
+01F9D	GREEK CAPITAL LETTER ETA WITH DASIA AND OXIA AND PROSGEGRAMMENI
+01F9E	GREEK CAPITAL LETTER ETA WITH PSILI AND PERISPOMENI AND PROSGEGRAMMENI
+01F9F	GREEK CAPITAL LETTER ETA WITH DASIA AND PERISPOMENI AND PROSGEGRAMMENI
+01FA0	GREEK SMALL LETTER OMEGA WITH PSILI AND YPOGEGRAMMENI
+01FA1	GREEK SMALL LETTER OMEGA WITH DASIA AND YPOGEGRAMMENI
+01FA2	GREEK SMALL LETTER OMEGA WITH PSILI AND VARIA AND YPOGEGRAMMENI
+01FA3	GREEK SMALL LETTER OMEGA WITH DASIA AND VARIA AND YPOGEGRAMMENI
+01FA4	GREEK SMALL LETTER OMEGA WITH PSILI AND OXIA AND YPOGEGRAMMENI
+01FA5	GREEK SMALL LETTER OMEGA WITH DASIA AND OXIA AND YPOGEGRAMMENI
+01FA6	GREEK SMALL LETTER OMEGA WITH PSILI AND PERISPOMENI AND YPOGEGRAMMENI
+01FA7	GREEK SMALL LETTER OMEGA WITH DASIA AND PERISPOMENI AND YPOGEGRAMMENI
+01FA8	GREEK CAPITAL LETTER OMEGA WITH PSILI AND PROSGEGRAMMENI
+01FA9	GREEK CAPITAL LETTER OMEGA WITH DASIA AND PROSGEGRAMMENI
+01FAA	GREEK CAPITAL LETTER OMEGA WITH PSILI AND VARIA AND PROSGEGRAMMENI
+01FAB	GREEK CAPITAL LETTER OMEGA WITH DASIA AND VARIA AND PROSGEGRAMMENI
+01FAC	GREEK CAPITAL LETTER OMEGA WITH PSILI AND OXIA AND PROSGEGRAMMENI
+01FAD	GREEK CAPITAL LETTER OMEGA WITH DASIA AND OXIA AND PROSGEGRAMMENI
+01FAE	GREEK CAPITAL LETTER OMEGA WITH PSILI AND PERISPOMENI AND PROSGEGRAMMENI
+01FAF	GREEK CAPITAL LETTER OMEGA WITH DASIA AND PERISPOMENI AND PROSGEGRAMMENI
+01FB0	GREEK SMALL LETTER ALPHA WITH VRACHY
+01FB1	GREEK SMALL LETTER ALPHA WITH MACRON
+01FB2	GREEK SMALL LETTER ALPHA WITH VARIA AND YPOGEGRAMMENI
+01FB3	GREEK SMALL LETTER ALPHA WITH YPOGEGRAMMENI
+01FB4	GREEK SMALL LETTER ALPHA WITH OXIA AND YPOGEGRAMMENI
+01FB6	GREEK SMALL LETTER ALPHA WITH PERISPOMENI
+01FB7	GREEK SMALL LETTER ALPHA WITH PERISPOMENI AND YPOGEGRAMMENI
+01FB8	GREEK CAPITAL LETTER ALPHA WITH VRACHY
+01FB9	GREEK CAPITAL LETTER ALPHA WITH MACRON
+01FBA	GREEK CAPITAL LETTER ALPHA WITH VARIA
+01FBB	GREEK CAPITAL LETTER ALPHA WITH OXIA
+01FBC	GREEK CAPITAL LETTER ALPHA WITH PROSGEGRAMMENI
+01FBD	GREEK KORONIS
+01FBE	GREEK PROSGEGRAMMENI
+01FBF	GREEK PSILI
+01FC0	GREEK PERISPOMENI
+01FC1	GREEK DIALYTIKA AND PERISPOMENI
+01FC2	GREEK SMALL LETTER ETA WITH VARIA AND YPOGEGRAMMENI
+01FC3	GREEK SMALL LETTER ETA WITH YPOGEGRAMMENI
+01FC4	GREEK SMALL LETTER ETA WITH OXIA AND YPOGEGRAMMENI
+01FC6	GREEK SMALL LETTER ETA WITH PERISPOMENI
+01FC7	GREEK SMALL LETTER ETA WITH PERISPOMENI AND YPOGEGRAMMENI
+01FC8	GREEK CAPITAL LETTER EPSILON WITH VARIA
+01FC9	GREEK CAPITAL LETTER EPSILON WITH OXIA
+01FCA	GREEK CAPITAL LETTER ETA WITH VARIA
+01FCB	GREEK CAPITAL LETTER ETA WITH OXIA
+01FCC	GREEK CAPITAL LETTER ETA WITH PROSGEGRAMMENI
+01FCD	GREEK PSILI AND VARIA
+01FCE	GREEK PSILI AND OXIA
+01FCF	GREEK PSILI AND PERISPOMENI
+01FD0	GREEK SMALL LETTER IOTA WITH VRACHY
+01FD1	GREEK SMALL LETTER IOTA WITH MACRON
+01FD2	GREEK SMALL LETTER IOTA WITH DIALYTIKA AND VARIA
+01FD3	GREEK SMALL LETTER IOTA WITH DIALYTIKA AND OXIA
+01FD6	GREEK SMALL LETTER IOTA WITH PERISPOMENI
+01FD7	GREEK SMALL LETTER IOTA WITH DIALYTIKA AND PERISPOMENI
+01FD8	GREEK CAPITAL LETTER IOTA WITH VRACHY
+01FD9	GREEK CAPITAL LETTER IOTA WITH MACRON
+01FDA	GREEK CAPITAL LETTER IOTA WITH VARIA
+01FDB	GREEK CAPITAL LETTER IOTA WITH OXIA
+01FDD	GREEK DASIA AND VARIA
+01FDE	GREEK DASIA AND OXIA
+01FDF	GREEK DASIA AND PERISPOMENI
+01FE0	GREEK SMALL LETTER UPSILON WITH VRACHY
+01FE1	GREEK SMALL LETTER UPSILON WITH MACRON
+01FE2	GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND VARIA
+01FE3	GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND OXIA
+01FE4	GREEK SMALL LETTER RHO WITH PSILI
+01FE5	GREEK SMALL LETTER RHO WITH DASIA
+01FE6	GREEK SMALL LETTER UPSILON WITH PERISPOMENI
+01FE7	GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND PERISPOMENI
+01FE8	GREEK CAPITAL LETTER UPSILON WITH VRACHY
+01FE9	GREEK CAPITAL LETTER UPSILON WITH MACRON
+01FEA	GREEK CAPITAL LETTER UPSILON WITH VARIA
+01FEB	GREEK CAPITAL LETTER UPSILON WITH OXIA
+01FEC	GREEK CAPITAL LETTER RHO WITH DASIA
+01FED	GREEK DIALYTIKA AND VARIA
+01FEE	GREEK DIALYTIKA AND OXIA
+01FEF	GREEK VARIA
+01FF2	GREEK SMALL LETTER OMEGA WITH VARIA AND YPOGEGRAMMENI
+01FF3	GREEK SMALL LETTER OMEGA WITH YPOGEGRAMMENI
+01FF4	GREEK SMALL LETTER OMEGA WITH OXIA AND YPOGEGRAMMENI
+01FF6	GREEK SMALL LETTER OMEGA WITH PERISPOMENI
+01FF7	GREEK SMALL LETTER OMEGA WITH PERISPOMENI AND YPOGEGRAMMENI
+01FF8	GREEK CAPITAL LETTER OMICRON WITH VARIA
+01FF9	GREEK CAPITAL LETTER OMICRON WITH OXIA
+01FFA	GREEK CAPITAL LETTER OMEGA WITH VARIA
+01FFB	GREEK CAPITAL LETTER OMEGA WITH OXIA
+01FFC	GREEK CAPITAL LETTER OMEGA WITH PROSGEGRAMMENI
+01FFD	GREEK OXIA
+01FFE	GREEK DASIA
+02000	EN QUAD
+02001	EM QUAD
+02002	EN SPACE
+02003	EM SPACE
+02004	THREE-PER-EM SPACE
+02005	FOUR-PER-EM SPACE
+02006	SIX-PER-EM SPACE
+02007	FIGURE SPACE
+02008	PUNCTUATION SPACE
+02009	THIN SPACE
+0200A	HAIR SPACE
+0200B	ZERO WIDTH SPACE
+0200B	ZWSP
+0200C	ZERO WIDTH NON-JOINER
+0200C	ZWNJ
+0200D	ZERO WIDTH JOINER
+0200D	ZWJ
+0200E	LEFT-TO-RIGHT MARK
+0200E	LRM
+0200F	RIGHT-TO-LEFT MARK
+0200F	RLM
+02010	HYPHEN
+02011	NON-BREAKING HYPHEN
+02012	FIGURE DASH
+02013	EN DASH
+02014	EM DASH
+02015	HORIZONTAL BAR
+02016	DOUBLE VERTICAL LINE
+02017	DOUBLE LOW LINE
+02018	LEFT SINGLE QUOTATION MARK
+02019	RIGHT SINGLE QUOTATION MARK
+0201A	SINGLE LOW-9 QUOTATION MARK
+0201B	SINGLE HIGH-REVERSED-9 QUOTATION MARK
+0201C	LEFT DOUBLE QUOTATION MARK
+0201D	RIGHT DOUBLE QUOTATION MARK
+0201E	DOUBLE LOW-9 QUOTATION MARK
+0201F	DOUBLE HIGH-REVERSED-9 QUOTATION MARK
+02020	DAGGER
+02021	DOUBLE DAGGER
+02022	BULLET
+02023	TRIANGULAR BULLET
+02024	ONE DOT LEADER
+02025	TWO DOT LEADER
+02026	HORIZONTAL ELLIPSIS
+02027	HYPHENATION POINT
+02028	LINE SEPARATOR
+02029	PARAGRAPH SEPARATOR
+0202A	LEFT-TO-RIGHT EMBEDDING
+0202A	LRE
+0202B	RIGHT-TO-LEFT EMBEDDING
+0202B	RLE
+0202C	POP DIRECTIONAL FORMATTING
+0202C	PDF
+0202D	LEFT-TO-RIGHT OVERRIDE
+0202D	LRO
+0202E	RIGHT-TO-LEFT OVERRIDE
+0202E	RLO
+0202F	NARROW NO-BREAK SPACE
+0202F	NNBSP
+02030	PER MILLE SIGN
+02031	PER TEN THOUSAND SIGN
+02032	PRIME
+02033	DOUBLE PRIME
+02034	TRIPLE PRIME
+02035	REVERSED PRIME
+02036	REVERSED DOUBLE PRIME
+02037	REVERSED TRIPLE PRIME
+02038	CARET
+02039	SINGLE LEFT-POINTING ANGLE QUOTATION MARK
+0203A	SINGLE RIGHT-POINTING ANGLE QUOTATION MARK
+0203B	REFERENCE MARK
+0203C	DOUBLE EXCLAMATION MARK
+0203D	INTERROBANG
+0203E	OVERLINE
+0203F	UNDERTIE
+02040	CHARACTER TIE
+02041	CARET INSERTION POINT
+02042	ASTERISM
+02043	HYPHEN BULLET
+02044	FRACTION SLASH
+02045	LEFT SQUARE BRACKET WITH QUILL
+02046	RIGHT SQUARE BRACKET WITH QUILL
+02047	DOUBLE QUESTION MARK
+02048	QUESTION EXCLAMATION MARK
+02049	EXCLAMATION QUESTION MARK
+0204A	TIRONIAN SIGN ET
+0204B	REVERSED PILCROW SIGN
+0204C	BLACK LEFTWARDS BULLET
+0204D	BLACK RIGHTWARDS BULLET
+0204E	LOW ASTERISK
+0204F	REVERSED SEMICOLON
+02050	CLOSE UP
+02051	TWO ASTERISKS ALIGNED VERTICALLY
+02052	COMMERCIAL MINUS SIGN
+02053	SWUNG DASH
+02054	INVERTED UNDERTIE
+02055	FLOWER PUNCTUATION MARK
+02056	THREE DOT PUNCTUATION
+02057	QUADRUPLE PRIME
+02058	FOUR DOT PUNCTUATION
+02059	FIVE DOT PUNCTUATION
+0205A	TWO DOT PUNCTUATION
+0205B	FOUR DOT MARK
+0205C	DOTTED CROSS
+0205D	TRICOLON
+0205E	VERTICAL FOUR DOTS
+0205F	MEDIUM MATHEMATICAL SPACE
+0205F	MMSP
+02060	WORD JOINER
+02060	WJ
+02061	FUNCTION APPLICATION
+02062	INVISIBLE TIMES
+02063	INVISIBLE SEPARATOR
+02064	INVISIBLE PLUS
+02066	LEFT-TO-RIGHT ISOLATE
+02066	LRI
+02067	RIGHT-TO-LEFT ISOLATE
+02067	RLI
+02068	FIRST STRONG ISOLATE
+02068	FSI
+02069	POP DIRECTIONAL ISOLATE
+02069	PDI
+0206A	INHIBIT SYMMETRIC SWAPPING
+0206B	ACTIVATE SYMMETRIC SWAPPING
+0206C	INHIBIT ARABIC FORM SHAPING
+0206D	ACTIVATE ARABIC FORM SHAPING
+0206E	NATIONAL DIGIT SHAPES
+0206F	NOMINAL DIGIT SHAPES
+02070	SUPERSCRIPT ZERO
+02071	SUPERSCRIPT LATIN SMALL LETTER I
+02074	SUPERSCRIPT FOUR
+02075	SUPERSCRIPT FIVE
+02076	SUPERSCRIPT SIX
+02077	SUPERSCRIPT SEVEN
+02078	SUPERSCRIPT EIGHT
+02079	SUPERSCRIPT NINE
+0207A	SUPERSCRIPT PLUS SIGN
+0207B	SUPERSCRIPT MINUS
+0207C	SUPERSCRIPT EQUALS SIGN
+0207D	SUPERSCRIPT LEFT PARENTHESIS
+0207E	SUPERSCRIPT RIGHT PARENTHESIS
+0207F	SUPERSCRIPT LATIN SMALL LETTER N
+02080	SUBSCRIPT ZERO
+02081	SUBSCRIPT ONE
+02082	SUBSCRIPT TWO
+02083	SUBSCRIPT THREE
+02084	SUBSCRIPT FOUR
+02085	SUBSCRIPT FIVE
+02086	SUBSCRIPT SIX
+02087	SUBSCRIPT SEVEN
+02088	SUBSCRIPT EIGHT
+02089	SUBSCRIPT NINE
+0208A	SUBSCRIPT PLUS SIGN
+0208B	SUBSCRIPT MINUS
+0208C	SUBSCRIPT EQUALS SIGN
+0208D	SUBSCRIPT LEFT PARENTHESIS
+0208E	SUBSCRIPT RIGHT PARENTHESIS
+02090	LATIN SUBSCRIPT SMALL LETTER A
+02091	LATIN SUBSCRIPT SMALL LETTER E
+02092	LATIN SUBSCRIPT SMALL LETTER O
+02093	LATIN SUBSCRIPT SMALL LETTER X
+02094	LATIN SUBSCRIPT SMALL LETTER SCHWA
+02095	LATIN SUBSCRIPT SMALL LETTER H
+02096	LATIN SUBSCRIPT SMALL LETTER K
+02097	LATIN SUBSCRIPT SMALL LETTER L
+02098	LATIN SUBSCRIPT SMALL LETTER M
+02099	LATIN SUBSCRIPT SMALL LETTER N
+0209A	LATIN SUBSCRIPT SMALL LETTER P
+0209B	LATIN SUBSCRIPT SMALL LETTER S
+0209C	LATIN SUBSCRIPT SMALL LETTER T
+020A0	EURO-CURRENCY SIGN
+020A1	COLON SIGN
+020A2	CRUZEIRO SIGN
+020A3	FRENCH FRANC SIGN
+020A4	LIRA SIGN
+020A5	MILL SIGN
+020A6	NAIRA SIGN
+020A7	PESETA SIGN
+020A8	RUPEE SIGN
+020A9	WON SIGN
+020AA	NEW SHEQEL SIGN
+020AB	DONG SIGN
+020AC	EURO SIGN
+020AD	KIP SIGN
+020AE	TUGRIK SIGN
+020AF	DRACHMA SIGN
+020B0	GERMAN PENNY SIGN
+020B1	PESO SIGN
+020B2	GUARANI SIGN
+020B3	AUSTRAL SIGN
+020B4	HRYVNIA SIGN
+020B5	CEDI SIGN
+020B6	LIVRE TOURNOIS SIGN
+020B7	SPESMILO SIGN
+020B8	TENGE SIGN
+020B9	INDIAN RUPEE SIGN
+020BA	TURKISH LIRA SIGN
+020BB	NORDIC MARK SIGN
+020BC	MANAT SIGN
+020BD	RUBLE SIGN
+020BE	LARI SIGN
+020D0	COMBINING LEFT HARPOON ABOVE
+020D1	COMBINING RIGHT HARPOON ABOVE
+020D2	COMBINING LONG VERTICAL LINE OVERLAY
+020D3	COMBINING SHORT VERTICAL LINE OVERLAY
+020D4	COMBINING ANTICLOCKWISE ARROW ABOVE
+020D5	COMBINING CLOCKWISE ARROW ABOVE
+020D6	COMBINING LEFT ARROW ABOVE
+020D7	COMBINING RIGHT ARROW ABOVE
+020D8	COMBINING RING OVERLAY
+020D9	COMBINING CLOCKWISE RING OVERLAY
+020DA	COMBINING ANTICLOCKWISE RING OVERLAY
+020DB	COMBINING THREE DOTS ABOVE
+020DC	COMBINING FOUR DOTS ABOVE
+020DD	COMBINING ENCLOSING CIRCLE
+020DE	COMBINING ENCLOSING SQUARE
+020DF	COMBINING ENCLOSING DIAMOND
+020E0	COMBINING ENCLOSING CIRCLE BACKSLASH
+020E1	COMBINING LEFT RIGHT ARROW ABOVE
+020E2	COMBINING ENCLOSING SCREEN
+020E3	COMBINING ENCLOSING KEYCAP
+020E4	COMBINING ENCLOSING UPWARD POINTING TRIANGLE
+020E5	COMBINING REVERSE SOLIDUS OVERLAY
+020E6	COMBINING DOUBLE VERTICAL STROKE OVERLAY
+020E7	COMBINING ANNUITY SYMBOL
+020E8	COMBINING TRIPLE UNDERDOT
+020E9	COMBINING WIDE BRIDGE ABOVE
+020EA	COMBINING LEFTWARDS ARROW OVERLAY
+020EB	COMBINING LONG DOUBLE SOLIDUS OVERLAY
+020EC	COMBINING RIGHTWARDS HARPOON WITH BARB DOWNWARDS
+020ED	COMBINING LEFTWARDS HARPOON WITH BARB DOWNWARDS
+020EE	COMBINING LEFT ARROW BELOW
+020EF	COMBINING RIGHT ARROW BELOW
+020F0	COMBINING ASTERISK ABOVE
+02100	ACCOUNT OF
+02101	ADDRESSED TO THE SUBJECT
+02102	DOUBLE-STRUCK CAPITAL C
+02103	DEGREE CELSIUS
+02104	CENTRE LINE SYMBOL
+02105	CARE OF
+02106	CADA UNA
+02107	EULER CONSTANT
+02108	SCRUPLE
+02109	DEGREE FAHRENHEIT
+0210A	SCRIPT SMALL G
+0210B	SCRIPT CAPITAL H
+0210C	BLACK-LETTER CAPITAL H
+0210D	DOUBLE-STRUCK CAPITAL H
+0210E	PLANCK CONSTANT
+0210F	PLANCK CONSTANT OVER TWO PI
+02110	SCRIPT CAPITAL I
+02111	BLACK-LETTER CAPITAL I
+02112	SCRIPT CAPITAL L
+02113	SCRIPT SMALL L
+02114	L B BAR SYMBOL
+02115	DOUBLE-STRUCK CAPITAL N
+02116	NUMERO SIGN
+02117	SOUND RECORDING COPYRIGHT
+02118	WEIERSTRASS ELLIPTIC FUNCTION
+02118	SCRIPT CAPITAL P
+02119	DOUBLE-STRUCK CAPITAL P
+0211A	DOUBLE-STRUCK CAPITAL Q
+0211B	SCRIPT CAPITAL R
+0211C	BLACK-LETTER CAPITAL R
+0211D	DOUBLE-STRUCK CAPITAL R
+0211E	PRESCRIPTION TAKE
+0211F	RESPONSE
+02120	SERVICE MARK
+02121	TELEPHONE SIGN
+02122	TRADE MARK SIGN
+02123	VERSICLE
+02124	DOUBLE-STRUCK CAPITAL Z
+02125	OUNCE SIGN
+02126	OHM SIGN
+02127	INVERTED OHM SIGN
+02128	BLACK-LETTER CAPITAL Z
+02129	TURNED GREEK SMALL LETTER IOTA
+0212A	KELVIN SIGN
+0212B	ANGSTROM SIGN
+0212C	SCRIPT CAPITAL B
+0212D	BLACK-LETTER CAPITAL C
+0212E	ESTIMATED SYMBOL
+0212F	SCRIPT SMALL E
+02130	SCRIPT CAPITAL E
+02131	SCRIPT CAPITAL F
+02132	TURNED CAPITAL F
+02133	SCRIPT CAPITAL M
+02134	SCRIPT SMALL O
+02135	ALEF SYMBOL
+02136	BET SYMBOL
+02137	GIMEL SYMBOL
+02138	DALET SYMBOL
+02139	INFORMATION SOURCE
+0213A	ROTATED CAPITAL Q
+0213B	FACSIMILE SIGN
+0213C	DOUBLE-STRUCK SMALL PI
+0213D	DOUBLE-STRUCK SMALL GAMMA
+0213E	DOUBLE-STRUCK CAPITAL GAMMA
+0213F	DOUBLE-STRUCK CAPITAL PI
+02140	DOUBLE-STRUCK N-ARY SUMMATION
+02141	TURNED SANS-SERIF CAPITAL G
+02142	TURNED SANS-SERIF CAPITAL L
+02143	REVERSED SANS-SERIF CAPITAL L
+02144	TURNED SANS-SERIF CAPITAL Y
+02145	DOUBLE-STRUCK ITALIC CAPITAL D
+02146	DOUBLE-STRUCK ITALIC SMALL D
+02147	DOUBLE-STRUCK ITALIC SMALL E
+02148	DOUBLE-STRUCK ITALIC SMALL I
+02149	DOUBLE-STRUCK ITALIC SMALL J
+0214A	PROPERTY LINE
+0214B	TURNED AMPERSAND
+0214C	PER SIGN
+0214D	AKTIESELSKAB
+0214E	TURNED SMALL F
+0214F	SYMBOL FOR SAMARITAN SOURCE
+02150	VULGAR FRACTION ONE SEVENTH
+02151	VULGAR FRACTION ONE NINTH
+02152	VULGAR FRACTION ONE TENTH
+02153	VULGAR FRACTION ONE THIRD
+02154	VULGAR FRACTION TWO THIRDS
+02155	VULGAR FRACTION ONE FIFTH
+02156	VULGAR FRACTION TWO FIFTHS
+02157	VULGAR FRACTION THREE FIFTHS
+02158	VULGAR FRACTION FOUR FIFTHS
+02159	VULGAR FRACTION ONE SIXTH
+0215A	VULGAR FRACTION FIVE SIXTHS
+0215B	VULGAR FRACTION ONE EIGHTH
+0215C	VULGAR FRACTION THREE EIGHTHS
+0215D	VULGAR FRACTION FIVE EIGHTHS
+0215E	VULGAR FRACTION SEVEN EIGHTHS
+0215F	FRACTION NUMERATOR ONE
+02160	ROMAN NUMERAL ONE
+02161	ROMAN NUMERAL TWO
+02162	ROMAN NUMERAL THREE
+02163	ROMAN NUMERAL FOUR
+02164	ROMAN NUMERAL FIVE
+02165	ROMAN NUMERAL SIX
+02166	ROMAN NUMERAL SEVEN
+02167	ROMAN NUMERAL EIGHT
+02168	ROMAN NUMERAL NINE
+02169	ROMAN NUMERAL TEN
+0216A	ROMAN NUMERAL ELEVEN
+0216B	ROMAN NUMERAL TWELVE
+0216C	ROMAN NUMERAL FIFTY
+0216D	ROMAN NUMERAL ONE HUNDRED
+0216E	ROMAN NUMERAL FIVE HUNDRED
+0216F	ROMAN NUMERAL ONE THOUSAND
+02170	SMALL ROMAN NUMERAL ONE
+02171	SMALL ROMAN NUMERAL TWO
+02172	SMALL ROMAN NUMERAL THREE
+02173	SMALL ROMAN NUMERAL FOUR
+02174	SMALL ROMAN NUMERAL FIVE
+02175	SMALL ROMAN NUMERAL SIX
+02176	SMALL ROMAN NUMERAL SEVEN
+02177	SMALL ROMAN NUMERAL EIGHT
+02178	SMALL ROMAN NUMERAL NINE
+02179	SMALL ROMAN NUMERAL TEN
+0217A	SMALL ROMAN NUMERAL ELEVEN
+0217B	SMALL ROMAN NUMERAL TWELVE
+0217C	SMALL ROMAN NUMERAL FIFTY
+0217D	SMALL ROMAN NUMERAL ONE HUNDRED
+0217E	SMALL ROMAN NUMERAL FIVE HUNDRED
+0217F	SMALL ROMAN NUMERAL ONE THOUSAND
+02180	ROMAN NUMERAL ONE THOUSAND C D
+02181	ROMAN NUMERAL FIVE THOUSAND
+02182	ROMAN NUMERAL TEN THOUSAND
+02183	ROMAN NUMERAL REVERSED ONE HUNDRED
+02184	LATIN SMALL LETTER REVERSED C
+02185	ROMAN NUMERAL SIX LATE FORM
+02186	ROMAN NUMERAL FIFTY EARLY FORM
+02187	ROMAN NUMERAL FIFTY THOUSAND
+02188	ROMAN NUMERAL ONE HUNDRED THOUSAND
+02189	VULGAR FRACTION ZERO THIRDS
+0218A	TURNED DIGIT TWO
+0218B	TURNED DIGIT THREE
+02190	LEFTWARDS ARROW
+02191	UPWARDS ARROW
+02192	RIGHTWARDS ARROW
+02193	DOWNWARDS ARROW
+02194	LEFT RIGHT ARROW
+02195	UP DOWN ARROW
+02196	NORTH WEST ARROW
+02197	NORTH EAST ARROW
+02198	SOUTH EAST ARROW
+02199	SOUTH WEST ARROW
+0219A	LEFTWARDS ARROW WITH STROKE
+0219B	RIGHTWARDS ARROW WITH STROKE
+0219C	LEFTWARDS WAVE ARROW
+0219D	RIGHTWARDS WAVE ARROW
+0219E	LEFTWARDS TWO HEADED ARROW
+0219F	UPWARDS TWO HEADED ARROW
+021A0	RIGHTWARDS TWO HEADED ARROW
+021A1	DOWNWARDS TWO HEADED ARROW
+021A2	LEFTWARDS ARROW WITH TAIL
+021A3	RIGHTWARDS ARROW WITH TAIL
+021A4	LEFTWARDS ARROW FROM BAR
+021A5	UPWARDS ARROW FROM BAR
+021A6	RIGHTWARDS ARROW FROM BAR
+021A7	DOWNWARDS ARROW FROM BAR
+021A8	UP DOWN ARROW WITH BASE
+021A9	LEFTWARDS ARROW WITH HOOK
+021AA	RIGHTWARDS ARROW WITH HOOK
+021AB	LEFTWARDS ARROW WITH LOOP
+021AC	RIGHTWARDS ARROW WITH LOOP
+021AD	LEFT RIGHT WAVE ARROW
+021AE	LEFT RIGHT ARROW WITH STROKE
+021AF	DOWNWARDS ZIGZAG ARROW
+021B0	UPWARDS ARROW WITH TIP LEFTWARDS
+021B1	UPWARDS ARROW WITH TIP RIGHTWARDS
+021B2	DOWNWARDS ARROW WITH TIP LEFTWARDS
+021B3	DOWNWARDS ARROW WITH TIP RIGHTWARDS
+021B4	RIGHTWARDS ARROW WITH CORNER DOWNWARDS
+021B5	DOWNWARDS ARROW WITH CORNER LEFTWARDS
+021B6	ANTICLOCKWISE TOP SEMICIRCLE ARROW
+021B7	CLOCKWISE TOP SEMICIRCLE ARROW
+021B8	NORTH WEST ARROW TO LONG BAR
+021B9	LEFTWARDS ARROW TO BAR OVER RIGHTWARDS ARROW TO BAR
+021BA	ANTICLOCKWISE OPEN CIRCLE ARROW
+021BB	CLOCKWISE OPEN CIRCLE ARROW
+021BC	LEFTWARDS HARPOON WITH BARB UPWARDS
+021BD	LEFTWARDS HARPOON WITH BARB DOWNWARDS
+021BE	UPWARDS HARPOON WITH BARB RIGHTWARDS
+021BF	UPWARDS HARPOON WITH BARB LEFTWARDS
+021C0	RIGHTWARDS HARPOON WITH BARB UPWARDS
+021C1	RIGHTWARDS HARPOON WITH BARB DOWNWARDS
+021C2	DOWNWARDS HARPOON WITH BARB RIGHTWARDS
+021C3	DOWNWARDS HARPOON WITH BARB LEFTWARDS
+021C4	RIGHTWARDS ARROW OVER LEFTWARDS ARROW
+021C5	UPWARDS ARROW LEFTWARDS OF DOWNWARDS ARROW
+021C6	LEFTWARDS ARROW OVER RIGHTWARDS ARROW
+021C7	LEFTWARDS PAIRED ARROWS
+021C8	UPWARDS PAIRED ARROWS
+021C9	RIGHTWARDS PAIRED ARROWS
+021CA	DOWNWARDS PAIRED ARROWS
+021CB	LEFTWARDS HARPOON OVER RIGHTWARDS HARPOON
+021CC	RIGHTWARDS HARPOON OVER LEFTWARDS HARPOON
+021CD	LEFTWARDS DOUBLE ARROW WITH STROKE
+021CE	LEFT RIGHT DOUBLE ARROW WITH STROKE
+021CF	RIGHTWARDS DOUBLE ARROW WITH STROKE
+021D0	LEFTWARDS DOUBLE ARROW
+021D1	UPWARDS DOUBLE ARROW
+021D2	RIGHTWARDS DOUBLE ARROW
+021D3	DOWNWARDS DOUBLE ARROW
+021D4	LEFT RIGHT DOUBLE ARROW
+021D5	UP DOWN DOUBLE ARROW
+021D6	NORTH WEST DOUBLE ARROW
+021D7	NORTH EAST DOUBLE ARROW
+021D8	SOUTH EAST DOUBLE ARROW
+021D9	SOUTH WEST DOUBLE ARROW
+021DA	LEFTWARDS TRIPLE ARROW
+021DB	RIGHTWARDS TRIPLE ARROW
+021DC	LEFTWARDS SQUIGGLE ARROW
+021DD	RIGHTWARDS SQUIGGLE ARROW
+021DE	UPWARDS ARROW WITH DOUBLE STROKE
+021DF	DOWNWARDS ARROW WITH DOUBLE STROKE
+021E0	LEFTWARDS DASHED ARROW
+021E1	UPWARDS DASHED ARROW
+021E2	RIGHTWARDS DASHED ARROW
+021E3	DOWNWARDS DASHED ARROW
+021E4	LEFTWARDS ARROW TO BAR
+021E5	RIGHTWARDS ARROW TO BAR
+021E6	LEFTWARDS WHITE ARROW
+021E7	UPWARDS WHITE ARROW
+021E8	RIGHTWARDS WHITE ARROW
+021E9	DOWNWARDS WHITE ARROW
+021EA	UPWARDS WHITE ARROW FROM BAR
+021EB	UPWARDS WHITE ARROW ON PEDESTAL
+021EC	UPWARDS WHITE ARROW ON PEDESTAL WITH HORIZONTAL BAR
+021ED	UPWARDS WHITE ARROW ON PEDESTAL WITH VERTICAL BAR
+021EE	UPWARDS WHITE DOUBLE ARROW
+021EF	UPWARDS WHITE DOUBLE ARROW ON PEDESTAL
+021F0	RIGHTWARDS WHITE ARROW FROM WALL
+021F1	NORTH WEST ARROW TO CORNER
+021F2	SOUTH EAST ARROW TO CORNER
+021F3	UP DOWN WHITE ARROW
+021F4	RIGHT ARROW WITH SMALL CIRCLE
+021F5	DOWNWARDS ARROW LEFTWARDS OF UPWARDS ARROW
+021F6	THREE RIGHTWARDS ARROWS
+021F7	LEFTWARDS ARROW WITH VERTICAL STROKE
+021F8	RIGHTWARDS ARROW WITH VERTICAL STROKE
+021F9	LEFT RIGHT ARROW WITH VERTICAL STROKE
+021FA	LEFTWARDS ARROW WITH DOUBLE VERTICAL STROKE
+021FB	RIGHTWARDS ARROW WITH DOUBLE VERTICAL STROKE
+021FC	LEFT RIGHT ARROW WITH DOUBLE VERTICAL STROKE
+021FD	LEFTWARDS OPEN-HEADED ARROW
+021FE	RIGHTWARDS OPEN-HEADED ARROW
+021FF	LEFT RIGHT OPEN-HEADED ARROW
+02200	FOR ALL
+02201	COMPLEMENT
+02202	PARTIAL DIFFERENTIAL
+02203	THERE EXISTS
+02204	THERE DOES NOT EXIST
+02205	EMPTY SET
+02206	INCREMENT
+02207	NABLA
+02208	ELEMENT OF
+02209	NOT AN ELEMENT OF
+0220A	SMALL ELEMENT OF
+0220B	CONTAINS AS MEMBER
+0220C	DOES NOT CONTAIN AS MEMBER
+0220D	SMALL CONTAINS AS MEMBER
+0220E	END OF PROOF
+0220F	N-ARY PRODUCT
+02210	N-ARY COPRODUCT
+02211	N-ARY SUMMATION
+02212	MINUS SIGN
+02213	MINUS-OR-PLUS SIGN
+02214	DOT PLUS
+02215	DIVISION SLASH
+02216	SET MINUS
+02217	ASTERISK OPERATOR
+02218	RING OPERATOR
+02219	BULLET OPERATOR
+0221A	SQUARE ROOT
+0221B	CUBE ROOT
+0221C	FOURTH ROOT
+0221D	PROPORTIONAL TO
+0221E	INFINITY
+0221F	RIGHT ANGLE
+02220	ANGLE
+02221	MEASURED ANGLE
+02222	SPHERICAL ANGLE
+02223	DIVIDES
+02224	DOES NOT DIVIDE
+02225	PARALLEL TO
+02226	NOT PARALLEL TO
+02227	LOGICAL AND
+02228	LOGICAL OR
+02229	INTERSECTION
+0222A	UNION
+0222B	INTEGRAL
+0222C	DOUBLE INTEGRAL
+0222D	TRIPLE INTEGRAL
+0222E	CONTOUR INTEGRAL
+0222F	SURFACE INTEGRAL
+02230	VOLUME INTEGRAL
+02231	CLOCKWISE INTEGRAL
+02232	CLOCKWISE CONTOUR INTEGRAL
+02233	ANTICLOCKWISE CONTOUR INTEGRAL
+02234	THEREFORE
+02235	BECAUSE
+02236	RATIO
+02237	PROPORTION
+02238	DOT MINUS
+02239	EXCESS
+0223A	GEOMETRIC PROPORTION
+0223B	HOMOTHETIC
+0223C	TILDE OPERATOR
+0223D	REVERSED TILDE
+0223E	INVERTED LAZY S
+0223F	SINE WAVE
+02240	WREATH PRODUCT
+02241	NOT TILDE
+02242	MINUS TILDE
+02243	ASYMPTOTICALLY EQUAL TO
+02244	NOT ASYMPTOTICALLY EQUAL TO
+02245	APPROXIMATELY EQUAL TO
+02246	APPROXIMATELY BUT NOT ACTUALLY EQUAL TO
+02247	NEITHER APPROXIMATELY NOR ACTUALLY EQUAL TO
+02248	ALMOST EQUAL TO
+02249	NOT ALMOST EQUAL TO
+0224A	ALMOST EQUAL OR EQUAL TO
+0224B	TRIPLE TILDE
+0224C	ALL EQUAL TO
+0224D	EQUIVALENT TO
+0224E	GEOMETRICALLY EQUIVALENT TO
+0224F	DIFFERENCE BETWEEN
+02250	APPROACHES THE LIMIT
+02251	GEOMETRICALLY EQUAL TO
+02252	APPROXIMATELY EQUAL TO OR THE IMAGE OF
+02253	IMAGE OF OR APPROXIMATELY EQUAL TO
+02254	COLON EQUALS
+02255	EQUALS COLON
+02256	RING IN EQUAL TO
+02257	RING EQUAL TO
+02258	CORRESPONDS TO
+02259	ESTIMATES
+0225A	EQUIANGULAR TO
+0225B	STAR EQUALS
+0225C	DELTA EQUAL TO
+0225D	EQUAL TO BY DEFINITION
+0225E	MEASURED BY
+0225F	QUESTIONED EQUAL TO
+02260	NOT EQUAL TO
+02261	IDENTICAL TO
+02262	NOT IDENTICAL TO
+02263	STRICTLY EQUIVALENT TO
+02264	LESS-THAN OR EQUAL TO
+02265	GREATER-THAN OR EQUAL TO
+02266	LESS-THAN OVER EQUAL TO
+02267	GREATER-THAN OVER EQUAL TO
+02268	LESS-THAN BUT NOT EQUAL TO
+02269	GREATER-THAN BUT NOT EQUAL TO
+0226A	MUCH LESS-THAN
+0226B	MUCH GREATER-THAN
+0226C	BETWEEN
+0226D	NOT EQUIVALENT TO
+0226E	NOT LESS-THAN
+0226F	NOT GREATER-THAN
+02270	NEITHER LESS-THAN NOR EQUAL TO
+02271	NEITHER GREATER-THAN NOR EQUAL TO
+02272	LESS-THAN OR EQUIVALENT TO
+02273	GREATER-THAN OR EQUIVALENT TO
+02274	NEITHER LESS-THAN NOR EQUIVALENT TO
+02275	NEITHER GREATER-THAN NOR EQUIVALENT TO
+02276	LESS-THAN OR GREATER-THAN
+02277	GREATER-THAN OR LESS-THAN
+02278	NEITHER LESS-THAN NOR GREATER-THAN
+02279	NEITHER GREATER-THAN NOR LESS-THAN
+0227A	PRECEDES
+0227B	SUCCEEDS
+0227C	PRECEDES OR EQUAL TO
+0227D	SUCCEEDS OR EQUAL TO
+0227E	PRECEDES OR EQUIVALENT TO
+0227F	SUCCEEDS OR EQUIVALENT TO
+02280	DOES NOT PRECEDE
+02281	DOES NOT SUCCEED
+02282	SUBSET OF
+02283	SUPERSET OF
+02284	NOT A SUBSET OF
+02285	NOT A SUPERSET OF
+02286	SUBSET OF OR EQUAL TO
+02287	SUPERSET OF OR EQUAL TO
+02288	NEITHER A SUBSET OF NOR EQUAL TO
+02289	NEITHER A SUPERSET OF NOR EQUAL TO
+0228A	SUBSET OF WITH NOT EQUAL TO
+0228B	SUPERSET OF WITH NOT EQUAL TO
+0228C	MULTISET
+0228D	MULTISET MULTIPLICATION
+0228E	MULTISET UNION
+0228F	SQUARE IMAGE OF
+02290	SQUARE ORIGINAL OF
+02291	SQUARE IMAGE OF OR EQUAL TO
+02292	SQUARE ORIGINAL OF OR EQUAL TO
+02293	SQUARE CAP
+02294	SQUARE CUP
+02295	CIRCLED PLUS
+02296	CIRCLED MINUS
+02297	CIRCLED TIMES
+02298	CIRCLED DIVISION SLASH
+02299	CIRCLED DOT OPERATOR
+0229A	CIRCLED RING OPERATOR
+0229B	CIRCLED ASTERISK OPERATOR
+0229C	CIRCLED EQUALS
+0229D	CIRCLED DASH
+0229E	SQUARED PLUS
+0229F	SQUARED MINUS
+022A0	SQUARED TIMES
+022A1	SQUARED DOT OPERATOR
+022A2	RIGHT TACK
+022A3	LEFT TACK
+022A4	DOWN TACK
+022A5	UP TACK
+022A6	ASSERTION
+022A7	MODELS
+022A8	TRUE
+022A9	FORCES
+022AA	TRIPLE VERTICAL BAR RIGHT TURNSTILE
+022AB	DOUBLE VERTICAL BAR DOUBLE RIGHT TURNSTILE
+022AC	DOES NOT PROVE
+022AD	NOT TRUE
+022AE	DOES NOT FORCE
+022AF	NEGATED DOUBLE VERTICAL BAR DOUBLE RIGHT TURNSTILE
+022B0	PRECEDES UNDER RELATION
+022B1	SUCCEEDS UNDER RELATION
+022B2	NORMAL SUBGROUP OF
+022B3	CONTAINS AS NORMAL SUBGROUP
+022B4	NORMAL SUBGROUP OF OR EQUAL TO
+022B5	CONTAINS AS NORMAL SUBGROUP OR EQUAL TO
+022B6	ORIGINAL OF
+022B7	IMAGE OF
+022B8	MULTIMAP
+022B9	HERMITIAN CONJUGATE MATRIX
+022BA	INTERCALATE
+022BB	XOR
+022BC	NAND
+022BD	NOR
+022BE	RIGHT ANGLE WITH ARC
+022BF	RIGHT TRIANGLE
+022C0	N-ARY LOGICAL AND
+022C1	N-ARY LOGICAL OR
+022C2	N-ARY INTERSECTION
+022C3	N-ARY UNION
+022C4	DIAMOND OPERATOR
+022C5	DOT OPERATOR
+022C6	STAR OPERATOR
+022C7	DIVISION TIMES
+022C8	BOWTIE
+022C9	LEFT NORMAL FACTOR SEMIDIRECT PRODUCT
+022CA	RIGHT NORMAL FACTOR SEMIDIRECT PRODUCT
+022CB	LEFT SEMIDIRECT PRODUCT
+022CC	RIGHT SEMIDIRECT PRODUCT
+022CD	REVERSED TILDE EQUALS
+022CE	CURLY LOGICAL OR
+022CF	CURLY LOGICAL AND
+022D0	DOUBLE SUBSET
+022D1	DOUBLE SUPERSET
+022D2	DOUBLE INTERSECTION
+022D3	DOUBLE UNION
+022D4	PITCHFORK
+022D5	EQUAL AND PARALLEL TO
+022D6	LESS-THAN WITH DOT
+022D7	GREATER-THAN WITH DOT
+022D8	VERY MUCH LESS-THAN
+022D9	VERY MUCH GREATER-THAN
+022DA	LESS-THAN EQUAL TO OR GREATER-THAN
+022DB	GREATER-THAN EQUAL TO OR LESS-THAN
+022DC	EQUAL TO OR LESS-THAN
+022DD	EQUAL TO OR GREATER-THAN
+022DE	EQUAL TO OR PRECEDES
+022DF	EQUAL TO OR SUCCEEDS
+022E0	DOES NOT PRECEDE OR EQUAL
+022E1	DOES NOT SUCCEED OR EQUAL
+022E2	NOT SQUARE IMAGE OF OR EQUAL TO
+022E3	NOT SQUARE ORIGINAL OF OR EQUAL TO
+022E4	SQUARE IMAGE OF OR NOT EQUAL TO
+022E5	SQUARE ORIGINAL OF OR NOT EQUAL TO
+022E6	LESS-THAN BUT NOT EQUIVALENT TO
+022E7	GREATER-THAN BUT NOT EQUIVALENT TO
+022E8	PRECEDES BUT NOT EQUIVALENT TO
+022E9	SUCCEEDS BUT NOT EQUIVALENT TO
+022EA	NOT NORMAL SUBGROUP OF
+022EB	DOES NOT CONTAIN AS NORMAL SUBGROUP
+022EC	NOT NORMAL SUBGROUP OF OR EQUAL TO
+022ED	DOES NOT CONTAIN AS NORMAL SUBGROUP OR EQUAL
+022EE	VERTICAL ELLIPSIS
+022EF	MIDLINE HORIZONTAL ELLIPSIS
+022F0	UP RIGHT DIAGONAL ELLIPSIS
+022F1	DOWN RIGHT DIAGONAL ELLIPSIS
+022F2	ELEMENT OF WITH LONG HORIZONTAL STROKE
+022F3	ELEMENT OF WITH VERTICAL BAR AT END OF HORIZONTAL STROKE
+022F4	SMALL ELEMENT OF WITH VERTICAL BAR AT END OF HORIZONTAL STROKE
+022F5	ELEMENT OF WITH DOT ABOVE
+022F6	ELEMENT OF WITH OVERBAR
+022F7	SMALL ELEMENT OF WITH OVERBAR
+022F8	ELEMENT OF WITH UNDERBAR
+022F9	ELEMENT OF WITH TWO HORIZONTAL STROKES
+022FA	CONTAINS WITH LONG HORIZONTAL STROKE
+022FB	CONTAINS WITH VERTICAL BAR AT END OF HORIZONTAL STROKE
+022FC	SMALL CONTAINS WITH VERTICAL BAR AT END OF HORIZONTAL STROKE
+022FD	CONTAINS WITH OVERBAR
+022FE	SMALL CONTAINS WITH OVERBAR
+022FF	Z NOTATION BAG MEMBERSHIP
+02300	DIAMETER SIGN
+02301	ELECTRIC ARROW
+02302	HOUSE
+02303	UP ARROWHEAD
+02304	DOWN ARROWHEAD
+02305	PROJECTIVE
+02306	PERSPECTIVE
+02307	WAVY LINE
+02308	LEFT CEILING
+02309	RIGHT CEILING
+0230A	LEFT FLOOR
+0230B	RIGHT FLOOR
+0230C	BOTTOM RIGHT CROP
+0230D	BOTTOM LEFT CROP
+0230E	TOP RIGHT CROP
+0230F	TOP LEFT CROP
+02310	REVERSED NOT SIGN
+02311	SQUARE LOZENGE
+02312	ARC
+02313	SEGMENT
+02314	SECTOR
+02315	TELEPHONE RECORDER
+02316	POSITION INDICATOR
+02317	VIEWDATA SQUARE
+02318	PLACE OF INTEREST SIGN
+02319	TURNED NOT SIGN
+0231A	WATCH
+0231B	HOURGLASS
+0231C	TOP LEFT CORNER
+0231D	TOP RIGHT CORNER
+0231E	BOTTOM LEFT CORNER
+0231F	BOTTOM RIGHT CORNER
+02320	TOP HALF INTEGRAL
+02321	BOTTOM HALF INTEGRAL
+02322	FROWN
+02323	SMILE
+02324	UP ARROWHEAD BETWEEN TWO HORIZONTAL BARS
+02325	OPTION KEY
+02326	ERASE TO THE RIGHT
+02327	X IN A RECTANGLE BOX
+02328	KEYBOARD
+02329	LEFT-POINTING ANGLE BRACKET
+0232A	RIGHT-POINTING ANGLE BRACKET
+0232B	ERASE TO THE LEFT
+0232C	BENZENE RING
+0232D	CYLINDRICITY
+0232E	ALL AROUND-PROFILE
+0232F	SYMMETRY
+02330	TOTAL RUNOUT
+02331	DIMENSION ORIGIN
+02332	CONICAL TAPER
+02333	SLOPE
+02334	COUNTERBORE
+02335	COUNTERSINK
+02336	APL FUNCTIONAL SYMBOL I-BEAM
+02337	APL FUNCTIONAL SYMBOL SQUISH QUAD
+02338	APL FUNCTIONAL SYMBOL QUAD EQUAL
+02339	APL FUNCTIONAL SYMBOL QUAD DIVIDE
+0233A	APL FUNCTIONAL SYMBOL QUAD DIAMOND
+0233B	APL FUNCTIONAL SYMBOL QUAD JOT
+0233C	APL FUNCTIONAL SYMBOL QUAD CIRCLE
+0233D	APL FUNCTIONAL SYMBOL CIRCLE STILE
+0233E	APL FUNCTIONAL SYMBOL CIRCLE JOT
+0233F	APL FUNCTIONAL SYMBOL SLASH BAR
+02340	APL FUNCTIONAL SYMBOL BACKSLASH BAR
+02341	APL FUNCTIONAL SYMBOL QUAD SLASH
+02342	APL FUNCTIONAL SYMBOL QUAD BACKSLASH
+02343	APL FUNCTIONAL SYMBOL QUAD LESS-THAN
+02344	APL FUNCTIONAL SYMBOL QUAD GREATER-THAN
+02345	APL FUNCTIONAL SYMBOL LEFTWARDS VANE
+02346	APL FUNCTIONAL SYMBOL RIGHTWARDS VANE
+02347	APL FUNCTIONAL SYMBOL QUAD LEFTWARDS ARROW
+02348	APL FUNCTIONAL SYMBOL QUAD RIGHTWARDS ARROW
+02349	APL FUNCTIONAL SYMBOL CIRCLE BACKSLASH
+0234A	APL FUNCTIONAL SYMBOL DOWN TACK UNDERBAR
+0234B	APL FUNCTIONAL SYMBOL DELTA STILE
+0234C	APL FUNCTIONAL SYMBOL QUAD DOWN CARET
+0234D	APL FUNCTIONAL SYMBOL QUAD DELTA
+0234E	APL FUNCTIONAL SYMBOL DOWN TACK JOT
+0234F	APL FUNCTIONAL SYMBOL UPWARDS VANE
+02350	APL FUNCTIONAL SYMBOL QUAD UPWARDS ARROW
+02351	APL FUNCTIONAL SYMBOL UP TACK OVERBAR
+02352	APL FUNCTIONAL SYMBOL DEL STILE
+02353	APL FUNCTIONAL SYMBOL QUAD UP CARET
+02354	APL FUNCTIONAL SYMBOL QUAD DEL
+02355	APL FUNCTIONAL SYMBOL UP TACK JOT
+02356	APL FUNCTIONAL SYMBOL DOWNWARDS VANE
+02357	APL FUNCTIONAL SYMBOL QUAD DOWNWARDS ARROW
+02358	APL FUNCTIONAL SYMBOL QUOTE UNDERBAR
+02359	APL FUNCTIONAL SYMBOL DELTA UNDERBAR
+0235A	APL FUNCTIONAL SYMBOL DIAMOND UNDERBAR
+0235B	APL FUNCTIONAL SYMBOL JOT UNDERBAR
+0235C	APL FUNCTIONAL SYMBOL CIRCLE UNDERBAR
+0235D	APL FUNCTIONAL SYMBOL UP SHOE JOT
+0235E	APL FUNCTIONAL SYMBOL QUOTE QUAD
+0235F	APL FUNCTIONAL SYMBOL CIRCLE STAR
+02360	APL FUNCTIONAL SYMBOL QUAD COLON
+02361	APL FUNCTIONAL SYMBOL UP TACK DIAERESIS
+02362	APL FUNCTIONAL SYMBOL DEL DIAERESIS
+02363	APL FUNCTIONAL SYMBOL STAR DIAERESIS
+02364	APL FUNCTIONAL SYMBOL JOT DIAERESIS
+02365	APL FUNCTIONAL SYMBOL CIRCLE DIAERESIS
+02366	APL FUNCTIONAL SYMBOL DOWN SHOE STILE
+02367	APL FUNCTIONAL SYMBOL LEFT SHOE STILE
+02368	APL FUNCTIONAL SYMBOL TILDE DIAERESIS
+02369	APL FUNCTIONAL SYMBOL GREATER-THAN DIAERESIS
+0236A	APL FUNCTIONAL SYMBOL COMMA BAR
+0236B	APL FUNCTIONAL SYMBOL DEL TILDE
+0236C	APL FUNCTIONAL SYMBOL ZILDE
+0236D	APL FUNCTIONAL SYMBOL STILE TILDE
+0236E	APL FUNCTIONAL SYMBOL SEMICOLON UNDERBAR
+0236F	APL FUNCTIONAL SYMBOL QUAD NOT EQUAL
+02370	APL FUNCTIONAL SYMBOL QUAD QUESTION
+02371	APL FUNCTIONAL SYMBOL DOWN CARET TILDE
+02372	APL FUNCTIONAL SYMBOL UP CARET TILDE
+02373	APL FUNCTIONAL SYMBOL IOTA
+02374	APL FUNCTIONAL SYMBOL RHO
+02375	APL FUNCTIONAL SYMBOL OMEGA
+02376	APL FUNCTIONAL SYMBOL ALPHA UNDERBAR
+02377	APL FUNCTIONAL SYMBOL EPSILON UNDERBAR
+02378	APL FUNCTIONAL SYMBOL IOTA UNDERBAR
+02379	APL FUNCTIONAL SYMBOL OMEGA UNDERBAR
+0237A	APL FUNCTIONAL SYMBOL ALPHA
+0237B	NOT CHECK MARK
+0237C	RIGHT ANGLE WITH DOWNWARDS ZIGZAG ARROW
+0237D	SHOULDERED OPEN BOX
+0237E	BELL SYMBOL
+0237F	VERTICAL LINE WITH MIDDLE DOT
+02380	INSERTION SYMBOL
+02381	CONTINUOUS UNDERLINE SYMBOL
+02382	DISCONTINUOUS UNDERLINE SYMBOL
+02383	EMPHASIS SYMBOL
+02384	COMPOSITION SYMBOL
+02385	WHITE SQUARE WITH CENTRE VERTICAL LINE
+02386	ENTER SYMBOL
+02387	ALTERNATIVE KEY SYMBOL
+02388	HELM SYMBOL
+02389	CIRCLED HORIZONTAL BAR WITH NOTCH
+0238A	CIRCLED TRIANGLE DOWN
+0238B	BROKEN CIRCLE WITH NORTHWEST ARROW
+0238C	UNDO SYMBOL
+0238D	MONOSTABLE SYMBOL
+0238E	HYSTERESIS SYMBOL
+0238F	OPEN-CIRCUIT-OUTPUT H-TYPE SYMBOL
+02390	OPEN-CIRCUIT-OUTPUT L-TYPE SYMBOL
+02391	PASSIVE-PULL-DOWN-OUTPUT SYMBOL
+02392	PASSIVE-PULL-UP-OUTPUT SYMBOL
+02393	DIRECT CURRENT SYMBOL FORM TWO
+02394	SOFTWARE-FUNCTION SYMBOL
+02395	APL FUNCTIONAL SYMBOL QUAD
+02396	DECIMAL SEPARATOR KEY SYMBOL
+02397	PREVIOUS PAGE
+02398	NEXT PAGE
+02399	PRINT SCREEN SYMBOL
+0239A	CLEAR SCREEN SYMBOL
+0239B	LEFT PARENTHESIS UPPER HOOK
+0239C	LEFT PARENTHESIS EXTENSION
+0239D	LEFT PARENTHESIS LOWER HOOK
+0239E	RIGHT PARENTHESIS UPPER HOOK
+0239F	RIGHT PARENTHESIS EXTENSION
+023A0	RIGHT PARENTHESIS LOWER HOOK
+023A1	LEFT SQUARE BRACKET UPPER CORNER
+023A2	LEFT SQUARE BRACKET EXTENSION
+023A3	LEFT SQUARE BRACKET LOWER CORNER
+023A4	RIGHT SQUARE BRACKET UPPER CORNER
+023A5	RIGHT SQUARE BRACKET EXTENSION
+023A6	RIGHT SQUARE BRACKET LOWER CORNER
+023A7	LEFT CURLY BRACKET UPPER HOOK
+023A8	LEFT CURLY BRACKET MIDDLE PIECE
+023A9	LEFT CURLY BRACKET LOWER HOOK
+023AA	CURLY BRACKET EXTENSION
+023AB	RIGHT CURLY BRACKET UPPER HOOK
+023AC	RIGHT CURLY BRACKET MIDDLE PIECE
+023AD	RIGHT CURLY BRACKET LOWER HOOK
+023AE	INTEGRAL EXTENSION
+023AF	HORIZONTAL LINE EXTENSION
+023B0	UPPER LEFT OR LOWER RIGHT CURLY BRACKET SECTION
+023B1	UPPER RIGHT OR LOWER LEFT CURLY BRACKET SECTION
+023B2	SUMMATION TOP
+023B3	SUMMATION BOTTOM
+023B4	TOP SQUARE BRACKET
+023B5	BOTTOM SQUARE BRACKET
+023B6	BOTTOM SQUARE BRACKET OVER TOP SQUARE BRACKET
+023B7	RADICAL SYMBOL BOTTOM
+023B8	LEFT VERTICAL BOX LINE
+023B9	RIGHT VERTICAL BOX LINE
+023BA	HORIZONTAL SCAN LINE-1
+023BB	HORIZONTAL SCAN LINE-3
+023BC	HORIZONTAL SCAN LINE-7
+023BD	HORIZONTAL SCAN LINE-9
+023BE	DENTISTRY SYMBOL LIGHT VERTICAL AND TOP RIGHT
+023BF	DENTISTRY SYMBOL LIGHT VERTICAL AND BOTTOM RIGHT
+023C0	DENTISTRY SYMBOL LIGHT VERTICAL WITH CIRCLE
+023C1	DENTISTRY SYMBOL LIGHT DOWN AND HORIZONTAL WITH CIRCLE
+023C2	DENTISTRY SYMBOL LIGHT UP AND HORIZONTAL WITH CIRCLE
+023C3	DENTISTRY SYMBOL LIGHT VERTICAL WITH TRIANGLE
+023C4	DENTISTRY SYMBOL LIGHT DOWN AND HORIZONTAL WITH TRIANGLE
+023C5	DENTISTRY SYMBOL LIGHT UP AND HORIZONTAL WITH TRIANGLE
+023C6	DENTISTRY SYMBOL LIGHT VERTICAL AND WAVE
+023C7	DENTISTRY SYMBOL LIGHT DOWN AND HORIZONTAL WITH WAVE
+023C8	DENTISTRY SYMBOL LIGHT UP AND HORIZONTAL WITH WAVE
+023C9	DENTISTRY SYMBOL LIGHT DOWN AND HORIZONTAL
+023CA	DENTISTRY SYMBOL LIGHT UP AND HORIZONTAL
+023CB	DENTISTRY SYMBOL LIGHT VERTICAL AND TOP LEFT
+023CC	DENTISTRY SYMBOL LIGHT VERTICAL AND BOTTOM LEFT
+023CD	SQUARE FOOT
+023CE	RETURN SYMBOL
+023CF	EJECT SYMBOL
+023D0	VERTICAL LINE EXTENSION
+023D1	METRICAL BREVE
+023D2	METRICAL LONG OVER SHORT
+023D3	METRICAL SHORT OVER LONG
+023D4	METRICAL LONG OVER TWO SHORTS
+023D5	METRICAL TWO SHORTS OVER LONG
+023D6	METRICAL TWO SHORTS JOINED
+023D7	METRICAL TRISEME
+023D8	METRICAL TETRASEME
+023D9	METRICAL PENTASEME
+023DA	EARTH GROUND
+023DB	FUSE
+023DC	TOP PARENTHESIS
+023DD	BOTTOM PARENTHESIS
+023DE	TOP CURLY BRACKET
+023DF	BOTTOM CURLY BRACKET
+023E0	TOP TORTOISE SHELL BRACKET
+023E1	BOTTOM TORTOISE SHELL BRACKET
+023E2	WHITE TRAPEZIUM
+023E3	BENZENE RING WITH CIRCLE
+023E4	STRAIGHTNESS
+023E5	FLATNESS
+023E6	AC CURRENT
+023E7	ELECTRICAL INTERSECTION
+023E8	DECIMAL EXPONENT SYMBOL
+023E9	BLACK RIGHT-POINTING DOUBLE TRIANGLE
+023EA	BLACK LEFT-POINTING DOUBLE TRIANGLE
+023EB	BLACK UP-POINTING DOUBLE TRIANGLE
+023EC	BLACK DOWN-POINTING DOUBLE TRIANGLE
+023ED	BLACK RIGHT-POINTING DOUBLE TRIANGLE WITH VERTICAL BAR
+023EE	BLACK LEFT-POINTING DOUBLE TRIANGLE WITH VERTICAL BAR
+023EF	BLACK RIGHT-POINTING TRIANGLE WITH DOUBLE VERTICAL BAR
+023F0	ALARM CLOCK
+023F1	STOPWATCH
+023F2	TIMER CLOCK
+023F3	HOURGLASS WITH FLOWING SAND
+023F4	BLACK MEDIUM LEFT-POINTING TRIANGLE
+023F5	BLACK MEDIUM RIGHT-POINTING TRIANGLE
+023F6	BLACK MEDIUM UP-POINTING TRIANGLE
+023F7	BLACK MEDIUM DOWN-POINTING TRIANGLE
+023F8	DOUBLE VERTICAL BAR
+023F9	BLACK SQUARE FOR STOP
+023FA	BLACK CIRCLE FOR RECORD
+02400	SYMBOL FOR NULL
+02401	SYMBOL FOR START OF HEADING
+02402	SYMBOL FOR START OF TEXT
+02403	SYMBOL FOR END OF TEXT
+02404	SYMBOL FOR END OF TRANSMISSION
+02405	SYMBOL FOR ENQUIRY
+02406	SYMBOL FOR ACKNOWLEDGE
+02407	SYMBOL FOR BELL
+02408	SYMBOL FOR BACKSPACE
+02409	SYMBOL FOR HORIZONTAL TABULATION
+0240A	SYMBOL FOR LINE FEED
+0240B	SYMBOL FOR VERTICAL TABULATION
+0240C	SYMBOL FOR FORM FEED
+0240D	SYMBOL FOR CARRIAGE RETURN
+0240E	SYMBOL FOR SHIFT OUT
+0240F	SYMBOL FOR SHIFT IN
+02410	SYMBOL FOR DATA LINK ESCAPE
+02411	SYMBOL FOR DEVICE CONTROL ONE
+02412	SYMBOL FOR DEVICE CONTROL TWO
+02413	SYMBOL FOR DEVICE CONTROL THREE
+02414	SYMBOL FOR DEVICE CONTROL FOUR
+02415	SYMBOL FOR NEGATIVE ACKNOWLEDGE
+02416	SYMBOL FOR SYNCHRONOUS IDLE
+02417	SYMBOL FOR END OF TRANSMISSION BLOCK
+02418	SYMBOL FOR CANCEL
+02419	SYMBOL FOR END OF MEDIUM
+0241A	SYMBOL FOR SUBSTITUTE
+0241B	SYMBOL FOR ESCAPE
+0241C	SYMBOL FOR FILE SEPARATOR
+0241D	SYMBOL FOR GROUP SEPARATOR
+0241E	SYMBOL FOR RECORD SEPARATOR
+0241F	SYMBOL FOR UNIT SEPARATOR
+02420	SYMBOL FOR SPACE
+02421	SYMBOL FOR DELETE
+02422	BLANK SYMBOL
+02423	OPEN BOX
+02424	SYMBOL FOR NEWLINE
+02425	SYMBOL FOR DELETE FORM TWO
+02426	SYMBOL FOR SUBSTITUTE FORM TWO
+02440	OCR HOOK
+02441	OCR CHAIR
+02442	OCR FORK
+02443	OCR INVERTED FORK
+02444	OCR BELT BUCKLE
+02445	OCR BOW TIE
+02446	OCR BRANCH BANK IDENTIFICATION
+02447	OCR AMOUNT OF CHECK
+02448	MICR ON US SYMBOL
+02448	OCR DASH
+02449	MICR DASH SYMBOL
+02449	OCR CUSTOMER ACCOUNT NUMBER
+0244A	OCR DOUBLE BACKSLASH
+02460	CIRCLED DIGIT ONE
+02461	CIRCLED DIGIT TWO
+02462	CIRCLED DIGIT THREE
+02463	CIRCLED DIGIT FOUR
+02464	CIRCLED DIGIT FIVE
+02465	CIRCLED DIGIT SIX
+02466	CIRCLED DIGIT SEVEN
+02467	CIRCLED DIGIT EIGHT
+02468	CIRCLED DIGIT NINE
+02469	CIRCLED NUMBER TEN
+0246A	CIRCLED NUMBER ELEVEN
+0246B	CIRCLED NUMBER TWELVE
+0246C	CIRCLED NUMBER THIRTEEN
+0246D	CIRCLED NUMBER FOURTEEN
+0246E	CIRCLED NUMBER FIFTEEN
+0246F	CIRCLED NUMBER SIXTEEN
+02470	CIRCLED NUMBER SEVENTEEN
+02471	CIRCLED NUMBER EIGHTEEN
+02472	CIRCLED NUMBER NINETEEN
+02473	CIRCLED NUMBER TWENTY
+02474	PARENTHESIZED DIGIT ONE
+02475	PARENTHESIZED DIGIT TWO
+02476	PARENTHESIZED DIGIT THREE
+02477	PARENTHESIZED DIGIT FOUR
+02478	PARENTHESIZED DIGIT FIVE
+02479	PARENTHESIZED DIGIT SIX
+0247A	PARENTHESIZED DIGIT SEVEN
+0247B	PARENTHESIZED DIGIT EIGHT
+0247C	PARENTHESIZED DIGIT NINE
+0247D	PARENTHESIZED NUMBER TEN
+0247E	PARENTHESIZED NUMBER ELEVEN
+0247F	PARENTHESIZED NUMBER TWELVE
+02480	PARENTHESIZED NUMBER THIRTEEN
+02481	PARENTHESIZED NUMBER FOURTEEN
+02482	PARENTHESIZED NUMBER FIFTEEN
+02483	PARENTHESIZED NUMBER SIXTEEN
+02484	PARENTHESIZED NUMBER SEVENTEEN
+02485	PARENTHESIZED NUMBER EIGHTEEN
+02486	PARENTHESIZED NUMBER NINETEEN
+02487	PARENTHESIZED NUMBER TWENTY
+02488	DIGIT ONE FULL STOP
+02489	DIGIT TWO FULL STOP
+0248A	DIGIT THREE FULL STOP
+0248B	DIGIT FOUR FULL STOP
+0248C	DIGIT FIVE FULL STOP
+0248D	DIGIT SIX FULL STOP
+0248E	DIGIT SEVEN FULL STOP
+0248F	DIGIT EIGHT FULL STOP
+02490	DIGIT NINE FULL STOP
+02491	NUMBER TEN FULL STOP
+02492	NUMBER ELEVEN FULL STOP
+02493	NUMBER TWELVE FULL STOP
+02494	NUMBER THIRTEEN FULL STOP
+02495	NUMBER FOURTEEN FULL STOP
+02496	NUMBER FIFTEEN FULL STOP
+02497	NUMBER SIXTEEN FULL STOP
+02498	NUMBER SEVENTEEN FULL STOP
+02499	NUMBER EIGHTEEN FULL STOP
+0249A	NUMBER NINETEEN FULL STOP
+0249B	NUMBER TWENTY FULL STOP
+0249C	PARENTHESIZED LATIN SMALL LETTER A
+0249D	PARENTHESIZED LATIN SMALL LETTER B
+0249E	PARENTHESIZED LATIN SMALL LETTER C
+0249F	PARENTHESIZED LATIN SMALL LETTER D
+024A0	PARENTHESIZED LATIN SMALL LETTER E
+024A1	PARENTHESIZED LATIN SMALL LETTER F
+024A2	PARENTHESIZED LATIN SMALL LETTER G
+024A3	PARENTHESIZED LATIN SMALL LETTER H
+024A4	PARENTHESIZED LATIN SMALL LETTER I
+024A5	PARENTHESIZED LATIN SMALL LETTER J
+024A6	PARENTHESIZED LATIN SMALL LETTER K
+024A7	PARENTHESIZED LATIN SMALL LETTER L
+024A8	PARENTHESIZED LATIN SMALL LETTER M
+024A9	PARENTHESIZED LATIN SMALL LETTER N
+024AA	PARENTHESIZED LATIN SMALL LETTER O
+024AB	PARENTHESIZED LATIN SMALL LETTER P
+024AC	PARENTHESIZED LATIN SMALL LETTER Q
+024AD	PARENTHESIZED LATIN SMALL LETTER R
+024AE	PARENTHESIZED LATIN SMALL LETTER S
+024AF	PARENTHESIZED LATIN SMALL LETTER T
+024B0	PARENTHESIZED LATIN SMALL LETTER U
+024B1	PARENTHESIZED LATIN SMALL LETTER V
+024B2	PARENTHESIZED LATIN SMALL LETTER W
+024B3	PARENTHESIZED LATIN SMALL LETTER X
+024B4	PARENTHESIZED LATIN SMALL LETTER Y
+024B5	PARENTHESIZED LATIN SMALL LETTER Z
+024B6	CIRCLED LATIN CAPITAL LETTER A
+024B7	CIRCLED LATIN CAPITAL LETTER B
+024B8	CIRCLED LATIN CAPITAL LETTER C
+024B9	CIRCLED LATIN CAPITAL LETTER D
+024BA	CIRCLED LATIN CAPITAL LETTER E
+024BB	CIRCLED LATIN CAPITAL LETTER F
+024BC	CIRCLED LATIN CAPITAL LETTER G
+024BD	CIRCLED LATIN CAPITAL LETTER H
+024BE	CIRCLED LATIN CAPITAL LETTER I
+024BF	CIRCLED LATIN CAPITAL LETTER J
+024C0	CIRCLED LATIN CAPITAL LETTER K
+024C1	CIRCLED LATIN CAPITAL LETTER L
+024C2	CIRCLED LATIN CAPITAL LETTER M
+024C3	CIRCLED LATIN CAPITAL LETTER N
+024C4	CIRCLED LATIN CAPITAL LETTER O
+024C5	CIRCLED LATIN CAPITAL LETTER P
+024C6	CIRCLED LATIN CAPITAL LETTER Q
+024C7	CIRCLED LATIN CAPITAL LETTER R
+024C8	CIRCLED LATIN CAPITAL LETTER S
+024C9	CIRCLED LATIN CAPITAL LETTER T
+024CA	CIRCLED LATIN CAPITAL LETTER U
+024CB	CIRCLED LATIN CAPITAL LETTER V
+024CC	CIRCLED LATIN CAPITAL LETTER W
+024CD	CIRCLED LATIN CAPITAL LETTER X
+024CE	CIRCLED LATIN CAPITAL LETTER Y
+024CF	CIRCLED LATIN CAPITAL LETTER Z
+024D0	CIRCLED LATIN SMALL LETTER A
+024D1	CIRCLED LATIN SMALL LETTER B
+024D2	CIRCLED LATIN SMALL LETTER C
+024D3	CIRCLED LATIN SMALL LETTER D
+024D4	CIRCLED LATIN SMALL LETTER E
+024D5	CIRCLED LATIN SMALL LETTER F
+024D6	CIRCLED LATIN SMALL LETTER G
+024D7	CIRCLED LATIN SMALL LETTER H
+024D8	CIRCLED LATIN SMALL LETTER I
+024D9	CIRCLED LATIN SMALL LETTER J
+024DA	CIRCLED LATIN SMALL LETTER K
+024DB	CIRCLED LATIN SMALL LETTER L
+024DC	CIRCLED LATIN SMALL LETTER M
+024DD	CIRCLED LATIN SMALL LETTER N
+024DE	CIRCLED LATIN SMALL LETTER O
+024DF	CIRCLED LATIN SMALL LETTER P
+024E0	CIRCLED LATIN SMALL LETTER Q
+024E1	CIRCLED LATIN SMALL LETTER R
+024E2	CIRCLED LATIN SMALL LETTER S
+024E3	CIRCLED LATIN SMALL LETTER T
+024E4	CIRCLED LATIN SMALL LETTER U
+024E5	CIRCLED LATIN SMALL LETTER V
+024E6	CIRCLED LATIN SMALL LETTER W
+024E7	CIRCLED LATIN SMALL LETTER X
+024E8	CIRCLED LATIN SMALL LETTER Y
+024E9	CIRCLED LATIN SMALL LETTER Z
+024EA	CIRCLED DIGIT ZERO
+024EB	NEGATIVE CIRCLED NUMBER ELEVEN
+024EC	NEGATIVE CIRCLED NUMBER TWELVE
+024ED	NEGATIVE CIRCLED NUMBER THIRTEEN
+024EE	NEGATIVE CIRCLED NUMBER FOURTEEN
+024EF	NEGATIVE CIRCLED NUMBER FIFTEEN
+024F0	NEGATIVE CIRCLED NUMBER SIXTEEN
+024F1	NEGATIVE CIRCLED NUMBER SEVENTEEN
+024F2	NEGATIVE CIRCLED NUMBER EIGHTEEN
+024F3	NEGATIVE CIRCLED NUMBER NINETEEN
+024F4	NEGATIVE CIRCLED NUMBER TWENTY
+024F5	DOUBLE CIRCLED DIGIT ONE
+024F6	DOUBLE CIRCLED DIGIT TWO
+024F7	DOUBLE CIRCLED DIGIT THREE
+024F8	DOUBLE CIRCLED DIGIT FOUR
+024F9	DOUBLE CIRCLED DIGIT FIVE
+024FA	DOUBLE CIRCLED DIGIT SIX
+024FB	DOUBLE CIRCLED DIGIT SEVEN
+024FC	DOUBLE CIRCLED DIGIT EIGHT
+024FD	DOUBLE CIRCLED DIGIT NINE
+024FE	DOUBLE CIRCLED NUMBER TEN
+024FF	NEGATIVE CIRCLED DIGIT ZERO
+02500	BOX DRAWINGS LIGHT HORIZONTAL
+02501	BOX DRAWINGS HEAVY HORIZONTAL
+02502	BOX DRAWINGS LIGHT VERTICAL
+02503	BOX DRAWINGS HEAVY VERTICAL
+02504	BOX DRAWINGS LIGHT TRIPLE DASH HORIZONTAL
+02505	BOX DRAWINGS HEAVY TRIPLE DASH HORIZONTAL
+02506	BOX DRAWINGS LIGHT TRIPLE DASH VERTICAL
+02507	BOX DRAWINGS HEAVY TRIPLE DASH VERTICAL
+02508	BOX DRAWINGS LIGHT QUADRUPLE DASH HORIZONTAL
+02509	BOX DRAWINGS HEAVY QUADRUPLE DASH HORIZONTAL
+0250A	BOX DRAWINGS LIGHT QUADRUPLE DASH VERTICAL
+0250B	BOX DRAWINGS HEAVY QUADRUPLE DASH VERTICAL
+0250C	BOX DRAWINGS LIGHT DOWN AND RIGHT
+0250D	BOX DRAWINGS DOWN LIGHT AND RIGHT HEAVY
+0250E	BOX DRAWINGS DOWN HEAVY AND RIGHT LIGHT
+0250F	BOX DRAWINGS HEAVY DOWN AND RIGHT
+02510	BOX DRAWINGS LIGHT DOWN AND LEFT
+02511	BOX DRAWINGS DOWN LIGHT AND LEFT HEAVY
+02512	BOX DRAWINGS DOWN HEAVY AND LEFT LIGHT
+02513	BOX DRAWINGS HEAVY DOWN AND LEFT
+02514	BOX DRAWINGS LIGHT UP AND RIGHT
+02515	BOX DRAWINGS UP LIGHT AND RIGHT HEAVY
+02516	BOX DRAWINGS UP HEAVY AND RIGHT LIGHT
+02517	BOX DRAWINGS HEAVY UP AND RIGHT
+02518	BOX DRAWINGS LIGHT UP AND LEFT
+02519	BOX DRAWINGS UP LIGHT AND LEFT HEAVY
+0251A	BOX DRAWINGS UP HEAVY AND LEFT LIGHT
+0251B	BOX DRAWINGS HEAVY UP AND LEFT
+0251C	BOX DRAWINGS LIGHT VERTICAL AND RIGHT
+0251D	BOX DRAWINGS VERTICAL LIGHT AND RIGHT HEAVY
+0251E	BOX DRAWINGS UP HEAVY AND RIGHT DOWN LIGHT
+0251F	BOX DRAWINGS DOWN HEAVY AND RIGHT UP LIGHT
+02520	BOX DRAWINGS VERTICAL HEAVY AND RIGHT LIGHT
+02521	BOX DRAWINGS DOWN LIGHT AND RIGHT UP HEAVY
+02522	BOX DRAWINGS UP LIGHT AND RIGHT DOWN HEAVY
+02523	BOX DRAWINGS HEAVY VERTICAL AND RIGHT
+02524	BOX DRAWINGS LIGHT VERTICAL AND LEFT
+02525	BOX DRAWINGS VERTICAL LIGHT AND LEFT HEAVY
+02526	BOX DRAWINGS UP HEAVY AND LEFT DOWN LIGHT
+02527	BOX DRAWINGS DOWN HEAVY AND LEFT UP LIGHT
+02528	BOX DRAWINGS VERTICAL HEAVY AND LEFT LIGHT
+02529	BOX DRAWINGS DOWN LIGHT AND LEFT UP HEAVY
+0252A	BOX DRAWINGS UP LIGHT AND LEFT DOWN HEAVY
+0252B	BOX DRAWINGS HEAVY VERTICAL AND LEFT
+0252C	BOX DRAWINGS LIGHT DOWN AND HORIZONTAL
+0252D	BOX DRAWINGS LEFT HEAVY AND RIGHT DOWN LIGHT
+0252E	BOX DRAWINGS RIGHT HEAVY AND LEFT DOWN LIGHT
+0252F	BOX DRAWINGS DOWN LIGHT AND HORIZONTAL HEAVY
+02530	BOX DRAWINGS DOWN HEAVY AND HORIZONTAL LIGHT
+02531	BOX DRAWINGS RIGHT LIGHT AND LEFT DOWN HEAVY
+02532	BOX DRAWINGS LEFT LIGHT AND RIGHT DOWN HEAVY
+02533	BOX DRAWINGS HEAVY DOWN AND HORIZONTAL
+02534	BOX DRAWINGS LIGHT UP AND HORIZONTAL
+02535	BOX DRAWINGS LEFT HEAVY AND RIGHT UP LIGHT
+02536	BOX DRAWINGS RIGHT HEAVY AND LEFT UP LIGHT
+02537	BOX DRAWINGS UP LIGHT AND HORIZONTAL HEAVY
+02538	BOX DRAWINGS UP HEAVY AND HORIZONTAL LIGHT
+02539	BOX DRAWINGS RIGHT LIGHT AND LEFT UP HEAVY
+0253A	BOX DRAWINGS LEFT LIGHT AND RIGHT UP HEAVY
+0253B	BOX DRAWINGS HEAVY UP AND HORIZONTAL
+0253C	BOX DRAWINGS LIGHT VERTICAL AND HORIZONTAL
+0253D	BOX DRAWINGS LEFT HEAVY AND RIGHT VERTICAL LIGHT
+0253E	BOX DRAWINGS RIGHT HEAVY AND LEFT VERTICAL LIGHT
+0253F	BOX DRAWINGS VERTICAL LIGHT AND HORIZONTAL HEAVY
+02540	BOX DRAWINGS UP HEAVY AND DOWN HORIZONTAL LIGHT
+02541	BOX DRAWINGS DOWN HEAVY AND UP HORIZONTAL LIGHT
+02542	BOX DRAWINGS VERTICAL HEAVY AND HORIZONTAL LIGHT
+02543	BOX DRAWINGS LEFT UP HEAVY AND RIGHT DOWN LIGHT
+02544	BOX DRAWINGS RIGHT UP HEAVY AND LEFT DOWN LIGHT
+02545	BOX DRAWINGS LEFT DOWN HEAVY AND RIGHT UP LIGHT
+02546	BOX DRAWINGS RIGHT DOWN HEAVY AND LEFT UP LIGHT
+02547	BOX DRAWINGS DOWN LIGHT AND UP HORIZONTAL HEAVY
+02548	BOX DRAWINGS UP LIGHT AND DOWN HORIZONTAL HEAVY
+02549	BOX DRAWINGS RIGHT LIGHT AND LEFT VERTICAL HEAVY
+0254A	BOX DRAWINGS LEFT LIGHT AND RIGHT VERTICAL HEAVY
+0254B	BOX DRAWINGS HEAVY VERTICAL AND HORIZONTAL
+0254C	BOX DRAWINGS LIGHT DOUBLE DASH HORIZONTAL
+0254D	BOX DRAWINGS HEAVY DOUBLE DASH HORIZONTAL
+0254E	BOX DRAWINGS LIGHT DOUBLE DASH VERTICAL
+0254F	BOX DRAWINGS HEAVY DOUBLE DASH VERTICAL
+02550	BOX DRAWINGS DOUBLE HORIZONTAL
+02551	BOX DRAWINGS DOUBLE VERTICAL
+02552	BOX DRAWINGS DOWN SINGLE AND RIGHT DOUBLE
+02553	BOX DRAWINGS DOWN DOUBLE AND RIGHT SINGLE
+02554	BOX DRAWINGS DOUBLE DOWN AND RIGHT
+02555	BOX DRAWINGS DOWN SINGLE AND LEFT DOUBLE
+02556	BOX DRAWINGS DOWN DOUBLE AND LEFT SINGLE
+02557	BOX DRAWINGS DOUBLE DOWN AND LEFT
+02558	BOX DRAWINGS UP SINGLE AND RIGHT DOUBLE
+02559	BOX DRAWINGS UP DOUBLE AND RIGHT SINGLE
+0255A	BOX DRAWINGS DOUBLE UP AND RIGHT
+0255B	BOX DRAWINGS UP SINGLE AND LEFT DOUBLE
+0255C	BOX DRAWINGS UP DOUBLE AND LEFT SINGLE
+0255D	BOX DRAWINGS DOUBLE UP AND LEFT
+0255E	BOX DRAWINGS VERTICAL SINGLE AND RIGHT DOUBLE
+0255F	BOX DRAWINGS VERTICAL DOUBLE AND RIGHT SINGLE
+02560	BOX DRAWINGS DOUBLE VERTICAL AND RIGHT
+02561	BOX DRAWINGS VERTICAL SINGLE AND LEFT DOUBLE
+02562	BOX DRAWINGS VERTICAL DOUBLE AND LEFT SINGLE
+02563	BOX DRAWINGS DOUBLE VERTICAL AND LEFT
+02564	BOX DRAWINGS DOWN SINGLE AND HORIZONTAL DOUBLE
+02565	BOX DRAWINGS DOWN DOUBLE AND HORIZONTAL SINGLE
+02566	BOX DRAWINGS DOUBLE DOWN AND HORIZONTAL
+02567	BOX DRAWINGS UP SINGLE AND HORIZONTAL DOUBLE
+02568	BOX DRAWINGS UP DOUBLE AND HORIZONTAL SINGLE
+02569	BOX DRAWINGS DOUBLE UP AND HORIZONTAL
+0256A	BOX DRAWINGS VERTICAL SINGLE AND HORIZONTAL DOUBLE
+0256B	BOX DRAWINGS VERTICAL DOUBLE AND HORIZONTAL SINGLE
+0256C	BOX DRAWINGS DOUBLE VERTICAL AND HORIZONTAL
+0256D	BOX DRAWINGS LIGHT ARC DOWN AND RIGHT
+0256E	BOX DRAWINGS LIGHT ARC DOWN AND LEFT
+0256F	BOX DRAWINGS LIGHT ARC UP AND LEFT
+02570	BOX DRAWINGS LIGHT ARC UP AND RIGHT
+02571	BOX DRAWINGS LIGHT DIAGONAL UPPER RIGHT TO LOWER LEFT
+02572	BOX DRAWINGS LIGHT DIAGONAL UPPER LEFT TO LOWER RIGHT
+02573	BOX DRAWINGS LIGHT DIAGONAL CROSS
+02574	BOX DRAWINGS LIGHT LEFT
+02575	BOX DRAWINGS LIGHT UP
+02576	BOX DRAWINGS LIGHT RIGHT
+02577	BOX DRAWINGS LIGHT DOWN
+02578	BOX DRAWINGS HEAVY LEFT
+02579	BOX DRAWINGS HEAVY UP
+0257A	BOX DRAWINGS HEAVY RIGHT
+0257B	BOX DRAWINGS HEAVY DOWN
+0257C	BOX DRAWINGS LIGHT LEFT AND HEAVY RIGHT
+0257D	BOX DRAWINGS LIGHT UP AND HEAVY DOWN
+0257E	BOX DRAWINGS HEAVY LEFT AND LIGHT RIGHT
+0257F	BOX DRAWINGS HEAVY UP AND LIGHT DOWN
+02580	UPPER HALF BLOCK
+02581	LOWER ONE EIGHTH BLOCK
+02582	LOWER ONE QUARTER BLOCK
+02583	LOWER THREE EIGHTHS BLOCK
+02584	LOWER HALF BLOCK
+02585	LOWER FIVE EIGHTHS BLOCK
+02586	LOWER THREE QUARTERS BLOCK
+02587	LOWER SEVEN EIGHTHS BLOCK
+02588	FULL BLOCK
+02589	LEFT SEVEN EIGHTHS BLOCK
+0258A	LEFT THREE QUARTERS BLOCK
+0258B	LEFT FIVE EIGHTHS BLOCK
+0258C	LEFT HALF BLOCK
+0258D	LEFT THREE EIGHTHS BLOCK
+0258E	LEFT ONE QUARTER BLOCK
+0258F	LEFT ONE EIGHTH BLOCK
+02590	RIGHT HALF BLOCK
+02591	LIGHT SHADE
+02592	MEDIUM SHADE
+02593	DARK SHADE
+02594	UPPER ONE EIGHTH BLOCK
+02595	RIGHT ONE EIGHTH BLOCK
+02596	QUADRANT LOWER LEFT
+02597	QUADRANT LOWER RIGHT
+02598	QUADRANT UPPER LEFT
+02599	QUADRANT UPPER LEFT AND LOWER LEFT AND LOWER RIGHT
+0259A	QUADRANT UPPER LEFT AND LOWER RIGHT
+0259B	QUADRANT UPPER LEFT AND UPPER RIGHT AND LOWER LEFT
+0259C	QUADRANT UPPER LEFT AND UPPER RIGHT AND LOWER RIGHT
+0259D	QUADRANT UPPER RIGHT
+0259E	QUADRANT UPPER RIGHT AND LOWER LEFT
+0259F	QUADRANT UPPER RIGHT AND LOWER LEFT AND LOWER RIGHT
+025A0	BLACK SQUARE
+025A1	WHITE SQUARE
+025A2	WHITE SQUARE WITH ROUNDED CORNERS
+025A3	WHITE SQUARE CONTAINING BLACK SMALL SQUARE
+025A4	SQUARE WITH HORIZONTAL FILL
+025A5	SQUARE WITH VERTICAL FILL
+025A6	SQUARE WITH ORTHOGONAL CROSSHATCH FILL
+025A7	SQUARE WITH UPPER LEFT TO LOWER RIGHT FILL
+025A8	SQUARE WITH UPPER RIGHT TO LOWER LEFT FILL
+025A9	SQUARE WITH DIAGONAL CROSSHATCH FILL
+025AA	BLACK SMALL SQUARE
+025AB	WHITE SMALL SQUARE
+025AC	BLACK RECTANGLE
+025AD	WHITE RECTANGLE
+025AE	BLACK VERTICAL RECTANGLE
+025AF	WHITE VERTICAL RECTANGLE
+025B0	BLACK PARALLELOGRAM
+025B1	WHITE PARALLELOGRAM
+025B2	BLACK UP-POINTING TRIANGLE
+025B3	WHITE UP-POINTING TRIANGLE
+025B4	BLACK UP-POINTING SMALL TRIANGLE
+025B5	WHITE UP-POINTING SMALL TRIANGLE
+025B6	BLACK RIGHT-POINTING TRIANGLE
+025B7	WHITE RIGHT-POINTING TRIANGLE
+025B8	BLACK RIGHT-POINTING SMALL TRIANGLE
+025B9	WHITE RIGHT-POINTING SMALL TRIANGLE
+025BA	BLACK RIGHT-POINTING POINTER
+025BB	WHITE RIGHT-POINTING POINTER
+025BC	BLACK DOWN-POINTING TRIANGLE
+025BD	WHITE DOWN-POINTING TRIANGLE
+025BE	BLACK DOWN-POINTING SMALL TRIANGLE
+025BF	WHITE DOWN-POINTING SMALL TRIANGLE
+025C0	BLACK LEFT-POINTING TRIANGLE
+025C1	WHITE LEFT-POINTING TRIANGLE
+025C2	BLACK LEFT-POINTING SMALL TRIANGLE
+025C3	WHITE LEFT-POINTING SMALL TRIANGLE
+025C4	BLACK LEFT-POINTING POINTER
+025C5	WHITE LEFT-POINTING POINTER
+025C6	BLACK DIAMOND
+025C7	WHITE DIAMOND
+025C8	WHITE DIAMOND CONTAINING BLACK SMALL DIAMOND
+025C9	FISHEYE
+025CA	LOZENGE
+025CB	WHITE CIRCLE
+025CC	DOTTED CIRCLE
+025CD	CIRCLE WITH VERTICAL FILL
+025CE	BULLSEYE
+025CF	BLACK CIRCLE
+025D0	CIRCLE WITH LEFT HALF BLACK
+025D1	CIRCLE WITH RIGHT HALF BLACK
+025D2	CIRCLE WITH LOWER HALF BLACK
+025D3	CIRCLE WITH UPPER HALF BLACK
+025D4	CIRCLE WITH UPPER RIGHT QUADRANT BLACK
+025D5	CIRCLE WITH ALL BUT UPPER LEFT QUADRANT BLACK
+025D6	LEFT HALF BLACK CIRCLE
+025D7	RIGHT HALF BLACK CIRCLE
+025D8	INVERSE BULLET
+025D9	INVERSE WHITE CIRCLE
+025DA	UPPER HALF INVERSE WHITE CIRCLE
+025DB	LOWER HALF INVERSE WHITE CIRCLE
+025DC	UPPER LEFT QUADRANT CIRCULAR ARC
+025DD	UPPER RIGHT QUADRANT CIRCULAR ARC
+025DE	LOWER RIGHT QUADRANT CIRCULAR ARC
+025DF	LOWER LEFT QUADRANT CIRCULAR ARC
+025E0	UPPER HALF CIRCLE
+025E1	LOWER HALF CIRCLE
+025E2	BLACK LOWER RIGHT TRIANGLE
+025E3	BLACK LOWER LEFT TRIANGLE
+025E4	BLACK UPPER LEFT TRIANGLE
+025E5	BLACK UPPER RIGHT TRIANGLE
+025E6	WHITE BULLET
+025E7	SQUARE WITH LEFT HALF BLACK
+025E8	SQUARE WITH RIGHT HALF BLACK
+025E9	SQUARE WITH UPPER LEFT DIAGONAL HALF BLACK
+025EA	SQUARE WITH LOWER RIGHT DIAGONAL HALF BLACK
+025EB	WHITE SQUARE WITH VERTICAL BISECTING LINE
+025EC	WHITE UP-POINTING TRIANGLE WITH DOT
+025ED	UP-POINTING TRIANGLE WITH LEFT HALF BLACK
+025EE	UP-POINTING TRIANGLE WITH RIGHT HALF BLACK
+025EF	LARGE CIRCLE
+025F0	WHITE SQUARE WITH UPPER LEFT QUADRANT
+025F1	WHITE SQUARE WITH LOWER LEFT QUADRANT
+025F2	WHITE SQUARE WITH LOWER RIGHT QUADRANT
+025F3	WHITE SQUARE WITH UPPER RIGHT QUADRANT
+025F4	WHITE CIRCLE WITH UPPER LEFT QUADRANT
+025F5	WHITE CIRCLE WITH LOWER LEFT QUADRANT
+025F6	WHITE CIRCLE WITH LOWER RIGHT QUADRANT
+025F7	WHITE CIRCLE WITH UPPER RIGHT QUADRANT
+025F8	UPPER LEFT TRIANGLE
+025F9	UPPER RIGHT TRIANGLE
+025FA	LOWER LEFT TRIANGLE
+025FB	WHITE MEDIUM SQUARE
+025FC	BLACK MEDIUM SQUARE
+025FD	WHITE MEDIUM SMALL SQUARE
+025FE	BLACK MEDIUM SMALL SQUARE
+025FF	LOWER RIGHT TRIANGLE
+02600	BLACK SUN WITH RAYS
+02601	CLOUD
+02602	UMBRELLA
+02603	SNOWMAN
+02604	COMET
+02605	BLACK STAR
+02606	WHITE STAR
+02607	LIGHTNING
+02608	THUNDERSTORM
+02609	SUN
+0260A	ASCENDING NODE
+0260B	DESCENDING NODE
+0260C	CONJUNCTION
+0260D	OPPOSITION
+0260E	BLACK TELEPHONE
+0260F	WHITE TELEPHONE
+02610	BALLOT BOX
+02611	BALLOT BOX WITH CHECK
+02612	BALLOT BOX WITH X
+02613	SALTIRE
+02614	UMBRELLA WITH RAIN DROPS
+02615	HOT BEVERAGE
+02616	WHITE SHOGI PIECE
+02617	BLACK SHOGI PIECE
+02618	SHAMROCK
+02619	REVERSED ROTATED FLORAL HEART BULLET
+0261A	BLACK LEFT POINTING INDEX
+0261B	BLACK RIGHT POINTING INDEX
+0261C	WHITE LEFT POINTING INDEX
+0261D	WHITE UP POINTING INDEX
+0261E	WHITE RIGHT POINTING INDEX
+0261F	WHITE DOWN POINTING INDEX
+02620	SKULL AND CROSSBONES
+02621	CAUTION SIGN
+02622	RADIOACTIVE SIGN
+02623	BIOHAZARD SIGN
+02624	CADUCEUS
+02625	ANKH
+02626	ORTHODOX CROSS
+02627	CHI RHO
+02628	CROSS OF LORRAINE
+02629	CROSS OF JERUSALEM
+0262A	STAR AND CRESCENT
+0262B	FARSI SYMBOL
+0262C	ADI SHAKTI
+0262D	HAMMER AND SICKLE
+0262E	PEACE SYMBOL
+0262F	YIN YANG
+02630	TRIGRAM FOR HEAVEN
+02631	TRIGRAM FOR LAKE
+02632	TRIGRAM FOR FIRE
+02633	TRIGRAM FOR THUNDER
+02634	TRIGRAM FOR WIND
+02635	TRIGRAM FOR WATER
+02636	TRIGRAM FOR MOUNTAIN
+02637	TRIGRAM FOR EARTH
+02638	WHEEL OF DHARMA
+02639	WHITE FROWNING FACE
+0263A	WHITE SMILING FACE
+0263B	BLACK SMILING FACE
+0263C	WHITE SUN WITH RAYS
+0263D	FIRST QUARTER MOON
+0263E	LAST QUARTER MOON
+0263F	MERCURY
+02640	FEMALE SIGN
+02641	EARTH
+02642	MALE SIGN
+02643	JUPITER
+02644	SATURN
+02645	URANUS
+02646	NEPTUNE
+02647	PLUTO
+02648	ARIES
+02649	TAURUS
+0264A	GEMINI
+0264B	CANCER
+0264C	LEO
+0264D	VIRGO
+0264E	LIBRA
+0264F	SCORPIUS
+02650	SAGITTARIUS
+02651	CAPRICORN
+02652	AQUARIUS
+02653	PISCES
+02654	WHITE CHESS KING
+02655	WHITE CHESS QUEEN
+02656	WHITE CHESS ROOK
+02657	WHITE CHESS BISHOP
+02658	WHITE CHESS KNIGHT
+02659	WHITE CHESS PAWN
+0265A	BLACK CHESS KING
+0265B	BLACK CHESS QUEEN
+0265C	BLACK CHESS ROOK
+0265D	BLACK CHESS BISHOP
+0265E	BLACK CHESS KNIGHT
+0265F	BLACK CHESS PAWN
+02660	BLACK SPADE SUIT
+02661	WHITE HEART SUIT
+02662	WHITE DIAMOND SUIT
+02663	BLACK CLUB SUIT
+02664	WHITE SPADE SUIT
+02665	BLACK HEART SUIT
+02666	BLACK DIAMOND SUIT
+02667	WHITE CLUB SUIT
+02668	HOT SPRINGS
+02669	QUARTER NOTE
+0266A	EIGHTH NOTE
+0266B	BEAMED EIGHTH NOTES
+0266C	BEAMED SIXTEENTH NOTES
+0266D	MUSIC FLAT SIGN
+0266E	MUSIC NATURAL SIGN
+0266F	MUSIC SHARP SIGN
+02670	WEST SYRIAC CROSS
+02671	EAST SYRIAC CROSS
+02672	UNIVERSAL RECYCLING SYMBOL
+02673	RECYCLING SYMBOL FOR TYPE-1 PLASTICS
+02674	RECYCLING SYMBOL FOR TYPE-2 PLASTICS
+02675	RECYCLING SYMBOL FOR TYPE-3 PLASTICS
+02676	RECYCLING SYMBOL FOR TYPE-4 PLASTICS
+02677	RECYCLING SYMBOL FOR TYPE-5 PLASTICS
+02678	RECYCLING SYMBOL FOR TYPE-6 PLASTICS
+02679	RECYCLING SYMBOL FOR TYPE-7 PLASTICS
+0267A	RECYCLING SYMBOL FOR GENERIC MATERIALS
+0267B	BLACK UNIVERSAL RECYCLING SYMBOL
+0267C	RECYCLED PAPER SYMBOL
+0267D	PARTIALLY-RECYCLED PAPER SYMBOL
+0267E	PERMANENT PAPER SIGN
+0267F	WHEELCHAIR SYMBOL
+02680	DIE FACE-1
+02681	DIE FACE-2
+02682	DIE FACE-3
+02683	DIE FACE-4
+02684	DIE FACE-5
+02685	DIE FACE-6
+02686	WHITE CIRCLE WITH DOT RIGHT
+02687	WHITE CIRCLE WITH TWO DOTS
+02688	BLACK CIRCLE WITH WHITE DOT RIGHT
+02689	BLACK CIRCLE WITH TWO WHITE DOTS
+0268A	MONOGRAM FOR YANG
+0268B	MONOGRAM FOR YIN
+0268C	DIGRAM FOR GREATER YANG
+0268D	DIGRAM FOR LESSER YIN
+0268E	DIGRAM FOR LESSER YANG
+0268F	DIGRAM FOR GREATER YIN
+02690	WHITE FLAG
+02691	BLACK FLAG
+02692	HAMMER AND PICK
+02693	ANCHOR
+02694	CROSSED SWORDS
+02695	STAFF OF AESCULAPIUS
+02696	SCALES
+02697	ALEMBIC
+02698	FLOWER
+02699	GEAR
+0269A	STAFF OF HERMES
+0269B	ATOM SYMBOL
+0269C	FLEUR-DE-LIS
+0269D	OUTLINED WHITE STAR
+0269E	THREE LINES CONVERGING RIGHT
+0269F	THREE LINES CONVERGING LEFT
+026A0	WARNING SIGN
+026A1	HIGH VOLTAGE SIGN
+026A2	DOUBLED FEMALE SIGN
+026A3	DOUBLED MALE SIGN
+026A4	INTERLOCKED FEMALE AND MALE SIGN
+026A5	MALE AND FEMALE SIGN
+026A6	MALE WITH STROKE SIGN
+026A7	MALE WITH STROKE AND MALE AND FEMALE SIGN
+026A8	VERTICAL MALE WITH STROKE SIGN
+026A9	HORIZONTAL MALE WITH STROKE SIGN
+026AA	MEDIUM WHITE CIRCLE
+026AB	MEDIUM BLACK CIRCLE
+026AC	MEDIUM SMALL WHITE CIRCLE
+026AD	MARRIAGE SYMBOL
+026AE	DIVORCE SYMBOL
+026AF	UNMARRIED PARTNERSHIP SYMBOL
+026B0	COFFIN
+026B1	FUNERAL URN
+026B2	NEUTER
+026B3	CERES
+026B4	PALLAS
+026B5	JUNO
+026B6	VESTA
+026B7	CHIRON
+026B8	BLACK MOON LILITH
+026B9	SEXTILE
+026BA	SEMISEXTILE
+026BB	QUINCUNX
+026BC	SESQUIQUADRATE
+026BD	SOCCER BALL
+026BE	BASEBALL
+026BF	SQUARED KEY
+026C0	WHITE DRAUGHTS MAN
+026C1	WHITE DRAUGHTS KING
+026C2	BLACK DRAUGHTS MAN
+026C3	BLACK DRAUGHTS KING
+026C4	SNOWMAN WITHOUT SNOW
+026C5	SUN BEHIND CLOUD
+026C6	RAIN
+026C7	BLACK SNOWMAN
+026C8	THUNDER CLOUD AND RAIN
+026C9	TURNED WHITE SHOGI PIECE
+026CA	TURNED BLACK SHOGI PIECE
+026CB	WHITE DIAMOND IN SQUARE
+026CC	CROSSING LANES
+026CD	DISABLED CAR
+026CE	OPHIUCHUS
+026CF	PICK
+026D0	CAR SLIDING
+026D1	HELMET WITH WHITE CROSS
+026D2	CIRCLED CROSSING LANES
+026D3	CHAINS
+026D4	NO ENTRY
+026D5	ALTERNATE ONE-WAY LEFT WAY TRAFFIC
+026D6	BLACK TWO-WAY LEFT WAY TRAFFIC
+026D7	WHITE TWO-WAY LEFT WAY TRAFFIC
+026D8	BLACK LEFT LANE MERGE
+026D9	WHITE LEFT LANE MERGE
+026DA	DRIVE SLOW SIGN
+026DB	HEAVY WHITE DOWN-POINTING TRIANGLE
+026DC	LEFT CLOSED ENTRY
+026DD	SQUARED SALTIRE
+026DE	FALLING DIAGONAL IN WHITE CIRCLE IN BLACK SQUARE
+026DF	BLACK TRUCK
+026E0	RESTRICTED LEFT ENTRY-1
+026E1	RESTRICTED LEFT ENTRY-2
+026E2	ASTRONOMICAL SYMBOL FOR URANUS
+026E3	HEAVY CIRCLE WITH STROKE AND TWO DOTS ABOVE
+026E4	PENTAGRAM
+026E5	RIGHT-HANDED INTERLACED PENTAGRAM
+026E6	LEFT-HANDED INTERLACED PENTAGRAM
+026E7	INVERTED PENTAGRAM
+026E8	BLACK CROSS ON SHIELD
+026E9	SHINTO SHRINE
+026EA	CHURCH
+026EB	CASTLE
+026EC	HISTORIC SITE
+026ED	GEAR WITHOUT HUB
+026EE	GEAR WITH HANDLES
+026EF	MAP SYMBOL FOR LIGHTHOUSE
+026F0	MOUNTAIN
+026F1	UMBRELLA ON GROUND
+026F2	FOUNTAIN
+026F3	FLAG IN HOLE
+026F4	FERRY
+026F5	SAILBOAT
+026F6	SQUARE FOUR CORNERS
+026F7	SKIER
+026F8	ICE SKATE
+026F9	PERSON WITH BALL
+026FA	TENT
+026FB	JAPANESE BANK SYMBOL
+026FC	HEADSTONE GRAVEYARD SYMBOL
+026FD	FUEL PUMP
+026FE	CUP ON BLACK SQUARE
+026FF	WHITE FLAG WITH HORIZONTAL MIDDLE BLACK STRIPE
+02700	BLACK SAFETY SCISSORS
+02701	UPPER BLADE SCISSORS
+02702	BLACK SCISSORS
+02703	LOWER BLADE SCISSORS
+02704	WHITE SCISSORS
+02705	WHITE HEAVY CHECK MARK
+02706	TELEPHONE LOCATION SIGN
+02707	TAPE DRIVE
+02708	AIRPLANE
+02709	ENVELOPE
+0270A	RAISED FIST
+0270B	RAISED HAND
+0270C	VICTORY HAND
+0270D	WRITING HAND
+0270E	LOWER RIGHT PENCIL
+0270F	PENCIL
+02710	UPPER RIGHT PENCIL
+02711	WHITE NIB
+02712	BLACK NIB
+02713	CHECK MARK
+02714	HEAVY CHECK MARK
+02715	MULTIPLICATION X
+02716	HEAVY MULTIPLICATION X
+02717	BALLOT X
+02718	HEAVY BALLOT X
+02719	OUTLINED GREEK CROSS
+0271A	HEAVY GREEK CROSS
+0271B	OPEN CENTRE CROSS
+0271C	HEAVY OPEN CENTRE CROSS
+0271D	LATIN CROSS
+0271E	SHADOWED WHITE LATIN CROSS
+0271F	OUTLINED LATIN CROSS
+02720	MALTESE CROSS
+02721	STAR OF DAVID
+02722	FOUR TEARDROP-SPOKED ASTERISK
+02723	FOUR BALLOON-SPOKED ASTERISK
+02724	HEAVY FOUR BALLOON-SPOKED ASTERISK
+02725	FOUR CLUB-SPOKED ASTERISK
+02726	BLACK FOUR POINTED STAR
+02727	WHITE FOUR POINTED STAR
+02728	SPARKLES
+02729	STRESS OUTLINED WHITE STAR
+0272A	CIRCLED WHITE STAR
+0272B	OPEN CENTRE BLACK STAR
+0272C	BLACK CENTRE WHITE STAR
+0272D	OUTLINED BLACK STAR
+0272E	HEAVY OUTLINED BLACK STAR
+0272F	PINWHEEL STAR
+02730	SHADOWED WHITE STAR
+02731	HEAVY ASTERISK
+02732	OPEN CENTRE ASTERISK
+02733	EIGHT SPOKED ASTERISK
+02734	EIGHT POINTED BLACK STAR
+02735	EIGHT POINTED PINWHEEL STAR
+02736	SIX POINTED BLACK STAR
+02737	EIGHT POINTED RECTILINEAR BLACK STAR
+02738	HEAVY EIGHT POINTED RECTILINEAR BLACK STAR
+02739	TWELVE POINTED BLACK STAR
+0273A	SIXTEEN POINTED ASTERISK
+0273B	TEARDROP-SPOKED ASTERISK
+0273C	OPEN CENTRE TEARDROP-SPOKED ASTERISK
+0273D	HEAVY TEARDROP-SPOKED ASTERISK
+0273E	SIX PETALLED BLACK AND WHITE FLORETTE
+0273F	BLACK FLORETTE
+02740	WHITE FLORETTE
+02741	EIGHT PETALLED OUTLINED BLACK FLORETTE
+02742	CIRCLED OPEN CENTRE EIGHT POINTED STAR
+02743	HEAVY TEARDROP-SPOKED PINWHEEL ASTERISK
+02744	SNOWFLAKE
+02745	TIGHT TRIFOLIATE SNOWFLAKE
+02746	HEAVY CHEVRON SNOWFLAKE
+02747	SPARKLE
+02748	HEAVY SPARKLE
+02749	BALLOON-SPOKED ASTERISK
+0274A	EIGHT TEARDROP-SPOKED PROPELLER ASTERISK
+0274B	HEAVY EIGHT TEARDROP-SPOKED PROPELLER ASTERISK
+0274C	CROSS MARK
+0274D	SHADOWED WHITE CIRCLE
+0274E	NEGATIVE SQUARED CROSS MARK
+0274F	LOWER RIGHT DROP-SHADOWED WHITE SQUARE
+02750	UPPER RIGHT DROP-SHADOWED WHITE SQUARE
+02751	LOWER RIGHT SHADOWED WHITE SQUARE
+02752	UPPER RIGHT SHADOWED WHITE SQUARE
+02753	BLACK QUESTION MARK ORNAMENT
+02754	WHITE QUESTION MARK ORNAMENT
+02755	WHITE EXCLAMATION MARK ORNAMENT
+02756	BLACK DIAMOND MINUS WHITE X
+02757	HEAVY EXCLAMATION MARK SYMBOL
+02758	LIGHT VERTICAL BAR
+02759	MEDIUM VERTICAL BAR
+0275A	HEAVY VERTICAL BAR
+0275B	HEAVY SINGLE TURNED COMMA QUOTATION MARK ORNAMENT
+0275C	HEAVY SINGLE COMMA QUOTATION MARK ORNAMENT
+0275D	HEAVY DOUBLE TURNED COMMA QUOTATION MARK ORNAMENT
+0275E	HEAVY DOUBLE COMMA QUOTATION MARK ORNAMENT
+0275F	HEAVY LOW SINGLE COMMA QUOTATION MARK ORNAMENT
+02760	HEAVY LOW DOUBLE COMMA QUOTATION MARK ORNAMENT
+02761	CURVED STEM PARAGRAPH SIGN ORNAMENT
+02762	HEAVY EXCLAMATION MARK ORNAMENT
+02763	HEAVY HEART EXCLAMATION MARK ORNAMENT
+02764	HEAVY BLACK HEART
+02765	ROTATED HEAVY BLACK HEART BULLET
+02766	FLORAL HEART
+02767	ROTATED FLORAL HEART BULLET
+02768	MEDIUM LEFT PARENTHESIS ORNAMENT
+02769	MEDIUM RIGHT PARENTHESIS ORNAMENT
+0276A	MEDIUM FLATTENED LEFT PARENTHESIS ORNAMENT
+0276B	MEDIUM FLATTENED RIGHT PARENTHESIS ORNAMENT
+0276C	MEDIUM LEFT-POINTING ANGLE BRACKET ORNAMENT
+0276D	MEDIUM RIGHT-POINTING ANGLE BRACKET ORNAMENT
+0276E	HEAVY LEFT-POINTING ANGLE QUOTATION MARK ORNAMENT
+0276F	HEAVY RIGHT-POINTING ANGLE QUOTATION MARK ORNAMENT
+02770	HEAVY LEFT-POINTING ANGLE BRACKET ORNAMENT
+02771	HEAVY RIGHT-POINTING ANGLE BRACKET ORNAMENT
+02772	LIGHT LEFT TORTOISE SHELL BRACKET ORNAMENT
+02773	LIGHT RIGHT TORTOISE SHELL BRACKET ORNAMENT
+02774	MEDIUM LEFT CURLY BRACKET ORNAMENT
+02775	MEDIUM RIGHT CURLY BRACKET ORNAMENT
+02776	DINGBAT NEGATIVE CIRCLED DIGIT ONE
+02777	DINGBAT NEGATIVE CIRCLED DIGIT TWO
+02778	DINGBAT NEGATIVE CIRCLED DIGIT THREE
+02779	DINGBAT NEGATIVE CIRCLED DIGIT FOUR
+0277A	DINGBAT NEGATIVE CIRCLED DIGIT FIVE
+0277B	DINGBAT NEGATIVE CIRCLED DIGIT SIX
+0277C	DINGBAT NEGATIVE CIRCLED DIGIT SEVEN
+0277D	DINGBAT NEGATIVE CIRCLED DIGIT EIGHT
+0277E	DINGBAT NEGATIVE CIRCLED DIGIT NINE
+0277F	DINGBAT NEGATIVE CIRCLED NUMBER TEN
+02780	DINGBAT CIRCLED SANS-SERIF DIGIT ONE
+02781	DINGBAT CIRCLED SANS-SERIF DIGIT TWO
+02782	DINGBAT CIRCLED SANS-SERIF DIGIT THREE
+02783	DINGBAT CIRCLED SANS-SERIF DIGIT FOUR
+02784	DINGBAT CIRCLED SANS-SERIF DIGIT FIVE
+02785	DINGBAT CIRCLED SANS-SERIF DIGIT SIX
+02786	DINGBAT CIRCLED SANS-SERIF DIGIT SEVEN
+02787	DINGBAT CIRCLED SANS-SERIF DIGIT EIGHT
+02788	DINGBAT CIRCLED SANS-SERIF DIGIT NINE
+02789	DINGBAT CIRCLED SANS-SERIF NUMBER TEN
+0278A	DINGBAT NEGATIVE CIRCLED SANS-SERIF DIGIT ONE
+0278B	DINGBAT NEGATIVE CIRCLED SANS-SERIF DIGIT TWO
+0278C	DINGBAT NEGATIVE CIRCLED SANS-SERIF DIGIT THREE
+0278D	DINGBAT NEGATIVE CIRCLED SANS-SERIF DIGIT FOUR
+0278E	DINGBAT NEGATIVE CIRCLED SANS-SERIF DIGIT FIVE
+0278F	DINGBAT NEGATIVE CIRCLED SANS-SERIF DIGIT SIX
+02790	DINGBAT NEGATIVE CIRCLED SANS-SERIF DIGIT SEVEN
+02791	DINGBAT NEGATIVE CIRCLED SANS-SERIF DIGIT EIGHT
+02792	DINGBAT NEGATIVE CIRCLED SANS-SERIF DIGIT NINE
+02793	DINGBAT NEGATIVE CIRCLED SANS-SERIF NUMBER TEN
+02794	HEAVY WIDE-HEADED RIGHTWARDS ARROW
+02795	HEAVY PLUS SIGN
+02796	HEAVY MINUS SIGN
+02797	HEAVY DIVISION SIGN
+02798	HEAVY SOUTH EAST ARROW
+02799	HEAVY RIGHTWARDS ARROW
+0279A	HEAVY NORTH EAST ARROW
+0279B	DRAFTING POINT RIGHTWARDS ARROW
+0279C	HEAVY ROUND-TIPPED RIGHTWARDS ARROW
+0279D	TRIANGLE-HEADED RIGHTWARDS ARROW
+0279E	HEAVY TRIANGLE-HEADED RIGHTWARDS ARROW
+0279F	DASHED TRIANGLE-HEADED RIGHTWARDS ARROW
+027A0	HEAVY DASHED TRIANGLE-HEADED RIGHTWARDS ARROW
+027A1	BLACK RIGHTWARDS ARROW
+027A2	THREE-D TOP-LIGHTED RIGHTWARDS ARROWHEAD
+027A3	THREE-D BOTTOM-LIGHTED RIGHTWARDS ARROWHEAD
+027A4	BLACK RIGHTWARDS ARROWHEAD
+027A5	HEAVY BLACK CURVED DOWNWARDS AND RIGHTWARDS ARROW
+027A6	HEAVY BLACK CURVED UPWARDS AND RIGHTWARDS ARROW
+027A7	SQUAT BLACK RIGHTWARDS ARROW
+027A8	HEAVY CONCAVE-POINTED BLACK RIGHTWARDS ARROW
+027A9	RIGHT-SHADED WHITE RIGHTWARDS ARROW
+027AA	LEFT-SHADED WHITE RIGHTWARDS ARROW
+027AB	BACK-TILTED SHADOWED WHITE RIGHTWARDS ARROW
+027AC	FRONT-TILTED SHADOWED WHITE RIGHTWARDS ARROW
+027AD	HEAVY LOWER RIGHT-SHADOWED WHITE RIGHTWARDS ARROW
+027AE	HEAVY UPPER RIGHT-SHADOWED WHITE RIGHTWARDS ARROW
+027AF	NOTCHED LOWER RIGHT-SHADOWED WHITE RIGHTWARDS ARROW
+027B0	CURLY LOOP
+027B1	NOTCHED UPPER RIGHT-SHADOWED WHITE RIGHTWARDS ARROW
+027B2	CIRCLED HEAVY WHITE RIGHTWARDS ARROW
+027B3	WHITE-FEATHERED RIGHTWARDS ARROW
+027B4	BLACK-FEATHERED SOUTH EAST ARROW
+027B5	BLACK-FEATHERED RIGHTWARDS ARROW
+027B6	BLACK-FEATHERED NORTH EAST ARROW
+027B7	HEAVY BLACK-FEATHERED SOUTH EAST ARROW
+027B8	HEAVY BLACK-FEATHERED RIGHTWARDS ARROW
+027B9	HEAVY BLACK-FEATHERED NORTH EAST ARROW
+027BA	TEARDROP-BARBED RIGHTWARDS ARROW
+027BB	HEAVY TEARDROP-SHANKED RIGHTWARDS ARROW
+027BC	WEDGE-TAILED RIGHTWARDS ARROW
+027BD	HEAVY WEDGE-TAILED RIGHTWARDS ARROW
+027BE	OPEN-OUTLINED RIGHTWARDS ARROW
+027BF	DOUBLE CURLY LOOP
+027C0	THREE DIMENSIONAL ANGLE
+027C1	WHITE TRIANGLE CONTAINING SMALL WHITE TRIANGLE
+027C2	PERPENDICULAR
+027C3	OPEN SUBSET
+027C4	OPEN SUPERSET
+027C5	LEFT S-SHAPED BAG DELIMITER
+027C6	RIGHT S-SHAPED BAG DELIMITER
+027C7	OR WITH DOT INSIDE
+027C8	REVERSE SOLIDUS PRECEDING SUBSET
+027C9	SUPERSET PRECEDING SOLIDUS
+027CA	VERTICAL BAR WITH HORIZONTAL STROKE
+027CB	MATHEMATICAL RISING DIAGONAL
+027CC	LONG DIVISION
+027CD	MATHEMATICAL FALLING DIAGONAL
+027CE	SQUARED LOGICAL AND
+027CF	SQUARED LOGICAL OR
+027D0	WHITE DIAMOND WITH CENTRED DOT
+027D1	AND WITH DOT
+027D2	ELEMENT OF OPENING UPWARDS
+027D3	LOWER RIGHT CORNER WITH DOT
+027D4	UPPER LEFT CORNER WITH DOT
+027D5	LEFT OUTER JOIN
+027D6	RIGHT OUTER JOIN
+027D7	FULL OUTER JOIN
+027D8	LARGE UP TACK
+027D9	LARGE DOWN TACK
+027DA	LEFT AND RIGHT DOUBLE TURNSTILE
+027DB	LEFT AND RIGHT TACK
+027DC	LEFT MULTIMAP
+027DD	LONG RIGHT TACK
+027DE	LONG LEFT TACK
+027DF	UP TACK WITH CIRCLE ABOVE
+027E0	LOZENGE DIVIDED BY HORIZONTAL RULE
+027E1	WHITE CONCAVE-SIDED DIAMOND
+027E2	WHITE CONCAVE-SIDED DIAMOND WITH LEFTWARDS TICK
+027E3	WHITE CONCAVE-SIDED DIAMOND WITH RIGHTWARDS TICK
+027E4	WHITE SQUARE WITH LEFTWARDS TICK
+027E5	WHITE SQUARE WITH RIGHTWARDS TICK
+027E6	MATHEMATICAL LEFT WHITE SQUARE BRACKET
+027E7	MATHEMATICAL RIGHT WHITE SQUARE BRACKET
+027E8	MATHEMATICAL LEFT ANGLE BRACKET
+027E9	MATHEMATICAL RIGHT ANGLE BRACKET
+027EA	MATHEMATICAL LEFT DOUBLE ANGLE BRACKET
+027EB	MATHEMATICAL RIGHT DOUBLE ANGLE BRACKET
+027EC	MATHEMATICAL LEFT WHITE TORTOISE SHELL BRACKET
+027ED	MATHEMATICAL RIGHT WHITE TORTOISE SHELL BRACKET
+027EE	MATHEMATICAL LEFT FLATTENED PARENTHESIS
+027EF	MATHEMATICAL RIGHT FLATTENED PARENTHESIS
+027F0	UPWARDS QUADRUPLE ARROW
+027F1	DOWNWARDS QUADRUPLE ARROW
+027F2	ANTICLOCKWISE GAPPED CIRCLE ARROW
+027F3	CLOCKWISE GAPPED CIRCLE ARROW
+027F4	RIGHT ARROW WITH CIRCLED PLUS
+027F5	LONG LEFTWARDS ARROW
+027F6	LONG RIGHTWARDS ARROW
+027F7	LONG LEFT RIGHT ARROW
+027F8	LONG LEFTWARDS DOUBLE ARROW
+027F9	LONG RIGHTWARDS DOUBLE ARROW
+027FA	LONG LEFT RIGHT DOUBLE ARROW
+027FB	LONG LEFTWARDS ARROW FROM BAR
+027FC	LONG RIGHTWARDS ARROW FROM BAR
+027FD	LONG LEFTWARDS DOUBLE ARROW FROM BAR
+027FE	LONG RIGHTWARDS DOUBLE ARROW FROM BAR
+027FF	LONG RIGHTWARDS SQUIGGLE ARROW
+02800	BRAILLE PATTERN BLANK
+02801	BRAILLE PATTERN DOTS-1
+02802	BRAILLE PATTERN DOTS-2
+02803	BRAILLE PATTERN DOTS-12
+02804	BRAILLE PATTERN DOTS-3
+02805	BRAILLE PATTERN DOTS-13
+02806	BRAILLE PATTERN DOTS-23
+02807	BRAILLE PATTERN DOTS-123
+02808	BRAILLE PATTERN DOTS-4
+02809	BRAILLE PATTERN DOTS-14
+0280A	BRAILLE PATTERN DOTS-24
+0280B	BRAILLE PATTERN DOTS-124
+0280C	BRAILLE PATTERN DOTS-34
+0280D	BRAILLE PATTERN DOTS-134
+0280E	BRAILLE PATTERN DOTS-234
+0280F	BRAILLE PATTERN DOTS-1234
+02810	BRAILLE PATTERN DOTS-5
+02811	BRAILLE PATTERN DOTS-15
+02812	BRAILLE PATTERN DOTS-25
+02813	BRAILLE PATTERN DOTS-125
+02814	BRAILLE PATTERN DOTS-35
+02815	BRAILLE PATTERN DOTS-135
+02816	BRAILLE PATTERN DOTS-235
+02817	BRAILLE PATTERN DOTS-1235
+02818	BRAILLE PATTERN DOTS-45
+02819	BRAILLE PATTERN DOTS-145
+0281A	BRAILLE PATTERN DOTS-245
+0281B	BRAILLE PATTERN DOTS-1245
+0281C	BRAILLE PATTERN DOTS-345
+0281D	BRAILLE PATTERN DOTS-1345
+0281E	BRAILLE PATTERN DOTS-2345
+0281F	BRAILLE PATTERN DOTS-12345
+02820	BRAILLE PATTERN DOTS-6
+02821	BRAILLE PATTERN DOTS-16
+02822	BRAILLE PATTERN DOTS-26
+02823	BRAILLE PATTERN DOTS-126
+02824	BRAILLE PATTERN DOTS-36
+02825	BRAILLE PATTERN DOTS-136
+02826	BRAILLE PATTERN DOTS-236
+02827	BRAILLE PATTERN DOTS-1236
+02828	BRAILLE PATTERN DOTS-46
+02829	BRAILLE PATTERN DOTS-146
+0282A	BRAILLE PATTERN DOTS-246
+0282B	BRAILLE PATTERN DOTS-1246
+0282C	BRAILLE PATTERN DOTS-346
+0282D	BRAILLE PATTERN DOTS-1346
+0282E	BRAILLE PATTERN DOTS-2346
+0282F	BRAILLE PATTERN DOTS-12346
+02830	BRAILLE PATTERN DOTS-56
+02831	BRAILLE PATTERN DOTS-156
+02832	BRAILLE PATTERN DOTS-256
+02833	BRAILLE PATTERN DOTS-1256
+02834	BRAILLE PATTERN DOTS-356
+02835	BRAILLE PATTERN DOTS-1356
+02836	BRAILLE PATTERN DOTS-2356
+02837	BRAILLE PATTERN DOTS-12356
+02838	BRAILLE PATTERN DOTS-456
+02839	BRAILLE PATTERN DOTS-1456
+0283A	BRAILLE PATTERN DOTS-2456
+0283B	BRAILLE PATTERN DOTS-12456
+0283C	BRAILLE PATTERN DOTS-3456
+0283D	BRAILLE PATTERN DOTS-13456
+0283E	BRAILLE PATTERN DOTS-23456
+0283F	BRAILLE PATTERN DOTS-123456
+02840	BRAILLE PATTERN DOTS-7
+02841	BRAILLE PATTERN DOTS-17
+02842	BRAILLE PATTERN DOTS-27
+02843	BRAILLE PATTERN DOTS-127
+02844	BRAILLE PATTERN DOTS-37
+02845	BRAILLE PATTERN DOTS-137
+02846	BRAILLE PATTERN DOTS-237
+02847	BRAILLE PATTERN DOTS-1237
+02848	BRAILLE PATTERN DOTS-47
+02849	BRAILLE PATTERN DOTS-147
+0284A	BRAILLE PATTERN DOTS-247
+0284B	BRAILLE PATTERN DOTS-1247
+0284C	BRAILLE PATTERN DOTS-347
+0284D	BRAILLE PATTERN DOTS-1347
+0284E	BRAILLE PATTERN DOTS-2347
+0284F	BRAILLE PATTERN DOTS-12347
+02850	BRAILLE PATTERN DOTS-57
+02851	BRAILLE PATTERN DOTS-157
+02852	BRAILLE PATTERN DOTS-257
+02853	BRAILLE PATTERN DOTS-1257
+02854	BRAILLE PATTERN DOTS-357
+02855	BRAILLE PATTERN DOTS-1357
+02856	BRAILLE PATTERN DOTS-2357
+02857	BRAILLE PATTERN DOTS-12357
+02858	BRAILLE PATTERN DOTS-457
+02859	BRAILLE PATTERN DOTS-1457
+0285A	BRAILLE PATTERN DOTS-2457
+0285B	BRAILLE PATTERN DOTS-12457
+0285C	BRAILLE PATTERN DOTS-3457
+0285D	BRAILLE PATTERN DOTS-13457
+0285E	BRAILLE PATTERN DOTS-23457
+0285F	BRAILLE PATTERN DOTS-123457
+02860	BRAILLE PATTERN DOTS-67
+02861	BRAILLE PATTERN DOTS-167
+02862	BRAILLE PATTERN DOTS-267
+02863	BRAILLE PATTERN DOTS-1267
+02864	BRAILLE PATTERN DOTS-367
+02865	BRAILLE PATTERN DOTS-1367
+02866	BRAILLE PATTERN DOTS-2367
+02867	BRAILLE PATTERN DOTS-12367
+02868	BRAILLE PATTERN DOTS-467
+02869	BRAILLE PATTERN DOTS-1467
+0286A	BRAILLE PATTERN DOTS-2467
+0286B	BRAILLE PATTERN DOTS-12467
+0286C	BRAILLE PATTERN DOTS-3467
+0286D	BRAILLE PATTERN DOTS-13467
+0286E	BRAILLE PATTERN DOTS-23467
+0286F	BRAILLE PATTERN DOTS-123467
+02870	BRAILLE PATTERN DOTS-567
+02871	BRAILLE PATTERN DOTS-1567
+02872	BRAILLE PATTERN DOTS-2567
+02873	BRAILLE PATTERN DOTS-12567
+02874	BRAILLE PATTERN DOTS-3567
+02875	BRAILLE PATTERN DOTS-13567
+02876	BRAILLE PATTERN DOTS-23567
+02877	BRAILLE PATTERN DOTS-123567
+02878	BRAILLE PATTERN DOTS-4567
+02879	BRAILLE PATTERN DOTS-14567
+0287A	BRAILLE PATTERN DOTS-24567
+0287B	BRAILLE PATTERN DOTS-124567
+0287C	BRAILLE PATTERN DOTS-34567
+0287D	BRAILLE PATTERN DOTS-134567
+0287E	BRAILLE PATTERN DOTS-234567
+0287F	BRAILLE PATTERN DOTS-1234567
+02880	BRAILLE PATTERN DOTS-8
+02881	BRAILLE PATTERN DOTS-18
+02882	BRAILLE PATTERN DOTS-28
+02883	BRAILLE PATTERN DOTS-128
+02884	BRAILLE PATTERN DOTS-38
+02885	BRAILLE PATTERN DOTS-138
+02886	BRAILLE PATTERN DOTS-238
+02887	BRAILLE PATTERN DOTS-1238
+02888	BRAILLE PATTERN DOTS-48
+02889	BRAILLE PATTERN DOTS-148
+0288A	BRAILLE PATTERN DOTS-248
+0288B	BRAILLE PATTERN DOTS-1248
+0288C	BRAILLE PATTERN DOTS-348
+0288D	BRAILLE PATTERN DOTS-1348
+0288E	BRAILLE PATTERN DOTS-2348
+0288F	BRAILLE PATTERN DOTS-12348
+02890	BRAILLE PATTERN DOTS-58
+02891	BRAILLE PATTERN DOTS-158
+02892	BRAILLE PATTERN DOTS-258
+02893	BRAILLE PATTERN DOTS-1258
+02894	BRAILLE PATTERN DOTS-358
+02895	BRAILLE PATTERN DOTS-1358
+02896	BRAILLE PATTERN DOTS-2358
+02897	BRAILLE PATTERN DOTS-12358
+02898	BRAILLE PATTERN DOTS-458
+02899	BRAILLE PATTERN DOTS-1458
+0289A	BRAILLE PATTERN DOTS-2458
+0289B	BRAILLE PATTERN DOTS-12458
+0289C	BRAILLE PATTERN DOTS-3458
+0289D	BRAILLE PATTERN DOTS-13458
+0289E	BRAILLE PATTERN DOTS-23458
+0289F	BRAILLE PATTERN DOTS-123458
+028A0	BRAILLE PATTERN DOTS-68
+028A1	BRAILLE PATTERN DOTS-168
+028A2	BRAILLE PATTERN DOTS-268
+028A3	BRAILLE PATTERN DOTS-1268
+028A4	BRAILLE PATTERN DOTS-368
+028A5	BRAILLE PATTERN DOTS-1368
+028A6	BRAILLE PATTERN DOTS-2368
+028A7	BRAILLE PATTERN DOTS-12368
+028A8	BRAILLE PATTERN DOTS-468
+028A9	BRAILLE PATTERN DOTS-1468
+028AA	BRAILLE PATTERN DOTS-2468
+028AB	BRAILLE PATTERN DOTS-12468
+028AC	BRAILLE PATTERN DOTS-3468
+028AD	BRAILLE PATTERN DOTS-13468
+028AE	BRAILLE PATTERN DOTS-23468
+028AF	BRAILLE PATTERN DOTS-123468
+028B0	BRAILLE PATTERN DOTS-568
+028B1	BRAILLE PATTERN DOTS-1568
+028B2	BRAILLE PATTERN DOTS-2568
+028B3	BRAILLE PATTERN DOTS-12568
+028B4	BRAILLE PATTERN DOTS-3568
+028B5	BRAILLE PATTERN DOTS-13568
+028B6	BRAILLE PATTERN DOTS-23568
+028B7	BRAILLE PATTERN DOTS-123568
+028B8	BRAILLE PATTERN DOTS-4568
+028B9	BRAILLE PATTERN DOTS-14568
+028BA	BRAILLE PATTERN DOTS-24568
+028BB	BRAILLE PATTERN DOTS-124568
+028BC	BRAILLE PATTERN DOTS-34568
+028BD	BRAILLE PATTERN DOTS-134568
+028BE	BRAILLE PATTERN DOTS-234568
+028BF	BRAILLE PATTERN DOTS-1234568
+028C0	BRAILLE PATTERN DOTS-78
+028C1	BRAILLE PATTERN DOTS-178
+028C2	BRAILLE PATTERN DOTS-278
+028C3	BRAILLE PATTERN DOTS-1278
+028C4	BRAILLE PATTERN DOTS-378
+028C5	BRAILLE PATTERN DOTS-1378
+028C6	BRAILLE PATTERN DOTS-2378
+028C7	BRAILLE PATTERN DOTS-12378
+028C8	BRAILLE PATTERN DOTS-478
+028C9	BRAILLE PATTERN DOTS-1478
+028CA	BRAILLE PATTERN DOTS-2478
+028CB	BRAILLE PATTERN DOTS-12478
+028CC	BRAILLE PATTERN DOTS-3478
+028CD	BRAILLE PATTERN DOTS-13478
+028CE	BRAILLE PATTERN DOTS-23478
+028CF	BRAILLE PATTERN DOTS-123478
+028D0	BRAILLE PATTERN DOTS-578
+028D1	BRAILLE PATTERN DOTS-1578
+028D2	BRAILLE PATTERN DOTS-2578
+028D3	BRAILLE PATTERN DOTS-12578
+028D4	BRAILLE PATTERN DOTS-3578
+028D5	BRAILLE PATTERN DOTS-13578
+028D6	BRAILLE PATTERN DOTS-23578
+028D7	BRAILLE PATTERN DOTS-123578
+028D8	BRAILLE PATTERN DOTS-4578
+028D9	BRAILLE PATTERN DOTS-14578
+028DA	BRAILLE PATTERN DOTS-24578
+028DB	BRAILLE PATTERN DOTS-124578
+028DC	BRAILLE PATTERN DOTS-34578
+028DD	BRAILLE PATTERN DOTS-134578
+028DE	BRAILLE PATTERN DOTS-234578
+028DF	BRAILLE PATTERN DOTS-1234578
+028E0	BRAILLE PATTERN DOTS-678
+028E1	BRAILLE PATTERN DOTS-1678
+028E2	BRAILLE PATTERN DOTS-2678
+028E3	BRAILLE PATTERN DOTS-12678
+028E4	BRAILLE PATTERN DOTS-3678
+028E5	BRAILLE PATTERN DOTS-13678
+028E6	BRAILLE PATTERN DOTS-23678
+028E7	BRAILLE PATTERN DOTS-123678
+028E8	BRAILLE PATTERN DOTS-4678
+028E9	BRAILLE PATTERN DOTS-14678
+028EA	BRAILLE PATTERN DOTS-24678
+028EB	BRAILLE PATTERN DOTS-124678
+028EC	BRAILLE PATTERN DOTS-34678
+028ED	BRAILLE PATTERN DOTS-134678
+028EE	BRAILLE PATTERN DOTS-234678
+028EF	BRAILLE PATTERN DOTS-1234678
+028F0	BRAILLE PATTERN DOTS-5678
+028F1	BRAILLE PATTERN DOTS-15678
+028F2	BRAILLE PATTERN DOTS-25678
+028F3	BRAILLE PATTERN DOTS-125678
+028F4	BRAILLE PATTERN DOTS-35678
+028F5	BRAILLE PATTERN DOTS-135678
+028F6	BRAILLE PATTERN DOTS-235678
+028F7	BRAILLE PATTERN DOTS-1235678
+028F8	BRAILLE PATTERN DOTS-45678
+028F9	BRAILLE PATTERN DOTS-145678
+028FA	BRAILLE PATTERN DOTS-245678
+028FB	BRAILLE PATTERN DOTS-1245678
+028FC	BRAILLE PATTERN DOTS-345678
+028FD	BRAILLE PATTERN DOTS-1345678
+028FE	BRAILLE PATTERN DOTS-2345678
+028FF	BRAILLE PATTERN DOTS-12345678
+02900	RIGHTWARDS TWO-HEADED ARROW WITH VERTICAL STROKE
+02901	RIGHTWARDS TWO-HEADED ARROW WITH DOUBLE VERTICAL STROKE
+02902	LEFTWARDS DOUBLE ARROW WITH VERTICAL STROKE
+02903	RIGHTWARDS DOUBLE ARROW WITH VERTICAL STROKE
+02904	LEFT RIGHT DOUBLE ARROW WITH VERTICAL STROKE
+02905	RIGHTWARDS TWO-HEADED ARROW FROM BAR
+02906	LEFTWARDS DOUBLE ARROW FROM BAR
+02907	RIGHTWARDS DOUBLE ARROW FROM BAR
+02908	DOWNWARDS ARROW WITH HORIZONTAL STROKE
+02909	UPWARDS ARROW WITH HORIZONTAL STROKE
+0290A	UPWARDS TRIPLE ARROW
+0290B	DOWNWARDS TRIPLE ARROW
+0290C	LEFTWARDS DOUBLE DASH ARROW
+0290D	RIGHTWARDS DOUBLE DASH ARROW
+0290E	LEFTWARDS TRIPLE DASH ARROW
+0290F	RIGHTWARDS TRIPLE DASH ARROW
+02910	RIGHTWARDS TWO-HEADED TRIPLE DASH ARROW
+02911	RIGHTWARDS ARROW WITH DOTTED STEM
+02912	UPWARDS ARROW TO BAR
+02913	DOWNWARDS ARROW TO BAR
+02914	RIGHTWARDS ARROW WITH TAIL WITH VERTICAL STROKE
+02915	RIGHTWARDS ARROW WITH TAIL WITH DOUBLE VERTICAL STROKE
+02916	RIGHTWARDS TWO-HEADED ARROW WITH TAIL
+02917	RIGHTWARDS TWO-HEADED ARROW WITH TAIL WITH VERTICAL STROKE
+02918	RIGHTWARDS TWO-HEADED ARROW WITH TAIL WITH DOUBLE VERTICAL STROKE
+02919	LEFTWARDS ARROW-TAIL
+0291A	RIGHTWARDS ARROW-TAIL
+0291B	LEFTWARDS DOUBLE ARROW-TAIL
+0291C	RIGHTWARDS DOUBLE ARROW-TAIL
+0291D	LEFTWARDS ARROW TO BLACK DIAMOND
+0291E	RIGHTWARDS ARROW TO BLACK DIAMOND
+0291F	LEFTWARDS ARROW FROM BAR TO BLACK DIAMOND
+02920	RIGHTWARDS ARROW FROM BAR TO BLACK DIAMOND
+02921	NORTH WEST AND SOUTH EAST ARROW
+02922	NORTH EAST AND SOUTH WEST ARROW
+02923	NORTH WEST ARROW WITH HOOK
+02924	NORTH EAST ARROW WITH HOOK
+02925	SOUTH EAST ARROW WITH HOOK
+02926	SOUTH WEST ARROW WITH HOOK
+02927	NORTH WEST ARROW AND NORTH EAST ARROW
+02928	NORTH EAST ARROW AND SOUTH EAST ARROW
+02929	SOUTH EAST ARROW AND SOUTH WEST ARROW
+0292A	SOUTH WEST ARROW AND NORTH WEST ARROW
+0292B	RISING DIAGONAL CROSSING FALLING DIAGONAL
+0292C	FALLING DIAGONAL CROSSING RISING DIAGONAL
+0292D	SOUTH EAST ARROW CROSSING NORTH EAST ARROW
+0292E	NORTH EAST ARROW CROSSING SOUTH EAST ARROW
+0292F	FALLING DIAGONAL CROSSING NORTH EAST ARROW
+02930	RISING DIAGONAL CROSSING SOUTH EAST ARROW
+02931	NORTH EAST ARROW CROSSING NORTH WEST ARROW
+02932	NORTH WEST ARROW CROSSING NORTH EAST ARROW
+02933	WAVE ARROW POINTING DIRECTLY RIGHT
+02934	ARROW POINTING RIGHTWARDS THEN CURVING UPWARDS
+02935	ARROW POINTING RIGHTWARDS THEN CURVING DOWNWARDS
+02936	ARROW POINTING DOWNWARDS THEN CURVING LEFTWARDS
+02937	ARROW POINTING DOWNWARDS THEN CURVING RIGHTWARDS
+02938	RIGHT-SIDE ARC CLOCKWISE ARROW
+02939	LEFT-SIDE ARC ANTICLOCKWISE ARROW
+0293A	TOP ARC ANTICLOCKWISE ARROW
+0293B	BOTTOM ARC ANTICLOCKWISE ARROW
+0293C	TOP ARC CLOCKWISE ARROW WITH MINUS
+0293D	TOP ARC ANTICLOCKWISE ARROW WITH PLUS
+0293E	LOWER RIGHT SEMICIRCULAR CLOCKWISE ARROW
+0293F	LOWER LEFT SEMICIRCULAR ANTICLOCKWISE ARROW
+02940	ANTICLOCKWISE CLOSED CIRCLE ARROW
+02941	CLOCKWISE CLOSED CIRCLE ARROW
+02942	RIGHTWARDS ARROW ABOVE SHORT LEFTWARDS ARROW
+02943	LEFTWARDS ARROW ABOVE SHORT RIGHTWARDS ARROW
+02944	SHORT RIGHTWARDS ARROW ABOVE LEFTWARDS ARROW
+02945	RIGHTWARDS ARROW WITH PLUS BELOW
+02946	LEFTWARDS ARROW WITH PLUS BELOW
+02947	RIGHTWARDS ARROW THROUGH X
+02948	LEFT RIGHT ARROW THROUGH SMALL CIRCLE
+02949	UPWARDS TWO-HEADED ARROW FROM SMALL CIRCLE
+0294A	LEFT BARB UP RIGHT BARB DOWN HARPOON
+0294B	LEFT BARB DOWN RIGHT BARB UP HARPOON
+0294C	UP BARB RIGHT DOWN BARB LEFT HARPOON
+0294D	UP BARB LEFT DOWN BARB RIGHT HARPOON
+0294E	LEFT BARB UP RIGHT BARB UP HARPOON
+0294F	UP BARB RIGHT DOWN BARB RIGHT HARPOON
+02950	LEFT BARB DOWN RIGHT BARB DOWN HARPOON
+02951	UP BARB LEFT DOWN BARB LEFT HARPOON
+02952	LEFTWARDS HARPOON WITH BARB UP TO BAR
+02953	RIGHTWARDS HARPOON WITH BARB UP TO BAR
+02954	UPWARDS HARPOON WITH BARB RIGHT TO BAR
+02955	DOWNWARDS HARPOON WITH BARB RIGHT TO BAR
+02956	LEFTWARDS HARPOON WITH BARB DOWN TO BAR
+02957	RIGHTWARDS HARPOON WITH BARB DOWN TO BAR
+02958	UPWARDS HARPOON WITH BARB LEFT TO BAR
+02959	DOWNWARDS HARPOON WITH BARB LEFT TO BAR
+0295A	LEFTWARDS HARPOON WITH BARB UP FROM BAR
+0295B	RIGHTWARDS HARPOON WITH BARB UP FROM BAR
+0295C	UPWARDS HARPOON WITH BARB RIGHT FROM BAR
+0295D	DOWNWARDS HARPOON WITH BARB RIGHT FROM BAR
+0295E	LEFTWARDS HARPOON WITH BARB DOWN FROM BAR
+0295F	RIGHTWARDS HARPOON WITH BARB DOWN FROM BAR
+02960	UPWARDS HARPOON WITH BARB LEFT FROM BAR
+02961	DOWNWARDS HARPOON WITH BARB LEFT FROM BAR
+02962	LEFTWARDS HARPOON WITH BARB UP ABOVE LEFTWARDS HARPOON WITH BARB DOWN
+02963	UPWARDS HARPOON WITH BARB LEFT BESIDE UPWARDS HARPOON WITH BARB RIGHT
+02964	RIGHTWARDS HARPOON WITH BARB UP ABOVE RIGHTWARDS HARPOON WITH BARB DOWN
+02965	DOWNWARDS HARPOON WITH BARB LEFT BESIDE DOWNWARDS HARPOON WITH BARB RIGHT
+02966	LEFTWARDS HARPOON WITH BARB UP ABOVE RIGHTWARDS HARPOON WITH BARB UP
+02967	LEFTWARDS HARPOON WITH BARB DOWN ABOVE RIGHTWARDS HARPOON WITH BARB DOWN
+02968	RIGHTWARDS HARPOON WITH BARB UP ABOVE LEFTWARDS HARPOON WITH BARB UP
+02969	RIGHTWARDS HARPOON WITH BARB DOWN ABOVE LEFTWARDS HARPOON WITH BARB DOWN
+0296A	LEFTWARDS HARPOON WITH BARB UP ABOVE LONG DASH
+0296B	LEFTWARDS HARPOON WITH BARB DOWN BELOW LONG DASH
+0296C	RIGHTWARDS HARPOON WITH BARB UP ABOVE LONG DASH
+0296D	RIGHTWARDS HARPOON WITH BARB DOWN BELOW LONG DASH
+0296E	UPWARDS HARPOON WITH BARB LEFT BESIDE DOWNWARDS HARPOON WITH BARB RIGHT
+0296F	DOWNWARDS HARPOON WITH BARB LEFT BESIDE UPWARDS HARPOON WITH BARB RIGHT
+02970	RIGHT DOUBLE ARROW WITH ROUNDED HEAD
+02971	EQUALS SIGN ABOVE RIGHTWARDS ARROW
+02972	TILDE OPERATOR ABOVE RIGHTWARDS ARROW
+02973	LEFTWARDS ARROW ABOVE TILDE OPERATOR
+02974	RIGHTWARDS ARROW ABOVE TILDE OPERATOR
+02975	RIGHTWARDS ARROW ABOVE ALMOST EQUAL TO
+02976	LESS-THAN ABOVE LEFTWARDS ARROW
+02977	LEFTWARDS ARROW THROUGH LESS-THAN
+02978	GREATER-THAN ABOVE RIGHTWARDS ARROW
+02979	SUBSET ABOVE RIGHTWARDS ARROW
+0297A	LEFTWARDS ARROW THROUGH SUBSET
+0297B	SUPERSET ABOVE LEFTWARDS ARROW
+0297C	LEFT FISH TAIL
+0297D	RIGHT FISH TAIL
+0297E	UP FISH TAIL
+0297F	DOWN FISH TAIL
+02980	TRIPLE VERTICAL BAR DELIMITER
+02981	Z NOTATION SPOT
+02982	Z NOTATION TYPE COLON
+02983	LEFT WHITE CURLY BRACKET
+02984	RIGHT WHITE CURLY BRACKET
+02985	LEFT WHITE PARENTHESIS
+02986	RIGHT WHITE PARENTHESIS
+02987	Z NOTATION LEFT IMAGE BRACKET
+02988	Z NOTATION RIGHT IMAGE BRACKET
+02989	Z NOTATION LEFT BINDING BRACKET
+0298A	Z NOTATION RIGHT BINDING BRACKET
+0298B	LEFT SQUARE BRACKET WITH UNDERBAR
+0298C	RIGHT SQUARE BRACKET WITH UNDERBAR
+0298D	LEFT SQUARE BRACKET WITH TICK IN TOP CORNER
+0298E	RIGHT SQUARE BRACKET WITH TICK IN BOTTOM CORNER
+0298F	LEFT SQUARE BRACKET WITH TICK IN BOTTOM CORNER
+02990	RIGHT SQUARE BRACKET WITH TICK IN TOP CORNER
+02991	LEFT ANGLE BRACKET WITH DOT
+02992	RIGHT ANGLE BRACKET WITH DOT
+02993	LEFT ARC LESS-THAN BRACKET
+02994	RIGHT ARC GREATER-THAN BRACKET
+02995	DOUBLE LEFT ARC GREATER-THAN BRACKET
+02996	DOUBLE RIGHT ARC LESS-THAN BRACKET
+02997	LEFT BLACK TORTOISE SHELL BRACKET
+02998	RIGHT BLACK TORTOISE SHELL BRACKET
+02999	DOTTED FENCE
+0299A	VERTICAL ZIGZAG LINE
+0299B	MEASURED ANGLE OPENING LEFT
+0299C	RIGHT ANGLE VARIANT WITH SQUARE
+0299D	MEASURED RIGHT ANGLE WITH DOT
+0299E	ANGLE WITH S INSIDE
+0299F	ACUTE ANGLE
+029A0	SPHERICAL ANGLE OPENING LEFT
+029A1	SPHERICAL ANGLE OPENING UP
+029A2	TURNED ANGLE
+029A3	REVERSED ANGLE
+029A4	ANGLE WITH UNDERBAR
+029A5	REVERSED ANGLE WITH UNDERBAR
+029A6	OBLIQUE ANGLE OPENING UP
+029A7	OBLIQUE ANGLE OPENING DOWN
+029A8	MEASURED ANGLE WITH OPEN ARM ENDING IN ARROW POINTING UP AND RIGHT
+029A9	MEASURED ANGLE WITH OPEN ARM ENDING IN ARROW POINTING UP AND LEFT
+029AA	MEASURED ANGLE WITH OPEN ARM ENDING IN ARROW POINTING DOWN AND RIGHT
+029AB	MEASURED ANGLE WITH OPEN ARM ENDING IN ARROW POINTING DOWN AND LEFT
+029AC	MEASURED ANGLE WITH OPEN ARM ENDING IN ARROW POINTING RIGHT AND UP
+029AD	MEASURED ANGLE WITH OPEN ARM ENDING IN ARROW POINTING LEFT AND UP
+029AE	MEASURED ANGLE WITH OPEN ARM ENDING IN ARROW POINTING RIGHT AND DOWN
+029AF	MEASURED ANGLE WITH OPEN ARM ENDING IN ARROW POINTING LEFT AND DOWN
+029B0	REVERSED EMPTY SET
+029B1	EMPTY SET WITH OVERBAR
+029B2	EMPTY SET WITH SMALL CIRCLE ABOVE
+029B3	EMPTY SET WITH RIGHT ARROW ABOVE
+029B4	EMPTY SET WITH LEFT ARROW ABOVE
+029B5	CIRCLE WITH HORIZONTAL BAR
+029B6	CIRCLED VERTICAL BAR
+029B7	CIRCLED PARALLEL
+029B8	CIRCLED REVERSE SOLIDUS
+029B9	CIRCLED PERPENDICULAR
+029BA	CIRCLE DIVIDED BY HORIZONTAL BAR AND TOP HALF DIVIDED BY VERTICAL BAR
+029BB	CIRCLE WITH SUPERIMPOSED X
+029BC	CIRCLED ANTICLOCKWISE-ROTATED DIVISION SIGN
+029BD	UP ARROW THROUGH CIRCLE
+029BE	CIRCLED WHITE BULLET
+029BF	CIRCLED BULLET
+029C0	CIRCLED LESS-THAN
+029C1	CIRCLED GREATER-THAN
+029C2	CIRCLE WITH SMALL CIRCLE TO THE RIGHT
+029C3	CIRCLE WITH TWO HORIZONTAL STROKES TO THE RIGHT
+029C4	SQUARED RISING DIAGONAL SLASH
+029C5	SQUARED FALLING DIAGONAL SLASH
+029C6	SQUARED ASTERISK
+029C7	SQUARED SMALL CIRCLE
+029C8	SQUARED SQUARE
+029C9	TWO JOINED SQUARES
+029CA	TRIANGLE WITH DOT ABOVE
+029CB	TRIANGLE WITH UNDERBAR
+029CC	S IN TRIANGLE
+029CD	TRIANGLE WITH SERIFS AT BOTTOM
+029CE	RIGHT TRIANGLE ABOVE LEFT TRIANGLE
+029CF	LEFT TRIANGLE BESIDE VERTICAL BAR
+029D0	VERTICAL BAR BESIDE RIGHT TRIANGLE
+029D1	BOWTIE WITH LEFT HALF BLACK
+029D2	BOWTIE WITH RIGHT HALF BLACK
+029D3	BLACK BOWTIE
+029D4	TIMES WITH LEFT HALF BLACK
+029D5	TIMES WITH RIGHT HALF BLACK
+029D6	WHITE HOURGLASS
+029D7	BLACK HOURGLASS
+029D8	LEFT WIGGLY FENCE
+029D9	RIGHT WIGGLY FENCE
+029DA	LEFT DOUBLE WIGGLY FENCE
+029DB	RIGHT DOUBLE WIGGLY FENCE
+029DC	INCOMPLETE INFINITY
+029DD	TIE OVER INFINITY
+029DE	INFINITY NEGATED WITH VERTICAL BAR
+029DF	DOUBLE-ENDED MULTIMAP
+029E0	SQUARE WITH CONTOURED OUTLINE
+029E1	INCREASES AS
+029E2	SHUFFLE PRODUCT
+029E3	EQUALS SIGN AND SLANTED PARALLEL
+029E4	EQUALS SIGN AND SLANTED PARALLEL WITH TILDE ABOVE
+029E5	IDENTICAL TO AND SLANTED PARALLEL
+029E6	GLEICH STARK
+029E7	THERMODYNAMIC
+029E8	DOWN-POINTING TRIANGLE WITH LEFT HALF BLACK
+029E9	DOWN-POINTING TRIANGLE WITH RIGHT HALF BLACK
+029EA	BLACK DIAMOND WITH DOWN ARROW
+029EB	BLACK LOZENGE
+029EC	WHITE CIRCLE WITH DOWN ARROW
+029ED	BLACK CIRCLE WITH DOWN ARROW
+029EE	ERROR-BARRED WHITE SQUARE
+029EF	ERROR-BARRED BLACK SQUARE
+029F0	ERROR-BARRED WHITE DIAMOND
+029F1	ERROR-BARRED BLACK DIAMOND
+029F2	ERROR-BARRED WHITE CIRCLE
+029F3	ERROR-BARRED BLACK CIRCLE
+029F4	RULE-DELAYED
+029F5	REVERSE SOLIDUS OPERATOR
+029F6	SOLIDUS WITH OVERBAR
+029F7	REVERSE SOLIDUS WITH HORIZONTAL STROKE
+029F8	BIG SOLIDUS
+029F9	BIG REVERSE SOLIDUS
+029FA	DOUBLE PLUS
+029FB	TRIPLE PLUS
+029FC	LEFT-POINTING CURVED ANGLE BRACKET
+029FD	RIGHT-POINTING CURVED ANGLE BRACKET
+029FE	TINY
+029FF	MINY
+02A00	N-ARY CIRCLED DOT OPERATOR
+02A01	N-ARY CIRCLED PLUS OPERATOR
+02A02	N-ARY CIRCLED TIMES OPERATOR
+02A03	N-ARY UNION OPERATOR WITH DOT
+02A04	N-ARY UNION OPERATOR WITH PLUS
+02A05	N-ARY SQUARE INTERSECTION OPERATOR
+02A06	N-ARY SQUARE UNION OPERATOR
+02A07	TWO LOGICAL AND OPERATOR
+02A08	TWO LOGICAL OR OPERATOR
+02A09	N-ARY TIMES OPERATOR
+02A0A	MODULO TWO SUM
+02A0B	SUMMATION WITH INTEGRAL
+02A0C	QUADRUPLE INTEGRAL OPERATOR
+02A0D	FINITE PART INTEGRAL
+02A0E	INTEGRAL WITH DOUBLE STROKE
+02A0F	INTEGRAL AVERAGE WITH SLASH
+02A10	CIRCULATION FUNCTION
+02A11	ANTICLOCKWISE INTEGRATION
+02A12	LINE INTEGRATION WITH RECTANGULAR PATH AROUND POLE
+02A13	LINE INTEGRATION WITH SEMICIRCULAR PATH AROUND POLE
+02A14	LINE INTEGRATION NOT INCLUDING THE POLE
+02A15	INTEGRAL AROUND A POINT OPERATOR
+02A16	QUATERNION INTEGRAL OPERATOR
+02A17	INTEGRAL WITH LEFTWARDS ARROW WITH HOOK
+02A18	INTEGRAL WITH TIMES SIGN
+02A19	INTEGRAL WITH INTERSECTION
+02A1A	INTEGRAL WITH UNION
+02A1B	INTEGRAL WITH OVERBAR
+02A1C	INTEGRAL WITH UNDERBAR
+02A1D	JOIN
+02A1E	LARGE LEFT TRIANGLE OPERATOR
+02A1F	Z NOTATION SCHEMA COMPOSITION
+02A20	Z NOTATION SCHEMA PIPING
+02A21	Z NOTATION SCHEMA PROJECTION
+02A22	PLUS SIGN WITH SMALL CIRCLE ABOVE
+02A23	PLUS SIGN WITH CIRCUMFLEX ACCENT ABOVE
+02A24	PLUS SIGN WITH TILDE ABOVE
+02A25	PLUS SIGN WITH DOT BELOW
+02A26	PLUS SIGN WITH TILDE BELOW
+02A27	PLUS SIGN WITH SUBSCRIPT TWO
+02A28	PLUS SIGN WITH BLACK TRIANGLE
+02A29	MINUS SIGN WITH COMMA ABOVE
+02A2A	MINUS SIGN WITH DOT BELOW
+02A2B	MINUS SIGN WITH FALLING DOTS
+02A2C	MINUS SIGN WITH RISING DOTS
+02A2D	PLUS SIGN IN LEFT HALF CIRCLE
+02A2E	PLUS SIGN IN RIGHT HALF CIRCLE
+02A2F	VECTOR OR CROSS PRODUCT
+02A30	MULTIPLICATION SIGN WITH DOT ABOVE
+02A31	MULTIPLICATION SIGN WITH UNDERBAR
+02A32	SEMIDIRECT PRODUCT WITH BOTTOM CLOSED
+02A33	SMASH PRODUCT
+02A34	MULTIPLICATION SIGN IN LEFT HALF CIRCLE
+02A35	MULTIPLICATION SIGN IN RIGHT HALF CIRCLE
+02A36	CIRCLED MULTIPLICATION SIGN WITH CIRCUMFLEX ACCENT
+02A37	MULTIPLICATION SIGN IN DOUBLE CIRCLE
+02A38	CIRCLED DIVISION SIGN
+02A39	PLUS SIGN IN TRIANGLE
+02A3A	MINUS SIGN IN TRIANGLE
+02A3B	MULTIPLICATION SIGN IN TRIANGLE
+02A3C	INTERIOR PRODUCT
+02A3D	RIGHTHAND INTERIOR PRODUCT
+02A3E	Z NOTATION RELATIONAL COMPOSITION
+02A3F	AMALGAMATION OR COPRODUCT
+02A40	INTERSECTION WITH DOT
+02A41	UNION WITH MINUS SIGN
+02A42	UNION WITH OVERBAR
+02A43	INTERSECTION WITH OVERBAR
+02A44	INTERSECTION WITH LOGICAL AND
+02A45	UNION WITH LOGICAL OR
+02A46	UNION ABOVE INTERSECTION
+02A47	INTERSECTION ABOVE UNION
+02A48	UNION ABOVE BAR ABOVE INTERSECTION
+02A49	INTERSECTION ABOVE BAR ABOVE UNION
+02A4A	UNION BESIDE AND JOINED WITH UNION
+02A4B	INTERSECTION BESIDE AND JOINED WITH INTERSECTION
+02A4C	CLOSED UNION WITH SERIFS
+02A4D	CLOSED INTERSECTION WITH SERIFS
+02A4E	DOUBLE SQUARE INTERSECTION
+02A4F	DOUBLE SQUARE UNION
+02A50	CLOSED UNION WITH SERIFS AND SMASH PRODUCT
+02A51	LOGICAL AND WITH DOT ABOVE
+02A52	LOGICAL OR WITH DOT ABOVE
+02A53	DOUBLE LOGICAL AND
+02A54	DOUBLE LOGICAL OR
+02A55	TWO INTERSECTING LOGICAL AND
+02A56	TWO INTERSECTING LOGICAL OR
+02A57	SLOPING LARGE OR
+02A58	SLOPING LARGE AND
+02A59	LOGICAL OR OVERLAPPING LOGICAL AND
+02A5A	LOGICAL AND WITH MIDDLE STEM
+02A5B	LOGICAL OR WITH MIDDLE STEM
+02A5C	LOGICAL AND WITH HORIZONTAL DASH
+02A5D	LOGICAL OR WITH HORIZONTAL DASH
+02A5E	LOGICAL AND WITH DOUBLE OVERBAR
+02A5F	LOGICAL AND WITH UNDERBAR
+02A60	LOGICAL AND WITH DOUBLE UNDERBAR
+02A61	SMALL VEE WITH UNDERBAR
+02A62	LOGICAL OR WITH DOUBLE OVERBAR
+02A63	LOGICAL OR WITH DOUBLE UNDERBAR
+02A64	Z NOTATION DOMAIN ANTIRESTRICTION
+02A65	Z NOTATION RANGE ANTIRESTRICTION
+02A66	EQUALS SIGN WITH DOT BELOW
+02A67	IDENTICAL WITH DOT ABOVE
+02A68	TRIPLE HORIZONTAL BAR WITH DOUBLE VERTICAL STROKE
+02A69	TRIPLE HORIZONTAL BAR WITH TRIPLE VERTICAL STROKE
+02A6A	TILDE OPERATOR WITH DOT ABOVE
+02A6B	TILDE OPERATOR WITH RISING DOTS
+02A6C	SIMILAR MINUS SIMILAR
+02A6D	CONGRUENT WITH DOT ABOVE
+02A6E	EQUALS WITH ASTERISK
+02A6F	ALMOST EQUAL TO WITH CIRCUMFLEX ACCENT
+02A70	APPROXIMATELY EQUAL OR EQUAL TO
+02A71	EQUALS SIGN ABOVE PLUS SIGN
+02A72	PLUS SIGN ABOVE EQUALS SIGN
+02A73	EQUALS SIGN ABOVE TILDE OPERATOR
+02A74	DOUBLE COLON EQUAL
+02A75	TWO CONSECUTIVE EQUALS SIGNS
+02A76	THREE CONSECUTIVE EQUALS SIGNS
+02A77	EQUALS SIGN WITH TWO DOTS ABOVE AND TWO DOTS BELOW
+02A78	EQUIVALENT WITH FOUR DOTS ABOVE
+02A79	LESS-THAN WITH CIRCLE INSIDE
+02A7A	GREATER-THAN WITH CIRCLE INSIDE
+02A7B	LESS-THAN WITH QUESTION MARK ABOVE
+02A7C	GREATER-THAN WITH QUESTION MARK ABOVE
+02A7D	LESS-THAN OR SLANTED EQUAL TO
+02A7E	GREATER-THAN OR SLANTED EQUAL TO
+02A7F	LESS-THAN OR SLANTED EQUAL TO WITH DOT INSIDE
+02A80	GREATER-THAN OR SLANTED EQUAL TO WITH DOT INSIDE
+02A81	LESS-THAN OR SLANTED EQUAL TO WITH DOT ABOVE
+02A82	GREATER-THAN OR SLANTED EQUAL TO WITH DOT ABOVE
+02A83	LESS-THAN OR SLANTED EQUAL TO WITH DOT ABOVE RIGHT
+02A84	GREATER-THAN OR SLANTED EQUAL TO WITH DOT ABOVE LEFT
+02A85	LESS-THAN OR APPROXIMATE
+02A86	GREATER-THAN OR APPROXIMATE
+02A87	LESS-THAN AND SINGLE-LINE NOT EQUAL TO
+02A88	GREATER-THAN AND SINGLE-LINE NOT EQUAL TO
+02A89	LESS-THAN AND NOT APPROXIMATE
+02A8A	GREATER-THAN AND NOT APPROXIMATE
+02A8B	LESS-THAN ABOVE DOUBLE-LINE EQUAL ABOVE GREATER-THAN
+02A8C	GREATER-THAN ABOVE DOUBLE-LINE EQUAL ABOVE LESS-THAN
+02A8D	LESS-THAN ABOVE SIMILAR OR EQUAL
+02A8E	GREATER-THAN ABOVE SIMILAR OR EQUAL
+02A8F	LESS-THAN ABOVE SIMILAR ABOVE GREATER-THAN
+02A90	GREATER-THAN ABOVE SIMILAR ABOVE LESS-THAN
+02A91	LESS-THAN ABOVE GREATER-THAN ABOVE DOUBLE-LINE EQUAL
+02A92	GREATER-THAN ABOVE LESS-THAN ABOVE DOUBLE-LINE EQUAL
+02A93	LESS-THAN ABOVE SLANTED EQUAL ABOVE GREATER-THAN ABOVE SLANTED EQUAL
+02A94	GREATER-THAN ABOVE SLANTED EQUAL ABOVE LESS-THAN ABOVE SLANTED EQUAL
+02A95	SLANTED EQUAL TO OR LESS-THAN
+02A96	SLANTED EQUAL TO OR GREATER-THAN
+02A97	SLANTED EQUAL TO OR LESS-THAN WITH DOT INSIDE
+02A98	SLANTED EQUAL TO OR GREATER-THAN WITH DOT INSIDE
+02A99	DOUBLE-LINE EQUAL TO OR LESS-THAN
+02A9A	DOUBLE-LINE EQUAL TO OR GREATER-THAN
+02A9B	DOUBLE-LINE SLANTED EQUAL TO OR LESS-THAN
+02A9C	DOUBLE-LINE SLANTED EQUAL TO OR GREATER-THAN
+02A9D	SIMILAR OR LESS-THAN
+02A9E	SIMILAR OR GREATER-THAN
+02A9F	SIMILAR ABOVE LESS-THAN ABOVE EQUALS SIGN
+02AA0	SIMILAR ABOVE GREATER-THAN ABOVE EQUALS SIGN
+02AA1	DOUBLE NESTED LESS-THAN
+02AA2	DOUBLE NESTED GREATER-THAN
+02AA3	DOUBLE NESTED LESS-THAN WITH UNDERBAR
+02AA4	GREATER-THAN OVERLAPPING LESS-THAN
+02AA5	GREATER-THAN BESIDE LESS-THAN
+02AA6	LESS-THAN CLOSED BY CURVE
+02AA7	GREATER-THAN CLOSED BY CURVE
+02AA8	LESS-THAN CLOSED BY CURVE ABOVE SLANTED EQUAL
+02AA9	GREATER-THAN CLOSED BY CURVE ABOVE SLANTED EQUAL
+02AAA	SMALLER THAN
+02AAB	LARGER THAN
+02AAC	SMALLER THAN OR EQUAL TO
+02AAD	LARGER THAN OR EQUAL TO
+02AAE	EQUALS SIGN WITH BUMPY ABOVE
+02AAF	PRECEDES ABOVE SINGLE-LINE EQUALS SIGN
+02AB0	SUCCEEDS ABOVE SINGLE-LINE EQUALS SIGN
+02AB1	PRECEDES ABOVE SINGLE-LINE NOT EQUAL TO
+02AB2	SUCCEEDS ABOVE SINGLE-LINE NOT EQUAL TO
+02AB3	PRECEDES ABOVE EQUALS SIGN
+02AB4	SUCCEEDS ABOVE EQUALS SIGN
+02AB5	PRECEDES ABOVE NOT EQUAL TO
+02AB6	SUCCEEDS ABOVE NOT EQUAL TO
+02AB7	PRECEDES ABOVE ALMOST EQUAL TO
+02AB8	SUCCEEDS ABOVE ALMOST EQUAL TO
+02AB9	PRECEDES ABOVE NOT ALMOST EQUAL TO
+02ABA	SUCCEEDS ABOVE NOT ALMOST EQUAL TO
+02ABB	DOUBLE PRECEDES
+02ABC	DOUBLE SUCCEEDS
+02ABD	SUBSET WITH DOT
+02ABE	SUPERSET WITH DOT
+02ABF	SUBSET WITH PLUS SIGN BELOW
+02AC0	SUPERSET WITH PLUS SIGN BELOW
+02AC1	SUBSET WITH MULTIPLICATION SIGN BELOW
+02AC2	SUPERSET WITH MULTIPLICATION SIGN BELOW
+02AC3	SUBSET OF OR EQUAL TO WITH DOT ABOVE
+02AC4	SUPERSET OF OR EQUAL TO WITH DOT ABOVE
+02AC5	SUBSET OF ABOVE EQUALS SIGN
+02AC6	SUPERSET OF ABOVE EQUALS SIGN
+02AC7	SUBSET OF ABOVE TILDE OPERATOR
+02AC8	SUPERSET OF ABOVE TILDE OPERATOR
+02AC9	SUBSET OF ABOVE ALMOST EQUAL TO
+02ACA	SUPERSET OF ABOVE ALMOST EQUAL TO
+02ACB	SUBSET OF ABOVE NOT EQUAL TO
+02ACC	SUPERSET OF ABOVE NOT EQUAL TO
+02ACD	SQUARE LEFT OPEN BOX OPERATOR
+02ACE	SQUARE RIGHT OPEN BOX OPERATOR
+02ACF	CLOSED SUBSET
+02AD0	CLOSED SUPERSET
+02AD1	CLOSED SUBSET OR EQUAL TO
+02AD2	CLOSED SUPERSET OR EQUAL TO
+02AD3	SUBSET ABOVE SUPERSET
+02AD4	SUPERSET ABOVE SUBSET
+02AD5	SUBSET ABOVE SUBSET
+02AD6	SUPERSET ABOVE SUPERSET
+02AD7	SUPERSET BESIDE SUBSET
+02AD8	SUPERSET BESIDE AND JOINED BY DASH WITH SUBSET
+02AD9	ELEMENT OF OPENING DOWNWARDS
+02ADA	PITCHFORK WITH TEE TOP
+02ADB	TRANSVERSAL INTERSECTION
+02ADC	FORKING
+02ADD	NONFORKING
+02ADE	SHORT LEFT TACK
+02ADF	SHORT DOWN TACK
+02AE0	SHORT UP TACK
+02AE1	PERPENDICULAR WITH S
+02AE2	VERTICAL BAR TRIPLE RIGHT TURNSTILE
+02AE3	DOUBLE VERTICAL BAR LEFT TURNSTILE
+02AE4	VERTICAL BAR DOUBLE LEFT TURNSTILE
+02AE5	DOUBLE VERTICAL BAR DOUBLE LEFT TURNSTILE
+02AE6	LONG DASH FROM LEFT MEMBER OF DOUBLE VERTICAL
+02AE7	SHORT DOWN TACK WITH OVERBAR
+02AE8	SHORT UP TACK WITH UNDERBAR
+02AE9	SHORT UP TACK ABOVE SHORT DOWN TACK
+02AEA	DOUBLE DOWN TACK
+02AEB	DOUBLE UP TACK
+02AEC	DOUBLE STROKE NOT SIGN
+02AED	REVERSED DOUBLE STROKE NOT SIGN
+02AEE	DOES NOT DIVIDE WITH REVERSED NEGATION SLASH
+02AEF	VERTICAL LINE WITH CIRCLE ABOVE
+02AF0	VERTICAL LINE WITH CIRCLE BELOW
+02AF1	DOWN TACK WITH CIRCLE BELOW
+02AF2	PARALLEL WITH HORIZONTAL STROKE
+02AF3	PARALLEL WITH TILDE OPERATOR
+02AF4	TRIPLE VERTICAL BAR BINARY RELATION
+02AF5	TRIPLE VERTICAL BAR WITH HORIZONTAL STROKE
+02AF6	TRIPLE COLON OPERATOR
+02AF7	TRIPLE NESTED LESS-THAN
+02AF8	TRIPLE NESTED GREATER-THAN
+02AF9	DOUBLE-LINE SLANTED LESS-THAN OR EQUAL TO
+02AFA	DOUBLE-LINE SLANTED GREATER-THAN OR EQUAL TO
+02AFB	TRIPLE SOLIDUS BINARY RELATION
+02AFC	LARGE TRIPLE VERTICAL BAR OPERATOR
+02AFD	DOUBLE SOLIDUS OPERATOR
+02AFE	WHITE VERTICAL BAR
+02AFF	N-ARY WHITE VERTICAL BAR
+02B00	NORTH EAST WHITE ARROW
+02B01	NORTH WEST WHITE ARROW
+02B02	SOUTH EAST WHITE ARROW
+02B03	SOUTH WEST WHITE ARROW
+02B04	LEFT RIGHT WHITE ARROW
+02B05	LEFTWARDS BLACK ARROW
+02B06	UPWARDS BLACK ARROW
+02B07	DOWNWARDS BLACK ARROW
+02B08	NORTH EAST BLACK ARROW
+02B09	NORTH WEST BLACK ARROW
+02B0A	SOUTH EAST BLACK ARROW
+02B0B	SOUTH WEST BLACK ARROW
+02B0C	LEFT RIGHT BLACK ARROW
+02B0D	UP DOWN BLACK ARROW
+02B0E	RIGHTWARDS ARROW WITH TIP DOWNWARDS
+02B0F	RIGHTWARDS ARROW WITH TIP UPWARDS
+02B10	LEFTWARDS ARROW WITH TIP DOWNWARDS
+02B11	LEFTWARDS ARROW WITH TIP UPWARDS
+02B12	SQUARE WITH TOP HALF BLACK
+02B13	SQUARE WITH BOTTOM HALF BLACK
+02B14	SQUARE WITH UPPER RIGHT DIAGONAL HALF BLACK
+02B15	SQUARE WITH LOWER LEFT DIAGONAL HALF BLACK
+02B16	DIAMOND WITH LEFT HALF BLACK
+02B17	DIAMOND WITH RIGHT HALF BLACK
+02B18	DIAMOND WITH TOP HALF BLACK
+02B19	DIAMOND WITH BOTTOM HALF BLACK
+02B1A	DOTTED SQUARE
+02B1B	BLACK LARGE SQUARE
+02B1C	WHITE LARGE SQUARE
+02B1D	BLACK VERY SMALL SQUARE
+02B1E	WHITE VERY SMALL SQUARE
+02B1F	BLACK PENTAGON
+02B20	WHITE PENTAGON
+02B21	WHITE HEXAGON
+02B22	BLACK HEXAGON
+02B23	HORIZONTAL BLACK HEXAGON
+02B24	BLACK LARGE CIRCLE
+02B25	BLACK MEDIUM DIAMOND
+02B26	WHITE MEDIUM DIAMOND
+02B27	BLACK MEDIUM LOZENGE
+02B28	WHITE MEDIUM LOZENGE
+02B29	BLACK SMALL DIAMOND
+02B2A	BLACK SMALL LOZENGE
+02B2B	WHITE SMALL LOZENGE
+02B2C	BLACK HORIZONTAL ELLIPSE
+02B2D	WHITE HORIZONTAL ELLIPSE
+02B2E	BLACK VERTICAL ELLIPSE
+02B2F	WHITE VERTICAL ELLIPSE
+02B30	LEFT ARROW WITH SMALL CIRCLE
+02B31	THREE LEFTWARDS ARROWS
+02B32	LEFT ARROW WITH CIRCLED PLUS
+02B33	LONG LEFTWARDS SQUIGGLE ARROW
+02B34	LEFTWARDS TWO-HEADED ARROW WITH VERTICAL STROKE
+02B35	LEFTWARDS TWO-HEADED ARROW WITH DOUBLE VERTICAL STROKE
+02B36	LEFTWARDS TWO-HEADED ARROW FROM BAR
+02B37	LEFTWARDS TWO-HEADED TRIPLE DASH ARROW
+02B38	LEFTWARDS ARROW WITH DOTTED STEM
+02B39	LEFTWARDS ARROW WITH TAIL WITH VERTICAL STROKE
+02B3A	LEFTWARDS ARROW WITH TAIL WITH DOUBLE VERTICAL STROKE
+02B3B	LEFTWARDS TWO-HEADED ARROW WITH TAIL
+02B3C	LEFTWARDS TWO-HEADED ARROW WITH TAIL WITH VERTICAL STROKE
+02B3D	LEFTWARDS TWO-HEADED ARROW WITH TAIL WITH DOUBLE VERTICAL STROKE
+02B3E	LEFTWARDS ARROW THROUGH X
+02B3F	WAVE ARROW POINTING DIRECTLY LEFT
+02B40	EQUALS SIGN ABOVE LEFTWARDS ARROW
+02B41	REVERSE TILDE OPERATOR ABOVE LEFTWARDS ARROW
+02B42	LEFTWARDS ARROW ABOVE REVERSE ALMOST EQUAL TO
+02B43	RIGHTWARDS ARROW THROUGH GREATER-THAN
+02B44	RIGHTWARDS ARROW THROUGH SUPERSET
+02B45	LEFTWARDS QUADRUPLE ARROW
+02B46	RIGHTWARDS QUADRUPLE ARROW
+02B47	REVERSE TILDE OPERATOR ABOVE RIGHTWARDS ARROW
+02B48	RIGHTWARDS ARROW ABOVE REVERSE ALMOST EQUAL TO
+02B49	TILDE OPERATOR ABOVE LEFTWARDS ARROW
+02B4A	LEFTWARDS ARROW ABOVE ALMOST EQUAL TO
+02B4B	LEFTWARDS ARROW ABOVE REVERSE TILDE OPERATOR
+02B4C	RIGHTWARDS ARROW ABOVE REVERSE TILDE OPERATOR
+02B4D	DOWNWARDS TRIANGLE-HEADED ZIGZAG ARROW
+02B4E	SHORT SLANTED NORTH ARROW
+02B4F	SHORT BACKSLANTED SOUTH ARROW
+02B50	WHITE MEDIUM STAR
+02B51	BLACK SMALL STAR
+02B52	WHITE SMALL STAR
+02B53	BLACK RIGHT-POINTING PENTAGON
+02B54	WHITE RIGHT-POINTING PENTAGON
+02B55	HEAVY LARGE CIRCLE
+02B56	HEAVY OVAL WITH OVAL INSIDE
+02B57	HEAVY CIRCLE WITH CIRCLE INSIDE
+02B58	HEAVY CIRCLE
+02B59	HEAVY CIRCLED SALTIRE
+02B5A	SLANTED NORTH ARROW WITH HOOKED HEAD
+02B5B	BACKSLANTED SOUTH ARROW WITH HOOKED TAIL
+02B5C	SLANTED NORTH ARROW WITH HORIZONTAL TAIL
+02B5D	BACKSLANTED SOUTH ARROW WITH HORIZONTAL TAIL
+02B5E	BENT ARROW POINTING DOWNWARDS THEN NORTH EAST
+02B5F	SHORT BENT ARROW POINTING DOWNWARDS THEN NORTH EAST
+02B60	LEFTWARDS TRIANGLE-HEADED ARROW
+02B61	UPWARDS TRIANGLE-HEADED ARROW
+02B62	RIGHTWARDS TRIANGLE-HEADED ARROW
+02B63	DOWNWARDS TRIANGLE-HEADED ARROW
+02B64	LEFT RIGHT TRIANGLE-HEADED ARROW
+02B65	UP DOWN TRIANGLE-HEADED ARROW
+02B66	NORTH WEST TRIANGLE-HEADED ARROW
+02B67	NORTH EAST TRIANGLE-HEADED ARROW
+02B68	SOUTH EAST TRIANGLE-HEADED ARROW
+02B69	SOUTH WEST TRIANGLE-HEADED ARROW
+02B6A	LEFTWARDS TRIANGLE-HEADED DASHED ARROW
+02B6B	UPWARDS TRIANGLE-HEADED DASHED ARROW
+02B6C	RIGHTWARDS TRIANGLE-HEADED DASHED ARROW
+02B6D	DOWNWARDS TRIANGLE-HEADED DASHED ARROW
+02B6E	CLOCKWISE TRIANGLE-HEADED OPEN CIRCLE ARROW
+02B6F	ANTICLOCKWISE TRIANGLE-HEADED OPEN CIRCLE ARROW
+02B70	LEFTWARDS TRIANGLE-HEADED ARROW TO BAR
+02B71	UPWARDS TRIANGLE-HEADED ARROW TO BAR
+02B72	RIGHTWARDS TRIANGLE-HEADED ARROW TO BAR
+02B73	DOWNWARDS TRIANGLE-HEADED ARROW TO BAR
+02B76	NORTH WEST TRIANGLE-HEADED ARROW TO BAR
+02B77	NORTH EAST TRIANGLE-HEADED ARROW TO BAR
+02B78	SOUTH EAST TRIANGLE-HEADED ARROW TO BAR
+02B79	SOUTH WEST TRIANGLE-HEADED ARROW TO BAR
+02B7A	LEFTWARDS TRIANGLE-HEADED ARROW WITH DOUBLE VERTICAL STROKE
+02B7A	LEFTWARDS TRIANGLE-HEADED ARROW WITH DOUBLE HORIZONTAL STROKE
+02B7B	UPWARDS TRIANGLE-HEADED ARROW WITH DOUBLE HORIZONTAL STROKE
+02B7C	RIGHTWARDS TRIANGLE-HEADED ARROW WITH DOUBLE VERTICAL STROKE
+02B7C	RIGHTWARDS TRIANGLE-HEADED ARROW WITH DOUBLE HORIZONTAL STROKE
+02B7D	DOWNWARDS TRIANGLE-HEADED ARROW WITH DOUBLE HORIZONTAL STROKE
+02B7E	HORIZONTAL TAB KEY
+02B7F	VERTICAL TAB KEY
+02B80	LEFTWARDS TRIANGLE-HEADED ARROW OVER RIGHTWARDS TRIANGLE-HEADED ARROW
+02B81	UPWARDS TRIANGLE-HEADED ARROW LEFTWARDS OF DOWNWARDS TRIANGLE-HEADED ARROW
+02B82	RIGHTWARDS TRIANGLE-HEADED ARROW OVER LEFTWARDS TRIANGLE-HEADED ARROW
+02B83	DOWNWARDS TRIANGLE-HEADED ARROW LEFTWARDS OF UPWARDS TRIANGLE-HEADED ARROW
+02B84	LEFTWARDS TRIANGLE-HEADED PAIRED ARROWS
+02B85	UPWARDS TRIANGLE-HEADED PAIRED ARROWS
+02B86	RIGHTWARDS TRIANGLE-HEADED PAIRED ARROWS
+02B87	DOWNWARDS TRIANGLE-HEADED PAIRED ARROWS
+02B88	LEFTWARDS BLACK CIRCLED WHITE ARROW
+02B89	UPWARDS BLACK CIRCLED WHITE ARROW
+02B8A	RIGHTWARDS BLACK CIRCLED WHITE ARROW
+02B8B	DOWNWARDS BLACK CIRCLED WHITE ARROW
+02B8C	ANTICLOCKWISE TRIANGLE-HEADED RIGHT U-SHAPED ARROW
+02B8D	ANTICLOCKWISE TRIANGLE-HEADED BOTTOM U-SHAPED ARROW
+02B8E	ANTICLOCKWISE TRIANGLE-HEADED LEFT U-SHAPED ARROW
+02B8F	ANTICLOCKWISE TRIANGLE-HEADED TOP U-SHAPED ARROW
+02B90	RETURN LEFT
+02B91	RETURN RIGHT
+02B92	NEWLINE LEFT
+02B93	NEWLINE RIGHT
+02B94	FOUR CORNER ARROWS CIRCLING ANTICLOCKWISE
+02B95	RIGHTWARDS BLACK ARROW
+02B98	THREE-D TOP-LIGHTED LEFTWARDS EQUILATERAL ARROWHEAD
+02B99	THREE-D RIGHT-LIGHTED UPWARDS EQUILATERAL ARROWHEAD
+02B9A	THREE-D TOP-LIGHTED RIGHTWARDS EQUILATERAL ARROWHEAD
+02B9B	THREE-D LEFT-LIGHTED DOWNWARDS EQUILATERAL ARROWHEAD
+02B9C	BLACK LEFTWARDS EQUILATERAL ARROWHEAD
+02B9D	BLACK UPWARDS EQUILATERAL ARROWHEAD
+02B9E	BLACK RIGHTWARDS EQUILATERAL ARROWHEAD
+02B9F	BLACK DOWNWARDS EQUILATERAL ARROWHEAD
+02BA0	DOWNWARDS TRIANGLE-HEADED ARROW WITH LONG TIP LEFTWARDS
+02BA1	DOWNWARDS TRIANGLE-HEADED ARROW WITH LONG TIP RIGHTWARDS
+02BA2	UPWARDS TRIANGLE-HEADED ARROW WITH LONG TIP LEFTWARDS
+02BA3	UPWARDS TRIANGLE-HEADED ARROW WITH LONG TIP RIGHTWARDS
+02BA4	LEFTWARDS TRIANGLE-HEADED ARROW WITH LONG TIP UPWARDS
+02BA5	RIGHTWARDS TRIANGLE-HEADED ARROW WITH LONG TIP UPWARDS
+02BA6	LEFTWARDS TRIANGLE-HEADED ARROW WITH LONG TIP DOWNWARDS
+02BA7	RIGHTWARDS TRIANGLE-HEADED ARROW WITH LONG TIP DOWNWARDS
+02BA8	BLACK CURVED DOWNWARDS AND LEFTWARDS ARROW
+02BA9	BLACK CURVED DOWNWARDS AND RIGHTWARDS ARROW
+02BAA	BLACK CURVED UPWARDS AND LEFTWARDS ARROW
+02BAB	BLACK CURVED UPWARDS AND RIGHTWARDS ARROW
+02BAC	BLACK CURVED LEFTWARDS AND UPWARDS ARROW
+02BAD	BLACK CURVED RIGHTWARDS AND UPWARDS ARROW
+02BAE	BLACK CURVED LEFTWARDS AND DOWNWARDS ARROW
+02BAF	BLACK CURVED RIGHTWARDS AND DOWNWARDS ARROW
+02BB0	RIBBON ARROW DOWN LEFT
+02BB1	RIBBON ARROW DOWN RIGHT
+02BB2	RIBBON ARROW UP LEFT
+02BB3	RIBBON ARROW UP RIGHT
+02BB4	RIBBON ARROW LEFT UP
+02BB5	RIBBON ARROW RIGHT UP
+02BB6	RIBBON ARROW LEFT DOWN
+02BB7	RIBBON ARROW RIGHT DOWN
+02BB8	UPWARDS WHITE ARROW FROM BAR WITH HORIZONTAL BAR
+02BB9	UP ARROWHEAD IN A RECTANGLE BOX
+02BBD	BALLOT BOX WITH LIGHT X
+02BBE	CIRCLED X
+02BBF	CIRCLED BOLD X
+02BC0	BLACK SQUARE CENTRED
+02BC1	BLACK DIAMOND CENTRED
+02BC2	TURNED BLACK PENTAGON
+02BC3	HORIZONTAL BLACK OCTAGON
+02BC4	BLACK OCTAGON
+02BC5	BLACK MEDIUM UP-POINTING TRIANGLE CENTRED
+02BC6	BLACK MEDIUM DOWN-POINTING TRIANGLE CENTRED
+02BC7	BLACK MEDIUM LEFT-POINTING TRIANGLE CENTRED
+02BC8	BLACK MEDIUM RIGHT-POINTING TRIANGLE CENTRED
+02BCA	TOP HALF BLACK CIRCLE
+02BCB	BOTTOM HALF BLACK CIRCLE
+02BCC	LIGHT FOUR POINTED BLACK CUSP
+02BCD	ROTATED LIGHT FOUR POINTED BLACK CUSP
+02BCE	WHITE FOUR POINTED CUSP
+02BCF	ROTATED WHITE FOUR POINTED CUSP
+02BD0	SQUARE POSITION INDICATOR
+02BD1	UNCERTAINTY SIGN
+02BEC	LEFTWARDS TWO-HEADED ARROW WITH TRIANGLE ARROWHEADS
+02BED	UPWARDS TWO-HEADED ARROW WITH TRIANGLE ARROWHEADS
+02BEE	RIGHTWARDS TWO-HEADED ARROW WITH TRIANGLE ARROWHEADS
+02BEF	DOWNWARDS TWO-HEADED ARROW WITH TRIANGLE ARROWHEADS
+02C00	GLAGOLITIC CAPITAL LETTER AZU
+02C01	GLAGOLITIC CAPITAL LETTER BUKY
+02C02	GLAGOLITIC CAPITAL LETTER VEDE
+02C03	GLAGOLITIC CAPITAL LETTER GLAGOLI
+02C04	GLAGOLITIC CAPITAL LETTER DOBRO
+02C05	GLAGOLITIC CAPITAL LETTER YESTU
+02C06	GLAGOLITIC CAPITAL LETTER ZHIVETE
+02C07	GLAGOLITIC CAPITAL LETTER DZELO
+02C08	GLAGOLITIC CAPITAL LETTER ZEMLJA
+02C09	GLAGOLITIC CAPITAL LETTER IZHE
+02C0A	GLAGOLITIC CAPITAL LETTER INITIAL IZHE
+02C0B	GLAGOLITIC CAPITAL LETTER I
+02C0C	GLAGOLITIC CAPITAL LETTER DJERVI
+02C0D	GLAGOLITIC CAPITAL LETTER KAKO
+02C0E	GLAGOLITIC CAPITAL LETTER LJUDIJE
+02C0F	GLAGOLITIC CAPITAL LETTER MYSLITE
+02C10	GLAGOLITIC CAPITAL LETTER NASHI
+02C11	GLAGOLITIC CAPITAL LETTER ONU
+02C12	GLAGOLITIC CAPITAL LETTER POKOJI
+02C13	GLAGOLITIC CAPITAL LETTER RITSI
+02C14	GLAGOLITIC CAPITAL LETTER SLOVO
+02C15	GLAGOLITIC CAPITAL LETTER TVRIDO
+02C16	GLAGOLITIC CAPITAL LETTER UKU
+02C17	GLAGOLITIC CAPITAL LETTER FRITU
+02C18	GLAGOLITIC CAPITAL LETTER HERU
+02C19	GLAGOLITIC CAPITAL LETTER OTU
+02C1A	GLAGOLITIC CAPITAL LETTER PE
+02C1B	GLAGOLITIC CAPITAL LETTER SHTA
+02C1C	GLAGOLITIC CAPITAL LETTER TSI
+02C1D	GLAGOLITIC CAPITAL LETTER CHRIVI
+02C1E	GLAGOLITIC CAPITAL LETTER SHA
+02C1F	GLAGOLITIC CAPITAL LETTER YERU
+02C20	GLAGOLITIC CAPITAL LETTER YERI
+02C21	GLAGOLITIC CAPITAL LETTER YATI
+02C22	GLAGOLITIC CAPITAL LETTER SPIDERY HA
+02C23	GLAGOLITIC CAPITAL LETTER YU
+02C24	GLAGOLITIC CAPITAL LETTER SMALL YUS
+02C25	GLAGOLITIC CAPITAL LETTER SMALL YUS WITH TAIL
+02C26	GLAGOLITIC CAPITAL LETTER YO
+02C27	GLAGOLITIC CAPITAL LETTER IOTATED SMALL YUS
+02C28	GLAGOLITIC CAPITAL LETTER BIG YUS
+02C29	GLAGOLITIC CAPITAL LETTER IOTATED BIG YUS
+02C2A	GLAGOLITIC CAPITAL LETTER FITA
+02C2B	GLAGOLITIC CAPITAL LETTER IZHITSA
+02C2C	GLAGOLITIC CAPITAL LETTER SHTAPIC
+02C2D	GLAGOLITIC CAPITAL LETTER TROKUTASTI A
+02C2E	GLAGOLITIC CAPITAL LETTER LATINATE MYSLITE
+02C30	GLAGOLITIC SMALL LETTER AZU
+02C31	GLAGOLITIC SMALL LETTER BUKY
+02C32	GLAGOLITIC SMALL LETTER VEDE
+02C33	GLAGOLITIC SMALL LETTER GLAGOLI
+02C34	GLAGOLITIC SMALL LETTER DOBRO
+02C35	GLAGOLITIC SMALL LETTER YESTU
+02C36	GLAGOLITIC SMALL LETTER ZHIVETE
+02C37	GLAGOLITIC SMALL LETTER DZELO
+02C38	GLAGOLITIC SMALL LETTER ZEMLJA
+02C39	GLAGOLITIC SMALL LETTER IZHE
+02C3A	GLAGOLITIC SMALL LETTER INITIAL IZHE
+02C3B	GLAGOLITIC SMALL LETTER I
+02C3C	GLAGOLITIC SMALL LETTER DJERVI
+02C3D	GLAGOLITIC SMALL LETTER KAKO
+02C3E	GLAGOLITIC SMALL LETTER LJUDIJE
+02C3F	GLAGOLITIC SMALL LETTER MYSLITE
+02C40	GLAGOLITIC SMALL LETTER NASHI
+02C41	GLAGOLITIC SMALL LETTER ONU
+02C42	GLAGOLITIC SMALL LETTER POKOJI
+02C43	GLAGOLITIC SMALL LETTER RITSI
+02C44	GLAGOLITIC SMALL LETTER SLOVO
+02C45	GLAGOLITIC SMALL LETTER TVRIDO
+02C46	GLAGOLITIC SMALL LETTER UKU
+02C47	GLAGOLITIC SMALL LETTER FRITU
+02C48	GLAGOLITIC SMALL LETTER HERU
+02C49	GLAGOLITIC SMALL LETTER OTU
+02C4A	GLAGOLITIC SMALL LETTER PE
+02C4B	GLAGOLITIC SMALL LETTER SHTA
+02C4C	GLAGOLITIC SMALL LETTER TSI
+02C4D	GLAGOLITIC SMALL LETTER CHRIVI
+02C4E	GLAGOLITIC SMALL LETTER SHA
+02C4F	GLAGOLITIC SMALL LETTER YERU
+02C50	GLAGOLITIC SMALL LETTER YERI
+02C51	GLAGOLITIC SMALL LETTER YATI
+02C52	GLAGOLITIC SMALL LETTER SPIDERY HA
+02C53	GLAGOLITIC SMALL LETTER YU
+02C54	GLAGOLITIC SMALL LETTER SMALL YUS
+02C55	GLAGOLITIC SMALL LETTER SMALL YUS WITH TAIL
+02C56	GLAGOLITIC SMALL LETTER YO
+02C57	GLAGOLITIC SMALL LETTER IOTATED SMALL YUS
+02C58	GLAGOLITIC SMALL LETTER BIG YUS
+02C59	GLAGOLITIC SMALL LETTER IOTATED BIG YUS
+02C5A	GLAGOLITIC SMALL LETTER FITA
+02C5B	GLAGOLITIC SMALL LETTER IZHITSA
+02C5C	GLAGOLITIC SMALL LETTER SHTAPIC
+02C5D	GLAGOLITIC SMALL LETTER TROKUTASTI A
+02C5E	GLAGOLITIC SMALL LETTER LATINATE MYSLITE
+02C60	LATIN CAPITAL LETTER L WITH DOUBLE BAR
+02C61	LATIN SMALL LETTER L WITH DOUBLE BAR
+02C62	LATIN CAPITAL LETTER L WITH MIDDLE TILDE
+02C63	LATIN CAPITAL LETTER P WITH STROKE
+02C64	LATIN CAPITAL LETTER R WITH TAIL
+02C65	LATIN SMALL LETTER A WITH STROKE
+02C66	LATIN SMALL LETTER T WITH DIAGONAL STROKE
+02C67	LATIN CAPITAL LETTER H WITH DESCENDER
+02C68	LATIN SMALL LETTER H WITH DESCENDER
+02C69	LATIN CAPITAL LETTER K WITH DESCENDER
+02C6A	LATIN SMALL LETTER K WITH DESCENDER
+02C6B	LATIN CAPITAL LETTER Z WITH DESCENDER
+02C6C	LATIN SMALL LETTER Z WITH DESCENDER
+02C6D	LATIN CAPITAL LETTER ALPHA
+02C6E	LATIN CAPITAL LETTER M WITH HOOK
+02C6F	LATIN CAPITAL LETTER TURNED A
+02C70	LATIN CAPITAL LETTER TURNED ALPHA
+02C71	LATIN SMALL LETTER V WITH RIGHT HOOK
+02C72	LATIN CAPITAL LETTER W WITH HOOK
+02C73	LATIN SMALL LETTER W WITH HOOK
+02C74	LATIN SMALL LETTER V WITH CURL
+02C75	LATIN CAPITAL LETTER HALF H
+02C76	LATIN SMALL LETTER HALF H
+02C77	LATIN SMALL LETTER TAILLESS PHI
+02C78	LATIN SMALL LETTER E WITH NOTCH
+02C79	LATIN SMALL LETTER TURNED R WITH TAIL
+02C7A	LATIN SMALL LETTER O WITH LOW RING INSIDE
+02C7B	LATIN LETTER SMALL CAPITAL TURNED E
+02C7C	LATIN SUBSCRIPT SMALL LETTER J
+02C7D	MODIFIER LETTER CAPITAL V
+02C7E	LATIN CAPITAL LETTER S WITH SWASH TAIL
+02C7F	LATIN CAPITAL LETTER Z WITH SWASH TAIL
+02C80	COPTIC CAPITAL LETTER ALFA
+02C81	COPTIC SMALL LETTER ALFA
+02C82	COPTIC CAPITAL LETTER VIDA
+02C83	COPTIC SMALL LETTER VIDA
+02C84	COPTIC CAPITAL LETTER GAMMA
+02C85	COPTIC SMALL LETTER GAMMA
+02C86	COPTIC CAPITAL LETTER DALDA
+02C87	COPTIC SMALL LETTER DALDA
+02C88	COPTIC CAPITAL LETTER EIE
+02C89	COPTIC SMALL LETTER EIE
+02C8A	COPTIC CAPITAL LETTER SOU
+02C8B	COPTIC SMALL LETTER SOU
+02C8C	COPTIC CAPITAL LETTER ZATA
+02C8D	COPTIC SMALL LETTER ZATA
+02C8E	COPTIC CAPITAL LETTER HATE
+02C8F	COPTIC SMALL LETTER HATE
+02C90	COPTIC CAPITAL LETTER THETHE
+02C91	COPTIC SMALL LETTER THETHE
+02C92	COPTIC CAPITAL LETTER IAUDA
+02C93	COPTIC SMALL LETTER IAUDA
+02C94	COPTIC CAPITAL LETTER KAPA
+02C95	COPTIC SMALL LETTER KAPA
+02C96	COPTIC CAPITAL LETTER LAULA
+02C97	COPTIC SMALL LETTER LAULA
+02C98	COPTIC CAPITAL LETTER MI
+02C99	COPTIC SMALL LETTER MI
+02C9A	COPTIC CAPITAL LETTER NI
+02C9B	COPTIC SMALL LETTER NI
+02C9C	COPTIC CAPITAL LETTER KSI
+02C9D	COPTIC SMALL LETTER KSI
+02C9E	COPTIC CAPITAL LETTER O
+02C9F	COPTIC SMALL LETTER O
+02CA0	COPTIC CAPITAL LETTER PI
+02CA1	COPTIC SMALL LETTER PI
+02CA2	COPTIC CAPITAL LETTER RO
+02CA3	COPTIC SMALL LETTER RO
+02CA4	COPTIC CAPITAL LETTER SIMA
+02CA5	COPTIC SMALL LETTER SIMA
+02CA6	COPTIC CAPITAL LETTER TAU
+02CA7	COPTIC SMALL LETTER TAU
+02CA8	COPTIC CAPITAL LETTER UA
+02CA9	COPTIC SMALL LETTER UA
+02CAA	COPTIC CAPITAL LETTER FI
+02CAB	COPTIC SMALL LETTER FI
+02CAC	COPTIC CAPITAL LETTER KHI
+02CAD	COPTIC SMALL LETTER KHI
+02CAE	COPTIC CAPITAL LETTER PSI
+02CAF	COPTIC SMALL LETTER PSI
+02CB0	COPTIC CAPITAL LETTER OOU
+02CB1	COPTIC SMALL LETTER OOU
+02CB2	COPTIC CAPITAL LETTER DIALECT-P ALEF
+02CB3	COPTIC SMALL LETTER DIALECT-P ALEF
+02CB4	COPTIC CAPITAL LETTER OLD COPTIC AIN
+02CB5	COPTIC SMALL LETTER OLD COPTIC AIN
+02CB6	COPTIC CAPITAL LETTER CRYPTOGRAMMIC EIE
+02CB7	COPTIC SMALL LETTER CRYPTOGRAMMIC EIE
+02CB8	COPTIC CAPITAL LETTER DIALECT-P KAPA
+02CB9	COPTIC SMALL LETTER DIALECT-P KAPA
+02CBA	COPTIC CAPITAL LETTER DIALECT-P NI
+02CBB	COPTIC SMALL LETTER DIALECT-P NI
+02CBC	COPTIC CAPITAL LETTER CRYPTOGRAMMIC NI
+02CBD	COPTIC SMALL LETTER CRYPTOGRAMMIC NI
+02CBE	COPTIC CAPITAL LETTER OLD COPTIC OOU
+02CBF	COPTIC SMALL LETTER OLD COPTIC OOU
+02CC0	COPTIC CAPITAL LETTER SAMPI
+02CC1	COPTIC SMALL LETTER SAMPI
+02CC2	COPTIC CAPITAL LETTER CROSSED SHEI
+02CC3	COPTIC SMALL LETTER CROSSED SHEI
+02CC4	COPTIC CAPITAL LETTER OLD COPTIC SHEI
+02CC5	COPTIC SMALL LETTER OLD COPTIC SHEI
+02CC6	COPTIC CAPITAL LETTER OLD COPTIC ESH
+02CC7	COPTIC SMALL LETTER OLD COPTIC ESH
+02CC8	COPTIC CAPITAL LETTER AKHMIMIC KHEI
+02CC9	COPTIC SMALL LETTER AKHMIMIC KHEI
+02CCA	COPTIC CAPITAL LETTER DIALECT-P HORI
+02CCB	COPTIC SMALL LETTER DIALECT-P HORI
+02CCC	COPTIC CAPITAL LETTER OLD COPTIC HORI
+02CCD	COPTIC SMALL LETTER OLD COPTIC HORI
+02CCE	COPTIC CAPITAL LETTER OLD COPTIC HA
+02CCF	COPTIC SMALL LETTER OLD COPTIC HA
+02CD0	COPTIC CAPITAL LETTER L-SHAPED HA
+02CD1	COPTIC SMALL LETTER L-SHAPED HA
+02CD2	COPTIC CAPITAL LETTER OLD COPTIC HEI
+02CD3	COPTIC SMALL LETTER OLD COPTIC HEI
+02CD4	COPTIC CAPITAL LETTER OLD COPTIC HAT
+02CD5	COPTIC SMALL LETTER OLD COPTIC HAT
+02CD6	COPTIC CAPITAL LETTER OLD COPTIC GANGIA
+02CD7	COPTIC SMALL LETTER OLD COPTIC GANGIA
+02CD8	COPTIC CAPITAL LETTER OLD COPTIC DJA
+02CD9	COPTIC SMALL LETTER OLD COPTIC DJA
+02CDA	COPTIC CAPITAL LETTER OLD COPTIC SHIMA
+02CDB	COPTIC SMALL LETTER OLD COPTIC SHIMA
+02CDC	COPTIC CAPITAL LETTER OLD NUBIAN SHIMA
+02CDD	COPTIC SMALL LETTER OLD NUBIAN SHIMA
+02CDE	COPTIC CAPITAL LETTER OLD NUBIAN NGI
+02CDF	COPTIC SMALL LETTER OLD NUBIAN NGI
+02CE0	COPTIC CAPITAL LETTER OLD NUBIAN NYI
+02CE1	COPTIC SMALL LETTER OLD NUBIAN NYI
+02CE2	COPTIC CAPITAL LETTER OLD NUBIAN WAU
+02CE3	COPTIC SMALL LETTER OLD NUBIAN WAU
+02CE4	COPTIC SYMBOL KAI
+02CE5	COPTIC SYMBOL MI RO
+02CE6	COPTIC SYMBOL PI RO
+02CE7	COPTIC SYMBOL STAUROS
+02CE8	COPTIC SYMBOL TAU RO
+02CE9	COPTIC SYMBOL KHI RO
+02CEA	COPTIC SYMBOL SHIMA SIMA
+02CEB	COPTIC CAPITAL LETTER CRYPTOGRAMMIC SHEI
+02CEC	COPTIC SMALL LETTER CRYPTOGRAMMIC SHEI
+02CED	COPTIC CAPITAL LETTER CRYPTOGRAMMIC GANGIA
+02CEE	COPTIC SMALL LETTER CRYPTOGRAMMIC GANGIA
+02CEF	COPTIC COMBINING NI ABOVE
+02CF0	COPTIC COMBINING SPIRITUS ASPER
+02CF1	COPTIC COMBINING SPIRITUS LENIS
+02CF2	COPTIC CAPITAL LETTER BOHAIRIC KHEI
+02CF3	COPTIC SMALL LETTER BOHAIRIC KHEI
+02CF9	COPTIC OLD NUBIAN FULL STOP
+02CFA	COPTIC OLD NUBIAN DIRECT QUESTION MARK
+02CFB	COPTIC OLD NUBIAN INDIRECT QUESTION MARK
+02CFC	COPTIC OLD NUBIAN VERSE DIVIDER
+02CFD	COPTIC FRACTION ONE HALF
+02CFE	COPTIC FULL STOP
+02CFF	COPTIC MORPHOLOGICAL DIVIDER
+02D00	GEORGIAN SMALL LETTER AN
+02D01	GEORGIAN SMALL LETTER BAN
+02D02	GEORGIAN SMALL LETTER GAN
+02D03	GEORGIAN SMALL LETTER DON
+02D04	GEORGIAN SMALL LETTER EN
+02D05	GEORGIAN SMALL LETTER VIN
+02D06	GEORGIAN SMALL LETTER ZEN
+02D07	GEORGIAN SMALL LETTER TAN
+02D08	GEORGIAN SMALL LETTER IN
+02D09	GEORGIAN SMALL LETTER KAN
+02D0A	GEORGIAN SMALL LETTER LAS
+02D0B	GEORGIAN SMALL LETTER MAN
+02D0C	GEORGIAN SMALL LETTER NAR
+02D0D	GEORGIAN SMALL LETTER ON
+02D0E	GEORGIAN SMALL LETTER PAR
+02D0F	GEORGIAN SMALL LETTER ZHAR
+02D10	GEORGIAN SMALL LETTER RAE
+02D11	GEORGIAN SMALL LETTER SAN
+02D12	GEORGIAN SMALL LETTER TAR
+02D13	GEORGIAN SMALL LETTER UN
+02D14	GEORGIAN SMALL LETTER PHAR
+02D15	GEORGIAN SMALL LETTER KHAR
+02D16	GEORGIAN SMALL LETTER GHAN
+02D17	GEORGIAN SMALL LETTER QAR
+02D18	GEORGIAN SMALL LETTER SHIN
+02D19	GEORGIAN SMALL LETTER CHIN
+02D1A	GEORGIAN SMALL LETTER CAN
+02D1B	GEORGIAN SMALL LETTER JIL
+02D1C	GEORGIAN SMALL LETTER CIL
+02D1D	GEORGIAN SMALL LETTER CHAR
+02D1E	GEORGIAN SMALL LETTER XAN
+02D1F	GEORGIAN SMALL LETTER JHAN
+02D20	GEORGIAN SMALL LETTER HAE
+02D21	GEORGIAN SMALL LETTER HE
+02D22	GEORGIAN SMALL LETTER HIE
+02D23	GEORGIAN SMALL LETTER WE
+02D24	GEORGIAN SMALL LETTER HAR
+02D25	GEORGIAN SMALL LETTER HOE
+02D27	GEORGIAN SMALL LETTER YN
+02D2D	GEORGIAN SMALL LETTER AEN
+02D30	TIFINAGH LETTER YA
+02D31	TIFINAGH LETTER YAB
+02D32	TIFINAGH LETTER YABH
+02D33	TIFINAGH LETTER YAG
+02D34	TIFINAGH LETTER YAGHH
+02D35	TIFINAGH LETTER BERBER ACADEMY YAJ
+02D36	TIFINAGH LETTER YAJ
+02D37	TIFINAGH LETTER YAD
+02D38	TIFINAGH LETTER YADH
+02D39	TIFINAGH LETTER YADD
+02D3A	TIFINAGH LETTER YADDH
+02D3B	TIFINAGH LETTER YEY
+02D3C	TIFINAGH LETTER YAF
+02D3D	TIFINAGH LETTER YAK
+02D3E	TIFINAGH LETTER TUAREG YAK
+02D3F	TIFINAGH LETTER YAKHH
+02D40	TIFINAGH LETTER YAH
+02D41	TIFINAGH LETTER BERBER ACADEMY YAH
+02D42	TIFINAGH LETTER TUAREG YAH
+02D43	TIFINAGH LETTER YAHH
+02D44	TIFINAGH LETTER YAA
+02D45	TIFINAGH LETTER YAKH
+02D46	TIFINAGH LETTER TUAREG YAKH
+02D47	TIFINAGH LETTER YAQ
+02D48	TIFINAGH LETTER TUAREG YAQ
+02D49	TIFINAGH LETTER YI
+02D4A	TIFINAGH LETTER YAZH
+02D4B	TIFINAGH LETTER AHAGGAR YAZH
+02D4C	TIFINAGH LETTER TUAREG YAZH
+02D4D	TIFINAGH LETTER YAL
+02D4E	TIFINAGH LETTER YAM
+02D4F	TIFINAGH LETTER YAN
+02D50	TIFINAGH LETTER TUAREG YAGN
+02D51	TIFINAGH LETTER TUAREG YANG
+02D52	TIFINAGH LETTER YAP
+02D53	TIFINAGH LETTER YU
+02D54	TIFINAGH LETTER YAR
+02D55	TIFINAGH LETTER YARR
+02D56	TIFINAGH LETTER YAGH
+02D57	TIFINAGH LETTER TUAREG YAGH
+02D58	TIFINAGH LETTER AYER YAGH
+02D59	TIFINAGH LETTER YAS
+02D5A	TIFINAGH LETTER YASS
+02D5B	TIFINAGH LETTER YASH
+02D5C	TIFINAGH LETTER YAT
+02D5D	TIFINAGH LETTER YATH
+02D5E	TIFINAGH LETTER YACH
+02D5F	TIFINAGH LETTER YATT
+02D60	TIFINAGH LETTER YAV
+02D61	TIFINAGH LETTER YAW
+02D62	TIFINAGH LETTER YAY
+02D63	TIFINAGH LETTER YAZ
+02D64	TIFINAGH LETTER TAWELLEMET YAZ
+02D65	TIFINAGH LETTER YAZZ
+02D66	TIFINAGH LETTER YE
+02D67	TIFINAGH LETTER YO
+02D6F	TIFINAGH MODIFIER LETTER LABIALIZATION MARK
+02D70	TIFINAGH SEPARATOR MARK
+02D7F	TIFINAGH CONSONANT JOINER
+02D80	ETHIOPIC SYLLABLE LOA
+02D81	ETHIOPIC SYLLABLE MOA
+02D82	ETHIOPIC SYLLABLE ROA
+02D83	ETHIOPIC SYLLABLE SOA
+02D84	ETHIOPIC SYLLABLE SHOA
+02D85	ETHIOPIC SYLLABLE BOA
+02D86	ETHIOPIC SYLLABLE TOA
+02D87	ETHIOPIC SYLLABLE COA
+02D88	ETHIOPIC SYLLABLE NOA
+02D89	ETHIOPIC SYLLABLE NYOA
+02D8A	ETHIOPIC SYLLABLE GLOTTAL OA
+02D8B	ETHIOPIC SYLLABLE ZOA
+02D8C	ETHIOPIC SYLLABLE DOA
+02D8D	ETHIOPIC SYLLABLE DDOA
+02D8E	ETHIOPIC SYLLABLE JOA
+02D8F	ETHIOPIC SYLLABLE THOA
+02D90	ETHIOPIC SYLLABLE CHOA
+02D91	ETHIOPIC SYLLABLE PHOA
+02D92	ETHIOPIC SYLLABLE POA
+02D93	ETHIOPIC SYLLABLE GGWA
+02D94	ETHIOPIC SYLLABLE GGWI
+02D95	ETHIOPIC SYLLABLE GGWEE
+02D96	ETHIOPIC SYLLABLE GGWE
+02DA0	ETHIOPIC SYLLABLE SSA
+02DA1	ETHIOPIC SYLLABLE SSU
+02DA2	ETHIOPIC SYLLABLE SSI
+02DA3	ETHIOPIC SYLLABLE SSAA
+02DA4	ETHIOPIC SYLLABLE SSEE
+02DA5	ETHIOPIC SYLLABLE SSE
+02DA6	ETHIOPIC SYLLABLE SSO
+02DA8	ETHIOPIC SYLLABLE CCA
+02DA9	ETHIOPIC SYLLABLE CCU
+02DAA	ETHIOPIC SYLLABLE CCI
+02DAB	ETHIOPIC SYLLABLE CCAA
+02DAC	ETHIOPIC SYLLABLE CCEE
+02DAD	ETHIOPIC SYLLABLE CCE
+02DAE	ETHIOPIC SYLLABLE CCO
+02DB0	ETHIOPIC SYLLABLE ZZA
+02DB1	ETHIOPIC SYLLABLE ZZU
+02DB2	ETHIOPIC SYLLABLE ZZI
+02DB3	ETHIOPIC SYLLABLE ZZAA
+02DB4	ETHIOPIC SYLLABLE ZZEE
+02DB5	ETHIOPIC SYLLABLE ZZE
+02DB6	ETHIOPIC SYLLABLE ZZO
+02DB8	ETHIOPIC SYLLABLE CCHA
+02DB9	ETHIOPIC SYLLABLE CCHU
+02DBA	ETHIOPIC SYLLABLE CCHI
+02DBB	ETHIOPIC SYLLABLE CCHAA
+02DBC	ETHIOPIC SYLLABLE CCHEE
+02DBD	ETHIOPIC SYLLABLE CCHE
+02DBE	ETHIOPIC SYLLABLE CCHO
+02DC0	ETHIOPIC SYLLABLE QYA
+02DC1	ETHIOPIC SYLLABLE QYU
+02DC2	ETHIOPIC SYLLABLE QYI
+02DC3	ETHIOPIC SYLLABLE QYAA
+02DC4	ETHIOPIC SYLLABLE QYEE
+02DC5	ETHIOPIC SYLLABLE QYE
+02DC6	ETHIOPIC SYLLABLE QYO
+02DC8	ETHIOPIC SYLLABLE KYA
+02DC9	ETHIOPIC SYLLABLE KYU
+02DCA	ETHIOPIC SYLLABLE KYI
+02DCB	ETHIOPIC SYLLABLE KYAA
+02DCC	ETHIOPIC SYLLABLE KYEE
+02DCD	ETHIOPIC SYLLABLE KYE
+02DCE	ETHIOPIC SYLLABLE KYO
+02DD0	ETHIOPIC SYLLABLE XYA
+02DD1	ETHIOPIC SYLLABLE XYU
+02DD2	ETHIOPIC SYLLABLE XYI
+02DD3	ETHIOPIC SYLLABLE XYAA
+02DD4	ETHIOPIC SYLLABLE XYEE
+02DD5	ETHIOPIC SYLLABLE XYE
+02DD6	ETHIOPIC SYLLABLE XYO
+02DD8	ETHIOPIC SYLLABLE GYA
+02DD9	ETHIOPIC SYLLABLE GYU
+02DDA	ETHIOPIC SYLLABLE GYI
+02DDB	ETHIOPIC SYLLABLE GYAA
+02DDC	ETHIOPIC SYLLABLE GYEE
+02DDD	ETHIOPIC SYLLABLE GYE
+02DDE	ETHIOPIC SYLLABLE GYO
+02DE0	COMBINING CYRILLIC LETTER BE
+02DE1	COMBINING CYRILLIC LETTER VE
+02DE2	COMBINING CYRILLIC LETTER GHE
+02DE3	COMBINING CYRILLIC LETTER DE
+02DE4	COMBINING CYRILLIC LETTER ZHE
+02DE5	COMBINING CYRILLIC LETTER ZE
+02DE6	COMBINING CYRILLIC LETTER KA
+02DE7	COMBINING CYRILLIC LETTER EL
+02DE8	COMBINING CYRILLIC LETTER EM
+02DE9	COMBINING CYRILLIC LETTER EN
+02DEA	COMBINING CYRILLIC LETTER O
+02DEB	COMBINING CYRILLIC LETTER PE
+02DEC	COMBINING CYRILLIC LETTER ER
+02DED	COMBINING CYRILLIC LETTER ES
+02DEE	COMBINING CYRILLIC LETTER TE
+02DEF	COMBINING CYRILLIC LETTER HA
+02DF0	COMBINING CYRILLIC LETTER TSE
+02DF1	COMBINING CYRILLIC LETTER CHE
+02DF2	COMBINING CYRILLIC LETTER SHA
+02DF3	COMBINING CYRILLIC LETTER SHCHA
+02DF4	COMBINING CYRILLIC LETTER FITA
+02DF5	COMBINING CYRILLIC LETTER ES-TE
+02DF6	COMBINING CYRILLIC LETTER A
+02DF7	COMBINING CYRILLIC LETTER IE
+02DF8	COMBINING CYRILLIC LETTER DJERV
+02DF9	COMBINING CYRILLIC LETTER MONOGRAPH UK
+02DFA	COMBINING CYRILLIC LETTER YAT
+02DFB	COMBINING CYRILLIC LETTER YU
+02DFC	COMBINING CYRILLIC LETTER IOTIFIED A
+02DFD	COMBINING CYRILLIC LETTER LITTLE YUS
+02DFE	COMBINING CYRILLIC LETTER BIG YUS
+02DFF	COMBINING CYRILLIC LETTER IOTIFIED BIG YUS
+02E00	RIGHT ANGLE SUBSTITUTION MARKER
+02E01	RIGHT ANGLE DOTTED SUBSTITUTION MARKER
+02E02	LEFT SUBSTITUTION BRACKET
+02E03	RIGHT SUBSTITUTION BRACKET
+02E04	LEFT DOTTED SUBSTITUTION BRACKET
+02E05	RIGHT DOTTED SUBSTITUTION BRACKET
+02E06	RAISED INTERPOLATION MARKER
+02E07	RAISED DOTTED INTERPOLATION MARKER
+02E08	DOTTED TRANSPOSITION MARKER
+02E09	LEFT TRANSPOSITION BRACKET
+02E0A	RIGHT TRANSPOSITION BRACKET
+02E0B	RAISED SQUARE
+02E0C	LEFT RAISED OMISSION BRACKET
+02E0D	RIGHT RAISED OMISSION BRACKET
+02E0E	EDITORIAL CORONIS
+02E0F	PARAGRAPHOS
+02E10	FORKED PARAGRAPHOS
+02E11	REVERSED FORKED PARAGRAPHOS
+02E12	HYPODIASTOLE
+02E13	DOTTED OBELOS
+02E14	DOWNWARDS ANCORA
+02E15	UPWARDS ANCORA
+02E16	DOTTED RIGHT-POINTING ANGLE
+02E17	DOUBLE OBLIQUE HYPHEN
+02E18	INVERTED INTERROBANG
+02E19	PALM BRANCH
+02E1A	HYPHEN WITH DIAERESIS
+02E1B	TILDE WITH RING ABOVE
+02E1C	LEFT LOW PARAPHRASE BRACKET
+02E1D	RIGHT LOW PARAPHRASE BRACKET
+02E1E	TILDE WITH DOT ABOVE
+02E1F	TILDE WITH DOT BELOW
+02E20	LEFT VERTICAL BAR WITH QUILL
+02E21	RIGHT VERTICAL BAR WITH QUILL
+02E22	TOP LEFT HALF BRACKET
+02E23	TOP RIGHT HALF BRACKET
+02E24	BOTTOM LEFT HALF BRACKET
+02E25	BOTTOM RIGHT HALF BRACKET
+02E26	LEFT SIDEWAYS U BRACKET
+02E27	RIGHT SIDEWAYS U BRACKET
+02E28	LEFT DOUBLE PARENTHESIS
+02E29	RIGHT DOUBLE PARENTHESIS
+02E2A	TWO DOTS OVER ONE DOT PUNCTUATION
+02E2B	ONE DOT OVER TWO DOTS PUNCTUATION
+02E2C	SQUARED FOUR DOT PUNCTUATION
+02E2D	FIVE DOT MARK
+02E2E	REVERSED QUESTION MARK
+02E2F	VERTICAL TILDE
+02E30	RING POINT
+02E31	WORD SEPARATOR MIDDLE DOT
+02E32	TURNED COMMA
+02E33	RAISED DOT
+02E34	RAISED COMMA
+02E35	TURNED SEMICOLON
+02E36	DAGGER WITH LEFT GUARD
+02E37	DAGGER WITH RIGHT GUARD
+02E38	TURNED DAGGER
+02E39	TOP HALF SECTION SIGN
+02E3A	TWO-EM DASH
+02E3B	THREE-EM DASH
+02E3C	STENOGRAPHIC FULL STOP
+02E3D	VERTICAL SIX DOTS
+02E3E	WIGGLY VERTICAL LINE
+02E3F	CAPITULUM
+02E40	DOUBLE HYPHEN
+02E41	REVERSED COMMA
+02E42	DOUBLE LOW-REVERSED-9 QUOTATION MARK
+02E80	CJK RADICAL REPEAT
+02E81	CJK RADICAL CLIFF
+02E82	CJK RADICAL SECOND ONE
+02E83	CJK RADICAL SECOND TWO
+02E84	CJK RADICAL SECOND THREE
+02E85	CJK RADICAL PERSON
+02E86	CJK RADICAL BOX
+02E87	CJK RADICAL TABLE
+02E88	CJK RADICAL KNIFE ONE
+02E89	CJK RADICAL KNIFE TWO
+02E8A	CJK RADICAL DIVINATION
+02E8B	CJK RADICAL SEAL
+02E8C	CJK RADICAL SMALL ONE
+02E8D	CJK RADICAL SMALL TWO
+02E8E	CJK RADICAL LAME ONE
+02E8F	CJK RADICAL LAME TWO
+02E90	CJK RADICAL LAME THREE
+02E91	CJK RADICAL LAME FOUR
+02E92	CJK RADICAL SNAKE
+02E93	CJK RADICAL THREAD
+02E94	CJK RADICAL SNOUT ONE
+02E95	CJK RADICAL SNOUT TWO
+02E96	CJK RADICAL HEART ONE
+02E97	CJK RADICAL HEART TWO
+02E98	CJK RADICAL HAND
+02E99	CJK RADICAL RAP
+02E9B	CJK RADICAL CHOKE
+02E9C	CJK RADICAL SUN
+02E9D	CJK RADICAL MOON
+02E9E	CJK RADICAL DEATH
+02E9F	CJK RADICAL MOTHER
+02EA0	CJK RADICAL CIVILIAN
+02EA1	CJK RADICAL WATER ONE
+02EA2	CJK RADICAL WATER TWO
+02EA3	CJK RADICAL FIRE
+02EA4	CJK RADICAL PAW ONE
+02EA5	CJK RADICAL PAW TWO
+02EA6	CJK RADICAL SIMPLIFIED HALF TREE TRUNK
+02EA7	CJK RADICAL COW
+02EA8	CJK RADICAL DOG
+02EA9	CJK RADICAL JADE
+02EAA	CJK RADICAL BOLT OF CLOTH
+02EAB	CJK RADICAL EYE
+02EAC	CJK RADICAL SPIRIT ONE
+02EAD	CJK RADICAL SPIRIT TWO
+02EAE	CJK RADICAL BAMBOO
+02EAF	CJK RADICAL SILK
+02EB0	CJK RADICAL C-SIMPLIFIED SILK
+02EB1	CJK RADICAL NET ONE
+02EB2	CJK RADICAL NET TWO
+02EB3	CJK RADICAL NET THREE
+02EB4	CJK RADICAL NET FOUR
+02EB5	CJK RADICAL MESH
+02EB6	CJK RADICAL SHEEP
+02EB7	CJK RADICAL RAM
+02EB8	CJK RADICAL EWE
+02EB9	CJK RADICAL OLD
+02EBA	CJK RADICAL BRUSH ONE
+02EBB	CJK RADICAL BRUSH TWO
+02EBC	CJK RADICAL MEAT
+02EBD	CJK RADICAL MORTAR
+02EBE	CJK RADICAL GRASS ONE
+02EBF	CJK RADICAL GRASS TWO
+02EC0	CJK RADICAL GRASS THREE
+02EC1	CJK RADICAL TIGER
+02EC2	CJK RADICAL CLOTHES
+02EC3	CJK RADICAL WEST ONE
+02EC4	CJK RADICAL WEST TWO
+02EC5	CJK RADICAL C-SIMPLIFIED SEE
+02EC6	CJK RADICAL SIMPLIFIED HORN
+02EC7	CJK RADICAL HORN
+02EC8	CJK RADICAL C-SIMPLIFIED SPEECH
+02EC9	CJK RADICAL C-SIMPLIFIED SHELL
+02ECA	CJK RADICAL FOOT
+02ECB	CJK RADICAL C-SIMPLIFIED CART
+02ECC	CJK RADICAL SIMPLIFIED WALK
+02ECD	CJK RADICAL WALK ONE
+02ECE	CJK RADICAL WALK TWO
+02ECF	CJK RADICAL CITY
+02ED0	CJK RADICAL C-SIMPLIFIED GOLD
+02ED1	CJK RADICAL LONG ONE
+02ED2	CJK RADICAL LONG TWO
+02ED3	CJK RADICAL C-SIMPLIFIED LONG
+02ED4	CJK RADICAL C-SIMPLIFIED GATE
+02ED5	CJK RADICAL MOUND ONE
+02ED6	CJK RADICAL MOUND TWO
+02ED7	CJK RADICAL RAIN
+02ED8	CJK RADICAL BLUE
+02ED9	CJK RADICAL C-SIMPLIFIED TANNED LEATHER
+02EDA	CJK RADICAL C-SIMPLIFIED LEAF
+02EDB	CJK RADICAL C-SIMPLIFIED WIND
+02EDC	CJK RADICAL C-SIMPLIFIED FLY
+02EDD	CJK RADICAL EAT ONE
+02EDE	CJK RADICAL EAT TWO
+02EDF	CJK RADICAL EAT THREE
+02EE0	CJK RADICAL C-SIMPLIFIED EAT
+02EE1	CJK RADICAL HEAD
+02EE2	CJK RADICAL C-SIMPLIFIED HORSE
+02EE3	CJK RADICAL BONE
+02EE4	CJK RADICAL GHOST
+02EE5	CJK RADICAL C-SIMPLIFIED FISH
+02EE6	CJK RADICAL C-SIMPLIFIED BIRD
+02EE7	CJK RADICAL C-SIMPLIFIED SALT
+02EE8	CJK RADICAL SIMPLIFIED WHEAT
+02EE9	CJK RADICAL SIMPLIFIED YELLOW
+02EEA	CJK RADICAL C-SIMPLIFIED FROG
+02EEB	CJK RADICAL J-SIMPLIFIED EVEN
+02EEC	CJK RADICAL C-SIMPLIFIED EVEN
+02EED	CJK RADICAL J-SIMPLIFIED TOOTH
+02EEE	CJK RADICAL C-SIMPLIFIED TOOTH
+02EEF	CJK RADICAL J-SIMPLIFIED DRAGON
+02EF0	CJK RADICAL C-SIMPLIFIED DRAGON
+02EF1	CJK RADICAL TURTLE
+02EF2	CJK RADICAL J-SIMPLIFIED TURTLE
+02EF3	CJK RADICAL C-SIMPLIFIED TURTLE
+02F00	KANGXI RADICAL ONE
+02F01	KANGXI RADICAL LINE
+02F02	KANGXI RADICAL DOT
+02F03	KANGXI RADICAL SLASH
+02F04	KANGXI RADICAL SECOND
+02F05	KANGXI RADICAL HOOK
+02F06	KANGXI RADICAL TWO
+02F07	KANGXI RADICAL LID
+02F08	KANGXI RADICAL MAN
+02F09	KANGXI RADICAL LEGS
+02F0A	KANGXI RADICAL ENTER
+02F0B	KANGXI RADICAL EIGHT
+02F0C	KANGXI RADICAL DOWN BOX
+02F0D	KANGXI RADICAL COVER
+02F0E	KANGXI RADICAL ICE
+02F0F	KANGXI RADICAL TABLE
+02F10	KANGXI RADICAL OPEN BOX
+02F11	KANGXI RADICAL KNIFE
+02F12	KANGXI RADICAL POWER
+02F13	KANGXI RADICAL WRAP
+02F14	KANGXI RADICAL SPOON
+02F15	KANGXI RADICAL RIGHT OPEN BOX
+02F16	KANGXI RADICAL HIDING ENCLOSURE
+02F17	KANGXI RADICAL TEN
+02F18	KANGXI RADICAL DIVINATION
+02F19	KANGXI RADICAL SEAL
+02F1A	KANGXI RADICAL CLIFF
+02F1B	KANGXI RADICAL PRIVATE
+02F1C	KANGXI RADICAL AGAIN
+02F1D	KANGXI RADICAL MOUTH
+02F1E	KANGXI RADICAL ENCLOSURE
+02F1F	KANGXI RADICAL EARTH
+02F20	KANGXI RADICAL SCHOLAR
+02F21	KANGXI RADICAL GO
+02F22	KANGXI RADICAL GO SLOWLY
+02F23	KANGXI RADICAL EVENING
+02F24	KANGXI RADICAL BIG
+02F25	KANGXI RADICAL WOMAN
+02F26	KANGXI RADICAL CHILD
+02F27	KANGXI RADICAL ROOF
+02F28	KANGXI RADICAL INCH
+02F29	KANGXI RADICAL SMALL
+02F2A	KANGXI RADICAL LAME
+02F2B	KANGXI RADICAL CORPSE
+02F2C	KANGXI RADICAL SPROUT
+02F2D	KANGXI RADICAL MOUNTAIN
+02F2E	KANGXI RADICAL RIVER
+02F2F	KANGXI RADICAL WORK
+02F30	KANGXI RADICAL ONESELF
+02F31	KANGXI RADICAL TURBAN
+02F32	KANGXI RADICAL DRY
+02F33	KANGXI RADICAL SHORT THREAD
+02F34	KANGXI RADICAL DOTTED CLIFF
+02F35	KANGXI RADICAL LONG STRIDE
+02F36	KANGXI RADICAL TWO HANDS
+02F37	KANGXI RADICAL SHOOT
+02F38	KANGXI RADICAL BOW
+02F39	KANGXI RADICAL SNOUT
+02F3A	KANGXI RADICAL BRISTLE
+02F3B	KANGXI RADICAL STEP
+02F3C	KANGXI RADICAL HEART
+02F3D	KANGXI RADICAL HALBERD
+02F3E	KANGXI RADICAL DOOR
+02F3F	KANGXI RADICAL HAND
+02F40	KANGXI RADICAL BRANCH
+02F41	KANGXI RADICAL RAP
+02F42	KANGXI RADICAL SCRIPT
+02F43	KANGXI RADICAL DIPPER
+02F44	KANGXI RADICAL AXE
+02F45	KANGXI RADICAL SQUARE
+02F46	KANGXI RADICAL NOT
+02F47	KANGXI RADICAL SUN
+02F48	KANGXI RADICAL SAY
+02F49	KANGXI RADICAL MOON
+02F4A	KANGXI RADICAL TREE
+02F4B	KANGXI RADICAL LACK
+02F4C	KANGXI RADICAL STOP
+02F4D	KANGXI RADICAL DEATH
+02F4E	KANGXI RADICAL WEAPON
+02F4F	KANGXI RADICAL DO NOT
+02F50	KANGXI RADICAL COMPARE
+02F51	KANGXI RADICAL FUR
+02F52	KANGXI RADICAL CLAN
+02F53	KANGXI RADICAL STEAM
+02F54	KANGXI RADICAL WATER
+02F55	KANGXI RADICAL FIRE
+02F56	KANGXI RADICAL CLAW
+02F57	KANGXI RADICAL FATHER
+02F58	KANGXI RADICAL DOUBLE X
+02F59	KANGXI RADICAL HALF TREE TRUNK
+02F5A	KANGXI RADICAL SLICE
+02F5B	KANGXI RADICAL FANG
+02F5C	KANGXI RADICAL COW
+02F5D	KANGXI RADICAL DOG
+02F5E	KANGXI RADICAL PROFOUND
+02F5F	KANGXI RADICAL JADE
+02F60	KANGXI RADICAL MELON
+02F61	KANGXI RADICAL TILE
+02F62	KANGXI RADICAL SWEET
+02F63	KANGXI RADICAL LIFE
+02F64	KANGXI RADICAL USE
+02F65	KANGXI RADICAL FIELD
+02F66	KANGXI RADICAL BOLT OF CLOTH
+02F67	KANGXI RADICAL SICKNESS
+02F68	KANGXI RADICAL DOTTED TENT
+02F69	KANGXI RADICAL WHITE
+02F6A	KANGXI RADICAL SKIN
+02F6B	KANGXI RADICAL DISH
+02F6C	KANGXI RADICAL EYE
+02F6D	KANGXI RADICAL SPEAR
+02F6E	KANGXI RADICAL ARROW
+02F6F	KANGXI RADICAL STONE
+02F70	KANGXI RADICAL SPIRIT
+02F71	KANGXI RADICAL TRACK
+02F72	KANGXI RADICAL GRAIN
+02F73	KANGXI RADICAL CAVE
+02F74	KANGXI RADICAL STAND
+02F75	KANGXI RADICAL BAMBOO
+02F76	KANGXI RADICAL RICE
+02F77	KANGXI RADICAL SILK
+02F78	KANGXI RADICAL JAR
+02F79	KANGXI RADICAL NET
+02F7A	KANGXI RADICAL SHEEP
+02F7B	KANGXI RADICAL FEATHER
+02F7C	KANGXI RADICAL OLD
+02F7D	KANGXI RADICAL AND
+02F7E	KANGXI RADICAL PLOW
+02F7F	KANGXI RADICAL EAR
+02F80	KANGXI RADICAL BRUSH
+02F81	KANGXI RADICAL MEAT
+02F82	KANGXI RADICAL MINISTER
+02F83	KANGXI RADICAL SELF
+02F84	KANGXI RADICAL ARRIVE
+02F85	KANGXI RADICAL MORTAR
+02F86	KANGXI RADICAL TONGUE
+02F87	KANGXI RADICAL OPPOSE
+02F88	KANGXI RADICAL BOAT
+02F89	KANGXI RADICAL STOPPING
+02F8A	KANGXI RADICAL COLOR
+02F8B	KANGXI RADICAL GRASS
+02F8C	KANGXI RADICAL TIGER
+02F8D	KANGXI RADICAL INSECT
+02F8E	KANGXI RADICAL BLOOD
+02F8F	KANGXI RADICAL WALK ENCLOSURE
+02F90	KANGXI RADICAL CLOTHES
+02F91	KANGXI RADICAL WEST
+02F92	KANGXI RADICAL SEE
+02F93	KANGXI RADICAL HORN
+02F94	KANGXI RADICAL SPEECH
+02F95	KANGXI RADICAL VALLEY
+02F96	KANGXI RADICAL BEAN
+02F97	KANGXI RADICAL PIG
+02F98	KANGXI RADICAL BADGER
+02F99	KANGXI RADICAL SHELL
+02F9A	KANGXI RADICAL RED
+02F9B	KANGXI RADICAL RUN
+02F9C	KANGXI RADICAL FOOT
+02F9D	KANGXI RADICAL BODY
+02F9E	KANGXI RADICAL CART
+02F9F	KANGXI RADICAL BITTER
+02FA0	KANGXI RADICAL MORNING
+02FA1	KANGXI RADICAL WALK
+02FA2	KANGXI RADICAL CITY
+02FA3	KANGXI RADICAL WINE
+02FA4	KANGXI RADICAL DISTINGUISH
+02FA5	KANGXI RADICAL VILLAGE
+02FA6	KANGXI RADICAL GOLD
+02FA7	KANGXI RADICAL LONG
+02FA8	KANGXI RADICAL GATE
+02FA9	KANGXI RADICAL MOUND
+02FAA	KANGXI RADICAL SLAVE
+02FAB	KANGXI RADICAL SHORT TAILED BIRD
+02FAC	KANGXI RADICAL RAIN
+02FAD	KANGXI RADICAL BLUE
+02FAE	KANGXI RADICAL WRONG
+02FAF	KANGXI RADICAL FACE
+02FB0	KANGXI RADICAL LEATHER
+02FB1	KANGXI RADICAL TANNED LEATHER
+02FB2	KANGXI RADICAL LEEK
+02FB3	KANGXI RADICAL SOUND
+02FB4	KANGXI RADICAL LEAF
+02FB5	KANGXI RADICAL WIND
+02FB6	KANGXI RADICAL FLY
+02FB7	KANGXI RADICAL EAT
+02FB8	KANGXI RADICAL HEAD
+02FB9	KANGXI RADICAL FRAGRANT
+02FBA	KANGXI RADICAL HORSE
+02FBB	KANGXI RADICAL BONE
+02FBC	KANGXI RADICAL TALL
+02FBD	KANGXI RADICAL HAIR
+02FBE	KANGXI RADICAL FIGHT
+02FBF	KANGXI RADICAL SACRIFICIAL WINE
+02FC0	KANGXI RADICAL CAULDRON
+02FC1	KANGXI RADICAL GHOST
+02FC2	KANGXI RADICAL FISH
+02FC3	KANGXI RADICAL BIRD
+02FC4	KANGXI RADICAL SALT
+02FC5	KANGXI RADICAL DEER
+02FC6	KANGXI RADICAL WHEAT
+02FC7	KANGXI RADICAL HEMP
+02FC8	KANGXI RADICAL YELLOW
+02FC9	KANGXI RADICAL MILLET
+02FCA	KANGXI RADICAL BLACK
+02FCB	KANGXI RADICAL EMBROIDERY
+02FCC	KANGXI RADICAL FROG
+02FCD	KANGXI RADICAL TRIPOD
+02FCE	KANGXI RADICAL DRUM
+02FCF	KANGXI RADICAL RAT
+02FD0	KANGXI RADICAL NOSE
+02FD1	KANGXI RADICAL EVEN
+02FD2	KANGXI RADICAL TOOTH
+02FD3	KANGXI RADICAL DRAGON
+02FD4	KANGXI RADICAL TURTLE
+02FD5	KANGXI RADICAL FLUTE
+02FF0	IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT
+02FF1	IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW
+02FF2	IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO MIDDLE AND RIGHT
+02FF3	IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO MIDDLE AND BELOW
+02FF4	IDEOGRAPHIC DESCRIPTION CHARACTER FULL SURROUND
+02FF5	IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM ABOVE
+02FF6	IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM BELOW
+02FF7	IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM LEFT
+02FF8	IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER LEFT
+02FF9	IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER RIGHT
+02FFA	IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM LOWER LEFT
+02FFB	IDEOGRAPHIC DESCRIPTION CHARACTER OVERLAID
+03000	IDEOGRAPHIC SPACE
+03001	IDEOGRAPHIC COMMA
+03002	IDEOGRAPHIC FULL STOP
+03003	DITTO MARK
+03004	JAPANESE INDUSTRIAL STANDARD SYMBOL
+03005	IDEOGRAPHIC ITERATION MARK
+03006	IDEOGRAPHIC CLOSING MARK
+03007	IDEOGRAPHIC NUMBER ZERO
+03008	LEFT ANGLE BRACKET
+03009	RIGHT ANGLE BRACKET
+0300A	LEFT DOUBLE ANGLE BRACKET
+0300B	RIGHT DOUBLE ANGLE BRACKET
+0300C	LEFT CORNER BRACKET
+0300D	RIGHT CORNER BRACKET
+0300E	LEFT WHITE CORNER BRACKET
+0300F	RIGHT WHITE CORNER BRACKET
+03010	LEFT BLACK LENTICULAR BRACKET
+03011	RIGHT BLACK LENTICULAR BRACKET
+03012	POSTAL MARK
+03013	GETA MARK
+03014	LEFT TORTOISE SHELL BRACKET
+03015	RIGHT TORTOISE SHELL BRACKET
+03016	LEFT WHITE LENTICULAR BRACKET
+03017	RIGHT WHITE LENTICULAR BRACKET
+03018	LEFT WHITE TORTOISE SHELL BRACKET
+03019	RIGHT WHITE TORTOISE SHELL BRACKET
+0301A	LEFT WHITE SQUARE BRACKET
+0301B	RIGHT WHITE SQUARE BRACKET
+0301C	WAVE DASH
+0301D	REVERSED DOUBLE PRIME QUOTATION MARK
+0301E	DOUBLE PRIME QUOTATION MARK
+0301F	LOW DOUBLE PRIME QUOTATION MARK
+03020	POSTAL MARK FACE
+03021	HANGZHOU NUMERAL ONE
+03022	HANGZHOU NUMERAL TWO
+03023	HANGZHOU NUMERAL THREE
+03024	HANGZHOU NUMERAL FOUR
+03025	HANGZHOU NUMERAL FIVE
+03026	HANGZHOU NUMERAL SIX
+03027	HANGZHOU NUMERAL SEVEN
+03028	HANGZHOU NUMERAL EIGHT
+03029	HANGZHOU NUMERAL NINE
+0302A	IDEOGRAPHIC LEVEL TONE MARK
+0302B	IDEOGRAPHIC RISING TONE MARK
+0302C	IDEOGRAPHIC DEPARTING TONE MARK
+0302D	IDEOGRAPHIC ENTERING TONE MARK
+0302E	HANGUL SINGLE DOT TONE MARK
+0302F	HANGUL DOUBLE DOT TONE MARK
+03030	WAVY DASH
+03031	VERTICAL KANA REPEAT MARK
+03032	VERTICAL KANA REPEAT WITH VOICED SOUND MARK
+03033	VERTICAL KANA REPEAT MARK UPPER HALF
+03034	VERTICAL KANA REPEAT WITH VOICED SOUND MARK UPPER HALF
+03035	VERTICAL KANA REPEAT MARK LOWER HALF
+03036	CIRCLED POSTAL MARK
+03037	IDEOGRAPHIC TELEGRAPH LINE FEED SEPARATOR SYMBOL
+03038	HANGZHOU NUMERAL TEN
+03039	HANGZHOU NUMERAL TWENTY
+0303A	HANGZHOU NUMERAL THIRTY
+0303B	VERTICAL IDEOGRAPHIC ITERATION MARK
+0303C	MASU MARK
+0303D	PART ALTERNATION MARK
+0303E	IDEOGRAPHIC VARIATION INDICATOR
+0303F	IDEOGRAPHIC HALF FILL SPACE
+03041	HIRAGANA LETTER SMALL A
+03042	HIRAGANA LETTER A
+03043	HIRAGANA LETTER SMALL I
+03044	HIRAGANA LETTER I
+03045	HIRAGANA LETTER SMALL U
+03046	HIRAGANA LETTER U
+03047	HIRAGANA LETTER SMALL E
+03048	HIRAGANA LETTER E
+03049	HIRAGANA LETTER SMALL O
+0304A	HIRAGANA LETTER O
+0304B	HIRAGANA LETTER KA
+0304C	HIRAGANA LETTER GA
+0304D	HIRAGANA LETTER KI
+0304E	HIRAGANA LETTER GI
+0304F	HIRAGANA LETTER KU
+03050	HIRAGANA LETTER GU
+03051	HIRAGANA LETTER KE
+03052	HIRAGANA LETTER GE
+03053	HIRAGANA LETTER KO
+03054	HIRAGANA LETTER GO
+03055	HIRAGANA LETTER SA
+03056	HIRAGANA LETTER ZA
+03057	HIRAGANA LETTER SI
+03058	HIRAGANA LETTER ZI
+03059	HIRAGANA LETTER SU
+0305A	HIRAGANA LETTER ZU
+0305B	HIRAGANA LETTER SE
+0305C	HIRAGANA LETTER ZE
+0305D	HIRAGANA LETTER SO
+0305E	HIRAGANA LETTER ZO
+0305F	HIRAGANA LETTER TA
+03060	HIRAGANA LETTER DA
+03061	HIRAGANA LETTER TI
+03062	HIRAGANA LETTER DI
+03063	HIRAGANA LETTER SMALL TU
+03064	HIRAGANA LETTER TU
+03065	HIRAGANA LETTER DU
+03066	HIRAGANA LETTER TE
+03067	HIRAGANA LETTER DE
+03068	HIRAGANA LETTER TO
+03069	HIRAGANA LETTER DO
+0306A	HIRAGANA LETTER NA
+0306B	HIRAGANA LETTER NI
+0306C	HIRAGANA LETTER NU
+0306D	HIRAGANA LETTER NE
+0306E	HIRAGANA LETTER NO
+0306F	HIRAGANA LETTER HA
+03070	HIRAGANA LETTER BA
+03071	HIRAGANA LETTER PA
+03072	HIRAGANA LETTER HI
+03073	HIRAGANA LETTER BI
+03074	HIRAGANA LETTER PI
+03075	HIRAGANA LETTER HU
+03076	HIRAGANA LETTER BU
+03077	HIRAGANA LETTER PU
+03078	HIRAGANA LETTER HE
+03079	HIRAGANA LETTER BE
+0307A	HIRAGANA LETTER PE
+0307B	HIRAGANA LETTER HO
+0307C	HIRAGANA LETTER BO
+0307D	HIRAGANA LETTER PO
+0307E	HIRAGANA LETTER MA
+0307F	HIRAGANA LETTER MI
+03080	HIRAGANA LETTER MU
+03081	HIRAGANA LETTER ME
+03082	HIRAGANA LETTER MO
+03083	HIRAGANA LETTER SMALL YA
+03084	HIRAGANA LETTER YA
+03085	HIRAGANA LETTER SMALL YU
+03086	HIRAGANA LETTER YU
+03087	HIRAGANA LETTER SMALL YO
+03088	HIRAGANA LETTER YO
+03089	HIRAGANA LETTER RA
+0308A	HIRAGANA LETTER RI
+0308B	HIRAGANA LETTER RU
+0308C	HIRAGANA LETTER RE
+0308D	HIRAGANA LETTER RO
+0308E	HIRAGANA LETTER SMALL WA
+0308F	HIRAGANA LETTER WA
+03090	HIRAGANA LETTER WI
+03091	HIRAGANA LETTER WE
+03092	HIRAGANA LETTER WO
+03093	HIRAGANA LETTER N
+03094	HIRAGANA LETTER VU
+03095	HIRAGANA LETTER SMALL KA
+03096	HIRAGANA LETTER SMALL KE
+03099	COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK
+0309A	COMBINING KATAKANA-HIRAGANA SEMI-VOICED SOUND MARK
+0309B	KATAKANA-HIRAGANA VOICED SOUND MARK
+0309C	KATAKANA-HIRAGANA SEMI-VOICED SOUND MARK
+0309D	HIRAGANA ITERATION MARK
+0309E	HIRAGANA VOICED ITERATION MARK
+0309F	HIRAGANA DIGRAPH YORI
+030A0	KATAKANA-HIRAGANA DOUBLE HYPHEN
+030A1	KATAKANA LETTER SMALL A
+030A2	KATAKANA LETTER A
+030A3	KATAKANA LETTER SMALL I
+030A4	KATAKANA LETTER I
+030A5	KATAKANA LETTER SMALL U
+030A6	KATAKANA LETTER U
+030A7	KATAKANA LETTER SMALL E
+030A8	KATAKANA LETTER E
+030A9	KATAKANA LETTER SMALL O
+030AA	KATAKANA LETTER O
+030AB	KATAKANA LETTER KA
+030AC	KATAKANA LETTER GA
+030AD	KATAKANA LETTER KI
+030AE	KATAKANA LETTER GI
+030AF	KATAKANA LETTER KU
+030B0	KATAKANA LETTER GU
+030B1	KATAKANA LETTER KE
+030B2	KATAKANA LETTER GE
+030B3	KATAKANA LETTER KO
+030B4	KATAKANA LETTER GO
+030B5	KATAKANA LETTER SA
+030B6	KATAKANA LETTER ZA
+030B7	KATAKANA LETTER SI
+030B8	KATAKANA LETTER ZI
+030B9	KATAKANA LETTER SU
+030BA	KATAKANA LETTER ZU
+030BB	KATAKANA LETTER SE
+030BC	KATAKANA LETTER ZE
+030BD	KATAKANA LETTER SO
+030BE	KATAKANA LETTER ZO
+030BF	KATAKANA LETTER TA
+030C0	KATAKANA LETTER DA
+030C1	KATAKANA LETTER TI
+030C2	KATAKANA LETTER DI
+030C3	KATAKANA LETTER SMALL TU
+030C4	KATAKANA LETTER TU
+030C5	KATAKANA LETTER DU
+030C6	KATAKANA LETTER TE
+030C7	KATAKANA LETTER DE
+030C8	KATAKANA LETTER TO
+030C9	KATAKANA LETTER DO
+030CA	KATAKANA LETTER NA
+030CB	KATAKANA LETTER NI
+030CC	KATAKANA LETTER NU
+030CD	KATAKANA LETTER NE
+030CE	KATAKANA LETTER NO
+030CF	KATAKANA LETTER HA
+030D0	KATAKANA LETTER BA
+030D1	KATAKANA LETTER PA
+030D2	KATAKANA LETTER HI
+030D3	KATAKANA LETTER BI
+030D4	KATAKANA LETTER PI
+030D5	KATAKANA LETTER HU
+030D6	KATAKANA LETTER BU
+030D7	KATAKANA LETTER PU
+030D8	KATAKANA LETTER HE
+030D9	KATAKANA LETTER BE
+030DA	KATAKANA LETTER PE
+030DB	KATAKANA LETTER HO
+030DC	KATAKANA LETTER BO
+030DD	KATAKANA LETTER PO
+030DE	KATAKANA LETTER MA
+030DF	KATAKANA LETTER MI
+030E0	KATAKANA LETTER MU
+030E1	KATAKANA LETTER ME
+030E2	KATAKANA LETTER MO
+030E3	KATAKANA LETTER SMALL YA
+030E4	KATAKANA LETTER YA
+030E5	KATAKANA LETTER SMALL YU
+030E6	KATAKANA LETTER YU
+030E7	KATAKANA LETTER SMALL YO
+030E8	KATAKANA LETTER YO
+030E9	KATAKANA LETTER RA
+030EA	KATAKANA LETTER RI
+030EB	KATAKANA LETTER RU
+030EC	KATAKANA LETTER RE
+030ED	KATAKANA LETTER RO
+030EE	KATAKANA LETTER SMALL WA
+030EF	KATAKANA LETTER WA
+030F0	KATAKANA LETTER WI
+030F1	KATAKANA LETTER WE
+030F2	KATAKANA LETTER WO
+030F3	KATAKANA LETTER N
+030F4	KATAKANA LETTER VU
+030F5	KATAKANA LETTER SMALL KA
+030F6	KATAKANA LETTER SMALL KE
+030F7	KATAKANA LETTER VA
+030F8	KATAKANA LETTER VI
+030F9	KATAKANA LETTER VE
+030FA	KATAKANA LETTER VO
+030FB	KATAKANA MIDDLE DOT
+030FC	KATAKANA-HIRAGANA PROLONGED SOUND MARK
+030FD	KATAKANA ITERATION MARK
+030FE	KATAKANA VOICED ITERATION MARK
+030FF	KATAKANA DIGRAPH KOTO
+03105	BOPOMOFO LETTER B
+03106	BOPOMOFO LETTER P
+03107	BOPOMOFO LETTER M
+03108	BOPOMOFO LETTER F
+03109	BOPOMOFO LETTER D
+0310A	BOPOMOFO LETTER T
+0310B	BOPOMOFO LETTER N
+0310C	BOPOMOFO LETTER L
+0310D	BOPOMOFO LETTER G
+0310E	BOPOMOFO LETTER K
+0310F	BOPOMOFO LETTER H
+03110	BOPOMOFO LETTER J
+03111	BOPOMOFO LETTER Q
+03112	BOPOMOFO LETTER X
+03113	BOPOMOFO LETTER ZH
+03114	BOPOMOFO LETTER CH
+03115	BOPOMOFO LETTER SH
+03116	BOPOMOFO LETTER R
+03117	BOPOMOFO LETTER Z
+03118	BOPOMOFO LETTER C
+03119	BOPOMOFO LETTER S
+0311A	BOPOMOFO LETTER A
+0311B	BOPOMOFO LETTER O
+0311C	BOPOMOFO LETTER E
+0311D	BOPOMOFO LETTER EH
+0311E	BOPOMOFO LETTER AI
+0311F	BOPOMOFO LETTER EI
+03120	BOPOMOFO LETTER AU
+03121	BOPOMOFO LETTER OU
+03122	BOPOMOFO LETTER AN
+03123	BOPOMOFO LETTER EN
+03124	BOPOMOFO LETTER ANG
+03125	BOPOMOFO LETTER ENG
+03126	BOPOMOFO LETTER ER
+03127	BOPOMOFO LETTER I
+03128	BOPOMOFO LETTER U
+03129	BOPOMOFO LETTER IU
+0312A	BOPOMOFO LETTER V
+0312B	BOPOMOFO LETTER NG
+0312C	BOPOMOFO LETTER GN
+0312D	BOPOMOFO LETTER IH
+03131	HANGUL LETTER KIYEOK
+03132	HANGUL LETTER SSANGKIYEOK
+03133	HANGUL LETTER KIYEOK-SIOS
+03134	HANGUL LETTER NIEUN
+03135	HANGUL LETTER NIEUN-CIEUC
+03136	HANGUL LETTER NIEUN-HIEUH
+03137	HANGUL LETTER TIKEUT
+03138	HANGUL LETTER SSANGTIKEUT
+03139	HANGUL LETTER RIEUL
+0313A	HANGUL LETTER RIEUL-KIYEOK
+0313B	HANGUL LETTER RIEUL-MIEUM
+0313C	HANGUL LETTER RIEUL-PIEUP
+0313D	HANGUL LETTER RIEUL-SIOS
+0313E	HANGUL LETTER RIEUL-THIEUTH
+0313F	HANGUL LETTER RIEUL-PHIEUPH
+03140	HANGUL LETTER RIEUL-HIEUH
+03141	HANGUL LETTER MIEUM
+03142	HANGUL LETTER PIEUP
+03143	HANGUL LETTER SSANGPIEUP
+03144	HANGUL LETTER PIEUP-SIOS
+03145	HANGUL LETTER SIOS
+03146	HANGUL LETTER SSANGSIOS
+03147	HANGUL LETTER IEUNG
+03148	HANGUL LETTER CIEUC
+03149	HANGUL LETTER SSANGCIEUC
+0314A	HANGUL LETTER CHIEUCH
+0314B	HANGUL LETTER KHIEUKH
+0314C	HANGUL LETTER THIEUTH
+0314D	HANGUL LETTER PHIEUPH
+0314E	HANGUL LETTER HIEUH
+0314F	HANGUL LETTER A
+03150	HANGUL LETTER AE
+03151	HANGUL LETTER YA
+03152	HANGUL LETTER YAE
+03153	HANGUL LETTER EO
+03154	HANGUL LETTER E
+03155	HANGUL LETTER YEO
+03156	HANGUL LETTER YE
+03157	HANGUL LETTER O
+03158	HANGUL LETTER WA
+03159	HANGUL LETTER WAE
+0315A	HANGUL LETTER OE
+0315B	HANGUL LETTER YO
+0315C	HANGUL LETTER U
+0315D	HANGUL LETTER WEO
+0315E	HANGUL LETTER WE
+0315F	HANGUL LETTER WI
+03160	HANGUL LETTER YU
+03161	HANGUL LETTER EU
+03162	HANGUL LETTER YI
+03163	HANGUL LETTER I
+03164	HANGUL FILLER
+03165	HANGUL LETTER SSANGNIEUN
+03166	HANGUL LETTER NIEUN-TIKEUT
+03167	HANGUL LETTER NIEUN-SIOS
+03168	HANGUL LETTER NIEUN-PANSIOS
+03169	HANGUL LETTER RIEUL-KIYEOK-SIOS
+0316A	HANGUL LETTER RIEUL-TIKEUT
+0316B	HANGUL LETTER RIEUL-PIEUP-SIOS
+0316C	HANGUL LETTER RIEUL-PANSIOS
+0316D	HANGUL LETTER RIEUL-YEORINHIEUH
+0316E	HANGUL LETTER MIEUM-PIEUP
+0316F	HANGUL LETTER MIEUM-SIOS
+03170	HANGUL LETTER MIEUM-PANSIOS
+03171	HANGUL LETTER KAPYEOUNMIEUM
+03172	HANGUL LETTER PIEUP-KIYEOK
+03173	HANGUL LETTER PIEUP-TIKEUT
+03174	HANGUL LETTER PIEUP-SIOS-KIYEOK
+03175	HANGUL LETTER PIEUP-SIOS-TIKEUT
+03176	HANGUL LETTER PIEUP-CIEUC
+03177	HANGUL LETTER PIEUP-THIEUTH
+03178	HANGUL LETTER KAPYEOUNPIEUP
+03179	HANGUL LETTER KAPYEOUNSSANGPIEUP
+0317A	HANGUL LETTER SIOS-KIYEOK
+0317B	HANGUL LETTER SIOS-NIEUN
+0317C	HANGUL LETTER SIOS-TIKEUT
+0317D	HANGUL LETTER SIOS-PIEUP
+0317E	HANGUL LETTER SIOS-CIEUC
+0317F	HANGUL LETTER PANSIOS
+03180	HANGUL LETTER SSANGIEUNG
+03181	HANGUL LETTER YESIEUNG
+03182	HANGUL LETTER YESIEUNG-SIOS
+03183	HANGUL LETTER YESIEUNG-PANSIOS
+03184	HANGUL LETTER KAPYEOUNPHIEUPH
+03185	HANGUL LETTER SSANGHIEUH
+03186	HANGUL LETTER YEORINHIEUH
+03187	HANGUL LETTER YO-YA
+03188	HANGUL LETTER YO-YAE
+03189	HANGUL LETTER YO-I
+0318A	HANGUL LETTER YU-YEO
+0318B	HANGUL LETTER YU-YE
+0318C	HANGUL LETTER YU-I
+0318D	HANGUL LETTER ARAEA
+0318E	HANGUL LETTER ARAEAE
+03190	IDEOGRAPHIC ANNOTATION LINKING MARK
+03191	IDEOGRAPHIC ANNOTATION REVERSE MARK
+03192	IDEOGRAPHIC ANNOTATION ONE MARK
+03193	IDEOGRAPHIC ANNOTATION TWO MARK
+03194	IDEOGRAPHIC ANNOTATION THREE MARK
+03195	IDEOGRAPHIC ANNOTATION FOUR MARK
+03196	IDEOGRAPHIC ANNOTATION TOP MARK
+03197	IDEOGRAPHIC ANNOTATION MIDDLE MARK
+03198	IDEOGRAPHIC ANNOTATION BOTTOM MARK
+03199	IDEOGRAPHIC ANNOTATION FIRST MARK
+0319A	IDEOGRAPHIC ANNOTATION SECOND MARK
+0319B	IDEOGRAPHIC ANNOTATION THIRD MARK
+0319C	IDEOGRAPHIC ANNOTATION FOURTH MARK
+0319D	IDEOGRAPHIC ANNOTATION HEAVEN MARK
+0319E	IDEOGRAPHIC ANNOTATION EARTH MARK
+0319F	IDEOGRAPHIC ANNOTATION MAN MARK
+031A0	BOPOMOFO LETTER BU
+031A1	BOPOMOFO LETTER ZI
+031A2	BOPOMOFO LETTER JI
+031A3	BOPOMOFO LETTER GU
+031A4	BOPOMOFO LETTER EE
+031A5	BOPOMOFO LETTER ENN
+031A6	BOPOMOFO LETTER OO
+031A7	BOPOMOFO LETTER ONN
+031A8	BOPOMOFO LETTER IR
+031A9	BOPOMOFO LETTER ANN
+031AA	BOPOMOFO LETTER INN
+031AB	BOPOMOFO LETTER UNN
+031AC	BOPOMOFO LETTER IM
+031AD	BOPOMOFO LETTER NGG
+031AE	BOPOMOFO LETTER AINN
+031AF	BOPOMOFO LETTER AUNN
+031B0	BOPOMOFO LETTER AM
+031B1	BOPOMOFO LETTER OM
+031B2	BOPOMOFO LETTER ONG
+031B3	BOPOMOFO LETTER INNN
+031B4	BOPOMOFO FINAL LETTER P
+031B5	BOPOMOFO FINAL LETTER T
+031B6	BOPOMOFO FINAL LETTER K
+031B7	BOPOMOFO FINAL LETTER H
+031B8	BOPOMOFO LETTER GH
+031B9	BOPOMOFO LETTER LH
+031BA	BOPOMOFO LETTER ZY
+031C0	CJK STROKE T
+031C1	CJK STROKE WG
+031C2	CJK STROKE XG
+031C3	CJK STROKE BXG
+031C4	CJK STROKE SW
+031C5	CJK STROKE HZZ
+031C6	CJK STROKE HZG
+031C7	CJK STROKE HP
+031C8	CJK STROKE HZWG
+031C9	CJK STROKE SZWG
+031CA	CJK STROKE HZT
+031CB	CJK STROKE HZZP
+031CC	CJK STROKE HPWG
+031CD	CJK STROKE HZW
+031CE	CJK STROKE HZZZ
+031CF	CJK STROKE N
+031D0	CJK STROKE H
+031D1	CJK STROKE S
+031D2	CJK STROKE P
+031D3	CJK STROKE SP
+031D4	CJK STROKE D
+031D5	CJK STROKE HZ
+031D6	CJK STROKE HG
+031D7	CJK STROKE SZ
+031D8	CJK STROKE SWZ
+031D9	CJK STROKE ST
+031DA	CJK STROKE SG
+031DB	CJK STROKE PD
+031DC	CJK STROKE PZ
+031DD	CJK STROKE TN
+031DE	CJK STROKE SZZ
+031DF	CJK STROKE SWG
+031E0	CJK STROKE HXWG
+031E1	CJK STROKE HZZZG
+031E2	CJK STROKE PG
+031E3	CJK STROKE Q
+031F0	KATAKANA LETTER SMALL KU
+031F1	KATAKANA LETTER SMALL SI
+031F2	KATAKANA LETTER SMALL SU
+031F3	KATAKANA LETTER SMALL TO
+031F4	KATAKANA LETTER SMALL NU
+031F5	KATAKANA LETTER SMALL HA
+031F6	KATAKANA LETTER SMALL HI
+031F7	KATAKANA LETTER SMALL HU
+031F8	KATAKANA LETTER SMALL HE
+031F9	KATAKANA LETTER SMALL HO
+031FA	KATAKANA LETTER SMALL MU
+031FB	KATAKANA LETTER SMALL RA
+031FC	KATAKANA LETTER SMALL RI
+031FD	KATAKANA LETTER SMALL RU
+031FE	KATAKANA LETTER SMALL RE
+031FF	KATAKANA LETTER SMALL RO
+03200	PARENTHESIZED HANGUL KIYEOK
+03201	PARENTHESIZED HANGUL NIEUN
+03202	PARENTHESIZED HANGUL TIKEUT
+03203	PARENTHESIZED HANGUL RIEUL
+03204	PARENTHESIZED HANGUL MIEUM
+03205	PARENTHESIZED HANGUL PIEUP
+03206	PARENTHESIZED HANGUL SIOS
+03207	PARENTHESIZED HANGUL IEUNG
+03208	PARENTHESIZED HANGUL CIEUC
+03209	PARENTHESIZED HANGUL CHIEUCH
+0320A	PARENTHESIZED HANGUL KHIEUKH
+0320B	PARENTHESIZED HANGUL THIEUTH
+0320C	PARENTHESIZED HANGUL PHIEUPH
+0320D	PARENTHESIZED HANGUL HIEUH
+0320E	PARENTHESIZED HANGUL KIYEOK A
+0320F	PARENTHESIZED HANGUL NIEUN A
+03210	PARENTHESIZED HANGUL TIKEUT A
+03211	PARENTHESIZED HANGUL RIEUL A
+03212	PARENTHESIZED HANGUL MIEUM A
+03213	PARENTHESIZED HANGUL PIEUP A
+03214	PARENTHESIZED HANGUL SIOS A
+03215	PARENTHESIZED HANGUL IEUNG A
+03216	PARENTHESIZED HANGUL CIEUC A
+03217	PARENTHESIZED HANGUL CHIEUCH A
+03218	PARENTHESIZED HANGUL KHIEUKH A
+03219	PARENTHESIZED HANGUL THIEUTH A
+0321A	PARENTHESIZED HANGUL PHIEUPH A
+0321B	PARENTHESIZED HANGUL HIEUH A
+0321C	PARENTHESIZED HANGUL CIEUC U
+0321D	PARENTHESIZED KOREAN CHARACTER OJEON
+0321E	PARENTHESIZED KOREAN CHARACTER O HU
+03220	PARENTHESIZED IDEOGRAPH ONE
+03221	PARENTHESIZED IDEOGRAPH TWO
+03222	PARENTHESIZED IDEOGRAPH THREE
+03223	PARENTHESIZED IDEOGRAPH FOUR
+03224	PARENTHESIZED IDEOGRAPH FIVE
+03225	PARENTHESIZED IDEOGRAPH SIX
+03226	PARENTHESIZED IDEOGRAPH SEVEN
+03227	PARENTHESIZED IDEOGRAPH EIGHT
+03228	PARENTHESIZED IDEOGRAPH NINE
+03229	PARENTHESIZED IDEOGRAPH TEN
+0322A	PARENTHESIZED IDEOGRAPH MOON
+0322B	PARENTHESIZED IDEOGRAPH FIRE
+0322C	PARENTHESIZED IDEOGRAPH WATER
+0322D	PARENTHESIZED IDEOGRAPH WOOD
+0322E	PARENTHESIZED IDEOGRAPH METAL
+0322F	PARENTHESIZED IDEOGRAPH EARTH
+03230	PARENTHESIZED IDEOGRAPH SUN
+03231	PARENTHESIZED IDEOGRAPH STOCK
+03232	PARENTHESIZED IDEOGRAPH HAVE
+03233	PARENTHESIZED IDEOGRAPH SOCIETY
+03234	PARENTHESIZED IDEOGRAPH NAME
+03235	PARENTHESIZED IDEOGRAPH SPECIAL
+03236	PARENTHESIZED IDEOGRAPH FINANCIAL
+03237	PARENTHESIZED IDEOGRAPH CONGRATULATION
+03238	PARENTHESIZED IDEOGRAPH LABOR
+03239	PARENTHESIZED IDEOGRAPH REPRESENT
+0323A	PARENTHESIZED IDEOGRAPH CALL
+0323B	PARENTHESIZED IDEOGRAPH STUDY
+0323C	PARENTHESIZED IDEOGRAPH SUPERVISE
+0323D	PARENTHESIZED IDEOGRAPH ENTERPRISE
+0323E	PARENTHESIZED IDEOGRAPH RESOURCE
+0323F	PARENTHESIZED IDEOGRAPH ALLIANCE
+03240	PARENTHESIZED IDEOGRAPH FESTIVAL
+03241	PARENTHESIZED IDEOGRAPH REST
+03242	PARENTHESIZED IDEOGRAPH SELF
+03243	PARENTHESIZED IDEOGRAPH REACH
+03244	CIRCLED IDEOGRAPH QUESTION
+03245	CIRCLED IDEOGRAPH KINDERGARTEN
+03246	CIRCLED IDEOGRAPH SCHOOL
+03247	CIRCLED IDEOGRAPH KOTO
+03248	CIRCLED NUMBER TEN ON BLACK SQUARE
+03249	CIRCLED NUMBER TWENTY ON BLACK SQUARE
+0324A	CIRCLED NUMBER THIRTY ON BLACK SQUARE
+0324B	CIRCLED NUMBER FORTY ON BLACK SQUARE
+0324C	CIRCLED NUMBER FIFTY ON BLACK SQUARE
+0324D	CIRCLED NUMBER SIXTY ON BLACK SQUARE
+0324E	CIRCLED NUMBER SEVENTY ON BLACK SQUARE
+0324F	CIRCLED NUMBER EIGHTY ON BLACK SQUARE
+03250	PARTNERSHIP SIGN
+03251	CIRCLED NUMBER TWENTY ONE
+03252	CIRCLED NUMBER TWENTY TWO
+03253	CIRCLED NUMBER TWENTY THREE
+03254	CIRCLED NUMBER TWENTY FOUR
+03255	CIRCLED NUMBER TWENTY FIVE
+03256	CIRCLED NUMBER TWENTY SIX
+03257	CIRCLED NUMBER TWENTY SEVEN
+03258	CIRCLED NUMBER TWENTY EIGHT
+03259	CIRCLED NUMBER TWENTY NINE
+0325A	CIRCLED NUMBER THIRTY
+0325B	CIRCLED NUMBER THIRTY ONE
+0325C	CIRCLED NUMBER THIRTY TWO
+0325D	CIRCLED NUMBER THIRTY THREE
+0325E	CIRCLED NUMBER THIRTY FOUR
+0325F	CIRCLED NUMBER THIRTY FIVE
+03260	CIRCLED HANGUL KIYEOK
+03261	CIRCLED HANGUL NIEUN
+03262	CIRCLED HANGUL TIKEUT
+03263	CIRCLED HANGUL RIEUL
+03264	CIRCLED HANGUL MIEUM
+03265	CIRCLED HANGUL PIEUP
+03266	CIRCLED HANGUL SIOS
+03267	CIRCLED HANGUL IEUNG
+03268	CIRCLED HANGUL CIEUC
+03269	CIRCLED HANGUL CHIEUCH
+0326A	CIRCLED HANGUL KHIEUKH
+0326B	CIRCLED HANGUL THIEUTH
+0326C	CIRCLED HANGUL PHIEUPH
+0326D	CIRCLED HANGUL HIEUH
+0326E	CIRCLED HANGUL KIYEOK A
+0326F	CIRCLED HANGUL NIEUN A
+03270	CIRCLED HANGUL TIKEUT A
+03271	CIRCLED HANGUL RIEUL A
+03272	CIRCLED HANGUL MIEUM A
+03273	CIRCLED HANGUL PIEUP A
+03274	CIRCLED HANGUL SIOS A
+03275	CIRCLED HANGUL IEUNG A
+03276	CIRCLED HANGUL CIEUC A
+03277	CIRCLED HANGUL CHIEUCH A
+03278	CIRCLED HANGUL KHIEUKH A
+03279	CIRCLED HANGUL THIEUTH A
+0327A	CIRCLED HANGUL PHIEUPH A
+0327B	CIRCLED HANGUL HIEUH A
+0327C	CIRCLED KOREAN CHARACTER CHAMKO
+0327D	CIRCLED KOREAN CHARACTER JUEUI
+0327E	CIRCLED HANGUL IEUNG U
+0327F	KOREAN STANDARD SYMBOL
+03280	CIRCLED IDEOGRAPH ONE
+03281	CIRCLED IDEOGRAPH TWO
+03282	CIRCLED IDEOGRAPH THREE
+03283	CIRCLED IDEOGRAPH FOUR
+03284	CIRCLED IDEOGRAPH FIVE
+03285	CIRCLED IDEOGRAPH SIX
+03286	CIRCLED IDEOGRAPH SEVEN
+03287	CIRCLED IDEOGRAPH EIGHT
+03288	CIRCLED IDEOGRAPH NINE
+03289	CIRCLED IDEOGRAPH TEN
+0328A	CIRCLED IDEOGRAPH MOON
+0328B	CIRCLED IDEOGRAPH FIRE
+0328C	CIRCLED IDEOGRAPH WATER
+0328D	CIRCLED IDEOGRAPH WOOD
+0328E	CIRCLED IDEOGRAPH METAL
+0328F	CIRCLED IDEOGRAPH EARTH
+03290	CIRCLED IDEOGRAPH SUN
+03291	CIRCLED IDEOGRAPH STOCK
+03292	CIRCLED IDEOGRAPH HAVE
+03293	CIRCLED IDEOGRAPH SOCIETY
+03294	CIRCLED IDEOGRAPH NAME
+03295	CIRCLED IDEOGRAPH SPECIAL
+03296	CIRCLED IDEOGRAPH FINANCIAL
+03297	CIRCLED IDEOGRAPH CONGRATULATION
+03298	CIRCLED IDEOGRAPH LABOR
+03299	CIRCLED IDEOGRAPH SECRET
+0329A	CIRCLED IDEOGRAPH MALE
+0329B	CIRCLED IDEOGRAPH FEMALE
+0329C	CIRCLED IDEOGRAPH SUITABLE
+0329D	CIRCLED IDEOGRAPH EXCELLENT
+0329E	CIRCLED IDEOGRAPH PRINT
+0329F	CIRCLED IDEOGRAPH ATTENTION
+032A0	CIRCLED IDEOGRAPH ITEM
+032A1	CIRCLED IDEOGRAPH REST
+032A2	CIRCLED IDEOGRAPH COPY
+032A3	CIRCLED IDEOGRAPH CORRECT
+032A4	CIRCLED IDEOGRAPH HIGH
+032A5	CIRCLED IDEOGRAPH CENTRE
+032A6	CIRCLED IDEOGRAPH LOW
+032A7	CIRCLED IDEOGRAPH LEFT
+032A8	CIRCLED IDEOGRAPH RIGHT
+032A9	CIRCLED IDEOGRAPH MEDICINE
+032AA	CIRCLED IDEOGRAPH RELIGION
+032AB	CIRCLED IDEOGRAPH STUDY
+032AC	CIRCLED IDEOGRAPH SUPERVISE
+032AD	CIRCLED IDEOGRAPH ENTERPRISE
+032AE	CIRCLED IDEOGRAPH RESOURCE
+032AF	CIRCLED IDEOGRAPH ALLIANCE
+032B0	CIRCLED IDEOGRAPH NIGHT
+032B1	CIRCLED NUMBER THIRTY SIX
+032B2	CIRCLED NUMBER THIRTY SEVEN
+032B3	CIRCLED NUMBER THIRTY EIGHT
+032B4	CIRCLED NUMBER THIRTY NINE
+032B5	CIRCLED NUMBER FORTY
+032B6	CIRCLED NUMBER FORTY ONE
+032B7	CIRCLED NUMBER FORTY TWO
+032B8	CIRCLED NUMBER FORTY THREE
+032B9	CIRCLED NUMBER FORTY FOUR
+032BA	CIRCLED NUMBER FORTY FIVE
+032BB	CIRCLED NUMBER FORTY SIX
+032BC	CIRCLED NUMBER FORTY SEVEN
+032BD	CIRCLED NUMBER FORTY EIGHT
+032BE	CIRCLED NUMBER FORTY NINE
+032BF	CIRCLED NUMBER FIFTY
+032C0	IDEOGRAPHIC TELEGRAPH SYMBOL FOR JANUARY
+032C1	IDEOGRAPHIC TELEGRAPH SYMBOL FOR FEBRUARY
+032C2	IDEOGRAPHIC TELEGRAPH SYMBOL FOR MARCH
+032C3	IDEOGRAPHIC TELEGRAPH SYMBOL FOR APRIL
+032C4	IDEOGRAPHIC TELEGRAPH SYMBOL FOR MAY
+032C5	IDEOGRAPHIC TELEGRAPH SYMBOL FOR JUNE
+032C6	IDEOGRAPHIC TELEGRAPH SYMBOL FOR JULY
+032C7	IDEOGRAPHIC TELEGRAPH SYMBOL FOR AUGUST
+032C8	IDEOGRAPHIC TELEGRAPH SYMBOL FOR SEPTEMBER
+032C9	IDEOGRAPHIC TELEGRAPH SYMBOL FOR OCTOBER
+032CA	IDEOGRAPHIC TELEGRAPH SYMBOL FOR NOVEMBER
+032CB	IDEOGRAPHIC TELEGRAPH SYMBOL FOR DECEMBER
+032CC	SQUARE HG
+032CD	SQUARE ERG
+032CE	SQUARE EV
+032CF	LIMITED LIABILITY SIGN
+032D0	CIRCLED KATAKANA A
+032D1	CIRCLED KATAKANA I
+032D2	CIRCLED KATAKANA U
+032D3	CIRCLED KATAKANA E
+032D4	CIRCLED KATAKANA O
+032D5	CIRCLED KATAKANA KA
+032D6	CIRCLED KATAKANA KI
+032D7	CIRCLED KATAKANA KU
+032D8	CIRCLED KATAKANA KE
+032D9	CIRCLED KATAKANA KO
+032DA	CIRCLED KATAKANA SA
+032DB	CIRCLED KATAKANA SI
+032DC	CIRCLED KATAKANA SU
+032DD	CIRCLED KATAKANA SE
+032DE	CIRCLED KATAKANA SO
+032DF	CIRCLED KATAKANA TA
+032E0	CIRCLED KATAKANA TI
+032E1	CIRCLED KATAKANA TU
+032E2	CIRCLED KATAKANA TE
+032E3	CIRCLED KATAKANA TO
+032E4	CIRCLED KATAKANA NA
+032E5	CIRCLED KATAKANA NI
+032E6	CIRCLED KATAKANA NU
+032E7	CIRCLED KATAKANA NE
+032E8	CIRCLED KATAKANA NO
+032E9	CIRCLED KATAKANA HA
+032EA	CIRCLED KATAKANA HI
+032EB	CIRCLED KATAKANA HU
+032EC	CIRCLED KATAKANA HE
+032ED	CIRCLED KATAKANA HO
+032EE	CIRCLED KATAKANA MA
+032EF	CIRCLED KATAKANA MI
+032F0	CIRCLED KATAKANA MU
+032F1	CIRCLED KATAKANA ME
+032F2	CIRCLED KATAKANA MO
+032F3	CIRCLED KATAKANA YA
+032F4	CIRCLED KATAKANA YU
+032F5	CIRCLED KATAKANA YO
+032F6	CIRCLED KATAKANA RA
+032F7	CIRCLED KATAKANA RI
+032F8	CIRCLED KATAKANA RU
+032F9	CIRCLED KATAKANA RE
+032FA	CIRCLED KATAKANA RO
+032FB	CIRCLED KATAKANA WA
+032FC	CIRCLED KATAKANA WI
+032FD	CIRCLED KATAKANA WE
+032FE	CIRCLED KATAKANA WO
+03300	SQUARE APAATO
+03301	SQUARE ARUHUA
+03302	SQUARE ANPEA
+03303	SQUARE AARU
+03304	SQUARE ININGU
+03305	SQUARE INTI
+03306	SQUARE UON
+03307	SQUARE ESUKUUDO
+03308	SQUARE EEKAA
+03309	SQUARE ONSU
+0330A	SQUARE OOMU
+0330B	SQUARE KAIRI
+0330C	SQUARE KARATTO
+0330D	SQUARE KARORII
+0330E	SQUARE GARON
+0330F	SQUARE GANMA
+03310	SQUARE GIGA
+03311	SQUARE GINII
+03312	SQUARE KYURII
+03313	SQUARE GIRUDAA
+03314	SQUARE KIRO
+03315	SQUARE KIROGURAMU
+03316	SQUARE KIROMEETORU
+03317	SQUARE KIROWATTO
+03318	SQUARE GURAMU
+03319	SQUARE GURAMUTON
+0331A	SQUARE KURUZEIRO
+0331B	SQUARE KUROONE
+0331C	SQUARE KEESU
+0331D	SQUARE KORUNA
+0331E	SQUARE KOOPO
+0331F	SQUARE SAIKURU
+03320	SQUARE SANTIIMU
+03321	SQUARE SIRINGU
+03322	SQUARE SENTI
+03323	SQUARE SENTO
+03324	SQUARE DAASU
+03325	SQUARE DESI
+03326	SQUARE DORU
+03327	SQUARE TON
+03328	SQUARE NANO
+03329	SQUARE NOTTO
+0332A	SQUARE HAITU
+0332B	SQUARE PAASENTO
+0332C	SQUARE PAATU
+0332D	SQUARE BAARERU
+0332E	SQUARE PIASUTORU
+0332F	SQUARE PIKURU
+03330	SQUARE PIKO
+03331	SQUARE BIRU
+03332	SQUARE HUARADDO
+03333	SQUARE HUIITO
+03334	SQUARE BUSSYERU
+03335	SQUARE HURAN
+03336	SQUARE HEKUTAARU
+03337	SQUARE PESO
+03338	SQUARE PENIHI
+03339	SQUARE HERUTU
+0333A	SQUARE PENSU
+0333B	SQUARE PEEZI
+0333C	SQUARE BEETA
+0333D	SQUARE POINTO
+0333E	SQUARE BORUTO
+0333F	SQUARE HON
+03340	SQUARE PONDO
+03341	SQUARE HOORU
+03342	SQUARE HOON
+03343	SQUARE MAIKURO
+03344	SQUARE MAIRU
+03345	SQUARE MAHHA
+03346	SQUARE MARUKU
+03347	SQUARE MANSYON
+03348	SQUARE MIKURON
+03349	SQUARE MIRI
+0334A	SQUARE MIRIBAARU
+0334B	SQUARE MEGA
+0334C	SQUARE MEGATON
+0334D	SQUARE MEETORU
+0334E	SQUARE YAADO
+0334F	SQUARE YAARU
+03350	SQUARE YUAN
+03351	SQUARE RITTORU
+03352	SQUARE RIRA
+03353	SQUARE RUPII
+03354	SQUARE RUUBURU
+03355	SQUARE REMU
+03356	SQUARE RENTOGEN
+03357	SQUARE WATTO
+03358	IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR ZERO
+03359	IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR ONE
+0335A	IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR TWO
+0335B	IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR THREE
+0335C	IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR FOUR
+0335D	IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR FIVE
+0335E	IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR SIX
+0335F	IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR SEVEN
+03360	IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR EIGHT
+03361	IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR NINE
+03362	IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR TEN
+03363	IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR ELEVEN
+03364	IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR TWELVE
+03365	IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR THIRTEEN
+03366	IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR FOURTEEN
+03367	IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR FIFTEEN
+03368	IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR SIXTEEN
+03369	IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR SEVENTEEN
+0336A	IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR EIGHTEEN
+0336B	IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR NINETEEN
+0336C	IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR TWENTY
+0336D	IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR TWENTY-ONE
+0336E	IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR TWENTY-TWO
+0336F	IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR TWENTY-THREE
+03370	IDEOGRAPHIC TELEGRAPH SYMBOL FOR HOUR TWENTY-FOUR
+03371	SQUARE HPA
+03372	SQUARE DA
+03373	SQUARE AU
+03374	SQUARE BAR
+03375	SQUARE OV
+03376	SQUARE PC
+03377	SQUARE DM
+03378	SQUARE DM SQUARED
+03379	SQUARE DM CUBED
+0337A	SQUARE IU
+0337B	SQUARE ERA NAME HEISEI
+0337C	SQUARE ERA NAME SYOUWA
+0337D	SQUARE ERA NAME TAISYOU
+0337E	SQUARE ERA NAME MEIZI
+0337F	SQUARE CORPORATION
+03380	SQUARE PA AMPS
+03381	SQUARE NA
+03382	SQUARE MU A
+03383	SQUARE MA
+03384	SQUARE KA
+03385	SQUARE KB
+03386	SQUARE MB
+03387	SQUARE GB
+03388	SQUARE CAL
+03389	SQUARE KCAL
+0338A	SQUARE PF
+0338B	SQUARE NF
+0338C	SQUARE MU F
+0338D	SQUARE MU G
+0338E	SQUARE MG
+0338F	SQUARE KG
+03390	SQUARE HZ
+03391	SQUARE KHZ
+03392	SQUARE MHZ
+03393	SQUARE GHZ
+03394	SQUARE THZ
+03395	SQUARE MU L
+03396	SQUARE ML
+03397	SQUARE DL
+03398	SQUARE KL
+03399	SQUARE FM
+0339A	SQUARE NM
+0339B	SQUARE MU M
+0339C	SQUARE MM
+0339D	SQUARE CM
+0339E	SQUARE KM
+0339F	SQUARE MM SQUARED
+033A0	SQUARE CM SQUARED
+033A1	SQUARE M SQUARED
+033A2	SQUARE KM SQUARED
+033A3	SQUARE MM CUBED
+033A4	SQUARE CM CUBED
+033A5	SQUARE M CUBED
+033A6	SQUARE KM CUBED
+033A7	SQUARE M OVER S
+033A8	SQUARE M OVER S SQUARED
+033A9	SQUARE PA
+033AA	SQUARE KPA
+033AB	SQUARE MPA
+033AC	SQUARE GPA
+033AD	SQUARE RAD
+033AE	SQUARE RAD OVER S
+033AF	SQUARE RAD OVER S SQUARED
+033B0	SQUARE PS
+033B1	SQUARE NS
+033B2	SQUARE MU S
+033B3	SQUARE MS
+033B4	SQUARE PV
+033B5	SQUARE NV
+033B6	SQUARE MU V
+033B7	SQUARE MV
+033B8	SQUARE KV
+033B9	SQUARE MV MEGA
+033BA	SQUARE PW
+033BB	SQUARE NW
+033BC	SQUARE MU W
+033BD	SQUARE MW
+033BE	SQUARE KW
+033BF	SQUARE MW MEGA
+033C0	SQUARE K OHM
+033C1	SQUARE M OHM
+033C2	SQUARE AM
+033C3	SQUARE BQ
+033C4	SQUARE CC
+033C5	SQUARE CD
+033C6	SQUARE C OVER KG
+033C7	SQUARE CO
+033C8	SQUARE DB
+033C9	SQUARE GY
+033CA	SQUARE HA
+033CB	SQUARE HP
+033CC	SQUARE IN
+033CD	SQUARE KK
+033CE	SQUARE KM CAPITAL
+033CF	SQUARE KT
+033D0	SQUARE LM
+033D1	SQUARE LN
+033D2	SQUARE LOG
+033D3	SQUARE LX
+033D4	SQUARE MB SMALL
+033D5	SQUARE MIL
+033D6	SQUARE MOL
+033D7	SQUARE PH
+033D8	SQUARE PM
+033D9	SQUARE PPM
+033DA	SQUARE PR
+033DB	SQUARE SR
+033DC	SQUARE SV
+033DD	SQUARE WB
+033DE	SQUARE V OVER M
+033DF	SQUARE A OVER M
+033E0	IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY ONE
+033E1	IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWO
+033E2	IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY THREE
+033E3	IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY FOUR
+033E4	IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY FIVE
+033E5	IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY SIX
+033E6	IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY SEVEN
+033E7	IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY EIGHT
+033E8	IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY NINE
+033E9	IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TEN
+033EA	IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY ELEVEN
+033EB	IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWELVE
+033EC	IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY THIRTEEN
+033ED	IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY FOURTEEN
+033EE	IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY FIFTEEN
+033EF	IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY SIXTEEN
+033F0	IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY SEVENTEEN
+033F1	IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY EIGHTEEN
+033F2	IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY NINETEEN
+033F3	IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY
+033F4	IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY-ONE
+033F5	IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY-TWO
+033F6	IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY-THREE
+033F7	IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY-FOUR
+033F8	IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY-FIVE
+033F9	IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY-SIX
+033FA	IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY-SEVEN
+033FB	IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY-EIGHT
+033FC	IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY TWENTY-NINE
+033FD	IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY THIRTY
+033FE	IDEOGRAPHIC TELEGRAPH SYMBOL FOR DAY THIRTY-ONE
+033FF	SQUARE GAL
+04DC0	HEXAGRAM FOR THE CREATIVE HEAVEN
+04DC1	HEXAGRAM FOR THE RECEPTIVE EARTH
+04DC2	HEXAGRAM FOR DIFFICULTY AT THE BEGINNING
+04DC3	HEXAGRAM FOR YOUTHFUL FOLLY
+04DC4	HEXAGRAM FOR WAITING
+04DC5	HEXAGRAM FOR CONFLICT
+04DC6	HEXAGRAM FOR THE ARMY
+04DC7	HEXAGRAM FOR HOLDING TOGETHER
+04DC8	HEXAGRAM FOR SMALL TAMING
+04DC9	HEXAGRAM FOR TREADING
+04DCA	HEXAGRAM FOR PEACE
+04DCB	HEXAGRAM FOR STANDSTILL
+04DCC	HEXAGRAM FOR FELLOWSHIP
+04DCD	HEXAGRAM FOR GREAT POSSESSION
+04DCE	HEXAGRAM FOR MODESTY
+04DCF	HEXAGRAM FOR ENTHUSIASM
+04DD0	HEXAGRAM FOR FOLLOWING
+04DD1	HEXAGRAM FOR WORK ON THE DECAYED
+04DD2	HEXAGRAM FOR APPROACH
+04DD3	HEXAGRAM FOR CONTEMPLATION
+04DD4	HEXAGRAM FOR BITING THROUGH
+04DD5	HEXAGRAM FOR GRACE
+04DD6	HEXAGRAM FOR SPLITTING APART
+04DD7	HEXAGRAM FOR RETURN
+04DD8	HEXAGRAM FOR INNOCENCE
+04DD9	HEXAGRAM FOR GREAT TAMING
+04DDA	HEXAGRAM FOR MOUTH CORNERS
+04DDB	HEXAGRAM FOR GREAT PREPONDERANCE
+04DDC	HEXAGRAM FOR THE ABYSMAL WATER
+04DDD	HEXAGRAM FOR THE CLINGING FIRE
+04DDE	HEXAGRAM FOR INFLUENCE
+04DDF	HEXAGRAM FOR DURATION
+04DE0	HEXAGRAM FOR RETREAT
+04DE1	HEXAGRAM FOR GREAT POWER
+04DE2	HEXAGRAM FOR PROGRESS
+04DE3	HEXAGRAM FOR DARKENING OF THE LIGHT
+04DE4	HEXAGRAM FOR THE FAMILY
+04DE5	HEXAGRAM FOR OPPOSITION
+04DE6	HEXAGRAM FOR OBSTRUCTION
+04DE7	HEXAGRAM FOR DELIVERANCE
+04DE8	HEXAGRAM FOR DECREASE
+04DE9	HEXAGRAM FOR INCREASE
+04DEA	HEXAGRAM FOR BREAKTHROUGH
+04DEB	HEXAGRAM FOR COMING TO MEET
+04DEC	HEXAGRAM FOR GATHERING TOGETHER
+04DED	HEXAGRAM FOR PUSHING UPWARD
+04DEE	HEXAGRAM FOR OPPRESSION
+04DEF	HEXAGRAM FOR THE WELL
+04DF0	HEXAGRAM FOR REVOLUTION
+04DF1	HEXAGRAM FOR THE CAULDRON
+04DF2	HEXAGRAM FOR THE AROUSING THUNDER
+04DF3	HEXAGRAM FOR THE KEEPING STILL MOUNTAIN
+04DF4	HEXAGRAM FOR DEVELOPMENT
+04DF5	HEXAGRAM FOR THE MARRYING MAIDEN
+04DF6	HEXAGRAM FOR ABUNDANCE
+04DF7	HEXAGRAM FOR THE WANDERER
+04DF8	HEXAGRAM FOR THE GENTLE WIND
+04DF9	HEXAGRAM FOR THE JOYOUS LAKE
+04DFA	HEXAGRAM FOR DISPERSION
+04DFB	HEXAGRAM FOR LIMITATION
+04DFC	HEXAGRAM FOR INNER TRUTH
+04DFD	HEXAGRAM FOR SMALL PREPONDERANCE
+04DFE	HEXAGRAM FOR AFTER COMPLETION
+04DFF	HEXAGRAM FOR BEFORE COMPLETION
+0A000	YI SYLLABLE IT
+0A001	YI SYLLABLE IX
+0A002	YI SYLLABLE I
+0A003	YI SYLLABLE IP
+0A004	YI SYLLABLE IET
+0A005	YI SYLLABLE IEX
+0A006	YI SYLLABLE IE
+0A007	YI SYLLABLE IEP
+0A008	YI SYLLABLE AT
+0A009	YI SYLLABLE AX
+0A00A	YI SYLLABLE A
+0A00B	YI SYLLABLE AP
+0A00C	YI SYLLABLE UOX
+0A00D	YI SYLLABLE UO
+0A00E	YI SYLLABLE UOP
+0A00F	YI SYLLABLE OT
+0A010	YI SYLLABLE OX
+0A011	YI SYLLABLE O
+0A012	YI SYLLABLE OP
+0A013	YI SYLLABLE EX
+0A014	YI SYLLABLE E
+0A015	YI SYLLABLE ITERATION MARK
+0A015	YI SYLLABLE WU
+0A016	YI SYLLABLE BIT
+0A017	YI SYLLABLE BIX
+0A018	YI SYLLABLE BI
+0A019	YI SYLLABLE BIP
+0A01A	YI SYLLABLE BIET
+0A01B	YI SYLLABLE BIEX
+0A01C	YI SYLLABLE BIE
+0A01D	YI SYLLABLE BIEP
+0A01E	YI SYLLABLE BAT
+0A01F	YI SYLLABLE BAX
+0A020	YI SYLLABLE BA
+0A021	YI SYLLABLE BAP
+0A022	YI SYLLABLE BUOX
+0A023	YI SYLLABLE BUO
+0A024	YI SYLLABLE BUOP
+0A025	YI SYLLABLE BOT
+0A026	YI SYLLABLE BOX
+0A027	YI SYLLABLE BO
+0A028	YI SYLLABLE BOP
+0A029	YI SYLLABLE BEX
+0A02A	YI SYLLABLE BE
+0A02B	YI SYLLABLE BEP
+0A02C	YI SYLLABLE BUT
+0A02D	YI SYLLABLE BUX
+0A02E	YI SYLLABLE BU
+0A02F	YI SYLLABLE BUP
+0A030	YI SYLLABLE BURX
+0A031	YI SYLLABLE BUR
+0A032	YI SYLLABLE BYT
+0A033	YI SYLLABLE BYX
+0A034	YI SYLLABLE BY
+0A035	YI SYLLABLE BYP
+0A036	YI SYLLABLE BYRX
+0A037	YI SYLLABLE BYR
+0A038	YI SYLLABLE PIT
+0A039	YI SYLLABLE PIX
+0A03A	YI SYLLABLE PI
+0A03B	YI SYLLABLE PIP
+0A03C	YI SYLLABLE PIEX
+0A03D	YI SYLLABLE PIE
+0A03E	YI SYLLABLE PIEP
+0A03F	YI SYLLABLE PAT
+0A040	YI SYLLABLE PAX
+0A041	YI SYLLABLE PA
+0A042	YI SYLLABLE PAP
+0A043	YI SYLLABLE PUOX
+0A044	YI SYLLABLE PUO
+0A045	YI SYLLABLE PUOP
+0A046	YI SYLLABLE POT
+0A047	YI SYLLABLE POX
+0A048	YI SYLLABLE PO
+0A049	YI SYLLABLE POP
+0A04A	YI SYLLABLE PUT
+0A04B	YI SYLLABLE PUX
+0A04C	YI SYLLABLE PU
+0A04D	YI SYLLABLE PUP
+0A04E	YI SYLLABLE PURX
+0A04F	YI SYLLABLE PUR
+0A050	YI SYLLABLE PYT
+0A051	YI SYLLABLE PYX
+0A052	YI SYLLABLE PY
+0A053	YI SYLLABLE PYP
+0A054	YI SYLLABLE PYRX
+0A055	YI SYLLABLE PYR
+0A056	YI SYLLABLE BBIT
+0A057	YI SYLLABLE BBIX
+0A058	YI SYLLABLE BBI
+0A059	YI SYLLABLE BBIP
+0A05A	YI SYLLABLE BBIET
+0A05B	YI SYLLABLE BBIEX
+0A05C	YI SYLLABLE BBIE
+0A05D	YI SYLLABLE BBIEP
+0A05E	YI SYLLABLE BBAT
+0A05F	YI SYLLABLE BBAX
+0A060	YI SYLLABLE BBA
+0A061	YI SYLLABLE BBAP
+0A062	YI SYLLABLE BBUOX
+0A063	YI SYLLABLE BBUO
+0A064	YI SYLLABLE BBUOP
+0A065	YI SYLLABLE BBOT
+0A066	YI SYLLABLE BBOX
+0A067	YI SYLLABLE BBO
+0A068	YI SYLLABLE BBOP
+0A069	YI SYLLABLE BBEX
+0A06A	YI SYLLABLE BBE
+0A06B	YI SYLLABLE BBEP
+0A06C	YI SYLLABLE BBUT
+0A06D	YI SYLLABLE BBUX
+0A06E	YI SYLLABLE BBU
+0A06F	YI SYLLABLE BBUP
+0A070	YI SYLLABLE BBURX
+0A071	YI SYLLABLE BBUR
+0A072	YI SYLLABLE BBYT
+0A073	YI SYLLABLE BBYX
+0A074	YI SYLLABLE BBY
+0A075	YI SYLLABLE BBYP
+0A076	YI SYLLABLE NBIT
+0A077	YI SYLLABLE NBIX
+0A078	YI SYLLABLE NBI
+0A079	YI SYLLABLE NBIP
+0A07A	YI SYLLABLE NBIEX
+0A07B	YI SYLLABLE NBIE
+0A07C	YI SYLLABLE NBIEP
+0A07D	YI SYLLABLE NBAT
+0A07E	YI SYLLABLE NBAX
+0A07F	YI SYLLABLE NBA
+0A080	YI SYLLABLE NBAP
+0A081	YI SYLLABLE NBOT
+0A082	YI SYLLABLE NBOX
+0A083	YI SYLLABLE NBO
+0A084	YI SYLLABLE NBOP
+0A085	YI SYLLABLE NBUT
+0A086	YI SYLLABLE NBUX
+0A087	YI SYLLABLE NBU
+0A088	YI SYLLABLE NBUP
+0A089	YI SYLLABLE NBURX
+0A08A	YI SYLLABLE NBUR
+0A08B	YI SYLLABLE NBYT
+0A08C	YI SYLLABLE NBYX
+0A08D	YI SYLLABLE NBY
+0A08E	YI SYLLABLE NBYP
+0A08F	YI SYLLABLE NBYRX
+0A090	YI SYLLABLE NBYR
+0A091	YI SYLLABLE HMIT
+0A092	YI SYLLABLE HMIX
+0A093	YI SYLLABLE HMI
+0A094	YI SYLLABLE HMIP
+0A095	YI SYLLABLE HMIEX
+0A096	YI SYLLABLE HMIE
+0A097	YI SYLLABLE HMIEP
+0A098	YI SYLLABLE HMAT
+0A099	YI SYLLABLE HMAX
+0A09A	YI SYLLABLE HMA
+0A09B	YI SYLLABLE HMAP
+0A09C	YI SYLLABLE HMUOX
+0A09D	YI SYLLABLE HMUO
+0A09E	YI SYLLABLE HMUOP
+0A09F	YI SYLLABLE HMOT
+0A0A0	YI SYLLABLE HMOX
+0A0A1	YI SYLLABLE HMO
+0A0A2	YI SYLLABLE HMOP
+0A0A3	YI SYLLABLE HMUT
+0A0A4	YI SYLLABLE HMUX
+0A0A5	YI SYLLABLE HMU
+0A0A6	YI SYLLABLE HMUP
+0A0A7	YI SYLLABLE HMURX
+0A0A8	YI SYLLABLE HMUR
+0A0A9	YI SYLLABLE HMYX
+0A0AA	YI SYLLABLE HMY
+0A0AB	YI SYLLABLE HMYP
+0A0AC	YI SYLLABLE HMYRX
+0A0AD	YI SYLLABLE HMYR
+0A0AE	YI SYLLABLE MIT
+0A0AF	YI SYLLABLE MIX
+0A0B0	YI SYLLABLE MI
+0A0B1	YI SYLLABLE MIP
+0A0B2	YI SYLLABLE MIEX
+0A0B3	YI SYLLABLE MIE
+0A0B4	YI SYLLABLE MIEP
+0A0B5	YI SYLLABLE MAT
+0A0B6	YI SYLLABLE MAX
+0A0B7	YI SYLLABLE MA
+0A0B8	YI SYLLABLE MAP
+0A0B9	YI SYLLABLE MUOT
+0A0BA	YI SYLLABLE MUOX
+0A0BB	YI SYLLABLE MUO
+0A0BC	YI SYLLABLE MUOP
+0A0BD	YI SYLLABLE MOT
+0A0BE	YI SYLLABLE MOX
+0A0BF	YI SYLLABLE MO
+0A0C0	YI SYLLABLE MOP
+0A0C1	YI SYLLABLE MEX
+0A0C2	YI SYLLABLE ME
+0A0C3	YI SYLLABLE MUT
+0A0C4	YI SYLLABLE MUX
+0A0C5	YI SYLLABLE MU
+0A0C6	YI SYLLABLE MUP
+0A0C7	YI SYLLABLE MURX
+0A0C8	YI SYLLABLE MUR
+0A0C9	YI SYLLABLE MYT
+0A0CA	YI SYLLABLE MYX
+0A0CB	YI SYLLABLE MY
+0A0CC	YI SYLLABLE MYP
+0A0CD	YI SYLLABLE FIT
+0A0CE	YI SYLLABLE FIX
+0A0CF	YI SYLLABLE FI
+0A0D0	YI SYLLABLE FIP
+0A0D1	YI SYLLABLE FAT
+0A0D2	YI SYLLABLE FAX
+0A0D3	YI SYLLABLE FA
+0A0D4	YI SYLLABLE FAP
+0A0D5	YI SYLLABLE FOX
+0A0D6	YI SYLLABLE FO
+0A0D7	YI SYLLABLE FOP
+0A0D8	YI SYLLABLE FUT
+0A0D9	YI SYLLABLE FUX
+0A0DA	YI SYLLABLE FU
+0A0DB	YI SYLLABLE FUP
+0A0DC	YI SYLLABLE FURX
+0A0DD	YI SYLLABLE FUR
+0A0DE	YI SYLLABLE FYT
+0A0DF	YI SYLLABLE FYX
+0A0E0	YI SYLLABLE FY
+0A0E1	YI SYLLABLE FYP
+0A0E2	YI SYLLABLE VIT
+0A0E3	YI SYLLABLE VIX
+0A0E4	YI SYLLABLE VI
+0A0E5	YI SYLLABLE VIP
+0A0E6	YI SYLLABLE VIET
+0A0E7	YI SYLLABLE VIEX
+0A0E8	YI SYLLABLE VIE
+0A0E9	YI SYLLABLE VIEP
+0A0EA	YI SYLLABLE VAT
+0A0EB	YI SYLLABLE VAX
+0A0EC	YI SYLLABLE VA
+0A0ED	YI SYLLABLE VAP
+0A0EE	YI SYLLABLE VOT
+0A0EF	YI SYLLABLE VOX
+0A0F0	YI SYLLABLE VO
+0A0F1	YI SYLLABLE VOP
+0A0F2	YI SYLLABLE VEX
+0A0F3	YI SYLLABLE VEP
+0A0F4	YI SYLLABLE VUT
+0A0F5	YI SYLLABLE VUX
+0A0F6	YI SYLLABLE VU
+0A0F7	YI SYLLABLE VUP
+0A0F8	YI SYLLABLE VURX
+0A0F9	YI SYLLABLE VUR
+0A0FA	YI SYLLABLE VYT
+0A0FB	YI SYLLABLE VYX
+0A0FC	YI SYLLABLE VY
+0A0FD	YI SYLLABLE VYP
+0A0FE	YI SYLLABLE VYRX
+0A0FF	YI SYLLABLE VYR
+0A100	YI SYLLABLE DIT
+0A101	YI SYLLABLE DIX
+0A102	YI SYLLABLE DI
+0A103	YI SYLLABLE DIP
+0A104	YI SYLLABLE DIEX
+0A105	YI SYLLABLE DIE
+0A106	YI SYLLABLE DIEP
+0A107	YI SYLLABLE DAT
+0A108	YI SYLLABLE DAX
+0A109	YI SYLLABLE DA
+0A10A	YI SYLLABLE DAP
+0A10B	YI SYLLABLE DUOX
+0A10C	YI SYLLABLE DUO
+0A10D	YI SYLLABLE DOT
+0A10E	YI SYLLABLE DOX
+0A10F	YI SYLLABLE DO
+0A110	YI SYLLABLE DOP
+0A111	YI SYLLABLE DEX
+0A112	YI SYLLABLE DE
+0A113	YI SYLLABLE DEP
+0A114	YI SYLLABLE DUT
+0A115	YI SYLLABLE DUX
+0A116	YI SYLLABLE DU
+0A117	YI SYLLABLE DUP
+0A118	YI SYLLABLE DURX
+0A119	YI SYLLABLE DUR
+0A11A	YI SYLLABLE TIT
+0A11B	YI SYLLABLE TIX
+0A11C	YI SYLLABLE TI
+0A11D	YI SYLLABLE TIP
+0A11E	YI SYLLABLE TIEX
+0A11F	YI SYLLABLE TIE
+0A120	YI SYLLABLE TIEP
+0A121	YI SYLLABLE TAT
+0A122	YI SYLLABLE TAX
+0A123	YI SYLLABLE TA
+0A124	YI SYLLABLE TAP
+0A125	YI SYLLABLE TUOT
+0A126	YI SYLLABLE TUOX
+0A127	YI SYLLABLE TUO
+0A128	YI SYLLABLE TUOP
+0A129	YI SYLLABLE TOT
+0A12A	YI SYLLABLE TOX
+0A12B	YI SYLLABLE TO
+0A12C	YI SYLLABLE TOP
+0A12D	YI SYLLABLE TEX
+0A12E	YI SYLLABLE TE
+0A12F	YI SYLLABLE TEP
+0A130	YI SYLLABLE TUT
+0A131	YI SYLLABLE TUX
+0A132	YI SYLLABLE TU
+0A133	YI SYLLABLE TUP
+0A134	YI SYLLABLE TURX
+0A135	YI SYLLABLE TUR
+0A136	YI SYLLABLE DDIT
+0A137	YI SYLLABLE DDIX
+0A138	YI SYLLABLE DDI
+0A139	YI SYLLABLE DDIP
+0A13A	YI SYLLABLE DDIEX
+0A13B	YI SYLLABLE DDIE
+0A13C	YI SYLLABLE DDIEP
+0A13D	YI SYLLABLE DDAT
+0A13E	YI SYLLABLE DDAX
+0A13F	YI SYLLABLE DDA
+0A140	YI SYLLABLE DDAP
+0A141	YI SYLLABLE DDUOX
+0A142	YI SYLLABLE DDUO
+0A143	YI SYLLABLE DDUOP
+0A144	YI SYLLABLE DDOT
+0A145	YI SYLLABLE DDOX
+0A146	YI SYLLABLE DDO
+0A147	YI SYLLABLE DDOP
+0A148	YI SYLLABLE DDEX
+0A149	YI SYLLABLE DDE
+0A14A	YI SYLLABLE DDEP
+0A14B	YI SYLLABLE DDUT
+0A14C	YI SYLLABLE DDUX
+0A14D	YI SYLLABLE DDU
+0A14E	YI SYLLABLE DDUP
+0A14F	YI SYLLABLE DDURX
+0A150	YI SYLLABLE DDUR
+0A151	YI SYLLABLE NDIT
+0A152	YI SYLLABLE NDIX
+0A153	YI SYLLABLE NDI
+0A154	YI SYLLABLE NDIP
+0A155	YI SYLLABLE NDIEX
+0A156	YI SYLLABLE NDIE
+0A157	YI SYLLABLE NDAT
+0A158	YI SYLLABLE NDAX
+0A159	YI SYLLABLE NDA
+0A15A	YI SYLLABLE NDAP
+0A15B	YI SYLLABLE NDOT
+0A15C	YI SYLLABLE NDOX
+0A15D	YI SYLLABLE NDO
+0A15E	YI SYLLABLE NDOP
+0A15F	YI SYLLABLE NDEX
+0A160	YI SYLLABLE NDE
+0A161	YI SYLLABLE NDEP
+0A162	YI SYLLABLE NDUT
+0A163	YI SYLLABLE NDUX
+0A164	YI SYLLABLE NDU
+0A165	YI SYLLABLE NDUP
+0A166	YI SYLLABLE NDURX
+0A167	YI SYLLABLE NDUR
+0A168	YI SYLLABLE HNIT
+0A169	YI SYLLABLE HNIX
+0A16A	YI SYLLABLE HNI
+0A16B	YI SYLLABLE HNIP
+0A16C	YI SYLLABLE HNIET
+0A16D	YI SYLLABLE HNIEX
+0A16E	YI SYLLABLE HNIE
+0A16F	YI SYLLABLE HNIEP
+0A170	YI SYLLABLE HNAT
+0A171	YI SYLLABLE HNAX
+0A172	YI SYLLABLE HNA
+0A173	YI SYLLABLE HNAP
+0A174	YI SYLLABLE HNUOX
+0A175	YI SYLLABLE HNUO
+0A176	YI SYLLABLE HNOT
+0A177	YI SYLLABLE HNOX
+0A178	YI SYLLABLE HNOP
+0A179	YI SYLLABLE HNEX
+0A17A	YI SYLLABLE HNE
+0A17B	YI SYLLABLE HNEP
+0A17C	YI SYLLABLE HNUT
+0A17D	YI SYLLABLE NIT
+0A17E	YI SYLLABLE NIX
+0A17F	YI SYLLABLE NI
+0A180	YI SYLLABLE NIP
+0A181	YI SYLLABLE NIEX
+0A182	YI SYLLABLE NIE
+0A183	YI SYLLABLE NIEP
+0A184	YI SYLLABLE NAX
+0A185	YI SYLLABLE NA
+0A186	YI SYLLABLE NAP
+0A187	YI SYLLABLE NUOX
+0A188	YI SYLLABLE NUO
+0A189	YI SYLLABLE NUOP
+0A18A	YI SYLLABLE NOT
+0A18B	YI SYLLABLE NOX
+0A18C	YI SYLLABLE NO
+0A18D	YI SYLLABLE NOP
+0A18E	YI SYLLABLE NEX
+0A18F	YI SYLLABLE NE
+0A190	YI SYLLABLE NEP
+0A191	YI SYLLABLE NUT
+0A192	YI SYLLABLE NUX
+0A193	YI SYLLABLE NU
+0A194	YI SYLLABLE NUP
+0A195	YI SYLLABLE NURX
+0A196	YI SYLLABLE NUR
+0A197	YI SYLLABLE HLIT
+0A198	YI SYLLABLE HLIX
+0A199	YI SYLLABLE HLI
+0A19A	YI SYLLABLE HLIP
+0A19B	YI SYLLABLE HLIEX
+0A19C	YI SYLLABLE HLIE
+0A19D	YI SYLLABLE HLIEP
+0A19E	YI SYLLABLE HLAT
+0A19F	YI SYLLABLE HLAX
+0A1A0	YI SYLLABLE HLA
+0A1A1	YI SYLLABLE HLAP
+0A1A2	YI SYLLABLE HLUOX
+0A1A3	YI SYLLABLE HLUO
+0A1A4	YI SYLLABLE HLUOP
+0A1A5	YI SYLLABLE HLOX
+0A1A6	YI SYLLABLE HLO
+0A1A7	YI SYLLABLE HLOP
+0A1A8	YI SYLLABLE HLEX
+0A1A9	YI SYLLABLE HLE
+0A1AA	YI SYLLABLE HLEP
+0A1AB	YI SYLLABLE HLUT
+0A1AC	YI SYLLABLE HLUX
+0A1AD	YI SYLLABLE HLU
+0A1AE	YI SYLLABLE HLUP
+0A1AF	YI SYLLABLE HLURX
+0A1B0	YI SYLLABLE HLUR
+0A1B1	YI SYLLABLE HLYT
+0A1B2	YI SYLLABLE HLYX
+0A1B3	YI SYLLABLE HLY
+0A1B4	YI SYLLABLE HLYP
+0A1B5	YI SYLLABLE HLYRX
+0A1B6	YI SYLLABLE HLYR
+0A1B7	YI SYLLABLE LIT
+0A1B8	YI SYLLABLE LIX
+0A1B9	YI SYLLABLE LI
+0A1BA	YI SYLLABLE LIP
+0A1BB	YI SYLLABLE LIET
+0A1BC	YI SYLLABLE LIEX
+0A1BD	YI SYLLABLE LIE
+0A1BE	YI SYLLABLE LIEP
+0A1BF	YI SYLLABLE LAT
+0A1C0	YI SYLLABLE LAX
+0A1C1	YI SYLLABLE LA
+0A1C2	YI SYLLABLE LAP
+0A1C3	YI SYLLABLE LUOT
+0A1C4	YI SYLLABLE LUOX
+0A1C5	YI SYLLABLE LUO
+0A1C6	YI SYLLABLE LUOP
+0A1C7	YI SYLLABLE LOT
+0A1C8	YI SYLLABLE LOX
+0A1C9	YI SYLLABLE LO
+0A1CA	YI SYLLABLE LOP
+0A1CB	YI SYLLABLE LEX
+0A1CC	YI SYLLABLE LE
+0A1CD	YI SYLLABLE LEP
+0A1CE	YI SYLLABLE LUT
+0A1CF	YI SYLLABLE LUX
+0A1D0	YI SYLLABLE LU
+0A1D1	YI SYLLABLE LUP
+0A1D2	YI SYLLABLE LURX
+0A1D3	YI SYLLABLE LUR
+0A1D4	YI SYLLABLE LYT
+0A1D5	YI SYLLABLE LYX
+0A1D6	YI SYLLABLE LY
+0A1D7	YI SYLLABLE LYP
+0A1D8	YI SYLLABLE LYRX
+0A1D9	YI SYLLABLE LYR
+0A1DA	YI SYLLABLE GIT
+0A1DB	YI SYLLABLE GIX
+0A1DC	YI SYLLABLE GI
+0A1DD	YI SYLLABLE GIP
+0A1DE	YI SYLLABLE GIET
+0A1DF	YI SYLLABLE GIEX
+0A1E0	YI SYLLABLE GIE
+0A1E1	YI SYLLABLE GIEP
+0A1E2	YI SYLLABLE GAT
+0A1E3	YI SYLLABLE GAX
+0A1E4	YI SYLLABLE GA
+0A1E5	YI SYLLABLE GAP
+0A1E6	YI SYLLABLE GUOT
+0A1E7	YI SYLLABLE GUOX
+0A1E8	YI SYLLABLE GUO
+0A1E9	YI SYLLABLE GUOP
+0A1EA	YI SYLLABLE GOT
+0A1EB	YI SYLLABLE GOX
+0A1EC	YI SYLLABLE GO
+0A1ED	YI SYLLABLE GOP
+0A1EE	YI SYLLABLE GET
+0A1EF	YI SYLLABLE GEX
+0A1F0	YI SYLLABLE GE
+0A1F1	YI SYLLABLE GEP
+0A1F2	YI SYLLABLE GUT
+0A1F3	YI SYLLABLE GUX
+0A1F4	YI SYLLABLE GU
+0A1F5	YI SYLLABLE GUP
+0A1F6	YI SYLLABLE GURX
+0A1F7	YI SYLLABLE GUR
+0A1F8	YI SYLLABLE KIT
+0A1F9	YI SYLLABLE KIX
+0A1FA	YI SYLLABLE KI
+0A1FB	YI SYLLABLE KIP
+0A1FC	YI SYLLABLE KIEX
+0A1FD	YI SYLLABLE KIE
+0A1FE	YI SYLLABLE KIEP
+0A1FF	YI SYLLABLE KAT
+0A200	YI SYLLABLE KAX
+0A201	YI SYLLABLE KA
+0A202	YI SYLLABLE KAP
+0A203	YI SYLLABLE KUOX
+0A204	YI SYLLABLE KUO
+0A205	YI SYLLABLE KUOP
+0A206	YI SYLLABLE KOT
+0A207	YI SYLLABLE KOX
+0A208	YI SYLLABLE KO
+0A209	YI SYLLABLE KOP
+0A20A	YI SYLLABLE KET
+0A20B	YI SYLLABLE KEX
+0A20C	YI SYLLABLE KE
+0A20D	YI SYLLABLE KEP
+0A20E	YI SYLLABLE KUT
+0A20F	YI SYLLABLE KUX
+0A210	YI SYLLABLE KU
+0A211	YI SYLLABLE KUP
+0A212	YI SYLLABLE KURX
+0A213	YI SYLLABLE KUR
+0A214	YI SYLLABLE GGIT
+0A215	YI SYLLABLE GGIX
+0A216	YI SYLLABLE GGI
+0A217	YI SYLLABLE GGIEX
+0A218	YI SYLLABLE GGIE
+0A219	YI SYLLABLE GGIEP
+0A21A	YI SYLLABLE GGAT
+0A21B	YI SYLLABLE GGAX
+0A21C	YI SYLLABLE GGA
+0A21D	YI SYLLABLE GGAP
+0A21E	YI SYLLABLE GGUOT
+0A21F	YI SYLLABLE GGUOX
+0A220	YI SYLLABLE GGUO
+0A221	YI SYLLABLE GGUOP
+0A222	YI SYLLABLE GGOT
+0A223	YI SYLLABLE GGOX
+0A224	YI SYLLABLE GGO
+0A225	YI SYLLABLE GGOP
+0A226	YI SYLLABLE GGET
+0A227	YI SYLLABLE GGEX
+0A228	YI SYLLABLE GGE
+0A229	YI SYLLABLE GGEP
+0A22A	YI SYLLABLE GGUT
+0A22B	YI SYLLABLE GGUX
+0A22C	YI SYLLABLE GGU
+0A22D	YI SYLLABLE GGUP
+0A22E	YI SYLLABLE GGURX
+0A22F	YI SYLLABLE GGUR
+0A230	YI SYLLABLE MGIEX
+0A231	YI SYLLABLE MGIE
+0A232	YI SYLLABLE MGAT
+0A233	YI SYLLABLE MGAX
+0A234	YI SYLLABLE MGA
+0A235	YI SYLLABLE MGAP
+0A236	YI SYLLABLE MGUOX
+0A237	YI SYLLABLE MGUO
+0A238	YI SYLLABLE MGUOP
+0A239	YI SYLLABLE MGOT
+0A23A	YI SYLLABLE MGOX
+0A23B	YI SYLLABLE MGO
+0A23C	YI SYLLABLE MGOP
+0A23D	YI SYLLABLE MGEX
+0A23E	YI SYLLABLE MGE
+0A23F	YI SYLLABLE MGEP
+0A240	YI SYLLABLE MGUT
+0A241	YI SYLLABLE MGUX
+0A242	YI SYLLABLE MGU
+0A243	YI SYLLABLE MGUP
+0A244	YI SYLLABLE MGURX
+0A245	YI SYLLABLE MGUR
+0A246	YI SYLLABLE HXIT
+0A247	YI SYLLABLE HXIX
+0A248	YI SYLLABLE HXI
+0A249	YI SYLLABLE HXIP
+0A24A	YI SYLLABLE HXIET
+0A24B	YI SYLLABLE HXIEX
+0A24C	YI SYLLABLE HXIE
+0A24D	YI SYLLABLE HXIEP
+0A24E	YI SYLLABLE HXAT
+0A24F	YI SYLLABLE HXAX
+0A250	YI SYLLABLE HXA
+0A251	YI SYLLABLE HXAP
+0A252	YI SYLLABLE HXUOT
+0A253	YI SYLLABLE HXUOX
+0A254	YI SYLLABLE HXUO
+0A255	YI SYLLABLE HXUOP
+0A256	YI SYLLABLE HXOT
+0A257	YI SYLLABLE HXOX
+0A258	YI SYLLABLE HXO
+0A259	YI SYLLABLE HXOP
+0A25A	YI SYLLABLE HXEX
+0A25B	YI SYLLABLE HXE
+0A25C	YI SYLLABLE HXEP
+0A25D	YI SYLLABLE NGIEX
+0A25E	YI SYLLABLE NGIE
+0A25F	YI SYLLABLE NGIEP
+0A260	YI SYLLABLE NGAT
+0A261	YI SYLLABLE NGAX
+0A262	YI SYLLABLE NGA
+0A263	YI SYLLABLE NGAP
+0A264	YI SYLLABLE NGUOT
+0A265	YI SYLLABLE NGUOX
+0A266	YI SYLLABLE NGUO
+0A267	YI SYLLABLE NGOT
+0A268	YI SYLLABLE NGOX
+0A269	YI SYLLABLE NGO
+0A26A	YI SYLLABLE NGOP
+0A26B	YI SYLLABLE NGEX
+0A26C	YI SYLLABLE NGE
+0A26D	YI SYLLABLE NGEP
+0A26E	YI SYLLABLE HIT
+0A26F	YI SYLLABLE HIEX
+0A270	YI SYLLABLE HIE
+0A271	YI SYLLABLE HAT
+0A272	YI SYLLABLE HAX
+0A273	YI SYLLABLE HA
+0A274	YI SYLLABLE HAP
+0A275	YI SYLLABLE HUOT
+0A276	YI SYLLABLE HUOX
+0A277	YI SYLLABLE HUO
+0A278	YI SYLLABLE HUOP
+0A279	YI SYLLABLE HOT
+0A27A	YI SYLLABLE HOX
+0A27B	YI SYLLABLE HO
+0A27C	YI SYLLABLE HOP
+0A27D	YI SYLLABLE HEX
+0A27E	YI SYLLABLE HE
+0A27F	YI SYLLABLE HEP
+0A280	YI SYLLABLE WAT
+0A281	YI SYLLABLE WAX
+0A282	YI SYLLABLE WA
+0A283	YI SYLLABLE WAP
+0A284	YI SYLLABLE WUOX
+0A285	YI SYLLABLE WUO
+0A286	YI SYLLABLE WUOP
+0A287	YI SYLLABLE WOX
+0A288	YI SYLLABLE WO
+0A289	YI SYLLABLE WOP
+0A28A	YI SYLLABLE WEX
+0A28B	YI SYLLABLE WE
+0A28C	YI SYLLABLE WEP
+0A28D	YI SYLLABLE ZIT
+0A28E	YI SYLLABLE ZIX
+0A28F	YI SYLLABLE ZI
+0A290	YI SYLLABLE ZIP
+0A291	YI SYLLABLE ZIEX
+0A292	YI SYLLABLE ZIE
+0A293	YI SYLLABLE ZIEP
+0A294	YI SYLLABLE ZAT
+0A295	YI SYLLABLE ZAX
+0A296	YI SYLLABLE ZA
+0A297	YI SYLLABLE ZAP
+0A298	YI SYLLABLE ZUOX
+0A299	YI SYLLABLE ZUO
+0A29A	YI SYLLABLE ZUOP
+0A29B	YI SYLLABLE ZOT
+0A29C	YI SYLLABLE ZOX
+0A29D	YI SYLLABLE ZO
+0A29E	YI SYLLABLE ZOP
+0A29F	YI SYLLABLE ZEX
+0A2A0	YI SYLLABLE ZE
+0A2A1	YI SYLLABLE ZEP
+0A2A2	YI SYLLABLE ZUT
+0A2A3	YI SYLLABLE ZUX
+0A2A4	YI SYLLABLE ZU
+0A2A5	YI SYLLABLE ZUP
+0A2A6	YI SYLLABLE ZURX
+0A2A7	YI SYLLABLE ZUR
+0A2A8	YI SYLLABLE ZYT
+0A2A9	YI SYLLABLE ZYX
+0A2AA	YI SYLLABLE ZY
+0A2AB	YI SYLLABLE ZYP
+0A2AC	YI SYLLABLE ZYRX
+0A2AD	YI SYLLABLE ZYR
+0A2AE	YI SYLLABLE CIT
+0A2AF	YI SYLLABLE CIX
+0A2B0	YI SYLLABLE CI
+0A2B1	YI SYLLABLE CIP
+0A2B2	YI SYLLABLE CIET
+0A2B3	YI SYLLABLE CIEX
+0A2B4	YI SYLLABLE CIE
+0A2B5	YI SYLLABLE CIEP
+0A2B6	YI SYLLABLE CAT
+0A2B7	YI SYLLABLE CAX
+0A2B8	YI SYLLABLE CA
+0A2B9	YI SYLLABLE CAP
+0A2BA	YI SYLLABLE CUOX
+0A2BB	YI SYLLABLE CUO
+0A2BC	YI SYLLABLE CUOP
+0A2BD	YI SYLLABLE COT
+0A2BE	YI SYLLABLE COX
+0A2BF	YI SYLLABLE CO
+0A2C0	YI SYLLABLE COP
+0A2C1	YI SYLLABLE CEX
+0A2C2	YI SYLLABLE CE
+0A2C3	YI SYLLABLE CEP
+0A2C4	YI SYLLABLE CUT
+0A2C5	YI SYLLABLE CUX
+0A2C6	YI SYLLABLE CU
+0A2C7	YI SYLLABLE CUP
+0A2C8	YI SYLLABLE CURX
+0A2C9	YI SYLLABLE CUR
+0A2CA	YI SYLLABLE CYT
+0A2CB	YI SYLLABLE CYX
+0A2CC	YI SYLLABLE CY
+0A2CD	YI SYLLABLE CYP
+0A2CE	YI SYLLABLE CYRX
+0A2CF	YI SYLLABLE CYR
+0A2D0	YI SYLLABLE ZZIT
+0A2D1	YI SYLLABLE ZZIX
+0A2D2	YI SYLLABLE ZZI
+0A2D3	YI SYLLABLE ZZIP
+0A2D4	YI SYLLABLE ZZIET
+0A2D5	YI SYLLABLE ZZIEX
+0A2D6	YI SYLLABLE ZZIE
+0A2D7	YI SYLLABLE ZZIEP
+0A2D8	YI SYLLABLE ZZAT
+0A2D9	YI SYLLABLE ZZAX
+0A2DA	YI SYLLABLE ZZA
+0A2DB	YI SYLLABLE ZZAP
+0A2DC	YI SYLLABLE ZZOX
+0A2DD	YI SYLLABLE ZZO
+0A2DE	YI SYLLABLE ZZOP
+0A2DF	YI SYLLABLE ZZEX
+0A2E0	YI SYLLABLE ZZE
+0A2E1	YI SYLLABLE ZZEP
+0A2E2	YI SYLLABLE ZZUX
+0A2E3	YI SYLLABLE ZZU
+0A2E4	YI SYLLABLE ZZUP
+0A2E5	YI SYLLABLE ZZURX
+0A2E6	YI SYLLABLE ZZUR
+0A2E7	YI SYLLABLE ZZYT
+0A2E8	YI SYLLABLE ZZYX
+0A2E9	YI SYLLABLE ZZY
+0A2EA	YI SYLLABLE ZZYP
+0A2EB	YI SYLLABLE ZZYRX
+0A2EC	YI SYLLABLE ZZYR
+0A2ED	YI SYLLABLE NZIT
+0A2EE	YI SYLLABLE NZIX
+0A2EF	YI SYLLABLE NZI
+0A2F0	YI SYLLABLE NZIP
+0A2F1	YI SYLLABLE NZIEX
+0A2F2	YI SYLLABLE NZIE
+0A2F3	YI SYLLABLE NZIEP
+0A2F4	YI SYLLABLE NZAT
+0A2F5	YI SYLLABLE NZAX
+0A2F6	YI SYLLABLE NZA
+0A2F7	YI SYLLABLE NZAP
+0A2F8	YI SYLLABLE NZUOX
+0A2F9	YI SYLLABLE NZUO
+0A2FA	YI SYLLABLE NZOX
+0A2FB	YI SYLLABLE NZOP
+0A2FC	YI SYLLABLE NZEX
+0A2FD	YI SYLLABLE NZE
+0A2FE	YI SYLLABLE NZUX
+0A2FF	YI SYLLABLE NZU
+0A300	YI SYLLABLE NZUP
+0A301	YI SYLLABLE NZURX
+0A302	YI SYLLABLE NZUR
+0A303	YI SYLLABLE NZYT
+0A304	YI SYLLABLE NZYX
+0A305	YI SYLLABLE NZY
+0A306	YI SYLLABLE NZYP
+0A307	YI SYLLABLE NZYRX
+0A308	YI SYLLABLE NZYR
+0A309	YI SYLLABLE SIT
+0A30A	YI SYLLABLE SIX
+0A30B	YI SYLLABLE SI
+0A30C	YI SYLLABLE SIP
+0A30D	YI SYLLABLE SIEX
+0A30E	YI SYLLABLE SIE
+0A30F	YI SYLLABLE SIEP
+0A310	YI SYLLABLE SAT
+0A311	YI SYLLABLE SAX
+0A312	YI SYLLABLE SA
+0A313	YI SYLLABLE SAP
+0A314	YI SYLLABLE SUOX
+0A315	YI SYLLABLE SUO
+0A316	YI SYLLABLE SUOP
+0A317	YI SYLLABLE SOT
+0A318	YI SYLLABLE SOX
+0A319	YI SYLLABLE SO
+0A31A	YI SYLLABLE SOP
+0A31B	YI SYLLABLE SEX
+0A31C	YI SYLLABLE SE
+0A31D	YI SYLLABLE SEP
+0A31E	YI SYLLABLE SUT
+0A31F	YI SYLLABLE SUX
+0A320	YI SYLLABLE SU
+0A321	YI SYLLABLE SUP
+0A322	YI SYLLABLE SURX
+0A323	YI SYLLABLE SUR
+0A324	YI SYLLABLE SYT
+0A325	YI SYLLABLE SYX
+0A326	YI SYLLABLE SY
+0A327	YI SYLLABLE SYP
+0A328	YI SYLLABLE SYRX
+0A329	YI SYLLABLE SYR
+0A32A	YI SYLLABLE SSIT
+0A32B	YI SYLLABLE SSIX
+0A32C	YI SYLLABLE SSI
+0A32D	YI SYLLABLE SSIP
+0A32E	YI SYLLABLE SSIEX
+0A32F	YI SYLLABLE SSIE
+0A330	YI SYLLABLE SSIEP
+0A331	YI SYLLABLE SSAT
+0A332	YI SYLLABLE SSAX
+0A333	YI SYLLABLE SSA
+0A334	YI SYLLABLE SSAP
+0A335	YI SYLLABLE SSOT
+0A336	YI SYLLABLE SSOX
+0A337	YI SYLLABLE SSO
+0A338	YI SYLLABLE SSOP
+0A339	YI SYLLABLE SSEX
+0A33A	YI SYLLABLE SSE
+0A33B	YI SYLLABLE SSEP
+0A33C	YI SYLLABLE SSUT
+0A33D	YI SYLLABLE SSUX
+0A33E	YI SYLLABLE SSU
+0A33F	YI SYLLABLE SSUP
+0A340	YI SYLLABLE SSYT
+0A341	YI SYLLABLE SSYX
+0A342	YI SYLLABLE SSY
+0A343	YI SYLLABLE SSYP
+0A344	YI SYLLABLE SSYRX
+0A345	YI SYLLABLE SSYR
+0A346	YI SYLLABLE ZHAT
+0A347	YI SYLLABLE ZHAX
+0A348	YI SYLLABLE ZHA
+0A349	YI SYLLABLE ZHAP
+0A34A	YI SYLLABLE ZHUOX
+0A34B	YI SYLLABLE ZHUO
+0A34C	YI SYLLABLE ZHUOP
+0A34D	YI SYLLABLE ZHOT
+0A34E	YI SYLLABLE ZHOX
+0A34F	YI SYLLABLE ZHO
+0A350	YI SYLLABLE ZHOP
+0A351	YI SYLLABLE ZHET
+0A352	YI SYLLABLE ZHEX
+0A353	YI SYLLABLE ZHE
+0A354	YI SYLLABLE ZHEP
+0A355	YI SYLLABLE ZHUT
+0A356	YI SYLLABLE ZHUX
+0A357	YI SYLLABLE ZHU
+0A358	YI SYLLABLE ZHUP
+0A359	YI SYLLABLE ZHURX
+0A35A	YI SYLLABLE ZHUR
+0A35B	YI SYLLABLE ZHYT
+0A35C	YI SYLLABLE ZHYX
+0A35D	YI SYLLABLE ZHY
+0A35E	YI SYLLABLE ZHYP
+0A35F	YI SYLLABLE ZHYRX
+0A360	YI SYLLABLE ZHYR
+0A361	YI SYLLABLE CHAT
+0A362	YI SYLLABLE CHAX
+0A363	YI SYLLABLE CHA
+0A364	YI SYLLABLE CHAP
+0A365	YI SYLLABLE CHUOT
+0A366	YI SYLLABLE CHUOX
+0A367	YI SYLLABLE CHUO
+0A368	YI SYLLABLE CHUOP
+0A369	YI SYLLABLE CHOT
+0A36A	YI SYLLABLE CHOX
+0A36B	YI SYLLABLE CHO
+0A36C	YI SYLLABLE CHOP
+0A36D	YI SYLLABLE CHET
+0A36E	YI SYLLABLE CHEX
+0A36F	YI SYLLABLE CHE
+0A370	YI SYLLABLE CHEP
+0A371	YI SYLLABLE CHUX
+0A372	YI SYLLABLE CHU
+0A373	YI SYLLABLE CHUP
+0A374	YI SYLLABLE CHURX
+0A375	YI SYLLABLE CHUR
+0A376	YI SYLLABLE CHYT
+0A377	YI SYLLABLE CHYX
+0A378	YI SYLLABLE CHY
+0A379	YI SYLLABLE CHYP
+0A37A	YI SYLLABLE CHYRX
+0A37B	YI SYLLABLE CHYR
+0A37C	YI SYLLABLE RRAX
+0A37D	YI SYLLABLE RRA
+0A37E	YI SYLLABLE RRUOX
+0A37F	YI SYLLABLE RRUO
+0A380	YI SYLLABLE RROT
+0A381	YI SYLLABLE RROX
+0A382	YI SYLLABLE RRO
+0A383	YI SYLLABLE RROP
+0A384	YI SYLLABLE RRET
+0A385	YI SYLLABLE RREX
+0A386	YI SYLLABLE RRE
+0A387	YI SYLLABLE RREP
+0A388	YI SYLLABLE RRUT
+0A389	YI SYLLABLE RRUX
+0A38A	YI SYLLABLE RRU
+0A38B	YI SYLLABLE RRUP
+0A38C	YI SYLLABLE RRURX
+0A38D	YI SYLLABLE RRUR
+0A38E	YI SYLLABLE RRYT
+0A38F	YI SYLLABLE RRYX
+0A390	YI SYLLABLE RRY
+0A391	YI SYLLABLE RRYP
+0A392	YI SYLLABLE RRYRX
+0A393	YI SYLLABLE RRYR
+0A394	YI SYLLABLE NRAT
+0A395	YI SYLLABLE NRAX
+0A396	YI SYLLABLE NRA
+0A397	YI SYLLABLE NRAP
+0A398	YI SYLLABLE NROX
+0A399	YI SYLLABLE NRO
+0A39A	YI SYLLABLE NROP
+0A39B	YI SYLLABLE NRET
+0A39C	YI SYLLABLE NREX
+0A39D	YI SYLLABLE NRE
+0A39E	YI SYLLABLE NREP
+0A39F	YI SYLLABLE NRUT
+0A3A0	YI SYLLABLE NRUX
+0A3A1	YI SYLLABLE NRU
+0A3A2	YI SYLLABLE NRUP
+0A3A3	YI SYLLABLE NRURX
+0A3A4	YI SYLLABLE NRUR
+0A3A5	YI SYLLABLE NRYT
+0A3A6	YI SYLLABLE NRYX
+0A3A7	YI SYLLABLE NRY
+0A3A8	YI SYLLABLE NRYP
+0A3A9	YI SYLLABLE NRYRX
+0A3AA	YI SYLLABLE NRYR
+0A3AB	YI SYLLABLE SHAT
+0A3AC	YI SYLLABLE SHAX
+0A3AD	YI SYLLABLE SHA
+0A3AE	YI SYLLABLE SHAP
+0A3AF	YI SYLLABLE SHUOX
+0A3B0	YI SYLLABLE SHUO
+0A3B1	YI SYLLABLE SHUOP
+0A3B2	YI SYLLABLE SHOT
+0A3B3	YI SYLLABLE SHOX
+0A3B4	YI SYLLABLE SHO
+0A3B5	YI SYLLABLE SHOP
+0A3B6	YI SYLLABLE SHET
+0A3B7	YI SYLLABLE SHEX
+0A3B8	YI SYLLABLE SHE
+0A3B9	YI SYLLABLE SHEP
+0A3BA	YI SYLLABLE SHUT
+0A3BB	YI SYLLABLE SHUX
+0A3BC	YI SYLLABLE SHU
+0A3BD	YI SYLLABLE SHUP
+0A3BE	YI SYLLABLE SHURX
+0A3BF	YI SYLLABLE SHUR
+0A3C0	YI SYLLABLE SHYT
+0A3C1	YI SYLLABLE SHYX
+0A3C2	YI SYLLABLE SHY
+0A3C3	YI SYLLABLE SHYP
+0A3C4	YI SYLLABLE SHYRX
+0A3C5	YI SYLLABLE SHYR
+0A3C6	YI SYLLABLE RAT
+0A3C7	YI SYLLABLE RAX
+0A3C8	YI SYLLABLE RA
+0A3C9	YI SYLLABLE RAP
+0A3CA	YI SYLLABLE RUOX
+0A3CB	YI SYLLABLE RUO
+0A3CC	YI SYLLABLE RUOP
+0A3CD	YI SYLLABLE ROT
+0A3CE	YI SYLLABLE ROX
+0A3CF	YI SYLLABLE RO
+0A3D0	YI SYLLABLE ROP
+0A3D1	YI SYLLABLE REX
+0A3D2	YI SYLLABLE RE
+0A3D3	YI SYLLABLE REP
+0A3D4	YI SYLLABLE RUT
+0A3D5	YI SYLLABLE RUX
+0A3D6	YI SYLLABLE RU
+0A3D7	YI SYLLABLE RUP
+0A3D8	YI SYLLABLE RURX
+0A3D9	YI SYLLABLE RUR
+0A3DA	YI SYLLABLE RYT
+0A3DB	YI SYLLABLE RYX
+0A3DC	YI SYLLABLE RY
+0A3DD	YI SYLLABLE RYP
+0A3DE	YI SYLLABLE RYRX
+0A3DF	YI SYLLABLE RYR
+0A3E0	YI SYLLABLE JIT
+0A3E1	YI SYLLABLE JIX
+0A3E2	YI SYLLABLE JI
+0A3E3	YI SYLLABLE JIP
+0A3E4	YI SYLLABLE JIET
+0A3E5	YI SYLLABLE JIEX
+0A3E6	YI SYLLABLE JIE
+0A3E7	YI SYLLABLE JIEP
+0A3E8	YI SYLLABLE JUOT
+0A3E9	YI SYLLABLE JUOX
+0A3EA	YI SYLLABLE JUO
+0A3EB	YI SYLLABLE JUOP
+0A3EC	YI SYLLABLE JOT
+0A3ED	YI SYLLABLE JOX
+0A3EE	YI SYLLABLE JO
+0A3EF	YI SYLLABLE JOP
+0A3F0	YI SYLLABLE JUT
+0A3F1	YI SYLLABLE JUX
+0A3F2	YI SYLLABLE JU
+0A3F3	YI SYLLABLE JUP
+0A3F4	YI SYLLABLE JURX
+0A3F5	YI SYLLABLE JUR
+0A3F6	YI SYLLABLE JYT
+0A3F7	YI SYLLABLE JYX
+0A3F8	YI SYLLABLE JY
+0A3F9	YI SYLLABLE JYP
+0A3FA	YI SYLLABLE JYRX
+0A3FB	YI SYLLABLE JYR
+0A3FC	YI SYLLABLE QIT
+0A3FD	YI SYLLABLE QIX
+0A3FE	YI SYLLABLE QI
+0A3FF	YI SYLLABLE QIP
+0A400	YI SYLLABLE QIET
+0A401	YI SYLLABLE QIEX
+0A402	YI SYLLABLE QIE
+0A403	YI SYLLABLE QIEP
+0A404	YI SYLLABLE QUOT
+0A405	YI SYLLABLE QUOX
+0A406	YI SYLLABLE QUO
+0A407	YI SYLLABLE QUOP
+0A408	YI SYLLABLE QOT
+0A409	YI SYLLABLE QOX
+0A40A	YI SYLLABLE QO
+0A40B	YI SYLLABLE QOP
+0A40C	YI SYLLABLE QUT
+0A40D	YI SYLLABLE QUX
+0A40E	YI SYLLABLE QU
+0A40F	YI SYLLABLE QUP
+0A410	YI SYLLABLE QURX
+0A411	YI SYLLABLE QUR
+0A412	YI SYLLABLE QYT
+0A413	YI SYLLABLE QYX
+0A414	YI SYLLABLE QY
+0A415	YI SYLLABLE QYP
+0A416	YI SYLLABLE QYRX
+0A417	YI SYLLABLE QYR
+0A418	YI SYLLABLE JJIT
+0A419	YI SYLLABLE JJIX
+0A41A	YI SYLLABLE JJI
+0A41B	YI SYLLABLE JJIP
+0A41C	YI SYLLABLE JJIET
+0A41D	YI SYLLABLE JJIEX
+0A41E	YI SYLLABLE JJIE
+0A41F	YI SYLLABLE JJIEP
+0A420	YI SYLLABLE JJUOX
+0A421	YI SYLLABLE JJUO
+0A422	YI SYLLABLE JJUOP
+0A423	YI SYLLABLE JJOT
+0A424	YI SYLLABLE JJOX
+0A425	YI SYLLABLE JJO
+0A426	YI SYLLABLE JJOP
+0A427	YI SYLLABLE JJUT
+0A428	YI SYLLABLE JJUX
+0A429	YI SYLLABLE JJU
+0A42A	YI SYLLABLE JJUP
+0A42B	YI SYLLABLE JJURX
+0A42C	YI SYLLABLE JJUR
+0A42D	YI SYLLABLE JJYT
+0A42E	YI SYLLABLE JJYX
+0A42F	YI SYLLABLE JJY
+0A430	YI SYLLABLE JJYP
+0A431	YI SYLLABLE NJIT
+0A432	YI SYLLABLE NJIX
+0A433	YI SYLLABLE NJI
+0A434	YI SYLLABLE NJIP
+0A435	YI SYLLABLE NJIET
+0A436	YI SYLLABLE NJIEX
+0A437	YI SYLLABLE NJIE
+0A438	YI SYLLABLE NJIEP
+0A439	YI SYLLABLE NJUOX
+0A43A	YI SYLLABLE NJUO
+0A43B	YI SYLLABLE NJOT
+0A43C	YI SYLLABLE NJOX
+0A43D	YI SYLLABLE NJO
+0A43E	YI SYLLABLE NJOP
+0A43F	YI SYLLABLE NJUX
+0A440	YI SYLLABLE NJU
+0A441	YI SYLLABLE NJUP
+0A442	YI SYLLABLE NJURX
+0A443	YI SYLLABLE NJUR
+0A444	YI SYLLABLE NJYT
+0A445	YI SYLLABLE NJYX
+0A446	YI SYLLABLE NJY
+0A447	YI SYLLABLE NJYP
+0A448	YI SYLLABLE NJYRX
+0A449	YI SYLLABLE NJYR
+0A44A	YI SYLLABLE NYIT
+0A44B	YI SYLLABLE NYIX
+0A44C	YI SYLLABLE NYI
+0A44D	YI SYLLABLE NYIP
+0A44E	YI SYLLABLE NYIET
+0A44F	YI SYLLABLE NYIEX
+0A450	YI SYLLABLE NYIE
+0A451	YI SYLLABLE NYIEP
+0A452	YI SYLLABLE NYUOX
+0A453	YI SYLLABLE NYUO
+0A454	YI SYLLABLE NYUOP
+0A455	YI SYLLABLE NYOT
+0A456	YI SYLLABLE NYOX
+0A457	YI SYLLABLE NYO
+0A458	YI SYLLABLE NYOP
+0A459	YI SYLLABLE NYUT
+0A45A	YI SYLLABLE NYUX
+0A45B	YI SYLLABLE NYU
+0A45C	YI SYLLABLE NYUP
+0A45D	YI SYLLABLE XIT
+0A45E	YI SYLLABLE XIX
+0A45F	YI SYLLABLE XI
+0A460	YI SYLLABLE XIP
+0A461	YI SYLLABLE XIET
+0A462	YI SYLLABLE XIEX
+0A463	YI SYLLABLE XIE
+0A464	YI SYLLABLE XIEP
+0A465	YI SYLLABLE XUOX
+0A466	YI SYLLABLE XUO
+0A467	YI SYLLABLE XOT
+0A468	YI SYLLABLE XOX
+0A469	YI SYLLABLE XO
+0A46A	YI SYLLABLE XOP
+0A46B	YI SYLLABLE XYT
+0A46C	YI SYLLABLE XYX
+0A46D	YI SYLLABLE XY
+0A46E	YI SYLLABLE XYP
+0A46F	YI SYLLABLE XYRX
+0A470	YI SYLLABLE XYR
+0A471	YI SYLLABLE YIT
+0A472	YI SYLLABLE YIX
+0A473	YI SYLLABLE YI
+0A474	YI SYLLABLE YIP
+0A475	YI SYLLABLE YIET
+0A476	YI SYLLABLE YIEX
+0A477	YI SYLLABLE YIE
+0A478	YI SYLLABLE YIEP
+0A479	YI SYLLABLE YUOT
+0A47A	YI SYLLABLE YUOX
+0A47B	YI SYLLABLE YUO
+0A47C	YI SYLLABLE YUOP
+0A47D	YI SYLLABLE YOT
+0A47E	YI SYLLABLE YOX
+0A47F	YI SYLLABLE YO
+0A480	YI SYLLABLE YOP
+0A481	YI SYLLABLE YUT
+0A482	YI SYLLABLE YUX
+0A483	YI SYLLABLE YU
+0A484	YI SYLLABLE YUP
+0A485	YI SYLLABLE YURX
+0A486	YI SYLLABLE YUR
+0A487	YI SYLLABLE YYT
+0A488	YI SYLLABLE YYX
+0A489	YI SYLLABLE YY
+0A48A	YI SYLLABLE YYP
+0A48B	YI SYLLABLE YYRX
+0A48C	YI SYLLABLE YYR
+0A490	YI RADICAL QOT
+0A491	YI RADICAL LI
+0A492	YI RADICAL KIT
+0A493	YI RADICAL NYIP
+0A494	YI RADICAL CYP
+0A495	YI RADICAL SSI
+0A496	YI RADICAL GGOP
+0A497	YI RADICAL GEP
+0A498	YI RADICAL MI
+0A499	YI RADICAL HXIT
+0A49A	YI RADICAL LYR
+0A49B	YI RADICAL BBUT
+0A49C	YI RADICAL MOP
+0A49D	YI RADICAL YO
+0A49E	YI RADICAL PUT
+0A49F	YI RADICAL HXUO
+0A4A0	YI RADICAL TAT
+0A4A1	YI RADICAL GA
+0A4A2	YI RADICAL ZUP
+0A4A3	YI RADICAL CYT
+0A4A4	YI RADICAL DDUR
+0A4A5	YI RADICAL BUR
+0A4A6	YI RADICAL GGUO
+0A4A7	YI RADICAL NYOP
+0A4A8	YI RADICAL TU
+0A4A9	YI RADICAL OP
+0A4AA	YI RADICAL JJUT
+0A4AB	YI RADICAL ZOT
+0A4AC	YI RADICAL PYT
+0A4AD	YI RADICAL HMO
+0A4AE	YI RADICAL YIT
+0A4AF	YI RADICAL VUR
+0A4B0	YI RADICAL SHY
+0A4B1	YI RADICAL VEP
+0A4B2	YI RADICAL ZA
+0A4B3	YI RADICAL JO
+0A4B4	YI RADICAL NZUP
+0A4B5	YI RADICAL JJY
+0A4B6	YI RADICAL GOT
+0A4B7	YI RADICAL JJIE
+0A4B8	YI RADICAL WO
+0A4B9	YI RADICAL DU
+0A4BA	YI RADICAL SHUR
+0A4BB	YI RADICAL LIE
+0A4BC	YI RADICAL CY
+0A4BD	YI RADICAL CUOP
+0A4BE	YI RADICAL CIP
+0A4BF	YI RADICAL HXOP
+0A4C0	YI RADICAL SHAT
+0A4C1	YI RADICAL ZUR
+0A4C2	YI RADICAL SHOP
+0A4C3	YI RADICAL CHE
+0A4C4	YI RADICAL ZZIET
+0A4C5	YI RADICAL NBIE
+0A4C6	YI RADICAL KE
+0A4D0	LISU LETTER BA
+0A4D1	LISU LETTER PA
+0A4D2	LISU LETTER PHA
+0A4D3	LISU LETTER DA
+0A4D4	LISU LETTER TA
+0A4D5	LISU LETTER THA
+0A4D6	LISU LETTER GA
+0A4D7	LISU LETTER KA
+0A4D8	LISU LETTER KHA
+0A4D9	LISU LETTER JA
+0A4DA	LISU LETTER CA
+0A4DB	LISU LETTER CHA
+0A4DC	LISU LETTER DZA
+0A4DD	LISU LETTER TSA
+0A4DE	LISU LETTER TSHA
+0A4DF	LISU LETTER MA
+0A4E0	LISU LETTER NA
+0A4E1	LISU LETTER LA
+0A4E2	LISU LETTER SA
+0A4E3	LISU LETTER ZHA
+0A4E4	LISU LETTER ZA
+0A4E5	LISU LETTER NGA
+0A4E6	LISU LETTER HA
+0A4E7	LISU LETTER XA
+0A4E8	LISU LETTER HHA
+0A4E9	LISU LETTER FA
+0A4EA	LISU LETTER WA
+0A4EB	LISU LETTER SHA
+0A4EC	LISU LETTER YA
+0A4ED	LISU LETTER GHA
+0A4EE	LISU LETTER A
+0A4EF	LISU LETTER AE
+0A4F0	LISU LETTER E
+0A4F1	LISU LETTER EU
+0A4F2	LISU LETTER I
+0A4F3	LISU LETTER O
+0A4F4	LISU LETTER U
+0A4F5	LISU LETTER UE
+0A4F6	LISU LETTER UH
+0A4F7	LISU LETTER OE
+0A4F8	LISU LETTER TONE MYA TI
+0A4F9	LISU LETTER TONE NA PO
+0A4FA	LISU LETTER TONE MYA CYA
+0A4FB	LISU LETTER TONE MYA BO
+0A4FC	LISU LETTER TONE MYA NA
+0A4FD	LISU LETTER TONE MYA JEU
+0A4FE	LISU PUNCTUATION COMMA
+0A4FF	LISU PUNCTUATION FULL STOP
+0A500	VAI SYLLABLE EE
+0A501	VAI SYLLABLE EEN
+0A502	VAI SYLLABLE HEE
+0A503	VAI SYLLABLE WEE
+0A504	VAI SYLLABLE WEEN
+0A505	VAI SYLLABLE PEE
+0A506	VAI SYLLABLE BHEE
+0A507	VAI SYLLABLE BEE
+0A508	VAI SYLLABLE MBEE
+0A509	VAI SYLLABLE KPEE
+0A50A	VAI SYLLABLE MGBEE
+0A50B	VAI SYLLABLE GBEE
+0A50C	VAI SYLLABLE FEE
+0A50D	VAI SYLLABLE VEE
+0A50E	VAI SYLLABLE TEE
+0A50F	VAI SYLLABLE THEE
+0A510	VAI SYLLABLE DHEE
+0A511	VAI SYLLABLE DHHEE
+0A512	VAI SYLLABLE LEE
+0A513	VAI SYLLABLE REE
+0A514	VAI SYLLABLE DEE
+0A515	VAI SYLLABLE NDEE
+0A516	VAI SYLLABLE SEE
+0A517	VAI SYLLABLE SHEE
+0A518	VAI SYLLABLE ZEE
+0A519	VAI SYLLABLE ZHEE
+0A51A	VAI SYLLABLE CEE
+0A51B	VAI SYLLABLE JEE
+0A51C	VAI SYLLABLE NJEE
+0A51D	VAI SYLLABLE YEE
+0A51E	VAI SYLLABLE KEE
+0A51F	VAI SYLLABLE NGGEE
+0A520	VAI SYLLABLE GEE
+0A521	VAI SYLLABLE MEE
+0A522	VAI SYLLABLE NEE
+0A523	VAI SYLLABLE NYEE
+0A524	VAI SYLLABLE I
+0A525	VAI SYLLABLE IN
+0A526	VAI SYLLABLE HI
+0A527	VAI SYLLABLE HIN
+0A528	VAI SYLLABLE WI
+0A529	VAI SYLLABLE WIN
+0A52A	VAI SYLLABLE PI
+0A52B	VAI SYLLABLE BHI
+0A52C	VAI SYLLABLE BI
+0A52D	VAI SYLLABLE MBI
+0A52E	VAI SYLLABLE KPI
+0A52F	VAI SYLLABLE MGBI
+0A530	VAI SYLLABLE GBI
+0A531	VAI SYLLABLE FI
+0A532	VAI SYLLABLE VI
+0A533	VAI SYLLABLE TI
+0A534	VAI SYLLABLE THI
+0A535	VAI SYLLABLE DHI
+0A536	VAI SYLLABLE DHHI
+0A537	VAI SYLLABLE LI
+0A538	VAI SYLLABLE RI
+0A539	VAI SYLLABLE DI
+0A53A	VAI SYLLABLE NDI
+0A53B	VAI SYLLABLE SI
+0A53C	VAI SYLLABLE SHI
+0A53D	VAI SYLLABLE ZI
+0A53E	VAI SYLLABLE ZHI
+0A53F	VAI SYLLABLE CI
+0A540	VAI SYLLABLE JI
+0A541	VAI SYLLABLE NJI
+0A542	VAI SYLLABLE YI
+0A543	VAI SYLLABLE KI
+0A544	VAI SYLLABLE NGGI
+0A545	VAI SYLLABLE GI
+0A546	VAI SYLLABLE MI
+0A547	VAI SYLLABLE NI
+0A548	VAI SYLLABLE NYI
+0A549	VAI SYLLABLE A
+0A54A	VAI SYLLABLE AN
+0A54B	VAI SYLLABLE NGAN
+0A54C	VAI SYLLABLE HA
+0A54D	VAI SYLLABLE HAN
+0A54E	VAI SYLLABLE WA
+0A54F	VAI SYLLABLE WAN
+0A550	VAI SYLLABLE PA
+0A551	VAI SYLLABLE BHA
+0A552	VAI SYLLABLE BA
+0A553	VAI SYLLABLE MBA
+0A554	VAI SYLLABLE KPA
+0A555	VAI SYLLABLE KPAN
+0A556	VAI SYLLABLE MGBA
+0A557	VAI SYLLABLE GBA
+0A558	VAI SYLLABLE FA
+0A559	VAI SYLLABLE VA
+0A55A	VAI SYLLABLE TA
+0A55B	VAI SYLLABLE THA
+0A55C	VAI SYLLABLE DHA
+0A55D	VAI SYLLABLE DHHA
+0A55E	VAI SYLLABLE LA
+0A55F	VAI SYLLABLE RA
+0A560	VAI SYLLABLE DA
+0A561	VAI SYLLABLE NDA
+0A562	VAI SYLLABLE SA
+0A563	VAI SYLLABLE SHA
+0A564	VAI SYLLABLE ZA
+0A565	VAI SYLLABLE ZHA
+0A566	VAI SYLLABLE CA
+0A567	VAI SYLLABLE JA
+0A568	VAI SYLLABLE NJA
+0A569	VAI SYLLABLE YA
+0A56A	VAI SYLLABLE KA
+0A56B	VAI SYLLABLE KAN
+0A56C	VAI SYLLABLE NGGA
+0A56D	VAI SYLLABLE GA
+0A56E	VAI SYLLABLE MA
+0A56F	VAI SYLLABLE NA
+0A570	VAI SYLLABLE NYA
+0A571	VAI SYLLABLE OO
+0A572	VAI SYLLABLE OON
+0A573	VAI SYLLABLE HOO
+0A574	VAI SYLLABLE WOO
+0A575	VAI SYLLABLE WOON
+0A576	VAI SYLLABLE POO
+0A577	VAI SYLLABLE BHOO
+0A578	VAI SYLLABLE BOO
+0A579	VAI SYLLABLE MBOO
+0A57A	VAI SYLLABLE KPOO
+0A57B	VAI SYLLABLE MGBOO
+0A57C	VAI SYLLABLE GBOO
+0A57D	VAI SYLLABLE FOO
+0A57E	VAI SYLLABLE VOO
+0A57F	VAI SYLLABLE TOO
+0A580	VAI SYLLABLE THOO
+0A581	VAI SYLLABLE DHOO
+0A582	VAI SYLLABLE DHHOO
+0A583	VAI SYLLABLE LOO
+0A584	VAI SYLLABLE ROO
+0A585	VAI SYLLABLE DOO
+0A586	VAI SYLLABLE NDOO
+0A587	VAI SYLLABLE SOO
+0A588	VAI SYLLABLE SHOO
+0A589	VAI SYLLABLE ZOO
+0A58A	VAI SYLLABLE ZHOO
+0A58B	VAI SYLLABLE COO
+0A58C	VAI SYLLABLE JOO
+0A58D	VAI SYLLABLE NJOO
+0A58E	VAI SYLLABLE YOO
+0A58F	VAI SYLLABLE KOO
+0A590	VAI SYLLABLE NGGOO
+0A591	VAI SYLLABLE GOO
+0A592	VAI SYLLABLE MOO
+0A593	VAI SYLLABLE NOO
+0A594	VAI SYLLABLE NYOO
+0A595	VAI SYLLABLE U
+0A596	VAI SYLLABLE UN
+0A597	VAI SYLLABLE HU
+0A598	VAI SYLLABLE HUN
+0A599	VAI SYLLABLE WU
+0A59A	VAI SYLLABLE WUN
+0A59B	VAI SYLLABLE PU
+0A59C	VAI SYLLABLE BHU
+0A59D	VAI SYLLABLE BU
+0A59E	VAI SYLLABLE MBU
+0A59F	VAI SYLLABLE KPU
+0A5A0	VAI SYLLABLE MGBU
+0A5A1	VAI SYLLABLE GBU
+0A5A2	VAI SYLLABLE FU
+0A5A3	VAI SYLLABLE VU
+0A5A4	VAI SYLLABLE TU
+0A5A5	VAI SYLLABLE THU
+0A5A6	VAI SYLLABLE DHU
+0A5A7	VAI SYLLABLE DHHU
+0A5A8	VAI SYLLABLE LU
+0A5A9	VAI SYLLABLE RU
+0A5AA	VAI SYLLABLE DU
+0A5AB	VAI SYLLABLE NDU
+0A5AC	VAI SYLLABLE SU
+0A5AD	VAI SYLLABLE SHU
+0A5AE	VAI SYLLABLE ZU
+0A5AF	VAI SYLLABLE ZHU
+0A5B0	VAI SYLLABLE CU
+0A5B1	VAI SYLLABLE JU
+0A5B2	VAI SYLLABLE NJU
+0A5B3	VAI SYLLABLE YU
+0A5B4	VAI SYLLABLE KU
+0A5B5	VAI SYLLABLE NGGU
+0A5B6	VAI SYLLABLE GU
+0A5B7	VAI SYLLABLE MU
+0A5B8	VAI SYLLABLE NU
+0A5B9	VAI SYLLABLE NYU
+0A5BA	VAI SYLLABLE O
+0A5BB	VAI SYLLABLE ON
+0A5BC	VAI SYLLABLE NGON
+0A5BD	VAI SYLLABLE HO
+0A5BE	VAI SYLLABLE HON
+0A5BF	VAI SYLLABLE WO
+0A5C0	VAI SYLLABLE WON
+0A5C1	VAI SYLLABLE PO
+0A5C2	VAI SYLLABLE BHO
+0A5C3	VAI SYLLABLE BO
+0A5C4	VAI SYLLABLE MBO
+0A5C5	VAI SYLLABLE KPO
+0A5C6	VAI SYLLABLE MGBO
+0A5C7	VAI SYLLABLE GBO
+0A5C8	VAI SYLLABLE GBON
+0A5C9	VAI SYLLABLE FO
+0A5CA	VAI SYLLABLE VO
+0A5CB	VAI SYLLABLE TO
+0A5CC	VAI SYLLABLE THO
+0A5CD	VAI SYLLABLE DHO
+0A5CE	VAI SYLLABLE DHHO
+0A5CF	VAI SYLLABLE LO
+0A5D0	VAI SYLLABLE RO
+0A5D1	VAI SYLLABLE DO
+0A5D2	VAI SYLLABLE NDO
+0A5D3	VAI SYLLABLE SO
+0A5D4	VAI SYLLABLE SHO
+0A5D5	VAI SYLLABLE ZO
+0A5D6	VAI SYLLABLE ZHO
+0A5D7	VAI SYLLABLE CO
+0A5D8	VAI SYLLABLE JO
+0A5D9	VAI SYLLABLE NJO
+0A5DA	VAI SYLLABLE YO
+0A5DB	VAI SYLLABLE KO
+0A5DC	VAI SYLLABLE NGGO
+0A5DD	VAI SYLLABLE GO
+0A5DE	VAI SYLLABLE MO
+0A5DF	VAI SYLLABLE NO
+0A5E0	VAI SYLLABLE NYO
+0A5E1	VAI SYLLABLE E
+0A5E2	VAI SYLLABLE EN
+0A5E3	VAI SYLLABLE NGEN
+0A5E4	VAI SYLLABLE HE
+0A5E5	VAI SYLLABLE HEN
+0A5E6	VAI SYLLABLE WE
+0A5E7	VAI SYLLABLE WEN
+0A5E8	VAI SYLLABLE PE
+0A5E9	VAI SYLLABLE BHE
+0A5EA	VAI SYLLABLE BE
+0A5EB	VAI SYLLABLE MBE
+0A5EC	VAI SYLLABLE KPE
+0A5ED	VAI SYLLABLE KPEN
+0A5EE	VAI SYLLABLE MGBE
+0A5EF	VAI SYLLABLE GBE
+0A5F0	VAI SYLLABLE GBEN
+0A5F1	VAI SYLLABLE FE
+0A5F2	VAI SYLLABLE VE
+0A5F3	VAI SYLLABLE TE
+0A5F4	VAI SYLLABLE THE
+0A5F5	VAI SYLLABLE DHE
+0A5F6	VAI SYLLABLE DHHE
+0A5F7	VAI SYLLABLE LE
+0A5F8	VAI SYLLABLE RE
+0A5F9	VAI SYLLABLE DE
+0A5FA	VAI SYLLABLE NDE
+0A5FB	VAI SYLLABLE SE
+0A5FC	VAI SYLLABLE SHE
+0A5FD	VAI SYLLABLE ZE
+0A5FE	VAI SYLLABLE ZHE
+0A5FF	VAI SYLLABLE CE
+0A600	VAI SYLLABLE JE
+0A601	VAI SYLLABLE NJE
+0A602	VAI SYLLABLE YE
+0A603	VAI SYLLABLE KE
+0A604	VAI SYLLABLE NGGE
+0A605	VAI SYLLABLE NGGEN
+0A606	VAI SYLLABLE GE
+0A607	VAI SYLLABLE GEN
+0A608	VAI SYLLABLE ME
+0A609	VAI SYLLABLE NE
+0A60A	VAI SYLLABLE NYE
+0A60B	VAI SYLLABLE NG
+0A60C	VAI SYLLABLE LENGTHENER
+0A60D	VAI COMMA
+0A60E	VAI FULL STOP
+0A60F	VAI QUESTION MARK
+0A610	VAI SYLLABLE NDOLE FA
+0A611	VAI SYLLABLE NDOLE KA
+0A612	VAI SYLLABLE NDOLE SOO
+0A613	VAI SYMBOL FEENG
+0A614	VAI SYMBOL KEENG
+0A615	VAI SYMBOL TING
+0A616	VAI SYMBOL NII
+0A617	VAI SYMBOL BANG
+0A618	VAI SYMBOL FAA
+0A619	VAI SYMBOL TAA
+0A61A	VAI SYMBOL DANG
+0A61B	VAI SYMBOL DOONG
+0A61C	VAI SYMBOL KUNG
+0A61D	VAI SYMBOL TONG
+0A61E	VAI SYMBOL DO-O
+0A61F	VAI SYMBOL JONG
+0A620	VAI DIGIT ZERO
+0A621	VAI DIGIT ONE
+0A622	VAI DIGIT TWO
+0A623	VAI DIGIT THREE
+0A624	VAI DIGIT FOUR
+0A625	VAI DIGIT FIVE
+0A626	VAI DIGIT SIX
+0A627	VAI DIGIT SEVEN
+0A628	VAI DIGIT EIGHT
+0A629	VAI DIGIT NINE
+0A62A	VAI SYLLABLE NDOLE MA
+0A62B	VAI SYLLABLE NDOLE DO
+0A640	CYRILLIC CAPITAL LETTER ZEMLYA
+0A641	CYRILLIC SMALL LETTER ZEMLYA
+0A642	CYRILLIC CAPITAL LETTER DZELO
+0A643	CYRILLIC SMALL LETTER DZELO
+0A644	CYRILLIC CAPITAL LETTER REVERSED DZE
+0A645	CYRILLIC SMALL LETTER REVERSED DZE
+0A646	CYRILLIC CAPITAL LETTER IOTA
+0A647	CYRILLIC SMALL LETTER IOTA
+0A648	CYRILLIC CAPITAL LETTER DJERV
+0A649	CYRILLIC SMALL LETTER DJERV
+0A64A	CYRILLIC CAPITAL LETTER MONOGRAPH UK
+0A64B	CYRILLIC SMALL LETTER MONOGRAPH UK
+0A64C	CYRILLIC CAPITAL LETTER BROAD OMEGA
+0A64D	CYRILLIC SMALL LETTER BROAD OMEGA
+0A64E	CYRILLIC CAPITAL LETTER NEUTRAL YER
+0A64F	CYRILLIC SMALL LETTER NEUTRAL YER
+0A650	CYRILLIC CAPITAL LETTER YERU WITH BACK YER
+0A651	CYRILLIC SMALL LETTER YERU WITH BACK YER
+0A652	CYRILLIC CAPITAL LETTER IOTIFIED YAT
+0A653	CYRILLIC SMALL LETTER IOTIFIED YAT
+0A654	CYRILLIC CAPITAL LETTER REVERSED YU
+0A655	CYRILLIC SMALL LETTER REVERSED YU
+0A656	CYRILLIC CAPITAL LETTER IOTIFIED A
+0A657	CYRILLIC SMALL LETTER IOTIFIED A
+0A658	CYRILLIC CAPITAL LETTER CLOSED LITTLE YUS
+0A659	CYRILLIC SMALL LETTER CLOSED LITTLE YUS
+0A65A	CYRILLIC CAPITAL LETTER BLENDED YUS
+0A65B	CYRILLIC SMALL LETTER BLENDED YUS
+0A65C	CYRILLIC CAPITAL LETTER IOTIFIED CLOSED LITTLE YUS
+0A65D	CYRILLIC SMALL LETTER IOTIFIED CLOSED LITTLE YUS
+0A65E	CYRILLIC CAPITAL LETTER YN
+0A65F	CYRILLIC SMALL LETTER YN
+0A660	CYRILLIC CAPITAL LETTER REVERSED TSE
+0A661	CYRILLIC SMALL LETTER REVERSED TSE
+0A662	CYRILLIC CAPITAL LETTER SOFT DE
+0A663	CYRILLIC SMALL LETTER SOFT DE
+0A664	CYRILLIC CAPITAL LETTER SOFT EL
+0A665	CYRILLIC SMALL LETTER SOFT EL
+0A666	CYRILLIC CAPITAL LETTER SOFT EM
+0A667	CYRILLIC SMALL LETTER SOFT EM
+0A668	CYRILLIC CAPITAL LETTER MONOCULAR O
+0A669	CYRILLIC SMALL LETTER MONOCULAR O
+0A66A	CYRILLIC CAPITAL LETTER BINOCULAR O
+0A66B	CYRILLIC SMALL LETTER BINOCULAR O
+0A66C	CYRILLIC CAPITAL LETTER DOUBLE MONOCULAR O
+0A66D	CYRILLIC SMALL LETTER DOUBLE MONOCULAR O
+0A66E	CYRILLIC LETTER MULTIOCULAR O
+0A66F	COMBINING CYRILLIC VZMET
+0A670	COMBINING CYRILLIC TEN MILLIONS SIGN
+0A671	COMBINING CYRILLIC HUNDRED MILLIONS SIGN
+0A672	COMBINING CYRILLIC THOUSAND MILLIONS SIGN
+0A673	SLAVONIC ASTERISK
+0A674	COMBINING CYRILLIC LETTER UKRAINIAN IE
+0A675	COMBINING CYRILLIC LETTER I
+0A676	COMBINING CYRILLIC LETTER YI
+0A677	COMBINING CYRILLIC LETTER U
+0A678	COMBINING CYRILLIC LETTER HARD SIGN
+0A679	COMBINING CYRILLIC LETTER YERU
+0A67A	COMBINING CYRILLIC LETTER SOFT SIGN
+0A67B	COMBINING CYRILLIC LETTER OMEGA
+0A67C	COMBINING CYRILLIC KAVYKA
+0A67D	COMBINING CYRILLIC PAYEROK
+0A67E	CYRILLIC KAVYKA
+0A67F	CYRILLIC PAYEROK
+0A680	CYRILLIC CAPITAL LETTER DWE
+0A681	CYRILLIC SMALL LETTER DWE
+0A682	CYRILLIC CAPITAL LETTER DZWE
+0A683	CYRILLIC SMALL LETTER DZWE
+0A684	CYRILLIC CAPITAL LETTER ZHWE
+0A685	CYRILLIC SMALL LETTER ZHWE
+0A686	CYRILLIC CAPITAL LETTER CCHE
+0A687	CYRILLIC SMALL LETTER CCHE
+0A688	CYRILLIC CAPITAL LETTER DZZE
+0A689	CYRILLIC SMALL LETTER DZZE
+0A68A	CYRILLIC CAPITAL LETTER TE WITH MIDDLE HOOK
+0A68B	CYRILLIC SMALL LETTER TE WITH MIDDLE HOOK
+0A68C	CYRILLIC CAPITAL LETTER TWE
+0A68D	CYRILLIC SMALL LETTER TWE
+0A68E	CYRILLIC CAPITAL LETTER TSWE
+0A68F	CYRILLIC SMALL LETTER TSWE
+0A690	CYRILLIC CAPITAL LETTER TSSE
+0A691	CYRILLIC SMALL LETTER TSSE
+0A692	CYRILLIC CAPITAL LETTER TCHE
+0A693	CYRILLIC SMALL LETTER TCHE
+0A694	CYRILLIC CAPITAL LETTER HWE
+0A695	CYRILLIC SMALL LETTER HWE
+0A696	CYRILLIC CAPITAL LETTER SHWE
+0A697	CYRILLIC SMALL LETTER SHWE
+0A698	CYRILLIC CAPITAL LETTER DOUBLE O
+0A699	CYRILLIC SMALL LETTER DOUBLE O
+0A69A	CYRILLIC CAPITAL LETTER CROSSED O
+0A69B	CYRILLIC SMALL LETTER CROSSED O
+0A69C	MODIFIER LETTER CYRILLIC HARD SIGN
+0A69D	MODIFIER LETTER CYRILLIC SOFT SIGN
+0A69E	COMBINING CYRILLIC LETTER EF
+0A69F	COMBINING CYRILLIC LETTER IOTIFIED E
+0A6A0	BAMUM LETTER A
+0A6A1	BAMUM LETTER KA
+0A6A2	BAMUM LETTER U
+0A6A3	BAMUM LETTER KU
+0A6A4	BAMUM LETTER EE
+0A6A5	BAMUM LETTER REE
+0A6A6	BAMUM LETTER TAE
+0A6A7	BAMUM LETTER O
+0A6A8	BAMUM LETTER NYI
+0A6A9	BAMUM LETTER I
+0A6AA	BAMUM LETTER LA
+0A6AB	BAMUM LETTER PA
+0A6AC	BAMUM LETTER RII
+0A6AD	BAMUM LETTER RIEE
+0A6AE	BAMUM LETTER LEEEE
+0A6AF	BAMUM LETTER MEEEE
+0A6B0	BAMUM LETTER TAA
+0A6B1	BAMUM LETTER NDAA
+0A6B2	BAMUM LETTER NJAEM
+0A6B3	BAMUM LETTER M
+0A6B4	BAMUM LETTER SUU
+0A6B5	BAMUM LETTER MU
+0A6B6	BAMUM LETTER SHII
+0A6B7	BAMUM LETTER SI
+0A6B8	BAMUM LETTER SHEUX
+0A6B9	BAMUM LETTER SEUX
+0A6BA	BAMUM LETTER KYEE
+0A6BB	BAMUM LETTER KET
+0A6BC	BAMUM LETTER NUAE
+0A6BD	BAMUM LETTER NU
+0A6BE	BAMUM LETTER NJUAE
+0A6BF	BAMUM LETTER YOQ
+0A6C0	BAMUM LETTER SHU
+0A6C1	BAMUM LETTER YUQ
+0A6C2	BAMUM LETTER YA
+0A6C3	BAMUM LETTER NSHA
+0A6C4	BAMUM LETTER KEUX
+0A6C5	BAMUM LETTER PEUX
+0A6C6	BAMUM LETTER NJEE
+0A6C7	BAMUM LETTER NTEE
+0A6C8	BAMUM LETTER PUE
+0A6C9	BAMUM LETTER WUE
+0A6CA	BAMUM LETTER PEE
+0A6CB	BAMUM LETTER FEE
+0A6CC	BAMUM LETTER RU
+0A6CD	BAMUM LETTER LU
+0A6CE	BAMUM LETTER MI
+0A6CF	BAMUM LETTER NI
+0A6D0	BAMUM LETTER REUX
+0A6D1	BAMUM LETTER RAE
+0A6D2	BAMUM LETTER KEN
+0A6D3	BAMUM LETTER NGKWAEN
+0A6D4	BAMUM LETTER NGGA
+0A6D5	BAMUM LETTER NGA
+0A6D6	BAMUM LETTER SHO
+0A6D7	BAMUM LETTER PUAE
+0A6D8	BAMUM LETTER FU
+0A6D9	BAMUM LETTER FOM
+0A6DA	BAMUM LETTER WA
+0A6DB	BAMUM LETTER NA
+0A6DC	BAMUM LETTER LI
+0A6DD	BAMUM LETTER PI
+0A6DE	BAMUM LETTER LOQ
+0A6DF	BAMUM LETTER KO
+0A6E0	BAMUM LETTER MBEN
+0A6E1	BAMUM LETTER REN
+0A6E2	BAMUM LETTER MEN
+0A6E3	BAMUM LETTER MA
+0A6E4	BAMUM LETTER TI
+0A6E5	BAMUM LETTER KI
+0A6E6	BAMUM LETTER MO
+0A6E7	BAMUM LETTER MBAA
+0A6E8	BAMUM LETTER TET
+0A6E9	BAMUM LETTER KPA
+0A6EA	BAMUM LETTER TEN
+0A6EB	BAMUM LETTER NTUU
+0A6EC	BAMUM LETTER SAMBA
+0A6ED	BAMUM LETTER FAAMAE
+0A6EE	BAMUM LETTER KOVUU
+0A6EF	BAMUM LETTER KOGHOM
+0A6F0	BAMUM COMBINING MARK KOQNDON
+0A6F1	BAMUM COMBINING MARK TUKWENTIS
+0A6F2	BAMUM NJAEMLI
+0A6F3	BAMUM FULL STOP
+0A6F4	BAMUM COLON
+0A6F5	BAMUM COMMA
+0A6F6	BAMUM SEMICOLON
+0A6F7	BAMUM QUESTION MARK
+0A700	MODIFIER LETTER CHINESE TONE YIN PING
+0A701	MODIFIER LETTER CHINESE TONE YANG PING
+0A702	MODIFIER LETTER CHINESE TONE YIN SHANG
+0A703	MODIFIER LETTER CHINESE TONE YANG SHANG
+0A704	MODIFIER LETTER CHINESE TONE YIN QU
+0A705	MODIFIER LETTER CHINESE TONE YANG QU
+0A706	MODIFIER LETTER CHINESE TONE YIN RU
+0A707	MODIFIER LETTER CHINESE TONE YANG RU
+0A708	MODIFIER LETTER EXTRA-HIGH DOTTED TONE BAR
+0A709	MODIFIER LETTER HIGH DOTTED TONE BAR
+0A70A	MODIFIER LETTER MID DOTTED TONE BAR
+0A70B	MODIFIER LETTER LOW DOTTED TONE BAR
+0A70C	MODIFIER LETTER EXTRA-LOW DOTTED TONE BAR
+0A70D	MODIFIER LETTER EXTRA-HIGH DOTTED LEFT-STEM TONE BAR
+0A70E	MODIFIER LETTER HIGH DOTTED LEFT-STEM TONE BAR
+0A70F	MODIFIER LETTER MID DOTTED LEFT-STEM TONE BAR
+0A710	MODIFIER LETTER LOW DOTTED LEFT-STEM TONE BAR
+0A711	MODIFIER LETTER EXTRA-LOW DOTTED LEFT-STEM TONE BAR
+0A712	MODIFIER LETTER EXTRA-HIGH LEFT-STEM TONE BAR
+0A713	MODIFIER LETTER HIGH LEFT-STEM TONE BAR
+0A714	MODIFIER LETTER MID LEFT-STEM TONE BAR
+0A715	MODIFIER LETTER LOW LEFT-STEM TONE BAR
+0A716	MODIFIER LETTER EXTRA-LOW LEFT-STEM TONE BAR
+0A717	MODIFIER LETTER DOT VERTICAL BAR
+0A718	MODIFIER LETTER DOT SLASH
+0A719	MODIFIER LETTER DOT HORIZONTAL BAR
+0A71A	MODIFIER LETTER LOWER RIGHT CORNER ANGLE
+0A71B	MODIFIER LETTER RAISED UP ARROW
+0A71C	MODIFIER LETTER RAISED DOWN ARROW
+0A71D	MODIFIER LETTER RAISED EXCLAMATION MARK
+0A71E	MODIFIER LETTER RAISED INVERTED EXCLAMATION MARK
+0A71F	MODIFIER LETTER LOW INVERTED EXCLAMATION MARK
+0A720	MODIFIER LETTER STRESS AND HIGH TONE
+0A721	MODIFIER LETTER STRESS AND LOW TONE
+0A722	LATIN CAPITAL LETTER EGYPTOLOGICAL ALEF
+0A723	LATIN SMALL LETTER EGYPTOLOGICAL ALEF
+0A724	LATIN CAPITAL LETTER EGYPTOLOGICAL AIN
+0A725	LATIN SMALL LETTER EGYPTOLOGICAL AIN
+0A726	LATIN CAPITAL LETTER HENG
+0A727	LATIN SMALL LETTER HENG
+0A728	LATIN CAPITAL LETTER TZ
+0A729	LATIN SMALL LETTER TZ
+0A72A	LATIN CAPITAL LETTER TRESILLO
+0A72B	LATIN SMALL LETTER TRESILLO
+0A72C	LATIN CAPITAL LETTER CUATRILLO
+0A72D	LATIN SMALL LETTER CUATRILLO
+0A72E	LATIN CAPITAL LETTER CUATRILLO WITH COMMA
+0A72F	LATIN SMALL LETTER CUATRILLO WITH COMMA
+0A730	LATIN LETTER SMALL CAPITAL F
+0A731	LATIN LETTER SMALL CAPITAL S
+0A732	LATIN CAPITAL LETTER AA
+0A733	LATIN SMALL LETTER AA
+0A734	LATIN CAPITAL LETTER AO
+0A735	LATIN SMALL LETTER AO
+0A736	LATIN CAPITAL LETTER AU
+0A737	LATIN SMALL LETTER AU
+0A738	LATIN CAPITAL LETTER AV
+0A739	LATIN SMALL LETTER AV
+0A73A	LATIN CAPITAL LETTER AV WITH HORIZONTAL BAR
+0A73B	LATIN SMALL LETTER AV WITH HORIZONTAL BAR
+0A73C	LATIN CAPITAL LETTER AY
+0A73D	LATIN SMALL LETTER AY
+0A73E	LATIN CAPITAL LETTER REVERSED C WITH DOT
+0A73F	LATIN SMALL LETTER REVERSED C WITH DOT
+0A740	LATIN CAPITAL LETTER K WITH STROKE
+0A741	LATIN SMALL LETTER K WITH STROKE
+0A742	LATIN CAPITAL LETTER K WITH DIAGONAL STROKE
+0A743	LATIN SMALL LETTER K WITH DIAGONAL STROKE
+0A744	LATIN CAPITAL LETTER K WITH STROKE AND DIAGONAL STROKE
+0A745	LATIN SMALL LETTER K WITH STROKE AND DIAGONAL STROKE
+0A746	LATIN CAPITAL LETTER BROKEN L
+0A747	LATIN SMALL LETTER BROKEN L
+0A748	LATIN CAPITAL LETTER L WITH HIGH STROKE
+0A749	LATIN SMALL LETTER L WITH HIGH STROKE
+0A74A	LATIN CAPITAL LETTER O WITH LONG STROKE OVERLAY
+0A74B	LATIN SMALL LETTER O WITH LONG STROKE OVERLAY
+0A74C	LATIN CAPITAL LETTER O WITH LOOP
+0A74D	LATIN SMALL LETTER O WITH LOOP
+0A74E	LATIN CAPITAL LETTER OO
+0A74F	LATIN SMALL LETTER OO
+0A750	LATIN CAPITAL LETTER P WITH STROKE THROUGH DESCENDER
+0A751	LATIN SMALL LETTER P WITH STROKE THROUGH DESCENDER
+0A752	LATIN CAPITAL LETTER P WITH FLOURISH
+0A753	LATIN SMALL LETTER P WITH FLOURISH
+0A754	LATIN CAPITAL LETTER P WITH SQUIRREL TAIL
+0A755	LATIN SMALL LETTER P WITH SQUIRREL TAIL
+0A756	LATIN CAPITAL LETTER Q WITH STROKE THROUGH DESCENDER
+0A757	LATIN SMALL LETTER Q WITH STROKE THROUGH DESCENDER
+0A758	LATIN CAPITAL LETTER Q WITH DIAGONAL STROKE
+0A759	LATIN SMALL LETTER Q WITH DIAGONAL STROKE
+0A75A	LATIN CAPITAL LETTER R ROTUNDA
+0A75B	LATIN SMALL LETTER R ROTUNDA
+0A75C	LATIN CAPITAL LETTER RUM ROTUNDA
+0A75D	LATIN SMALL LETTER RUM ROTUNDA
+0A75E	LATIN CAPITAL LETTER V WITH DIAGONAL STROKE
+0A75F	LATIN SMALL LETTER V WITH DIAGONAL STROKE
+0A760	LATIN CAPITAL LETTER VY
+0A761	LATIN SMALL LETTER VY
+0A762	LATIN CAPITAL LETTER VISIGOTHIC Z
+0A763	LATIN SMALL LETTER VISIGOTHIC Z
+0A764	LATIN CAPITAL LETTER THORN WITH STROKE
+0A765	LATIN SMALL LETTER THORN WITH STROKE
+0A766	LATIN CAPITAL LETTER THORN WITH STROKE THROUGH DESCENDER
+0A767	LATIN SMALL LETTER THORN WITH STROKE THROUGH DESCENDER
+0A768	LATIN CAPITAL LETTER VEND
+0A769	LATIN SMALL LETTER VEND
+0A76A	LATIN CAPITAL LETTER ET
+0A76B	LATIN SMALL LETTER ET
+0A76C	LATIN CAPITAL LETTER IS
+0A76D	LATIN SMALL LETTER IS
+0A76E	LATIN CAPITAL LETTER CON
+0A76F	LATIN SMALL LETTER CON
+0A770	MODIFIER LETTER US
+0A771	LATIN SMALL LETTER DUM
+0A772	LATIN SMALL LETTER LUM
+0A773	LATIN SMALL LETTER MUM
+0A774	LATIN SMALL LETTER NUM
+0A775	LATIN SMALL LETTER RUM
+0A776	LATIN LETTER SMALL CAPITAL RUM
+0A777	LATIN SMALL LETTER TUM
+0A778	LATIN SMALL LETTER UM
+0A779	LATIN CAPITAL LETTER INSULAR D
+0A77A	LATIN SMALL LETTER INSULAR D
+0A77B	LATIN CAPITAL LETTER INSULAR F
+0A77C	LATIN SMALL LETTER INSULAR F
+0A77D	LATIN CAPITAL LETTER INSULAR G
+0A77E	LATIN CAPITAL LETTER TURNED INSULAR G
+0A77F	LATIN SMALL LETTER TURNED INSULAR G
+0A780	LATIN CAPITAL LETTER TURNED L
+0A781	LATIN SMALL LETTER TURNED L
+0A782	LATIN CAPITAL LETTER INSULAR R
+0A783	LATIN SMALL LETTER INSULAR R
+0A784	LATIN CAPITAL LETTER INSULAR S
+0A785	LATIN SMALL LETTER INSULAR S
+0A786	LATIN CAPITAL LETTER INSULAR T
+0A787	LATIN SMALL LETTER INSULAR T
+0A788	MODIFIER LETTER LOW CIRCUMFLEX ACCENT
+0A789	MODIFIER LETTER COLON
+0A78A	MODIFIER LETTER SHORT EQUALS SIGN
+0A78B	LATIN CAPITAL LETTER SALTILLO
+0A78C	LATIN SMALL LETTER SALTILLO
+0A78D	LATIN CAPITAL LETTER TURNED H
+0A78E	LATIN SMALL LETTER L WITH RETROFLEX HOOK AND BELT
+0A78F	LATIN LETTER SINOLOGICAL DOT
+0A790	LATIN CAPITAL LETTER N WITH DESCENDER
+0A791	LATIN SMALL LETTER N WITH DESCENDER
+0A792	LATIN CAPITAL LETTER C WITH BAR
+0A793	LATIN SMALL LETTER C WITH BAR
+0A794	LATIN SMALL LETTER C WITH PALATAL HOOK
+0A795	LATIN SMALL LETTER H WITH PALATAL HOOK
+0A796	LATIN CAPITAL LETTER B WITH FLOURISH
+0A797	LATIN SMALL LETTER B WITH FLOURISH
+0A798	LATIN CAPITAL LETTER F WITH STROKE
+0A799	LATIN SMALL LETTER F WITH STROKE
+0A79A	LATIN CAPITAL LETTER VOLAPUK AE
+0A79B	LATIN SMALL LETTER VOLAPUK AE
+0A79C	LATIN CAPITAL LETTER VOLAPUK OE
+0A79D	LATIN SMALL LETTER VOLAPUK OE
+0A79E	LATIN CAPITAL LETTER VOLAPUK UE
+0A79F	LATIN SMALL LETTER VOLAPUK UE
+0A7A0	LATIN CAPITAL LETTER G WITH OBLIQUE STROKE
+0A7A1	LATIN SMALL LETTER G WITH OBLIQUE STROKE
+0A7A2	LATIN CAPITAL LETTER K WITH OBLIQUE STROKE
+0A7A3	LATIN SMALL LETTER K WITH OBLIQUE STROKE
+0A7A4	LATIN CAPITAL LETTER N WITH OBLIQUE STROKE
+0A7A5	LATIN SMALL LETTER N WITH OBLIQUE STROKE
+0A7A6	LATIN CAPITAL LETTER R WITH OBLIQUE STROKE
+0A7A7	LATIN SMALL LETTER R WITH OBLIQUE STROKE
+0A7A8	LATIN CAPITAL LETTER S WITH OBLIQUE STROKE
+0A7A9	LATIN SMALL LETTER S WITH OBLIQUE STROKE
+0A7AA	LATIN CAPITAL LETTER H WITH HOOK
+0A7AB	LATIN CAPITAL LETTER REVERSED OPEN E
+0A7AC	LATIN CAPITAL LETTER SCRIPT G
+0A7AD	LATIN CAPITAL LETTER L WITH BELT
+0A7B0	LATIN CAPITAL LETTER TURNED K
+0A7B1	LATIN CAPITAL LETTER TURNED T
+0A7B2	LATIN CAPITAL LETTER J WITH CROSSED-TAIL
+0A7B3	LATIN CAPITAL LETTER CHI
+0A7B4	LATIN CAPITAL LETTER BETA
+0A7B5	LATIN SMALL LETTER BETA
+0A7B6	LATIN CAPITAL LETTER OMEGA
+0A7B7	LATIN SMALL LETTER OMEGA
+0A7F7	LATIN EPIGRAPHIC LETTER SIDEWAYS I
+0A7F8	MODIFIER LETTER CAPITAL H WITH STROKE
+0A7F9	MODIFIER LETTER SMALL LIGATURE OE
+0A7FA	LATIN LETTER SMALL CAPITAL TURNED M
+0A7FB	LATIN EPIGRAPHIC LETTER REVERSED F
+0A7FC	LATIN EPIGRAPHIC LETTER REVERSED P
+0A7FD	LATIN EPIGRAPHIC LETTER INVERTED M
+0A7FE	LATIN EPIGRAPHIC LETTER I LONGA
+0A7FF	LATIN EPIGRAPHIC LETTER ARCHAIC M
+0A800	SYLOTI NAGRI LETTER A
+0A801	SYLOTI NAGRI LETTER I
+0A802	SYLOTI NAGRI SIGN DVISVARA
+0A803	SYLOTI NAGRI LETTER U
+0A804	SYLOTI NAGRI LETTER E
+0A805	SYLOTI NAGRI LETTER O
+0A806	SYLOTI NAGRI SIGN HASANTA
+0A807	SYLOTI NAGRI LETTER KO
+0A808	SYLOTI NAGRI LETTER KHO
+0A809	SYLOTI NAGRI LETTER GO
+0A80A	SYLOTI NAGRI LETTER GHO
+0A80B	SYLOTI NAGRI SIGN ANUSVARA
+0A80C	SYLOTI NAGRI LETTER CO
+0A80D	SYLOTI NAGRI LETTER CHO
+0A80E	SYLOTI NAGRI LETTER JO
+0A80F	SYLOTI NAGRI LETTER JHO
+0A810	SYLOTI NAGRI LETTER TTO
+0A811	SYLOTI NAGRI LETTER TTHO
+0A812	SYLOTI NAGRI LETTER DDO
+0A813	SYLOTI NAGRI LETTER DDHO
+0A814	SYLOTI NAGRI LETTER TO
+0A815	SYLOTI NAGRI LETTER THO
+0A816	SYLOTI NAGRI LETTER DO
+0A817	SYLOTI NAGRI LETTER DHO
+0A818	SYLOTI NAGRI LETTER NO
+0A819	SYLOTI NAGRI LETTER PO
+0A81A	SYLOTI NAGRI LETTER PHO
+0A81B	SYLOTI NAGRI LETTER BO
+0A81C	SYLOTI NAGRI LETTER BHO
+0A81D	SYLOTI NAGRI LETTER MO
+0A81E	SYLOTI NAGRI LETTER RO
+0A81F	SYLOTI NAGRI LETTER LO
+0A820	SYLOTI NAGRI LETTER RRO
+0A821	SYLOTI NAGRI LETTER SO
+0A822	SYLOTI NAGRI LETTER HO
+0A823	SYLOTI NAGRI VOWEL SIGN A
+0A824	SYLOTI NAGRI VOWEL SIGN I
+0A825	SYLOTI NAGRI VOWEL SIGN U
+0A826	SYLOTI NAGRI VOWEL SIGN E
+0A827	SYLOTI NAGRI VOWEL SIGN OO
+0A828	SYLOTI NAGRI POETRY MARK-1
+0A829	SYLOTI NAGRI POETRY MARK-2
+0A82A	SYLOTI NAGRI POETRY MARK-3
+0A82B	SYLOTI NAGRI POETRY MARK-4
+0A830	NORTH INDIC FRACTION ONE QUARTER
+0A831	NORTH INDIC FRACTION ONE HALF
+0A832	NORTH INDIC FRACTION THREE QUARTERS
+0A833	NORTH INDIC FRACTION ONE SIXTEENTH
+0A834	NORTH INDIC FRACTION ONE EIGHTH
+0A835	NORTH INDIC FRACTION THREE SIXTEENTHS
+0A836	NORTH INDIC QUARTER MARK
+0A837	NORTH INDIC PLACEHOLDER MARK
+0A838	NORTH INDIC RUPEE MARK
+0A839	NORTH INDIC QUANTITY MARK
+0A840	PHAGS-PA LETTER KA
+0A841	PHAGS-PA LETTER KHA
+0A842	PHAGS-PA LETTER GA
+0A843	PHAGS-PA LETTER NGA
+0A844	PHAGS-PA LETTER CA
+0A845	PHAGS-PA LETTER CHA
+0A846	PHAGS-PA LETTER JA
+0A847	PHAGS-PA LETTER NYA
+0A848	PHAGS-PA LETTER TA
+0A849	PHAGS-PA LETTER THA
+0A84A	PHAGS-PA LETTER DA
+0A84B	PHAGS-PA LETTER NA
+0A84C	PHAGS-PA LETTER PA
+0A84D	PHAGS-PA LETTER PHA
+0A84E	PHAGS-PA LETTER BA
+0A84F	PHAGS-PA LETTER MA
+0A850	PHAGS-PA LETTER TSA
+0A851	PHAGS-PA LETTER TSHA
+0A852	PHAGS-PA LETTER DZA
+0A853	PHAGS-PA LETTER WA
+0A854	PHAGS-PA LETTER ZHA
+0A855	PHAGS-PA LETTER ZA
+0A856	PHAGS-PA LETTER SMALL A
+0A857	PHAGS-PA LETTER YA
+0A858	PHAGS-PA LETTER RA
+0A859	PHAGS-PA LETTER LA
+0A85A	PHAGS-PA LETTER SHA
+0A85B	PHAGS-PA LETTER SA
+0A85C	PHAGS-PA LETTER HA
+0A85D	PHAGS-PA LETTER A
+0A85E	PHAGS-PA LETTER I
+0A85F	PHAGS-PA LETTER U
+0A860	PHAGS-PA LETTER E
+0A861	PHAGS-PA LETTER O
+0A862	PHAGS-PA LETTER QA
+0A863	PHAGS-PA LETTER XA
+0A864	PHAGS-PA LETTER FA
+0A865	PHAGS-PA LETTER GGA
+0A866	PHAGS-PA LETTER EE
+0A867	PHAGS-PA SUBJOINED LETTER WA
+0A868	PHAGS-PA SUBJOINED LETTER YA
+0A869	PHAGS-PA LETTER TTA
+0A86A	PHAGS-PA LETTER TTHA
+0A86B	PHAGS-PA LETTER DDA
+0A86C	PHAGS-PA LETTER NNA
+0A86D	PHAGS-PA LETTER ALTERNATE YA
+0A86E	PHAGS-PA LETTER VOICELESS SHA
+0A86F	PHAGS-PA LETTER VOICED HA
+0A870	PHAGS-PA LETTER ASPIRATED FA
+0A871	PHAGS-PA SUBJOINED LETTER RA
+0A872	PHAGS-PA SUPERFIXED LETTER RA
+0A873	PHAGS-PA LETTER CANDRABINDU
+0A874	PHAGS-PA SINGLE HEAD MARK
+0A875	PHAGS-PA DOUBLE HEAD MARK
+0A876	PHAGS-PA MARK SHAD
+0A877	PHAGS-PA MARK DOUBLE SHAD
+0A880	SAURASHTRA SIGN ANUSVARA
+0A881	SAURASHTRA SIGN VISARGA
+0A882	SAURASHTRA LETTER A
+0A883	SAURASHTRA LETTER AA
+0A884	SAURASHTRA LETTER I
+0A885	SAURASHTRA LETTER II
+0A886	SAURASHTRA LETTER U
+0A887	SAURASHTRA LETTER UU
+0A888	SAURASHTRA LETTER VOCALIC R
+0A889	SAURASHTRA LETTER VOCALIC RR
+0A88A	SAURASHTRA LETTER VOCALIC L
+0A88B	SAURASHTRA LETTER VOCALIC LL
+0A88C	SAURASHTRA LETTER E
+0A88D	SAURASHTRA LETTER EE
+0A88E	SAURASHTRA LETTER AI
+0A88F	SAURASHTRA LETTER O
+0A890	SAURASHTRA LETTER OO
+0A891	SAURASHTRA LETTER AU
+0A892	SAURASHTRA LETTER KA
+0A893	SAURASHTRA LETTER KHA
+0A894	SAURASHTRA LETTER GA
+0A895	SAURASHTRA LETTER GHA
+0A896	SAURASHTRA LETTER NGA
+0A897	SAURASHTRA LETTER CA
+0A898	SAURASHTRA LETTER CHA
+0A899	SAURASHTRA LETTER JA
+0A89A	SAURASHTRA LETTER JHA
+0A89B	SAURASHTRA LETTER NYA
+0A89C	SAURASHTRA LETTER TTA
+0A89D	SAURASHTRA LETTER TTHA
+0A89E	SAURASHTRA LETTER DDA
+0A89F	SAURASHTRA LETTER DDHA
+0A8A0	SAURASHTRA LETTER NNA
+0A8A1	SAURASHTRA LETTER TA
+0A8A2	SAURASHTRA LETTER THA
+0A8A3	SAURASHTRA LETTER DA
+0A8A4	SAURASHTRA LETTER DHA
+0A8A5	SAURASHTRA LETTER NA
+0A8A6	SAURASHTRA LETTER PA
+0A8A7	SAURASHTRA LETTER PHA
+0A8A8	SAURASHTRA LETTER BA
+0A8A9	SAURASHTRA LETTER BHA
+0A8AA	SAURASHTRA LETTER MA
+0A8AB	SAURASHTRA LETTER YA
+0A8AC	SAURASHTRA LETTER RA
+0A8AD	SAURASHTRA LETTER LA
+0A8AE	SAURASHTRA LETTER VA
+0A8AF	SAURASHTRA LETTER SHA
+0A8B0	SAURASHTRA LETTER SSA
+0A8B1	SAURASHTRA LETTER SA
+0A8B2	SAURASHTRA LETTER HA
+0A8B3	SAURASHTRA LETTER LLA
+0A8B4	SAURASHTRA CONSONANT SIGN HAARU
+0A8B5	SAURASHTRA VOWEL SIGN AA
+0A8B6	SAURASHTRA VOWEL SIGN I
+0A8B7	SAURASHTRA VOWEL SIGN II
+0A8B8	SAURASHTRA VOWEL SIGN U
+0A8B9	SAURASHTRA VOWEL SIGN UU
+0A8BA	SAURASHTRA VOWEL SIGN VOCALIC R
+0A8BB	SAURASHTRA VOWEL SIGN VOCALIC RR
+0A8BC	SAURASHTRA VOWEL SIGN VOCALIC L
+0A8BD	SAURASHTRA VOWEL SIGN VOCALIC LL
+0A8BE	SAURASHTRA VOWEL SIGN E
+0A8BF	SAURASHTRA VOWEL SIGN EE
+0A8C0	SAURASHTRA VOWEL SIGN AI
+0A8C1	SAURASHTRA VOWEL SIGN O
+0A8C2	SAURASHTRA VOWEL SIGN OO
+0A8C3	SAURASHTRA VOWEL SIGN AU
+0A8C4	SAURASHTRA SIGN VIRAMA
+0A8CE	SAURASHTRA DANDA
+0A8CF	SAURASHTRA DOUBLE DANDA
+0A8D0	SAURASHTRA DIGIT ZERO
+0A8D1	SAURASHTRA DIGIT ONE
+0A8D2	SAURASHTRA DIGIT TWO
+0A8D3	SAURASHTRA DIGIT THREE
+0A8D4	SAURASHTRA DIGIT FOUR
+0A8D5	SAURASHTRA DIGIT FIVE
+0A8D6	SAURASHTRA DIGIT SIX
+0A8D7	SAURASHTRA DIGIT SEVEN
+0A8D8	SAURASHTRA DIGIT EIGHT
+0A8D9	SAURASHTRA DIGIT NINE
+0A8E0	COMBINING DEVANAGARI DIGIT ZERO
+0A8E1	COMBINING DEVANAGARI DIGIT ONE
+0A8E2	COMBINING DEVANAGARI DIGIT TWO
+0A8E3	COMBINING DEVANAGARI DIGIT THREE
+0A8E4	COMBINING DEVANAGARI DIGIT FOUR
+0A8E5	COMBINING DEVANAGARI DIGIT FIVE
+0A8E6	COMBINING DEVANAGARI DIGIT SIX
+0A8E7	COMBINING DEVANAGARI DIGIT SEVEN
+0A8E8	COMBINING DEVANAGARI DIGIT EIGHT
+0A8E9	COMBINING DEVANAGARI DIGIT NINE
+0A8EA	COMBINING DEVANAGARI LETTER A
+0A8EB	COMBINING DEVANAGARI LETTER U
+0A8EC	COMBINING DEVANAGARI LETTER KA
+0A8ED	COMBINING DEVANAGARI LETTER NA
+0A8EE	COMBINING DEVANAGARI LETTER PA
+0A8EF	COMBINING DEVANAGARI LETTER RA
+0A8F0	COMBINING DEVANAGARI LETTER VI
+0A8F1	COMBINING DEVANAGARI SIGN AVAGRAHA
+0A8F2	DEVANAGARI SIGN SPACING CANDRABINDU
+0A8F3	DEVANAGARI SIGN CANDRABINDU VIRAMA
+0A8F4	DEVANAGARI SIGN DOUBLE CANDRABINDU VIRAMA
+0A8F5	DEVANAGARI SIGN CANDRABINDU TWO
+0A8F6	DEVANAGARI SIGN CANDRABINDU THREE
+0A8F7	DEVANAGARI SIGN CANDRABINDU AVAGRAHA
+0A8F8	DEVANAGARI SIGN PUSHPIKA
+0A8F9	DEVANAGARI GAP FILLER
+0A8FA	DEVANAGARI CARET
+0A8FB	DEVANAGARI HEADSTROKE
+0A8FC	DEVANAGARI SIGN SIDDHAM
+0A8FD	DEVANAGARI JAIN OM
+0A900	KAYAH LI DIGIT ZERO
+0A901	KAYAH LI DIGIT ONE
+0A902	KAYAH LI DIGIT TWO
+0A903	KAYAH LI DIGIT THREE
+0A904	KAYAH LI DIGIT FOUR
+0A905	KAYAH LI DIGIT FIVE
+0A906	KAYAH LI DIGIT SIX
+0A907	KAYAH LI DIGIT SEVEN
+0A908	KAYAH LI DIGIT EIGHT
+0A909	KAYAH LI DIGIT NINE
+0A90A	KAYAH LI LETTER KA
+0A90B	KAYAH LI LETTER KHA
+0A90C	KAYAH LI LETTER GA
+0A90D	KAYAH LI LETTER NGA
+0A90E	KAYAH LI LETTER SA
+0A90F	KAYAH LI LETTER SHA
+0A910	KAYAH LI LETTER ZA
+0A911	KAYAH LI LETTER NYA
+0A912	KAYAH LI LETTER TA
+0A913	KAYAH LI LETTER HTA
+0A914	KAYAH LI LETTER NA
+0A915	KAYAH LI LETTER PA
+0A916	KAYAH LI LETTER PHA
+0A917	KAYAH LI LETTER MA
+0A918	KAYAH LI LETTER DA
+0A919	KAYAH LI LETTER BA
+0A91A	KAYAH LI LETTER RA
+0A91B	KAYAH LI LETTER YA
+0A91C	KAYAH LI LETTER LA
+0A91D	KAYAH LI LETTER WA
+0A91E	KAYAH LI LETTER THA
+0A91F	KAYAH LI LETTER HA
+0A920	KAYAH LI LETTER VA
+0A921	KAYAH LI LETTER CA
+0A922	KAYAH LI LETTER A
+0A923	KAYAH LI LETTER OE
+0A924	KAYAH LI LETTER I
+0A925	KAYAH LI LETTER OO
+0A926	KAYAH LI VOWEL UE
+0A927	KAYAH LI VOWEL E
+0A928	KAYAH LI VOWEL U
+0A929	KAYAH LI VOWEL EE
+0A92A	KAYAH LI VOWEL O
+0A92B	KAYAH LI TONE PLOPHU
+0A92C	KAYAH LI TONE CALYA
+0A92D	KAYAH LI TONE CALYA PLOPHU
+0A92E	KAYAH LI SIGN CWI
+0A92F	KAYAH LI SIGN SHYA
+0A930	REJANG LETTER KA
+0A931	REJANG LETTER GA
+0A932	REJANG LETTER NGA
+0A933	REJANG LETTER TA
+0A934	REJANG LETTER DA
+0A935	REJANG LETTER NA
+0A936	REJANG LETTER PA
+0A937	REJANG LETTER BA
+0A938	REJANG LETTER MA
+0A939	REJANG LETTER CA
+0A93A	REJANG LETTER JA
+0A93B	REJANG LETTER NYA
+0A93C	REJANG LETTER SA
+0A93D	REJANG LETTER RA
+0A93E	REJANG LETTER LA
+0A93F	REJANG LETTER YA
+0A940	REJANG LETTER WA
+0A941	REJANG LETTER HA
+0A942	REJANG LETTER MBA
+0A943	REJANG LETTER NGGA
+0A944	REJANG LETTER NDA
+0A945	REJANG LETTER NYJA
+0A946	REJANG LETTER A
+0A947	REJANG VOWEL SIGN I
+0A948	REJANG VOWEL SIGN U
+0A949	REJANG VOWEL SIGN E
+0A94A	REJANG VOWEL SIGN AI
+0A94B	REJANG VOWEL SIGN O
+0A94C	REJANG VOWEL SIGN AU
+0A94D	REJANG VOWEL SIGN EU
+0A94E	REJANG VOWEL SIGN EA
+0A94F	REJANG CONSONANT SIGN NG
+0A950	REJANG CONSONANT SIGN N
+0A951	REJANG CONSONANT SIGN R
+0A952	REJANG CONSONANT SIGN H
+0A953	REJANG VIRAMA
+0A95F	REJANG SECTION MARK
+0A960	HANGUL CHOSEONG TIKEUT-MIEUM
+0A961	HANGUL CHOSEONG TIKEUT-PIEUP
+0A962	HANGUL CHOSEONG TIKEUT-SIOS
+0A963	HANGUL CHOSEONG TIKEUT-CIEUC
+0A964	HANGUL CHOSEONG RIEUL-KIYEOK
+0A965	HANGUL CHOSEONG RIEUL-SSANGKIYEOK
+0A966	HANGUL CHOSEONG RIEUL-TIKEUT
+0A967	HANGUL CHOSEONG RIEUL-SSANGTIKEUT
+0A968	HANGUL CHOSEONG RIEUL-MIEUM
+0A969	HANGUL CHOSEONG RIEUL-PIEUP
+0A96A	HANGUL CHOSEONG RIEUL-SSANGPIEUP
+0A96B	HANGUL CHOSEONG RIEUL-KAPYEOUNPIEUP
+0A96C	HANGUL CHOSEONG RIEUL-SIOS
+0A96D	HANGUL CHOSEONG RIEUL-CIEUC
+0A96E	HANGUL CHOSEONG RIEUL-KHIEUKH
+0A96F	HANGUL CHOSEONG MIEUM-KIYEOK
+0A970	HANGUL CHOSEONG MIEUM-TIKEUT
+0A971	HANGUL CHOSEONG MIEUM-SIOS
+0A972	HANGUL CHOSEONG PIEUP-SIOS-THIEUTH
+0A973	HANGUL CHOSEONG PIEUP-KHIEUKH
+0A974	HANGUL CHOSEONG PIEUP-HIEUH
+0A975	HANGUL CHOSEONG SSANGSIOS-PIEUP
+0A976	HANGUL CHOSEONG IEUNG-RIEUL
+0A977	HANGUL CHOSEONG IEUNG-HIEUH
+0A978	HANGUL CHOSEONG SSANGCIEUC-HIEUH
+0A979	HANGUL CHOSEONG SSANGTHIEUTH
+0A97A	HANGUL CHOSEONG PHIEUPH-HIEUH
+0A97B	HANGUL CHOSEONG HIEUH-SIOS
+0A97C	HANGUL CHOSEONG SSANGYEORINHIEUH
+0A980	JAVANESE SIGN PANYANGGA
+0A981	JAVANESE SIGN CECAK
+0A982	JAVANESE SIGN LAYAR
+0A983	JAVANESE SIGN WIGNYAN
+0A984	JAVANESE LETTER A
+0A985	JAVANESE LETTER I KAWI
+0A986	JAVANESE LETTER I
+0A987	JAVANESE LETTER II
+0A988	JAVANESE LETTER U
+0A989	JAVANESE LETTER PA CEREK
+0A98A	JAVANESE LETTER NGA LELET
+0A98B	JAVANESE LETTER NGA LELET RASWADI
+0A98C	JAVANESE LETTER E
+0A98D	JAVANESE LETTER AI
+0A98E	JAVANESE LETTER O
+0A98F	JAVANESE LETTER KA
+0A990	JAVANESE LETTER KA SASAK
+0A991	JAVANESE LETTER KA MURDA
+0A992	JAVANESE LETTER GA
+0A993	JAVANESE LETTER GA MURDA
+0A994	JAVANESE LETTER NGA
+0A995	JAVANESE LETTER CA
+0A996	JAVANESE LETTER CA MURDA
+0A997	JAVANESE LETTER JA
+0A998	JAVANESE LETTER NYA MURDA
+0A999	JAVANESE LETTER JA MAHAPRANA
+0A99A	JAVANESE LETTER NYA
+0A99B	JAVANESE LETTER TTA
+0A99C	JAVANESE LETTER TTA MAHAPRANA
+0A99D	JAVANESE LETTER DDA
+0A99E	JAVANESE LETTER DDA MAHAPRANA
+0A99F	JAVANESE LETTER NA MURDA
+0A9A0	JAVANESE LETTER TA
+0A9A1	JAVANESE LETTER TA MURDA
+0A9A2	JAVANESE LETTER DA
+0A9A3	JAVANESE LETTER DA MAHAPRANA
+0A9A4	JAVANESE LETTER NA
+0A9A5	JAVANESE LETTER PA
+0A9A6	JAVANESE LETTER PA MURDA
+0A9A7	JAVANESE LETTER BA
+0A9A8	JAVANESE LETTER BA MURDA
+0A9A9	JAVANESE LETTER MA
+0A9AA	JAVANESE LETTER YA
+0A9AB	JAVANESE LETTER RA
+0A9AC	JAVANESE LETTER RA AGUNG
+0A9AD	JAVANESE LETTER LA
+0A9AE	JAVANESE LETTER WA
+0A9AF	JAVANESE LETTER SA MURDA
+0A9B0	JAVANESE LETTER SA MAHAPRANA
+0A9B1	JAVANESE LETTER SA
+0A9B2	JAVANESE LETTER HA
+0A9B3	JAVANESE SIGN CECAK TELU
+0A9B4	JAVANESE VOWEL SIGN TARUNG
+0A9B5	JAVANESE VOWEL SIGN TOLONG
+0A9B6	JAVANESE VOWEL SIGN WULU
+0A9B7	JAVANESE VOWEL SIGN WULU MELIK
+0A9B8	JAVANESE VOWEL SIGN SUKU
+0A9B9	JAVANESE VOWEL SIGN SUKU MENDUT
+0A9BA	JAVANESE VOWEL SIGN TALING
+0A9BB	JAVANESE VOWEL SIGN DIRGA MURE
+0A9BC	JAVANESE VOWEL SIGN PEPET
+0A9BD	JAVANESE CONSONANT SIGN KERET
+0A9BE	JAVANESE CONSONANT SIGN PENGKAL
+0A9BF	JAVANESE CONSONANT SIGN CAKRA
+0A9C0	JAVANESE PANGKON
+0A9C1	JAVANESE LEFT RERENGGAN
+0A9C2	JAVANESE RIGHT RERENGGAN
+0A9C3	JAVANESE PADA ANDAP
+0A9C4	JAVANESE PADA MADYA
+0A9C5	JAVANESE PADA LUHUR
+0A9C6	JAVANESE PADA WINDU
+0A9C7	JAVANESE PADA PANGKAT
+0A9C8	JAVANESE PADA LINGSA
+0A9C9	JAVANESE PADA LUNGSI
+0A9CA	JAVANESE PADA ADEG
+0A9CB	JAVANESE PADA ADEG ADEG
+0A9CC	JAVANESE PADA PISELEH
+0A9CD	JAVANESE TURNED PADA PISELEH
+0A9CF	JAVANESE PANGRANGKEP
+0A9D0	JAVANESE DIGIT ZERO
+0A9D1	JAVANESE DIGIT ONE
+0A9D2	JAVANESE DIGIT TWO
+0A9D3	JAVANESE DIGIT THREE
+0A9D4	JAVANESE DIGIT FOUR
+0A9D5	JAVANESE DIGIT FIVE
+0A9D6	JAVANESE DIGIT SIX
+0A9D7	JAVANESE DIGIT SEVEN
+0A9D8	JAVANESE DIGIT EIGHT
+0A9D9	JAVANESE DIGIT NINE
+0A9DE	JAVANESE PADA TIRTA TUMETES
+0A9DF	JAVANESE PADA ISEN-ISEN
+0A9E0	MYANMAR LETTER SHAN GHA
+0A9E1	MYANMAR LETTER SHAN CHA
+0A9E2	MYANMAR LETTER SHAN JHA
+0A9E3	MYANMAR LETTER SHAN NNA
+0A9E4	MYANMAR LETTER SHAN BHA
+0A9E5	MYANMAR SIGN SHAN SAW
+0A9E6	MYANMAR MODIFIER LETTER SHAN REDUPLICATION
+0A9E7	MYANMAR LETTER TAI LAING NYA
+0A9E8	MYANMAR LETTER TAI LAING FA
+0A9E9	MYANMAR LETTER TAI LAING GA
+0A9EA	MYANMAR LETTER TAI LAING GHA
+0A9EB	MYANMAR LETTER TAI LAING JA
+0A9EC	MYANMAR LETTER TAI LAING JHA
+0A9ED	MYANMAR LETTER TAI LAING DDA
+0A9EE	MYANMAR LETTER TAI LAING DDHA
+0A9EF	MYANMAR LETTER TAI LAING NNA
+0A9F0	MYANMAR TAI LAING DIGIT ZERO
+0A9F1	MYANMAR TAI LAING DIGIT ONE
+0A9F2	MYANMAR TAI LAING DIGIT TWO
+0A9F3	MYANMAR TAI LAING DIGIT THREE
+0A9F4	MYANMAR TAI LAING DIGIT FOUR
+0A9F5	MYANMAR TAI LAING DIGIT FIVE
+0A9F6	MYANMAR TAI LAING DIGIT SIX
+0A9F7	MYANMAR TAI LAING DIGIT SEVEN
+0A9F8	MYANMAR TAI LAING DIGIT EIGHT
+0A9F9	MYANMAR TAI LAING DIGIT NINE
+0A9FA	MYANMAR LETTER TAI LAING LLA
+0A9FB	MYANMAR LETTER TAI LAING DA
+0A9FC	MYANMAR LETTER TAI LAING DHA
+0A9FD	MYANMAR LETTER TAI LAING BA
+0A9FE	MYANMAR LETTER TAI LAING BHA
+0AA00	CHAM LETTER A
+0AA01	CHAM LETTER I
+0AA02	CHAM LETTER U
+0AA03	CHAM LETTER E
+0AA04	CHAM LETTER AI
+0AA05	CHAM LETTER O
+0AA06	CHAM LETTER KA
+0AA07	CHAM LETTER KHA
+0AA08	CHAM LETTER GA
+0AA09	CHAM LETTER GHA
+0AA0A	CHAM LETTER NGUE
+0AA0B	CHAM LETTER NGA
+0AA0C	CHAM LETTER CHA
+0AA0D	CHAM LETTER CHHA
+0AA0E	CHAM LETTER JA
+0AA0F	CHAM LETTER JHA
+0AA10	CHAM LETTER NHUE
+0AA11	CHAM LETTER NHA
+0AA12	CHAM LETTER NHJA
+0AA13	CHAM LETTER TA
+0AA14	CHAM LETTER THA
+0AA15	CHAM LETTER DA
+0AA16	CHAM LETTER DHA
+0AA17	CHAM LETTER NUE
+0AA18	CHAM LETTER NA
+0AA19	CHAM LETTER DDA
+0AA1A	CHAM LETTER PA
+0AA1B	CHAM LETTER PPA
+0AA1C	CHAM LETTER PHA
+0AA1D	CHAM LETTER BA
+0AA1E	CHAM LETTER BHA
+0AA1F	CHAM LETTER MUE
+0AA20	CHAM LETTER MA
+0AA21	CHAM LETTER BBA
+0AA22	CHAM LETTER YA
+0AA23	CHAM LETTER RA
+0AA24	CHAM LETTER LA
+0AA25	CHAM LETTER VA
+0AA26	CHAM LETTER SSA
+0AA27	CHAM LETTER SA
+0AA28	CHAM LETTER HA
+0AA29	CHAM VOWEL SIGN AA
+0AA2A	CHAM VOWEL SIGN I
+0AA2B	CHAM VOWEL SIGN II
+0AA2C	CHAM VOWEL SIGN EI
+0AA2D	CHAM VOWEL SIGN U
+0AA2E	CHAM VOWEL SIGN OE
+0AA2F	CHAM VOWEL SIGN O
+0AA30	CHAM VOWEL SIGN AI
+0AA31	CHAM VOWEL SIGN AU
+0AA32	CHAM VOWEL SIGN UE
+0AA33	CHAM CONSONANT SIGN YA
+0AA34	CHAM CONSONANT SIGN RA
+0AA35	CHAM CONSONANT SIGN LA
+0AA36	CHAM CONSONANT SIGN WA
+0AA40	CHAM LETTER FINAL K
+0AA41	CHAM LETTER FINAL G
+0AA42	CHAM LETTER FINAL NG
+0AA43	CHAM CONSONANT SIGN FINAL NG
+0AA44	CHAM LETTER FINAL CH
+0AA45	CHAM LETTER FINAL T
+0AA46	CHAM LETTER FINAL N
+0AA47	CHAM LETTER FINAL P
+0AA48	CHAM LETTER FINAL Y
+0AA49	CHAM LETTER FINAL R
+0AA4A	CHAM LETTER FINAL L
+0AA4B	CHAM LETTER FINAL SS
+0AA4C	CHAM CONSONANT SIGN FINAL M
+0AA4D	CHAM CONSONANT SIGN FINAL H
+0AA50	CHAM DIGIT ZERO
+0AA51	CHAM DIGIT ONE
+0AA52	CHAM DIGIT TWO
+0AA53	CHAM DIGIT THREE
+0AA54	CHAM DIGIT FOUR
+0AA55	CHAM DIGIT FIVE
+0AA56	CHAM DIGIT SIX
+0AA57	CHAM DIGIT SEVEN
+0AA58	CHAM DIGIT EIGHT
+0AA59	CHAM DIGIT NINE
+0AA5C	CHAM PUNCTUATION SPIRAL
+0AA5D	CHAM PUNCTUATION DANDA
+0AA5E	CHAM PUNCTUATION DOUBLE DANDA
+0AA5F	CHAM PUNCTUATION TRIPLE DANDA
+0AA60	MYANMAR LETTER KHAMTI GA
+0AA61	MYANMAR LETTER KHAMTI CA
+0AA62	MYANMAR LETTER KHAMTI CHA
+0AA63	MYANMAR LETTER KHAMTI JA
+0AA64	MYANMAR LETTER KHAMTI JHA
+0AA65	MYANMAR LETTER KHAMTI NYA
+0AA66	MYANMAR LETTER KHAMTI TTA
+0AA67	MYANMAR LETTER KHAMTI TTHA
+0AA68	MYANMAR LETTER KHAMTI DDA
+0AA69	MYANMAR LETTER KHAMTI DDHA
+0AA6A	MYANMAR LETTER KHAMTI DHA
+0AA6B	MYANMAR LETTER KHAMTI NA
+0AA6C	MYANMAR LETTER KHAMTI SA
+0AA6D	MYANMAR LETTER KHAMTI HA
+0AA6E	MYANMAR LETTER KHAMTI HHA
+0AA6F	MYANMAR LETTER KHAMTI FA
+0AA70	MYANMAR MODIFIER LETTER KHAMTI REDUPLICATION
+0AA71	MYANMAR LETTER KHAMTI XA
+0AA72	MYANMAR LETTER KHAMTI ZA
+0AA73	MYANMAR LETTER KHAMTI RA
+0AA74	MYANMAR LOGOGRAM KHAMTI OAY
+0AA75	MYANMAR LOGOGRAM KHAMTI QN
+0AA76	MYANMAR LOGOGRAM KHAMTI HM
+0AA77	MYANMAR SYMBOL AITON EXCLAMATION
+0AA78	MYANMAR SYMBOL AITON ONE
+0AA79	MYANMAR SYMBOL AITON TWO
+0AA7A	MYANMAR LETTER AITON RA
+0AA7B	MYANMAR SIGN PAO KAREN TONE
+0AA7C	MYANMAR SIGN TAI LAING TONE-2
+0AA7D	MYANMAR SIGN TAI LAING TONE-5
+0AA7E	MYANMAR LETTER SHWE PALAUNG CHA
+0AA7F	MYANMAR LETTER SHWE PALAUNG SHA
+0AA80	TAI VIET LETTER LOW KO
+0AA81	TAI VIET LETTER HIGH KO
+0AA82	TAI VIET LETTER LOW KHO
+0AA83	TAI VIET LETTER HIGH KHO
+0AA84	TAI VIET LETTER LOW KHHO
+0AA85	TAI VIET LETTER HIGH KHHO
+0AA86	TAI VIET LETTER LOW GO
+0AA87	TAI VIET LETTER HIGH GO
+0AA88	TAI VIET LETTER LOW NGO
+0AA89	TAI VIET LETTER HIGH NGO
+0AA8A	TAI VIET LETTER LOW CO
+0AA8B	TAI VIET LETTER HIGH CO
+0AA8C	TAI VIET LETTER LOW CHO
+0AA8D	TAI VIET LETTER HIGH CHO
+0AA8E	TAI VIET LETTER LOW SO
+0AA8F	TAI VIET LETTER HIGH SO
+0AA90	TAI VIET LETTER LOW NYO
+0AA91	TAI VIET LETTER HIGH NYO
+0AA92	TAI VIET LETTER LOW DO
+0AA93	TAI VIET LETTER HIGH DO
+0AA94	TAI VIET LETTER LOW TO
+0AA95	TAI VIET LETTER HIGH TO
+0AA96	TAI VIET LETTER LOW THO
+0AA97	TAI VIET LETTER HIGH THO
+0AA98	TAI VIET LETTER LOW NO
+0AA99	TAI VIET LETTER HIGH NO
+0AA9A	TAI VIET LETTER LOW BO
+0AA9B	TAI VIET LETTER HIGH BO
+0AA9C	TAI VIET LETTER LOW PO
+0AA9D	TAI VIET LETTER HIGH PO
+0AA9E	TAI VIET LETTER LOW PHO
+0AA9F	TAI VIET LETTER HIGH PHO
+0AAA0	TAI VIET LETTER LOW FO
+0AAA1	TAI VIET LETTER HIGH FO
+0AAA2	TAI VIET LETTER LOW MO
+0AAA3	TAI VIET LETTER HIGH MO
+0AAA4	TAI VIET LETTER LOW YO
+0AAA5	TAI VIET LETTER HIGH YO
+0AAA6	TAI VIET LETTER LOW RO
+0AAA7	TAI VIET LETTER HIGH RO
+0AAA8	TAI VIET LETTER LOW LO
+0AAA9	TAI VIET LETTER HIGH LO
+0AAAA	TAI VIET LETTER LOW VO
+0AAAB	TAI VIET LETTER HIGH VO
+0AAAC	TAI VIET LETTER LOW HO
+0AAAD	TAI VIET LETTER HIGH HO
+0AAAE	TAI VIET LETTER LOW O
+0AAAF	TAI VIET LETTER HIGH O
+0AAB0	TAI VIET MAI KANG
+0AAB1	TAI VIET VOWEL AA
+0AAB2	TAI VIET VOWEL I
+0AAB3	TAI VIET VOWEL UE
+0AAB4	TAI VIET VOWEL U
+0AAB5	TAI VIET VOWEL E
+0AAB6	TAI VIET VOWEL O
+0AAB7	TAI VIET MAI KHIT
+0AAB8	TAI VIET VOWEL IA
+0AAB9	TAI VIET VOWEL UEA
+0AABA	TAI VIET VOWEL UA
+0AABB	TAI VIET VOWEL AUE
+0AABC	TAI VIET VOWEL AY
+0AABD	TAI VIET VOWEL AN
+0AABE	TAI VIET VOWEL AM
+0AABF	TAI VIET TONE MAI EK
+0AAC0	TAI VIET TONE MAI NUENG
+0AAC1	TAI VIET TONE MAI THO
+0AAC2	TAI VIET TONE MAI SONG
+0AADB	TAI VIET SYMBOL KON
+0AADC	TAI VIET SYMBOL NUENG
+0AADD	TAI VIET SYMBOL SAM
+0AADE	TAI VIET SYMBOL HO HOI
+0AADF	TAI VIET SYMBOL KOI KOI
+0AAE0	MEETEI MAYEK LETTER E
+0AAE1	MEETEI MAYEK LETTER O
+0AAE2	MEETEI MAYEK LETTER CHA
+0AAE3	MEETEI MAYEK LETTER NYA
+0AAE4	MEETEI MAYEK LETTER TTA
+0AAE5	MEETEI MAYEK LETTER TTHA
+0AAE6	MEETEI MAYEK LETTER DDA
+0AAE7	MEETEI MAYEK LETTER DDHA
+0AAE8	MEETEI MAYEK LETTER NNA
+0AAE9	MEETEI MAYEK LETTER SHA
+0AAEA	MEETEI MAYEK LETTER SSA
+0AAEB	MEETEI MAYEK VOWEL SIGN II
+0AAEC	MEETEI MAYEK VOWEL SIGN UU
+0AAED	MEETEI MAYEK VOWEL SIGN AAI
+0AAEE	MEETEI MAYEK VOWEL SIGN AU
+0AAEF	MEETEI MAYEK VOWEL SIGN AAU
+0AAF0	MEETEI MAYEK CHEIKHAN
+0AAF1	MEETEI MAYEK AHANG KHUDAM
+0AAF2	MEETEI MAYEK ANJI
+0AAF3	MEETEI MAYEK SYLLABLE REPETITION MARK
+0AAF4	MEETEI MAYEK WORD REPETITION MARK
+0AAF5	MEETEI MAYEK VOWEL SIGN VISARGA
+0AAF6	MEETEI MAYEK VIRAMA
+0AB01	ETHIOPIC SYLLABLE TTHU
+0AB02	ETHIOPIC SYLLABLE TTHI
+0AB03	ETHIOPIC SYLLABLE TTHAA
+0AB04	ETHIOPIC SYLLABLE TTHEE
+0AB05	ETHIOPIC SYLLABLE TTHE
+0AB06	ETHIOPIC SYLLABLE TTHO
+0AB09	ETHIOPIC SYLLABLE DDHU
+0AB0A	ETHIOPIC SYLLABLE DDHI
+0AB0B	ETHIOPIC SYLLABLE DDHAA
+0AB0C	ETHIOPIC SYLLABLE DDHEE
+0AB0D	ETHIOPIC SYLLABLE DDHE
+0AB0E	ETHIOPIC SYLLABLE DDHO
+0AB11	ETHIOPIC SYLLABLE DZU
+0AB12	ETHIOPIC SYLLABLE DZI
+0AB13	ETHIOPIC SYLLABLE DZAA
+0AB14	ETHIOPIC SYLLABLE DZEE
+0AB15	ETHIOPIC SYLLABLE DZE
+0AB16	ETHIOPIC SYLLABLE DZO
+0AB20	ETHIOPIC SYLLABLE CCHHA
+0AB21	ETHIOPIC SYLLABLE CCHHU
+0AB22	ETHIOPIC SYLLABLE CCHHI
+0AB23	ETHIOPIC SYLLABLE CCHHAA
+0AB24	ETHIOPIC SYLLABLE CCHHEE
+0AB25	ETHIOPIC SYLLABLE CCHHE
+0AB26	ETHIOPIC SYLLABLE CCHHO
+0AB28	ETHIOPIC SYLLABLE BBA
+0AB29	ETHIOPIC SYLLABLE BBU
+0AB2A	ETHIOPIC SYLLABLE BBI
+0AB2B	ETHIOPIC SYLLABLE BBAA
+0AB2C	ETHIOPIC SYLLABLE BBEE
+0AB2D	ETHIOPIC SYLLABLE BBE
+0AB2E	ETHIOPIC SYLLABLE BBO
+0AB30	LATIN SMALL LETTER BARRED ALPHA
+0AB31	LATIN SMALL LETTER A REVERSED-SCHWA
+0AB32	LATIN SMALL LETTER BLACKLETTER E
+0AB33	LATIN SMALL LETTER BARRED E
+0AB34	LATIN SMALL LETTER E WITH FLOURISH
+0AB35	LATIN SMALL LETTER LENIS F
+0AB36	LATIN SMALL LETTER SCRIPT G WITH CROSSED-TAIL
+0AB37	LATIN SMALL LETTER L WITH INVERTED LAZY S
+0AB38	LATIN SMALL LETTER L WITH DOUBLE MIDDLE TILDE
+0AB39	LATIN SMALL LETTER L WITH MIDDLE RING
+0AB3A	LATIN SMALL LETTER M WITH CROSSED-TAIL
+0AB3B	LATIN SMALL LETTER N WITH CROSSED-TAIL
+0AB3C	LATIN SMALL LETTER ENG WITH CROSSED-TAIL
+0AB3D	LATIN SMALL LETTER BLACKLETTER O
+0AB3E	LATIN SMALL LETTER BLACKLETTER O WITH STROKE
+0AB3F	LATIN SMALL LETTER OPEN O WITH STROKE
+0AB40	LATIN SMALL LETTER INVERTED OE
+0AB41	LATIN SMALL LETTER TURNED OE WITH STROKE
+0AB42	LATIN SMALL LETTER TURNED OE WITH HORIZONTAL STROKE
+0AB43	LATIN SMALL LETTER TURNED O OPEN-O
+0AB44	LATIN SMALL LETTER TURNED O OPEN-O WITH STROKE
+0AB45	LATIN SMALL LETTER STIRRUP R
+0AB46	LATIN LETTER SMALL CAPITAL R WITH RIGHT LEG
+0AB47	LATIN SMALL LETTER R WITHOUT HANDLE
+0AB48	LATIN SMALL LETTER DOUBLE R
+0AB49	LATIN SMALL LETTER R WITH CROSSED-TAIL
+0AB4A	LATIN SMALL LETTER DOUBLE R WITH CROSSED-TAIL
+0AB4B	LATIN SMALL LETTER SCRIPT R
+0AB4C	LATIN SMALL LETTER SCRIPT R WITH RING
+0AB4D	LATIN SMALL LETTER BASELINE ESH
+0AB4E	LATIN SMALL LETTER U WITH SHORT RIGHT LEG
+0AB4F	LATIN SMALL LETTER U BAR WITH SHORT RIGHT LEG
+0AB50	LATIN SMALL LETTER UI
+0AB51	LATIN SMALL LETTER TURNED UI
+0AB52	LATIN SMALL LETTER U WITH LEFT HOOK
+0AB53	LATIN SMALL LETTER CHI
+0AB54	LATIN SMALL LETTER CHI WITH LOW RIGHT RING
+0AB55	LATIN SMALL LETTER CHI WITH LOW LEFT SERIF
+0AB56	LATIN SMALL LETTER X WITH LOW RIGHT RING
+0AB57	LATIN SMALL LETTER X WITH LONG LEFT LEG
+0AB58	LATIN SMALL LETTER X WITH LONG LEFT LEG AND LOW RIGHT RING
+0AB59	LATIN SMALL LETTER X WITH LONG LEFT LEG WITH SERIF
+0AB5A	LATIN SMALL LETTER Y WITH SHORT RIGHT LEG
+0AB5B	MODIFIER BREVE WITH INVERTED BREVE
+0AB5C	MODIFIER LETTER SMALL HENG
+0AB5D	MODIFIER LETTER SMALL L WITH INVERTED LAZY S
+0AB5E	MODIFIER LETTER SMALL L WITH MIDDLE TILDE
+0AB5F	MODIFIER LETTER SMALL U WITH LEFT HOOK
+0AB60	LATIN SMALL LETTER SAKHA YAT
+0AB61	LATIN SMALL LETTER IOTIFIED E
+0AB62	LATIN SMALL LETTER OPEN OE
+0AB63	LATIN SMALL LETTER UO
+0AB64	LATIN SMALL LETTER INVERTED ALPHA
+0AB65	GREEK LETTER SMALL CAPITAL OMEGA
+0AB70	CHEROKEE SMALL LETTER A
+0AB71	CHEROKEE SMALL LETTER E
+0AB72	CHEROKEE SMALL LETTER I
+0AB73	CHEROKEE SMALL LETTER O
+0AB74	CHEROKEE SMALL LETTER U
+0AB75	CHEROKEE SMALL LETTER V
+0AB76	CHEROKEE SMALL LETTER GA
+0AB77	CHEROKEE SMALL LETTER KA
+0AB78	CHEROKEE SMALL LETTER GE
+0AB79	CHEROKEE SMALL LETTER GI
+0AB7A	CHEROKEE SMALL LETTER GO
+0AB7B	CHEROKEE SMALL LETTER GU
+0AB7C	CHEROKEE SMALL LETTER GV
+0AB7D	CHEROKEE SMALL LETTER HA
+0AB7E	CHEROKEE SMALL LETTER HE
+0AB7F	CHEROKEE SMALL LETTER HI
+0AB80	CHEROKEE SMALL LETTER HO
+0AB81	CHEROKEE SMALL LETTER HU
+0AB82	CHEROKEE SMALL LETTER HV
+0AB83	CHEROKEE SMALL LETTER LA
+0AB84	CHEROKEE SMALL LETTER LE
+0AB85	CHEROKEE SMALL LETTER LI
+0AB86	CHEROKEE SMALL LETTER LO
+0AB87	CHEROKEE SMALL LETTER LU
+0AB88	CHEROKEE SMALL LETTER LV
+0AB89	CHEROKEE SMALL LETTER MA
+0AB8A	CHEROKEE SMALL LETTER ME
+0AB8B	CHEROKEE SMALL LETTER MI
+0AB8C	CHEROKEE SMALL LETTER MO
+0AB8D	CHEROKEE SMALL LETTER MU
+0AB8E	CHEROKEE SMALL LETTER NA
+0AB8F	CHEROKEE SMALL LETTER HNA
+0AB90	CHEROKEE SMALL LETTER NAH
+0AB91	CHEROKEE SMALL LETTER NE
+0AB92	CHEROKEE SMALL LETTER NI
+0AB93	CHEROKEE SMALL LETTER NO
+0AB94	CHEROKEE SMALL LETTER NU
+0AB95	CHEROKEE SMALL LETTER NV
+0AB96	CHEROKEE SMALL LETTER QUA
+0AB97	CHEROKEE SMALL LETTER QUE
+0AB98	CHEROKEE SMALL LETTER QUI
+0AB99	CHEROKEE SMALL LETTER QUO
+0AB9A	CHEROKEE SMALL LETTER QUU
+0AB9B	CHEROKEE SMALL LETTER QUV
+0AB9C	CHEROKEE SMALL LETTER SA
+0AB9D	CHEROKEE SMALL LETTER S
+0AB9E	CHEROKEE SMALL LETTER SE
+0AB9F	CHEROKEE SMALL LETTER SI
+0ABA0	CHEROKEE SMALL LETTER SO
+0ABA1	CHEROKEE SMALL LETTER SU
+0ABA2	CHEROKEE SMALL LETTER SV
+0ABA3	CHEROKEE SMALL LETTER DA
+0ABA4	CHEROKEE SMALL LETTER TA
+0ABA5	CHEROKEE SMALL LETTER DE
+0ABA6	CHEROKEE SMALL LETTER TE
+0ABA7	CHEROKEE SMALL LETTER DI
+0ABA8	CHEROKEE SMALL LETTER TI
+0ABA9	CHEROKEE SMALL LETTER DO
+0ABAA	CHEROKEE SMALL LETTER DU
+0ABAB	CHEROKEE SMALL LETTER DV
+0ABAC	CHEROKEE SMALL LETTER DLA
+0ABAD	CHEROKEE SMALL LETTER TLA
+0ABAE	CHEROKEE SMALL LETTER TLE
+0ABAF	CHEROKEE SMALL LETTER TLI
+0ABB0	CHEROKEE SMALL LETTER TLO
+0ABB1	CHEROKEE SMALL LETTER TLU
+0ABB2	CHEROKEE SMALL LETTER TLV
+0ABB3	CHEROKEE SMALL LETTER TSA
+0ABB4	CHEROKEE SMALL LETTER TSE
+0ABB5	CHEROKEE SMALL LETTER TSI
+0ABB6	CHEROKEE SMALL LETTER TSO
+0ABB7	CHEROKEE SMALL LETTER TSU
+0ABB8	CHEROKEE SMALL LETTER TSV
+0ABB9	CHEROKEE SMALL LETTER WA
+0ABBA	CHEROKEE SMALL LETTER WE
+0ABBB	CHEROKEE SMALL LETTER WI
+0ABBC	CHEROKEE SMALL LETTER WO
+0ABBD	CHEROKEE SMALL LETTER WU
+0ABBE	CHEROKEE SMALL LETTER WV
+0ABBF	CHEROKEE SMALL LETTER YA
+0ABC0	MEETEI MAYEK LETTER KOK
+0ABC1	MEETEI MAYEK LETTER SAM
+0ABC2	MEETEI MAYEK LETTER LAI
+0ABC3	MEETEI MAYEK LETTER MIT
+0ABC4	MEETEI MAYEK LETTER PA
+0ABC5	MEETEI MAYEK LETTER NA
+0ABC6	MEETEI MAYEK LETTER CHIL
+0ABC7	MEETEI MAYEK LETTER TIL
+0ABC8	MEETEI MAYEK LETTER KHOU
+0ABC9	MEETEI MAYEK LETTER NGOU
+0ABCA	MEETEI MAYEK LETTER THOU
+0ABCB	MEETEI MAYEK LETTER WAI
+0ABCC	MEETEI MAYEK LETTER YANG
+0ABCD	MEETEI MAYEK LETTER HUK
+0ABCE	MEETEI MAYEK LETTER UN
+0ABCF	MEETEI MAYEK LETTER I
+0ABD0	MEETEI MAYEK LETTER PHAM
+0ABD1	MEETEI MAYEK LETTER ATIYA
+0ABD2	MEETEI MAYEK LETTER GOK
+0ABD3	MEETEI MAYEK LETTER JHAM
+0ABD4	MEETEI MAYEK LETTER RAI
+0ABD5	MEETEI MAYEK LETTER BA
+0ABD6	MEETEI MAYEK LETTER JIL
+0ABD7	MEETEI MAYEK LETTER DIL
+0ABD8	MEETEI MAYEK LETTER GHOU
+0ABD9	MEETEI MAYEK LETTER DHOU
+0ABDA	MEETEI MAYEK LETTER BHAM
+0ABDB	MEETEI MAYEK LETTER KOK LONSUM
+0ABDC	MEETEI MAYEK LETTER LAI LONSUM
+0ABDD	MEETEI MAYEK LETTER MIT LONSUM
+0ABDE	MEETEI MAYEK LETTER PA LONSUM
+0ABDF	MEETEI MAYEK LETTER NA LONSUM
+0ABE0	MEETEI MAYEK LETTER TIL LONSUM
+0ABE1	MEETEI MAYEK LETTER NGOU LONSUM
+0ABE2	MEETEI MAYEK LETTER I LONSUM
+0ABE3	MEETEI MAYEK VOWEL SIGN ONAP
+0ABE4	MEETEI MAYEK VOWEL SIGN INAP
+0ABE5	MEETEI MAYEK VOWEL SIGN ANAP
+0ABE6	MEETEI MAYEK VOWEL SIGN YENAP
+0ABE7	MEETEI MAYEK VOWEL SIGN SOUNAP
+0ABE8	MEETEI MAYEK VOWEL SIGN UNAP
+0ABE9	MEETEI MAYEK VOWEL SIGN CHEINAP
+0ABEA	MEETEI MAYEK VOWEL SIGN NUNG
+0ABEB	MEETEI MAYEK CHEIKHEI
+0ABEC	MEETEI MAYEK LUM IYEK
+0ABED	MEETEI MAYEK APUN IYEK
+0ABF0	MEETEI MAYEK DIGIT ZERO
+0ABF1	MEETEI MAYEK DIGIT ONE
+0ABF2	MEETEI MAYEK DIGIT TWO
+0ABF3	MEETEI MAYEK DIGIT THREE
+0ABF4	MEETEI MAYEK DIGIT FOUR
+0ABF5	MEETEI MAYEK DIGIT FIVE
+0ABF6	MEETEI MAYEK DIGIT SIX
+0ABF7	MEETEI MAYEK DIGIT SEVEN
+0ABF8	MEETEI MAYEK DIGIT EIGHT
+0ABF9	MEETEI MAYEK DIGIT NINE
+0D7B0	HANGUL JUNGSEONG O-YEO
+0D7B1	HANGUL JUNGSEONG O-O-I
+0D7B2	HANGUL JUNGSEONG YO-A
+0D7B3	HANGUL JUNGSEONG YO-AE
+0D7B4	HANGUL JUNGSEONG YO-EO
+0D7B5	HANGUL JUNGSEONG U-YEO
+0D7B6	HANGUL JUNGSEONG U-I-I
+0D7B7	HANGUL JUNGSEONG YU-AE
+0D7B8	HANGUL JUNGSEONG YU-O
+0D7B9	HANGUL JUNGSEONG EU-A
+0D7BA	HANGUL JUNGSEONG EU-EO
+0D7BB	HANGUL JUNGSEONG EU-E
+0D7BC	HANGUL JUNGSEONG EU-O
+0D7BD	HANGUL JUNGSEONG I-YA-O
+0D7BE	HANGUL JUNGSEONG I-YAE
+0D7BF	HANGUL JUNGSEONG I-YEO
+0D7C0	HANGUL JUNGSEONG I-YE
+0D7C1	HANGUL JUNGSEONG I-O-I
+0D7C2	HANGUL JUNGSEONG I-YO
+0D7C3	HANGUL JUNGSEONG I-YU
+0D7C4	HANGUL JUNGSEONG I-I
+0D7C5	HANGUL JUNGSEONG ARAEA-A
+0D7C6	HANGUL JUNGSEONG ARAEA-E
+0D7CB	HANGUL JONGSEONG NIEUN-RIEUL
+0D7CC	HANGUL JONGSEONG NIEUN-CHIEUCH
+0D7CD	HANGUL JONGSEONG SSANGTIKEUT
+0D7CE	HANGUL JONGSEONG SSANGTIKEUT-PIEUP
+0D7CF	HANGUL JONGSEONG TIKEUT-PIEUP
+0D7D0	HANGUL JONGSEONG TIKEUT-SIOS
+0D7D1	HANGUL JONGSEONG TIKEUT-SIOS-KIYEOK
+0D7D2	HANGUL JONGSEONG TIKEUT-CIEUC
+0D7D3	HANGUL JONGSEONG TIKEUT-CHIEUCH
+0D7D4	HANGUL JONGSEONG TIKEUT-THIEUTH
+0D7D5	HANGUL JONGSEONG RIEUL-SSANGKIYEOK
+0D7D6	HANGUL JONGSEONG RIEUL-KIYEOK-HIEUH
+0D7D7	HANGUL JONGSEONG SSANGRIEUL-KHIEUKH
+0D7D8	HANGUL JONGSEONG RIEUL-MIEUM-HIEUH
+0D7D9	HANGUL JONGSEONG RIEUL-PIEUP-TIKEUT
+0D7DA	HANGUL JONGSEONG RIEUL-PIEUP-PHIEUPH
+0D7DB	HANGUL JONGSEONG RIEUL-YESIEUNG
+0D7DC	HANGUL JONGSEONG RIEUL-YEORINHIEUH-HIEUH
+0D7DD	HANGUL JONGSEONG KAPYEOUNRIEUL
+0D7DE	HANGUL JONGSEONG MIEUM-NIEUN
+0D7DF	HANGUL JONGSEONG MIEUM-SSANGNIEUN
+0D7E0	HANGUL JONGSEONG SSANGMIEUM
+0D7E1	HANGUL JONGSEONG MIEUM-PIEUP-SIOS
+0D7E2	HANGUL JONGSEONG MIEUM-CIEUC
+0D7E3	HANGUL JONGSEONG PIEUP-TIKEUT
+0D7E4	HANGUL JONGSEONG PIEUP-RIEUL-PHIEUPH
+0D7E5	HANGUL JONGSEONG PIEUP-MIEUM
+0D7E6	HANGUL JONGSEONG SSANGPIEUP
+0D7E7	HANGUL JONGSEONG PIEUP-SIOS-TIKEUT
+0D7E8	HANGUL JONGSEONG PIEUP-CIEUC
+0D7E9	HANGUL JONGSEONG PIEUP-CHIEUCH
+0D7EA	HANGUL JONGSEONG SIOS-MIEUM
+0D7EB	HANGUL JONGSEONG SIOS-KAPYEOUNPIEUP
+0D7EC	HANGUL JONGSEONG SSANGSIOS-KIYEOK
+0D7ED	HANGUL JONGSEONG SSANGSIOS-TIKEUT
+0D7EE	HANGUL JONGSEONG SIOS-PANSIOS
+0D7EF	HANGUL JONGSEONG SIOS-CIEUC
+0D7F0	HANGUL JONGSEONG SIOS-CHIEUCH
+0D7F1	HANGUL JONGSEONG SIOS-THIEUTH
+0D7F2	HANGUL JONGSEONG SIOS-HIEUH
+0D7F3	HANGUL JONGSEONG PANSIOS-PIEUP
+0D7F4	HANGUL JONGSEONG PANSIOS-KAPYEOUNPIEUP
+0D7F5	HANGUL JONGSEONG YESIEUNG-MIEUM
+0D7F6	HANGUL JONGSEONG YESIEUNG-HIEUH
+0D7F7	HANGUL JONGSEONG CIEUC-PIEUP
+0D7F8	HANGUL JONGSEONG CIEUC-SSANGPIEUP
+0D7F9	HANGUL JONGSEONG SSANGCIEUC
+0D7FA	HANGUL JONGSEONG PHIEUPH-SIOS
+0D7FB	HANGUL JONGSEONG PHIEUPH-THIEUTH
+0FB00	LATIN SMALL LIGATURE FF
+0FB01	LATIN SMALL LIGATURE FI
+0FB02	LATIN SMALL LIGATURE FL
+0FB03	LATIN SMALL LIGATURE FFI
+0FB04	LATIN SMALL LIGATURE FFL
+0FB05	LATIN SMALL LIGATURE LONG S T
+0FB06	LATIN SMALL LIGATURE ST
+0FB13	ARMENIAN SMALL LIGATURE MEN NOW
+0FB14	ARMENIAN SMALL LIGATURE MEN ECH
+0FB15	ARMENIAN SMALL LIGATURE MEN INI
+0FB16	ARMENIAN SMALL LIGATURE VEW NOW
+0FB17	ARMENIAN SMALL LIGATURE MEN XEH
+0FB1D	HEBREW LETTER YOD WITH HIRIQ
+0FB1E	HEBREW POINT JUDEO-SPANISH VARIKA
+0FB1F	HEBREW LIGATURE YIDDISH YOD YOD PATAH
+0FB20	HEBREW LETTER ALTERNATIVE AYIN
+0FB21	HEBREW LETTER WIDE ALEF
+0FB22	HEBREW LETTER WIDE DALET
+0FB23	HEBREW LETTER WIDE HE
+0FB24	HEBREW LETTER WIDE KAF
+0FB25	HEBREW LETTER WIDE LAMED
+0FB26	HEBREW LETTER WIDE FINAL MEM
+0FB27	HEBREW LETTER WIDE RESH
+0FB28	HEBREW LETTER WIDE TAV
+0FB29	HEBREW LETTER ALTERNATIVE PLUS SIGN
+0FB2A	HEBREW LETTER SHIN WITH SHIN DOT
+0FB2B	HEBREW LETTER SHIN WITH SIN DOT
+0FB2C	HEBREW LETTER SHIN WITH DAGESH AND SHIN DOT
+0FB2D	HEBREW LETTER SHIN WITH DAGESH AND SIN DOT
+0FB2E	HEBREW LETTER ALEF WITH PATAH
+0FB2F	HEBREW LETTER ALEF WITH QAMATS
+0FB30	HEBREW LETTER ALEF WITH MAPIQ
+0FB31	HEBREW LETTER BET WITH DAGESH
+0FB32	HEBREW LETTER GIMEL WITH DAGESH
+0FB33	HEBREW LETTER DALET WITH DAGESH
+0FB34	HEBREW LETTER HE WITH MAPIQ
+0FB35	HEBREW LETTER VAV WITH DAGESH
+0FB36	HEBREW LETTER ZAYIN WITH DAGESH
+0FB38	HEBREW LETTER TET WITH DAGESH
+0FB39	HEBREW LETTER YOD WITH DAGESH
+0FB3A	HEBREW LETTER FINAL KAF WITH DAGESH
+0FB3B	HEBREW LETTER KAF WITH DAGESH
+0FB3C	HEBREW LETTER LAMED WITH DAGESH
+0FB3E	HEBREW LETTER MEM WITH DAGESH
+0FB40	HEBREW LETTER NUN WITH DAGESH
+0FB41	HEBREW LETTER SAMEKH WITH DAGESH
+0FB43	HEBREW LETTER FINAL PE WITH DAGESH
+0FB44	HEBREW LETTER PE WITH DAGESH
+0FB46	HEBREW LETTER TSADI WITH DAGESH
+0FB47	HEBREW LETTER QOF WITH DAGESH
+0FB48	HEBREW LETTER RESH WITH DAGESH
+0FB49	HEBREW LETTER SHIN WITH DAGESH
+0FB4A	HEBREW LETTER TAV WITH DAGESH
+0FB4B	HEBREW LETTER VAV WITH HOLAM
+0FB4C	HEBREW LETTER BET WITH RAFE
+0FB4D	HEBREW LETTER KAF WITH RAFE
+0FB4E	HEBREW LETTER PE WITH RAFE
+0FB4F	HEBREW LIGATURE ALEF LAMED
+0FB50	ARABIC LETTER ALEF WASLA ISOLATED FORM
+0FB51	ARABIC LETTER ALEF WASLA FINAL FORM
+0FB52	ARABIC LETTER BEEH ISOLATED FORM
+0FB53	ARABIC LETTER BEEH FINAL FORM
+0FB54	ARABIC LETTER BEEH INITIAL FORM
+0FB55	ARABIC LETTER BEEH MEDIAL FORM
+0FB56	ARABIC LETTER PEH ISOLATED FORM
+0FB57	ARABIC LETTER PEH FINAL FORM
+0FB58	ARABIC LETTER PEH INITIAL FORM
+0FB59	ARABIC LETTER PEH MEDIAL FORM
+0FB5A	ARABIC LETTER BEHEH ISOLATED FORM
+0FB5B	ARABIC LETTER BEHEH FINAL FORM
+0FB5C	ARABIC LETTER BEHEH INITIAL FORM
+0FB5D	ARABIC LETTER BEHEH MEDIAL FORM
+0FB5E	ARABIC LETTER TTEHEH ISOLATED FORM
+0FB5F	ARABIC LETTER TTEHEH FINAL FORM
+0FB60	ARABIC LETTER TTEHEH INITIAL FORM
+0FB61	ARABIC LETTER TTEHEH MEDIAL FORM
+0FB62	ARABIC LETTER TEHEH ISOLATED FORM
+0FB63	ARABIC LETTER TEHEH FINAL FORM
+0FB64	ARABIC LETTER TEHEH INITIAL FORM
+0FB65	ARABIC LETTER TEHEH MEDIAL FORM
+0FB66	ARABIC LETTER TTEH ISOLATED FORM
+0FB67	ARABIC LETTER TTEH FINAL FORM
+0FB68	ARABIC LETTER TTEH INITIAL FORM
+0FB69	ARABIC LETTER TTEH MEDIAL FORM
+0FB6A	ARABIC LETTER VEH ISOLATED FORM
+0FB6B	ARABIC LETTER VEH FINAL FORM
+0FB6C	ARABIC LETTER VEH INITIAL FORM
+0FB6D	ARABIC LETTER VEH MEDIAL FORM
+0FB6E	ARABIC LETTER PEHEH ISOLATED FORM
+0FB6F	ARABIC LETTER PEHEH FINAL FORM
+0FB70	ARABIC LETTER PEHEH INITIAL FORM
+0FB71	ARABIC LETTER PEHEH MEDIAL FORM
+0FB72	ARABIC LETTER DYEH ISOLATED FORM
+0FB73	ARABIC LETTER DYEH FINAL FORM
+0FB74	ARABIC LETTER DYEH INITIAL FORM
+0FB75	ARABIC LETTER DYEH MEDIAL FORM
+0FB76	ARABIC LETTER NYEH ISOLATED FORM
+0FB77	ARABIC LETTER NYEH FINAL FORM
+0FB78	ARABIC LETTER NYEH INITIAL FORM
+0FB79	ARABIC LETTER NYEH MEDIAL FORM
+0FB7A	ARABIC LETTER TCHEH ISOLATED FORM
+0FB7B	ARABIC LETTER TCHEH FINAL FORM
+0FB7C	ARABIC LETTER TCHEH INITIAL FORM
+0FB7D	ARABIC LETTER TCHEH MEDIAL FORM
+0FB7E	ARABIC LETTER TCHEHEH ISOLATED FORM
+0FB7F	ARABIC LETTER TCHEHEH FINAL FORM
+0FB80	ARABIC LETTER TCHEHEH INITIAL FORM
+0FB81	ARABIC LETTER TCHEHEH MEDIAL FORM
+0FB82	ARABIC LETTER DDAHAL ISOLATED FORM
+0FB83	ARABIC LETTER DDAHAL FINAL FORM
+0FB84	ARABIC LETTER DAHAL ISOLATED FORM
+0FB85	ARABIC LETTER DAHAL FINAL FORM
+0FB86	ARABIC LETTER DUL ISOLATED FORM
+0FB87	ARABIC LETTER DUL FINAL FORM
+0FB88	ARABIC LETTER DDAL ISOLATED FORM
+0FB89	ARABIC LETTER DDAL FINAL FORM
+0FB8A	ARABIC LETTER JEH ISOLATED FORM
+0FB8B	ARABIC LETTER JEH FINAL FORM
+0FB8C	ARABIC LETTER RREH ISOLATED FORM
+0FB8D	ARABIC LETTER RREH FINAL FORM
+0FB8E	ARABIC LETTER KEHEH ISOLATED FORM
+0FB8F	ARABIC LETTER KEHEH FINAL FORM
+0FB90	ARABIC LETTER KEHEH INITIAL FORM
+0FB91	ARABIC LETTER KEHEH MEDIAL FORM
+0FB92	ARABIC LETTER GAF ISOLATED FORM
+0FB93	ARABIC LETTER GAF FINAL FORM
+0FB94	ARABIC LETTER GAF INITIAL FORM
+0FB95	ARABIC LETTER GAF MEDIAL FORM
+0FB96	ARABIC LETTER GUEH ISOLATED FORM
+0FB97	ARABIC LETTER GUEH FINAL FORM
+0FB98	ARABIC LETTER GUEH INITIAL FORM
+0FB99	ARABIC LETTER GUEH MEDIAL FORM
+0FB9A	ARABIC LETTER NGOEH ISOLATED FORM
+0FB9B	ARABIC LETTER NGOEH FINAL FORM
+0FB9C	ARABIC LETTER NGOEH INITIAL FORM
+0FB9D	ARABIC LETTER NGOEH MEDIAL FORM
+0FB9E	ARABIC LETTER NOON GHUNNA ISOLATED FORM
+0FB9F	ARABIC LETTER NOON GHUNNA FINAL FORM
+0FBA0	ARABIC LETTER RNOON ISOLATED FORM
+0FBA1	ARABIC LETTER RNOON FINAL FORM
+0FBA2	ARABIC LETTER RNOON INITIAL FORM
+0FBA3	ARABIC LETTER RNOON MEDIAL FORM
+0FBA4	ARABIC LETTER HEH WITH YEH ABOVE ISOLATED FORM
+0FBA5	ARABIC LETTER HEH WITH YEH ABOVE FINAL FORM
+0FBA6	ARABIC LETTER HEH GOAL ISOLATED FORM
+0FBA7	ARABIC LETTER HEH GOAL FINAL FORM
+0FBA8	ARABIC LETTER HEH GOAL INITIAL FORM
+0FBA9	ARABIC LETTER HEH GOAL MEDIAL FORM
+0FBAA	ARABIC LETTER HEH DOACHASHMEE ISOLATED FORM
+0FBAB	ARABIC LETTER HEH DOACHASHMEE FINAL FORM
+0FBAC	ARABIC LETTER HEH DOACHASHMEE INITIAL FORM
+0FBAD	ARABIC LETTER HEH DOACHASHMEE MEDIAL FORM
+0FBAE	ARABIC LETTER YEH BARREE ISOLATED FORM
+0FBAF	ARABIC LETTER YEH BARREE FINAL FORM
+0FBB0	ARABIC LETTER YEH BARREE WITH HAMZA ABOVE ISOLATED FORM
+0FBB1	ARABIC LETTER YEH BARREE WITH HAMZA ABOVE FINAL FORM
+0FBB2	ARABIC SYMBOL DOT ABOVE
+0FBB3	ARABIC SYMBOL DOT BELOW
+0FBB4	ARABIC SYMBOL TWO DOTS ABOVE
+0FBB5	ARABIC SYMBOL TWO DOTS BELOW
+0FBB6	ARABIC SYMBOL THREE DOTS ABOVE
+0FBB7	ARABIC SYMBOL THREE DOTS BELOW
+0FBB8	ARABIC SYMBOL THREE DOTS POINTING DOWNWARDS ABOVE
+0FBB9	ARABIC SYMBOL THREE DOTS POINTING DOWNWARDS BELOW
+0FBBA	ARABIC SYMBOL FOUR DOTS ABOVE
+0FBBB	ARABIC SYMBOL FOUR DOTS BELOW
+0FBBC	ARABIC SYMBOL DOUBLE VERTICAL BAR BELOW
+0FBBD	ARABIC SYMBOL TWO DOTS VERTICALLY ABOVE
+0FBBE	ARABIC SYMBOL TWO DOTS VERTICALLY BELOW
+0FBBF	ARABIC SYMBOL RING
+0FBC0	ARABIC SYMBOL SMALL TAH ABOVE
+0FBC1	ARABIC SYMBOL SMALL TAH BELOW
+0FBD3	ARABIC LETTER NG ISOLATED FORM
+0FBD4	ARABIC LETTER NG FINAL FORM
+0FBD5	ARABIC LETTER NG INITIAL FORM
+0FBD6	ARABIC LETTER NG MEDIAL FORM
+0FBD7	ARABIC LETTER U ISOLATED FORM
+0FBD8	ARABIC LETTER U FINAL FORM
+0FBD9	ARABIC LETTER OE ISOLATED FORM
+0FBDA	ARABIC LETTER OE FINAL FORM
+0FBDB	ARABIC LETTER YU ISOLATED FORM
+0FBDC	ARABIC LETTER YU FINAL FORM
+0FBDD	ARABIC LETTER U WITH HAMZA ABOVE ISOLATED FORM
+0FBDE	ARABIC LETTER VE ISOLATED FORM
+0FBDF	ARABIC LETTER VE FINAL FORM
+0FBE0	ARABIC LETTER KIRGHIZ OE ISOLATED FORM
+0FBE1	ARABIC LETTER KIRGHIZ OE FINAL FORM
+0FBE2	ARABIC LETTER KIRGHIZ YU ISOLATED FORM
+0FBE3	ARABIC LETTER KIRGHIZ YU FINAL FORM
+0FBE4	ARABIC LETTER E ISOLATED FORM
+0FBE5	ARABIC LETTER E FINAL FORM
+0FBE6	ARABIC LETTER E INITIAL FORM
+0FBE7	ARABIC LETTER E MEDIAL FORM
+0FBE8	ARABIC LETTER UIGHUR KAZAKH KIRGHIZ ALEF MAKSURA INITIAL FORM
+0FBE9	ARABIC LETTER UIGHUR KAZAKH KIRGHIZ ALEF MAKSURA MEDIAL FORM
+0FBEA	ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH ALEF ISOLATED FORM
+0FBEB	ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH ALEF FINAL FORM
+0FBEC	ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH AE ISOLATED FORM
+0FBED	ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH AE FINAL FORM
+0FBEE	ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH WAW ISOLATED FORM
+0FBEF	ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH WAW FINAL FORM
+0FBF0	ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH U ISOLATED FORM
+0FBF1	ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH U FINAL FORM
+0FBF2	ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH OE ISOLATED FORM
+0FBF3	ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH OE FINAL FORM
+0FBF4	ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH YU ISOLATED FORM
+0FBF5	ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH YU FINAL FORM
+0FBF6	ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH E ISOLATED FORM
+0FBF7	ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH E FINAL FORM
+0FBF8	ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH E INITIAL FORM
+0FBF9	ARABIC LIGATURE UIGHUR KIRGHIZ YEH WITH HAMZA ABOVE WITH ALEF MAKSURA ISOLATED FORM
+0FBFA	ARABIC LIGATURE UIGHUR KIRGHIZ YEH WITH HAMZA ABOVE WITH ALEF MAKSURA FINAL FORM
+0FBFB	ARABIC LIGATURE UIGHUR KIRGHIZ YEH WITH HAMZA ABOVE WITH ALEF MAKSURA INITIAL FORM
+0FBFC	ARABIC LETTER FARSI YEH ISOLATED FORM
+0FBFD	ARABIC LETTER FARSI YEH FINAL FORM
+0FBFE	ARABIC LETTER FARSI YEH INITIAL FORM
+0FBFF	ARABIC LETTER FARSI YEH MEDIAL FORM
+0FC00	ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH JEEM ISOLATED FORM
+0FC01	ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH HAH ISOLATED FORM
+0FC02	ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH MEEM ISOLATED FORM
+0FC03	ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH ALEF MAKSURA ISOLATED FORM
+0FC04	ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH YEH ISOLATED FORM
+0FC05	ARABIC LIGATURE BEH WITH JEEM ISOLATED FORM
+0FC06	ARABIC LIGATURE BEH WITH HAH ISOLATED FORM
+0FC07	ARABIC LIGATURE BEH WITH KHAH ISOLATED FORM
+0FC08	ARABIC LIGATURE BEH WITH MEEM ISOLATED FORM
+0FC09	ARABIC LIGATURE BEH WITH ALEF MAKSURA ISOLATED FORM
+0FC0A	ARABIC LIGATURE BEH WITH YEH ISOLATED FORM
+0FC0B	ARABIC LIGATURE TEH WITH JEEM ISOLATED FORM
+0FC0C	ARABIC LIGATURE TEH WITH HAH ISOLATED FORM
+0FC0D	ARABIC LIGATURE TEH WITH KHAH ISOLATED FORM
+0FC0E	ARABIC LIGATURE TEH WITH MEEM ISOLATED FORM
+0FC0F	ARABIC LIGATURE TEH WITH ALEF MAKSURA ISOLATED FORM
+0FC10	ARABIC LIGATURE TEH WITH YEH ISOLATED FORM
+0FC11	ARABIC LIGATURE THEH WITH JEEM ISOLATED FORM
+0FC12	ARABIC LIGATURE THEH WITH MEEM ISOLATED FORM
+0FC13	ARABIC LIGATURE THEH WITH ALEF MAKSURA ISOLATED FORM
+0FC14	ARABIC LIGATURE THEH WITH YEH ISOLATED FORM
+0FC15	ARABIC LIGATURE JEEM WITH HAH ISOLATED FORM
+0FC16	ARABIC LIGATURE JEEM WITH MEEM ISOLATED FORM
+0FC17	ARABIC LIGATURE HAH WITH JEEM ISOLATED FORM
+0FC18	ARABIC LIGATURE HAH WITH MEEM ISOLATED FORM
+0FC19	ARABIC LIGATURE KHAH WITH JEEM ISOLATED FORM
+0FC1A	ARABIC LIGATURE KHAH WITH HAH ISOLATED FORM
+0FC1B	ARABIC LIGATURE KHAH WITH MEEM ISOLATED FORM
+0FC1C	ARABIC LIGATURE SEEN WITH JEEM ISOLATED FORM
+0FC1D	ARABIC LIGATURE SEEN WITH HAH ISOLATED FORM
+0FC1E	ARABIC LIGATURE SEEN WITH KHAH ISOLATED FORM
+0FC1F	ARABIC LIGATURE SEEN WITH MEEM ISOLATED FORM
+0FC20	ARABIC LIGATURE SAD WITH HAH ISOLATED FORM
+0FC21	ARABIC LIGATURE SAD WITH MEEM ISOLATED FORM
+0FC22	ARABIC LIGATURE DAD WITH JEEM ISOLATED FORM
+0FC23	ARABIC LIGATURE DAD WITH HAH ISOLATED FORM
+0FC24	ARABIC LIGATURE DAD WITH KHAH ISOLATED FORM
+0FC25	ARABIC LIGATURE DAD WITH MEEM ISOLATED FORM
+0FC26	ARABIC LIGATURE TAH WITH HAH ISOLATED FORM
+0FC27	ARABIC LIGATURE TAH WITH MEEM ISOLATED FORM
+0FC28	ARABIC LIGATURE ZAH WITH MEEM ISOLATED FORM
+0FC29	ARABIC LIGATURE AIN WITH JEEM ISOLATED FORM
+0FC2A	ARABIC LIGATURE AIN WITH MEEM ISOLATED FORM
+0FC2B	ARABIC LIGATURE GHAIN WITH JEEM ISOLATED FORM
+0FC2C	ARABIC LIGATURE GHAIN WITH MEEM ISOLATED FORM
+0FC2D	ARABIC LIGATURE FEH WITH JEEM ISOLATED FORM
+0FC2E	ARABIC LIGATURE FEH WITH HAH ISOLATED FORM
+0FC2F	ARABIC LIGATURE FEH WITH KHAH ISOLATED FORM
+0FC30	ARABIC LIGATURE FEH WITH MEEM ISOLATED FORM
+0FC31	ARABIC LIGATURE FEH WITH ALEF MAKSURA ISOLATED FORM
+0FC32	ARABIC LIGATURE FEH WITH YEH ISOLATED FORM
+0FC33	ARABIC LIGATURE QAF WITH HAH ISOLATED FORM
+0FC34	ARABIC LIGATURE QAF WITH MEEM ISOLATED FORM
+0FC35	ARABIC LIGATURE QAF WITH ALEF MAKSURA ISOLATED FORM
+0FC36	ARABIC LIGATURE QAF WITH YEH ISOLATED FORM
+0FC37	ARABIC LIGATURE KAF WITH ALEF ISOLATED FORM
+0FC38	ARABIC LIGATURE KAF WITH JEEM ISOLATED FORM
+0FC39	ARABIC LIGATURE KAF WITH HAH ISOLATED FORM
+0FC3A	ARABIC LIGATURE KAF WITH KHAH ISOLATED FORM
+0FC3B	ARABIC LIGATURE KAF WITH LAM ISOLATED FORM
+0FC3C	ARABIC LIGATURE KAF WITH MEEM ISOLATED FORM
+0FC3D	ARABIC LIGATURE KAF WITH ALEF MAKSURA ISOLATED FORM
+0FC3E	ARABIC LIGATURE KAF WITH YEH ISOLATED FORM
+0FC3F	ARABIC LIGATURE LAM WITH JEEM ISOLATED FORM
+0FC40	ARABIC LIGATURE LAM WITH HAH ISOLATED FORM
+0FC41	ARABIC LIGATURE LAM WITH KHAH ISOLATED FORM
+0FC42	ARABIC LIGATURE LAM WITH MEEM ISOLATED FORM
+0FC43	ARABIC LIGATURE LAM WITH ALEF MAKSURA ISOLATED FORM
+0FC44	ARABIC LIGATURE LAM WITH YEH ISOLATED FORM
+0FC45	ARABIC LIGATURE MEEM WITH JEEM ISOLATED FORM
+0FC46	ARABIC LIGATURE MEEM WITH HAH ISOLATED FORM
+0FC47	ARABIC LIGATURE MEEM WITH KHAH ISOLATED FORM
+0FC48	ARABIC LIGATURE MEEM WITH MEEM ISOLATED FORM
+0FC49	ARABIC LIGATURE MEEM WITH ALEF MAKSURA ISOLATED FORM
+0FC4A	ARABIC LIGATURE MEEM WITH YEH ISOLATED FORM
+0FC4B	ARABIC LIGATURE NOON WITH JEEM ISOLATED FORM
+0FC4C	ARABIC LIGATURE NOON WITH HAH ISOLATED FORM
+0FC4D	ARABIC LIGATURE NOON WITH KHAH ISOLATED FORM
+0FC4E	ARABIC LIGATURE NOON WITH MEEM ISOLATED FORM
+0FC4F	ARABIC LIGATURE NOON WITH ALEF MAKSURA ISOLATED FORM
+0FC50	ARABIC LIGATURE NOON WITH YEH ISOLATED FORM
+0FC51	ARABIC LIGATURE HEH WITH JEEM ISOLATED FORM
+0FC52	ARABIC LIGATURE HEH WITH MEEM ISOLATED FORM
+0FC53	ARABIC LIGATURE HEH WITH ALEF MAKSURA ISOLATED FORM
+0FC54	ARABIC LIGATURE HEH WITH YEH ISOLATED FORM
+0FC55	ARABIC LIGATURE YEH WITH JEEM ISOLATED FORM
+0FC56	ARABIC LIGATURE YEH WITH HAH ISOLATED FORM
+0FC57	ARABIC LIGATURE YEH WITH KHAH ISOLATED FORM
+0FC58	ARABIC LIGATURE YEH WITH MEEM ISOLATED FORM
+0FC59	ARABIC LIGATURE YEH WITH ALEF MAKSURA ISOLATED FORM
+0FC5A	ARABIC LIGATURE YEH WITH YEH ISOLATED FORM
+0FC5B	ARABIC LIGATURE THAL WITH SUPERSCRIPT ALEF ISOLATED FORM
+0FC5C	ARABIC LIGATURE REH WITH SUPERSCRIPT ALEF ISOLATED FORM
+0FC5D	ARABIC LIGATURE ALEF MAKSURA WITH SUPERSCRIPT ALEF ISOLATED FORM
+0FC5E	ARABIC LIGATURE SHADDA WITH DAMMATAN ISOLATED FORM
+0FC5F	ARABIC LIGATURE SHADDA WITH KASRATAN ISOLATED FORM
+0FC60	ARABIC LIGATURE SHADDA WITH FATHA ISOLATED FORM
+0FC61	ARABIC LIGATURE SHADDA WITH DAMMA ISOLATED FORM
+0FC62	ARABIC LIGATURE SHADDA WITH KASRA ISOLATED FORM
+0FC63	ARABIC LIGATURE SHADDA WITH SUPERSCRIPT ALEF ISOLATED FORM
+0FC64	ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH REH FINAL FORM
+0FC65	ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH ZAIN FINAL FORM
+0FC66	ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH MEEM FINAL FORM
+0FC67	ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH NOON FINAL FORM
+0FC68	ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH ALEF MAKSURA FINAL FORM
+0FC69	ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH YEH FINAL FORM
+0FC6A	ARABIC LIGATURE BEH WITH REH FINAL FORM
+0FC6B	ARABIC LIGATURE BEH WITH ZAIN FINAL FORM
+0FC6C	ARABIC LIGATURE BEH WITH MEEM FINAL FORM
+0FC6D	ARABIC LIGATURE BEH WITH NOON FINAL FORM
+0FC6E	ARABIC LIGATURE BEH WITH ALEF MAKSURA FINAL FORM
+0FC6F	ARABIC LIGATURE BEH WITH YEH FINAL FORM
+0FC70	ARABIC LIGATURE TEH WITH REH FINAL FORM
+0FC71	ARABIC LIGATURE TEH WITH ZAIN FINAL FORM
+0FC72	ARABIC LIGATURE TEH WITH MEEM FINAL FORM
+0FC73	ARABIC LIGATURE TEH WITH NOON FINAL FORM
+0FC74	ARABIC LIGATURE TEH WITH ALEF MAKSURA FINAL FORM
+0FC75	ARABIC LIGATURE TEH WITH YEH FINAL FORM
+0FC76	ARABIC LIGATURE THEH WITH REH FINAL FORM
+0FC77	ARABIC LIGATURE THEH WITH ZAIN FINAL FORM
+0FC78	ARABIC LIGATURE THEH WITH MEEM FINAL FORM
+0FC79	ARABIC LIGATURE THEH WITH NOON FINAL FORM
+0FC7A	ARABIC LIGATURE THEH WITH ALEF MAKSURA FINAL FORM
+0FC7B	ARABIC LIGATURE THEH WITH YEH FINAL FORM
+0FC7C	ARABIC LIGATURE FEH WITH ALEF MAKSURA FINAL FORM
+0FC7D	ARABIC LIGATURE FEH WITH YEH FINAL FORM
+0FC7E	ARABIC LIGATURE QAF WITH ALEF MAKSURA FINAL FORM
+0FC7F	ARABIC LIGATURE QAF WITH YEH FINAL FORM
+0FC80	ARABIC LIGATURE KAF WITH ALEF FINAL FORM
+0FC81	ARABIC LIGATURE KAF WITH LAM FINAL FORM
+0FC82	ARABIC LIGATURE KAF WITH MEEM FINAL FORM
+0FC83	ARABIC LIGATURE KAF WITH ALEF MAKSURA FINAL FORM
+0FC84	ARABIC LIGATURE KAF WITH YEH FINAL FORM
+0FC85	ARABIC LIGATURE LAM WITH MEEM FINAL FORM
+0FC86	ARABIC LIGATURE LAM WITH ALEF MAKSURA FINAL FORM
+0FC87	ARABIC LIGATURE LAM WITH YEH FINAL FORM
+0FC88	ARABIC LIGATURE MEEM WITH ALEF FINAL FORM
+0FC89	ARABIC LIGATURE MEEM WITH MEEM FINAL FORM
+0FC8A	ARABIC LIGATURE NOON WITH REH FINAL FORM
+0FC8B	ARABIC LIGATURE NOON WITH ZAIN FINAL FORM
+0FC8C	ARABIC LIGATURE NOON WITH MEEM FINAL FORM
+0FC8D	ARABIC LIGATURE NOON WITH NOON FINAL FORM
+0FC8E	ARABIC LIGATURE NOON WITH ALEF MAKSURA FINAL FORM
+0FC8F	ARABIC LIGATURE NOON WITH YEH FINAL FORM
+0FC90	ARABIC LIGATURE ALEF MAKSURA WITH SUPERSCRIPT ALEF FINAL FORM
+0FC91	ARABIC LIGATURE YEH WITH REH FINAL FORM
+0FC92	ARABIC LIGATURE YEH WITH ZAIN FINAL FORM
+0FC93	ARABIC LIGATURE YEH WITH MEEM FINAL FORM
+0FC94	ARABIC LIGATURE YEH WITH NOON FINAL FORM
+0FC95	ARABIC LIGATURE YEH WITH ALEF MAKSURA FINAL FORM
+0FC96	ARABIC LIGATURE YEH WITH YEH FINAL FORM
+0FC97	ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH JEEM INITIAL FORM
+0FC98	ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH HAH INITIAL FORM
+0FC99	ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH KHAH INITIAL FORM
+0FC9A	ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH MEEM INITIAL FORM
+0FC9B	ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH HEH INITIAL FORM
+0FC9C	ARABIC LIGATURE BEH WITH JEEM INITIAL FORM
+0FC9D	ARABIC LIGATURE BEH WITH HAH INITIAL FORM
+0FC9E	ARABIC LIGATURE BEH WITH KHAH INITIAL FORM
+0FC9F	ARABIC LIGATURE BEH WITH MEEM INITIAL FORM
+0FCA0	ARABIC LIGATURE BEH WITH HEH INITIAL FORM
+0FCA1	ARABIC LIGATURE TEH WITH JEEM INITIAL FORM
+0FCA2	ARABIC LIGATURE TEH WITH HAH INITIAL FORM
+0FCA3	ARABIC LIGATURE TEH WITH KHAH INITIAL FORM
+0FCA4	ARABIC LIGATURE TEH WITH MEEM INITIAL FORM
+0FCA5	ARABIC LIGATURE TEH WITH HEH INITIAL FORM
+0FCA6	ARABIC LIGATURE THEH WITH MEEM INITIAL FORM
+0FCA7	ARABIC LIGATURE JEEM WITH HAH INITIAL FORM
+0FCA8	ARABIC LIGATURE JEEM WITH MEEM INITIAL FORM
+0FCA9	ARABIC LIGATURE HAH WITH JEEM INITIAL FORM
+0FCAA	ARABIC LIGATURE HAH WITH MEEM INITIAL FORM
+0FCAB	ARABIC LIGATURE KHAH WITH JEEM INITIAL FORM
+0FCAC	ARABIC LIGATURE KHAH WITH MEEM INITIAL FORM
+0FCAD	ARABIC LIGATURE SEEN WITH JEEM INITIAL FORM
+0FCAE	ARABIC LIGATURE SEEN WITH HAH INITIAL FORM
+0FCAF	ARABIC LIGATURE SEEN WITH KHAH INITIAL FORM
+0FCB0	ARABIC LIGATURE SEEN WITH MEEM INITIAL FORM
+0FCB1	ARABIC LIGATURE SAD WITH HAH INITIAL FORM
+0FCB2	ARABIC LIGATURE SAD WITH KHAH INITIAL FORM
+0FCB3	ARABIC LIGATURE SAD WITH MEEM INITIAL FORM
+0FCB4	ARABIC LIGATURE DAD WITH JEEM INITIAL FORM
+0FCB5	ARABIC LIGATURE DAD WITH HAH INITIAL FORM
+0FCB6	ARABIC LIGATURE DAD WITH KHAH INITIAL FORM
+0FCB7	ARABIC LIGATURE DAD WITH MEEM INITIAL FORM
+0FCB8	ARABIC LIGATURE TAH WITH HAH INITIAL FORM
+0FCB9	ARABIC LIGATURE ZAH WITH MEEM INITIAL FORM
+0FCBA	ARABIC LIGATURE AIN WITH JEEM INITIAL FORM
+0FCBB	ARABIC LIGATURE AIN WITH MEEM INITIAL FORM
+0FCBC	ARABIC LIGATURE GHAIN WITH JEEM INITIAL FORM
+0FCBD	ARABIC LIGATURE GHAIN WITH MEEM INITIAL FORM
+0FCBE	ARABIC LIGATURE FEH WITH JEEM INITIAL FORM
+0FCBF	ARABIC LIGATURE FEH WITH HAH INITIAL FORM
+0FCC0	ARABIC LIGATURE FEH WITH KHAH INITIAL FORM
+0FCC1	ARABIC LIGATURE FEH WITH MEEM INITIAL FORM
+0FCC2	ARABIC LIGATURE QAF WITH HAH INITIAL FORM
+0FCC3	ARABIC LIGATURE QAF WITH MEEM INITIAL FORM
+0FCC4	ARABIC LIGATURE KAF WITH JEEM INITIAL FORM
+0FCC5	ARABIC LIGATURE KAF WITH HAH INITIAL FORM
+0FCC6	ARABIC LIGATURE KAF WITH KHAH INITIAL FORM
+0FCC7	ARABIC LIGATURE KAF WITH LAM INITIAL FORM
+0FCC8	ARABIC LIGATURE KAF WITH MEEM INITIAL FORM
+0FCC9	ARABIC LIGATURE LAM WITH JEEM INITIAL FORM
+0FCCA	ARABIC LIGATURE LAM WITH HAH INITIAL FORM
+0FCCB	ARABIC LIGATURE LAM WITH KHAH INITIAL FORM
+0FCCC	ARABIC LIGATURE LAM WITH MEEM INITIAL FORM
+0FCCD	ARABIC LIGATURE LAM WITH HEH INITIAL FORM
+0FCCE	ARABIC LIGATURE MEEM WITH JEEM INITIAL FORM
+0FCCF	ARABIC LIGATURE MEEM WITH HAH INITIAL FORM
+0FCD0	ARABIC LIGATURE MEEM WITH KHAH INITIAL FORM
+0FCD1	ARABIC LIGATURE MEEM WITH MEEM INITIAL FORM
+0FCD2	ARABIC LIGATURE NOON WITH JEEM INITIAL FORM
+0FCD3	ARABIC LIGATURE NOON WITH HAH INITIAL FORM
+0FCD4	ARABIC LIGATURE NOON WITH KHAH INITIAL FORM
+0FCD5	ARABIC LIGATURE NOON WITH MEEM INITIAL FORM
+0FCD6	ARABIC LIGATURE NOON WITH HEH INITIAL FORM
+0FCD7	ARABIC LIGATURE HEH WITH JEEM INITIAL FORM
+0FCD8	ARABIC LIGATURE HEH WITH MEEM INITIAL FORM
+0FCD9	ARABIC LIGATURE HEH WITH SUPERSCRIPT ALEF INITIAL FORM
+0FCDA	ARABIC LIGATURE YEH WITH JEEM INITIAL FORM
+0FCDB	ARABIC LIGATURE YEH WITH HAH INITIAL FORM
+0FCDC	ARABIC LIGATURE YEH WITH KHAH INITIAL FORM
+0FCDD	ARABIC LIGATURE YEH WITH MEEM INITIAL FORM
+0FCDE	ARABIC LIGATURE YEH WITH HEH INITIAL FORM
+0FCDF	ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH MEEM MEDIAL FORM
+0FCE0	ARABIC LIGATURE YEH WITH HAMZA ABOVE WITH HEH MEDIAL FORM
+0FCE1	ARABIC LIGATURE BEH WITH MEEM MEDIAL FORM
+0FCE2	ARABIC LIGATURE BEH WITH HEH MEDIAL FORM
+0FCE3	ARABIC LIGATURE TEH WITH MEEM MEDIAL FORM
+0FCE4	ARABIC LIGATURE TEH WITH HEH MEDIAL FORM
+0FCE5	ARABIC LIGATURE THEH WITH MEEM MEDIAL FORM
+0FCE6	ARABIC LIGATURE THEH WITH HEH MEDIAL FORM
+0FCE7	ARABIC LIGATURE SEEN WITH MEEM MEDIAL FORM
+0FCE8	ARABIC LIGATURE SEEN WITH HEH MEDIAL FORM
+0FCE9	ARABIC LIGATURE SHEEN WITH MEEM MEDIAL FORM
+0FCEA	ARABIC LIGATURE SHEEN WITH HEH MEDIAL FORM
+0FCEB	ARABIC LIGATURE KAF WITH LAM MEDIAL FORM
+0FCEC	ARABIC LIGATURE KAF WITH MEEM MEDIAL FORM
+0FCED	ARABIC LIGATURE LAM WITH MEEM MEDIAL FORM
+0FCEE	ARABIC LIGATURE NOON WITH MEEM MEDIAL FORM
+0FCEF	ARABIC LIGATURE NOON WITH HEH MEDIAL FORM
+0FCF0	ARABIC LIGATURE YEH WITH MEEM MEDIAL FORM
+0FCF1	ARABIC LIGATURE YEH WITH HEH MEDIAL FORM
+0FCF2	ARABIC LIGATURE SHADDA WITH FATHA MEDIAL FORM
+0FCF3	ARABIC LIGATURE SHADDA WITH DAMMA MEDIAL FORM
+0FCF4	ARABIC LIGATURE SHADDA WITH KASRA MEDIAL FORM
+0FCF5	ARABIC LIGATURE TAH WITH ALEF MAKSURA ISOLATED FORM
+0FCF6	ARABIC LIGATURE TAH WITH YEH ISOLATED FORM
+0FCF7	ARABIC LIGATURE AIN WITH ALEF MAKSURA ISOLATED FORM
+0FCF8	ARABIC LIGATURE AIN WITH YEH ISOLATED FORM
+0FCF9	ARABIC LIGATURE GHAIN WITH ALEF MAKSURA ISOLATED FORM
+0FCFA	ARABIC LIGATURE GHAIN WITH YEH ISOLATED FORM
+0FCFB	ARABIC LIGATURE SEEN WITH ALEF MAKSURA ISOLATED FORM
+0FCFC	ARABIC LIGATURE SEEN WITH YEH ISOLATED FORM
+0FCFD	ARABIC LIGATURE SHEEN WITH ALEF MAKSURA ISOLATED FORM
+0FCFE	ARABIC LIGATURE SHEEN WITH YEH ISOLATED FORM
+0FCFF	ARABIC LIGATURE HAH WITH ALEF MAKSURA ISOLATED FORM
+0FD00	ARABIC LIGATURE HAH WITH YEH ISOLATED FORM
+0FD01	ARABIC LIGATURE JEEM WITH ALEF MAKSURA ISOLATED FORM
+0FD02	ARABIC LIGATURE JEEM WITH YEH ISOLATED FORM
+0FD03	ARABIC LIGATURE KHAH WITH ALEF MAKSURA ISOLATED FORM
+0FD04	ARABIC LIGATURE KHAH WITH YEH ISOLATED FORM
+0FD05	ARABIC LIGATURE SAD WITH ALEF MAKSURA ISOLATED FORM
+0FD06	ARABIC LIGATURE SAD WITH YEH ISOLATED FORM
+0FD07	ARABIC LIGATURE DAD WITH ALEF MAKSURA ISOLATED FORM
+0FD08	ARABIC LIGATURE DAD WITH YEH ISOLATED FORM
+0FD09	ARABIC LIGATURE SHEEN WITH JEEM ISOLATED FORM
+0FD0A	ARABIC LIGATURE SHEEN WITH HAH ISOLATED FORM
+0FD0B	ARABIC LIGATURE SHEEN WITH KHAH ISOLATED FORM
+0FD0C	ARABIC LIGATURE SHEEN WITH MEEM ISOLATED FORM
+0FD0D	ARABIC LIGATURE SHEEN WITH REH ISOLATED FORM
+0FD0E	ARABIC LIGATURE SEEN WITH REH ISOLATED FORM
+0FD0F	ARABIC LIGATURE SAD WITH REH ISOLATED FORM
+0FD10	ARABIC LIGATURE DAD WITH REH ISOLATED FORM
+0FD11	ARABIC LIGATURE TAH WITH ALEF MAKSURA FINAL FORM
+0FD12	ARABIC LIGATURE TAH WITH YEH FINAL FORM
+0FD13	ARABIC LIGATURE AIN WITH ALEF MAKSURA FINAL FORM
+0FD14	ARABIC LIGATURE AIN WITH YEH FINAL FORM
+0FD15	ARABIC LIGATURE GHAIN WITH ALEF MAKSURA FINAL FORM
+0FD16	ARABIC LIGATURE GHAIN WITH YEH FINAL FORM
+0FD17	ARABIC LIGATURE SEEN WITH ALEF MAKSURA FINAL FORM
+0FD18	ARABIC LIGATURE SEEN WITH YEH FINAL FORM
+0FD19	ARABIC LIGATURE SHEEN WITH ALEF MAKSURA FINAL FORM
+0FD1A	ARABIC LIGATURE SHEEN WITH YEH FINAL FORM
+0FD1B	ARABIC LIGATURE HAH WITH ALEF MAKSURA FINAL FORM
+0FD1C	ARABIC LIGATURE HAH WITH YEH FINAL FORM
+0FD1D	ARABIC LIGATURE JEEM WITH ALEF MAKSURA FINAL FORM
+0FD1E	ARABIC LIGATURE JEEM WITH YEH FINAL FORM
+0FD1F	ARABIC LIGATURE KHAH WITH ALEF MAKSURA FINAL FORM
+0FD20	ARABIC LIGATURE KHAH WITH YEH FINAL FORM
+0FD21	ARABIC LIGATURE SAD WITH ALEF MAKSURA FINAL FORM
+0FD22	ARABIC LIGATURE SAD WITH YEH FINAL FORM
+0FD23	ARABIC LIGATURE DAD WITH ALEF MAKSURA FINAL FORM
+0FD24	ARABIC LIGATURE DAD WITH YEH FINAL FORM
+0FD25	ARABIC LIGATURE SHEEN WITH JEEM FINAL FORM
+0FD26	ARABIC LIGATURE SHEEN WITH HAH FINAL FORM
+0FD27	ARABIC LIGATURE SHEEN WITH KHAH FINAL FORM
+0FD28	ARABIC LIGATURE SHEEN WITH MEEM FINAL FORM
+0FD29	ARABIC LIGATURE SHEEN WITH REH FINAL FORM
+0FD2A	ARABIC LIGATURE SEEN WITH REH FINAL FORM
+0FD2B	ARABIC LIGATURE SAD WITH REH FINAL FORM
+0FD2C	ARABIC LIGATURE DAD WITH REH FINAL FORM
+0FD2D	ARABIC LIGATURE SHEEN WITH JEEM INITIAL FORM
+0FD2E	ARABIC LIGATURE SHEEN WITH HAH INITIAL FORM
+0FD2F	ARABIC LIGATURE SHEEN WITH KHAH INITIAL FORM
+0FD30	ARABIC LIGATURE SHEEN WITH MEEM INITIAL FORM
+0FD31	ARABIC LIGATURE SEEN WITH HEH INITIAL FORM
+0FD32	ARABIC LIGATURE SHEEN WITH HEH INITIAL FORM
+0FD33	ARABIC LIGATURE TAH WITH MEEM INITIAL FORM
+0FD34	ARABIC LIGATURE SEEN WITH JEEM MEDIAL FORM
+0FD35	ARABIC LIGATURE SEEN WITH HAH MEDIAL FORM
+0FD36	ARABIC LIGATURE SEEN WITH KHAH MEDIAL FORM
+0FD37	ARABIC LIGATURE SHEEN WITH JEEM MEDIAL FORM
+0FD38	ARABIC LIGATURE SHEEN WITH HAH MEDIAL FORM
+0FD39	ARABIC LIGATURE SHEEN WITH KHAH MEDIAL FORM
+0FD3A	ARABIC LIGATURE TAH WITH MEEM MEDIAL FORM
+0FD3B	ARABIC LIGATURE ZAH WITH MEEM MEDIAL FORM
+0FD3C	ARABIC LIGATURE ALEF WITH FATHATAN FINAL FORM
+0FD3D	ARABIC LIGATURE ALEF WITH FATHATAN ISOLATED FORM
+0FD3E	ORNATE LEFT PARENTHESIS
+0FD3F	ORNATE RIGHT PARENTHESIS
+0FD50	ARABIC LIGATURE TEH WITH JEEM WITH MEEM INITIAL FORM
+0FD51	ARABIC LIGATURE TEH WITH HAH WITH JEEM FINAL FORM
+0FD52	ARABIC LIGATURE TEH WITH HAH WITH JEEM INITIAL FORM
+0FD53	ARABIC LIGATURE TEH WITH HAH WITH MEEM INITIAL FORM
+0FD54	ARABIC LIGATURE TEH WITH KHAH WITH MEEM INITIAL FORM
+0FD55	ARABIC LIGATURE TEH WITH MEEM WITH JEEM INITIAL FORM
+0FD56	ARABIC LIGATURE TEH WITH MEEM WITH HAH INITIAL FORM
+0FD57	ARABIC LIGATURE TEH WITH MEEM WITH KHAH INITIAL FORM
+0FD58	ARABIC LIGATURE JEEM WITH MEEM WITH HAH FINAL FORM
+0FD59	ARABIC LIGATURE JEEM WITH MEEM WITH HAH INITIAL FORM
+0FD5A	ARABIC LIGATURE HAH WITH MEEM WITH YEH FINAL FORM
+0FD5B	ARABIC LIGATURE HAH WITH MEEM WITH ALEF MAKSURA FINAL FORM
+0FD5C	ARABIC LIGATURE SEEN WITH HAH WITH JEEM INITIAL FORM
+0FD5D	ARABIC LIGATURE SEEN WITH JEEM WITH HAH INITIAL FORM
+0FD5E	ARABIC LIGATURE SEEN WITH JEEM WITH ALEF MAKSURA FINAL FORM
+0FD5F	ARABIC LIGATURE SEEN WITH MEEM WITH HAH FINAL FORM
+0FD60	ARABIC LIGATURE SEEN WITH MEEM WITH HAH INITIAL FORM
+0FD61	ARABIC LIGATURE SEEN WITH MEEM WITH JEEM INITIAL FORM
+0FD62	ARABIC LIGATURE SEEN WITH MEEM WITH MEEM FINAL FORM
+0FD63	ARABIC LIGATURE SEEN WITH MEEM WITH MEEM INITIAL FORM
+0FD64	ARABIC LIGATURE SAD WITH HAH WITH HAH FINAL FORM
+0FD65	ARABIC LIGATURE SAD WITH HAH WITH HAH INITIAL FORM
+0FD66	ARABIC LIGATURE SAD WITH MEEM WITH MEEM FINAL FORM
+0FD67	ARABIC LIGATURE SHEEN WITH HAH WITH MEEM FINAL FORM
+0FD68	ARABIC LIGATURE SHEEN WITH HAH WITH MEEM INITIAL FORM
+0FD69	ARABIC LIGATURE SHEEN WITH JEEM WITH YEH FINAL FORM
+0FD6A	ARABIC LIGATURE SHEEN WITH MEEM WITH KHAH FINAL FORM
+0FD6B	ARABIC LIGATURE SHEEN WITH MEEM WITH KHAH INITIAL FORM
+0FD6C	ARABIC LIGATURE SHEEN WITH MEEM WITH MEEM FINAL FORM
+0FD6D	ARABIC LIGATURE SHEEN WITH MEEM WITH MEEM INITIAL FORM
+0FD6E	ARABIC LIGATURE DAD WITH HAH WITH ALEF MAKSURA FINAL FORM
+0FD6F	ARABIC LIGATURE DAD WITH KHAH WITH MEEM FINAL FORM
+0FD70	ARABIC LIGATURE DAD WITH KHAH WITH MEEM INITIAL FORM
+0FD71	ARABIC LIGATURE TAH WITH MEEM WITH HAH FINAL FORM
+0FD72	ARABIC LIGATURE TAH WITH MEEM WITH HAH INITIAL FORM
+0FD73	ARABIC LIGATURE TAH WITH MEEM WITH MEEM INITIAL FORM
+0FD74	ARABIC LIGATURE TAH WITH MEEM WITH YEH FINAL FORM
+0FD75	ARABIC LIGATURE AIN WITH JEEM WITH MEEM FINAL FORM
+0FD76	ARABIC LIGATURE AIN WITH MEEM WITH MEEM FINAL FORM
+0FD77	ARABIC LIGATURE AIN WITH MEEM WITH MEEM INITIAL FORM
+0FD78	ARABIC LIGATURE AIN WITH MEEM WITH ALEF MAKSURA FINAL FORM
+0FD79	ARABIC LIGATURE GHAIN WITH MEEM WITH MEEM FINAL FORM
+0FD7A	ARABIC LIGATURE GHAIN WITH MEEM WITH YEH FINAL FORM
+0FD7B	ARABIC LIGATURE GHAIN WITH MEEM WITH ALEF MAKSURA FINAL FORM
+0FD7C	ARABIC LIGATURE FEH WITH KHAH WITH MEEM FINAL FORM
+0FD7D	ARABIC LIGATURE FEH WITH KHAH WITH MEEM INITIAL FORM
+0FD7E	ARABIC LIGATURE QAF WITH MEEM WITH HAH FINAL FORM
+0FD7F	ARABIC LIGATURE QAF WITH MEEM WITH MEEM FINAL FORM
+0FD80	ARABIC LIGATURE LAM WITH HAH WITH MEEM FINAL FORM
+0FD81	ARABIC LIGATURE LAM WITH HAH WITH YEH FINAL FORM
+0FD82	ARABIC LIGATURE LAM WITH HAH WITH ALEF MAKSURA FINAL FORM
+0FD83	ARABIC LIGATURE LAM WITH JEEM WITH JEEM INITIAL FORM
+0FD84	ARABIC LIGATURE LAM WITH JEEM WITH JEEM FINAL FORM
+0FD85	ARABIC LIGATURE LAM WITH KHAH WITH MEEM FINAL FORM
+0FD86	ARABIC LIGATURE LAM WITH KHAH WITH MEEM INITIAL FORM
+0FD87	ARABIC LIGATURE LAM WITH MEEM WITH HAH FINAL FORM
+0FD88	ARABIC LIGATURE LAM WITH MEEM WITH HAH INITIAL FORM
+0FD89	ARABIC LIGATURE MEEM WITH HAH WITH JEEM INITIAL FORM
+0FD8A	ARABIC LIGATURE MEEM WITH HAH WITH MEEM INITIAL FORM
+0FD8B	ARABIC LIGATURE MEEM WITH HAH WITH YEH FINAL FORM
+0FD8C	ARABIC LIGATURE MEEM WITH JEEM WITH HAH INITIAL FORM
+0FD8D	ARABIC LIGATURE MEEM WITH JEEM WITH MEEM INITIAL FORM
+0FD8E	ARABIC LIGATURE MEEM WITH KHAH WITH JEEM INITIAL FORM
+0FD8F	ARABIC LIGATURE MEEM WITH KHAH WITH MEEM INITIAL FORM
+0FD92	ARABIC LIGATURE MEEM WITH JEEM WITH KHAH INITIAL FORM
+0FD93	ARABIC LIGATURE HEH WITH MEEM WITH JEEM INITIAL FORM
+0FD94	ARABIC LIGATURE HEH WITH MEEM WITH MEEM INITIAL FORM
+0FD95	ARABIC LIGATURE NOON WITH HAH WITH MEEM INITIAL FORM
+0FD96	ARABIC LIGATURE NOON WITH HAH WITH ALEF MAKSURA FINAL FORM
+0FD97	ARABIC LIGATURE NOON WITH JEEM WITH MEEM FINAL FORM
+0FD98	ARABIC LIGATURE NOON WITH JEEM WITH MEEM INITIAL FORM
+0FD99	ARABIC LIGATURE NOON WITH JEEM WITH ALEF MAKSURA FINAL FORM
+0FD9A	ARABIC LIGATURE NOON WITH MEEM WITH YEH FINAL FORM
+0FD9B	ARABIC LIGATURE NOON WITH MEEM WITH ALEF MAKSURA FINAL FORM
+0FD9C	ARABIC LIGATURE YEH WITH MEEM WITH MEEM FINAL FORM
+0FD9D	ARABIC LIGATURE YEH WITH MEEM WITH MEEM INITIAL FORM
+0FD9E	ARABIC LIGATURE BEH WITH KHAH WITH YEH FINAL FORM
+0FD9F	ARABIC LIGATURE TEH WITH JEEM WITH YEH FINAL FORM
+0FDA0	ARABIC LIGATURE TEH WITH JEEM WITH ALEF MAKSURA FINAL FORM
+0FDA1	ARABIC LIGATURE TEH WITH KHAH WITH YEH FINAL FORM
+0FDA2	ARABIC LIGATURE TEH WITH KHAH WITH ALEF MAKSURA FINAL FORM
+0FDA3	ARABIC LIGATURE TEH WITH MEEM WITH YEH FINAL FORM
+0FDA4	ARABIC LIGATURE TEH WITH MEEM WITH ALEF MAKSURA FINAL FORM
+0FDA5	ARABIC LIGATURE JEEM WITH MEEM WITH YEH FINAL FORM
+0FDA6	ARABIC LIGATURE JEEM WITH HAH WITH ALEF MAKSURA FINAL FORM
+0FDA7	ARABIC LIGATURE JEEM WITH MEEM WITH ALEF MAKSURA FINAL FORM
+0FDA8	ARABIC LIGATURE SEEN WITH KHAH WITH ALEF MAKSURA FINAL FORM
+0FDA9	ARABIC LIGATURE SAD WITH HAH WITH YEH FINAL FORM
+0FDAA	ARABIC LIGATURE SHEEN WITH HAH WITH YEH FINAL FORM
+0FDAB	ARABIC LIGATURE DAD WITH HAH WITH YEH FINAL FORM
+0FDAC	ARABIC LIGATURE LAM WITH JEEM WITH YEH FINAL FORM
+0FDAD	ARABIC LIGATURE LAM WITH MEEM WITH YEH FINAL FORM
+0FDAE	ARABIC LIGATURE YEH WITH HAH WITH YEH FINAL FORM
+0FDAF	ARABIC LIGATURE YEH WITH JEEM WITH YEH FINAL FORM
+0FDB0	ARABIC LIGATURE YEH WITH MEEM WITH YEH FINAL FORM
+0FDB1	ARABIC LIGATURE MEEM WITH MEEM WITH YEH FINAL FORM
+0FDB2	ARABIC LIGATURE QAF WITH MEEM WITH YEH FINAL FORM
+0FDB3	ARABIC LIGATURE NOON WITH HAH WITH YEH FINAL FORM
+0FDB4	ARABIC LIGATURE QAF WITH MEEM WITH HAH INITIAL FORM
+0FDB5	ARABIC LIGATURE LAM WITH HAH WITH MEEM INITIAL FORM
+0FDB6	ARABIC LIGATURE AIN WITH MEEM WITH YEH FINAL FORM
+0FDB7	ARABIC LIGATURE KAF WITH MEEM WITH YEH FINAL FORM
+0FDB8	ARABIC LIGATURE NOON WITH JEEM WITH HAH INITIAL FORM
+0FDB9	ARABIC LIGATURE MEEM WITH KHAH WITH YEH FINAL FORM
+0FDBA	ARABIC LIGATURE LAM WITH JEEM WITH MEEM INITIAL FORM
+0FDBB	ARABIC LIGATURE KAF WITH MEEM WITH MEEM FINAL FORM
+0FDBC	ARABIC LIGATURE LAM WITH JEEM WITH MEEM FINAL FORM
+0FDBD	ARABIC LIGATURE NOON WITH JEEM WITH HAH FINAL FORM
+0FDBE	ARABIC LIGATURE JEEM WITH HAH WITH YEH FINAL FORM
+0FDBF	ARABIC LIGATURE HAH WITH JEEM WITH YEH FINAL FORM
+0FDC0	ARABIC LIGATURE MEEM WITH JEEM WITH YEH FINAL FORM
+0FDC1	ARABIC LIGATURE FEH WITH MEEM WITH YEH FINAL FORM
+0FDC2	ARABIC LIGATURE BEH WITH HAH WITH YEH FINAL FORM
+0FDC3	ARABIC LIGATURE KAF WITH MEEM WITH MEEM INITIAL FORM
+0FDC4	ARABIC LIGATURE AIN WITH JEEM WITH MEEM INITIAL FORM
+0FDC5	ARABIC LIGATURE SAD WITH MEEM WITH MEEM INITIAL FORM
+0FDC6	ARABIC LIGATURE SEEN WITH KHAH WITH YEH FINAL FORM
+0FDC7	ARABIC LIGATURE NOON WITH JEEM WITH YEH FINAL FORM
+0FDF0	ARABIC LIGATURE SALLA USED AS KORANIC STOP SIGN ISOLATED FORM
+0FDF1	ARABIC LIGATURE QALA USED AS KORANIC STOP SIGN ISOLATED FORM
+0FDF2	ARABIC LIGATURE ALLAH ISOLATED FORM
+0FDF3	ARABIC LIGATURE AKBAR ISOLATED FORM
+0FDF4	ARABIC LIGATURE MOHAMMAD ISOLATED FORM
+0FDF5	ARABIC LIGATURE SALAM ISOLATED FORM
+0FDF6	ARABIC LIGATURE RASOUL ISOLATED FORM
+0FDF7	ARABIC LIGATURE ALAYHE ISOLATED FORM
+0FDF8	ARABIC LIGATURE WASALLAM ISOLATED FORM
+0FDF9	ARABIC LIGATURE SALLA ISOLATED FORM
+0FDFA	ARABIC LIGATURE SALLALLAHOU ALAYHE WASALLAM
+0FDFB	ARABIC LIGATURE JALLAJALALOUHOU
+0FDFC	RIAL SIGN
+0FDFD	ARABIC LIGATURE BISMILLAH AR-RAHMAN AR-RAHEEM
+0FE00	VARIATION SELECTOR-1
+0FE00	VS1
+0FE01	VARIATION SELECTOR-2
+0FE01	VS2
+0FE02	VARIATION SELECTOR-3
+0FE02	VS3
+0FE03	VARIATION SELECTOR-4
+0FE03	VS4
+0FE04	VARIATION SELECTOR-5
+0FE04	VS5
+0FE05	VARIATION SELECTOR-6
+0FE05	VS6
+0FE06	VARIATION SELECTOR-7
+0FE06	VS7
+0FE07	VARIATION SELECTOR-8
+0FE07	VS8
+0FE08	VARIATION SELECTOR-9
+0FE08	VS9
+0FE09	VARIATION SELECTOR-10
+0FE09	VS10
+0FE0A	VARIATION SELECTOR-11
+0FE0A	VS11
+0FE0B	VARIATION SELECTOR-12
+0FE0B	VS12
+0FE0C	VARIATION SELECTOR-13
+0FE0C	VS13
+0FE0D	VARIATION SELECTOR-14
+0FE0D	VS14
+0FE0E	VARIATION SELECTOR-15
+0FE0E	VS15
+0FE0F	VARIATION SELECTOR-16
+0FE0F	VS16
+0FE10	PRESENTATION FORM FOR VERTICAL COMMA
+0FE11	PRESENTATION FORM FOR VERTICAL IDEOGRAPHIC COMMA
+0FE12	PRESENTATION FORM FOR VERTICAL IDEOGRAPHIC FULL STOP
+0FE13	PRESENTATION FORM FOR VERTICAL COLON
+0FE14	PRESENTATION FORM FOR VERTICAL SEMICOLON
+0FE15	PRESENTATION FORM FOR VERTICAL EXCLAMATION MARK
+0FE16	PRESENTATION FORM FOR VERTICAL QUESTION MARK
+0FE17	PRESENTATION FORM FOR VERTICAL LEFT WHITE LENTICULAR BRACKET
+0FE18	PRESENTATION FORM FOR VERTICAL RIGHT WHITE LENTICULAR BRACKET
+0FE18	PRESENTATION FORM FOR VERTICAL RIGHT WHITE LENTICULAR BRAKCET
+0FE19	PRESENTATION FORM FOR VERTICAL HORIZONTAL ELLIPSIS
+0FE20	COMBINING LIGATURE LEFT HALF
+0FE21	COMBINING LIGATURE RIGHT HALF
+0FE22	COMBINING DOUBLE TILDE LEFT HALF
+0FE23	COMBINING DOUBLE TILDE RIGHT HALF
+0FE24	COMBINING MACRON LEFT HALF
+0FE25	COMBINING MACRON RIGHT HALF
+0FE26	COMBINING CONJOINING MACRON
+0FE27	COMBINING LIGATURE LEFT HALF BELOW
+0FE28	COMBINING LIGATURE RIGHT HALF BELOW
+0FE29	COMBINING TILDE LEFT HALF BELOW
+0FE2A	COMBINING TILDE RIGHT HALF BELOW
+0FE2B	COMBINING MACRON LEFT HALF BELOW
+0FE2C	COMBINING MACRON RIGHT HALF BELOW
+0FE2D	COMBINING CONJOINING MACRON BELOW
+0FE2E	COMBINING CYRILLIC TITLO LEFT HALF
+0FE2F	COMBINING CYRILLIC TITLO RIGHT HALF
+0FE30	PRESENTATION FORM FOR VERTICAL TWO DOT LEADER
+0FE31	PRESENTATION FORM FOR VERTICAL EM DASH
+0FE32	PRESENTATION FORM FOR VERTICAL EN DASH
+0FE33	PRESENTATION FORM FOR VERTICAL LOW LINE
+0FE34	PRESENTATION FORM FOR VERTICAL WAVY LOW LINE
+0FE35	PRESENTATION FORM FOR VERTICAL LEFT PARENTHESIS
+0FE36	PRESENTATION FORM FOR VERTICAL RIGHT PARENTHESIS
+0FE37	PRESENTATION FORM FOR VERTICAL LEFT CURLY BRACKET
+0FE38	PRESENTATION FORM FOR VERTICAL RIGHT CURLY BRACKET
+0FE39	PRESENTATION FORM FOR VERTICAL LEFT TORTOISE SHELL BRACKET
+0FE3A	PRESENTATION FORM FOR VERTICAL RIGHT TORTOISE SHELL BRACKET
+0FE3B	PRESENTATION FORM FOR VERTICAL LEFT BLACK LENTICULAR BRACKET
+0FE3C	PRESENTATION FORM FOR VERTICAL RIGHT BLACK LENTICULAR BRACKET
+0FE3D	PRESENTATION FORM FOR VERTICAL LEFT DOUBLE ANGLE BRACKET
+0FE3E	PRESENTATION FORM FOR VERTICAL RIGHT DOUBLE ANGLE BRACKET
+0FE3F	PRESENTATION FORM FOR VERTICAL LEFT ANGLE BRACKET
+0FE40	PRESENTATION FORM FOR VERTICAL RIGHT ANGLE BRACKET
+0FE41	PRESENTATION FORM FOR VERTICAL LEFT CORNER BRACKET
+0FE42	PRESENTATION FORM FOR VERTICAL RIGHT CORNER BRACKET
+0FE43	PRESENTATION FORM FOR VERTICAL LEFT WHITE CORNER BRACKET
+0FE44	PRESENTATION FORM FOR VERTICAL RIGHT WHITE CORNER BRACKET
+0FE45	SESAME DOT
+0FE46	WHITE SESAME DOT
+0FE47	PRESENTATION FORM FOR VERTICAL LEFT SQUARE BRACKET
+0FE48	PRESENTATION FORM FOR VERTICAL RIGHT SQUARE BRACKET
+0FE49	DASHED OVERLINE
+0FE4A	CENTRELINE OVERLINE
+0FE4B	WAVY OVERLINE
+0FE4C	DOUBLE WAVY OVERLINE
+0FE4D	DASHED LOW LINE
+0FE4E	CENTRELINE LOW LINE
+0FE4F	WAVY LOW LINE
+0FE50	SMALL COMMA
+0FE51	SMALL IDEOGRAPHIC COMMA
+0FE52	SMALL FULL STOP
+0FE54	SMALL SEMICOLON
+0FE55	SMALL COLON
+0FE56	SMALL QUESTION MARK
+0FE57	SMALL EXCLAMATION MARK
+0FE58	SMALL EM DASH
+0FE59	SMALL LEFT PARENTHESIS
+0FE5A	SMALL RIGHT PARENTHESIS
+0FE5B	SMALL LEFT CURLY BRACKET
+0FE5C	SMALL RIGHT CURLY BRACKET
+0FE5D	SMALL LEFT TORTOISE SHELL BRACKET
+0FE5E	SMALL RIGHT TORTOISE SHELL BRACKET
+0FE5F	SMALL NUMBER SIGN
+0FE60	SMALL AMPERSAND
+0FE61	SMALL ASTERISK
+0FE62	SMALL PLUS SIGN
+0FE63	SMALL HYPHEN-MINUS
+0FE64	SMALL LESS-THAN SIGN
+0FE65	SMALL GREATER-THAN SIGN
+0FE66	SMALL EQUALS SIGN
+0FE68	SMALL REVERSE SOLIDUS
+0FE69	SMALL DOLLAR SIGN
+0FE6A	SMALL PERCENT SIGN
+0FE6B	SMALL COMMERCIAL AT
+0FE70	ARABIC FATHATAN ISOLATED FORM
+0FE71	ARABIC TATWEEL WITH FATHATAN ABOVE
+0FE72	ARABIC DAMMATAN ISOLATED FORM
+0FE73	ARABIC TAIL FRAGMENT
+0FE74	ARABIC KASRATAN ISOLATED FORM
+0FE76	ARABIC FATHA ISOLATED FORM
+0FE77	ARABIC FATHA MEDIAL FORM
+0FE78	ARABIC DAMMA ISOLATED FORM
+0FE79	ARABIC DAMMA MEDIAL FORM
+0FE7A	ARABIC KASRA ISOLATED FORM
+0FE7B	ARABIC KASRA MEDIAL FORM
+0FE7C	ARABIC SHADDA ISOLATED FORM
+0FE7D	ARABIC SHADDA MEDIAL FORM
+0FE7E	ARABIC SUKUN ISOLATED FORM
+0FE7F	ARABIC SUKUN MEDIAL FORM
+0FE80	ARABIC LETTER HAMZA ISOLATED FORM
+0FE81	ARABIC LETTER ALEF WITH MADDA ABOVE ISOLATED FORM
+0FE82	ARABIC LETTER ALEF WITH MADDA ABOVE FINAL FORM
+0FE83	ARABIC LETTER ALEF WITH HAMZA ABOVE ISOLATED FORM
+0FE84	ARABIC LETTER ALEF WITH HAMZA ABOVE FINAL FORM
+0FE85	ARABIC LETTER WAW WITH HAMZA ABOVE ISOLATED FORM
+0FE86	ARABIC LETTER WAW WITH HAMZA ABOVE FINAL FORM
+0FE87	ARABIC LETTER ALEF WITH HAMZA BELOW ISOLATED FORM
+0FE88	ARABIC LETTER ALEF WITH HAMZA BELOW FINAL FORM
+0FE89	ARABIC LETTER YEH WITH HAMZA ABOVE ISOLATED FORM
+0FE8A	ARABIC LETTER YEH WITH HAMZA ABOVE FINAL FORM
+0FE8B	ARABIC LETTER YEH WITH HAMZA ABOVE INITIAL FORM
+0FE8C	ARABIC LETTER YEH WITH HAMZA ABOVE MEDIAL FORM
+0FE8D	ARABIC LETTER ALEF ISOLATED FORM
+0FE8E	ARABIC LETTER ALEF FINAL FORM
+0FE8F	ARABIC LETTER BEH ISOLATED FORM
+0FE90	ARABIC LETTER BEH FINAL FORM
+0FE91	ARABIC LETTER BEH INITIAL FORM
+0FE92	ARABIC LETTER BEH MEDIAL FORM
+0FE93	ARABIC LETTER TEH MARBUTA ISOLATED FORM
+0FE94	ARABIC LETTER TEH MARBUTA FINAL FORM
+0FE95	ARABIC LETTER TEH ISOLATED FORM
+0FE96	ARABIC LETTER TEH FINAL FORM
+0FE97	ARABIC LETTER TEH INITIAL FORM
+0FE98	ARABIC LETTER TEH MEDIAL FORM
+0FE99	ARABIC LETTER THEH ISOLATED FORM
+0FE9A	ARABIC LETTER THEH FINAL FORM
+0FE9B	ARABIC LETTER THEH INITIAL FORM
+0FE9C	ARABIC LETTER THEH MEDIAL FORM
+0FE9D	ARABIC LETTER JEEM ISOLATED FORM
+0FE9E	ARABIC LETTER JEEM FINAL FORM
+0FE9F	ARABIC LETTER JEEM INITIAL FORM
+0FEA0	ARABIC LETTER JEEM MEDIAL FORM
+0FEA1	ARABIC LETTER HAH ISOLATED FORM
+0FEA2	ARABIC LETTER HAH FINAL FORM
+0FEA3	ARABIC LETTER HAH INITIAL FORM
+0FEA4	ARABIC LETTER HAH MEDIAL FORM
+0FEA5	ARABIC LETTER KHAH ISOLATED FORM
+0FEA6	ARABIC LETTER KHAH FINAL FORM
+0FEA7	ARABIC LETTER KHAH INITIAL FORM
+0FEA8	ARABIC LETTER KHAH MEDIAL FORM
+0FEA9	ARABIC LETTER DAL ISOLATED FORM
+0FEAA	ARABIC LETTER DAL FINAL FORM
+0FEAB	ARABIC LETTER THAL ISOLATED FORM
+0FEAC	ARABIC LETTER THAL FINAL FORM
+0FEAD	ARABIC LETTER REH ISOLATED FORM
+0FEAE	ARABIC LETTER REH FINAL FORM
+0FEAF	ARABIC LETTER ZAIN ISOLATED FORM
+0FEB0	ARABIC LETTER ZAIN FINAL FORM
+0FEB1	ARABIC LETTER SEEN ISOLATED FORM
+0FEB2	ARABIC LETTER SEEN FINAL FORM
+0FEB3	ARABIC LETTER SEEN INITIAL FORM
+0FEB4	ARABIC LETTER SEEN MEDIAL FORM
+0FEB5	ARABIC LETTER SHEEN ISOLATED FORM
+0FEB6	ARABIC LETTER SHEEN FINAL FORM
+0FEB7	ARABIC LETTER SHEEN INITIAL FORM
+0FEB8	ARABIC LETTER SHEEN MEDIAL FORM
+0FEB9	ARABIC LETTER SAD ISOLATED FORM
+0FEBA	ARABIC LETTER SAD FINAL FORM
+0FEBB	ARABIC LETTER SAD INITIAL FORM
+0FEBC	ARABIC LETTER SAD MEDIAL FORM
+0FEBD	ARABIC LETTER DAD ISOLATED FORM
+0FEBE	ARABIC LETTER DAD FINAL FORM
+0FEBF	ARABIC LETTER DAD INITIAL FORM
+0FEC0	ARABIC LETTER DAD MEDIAL FORM
+0FEC1	ARABIC LETTER TAH ISOLATED FORM
+0FEC2	ARABIC LETTER TAH FINAL FORM
+0FEC3	ARABIC LETTER TAH INITIAL FORM
+0FEC4	ARABIC LETTER TAH MEDIAL FORM
+0FEC5	ARABIC LETTER ZAH ISOLATED FORM
+0FEC6	ARABIC LETTER ZAH FINAL FORM
+0FEC7	ARABIC LETTER ZAH INITIAL FORM
+0FEC8	ARABIC LETTER ZAH MEDIAL FORM
+0FEC9	ARABIC LETTER AIN ISOLATED FORM
+0FECA	ARABIC LETTER AIN FINAL FORM
+0FECB	ARABIC LETTER AIN INITIAL FORM
+0FECC	ARABIC LETTER AIN MEDIAL FORM
+0FECD	ARABIC LETTER GHAIN ISOLATED FORM
+0FECE	ARABIC LETTER GHAIN FINAL FORM
+0FECF	ARABIC LETTER GHAIN INITIAL FORM
+0FED0	ARABIC LETTER GHAIN MEDIAL FORM
+0FED1	ARABIC LETTER FEH ISOLATED FORM
+0FED2	ARABIC LETTER FEH FINAL FORM
+0FED3	ARABIC LETTER FEH INITIAL FORM
+0FED4	ARABIC LETTER FEH MEDIAL FORM
+0FED5	ARABIC LETTER QAF ISOLATED FORM
+0FED6	ARABIC LETTER QAF FINAL FORM
+0FED7	ARABIC LETTER QAF INITIAL FORM
+0FED8	ARABIC LETTER QAF MEDIAL FORM
+0FED9	ARABIC LETTER KAF ISOLATED FORM
+0FEDA	ARABIC LETTER KAF FINAL FORM
+0FEDB	ARABIC LETTER KAF INITIAL FORM
+0FEDC	ARABIC LETTER KAF MEDIAL FORM
+0FEDD	ARABIC LETTER LAM ISOLATED FORM
+0FEDE	ARABIC LETTER LAM FINAL FORM
+0FEDF	ARABIC LETTER LAM INITIAL FORM
+0FEE0	ARABIC LETTER LAM MEDIAL FORM
+0FEE1	ARABIC LETTER MEEM ISOLATED FORM
+0FEE2	ARABIC LETTER MEEM FINAL FORM
+0FEE3	ARABIC LETTER MEEM INITIAL FORM
+0FEE4	ARABIC LETTER MEEM MEDIAL FORM
+0FEE5	ARABIC LETTER NOON ISOLATED FORM
+0FEE6	ARABIC LETTER NOON FINAL FORM
+0FEE7	ARABIC LETTER NOON INITIAL FORM
+0FEE8	ARABIC LETTER NOON MEDIAL FORM
+0FEE9	ARABIC LETTER HEH ISOLATED FORM
+0FEEA	ARABIC LETTER HEH FINAL FORM
+0FEEB	ARABIC LETTER HEH INITIAL FORM
+0FEEC	ARABIC LETTER HEH MEDIAL FORM
+0FEED	ARABIC LETTER WAW ISOLATED FORM
+0FEEE	ARABIC LETTER WAW FINAL FORM
+0FEEF	ARABIC LETTER ALEF MAKSURA ISOLATED FORM
+0FEF0	ARABIC LETTER ALEF MAKSURA FINAL FORM
+0FEF1	ARABIC LETTER YEH ISOLATED FORM
+0FEF2	ARABIC LETTER YEH FINAL FORM
+0FEF3	ARABIC LETTER YEH INITIAL FORM
+0FEF4	ARABIC LETTER YEH MEDIAL FORM
+0FEF5	ARABIC LIGATURE LAM WITH ALEF WITH MADDA ABOVE ISOLATED FORM
+0FEF6	ARABIC LIGATURE LAM WITH ALEF WITH MADDA ABOVE FINAL FORM
+0FEF7	ARABIC LIGATURE LAM WITH ALEF WITH HAMZA ABOVE ISOLATED FORM
+0FEF8	ARABIC LIGATURE LAM WITH ALEF WITH HAMZA ABOVE FINAL FORM
+0FEF9	ARABIC LIGATURE LAM WITH ALEF WITH HAMZA BELOW ISOLATED FORM
+0FEFA	ARABIC LIGATURE LAM WITH ALEF WITH HAMZA BELOW FINAL FORM
+0FEFB	ARABIC LIGATURE LAM WITH ALEF ISOLATED FORM
+0FEFC	ARABIC LIGATURE LAM WITH ALEF FINAL FORM
+0FEFF	ZERO WIDTH NO-BREAK SPACE
+0FEFF	BYTE ORDER MARK
+0FEFF	BOM
+0FEFF	ZWNBSP
+0FF01	FULLWIDTH EXCLAMATION MARK
+0FF02	FULLWIDTH QUOTATION MARK
+0FF03	FULLWIDTH NUMBER SIGN
+0FF04	FULLWIDTH DOLLAR SIGN
+0FF05	FULLWIDTH PERCENT SIGN
+0FF06	FULLWIDTH AMPERSAND
+0FF07	FULLWIDTH APOSTROPHE
+0FF08	FULLWIDTH LEFT PARENTHESIS
+0FF09	FULLWIDTH RIGHT PARENTHESIS
+0FF0A	FULLWIDTH ASTERISK
+0FF0B	FULLWIDTH PLUS SIGN
+0FF0C	FULLWIDTH COMMA
+0FF0D	FULLWIDTH HYPHEN-MINUS
+0FF0E	FULLWIDTH FULL STOP
+0FF0F	FULLWIDTH SOLIDUS
+0FF10	FULLWIDTH DIGIT ZERO
+0FF11	FULLWIDTH DIGIT ONE
+0FF12	FULLWIDTH DIGIT TWO
+0FF13	FULLWIDTH DIGIT THREE
+0FF14	FULLWIDTH DIGIT FOUR
+0FF15	FULLWIDTH DIGIT FIVE
+0FF16	FULLWIDTH DIGIT SIX
+0FF17	FULLWIDTH DIGIT SEVEN
+0FF18	FULLWIDTH DIGIT EIGHT
+0FF19	FULLWIDTH DIGIT NINE
+0FF1A	FULLWIDTH COLON
+0FF1B	FULLWIDTH SEMICOLON
+0FF1C	FULLWIDTH LESS-THAN SIGN
+0FF1D	FULLWIDTH EQUALS SIGN
+0FF1E	FULLWIDTH GREATER-THAN SIGN
+0FF1F	FULLWIDTH QUESTION MARK
+0FF20	FULLWIDTH COMMERCIAL AT
+0FF21	FULLWIDTH LATIN CAPITAL LETTER A
+0FF22	FULLWIDTH LATIN CAPITAL LETTER B
+0FF23	FULLWIDTH LATIN CAPITAL LETTER C
+0FF24	FULLWIDTH LATIN CAPITAL LETTER D
+0FF25	FULLWIDTH LATIN CAPITAL LETTER E
+0FF26	FULLWIDTH LATIN CAPITAL LETTER F
+0FF27	FULLWIDTH LATIN CAPITAL LETTER G
+0FF28	FULLWIDTH LATIN CAPITAL LETTER H
+0FF29	FULLWIDTH LATIN CAPITAL LETTER I
+0FF2A	FULLWIDTH LATIN CAPITAL LETTER J
+0FF2B	FULLWIDTH LATIN CAPITAL LETTER K
+0FF2C	FULLWIDTH LATIN CAPITAL LETTER L
+0FF2D	FULLWIDTH LATIN CAPITAL LETTER M
+0FF2E	FULLWIDTH LATIN CAPITAL LETTER N
+0FF2F	FULLWIDTH LATIN CAPITAL LETTER O
+0FF30	FULLWIDTH LATIN CAPITAL LETTER P
+0FF31	FULLWIDTH LATIN CAPITAL LETTER Q
+0FF32	FULLWIDTH LATIN CAPITAL LETTER R
+0FF33	FULLWIDTH LATIN CAPITAL LETTER S
+0FF34	FULLWIDTH LATIN CAPITAL LETTER T
+0FF35	FULLWIDTH LATIN CAPITAL LETTER U
+0FF36	FULLWIDTH LATIN CAPITAL LETTER V
+0FF37	FULLWIDTH LATIN CAPITAL LETTER W
+0FF38	FULLWIDTH LATIN CAPITAL LETTER X
+0FF39	FULLWIDTH LATIN CAPITAL LETTER Y
+0FF3A	FULLWIDTH LATIN CAPITAL LETTER Z
+0FF3B	FULLWIDTH LEFT SQUARE BRACKET
+0FF3C	FULLWIDTH REVERSE SOLIDUS
+0FF3D	FULLWIDTH RIGHT SQUARE BRACKET
+0FF3E	FULLWIDTH CIRCUMFLEX ACCENT
+0FF3F	FULLWIDTH LOW LINE
+0FF40	FULLWIDTH GRAVE ACCENT
+0FF41	FULLWIDTH LATIN SMALL LETTER A
+0FF42	FULLWIDTH LATIN SMALL LETTER B
+0FF43	FULLWIDTH LATIN SMALL LETTER C
+0FF44	FULLWIDTH LATIN SMALL LETTER D
+0FF45	FULLWIDTH LATIN SMALL LETTER E
+0FF46	FULLWIDTH LATIN SMALL LETTER F
+0FF47	FULLWIDTH LATIN SMALL LETTER G
+0FF48	FULLWIDTH LATIN SMALL LETTER H
+0FF49	FULLWIDTH LATIN SMALL LETTER I
+0FF4A	FULLWIDTH LATIN SMALL LETTER J
+0FF4B	FULLWIDTH LATIN SMALL LETTER K
+0FF4C	FULLWIDTH LATIN SMALL LETTER L
+0FF4D	FULLWIDTH LATIN SMALL LETTER M
+0FF4E	FULLWIDTH LATIN SMALL LETTER N
+0FF4F	FULLWIDTH LATIN SMALL LETTER O
+0FF50	FULLWIDTH LATIN SMALL LETTER P
+0FF51	FULLWIDTH LATIN SMALL LETTER Q
+0FF52	FULLWIDTH LATIN SMALL LETTER R
+0FF53	FULLWIDTH LATIN SMALL LETTER S
+0FF54	FULLWIDTH LATIN SMALL LETTER T
+0FF55	FULLWIDTH LATIN SMALL LETTER U
+0FF56	FULLWIDTH LATIN SMALL LETTER V
+0FF57	FULLWIDTH LATIN SMALL LETTER W
+0FF58	FULLWIDTH LATIN SMALL LETTER X
+0FF59	FULLWIDTH LATIN SMALL LETTER Y
+0FF5A	FULLWIDTH LATIN SMALL LETTER Z
+0FF5B	FULLWIDTH LEFT CURLY BRACKET
+0FF5C	FULLWIDTH VERTICAL LINE
+0FF5D	FULLWIDTH RIGHT CURLY BRACKET
+0FF5E	FULLWIDTH TILDE
+0FF5F	FULLWIDTH LEFT WHITE PARENTHESIS
+0FF60	FULLWIDTH RIGHT WHITE PARENTHESIS
+0FF61	HALFWIDTH IDEOGRAPHIC FULL STOP
+0FF62	HALFWIDTH LEFT CORNER BRACKET
+0FF63	HALFWIDTH RIGHT CORNER BRACKET
+0FF64	HALFWIDTH IDEOGRAPHIC COMMA
+0FF65	HALFWIDTH KATAKANA MIDDLE DOT
+0FF66	HALFWIDTH KATAKANA LETTER WO
+0FF67	HALFWIDTH KATAKANA LETTER SMALL A
+0FF68	HALFWIDTH KATAKANA LETTER SMALL I
+0FF69	HALFWIDTH KATAKANA LETTER SMALL U
+0FF6A	HALFWIDTH KATAKANA LETTER SMALL E
+0FF6B	HALFWIDTH KATAKANA LETTER SMALL O
+0FF6C	HALFWIDTH KATAKANA LETTER SMALL YA
+0FF6D	HALFWIDTH KATAKANA LETTER SMALL YU
+0FF6E	HALFWIDTH KATAKANA LETTER SMALL YO
+0FF6F	HALFWIDTH KATAKANA LETTER SMALL TU
+0FF70	HALFWIDTH KATAKANA-HIRAGANA PROLONGED SOUND MARK
+0FF71	HALFWIDTH KATAKANA LETTER A
+0FF72	HALFWIDTH KATAKANA LETTER I
+0FF73	HALFWIDTH KATAKANA LETTER U
+0FF74	HALFWIDTH KATAKANA LETTER E
+0FF75	HALFWIDTH KATAKANA LETTER O
+0FF76	HALFWIDTH KATAKANA LETTER KA
+0FF77	HALFWIDTH KATAKANA LETTER KI
+0FF78	HALFWIDTH KATAKANA LETTER KU
+0FF79	HALFWIDTH KATAKANA LETTER KE
+0FF7A	HALFWIDTH KATAKANA LETTER KO
+0FF7B	HALFWIDTH KATAKANA LETTER SA
+0FF7C	HALFWIDTH KATAKANA LETTER SI
+0FF7D	HALFWIDTH KATAKANA LETTER SU
+0FF7E	HALFWIDTH KATAKANA LETTER SE
+0FF7F	HALFWIDTH KATAKANA LETTER SO
+0FF80	HALFWIDTH KATAKANA LETTER TA
+0FF81	HALFWIDTH KATAKANA LETTER TI
+0FF82	HALFWIDTH KATAKANA LETTER TU
+0FF83	HALFWIDTH KATAKANA LETTER TE
+0FF84	HALFWIDTH KATAKANA LETTER TO
+0FF85	HALFWIDTH KATAKANA LETTER NA
+0FF86	HALFWIDTH KATAKANA LETTER NI
+0FF87	HALFWIDTH KATAKANA LETTER NU
+0FF88	HALFWIDTH KATAKANA LETTER NE
+0FF89	HALFWIDTH KATAKANA LETTER NO
+0FF8A	HALFWIDTH KATAKANA LETTER HA
+0FF8B	HALFWIDTH KATAKANA LETTER HI
+0FF8C	HALFWIDTH KATAKANA LETTER HU
+0FF8D	HALFWIDTH KATAKANA LETTER HE
+0FF8E	HALFWIDTH KATAKANA LETTER HO
+0FF8F	HALFWIDTH KATAKANA LETTER MA
+0FF90	HALFWIDTH KATAKANA LETTER MI
+0FF91	HALFWIDTH KATAKANA LETTER MU
+0FF92	HALFWIDTH KATAKANA LETTER ME
+0FF93	HALFWIDTH KATAKANA LETTER MO
+0FF94	HALFWIDTH KATAKANA LETTER YA
+0FF95	HALFWIDTH KATAKANA LETTER YU
+0FF96	HALFWIDTH KATAKANA LETTER YO
+0FF97	HALFWIDTH KATAKANA LETTER RA
+0FF98	HALFWIDTH KATAKANA LETTER RI
+0FF99	HALFWIDTH KATAKANA LETTER RU
+0FF9A	HALFWIDTH KATAKANA LETTER RE
+0FF9B	HALFWIDTH KATAKANA LETTER RO
+0FF9C	HALFWIDTH KATAKANA LETTER WA
+0FF9D	HALFWIDTH KATAKANA LETTER N
+0FF9E	HALFWIDTH KATAKANA VOICED SOUND MARK
+0FF9F	HALFWIDTH KATAKANA SEMI-VOICED SOUND MARK
+0FFA0	HALFWIDTH HANGUL FILLER
+0FFA1	HALFWIDTH HANGUL LETTER KIYEOK
+0FFA2	HALFWIDTH HANGUL LETTER SSANGKIYEOK
+0FFA3	HALFWIDTH HANGUL LETTER KIYEOK-SIOS
+0FFA4	HALFWIDTH HANGUL LETTER NIEUN
+0FFA5	HALFWIDTH HANGUL LETTER NIEUN-CIEUC
+0FFA6	HALFWIDTH HANGUL LETTER NIEUN-HIEUH
+0FFA7	HALFWIDTH HANGUL LETTER TIKEUT
+0FFA8	HALFWIDTH HANGUL LETTER SSANGTIKEUT
+0FFA9	HALFWIDTH HANGUL LETTER RIEUL
+0FFAA	HALFWIDTH HANGUL LETTER RIEUL-KIYEOK
+0FFAB	HALFWIDTH HANGUL LETTER RIEUL-MIEUM
+0FFAC	HALFWIDTH HANGUL LETTER RIEUL-PIEUP
+0FFAD	HALFWIDTH HANGUL LETTER RIEUL-SIOS
+0FFAE	HALFWIDTH HANGUL LETTER RIEUL-THIEUTH
+0FFAF	HALFWIDTH HANGUL LETTER RIEUL-PHIEUPH
+0FFB0	HALFWIDTH HANGUL LETTER RIEUL-HIEUH
+0FFB1	HALFWIDTH HANGUL LETTER MIEUM
+0FFB2	HALFWIDTH HANGUL LETTER PIEUP
+0FFB3	HALFWIDTH HANGUL LETTER SSANGPIEUP
+0FFB4	HALFWIDTH HANGUL LETTER PIEUP-SIOS
+0FFB5	HALFWIDTH HANGUL LETTER SIOS
+0FFB6	HALFWIDTH HANGUL LETTER SSANGSIOS
+0FFB7	HALFWIDTH HANGUL LETTER IEUNG
+0FFB8	HALFWIDTH HANGUL LETTER CIEUC
+0FFB9	HALFWIDTH HANGUL LETTER SSANGCIEUC
+0FFBA	HALFWIDTH HANGUL LETTER CHIEUCH
+0FFBB	HALFWIDTH HANGUL LETTER KHIEUKH
+0FFBC	HALFWIDTH HANGUL LETTER THIEUTH
+0FFBD	HALFWIDTH HANGUL LETTER PHIEUPH
+0FFBE	HALFWIDTH HANGUL LETTER HIEUH
+0FFC2	HALFWIDTH HANGUL LETTER A
+0FFC3	HALFWIDTH HANGUL LETTER AE
+0FFC4	HALFWIDTH HANGUL LETTER YA
+0FFC5	HALFWIDTH HANGUL LETTER YAE
+0FFC6	HALFWIDTH HANGUL LETTER EO
+0FFC7	HALFWIDTH HANGUL LETTER E
+0FFCA	HALFWIDTH HANGUL LETTER YEO
+0FFCB	HALFWIDTH HANGUL LETTER YE
+0FFCC	HALFWIDTH HANGUL LETTER O
+0FFCD	HALFWIDTH HANGUL LETTER WA
+0FFCE	HALFWIDTH HANGUL LETTER WAE
+0FFCF	HALFWIDTH HANGUL LETTER OE
+0FFD2	HALFWIDTH HANGUL LETTER YO
+0FFD3	HALFWIDTH HANGUL LETTER U
+0FFD4	HALFWIDTH HANGUL LETTER WEO
+0FFD5	HALFWIDTH HANGUL LETTER WE
+0FFD6	HALFWIDTH HANGUL LETTER WI
+0FFD7	HALFWIDTH HANGUL LETTER YU
+0FFDA	HALFWIDTH HANGUL LETTER EU
+0FFDB	HALFWIDTH HANGUL LETTER YI
+0FFDC	HALFWIDTH HANGUL LETTER I
+0FFE0	FULLWIDTH CENT SIGN
+0FFE1	FULLWIDTH POUND SIGN
+0FFE2	FULLWIDTH NOT SIGN
+0FFE3	FULLWIDTH MACRON
+0FFE4	FULLWIDTH BROKEN BAR
+0FFE5	FULLWIDTH YEN SIGN
+0FFE6	FULLWIDTH WON SIGN
+0FFE8	HALFWIDTH FORMS LIGHT VERTICAL
+0FFE9	HALFWIDTH LEFTWARDS ARROW
+0FFEA	HALFWIDTH UPWARDS ARROW
+0FFEB	HALFWIDTH RIGHTWARDS ARROW
+0FFEC	HALFWIDTH DOWNWARDS ARROW
+0FFED	HALFWIDTH BLACK SQUARE
+0FFEE	HALFWIDTH WHITE CIRCLE
+0FFF9	INTERLINEAR ANNOTATION ANCHOR
+0FFFA	INTERLINEAR ANNOTATION SEPARATOR
+0FFFB	INTERLINEAR ANNOTATION TERMINATOR
+0FFFC	OBJECT REPLACEMENT CHARACTER
+0FFFD	REPLACEMENT CHARACTER
+10000	LINEAR B SYLLABLE B008 A
+10001	LINEAR B SYLLABLE B038 E
+10002	LINEAR B SYLLABLE B028 I
+10003	LINEAR B SYLLABLE B061 O
+10004	LINEAR B SYLLABLE B010 U
+10005	LINEAR B SYLLABLE B001 DA
+10006	LINEAR B SYLLABLE B045 DE
+10007	LINEAR B SYLLABLE B007 DI
+10008	LINEAR B SYLLABLE B014 DO
+10009	LINEAR B SYLLABLE B051 DU
+1000A	LINEAR B SYLLABLE B057 JA
+1000B	LINEAR B SYLLABLE B046 JE
+1000D	LINEAR B SYLLABLE B036 JO
+1000E	LINEAR B SYLLABLE B065 JU
+1000F	LINEAR B SYLLABLE B077 KA
+10010	LINEAR B SYLLABLE B044 KE
+10011	LINEAR B SYLLABLE B067 KI
+10012	LINEAR B SYLLABLE B070 KO
+10013	LINEAR B SYLLABLE B081 KU
+10014	LINEAR B SYLLABLE B080 MA
+10015	LINEAR B SYLLABLE B013 ME
+10016	LINEAR B SYLLABLE B073 MI
+10017	LINEAR B SYLLABLE B015 MO
+10018	LINEAR B SYLLABLE B023 MU
+10019	LINEAR B SYLLABLE B006 NA
+1001A	LINEAR B SYLLABLE B024 NE
+1001B	LINEAR B SYLLABLE B030 NI
+1001C	LINEAR B SYLLABLE B052 NO
+1001D	LINEAR B SYLLABLE B055 NU
+1001E	LINEAR B SYLLABLE B003 PA
+1001F	LINEAR B SYLLABLE B072 PE
+10020	LINEAR B SYLLABLE B039 PI
+10021	LINEAR B SYLLABLE B011 PO
+10022	LINEAR B SYLLABLE B050 PU
+10023	LINEAR B SYLLABLE B016 QA
+10024	LINEAR B SYLLABLE B078 QE
+10025	LINEAR B SYLLABLE B021 QI
+10026	LINEAR B SYLLABLE B032 QO
+10028	LINEAR B SYLLABLE B060 RA
+10029	LINEAR B SYLLABLE B027 RE
+1002A	LINEAR B SYLLABLE B053 RI
+1002B	LINEAR B SYLLABLE B002 RO
+1002C	LINEAR B SYLLABLE B026 RU
+1002D	LINEAR B SYLLABLE B031 SA
+1002E	LINEAR B SYLLABLE B009 SE
+1002F	LINEAR B SYLLABLE B041 SI
+10030	LINEAR B SYLLABLE B012 SO
+10031	LINEAR B SYLLABLE B058 SU
+10032	LINEAR B SYLLABLE B059 TA
+10033	LINEAR B SYLLABLE B004 TE
+10034	LINEAR B SYLLABLE B037 TI
+10035	LINEAR B SYLLABLE B005 TO
+10036	LINEAR B SYLLABLE B069 TU
+10037	LINEAR B SYLLABLE B054 WA
+10038	LINEAR B SYLLABLE B075 WE
+10039	LINEAR B SYLLABLE B040 WI
+1003A	LINEAR B SYLLABLE B042 WO
+1003C	LINEAR B SYLLABLE B017 ZA
+1003D	LINEAR B SYLLABLE B074 ZE
+1003F	LINEAR B SYLLABLE B020 ZO
+10040	LINEAR B SYLLABLE B025 A2
+10041	LINEAR B SYLLABLE B043 A3
+10042	LINEAR B SYLLABLE B085 AU
+10043	LINEAR B SYLLABLE B071 DWE
+10044	LINEAR B SYLLABLE B090 DWO
+10045	LINEAR B SYLLABLE B048 NWA
+10046	LINEAR B SYLLABLE B029 PU2
+10047	LINEAR B SYLLABLE B062 PTE
+10048	LINEAR B SYLLABLE B076 RA2
+10049	LINEAR B SYLLABLE B033 RA3
+1004A	LINEAR B SYLLABLE B068 RO2
+1004B	LINEAR B SYLLABLE B066 TA2
+1004C	LINEAR B SYLLABLE B087 TWE
+1004D	LINEAR B SYLLABLE B091 TWO
+10050	LINEAR B SYMBOL B018
+10051	LINEAR B SYMBOL B019
+10052	LINEAR B SYMBOL B022
+10053	LINEAR B SYMBOL B034
+10054	LINEAR B SYMBOL B047
+10055	LINEAR B SYMBOL B049
+10056	LINEAR B SYMBOL B056
+10057	LINEAR B SYMBOL B063
+10058	LINEAR B SYMBOL B064
+10059	LINEAR B SYMBOL B079
+1005A	LINEAR B SYMBOL B082
+1005B	LINEAR B SYMBOL B083
+1005C	LINEAR B SYMBOL B086
+1005D	LINEAR B SYMBOL B089
+10080	LINEAR B IDEOGRAM B100 MAN
+10081	LINEAR B IDEOGRAM B102 WOMAN
+10082	LINEAR B IDEOGRAM B104 DEER
+10083	LINEAR B IDEOGRAM B105 EQUID
+10084	LINEAR B IDEOGRAM B105F MARE
+10085	LINEAR B IDEOGRAM B105M STALLION
+10086	LINEAR B IDEOGRAM B106F EWE
+10087	LINEAR B IDEOGRAM B106M RAM
+10088	LINEAR B IDEOGRAM B107F SHE-GOAT
+10089	LINEAR B IDEOGRAM B107M HE-GOAT
+1008A	LINEAR B IDEOGRAM B108F SOW
+1008B	LINEAR B IDEOGRAM B108M BOAR
+1008C	LINEAR B IDEOGRAM B109F COW
+1008D	LINEAR B IDEOGRAM B109M BULL
+1008E	LINEAR B IDEOGRAM B120 WHEAT
+1008F	LINEAR B IDEOGRAM B121 BARLEY
+10090	LINEAR B IDEOGRAM B122 OLIVE
+10091	LINEAR B IDEOGRAM B123 SPICE
+10092	LINEAR B IDEOGRAM B125 CYPERUS
+10093	LINEAR B MONOGRAM B127 KAPO
+10094	LINEAR B MONOGRAM B128 KANAKO
+10095	LINEAR B IDEOGRAM B130 OIL
+10096	LINEAR B IDEOGRAM B131 WINE
+10097	LINEAR B IDEOGRAM B132
+10098	LINEAR B MONOGRAM B133 AREPA
+10099	LINEAR B MONOGRAM B135 MERI
+1009A	LINEAR B IDEOGRAM B140 BRONZE
+1009B	LINEAR B IDEOGRAM B141 GOLD
+1009C	LINEAR B IDEOGRAM B142
+1009D	LINEAR B IDEOGRAM B145 WOOL
+1009E	LINEAR B IDEOGRAM B146
+1009F	LINEAR B IDEOGRAM B150
+100A0	LINEAR B IDEOGRAM B151 HORN
+100A1	LINEAR B IDEOGRAM B152
+100A2	LINEAR B IDEOGRAM B153
+100A3	LINEAR B IDEOGRAM B154
+100A4	LINEAR B MONOGRAM B156 TURO2
+100A5	LINEAR B IDEOGRAM B157
+100A6	LINEAR B IDEOGRAM B158
+100A7	LINEAR B IDEOGRAM B159 CLOTH
+100A8	LINEAR B IDEOGRAM B160
+100A9	LINEAR B IDEOGRAM B161
+100AA	LINEAR B IDEOGRAM B162 GARMENT
+100AB	LINEAR B IDEOGRAM B163 ARMOUR
+100AC	LINEAR B IDEOGRAM B164
+100AD	LINEAR B IDEOGRAM B165
+100AE	LINEAR B IDEOGRAM B166
+100AF	LINEAR B IDEOGRAM B167
+100B0	LINEAR B IDEOGRAM B168
+100B1	LINEAR B IDEOGRAM B169
+100B2	LINEAR B IDEOGRAM B170
+100B3	LINEAR B IDEOGRAM B171
+100B4	LINEAR B IDEOGRAM B172
+100B5	LINEAR B IDEOGRAM B173 MONTH
+100B6	LINEAR B IDEOGRAM B174
+100B7	LINEAR B IDEOGRAM B176 TREE
+100B8	LINEAR B IDEOGRAM B177
+100B9	LINEAR B IDEOGRAM B178
+100BA	LINEAR B IDEOGRAM B179
+100BB	LINEAR B IDEOGRAM B180
+100BC	LINEAR B IDEOGRAM B181
+100BD	LINEAR B IDEOGRAM B182
+100BE	LINEAR B IDEOGRAM B183
+100BF	LINEAR B IDEOGRAM B184
+100C0	LINEAR B IDEOGRAM B185
+100C1	LINEAR B IDEOGRAM B189
+100C2	LINEAR B IDEOGRAM B190
+100C3	LINEAR B IDEOGRAM B191 HELMET
+100C4	LINEAR B IDEOGRAM B220 FOOTSTOOL
+100C5	LINEAR B IDEOGRAM B225 BATHTUB
+100C6	LINEAR B IDEOGRAM B230 SPEAR
+100C7	LINEAR B IDEOGRAM B231 ARROW
+100C8	LINEAR B IDEOGRAM B232
+100C9	LINEAR B IDEOGRAM B233 SWORD
+100CA	LINEAR B IDEOGRAM B234
+100CB	LINEAR B IDEOGRAM B236
+100CC	LINEAR B IDEOGRAM B240 WHEELED CHARIOT
+100CD	LINEAR B IDEOGRAM B241 CHARIOT
+100CE	LINEAR B IDEOGRAM B242 CHARIOT FRAME
+100CF	LINEAR B IDEOGRAM B243 WHEEL
+100D0	LINEAR B IDEOGRAM B245
+100D1	LINEAR B IDEOGRAM B246
+100D2	LINEAR B MONOGRAM B247 DIPTE
+100D3	LINEAR B IDEOGRAM B248
+100D4	LINEAR B IDEOGRAM B249
+100D5	LINEAR B IDEOGRAM B251
+100D6	LINEAR B IDEOGRAM B252
+100D7	LINEAR B IDEOGRAM B253
+100D8	LINEAR B IDEOGRAM B254 DART
+100D9	LINEAR B IDEOGRAM B255
+100DA	LINEAR B IDEOGRAM B256
+100DB	LINEAR B IDEOGRAM B257
+100DC	LINEAR B IDEOGRAM B258
+100DD	LINEAR B IDEOGRAM B259
+100DE	LINEAR B IDEOGRAM VESSEL B155
+100DF	LINEAR B IDEOGRAM VESSEL B200
+100E0	LINEAR B IDEOGRAM VESSEL B201
+100E1	LINEAR B IDEOGRAM VESSEL B202
+100E2	LINEAR B IDEOGRAM VESSEL B203
+100E3	LINEAR B IDEOGRAM VESSEL B204
+100E4	LINEAR B IDEOGRAM VESSEL B205
+100E5	LINEAR B IDEOGRAM VESSEL B206
+100E6	LINEAR B IDEOGRAM VESSEL B207
+100E7	LINEAR B IDEOGRAM VESSEL B208
+100E8	LINEAR B IDEOGRAM VESSEL B209
+100E9	LINEAR B IDEOGRAM VESSEL B210
+100EA	LINEAR B IDEOGRAM VESSEL B211
+100EB	LINEAR B IDEOGRAM VESSEL B212
+100EC	LINEAR B IDEOGRAM VESSEL B213
+100ED	LINEAR B IDEOGRAM VESSEL B214
+100EE	LINEAR B IDEOGRAM VESSEL B215
+100EF	LINEAR B IDEOGRAM VESSEL B216
+100F0	LINEAR B IDEOGRAM VESSEL B217
+100F1	LINEAR B IDEOGRAM VESSEL B218
+100F2	LINEAR B IDEOGRAM VESSEL B219
+100F3	LINEAR B IDEOGRAM VESSEL B221
+100F4	LINEAR B IDEOGRAM VESSEL B222
+100F5	LINEAR B IDEOGRAM VESSEL B226
+100F6	LINEAR B IDEOGRAM VESSEL B227
+100F7	LINEAR B IDEOGRAM VESSEL B228
+100F8	LINEAR B IDEOGRAM VESSEL B229
+100F9	LINEAR B IDEOGRAM VESSEL B250
+100FA	LINEAR B IDEOGRAM VESSEL B305
+10100	AEGEAN WORD SEPARATOR LINE
+10101	AEGEAN WORD SEPARATOR DOT
+10102	AEGEAN CHECK MARK
+10107	AEGEAN NUMBER ONE
+10108	AEGEAN NUMBER TWO
+10109	AEGEAN NUMBER THREE
+1010A	AEGEAN NUMBER FOUR
+1010B	AEGEAN NUMBER FIVE
+1010C	AEGEAN NUMBER SIX
+1010D	AEGEAN NUMBER SEVEN
+1010E	AEGEAN NUMBER EIGHT
+1010F	AEGEAN NUMBER NINE
+10110	AEGEAN NUMBER TEN
+10111	AEGEAN NUMBER TWENTY
+10112	AEGEAN NUMBER THIRTY
+10113	AEGEAN NUMBER FORTY
+10114	AEGEAN NUMBER FIFTY
+10115	AEGEAN NUMBER SIXTY
+10116	AEGEAN NUMBER SEVENTY
+10117	AEGEAN NUMBER EIGHTY
+10118	AEGEAN NUMBER NINETY
+10119	AEGEAN NUMBER ONE HUNDRED
+1011A	AEGEAN NUMBER TWO HUNDRED
+1011B	AEGEAN NUMBER THREE HUNDRED
+1011C	AEGEAN NUMBER FOUR HUNDRED
+1011D	AEGEAN NUMBER FIVE HUNDRED
+1011E	AEGEAN NUMBER SIX HUNDRED
+1011F	AEGEAN NUMBER SEVEN HUNDRED
+10120	AEGEAN NUMBER EIGHT HUNDRED
+10121	AEGEAN NUMBER NINE HUNDRED
+10122	AEGEAN NUMBER ONE THOUSAND
+10123	AEGEAN NUMBER TWO THOUSAND
+10124	AEGEAN NUMBER THREE THOUSAND
+10125	AEGEAN NUMBER FOUR THOUSAND
+10126	AEGEAN NUMBER FIVE THOUSAND
+10127	AEGEAN NUMBER SIX THOUSAND
+10128	AEGEAN NUMBER SEVEN THOUSAND
+10129	AEGEAN NUMBER EIGHT THOUSAND
+1012A	AEGEAN NUMBER NINE THOUSAND
+1012B	AEGEAN NUMBER TEN THOUSAND
+1012C	AEGEAN NUMBER TWENTY THOUSAND
+1012D	AEGEAN NUMBER THIRTY THOUSAND
+1012E	AEGEAN NUMBER FORTY THOUSAND
+1012F	AEGEAN NUMBER FIFTY THOUSAND
+10130	AEGEAN NUMBER SIXTY THOUSAND
+10131	AEGEAN NUMBER SEVENTY THOUSAND
+10132	AEGEAN NUMBER EIGHTY THOUSAND
+10133	AEGEAN NUMBER NINETY THOUSAND
+10137	AEGEAN WEIGHT BASE UNIT
+10138	AEGEAN WEIGHT FIRST SUBUNIT
+10139	AEGEAN WEIGHT SECOND SUBUNIT
+1013A	AEGEAN WEIGHT THIRD SUBUNIT
+1013B	AEGEAN WEIGHT FOURTH SUBUNIT
+1013C	AEGEAN DRY MEASURE FIRST SUBUNIT
+1013D	AEGEAN LIQUID MEASURE FIRST SUBUNIT
+1013E	AEGEAN MEASURE SECOND SUBUNIT
+1013F	AEGEAN MEASURE THIRD SUBUNIT
+10140	GREEK ACROPHONIC ATTIC ONE QUARTER
+10141	GREEK ACROPHONIC ATTIC ONE HALF
+10142	GREEK ACROPHONIC ATTIC ONE DRACHMA
+10143	GREEK ACROPHONIC ATTIC FIVE
+10144	GREEK ACROPHONIC ATTIC FIFTY
+10145	GREEK ACROPHONIC ATTIC FIVE HUNDRED
+10146	GREEK ACROPHONIC ATTIC FIVE THOUSAND
+10147	GREEK ACROPHONIC ATTIC FIFTY THOUSAND
+10148	GREEK ACROPHONIC ATTIC FIVE TALENTS
+10149	GREEK ACROPHONIC ATTIC TEN TALENTS
+1014A	GREEK ACROPHONIC ATTIC FIFTY TALENTS
+1014B	GREEK ACROPHONIC ATTIC ONE HUNDRED TALENTS
+1014C	GREEK ACROPHONIC ATTIC FIVE HUNDRED TALENTS
+1014D	GREEK ACROPHONIC ATTIC ONE THOUSAND TALENTS
+1014E	GREEK ACROPHONIC ATTIC FIVE THOUSAND TALENTS
+1014F	GREEK ACROPHONIC ATTIC FIVE STATERS
+10150	GREEK ACROPHONIC ATTIC TEN STATERS
+10151	GREEK ACROPHONIC ATTIC FIFTY STATERS
+10152	GREEK ACROPHONIC ATTIC ONE HUNDRED STATERS
+10153	GREEK ACROPHONIC ATTIC FIVE HUNDRED STATERS
+10154	GREEK ACROPHONIC ATTIC ONE THOUSAND STATERS
+10155	GREEK ACROPHONIC ATTIC TEN THOUSAND STATERS
+10156	GREEK ACROPHONIC ATTIC FIFTY THOUSAND STATERS
+10157	GREEK ACROPHONIC ATTIC TEN MNAS
+10158	GREEK ACROPHONIC HERAEUM ONE PLETHRON
+10159	GREEK ACROPHONIC THESPIAN ONE
+1015A	GREEK ACROPHONIC HERMIONIAN ONE
+1015B	GREEK ACROPHONIC EPIDAUREAN TWO
+1015C	GREEK ACROPHONIC THESPIAN TWO
+1015D	GREEK ACROPHONIC CYRENAIC TWO DRACHMAS
+1015E	GREEK ACROPHONIC EPIDAUREAN TWO DRACHMAS
+1015F	GREEK ACROPHONIC TROEZENIAN FIVE
+10160	GREEK ACROPHONIC TROEZENIAN TEN
+10161	GREEK ACROPHONIC TROEZENIAN TEN ALTERNATE FORM
+10162	GREEK ACROPHONIC HERMIONIAN TEN
+10163	GREEK ACROPHONIC MESSENIAN TEN
+10164	GREEK ACROPHONIC THESPIAN TEN
+10165	GREEK ACROPHONIC THESPIAN THIRTY
+10166	GREEK ACROPHONIC TROEZENIAN FIFTY
+10167	GREEK ACROPHONIC TROEZENIAN FIFTY ALTERNATE FORM
+10168	GREEK ACROPHONIC HERMIONIAN FIFTY
+10169	GREEK ACROPHONIC THESPIAN FIFTY
+1016A	GREEK ACROPHONIC THESPIAN ONE HUNDRED
+1016B	GREEK ACROPHONIC THESPIAN THREE HUNDRED
+1016C	GREEK ACROPHONIC EPIDAUREAN FIVE HUNDRED
+1016D	GREEK ACROPHONIC TROEZENIAN FIVE HUNDRED
+1016E	GREEK ACROPHONIC THESPIAN FIVE HUNDRED
+1016F	GREEK ACROPHONIC CARYSTIAN FIVE HUNDRED
+10170	GREEK ACROPHONIC NAXIAN FIVE HUNDRED
+10171	GREEK ACROPHONIC THESPIAN ONE THOUSAND
+10172	GREEK ACROPHONIC THESPIAN FIVE THOUSAND
+10173	GREEK ACROPHONIC DELPHIC FIVE MNAS
+10174	GREEK ACROPHONIC STRATIAN FIFTY MNAS
+10175	GREEK ONE HALF SIGN
+10176	GREEK ONE HALF SIGN ALTERNATE FORM
+10177	GREEK TWO THIRDS SIGN
+10178	GREEK THREE QUARTERS SIGN
+10179	GREEK YEAR SIGN
+1017A	GREEK TALENT SIGN
+1017B	GREEK DRACHMA SIGN
+1017C	GREEK OBOL SIGN
+1017D	GREEK TWO OBOLS SIGN
+1017E	GREEK THREE OBOLS SIGN
+1017F	GREEK FOUR OBOLS SIGN
+10180	GREEK FIVE OBOLS SIGN
+10181	GREEK METRETES SIGN
+10182	GREEK KYATHOS BASE SIGN
+10183	GREEK LITRA SIGN
+10184	GREEK OUNKIA SIGN
+10185	GREEK XESTES SIGN
+10186	GREEK ARTABE SIGN
+10187	GREEK AROURA SIGN
+10188	GREEK GRAMMA SIGN
+10189	GREEK TRYBLION BASE SIGN
+1018A	GREEK ZERO SIGN
+1018B	GREEK ONE QUARTER SIGN
+1018C	GREEK SINUSOID SIGN
+10190	ROMAN SEXTANS SIGN
+10191	ROMAN UNCIA SIGN
+10192	ROMAN SEMUNCIA SIGN
+10193	ROMAN SEXTULA SIGN
+10194	ROMAN DIMIDIA SEXTULA SIGN
+10195	ROMAN SILIQUA SIGN
+10196	ROMAN DENARIUS SIGN
+10197	ROMAN QUINARIUS SIGN
+10198	ROMAN SESTERTIUS SIGN
+10199	ROMAN DUPONDIUS SIGN
+1019A	ROMAN AS SIGN
+1019B	ROMAN CENTURIAL SIGN
+101A0	GREEK SYMBOL TAU RHO
+101D0	PHAISTOS DISC SIGN PEDESTRIAN
+101D1	PHAISTOS DISC SIGN PLUMED HEAD
+101D2	PHAISTOS DISC SIGN TATTOOED HEAD
+101D3	PHAISTOS DISC SIGN CAPTIVE
+101D4	PHAISTOS DISC SIGN CHILD
+101D5	PHAISTOS DISC SIGN WOMAN
+101D6	PHAISTOS DISC SIGN HELMET
+101D7	PHAISTOS DISC SIGN GAUNTLET
+101D8	PHAISTOS DISC SIGN TIARA
+101D9	PHAISTOS DISC SIGN ARROW
+101DA	PHAISTOS DISC SIGN BOW
+101DB	PHAISTOS DISC SIGN SHIELD
+101DC	PHAISTOS DISC SIGN CLUB
+101DD	PHAISTOS DISC SIGN MANACLES
+101DE	PHAISTOS DISC SIGN MATTOCK
+101DF	PHAISTOS DISC SIGN SAW
+101E0	PHAISTOS DISC SIGN LID
+101E1	PHAISTOS DISC SIGN BOOMERANG
+101E2	PHAISTOS DISC SIGN CARPENTRY PLANE
+101E3	PHAISTOS DISC SIGN DOLIUM
+101E4	PHAISTOS DISC SIGN COMB
+101E5	PHAISTOS DISC SIGN SLING
+101E6	PHAISTOS DISC SIGN COLUMN
+101E7	PHAISTOS DISC SIGN BEEHIVE
+101E8	PHAISTOS DISC SIGN SHIP
+101E9	PHAISTOS DISC SIGN HORN
+101EA	PHAISTOS DISC SIGN HIDE
+101EB	PHAISTOS DISC SIGN BULLS LEG
+101EC	PHAISTOS DISC SIGN CAT
+101ED	PHAISTOS DISC SIGN RAM
+101EE	PHAISTOS DISC SIGN EAGLE
+101EF	PHAISTOS DISC SIGN DOVE
+101F0	PHAISTOS DISC SIGN TUNNY
+101F1	PHAISTOS DISC SIGN BEE
+101F2	PHAISTOS DISC SIGN PLANE TREE
+101F3	PHAISTOS DISC SIGN VINE
+101F4	PHAISTOS DISC SIGN PAPYRUS
+101F5	PHAISTOS DISC SIGN ROSETTE
+101F6	PHAISTOS DISC SIGN LILY
+101F7	PHAISTOS DISC SIGN OX BACK
+101F8	PHAISTOS DISC SIGN FLUTE
+101F9	PHAISTOS DISC SIGN GRATER
+101FA	PHAISTOS DISC SIGN STRAINER
+101FB	PHAISTOS DISC SIGN SMALL AXE
+101FC	PHAISTOS DISC SIGN WAVY BAND
+101FD	PHAISTOS DISC SIGN COMBINING OBLIQUE STROKE
+10280	LYCIAN LETTER A
+10281	LYCIAN LETTER E
+10282	LYCIAN LETTER B
+10283	LYCIAN LETTER BH
+10284	LYCIAN LETTER G
+10285	LYCIAN LETTER D
+10286	LYCIAN LETTER I
+10287	LYCIAN LETTER W
+10288	LYCIAN LETTER Z
+10289	LYCIAN LETTER TH
+1028A	LYCIAN LETTER J
+1028B	LYCIAN LETTER K
+1028C	LYCIAN LETTER Q
+1028D	LYCIAN LETTER L
+1028E	LYCIAN LETTER M
+1028F	LYCIAN LETTER N
+10290	LYCIAN LETTER MM
+10291	LYCIAN LETTER NN
+10292	LYCIAN LETTER U
+10293	LYCIAN LETTER P
+10294	LYCIAN LETTER KK
+10295	LYCIAN LETTER R
+10296	LYCIAN LETTER S
+10297	LYCIAN LETTER T
+10298	LYCIAN LETTER TT
+10299	LYCIAN LETTER AN
+1029A	LYCIAN LETTER EN
+1029B	LYCIAN LETTER H
+1029C	LYCIAN LETTER X
+102A0	CARIAN LETTER A
+102A1	CARIAN LETTER P2
+102A2	CARIAN LETTER D
+102A3	CARIAN LETTER L
+102A4	CARIAN LETTER UUU
+102A5	CARIAN LETTER R
+102A6	CARIAN LETTER LD
+102A7	CARIAN LETTER A2
+102A8	CARIAN LETTER Q
+102A9	CARIAN LETTER B
+102AA	CARIAN LETTER M
+102AB	CARIAN LETTER O
+102AC	CARIAN LETTER D2
+102AD	CARIAN LETTER T
+102AE	CARIAN LETTER SH
+102AF	CARIAN LETTER SH2
+102B0	CARIAN LETTER S
+102B1	CARIAN LETTER C-18
+102B2	CARIAN LETTER U
+102B3	CARIAN LETTER NN
+102B4	CARIAN LETTER X
+102B5	CARIAN LETTER N
+102B6	CARIAN LETTER TT2
+102B7	CARIAN LETTER P
+102B8	CARIAN LETTER SS
+102B9	CARIAN LETTER I
+102BA	CARIAN LETTER E
+102BB	CARIAN LETTER UUUU
+102BC	CARIAN LETTER K
+102BD	CARIAN LETTER K2
+102BE	CARIAN LETTER ND
+102BF	CARIAN LETTER UU
+102C0	CARIAN LETTER G
+102C1	CARIAN LETTER G2
+102C2	CARIAN LETTER ST
+102C3	CARIAN LETTER ST2
+102C4	CARIAN LETTER NG
+102C5	CARIAN LETTER II
+102C6	CARIAN LETTER C-39
+102C7	CARIAN LETTER TT
+102C8	CARIAN LETTER UUU2
+102C9	CARIAN LETTER RR
+102CA	CARIAN LETTER MB
+102CB	CARIAN LETTER MB2
+102CC	CARIAN LETTER MB3
+102CD	CARIAN LETTER MB4
+102CE	CARIAN LETTER LD2
+102CF	CARIAN LETTER E2
+102D0	CARIAN LETTER UUU3
+102E0	COPTIC EPACT THOUSANDS MARK
+102E1	COPTIC EPACT DIGIT ONE
+102E2	COPTIC EPACT DIGIT TWO
+102E3	COPTIC EPACT DIGIT THREE
+102E4	COPTIC EPACT DIGIT FOUR
+102E5	COPTIC EPACT DIGIT FIVE
+102E6	COPTIC EPACT DIGIT SIX
+102E7	COPTIC EPACT DIGIT SEVEN
+102E8	COPTIC EPACT DIGIT EIGHT
+102E9	COPTIC EPACT DIGIT NINE
+102EA	COPTIC EPACT NUMBER TEN
+102EB	COPTIC EPACT NUMBER TWENTY
+102EC	COPTIC EPACT NUMBER THIRTY
+102ED	COPTIC EPACT NUMBER FORTY
+102EE	COPTIC EPACT NUMBER FIFTY
+102EF	COPTIC EPACT NUMBER SIXTY
+102F0	COPTIC EPACT NUMBER SEVENTY
+102F1	COPTIC EPACT NUMBER EIGHTY
+102F2	COPTIC EPACT NUMBER NINETY
+102F3	COPTIC EPACT NUMBER ONE HUNDRED
+102F4	COPTIC EPACT NUMBER TWO HUNDRED
+102F5	COPTIC EPACT NUMBER THREE HUNDRED
+102F6	COPTIC EPACT NUMBER FOUR HUNDRED
+102F7	COPTIC EPACT NUMBER FIVE HUNDRED
+102F8	COPTIC EPACT NUMBER SIX HUNDRED
+102F9	COPTIC EPACT NUMBER SEVEN HUNDRED
+102FA	COPTIC EPACT NUMBER EIGHT HUNDRED
+102FB	COPTIC EPACT NUMBER NINE HUNDRED
+10300	OLD ITALIC LETTER A
+10301	OLD ITALIC LETTER BE
+10302	OLD ITALIC LETTER KE
+10303	OLD ITALIC LETTER DE
+10304	OLD ITALIC LETTER E
+10305	OLD ITALIC LETTER VE
+10306	OLD ITALIC LETTER ZE
+10307	OLD ITALIC LETTER HE
+10308	OLD ITALIC LETTER THE
+10309	OLD ITALIC LETTER I
+1030A	OLD ITALIC LETTER KA
+1030B	OLD ITALIC LETTER EL
+1030C	OLD ITALIC LETTER EM
+1030D	OLD ITALIC LETTER EN
+1030E	OLD ITALIC LETTER ESH
+1030F	OLD ITALIC LETTER O
+10310	OLD ITALIC LETTER PE
+10311	OLD ITALIC LETTER SHE
+10312	OLD ITALIC LETTER KU
+10313	OLD ITALIC LETTER ER
+10314	OLD ITALIC LETTER ES
+10315	OLD ITALIC LETTER TE
+10316	OLD ITALIC LETTER U
+10317	OLD ITALIC LETTER EKS
+10318	OLD ITALIC LETTER PHE
+10319	OLD ITALIC LETTER KHE
+1031A	OLD ITALIC LETTER EF
+1031B	OLD ITALIC LETTER ERS
+1031C	OLD ITALIC LETTER CHE
+1031D	OLD ITALIC LETTER II
+1031E	OLD ITALIC LETTER UU
+1031F	OLD ITALIC LETTER ESS
+10320	OLD ITALIC NUMERAL ONE
+10321	OLD ITALIC NUMERAL FIVE
+10322	OLD ITALIC NUMERAL TEN
+10323	OLD ITALIC NUMERAL FIFTY
+10330	GOTHIC LETTER AHSA
+10331	GOTHIC LETTER BAIRKAN
+10332	GOTHIC LETTER GIBA
+10333	GOTHIC LETTER DAGS
+10334	GOTHIC LETTER AIHVUS
+10335	GOTHIC LETTER QAIRTHRA
+10336	GOTHIC LETTER IUJA
+10337	GOTHIC LETTER HAGL
+10338	GOTHIC LETTER THIUTH
+10339	GOTHIC LETTER EIS
+1033A	GOTHIC LETTER KUSMA
+1033B	GOTHIC LETTER LAGUS
+1033C	GOTHIC LETTER MANNA
+1033D	GOTHIC LETTER NAUTHS
+1033E	GOTHIC LETTER JER
+1033F	GOTHIC LETTER URUS
+10340	GOTHIC LETTER PAIRTHRA
+10341	GOTHIC LETTER NINETY
+10342	GOTHIC LETTER RAIDA
+10343	GOTHIC LETTER SAUIL
+10344	GOTHIC LETTER TEIWS
+10345	GOTHIC LETTER WINJA
+10346	GOTHIC LETTER FAIHU
+10347	GOTHIC LETTER IGGWS
+10348	GOTHIC LETTER HWAIR
+10349	GOTHIC LETTER OTHAL
+1034A	GOTHIC LETTER NINE HUNDRED
+10350	OLD PERMIC LETTER AN
+10351	OLD PERMIC LETTER BUR
+10352	OLD PERMIC LETTER GAI
+10353	OLD PERMIC LETTER DOI
+10354	OLD PERMIC LETTER E
+10355	OLD PERMIC LETTER ZHOI
+10356	OLD PERMIC LETTER DZHOI
+10357	OLD PERMIC LETTER ZATA
+10358	OLD PERMIC LETTER DZITA
+10359	OLD PERMIC LETTER I
+1035A	OLD PERMIC LETTER KOKE
+1035B	OLD PERMIC LETTER LEI
+1035C	OLD PERMIC LETTER MENOE
+1035D	OLD PERMIC LETTER NENOE
+1035E	OLD PERMIC LETTER VOOI
+1035F	OLD PERMIC LETTER PEEI
+10360	OLD PERMIC LETTER REI
+10361	OLD PERMIC LETTER SII
+10362	OLD PERMIC LETTER TAI
+10363	OLD PERMIC LETTER U
+10364	OLD PERMIC LETTER CHERY
+10365	OLD PERMIC LETTER SHOOI
+10366	OLD PERMIC LETTER SHCHOOI
+10367	OLD PERMIC LETTER YRY
+10368	OLD PERMIC LETTER YERU
+10369	OLD PERMIC LETTER O
+1036A	OLD PERMIC LETTER OO
+1036B	OLD PERMIC LETTER EF
+1036C	OLD PERMIC LETTER HA
+1036D	OLD PERMIC LETTER TSIU
+1036E	OLD PERMIC LETTER VER
+1036F	OLD PERMIC LETTER YER
+10370	OLD PERMIC LETTER YERI
+10371	OLD PERMIC LETTER YAT
+10372	OLD PERMIC LETTER IE
+10373	OLD PERMIC LETTER YU
+10374	OLD PERMIC LETTER YA
+10375	OLD PERMIC LETTER IA
+10376	COMBINING OLD PERMIC LETTER AN
+10377	COMBINING OLD PERMIC LETTER DOI
+10378	COMBINING OLD PERMIC LETTER ZATA
+10379	COMBINING OLD PERMIC LETTER NENOE
+1037A	COMBINING OLD PERMIC LETTER SII
+10380	UGARITIC LETTER ALPA
+10381	UGARITIC LETTER BETA
+10382	UGARITIC LETTER GAMLA
+10383	UGARITIC LETTER KHA
+10384	UGARITIC LETTER DELTA
+10385	UGARITIC LETTER HO
+10386	UGARITIC LETTER WO
+10387	UGARITIC LETTER ZETA
+10388	UGARITIC LETTER HOTA
+10389	UGARITIC LETTER TET
+1038A	UGARITIC LETTER YOD
+1038B	UGARITIC LETTER KAF
+1038C	UGARITIC LETTER SHIN
+1038D	UGARITIC LETTER LAMDA
+1038E	UGARITIC LETTER MEM
+1038F	UGARITIC LETTER DHAL
+10390	UGARITIC LETTER NUN
+10391	UGARITIC LETTER ZU
+10392	UGARITIC LETTER SAMKA
+10393	UGARITIC LETTER AIN
+10394	UGARITIC LETTER PU
+10395	UGARITIC LETTER SADE
+10396	UGARITIC LETTER QOPA
+10397	UGARITIC LETTER RASHA
+10398	UGARITIC LETTER THANNA
+10399	UGARITIC LETTER GHAIN
+1039A	UGARITIC LETTER TO
+1039B	UGARITIC LETTER I
+1039C	UGARITIC LETTER U
+1039D	UGARITIC LETTER SSU
+1039F	UGARITIC WORD DIVIDER
+103A0	OLD PERSIAN SIGN A
+103A1	OLD PERSIAN SIGN I
+103A2	OLD PERSIAN SIGN U
+103A3	OLD PERSIAN SIGN KA
+103A4	OLD PERSIAN SIGN KU
+103A5	OLD PERSIAN SIGN GA
+103A6	OLD PERSIAN SIGN GU
+103A7	OLD PERSIAN SIGN XA
+103A8	OLD PERSIAN SIGN CA
+103A9	OLD PERSIAN SIGN JA
+103AA	OLD PERSIAN SIGN JI
+103AB	OLD PERSIAN SIGN TA
+103AC	OLD PERSIAN SIGN TU
+103AD	OLD PERSIAN SIGN DA
+103AE	OLD PERSIAN SIGN DI
+103AF	OLD PERSIAN SIGN DU
+103B0	OLD PERSIAN SIGN THA
+103B1	OLD PERSIAN SIGN PA
+103B2	OLD PERSIAN SIGN BA
+103B3	OLD PERSIAN SIGN FA
+103B4	OLD PERSIAN SIGN NA
+103B5	OLD PERSIAN SIGN NU
+103B6	OLD PERSIAN SIGN MA
+103B7	OLD PERSIAN SIGN MI
+103B8	OLD PERSIAN SIGN MU
+103B9	OLD PERSIAN SIGN YA
+103BA	OLD PERSIAN SIGN VA
+103BB	OLD PERSIAN SIGN VI
+103BC	OLD PERSIAN SIGN RA
+103BD	OLD PERSIAN SIGN RU
+103BE	OLD PERSIAN SIGN LA
+103BF	OLD PERSIAN SIGN SA
+103C0	OLD PERSIAN SIGN ZA
+103C1	OLD PERSIAN SIGN SHA
+103C2	OLD PERSIAN SIGN SSA
+103C3	OLD PERSIAN SIGN HA
+103C8	OLD PERSIAN SIGN AURAMAZDAA
+103C9	OLD PERSIAN SIGN AURAMAZDAA-2
+103CA	OLD PERSIAN SIGN AURAMAZDAAHA
+103CB	OLD PERSIAN SIGN XSHAAYATHIYA
+103CC	OLD PERSIAN SIGN DAHYAAUSH
+103CD	OLD PERSIAN SIGN DAHYAAUSH-2
+103CE	OLD PERSIAN SIGN BAGA
+103CF	OLD PERSIAN SIGN BUUMISH
+103D0	OLD PERSIAN WORD DIVIDER
+103D1	OLD PERSIAN NUMBER ONE
+103D2	OLD PERSIAN NUMBER TWO
+103D3	OLD PERSIAN NUMBER TEN
+103D4	OLD PERSIAN NUMBER TWENTY
+103D5	OLD PERSIAN NUMBER HUNDRED
+10400	DESERET CAPITAL LETTER LONG I
+10401	DESERET CAPITAL LETTER LONG E
+10402	DESERET CAPITAL LETTER LONG A
+10403	DESERET CAPITAL LETTER LONG AH
+10404	DESERET CAPITAL LETTER LONG O
+10405	DESERET CAPITAL LETTER LONG OO
+10406	DESERET CAPITAL LETTER SHORT I
+10407	DESERET CAPITAL LETTER SHORT E
+10408	DESERET CAPITAL LETTER SHORT A
+10409	DESERET CAPITAL LETTER SHORT AH
+1040A	DESERET CAPITAL LETTER SHORT O
+1040B	DESERET CAPITAL LETTER SHORT OO
+1040C	DESERET CAPITAL LETTER AY
+1040D	DESERET CAPITAL LETTER OW
+1040E	DESERET CAPITAL LETTER WU
+1040F	DESERET CAPITAL LETTER YEE
+10410	DESERET CAPITAL LETTER H
+10411	DESERET CAPITAL LETTER PEE
+10412	DESERET CAPITAL LETTER BEE
+10413	DESERET CAPITAL LETTER TEE
+10414	DESERET CAPITAL LETTER DEE
+10415	DESERET CAPITAL LETTER CHEE
+10416	DESERET CAPITAL LETTER JEE
+10417	DESERET CAPITAL LETTER KAY
+10418	DESERET CAPITAL LETTER GAY
+10419	DESERET CAPITAL LETTER EF
+1041A	DESERET CAPITAL LETTER VEE
+1041B	DESERET CAPITAL LETTER ETH
+1041C	DESERET CAPITAL LETTER THEE
+1041D	DESERET CAPITAL LETTER ES
+1041E	DESERET CAPITAL LETTER ZEE
+1041F	DESERET CAPITAL LETTER ESH
+10420	DESERET CAPITAL LETTER ZHEE
+10421	DESERET CAPITAL LETTER ER
+10422	DESERET CAPITAL LETTER EL
+10423	DESERET CAPITAL LETTER EM
+10424	DESERET CAPITAL LETTER EN
+10425	DESERET CAPITAL LETTER ENG
+10426	DESERET CAPITAL LETTER OI
+10427	DESERET CAPITAL LETTER EW
+10428	DESERET SMALL LETTER LONG I
+10429	DESERET SMALL LETTER LONG E
+1042A	DESERET SMALL LETTER LONG A
+1042B	DESERET SMALL LETTER LONG AH
+1042C	DESERET SMALL LETTER LONG O
+1042D	DESERET SMALL LETTER LONG OO
+1042E	DESERET SMALL LETTER SHORT I
+1042F	DESERET SMALL LETTER SHORT E
+10430	DESERET SMALL LETTER SHORT A
+10431	DESERET SMALL LETTER SHORT AH
+10432	DESERET SMALL LETTER SHORT O
+10433	DESERET SMALL LETTER SHORT OO
+10434	DESERET SMALL LETTER AY
+10435	DESERET SMALL LETTER OW
+10436	DESERET SMALL LETTER WU
+10437	DESERET SMALL LETTER YEE
+10438	DESERET SMALL LETTER H
+10439	DESERET SMALL LETTER PEE
+1043A	DESERET SMALL LETTER BEE
+1043B	DESERET SMALL LETTER TEE
+1043C	DESERET SMALL LETTER DEE
+1043D	DESERET SMALL LETTER CHEE
+1043E	DESERET SMALL LETTER JEE
+1043F	DESERET SMALL LETTER KAY
+10440	DESERET SMALL LETTER GAY
+10441	DESERET SMALL LETTER EF
+10442	DESERET SMALL LETTER VEE
+10443	DESERET SMALL LETTER ETH
+10444	DESERET SMALL LETTER THEE
+10445	DESERET SMALL LETTER ES
+10446	DESERET SMALL LETTER ZEE
+10447	DESERET SMALL LETTER ESH
+10448	DESERET SMALL LETTER ZHEE
+10449	DESERET SMALL LETTER ER
+1044A	DESERET SMALL LETTER EL
+1044B	DESERET SMALL LETTER EM
+1044C	DESERET SMALL LETTER EN
+1044D	DESERET SMALL LETTER ENG
+1044E	DESERET SMALL LETTER OI
+1044F	DESERET SMALL LETTER EW
+10450	SHAVIAN LETTER PEEP
+10451	SHAVIAN LETTER TOT
+10452	SHAVIAN LETTER KICK
+10453	SHAVIAN LETTER FEE
+10454	SHAVIAN LETTER THIGH
+10455	SHAVIAN LETTER SO
+10456	SHAVIAN LETTER SURE
+10457	SHAVIAN LETTER CHURCH
+10458	SHAVIAN LETTER YEA
+10459	SHAVIAN LETTER HUNG
+1045A	SHAVIAN LETTER BIB
+1045B	SHAVIAN LETTER DEAD
+1045C	SHAVIAN LETTER GAG
+1045D	SHAVIAN LETTER VOW
+1045E	SHAVIAN LETTER THEY
+1045F	SHAVIAN LETTER ZOO
+10460	SHAVIAN LETTER MEASURE
+10461	SHAVIAN LETTER JUDGE
+10462	SHAVIAN LETTER WOE
+10463	SHAVIAN LETTER HA-HA
+10464	SHAVIAN LETTER LOLL
+10465	SHAVIAN LETTER MIME
+10466	SHAVIAN LETTER IF
+10467	SHAVIAN LETTER EGG
+10468	SHAVIAN LETTER ASH
+10469	SHAVIAN LETTER ADO
+1046A	SHAVIAN LETTER ON
+1046B	SHAVIAN LETTER WOOL
+1046C	SHAVIAN LETTER OUT
+1046D	SHAVIAN LETTER AH
+1046E	SHAVIAN LETTER ROAR
+1046F	SHAVIAN LETTER NUN
+10470	SHAVIAN LETTER EAT
+10471	SHAVIAN LETTER AGE
+10472	SHAVIAN LETTER ICE
+10473	SHAVIAN LETTER UP
+10474	SHAVIAN LETTER OAK
+10475	SHAVIAN LETTER OOZE
+10476	SHAVIAN LETTER OIL
+10477	SHAVIAN LETTER AWE
+10478	SHAVIAN LETTER ARE
+10479	SHAVIAN LETTER OR
+1047A	SHAVIAN LETTER AIR
+1047B	SHAVIAN LETTER ERR
+1047C	SHAVIAN LETTER ARRAY
+1047D	SHAVIAN LETTER EAR
+1047E	SHAVIAN LETTER IAN
+1047F	SHAVIAN LETTER YEW
+10480	OSMANYA LETTER ALEF
+10481	OSMANYA LETTER BA
+10482	OSMANYA LETTER TA
+10483	OSMANYA LETTER JA
+10484	OSMANYA LETTER XA
+10485	OSMANYA LETTER KHA
+10486	OSMANYA LETTER DEEL
+10487	OSMANYA LETTER RA
+10488	OSMANYA LETTER SA
+10489	OSMANYA LETTER SHIIN
+1048A	OSMANYA LETTER DHA
+1048B	OSMANYA LETTER CAYN
+1048C	OSMANYA LETTER GA
+1048D	OSMANYA LETTER FA
+1048E	OSMANYA LETTER QAAF
+1048F	OSMANYA LETTER KAAF
+10490	OSMANYA LETTER LAAN
+10491	OSMANYA LETTER MIIN
+10492	OSMANYA LETTER NUUN
+10493	OSMANYA LETTER WAW
+10494	OSMANYA LETTER HA
+10495	OSMANYA LETTER YA
+10496	OSMANYA LETTER A
+10497	OSMANYA LETTER E
+10498	OSMANYA LETTER I
+10499	OSMANYA LETTER O
+1049A	OSMANYA LETTER U
+1049B	OSMANYA LETTER AA
+1049C	OSMANYA LETTER EE
+1049D	OSMANYA LETTER OO
+104A0	OSMANYA DIGIT ZERO
+104A1	OSMANYA DIGIT ONE
+104A2	OSMANYA DIGIT TWO
+104A3	OSMANYA DIGIT THREE
+104A4	OSMANYA DIGIT FOUR
+104A5	OSMANYA DIGIT FIVE
+104A6	OSMANYA DIGIT SIX
+104A7	OSMANYA DIGIT SEVEN
+104A8	OSMANYA DIGIT EIGHT
+104A9	OSMANYA DIGIT NINE
+10500	ELBASAN LETTER A
+10501	ELBASAN LETTER BE
+10502	ELBASAN LETTER CE
+10503	ELBASAN LETTER CHE
+10504	ELBASAN LETTER DE
+10505	ELBASAN LETTER NDE
+10506	ELBASAN LETTER DHE
+10507	ELBASAN LETTER EI
+10508	ELBASAN LETTER E
+10509	ELBASAN LETTER FE
+1050A	ELBASAN LETTER GE
+1050B	ELBASAN LETTER GJE
+1050C	ELBASAN LETTER HE
+1050D	ELBASAN LETTER I
+1050E	ELBASAN LETTER JE
+1050F	ELBASAN LETTER KE
+10510	ELBASAN LETTER LE
+10511	ELBASAN LETTER LLE
+10512	ELBASAN LETTER ME
+10513	ELBASAN LETTER NE
+10514	ELBASAN LETTER NA
+10515	ELBASAN LETTER NJE
+10516	ELBASAN LETTER O
+10517	ELBASAN LETTER PE
+10518	ELBASAN LETTER QE
+10519	ELBASAN LETTER RE
+1051A	ELBASAN LETTER RRE
+1051B	ELBASAN LETTER SE
+1051C	ELBASAN LETTER SHE
+1051D	ELBASAN LETTER TE
+1051E	ELBASAN LETTER THE
+1051F	ELBASAN LETTER U
+10520	ELBASAN LETTER VE
+10521	ELBASAN LETTER XE
+10522	ELBASAN LETTER Y
+10523	ELBASAN LETTER ZE
+10524	ELBASAN LETTER ZHE
+10525	ELBASAN LETTER GHE
+10526	ELBASAN LETTER GHAMMA
+10527	ELBASAN LETTER KHE
+10530	CAUCASIAN ALBANIAN LETTER ALT
+10531	CAUCASIAN ALBANIAN LETTER BET
+10532	CAUCASIAN ALBANIAN LETTER GIM
+10533	CAUCASIAN ALBANIAN LETTER DAT
+10534	CAUCASIAN ALBANIAN LETTER EB
+10535	CAUCASIAN ALBANIAN LETTER ZARL
+10536	CAUCASIAN ALBANIAN LETTER EYN
+10537	CAUCASIAN ALBANIAN LETTER ZHIL
+10538	CAUCASIAN ALBANIAN LETTER TAS
+10539	CAUCASIAN ALBANIAN LETTER CHA
+1053A	CAUCASIAN ALBANIAN LETTER YOWD
+1053B	CAUCASIAN ALBANIAN LETTER ZHA
+1053C	CAUCASIAN ALBANIAN LETTER IRB
+1053D	CAUCASIAN ALBANIAN LETTER SHA
+1053E	CAUCASIAN ALBANIAN LETTER LAN
+1053F	CAUCASIAN ALBANIAN LETTER INYA
+10540	CAUCASIAN ALBANIAN LETTER XEYN
+10541	CAUCASIAN ALBANIAN LETTER DYAN
+10542	CAUCASIAN ALBANIAN LETTER CAR
+10543	CAUCASIAN ALBANIAN LETTER JHOX
+10544	CAUCASIAN ALBANIAN LETTER KAR
+10545	CAUCASIAN ALBANIAN LETTER LYIT
+10546	CAUCASIAN ALBANIAN LETTER HEYT
+10547	CAUCASIAN ALBANIAN LETTER QAY
+10548	CAUCASIAN ALBANIAN LETTER AOR
+10549	CAUCASIAN ALBANIAN LETTER CHOY
+1054A	CAUCASIAN ALBANIAN LETTER CHI
+1054B	CAUCASIAN ALBANIAN LETTER CYAY
+1054C	CAUCASIAN ALBANIAN LETTER MAQ
+1054D	CAUCASIAN ALBANIAN LETTER QAR
+1054E	CAUCASIAN ALBANIAN LETTER NOWC
+1054F	CAUCASIAN ALBANIAN LETTER DZYAY
+10550	CAUCASIAN ALBANIAN LETTER SHAK
+10551	CAUCASIAN ALBANIAN LETTER JAYN
+10552	CAUCASIAN ALBANIAN LETTER ON
+10553	CAUCASIAN ALBANIAN LETTER TYAY
+10554	CAUCASIAN ALBANIAN LETTER FAM
+10555	CAUCASIAN ALBANIAN LETTER DZAY
+10556	CAUCASIAN ALBANIAN LETTER CHAT
+10557	CAUCASIAN ALBANIAN LETTER PEN
+10558	CAUCASIAN ALBANIAN LETTER GHEYS
+10559	CAUCASIAN ALBANIAN LETTER RAT
+1055A	CAUCASIAN ALBANIAN LETTER SEYK
+1055B	CAUCASIAN ALBANIAN LETTER VEYZ
+1055C	CAUCASIAN ALBANIAN LETTER TIWR
+1055D	CAUCASIAN ALBANIAN LETTER SHOY
+1055E	CAUCASIAN ALBANIAN LETTER IWN
+1055F	CAUCASIAN ALBANIAN LETTER CYAW
+10560	CAUCASIAN ALBANIAN LETTER CAYN
+10561	CAUCASIAN ALBANIAN LETTER YAYD
+10562	CAUCASIAN ALBANIAN LETTER PIWR
+10563	CAUCASIAN ALBANIAN LETTER KIW
+1056F	CAUCASIAN ALBANIAN CITATION MARK
+10600	LINEAR A SIGN AB001
+10601	LINEAR A SIGN AB002
+10602	LINEAR A SIGN AB003
+10603	LINEAR A SIGN AB004
+10604	LINEAR A SIGN AB005
+10605	LINEAR A SIGN AB006
+10606	LINEAR A SIGN AB007
+10607	LINEAR A SIGN AB008
+10608	LINEAR A SIGN AB009
+10609	LINEAR A SIGN AB010
+1060A	LINEAR A SIGN AB011
+1060B	LINEAR A SIGN AB013
+1060C	LINEAR A SIGN AB016
+1060D	LINEAR A SIGN AB017
+1060E	LINEAR A SIGN AB020
+1060F	LINEAR A SIGN AB021
+10610	LINEAR A SIGN AB021F
+10611	LINEAR A SIGN AB021M
+10612	LINEAR A SIGN AB022
+10613	LINEAR A SIGN AB022F
+10614	LINEAR A SIGN AB022M
+10615	LINEAR A SIGN AB023
+10616	LINEAR A SIGN AB023M
+10617	LINEAR A SIGN AB024
+10618	LINEAR A SIGN AB026
+10619	LINEAR A SIGN AB027
+1061A	LINEAR A SIGN AB028
+1061B	LINEAR A SIGN A028B
+1061C	LINEAR A SIGN AB029
+1061D	LINEAR A SIGN AB030
+1061E	LINEAR A SIGN AB031
+1061F	LINEAR A SIGN AB034
+10620	LINEAR A SIGN AB037
+10621	LINEAR A SIGN AB038
+10622	LINEAR A SIGN AB039
+10623	LINEAR A SIGN AB040
+10624	LINEAR A SIGN AB041
+10625	LINEAR A SIGN AB044
+10626	LINEAR A SIGN AB045
+10627	LINEAR A SIGN AB046
+10628	LINEAR A SIGN AB047
+10629	LINEAR A SIGN AB048
+1062A	LINEAR A SIGN AB049
+1062B	LINEAR A SIGN AB050
+1062C	LINEAR A SIGN AB051
+1062D	LINEAR A SIGN AB053
+1062E	LINEAR A SIGN AB054
+1062F	LINEAR A SIGN AB055
+10630	LINEAR A SIGN AB056
+10631	LINEAR A SIGN AB057
+10632	LINEAR A SIGN AB058
+10633	LINEAR A SIGN AB059
+10634	LINEAR A SIGN AB060
+10635	LINEAR A SIGN AB061
+10636	LINEAR A SIGN AB065
+10637	LINEAR A SIGN AB066
+10638	LINEAR A SIGN AB067
+10639	LINEAR A SIGN AB069
+1063A	LINEAR A SIGN AB070
+1063B	LINEAR A SIGN AB073
+1063C	LINEAR A SIGN AB074
+1063D	LINEAR A SIGN AB076
+1063E	LINEAR A SIGN AB077
+1063F	LINEAR A SIGN AB078
+10640	LINEAR A SIGN AB079
+10641	LINEAR A SIGN AB080
+10642	LINEAR A SIGN AB081
+10643	LINEAR A SIGN AB082
+10644	LINEAR A SIGN AB085
+10645	LINEAR A SIGN AB086
+10646	LINEAR A SIGN AB087
+10647	LINEAR A SIGN A100-102
+10648	LINEAR A SIGN AB118
+10649	LINEAR A SIGN AB120
+1064A	LINEAR A SIGN A120B
+1064B	LINEAR A SIGN AB122
+1064C	LINEAR A SIGN AB123
+1064D	LINEAR A SIGN AB131A
+1064E	LINEAR A SIGN AB131B
+1064F	LINEAR A SIGN A131C
+10650	LINEAR A SIGN AB164
+10651	LINEAR A SIGN AB171
+10652	LINEAR A SIGN AB180
+10653	LINEAR A SIGN AB188
+10654	LINEAR A SIGN AB191
+10655	LINEAR A SIGN A301
+10656	LINEAR A SIGN A302
+10657	LINEAR A SIGN A303
+10658	LINEAR A SIGN A304
+10659	LINEAR A SIGN A305
+1065A	LINEAR A SIGN A306
+1065B	LINEAR A SIGN A307
+1065C	LINEAR A SIGN A308
+1065D	LINEAR A SIGN A309A
+1065E	LINEAR A SIGN A309B
+1065F	LINEAR A SIGN A309C
+10660	LINEAR A SIGN A310
+10661	LINEAR A SIGN A311
+10662	LINEAR A SIGN A312
+10663	LINEAR A SIGN A313A
+10664	LINEAR A SIGN A313B
+10665	LINEAR A SIGN A313C
+10666	LINEAR A SIGN A314
+10667	LINEAR A SIGN A315
+10668	LINEAR A SIGN A316
+10669	LINEAR A SIGN A317
+1066A	LINEAR A SIGN A318
+1066B	LINEAR A SIGN A319
+1066C	LINEAR A SIGN A320
+1066D	LINEAR A SIGN A321
+1066E	LINEAR A SIGN A322
+1066F	LINEAR A SIGN A323
+10670	LINEAR A SIGN A324
+10671	LINEAR A SIGN A325
+10672	LINEAR A SIGN A326
+10673	LINEAR A SIGN A327
+10674	LINEAR A SIGN A328
+10675	LINEAR A SIGN A329
+10676	LINEAR A SIGN A330
+10677	LINEAR A SIGN A331
+10678	LINEAR A SIGN A332
+10679	LINEAR A SIGN A333
+1067A	LINEAR A SIGN A334
+1067B	LINEAR A SIGN A335
+1067C	LINEAR A SIGN A336
+1067D	LINEAR A SIGN A337
+1067E	LINEAR A SIGN A338
+1067F	LINEAR A SIGN A339
+10680	LINEAR A SIGN A340
+10681	LINEAR A SIGN A341
+10682	LINEAR A SIGN A342
+10683	LINEAR A SIGN A343
+10684	LINEAR A SIGN A344
+10685	LINEAR A SIGN A345
+10686	LINEAR A SIGN A346
+10687	LINEAR A SIGN A347
+10688	LINEAR A SIGN A348
+10689	LINEAR A SIGN A349
+1068A	LINEAR A SIGN A350
+1068B	LINEAR A SIGN A351
+1068C	LINEAR A SIGN A352
+1068D	LINEAR A SIGN A353
+1068E	LINEAR A SIGN A354
+1068F	LINEAR A SIGN A355
+10690	LINEAR A SIGN A356
+10691	LINEAR A SIGN A357
+10692	LINEAR A SIGN A358
+10693	LINEAR A SIGN A359
+10694	LINEAR A SIGN A360
+10695	LINEAR A SIGN A361
+10696	LINEAR A SIGN A362
+10697	LINEAR A SIGN A363
+10698	LINEAR A SIGN A364
+10699	LINEAR A SIGN A365
+1069A	LINEAR A SIGN A366
+1069B	LINEAR A SIGN A367
+1069C	LINEAR A SIGN A368
+1069D	LINEAR A SIGN A369
+1069E	LINEAR A SIGN A370
+1069F	LINEAR A SIGN A371
+106A0	LINEAR A SIGN A400-VAS
+106A1	LINEAR A SIGN A401-VAS
+106A2	LINEAR A SIGN A402-VAS
+106A3	LINEAR A SIGN A403-VAS
+106A4	LINEAR A SIGN A404-VAS
+106A5	LINEAR A SIGN A405-VAS
+106A6	LINEAR A SIGN A406-VAS
+106A7	LINEAR A SIGN A407-VAS
+106A8	LINEAR A SIGN A408-VAS
+106A9	LINEAR A SIGN A409-VAS
+106AA	LINEAR A SIGN A410-VAS
+106AB	LINEAR A SIGN A411-VAS
+106AC	LINEAR A SIGN A412-VAS
+106AD	LINEAR A SIGN A413-VAS
+106AE	LINEAR A SIGN A414-VAS
+106AF	LINEAR A SIGN A415-VAS
+106B0	LINEAR A SIGN A416-VAS
+106B1	LINEAR A SIGN A417-VAS
+106B2	LINEAR A SIGN A418-VAS
+106B3	LINEAR A SIGN A501
+106B4	LINEAR A SIGN A502
+106B5	LINEAR A SIGN A503
+106B6	LINEAR A SIGN A504
+106B7	LINEAR A SIGN A505
+106B8	LINEAR A SIGN A506
+106B9	LINEAR A SIGN A508
+106BA	LINEAR A SIGN A509
+106BB	LINEAR A SIGN A510
+106BC	LINEAR A SIGN A511
+106BD	LINEAR A SIGN A512
+106BE	LINEAR A SIGN A513
+106BF	LINEAR A SIGN A515
+106C0	LINEAR A SIGN A516
+106C1	LINEAR A SIGN A520
+106C2	LINEAR A SIGN A521
+106C3	LINEAR A SIGN A523
+106C4	LINEAR A SIGN A524
+106C5	LINEAR A SIGN A525
+106C6	LINEAR A SIGN A526
+106C7	LINEAR A SIGN A527
+106C8	LINEAR A SIGN A528
+106C9	LINEAR A SIGN A529
+106CA	LINEAR A SIGN A530
+106CB	LINEAR A SIGN A531
+106CC	LINEAR A SIGN A532
+106CD	LINEAR A SIGN A534
+106CE	LINEAR A SIGN A535
+106CF	LINEAR A SIGN A536
+106D0	LINEAR A SIGN A537
+106D1	LINEAR A SIGN A538
+106D2	LINEAR A SIGN A539
+106D3	LINEAR A SIGN A540
+106D4	LINEAR A SIGN A541
+106D5	LINEAR A SIGN A542
+106D6	LINEAR A SIGN A545
+106D7	LINEAR A SIGN A547
+106D8	LINEAR A SIGN A548
+106D9	LINEAR A SIGN A549
+106DA	LINEAR A SIGN A550
+106DB	LINEAR A SIGN A551
+106DC	LINEAR A SIGN A552
+106DD	LINEAR A SIGN A553
+106DE	LINEAR A SIGN A554
+106DF	LINEAR A SIGN A555
+106E0	LINEAR A SIGN A556
+106E1	LINEAR A SIGN A557
+106E2	LINEAR A SIGN A559
+106E3	LINEAR A SIGN A563
+106E4	LINEAR A SIGN A564
+106E5	LINEAR A SIGN A565
+106E6	LINEAR A SIGN A566
+106E7	LINEAR A SIGN A568
+106E8	LINEAR A SIGN A569
+106E9	LINEAR A SIGN A570
+106EA	LINEAR A SIGN A571
+106EB	LINEAR A SIGN A572
+106EC	LINEAR A SIGN A573
+106ED	LINEAR A SIGN A574
+106EE	LINEAR A SIGN A575
+106EF	LINEAR A SIGN A576
+106F0	LINEAR A SIGN A577
+106F1	LINEAR A SIGN A578
+106F2	LINEAR A SIGN A579
+106F3	LINEAR A SIGN A580
+106F4	LINEAR A SIGN A581
+106F5	LINEAR A SIGN A582
+106F6	LINEAR A SIGN A583
+106F7	LINEAR A SIGN A584
+106F8	LINEAR A SIGN A585
+106F9	LINEAR A SIGN A586
+106FA	LINEAR A SIGN A587
+106FB	LINEAR A SIGN A588
+106FC	LINEAR A SIGN A589
+106FD	LINEAR A SIGN A591
+106FE	LINEAR A SIGN A592
+106FF	LINEAR A SIGN A594
+10700	LINEAR A SIGN A595
+10701	LINEAR A SIGN A596
+10702	LINEAR A SIGN A598
+10703	LINEAR A SIGN A600
+10704	LINEAR A SIGN A601
+10705	LINEAR A SIGN A602
+10706	LINEAR A SIGN A603
+10707	LINEAR A SIGN A604
+10708	LINEAR A SIGN A606
+10709	LINEAR A SIGN A608
+1070A	LINEAR A SIGN A609
+1070B	LINEAR A SIGN A610
+1070C	LINEAR A SIGN A611
+1070D	LINEAR A SIGN A612
+1070E	LINEAR A SIGN A613
+1070F	LINEAR A SIGN A614
+10710	LINEAR A SIGN A615
+10711	LINEAR A SIGN A616
+10712	LINEAR A SIGN A617
+10713	LINEAR A SIGN A618
+10714	LINEAR A SIGN A619
+10715	LINEAR A SIGN A620
+10716	LINEAR A SIGN A621
+10717	LINEAR A SIGN A622
+10718	LINEAR A SIGN A623
+10719	LINEAR A SIGN A624
+1071A	LINEAR A SIGN A626
+1071B	LINEAR A SIGN A627
+1071C	LINEAR A SIGN A628
+1071D	LINEAR A SIGN A629
+1071E	LINEAR A SIGN A634
+1071F	LINEAR A SIGN A637
+10720	LINEAR A SIGN A638
+10721	LINEAR A SIGN A640
+10722	LINEAR A SIGN A642
+10723	LINEAR A SIGN A643
+10724	LINEAR A SIGN A644
+10725	LINEAR A SIGN A645
+10726	LINEAR A SIGN A646
+10727	LINEAR A SIGN A648
+10728	LINEAR A SIGN A649
+10729	LINEAR A SIGN A651
+1072A	LINEAR A SIGN A652
+1072B	LINEAR A SIGN A653
+1072C	LINEAR A SIGN A654
+1072D	LINEAR A SIGN A655
+1072E	LINEAR A SIGN A656
+1072F	LINEAR A SIGN A657
+10730	LINEAR A SIGN A658
+10731	LINEAR A SIGN A659
+10732	LINEAR A SIGN A660
+10733	LINEAR A SIGN A661
+10734	LINEAR A SIGN A662
+10735	LINEAR A SIGN A663
+10736	LINEAR A SIGN A664
+10740	LINEAR A SIGN A701 A
+10741	LINEAR A SIGN A702 B
+10742	LINEAR A SIGN A703 D
+10743	LINEAR A SIGN A704 E
+10744	LINEAR A SIGN A705 F
+10745	LINEAR A SIGN A706 H
+10746	LINEAR A SIGN A707 J
+10747	LINEAR A SIGN A708 K
+10748	LINEAR A SIGN A709 L
+10749	LINEAR A SIGN A709-2 L2
+1074A	LINEAR A SIGN A709-3 L3
+1074B	LINEAR A SIGN A709-4 L4
+1074C	LINEAR A SIGN A709-6 L6
+1074D	LINEAR A SIGN A710 W
+1074E	LINEAR A SIGN A711 X
+1074F	LINEAR A SIGN A712 Y
+10750	LINEAR A SIGN A713 OMEGA
+10751	LINEAR A SIGN A714 ABB
+10752	LINEAR A SIGN A715 BB
+10753	LINEAR A SIGN A717 DD
+10754	LINEAR A SIGN A726 EYYY
+10755	LINEAR A SIGN A732 JE
+10760	LINEAR A SIGN A800
+10761	LINEAR A SIGN A801
+10762	LINEAR A SIGN A802
+10763	LINEAR A SIGN A803
+10764	LINEAR A SIGN A804
+10765	LINEAR A SIGN A805
+10766	LINEAR A SIGN A806
+10767	LINEAR A SIGN A807
+10800	CYPRIOT SYLLABLE A
+10801	CYPRIOT SYLLABLE E
+10802	CYPRIOT SYLLABLE I
+10803	CYPRIOT SYLLABLE O
+10804	CYPRIOT SYLLABLE U
+10805	CYPRIOT SYLLABLE JA
+10808	CYPRIOT SYLLABLE JO
+1080A	CYPRIOT SYLLABLE KA
+1080B	CYPRIOT SYLLABLE KE
+1080C	CYPRIOT SYLLABLE KI
+1080D	CYPRIOT SYLLABLE KO
+1080E	CYPRIOT SYLLABLE KU
+1080F	CYPRIOT SYLLABLE LA
+10810	CYPRIOT SYLLABLE LE
+10811	CYPRIOT SYLLABLE LI
+10812	CYPRIOT SYLLABLE LO
+10813	CYPRIOT SYLLABLE LU
+10814	CYPRIOT SYLLABLE MA
+10815	CYPRIOT SYLLABLE ME
+10816	CYPRIOT SYLLABLE MI
+10817	CYPRIOT SYLLABLE MO
+10818	CYPRIOT SYLLABLE MU
+10819	CYPRIOT SYLLABLE NA
+1081A	CYPRIOT SYLLABLE NE
+1081B	CYPRIOT SYLLABLE NI
+1081C	CYPRIOT SYLLABLE NO
+1081D	CYPRIOT SYLLABLE NU
+1081E	CYPRIOT SYLLABLE PA
+1081F	CYPRIOT SYLLABLE PE
+10820	CYPRIOT SYLLABLE PI
+10821	CYPRIOT SYLLABLE PO
+10822	CYPRIOT SYLLABLE PU
+10823	CYPRIOT SYLLABLE RA
+10824	CYPRIOT SYLLABLE RE
+10825	CYPRIOT SYLLABLE RI
+10826	CYPRIOT SYLLABLE RO
+10827	CYPRIOT SYLLABLE RU
+10828	CYPRIOT SYLLABLE SA
+10829	CYPRIOT SYLLABLE SE
+1082A	CYPRIOT SYLLABLE SI
+1082B	CYPRIOT SYLLABLE SO
+1082C	CYPRIOT SYLLABLE SU
+1082D	CYPRIOT SYLLABLE TA
+1082E	CYPRIOT SYLLABLE TE
+1082F	CYPRIOT SYLLABLE TI
+10830	CYPRIOT SYLLABLE TO
+10831	CYPRIOT SYLLABLE TU
+10832	CYPRIOT SYLLABLE WA
+10833	CYPRIOT SYLLABLE WE
+10834	CYPRIOT SYLLABLE WI
+10835	CYPRIOT SYLLABLE WO
+10837	CYPRIOT SYLLABLE XA
+10838	CYPRIOT SYLLABLE XE
+1083C	CYPRIOT SYLLABLE ZA
+1083F	CYPRIOT SYLLABLE ZO
+10840	IMPERIAL ARAMAIC LETTER ALEPH
+10841	IMPERIAL ARAMAIC LETTER BETH
+10842	IMPERIAL ARAMAIC LETTER GIMEL
+10843	IMPERIAL ARAMAIC LETTER DALETH
+10844	IMPERIAL ARAMAIC LETTER HE
+10845	IMPERIAL ARAMAIC LETTER WAW
+10846	IMPERIAL ARAMAIC LETTER ZAYIN
+10847	IMPERIAL ARAMAIC LETTER HETH
+10848	IMPERIAL ARAMAIC LETTER TETH
+10849	IMPERIAL ARAMAIC LETTER YODH
+1084A	IMPERIAL ARAMAIC LETTER KAPH
+1084B	IMPERIAL ARAMAIC LETTER LAMEDH
+1084C	IMPERIAL ARAMAIC LETTER MEM
+1084D	IMPERIAL ARAMAIC LETTER NUN
+1084E	IMPERIAL ARAMAIC LETTER SAMEKH
+1084F	IMPERIAL ARAMAIC LETTER AYIN
+10850	IMPERIAL ARAMAIC LETTER PE
+10851	IMPERIAL ARAMAIC LETTER SADHE
+10852	IMPERIAL ARAMAIC LETTER QOPH
+10853	IMPERIAL ARAMAIC LETTER RESH
+10854	IMPERIAL ARAMAIC LETTER SHIN
+10855	IMPERIAL ARAMAIC LETTER TAW
+10857	IMPERIAL ARAMAIC SECTION SIGN
+10858	IMPERIAL ARAMAIC NUMBER ONE
+10859	IMPERIAL ARAMAIC NUMBER TWO
+1085A	IMPERIAL ARAMAIC NUMBER THREE
+1085B	IMPERIAL ARAMAIC NUMBER TEN
+1085C	IMPERIAL ARAMAIC NUMBER TWENTY
+1085D	IMPERIAL ARAMAIC NUMBER ONE HUNDRED
+1085E	IMPERIAL ARAMAIC NUMBER ONE THOUSAND
+1085F	IMPERIAL ARAMAIC NUMBER TEN THOUSAND
+10860	PALMYRENE LETTER ALEPH
+10861	PALMYRENE LETTER BETH
+10862	PALMYRENE LETTER GIMEL
+10863	PALMYRENE LETTER DALETH
+10864	PALMYRENE LETTER HE
+10865	PALMYRENE LETTER WAW
+10866	PALMYRENE LETTER ZAYIN
+10867	PALMYRENE LETTER HETH
+10868	PALMYRENE LETTER TETH
+10869	PALMYRENE LETTER YODH
+1086A	PALMYRENE LETTER KAPH
+1086B	PALMYRENE LETTER LAMEDH
+1086C	PALMYRENE LETTER MEM
+1086D	PALMYRENE LETTER FINAL NUN
+1086E	PALMYRENE LETTER NUN
+1086F	PALMYRENE LETTER SAMEKH
+10870	PALMYRENE LETTER AYIN
+10871	PALMYRENE LETTER PE
+10872	PALMYRENE LETTER SADHE
+10873	PALMYRENE LETTER QOPH
+10874	PALMYRENE LETTER RESH
+10875	PALMYRENE LETTER SHIN
+10876	PALMYRENE LETTER TAW
+10877	PALMYRENE LEFT-POINTING FLEURON
+10878	PALMYRENE RIGHT-POINTING FLEURON
+10879	PALMYRENE NUMBER ONE
+1087A	PALMYRENE NUMBER TWO
+1087B	PALMYRENE NUMBER THREE
+1087C	PALMYRENE NUMBER FOUR
+1087D	PALMYRENE NUMBER FIVE
+1087E	PALMYRENE NUMBER TEN
+1087F	PALMYRENE NUMBER TWENTY
+10880	NABATAEAN LETTER FINAL ALEPH
+10881	NABATAEAN LETTER ALEPH
+10882	NABATAEAN LETTER FINAL BETH
+10883	NABATAEAN LETTER BETH
+10884	NABATAEAN LETTER GIMEL
+10885	NABATAEAN LETTER DALETH
+10886	NABATAEAN LETTER FINAL HE
+10887	NABATAEAN LETTER HE
+10888	NABATAEAN LETTER WAW
+10889	NABATAEAN LETTER ZAYIN
+1088A	NABATAEAN LETTER HETH
+1088B	NABATAEAN LETTER TETH
+1088C	NABATAEAN LETTER FINAL YODH
+1088D	NABATAEAN LETTER YODH
+1088E	NABATAEAN LETTER FINAL KAPH
+1088F	NABATAEAN LETTER KAPH
+10890	NABATAEAN LETTER FINAL LAMEDH
+10891	NABATAEAN LETTER LAMEDH
+10892	NABATAEAN LETTER FINAL MEM
+10893	NABATAEAN LETTER MEM
+10894	NABATAEAN LETTER FINAL NUN
+10895	NABATAEAN LETTER NUN
+10896	NABATAEAN LETTER SAMEKH
+10897	NABATAEAN LETTER AYIN
+10898	NABATAEAN LETTER PE
+10899	NABATAEAN LETTER SADHE
+1089A	NABATAEAN LETTER QOPH
+1089B	NABATAEAN LETTER RESH
+1089C	NABATAEAN LETTER FINAL SHIN
+1089D	NABATAEAN LETTER SHIN
+1089E	NABATAEAN LETTER TAW
+108A7	NABATAEAN NUMBER ONE
+108A8	NABATAEAN NUMBER TWO
+108A9	NABATAEAN NUMBER THREE
+108AA	NABATAEAN NUMBER FOUR
+108AB	NABATAEAN CRUCIFORM NUMBER FOUR
+108AC	NABATAEAN NUMBER FIVE
+108AD	NABATAEAN NUMBER TEN
+108AE	NABATAEAN NUMBER TWENTY
+108AF	NABATAEAN NUMBER ONE HUNDRED
+108E0	HATRAN LETTER ALEPH
+108E1	HATRAN LETTER BETH
+108E2	HATRAN LETTER GIMEL
+108E3	HATRAN LETTER DALETH-RESH
+108E4	HATRAN LETTER HE
+108E5	HATRAN LETTER WAW
+108E6	HATRAN LETTER ZAYN
+108E7	HATRAN LETTER HETH
+108E8	HATRAN LETTER TETH
+108E9	HATRAN LETTER YODH
+108EA	HATRAN LETTER KAPH
+108EB	HATRAN LETTER LAMEDH
+108EC	HATRAN LETTER MEM
+108ED	HATRAN LETTER NUN
+108EE	HATRAN LETTER SAMEKH
+108EF	HATRAN LETTER AYN
+108F0	HATRAN LETTER PE
+108F1	HATRAN LETTER SADHE
+108F2	HATRAN LETTER QOPH
+108F4	HATRAN LETTER SHIN
+108F5	HATRAN LETTER TAW
+108FB	HATRAN NUMBER ONE
+108FC	HATRAN NUMBER FIVE
+108FD	HATRAN NUMBER TEN
+108FE	HATRAN NUMBER TWENTY
+108FF	HATRAN NUMBER ONE HUNDRED
+10900	PHOENICIAN LETTER ALF
+10901	PHOENICIAN LETTER BET
+10902	PHOENICIAN LETTER GAML
+10903	PHOENICIAN LETTER DELT
+10904	PHOENICIAN LETTER HE
+10905	PHOENICIAN LETTER WAU
+10906	PHOENICIAN LETTER ZAI
+10907	PHOENICIAN LETTER HET
+10908	PHOENICIAN LETTER TET
+10909	PHOENICIAN LETTER YOD
+1090A	PHOENICIAN LETTER KAF
+1090B	PHOENICIAN LETTER LAMD
+1090C	PHOENICIAN LETTER MEM
+1090D	PHOENICIAN LETTER NUN
+1090E	PHOENICIAN LETTER SEMK
+1090F	PHOENICIAN LETTER AIN
+10910	PHOENICIAN LETTER PE
+10911	PHOENICIAN LETTER SADE
+10912	PHOENICIAN LETTER QOF
+10913	PHOENICIAN LETTER ROSH
+10914	PHOENICIAN LETTER SHIN
+10915	PHOENICIAN LETTER TAU
+10916	PHOENICIAN NUMBER ONE
+10917	PHOENICIAN NUMBER TEN
+10918	PHOENICIAN NUMBER TWENTY
+10919	PHOENICIAN NUMBER ONE HUNDRED
+1091A	PHOENICIAN NUMBER TWO
+1091B	PHOENICIAN NUMBER THREE
+1091F	PHOENICIAN WORD SEPARATOR
+10920	LYDIAN LETTER A
+10921	LYDIAN LETTER B
+10922	LYDIAN LETTER G
+10923	LYDIAN LETTER D
+10924	LYDIAN LETTER E
+10925	LYDIAN LETTER V
+10926	LYDIAN LETTER I
+10927	LYDIAN LETTER Y
+10928	LYDIAN LETTER K
+10929	LYDIAN LETTER L
+1092A	LYDIAN LETTER M
+1092B	LYDIAN LETTER N
+1092C	LYDIAN LETTER O
+1092D	LYDIAN LETTER R
+1092E	LYDIAN LETTER SS
+1092F	LYDIAN LETTER T
+10930	LYDIAN LETTER U
+10931	LYDIAN LETTER F
+10932	LYDIAN LETTER Q
+10933	LYDIAN LETTER S
+10934	LYDIAN LETTER TT
+10935	LYDIAN LETTER AN
+10936	LYDIAN LETTER EN
+10937	LYDIAN LETTER LY
+10938	LYDIAN LETTER NN
+10939	LYDIAN LETTER C
+1093F	LYDIAN TRIANGULAR MARK
+10980	MEROITIC HIEROGLYPHIC LETTER A
+10981	MEROITIC HIEROGLYPHIC LETTER E
+10982	MEROITIC HIEROGLYPHIC LETTER I
+10983	MEROITIC HIEROGLYPHIC LETTER O
+10984	MEROITIC HIEROGLYPHIC LETTER YA
+10985	MEROITIC HIEROGLYPHIC LETTER WA
+10986	MEROITIC HIEROGLYPHIC LETTER BA
+10987	MEROITIC HIEROGLYPHIC LETTER BA-2
+10988	MEROITIC HIEROGLYPHIC LETTER PA
+10989	MEROITIC HIEROGLYPHIC LETTER MA
+1098A	MEROITIC HIEROGLYPHIC LETTER NA
+1098B	MEROITIC HIEROGLYPHIC LETTER NA-2
+1098C	MEROITIC HIEROGLYPHIC LETTER NE
+1098D	MEROITIC HIEROGLYPHIC LETTER NE-2
+1098E	MEROITIC HIEROGLYPHIC LETTER RA
+1098F	MEROITIC HIEROGLYPHIC LETTER RA-2
+10990	MEROITIC HIEROGLYPHIC LETTER LA
+10991	MEROITIC HIEROGLYPHIC LETTER KHA
+10992	MEROITIC HIEROGLYPHIC LETTER HHA
+10993	MEROITIC HIEROGLYPHIC LETTER SA
+10994	MEROITIC HIEROGLYPHIC LETTER SA-2
+10995	MEROITIC HIEROGLYPHIC LETTER SE
+10996	MEROITIC HIEROGLYPHIC LETTER KA
+10997	MEROITIC HIEROGLYPHIC LETTER QA
+10998	MEROITIC HIEROGLYPHIC LETTER TA
+10999	MEROITIC HIEROGLYPHIC LETTER TA-2
+1099A	MEROITIC HIEROGLYPHIC LETTER TE
+1099B	MEROITIC HIEROGLYPHIC LETTER TE-2
+1099C	MEROITIC HIEROGLYPHIC LETTER TO
+1099D	MEROITIC HIEROGLYPHIC LETTER DA
+1099E	MEROITIC HIEROGLYPHIC SYMBOL VIDJ
+1099F	MEROITIC HIEROGLYPHIC SYMBOL VIDJ-2
+109A0	MEROITIC CURSIVE LETTER A
+109A1	MEROITIC CURSIVE LETTER E
+109A2	MEROITIC CURSIVE LETTER I
+109A3	MEROITIC CURSIVE LETTER O
+109A4	MEROITIC CURSIVE LETTER YA
+109A5	MEROITIC CURSIVE LETTER WA
+109A6	MEROITIC CURSIVE LETTER BA
+109A7	MEROITIC CURSIVE LETTER PA
+109A8	MEROITIC CURSIVE LETTER MA
+109A9	MEROITIC CURSIVE LETTER NA
+109AA	MEROITIC CURSIVE LETTER NE
+109AB	MEROITIC CURSIVE LETTER RA
+109AC	MEROITIC CURSIVE LETTER LA
+109AD	MEROITIC CURSIVE LETTER KHA
+109AE	MEROITIC CURSIVE LETTER HHA
+109AF	MEROITIC CURSIVE LETTER SA
+109B0	MEROITIC CURSIVE LETTER ARCHAIC SA
+109B1	MEROITIC CURSIVE LETTER SE
+109B2	MEROITIC CURSIVE LETTER KA
+109B3	MEROITIC CURSIVE LETTER QA
+109B4	MEROITIC CURSIVE LETTER TA
+109B5	MEROITIC CURSIVE LETTER TE
+109B6	MEROITIC CURSIVE LETTER TO
+109B7	MEROITIC CURSIVE LETTER DA
+109BC	MEROITIC CURSIVE FRACTION ELEVEN TWELFTHS
+109BD	MEROITIC CURSIVE FRACTION ONE HALF
+109BE	MEROITIC CURSIVE LOGOGRAM RMT
+109BF	MEROITIC CURSIVE LOGOGRAM IMN
+109C0	MEROITIC CURSIVE NUMBER ONE
+109C1	MEROITIC CURSIVE NUMBER TWO
+109C2	MEROITIC CURSIVE NUMBER THREE
+109C3	MEROITIC CURSIVE NUMBER FOUR
+109C4	MEROITIC CURSIVE NUMBER FIVE
+109C5	MEROITIC CURSIVE NUMBER SIX
+109C6	MEROITIC CURSIVE NUMBER SEVEN
+109C7	MEROITIC CURSIVE NUMBER EIGHT
+109C8	MEROITIC CURSIVE NUMBER NINE
+109C9	MEROITIC CURSIVE NUMBER TEN
+109CA	MEROITIC CURSIVE NUMBER TWENTY
+109CB	MEROITIC CURSIVE NUMBER THIRTY
+109CC	MEROITIC CURSIVE NUMBER FORTY
+109CD	MEROITIC CURSIVE NUMBER FIFTY
+109CE	MEROITIC CURSIVE NUMBER SIXTY
+109CF	MEROITIC CURSIVE NUMBER SEVENTY
+109D2	MEROITIC CURSIVE NUMBER ONE HUNDRED
+109D3	MEROITIC CURSIVE NUMBER TWO HUNDRED
+109D4	MEROITIC CURSIVE NUMBER THREE HUNDRED
+109D5	MEROITIC CURSIVE NUMBER FOUR HUNDRED
+109D6	MEROITIC CURSIVE NUMBER FIVE HUNDRED
+109D7	MEROITIC CURSIVE NUMBER SIX HUNDRED
+109D8	MEROITIC CURSIVE NUMBER SEVEN HUNDRED
+109D9	MEROITIC CURSIVE NUMBER EIGHT HUNDRED
+109DA	MEROITIC CURSIVE NUMBER NINE HUNDRED
+109DB	MEROITIC CURSIVE NUMBER ONE THOUSAND
+109DC	MEROITIC CURSIVE NUMBER TWO THOUSAND
+109DD	MEROITIC CURSIVE NUMBER THREE THOUSAND
+109DE	MEROITIC CURSIVE NUMBER FOUR THOUSAND
+109DF	MEROITIC CURSIVE NUMBER FIVE THOUSAND
+109E0	MEROITIC CURSIVE NUMBER SIX THOUSAND
+109E1	MEROITIC CURSIVE NUMBER SEVEN THOUSAND
+109E2	MEROITIC CURSIVE NUMBER EIGHT THOUSAND
+109E3	MEROITIC CURSIVE NUMBER NINE THOUSAND
+109E4	MEROITIC CURSIVE NUMBER TEN THOUSAND
+109E5	MEROITIC CURSIVE NUMBER TWENTY THOUSAND
+109E6	MEROITIC CURSIVE NUMBER THIRTY THOUSAND
+109E7	MEROITIC CURSIVE NUMBER FORTY THOUSAND
+109E8	MEROITIC CURSIVE NUMBER FIFTY THOUSAND
+109E9	MEROITIC CURSIVE NUMBER SIXTY THOUSAND
+109EA	MEROITIC CURSIVE NUMBER SEVENTY THOUSAND
+109EB	MEROITIC CURSIVE NUMBER EIGHTY THOUSAND
+109EC	MEROITIC CURSIVE NUMBER NINETY THOUSAND
+109ED	MEROITIC CURSIVE NUMBER ONE HUNDRED THOUSAND
+109EE	MEROITIC CURSIVE NUMBER TWO HUNDRED THOUSAND
+109EF	MEROITIC CURSIVE NUMBER THREE HUNDRED THOUSAND
+109F0	MEROITIC CURSIVE NUMBER FOUR HUNDRED THOUSAND
+109F1	MEROITIC CURSIVE NUMBER FIVE HUNDRED THOUSAND
+109F2	MEROITIC CURSIVE NUMBER SIX HUNDRED THOUSAND
+109F3	MEROITIC CURSIVE NUMBER SEVEN HUNDRED THOUSAND
+109F4	MEROITIC CURSIVE NUMBER EIGHT HUNDRED THOUSAND
+109F5	MEROITIC CURSIVE NUMBER NINE HUNDRED THOUSAND
+109F6	MEROITIC CURSIVE FRACTION ONE TWELFTH
+109F7	MEROITIC CURSIVE FRACTION TWO TWELFTHS
+109F8	MEROITIC CURSIVE FRACTION THREE TWELFTHS
+109F9	MEROITIC CURSIVE FRACTION FOUR TWELFTHS
+109FA	MEROITIC CURSIVE FRACTION FIVE TWELFTHS
+109FB	MEROITIC CURSIVE FRACTION SIX TWELFTHS
+109FC	MEROITIC CURSIVE FRACTION SEVEN TWELFTHS
+109FD	MEROITIC CURSIVE FRACTION EIGHT TWELFTHS
+109FE	MEROITIC CURSIVE FRACTION NINE TWELFTHS
+109FF	MEROITIC CURSIVE FRACTION TEN TWELFTHS
+10A00	KHAROSHTHI LETTER A
+10A01	KHAROSHTHI VOWEL SIGN I
+10A02	KHAROSHTHI VOWEL SIGN U
+10A03	KHAROSHTHI VOWEL SIGN VOCALIC R
+10A05	KHAROSHTHI VOWEL SIGN E
+10A06	KHAROSHTHI VOWEL SIGN O
+10A0C	KHAROSHTHI VOWEL LENGTH MARK
+10A0D	KHAROSHTHI SIGN DOUBLE RING BELOW
+10A0E	KHAROSHTHI SIGN ANUSVARA
+10A0F	KHAROSHTHI SIGN VISARGA
+10A10	KHAROSHTHI LETTER KA
+10A11	KHAROSHTHI LETTER KHA
+10A12	KHAROSHTHI LETTER GA
+10A13	KHAROSHTHI LETTER GHA
+10A15	KHAROSHTHI LETTER CA
+10A16	KHAROSHTHI LETTER CHA
+10A17	KHAROSHTHI LETTER JA
+10A19	KHAROSHTHI LETTER NYA
+10A1A	KHAROSHTHI LETTER TTA
+10A1B	KHAROSHTHI LETTER TTHA
+10A1C	KHAROSHTHI LETTER DDA
+10A1D	KHAROSHTHI LETTER DDHA
+10A1E	KHAROSHTHI LETTER NNA
+10A1F	KHAROSHTHI LETTER TA
+10A20	KHAROSHTHI LETTER THA
+10A21	KHAROSHTHI LETTER DA
+10A22	KHAROSHTHI LETTER DHA
+10A23	KHAROSHTHI LETTER NA
+10A24	KHAROSHTHI LETTER PA
+10A25	KHAROSHTHI LETTER PHA
+10A26	KHAROSHTHI LETTER BA
+10A27	KHAROSHTHI LETTER BHA
+10A28	KHAROSHTHI LETTER MA
+10A29	KHAROSHTHI LETTER YA
+10A2A	KHAROSHTHI LETTER RA
+10A2B	KHAROSHTHI LETTER LA
+10A2C	KHAROSHTHI LETTER VA
+10A2D	KHAROSHTHI LETTER SHA
+10A2E	KHAROSHTHI LETTER SSA
+10A2F	KHAROSHTHI LETTER SA
+10A30	KHAROSHTHI LETTER ZA
+10A31	KHAROSHTHI LETTER HA
+10A32	KHAROSHTHI LETTER KKA
+10A33	KHAROSHTHI LETTER TTTHA
+10A38	KHAROSHTHI SIGN BAR ABOVE
+10A39	KHAROSHTHI SIGN CAUDA
+10A3A	KHAROSHTHI SIGN DOT BELOW
+10A3F	KHAROSHTHI VIRAMA
+10A40	KHAROSHTHI DIGIT ONE
+10A41	KHAROSHTHI DIGIT TWO
+10A42	KHAROSHTHI DIGIT THREE
+10A43	KHAROSHTHI DIGIT FOUR
+10A44	KHAROSHTHI NUMBER TEN
+10A45	KHAROSHTHI NUMBER TWENTY
+10A46	KHAROSHTHI NUMBER ONE HUNDRED
+10A47	KHAROSHTHI NUMBER ONE THOUSAND
+10A50	KHAROSHTHI PUNCTUATION DOT
+10A51	KHAROSHTHI PUNCTUATION SMALL CIRCLE
+10A52	KHAROSHTHI PUNCTUATION CIRCLE
+10A53	KHAROSHTHI PUNCTUATION CRESCENT BAR
+10A54	KHAROSHTHI PUNCTUATION MANGALAM
+10A55	KHAROSHTHI PUNCTUATION LOTUS
+10A56	KHAROSHTHI PUNCTUATION DANDA
+10A57	KHAROSHTHI PUNCTUATION DOUBLE DANDA
+10A58	KHAROSHTHI PUNCTUATION LINES
+10A60	OLD SOUTH ARABIAN LETTER HE
+10A61	OLD SOUTH ARABIAN LETTER LAMEDH
+10A62	OLD SOUTH ARABIAN LETTER HETH
+10A63	OLD SOUTH ARABIAN LETTER MEM
+10A64	OLD SOUTH ARABIAN LETTER QOPH
+10A65	OLD SOUTH ARABIAN LETTER WAW
+10A66	OLD SOUTH ARABIAN LETTER SHIN
+10A67	OLD SOUTH ARABIAN LETTER RESH
+10A68	OLD SOUTH ARABIAN LETTER BETH
+10A69	OLD SOUTH ARABIAN LETTER TAW
+10A6A	OLD SOUTH ARABIAN LETTER SAT
+10A6B	OLD SOUTH ARABIAN LETTER KAPH
+10A6C	OLD SOUTH ARABIAN LETTER NUN
+10A6D	OLD SOUTH ARABIAN LETTER KHETH
+10A6E	OLD SOUTH ARABIAN LETTER SADHE
+10A6F	OLD SOUTH ARABIAN LETTER SAMEKH
+10A70	OLD SOUTH ARABIAN LETTER FE
+10A71	OLD SOUTH ARABIAN LETTER ALEF
+10A72	OLD SOUTH ARABIAN LETTER AYN
+10A73	OLD SOUTH ARABIAN LETTER DHADHE
+10A74	OLD SOUTH ARABIAN LETTER GIMEL
+10A75	OLD SOUTH ARABIAN LETTER DALETH
+10A76	OLD SOUTH ARABIAN LETTER GHAYN
+10A77	OLD SOUTH ARABIAN LETTER TETH
+10A78	OLD SOUTH ARABIAN LETTER ZAYN
+10A79	OLD SOUTH ARABIAN LETTER DHALETH
+10A7A	OLD SOUTH ARABIAN LETTER YODH
+10A7B	OLD SOUTH ARABIAN LETTER THAW
+10A7C	OLD SOUTH ARABIAN LETTER THETH
+10A7D	OLD SOUTH ARABIAN NUMBER ONE
+10A7E	OLD SOUTH ARABIAN NUMBER FIFTY
+10A7F	OLD SOUTH ARABIAN NUMERIC INDICATOR
+10A80	OLD NORTH ARABIAN LETTER HEH
+10A81	OLD NORTH ARABIAN LETTER LAM
+10A82	OLD NORTH ARABIAN LETTER HAH
+10A83	OLD NORTH ARABIAN LETTER MEEM
+10A84	OLD NORTH ARABIAN LETTER QAF
+10A85	OLD NORTH ARABIAN LETTER WAW
+10A86	OLD NORTH ARABIAN LETTER ES-2
+10A87	OLD NORTH ARABIAN LETTER REH
+10A88	OLD NORTH ARABIAN LETTER BEH
+10A89	OLD NORTH ARABIAN LETTER TEH
+10A8A	OLD NORTH ARABIAN LETTER ES-1
+10A8B	OLD NORTH ARABIAN LETTER KAF
+10A8C	OLD NORTH ARABIAN LETTER NOON
+10A8D	OLD NORTH ARABIAN LETTER KHAH
+10A8E	OLD NORTH ARABIAN LETTER SAD
+10A8F	OLD NORTH ARABIAN LETTER ES-3
+10A90	OLD NORTH ARABIAN LETTER FEH
+10A91	OLD NORTH ARABIAN LETTER ALEF
+10A92	OLD NORTH ARABIAN LETTER AIN
+10A93	OLD NORTH ARABIAN LETTER DAD
+10A94	OLD NORTH ARABIAN LETTER GEEM
+10A95	OLD NORTH ARABIAN LETTER DAL
+10A96	OLD NORTH ARABIAN LETTER GHAIN
+10A97	OLD NORTH ARABIAN LETTER TAH
+10A98	OLD NORTH ARABIAN LETTER ZAIN
+10A99	OLD NORTH ARABIAN LETTER THAL
+10A9A	OLD NORTH ARABIAN LETTER YEH
+10A9B	OLD NORTH ARABIAN LETTER THEH
+10A9C	OLD NORTH ARABIAN LETTER ZAH
+10A9D	OLD NORTH ARABIAN NUMBER ONE
+10A9E	OLD NORTH ARABIAN NUMBER TEN
+10A9F	OLD NORTH ARABIAN NUMBER TWENTY
+10AC0	MANICHAEAN LETTER ALEPH
+10AC1	MANICHAEAN LETTER BETH
+10AC2	MANICHAEAN LETTER BHETH
+10AC3	MANICHAEAN LETTER GIMEL
+10AC4	MANICHAEAN LETTER GHIMEL
+10AC5	MANICHAEAN LETTER DALETH
+10AC6	MANICHAEAN LETTER HE
+10AC7	MANICHAEAN LETTER WAW
+10AC8	MANICHAEAN SIGN UD
+10AC9	MANICHAEAN LETTER ZAYIN
+10ACA	MANICHAEAN LETTER ZHAYIN
+10ACB	MANICHAEAN LETTER JAYIN
+10ACC	MANICHAEAN LETTER JHAYIN
+10ACD	MANICHAEAN LETTER HETH
+10ACE	MANICHAEAN LETTER TETH
+10ACF	MANICHAEAN LETTER YODH
+10AD0	MANICHAEAN LETTER KAPH
+10AD1	MANICHAEAN LETTER XAPH
+10AD2	MANICHAEAN LETTER KHAPH
+10AD3	MANICHAEAN LETTER LAMEDH
+10AD4	MANICHAEAN LETTER DHAMEDH
+10AD5	MANICHAEAN LETTER THAMEDH
+10AD6	MANICHAEAN LETTER MEM
+10AD7	MANICHAEAN LETTER NUN
+10AD8	MANICHAEAN LETTER SAMEKH
+10AD9	MANICHAEAN LETTER AYIN
+10ADA	MANICHAEAN LETTER AAYIN
+10ADB	MANICHAEAN LETTER PE
+10ADC	MANICHAEAN LETTER FE
+10ADD	MANICHAEAN LETTER SADHE
+10ADE	MANICHAEAN LETTER QOPH
+10ADF	MANICHAEAN LETTER XOPH
+10AE0	MANICHAEAN LETTER QHOPH
+10AE1	MANICHAEAN LETTER RESH
+10AE2	MANICHAEAN LETTER SHIN
+10AE3	MANICHAEAN LETTER SSHIN
+10AE4	MANICHAEAN LETTER TAW
+10AE5	MANICHAEAN ABBREVIATION MARK ABOVE
+10AE6	MANICHAEAN ABBREVIATION MARK BELOW
+10AEB	MANICHAEAN NUMBER ONE
+10AEC	MANICHAEAN NUMBER FIVE
+10AED	MANICHAEAN NUMBER TEN
+10AEE	MANICHAEAN NUMBER TWENTY
+10AEF	MANICHAEAN NUMBER ONE HUNDRED
+10AF0	MANICHAEAN PUNCTUATION STAR
+10AF1	MANICHAEAN PUNCTUATION FLEURON
+10AF2	MANICHAEAN PUNCTUATION DOUBLE DOT WITHIN DOT
+10AF3	MANICHAEAN PUNCTUATION DOT WITHIN DOT
+10AF4	MANICHAEAN PUNCTUATION DOT
+10AF5	MANICHAEAN PUNCTUATION TWO DOTS
+10AF6	MANICHAEAN PUNCTUATION LINE FILLER
+10B00	AVESTAN LETTER A
+10B01	AVESTAN LETTER AA
+10B02	AVESTAN LETTER AO
+10B03	AVESTAN LETTER AAO
+10B04	AVESTAN LETTER AN
+10B05	AVESTAN LETTER AAN
+10B06	AVESTAN LETTER AE
+10B07	AVESTAN LETTER AEE
+10B08	AVESTAN LETTER E
+10B09	AVESTAN LETTER EE
+10B0A	AVESTAN LETTER O
+10B0B	AVESTAN LETTER OO
+10B0C	AVESTAN LETTER I
+10B0D	AVESTAN LETTER II
+10B0E	AVESTAN LETTER U
+10B0F	AVESTAN LETTER UU
+10B10	AVESTAN LETTER KE
+10B11	AVESTAN LETTER XE
+10B12	AVESTAN LETTER XYE
+10B13	AVESTAN LETTER XVE
+10B14	AVESTAN LETTER GE
+10B15	AVESTAN LETTER GGE
+10B16	AVESTAN LETTER GHE
+10B17	AVESTAN LETTER CE
+10B18	AVESTAN LETTER JE
+10B19	AVESTAN LETTER TE
+10B1A	AVESTAN LETTER THE
+10B1B	AVESTAN LETTER DE
+10B1C	AVESTAN LETTER DHE
+10B1D	AVESTAN LETTER TTE
+10B1E	AVESTAN LETTER PE
+10B1F	AVESTAN LETTER FE
+10B20	AVESTAN LETTER BE
+10B21	AVESTAN LETTER BHE
+10B22	AVESTAN LETTER NGE
+10B23	AVESTAN LETTER NGYE
+10B24	AVESTAN LETTER NGVE
+10B25	AVESTAN LETTER NE
+10B26	AVESTAN LETTER NYE
+10B27	AVESTAN LETTER NNE
+10B28	AVESTAN LETTER ME
+10B29	AVESTAN LETTER HME
+10B2A	AVESTAN LETTER YYE
+10B2B	AVESTAN LETTER YE
+10B2C	AVESTAN LETTER VE
+10B2D	AVESTAN LETTER RE
+10B2E	AVESTAN LETTER LE
+10B2F	AVESTAN LETTER SE
+10B30	AVESTAN LETTER ZE
+10B31	AVESTAN LETTER SHE
+10B32	AVESTAN LETTER ZHE
+10B33	AVESTAN LETTER SHYE
+10B34	AVESTAN LETTER SSHE
+10B35	AVESTAN LETTER HE
+10B39	AVESTAN ABBREVIATION MARK
+10B3A	TINY TWO DOTS OVER ONE DOT PUNCTUATION
+10B3B	SMALL TWO DOTS OVER ONE DOT PUNCTUATION
+10B3C	LARGE TWO DOTS OVER ONE DOT PUNCTUATION
+10B3D	LARGE ONE DOT OVER TWO DOTS PUNCTUATION
+10B3E	LARGE TWO RINGS OVER ONE RING PUNCTUATION
+10B3F	LARGE ONE RING OVER TWO RINGS PUNCTUATION
+10B40	INSCRIPTIONAL PARTHIAN LETTER ALEPH
+10B41	INSCRIPTIONAL PARTHIAN LETTER BETH
+10B42	INSCRIPTIONAL PARTHIAN LETTER GIMEL
+10B43	INSCRIPTIONAL PARTHIAN LETTER DALETH
+10B44	INSCRIPTIONAL PARTHIAN LETTER HE
+10B45	INSCRIPTIONAL PARTHIAN LETTER WAW
+10B46	INSCRIPTIONAL PARTHIAN LETTER ZAYIN
+10B47	INSCRIPTIONAL PARTHIAN LETTER HETH
+10B48	INSCRIPTIONAL PARTHIAN LETTER TETH
+10B49	INSCRIPTIONAL PARTHIAN LETTER YODH
+10B4A	INSCRIPTIONAL PARTHIAN LETTER KAPH
+10B4B	INSCRIPTIONAL PARTHIAN LETTER LAMEDH
+10B4C	INSCRIPTIONAL PARTHIAN LETTER MEM
+10B4D	INSCRIPTIONAL PARTHIAN LETTER NUN
+10B4E	INSCRIPTIONAL PARTHIAN LETTER SAMEKH
+10B4F	INSCRIPTIONAL PARTHIAN LETTER AYIN
+10B50	INSCRIPTIONAL PARTHIAN LETTER PE
+10B51	INSCRIPTIONAL PARTHIAN LETTER SADHE
+10B52	INSCRIPTIONAL PARTHIAN LETTER QOPH
+10B53	INSCRIPTIONAL PARTHIAN LETTER RESH
+10B54	INSCRIPTIONAL PARTHIAN LETTER SHIN
+10B55	INSCRIPTIONAL PARTHIAN LETTER TAW
+10B58	INSCRIPTIONAL PARTHIAN NUMBER ONE
+10B59	INSCRIPTIONAL PARTHIAN NUMBER TWO
+10B5A	INSCRIPTIONAL PARTHIAN NUMBER THREE
+10B5B	INSCRIPTIONAL PARTHIAN NUMBER FOUR
+10B5C	INSCRIPTIONAL PARTHIAN NUMBER TEN
+10B5D	INSCRIPTIONAL PARTHIAN NUMBER TWENTY
+10B5E	INSCRIPTIONAL PARTHIAN NUMBER ONE HUNDRED
+10B5F	INSCRIPTIONAL PARTHIAN NUMBER ONE THOUSAND
+10B60	INSCRIPTIONAL PAHLAVI LETTER ALEPH
+10B61	INSCRIPTIONAL PAHLAVI LETTER BETH
+10B62	INSCRIPTIONAL PAHLAVI LETTER GIMEL
+10B63	INSCRIPTIONAL PAHLAVI LETTER DALETH
+10B64	INSCRIPTIONAL PAHLAVI LETTER HE
+10B65	INSCRIPTIONAL PAHLAVI LETTER WAW-AYIN-RESH
+10B66	INSCRIPTIONAL PAHLAVI LETTER ZAYIN
+10B67	INSCRIPTIONAL PAHLAVI LETTER HETH
+10B68	INSCRIPTIONAL PAHLAVI LETTER TETH
+10B69	INSCRIPTIONAL PAHLAVI LETTER YODH
+10B6A	INSCRIPTIONAL PAHLAVI LETTER KAPH
+10B6B	INSCRIPTIONAL PAHLAVI LETTER LAMEDH
+10B6C	INSCRIPTIONAL PAHLAVI LETTER MEM-QOPH
+10B6D	INSCRIPTIONAL PAHLAVI LETTER NUN
+10B6E	INSCRIPTIONAL PAHLAVI LETTER SAMEKH
+10B6F	INSCRIPTIONAL PAHLAVI LETTER PE
+10B70	INSCRIPTIONAL PAHLAVI LETTER SADHE
+10B71	INSCRIPTIONAL PAHLAVI LETTER SHIN
+10B72	INSCRIPTIONAL PAHLAVI LETTER TAW
+10B78	INSCRIPTIONAL PAHLAVI NUMBER ONE
+10B79	INSCRIPTIONAL PAHLAVI NUMBER TWO
+10B7A	INSCRIPTIONAL PAHLAVI NUMBER THREE
+10B7B	INSCRIPTIONAL PAHLAVI NUMBER FOUR
+10B7C	INSCRIPTIONAL PAHLAVI NUMBER TEN
+10B7D	INSCRIPTIONAL PAHLAVI NUMBER TWENTY
+10B7E	INSCRIPTIONAL PAHLAVI NUMBER ONE HUNDRED
+10B7F	INSCRIPTIONAL PAHLAVI NUMBER ONE THOUSAND
+10B80	PSALTER PAHLAVI LETTER ALEPH
+10B81	PSALTER PAHLAVI LETTER BETH
+10B82	PSALTER PAHLAVI LETTER GIMEL
+10B83	PSALTER PAHLAVI LETTER DALETH
+10B84	PSALTER PAHLAVI LETTER HE
+10B85	PSALTER PAHLAVI LETTER WAW-AYIN-RESH
+10B86	PSALTER PAHLAVI LETTER ZAYIN
+10B87	PSALTER PAHLAVI LETTER HETH
+10B88	PSALTER PAHLAVI LETTER YODH
+10B89	PSALTER PAHLAVI LETTER KAPH
+10B8A	PSALTER PAHLAVI LETTER LAMEDH
+10B8B	PSALTER PAHLAVI LETTER MEM-QOPH
+10B8C	PSALTER PAHLAVI LETTER NUN
+10B8D	PSALTER PAHLAVI LETTER SAMEKH
+10B8E	PSALTER PAHLAVI LETTER PE
+10B8F	PSALTER PAHLAVI LETTER SADHE
+10B90	PSALTER PAHLAVI LETTER SHIN
+10B91	PSALTER PAHLAVI LETTER TAW
+10B99	PSALTER PAHLAVI SECTION MARK
+10B9A	PSALTER PAHLAVI TURNED SECTION MARK
+10B9B	PSALTER PAHLAVI FOUR DOTS WITH CROSS
+10B9C	PSALTER PAHLAVI FOUR DOTS WITH DOT
+10BA9	PSALTER PAHLAVI NUMBER ONE
+10BAA	PSALTER PAHLAVI NUMBER TWO
+10BAB	PSALTER PAHLAVI NUMBER THREE
+10BAC	PSALTER PAHLAVI NUMBER FOUR
+10BAD	PSALTER PAHLAVI NUMBER TEN
+10BAE	PSALTER PAHLAVI NUMBER TWENTY
+10BAF	PSALTER PAHLAVI NUMBER ONE HUNDRED
+10C00	OLD TURKIC LETTER ORKHON A
+10C01	OLD TURKIC LETTER YENISEI A
+10C02	OLD TURKIC LETTER YENISEI AE
+10C03	OLD TURKIC LETTER ORKHON I
+10C04	OLD TURKIC LETTER YENISEI I
+10C05	OLD TURKIC LETTER YENISEI E
+10C06	OLD TURKIC LETTER ORKHON O
+10C07	OLD TURKIC LETTER ORKHON OE
+10C08	OLD TURKIC LETTER YENISEI OE
+10C09	OLD TURKIC LETTER ORKHON AB
+10C0A	OLD TURKIC LETTER YENISEI AB
+10C0B	OLD TURKIC LETTER ORKHON AEB
+10C0C	OLD TURKIC LETTER YENISEI AEB
+10C0D	OLD TURKIC LETTER ORKHON AG
+10C0E	OLD TURKIC LETTER YENISEI AG
+10C0F	OLD TURKIC LETTER ORKHON AEG
+10C10	OLD TURKIC LETTER YENISEI AEG
+10C11	OLD TURKIC LETTER ORKHON AD
+10C12	OLD TURKIC LETTER YENISEI AD
+10C13	OLD TURKIC LETTER ORKHON AED
+10C14	OLD TURKIC LETTER ORKHON EZ
+10C15	OLD TURKIC LETTER YENISEI EZ
+10C16	OLD TURKIC LETTER ORKHON AY
+10C17	OLD TURKIC LETTER YENISEI AY
+10C18	OLD TURKIC LETTER ORKHON AEY
+10C19	OLD TURKIC LETTER YENISEI AEY
+10C1A	OLD TURKIC LETTER ORKHON AEK
+10C1B	OLD TURKIC LETTER YENISEI AEK
+10C1C	OLD TURKIC LETTER ORKHON OEK
+10C1D	OLD TURKIC LETTER YENISEI OEK
+10C1E	OLD TURKIC LETTER ORKHON AL
+10C1F	OLD TURKIC LETTER YENISEI AL
+10C20	OLD TURKIC LETTER ORKHON AEL
+10C21	OLD TURKIC LETTER ORKHON ELT
+10C22	OLD TURKIC LETTER ORKHON EM
+10C23	OLD TURKIC LETTER ORKHON AN
+10C24	OLD TURKIC LETTER ORKHON AEN
+10C25	OLD TURKIC LETTER YENISEI AEN
+10C26	OLD TURKIC LETTER ORKHON ENT
+10C27	OLD TURKIC LETTER YENISEI ENT
+10C28	OLD TURKIC LETTER ORKHON ENC
+10C29	OLD TURKIC LETTER YENISEI ENC
+10C2A	OLD TURKIC LETTER ORKHON ENY
+10C2B	OLD TURKIC LETTER YENISEI ENY
+10C2C	OLD TURKIC LETTER YENISEI ANG
+10C2D	OLD TURKIC LETTER ORKHON ENG
+10C2E	OLD TURKIC LETTER YENISEI AENG
+10C2F	OLD TURKIC LETTER ORKHON EP
+10C30	OLD TURKIC LETTER ORKHON OP
+10C31	OLD TURKIC LETTER ORKHON IC
+10C32	OLD TURKIC LETTER ORKHON EC
+10C33	OLD TURKIC LETTER YENISEI EC
+10C34	OLD TURKIC LETTER ORKHON AQ
+10C35	OLD TURKIC LETTER YENISEI AQ
+10C36	OLD TURKIC LETTER ORKHON IQ
+10C37	OLD TURKIC LETTER YENISEI IQ
+10C38	OLD TURKIC LETTER ORKHON OQ
+10C39	OLD TURKIC LETTER YENISEI OQ
+10C3A	OLD TURKIC LETTER ORKHON AR
+10C3B	OLD TURKIC LETTER YENISEI AR
+10C3C	OLD TURKIC LETTER ORKHON AER
+10C3D	OLD TURKIC LETTER ORKHON AS
+10C3E	OLD TURKIC LETTER ORKHON AES
+10C3F	OLD TURKIC LETTER ORKHON ASH
+10C40	OLD TURKIC LETTER YENISEI ASH
+10C41	OLD TURKIC LETTER ORKHON ESH
+10C42	OLD TURKIC LETTER YENISEI ESH
+10C43	OLD TURKIC LETTER ORKHON AT
+10C44	OLD TURKIC LETTER YENISEI AT
+10C45	OLD TURKIC LETTER ORKHON AET
+10C46	OLD TURKIC LETTER YENISEI AET
+10C47	OLD TURKIC LETTER ORKHON OT
+10C48	OLD TURKIC LETTER ORKHON BASH
+10C80	OLD HUNGARIAN CAPITAL LETTER A
+10C81	OLD HUNGARIAN CAPITAL LETTER AA
+10C82	OLD HUNGARIAN CAPITAL LETTER EB
+10C83	OLD HUNGARIAN CAPITAL LETTER AMB
+10C84	OLD HUNGARIAN CAPITAL LETTER EC
+10C85	OLD HUNGARIAN CAPITAL LETTER ENC
+10C86	OLD HUNGARIAN CAPITAL LETTER ECS
+10C87	OLD HUNGARIAN CAPITAL LETTER ED
+10C88	OLD HUNGARIAN CAPITAL LETTER AND
+10C89	OLD HUNGARIAN CAPITAL LETTER E
+10C8A	OLD HUNGARIAN CAPITAL LETTER CLOSE E
+10C8B	OLD HUNGARIAN CAPITAL LETTER EE
+10C8C	OLD HUNGARIAN CAPITAL LETTER EF
+10C8D	OLD HUNGARIAN CAPITAL LETTER EG
+10C8E	OLD HUNGARIAN CAPITAL LETTER EGY
+10C8F	OLD HUNGARIAN CAPITAL LETTER EH
+10C90	OLD HUNGARIAN CAPITAL LETTER I
+10C91	OLD HUNGARIAN CAPITAL LETTER II
+10C92	OLD HUNGARIAN CAPITAL LETTER EJ
+10C93	OLD HUNGARIAN CAPITAL LETTER EK
+10C94	OLD HUNGARIAN CAPITAL LETTER AK
+10C95	OLD HUNGARIAN CAPITAL LETTER UNK
+10C96	OLD HUNGARIAN CAPITAL LETTER EL
+10C97	OLD HUNGARIAN CAPITAL LETTER ELY
+10C98	OLD HUNGARIAN CAPITAL LETTER EM
+10C99	OLD HUNGARIAN CAPITAL LETTER EN
+10C9A	OLD HUNGARIAN CAPITAL LETTER ENY
+10C9B	OLD HUNGARIAN CAPITAL LETTER O
+10C9C	OLD HUNGARIAN CAPITAL LETTER OO
+10C9D	OLD HUNGARIAN CAPITAL LETTER NIKOLSBURG OE
+10C9E	OLD HUNGARIAN CAPITAL LETTER RUDIMENTA OE
+10C9F	OLD HUNGARIAN CAPITAL LETTER OEE
+10CA0	OLD HUNGARIAN CAPITAL LETTER EP
+10CA1	OLD HUNGARIAN CAPITAL LETTER EMP
+10CA2	OLD HUNGARIAN CAPITAL LETTER ER
+10CA3	OLD HUNGARIAN CAPITAL LETTER SHORT ER
+10CA4	OLD HUNGARIAN CAPITAL LETTER ES
+10CA5	OLD HUNGARIAN CAPITAL LETTER ESZ
+10CA6	OLD HUNGARIAN CAPITAL LETTER ET
+10CA7	OLD HUNGARIAN CAPITAL LETTER ENT
+10CA8	OLD HUNGARIAN CAPITAL LETTER ETY
+10CA9	OLD HUNGARIAN CAPITAL LETTER ECH
+10CAA	OLD HUNGARIAN CAPITAL LETTER U
+10CAB	OLD HUNGARIAN CAPITAL LETTER UU
+10CAC	OLD HUNGARIAN CAPITAL LETTER NIKOLSBURG UE
+10CAD	OLD HUNGARIAN CAPITAL LETTER RUDIMENTA UE
+10CAE	OLD HUNGARIAN CAPITAL LETTER EV
+10CAF	OLD HUNGARIAN CAPITAL LETTER EZ
+10CB0	OLD HUNGARIAN CAPITAL LETTER EZS
+10CB1	OLD HUNGARIAN CAPITAL LETTER ENT-SHAPED SIGN
+10CB2	OLD HUNGARIAN CAPITAL LETTER US
+10CC0	OLD HUNGARIAN SMALL LETTER A
+10CC1	OLD HUNGARIAN SMALL LETTER AA
+10CC2	OLD HUNGARIAN SMALL LETTER EB
+10CC3	OLD HUNGARIAN SMALL LETTER AMB
+10CC4	OLD HUNGARIAN SMALL LETTER EC
+10CC5	OLD HUNGARIAN SMALL LETTER ENC
+10CC6	OLD HUNGARIAN SMALL LETTER ECS
+10CC7	OLD HUNGARIAN SMALL LETTER ED
+10CC8	OLD HUNGARIAN SMALL LETTER AND
+10CC9	OLD HUNGARIAN SMALL LETTER E
+10CCA	OLD HUNGARIAN SMALL LETTER CLOSE E
+10CCB	OLD HUNGARIAN SMALL LETTER EE
+10CCC	OLD HUNGARIAN SMALL LETTER EF
+10CCD	OLD HUNGARIAN SMALL LETTER EG
+10CCE	OLD HUNGARIAN SMALL LETTER EGY
+10CCF	OLD HUNGARIAN SMALL LETTER EH
+10CD0	OLD HUNGARIAN SMALL LETTER I
+10CD1	OLD HUNGARIAN SMALL LETTER II
+10CD2	OLD HUNGARIAN SMALL LETTER EJ
+10CD3	OLD HUNGARIAN SMALL LETTER EK
+10CD4	OLD HUNGARIAN SMALL LETTER AK
+10CD5	OLD HUNGARIAN SMALL LETTER UNK
+10CD6	OLD HUNGARIAN SMALL LETTER EL
+10CD7	OLD HUNGARIAN SMALL LETTER ELY
+10CD8	OLD HUNGARIAN SMALL LETTER EM
+10CD9	OLD HUNGARIAN SMALL LETTER EN
+10CDA	OLD HUNGARIAN SMALL LETTER ENY
+10CDB	OLD HUNGARIAN SMALL LETTER O
+10CDC	OLD HUNGARIAN SMALL LETTER OO
+10CDD	OLD HUNGARIAN SMALL LETTER NIKOLSBURG OE
+10CDE	OLD HUNGARIAN SMALL LETTER RUDIMENTA OE
+10CDF	OLD HUNGARIAN SMALL LETTER OEE
+10CE0	OLD HUNGARIAN SMALL LETTER EP
+10CE1	OLD HUNGARIAN SMALL LETTER EMP
+10CE2	OLD HUNGARIAN SMALL LETTER ER
+10CE3	OLD HUNGARIAN SMALL LETTER SHORT ER
+10CE4	OLD HUNGARIAN SMALL LETTER ES
+10CE5	OLD HUNGARIAN SMALL LETTER ESZ
+10CE6	OLD HUNGARIAN SMALL LETTER ET
+10CE7	OLD HUNGARIAN SMALL LETTER ENT
+10CE8	OLD HUNGARIAN SMALL LETTER ETY
+10CE9	OLD HUNGARIAN SMALL LETTER ECH
+10CEA	OLD HUNGARIAN SMALL LETTER U
+10CEB	OLD HUNGARIAN SMALL LETTER UU
+10CEC	OLD HUNGARIAN SMALL LETTER NIKOLSBURG UE
+10CED	OLD HUNGARIAN SMALL LETTER RUDIMENTA UE
+10CEE	OLD HUNGARIAN SMALL LETTER EV
+10CEF	OLD HUNGARIAN SMALL LETTER EZ
+10CF0	OLD HUNGARIAN SMALL LETTER EZS
+10CF1	OLD HUNGARIAN SMALL LETTER ENT-SHAPED SIGN
+10CF2	OLD HUNGARIAN SMALL LETTER US
+10CFA	OLD HUNGARIAN NUMBER ONE
+10CFB	OLD HUNGARIAN NUMBER FIVE
+10CFC	OLD HUNGARIAN NUMBER TEN
+10CFD	OLD HUNGARIAN NUMBER FIFTY
+10CFE	OLD HUNGARIAN NUMBER ONE HUNDRED
+10CFF	OLD HUNGARIAN NUMBER ONE THOUSAND
+10E60	RUMI DIGIT ONE
+10E61	RUMI DIGIT TWO
+10E62	RUMI DIGIT THREE
+10E63	RUMI DIGIT FOUR
+10E64	RUMI DIGIT FIVE
+10E65	RUMI DIGIT SIX
+10E66	RUMI DIGIT SEVEN
+10E67	RUMI DIGIT EIGHT
+10E68	RUMI DIGIT NINE
+10E69	RUMI NUMBER TEN
+10E6A	RUMI NUMBER TWENTY
+10E6B	RUMI NUMBER THIRTY
+10E6C	RUMI NUMBER FORTY
+10E6D	RUMI NUMBER FIFTY
+10E6E	RUMI NUMBER SIXTY
+10E6F	RUMI NUMBER SEVENTY
+10E70	RUMI NUMBER EIGHTY
+10E71	RUMI NUMBER NINETY
+10E72	RUMI NUMBER ONE HUNDRED
+10E73	RUMI NUMBER TWO HUNDRED
+10E74	RUMI NUMBER THREE HUNDRED
+10E75	RUMI NUMBER FOUR HUNDRED
+10E76	RUMI NUMBER FIVE HUNDRED
+10E77	RUMI NUMBER SIX HUNDRED
+10E78	RUMI NUMBER SEVEN HUNDRED
+10E79	RUMI NUMBER EIGHT HUNDRED
+10E7A	RUMI NUMBER NINE HUNDRED
+10E7B	RUMI FRACTION ONE HALF
+10E7C	RUMI FRACTION ONE QUARTER
+10E7D	RUMI FRACTION ONE THIRD
+10E7E	RUMI FRACTION TWO THIRDS
+11000	BRAHMI SIGN CANDRABINDU
+11001	BRAHMI SIGN ANUSVARA
+11002	BRAHMI SIGN VISARGA
+11003	BRAHMI SIGN JIHVAMULIYA
+11004	BRAHMI SIGN UPADHMANIYA
+11005	BRAHMI LETTER A
+11006	BRAHMI LETTER AA
+11007	BRAHMI LETTER I
+11008	BRAHMI LETTER II
+11009	BRAHMI LETTER U
+1100A	BRAHMI LETTER UU
+1100B	BRAHMI LETTER VOCALIC R
+1100C	BRAHMI LETTER VOCALIC RR
+1100D	BRAHMI LETTER VOCALIC L
+1100E	BRAHMI LETTER VOCALIC LL
+1100F	BRAHMI LETTER E
+11010	BRAHMI LETTER AI
+11011	BRAHMI LETTER O
+11012	BRAHMI LETTER AU
+11013	BRAHMI LETTER KA
+11014	BRAHMI LETTER KHA
+11015	BRAHMI LETTER GA
+11016	BRAHMI LETTER GHA
+11017	BRAHMI LETTER NGA
+11018	BRAHMI LETTER CA
+11019	BRAHMI LETTER CHA
+1101A	BRAHMI LETTER JA
+1101B	BRAHMI LETTER JHA
+1101C	BRAHMI LETTER NYA
+1101D	BRAHMI LETTER TTA
+1101E	BRAHMI LETTER TTHA
+1101F	BRAHMI LETTER DDA
+11020	BRAHMI LETTER DDHA
+11021	BRAHMI LETTER NNA
+11022	BRAHMI LETTER TA
+11023	BRAHMI LETTER THA
+11024	BRAHMI LETTER DA
+11025	BRAHMI LETTER DHA
+11026	BRAHMI LETTER NA
+11027	BRAHMI LETTER PA
+11028	BRAHMI LETTER PHA
+11029	BRAHMI LETTER BA
+1102A	BRAHMI LETTER BHA
+1102B	BRAHMI LETTER MA
+1102C	BRAHMI LETTER YA
+1102D	BRAHMI LETTER RA
+1102E	BRAHMI LETTER LA
+1102F	BRAHMI LETTER VA
+11030	BRAHMI LETTER SHA
+11031	BRAHMI LETTER SSA
+11032	BRAHMI LETTER SA
+11033	BRAHMI LETTER HA
+11034	BRAHMI LETTER LLA
+11035	BRAHMI LETTER OLD TAMIL LLLA
+11036	BRAHMI LETTER OLD TAMIL RRA
+11037	BRAHMI LETTER OLD TAMIL NNNA
+11038	BRAHMI VOWEL SIGN AA
+11039	BRAHMI VOWEL SIGN BHATTIPROLU AA
+1103A	BRAHMI VOWEL SIGN I
+1103B	BRAHMI VOWEL SIGN II
+1103C	BRAHMI VOWEL SIGN U
+1103D	BRAHMI VOWEL SIGN UU
+1103E	BRAHMI VOWEL SIGN VOCALIC R
+1103F	BRAHMI VOWEL SIGN VOCALIC RR
+11040	BRAHMI VOWEL SIGN VOCALIC L
+11041	BRAHMI VOWEL SIGN VOCALIC LL
+11042	BRAHMI VOWEL SIGN E
+11043	BRAHMI VOWEL SIGN AI
+11044	BRAHMI VOWEL SIGN O
+11045	BRAHMI VOWEL SIGN AU
+11046	BRAHMI VIRAMA
+11047	BRAHMI DANDA
+11048	BRAHMI DOUBLE DANDA
+11049	BRAHMI PUNCTUATION DOT
+1104A	BRAHMI PUNCTUATION DOUBLE DOT
+1104B	BRAHMI PUNCTUATION LINE
+1104C	BRAHMI PUNCTUATION CRESCENT BAR
+1104D	BRAHMI PUNCTUATION LOTUS
+11052	BRAHMI NUMBER ONE
+11053	BRAHMI NUMBER TWO
+11054	BRAHMI NUMBER THREE
+11055	BRAHMI NUMBER FOUR
+11056	BRAHMI NUMBER FIVE
+11057	BRAHMI NUMBER SIX
+11058	BRAHMI NUMBER SEVEN
+11059	BRAHMI NUMBER EIGHT
+1105A	BRAHMI NUMBER NINE
+1105B	BRAHMI NUMBER TEN
+1105C	BRAHMI NUMBER TWENTY
+1105D	BRAHMI NUMBER THIRTY
+1105E	BRAHMI NUMBER FORTY
+1105F	BRAHMI NUMBER FIFTY
+11060	BRAHMI NUMBER SIXTY
+11061	BRAHMI NUMBER SEVENTY
+11062	BRAHMI NUMBER EIGHTY
+11063	BRAHMI NUMBER NINETY
+11064	BRAHMI NUMBER ONE HUNDRED
+11065	BRAHMI NUMBER ONE THOUSAND
+11066	BRAHMI DIGIT ZERO
+11067	BRAHMI DIGIT ONE
+11068	BRAHMI DIGIT TWO
+11069	BRAHMI DIGIT THREE
+1106A	BRAHMI DIGIT FOUR
+1106B	BRAHMI DIGIT FIVE
+1106C	BRAHMI DIGIT SIX
+1106D	BRAHMI DIGIT SEVEN
+1106E	BRAHMI DIGIT EIGHT
+1106F	BRAHMI DIGIT NINE
+1107F	BRAHMI NUMBER JOINER
+11080	KAITHI SIGN CANDRABINDU
+11081	KAITHI SIGN ANUSVARA
+11082	KAITHI SIGN VISARGA
+11083	KAITHI LETTER A
+11084	KAITHI LETTER AA
+11085	KAITHI LETTER I
+11086	KAITHI LETTER II
+11087	KAITHI LETTER U
+11088	KAITHI LETTER UU
+11089	KAITHI LETTER E
+1108A	KAITHI LETTER AI
+1108B	KAITHI LETTER O
+1108C	KAITHI LETTER AU
+1108D	KAITHI LETTER KA
+1108E	KAITHI LETTER KHA
+1108F	KAITHI LETTER GA
+11090	KAITHI LETTER GHA
+11091	KAITHI LETTER NGA
+11092	KAITHI LETTER CA
+11093	KAITHI LETTER CHA
+11094	KAITHI LETTER JA
+11095	KAITHI LETTER JHA
+11096	KAITHI LETTER NYA
+11097	KAITHI LETTER TTA
+11098	KAITHI LETTER TTHA
+11099	KAITHI LETTER DDA
+1109A	KAITHI LETTER DDDHA
+1109B	KAITHI LETTER DDHA
+1109C	KAITHI LETTER RHA
+1109D	KAITHI LETTER NNA
+1109E	KAITHI LETTER TA
+1109F	KAITHI LETTER THA
+110A0	KAITHI LETTER DA
+110A1	KAITHI LETTER DHA
+110A2	KAITHI LETTER NA
+110A3	KAITHI LETTER PA
+110A4	KAITHI LETTER PHA
+110A5	KAITHI LETTER BA
+110A6	KAITHI LETTER BHA
+110A7	KAITHI LETTER MA
+110A8	KAITHI LETTER YA
+110A9	KAITHI LETTER RA
+110AA	KAITHI LETTER LA
+110AB	KAITHI LETTER VA
+110AC	KAITHI LETTER SHA
+110AD	KAITHI LETTER SSA
+110AE	KAITHI LETTER SA
+110AF	KAITHI LETTER HA
+110B0	KAITHI VOWEL SIGN AA
+110B1	KAITHI VOWEL SIGN I
+110B2	KAITHI VOWEL SIGN II
+110B3	KAITHI VOWEL SIGN U
+110B4	KAITHI VOWEL SIGN UU
+110B5	KAITHI VOWEL SIGN E
+110B6	KAITHI VOWEL SIGN AI
+110B7	KAITHI VOWEL SIGN O
+110B8	KAITHI VOWEL SIGN AU
+110B9	KAITHI SIGN VIRAMA
+110BA	KAITHI SIGN NUKTA
+110BB	KAITHI ABBREVIATION SIGN
+110BC	KAITHI ENUMERATION SIGN
+110BD	KAITHI NUMBER SIGN
+110BE	KAITHI SECTION MARK
+110BF	KAITHI DOUBLE SECTION MARK
+110C0	KAITHI DANDA
+110C1	KAITHI DOUBLE DANDA
+110D0	SORA SOMPENG LETTER SAH
+110D1	SORA SOMPENG LETTER TAH
+110D2	SORA SOMPENG LETTER BAH
+110D3	SORA SOMPENG LETTER CAH
+110D4	SORA SOMPENG LETTER DAH
+110D5	SORA SOMPENG LETTER GAH
+110D6	SORA SOMPENG LETTER MAH
+110D7	SORA SOMPENG LETTER NGAH
+110D8	SORA SOMPENG LETTER LAH
+110D9	SORA SOMPENG LETTER NAH
+110DA	SORA SOMPENG LETTER VAH
+110DB	SORA SOMPENG LETTER PAH
+110DC	SORA SOMPENG LETTER YAH
+110DD	SORA SOMPENG LETTER RAH
+110DE	SORA SOMPENG LETTER HAH
+110DF	SORA SOMPENG LETTER KAH
+110E0	SORA SOMPENG LETTER JAH
+110E1	SORA SOMPENG LETTER NYAH
+110E2	SORA SOMPENG LETTER AH
+110E3	SORA SOMPENG LETTER EEH
+110E4	SORA SOMPENG LETTER IH
+110E5	SORA SOMPENG LETTER UH
+110E6	SORA SOMPENG LETTER OH
+110E7	SORA SOMPENG LETTER EH
+110E8	SORA SOMPENG LETTER MAE
+110F0	SORA SOMPENG DIGIT ZERO
+110F1	SORA SOMPENG DIGIT ONE
+110F2	SORA SOMPENG DIGIT TWO
+110F3	SORA SOMPENG DIGIT THREE
+110F4	SORA SOMPENG DIGIT FOUR
+110F5	SORA SOMPENG DIGIT FIVE
+110F6	SORA SOMPENG DIGIT SIX
+110F7	SORA SOMPENG DIGIT SEVEN
+110F8	SORA SOMPENG DIGIT EIGHT
+110F9	SORA SOMPENG DIGIT NINE
+11100	CHAKMA SIGN CANDRABINDU
+11101	CHAKMA SIGN ANUSVARA
+11102	CHAKMA SIGN VISARGA
+11103	CHAKMA LETTER AA
+11104	CHAKMA LETTER I
+11105	CHAKMA LETTER U
+11106	CHAKMA LETTER E
+11107	CHAKMA LETTER KAA
+11108	CHAKMA LETTER KHAA
+11109	CHAKMA LETTER GAA
+1110A	CHAKMA LETTER GHAA
+1110B	CHAKMA LETTER NGAA
+1110C	CHAKMA LETTER CAA
+1110D	CHAKMA LETTER CHAA
+1110E	CHAKMA LETTER JAA
+1110F	CHAKMA LETTER JHAA
+11110	CHAKMA LETTER NYAA
+11111	CHAKMA LETTER TTAA
+11112	CHAKMA LETTER TTHAA
+11113	CHAKMA LETTER DDAA
+11114	CHAKMA LETTER DDHAA
+11115	CHAKMA LETTER NNAA
+11116	CHAKMA LETTER TAA
+11117	CHAKMA LETTER THAA
+11118	CHAKMA LETTER DAA
+11119	CHAKMA LETTER DHAA
+1111A	CHAKMA LETTER NAA
+1111B	CHAKMA LETTER PAA
+1111C	CHAKMA LETTER PHAA
+1111D	CHAKMA LETTER BAA
+1111E	CHAKMA LETTER BHAA
+1111F	CHAKMA LETTER MAA
+11120	CHAKMA LETTER YYAA
+11121	CHAKMA LETTER YAA
+11122	CHAKMA LETTER RAA
+11123	CHAKMA LETTER LAA
+11124	CHAKMA LETTER WAA
+11125	CHAKMA LETTER SAA
+11126	CHAKMA LETTER HAA
+11127	CHAKMA VOWEL SIGN A
+11128	CHAKMA VOWEL SIGN I
+11129	CHAKMA VOWEL SIGN II
+1112A	CHAKMA VOWEL SIGN U
+1112B	CHAKMA VOWEL SIGN UU
+1112C	CHAKMA VOWEL SIGN E
+1112D	CHAKMA VOWEL SIGN AI
+1112E	CHAKMA VOWEL SIGN O
+1112F	CHAKMA VOWEL SIGN AU
+11130	CHAKMA VOWEL SIGN OI
+11131	CHAKMA O MARK
+11132	CHAKMA AU MARK
+11133	CHAKMA VIRAMA
+11134	CHAKMA MAAYYAA
+11136	CHAKMA DIGIT ZERO
+11137	CHAKMA DIGIT ONE
+11138	CHAKMA DIGIT TWO
+11139	CHAKMA DIGIT THREE
+1113A	CHAKMA DIGIT FOUR
+1113B	CHAKMA DIGIT FIVE
+1113C	CHAKMA DIGIT SIX
+1113D	CHAKMA DIGIT SEVEN
+1113E	CHAKMA DIGIT EIGHT
+1113F	CHAKMA DIGIT NINE
+11140	CHAKMA SECTION MARK
+11141	CHAKMA DANDA
+11142	CHAKMA DOUBLE DANDA
+11143	CHAKMA QUESTION MARK
+11150	MAHAJANI LETTER A
+11151	MAHAJANI LETTER I
+11152	MAHAJANI LETTER U
+11153	MAHAJANI LETTER E
+11154	MAHAJANI LETTER O
+11155	MAHAJANI LETTER KA
+11156	MAHAJANI LETTER KHA
+11157	MAHAJANI LETTER GA
+11158	MAHAJANI LETTER GHA
+11159	MAHAJANI LETTER CA
+1115A	MAHAJANI LETTER CHA
+1115B	MAHAJANI LETTER JA
+1115C	MAHAJANI LETTER JHA
+1115D	MAHAJANI LETTER NYA
+1115E	MAHAJANI LETTER TTA
+1115F	MAHAJANI LETTER TTHA
+11160	MAHAJANI LETTER DDA
+11161	MAHAJANI LETTER DDHA
+11162	MAHAJANI LETTER NNA
+11163	MAHAJANI LETTER TA
+11164	MAHAJANI LETTER THA
+11165	MAHAJANI LETTER DA
+11166	MAHAJANI LETTER DHA
+11167	MAHAJANI LETTER NA
+11168	MAHAJANI LETTER PA
+11169	MAHAJANI LETTER PHA
+1116A	MAHAJANI LETTER BA
+1116B	MAHAJANI LETTER BHA
+1116C	MAHAJANI LETTER MA
+1116D	MAHAJANI LETTER RA
+1116E	MAHAJANI LETTER LA
+1116F	MAHAJANI LETTER VA
+11170	MAHAJANI LETTER SA
+11171	MAHAJANI LETTER HA
+11172	MAHAJANI LETTER RRA
+11173	MAHAJANI SIGN NUKTA
+11174	MAHAJANI ABBREVIATION SIGN
+11175	MAHAJANI SECTION MARK
+11176	MAHAJANI LIGATURE SHRI
+11180	SHARADA SIGN CANDRABINDU
+11181	SHARADA SIGN ANUSVARA
+11182	SHARADA SIGN VISARGA
+11183	SHARADA LETTER A
+11184	SHARADA LETTER AA
+11185	SHARADA LETTER I
+11186	SHARADA LETTER II
+11187	SHARADA LETTER U
+11188	SHARADA LETTER UU
+11189	SHARADA LETTER VOCALIC R
+1118A	SHARADA LETTER VOCALIC RR
+1118B	SHARADA LETTER VOCALIC L
+1118C	SHARADA LETTER VOCALIC LL
+1118D	SHARADA LETTER E
+1118E	SHARADA LETTER AI
+1118F	SHARADA LETTER O
+11190	SHARADA LETTER AU
+11191	SHARADA LETTER KA
+11192	SHARADA LETTER KHA
+11193	SHARADA LETTER GA
+11194	SHARADA LETTER GHA
+11195	SHARADA LETTER NGA
+11196	SHARADA LETTER CA
+11197	SHARADA LETTER CHA
+11198	SHARADA LETTER JA
+11199	SHARADA LETTER JHA
+1119A	SHARADA LETTER NYA
+1119B	SHARADA LETTER TTA
+1119C	SHARADA LETTER TTHA
+1119D	SHARADA LETTER DDA
+1119E	SHARADA LETTER DDHA
+1119F	SHARADA LETTER NNA
+111A0	SHARADA LETTER TA
+111A1	SHARADA LETTER THA
+111A2	SHARADA LETTER DA
+111A3	SHARADA LETTER DHA
+111A4	SHARADA LETTER NA
+111A5	SHARADA LETTER PA
+111A6	SHARADA LETTER PHA
+111A7	SHARADA LETTER BA
+111A8	SHARADA LETTER BHA
+111A9	SHARADA LETTER MA
+111AA	SHARADA LETTER YA
+111AB	SHARADA LETTER RA
+111AC	SHARADA LETTER LA
+111AD	SHARADA LETTER LLA
+111AE	SHARADA LETTER VA
+111AF	SHARADA LETTER SHA
+111B0	SHARADA LETTER SSA
+111B1	SHARADA LETTER SA
+111B2	SHARADA LETTER HA
+111B3	SHARADA VOWEL SIGN AA
+111B4	SHARADA VOWEL SIGN I
+111B5	SHARADA VOWEL SIGN II
+111B6	SHARADA VOWEL SIGN U
+111B7	SHARADA VOWEL SIGN UU
+111B8	SHARADA VOWEL SIGN VOCALIC R
+111B9	SHARADA VOWEL SIGN VOCALIC RR
+111BA	SHARADA VOWEL SIGN VOCALIC L
+111BB	SHARADA VOWEL SIGN VOCALIC LL
+111BC	SHARADA VOWEL SIGN E
+111BD	SHARADA VOWEL SIGN AI
+111BE	SHARADA VOWEL SIGN O
+111BF	SHARADA VOWEL SIGN AU
+111C0	SHARADA SIGN VIRAMA
+111C1	SHARADA SIGN AVAGRAHA
+111C2	SHARADA SIGN JIHVAMULIYA
+111C3	SHARADA SIGN UPADHMANIYA
+111C4	SHARADA OM
+111C5	SHARADA DANDA
+111C6	SHARADA DOUBLE DANDA
+111C7	SHARADA ABBREVIATION SIGN
+111C8	SHARADA SEPARATOR
+111C9	SHARADA SANDHI MARK
+111CA	SHARADA SIGN NUKTA
+111CB	SHARADA VOWEL MODIFIER MARK
+111CC	SHARADA EXTRA SHORT VOWEL MARK
+111CD	SHARADA SUTRA MARK
+111D0	SHARADA DIGIT ZERO
+111D1	SHARADA DIGIT ONE
+111D2	SHARADA DIGIT TWO
+111D3	SHARADA DIGIT THREE
+111D4	SHARADA DIGIT FOUR
+111D5	SHARADA DIGIT FIVE
+111D6	SHARADA DIGIT SIX
+111D7	SHARADA DIGIT SEVEN
+111D8	SHARADA DIGIT EIGHT
+111D9	SHARADA DIGIT NINE
+111DA	SHARADA EKAM
+111DB	SHARADA SIGN SIDDHAM
+111DC	SHARADA HEADSTROKE
+111DD	SHARADA CONTINUATION SIGN
+111DE	SHARADA SECTION MARK-1
+111DF	SHARADA SECTION MARK-2
+111E1	SINHALA ARCHAIC DIGIT ONE
+111E2	SINHALA ARCHAIC DIGIT TWO
+111E3	SINHALA ARCHAIC DIGIT THREE
+111E4	SINHALA ARCHAIC DIGIT FOUR
+111E5	SINHALA ARCHAIC DIGIT FIVE
+111E6	SINHALA ARCHAIC DIGIT SIX
+111E7	SINHALA ARCHAIC DIGIT SEVEN
+111E8	SINHALA ARCHAIC DIGIT EIGHT
+111E9	SINHALA ARCHAIC DIGIT NINE
+111EA	SINHALA ARCHAIC NUMBER TEN
+111EB	SINHALA ARCHAIC NUMBER TWENTY
+111EC	SINHALA ARCHAIC NUMBER THIRTY
+111ED	SINHALA ARCHAIC NUMBER FORTY
+111EE	SINHALA ARCHAIC NUMBER FIFTY
+111EF	SINHALA ARCHAIC NUMBER SIXTY
+111F0	SINHALA ARCHAIC NUMBER SEVENTY
+111F1	SINHALA ARCHAIC NUMBER EIGHTY
+111F2	SINHALA ARCHAIC NUMBER NINETY
+111F3	SINHALA ARCHAIC NUMBER ONE HUNDRED
+111F4	SINHALA ARCHAIC NUMBER ONE THOUSAND
+11200	KHOJKI LETTER A
+11201	KHOJKI LETTER AA
+11202	KHOJKI LETTER I
+11203	KHOJKI LETTER U
+11204	KHOJKI LETTER E
+11205	KHOJKI LETTER AI
+11206	KHOJKI LETTER O
+11207	KHOJKI LETTER AU
+11208	KHOJKI LETTER KA
+11209	KHOJKI LETTER KHA
+1120A	KHOJKI LETTER GA
+1120B	KHOJKI LETTER GGA
+1120C	KHOJKI LETTER GHA
+1120D	KHOJKI LETTER NGA
+1120E	KHOJKI LETTER CA
+1120F	KHOJKI LETTER CHA
+11210	KHOJKI LETTER JA
+11211	KHOJKI LETTER JJA
+11213	KHOJKI LETTER NYA
+11214	KHOJKI LETTER TTA
+11215	KHOJKI LETTER TTHA
+11216	KHOJKI LETTER DDA
+11217	KHOJKI LETTER DDHA
+11218	KHOJKI LETTER NNA
+11219	KHOJKI LETTER TA
+1121A	KHOJKI LETTER THA
+1121B	KHOJKI LETTER DA
+1121C	KHOJKI LETTER DDDA
+1121D	KHOJKI LETTER DHA
+1121E	KHOJKI LETTER NA
+1121F	KHOJKI LETTER PA
+11220	KHOJKI LETTER PHA
+11221	KHOJKI LETTER BA
+11222	KHOJKI LETTER BBA
+11223	KHOJKI LETTER BHA
+11224	KHOJKI LETTER MA
+11225	KHOJKI LETTER YA
+11226	KHOJKI LETTER RA
+11227	KHOJKI LETTER LA
+11228	KHOJKI LETTER VA
+11229	KHOJKI LETTER SA
+1122A	KHOJKI LETTER HA
+1122B	KHOJKI LETTER LLA
+1122C	KHOJKI VOWEL SIGN AA
+1122D	KHOJKI VOWEL SIGN I
+1122E	KHOJKI VOWEL SIGN II
+1122F	KHOJKI VOWEL SIGN U
+11230	KHOJKI VOWEL SIGN E
+11231	KHOJKI VOWEL SIGN AI
+11232	KHOJKI VOWEL SIGN O
+11233	KHOJKI VOWEL SIGN AU
+11234	KHOJKI SIGN ANUSVARA
+11235	KHOJKI SIGN VIRAMA
+11236	KHOJKI SIGN NUKTA
+11237	KHOJKI SIGN SHADDA
+11238	KHOJKI DANDA
+11239	KHOJKI DOUBLE DANDA
+1123A	KHOJKI WORD SEPARATOR
+1123B	KHOJKI SECTION MARK
+1123C	KHOJKI DOUBLE SECTION MARK
+1123D	KHOJKI ABBREVIATION SIGN
+11280	MULTANI LETTER A
+11281	MULTANI LETTER I
+11282	MULTANI LETTER U
+11283	MULTANI LETTER E
+11284	MULTANI LETTER KA
+11285	MULTANI LETTER KHA
+11286	MULTANI LETTER GA
+11288	MULTANI LETTER GHA
+1128A	MULTANI LETTER CA
+1128B	MULTANI LETTER CHA
+1128C	MULTANI LETTER JA
+1128D	MULTANI LETTER JJA
+1128F	MULTANI LETTER NYA
+11290	MULTANI LETTER TTA
+11291	MULTANI LETTER TTHA
+11292	MULTANI LETTER DDA
+11293	MULTANI LETTER DDDA
+11294	MULTANI LETTER DDHA
+11295	MULTANI LETTER NNA
+11296	MULTANI LETTER TA
+11297	MULTANI LETTER THA
+11298	MULTANI LETTER DA
+11299	MULTANI LETTER DHA
+1129A	MULTANI LETTER NA
+1129B	MULTANI LETTER PA
+1129C	MULTANI LETTER PHA
+1129D	MULTANI LETTER BA
+1129F	MULTANI LETTER BHA
+112A0	MULTANI LETTER MA
+112A1	MULTANI LETTER YA
+112A2	MULTANI LETTER RA
+112A3	MULTANI LETTER LA
+112A4	MULTANI LETTER VA
+112A5	MULTANI LETTER SA
+112A6	MULTANI LETTER HA
+112A7	MULTANI LETTER RRA
+112A8	MULTANI LETTER RHA
+112A9	MULTANI SECTION MARK
+112B0	KHUDAWADI LETTER A
+112B1	KHUDAWADI LETTER AA
+112B2	KHUDAWADI LETTER I
+112B3	KHUDAWADI LETTER II
+112B4	KHUDAWADI LETTER U
+112B5	KHUDAWADI LETTER UU
+112B6	KHUDAWADI LETTER E
+112B7	KHUDAWADI LETTER AI
+112B8	KHUDAWADI LETTER O
+112B9	KHUDAWADI LETTER AU
+112BA	KHUDAWADI LETTER KA
+112BB	KHUDAWADI LETTER KHA
+112BC	KHUDAWADI LETTER GA
+112BD	KHUDAWADI LETTER GGA
+112BE	KHUDAWADI LETTER GHA
+112BF	KHUDAWADI LETTER NGA
+112C0	KHUDAWADI LETTER CA
+112C1	KHUDAWADI LETTER CHA
+112C2	KHUDAWADI LETTER JA
+112C3	KHUDAWADI LETTER JJA
+112C4	KHUDAWADI LETTER JHA
+112C5	KHUDAWADI LETTER NYA
+112C6	KHUDAWADI LETTER TTA
+112C7	KHUDAWADI LETTER TTHA
+112C8	KHUDAWADI LETTER DDA
+112C9	KHUDAWADI LETTER DDDA
+112CA	KHUDAWADI LETTER RRA
+112CB	KHUDAWADI LETTER DDHA
+112CC	KHUDAWADI LETTER NNA
+112CD	KHUDAWADI LETTER TA
+112CE	KHUDAWADI LETTER THA
+112CF	KHUDAWADI LETTER DA
+112D0	KHUDAWADI LETTER DHA
+112D1	KHUDAWADI LETTER NA
+112D2	KHUDAWADI LETTER PA
+112D3	KHUDAWADI LETTER PHA
+112D4	KHUDAWADI LETTER BA
+112D5	KHUDAWADI LETTER BBA
+112D6	KHUDAWADI LETTER BHA
+112D7	KHUDAWADI LETTER MA
+112D8	KHUDAWADI LETTER YA
+112D9	KHUDAWADI LETTER RA
+112DA	KHUDAWADI LETTER LA
+112DB	KHUDAWADI LETTER VA
+112DC	KHUDAWADI LETTER SHA
+112DD	KHUDAWADI LETTER SA
+112DE	KHUDAWADI LETTER HA
+112DF	KHUDAWADI SIGN ANUSVARA
+112E0	KHUDAWADI VOWEL SIGN AA
+112E1	KHUDAWADI VOWEL SIGN I
+112E2	KHUDAWADI VOWEL SIGN II
+112E3	KHUDAWADI VOWEL SIGN U
+112E4	KHUDAWADI VOWEL SIGN UU
+112E5	KHUDAWADI VOWEL SIGN E
+112E6	KHUDAWADI VOWEL SIGN AI
+112E7	KHUDAWADI VOWEL SIGN O
+112E8	KHUDAWADI VOWEL SIGN AU
+112E9	KHUDAWADI SIGN NUKTA
+112EA	KHUDAWADI SIGN VIRAMA
+112F0	KHUDAWADI DIGIT ZERO
+112F1	KHUDAWADI DIGIT ONE
+112F2	KHUDAWADI DIGIT TWO
+112F3	KHUDAWADI DIGIT THREE
+112F4	KHUDAWADI DIGIT FOUR
+112F5	KHUDAWADI DIGIT FIVE
+112F6	KHUDAWADI DIGIT SIX
+112F7	KHUDAWADI DIGIT SEVEN
+112F8	KHUDAWADI DIGIT EIGHT
+112F9	KHUDAWADI DIGIT NINE
+11300	GRANTHA SIGN COMBINING ANUSVARA ABOVE
+11301	GRANTHA SIGN CANDRABINDU
+11302	GRANTHA SIGN ANUSVARA
+11303	GRANTHA SIGN VISARGA
+11305	GRANTHA LETTER A
+11306	GRANTHA LETTER AA
+11307	GRANTHA LETTER I
+11308	GRANTHA LETTER II
+11309	GRANTHA LETTER U
+1130A	GRANTHA LETTER UU
+1130B	GRANTHA LETTER VOCALIC R
+1130C	GRANTHA LETTER VOCALIC L
+1130F	GRANTHA LETTER EE
+11310	GRANTHA LETTER AI
+11313	GRANTHA LETTER OO
+11314	GRANTHA LETTER AU
+11315	GRANTHA LETTER KA
+11316	GRANTHA LETTER KHA
+11317	GRANTHA LETTER GA
+11318	GRANTHA LETTER GHA
+11319	GRANTHA LETTER NGA
+1131A	GRANTHA LETTER CA
+1131B	GRANTHA LETTER CHA
+1131C	GRANTHA LETTER JA
+1131D	GRANTHA LETTER JHA
+1131E	GRANTHA LETTER NYA
+1131F	GRANTHA LETTER TTA
+11320	GRANTHA LETTER TTHA
+11321	GRANTHA LETTER DDA
+11322	GRANTHA LETTER DDHA
+11323	GRANTHA LETTER NNA
+11324	GRANTHA LETTER TA
+11325	GRANTHA LETTER THA
+11326	GRANTHA LETTER DA
+11327	GRANTHA LETTER DHA
+11328	GRANTHA LETTER NA
+1132A	GRANTHA LETTER PA
+1132B	GRANTHA LETTER PHA
+1132C	GRANTHA LETTER BA
+1132D	GRANTHA LETTER BHA
+1132E	GRANTHA LETTER MA
+1132F	GRANTHA LETTER YA
+11330	GRANTHA LETTER RA
+11332	GRANTHA LETTER LA
+11333	GRANTHA LETTER LLA
+11335	GRANTHA LETTER VA
+11336	GRANTHA LETTER SHA
+11337	GRANTHA LETTER SSA
+11338	GRANTHA LETTER SA
+11339	GRANTHA LETTER HA
+1133C	GRANTHA SIGN NUKTA
+1133D	GRANTHA SIGN AVAGRAHA
+1133E	GRANTHA VOWEL SIGN AA
+1133F	GRANTHA VOWEL SIGN I
+11340	GRANTHA VOWEL SIGN II
+11341	GRANTHA VOWEL SIGN U
+11342	GRANTHA VOWEL SIGN UU
+11343	GRANTHA VOWEL SIGN VOCALIC R
+11344	GRANTHA VOWEL SIGN VOCALIC RR
+11347	GRANTHA VOWEL SIGN EE
+11348	GRANTHA VOWEL SIGN AI
+1134B	GRANTHA VOWEL SIGN OO
+1134C	GRANTHA VOWEL SIGN AU
+1134D	GRANTHA SIGN VIRAMA
+11350	GRANTHA OM
+11357	GRANTHA AU LENGTH MARK
+1135D	GRANTHA SIGN PLUTA
+1135E	GRANTHA LETTER VEDIC ANUSVARA
+1135F	GRANTHA LETTER VEDIC DOUBLE ANUSVARA
+11360	GRANTHA LETTER VOCALIC RR
+11361	GRANTHA LETTER VOCALIC LL
+11362	GRANTHA VOWEL SIGN VOCALIC L
+11363	GRANTHA VOWEL SIGN VOCALIC LL
+11366	COMBINING GRANTHA DIGIT ZERO
+11367	COMBINING GRANTHA DIGIT ONE
+11368	COMBINING GRANTHA DIGIT TWO
+11369	COMBINING GRANTHA DIGIT THREE
+1136A	COMBINING GRANTHA DIGIT FOUR
+1136B	COMBINING GRANTHA DIGIT FIVE
+1136C	COMBINING GRANTHA DIGIT SIX
+11370	COMBINING GRANTHA LETTER A
+11371	COMBINING GRANTHA LETTER KA
+11372	COMBINING GRANTHA LETTER NA
+11373	COMBINING GRANTHA LETTER VI
+11374	COMBINING GRANTHA LETTER PA
+11480	TIRHUTA ANJI
+11481	TIRHUTA LETTER A
+11482	TIRHUTA LETTER AA
+11483	TIRHUTA LETTER I
+11484	TIRHUTA LETTER II
+11485	TIRHUTA LETTER U
+11486	TIRHUTA LETTER UU
+11487	TIRHUTA LETTER VOCALIC R
+11488	TIRHUTA LETTER VOCALIC RR
+11489	TIRHUTA LETTER VOCALIC L
+1148A	TIRHUTA LETTER VOCALIC LL
+1148B	TIRHUTA LETTER E
+1148C	TIRHUTA LETTER AI
+1148D	TIRHUTA LETTER O
+1148E	TIRHUTA LETTER AU
+1148F	TIRHUTA LETTER KA
+11490	TIRHUTA LETTER KHA
+11491	TIRHUTA LETTER GA
+11492	TIRHUTA LETTER GHA
+11493	TIRHUTA LETTER NGA
+11494	TIRHUTA LETTER CA
+11495	TIRHUTA LETTER CHA
+11496	TIRHUTA LETTER JA
+11497	TIRHUTA LETTER JHA
+11498	TIRHUTA LETTER NYA
+11499	TIRHUTA LETTER TTA
+1149A	TIRHUTA LETTER TTHA
+1149B	TIRHUTA LETTER DDA
+1149C	TIRHUTA LETTER DDHA
+1149D	TIRHUTA LETTER NNA
+1149E	TIRHUTA LETTER TA
+1149F	TIRHUTA LETTER THA
+114A0	TIRHUTA LETTER DA
+114A1	TIRHUTA LETTER DHA
+114A2	TIRHUTA LETTER NA
+114A3	TIRHUTA LETTER PA
+114A4	TIRHUTA LETTER PHA
+114A5	TIRHUTA LETTER BA
+114A6	TIRHUTA LETTER BHA
+114A7	TIRHUTA LETTER MA
+114A8	TIRHUTA LETTER YA
+114A9	TIRHUTA LETTER RA
+114AA	TIRHUTA LETTER LA
+114AB	TIRHUTA LETTER VA
+114AC	TIRHUTA LETTER SHA
+114AD	TIRHUTA LETTER SSA
+114AE	TIRHUTA LETTER SA
+114AF	TIRHUTA LETTER HA
+114B0	TIRHUTA VOWEL SIGN AA
+114B1	TIRHUTA VOWEL SIGN I
+114B2	TIRHUTA VOWEL SIGN II
+114B3	TIRHUTA VOWEL SIGN U
+114B4	TIRHUTA VOWEL SIGN UU
+114B5	TIRHUTA VOWEL SIGN VOCALIC R
+114B6	TIRHUTA VOWEL SIGN VOCALIC RR
+114B7	TIRHUTA VOWEL SIGN VOCALIC L
+114B8	TIRHUTA VOWEL SIGN VOCALIC LL
+114B9	TIRHUTA VOWEL SIGN E
+114BA	TIRHUTA VOWEL SIGN SHORT E
+114BB	TIRHUTA VOWEL SIGN AI
+114BC	TIRHUTA VOWEL SIGN O
+114BD	TIRHUTA VOWEL SIGN SHORT O
+114BE	TIRHUTA VOWEL SIGN AU
+114BF	TIRHUTA SIGN CANDRABINDU
+114C0	TIRHUTA SIGN ANUSVARA
+114C1	TIRHUTA SIGN VISARGA
+114C2	TIRHUTA SIGN VIRAMA
+114C3	TIRHUTA SIGN NUKTA
+114C4	TIRHUTA SIGN AVAGRAHA
+114C5	TIRHUTA GVANG
+114C6	TIRHUTA ABBREVIATION SIGN
+114C7	TIRHUTA OM
+114D0	TIRHUTA DIGIT ZERO
+114D1	TIRHUTA DIGIT ONE
+114D2	TIRHUTA DIGIT TWO
+114D3	TIRHUTA DIGIT THREE
+114D4	TIRHUTA DIGIT FOUR
+114D5	TIRHUTA DIGIT FIVE
+114D6	TIRHUTA DIGIT SIX
+114D7	TIRHUTA DIGIT SEVEN
+114D8	TIRHUTA DIGIT EIGHT
+114D9	TIRHUTA DIGIT NINE
+11580	SIDDHAM LETTER A
+11581	SIDDHAM LETTER AA
+11582	SIDDHAM LETTER I
+11583	SIDDHAM LETTER II
+11584	SIDDHAM LETTER U
+11585	SIDDHAM LETTER UU
+11586	SIDDHAM LETTER VOCALIC R
+11587	SIDDHAM LETTER VOCALIC RR
+11588	SIDDHAM LETTER VOCALIC L
+11589	SIDDHAM LETTER VOCALIC LL
+1158A	SIDDHAM LETTER E
+1158B	SIDDHAM LETTER AI
+1158C	SIDDHAM LETTER O
+1158D	SIDDHAM LETTER AU
+1158E	SIDDHAM LETTER KA
+1158F	SIDDHAM LETTER KHA
+11590	SIDDHAM LETTER GA
+11591	SIDDHAM LETTER GHA
+11592	SIDDHAM LETTER NGA
+11593	SIDDHAM LETTER CA
+11594	SIDDHAM LETTER CHA
+11595	SIDDHAM LETTER JA
+11596	SIDDHAM LETTER JHA
+11597	SIDDHAM LETTER NYA
+11598	SIDDHAM LETTER TTA
+11599	SIDDHAM LETTER TTHA
+1159A	SIDDHAM LETTER DDA
+1159B	SIDDHAM LETTER DDHA
+1159C	SIDDHAM LETTER NNA
+1159D	SIDDHAM LETTER TA
+1159E	SIDDHAM LETTER THA
+1159F	SIDDHAM LETTER DA
+115A0	SIDDHAM LETTER DHA
+115A1	SIDDHAM LETTER NA
+115A2	SIDDHAM LETTER PA
+115A3	SIDDHAM LETTER PHA
+115A4	SIDDHAM LETTER BA
+115A5	SIDDHAM LETTER BHA
+115A6	SIDDHAM LETTER MA
+115A7	SIDDHAM LETTER YA
+115A8	SIDDHAM LETTER RA
+115A9	SIDDHAM LETTER LA
+115AA	SIDDHAM LETTER VA
+115AB	SIDDHAM LETTER SHA
+115AC	SIDDHAM LETTER SSA
+115AD	SIDDHAM LETTER SA
+115AE	SIDDHAM LETTER HA
+115AF	SIDDHAM VOWEL SIGN AA
+115B0	SIDDHAM VOWEL SIGN I
+115B1	SIDDHAM VOWEL SIGN II
+115B2	SIDDHAM VOWEL SIGN U
+115B3	SIDDHAM VOWEL SIGN UU
+115B4	SIDDHAM VOWEL SIGN VOCALIC R
+115B5	SIDDHAM VOWEL SIGN VOCALIC RR
+115B8	SIDDHAM VOWEL SIGN E
+115B9	SIDDHAM VOWEL SIGN AI
+115BA	SIDDHAM VOWEL SIGN O
+115BB	SIDDHAM VOWEL SIGN AU
+115BC	SIDDHAM SIGN CANDRABINDU
+115BD	SIDDHAM SIGN ANUSVARA
+115BE	SIDDHAM SIGN VISARGA
+115BF	SIDDHAM SIGN VIRAMA
+115C0	SIDDHAM SIGN NUKTA
+115C1	SIDDHAM SIGN SIDDHAM
+115C2	SIDDHAM DANDA
+115C3	SIDDHAM DOUBLE DANDA
+115C4	SIDDHAM SEPARATOR DOT
+115C5	SIDDHAM SEPARATOR BAR
+115C6	SIDDHAM REPETITION MARK-1
+115C7	SIDDHAM REPETITION MARK-2
+115C8	SIDDHAM REPETITION MARK-3
+115C9	SIDDHAM END OF TEXT MARK
+115CA	SIDDHAM SECTION MARK WITH TRIDENT AND U-SHAPED ORNAMENTS
+115CB	SIDDHAM SECTION MARK WITH TRIDENT AND DOTTED CRESCENTS
+115CC	SIDDHAM SECTION MARK WITH RAYS AND DOTTED CRESCENTS
+115CD	SIDDHAM SECTION MARK WITH RAYS AND DOTTED DOUBLE CRESCENTS
+115CE	SIDDHAM SECTION MARK WITH RAYS AND DOTTED TRIPLE CRESCENTS
+115CF	SIDDHAM SECTION MARK DOUBLE RING
+115D0	SIDDHAM SECTION MARK DOUBLE RING WITH RAYS
+115D1	SIDDHAM SECTION MARK WITH DOUBLE CRESCENTS
+115D2	SIDDHAM SECTION MARK WITH TRIPLE CRESCENTS
+115D3	SIDDHAM SECTION MARK WITH QUADRUPLE CRESCENTS
+115D4	SIDDHAM SECTION MARK WITH SEPTUPLE CRESCENTS
+115D5	SIDDHAM SECTION MARK WITH CIRCLES AND RAYS
+115D6	SIDDHAM SECTION MARK WITH CIRCLES AND TWO ENCLOSURES
+115D7	SIDDHAM SECTION MARK WITH CIRCLES AND FOUR ENCLOSURES
+115D8	SIDDHAM LETTER THREE-CIRCLE ALTERNATE I
+115D9	SIDDHAM LETTER TWO-CIRCLE ALTERNATE I
+115DA	SIDDHAM LETTER TWO-CIRCLE ALTERNATE II
+115DB	SIDDHAM LETTER ALTERNATE U
+115DC	SIDDHAM VOWEL SIGN ALTERNATE U
+115DD	SIDDHAM VOWEL SIGN ALTERNATE UU
+11600	MODI LETTER A
+11601	MODI LETTER AA
+11602	MODI LETTER I
+11603	MODI LETTER II
+11604	MODI LETTER U
+11605	MODI LETTER UU
+11606	MODI LETTER VOCALIC R
+11607	MODI LETTER VOCALIC RR
+11608	MODI LETTER VOCALIC L
+11609	MODI LETTER VOCALIC LL
+1160A	MODI LETTER E
+1160B	MODI LETTER AI
+1160C	MODI LETTER O
+1160D	MODI LETTER AU
+1160E	MODI LETTER KA
+1160F	MODI LETTER KHA
+11610	MODI LETTER GA
+11611	MODI LETTER GHA
+11612	MODI LETTER NGA
+11613	MODI LETTER CA
+11614	MODI LETTER CHA
+11615	MODI LETTER JA
+11616	MODI LETTER JHA
+11617	MODI LETTER NYA
+11618	MODI LETTER TTA
+11619	MODI LETTER TTHA
+1161A	MODI LETTER DDA
+1161B	MODI LETTER DDHA
+1161C	MODI LETTER NNA
+1161D	MODI LETTER TA
+1161E	MODI LETTER THA
+1161F	MODI LETTER DA
+11620	MODI LETTER DHA
+11621	MODI LETTER NA
+11622	MODI LETTER PA
+11623	MODI LETTER PHA
+11624	MODI LETTER BA
+11625	MODI LETTER BHA
+11626	MODI LETTER MA
+11627	MODI LETTER YA
+11628	MODI LETTER RA
+11629	MODI LETTER LA
+1162A	MODI LETTER VA
+1162B	MODI LETTER SHA
+1162C	MODI LETTER SSA
+1162D	MODI LETTER SA
+1162E	MODI LETTER HA
+1162F	MODI LETTER LLA
+11630	MODI VOWEL SIGN AA
+11631	MODI VOWEL SIGN I
+11632	MODI VOWEL SIGN II
+11633	MODI VOWEL SIGN U
+11634	MODI VOWEL SIGN UU
+11635	MODI VOWEL SIGN VOCALIC R
+11636	MODI VOWEL SIGN VOCALIC RR
+11637	MODI VOWEL SIGN VOCALIC L
+11638	MODI VOWEL SIGN VOCALIC LL
+11639	MODI VOWEL SIGN E
+1163A	MODI VOWEL SIGN AI
+1163B	MODI VOWEL SIGN O
+1163C	MODI VOWEL SIGN AU
+1163D	MODI SIGN ANUSVARA
+1163E	MODI SIGN VISARGA
+1163F	MODI SIGN VIRAMA
+11640	MODI SIGN ARDHACANDRA
+11641	MODI DANDA
+11642	MODI DOUBLE DANDA
+11643	MODI ABBREVIATION SIGN
+11644	MODI SIGN HUVA
+11650	MODI DIGIT ZERO
+11651	MODI DIGIT ONE
+11652	MODI DIGIT TWO
+11653	MODI DIGIT THREE
+11654	MODI DIGIT FOUR
+11655	MODI DIGIT FIVE
+11656	MODI DIGIT SIX
+11657	MODI DIGIT SEVEN
+11658	MODI DIGIT EIGHT
+11659	MODI DIGIT NINE
+11680	TAKRI LETTER A
+11681	TAKRI LETTER AA
+11682	TAKRI LETTER I
+11683	TAKRI LETTER II
+11684	TAKRI LETTER U
+11685	TAKRI LETTER UU
+11686	TAKRI LETTER E
+11687	TAKRI LETTER AI
+11688	TAKRI LETTER O
+11689	TAKRI LETTER AU
+1168A	TAKRI LETTER KA
+1168B	TAKRI LETTER KHA
+1168C	TAKRI LETTER GA
+1168D	TAKRI LETTER GHA
+1168E	TAKRI LETTER NGA
+1168F	TAKRI LETTER CA
+11690	TAKRI LETTER CHA
+11691	TAKRI LETTER JA
+11692	TAKRI LETTER JHA
+11693	TAKRI LETTER NYA
+11694	TAKRI LETTER TTA
+11695	TAKRI LETTER TTHA
+11696	TAKRI LETTER DDA
+11697	TAKRI LETTER DDHA
+11698	TAKRI LETTER NNA
+11699	TAKRI LETTER TA
+1169A	TAKRI LETTER THA
+1169B	TAKRI LETTER DA
+1169C	TAKRI LETTER DHA
+1169D	TAKRI LETTER NA
+1169E	TAKRI LETTER PA
+1169F	TAKRI LETTER PHA
+116A0	TAKRI LETTER BA
+116A1	TAKRI LETTER BHA
+116A2	TAKRI LETTER MA
+116A3	TAKRI LETTER YA
+116A4	TAKRI LETTER RA
+116A5	TAKRI LETTER LA
+116A6	TAKRI LETTER VA
+116A7	TAKRI LETTER SHA
+116A8	TAKRI LETTER SA
+116A9	TAKRI LETTER HA
+116AA	TAKRI LETTER RRA
+116AB	TAKRI SIGN ANUSVARA
+116AC	TAKRI SIGN VISARGA
+116AD	TAKRI VOWEL SIGN AA
+116AE	TAKRI VOWEL SIGN I
+116AF	TAKRI VOWEL SIGN II
+116B0	TAKRI VOWEL SIGN U
+116B1	TAKRI VOWEL SIGN UU
+116B2	TAKRI VOWEL SIGN E
+116B3	TAKRI VOWEL SIGN AI
+116B4	TAKRI VOWEL SIGN O
+116B5	TAKRI VOWEL SIGN AU
+116B6	TAKRI SIGN VIRAMA
+116B7	TAKRI SIGN NUKTA
+116C0	TAKRI DIGIT ZERO
+116C1	TAKRI DIGIT ONE
+116C2	TAKRI DIGIT TWO
+116C3	TAKRI DIGIT THREE
+116C4	TAKRI DIGIT FOUR
+116C5	TAKRI DIGIT FIVE
+116C6	TAKRI DIGIT SIX
+116C7	TAKRI DIGIT SEVEN
+116C8	TAKRI DIGIT EIGHT
+116C9	TAKRI DIGIT NINE
+11700	AHOM LETTER KA
+11701	AHOM LETTER KHA
+11702	AHOM LETTER NGA
+11703	AHOM LETTER NA
+11704	AHOM LETTER TA
+11705	AHOM LETTER ALTERNATE TA
+11706	AHOM LETTER PA
+11707	AHOM LETTER PHA
+11708	AHOM LETTER BA
+11709	AHOM LETTER MA
+1170A	AHOM LETTER JA
+1170B	AHOM LETTER CHA
+1170C	AHOM LETTER THA
+1170D	AHOM LETTER RA
+1170E	AHOM LETTER LA
+1170F	AHOM LETTER SA
+11710	AHOM LETTER NYA
+11711	AHOM LETTER HA
+11712	AHOM LETTER A
+11713	AHOM LETTER DA
+11714	AHOM LETTER DHA
+11715	AHOM LETTER GA
+11716	AHOM LETTER ALTERNATE GA
+11717	AHOM LETTER GHA
+11718	AHOM LETTER BHA
+11719	AHOM LETTER JHA
+1171D	AHOM CONSONANT SIGN MEDIAL LA
+1171E	AHOM CONSONANT SIGN MEDIAL RA
+1171F	AHOM CONSONANT SIGN MEDIAL LIGATING RA
+11720	AHOM VOWEL SIGN A
+11721	AHOM VOWEL SIGN AA
+11722	AHOM VOWEL SIGN I
+11723	AHOM VOWEL SIGN II
+11724	AHOM VOWEL SIGN U
+11725	AHOM VOWEL SIGN UU
+11726	AHOM VOWEL SIGN E
+11727	AHOM VOWEL SIGN AW
+11728	AHOM VOWEL SIGN O
+11729	AHOM VOWEL SIGN AI
+1172A	AHOM VOWEL SIGN AM
+1172B	AHOM SIGN KILLER
+11730	AHOM DIGIT ZERO
+11731	AHOM DIGIT ONE
+11732	AHOM DIGIT TWO
+11733	AHOM DIGIT THREE
+11734	AHOM DIGIT FOUR
+11735	AHOM DIGIT FIVE
+11736	AHOM DIGIT SIX
+11737	AHOM DIGIT SEVEN
+11738	AHOM DIGIT EIGHT
+11739	AHOM DIGIT NINE
+1173A	AHOM NUMBER TEN
+1173B	AHOM NUMBER TWENTY
+1173C	AHOM SIGN SMALL SECTION
+1173D	AHOM SIGN SECTION
+1173E	AHOM SIGN RULAI
+1173F	AHOM SYMBOL VI
+118A0	WARANG CITI CAPITAL LETTER NGAA
+118A1	WARANG CITI CAPITAL LETTER A
+118A2	WARANG CITI CAPITAL LETTER WI
+118A3	WARANG CITI CAPITAL LETTER YU
+118A4	WARANG CITI CAPITAL LETTER YA
+118A5	WARANG CITI CAPITAL LETTER YO
+118A6	WARANG CITI CAPITAL LETTER II
+118A7	WARANG CITI CAPITAL LETTER UU
+118A8	WARANG CITI CAPITAL LETTER E
+118A9	WARANG CITI CAPITAL LETTER O
+118AA	WARANG CITI CAPITAL LETTER ANG
+118AB	WARANG CITI CAPITAL LETTER GA
+118AC	WARANG CITI CAPITAL LETTER KO
+118AD	WARANG CITI CAPITAL LETTER ENY
+118AE	WARANG CITI CAPITAL LETTER YUJ
+118AF	WARANG CITI CAPITAL LETTER UC
+118B0	WARANG CITI CAPITAL LETTER ENN
+118B1	WARANG CITI CAPITAL LETTER ODD
+118B2	WARANG CITI CAPITAL LETTER TTE
+118B3	WARANG CITI CAPITAL LETTER NUNG
+118B4	WARANG CITI CAPITAL LETTER DA
+118B5	WARANG CITI CAPITAL LETTER AT
+118B6	WARANG CITI CAPITAL LETTER AM
+118B7	WARANG CITI CAPITAL LETTER BU
+118B8	WARANG CITI CAPITAL LETTER PU
+118B9	WARANG CITI CAPITAL LETTER HIYO
+118BA	WARANG CITI CAPITAL LETTER HOLO
+118BB	WARANG CITI CAPITAL LETTER HORR
+118BC	WARANG CITI CAPITAL LETTER HAR
+118BD	WARANG CITI CAPITAL LETTER SSUU
+118BE	WARANG CITI CAPITAL LETTER SII
+118BF	WARANG CITI CAPITAL LETTER VIYO
+118C0	WARANG CITI SMALL LETTER NGAA
+118C1	WARANG CITI SMALL LETTER A
+118C2	WARANG CITI SMALL LETTER WI
+118C3	WARANG CITI SMALL LETTER YU
+118C4	WARANG CITI SMALL LETTER YA
+118C5	WARANG CITI SMALL LETTER YO
+118C6	WARANG CITI SMALL LETTER II
+118C7	WARANG CITI SMALL LETTER UU
+118C8	WARANG CITI SMALL LETTER E
+118C9	WARANG CITI SMALL LETTER O
+118CA	WARANG CITI SMALL LETTER ANG
+118CB	WARANG CITI SMALL LETTER GA
+118CC	WARANG CITI SMALL LETTER KO
+118CD	WARANG CITI SMALL LETTER ENY
+118CE	WARANG CITI SMALL LETTER YUJ
+118CF	WARANG CITI SMALL LETTER UC
+118D0	WARANG CITI SMALL LETTER ENN
+118D1	WARANG CITI SMALL LETTER ODD
+118D2	WARANG CITI SMALL LETTER TTE
+118D3	WARANG CITI SMALL LETTER NUNG
+118D4	WARANG CITI SMALL LETTER DA
+118D5	WARANG CITI SMALL LETTER AT
+118D6	WARANG CITI SMALL LETTER AM
+118D7	WARANG CITI SMALL LETTER BU
+118D8	WARANG CITI SMALL LETTER PU
+118D9	WARANG CITI SMALL LETTER HIYO
+118DA	WARANG CITI SMALL LETTER HOLO
+118DB	WARANG CITI SMALL LETTER HORR
+118DC	WARANG CITI SMALL LETTER HAR
+118DD	WARANG CITI SMALL LETTER SSUU
+118DE	WARANG CITI SMALL LETTER SII
+118DF	WARANG CITI SMALL LETTER VIYO
+118E0	WARANG CITI DIGIT ZERO
+118E1	WARANG CITI DIGIT ONE
+118E2	WARANG CITI DIGIT TWO
+118E3	WARANG CITI DIGIT THREE
+118E4	WARANG CITI DIGIT FOUR
+118E5	WARANG CITI DIGIT FIVE
+118E6	WARANG CITI DIGIT SIX
+118E7	WARANG CITI DIGIT SEVEN
+118E8	WARANG CITI DIGIT EIGHT
+118E9	WARANG CITI DIGIT NINE
+118EA	WARANG CITI NUMBER TEN
+118EB	WARANG CITI NUMBER TWENTY
+118EC	WARANG CITI NUMBER THIRTY
+118ED	WARANG CITI NUMBER FORTY
+118EE	WARANG CITI NUMBER FIFTY
+118EF	WARANG CITI NUMBER SIXTY
+118F0	WARANG CITI NUMBER SEVENTY
+118F1	WARANG CITI NUMBER EIGHTY
+118F2	WARANG CITI NUMBER NINETY
+118FF	WARANG CITI OM
+11AC0	PAU CIN HAU LETTER PA
+11AC1	PAU CIN HAU LETTER KA
+11AC2	PAU CIN HAU LETTER LA
+11AC3	PAU CIN HAU LETTER MA
+11AC4	PAU CIN HAU LETTER DA
+11AC5	PAU CIN HAU LETTER ZA
+11AC6	PAU CIN HAU LETTER VA
+11AC7	PAU CIN HAU LETTER NGA
+11AC8	PAU CIN HAU LETTER HA
+11AC9	PAU CIN HAU LETTER GA
+11ACA	PAU CIN HAU LETTER KHA
+11ACB	PAU CIN HAU LETTER SA
+11ACC	PAU CIN HAU LETTER BA
+11ACD	PAU CIN HAU LETTER CA
+11ACE	PAU CIN HAU LETTER TA
+11ACF	PAU CIN HAU LETTER THA
+11AD0	PAU CIN HAU LETTER NA
+11AD1	PAU CIN HAU LETTER PHA
+11AD2	PAU CIN HAU LETTER RA
+11AD3	PAU CIN HAU LETTER FA
+11AD4	PAU CIN HAU LETTER CHA
+11AD5	PAU CIN HAU LETTER A
+11AD6	PAU CIN HAU LETTER E
+11AD7	PAU CIN HAU LETTER I
+11AD8	PAU CIN HAU LETTER O
+11AD9	PAU CIN HAU LETTER U
+11ADA	PAU CIN HAU LETTER UA
+11ADB	PAU CIN HAU LETTER IA
+11ADC	PAU CIN HAU LETTER FINAL P
+11ADD	PAU CIN HAU LETTER FINAL K
+11ADE	PAU CIN HAU LETTER FINAL T
+11ADF	PAU CIN HAU LETTER FINAL M
+11AE0	PAU CIN HAU LETTER FINAL N
+11AE1	PAU CIN HAU LETTER FINAL L
+11AE2	PAU CIN HAU LETTER FINAL W
+11AE3	PAU CIN HAU LETTER FINAL NG
+11AE4	PAU CIN HAU LETTER FINAL Y
+11AE5	PAU CIN HAU RISING TONE LONG
+11AE6	PAU CIN HAU RISING TONE
+11AE7	PAU CIN HAU SANDHI GLOTTAL STOP
+11AE8	PAU CIN HAU RISING TONE LONG FINAL
+11AE9	PAU CIN HAU RISING TONE FINAL
+11AEA	PAU CIN HAU SANDHI GLOTTAL STOP FINAL
+11AEB	PAU CIN HAU SANDHI TONE LONG
+11AEC	PAU CIN HAU SANDHI TONE
+11AED	PAU CIN HAU SANDHI TONE LONG FINAL
+11AEE	PAU CIN HAU SANDHI TONE FINAL
+11AEF	PAU CIN HAU MID-LEVEL TONE
+11AF0	PAU CIN HAU GLOTTAL STOP VARIANT
+11AF1	PAU CIN HAU MID-LEVEL TONE LONG FINAL
+11AF2	PAU CIN HAU MID-LEVEL TONE FINAL
+11AF3	PAU CIN HAU LOW-FALLING TONE LONG
+11AF4	PAU CIN HAU LOW-FALLING TONE
+11AF5	PAU CIN HAU GLOTTAL STOP
+11AF6	PAU CIN HAU LOW-FALLING TONE LONG FINAL
+11AF7	PAU CIN HAU LOW-FALLING TONE FINAL
+11AF8	PAU CIN HAU GLOTTAL STOP FINAL
+12000	CUNEIFORM SIGN A
+12001	CUNEIFORM SIGN A TIMES A
+12002	CUNEIFORM SIGN A TIMES BAD
+12003	CUNEIFORM SIGN A TIMES GAN2 TENU
+12004	CUNEIFORM SIGN A TIMES HA
+12005	CUNEIFORM SIGN A TIMES IGI
+12006	CUNEIFORM SIGN A TIMES LAGAR GUNU
+12007	CUNEIFORM SIGN A TIMES MUSH
+12008	CUNEIFORM SIGN A TIMES SAG
+12009	CUNEIFORM SIGN A2
+1200A	CUNEIFORM SIGN AB
+1200B	CUNEIFORM SIGN AB TIMES ASH2
+1200C	CUNEIFORM SIGN AB TIMES DUN3 GUNU
+1200D	CUNEIFORM SIGN AB TIMES GAL
+1200E	CUNEIFORM SIGN AB TIMES GAN2 TENU
+1200F	CUNEIFORM SIGN AB TIMES HA
+12010	CUNEIFORM SIGN AB TIMES IGI GUNU
+12011	CUNEIFORM SIGN AB TIMES IMIN
+12012	CUNEIFORM SIGN AB TIMES LAGAB
+12013	CUNEIFORM SIGN AB TIMES SHESH
+12014	CUNEIFORM SIGN AB TIMES U PLUS U PLUS U
+12015	CUNEIFORM SIGN AB GUNU
+12016	CUNEIFORM SIGN AB2
+12017	CUNEIFORM SIGN AB2 TIMES BALAG
+12018	CUNEIFORM SIGN AB2 TIMES GAN2 TENU
+12019	CUNEIFORM SIGN AB2 TIMES ME PLUS EN
+1201A	CUNEIFORM SIGN AB2 TIMES SHA3
+1201B	CUNEIFORM SIGN AB2 TIMES TAK4
+1201C	CUNEIFORM SIGN AD
+1201D	CUNEIFORM SIGN AK
+1201E	CUNEIFORM SIGN AK TIMES ERIN2
+1201F	CUNEIFORM SIGN AK TIMES SHITA PLUS GISH
+12020	CUNEIFORM SIGN AL
+12021	CUNEIFORM SIGN AL TIMES AL
+12022	CUNEIFORM SIGN AL TIMES DIM2
+12023	CUNEIFORM SIGN AL TIMES GISH
+12024	CUNEIFORM SIGN AL TIMES HA
+12025	CUNEIFORM SIGN AL TIMES KAD3
+12026	CUNEIFORM SIGN AL TIMES KI
+12027	CUNEIFORM SIGN AL TIMES SHE
+12028	CUNEIFORM SIGN AL TIMES USH
+12029	CUNEIFORM SIGN ALAN
+1202A	CUNEIFORM SIGN ALEPH
+1202B	CUNEIFORM SIGN AMAR
+1202C	CUNEIFORM SIGN AMAR TIMES SHE
+1202D	CUNEIFORM SIGN AN
+1202E	CUNEIFORM SIGN AN OVER AN
+1202F	CUNEIFORM SIGN AN THREE TIMES
+12030	CUNEIFORM SIGN AN PLUS NAGA OPPOSING AN PLUS NAGA
+12031	CUNEIFORM SIGN AN PLUS NAGA SQUARED
+12032	CUNEIFORM SIGN ANSHE
+12033	CUNEIFORM SIGN APIN
+12034	CUNEIFORM SIGN ARAD
+12035	CUNEIFORM SIGN ARAD TIMES KUR
+12036	CUNEIFORM SIGN ARKAB
+12037	CUNEIFORM SIGN ASAL2
+12038	CUNEIFORM SIGN ASH
+12039	CUNEIFORM SIGN ASH ZIDA TENU
+1203A	CUNEIFORM SIGN ASH KABA TENU
+1203B	CUNEIFORM SIGN ASH OVER ASH TUG2 OVER TUG2 TUG2 OVER TUG2 PAP
+1203C	CUNEIFORM SIGN ASH OVER ASH OVER ASH
+1203D	CUNEIFORM SIGN ASH OVER ASH OVER ASH CROSSING ASH OVER ASH OVER ASH
+1203E	CUNEIFORM SIGN ASH2
+1203F	CUNEIFORM SIGN ASHGAB
+12040	CUNEIFORM SIGN BA
+12041	CUNEIFORM SIGN BAD
+12042	CUNEIFORM SIGN BAG3
+12043	CUNEIFORM SIGN BAHAR2
+12044	CUNEIFORM SIGN BAL
+12045	CUNEIFORM SIGN BAL OVER BAL
+12046	CUNEIFORM SIGN BALAG
+12047	CUNEIFORM SIGN BAR
+12048	CUNEIFORM SIGN BARA2
+12049	CUNEIFORM SIGN BI
+1204A	CUNEIFORM SIGN BI TIMES A
+1204B	CUNEIFORM SIGN BI TIMES GAR
+1204C	CUNEIFORM SIGN BI TIMES IGI GUNU
+1204D	CUNEIFORM SIGN BU
+1204E	CUNEIFORM SIGN BU OVER BU AB
+1204F	CUNEIFORM SIGN BU OVER BU UN
+12050	CUNEIFORM SIGN BU CROSSING BU
+12051	CUNEIFORM SIGN BULUG
+12052	CUNEIFORM SIGN BULUG OVER BULUG
+12053	CUNEIFORM SIGN BUR
+12054	CUNEIFORM SIGN BUR2
+12055	CUNEIFORM SIGN DA
+12056	CUNEIFORM SIGN DAG
+12057	CUNEIFORM SIGN DAG KISIM5 TIMES A PLUS MASH
+12058	CUNEIFORM SIGN DAG KISIM5 TIMES AMAR
+12059	CUNEIFORM SIGN DAG KISIM5 TIMES BALAG
+1205A	CUNEIFORM SIGN DAG KISIM5 TIMES BI
+1205B	CUNEIFORM SIGN DAG KISIM5 TIMES GA
+1205C	CUNEIFORM SIGN DAG KISIM5 TIMES GA PLUS MASH
+1205D	CUNEIFORM SIGN DAG KISIM5 TIMES GI
+1205E	CUNEIFORM SIGN DAG KISIM5 TIMES GIR2
+1205F	CUNEIFORM SIGN DAG KISIM5 TIMES GUD
+12060	CUNEIFORM SIGN DAG KISIM5 TIMES HA
+12061	CUNEIFORM SIGN DAG KISIM5 TIMES IR
+12062	CUNEIFORM SIGN DAG KISIM5 TIMES IR PLUS LU
+12063	CUNEIFORM SIGN DAG KISIM5 TIMES KAK
+12064	CUNEIFORM SIGN DAG KISIM5 TIMES LA
+12065	CUNEIFORM SIGN DAG KISIM5 TIMES LU
+12066	CUNEIFORM SIGN DAG KISIM5 TIMES LU PLUS MASH2
+12067	CUNEIFORM SIGN DAG KISIM5 TIMES LUM
+12068	CUNEIFORM SIGN DAG KISIM5 TIMES NE
+12069	CUNEIFORM SIGN DAG KISIM5 TIMES PAP PLUS PAP
+1206A	CUNEIFORM SIGN DAG KISIM5 TIMES SI
+1206B	CUNEIFORM SIGN DAG KISIM5 TIMES TAK4
+1206C	CUNEIFORM SIGN DAG KISIM5 TIMES U2 PLUS GIR2
+1206D	CUNEIFORM SIGN DAG KISIM5 TIMES USH
+1206E	CUNEIFORM SIGN DAM
+1206F	CUNEIFORM SIGN DAR
+12070	CUNEIFORM SIGN DARA3
+12071	CUNEIFORM SIGN DARA4
+12072	CUNEIFORM SIGN DI
+12073	CUNEIFORM SIGN DIB
+12074	CUNEIFORM SIGN DIM
+12075	CUNEIFORM SIGN DIM TIMES SHE
+12076	CUNEIFORM SIGN DIM2
+12077	CUNEIFORM SIGN DIN
+12078	CUNEIFORM SIGN DIN KASKAL U GUNU DISH
+12079	CUNEIFORM SIGN DISH
+1207A	CUNEIFORM SIGN DU
+1207B	CUNEIFORM SIGN DU OVER DU
+1207C	CUNEIFORM SIGN DU GUNU
+1207D	CUNEIFORM SIGN DU SHESHIG
+1207E	CUNEIFORM SIGN DUB
+1207F	CUNEIFORM SIGN DUB TIMES ESH2
+12080	CUNEIFORM SIGN DUB2
+12081	CUNEIFORM SIGN DUG
+12082	CUNEIFORM SIGN DUGUD
+12083	CUNEIFORM SIGN DUH
+12084	CUNEIFORM SIGN DUN
+12085	CUNEIFORM SIGN DUN3
+12086	CUNEIFORM SIGN DUN3 GUNU
+12087	CUNEIFORM SIGN DUN3 GUNU GUNU
+12088	CUNEIFORM SIGN DUN4
+12089	CUNEIFORM SIGN DUR2
+1208A	CUNEIFORM SIGN E
+1208B	CUNEIFORM SIGN E TIMES PAP
+1208C	CUNEIFORM SIGN E OVER E NUN OVER NUN
+1208D	CUNEIFORM SIGN E2
+1208E	CUNEIFORM SIGN E2 TIMES A PLUS HA PLUS DA
+1208F	CUNEIFORM SIGN E2 TIMES GAR
+12090	CUNEIFORM SIGN E2 TIMES MI
+12091	CUNEIFORM SIGN E2 TIMES SAL
+12092	CUNEIFORM SIGN E2 TIMES SHE
+12093	CUNEIFORM SIGN E2 TIMES U
+12094	CUNEIFORM SIGN EDIN
+12095	CUNEIFORM SIGN EGIR
+12096	CUNEIFORM SIGN EL
+12097	CUNEIFORM SIGN EN
+12098	CUNEIFORM SIGN EN TIMES GAN2
+12099	CUNEIFORM SIGN EN TIMES GAN2 TENU
+1209A	CUNEIFORM SIGN EN TIMES ME
+1209B	CUNEIFORM SIGN EN CROSSING EN
+1209C	CUNEIFORM SIGN EN OPPOSING EN
+1209D	CUNEIFORM SIGN EN SQUARED
+1209E	CUNEIFORM SIGN EREN
+1209F	CUNEIFORM SIGN ERIN2
+120A0	CUNEIFORM SIGN ESH2
+120A1	CUNEIFORM SIGN EZEN
+120A2	CUNEIFORM SIGN EZEN TIMES A
+120A3	CUNEIFORM SIGN EZEN TIMES A PLUS LAL
+120A4	CUNEIFORM SIGN EZEN TIMES A PLUS LAL TIMES LAL
+120A5	CUNEIFORM SIGN EZEN TIMES AN
+120A6	CUNEIFORM SIGN EZEN TIMES BAD
+120A7	CUNEIFORM SIGN EZEN TIMES DUN3 GUNU
+120A8	CUNEIFORM SIGN EZEN TIMES DUN3 GUNU GUNU
+120A9	CUNEIFORM SIGN EZEN TIMES HA
+120AA	CUNEIFORM SIGN EZEN TIMES HA GUNU
+120AB	CUNEIFORM SIGN EZEN TIMES IGI GUNU
+120AC	CUNEIFORM SIGN EZEN TIMES KASKAL
+120AD	CUNEIFORM SIGN EZEN TIMES KASKAL SQUARED
+120AE	CUNEIFORM SIGN EZEN TIMES KU3
+120AF	CUNEIFORM SIGN EZEN TIMES LA
+120B0	CUNEIFORM SIGN EZEN TIMES LAL TIMES LAL
+120B1	CUNEIFORM SIGN EZEN TIMES LI
+120B2	CUNEIFORM SIGN EZEN TIMES LU
+120B3	CUNEIFORM SIGN EZEN TIMES U2
+120B4	CUNEIFORM SIGN EZEN TIMES UD
+120B5	CUNEIFORM SIGN GA
+120B6	CUNEIFORM SIGN GA GUNU
+120B7	CUNEIFORM SIGN GA2
+120B8	CUNEIFORM SIGN GA2 TIMES A PLUS DA PLUS HA
+120B9	CUNEIFORM SIGN GA2 TIMES A PLUS HA
+120BA	CUNEIFORM SIGN GA2 TIMES A PLUS IGI
+120BB	CUNEIFORM SIGN GA2 TIMES AB2 TENU PLUS TAB
+120BC	CUNEIFORM SIGN GA2 TIMES AN
+120BD	CUNEIFORM SIGN GA2 TIMES ASH
+120BE	CUNEIFORM SIGN GA2 TIMES ASH2 PLUS GAL
+120BF	CUNEIFORM SIGN GA2 TIMES BAD
+120C0	CUNEIFORM SIGN GA2 TIMES BAR PLUS RA
+120C1	CUNEIFORM SIGN GA2 TIMES BUR
+120C2	CUNEIFORM SIGN GA2 TIMES BUR PLUS RA
+120C3	CUNEIFORM SIGN GA2 TIMES DA
+120C4	CUNEIFORM SIGN GA2 TIMES DI
+120C5	CUNEIFORM SIGN GA2 TIMES DIM TIMES SHE
+120C6	CUNEIFORM SIGN GA2 TIMES DUB
+120C7	CUNEIFORM SIGN GA2 TIMES EL
+120C8	CUNEIFORM SIGN GA2 TIMES EL PLUS LA
+120C9	CUNEIFORM SIGN GA2 TIMES EN
+120CA	CUNEIFORM SIGN GA2 TIMES EN TIMES GAN2 TENU
+120CB	CUNEIFORM SIGN GA2 TIMES GAN2 TENU
+120CC	CUNEIFORM SIGN GA2 TIMES GAR
+120CD	CUNEIFORM SIGN GA2 TIMES GI
+120CE	CUNEIFORM SIGN GA2 TIMES GI4
+120CF	CUNEIFORM SIGN GA2 TIMES GI4 PLUS A
+120D0	CUNEIFORM SIGN GA2 TIMES GIR2 PLUS SU
+120D1	CUNEIFORM SIGN GA2 TIMES HA PLUS LU PLUS ESH2
+120D2	CUNEIFORM SIGN GA2 TIMES HAL
+120D3	CUNEIFORM SIGN GA2 TIMES HAL PLUS LA
+120D4	CUNEIFORM SIGN GA2 TIMES HI PLUS LI
+120D5	CUNEIFORM SIGN GA2 TIMES HUB2
+120D6	CUNEIFORM SIGN GA2 TIMES IGI GUNU
+120D7	CUNEIFORM SIGN GA2 TIMES ISH PLUS HU PLUS ASH
+120D8	CUNEIFORM SIGN GA2 TIMES KAK
+120D9	CUNEIFORM SIGN GA2 TIMES KASKAL
+120DA	CUNEIFORM SIGN GA2 TIMES KID
+120DB	CUNEIFORM SIGN GA2 TIMES KID PLUS LAL
+120DC	CUNEIFORM SIGN GA2 TIMES KU3 PLUS AN
+120DD	CUNEIFORM SIGN GA2 TIMES LA
+120DE	CUNEIFORM SIGN GA2 TIMES ME PLUS EN
+120DF	CUNEIFORM SIGN GA2 TIMES MI
+120E0	CUNEIFORM SIGN GA2 TIMES NUN
+120E1	CUNEIFORM SIGN GA2 TIMES NUN OVER NUN
+120E2	CUNEIFORM SIGN GA2 TIMES PA
+120E3	CUNEIFORM SIGN GA2 TIMES SAL
+120E4	CUNEIFORM SIGN GA2 TIMES SAR
+120E5	CUNEIFORM SIGN GA2 TIMES SHE
+120E6	CUNEIFORM SIGN GA2 TIMES SHE PLUS TUR
+120E7	CUNEIFORM SIGN GA2 TIMES SHID
+120E8	CUNEIFORM SIGN GA2 TIMES SUM
+120E9	CUNEIFORM SIGN GA2 TIMES TAK4
+120EA	CUNEIFORM SIGN GA2 TIMES U
+120EB	CUNEIFORM SIGN GA2 TIMES UD
+120EC	CUNEIFORM SIGN GA2 TIMES UD PLUS DU
+120ED	CUNEIFORM SIGN GA2 OVER GA2
+120EE	CUNEIFORM SIGN GABA
+120EF	CUNEIFORM SIGN GABA CROSSING GABA
+120F0	CUNEIFORM SIGN GAD
+120F1	CUNEIFORM SIGN GAD OVER GAD GAR OVER GAR
+120F2	CUNEIFORM SIGN GAL
+120F3	CUNEIFORM SIGN GAL GAD OVER GAD GAR OVER GAR
+120F4	CUNEIFORM SIGN GALAM
+120F5	CUNEIFORM SIGN GAM
+120F6	CUNEIFORM SIGN GAN
+120F7	CUNEIFORM SIGN GAN2
+120F8	CUNEIFORM SIGN GAN2 TENU
+120F9	CUNEIFORM SIGN GAN2 OVER GAN2
+120FA	CUNEIFORM SIGN GAN2 CROSSING GAN2
+120FB	CUNEIFORM SIGN GAR
+120FC	CUNEIFORM SIGN GAR3
+120FD	CUNEIFORM SIGN GASHAN
+120FE	CUNEIFORM SIGN GESHTIN
+120FF	CUNEIFORM SIGN GESHTIN TIMES KUR
+12100	CUNEIFORM SIGN GI
+12101	CUNEIFORM SIGN GI TIMES E
+12102	CUNEIFORM SIGN GI TIMES U
+12103	CUNEIFORM SIGN GI CROSSING GI
+12104	CUNEIFORM SIGN GI4
+12105	CUNEIFORM SIGN GI4 OVER GI4
+12106	CUNEIFORM SIGN GI4 CROSSING GI4
+12107	CUNEIFORM SIGN GIDIM
+12108	CUNEIFORM SIGN GIR2
+12109	CUNEIFORM SIGN GIR2 GUNU
+1210A	CUNEIFORM SIGN GIR3
+1210B	CUNEIFORM SIGN GIR3 TIMES A PLUS IGI
+1210C	CUNEIFORM SIGN GIR3 TIMES GAN2 TENU
+1210D	CUNEIFORM SIGN GIR3 TIMES IGI
+1210E	CUNEIFORM SIGN GIR3 TIMES LU PLUS IGI
+1210F	CUNEIFORM SIGN GIR3 TIMES PA
+12110	CUNEIFORM SIGN GISAL
+12111	CUNEIFORM SIGN GISH
+12112	CUNEIFORM SIGN GISH CROSSING GISH
+12113	CUNEIFORM SIGN GISH TIMES BAD
+12114	CUNEIFORM SIGN GISH TIMES TAK4
+12115	CUNEIFORM SIGN GISH TENU
+12116	CUNEIFORM SIGN GU
+12117	CUNEIFORM SIGN GU CROSSING GU
+12118	CUNEIFORM SIGN GU2
+12119	CUNEIFORM SIGN GU2 TIMES KAK
+1211A	CUNEIFORM SIGN GU2 TIMES KAK TIMES IGI GUNU
+1211B	CUNEIFORM SIGN GU2 TIMES NUN
+1211C	CUNEIFORM SIGN GU2 TIMES SAL PLUS TUG2
+1211D	CUNEIFORM SIGN GU2 GUNU
+1211E	CUNEIFORM SIGN GUD
+1211F	CUNEIFORM SIGN GUD TIMES A PLUS KUR
+12120	CUNEIFORM SIGN GUD TIMES KUR
+12121	CUNEIFORM SIGN GUD OVER GUD LUGAL
+12122	CUNEIFORM SIGN GUL
+12123	CUNEIFORM SIGN GUM
+12124	CUNEIFORM SIGN GUM TIMES SHE
+12125	CUNEIFORM SIGN GUR
+12126	CUNEIFORM SIGN GUR7
+12127	CUNEIFORM SIGN GURUN
+12128	CUNEIFORM SIGN GURUSH
+12129	CUNEIFORM SIGN HA
+1212A	CUNEIFORM SIGN HA TENU
+1212B	CUNEIFORM SIGN HA GUNU
+1212C	CUNEIFORM SIGN HAL
+1212D	CUNEIFORM SIGN HI
+1212E	CUNEIFORM SIGN HI TIMES ASH
+1212F	CUNEIFORM SIGN HI TIMES ASH2
+12130	CUNEIFORM SIGN HI TIMES BAD
+12131	CUNEIFORM SIGN HI TIMES DISH
+12132	CUNEIFORM SIGN HI TIMES GAD
+12133	CUNEIFORM SIGN HI TIMES KIN
+12134	CUNEIFORM SIGN HI TIMES NUN
+12135	CUNEIFORM SIGN HI TIMES SHE
+12136	CUNEIFORM SIGN HI TIMES U
+12137	CUNEIFORM SIGN HU
+12138	CUNEIFORM SIGN HUB2
+12139	CUNEIFORM SIGN HUB2 TIMES AN
+1213A	CUNEIFORM SIGN HUB2 TIMES HAL
+1213B	CUNEIFORM SIGN HUB2 TIMES KASKAL
+1213C	CUNEIFORM SIGN HUB2 TIMES LISH
+1213D	CUNEIFORM SIGN HUB2 TIMES UD
+1213E	CUNEIFORM SIGN HUL2
+1213F	CUNEIFORM SIGN I
+12140	CUNEIFORM SIGN I A
+12141	CUNEIFORM SIGN IB
+12142	CUNEIFORM SIGN IDIM
+12143	CUNEIFORM SIGN IDIM OVER IDIM BUR
+12144	CUNEIFORM SIGN IDIM OVER IDIM SQUARED
+12145	CUNEIFORM SIGN IG
+12146	CUNEIFORM SIGN IGI
+12147	CUNEIFORM SIGN IGI DIB
+12148	CUNEIFORM SIGN IGI RI
+12149	CUNEIFORM SIGN IGI OVER IGI SHIR OVER SHIR UD OVER UD
+1214A	CUNEIFORM SIGN IGI GUNU
+1214B	CUNEIFORM SIGN IL
+1214C	CUNEIFORM SIGN IL TIMES GAN2 TENU
+1214D	CUNEIFORM SIGN IL2
+1214E	CUNEIFORM SIGN IM
+1214F	CUNEIFORM SIGN IM TIMES TAK4
+12150	CUNEIFORM SIGN IM CROSSING IM
+12151	CUNEIFORM SIGN IM OPPOSING IM
+12152	CUNEIFORM SIGN IM SQUARED
+12153	CUNEIFORM SIGN IMIN
+12154	CUNEIFORM SIGN IN
+12155	CUNEIFORM SIGN IR
+12156	CUNEIFORM SIGN ISH
+12157	CUNEIFORM SIGN KA
+12158	CUNEIFORM SIGN KA TIMES A
+12159	CUNEIFORM SIGN KA TIMES AD
+1215A	CUNEIFORM SIGN KA TIMES AD PLUS KU3
+1215B	CUNEIFORM SIGN KA TIMES ASH2
+1215C	CUNEIFORM SIGN KA TIMES BAD
+1215D	CUNEIFORM SIGN KA TIMES BALAG
+1215E	CUNEIFORM SIGN KA TIMES BAR
+1215F	CUNEIFORM SIGN KA TIMES BI
+12160	CUNEIFORM SIGN KA TIMES ERIN2
+12161	CUNEIFORM SIGN KA TIMES ESH2
+12162	CUNEIFORM SIGN KA TIMES GA
+12163	CUNEIFORM SIGN KA TIMES GAL
+12164	CUNEIFORM SIGN KA TIMES GAN2 TENU
+12165	CUNEIFORM SIGN KA TIMES GAR
+12166	CUNEIFORM SIGN KA TIMES GAR PLUS SHA3 PLUS A
+12167	CUNEIFORM SIGN KA TIMES GI
+12168	CUNEIFORM SIGN KA TIMES GIR2
+12169	CUNEIFORM SIGN KA TIMES GISH PLUS SAR
+1216A	CUNEIFORM SIGN KA TIMES GISH CROSSING GISH
+1216B	CUNEIFORM SIGN KA TIMES GU
+1216C	CUNEIFORM SIGN KA TIMES GUR7
+1216D	CUNEIFORM SIGN KA TIMES IGI
+1216E	CUNEIFORM SIGN KA TIMES IM
+1216F	CUNEIFORM SIGN KA TIMES KAK
+12170	CUNEIFORM SIGN KA TIMES KI
+12171	CUNEIFORM SIGN KA TIMES KID
+12172	CUNEIFORM SIGN KA TIMES LI
+12173	CUNEIFORM SIGN KA TIMES LU
+12174	CUNEIFORM SIGN KA TIMES ME
+12175	CUNEIFORM SIGN KA TIMES ME PLUS DU
+12176	CUNEIFORM SIGN KA TIMES ME PLUS GI
+12177	CUNEIFORM SIGN KA TIMES ME PLUS TE
+12178	CUNEIFORM SIGN KA TIMES MI
+12179	CUNEIFORM SIGN KA TIMES MI PLUS NUNUZ
+1217A	CUNEIFORM SIGN KA TIMES NE
+1217B	CUNEIFORM SIGN KA TIMES NUN
+1217C	CUNEIFORM SIGN KA TIMES PI
+1217D	CUNEIFORM SIGN KA TIMES RU
+1217E	CUNEIFORM SIGN KA TIMES SA
+1217F	CUNEIFORM SIGN KA TIMES SAR
+12180	CUNEIFORM SIGN KA TIMES SHA
+12181	CUNEIFORM SIGN KA TIMES SHE
+12182	CUNEIFORM SIGN KA TIMES SHID
+12183	CUNEIFORM SIGN KA TIMES SHU
+12184	CUNEIFORM SIGN KA TIMES SIG
+12185	CUNEIFORM SIGN KA TIMES SUHUR
+12186	CUNEIFORM SIGN KA TIMES TAR
+12187	CUNEIFORM SIGN KA TIMES U
+12188	CUNEIFORM SIGN KA TIMES U2
+12189	CUNEIFORM SIGN KA TIMES UD
+1218A	CUNEIFORM SIGN KA TIMES UMUM TIMES PA
+1218B	CUNEIFORM SIGN KA TIMES USH
+1218C	CUNEIFORM SIGN KA TIMES ZI
+1218D	CUNEIFORM SIGN KA2
+1218E	CUNEIFORM SIGN KA2 CROSSING KA2
+1218F	CUNEIFORM SIGN KAB
+12190	CUNEIFORM SIGN KAD2
+12191	CUNEIFORM SIGN KAD3
+12192	CUNEIFORM SIGN KAD4
+12193	CUNEIFORM SIGN KAD5
+12194	CUNEIFORM SIGN KAD5 OVER KAD5
+12195	CUNEIFORM SIGN KAK
+12196	CUNEIFORM SIGN KAK TIMES IGI GUNU
+12197	CUNEIFORM SIGN KAL
+12198	CUNEIFORM SIGN KAL TIMES BAD
+12199	CUNEIFORM SIGN KAL CROSSING KAL
+1219A	CUNEIFORM SIGN KAM2
+1219B	CUNEIFORM SIGN KAM4
+1219C	CUNEIFORM SIGN KASKAL
+1219D	CUNEIFORM SIGN KASKAL LAGAB TIMES U OVER LAGAB TIMES U
+1219E	CUNEIFORM SIGN KASKAL OVER KASKAL LAGAB TIMES U OVER LAGAB TIMES U
+1219F	CUNEIFORM SIGN KESH2
+121A0	CUNEIFORM SIGN KI
+121A1	CUNEIFORM SIGN KI TIMES BAD
+121A2	CUNEIFORM SIGN KI TIMES U
+121A3	CUNEIFORM SIGN KI TIMES UD
+121A4	CUNEIFORM SIGN KID
+121A5	CUNEIFORM SIGN KIN
+121A6	CUNEIFORM SIGN KISAL
+121A7	CUNEIFORM SIGN KISH
+121A8	CUNEIFORM SIGN KISIM5
+121A9	CUNEIFORM SIGN KISIM5 OVER KISIM5
+121AA	CUNEIFORM SIGN KU
+121AB	CUNEIFORM SIGN KU OVER HI TIMES ASH2 KU OVER HI TIMES ASH2
+121AC	CUNEIFORM SIGN KU3
+121AD	CUNEIFORM SIGN KU4
+121AE	CUNEIFORM SIGN KU4 VARIANT FORM
+121AF	CUNEIFORM SIGN KU7
+121B0	CUNEIFORM SIGN KUL
+121B1	CUNEIFORM SIGN KUL GUNU
+121B2	CUNEIFORM SIGN KUN
+121B3	CUNEIFORM SIGN KUR
+121B4	CUNEIFORM SIGN KUR OPPOSING KUR
+121B5	CUNEIFORM SIGN KUSHU2
+121B6	CUNEIFORM SIGN KWU318
+121B7	CUNEIFORM SIGN LA
+121B8	CUNEIFORM SIGN LAGAB
+121B9	CUNEIFORM SIGN LAGAB TIMES A
+121BA	CUNEIFORM SIGN LAGAB TIMES A PLUS DA PLUS HA
+121BB	CUNEIFORM SIGN LAGAB TIMES A PLUS GAR
+121BC	CUNEIFORM SIGN LAGAB TIMES A PLUS LAL
+121BD	CUNEIFORM SIGN LAGAB TIMES AL
+121BE	CUNEIFORM SIGN LAGAB TIMES AN
+121BF	CUNEIFORM SIGN LAGAB TIMES ASH ZIDA TENU
+121C0	CUNEIFORM SIGN LAGAB TIMES BAD
+121C1	CUNEIFORM SIGN LAGAB TIMES BI
+121C2	CUNEIFORM SIGN LAGAB TIMES DAR
+121C3	CUNEIFORM SIGN LAGAB TIMES EN
+121C4	CUNEIFORM SIGN LAGAB TIMES GA
+121C5	CUNEIFORM SIGN LAGAB TIMES GAR
+121C6	CUNEIFORM SIGN LAGAB TIMES GUD
+121C7	CUNEIFORM SIGN LAGAB TIMES GUD PLUS GUD
+121C8	CUNEIFORM SIGN LAGAB TIMES HA
+121C9	CUNEIFORM SIGN LAGAB TIMES HAL
+121CA	CUNEIFORM SIGN LAGAB TIMES HI TIMES NUN
+121CB	CUNEIFORM SIGN LAGAB TIMES IGI GUNU
+121CC	CUNEIFORM SIGN LAGAB TIMES IM
+121CD	CUNEIFORM SIGN LAGAB TIMES IM PLUS HA
+121CE	CUNEIFORM SIGN LAGAB TIMES IM PLUS LU
+121CF	CUNEIFORM SIGN LAGAB TIMES KI
+121D0	CUNEIFORM SIGN LAGAB TIMES KIN
+121D1	CUNEIFORM SIGN LAGAB TIMES KU3
+121D2	CUNEIFORM SIGN LAGAB TIMES KUL
+121D3	CUNEIFORM SIGN LAGAB TIMES KUL PLUS HI PLUS A
+121D4	CUNEIFORM SIGN LAGAB TIMES LAGAB
+121D5	CUNEIFORM SIGN LAGAB TIMES LISH
+121D6	CUNEIFORM SIGN LAGAB TIMES LU
+121D7	CUNEIFORM SIGN LAGAB TIMES LUL
+121D8	CUNEIFORM SIGN LAGAB TIMES ME
+121D9	CUNEIFORM SIGN LAGAB TIMES ME PLUS EN
+121DA	CUNEIFORM SIGN LAGAB TIMES MUSH
+121DB	CUNEIFORM SIGN LAGAB TIMES NE
+121DC	CUNEIFORM SIGN LAGAB TIMES SHE PLUS SUM
+121DD	CUNEIFORM SIGN LAGAB TIMES SHITA PLUS GISH PLUS ERIN2
+121DE	CUNEIFORM SIGN LAGAB TIMES SHITA PLUS GISH TENU
+121DF	CUNEIFORM SIGN LAGAB TIMES SHU2
+121E0	CUNEIFORM SIGN LAGAB TIMES SHU2 PLUS SHU2
+121E1	CUNEIFORM SIGN LAGAB TIMES SUM
+121E2	CUNEIFORM SIGN LAGAB TIMES TAG
+121E3	CUNEIFORM SIGN LAGAB TIMES TAK4
+121E4	CUNEIFORM SIGN LAGAB TIMES TE PLUS A PLUS SU PLUS NA
+121E5	CUNEIFORM SIGN LAGAB TIMES U
+121E6	CUNEIFORM SIGN LAGAB TIMES U PLUS A
+121E7	CUNEIFORM SIGN LAGAB TIMES U PLUS U PLUS U
+121E8	CUNEIFORM SIGN LAGAB TIMES U2 PLUS ASH
+121E9	CUNEIFORM SIGN LAGAB TIMES UD
+121EA	CUNEIFORM SIGN LAGAB TIMES USH
+121EB	CUNEIFORM SIGN LAGAB SQUARED
+121EC	CUNEIFORM SIGN LAGAR
+121ED	CUNEIFORM SIGN LAGAR TIMES SHE
+121EE	CUNEIFORM SIGN LAGAR TIMES SHE PLUS SUM
+121EF	CUNEIFORM SIGN LAGAR GUNU
+121F0	CUNEIFORM SIGN LAGAR GUNU OVER LAGAR GUNU SHE
+121F1	CUNEIFORM SIGN LAHSHU
+121F2	CUNEIFORM SIGN LAL
+121F3	CUNEIFORM SIGN LAL TIMES LAL
+121F4	CUNEIFORM SIGN LAM
+121F5	CUNEIFORM SIGN LAM TIMES KUR
+121F6	CUNEIFORM SIGN LAM TIMES KUR PLUS RU
+121F7	CUNEIFORM SIGN LI
+121F8	CUNEIFORM SIGN LIL
+121F9	CUNEIFORM SIGN LIMMU2
+121FA	CUNEIFORM SIGN LISH
+121FB	CUNEIFORM SIGN LU
+121FC	CUNEIFORM SIGN LU TIMES BAD
+121FD	CUNEIFORM SIGN LU2
+121FE	CUNEIFORM SIGN LU2 TIMES AL
+121FF	CUNEIFORM SIGN LU2 TIMES BAD
+12200	CUNEIFORM SIGN LU2 TIMES ESH2
+12201	CUNEIFORM SIGN LU2 TIMES ESH2 TENU
+12202	CUNEIFORM SIGN LU2 TIMES GAN2 TENU
+12203	CUNEIFORM SIGN LU2 TIMES HI TIMES BAD
+12204	CUNEIFORM SIGN LU2 TIMES IM
+12205	CUNEIFORM SIGN LU2 TIMES KAD2
+12206	CUNEIFORM SIGN LU2 TIMES KAD3
+12207	CUNEIFORM SIGN LU2 TIMES KAD3 PLUS ASH
+12208	CUNEIFORM SIGN LU2 TIMES KI
+12209	CUNEIFORM SIGN LU2 TIMES LA PLUS ASH
+1220A	CUNEIFORM SIGN LU2 TIMES LAGAB
+1220B	CUNEIFORM SIGN LU2 TIMES ME PLUS EN
+1220C	CUNEIFORM SIGN LU2 TIMES NE
+1220D	CUNEIFORM SIGN LU2 TIMES NU
+1220E	CUNEIFORM SIGN LU2 TIMES SI PLUS ASH
+1220F	CUNEIFORM SIGN LU2 TIMES SIK2 PLUS BU
+12210	CUNEIFORM SIGN LU2 TIMES TUG2
+12211	CUNEIFORM SIGN LU2 TENU
+12212	CUNEIFORM SIGN LU2 CROSSING LU2
+12213	CUNEIFORM SIGN LU2 OPPOSING LU2
+12214	CUNEIFORM SIGN LU2 SQUARED
+12215	CUNEIFORM SIGN LU2 SHESHIG
+12216	CUNEIFORM SIGN LU3
+12217	CUNEIFORM SIGN LUGAL
+12218	CUNEIFORM SIGN LUGAL OVER LUGAL
+12219	CUNEIFORM SIGN LUGAL OPPOSING LUGAL
+1221A	CUNEIFORM SIGN LUGAL SHESHIG
+1221B	CUNEIFORM SIGN LUH
+1221C	CUNEIFORM SIGN LUL
+1221D	CUNEIFORM SIGN LUM
+1221E	CUNEIFORM SIGN LUM OVER LUM
+1221F	CUNEIFORM SIGN LUM OVER LUM GAR OVER GAR
+12220	CUNEIFORM SIGN MA
+12221	CUNEIFORM SIGN MA TIMES TAK4
+12222	CUNEIFORM SIGN MA GUNU
+12223	CUNEIFORM SIGN MA2
+12224	CUNEIFORM SIGN MAH
+12225	CUNEIFORM SIGN MAR
+12226	CUNEIFORM SIGN MASH
+12227	CUNEIFORM SIGN MASH2
+12228	CUNEIFORM SIGN ME
+12229	CUNEIFORM SIGN MES
+1222A	CUNEIFORM SIGN MI
+1222B	CUNEIFORM SIGN MIN
+1222C	CUNEIFORM SIGN MU
+1222D	CUNEIFORM SIGN MU OVER MU
+1222E	CUNEIFORM SIGN MUG
+1222F	CUNEIFORM SIGN MUG GUNU
+12230	CUNEIFORM SIGN MUNSUB
+12231	CUNEIFORM SIGN MURGU2
+12232	CUNEIFORM SIGN MUSH
+12233	CUNEIFORM SIGN MUSH TIMES A
+12234	CUNEIFORM SIGN MUSH TIMES KUR
+12235	CUNEIFORM SIGN MUSH TIMES ZA
+12236	CUNEIFORM SIGN MUSH OVER MUSH
+12237	CUNEIFORM SIGN MUSH OVER MUSH TIMES A PLUS NA
+12238	CUNEIFORM SIGN MUSH CROSSING MUSH
+12239	CUNEIFORM SIGN MUSH3
+1223A	CUNEIFORM SIGN MUSH3 TIMES A
+1223B	CUNEIFORM SIGN MUSH3 TIMES A PLUS DI
+1223C	CUNEIFORM SIGN MUSH3 TIMES DI
+1223D	CUNEIFORM SIGN MUSH3 GUNU
+1223E	CUNEIFORM SIGN NA
+1223F	CUNEIFORM SIGN NA2
+12240	CUNEIFORM SIGN NAGA
+12241	CUNEIFORM SIGN NAGA INVERTED
+12242	CUNEIFORM SIGN NAGA TIMES SHU TENU
+12243	CUNEIFORM SIGN NAGA OPPOSING NAGA
+12244	CUNEIFORM SIGN NAGAR
+12245	CUNEIFORM SIGN NAM NUTILLU
+12246	CUNEIFORM SIGN NAM
+12247	CUNEIFORM SIGN NAM2
+12248	CUNEIFORM SIGN NE
+12249	CUNEIFORM SIGN NE TIMES A
+1224A	CUNEIFORM SIGN NE TIMES UD
+1224B	CUNEIFORM SIGN NE SHESHIG
+1224C	CUNEIFORM SIGN NI
+1224D	CUNEIFORM SIGN NI TIMES E
+1224E	CUNEIFORM SIGN NI2
+1224F	CUNEIFORM SIGN NIM
+12250	CUNEIFORM SIGN NIM TIMES GAN2 TENU
+12251	CUNEIFORM SIGN NIM TIMES GAR PLUS GAN2 TENU
+12252	CUNEIFORM SIGN NINDA2
+12253	CUNEIFORM SIGN NINDA2 TIMES AN
+12254	CUNEIFORM SIGN NINDA2 TIMES ASH
+12255	CUNEIFORM SIGN NINDA2 TIMES ASH PLUS ASH
+12256	CUNEIFORM SIGN NINDA2 TIMES GUD
+12257	CUNEIFORM SIGN NINDA2 TIMES ME PLUS GAN2 TENU
+12258	CUNEIFORM SIGN NINDA2 TIMES NE
+12259	CUNEIFORM SIGN NINDA2 TIMES NUN
+1225A	CUNEIFORM SIGN NINDA2 TIMES SHE
+1225B	CUNEIFORM SIGN NINDA2 TIMES SHE PLUS A AN
+1225C	CUNEIFORM SIGN NINDA2 TIMES SHE PLUS ASH
+1225D	CUNEIFORM SIGN NINDA2 TIMES SHE PLUS ASH PLUS ASH
+1225E	CUNEIFORM SIGN NINDA2 TIMES U2 PLUS ASH
+1225F	CUNEIFORM SIGN NINDA2 TIMES USH
+12260	CUNEIFORM SIGN NISAG
+12261	CUNEIFORM SIGN NU
+12262	CUNEIFORM SIGN NU11
+12263	CUNEIFORM SIGN NUN
+12264	CUNEIFORM SIGN NUN LAGAR TIMES GAR
+12265	CUNEIFORM SIGN NUN LAGAR TIMES MASH
+12266	CUNEIFORM SIGN NUN LAGAR TIMES SAL
+12267	CUNEIFORM SIGN NUN LAGAR TIMES SAL OVER NUN LAGAR TIMES SAL
+12268	CUNEIFORM SIGN NUN LAGAR TIMES USH
+12269	CUNEIFORM SIGN NUN TENU
+1226A	CUNEIFORM SIGN NUN OVER NUN
+1226B	CUNEIFORM SIGN NUN CROSSING NUN
+1226C	CUNEIFORM SIGN NUN CROSSING NUN LAGAR OVER LAGAR
+1226D	CUNEIFORM SIGN NUNUZ
+1226E	CUNEIFORM SIGN NUNUZ AB2 TIMES ASHGAB
+1226F	CUNEIFORM SIGN NUNUZ AB2 TIMES BI
+12270	CUNEIFORM SIGN NUNUZ AB2 TIMES DUG
+12271	CUNEIFORM SIGN NUNUZ AB2 TIMES GUD
+12272	CUNEIFORM SIGN NUNUZ AB2 TIMES IGI GUNU
+12273	CUNEIFORM SIGN NUNUZ AB2 TIMES KAD3
+12274	CUNEIFORM SIGN NUNUZ AB2 TIMES LA
+12275	CUNEIFORM SIGN NUNUZ AB2 TIMES NE
+12276	CUNEIFORM SIGN NUNUZ AB2 TIMES SILA3
+12277	CUNEIFORM SIGN NUNUZ AB2 TIMES U2
+12278	CUNEIFORM SIGN NUNUZ KISIM5 TIMES BI
+12279	CUNEIFORM SIGN NUNUZ KISIM5 TIMES BI U
+1227A	CUNEIFORM SIGN PA
+1227B	CUNEIFORM SIGN PAD
+1227C	CUNEIFORM SIGN PAN
+1227D	CUNEIFORM SIGN PAP
+1227E	CUNEIFORM SIGN PESH2
+1227F	CUNEIFORM SIGN PI
+12280	CUNEIFORM SIGN PI TIMES A
+12281	CUNEIFORM SIGN PI TIMES AB
+12282	CUNEIFORM SIGN PI TIMES BI
+12283	CUNEIFORM SIGN PI TIMES BU
+12284	CUNEIFORM SIGN PI TIMES E
+12285	CUNEIFORM SIGN PI TIMES I
+12286	CUNEIFORM SIGN PI TIMES IB
+12287	CUNEIFORM SIGN PI TIMES U
+12288	CUNEIFORM SIGN PI TIMES U2
+12289	CUNEIFORM SIGN PI CROSSING PI
+1228A	CUNEIFORM SIGN PIRIG
+1228B	CUNEIFORM SIGN PIRIG TIMES KAL
+1228C	CUNEIFORM SIGN PIRIG TIMES UD
+1228D	CUNEIFORM SIGN PIRIG TIMES ZA
+1228E	CUNEIFORM SIGN PIRIG OPPOSING PIRIG
+1228F	CUNEIFORM SIGN RA
+12290	CUNEIFORM SIGN RAB
+12291	CUNEIFORM SIGN RI
+12292	CUNEIFORM SIGN RU
+12293	CUNEIFORM SIGN SA
+12294	CUNEIFORM SIGN SAG NUTILLU
+12295	CUNEIFORM SIGN SAG
+12296	CUNEIFORM SIGN SAG TIMES A
+12297	CUNEIFORM SIGN SAG TIMES DU
+12298	CUNEIFORM SIGN SAG TIMES DUB
+12299	CUNEIFORM SIGN SAG TIMES HA
+1229A	CUNEIFORM SIGN SAG TIMES KAK
+1229B	CUNEIFORM SIGN SAG TIMES KUR
+1229C	CUNEIFORM SIGN SAG TIMES LUM
+1229D	CUNEIFORM SIGN SAG TIMES MI
+1229E	CUNEIFORM SIGN SAG TIMES NUN
+1229F	CUNEIFORM SIGN SAG TIMES SAL
+122A0	CUNEIFORM SIGN SAG TIMES SHID
+122A1	CUNEIFORM SIGN SAG TIMES TAB
+122A2	CUNEIFORM SIGN SAG TIMES U2
+122A3	CUNEIFORM SIGN SAG TIMES UB
+122A4	CUNEIFORM SIGN SAG TIMES UM
+122A5	CUNEIFORM SIGN SAG TIMES UR
+122A6	CUNEIFORM SIGN SAG TIMES USH
+122A7	CUNEIFORM SIGN SAG OVER SAG
+122A8	CUNEIFORM SIGN SAG GUNU
+122A9	CUNEIFORM SIGN SAL
+122AA	CUNEIFORM SIGN SAL LAGAB TIMES ASH2
+122AB	CUNEIFORM SIGN SANGA2
+122AC	CUNEIFORM SIGN SAR
+122AD	CUNEIFORM SIGN SHA
+122AE	CUNEIFORM SIGN SHA3
+122AF	CUNEIFORM SIGN SHA3 TIMES A
+122B0	CUNEIFORM SIGN SHA3 TIMES BAD
+122B1	CUNEIFORM SIGN SHA3 TIMES GISH
+122B2	CUNEIFORM SIGN SHA3 TIMES NE
+122B3	CUNEIFORM SIGN SHA3 TIMES SHU2
+122B4	CUNEIFORM SIGN SHA3 TIMES TUR
+122B5	CUNEIFORM SIGN SHA3 TIMES U
+122B6	CUNEIFORM SIGN SHA3 TIMES U PLUS A
+122B7	CUNEIFORM SIGN SHA6
+122B8	CUNEIFORM SIGN SHAB6
+122B9	CUNEIFORM SIGN SHAR2
+122BA	CUNEIFORM SIGN SHE
+122BB	CUNEIFORM SIGN SHE HU
+122BC	CUNEIFORM SIGN SHE OVER SHE GAD OVER GAD GAR OVER GAR
+122BD	CUNEIFORM SIGN SHE OVER SHE TAB OVER TAB GAR OVER GAR
+122BE	CUNEIFORM SIGN SHEG9
+122BF	CUNEIFORM SIGN SHEN
+122C0	CUNEIFORM SIGN SHESH
+122C1	CUNEIFORM SIGN SHESH2
+122C2	CUNEIFORM SIGN SHESHLAM
+122C3	CUNEIFORM SIGN SHID
+122C4	CUNEIFORM SIGN SHID TIMES A
+122C5	CUNEIFORM SIGN SHID TIMES IM
+122C6	CUNEIFORM SIGN SHIM
+122C7	CUNEIFORM SIGN SHIM TIMES A
+122C8	CUNEIFORM SIGN SHIM TIMES BAL
+122C9	CUNEIFORM SIGN SHIM TIMES BULUG
+122CA	CUNEIFORM SIGN SHIM TIMES DIN
+122CB	CUNEIFORM SIGN SHIM TIMES GAR
+122CC	CUNEIFORM SIGN SHIM TIMES IGI
+122CD	CUNEIFORM SIGN SHIM TIMES IGI GUNU
+122CE	CUNEIFORM SIGN SHIM TIMES KUSHU2
+122CF	CUNEIFORM SIGN SHIM TIMES LUL
+122D0	CUNEIFORM SIGN SHIM TIMES MUG
+122D1	CUNEIFORM SIGN SHIM TIMES SAL
+122D2	CUNEIFORM SIGN SHINIG
+122D3	CUNEIFORM SIGN SHIR
+122D4	CUNEIFORM SIGN NU11 TENU
+122D4	CUNEIFORM SIGN SHIR TENU
+122D5	CUNEIFORM SIGN NU11 OVER NU11 BUR OVER BUR
+122D5	CUNEIFORM SIGN SHIR OVER SHIR BUR OVER BUR
+122D6	CUNEIFORM SIGN SHITA
+122D7	CUNEIFORM SIGN SHU
+122D8	CUNEIFORM SIGN SHU OVER INVERTED SHU
+122D9	CUNEIFORM SIGN SHU2
+122DA	CUNEIFORM SIGN SHUBUR
+122DB	CUNEIFORM SIGN SI
+122DC	CUNEIFORM SIGN SI GUNU
+122DD	CUNEIFORM SIGN SIG
+122DE	CUNEIFORM SIGN SIG4
+122DF	CUNEIFORM SIGN SIG4 OVER SIG4 SHU2
+122E0	CUNEIFORM SIGN SIK2
+122E1	CUNEIFORM SIGN SILA3
+122E2	CUNEIFORM SIGN SU
+122E3	CUNEIFORM SIGN SU OVER SU
+122E4	CUNEIFORM SIGN SUD
+122E5	CUNEIFORM SIGN SUD2
+122E6	CUNEIFORM SIGN SUHUR
+122E7	CUNEIFORM SIGN SUM
+122E8	CUNEIFORM SIGN SUMASH
+122E9	CUNEIFORM SIGN SUR
+122EA	CUNEIFORM SIGN SUR9
+122EB	CUNEIFORM SIGN TA
+122EC	CUNEIFORM SIGN TA ASTERISK
+122ED	CUNEIFORM SIGN TA TIMES HI
+122EE	CUNEIFORM SIGN TA TIMES MI
+122EF	CUNEIFORM SIGN TA GUNU
+122F0	CUNEIFORM SIGN TAB
+122F1	CUNEIFORM SIGN TAB OVER TAB NI OVER NI DISH OVER DISH
+122F2	CUNEIFORM SIGN TAB SQUARED
+122F3	CUNEIFORM SIGN TAG
+122F4	CUNEIFORM SIGN TAG TIMES BI
+122F5	CUNEIFORM SIGN TAG TIMES GUD
+122F6	CUNEIFORM SIGN TAG TIMES SHE
+122F7	CUNEIFORM SIGN TAG TIMES SHU
+122F8	CUNEIFORM SIGN TAG TIMES TUG2
+122F9	CUNEIFORM SIGN TAG TIMES UD
+122FA	CUNEIFORM SIGN TAK4
+122FB	CUNEIFORM SIGN TAR
+122FC	CUNEIFORM SIGN TE
+122FD	CUNEIFORM SIGN TE GUNU
+122FE	CUNEIFORM SIGN TI
+122FF	CUNEIFORM SIGN TI TENU
+12300	CUNEIFORM SIGN TIL
+12301	CUNEIFORM SIGN TIR
+12302	CUNEIFORM SIGN TIR TIMES TAK4
+12303	CUNEIFORM SIGN TIR OVER TIR
+12304	CUNEIFORM SIGN TIR OVER TIR GAD OVER GAD GAR OVER GAR
+12305	CUNEIFORM SIGN TU
+12306	CUNEIFORM SIGN TUG2
+12307	CUNEIFORM SIGN TUK
+12308	CUNEIFORM SIGN TUM
+12309	CUNEIFORM SIGN TUR
+1230A	CUNEIFORM SIGN TUR OVER TUR ZA OVER ZA
+1230B	CUNEIFORM SIGN U
+1230C	CUNEIFORM SIGN U GUD
+1230D	CUNEIFORM SIGN U U U
+1230E	CUNEIFORM SIGN U OVER U PA OVER PA GAR OVER GAR
+1230F	CUNEIFORM SIGN U OVER U SUR OVER SUR
+12310	CUNEIFORM SIGN U OVER U U REVERSED OVER U REVERSED
+12311	CUNEIFORM SIGN U2
+12312	CUNEIFORM SIGN UB
+12313	CUNEIFORM SIGN UD
+12314	CUNEIFORM SIGN UD KUSHU2
+12315	CUNEIFORM SIGN UD TIMES BAD
+12316	CUNEIFORM SIGN UD TIMES MI
+12317	CUNEIFORM SIGN UD TIMES U PLUS U PLUS U
+12318	CUNEIFORM SIGN UD TIMES U PLUS U PLUS U GUNU
+12319	CUNEIFORM SIGN UD GUNU
+1231A	CUNEIFORM SIGN UD SHESHIG
+1231B	CUNEIFORM SIGN UD SHESHIG TIMES BAD
+1231C	CUNEIFORM SIGN UDUG
+1231D	CUNEIFORM SIGN UM
+1231E	CUNEIFORM SIGN UM TIMES LAGAB
+1231F	CUNEIFORM SIGN UM TIMES ME PLUS DA
+12320	CUNEIFORM SIGN UM TIMES SHA3
+12321	CUNEIFORM SIGN UM TIMES U
+12322	CUNEIFORM SIGN UMBIN
+12323	CUNEIFORM SIGN UMUM
+12324	CUNEIFORM SIGN UMUM TIMES KASKAL
+12325	CUNEIFORM SIGN UMUM TIMES PA
+12326	CUNEIFORM SIGN UN
+12327	CUNEIFORM SIGN UN GUNU
+12328	CUNEIFORM SIGN UR
+12329	CUNEIFORM SIGN UR CROSSING UR
+1232A	CUNEIFORM SIGN UR SHESHIG
+1232B	CUNEIFORM SIGN UR2
+1232C	CUNEIFORM SIGN UR2 TIMES A PLUS HA
+1232D	CUNEIFORM SIGN UR2 TIMES A PLUS NA
+1232E	CUNEIFORM SIGN UR2 TIMES AL
+1232F	CUNEIFORM SIGN UR2 TIMES HA
+12330	CUNEIFORM SIGN UR2 TIMES NUN
+12331	CUNEIFORM SIGN UR2 TIMES U2
+12332	CUNEIFORM SIGN UR2 TIMES U2 PLUS ASH
+12333	CUNEIFORM SIGN UR2 TIMES U2 PLUS BI
+12334	CUNEIFORM SIGN UR4
+12335	CUNEIFORM SIGN URI
+12336	CUNEIFORM SIGN URI3
+12337	CUNEIFORM SIGN URU
+12338	CUNEIFORM SIGN URU TIMES A
+12339	CUNEIFORM SIGN URU TIMES ASHGAB
+1233A	CUNEIFORM SIGN URU TIMES BAR
+1233B	CUNEIFORM SIGN URU TIMES DUN
+1233C	CUNEIFORM SIGN URU TIMES GA
+1233D	CUNEIFORM SIGN URU TIMES GAL
+1233E	CUNEIFORM SIGN URU TIMES GAN2 TENU
+1233F	CUNEIFORM SIGN URU TIMES GAR
+12340	CUNEIFORM SIGN URU TIMES GU
+12341	CUNEIFORM SIGN URU TIMES HA
+12342	CUNEIFORM SIGN URU TIMES IGI
+12343	CUNEIFORM SIGN URU TIMES IM
+12344	CUNEIFORM SIGN URU TIMES ISH
+12345	CUNEIFORM SIGN URU TIMES KI
+12346	CUNEIFORM SIGN URU TIMES LUM
+12347	CUNEIFORM SIGN URU TIMES MIN
+12348	CUNEIFORM SIGN URU TIMES PA
+12349	CUNEIFORM SIGN URU TIMES SHE
+1234A	CUNEIFORM SIGN URU TIMES SIG4
+1234B	CUNEIFORM SIGN URU TIMES TU
+1234C	CUNEIFORM SIGN URU TIMES U PLUS GUD
+1234D	CUNEIFORM SIGN URU TIMES UD
+1234E	CUNEIFORM SIGN URU TIMES URUDA
+1234F	CUNEIFORM SIGN URUDA
+12350	CUNEIFORM SIGN URUDA TIMES U
+12351	CUNEIFORM SIGN USH
+12352	CUNEIFORM SIGN USH TIMES A
+12353	CUNEIFORM SIGN USH TIMES KU
+12354	CUNEIFORM SIGN USH TIMES KUR
+12355	CUNEIFORM SIGN USH TIMES TAK4
+12356	CUNEIFORM SIGN USHX
+12357	CUNEIFORM SIGN USH2
+12358	CUNEIFORM SIGN USHUMX
+12359	CUNEIFORM SIGN UTUKI
+1235A	CUNEIFORM SIGN UZ3
+1235B	CUNEIFORM SIGN UZ3 TIMES KASKAL
+1235C	CUNEIFORM SIGN UZU
+1235D	CUNEIFORM SIGN ZA
+1235E	CUNEIFORM SIGN ZA TENU
+1235F	CUNEIFORM SIGN ZA SQUARED TIMES KUR
+12360	CUNEIFORM SIGN ZAG
+12361	CUNEIFORM SIGN ZAMX
+12362	CUNEIFORM SIGN ZE2
+12363	CUNEIFORM SIGN ZI
+12364	CUNEIFORM SIGN ZI OVER ZI
+12365	CUNEIFORM SIGN ZI3
+12366	CUNEIFORM SIGN ZIB
+12367	CUNEIFORM SIGN ZIB KABA TENU
+12368	CUNEIFORM SIGN ZIG
+12369	CUNEIFORM SIGN ZIZ2
+1236A	CUNEIFORM SIGN ZU
+1236B	CUNEIFORM SIGN ZU5
+1236C	CUNEIFORM SIGN ZU5 TIMES A
+1236D	CUNEIFORM SIGN ZUBUR
+1236E	CUNEIFORM SIGN ZUM
+1236F	CUNEIFORM SIGN KAP ELAMITE
+12370	CUNEIFORM SIGN AB TIMES NUN
+12371	CUNEIFORM SIGN AB2 TIMES A
+12372	CUNEIFORM SIGN AMAR TIMES KUG
+12373	CUNEIFORM SIGN DAG KISIM5 TIMES U2 PLUS MASH
+12374	CUNEIFORM SIGN DAG3
+12375	CUNEIFORM SIGN DISH PLUS SHU
+12376	CUNEIFORM SIGN DUB TIMES SHE
+12377	CUNEIFORM SIGN EZEN TIMES GUD
+12378	CUNEIFORM SIGN EZEN TIMES SHE
+12379	CUNEIFORM SIGN GA2 TIMES AN PLUS KAK PLUS A
+1237A	CUNEIFORM SIGN GA2 TIMES ASH2
+1237B	CUNEIFORM SIGN GE22
+1237C	CUNEIFORM SIGN GIG
+1237D	CUNEIFORM SIGN HUSH
+1237E	CUNEIFORM SIGN KA TIMES ANSHE
+1237F	CUNEIFORM SIGN KA TIMES ASH3
+12380	CUNEIFORM SIGN KA TIMES GISH
+12381	CUNEIFORM SIGN KA TIMES GUD
+12382	CUNEIFORM SIGN KA TIMES HI TIMES ASH2
+12383	CUNEIFORM SIGN KA TIMES LUM
+12384	CUNEIFORM SIGN KA TIMES PA
+12385	CUNEIFORM SIGN KA TIMES SHUL
+12386	CUNEIFORM SIGN KA TIMES TU
+12387	CUNEIFORM SIGN KA TIMES UR2
+12388	CUNEIFORM SIGN LAGAB TIMES GI
+12389	CUNEIFORM SIGN LU2 SHESHIG TIMES BAD
+1238A	CUNEIFORM SIGN LU2 TIMES ESH2 PLUS LAL
+1238B	CUNEIFORM SIGN LU2 TIMES SHU
+1238C	CUNEIFORM SIGN MESH
+1238D	CUNEIFORM SIGN MUSH3 TIMES ZA
+1238E	CUNEIFORM SIGN NA4
+1238F	CUNEIFORM SIGN NIN
+12390	CUNEIFORM SIGN NIN9
+12391	CUNEIFORM SIGN NINDA2 TIMES BAL
+12392	CUNEIFORM SIGN NINDA2 TIMES GI
+12393	CUNEIFORM SIGN NU11 ROTATED NINETY DEGREES
+12394	CUNEIFORM SIGN PESH2 ASTERISK
+12395	CUNEIFORM SIGN PIR2
+12396	CUNEIFORM SIGN SAG TIMES IGI GUNU
+12397	CUNEIFORM SIGN TI2
+12398	CUNEIFORM SIGN UM TIMES ME
+12399	CUNEIFORM SIGN U U
+12400	CUNEIFORM NUMERIC SIGN TWO ASH
+12401	CUNEIFORM NUMERIC SIGN THREE ASH
+12402	CUNEIFORM NUMERIC SIGN FOUR ASH
+12403	CUNEIFORM NUMERIC SIGN FIVE ASH
+12404	CUNEIFORM NUMERIC SIGN SIX ASH
+12405	CUNEIFORM NUMERIC SIGN SEVEN ASH
+12406	CUNEIFORM NUMERIC SIGN EIGHT ASH
+12407	CUNEIFORM NUMERIC SIGN NINE ASH
+12408	CUNEIFORM NUMERIC SIGN THREE DISH
+12409	CUNEIFORM NUMERIC SIGN FOUR DISH
+1240A	CUNEIFORM NUMERIC SIGN FIVE DISH
+1240B	CUNEIFORM NUMERIC SIGN SIX DISH
+1240C	CUNEIFORM NUMERIC SIGN SEVEN DISH
+1240D	CUNEIFORM NUMERIC SIGN EIGHT DISH
+1240E	CUNEIFORM NUMERIC SIGN NINE DISH
+1240F	CUNEIFORM NUMERIC SIGN FOUR U
+12410	CUNEIFORM NUMERIC SIGN FIVE U
+12411	CUNEIFORM NUMERIC SIGN SIX U
+12412	CUNEIFORM NUMERIC SIGN SEVEN U
+12413	CUNEIFORM NUMERIC SIGN EIGHT U
+12414	CUNEIFORM NUMERIC SIGN NINE U
+12415	CUNEIFORM NUMERIC SIGN ONE GESH2
+12416	CUNEIFORM NUMERIC SIGN TWO GESH2
+12417	CUNEIFORM NUMERIC SIGN THREE GESH2
+12418	CUNEIFORM NUMERIC SIGN FOUR GESH2
+12419	CUNEIFORM NUMERIC SIGN FIVE GESH2
+1241A	CUNEIFORM NUMERIC SIGN SIX GESH2
+1241B	CUNEIFORM NUMERIC SIGN SEVEN GESH2
+1241C	CUNEIFORM NUMERIC SIGN EIGHT GESH2
+1241D	CUNEIFORM NUMERIC SIGN NINE GESH2
+1241E	CUNEIFORM NUMERIC SIGN ONE GESHU
+1241F	CUNEIFORM NUMERIC SIGN TWO GESHU
+12420	CUNEIFORM NUMERIC SIGN THREE GESHU
+12421	CUNEIFORM NUMERIC SIGN FOUR GESHU
+12422	CUNEIFORM NUMERIC SIGN FIVE GESHU
+12423	CUNEIFORM NUMERIC SIGN TWO SHAR2
+12424	CUNEIFORM NUMERIC SIGN THREE SHAR2
+12425	CUNEIFORM NUMERIC SIGN THREE SHAR2 VARIANT FORM
+12426	CUNEIFORM NUMERIC SIGN FOUR SHAR2
+12427	CUNEIFORM NUMERIC SIGN FIVE SHAR2
+12428	CUNEIFORM NUMERIC SIGN SIX SHAR2
+12429	CUNEIFORM NUMERIC SIGN SEVEN SHAR2
+1242A	CUNEIFORM NUMERIC SIGN EIGHT SHAR2
+1242B	CUNEIFORM NUMERIC SIGN NINE SHAR2
+1242C	CUNEIFORM NUMERIC SIGN ONE SHARU
+1242D	CUNEIFORM NUMERIC SIGN TWO SHARU
+1242E	CUNEIFORM NUMERIC SIGN THREE SHARU
+1242F	CUNEIFORM NUMERIC SIGN THREE SHARU VARIANT FORM
+12430	CUNEIFORM NUMERIC SIGN FOUR SHARU
+12431	CUNEIFORM NUMERIC SIGN FIVE SHARU
+12432	CUNEIFORM NUMERIC SIGN SHAR2 TIMES GAL PLUS DISH
+12433	CUNEIFORM NUMERIC SIGN SHAR2 TIMES GAL PLUS MIN
+12434	CUNEIFORM NUMERIC SIGN ONE BURU
+12435	CUNEIFORM NUMERIC SIGN TWO BURU
+12436	CUNEIFORM NUMERIC SIGN THREE BURU
+12437	CUNEIFORM NUMERIC SIGN THREE BURU VARIANT FORM
+12438	CUNEIFORM NUMERIC SIGN FOUR BURU
+12439	CUNEIFORM NUMERIC SIGN FIVE BURU
+1243A	CUNEIFORM NUMERIC SIGN THREE VARIANT FORM ESH16
+1243B	CUNEIFORM NUMERIC SIGN THREE VARIANT FORM ESH21
+1243C	CUNEIFORM NUMERIC SIGN FOUR VARIANT FORM LIMMU
+1243D	CUNEIFORM NUMERIC SIGN FOUR VARIANT FORM LIMMU4
+1243E	CUNEIFORM NUMERIC SIGN FOUR VARIANT FORM LIMMU A
+1243F	CUNEIFORM NUMERIC SIGN FOUR VARIANT FORM LIMMU B
+12440	CUNEIFORM NUMERIC SIGN SIX VARIANT FORM ASH9
+12441	CUNEIFORM NUMERIC SIGN SEVEN VARIANT FORM IMIN3
+12442	CUNEIFORM NUMERIC SIGN SEVEN VARIANT FORM IMIN A
+12443	CUNEIFORM NUMERIC SIGN SEVEN VARIANT FORM IMIN B
+12444	CUNEIFORM NUMERIC SIGN EIGHT VARIANT FORM USSU
+12445	CUNEIFORM NUMERIC SIGN EIGHT VARIANT FORM USSU3
+12446	CUNEIFORM NUMERIC SIGN NINE VARIANT FORM ILIMMU
+12447	CUNEIFORM NUMERIC SIGN NINE VARIANT FORM ILIMMU3
+12448	CUNEIFORM NUMERIC SIGN NINE VARIANT FORM ILIMMU4
+12449	CUNEIFORM NUMERIC SIGN NINE VARIANT FORM ILIMMU A
+1244A	CUNEIFORM NUMERIC SIGN TWO ASH TENU
+1244B	CUNEIFORM NUMERIC SIGN THREE ASH TENU
+1244C	CUNEIFORM NUMERIC SIGN FOUR ASH TENU
+1244D	CUNEIFORM NUMERIC SIGN FIVE ASH TENU
+1244E	CUNEIFORM NUMERIC SIGN SIX ASH TENU
+1244F	CUNEIFORM NUMERIC SIGN ONE BAN2
+12450	CUNEIFORM NUMERIC SIGN TWO BAN2
+12451	CUNEIFORM NUMERIC SIGN THREE BAN2
+12452	CUNEIFORM NUMERIC SIGN FOUR BAN2
+12453	CUNEIFORM NUMERIC SIGN FOUR BAN2 VARIANT FORM
+12454	CUNEIFORM NUMERIC SIGN FIVE BAN2
+12455	CUNEIFORM NUMERIC SIGN FIVE BAN2 VARIANT FORM
+12456	CUNEIFORM NUMERIC SIGN NIGIDAMIN
+12457	CUNEIFORM NUMERIC SIGN NIGIDAESH
+12458	CUNEIFORM NUMERIC SIGN ONE ESHE3
+12459	CUNEIFORM NUMERIC SIGN TWO ESHE3
+1245A	CUNEIFORM NUMERIC SIGN ONE THIRD DISH
+1245B	CUNEIFORM NUMERIC SIGN TWO THIRDS DISH
+1245C	CUNEIFORM NUMERIC SIGN FIVE SIXTHS DISH
+1245D	CUNEIFORM NUMERIC SIGN ONE THIRD VARIANT FORM A
+1245E	CUNEIFORM NUMERIC SIGN TWO THIRDS VARIANT FORM A
+1245F	CUNEIFORM NUMERIC SIGN ONE EIGHTH ASH
+12460	CUNEIFORM NUMERIC SIGN ONE QUARTER ASH
+12461	CUNEIFORM NUMERIC SIGN OLD ASSYRIAN ONE SIXTH
+12462	CUNEIFORM NUMERIC SIGN OLD ASSYRIAN ONE QUARTER
+12463	CUNEIFORM NUMERIC SIGN ONE QUARTER GUR
+12464	CUNEIFORM NUMERIC SIGN ONE HALF GUR
+12465	CUNEIFORM NUMERIC SIGN ELAMITE ONE THIRD
+12466	CUNEIFORM NUMERIC SIGN ELAMITE TWO THIRDS
+12467	CUNEIFORM NUMERIC SIGN ELAMITE FORTY
+12468	CUNEIFORM NUMERIC SIGN ELAMITE FIFTY
+12469	CUNEIFORM NUMERIC SIGN FOUR U VARIANT FORM
+1246A	CUNEIFORM NUMERIC SIGN FIVE U VARIANT FORM
+1246B	CUNEIFORM NUMERIC SIGN SIX U VARIANT FORM
+1246C	CUNEIFORM NUMERIC SIGN SEVEN U VARIANT FORM
+1246D	CUNEIFORM NUMERIC SIGN EIGHT U VARIANT FORM
+1246E	CUNEIFORM NUMERIC SIGN NINE U VARIANT FORM
+12470	CUNEIFORM PUNCTUATION SIGN OLD ASSYRIAN WORD DIVIDER
+12471	CUNEIFORM PUNCTUATION SIGN VERTICAL COLON
+12472	CUNEIFORM PUNCTUATION SIGN DIAGONAL COLON
+12473	CUNEIFORM PUNCTUATION SIGN DIAGONAL TRICOLON
+12474	CUNEIFORM PUNCTUATION SIGN DIAGONAL QUADCOLON
+12480	CUNEIFORM SIGN AB TIMES NUN TENU
+12481	CUNEIFORM SIGN AB TIMES SHU2
+12482	CUNEIFORM SIGN AD TIMES ESH2
+12483	CUNEIFORM SIGN BAD TIMES DISH TENU
+12484	CUNEIFORM SIGN BAHAR2 TIMES AB2
+12485	CUNEIFORM SIGN BAHAR2 TIMES NI
+12486	CUNEIFORM SIGN BAHAR2 TIMES ZA
+12487	CUNEIFORM SIGN BU OVER BU TIMES NA2
+12488	CUNEIFORM SIGN DA TIMES TAK4
+12489	CUNEIFORM SIGN DAG TIMES KUR
+1248A	CUNEIFORM SIGN DIM TIMES IGI
+1248B	CUNEIFORM SIGN DIM TIMES U U U
+1248C	CUNEIFORM SIGN DIM2 TIMES UD
+1248D	CUNEIFORM SIGN DUG TIMES ANSHE
+1248E	CUNEIFORM SIGN DUG TIMES ASH
+1248F	CUNEIFORM SIGN DUG TIMES ASH AT LEFT
+12490	CUNEIFORM SIGN DUG TIMES DIN
+12491	CUNEIFORM SIGN DUG TIMES DUN
+12492	CUNEIFORM SIGN DUG TIMES ERIN2
+12493	CUNEIFORM SIGN DUG TIMES GA
+12494	CUNEIFORM SIGN DUG TIMES GI
+12495	CUNEIFORM SIGN DUG TIMES GIR2 GUNU
+12496	CUNEIFORM SIGN DUG TIMES GISH
+12497	CUNEIFORM SIGN DUG TIMES HA
+12498	CUNEIFORM SIGN DUG TIMES HI
+12499	CUNEIFORM SIGN DUG TIMES IGI GUNU
+1249A	CUNEIFORM SIGN DUG TIMES KASKAL
+1249B	CUNEIFORM SIGN DUG TIMES KUR
+1249C	CUNEIFORM SIGN DUG TIMES KUSHU2
+1249D	CUNEIFORM SIGN DUG TIMES KUSHU2 PLUS KASKAL
+1249E	CUNEIFORM SIGN DUG TIMES LAK-020
+1249F	CUNEIFORM SIGN DUG TIMES LAM
+124A0	CUNEIFORM SIGN DUG TIMES LAM TIMES KUR
+124A1	CUNEIFORM SIGN DUG TIMES LUH PLUS GISH
+124A2	CUNEIFORM SIGN DUG TIMES MASH
+124A3	CUNEIFORM SIGN DUG TIMES MES
+124A4	CUNEIFORM SIGN DUG TIMES MI
+124A5	CUNEIFORM SIGN DUG TIMES NI
+124A6	CUNEIFORM SIGN DUG TIMES PI
+124A7	CUNEIFORM SIGN DUG TIMES SHE
+124A8	CUNEIFORM SIGN DUG TIMES SI GUNU
+124A9	CUNEIFORM SIGN E2 TIMES KUR
+124AA	CUNEIFORM SIGN E2 TIMES PAP
+124AB	CUNEIFORM SIGN ERIN2 X
+124AC	CUNEIFORM SIGN ESH2 CROSSING ESH2
+124AD	CUNEIFORM SIGN EZEN SHESHIG TIMES ASH
+124AE	CUNEIFORM SIGN EZEN SHESHIG TIMES HI
+124AF	CUNEIFORM SIGN EZEN SHESHIG TIMES IGI GUNU
+124B0	CUNEIFORM SIGN EZEN SHESHIG TIMES LA
+124B1	CUNEIFORM SIGN EZEN SHESHIG TIMES LAL
+124B2	CUNEIFORM SIGN EZEN SHESHIG TIMES ME
+124B3	CUNEIFORM SIGN EZEN SHESHIG TIMES MES
+124B4	CUNEIFORM SIGN EZEN SHESHIG TIMES SU
+124B5	CUNEIFORM SIGN EZEN TIMES SU
+124B6	CUNEIFORM SIGN GA2 TIMES BAHAR2
+124B7	CUNEIFORM SIGN GA2 TIMES DIM GUNU
+124B8	CUNEIFORM SIGN GA2 TIMES DUG TIMES IGI GUNU
+124B9	CUNEIFORM SIGN GA2 TIMES DUG TIMES KASKAL
+124BA	CUNEIFORM SIGN GA2 TIMES EREN
+124BB	CUNEIFORM SIGN GA2 TIMES GA
+124BC	CUNEIFORM SIGN GA2 TIMES GAR PLUS DI
+124BD	CUNEIFORM SIGN GA2 TIMES GAR PLUS NE
+124BE	CUNEIFORM SIGN GA2 TIMES HA PLUS A
+124BF	CUNEIFORM SIGN GA2 TIMES KUSHU2 PLUS KASKAL
+124C0	CUNEIFORM SIGN GA2 TIMES LAM
+124C1	CUNEIFORM SIGN GA2 TIMES LAM TIMES KUR
+124C2	CUNEIFORM SIGN GA2 TIMES LUH
+124C3	CUNEIFORM SIGN GA2 TIMES MUSH
+124C4	CUNEIFORM SIGN GA2 TIMES NE
+124C5	CUNEIFORM SIGN GA2 TIMES NE PLUS E2
+124C6	CUNEIFORM SIGN GA2 TIMES NE PLUS GI
+124C7	CUNEIFORM SIGN GA2 TIMES SHIM
+124C8	CUNEIFORM SIGN GA2 TIMES ZIZ2
+124C9	CUNEIFORM SIGN GABA ROTATED NINETY DEGREES
+124CA	CUNEIFORM SIGN GESHTIN TIMES U
+124CB	CUNEIFORM SIGN GISH TIMES GISH CROSSING GISH
+124CC	CUNEIFORM SIGN GU2 TIMES IGI GUNU
+124CD	CUNEIFORM SIGN GUD PLUS GISH TIMES TAK4
+124CE	CUNEIFORM SIGN HA TENU GUNU
+124CF	CUNEIFORM SIGN HI TIMES ASH OVER HI TIMES ASH
+124D0	CUNEIFORM SIGN KA TIMES BU
+124D1	CUNEIFORM SIGN KA TIMES KA
+124D2	CUNEIFORM SIGN KA TIMES U U U
+124D3	CUNEIFORM SIGN KA TIMES UR
+124D4	CUNEIFORM SIGN LAGAB TIMES ZU OVER ZU
+124D5	CUNEIFORM SIGN LAK-003
+124D6	CUNEIFORM SIGN LAK-021
+124D7	CUNEIFORM SIGN LAK-025
+124D8	CUNEIFORM SIGN LAK-030
+124D9	CUNEIFORM SIGN LAK-050
+124DA	CUNEIFORM SIGN LAK-051
+124DB	CUNEIFORM SIGN LAK-062
+124DC	CUNEIFORM SIGN LAK-079 OVER LAK-079 GUNU
+124DD	CUNEIFORM SIGN LAK-080
+124DE	CUNEIFORM SIGN LAK-081 OVER LAK-081
+124DF	CUNEIFORM SIGN LAK-092
+124E0	CUNEIFORM SIGN LAK-130
+124E1	CUNEIFORM SIGN LAK-142
+124E2	CUNEIFORM SIGN LAK-210
+124E3	CUNEIFORM SIGN LAK-219
+124E4	CUNEIFORM SIGN LAK-220
+124E5	CUNEIFORM SIGN LAK-225
+124E6	CUNEIFORM SIGN LAK-228
+124E7	CUNEIFORM SIGN LAK-238
+124E8	CUNEIFORM SIGN LAK-265
+124E9	CUNEIFORM SIGN LAK-266
+124EA	CUNEIFORM SIGN LAK-343
+124EB	CUNEIFORM SIGN LAK-347
+124EC	CUNEIFORM SIGN LAK-348
+124ED	CUNEIFORM SIGN LAK-383
+124EE	CUNEIFORM SIGN LAK-384
+124EF	CUNEIFORM SIGN LAK-390
+124F0	CUNEIFORM SIGN LAK-441
+124F1	CUNEIFORM SIGN LAK-449
+124F2	CUNEIFORM SIGN LAK-449 TIMES GU
+124F3	CUNEIFORM SIGN LAK-449 TIMES IGI
+124F4	CUNEIFORM SIGN LAK-449 TIMES PAP PLUS LU3
+124F5	CUNEIFORM SIGN LAK-449 TIMES PAP PLUS PAP PLUS LU3
+124F6	CUNEIFORM SIGN LAK-449 TIMES U2 PLUS BA
+124F7	CUNEIFORM SIGN LAK-450
+124F8	CUNEIFORM SIGN LAK-457
+124F9	CUNEIFORM SIGN LAK-470
+124FA	CUNEIFORM SIGN LAK-483
+124FB	CUNEIFORM SIGN LAK-490
+124FC	CUNEIFORM SIGN LAK-492
+124FD	CUNEIFORM SIGN LAK-493
+124FE	CUNEIFORM SIGN LAK-495
+124FF	CUNEIFORM SIGN LAK-550
+12500	CUNEIFORM SIGN LAK-608
+12501	CUNEIFORM SIGN LAK-617
+12502	CUNEIFORM SIGN LAK-617 TIMES ASH
+12503	CUNEIFORM SIGN LAK-617 TIMES BAD
+12504	CUNEIFORM SIGN LAK-617 TIMES DUN3 GUNU GUNU
+12505	CUNEIFORM SIGN LAK-617 TIMES KU3
+12506	CUNEIFORM SIGN LAK-617 TIMES LA
+12507	CUNEIFORM SIGN LAK-617 TIMES TAR
+12508	CUNEIFORM SIGN LAK-617 TIMES TE
+12509	CUNEIFORM SIGN LAK-617 TIMES U2
+1250A	CUNEIFORM SIGN LAK-617 TIMES UD
+1250B	CUNEIFORM SIGN LAK-617 TIMES URUDA
+1250C	CUNEIFORM SIGN LAK-636
+1250D	CUNEIFORM SIGN LAK-648
+1250E	CUNEIFORM SIGN LAK-648 TIMES DUB
+1250F	CUNEIFORM SIGN LAK-648 TIMES GA
+12510	CUNEIFORM SIGN LAK-648 TIMES IGI
+12511	CUNEIFORM SIGN LAK-648 TIMES IGI GUNU
+12512	CUNEIFORM SIGN LAK-648 TIMES NI
+12513	CUNEIFORM SIGN LAK-648 TIMES PAP PLUS PAP PLUS LU3
+12514	CUNEIFORM SIGN LAK-648 TIMES SHESH PLUS KI
+12515	CUNEIFORM SIGN LAK-648 TIMES UD
+12516	CUNEIFORM SIGN LAK-648 TIMES URUDA
+12517	CUNEIFORM SIGN LAK-724
+12518	CUNEIFORM SIGN LAK-749
+12519	CUNEIFORM SIGN LU2 GUNU TIMES ASH
+1251A	CUNEIFORM SIGN LU2 TIMES DISH
+1251B	CUNEIFORM SIGN LU2 TIMES HAL
+1251C	CUNEIFORM SIGN LU2 TIMES PAP
+1251D	CUNEIFORM SIGN LU2 TIMES PAP PLUS PAP PLUS LU3
+1251E	CUNEIFORM SIGN LU2 TIMES TAK4
+1251F	CUNEIFORM SIGN MI PLUS ZA7
+12520	CUNEIFORM SIGN MUSH OVER MUSH TIMES GA
+12521	CUNEIFORM SIGN MUSH OVER MUSH TIMES KAK
+12522	CUNEIFORM SIGN NINDA2 TIMES DIM GUNU
+12523	CUNEIFORM SIGN NINDA2 TIMES GISH
+12524	CUNEIFORM SIGN NINDA2 TIMES GUL
+12525	CUNEIFORM SIGN NINDA2 TIMES HI
+12526	CUNEIFORM SIGN NINDA2 TIMES KESH2
+12527	CUNEIFORM SIGN NINDA2 TIMES LAK-050
+12528	CUNEIFORM SIGN NINDA2 TIMES MASH
+12529	CUNEIFORM SIGN NINDA2 TIMES PAP PLUS PAP
+1252A	CUNEIFORM SIGN NINDA2 TIMES U
+1252B	CUNEIFORM SIGN NINDA2 TIMES U PLUS U
+1252C	CUNEIFORM SIGN NINDA2 TIMES URUDA
+1252D	CUNEIFORM SIGN SAG GUNU TIMES HA
+1252E	CUNEIFORM SIGN SAG TIMES EN
+1252F	CUNEIFORM SIGN SAG TIMES SHE AT LEFT
+12530	CUNEIFORM SIGN SAG TIMES TAK4
+12531	CUNEIFORM SIGN SHA6 TENU
+12532	CUNEIFORM SIGN SHE OVER SHE
+12533	CUNEIFORM SIGN SHE PLUS HUB2
+12534	CUNEIFORM SIGN SHE PLUS NAM2
+12535	CUNEIFORM SIGN SHE PLUS SAR
+12536	CUNEIFORM SIGN SHU2 PLUS DUG TIMES NI
+12537	CUNEIFORM SIGN SHU2 PLUS E2 TIMES AN
+12538	CUNEIFORM SIGN SI TIMES TAK4
+12539	CUNEIFORM SIGN TAK4 PLUS SAG
+1253A	CUNEIFORM SIGN TUM TIMES GAN2 TENU
+1253B	CUNEIFORM SIGN TUM TIMES THREE DISH
+1253C	CUNEIFORM SIGN UR2 INVERTED
+1253D	CUNEIFORM SIGN UR2 TIMES UD
+1253E	CUNEIFORM SIGN URU TIMES DARA3
+1253F	CUNEIFORM SIGN URU TIMES LAK-668
+12540	CUNEIFORM SIGN URU TIMES LU3
+12541	CUNEIFORM SIGN ZA7
+12542	CUNEIFORM SIGN ZU OVER ZU PLUS SAR
+12543	CUNEIFORM SIGN ZU5 TIMES THREE DISH TENU
+13000	EGYPTIAN HIEROGLYPH A001
+13001	EGYPTIAN HIEROGLYPH A002
+13002	EGYPTIAN HIEROGLYPH A003
+13003	EGYPTIAN HIEROGLYPH A004
+13004	EGYPTIAN HIEROGLYPH A005
+13005	EGYPTIAN HIEROGLYPH A005A
+13006	EGYPTIAN HIEROGLYPH A006
+13007	EGYPTIAN HIEROGLYPH A006A
+13008	EGYPTIAN HIEROGLYPH A006B
+13009	EGYPTIAN HIEROGLYPH A007
+1300A	EGYPTIAN HIEROGLYPH A008
+1300B	EGYPTIAN HIEROGLYPH A009
+1300C	EGYPTIAN HIEROGLYPH A010
+1300D	EGYPTIAN HIEROGLYPH A011
+1300E	EGYPTIAN HIEROGLYPH A012
+1300F	EGYPTIAN HIEROGLYPH A013
+13010	EGYPTIAN HIEROGLYPH A014
+13011	EGYPTIAN HIEROGLYPH A014A
+13012	EGYPTIAN HIEROGLYPH A015
+13013	EGYPTIAN HIEROGLYPH A016
+13014	EGYPTIAN HIEROGLYPH A017
+13015	EGYPTIAN HIEROGLYPH A017A
+13016	EGYPTIAN HIEROGLYPH A018
+13017	EGYPTIAN HIEROGLYPH A019
+13018	EGYPTIAN HIEROGLYPH A020
+13019	EGYPTIAN HIEROGLYPH A021
+1301A	EGYPTIAN HIEROGLYPH A022
+1301B	EGYPTIAN HIEROGLYPH A023
+1301C	EGYPTIAN HIEROGLYPH A024
+1301D	EGYPTIAN HIEROGLYPH A025
+1301E	EGYPTIAN HIEROGLYPH A026
+1301F	EGYPTIAN HIEROGLYPH A027
+13020	EGYPTIAN HIEROGLYPH A028
+13021	EGYPTIAN HIEROGLYPH A029
+13022	EGYPTIAN HIEROGLYPH A030
+13023	EGYPTIAN HIEROGLYPH A031
+13024	EGYPTIAN HIEROGLYPH A032
+13025	EGYPTIAN HIEROGLYPH A032A
+13026	EGYPTIAN HIEROGLYPH A033
+13027	EGYPTIAN HIEROGLYPH A034
+13028	EGYPTIAN HIEROGLYPH A035
+13029	EGYPTIAN HIEROGLYPH A036
+1302A	EGYPTIAN HIEROGLYPH A037
+1302B	EGYPTIAN HIEROGLYPH A038
+1302C	EGYPTIAN HIEROGLYPH A039
+1302D	EGYPTIAN HIEROGLYPH A040
+1302E	EGYPTIAN HIEROGLYPH A040A
+1302F	EGYPTIAN HIEROGLYPH A041
+13030	EGYPTIAN HIEROGLYPH A042
+13031	EGYPTIAN HIEROGLYPH A042A
+13032	EGYPTIAN HIEROGLYPH A043
+13033	EGYPTIAN HIEROGLYPH A043A
+13034	EGYPTIAN HIEROGLYPH A044
+13035	EGYPTIAN HIEROGLYPH A045
+13036	EGYPTIAN HIEROGLYPH A045A
+13037	EGYPTIAN HIEROGLYPH A046
+13038	EGYPTIAN HIEROGLYPH A047
+13039	EGYPTIAN HIEROGLYPH A048
+1303A	EGYPTIAN HIEROGLYPH A049
+1303B	EGYPTIAN HIEROGLYPH A050
+1303C	EGYPTIAN HIEROGLYPH A051
+1303D	EGYPTIAN HIEROGLYPH A052
+1303E	EGYPTIAN HIEROGLYPH A053
+1303F	EGYPTIAN HIEROGLYPH A054
+13040	EGYPTIAN HIEROGLYPH A055
+13041	EGYPTIAN HIEROGLYPH A056
+13042	EGYPTIAN HIEROGLYPH A057
+13043	EGYPTIAN HIEROGLYPH A058
+13044	EGYPTIAN HIEROGLYPH A059
+13045	EGYPTIAN HIEROGLYPH A060
+13046	EGYPTIAN HIEROGLYPH A061
+13047	EGYPTIAN HIEROGLYPH A062
+13048	EGYPTIAN HIEROGLYPH A063
+13049	EGYPTIAN HIEROGLYPH A064
+1304A	EGYPTIAN HIEROGLYPH A065
+1304B	EGYPTIAN HIEROGLYPH A066
+1304C	EGYPTIAN HIEROGLYPH A067
+1304D	EGYPTIAN HIEROGLYPH A068
+1304E	EGYPTIAN HIEROGLYPH A069
+1304F	EGYPTIAN HIEROGLYPH A070
+13050	EGYPTIAN HIEROGLYPH B001
+13051	EGYPTIAN HIEROGLYPH B002
+13052	EGYPTIAN HIEROGLYPH B003
+13053	EGYPTIAN HIEROGLYPH B004
+13054	EGYPTIAN HIEROGLYPH B005
+13055	EGYPTIAN HIEROGLYPH B005A
+13056	EGYPTIAN HIEROGLYPH B006
+13057	EGYPTIAN HIEROGLYPH B007
+13058	EGYPTIAN HIEROGLYPH B008
+13059	EGYPTIAN HIEROGLYPH B009
+1305A	EGYPTIAN HIEROGLYPH C001
+1305B	EGYPTIAN HIEROGLYPH C002
+1305C	EGYPTIAN HIEROGLYPH C002A
+1305D	EGYPTIAN HIEROGLYPH C002B
+1305E	EGYPTIAN HIEROGLYPH C002C
+1305F	EGYPTIAN HIEROGLYPH C003
+13060	EGYPTIAN HIEROGLYPH C004
+13061	EGYPTIAN HIEROGLYPH C005
+13062	EGYPTIAN HIEROGLYPH C006
+13063	EGYPTIAN HIEROGLYPH C007
+13064	EGYPTIAN HIEROGLYPH C008
+13065	EGYPTIAN HIEROGLYPH C009
+13066	EGYPTIAN HIEROGLYPH C010
+13067	EGYPTIAN HIEROGLYPH C010A
+13068	EGYPTIAN HIEROGLYPH C011
+13069	EGYPTIAN HIEROGLYPH C012
+1306A	EGYPTIAN HIEROGLYPH C013
+1306B	EGYPTIAN HIEROGLYPH C014
+1306C	EGYPTIAN HIEROGLYPH C015
+1306D	EGYPTIAN HIEROGLYPH C016
+1306E	EGYPTIAN HIEROGLYPH C017
+1306F	EGYPTIAN HIEROGLYPH C018
+13070	EGYPTIAN HIEROGLYPH C019
+13071	EGYPTIAN HIEROGLYPH C020
+13072	EGYPTIAN HIEROGLYPH C021
+13073	EGYPTIAN HIEROGLYPH C022
+13074	EGYPTIAN HIEROGLYPH C023
+13075	EGYPTIAN HIEROGLYPH C024
+13076	EGYPTIAN HIEROGLYPH D001
+13077	EGYPTIAN HIEROGLYPH D002
+13078	EGYPTIAN HIEROGLYPH D003
+13079	EGYPTIAN HIEROGLYPH D004
+1307A	EGYPTIAN HIEROGLYPH D005
+1307B	EGYPTIAN HIEROGLYPH D006
+1307C	EGYPTIAN HIEROGLYPH D007
+1307D	EGYPTIAN HIEROGLYPH D008
+1307E	EGYPTIAN HIEROGLYPH D008A
+1307F	EGYPTIAN HIEROGLYPH D009
+13080	EGYPTIAN HIEROGLYPH D010
+13081	EGYPTIAN HIEROGLYPH D011
+13082	EGYPTIAN HIEROGLYPH D012
+13083	EGYPTIAN HIEROGLYPH D013
+13084	EGYPTIAN HIEROGLYPH D014
+13085	EGYPTIAN HIEROGLYPH D015
+13086	EGYPTIAN HIEROGLYPH D016
+13087	EGYPTIAN HIEROGLYPH D017
+13088	EGYPTIAN HIEROGLYPH D018
+13089	EGYPTIAN HIEROGLYPH D019
+1308A	EGYPTIAN HIEROGLYPH D020
+1308B	EGYPTIAN HIEROGLYPH D021
+1308C	EGYPTIAN HIEROGLYPH D022
+1308D	EGYPTIAN HIEROGLYPH D023
+1308E	EGYPTIAN HIEROGLYPH D024
+1308F	EGYPTIAN HIEROGLYPH D025
+13090	EGYPTIAN HIEROGLYPH D026
+13091	EGYPTIAN HIEROGLYPH D027
+13092	EGYPTIAN HIEROGLYPH D027A
+13093	EGYPTIAN HIEROGLYPH D028
+13094	EGYPTIAN HIEROGLYPH D029
+13095	EGYPTIAN HIEROGLYPH D030
+13096	EGYPTIAN HIEROGLYPH D031
+13097	EGYPTIAN HIEROGLYPH D031A
+13098	EGYPTIAN HIEROGLYPH D032
+13099	EGYPTIAN HIEROGLYPH D033
+1309A	EGYPTIAN HIEROGLYPH D034
+1309B	EGYPTIAN HIEROGLYPH D034A
+1309C	EGYPTIAN HIEROGLYPH D035
+1309D	EGYPTIAN HIEROGLYPH D036
+1309E	EGYPTIAN HIEROGLYPH D037
+1309F	EGYPTIAN HIEROGLYPH D038
+130A0	EGYPTIAN HIEROGLYPH D039
+130A1	EGYPTIAN HIEROGLYPH D040
+130A2	EGYPTIAN HIEROGLYPH D041
+130A3	EGYPTIAN HIEROGLYPH D042
+130A4	EGYPTIAN HIEROGLYPH D043
+130A5	EGYPTIAN HIEROGLYPH D044
+130A6	EGYPTIAN HIEROGLYPH D045
+130A7	EGYPTIAN HIEROGLYPH D046
+130A8	EGYPTIAN HIEROGLYPH D046A
+130A9	EGYPTIAN HIEROGLYPH D047
+130AA	EGYPTIAN HIEROGLYPH D048
+130AB	EGYPTIAN HIEROGLYPH D048A
+130AC	EGYPTIAN HIEROGLYPH D049
+130AD	EGYPTIAN HIEROGLYPH D050
+130AE	EGYPTIAN HIEROGLYPH D050A
+130AF	EGYPTIAN HIEROGLYPH D050B
+130B0	EGYPTIAN HIEROGLYPH D050C
+130B1	EGYPTIAN HIEROGLYPH D050D
+130B2	EGYPTIAN HIEROGLYPH D050E
+130B3	EGYPTIAN HIEROGLYPH D050F
+130B4	EGYPTIAN HIEROGLYPH D050G
+130B5	EGYPTIAN HIEROGLYPH D050H
+130B6	EGYPTIAN HIEROGLYPH D050I
+130B7	EGYPTIAN HIEROGLYPH D051
+130B8	EGYPTIAN HIEROGLYPH D052
+130B9	EGYPTIAN HIEROGLYPH D052A
+130BA	EGYPTIAN HIEROGLYPH D053
+130BB	EGYPTIAN HIEROGLYPH D054
+130BC	EGYPTIAN HIEROGLYPH D054A
+130BD	EGYPTIAN HIEROGLYPH D055
+130BE	EGYPTIAN HIEROGLYPH D056
+130BF	EGYPTIAN HIEROGLYPH D057
+130C0	EGYPTIAN HIEROGLYPH D058
+130C1	EGYPTIAN HIEROGLYPH D059
+130C2	EGYPTIAN HIEROGLYPH D060
+130C3	EGYPTIAN HIEROGLYPH D061
+130C4	EGYPTIAN HIEROGLYPH D062
+130C5	EGYPTIAN HIEROGLYPH D063
+130C6	EGYPTIAN HIEROGLYPH D064
+130C7	EGYPTIAN HIEROGLYPH D065
+130C8	EGYPTIAN HIEROGLYPH D066
+130C9	EGYPTIAN HIEROGLYPH D067
+130CA	EGYPTIAN HIEROGLYPH D067A
+130CB	EGYPTIAN HIEROGLYPH D067B
+130CC	EGYPTIAN HIEROGLYPH D067C
+130CD	EGYPTIAN HIEROGLYPH D067D
+130CE	EGYPTIAN HIEROGLYPH D067E
+130CF	EGYPTIAN HIEROGLYPH D067F
+130D0	EGYPTIAN HIEROGLYPH D067G
+130D1	EGYPTIAN HIEROGLYPH D067H
+130D2	EGYPTIAN HIEROGLYPH E001
+130D3	EGYPTIAN HIEROGLYPH E002
+130D4	EGYPTIAN HIEROGLYPH E003
+130D5	EGYPTIAN HIEROGLYPH E004
+130D6	EGYPTIAN HIEROGLYPH E005
+130D7	EGYPTIAN HIEROGLYPH E006
+130D8	EGYPTIAN HIEROGLYPH E007
+130D9	EGYPTIAN HIEROGLYPH E008
+130DA	EGYPTIAN HIEROGLYPH E008A
+130DB	EGYPTIAN HIEROGLYPH E009
+130DC	EGYPTIAN HIEROGLYPH E009A
+130DD	EGYPTIAN HIEROGLYPH E010
+130DE	EGYPTIAN HIEROGLYPH E011
+130DF	EGYPTIAN HIEROGLYPH E012
+130E0	EGYPTIAN HIEROGLYPH E013
+130E1	EGYPTIAN HIEROGLYPH E014
+130E2	EGYPTIAN HIEROGLYPH E015
+130E3	EGYPTIAN HIEROGLYPH E016
+130E4	EGYPTIAN HIEROGLYPH E016A
+130E5	EGYPTIAN HIEROGLYPH E017
+130E6	EGYPTIAN HIEROGLYPH E017A
+130E7	EGYPTIAN HIEROGLYPH E018
+130E8	EGYPTIAN HIEROGLYPH E019
+130E9	EGYPTIAN HIEROGLYPH E020
+130EA	EGYPTIAN HIEROGLYPH E020A
+130EB	EGYPTIAN HIEROGLYPH E021
+130EC	EGYPTIAN HIEROGLYPH E022
+130ED	EGYPTIAN HIEROGLYPH E023
+130EE	EGYPTIAN HIEROGLYPH E024
+130EF	EGYPTIAN HIEROGLYPH E025
+130F0	EGYPTIAN HIEROGLYPH E026
+130F1	EGYPTIAN HIEROGLYPH E027
+130F2	EGYPTIAN HIEROGLYPH E028
+130F3	EGYPTIAN HIEROGLYPH E028A
+130F4	EGYPTIAN HIEROGLYPH E029
+130F5	EGYPTIAN HIEROGLYPH E030
+130F6	EGYPTIAN HIEROGLYPH E031
+130F7	EGYPTIAN HIEROGLYPH E032
+130F8	EGYPTIAN HIEROGLYPH E033
+130F9	EGYPTIAN HIEROGLYPH E034
+130FA	EGYPTIAN HIEROGLYPH E034A
+130FB	EGYPTIAN HIEROGLYPH E036
+130FC	EGYPTIAN HIEROGLYPH E037
+130FD	EGYPTIAN HIEROGLYPH E038
+130FE	EGYPTIAN HIEROGLYPH F001
+130FF	EGYPTIAN HIEROGLYPH F001A
+13100	EGYPTIAN HIEROGLYPH F002
+13101	EGYPTIAN HIEROGLYPH F003
+13102	EGYPTIAN HIEROGLYPH F004
+13103	EGYPTIAN HIEROGLYPH F005
+13104	EGYPTIAN HIEROGLYPH F006
+13105	EGYPTIAN HIEROGLYPH F007
+13106	EGYPTIAN HIEROGLYPH F008
+13107	EGYPTIAN HIEROGLYPH F009
+13108	EGYPTIAN HIEROGLYPH F010
+13109	EGYPTIAN HIEROGLYPH F011
+1310A	EGYPTIAN HIEROGLYPH F012
+1310B	EGYPTIAN HIEROGLYPH F013
+1310C	EGYPTIAN HIEROGLYPH F013A
+1310D	EGYPTIAN HIEROGLYPH F014
+1310E	EGYPTIAN HIEROGLYPH F015
+1310F	EGYPTIAN HIEROGLYPH F016
+13110	EGYPTIAN HIEROGLYPH F017
+13111	EGYPTIAN HIEROGLYPH F018
+13112	EGYPTIAN HIEROGLYPH F019
+13113	EGYPTIAN HIEROGLYPH F020
+13114	EGYPTIAN HIEROGLYPH F021
+13115	EGYPTIAN HIEROGLYPH F021A
+13116	EGYPTIAN HIEROGLYPH F022
+13117	EGYPTIAN HIEROGLYPH F023
+13118	EGYPTIAN HIEROGLYPH F024
+13119	EGYPTIAN HIEROGLYPH F025
+1311A	EGYPTIAN HIEROGLYPH F026
+1311B	EGYPTIAN HIEROGLYPH F027
+1311C	EGYPTIAN HIEROGLYPH F028
+1311D	EGYPTIAN HIEROGLYPH F029
+1311E	EGYPTIAN HIEROGLYPH F030
+1311F	EGYPTIAN HIEROGLYPH F031
+13120	EGYPTIAN HIEROGLYPH F031A
+13121	EGYPTIAN HIEROGLYPH F032
+13122	EGYPTIAN HIEROGLYPH F033
+13123	EGYPTIAN HIEROGLYPH F034
+13124	EGYPTIAN HIEROGLYPH F035
+13125	EGYPTIAN HIEROGLYPH F036
+13126	EGYPTIAN HIEROGLYPH F037
+13127	EGYPTIAN HIEROGLYPH F037A
+13128	EGYPTIAN HIEROGLYPH F038
+13129	EGYPTIAN HIEROGLYPH F038A
+1312A	EGYPTIAN HIEROGLYPH F039
+1312B	EGYPTIAN HIEROGLYPH F040
+1312C	EGYPTIAN HIEROGLYPH F041
+1312D	EGYPTIAN HIEROGLYPH F042
+1312E	EGYPTIAN HIEROGLYPH F043
+1312F	EGYPTIAN HIEROGLYPH F044
+13130	EGYPTIAN HIEROGLYPH F045
+13131	EGYPTIAN HIEROGLYPH F045A
+13132	EGYPTIAN HIEROGLYPH F046
+13133	EGYPTIAN HIEROGLYPH F046A
+13134	EGYPTIAN HIEROGLYPH F047
+13135	EGYPTIAN HIEROGLYPH F047A
+13136	EGYPTIAN HIEROGLYPH F048
+13137	EGYPTIAN HIEROGLYPH F049
+13138	EGYPTIAN HIEROGLYPH F050
+13139	EGYPTIAN HIEROGLYPH F051
+1313A	EGYPTIAN HIEROGLYPH F051A
+1313B	EGYPTIAN HIEROGLYPH F051B
+1313C	EGYPTIAN HIEROGLYPH F051C
+1313D	EGYPTIAN HIEROGLYPH F052
+1313E	EGYPTIAN HIEROGLYPH F053
+1313F	EGYPTIAN HIEROGLYPH G001
+13140	EGYPTIAN HIEROGLYPH G002
+13141	EGYPTIAN HIEROGLYPH G003
+13142	EGYPTIAN HIEROGLYPH G004
+13143	EGYPTIAN HIEROGLYPH G005
+13144	EGYPTIAN HIEROGLYPH G006
+13145	EGYPTIAN HIEROGLYPH G006A
+13146	EGYPTIAN HIEROGLYPH G007
+13147	EGYPTIAN HIEROGLYPH G007A
+13148	EGYPTIAN HIEROGLYPH G007B
+13149	EGYPTIAN HIEROGLYPH G008
+1314A	EGYPTIAN HIEROGLYPH G009
+1314B	EGYPTIAN HIEROGLYPH G010
+1314C	EGYPTIAN HIEROGLYPH G011
+1314D	EGYPTIAN HIEROGLYPH G011A
+1314E	EGYPTIAN HIEROGLYPH G012
+1314F	EGYPTIAN HIEROGLYPH G013
+13150	EGYPTIAN HIEROGLYPH G014
+13151	EGYPTIAN HIEROGLYPH G015
+13152	EGYPTIAN HIEROGLYPH G016
+13153	EGYPTIAN HIEROGLYPH G017
+13154	EGYPTIAN HIEROGLYPH G018
+13155	EGYPTIAN HIEROGLYPH G019
+13156	EGYPTIAN HIEROGLYPH G020
+13157	EGYPTIAN HIEROGLYPH G020A
+13158	EGYPTIAN HIEROGLYPH G021
+13159	EGYPTIAN HIEROGLYPH G022
+1315A	EGYPTIAN HIEROGLYPH G023
+1315B	EGYPTIAN HIEROGLYPH G024
+1315C	EGYPTIAN HIEROGLYPH G025
+1315D	EGYPTIAN HIEROGLYPH G026
+1315E	EGYPTIAN HIEROGLYPH G026A
+1315F	EGYPTIAN HIEROGLYPH G027
+13160	EGYPTIAN HIEROGLYPH G028
+13161	EGYPTIAN HIEROGLYPH G029
+13162	EGYPTIAN HIEROGLYPH G030
+13163	EGYPTIAN HIEROGLYPH G031
+13164	EGYPTIAN HIEROGLYPH G032
+13165	EGYPTIAN HIEROGLYPH G033
+13166	EGYPTIAN HIEROGLYPH G034
+13167	EGYPTIAN HIEROGLYPH G035
+13168	EGYPTIAN HIEROGLYPH G036
+13169	EGYPTIAN HIEROGLYPH G036A
+1316A	EGYPTIAN HIEROGLYPH G037
+1316B	EGYPTIAN HIEROGLYPH G037A
+1316C	EGYPTIAN HIEROGLYPH G038
+1316D	EGYPTIAN HIEROGLYPH G039
+1316E	EGYPTIAN HIEROGLYPH G040
+1316F	EGYPTIAN HIEROGLYPH G041
+13170	EGYPTIAN HIEROGLYPH G042
+13171	EGYPTIAN HIEROGLYPH G043
+13172	EGYPTIAN HIEROGLYPH G043A
+13173	EGYPTIAN HIEROGLYPH G044
+13174	EGYPTIAN HIEROGLYPH G045
+13175	EGYPTIAN HIEROGLYPH G045A
+13176	EGYPTIAN HIEROGLYPH G046
+13177	EGYPTIAN HIEROGLYPH G047
+13178	EGYPTIAN HIEROGLYPH G048
+13179	EGYPTIAN HIEROGLYPH G049
+1317A	EGYPTIAN HIEROGLYPH G050
+1317B	EGYPTIAN HIEROGLYPH G051
+1317C	EGYPTIAN HIEROGLYPH G052
+1317D	EGYPTIAN HIEROGLYPH G053
+1317E	EGYPTIAN HIEROGLYPH G054
+1317F	EGYPTIAN HIEROGLYPH H001
+13180	EGYPTIAN HIEROGLYPH H002
+13181	EGYPTIAN HIEROGLYPH H003
+13182	EGYPTIAN HIEROGLYPH H004
+13183	EGYPTIAN HIEROGLYPH H005
+13184	EGYPTIAN HIEROGLYPH H006
+13185	EGYPTIAN HIEROGLYPH H006A
+13186	EGYPTIAN HIEROGLYPH H007
+13187	EGYPTIAN HIEROGLYPH H008
+13188	EGYPTIAN HIEROGLYPH I001
+13189	EGYPTIAN HIEROGLYPH I002
+1318A	EGYPTIAN HIEROGLYPH I003
+1318B	EGYPTIAN HIEROGLYPH I004
+1318C	EGYPTIAN HIEROGLYPH I005
+1318D	EGYPTIAN HIEROGLYPH I005A
+1318E	EGYPTIAN HIEROGLYPH I006
+1318F	EGYPTIAN HIEROGLYPH I007
+13190	EGYPTIAN HIEROGLYPH I008
+13191	EGYPTIAN HIEROGLYPH I009
+13192	EGYPTIAN HIEROGLYPH I009A
+13193	EGYPTIAN HIEROGLYPH I010
+13194	EGYPTIAN HIEROGLYPH I010A
+13195	EGYPTIAN HIEROGLYPH I011
+13196	EGYPTIAN HIEROGLYPH I011A
+13197	EGYPTIAN HIEROGLYPH I012
+13198	EGYPTIAN HIEROGLYPH I013
+13199	EGYPTIAN HIEROGLYPH I014
+1319A	EGYPTIAN HIEROGLYPH I015
+1319B	EGYPTIAN HIEROGLYPH K001
+1319C	EGYPTIAN HIEROGLYPH K002
+1319D	EGYPTIAN HIEROGLYPH K003
+1319E	EGYPTIAN HIEROGLYPH K004
+1319F	EGYPTIAN HIEROGLYPH K005
+131A0	EGYPTIAN HIEROGLYPH K006
+131A1	EGYPTIAN HIEROGLYPH K007
+131A2	EGYPTIAN HIEROGLYPH K008
+131A3	EGYPTIAN HIEROGLYPH L001
+131A4	EGYPTIAN HIEROGLYPH L002
+131A5	EGYPTIAN HIEROGLYPH L002A
+131A6	EGYPTIAN HIEROGLYPH L003
+131A7	EGYPTIAN HIEROGLYPH L004
+131A8	EGYPTIAN HIEROGLYPH L005
+131A9	EGYPTIAN HIEROGLYPH L006
+131AA	EGYPTIAN HIEROGLYPH L006A
+131AB	EGYPTIAN HIEROGLYPH L007
+131AC	EGYPTIAN HIEROGLYPH L008
+131AD	EGYPTIAN HIEROGLYPH M001
+131AE	EGYPTIAN HIEROGLYPH M001A
+131AF	EGYPTIAN HIEROGLYPH M001B
+131B0	EGYPTIAN HIEROGLYPH M002
+131B1	EGYPTIAN HIEROGLYPH M003
+131B2	EGYPTIAN HIEROGLYPH M003A
+131B3	EGYPTIAN HIEROGLYPH M004
+131B4	EGYPTIAN HIEROGLYPH M005
+131B5	EGYPTIAN HIEROGLYPH M006
+131B6	EGYPTIAN HIEROGLYPH M007
+131B7	EGYPTIAN HIEROGLYPH M008
+131B8	EGYPTIAN HIEROGLYPH M009
+131B9	EGYPTIAN HIEROGLYPH M010
+131BA	EGYPTIAN HIEROGLYPH M010A
+131BB	EGYPTIAN HIEROGLYPH M011
+131BC	EGYPTIAN HIEROGLYPH M012
+131BD	EGYPTIAN HIEROGLYPH M012A
+131BE	EGYPTIAN HIEROGLYPH M012B
+131BF	EGYPTIAN HIEROGLYPH M012C
+131C0	EGYPTIAN HIEROGLYPH M012D
+131C1	EGYPTIAN HIEROGLYPH M012E
+131C2	EGYPTIAN HIEROGLYPH M012F
+131C3	EGYPTIAN HIEROGLYPH M012G
+131C4	EGYPTIAN HIEROGLYPH M012H
+131C5	EGYPTIAN HIEROGLYPH M013
+131C6	EGYPTIAN HIEROGLYPH M014
+131C7	EGYPTIAN HIEROGLYPH M015
+131C8	EGYPTIAN HIEROGLYPH M015A
+131C9	EGYPTIAN HIEROGLYPH M016
+131CA	EGYPTIAN HIEROGLYPH M016A
+131CB	EGYPTIAN HIEROGLYPH M017
+131CC	EGYPTIAN HIEROGLYPH M017A
+131CD	EGYPTIAN HIEROGLYPH M018
+131CE	EGYPTIAN HIEROGLYPH M019
+131CF	EGYPTIAN HIEROGLYPH M020
+131D0	EGYPTIAN HIEROGLYPH M021
+131D1	EGYPTIAN HIEROGLYPH M022
+131D2	EGYPTIAN HIEROGLYPH M022A
+131D3	EGYPTIAN HIEROGLYPH M023
+131D4	EGYPTIAN HIEROGLYPH M024
+131D5	EGYPTIAN HIEROGLYPH M024A
+131D6	EGYPTIAN HIEROGLYPH M025
+131D7	EGYPTIAN HIEROGLYPH M026
+131D8	EGYPTIAN HIEROGLYPH M027
+131D9	EGYPTIAN HIEROGLYPH M028
+131DA	EGYPTIAN HIEROGLYPH M028A
+131DB	EGYPTIAN HIEROGLYPH M029
+131DC	EGYPTIAN HIEROGLYPH M030
+131DD	EGYPTIAN HIEROGLYPH M031
+131DE	EGYPTIAN HIEROGLYPH M031A
+131DF	EGYPTIAN HIEROGLYPH M032
+131E0	EGYPTIAN HIEROGLYPH M033
+131E1	EGYPTIAN HIEROGLYPH M033A
+131E2	EGYPTIAN HIEROGLYPH M033B
+131E3	EGYPTIAN HIEROGLYPH M034
+131E4	EGYPTIAN HIEROGLYPH M035
+131E5	EGYPTIAN HIEROGLYPH M036
+131E6	EGYPTIAN HIEROGLYPH M037
+131E7	EGYPTIAN HIEROGLYPH M038
+131E8	EGYPTIAN HIEROGLYPH M039
+131E9	EGYPTIAN HIEROGLYPH M040
+131EA	EGYPTIAN HIEROGLYPH M040A
+131EB	EGYPTIAN HIEROGLYPH M041
+131EC	EGYPTIAN HIEROGLYPH M042
+131ED	EGYPTIAN HIEROGLYPH M043
+131EE	EGYPTIAN HIEROGLYPH M044
+131EF	EGYPTIAN HIEROGLYPH N001
+131F0	EGYPTIAN HIEROGLYPH N002
+131F1	EGYPTIAN HIEROGLYPH N003
+131F2	EGYPTIAN HIEROGLYPH N004
+131F3	EGYPTIAN HIEROGLYPH N005
+131F4	EGYPTIAN HIEROGLYPH N006
+131F5	EGYPTIAN HIEROGLYPH N007
+131F6	EGYPTIAN HIEROGLYPH N008
+131F7	EGYPTIAN HIEROGLYPH N009
+131F8	EGYPTIAN HIEROGLYPH N010
+131F9	EGYPTIAN HIEROGLYPH N011
+131FA	EGYPTIAN HIEROGLYPH N012
+131FB	EGYPTIAN HIEROGLYPH N013
+131FC	EGYPTIAN HIEROGLYPH N014
+131FD	EGYPTIAN HIEROGLYPH N015
+131FE	EGYPTIAN HIEROGLYPH N016
+131FF	EGYPTIAN HIEROGLYPH N017
+13200	EGYPTIAN HIEROGLYPH N018
+13201	EGYPTIAN HIEROGLYPH N018A
+13202	EGYPTIAN HIEROGLYPH N018B
+13203	EGYPTIAN HIEROGLYPH N019
+13204	EGYPTIAN HIEROGLYPH N020
+13205	EGYPTIAN HIEROGLYPH N021
+13206	EGYPTIAN HIEROGLYPH N022
+13207	EGYPTIAN HIEROGLYPH N023
+13208	EGYPTIAN HIEROGLYPH N024
+13209	EGYPTIAN HIEROGLYPH N025
+1320A	EGYPTIAN HIEROGLYPH N025A
+1320B	EGYPTIAN HIEROGLYPH N026
+1320C	EGYPTIAN HIEROGLYPH N027
+1320D	EGYPTIAN HIEROGLYPH N028
+1320E	EGYPTIAN HIEROGLYPH N029
+1320F	EGYPTIAN HIEROGLYPH N030
+13210	EGYPTIAN HIEROGLYPH N031
+13211	EGYPTIAN HIEROGLYPH N032
+13212	EGYPTIAN HIEROGLYPH N033
+13213	EGYPTIAN HIEROGLYPH N033A
+13214	EGYPTIAN HIEROGLYPH N034
+13215	EGYPTIAN HIEROGLYPH N034A
+13216	EGYPTIAN HIEROGLYPH N035
+13217	EGYPTIAN HIEROGLYPH N035A
+13218	EGYPTIAN HIEROGLYPH N036
+13219	EGYPTIAN HIEROGLYPH N037
+1321A	EGYPTIAN HIEROGLYPH N037A
+1321B	EGYPTIAN HIEROGLYPH N038
+1321C	EGYPTIAN HIEROGLYPH N039
+1321D	EGYPTIAN HIEROGLYPH N040
+1321E	EGYPTIAN HIEROGLYPH N041
+1321F	EGYPTIAN HIEROGLYPH N042
+13220	EGYPTIAN HIEROGLYPH NL001
+13221	EGYPTIAN HIEROGLYPH NL002
+13222	EGYPTIAN HIEROGLYPH NL003
+13223	EGYPTIAN HIEROGLYPH NL004
+13224	EGYPTIAN HIEROGLYPH NL005
+13225	EGYPTIAN HIEROGLYPH NL005A
+13226	EGYPTIAN HIEROGLYPH NL006
+13227	EGYPTIAN HIEROGLYPH NL007
+13228	EGYPTIAN HIEROGLYPH NL008
+13229	EGYPTIAN HIEROGLYPH NL009
+1322A	EGYPTIAN HIEROGLYPH NL010
+1322B	EGYPTIAN HIEROGLYPH NL011
+1322C	EGYPTIAN HIEROGLYPH NL012
+1322D	EGYPTIAN HIEROGLYPH NL013
+1322E	EGYPTIAN HIEROGLYPH NL014
+1322F	EGYPTIAN HIEROGLYPH NL015
+13230	EGYPTIAN HIEROGLYPH NL016
+13231	EGYPTIAN HIEROGLYPH NL017
+13232	EGYPTIAN HIEROGLYPH NL017A
+13233	EGYPTIAN HIEROGLYPH NL018
+13234	EGYPTIAN HIEROGLYPH NL019
+13235	EGYPTIAN HIEROGLYPH NL020
+13236	EGYPTIAN HIEROGLYPH NU001
+13237	EGYPTIAN HIEROGLYPH NU002
+13238	EGYPTIAN HIEROGLYPH NU003
+13239	EGYPTIAN HIEROGLYPH NU004
+1323A	EGYPTIAN HIEROGLYPH NU005
+1323B	EGYPTIAN HIEROGLYPH NU006
+1323C	EGYPTIAN HIEROGLYPH NU007
+1323D	EGYPTIAN HIEROGLYPH NU008
+1323E	EGYPTIAN HIEROGLYPH NU009
+1323F	EGYPTIAN HIEROGLYPH NU010
+13240	EGYPTIAN HIEROGLYPH NU010A
+13241	EGYPTIAN HIEROGLYPH NU011
+13242	EGYPTIAN HIEROGLYPH NU011A
+13243	EGYPTIAN HIEROGLYPH NU012
+13244	EGYPTIAN HIEROGLYPH NU013
+13245	EGYPTIAN HIEROGLYPH NU014
+13246	EGYPTIAN HIEROGLYPH NU015
+13247	EGYPTIAN HIEROGLYPH NU016
+13248	EGYPTIAN HIEROGLYPH NU017
+13249	EGYPTIAN HIEROGLYPH NU018
+1324A	EGYPTIAN HIEROGLYPH NU018A
+1324B	EGYPTIAN HIEROGLYPH NU019
+1324C	EGYPTIAN HIEROGLYPH NU020
+1324D	EGYPTIAN HIEROGLYPH NU021
+1324E	EGYPTIAN HIEROGLYPH NU022
+1324F	EGYPTIAN HIEROGLYPH NU022A
+13250	EGYPTIAN HIEROGLYPH O001
+13251	EGYPTIAN HIEROGLYPH O001A
+13252	EGYPTIAN HIEROGLYPH O002
+13253	EGYPTIAN HIEROGLYPH O003
+13254	EGYPTIAN HIEROGLYPH O004
+13255	EGYPTIAN HIEROGLYPH O005
+13256	EGYPTIAN HIEROGLYPH O005A
+13257	EGYPTIAN HIEROGLYPH O006
+13258	EGYPTIAN HIEROGLYPH O006A
+13259	EGYPTIAN HIEROGLYPH O006B
+1325A	EGYPTIAN HIEROGLYPH O006C
+1325B	EGYPTIAN HIEROGLYPH O006D
+1325C	EGYPTIAN HIEROGLYPH O006E
+1325D	EGYPTIAN HIEROGLYPH O006F
+1325E	EGYPTIAN HIEROGLYPH O007
+1325F	EGYPTIAN HIEROGLYPH O008
+13260	EGYPTIAN HIEROGLYPH O009
+13261	EGYPTIAN HIEROGLYPH O010
+13262	EGYPTIAN HIEROGLYPH O010A
+13263	EGYPTIAN HIEROGLYPH O010B
+13264	EGYPTIAN HIEROGLYPH O010C
+13265	EGYPTIAN HIEROGLYPH O011
+13266	EGYPTIAN HIEROGLYPH O012
+13267	EGYPTIAN HIEROGLYPH O013
+13268	EGYPTIAN HIEROGLYPH O014
+13269	EGYPTIAN HIEROGLYPH O015
+1326A	EGYPTIAN HIEROGLYPH O016
+1326B	EGYPTIAN HIEROGLYPH O017
+1326C	EGYPTIAN HIEROGLYPH O018
+1326D	EGYPTIAN HIEROGLYPH O019
+1326E	EGYPTIAN HIEROGLYPH O019A
+1326F	EGYPTIAN HIEROGLYPH O020
+13270	EGYPTIAN HIEROGLYPH O020A
+13271	EGYPTIAN HIEROGLYPH O021
+13272	EGYPTIAN HIEROGLYPH O022
+13273	EGYPTIAN HIEROGLYPH O023
+13274	EGYPTIAN HIEROGLYPH O024
+13275	EGYPTIAN HIEROGLYPH O024A
+13276	EGYPTIAN HIEROGLYPH O025
+13277	EGYPTIAN HIEROGLYPH O025A
+13278	EGYPTIAN HIEROGLYPH O026
+13279	EGYPTIAN HIEROGLYPH O027
+1327A	EGYPTIAN HIEROGLYPH O028
+1327B	EGYPTIAN HIEROGLYPH O029
+1327C	EGYPTIAN HIEROGLYPH O029A
+1327D	EGYPTIAN HIEROGLYPH O030
+1327E	EGYPTIAN HIEROGLYPH O030A
+1327F	EGYPTIAN HIEROGLYPH O031
+13280	EGYPTIAN HIEROGLYPH O032
+13281	EGYPTIAN HIEROGLYPH O033
+13282	EGYPTIAN HIEROGLYPH O033A
+13283	EGYPTIAN HIEROGLYPH O034
+13284	EGYPTIAN HIEROGLYPH O035
+13285	EGYPTIAN HIEROGLYPH O036
+13286	EGYPTIAN HIEROGLYPH O036A
+13287	EGYPTIAN HIEROGLYPH O036B
+13288	EGYPTIAN HIEROGLYPH O036C
+13289	EGYPTIAN HIEROGLYPH O036D
+1328A	EGYPTIAN HIEROGLYPH O037
+1328B	EGYPTIAN HIEROGLYPH O038
+1328C	EGYPTIAN HIEROGLYPH O039
+1328D	EGYPTIAN HIEROGLYPH O040
+1328E	EGYPTIAN HIEROGLYPH O041
+1328F	EGYPTIAN HIEROGLYPH O042
+13290	EGYPTIAN HIEROGLYPH O043
+13291	EGYPTIAN HIEROGLYPH O044
+13292	EGYPTIAN HIEROGLYPH O045
+13293	EGYPTIAN HIEROGLYPH O046
+13294	EGYPTIAN HIEROGLYPH O047
+13295	EGYPTIAN HIEROGLYPH O048
+13296	EGYPTIAN HIEROGLYPH O049
+13297	EGYPTIAN HIEROGLYPH O050
+13298	EGYPTIAN HIEROGLYPH O050A
+13299	EGYPTIAN HIEROGLYPH O050B
+1329A	EGYPTIAN HIEROGLYPH O051
+1329B	EGYPTIAN HIEROGLYPH P001
+1329C	EGYPTIAN HIEROGLYPH P001A
+1329D	EGYPTIAN HIEROGLYPH P002
+1329E	EGYPTIAN HIEROGLYPH P003
+1329F	EGYPTIAN HIEROGLYPH P003A
+132A0	EGYPTIAN HIEROGLYPH P004
+132A1	EGYPTIAN HIEROGLYPH P005
+132A2	EGYPTIAN HIEROGLYPH P006
+132A3	EGYPTIAN HIEROGLYPH P007
+132A4	EGYPTIAN HIEROGLYPH P008
+132A5	EGYPTIAN HIEROGLYPH P009
+132A6	EGYPTIAN HIEROGLYPH P010
+132A7	EGYPTIAN HIEROGLYPH P011
+132A8	EGYPTIAN HIEROGLYPH Q001
+132A9	EGYPTIAN HIEROGLYPH Q002
+132AA	EGYPTIAN HIEROGLYPH Q003
+132AB	EGYPTIAN HIEROGLYPH Q004
+132AC	EGYPTIAN HIEROGLYPH Q005
+132AD	EGYPTIAN HIEROGLYPH Q006
+132AE	EGYPTIAN HIEROGLYPH Q007
+132AF	EGYPTIAN HIEROGLYPH R001
+132B0	EGYPTIAN HIEROGLYPH R002
+132B1	EGYPTIAN HIEROGLYPH R002A
+132B2	EGYPTIAN HIEROGLYPH R003
+132B3	EGYPTIAN HIEROGLYPH R003A
+132B4	EGYPTIAN HIEROGLYPH R003B
+132B5	EGYPTIAN HIEROGLYPH R004
+132B6	EGYPTIAN HIEROGLYPH R005
+132B7	EGYPTIAN HIEROGLYPH R006
+132B8	EGYPTIAN HIEROGLYPH R007
+132B9	EGYPTIAN HIEROGLYPH R008
+132BA	EGYPTIAN HIEROGLYPH R009
+132BB	EGYPTIAN HIEROGLYPH R010
+132BC	EGYPTIAN HIEROGLYPH R010A
+132BD	EGYPTIAN HIEROGLYPH R011
+132BE	EGYPTIAN HIEROGLYPH R012
+132BF	EGYPTIAN HIEROGLYPH R013
+132C0	EGYPTIAN HIEROGLYPH R014
+132C1	EGYPTIAN HIEROGLYPH R015
+132C2	EGYPTIAN HIEROGLYPH R016
+132C3	EGYPTIAN HIEROGLYPH R016A
+132C4	EGYPTIAN HIEROGLYPH R017
+132C5	EGYPTIAN HIEROGLYPH R018
+132C6	EGYPTIAN HIEROGLYPH R019
+132C7	EGYPTIAN HIEROGLYPH R020
+132C8	EGYPTIAN HIEROGLYPH R021
+132C9	EGYPTIAN HIEROGLYPH R022
+132CA	EGYPTIAN HIEROGLYPH R023
+132CB	EGYPTIAN HIEROGLYPH R024
+132CC	EGYPTIAN HIEROGLYPH R025
+132CD	EGYPTIAN HIEROGLYPH R026
+132CE	EGYPTIAN HIEROGLYPH R027
+132CF	EGYPTIAN HIEROGLYPH R028
+132D0	EGYPTIAN HIEROGLYPH R029
+132D1	EGYPTIAN HIEROGLYPH S001
+132D2	EGYPTIAN HIEROGLYPH S002
+132D3	EGYPTIAN HIEROGLYPH S002A
+132D4	EGYPTIAN HIEROGLYPH S003
+132D5	EGYPTIAN HIEROGLYPH S004
+132D6	EGYPTIAN HIEROGLYPH S005
+132D7	EGYPTIAN HIEROGLYPH S006
+132D8	EGYPTIAN HIEROGLYPH S006A
+132D9	EGYPTIAN HIEROGLYPH S007
+132DA	EGYPTIAN HIEROGLYPH S008
+132DB	EGYPTIAN HIEROGLYPH S009
+132DC	EGYPTIAN HIEROGLYPH S010
+132DD	EGYPTIAN HIEROGLYPH S011
+132DE	EGYPTIAN HIEROGLYPH S012
+132DF	EGYPTIAN HIEROGLYPH S013
+132E0	EGYPTIAN HIEROGLYPH S014
+132E1	EGYPTIAN HIEROGLYPH S014A
+132E2	EGYPTIAN HIEROGLYPH S014B
+132E3	EGYPTIAN HIEROGLYPH S015
+132E4	EGYPTIAN HIEROGLYPH S016
+132E5	EGYPTIAN HIEROGLYPH S017
+132E6	EGYPTIAN HIEROGLYPH S017A
+132E7	EGYPTIAN HIEROGLYPH S018
+132E8	EGYPTIAN HIEROGLYPH S019
+132E9	EGYPTIAN HIEROGLYPH S020
+132EA	EGYPTIAN HIEROGLYPH S021
+132EB	EGYPTIAN HIEROGLYPH S022
+132EC	EGYPTIAN HIEROGLYPH S023
+132ED	EGYPTIAN HIEROGLYPH S024
+132EE	EGYPTIAN HIEROGLYPH S025
+132EF	EGYPTIAN HIEROGLYPH S026
+132F0	EGYPTIAN HIEROGLYPH S026A
+132F1	EGYPTIAN HIEROGLYPH S026B
+132F2	EGYPTIAN HIEROGLYPH S027
+132F3	EGYPTIAN HIEROGLYPH S028
+132F4	EGYPTIAN HIEROGLYPH S029
+132F5	EGYPTIAN HIEROGLYPH S030
+132F6	EGYPTIAN HIEROGLYPH S031
+132F7	EGYPTIAN HIEROGLYPH S032
+132F8	EGYPTIAN HIEROGLYPH S033
+132F9	EGYPTIAN HIEROGLYPH S034
+132FA	EGYPTIAN HIEROGLYPH S035
+132FB	EGYPTIAN HIEROGLYPH S035A
+132FC	EGYPTIAN HIEROGLYPH S036
+132FD	EGYPTIAN HIEROGLYPH S037
+132FE	EGYPTIAN HIEROGLYPH S038
+132FF	EGYPTIAN HIEROGLYPH S039
+13300	EGYPTIAN HIEROGLYPH S040
+13301	EGYPTIAN HIEROGLYPH S041
+13302	EGYPTIAN HIEROGLYPH S042
+13303	EGYPTIAN HIEROGLYPH S043
+13304	EGYPTIAN HIEROGLYPH S044
+13305	EGYPTIAN HIEROGLYPH S045
+13306	EGYPTIAN HIEROGLYPH S046
+13307	EGYPTIAN HIEROGLYPH T001
+13308	EGYPTIAN HIEROGLYPH T002
+13309	EGYPTIAN HIEROGLYPH T003
+1330A	EGYPTIAN HIEROGLYPH T003A
+1330B	EGYPTIAN HIEROGLYPH T004
+1330C	EGYPTIAN HIEROGLYPH T005
+1330D	EGYPTIAN HIEROGLYPH T006
+1330E	EGYPTIAN HIEROGLYPH T007
+1330F	EGYPTIAN HIEROGLYPH T007A
+13310	EGYPTIAN HIEROGLYPH T008
+13311	EGYPTIAN HIEROGLYPH T008A
+13312	EGYPTIAN HIEROGLYPH T009
+13313	EGYPTIAN HIEROGLYPH T009A
+13314	EGYPTIAN HIEROGLYPH T010
+13315	EGYPTIAN HIEROGLYPH T011
+13316	EGYPTIAN HIEROGLYPH T011A
+13317	EGYPTIAN HIEROGLYPH T012
+13318	EGYPTIAN HIEROGLYPH T013
+13319	EGYPTIAN HIEROGLYPH T014
+1331A	EGYPTIAN HIEROGLYPH T015
+1331B	EGYPTIAN HIEROGLYPH T016
+1331C	EGYPTIAN HIEROGLYPH T016A
+1331D	EGYPTIAN HIEROGLYPH T017
+1331E	EGYPTIAN HIEROGLYPH T018
+1331F	EGYPTIAN HIEROGLYPH T019
+13320	EGYPTIAN HIEROGLYPH T020
+13321	EGYPTIAN HIEROGLYPH T021
+13322	EGYPTIAN HIEROGLYPH T022
+13323	EGYPTIAN HIEROGLYPH T023
+13324	EGYPTIAN HIEROGLYPH T024
+13325	EGYPTIAN HIEROGLYPH T025
+13326	EGYPTIAN HIEROGLYPH T026
+13327	EGYPTIAN HIEROGLYPH T027
+13328	EGYPTIAN HIEROGLYPH T028
+13329	EGYPTIAN HIEROGLYPH T029
+1332A	EGYPTIAN HIEROGLYPH T030
+1332B	EGYPTIAN HIEROGLYPH T031
+1332C	EGYPTIAN HIEROGLYPH T032
+1332D	EGYPTIAN HIEROGLYPH T032A
+1332E	EGYPTIAN HIEROGLYPH T033
+1332F	EGYPTIAN HIEROGLYPH T033A
+13330	EGYPTIAN HIEROGLYPH T034
+13331	EGYPTIAN HIEROGLYPH T035
+13332	EGYPTIAN HIEROGLYPH T036
+13333	EGYPTIAN HIEROGLYPH U001
+13334	EGYPTIAN HIEROGLYPH U002
+13335	EGYPTIAN HIEROGLYPH U003
+13336	EGYPTIAN HIEROGLYPH U004
+13337	EGYPTIAN HIEROGLYPH U005
+13338	EGYPTIAN HIEROGLYPH U006
+13339	EGYPTIAN HIEROGLYPH U006A
+1333A	EGYPTIAN HIEROGLYPH U006B
+1333B	EGYPTIAN HIEROGLYPH U007
+1333C	EGYPTIAN HIEROGLYPH U008
+1333D	EGYPTIAN HIEROGLYPH U009
+1333E	EGYPTIAN HIEROGLYPH U010
+1333F	EGYPTIAN HIEROGLYPH U011
+13340	EGYPTIAN HIEROGLYPH U012
+13341	EGYPTIAN HIEROGLYPH U013
+13342	EGYPTIAN HIEROGLYPH U014
+13343	EGYPTIAN HIEROGLYPH U015
+13344	EGYPTIAN HIEROGLYPH U016
+13345	EGYPTIAN HIEROGLYPH U017
+13346	EGYPTIAN HIEROGLYPH U018
+13347	EGYPTIAN HIEROGLYPH U019
+13348	EGYPTIAN HIEROGLYPH U020
+13349	EGYPTIAN HIEROGLYPH U021
+1334A	EGYPTIAN HIEROGLYPH U022
+1334B	EGYPTIAN HIEROGLYPH U023
+1334C	EGYPTIAN HIEROGLYPH U023A
+1334D	EGYPTIAN HIEROGLYPH U024
+1334E	EGYPTIAN HIEROGLYPH U025
+1334F	EGYPTIAN HIEROGLYPH U026
+13350	EGYPTIAN HIEROGLYPH U027
+13351	EGYPTIAN HIEROGLYPH U028
+13352	EGYPTIAN HIEROGLYPH U029
+13353	EGYPTIAN HIEROGLYPH U029A
+13354	EGYPTIAN HIEROGLYPH U030
+13355	EGYPTIAN HIEROGLYPH U031
+13356	EGYPTIAN HIEROGLYPH U032
+13357	EGYPTIAN HIEROGLYPH U032A
+13358	EGYPTIAN HIEROGLYPH U033
+13359	EGYPTIAN HIEROGLYPH U034
+1335A	EGYPTIAN HIEROGLYPH U035
+1335B	EGYPTIAN HIEROGLYPH U036
+1335C	EGYPTIAN HIEROGLYPH U037
+1335D	EGYPTIAN HIEROGLYPH U038
+1335E	EGYPTIAN HIEROGLYPH U039
+1335F	EGYPTIAN HIEROGLYPH U040
+13360	EGYPTIAN HIEROGLYPH U041
+13361	EGYPTIAN HIEROGLYPH U042
+13362	EGYPTIAN HIEROGLYPH V001
+13363	EGYPTIAN HIEROGLYPH V001A
+13364	EGYPTIAN HIEROGLYPH V001B
+13365	EGYPTIAN HIEROGLYPH V001C
+13366	EGYPTIAN HIEROGLYPH V001D
+13367	EGYPTIAN HIEROGLYPH V001E
+13368	EGYPTIAN HIEROGLYPH V001F
+13369	EGYPTIAN HIEROGLYPH V001G
+1336A	EGYPTIAN HIEROGLYPH V001H
+1336B	EGYPTIAN HIEROGLYPH V001I
+1336C	EGYPTIAN HIEROGLYPH V002
+1336D	EGYPTIAN HIEROGLYPH V002A
+1336E	EGYPTIAN HIEROGLYPH V003
+1336F	EGYPTIAN HIEROGLYPH V004
+13370	EGYPTIAN HIEROGLYPH V005
+13371	EGYPTIAN HIEROGLYPH V006
+13372	EGYPTIAN HIEROGLYPH V007
+13373	EGYPTIAN HIEROGLYPH V007A
+13374	EGYPTIAN HIEROGLYPH V007B
+13375	EGYPTIAN HIEROGLYPH V008
+13376	EGYPTIAN HIEROGLYPH V009
+13377	EGYPTIAN HIEROGLYPH V010
+13378	EGYPTIAN HIEROGLYPH V011
+13379	EGYPTIAN HIEROGLYPH V011A
+1337A	EGYPTIAN HIEROGLYPH V011B
+1337B	EGYPTIAN HIEROGLYPH V011C
+1337C	EGYPTIAN HIEROGLYPH V012
+1337D	EGYPTIAN HIEROGLYPH V012A
+1337E	EGYPTIAN HIEROGLYPH V012B
+1337F	EGYPTIAN HIEROGLYPH V013
+13380	EGYPTIAN HIEROGLYPH V014
+13381	EGYPTIAN HIEROGLYPH V015
+13382	EGYPTIAN HIEROGLYPH V016
+13383	EGYPTIAN HIEROGLYPH V017
+13384	EGYPTIAN HIEROGLYPH V018
+13385	EGYPTIAN HIEROGLYPH V019
+13386	EGYPTIAN HIEROGLYPH V020
+13387	EGYPTIAN HIEROGLYPH V020A
+13388	EGYPTIAN HIEROGLYPH V020B
+13389	EGYPTIAN HIEROGLYPH V020C
+1338A	EGYPTIAN HIEROGLYPH V020D
+1338B	EGYPTIAN HIEROGLYPH V020E
+1338C	EGYPTIAN HIEROGLYPH V020F
+1338D	EGYPTIAN HIEROGLYPH V020G
+1338E	EGYPTIAN HIEROGLYPH V020H
+1338F	EGYPTIAN HIEROGLYPH V020I
+13390	EGYPTIAN HIEROGLYPH V020J
+13391	EGYPTIAN HIEROGLYPH V020K
+13392	EGYPTIAN HIEROGLYPH V020L
+13393	EGYPTIAN HIEROGLYPH V021
+13394	EGYPTIAN HIEROGLYPH V022
+13395	EGYPTIAN HIEROGLYPH V023
+13396	EGYPTIAN HIEROGLYPH V023A
+13397	EGYPTIAN HIEROGLYPH V024
+13398	EGYPTIAN HIEROGLYPH V025
+13399	EGYPTIAN HIEROGLYPH V026
+1339A	EGYPTIAN HIEROGLYPH V027
+1339B	EGYPTIAN HIEROGLYPH V028
+1339C	EGYPTIAN HIEROGLYPH V028A
+1339D	EGYPTIAN HIEROGLYPH V029
+1339E	EGYPTIAN HIEROGLYPH V029A
+1339F	EGYPTIAN HIEROGLYPH V030
+133A0	EGYPTIAN HIEROGLYPH V030A
+133A1	EGYPTIAN HIEROGLYPH V031
+133A2	EGYPTIAN HIEROGLYPH V031A
+133A3	EGYPTIAN HIEROGLYPH V032
+133A4	EGYPTIAN HIEROGLYPH V033
+133A5	EGYPTIAN HIEROGLYPH V033A
+133A6	EGYPTIAN HIEROGLYPH V034
+133A7	EGYPTIAN HIEROGLYPH V035
+133A8	EGYPTIAN HIEROGLYPH V036
+133A9	EGYPTIAN HIEROGLYPH V037
+133AA	EGYPTIAN HIEROGLYPH V037A
+133AB	EGYPTIAN HIEROGLYPH V038
+133AC	EGYPTIAN HIEROGLYPH V039
+133AD	EGYPTIAN HIEROGLYPH V040
+133AE	EGYPTIAN HIEROGLYPH V040A
+133AF	EGYPTIAN HIEROGLYPH W001
+133B0	EGYPTIAN HIEROGLYPH W002
+133B1	EGYPTIAN HIEROGLYPH W003
+133B2	EGYPTIAN HIEROGLYPH W003A
+133B3	EGYPTIAN HIEROGLYPH W004
+133B4	EGYPTIAN HIEROGLYPH W005
+133B5	EGYPTIAN HIEROGLYPH W006
+133B6	EGYPTIAN HIEROGLYPH W007
+133B7	EGYPTIAN HIEROGLYPH W008
+133B8	EGYPTIAN HIEROGLYPH W009
+133B9	EGYPTIAN HIEROGLYPH W009A
+133BA	EGYPTIAN HIEROGLYPH W010
+133BB	EGYPTIAN HIEROGLYPH W010A
+133BC	EGYPTIAN HIEROGLYPH W011
+133BD	EGYPTIAN HIEROGLYPH W012
+133BE	EGYPTIAN HIEROGLYPH W013
+133BF	EGYPTIAN HIEROGLYPH W014
+133C0	EGYPTIAN HIEROGLYPH W014A
+133C1	EGYPTIAN HIEROGLYPH W015
+133C2	EGYPTIAN HIEROGLYPH W016
+133C3	EGYPTIAN HIEROGLYPH W017
+133C4	EGYPTIAN HIEROGLYPH W017A
+133C5	EGYPTIAN HIEROGLYPH W018
+133C6	EGYPTIAN HIEROGLYPH W018A
+133C7	EGYPTIAN HIEROGLYPH W019
+133C8	EGYPTIAN HIEROGLYPH W020
+133C9	EGYPTIAN HIEROGLYPH W021
+133CA	EGYPTIAN HIEROGLYPH W022
+133CB	EGYPTIAN HIEROGLYPH W023
+133CC	EGYPTIAN HIEROGLYPH W024
+133CD	EGYPTIAN HIEROGLYPH W024A
+133CE	EGYPTIAN HIEROGLYPH W025
+133CF	EGYPTIAN HIEROGLYPH X001
+133D0	EGYPTIAN HIEROGLYPH X002
+133D1	EGYPTIAN HIEROGLYPH X003
+133D2	EGYPTIAN HIEROGLYPH X004
+133D3	EGYPTIAN HIEROGLYPH X004A
+133D4	EGYPTIAN HIEROGLYPH X004B
+133D5	EGYPTIAN HIEROGLYPH X005
+133D6	EGYPTIAN HIEROGLYPH X006
+133D7	EGYPTIAN HIEROGLYPH X006A
+133D8	EGYPTIAN HIEROGLYPH X007
+133D9	EGYPTIAN HIEROGLYPH X008
+133DA	EGYPTIAN HIEROGLYPH X008A
+133DB	EGYPTIAN HIEROGLYPH Y001
+133DC	EGYPTIAN HIEROGLYPH Y001A
+133DD	EGYPTIAN HIEROGLYPH Y002
+133DE	EGYPTIAN HIEROGLYPH Y003
+133DF	EGYPTIAN HIEROGLYPH Y004
+133E0	EGYPTIAN HIEROGLYPH Y005
+133E1	EGYPTIAN HIEROGLYPH Y006
+133E2	EGYPTIAN HIEROGLYPH Y007
+133E3	EGYPTIAN HIEROGLYPH Y008
+133E4	EGYPTIAN HIEROGLYPH Z001
+133E5	EGYPTIAN HIEROGLYPH Z002
+133E6	EGYPTIAN HIEROGLYPH Z002A
+133E7	EGYPTIAN HIEROGLYPH Z002B
+133E8	EGYPTIAN HIEROGLYPH Z002C
+133E9	EGYPTIAN HIEROGLYPH Z002D
+133EA	EGYPTIAN HIEROGLYPH Z003
+133EB	EGYPTIAN HIEROGLYPH Z003A
+133EC	EGYPTIAN HIEROGLYPH Z003B
+133ED	EGYPTIAN HIEROGLYPH Z004
+133EE	EGYPTIAN HIEROGLYPH Z004A
+133EF	EGYPTIAN HIEROGLYPH Z005
+133F0	EGYPTIAN HIEROGLYPH Z005A
+133F1	EGYPTIAN HIEROGLYPH Z006
+133F2	EGYPTIAN HIEROGLYPH Z007
+133F3	EGYPTIAN HIEROGLYPH Z008
+133F4	EGYPTIAN HIEROGLYPH Z009
+133F5	EGYPTIAN HIEROGLYPH Z010
+133F6	EGYPTIAN HIEROGLYPH Z011
+133F7	EGYPTIAN HIEROGLYPH Z012
+133F8	EGYPTIAN HIEROGLYPH Z013
+133F9	EGYPTIAN HIEROGLYPH Z014
+133FA	EGYPTIAN HIEROGLYPH Z015
+133FB	EGYPTIAN HIEROGLYPH Z015A
+133FC	EGYPTIAN HIEROGLYPH Z015B
+133FD	EGYPTIAN HIEROGLYPH Z015C
+133FE	EGYPTIAN HIEROGLYPH Z015D
+133FF	EGYPTIAN HIEROGLYPH Z015E
+13400	EGYPTIAN HIEROGLYPH Z015F
+13401	EGYPTIAN HIEROGLYPH Z015G
+13402	EGYPTIAN HIEROGLYPH Z015H
+13403	EGYPTIAN HIEROGLYPH Z015I
+13404	EGYPTIAN HIEROGLYPH Z016
+13405	EGYPTIAN HIEROGLYPH Z016A
+13406	EGYPTIAN HIEROGLYPH Z016B
+13407	EGYPTIAN HIEROGLYPH Z016C
+13408	EGYPTIAN HIEROGLYPH Z016D
+13409	EGYPTIAN HIEROGLYPH Z016E
+1340A	EGYPTIAN HIEROGLYPH Z016F
+1340B	EGYPTIAN HIEROGLYPH Z016G
+1340C	EGYPTIAN HIEROGLYPH Z016H
+1340D	EGYPTIAN HIEROGLYPH AA001
+1340E	EGYPTIAN HIEROGLYPH AA002
+1340F	EGYPTIAN HIEROGLYPH AA003
+13410	EGYPTIAN HIEROGLYPH AA004
+13411	EGYPTIAN HIEROGLYPH AA005
+13412	EGYPTIAN HIEROGLYPH AA006
+13413	EGYPTIAN HIEROGLYPH AA007
+13414	EGYPTIAN HIEROGLYPH AA007A
+13415	EGYPTIAN HIEROGLYPH AA007B
+13416	EGYPTIAN HIEROGLYPH AA008
+13417	EGYPTIAN HIEROGLYPH AA009
+13418	EGYPTIAN HIEROGLYPH AA010
+13419	EGYPTIAN HIEROGLYPH AA011
+1341A	EGYPTIAN HIEROGLYPH AA012
+1341B	EGYPTIAN HIEROGLYPH AA013
+1341C	EGYPTIAN HIEROGLYPH AA014
+1341D	EGYPTIAN HIEROGLYPH AA015
+1341E	EGYPTIAN HIEROGLYPH AA016
+1341F	EGYPTIAN HIEROGLYPH AA017
+13420	EGYPTIAN HIEROGLYPH AA018
+13421	EGYPTIAN HIEROGLYPH AA019
+13422	EGYPTIAN HIEROGLYPH AA020
+13423	EGYPTIAN HIEROGLYPH AA021
+13424	EGYPTIAN HIEROGLYPH AA022
+13425	EGYPTIAN HIEROGLYPH AA023
+13426	EGYPTIAN HIEROGLYPH AA024
+13427	EGYPTIAN HIEROGLYPH AA025
+13428	EGYPTIAN HIEROGLYPH AA026
+13429	EGYPTIAN HIEROGLYPH AA027
+1342A	EGYPTIAN HIEROGLYPH AA028
+1342B	EGYPTIAN HIEROGLYPH AA029
+1342C	EGYPTIAN HIEROGLYPH AA030
+1342D	EGYPTIAN HIEROGLYPH AA031
+1342E	EGYPTIAN HIEROGLYPH AA032
+14400	ANATOLIAN HIEROGLYPH A001
+14401	ANATOLIAN HIEROGLYPH A002
+14402	ANATOLIAN HIEROGLYPH A003
+14403	ANATOLIAN HIEROGLYPH A004
+14404	ANATOLIAN HIEROGLYPH A005
+14405	ANATOLIAN HIEROGLYPH A006
+14406	ANATOLIAN HIEROGLYPH A007
+14407	ANATOLIAN HIEROGLYPH A008
+14408	ANATOLIAN HIEROGLYPH A009
+14409	ANATOLIAN HIEROGLYPH A010
+1440A	ANATOLIAN HIEROGLYPH A010A
+1440B	ANATOLIAN HIEROGLYPH A011
+1440C	ANATOLIAN HIEROGLYPH A012
+1440D	ANATOLIAN HIEROGLYPH A013
+1440E	ANATOLIAN HIEROGLYPH A014
+1440F	ANATOLIAN HIEROGLYPH A015
+14410	ANATOLIAN HIEROGLYPH A016
+14411	ANATOLIAN HIEROGLYPH A017
+14412	ANATOLIAN HIEROGLYPH A018
+14413	ANATOLIAN HIEROGLYPH A019
+14414	ANATOLIAN HIEROGLYPH A020
+14415	ANATOLIAN HIEROGLYPH A021
+14416	ANATOLIAN HIEROGLYPH A022
+14417	ANATOLIAN HIEROGLYPH A023
+14418	ANATOLIAN HIEROGLYPH A024
+14419	ANATOLIAN HIEROGLYPH A025
+1441A	ANATOLIAN HIEROGLYPH A026
+1441B	ANATOLIAN HIEROGLYPH A026A
+1441C	ANATOLIAN HIEROGLYPH A027
+1441D	ANATOLIAN HIEROGLYPH A028
+1441E	ANATOLIAN HIEROGLYPH A029
+1441F	ANATOLIAN HIEROGLYPH A030
+14420	ANATOLIAN HIEROGLYPH A031
+14421	ANATOLIAN HIEROGLYPH A032
+14422	ANATOLIAN HIEROGLYPH A033
+14423	ANATOLIAN HIEROGLYPH A034
+14424	ANATOLIAN HIEROGLYPH A035
+14425	ANATOLIAN HIEROGLYPH A036
+14426	ANATOLIAN HIEROGLYPH A037
+14427	ANATOLIAN HIEROGLYPH A038
+14428	ANATOLIAN HIEROGLYPH A039
+14429	ANATOLIAN HIEROGLYPH A039A
+1442A	ANATOLIAN HIEROGLYPH A040
+1442B	ANATOLIAN HIEROGLYPH A041
+1442C	ANATOLIAN HIEROGLYPH A041A
+1442D	ANATOLIAN HIEROGLYPH A042
+1442E	ANATOLIAN HIEROGLYPH A043
+1442F	ANATOLIAN HIEROGLYPH A044
+14430	ANATOLIAN HIEROGLYPH A045
+14431	ANATOLIAN HIEROGLYPH A045A
+14432	ANATOLIAN HIEROGLYPH A046
+14433	ANATOLIAN HIEROGLYPH A046A
+14434	ANATOLIAN HIEROGLYPH A046B
+14435	ANATOLIAN HIEROGLYPH A047
+14436	ANATOLIAN HIEROGLYPH A048
+14437	ANATOLIAN HIEROGLYPH A049
+14438	ANATOLIAN HIEROGLYPH A050
+14439	ANATOLIAN HIEROGLYPH A051
+1443A	ANATOLIAN HIEROGLYPH A052
+1443B	ANATOLIAN HIEROGLYPH A053
+1443C	ANATOLIAN HIEROGLYPH A054
+1443D	ANATOLIAN HIEROGLYPH A055
+1443E	ANATOLIAN HIEROGLYPH A056
+1443F	ANATOLIAN HIEROGLYPH A057
+14440	ANATOLIAN HIEROGLYPH A058
+14441	ANATOLIAN HIEROGLYPH A059
+14442	ANATOLIAN HIEROGLYPH A060
+14443	ANATOLIAN HIEROGLYPH A061
+14444	ANATOLIAN HIEROGLYPH A062
+14445	ANATOLIAN HIEROGLYPH A063
+14446	ANATOLIAN HIEROGLYPH A064
+14447	ANATOLIAN HIEROGLYPH A065
+14448	ANATOLIAN HIEROGLYPH A066
+14449	ANATOLIAN HIEROGLYPH A066A
+1444A	ANATOLIAN HIEROGLYPH A066B
+1444B	ANATOLIAN HIEROGLYPH A066C
+1444C	ANATOLIAN HIEROGLYPH A067
+1444D	ANATOLIAN HIEROGLYPH A068
+1444E	ANATOLIAN HIEROGLYPH A069
+1444F	ANATOLIAN HIEROGLYPH A070
+14450	ANATOLIAN HIEROGLYPH A071
+14451	ANATOLIAN HIEROGLYPH A072
+14452	ANATOLIAN HIEROGLYPH A073
+14453	ANATOLIAN HIEROGLYPH A074
+14454	ANATOLIAN HIEROGLYPH A075
+14455	ANATOLIAN HIEROGLYPH A076
+14456	ANATOLIAN HIEROGLYPH A077
+14457	ANATOLIAN HIEROGLYPH A078
+14458	ANATOLIAN HIEROGLYPH A079
+14459	ANATOLIAN HIEROGLYPH A080
+1445A	ANATOLIAN HIEROGLYPH A081
+1445B	ANATOLIAN HIEROGLYPH A082
+1445C	ANATOLIAN HIEROGLYPH A083
+1445D	ANATOLIAN HIEROGLYPH A084
+1445E	ANATOLIAN HIEROGLYPH A085
+1445F	ANATOLIAN HIEROGLYPH A086
+14460	ANATOLIAN HIEROGLYPH A087
+14461	ANATOLIAN HIEROGLYPH A088
+14462	ANATOLIAN HIEROGLYPH A089
+14463	ANATOLIAN HIEROGLYPH A090
+14464	ANATOLIAN HIEROGLYPH A091
+14465	ANATOLIAN HIEROGLYPH A092
+14466	ANATOLIAN HIEROGLYPH A093
+14467	ANATOLIAN HIEROGLYPH A094
+14468	ANATOLIAN HIEROGLYPH A095
+14469	ANATOLIAN HIEROGLYPH A096
+1446A	ANATOLIAN HIEROGLYPH A097
+1446B	ANATOLIAN HIEROGLYPH A097A
+1446C	ANATOLIAN HIEROGLYPH A098
+1446D	ANATOLIAN HIEROGLYPH A098A
+1446E	ANATOLIAN HIEROGLYPH A099
+1446F	ANATOLIAN HIEROGLYPH A100
+14470	ANATOLIAN HIEROGLYPH A100A
+14471	ANATOLIAN HIEROGLYPH A101
+14472	ANATOLIAN HIEROGLYPH A101A
+14473	ANATOLIAN HIEROGLYPH A102
+14474	ANATOLIAN HIEROGLYPH A102A
+14475	ANATOLIAN HIEROGLYPH A103
+14476	ANATOLIAN HIEROGLYPH A104
+14477	ANATOLIAN HIEROGLYPH A104A
+14478	ANATOLIAN HIEROGLYPH A104B
+14479	ANATOLIAN HIEROGLYPH A104C
+1447A	ANATOLIAN HIEROGLYPH A105
+1447B	ANATOLIAN HIEROGLYPH A105A
+1447C	ANATOLIAN HIEROGLYPH A105B
+1447D	ANATOLIAN HIEROGLYPH A106
+1447E	ANATOLIAN HIEROGLYPH A107
+1447F	ANATOLIAN HIEROGLYPH A107A
+14480	ANATOLIAN HIEROGLYPH A107B
+14481	ANATOLIAN HIEROGLYPH A107C
+14482	ANATOLIAN HIEROGLYPH A108
+14483	ANATOLIAN HIEROGLYPH A109
+14484	ANATOLIAN HIEROGLYPH A110
+14485	ANATOLIAN HIEROGLYPH A110A
+14486	ANATOLIAN HIEROGLYPH A110B
+14487	ANATOLIAN HIEROGLYPH A111
+14488	ANATOLIAN HIEROGLYPH A112
+14489	ANATOLIAN HIEROGLYPH A113
+1448A	ANATOLIAN HIEROGLYPH A114
+1448B	ANATOLIAN HIEROGLYPH A115
+1448C	ANATOLIAN HIEROGLYPH A115A
+1448D	ANATOLIAN HIEROGLYPH A116
+1448E	ANATOLIAN HIEROGLYPH A117
+1448F	ANATOLIAN HIEROGLYPH A118
+14490	ANATOLIAN HIEROGLYPH A119
+14491	ANATOLIAN HIEROGLYPH A120
+14492	ANATOLIAN HIEROGLYPH A121
+14493	ANATOLIAN HIEROGLYPH A122
+14494	ANATOLIAN HIEROGLYPH A123
+14495	ANATOLIAN HIEROGLYPH A124
+14496	ANATOLIAN HIEROGLYPH A125
+14497	ANATOLIAN HIEROGLYPH A125A
+14498	ANATOLIAN HIEROGLYPH A126
+14499	ANATOLIAN HIEROGLYPH A127
+1449A	ANATOLIAN HIEROGLYPH A128
+1449B	ANATOLIAN HIEROGLYPH A129
+1449C	ANATOLIAN HIEROGLYPH A130
+1449D	ANATOLIAN HIEROGLYPH A131
+1449E	ANATOLIAN HIEROGLYPH A132
+1449F	ANATOLIAN HIEROGLYPH A133
+144A0	ANATOLIAN HIEROGLYPH A134
+144A1	ANATOLIAN HIEROGLYPH A135
+144A2	ANATOLIAN HIEROGLYPH A135A
+144A3	ANATOLIAN HIEROGLYPH A136
+144A4	ANATOLIAN HIEROGLYPH A137
+144A5	ANATOLIAN HIEROGLYPH A138
+144A6	ANATOLIAN HIEROGLYPH A139
+144A7	ANATOLIAN HIEROGLYPH A140
+144A8	ANATOLIAN HIEROGLYPH A141
+144A9	ANATOLIAN HIEROGLYPH A142
+144AA	ANATOLIAN HIEROGLYPH A143
+144AB	ANATOLIAN HIEROGLYPH A144
+144AC	ANATOLIAN HIEROGLYPH A145
+144AD	ANATOLIAN HIEROGLYPH A146
+144AE	ANATOLIAN HIEROGLYPH A147
+144AF	ANATOLIAN HIEROGLYPH A148
+144B0	ANATOLIAN HIEROGLYPH A149
+144B1	ANATOLIAN HIEROGLYPH A150
+144B2	ANATOLIAN HIEROGLYPH A151
+144B3	ANATOLIAN HIEROGLYPH A152
+144B4	ANATOLIAN HIEROGLYPH A153
+144B5	ANATOLIAN HIEROGLYPH A154
+144B6	ANATOLIAN HIEROGLYPH A155
+144B7	ANATOLIAN HIEROGLYPH A156
+144B8	ANATOLIAN HIEROGLYPH A157
+144B9	ANATOLIAN HIEROGLYPH A158
+144BA	ANATOLIAN HIEROGLYPH A159
+144BB	ANATOLIAN HIEROGLYPH A160
+144BC	ANATOLIAN HIEROGLYPH A161
+144BD	ANATOLIAN HIEROGLYPH A162
+144BE	ANATOLIAN HIEROGLYPH A163
+144BF	ANATOLIAN HIEROGLYPH A164
+144C0	ANATOLIAN HIEROGLYPH A165
+144C1	ANATOLIAN HIEROGLYPH A166
+144C2	ANATOLIAN HIEROGLYPH A167
+144C3	ANATOLIAN HIEROGLYPH A168
+144C4	ANATOLIAN HIEROGLYPH A169
+144C5	ANATOLIAN HIEROGLYPH A170
+144C6	ANATOLIAN HIEROGLYPH A171
+144C7	ANATOLIAN HIEROGLYPH A172
+144C8	ANATOLIAN HIEROGLYPH A173
+144C9	ANATOLIAN HIEROGLYPH A174
+144CA	ANATOLIAN HIEROGLYPH A175
+144CB	ANATOLIAN HIEROGLYPH A176
+144CC	ANATOLIAN HIEROGLYPH A177
+144CD	ANATOLIAN HIEROGLYPH A178
+144CE	ANATOLIAN HIEROGLYPH A179
+144CF	ANATOLIAN HIEROGLYPH A180
+144D0	ANATOLIAN HIEROGLYPH A181
+144D1	ANATOLIAN HIEROGLYPH A182
+144D2	ANATOLIAN HIEROGLYPH A183
+144D3	ANATOLIAN HIEROGLYPH A184
+144D4	ANATOLIAN HIEROGLYPH A185
+144D5	ANATOLIAN HIEROGLYPH A186
+144D6	ANATOLIAN HIEROGLYPH A187
+144D7	ANATOLIAN HIEROGLYPH A188
+144D8	ANATOLIAN HIEROGLYPH A189
+144D9	ANATOLIAN HIEROGLYPH A190
+144DA	ANATOLIAN HIEROGLYPH A191
+144DB	ANATOLIAN HIEROGLYPH A192
+144DC	ANATOLIAN HIEROGLYPH A193
+144DD	ANATOLIAN HIEROGLYPH A194
+144DE	ANATOLIAN HIEROGLYPH A195
+144DF	ANATOLIAN HIEROGLYPH A196
+144E0	ANATOLIAN HIEROGLYPH A197
+144E1	ANATOLIAN HIEROGLYPH A198
+144E2	ANATOLIAN HIEROGLYPH A199
+144E3	ANATOLIAN HIEROGLYPH A200
+144E4	ANATOLIAN HIEROGLYPH A201
+144E5	ANATOLIAN HIEROGLYPH A202
+144E6	ANATOLIAN HIEROGLYPH A202A
+144E7	ANATOLIAN HIEROGLYPH A202B
+144E8	ANATOLIAN HIEROGLYPH A203
+144E9	ANATOLIAN HIEROGLYPH A204
+144EA	ANATOLIAN HIEROGLYPH A205
+144EB	ANATOLIAN HIEROGLYPH A206
+144EC	ANATOLIAN HIEROGLYPH A207
+144ED	ANATOLIAN HIEROGLYPH A207A
+144EE	ANATOLIAN HIEROGLYPH A208
+144EF	ANATOLIAN HIEROGLYPH A209
+144F0	ANATOLIAN HIEROGLYPH A209A
+144F1	ANATOLIAN HIEROGLYPH A210
+144F2	ANATOLIAN HIEROGLYPH A211
+144F3	ANATOLIAN HIEROGLYPH A212
+144F4	ANATOLIAN HIEROGLYPH A213
+144F5	ANATOLIAN HIEROGLYPH A214
+144F6	ANATOLIAN HIEROGLYPH A215
+144F7	ANATOLIAN HIEROGLYPH A215A
+144F8	ANATOLIAN HIEROGLYPH A216
+144F9	ANATOLIAN HIEROGLYPH A216A
+144FA	ANATOLIAN HIEROGLYPH A217
+144FB	ANATOLIAN HIEROGLYPH A218
+144FC	ANATOLIAN HIEROGLYPH A219
+144FD	ANATOLIAN HIEROGLYPH A220
+144FE	ANATOLIAN HIEROGLYPH A221
+144FF	ANATOLIAN HIEROGLYPH A222
+14500	ANATOLIAN HIEROGLYPH A223
+14501	ANATOLIAN HIEROGLYPH A224
+14502	ANATOLIAN HIEROGLYPH A225
+14503	ANATOLIAN HIEROGLYPH A226
+14504	ANATOLIAN HIEROGLYPH A227
+14505	ANATOLIAN HIEROGLYPH A227A
+14506	ANATOLIAN HIEROGLYPH A228
+14507	ANATOLIAN HIEROGLYPH A229
+14508	ANATOLIAN HIEROGLYPH A230
+14509	ANATOLIAN HIEROGLYPH A231
+1450A	ANATOLIAN HIEROGLYPH A232
+1450B	ANATOLIAN HIEROGLYPH A233
+1450C	ANATOLIAN HIEROGLYPH A234
+1450D	ANATOLIAN HIEROGLYPH A235
+1450E	ANATOLIAN HIEROGLYPH A236
+1450F	ANATOLIAN HIEROGLYPH A237
+14510	ANATOLIAN HIEROGLYPH A238
+14511	ANATOLIAN HIEROGLYPH A239
+14512	ANATOLIAN HIEROGLYPH A240
+14513	ANATOLIAN HIEROGLYPH A241
+14514	ANATOLIAN HIEROGLYPH A242
+14515	ANATOLIAN HIEROGLYPH A243
+14516	ANATOLIAN HIEROGLYPH A244
+14517	ANATOLIAN HIEROGLYPH A245
+14518	ANATOLIAN HIEROGLYPH A246
+14519	ANATOLIAN HIEROGLYPH A247
+1451A	ANATOLIAN HIEROGLYPH A248
+1451B	ANATOLIAN HIEROGLYPH A249
+1451C	ANATOLIAN HIEROGLYPH A250
+1451D	ANATOLIAN HIEROGLYPH A251
+1451E	ANATOLIAN HIEROGLYPH A252
+1451F	ANATOLIAN HIEROGLYPH A253
+14520	ANATOLIAN HIEROGLYPH A254
+14521	ANATOLIAN HIEROGLYPH A255
+14522	ANATOLIAN HIEROGLYPH A256
+14523	ANATOLIAN HIEROGLYPH A257
+14524	ANATOLIAN HIEROGLYPH A258
+14525	ANATOLIAN HIEROGLYPH A259
+14526	ANATOLIAN HIEROGLYPH A260
+14527	ANATOLIAN HIEROGLYPH A261
+14528	ANATOLIAN HIEROGLYPH A262
+14529	ANATOLIAN HIEROGLYPH A263
+1452A	ANATOLIAN HIEROGLYPH A264
+1452B	ANATOLIAN HIEROGLYPH A265
+1452C	ANATOLIAN HIEROGLYPH A266
+1452D	ANATOLIAN HIEROGLYPH A267
+1452E	ANATOLIAN HIEROGLYPH A267A
+1452F	ANATOLIAN HIEROGLYPH A268
+14530	ANATOLIAN HIEROGLYPH A269
+14531	ANATOLIAN HIEROGLYPH A270
+14532	ANATOLIAN HIEROGLYPH A271
+14533	ANATOLIAN HIEROGLYPH A272
+14534	ANATOLIAN HIEROGLYPH A273
+14535	ANATOLIAN HIEROGLYPH A274
+14536	ANATOLIAN HIEROGLYPH A275
+14537	ANATOLIAN HIEROGLYPH A276
+14538	ANATOLIAN HIEROGLYPH A277
+14539	ANATOLIAN HIEROGLYPH A278
+1453A	ANATOLIAN HIEROGLYPH A279
+1453B	ANATOLIAN HIEROGLYPH A280
+1453C	ANATOLIAN HIEROGLYPH A281
+1453D	ANATOLIAN HIEROGLYPH A282
+1453E	ANATOLIAN HIEROGLYPH A283
+1453F	ANATOLIAN HIEROGLYPH A284
+14540	ANATOLIAN HIEROGLYPH A285
+14541	ANATOLIAN HIEROGLYPH A286
+14542	ANATOLIAN HIEROGLYPH A287
+14543	ANATOLIAN HIEROGLYPH A288
+14544	ANATOLIAN HIEROGLYPH A289
+14545	ANATOLIAN HIEROGLYPH A289A
+14546	ANATOLIAN HIEROGLYPH A290
+14547	ANATOLIAN HIEROGLYPH A291
+14548	ANATOLIAN HIEROGLYPH A292
+14549	ANATOLIAN HIEROGLYPH A293
+1454A	ANATOLIAN HIEROGLYPH A294
+1454B	ANATOLIAN HIEROGLYPH A294A
+1454C	ANATOLIAN HIEROGLYPH A295
+1454D	ANATOLIAN HIEROGLYPH A296
+1454E	ANATOLIAN HIEROGLYPH A297
+1454F	ANATOLIAN HIEROGLYPH A298
+14550	ANATOLIAN HIEROGLYPH A299
+14551	ANATOLIAN HIEROGLYPH A299A
+14552	ANATOLIAN HIEROGLYPH A300
+14553	ANATOLIAN HIEROGLYPH A301
+14554	ANATOLIAN HIEROGLYPH A302
+14555	ANATOLIAN HIEROGLYPH A303
+14556	ANATOLIAN HIEROGLYPH A304
+14557	ANATOLIAN HIEROGLYPH A305
+14558	ANATOLIAN HIEROGLYPH A306
+14559	ANATOLIAN HIEROGLYPH A307
+1455A	ANATOLIAN HIEROGLYPH A308
+1455B	ANATOLIAN HIEROGLYPH A309
+1455C	ANATOLIAN HIEROGLYPH A309A
+1455D	ANATOLIAN HIEROGLYPH A310
+1455E	ANATOLIAN HIEROGLYPH A311
+1455F	ANATOLIAN HIEROGLYPH A312
+14560	ANATOLIAN HIEROGLYPH A313
+14561	ANATOLIAN HIEROGLYPH A314
+14562	ANATOLIAN HIEROGLYPH A315
+14563	ANATOLIAN HIEROGLYPH A316
+14564	ANATOLIAN HIEROGLYPH A317
+14565	ANATOLIAN HIEROGLYPH A318
+14566	ANATOLIAN HIEROGLYPH A319
+14567	ANATOLIAN HIEROGLYPH A320
+14568	ANATOLIAN HIEROGLYPH A321
+14569	ANATOLIAN HIEROGLYPH A322
+1456A	ANATOLIAN HIEROGLYPH A323
+1456B	ANATOLIAN HIEROGLYPH A324
+1456C	ANATOLIAN HIEROGLYPH A325
+1456D	ANATOLIAN HIEROGLYPH A326
+1456E	ANATOLIAN HIEROGLYPH A327
+1456F	ANATOLIAN HIEROGLYPH A328
+14570	ANATOLIAN HIEROGLYPH A329
+14571	ANATOLIAN HIEROGLYPH A329A
+14572	ANATOLIAN HIEROGLYPH A330
+14573	ANATOLIAN HIEROGLYPH A331
+14574	ANATOLIAN HIEROGLYPH A332A
+14575	ANATOLIAN HIEROGLYPH A332B
+14576	ANATOLIAN HIEROGLYPH A332C
+14577	ANATOLIAN HIEROGLYPH A333
+14578	ANATOLIAN HIEROGLYPH A334
+14579	ANATOLIAN HIEROGLYPH A335
+1457A	ANATOLIAN HIEROGLYPH A336
+1457B	ANATOLIAN HIEROGLYPH A336A
+1457C	ANATOLIAN HIEROGLYPH A336B
+1457D	ANATOLIAN HIEROGLYPH A336C
+1457E	ANATOLIAN HIEROGLYPH A337
+1457F	ANATOLIAN HIEROGLYPH A338
+14580	ANATOLIAN HIEROGLYPH A339
+14581	ANATOLIAN HIEROGLYPH A340
+14582	ANATOLIAN HIEROGLYPH A341
+14583	ANATOLIAN HIEROGLYPH A342
+14584	ANATOLIAN HIEROGLYPH A343
+14585	ANATOLIAN HIEROGLYPH A344
+14586	ANATOLIAN HIEROGLYPH A345
+14587	ANATOLIAN HIEROGLYPH A346
+14588	ANATOLIAN HIEROGLYPH A347
+14589	ANATOLIAN HIEROGLYPH A348
+1458A	ANATOLIAN HIEROGLYPH A349
+1458B	ANATOLIAN HIEROGLYPH A350
+1458C	ANATOLIAN HIEROGLYPH A351
+1458D	ANATOLIAN HIEROGLYPH A352
+1458E	ANATOLIAN HIEROGLYPH A353
+1458F	ANATOLIAN HIEROGLYPH A354
+14590	ANATOLIAN HIEROGLYPH A355
+14591	ANATOLIAN HIEROGLYPH A356
+14592	ANATOLIAN HIEROGLYPH A357
+14593	ANATOLIAN HIEROGLYPH A358
+14594	ANATOLIAN HIEROGLYPH A359
+14595	ANATOLIAN HIEROGLYPH A359A
+14596	ANATOLIAN HIEROGLYPH A360
+14597	ANATOLIAN HIEROGLYPH A361
+14598	ANATOLIAN HIEROGLYPH A362
+14599	ANATOLIAN HIEROGLYPH A363
+1459A	ANATOLIAN HIEROGLYPH A364
+1459B	ANATOLIAN HIEROGLYPH A364A
+1459C	ANATOLIAN HIEROGLYPH A365
+1459D	ANATOLIAN HIEROGLYPH A366
+1459E	ANATOLIAN HIEROGLYPH A367
+1459F	ANATOLIAN HIEROGLYPH A368
+145A0	ANATOLIAN HIEROGLYPH A368A
+145A1	ANATOLIAN HIEROGLYPH A369
+145A2	ANATOLIAN HIEROGLYPH A370
+145A3	ANATOLIAN HIEROGLYPH A371
+145A4	ANATOLIAN HIEROGLYPH A371A
+145A5	ANATOLIAN HIEROGLYPH A372
+145A6	ANATOLIAN HIEROGLYPH A373
+145A7	ANATOLIAN HIEROGLYPH A374
+145A8	ANATOLIAN HIEROGLYPH A375
+145A9	ANATOLIAN HIEROGLYPH A376
+145AA	ANATOLIAN HIEROGLYPH A377
+145AB	ANATOLIAN HIEROGLYPH A378
+145AC	ANATOLIAN HIEROGLYPH A379
+145AD	ANATOLIAN HIEROGLYPH A380
+145AE	ANATOLIAN HIEROGLYPH A381
+145AF	ANATOLIAN HIEROGLYPH A381A
+145B0	ANATOLIAN HIEROGLYPH A382
+145B1	ANATOLIAN HIEROGLYPH A383 RA OR RI
+145B2	ANATOLIAN HIEROGLYPH A383A
+145B3	ANATOLIAN HIEROGLYPH A384
+145B4	ANATOLIAN HIEROGLYPH A385
+145B5	ANATOLIAN HIEROGLYPH A386
+145B6	ANATOLIAN HIEROGLYPH A386A
+145B7	ANATOLIAN HIEROGLYPH A387
+145B8	ANATOLIAN HIEROGLYPH A388
+145B9	ANATOLIAN HIEROGLYPH A389
+145BA	ANATOLIAN HIEROGLYPH A390
+145BB	ANATOLIAN HIEROGLYPH A391
+145BC	ANATOLIAN HIEROGLYPH A392
+145BD	ANATOLIAN HIEROGLYPH A393 EIGHT
+145BE	ANATOLIAN HIEROGLYPH A394
+145BF	ANATOLIAN HIEROGLYPH A395
+145C0	ANATOLIAN HIEROGLYPH A396
+145C1	ANATOLIAN HIEROGLYPH A397
+145C2	ANATOLIAN HIEROGLYPH A398
+145C3	ANATOLIAN HIEROGLYPH A399
+145C4	ANATOLIAN HIEROGLYPH A400
+145C5	ANATOLIAN HIEROGLYPH A401
+145C6	ANATOLIAN HIEROGLYPH A402
+145C7	ANATOLIAN HIEROGLYPH A403
+145C8	ANATOLIAN HIEROGLYPH A404
+145C9	ANATOLIAN HIEROGLYPH A405
+145CA	ANATOLIAN HIEROGLYPH A406
+145CB	ANATOLIAN HIEROGLYPH A407
+145CC	ANATOLIAN HIEROGLYPH A408
+145CD	ANATOLIAN HIEROGLYPH A409
+145CE	ANATOLIAN HIEROGLYPH A410 BEGIN LOGOGRAM MARK
+145CF	ANATOLIAN HIEROGLYPH A410A END LOGOGRAM MARK
+145D0	ANATOLIAN HIEROGLYPH A411
+145D1	ANATOLIAN HIEROGLYPH A412
+145D2	ANATOLIAN HIEROGLYPH A413
+145D3	ANATOLIAN HIEROGLYPH A414
+145D4	ANATOLIAN HIEROGLYPH A415
+145D5	ANATOLIAN HIEROGLYPH A416
+145D6	ANATOLIAN HIEROGLYPH A417
+145D7	ANATOLIAN HIEROGLYPH A418
+145D8	ANATOLIAN HIEROGLYPH A419
+145D9	ANATOLIAN HIEROGLYPH A420
+145DA	ANATOLIAN HIEROGLYPH A421
+145DB	ANATOLIAN HIEROGLYPH A422
+145DC	ANATOLIAN HIEROGLYPH A423
+145DD	ANATOLIAN HIEROGLYPH A424
+145DE	ANATOLIAN HIEROGLYPH A425
+145DF	ANATOLIAN HIEROGLYPH A426
+145E0	ANATOLIAN HIEROGLYPH A427
+145E1	ANATOLIAN HIEROGLYPH A428
+145E2	ANATOLIAN HIEROGLYPH A429
+145E3	ANATOLIAN HIEROGLYPH A430
+145E4	ANATOLIAN HIEROGLYPH A431
+145E5	ANATOLIAN HIEROGLYPH A432
+145E6	ANATOLIAN HIEROGLYPH A433
+145E7	ANATOLIAN HIEROGLYPH A434
+145E8	ANATOLIAN HIEROGLYPH A435
+145E9	ANATOLIAN HIEROGLYPH A436
+145EA	ANATOLIAN HIEROGLYPH A437
+145EB	ANATOLIAN HIEROGLYPH A438
+145EC	ANATOLIAN HIEROGLYPH A439
+145ED	ANATOLIAN HIEROGLYPH A440
+145EE	ANATOLIAN HIEROGLYPH A441
+145EF	ANATOLIAN HIEROGLYPH A442
+145F0	ANATOLIAN HIEROGLYPH A443
+145F1	ANATOLIAN HIEROGLYPH A444
+145F2	ANATOLIAN HIEROGLYPH A445
+145F3	ANATOLIAN HIEROGLYPH A446
+145F4	ANATOLIAN HIEROGLYPH A447
+145F5	ANATOLIAN HIEROGLYPH A448
+145F6	ANATOLIAN HIEROGLYPH A449
+145F7	ANATOLIAN HIEROGLYPH A450
+145F8	ANATOLIAN HIEROGLYPH A450A
+145F9	ANATOLIAN HIEROGLYPH A451
+145FA	ANATOLIAN HIEROGLYPH A452
+145FB	ANATOLIAN HIEROGLYPH A453
+145FC	ANATOLIAN HIEROGLYPH A454
+145FD	ANATOLIAN HIEROGLYPH A455
+145FE	ANATOLIAN HIEROGLYPH A456
+145FF	ANATOLIAN HIEROGLYPH A457
+14600	ANATOLIAN HIEROGLYPH A457A
+14601	ANATOLIAN HIEROGLYPH A458
+14602	ANATOLIAN HIEROGLYPH A459
+14603	ANATOLIAN HIEROGLYPH A460
+14604	ANATOLIAN HIEROGLYPH A461
+14605	ANATOLIAN HIEROGLYPH A462
+14606	ANATOLIAN HIEROGLYPH A463
+14607	ANATOLIAN HIEROGLYPH A464
+14608	ANATOLIAN HIEROGLYPH A465
+14609	ANATOLIAN HIEROGLYPH A466
+1460A	ANATOLIAN HIEROGLYPH A467
+1460B	ANATOLIAN HIEROGLYPH A468
+1460C	ANATOLIAN HIEROGLYPH A469
+1460D	ANATOLIAN HIEROGLYPH A470
+1460E	ANATOLIAN HIEROGLYPH A471
+1460F	ANATOLIAN HIEROGLYPH A472
+14610	ANATOLIAN HIEROGLYPH A473
+14611	ANATOLIAN HIEROGLYPH A474
+14612	ANATOLIAN HIEROGLYPH A475
+14613	ANATOLIAN HIEROGLYPH A476
+14614	ANATOLIAN HIEROGLYPH A477
+14615	ANATOLIAN HIEROGLYPH A478
+14616	ANATOLIAN HIEROGLYPH A479
+14617	ANATOLIAN HIEROGLYPH A480
+14618	ANATOLIAN HIEROGLYPH A481
+14619	ANATOLIAN HIEROGLYPH A482
+1461A	ANATOLIAN HIEROGLYPH A483
+1461B	ANATOLIAN HIEROGLYPH A484
+1461C	ANATOLIAN HIEROGLYPH A485
+1461D	ANATOLIAN HIEROGLYPH A486
+1461E	ANATOLIAN HIEROGLYPH A487
+1461F	ANATOLIAN HIEROGLYPH A488
+14620	ANATOLIAN HIEROGLYPH A489
+14621	ANATOLIAN HIEROGLYPH A490
+14622	ANATOLIAN HIEROGLYPH A491
+14623	ANATOLIAN HIEROGLYPH A492
+14624	ANATOLIAN HIEROGLYPH A493
+14625	ANATOLIAN HIEROGLYPH A494
+14626	ANATOLIAN HIEROGLYPH A495
+14627	ANATOLIAN HIEROGLYPH A496
+14628	ANATOLIAN HIEROGLYPH A497
+14629	ANATOLIAN HIEROGLYPH A501
+1462A	ANATOLIAN HIEROGLYPH A502
+1462B	ANATOLIAN HIEROGLYPH A503
+1462C	ANATOLIAN HIEROGLYPH A504
+1462D	ANATOLIAN HIEROGLYPH A505
+1462E	ANATOLIAN HIEROGLYPH A506
+1462F	ANATOLIAN HIEROGLYPH A507
+14630	ANATOLIAN HIEROGLYPH A508
+14631	ANATOLIAN HIEROGLYPH A509
+14632	ANATOLIAN HIEROGLYPH A510
+14633	ANATOLIAN HIEROGLYPH A511
+14634	ANATOLIAN HIEROGLYPH A512
+14635	ANATOLIAN HIEROGLYPH A513
+14636	ANATOLIAN HIEROGLYPH A514
+14637	ANATOLIAN HIEROGLYPH A515
+14638	ANATOLIAN HIEROGLYPH A516
+14639	ANATOLIAN HIEROGLYPH A517
+1463A	ANATOLIAN HIEROGLYPH A518
+1463B	ANATOLIAN HIEROGLYPH A519
+1463C	ANATOLIAN HIEROGLYPH A520
+1463D	ANATOLIAN HIEROGLYPH A521
+1463E	ANATOLIAN HIEROGLYPH A522
+1463F	ANATOLIAN HIEROGLYPH A523
+14640	ANATOLIAN HIEROGLYPH A524
+14641	ANATOLIAN HIEROGLYPH A525
+14642	ANATOLIAN HIEROGLYPH A526
+14643	ANATOLIAN HIEROGLYPH A527
+14644	ANATOLIAN HIEROGLYPH A528
+14645	ANATOLIAN HIEROGLYPH A529
+14646	ANATOLIAN HIEROGLYPH A530
+16800	BAMUM LETTER PHASE-A NGKUE MFON
+16801	BAMUM LETTER PHASE-A GBIEE FON
+16802	BAMUM LETTER PHASE-A PON MFON PIPAEMGBIEE
+16803	BAMUM LETTER PHASE-A PON MFON PIPAEMBA
+16804	BAMUM LETTER PHASE-A NAA MFON
+16805	BAMUM LETTER PHASE-A SHUENSHUET
+16806	BAMUM LETTER PHASE-A TITA MFON
+16807	BAMUM LETTER PHASE-A NZA MFON
+16808	BAMUM LETTER PHASE-A SHINDA PA NJI
+16809	BAMUM LETTER PHASE-A PON PA NJI PIPAEMGBIEE
+1680A	BAMUM LETTER PHASE-A PON PA NJI PIPAEMBA
+1680B	BAMUM LETTER PHASE-A MAEMBGBIEE
+1680C	BAMUM LETTER PHASE-A TU MAEMBA
+1680D	BAMUM LETTER PHASE-A NGANGU
+1680E	BAMUM LETTER PHASE-A MAEMVEUX
+1680F	BAMUM LETTER PHASE-A MANSUAE
+16810	BAMUM LETTER PHASE-A MVEUAENGAM
+16811	BAMUM LETTER PHASE-A SEUNYAM
+16812	BAMUM LETTER PHASE-A NTOQPEN
+16813	BAMUM LETTER PHASE-A KEUKEUTNDA
+16814	BAMUM LETTER PHASE-A NKINDI
+16815	BAMUM LETTER PHASE-A SUU
+16816	BAMUM LETTER PHASE-A NGKUENZEUM
+16817	BAMUM LETTER PHASE-A LAPAQ
+16818	BAMUM LETTER PHASE-A LET KUT
+16819	BAMUM LETTER PHASE-A NTAP MFAA
+1681A	BAMUM LETTER PHASE-A MAEKEUP
+1681B	BAMUM LETTER PHASE-A PASHAE
+1681C	BAMUM LETTER PHASE-A GHEUAERAE
+1681D	BAMUM LETTER PHASE-A PAMSHAE
+1681E	BAMUM LETTER PHASE-A MON NGGEUAET
+1681F	BAMUM LETTER PHASE-A NZUN MEUT
+16820	BAMUM LETTER PHASE-A U YUQ NAE
+16821	BAMUM LETTER PHASE-A GHEUAEGHEUAE
+16822	BAMUM LETTER PHASE-A NTAP NTAA
+16823	BAMUM LETTER PHASE-A SISA
+16824	BAMUM LETTER PHASE-A MGBASA
+16825	BAMUM LETTER PHASE-A MEUNJOMNDEUQ
+16826	BAMUM LETTER PHASE-A MOOMPUQ
+16827	BAMUM LETTER PHASE-A KAFA
+16828	BAMUM LETTER PHASE-A PA LEERAEWA
+16829	BAMUM LETTER PHASE-A NDA LEERAEWA
+1682A	BAMUM LETTER PHASE-A PET
+1682B	BAMUM LETTER PHASE-A MAEMKPEN
+1682C	BAMUM LETTER PHASE-A NIKA
+1682D	BAMUM LETTER PHASE-A PUP
+1682E	BAMUM LETTER PHASE-A TUAEP
+1682F	BAMUM LETTER PHASE-A LUAEP
+16830	BAMUM LETTER PHASE-A SONJAM
+16831	BAMUM LETTER PHASE-A TEUTEUWEN
+16832	BAMUM LETTER PHASE-A MAENYI
+16833	BAMUM LETTER PHASE-A KET
+16834	BAMUM LETTER PHASE-A NDAANGGEUAET
+16835	BAMUM LETTER PHASE-A KUOQ
+16836	BAMUM LETTER PHASE-A MOOMEUT
+16837	BAMUM LETTER PHASE-A SHUM
+16838	BAMUM LETTER PHASE-A LOMMAE
+16839	BAMUM LETTER PHASE-A FIRI
+1683A	BAMUM LETTER PHASE-A ROM
+1683B	BAMUM LETTER PHASE-A KPOQ
+1683C	BAMUM LETTER PHASE-A SOQ
+1683D	BAMUM LETTER PHASE-A MAP PIEET
+1683E	BAMUM LETTER PHASE-A SHIRAE
+1683F	BAMUM LETTER PHASE-A NTAP
+16840	BAMUM LETTER PHASE-A SHOQ NSHUT YUM
+16841	BAMUM LETTER PHASE-A NYIT MONGKEUAEQ
+16842	BAMUM LETTER PHASE-A PAARAE
+16843	BAMUM LETTER PHASE-A NKAARAE
+16844	BAMUM LETTER PHASE-A UNKNOWN
+16845	BAMUM LETTER PHASE-A NGGEN
+16846	BAMUM LETTER PHASE-A MAESI
+16847	BAMUM LETTER PHASE-A NJAM
+16848	BAMUM LETTER PHASE-A MBANYI
+16849	BAMUM LETTER PHASE-A NYET
+1684A	BAMUM LETTER PHASE-A TEUAEN
+1684B	BAMUM LETTER PHASE-A SOT
+1684C	BAMUM LETTER PHASE-A PAAM
+1684D	BAMUM LETTER PHASE-A NSHIEE
+1684E	BAMUM LETTER PHASE-A MAEM
+1684F	BAMUM LETTER PHASE-A NYI
+16850	BAMUM LETTER PHASE-A KAQ
+16851	BAMUM LETTER PHASE-A NSHA
+16852	BAMUM LETTER PHASE-A VEE
+16853	BAMUM LETTER PHASE-A LU
+16854	BAMUM LETTER PHASE-A NEN
+16855	BAMUM LETTER PHASE-A NAQ
+16856	BAMUM LETTER PHASE-A MBAQ
+16857	BAMUM LETTER PHASE-B NSHUET
+16858	BAMUM LETTER PHASE-B TU MAEMGBIEE
+16859	BAMUM LETTER PHASE-B SIEE
+1685A	BAMUM LETTER PHASE-B SET TU
+1685B	BAMUM LETTER PHASE-B LOM NTEUM
+1685C	BAMUM LETTER PHASE-B MBA MAELEE
+1685D	BAMUM LETTER PHASE-B KIEEM
+1685E	BAMUM LETTER PHASE-B YEURAE
+1685F	BAMUM LETTER PHASE-B MBAARAE
+16860	BAMUM LETTER PHASE-B KAM
+16861	BAMUM LETTER PHASE-B PEESHI
+16862	BAMUM LETTER PHASE-B YAFU LEERAEWA
+16863	BAMUM LETTER PHASE-B LAM NSHUT NYAM
+16864	BAMUM LETTER PHASE-B NTIEE SHEUOQ
+16865	BAMUM LETTER PHASE-B NDU NJAA
+16866	BAMUM LETTER PHASE-B GHEUGHEUAEM
+16867	BAMUM LETTER PHASE-B PIT
+16868	BAMUM LETTER PHASE-B TU NSIEE
+16869	BAMUM LETTER PHASE-B SHET NJAQ
+1686A	BAMUM LETTER PHASE-B SHEUAEQTU
+1686B	BAMUM LETTER PHASE-B MFON TEUAEQ
+1686C	BAMUM LETTER PHASE-B MBIT MBAAKET
+1686D	BAMUM LETTER PHASE-B NYI NTEUM
+1686E	BAMUM LETTER PHASE-B KEUPUQ
+1686F	BAMUM LETTER PHASE-B GHEUGHEN
+16870	BAMUM LETTER PHASE-B KEUYEUX
+16871	BAMUM LETTER PHASE-B LAANAE
+16872	BAMUM LETTER PHASE-B PARUM
+16873	BAMUM LETTER PHASE-B VEUM
+16874	BAMUM LETTER PHASE-B NGKINDI MVOP
+16875	BAMUM LETTER PHASE-B NGGEU MBU
+16876	BAMUM LETTER PHASE-B WUAET
+16877	BAMUM LETTER PHASE-B SAKEUAE
+16878	BAMUM LETTER PHASE-B TAAM
+16879	BAMUM LETTER PHASE-B MEUQ
+1687A	BAMUM LETTER PHASE-B NGGUOQ
+1687B	BAMUM LETTER PHASE-B NGGUOQ LARGE
+1687C	BAMUM LETTER PHASE-B MFIYAQ
+1687D	BAMUM LETTER PHASE-B SUE
+1687E	BAMUM LETTER PHASE-B MBEURI
+1687F	BAMUM LETTER PHASE-B MONTIEEN
+16880	BAMUM LETTER PHASE-B NYAEMAE
+16881	BAMUM LETTER PHASE-B PUNGAAM
+16882	BAMUM LETTER PHASE-B MEUT NGGEET
+16883	BAMUM LETTER PHASE-B FEUX
+16884	BAMUM LETTER PHASE-B MBUOQ
+16885	BAMUM LETTER PHASE-B FEE
+16886	BAMUM LETTER PHASE-B KEUAEM
+16887	BAMUM LETTER PHASE-B MA NJEUAENA
+16888	BAMUM LETTER PHASE-B MA NJUQA
+16889	BAMUM LETTER PHASE-B LET
+1688A	BAMUM LETTER PHASE-B NGGAAM
+1688B	BAMUM LETTER PHASE-B NSEN
+1688C	BAMUM LETTER PHASE-B MA
+1688D	BAMUM LETTER PHASE-B KIQ
+1688E	BAMUM LETTER PHASE-B NGOM
+1688F	BAMUM LETTER PHASE-C NGKUE MAEMBA
+16890	BAMUM LETTER PHASE-C NZA
+16891	BAMUM LETTER PHASE-C YUM
+16892	BAMUM LETTER PHASE-C WANGKUOQ
+16893	BAMUM LETTER PHASE-C NGGEN
+16894	BAMUM LETTER PHASE-C NDEUAEREE
+16895	BAMUM LETTER PHASE-C NGKAQ
+16896	BAMUM LETTER PHASE-C GHARAE
+16897	BAMUM LETTER PHASE-C MBEEKEET
+16898	BAMUM LETTER PHASE-C GBAYI
+16899	BAMUM LETTER PHASE-C NYIR MKPARAQ MEUN
+1689A	BAMUM LETTER PHASE-C NTU MBIT
+1689B	BAMUM LETTER PHASE-C MBEUM
+1689C	BAMUM LETTER PHASE-C PIRIEEN
+1689D	BAMUM LETTER PHASE-C NDOMBU
+1689E	BAMUM LETTER PHASE-C MBAA CABBAGE-TREE
+1689F	BAMUM LETTER PHASE-C KEUSHEUAEP
+168A0	BAMUM LETTER PHASE-C GHAP
+168A1	BAMUM LETTER PHASE-C KEUKAQ
+168A2	BAMUM LETTER PHASE-C YU MUOMAE
+168A3	BAMUM LETTER PHASE-C NZEUM
+168A4	BAMUM LETTER PHASE-C MBUE
+168A5	BAMUM LETTER PHASE-C NSEUAEN
+168A6	BAMUM LETTER PHASE-C MBIT
+168A7	BAMUM LETTER PHASE-C YEUQ
+168A8	BAMUM LETTER PHASE-C KPARAQ
+168A9	BAMUM LETTER PHASE-C KAA
+168AA	BAMUM LETTER PHASE-C SEUX
+168AB	BAMUM LETTER PHASE-C NDIDA
+168AC	BAMUM LETTER PHASE-C TAASHAE
+168AD	BAMUM LETTER PHASE-C NJUEQ
+168AE	BAMUM LETTER PHASE-C TITA YUE
+168AF	BAMUM LETTER PHASE-C SUAET
+168B0	BAMUM LETTER PHASE-C NGGUAEN NYAM
+168B1	BAMUM LETTER PHASE-C VEUX
+168B2	BAMUM LETTER PHASE-C NANSANAQ
+168B3	BAMUM LETTER PHASE-C MA KEUAERI
+168B4	BAMUM LETTER PHASE-C NTAA
+168B5	BAMUM LETTER PHASE-C NGGUON
+168B6	BAMUM LETTER PHASE-C LAP
+168B7	BAMUM LETTER PHASE-C MBIRIEEN
+168B8	BAMUM LETTER PHASE-C MGBASAQ
+168B9	BAMUM LETTER PHASE-C NTEUNGBA
+168BA	BAMUM LETTER PHASE-C TEUTEUX
+168BB	BAMUM LETTER PHASE-C NGGUM
+168BC	BAMUM LETTER PHASE-C FUE
+168BD	BAMUM LETTER PHASE-C NDEUT
+168BE	BAMUM LETTER PHASE-C NSA
+168BF	BAMUM LETTER PHASE-C NSHAQ
+168C0	BAMUM LETTER PHASE-C BUNG
+168C1	BAMUM LETTER PHASE-C VEUAEPEN
+168C2	BAMUM LETTER PHASE-C MBERAE
+168C3	BAMUM LETTER PHASE-C RU
+168C4	BAMUM LETTER PHASE-C NJAEM
+168C5	BAMUM LETTER PHASE-C LAM
+168C6	BAMUM LETTER PHASE-C TITUAEP
+168C7	BAMUM LETTER PHASE-C NSUOT NGOM
+168C8	BAMUM LETTER PHASE-C NJEEEE
+168C9	BAMUM LETTER PHASE-C KET
+168CA	BAMUM LETTER PHASE-C NGGU
+168CB	BAMUM LETTER PHASE-C MAESI
+168CC	BAMUM LETTER PHASE-C MBUAEM
+168CD	BAMUM LETTER PHASE-C LU
+168CE	BAMUM LETTER PHASE-C KUT
+168CF	BAMUM LETTER PHASE-C NJAM
+168D0	BAMUM LETTER PHASE-C NGOM
+168D1	BAMUM LETTER PHASE-C WUP
+168D2	BAMUM LETTER PHASE-C NGGUEET
+168D3	BAMUM LETTER PHASE-C NSOM
+168D4	BAMUM LETTER PHASE-C NTEN
+168D5	BAMUM LETTER PHASE-C KUOP NKAARAE
+168D6	BAMUM LETTER PHASE-C NSUN
+168D7	BAMUM LETTER PHASE-C NDAM
+168D8	BAMUM LETTER PHASE-C MA NSIEE
+168D9	BAMUM LETTER PHASE-C YAA
+168DA	BAMUM LETTER PHASE-C NDAP
+168DB	BAMUM LETTER PHASE-C SHUEQ
+168DC	BAMUM LETTER PHASE-C SETFON
+168DD	BAMUM LETTER PHASE-C MBI
+168DE	BAMUM LETTER PHASE-C MAEMBA
+168DF	BAMUM LETTER PHASE-C MBANYI
+168E0	BAMUM LETTER PHASE-C KEUSEUX
+168E1	BAMUM LETTER PHASE-C MBEUX
+168E2	BAMUM LETTER PHASE-C KEUM
+168E3	BAMUM LETTER PHASE-C MBAA PICKET
+168E4	BAMUM LETTER PHASE-C YUWOQ
+168E5	BAMUM LETTER PHASE-C NJEUX
+168E6	BAMUM LETTER PHASE-C MIEE
+168E7	BAMUM LETTER PHASE-C MUAE
+168E8	BAMUM LETTER PHASE-C SHIQ
+168E9	BAMUM LETTER PHASE-C KEN LAW
+168EA	BAMUM LETTER PHASE-C KEN FATIGUE
+168EB	BAMUM LETTER PHASE-C NGAQ
+168EC	BAMUM LETTER PHASE-C NAQ
+168ED	BAMUM LETTER PHASE-C LIQ
+168EE	BAMUM LETTER PHASE-C PIN
+168EF	BAMUM LETTER PHASE-C PEN
+168F0	BAMUM LETTER PHASE-C TET
+168F1	BAMUM LETTER PHASE-D MBUO
+168F2	BAMUM LETTER PHASE-D WAP
+168F3	BAMUM LETTER PHASE-D NJI
+168F4	BAMUM LETTER PHASE-D MFON
+168F5	BAMUM LETTER PHASE-D NJIEE
+168F6	BAMUM LETTER PHASE-D LIEE
+168F7	BAMUM LETTER PHASE-D NJEUT
+168F8	BAMUM LETTER PHASE-D NSHEE
+168F9	BAMUM LETTER PHASE-D NGGAAMAE
+168FA	BAMUM LETTER PHASE-D NYAM
+168FB	BAMUM LETTER PHASE-D WUAEN
+168FC	BAMUM LETTER PHASE-D NGKUN
+168FD	BAMUM LETTER PHASE-D SHEE
+168FE	BAMUM LETTER PHASE-D NGKAP
+168FF	BAMUM LETTER PHASE-D KEUAETMEUN
+16900	BAMUM LETTER PHASE-D TEUT
+16901	BAMUM LETTER PHASE-D SHEUAE
+16902	BAMUM LETTER PHASE-D NJAP
+16903	BAMUM LETTER PHASE-D SUE
+16904	BAMUM LETTER PHASE-D KET
+16905	BAMUM LETTER PHASE-D YAEMMAE
+16906	BAMUM LETTER PHASE-D KUOM
+16907	BAMUM LETTER PHASE-D SAP
+16908	BAMUM LETTER PHASE-D MFEUT
+16909	BAMUM LETTER PHASE-D NDEUX
+1690A	BAMUM LETTER PHASE-D MALEERI
+1690B	BAMUM LETTER PHASE-D MEUT
+1690C	BAMUM LETTER PHASE-D SEUAEQ
+1690D	BAMUM LETTER PHASE-D YEN
+1690E	BAMUM LETTER PHASE-D NJEUAEM
+1690F	BAMUM LETTER PHASE-D KEUOT MBUAE
+16910	BAMUM LETTER PHASE-D NGKEURI
+16911	BAMUM LETTER PHASE-D TU
+16912	BAMUM LETTER PHASE-D GHAA
+16913	BAMUM LETTER PHASE-D NGKYEE
+16914	BAMUM LETTER PHASE-D FEUFEUAET
+16915	BAMUM LETTER PHASE-D NDEE
+16916	BAMUM LETTER PHASE-D MGBOFUM
+16917	BAMUM LETTER PHASE-D LEUAEP
+16918	BAMUM LETTER PHASE-D NDON
+16919	BAMUM LETTER PHASE-D MONI
+1691A	BAMUM LETTER PHASE-D MGBEUN
+1691B	BAMUM LETTER PHASE-D PUUT
+1691C	BAMUM LETTER PHASE-D MGBIEE
+1691D	BAMUM LETTER PHASE-D MFO
+1691E	BAMUM LETTER PHASE-D LUM
+1691F	BAMUM LETTER PHASE-D NSIEEP
+16920	BAMUM LETTER PHASE-D MBAA
+16921	BAMUM LETTER PHASE-D KWAET
+16922	BAMUM LETTER PHASE-D NYET
+16923	BAMUM LETTER PHASE-D TEUAEN
+16924	BAMUM LETTER PHASE-D SOT
+16925	BAMUM LETTER PHASE-D YUWOQ
+16926	BAMUM LETTER PHASE-D KEUM
+16927	BAMUM LETTER PHASE-D RAEM
+16928	BAMUM LETTER PHASE-D TEEEE
+16929	BAMUM LETTER PHASE-D NGKEUAEQ
+1692A	BAMUM LETTER PHASE-D MFEUAE
+1692B	BAMUM LETTER PHASE-D NSIEET
+1692C	BAMUM LETTER PHASE-D KEUP
+1692D	BAMUM LETTER PHASE-D PIP
+1692E	BAMUM LETTER PHASE-D PEUTAE
+1692F	BAMUM LETTER PHASE-D NYUE
+16930	BAMUM LETTER PHASE-D LET
+16931	BAMUM LETTER PHASE-D NGGAAM
+16932	BAMUM LETTER PHASE-D MFIEE
+16933	BAMUM LETTER PHASE-D NGGWAEN
+16934	BAMUM LETTER PHASE-D YUOM
+16935	BAMUM LETTER PHASE-D PAP
+16936	BAMUM LETTER PHASE-D YUOP
+16937	BAMUM LETTER PHASE-D NDAM
+16938	BAMUM LETTER PHASE-D NTEUM
+16939	BAMUM LETTER PHASE-D SUAE
+1693A	BAMUM LETTER PHASE-D KUN
+1693B	BAMUM LETTER PHASE-D NGGEUX
+1693C	BAMUM LETTER PHASE-D NGKIEE
+1693D	BAMUM LETTER PHASE-D TUOT
+1693E	BAMUM LETTER PHASE-D MEUN
+1693F	BAMUM LETTER PHASE-D KUQ
+16940	BAMUM LETTER PHASE-D NSUM
+16941	BAMUM LETTER PHASE-D TEUN
+16942	BAMUM LETTER PHASE-D MAENJET
+16943	BAMUM LETTER PHASE-D NGGAP
+16944	BAMUM LETTER PHASE-D LEUM
+16945	BAMUM LETTER PHASE-D NGGUOM
+16946	BAMUM LETTER PHASE-D NSHUT
+16947	BAMUM LETTER PHASE-D NJUEQ
+16948	BAMUM LETTER PHASE-D GHEUAE
+16949	BAMUM LETTER PHASE-D KU
+1694A	BAMUM LETTER PHASE-D REN OLD
+1694B	BAMUM LETTER PHASE-D TAE
+1694C	BAMUM LETTER PHASE-D TOQ
+1694D	BAMUM LETTER PHASE-D NYI
+1694E	BAMUM LETTER PHASE-D RII
+1694F	BAMUM LETTER PHASE-D LEEEE
+16950	BAMUM LETTER PHASE-D MEEEE
+16951	BAMUM LETTER PHASE-D M
+16952	BAMUM LETTER PHASE-D SUU
+16953	BAMUM LETTER PHASE-D MU
+16954	BAMUM LETTER PHASE-D SHII
+16955	BAMUM LETTER PHASE-D SHEUX
+16956	BAMUM LETTER PHASE-D KYEE
+16957	BAMUM LETTER PHASE-D NU
+16958	BAMUM LETTER PHASE-D SHU
+16959	BAMUM LETTER PHASE-D NTEE
+1695A	BAMUM LETTER PHASE-D PEE
+1695B	BAMUM LETTER PHASE-D NI
+1695C	BAMUM LETTER PHASE-D SHOQ
+1695D	BAMUM LETTER PHASE-D PUQ
+1695E	BAMUM LETTER PHASE-D MVOP
+1695F	BAMUM LETTER PHASE-D LOQ
+16960	BAMUM LETTER PHASE-D REN MUCH
+16961	BAMUM LETTER PHASE-D TI
+16962	BAMUM LETTER PHASE-D NTUU
+16963	BAMUM LETTER PHASE-D MBAA SEVEN
+16964	BAMUM LETTER PHASE-D SAQ
+16965	BAMUM LETTER PHASE-D FAA
+16966	BAMUM LETTER PHASE-E NDAP
+16967	BAMUM LETTER PHASE-E TOON
+16968	BAMUM LETTER PHASE-E MBEUM
+16969	BAMUM LETTER PHASE-E LAP
+1696A	BAMUM LETTER PHASE-E VOM
+1696B	BAMUM LETTER PHASE-E LOON
+1696C	BAMUM LETTER PHASE-E PAA
+1696D	BAMUM LETTER PHASE-E SOM
+1696E	BAMUM LETTER PHASE-E RAQ
+1696F	BAMUM LETTER PHASE-E NSHUOP
+16970	BAMUM LETTER PHASE-E NDUN
+16971	BAMUM LETTER PHASE-E PUAE
+16972	BAMUM LETTER PHASE-E TAM
+16973	BAMUM LETTER PHASE-E NGKA
+16974	BAMUM LETTER PHASE-E KPEUX
+16975	BAMUM LETTER PHASE-E WUO
+16976	BAMUM LETTER PHASE-E SEE
+16977	BAMUM LETTER PHASE-E NGGEUAET
+16978	BAMUM LETTER PHASE-E PAAM
+16979	BAMUM LETTER PHASE-E TOO
+1697A	BAMUM LETTER PHASE-E KUOP
+1697B	BAMUM LETTER PHASE-E LOM
+1697C	BAMUM LETTER PHASE-E NSHIEE
+1697D	BAMUM LETTER PHASE-E NGOP
+1697E	BAMUM LETTER PHASE-E MAEM
+1697F	BAMUM LETTER PHASE-E NGKEUX
+16980	BAMUM LETTER PHASE-E NGOQ
+16981	BAMUM LETTER PHASE-E NSHUE
+16982	BAMUM LETTER PHASE-E RIMGBA
+16983	BAMUM LETTER PHASE-E NJEUX
+16984	BAMUM LETTER PHASE-E PEEM
+16985	BAMUM LETTER PHASE-E SAA
+16986	BAMUM LETTER PHASE-E NGGURAE
+16987	BAMUM LETTER PHASE-E MGBA
+16988	BAMUM LETTER PHASE-E GHEUX
+16989	BAMUM LETTER PHASE-E NGKEUAEM
+1698A	BAMUM LETTER PHASE-E NJAEMLI
+1698B	BAMUM LETTER PHASE-E MAP
+1698C	BAMUM LETTER PHASE-E LOOT
+1698D	BAMUM LETTER PHASE-E NGGEEEE
+1698E	BAMUM LETTER PHASE-E NDIQ
+1698F	BAMUM LETTER PHASE-E TAEN NTEUM
+16990	BAMUM LETTER PHASE-E SET
+16991	BAMUM LETTER PHASE-E PUM
+16992	BAMUM LETTER PHASE-E NDAA SOFTNESS
+16993	BAMUM LETTER PHASE-E NGGUAESHAE NYAM
+16994	BAMUM LETTER PHASE-E YIEE
+16995	BAMUM LETTER PHASE-E GHEUN
+16996	BAMUM LETTER PHASE-E TUAE
+16997	BAMUM LETTER PHASE-E YEUAE
+16998	BAMUM LETTER PHASE-E PO
+16999	BAMUM LETTER PHASE-E TUMAE
+1699A	BAMUM LETTER PHASE-E KEUAE
+1699B	BAMUM LETTER PHASE-E SUAEN
+1699C	BAMUM LETTER PHASE-E TEUAEQ
+1699D	BAMUM LETTER PHASE-E VEUAE
+1699E	BAMUM LETTER PHASE-E WEUX
+1699F	BAMUM LETTER PHASE-E LAAM
+169A0	BAMUM LETTER PHASE-E PU
+169A1	BAMUM LETTER PHASE-E TAAQ
+169A2	BAMUM LETTER PHASE-E GHAAMAE
+169A3	BAMUM LETTER PHASE-E NGEUREUT
+169A4	BAMUM LETTER PHASE-E SHEUAEQ
+169A5	BAMUM LETTER PHASE-E MGBEN
+169A6	BAMUM LETTER PHASE-E MBEE
+169A7	BAMUM LETTER PHASE-E NZAQ
+169A8	BAMUM LETTER PHASE-E NKOM
+169A9	BAMUM LETTER PHASE-E GBET
+169AA	BAMUM LETTER PHASE-E TUM
+169AB	BAMUM LETTER PHASE-E KUET
+169AC	BAMUM LETTER PHASE-E YAP
+169AD	BAMUM LETTER PHASE-E NYI CLEAVER
+169AE	BAMUM LETTER PHASE-E YIT
+169AF	BAMUM LETTER PHASE-E MFEUQ
+169B0	BAMUM LETTER PHASE-E NDIAQ
+169B1	BAMUM LETTER PHASE-E PIEEQ
+169B2	BAMUM LETTER PHASE-E YUEQ
+169B3	BAMUM LETTER PHASE-E LEUAEM
+169B4	BAMUM LETTER PHASE-E FUE
+169B5	BAMUM LETTER PHASE-E GBEUX
+169B6	BAMUM LETTER PHASE-E NGKUP
+169B7	BAMUM LETTER PHASE-E KET
+169B8	BAMUM LETTER PHASE-E MAE
+169B9	BAMUM LETTER PHASE-E NGKAAMI
+169BA	BAMUM LETTER PHASE-E GHET
+169BB	BAMUM LETTER PHASE-E FA
+169BC	BAMUM LETTER PHASE-E NTUM
+169BD	BAMUM LETTER PHASE-E PEUT
+169BE	BAMUM LETTER PHASE-E YEUM
+169BF	BAMUM LETTER PHASE-E NGGEUAE
+169C0	BAMUM LETTER PHASE-E NYI BETWEEN
+169C1	BAMUM LETTER PHASE-E NZUQ
+169C2	BAMUM LETTER PHASE-E POON
+169C3	BAMUM LETTER PHASE-E MIEE
+169C4	BAMUM LETTER PHASE-E FUET
+169C5	BAMUM LETTER PHASE-E NAE
+169C6	BAMUM LETTER PHASE-E MUAE
+169C7	BAMUM LETTER PHASE-E GHEUAE
+169C8	BAMUM LETTER PHASE-E FU I
+169C9	BAMUM LETTER PHASE-E MVI
+169CA	BAMUM LETTER PHASE-E PUAQ
+169CB	BAMUM LETTER PHASE-E NGKUM
+169CC	BAMUM LETTER PHASE-E KUT
+169CD	BAMUM LETTER PHASE-E PIET
+169CE	BAMUM LETTER PHASE-E NTAP
+169CF	BAMUM LETTER PHASE-E YEUAET
+169D0	BAMUM LETTER PHASE-E NGGUP
+169D1	BAMUM LETTER PHASE-E PA PEOPLE
+169D2	BAMUM LETTER PHASE-E FU CALL
+169D3	BAMUM LETTER PHASE-E FOM
+169D4	BAMUM LETTER PHASE-E NJEE
+169D5	BAMUM LETTER PHASE-E A
+169D6	BAMUM LETTER PHASE-E TOQ
+169D7	BAMUM LETTER PHASE-E O
+169D8	BAMUM LETTER PHASE-E I
+169D9	BAMUM LETTER PHASE-E LAQ
+169DA	BAMUM LETTER PHASE-E PA PLURAL
+169DB	BAMUM LETTER PHASE-E TAA
+169DC	BAMUM LETTER PHASE-E TAQ
+169DD	BAMUM LETTER PHASE-E NDAA MY HOUSE
+169DE	BAMUM LETTER PHASE-E SHIQ
+169DF	BAMUM LETTER PHASE-E YEUX
+169E0	BAMUM LETTER PHASE-E NGUAE
+169E1	BAMUM LETTER PHASE-E YUAEN
+169E2	BAMUM LETTER PHASE-E YOQ SWIMMING
+169E3	BAMUM LETTER PHASE-E YOQ COVER
+169E4	BAMUM LETTER PHASE-E YUQ
+169E5	BAMUM LETTER PHASE-E YUN
+169E6	BAMUM LETTER PHASE-E KEUX
+169E7	BAMUM LETTER PHASE-E PEUX
+169E8	BAMUM LETTER PHASE-E NJEE EPOCH
+169E9	BAMUM LETTER PHASE-E PUE
+169EA	BAMUM LETTER PHASE-E WUE
+169EB	BAMUM LETTER PHASE-E FEE
+169EC	BAMUM LETTER PHASE-E VEE
+169ED	BAMUM LETTER PHASE-E LU
+169EE	BAMUM LETTER PHASE-E MI
+169EF	BAMUM LETTER PHASE-E REUX
+169F0	BAMUM LETTER PHASE-E RAE
+169F1	BAMUM LETTER PHASE-E NGUAET
+169F2	BAMUM LETTER PHASE-E NGA
+169F3	BAMUM LETTER PHASE-E SHO
+169F4	BAMUM LETTER PHASE-E SHOQ
+169F5	BAMUM LETTER PHASE-E FU REMEDY
+169F6	BAMUM LETTER PHASE-E NA
+169F7	BAMUM LETTER PHASE-E PI
+169F8	BAMUM LETTER PHASE-E LOQ
+169F9	BAMUM LETTER PHASE-E KO
+169FA	BAMUM LETTER PHASE-E MEN
+169FB	BAMUM LETTER PHASE-E MA
+169FC	BAMUM LETTER PHASE-E MAQ
+169FD	BAMUM LETTER PHASE-E TEU
+169FE	BAMUM LETTER PHASE-E KI
+169FF	BAMUM LETTER PHASE-E MON
+16A00	BAMUM LETTER PHASE-E TEN
+16A01	BAMUM LETTER PHASE-E FAQ
+16A02	BAMUM LETTER PHASE-E GHOM
+16A03	BAMUM LETTER PHASE-F KA
+16A04	BAMUM LETTER PHASE-F U
+16A05	BAMUM LETTER PHASE-F KU
+16A06	BAMUM LETTER PHASE-F EE
+16A07	BAMUM LETTER PHASE-F REE
+16A08	BAMUM LETTER PHASE-F TAE
+16A09	BAMUM LETTER PHASE-F NYI
+16A0A	BAMUM LETTER PHASE-F LA
+16A0B	BAMUM LETTER PHASE-F RII
+16A0C	BAMUM LETTER PHASE-F RIEE
+16A0D	BAMUM LETTER PHASE-F MEEEE
+16A0E	BAMUM LETTER PHASE-F TAA
+16A0F	BAMUM LETTER PHASE-F NDAA
+16A10	BAMUM LETTER PHASE-F NJAEM
+16A11	BAMUM LETTER PHASE-F M
+16A12	BAMUM LETTER PHASE-F SUU
+16A13	BAMUM LETTER PHASE-F SHII
+16A14	BAMUM LETTER PHASE-F SI
+16A15	BAMUM LETTER PHASE-F SEUX
+16A16	BAMUM LETTER PHASE-F KYEE
+16A17	BAMUM LETTER PHASE-F KET
+16A18	BAMUM LETTER PHASE-F NUAE
+16A19	BAMUM LETTER PHASE-F NU
+16A1A	BAMUM LETTER PHASE-F NJUAE
+16A1B	BAMUM LETTER PHASE-F YOQ
+16A1C	BAMUM LETTER PHASE-F SHU
+16A1D	BAMUM LETTER PHASE-F YA
+16A1E	BAMUM LETTER PHASE-F NSHA
+16A1F	BAMUM LETTER PHASE-F PEUX
+16A20	BAMUM LETTER PHASE-F NTEE
+16A21	BAMUM LETTER PHASE-F WUE
+16A22	BAMUM LETTER PHASE-F PEE
+16A23	BAMUM LETTER PHASE-F RU
+16A24	BAMUM LETTER PHASE-F NI
+16A25	BAMUM LETTER PHASE-F REUX
+16A26	BAMUM LETTER PHASE-F KEN
+16A27	BAMUM LETTER PHASE-F NGKWAEN
+16A28	BAMUM LETTER PHASE-F NGGA
+16A29	BAMUM LETTER PHASE-F SHO
+16A2A	BAMUM LETTER PHASE-F PUAE
+16A2B	BAMUM LETTER PHASE-F FOM
+16A2C	BAMUM LETTER PHASE-F WA
+16A2D	BAMUM LETTER PHASE-F LI
+16A2E	BAMUM LETTER PHASE-F LOQ
+16A2F	BAMUM LETTER PHASE-F KO
+16A30	BAMUM LETTER PHASE-F MBEN
+16A31	BAMUM LETTER PHASE-F REN
+16A32	BAMUM LETTER PHASE-F MA
+16A33	BAMUM LETTER PHASE-F MO
+16A34	BAMUM LETTER PHASE-F MBAA
+16A35	BAMUM LETTER PHASE-F TET
+16A36	BAMUM LETTER PHASE-F KPA
+16A37	BAMUM LETTER PHASE-F SAMBA
+16A38	BAMUM LETTER PHASE-F VUEQ
+16A40	MRO LETTER TA
+16A41	MRO LETTER NGI
+16A42	MRO LETTER YO
+16A43	MRO LETTER MIM
+16A44	MRO LETTER BA
+16A45	MRO LETTER DA
+16A46	MRO LETTER A
+16A47	MRO LETTER PHI
+16A48	MRO LETTER KHAI
+16A49	MRO LETTER HAO
+16A4A	MRO LETTER DAI
+16A4B	MRO LETTER CHU
+16A4C	MRO LETTER KEAAE
+16A4D	MRO LETTER OL
+16A4E	MRO LETTER MAEM
+16A4F	MRO LETTER NIN
+16A50	MRO LETTER PA
+16A51	MRO LETTER OO
+16A52	MRO LETTER O
+16A53	MRO LETTER RO
+16A54	MRO LETTER SHI
+16A55	MRO LETTER THEA
+16A56	MRO LETTER EA
+16A57	MRO LETTER WA
+16A58	MRO LETTER E
+16A59	MRO LETTER KO
+16A5A	MRO LETTER LAN
+16A5B	MRO LETTER LA
+16A5C	MRO LETTER HAI
+16A5D	MRO LETTER RI
+16A5E	MRO LETTER TEK
+16A60	MRO DIGIT ZERO
+16A61	MRO DIGIT ONE
+16A62	MRO DIGIT TWO
+16A63	MRO DIGIT THREE
+16A64	MRO DIGIT FOUR
+16A65	MRO DIGIT FIVE
+16A66	MRO DIGIT SIX
+16A67	MRO DIGIT SEVEN
+16A68	MRO DIGIT EIGHT
+16A69	MRO DIGIT NINE
+16A6E	MRO DANDA
+16A6F	MRO DOUBLE DANDA
+16AD0	BASSA VAH LETTER ENNI
+16AD1	BASSA VAH LETTER KA
+16AD2	BASSA VAH LETTER SE
+16AD3	BASSA VAH LETTER FA
+16AD4	BASSA VAH LETTER MBE
+16AD5	BASSA VAH LETTER YIE
+16AD6	BASSA VAH LETTER GAH
+16AD7	BASSA VAH LETTER DHII
+16AD8	BASSA VAH LETTER KPAH
+16AD9	BASSA VAH LETTER JO
+16ADA	BASSA VAH LETTER HWAH
+16ADB	BASSA VAH LETTER WA
+16ADC	BASSA VAH LETTER ZO
+16ADD	BASSA VAH LETTER GBU
+16ADE	BASSA VAH LETTER DO
+16ADF	BASSA VAH LETTER CE
+16AE0	BASSA VAH LETTER UWU
+16AE1	BASSA VAH LETTER TO
+16AE2	BASSA VAH LETTER BA
+16AE3	BASSA VAH LETTER VU
+16AE4	BASSA VAH LETTER YEIN
+16AE5	BASSA VAH LETTER PA
+16AE6	BASSA VAH LETTER WADDA
+16AE7	BASSA VAH LETTER A
+16AE8	BASSA VAH LETTER O
+16AE9	BASSA VAH LETTER OO
+16AEA	BASSA VAH LETTER U
+16AEB	BASSA VAH LETTER EE
+16AEC	BASSA VAH LETTER E
+16AED	BASSA VAH LETTER I
+16AF0	BASSA VAH COMBINING HIGH TONE
+16AF1	BASSA VAH COMBINING LOW TONE
+16AF2	BASSA VAH COMBINING MID TONE
+16AF3	BASSA VAH COMBINING LOW-MID TONE
+16AF4	BASSA VAH COMBINING HIGH-LOW TONE
+16AF5	BASSA VAH FULL STOP
+16B00	PAHAWH HMONG VOWEL KEEB
+16B01	PAHAWH HMONG VOWEL KEEV
+16B02	PAHAWH HMONG VOWEL KIB
+16B03	PAHAWH HMONG VOWEL KIV
+16B04	PAHAWH HMONG VOWEL KAUB
+16B05	PAHAWH HMONG VOWEL KAUV
+16B06	PAHAWH HMONG VOWEL KUB
+16B07	PAHAWH HMONG VOWEL KUV
+16B08	PAHAWH HMONG VOWEL KEB
+16B09	PAHAWH HMONG VOWEL KEV
+16B0A	PAHAWH HMONG VOWEL KAIB
+16B0B	PAHAWH HMONG VOWEL KAIV
+16B0C	PAHAWH HMONG VOWEL KOOB
+16B0D	PAHAWH HMONG VOWEL KOOV
+16B0E	PAHAWH HMONG VOWEL KAWB
+16B0F	PAHAWH HMONG VOWEL KAWV
+16B10	PAHAWH HMONG VOWEL KUAB
+16B11	PAHAWH HMONG VOWEL KUAV
+16B12	PAHAWH HMONG VOWEL KOB
+16B13	PAHAWH HMONG VOWEL KOV
+16B14	PAHAWH HMONG VOWEL KIAB
+16B15	PAHAWH HMONG VOWEL KIAV
+16B16	PAHAWH HMONG VOWEL KAB
+16B17	PAHAWH HMONG VOWEL KAV
+16B18	PAHAWH HMONG VOWEL KWB
+16B19	PAHAWH HMONG VOWEL KWV
+16B1A	PAHAWH HMONG VOWEL KAAB
+16B1B	PAHAWH HMONG VOWEL KAAV
+16B1C	PAHAWH HMONG CONSONANT VAU
+16B1D	PAHAWH HMONG CONSONANT NTSAU
+16B1E	PAHAWH HMONG CONSONANT LAU
+16B1F	PAHAWH HMONG CONSONANT HAU
+16B20	PAHAWH HMONG CONSONANT NLAU
+16B21	PAHAWH HMONG CONSONANT RAU
+16B22	PAHAWH HMONG CONSONANT NKAU
+16B23	PAHAWH HMONG CONSONANT QHAU
+16B24	PAHAWH HMONG CONSONANT YAU
+16B25	PAHAWH HMONG CONSONANT HLAU
+16B26	PAHAWH HMONG CONSONANT MAU
+16B27	PAHAWH HMONG CONSONANT CHAU
+16B28	PAHAWH HMONG CONSONANT NCHAU
+16B29	PAHAWH HMONG CONSONANT HNAU
+16B2A	PAHAWH HMONG CONSONANT PLHAU
+16B2B	PAHAWH HMONG CONSONANT NTHAU
+16B2C	PAHAWH HMONG CONSONANT NAU
+16B2D	PAHAWH HMONG CONSONANT AU
+16B2E	PAHAWH HMONG CONSONANT XAU
+16B2F	PAHAWH HMONG CONSONANT CAU
+16B30	PAHAWH HMONG MARK CIM TUB
+16B31	PAHAWH HMONG MARK CIM SO
+16B32	PAHAWH HMONG MARK CIM KES
+16B33	PAHAWH HMONG MARK CIM KHAV
+16B34	PAHAWH HMONG MARK CIM SUAM
+16B35	PAHAWH HMONG MARK CIM HOM
+16B36	PAHAWH HMONG MARK CIM TAUM
+16B37	PAHAWH HMONG SIGN VOS THOM
+16B38	PAHAWH HMONG SIGN VOS TSHAB CEEB
+16B39	PAHAWH HMONG SIGN CIM CHEEM
+16B3A	PAHAWH HMONG SIGN VOS THIAB
+16B3B	PAHAWH HMONG SIGN VOS FEEM
+16B3C	PAHAWH HMONG SIGN XYEEM NTXIV
+16B3D	PAHAWH HMONG SIGN XYEEM RHO
+16B3E	PAHAWH HMONG SIGN XYEEM TOV
+16B3F	PAHAWH HMONG SIGN XYEEM FAIB
+16B40	PAHAWH HMONG SIGN VOS SEEV
+16B41	PAHAWH HMONG SIGN MEEJ SUAB
+16B42	PAHAWH HMONG SIGN VOS NRUA
+16B43	PAHAWH HMONG SIGN IB YAM
+16B44	PAHAWH HMONG SIGN XAUS
+16B45	PAHAWH HMONG SIGN CIM TSOV ROG
+16B50	PAHAWH HMONG DIGIT ZERO
+16B51	PAHAWH HMONG DIGIT ONE
+16B52	PAHAWH HMONG DIGIT TWO
+16B53	PAHAWH HMONG DIGIT THREE
+16B54	PAHAWH HMONG DIGIT FOUR
+16B55	PAHAWH HMONG DIGIT FIVE
+16B56	PAHAWH HMONG DIGIT SIX
+16B57	PAHAWH HMONG DIGIT SEVEN
+16B58	PAHAWH HMONG DIGIT EIGHT
+16B59	PAHAWH HMONG DIGIT NINE
+16B5B	PAHAWH HMONG NUMBER TENS
+16B5C	PAHAWH HMONG NUMBER HUNDREDS
+16B5D	PAHAWH HMONG NUMBER TEN THOUSANDS
+16B5E	PAHAWH HMONG NUMBER MILLIONS
+16B5F	PAHAWH HMONG NUMBER HUNDRED MILLIONS
+16B60	PAHAWH HMONG NUMBER TEN BILLIONS
+16B61	PAHAWH HMONG NUMBER TRILLIONS
+16B63	PAHAWH HMONG SIGN VOS LUB
+16B64	PAHAWH HMONG SIGN XYOO
+16B65	PAHAWH HMONG SIGN HLI
+16B66	PAHAWH HMONG SIGN THIRD-STAGE HLI
+16B67	PAHAWH HMONG SIGN ZWJ THAJ
+16B68	PAHAWH HMONG SIGN HNUB
+16B69	PAHAWH HMONG SIGN NQIG
+16B6A	PAHAWH HMONG SIGN XIAB
+16B6B	PAHAWH HMONG SIGN NTUJ
+16B6C	PAHAWH HMONG SIGN AV
+16B6D	PAHAWH HMONG SIGN TXHEEJ CEEV
+16B6E	PAHAWH HMONG SIGN MEEJ TSEEB
+16B6F	PAHAWH HMONG SIGN TAU
+16B70	PAHAWH HMONG SIGN LOS
+16B71	PAHAWH HMONG SIGN MUS
+16B72	PAHAWH HMONG SIGN CIM HAIS LUS NTOG NTOG
+16B73	PAHAWH HMONG SIGN CIM CUAM TSHOOJ
+16B74	PAHAWH HMONG SIGN CIM TXWV
+16B75	PAHAWH HMONG SIGN CIM TXWV CHWV
+16B76	PAHAWH HMONG SIGN CIM PUB DAWB
+16B77	PAHAWH HMONG SIGN CIM NRES TOS
+16B7D	PAHAWH HMONG CLAN SIGN TSHEEJ
+16B7E	PAHAWH HMONG CLAN SIGN YEEG
+16B7F	PAHAWH HMONG CLAN SIGN LIS
+16B80	PAHAWH HMONG CLAN SIGN LAUJ
+16B81	PAHAWH HMONG CLAN SIGN XYOOJ
+16B82	PAHAWH HMONG CLAN SIGN KOO
+16B83	PAHAWH HMONG CLAN SIGN HAWJ
+16B84	PAHAWH HMONG CLAN SIGN MUAS
+16B85	PAHAWH HMONG CLAN SIGN THOJ
+16B86	PAHAWH HMONG CLAN SIGN TSAB
+16B87	PAHAWH HMONG CLAN SIGN PHAB
+16B88	PAHAWH HMONG CLAN SIGN KHAB
+16B89	PAHAWH HMONG CLAN SIGN HAM
+16B8A	PAHAWH HMONG CLAN SIGN VAJ
+16B8B	PAHAWH HMONG CLAN SIGN FAJ
+16B8C	PAHAWH HMONG CLAN SIGN YAJ
+16B8D	PAHAWH HMONG CLAN SIGN TSWB
+16B8E	PAHAWH HMONG CLAN SIGN KWM
+16B8F	PAHAWH HMONG CLAN SIGN VWJ
+16F00	MIAO LETTER PA
+16F01	MIAO LETTER BA
+16F02	MIAO LETTER YI PA
+16F03	MIAO LETTER PLA
+16F04	MIAO LETTER MA
+16F05	MIAO LETTER MHA
+16F06	MIAO LETTER ARCHAIC MA
+16F07	MIAO LETTER FA
+16F08	MIAO LETTER VA
+16F09	MIAO LETTER VFA
+16F0A	MIAO LETTER TA
+16F0B	MIAO LETTER DA
+16F0C	MIAO LETTER YI TTA
+16F0D	MIAO LETTER YI TA
+16F0E	MIAO LETTER TTA
+16F0F	MIAO LETTER DDA
+16F10	MIAO LETTER NA
+16F11	MIAO LETTER NHA
+16F12	MIAO LETTER YI NNA
+16F13	MIAO LETTER ARCHAIC NA
+16F14	MIAO LETTER NNA
+16F15	MIAO LETTER NNHA
+16F16	MIAO LETTER LA
+16F17	MIAO LETTER LYA
+16F18	MIAO LETTER LHA
+16F19	MIAO LETTER LHYA
+16F1A	MIAO LETTER TLHA
+16F1B	MIAO LETTER DLHA
+16F1C	MIAO LETTER TLHYA
+16F1D	MIAO LETTER DLHYA
+16F1E	MIAO LETTER KA
+16F1F	MIAO LETTER GA
+16F20	MIAO LETTER YI KA
+16F21	MIAO LETTER QA
+16F22	MIAO LETTER QGA
+16F23	MIAO LETTER NGA
+16F24	MIAO LETTER NGHA
+16F25	MIAO LETTER ARCHAIC NGA
+16F26	MIAO LETTER HA
+16F27	MIAO LETTER XA
+16F28	MIAO LETTER GHA
+16F29	MIAO LETTER GHHA
+16F2A	MIAO LETTER TSSA
+16F2B	MIAO LETTER DZZA
+16F2C	MIAO LETTER NYA
+16F2D	MIAO LETTER NYHA
+16F2E	MIAO LETTER TSHA
+16F2F	MIAO LETTER DZHA
+16F30	MIAO LETTER YI TSHA
+16F31	MIAO LETTER YI DZHA
+16F32	MIAO LETTER REFORMED TSHA
+16F33	MIAO LETTER SHA
+16F34	MIAO LETTER SSA
+16F35	MIAO LETTER ZHA
+16F36	MIAO LETTER ZSHA
+16F37	MIAO LETTER TSA
+16F38	MIAO LETTER DZA
+16F39	MIAO LETTER YI TSA
+16F3A	MIAO LETTER SA
+16F3B	MIAO LETTER ZA
+16F3C	MIAO LETTER ZSA
+16F3D	MIAO LETTER ZZA
+16F3E	MIAO LETTER ZZSA
+16F3F	MIAO LETTER ARCHAIC ZZA
+16F40	MIAO LETTER ZZYA
+16F41	MIAO LETTER ZZSYA
+16F42	MIAO LETTER WA
+16F43	MIAO LETTER AH
+16F44	MIAO LETTER HHA
+16F50	MIAO LETTER NASALIZATION
+16F51	MIAO SIGN ASPIRATION
+16F52	MIAO SIGN REFORMED VOICING
+16F53	MIAO SIGN REFORMED ASPIRATION
+16F54	MIAO VOWEL SIGN A
+16F55	MIAO VOWEL SIGN AA
+16F56	MIAO VOWEL SIGN AHH
+16F57	MIAO VOWEL SIGN AN
+16F58	MIAO VOWEL SIGN ANG
+16F59	MIAO VOWEL SIGN O
+16F5A	MIAO VOWEL SIGN OO
+16F5B	MIAO VOWEL SIGN WO
+16F5C	MIAO VOWEL SIGN W
+16F5D	MIAO VOWEL SIGN E
+16F5E	MIAO VOWEL SIGN EN
+16F5F	MIAO VOWEL SIGN ENG
+16F60	MIAO VOWEL SIGN OEY
+16F61	MIAO VOWEL SIGN I
+16F62	MIAO VOWEL SIGN IA
+16F63	MIAO VOWEL SIGN IAN
+16F64	MIAO VOWEL SIGN IANG
+16F65	MIAO VOWEL SIGN IO
+16F66	MIAO VOWEL SIGN IE
+16F67	MIAO VOWEL SIGN II
+16F68	MIAO VOWEL SIGN IU
+16F69	MIAO VOWEL SIGN ING
+16F6A	MIAO VOWEL SIGN U
+16F6B	MIAO VOWEL SIGN UA
+16F6C	MIAO VOWEL SIGN UAN
+16F6D	MIAO VOWEL SIGN UANG
+16F6E	MIAO VOWEL SIGN UU
+16F6F	MIAO VOWEL SIGN UEI
+16F70	MIAO VOWEL SIGN UNG
+16F71	MIAO VOWEL SIGN Y
+16F72	MIAO VOWEL SIGN YI
+16F73	MIAO VOWEL SIGN AE
+16F74	MIAO VOWEL SIGN AEE
+16F75	MIAO VOWEL SIGN ERR
+16F76	MIAO VOWEL SIGN ROUNDED ERR
+16F77	MIAO VOWEL SIGN ER
+16F78	MIAO VOWEL SIGN ROUNDED ER
+16F79	MIAO VOWEL SIGN AI
+16F7A	MIAO VOWEL SIGN EI
+16F7B	MIAO VOWEL SIGN AU
+16F7C	MIAO VOWEL SIGN OU
+16F7D	MIAO VOWEL SIGN N
+16F7E	MIAO VOWEL SIGN NG
+16F8F	MIAO TONE RIGHT
+16F90	MIAO TONE TOP RIGHT
+16F91	MIAO TONE ABOVE
+16F92	MIAO TONE BELOW
+16F93	MIAO LETTER TONE-2
+16F94	MIAO LETTER TONE-3
+16F95	MIAO LETTER TONE-4
+16F96	MIAO LETTER TONE-5
+16F97	MIAO LETTER TONE-6
+16F98	MIAO LETTER TONE-7
+16F99	MIAO LETTER TONE-8
+16F9A	MIAO LETTER REFORMED TONE-1
+16F9B	MIAO LETTER REFORMED TONE-2
+16F9C	MIAO LETTER REFORMED TONE-4
+16F9D	MIAO LETTER REFORMED TONE-5
+16F9E	MIAO LETTER REFORMED TONE-6
+16F9F	MIAO LETTER REFORMED TONE-8
+1B000	KATAKANA LETTER ARCHAIC E
+1B001	HIRAGANA LETTER ARCHAIC YE
+1BC00	DUPLOYAN LETTER H
+1BC01	DUPLOYAN LETTER X
+1BC02	DUPLOYAN LETTER P
+1BC03	DUPLOYAN LETTER T
+1BC04	DUPLOYAN LETTER F
+1BC05	DUPLOYAN LETTER K
+1BC06	DUPLOYAN LETTER L
+1BC07	DUPLOYAN LETTER B
+1BC08	DUPLOYAN LETTER D
+1BC09	DUPLOYAN LETTER V
+1BC0A	DUPLOYAN LETTER G
+1BC0B	DUPLOYAN LETTER R
+1BC0C	DUPLOYAN LETTER P N
+1BC0D	DUPLOYAN LETTER D S
+1BC0E	DUPLOYAN LETTER F N
+1BC0F	DUPLOYAN LETTER K M
+1BC10	DUPLOYAN LETTER R S
+1BC11	DUPLOYAN LETTER TH
+1BC12	DUPLOYAN LETTER SLOAN DH
+1BC13	DUPLOYAN LETTER DH
+1BC14	DUPLOYAN LETTER KK
+1BC15	DUPLOYAN LETTER SLOAN J
+1BC16	DUPLOYAN LETTER HL
+1BC17	DUPLOYAN LETTER LH
+1BC18	DUPLOYAN LETTER RH
+1BC19	DUPLOYAN LETTER M
+1BC1A	DUPLOYAN LETTER N
+1BC1B	DUPLOYAN LETTER J
+1BC1C	DUPLOYAN LETTER S
+1BC1D	DUPLOYAN LETTER M N
+1BC1E	DUPLOYAN LETTER N M
+1BC1F	DUPLOYAN LETTER J M
+1BC20	DUPLOYAN LETTER S J
+1BC21	DUPLOYAN LETTER M WITH DOT
+1BC22	DUPLOYAN LETTER N WITH DOT
+1BC23	DUPLOYAN LETTER J WITH DOT
+1BC24	DUPLOYAN LETTER J WITH DOTS INSIDE AND ABOVE
+1BC25	DUPLOYAN LETTER S WITH DOT
+1BC26	DUPLOYAN LETTER S WITH DOT BELOW
+1BC27	DUPLOYAN LETTER M S
+1BC28	DUPLOYAN LETTER N S
+1BC29	DUPLOYAN LETTER J S
+1BC2A	DUPLOYAN LETTER S S
+1BC2B	DUPLOYAN LETTER M N S
+1BC2C	DUPLOYAN LETTER N M S
+1BC2D	DUPLOYAN LETTER J M S
+1BC2E	DUPLOYAN LETTER S J S
+1BC2F	DUPLOYAN LETTER J S WITH DOT
+1BC30	DUPLOYAN LETTER J N
+1BC31	DUPLOYAN LETTER J N S
+1BC32	DUPLOYAN LETTER S T
+1BC33	DUPLOYAN LETTER S T R
+1BC34	DUPLOYAN LETTER S P
+1BC35	DUPLOYAN LETTER S P R
+1BC36	DUPLOYAN LETTER T S
+1BC37	DUPLOYAN LETTER T R S
+1BC38	DUPLOYAN LETTER W
+1BC39	DUPLOYAN LETTER WH
+1BC3A	DUPLOYAN LETTER W R
+1BC3B	DUPLOYAN LETTER S N
+1BC3C	DUPLOYAN LETTER S M
+1BC3D	DUPLOYAN LETTER K R S
+1BC3E	DUPLOYAN LETTER G R S
+1BC3F	DUPLOYAN LETTER S K
+1BC40	DUPLOYAN LETTER S K R
+1BC41	DUPLOYAN LETTER A
+1BC42	DUPLOYAN LETTER SLOAN OW
+1BC43	DUPLOYAN LETTER OA
+1BC44	DUPLOYAN LETTER O
+1BC45	DUPLOYAN LETTER AOU
+1BC46	DUPLOYAN LETTER I
+1BC47	DUPLOYAN LETTER E
+1BC48	DUPLOYAN LETTER IE
+1BC49	DUPLOYAN LETTER SHORT I
+1BC4A	DUPLOYAN LETTER UI
+1BC4B	DUPLOYAN LETTER EE
+1BC4C	DUPLOYAN LETTER SLOAN EH
+1BC4D	DUPLOYAN LETTER ROMANIAN I
+1BC4E	DUPLOYAN LETTER SLOAN EE
+1BC4F	DUPLOYAN LETTER LONG I
+1BC50	DUPLOYAN LETTER YE
+1BC51	DUPLOYAN LETTER U
+1BC52	DUPLOYAN LETTER EU
+1BC53	DUPLOYAN LETTER XW
+1BC54	DUPLOYAN LETTER U N
+1BC55	DUPLOYAN LETTER LONG U
+1BC56	DUPLOYAN LETTER ROMANIAN U
+1BC57	DUPLOYAN LETTER UH
+1BC58	DUPLOYAN LETTER SLOAN U
+1BC59	DUPLOYAN LETTER OOH
+1BC5A	DUPLOYAN LETTER OW
+1BC5B	DUPLOYAN LETTER OU
+1BC5C	DUPLOYAN LETTER WA
+1BC5D	DUPLOYAN LETTER WO
+1BC5E	DUPLOYAN LETTER WI
+1BC5F	DUPLOYAN LETTER WEI
+1BC60	DUPLOYAN LETTER WOW
+1BC61	DUPLOYAN LETTER NASAL U
+1BC62	DUPLOYAN LETTER NASAL O
+1BC63	DUPLOYAN LETTER NASAL I
+1BC64	DUPLOYAN LETTER NASAL A
+1BC65	DUPLOYAN LETTER PERNIN AN
+1BC66	DUPLOYAN LETTER PERNIN AM
+1BC67	DUPLOYAN LETTER SLOAN EN
+1BC68	DUPLOYAN LETTER SLOAN AN
+1BC69	DUPLOYAN LETTER SLOAN ON
+1BC6A	DUPLOYAN LETTER VOCALIC M
+1BC70	DUPLOYAN AFFIX LEFT HORIZONTAL SECANT
+1BC71	DUPLOYAN AFFIX MID HORIZONTAL SECANT
+1BC72	DUPLOYAN AFFIX RIGHT HORIZONTAL SECANT
+1BC73	DUPLOYAN AFFIX LOW VERTICAL SECANT
+1BC74	DUPLOYAN AFFIX MID VERTICAL SECANT
+1BC75	DUPLOYAN AFFIX HIGH VERTICAL SECANT
+1BC76	DUPLOYAN AFFIX ATTACHED SECANT
+1BC77	DUPLOYAN AFFIX ATTACHED LEFT-TO-RIGHT SECANT
+1BC78	DUPLOYAN AFFIX ATTACHED TANGENT
+1BC79	DUPLOYAN AFFIX ATTACHED TAIL
+1BC7A	DUPLOYAN AFFIX ATTACHED E HOOK
+1BC7B	DUPLOYAN AFFIX ATTACHED I HOOK
+1BC7C	DUPLOYAN AFFIX ATTACHED TANGENT HOOK
+1BC80	DUPLOYAN AFFIX HIGH ACUTE
+1BC81	DUPLOYAN AFFIX HIGH TIGHT ACUTE
+1BC82	DUPLOYAN AFFIX HIGH GRAVE
+1BC83	DUPLOYAN AFFIX HIGH LONG GRAVE
+1BC84	DUPLOYAN AFFIX HIGH DOT
+1BC85	DUPLOYAN AFFIX HIGH CIRCLE
+1BC86	DUPLOYAN AFFIX HIGH LINE
+1BC87	DUPLOYAN AFFIX HIGH WAVE
+1BC88	DUPLOYAN AFFIX HIGH VERTICAL
+1BC90	DUPLOYAN AFFIX LOW ACUTE
+1BC91	DUPLOYAN AFFIX LOW TIGHT ACUTE
+1BC92	DUPLOYAN AFFIX LOW GRAVE
+1BC93	DUPLOYAN AFFIX LOW LONG GRAVE
+1BC94	DUPLOYAN AFFIX LOW DOT
+1BC95	DUPLOYAN AFFIX LOW CIRCLE
+1BC96	DUPLOYAN AFFIX LOW LINE
+1BC97	DUPLOYAN AFFIX LOW WAVE
+1BC98	DUPLOYAN AFFIX LOW VERTICAL
+1BC99	DUPLOYAN AFFIX LOW ARROW
+1BC9C	DUPLOYAN SIGN O WITH CROSS
+1BC9D	DUPLOYAN THICK LETTER SELECTOR
+1BC9E	DUPLOYAN DOUBLE MARK
+1BC9F	DUPLOYAN PUNCTUATION CHINOOK FULL STOP
+1BCA0	SHORTHAND FORMAT LETTER OVERLAP
+1BCA1	SHORTHAND FORMAT CONTINUING OVERLAP
+1BCA2	SHORTHAND FORMAT DOWN STEP
+1BCA3	SHORTHAND FORMAT UP STEP
+1D000	BYZANTINE MUSICAL SYMBOL PSILI
+1D001	BYZANTINE MUSICAL SYMBOL DASEIA
+1D002	BYZANTINE MUSICAL SYMBOL PERISPOMENI
+1D003	BYZANTINE MUSICAL SYMBOL OXEIA EKFONITIKON
+1D004	BYZANTINE MUSICAL SYMBOL OXEIA DIPLI
+1D005	BYZANTINE MUSICAL SYMBOL VAREIA EKFONITIKON
+1D006	BYZANTINE MUSICAL SYMBOL VAREIA DIPLI
+1D007	BYZANTINE MUSICAL SYMBOL KATHISTI
+1D008	BYZANTINE MUSICAL SYMBOL SYRMATIKI
+1D009	BYZANTINE MUSICAL SYMBOL PARAKLITIKI
+1D00A	BYZANTINE MUSICAL SYMBOL YPOKRISIS
+1D00B	BYZANTINE MUSICAL SYMBOL YPOKRISIS DIPLI
+1D00C	BYZANTINE MUSICAL SYMBOL KREMASTI
+1D00D	BYZANTINE MUSICAL SYMBOL APESO EKFONITIKON
+1D00E	BYZANTINE MUSICAL SYMBOL EXO EKFONITIKON
+1D00F	BYZANTINE MUSICAL SYMBOL TELEIA
+1D010	BYZANTINE MUSICAL SYMBOL KENTIMATA
+1D011	BYZANTINE MUSICAL SYMBOL APOSTROFOS
+1D012	BYZANTINE MUSICAL SYMBOL APOSTROFOS DIPLI
+1D013	BYZANTINE MUSICAL SYMBOL SYNEVMA
+1D014	BYZANTINE MUSICAL SYMBOL THITA
+1D015	BYZANTINE MUSICAL SYMBOL OLIGON ARCHAION
+1D016	BYZANTINE MUSICAL SYMBOL GORGON ARCHAION
+1D017	BYZANTINE MUSICAL SYMBOL PSILON
+1D018	BYZANTINE MUSICAL SYMBOL CHAMILON
+1D019	BYZANTINE MUSICAL SYMBOL VATHY
+1D01A	BYZANTINE MUSICAL SYMBOL ISON ARCHAION
+1D01B	BYZANTINE MUSICAL SYMBOL KENTIMA ARCHAION
+1D01C	BYZANTINE MUSICAL SYMBOL KENTIMATA ARCHAION
+1D01D	BYZANTINE MUSICAL SYMBOL SAXIMATA
+1D01E	BYZANTINE MUSICAL SYMBOL PARICHON
+1D01F	BYZANTINE MUSICAL SYMBOL STAVROS APODEXIA
+1D020	BYZANTINE MUSICAL SYMBOL OXEIAI ARCHAION
+1D021	BYZANTINE MUSICAL SYMBOL VAREIAI ARCHAION
+1D022	BYZANTINE MUSICAL SYMBOL APODERMA ARCHAION
+1D023	BYZANTINE MUSICAL SYMBOL APOTHEMA
+1D024	BYZANTINE MUSICAL SYMBOL KLASMA
+1D025	BYZANTINE MUSICAL SYMBOL REVMA
+1D026	BYZANTINE MUSICAL SYMBOL PIASMA ARCHAION
+1D027	BYZANTINE MUSICAL SYMBOL TINAGMA
+1D028	BYZANTINE MUSICAL SYMBOL ANATRICHISMA
+1D029	BYZANTINE MUSICAL SYMBOL SEISMA
+1D02A	BYZANTINE MUSICAL SYMBOL SYNAGMA ARCHAION
+1D02B	BYZANTINE MUSICAL SYMBOL SYNAGMA META STAVROU
+1D02C	BYZANTINE MUSICAL SYMBOL OYRANISMA ARCHAION
+1D02D	BYZANTINE MUSICAL SYMBOL THEMA
+1D02E	BYZANTINE MUSICAL SYMBOL LEMOI
+1D02F	BYZANTINE MUSICAL SYMBOL DYO
+1D030	BYZANTINE MUSICAL SYMBOL TRIA
+1D031	BYZANTINE MUSICAL SYMBOL TESSERA
+1D032	BYZANTINE MUSICAL SYMBOL KRATIMATA
+1D033	BYZANTINE MUSICAL SYMBOL APESO EXO NEO
+1D034	BYZANTINE MUSICAL SYMBOL FTHORA ARCHAION
+1D035	BYZANTINE MUSICAL SYMBOL IMIFTHORA
+1D036	BYZANTINE MUSICAL SYMBOL TROMIKON ARCHAION
+1D037	BYZANTINE MUSICAL SYMBOL KATAVA TROMIKON
+1D038	BYZANTINE MUSICAL SYMBOL PELASTON
+1D039	BYZANTINE MUSICAL SYMBOL PSIFISTON
+1D03A	BYZANTINE MUSICAL SYMBOL KONTEVMA
+1D03B	BYZANTINE MUSICAL SYMBOL CHOREVMA ARCHAION
+1D03C	BYZANTINE MUSICAL SYMBOL RAPISMA
+1D03D	BYZANTINE MUSICAL SYMBOL PARAKALESMA ARCHAION
+1D03E	BYZANTINE MUSICAL SYMBOL PARAKLITIKI ARCHAION
+1D03F	BYZANTINE MUSICAL SYMBOL ICHADIN
+1D040	BYZANTINE MUSICAL SYMBOL NANA
+1D041	BYZANTINE MUSICAL SYMBOL PETASMA
+1D042	BYZANTINE MUSICAL SYMBOL KONTEVMA ALLO
+1D043	BYZANTINE MUSICAL SYMBOL TROMIKON ALLO
+1D044	BYZANTINE MUSICAL SYMBOL STRAGGISMATA
+1D045	BYZANTINE MUSICAL SYMBOL GRONTHISMATA
+1D046	BYZANTINE MUSICAL SYMBOL ISON NEO
+1D047	BYZANTINE MUSICAL SYMBOL OLIGON NEO
+1D048	BYZANTINE MUSICAL SYMBOL OXEIA NEO
+1D049	BYZANTINE MUSICAL SYMBOL PETASTI
+1D04A	BYZANTINE MUSICAL SYMBOL KOUFISMA
+1D04B	BYZANTINE MUSICAL SYMBOL PETASTOKOUFISMA
+1D04C	BYZANTINE MUSICAL SYMBOL KRATIMOKOUFISMA
+1D04D	BYZANTINE MUSICAL SYMBOL PELASTON NEO
+1D04E	BYZANTINE MUSICAL SYMBOL KENTIMATA NEO ANO
+1D04F	BYZANTINE MUSICAL SYMBOL KENTIMA NEO ANO
+1D050	BYZANTINE MUSICAL SYMBOL YPSILI
+1D051	BYZANTINE MUSICAL SYMBOL APOSTROFOS NEO
+1D052	BYZANTINE MUSICAL SYMBOL APOSTROFOI SYNDESMOS NEO
+1D053	BYZANTINE MUSICAL SYMBOL YPORROI
+1D054	BYZANTINE MUSICAL SYMBOL KRATIMOYPORROON
+1D055	BYZANTINE MUSICAL SYMBOL ELAFRON
+1D056	BYZANTINE MUSICAL SYMBOL CHAMILI
+1D057	BYZANTINE MUSICAL SYMBOL MIKRON ISON
+1D058	BYZANTINE MUSICAL SYMBOL VAREIA NEO
+1D059	BYZANTINE MUSICAL SYMBOL PIASMA NEO
+1D05A	BYZANTINE MUSICAL SYMBOL PSIFISTON NEO
+1D05B	BYZANTINE MUSICAL SYMBOL OMALON
+1D05C	BYZANTINE MUSICAL SYMBOL ANTIKENOMA
+1D05D	BYZANTINE MUSICAL SYMBOL LYGISMA
+1D05E	BYZANTINE MUSICAL SYMBOL PARAKLITIKI NEO
+1D05F	BYZANTINE MUSICAL SYMBOL PARAKALESMA NEO
+1D060	BYZANTINE MUSICAL SYMBOL ETERON PARAKALESMA
+1D061	BYZANTINE MUSICAL SYMBOL KYLISMA
+1D062	BYZANTINE MUSICAL SYMBOL ANTIKENOKYLISMA
+1D063	BYZANTINE MUSICAL SYMBOL TROMIKON NEO
+1D064	BYZANTINE MUSICAL SYMBOL EKSTREPTON
+1D065	BYZANTINE MUSICAL SYMBOL SYNAGMA NEO
+1D066	BYZANTINE MUSICAL SYMBOL SYRMA
+1D067	BYZANTINE MUSICAL SYMBOL CHOREVMA NEO
+1D068	BYZANTINE MUSICAL SYMBOL EPEGERMA
+1D069	BYZANTINE MUSICAL SYMBOL SEISMA NEO
+1D06A	BYZANTINE MUSICAL SYMBOL XIRON KLASMA
+1D06B	BYZANTINE MUSICAL SYMBOL TROMIKOPSIFISTON
+1D06C	BYZANTINE MUSICAL SYMBOL PSIFISTOLYGISMA
+1D06D	BYZANTINE MUSICAL SYMBOL TROMIKOLYGISMA
+1D06E	BYZANTINE MUSICAL SYMBOL TROMIKOPARAKALESMA
+1D06F	BYZANTINE MUSICAL SYMBOL PSIFISTOPARAKALESMA
+1D070	BYZANTINE MUSICAL SYMBOL TROMIKOSYNAGMA
+1D071	BYZANTINE MUSICAL SYMBOL PSIFISTOSYNAGMA
+1D072	BYZANTINE MUSICAL SYMBOL GORGOSYNTHETON
+1D073	BYZANTINE MUSICAL SYMBOL ARGOSYNTHETON
+1D074	BYZANTINE MUSICAL SYMBOL ETERON ARGOSYNTHETON
+1D075	BYZANTINE MUSICAL SYMBOL OYRANISMA NEO
+1D076	BYZANTINE MUSICAL SYMBOL THEMATISMOS ESO
+1D077	BYZANTINE MUSICAL SYMBOL THEMATISMOS EXO
+1D078	BYZANTINE MUSICAL SYMBOL THEMA APLOUN
+1D079	BYZANTINE MUSICAL SYMBOL THES KAI APOTHES
+1D07A	BYZANTINE MUSICAL SYMBOL KATAVASMA
+1D07B	BYZANTINE MUSICAL SYMBOL ENDOFONON
+1D07C	BYZANTINE MUSICAL SYMBOL YFEN KATO
+1D07D	BYZANTINE MUSICAL SYMBOL YFEN ANO
+1D07E	BYZANTINE MUSICAL SYMBOL STAVROS
+1D07F	BYZANTINE MUSICAL SYMBOL KLASMA ANO
+1D080	BYZANTINE MUSICAL SYMBOL DIPLI ARCHAION
+1D081	BYZANTINE MUSICAL SYMBOL KRATIMA ARCHAION
+1D082	BYZANTINE MUSICAL SYMBOL KRATIMA ALLO
+1D083	BYZANTINE MUSICAL SYMBOL KRATIMA NEO
+1D084	BYZANTINE MUSICAL SYMBOL APODERMA NEO
+1D085	BYZANTINE MUSICAL SYMBOL APLI
+1D086	BYZANTINE MUSICAL SYMBOL DIPLI
+1D087	BYZANTINE MUSICAL SYMBOL TRIPLI
+1D088	BYZANTINE MUSICAL SYMBOL TETRAPLI
+1D089	BYZANTINE MUSICAL SYMBOL KORONIS
+1D08A	BYZANTINE MUSICAL SYMBOL LEIMMA ENOS CHRONOU
+1D08B	BYZANTINE MUSICAL SYMBOL LEIMMA DYO CHRONON
+1D08C	BYZANTINE MUSICAL SYMBOL LEIMMA TRION CHRONON
+1D08D	BYZANTINE MUSICAL SYMBOL LEIMMA TESSARON CHRONON
+1D08E	BYZANTINE MUSICAL SYMBOL LEIMMA IMISEOS CHRONOU
+1D08F	BYZANTINE MUSICAL SYMBOL GORGON NEO ANO
+1D090	BYZANTINE MUSICAL SYMBOL GORGON PARESTIGMENON ARISTERA
+1D091	BYZANTINE MUSICAL SYMBOL GORGON PARESTIGMENON DEXIA
+1D092	BYZANTINE MUSICAL SYMBOL DIGORGON
+1D093	BYZANTINE MUSICAL SYMBOL DIGORGON PARESTIGMENON ARISTERA KATO
+1D094	BYZANTINE MUSICAL SYMBOL DIGORGON PARESTIGMENON ARISTERA ANO
+1D095	BYZANTINE MUSICAL SYMBOL DIGORGON PARESTIGMENON DEXIA
+1D096	BYZANTINE MUSICAL SYMBOL TRIGORGON
+1D097	BYZANTINE MUSICAL SYMBOL ARGON
+1D098	BYZANTINE MUSICAL SYMBOL IMIDIARGON
+1D099	BYZANTINE MUSICAL SYMBOL DIARGON
+1D09A	BYZANTINE MUSICAL SYMBOL AGOGI POLI ARGI
+1D09B	BYZANTINE MUSICAL SYMBOL AGOGI ARGOTERI
+1D09C	BYZANTINE MUSICAL SYMBOL AGOGI ARGI
+1D09D	BYZANTINE MUSICAL SYMBOL AGOGI METRIA
+1D09E	BYZANTINE MUSICAL SYMBOL AGOGI MESI
+1D09F	BYZANTINE MUSICAL SYMBOL AGOGI GORGI
+1D0A0	BYZANTINE MUSICAL SYMBOL AGOGI GORGOTERI
+1D0A1	BYZANTINE MUSICAL SYMBOL AGOGI POLI GORGI
+1D0A2	BYZANTINE MUSICAL SYMBOL MARTYRIA PROTOS ICHOS
+1D0A3	BYZANTINE MUSICAL SYMBOL MARTYRIA ALLI PROTOS ICHOS
+1D0A4	BYZANTINE MUSICAL SYMBOL MARTYRIA DEYTEROS ICHOS
+1D0A5	BYZANTINE MUSICAL SYMBOL MARTYRIA ALLI DEYTEROS ICHOS
+1D0A6	BYZANTINE MUSICAL SYMBOL MARTYRIA TRITOS ICHOS
+1D0A7	BYZANTINE MUSICAL SYMBOL MARTYRIA TRIFONIAS
+1D0A8	BYZANTINE MUSICAL SYMBOL MARTYRIA TETARTOS ICHOS
+1D0A9	BYZANTINE MUSICAL SYMBOL MARTYRIA TETARTOS LEGETOS ICHOS
+1D0AA	BYZANTINE MUSICAL SYMBOL MARTYRIA LEGETOS ICHOS
+1D0AB	BYZANTINE MUSICAL SYMBOL MARTYRIA PLAGIOS ICHOS
+1D0AC	BYZANTINE MUSICAL SYMBOL ISAKIA TELOUS ICHIMATOS
+1D0AD	BYZANTINE MUSICAL SYMBOL APOSTROFOI TELOUS ICHIMATOS
+1D0AE	BYZANTINE MUSICAL SYMBOL FANEROSIS TETRAFONIAS
+1D0AF	BYZANTINE MUSICAL SYMBOL FANEROSIS MONOFONIAS
+1D0B0	BYZANTINE MUSICAL SYMBOL FANEROSIS DIFONIAS
+1D0B1	BYZANTINE MUSICAL SYMBOL MARTYRIA VARYS ICHOS
+1D0B2	BYZANTINE MUSICAL SYMBOL MARTYRIA PROTOVARYS ICHOS
+1D0B3	BYZANTINE MUSICAL SYMBOL MARTYRIA PLAGIOS TETARTOS ICHOS
+1D0B4	BYZANTINE MUSICAL SYMBOL GORTHMIKON N APLOUN
+1D0B5	BYZANTINE MUSICAL SYMBOL GORTHMIKON N DIPLOUN
+1D0B6	BYZANTINE MUSICAL SYMBOL ENARXIS KAI FTHORA VOU
+1D0B7	BYZANTINE MUSICAL SYMBOL IMIFONON
+1D0B8	BYZANTINE MUSICAL SYMBOL IMIFTHORON
+1D0B9	BYZANTINE MUSICAL SYMBOL FTHORA ARCHAION DEYTEROU ICHOU
+1D0BA	BYZANTINE MUSICAL SYMBOL FTHORA DIATONIKI PA
+1D0BB	BYZANTINE MUSICAL SYMBOL FTHORA DIATONIKI NANA
+1D0BC	BYZANTINE MUSICAL SYMBOL FTHORA NAOS ICHOS
+1D0BD	BYZANTINE MUSICAL SYMBOL FTHORA DIATONIKI DI
+1D0BE	BYZANTINE MUSICAL SYMBOL FTHORA SKLIRON DIATONON DI
+1D0BF	BYZANTINE MUSICAL SYMBOL FTHORA DIATONIKI KE
+1D0C0	BYZANTINE MUSICAL SYMBOL FTHORA DIATONIKI ZO
+1D0C1	BYZANTINE MUSICAL SYMBOL FTHORA DIATONIKI NI KATO
+1D0C2	BYZANTINE MUSICAL SYMBOL FTHORA DIATONIKI NI ANO
+1D0C3	BYZANTINE MUSICAL SYMBOL FTHORA MALAKON CHROMA DIFONIAS
+1D0C4	BYZANTINE MUSICAL SYMBOL FTHORA MALAKON CHROMA MONOFONIAS
+1D0C5	BYZANTINE MUSICAL SYMBOL FTHORA SKLIRON CHROMA VASIS
+1D0C5	BYZANTINE MUSICAL SYMBOL FHTORA SKLIRON CHROMA VASIS
+1D0C6	BYZANTINE MUSICAL SYMBOL FTHORA SKLIRON CHROMA SYNAFI
+1D0C7	BYZANTINE MUSICAL SYMBOL FTHORA NENANO
+1D0C8	BYZANTINE MUSICAL SYMBOL CHROA ZYGOS
+1D0C9	BYZANTINE MUSICAL SYMBOL CHROA KLITON
+1D0CA	BYZANTINE MUSICAL SYMBOL CHROA SPATHI
+1D0CB	BYZANTINE MUSICAL SYMBOL FTHORA I YFESIS TETARTIMORION
+1D0CC	BYZANTINE MUSICAL SYMBOL FTHORA ENARMONIOS ANTIFONIA
+1D0CD	BYZANTINE MUSICAL SYMBOL YFESIS TRITIMORION
+1D0CE	BYZANTINE MUSICAL SYMBOL DIESIS TRITIMORION
+1D0CF	BYZANTINE MUSICAL SYMBOL DIESIS TETARTIMORION
+1D0D0	BYZANTINE MUSICAL SYMBOL DIESIS APLI DYO DODEKATA
+1D0D1	BYZANTINE MUSICAL SYMBOL DIESIS MONOGRAMMOS TESSERA DODEKATA
+1D0D2	BYZANTINE MUSICAL SYMBOL DIESIS DIGRAMMOS EX DODEKATA
+1D0D3	BYZANTINE MUSICAL SYMBOL DIESIS TRIGRAMMOS OKTO DODEKATA
+1D0D4	BYZANTINE MUSICAL SYMBOL YFESIS APLI DYO DODEKATA
+1D0D5	BYZANTINE MUSICAL SYMBOL YFESIS MONOGRAMMOS TESSERA DODEKATA
+1D0D6	BYZANTINE MUSICAL SYMBOL YFESIS DIGRAMMOS EX DODEKATA
+1D0D7	BYZANTINE MUSICAL SYMBOL YFESIS TRIGRAMMOS OKTO DODEKATA
+1D0D8	BYZANTINE MUSICAL SYMBOL GENIKI DIESIS
+1D0D9	BYZANTINE MUSICAL SYMBOL GENIKI YFESIS
+1D0DA	BYZANTINE MUSICAL SYMBOL DIASTOLI APLI MIKRI
+1D0DB	BYZANTINE MUSICAL SYMBOL DIASTOLI APLI MEGALI
+1D0DC	BYZANTINE MUSICAL SYMBOL DIASTOLI DIPLI
+1D0DD	BYZANTINE MUSICAL SYMBOL DIASTOLI THESEOS
+1D0DE	BYZANTINE MUSICAL SYMBOL SIMANSIS THESEOS
+1D0DF	BYZANTINE MUSICAL SYMBOL SIMANSIS THESEOS DISIMOU
+1D0E0	BYZANTINE MUSICAL SYMBOL SIMANSIS THESEOS TRISIMOU
+1D0E1	BYZANTINE MUSICAL SYMBOL SIMANSIS THESEOS TETRASIMOU
+1D0E2	BYZANTINE MUSICAL SYMBOL SIMANSIS ARSEOS
+1D0E3	BYZANTINE MUSICAL SYMBOL SIMANSIS ARSEOS DISIMOU
+1D0E4	BYZANTINE MUSICAL SYMBOL SIMANSIS ARSEOS TRISIMOU
+1D0E5	BYZANTINE MUSICAL SYMBOL SIMANSIS ARSEOS TETRASIMOU
+1D0E6	BYZANTINE MUSICAL SYMBOL DIGRAMMA GG
+1D0E7	BYZANTINE MUSICAL SYMBOL DIFTOGGOS OU
+1D0E8	BYZANTINE MUSICAL SYMBOL STIGMA
+1D0E9	BYZANTINE MUSICAL SYMBOL ARKTIKO PA
+1D0EA	BYZANTINE MUSICAL SYMBOL ARKTIKO VOU
+1D0EB	BYZANTINE MUSICAL SYMBOL ARKTIKO GA
+1D0EC	BYZANTINE MUSICAL SYMBOL ARKTIKO DI
+1D0ED	BYZANTINE MUSICAL SYMBOL ARKTIKO KE
+1D0EE	BYZANTINE MUSICAL SYMBOL ARKTIKO ZO
+1D0EF	BYZANTINE MUSICAL SYMBOL ARKTIKO NI
+1D0F0	BYZANTINE MUSICAL SYMBOL KENTIMATA NEO MESO
+1D0F1	BYZANTINE MUSICAL SYMBOL KENTIMA NEO MESO
+1D0F2	BYZANTINE MUSICAL SYMBOL KENTIMATA NEO KATO
+1D0F3	BYZANTINE MUSICAL SYMBOL KENTIMA NEO KATO
+1D0F4	BYZANTINE MUSICAL SYMBOL KLASMA KATO
+1D0F5	BYZANTINE MUSICAL SYMBOL GORGON NEO KATO
+1D100	MUSICAL SYMBOL SINGLE BARLINE
+1D101	MUSICAL SYMBOL DOUBLE BARLINE
+1D102	MUSICAL SYMBOL FINAL BARLINE
+1D103	MUSICAL SYMBOL REVERSE FINAL BARLINE
+1D104	MUSICAL SYMBOL DASHED BARLINE
+1D105	MUSICAL SYMBOL SHORT BARLINE
+1D106	MUSICAL SYMBOL LEFT REPEAT SIGN
+1D107	MUSICAL SYMBOL RIGHT REPEAT SIGN
+1D108	MUSICAL SYMBOL REPEAT DOTS
+1D109	MUSICAL SYMBOL DAL SEGNO
+1D10A	MUSICAL SYMBOL DA CAPO
+1D10B	MUSICAL SYMBOL SEGNO
+1D10C	MUSICAL SYMBOL CODA
+1D10D	MUSICAL SYMBOL REPEATED FIGURE-1
+1D10E	MUSICAL SYMBOL REPEATED FIGURE-2
+1D10F	MUSICAL SYMBOL REPEATED FIGURE-3
+1D110	MUSICAL SYMBOL FERMATA
+1D111	MUSICAL SYMBOL FERMATA BELOW
+1D112	MUSICAL SYMBOL BREATH MARK
+1D113	MUSICAL SYMBOL CAESURA
+1D114	MUSICAL SYMBOL BRACE
+1D115	MUSICAL SYMBOL BRACKET
+1D116	MUSICAL SYMBOL ONE-LINE STAFF
+1D117	MUSICAL SYMBOL TWO-LINE STAFF
+1D118	MUSICAL SYMBOL THREE-LINE STAFF
+1D119	MUSICAL SYMBOL FOUR-LINE STAFF
+1D11A	MUSICAL SYMBOL FIVE-LINE STAFF
+1D11B	MUSICAL SYMBOL SIX-LINE STAFF
+1D11C	MUSICAL SYMBOL SIX-STRING FRETBOARD
+1D11D	MUSICAL SYMBOL FOUR-STRING FRETBOARD
+1D11E	MUSICAL SYMBOL G CLEF
+1D11F	MUSICAL SYMBOL G CLEF OTTAVA ALTA
+1D120	MUSICAL SYMBOL G CLEF OTTAVA BASSA
+1D121	MUSICAL SYMBOL C CLEF
+1D122	MUSICAL SYMBOL F CLEF
+1D123	MUSICAL SYMBOL F CLEF OTTAVA ALTA
+1D124	MUSICAL SYMBOL F CLEF OTTAVA BASSA
+1D125	MUSICAL SYMBOL DRUM CLEF-1
+1D126	MUSICAL SYMBOL DRUM CLEF-2
+1D129	MUSICAL SYMBOL MULTIPLE MEASURE REST
+1D12A	MUSICAL SYMBOL DOUBLE SHARP
+1D12B	MUSICAL SYMBOL DOUBLE FLAT
+1D12C	MUSICAL SYMBOL FLAT UP
+1D12D	MUSICAL SYMBOL FLAT DOWN
+1D12E	MUSICAL SYMBOL NATURAL UP
+1D12F	MUSICAL SYMBOL NATURAL DOWN
+1D130	MUSICAL SYMBOL SHARP UP
+1D131	MUSICAL SYMBOL SHARP DOWN
+1D132	MUSICAL SYMBOL QUARTER TONE SHARP
+1D133	MUSICAL SYMBOL QUARTER TONE FLAT
+1D134	MUSICAL SYMBOL COMMON TIME
+1D135	MUSICAL SYMBOL CUT TIME
+1D136	MUSICAL SYMBOL OTTAVA ALTA
+1D137	MUSICAL SYMBOL OTTAVA BASSA
+1D138	MUSICAL SYMBOL QUINDICESIMA ALTA
+1D139	MUSICAL SYMBOL QUINDICESIMA BASSA
+1D13A	MUSICAL SYMBOL MULTI REST
+1D13B	MUSICAL SYMBOL WHOLE REST
+1D13C	MUSICAL SYMBOL HALF REST
+1D13D	MUSICAL SYMBOL QUARTER REST
+1D13E	MUSICAL SYMBOL EIGHTH REST
+1D13F	MUSICAL SYMBOL SIXTEENTH REST
+1D140	MUSICAL SYMBOL THIRTY-SECOND REST
+1D141	MUSICAL SYMBOL SIXTY-FOURTH REST
+1D142	MUSICAL SYMBOL ONE HUNDRED TWENTY-EIGHTH REST
+1D143	MUSICAL SYMBOL X NOTEHEAD
+1D144	MUSICAL SYMBOL PLUS NOTEHEAD
+1D145	MUSICAL SYMBOL CIRCLE X NOTEHEAD
+1D146	MUSICAL SYMBOL SQUARE NOTEHEAD WHITE
+1D147	MUSICAL SYMBOL SQUARE NOTEHEAD BLACK
+1D148	MUSICAL SYMBOL TRIANGLE NOTEHEAD UP WHITE
+1D149	MUSICAL SYMBOL TRIANGLE NOTEHEAD UP BLACK
+1D14A	MUSICAL SYMBOL TRIANGLE NOTEHEAD LEFT WHITE
+1D14B	MUSICAL SYMBOL TRIANGLE NOTEHEAD LEFT BLACK
+1D14C	MUSICAL SYMBOL TRIANGLE NOTEHEAD RIGHT WHITE
+1D14D	MUSICAL SYMBOL TRIANGLE NOTEHEAD RIGHT BLACK
+1D14E	MUSICAL SYMBOL TRIANGLE NOTEHEAD DOWN WHITE
+1D14F	MUSICAL SYMBOL TRIANGLE NOTEHEAD DOWN BLACK
+1D150	MUSICAL SYMBOL TRIANGLE NOTEHEAD UP RIGHT WHITE
+1D151	MUSICAL SYMBOL TRIANGLE NOTEHEAD UP RIGHT BLACK
+1D152	MUSICAL SYMBOL MOON NOTEHEAD WHITE
+1D153	MUSICAL SYMBOL MOON NOTEHEAD BLACK
+1D154	MUSICAL SYMBOL TRIANGLE-ROUND NOTEHEAD DOWN WHITE
+1D155	MUSICAL SYMBOL TRIANGLE-ROUND NOTEHEAD DOWN BLACK
+1D156	MUSICAL SYMBOL PARENTHESIS NOTEHEAD
+1D157	MUSICAL SYMBOL VOID NOTEHEAD
+1D158	MUSICAL SYMBOL NOTEHEAD BLACK
+1D159	MUSICAL SYMBOL NULL NOTEHEAD
+1D15A	MUSICAL SYMBOL CLUSTER NOTEHEAD WHITE
+1D15B	MUSICAL SYMBOL CLUSTER NOTEHEAD BLACK
+1D15C	MUSICAL SYMBOL BREVE
+1D15D	MUSICAL SYMBOL WHOLE NOTE
+1D15E	MUSICAL SYMBOL HALF NOTE
+1D15F	MUSICAL SYMBOL QUARTER NOTE
+1D160	MUSICAL SYMBOL EIGHTH NOTE
+1D161	MUSICAL SYMBOL SIXTEENTH NOTE
+1D162	MUSICAL SYMBOL THIRTY-SECOND NOTE
+1D163	MUSICAL SYMBOL SIXTY-FOURTH NOTE
+1D164	MUSICAL SYMBOL ONE HUNDRED TWENTY-EIGHTH NOTE
+1D165	MUSICAL SYMBOL COMBINING STEM
+1D166	MUSICAL SYMBOL COMBINING SPRECHGESANG STEM
+1D167	MUSICAL SYMBOL COMBINING TREMOLO-1
+1D168	MUSICAL SYMBOL COMBINING TREMOLO-2
+1D169	MUSICAL SYMBOL COMBINING TREMOLO-3
+1D16A	MUSICAL SYMBOL FINGERED TREMOLO-1
+1D16B	MUSICAL SYMBOL FINGERED TREMOLO-2
+1D16C	MUSICAL SYMBOL FINGERED TREMOLO-3
+1D16D	MUSICAL SYMBOL COMBINING AUGMENTATION DOT
+1D16E	MUSICAL SYMBOL COMBINING FLAG-1
+1D16F	MUSICAL SYMBOL COMBINING FLAG-2
+1D170	MUSICAL SYMBOL COMBINING FLAG-3
+1D171	MUSICAL SYMBOL COMBINING FLAG-4
+1D172	MUSICAL SYMBOL COMBINING FLAG-5
+1D173	MUSICAL SYMBOL BEGIN BEAM
+1D174	MUSICAL SYMBOL END BEAM
+1D175	MUSICAL SYMBOL BEGIN TIE
+1D176	MUSICAL SYMBOL END TIE
+1D177	MUSICAL SYMBOL BEGIN SLUR
+1D178	MUSICAL SYMBOL END SLUR
+1D179	MUSICAL SYMBOL BEGIN PHRASE
+1D17A	MUSICAL SYMBOL END PHRASE
+1D17B	MUSICAL SYMBOL COMBINING ACCENT
+1D17C	MUSICAL SYMBOL COMBINING STACCATO
+1D17D	MUSICAL SYMBOL COMBINING TENUTO
+1D17E	MUSICAL SYMBOL COMBINING STACCATISSIMO
+1D17F	MUSICAL SYMBOL COMBINING MARCATO
+1D180	MUSICAL SYMBOL COMBINING MARCATO-STACCATO
+1D181	MUSICAL SYMBOL COMBINING ACCENT-STACCATO
+1D182	MUSICAL SYMBOL COMBINING LOURE
+1D183	MUSICAL SYMBOL ARPEGGIATO UP
+1D184	MUSICAL SYMBOL ARPEGGIATO DOWN
+1D185	MUSICAL SYMBOL COMBINING DOIT
+1D186	MUSICAL SYMBOL COMBINING RIP
+1D187	MUSICAL SYMBOL COMBINING FLIP
+1D188	MUSICAL SYMBOL COMBINING SMEAR
+1D189	MUSICAL SYMBOL COMBINING BEND
+1D18A	MUSICAL SYMBOL COMBINING DOUBLE TONGUE
+1D18B	MUSICAL SYMBOL COMBINING TRIPLE TONGUE
+1D18C	MUSICAL SYMBOL RINFORZANDO
+1D18D	MUSICAL SYMBOL SUBITO
+1D18E	MUSICAL SYMBOL Z
+1D18F	MUSICAL SYMBOL PIANO
+1D190	MUSICAL SYMBOL MEZZO
+1D191	MUSICAL SYMBOL FORTE
+1D192	MUSICAL SYMBOL CRESCENDO
+1D193	MUSICAL SYMBOL DECRESCENDO
+1D194	MUSICAL SYMBOL GRACE NOTE SLASH
+1D195	MUSICAL SYMBOL GRACE NOTE NO SLASH
+1D196	MUSICAL SYMBOL TR
+1D197	MUSICAL SYMBOL TURN
+1D198	MUSICAL SYMBOL INVERTED TURN
+1D199	MUSICAL SYMBOL TURN SLASH
+1D19A	MUSICAL SYMBOL TURN UP
+1D19B	MUSICAL SYMBOL ORNAMENT STROKE-1
+1D19C	MUSICAL SYMBOL ORNAMENT STROKE-2
+1D19D	MUSICAL SYMBOL ORNAMENT STROKE-3
+1D19E	MUSICAL SYMBOL ORNAMENT STROKE-4
+1D19F	MUSICAL SYMBOL ORNAMENT STROKE-5
+1D1A0	MUSICAL SYMBOL ORNAMENT STROKE-6
+1D1A1	MUSICAL SYMBOL ORNAMENT STROKE-7
+1D1A2	MUSICAL SYMBOL ORNAMENT STROKE-8
+1D1A3	MUSICAL SYMBOL ORNAMENT STROKE-9
+1D1A4	MUSICAL SYMBOL ORNAMENT STROKE-10
+1D1A5	MUSICAL SYMBOL ORNAMENT STROKE-11
+1D1A6	MUSICAL SYMBOL HAUPTSTIMME
+1D1A7	MUSICAL SYMBOL NEBENSTIMME
+1D1A8	MUSICAL SYMBOL END OF STIMME
+1D1A9	MUSICAL SYMBOL DEGREE SLASH
+1D1AA	MUSICAL SYMBOL COMBINING DOWN BOW
+1D1AB	MUSICAL SYMBOL COMBINING UP BOW
+1D1AC	MUSICAL SYMBOL COMBINING HARMONIC
+1D1AD	MUSICAL SYMBOL COMBINING SNAP PIZZICATO
+1D1AE	MUSICAL SYMBOL PEDAL MARK
+1D1AF	MUSICAL SYMBOL PEDAL UP MARK
+1D1B0	MUSICAL SYMBOL HALF PEDAL MARK
+1D1B1	MUSICAL SYMBOL GLISSANDO UP
+1D1B2	MUSICAL SYMBOL GLISSANDO DOWN
+1D1B3	MUSICAL SYMBOL WITH FINGERNAILS
+1D1B4	MUSICAL SYMBOL DAMP
+1D1B5	MUSICAL SYMBOL DAMP ALL
+1D1B6	MUSICAL SYMBOL MAXIMA
+1D1B7	MUSICAL SYMBOL LONGA
+1D1B8	MUSICAL SYMBOL BREVIS
+1D1B9	MUSICAL SYMBOL SEMIBREVIS WHITE
+1D1BA	MUSICAL SYMBOL SEMIBREVIS BLACK
+1D1BB	MUSICAL SYMBOL MINIMA
+1D1BC	MUSICAL SYMBOL MINIMA BLACK
+1D1BD	MUSICAL SYMBOL SEMIMINIMA WHITE
+1D1BE	MUSICAL SYMBOL SEMIMINIMA BLACK
+1D1BF	MUSICAL SYMBOL FUSA WHITE
+1D1C0	MUSICAL SYMBOL FUSA BLACK
+1D1C1	MUSICAL SYMBOL LONGA PERFECTA REST
+1D1C2	MUSICAL SYMBOL LONGA IMPERFECTA REST
+1D1C3	MUSICAL SYMBOL BREVIS REST
+1D1C4	MUSICAL SYMBOL SEMIBREVIS REST
+1D1C5	MUSICAL SYMBOL MINIMA REST
+1D1C6	MUSICAL SYMBOL SEMIMINIMA REST
+1D1C7	MUSICAL SYMBOL TEMPUS PERFECTUM CUM PROLATIONE PERFECTA
+1D1C8	MUSICAL SYMBOL TEMPUS PERFECTUM CUM PROLATIONE IMPERFECTA
+1D1C9	MUSICAL SYMBOL TEMPUS PERFECTUM CUM PROLATIONE PERFECTA DIMINUTION-1
+1D1CA	MUSICAL SYMBOL TEMPUS IMPERFECTUM CUM PROLATIONE PERFECTA
+1D1CB	MUSICAL SYMBOL TEMPUS IMPERFECTUM CUM PROLATIONE IMPERFECTA
+1D1CC	MUSICAL SYMBOL TEMPUS IMPERFECTUM CUM PROLATIONE IMPERFECTA DIMINUTION-1
+1D1CD	MUSICAL SYMBOL TEMPUS IMPERFECTUM CUM PROLATIONE IMPERFECTA DIMINUTION-2
+1D1CE	MUSICAL SYMBOL TEMPUS IMPERFECTUM CUM PROLATIONE IMPERFECTA DIMINUTION-3
+1D1CF	MUSICAL SYMBOL CROIX
+1D1D0	MUSICAL SYMBOL GREGORIAN C CLEF
+1D1D1	MUSICAL SYMBOL GREGORIAN F CLEF
+1D1D2	MUSICAL SYMBOL SQUARE B
+1D1D3	MUSICAL SYMBOL VIRGA
+1D1D4	MUSICAL SYMBOL PODATUS
+1D1D5	MUSICAL SYMBOL CLIVIS
+1D1D6	MUSICAL SYMBOL SCANDICUS
+1D1D7	MUSICAL SYMBOL CLIMACUS
+1D1D8	MUSICAL SYMBOL TORCULUS
+1D1D9	MUSICAL SYMBOL PORRECTUS
+1D1DA	MUSICAL SYMBOL PORRECTUS FLEXUS
+1D1DB	MUSICAL SYMBOL SCANDICUS FLEXUS
+1D1DC	MUSICAL SYMBOL TORCULUS RESUPINUS
+1D1DD	MUSICAL SYMBOL PES SUBPUNCTIS
+1D1DE	MUSICAL SYMBOL KIEVAN C CLEF
+1D1DF	MUSICAL SYMBOL KIEVAN END OF PIECE
+1D1E0	MUSICAL SYMBOL KIEVAN FINAL NOTE
+1D1E1	MUSICAL SYMBOL KIEVAN RECITATIVE MARK
+1D1E2	MUSICAL SYMBOL KIEVAN WHOLE NOTE
+1D1E3	MUSICAL SYMBOL KIEVAN HALF NOTE
+1D1E4	MUSICAL SYMBOL KIEVAN QUARTER NOTE STEM DOWN
+1D1E5	MUSICAL SYMBOL KIEVAN QUARTER NOTE STEM UP
+1D1E6	MUSICAL SYMBOL KIEVAN EIGHTH NOTE STEM DOWN
+1D1E7	MUSICAL SYMBOL KIEVAN EIGHTH NOTE STEM UP
+1D1E8	MUSICAL SYMBOL KIEVAN FLAT SIGN
+1D200	GREEK VOCAL NOTATION SYMBOL-1
+1D201	GREEK VOCAL NOTATION SYMBOL-2
+1D202	GREEK VOCAL NOTATION SYMBOL-3
+1D203	GREEK VOCAL NOTATION SYMBOL-4
+1D204	GREEK VOCAL NOTATION SYMBOL-5
+1D205	GREEK VOCAL NOTATION SYMBOL-6
+1D206	GREEK VOCAL NOTATION SYMBOL-7
+1D207	GREEK VOCAL NOTATION SYMBOL-8
+1D208	GREEK VOCAL NOTATION SYMBOL-9
+1D209	GREEK VOCAL NOTATION SYMBOL-10
+1D20A	GREEK VOCAL NOTATION SYMBOL-11
+1D20B	GREEK VOCAL NOTATION SYMBOL-12
+1D20C	GREEK VOCAL NOTATION SYMBOL-13
+1D20D	GREEK VOCAL NOTATION SYMBOL-14
+1D20E	GREEK VOCAL NOTATION SYMBOL-15
+1D20F	GREEK VOCAL NOTATION SYMBOL-16
+1D210	GREEK VOCAL NOTATION SYMBOL-17
+1D211	GREEK VOCAL NOTATION SYMBOL-18
+1D212	GREEK VOCAL NOTATION SYMBOL-19
+1D213	GREEK VOCAL NOTATION SYMBOL-20
+1D214	GREEK VOCAL NOTATION SYMBOL-21
+1D215	GREEK VOCAL NOTATION SYMBOL-22
+1D216	GREEK VOCAL NOTATION SYMBOL-23
+1D217	GREEK VOCAL NOTATION SYMBOL-24
+1D218	GREEK VOCAL NOTATION SYMBOL-50
+1D219	GREEK VOCAL NOTATION SYMBOL-51
+1D21A	GREEK VOCAL NOTATION SYMBOL-52
+1D21B	GREEK VOCAL NOTATION SYMBOL-53
+1D21C	GREEK VOCAL NOTATION SYMBOL-54
+1D21D	GREEK INSTRUMENTAL NOTATION SYMBOL-1
+1D21E	GREEK INSTRUMENTAL NOTATION SYMBOL-2
+1D21F	GREEK INSTRUMENTAL NOTATION SYMBOL-4
+1D220	GREEK INSTRUMENTAL NOTATION SYMBOL-5
+1D221	GREEK INSTRUMENTAL NOTATION SYMBOL-7
+1D222	GREEK INSTRUMENTAL NOTATION SYMBOL-8
+1D223	GREEK INSTRUMENTAL NOTATION SYMBOL-11
+1D224	GREEK INSTRUMENTAL NOTATION SYMBOL-12
+1D225	GREEK INSTRUMENTAL NOTATION SYMBOL-13
+1D226	GREEK INSTRUMENTAL NOTATION SYMBOL-14
+1D227	GREEK INSTRUMENTAL NOTATION SYMBOL-17
+1D228	GREEK INSTRUMENTAL NOTATION SYMBOL-18
+1D229	GREEK INSTRUMENTAL NOTATION SYMBOL-19
+1D22A	GREEK INSTRUMENTAL NOTATION SYMBOL-23
+1D22B	GREEK INSTRUMENTAL NOTATION SYMBOL-24
+1D22C	GREEK INSTRUMENTAL NOTATION SYMBOL-25
+1D22D	GREEK INSTRUMENTAL NOTATION SYMBOL-26
+1D22E	GREEK INSTRUMENTAL NOTATION SYMBOL-27
+1D22F	GREEK INSTRUMENTAL NOTATION SYMBOL-29
+1D230	GREEK INSTRUMENTAL NOTATION SYMBOL-30
+1D231	GREEK INSTRUMENTAL NOTATION SYMBOL-32
+1D232	GREEK INSTRUMENTAL NOTATION SYMBOL-36
+1D233	GREEK INSTRUMENTAL NOTATION SYMBOL-37
+1D234	GREEK INSTRUMENTAL NOTATION SYMBOL-38
+1D235	GREEK INSTRUMENTAL NOTATION SYMBOL-39
+1D236	GREEK INSTRUMENTAL NOTATION SYMBOL-40
+1D237	GREEK INSTRUMENTAL NOTATION SYMBOL-42
+1D238	GREEK INSTRUMENTAL NOTATION SYMBOL-43
+1D239	GREEK INSTRUMENTAL NOTATION SYMBOL-45
+1D23A	GREEK INSTRUMENTAL NOTATION SYMBOL-47
+1D23B	GREEK INSTRUMENTAL NOTATION SYMBOL-48
+1D23C	GREEK INSTRUMENTAL NOTATION SYMBOL-49
+1D23D	GREEK INSTRUMENTAL NOTATION SYMBOL-50
+1D23E	GREEK INSTRUMENTAL NOTATION SYMBOL-51
+1D23F	GREEK INSTRUMENTAL NOTATION SYMBOL-52
+1D240	GREEK INSTRUMENTAL NOTATION SYMBOL-53
+1D241	GREEK INSTRUMENTAL NOTATION SYMBOL-54
+1D242	COMBINING GREEK MUSICAL TRISEME
+1D243	COMBINING GREEK MUSICAL TETRASEME
+1D244	COMBINING GREEK MUSICAL PENTASEME
+1D245	GREEK MUSICAL LEIMMA
+1D300	MONOGRAM FOR EARTH
+1D301	DIGRAM FOR HEAVENLY EARTH
+1D302	DIGRAM FOR HUMAN EARTH
+1D303	DIGRAM FOR EARTHLY HEAVEN
+1D304	DIGRAM FOR EARTHLY HUMAN
+1D305	DIGRAM FOR EARTH
+1D306	TETRAGRAM FOR CENTRE
+1D307	TETRAGRAM FOR FULL CIRCLE
+1D308	TETRAGRAM FOR MIRED
+1D309	TETRAGRAM FOR BARRIER
+1D30A	TETRAGRAM FOR KEEPING SMALL
+1D30B	TETRAGRAM FOR CONTRARIETY
+1D30C	TETRAGRAM FOR ASCENT
+1D30D	TETRAGRAM FOR OPPOSITION
+1D30E	TETRAGRAM FOR BRANCHING OUT
+1D30F	TETRAGRAM FOR DEFECTIVENESS OR DISTORTION
+1D310	TETRAGRAM FOR DIVERGENCE
+1D311	TETRAGRAM FOR YOUTHFULNESS
+1D312	TETRAGRAM FOR INCREASE
+1D313	TETRAGRAM FOR PENETRATION
+1D314	TETRAGRAM FOR REACH
+1D315	TETRAGRAM FOR CONTACT
+1D316	TETRAGRAM FOR HOLDING BACK
+1D317	TETRAGRAM FOR WAITING
+1D318	TETRAGRAM FOR FOLLOWING
+1D319	TETRAGRAM FOR ADVANCE
+1D31A	TETRAGRAM FOR RELEASE
+1D31B	TETRAGRAM FOR RESISTANCE
+1D31C	TETRAGRAM FOR EASE
+1D31D	TETRAGRAM FOR JOY
+1D31E	TETRAGRAM FOR CONTENTION
+1D31F	TETRAGRAM FOR ENDEAVOUR
+1D320	TETRAGRAM FOR DUTIES
+1D321	TETRAGRAM FOR CHANGE
+1D322	TETRAGRAM FOR DECISIVENESS
+1D323	TETRAGRAM FOR BOLD RESOLUTION
+1D324	TETRAGRAM FOR PACKING
+1D325	TETRAGRAM FOR LEGION
+1D326	TETRAGRAM FOR CLOSENESS
+1D327	TETRAGRAM FOR KINSHIP
+1D328	TETRAGRAM FOR GATHERING
+1D329	TETRAGRAM FOR STRENGTH
+1D32A	TETRAGRAM FOR PURITY
+1D32B	TETRAGRAM FOR FULLNESS
+1D32C	TETRAGRAM FOR RESIDENCE
+1D32D	TETRAGRAM FOR LAW OR MODEL
+1D32E	TETRAGRAM FOR RESPONSE
+1D32F	TETRAGRAM FOR GOING TO MEET
+1D330	TETRAGRAM FOR ENCOUNTERS
+1D331	TETRAGRAM FOR STOVE
+1D332	TETRAGRAM FOR GREATNESS
+1D333	TETRAGRAM FOR ENLARGEMENT
+1D334	TETRAGRAM FOR PATTERN
+1D335	TETRAGRAM FOR RITUAL
+1D336	TETRAGRAM FOR FLIGHT
+1D337	TETRAGRAM FOR VASTNESS OR WASTING
+1D338	TETRAGRAM FOR CONSTANCY
+1D339	TETRAGRAM FOR MEASURE
+1D33A	TETRAGRAM FOR ETERNITY
+1D33B	TETRAGRAM FOR UNITY
+1D33C	TETRAGRAM FOR DIMINISHMENT
+1D33D	TETRAGRAM FOR CLOSED MOUTH
+1D33E	TETRAGRAM FOR GUARDEDNESS
+1D33F	TETRAGRAM FOR GATHERING IN
+1D340	TETRAGRAM FOR MASSING
+1D341	TETRAGRAM FOR ACCUMULATION
+1D342	TETRAGRAM FOR EMBELLISHMENT
+1D343	TETRAGRAM FOR DOUBT
+1D344	TETRAGRAM FOR WATCH
+1D345	TETRAGRAM FOR SINKING
+1D346	TETRAGRAM FOR INNER
+1D347	TETRAGRAM FOR DEPARTURE
+1D348	TETRAGRAM FOR DARKENING
+1D349	TETRAGRAM FOR DIMMING
+1D34A	TETRAGRAM FOR EXHAUSTION
+1D34B	TETRAGRAM FOR SEVERANCE
+1D34C	TETRAGRAM FOR STOPPAGE
+1D34D	TETRAGRAM FOR HARDNESS
+1D34E	TETRAGRAM FOR COMPLETION
+1D34F	TETRAGRAM FOR CLOSURE
+1D350	TETRAGRAM FOR FAILURE
+1D351	TETRAGRAM FOR AGGRAVATION
+1D352	TETRAGRAM FOR COMPLIANCE
+1D353	TETRAGRAM FOR ON THE VERGE
+1D354	TETRAGRAM FOR DIFFICULTIES
+1D355	TETRAGRAM FOR LABOURING
+1D356	TETRAGRAM FOR FOSTERING
+1D360	COUNTING ROD UNIT DIGIT ONE
+1D361	COUNTING ROD UNIT DIGIT TWO
+1D362	COUNTING ROD UNIT DIGIT THREE
+1D363	COUNTING ROD UNIT DIGIT FOUR
+1D364	COUNTING ROD UNIT DIGIT FIVE
+1D365	COUNTING ROD UNIT DIGIT SIX
+1D366	COUNTING ROD UNIT DIGIT SEVEN
+1D367	COUNTING ROD UNIT DIGIT EIGHT
+1D368	COUNTING ROD UNIT DIGIT NINE
+1D369	COUNTING ROD TENS DIGIT ONE
+1D36A	COUNTING ROD TENS DIGIT TWO
+1D36B	COUNTING ROD TENS DIGIT THREE
+1D36C	COUNTING ROD TENS DIGIT FOUR
+1D36D	COUNTING ROD TENS DIGIT FIVE
+1D36E	COUNTING ROD TENS DIGIT SIX
+1D36F	COUNTING ROD TENS DIGIT SEVEN
+1D370	COUNTING ROD TENS DIGIT EIGHT
+1D371	COUNTING ROD TENS DIGIT NINE
+1D400	MATHEMATICAL BOLD CAPITAL A
+1D401	MATHEMATICAL BOLD CAPITAL B
+1D402	MATHEMATICAL BOLD CAPITAL C
+1D403	MATHEMATICAL BOLD CAPITAL D
+1D404	MATHEMATICAL BOLD CAPITAL E
+1D405	MATHEMATICAL BOLD CAPITAL F
+1D406	MATHEMATICAL BOLD CAPITAL G
+1D407	MATHEMATICAL BOLD CAPITAL H
+1D408	MATHEMATICAL BOLD CAPITAL I
+1D409	MATHEMATICAL BOLD CAPITAL J
+1D40A	MATHEMATICAL BOLD CAPITAL K
+1D40B	MATHEMATICAL BOLD CAPITAL L
+1D40C	MATHEMATICAL BOLD CAPITAL M
+1D40D	MATHEMATICAL BOLD CAPITAL N
+1D40E	MATHEMATICAL BOLD CAPITAL O
+1D40F	MATHEMATICAL BOLD CAPITAL P
+1D410	MATHEMATICAL BOLD CAPITAL Q
+1D411	MATHEMATICAL BOLD CAPITAL R
+1D412	MATHEMATICAL BOLD CAPITAL S
+1D413	MATHEMATICAL BOLD CAPITAL T
+1D414	MATHEMATICAL BOLD CAPITAL U
+1D415	MATHEMATICAL BOLD CAPITAL V
+1D416	MATHEMATICAL BOLD CAPITAL W
+1D417	MATHEMATICAL BOLD CAPITAL X
+1D418	MATHEMATICAL BOLD CAPITAL Y
+1D419	MATHEMATICAL BOLD CAPITAL Z
+1D41A	MATHEMATICAL BOLD SMALL A
+1D41B	MATHEMATICAL BOLD SMALL B
+1D41C	MATHEMATICAL BOLD SMALL C
+1D41D	MATHEMATICAL BOLD SMALL D
+1D41E	MATHEMATICAL BOLD SMALL E
+1D41F	MATHEMATICAL BOLD SMALL F
+1D420	MATHEMATICAL BOLD SMALL G
+1D421	MATHEMATICAL BOLD SMALL H
+1D422	MATHEMATICAL BOLD SMALL I
+1D423	MATHEMATICAL BOLD SMALL J
+1D424	MATHEMATICAL BOLD SMALL K
+1D425	MATHEMATICAL BOLD SMALL L
+1D426	MATHEMATICAL BOLD SMALL M
+1D427	MATHEMATICAL BOLD SMALL N
+1D428	MATHEMATICAL BOLD SMALL O
+1D429	MATHEMATICAL BOLD SMALL P
+1D42A	MATHEMATICAL BOLD SMALL Q
+1D42B	MATHEMATICAL BOLD SMALL R
+1D42C	MATHEMATICAL BOLD SMALL S
+1D42D	MATHEMATICAL BOLD SMALL T
+1D42E	MATHEMATICAL BOLD SMALL U
+1D42F	MATHEMATICAL BOLD SMALL V
+1D430	MATHEMATICAL BOLD SMALL W
+1D431	MATHEMATICAL BOLD SMALL X
+1D432	MATHEMATICAL BOLD SMALL Y
+1D433	MATHEMATICAL BOLD SMALL Z
+1D434	MATHEMATICAL ITALIC CAPITAL A
+1D435	MATHEMATICAL ITALIC CAPITAL B
+1D436	MATHEMATICAL ITALIC CAPITAL C
+1D437	MATHEMATICAL ITALIC CAPITAL D
+1D438	MATHEMATICAL ITALIC CAPITAL E
+1D439	MATHEMATICAL ITALIC CAPITAL F
+1D43A	MATHEMATICAL ITALIC CAPITAL G
+1D43B	MATHEMATICAL ITALIC CAPITAL H
+1D43C	MATHEMATICAL ITALIC CAPITAL I
+1D43D	MATHEMATICAL ITALIC CAPITAL J
+1D43E	MATHEMATICAL ITALIC CAPITAL K
+1D43F	MATHEMATICAL ITALIC CAPITAL L
+1D440	MATHEMATICAL ITALIC CAPITAL M
+1D441	MATHEMATICAL ITALIC CAPITAL N
+1D442	MATHEMATICAL ITALIC CAPITAL O
+1D443	MATHEMATICAL ITALIC CAPITAL P
+1D444	MATHEMATICAL ITALIC CAPITAL Q
+1D445	MATHEMATICAL ITALIC CAPITAL R
+1D446	MATHEMATICAL ITALIC CAPITAL S
+1D447	MATHEMATICAL ITALIC CAPITAL T
+1D448	MATHEMATICAL ITALIC CAPITAL U
+1D449	MATHEMATICAL ITALIC CAPITAL V
+1D44A	MATHEMATICAL ITALIC CAPITAL W
+1D44B	MATHEMATICAL ITALIC CAPITAL X
+1D44C	MATHEMATICAL ITALIC CAPITAL Y
+1D44D	MATHEMATICAL ITALIC CAPITAL Z
+1D44E	MATHEMATICAL ITALIC SMALL A
+1D44F	MATHEMATICAL ITALIC SMALL B
+1D450	MATHEMATICAL ITALIC SMALL C
+1D451	MATHEMATICAL ITALIC SMALL D
+1D452	MATHEMATICAL ITALIC SMALL E
+1D453	MATHEMATICAL ITALIC SMALL F
+1D454	MATHEMATICAL ITALIC SMALL G
+1D456	MATHEMATICAL ITALIC SMALL I
+1D457	MATHEMATICAL ITALIC SMALL J
+1D458	MATHEMATICAL ITALIC SMALL K
+1D459	MATHEMATICAL ITALIC SMALL L
+1D45A	MATHEMATICAL ITALIC SMALL M
+1D45B	MATHEMATICAL ITALIC SMALL N
+1D45C	MATHEMATICAL ITALIC SMALL O
+1D45D	MATHEMATICAL ITALIC SMALL P
+1D45E	MATHEMATICAL ITALIC SMALL Q
+1D45F	MATHEMATICAL ITALIC SMALL R
+1D460	MATHEMATICAL ITALIC SMALL S
+1D461	MATHEMATICAL ITALIC SMALL T
+1D462	MATHEMATICAL ITALIC SMALL U
+1D463	MATHEMATICAL ITALIC SMALL V
+1D464	MATHEMATICAL ITALIC SMALL W
+1D465	MATHEMATICAL ITALIC SMALL X
+1D466	MATHEMATICAL ITALIC SMALL Y
+1D467	MATHEMATICAL ITALIC SMALL Z
+1D468	MATHEMATICAL BOLD ITALIC CAPITAL A
+1D469	MATHEMATICAL BOLD ITALIC CAPITAL B
+1D46A	MATHEMATICAL BOLD ITALIC CAPITAL C
+1D46B	MATHEMATICAL BOLD ITALIC CAPITAL D
+1D46C	MATHEMATICAL BOLD ITALIC CAPITAL E
+1D46D	MATHEMATICAL BOLD ITALIC CAPITAL F
+1D46E	MATHEMATICAL BOLD ITALIC CAPITAL G
+1D46F	MATHEMATICAL BOLD ITALIC CAPITAL H
+1D470	MATHEMATICAL BOLD ITALIC CAPITAL I
+1D471	MATHEMATICAL BOLD ITALIC CAPITAL J
+1D472	MATHEMATICAL BOLD ITALIC CAPITAL K
+1D473	MATHEMATICAL BOLD ITALIC CAPITAL L
+1D474	MATHEMATICAL BOLD ITALIC CAPITAL M
+1D475	MATHEMATICAL BOLD ITALIC CAPITAL N
+1D476	MATHEMATICAL BOLD ITALIC CAPITAL O
+1D477	MATHEMATICAL BOLD ITALIC CAPITAL P
+1D478	MATHEMATICAL BOLD ITALIC CAPITAL Q
+1D479	MATHEMATICAL BOLD ITALIC CAPITAL R
+1D47A	MATHEMATICAL BOLD ITALIC CAPITAL S
+1D47B	MATHEMATICAL BOLD ITALIC CAPITAL T
+1D47C	MATHEMATICAL BOLD ITALIC CAPITAL U
+1D47D	MATHEMATICAL BOLD ITALIC CAPITAL V
+1D47E	MATHEMATICAL BOLD ITALIC CAPITAL W
+1D47F	MATHEMATICAL BOLD ITALIC CAPITAL X
+1D480	MATHEMATICAL BOLD ITALIC CAPITAL Y
+1D481	MATHEMATICAL BOLD ITALIC CAPITAL Z
+1D482	MATHEMATICAL BOLD ITALIC SMALL A
+1D483	MATHEMATICAL BOLD ITALIC SMALL B
+1D484	MATHEMATICAL BOLD ITALIC SMALL C
+1D485	MATHEMATICAL BOLD ITALIC SMALL D
+1D486	MATHEMATICAL BOLD ITALIC SMALL E
+1D487	MATHEMATICAL BOLD ITALIC SMALL F
+1D488	MATHEMATICAL BOLD ITALIC SMALL G
+1D489	MATHEMATICAL BOLD ITALIC SMALL H
+1D48A	MATHEMATICAL BOLD ITALIC SMALL I
+1D48B	MATHEMATICAL BOLD ITALIC SMALL J
+1D48C	MATHEMATICAL BOLD ITALIC SMALL K
+1D48D	MATHEMATICAL BOLD ITALIC SMALL L
+1D48E	MATHEMATICAL BOLD ITALIC SMALL M
+1D48F	MATHEMATICAL BOLD ITALIC SMALL N
+1D490	MATHEMATICAL BOLD ITALIC SMALL O
+1D491	MATHEMATICAL BOLD ITALIC SMALL P
+1D492	MATHEMATICAL BOLD ITALIC SMALL Q
+1D493	MATHEMATICAL BOLD ITALIC SMALL R
+1D494	MATHEMATICAL BOLD ITALIC SMALL S
+1D495	MATHEMATICAL BOLD ITALIC SMALL T
+1D496	MATHEMATICAL BOLD ITALIC SMALL U
+1D497	MATHEMATICAL BOLD ITALIC SMALL V
+1D498	MATHEMATICAL BOLD ITALIC SMALL W
+1D499	MATHEMATICAL BOLD ITALIC SMALL X
+1D49A	MATHEMATICAL BOLD ITALIC SMALL Y
+1D49B	MATHEMATICAL BOLD ITALIC SMALL Z
+1D49C	MATHEMATICAL SCRIPT CAPITAL A
+1D49E	MATHEMATICAL SCRIPT CAPITAL C
+1D49F	MATHEMATICAL SCRIPT CAPITAL D
+1D4A2	MATHEMATICAL SCRIPT CAPITAL G
+1D4A5	MATHEMATICAL SCRIPT CAPITAL J
+1D4A6	MATHEMATICAL SCRIPT CAPITAL K
+1D4A9	MATHEMATICAL SCRIPT CAPITAL N
+1D4AA	MATHEMATICAL SCRIPT CAPITAL O
+1D4AB	MATHEMATICAL SCRIPT CAPITAL P
+1D4AC	MATHEMATICAL SCRIPT CAPITAL Q
+1D4AE	MATHEMATICAL SCRIPT CAPITAL S
+1D4AF	MATHEMATICAL SCRIPT CAPITAL T
+1D4B0	MATHEMATICAL SCRIPT CAPITAL U
+1D4B1	MATHEMATICAL SCRIPT CAPITAL V
+1D4B2	MATHEMATICAL SCRIPT CAPITAL W
+1D4B3	MATHEMATICAL SCRIPT CAPITAL X
+1D4B4	MATHEMATICAL SCRIPT CAPITAL Y
+1D4B5	MATHEMATICAL SCRIPT CAPITAL Z
+1D4B6	MATHEMATICAL SCRIPT SMALL A
+1D4B7	MATHEMATICAL SCRIPT SMALL B
+1D4B8	MATHEMATICAL SCRIPT SMALL C
+1D4B9	MATHEMATICAL SCRIPT SMALL D
+1D4BB	MATHEMATICAL SCRIPT SMALL F
+1D4BD	MATHEMATICAL SCRIPT SMALL H
+1D4BE	MATHEMATICAL SCRIPT SMALL I
+1D4BF	MATHEMATICAL SCRIPT SMALL J
+1D4C0	MATHEMATICAL SCRIPT SMALL K
+1D4C1	MATHEMATICAL SCRIPT SMALL L
+1D4C2	MATHEMATICAL SCRIPT SMALL M
+1D4C3	MATHEMATICAL SCRIPT SMALL N
+1D4C5	MATHEMATICAL SCRIPT SMALL P
+1D4C6	MATHEMATICAL SCRIPT SMALL Q
+1D4C7	MATHEMATICAL SCRIPT SMALL R
+1D4C8	MATHEMATICAL SCRIPT SMALL S
+1D4C9	MATHEMATICAL SCRIPT SMALL T
+1D4CA	MATHEMATICAL SCRIPT SMALL U
+1D4CB	MATHEMATICAL SCRIPT SMALL V
+1D4CC	MATHEMATICAL SCRIPT SMALL W
+1D4CD	MATHEMATICAL SCRIPT SMALL X
+1D4CE	MATHEMATICAL SCRIPT SMALL Y
+1D4CF	MATHEMATICAL SCRIPT SMALL Z
+1D4D0	MATHEMATICAL BOLD SCRIPT CAPITAL A
+1D4D1	MATHEMATICAL BOLD SCRIPT CAPITAL B
+1D4D2	MATHEMATICAL BOLD SCRIPT CAPITAL C
+1D4D3	MATHEMATICAL BOLD SCRIPT CAPITAL D
+1D4D4	MATHEMATICAL BOLD SCRIPT CAPITAL E
+1D4D5	MATHEMATICAL BOLD SCRIPT CAPITAL F
+1D4D6	MATHEMATICAL BOLD SCRIPT CAPITAL G
+1D4D7	MATHEMATICAL BOLD SCRIPT CAPITAL H
+1D4D8	MATHEMATICAL BOLD SCRIPT CAPITAL I
+1D4D9	MATHEMATICAL BOLD SCRIPT CAPITAL J
+1D4DA	MATHEMATICAL BOLD SCRIPT CAPITAL K
+1D4DB	MATHEMATICAL BOLD SCRIPT CAPITAL L
+1D4DC	MATHEMATICAL BOLD SCRIPT CAPITAL M
+1D4DD	MATHEMATICAL BOLD SCRIPT CAPITAL N
+1D4DE	MATHEMATICAL BOLD SCRIPT CAPITAL O
+1D4DF	MATHEMATICAL BOLD SCRIPT CAPITAL P
+1D4E0	MATHEMATICAL BOLD SCRIPT CAPITAL Q
+1D4E1	MATHEMATICAL BOLD SCRIPT CAPITAL R
+1D4E2	MATHEMATICAL BOLD SCRIPT CAPITAL S
+1D4E3	MATHEMATICAL BOLD SCRIPT CAPITAL T
+1D4E4	MATHEMATICAL BOLD SCRIPT CAPITAL U
+1D4E5	MATHEMATICAL BOLD SCRIPT CAPITAL V
+1D4E6	MATHEMATICAL BOLD SCRIPT CAPITAL W
+1D4E7	MATHEMATICAL BOLD SCRIPT CAPITAL X
+1D4E8	MATHEMATICAL BOLD SCRIPT CAPITAL Y
+1D4E9	MATHEMATICAL BOLD SCRIPT CAPITAL Z
+1D4EA	MATHEMATICAL BOLD SCRIPT SMALL A
+1D4EB	MATHEMATICAL BOLD SCRIPT SMALL B
+1D4EC	MATHEMATICAL BOLD SCRIPT SMALL C
+1D4ED	MATHEMATICAL BOLD SCRIPT SMALL D
+1D4EE	MATHEMATICAL BOLD SCRIPT SMALL E
+1D4EF	MATHEMATICAL BOLD SCRIPT SMALL F
+1D4F0	MATHEMATICAL BOLD SCRIPT SMALL G
+1D4F1	MATHEMATICAL BOLD SCRIPT SMALL H
+1D4F2	MATHEMATICAL BOLD SCRIPT SMALL I
+1D4F3	MATHEMATICAL BOLD SCRIPT SMALL J
+1D4F4	MATHEMATICAL BOLD SCRIPT SMALL K
+1D4F5	MATHEMATICAL BOLD SCRIPT SMALL L
+1D4F6	MATHEMATICAL BOLD SCRIPT SMALL M
+1D4F7	MATHEMATICAL BOLD SCRIPT SMALL N
+1D4F8	MATHEMATICAL BOLD SCRIPT SMALL O
+1D4F9	MATHEMATICAL BOLD SCRIPT SMALL P
+1D4FA	MATHEMATICAL BOLD SCRIPT SMALL Q
+1D4FB	MATHEMATICAL BOLD SCRIPT SMALL R
+1D4FC	MATHEMATICAL BOLD SCRIPT SMALL S
+1D4FD	MATHEMATICAL BOLD SCRIPT SMALL T
+1D4FE	MATHEMATICAL BOLD SCRIPT SMALL U
+1D4FF	MATHEMATICAL BOLD SCRIPT SMALL V
+1D500	MATHEMATICAL BOLD SCRIPT SMALL W
+1D501	MATHEMATICAL BOLD SCRIPT SMALL X
+1D502	MATHEMATICAL BOLD SCRIPT SMALL Y
+1D503	MATHEMATICAL BOLD SCRIPT SMALL Z
+1D504	MATHEMATICAL FRAKTUR CAPITAL A
+1D505	MATHEMATICAL FRAKTUR CAPITAL B
+1D507	MATHEMATICAL FRAKTUR CAPITAL D
+1D508	MATHEMATICAL FRAKTUR CAPITAL E
+1D509	MATHEMATICAL FRAKTUR CAPITAL F
+1D50A	MATHEMATICAL FRAKTUR CAPITAL G
+1D50D	MATHEMATICAL FRAKTUR CAPITAL J
+1D50E	MATHEMATICAL FRAKTUR CAPITAL K
+1D50F	MATHEMATICAL FRAKTUR CAPITAL L
+1D510	MATHEMATICAL FRAKTUR CAPITAL M
+1D511	MATHEMATICAL FRAKTUR CAPITAL N
+1D512	MATHEMATICAL FRAKTUR CAPITAL O
+1D513	MATHEMATICAL FRAKTUR CAPITAL P
+1D514	MATHEMATICAL FRAKTUR CAPITAL Q
+1D516	MATHEMATICAL FRAKTUR CAPITAL S
+1D517	MATHEMATICAL FRAKTUR CAPITAL T
+1D518	MATHEMATICAL FRAKTUR CAPITAL U
+1D519	MATHEMATICAL FRAKTUR CAPITAL V
+1D51A	MATHEMATICAL FRAKTUR CAPITAL W
+1D51B	MATHEMATICAL FRAKTUR CAPITAL X
+1D51C	MATHEMATICAL FRAKTUR CAPITAL Y
+1D51E	MATHEMATICAL FRAKTUR SMALL A
+1D51F	MATHEMATICAL FRAKTUR SMALL B
+1D520	MATHEMATICAL FRAKTUR SMALL C
+1D521	MATHEMATICAL FRAKTUR SMALL D
+1D522	MATHEMATICAL FRAKTUR SMALL E
+1D523	MATHEMATICAL FRAKTUR SMALL F
+1D524	MATHEMATICAL FRAKTUR SMALL G
+1D525	MATHEMATICAL FRAKTUR SMALL H
+1D526	MATHEMATICAL FRAKTUR SMALL I
+1D527	MATHEMATICAL FRAKTUR SMALL J
+1D528	MATHEMATICAL FRAKTUR SMALL K
+1D529	MATHEMATICAL FRAKTUR SMALL L
+1D52A	MATHEMATICAL FRAKTUR SMALL M
+1D52B	MATHEMATICAL FRAKTUR SMALL N
+1D52C	MATHEMATICAL FRAKTUR SMALL O
+1D52D	MATHEMATICAL FRAKTUR SMALL P
+1D52E	MATHEMATICAL FRAKTUR SMALL Q
+1D52F	MATHEMATICAL FRAKTUR SMALL R
+1D530	MATHEMATICAL FRAKTUR SMALL S
+1D531	MATHEMATICAL FRAKTUR SMALL T
+1D532	MATHEMATICAL FRAKTUR SMALL U
+1D533	MATHEMATICAL FRAKTUR SMALL V
+1D534	MATHEMATICAL FRAKTUR SMALL W
+1D535	MATHEMATICAL FRAKTUR SMALL X
+1D536	MATHEMATICAL FRAKTUR SMALL Y
+1D537	MATHEMATICAL FRAKTUR SMALL Z
+1D538	MATHEMATICAL DOUBLE-STRUCK CAPITAL A
+1D539	MATHEMATICAL DOUBLE-STRUCK CAPITAL B
+1D53B	MATHEMATICAL DOUBLE-STRUCK CAPITAL D
+1D53C	MATHEMATICAL DOUBLE-STRUCK CAPITAL E
+1D53D	MATHEMATICAL DOUBLE-STRUCK CAPITAL F
+1D53E	MATHEMATICAL DOUBLE-STRUCK CAPITAL G
+1D540	MATHEMATICAL DOUBLE-STRUCK CAPITAL I
+1D541	MATHEMATICAL DOUBLE-STRUCK CAPITAL J
+1D542	MATHEMATICAL DOUBLE-STRUCK CAPITAL K
+1D543	MATHEMATICAL DOUBLE-STRUCK CAPITAL L
+1D544	MATHEMATICAL DOUBLE-STRUCK CAPITAL M
+1D546	MATHEMATICAL DOUBLE-STRUCK CAPITAL O
+1D54A	MATHEMATICAL DOUBLE-STRUCK CAPITAL S
+1D54B	MATHEMATICAL DOUBLE-STRUCK CAPITAL T
+1D54C	MATHEMATICAL DOUBLE-STRUCK CAPITAL U
+1D54D	MATHEMATICAL DOUBLE-STRUCK CAPITAL V
+1D54E	MATHEMATICAL DOUBLE-STRUCK CAPITAL W
+1D54F	MATHEMATICAL DOUBLE-STRUCK CAPITAL X
+1D550	MATHEMATICAL DOUBLE-STRUCK CAPITAL Y
+1D552	MATHEMATICAL DOUBLE-STRUCK SMALL A
+1D553	MATHEMATICAL DOUBLE-STRUCK SMALL B
+1D554	MATHEMATICAL DOUBLE-STRUCK SMALL C
+1D555	MATHEMATICAL DOUBLE-STRUCK SMALL D
+1D556	MATHEMATICAL DOUBLE-STRUCK SMALL E
+1D557	MATHEMATICAL DOUBLE-STRUCK SMALL F
+1D558	MATHEMATICAL DOUBLE-STRUCK SMALL G
+1D559	MATHEMATICAL DOUBLE-STRUCK SMALL H
+1D55A	MATHEMATICAL DOUBLE-STRUCK SMALL I
+1D55B	MATHEMATICAL DOUBLE-STRUCK SMALL J
+1D55C	MATHEMATICAL DOUBLE-STRUCK SMALL K
+1D55D	MATHEMATICAL DOUBLE-STRUCK SMALL L
+1D55E	MATHEMATICAL DOUBLE-STRUCK SMALL M
+1D55F	MATHEMATICAL DOUBLE-STRUCK SMALL N
+1D560	MATHEMATICAL DOUBLE-STRUCK SMALL O
+1D561	MATHEMATICAL DOUBLE-STRUCK SMALL P
+1D562	MATHEMATICAL DOUBLE-STRUCK SMALL Q
+1D563	MATHEMATICAL DOUBLE-STRUCK SMALL R
+1D564	MATHEMATICAL DOUBLE-STRUCK SMALL S
+1D565	MATHEMATICAL DOUBLE-STRUCK SMALL T
+1D566	MATHEMATICAL DOUBLE-STRUCK SMALL U
+1D567	MATHEMATICAL DOUBLE-STRUCK SMALL V
+1D568	MATHEMATICAL DOUBLE-STRUCK SMALL W
+1D569	MATHEMATICAL DOUBLE-STRUCK SMALL X
+1D56A	MATHEMATICAL DOUBLE-STRUCK SMALL Y
+1D56B	MATHEMATICAL DOUBLE-STRUCK SMALL Z
+1D56C	MATHEMATICAL BOLD FRAKTUR CAPITAL A
+1D56D	MATHEMATICAL BOLD FRAKTUR CAPITAL B
+1D56E	MATHEMATICAL BOLD FRAKTUR CAPITAL C
+1D56F	MATHEMATICAL BOLD FRAKTUR CAPITAL D
+1D570	MATHEMATICAL BOLD FRAKTUR CAPITAL E
+1D571	MATHEMATICAL BOLD FRAKTUR CAPITAL F
+1D572	MATHEMATICAL BOLD FRAKTUR CAPITAL G
+1D573	MATHEMATICAL BOLD FRAKTUR CAPITAL H
+1D574	MATHEMATICAL BOLD FRAKTUR CAPITAL I
+1D575	MATHEMATICAL BOLD FRAKTUR CAPITAL J
+1D576	MATHEMATICAL BOLD FRAKTUR CAPITAL K
+1D577	MATHEMATICAL BOLD FRAKTUR CAPITAL L
+1D578	MATHEMATICAL BOLD FRAKTUR CAPITAL M
+1D579	MATHEMATICAL BOLD FRAKTUR CAPITAL N
+1D57A	MATHEMATICAL BOLD FRAKTUR CAPITAL O
+1D57B	MATHEMATICAL BOLD FRAKTUR CAPITAL P
+1D57C	MATHEMATICAL BOLD FRAKTUR CAPITAL Q
+1D57D	MATHEMATICAL BOLD FRAKTUR CAPITAL R
+1D57E	MATHEMATICAL BOLD FRAKTUR CAPITAL S
+1D57F	MATHEMATICAL BOLD FRAKTUR CAPITAL T
+1D580	MATHEMATICAL BOLD FRAKTUR CAPITAL U
+1D581	MATHEMATICAL BOLD FRAKTUR CAPITAL V
+1D582	MATHEMATICAL BOLD FRAKTUR CAPITAL W
+1D583	MATHEMATICAL BOLD FRAKTUR CAPITAL X
+1D584	MATHEMATICAL BOLD FRAKTUR CAPITAL Y
+1D585	MATHEMATICAL BOLD FRAKTUR CAPITAL Z
+1D586	MATHEMATICAL BOLD FRAKTUR SMALL A
+1D587	MATHEMATICAL BOLD FRAKTUR SMALL B
+1D588	MATHEMATICAL BOLD FRAKTUR SMALL C
+1D589	MATHEMATICAL BOLD FRAKTUR SMALL D
+1D58A	MATHEMATICAL BOLD FRAKTUR SMALL E
+1D58B	MATHEMATICAL BOLD FRAKTUR SMALL F
+1D58C	MATHEMATICAL BOLD FRAKTUR SMALL G
+1D58D	MATHEMATICAL BOLD FRAKTUR SMALL H
+1D58E	MATHEMATICAL BOLD FRAKTUR SMALL I
+1D58F	MATHEMATICAL BOLD FRAKTUR SMALL J
+1D590	MATHEMATICAL BOLD FRAKTUR SMALL K
+1D591	MATHEMATICAL BOLD FRAKTUR SMALL L
+1D592	MATHEMATICAL BOLD FRAKTUR SMALL M
+1D593	MATHEMATICAL BOLD FRAKTUR SMALL N
+1D594	MATHEMATICAL BOLD FRAKTUR SMALL O
+1D595	MATHEMATICAL BOLD FRAKTUR SMALL P
+1D596	MATHEMATICAL BOLD FRAKTUR SMALL Q
+1D597	MATHEMATICAL BOLD FRAKTUR SMALL R
+1D598	MATHEMATICAL BOLD FRAKTUR SMALL S
+1D599	MATHEMATICAL BOLD FRAKTUR SMALL T
+1D59A	MATHEMATICAL BOLD FRAKTUR SMALL U
+1D59B	MATHEMATICAL BOLD FRAKTUR SMALL V
+1D59C	MATHEMATICAL BOLD FRAKTUR SMALL W
+1D59D	MATHEMATICAL BOLD FRAKTUR SMALL X
+1D59E	MATHEMATICAL BOLD FRAKTUR SMALL Y
+1D59F	MATHEMATICAL BOLD FRAKTUR SMALL Z
+1D5A0	MATHEMATICAL SANS-SERIF CAPITAL A
+1D5A1	MATHEMATICAL SANS-SERIF CAPITAL B
+1D5A2	MATHEMATICAL SANS-SERIF CAPITAL C
+1D5A3	MATHEMATICAL SANS-SERIF CAPITAL D
+1D5A4	MATHEMATICAL SANS-SERIF CAPITAL E
+1D5A5	MATHEMATICAL SANS-SERIF CAPITAL F
+1D5A6	MATHEMATICAL SANS-SERIF CAPITAL G
+1D5A7	MATHEMATICAL SANS-SERIF CAPITAL H
+1D5A8	MATHEMATICAL SANS-SERIF CAPITAL I
+1D5A9	MATHEMATICAL SANS-SERIF CAPITAL J
+1D5AA	MATHEMATICAL SANS-SERIF CAPITAL K
+1D5AB	MATHEMATICAL SANS-SERIF CAPITAL L
+1D5AC	MATHEMATICAL SANS-SERIF CAPITAL M
+1D5AD	MATHEMATICAL SANS-SERIF CAPITAL N
+1D5AE	MATHEMATICAL SANS-SERIF CAPITAL O
+1D5AF	MATHEMATICAL SANS-SERIF CAPITAL P
+1D5B0	MATHEMATICAL SANS-SERIF CAPITAL Q
+1D5B1	MATHEMATICAL SANS-SERIF CAPITAL R
+1D5B2	MATHEMATICAL SANS-SERIF CAPITAL S
+1D5B3	MATHEMATICAL SANS-SERIF CAPITAL T
+1D5B4	MATHEMATICAL SANS-SERIF CAPITAL U
+1D5B5	MATHEMATICAL SANS-SERIF CAPITAL V
+1D5B6	MATHEMATICAL SANS-SERIF CAPITAL W
+1D5B7	MATHEMATICAL SANS-SERIF CAPITAL X
+1D5B8	MATHEMATICAL SANS-SERIF CAPITAL Y
+1D5B9	MATHEMATICAL SANS-SERIF CAPITAL Z
+1D5BA	MATHEMATICAL SANS-SERIF SMALL A
+1D5BB	MATHEMATICAL SANS-SERIF SMALL B
+1D5BC	MATHEMATICAL SANS-SERIF SMALL C
+1D5BD	MATHEMATICAL SANS-SERIF SMALL D
+1D5BE	MATHEMATICAL SANS-SERIF SMALL E
+1D5BF	MATHEMATICAL SANS-SERIF SMALL F
+1D5C0	MATHEMATICAL SANS-SERIF SMALL G
+1D5C1	MATHEMATICAL SANS-SERIF SMALL H
+1D5C2	MATHEMATICAL SANS-SERIF SMALL I
+1D5C3	MATHEMATICAL SANS-SERIF SMALL J
+1D5C4	MATHEMATICAL SANS-SERIF SMALL K
+1D5C5	MATHEMATICAL SANS-SERIF SMALL L
+1D5C6	MATHEMATICAL SANS-SERIF SMALL M
+1D5C7	MATHEMATICAL SANS-SERIF SMALL N
+1D5C8	MATHEMATICAL SANS-SERIF SMALL O
+1D5C9	MATHEMATICAL SANS-SERIF SMALL P
+1D5CA	MATHEMATICAL SANS-SERIF SMALL Q
+1D5CB	MATHEMATICAL SANS-SERIF SMALL R
+1D5CC	MATHEMATICAL SANS-SERIF SMALL S
+1D5CD	MATHEMATICAL SANS-SERIF SMALL T
+1D5CE	MATHEMATICAL SANS-SERIF SMALL U
+1D5CF	MATHEMATICAL SANS-SERIF SMALL V
+1D5D0	MATHEMATICAL SANS-SERIF SMALL W
+1D5D1	MATHEMATICAL SANS-SERIF SMALL X
+1D5D2	MATHEMATICAL SANS-SERIF SMALL Y
+1D5D3	MATHEMATICAL SANS-SERIF SMALL Z
+1D5D4	MATHEMATICAL SANS-SERIF BOLD CAPITAL A
+1D5D5	MATHEMATICAL SANS-SERIF BOLD CAPITAL B
+1D5D6	MATHEMATICAL SANS-SERIF BOLD CAPITAL C
+1D5D7	MATHEMATICAL SANS-SERIF BOLD CAPITAL D
+1D5D8	MATHEMATICAL SANS-SERIF BOLD CAPITAL E
+1D5D9	MATHEMATICAL SANS-SERIF BOLD CAPITAL F
+1D5DA	MATHEMATICAL SANS-SERIF BOLD CAPITAL G
+1D5DB	MATHEMATICAL SANS-SERIF BOLD CAPITAL H
+1D5DC	MATHEMATICAL SANS-SERIF BOLD CAPITAL I
+1D5DD	MATHEMATICAL SANS-SERIF BOLD CAPITAL J
+1D5DE	MATHEMATICAL SANS-SERIF BOLD CAPITAL K
+1D5DF	MATHEMATICAL SANS-SERIF BOLD CAPITAL L
+1D5E0	MATHEMATICAL SANS-SERIF BOLD CAPITAL M
+1D5E1	MATHEMATICAL SANS-SERIF BOLD CAPITAL N
+1D5E2	MATHEMATICAL SANS-SERIF BOLD CAPITAL O
+1D5E3	MATHEMATICAL SANS-SERIF BOLD CAPITAL P
+1D5E4	MATHEMATICAL SANS-SERIF BOLD CAPITAL Q
+1D5E5	MATHEMATICAL SANS-SERIF BOLD CAPITAL R
+1D5E6	MATHEMATICAL SANS-SERIF BOLD CAPITAL S
+1D5E7	MATHEMATICAL SANS-SERIF BOLD CAPITAL T
+1D5E8	MATHEMATICAL SANS-SERIF BOLD CAPITAL U
+1D5E9	MATHEMATICAL SANS-SERIF BOLD CAPITAL V
+1D5EA	MATHEMATICAL SANS-SERIF BOLD CAPITAL W
+1D5EB	MATHEMATICAL SANS-SERIF BOLD CAPITAL X
+1D5EC	MATHEMATICAL SANS-SERIF BOLD CAPITAL Y
+1D5ED	MATHEMATICAL SANS-SERIF BOLD CAPITAL Z
+1D5EE	MATHEMATICAL SANS-SERIF BOLD SMALL A
+1D5EF	MATHEMATICAL SANS-SERIF BOLD SMALL B
+1D5F0	MATHEMATICAL SANS-SERIF BOLD SMALL C
+1D5F1	MATHEMATICAL SANS-SERIF BOLD SMALL D
+1D5F2	MATHEMATICAL SANS-SERIF BOLD SMALL E
+1D5F3	MATHEMATICAL SANS-SERIF BOLD SMALL F
+1D5F4	MATHEMATICAL SANS-SERIF BOLD SMALL G
+1D5F5	MATHEMATICAL SANS-SERIF BOLD SMALL H
+1D5F6	MATHEMATICAL SANS-SERIF BOLD SMALL I
+1D5F7	MATHEMATICAL SANS-SERIF BOLD SMALL J
+1D5F8	MATHEMATICAL SANS-SERIF BOLD SMALL K
+1D5F9	MATHEMATICAL SANS-SERIF BOLD SMALL L
+1D5FA	MATHEMATICAL SANS-SERIF BOLD SMALL M
+1D5FB	MATHEMATICAL SANS-SERIF BOLD SMALL N
+1D5FC	MATHEMATICAL SANS-SERIF BOLD SMALL O
+1D5FD	MATHEMATICAL SANS-SERIF BOLD SMALL P
+1D5FE	MATHEMATICAL SANS-SERIF BOLD SMALL Q
+1D5FF	MATHEMATICAL SANS-SERIF BOLD SMALL R
+1D600	MATHEMATICAL SANS-SERIF BOLD SMALL S
+1D601	MATHEMATICAL SANS-SERIF BOLD SMALL T
+1D602	MATHEMATICAL SANS-SERIF BOLD SMALL U
+1D603	MATHEMATICAL SANS-SERIF BOLD SMALL V
+1D604	MATHEMATICAL SANS-SERIF BOLD SMALL W
+1D605	MATHEMATICAL SANS-SERIF BOLD SMALL X
+1D606	MATHEMATICAL SANS-SERIF BOLD SMALL Y
+1D607	MATHEMATICAL SANS-SERIF BOLD SMALL Z
+1D608	MATHEMATICAL SANS-SERIF ITALIC CAPITAL A
+1D609	MATHEMATICAL SANS-SERIF ITALIC CAPITAL B
+1D60A	MATHEMATICAL SANS-SERIF ITALIC CAPITAL C
+1D60B	MATHEMATICAL SANS-SERIF ITALIC CAPITAL D
+1D60C	MATHEMATICAL SANS-SERIF ITALIC CAPITAL E
+1D60D	MATHEMATICAL SANS-SERIF ITALIC CAPITAL F
+1D60E	MATHEMATICAL SANS-SERIF ITALIC CAPITAL G
+1D60F	MATHEMATICAL SANS-SERIF ITALIC CAPITAL H
+1D610	MATHEMATICAL SANS-SERIF ITALIC CAPITAL I
+1D611	MATHEMATICAL SANS-SERIF ITALIC CAPITAL J
+1D612	MATHEMATICAL SANS-SERIF ITALIC CAPITAL K
+1D613	MATHEMATICAL SANS-SERIF ITALIC CAPITAL L
+1D614	MATHEMATICAL SANS-SERIF ITALIC CAPITAL M
+1D615	MATHEMATICAL SANS-SERIF ITALIC CAPITAL N
+1D616	MATHEMATICAL SANS-SERIF ITALIC CAPITAL O
+1D617	MATHEMATICAL SANS-SERIF ITALIC CAPITAL P
+1D618	MATHEMATICAL SANS-SERIF ITALIC CAPITAL Q
+1D619	MATHEMATICAL SANS-SERIF ITALIC CAPITAL R
+1D61A	MATHEMATICAL SANS-SERIF ITALIC CAPITAL S
+1D61B	MATHEMATICAL SANS-SERIF ITALIC CAPITAL T
+1D61C	MATHEMATICAL SANS-SERIF ITALIC CAPITAL U
+1D61D	MATHEMATICAL SANS-SERIF ITALIC CAPITAL V
+1D61E	MATHEMATICAL SANS-SERIF ITALIC CAPITAL W
+1D61F	MATHEMATICAL SANS-SERIF ITALIC CAPITAL X
+1D620	MATHEMATICAL SANS-SERIF ITALIC CAPITAL Y
+1D621	MATHEMATICAL SANS-SERIF ITALIC CAPITAL Z
+1D622	MATHEMATICAL SANS-SERIF ITALIC SMALL A
+1D623	MATHEMATICAL SANS-SERIF ITALIC SMALL B
+1D624	MATHEMATICAL SANS-SERIF ITALIC SMALL C
+1D625	MATHEMATICAL SANS-SERIF ITALIC SMALL D
+1D626	MATHEMATICAL SANS-SERIF ITALIC SMALL E
+1D627	MATHEMATICAL SANS-SERIF ITALIC SMALL F
+1D628	MATHEMATICAL SANS-SERIF ITALIC SMALL G
+1D629	MATHEMATICAL SANS-SERIF ITALIC SMALL H
+1D62A	MATHEMATICAL SANS-SERIF ITALIC SMALL I
+1D62B	MATHEMATICAL SANS-SERIF ITALIC SMALL J
+1D62C	MATHEMATICAL SANS-SERIF ITALIC SMALL K
+1D62D	MATHEMATICAL SANS-SERIF ITALIC SMALL L
+1D62E	MATHEMATICAL SANS-SERIF ITALIC SMALL M
+1D62F	MATHEMATICAL SANS-SERIF ITALIC SMALL N
+1D630	MATHEMATICAL SANS-SERIF ITALIC SMALL O
+1D631	MATHEMATICAL SANS-SERIF ITALIC SMALL P
+1D632	MATHEMATICAL SANS-SERIF ITALIC SMALL Q
+1D633	MATHEMATICAL SANS-SERIF ITALIC SMALL R
+1D634	MATHEMATICAL SANS-SERIF ITALIC SMALL S
+1D635	MATHEMATICAL SANS-SERIF ITALIC SMALL T
+1D636	MATHEMATICAL SANS-SERIF ITALIC SMALL U
+1D637	MATHEMATICAL SANS-SERIF ITALIC SMALL V
+1D638	MATHEMATICAL SANS-SERIF ITALIC SMALL W
+1D639	MATHEMATICAL SANS-SERIF ITALIC SMALL X
+1D63A	MATHEMATICAL SANS-SERIF ITALIC SMALL Y
+1D63B	MATHEMATICAL SANS-SERIF ITALIC SMALL Z
+1D63C	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL A
+1D63D	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL B
+1D63E	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL C
+1D63F	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL D
+1D640	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL E
+1D641	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL F
+1D642	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL G
+1D643	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL H
+1D644	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL I
+1D645	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL J
+1D646	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL K
+1D647	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL L
+1D648	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL M
+1D649	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL N
+1D64A	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL O
+1D64B	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL P
+1D64C	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL Q
+1D64D	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL R
+1D64E	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL S
+1D64F	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL T
+1D650	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL U
+1D651	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL V
+1D652	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL W
+1D653	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL X
+1D654	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL Y
+1D655	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL Z
+1D656	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL A
+1D657	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL B
+1D658	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL C
+1D659	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL D
+1D65A	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL E
+1D65B	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL F
+1D65C	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL G
+1D65D	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL H
+1D65E	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL I
+1D65F	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL J
+1D660	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL K
+1D661	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL L
+1D662	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL M
+1D663	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL N
+1D664	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL O
+1D665	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL P
+1D666	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL Q
+1D667	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL R
+1D668	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL S
+1D669	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL T
+1D66A	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL U
+1D66B	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL V
+1D66C	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL W
+1D66D	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL X
+1D66E	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL Y
+1D66F	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL Z
+1D670	MATHEMATICAL MONOSPACE CAPITAL A
+1D671	MATHEMATICAL MONOSPACE CAPITAL B
+1D672	MATHEMATICAL MONOSPACE CAPITAL C
+1D673	MATHEMATICAL MONOSPACE CAPITAL D
+1D674	MATHEMATICAL MONOSPACE CAPITAL E
+1D675	MATHEMATICAL MONOSPACE CAPITAL F
+1D676	MATHEMATICAL MONOSPACE CAPITAL G
+1D677	MATHEMATICAL MONOSPACE CAPITAL H
+1D678	MATHEMATICAL MONOSPACE CAPITAL I
+1D679	MATHEMATICAL MONOSPACE CAPITAL J
+1D67A	MATHEMATICAL MONOSPACE CAPITAL K
+1D67B	MATHEMATICAL MONOSPACE CAPITAL L
+1D67C	MATHEMATICAL MONOSPACE CAPITAL M
+1D67D	MATHEMATICAL MONOSPACE CAPITAL N
+1D67E	MATHEMATICAL MONOSPACE CAPITAL O
+1D67F	MATHEMATICAL MONOSPACE CAPITAL P
+1D680	MATHEMATICAL MONOSPACE CAPITAL Q
+1D681	MATHEMATICAL MONOSPACE CAPITAL R
+1D682	MATHEMATICAL MONOSPACE CAPITAL S
+1D683	MATHEMATICAL MONOSPACE CAPITAL T
+1D684	MATHEMATICAL MONOSPACE CAPITAL U
+1D685	MATHEMATICAL MONOSPACE CAPITAL V
+1D686	MATHEMATICAL MONOSPACE CAPITAL W
+1D687	MATHEMATICAL MONOSPACE CAPITAL X
+1D688	MATHEMATICAL MONOSPACE CAPITAL Y
+1D689	MATHEMATICAL MONOSPACE CAPITAL Z
+1D68A	MATHEMATICAL MONOSPACE SMALL A
+1D68B	MATHEMATICAL MONOSPACE SMALL B
+1D68C	MATHEMATICAL MONOSPACE SMALL C
+1D68D	MATHEMATICAL MONOSPACE SMALL D
+1D68E	MATHEMATICAL MONOSPACE SMALL E
+1D68F	MATHEMATICAL MONOSPACE SMALL F
+1D690	MATHEMATICAL MONOSPACE SMALL G
+1D691	MATHEMATICAL MONOSPACE SMALL H
+1D692	MATHEMATICAL MONOSPACE SMALL I
+1D693	MATHEMATICAL MONOSPACE SMALL J
+1D694	MATHEMATICAL MONOSPACE SMALL K
+1D695	MATHEMATICAL MONOSPACE SMALL L
+1D696	MATHEMATICAL MONOSPACE SMALL M
+1D697	MATHEMATICAL MONOSPACE SMALL N
+1D698	MATHEMATICAL MONOSPACE SMALL O
+1D699	MATHEMATICAL MONOSPACE SMALL P
+1D69A	MATHEMATICAL MONOSPACE SMALL Q
+1D69B	MATHEMATICAL MONOSPACE SMALL R
+1D69C	MATHEMATICAL MONOSPACE SMALL S
+1D69D	MATHEMATICAL MONOSPACE SMALL T
+1D69E	MATHEMATICAL MONOSPACE SMALL U
+1D69F	MATHEMATICAL MONOSPACE SMALL V
+1D6A0	MATHEMATICAL MONOSPACE SMALL W
+1D6A1	MATHEMATICAL MONOSPACE SMALL X
+1D6A2	MATHEMATICAL MONOSPACE SMALL Y
+1D6A3	MATHEMATICAL MONOSPACE SMALL Z
+1D6A4	MATHEMATICAL ITALIC SMALL DOTLESS I
+1D6A5	MATHEMATICAL ITALIC SMALL DOTLESS J
+1D6A8	MATHEMATICAL BOLD CAPITAL ALPHA
+1D6A9	MATHEMATICAL BOLD CAPITAL BETA
+1D6AA	MATHEMATICAL BOLD CAPITAL GAMMA
+1D6AB	MATHEMATICAL BOLD CAPITAL DELTA
+1D6AC	MATHEMATICAL BOLD CAPITAL EPSILON
+1D6AD	MATHEMATICAL BOLD CAPITAL ZETA
+1D6AE	MATHEMATICAL BOLD CAPITAL ETA
+1D6AF	MATHEMATICAL BOLD CAPITAL THETA
+1D6B0	MATHEMATICAL BOLD CAPITAL IOTA
+1D6B1	MATHEMATICAL BOLD CAPITAL KAPPA
+1D6B2	MATHEMATICAL BOLD CAPITAL LAMDA
+1D6B3	MATHEMATICAL BOLD CAPITAL MU
+1D6B4	MATHEMATICAL BOLD CAPITAL NU
+1D6B5	MATHEMATICAL BOLD CAPITAL XI
+1D6B6	MATHEMATICAL BOLD CAPITAL OMICRON
+1D6B7	MATHEMATICAL BOLD CAPITAL PI
+1D6B8	MATHEMATICAL BOLD CAPITAL RHO
+1D6B9	MATHEMATICAL BOLD CAPITAL THETA SYMBOL
+1D6BA	MATHEMATICAL BOLD CAPITAL SIGMA
+1D6BB	MATHEMATICAL BOLD CAPITAL TAU
+1D6BC	MATHEMATICAL BOLD CAPITAL UPSILON
+1D6BD	MATHEMATICAL BOLD CAPITAL PHI
+1D6BE	MATHEMATICAL BOLD CAPITAL CHI
+1D6BF	MATHEMATICAL BOLD CAPITAL PSI
+1D6C0	MATHEMATICAL BOLD CAPITAL OMEGA
+1D6C1	MATHEMATICAL BOLD NABLA
+1D6C2	MATHEMATICAL BOLD SMALL ALPHA
+1D6C3	MATHEMATICAL BOLD SMALL BETA
+1D6C4	MATHEMATICAL BOLD SMALL GAMMA
+1D6C5	MATHEMATICAL BOLD SMALL DELTA
+1D6C6	MATHEMATICAL BOLD SMALL EPSILON
+1D6C7	MATHEMATICAL BOLD SMALL ZETA
+1D6C8	MATHEMATICAL BOLD SMALL ETA
+1D6C9	MATHEMATICAL BOLD SMALL THETA
+1D6CA	MATHEMATICAL BOLD SMALL IOTA
+1D6CB	MATHEMATICAL BOLD SMALL KAPPA
+1D6CC	MATHEMATICAL BOLD SMALL LAMDA
+1D6CD	MATHEMATICAL BOLD SMALL MU
+1D6CE	MATHEMATICAL BOLD SMALL NU
+1D6CF	MATHEMATICAL BOLD SMALL XI
+1D6D0	MATHEMATICAL BOLD SMALL OMICRON
+1D6D1	MATHEMATICAL BOLD SMALL PI
+1D6D2	MATHEMATICAL BOLD SMALL RHO
+1D6D3	MATHEMATICAL BOLD SMALL FINAL SIGMA
+1D6D4	MATHEMATICAL BOLD SMALL SIGMA
+1D6D5	MATHEMATICAL BOLD SMALL TAU
+1D6D6	MATHEMATICAL BOLD SMALL UPSILON
+1D6D7	MATHEMATICAL BOLD SMALL PHI
+1D6D8	MATHEMATICAL BOLD SMALL CHI
+1D6D9	MATHEMATICAL BOLD SMALL PSI
+1D6DA	MATHEMATICAL BOLD SMALL OMEGA
+1D6DB	MATHEMATICAL BOLD PARTIAL DIFFERENTIAL
+1D6DC	MATHEMATICAL BOLD EPSILON SYMBOL
+1D6DD	MATHEMATICAL BOLD THETA SYMBOL
+1D6DE	MATHEMATICAL BOLD KAPPA SYMBOL
+1D6DF	MATHEMATICAL BOLD PHI SYMBOL
+1D6E0	MATHEMATICAL BOLD RHO SYMBOL
+1D6E1	MATHEMATICAL BOLD PI SYMBOL
+1D6E2	MATHEMATICAL ITALIC CAPITAL ALPHA
+1D6E3	MATHEMATICAL ITALIC CAPITAL BETA
+1D6E4	MATHEMATICAL ITALIC CAPITAL GAMMA
+1D6E5	MATHEMATICAL ITALIC CAPITAL DELTA
+1D6E6	MATHEMATICAL ITALIC CAPITAL EPSILON
+1D6E7	MATHEMATICAL ITALIC CAPITAL ZETA
+1D6E8	MATHEMATICAL ITALIC CAPITAL ETA
+1D6E9	MATHEMATICAL ITALIC CAPITAL THETA
+1D6EA	MATHEMATICAL ITALIC CAPITAL IOTA
+1D6EB	MATHEMATICAL ITALIC CAPITAL KAPPA
+1D6EC	MATHEMATICAL ITALIC CAPITAL LAMDA
+1D6ED	MATHEMATICAL ITALIC CAPITAL MU
+1D6EE	MATHEMATICAL ITALIC CAPITAL NU
+1D6EF	MATHEMATICAL ITALIC CAPITAL XI
+1D6F0	MATHEMATICAL ITALIC CAPITAL OMICRON
+1D6F1	MATHEMATICAL ITALIC CAPITAL PI
+1D6F2	MATHEMATICAL ITALIC CAPITAL RHO
+1D6F3	MATHEMATICAL ITALIC CAPITAL THETA SYMBOL
+1D6F4	MATHEMATICAL ITALIC CAPITAL SIGMA
+1D6F5	MATHEMATICAL ITALIC CAPITAL TAU
+1D6F6	MATHEMATICAL ITALIC CAPITAL UPSILON
+1D6F7	MATHEMATICAL ITALIC CAPITAL PHI
+1D6F8	MATHEMATICAL ITALIC CAPITAL CHI
+1D6F9	MATHEMATICAL ITALIC CAPITAL PSI
+1D6FA	MATHEMATICAL ITALIC CAPITAL OMEGA
+1D6FB	MATHEMATICAL ITALIC NABLA
+1D6FC	MATHEMATICAL ITALIC SMALL ALPHA
+1D6FD	MATHEMATICAL ITALIC SMALL BETA
+1D6FE	MATHEMATICAL ITALIC SMALL GAMMA
+1D6FF	MATHEMATICAL ITALIC SMALL DELTA
+1D700	MATHEMATICAL ITALIC SMALL EPSILON
+1D701	MATHEMATICAL ITALIC SMALL ZETA
+1D702	MATHEMATICAL ITALIC SMALL ETA
+1D703	MATHEMATICAL ITALIC SMALL THETA
+1D704	MATHEMATICAL ITALIC SMALL IOTA
+1D705	MATHEMATICAL ITALIC SMALL KAPPA
+1D706	MATHEMATICAL ITALIC SMALL LAMDA
+1D707	MATHEMATICAL ITALIC SMALL MU
+1D708	MATHEMATICAL ITALIC SMALL NU
+1D709	MATHEMATICAL ITALIC SMALL XI
+1D70A	MATHEMATICAL ITALIC SMALL OMICRON
+1D70B	MATHEMATICAL ITALIC SMALL PI
+1D70C	MATHEMATICAL ITALIC SMALL RHO
+1D70D	MATHEMATICAL ITALIC SMALL FINAL SIGMA
+1D70E	MATHEMATICAL ITALIC SMALL SIGMA
+1D70F	MATHEMATICAL ITALIC SMALL TAU
+1D710	MATHEMATICAL ITALIC SMALL UPSILON
+1D711	MATHEMATICAL ITALIC SMALL PHI
+1D712	MATHEMATICAL ITALIC SMALL CHI
+1D713	MATHEMATICAL ITALIC SMALL PSI
+1D714	MATHEMATICAL ITALIC SMALL OMEGA
+1D715	MATHEMATICAL ITALIC PARTIAL DIFFERENTIAL
+1D716	MATHEMATICAL ITALIC EPSILON SYMBOL
+1D717	MATHEMATICAL ITALIC THETA SYMBOL
+1D718	MATHEMATICAL ITALIC KAPPA SYMBOL
+1D719	MATHEMATICAL ITALIC PHI SYMBOL
+1D71A	MATHEMATICAL ITALIC RHO SYMBOL
+1D71B	MATHEMATICAL ITALIC PI SYMBOL
+1D71C	MATHEMATICAL BOLD ITALIC CAPITAL ALPHA
+1D71D	MATHEMATICAL BOLD ITALIC CAPITAL BETA
+1D71E	MATHEMATICAL BOLD ITALIC CAPITAL GAMMA
+1D71F	MATHEMATICAL BOLD ITALIC CAPITAL DELTA
+1D720	MATHEMATICAL BOLD ITALIC CAPITAL EPSILON
+1D721	MATHEMATICAL BOLD ITALIC CAPITAL ZETA
+1D722	MATHEMATICAL BOLD ITALIC CAPITAL ETA
+1D723	MATHEMATICAL BOLD ITALIC CAPITAL THETA
+1D724	MATHEMATICAL BOLD ITALIC CAPITAL IOTA
+1D725	MATHEMATICAL BOLD ITALIC CAPITAL KAPPA
+1D726	MATHEMATICAL BOLD ITALIC CAPITAL LAMDA
+1D727	MATHEMATICAL BOLD ITALIC CAPITAL MU
+1D728	MATHEMATICAL BOLD ITALIC CAPITAL NU
+1D729	MATHEMATICAL BOLD ITALIC CAPITAL XI
+1D72A	MATHEMATICAL BOLD ITALIC CAPITAL OMICRON
+1D72B	MATHEMATICAL BOLD ITALIC CAPITAL PI
+1D72C	MATHEMATICAL BOLD ITALIC CAPITAL RHO
+1D72D	MATHEMATICAL BOLD ITALIC CAPITAL THETA SYMBOL
+1D72E	MATHEMATICAL BOLD ITALIC CAPITAL SIGMA
+1D72F	MATHEMATICAL BOLD ITALIC CAPITAL TAU
+1D730	MATHEMATICAL BOLD ITALIC CAPITAL UPSILON
+1D731	MATHEMATICAL BOLD ITALIC CAPITAL PHI
+1D732	MATHEMATICAL BOLD ITALIC CAPITAL CHI
+1D733	MATHEMATICAL BOLD ITALIC CAPITAL PSI
+1D734	MATHEMATICAL BOLD ITALIC CAPITAL OMEGA
+1D735	MATHEMATICAL BOLD ITALIC NABLA
+1D736	MATHEMATICAL BOLD ITALIC SMALL ALPHA
+1D737	MATHEMATICAL BOLD ITALIC SMALL BETA
+1D738	MATHEMATICAL BOLD ITALIC SMALL GAMMA
+1D739	MATHEMATICAL BOLD ITALIC SMALL DELTA
+1D73A	MATHEMATICAL BOLD ITALIC SMALL EPSILON
+1D73B	MATHEMATICAL BOLD ITALIC SMALL ZETA
+1D73C	MATHEMATICAL BOLD ITALIC SMALL ETA
+1D73D	MATHEMATICAL BOLD ITALIC SMALL THETA
+1D73E	MATHEMATICAL BOLD ITALIC SMALL IOTA
+1D73F	MATHEMATICAL BOLD ITALIC SMALL KAPPA
+1D740	MATHEMATICAL BOLD ITALIC SMALL LAMDA
+1D741	MATHEMATICAL BOLD ITALIC SMALL MU
+1D742	MATHEMATICAL BOLD ITALIC SMALL NU
+1D743	MATHEMATICAL BOLD ITALIC SMALL XI
+1D744	MATHEMATICAL BOLD ITALIC SMALL OMICRON
+1D745	MATHEMATICAL BOLD ITALIC SMALL PI
+1D746	MATHEMATICAL BOLD ITALIC SMALL RHO
+1D747	MATHEMATICAL BOLD ITALIC SMALL FINAL SIGMA
+1D748	MATHEMATICAL BOLD ITALIC SMALL SIGMA
+1D749	MATHEMATICAL BOLD ITALIC SMALL TAU
+1D74A	MATHEMATICAL BOLD ITALIC SMALL UPSILON
+1D74B	MATHEMATICAL BOLD ITALIC SMALL PHI
+1D74C	MATHEMATICAL BOLD ITALIC SMALL CHI
+1D74D	MATHEMATICAL BOLD ITALIC SMALL PSI
+1D74E	MATHEMATICAL BOLD ITALIC SMALL OMEGA
+1D74F	MATHEMATICAL BOLD ITALIC PARTIAL DIFFERENTIAL
+1D750	MATHEMATICAL BOLD ITALIC EPSILON SYMBOL
+1D751	MATHEMATICAL BOLD ITALIC THETA SYMBOL
+1D752	MATHEMATICAL BOLD ITALIC KAPPA SYMBOL
+1D753	MATHEMATICAL BOLD ITALIC PHI SYMBOL
+1D754	MATHEMATICAL BOLD ITALIC RHO SYMBOL
+1D755	MATHEMATICAL BOLD ITALIC PI SYMBOL
+1D756	MATHEMATICAL SANS-SERIF BOLD CAPITAL ALPHA
+1D757	MATHEMATICAL SANS-SERIF BOLD CAPITAL BETA
+1D758	MATHEMATICAL SANS-SERIF BOLD CAPITAL GAMMA
+1D759	MATHEMATICAL SANS-SERIF BOLD CAPITAL DELTA
+1D75A	MATHEMATICAL SANS-SERIF BOLD CAPITAL EPSILON
+1D75B	MATHEMATICAL SANS-SERIF BOLD CAPITAL ZETA
+1D75C	MATHEMATICAL SANS-SERIF BOLD CAPITAL ETA
+1D75D	MATHEMATICAL SANS-SERIF BOLD CAPITAL THETA
+1D75E	MATHEMATICAL SANS-SERIF BOLD CAPITAL IOTA
+1D75F	MATHEMATICAL SANS-SERIF BOLD CAPITAL KAPPA
+1D760	MATHEMATICAL SANS-SERIF BOLD CAPITAL LAMDA
+1D761	MATHEMATICAL SANS-SERIF BOLD CAPITAL MU
+1D762	MATHEMATICAL SANS-SERIF BOLD CAPITAL NU
+1D763	MATHEMATICAL SANS-SERIF BOLD CAPITAL XI
+1D764	MATHEMATICAL SANS-SERIF BOLD CAPITAL OMICRON
+1D765	MATHEMATICAL SANS-SERIF BOLD CAPITAL PI
+1D766	MATHEMATICAL SANS-SERIF BOLD CAPITAL RHO
+1D767	MATHEMATICAL SANS-SERIF BOLD CAPITAL THETA SYMBOL
+1D768	MATHEMATICAL SANS-SERIF BOLD CAPITAL SIGMA
+1D769	MATHEMATICAL SANS-SERIF BOLD CAPITAL TAU
+1D76A	MATHEMATICAL SANS-SERIF BOLD CAPITAL UPSILON
+1D76B	MATHEMATICAL SANS-SERIF BOLD CAPITAL PHI
+1D76C	MATHEMATICAL SANS-SERIF BOLD CAPITAL CHI
+1D76D	MATHEMATICAL SANS-SERIF BOLD CAPITAL PSI
+1D76E	MATHEMATICAL SANS-SERIF BOLD CAPITAL OMEGA
+1D76F	MATHEMATICAL SANS-SERIF BOLD NABLA
+1D770	MATHEMATICAL SANS-SERIF BOLD SMALL ALPHA
+1D771	MATHEMATICAL SANS-SERIF BOLD SMALL BETA
+1D772	MATHEMATICAL SANS-SERIF BOLD SMALL GAMMA
+1D773	MATHEMATICAL SANS-SERIF BOLD SMALL DELTA
+1D774	MATHEMATICAL SANS-SERIF BOLD SMALL EPSILON
+1D775	MATHEMATICAL SANS-SERIF BOLD SMALL ZETA
+1D776	MATHEMATICAL SANS-SERIF BOLD SMALL ETA
+1D777	MATHEMATICAL SANS-SERIF BOLD SMALL THETA
+1D778	MATHEMATICAL SANS-SERIF BOLD SMALL IOTA
+1D779	MATHEMATICAL SANS-SERIF BOLD SMALL KAPPA
+1D77A	MATHEMATICAL SANS-SERIF BOLD SMALL LAMDA
+1D77B	MATHEMATICAL SANS-SERIF BOLD SMALL MU
+1D77C	MATHEMATICAL SANS-SERIF BOLD SMALL NU
+1D77D	MATHEMATICAL SANS-SERIF BOLD SMALL XI
+1D77E	MATHEMATICAL SANS-SERIF BOLD SMALL OMICRON
+1D77F	MATHEMATICAL SANS-SERIF BOLD SMALL PI
+1D780	MATHEMATICAL SANS-SERIF BOLD SMALL RHO
+1D781	MATHEMATICAL SANS-SERIF BOLD SMALL FINAL SIGMA
+1D782	MATHEMATICAL SANS-SERIF BOLD SMALL SIGMA
+1D783	MATHEMATICAL SANS-SERIF BOLD SMALL TAU
+1D784	MATHEMATICAL SANS-SERIF BOLD SMALL UPSILON
+1D785	MATHEMATICAL SANS-SERIF BOLD SMALL PHI
+1D786	MATHEMATICAL SANS-SERIF BOLD SMALL CHI
+1D787	MATHEMATICAL SANS-SERIF BOLD SMALL PSI
+1D788	MATHEMATICAL SANS-SERIF BOLD SMALL OMEGA
+1D789	MATHEMATICAL SANS-SERIF BOLD PARTIAL DIFFERENTIAL
+1D78A	MATHEMATICAL SANS-SERIF BOLD EPSILON SYMBOL
+1D78B	MATHEMATICAL SANS-SERIF BOLD THETA SYMBOL
+1D78C	MATHEMATICAL SANS-SERIF BOLD KAPPA SYMBOL
+1D78D	MATHEMATICAL SANS-SERIF BOLD PHI SYMBOL
+1D78E	MATHEMATICAL SANS-SERIF BOLD RHO SYMBOL
+1D78F	MATHEMATICAL SANS-SERIF BOLD PI SYMBOL
+1D790	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL ALPHA
+1D791	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL BETA
+1D792	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL GAMMA
+1D793	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL DELTA
+1D794	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL EPSILON
+1D795	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL ZETA
+1D796	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL ETA
+1D797	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL THETA
+1D798	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL IOTA
+1D799	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL KAPPA
+1D79A	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL LAMDA
+1D79B	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL MU
+1D79C	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL NU
+1D79D	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL XI
+1D79E	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL OMICRON
+1D79F	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL PI
+1D7A0	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL RHO
+1D7A1	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL THETA SYMBOL
+1D7A2	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL SIGMA
+1D7A3	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL TAU
+1D7A4	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL UPSILON
+1D7A5	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL PHI
+1D7A6	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL CHI
+1D7A7	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL PSI
+1D7A8	MATHEMATICAL SANS-SERIF BOLD ITALIC CAPITAL OMEGA
+1D7A9	MATHEMATICAL SANS-SERIF BOLD ITALIC NABLA
+1D7AA	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL ALPHA
+1D7AB	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL BETA
+1D7AC	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL GAMMA
+1D7AD	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL DELTA
+1D7AE	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL EPSILON
+1D7AF	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL ZETA
+1D7B0	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL ETA
+1D7B1	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL THETA
+1D7B2	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL IOTA
+1D7B3	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL KAPPA
+1D7B4	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL LAMDA
+1D7B5	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL MU
+1D7B6	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL NU
+1D7B7	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL XI
+1D7B8	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL OMICRON
+1D7B9	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL PI
+1D7BA	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL RHO
+1D7BB	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL FINAL SIGMA
+1D7BC	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL SIGMA
+1D7BD	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL TAU
+1D7BE	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL UPSILON
+1D7BF	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL PHI
+1D7C0	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL CHI
+1D7C1	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL PSI
+1D7C2	MATHEMATICAL SANS-SERIF BOLD ITALIC SMALL OMEGA
+1D7C3	MATHEMATICAL SANS-SERIF BOLD ITALIC PARTIAL DIFFERENTIAL
+1D7C4	MATHEMATICAL SANS-SERIF BOLD ITALIC EPSILON SYMBOL
+1D7C5	MATHEMATICAL SANS-SERIF BOLD ITALIC THETA SYMBOL
+1D7C6	MATHEMATICAL SANS-SERIF BOLD ITALIC KAPPA SYMBOL
+1D7C7	MATHEMATICAL SANS-SERIF BOLD ITALIC PHI SYMBOL
+1D7C8	MATHEMATICAL SANS-SERIF BOLD ITALIC RHO SYMBOL
+1D7C9	MATHEMATICAL SANS-SERIF BOLD ITALIC PI SYMBOL
+1D7CA	MATHEMATICAL BOLD CAPITAL DIGAMMA
+1D7CB	MATHEMATICAL BOLD SMALL DIGAMMA
+1D7CE	MATHEMATICAL BOLD DIGIT ZERO
+1D7CF	MATHEMATICAL BOLD DIGIT ONE
+1D7D0	MATHEMATICAL BOLD DIGIT TWO
+1D7D1	MATHEMATICAL BOLD DIGIT THREE
+1D7D2	MATHEMATICAL BOLD DIGIT FOUR
+1D7D3	MATHEMATICAL BOLD DIGIT FIVE
+1D7D4	MATHEMATICAL BOLD DIGIT SIX
+1D7D5	MATHEMATICAL BOLD DIGIT SEVEN
+1D7D6	MATHEMATICAL BOLD DIGIT EIGHT
+1D7D7	MATHEMATICAL BOLD DIGIT NINE
+1D7D8	MATHEMATICAL DOUBLE-STRUCK DIGIT ZERO
+1D7D9	MATHEMATICAL DOUBLE-STRUCK DIGIT ONE
+1D7DA	MATHEMATICAL DOUBLE-STRUCK DIGIT TWO
+1D7DB	MATHEMATICAL DOUBLE-STRUCK DIGIT THREE
+1D7DC	MATHEMATICAL DOUBLE-STRUCK DIGIT FOUR
+1D7DD	MATHEMATICAL DOUBLE-STRUCK DIGIT FIVE
+1D7DE	MATHEMATICAL DOUBLE-STRUCK DIGIT SIX
+1D7DF	MATHEMATICAL DOUBLE-STRUCK DIGIT SEVEN
+1D7E0	MATHEMATICAL DOUBLE-STRUCK DIGIT EIGHT
+1D7E1	MATHEMATICAL DOUBLE-STRUCK DIGIT NINE
+1D7E2	MATHEMATICAL SANS-SERIF DIGIT ZERO
+1D7E3	MATHEMATICAL SANS-SERIF DIGIT ONE
+1D7E4	MATHEMATICAL SANS-SERIF DIGIT TWO
+1D7E5	MATHEMATICAL SANS-SERIF DIGIT THREE
+1D7E6	MATHEMATICAL SANS-SERIF DIGIT FOUR
+1D7E7	MATHEMATICAL SANS-SERIF DIGIT FIVE
+1D7E8	MATHEMATICAL SANS-SERIF DIGIT SIX
+1D7E9	MATHEMATICAL SANS-SERIF DIGIT SEVEN
+1D7EA	MATHEMATICAL SANS-SERIF DIGIT EIGHT
+1D7EB	MATHEMATICAL SANS-SERIF DIGIT NINE
+1D7EC	MATHEMATICAL SANS-SERIF BOLD DIGIT ZERO
+1D7ED	MATHEMATICAL SANS-SERIF BOLD DIGIT ONE
+1D7EE	MATHEMATICAL SANS-SERIF BOLD DIGIT TWO
+1D7EF	MATHEMATICAL SANS-SERIF BOLD DIGIT THREE
+1D7F0	MATHEMATICAL SANS-SERIF BOLD DIGIT FOUR
+1D7F1	MATHEMATICAL SANS-SERIF BOLD DIGIT FIVE
+1D7F2	MATHEMATICAL SANS-SERIF BOLD DIGIT SIX
+1D7F3	MATHEMATICAL SANS-SERIF BOLD DIGIT SEVEN
+1D7F4	MATHEMATICAL SANS-SERIF BOLD DIGIT EIGHT
+1D7F5	MATHEMATICAL SANS-SERIF BOLD DIGIT NINE
+1D7F6	MATHEMATICAL MONOSPACE DIGIT ZERO
+1D7F7	MATHEMATICAL MONOSPACE DIGIT ONE
+1D7F8	MATHEMATICAL MONOSPACE DIGIT TWO
+1D7F9	MATHEMATICAL MONOSPACE DIGIT THREE
+1D7FA	MATHEMATICAL MONOSPACE DIGIT FOUR
+1D7FB	MATHEMATICAL MONOSPACE DIGIT FIVE
+1D7FC	MATHEMATICAL MONOSPACE DIGIT SIX
+1D7FD	MATHEMATICAL MONOSPACE DIGIT SEVEN
+1D7FE	MATHEMATICAL MONOSPACE DIGIT EIGHT
+1D7FF	MATHEMATICAL MONOSPACE DIGIT NINE
+1D800	SIGNWRITING HAND-FIST INDEX
+1D801	SIGNWRITING HAND-CIRCLE INDEX
+1D802	SIGNWRITING HAND-CUP INDEX
+1D803	SIGNWRITING HAND-OVAL INDEX
+1D804	SIGNWRITING HAND-HINGE INDEX
+1D805	SIGNWRITING HAND-ANGLE INDEX
+1D806	SIGNWRITING HAND-FIST INDEX BENT
+1D807	SIGNWRITING HAND-CIRCLE INDEX BENT
+1D808	SIGNWRITING HAND-FIST THUMB UNDER INDEX BENT
+1D809	SIGNWRITING HAND-FIST INDEX RAISED KNUCKLE
+1D80A	SIGNWRITING HAND-FIST INDEX CUPPED
+1D80B	SIGNWRITING HAND-FIST INDEX HINGED
+1D80C	SIGNWRITING HAND-FIST INDEX HINGED LOW
+1D80D	SIGNWRITING HAND-CIRCLE INDEX HINGE
+1D80E	SIGNWRITING HAND-FIST INDEX MIDDLE
+1D80F	SIGNWRITING HAND-CIRCLE INDEX MIDDLE
+1D810	SIGNWRITING HAND-FIST INDEX MIDDLE BENT
+1D811	SIGNWRITING HAND-FIST INDEX MIDDLE RAISED KNUCKLES
+1D812	SIGNWRITING HAND-FIST INDEX MIDDLE HINGED
+1D813	SIGNWRITING HAND-FIST INDEX UP MIDDLE HINGED
+1D814	SIGNWRITING HAND-FIST INDEX HINGED MIDDLE UP
+1D815	SIGNWRITING HAND-FIST INDEX MIDDLE CONJOINED
+1D816	SIGNWRITING HAND-FIST INDEX MIDDLE CONJOINED INDEX BENT
+1D817	SIGNWRITING HAND-FIST INDEX MIDDLE CONJOINED MIDDLE BENT
+1D818	SIGNWRITING HAND-FIST INDEX MIDDLE CONJOINED CUPPED
+1D819	SIGNWRITING HAND-FIST INDEX MIDDLE CONJOINED HINGED
+1D81A	SIGNWRITING HAND-FIST INDEX MIDDLE CROSSED
+1D81B	SIGNWRITING HAND-CIRCLE INDEX MIDDLE CROSSED
+1D81C	SIGNWRITING HAND-FIST MIDDLE BENT OVER INDEX
+1D81D	SIGNWRITING HAND-FIST INDEX BENT OVER MIDDLE
+1D81E	SIGNWRITING HAND-FIST INDEX MIDDLE THUMB
+1D81F	SIGNWRITING HAND-CIRCLE INDEX MIDDLE THUMB
+1D820	SIGNWRITING HAND-FIST INDEX MIDDLE STRAIGHT THUMB BENT
+1D821	SIGNWRITING HAND-FIST INDEX MIDDLE BENT THUMB STRAIGHT
+1D822	SIGNWRITING HAND-FIST INDEX MIDDLE THUMB BENT
+1D823	SIGNWRITING HAND-FIST INDEX MIDDLE HINGED SPREAD THUMB SIDE
+1D824	SIGNWRITING HAND-FIST INDEX UP MIDDLE HINGED THUMB SIDE
+1D825	SIGNWRITING HAND-FIST INDEX UP MIDDLE HINGED THUMB CONJOINED
+1D826	SIGNWRITING HAND-FIST INDEX HINGED MIDDLE UP THUMB SIDE
+1D827	SIGNWRITING HAND-FIST INDEX MIDDLE UP SPREAD THUMB FORWARD
+1D828	SIGNWRITING HAND-FIST INDEX MIDDLE THUMB CUPPED
+1D829	SIGNWRITING HAND-FIST INDEX MIDDLE THUMB CIRCLED
+1D82A	SIGNWRITING HAND-FIST INDEX MIDDLE THUMB HOOKED
+1D82B	SIGNWRITING HAND-FIST INDEX MIDDLE THUMB HINGED
+1D82C	SIGNWRITING HAND-FIST THUMB BETWEEN INDEX MIDDLE STRAIGHT
+1D82D	SIGNWRITING HAND-FIST INDEX MIDDLE CONJOINED THUMB SIDE
+1D82E	SIGNWRITING HAND-FIST INDEX MIDDLE CONJOINED THUMB SIDE CONJOINED
+1D82F	SIGNWRITING HAND-FIST INDEX MIDDLE CONJOINED THUMB SIDE BENT
+1D830	SIGNWRITING HAND-FIST MIDDLE THUMB HOOKED INDEX UP
+1D831	SIGNWRITING HAND-FIST INDEX THUMB HOOKED MIDDLE UP
+1D832	SIGNWRITING HAND-FIST INDEX MIDDLE CONJOINED HINGED THUMB SIDE
+1D833	SIGNWRITING HAND-FIST INDEX MIDDLE CROSSED THUMB SIDE
+1D834	SIGNWRITING HAND-FIST INDEX MIDDLE CONJOINED THUMB FORWARD
+1D835	SIGNWRITING HAND-FIST INDEX MIDDLE CONJOINED CUPPED THUMB FORWARD
+1D836	SIGNWRITING HAND-FIST MIDDLE THUMB CUPPED INDEX UP
+1D837	SIGNWRITING HAND-FIST INDEX THUMB CUPPED MIDDLE UP
+1D838	SIGNWRITING HAND-FIST MIDDLE THUMB CIRCLED INDEX UP
+1D839	SIGNWRITING HAND-FIST MIDDLE THUMB CIRCLED INDEX HINGED
+1D83A	SIGNWRITING HAND-FIST INDEX THUMB ANGLED OUT MIDDLE UP
+1D83B	SIGNWRITING HAND-FIST INDEX THUMB ANGLED IN MIDDLE UP
+1D83C	SIGNWRITING HAND-FIST INDEX THUMB CIRCLED MIDDLE UP
+1D83D	SIGNWRITING HAND-FIST INDEX MIDDLE THUMB CONJOINED HINGED
+1D83E	SIGNWRITING HAND-FIST INDEX MIDDLE THUMB ANGLED OUT
+1D83F	SIGNWRITING HAND-FIST INDEX MIDDLE THUMB ANGLED
+1D840	SIGNWRITING HAND-FIST MIDDLE THUMB ANGLED OUT INDEX UP
+1D841	SIGNWRITING HAND-FIST MIDDLE THUMB ANGLED OUT INDEX CROSSED
+1D842	SIGNWRITING HAND-FIST MIDDLE THUMB ANGLED INDEX UP
+1D843	SIGNWRITING HAND-FIST INDEX THUMB HOOKED MIDDLE HINGED
+1D844	SIGNWRITING HAND-FLAT FOUR FINGERS
+1D845	SIGNWRITING HAND-FLAT FOUR FINGERS BENT
+1D846	SIGNWRITING HAND-FLAT FOUR FINGERS HINGED
+1D847	SIGNWRITING HAND-FLAT FOUR FINGERS CONJOINED
+1D848	SIGNWRITING HAND-FLAT FOUR FINGERS CONJOINED SPLIT
+1D849	SIGNWRITING HAND-CLAW FOUR FINGERS CONJOINED
+1D84A	SIGNWRITING HAND-FIST FOUR FINGERS CONJOINED BENT
+1D84B	SIGNWRITING HAND-HINGE FOUR FINGERS CONJOINED
+1D84C	SIGNWRITING HAND-FLAT FIVE FINGERS SPREAD
+1D84D	SIGNWRITING HAND-FLAT HEEL FIVE FINGERS SPREAD
+1D84E	SIGNWRITING HAND-FLAT FIVE FINGERS SPREAD FOUR BENT
+1D84F	SIGNWRITING HAND-FLAT HEEL FIVE FINGERS SPREAD FOUR BENT
+1D850	SIGNWRITING HAND-FLAT FIVE FINGERS SPREAD BENT
+1D851	SIGNWRITING HAND-FLAT HEEL FIVE FINGERS SPREAD BENT
+1D852	SIGNWRITING HAND-FLAT FIVE FINGERS SPREAD THUMB FORWARD
+1D853	SIGNWRITING HAND-CUP FIVE FINGERS SPREAD
+1D854	SIGNWRITING HAND-CUP FIVE FINGERS SPREAD OPEN
+1D855	SIGNWRITING HAND-HINGE FIVE FINGERS SPREAD OPEN
+1D856	SIGNWRITING HAND-OVAL FIVE FINGERS SPREAD
+1D857	SIGNWRITING HAND-FLAT FIVE FINGERS SPREAD HINGED
+1D858	SIGNWRITING HAND-FLAT FIVE FINGERS SPREAD HINGED THUMB SIDE
+1D859	SIGNWRITING HAND-FLAT FIVE FINGERS SPREAD HINGED NO THUMB
+1D85A	SIGNWRITING HAND-FLAT
+1D85B	SIGNWRITING HAND-FLAT BETWEEN PALM FACINGS
+1D85C	SIGNWRITING HAND-FLAT HEEL
+1D85D	SIGNWRITING HAND-FLAT THUMB SIDE
+1D85E	SIGNWRITING HAND-FLAT HEEL THUMB SIDE
+1D85F	SIGNWRITING HAND-FLAT THUMB BENT
+1D860	SIGNWRITING HAND-FLAT THUMB FORWARD
+1D861	SIGNWRITING HAND-FLAT SPLIT INDEX THUMB SIDE
+1D862	SIGNWRITING HAND-FLAT SPLIT CENTRE
+1D863	SIGNWRITING HAND-FLAT SPLIT CENTRE THUMB SIDE
+1D864	SIGNWRITING HAND-FLAT SPLIT CENTRE THUMB SIDE BENT
+1D865	SIGNWRITING HAND-FLAT SPLIT LITTLE
+1D866	SIGNWRITING HAND-CLAW
+1D867	SIGNWRITING HAND-CLAW THUMB SIDE
+1D868	SIGNWRITING HAND-CLAW NO THUMB
+1D869	SIGNWRITING HAND-CLAW THUMB FORWARD
+1D86A	SIGNWRITING HAND-HOOK CURLICUE
+1D86B	SIGNWRITING HAND-HOOK
+1D86C	SIGNWRITING HAND-CUP OPEN
+1D86D	SIGNWRITING HAND-CUP
+1D86E	SIGNWRITING HAND-CUP OPEN THUMB SIDE
+1D86F	SIGNWRITING HAND-CUP THUMB SIDE
+1D870	SIGNWRITING HAND-CUP OPEN NO THUMB
+1D871	SIGNWRITING HAND-CUP NO THUMB
+1D872	SIGNWRITING HAND-CUP OPEN THUMB FORWARD
+1D873	SIGNWRITING HAND-CUP THUMB FORWARD
+1D874	SIGNWRITING HAND-CURLICUE OPEN
+1D875	SIGNWRITING HAND-CURLICUE
+1D876	SIGNWRITING HAND-CIRCLE
+1D877	SIGNWRITING HAND-OVAL
+1D878	SIGNWRITING HAND-OVAL THUMB SIDE
+1D879	SIGNWRITING HAND-OVAL NO THUMB
+1D87A	SIGNWRITING HAND-OVAL THUMB FORWARD
+1D87B	SIGNWRITING HAND-HINGE OPEN
+1D87C	SIGNWRITING HAND-HINGE OPEN THUMB FORWARD
+1D87D	SIGNWRITING HAND-HINGE
+1D87E	SIGNWRITING HAND-HINGE SMALL
+1D87F	SIGNWRITING HAND-HINGE OPEN THUMB SIDE
+1D880	SIGNWRITING HAND-HINGE THUMB SIDE
+1D881	SIGNWRITING HAND-HINGE OPEN NO THUMB
+1D882	SIGNWRITING HAND-HINGE NO THUMB
+1D883	SIGNWRITING HAND-HINGE THUMB SIDE TOUCHING INDEX
+1D884	SIGNWRITING HAND-HINGE THUMB BETWEEN MIDDLE RING
+1D885	SIGNWRITING HAND-ANGLE
+1D886	SIGNWRITING HAND-FIST INDEX MIDDLE RING
+1D887	SIGNWRITING HAND-CIRCLE INDEX MIDDLE RING
+1D888	SIGNWRITING HAND-HINGE INDEX MIDDLE RING
+1D889	SIGNWRITING HAND-ANGLE INDEX MIDDLE RING
+1D88A	SIGNWRITING HAND-HINGE LITTLE
+1D88B	SIGNWRITING HAND-FIST INDEX MIDDLE RING BENT
+1D88C	SIGNWRITING HAND-FIST INDEX MIDDLE RING CONJOINED
+1D88D	SIGNWRITING HAND-HINGE INDEX MIDDLE RING CONJOINED
+1D88E	SIGNWRITING HAND-FIST LITTLE DOWN
+1D88F	SIGNWRITING HAND-FIST LITTLE DOWN RIPPLE STRAIGHT
+1D890	SIGNWRITING HAND-FIST LITTLE DOWN RIPPLE CURVED
+1D891	SIGNWRITING HAND-FIST LITTLE DOWN OTHERS CIRCLED
+1D892	SIGNWRITING HAND-FIST LITTLE UP
+1D893	SIGNWRITING HAND-FIST THUMB UNDER LITTLE UP
+1D894	SIGNWRITING HAND-CIRCLE LITTLE UP
+1D895	SIGNWRITING HAND-OVAL LITTLE UP
+1D896	SIGNWRITING HAND-ANGLE LITTLE UP
+1D897	SIGNWRITING HAND-FIST LITTLE RAISED KNUCKLE
+1D898	SIGNWRITING HAND-FIST LITTLE BENT
+1D899	SIGNWRITING HAND-FIST LITTLE TOUCHES THUMB
+1D89A	SIGNWRITING HAND-FIST LITTLE THUMB
+1D89B	SIGNWRITING HAND-HINGE LITTLE THUMB
+1D89C	SIGNWRITING HAND-FIST LITTLE INDEX THUMB
+1D89D	SIGNWRITING HAND-HINGE LITTLE INDEX THUMB
+1D89E	SIGNWRITING HAND-ANGLE LITTLE INDEX THUMB INDEX THUMB OUT
+1D89F	SIGNWRITING HAND-ANGLE LITTLE INDEX THUMB INDEX THUMB
+1D8A0	SIGNWRITING HAND-FIST LITTLE INDEX
+1D8A1	SIGNWRITING HAND-CIRCLE LITTLE INDEX
+1D8A2	SIGNWRITING HAND-HINGE LITTLE INDEX
+1D8A3	SIGNWRITING HAND-ANGLE LITTLE INDEX
+1D8A4	SIGNWRITING HAND-FIST INDEX MIDDLE LITTLE
+1D8A5	SIGNWRITING HAND-CIRCLE INDEX MIDDLE LITTLE
+1D8A6	SIGNWRITING HAND-HINGE INDEX MIDDLE LITTLE
+1D8A7	SIGNWRITING HAND-HINGE RING
+1D8A8	SIGNWRITING HAND-ANGLE INDEX MIDDLE LITTLE
+1D8A9	SIGNWRITING HAND-FIST INDEX MIDDLE CROSS LITTLE
+1D8AA	SIGNWRITING HAND-CIRCLE INDEX MIDDLE CROSS LITTLE
+1D8AB	SIGNWRITING HAND-FIST RING DOWN
+1D8AC	SIGNWRITING HAND-HINGE RING DOWN INDEX THUMB HOOK MIDDLE
+1D8AD	SIGNWRITING HAND-ANGLE RING DOWN MIDDLE THUMB INDEX CROSS
+1D8AE	SIGNWRITING HAND-FIST RING UP
+1D8AF	SIGNWRITING HAND-FIST RING RAISED KNUCKLE
+1D8B0	SIGNWRITING HAND-FIST RING LITTLE
+1D8B1	SIGNWRITING HAND-CIRCLE RING LITTLE
+1D8B2	SIGNWRITING HAND-OVAL RING LITTLE
+1D8B3	SIGNWRITING HAND-ANGLE RING LITTLE
+1D8B4	SIGNWRITING HAND-FIST RING MIDDLE
+1D8B5	SIGNWRITING HAND-FIST RING MIDDLE CONJOINED
+1D8B6	SIGNWRITING HAND-FIST RING MIDDLE RAISED KNUCKLES
+1D8B7	SIGNWRITING HAND-FIST RING INDEX
+1D8B8	SIGNWRITING HAND-FIST RING THUMB
+1D8B9	SIGNWRITING HAND-HOOK RING THUMB
+1D8BA	SIGNWRITING HAND-FIST INDEX RING LITTLE
+1D8BB	SIGNWRITING HAND-CIRCLE INDEX RING LITTLE
+1D8BC	SIGNWRITING HAND-CURLICUE INDEX RING LITTLE ON
+1D8BD	SIGNWRITING HAND-HOOK INDEX RING LITTLE OUT
+1D8BE	SIGNWRITING HAND-HOOK INDEX RING LITTLE IN
+1D8BF	SIGNWRITING HAND-HOOK INDEX RING LITTLE UNDER
+1D8C0	SIGNWRITING HAND-CUP INDEX RING LITTLE
+1D8C1	SIGNWRITING HAND-HINGE INDEX RING LITTLE
+1D8C2	SIGNWRITING HAND-ANGLE INDEX RING LITTLE OUT
+1D8C3	SIGNWRITING HAND-ANGLE INDEX RING LITTLE
+1D8C4	SIGNWRITING HAND-FIST MIDDLE DOWN
+1D8C5	SIGNWRITING HAND-HINGE MIDDLE
+1D8C6	SIGNWRITING HAND-FIST MIDDLE UP
+1D8C7	SIGNWRITING HAND-CIRCLE MIDDLE UP
+1D8C8	SIGNWRITING HAND-FIST MIDDLE RAISED KNUCKLE
+1D8C9	SIGNWRITING HAND-FIST MIDDLE UP THUMB SIDE
+1D8CA	SIGNWRITING HAND-HOOK MIDDLE THUMB
+1D8CB	SIGNWRITING HAND-FIST MIDDLE THUMB LITTLE
+1D8CC	SIGNWRITING HAND-FIST MIDDLE LITTLE
+1D8CD	SIGNWRITING HAND-FIST MIDDLE RING LITTLE
+1D8CE	SIGNWRITING HAND-CIRCLE MIDDLE RING LITTLE
+1D8CF	SIGNWRITING HAND-CURLICUE MIDDLE RING LITTLE ON
+1D8D0	SIGNWRITING HAND-CUP MIDDLE RING LITTLE
+1D8D1	SIGNWRITING HAND-HINGE MIDDLE RING LITTLE
+1D8D2	SIGNWRITING HAND-ANGLE MIDDLE RING LITTLE OUT
+1D8D3	SIGNWRITING HAND-ANGLE MIDDLE RING LITTLE IN
+1D8D4	SIGNWRITING HAND-ANGLE MIDDLE RING LITTLE
+1D8D5	SIGNWRITING HAND-CIRCLE MIDDLE RING LITTLE BENT
+1D8D6	SIGNWRITING HAND-CLAW MIDDLE RING LITTLE CONJOINED
+1D8D7	SIGNWRITING HAND-CLAW MIDDLE RING LITTLE CONJOINED SIDE
+1D8D8	SIGNWRITING HAND-HOOK MIDDLE RING LITTLE CONJOINED OUT
+1D8D9	SIGNWRITING HAND-HOOK MIDDLE RING LITTLE CONJOINED IN
+1D8DA	SIGNWRITING HAND-HOOK MIDDLE RING LITTLE CONJOINED
+1D8DB	SIGNWRITING HAND-HINGE INDEX HINGED
+1D8DC	SIGNWRITING HAND-FIST INDEX THUMB SIDE
+1D8DD	SIGNWRITING HAND-HINGE INDEX THUMB SIDE
+1D8DE	SIGNWRITING HAND-FIST INDEX THUMB SIDE THUMB DIAGONAL
+1D8DF	SIGNWRITING HAND-FIST INDEX THUMB SIDE THUMB CONJOINED
+1D8E0	SIGNWRITING HAND-FIST INDEX THUMB SIDE THUMB BENT
+1D8E1	SIGNWRITING HAND-FIST INDEX THUMB SIDE INDEX BENT
+1D8E2	SIGNWRITING HAND-FIST INDEX THUMB SIDE BOTH BENT
+1D8E3	SIGNWRITING HAND-FIST INDEX THUMB SIDE INDEX HINGE
+1D8E4	SIGNWRITING HAND-FIST INDEX THUMB FORWARD INDEX STRAIGHT
+1D8E5	SIGNWRITING HAND-FIST INDEX THUMB FORWARD INDEX BENT
+1D8E6	SIGNWRITING HAND-FIST INDEX THUMB HOOK
+1D8E7	SIGNWRITING HAND-FIST INDEX THUMB CURLICUE
+1D8E8	SIGNWRITING HAND-FIST INDEX THUMB CURVE THUMB INSIDE
+1D8E9	SIGNWRITING HAND-CLAW INDEX THUMB CURVE THUMB INSIDE
+1D8EA	SIGNWRITING HAND-FIST INDEX THUMB CURVE THUMB UNDER
+1D8EB	SIGNWRITING HAND-FIST INDEX THUMB CIRCLE
+1D8EC	SIGNWRITING HAND-CUP INDEX THUMB
+1D8ED	SIGNWRITING HAND-CUP INDEX THUMB OPEN
+1D8EE	SIGNWRITING HAND-HINGE INDEX THUMB OPEN
+1D8EF	SIGNWRITING HAND-HINGE INDEX THUMB LARGE
+1D8F0	SIGNWRITING HAND-HINGE INDEX THUMB
+1D8F1	SIGNWRITING HAND-HINGE INDEX THUMB SMALL
+1D8F2	SIGNWRITING HAND-ANGLE INDEX THUMB OUT
+1D8F3	SIGNWRITING HAND-ANGLE INDEX THUMB IN
+1D8F4	SIGNWRITING HAND-ANGLE INDEX THUMB
+1D8F5	SIGNWRITING HAND-FIST THUMB
+1D8F6	SIGNWRITING HAND-FIST THUMB HEEL
+1D8F7	SIGNWRITING HAND-FIST THUMB SIDE DIAGONAL
+1D8F8	SIGNWRITING HAND-FIST THUMB SIDE CONJOINED
+1D8F9	SIGNWRITING HAND-FIST THUMB SIDE BENT
+1D8FA	SIGNWRITING HAND-FIST THUMB FORWARD
+1D8FB	SIGNWRITING HAND-FIST THUMB BETWEEN INDEX MIDDLE
+1D8FC	SIGNWRITING HAND-FIST THUMB BETWEEN MIDDLE RING
+1D8FD	SIGNWRITING HAND-FIST THUMB BETWEEN RING LITTLE
+1D8FE	SIGNWRITING HAND-FIST THUMB UNDER TWO FINGERS
+1D8FF	SIGNWRITING HAND-FIST THUMB OVER TWO FINGERS
+1D900	SIGNWRITING HAND-FIST THUMB UNDER THREE FINGERS
+1D901	SIGNWRITING HAND-FIST THUMB UNDER FOUR FINGERS
+1D902	SIGNWRITING HAND-FIST THUMB OVER FOUR RAISED KNUCKLES
+1D903	SIGNWRITING HAND-FIST
+1D904	SIGNWRITING HAND-FIST HEEL
+1D905	SIGNWRITING TOUCH SINGLE
+1D906	SIGNWRITING TOUCH MULTIPLE
+1D907	SIGNWRITING TOUCH BETWEEN
+1D908	SIGNWRITING GRASP SINGLE
+1D909	SIGNWRITING GRASP MULTIPLE
+1D90A	SIGNWRITING GRASP BETWEEN
+1D90B	SIGNWRITING STRIKE SINGLE
+1D90C	SIGNWRITING STRIKE MULTIPLE
+1D90D	SIGNWRITING STRIKE BETWEEN
+1D90E	SIGNWRITING BRUSH SINGLE
+1D90F	SIGNWRITING BRUSH MULTIPLE
+1D910	SIGNWRITING BRUSH BETWEEN
+1D911	SIGNWRITING RUB SINGLE
+1D912	SIGNWRITING RUB MULTIPLE
+1D913	SIGNWRITING RUB BETWEEN
+1D914	SIGNWRITING SURFACE SYMBOLS
+1D915	SIGNWRITING SURFACE BETWEEN
+1D916	SIGNWRITING SQUEEZE LARGE SINGLE
+1D917	SIGNWRITING SQUEEZE SMALL SINGLE
+1D918	SIGNWRITING SQUEEZE LARGE MULTIPLE
+1D919	SIGNWRITING SQUEEZE SMALL MULTIPLE
+1D91A	SIGNWRITING SQUEEZE SEQUENTIAL
+1D91B	SIGNWRITING FLICK LARGE SINGLE
+1D91C	SIGNWRITING FLICK SMALL SINGLE
+1D91D	SIGNWRITING FLICK LARGE MULTIPLE
+1D91E	SIGNWRITING FLICK SMALL MULTIPLE
+1D91F	SIGNWRITING FLICK SEQUENTIAL
+1D920	SIGNWRITING SQUEEZE FLICK ALTERNATING
+1D921	SIGNWRITING MOVEMENT-HINGE UP DOWN LARGE
+1D922	SIGNWRITING MOVEMENT-HINGE UP DOWN SMALL
+1D923	SIGNWRITING MOVEMENT-HINGE UP SEQUENTIAL
+1D924	SIGNWRITING MOVEMENT-HINGE DOWN SEQUENTIAL
+1D925	SIGNWRITING MOVEMENT-HINGE UP DOWN ALTERNATING LARGE
+1D926	SIGNWRITING MOVEMENT-HINGE UP DOWN ALTERNATING SMALL
+1D927	SIGNWRITING MOVEMENT-HINGE SIDE TO SIDE SCISSORS
+1D928	SIGNWRITING MOVEMENT-WALLPLANE FINGER CONTACT
+1D929	SIGNWRITING MOVEMENT-FLOORPLANE FINGER CONTACT
+1D92A	SIGNWRITING MOVEMENT-WALLPLANE SINGLE STRAIGHT SMALL
+1D92B	SIGNWRITING MOVEMENT-WALLPLANE SINGLE STRAIGHT MEDIUM
+1D92C	SIGNWRITING MOVEMENT-WALLPLANE SINGLE STRAIGHT LARGE
+1D92D	SIGNWRITING MOVEMENT-WALLPLANE SINGLE STRAIGHT LARGEST
+1D92E	SIGNWRITING MOVEMENT-WALLPLANE SINGLE WRIST FLEX
+1D92F	SIGNWRITING MOVEMENT-WALLPLANE DOUBLE STRAIGHT
+1D930	SIGNWRITING MOVEMENT-WALLPLANE DOUBLE WRIST FLEX
+1D931	SIGNWRITING MOVEMENT-WALLPLANE DOUBLE ALTERNATING
+1D932	SIGNWRITING MOVEMENT-WALLPLANE DOUBLE ALTERNATING WRIST FLEX
+1D933	SIGNWRITING MOVEMENT-WALLPLANE CROSS
+1D934	SIGNWRITING MOVEMENT-WALLPLANE TRIPLE STRAIGHT MOVEMENT
+1D935	SIGNWRITING MOVEMENT-WALLPLANE TRIPLE WRIST FLEX
+1D936	SIGNWRITING MOVEMENT-WALLPLANE TRIPLE ALTERNATING
+1D937	SIGNWRITING MOVEMENT-WALLPLANE TRIPLE ALTERNATING WRIST FLEX
+1D938	SIGNWRITING MOVEMENT-WALLPLANE BEND SMALL
+1D939	SIGNWRITING MOVEMENT-WALLPLANE BEND MEDIUM
+1D93A	SIGNWRITING MOVEMENT-WALLPLANE BEND LARGE
+1D93B	SIGNWRITING MOVEMENT-WALLPLANE CORNER SMALL
+1D93C	SIGNWRITING MOVEMENT-WALLPLANE CORNER MEDIUM
+1D93D	SIGNWRITING MOVEMENT-WALLPLANE CORNER LARGE
+1D93E	SIGNWRITING MOVEMENT-WALLPLANE CORNER ROTATION
+1D93F	SIGNWRITING MOVEMENT-WALLPLANE CHECK SMALL
+1D940	SIGNWRITING MOVEMENT-WALLPLANE CHECK MEDIUM
+1D941	SIGNWRITING MOVEMENT-WALLPLANE CHECK LARGE
+1D942	SIGNWRITING MOVEMENT-WALLPLANE BOX SMALL
+1D943	SIGNWRITING MOVEMENT-WALLPLANE BOX MEDIUM
+1D944	SIGNWRITING MOVEMENT-WALLPLANE BOX LARGE
+1D945	SIGNWRITING MOVEMENT-WALLPLANE ZIGZAG SMALL
+1D946	SIGNWRITING MOVEMENT-WALLPLANE ZIGZAG MEDIUM
+1D947	SIGNWRITING MOVEMENT-WALLPLANE ZIGZAG LARGE
+1D948	SIGNWRITING MOVEMENT-WALLPLANE PEAKS SMALL
+1D949	SIGNWRITING MOVEMENT-WALLPLANE PEAKS MEDIUM
+1D94A	SIGNWRITING MOVEMENT-WALLPLANE PEAKS LARGE
+1D94B	SIGNWRITING TRAVEL-WALLPLANE ROTATION-WALLPLANE SINGLE
+1D94C	SIGNWRITING TRAVEL-WALLPLANE ROTATION-WALLPLANE DOUBLE
+1D94D	SIGNWRITING TRAVEL-WALLPLANE ROTATION-WALLPLANE ALTERNATING
+1D94E	SIGNWRITING TRAVEL-WALLPLANE ROTATION-FLOORPLANE SINGLE
+1D94F	SIGNWRITING TRAVEL-WALLPLANE ROTATION-FLOORPLANE DOUBLE
+1D950	SIGNWRITING TRAVEL-WALLPLANE ROTATION-FLOORPLANE ALTERNATING
+1D951	SIGNWRITING TRAVEL-WALLPLANE SHAKING
+1D952	SIGNWRITING TRAVEL-WALLPLANE ARM SPIRAL SINGLE
+1D953	SIGNWRITING TRAVEL-WALLPLANE ARM SPIRAL DOUBLE
+1D954	SIGNWRITING TRAVEL-WALLPLANE ARM SPIRAL TRIPLE
+1D955	SIGNWRITING MOVEMENT-DIAGONAL AWAY SMALL
+1D956	SIGNWRITING MOVEMENT-DIAGONAL AWAY MEDIUM
+1D957	SIGNWRITING MOVEMENT-DIAGONAL AWAY LARGE
+1D958	SIGNWRITING MOVEMENT-DIAGONAL AWAY LARGEST
+1D959	SIGNWRITING MOVEMENT-DIAGONAL TOWARDS SMALL
+1D95A	SIGNWRITING MOVEMENT-DIAGONAL TOWARDS MEDIUM
+1D95B	SIGNWRITING MOVEMENT-DIAGONAL TOWARDS LARGE
+1D95C	SIGNWRITING MOVEMENT-DIAGONAL TOWARDS LARGEST
+1D95D	SIGNWRITING MOVEMENT-DIAGONAL BETWEEN AWAY SMALL
+1D95E	SIGNWRITING MOVEMENT-DIAGONAL BETWEEN AWAY MEDIUM
+1D95F	SIGNWRITING MOVEMENT-DIAGONAL BETWEEN AWAY LARGE
+1D960	SIGNWRITING MOVEMENT-DIAGONAL BETWEEN AWAY LARGEST
+1D961	SIGNWRITING MOVEMENT-DIAGONAL BETWEEN TOWARDS SMALL
+1D962	SIGNWRITING MOVEMENT-DIAGONAL BETWEEN TOWARDS MEDIUM
+1D963	SIGNWRITING MOVEMENT-DIAGONAL BETWEEN TOWARDS LARGE
+1D964	SIGNWRITING MOVEMENT-DIAGONAL BETWEEN TOWARDS LARGEST
+1D965	SIGNWRITING MOVEMENT-FLOORPLANE SINGLE STRAIGHT SMALL
+1D966	SIGNWRITING MOVEMENT-FLOORPLANE SINGLE STRAIGHT MEDIUM
+1D967	SIGNWRITING MOVEMENT-FLOORPLANE SINGLE STRAIGHT LARGE
+1D968	SIGNWRITING MOVEMENT-FLOORPLANE SINGLE STRAIGHT LARGEST
+1D969	SIGNWRITING MOVEMENT-FLOORPLANE SINGLE WRIST FLEX
+1D96A	SIGNWRITING MOVEMENT-FLOORPLANE DOUBLE STRAIGHT
+1D96B	SIGNWRITING MOVEMENT-FLOORPLANE DOUBLE WRIST FLEX
+1D96C	SIGNWRITING MOVEMENT-FLOORPLANE DOUBLE ALTERNATING
+1D96D	SIGNWRITING MOVEMENT-FLOORPLANE DOUBLE ALTERNATING WRIST FLEX
+1D96E	SIGNWRITING MOVEMENT-FLOORPLANE CROSS
+1D96F	SIGNWRITING MOVEMENT-FLOORPLANE TRIPLE STRAIGHT MOVEMENT
+1D970	SIGNWRITING MOVEMENT-FLOORPLANE TRIPLE WRIST FLEX
+1D971	SIGNWRITING MOVEMENT-FLOORPLANE TRIPLE ALTERNATING MOVEMENT
+1D972	SIGNWRITING MOVEMENT-FLOORPLANE TRIPLE ALTERNATING WRIST FLEX
+1D973	SIGNWRITING MOVEMENT-FLOORPLANE BEND
+1D974	SIGNWRITING MOVEMENT-FLOORPLANE CORNER SMALL
+1D975	SIGNWRITING MOVEMENT-FLOORPLANE CORNER MEDIUM
+1D976	SIGNWRITING MOVEMENT-FLOORPLANE CORNER LARGE
+1D977	SIGNWRITING MOVEMENT-FLOORPLANE CHECK
+1D978	SIGNWRITING MOVEMENT-FLOORPLANE BOX SMALL
+1D979	SIGNWRITING MOVEMENT-FLOORPLANE BOX MEDIUM
+1D97A	SIGNWRITING MOVEMENT-FLOORPLANE BOX LARGE
+1D97B	SIGNWRITING MOVEMENT-FLOORPLANE ZIGZAG SMALL
+1D97C	SIGNWRITING MOVEMENT-FLOORPLANE ZIGZAG MEDIUM
+1D97D	SIGNWRITING MOVEMENT-FLOORPLANE ZIGZAG LARGE
+1D97E	SIGNWRITING MOVEMENT-FLOORPLANE PEAKS SMALL
+1D97F	SIGNWRITING MOVEMENT-FLOORPLANE PEAKS MEDIUM
+1D980	SIGNWRITING MOVEMENT-FLOORPLANE PEAKS LARGE
+1D981	SIGNWRITING TRAVEL-FLOORPLANE ROTATION-FLOORPLANE SINGLE
+1D982	SIGNWRITING TRAVEL-FLOORPLANE ROTATION-FLOORPLANE DOUBLE
+1D983	SIGNWRITING TRAVEL-FLOORPLANE ROTATION-FLOORPLANE ALTERNATING
+1D984	SIGNWRITING TRAVEL-FLOORPLANE ROTATION-WALLPLANE SINGLE
+1D985	SIGNWRITING TRAVEL-FLOORPLANE ROTATION-WALLPLANE DOUBLE
+1D986	SIGNWRITING TRAVEL-FLOORPLANE ROTATION-WALLPLANE ALTERNATING
+1D987	SIGNWRITING TRAVEL-FLOORPLANE SHAKING
+1D988	SIGNWRITING MOVEMENT-WALLPLANE CURVE QUARTER SMALL
+1D989	SIGNWRITING MOVEMENT-WALLPLANE CURVE QUARTER MEDIUM
+1D98A	SIGNWRITING MOVEMENT-WALLPLANE CURVE QUARTER LARGE
+1D98B	SIGNWRITING MOVEMENT-WALLPLANE CURVE QUARTER LARGEST
+1D98C	SIGNWRITING MOVEMENT-WALLPLANE CURVE HALF-CIRCLE SMALL
+1D98D	SIGNWRITING MOVEMENT-WALLPLANE CURVE HALF-CIRCLE MEDIUM
+1D98E	SIGNWRITING MOVEMENT-WALLPLANE CURVE HALF-CIRCLE LARGE
+1D98F	SIGNWRITING MOVEMENT-WALLPLANE CURVE HALF-CIRCLE LARGEST
+1D990	SIGNWRITING MOVEMENT-WALLPLANE CURVE THREE-QUARTER CIRCLE SMALL
+1D991	SIGNWRITING MOVEMENT-WALLPLANE CURVE THREE-QUARTER CIRCLE MEDIUM
+1D992	SIGNWRITING MOVEMENT-WALLPLANE HUMP SMALL
+1D993	SIGNWRITING MOVEMENT-WALLPLANE HUMP MEDIUM
+1D994	SIGNWRITING MOVEMENT-WALLPLANE HUMP LARGE
+1D995	SIGNWRITING MOVEMENT-WALLPLANE LOOP SMALL
+1D996	SIGNWRITING MOVEMENT-WALLPLANE LOOP MEDIUM
+1D997	SIGNWRITING MOVEMENT-WALLPLANE LOOP LARGE
+1D998	SIGNWRITING MOVEMENT-WALLPLANE LOOP SMALL DOUBLE
+1D999	SIGNWRITING MOVEMENT-WALLPLANE WAVE CURVE DOUBLE SMALL
+1D99A	SIGNWRITING MOVEMENT-WALLPLANE WAVE CURVE DOUBLE MEDIUM
+1D99B	SIGNWRITING MOVEMENT-WALLPLANE WAVE CURVE DOUBLE LARGE
+1D99C	SIGNWRITING MOVEMENT-WALLPLANE WAVE CURVE TRIPLE SMALL
+1D99D	SIGNWRITING MOVEMENT-WALLPLANE WAVE CURVE TRIPLE MEDIUM
+1D99E	SIGNWRITING MOVEMENT-WALLPLANE WAVE CURVE TRIPLE LARGE
+1D99F	SIGNWRITING MOVEMENT-WALLPLANE CURVE THEN STRAIGHT
+1D9A0	SIGNWRITING MOVEMENT-WALLPLANE CURVED CROSS SMALL
+1D9A1	SIGNWRITING MOVEMENT-WALLPLANE CURVED CROSS MEDIUM
+1D9A2	SIGNWRITING ROTATION-WALLPLANE SINGLE
+1D9A3	SIGNWRITING ROTATION-WALLPLANE DOUBLE
+1D9A4	SIGNWRITING ROTATION-WALLPLANE ALTERNATE
+1D9A5	SIGNWRITING MOVEMENT-WALLPLANE SHAKING
+1D9A6	SIGNWRITING MOVEMENT-WALLPLANE CURVE HITTING FRONT WALL
+1D9A7	SIGNWRITING MOVEMENT-WALLPLANE HUMP HITTING FRONT WALL
+1D9A8	SIGNWRITING MOVEMENT-WALLPLANE LOOP HITTING FRONT WALL
+1D9A9	SIGNWRITING MOVEMENT-WALLPLANE WAVE HITTING FRONT WALL
+1D9AA	SIGNWRITING ROTATION-WALLPLANE SINGLE HITTING FRONT WALL
+1D9AB	SIGNWRITING ROTATION-WALLPLANE DOUBLE HITTING FRONT WALL
+1D9AC	SIGNWRITING ROTATION-WALLPLANE ALTERNATING HITTING FRONT WALL
+1D9AD	SIGNWRITING MOVEMENT-WALLPLANE CURVE HITTING CHEST
+1D9AE	SIGNWRITING MOVEMENT-WALLPLANE HUMP HITTING CHEST
+1D9AF	SIGNWRITING MOVEMENT-WALLPLANE LOOP HITTING CHEST
+1D9B0	SIGNWRITING MOVEMENT-WALLPLANE WAVE HITTING CHEST
+1D9B1	SIGNWRITING ROTATION-WALLPLANE SINGLE HITTING CHEST
+1D9B2	SIGNWRITING ROTATION-WALLPLANE DOUBLE HITTING CHEST
+1D9B3	SIGNWRITING ROTATION-WALLPLANE ALTERNATING HITTING CHEST
+1D9B4	SIGNWRITING MOVEMENT-WALLPLANE WAVE DIAGONAL PATH SMALL
+1D9B5	SIGNWRITING MOVEMENT-WALLPLANE WAVE DIAGONAL PATH MEDIUM
+1D9B6	SIGNWRITING MOVEMENT-WALLPLANE WAVE DIAGONAL PATH LARGE
+1D9B7	SIGNWRITING MOVEMENT-FLOORPLANE CURVE HITTING CEILING SMALL
+1D9B8	SIGNWRITING MOVEMENT-FLOORPLANE CURVE HITTING CEILING LARGE
+1D9B9	SIGNWRITING MOVEMENT-FLOORPLANE HUMP HITTING CEILING SMALL DOUBLE
+1D9BA	SIGNWRITING MOVEMENT-FLOORPLANE HUMP HITTING CEILING LARGE DOUBLE
+1D9BB	SIGNWRITING MOVEMENT-FLOORPLANE HUMP HITTING CEILING SMALL TRIPLE
+1D9BC	SIGNWRITING MOVEMENT-FLOORPLANE HUMP HITTING CEILING LARGE TRIPLE
+1D9BD	SIGNWRITING MOVEMENT-FLOORPLANE LOOP HITTING CEILING SMALL SINGLE
+1D9BE	SIGNWRITING MOVEMENT-FLOORPLANE LOOP HITTING CEILING LARGE SINGLE
+1D9BF	SIGNWRITING MOVEMENT-FLOORPLANE LOOP HITTING CEILING SMALL DOUBLE
+1D9C0	SIGNWRITING MOVEMENT-FLOORPLANE LOOP HITTING CEILING LARGE DOUBLE
+1D9C1	SIGNWRITING MOVEMENT-FLOORPLANE WAVE HITTING CEILING SMALL
+1D9C2	SIGNWRITING MOVEMENT-FLOORPLANE WAVE HITTING CEILING LARGE
+1D9C3	SIGNWRITING ROTATION-FLOORPLANE SINGLE HITTING CEILING
+1D9C4	SIGNWRITING ROTATION-FLOORPLANE DOUBLE HITTING CEILING
+1D9C5	SIGNWRITING ROTATION-FLOORPLANE ALTERNATING HITTING CEILING
+1D9C6	SIGNWRITING MOVEMENT-FLOORPLANE CURVE HITTING FLOOR SMALL
+1D9C7	SIGNWRITING MOVEMENT-FLOORPLANE CURVE HITTING FLOOR LARGE
+1D9C8	SIGNWRITING MOVEMENT-FLOORPLANE HUMP HITTING FLOOR SMALL DOUBLE
+1D9C9	SIGNWRITING MOVEMENT-FLOORPLANE HUMP HITTING FLOOR LARGE DOUBLE
+1D9CA	SIGNWRITING MOVEMENT-FLOORPLANE HUMP HITTING FLOOR TRIPLE SMALL TRIPLE
+1D9CB	SIGNWRITING MOVEMENT-FLOORPLANE HUMP HITTING FLOOR TRIPLE LARGE TRIPLE
+1D9CC	SIGNWRITING MOVEMENT-FLOORPLANE LOOP HITTING FLOOR SMALL SINGLE
+1D9CD	SIGNWRITING MOVEMENT-FLOORPLANE LOOP HITTING FLOOR LARGE SINGLE
+1D9CE	SIGNWRITING MOVEMENT-FLOORPLANE LOOP HITTING FLOOR SMALL DOUBLE
+1D9CF	SIGNWRITING MOVEMENT-FLOORPLANE LOOP HITTING FLOOR LARGE DOUBLE
+1D9D0	SIGNWRITING MOVEMENT-FLOORPLANE WAVE HITTING FLOOR SMALL
+1D9D1	SIGNWRITING MOVEMENT-FLOORPLANE WAVE HITTING FLOOR LARGE
+1D9D2	SIGNWRITING ROTATION-FLOORPLANE SINGLE HITTING FLOOR
+1D9D3	SIGNWRITING ROTATION-FLOORPLANE DOUBLE HITTING FLOOR
+1D9D4	SIGNWRITING ROTATION-FLOORPLANE ALTERNATING HITTING FLOOR
+1D9D5	SIGNWRITING MOVEMENT-FLOORPLANE CURVE SMALL
+1D9D6	SIGNWRITING MOVEMENT-FLOORPLANE CURVE MEDIUM
+1D9D7	SIGNWRITING MOVEMENT-FLOORPLANE CURVE LARGE
+1D9D8	SIGNWRITING MOVEMENT-FLOORPLANE CURVE LARGEST
+1D9D9	SIGNWRITING MOVEMENT-FLOORPLANE CURVE COMBINED
+1D9DA	SIGNWRITING MOVEMENT-FLOORPLANE HUMP SMALL
+1D9DB	SIGNWRITING MOVEMENT-FLOORPLANE LOOP SMALL
+1D9DC	SIGNWRITING MOVEMENT-FLOORPLANE WAVE SNAKE
+1D9DD	SIGNWRITING MOVEMENT-FLOORPLANE WAVE SMALL
+1D9DE	SIGNWRITING MOVEMENT-FLOORPLANE WAVE LARGE
+1D9DF	SIGNWRITING ROTATION-FLOORPLANE SINGLE
+1D9E0	SIGNWRITING ROTATION-FLOORPLANE DOUBLE
+1D9E1	SIGNWRITING ROTATION-FLOORPLANE ALTERNATING
+1D9E2	SIGNWRITING MOVEMENT-FLOORPLANE SHAKING PARALLEL
+1D9E3	SIGNWRITING MOVEMENT-WALLPLANE ARM CIRCLE SMALL SINGLE
+1D9E4	SIGNWRITING MOVEMENT-WALLPLANE ARM CIRCLE MEDIUM SINGLE
+1D9E5	SIGNWRITING MOVEMENT-WALLPLANE ARM CIRCLE SMALL DOUBLE
+1D9E6	SIGNWRITING MOVEMENT-WALLPLANE ARM CIRCLE MEDIUM DOUBLE
+1D9E7	SIGNWRITING MOVEMENT-FLOORPLANE ARM CIRCLE HITTING WALL SMALL SINGLE
+1D9E8	SIGNWRITING MOVEMENT-FLOORPLANE ARM CIRCLE HITTING WALL MEDIUM SINGLE
+1D9E9	SIGNWRITING MOVEMENT-FLOORPLANE ARM CIRCLE HITTING WALL LARGE SINGLE
+1D9EA	SIGNWRITING MOVEMENT-FLOORPLANE ARM CIRCLE HITTING WALL SMALL DOUBLE
+1D9EB	SIGNWRITING MOVEMENT-FLOORPLANE ARM CIRCLE HITTING WALL MEDIUM DOUBLE
+1D9EC	SIGNWRITING MOVEMENT-FLOORPLANE ARM CIRCLE HITTING WALL LARGE DOUBLE
+1D9ED	SIGNWRITING MOVEMENT-WALLPLANE WRIST CIRCLE FRONT SINGLE
+1D9EE	SIGNWRITING MOVEMENT-WALLPLANE WRIST CIRCLE FRONT DOUBLE
+1D9EF	SIGNWRITING MOVEMENT-FLOORPLANE WRIST CIRCLE HITTING WALL SINGLE
+1D9F0	SIGNWRITING MOVEMENT-FLOORPLANE WRIST CIRCLE HITTING WALL DOUBLE
+1D9F1	SIGNWRITING MOVEMENT-WALLPLANE FINGER CIRCLES SINGLE
+1D9F2	SIGNWRITING MOVEMENT-WALLPLANE FINGER CIRCLES DOUBLE
+1D9F3	SIGNWRITING MOVEMENT-FLOORPLANE FINGER CIRCLES HITTING WALL SINGLE
+1D9F4	SIGNWRITING MOVEMENT-FLOORPLANE FINGER CIRCLES HITTING WALL DOUBLE
+1D9F5	SIGNWRITING DYNAMIC ARROWHEAD SMALL
+1D9F6	SIGNWRITING DYNAMIC ARROWHEAD LARGE
+1D9F7	SIGNWRITING DYNAMIC FAST
+1D9F8	SIGNWRITING DYNAMIC SLOW
+1D9F9	SIGNWRITING DYNAMIC TENSE
+1D9FA	SIGNWRITING DYNAMIC RELAXED
+1D9FB	SIGNWRITING DYNAMIC SIMULTANEOUS
+1D9FC	SIGNWRITING DYNAMIC SIMULTANEOUS ALTERNATING
+1D9FD	SIGNWRITING DYNAMIC EVERY OTHER TIME
+1D9FE	SIGNWRITING DYNAMIC GRADUAL
+1D9FF	SIGNWRITING HEAD
+1DA00	SIGNWRITING HEAD RIM
+1DA01	SIGNWRITING HEAD MOVEMENT-WALLPLANE STRAIGHT
+1DA02	SIGNWRITING HEAD MOVEMENT-WALLPLANE TILT
+1DA03	SIGNWRITING HEAD MOVEMENT-FLOORPLANE STRAIGHT
+1DA04	SIGNWRITING HEAD MOVEMENT-WALLPLANE CURVE
+1DA05	SIGNWRITING HEAD MOVEMENT-FLOORPLANE CURVE
+1DA06	SIGNWRITING HEAD MOVEMENT CIRCLE
+1DA07	SIGNWRITING FACE DIRECTION POSITION NOSE FORWARD TILTING
+1DA08	SIGNWRITING FACE DIRECTION POSITION NOSE UP OR DOWN
+1DA09	SIGNWRITING FACE DIRECTION POSITION NOSE UP OR DOWN TILTING
+1DA0A	SIGNWRITING EYEBROWS STRAIGHT UP
+1DA0B	SIGNWRITING EYEBROWS STRAIGHT NEUTRAL
+1DA0C	SIGNWRITING EYEBROWS STRAIGHT DOWN
+1DA0D	SIGNWRITING DREAMY EYEBROWS NEUTRAL DOWN
+1DA0E	SIGNWRITING DREAMY EYEBROWS DOWN NEUTRAL
+1DA0F	SIGNWRITING DREAMY EYEBROWS UP NEUTRAL
+1DA10	SIGNWRITING DREAMY EYEBROWS NEUTRAL UP
+1DA11	SIGNWRITING FOREHEAD NEUTRAL
+1DA12	SIGNWRITING FOREHEAD CONTACT
+1DA13	SIGNWRITING FOREHEAD WRINKLED
+1DA14	SIGNWRITING EYES OPEN
+1DA15	SIGNWRITING EYES SQUEEZED
+1DA16	SIGNWRITING EYES CLOSED
+1DA17	SIGNWRITING EYE BLINK SINGLE
+1DA18	SIGNWRITING EYE BLINK MULTIPLE
+1DA19	SIGNWRITING EYES HALF OPEN
+1DA1A	SIGNWRITING EYES WIDE OPEN
+1DA1B	SIGNWRITING EYES HALF CLOSED
+1DA1C	SIGNWRITING EYES WIDENING MOVEMENT
+1DA1D	SIGNWRITING EYE WINK
+1DA1E	SIGNWRITING EYELASHES UP
+1DA1F	SIGNWRITING EYELASHES DOWN
+1DA20	SIGNWRITING EYELASHES FLUTTERING
+1DA21	SIGNWRITING EYEGAZE-WALLPLANE STRAIGHT
+1DA22	SIGNWRITING EYEGAZE-WALLPLANE STRAIGHT DOUBLE
+1DA23	SIGNWRITING EYEGAZE-WALLPLANE STRAIGHT ALTERNATING
+1DA24	SIGNWRITING EYEGAZE-FLOORPLANE STRAIGHT
+1DA25	SIGNWRITING EYEGAZE-FLOORPLANE STRAIGHT DOUBLE
+1DA26	SIGNWRITING EYEGAZE-FLOORPLANE STRAIGHT ALTERNATING
+1DA27	SIGNWRITING EYEGAZE-WALLPLANE CURVED
+1DA28	SIGNWRITING EYEGAZE-FLOORPLANE CURVED
+1DA29	SIGNWRITING EYEGAZE-WALLPLANE CIRCLING
+1DA2A	SIGNWRITING CHEEKS PUFFED
+1DA2B	SIGNWRITING CHEEKS NEUTRAL
+1DA2C	SIGNWRITING CHEEKS SUCKED
+1DA2D	SIGNWRITING TENSE CHEEKS HIGH
+1DA2E	SIGNWRITING TENSE CHEEKS MIDDLE
+1DA2F	SIGNWRITING TENSE CHEEKS LOW
+1DA30	SIGNWRITING EARS
+1DA31	SIGNWRITING NOSE NEUTRAL
+1DA32	SIGNWRITING NOSE CONTACT
+1DA33	SIGNWRITING NOSE WRINKLES
+1DA34	SIGNWRITING NOSE WIGGLES
+1DA35	SIGNWRITING AIR BLOWING OUT
+1DA36	SIGNWRITING AIR SUCKING IN
+1DA37	SIGNWRITING AIR BLOW SMALL ROTATIONS
+1DA38	SIGNWRITING AIR SUCK SMALL ROTATIONS
+1DA39	SIGNWRITING BREATH INHALE
+1DA3A	SIGNWRITING BREATH EXHALE
+1DA3B	SIGNWRITING MOUTH CLOSED NEUTRAL
+1DA3C	SIGNWRITING MOUTH CLOSED FORWARD
+1DA3D	SIGNWRITING MOUTH CLOSED CONTACT
+1DA3E	SIGNWRITING MOUTH SMILE
+1DA3F	SIGNWRITING MOUTH SMILE WRINKLED
+1DA40	SIGNWRITING MOUTH SMILE OPEN
+1DA41	SIGNWRITING MOUTH FROWN
+1DA42	SIGNWRITING MOUTH FROWN WRINKLED
+1DA43	SIGNWRITING MOUTH FROWN OPEN
+1DA44	SIGNWRITING MOUTH OPEN CIRCLE
+1DA45	SIGNWRITING MOUTH OPEN FORWARD
+1DA46	SIGNWRITING MOUTH OPEN WRINKLED
+1DA47	SIGNWRITING MOUTH OPEN OVAL
+1DA48	SIGNWRITING MOUTH OPEN OVAL WRINKLED
+1DA49	SIGNWRITING MOUTH OPEN OVAL YAWN
+1DA4A	SIGNWRITING MOUTH OPEN RECTANGLE
+1DA4B	SIGNWRITING MOUTH OPEN RECTANGLE WRINKLED
+1DA4C	SIGNWRITING MOUTH OPEN RECTANGLE YAWN
+1DA4D	SIGNWRITING MOUTH KISS
+1DA4E	SIGNWRITING MOUTH KISS FORWARD
+1DA4F	SIGNWRITING MOUTH KISS WRINKLED
+1DA50	SIGNWRITING MOUTH TENSE
+1DA51	SIGNWRITING MOUTH TENSE FORWARD
+1DA52	SIGNWRITING MOUTH TENSE SUCKED
+1DA53	SIGNWRITING LIPS PRESSED TOGETHER
+1DA54	SIGNWRITING LIP LOWER OVER UPPER
+1DA55	SIGNWRITING LIP UPPER OVER LOWER
+1DA56	SIGNWRITING MOUTH CORNERS
+1DA57	SIGNWRITING MOUTH WRINKLES SINGLE
+1DA58	SIGNWRITING MOUTH WRINKLES DOUBLE
+1DA59	SIGNWRITING TONGUE STICKING OUT FAR
+1DA5A	SIGNWRITING TONGUE LICKING LIPS
+1DA5B	SIGNWRITING TONGUE TIP BETWEEN LIPS
+1DA5C	SIGNWRITING TONGUE TIP TOUCHING INSIDE MOUTH
+1DA5D	SIGNWRITING TONGUE INSIDE MOUTH RELAXED
+1DA5E	SIGNWRITING TONGUE MOVES AGAINST CHEEK
+1DA5F	SIGNWRITING TONGUE CENTRE STICKING OUT
+1DA60	SIGNWRITING TONGUE CENTRE INSIDE MOUTH
+1DA61	SIGNWRITING TEETH
+1DA62	SIGNWRITING TEETH MOVEMENT
+1DA63	SIGNWRITING TEETH ON TONGUE
+1DA64	SIGNWRITING TEETH ON TONGUE MOVEMENT
+1DA65	SIGNWRITING TEETH ON LIPS
+1DA66	SIGNWRITING TEETH ON LIPS MOVEMENT
+1DA67	SIGNWRITING TEETH BITE LIPS
+1DA68	SIGNWRITING MOVEMENT-WALLPLANE JAW
+1DA69	SIGNWRITING MOVEMENT-FLOORPLANE JAW
+1DA6A	SIGNWRITING NECK
+1DA6B	SIGNWRITING HAIR
+1DA6C	SIGNWRITING EXCITEMENT
+1DA6D	SIGNWRITING SHOULDER HIP SPINE
+1DA6E	SIGNWRITING SHOULDER HIP POSITIONS
+1DA6F	SIGNWRITING WALLPLANE SHOULDER HIP MOVE
+1DA70	SIGNWRITING FLOORPLANE SHOULDER HIP MOVE
+1DA71	SIGNWRITING SHOULDER TILTING FROM WAIST
+1DA72	SIGNWRITING TORSO-WALLPLANE STRAIGHT STRETCH
+1DA73	SIGNWRITING TORSO-WALLPLANE CURVED BEND
+1DA74	SIGNWRITING TORSO-FLOORPLANE TWISTING
+1DA75	SIGNWRITING UPPER BODY TILTING FROM HIP JOINTS
+1DA76	SIGNWRITING LIMB COMBINATION
+1DA77	SIGNWRITING LIMB LENGTH-1
+1DA78	SIGNWRITING LIMB LENGTH-2
+1DA79	SIGNWRITING LIMB LENGTH-3
+1DA7A	SIGNWRITING LIMB LENGTH-4
+1DA7B	SIGNWRITING LIMB LENGTH-5
+1DA7C	SIGNWRITING LIMB LENGTH-6
+1DA7D	SIGNWRITING LIMB LENGTH-7
+1DA7E	SIGNWRITING FINGER
+1DA7F	SIGNWRITING LOCATION-WALLPLANE SPACE
+1DA80	SIGNWRITING LOCATION-FLOORPLANE SPACE
+1DA81	SIGNWRITING LOCATION HEIGHT
+1DA82	SIGNWRITING LOCATION WIDTH
+1DA83	SIGNWRITING LOCATION DEPTH
+1DA84	SIGNWRITING LOCATION HEAD NECK
+1DA85	SIGNWRITING LOCATION TORSO
+1DA86	SIGNWRITING LOCATION LIMBS DIGITS
+1DA87	SIGNWRITING COMMA
+1DA88	SIGNWRITING FULL STOP
+1DA89	SIGNWRITING SEMICOLON
+1DA8A	SIGNWRITING COLON
+1DA8B	SIGNWRITING PARENTHESIS
+1DA9B	SIGNWRITING FILL MODIFIER-2
+1DA9C	SIGNWRITING FILL MODIFIER-3
+1DA9D	SIGNWRITING FILL MODIFIER-4
+1DA9E	SIGNWRITING FILL MODIFIER-5
+1DA9F	SIGNWRITING FILL MODIFIER-6
+1DAA1	SIGNWRITING ROTATION MODIFIER-2
+1DAA2	SIGNWRITING ROTATION MODIFIER-3
+1DAA3	SIGNWRITING ROTATION MODIFIER-4
+1DAA4	SIGNWRITING ROTATION MODIFIER-5
+1DAA5	SIGNWRITING ROTATION MODIFIER-6
+1DAA6	SIGNWRITING ROTATION MODIFIER-7
+1DAA7	SIGNWRITING ROTATION MODIFIER-8
+1DAA8	SIGNWRITING ROTATION MODIFIER-9
+1DAA9	SIGNWRITING ROTATION MODIFIER-10
+1DAAA	SIGNWRITING ROTATION MODIFIER-11
+1DAAB	SIGNWRITING ROTATION MODIFIER-12
+1DAAC	SIGNWRITING ROTATION MODIFIER-13
+1DAAD	SIGNWRITING ROTATION MODIFIER-14
+1DAAE	SIGNWRITING ROTATION MODIFIER-15
+1DAAF	SIGNWRITING ROTATION MODIFIER-16
+1E800	MENDE KIKAKUI SYLLABLE M001 KI
+1E801	MENDE KIKAKUI SYLLABLE M002 KA
+1E802	MENDE KIKAKUI SYLLABLE M003 KU
+1E803	MENDE KIKAKUI SYLLABLE M065 KEE
+1E804	MENDE KIKAKUI SYLLABLE M095 KE
+1E805	MENDE KIKAKUI SYLLABLE M076 KOO
+1E806	MENDE KIKAKUI SYLLABLE M048 KO
+1E807	MENDE KIKAKUI SYLLABLE M179 KUA
+1E808	MENDE KIKAKUI SYLLABLE M004 WI
+1E809	MENDE KIKAKUI SYLLABLE M005 WA
+1E80A	MENDE KIKAKUI SYLLABLE M006 WU
+1E80B	MENDE KIKAKUI SYLLABLE M126 WEE
+1E80C	MENDE KIKAKUI SYLLABLE M118 WE
+1E80D	MENDE KIKAKUI SYLLABLE M114 WOO
+1E80E	MENDE KIKAKUI SYLLABLE M045 WO
+1E80F	MENDE KIKAKUI SYLLABLE M194 WUI
+1E810	MENDE KIKAKUI SYLLABLE M143 WEI
+1E811	MENDE KIKAKUI SYLLABLE M061 WVI
+1E812	MENDE KIKAKUI SYLLABLE M049 WVA
+1E813	MENDE KIKAKUI SYLLABLE M139 WVE
+1E814	MENDE KIKAKUI SYLLABLE M007 MIN
+1E815	MENDE KIKAKUI SYLLABLE M008 MAN
+1E816	MENDE KIKAKUI SYLLABLE M009 MUN
+1E817	MENDE KIKAKUI SYLLABLE M059 MEN
+1E818	MENDE KIKAKUI SYLLABLE M094 MON
+1E819	MENDE KIKAKUI SYLLABLE M154 MUAN
+1E81A	MENDE KIKAKUI SYLLABLE M189 MUEN
+1E81B	MENDE KIKAKUI SYLLABLE M010 BI
+1E81C	MENDE KIKAKUI SYLLABLE M011 BA
+1E81D	MENDE KIKAKUI SYLLABLE M012 BU
+1E81E	MENDE KIKAKUI SYLLABLE M150 BEE
+1E81F	MENDE KIKAKUI SYLLABLE M097 BE
+1E820	MENDE KIKAKUI SYLLABLE M103 BOO
+1E821	MENDE KIKAKUI SYLLABLE M138 BO
+1E822	MENDE KIKAKUI SYLLABLE M013 I
+1E823	MENDE KIKAKUI SYLLABLE M014 A
+1E824	MENDE KIKAKUI SYLLABLE M015 U
+1E825	MENDE KIKAKUI SYLLABLE M163 EE
+1E826	MENDE KIKAKUI SYLLABLE M100 E
+1E827	MENDE KIKAKUI SYLLABLE M165 OO
+1E828	MENDE KIKAKUI SYLLABLE M147 O
+1E829	MENDE KIKAKUI SYLLABLE M137 EI
+1E82A	MENDE KIKAKUI SYLLABLE M131 IN
+1E82B	MENDE KIKAKUI SYLLABLE M135 IN
+1E82C	MENDE KIKAKUI SYLLABLE M195 AN
+1E82D	MENDE KIKAKUI SYLLABLE M178 EN
+1E82E	MENDE KIKAKUI SYLLABLE M019 SI
+1E82F	MENDE KIKAKUI SYLLABLE M020 SA
+1E830	MENDE KIKAKUI SYLLABLE M021 SU
+1E831	MENDE KIKAKUI SYLLABLE M162 SEE
+1E832	MENDE KIKAKUI SYLLABLE M116 SE
+1E833	MENDE KIKAKUI SYLLABLE M136 SOO
+1E834	MENDE KIKAKUI SYLLABLE M079 SO
+1E835	MENDE KIKAKUI SYLLABLE M196 SIA
+1E836	MENDE KIKAKUI SYLLABLE M025 LI
+1E837	MENDE KIKAKUI SYLLABLE M026 LA
+1E838	MENDE KIKAKUI SYLLABLE M027 LU
+1E839	MENDE KIKAKUI SYLLABLE M084 LEE
+1E83A	MENDE KIKAKUI SYLLABLE M073 LE
+1E83B	MENDE KIKAKUI SYLLABLE M054 LOO
+1E83C	MENDE KIKAKUI SYLLABLE M153 LO
+1E83D	MENDE KIKAKUI SYLLABLE M110 LONG LE
+1E83E	MENDE KIKAKUI SYLLABLE M016 DI
+1E83F	MENDE KIKAKUI SYLLABLE M017 DA
+1E840	MENDE KIKAKUI SYLLABLE M018 DU
+1E841	MENDE KIKAKUI SYLLABLE M089 DEE
+1E842	MENDE KIKAKUI SYLLABLE M180 DOO
+1E843	MENDE KIKAKUI SYLLABLE M181 DO
+1E844	MENDE KIKAKUI SYLLABLE M022 TI
+1E845	MENDE KIKAKUI SYLLABLE M023 TA
+1E846	MENDE KIKAKUI SYLLABLE M024 TU
+1E847	MENDE KIKAKUI SYLLABLE M091 TEE
+1E848	MENDE KIKAKUI SYLLABLE M055 TE
+1E849	MENDE KIKAKUI SYLLABLE M104 TOO
+1E84A	MENDE KIKAKUI SYLLABLE M069 TO
+1E84B	MENDE KIKAKUI SYLLABLE M028 JI
+1E84C	MENDE KIKAKUI SYLLABLE M029 JA
+1E84D	MENDE KIKAKUI SYLLABLE M030 JU
+1E84E	MENDE KIKAKUI SYLLABLE M157 JEE
+1E84F	MENDE KIKAKUI SYLLABLE M113 JE
+1E850	MENDE KIKAKUI SYLLABLE M160 JOO
+1E851	MENDE KIKAKUI SYLLABLE M063 JO
+1E852	MENDE KIKAKUI SYLLABLE M175 LONG JO
+1E853	MENDE KIKAKUI SYLLABLE M031 YI
+1E854	MENDE KIKAKUI SYLLABLE M032 YA
+1E855	MENDE KIKAKUI SYLLABLE M033 YU
+1E856	MENDE KIKAKUI SYLLABLE M109 YEE
+1E857	MENDE KIKAKUI SYLLABLE M080 YE
+1E858	MENDE KIKAKUI SYLLABLE M141 YOO
+1E859	MENDE KIKAKUI SYLLABLE M121 YO
+1E85A	MENDE KIKAKUI SYLLABLE M034 FI
+1E85B	MENDE KIKAKUI SYLLABLE M035 FA
+1E85C	MENDE KIKAKUI SYLLABLE M036 FU
+1E85D	MENDE KIKAKUI SYLLABLE M078 FEE
+1E85E	MENDE KIKAKUI SYLLABLE M075 FE
+1E85F	MENDE KIKAKUI SYLLABLE M133 FOO
+1E860	MENDE KIKAKUI SYLLABLE M088 FO
+1E861	MENDE KIKAKUI SYLLABLE M197 FUA
+1E862	MENDE KIKAKUI SYLLABLE M101 FAN
+1E863	MENDE KIKAKUI SYLLABLE M037 NIN
+1E864	MENDE KIKAKUI SYLLABLE M038 NAN
+1E865	MENDE KIKAKUI SYLLABLE M039 NUN
+1E866	MENDE KIKAKUI SYLLABLE M117 NEN
+1E867	MENDE KIKAKUI SYLLABLE M169 NON
+1E868	MENDE KIKAKUI SYLLABLE M176 HI
+1E869	MENDE KIKAKUI SYLLABLE M041 HA
+1E86A	MENDE KIKAKUI SYLLABLE M186 HU
+1E86B	MENDE KIKAKUI SYLLABLE M040 HEE
+1E86C	MENDE KIKAKUI SYLLABLE M096 HE
+1E86D	MENDE KIKAKUI SYLLABLE M042 HOO
+1E86E	MENDE KIKAKUI SYLLABLE M140 HO
+1E86F	MENDE KIKAKUI SYLLABLE M083 HEEI
+1E870	MENDE KIKAKUI SYLLABLE M128 HOOU
+1E871	MENDE KIKAKUI SYLLABLE M053 HIN
+1E872	MENDE KIKAKUI SYLLABLE M130 HAN
+1E873	MENDE KIKAKUI SYLLABLE M087 HUN
+1E874	MENDE KIKAKUI SYLLABLE M052 HEN
+1E875	MENDE KIKAKUI SYLLABLE M193 HON
+1E876	MENDE KIKAKUI SYLLABLE M046 HUAN
+1E877	MENDE KIKAKUI SYLLABLE M090 NGGI
+1E878	MENDE KIKAKUI SYLLABLE M043 NGGA
+1E879	MENDE KIKAKUI SYLLABLE M082 NGGU
+1E87A	MENDE KIKAKUI SYLLABLE M115 NGGEE
+1E87B	MENDE KIKAKUI SYLLABLE M146 NGGE
+1E87C	MENDE KIKAKUI SYLLABLE M156 NGGOO
+1E87D	MENDE KIKAKUI SYLLABLE M120 NGGO
+1E87E	MENDE KIKAKUI SYLLABLE M159 NGGAA
+1E87F	MENDE KIKAKUI SYLLABLE M127 NGGUA
+1E880	MENDE KIKAKUI SYLLABLE M086 LONG NGGE
+1E881	MENDE KIKAKUI SYLLABLE M106 LONG NGGOO
+1E882	MENDE KIKAKUI SYLLABLE M183 LONG NGGO
+1E883	MENDE KIKAKUI SYLLABLE M155 GI
+1E884	MENDE KIKAKUI SYLLABLE M111 GA
+1E885	MENDE KIKAKUI SYLLABLE M168 GU
+1E886	MENDE KIKAKUI SYLLABLE M190 GEE
+1E887	MENDE KIKAKUI SYLLABLE M166 GUEI
+1E888	MENDE KIKAKUI SYLLABLE M167 GUAN
+1E889	MENDE KIKAKUI SYLLABLE M184 NGEN
+1E88A	MENDE KIKAKUI SYLLABLE M057 NGON
+1E88B	MENDE KIKAKUI SYLLABLE M177 NGUAN
+1E88C	MENDE KIKAKUI SYLLABLE M068 PI
+1E88D	MENDE KIKAKUI SYLLABLE M099 PA
+1E88E	MENDE KIKAKUI SYLLABLE M050 PU
+1E88F	MENDE KIKAKUI SYLLABLE M081 PEE
+1E890	MENDE KIKAKUI SYLLABLE M051 PE
+1E891	MENDE KIKAKUI SYLLABLE M102 POO
+1E892	MENDE KIKAKUI SYLLABLE M066 PO
+1E893	MENDE KIKAKUI SYLLABLE M145 MBI
+1E894	MENDE KIKAKUI SYLLABLE M062 MBA
+1E895	MENDE KIKAKUI SYLLABLE M122 MBU
+1E896	MENDE KIKAKUI SYLLABLE M047 MBEE
+1E897	MENDE KIKAKUI SYLLABLE M188 MBEE
+1E898	MENDE KIKAKUI SYLLABLE M072 MBE
+1E899	MENDE KIKAKUI SYLLABLE M172 MBOO
+1E89A	MENDE KIKAKUI SYLLABLE M174 MBO
+1E89B	MENDE KIKAKUI SYLLABLE M187 MBUU
+1E89C	MENDE KIKAKUI SYLLABLE M161 LONG MBE
+1E89D	MENDE KIKAKUI SYLLABLE M105 LONG MBOO
+1E89E	MENDE KIKAKUI SYLLABLE M142 LONG MBO
+1E89F	MENDE KIKAKUI SYLLABLE M132 KPI
+1E8A0	MENDE KIKAKUI SYLLABLE M092 KPA
+1E8A1	MENDE KIKAKUI SYLLABLE M074 KPU
+1E8A2	MENDE KIKAKUI SYLLABLE M044 KPEE
+1E8A3	MENDE KIKAKUI SYLLABLE M108 KPE
+1E8A4	MENDE KIKAKUI SYLLABLE M112 KPOO
+1E8A5	MENDE KIKAKUI SYLLABLE M158 KPO
+1E8A6	MENDE KIKAKUI SYLLABLE M124 GBI
+1E8A7	MENDE KIKAKUI SYLLABLE M056 GBA
+1E8A8	MENDE KIKAKUI SYLLABLE M148 GBU
+1E8A9	MENDE KIKAKUI SYLLABLE M093 GBEE
+1E8AA	MENDE KIKAKUI SYLLABLE M107 GBE
+1E8AB	MENDE KIKAKUI SYLLABLE M071 GBOO
+1E8AC	MENDE KIKAKUI SYLLABLE M070 GBO
+1E8AD	MENDE KIKAKUI SYLLABLE M171 RA
+1E8AE	MENDE KIKAKUI SYLLABLE M123 NDI
+1E8AF	MENDE KIKAKUI SYLLABLE M129 NDA
+1E8B0	MENDE KIKAKUI SYLLABLE M125 NDU
+1E8B1	MENDE KIKAKUI SYLLABLE M191 NDEE
+1E8B2	MENDE KIKAKUI SYLLABLE M119 NDE
+1E8B3	MENDE KIKAKUI SYLLABLE M067 NDOO
+1E8B4	MENDE KIKAKUI SYLLABLE M064 NDO
+1E8B5	MENDE KIKAKUI SYLLABLE M152 NJA
+1E8B6	MENDE KIKAKUI SYLLABLE M192 NJU
+1E8B7	MENDE KIKAKUI SYLLABLE M149 NJEE
+1E8B8	MENDE KIKAKUI SYLLABLE M134 NJOO
+1E8B9	MENDE KIKAKUI SYLLABLE M182 VI
+1E8BA	MENDE KIKAKUI SYLLABLE M185 VA
+1E8BB	MENDE KIKAKUI SYLLABLE M151 VU
+1E8BC	MENDE KIKAKUI SYLLABLE M173 VEE
+1E8BD	MENDE KIKAKUI SYLLABLE M085 VE
+1E8BE	MENDE KIKAKUI SYLLABLE M144 VOO
+1E8BF	MENDE KIKAKUI SYLLABLE M077 VO
+1E8C0	MENDE KIKAKUI SYLLABLE M164 NYIN
+1E8C1	MENDE KIKAKUI SYLLABLE M058 NYAN
+1E8C2	MENDE KIKAKUI SYLLABLE M170 NYUN
+1E8C3	MENDE KIKAKUI SYLLABLE M098 NYEN
+1E8C4	MENDE KIKAKUI SYLLABLE M060 NYON
+1E8C7	MENDE KIKAKUI DIGIT ONE
+1E8C8	MENDE KIKAKUI DIGIT TWO
+1E8C9	MENDE KIKAKUI DIGIT THREE
+1E8CA	MENDE KIKAKUI DIGIT FOUR
+1E8CB	MENDE KIKAKUI DIGIT FIVE
+1E8CC	MENDE KIKAKUI DIGIT SIX
+1E8CD	MENDE KIKAKUI DIGIT SEVEN
+1E8CE	MENDE KIKAKUI DIGIT EIGHT
+1E8CF	MENDE KIKAKUI DIGIT NINE
+1E8D0	MENDE KIKAKUI COMBINING NUMBER TEENS
+1E8D1	MENDE KIKAKUI COMBINING NUMBER TENS
+1E8D2	MENDE KIKAKUI COMBINING NUMBER HUNDREDS
+1E8D3	MENDE KIKAKUI COMBINING NUMBER THOUSANDS
+1E8D4	MENDE KIKAKUI COMBINING NUMBER TEN THOUSANDS
+1E8D5	MENDE KIKAKUI COMBINING NUMBER HUNDRED THOUSANDS
+1E8D6	MENDE KIKAKUI COMBINING NUMBER MILLIONS
+1EE00	ARABIC MATHEMATICAL ALEF
+1EE01	ARABIC MATHEMATICAL BEH
+1EE02	ARABIC MATHEMATICAL JEEM
+1EE03	ARABIC MATHEMATICAL DAL
+1EE05	ARABIC MATHEMATICAL WAW
+1EE06	ARABIC MATHEMATICAL ZAIN
+1EE07	ARABIC MATHEMATICAL HAH
+1EE08	ARABIC MATHEMATICAL TAH
+1EE09	ARABIC MATHEMATICAL YEH
+1EE0A	ARABIC MATHEMATICAL KAF
+1EE0B	ARABIC MATHEMATICAL LAM
+1EE0C	ARABIC MATHEMATICAL MEEM
+1EE0D	ARABIC MATHEMATICAL NOON
+1EE0E	ARABIC MATHEMATICAL SEEN
+1EE0F	ARABIC MATHEMATICAL AIN
+1EE10	ARABIC MATHEMATICAL FEH
+1EE11	ARABIC MATHEMATICAL SAD
+1EE12	ARABIC MATHEMATICAL QAF
+1EE13	ARABIC MATHEMATICAL REH
+1EE14	ARABIC MATHEMATICAL SHEEN
+1EE15	ARABIC MATHEMATICAL TEH
+1EE16	ARABIC MATHEMATICAL THEH
+1EE17	ARABIC MATHEMATICAL KHAH
+1EE18	ARABIC MATHEMATICAL THAL
+1EE19	ARABIC MATHEMATICAL DAD
+1EE1A	ARABIC MATHEMATICAL ZAH
+1EE1B	ARABIC MATHEMATICAL GHAIN
+1EE1C	ARABIC MATHEMATICAL DOTLESS BEH
+1EE1D	ARABIC MATHEMATICAL DOTLESS NOON
+1EE1E	ARABIC MATHEMATICAL DOTLESS FEH
+1EE1F	ARABIC MATHEMATICAL DOTLESS QAF
+1EE21	ARABIC MATHEMATICAL INITIAL BEH
+1EE22	ARABIC MATHEMATICAL INITIAL JEEM
+1EE24	ARABIC MATHEMATICAL INITIAL HEH
+1EE27	ARABIC MATHEMATICAL INITIAL HAH
+1EE29	ARABIC MATHEMATICAL INITIAL YEH
+1EE2A	ARABIC MATHEMATICAL INITIAL KAF
+1EE2B	ARABIC MATHEMATICAL INITIAL LAM
+1EE2C	ARABIC MATHEMATICAL INITIAL MEEM
+1EE2D	ARABIC MATHEMATICAL INITIAL NOON
+1EE2E	ARABIC MATHEMATICAL INITIAL SEEN
+1EE2F	ARABIC MATHEMATICAL INITIAL AIN
+1EE30	ARABIC MATHEMATICAL INITIAL FEH
+1EE31	ARABIC MATHEMATICAL INITIAL SAD
+1EE32	ARABIC MATHEMATICAL INITIAL QAF
+1EE34	ARABIC MATHEMATICAL INITIAL SHEEN
+1EE35	ARABIC MATHEMATICAL INITIAL TEH
+1EE36	ARABIC MATHEMATICAL INITIAL THEH
+1EE37	ARABIC MATHEMATICAL INITIAL KHAH
+1EE39	ARABIC MATHEMATICAL INITIAL DAD
+1EE3B	ARABIC MATHEMATICAL INITIAL GHAIN
+1EE42	ARABIC MATHEMATICAL TAILED JEEM
+1EE47	ARABIC MATHEMATICAL TAILED HAH
+1EE49	ARABIC MATHEMATICAL TAILED YEH
+1EE4B	ARABIC MATHEMATICAL TAILED LAM
+1EE4D	ARABIC MATHEMATICAL TAILED NOON
+1EE4E	ARABIC MATHEMATICAL TAILED SEEN
+1EE4F	ARABIC MATHEMATICAL TAILED AIN
+1EE51	ARABIC MATHEMATICAL TAILED SAD
+1EE52	ARABIC MATHEMATICAL TAILED QAF
+1EE54	ARABIC MATHEMATICAL TAILED SHEEN
+1EE57	ARABIC MATHEMATICAL TAILED KHAH
+1EE59	ARABIC MATHEMATICAL TAILED DAD
+1EE5B	ARABIC MATHEMATICAL TAILED GHAIN
+1EE5D	ARABIC MATHEMATICAL TAILED DOTLESS NOON
+1EE5F	ARABIC MATHEMATICAL TAILED DOTLESS QAF
+1EE61	ARABIC MATHEMATICAL STRETCHED BEH
+1EE62	ARABIC MATHEMATICAL STRETCHED JEEM
+1EE64	ARABIC MATHEMATICAL STRETCHED HEH
+1EE67	ARABIC MATHEMATICAL STRETCHED HAH
+1EE68	ARABIC MATHEMATICAL STRETCHED TAH
+1EE69	ARABIC MATHEMATICAL STRETCHED YEH
+1EE6A	ARABIC MATHEMATICAL STRETCHED KAF
+1EE6C	ARABIC MATHEMATICAL STRETCHED MEEM
+1EE6D	ARABIC MATHEMATICAL STRETCHED NOON
+1EE6E	ARABIC MATHEMATICAL STRETCHED SEEN
+1EE6F	ARABIC MATHEMATICAL STRETCHED AIN
+1EE70	ARABIC MATHEMATICAL STRETCHED FEH
+1EE71	ARABIC MATHEMATICAL STRETCHED SAD
+1EE72	ARABIC MATHEMATICAL STRETCHED QAF
+1EE74	ARABIC MATHEMATICAL STRETCHED SHEEN
+1EE75	ARABIC MATHEMATICAL STRETCHED TEH
+1EE76	ARABIC MATHEMATICAL STRETCHED THEH
+1EE77	ARABIC MATHEMATICAL STRETCHED KHAH
+1EE79	ARABIC MATHEMATICAL STRETCHED DAD
+1EE7A	ARABIC MATHEMATICAL STRETCHED ZAH
+1EE7B	ARABIC MATHEMATICAL STRETCHED GHAIN
+1EE7C	ARABIC MATHEMATICAL STRETCHED DOTLESS BEH
+1EE7E	ARABIC MATHEMATICAL STRETCHED DOTLESS FEH
+1EE80	ARABIC MATHEMATICAL LOOPED ALEF
+1EE81	ARABIC MATHEMATICAL LOOPED BEH
+1EE82	ARABIC MATHEMATICAL LOOPED JEEM
+1EE83	ARABIC MATHEMATICAL LOOPED DAL
+1EE84	ARABIC MATHEMATICAL LOOPED HEH
+1EE85	ARABIC MATHEMATICAL LOOPED WAW
+1EE86	ARABIC MATHEMATICAL LOOPED ZAIN
+1EE87	ARABIC MATHEMATICAL LOOPED HAH
+1EE88	ARABIC MATHEMATICAL LOOPED TAH
+1EE89	ARABIC MATHEMATICAL LOOPED YEH
+1EE8B	ARABIC MATHEMATICAL LOOPED LAM
+1EE8C	ARABIC MATHEMATICAL LOOPED MEEM
+1EE8D	ARABIC MATHEMATICAL LOOPED NOON
+1EE8E	ARABIC MATHEMATICAL LOOPED SEEN
+1EE8F	ARABIC MATHEMATICAL LOOPED AIN
+1EE90	ARABIC MATHEMATICAL LOOPED FEH
+1EE91	ARABIC MATHEMATICAL LOOPED SAD
+1EE92	ARABIC MATHEMATICAL LOOPED QAF
+1EE93	ARABIC MATHEMATICAL LOOPED REH
+1EE94	ARABIC MATHEMATICAL LOOPED SHEEN
+1EE95	ARABIC MATHEMATICAL LOOPED TEH
+1EE96	ARABIC MATHEMATICAL LOOPED THEH
+1EE97	ARABIC MATHEMATICAL LOOPED KHAH
+1EE98	ARABIC MATHEMATICAL LOOPED THAL
+1EE99	ARABIC MATHEMATICAL LOOPED DAD
+1EE9A	ARABIC MATHEMATICAL LOOPED ZAH
+1EE9B	ARABIC MATHEMATICAL LOOPED GHAIN
+1EEA1	ARABIC MATHEMATICAL DOUBLE-STRUCK BEH
+1EEA2	ARABIC MATHEMATICAL DOUBLE-STRUCK JEEM
+1EEA3	ARABIC MATHEMATICAL DOUBLE-STRUCK DAL
+1EEA5	ARABIC MATHEMATICAL DOUBLE-STRUCK WAW
+1EEA6	ARABIC MATHEMATICAL DOUBLE-STRUCK ZAIN
+1EEA7	ARABIC MATHEMATICAL DOUBLE-STRUCK HAH
+1EEA8	ARABIC MATHEMATICAL DOUBLE-STRUCK TAH
+1EEA9	ARABIC MATHEMATICAL DOUBLE-STRUCK YEH
+1EEAB	ARABIC MATHEMATICAL DOUBLE-STRUCK LAM
+1EEAC	ARABIC MATHEMATICAL DOUBLE-STRUCK MEEM
+1EEAD	ARABIC MATHEMATICAL DOUBLE-STRUCK NOON
+1EEAE	ARABIC MATHEMATICAL DOUBLE-STRUCK SEEN
+1EEAF	ARABIC MATHEMATICAL DOUBLE-STRUCK AIN
+1EEB0	ARABIC MATHEMATICAL DOUBLE-STRUCK FEH
+1EEB1	ARABIC MATHEMATICAL DOUBLE-STRUCK SAD
+1EEB2	ARABIC MATHEMATICAL DOUBLE-STRUCK QAF
+1EEB3	ARABIC MATHEMATICAL DOUBLE-STRUCK REH
+1EEB4	ARABIC MATHEMATICAL DOUBLE-STRUCK SHEEN
+1EEB5	ARABIC MATHEMATICAL DOUBLE-STRUCK TEH
+1EEB6	ARABIC MATHEMATICAL DOUBLE-STRUCK THEH
+1EEB7	ARABIC MATHEMATICAL DOUBLE-STRUCK KHAH
+1EEB8	ARABIC MATHEMATICAL DOUBLE-STRUCK THAL
+1EEB9	ARABIC MATHEMATICAL DOUBLE-STRUCK DAD
+1EEBA	ARABIC MATHEMATICAL DOUBLE-STRUCK ZAH
+1EEBB	ARABIC MATHEMATICAL DOUBLE-STRUCK GHAIN
+1EEF0	ARABIC MATHEMATICAL OPERATOR MEEM WITH HAH WITH TATWEEL
+1EEF1	ARABIC MATHEMATICAL OPERATOR HAH WITH DAL
+1F000	MAHJONG TILE EAST WIND
+1F001	MAHJONG TILE SOUTH WIND
+1F002	MAHJONG TILE WEST WIND
+1F003	MAHJONG TILE NORTH WIND
+1F004	MAHJONG TILE RED DRAGON
+1F005	MAHJONG TILE GREEN DRAGON
+1F006	MAHJONG TILE WHITE DRAGON
+1F007	MAHJONG TILE ONE OF CHARACTERS
+1F008	MAHJONG TILE TWO OF CHARACTERS
+1F009	MAHJONG TILE THREE OF CHARACTERS
+1F00A	MAHJONG TILE FOUR OF CHARACTERS
+1F00B	MAHJONG TILE FIVE OF CHARACTERS
+1F00C	MAHJONG TILE SIX OF CHARACTERS
+1F00D	MAHJONG TILE SEVEN OF CHARACTERS
+1F00E	MAHJONG TILE EIGHT OF CHARACTERS
+1F00F	MAHJONG TILE NINE OF CHARACTERS
+1F010	MAHJONG TILE ONE OF BAMBOOS
+1F011	MAHJONG TILE TWO OF BAMBOOS
+1F012	MAHJONG TILE THREE OF BAMBOOS
+1F013	MAHJONG TILE FOUR OF BAMBOOS
+1F014	MAHJONG TILE FIVE OF BAMBOOS
+1F015	MAHJONG TILE SIX OF BAMBOOS
+1F016	MAHJONG TILE SEVEN OF BAMBOOS
+1F017	MAHJONG TILE EIGHT OF BAMBOOS
+1F018	MAHJONG TILE NINE OF BAMBOOS
+1F019	MAHJONG TILE ONE OF CIRCLES
+1F01A	MAHJONG TILE TWO OF CIRCLES
+1F01B	MAHJONG TILE THREE OF CIRCLES
+1F01C	MAHJONG TILE FOUR OF CIRCLES
+1F01D	MAHJONG TILE FIVE OF CIRCLES
+1F01E	MAHJONG TILE SIX OF CIRCLES
+1F01F	MAHJONG TILE SEVEN OF CIRCLES
+1F020	MAHJONG TILE EIGHT OF CIRCLES
+1F021	MAHJONG TILE NINE OF CIRCLES
+1F022	MAHJONG TILE PLUM
+1F023	MAHJONG TILE ORCHID
+1F024	MAHJONG TILE BAMBOO
+1F025	MAHJONG TILE CHRYSANTHEMUM
+1F026	MAHJONG TILE SPRING
+1F027	MAHJONG TILE SUMMER
+1F028	MAHJONG TILE AUTUMN
+1F029	MAHJONG TILE WINTER
+1F02A	MAHJONG TILE JOKER
+1F02B	MAHJONG TILE BACK
+1F030	DOMINO TILE HORIZONTAL BACK
+1F031	DOMINO TILE HORIZONTAL-00-00
+1F032	DOMINO TILE HORIZONTAL-00-01
+1F033	DOMINO TILE HORIZONTAL-00-02
+1F034	DOMINO TILE HORIZONTAL-00-03
+1F035	DOMINO TILE HORIZONTAL-00-04
+1F036	DOMINO TILE HORIZONTAL-00-05
+1F037	DOMINO TILE HORIZONTAL-00-06
+1F038	DOMINO TILE HORIZONTAL-01-00
+1F039	DOMINO TILE HORIZONTAL-01-01
+1F03A	DOMINO TILE HORIZONTAL-01-02
+1F03B	DOMINO TILE HORIZONTAL-01-03
+1F03C	DOMINO TILE HORIZONTAL-01-04
+1F03D	DOMINO TILE HORIZONTAL-01-05
+1F03E	DOMINO TILE HORIZONTAL-01-06
+1F03F	DOMINO TILE HORIZONTAL-02-00
+1F040	DOMINO TILE HORIZONTAL-02-01
+1F041	DOMINO TILE HORIZONTAL-02-02
+1F042	DOMINO TILE HORIZONTAL-02-03
+1F043	DOMINO TILE HORIZONTAL-02-04
+1F044	DOMINO TILE HORIZONTAL-02-05
+1F045	DOMINO TILE HORIZONTAL-02-06
+1F046	DOMINO TILE HORIZONTAL-03-00
+1F047	DOMINO TILE HORIZONTAL-03-01
+1F048	DOMINO TILE HORIZONTAL-03-02
+1F049	DOMINO TILE HORIZONTAL-03-03
+1F04A	DOMINO TILE HORIZONTAL-03-04
+1F04B	DOMINO TILE HORIZONTAL-03-05
+1F04C	DOMINO TILE HORIZONTAL-03-06
+1F04D	DOMINO TILE HORIZONTAL-04-00
+1F04E	DOMINO TILE HORIZONTAL-04-01
+1F04F	DOMINO TILE HORIZONTAL-04-02
+1F050	DOMINO TILE HORIZONTAL-04-03
+1F051	DOMINO TILE HORIZONTAL-04-04
+1F052	DOMINO TILE HORIZONTAL-04-05
+1F053	DOMINO TILE HORIZONTAL-04-06
+1F054	DOMINO TILE HORIZONTAL-05-00
+1F055	DOMINO TILE HORIZONTAL-05-01
+1F056	DOMINO TILE HORIZONTAL-05-02
+1F057	DOMINO TILE HORIZONTAL-05-03
+1F058	DOMINO TILE HORIZONTAL-05-04
+1F059	DOMINO TILE HORIZONTAL-05-05
+1F05A	DOMINO TILE HORIZONTAL-05-06
+1F05B	DOMINO TILE HORIZONTAL-06-00
+1F05C	DOMINO TILE HORIZONTAL-06-01
+1F05D	DOMINO TILE HORIZONTAL-06-02
+1F05E	DOMINO TILE HORIZONTAL-06-03
+1F05F	DOMINO TILE HORIZONTAL-06-04
+1F060	DOMINO TILE HORIZONTAL-06-05
+1F061	DOMINO TILE HORIZONTAL-06-06
+1F062	DOMINO TILE VERTICAL BACK
+1F063	DOMINO TILE VERTICAL-00-00
+1F064	DOMINO TILE VERTICAL-00-01
+1F065	DOMINO TILE VERTICAL-00-02
+1F066	DOMINO TILE VERTICAL-00-03
+1F067	DOMINO TILE VERTICAL-00-04
+1F068	DOMINO TILE VERTICAL-00-05
+1F069	DOMINO TILE VERTICAL-00-06
+1F06A	DOMINO TILE VERTICAL-01-00
+1F06B	DOMINO TILE VERTICAL-01-01
+1F06C	DOMINO TILE VERTICAL-01-02
+1F06D	DOMINO TILE VERTICAL-01-03
+1F06E	DOMINO TILE VERTICAL-01-04
+1F06F	DOMINO TILE VERTICAL-01-05
+1F070	DOMINO TILE VERTICAL-01-06
+1F071	DOMINO TILE VERTICAL-02-00
+1F072	DOMINO TILE VERTICAL-02-01
+1F073	DOMINO TILE VERTICAL-02-02
+1F074	DOMINO TILE VERTICAL-02-03
+1F075	DOMINO TILE VERTICAL-02-04
+1F076	DOMINO TILE VERTICAL-02-05
+1F077	DOMINO TILE VERTICAL-02-06
+1F078	DOMINO TILE VERTICAL-03-00
+1F079	DOMINO TILE VERTICAL-03-01
+1F07A	DOMINO TILE VERTICAL-03-02
+1F07B	DOMINO TILE VERTICAL-03-03
+1F07C	DOMINO TILE VERTICAL-03-04
+1F07D	DOMINO TILE VERTICAL-03-05
+1F07E	DOMINO TILE VERTICAL-03-06
+1F07F	DOMINO TILE VERTICAL-04-00
+1F080	DOMINO TILE VERTICAL-04-01
+1F081	DOMINO TILE VERTICAL-04-02
+1F082	DOMINO TILE VERTICAL-04-03
+1F083	DOMINO TILE VERTICAL-04-04
+1F084	DOMINO TILE VERTICAL-04-05
+1F085	DOMINO TILE VERTICAL-04-06
+1F086	DOMINO TILE VERTICAL-05-00
+1F087	DOMINO TILE VERTICAL-05-01
+1F088	DOMINO TILE VERTICAL-05-02
+1F089	DOMINO TILE VERTICAL-05-03
+1F08A	DOMINO TILE VERTICAL-05-04
+1F08B	DOMINO TILE VERTICAL-05-05
+1F08C	DOMINO TILE VERTICAL-05-06
+1F08D	DOMINO TILE VERTICAL-06-00
+1F08E	DOMINO TILE VERTICAL-06-01
+1F08F	DOMINO TILE VERTICAL-06-02
+1F090	DOMINO TILE VERTICAL-06-03
+1F091	DOMINO TILE VERTICAL-06-04
+1F092	DOMINO TILE VERTICAL-06-05
+1F093	DOMINO TILE VERTICAL-06-06
+1F0A0	PLAYING CARD BACK
+1F0A1	PLAYING CARD ACE OF SPADES
+1F0A2	PLAYING CARD TWO OF SPADES
+1F0A3	PLAYING CARD THREE OF SPADES
+1F0A4	PLAYING CARD FOUR OF SPADES
+1F0A5	PLAYING CARD FIVE OF SPADES
+1F0A6	PLAYING CARD SIX OF SPADES
+1F0A7	PLAYING CARD SEVEN OF SPADES
+1F0A8	PLAYING CARD EIGHT OF SPADES
+1F0A9	PLAYING CARD NINE OF SPADES
+1F0AA	PLAYING CARD TEN OF SPADES
+1F0AB	PLAYING CARD JACK OF SPADES
+1F0AC	PLAYING CARD KNIGHT OF SPADES
+1F0AD	PLAYING CARD QUEEN OF SPADES
+1F0AE	PLAYING CARD KING OF SPADES
+1F0B1	PLAYING CARD ACE OF HEARTS
+1F0B2	PLAYING CARD TWO OF HEARTS
+1F0B3	PLAYING CARD THREE OF HEARTS
+1F0B4	PLAYING CARD FOUR OF HEARTS
+1F0B5	PLAYING CARD FIVE OF HEARTS
+1F0B6	PLAYING CARD SIX OF HEARTS
+1F0B7	PLAYING CARD SEVEN OF HEARTS
+1F0B8	PLAYING CARD EIGHT OF HEARTS
+1F0B9	PLAYING CARD NINE OF HEARTS
+1F0BA	PLAYING CARD TEN OF HEARTS
+1F0BB	PLAYING CARD JACK OF HEARTS
+1F0BC	PLAYING CARD KNIGHT OF HEARTS
+1F0BD	PLAYING CARD QUEEN OF HEARTS
+1F0BE	PLAYING CARD KING OF HEARTS
+1F0BF	PLAYING CARD RED JOKER
+1F0C1	PLAYING CARD ACE OF DIAMONDS
+1F0C2	PLAYING CARD TWO OF DIAMONDS
+1F0C3	PLAYING CARD THREE OF DIAMONDS
+1F0C4	PLAYING CARD FOUR OF DIAMONDS
+1F0C5	PLAYING CARD FIVE OF DIAMONDS
+1F0C6	PLAYING CARD SIX OF DIAMONDS
+1F0C7	PLAYING CARD SEVEN OF DIAMONDS
+1F0C8	PLAYING CARD EIGHT OF DIAMONDS
+1F0C9	PLAYING CARD NINE OF DIAMONDS
+1F0CA	PLAYING CARD TEN OF DIAMONDS
+1F0CB	PLAYING CARD JACK OF DIAMONDS
+1F0CC	PLAYING CARD KNIGHT OF DIAMONDS
+1F0CD	PLAYING CARD QUEEN OF DIAMONDS
+1F0CE	PLAYING CARD KING OF DIAMONDS
+1F0CF	PLAYING CARD BLACK JOKER
+1F0D1	PLAYING CARD ACE OF CLUBS
+1F0D2	PLAYING CARD TWO OF CLUBS
+1F0D3	PLAYING CARD THREE OF CLUBS
+1F0D4	PLAYING CARD FOUR OF CLUBS
+1F0D5	PLAYING CARD FIVE OF CLUBS
+1F0D6	PLAYING CARD SIX OF CLUBS
+1F0D7	PLAYING CARD SEVEN OF CLUBS
+1F0D8	PLAYING CARD EIGHT OF CLUBS
+1F0D9	PLAYING CARD NINE OF CLUBS
+1F0DA	PLAYING CARD TEN OF CLUBS
+1F0DB	PLAYING CARD JACK OF CLUBS
+1F0DC	PLAYING CARD KNIGHT OF CLUBS
+1F0DD	PLAYING CARD QUEEN OF CLUBS
+1F0DE	PLAYING CARD KING OF CLUBS
+1F0DF	PLAYING CARD WHITE JOKER
+1F0E0	PLAYING CARD FOOL
+1F0E1	PLAYING CARD TRUMP-1
+1F0E2	PLAYING CARD TRUMP-2
+1F0E3	PLAYING CARD TRUMP-3
+1F0E4	PLAYING CARD TRUMP-4
+1F0E5	PLAYING CARD TRUMP-5
+1F0E6	PLAYING CARD TRUMP-6
+1F0E7	PLAYING CARD TRUMP-7
+1F0E8	PLAYING CARD TRUMP-8
+1F0E9	PLAYING CARD TRUMP-9
+1F0EA	PLAYING CARD TRUMP-10
+1F0EB	PLAYING CARD TRUMP-11
+1F0EC	PLAYING CARD TRUMP-12
+1F0ED	PLAYING CARD TRUMP-13
+1F0EE	PLAYING CARD TRUMP-14
+1F0EF	PLAYING CARD TRUMP-15
+1F0F0	PLAYING CARD TRUMP-16
+1F0F1	PLAYING CARD TRUMP-17
+1F0F2	PLAYING CARD TRUMP-18
+1F0F3	PLAYING CARD TRUMP-19
+1F0F4	PLAYING CARD TRUMP-20
+1F0F5	PLAYING CARD TRUMP-21
+1F100	DIGIT ZERO FULL STOP
+1F101	DIGIT ZERO COMMA
+1F102	DIGIT ONE COMMA
+1F103	DIGIT TWO COMMA
+1F104	DIGIT THREE COMMA
+1F105	DIGIT FOUR COMMA
+1F106	DIGIT FIVE COMMA
+1F107	DIGIT SIX COMMA
+1F108	DIGIT SEVEN COMMA
+1F109	DIGIT EIGHT COMMA
+1F10A	DIGIT NINE COMMA
+1F10B	DINGBAT CIRCLED SANS-SERIF DIGIT ZERO
+1F10C	DINGBAT NEGATIVE CIRCLED SANS-SERIF DIGIT ZERO
+1F110	PARENTHESIZED LATIN CAPITAL LETTER A
+1F111	PARENTHESIZED LATIN CAPITAL LETTER B
+1F112	PARENTHESIZED LATIN CAPITAL LETTER C
+1F113	PARENTHESIZED LATIN CAPITAL LETTER D
+1F114	PARENTHESIZED LATIN CAPITAL LETTER E
+1F115	PARENTHESIZED LATIN CAPITAL LETTER F
+1F116	PARENTHESIZED LATIN CAPITAL LETTER G
+1F117	PARENTHESIZED LATIN CAPITAL LETTER H
+1F118	PARENTHESIZED LATIN CAPITAL LETTER I
+1F119	PARENTHESIZED LATIN CAPITAL LETTER J
+1F11A	PARENTHESIZED LATIN CAPITAL LETTER K
+1F11B	PARENTHESIZED LATIN CAPITAL LETTER L
+1F11C	PARENTHESIZED LATIN CAPITAL LETTER M
+1F11D	PARENTHESIZED LATIN CAPITAL LETTER N
+1F11E	PARENTHESIZED LATIN CAPITAL LETTER O
+1F11F	PARENTHESIZED LATIN CAPITAL LETTER P
+1F120	PARENTHESIZED LATIN CAPITAL LETTER Q
+1F121	PARENTHESIZED LATIN CAPITAL LETTER R
+1F122	PARENTHESIZED LATIN CAPITAL LETTER S
+1F123	PARENTHESIZED LATIN CAPITAL LETTER T
+1F124	PARENTHESIZED LATIN CAPITAL LETTER U
+1F125	PARENTHESIZED LATIN CAPITAL LETTER V
+1F126	PARENTHESIZED LATIN CAPITAL LETTER W
+1F127	PARENTHESIZED LATIN CAPITAL LETTER X
+1F128	PARENTHESIZED LATIN CAPITAL LETTER Y
+1F129	PARENTHESIZED LATIN CAPITAL LETTER Z
+1F12A	TORTOISE SHELL BRACKETED LATIN CAPITAL LETTER S
+1F12B	CIRCLED ITALIC LATIN CAPITAL LETTER C
+1F12C	CIRCLED ITALIC LATIN CAPITAL LETTER R
+1F12D	CIRCLED CD
+1F12E	CIRCLED WZ
+1F130	SQUARED LATIN CAPITAL LETTER A
+1F131	SQUARED LATIN CAPITAL LETTER B
+1F132	SQUARED LATIN CAPITAL LETTER C
+1F133	SQUARED LATIN CAPITAL LETTER D
+1F134	SQUARED LATIN CAPITAL LETTER E
+1F135	SQUARED LATIN CAPITAL LETTER F
+1F136	SQUARED LATIN CAPITAL LETTER G
+1F137	SQUARED LATIN CAPITAL LETTER H
+1F138	SQUARED LATIN CAPITAL LETTER I
+1F139	SQUARED LATIN CAPITAL LETTER J
+1F13A	SQUARED LATIN CAPITAL LETTER K
+1F13B	SQUARED LATIN CAPITAL LETTER L
+1F13C	SQUARED LATIN CAPITAL LETTER M
+1F13D	SQUARED LATIN CAPITAL LETTER N
+1F13E	SQUARED LATIN CAPITAL LETTER O
+1F13F	SQUARED LATIN CAPITAL LETTER P
+1F140	SQUARED LATIN CAPITAL LETTER Q
+1F141	SQUARED LATIN CAPITAL LETTER R
+1F142	SQUARED LATIN CAPITAL LETTER S
+1F143	SQUARED LATIN CAPITAL LETTER T
+1F144	SQUARED LATIN CAPITAL LETTER U
+1F145	SQUARED LATIN CAPITAL LETTER V
+1F146	SQUARED LATIN CAPITAL LETTER W
+1F147	SQUARED LATIN CAPITAL LETTER X
+1F148	SQUARED LATIN CAPITAL LETTER Y
+1F149	SQUARED LATIN CAPITAL LETTER Z
+1F14A	SQUARED HV
+1F14B	SQUARED MV
+1F14C	SQUARED SD
+1F14D	SQUARED SS
+1F14E	SQUARED PPV
+1F14F	SQUARED WC
+1F150	NEGATIVE CIRCLED LATIN CAPITAL LETTER A
+1F151	NEGATIVE CIRCLED LATIN CAPITAL LETTER B
+1F152	NEGATIVE CIRCLED LATIN CAPITAL LETTER C
+1F153	NEGATIVE CIRCLED LATIN CAPITAL LETTER D
+1F154	NEGATIVE CIRCLED LATIN CAPITAL LETTER E
+1F155	NEGATIVE CIRCLED LATIN CAPITAL LETTER F
+1F156	NEGATIVE CIRCLED LATIN CAPITAL LETTER G
+1F157	NEGATIVE CIRCLED LATIN CAPITAL LETTER H
+1F158	NEGATIVE CIRCLED LATIN CAPITAL LETTER I
+1F159	NEGATIVE CIRCLED LATIN CAPITAL LETTER J
+1F15A	NEGATIVE CIRCLED LATIN CAPITAL LETTER K
+1F15B	NEGATIVE CIRCLED LATIN CAPITAL LETTER L
+1F15C	NEGATIVE CIRCLED LATIN CAPITAL LETTER M
+1F15D	NEGATIVE CIRCLED LATIN CAPITAL LETTER N
+1F15E	NEGATIVE CIRCLED LATIN CAPITAL LETTER O
+1F15F	NEGATIVE CIRCLED LATIN CAPITAL LETTER P
+1F160	NEGATIVE CIRCLED LATIN CAPITAL LETTER Q
+1F161	NEGATIVE CIRCLED LATIN CAPITAL LETTER R
+1F162	NEGATIVE CIRCLED LATIN CAPITAL LETTER S
+1F163	NEGATIVE CIRCLED LATIN CAPITAL LETTER T
+1F164	NEGATIVE CIRCLED LATIN CAPITAL LETTER U
+1F165	NEGATIVE CIRCLED LATIN CAPITAL LETTER V
+1F166	NEGATIVE CIRCLED LATIN CAPITAL LETTER W
+1F167	NEGATIVE CIRCLED LATIN CAPITAL LETTER X
+1F168	NEGATIVE CIRCLED LATIN CAPITAL LETTER Y
+1F169	NEGATIVE CIRCLED LATIN CAPITAL LETTER Z
+1F16A	RAISED MC SIGN
+1F16B	RAISED MD SIGN
+1F170	NEGATIVE SQUARED LATIN CAPITAL LETTER A
+1F171	NEGATIVE SQUARED LATIN CAPITAL LETTER B
+1F172	NEGATIVE SQUARED LATIN CAPITAL LETTER C
+1F173	NEGATIVE SQUARED LATIN CAPITAL LETTER D
+1F174	NEGATIVE SQUARED LATIN CAPITAL LETTER E
+1F175	NEGATIVE SQUARED LATIN CAPITAL LETTER F
+1F176	NEGATIVE SQUARED LATIN CAPITAL LETTER G
+1F177	NEGATIVE SQUARED LATIN CAPITAL LETTER H
+1F178	NEGATIVE SQUARED LATIN CAPITAL LETTER I
+1F179	NEGATIVE SQUARED LATIN CAPITAL LETTER J
+1F17A	NEGATIVE SQUARED LATIN CAPITAL LETTER K
+1F17B	NEGATIVE SQUARED LATIN CAPITAL LETTER L
+1F17C	NEGATIVE SQUARED LATIN CAPITAL LETTER M
+1F17D	NEGATIVE SQUARED LATIN CAPITAL LETTER N
+1F17E	NEGATIVE SQUARED LATIN CAPITAL LETTER O
+1F17F	NEGATIVE SQUARED LATIN CAPITAL LETTER P
+1F180	NEGATIVE SQUARED LATIN CAPITAL LETTER Q
+1F181	NEGATIVE SQUARED LATIN CAPITAL LETTER R
+1F182	NEGATIVE SQUARED LATIN CAPITAL LETTER S
+1F183	NEGATIVE SQUARED LATIN CAPITAL LETTER T
+1F184	NEGATIVE SQUARED LATIN CAPITAL LETTER U
+1F185	NEGATIVE SQUARED LATIN CAPITAL LETTER V
+1F186	NEGATIVE SQUARED LATIN CAPITAL LETTER W
+1F187	NEGATIVE SQUARED LATIN CAPITAL LETTER X
+1F188	NEGATIVE SQUARED LATIN CAPITAL LETTER Y
+1F189	NEGATIVE SQUARED LATIN CAPITAL LETTER Z
+1F18A	CROSSED NEGATIVE SQUARED LATIN CAPITAL LETTER P
+1F18B	NEGATIVE SQUARED IC
+1F18C	NEGATIVE SQUARED PA
+1F18D	NEGATIVE SQUARED SA
+1F18E	NEGATIVE SQUARED AB
+1F18F	NEGATIVE SQUARED WC
+1F190	SQUARE DJ
+1F191	SQUARED CL
+1F192	SQUARED COOL
+1F193	SQUARED FREE
+1F194	SQUARED ID
+1F195	SQUARED NEW
+1F196	SQUARED NG
+1F197	SQUARED OK
+1F198	SQUARED SOS
+1F199	SQUARED UP WITH EXCLAMATION MARK
+1F19A	SQUARED VS
+1F1E6	REGIONAL INDICATOR SYMBOL LETTER A
+1F1E7	REGIONAL INDICATOR SYMBOL LETTER B
+1F1E8	REGIONAL INDICATOR SYMBOL LETTER C
+1F1E9	REGIONAL INDICATOR SYMBOL LETTER D
+1F1EA	REGIONAL INDICATOR SYMBOL LETTER E
+1F1EB	REGIONAL INDICATOR SYMBOL LETTER F
+1F1EC	REGIONAL INDICATOR SYMBOL LETTER G
+1F1ED	REGIONAL INDICATOR SYMBOL LETTER H
+1F1EE	REGIONAL INDICATOR SYMBOL LETTER I
+1F1EF	REGIONAL INDICATOR SYMBOL LETTER J
+1F1F0	REGIONAL INDICATOR SYMBOL LETTER K
+1F1F1	REGIONAL INDICATOR SYMBOL LETTER L
+1F1F2	REGIONAL INDICATOR SYMBOL LETTER M
+1F1F3	REGIONAL INDICATOR SYMBOL LETTER N
+1F1F4	REGIONAL INDICATOR SYMBOL LETTER O
+1F1F5	REGIONAL INDICATOR SYMBOL LETTER P
+1F1F6	REGIONAL INDICATOR SYMBOL LETTER Q
+1F1F7	REGIONAL INDICATOR SYMBOL LETTER R
+1F1F8	REGIONAL INDICATOR SYMBOL LETTER S
+1F1F9	REGIONAL INDICATOR SYMBOL LETTER T
+1F1FA	REGIONAL INDICATOR SYMBOL LETTER U
+1F1FB	REGIONAL INDICATOR SYMBOL LETTER V
+1F1FC	REGIONAL INDICATOR SYMBOL LETTER W
+1F1FD	REGIONAL INDICATOR SYMBOL LETTER X
+1F1FE	REGIONAL INDICATOR SYMBOL LETTER Y
+1F1FF	REGIONAL INDICATOR SYMBOL LETTER Z
+1F200	SQUARE HIRAGANA HOKA
+1F201	SQUARED KATAKANA KOKO
+1F202	SQUARED KATAKANA SA
+1F210	SQUARED CJK UNIFIED IDEOGRAPH-624B
+1F211	SQUARED CJK UNIFIED IDEOGRAPH-5B57
+1F212	SQUARED CJK UNIFIED IDEOGRAPH-53CC
+1F213	SQUARED KATAKANA DE
+1F214	SQUARED CJK UNIFIED IDEOGRAPH-4E8C
+1F215	SQUARED CJK UNIFIED IDEOGRAPH-591A
+1F216	SQUARED CJK UNIFIED IDEOGRAPH-89E3
+1F217	SQUARED CJK UNIFIED IDEOGRAPH-5929
+1F218	SQUARED CJK UNIFIED IDEOGRAPH-4EA4
+1F219	SQUARED CJK UNIFIED IDEOGRAPH-6620
+1F21A	SQUARED CJK UNIFIED IDEOGRAPH-7121
+1F21B	SQUARED CJK UNIFIED IDEOGRAPH-6599
+1F21C	SQUARED CJK UNIFIED IDEOGRAPH-524D
+1F21D	SQUARED CJK UNIFIED IDEOGRAPH-5F8C
+1F21E	SQUARED CJK UNIFIED IDEOGRAPH-518D
+1F21F	SQUARED CJK UNIFIED IDEOGRAPH-65B0
+1F220	SQUARED CJK UNIFIED IDEOGRAPH-521D
+1F221	SQUARED CJK UNIFIED IDEOGRAPH-7D42
+1F222	SQUARED CJK UNIFIED IDEOGRAPH-751F
+1F223	SQUARED CJK UNIFIED IDEOGRAPH-8CA9
+1F224	SQUARED CJK UNIFIED IDEOGRAPH-58F0
+1F225	SQUARED CJK UNIFIED IDEOGRAPH-5439
+1F226	SQUARED CJK UNIFIED IDEOGRAPH-6F14
+1F227	SQUARED CJK UNIFIED IDEOGRAPH-6295
+1F228	SQUARED CJK UNIFIED IDEOGRAPH-6355
+1F229	SQUARED CJK UNIFIED IDEOGRAPH-4E00
+1F22A	SQUARED CJK UNIFIED IDEOGRAPH-4E09
+1F22B	SQUARED CJK UNIFIED IDEOGRAPH-904A
+1F22C	SQUARED CJK UNIFIED IDEOGRAPH-5DE6
+1F22D	SQUARED CJK UNIFIED IDEOGRAPH-4E2D
+1F22E	SQUARED CJK UNIFIED IDEOGRAPH-53F3
+1F22F	SQUARED CJK UNIFIED IDEOGRAPH-6307
+1F230	SQUARED CJK UNIFIED IDEOGRAPH-8D70
+1F231	SQUARED CJK UNIFIED IDEOGRAPH-6253
+1F232	SQUARED CJK UNIFIED IDEOGRAPH-7981
+1F233	SQUARED CJK UNIFIED IDEOGRAPH-7A7A
+1F234	SQUARED CJK UNIFIED IDEOGRAPH-5408
+1F235	SQUARED CJK UNIFIED IDEOGRAPH-6E80
+1F236	SQUARED CJK UNIFIED IDEOGRAPH-6709
+1F237	SQUARED CJK UNIFIED IDEOGRAPH-6708
+1F238	SQUARED CJK UNIFIED IDEOGRAPH-7533
+1F239	SQUARED CJK UNIFIED IDEOGRAPH-5272
+1F23A	SQUARED CJK UNIFIED IDEOGRAPH-55B6
+1F240	TORTOISE SHELL BRACKETED CJK UNIFIED IDEOGRAPH-672C
+1F241	TORTOISE SHELL BRACKETED CJK UNIFIED IDEOGRAPH-4E09
+1F242	TORTOISE SHELL BRACKETED CJK UNIFIED IDEOGRAPH-4E8C
+1F243	TORTOISE SHELL BRACKETED CJK UNIFIED IDEOGRAPH-5B89
+1F244	TORTOISE SHELL BRACKETED CJK UNIFIED IDEOGRAPH-70B9
+1F245	TORTOISE SHELL BRACKETED CJK UNIFIED IDEOGRAPH-6253
+1F246	TORTOISE SHELL BRACKETED CJK UNIFIED IDEOGRAPH-76D7
+1F247	TORTOISE SHELL BRACKETED CJK UNIFIED IDEOGRAPH-52DD
+1F248	TORTOISE SHELL BRACKETED CJK UNIFIED IDEOGRAPH-6557
+1F250	CIRCLED IDEOGRAPH ADVANTAGE
+1F251	CIRCLED IDEOGRAPH ACCEPT
+1F300	CYCLONE
+1F301	FOGGY
+1F302	CLOSED UMBRELLA
+1F303	NIGHT WITH STARS
+1F304	SUNRISE OVER MOUNTAINS
+1F305	SUNRISE
+1F306	CITYSCAPE AT DUSK
+1F307	SUNSET OVER BUILDINGS
+1F308	RAINBOW
+1F309	BRIDGE AT NIGHT
+1F30A	WATER WAVE
+1F30B	VOLCANO
+1F30C	MILKY WAY
+1F30D	EARTH GLOBE EUROPE-AFRICA
+1F30E	EARTH GLOBE AMERICAS
+1F30F	EARTH GLOBE ASIA-AUSTRALIA
+1F310	GLOBE WITH MERIDIANS
+1F311	NEW MOON SYMBOL
+1F312	WAXING CRESCENT MOON SYMBOL
+1F313	FIRST QUARTER MOON SYMBOL
+1F314	WAXING GIBBOUS MOON SYMBOL
+1F315	FULL MOON SYMBOL
+1F316	WANING GIBBOUS MOON SYMBOL
+1F317	LAST QUARTER MOON SYMBOL
+1F318	WANING CRESCENT MOON SYMBOL
+1F319	CRESCENT MOON
+1F31A	NEW MOON WITH FACE
+1F31B	FIRST QUARTER MOON WITH FACE
+1F31C	LAST QUARTER MOON WITH FACE
+1F31D	FULL MOON WITH FACE
+1F31E	SUN WITH FACE
+1F31F	GLOWING STAR
+1F320	SHOOTING STAR
+1F321	THERMOMETER
+1F322	BLACK DROPLET
+1F323	WHITE SUN
+1F324	WHITE SUN WITH SMALL CLOUD
+1F325	WHITE SUN BEHIND CLOUD
+1F326	WHITE SUN BEHIND CLOUD WITH RAIN
+1F327	CLOUD WITH RAIN
+1F328	CLOUD WITH SNOW
+1F329	CLOUD WITH LIGHTNING
+1F32A	CLOUD WITH TORNADO
+1F32B	FOG
+1F32C	WIND BLOWING FACE
+1F32D	HOT DOG
+1F32E	TACO
+1F32F	BURRITO
+1F330	CHESTNUT
+1F331	SEEDLING
+1F332	EVERGREEN TREE
+1F333	DECIDUOUS TREE
+1F334	PALM TREE
+1F335	CACTUS
+1F336	HOT PEPPER
+1F337	TULIP
+1F338	CHERRY BLOSSOM
+1F339	ROSE
+1F33A	HIBISCUS
+1F33B	SUNFLOWER
+1F33C	BLOSSOM
+1F33D	EAR OF MAIZE
+1F33E	EAR OF RICE
+1F33F	HERB
+1F340	FOUR LEAF CLOVER
+1F341	MAPLE LEAF
+1F342	FALLEN LEAF
+1F343	LEAF FLUTTERING IN WIND
+1F344	MUSHROOM
+1F345	TOMATO
+1F346	AUBERGINE
+1F347	GRAPES
+1F348	MELON
+1F349	WATERMELON
+1F34A	TANGERINE
+1F34B	LEMON
+1F34C	BANANA
+1F34D	PINEAPPLE
+1F34E	RED APPLE
+1F34F	GREEN APPLE
+1F350	PEAR
+1F351	PEACH
+1F352	CHERRIES
+1F353	STRAWBERRY
+1F354	HAMBURGER
+1F355	SLICE OF PIZZA
+1F356	MEAT ON BONE
+1F357	POULTRY LEG
+1F358	RICE CRACKER
+1F359	RICE BALL
+1F35A	COOKED RICE
+1F35B	CURRY AND RICE
+1F35C	STEAMING BOWL
+1F35D	SPAGHETTI
+1F35E	BREAD
+1F35F	FRENCH FRIES
+1F360	ROASTED SWEET POTATO
+1F361	DANGO
+1F362	ODEN
+1F363	SUSHI
+1F364	FRIED SHRIMP
+1F365	FISH CAKE WITH SWIRL DESIGN
+1F366	SOFT ICE CREAM
+1F367	SHAVED ICE
+1F368	ICE CREAM
+1F369	DOUGHNUT
+1F36A	COOKIE
+1F36B	CHOCOLATE BAR
+1F36C	CANDY
+1F36D	LOLLIPOP
+1F36E	CUSTARD
+1F36F	HONEY POT
+1F370	SHORTCAKE
+1F371	BENTO BOX
+1F372	POT OF FOOD
+1F373	COOKING
+1F374	FORK AND KNIFE
+1F375	TEACUP WITHOUT HANDLE
+1F376	SAKE BOTTLE AND CUP
+1F377	WINE GLASS
+1F378	COCKTAIL GLASS
+1F379	TROPICAL DRINK
+1F37A	BEER MUG
+1F37B	CLINKING BEER MUGS
+1F37C	BABY BOTTLE
+1F37D	FORK AND KNIFE WITH PLATE
+1F37E	BOTTLE WITH POPPING CORK
+1F37F	POPCORN
+1F380	RIBBON
+1F381	WRAPPED PRESENT
+1F382	BIRTHDAY CAKE
+1F383	JACK-O-LANTERN
+1F384	CHRISTMAS TREE
+1F385	FATHER CHRISTMAS
+1F386	FIREWORKS
+1F387	FIREWORK SPARKLER
+1F388	BALLOON
+1F389	PARTY POPPER
+1F38A	CONFETTI BALL
+1F38B	TANABATA TREE
+1F38C	CROSSED FLAGS
+1F38D	PINE DECORATION
+1F38E	JAPANESE DOLLS
+1F38F	CARP STREAMER
+1F390	WIND CHIME
+1F391	MOON VIEWING CEREMONY
+1F392	SCHOOL SATCHEL
+1F393	GRADUATION CAP
+1F394	HEART WITH TIP ON THE LEFT
+1F395	BOUQUET OF FLOWERS
+1F396	MILITARY MEDAL
+1F397	REMINDER RIBBON
+1F398	MUSICAL KEYBOARD WITH JACKS
+1F399	STUDIO MICROPHONE
+1F39A	LEVEL SLIDER
+1F39B	CONTROL KNOBS
+1F39C	BEAMED ASCENDING MUSICAL NOTES
+1F39D	BEAMED DESCENDING MUSICAL NOTES
+1F39E	FILM FRAMES
+1F39F	ADMISSION TICKETS
+1F3A0	CAROUSEL HORSE
+1F3A1	FERRIS WHEEL
+1F3A2	ROLLER COASTER
+1F3A3	FISHING POLE AND FISH
+1F3A4	MICROPHONE
+1F3A5	MOVIE CAMERA
+1F3A6	CINEMA
+1F3A7	HEADPHONE
+1F3A8	ARTIST PALETTE
+1F3A9	TOP HAT
+1F3AA	CIRCUS TENT
+1F3AB	TICKET
+1F3AC	CLAPPER BOARD
+1F3AD	PERFORMING ARTS
+1F3AE	VIDEO GAME
+1F3AF	DIRECT HIT
+1F3B0	SLOT MACHINE
+1F3B1	BILLIARDS
+1F3B2	GAME DIE
+1F3B3	BOWLING
+1F3B4	FLOWER PLAYING CARDS
+1F3B5	MUSICAL NOTE
+1F3B6	MULTIPLE MUSICAL NOTES
+1F3B7	SAXOPHONE
+1F3B8	GUITAR
+1F3B9	MUSICAL KEYBOARD
+1F3BA	TRUMPET
+1F3BB	VIOLIN
+1F3BC	MUSICAL SCORE
+1F3BD	RUNNING SHIRT WITH SASH
+1F3BE	TENNIS RACQUET AND BALL
+1F3BF	SKI AND SKI BOOT
+1F3C0	BASKETBALL AND HOOP
+1F3C1	CHEQUERED FLAG
+1F3C2	SNOWBOARDER
+1F3C3	RUNNER
+1F3C4	SURFER
+1F3C5	SPORTS MEDAL
+1F3C6	TROPHY
+1F3C7	HORSE RACING
+1F3C8	AMERICAN FOOTBALL
+1F3C9	RUGBY FOOTBALL
+1F3CA	SWIMMER
+1F3CB	WEIGHT LIFTER
+1F3CC	GOLFER
+1F3CD	RACING MOTORCYCLE
+1F3CE	RACING CAR
+1F3CF	CRICKET BAT AND BALL
+1F3D0	VOLLEYBALL
+1F3D1	FIELD HOCKEY STICK AND BALL
+1F3D2	ICE HOCKEY STICK AND PUCK
+1F3D3	TABLE TENNIS PADDLE AND BALL
+1F3D4	SNOW CAPPED MOUNTAIN
+1F3D5	CAMPING
+1F3D6	BEACH WITH UMBRELLA
+1F3D7	BUILDING CONSTRUCTION
+1F3D8	HOUSE BUILDINGS
+1F3D9	CITYSCAPE
+1F3DA	DERELICT HOUSE BUILDING
+1F3DB	CLASSICAL BUILDING
+1F3DC	DESERT
+1F3DD	DESERT ISLAND
+1F3DE	NATIONAL PARK
+1F3DF	STADIUM
+1F3E0	HOUSE BUILDING
+1F3E1	HOUSE WITH GARDEN
+1F3E2	OFFICE BUILDING
+1F3E3	JAPANESE POST OFFICE
+1F3E4	EUROPEAN POST OFFICE
+1F3E5	HOSPITAL
+1F3E6	BANK
+1F3E7	AUTOMATED TELLER MACHINE
+1F3E8	HOTEL
+1F3E9	LOVE HOTEL
+1F3EA	CONVENIENCE STORE
+1F3EB	SCHOOL
+1F3EC	DEPARTMENT STORE
+1F3ED	FACTORY
+1F3EE	IZAKAYA LANTERN
+1F3EF	JAPANESE CASTLE
+1F3F0	EUROPEAN CASTLE
+1F3F1	WHITE PENNANT
+1F3F2	BLACK PENNANT
+1F3F3	WAVING WHITE FLAG
+1F3F4	WAVING BLACK FLAG
+1F3F5	ROSETTE
+1F3F6	BLACK ROSETTE
+1F3F7	LABEL
+1F3F8	BADMINTON RACQUET AND SHUTTLECOCK
+1F3F9	BOW AND ARROW
+1F3FA	AMPHORA
+1F3FB	EMOJI MODIFIER FITZPATRICK TYPE-1-2
+1F3FC	EMOJI MODIFIER FITZPATRICK TYPE-3
+1F3FD	EMOJI MODIFIER FITZPATRICK TYPE-4
+1F3FE	EMOJI MODIFIER FITZPATRICK TYPE-5
+1F3FF	EMOJI MODIFIER FITZPATRICK TYPE-6
+1F400	RAT
+1F401	MOUSE
+1F402	OX
+1F403	WATER BUFFALO
+1F404	COW
+1F405	TIGER
+1F406	LEOPARD
+1F407	RABBIT
+1F408	CAT
+1F409	DRAGON
+1F40A	CROCODILE
+1F40B	WHALE
+1F40C	SNAIL
+1F40D	SNAKE
+1F40E	HORSE
+1F40F	RAM
+1F410	GOAT
+1F411	SHEEP
+1F412	MONKEY
+1F413	ROOSTER
+1F414	CHICKEN
+1F415	DOG
+1F416	PIG
+1F417	BOAR
+1F418	ELEPHANT
+1F419	OCTOPUS
+1F41A	SPIRAL SHELL
+1F41B	BUG
+1F41C	ANT
+1F41D	HONEYBEE
+1F41E	LADY BEETLE
+1F41F	FISH
+1F420	TROPICAL FISH
+1F421	BLOWFISH
+1F422	TURTLE
+1F423	HATCHING CHICK
+1F424	BABY CHICK
+1F425	FRONT-FACING BABY CHICK
+1F426	BIRD
+1F427	PENGUIN
+1F428	KOALA
+1F429	POODLE
+1F42A	DROMEDARY CAMEL
+1F42B	BACTRIAN CAMEL
+1F42C	DOLPHIN
+1F42D	MOUSE FACE
+1F42E	COW FACE
+1F42F	TIGER FACE
+1F430	RABBIT FACE
+1F431	CAT FACE
+1F432	DRAGON FACE
+1F433	SPOUTING WHALE
+1F434	HORSE FACE
+1F435	MONKEY FACE
+1F436	DOG FACE
+1F437	PIG FACE
+1F438	FROG FACE
+1F439	HAMSTER FACE
+1F43A	WOLF FACE
+1F43B	BEAR FACE
+1F43C	PANDA FACE
+1F43D	PIG NOSE
+1F43E	PAW PRINTS
+1F43F	CHIPMUNK
+1F440	EYES
+1F441	EYE
+1F442	EAR
+1F443	NOSE
+1F444	MOUTH
+1F445	TONGUE
+1F446	WHITE UP POINTING BACKHAND INDEX
+1F447	WHITE DOWN POINTING BACKHAND INDEX
+1F448	WHITE LEFT POINTING BACKHAND INDEX
+1F449	WHITE RIGHT POINTING BACKHAND INDEX
+1F44A	FISTED HAND SIGN
+1F44B	WAVING HAND SIGN
+1F44C	OK HAND SIGN
+1F44D	THUMBS UP SIGN
+1F44E	THUMBS DOWN SIGN
+1F44F	CLAPPING HANDS SIGN
+1F450	OPEN HANDS SIGN
+1F451	CROWN
+1F452	WOMANS HAT
+1F453	EYEGLASSES
+1F454	NECKTIE
+1F455	T-SHIRT
+1F456	JEANS
+1F457	DRESS
+1F458	KIMONO
+1F459	BIKINI
+1F45A	WOMANS CLOTHES
+1F45B	PURSE
+1F45C	HANDBAG
+1F45D	POUCH
+1F45E	MANS SHOE
+1F45F	ATHLETIC SHOE
+1F460	HIGH-HEELED SHOE
+1F461	WOMANS SANDAL
+1F462	WOMANS BOOTS
+1F463	FOOTPRINTS
+1F464	BUST IN SILHOUETTE
+1F465	BUSTS IN SILHOUETTE
+1F466	BOY
+1F467	GIRL
+1F468	MAN
+1F469	WOMAN
+1F46A	FAMILY
+1F46B	MAN AND WOMAN HOLDING HANDS
+1F46C	TWO MEN HOLDING HANDS
+1F46D	TWO WOMEN HOLDING HANDS
+1F46E	POLICE OFFICER
+1F46F	WOMAN WITH BUNNY EARS
+1F470	BRIDE WITH VEIL
+1F471	PERSON WITH BLOND HAIR
+1F472	MAN WITH GUA PI MAO
+1F473	MAN WITH TURBAN
+1F474	OLDER MAN
+1F475	OLDER WOMAN
+1F476	BABY
+1F477	CONSTRUCTION WORKER
+1F478	PRINCESS
+1F479	JAPANESE OGRE
+1F47A	JAPANESE GOBLIN
+1F47B	GHOST
+1F47C	BABY ANGEL
+1F47D	EXTRATERRESTRIAL ALIEN
+1F47E	ALIEN MONSTER
+1F47F	IMP
+1F480	SKULL
+1F481	INFORMATION DESK PERSON
+1F482	GUARDSMAN
+1F483	DANCER
+1F484	LIPSTICK
+1F485	NAIL POLISH
+1F486	FACE MASSAGE
+1F487	HAIRCUT
+1F488	BARBER POLE
+1F489	SYRINGE
+1F48A	PILL
+1F48B	KISS MARK
+1F48C	LOVE LETTER
+1F48D	RING
+1F48E	GEM STONE
+1F48F	KISS
+1F490	BOUQUET
+1F491	COUPLE WITH HEART
+1F492	WEDDING
+1F493	BEATING HEART
+1F494	BROKEN HEART
+1F495	TWO HEARTS
+1F496	SPARKLING HEART
+1F497	GROWING HEART
+1F498	HEART WITH ARROW
+1F499	BLUE HEART
+1F49A	GREEN HEART
+1F49B	YELLOW HEART
+1F49C	PURPLE HEART
+1F49D	HEART WITH RIBBON
+1F49E	REVOLVING HEARTS
+1F49F	HEART DECORATION
+1F4A0	DIAMOND SHAPE WITH A DOT INSIDE
+1F4A1	ELECTRIC LIGHT BULB
+1F4A2	ANGER SYMBOL
+1F4A3	BOMB
+1F4A4	SLEEPING SYMBOL
+1F4A5	COLLISION SYMBOL
+1F4A6	SPLASHING SWEAT SYMBOL
+1F4A7	DROPLET
+1F4A8	DASH SYMBOL
+1F4A9	PILE OF POO
+1F4AA	FLEXED BICEPS
+1F4AB	DIZZY SYMBOL
+1F4AC	SPEECH BALLOON
+1F4AD	THOUGHT BALLOON
+1F4AE	WHITE FLOWER
+1F4AF	HUNDRED POINTS SYMBOL
+1F4B0	MONEY BAG
+1F4B1	CURRENCY EXCHANGE
+1F4B2	HEAVY DOLLAR SIGN
+1F4B3	CREDIT CARD
+1F4B4	BANKNOTE WITH YEN SIGN
+1F4B5	BANKNOTE WITH DOLLAR SIGN
+1F4B6	BANKNOTE WITH EURO SIGN
+1F4B7	BANKNOTE WITH POUND SIGN
+1F4B8	MONEY WITH WINGS
+1F4B9	CHART WITH UPWARDS TREND AND YEN SIGN
+1F4BA	SEAT
+1F4BB	PERSONAL COMPUTER
+1F4BC	BRIEFCASE
+1F4BD	MINIDISC
+1F4BE	FLOPPY DISK
+1F4BF	OPTICAL DISC
+1F4C0	DVD
+1F4C1	FILE FOLDER
+1F4C2	OPEN FILE FOLDER
+1F4C3	PAGE WITH CURL
+1F4C4	PAGE FACING UP
+1F4C5	CALENDAR
+1F4C6	TEAR-OFF CALENDAR
+1F4C7	CARD INDEX
+1F4C8	CHART WITH UPWARDS TREND
+1F4C9	CHART WITH DOWNWARDS TREND
+1F4CA	BAR CHART
+1F4CB	CLIPBOARD
+1F4CC	PUSHPIN
+1F4CD	ROUND PUSHPIN
+1F4CE	PAPERCLIP
+1F4CF	STRAIGHT RULER
+1F4D0	TRIANGULAR RULER
+1F4D1	BOOKMARK TABS
+1F4D2	LEDGER
+1F4D3	NOTEBOOK
+1F4D4	NOTEBOOK WITH DECORATIVE COVER
+1F4D5	CLOSED BOOK
+1F4D6	OPEN BOOK
+1F4D7	GREEN BOOK
+1F4D8	BLUE BOOK
+1F4D9	ORANGE BOOK
+1F4DA	BOOKS
+1F4DB	NAME BADGE
+1F4DC	SCROLL
+1F4DD	MEMO
+1F4DE	TELEPHONE RECEIVER
+1F4DF	PAGER
+1F4E0	FAX MACHINE
+1F4E1	SATELLITE ANTENNA
+1F4E2	PUBLIC ADDRESS LOUDSPEAKER
+1F4E3	CHEERING MEGAPHONE
+1F4E4	OUTBOX TRAY
+1F4E5	INBOX TRAY
+1F4E6	PACKAGE
+1F4E7	E-MAIL SYMBOL
+1F4E8	INCOMING ENVELOPE
+1F4E9	ENVELOPE WITH DOWNWARDS ARROW ABOVE
+1F4EA	CLOSED MAILBOX WITH LOWERED FLAG
+1F4EB	CLOSED MAILBOX WITH RAISED FLAG
+1F4EC	OPEN MAILBOX WITH RAISED FLAG
+1F4ED	OPEN MAILBOX WITH LOWERED FLAG
+1F4EE	POSTBOX
+1F4EF	POSTAL HORN
+1F4F0	NEWSPAPER
+1F4F1	MOBILE PHONE
+1F4F2	MOBILE PHONE WITH RIGHTWARDS ARROW AT LEFT
+1F4F3	VIBRATION MODE
+1F4F4	MOBILE PHONE OFF
+1F4F5	NO MOBILE PHONES
+1F4F6	ANTENNA WITH BARS
+1F4F7	CAMERA
+1F4F8	CAMERA WITH FLASH
+1F4F9	VIDEO CAMERA
+1F4FA	TELEVISION
+1F4FB	RADIO
+1F4FC	VIDEOCASSETTE
+1F4FD	FILM PROJECTOR
+1F4FE	PORTABLE STEREO
+1F4FF	PRAYER BEADS
+1F500	TWISTED RIGHTWARDS ARROWS
+1F501	CLOCKWISE RIGHTWARDS AND LEFTWARDS OPEN CIRCLE ARROWS
+1F502	CLOCKWISE RIGHTWARDS AND LEFTWARDS OPEN CIRCLE ARROWS WITH CIRCLED ONE OVERLAY
+1F503	CLOCKWISE DOWNWARDS AND UPWARDS OPEN CIRCLE ARROWS
+1F504	ANTICLOCKWISE DOWNWARDS AND UPWARDS OPEN CIRCLE ARROWS
+1F505	LOW BRIGHTNESS SYMBOL
+1F506	HIGH BRIGHTNESS SYMBOL
+1F507	SPEAKER WITH CANCELLATION STROKE
+1F508	SPEAKER
+1F509	SPEAKER WITH ONE SOUND WAVE
+1F50A	SPEAKER WITH THREE SOUND WAVES
+1F50B	BATTERY
+1F50C	ELECTRIC PLUG
+1F50D	LEFT-POINTING MAGNIFYING GLASS
+1F50E	RIGHT-POINTING MAGNIFYING GLASS
+1F50F	LOCK WITH INK PEN
+1F510	CLOSED LOCK WITH KEY
+1F511	KEY
+1F512	LOCK
+1F513	OPEN LOCK
+1F514	BELL
+1F515	BELL WITH CANCELLATION STROKE
+1F516	BOOKMARK
+1F517	LINK SYMBOL
+1F518	RADIO BUTTON
+1F519	BACK WITH LEFTWARDS ARROW ABOVE
+1F51A	END WITH LEFTWARDS ARROW ABOVE
+1F51B	ON WITH EXCLAMATION MARK WITH LEFT RIGHT ARROW ABOVE
+1F51C	SOON WITH RIGHTWARDS ARROW ABOVE
+1F51D	TOP WITH UPWARDS ARROW ABOVE
+1F51E	NO ONE UNDER EIGHTEEN SYMBOL
+1F51F	KEYCAP TEN
+1F520	INPUT SYMBOL FOR LATIN CAPITAL LETTERS
+1F521	INPUT SYMBOL FOR LATIN SMALL LETTERS
+1F522	INPUT SYMBOL FOR NUMBERS
+1F523	INPUT SYMBOL FOR SYMBOLS
+1F524	INPUT SYMBOL FOR LATIN LETTERS
+1F525	FIRE
+1F526	ELECTRIC TORCH
+1F527	WRENCH
+1F528	HAMMER
+1F529	NUT AND BOLT
+1F52A	HOCHO
+1F52B	PISTOL
+1F52C	MICROSCOPE
+1F52D	TELESCOPE
+1F52E	CRYSTAL BALL
+1F52F	SIX POINTED STAR WITH MIDDLE DOT
+1F530	JAPANESE SYMBOL FOR BEGINNER
+1F531	TRIDENT EMBLEM
+1F532	BLACK SQUARE BUTTON
+1F533	WHITE SQUARE BUTTON
+1F534	LARGE RED CIRCLE
+1F535	LARGE BLUE CIRCLE
+1F536	LARGE ORANGE DIAMOND
+1F537	LARGE BLUE DIAMOND
+1F538	SMALL ORANGE DIAMOND
+1F539	SMALL BLUE DIAMOND
+1F53A	UP-POINTING RED TRIANGLE
+1F53B	DOWN-POINTING RED TRIANGLE
+1F53C	UP-POINTING SMALL RED TRIANGLE
+1F53D	DOWN-POINTING SMALL RED TRIANGLE
+1F53E	LOWER RIGHT SHADOWED WHITE CIRCLE
+1F53F	UPPER RIGHT SHADOWED WHITE CIRCLE
+1F540	CIRCLED CROSS POMMEE
+1F541	CROSS POMMEE WITH HALF-CIRCLE BELOW
+1F542	CROSS POMMEE
+1F543	NOTCHED LEFT SEMICIRCLE WITH THREE DOTS
+1F544	NOTCHED RIGHT SEMICIRCLE WITH THREE DOTS
+1F545	SYMBOL FOR MARKS CHAPTER
+1F546	WHITE LATIN CROSS
+1F547	HEAVY LATIN CROSS
+1F548	CELTIC CROSS
+1F549	OM SYMBOL
+1F54A	DOVE OF PEACE
+1F54B	KAABA
+1F54C	MOSQUE
+1F54D	SYNAGOGUE
+1F54E	MENORAH WITH NINE BRANCHES
+1F54F	BOWL OF HYGIEIA
+1F550	CLOCK FACE ONE OCLOCK
+1F551	CLOCK FACE TWO OCLOCK
+1F552	CLOCK FACE THREE OCLOCK
+1F553	CLOCK FACE FOUR OCLOCK
+1F554	CLOCK FACE FIVE OCLOCK
+1F555	CLOCK FACE SIX OCLOCK
+1F556	CLOCK FACE SEVEN OCLOCK
+1F557	CLOCK FACE EIGHT OCLOCK
+1F558	CLOCK FACE NINE OCLOCK
+1F559	CLOCK FACE TEN OCLOCK
+1F55A	CLOCK FACE ELEVEN OCLOCK
+1F55B	CLOCK FACE TWELVE OCLOCK
+1F55C	CLOCK FACE ONE-THIRTY
+1F55D	CLOCK FACE TWO-THIRTY
+1F55E	CLOCK FACE THREE-THIRTY
+1F55F	CLOCK FACE FOUR-THIRTY
+1F560	CLOCK FACE FIVE-THIRTY
+1F561	CLOCK FACE SIX-THIRTY
+1F562	CLOCK FACE SEVEN-THIRTY
+1F563	CLOCK FACE EIGHT-THIRTY
+1F564	CLOCK FACE NINE-THIRTY
+1F565	CLOCK FACE TEN-THIRTY
+1F566	CLOCK FACE ELEVEN-THIRTY
+1F567	CLOCK FACE TWELVE-THIRTY
+1F568	RIGHT SPEAKER
+1F569	RIGHT SPEAKER WITH ONE SOUND WAVE
+1F56A	RIGHT SPEAKER WITH THREE SOUND WAVES
+1F56B	BULLHORN
+1F56C	BULLHORN WITH SOUND WAVES
+1F56D	RINGING BELL
+1F56E	BOOK
+1F56F	CANDLE
+1F570	MANTELPIECE CLOCK
+1F571	BLACK SKULL AND CROSSBONES
+1F572	NO PIRACY
+1F573	HOLE
+1F574	MAN IN BUSINESS SUIT LEVITATING
+1F575	SLEUTH OR SPY
+1F576	DARK SUNGLASSES
+1F577	SPIDER
+1F578	SPIDER WEB
+1F579	JOYSTICK
+1F57B	LEFT HAND TELEPHONE RECEIVER
+1F57C	TELEPHONE RECEIVER WITH PAGE
+1F57D	RIGHT HAND TELEPHONE RECEIVER
+1F57E	WHITE TOUCHTONE TELEPHONE
+1F57F	BLACK TOUCHTONE TELEPHONE
+1F580	TELEPHONE ON TOP OF MODEM
+1F581	CLAMSHELL MOBILE PHONE
+1F582	BACK OF ENVELOPE
+1F583	STAMPED ENVELOPE
+1F584	ENVELOPE WITH LIGHTNING
+1F585	FLYING ENVELOPE
+1F586	PEN OVER STAMPED ENVELOPE
+1F587	LINKED PAPERCLIPS
+1F588	BLACK PUSHPIN
+1F589	LOWER LEFT PENCIL
+1F58A	LOWER LEFT BALLPOINT PEN
+1F58B	LOWER LEFT FOUNTAIN PEN
+1F58C	LOWER LEFT PAINTBRUSH
+1F58D	LOWER LEFT CRAYON
+1F58E	LEFT WRITING HAND
+1F58F	TURNED OK HAND SIGN
+1F590	RAISED HAND WITH FINGERS SPLAYED
+1F591	REVERSED RAISED HAND WITH FINGERS SPLAYED
+1F592	REVERSED THUMBS UP SIGN
+1F593	REVERSED THUMBS DOWN SIGN
+1F594	REVERSED VICTORY HAND
+1F595	REVERSED HAND WITH MIDDLE FINGER EXTENDED
+1F596	RAISED HAND WITH PART BETWEEN MIDDLE AND RING FINGERS
+1F597	WHITE DOWN POINTING LEFT HAND INDEX
+1F598	SIDEWAYS WHITE LEFT POINTING INDEX
+1F599	SIDEWAYS WHITE RIGHT POINTING INDEX
+1F59A	SIDEWAYS BLACK LEFT POINTING INDEX
+1F59B	SIDEWAYS BLACK RIGHT POINTING INDEX
+1F59C	BLACK LEFT POINTING BACKHAND INDEX
+1F59D	BLACK RIGHT POINTING BACKHAND INDEX
+1F59E	SIDEWAYS WHITE UP POINTING INDEX
+1F59F	SIDEWAYS WHITE DOWN POINTING INDEX
+1F5A0	SIDEWAYS BLACK UP POINTING INDEX
+1F5A1	SIDEWAYS BLACK DOWN POINTING INDEX
+1F5A2	BLACK UP POINTING BACKHAND INDEX
+1F5A3	BLACK DOWN POINTING BACKHAND INDEX
+1F5A5	DESKTOP COMPUTER
+1F5A6	KEYBOARD AND MOUSE
+1F5A7	THREE NETWORKED COMPUTERS
+1F5A8	PRINTER
+1F5A9	POCKET CALCULATOR
+1F5AA	BLACK HARD SHELL FLOPPY DISK
+1F5AB	WHITE HARD SHELL FLOPPY DISK
+1F5AC	SOFT SHELL FLOPPY DISK
+1F5AD	TAPE CARTRIDGE
+1F5AE	WIRED KEYBOARD
+1F5AF	ONE BUTTON MOUSE
+1F5B0	TWO BUTTON MOUSE
+1F5B1	THREE BUTTON MOUSE
+1F5B2	TRACKBALL
+1F5B3	OLD PERSONAL COMPUTER
+1F5B4	HARD DISK
+1F5B5	SCREEN
+1F5B6	PRINTER ICON
+1F5B7	FAX ICON
+1F5B8	OPTICAL DISC ICON
+1F5B9	DOCUMENT WITH TEXT
+1F5BA	DOCUMENT WITH TEXT AND PICTURE
+1F5BB	DOCUMENT WITH PICTURE
+1F5BC	FRAME WITH PICTURE
+1F5BD	FRAME WITH TILES
+1F5BE	FRAME WITH AN X
+1F5BF	BLACK FOLDER
+1F5C0	FOLDER
+1F5C1	OPEN FOLDER
+1F5C2	CARD INDEX DIVIDERS
+1F5C3	CARD FILE BOX
+1F5C4	FILE CABINET
+1F5C5	EMPTY NOTE
+1F5C6	EMPTY NOTE PAGE
+1F5C7	EMPTY NOTE PAD
+1F5C8	NOTE
+1F5C9	NOTE PAGE
+1F5CA	NOTE PAD
+1F5CB	EMPTY DOCUMENT
+1F5CC	EMPTY PAGE
+1F5CD	EMPTY PAGES
+1F5CE	DOCUMENT
+1F5CF	PAGE
+1F5D0	PAGES
+1F5D1	WASTEBASKET
+1F5D2	SPIRAL NOTE PAD
+1F5D3	SPIRAL CALENDAR PAD
+1F5D4	DESKTOP WINDOW
+1F5D5	MINIMIZE
+1F5D6	MAXIMIZE
+1F5D7	OVERLAP
+1F5D8	CLOCKWISE RIGHT AND LEFT SEMICIRCLE ARROWS
+1F5D9	CANCELLATION X
+1F5DA	INCREASE FONT SIZE SYMBOL
+1F5DB	DECREASE FONT SIZE SYMBOL
+1F5DC	COMPRESSION
+1F5DD	OLD KEY
+1F5DE	ROLLED-UP NEWSPAPER
+1F5DF	PAGE WITH CIRCLED TEXT
+1F5E0	STOCK CHART
+1F5E1	DAGGER KNIFE
+1F5E2	LIPS
+1F5E3	SPEAKING HEAD IN SILHOUETTE
+1F5E4	THREE RAYS ABOVE
+1F5E5	THREE RAYS BELOW
+1F5E6	THREE RAYS LEFT
+1F5E7	THREE RAYS RIGHT
+1F5E8	LEFT SPEECH BUBBLE
+1F5E9	RIGHT SPEECH BUBBLE
+1F5EA	TWO SPEECH BUBBLES
+1F5EB	THREE SPEECH BUBBLES
+1F5EC	LEFT THOUGHT BUBBLE
+1F5ED	RIGHT THOUGHT BUBBLE
+1F5EE	LEFT ANGER BUBBLE
+1F5EF	RIGHT ANGER BUBBLE
+1F5F0	MOOD BUBBLE
+1F5F1	LIGHTNING MOOD BUBBLE
+1F5F2	LIGHTNING MOOD
+1F5F3	BALLOT BOX WITH BALLOT
+1F5F4	BALLOT SCRIPT X
+1F5F5	BALLOT BOX WITH SCRIPT X
+1F5F6	BALLOT BOLD SCRIPT X
+1F5F7	BALLOT BOX WITH BOLD SCRIPT X
+1F5F8	LIGHT CHECK MARK
+1F5F9	BALLOT BOX WITH BOLD CHECK
+1F5FA	WORLD MAP
+1F5FB	MOUNT FUJI
+1F5FC	TOKYO TOWER
+1F5FD	STATUE OF LIBERTY
+1F5FE	SILHOUETTE OF JAPAN
+1F5FF	MOYAI
+1F600	GRINNING FACE
+1F601	GRINNING FACE WITH SMILING EYES
+1F602	FACE WITH TEARS OF JOY
+1F603	SMILING FACE WITH OPEN MOUTH
+1F604	SMILING FACE WITH OPEN MOUTH AND SMILING EYES
+1F605	SMILING FACE WITH OPEN MOUTH AND COLD SWEAT
+1F606	SMILING FACE WITH OPEN MOUTH AND TIGHTLY-CLOSED EYES
+1F607	SMILING FACE WITH HALO
+1F608	SMILING FACE WITH HORNS
+1F609	WINKING FACE
+1F60A	SMILING FACE WITH SMILING EYES
+1F60B	FACE SAVOURING DELICIOUS FOOD
+1F60C	RELIEVED FACE
+1F60D	SMILING FACE WITH HEART-SHAPED EYES
+1F60E	SMILING FACE WITH SUNGLASSES
+1F60F	SMIRKING FACE
+1F610	NEUTRAL FACE
+1F611	EXPRESSIONLESS FACE
+1F612	UNAMUSED FACE
+1F613	FACE WITH COLD SWEAT
+1F614	PENSIVE FACE
+1F615	CONFUSED FACE
+1F616	CONFOUNDED FACE
+1F617	KISSING FACE
+1F618	FACE THROWING A KISS
+1F619	KISSING FACE WITH SMILING EYES
+1F61A	KISSING FACE WITH CLOSED EYES
+1F61B	FACE WITH STUCK-OUT TONGUE
+1F61C	FACE WITH STUCK-OUT TONGUE AND WINKING EYE
+1F61D	FACE WITH STUCK-OUT TONGUE AND TIGHTLY-CLOSED EYES
+1F61E	DISAPPOINTED FACE
+1F61F	WORRIED FACE
+1F620	ANGRY FACE
+1F621	POUTING FACE
+1F622	CRYING FACE
+1F623	PERSEVERING FACE
+1F624	FACE WITH LOOK OF TRIUMPH
+1F625	DISAPPOINTED BUT RELIEVED FACE
+1F626	FROWNING FACE WITH OPEN MOUTH
+1F627	ANGUISHED FACE
+1F628	FEARFUL FACE
+1F629	WEARY FACE
+1F62A	SLEEPY FACE
+1F62B	TIRED FACE
+1F62C	GRIMACING FACE
+1F62D	LOUDLY CRYING FACE
+1F62E	FACE WITH OPEN MOUTH
+1F62F	HUSHED FACE
+1F630	FACE WITH OPEN MOUTH AND COLD SWEAT
+1F631	FACE SCREAMING IN FEAR
+1F632	ASTONISHED FACE
+1F633	FLUSHED FACE
+1F634	SLEEPING FACE
+1F635	DIZZY FACE
+1F636	FACE WITHOUT MOUTH
+1F637	FACE WITH MEDICAL MASK
+1F638	GRINNING CAT FACE WITH SMILING EYES
+1F639	CAT FACE WITH TEARS OF JOY
+1F63A	SMILING CAT FACE WITH OPEN MOUTH
+1F63B	SMILING CAT FACE WITH HEART-SHAPED EYES
+1F63C	CAT FACE WITH WRY SMILE
+1F63D	KISSING CAT FACE WITH CLOSED EYES
+1F63E	POUTING CAT FACE
+1F63F	CRYING CAT FACE
+1F640	WEARY CAT FACE
+1F641	SLIGHTLY FROWNING FACE
+1F642	SLIGHTLY SMILING FACE
+1F643	UPSIDE-DOWN FACE
+1F644	FACE WITH ROLLING EYES
+1F645	FACE WITH NO GOOD GESTURE
+1F646	FACE WITH OK GESTURE
+1F647	PERSON BOWING DEEPLY
+1F648	SEE-NO-EVIL MONKEY
+1F649	HEAR-NO-EVIL MONKEY
+1F64A	SPEAK-NO-EVIL MONKEY
+1F64B	HAPPY PERSON RAISING ONE HAND
+1F64C	PERSON RAISING BOTH HANDS IN CELEBRATION
+1F64D	PERSON FROWNING
+1F64E	PERSON WITH POUTING FACE
+1F64F	PERSON WITH FOLDED HANDS
+1F650	NORTH WEST POINTING LEAF
+1F651	SOUTH WEST POINTING LEAF
+1F652	NORTH EAST POINTING LEAF
+1F653	SOUTH EAST POINTING LEAF
+1F654	TURNED NORTH WEST POINTING LEAF
+1F655	TURNED SOUTH WEST POINTING LEAF
+1F656	TURNED NORTH EAST POINTING LEAF
+1F657	TURNED SOUTH EAST POINTING LEAF
+1F658	NORTH WEST POINTING VINE LEAF
+1F659	SOUTH WEST POINTING VINE LEAF
+1F65A	NORTH EAST POINTING VINE LEAF
+1F65B	SOUTH EAST POINTING VINE LEAF
+1F65C	HEAVY NORTH WEST POINTING VINE LEAF
+1F65D	HEAVY SOUTH WEST POINTING VINE LEAF
+1F65E	HEAVY NORTH EAST POINTING VINE LEAF
+1F65F	HEAVY SOUTH EAST POINTING VINE LEAF
+1F660	NORTH WEST POINTING BUD
+1F661	SOUTH WEST POINTING BUD
+1F662	NORTH EAST POINTING BUD
+1F663	SOUTH EAST POINTING BUD
+1F664	HEAVY NORTH WEST POINTING BUD
+1F665	HEAVY SOUTH WEST POINTING BUD
+1F666	HEAVY NORTH EAST POINTING BUD
+1F667	HEAVY SOUTH EAST POINTING BUD
+1F668	HOLLOW QUILT SQUARE ORNAMENT
+1F669	HOLLOW QUILT SQUARE ORNAMENT IN BLACK SQUARE
+1F66A	SOLID QUILT SQUARE ORNAMENT
+1F66B	SOLID QUILT SQUARE ORNAMENT IN BLACK SQUARE
+1F66C	LEFTWARDS ROCKET
+1F66D	UPWARDS ROCKET
+1F66E	RIGHTWARDS ROCKET
+1F66F	DOWNWARDS ROCKET
+1F670	SCRIPT LIGATURE ET ORNAMENT
+1F671	HEAVY SCRIPT LIGATURE ET ORNAMENT
+1F672	LIGATURE OPEN ET ORNAMENT
+1F673	HEAVY LIGATURE OPEN ET ORNAMENT
+1F674	HEAVY AMPERSAND ORNAMENT
+1F675	SWASH AMPERSAND ORNAMENT
+1F676	SANS-SERIF HEAVY DOUBLE TURNED COMMA QUOTATION MARK ORNAMENT
+1F677	SANS-SERIF HEAVY DOUBLE COMMA QUOTATION MARK ORNAMENT
+1F678	SANS-SERIF HEAVY LOW DOUBLE COMMA QUOTATION MARK ORNAMENT
+1F679	HEAVY INTERROBANG ORNAMENT
+1F67A	SANS-SERIF INTERROBANG ORNAMENT
+1F67B	HEAVY SANS-SERIF INTERROBANG ORNAMENT
+1F67C	VERY HEAVY SOLIDUS
+1F67D	VERY HEAVY REVERSE SOLIDUS
+1F67E	CHECKER BOARD
+1F67F	REVERSE CHECKER BOARD
+1F680	ROCKET
+1F681	HELICOPTER
+1F682	STEAM LOCOMOTIVE
+1F683	RAILWAY CAR
+1F684	HIGH-SPEED TRAIN
+1F685	HIGH-SPEED TRAIN WITH BULLET NOSE
+1F686	TRAIN
+1F687	METRO
+1F688	LIGHT RAIL
+1F689	STATION
+1F68A	TRAM
+1F68B	TRAM CAR
+1F68C	BUS
+1F68D	ONCOMING BUS
+1F68E	TROLLEYBUS
+1F68F	BUS STOP
+1F690	MINIBUS
+1F691	AMBULANCE
+1F692	FIRE ENGINE
+1F693	POLICE CAR
+1F694	ONCOMING POLICE CAR
+1F695	TAXI
+1F696	ONCOMING TAXI
+1F697	AUTOMOBILE
+1F698	ONCOMING AUTOMOBILE
+1F699	RECREATIONAL VEHICLE
+1F69A	DELIVERY TRUCK
+1F69B	ARTICULATED LORRY
+1F69C	TRACTOR
+1F69D	MONORAIL
+1F69E	MOUNTAIN RAILWAY
+1F69F	SUSPENSION RAILWAY
+1F6A0	MOUNTAIN CABLEWAY
+1F6A1	AERIAL TRAMWAY
+1F6A2	SHIP
+1F6A3	ROWBOAT
+1F6A4	SPEEDBOAT
+1F6A5	HORIZONTAL TRAFFIC LIGHT
+1F6A6	VERTICAL TRAFFIC LIGHT
+1F6A7	CONSTRUCTION SIGN
+1F6A8	POLICE CARS REVOLVING LIGHT
+1F6A9	TRIANGULAR FLAG ON POST
+1F6AA	DOOR
+1F6AB	NO ENTRY SIGN
+1F6AC	SMOKING SYMBOL
+1F6AD	NO SMOKING SYMBOL
+1F6AE	PUT LITTER IN ITS PLACE SYMBOL
+1F6AF	DO NOT LITTER SYMBOL
+1F6B0	POTABLE WATER SYMBOL
+1F6B1	NON-POTABLE WATER SYMBOL
+1F6B2	BICYCLE
+1F6B3	NO BICYCLES
+1F6B4	BICYCLIST
+1F6B5	MOUNTAIN BICYCLIST
+1F6B6	PEDESTRIAN
+1F6B7	NO PEDESTRIANS
+1F6B8	CHILDREN CROSSING
+1F6B9	MENS SYMBOL
+1F6BA	WOMENS SYMBOL
+1F6BB	RESTROOM
+1F6BC	BABY SYMBOL
+1F6BD	TOILET
+1F6BE	WATER CLOSET
+1F6BF	SHOWER
+1F6C0	BATH
+1F6C1	BATHTUB
+1F6C2	PASSPORT CONTROL
+1F6C3	CUSTOMS
+1F6C4	BAGGAGE CLAIM
+1F6C5	LEFT LUGGAGE
+1F6C6	TRIANGLE WITH ROUNDED CORNERS
+1F6C7	PROHIBITED SIGN
+1F6C8	CIRCLED INFORMATION SOURCE
+1F6C9	BOYS SYMBOL
+1F6CA	GIRLS SYMBOL
+1F6CB	COUCH AND LAMP
+1F6CC	SLEEPING ACCOMMODATION
+1F6CD	SHOPPING BAGS
+1F6CE	BELLHOP BELL
+1F6CF	BED
+1F6D0	PLACE OF WORSHIP
+1F6E0	HAMMER AND WRENCH
+1F6E1	SHIELD
+1F6E2	OIL DRUM
+1F6E3	MOTORWAY
+1F6E4	RAILWAY TRACK
+1F6E5	MOTOR BOAT
+1F6E6	UP-POINTING MILITARY AIRPLANE
+1F6E7	UP-POINTING AIRPLANE
+1F6E8	UP-POINTING SMALL AIRPLANE
+1F6E9	SMALL AIRPLANE
+1F6EA	NORTHEAST-POINTING AIRPLANE
+1F6EB	AIRPLANE DEPARTURE
+1F6EC	AIRPLANE ARRIVING
+1F6F0	SATELLITE
+1F6F1	ONCOMING FIRE ENGINE
+1F6F2	DIESEL LOCOMOTIVE
+1F6F3	PASSENGER SHIP
+1F700	ALCHEMICAL SYMBOL FOR QUINTESSENCE
+1F701	ALCHEMICAL SYMBOL FOR AIR
+1F702	ALCHEMICAL SYMBOL FOR FIRE
+1F703	ALCHEMICAL SYMBOL FOR EARTH
+1F704	ALCHEMICAL SYMBOL FOR WATER
+1F705	ALCHEMICAL SYMBOL FOR AQUAFORTIS
+1F706	ALCHEMICAL SYMBOL FOR AQUA REGIA
+1F707	ALCHEMICAL SYMBOL FOR AQUA REGIA-2
+1F708	ALCHEMICAL SYMBOL FOR AQUA VITAE
+1F709	ALCHEMICAL SYMBOL FOR AQUA VITAE-2
+1F70A	ALCHEMICAL SYMBOL FOR VINEGAR
+1F70B	ALCHEMICAL SYMBOL FOR VINEGAR-2
+1F70C	ALCHEMICAL SYMBOL FOR VINEGAR-3
+1F70D	ALCHEMICAL SYMBOL FOR SULFUR
+1F70E	ALCHEMICAL SYMBOL FOR PHILOSOPHERS SULFUR
+1F70F	ALCHEMICAL SYMBOL FOR BLACK SULFUR
+1F710	ALCHEMICAL SYMBOL FOR MERCURY SUBLIMATE
+1F711	ALCHEMICAL SYMBOL FOR MERCURY SUBLIMATE-2
+1F712	ALCHEMICAL SYMBOL FOR MERCURY SUBLIMATE-3
+1F713	ALCHEMICAL SYMBOL FOR CINNABAR
+1F714	ALCHEMICAL SYMBOL FOR SALT
+1F715	ALCHEMICAL SYMBOL FOR NITRE
+1F716	ALCHEMICAL SYMBOL FOR VITRIOL
+1F717	ALCHEMICAL SYMBOL FOR VITRIOL-2
+1F718	ALCHEMICAL SYMBOL FOR ROCK SALT
+1F719	ALCHEMICAL SYMBOL FOR ROCK SALT-2
+1F71A	ALCHEMICAL SYMBOL FOR GOLD
+1F71B	ALCHEMICAL SYMBOL FOR SILVER
+1F71C	ALCHEMICAL SYMBOL FOR IRON ORE
+1F71D	ALCHEMICAL SYMBOL FOR IRON ORE-2
+1F71E	ALCHEMICAL SYMBOL FOR CROCUS OF IRON
+1F71F	ALCHEMICAL SYMBOL FOR REGULUS OF IRON
+1F720	ALCHEMICAL SYMBOL FOR COPPER ORE
+1F721	ALCHEMICAL SYMBOL FOR IRON-COPPER ORE
+1F722	ALCHEMICAL SYMBOL FOR SUBLIMATE OF COPPER
+1F723	ALCHEMICAL SYMBOL FOR CROCUS OF COPPER
+1F724	ALCHEMICAL SYMBOL FOR CROCUS OF COPPER-2
+1F725	ALCHEMICAL SYMBOL FOR COPPER ANTIMONIATE
+1F726	ALCHEMICAL SYMBOL FOR SALT OF COPPER ANTIMONIATE
+1F727	ALCHEMICAL SYMBOL FOR SUBLIMATE OF SALT OF COPPER
+1F728	ALCHEMICAL SYMBOL FOR VERDIGRIS
+1F729	ALCHEMICAL SYMBOL FOR TIN ORE
+1F72A	ALCHEMICAL SYMBOL FOR LEAD ORE
+1F72B	ALCHEMICAL SYMBOL FOR ANTIMONY ORE
+1F72C	ALCHEMICAL SYMBOL FOR SUBLIMATE OF ANTIMONY
+1F72D	ALCHEMICAL SYMBOL FOR SALT OF ANTIMONY
+1F72E	ALCHEMICAL SYMBOL FOR SUBLIMATE OF SALT OF ANTIMONY
+1F72F	ALCHEMICAL SYMBOL FOR VINEGAR OF ANTIMONY
+1F730	ALCHEMICAL SYMBOL FOR REGULUS OF ANTIMONY
+1F731	ALCHEMICAL SYMBOL FOR REGULUS OF ANTIMONY-2
+1F732	ALCHEMICAL SYMBOL FOR REGULUS
+1F733	ALCHEMICAL SYMBOL FOR REGULUS-2
+1F734	ALCHEMICAL SYMBOL FOR REGULUS-3
+1F735	ALCHEMICAL SYMBOL FOR REGULUS-4
+1F736	ALCHEMICAL SYMBOL FOR ALKALI
+1F737	ALCHEMICAL SYMBOL FOR ALKALI-2
+1F738	ALCHEMICAL SYMBOL FOR MARCASITE
+1F739	ALCHEMICAL SYMBOL FOR SAL-AMMONIAC
+1F73A	ALCHEMICAL SYMBOL FOR ARSENIC
+1F73B	ALCHEMICAL SYMBOL FOR REALGAR
+1F73C	ALCHEMICAL SYMBOL FOR REALGAR-2
+1F73D	ALCHEMICAL SYMBOL FOR AURIPIGMENT
+1F73E	ALCHEMICAL SYMBOL FOR BISMUTH ORE
+1F73F	ALCHEMICAL SYMBOL FOR TARTAR
+1F740	ALCHEMICAL SYMBOL FOR TARTAR-2
+1F741	ALCHEMICAL SYMBOL FOR QUICK LIME
+1F742	ALCHEMICAL SYMBOL FOR BORAX
+1F743	ALCHEMICAL SYMBOL FOR BORAX-2
+1F744	ALCHEMICAL SYMBOL FOR BORAX-3
+1F745	ALCHEMICAL SYMBOL FOR ALUM
+1F746	ALCHEMICAL SYMBOL FOR OIL
+1F747	ALCHEMICAL SYMBOL FOR SPIRIT
+1F748	ALCHEMICAL SYMBOL FOR TINCTURE
+1F749	ALCHEMICAL SYMBOL FOR GUM
+1F74A	ALCHEMICAL SYMBOL FOR WAX
+1F74B	ALCHEMICAL SYMBOL FOR POWDER
+1F74C	ALCHEMICAL SYMBOL FOR CALX
+1F74D	ALCHEMICAL SYMBOL FOR TUTTY
+1F74E	ALCHEMICAL SYMBOL FOR CAPUT MORTUUM
+1F74F	ALCHEMICAL SYMBOL FOR SCEPTER OF JOVE
+1F750	ALCHEMICAL SYMBOL FOR CADUCEUS
+1F751	ALCHEMICAL SYMBOL FOR TRIDENT
+1F752	ALCHEMICAL SYMBOL FOR STARRED TRIDENT
+1F753	ALCHEMICAL SYMBOL FOR LODESTONE
+1F754	ALCHEMICAL SYMBOL FOR SOAP
+1F755	ALCHEMICAL SYMBOL FOR URINE
+1F756	ALCHEMICAL SYMBOL FOR HORSE DUNG
+1F757	ALCHEMICAL SYMBOL FOR ASHES
+1F758	ALCHEMICAL SYMBOL FOR POT ASHES
+1F759	ALCHEMICAL SYMBOL FOR BRICK
+1F75A	ALCHEMICAL SYMBOL FOR POWDERED BRICK
+1F75B	ALCHEMICAL SYMBOL FOR AMALGAM
+1F75C	ALCHEMICAL SYMBOL FOR STRATUM SUPER STRATUM
+1F75D	ALCHEMICAL SYMBOL FOR STRATUM SUPER STRATUM-2
+1F75E	ALCHEMICAL SYMBOL FOR SUBLIMATION
+1F75F	ALCHEMICAL SYMBOL FOR PRECIPITATE
+1F760	ALCHEMICAL SYMBOL FOR DISTILL
+1F761	ALCHEMICAL SYMBOL FOR DISSOLVE
+1F762	ALCHEMICAL SYMBOL FOR DISSOLVE-2
+1F763	ALCHEMICAL SYMBOL FOR PURIFY
+1F764	ALCHEMICAL SYMBOL FOR PUTREFACTION
+1F765	ALCHEMICAL SYMBOL FOR CRUCIBLE
+1F766	ALCHEMICAL SYMBOL FOR CRUCIBLE-2
+1F767	ALCHEMICAL SYMBOL FOR CRUCIBLE-3
+1F768	ALCHEMICAL SYMBOL FOR CRUCIBLE-4
+1F769	ALCHEMICAL SYMBOL FOR CRUCIBLE-5
+1F76A	ALCHEMICAL SYMBOL FOR ALEMBIC
+1F76B	ALCHEMICAL SYMBOL FOR BATH OF MARY
+1F76C	ALCHEMICAL SYMBOL FOR BATH OF VAPOURS
+1F76D	ALCHEMICAL SYMBOL FOR RETORT
+1F76E	ALCHEMICAL SYMBOL FOR HOUR
+1F76F	ALCHEMICAL SYMBOL FOR NIGHT
+1F770	ALCHEMICAL SYMBOL FOR DAY-NIGHT
+1F771	ALCHEMICAL SYMBOL FOR MONTH
+1F772	ALCHEMICAL SYMBOL FOR HALF DRAM
+1F773	ALCHEMICAL SYMBOL FOR HALF OUNCE
+1F780	BLACK LEFT-POINTING ISOSCELES RIGHT TRIANGLE
+1F781	BLACK UP-POINTING ISOSCELES RIGHT TRIANGLE
+1F782	BLACK RIGHT-POINTING ISOSCELES RIGHT TRIANGLE
+1F783	BLACK DOWN-POINTING ISOSCELES RIGHT TRIANGLE
+1F784	BLACK SLIGHTLY SMALL CIRCLE
+1F785	MEDIUM BOLD WHITE CIRCLE
+1F786	BOLD WHITE CIRCLE
+1F787	HEAVY WHITE CIRCLE
+1F788	VERY HEAVY WHITE CIRCLE
+1F789	EXTREMELY HEAVY WHITE CIRCLE
+1F78A	WHITE CIRCLE CONTAINING BLACK SMALL CIRCLE
+1F78B	ROUND TARGET
+1F78C	BLACK TINY SQUARE
+1F78D	BLACK SLIGHTLY SMALL SQUARE
+1F78E	LIGHT WHITE SQUARE
+1F78F	MEDIUM WHITE SQUARE
+1F790	BOLD WHITE SQUARE
+1F791	HEAVY WHITE SQUARE
+1F792	VERY HEAVY WHITE SQUARE
+1F793	EXTREMELY HEAVY WHITE SQUARE
+1F794	WHITE SQUARE CONTAINING BLACK VERY SMALL SQUARE
+1F795	WHITE SQUARE CONTAINING BLACK MEDIUM SQUARE
+1F796	SQUARE TARGET
+1F797	BLACK TINY DIAMOND
+1F798	BLACK VERY SMALL DIAMOND
+1F799	BLACK MEDIUM SMALL DIAMOND
+1F79A	WHITE DIAMOND CONTAINING BLACK VERY SMALL DIAMOND
+1F79B	WHITE DIAMOND CONTAINING BLACK MEDIUM DIAMOND
+1F79C	DIAMOND TARGET
+1F79D	BLACK TINY LOZENGE
+1F79E	BLACK VERY SMALL LOZENGE
+1F79F	BLACK MEDIUM SMALL LOZENGE
+1F7A0	WHITE LOZENGE CONTAINING BLACK SMALL LOZENGE
+1F7A1	THIN GREEK CROSS
+1F7A2	LIGHT GREEK CROSS
+1F7A3	MEDIUM GREEK CROSS
+1F7A4	BOLD GREEK CROSS
+1F7A5	VERY BOLD GREEK CROSS
+1F7A6	VERY HEAVY GREEK CROSS
+1F7A7	EXTREMELY HEAVY GREEK CROSS
+1F7A8	THIN SALTIRE
+1F7A9	LIGHT SALTIRE
+1F7AA	MEDIUM SALTIRE
+1F7AB	BOLD SALTIRE
+1F7AC	HEAVY SALTIRE
+1F7AD	VERY HEAVY SALTIRE
+1F7AE	EXTREMELY HEAVY SALTIRE
+1F7AF	LIGHT FIVE SPOKED ASTERISK
+1F7B0	MEDIUM FIVE SPOKED ASTERISK
+1F7B1	BOLD FIVE SPOKED ASTERISK
+1F7B2	HEAVY FIVE SPOKED ASTERISK
+1F7B3	VERY HEAVY FIVE SPOKED ASTERISK
+1F7B4	EXTREMELY HEAVY FIVE SPOKED ASTERISK
+1F7B5	LIGHT SIX SPOKED ASTERISK
+1F7B6	MEDIUM SIX SPOKED ASTERISK
+1F7B7	BOLD SIX SPOKED ASTERISK
+1F7B8	HEAVY SIX SPOKED ASTERISK
+1F7B9	VERY HEAVY SIX SPOKED ASTERISK
+1F7BA	EXTREMELY HEAVY SIX SPOKED ASTERISK
+1F7BB	LIGHT EIGHT SPOKED ASTERISK
+1F7BC	MEDIUM EIGHT SPOKED ASTERISK
+1F7BD	BOLD EIGHT SPOKED ASTERISK
+1F7BE	HEAVY EIGHT SPOKED ASTERISK
+1F7BF	VERY HEAVY EIGHT SPOKED ASTERISK
+1F7C0	LIGHT THREE POINTED BLACK STAR
+1F7C1	MEDIUM THREE POINTED BLACK STAR
+1F7C2	THREE POINTED BLACK STAR
+1F7C3	MEDIUM THREE POINTED PINWHEEL STAR
+1F7C4	LIGHT FOUR POINTED BLACK STAR
+1F7C5	MEDIUM FOUR POINTED BLACK STAR
+1F7C6	FOUR POINTED BLACK STAR
+1F7C7	MEDIUM FOUR POINTED PINWHEEL STAR
+1F7C8	REVERSE LIGHT FOUR POINTED PINWHEEL STAR
+1F7C9	LIGHT FIVE POINTED BLACK STAR
+1F7CA	HEAVY FIVE POINTED BLACK STAR
+1F7CB	MEDIUM SIX POINTED BLACK STAR
+1F7CC	HEAVY SIX POINTED BLACK STAR
+1F7CD	SIX POINTED PINWHEEL STAR
+1F7CE	MEDIUM EIGHT POINTED BLACK STAR
+1F7CF	HEAVY EIGHT POINTED BLACK STAR
+1F7D0	VERY HEAVY EIGHT POINTED BLACK STAR
+1F7D1	HEAVY EIGHT POINTED PINWHEEL STAR
+1F7D2	LIGHT TWELVE POINTED BLACK STAR
+1F7D3	HEAVY TWELVE POINTED BLACK STAR
+1F7D4	HEAVY TWELVE POINTED PINWHEEL STAR
+1F800	LEFTWARDS ARROW WITH SMALL TRIANGLE ARROWHEAD
+1F801	UPWARDS ARROW WITH SMALL TRIANGLE ARROWHEAD
+1F802	RIGHTWARDS ARROW WITH SMALL TRIANGLE ARROWHEAD
+1F803	DOWNWARDS ARROW WITH SMALL TRIANGLE ARROWHEAD
+1F804	LEFTWARDS ARROW WITH MEDIUM TRIANGLE ARROWHEAD
+1F805	UPWARDS ARROW WITH MEDIUM TRIANGLE ARROWHEAD
+1F806	RIGHTWARDS ARROW WITH MEDIUM TRIANGLE ARROWHEAD
+1F807	DOWNWARDS ARROW WITH MEDIUM TRIANGLE ARROWHEAD
+1F808	LEFTWARDS ARROW WITH LARGE TRIANGLE ARROWHEAD
+1F809	UPWARDS ARROW WITH LARGE TRIANGLE ARROWHEAD
+1F80A	RIGHTWARDS ARROW WITH LARGE TRIANGLE ARROWHEAD
+1F80B	DOWNWARDS ARROW WITH LARGE TRIANGLE ARROWHEAD
+1F810	LEFTWARDS ARROW WITH SMALL EQUILATERAL ARROWHEAD
+1F811	UPWARDS ARROW WITH SMALL EQUILATERAL ARROWHEAD
+1F812	RIGHTWARDS ARROW WITH SMALL EQUILATERAL ARROWHEAD
+1F813	DOWNWARDS ARROW WITH SMALL EQUILATERAL ARROWHEAD
+1F814	LEFTWARDS ARROW WITH EQUILATERAL ARROWHEAD
+1F815	UPWARDS ARROW WITH EQUILATERAL ARROWHEAD
+1F816	RIGHTWARDS ARROW WITH EQUILATERAL ARROWHEAD
+1F817	DOWNWARDS ARROW WITH EQUILATERAL ARROWHEAD
+1F818	HEAVY LEFTWARDS ARROW WITH EQUILATERAL ARROWHEAD
+1F819	HEAVY UPWARDS ARROW WITH EQUILATERAL ARROWHEAD
+1F81A	HEAVY RIGHTWARDS ARROW WITH EQUILATERAL ARROWHEAD
+1F81B	HEAVY DOWNWARDS ARROW WITH EQUILATERAL ARROWHEAD
+1F81C	HEAVY LEFTWARDS ARROW WITH LARGE EQUILATERAL ARROWHEAD
+1F81D	HEAVY UPWARDS ARROW WITH LARGE EQUILATERAL ARROWHEAD
+1F81E	HEAVY RIGHTWARDS ARROW WITH LARGE EQUILATERAL ARROWHEAD
+1F81F	HEAVY DOWNWARDS ARROW WITH LARGE EQUILATERAL ARROWHEAD
+1F820	LEFTWARDS TRIANGLE-HEADED ARROW WITH NARROW SHAFT
+1F821	UPWARDS TRIANGLE-HEADED ARROW WITH NARROW SHAFT
+1F822	RIGHTWARDS TRIANGLE-HEADED ARROW WITH NARROW SHAFT
+1F823	DOWNWARDS TRIANGLE-HEADED ARROW WITH NARROW SHAFT
+1F824	LEFTWARDS TRIANGLE-HEADED ARROW WITH MEDIUM SHAFT
+1F825	UPWARDS TRIANGLE-HEADED ARROW WITH MEDIUM SHAFT
+1F826	RIGHTWARDS TRIANGLE-HEADED ARROW WITH MEDIUM SHAFT
+1F827	DOWNWARDS TRIANGLE-HEADED ARROW WITH MEDIUM SHAFT
+1F828	LEFTWARDS TRIANGLE-HEADED ARROW WITH BOLD SHAFT
+1F829	UPWARDS TRIANGLE-HEADED ARROW WITH BOLD SHAFT
+1F82A	RIGHTWARDS TRIANGLE-HEADED ARROW WITH BOLD SHAFT
+1F82B	DOWNWARDS TRIANGLE-HEADED ARROW WITH BOLD SHAFT
+1F82C	LEFTWARDS TRIANGLE-HEADED ARROW WITH HEAVY SHAFT
+1F82D	UPWARDS TRIANGLE-HEADED ARROW WITH HEAVY SHAFT
+1F82E	RIGHTWARDS TRIANGLE-HEADED ARROW WITH HEAVY SHAFT
+1F82F	DOWNWARDS TRIANGLE-HEADED ARROW WITH HEAVY SHAFT
+1F830	LEFTWARDS TRIANGLE-HEADED ARROW WITH VERY HEAVY SHAFT
+1F831	UPWARDS TRIANGLE-HEADED ARROW WITH VERY HEAVY SHAFT
+1F832	RIGHTWARDS TRIANGLE-HEADED ARROW WITH VERY HEAVY SHAFT
+1F833	DOWNWARDS TRIANGLE-HEADED ARROW WITH VERY HEAVY SHAFT
+1F834	LEFTWARDS FINGER-POST ARROW
+1F835	UPWARDS FINGER-POST ARROW
+1F836	RIGHTWARDS FINGER-POST ARROW
+1F837	DOWNWARDS FINGER-POST ARROW
+1F838	LEFTWARDS SQUARED ARROW
+1F839	UPWARDS SQUARED ARROW
+1F83A	RIGHTWARDS SQUARED ARROW
+1F83B	DOWNWARDS SQUARED ARROW
+1F83C	LEFTWARDS COMPRESSED ARROW
+1F83D	UPWARDS COMPRESSED ARROW
+1F83E	RIGHTWARDS COMPRESSED ARROW
+1F83F	DOWNWARDS COMPRESSED ARROW
+1F840	LEFTWARDS HEAVY COMPRESSED ARROW
+1F841	UPWARDS HEAVY COMPRESSED ARROW
+1F842	RIGHTWARDS HEAVY COMPRESSED ARROW
+1F843	DOWNWARDS HEAVY COMPRESSED ARROW
+1F844	LEFTWARDS HEAVY ARROW
+1F845	UPWARDS HEAVY ARROW
+1F846	RIGHTWARDS HEAVY ARROW
+1F847	DOWNWARDS HEAVY ARROW
+1F850	LEFTWARDS SANS-SERIF ARROW
+1F851	UPWARDS SANS-SERIF ARROW
+1F852	RIGHTWARDS SANS-SERIF ARROW
+1F853	DOWNWARDS SANS-SERIF ARROW
+1F854	NORTH WEST SANS-SERIF ARROW
+1F855	NORTH EAST SANS-SERIF ARROW
+1F856	SOUTH EAST SANS-SERIF ARROW
+1F857	SOUTH WEST SANS-SERIF ARROW
+1F858	LEFT RIGHT SANS-SERIF ARROW
+1F859	UP DOWN SANS-SERIF ARROW
+1F860	WIDE-HEADED LEFTWARDS LIGHT BARB ARROW
+1F861	WIDE-HEADED UPWARDS LIGHT BARB ARROW
+1F862	WIDE-HEADED RIGHTWARDS LIGHT BARB ARROW
+1F863	WIDE-HEADED DOWNWARDS LIGHT BARB ARROW
+1F864	WIDE-HEADED NORTH WEST LIGHT BARB ARROW
+1F865	WIDE-HEADED NORTH EAST LIGHT BARB ARROW
+1F866	WIDE-HEADED SOUTH EAST LIGHT BARB ARROW
+1F867	WIDE-HEADED SOUTH WEST LIGHT BARB ARROW
+1F868	WIDE-HEADED LEFTWARDS BARB ARROW
+1F869	WIDE-HEADED UPWARDS BARB ARROW
+1F86A	WIDE-HEADED RIGHTWARDS BARB ARROW
+1F86B	WIDE-HEADED DOWNWARDS BARB ARROW
+1F86C	WIDE-HEADED NORTH WEST BARB ARROW
+1F86D	WIDE-HEADED NORTH EAST BARB ARROW
+1F86E	WIDE-HEADED SOUTH EAST BARB ARROW
+1F86F	WIDE-HEADED SOUTH WEST BARB ARROW
+1F870	WIDE-HEADED LEFTWARDS MEDIUM BARB ARROW
+1F871	WIDE-HEADED UPWARDS MEDIUM BARB ARROW
+1F872	WIDE-HEADED RIGHTWARDS MEDIUM BARB ARROW
+1F873	WIDE-HEADED DOWNWARDS MEDIUM BARB ARROW
+1F874	WIDE-HEADED NORTH WEST MEDIUM BARB ARROW
+1F875	WIDE-HEADED NORTH EAST MEDIUM BARB ARROW
+1F876	WIDE-HEADED SOUTH EAST MEDIUM BARB ARROW
+1F877	WIDE-HEADED SOUTH WEST MEDIUM BARB ARROW
+1F878	WIDE-HEADED LEFTWARDS HEAVY BARB ARROW
+1F879	WIDE-HEADED UPWARDS HEAVY BARB ARROW
+1F87A	WIDE-HEADED RIGHTWARDS HEAVY BARB ARROW
+1F87B	WIDE-HEADED DOWNWARDS HEAVY BARB ARROW
+1F87C	WIDE-HEADED NORTH WEST HEAVY BARB ARROW
+1F87D	WIDE-HEADED NORTH EAST HEAVY BARB ARROW
+1F87E	WIDE-HEADED SOUTH EAST HEAVY BARB ARROW
+1F87F	WIDE-HEADED SOUTH WEST HEAVY BARB ARROW
+1F880	WIDE-HEADED LEFTWARDS VERY HEAVY BARB ARROW
+1F881	WIDE-HEADED UPWARDS VERY HEAVY BARB ARROW
+1F882	WIDE-HEADED RIGHTWARDS VERY HEAVY BARB ARROW
+1F883	WIDE-HEADED DOWNWARDS VERY HEAVY BARB ARROW
+1F884	WIDE-HEADED NORTH WEST VERY HEAVY BARB ARROW
+1F885	WIDE-HEADED NORTH EAST VERY HEAVY BARB ARROW
+1F886	WIDE-HEADED SOUTH EAST VERY HEAVY BARB ARROW
+1F887	WIDE-HEADED SOUTH WEST VERY HEAVY BARB ARROW
+1F890	LEFTWARDS TRIANGLE ARROWHEAD
+1F891	UPWARDS TRIANGLE ARROWHEAD
+1F892	RIGHTWARDS TRIANGLE ARROWHEAD
+1F893	DOWNWARDS TRIANGLE ARROWHEAD
+1F894	LEFTWARDS WHITE ARROW WITHIN TRIANGLE ARROWHEAD
+1F895	UPWARDS WHITE ARROW WITHIN TRIANGLE ARROWHEAD
+1F896	RIGHTWARDS WHITE ARROW WITHIN TRIANGLE ARROWHEAD
+1F897	DOWNWARDS WHITE ARROW WITHIN TRIANGLE ARROWHEAD
+1F898	LEFTWARDS ARROW WITH NOTCHED TAIL
+1F899	UPWARDS ARROW WITH NOTCHED TAIL
+1F89A	RIGHTWARDS ARROW WITH NOTCHED TAIL
+1F89B	DOWNWARDS ARROW WITH NOTCHED TAIL
+1F89C	HEAVY ARROW SHAFT WIDTH ONE
+1F89D	HEAVY ARROW SHAFT WIDTH TWO THIRDS
+1F89E	HEAVY ARROW SHAFT WIDTH ONE HALF
+1F89F	HEAVY ARROW SHAFT WIDTH ONE THIRD
+1F8A0	LEFTWARDS BOTTOM-SHADED WHITE ARROW
+1F8A1	RIGHTWARDS BOTTOM SHADED WHITE ARROW
+1F8A2	LEFTWARDS TOP SHADED WHITE ARROW
+1F8A3	RIGHTWARDS TOP SHADED WHITE ARROW
+1F8A4	LEFTWARDS LEFT-SHADED WHITE ARROW
+1F8A5	RIGHTWARDS RIGHT-SHADED WHITE ARROW
+1F8A6	LEFTWARDS RIGHT-SHADED WHITE ARROW
+1F8A7	RIGHTWARDS LEFT-SHADED WHITE ARROW
+1F8A8	LEFTWARDS BACK-TILTED SHADOWED WHITE ARROW
+1F8A9	RIGHTWARDS BACK-TILTED SHADOWED WHITE ARROW
+1F8AA	LEFTWARDS FRONT-TILTED SHADOWED WHITE ARROW
+1F8AB	RIGHTWARDS FRONT-TILTED SHADOWED WHITE ARROW
+1F8AC	WHITE ARROW SHAFT WIDTH ONE
+1F8AD	WHITE ARROW SHAFT WIDTH TWO THIRDS
+1F910	ZIPPER-MOUTH FACE
+1F911	MONEY-MOUTH FACE
+1F912	FACE WITH THERMOMETER
+1F913	NERD FACE
+1F914	THINKING FACE
+1F915	FACE WITH HEAD-BANDAGE
+1F916	ROBOT FACE
+1F917	HUGGING FACE
+1F918	SIGN OF THE HORNS
+1F980	CRAB
+1F981	LION FACE
+1F982	SCORPION
+1F983	TURKEY
+1F984	UNICORN FACE
+1F9C0	CHEESE WEDGE
+E0001	LANGUAGE TAG
+E0020	TAG SPACE
+E0021	TAG EXCLAMATION MARK
+E0022	TAG QUOTATION MARK
+E0023	TAG NUMBER SIGN
+E0024	TAG DOLLAR SIGN
+E0025	TAG PERCENT SIGN
+E0026	TAG AMPERSAND
+E0027	TAG APOSTROPHE
+E0028	TAG LEFT PARENTHESIS
+E0029	TAG RIGHT PARENTHESIS
+E002A	TAG ASTERISK
+E002B	TAG PLUS SIGN
+E002C	TAG COMMA
+E002D	TAG HYPHEN-MINUS
+E002E	TAG FULL STOP
+E002F	TAG SOLIDUS
+E0030	TAG DIGIT ZERO
+E0031	TAG DIGIT ONE
+E0032	TAG DIGIT TWO
+E0033	TAG DIGIT THREE
+E0034	TAG DIGIT FOUR
+E0035	TAG DIGIT FIVE
+E0036	TAG DIGIT SIX
+E0037	TAG DIGIT SEVEN
+E0038	TAG DIGIT EIGHT
+E0039	TAG DIGIT NINE
+E003A	TAG COLON
+E003B	TAG SEMICOLON
+E003C	TAG LESS-THAN SIGN
+E003D	TAG EQUALS SIGN
+E003E	TAG GREATER-THAN SIGN
+E003F	TAG QUESTION MARK
+E0040	TAG COMMERCIAL AT
+E0041	TAG LATIN CAPITAL LETTER A
+E0042	TAG LATIN CAPITAL LETTER B
+E0043	TAG LATIN CAPITAL LETTER C
+E0044	TAG LATIN CAPITAL LETTER D
+E0045	TAG LATIN CAPITAL LETTER E
+E0046	TAG LATIN CAPITAL LETTER F
+E0047	TAG LATIN CAPITAL LETTER G
+E0048	TAG LATIN CAPITAL LETTER H
+E0049	TAG LATIN CAPITAL LETTER I
+E004A	TAG LATIN CAPITAL LETTER J
+E004B	TAG LATIN CAPITAL LETTER K
+E004C	TAG LATIN CAPITAL LETTER L
+E004D	TAG LATIN CAPITAL LETTER M
+E004E	TAG LATIN CAPITAL LETTER N
+E004F	TAG LATIN CAPITAL LETTER O
+E0050	TAG LATIN CAPITAL LETTER P
+E0051	TAG LATIN CAPITAL LETTER Q
+E0052	TAG LATIN CAPITAL LETTER R
+E0053	TAG LATIN CAPITAL LETTER S
+E0054	TAG LATIN CAPITAL LETTER T
+E0055	TAG LATIN CAPITAL LETTER U
+E0056	TAG LATIN CAPITAL LETTER V
+E0057	TAG LATIN CAPITAL LETTER W
+E0058	TAG LATIN CAPITAL LETTER X
+E0059	TAG LATIN CAPITAL LETTER Y
+E005A	TAG LATIN CAPITAL LETTER Z
+E005B	TAG LEFT SQUARE BRACKET
+E005C	TAG REVERSE SOLIDUS
+E005D	TAG RIGHT SQUARE BRACKET
+E005E	TAG CIRCUMFLEX ACCENT
+E005F	TAG LOW LINE
+E0060	TAG GRAVE ACCENT
+E0061	TAG LATIN SMALL LETTER A
+E0062	TAG LATIN SMALL LETTER B
+E0063	TAG LATIN SMALL LETTER C
+E0064	TAG LATIN SMALL LETTER D
+E0065	TAG LATIN SMALL LETTER E
+E0066	TAG LATIN SMALL LETTER F
+E0067	TAG LATIN SMALL LETTER G
+E0068	TAG LATIN SMALL LETTER H
+E0069	TAG LATIN SMALL LETTER I
+E006A	TAG LATIN SMALL LETTER J
+E006B	TAG LATIN SMALL LETTER K
+E006C	TAG LATIN SMALL LETTER L
+E006D	TAG LATIN SMALL LETTER M
+E006E	TAG LATIN SMALL LETTER N
+E006F	TAG LATIN SMALL LETTER O
+E0070	TAG LATIN SMALL LETTER P
+E0071	TAG LATIN SMALL LETTER Q
+E0072	TAG LATIN SMALL LETTER R
+E0073	TAG LATIN SMALL LETTER S
+E0074	TAG LATIN SMALL LETTER T
+E0075	TAG LATIN SMALL LETTER U
+E0076	TAG LATIN SMALL LETTER V
+E0077	TAG LATIN SMALL LETTER W
+E0078	TAG LATIN SMALL LETTER X
+E0079	TAG LATIN SMALL LETTER Y
+E007A	TAG LATIN SMALL LETTER Z
+E007B	TAG LEFT CURLY BRACKET
+E007C	TAG VERTICAL LINE
+E007D	TAG RIGHT CURLY BRACKET
+E007E	TAG TILDE
+E007F	CANCEL TAG
+E0100	VARIATION SELECTOR-17
+E0100	VS17
+E0101	VARIATION SELECTOR-18
+E0101	VS18
+E0102	VARIATION SELECTOR-19
+E0102	VS19
+E0103	VARIATION SELECTOR-20
+E0103	VS20
+E0104	VARIATION SELECTOR-21
+E0104	VS21
+E0105	VARIATION SELECTOR-22
+E0105	VS22
+E0106	VARIATION SELECTOR-23
+E0106	VS23
+E0107	VARIATION SELECTOR-24
+E0107	VS24
+E0108	VARIATION SELECTOR-25
+E0108	VS25
+E0109	VARIATION SELECTOR-26
+E0109	VS26
+E010A	VARIATION SELECTOR-27
+E010A	VS27
+E010B	VARIATION SELECTOR-28
+E010B	VS28
+E010C	VARIATION SELECTOR-29
+E010C	VS29
+E010D	VARIATION SELECTOR-30
+E010D	VS30
+E010E	VARIATION SELECTOR-31
+E010E	VS31
+E010F	VARIATION SELECTOR-32
+E010F	VS32
+E0110	VARIATION SELECTOR-33
+E0110	VS33
+E0111	VARIATION SELECTOR-34
+E0111	VS34
+E0112	VARIATION SELECTOR-35
+E0112	VS35
+E0113	VARIATION SELECTOR-36
+E0113	VS36
+E0114	VARIATION SELECTOR-37
+E0114	VS37
+E0115	VARIATION SELECTOR-38
+E0115	VS38
+E0116	VARIATION SELECTOR-39
+E0116	VS39
+E0117	VARIATION SELECTOR-40
+E0117	VS40
+E0118	VARIATION SELECTOR-41
+E0118	VS41
+E0119	VARIATION SELECTOR-42
+E0119	VS42
+E011A	VARIATION SELECTOR-43
+E011A	VS43
+E011B	VARIATION SELECTOR-44
+E011B	VS44
+E011C	VARIATION SELECTOR-45
+E011C	VS45
+E011D	VARIATION SELECTOR-46
+E011D	VS46
+E011E	VARIATION SELECTOR-47
+E011E	VS47
+E011F	VARIATION SELECTOR-48
+E011F	VS48
+E0120	VARIATION SELECTOR-49
+E0120	VS49
+E0121	VARIATION SELECTOR-50
+E0121	VS50
+E0122	VARIATION SELECTOR-51
+E0122	VS51
+E0123	VARIATION SELECTOR-52
+E0123	VS52
+E0124	VARIATION SELECTOR-53
+E0124	VS53
+E0125	VARIATION SELECTOR-54
+E0125	VS54
+E0126	VARIATION SELECTOR-55
+E0126	VS55
+E0127	VARIATION SELECTOR-56
+E0127	VS56
+E0128	VARIATION SELECTOR-57
+E0128	VS57
+E0129	VARIATION SELECTOR-58
+E0129	VS58
+E012A	VARIATION SELECTOR-59
+E012A	VS59
+E012B	VARIATION SELECTOR-60
+E012B	VS60
+E012C	VARIATION SELECTOR-61
+E012C	VS61
+E012D	VARIATION SELECTOR-62
+E012D	VS62
+E012E	VARIATION SELECTOR-63
+E012E	VS63
+E012F	VARIATION SELECTOR-64
+E012F	VS64
+E0130	VARIATION SELECTOR-65
+E0130	VS65
+E0131	VARIATION SELECTOR-66
+E0131	VS66
+E0132	VARIATION SELECTOR-67
+E0132	VS67
+E0133	VARIATION SELECTOR-68
+E0133	VS68
+E0134	VARIATION SELECTOR-69
+E0134	VS69
+E0135	VARIATION SELECTOR-70
+E0135	VS70
+E0136	VARIATION SELECTOR-71
+E0136	VS71
+E0137	VARIATION SELECTOR-72
+E0137	VS72
+E0138	VARIATION SELECTOR-73
+E0138	VS73
+E0139	VARIATION SELECTOR-74
+E0139	VS74
+E013A	VARIATION SELECTOR-75
+E013A	VS75
+E013B	VARIATION SELECTOR-76
+E013B	VS76
+E013C	VARIATION SELECTOR-77
+E013C	VS77
+E013D	VARIATION SELECTOR-78
+E013D	VS78
+E013E	VARIATION SELECTOR-79
+E013E	VS79
+E013F	VARIATION SELECTOR-80
+E013F	VS80
+E0140	VARIATION SELECTOR-81
+E0140	VS81
+E0141	VARIATION SELECTOR-82
+E0141	VS82
+E0142	VARIATION SELECTOR-83
+E0142	VS83
+E0143	VARIATION SELECTOR-84
+E0143	VS84
+E0144	VARIATION SELECTOR-85
+E0144	VS85
+E0145	VARIATION SELECTOR-86
+E0145	VS86
+E0146	VARIATION SELECTOR-87
+E0146	VS87
+E0147	VARIATION SELECTOR-88
+E0147	VS88
+E0148	VARIATION SELECTOR-89
+E0148	VS89
+E0149	VARIATION SELECTOR-90
+E0149	VS90
+E014A	VARIATION SELECTOR-91
+E014A	VS91
+E014B	VARIATION SELECTOR-92
+E014B	VS92
+E014C	VARIATION SELECTOR-93
+E014C	VS93
+E014D	VARIATION SELECTOR-94
+E014D	VS94
+E014E	VARIATION SELECTOR-95
+E014E	VS95
+E014F	VARIATION SELECTOR-96
+E014F	VS96
+E0150	VARIATION SELECTOR-97
+E0150	VS97
+E0151	VARIATION SELECTOR-98
+E0151	VS98
+E0152	VARIATION SELECTOR-99
+E0152	VS99
+E0153	VARIATION SELECTOR-100
+E0153	VS100
+E0154	VARIATION SELECTOR-101
+E0154	VS101
+E0155	VARIATION SELECTOR-102
+E0155	VS102
+E0156	VARIATION SELECTOR-103
+E0156	VS103
+E0157	VARIATION SELECTOR-104
+E0157	VS104
+E0158	VARIATION SELECTOR-105
+E0158	VS105
+E0159	VARIATION SELECTOR-106
+E0159	VS106
+E015A	VARIATION SELECTOR-107
+E015A	VS107
+E015B	VARIATION SELECTOR-108
+E015B	VS108
+E015C	VARIATION SELECTOR-109
+E015C	VS109
+E015D	VARIATION SELECTOR-110
+E015D	VS110
+E015E	VARIATION SELECTOR-111
+E015E	VS111
+E015F	VARIATION SELECTOR-112
+E015F	VS112
+E0160	VARIATION SELECTOR-113
+E0160	VS113
+E0161	VARIATION SELECTOR-114
+E0161	VS114
+E0162	VARIATION SELECTOR-115
+E0162	VS115
+E0163	VARIATION SELECTOR-116
+E0163	VS116
+E0164	VARIATION SELECTOR-117
+E0164	VS117
+E0165	VARIATION SELECTOR-118
+E0165	VS118
+E0166	VARIATION SELECTOR-119
+E0166	VS119
+E0167	VARIATION SELECTOR-120
+E0167	VS120
+E0168	VARIATION SELECTOR-121
+E0168	VS121
+E0169	VARIATION SELECTOR-122
+E0169	VS122
+E016A	VARIATION SELECTOR-123
+E016A	VS123
+E016B	VARIATION SELECTOR-124
+E016B	VS124
+E016C	VARIATION SELECTOR-125
+E016C	VS125
+E016D	VARIATION SELECTOR-126
+E016D	VS126
+E016E	VARIATION SELECTOR-127
+E016E	VS127
+E016F	VARIATION SELECTOR-128
+E016F	VS128
+E0170	VARIATION SELECTOR-129
+E0170	VS129
+E0171	VARIATION SELECTOR-130
+E0171	VS130
+E0172	VARIATION SELECTOR-131
+E0172	VS131
+E0173	VARIATION SELECTOR-132
+E0173	VS132
+E0174	VARIATION SELECTOR-133
+E0174	VS133
+E0175	VARIATION SELECTOR-134
+E0175	VS134
+E0176	VARIATION SELECTOR-135
+E0176	VS135
+E0177	VARIATION SELECTOR-136
+E0177	VS136
+E0178	VARIATION SELECTOR-137
+E0178	VS137
+E0179	VARIATION SELECTOR-138
+E0179	VS138
+E017A	VARIATION SELECTOR-139
+E017A	VS139
+E017B	VARIATION SELECTOR-140
+E017B	VS140
+E017C	VARIATION SELECTOR-141
+E017C	VS141
+E017D	VARIATION SELECTOR-142
+E017D	VS142
+E017E	VARIATION SELECTOR-143
+E017E	VS143
+E017F	VARIATION SELECTOR-144
+E017F	VS144
+E0180	VARIATION SELECTOR-145
+E0180	VS145
+E0181	VARIATION SELECTOR-146
+E0181	VS146
+E0182	VARIATION SELECTOR-147
+E0182	VS147
+E0183	VARIATION SELECTOR-148
+E0183	VS148
+E0184	VARIATION SELECTOR-149
+E0184	VS149
+E0185	VARIATION SELECTOR-150
+E0185	VS150
+E0186	VARIATION SELECTOR-151
+E0186	VS151
+E0187	VARIATION SELECTOR-152
+E0187	VS152
+E0188	VARIATION SELECTOR-153
+E0188	VS153
+E0189	VARIATION SELECTOR-154
+E0189	VS154
+E018A	VARIATION SELECTOR-155
+E018A	VS155
+E018B	VARIATION SELECTOR-156
+E018B	VS156
+E018C	VARIATION SELECTOR-157
+E018C	VS157
+E018D	VARIATION SELECTOR-158
+E018D	VS158
+E018E	VARIATION SELECTOR-159
+E018E	VS159
+E018F	VARIATION SELECTOR-160
+E018F	VS160
+E0190	VARIATION SELECTOR-161
+E0190	VS161
+E0191	VARIATION SELECTOR-162
+E0191	VS162
+E0192	VARIATION SELECTOR-163
+E0192	VS163
+E0193	VARIATION SELECTOR-164
+E0193	VS164
+E0194	VARIATION SELECTOR-165
+E0194	VS165
+E0195	VARIATION SELECTOR-166
+E0195	VS166
+E0196	VARIATION SELECTOR-167
+E0196	VS167
+E0197	VARIATION SELECTOR-168
+E0197	VS168
+E0198	VARIATION SELECTOR-169
+E0198	VS169
+E0199	VARIATION SELECTOR-170
+E0199	VS170
+E019A	VARIATION SELECTOR-171
+E019A	VS171
+E019B	VARIATION SELECTOR-172
+E019B	VS172
+E019C	VARIATION SELECTOR-173
+E019C	VS173
+E019D	VARIATION SELECTOR-174
+E019D	VS174
+E019E	VARIATION SELECTOR-175
+E019E	VS175
+E019F	VARIATION SELECTOR-176
+E019F	VS176
+E01A0	VARIATION SELECTOR-177
+E01A0	VS177
+E01A1	VARIATION SELECTOR-178
+E01A1	VS178
+E01A2	VARIATION SELECTOR-179
+E01A2	VS179
+E01A3	VARIATION SELECTOR-180
+E01A3	VS180
+E01A4	VARIATION SELECTOR-181
+E01A4	VS181
+E01A5	VARIATION SELECTOR-182
+E01A5	VS182
+E01A6	VARIATION SELECTOR-183
+E01A6	VS183
+E01A7	VARIATION SELECTOR-184
+E01A7	VS184
+E01A8	VARIATION SELECTOR-185
+E01A8	VS185
+E01A9	VARIATION SELECTOR-186
+E01A9	VS186
+E01AA	VARIATION SELECTOR-187
+E01AA	VS187
+E01AB	VARIATION SELECTOR-188
+E01AB	VS188
+E01AC	VARIATION SELECTOR-189
+E01AC	VS189
+E01AD	VARIATION SELECTOR-190
+E01AD	VS190
+E01AE	VARIATION SELECTOR-191
+E01AE	VS191
+E01AF	VARIATION SELECTOR-192
+E01AF	VS192
+E01B0	VARIATION SELECTOR-193
+E01B0	VS193
+E01B1	VARIATION SELECTOR-194
+E01B1	VS194
+E01B2	VARIATION SELECTOR-195
+E01B2	VS195
+E01B3	VARIATION SELECTOR-196
+E01B3	VS196
+E01B4	VARIATION SELECTOR-197
+E01B4	VS197
+E01B5	VARIATION SELECTOR-198
+E01B5	VS198
+E01B6	VARIATION SELECTOR-199
+E01B6	VS199
+E01B7	VARIATION SELECTOR-200
+E01B7	VS200
+E01B8	VARIATION SELECTOR-201
+E01B8	VS201
+E01B9	VARIATION SELECTOR-202
+E01B9	VS202
+E01BA	VARIATION SELECTOR-203
+E01BA	VS203
+E01BB	VARIATION SELECTOR-204
+E01BB	VS204
+E01BC	VARIATION SELECTOR-205
+E01BC	VS205
+E01BD	VARIATION SELECTOR-206
+E01BD	VS206
+E01BE	VARIATION SELECTOR-207
+E01BE	VS207
+E01BF	VARIATION SELECTOR-208
+E01BF	VS208
+E01C0	VARIATION SELECTOR-209
+E01C0	VS209
+E01C1	VARIATION SELECTOR-210
+E01C1	VS210
+E01C2	VARIATION SELECTOR-211
+E01C2	VS211
+E01C3	VARIATION SELECTOR-212
+E01C3	VS212
+E01C4	VARIATION SELECTOR-213
+E01C4	VS213
+E01C5	VARIATION SELECTOR-214
+E01C5	VS214
+E01C6	VARIATION SELECTOR-215
+E01C6	VS215
+E01C7	VARIATION SELECTOR-216
+E01C7	VS216
+E01C8	VARIATION SELECTOR-217
+E01C8	VS217
+E01C9	VARIATION SELECTOR-218
+E01C9	VS218
+E01CA	VARIATION SELECTOR-219
+E01CA	VS219
+E01CB	VARIATION SELECTOR-220
+E01CB	VS220
+E01CC	VARIATION SELECTOR-221
+E01CC	VS221
+E01CD	VARIATION SELECTOR-222
+E01CD	VS222
+E01CE	VARIATION SELECTOR-223
+E01CE	VS223
+E01CF	VARIATION SELECTOR-224
+E01CF	VS224
+E01D0	VARIATION SELECTOR-225
+E01D0	VS225
+E01D1	VARIATION SELECTOR-226
+E01D1	VS226
+E01D2	VARIATION SELECTOR-227
+E01D2	VS227
+E01D3	VARIATION SELECTOR-228
+E01D3	VS228
+E01D4	VARIATION SELECTOR-229
+E01D4	VS229
+E01D5	VARIATION SELECTOR-230
+E01D5	VS230
+E01D6	VARIATION SELECTOR-231
+E01D6	VS231
+E01D7	VARIATION SELECTOR-232
+E01D7	VS232
+E01D8	VARIATION SELECTOR-233
+E01D8	VS233
+E01D9	VARIATION SELECTOR-234
+E01D9	VS234
+E01DA	VARIATION SELECTOR-235
+E01DA	VS235
+E01DB	VARIATION SELECTOR-236
+E01DB	VS236
+E01DC	VARIATION SELECTOR-237
+E01DC	VS237
+E01DD	VARIATION SELECTOR-238
+E01DD	VS238
+E01DE	VARIATION SELECTOR-239
+E01DE	VS239
+E01DF	VARIATION SELECTOR-240
+E01DF	VS240
+E01E0	VARIATION SELECTOR-241
+E01E0	VS241
+E01E1	VARIATION SELECTOR-242
+E01E1	VS242
+E01E2	VARIATION SELECTOR-243
+E01E2	VS243
+E01E3	VARIATION SELECTOR-244
+E01E3	VS244
+E01E4	VARIATION SELECTOR-245
+E01E4	VS245
+E01E5	VARIATION SELECTOR-246
+E01E5	VS246
+E01E6	VARIATION SELECTOR-247
+E01E6	VS247
+E01E7	VARIATION SELECTOR-248
+E01E7	VS248
+E01E8	VARIATION SELECTOR-249
+E01E8	VS249
+E01E9	VARIATION SELECTOR-250
+E01E9	VS250
+E01EA	VARIATION SELECTOR-251
+E01EA	VS251
+E01EB	VARIATION SELECTOR-252
+E01EB	VS252
+E01EC	VARIATION SELECTOR-253
+E01EC	VS253
+E01ED	VARIATION SELECTOR-254
+E01ED	VS254
+E01EE	VARIATION SELECTOR-255
+E01EE	VS255
+E01EF	VARIATION SELECTOR-256
+E01EF	VS256
+0100 0300	LATIN CAPITAL LETTER A WITH MACRON AND GRAVE
+0101 0300	LATIN SMALL LETTER A WITH MACRON AND GRAVE
+0045 0329	LATIN CAPITAL LETTER E WITH VERTICAL LINE BELOW
+0065 0329	LATIN SMALL LETTER E WITH VERTICAL LINE BELOW
+00C8 0329	LATIN CAPITAL LETTER E WITH VERTICAL LINE BELOW AND GRAVE
+00E8 0329	LATIN SMALL LETTER E WITH VERTICAL LINE BELOW AND GRAVE
+00C9 0329	LATIN CAPITAL LETTER E WITH VERTICAL LINE BELOW AND ACUTE
+00E9 0329	LATIN SMALL LETTER E WITH VERTICAL LINE BELOW AND ACUTE
+00CA 0304	LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND MACRON
+00EA 0304	LATIN SMALL LETTER E WITH CIRCUMFLEX AND MACRON
+00CA 030C	LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND CARON
+00EA 030C	LATIN SMALL LETTER E WITH CIRCUMFLEX AND CARON
+012A 0300	LATIN CAPITAL LETTER I WITH MACRON AND GRAVE
+012B 0300	LATIN SMALL LETTER I WITH MACRON AND GRAVE
+0069 0307 0301	LATIN SMALL LETTER I WITH DOT ABOVE AND ACUTE
+006E 0360 0067	LATIN SMALL LETTER NG WITH TILDE ABOVE
+004F 0329	LATIN CAPITAL LETTER O WITH VERTICAL LINE BELOW
+006F 0329	LATIN SMALL LETTER O WITH VERTICAL LINE BELOW
+00D2 0329	LATIN CAPITAL LETTER O WITH VERTICAL LINE BELOW AND GRAVE
+00F2 0329	LATIN SMALL LETTER O WITH VERTICAL LINE BELOW AND GRAVE
+00D3 0329	LATIN CAPITAL LETTER O WITH VERTICAL LINE BELOW AND ACUTE
+00F3 0329	LATIN SMALL LETTER O WITH VERTICAL LINE BELOW AND ACUTE
+0053 0329	LATIN CAPITAL LETTER S WITH VERTICAL LINE BELOW
+0073 0329	LATIN SMALL LETTER S WITH VERTICAL LINE BELOW
+016A 0300	LATIN CAPITAL LETTER U WITH MACRON AND GRAVE
+016B 0300	LATIN SMALL LETTER U WITH MACRON AND GRAVE
+0104 0301	LATIN CAPITAL LETTER A WITH OGONEK AND ACUTE
+0105 0301	LATIN SMALL LETTER A WITH OGONEK AND ACUTE
+0104 0303	LATIN CAPITAL LETTER A WITH OGONEK AND TILDE
+0105 0303	LATIN SMALL LETTER A WITH OGONEK AND TILDE
+0118 0301	LATIN CAPITAL LETTER E WITH OGONEK AND ACUTE
+0119 0301	LATIN SMALL LETTER E WITH OGONEK AND ACUTE
+0118 0303	LATIN CAPITAL LETTER E WITH OGONEK AND TILDE
+0119 0303	LATIN SMALL LETTER E WITH OGONEK AND TILDE
+0116 0301	LATIN CAPITAL LETTER E WITH DOT ABOVE AND ACUTE
+0117 0301	LATIN SMALL LETTER E WITH DOT ABOVE AND ACUTE
+0116 0303	LATIN CAPITAL LETTER E WITH DOT ABOVE AND TILDE
+0117 0303	LATIN SMALL LETTER E WITH DOT ABOVE AND TILDE
+0069 0307 0300	LATIN SMALL LETTER I WITH DOT ABOVE AND GRAVE
+0069 0307 0303	LATIN SMALL LETTER I WITH DOT ABOVE AND TILDE
+012E 0301	LATIN CAPITAL LETTER I WITH OGONEK AND ACUTE
+012F 0307 0301	LATIN SMALL LETTER I WITH OGONEK AND DOT ABOVE AND ACUTE
+012E 0303	LATIN CAPITAL LETTER I WITH OGONEK AND TILDE
+012F 0307 0303	LATIN SMALL LETTER I WITH OGONEK AND DOT ABOVE AND TILDE
+004A 0303	LATIN CAPITAL LETTER J WITH TILDE
+006A 0307 0303	LATIN SMALL LETTER J WITH DOT ABOVE AND TILDE
+004C 0303	LATIN CAPITAL LETTER L WITH TILDE
+006C 0303	LATIN SMALL LETTER L WITH TILDE
+004D 0303	LATIN CAPITAL LETTER M WITH TILDE
+006D 0303	LATIN SMALL LETTER M WITH TILDE
+0052 0303	LATIN CAPITAL LETTER R WITH TILDE
+0072 0303	LATIN SMALL LETTER R WITH TILDE
+0172 0301	LATIN CAPITAL LETTER U WITH OGONEK AND ACUTE
+0173 0301	LATIN SMALL LETTER U WITH OGONEK AND ACUTE
+0172 0303	LATIN CAPITAL LETTER U WITH OGONEK AND TILDE
+0173 0303	LATIN SMALL LETTER U WITH OGONEK AND TILDE
+016A 0301	LATIN CAPITAL LETTER U WITH MACRON AND ACUTE
+016B 0301	LATIN SMALL LETTER U WITH MACRON AND ACUTE
+016A 0303	LATIN CAPITAL LETTER U WITH MACRON AND TILDE
+016B 0303	LATIN SMALL LETTER U WITH MACRON AND TILDE
+00E6 0300	LATIN SMALL LETTER AE WITH GRAVE
+0254 0300	LATIN SMALL LETTER OPEN O WITH GRAVE
+0254 0301	LATIN SMALL LETTER OPEN O WITH ACUTE
+028C 0300	LATIN SMALL LETTER TURNED V WITH GRAVE
+028C 0301	LATIN SMALL LETTER TURNED V WITH ACUTE
+0259 0300	LATIN SMALL LETTER SCHWA WITH GRAVE
+0259 0301	LATIN SMALL LETTER SCHWA WITH ACUTE
+025A 0300	LATIN SMALL LETTER HOOKED SCHWA WITH GRAVE
+025A 0301	LATIN SMALL LETTER HOOKED SCHWA WITH ACUTE
+0626 0627	ARABIC SEQUENCE YEH WITH HAMZA ABOVE WITH ALEF
+0626 0648	ARABIC SEQUENCE YEH WITH HAMZA ABOVE WITH WAW
+0626 0649	ARABIC SEQUENCE YEH WITH HAMZA ABOVE WITH ALEF MAKSURA
+0626 06C6	ARABIC SEQUENCE YEH WITH HAMZA ABOVE WITH OE
+0626 06C7	ARABIC SEQUENCE YEH WITH HAMZA ABOVE WITH U
+0626 06C8	ARABIC SEQUENCE YEH WITH HAMZA ABOVE WITH YU
+0626 06D0	ARABIC SEQUENCE YEH WITH HAMZA ABOVE WITH E
+0626 06D5	ARABIC SEQUENCE YEH WITH HAMZA ABOVE WITH AE
+0646 06A9	ARABIC SEQUENCE NOON WITH KEHEH
+0995 09CD 09B7	BENGALI LETTER KHINYA
+0B95 0BCD	TAMIL CONSONANT K
+0B99 0BCD	TAMIL CONSONANT NG
+0B9A 0BCD	TAMIL CONSONANT C
+0B9E 0BCD	TAMIL CONSONANT NY
+0B9F 0BCD	TAMIL CONSONANT TT
+0BA3 0BCD	TAMIL CONSONANT NN
+0BA4 0BCD	TAMIL CONSONANT T
+0BA8 0BCD	TAMIL CONSONANT N
+0BAA 0BCD	TAMIL CONSONANT P
+0BAE 0BCD	TAMIL CONSONANT M
+0BAF 0BCD	TAMIL CONSONANT Y
+0BB0 0BCD	TAMIL CONSONANT R
+0BB2 0BCD	TAMIL CONSONANT L
+0BB5 0BCD	TAMIL CONSONANT V
+0BB4 0BCD	TAMIL CONSONANT LLL
+0BB3 0BCD	TAMIL CONSONANT LL
+0BB1 0BCD	TAMIL CONSONANT RR
+0BA9 0BCD	TAMIL CONSONANT NNN
+0B9C 0BCD	TAMIL CONSONANT J
+0BB6 0BCD	TAMIL CONSONANT SH
+0BB7 0BCD	TAMIL CONSONANT SS
+0BB8 0BCD	TAMIL CONSONANT S
+0BB9 0BCD	TAMIL CONSONANT H
+0B95 0BCD 0BB7 0BCD	TAMIL CONSONANT KSS
+0B95 0BBE	TAMIL SYLLABLE KAA
+0B95 0BBF	TAMIL SYLLABLE KI
+0B95 0BC0	TAMIL SYLLABLE KII
+0B95 0BC1	TAMIL SYLLABLE KU
+0B95 0BC2	TAMIL SYLLABLE KUU
+0B95 0BC6	TAMIL SYLLABLE KE
+0B95 0BC7	TAMIL SYLLABLE KEE
+0B95 0BC8	TAMIL SYLLABLE KAI
+0B95 0BCA	TAMIL SYLLABLE KO
+0B95 0BCB	TAMIL SYLLABLE KOO
+0B95 0BCC	TAMIL SYLLABLE KAU
+0B99 0BBE	TAMIL SYLLABLE NGAA
+0B99 0BBF	TAMIL SYLLABLE NGI
+0B99 0BC0	TAMIL SYLLABLE NGII
+0B99 0BC1	TAMIL SYLLABLE NGU
+0B99 0BC2	TAMIL SYLLABLE NGUU
+0B99 0BC6	TAMIL SYLLABLE NGE
+0B99 0BC7	TAMIL SYLLABLE NGEE
+0B99 0BC8	TAMIL SYLLABLE NGAI
+0B99 0BCA	TAMIL SYLLABLE NGO
+0B99 0BCB	TAMIL SYLLABLE NGOO
+0B99 0BCC	TAMIL SYLLABLE NGAU
+0B9A 0BBE	TAMIL SYLLABLE CAA
+0B9A 0BBF	TAMIL SYLLABLE CI
+0B9A 0BC0	TAMIL SYLLABLE CII
+0B9A 0BC1	TAMIL SYLLABLE CU
+0B9A 0BC2	TAMIL SYLLABLE CUU
+0B9A 0BC6	TAMIL SYLLABLE CE
+0B9A 0BC7	TAMIL SYLLABLE CEE
+0B9A 0BC8	TAMIL SYLLABLE CAI
+0B9A 0BCA	TAMIL SYLLABLE CO
+0B9A 0BCB	TAMIL SYLLABLE COO
+0B9A 0BCC	TAMIL SYLLABLE CAU
+0B9E 0BBE	TAMIL SYLLABLE NYAA
+0B9E 0BBF	TAMIL SYLLABLE NYI
+0B9E 0BC0	TAMIL SYLLABLE NYII
+0B9E 0BC1	TAMIL SYLLABLE NYU
+0B9E 0BC2	TAMIL SYLLABLE NYUU
+0B9E 0BC6	TAMIL SYLLABLE NYE
+0B9E 0BC7	TAMIL SYLLABLE NYEE
+0B9E 0BC8	TAMIL SYLLABLE NYAI
+0B9E 0BCA	TAMIL SYLLABLE NYO
+0B9E 0BCB	TAMIL SYLLABLE NYOO
+0B9E 0BCC	TAMIL SYLLABLE NYAU
+0B9F 0BBE	TAMIL SYLLABLE TTAA
+0B9F 0BBF	TAMIL SYLLABLE TTI
+0B9F 0BC0	TAMIL SYLLABLE TTII
+0B9F 0BC1	TAMIL SYLLABLE TTU
+0B9F 0BC2	TAMIL SYLLABLE TTUU
+0B9F 0BC6	TAMIL SYLLABLE TTE
+0B9F 0BC7	TAMIL SYLLABLE TTEE
+0B9F 0BC8	TAMIL SYLLABLE TTAI
+0B9F 0BCA	TAMIL SYLLABLE TTO
+0B9F 0BCB	TAMIL SYLLABLE TTOO
+0B9F 0BCC	TAMIL SYLLABLE TTAU
+0BA3 0BBE	TAMIL SYLLABLE NNAA
+0BA3 0BBF	TAMIL SYLLABLE NNI
+0BA3 0BC0	TAMIL SYLLABLE NNII
+0BA3 0BC1	TAMIL SYLLABLE NNU
+0BA3 0BC2	TAMIL SYLLABLE NNUU
+0BA3 0BC6	TAMIL SYLLABLE NNE
+0BA3 0BC7	TAMIL SYLLABLE NNEE
+0BA3 0BC8	TAMIL SYLLABLE NNAI
+0BA3 0BCA	TAMIL SYLLABLE NNO
+0BA3 0BCB	TAMIL SYLLABLE NNOO
+0BA3 0BCC	TAMIL SYLLABLE NNAU
+0BA4 0BBE	TAMIL SYLLABLE TAA
+0BA4 0BBF	TAMIL SYLLABLE TI
+0BA4 0BC0	TAMIL SYLLABLE TII
+0BA4 0BC1	TAMIL SYLLABLE TU
+0BA4 0BC2	TAMIL SYLLABLE TUU
+0BA4 0BC6	TAMIL SYLLABLE TE
+0BA4 0BC7	TAMIL SYLLABLE TEE
+0BA4 0BC8	TAMIL SYLLABLE TAI
+0BA4 0BCA	TAMIL SYLLABLE TO
+0BA4 0BCB	TAMIL SYLLABLE TOO
+0BA4 0BCC	TAMIL SYLLABLE TAU
+0BA8 0BBE	TAMIL SYLLABLE NAA
+0BA8 0BBF	TAMIL SYLLABLE NI
+0BA8 0BC0	TAMIL SYLLABLE NII
+0BA8 0BC1	TAMIL SYLLABLE NU
+0BA8 0BC2	TAMIL SYLLABLE NUU
+0BA8 0BC6	TAMIL SYLLABLE NE
+0BA8 0BC7	TAMIL SYLLABLE NEE
+0BA8 0BC8	TAMIL SYLLABLE NAI
+0BA8 0BCA	TAMIL SYLLABLE NO
+0BA8 0BCB	TAMIL SYLLABLE NOO
+0BA8 0BCC	TAMIL SYLLABLE NAU
+0BAA 0BBE	TAMIL SYLLABLE PAA
+0BAA 0BBF	TAMIL SYLLABLE PI
+0BAA 0BC0	TAMIL SYLLABLE PII
+0BAA 0BC1	TAMIL SYLLABLE PU
+0BAA 0BC2	TAMIL SYLLABLE PUU
+0BAA 0BC6	TAMIL SYLLABLE PE
+0BAA 0BC7	TAMIL SYLLABLE PEE
+0BAA 0BC8	TAMIL SYLLABLE PAI
+0BAA 0BCA	TAMIL SYLLABLE PO
+0BAA 0BCB	TAMIL SYLLABLE POO
+0BAA 0BCC	TAMIL SYLLABLE PAU
+0BAE 0BBE	TAMIL SYLLABLE MAA
+0BAE 0BBF	TAMIL SYLLABLE MI
+0BAE 0BC0	TAMIL SYLLABLE MII
+0BAE 0BC1	TAMIL SYLLABLE MU
+0BAE 0BC2	TAMIL SYLLABLE MUU
+0BAE 0BC6	TAMIL SYLLABLE ME
+0BAE 0BC7	TAMIL SYLLABLE MEE
+0BAE 0BC8	TAMIL SYLLABLE MAI
+0BAE 0BCA	TAMIL SYLLABLE MO
+0BAE 0BCB	TAMIL SYLLABLE MOO
+0BAE 0BCC	TAMIL SYLLABLE MAU
+0BAF 0BBE	TAMIL SYLLABLE YAA
+0BAF 0BBF	TAMIL SYLLABLE YI
+0BAF 0BC0	TAMIL SYLLABLE YII
+0BAF 0BC1	TAMIL SYLLABLE YU
+0BAF 0BC2	TAMIL SYLLABLE YUU
+0BAF 0BC6	TAMIL SYLLABLE YE
+0BAF 0BC7	TAMIL SYLLABLE YEE
+0BAF 0BC8	TAMIL SYLLABLE YAI
+0BAF 0BCA	TAMIL SYLLABLE YO
+0BAF 0BCB	TAMIL SYLLABLE YOO
+0BAF 0BCC	TAMIL SYLLABLE YAU
+0BB0 0BBE	TAMIL SYLLABLE RAA
+0BB0 0BBF	TAMIL SYLLABLE RI
+0BB0 0BC0	TAMIL SYLLABLE RII
+0BB0 0BC1	TAMIL SYLLABLE RU
+0BB0 0BC2	TAMIL SYLLABLE RUU
+0BB0 0BC6	TAMIL SYLLABLE RE
+0BB0 0BC7	TAMIL SYLLABLE REE
+0BB0 0BC8	TAMIL SYLLABLE RAI
+0BB0 0BCA	TAMIL SYLLABLE RO
+0BB0 0BCB	TAMIL SYLLABLE ROO
+0BB0 0BCC	TAMIL SYLLABLE RAU
+0BB2 0BBE	TAMIL SYLLABLE LAA
+0BB2 0BBF	TAMIL SYLLABLE LI
+0BB2 0BC0	TAMIL SYLLABLE LII
+0BB2 0BC1	TAMIL SYLLABLE LU
+0BB2 0BC2	TAMIL SYLLABLE LUU
+0BB2 0BC6	TAMIL SYLLABLE LE
+0BB2 0BC7	TAMIL SYLLABLE LEE
+0BB2 0BC8	TAMIL SYLLABLE LAI
+0BB2 0BCA	TAMIL SYLLABLE LO
+0BB2 0BCB	TAMIL SYLLABLE LOO
+0BB2 0BCC	TAMIL SYLLABLE LAU
+0BB5 0BBE	TAMIL SYLLABLE VAA
+0BB5 0BBF	TAMIL SYLLABLE VI
+0BB5 0BC0	TAMIL SYLLABLE VII
+0BB5 0BC1	TAMIL SYLLABLE VU
+0BB5 0BC2	TAMIL SYLLABLE VUU
+0BB5 0BC6	TAMIL SYLLABLE VE
+0BB5 0BC7	TAMIL SYLLABLE VEE
+0BB5 0BC8	TAMIL SYLLABLE VAI
+0BB5 0BCA	TAMIL SYLLABLE VO
+0BB5 0BCB	TAMIL SYLLABLE VOO
+0BB5 0BCC	TAMIL SYLLABLE VAU
+0BB4 0BBE	TAMIL SYLLABLE LLLAA
+0BB4 0BBF	TAMIL SYLLABLE LLLI
+0BB4 0BC0	TAMIL SYLLABLE LLLII
+0BB4 0BC1	TAMIL SYLLABLE LLLU
+0BB4 0BC2	TAMIL SYLLABLE LLLUU
+0BB4 0BC6	TAMIL SYLLABLE LLLE
+0BB4 0BC7	TAMIL SYLLABLE LLLEE
+0BB4 0BC8	TAMIL SYLLABLE LLLAI
+0BB4 0BCA	TAMIL SYLLABLE LLLO
+0BB4 0BCB	TAMIL SYLLABLE LLLOO
+0BB4 0BCC	TAMIL SYLLABLE LLLAU
+0BB3 0BBE	TAMIL SYLLABLE LLAA
+0BB3 0BBF	TAMIL SYLLABLE LLI
+0BB3 0BC0	TAMIL SYLLABLE LLII
+0BB3 0BC1	TAMIL SYLLABLE LLU
+0BB3 0BC2	TAMIL SYLLABLE LLUU
+0BB3 0BC6	TAMIL SYLLABLE LLE
+0BB3 0BC7	TAMIL SYLLABLE LLEE
+0BB3 0BC8	TAMIL SYLLABLE LLAI
+0BB3 0BCA	TAMIL SYLLABLE LLO
+0BB3 0BCB	TAMIL SYLLABLE LLOO
+0BB3 0BCC	TAMIL SYLLABLE LLAU
+0BB1 0BBE	TAMIL SYLLABLE RRAA
+0BB1 0BBF	TAMIL SYLLABLE RRI
+0BB1 0BC0	TAMIL SYLLABLE RRII
+0BB1 0BC1	TAMIL SYLLABLE RRU
+0BB1 0BC2	TAMIL SYLLABLE RRUU
+0BB1 0BC6	TAMIL SYLLABLE RRE
+0BB1 0BC7	TAMIL SYLLABLE RREE
+0BB1 0BC8	TAMIL SYLLABLE RRAI
+0BB1 0BCA	TAMIL SYLLABLE RRO
+0BB1 0BCB	TAMIL SYLLABLE RROO
+0BB1 0BCC	TAMIL SYLLABLE RRAU
+0BA9 0BBE	TAMIL SYLLABLE NNNAA
+0BA9 0BBF	TAMIL SYLLABLE NNNI
+0BA9 0BC0	TAMIL SYLLABLE NNNII
+0BA9 0BC1	TAMIL SYLLABLE NNNU
+0BA9 0BC2	TAMIL SYLLABLE NNNUU
+0BA9 0BC6	TAMIL SYLLABLE NNNE
+0BA9 0BC7	TAMIL SYLLABLE NNNEE
+0BA9 0BC8	TAMIL SYLLABLE NNNAI
+0BA9 0BCA	TAMIL SYLLABLE NNNO
+0BA9 0BCB	TAMIL SYLLABLE NNNOO
+0BA9 0BCC	TAMIL SYLLABLE NNNAU
+0B9C 0BBE	TAMIL SYLLABLE JAA
+0B9C 0BBF	TAMIL SYLLABLE JI
+0B9C 0BC0	TAMIL SYLLABLE JII
+0B9C 0BC1	TAMIL SYLLABLE JU
+0B9C 0BC2	TAMIL SYLLABLE JUU
+0B9C 0BC6	TAMIL SYLLABLE JE
+0B9C 0BC7	TAMIL SYLLABLE JEE
+0B9C 0BC8	TAMIL SYLLABLE JAI
+0B9C 0BCA	TAMIL SYLLABLE JO
+0B9C 0BCB	TAMIL SYLLABLE JOO
+0B9C 0BCC	TAMIL SYLLABLE JAU
+0BB6 0BBE	TAMIL SYLLABLE SHAA
+0BB6 0BBF	TAMIL SYLLABLE SHI
+0BB6 0BC0	TAMIL SYLLABLE SHII
+0BB6 0BC1	TAMIL SYLLABLE SHU
+0BB6 0BC2	TAMIL SYLLABLE SHUU
+0BB6 0BC6	TAMIL SYLLABLE SHE
+0BB6 0BC7	TAMIL SYLLABLE SHEE
+0BB6 0BC8	TAMIL SYLLABLE SHAI
+0BB6 0BCA	TAMIL SYLLABLE SHO
+0BB6 0BCB	TAMIL SYLLABLE SHOO
+0BB6 0BCC	TAMIL SYLLABLE SHAU
+0BB7 0BBE	TAMIL SYLLABLE SSAA
+0BB7 0BBF	TAMIL SYLLABLE SSI
+0BB7 0BC0	TAMIL SYLLABLE SSII
+0BB7 0BC1	TAMIL SYLLABLE SSU
+0BB7 0BC2	TAMIL SYLLABLE SSUU
+0BB7 0BC6	TAMIL SYLLABLE SSE
+0BB7 0BC7	TAMIL SYLLABLE SSEE
+0BB7 0BC8	TAMIL SYLLABLE SSAI
+0BB7 0BCA	TAMIL SYLLABLE SSO
+0BB7 0BCB	TAMIL SYLLABLE SSOO
+0BB7 0BCC	TAMIL SYLLABLE SSAU
+0BB8 0BBE	TAMIL SYLLABLE SAA
+0BB8 0BBF	TAMIL SYLLABLE SI
+0BB8 0BC0	TAMIL SYLLABLE SII
+0BB8 0BC1	TAMIL SYLLABLE SU
+0BB8 0BC2	TAMIL SYLLABLE SUU
+0BB8 0BC6	TAMIL SYLLABLE SE
+0BB8 0BC7	TAMIL SYLLABLE SEE
+0BB8 0BC8	TAMIL SYLLABLE SAI
+0BB8 0BCA	TAMIL SYLLABLE SO
+0BB8 0BCB	TAMIL SYLLABLE SOO
+0BB8 0BCC	TAMIL SYLLABLE SAU
+0BB9 0BBE	TAMIL SYLLABLE HAA
+0BB9 0BBF	TAMIL SYLLABLE HI
+0BB9 0BC0	TAMIL SYLLABLE HII
+0BB9 0BC1	TAMIL SYLLABLE HU
+0BB9 0BC2	TAMIL SYLLABLE HUU
+0BB9 0BC6	TAMIL SYLLABLE HE
+0BB9 0BC7	TAMIL SYLLABLE HEE
+0BB9 0BC8	TAMIL SYLLABLE HAI
+0BB9 0BCA	TAMIL SYLLABLE HO
+0BB9 0BCB	TAMIL SYLLABLE HOO
+0BB9 0BCC	TAMIL SYLLABLE HAU
+0B95 0BCD 0BB7	TAMIL SYLLABLE KSSA
+0B95 0BCD 0BB7 0BBE	TAMIL SYLLABLE KSSAA
+0B95 0BCD 0BB7 0BBF	TAMIL SYLLABLE KSSI
+0B95 0BCD 0BB7 0BC0	TAMIL SYLLABLE KSSII
+0B95 0BCD 0BB7 0BC1	TAMIL SYLLABLE KSSU
+0B95 0BCD 0BB7 0BC2	TAMIL SYLLABLE KSSUU
+0B95 0BCD 0BB7 0BC6	TAMIL SYLLABLE KSSE
+0B95 0BCD 0BB7 0BC7	TAMIL SYLLABLE KSSEE
+0B95 0BCD 0BB7 0BC8	TAMIL SYLLABLE KSSAI
+0B95 0BCD 0BB7 0BCA	TAMIL SYLLABLE KSSO
+0B95 0BCD 0BB7 0BCB	TAMIL SYLLABLE KSSOO
+0B95 0BCD 0BB7 0BCC	TAMIL SYLLABLE KSSAU
+0BB6 0BCD 0BB0 0BC0	TAMIL SYLLABLE SHRII
+0DCA 200D 0DBA	SINHALA CONSONANT SIGN YANSAYA
+0DCA 200D 0DBB	SINHALA CONSONANT SIGN RAKAARAANSAYA
+0DBB 0DCA 200D	SINHALA CONSONANT SIGN REPAYA
+10E3 0302	GEORGIAN LETTER U-BRJGU
+17D2 1780	KHMER CONSONANT SIGN COENG KA
+17D2 1781	KHMER CONSONANT SIGN COENG KHA
+17D2 1782	KHMER CONSONANT SIGN COENG KO
+17D2 1783	KHMER CONSONANT SIGN COENG KHO
+17D2 1784	KHMER CONSONANT SIGN COENG NGO
+17D2 1785	KHMER CONSONANT SIGN COENG CA
+17D2 1786	KHMER CONSONANT SIGN COENG CHA
+17D2 1787	KHMER CONSONANT SIGN COENG CO
+17D2 1788	KHMER CONSONANT SIGN COENG CHO
+17D2 1789	KHMER CONSONANT SIGN COENG NYO
+17D2 178A	KHMER CONSONANT SIGN COENG DA
+17D2 178B	KHMER CONSONANT SIGN COENG TTHA
+17D2 178C	KHMER CONSONANT SIGN COENG DO
+17D2 178D	KHMER CONSONANT SIGN COENG TTHO
+17D2 178E	KHMER CONSONANT SIGN COENG NA
+17D2 178F	KHMER CONSONANT SIGN COENG TA
+17D2 1790	KHMER CONSONANT SIGN COENG THA
+17D2 1791	KHMER CONSONANT SIGN COENG TO
+17D2 1792	KHMER CONSONANT SIGN COENG THO
+17D2 1793	KHMER CONSONANT SIGN COENG NO
+17D2 1794	KHMER CONSONANT SIGN COENG BA
+17D2 1795	KHMER CONSONANT SIGN COENG PHA
+17D2 1796	KHMER CONSONANT SIGN COENG PO
+17D2 1797	KHMER CONSONANT SIGN COENG PHO
+17D2 1798	KHMER CONSONANT SIGN COENG MO
+17D2 1799	KHMER CONSONANT SIGN COENG YO
+17D2 179A	KHMER CONSONANT SIGN COENG RO
+17D2 179B	KHMER CONSONANT SIGN COENG LO
+17D2 179C	KHMER CONSONANT SIGN COENG VO
+17D2 179D	KHMER CONSONANT SIGN COENG SHA
+17D2 179E	KHMER CONSONANT SIGN COENG SSA
+17D2 179F	KHMER CONSONANT SIGN COENG SA
+17D2 17A0	KHMER CONSONANT SIGN COENG HA
+17D2 17A1	KHMER CONSONANT SIGN COENG LA
+17D2 17A2	KHMER VOWEL SIGN COENG QA
+17D2 17A7	KHMER INDEPENDENT VOWEL SIGN COENG QU
+17D2 17AB	KHMER INDEPENDENT VOWEL SIGN COENG RY
+17D2 17AC	KHMER INDEPENDENT VOWEL SIGN COENG RYY
+17D2 17AF	KHMER INDEPENDENT VOWEL SIGN COENG QE
+17BB 17C6	KHMER VOWEL SIGN OM
+17B6 17C6	KHMER VOWEL SIGN AAM
+304B 309A	HIRAGANA LETTER BIDAKUON NGA
+304D 309A	HIRAGANA LETTER BIDAKUON NGI
+304F 309A	HIRAGANA LETTER BIDAKUON NGU
+3051 309A	HIRAGANA LETTER BIDAKUON NGE
+3053 309A	HIRAGANA LETTER BIDAKUON NGO
+30AB 309A	KATAKANA LETTER BIDAKUON NGA
+30AD 309A	KATAKANA LETTER BIDAKUON NGI
+30AF 309A	KATAKANA LETTER BIDAKUON NGU
+30B1 309A	KATAKANA LETTER BIDAKUON NGE
+30B3 309A	KATAKANA LETTER BIDAKUON NGO
+30BB 309A	KATAKANA LETTER AINU CE
+30C4 309A	KATAKANA LETTER AINU TU
+30C8 309A	KATAKANA LETTER AINU TO
+31F7 309A	KATAKANA LETTER AINU P
+02E5 02E9	MODIFIER LETTER EXTRA-HIGH EXTRA-LOW CONTOUR TONE BAR
+02E9 02E5	MODIFIER LETTER EXTRA-LOW EXTRA-HIGH CONTOUR TONE BAR
+END
diff --git a/lib/5.24.1/unicore/Name.pm b/lib/5.24.1/unicore/Name.pm
new file mode 100644
index 00000000..609c8548
--- /dev/null
+++ b/lib/5.24.1/unicore/Name.pm
@@ -0,0 +1,425 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+package charnames;
+
+# This module contains machine-generated tables and code for the
+# algorithmically-determinable Unicode character names.  The following
+# routines can be used to translate between name and code point and vice versa
+
+{ # Closure
+
+    # Matches legal code point.  4-6 hex numbers, If there are 6, the first
+    # two must be 10; if there are 5, the first must not be a 0.  Written this
+    # way to decrease backtracking.  The first regex allows the code point to
+    # be at the end of a word, but to work properly, the word shouldn't end
+    # with a valid hex character.  The second one won't match a code point at
+    # the end of a word, and doesn't have the run-on issue
+    my $run_on_code_point_re = qr/(?^aax: (?: 10[0-9A-F]{4} | [1-9A-F][0-9A-F]{4} | [0-9A-F]{4} ) \b)/;
+    my $code_point_re = qr/(?^aa:\b(?^aax: (?: 10[0-9A-F]{4} | [1-9A-F][0-9A-F]{4} | [0-9A-F]{4} ) \b))/;
+
+    # In the following hash, the keys are the bases of names which include
+    # the code point in the name, like CJK UNIFIED IDEOGRAPH-4E01.  The value
+    # of each key is another hash which is used to get the low and high ends
+    # for each range of code points that apply to the name.
+    my %names_ending_in_code_point = (
+'CJK COMPATIBILITY IDEOGRAPH' => 
+{
+'high' => 
+[
+64109,
+64217,
+195101,
+],
+'low' => 
+[
+63744,
+64112,
+194560,
+],
+},
+'CJK UNIFIED IDEOGRAPH' => 
+{
+'high' => 
+[
+19893,
+40917,
+173782,
+177972,
+178205,
+183969,
+],
+'low' => 
+[
+13312,
+19968,
+131072,
+173824,
+177984,
+178208,
+],
+},
+
+    );
+
+    # The following hash is a copy of the previous one, except is for loose
+    # matching, so each name has blanks and dashes squeezed out
+    my %loose_names_ending_in_code_point = (
+'CJKCOMPATIBILITYIDEOGRAPH' => 
+{
+'high' => 
+[
+64109,
+64217,
+195101,
+],
+'low' => 
+[
+63744,
+64112,
+194560,
+],
+},
+'CJKUNIFIEDIDEOGRAPH' => 
+{
+'high' => 
+[
+19893,
+40917,
+173782,
+177972,
+178205,
+183969,
+],
+'low' => 
+[
+13312,
+19968,
+131072,
+173824,
+177984,
+178208,
+],
+},
+
+    );
+
+    # And the following array gives the inverse mapping from code points to
+    # names.  Lowest code points are first
+    my @code_points_ending_in_code_point = (
+
+{
+'high' => 19893,
+'low' => 13312,
+'name' => 'CJK UNIFIED IDEOGRAPH',
+},
+{
+'high' => 40917,
+'low' => 19968,
+'name' => 'CJK UNIFIED IDEOGRAPH',
+},
+{
+'high' => 64109,
+'low' => 63744,
+'name' => 'CJK COMPATIBILITY IDEOGRAPH',
+},
+{
+'high' => 64217,
+'low' => 64112,
+'name' => 'CJK COMPATIBILITY IDEOGRAPH',
+},
+{
+'high' => 173782,
+'low' => 131072,
+'name' => 'CJK UNIFIED IDEOGRAPH',
+},
+{
+'high' => 177972,
+'low' => 173824,
+'name' => 'CJK UNIFIED IDEOGRAPH',
+},
+{
+'high' => 178205,
+'low' => 177984,
+'name' => 'CJK UNIFIED IDEOGRAPH',
+},
+{
+'high' => 183969,
+'low' => 178208,
+'name' => 'CJK UNIFIED IDEOGRAPH',
+},
+{
+'high' => 195101,
+'low' => 194560,
+'name' => 'CJK COMPATIBILITY IDEOGRAPH',
+},
+,
+
+    );
+
+    # Convert from code point to Jamo short name for use in composing Hangul
+    # syllable names
+    my %Jamo = (
+4352 => 'G',
+4353 => 'GG',
+4354 => 'N',
+4355 => 'D',
+4356 => 'DD',
+4357 => 'R',
+4358 => 'M',
+4359 => 'B',
+4360 => 'BB',
+4361 => 'S',
+4362 => 'SS',
+4363 => '',
+4364 => 'J',
+4365 => 'JJ',
+4366 => 'C',
+4367 => 'K',
+4368 => 'T',
+4369 => 'P',
+4370 => 'H',
+4449 => 'A',
+4450 => 'AE',
+4451 => 'YA',
+4452 => 'YAE',
+4453 => 'EO',
+4454 => 'E',
+4455 => 'YEO',
+4456 => 'YE',
+4457 => 'O',
+4458 => 'WA',
+4459 => 'WAE',
+4460 => 'OE',
+4461 => 'YO',
+4462 => 'U',
+4463 => 'WEO',
+4464 => 'WE',
+4465 => 'WI',
+4466 => 'YU',
+4467 => 'EU',
+4468 => 'YI',
+4469 => 'I',
+4520 => 'G',
+4521 => 'GG',
+4522 => 'GS',
+4523 => 'N',
+4524 => 'NJ',
+4525 => 'NH',
+4526 => 'D',
+4527 => 'L',
+4528 => 'LG',
+4529 => 'LM',
+4530 => 'LB',
+4531 => 'LS',
+4532 => 'LT',
+4533 => 'LP',
+4534 => 'LH',
+4535 => 'M',
+4536 => 'B',
+4537 => 'BS',
+4538 => 'S',
+4539 => 'SS',
+4540 => 'NG',
+4541 => 'J',
+4542 => 'C',
+4543 => 'K',
+4544 => 'T',
+4545 => 'P',
+4546 => 'H',
+
+    );
+
+    # Leading consonant (can be null)
+    my %Jamo_L = (
+'' => 11,
+'B' => 7,
+'BB' => 8,
+'C' => 14,
+'D' => 3,
+'DD' => 4,
+'G' => 0,
+'GG' => 1,
+'H' => 18,
+'J' => 12,
+'JJ' => 13,
+'K' => 15,
+'M' => 6,
+'N' => 2,
+'P' => 17,
+'R' => 5,
+'S' => 9,
+'SS' => 10,
+'T' => 16,
+
+    );
+
+    # Vowel
+    my %Jamo_V = (
+'A' => 0,
+'AE' => 1,
+'E' => 5,
+'EO' => 4,
+'EU' => 18,
+'I' => 20,
+'O' => 8,
+'OE' => 11,
+'U' => 13,
+'WA' => 9,
+'WAE' => 10,
+'WE' => 15,
+'WEO' => 14,
+'WI' => 16,
+'YA' => 2,
+'YAE' => 3,
+'YE' => 7,
+'YEO' => 6,
+'YI' => 19,
+'YO' => 12,
+'YU' => 17,
+
+    );
+
+    # Optional trailing consonant
+    my %Jamo_T = (
+'B' => 17,
+'BS' => 18,
+'C' => 23,
+'D' => 7,
+'G' => 1,
+'GG' => 2,
+'GS' => 3,
+'H' => 27,
+'J' => 22,
+'K' => 24,
+'L' => 8,
+'LB' => 11,
+'LG' => 9,
+'LH' => 15,
+'LM' => 10,
+'LP' => 14,
+'LS' => 12,
+'LT' => 13,
+'M' => 16,
+'N' => 4,
+'NG' => 21,
+'NH' => 6,
+'NJ' => 5,
+'P' => 26,
+'S' => 19,
+'SS' => 20,
+'T' => 25,
+
+    );
+
+    # Computed re that splits up a Hangul name into LVT or LV syllables
+    my $syllable_re = qr/(|B|BB|C|D|DD|G|GG|H|J|JJ|K|M|N|P|R|S|SS|T)(A|AE|E|EO|EU|I|O|OE|U|WA|WAE|WE|WEO|WI|YA|YAE|YE|YEO|YI|YO|YU)(B|BS|C|D|G|GG|GS|H|J|K|L|LB|LG|LH|LM|LP|LS|LT|M|N|NG|NH|NJ|P|S|SS|T)?/;
+
+    my $HANGUL_SYLLABLE = "HANGUL SYLLABLE ";
+    my $loose_HANGUL_SYLLABLE = "HANGULSYLLABLE";
+
+    # These constants names and values were taken from the Unicode standard,
+    # version 5.1, section 3.12.  They are used in conjunction with Hangul
+    # syllables
+    my $SBase = 0xAC00;
+    my $LBase = 0x1100;
+    my $VBase = 0x1161;
+    my $TBase = 0x11A7;
+    my $SCount = 11172;
+    my $LCount = 19;
+    my $VCount = 21;
+    my $TCount = 28;
+    my $NCount = $VCount * $TCount;
+
+    sub name_to_code_point_special {
+        my ($name, $loose) = @_;
+
+        # Returns undef if not one of the specially handled names; otherwise
+        # returns the code point equivalent to the input name
+        # $loose is non-zero if to use loose matching, 'name' in that case
+        # must be input as upper case with all blanks and dashes squeezed out.
+
+        if ((! $loose && $name =~ s/$HANGUL_SYLLABLE//)
+            || ($loose && $name =~ s/$loose_HANGUL_SYLLABLE//))
+        {
+            return if $name !~ qr/^$syllable_re$/;
+            my $L = $Jamo_L{$1};
+            my $V = $Jamo_V{$2};
+            my $T = (defined $3) ? $Jamo_T{$3} : 0;
+            return ($L * $VCount + $V) * $TCount + $T + $SBase;
+        }
+
+        # Name must end in 'code_point' for this to handle.
+        return if (($loose && $name !~ /^ (.*?) ($run_on_code_point_re) $/x)
+                   || (! $loose && $name !~ /^ (.*) ($code_point_re) $/x));
+
+        my $base = $1;
+        my $code_point = CORE::hex $2;
+        my $names_ref;
+
+        if ($loose) {
+            $names_ref = \%loose_names_ending_in_code_point;
+        }
+        else {
+            return if $base !~ s/-$//;
+            $names_ref = \%names_ending_in_code_point;
+        }
+
+        # Name must be one of the ones which has the code point in it.
+        return if ! $names_ref->{$base};
+
+        # Look through the list of ranges that apply to this name to see if
+        # the code point is in one of them.
+        for (my $i = 0; $i < scalar @{$names_ref->{$base}{'low'}}; $i++) {
+            return if $names_ref->{$base}{'low'}->[$i] > $code_point;
+            next if $names_ref->{$base}{'high'}->[$i] < $code_point;
+
+            # Here, the code point is in the range.
+            return $code_point;
+        }
+
+        # Here, looked like the name had a code point number in it, but
+        # did not match one of the valid ones.
+        return;
+    }
+
+    sub code_point_to_name_special {
+        my $code_point = shift;
+
+        # Returns the name of a code point if algorithmically determinable;
+        # undef if not
+
+        # If in the Hangul range, calculate the name based on Unicode's
+        # algorithm
+        if ($code_point >= $SBase && $code_point <= $SBase + $SCount -1) {
+            use integer;
+            my $SIndex = $code_point - $SBase;
+            my $L = $LBase + $SIndex / $NCount;
+            my $V = $VBase + ($SIndex % $NCount) / $TCount;
+            my $T = $TBase + $SIndex % $TCount;
+            $name = "$HANGUL_SYLLABLE$Jamo{$L}$Jamo{$V}";
+            $name .= $Jamo{$T} if $T != $TBase;
+            return $name;
+        }
+
+        # Look through list of these code points for one in range.
+        foreach my $hash (@code_points_ending_in_code_point) {
+            return if $code_point < $hash->{'low'};
+            if ($code_point <= $hash->{'high'}) {
+                return sprintf("%s-%04X", $hash->{'name'}, $code_point);
+            }
+        }
+        return;            # None found
+    }
+} # End closure
+
+1;
diff --git a/lib/5.24.1/unicore/NamedSequences.txt b/lib/5.24.1/unicore/NamedSequences.txt
new file mode 100644
index 00000000..b1bfc2f0
--- /dev/null
+++ b/lib/5.24.1/unicore/NamedSequences.txt
@@ -0,0 +1,529 @@
+# NamedSequences-8.0.0.txt
+# Date: 2015-02-19, 00:30:00 GMT [KW, LI]
+#
+# Unicode Named Character Sequences
+#
+# This file is a normative contributory data file in the Unicode
+# Character Database.
+#
+# Copyright (c) 1991-2015 Unicode, Inc.
+# For terms of use, see http://www.unicode.org/terms_of_use.html
+#
+# Format:
+# Name of Sequence; Code Point Sequence for USI
+#
+# Code point sequences in the Unicode Character Database
+# use spaces as delimiters. The corresponding format for a
+# UCS Sequence Identifier (USI) in ISO/IEC 10646 uses
+# comma delimitation and angle brackets. Thus, a Unicode
+# named character sequence of the form:
+#
+# EXAMPLE NAME;1000 1001 1002
+#
+# in this data file, would correspond to an ISO/IEC 10646 USI
+# as follows:
+#
+# <1000, 1001, 1002>
+#
+# For more information, see UAX #34: Unicode Named Character
+# Sequences, at http://www.unicode.org/unicode/reports/tr34/
+#
+# Note: The order of entries in this file is not significant.
+# However, entries are generally in script order corresponding
+# to block order in the Unicode Standard, to make it easier
+# to find entries in the list.
+
+# ================================================
+
+LATIN CAPITAL LETTER A WITH MACRON AND GRAVE;0100 0300
+LATIN SMALL LETTER A WITH MACRON AND GRAVE;0101 0300
+LATIN CAPITAL LETTER E WITH VERTICAL LINE BELOW;0045 0329
+LATIN SMALL LETTER E WITH VERTICAL LINE BELOW;0065 0329
+LATIN CAPITAL LETTER E WITH VERTICAL LINE BELOW AND GRAVE;00C8 0329
+LATIN SMALL LETTER E WITH VERTICAL LINE BELOW AND GRAVE;00E8 0329
+LATIN CAPITAL LETTER E WITH VERTICAL LINE BELOW AND ACUTE;00C9 0329
+LATIN SMALL LETTER E WITH VERTICAL LINE BELOW AND ACUTE;00E9 0329
+LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND MACRON;00CA 0304
+LATIN SMALL LETTER E WITH CIRCUMFLEX AND MACRON;00EA 0304
+LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND CARON;00CA 030C
+LATIN SMALL LETTER E WITH CIRCUMFLEX AND CARON;00EA 030C
+LATIN CAPITAL LETTER I WITH MACRON AND GRAVE;012A 0300
+LATIN SMALL LETTER I WITH MACRON AND GRAVE;012B 0300
+LATIN SMALL LETTER I WITH DOT ABOVE AND ACUTE;0069 0307 0301
+LATIN SMALL LETTER NG WITH TILDE ABOVE;006E 0360 0067
+LATIN CAPITAL LETTER O WITH VERTICAL LINE BELOW;004F 0329
+LATIN SMALL LETTER O WITH VERTICAL LINE BELOW;006F 0329
+LATIN CAPITAL LETTER O WITH VERTICAL LINE BELOW AND GRAVE;00D2 0329
+LATIN SMALL LETTER O WITH VERTICAL LINE BELOW AND GRAVE;00F2 0329
+LATIN CAPITAL LETTER O WITH VERTICAL LINE BELOW AND ACUTE;00D3 0329
+LATIN SMALL LETTER O WITH VERTICAL LINE BELOW AND ACUTE;00F3 0329
+LATIN CAPITAL LETTER S WITH VERTICAL LINE BELOW;0053 0329
+LATIN SMALL LETTER S WITH VERTICAL LINE BELOW;0073 0329
+LATIN CAPITAL LETTER U WITH MACRON AND GRAVE;016A 0300
+LATIN SMALL LETTER U WITH MACRON AND GRAVE;016B 0300
+
+# Additions for Lithuanian.
+# Provisional 2006-05-18, Approved 2007-10-19
+
+LATIN CAPITAL LETTER A WITH OGONEK AND ACUTE;0104 0301
+LATIN SMALL LETTER A WITH OGONEK AND ACUTE;0105 0301
+LATIN CAPITAL LETTER A WITH OGONEK AND TILDE;0104 0303
+LATIN SMALL LETTER A WITH OGONEK AND TILDE;0105 0303
+LATIN CAPITAL LETTER E WITH OGONEK AND ACUTE;0118 0301
+LATIN SMALL LETTER E WITH OGONEK AND ACUTE;0119 0301
+LATIN CAPITAL LETTER E WITH OGONEK AND TILDE;0118 0303
+LATIN SMALL LETTER E WITH OGONEK AND TILDE;0119 0303
+LATIN CAPITAL LETTER E WITH DOT ABOVE AND ACUTE;0116 0301
+LATIN SMALL LETTER E WITH DOT ABOVE AND ACUTE;0117 0301
+LATIN CAPITAL LETTER E WITH DOT ABOVE AND TILDE;0116 0303
+LATIN SMALL LETTER E WITH DOT ABOVE AND TILDE;0117 0303
+LATIN SMALL LETTER I WITH DOT ABOVE AND GRAVE;0069 0307 0300
+LATIN SMALL LETTER I WITH DOT ABOVE AND TILDE;0069 0307 0303
+LATIN CAPITAL LETTER I WITH OGONEK AND ACUTE;012E 0301
+LATIN SMALL LETTER I WITH OGONEK AND DOT ABOVE AND ACUTE;012F 0307 0301
+LATIN CAPITAL LETTER I WITH OGONEK AND TILDE;012E 0303
+LATIN SMALL LETTER I WITH OGONEK AND DOT ABOVE AND TILDE;012F 0307 0303
+LATIN CAPITAL LETTER J WITH TILDE;004A 0303
+LATIN SMALL LETTER J WITH DOT ABOVE AND TILDE;006A 0307 0303
+LATIN CAPITAL LETTER L WITH TILDE;004C 0303
+LATIN SMALL LETTER L WITH TILDE;006C 0303
+LATIN CAPITAL LETTER M WITH TILDE;004D 0303
+LATIN SMALL LETTER M WITH TILDE;006D 0303
+LATIN CAPITAL LETTER R WITH TILDE;0052 0303
+LATIN SMALL LETTER R WITH TILDE;0072 0303
+LATIN CAPITAL LETTER U WITH OGONEK AND ACUTE;0172 0301
+LATIN SMALL LETTER U WITH OGONEK AND ACUTE;0173 0301
+LATIN CAPITAL LETTER U WITH OGONEK AND TILDE;0172 0303
+LATIN SMALL LETTER U WITH OGONEK AND TILDE;0173 0303
+LATIN CAPITAL LETTER U WITH MACRON AND ACUTE;016A 0301
+LATIN SMALL LETTER U WITH MACRON AND ACUTE;016B 0301
+LATIN CAPITAL LETTER U WITH MACRON AND TILDE;016A 0303
+LATIN SMALL LETTER U WITH MACRON AND TILDE;016B 0303
+
+# Entries for JIS X 0213 compatibility mapping.
+# Provisional 2008-11-07, Approved 2010-05-14
+
+LATIN SMALL LETTER AE WITH GRAVE;00E6 0300
+LATIN SMALL LETTER OPEN O WITH GRAVE;0254 0300
+LATIN SMALL LETTER OPEN O WITH ACUTE;0254 0301
+LATIN SMALL LETTER TURNED V WITH GRAVE;028C 0300
+LATIN SMALL LETTER TURNED V WITH ACUTE;028C 0301
+LATIN SMALL LETTER SCHWA WITH GRAVE;0259 0300
+LATIN SMALL LETTER SCHWA WITH ACUTE;0259 0301
+LATIN SMALL LETTER HOOKED SCHWA WITH GRAVE;025A 0300
+LATIN SMALL LETTER HOOKED SCHWA WITH ACUTE;025A 0301
+
+# Entries for Uyghur and Chagatai.
+# Provisional N/A, Approved 2012-11-08
+
+ARABIC SEQUENCE YEH WITH HAMZA ABOVE WITH ALEF;0626 0627
+ARABIC SEQUENCE YEH WITH HAMZA ABOVE WITH WAW;0626 0648
+ARABIC SEQUENCE YEH WITH HAMZA ABOVE WITH ALEF MAKSURA;0626 0649
+ARABIC SEQUENCE YEH WITH HAMZA ABOVE WITH OE;0626 06C6
+ARABIC SEQUENCE YEH WITH HAMZA ABOVE WITH U;0626 06C7
+ARABIC SEQUENCE YEH WITH HAMZA ABOVE WITH YU;0626 06C8
+ARABIC SEQUENCE YEH WITH HAMZA ABOVE WITH E;0626 06D0
+ARABIC SEQUENCE YEH WITH HAMZA ABOVE WITH AE;0626 06D5
+ARABIC SEQUENCE NOON WITH KEHEH;0646 06A9
+
+# Entry for a Bangla entity.
+# Provisional 2009-08-10, Approved 2010-05-14
+#
+# Note that this same sequence is also used for the ASSAMESE LETTER KSSA.
+
+BENGALI LETTER KHINYA;0995 09CD 09B7
+
+# Additions for Tamil.
+# Provisional 2008-02-08, Approved 2009-08-14
+#
+# A visual display of the Tamil named character sequences is available
+# in the documentation for the Unicode Standard. See Section 12.6, Tamil in
+# http://www.unicode.org/versions/latest/
+
+TAMIL CONSONANT K;  0B95 0BCD
+TAMIL CONSONANT NG; 0B99 0BCD
+TAMIL CONSONANT C;  0B9A 0BCD
+TAMIL CONSONANT NY; 0B9E 0BCD
+TAMIL CONSONANT TT; 0B9F 0BCD
+TAMIL CONSONANT NN; 0BA3 0BCD
+TAMIL CONSONANT T;  0BA4 0BCD
+TAMIL CONSONANT N;  0BA8 0BCD
+TAMIL CONSONANT P;  0BAA 0BCD
+TAMIL CONSONANT M;  0BAE 0BCD
+TAMIL CONSONANT Y;  0BAF 0BCD
+TAMIL CONSONANT R;  0BB0 0BCD
+TAMIL CONSONANT L;  0BB2 0BCD
+TAMIL CONSONANT V;  0BB5 0BCD
+TAMIL CONSONANT LLL;0BB4 0BCD
+TAMIL CONSONANT LL; 0BB3 0BCD
+TAMIL CONSONANT RR; 0BB1 0BCD
+TAMIL CONSONANT NNN;0BA9 0BCD
+TAMIL CONSONANT J;  0B9C 0BCD
+TAMIL CONSONANT SH; 0BB6 0BCD
+TAMIL CONSONANT SS; 0BB7 0BCD
+TAMIL CONSONANT S;  0BB8 0BCD
+TAMIL CONSONANT H;  0BB9 0BCD
+TAMIL CONSONANT KSS;0B95 0BCD 0BB7 0BCD
+
+TAMIL SYLLABLE KAA; 0B95 0BBE
+TAMIL SYLLABLE KI;  0B95 0BBF
+TAMIL SYLLABLE KII; 0B95 0BC0
+TAMIL SYLLABLE KU;  0B95 0BC1
+TAMIL SYLLABLE KUU; 0B95 0BC2
+TAMIL SYLLABLE KE;  0B95 0BC6
+TAMIL SYLLABLE KEE; 0B95 0BC7
+TAMIL SYLLABLE KAI; 0B95 0BC8
+TAMIL SYLLABLE KO;  0B95 0BCA
+TAMIL SYLLABLE KOO; 0B95 0BCB
+TAMIL SYLLABLE KAU; 0B95 0BCC
+
+TAMIL SYLLABLE NGAA; 0B99 0BBE
+TAMIL SYLLABLE NGI;  0B99 0BBF
+TAMIL SYLLABLE NGII; 0B99 0BC0
+TAMIL SYLLABLE NGU;  0B99 0BC1
+TAMIL SYLLABLE NGUU; 0B99 0BC2
+TAMIL SYLLABLE NGE;  0B99 0BC6
+TAMIL SYLLABLE NGEE; 0B99 0BC7
+TAMIL SYLLABLE NGAI; 0B99 0BC8
+TAMIL SYLLABLE NGO;  0B99 0BCA
+TAMIL SYLLABLE NGOO; 0B99 0BCB
+TAMIL SYLLABLE NGAU; 0B99 0BCC
+
+TAMIL SYLLABLE CAA; 0B9A 0BBE
+TAMIL SYLLABLE CI;  0B9A 0BBF
+TAMIL SYLLABLE CII; 0B9A 0BC0
+TAMIL SYLLABLE CU;  0B9A 0BC1
+TAMIL SYLLABLE CUU; 0B9A 0BC2
+TAMIL SYLLABLE CE;  0B9A 0BC6
+TAMIL SYLLABLE CEE; 0B9A 0BC7
+TAMIL SYLLABLE CAI; 0B9A 0BC8
+TAMIL SYLLABLE CO;  0B9A 0BCA
+TAMIL SYLLABLE COO; 0B9A 0BCB
+TAMIL SYLLABLE CAU; 0B9A 0BCC
+
+TAMIL SYLLABLE NYAA; 0B9E 0BBE
+TAMIL SYLLABLE NYI;  0B9E 0BBF
+TAMIL SYLLABLE NYII; 0B9E 0BC0
+TAMIL SYLLABLE NYU;  0B9E 0BC1
+TAMIL SYLLABLE NYUU; 0B9E 0BC2
+TAMIL SYLLABLE NYE;  0B9E 0BC6
+TAMIL SYLLABLE NYEE; 0B9E 0BC7
+TAMIL SYLLABLE NYAI; 0B9E 0BC8
+TAMIL SYLLABLE NYO;  0B9E 0BCA
+TAMIL SYLLABLE NYOO; 0B9E 0BCB
+TAMIL SYLLABLE NYAU; 0B9E 0BCC
+
+TAMIL SYLLABLE TTAA; 0B9F 0BBE
+TAMIL SYLLABLE TTI;  0B9F 0BBF
+TAMIL SYLLABLE TTII; 0B9F 0BC0
+TAMIL SYLLABLE TTU;  0B9F 0BC1
+TAMIL SYLLABLE TTUU; 0B9F 0BC2
+TAMIL SYLLABLE TTE;  0B9F 0BC6
+TAMIL SYLLABLE TTEE; 0B9F 0BC7
+TAMIL SYLLABLE TTAI; 0B9F 0BC8
+TAMIL SYLLABLE TTO;  0B9F 0BCA
+TAMIL SYLLABLE TTOO; 0B9F 0BCB
+TAMIL SYLLABLE TTAU; 0B9F 0BCC
+
+TAMIL SYLLABLE NNAA; 0BA3 0BBE
+TAMIL SYLLABLE NNI;  0BA3 0BBF
+TAMIL SYLLABLE NNII; 0BA3 0BC0
+TAMIL SYLLABLE NNU;  0BA3 0BC1
+TAMIL SYLLABLE NNUU; 0BA3 0BC2
+TAMIL SYLLABLE NNE;  0BA3 0BC6
+TAMIL SYLLABLE NNEE; 0BA3 0BC7
+TAMIL SYLLABLE NNAI; 0BA3 0BC8
+TAMIL SYLLABLE NNO;  0BA3 0BCA
+TAMIL SYLLABLE NNOO; 0BA3 0BCB
+TAMIL SYLLABLE NNAU; 0BA3 0BCC
+
+TAMIL SYLLABLE TAA; 0BA4 0BBE
+TAMIL SYLLABLE TI;  0BA4 0BBF
+TAMIL SYLLABLE TII; 0BA4 0BC0
+TAMIL SYLLABLE TU;  0BA4 0BC1
+TAMIL SYLLABLE TUU; 0BA4 0BC2
+TAMIL SYLLABLE TE;  0BA4 0BC6
+TAMIL SYLLABLE TEE; 0BA4 0BC7
+TAMIL SYLLABLE TAI; 0BA4 0BC8
+TAMIL SYLLABLE TO;  0BA4 0BCA
+TAMIL SYLLABLE TOO; 0BA4 0BCB
+TAMIL SYLLABLE TAU; 0BA4 0BCC
+
+TAMIL SYLLABLE NAA; 0BA8 0BBE
+TAMIL SYLLABLE NI;  0BA8 0BBF
+TAMIL SYLLABLE NII; 0BA8 0BC0
+TAMIL SYLLABLE NU;  0BA8 0BC1
+TAMIL SYLLABLE NUU; 0BA8 0BC2
+TAMIL SYLLABLE NE;  0BA8 0BC6
+TAMIL SYLLABLE NEE; 0BA8 0BC7
+TAMIL SYLLABLE NAI; 0BA8 0BC8
+TAMIL SYLLABLE NO;  0BA8 0BCA
+TAMIL SYLLABLE NOO; 0BA8 0BCB
+TAMIL SYLLABLE NAU; 0BA8 0BCC
+
+TAMIL SYLLABLE PAA; 0BAA 0BBE
+TAMIL SYLLABLE PI;  0BAA 0BBF
+TAMIL SYLLABLE PII; 0BAA 0BC0
+TAMIL SYLLABLE PU;  0BAA 0BC1
+TAMIL SYLLABLE PUU; 0BAA 0BC2
+TAMIL SYLLABLE PE;  0BAA 0BC6
+TAMIL SYLLABLE PEE; 0BAA 0BC7
+TAMIL SYLLABLE PAI; 0BAA 0BC8
+TAMIL SYLLABLE PO;  0BAA 0BCA
+TAMIL SYLLABLE POO; 0BAA 0BCB
+TAMIL SYLLABLE PAU; 0BAA 0BCC
+
+TAMIL SYLLABLE MAA; 0BAE 0BBE
+TAMIL SYLLABLE MI;  0BAE 0BBF
+TAMIL SYLLABLE MII; 0BAE 0BC0
+TAMIL SYLLABLE MU;  0BAE 0BC1
+TAMIL SYLLABLE MUU; 0BAE 0BC2
+TAMIL SYLLABLE ME;  0BAE 0BC6
+TAMIL SYLLABLE MEE; 0BAE 0BC7
+TAMIL SYLLABLE MAI; 0BAE 0BC8
+TAMIL SYLLABLE MO;  0BAE 0BCA
+TAMIL SYLLABLE MOO; 0BAE 0BCB
+TAMIL SYLLABLE MAU; 0BAE 0BCC
+
+TAMIL SYLLABLE YAA; 0BAF 0BBE
+TAMIL SYLLABLE YI;  0BAF 0BBF
+TAMIL SYLLABLE YII; 0BAF 0BC0
+TAMIL SYLLABLE YU;  0BAF 0BC1
+TAMIL SYLLABLE YUU; 0BAF 0BC2
+TAMIL SYLLABLE YE;  0BAF 0BC6
+TAMIL SYLLABLE YEE; 0BAF 0BC7
+TAMIL SYLLABLE YAI; 0BAF 0BC8
+TAMIL SYLLABLE YO;  0BAF 0BCA
+TAMIL SYLLABLE YOO; 0BAF 0BCB
+TAMIL SYLLABLE YAU; 0BAF 0BCC
+
+TAMIL SYLLABLE RAA; 0BB0 0BBE
+TAMIL SYLLABLE RI;  0BB0 0BBF
+TAMIL SYLLABLE RII; 0BB0 0BC0
+TAMIL SYLLABLE RU;  0BB0 0BC1
+TAMIL SYLLABLE RUU; 0BB0 0BC2
+TAMIL SYLLABLE RE;  0BB0 0BC6
+TAMIL SYLLABLE REE; 0BB0 0BC7
+TAMIL SYLLABLE RAI; 0BB0 0BC8
+TAMIL SYLLABLE RO;  0BB0 0BCA
+TAMIL SYLLABLE ROO; 0BB0 0BCB
+TAMIL SYLLABLE RAU; 0BB0 0BCC
+
+TAMIL SYLLABLE LAA; 0BB2 0BBE
+TAMIL SYLLABLE LI;  0BB2 0BBF
+TAMIL SYLLABLE LII; 0BB2 0BC0
+TAMIL SYLLABLE LU;  0BB2 0BC1
+TAMIL SYLLABLE LUU; 0BB2 0BC2
+TAMIL SYLLABLE LE;  0BB2 0BC6
+TAMIL SYLLABLE LEE; 0BB2 0BC7
+TAMIL SYLLABLE LAI; 0BB2 0BC8
+TAMIL SYLLABLE LO;  0BB2 0BCA
+TAMIL SYLLABLE LOO; 0BB2 0BCB
+TAMIL SYLLABLE LAU; 0BB2 0BCC
+
+TAMIL SYLLABLE VAA; 0BB5 0BBE
+TAMIL SYLLABLE VI;  0BB5 0BBF
+TAMIL SYLLABLE VII; 0BB5 0BC0
+TAMIL SYLLABLE VU;  0BB5 0BC1
+TAMIL SYLLABLE VUU; 0BB5 0BC2
+TAMIL SYLLABLE VE;  0BB5 0BC6
+TAMIL SYLLABLE VEE; 0BB5 0BC7
+TAMIL SYLLABLE VAI; 0BB5 0BC8
+TAMIL SYLLABLE VO;  0BB5 0BCA
+TAMIL SYLLABLE VOO; 0BB5 0BCB
+TAMIL SYLLABLE VAU; 0BB5 0BCC
+
+TAMIL SYLLABLE LLLAA; 0BB4 0BBE
+TAMIL SYLLABLE LLLI;  0BB4 0BBF
+TAMIL SYLLABLE LLLII; 0BB4 0BC0
+TAMIL SYLLABLE LLLU;  0BB4 0BC1
+TAMIL SYLLABLE LLLUU; 0BB4 0BC2
+TAMIL SYLLABLE LLLE;  0BB4 0BC6
+TAMIL SYLLABLE LLLEE; 0BB4 0BC7
+TAMIL SYLLABLE LLLAI; 0BB4 0BC8
+TAMIL SYLLABLE LLLO;  0BB4 0BCA
+TAMIL SYLLABLE LLLOO; 0BB4 0BCB
+TAMIL SYLLABLE LLLAU; 0BB4 0BCC
+
+TAMIL SYLLABLE LLAA; 0BB3 0BBE
+TAMIL SYLLABLE LLI;  0BB3 0BBF
+TAMIL SYLLABLE LLII; 0BB3 0BC0
+TAMIL SYLLABLE LLU;  0BB3 0BC1
+TAMIL SYLLABLE LLUU; 0BB3 0BC2
+TAMIL SYLLABLE LLE;  0BB3 0BC6
+TAMIL SYLLABLE LLEE; 0BB3 0BC7
+TAMIL SYLLABLE LLAI; 0BB3 0BC8
+TAMIL SYLLABLE LLO;  0BB3 0BCA
+TAMIL SYLLABLE LLOO; 0BB3 0BCB
+TAMIL SYLLABLE LLAU; 0BB3 0BCC
+
+TAMIL SYLLABLE RRAA; 0BB1 0BBE
+TAMIL SYLLABLE RRI;  0BB1 0BBF
+TAMIL SYLLABLE RRII; 0BB1 0BC0
+TAMIL SYLLABLE RRU;  0BB1 0BC1
+TAMIL SYLLABLE RRUU; 0BB1 0BC2
+TAMIL SYLLABLE RRE;  0BB1 0BC6
+TAMIL SYLLABLE RREE; 0BB1 0BC7
+TAMIL SYLLABLE RRAI; 0BB1 0BC8
+TAMIL SYLLABLE RRO;  0BB1 0BCA
+TAMIL SYLLABLE RROO; 0BB1 0BCB
+TAMIL SYLLABLE RRAU; 0BB1 0BCC
+
+TAMIL SYLLABLE NNNAA; 0BA9 0BBE
+TAMIL SYLLABLE NNNI;  0BA9 0BBF
+TAMIL SYLLABLE NNNII; 0BA9 0BC0
+TAMIL SYLLABLE NNNU;  0BA9 0BC1
+TAMIL SYLLABLE NNNUU; 0BA9 0BC2
+TAMIL SYLLABLE NNNE;  0BA9 0BC6
+TAMIL SYLLABLE NNNEE; 0BA9 0BC7
+TAMIL SYLLABLE NNNAI; 0BA9 0BC8
+TAMIL SYLLABLE NNNO;  0BA9 0BCA
+TAMIL SYLLABLE NNNOO; 0BA9 0BCB
+TAMIL SYLLABLE NNNAU; 0BA9 0BCC
+
+TAMIL SYLLABLE JAA; 0B9C 0BBE
+TAMIL SYLLABLE JI;  0B9C 0BBF
+TAMIL SYLLABLE JII; 0B9C 0BC0
+TAMIL SYLLABLE JU;  0B9C 0BC1
+TAMIL SYLLABLE JUU; 0B9C 0BC2
+TAMIL SYLLABLE JE;  0B9C 0BC6
+TAMIL SYLLABLE JEE; 0B9C 0BC7
+TAMIL SYLLABLE JAI; 0B9C 0BC8
+TAMIL SYLLABLE JO;  0B9C 0BCA
+TAMIL SYLLABLE JOO; 0B9C 0BCB
+TAMIL SYLLABLE JAU; 0B9C 0BCC
+
+TAMIL SYLLABLE SHAA; 0BB6 0BBE
+TAMIL SYLLABLE SHI;  0BB6 0BBF
+TAMIL SYLLABLE SHII; 0BB6 0BC0
+TAMIL SYLLABLE SHU;  0BB6 0BC1
+TAMIL SYLLABLE SHUU; 0BB6 0BC2
+TAMIL SYLLABLE SHE;  0BB6 0BC6
+TAMIL SYLLABLE SHEE; 0BB6 0BC7
+TAMIL SYLLABLE SHAI; 0BB6 0BC8
+TAMIL SYLLABLE SHO;  0BB6 0BCA
+TAMIL SYLLABLE SHOO; 0BB6 0BCB
+TAMIL SYLLABLE SHAU; 0BB6 0BCC
+
+TAMIL SYLLABLE SSAA; 0BB7 0BBE
+TAMIL SYLLABLE SSI;  0BB7 0BBF
+TAMIL SYLLABLE SSII; 0BB7 0BC0
+TAMIL SYLLABLE SSU;  0BB7 0BC1
+TAMIL SYLLABLE SSUU; 0BB7 0BC2
+TAMIL SYLLABLE SSE;  0BB7 0BC6
+TAMIL SYLLABLE SSEE; 0BB7 0BC7
+TAMIL SYLLABLE SSAI; 0BB7 0BC8
+TAMIL SYLLABLE SSO;  0BB7 0BCA
+TAMIL SYLLABLE SSOO; 0BB7 0BCB
+TAMIL SYLLABLE SSAU; 0BB7 0BCC
+
+TAMIL SYLLABLE SAA; 0BB8 0BBE
+TAMIL SYLLABLE SI;  0BB8 0BBF
+TAMIL SYLLABLE SII; 0BB8 0BC0
+TAMIL SYLLABLE SU;  0BB8 0BC1
+TAMIL SYLLABLE SUU; 0BB8 0BC2
+TAMIL SYLLABLE SE;  0BB8 0BC6
+TAMIL SYLLABLE SEE; 0BB8 0BC7
+TAMIL SYLLABLE SAI; 0BB8 0BC8
+TAMIL SYLLABLE SO;  0BB8 0BCA
+TAMIL SYLLABLE SOO; 0BB8 0BCB
+TAMIL SYLLABLE SAU; 0BB8 0BCC
+
+TAMIL SYLLABLE HAA; 0BB9 0BBE
+TAMIL SYLLABLE HI;  0BB9 0BBF
+TAMIL SYLLABLE HII; 0BB9 0BC0
+TAMIL SYLLABLE HU;  0BB9 0BC1
+TAMIL SYLLABLE HUU; 0BB9 0BC2
+TAMIL SYLLABLE HE;  0BB9 0BC6
+TAMIL SYLLABLE HEE; 0BB9 0BC7
+TAMIL SYLLABLE HAI; 0BB9 0BC8
+TAMIL SYLLABLE HO;  0BB9 0BCA
+TAMIL SYLLABLE HOO; 0BB9 0BCB
+TAMIL SYLLABLE HAU; 0BB9 0BCC
+
+TAMIL SYLLABLE KSSA;  0B95 0BCD 0BB7
+TAMIL SYLLABLE KSSAA; 0B95 0BCD 0BB7 0BBE
+TAMIL SYLLABLE KSSI;  0B95 0BCD 0BB7 0BBF
+TAMIL SYLLABLE KSSII; 0B95 0BCD 0BB7 0BC0
+TAMIL SYLLABLE KSSU;  0B95 0BCD 0BB7 0BC1
+TAMIL SYLLABLE KSSUU; 0B95 0BCD 0BB7 0BC2
+TAMIL SYLLABLE KSSE;  0B95 0BCD 0BB7 0BC6
+TAMIL SYLLABLE KSSEE; 0B95 0BCD 0BB7 0BC7
+TAMIL SYLLABLE KSSAI; 0B95 0BCD 0BB7 0BC8
+TAMIL SYLLABLE KSSO;  0B95 0BCD 0BB7 0BCA
+TAMIL SYLLABLE KSSOO; 0B95 0BCD 0BB7 0BCB
+TAMIL SYLLABLE KSSAU; 0B95 0BCD 0BB7 0BCC
+
+TAMIL SYLLABLE SHRII; 0BB6 0BCD 0BB0 0BC0
+
+# Sinhala medial consonants and "reph" form.
+# Provisional 2010-05-13, Approved 2011-08-05
+
+SINHALA CONSONANT SIGN YANSAYA;0DCA 200D 0DBA
+SINHALA CONSONANT SIGN RAKAARAANSAYA;0DCA 200D 0DBB
+SINHALA CONSONANT SIGN REPAYA;0DBB 0DCA 200D
+
+GEORGIAN LETTER U-BRJGU;10E3 0302
+KHMER CONSONANT SIGN COENG KA;17D2 1780
+KHMER CONSONANT SIGN COENG KHA;17D2 1781
+KHMER CONSONANT SIGN COENG KO;17D2 1782
+KHMER CONSONANT SIGN COENG KHO;17D2 1783
+KHMER CONSONANT SIGN COENG NGO;17D2 1784
+KHMER CONSONANT SIGN COENG CA;17D2 1785
+KHMER CONSONANT SIGN COENG CHA;17D2 1786
+KHMER CONSONANT SIGN COENG CO;17D2 1787
+KHMER CONSONANT SIGN COENG CHO;17D2 1788
+KHMER CONSONANT SIGN COENG NYO;17D2 1789
+KHMER CONSONANT SIGN COENG DA;17D2 178A
+KHMER CONSONANT SIGN COENG TTHA;17D2 178B
+KHMER CONSONANT SIGN COENG DO;17D2 178C
+KHMER CONSONANT SIGN COENG TTHO;17D2 178D
+KHMER CONSONANT SIGN COENG NA;17D2 178E
+KHMER CONSONANT SIGN COENG TA;17D2 178F
+KHMER CONSONANT SIGN COENG THA;17D2 1790
+KHMER CONSONANT SIGN COENG TO;17D2 1791
+KHMER CONSONANT SIGN COENG THO;17D2 1792
+KHMER CONSONANT SIGN COENG NO;17D2 1793
+KHMER CONSONANT SIGN COENG BA;17D2 1794
+KHMER CONSONANT SIGN COENG PHA;17D2 1795
+KHMER CONSONANT SIGN COENG PO;17D2 1796
+KHMER CONSONANT SIGN COENG PHO;17D2 1797
+KHMER CONSONANT SIGN COENG MO;17D2 1798
+KHMER CONSONANT SIGN COENG YO;17D2 1799
+KHMER CONSONANT SIGN COENG RO;17D2 179A
+KHMER CONSONANT SIGN COENG LO;17D2 179B
+KHMER CONSONANT SIGN COENG VO;17D2 179C
+KHMER CONSONANT SIGN COENG SHA;17D2 179D
+KHMER CONSONANT SIGN COENG SSA;17D2 179E
+KHMER CONSONANT SIGN COENG SA;17D2 179F
+KHMER CONSONANT SIGN COENG HA;17D2 17A0
+KHMER CONSONANT SIGN COENG LA;17D2 17A1
+KHMER VOWEL SIGN COENG QA;17D2 17A2
+KHMER INDEPENDENT VOWEL SIGN COENG QU;17D2 17A7
+KHMER INDEPENDENT VOWEL SIGN COENG RY;17D2 17AB
+KHMER INDEPENDENT VOWEL SIGN COENG RYY;17D2 17AC
+KHMER INDEPENDENT VOWEL SIGN COENG QE;17D2 17AF
+KHMER VOWEL SIGN OM;17BB 17C6
+KHMER VOWEL SIGN AAM;17B6 17C6
+
+# Entries for JIS X 0213 compatibility mapping.
+# Provisional 2008-11-07, Approved 2010-05-14
+
+HIRAGANA LETTER BIDAKUON NGA;304B 309A
+HIRAGANA LETTER BIDAKUON NGI;304D 309A
+HIRAGANA LETTER BIDAKUON NGU;304F 309A
+HIRAGANA LETTER BIDAKUON NGE;3051 309A
+HIRAGANA LETTER BIDAKUON NGO;3053 309A
+KATAKANA LETTER BIDAKUON NGA;30AB 309A
+KATAKANA LETTER BIDAKUON NGI;30AD 309A
+KATAKANA LETTER BIDAKUON NGU;30AF 309A
+KATAKANA LETTER BIDAKUON NGE;30B1 309A
+KATAKANA LETTER BIDAKUON NGO;30B3 309A
+KATAKANA LETTER AINU CE;30BB 309A
+KATAKANA LETTER AINU TU;30C4 309A
+KATAKANA LETTER AINU TO;30C8 309A
+KATAKANA LETTER AINU P;31F7 309A
+MODIFIER LETTER EXTRA-HIGH EXTRA-LOW CONTOUR TONE BAR;02E5 02E9
+MODIFIER LETTER EXTRA-LOW EXTRA-HIGH CONTOUR TONE BAR;02E9 02E5
+
+# EOF
diff --git a/lib/5.24.1/unicore/SpecialCasing.txt b/lib/5.24.1/unicore/SpecialCasing.txt
new file mode 100644
index 00000000..8de6462f
--- /dev/null
+++ b/lib/5.24.1/unicore/SpecialCasing.txt
@@ -0,0 +1,280 @@
+# SpecialCasing-8.0.0.txt
+# Date: 2014-12-16, 23:08:04 GMT [MD]
+#
+# Unicode Character Database
+# Copyright (c) 1991-2014 Unicode, Inc.
+# For terms of use, see http://www.unicode.org/terms_of_use.html
+# For documentation, see http://www.unicode.org/reports/tr44/
+#
+# Special Casing
+#
+# This file is a supplement to the UnicodeData.txt file. It does not define any
+# properties, but rather provides additional information about the casing of
+# Unicode characters, for situations when casing incurs a change in string length
+# or is dependent on context or locale. For compatibility, the UnicodeData.txt
+# file only contains simple case mappings for characters where they are one-to-one
+# and independent of context and language. The data in this file, combined with
+# the simple case mappings in UnicodeData.txt, defines the full case mappings
+# Lowercase_Mapping (lc), Titlecase_Mapping (tc), and Uppercase_Mapping (uc).
+#
+# Note that the preferred mechanism for defining tailored casing operations is
+# the Unicode Common Locale Data Repository (CLDR). For more information, see the
+# discussion of case mappings and case algorithms in the Unicode Standard.
+#
+# All code points not listed in this file that do not have a simple case mappings
+# in UnicodeData.txt map to themselves.
+# ================================================================================
+# Format
+# ================================================================================
+# The entries in this file are in the following machine-readable format:
+#
+# <code>; <lower>; <title>; <upper>; (<condition_list>;)? # <comment>
+#
+# <code>, <lower>, <title>, and <upper> provide the respective full case mappings
+# of <code>, expressed as character values in hex. If there is more than one character,
+# they are separated by spaces. Other than as used to separate elements, spaces are
+# to be ignored.
+#
+# The <condition_list> is optional. Where present, it consists of one or more language IDs
+# or casing contexts, separated by spaces. In these conditions:
+# - A condition list overrides the normal behavior if all of the listed conditions are true.
+# - The casing context is always the context of the characters in the original string,
+#   NOT in the resulting string.
+# - Case distinctions in the condition list are not significant.
+# - Conditions preceded by "Not_" represent the negation of the condition.
+# The condition list is not represented in the UCD as a formal property.
+#
+# A language ID is defined by BCP 47, with '-' and '_' treated equivalently.
+#
+# A casing context for a character is defined by Section 3.13 Default Case Algorithms
+# of The Unicode Standard.
+#
+# Parsers of this file must be prepared to deal with future additions to this format:
+#  * Additional contexts
+#  * Additional fields
+# ================================================================================
+
+# ================================================================================
+# Unconditional mappings
+# ================================================================================
+
+# The German es-zed is special--the normal mapping is to SS.
+# Note: the titlecase should never occur in practice. It is equal to titlecase(uppercase(<es-zed>))
+
+00DF; 00DF; 0053 0073; 0053 0053; # LATIN SMALL LETTER SHARP S
+
+# Preserve canonical equivalence for I with dot. Turkic is handled below.
+
+0130; 0069 0307; 0130; 0130; # LATIN CAPITAL LETTER I WITH DOT ABOVE
+
+# Ligatures
+
+FB00; FB00; 0046 0066; 0046 0046; # LATIN SMALL LIGATURE FF
+FB01; FB01; 0046 0069; 0046 0049; # LATIN SMALL LIGATURE FI
+FB02; FB02; 0046 006C; 0046 004C; # LATIN SMALL LIGATURE FL
+FB03; FB03; 0046 0066 0069; 0046 0046 0049; # LATIN SMALL LIGATURE FFI
+FB04; FB04; 0046 0066 006C; 0046 0046 004C; # LATIN SMALL LIGATURE FFL
+FB05; FB05; 0053 0074; 0053 0054; # LATIN SMALL LIGATURE LONG S T
+FB06; FB06; 0053 0074; 0053 0054; # LATIN SMALL LIGATURE ST
+
+0587; 0587; 0535 0582; 0535 0552; # ARMENIAN SMALL LIGATURE ECH YIWN
+FB13; FB13; 0544 0576; 0544 0546; # ARMENIAN SMALL LIGATURE MEN NOW
+FB14; FB14; 0544 0565; 0544 0535; # ARMENIAN SMALL LIGATURE MEN ECH
+FB15; FB15; 0544 056B; 0544 053B; # ARMENIAN SMALL LIGATURE MEN INI
+FB16; FB16; 054E 0576; 054E 0546; # ARMENIAN SMALL LIGATURE VEW NOW
+FB17; FB17; 0544 056D; 0544 053D; # ARMENIAN SMALL LIGATURE MEN XEH
+
+# No corresponding uppercase precomposed character
+
+0149; 0149; 02BC 004E; 02BC 004E; # LATIN SMALL LETTER N PRECEDED BY APOSTROPHE
+0390; 0390; 0399 0308 0301; 0399 0308 0301; # GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS
+03B0; 03B0; 03A5 0308 0301; 03A5 0308 0301; # GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS
+01F0; 01F0; 004A 030C; 004A 030C; # LATIN SMALL LETTER J WITH CARON
+1E96; 1E96; 0048 0331; 0048 0331; # LATIN SMALL LETTER H WITH LINE BELOW
+1E97; 1E97; 0054 0308; 0054 0308; # LATIN SMALL LETTER T WITH DIAERESIS
+1E98; 1E98; 0057 030A; 0057 030A; # LATIN SMALL LETTER W WITH RING ABOVE
+1E99; 1E99; 0059 030A; 0059 030A; # LATIN SMALL LETTER Y WITH RING ABOVE
+1E9A; 1E9A; 0041 02BE; 0041 02BE; # LATIN SMALL LETTER A WITH RIGHT HALF RING
+1F50; 1F50; 03A5 0313; 03A5 0313; # GREEK SMALL LETTER UPSILON WITH PSILI
+1F52; 1F52; 03A5 0313 0300; 03A5 0313 0300; # GREEK SMALL LETTER UPSILON WITH PSILI AND VARIA
+1F54; 1F54; 03A5 0313 0301; 03A5 0313 0301; # GREEK SMALL LETTER UPSILON WITH PSILI AND OXIA
+1F56; 1F56; 03A5 0313 0342; 03A5 0313 0342; # GREEK SMALL LETTER UPSILON WITH PSILI AND PERISPOMENI
+1FB6; 1FB6; 0391 0342; 0391 0342; # GREEK SMALL LETTER ALPHA WITH PERISPOMENI
+1FC6; 1FC6; 0397 0342; 0397 0342; # GREEK SMALL LETTER ETA WITH PERISPOMENI
+1FD2; 1FD2; 0399 0308 0300; 0399 0308 0300; # GREEK SMALL LETTER IOTA WITH DIALYTIKA AND VARIA
+1FD3; 1FD3; 0399 0308 0301; 0399 0308 0301; # GREEK SMALL LETTER IOTA WITH DIALYTIKA AND OXIA
+1FD6; 1FD6; 0399 0342; 0399 0342; # GREEK SMALL LETTER IOTA WITH PERISPOMENI
+1FD7; 1FD7; 0399 0308 0342; 0399 0308 0342; # GREEK SMALL LETTER IOTA WITH DIALYTIKA AND PERISPOMENI
+1FE2; 1FE2; 03A5 0308 0300; 03A5 0308 0300; # GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND VARIA
+1FE3; 1FE3; 03A5 0308 0301; 03A5 0308 0301; # GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND OXIA
+1FE4; 1FE4; 03A1 0313; 03A1 0313; # GREEK SMALL LETTER RHO WITH PSILI
+1FE6; 1FE6; 03A5 0342; 03A5 0342; # GREEK SMALL LETTER UPSILON WITH PERISPOMENI
+1FE7; 1FE7; 03A5 0308 0342; 03A5 0308 0342; # GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND PERISPOMENI
+1FF6; 1FF6; 03A9 0342; 03A9 0342; # GREEK SMALL LETTER OMEGA WITH PERISPOMENI
+
+# IMPORTANT-when iota-subscript (0345) is uppercased or titlecased,
+#  the result will be incorrect unless the iota-subscript is moved to the end
+#  of any sequence of combining marks. Otherwise, the accents will go on the capital iota.
+#  This process can be achieved by first transforming the text to NFC before casing.
+#  E.g. <alpha><iota_subscript><acute> is uppercased to <ALPHA><acute><IOTA>
+
+# The following cases are already in the UnicodeData.txt file, so are only commented here.
+
+# 0345; 0345; 0345; 0399; # COMBINING GREEK YPOGEGRAMMENI
+
+# All letters with YPOGEGRAMMENI (iota-subscript) or PROSGEGRAMMENI (iota adscript)
+# have special uppercases.
+# Note: characters with PROSGEGRAMMENI are actually titlecase, not uppercase!
+
+1F80; 1F80; 1F88; 1F08 0399; # GREEK SMALL LETTER ALPHA WITH PSILI AND YPOGEGRAMMENI
+1F81; 1F81; 1F89; 1F09 0399; # GREEK SMALL LETTER ALPHA WITH DASIA AND YPOGEGRAMMENI
+1F82; 1F82; 1F8A; 1F0A 0399; # GREEK SMALL LETTER ALPHA WITH PSILI AND VARIA AND YPOGEGRAMMENI
+1F83; 1F83; 1F8B; 1F0B 0399; # GREEK SMALL LETTER ALPHA WITH DASIA AND VARIA AND YPOGEGRAMMENI
+1F84; 1F84; 1F8C; 1F0C 0399; # GREEK SMALL LETTER ALPHA WITH PSILI AND OXIA AND YPOGEGRAMMENI
+1F85; 1F85; 1F8D; 1F0D 0399; # GREEK SMALL LETTER ALPHA WITH DASIA AND OXIA AND YPOGEGRAMMENI
+1F86; 1F86; 1F8E; 1F0E 0399; # GREEK SMALL LETTER ALPHA WITH PSILI AND PERISPOMENI AND YPOGEGRAMMENI
+1F87; 1F87; 1F8F; 1F0F 0399; # GREEK SMALL LETTER ALPHA WITH DASIA AND PERISPOMENI AND YPOGEGRAMMENI
+1F88; 1F80; 1F88; 1F08 0399; # GREEK CAPITAL LETTER ALPHA WITH PSILI AND PROSGEGRAMMENI
+1F89; 1F81; 1F89; 1F09 0399; # GREEK CAPITAL LETTER ALPHA WITH DASIA AND PROSGEGRAMMENI
+1F8A; 1F82; 1F8A; 1F0A 0399; # GREEK CAPITAL LETTER ALPHA WITH PSILI AND VARIA AND PROSGEGRAMMENI
+1F8B; 1F83; 1F8B; 1F0B 0399; # GREEK CAPITAL LETTER ALPHA WITH DASIA AND VARIA AND PROSGEGRAMMENI
+1F8C; 1F84; 1F8C; 1F0C 0399; # GREEK CAPITAL LETTER ALPHA WITH PSILI AND OXIA AND PROSGEGRAMMENI
+1F8D; 1F85; 1F8D; 1F0D 0399; # GREEK CAPITAL LETTER ALPHA WITH DASIA AND OXIA AND PROSGEGRAMMENI
+1F8E; 1F86; 1F8E; 1F0E 0399; # GREEK CAPITAL LETTER ALPHA WITH PSILI AND PERISPOMENI AND PROSGEGRAMMENI
+1F8F; 1F87; 1F8F; 1F0F 0399; # GREEK CAPITAL LETTER ALPHA WITH DASIA AND PERISPOMENI AND PROSGEGRAMMENI
+1F90; 1F90; 1F98; 1F28 0399; # GREEK SMALL LETTER ETA WITH PSILI AND YPOGEGRAMMENI
+1F91; 1F91; 1F99; 1F29 0399; # GREEK SMALL LETTER ETA WITH DASIA AND YPOGEGRAMMENI
+1F92; 1F92; 1F9A; 1F2A 0399; # GREEK SMALL LETTER ETA WITH PSILI AND VARIA AND YPOGEGRAMMENI
+1F93; 1F93; 1F9B; 1F2B 0399; # GREEK SMALL LETTER ETA WITH DASIA AND VARIA AND YPOGEGRAMMENI
+1F94; 1F94; 1F9C; 1F2C 0399; # GREEK SMALL LETTER ETA WITH PSILI AND OXIA AND YPOGEGRAMMENI
+1F95; 1F95; 1F9D; 1F2D 0399; # GREEK SMALL LETTER ETA WITH DASIA AND OXIA AND YPOGEGRAMMENI
+1F96; 1F96; 1F9E; 1F2E 0399; # GREEK SMALL LETTER ETA WITH PSILI AND PERISPOMENI AND YPOGEGRAMMENI
+1F97; 1F97; 1F9F; 1F2F 0399; # GREEK SMALL LETTER ETA WITH DASIA AND PERISPOMENI AND YPOGEGRAMMENI
+1F98; 1F90; 1F98; 1F28 0399; # GREEK CAPITAL LETTER ETA WITH PSILI AND PROSGEGRAMMENI
+1F99; 1F91; 1F99; 1F29 0399; # GREEK CAPITAL LETTER ETA WITH DASIA AND PROSGEGRAMMENI
+1F9A; 1F92; 1F9A; 1F2A 0399; # GREEK CAPITAL LETTER ETA WITH PSILI AND VARIA AND PROSGEGRAMMENI
+1F9B; 1F93; 1F9B; 1F2B 0399; # GREEK CAPITAL LETTER ETA WITH DASIA AND VARIA AND PROSGEGRAMMENI
+1F9C; 1F94; 1F9C; 1F2C 0399; # GREEK CAPITAL LETTER ETA WITH PSILI AND OXIA AND PROSGEGRAMMENI
+1F9D; 1F95; 1F9D; 1F2D 0399; # GREEK CAPITAL LETTER ETA WITH DASIA AND OXIA AND PROSGEGRAMMENI
+1F9E; 1F96; 1F9E; 1F2E 0399; # GREEK CAPITAL LETTER ETA WITH PSILI AND PERISPOMENI AND PROSGEGRAMMENI
+1F9F; 1F97; 1F9F; 1F2F 0399; # GREEK CAPITAL LETTER ETA WITH DASIA AND PERISPOMENI AND PROSGEGRAMMENI
+1FA0; 1FA0; 1FA8; 1F68 0399; # GREEK SMALL LETTER OMEGA WITH PSILI AND YPOGEGRAMMENI
+1FA1; 1FA1; 1FA9; 1F69 0399; # GREEK SMALL LETTER OMEGA WITH DASIA AND YPOGEGRAMMENI
+1FA2; 1FA2; 1FAA; 1F6A 0399; # GREEK SMALL LETTER OMEGA WITH PSILI AND VARIA AND YPOGEGRAMMENI
+1FA3; 1FA3; 1FAB; 1F6B 0399; # GREEK SMALL LETTER OMEGA WITH DASIA AND VARIA AND YPOGEGRAMMENI
+1FA4; 1FA4; 1FAC; 1F6C 0399; # GREEK SMALL LETTER OMEGA WITH PSILI AND OXIA AND YPOGEGRAMMENI
+1FA5; 1FA5; 1FAD; 1F6D 0399; # GREEK SMALL LETTER OMEGA WITH DASIA AND OXIA AND YPOGEGRAMMENI
+1FA6; 1FA6; 1FAE; 1F6E 0399; # GREEK SMALL LETTER OMEGA WITH PSILI AND PERISPOMENI AND YPOGEGRAMMENI
+1FA7; 1FA7; 1FAF; 1F6F 0399; # GREEK SMALL LETTER OMEGA WITH DASIA AND PERISPOMENI AND YPOGEGRAMMENI
+1FA8; 1FA0; 1FA8; 1F68 0399; # GREEK CAPITAL LETTER OMEGA WITH PSILI AND PROSGEGRAMMENI
+1FA9; 1FA1; 1FA9; 1F69 0399; # GREEK CAPITAL LETTER OMEGA WITH DASIA AND PROSGEGRAMMENI
+1FAA; 1FA2; 1FAA; 1F6A 0399; # GREEK CAPITAL LETTER OMEGA WITH PSILI AND VARIA AND PROSGEGRAMMENI
+1FAB; 1FA3; 1FAB; 1F6B 0399; # GREEK CAPITAL LETTER OMEGA WITH DASIA AND VARIA AND PROSGEGRAMMENI
+1FAC; 1FA4; 1FAC; 1F6C 0399; # GREEK CAPITAL LETTER OMEGA WITH PSILI AND OXIA AND PROSGEGRAMMENI
+1FAD; 1FA5; 1FAD; 1F6D 0399; # GREEK CAPITAL LETTER OMEGA WITH DASIA AND OXIA AND PROSGEGRAMMENI
+1FAE; 1FA6; 1FAE; 1F6E 0399; # GREEK CAPITAL LETTER OMEGA WITH PSILI AND PERISPOMENI AND PROSGEGRAMMENI
+1FAF; 1FA7; 1FAF; 1F6F 0399; # GREEK CAPITAL LETTER OMEGA WITH DASIA AND PERISPOMENI AND PROSGEGRAMMENI
+1FB3; 1FB3; 1FBC; 0391 0399; # GREEK SMALL LETTER ALPHA WITH YPOGEGRAMMENI
+1FBC; 1FB3; 1FBC; 0391 0399; # GREEK CAPITAL LETTER ALPHA WITH PROSGEGRAMMENI
+1FC3; 1FC3; 1FCC; 0397 0399; # GREEK SMALL LETTER ETA WITH YPOGEGRAMMENI
+1FCC; 1FC3; 1FCC; 0397 0399; # GREEK CAPITAL LETTER ETA WITH PROSGEGRAMMENI
+1FF3; 1FF3; 1FFC; 03A9 0399; # GREEK SMALL LETTER OMEGA WITH YPOGEGRAMMENI
+1FFC; 1FF3; 1FFC; 03A9 0399; # GREEK CAPITAL LETTER OMEGA WITH PROSGEGRAMMENI
+
+# Some characters with YPOGEGRAMMENI also have no corresponding titlecases
+
+1FB2; 1FB2; 1FBA 0345; 1FBA 0399; # GREEK SMALL LETTER ALPHA WITH VARIA AND YPOGEGRAMMENI
+1FB4; 1FB4; 0386 0345; 0386 0399; # GREEK SMALL LETTER ALPHA WITH OXIA AND YPOGEGRAMMENI
+1FC2; 1FC2; 1FCA 0345; 1FCA 0399; # GREEK SMALL LETTER ETA WITH VARIA AND YPOGEGRAMMENI
+1FC4; 1FC4; 0389 0345; 0389 0399; # GREEK SMALL LETTER ETA WITH OXIA AND YPOGEGRAMMENI
+1FF2; 1FF2; 1FFA 0345; 1FFA 0399; # GREEK SMALL LETTER OMEGA WITH VARIA AND YPOGEGRAMMENI
+1FF4; 1FF4; 038F 0345; 038F 0399; # GREEK SMALL LETTER OMEGA WITH OXIA AND YPOGEGRAMMENI
+
+1FB7; 1FB7; 0391 0342 0345; 0391 0342 0399; # GREEK SMALL LETTER ALPHA WITH PERISPOMENI AND YPOGEGRAMMENI
+1FC7; 1FC7; 0397 0342 0345; 0397 0342 0399; # GREEK SMALL LETTER ETA WITH PERISPOMENI AND YPOGEGRAMMENI
+1FF7; 1FF7; 03A9 0342 0345; 03A9 0342 0399; # GREEK SMALL LETTER OMEGA WITH PERISPOMENI AND YPOGEGRAMMENI
+
+# ================================================================================
+# Conditional Mappings
+# The remainder of this file provides conditional casing data used to produce 
+# full case mappings.
+# ================================================================================
+# Language-Insensitive Mappings
+# These are characters whose full case mappings do not depend on language, but do
+# depend on context (which characters come before or after). For more information
+# see the header of this file and the Unicode Standard.
+# ================================================================================
+
+# Special case for final form of sigma
+
+03A3; 03C2; 03A3; 03A3; Final_Sigma; # GREEK CAPITAL LETTER SIGMA
+
+# Note: the following cases for non-final are already in the UnicodeData.txt file.
+
+# 03A3; 03C3; 03A3; 03A3; # GREEK CAPITAL LETTER SIGMA
+# 03C3; 03C3; 03A3; 03A3; # GREEK SMALL LETTER SIGMA
+# 03C2; 03C2; 03A3; 03A3; # GREEK SMALL LETTER FINAL SIGMA
+
+# Note: the following cases are not included, since they would case-fold in lowercasing
+
+# 03C3; 03C2; 03A3; 03A3; Final_Sigma; # GREEK SMALL LETTER SIGMA
+# 03C2; 03C3; 03A3; 03A3; Not_Final_Sigma; # GREEK SMALL LETTER FINAL SIGMA
+
+# ================================================================================
+# Language-Sensitive Mappings
+# These are characters whose full case mappings depend on language and perhaps also
+# context (which characters come before or after). For more information
+# see the header of this file and the Unicode Standard.
+# ================================================================================
+
+# Lithuanian
+
+# Lithuanian retains the dot in a lowercase i when followed by accents.
+
+# Remove DOT ABOVE after "i" with upper or titlecase
+
+0307; 0307; ; ; lt After_Soft_Dotted; # COMBINING DOT ABOVE
+
+# Introduce an explicit dot above when lowercasing capital I's and J's
+# whenever there are more accents above.
+# (of the accents used in Lithuanian: grave, acute, tilde above, and ogonek)
+
+0049; 0069 0307; 0049; 0049; lt More_Above; # LATIN CAPITAL LETTER I
+004A; 006A 0307; 004A; 004A; lt More_Above; # LATIN CAPITAL LETTER J
+012E; 012F 0307; 012E; 012E; lt More_Above; # LATIN CAPITAL LETTER I WITH OGONEK
+00CC; 0069 0307 0300; 00CC; 00CC; lt; # LATIN CAPITAL LETTER I WITH GRAVE
+00CD; 0069 0307 0301; 00CD; 00CD; lt; # LATIN CAPITAL LETTER I WITH ACUTE
+0128; 0069 0307 0303; 0128; 0128; lt; # LATIN CAPITAL LETTER I WITH TILDE
+
+# ================================================================================
+
+# Turkish and Azeri
+
+# I and i-dotless; I-dot and i are case pairs in Turkish and Azeri
+# The following rules handle those cases.
+
+0130; 0069; 0130; 0130; tr; # LATIN CAPITAL LETTER I WITH DOT ABOVE
+0130; 0069; 0130; 0130; az; # LATIN CAPITAL LETTER I WITH DOT ABOVE
+
+# When lowercasing, remove dot_above in the sequence I + dot_above, which will turn into i.
+# This matches the behavior of the canonically equivalent I-dot_above
+
+0307; ; 0307; 0307; tr After_I; # COMBINING DOT ABOVE
+0307; ; 0307; 0307; az After_I; # COMBINING DOT ABOVE
+
+# When lowercasing, unless an I is before a dot_above, it turns into a dotless i.
+
+0049; 0131; 0049; 0049; tr Not_Before_Dot; # LATIN CAPITAL LETTER I
+0049; 0131; 0049; 0049; az Not_Before_Dot; # LATIN CAPITAL LETTER I
+
+# When uppercasing, i turns into a dotted capital I
+
+0069; 0069; 0130; 0130; tr; # LATIN SMALL LETTER I
+0069; 0069; 0130; 0130; az; # LATIN SMALL LETTER I
+
+# Note: the following case is already in the UnicodeData.txt file.
+
+# 0131; 0131; 0049; 0049; tr; # LATIN SMALL LETTER DOTLESS I
+
+# EOF
+
diff --git a/lib/5.24.1/unicore/To/Age.pl b/lib/5.24.1/unicore/To/Age.pl
new file mode 100644
index 00000000..d87172a5
--- /dev/null
+++ b/lib/5.24.1/unicore/To/Age.pl
@@ -0,0 +1,1330 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToAge'}{'format'} = 'f'; # floating point number
+$utf8::SwashInfo{'ToAge'}{'missing'} = 'Unassigned';
+
+return <<'END';
+0	1F5	1.1
+1F6	1F9	3.0
+1FA	217	1.1
+218	21F	3.0
+220		3.2
+221		4.0
+222	233	3.0
+234	236	4.0
+237	241	4.1
+242	24F	5.0
+250	2A8	1.1
+2A9	2AD	3.0
+2AE	2AF	4.0
+2B0	2DE	1.1
+2DF		3.0
+2E0	2E9	1.1
+2EA	2EE	3.0
+2EF	2FF	4.0
+300	345	1.1
+346	34E	3.0
+34F		3.2
+350	357	4.0
+358	35C	4.1
+35D	35F	4.0
+360	361	1.1
+362		3.0
+363	36F	3.2
+370	373	5.1
+374	375	1.1
+376	377	5.1
+37A		1.1
+37B	37D	5.0
+37E		1.1
+37F		7.0
+384	38A	1.1
+38C		1.1
+38E	3A1	1.1
+3A3	3CE	1.1
+3CF		5.1
+3D0	3D6	1.1
+3D7		3.0
+3D8	3D9	3.2
+3DA		1.1
+3DB		3.0
+3DC		1.1
+3DD		3.0
+3DE		1.1
+3DF		3.0
+3E0		1.1
+3E1		3.0
+3E2	3F3	1.1
+3F4	3F5	3.1
+3F6		3.2
+3F7	3FB	4.0
+3FC	3FF	4.1
+400		3.0
+401	40C	1.1
+40D		3.0
+40E	44F	1.1
+450		3.0
+451	45C	1.1
+45D		3.0
+45E	486	1.1
+487		5.1
+488	489	3.0
+48A	48B	3.2
+48C	48F	3.0
+490	4C4	1.1
+4C5	4C6	3.2
+4C7	4C8	1.1
+4C9	4CA	3.2
+4CB	4CC	1.1
+4CD	4CE	3.2
+4CF		5.0
+4D0	4EB	1.1
+4EC	4ED	3.0
+4EE	4F5	1.1
+4F6	4F7	4.1
+4F8	4F9	1.1
+4FA	4FF	5.0
+500	50F	3.2
+510	513	5.0
+514	523	5.1
+524	525	5.2
+526	527	6.0
+528	52F	7.0
+531	556	1.1
+559	55F	1.1
+561	587	1.1
+589		1.1
+58A		3.0
+58D	58E	7.0
+58F		6.1
+591	5A1	2.0
+5A2		4.1
+5A3	5AF	2.0
+5B0	5B9	1.1
+5BA		5.0
+5BB	5C3	1.1
+5C4		2.0
+5C5	5C7	4.1
+5D0	5EA	1.1
+5F0	5F4	1.1
+600	603	4.0
+604		6.1
+605		7.0
+606	60A	5.1
+60B		4.1
+60C		1.1
+60D	615	4.0
+616	61A	5.1
+61B		1.1
+61C		6.3
+61E		4.1
+61F		1.1
+620		6.0
+621	63A	1.1
+63B	63F	5.1
+640	652	1.1
+653	655	3.0
+656	658	4.0
+659	65E	4.1
+65F		6.0
+660	66D	1.1
+66E	66F	3.2
+670	6B7	1.1
+6B8	6B9	3.0
+6BA	6BE	1.1
+6BF		3.0
+6C0	6CE	1.1
+6CF		3.0
+6D0	6ED	1.1
+6EE	6EF	4.0
+6F0	6F9	1.1
+6FA	6FE	3.0
+6FF		4.0
+700	70D	3.0
+70F	72C	3.0
+72D	72F	4.0
+730	74A	3.0
+74D	74F	4.0
+750	76D	4.1
+76E	77F	5.1
+780	7B0	3.0
+7B1		3.2
+7C0	7FA	5.0
+800	82D	5.2
+830	83E	5.2
+840	85B	6.0
+85E		6.0
+8A0		6.1
+8A1		7.0
+8A2	8AC	6.1
+8AD	8B2	7.0
+8B3	8B4	8.0
+8E3		8.0
+8E4	8FE	6.1
+8FF		7.0
+900		5.2
+901	903	1.1
+904		4.0
+905	939	1.1
+93A	93B	6.0
+93C	94D	1.1
+94E		5.2
+94F		6.0
+950	954	1.1
+955		5.2
+956	957	6.0
+958	970	1.1
+971	972	5.1
+973	977	6.0
+978		7.0
+979	97A	5.2
+97B	97C	5.0
+97D		4.1
+97E	97F	5.0
+980		7.0
+981	983	1.1
+985	98C	1.1
+98F	990	1.1
+993	9A8	1.1
+9AA	9B0	1.1
+9B2		1.1
+9B6	9B9	1.1
+9BC		1.1
+9BD		4.0
+9BE	9C4	1.1
+9C7	9C8	1.1
+9CB	9CD	1.1
+9CE		4.1
+9D7		1.1
+9DC	9DD	1.1
+9DF	9E3	1.1
+9E6	9FA	1.1
+9FB		5.2
+A01		4.0
+A02		1.1
+A03		4.0
+A05	A0A	1.1
+A0F	A10	1.1
+A13	A28	1.1
+A2A	A30	1.1
+A32	A33	1.1
+A35	A36	1.1
+A38	A39	1.1
+A3C		1.1
+A3E	A42	1.1
+A47	A48	1.1
+A4B	A4D	1.1
+A51		5.1
+A59	A5C	1.1
+A5E		1.1
+A66	A74	1.1
+A75		5.1
+A81	A83	1.1
+A85	A8B	1.1
+A8C		4.0
+A8D		1.1
+A8F	A91	1.1
+A93	AA8	1.1
+AAA	AB0	1.1
+AB2	AB3	1.1
+AB5	AB9	1.1
+ABC	AC5	1.1
+AC7	AC9	1.1
+ACB	ACD	1.1
+AD0		1.1
+AE0		1.1
+AE1	AE3	4.0
+AE6	AEF	1.1
+AF0		6.1
+AF1		4.0
+AF9		8.0
+B01	B03	1.1
+B05	B0C	1.1
+B0F	B10	1.1
+B13	B28	1.1
+B2A	B30	1.1
+B32	B33	1.1
+B35		4.0
+B36	B39	1.1
+B3C	B43	1.1
+B44		5.1
+B47	B48	1.1
+B4B	B4D	1.1
+B56	B57	1.1
+B5C	B5D	1.1
+B5F	B61	1.1
+B62	B63	5.1
+B66	B70	1.1
+B71		4.0
+B72	B77	6.0
+B82	B83	1.1
+B85	B8A	1.1
+B8E	B90	1.1
+B92	B95	1.1
+B99	B9A	1.1
+B9C		1.1
+B9E	B9F	1.1
+BA3	BA4	1.1
+BA8	BAA	1.1
+BAE	BB5	1.1
+BB6		4.1
+BB7	BB9	1.1
+BBE	BC2	1.1
+BC6	BC8	1.1
+BCA	BCD	1.1
+BD0		5.1
+BD7		1.1
+BE6		4.1
+BE7	BF2	1.1
+BF3	BFA	4.0
+C00		7.0
+C01	C03	1.1
+C05	C0C	1.1
+C0E	C10	1.1
+C12	C28	1.1
+C2A	C33	1.1
+C34		7.0
+C35	C39	1.1
+C3D		5.1
+C3E	C44	1.1
+C46	C48	1.1
+C4A	C4D	1.1
+C55	C56	1.1
+C58	C59	5.1
+C5A		8.0
+C60	C61	1.1
+C62	C63	5.1
+C66	C6F	1.1
+C78	C7F	5.1
+C81		7.0
+C82	C83	1.1
+C85	C8C	1.1
+C8E	C90	1.1
+C92	CA8	1.1
+CAA	CB3	1.1
+CB5	CB9	1.1
+CBC	CBD	4.0
+CBE	CC4	1.1
+CC6	CC8	1.1
+CCA	CCD	1.1
+CD5	CD6	1.1
+CDE		1.1
+CE0	CE1	1.1
+CE2	CE3	5.0
+CE6	CEF	1.1
+CF1	CF2	5.0
+D01		7.0
+D02	D03	1.1
+D05	D0C	1.1
+D0E	D10	1.1
+D12	D28	1.1
+D29		6.0
+D2A	D39	1.1
+D3A		6.0
+D3D		5.1
+D3E	D43	1.1
+D44		5.1
+D46	D48	1.1
+D4A	D4D	1.1
+D4E		6.0
+D57		1.1
+D5F		8.0
+D60	D61	1.1
+D62	D63	5.1
+D66	D6F	1.1
+D70	D75	5.1
+D79	D7F	5.1
+D82	D83	3.0
+D85	D96	3.0
+D9A	DB1	3.0
+DB3	DBB	3.0
+DBD		3.0
+DC0	DC6	3.0
+DCA		3.0
+DCF	DD4	3.0
+DD6		3.0
+DD8	DDF	3.0
+DE6	DEF	7.0
+DF2	DF4	3.0
+E01	E3A	1.1
+E3F	E5B	1.1
+E81	E82	1.1
+E84		1.1
+E87	E88	1.1
+E8A		1.1
+E8D		1.1
+E94	E97	1.1
+E99	E9F	1.1
+EA1	EA3	1.1
+EA5		1.1
+EA7		1.1
+EAA	EAB	1.1
+EAD	EB9	1.1
+EBB	EBD	1.1
+EC0	EC4	1.1
+EC6		1.1
+EC8	ECD	1.1
+ED0	ED9	1.1
+EDC	EDD	1.1
+EDE	EDF	6.1
+F00	F47	2.0
+F49	F69	2.0
+F6A		3.0
+F6B	F6C	5.1
+F71	F8B	2.0
+F8C	F8F	6.0
+F90	F95	2.0
+F96		3.0
+F97		2.0
+F99	FAD	2.0
+FAE	FB0	3.0
+FB1	FB7	2.0
+FB8		3.0
+FB9		2.0
+FBA	FBC	3.0
+FBE	FCC	3.0
+FCE		5.1
+FCF		3.0
+FD0	FD1	4.1
+FD2	FD4	5.1
+FD5	FD8	5.2
+FD9	FDA	6.0
+1000	1021	3.0
+1022		5.1
+1023	1027	3.0
+1028		5.1
+1029	102A	3.0
+102B		5.1
+102C	1032	3.0
+1033	1035	5.1
+1036	1039	3.0
+103A	103F	5.1
+1040	1059	3.0
+105A	1099	5.1
+109A	109D	5.2
+109E	109F	5.1
+10A0	10C5	1.1
+10C7		6.1
+10CD		6.1
+10D0	10F6	1.1
+10F7	10F8	3.2
+10F9	10FA	4.1
+10FB		1.1
+10FC		4.1
+10FD	10FF	6.1
+1100	1159	1.1
+115A	115E	5.2
+115F	11A2	1.1
+11A3	11A7	5.2
+11A8	11F9	1.1
+11FA	11FF	5.2
+1200	1206	3.0
+1207		4.1
+1208	1246	3.0
+1247		4.1
+1248		3.0
+124A	124D	3.0
+1250	1256	3.0
+1258		3.0
+125A	125D	3.0
+1260	1286	3.0
+1287		4.1
+1288		3.0
+128A	128D	3.0
+1290	12AE	3.0
+12AF		4.1
+12B0		3.0
+12B2	12B5	3.0
+12B8	12BE	3.0
+12C0		3.0
+12C2	12C5	3.0
+12C8	12CE	3.0
+12CF		4.1
+12D0	12D6	3.0
+12D8	12EE	3.0
+12EF		4.1
+12F0	130E	3.0
+130F		4.1
+1310		3.0
+1312	1315	3.0
+1318	131E	3.0
+131F		4.1
+1320	1346	3.0
+1347		4.1
+1348	135A	3.0
+135D	135E	6.0
+135F	1360	4.1
+1361	137C	3.0
+1380	1399	4.1
+13A0	13F4	3.0
+13F5		8.0
+13F8	13FD	8.0
+1400		5.2
+1401	1676	3.0
+1677	167F	5.2
+1680	169C	3.0
+16A0	16F0	3.0
+16F1	16F8	7.0
+1700	170C	3.2
+170E	1714	3.2
+1720	1736	3.2
+1740	1753	3.2
+1760	176C	3.2
+176E	1770	3.2
+1772	1773	3.2
+1780	17DC	3.0
+17DD		4.0
+17E0	17E9	3.0
+17F0	17F9	4.0
+1800	180E	3.0
+1810	1819	3.0
+1820	1877	3.0
+1880	18A9	3.0
+18AA		5.1
+18B0	18F5	5.2
+1900	191C	4.0
+191D	191E	7.0
+1920	192B	4.0
+1930	193B	4.0
+1940		4.0
+1944	196D	4.0
+1970	1974	4.0
+1980	19A9	4.1
+19AA	19AB	5.2
+19B0	19C9	4.1
+19D0	19D9	4.1
+19DA		5.2
+19DE	19DF	4.1
+19E0	19FF	4.0
+1A00	1A1B	4.1
+1A1E	1A1F	4.1
+1A20	1A5E	5.2
+1A60	1A7C	5.2
+1A7F	1A89	5.2
+1A90	1A99	5.2
+1AA0	1AAD	5.2
+1AB0	1ABE	7.0
+1B00	1B4B	5.0
+1B50	1B7C	5.0
+1B80	1BAA	5.1
+1BAB	1BAD	6.1
+1BAE	1BB9	5.1
+1BBA	1BBF	6.1
+1BC0	1BF3	6.0
+1BFC	1BFF	6.0
+1C00	1C37	5.1
+1C3B	1C49	5.1
+1C4D	1C7F	5.1
+1CC0	1CC7	6.1
+1CD0	1CF2	5.2
+1CF3	1CF6	6.1
+1CF8	1CF9	7.0
+1D00	1D6B	4.0
+1D6C	1DC3	4.1
+1DC4	1DCA	5.0
+1DCB	1DE6	5.1
+1DE7	1DF5	7.0
+1DFC		6.0
+1DFD		5.2
+1DFE	1DFF	5.0
+1E00	1E9A	1.1
+1E9B		2.0
+1E9C	1E9F	5.1
+1EA0	1EF9	1.1
+1EFA	1EFF	5.1
+1F00	1F15	1.1
+1F18	1F1D	1.1
+1F20	1F45	1.1
+1F48	1F4D	1.1
+1F50	1F57	1.1
+1F59		1.1
+1F5B		1.1
+1F5D		1.1
+1F5F	1F7D	1.1
+1F80	1FB4	1.1
+1FB6	1FC4	1.1
+1FC6	1FD3	1.1
+1FD6	1FDB	1.1
+1FDD	1FEF	1.1
+1FF2	1FF4	1.1
+1FF6	1FFE	1.1
+2000	202E	1.1
+202F		3.0
+2030	2046	1.1
+2047		3.2
+2048	204D	3.0
+204E	2052	3.2
+2053	2054	4.0
+2055	2056	4.1
+2057		3.2
+2058	205E	4.1
+205F	2063	3.2
+2064		5.1
+2066	2069	6.3
+206A	2070	1.1
+2071		3.2
+2074	208E	1.1
+2090	2094	4.1
+2095	209C	6.0
+20A0	20AA	1.1
+20AB		2.0
+20AC		2.1
+20AD	20AF	3.0
+20B0	20B1	3.2
+20B2	20B5	4.1
+20B6	20B8	5.2
+20B9		6.0
+20BA		6.2
+20BB	20BD	7.0
+20BE		8.0
+20D0	20E1	1.1
+20E2	20E3	3.0
+20E4	20EA	3.2
+20EB		4.1
+20EC	20EF	5.0
+20F0		5.1
+2100	2138	1.1
+2139	213A	3.0
+213B		4.0
+213C		4.1
+213D	214B	3.2
+214C		4.1
+214D	214E	5.0
+214F		5.1
+2150	2152	5.2
+2153	2182	1.1
+2183		3.0
+2184		5.0
+2185	2188	5.1
+2189		5.2
+218A	218B	8.0
+2190	21EA	1.1
+21EB	21F3	3.0
+21F4	21FF	3.2
+2200	22F1	1.1
+22F2	22FF	3.2
+2300		1.1
+2301		3.0
+2302	237A	1.1
+237B		3.0
+237C		3.2
+237D	239A	3.0
+239B	23CE	3.2
+23CF	23D0	4.0
+23D1	23DB	4.1
+23DC	23E7	5.0
+23E8		5.2
+23E9	23F3	6.0
+23F4	23FA	7.0
+2400	2424	1.1
+2425	2426	3.0
+2440	244A	1.1
+2460	24EA	1.1
+24EB	24FE	3.2
+24FF		4.0
+2500	2595	1.1
+2596	259F	3.2
+25A0	25EF	1.1
+25F0	25F7	3.0
+25F8	25FF	3.2
+2600	2613	1.1
+2614	2615	4.0
+2616	2617	3.2
+2618		4.1
+2619		3.0
+261A	266F	1.1
+2670	2671	3.0
+2672	267D	3.2
+267E	267F	4.1
+2680	2689	3.2
+268A	2691	4.0
+2692	269C	4.1
+269D		5.1
+269E	269F	5.2
+26A0	26A1	4.0
+26A2	26B1	4.1
+26B2		5.0
+26B3	26BC	5.1
+26BD	26BF	5.2
+26C0	26C3	5.1
+26C4	26CD	5.2
+26CE		6.0
+26CF	26E1	5.2
+26E2		6.0
+26E3		5.2
+26E4	26E7	6.0
+26E8	26FF	5.2
+2700		7.0
+2701	2704	1.1
+2705		6.0
+2706	2709	1.1
+270A	270B	6.0
+270C	2727	1.1
+2728		6.0
+2729	274B	1.1
+274C		6.0
+274D		1.1
+274E		6.0
+274F	2752	1.1
+2753	2755	6.0
+2756		1.1
+2757		5.2
+2758	275E	1.1
+275F	2760	6.0
+2761	2767	1.1
+2768	2775	3.2
+2776	2794	1.1
+2795	2797	6.0
+2798	27AF	1.1
+27B0		6.0
+27B1	27BE	1.1
+27BF		6.0
+27C0	27C6	4.1
+27C7	27CA	5.0
+27CB		6.1
+27CC		5.1
+27CD		6.1
+27CE	27CF	6.0
+27D0	27EB	3.2
+27EC	27EF	5.1
+27F0	27FF	3.2
+2800	28FF	3.0
+2900	2AFF	3.2
+2B00	2B0D	4.0
+2B0E	2B13	4.1
+2B14	2B1A	5.0
+2B1B	2B1F	5.1
+2B20	2B23	5.0
+2B24	2B4C	5.1
+2B4D	2B4F	7.0
+2B50	2B54	5.1
+2B55	2B59	5.2
+2B5A	2B73	7.0
+2B76	2B95	7.0
+2B98	2BB9	7.0
+2BBD	2BC8	7.0
+2BCA	2BD1	7.0
+2BEC	2BEF	8.0
+2C00	2C2E	4.1
+2C30	2C5E	4.1
+2C60	2C6C	5.0
+2C6D	2C6F	5.1
+2C70		5.2
+2C71	2C73	5.1
+2C74	2C77	5.0
+2C78	2C7D	5.1
+2C7E	2C7F	5.2
+2C80	2CEA	4.1
+2CEB	2CF1	5.2
+2CF2	2CF3	6.1
+2CF9	2D25	4.1
+2D27		6.1
+2D2D		6.1
+2D30	2D65	4.1
+2D66	2D67	6.1
+2D6F		4.1
+2D70		6.0
+2D7F		6.0
+2D80	2D96	4.1
+2DA0	2DA6	4.1
+2DA8	2DAE	4.1
+2DB0	2DB6	4.1
+2DB8	2DBE	4.1
+2DC0	2DC6	4.1
+2DC8	2DCE	4.1
+2DD0	2DD6	4.1
+2DD8	2DDE	4.1
+2DE0	2DFF	5.1
+2E00	2E17	4.1
+2E18	2E1B	5.1
+2E1C	2E1D	4.1
+2E1E	2E30	5.1
+2E31		5.2
+2E32	2E3B	6.1
+2E3C	2E42	7.0
+2E80	2E99	3.0
+2E9B	2EF3	3.0
+2F00	2FD5	3.0
+2FF0	2FFB	3.0
+3000	3037	1.1
+3038	303A	3.0
+303B	303D	3.2
+303E		3.0
+303F		1.1
+3041	3094	1.1
+3095	3096	3.2
+3099	309E	1.1
+309F	30A0	3.2
+30A1	30FE	1.1
+30FF		3.2
+3105	312C	1.1
+312D		5.1
+3131	318E	1.1
+3190	319F	1.1
+31A0	31B7	3.0
+31B8	31BA	6.0
+31C0	31CF	4.1
+31D0	31E3	5.1
+31F0	31FF	3.2
+3200	321C	1.1
+321D	321E	4.0
+3220	3243	1.1
+3244	324F	5.2
+3250		4.0
+3251	325F	3.2
+3260	327B	1.1
+327C	327D	4.0
+327E		4.1
+327F	32B0	1.1
+32B1	32BF	3.2
+32C0	32CB	1.1
+32CC	32CF	4.0
+32D0	32FE	1.1
+3300	3376	1.1
+3377	337A	4.0
+337B	33DD	1.1
+33DE	33DF	4.0
+33E0	33FE	1.1
+33FF		4.0
+3400	4DB5	3.0
+4DC0	4DFF	4.0
+4E00	9FA5	1.1
+9FA6	9FBB	4.1
+9FBC	9FC3	5.1
+9FC4	9FCB	5.2
+9FCC		6.1
+9FCD	9FD5	8.0
+A000	A48C	3.0
+A490	A4A1	3.0
+A4A2	A4A3	3.2
+A4A4	A4B3	3.0
+A4B4		3.2
+A4B5	A4C0	3.0
+A4C1		3.2
+A4C2	A4C4	3.0
+A4C5		3.2
+A4C6		3.0
+A4D0	A4FF	5.2
+A500	A62B	5.1
+A640	A65F	5.1
+A660	A661	6.0
+A662	A673	5.1
+A674	A67B	6.1
+A67C	A697	5.1
+A698	A69D	7.0
+A69E		8.0
+A69F		6.1
+A6A0	A6F7	5.2
+A700	A716	4.1
+A717	A71A	5.0
+A71B	A71F	5.1
+A720	A721	5.0
+A722	A78C	5.1
+A78D	A78E	6.0
+A78F		8.0
+A790	A791	6.0
+A792	A793	6.1
+A794	A79F	7.0
+A7A0	A7A9	6.0
+A7AA		6.1
+A7AB	A7AD	7.0
+A7B0	A7B1	7.0
+A7B2	A7B7	8.0
+A7F7		7.0
+A7F8	A7F9	6.1
+A7FA		6.0
+A7FB	A7FF	5.1
+A800	A82B	4.1
+A830	A839	5.2
+A840	A877	5.0
+A880	A8C4	5.1
+A8CE	A8D9	5.1
+A8E0	A8FB	5.2
+A8FC	A8FD	8.0
+A900	A953	5.1
+A95F		5.1
+A960	A97C	5.2
+A980	A9CD	5.2
+A9CF	A9D9	5.2
+A9DE	A9DF	5.2
+A9E0	A9FE	7.0
+AA00	AA36	5.1
+AA40	AA4D	5.1
+AA50	AA59	5.1
+AA5C	AA5F	5.1
+AA60	AA7B	5.2
+AA7C	AA7F	7.0
+AA80	AAC2	5.2
+AADB	AADF	5.2
+AAE0	AAF6	6.1
+AB01	AB06	6.0
+AB09	AB0E	6.0
+AB11	AB16	6.0
+AB20	AB26	6.0
+AB28	AB2E	6.0
+AB30	AB5F	7.0
+AB60	AB63	8.0
+AB64	AB65	7.0
+AB70	ABBF	8.0
+ABC0	ABED	5.2
+ABF0	ABF9	5.2
+AC00	D7A3	2.0
+D7B0	D7C6	5.2
+D7CB	D7FB	5.2
+D800	DFFF	2.0
+E000	FA2D	1.1
+FA2E	FA2F	6.1
+FA30	FA6A	3.2
+FA6B	FA6D	5.2
+FA70	FAD9	4.1
+FB00	FB06	1.1
+FB13	FB17	1.1
+FB1D		3.0
+FB1E	FB36	1.1
+FB38	FB3C	1.1
+FB3E		1.1
+FB40	FB41	1.1
+FB43	FB44	1.1
+FB46	FBB1	1.1
+FBB2	FBC1	6.0
+FBD3	FD3F	1.1
+FD50	FD8F	1.1
+FD92	FDC7	1.1
+FDD0	FDEF	3.1
+FDF0	FDFB	1.1
+FDFC		3.2
+FDFD		4.0
+FE00	FE0F	3.2
+FE10	FE19	4.1
+FE20	FE23	1.1
+FE24	FE26	5.1
+FE27	FE2D	7.0
+FE2E	FE2F	8.0
+FE30	FE44	1.1
+FE45	FE46	3.2
+FE47	FE48	4.0
+FE49	FE52	1.1
+FE54	FE66	1.1
+FE68	FE6B	1.1
+FE70	FE72	1.1
+FE73		3.2
+FE74		1.1
+FE76	FEFC	1.1
+FEFF		1.1
+FF01	FF5E	1.1
+FF5F	FF60	3.2
+FF61	FFBE	1.1
+FFC2	FFC7	1.1
+FFCA	FFCF	1.1
+FFD2	FFD7	1.1
+FFDA	FFDC	1.1
+FFE0	FFE6	1.1
+FFE8	FFEE	1.1
+FFF9	FFFB	3.0
+FFFC		2.1
+FFFD	FFFF	1.1
+10000	1000B	4.0
+1000D	10026	4.0
+10028	1003A	4.0
+1003C	1003D	4.0
+1003F	1004D	4.0
+10050	1005D	4.0
+10080	100FA	4.0
+10100	10102	4.0
+10107	10133	4.0
+10137	1013F	4.0
+10140	1018A	4.1
+1018B	1018C	7.0
+10190	1019B	5.1
+101A0		7.0
+101D0	101FD	5.1
+10280	1029C	5.1
+102A0	102D0	5.1
+102E0	102FB	7.0
+10300	1031E	3.1
+1031F		7.0
+10320	10323	3.1
+10330	1034A	3.1
+10350	1037A	7.0
+10380	1039D	4.0
+1039F		4.0
+103A0	103C3	4.1
+103C8	103D5	4.1
+10400	10425	3.1
+10426	10427	4.0
+10428	1044D	3.1
+1044E	1049D	4.0
+104A0	104A9	4.0
+10500	10527	7.0
+10530	10563	7.0
+1056F		7.0
+10600	10736	7.0
+10740	10755	7.0
+10760	10767	7.0
+10800	10805	4.0
+10808		4.0
+1080A	10835	4.0
+10837	10838	4.0
+1083C		4.0
+1083F		4.0
+10840	10855	5.2
+10857	1085F	5.2
+10860	1089E	7.0
+108A7	108AF	7.0
+108E0	108F2	8.0
+108F4	108F5	8.0
+108FB	108FF	8.0
+10900	10919	5.0
+1091A	1091B	5.2
+1091F		5.0
+10920	10939	5.1
+1093F		5.1
+10980	109B7	6.1
+109BC	109BD	8.0
+109BE	109BF	6.1
+109C0	109CF	8.0
+109D2	109FF	8.0
+10A00	10A03	4.1
+10A05	10A06	4.1
+10A0C	10A13	4.1
+10A15	10A17	4.1
+10A19	10A33	4.1
+10A38	10A3A	4.1
+10A3F	10A47	4.1
+10A50	10A58	4.1
+10A60	10A7F	5.2
+10A80	10A9F	7.0
+10AC0	10AE6	7.0
+10AEB	10AF6	7.0
+10B00	10B35	5.2
+10B39	10B55	5.2
+10B58	10B72	5.2
+10B78	10B7F	5.2
+10B80	10B91	7.0
+10B99	10B9C	7.0
+10BA9	10BAF	7.0
+10C00	10C48	5.2
+10C80	10CB2	8.0
+10CC0	10CF2	8.0
+10CFA	10CFF	8.0
+10E60	10E7E	5.2
+11000	1104D	6.0
+11052	1106F	6.0
+1107F		7.0
+11080	110C1	5.2
+110D0	110E8	6.1
+110F0	110F9	6.1
+11100	11134	6.1
+11136	11143	6.1
+11150	11176	7.0
+11180	111C8	6.1
+111C9	111CC	8.0
+111CD		7.0
+111D0	111D9	6.1
+111DA		7.0
+111DB	111DF	8.0
+111E1	111F4	7.0
+11200	11211	7.0
+11213	1123D	7.0
+11280	11286	8.0
+11288		8.0
+1128A	1128D	8.0
+1128F	1129D	8.0
+1129F	112A9	8.0
+112B0	112EA	7.0
+112F0	112F9	7.0
+11300		8.0
+11301	11303	7.0
+11305	1130C	7.0
+1130F	11310	7.0
+11313	11328	7.0
+1132A	11330	7.0
+11332	11333	7.0
+11335	11339	7.0
+1133C	11344	7.0
+11347	11348	7.0
+1134B	1134D	7.0
+11350		8.0
+11357		7.0
+1135D	11363	7.0
+11366	1136C	7.0
+11370	11374	7.0
+11480	114C7	7.0
+114D0	114D9	7.0
+11580	115B5	7.0
+115B8	115C9	7.0
+115CA	115DD	8.0
+11600	11644	7.0
+11650	11659	7.0
+11680	116B7	6.1
+116C0	116C9	6.1
+11700	11719	8.0
+1171D	1172B	8.0
+11730	1173F	8.0
+118A0	118F2	7.0
+118FF		7.0
+11AC0	11AF8	7.0
+12000	1236E	5.0
+1236F	12398	7.0
+12399		8.0
+12400	12462	5.0
+12463	1246E	7.0
+12470	12473	5.0
+12474		7.0
+12480	12543	8.0
+13000	1342E	5.2
+14400	14646	8.0
+16800	16A38	6.0
+16A40	16A5E	7.0
+16A60	16A69	7.0
+16A6E	16A6F	7.0
+16AD0	16AED	7.0
+16AF0	16AF5	7.0
+16B00	16B45	7.0
+16B50	16B59	7.0
+16B5B	16B61	7.0
+16B63	16B77	7.0
+16B7D	16B8F	7.0
+16F00	16F44	6.1
+16F50	16F7E	6.1
+16F8F	16F9F	6.1
+1B000	1B001	6.0
+1BC00	1BC6A	7.0
+1BC70	1BC7C	7.0
+1BC80	1BC88	7.0
+1BC90	1BC99	7.0
+1BC9C	1BCA3	7.0
+1D000	1D0F5	3.1
+1D100	1D126	3.1
+1D129		5.1
+1D12A	1D1DD	3.1
+1D1DE	1D1E8	8.0
+1D200	1D245	4.1
+1D300	1D356	4.0
+1D360	1D371	5.0
+1D400	1D454	3.1
+1D456	1D49C	3.1
+1D49E	1D49F	3.1
+1D4A2		3.1
+1D4A5	1D4A6	3.1
+1D4A9	1D4AC	3.1
+1D4AE	1D4B9	3.1
+1D4BB		3.1
+1D4BD	1D4C0	3.1
+1D4C1		4.0
+1D4C2	1D4C3	3.1
+1D4C5	1D505	3.1
+1D507	1D50A	3.1
+1D50D	1D514	3.1
+1D516	1D51C	3.1
+1D51E	1D539	3.1
+1D53B	1D53E	3.1
+1D540	1D544	3.1
+1D546		3.1
+1D54A	1D550	3.1
+1D552	1D6A3	3.1
+1D6A4	1D6A5	4.1
+1D6A8	1D7C9	3.1
+1D7CA	1D7CB	5.0
+1D7CE	1D7FF	3.1
+1D800	1DA8B	8.0
+1DA9B	1DA9F	8.0
+1DAA1	1DAAF	8.0
+1E800	1E8C4	7.0
+1E8C7	1E8D6	7.0
+1EE00	1EE03	6.1
+1EE05	1EE1F	6.1
+1EE21	1EE22	6.1
+1EE24		6.1
+1EE27		6.1
+1EE29	1EE32	6.1
+1EE34	1EE37	6.1
+1EE39		6.1
+1EE3B		6.1
+1EE42		6.1
+1EE47		6.1
+1EE49		6.1
+1EE4B		6.1
+1EE4D	1EE4F	6.1
+1EE51	1EE52	6.1
+1EE54		6.1
+1EE57		6.1
+1EE59		6.1
+1EE5B		6.1
+1EE5D		6.1
+1EE5F		6.1
+1EE61	1EE62	6.1
+1EE64		6.1
+1EE67	1EE6A	6.1
+1EE6C	1EE72	6.1
+1EE74	1EE77	6.1
+1EE79	1EE7C	6.1
+1EE7E		6.1
+1EE80	1EE89	6.1
+1EE8B	1EE9B	6.1
+1EEA1	1EEA3	6.1
+1EEA5	1EEA9	6.1
+1EEAB	1EEBB	6.1
+1EEF0	1EEF1	6.1
+1F000	1F02B	5.1
+1F030	1F093	5.1
+1F0A0	1F0AE	6.0
+1F0B1	1F0BE	6.0
+1F0BF		7.0
+1F0C1	1F0CF	6.0
+1F0D1	1F0DF	6.0
+1F0E0	1F0F5	7.0
+1F100	1F10A	5.2
+1F10B	1F10C	7.0
+1F110	1F12E	5.2
+1F130		6.0
+1F131		5.2
+1F132	1F13C	6.0
+1F13D		5.2
+1F13E		6.0
+1F13F		5.2
+1F140	1F141	6.0
+1F142		5.2
+1F143	1F145	6.0
+1F146		5.2
+1F147	1F149	6.0
+1F14A	1F14E	5.2
+1F14F	1F156	6.0
+1F157		5.2
+1F158	1F15E	6.0
+1F15F		5.2
+1F160	1F169	6.0
+1F16A	1F16B	6.1
+1F170	1F178	6.0
+1F179		5.2
+1F17A		6.0
+1F17B	1F17C	5.2
+1F17D	1F17E	6.0
+1F17F		5.2
+1F180	1F189	6.0
+1F18A	1F18D	5.2
+1F18E	1F18F	6.0
+1F190		5.2
+1F191	1F19A	6.0
+1F1E6	1F1FF	6.0
+1F200		5.2
+1F201	1F202	6.0
+1F210	1F231	5.2
+1F232	1F23A	6.0
+1F240	1F248	5.2
+1F250	1F251	6.0
+1F300	1F320	6.0
+1F321	1F32C	7.0
+1F32D	1F32F	8.0
+1F330	1F335	6.0
+1F336		7.0
+1F337	1F37C	6.0
+1F37D		7.0
+1F37E	1F37F	8.0
+1F380	1F393	6.0
+1F394	1F39F	7.0
+1F3A0	1F3C4	6.0
+1F3C5		7.0
+1F3C6	1F3CA	6.0
+1F3CB	1F3CE	7.0
+1F3CF	1F3D3	8.0
+1F3D4	1F3DF	7.0
+1F3E0	1F3F0	6.0
+1F3F1	1F3F7	7.0
+1F3F8	1F3FF	8.0
+1F400	1F43E	6.0
+1F43F		7.0
+1F440		6.0
+1F441		7.0
+1F442	1F4F7	6.0
+1F4F8		7.0
+1F4F9	1F4FC	6.0
+1F4FD	1F4FE	7.0
+1F4FF		8.0
+1F500	1F53D	6.0
+1F53E	1F53F	7.0
+1F540	1F543	6.1
+1F544	1F54A	7.0
+1F54B	1F54F	8.0
+1F550	1F567	6.0
+1F568	1F579	7.0
+1F57B	1F5A3	7.0
+1F5A5	1F5FA	7.0
+1F5FB	1F5FF	6.0
+1F600		6.1
+1F601	1F610	6.0
+1F611		6.1
+1F612	1F614	6.0
+1F615		6.1
+1F616		6.0
+1F617		6.1
+1F618		6.0
+1F619		6.1
+1F61A		6.0
+1F61B		6.1
+1F61C	1F61E	6.0
+1F61F		6.1
+1F620	1F625	6.0
+1F626	1F627	6.1
+1F628	1F62B	6.0
+1F62C		6.1
+1F62D		6.0
+1F62E	1F62F	6.1
+1F630	1F633	6.0
+1F634		6.1
+1F635	1F640	6.0
+1F641	1F642	7.0
+1F643	1F644	8.0
+1F645	1F64F	6.0
+1F650	1F67F	7.0
+1F680	1F6C5	6.0
+1F6C6	1F6CF	7.0
+1F6D0		8.0
+1F6E0	1F6EC	7.0
+1F6F0	1F6F3	7.0
+1F700	1F773	6.0
+1F780	1F7D4	7.0
+1F800	1F80B	7.0
+1F810	1F847	7.0
+1F850	1F859	7.0
+1F860	1F887	7.0
+1F890	1F8AD	7.0
+1F910	1F918	8.0
+1F980	1F984	8.0
+1F9C0		8.0
+1FFFE	1FFFF	2.0
+20000	2A6D6	3.1
+2A700	2B734	5.2
+2B740	2B81D	6.0
+2B820	2CEA1	8.0
+2F800	2FA1D	3.1
+2FFFE	2FFFF	2.0
+3FFFE	3FFFF	2.0
+4FFFE	4FFFF	2.0
+5FFFE	5FFFF	2.0
+6FFFE	6FFFF	2.0
+7FFFE	7FFFF	2.0
+8FFFE	8FFFF	2.0
+9FFFE	9FFFF	2.0
+AFFFE	AFFFF	2.0
+BFFFE	BFFFF	2.0
+CFFFE	CFFFF	2.0
+DFFFE	DFFFF	2.0
+E0001		3.1
+E0020	E007F	3.1
+E0100	E01EF	4.0
+EFFFE	10FFFF	2.0
+END
diff --git a/lib/5.24.1/unicore/To/Bc.pl b/lib/5.24.1/unicore/To/Bc.pl
new file mode 100644
index 00000000..36192003
--- /dev/null
+++ b/lib/5.24.1/unicore/To/Bc.pl
@@ -0,0 +1,624 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToBc'}{'format'} = 's'; # string
+$utf8::SwashInfo{'ToBc'}{'missing'} = 'L';
+
+return <<'END';
+0	8	BN
+9		S
+A		B
+B		S
+C		WS
+D		B
+E	1B	BN
+1C	1E	B
+1F		S
+20		WS
+21	22	ON
+23	25	ET
+26	2A	ON
+2B		ES
+2C		CS
+2D		ES
+2E	2F	CS
+30	39	EN
+3A		CS
+3B	40	ON
+5B	60	ON
+7B	7E	ON
+7F	84	BN
+85		B
+86	9F	BN
+A0		CS
+A1		ON
+A2	A5	ET
+A6	A9	ON
+AB	AC	ON
+AD		BN
+AE	AF	ON
+B0	B1	ET
+B2	B3	EN
+B4		ON
+B6	B8	ON
+B9		EN
+BB	BF	ON
+D7		ON
+F7		ON
+2B9	2BA	ON
+2C2	2CF	ON
+2D2	2DF	ON
+2E5	2ED	ON
+2EF	2FF	ON
+300	36F	NSM
+374	375	ON
+37E		ON
+384	385	ON
+387		ON
+3F6		ON
+483	489	NSM
+58A		ON
+58D	58E	ON
+58F		ET
+590		R
+591	5BD	NSM
+5BE		R
+5BF		NSM
+5C0		R
+5C1	5C2	NSM
+5C3		R
+5C4	5C5	NSM
+5C6		R
+5C7		NSM
+5C8	5FF	R
+600	605	AN
+606	607	ON
+608		AL
+609	60A	ET
+60B		AL
+60C		CS
+60D		AL
+60E	60F	ON
+610	61A	NSM
+61B	64A	AL
+64B	65F	NSM
+660	669	AN
+66A		ET
+66B	66C	AN
+66D	66F	AL
+670		NSM
+671	6D5	AL
+6D6	6DC	NSM
+6DD		AN
+6DE		ON
+6DF	6E4	NSM
+6E5	6E6	AL
+6E7	6E8	NSM
+6E9		ON
+6EA	6ED	NSM
+6EE	6EF	AL
+6F0	6F9	EN
+6FA	710	AL
+711		NSM
+712	72F	AL
+730	74A	NSM
+74B	7A5	AL
+7A6	7B0	NSM
+7B1	7BF	AL
+7C0	7EA	R
+7EB	7F3	NSM
+7F4	7F5	R
+7F6	7F9	ON
+7FA	815	R
+816	819	NSM
+81A		R
+81B	823	NSM
+824		R
+825	827	NSM
+828		R
+829	82D	NSM
+82E	858	R
+859	85B	NSM
+85C	89F	R
+8A0	8E2	AL
+8E3	902	NSM
+93A		NSM
+93C		NSM
+941	948	NSM
+94D		NSM
+951	957	NSM
+962	963	NSM
+981		NSM
+9BC		NSM
+9C1	9C4	NSM
+9CD		NSM
+9E2	9E3	NSM
+9F2	9F3	ET
+9FB		ET
+A01	A02	NSM
+A3C		NSM
+A41	A42	NSM
+A47	A48	NSM
+A4B	A4D	NSM
+A51		NSM
+A70	A71	NSM
+A75		NSM
+A81	A82	NSM
+ABC		NSM
+AC1	AC5	NSM
+AC7	AC8	NSM
+ACD		NSM
+AE2	AE3	NSM
+AF1		ET
+B01		NSM
+B3C		NSM
+B3F		NSM
+B41	B44	NSM
+B4D		NSM
+B56		NSM
+B62	B63	NSM
+B82		NSM
+BC0		NSM
+BCD		NSM
+BF3	BF8	ON
+BF9		ET
+BFA		ON
+C00		NSM
+C3E	C40	NSM
+C46	C48	NSM
+C4A	C4D	NSM
+C55	C56	NSM
+C62	C63	NSM
+C78	C7E	ON
+C81		NSM
+CBC		NSM
+CCC	CCD	NSM
+CE2	CE3	NSM
+D01		NSM
+D41	D44	NSM
+D4D		NSM
+D62	D63	NSM
+DCA		NSM
+DD2	DD4	NSM
+DD6		NSM
+E31		NSM
+E34	E3A	NSM
+E3F		ET
+E47	E4E	NSM
+EB1		NSM
+EB4	EB9	NSM
+EBB	EBC	NSM
+EC8	ECD	NSM
+F18	F19	NSM
+F35		NSM
+F37		NSM
+F39		NSM
+F3A	F3D	ON
+F71	F7E	NSM
+F80	F84	NSM
+F86	F87	NSM
+F8D	F97	NSM
+F99	FBC	NSM
+FC6		NSM
+102D	1030	NSM
+1032	1037	NSM
+1039	103A	NSM
+103D	103E	NSM
+1058	1059	NSM
+105E	1060	NSM
+1071	1074	NSM
+1082		NSM
+1085	1086	NSM
+108D		NSM
+109D		NSM
+135D	135F	NSM
+1390	1399	ON
+1400		ON
+1680		WS
+169B	169C	ON
+1712	1714	NSM
+1732	1734	NSM
+1752	1753	NSM
+1772	1773	NSM
+17B4	17B5	NSM
+17B7	17BD	NSM
+17C6		NSM
+17C9	17D3	NSM
+17DB		ET
+17DD		NSM
+17F0	17F9	ON
+1800	180A	ON
+180B	180D	NSM
+180E		BN
+18A9		NSM
+1920	1922	NSM
+1927	1928	NSM
+1932		NSM
+1939	193B	NSM
+1940		ON
+1944	1945	ON
+19DE	19FF	ON
+1A17	1A18	NSM
+1A1B		NSM
+1A56		NSM
+1A58	1A5E	NSM
+1A60		NSM
+1A62		NSM
+1A65	1A6C	NSM
+1A73	1A7C	NSM
+1A7F		NSM
+1AB0	1ABE	NSM
+1B00	1B03	NSM
+1B34		NSM
+1B36	1B3A	NSM
+1B3C		NSM
+1B42		NSM
+1B6B	1B73	NSM
+1B80	1B81	NSM
+1BA2	1BA5	NSM
+1BA8	1BA9	NSM
+1BAB	1BAD	NSM
+1BE6		NSM
+1BE8	1BE9	NSM
+1BED		NSM
+1BEF	1BF1	NSM
+1C2C	1C33	NSM
+1C36	1C37	NSM
+1CD0	1CD2	NSM
+1CD4	1CE0	NSM
+1CE2	1CE8	NSM
+1CED		NSM
+1CF4		NSM
+1CF8	1CF9	NSM
+1DC0	1DF5	NSM
+1DFC	1DFF	NSM
+1FBD		ON
+1FBF	1FC1	ON
+1FCD	1FCF	ON
+1FDD	1FDF	ON
+1FED	1FEF	ON
+1FFD	1FFE	ON
+2000	200A	WS
+200B	200D	BN
+200F		R
+2010	2027	ON
+2028		WS
+2029		B
+202A		LRE
+202B		RLE
+202C		PDF
+202D		LRO
+202E		RLO
+202F		CS
+2030	2034	ET
+2035	2043	ON
+2044		CS
+2045	205E	ON
+205F		WS
+2060	2065	BN
+2066		LRI
+2067		RLI
+2068		FSI
+2069		PDI
+206A	206F	BN
+2070		EN
+2074	2079	EN
+207A	207B	ES
+207C	207E	ON
+2080	2089	EN
+208A	208B	ES
+208C	208E	ON
+20A0	20CF	ET
+20D0	20F0	NSM
+2100	2101	ON
+2103	2106	ON
+2108	2109	ON
+2114		ON
+2116	2118	ON
+211E	2123	ON
+2125		ON
+2127		ON
+2129		ON
+212E		ET
+213A	213B	ON
+2140	2144	ON
+214A	214D	ON
+2150	215F	ON
+2189	218B	ON
+2190	2211	ON
+2212		ES
+2213		ET
+2214	2335	ON
+237B	2394	ON
+2396	23FA	ON
+2400	2426	ON
+2440	244A	ON
+2460	2487	ON
+2488	249B	EN
+24EA	26AB	ON
+26AD	27FF	ON
+2900	2B73	ON
+2B76	2B95	ON
+2B98	2BB9	ON
+2BBD	2BC8	ON
+2BCA	2BD1	ON
+2BEC	2BEF	ON
+2CE5	2CEA	ON
+2CEF	2CF1	NSM
+2CF9	2CFF	ON
+2D7F		NSM
+2DE0	2DFF	NSM
+2E00	2E42	ON
+2E80	2E99	ON
+2E9B	2EF3	ON
+2F00	2FD5	ON
+2FF0	2FFB	ON
+3000		WS
+3001	3004	ON
+3008	3020	ON
+302A	302D	NSM
+3030		ON
+3036	3037	ON
+303D	303F	ON
+3099	309A	NSM
+309B	309C	ON
+30A0		ON
+30FB		ON
+31C0	31E3	ON
+321D	321E	ON
+3250	325F	ON
+327C	327E	ON
+32B1	32BF	ON
+32CC	32CF	ON
+3377	337A	ON
+33DE	33DF	ON
+33FF		ON
+4DC0	4DFF	ON
+A490	A4C6	ON
+A60D	A60F	ON
+A66F	A672	NSM
+A673		ON
+A674	A67D	NSM
+A67E	A67F	ON
+A69E	A69F	NSM
+A6F0	A6F1	NSM
+A700	A721	ON
+A788		ON
+A802		NSM
+A806		NSM
+A80B		NSM
+A825	A826	NSM
+A828	A82B	ON
+A838	A839	ET
+A874	A877	ON
+A8C4		NSM
+A8E0	A8F1	NSM
+A926	A92D	NSM
+A947	A951	NSM
+A980	A982	NSM
+A9B3		NSM
+A9B6	A9B9	NSM
+A9BC		NSM
+A9E5		NSM
+AA29	AA2E	NSM
+AA31	AA32	NSM
+AA35	AA36	NSM
+AA43		NSM
+AA4C		NSM
+AA7C		NSM
+AAB0		NSM
+AAB2	AAB4	NSM
+AAB7	AAB8	NSM
+AABE	AABF	NSM
+AAC1		NSM
+AAEC	AAED	NSM
+AAF6		NSM
+ABE5		NSM
+ABE8		NSM
+ABED		NSM
+FB1D		R
+FB1E		NSM
+FB1F	FB28	R
+FB29		ES
+FB2A	FB4F	R
+FB50	FD3D	AL
+FD3E	FD3F	ON
+FD40	FDCF	AL
+FDD0	FDEF	BN
+FDF0	FDFC	AL
+FDFD		ON
+FDFE	FDFF	AL
+FE00	FE0F	NSM
+FE10	FE19	ON
+FE20	FE2F	NSM
+FE30	FE4F	ON
+FE50		CS
+FE51		ON
+FE52		CS
+FE54		ON
+FE55		CS
+FE56	FE5E	ON
+FE5F		ET
+FE60	FE61	ON
+FE62	FE63	ES
+FE64	FE66	ON
+FE68		ON
+FE69	FE6A	ET
+FE6B		ON
+FE70	FEFE	AL
+FEFF		BN
+FF01	FF02	ON
+FF03	FF05	ET
+FF06	FF0A	ON
+FF0B		ES
+FF0C		CS
+FF0D		ES
+FF0E	FF0F	CS
+FF10	FF19	EN
+FF1A		CS
+FF1B	FF20	ON
+FF3B	FF40	ON
+FF5B	FF65	ON
+FFE0	FFE1	ET
+FFE2	FFE4	ON
+FFE5	FFE6	ET
+FFE8	FFEE	ON
+FFF0	FFF8	BN
+FFF9	FFFD	ON
+FFFE	FFFF	BN
+10101		ON
+10140	1018C	ON
+10190	1019B	ON
+101A0		ON
+101FD		NSM
+102E0		NSM
+102E1	102FB	EN
+10376	1037A	NSM
+10800	1091E	R
+1091F		ON
+10920	10A00	R
+10A01	10A03	NSM
+10A04		R
+10A05	10A06	NSM
+10A07	10A0B	R
+10A0C	10A0F	NSM
+10A10	10A37	R
+10A38	10A3A	NSM
+10A3B	10A3E	R
+10A3F		NSM
+10A40	10AE4	R
+10AE5	10AE6	NSM
+10AE7	10B38	R
+10B39	10B3F	ON
+10B40	10E5F	R
+10E60	10E7E	AN
+10E7F	10FFF	R
+11001		NSM
+11038	11046	NSM
+11052	11065	ON
+1107F	11081	NSM
+110B3	110B6	NSM
+110B9	110BA	NSM
+11100	11102	NSM
+11127	1112B	NSM
+1112D	11134	NSM
+11173		NSM
+11180	11181	NSM
+111B6	111BE	NSM
+111CA	111CC	NSM
+1122F	11231	NSM
+11234		NSM
+11236	11237	NSM
+112DF		NSM
+112E3	112EA	NSM
+11300	11301	NSM
+1133C		NSM
+11340		NSM
+11366	1136C	NSM
+11370	11374	NSM
+114B3	114B8	NSM
+114BA		NSM
+114BF	114C0	NSM
+114C2	114C3	NSM
+115B2	115B5	NSM
+115BC	115BD	NSM
+115BF	115C0	NSM
+115DC	115DD	NSM
+11633	1163A	NSM
+1163D		NSM
+1163F	11640	NSM
+116AB		NSM
+116AD		NSM
+116B0	116B5	NSM
+116B7		NSM
+1171D	1171F	NSM
+11722	11725	NSM
+11727	1172B	NSM
+16AF0	16AF4	NSM
+16B30	16B36	NSM
+16F8F	16F92	NSM
+1BC9D	1BC9E	NSM
+1BCA0	1BCA3	BN
+1D167	1D169	NSM
+1D173	1D17A	BN
+1D17B	1D182	NSM
+1D185	1D18B	NSM
+1D1AA	1D1AD	NSM
+1D200	1D241	ON
+1D242	1D244	NSM
+1D245		ON
+1D300	1D356	ON
+1D6DB		ON
+1D715		ON
+1D74F		ON
+1D789		ON
+1D7C3		ON
+1D7CE	1D7FF	EN
+1DA00	1DA36	NSM
+1DA3B	1DA6C	NSM
+1DA75		NSM
+1DA84		NSM
+1DA9B	1DA9F	NSM
+1DAA1	1DAAF	NSM
+1E800	1E8CF	R
+1E8D0	1E8D6	NSM
+1E8D7	1EDFF	R
+1EE00	1EEEF	AL
+1EEF0	1EEF1	ON
+1EEF2	1EEFF	AL
+1EF00	1EFFF	R
+1F000	1F02B	ON
+1F030	1F093	ON
+1F0A0	1F0AE	ON
+1F0B1	1F0BF	ON
+1F0C1	1F0CF	ON
+1F0D1	1F0F5	ON
+1F100	1F10A	EN
+1F10B	1F10C	ON
+1F16A	1F16B	ON
+1F300	1F579	ON
+1F57B	1F5A3	ON
+1F5A5	1F6D0	ON
+1F6E0	1F6EC	ON
+1F6F0	1F6F3	ON
+1F700	1F773	ON
+1F780	1F7D4	ON
+1F800	1F80B	ON
+1F810	1F847	ON
+1F850	1F859	ON
+1F860	1F887	ON
+1F890	1F8AD	ON
+1F910	1F918	ON
+1F980	1F984	ON
+1F9C0		ON
+1FFFE	1FFFF	BN
+2FFFE	2FFFF	BN
+3FFFE	3FFFF	BN
+4FFFE	4FFFF	BN
+5FFFE	5FFFF	BN
+6FFFE	6FFFF	BN
+7FFFE	7FFFF	BN
+8FFFE	8FFFF	BN
+9FFFE	9FFFF	BN
+AFFFE	AFFFF	BN
+BFFFE	BFFFF	BN
+CFFFE	CFFFF	BN
+DFFFE	E00FF	BN
+E0100	E01EF	NSM
+E01F0	E0FFF	BN
+EFFFE	EFFFF	BN
+FFFFE	FFFFF	BN
+10FFFE	10FFFF	BN
+END
diff --git a/lib/5.24.1/unicore/To/Bmg.pl b/lib/5.24.1/unicore/To/Bmg.pl
new file mode 100644
index 00000000..a58883e9
--- /dev/null
+++ b/lib/5.24.1/unicore/To/Bmg.pl
@@ -0,0 +1,388 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   IT IS DEPRECATED TO USE THIS FILE   !!!!!!!
+
+# This file is for internal use by core Perl only.  It is retained for
+# backwards compatibility with applications that may have come to rely on it,
+# but its format and even its name or existence are subject to change without
+# notice in a future Perl version.  Don't use it directly.  Instead, its
+# contents are now retrievable through a stable API in the Unicode::UCD
+# module: Unicode::UCD::prop_invmap('Bidi_Mirroring_Glyph') (Values for individual
+# code points can be retrieved via Unicode::UCD::charprop());
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToBmg'}{'format'} = 'x'; # non-negative hex whole number; a code point
+$utf8::SwashInfo{'ToBmg'}{'missing'} = ''; # code point maps to the null string
+
+return <<'END';
+0028		0029
+0029		0028
+003C		003E
+003E		003C
+005B		005D
+005D		005B
+007B		007D
+007D		007B
+00AB		00BB
+00BB		00AB
+0F3A		0F3B
+0F3B		0F3A
+0F3C		0F3D
+0F3D		0F3C
+169B		169C
+169C		169B
+2039		203A
+203A		2039
+2045		2046
+2046		2045
+207D		207E
+207E		207D
+208D		208E
+208E		208D
+2208		220B
+2209		220C
+220A		220D
+220B		2208
+220C		2209
+220D		220A
+2215		29F5
+223C		223D
+223D		223C
+2243		22CD
+2252		2253
+2253		2252
+2254		2255
+2255		2254
+2264		2265
+2265		2264
+2266		2267
+2267		2266
+2268		2269
+2269		2268
+226A		226B
+226B		226A
+226E		226F
+226F		226E
+2270		2271
+2271		2270
+2272		2273
+2273		2272
+2274		2275
+2275		2274
+2276		2277
+2277		2276
+2278		2279
+2279		2278
+227A		227B
+227B		227A
+227C		227D
+227D		227C
+227E		227F
+227F		227E
+2280		2281
+2281		2280
+2282		2283
+2283		2282
+2284		2285
+2285		2284
+2286		2287
+2287		2286
+2288		2289
+2289		2288
+228A		228B
+228B		228A
+228F		2290
+2290		228F
+2291		2292
+2292		2291
+2298		29B8
+22A2		22A3
+22A3		22A2
+22A6		2ADE
+22A8		2AE4
+22A9		2AE3
+22AB		2AE5
+22B0		22B1
+22B1		22B0
+22B2		22B3
+22B3		22B2
+22B4		22B5
+22B5		22B4
+22B6		22B7
+22B7		22B6
+22C9		22CA
+22CA		22C9
+22CB		22CC
+22CC		22CB
+22CD		2243
+22D0		22D1
+22D1		22D0
+22D6		22D7
+22D7		22D6
+22D8		22D9
+22D9		22D8
+22DA		22DB
+22DB		22DA
+22DC		22DD
+22DD		22DC
+22DE		22DF
+22DF		22DE
+22E0		22E1
+22E1		22E0
+22E2		22E3
+22E3		22E2
+22E4		22E5
+22E5		22E4
+22E6		22E7
+22E7		22E6
+22E8		22E9
+22E9		22E8
+22EA		22EB
+22EB		22EA
+22EC		22ED
+22ED		22EC
+22F0		22F1
+22F1		22F0
+22F2		22FA
+22F3		22FB
+22F4		22FC
+22F6		22FD
+22F7		22FE
+22FA		22F2
+22FB		22F3
+22FC		22F4
+22FD		22F6
+22FE		22F7
+2308		2309
+2309		2308
+230A		230B
+230B		230A
+2329		232A
+232A		2329
+2768		2769
+2769		2768
+276A		276B
+276B		276A
+276C		276D
+276D		276C
+276E		276F
+276F		276E
+2770		2771
+2771		2770
+2772		2773
+2773		2772
+2774		2775
+2775		2774
+27C3		27C4
+27C4		27C3
+27C5		27C6
+27C6		27C5
+27C8		27C9
+27C9		27C8
+27CB		27CD
+27CD		27CB
+27D5		27D6
+27D6		27D5
+27DD		27DE
+27DE		27DD
+27E2		27E3
+27E3		27E2
+27E4		27E5
+27E5		27E4
+27E6		27E7
+27E7		27E6
+27E8		27E9
+27E9		27E8
+27EA		27EB
+27EB		27EA
+27EC		27ED
+27ED		27EC
+27EE		27EF
+27EF		27EE
+2983		2984
+2984		2983
+2985		2986
+2986		2985
+2987		2988
+2988		2987
+2989		298A
+298A		2989
+298B		298C
+298C		298B
+298D		2990
+298E		298F
+298F		298E
+2990		298D
+2991		2992
+2992		2991
+2993		2994
+2994		2993
+2995		2996
+2996		2995
+2997		2998
+2998		2997
+29B8		2298
+29C0		29C1
+29C1		29C0
+29C4		29C5
+29C5		29C4
+29CF		29D0
+29D0		29CF
+29D1		29D2
+29D2		29D1
+29D4		29D5
+29D5		29D4
+29D8		29D9
+29D9		29D8
+29DA		29DB
+29DB		29DA
+29F5		2215
+29F8		29F9
+29F9		29F8
+29FC		29FD
+29FD		29FC
+2A2B		2A2C
+2A2C		2A2B
+2A2D		2A2E
+2A2E		2A2D
+2A34		2A35
+2A35		2A34
+2A3C		2A3D
+2A3D		2A3C
+2A64		2A65
+2A65		2A64
+2A79		2A7A
+2A7A		2A79
+2A7D		2A7E
+2A7E		2A7D
+2A7F		2A80
+2A80		2A7F
+2A81		2A82
+2A82		2A81
+2A83		2A84
+2A84		2A83
+2A8B		2A8C
+2A8C		2A8B
+2A91		2A92
+2A92		2A91
+2A93		2A94
+2A94		2A93
+2A95		2A96
+2A96		2A95
+2A97		2A98
+2A98		2A97
+2A99		2A9A
+2A9A		2A99
+2A9B		2A9C
+2A9C		2A9B
+2AA1		2AA2
+2AA2		2AA1
+2AA6		2AA7
+2AA7		2AA6
+2AA8		2AA9
+2AA9		2AA8
+2AAA		2AAB
+2AAB		2AAA
+2AAC		2AAD
+2AAD		2AAC
+2AAF		2AB0
+2AB0		2AAF
+2AB3		2AB4
+2AB4		2AB3
+2ABB		2ABC
+2ABC		2ABB
+2ABD		2ABE
+2ABE		2ABD
+2ABF		2AC0
+2AC0		2ABF
+2AC1		2AC2
+2AC2		2AC1
+2AC3		2AC4
+2AC4		2AC3
+2AC5		2AC6
+2AC6		2AC5
+2ACD		2ACE
+2ACE		2ACD
+2ACF		2AD0
+2AD0		2ACF
+2AD1		2AD2
+2AD2		2AD1
+2AD3		2AD4
+2AD4		2AD3
+2AD5		2AD6
+2AD6		2AD5
+2ADE		22A6
+2AE3		22A9
+2AE4		22A8
+2AE5		22AB
+2AEC		2AED
+2AED		2AEC
+2AF7		2AF8
+2AF8		2AF7
+2AF9		2AFA
+2AFA		2AF9
+2E02		2E03
+2E03		2E02
+2E04		2E05
+2E05		2E04
+2E09		2E0A
+2E0A		2E09
+2E0C		2E0D
+2E0D		2E0C
+2E1C		2E1D
+2E1D		2E1C
+2E20		2E21
+2E21		2E20
+2E22		2E23
+2E23		2E22
+2E24		2E25
+2E25		2E24
+2E26		2E27
+2E27		2E26
+2E28		2E29
+2E29		2E28
+3008		3009
+3009		3008
+300A		300B
+300B		300A
+300C		300D
+300D		300C
+300E		300F
+300F		300E
+3010		3011
+3011		3010
+3014		3015
+3015		3014
+3016		3017
+3017		3016
+3018		3019
+3019		3018
+301A		301B
+301B		301A
+FE59		FE5A
+FE5A		FE59
+FE5B		FE5C
+FE5C		FE5B
+FE5D		FE5E
+FE5E		FE5D
+FE64		FE65
+FE65		FE64
+FF08		FF09
+FF09		FF08
+FF1C		FF1E
+FF1E		FF1C
+FF3B		FF3D
+FF3D		FF3B
+FF5B		FF5D
+FF5D		FF5B
+FF5F		FF60
+FF60		FF5F
+FF62		FF63
+FF63		FF62
+END
diff --git a/lib/5.24.1/unicore/To/Bpb.pl b/lib/5.24.1/unicore/To/Bpb.pl
new file mode 100644
index 00000000..6895fc05
--- /dev/null
+++ b/lib/5.24.1/unicore/To/Bpb.pl
@@ -0,0 +1,140 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToBpb'}{'format'} = 'x'; # non-negative hex whole number; a code point
+$utf8::SwashInfo{'ToBpb'}{'missing'} = ''; # code point maps to the null string
+
+return <<'END';
+28		0029
+29		0028
+5B		005D
+5D		005B
+7B		007D
+7D		007B
+F3A		0F3B
+F3B		0F3A
+F3C		0F3D
+F3D		0F3C
+169B		169C
+169C		169B
+2045		2046
+2046		2045
+207D		207E
+207E		207D
+208D		208E
+208E		208D
+2308		2309
+2309		2308
+230A		230B
+230B		230A
+2329		232A
+232A		2329
+2768		2769
+2769		2768
+276A		276B
+276B		276A
+276C		276D
+276D		276C
+276E		276F
+276F		276E
+2770		2771
+2771		2770
+2772		2773
+2773		2772
+2774		2775
+2775		2774
+27C5		27C6
+27C6		27C5
+27E6		27E7
+27E7		27E6
+27E8		27E9
+27E9		27E8
+27EA		27EB
+27EB		27EA
+27EC		27ED
+27ED		27EC
+27EE		27EF
+27EF		27EE
+2983		2984
+2984		2983
+2985		2986
+2986		2985
+2987		2988
+2988		2987
+2989		298A
+298A		2989
+298B		298C
+298C		298B
+298D		2990
+298E		298F
+298F		298E
+2990		298D
+2991		2992
+2992		2991
+2993		2994
+2994		2993
+2995		2996
+2996		2995
+2997		2998
+2998		2997
+29D8		29D9
+29D9		29D8
+29DA		29DB
+29DB		29DA
+29FC		29FD
+29FD		29FC
+2E22		2E23
+2E23		2E22
+2E24		2E25
+2E25		2E24
+2E26		2E27
+2E27		2E26
+2E28		2E29
+2E29		2E28
+3008		3009
+3009		3008
+300A		300B
+300B		300A
+300C		300D
+300D		300C
+300E		300F
+300F		300E
+3010		3011
+3011		3010
+3014		3015
+3015		3014
+3016		3017
+3017		3016
+3018		3019
+3019		3018
+301A		301B
+301B		301A
+FE59		FE5A
+FE5A		FE59
+FE5B		FE5C
+FE5C		FE5B
+FE5D		FE5E
+FE5E		FE5D
+FF08		FF09
+FF09		FF08
+FF3B		FF3D
+FF3D		FF3B
+FF5B		FF5D
+FF5D		FF5B
+FF5F		FF60
+FF60		FF5F
+FF62		FF63
+FF63		FF62
+END
diff --git a/lib/5.24.1/unicore/To/Bpt.pl b/lib/5.24.1/unicore/To/Bpt.pl
new file mode 100644
index 00000000..60dcbbff
--- /dev/null
+++ b/lib/5.24.1/unicore/To/Bpt.pl
@@ -0,0 +1,140 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToBpt'}{'format'} = 's'; # string
+$utf8::SwashInfo{'ToBpt'}{'missing'} = 'n';
+
+return <<'END';
+28		o
+29		c
+5B		o
+5D		c
+7B		o
+7D		c
+F3A		o
+F3B		c
+F3C		o
+F3D		c
+169B		o
+169C		c
+2045		o
+2046		c
+207D		o
+207E		c
+208D		o
+208E		c
+2308		o
+2309		c
+230A		o
+230B		c
+2329		o
+232A		c
+2768		o
+2769		c
+276A		o
+276B		c
+276C		o
+276D		c
+276E		o
+276F		c
+2770		o
+2771		c
+2772		o
+2773		c
+2774		o
+2775		c
+27C5		o
+27C6		c
+27E6		o
+27E7		c
+27E8		o
+27E9		c
+27EA		o
+27EB		c
+27EC		o
+27ED		c
+27EE		o
+27EF		c
+2983		o
+2984		c
+2985		o
+2986		c
+2987		o
+2988		c
+2989		o
+298A		c
+298B		o
+298C		c
+298D		o
+298E		c
+298F		o
+2990		c
+2991		o
+2992		c
+2993		o
+2994		c
+2995		o
+2996		c
+2997		o
+2998		c
+29D8		o
+29D9		c
+29DA		o
+29DB		c
+29FC		o
+29FD		c
+2E22		o
+2E23		c
+2E24		o
+2E25		c
+2E26		o
+2E27		c
+2E28		o
+2E29		c
+3008		o
+3009		c
+300A		o
+300B		c
+300C		o
+300D		c
+300E		o
+300F		c
+3010		o
+3011		c
+3014		o
+3015		c
+3016		o
+3017		c
+3018		o
+3019		c
+301A		o
+301B		c
+FE59		o
+FE5A		c
+FE5B		o
+FE5C		c
+FE5D		o
+FE5E		c
+FF08		o
+FF09		c
+FF3B		o
+FF3D		c
+FF5B		o
+FF5D		c
+FF5F		o
+FF60		c
+FF62		o
+FF63		c
+END
diff --git a/lib/5.24.1/unicore/To/Cf.pl b/lib/5.24.1/unicore/To/Cf.pl
new file mode 100644
index 00000000..91718400
--- /dev/null
+++ b/lib/5.24.1/unicore/To/Cf.pl
@@ -0,0 +1,793 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+# The mappings in the non-hash portion of this file must be modified to get the
+# correct values by adding the code point ordinal number to each one that is
+# numeric.
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToCf'}{'format'} = 'ax'; # mapped value in hex; some entries need adjustment
+$utf8::SwashInfo{'ToCf'}{'specials_name'} = 'utf8::ToSpecCf'; # Name of hash of special mappings
+$utf8::SwashInfo{'ToCf'}{'missing'} = '0'; # code point maps to itself
+
+# Some code points require special handling because their mappings are each to
+# multiple code points.  These do not appear in the main body, but are defined
+# in the hash below.
+
+# Each key is the string of N bytes that together make up the UTF-8 encoding
+# for the code point.  (i.e. the same as looking at the code point's UTF-8
+# under "use bytes").  Each value is the UTF-8 of the translation, for speed.
+%utf8::ToSpecCf = (
+"\xC3\x9F" => "\x{0073}\x{0073}",             # U+00DF => 0073 0073
+"\xC4\xB0" => "\x{0069}\x{0307}",             # U+0130 => 0069 0307
+"\xC5\x89" => "\x{02BC}\x{006E}",             # U+0149 => 02BC 006E
+"\xC7\xB0" => "\x{006A}\x{030C}",             # U+01F0 => 006A 030C
+"\xCE\x90" => "\x{03B9}\x{0308}\x{0301}",     # U+0390 => 03B9 0308 0301
+"\xCE\xB0" => "\x{03C5}\x{0308}\x{0301}",     # U+03B0 => 03C5 0308 0301
+"\xD6\x87" => "\x{0565}\x{0582}",             # U+0587 => 0565 0582
+"\xE1\xBA\x96" => "\x{0068}\x{0331}",         # U+1E96 => 0068 0331
+"\xE1\xBA\x97" => "\x{0074}\x{0308}",         # U+1E97 => 0074 0308
+"\xE1\xBA\x98" => "\x{0077}\x{030A}",         # U+1E98 => 0077 030A
+"\xE1\xBA\x99" => "\x{0079}\x{030A}",         # U+1E99 => 0079 030A
+"\xE1\xBA\x9A" => "\x{0061}\x{02BE}",         # U+1E9A => 0061 02BE
+"\xE1\xBA\x9E" => "\x{0073}\x{0073}",         # U+1E9E => 0073 0073
+"\xE1\xBD\x90" => "\x{03C5}\x{0313}",         # U+1F50 => 03C5 0313
+"\xE1\xBD\x92" => "\x{03C5}\x{0313}\x{0300}", # U+1F52 => 03C5 0313 0300
+"\xE1\xBD\x94" => "\x{03C5}\x{0313}\x{0301}", # U+1F54 => 03C5 0313 0301
+"\xE1\xBD\x96" => "\x{03C5}\x{0313}\x{0342}", # U+1F56 => 03C5 0313 0342
+"\xE1\xBE\x80" => "\x{1F00}\x{03B9}",         # U+1F80 => 1F00 03B9
+"\xE1\xBE\x81" => "\x{1F01}\x{03B9}",         # U+1F81 => 1F01 03B9
+"\xE1\xBE\x82" => "\x{1F02}\x{03B9}",         # U+1F82 => 1F02 03B9
+"\xE1\xBE\x83" => "\x{1F03}\x{03B9}",         # U+1F83 => 1F03 03B9
+"\xE1\xBE\x84" => "\x{1F04}\x{03B9}",         # U+1F84 => 1F04 03B9
+"\xE1\xBE\x85" => "\x{1F05}\x{03B9}",         # U+1F85 => 1F05 03B9
+"\xE1\xBE\x86" => "\x{1F06}\x{03B9}",         # U+1F86 => 1F06 03B9
+"\xE1\xBE\x87" => "\x{1F07}\x{03B9}",         # U+1F87 => 1F07 03B9
+"\xE1\xBE\x88" => "\x{1F00}\x{03B9}",         # U+1F88 => 1F00 03B9
+"\xE1\xBE\x89" => "\x{1F01}\x{03B9}",         # U+1F89 => 1F01 03B9
+"\xE1\xBE\x8A" => "\x{1F02}\x{03B9}",         # U+1F8A => 1F02 03B9
+"\xE1\xBE\x8B" => "\x{1F03}\x{03B9}",         # U+1F8B => 1F03 03B9
+"\xE1\xBE\x8C" => "\x{1F04}\x{03B9}",         # U+1F8C => 1F04 03B9
+"\xE1\xBE\x8D" => "\x{1F05}\x{03B9}",         # U+1F8D => 1F05 03B9
+"\xE1\xBE\x8E" => "\x{1F06}\x{03B9}",         # U+1F8E => 1F06 03B9
+"\xE1\xBE\x8F" => "\x{1F07}\x{03B9}",         # U+1F8F => 1F07 03B9
+"\xE1\xBE\x90" => "\x{1F20}\x{03B9}",         # U+1F90 => 1F20 03B9
+"\xE1\xBE\x91" => "\x{1F21}\x{03B9}",         # U+1F91 => 1F21 03B9
+"\xE1\xBE\x92" => "\x{1F22}\x{03B9}",         # U+1F92 => 1F22 03B9
+"\xE1\xBE\x93" => "\x{1F23}\x{03B9}",         # U+1F93 => 1F23 03B9
+"\xE1\xBE\x94" => "\x{1F24}\x{03B9}",         # U+1F94 => 1F24 03B9
+"\xE1\xBE\x95" => "\x{1F25}\x{03B9}",         # U+1F95 => 1F25 03B9
+"\xE1\xBE\x96" => "\x{1F26}\x{03B9}",         # U+1F96 => 1F26 03B9
+"\xE1\xBE\x97" => "\x{1F27}\x{03B9}",         # U+1F97 => 1F27 03B9
+"\xE1\xBE\x98" => "\x{1F20}\x{03B9}",         # U+1F98 => 1F20 03B9
+"\xE1\xBE\x99" => "\x{1F21}\x{03B9}",         # U+1F99 => 1F21 03B9
+"\xE1\xBE\x9A" => "\x{1F22}\x{03B9}",         # U+1F9A => 1F22 03B9
+"\xE1\xBE\x9B" => "\x{1F23}\x{03B9}",         # U+1F9B => 1F23 03B9
+"\xE1\xBE\x9C" => "\x{1F24}\x{03B9}",         # U+1F9C => 1F24 03B9
+"\xE1\xBE\x9D" => "\x{1F25}\x{03B9}",         # U+1F9D => 1F25 03B9
+"\xE1\xBE\x9E" => "\x{1F26}\x{03B9}",         # U+1F9E => 1F26 03B9
+"\xE1\xBE\x9F" => "\x{1F27}\x{03B9}",         # U+1F9F => 1F27 03B9
+"\xE1\xBE\xA0" => "\x{1F60}\x{03B9}",         # U+1FA0 => 1F60 03B9
+"\xE1\xBE\xA1" => "\x{1F61}\x{03B9}",         # U+1FA1 => 1F61 03B9
+"\xE1\xBE\xA2" => "\x{1F62}\x{03B9}",         # U+1FA2 => 1F62 03B9
+"\xE1\xBE\xA3" => "\x{1F63}\x{03B9}",         # U+1FA3 => 1F63 03B9
+"\xE1\xBE\xA4" => "\x{1F64}\x{03B9}",         # U+1FA4 => 1F64 03B9
+"\xE1\xBE\xA5" => "\x{1F65}\x{03B9}",         # U+1FA5 => 1F65 03B9
+"\xE1\xBE\xA6" => "\x{1F66}\x{03B9}",         # U+1FA6 => 1F66 03B9
+"\xE1\xBE\xA7" => "\x{1F67}\x{03B9}",         # U+1FA7 => 1F67 03B9
+"\xE1\xBE\xA8" => "\x{1F60}\x{03B9}",         # U+1FA8 => 1F60 03B9
+"\xE1\xBE\xA9" => "\x{1F61}\x{03B9}",         # U+1FA9 => 1F61 03B9
+"\xE1\xBE\xAA" => "\x{1F62}\x{03B9}",         # U+1FAA => 1F62 03B9
+"\xE1\xBE\xAB" => "\x{1F63}\x{03B9}",         # U+1FAB => 1F63 03B9
+"\xE1\xBE\xAC" => "\x{1F64}\x{03B9}",         # U+1FAC => 1F64 03B9
+"\xE1\xBE\xAD" => "\x{1F65}\x{03B9}",         # U+1FAD => 1F65 03B9
+"\xE1\xBE\xAE" => "\x{1F66}\x{03B9}",         # U+1FAE => 1F66 03B9
+"\xE1\xBE\xAF" => "\x{1F67}\x{03B9}",         # U+1FAF => 1F67 03B9
+"\xE1\xBE\xB2" => "\x{1F70}\x{03B9}",         # U+1FB2 => 1F70 03B9
+"\xE1\xBE\xB3" => "\x{03B1}\x{03B9}",         # U+1FB3 => 03B1 03B9
+"\xE1\xBE\xB4" => "\x{03AC}\x{03B9}",         # U+1FB4 => 03AC 03B9
+"\xE1\xBE\xB6" => "\x{03B1}\x{0342}",         # U+1FB6 => 03B1 0342
+"\xE1\xBE\xB7" => "\x{03B1}\x{0342}\x{03B9}", # U+1FB7 => 03B1 0342 03B9
+"\xE1\xBE\xBC" => "\x{03B1}\x{03B9}",         # U+1FBC => 03B1 03B9
+"\xE1\xBF\x82" => "\x{1F74}\x{03B9}",         # U+1FC2 => 1F74 03B9
+"\xE1\xBF\x83" => "\x{03B7}\x{03B9}",         # U+1FC3 => 03B7 03B9
+"\xE1\xBF\x84" => "\x{03AE}\x{03B9}",         # U+1FC4 => 03AE 03B9
+"\xE1\xBF\x86" => "\x{03B7}\x{0342}",         # U+1FC6 => 03B7 0342
+"\xE1\xBF\x87" => "\x{03B7}\x{0342}\x{03B9}", # U+1FC7 => 03B7 0342 03B9
+"\xE1\xBF\x8C" => "\x{03B7}\x{03B9}",         # U+1FCC => 03B7 03B9
+"\xE1\xBF\x92" => "\x{03B9}\x{0308}\x{0300}", # U+1FD2 => 03B9 0308 0300
+"\xE1\xBF\x93" => "\x{03B9}\x{0308}\x{0301}", # U+1FD3 => 03B9 0308 0301
+"\xE1\xBF\x96" => "\x{03B9}\x{0342}",         # U+1FD6 => 03B9 0342
+"\xE1\xBF\x97" => "\x{03B9}\x{0308}\x{0342}", # U+1FD7 => 03B9 0308 0342
+"\xE1\xBF\xA2" => "\x{03C5}\x{0308}\x{0300}", # U+1FE2 => 03C5 0308 0300
+"\xE1\xBF\xA3" => "\x{03C5}\x{0308}\x{0301}", # U+1FE3 => 03C5 0308 0301
+"\xE1\xBF\xA4" => "\x{03C1}\x{0313}",         # U+1FE4 => 03C1 0313
+"\xE1\xBF\xA6" => "\x{03C5}\x{0342}",         # U+1FE6 => 03C5 0342
+"\xE1\xBF\xA7" => "\x{03C5}\x{0308}\x{0342}", # U+1FE7 => 03C5 0308 0342
+"\xE1\xBF\xB2" => "\x{1F7C}\x{03B9}",         # U+1FF2 => 1F7C 03B9
+"\xE1\xBF\xB3" => "\x{03C9}\x{03B9}",         # U+1FF3 => 03C9 03B9
+"\xE1\xBF\xB4" => "\x{03CE}\x{03B9}",         # U+1FF4 => 03CE 03B9
+"\xE1\xBF\xB6" => "\x{03C9}\x{0342}",         # U+1FF6 => 03C9 0342
+"\xE1\xBF\xB7" => "\x{03C9}\x{0342}\x{03B9}", # U+1FF7 => 03C9 0342 03B9
+"\xE1\xBF\xBC" => "\x{03C9}\x{03B9}",         # U+1FFC => 03C9 03B9
+"\xEF\xAC\x80" => "\x{0066}\x{0066}",         # U+FB00 => 0066 0066
+"\xEF\xAC\x81" => "\x{0066}\x{0069}",         # U+FB01 => 0066 0069
+"\xEF\xAC\x82" => "\x{0066}\x{006C}",         # U+FB02 => 0066 006C
+"\xEF\xAC\x83" => "\x{0066}\x{0066}\x{0069}", # U+FB03 => 0066 0066 0069
+"\xEF\xAC\x84" => "\x{0066}\x{0066}\x{006C}", # U+FB04 => 0066 0066 006C
+"\xEF\xAC\x85" => "\x{0073}\x{0074}",         # U+FB05 => 0073 0074
+"\xEF\xAC\x86" => "\x{0073}\x{0074}",         # U+FB06 => 0073 0074
+"\xEF\xAC\x93" => "\x{0574}\x{0576}",         # U+FB13 => 0574 0576
+"\xEF\xAC\x94" => "\x{0574}\x{0565}",         # U+FB14 => 0574 0565
+"\xEF\xAC\x95" => "\x{0574}\x{056B}",         # U+FB15 => 0574 056B
+"\xEF\xAC\x96" => "\x{057E}\x{0576}",         # U+FB16 => 057E 0576
+"\xEF\xAC\x97" => "\x{0574}\x{056D}",         # U+FB17 => 0574 056D
+);
+
+return <<'END';
+41	5A	61
+B5		3BC
+C0	D6	E0
+D8	DE	F8
+100		101
+102		103
+104		105
+106		107
+108		109
+10A		10B
+10C		10D
+10E		10F
+110		111
+112		113
+114		115
+116		117
+118		119
+11A		11B
+11C		11D
+11E		11F
+120		121
+122		123
+124		125
+126		127
+128		129
+12A		12B
+12C		12D
+12E		12F
+132		133
+134		135
+136		137
+139		13A
+13B		13C
+13D		13E
+13F		140
+141		142
+143		144
+145		146
+147		148
+14A		14B
+14C		14D
+14E		14F
+150		151
+152		153
+154		155
+156		157
+158		159
+15A		15B
+15C		15D
+15E		15F
+160		161
+162		163
+164		165
+166		167
+168		169
+16A		16B
+16C		16D
+16E		16F
+170		171
+172		173
+174		175
+176		177
+178		FF
+179		17A
+17B		17C
+17D		17E
+17F		73
+181		253
+182		183
+184		185
+186		254
+187		188
+189	18A	256
+18B		18C
+18E		1DD
+18F		259
+190		25B
+191		192
+193		260
+194		263
+196		269
+197		268
+198		199
+19C		26F
+19D		272
+19F		275
+1A0		1A1
+1A2		1A3
+1A4		1A5
+1A6		280
+1A7		1A8
+1A9		283
+1AC		1AD
+1AE		288
+1AF		1B0
+1B1	1B2	28A
+1B3		1B4
+1B5		1B6
+1B7		292
+1B8		1B9
+1BC		1BD
+1C4		1C6
+1C5		1C6
+1C7		1C9
+1C8		1C9
+1CA		1CC
+1CB		1CC
+1CD		1CE
+1CF		1D0
+1D1		1D2
+1D3		1D4
+1D5		1D6
+1D7		1D8
+1D9		1DA
+1DB		1DC
+1DE		1DF
+1E0		1E1
+1E2		1E3
+1E4		1E5
+1E6		1E7
+1E8		1E9
+1EA		1EB
+1EC		1ED
+1EE		1EF
+1F1		1F3
+1F2		1F3
+1F4		1F5
+1F6		195
+1F7		1BF
+1F8		1F9
+1FA		1FB
+1FC		1FD
+1FE		1FF
+200		201
+202		203
+204		205
+206		207
+208		209
+20A		20B
+20C		20D
+20E		20F
+210		211
+212		213
+214		215
+216		217
+218		219
+21A		21B
+21C		21D
+21E		21F
+220		19E
+222		223
+224		225
+226		227
+228		229
+22A		22B
+22C		22D
+22E		22F
+230		231
+232		233
+23A		2C65
+23B		23C
+23D		19A
+23E		2C66
+241		242
+243		180
+244		289
+245		28C
+246		247
+248		249
+24A		24B
+24C		24D
+24E		24F
+345		3B9
+370		371
+372		373
+376		377
+37F		3F3
+386		3AC
+388	38A	3AD
+38C		3CC
+38E	38F	3CD
+391	3A1	3B1
+3A3	3AB	3C3
+3C2		3C3
+3CF		3D7
+3D0		3B2
+3D1		3B8
+3D5		3C6
+3D6		3C0
+3D8		3D9
+3DA		3DB
+3DC		3DD
+3DE		3DF
+3E0		3E1
+3E2		3E3
+3E4		3E5
+3E6		3E7
+3E8		3E9
+3EA		3EB
+3EC		3ED
+3EE		3EF
+3F0		3BA
+3F1		3C1
+3F4		3B8
+3F5		3B5
+3F7		3F8
+3F9		3F2
+3FA		3FB
+3FD	3FF	37B
+400	40F	450
+410	42F	430
+460		461
+462		463
+464		465
+466		467
+468		469
+46A		46B
+46C		46D
+46E		46F
+470		471
+472		473
+474		475
+476		477
+478		479
+47A		47B
+47C		47D
+47E		47F
+480		481
+48A		48B
+48C		48D
+48E		48F
+490		491
+492		493
+494		495
+496		497
+498		499
+49A		49B
+49C		49D
+49E		49F
+4A0		4A1
+4A2		4A3
+4A4		4A5
+4A6		4A7
+4A8		4A9
+4AA		4AB
+4AC		4AD
+4AE		4AF
+4B0		4B1
+4B2		4B3
+4B4		4B5
+4B6		4B7
+4B8		4B9
+4BA		4BB
+4BC		4BD
+4BE		4BF
+4C0		4CF
+4C1		4C2
+4C3		4C4
+4C5		4C6
+4C7		4C8
+4C9		4CA
+4CB		4CC
+4CD		4CE
+4D0		4D1
+4D2		4D3
+4D4		4D5
+4D6		4D7
+4D8		4D9
+4DA		4DB
+4DC		4DD
+4DE		4DF
+4E0		4E1
+4E2		4E3
+4E4		4E5
+4E6		4E7
+4E8		4E9
+4EA		4EB
+4EC		4ED
+4EE		4EF
+4F0		4F1
+4F2		4F3
+4F4		4F5
+4F6		4F7
+4F8		4F9
+4FA		4FB
+4FC		4FD
+4FE		4FF
+500		501
+502		503
+504		505
+506		507
+508		509
+50A		50B
+50C		50D
+50E		50F
+510		511
+512		513
+514		515
+516		517
+518		519
+51A		51B
+51C		51D
+51E		51F
+520		521
+522		523
+524		525
+526		527
+528		529
+52A		52B
+52C		52D
+52E		52F
+531	556	561
+10A0	10C5	2D00
+10C7		2D27
+10CD		2D2D
+13F8	13FD	13F0
+1E00		1E01
+1E02		1E03
+1E04		1E05
+1E06		1E07
+1E08		1E09
+1E0A		1E0B
+1E0C		1E0D
+1E0E		1E0F
+1E10		1E11
+1E12		1E13
+1E14		1E15
+1E16		1E17
+1E18		1E19
+1E1A		1E1B
+1E1C		1E1D
+1E1E		1E1F
+1E20		1E21
+1E22		1E23
+1E24		1E25
+1E26		1E27
+1E28		1E29
+1E2A		1E2B
+1E2C		1E2D
+1E2E		1E2F
+1E30		1E31
+1E32		1E33
+1E34		1E35
+1E36		1E37
+1E38		1E39
+1E3A		1E3B
+1E3C		1E3D
+1E3E		1E3F
+1E40		1E41
+1E42		1E43
+1E44		1E45
+1E46		1E47
+1E48		1E49
+1E4A		1E4B
+1E4C		1E4D
+1E4E		1E4F
+1E50		1E51
+1E52		1E53
+1E54		1E55
+1E56		1E57
+1E58		1E59
+1E5A		1E5B
+1E5C		1E5D
+1E5E		1E5F
+1E60		1E61
+1E62		1E63
+1E64		1E65
+1E66		1E67
+1E68		1E69
+1E6A		1E6B
+1E6C		1E6D
+1E6E		1E6F
+1E70		1E71
+1E72		1E73
+1E74		1E75
+1E76		1E77
+1E78		1E79
+1E7A		1E7B
+1E7C		1E7D
+1E7E		1E7F
+1E80		1E81
+1E82		1E83
+1E84		1E85
+1E86		1E87
+1E88		1E89
+1E8A		1E8B
+1E8C		1E8D
+1E8E		1E8F
+1E90		1E91
+1E92		1E93
+1E94		1E95
+1E9B		1E61
+1E9E		DF
+1EA0		1EA1
+1EA2		1EA3
+1EA4		1EA5
+1EA6		1EA7
+1EA8		1EA9
+1EAA		1EAB
+1EAC		1EAD
+1EAE		1EAF
+1EB0		1EB1
+1EB2		1EB3
+1EB4		1EB5
+1EB6		1EB7
+1EB8		1EB9
+1EBA		1EBB
+1EBC		1EBD
+1EBE		1EBF
+1EC0		1EC1
+1EC2		1EC3
+1EC4		1EC5
+1EC6		1EC7
+1EC8		1EC9
+1ECA		1ECB
+1ECC		1ECD
+1ECE		1ECF
+1ED0		1ED1
+1ED2		1ED3
+1ED4		1ED5
+1ED6		1ED7
+1ED8		1ED9
+1EDA		1EDB
+1EDC		1EDD
+1EDE		1EDF
+1EE0		1EE1
+1EE2		1EE3
+1EE4		1EE5
+1EE6		1EE7
+1EE8		1EE9
+1EEA		1EEB
+1EEC		1EED
+1EEE		1EEF
+1EF0		1EF1
+1EF2		1EF3
+1EF4		1EF5
+1EF6		1EF7
+1EF8		1EF9
+1EFA		1EFB
+1EFC		1EFD
+1EFE		1EFF
+1F08	1F0F	1F00
+1F18	1F1D	1F10
+1F28	1F2F	1F20
+1F38	1F3F	1F30
+1F48	1F4D	1F40
+1F59		1F51
+1F5B		1F53
+1F5D		1F55
+1F5F		1F57
+1F68	1F6F	1F60
+1F88	1F8F	1F80
+1F98	1F9F	1F90
+1FA8	1FAF	1FA0
+1FB8	1FB9	1FB0
+1FBA	1FBB	1F70
+1FBC		1FB3
+1FBE		3B9
+1FC8	1FCB	1F72
+1FCC		1FC3
+1FD8	1FD9	1FD0
+1FDA	1FDB	1F76
+1FE8	1FE9	1FE0
+1FEA	1FEB	1F7A
+1FEC		1FE5
+1FF8	1FF9	1F78
+1FFA	1FFB	1F7C
+1FFC		1FF3
+2126		3C9
+212A		6B
+212B		E5
+2132		214E
+2160	216F	2170
+2183		2184
+24B6	24CF	24D0
+2C00	2C2E	2C30
+2C60		2C61
+2C62		26B
+2C63		1D7D
+2C64		27D
+2C67		2C68
+2C69		2C6A
+2C6B		2C6C
+2C6D		251
+2C6E		271
+2C6F		250
+2C70		252
+2C72		2C73
+2C75		2C76
+2C7E	2C7F	23F
+2C80		2C81
+2C82		2C83
+2C84		2C85
+2C86		2C87
+2C88		2C89
+2C8A		2C8B
+2C8C		2C8D
+2C8E		2C8F
+2C90		2C91
+2C92		2C93
+2C94		2C95
+2C96		2C97
+2C98		2C99
+2C9A		2C9B
+2C9C		2C9D
+2C9E		2C9F
+2CA0		2CA1
+2CA2		2CA3
+2CA4		2CA5
+2CA6		2CA7
+2CA8		2CA9
+2CAA		2CAB
+2CAC		2CAD
+2CAE		2CAF
+2CB0		2CB1
+2CB2		2CB3
+2CB4		2CB5
+2CB6		2CB7
+2CB8		2CB9
+2CBA		2CBB
+2CBC		2CBD
+2CBE		2CBF
+2CC0		2CC1
+2CC2		2CC3
+2CC4		2CC5
+2CC6		2CC7
+2CC8		2CC9
+2CCA		2CCB
+2CCC		2CCD
+2CCE		2CCF
+2CD0		2CD1
+2CD2		2CD3
+2CD4		2CD5
+2CD6		2CD7
+2CD8		2CD9
+2CDA		2CDB
+2CDC		2CDD
+2CDE		2CDF
+2CE0		2CE1
+2CE2		2CE3
+2CEB		2CEC
+2CED		2CEE
+2CF2		2CF3
+A640		A641
+A642		A643
+A644		A645
+A646		A647
+A648		A649
+A64A		A64B
+A64C		A64D
+A64E		A64F
+A650		A651
+A652		A653
+A654		A655
+A656		A657
+A658		A659
+A65A		A65B
+A65C		A65D
+A65E		A65F
+A660		A661
+A662		A663
+A664		A665
+A666		A667
+A668		A669
+A66A		A66B
+A66C		A66D
+A680		A681
+A682		A683
+A684		A685
+A686		A687
+A688		A689
+A68A		A68B
+A68C		A68D
+A68E		A68F
+A690		A691
+A692		A693
+A694		A695
+A696		A697
+A698		A699
+A69A		A69B
+A722		A723
+A724		A725
+A726		A727
+A728		A729
+A72A		A72B
+A72C		A72D
+A72E		A72F
+A732		A733
+A734		A735
+A736		A737
+A738		A739
+A73A		A73B
+A73C		A73D
+A73E		A73F
+A740		A741
+A742		A743
+A744		A745
+A746		A747
+A748		A749
+A74A		A74B
+A74C		A74D
+A74E		A74F
+A750		A751
+A752		A753
+A754		A755
+A756		A757
+A758		A759
+A75A		A75B
+A75C		A75D
+A75E		A75F
+A760		A761
+A762		A763
+A764		A765
+A766		A767
+A768		A769
+A76A		A76B
+A76C		A76D
+A76E		A76F
+A779		A77A
+A77B		A77C
+A77D		1D79
+A77E		A77F
+A780		A781
+A782		A783
+A784		A785
+A786		A787
+A78B		A78C
+A78D		265
+A790		A791
+A792		A793
+A796		A797
+A798		A799
+A79A		A79B
+A79C		A79D
+A79E		A79F
+A7A0		A7A1
+A7A2		A7A3
+A7A4		A7A5
+A7A6		A7A7
+A7A8		A7A9
+A7AA		266
+A7AB		25C
+A7AC		261
+A7AD		26C
+A7B0		29E
+A7B1		287
+A7B2		29D
+A7B3		AB53
+A7B4		A7B5
+A7B6		A7B7
+AB70	ABBF	13A0
+FF21	FF3A	FF41
+10400	10427	10428
+10C80	10CB2	10CC0
+118A0	118BF	118C0
+END
diff --git a/lib/5.24.1/unicore/To/Digit.pl b/lib/5.24.1/unicore/To/Digit.pl
new file mode 100644
index 00000000..945e018e
--- /dev/null
+++ b/lib/5.24.1/unicore/To/Digit.pl
@@ -0,0 +1,574 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   IT IS DEPRECATED TO USE THIS FILE   !!!!!!!
+
+# This file is for internal use by core Perl only.  It is retained for
+# backwards compatibility with applications that may have come to rely on it,
+# but its format and even its name or existence are subject to change without
+# notice in a future Perl version.  Don't use it directly.  Instead, its
+# contents are now retrievable through a stable API in the Unicode::UCD
+# module: Unicode::UCD::prop_invmap('Perl_Decimal_Digit') (Values for individual
+# code points can be retrieved via Unicode::UCD::charprop());
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToDigit'}{'format'} = 'd'; # single decimal digit
+$utf8::SwashInfo{'ToDigit'}{'missing'} = ''; # code point maps to the null string
+
+return <<'END';
+0030		0
+0031		1
+0032		2
+0033		3
+0034		4
+0035		5
+0036		6
+0037		7
+0038		8
+0039		9
+0660		0
+0661		1
+0662		2
+0663		3
+0664		4
+0665		5
+0666		6
+0667		7
+0668		8
+0669		9
+06F0		0
+06F1		1
+06F2		2
+06F3		3
+06F4		4
+06F5		5
+06F6		6
+06F7		7
+06F8		8
+06F9		9
+07C0		0
+07C1		1
+07C2		2
+07C3		3
+07C4		4
+07C5		5
+07C6		6
+07C7		7
+07C8		8
+07C9		9
+0966		0
+0967		1
+0968		2
+0969		3
+096A		4
+096B		5
+096C		6
+096D		7
+096E		8
+096F		9
+09E6		0
+09E7		1
+09E8		2
+09E9		3
+09EA		4
+09EB		5
+09EC		6
+09ED		7
+09EE		8
+09EF		9
+0A66		0
+0A67		1
+0A68		2
+0A69		3
+0A6A		4
+0A6B		5
+0A6C		6
+0A6D		7
+0A6E		8
+0A6F		9
+0AE6		0
+0AE7		1
+0AE8		2
+0AE9		3
+0AEA		4
+0AEB		5
+0AEC		6
+0AED		7
+0AEE		8
+0AEF		9
+0B66		0
+0B67		1
+0B68		2
+0B69		3
+0B6A		4
+0B6B		5
+0B6C		6
+0B6D		7
+0B6E		8
+0B6F		9
+0BE6		0
+0BE7		1
+0BE8		2
+0BE9		3
+0BEA		4
+0BEB		5
+0BEC		6
+0BED		7
+0BEE		8
+0BEF		9
+0C66		0
+0C67		1
+0C68		2
+0C69		3
+0C6A		4
+0C6B		5
+0C6C		6
+0C6D		7
+0C6E		8
+0C6F		9
+0CE6		0
+0CE7		1
+0CE8		2
+0CE9		3
+0CEA		4
+0CEB		5
+0CEC		6
+0CED		7
+0CEE		8
+0CEF		9
+0D66		0
+0D67		1
+0D68		2
+0D69		3
+0D6A		4
+0D6B		5
+0D6C		6
+0D6D		7
+0D6E		8
+0D6F		9
+0DE6		0
+0DE7		1
+0DE8		2
+0DE9		3
+0DEA		4
+0DEB		5
+0DEC		6
+0DED		7
+0DEE		8
+0DEF		9
+0E50		0
+0E51		1
+0E52		2
+0E53		3
+0E54		4
+0E55		5
+0E56		6
+0E57		7
+0E58		8
+0E59		9
+0ED0		0
+0ED1		1
+0ED2		2
+0ED3		3
+0ED4		4
+0ED5		5
+0ED6		6
+0ED7		7
+0ED8		8
+0ED9		9
+0F20		0
+0F21		1
+0F22		2
+0F23		3
+0F24		4
+0F25		5
+0F26		6
+0F27		7
+0F28		8
+0F29		9
+1040		0
+1041		1
+1042		2
+1043		3
+1044		4
+1045		5
+1046		6
+1047		7
+1048		8
+1049		9
+1090		0
+1091		1
+1092		2
+1093		3
+1094		4
+1095		5
+1096		6
+1097		7
+1098		8
+1099		9
+17E0		0
+17E1		1
+17E2		2
+17E3		3
+17E4		4
+17E5		5
+17E6		6
+17E7		7
+17E8		8
+17E9		9
+1810		0
+1811		1
+1812		2
+1813		3
+1814		4
+1815		5
+1816		6
+1817		7
+1818		8
+1819		9
+1946		0
+1947		1
+1948		2
+1949		3
+194A		4
+194B		5
+194C		6
+194D		7
+194E		8
+194F		9
+19D0		0
+19D1		1
+19D2		2
+19D3		3
+19D4		4
+19D5		5
+19D6		6
+19D7		7
+19D8		8
+19D9		9
+1A80		0
+1A81		1
+1A82		2
+1A83		3
+1A84		4
+1A85		5
+1A86		6
+1A87		7
+1A88		8
+1A89		9
+1A90		0
+1A91		1
+1A92		2
+1A93		3
+1A94		4
+1A95		5
+1A96		6
+1A97		7
+1A98		8
+1A99		9
+1B50		0
+1B51		1
+1B52		2
+1B53		3
+1B54		4
+1B55		5
+1B56		6
+1B57		7
+1B58		8
+1B59		9
+1BB0		0
+1BB1		1
+1BB2		2
+1BB3		3
+1BB4		4
+1BB5		5
+1BB6		6
+1BB7		7
+1BB8		8
+1BB9		9
+1C40		0
+1C41		1
+1C42		2
+1C43		3
+1C44		4
+1C45		5
+1C46		6
+1C47		7
+1C48		8
+1C49		9
+1C50		0
+1C51		1
+1C52		2
+1C53		3
+1C54		4
+1C55		5
+1C56		6
+1C57		7
+1C58		8
+1C59		9
+A620		0
+A621		1
+A622		2
+A623		3
+A624		4
+A625		5
+A626		6
+A627		7
+A628		8
+A629		9
+A8D0		0
+A8D1		1
+A8D2		2
+A8D3		3
+A8D4		4
+A8D5		5
+A8D6		6
+A8D7		7
+A8D8		8
+A8D9		9
+A900		0
+A901		1
+A902		2
+A903		3
+A904		4
+A905		5
+A906		6
+A907		7
+A908		8
+A909		9
+A9D0		0
+A9D1		1
+A9D2		2
+A9D3		3
+A9D4		4
+A9D5		5
+A9D6		6
+A9D7		7
+A9D8		8
+A9D9		9
+A9F0		0
+A9F1		1
+A9F2		2
+A9F3		3
+A9F4		4
+A9F5		5
+A9F6		6
+A9F7		7
+A9F8		8
+A9F9		9
+AA50		0
+AA51		1
+AA52		2
+AA53		3
+AA54		4
+AA55		5
+AA56		6
+AA57		7
+AA58		8
+AA59		9
+ABF0		0
+ABF1		1
+ABF2		2
+ABF3		3
+ABF4		4
+ABF5		5
+ABF6		6
+ABF7		7
+ABF8		8
+ABF9		9
+FF10		0
+FF11		1
+FF12		2
+FF13		3
+FF14		4
+FF15		5
+FF16		6
+FF17		7
+FF18		8
+FF19		9
+104A0		0
+104A1		1
+104A2		2
+104A3		3
+104A4		4
+104A5		5
+104A6		6
+104A7		7
+104A8		8
+104A9		9
+11066		0
+11067		1
+11068		2
+11069		3
+1106A		4
+1106B		5
+1106C		6
+1106D		7
+1106E		8
+1106F		9
+110F0		0
+110F1		1
+110F2		2
+110F3		3
+110F4		4
+110F5		5
+110F6		6
+110F7		7
+110F8		8
+110F9		9
+11136		0
+11137		1
+11138		2
+11139		3
+1113A		4
+1113B		5
+1113C		6
+1113D		7
+1113E		8
+1113F		9
+111D0		0
+111D1		1
+111D2		2
+111D3		3
+111D4		4
+111D5		5
+111D6		6
+111D7		7
+111D8		8
+111D9		9
+112F0		0
+112F1		1
+112F2		2
+112F3		3
+112F4		4
+112F5		5
+112F6		6
+112F7		7
+112F8		8
+112F9		9
+114D0		0
+114D1		1
+114D2		2
+114D3		3
+114D4		4
+114D5		5
+114D6		6
+114D7		7
+114D8		8
+114D9		9
+11650		0
+11651		1
+11652		2
+11653		3
+11654		4
+11655		5
+11656		6
+11657		7
+11658		8
+11659		9
+116C0		0
+116C1		1
+116C2		2
+116C3		3
+116C4		4
+116C5		5
+116C6		6
+116C7		7
+116C8		8
+116C9		9
+11730		0
+11731		1
+11732		2
+11733		3
+11734		4
+11735		5
+11736		6
+11737		7
+11738		8
+11739		9
+118E0		0
+118E1		1
+118E2		2
+118E3		3
+118E4		4
+118E5		5
+118E6		6
+118E7		7
+118E8		8
+118E9		9
+16A60		0
+16A61		1
+16A62		2
+16A63		3
+16A64		4
+16A65		5
+16A66		6
+16A67		7
+16A68		8
+16A69		9
+16B50		0
+16B51		1
+16B52		2
+16B53		3
+16B54		4
+16B55		5
+16B56		6
+16B57		7
+16B58		8
+16B59		9
+1D7CE		0
+1D7CF		1
+1D7D0		2
+1D7D1		3
+1D7D2		4
+1D7D3		5
+1D7D4		6
+1D7D5		7
+1D7D6		8
+1D7D7		9
+1D7D8		0
+1D7D9		1
+1D7DA		2
+1D7DB		3
+1D7DC		4
+1D7DD		5
+1D7DE		6
+1D7DF		7
+1D7E0		8
+1D7E1		9
+1D7E2		0
+1D7E3		1
+1D7E4		2
+1D7E5		3
+1D7E6		4
+1D7E7		5
+1D7E8		6
+1D7E9		7
+1D7EA		8
+1D7EB		9
+1D7EC		0
+1D7ED		1
+1D7EE		2
+1D7EF		3
+1D7F0		4
+1D7F1		5
+1D7F2		6
+1D7F3		7
+1D7F4		8
+1D7F5		9
+1D7F6		0
+1D7F7		1
+1D7F8		2
+1D7F9		3
+1D7FA		4
+1D7FB		5
+1D7FC		6
+1D7FD		7
+1D7FE		8
+1D7FF		9
+END
diff --git a/lib/5.24.1/unicore/To/Ea.pl b/lib/5.24.1/unicore/To/Ea.pl
new file mode 100644
index 00000000..6bd327e8
--- /dev/null
+++ b/lib/5.24.1/unicore/To/Ea.pl
@@ -0,0 +1,243 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToEa'}{'format'} = 's'; # string
+$utf8::SwashInfo{'ToEa'}{'missing'} = 'Neutral';
+
+return <<'END';
+20	7E	Na
+A1		A
+A2	A3	Na
+A4		A
+A5	A6	Na
+A7	A8	A
+AA		A
+AC		Na
+AD	AE	A
+AF		Na
+B0	B4	A
+B6	BA	A
+BC	BF	A
+C6		A
+D0		A
+D7	D8	A
+DE	E1	A
+E6		A
+E8	EA	A
+EC	ED	A
+F0		A
+F2	F3	A
+F7	FA	A
+FC		A
+FE		A
+101		A
+111		A
+113		A
+11B		A
+126	127	A
+12B		A
+131	133	A
+138		A
+13F	142	A
+144		A
+148	14B	A
+14D		A
+152	153	A
+166	167	A
+16B		A
+1CE		A
+1D0		A
+1D2		A
+1D4		A
+1D6		A
+1D8		A
+1DA		A
+1DC		A
+251		A
+261		A
+2C4		A
+2C7		A
+2C9	2CB	A
+2CD		A
+2D0		A
+2D8	2DB	A
+2DD		A
+2DF		A
+300	36F	A
+391	3A1	A
+3A3	3A9	A
+3B1	3C1	A
+3C3	3C9	A
+401		A
+410	44F	A
+451		A
+1100	115F	W
+2010		A
+2013	2016	A
+2018	2019	A
+201C	201D	A
+2020	2022	A
+2024	2027	A
+2030		A
+2032	2033	A
+2035		A
+203B		A
+203E		A
+2074		A
+207F		A
+2081	2084	A
+20A9		H
+20AC		A
+2103		A
+2105		A
+2109		A
+2113		A
+2116		A
+2121	2122	A
+2126		A
+212B		A
+2153	2154	A
+215B	215E	A
+2160	216B	A
+2170	2179	A
+2189		A
+2190	2199	A
+21B8	21B9	A
+21D2		A
+21D4		A
+21E7		A
+2200		A
+2202	2203	A
+2207	2208	A
+220B		A
+220F		A
+2211		A
+2215		A
+221A		A
+221D	2220	A
+2223		A
+2225		A
+2227	222C	A
+222E		A
+2234	2237	A
+223C	223D	A
+2248		A
+224C		A
+2252		A
+2260	2261	A
+2264	2267	A
+226A	226B	A
+226E	226F	A
+2282	2283	A
+2286	2287	A
+2295		A
+2299		A
+22A5		A
+22BF		A
+2312		A
+2329	232A	W
+2460	24E9	A
+24EB	254B	A
+2550	2573	A
+2580	258F	A
+2592	2595	A
+25A0	25A1	A
+25A3	25A9	A
+25B2	25B3	A
+25B6	25B7	A
+25BC	25BD	A
+25C0	25C1	A
+25C6	25C8	A
+25CB		A
+25CE	25D1	A
+25E2	25E5	A
+25EF		A
+2605	2606	A
+2609		A
+260E	260F	A
+2614	2615	A
+261C		A
+261E		A
+2640		A
+2642		A
+2660	2661	A
+2663	2665	A
+2667	266A	A
+266C	266D	A
+266F		A
+269E	269F	A
+26BE	26BF	A
+26C4	26CD	A
+26CF	26E1	A
+26E3		A
+26E8	26FF	A
+273D		A
+2757		A
+2776	277F	A
+27E6	27ED	Na
+2985	2986	Na
+2B55	2B59	A
+2E80	2E99	W
+2E9B	2EF3	W
+2F00	2FD5	W
+2FF0	2FFB	W
+3000		F
+3001	303E	W
+3041	3096	W
+3099	30FF	W
+3105	312D	W
+3131	318E	W
+3190	31BA	W
+31C0	31E3	W
+31F0	321E	W
+3220	3247	W
+3248	324F	A
+3250	32FE	W
+3300	4DBF	W
+4E00	A48C	W
+A490	A4C6	W
+A960	A97C	W
+AC00	D7A3	W
+E000	F8FF	A
+F900	FAFF	W
+FE00	FE0F	A
+FE10	FE19	W
+FE30	FE52	W
+FE54	FE66	W
+FE68	FE6B	W
+FF01	FF60	F
+FF61	FFBE	H
+FFC2	FFC7	H
+FFCA	FFCF	H
+FFD2	FFD7	H
+FFDA	FFDC	H
+FFE0	FFE6	F
+FFE8	FFEE	H
+FFFD		A
+1B000	1B001	W
+1F100	1F10A	A
+1F110	1F12D	A
+1F130	1F169	A
+1F170	1F19A	A
+1F200	1F202	W
+1F210	1F23A	W
+1F240	1F248	W
+1F250	1F251	W
+20000	2FFFD	W
+30000	3FFFD	W
+E0100	E01EF	A
+F0000	FFFFD	A
+100000	10FFFD	A
+END
diff --git a/lib/5.24.1/unicore/To/Fold.pl b/lib/5.24.1/unicore/To/Fold.pl
new file mode 100644
index 00000000..48dd629e
--- /dev/null
+++ b/lib/5.24.1/unicore/To/Fold.pl
@@ -0,0 +1,1384 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   IT IS DEPRECATED TO USE THIS FILE   !!!!!!!
+
+# This file is for internal use by core Perl only.  It is retained for
+# backwards compatibility with applications that may have come to rely on it,
+# but its format and even its name or existence are subject to change without
+# notice in a future Perl version.  Don't use it directly.  Instead, its
+# contents are now retrievable through a stable API in the Unicode::UCD
+# module: Unicode::UCD::prop_invmap('Case_Folding') (Values for individual
+# code points can be retrieved via Unicode::UCD::charprop());
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToFold'}{'format'} = 'x'; # non-negative hex whole number; a code point
+$utf8::SwashInfo{'ToFold'}{'specials_name'} = 'utf8::ToSpecFold'; # Name of hash of special mappings
+$utf8::SwashInfo{'ToFold'}{'missing'} = '<code point>'; # code point maps to itself
+
+# Some code points require special handling because their mappings are each to
+# multiple code points.  These do not appear in the main body, but are defined
+# in the hash below.
+
+# Each key is the string of N bytes that together make up the UTF-8 encoding
+# for the code point.  (i.e. the same as looking at the code point's UTF-8
+# under "use bytes").  Each value is the UTF-8 of the translation, for speed.
+%utf8::ToSpecFold = (
+"\xC3\x9F" => "\x{0073}\x{0073}",             # U+00DF => 0073 0073
+"\xC4\xB0" => "\x{0069}\x{0307}",             # U+0130 => 0069 0307
+"\xC5\x89" => "\x{02BC}\x{006E}",             # U+0149 => 02BC 006E
+"\xC7\xB0" => "\x{006A}\x{030C}",             # U+01F0 => 006A 030C
+"\xCE\x90" => "\x{03B9}\x{0308}\x{0301}",     # U+0390 => 03B9 0308 0301
+"\xCE\xB0" => "\x{03C5}\x{0308}\x{0301}",     # U+03B0 => 03C5 0308 0301
+"\xD6\x87" => "\x{0565}\x{0582}",             # U+0587 => 0565 0582
+"\xE1\xBA\x96" => "\x{0068}\x{0331}",         # U+1E96 => 0068 0331
+"\xE1\xBA\x97" => "\x{0074}\x{0308}",         # U+1E97 => 0074 0308
+"\xE1\xBA\x98" => "\x{0077}\x{030A}",         # U+1E98 => 0077 030A
+"\xE1\xBA\x99" => "\x{0079}\x{030A}",         # U+1E99 => 0079 030A
+"\xE1\xBA\x9A" => "\x{0061}\x{02BE}",         # U+1E9A => 0061 02BE
+"\xE1\xBA\x9E" => "\x{0073}\x{0073}",         # U+1E9E => 0073 0073
+"\xE1\xBD\x90" => "\x{03C5}\x{0313}",         # U+1F50 => 03C5 0313
+"\xE1\xBD\x92" => "\x{03C5}\x{0313}\x{0300}", # U+1F52 => 03C5 0313 0300
+"\xE1\xBD\x94" => "\x{03C5}\x{0313}\x{0301}", # U+1F54 => 03C5 0313 0301
+"\xE1\xBD\x96" => "\x{03C5}\x{0313}\x{0342}", # U+1F56 => 03C5 0313 0342
+"\xE1\xBE\x80" => "\x{1F00}\x{03B9}",         # U+1F80 => 1F00 03B9
+"\xE1\xBE\x81" => "\x{1F01}\x{03B9}",         # U+1F81 => 1F01 03B9
+"\xE1\xBE\x82" => "\x{1F02}\x{03B9}",         # U+1F82 => 1F02 03B9
+"\xE1\xBE\x83" => "\x{1F03}\x{03B9}",         # U+1F83 => 1F03 03B9
+"\xE1\xBE\x84" => "\x{1F04}\x{03B9}",         # U+1F84 => 1F04 03B9
+"\xE1\xBE\x85" => "\x{1F05}\x{03B9}",         # U+1F85 => 1F05 03B9
+"\xE1\xBE\x86" => "\x{1F06}\x{03B9}",         # U+1F86 => 1F06 03B9
+"\xE1\xBE\x87" => "\x{1F07}\x{03B9}",         # U+1F87 => 1F07 03B9
+"\xE1\xBE\x88" => "\x{1F00}\x{03B9}",         # U+1F88 => 1F00 03B9
+"\xE1\xBE\x89" => "\x{1F01}\x{03B9}",         # U+1F89 => 1F01 03B9
+"\xE1\xBE\x8A" => "\x{1F02}\x{03B9}",         # U+1F8A => 1F02 03B9
+"\xE1\xBE\x8B" => "\x{1F03}\x{03B9}",         # U+1F8B => 1F03 03B9
+"\xE1\xBE\x8C" => "\x{1F04}\x{03B9}",         # U+1F8C => 1F04 03B9
+"\xE1\xBE\x8D" => "\x{1F05}\x{03B9}",         # U+1F8D => 1F05 03B9
+"\xE1\xBE\x8E" => "\x{1F06}\x{03B9}",         # U+1F8E => 1F06 03B9
+"\xE1\xBE\x8F" => "\x{1F07}\x{03B9}",         # U+1F8F => 1F07 03B9
+"\xE1\xBE\x90" => "\x{1F20}\x{03B9}",         # U+1F90 => 1F20 03B9
+"\xE1\xBE\x91" => "\x{1F21}\x{03B9}",         # U+1F91 => 1F21 03B9
+"\xE1\xBE\x92" => "\x{1F22}\x{03B9}",         # U+1F92 => 1F22 03B9
+"\xE1\xBE\x93" => "\x{1F23}\x{03B9}",         # U+1F93 => 1F23 03B9
+"\xE1\xBE\x94" => "\x{1F24}\x{03B9}",         # U+1F94 => 1F24 03B9
+"\xE1\xBE\x95" => "\x{1F25}\x{03B9}",         # U+1F95 => 1F25 03B9
+"\xE1\xBE\x96" => "\x{1F26}\x{03B9}",         # U+1F96 => 1F26 03B9
+"\xE1\xBE\x97" => "\x{1F27}\x{03B9}",         # U+1F97 => 1F27 03B9
+"\xE1\xBE\x98" => "\x{1F20}\x{03B9}",         # U+1F98 => 1F20 03B9
+"\xE1\xBE\x99" => "\x{1F21}\x{03B9}",         # U+1F99 => 1F21 03B9
+"\xE1\xBE\x9A" => "\x{1F22}\x{03B9}",         # U+1F9A => 1F22 03B9
+"\xE1\xBE\x9B" => "\x{1F23}\x{03B9}",         # U+1F9B => 1F23 03B9
+"\xE1\xBE\x9C" => "\x{1F24}\x{03B9}",         # U+1F9C => 1F24 03B9
+"\xE1\xBE\x9D" => "\x{1F25}\x{03B9}",         # U+1F9D => 1F25 03B9
+"\xE1\xBE\x9E" => "\x{1F26}\x{03B9}",         # U+1F9E => 1F26 03B9
+"\xE1\xBE\x9F" => "\x{1F27}\x{03B9}",         # U+1F9F => 1F27 03B9
+"\xE1\xBE\xA0" => "\x{1F60}\x{03B9}",         # U+1FA0 => 1F60 03B9
+"\xE1\xBE\xA1" => "\x{1F61}\x{03B9}",         # U+1FA1 => 1F61 03B9
+"\xE1\xBE\xA2" => "\x{1F62}\x{03B9}",         # U+1FA2 => 1F62 03B9
+"\xE1\xBE\xA3" => "\x{1F63}\x{03B9}",         # U+1FA3 => 1F63 03B9
+"\xE1\xBE\xA4" => "\x{1F64}\x{03B9}",         # U+1FA4 => 1F64 03B9
+"\xE1\xBE\xA5" => "\x{1F65}\x{03B9}",         # U+1FA5 => 1F65 03B9
+"\xE1\xBE\xA6" => "\x{1F66}\x{03B9}",         # U+1FA6 => 1F66 03B9
+"\xE1\xBE\xA7" => "\x{1F67}\x{03B9}",         # U+1FA7 => 1F67 03B9
+"\xE1\xBE\xA8" => "\x{1F60}\x{03B9}",         # U+1FA8 => 1F60 03B9
+"\xE1\xBE\xA9" => "\x{1F61}\x{03B9}",         # U+1FA9 => 1F61 03B9
+"\xE1\xBE\xAA" => "\x{1F62}\x{03B9}",         # U+1FAA => 1F62 03B9
+"\xE1\xBE\xAB" => "\x{1F63}\x{03B9}",         # U+1FAB => 1F63 03B9
+"\xE1\xBE\xAC" => "\x{1F64}\x{03B9}",         # U+1FAC => 1F64 03B9
+"\xE1\xBE\xAD" => "\x{1F65}\x{03B9}",         # U+1FAD => 1F65 03B9
+"\xE1\xBE\xAE" => "\x{1F66}\x{03B9}",         # U+1FAE => 1F66 03B9
+"\xE1\xBE\xAF" => "\x{1F67}\x{03B9}",         # U+1FAF => 1F67 03B9
+"\xE1\xBE\xB2" => "\x{1F70}\x{03B9}",         # U+1FB2 => 1F70 03B9
+"\xE1\xBE\xB3" => "\x{03B1}\x{03B9}",         # U+1FB3 => 03B1 03B9
+"\xE1\xBE\xB4" => "\x{03AC}\x{03B9}",         # U+1FB4 => 03AC 03B9
+"\xE1\xBE\xB6" => "\x{03B1}\x{0342}",         # U+1FB6 => 03B1 0342
+"\xE1\xBE\xB7" => "\x{03B1}\x{0342}\x{03B9}", # U+1FB7 => 03B1 0342 03B9
+"\xE1\xBE\xBC" => "\x{03B1}\x{03B9}",         # U+1FBC => 03B1 03B9
+"\xE1\xBF\x82" => "\x{1F74}\x{03B9}",         # U+1FC2 => 1F74 03B9
+"\xE1\xBF\x83" => "\x{03B7}\x{03B9}",         # U+1FC3 => 03B7 03B9
+"\xE1\xBF\x84" => "\x{03AE}\x{03B9}",         # U+1FC4 => 03AE 03B9
+"\xE1\xBF\x86" => "\x{03B7}\x{0342}",         # U+1FC6 => 03B7 0342
+"\xE1\xBF\x87" => "\x{03B7}\x{0342}\x{03B9}", # U+1FC7 => 03B7 0342 03B9
+"\xE1\xBF\x8C" => "\x{03B7}\x{03B9}",         # U+1FCC => 03B7 03B9
+"\xE1\xBF\x92" => "\x{03B9}\x{0308}\x{0300}", # U+1FD2 => 03B9 0308 0300
+"\xE1\xBF\x93" => "\x{03B9}\x{0308}\x{0301}", # U+1FD3 => 03B9 0308 0301
+"\xE1\xBF\x96" => "\x{03B9}\x{0342}",         # U+1FD6 => 03B9 0342
+"\xE1\xBF\x97" => "\x{03B9}\x{0308}\x{0342}", # U+1FD7 => 03B9 0308 0342
+"\xE1\xBF\xA2" => "\x{03C5}\x{0308}\x{0300}", # U+1FE2 => 03C5 0308 0300
+"\xE1\xBF\xA3" => "\x{03C5}\x{0308}\x{0301}", # U+1FE3 => 03C5 0308 0301
+"\xE1\xBF\xA4" => "\x{03C1}\x{0313}",         # U+1FE4 => 03C1 0313
+"\xE1\xBF\xA6" => "\x{03C5}\x{0342}",         # U+1FE6 => 03C5 0342
+"\xE1\xBF\xA7" => "\x{03C5}\x{0308}\x{0342}", # U+1FE7 => 03C5 0308 0342
+"\xE1\xBF\xB2" => "\x{1F7C}\x{03B9}",         # U+1FF2 => 1F7C 03B9
+"\xE1\xBF\xB3" => "\x{03C9}\x{03B9}",         # U+1FF3 => 03C9 03B9
+"\xE1\xBF\xB4" => "\x{03CE}\x{03B9}",         # U+1FF4 => 03CE 03B9
+"\xE1\xBF\xB6" => "\x{03C9}\x{0342}",         # U+1FF6 => 03C9 0342
+"\xE1\xBF\xB7" => "\x{03C9}\x{0342}\x{03B9}", # U+1FF7 => 03C9 0342 03B9
+"\xE1\xBF\xBC" => "\x{03C9}\x{03B9}",         # U+1FFC => 03C9 03B9
+"\xEF\xAC\x80" => "\x{0066}\x{0066}",         # U+FB00 => 0066 0066
+"\xEF\xAC\x81" => "\x{0066}\x{0069}",         # U+FB01 => 0066 0069
+"\xEF\xAC\x82" => "\x{0066}\x{006C}",         # U+FB02 => 0066 006C
+"\xEF\xAC\x83" => "\x{0066}\x{0066}\x{0069}", # U+FB03 => 0066 0066 0069
+"\xEF\xAC\x84" => "\x{0066}\x{0066}\x{006C}", # U+FB04 => 0066 0066 006C
+"\xEF\xAC\x85" => "\x{0073}\x{0074}",         # U+FB05 => 0073 0074
+"\xEF\xAC\x86" => "\x{0073}\x{0074}",         # U+FB06 => 0073 0074
+"\xEF\xAC\x93" => "\x{0574}\x{0576}",         # U+FB13 => 0574 0576
+"\xEF\xAC\x94" => "\x{0574}\x{0565}",         # U+FB14 => 0574 0565
+"\xEF\xAC\x95" => "\x{0574}\x{056B}",         # U+FB15 => 0574 056B
+"\xEF\xAC\x96" => "\x{057E}\x{0576}",         # U+FB16 => 057E 0576
+"\xEF\xAC\x97" => "\x{0574}\x{056D}",         # U+FB17 => 0574 056D
+);
+
+return <<'END';
+0041		0061
+0042		0062
+0043		0063
+0044		0064
+0045		0065
+0046		0066
+0047		0067
+0048		0068
+0049		0069
+004A		006A
+004B		006B
+004C		006C
+004D		006D
+004E		006E
+004F		006F
+0050		0070
+0051		0071
+0052		0072
+0053		0073
+0054		0074
+0055		0075
+0056		0076
+0057		0077
+0058		0078
+0059		0079
+005A		007A
+00B5		03BC
+00C0		00E0
+00C1		00E1
+00C2		00E2
+00C3		00E3
+00C4		00E4
+00C5		00E5
+00C6		00E6
+00C7		00E7
+00C8		00E8
+00C9		00E9
+00CA		00EA
+00CB		00EB
+00CC		00EC
+00CD		00ED
+00CE		00EE
+00CF		00EF
+00D0		00F0
+00D1		00F1
+00D2		00F2
+00D3		00F3
+00D4		00F4
+00D5		00F5
+00D6		00F6
+00D8		00F8
+00D9		00F9
+00DA		00FA
+00DB		00FB
+00DC		00FC
+00DD		00FD
+00DE		00FE
+0100		0101
+0102		0103
+0104		0105
+0106		0107
+0108		0109
+010A		010B
+010C		010D
+010E		010F
+0110		0111
+0112		0113
+0114		0115
+0116		0117
+0118		0119
+011A		011B
+011C		011D
+011E		011F
+0120		0121
+0122		0123
+0124		0125
+0126		0127
+0128		0129
+012A		012B
+012C		012D
+012E		012F
+0132		0133
+0134		0135
+0136		0137
+0139		013A
+013B		013C
+013D		013E
+013F		0140
+0141		0142
+0143		0144
+0145		0146
+0147		0148
+014A		014B
+014C		014D
+014E		014F
+0150		0151
+0152		0153
+0154		0155
+0156		0157
+0158		0159
+015A		015B
+015C		015D
+015E		015F
+0160		0161
+0162		0163
+0164		0165
+0166		0167
+0168		0169
+016A		016B
+016C		016D
+016E		016F
+0170		0171
+0172		0173
+0174		0175
+0176		0177
+0178		00FF
+0179		017A
+017B		017C
+017D		017E
+017F		0073
+0181		0253
+0182		0183
+0184		0185
+0186		0254
+0187		0188
+0189		0256
+018A		0257
+018B		018C
+018E		01DD
+018F		0259
+0190		025B
+0191		0192
+0193		0260
+0194		0263
+0196		0269
+0197		0268
+0198		0199
+019C		026F
+019D		0272
+019F		0275
+01A0		01A1
+01A2		01A3
+01A4		01A5
+01A6		0280
+01A7		01A8
+01A9		0283
+01AC		01AD
+01AE		0288
+01AF		01B0
+01B1		028A
+01B2		028B
+01B3		01B4
+01B5		01B6
+01B7		0292
+01B8		01B9
+01BC		01BD
+01C4		01C6
+01C5		01C6
+01C7		01C9
+01C8		01C9
+01CA		01CC
+01CB		01CC
+01CD		01CE
+01CF		01D0
+01D1		01D2
+01D3		01D4
+01D5		01D6
+01D7		01D8
+01D9		01DA
+01DB		01DC
+01DE		01DF
+01E0		01E1
+01E2		01E3
+01E4		01E5
+01E6		01E7
+01E8		01E9
+01EA		01EB
+01EC		01ED
+01EE		01EF
+01F1		01F3
+01F2		01F3
+01F4		01F5
+01F6		0195
+01F7		01BF
+01F8		01F9
+01FA		01FB
+01FC		01FD
+01FE		01FF
+0200		0201
+0202		0203
+0204		0205
+0206		0207
+0208		0209
+020A		020B
+020C		020D
+020E		020F
+0210		0211
+0212		0213
+0214		0215
+0216		0217
+0218		0219
+021A		021B
+021C		021D
+021E		021F
+0220		019E
+0222		0223
+0224		0225
+0226		0227
+0228		0229
+022A		022B
+022C		022D
+022E		022F
+0230		0231
+0232		0233
+023A		2C65
+023B		023C
+023D		019A
+023E		2C66
+0241		0242
+0243		0180
+0244		0289
+0245		028C
+0246		0247
+0248		0249
+024A		024B
+024C		024D
+024E		024F
+0345		03B9
+0370		0371
+0372		0373
+0376		0377
+037F		03F3
+0386		03AC
+0388		03AD
+0389		03AE
+038A		03AF
+038C		03CC
+038E		03CD
+038F		03CE
+0391		03B1
+0392		03B2
+0393		03B3
+0394		03B4
+0395		03B5
+0396		03B6
+0397		03B7
+0398		03B8
+0399		03B9
+039A		03BA
+039B		03BB
+039C		03BC
+039D		03BD
+039E		03BE
+039F		03BF
+03A0		03C0
+03A1		03C1
+03A3		03C3
+03A4		03C4
+03A5		03C5
+03A6		03C6
+03A7		03C7
+03A8		03C8
+03A9		03C9
+03AA		03CA
+03AB		03CB
+03C2		03C3
+03CF		03D7
+03D0		03B2
+03D1		03B8
+03D5		03C6
+03D6		03C0
+03D8		03D9
+03DA		03DB
+03DC		03DD
+03DE		03DF
+03E0		03E1
+03E2		03E3
+03E4		03E5
+03E6		03E7
+03E8		03E9
+03EA		03EB
+03EC		03ED
+03EE		03EF
+03F0		03BA
+03F1		03C1
+03F4		03B8
+03F5		03B5
+03F7		03F8
+03F9		03F2
+03FA		03FB
+03FD		037B
+03FE		037C
+03FF		037D
+0400		0450
+0401		0451
+0402		0452
+0403		0453
+0404		0454
+0405		0455
+0406		0456
+0407		0457
+0408		0458
+0409		0459
+040A		045A
+040B		045B
+040C		045C
+040D		045D
+040E		045E
+040F		045F
+0410		0430
+0411		0431
+0412		0432
+0413		0433
+0414		0434
+0415		0435
+0416		0436
+0417		0437
+0418		0438
+0419		0439
+041A		043A
+041B		043B
+041C		043C
+041D		043D
+041E		043E
+041F		043F
+0420		0440
+0421		0441
+0422		0442
+0423		0443
+0424		0444
+0425		0445
+0426		0446
+0427		0447
+0428		0448
+0429		0449
+042A		044A
+042B		044B
+042C		044C
+042D		044D
+042E		044E
+042F		044F
+0460		0461
+0462		0463
+0464		0465
+0466		0467
+0468		0469
+046A		046B
+046C		046D
+046E		046F
+0470		0471
+0472		0473
+0474		0475
+0476		0477
+0478		0479
+047A		047B
+047C		047D
+047E		047F
+0480		0481
+048A		048B
+048C		048D
+048E		048F
+0490		0491
+0492		0493
+0494		0495
+0496		0497
+0498		0499
+049A		049B
+049C		049D
+049E		049F
+04A0		04A1
+04A2		04A3
+04A4		04A5
+04A6		04A7
+04A8		04A9
+04AA		04AB
+04AC		04AD
+04AE		04AF
+04B0		04B1
+04B2		04B3
+04B4		04B5
+04B6		04B7
+04B8		04B9
+04BA		04BB
+04BC		04BD
+04BE		04BF
+04C0		04CF
+04C1		04C2
+04C3		04C4
+04C5		04C6
+04C7		04C8
+04C9		04CA
+04CB		04CC
+04CD		04CE
+04D0		04D1
+04D2		04D3
+04D4		04D5
+04D6		04D7
+04D8		04D9
+04DA		04DB
+04DC		04DD
+04DE		04DF
+04E0		04E1
+04E2		04E3
+04E4		04E5
+04E6		04E7
+04E8		04E9
+04EA		04EB
+04EC		04ED
+04EE		04EF
+04F0		04F1
+04F2		04F3
+04F4		04F5
+04F6		04F7
+04F8		04F9
+04FA		04FB
+04FC		04FD
+04FE		04FF
+0500		0501
+0502		0503
+0504		0505
+0506		0507
+0508		0509
+050A		050B
+050C		050D
+050E		050F
+0510		0511
+0512		0513
+0514		0515
+0516		0517
+0518		0519
+051A		051B
+051C		051D
+051E		051F
+0520		0521
+0522		0523
+0524		0525
+0526		0527
+0528		0529
+052A		052B
+052C		052D
+052E		052F
+0531		0561
+0532		0562
+0533		0563
+0534		0564
+0535		0565
+0536		0566
+0537		0567
+0538		0568
+0539		0569
+053A		056A
+053B		056B
+053C		056C
+053D		056D
+053E		056E
+053F		056F
+0540		0570
+0541		0571
+0542		0572
+0543		0573
+0544		0574
+0545		0575
+0546		0576
+0547		0577
+0548		0578
+0549		0579
+054A		057A
+054B		057B
+054C		057C
+054D		057D
+054E		057E
+054F		057F
+0550		0580
+0551		0581
+0552		0582
+0553		0583
+0554		0584
+0555		0585
+0556		0586
+10A0		2D00
+10A1		2D01
+10A2		2D02
+10A3		2D03
+10A4		2D04
+10A5		2D05
+10A6		2D06
+10A7		2D07
+10A8		2D08
+10A9		2D09
+10AA		2D0A
+10AB		2D0B
+10AC		2D0C
+10AD		2D0D
+10AE		2D0E
+10AF		2D0F
+10B0		2D10
+10B1		2D11
+10B2		2D12
+10B3		2D13
+10B4		2D14
+10B5		2D15
+10B6		2D16
+10B7		2D17
+10B8		2D18
+10B9		2D19
+10BA		2D1A
+10BB		2D1B
+10BC		2D1C
+10BD		2D1D
+10BE		2D1E
+10BF		2D1F
+10C0		2D20
+10C1		2D21
+10C2		2D22
+10C3		2D23
+10C4		2D24
+10C5		2D25
+10C7		2D27
+10CD		2D2D
+13F8		13F0
+13F9		13F1
+13FA		13F2
+13FB		13F3
+13FC		13F4
+13FD		13F5
+1E00		1E01
+1E02		1E03
+1E04		1E05
+1E06		1E07
+1E08		1E09
+1E0A		1E0B
+1E0C		1E0D
+1E0E		1E0F
+1E10		1E11
+1E12		1E13
+1E14		1E15
+1E16		1E17
+1E18		1E19
+1E1A		1E1B
+1E1C		1E1D
+1E1E		1E1F
+1E20		1E21
+1E22		1E23
+1E24		1E25
+1E26		1E27
+1E28		1E29
+1E2A		1E2B
+1E2C		1E2D
+1E2E		1E2F
+1E30		1E31
+1E32		1E33
+1E34		1E35
+1E36		1E37
+1E38		1E39
+1E3A		1E3B
+1E3C		1E3D
+1E3E		1E3F
+1E40		1E41
+1E42		1E43
+1E44		1E45
+1E46		1E47
+1E48		1E49
+1E4A		1E4B
+1E4C		1E4D
+1E4E		1E4F
+1E50		1E51
+1E52		1E53
+1E54		1E55
+1E56		1E57
+1E58		1E59
+1E5A		1E5B
+1E5C		1E5D
+1E5E		1E5F
+1E60		1E61
+1E62		1E63
+1E64		1E65
+1E66		1E67
+1E68		1E69
+1E6A		1E6B
+1E6C		1E6D
+1E6E		1E6F
+1E70		1E71
+1E72		1E73
+1E74		1E75
+1E76		1E77
+1E78		1E79
+1E7A		1E7B
+1E7C		1E7D
+1E7E		1E7F
+1E80		1E81
+1E82		1E83
+1E84		1E85
+1E86		1E87
+1E88		1E89
+1E8A		1E8B
+1E8C		1E8D
+1E8E		1E8F
+1E90		1E91
+1E92		1E93
+1E94		1E95
+1E9B		1E61
+1E9E		00DF
+1EA0		1EA1
+1EA2		1EA3
+1EA4		1EA5
+1EA6		1EA7
+1EA8		1EA9
+1EAA		1EAB
+1EAC		1EAD
+1EAE		1EAF
+1EB0		1EB1
+1EB2		1EB3
+1EB4		1EB5
+1EB6		1EB7
+1EB8		1EB9
+1EBA		1EBB
+1EBC		1EBD
+1EBE		1EBF
+1EC0		1EC1
+1EC2		1EC3
+1EC4		1EC5
+1EC6		1EC7
+1EC8		1EC9
+1ECA		1ECB
+1ECC		1ECD
+1ECE		1ECF
+1ED0		1ED1
+1ED2		1ED3
+1ED4		1ED5
+1ED6		1ED7
+1ED8		1ED9
+1EDA		1EDB
+1EDC		1EDD
+1EDE		1EDF
+1EE0		1EE1
+1EE2		1EE3
+1EE4		1EE5
+1EE6		1EE7
+1EE8		1EE9
+1EEA		1EEB
+1EEC		1EED
+1EEE		1EEF
+1EF0		1EF1
+1EF2		1EF3
+1EF4		1EF5
+1EF6		1EF7
+1EF8		1EF9
+1EFA		1EFB
+1EFC		1EFD
+1EFE		1EFF
+1F08		1F00
+1F09		1F01
+1F0A		1F02
+1F0B		1F03
+1F0C		1F04
+1F0D		1F05
+1F0E		1F06
+1F0F		1F07
+1F18		1F10
+1F19		1F11
+1F1A		1F12
+1F1B		1F13
+1F1C		1F14
+1F1D		1F15
+1F28		1F20
+1F29		1F21
+1F2A		1F22
+1F2B		1F23
+1F2C		1F24
+1F2D		1F25
+1F2E		1F26
+1F2F		1F27
+1F38		1F30
+1F39		1F31
+1F3A		1F32
+1F3B		1F33
+1F3C		1F34
+1F3D		1F35
+1F3E		1F36
+1F3F		1F37
+1F48		1F40
+1F49		1F41
+1F4A		1F42
+1F4B		1F43
+1F4C		1F44
+1F4D		1F45
+1F59		1F51
+1F5B		1F53
+1F5D		1F55
+1F5F		1F57
+1F68		1F60
+1F69		1F61
+1F6A		1F62
+1F6B		1F63
+1F6C		1F64
+1F6D		1F65
+1F6E		1F66
+1F6F		1F67
+1F88		1F80
+1F89		1F81
+1F8A		1F82
+1F8B		1F83
+1F8C		1F84
+1F8D		1F85
+1F8E		1F86
+1F8F		1F87
+1F98		1F90
+1F99		1F91
+1F9A		1F92
+1F9B		1F93
+1F9C		1F94
+1F9D		1F95
+1F9E		1F96
+1F9F		1F97
+1FA8		1FA0
+1FA9		1FA1
+1FAA		1FA2
+1FAB		1FA3
+1FAC		1FA4
+1FAD		1FA5
+1FAE		1FA6
+1FAF		1FA7
+1FB8		1FB0
+1FB9		1FB1
+1FBA		1F70
+1FBB		1F71
+1FBC		1FB3
+1FBE		03B9
+1FC8		1F72
+1FC9		1F73
+1FCA		1F74
+1FCB		1F75
+1FCC		1FC3
+1FD8		1FD0
+1FD9		1FD1
+1FDA		1F76
+1FDB		1F77
+1FE8		1FE0
+1FE9		1FE1
+1FEA		1F7A
+1FEB		1F7B
+1FEC		1FE5
+1FF8		1F78
+1FF9		1F79
+1FFA		1F7C
+1FFB		1F7D
+1FFC		1FF3
+2126		03C9
+212A		006B
+212B		00E5
+2132		214E
+2160		2170
+2161		2171
+2162		2172
+2163		2173
+2164		2174
+2165		2175
+2166		2176
+2167		2177
+2168		2178
+2169		2179
+216A		217A
+216B		217B
+216C		217C
+216D		217D
+216E		217E
+216F		217F
+2183		2184
+24B6		24D0
+24B7		24D1
+24B8		24D2
+24B9		24D3
+24BA		24D4
+24BB		24D5
+24BC		24D6
+24BD		24D7
+24BE		24D8
+24BF		24D9
+24C0		24DA
+24C1		24DB
+24C2		24DC
+24C3		24DD
+24C4		24DE
+24C5		24DF
+24C6		24E0
+24C7		24E1
+24C8		24E2
+24C9		24E3
+24CA		24E4
+24CB		24E5
+24CC		24E6
+24CD		24E7
+24CE		24E8
+24CF		24E9
+2C00		2C30
+2C01		2C31
+2C02		2C32
+2C03		2C33
+2C04		2C34
+2C05		2C35
+2C06		2C36
+2C07		2C37
+2C08		2C38
+2C09		2C39
+2C0A		2C3A
+2C0B		2C3B
+2C0C		2C3C
+2C0D		2C3D
+2C0E		2C3E
+2C0F		2C3F
+2C10		2C40
+2C11		2C41
+2C12		2C42
+2C13		2C43
+2C14		2C44
+2C15		2C45
+2C16		2C46
+2C17		2C47
+2C18		2C48
+2C19		2C49
+2C1A		2C4A
+2C1B		2C4B
+2C1C		2C4C
+2C1D		2C4D
+2C1E		2C4E
+2C1F		2C4F
+2C20		2C50
+2C21		2C51
+2C22		2C52
+2C23		2C53
+2C24		2C54
+2C25		2C55
+2C26		2C56
+2C27		2C57
+2C28		2C58
+2C29		2C59
+2C2A		2C5A
+2C2B		2C5B
+2C2C		2C5C
+2C2D		2C5D
+2C2E		2C5E
+2C60		2C61
+2C62		026B
+2C63		1D7D
+2C64		027D
+2C67		2C68
+2C69		2C6A
+2C6B		2C6C
+2C6D		0251
+2C6E		0271
+2C6F		0250
+2C70		0252
+2C72		2C73
+2C75		2C76
+2C7E		023F
+2C7F		0240
+2C80		2C81
+2C82		2C83
+2C84		2C85
+2C86		2C87
+2C88		2C89
+2C8A		2C8B
+2C8C		2C8D
+2C8E		2C8F
+2C90		2C91
+2C92		2C93
+2C94		2C95
+2C96		2C97
+2C98		2C99
+2C9A		2C9B
+2C9C		2C9D
+2C9E		2C9F
+2CA0		2CA1
+2CA2		2CA3
+2CA4		2CA5
+2CA6		2CA7
+2CA8		2CA9
+2CAA		2CAB
+2CAC		2CAD
+2CAE		2CAF
+2CB0		2CB1
+2CB2		2CB3
+2CB4		2CB5
+2CB6		2CB7
+2CB8		2CB9
+2CBA		2CBB
+2CBC		2CBD
+2CBE		2CBF
+2CC0		2CC1
+2CC2		2CC3
+2CC4		2CC5
+2CC6		2CC7
+2CC8		2CC9
+2CCA		2CCB
+2CCC		2CCD
+2CCE		2CCF
+2CD0		2CD1
+2CD2		2CD3
+2CD4		2CD5
+2CD6		2CD7
+2CD8		2CD9
+2CDA		2CDB
+2CDC		2CDD
+2CDE		2CDF
+2CE0		2CE1
+2CE2		2CE3
+2CEB		2CEC
+2CED		2CEE
+2CF2		2CF3
+A640		A641
+A642		A643
+A644		A645
+A646		A647
+A648		A649
+A64A		A64B
+A64C		A64D
+A64E		A64F
+A650		A651
+A652		A653
+A654		A655
+A656		A657
+A658		A659
+A65A		A65B
+A65C		A65D
+A65E		A65F
+A660		A661
+A662		A663
+A664		A665
+A666		A667
+A668		A669
+A66A		A66B
+A66C		A66D
+A680		A681
+A682		A683
+A684		A685
+A686		A687
+A688		A689
+A68A		A68B
+A68C		A68D
+A68E		A68F
+A690		A691
+A692		A693
+A694		A695
+A696		A697
+A698		A699
+A69A		A69B
+A722		A723
+A724		A725
+A726		A727
+A728		A729
+A72A		A72B
+A72C		A72D
+A72E		A72F
+A732		A733
+A734		A735
+A736		A737
+A738		A739
+A73A		A73B
+A73C		A73D
+A73E		A73F
+A740		A741
+A742		A743
+A744		A745
+A746		A747
+A748		A749
+A74A		A74B
+A74C		A74D
+A74E		A74F
+A750		A751
+A752		A753
+A754		A755
+A756		A757
+A758		A759
+A75A		A75B
+A75C		A75D
+A75E		A75F
+A760		A761
+A762		A763
+A764		A765
+A766		A767
+A768		A769
+A76A		A76B
+A76C		A76D
+A76E		A76F
+A779		A77A
+A77B		A77C
+A77D		1D79
+A77E		A77F
+A780		A781
+A782		A783
+A784		A785
+A786		A787
+A78B		A78C
+A78D		0265
+A790		A791
+A792		A793
+A796		A797
+A798		A799
+A79A		A79B
+A79C		A79D
+A79E		A79F
+A7A0		A7A1
+A7A2		A7A3
+A7A4		A7A5
+A7A6		A7A7
+A7A8		A7A9
+A7AA		0266
+A7AB		025C
+A7AC		0261
+A7AD		026C
+A7B0		029E
+A7B1		0287
+A7B2		029D
+A7B3		AB53
+A7B4		A7B5
+A7B6		A7B7
+AB70		13A0
+AB71		13A1
+AB72		13A2
+AB73		13A3
+AB74		13A4
+AB75		13A5
+AB76		13A6
+AB77		13A7
+AB78		13A8
+AB79		13A9
+AB7A		13AA
+AB7B		13AB
+AB7C		13AC
+AB7D		13AD
+AB7E		13AE
+AB7F		13AF
+AB80		13B0
+AB81		13B1
+AB82		13B2
+AB83		13B3
+AB84		13B4
+AB85		13B5
+AB86		13B6
+AB87		13B7
+AB88		13B8
+AB89		13B9
+AB8A		13BA
+AB8B		13BB
+AB8C		13BC
+AB8D		13BD
+AB8E		13BE
+AB8F		13BF
+AB90		13C0
+AB91		13C1
+AB92		13C2
+AB93		13C3
+AB94		13C4
+AB95		13C5
+AB96		13C6
+AB97		13C7
+AB98		13C8
+AB99		13C9
+AB9A		13CA
+AB9B		13CB
+AB9C		13CC
+AB9D		13CD
+AB9E		13CE
+AB9F		13CF
+ABA0		13D0
+ABA1		13D1
+ABA2		13D2
+ABA3		13D3
+ABA4		13D4
+ABA5		13D5
+ABA6		13D6
+ABA7		13D7
+ABA8		13D8
+ABA9		13D9
+ABAA		13DA
+ABAB		13DB
+ABAC		13DC
+ABAD		13DD
+ABAE		13DE
+ABAF		13DF
+ABB0		13E0
+ABB1		13E1
+ABB2		13E2
+ABB3		13E3
+ABB4		13E4
+ABB5		13E5
+ABB6		13E6
+ABB7		13E7
+ABB8		13E8
+ABB9		13E9
+ABBA		13EA
+ABBB		13EB
+ABBC		13EC
+ABBD		13ED
+ABBE		13EE
+ABBF		13EF
+FF21		FF41
+FF22		FF42
+FF23		FF43
+FF24		FF44
+FF25		FF45
+FF26		FF46
+FF27		FF47
+FF28		FF48
+FF29		FF49
+FF2A		FF4A
+FF2B		FF4B
+FF2C		FF4C
+FF2D		FF4D
+FF2E		FF4E
+FF2F		FF4F
+FF30		FF50
+FF31		FF51
+FF32		FF52
+FF33		FF53
+FF34		FF54
+FF35		FF55
+FF36		FF56
+FF37		FF57
+FF38		FF58
+FF39		FF59
+FF3A		FF5A
+10400		10428
+10401		10429
+10402		1042A
+10403		1042B
+10404		1042C
+10405		1042D
+10406		1042E
+10407		1042F
+10408		10430
+10409		10431
+1040A		10432
+1040B		10433
+1040C		10434
+1040D		10435
+1040E		10436
+1040F		10437
+10410		10438
+10411		10439
+10412		1043A
+10413		1043B
+10414		1043C
+10415		1043D
+10416		1043E
+10417		1043F
+10418		10440
+10419		10441
+1041A		10442
+1041B		10443
+1041C		10444
+1041D		10445
+1041E		10446
+1041F		10447
+10420		10448
+10421		10449
+10422		1044A
+10423		1044B
+10424		1044C
+10425		1044D
+10426		1044E
+10427		1044F
+10C80		10CC0
+10C81		10CC1
+10C82		10CC2
+10C83		10CC3
+10C84		10CC4
+10C85		10CC5
+10C86		10CC6
+10C87		10CC7
+10C88		10CC8
+10C89		10CC9
+10C8A		10CCA
+10C8B		10CCB
+10C8C		10CCC
+10C8D		10CCD
+10C8E		10CCE
+10C8F		10CCF
+10C90		10CD0
+10C91		10CD1
+10C92		10CD2
+10C93		10CD3
+10C94		10CD4
+10C95		10CD5
+10C96		10CD6
+10C97		10CD7
+10C98		10CD8
+10C99		10CD9
+10C9A		10CDA
+10C9B		10CDB
+10C9C		10CDC
+10C9D		10CDD
+10C9E		10CDE
+10C9F		10CDF
+10CA0		10CE0
+10CA1		10CE1
+10CA2		10CE2
+10CA3		10CE3
+10CA4		10CE4
+10CA5		10CE5
+10CA6		10CE6
+10CA7		10CE7
+10CA8		10CE8
+10CA9		10CE9
+10CAA		10CEA
+10CAB		10CEB
+10CAC		10CEC
+10CAD		10CED
+10CAE		10CEE
+10CAF		10CEF
+10CB0		10CF0
+10CB1		10CF1
+10CB2		10CF2
+118A0		118C0
+118A1		118C1
+118A2		118C2
+118A3		118C3
+118A4		118C4
+118A5		118C5
+118A6		118C6
+118A7		118C7
+118A8		118C8
+118A9		118C9
+118AA		118CA
+118AB		118CB
+118AC		118CC
+118AD		118CD
+118AE		118CE
+118AF		118CF
+118B0		118D0
+118B1		118D1
+118B2		118D2
+118B3		118D3
+118B4		118D4
+118B5		118D5
+118B6		118D6
+118B7		118D7
+118B8		118D8
+118B9		118D9
+118BA		118DA
+118BB		118DB
+118BC		118DC
+118BD		118DD
+118BE		118DE
+118BF		118DF
+END
diff --git a/lib/5.24.1/unicore/To/GCB.pl b/lib/5.24.1/unicore/To/GCB.pl
new file mode 100644
index 00000000..f7884f63
--- /dev/null
+++ b/lib/5.24.1/unicore/To/GCB.pl
@@ -0,0 +1,1264 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToGCB'}{'format'} = 's'; # string
+$utf8::SwashInfo{'ToGCB'}{'missing'} = 'Other';
+
+return <<'END';
+0	9	Control
+A		LF
+B	C	Control
+D		CR
+E	1F	Control
+7F	9F	Control
+AD		Control
+300	36F	Extend
+483	489	Extend
+591	5BD	Extend
+5BF		Extend
+5C1	5C2	Extend
+5C4	5C5	Extend
+5C7		Extend
+600	605	Control
+610	61A	Extend
+61C		Control
+64B	65F	Extend
+670		Extend
+6D6	6DC	Extend
+6DD		Control
+6DF	6E4	Extend
+6E7	6E8	Extend
+6EA	6ED	Extend
+70F		Control
+711		Extend
+730	74A	Extend
+7A6	7B0	Extend
+7EB	7F3	Extend
+816	819	Extend
+81B	823	Extend
+825	827	Extend
+829	82D	Extend
+859	85B	Extend
+8E3	902	Extend
+903		SpacingMark
+93A		Extend
+93B		SpacingMark
+93C		Extend
+93E	940	SpacingMark
+941	948	Extend
+949	94C	SpacingMark
+94D		Extend
+94E	94F	SpacingMark
+951	957	Extend
+962	963	Extend
+981		Extend
+982	983	SpacingMark
+9BC		Extend
+9BE		Extend
+9BF	9C0	SpacingMark
+9C1	9C4	Extend
+9C7	9C8	SpacingMark
+9CB	9CC	SpacingMark
+9CD		Extend
+9D7		Extend
+9E2	9E3	Extend
+A01	A02	Extend
+A03		SpacingMark
+A3C		Extend
+A3E	A40	SpacingMark
+A41	A42	Extend
+A47	A48	Extend
+A4B	A4D	Extend
+A51		Extend
+A70	A71	Extend
+A75		Extend
+A81	A82	Extend
+A83		SpacingMark
+ABC		Extend
+ABE	AC0	SpacingMark
+AC1	AC5	Extend
+AC7	AC8	Extend
+AC9		SpacingMark
+ACB	ACC	SpacingMark
+ACD		Extend
+AE2	AE3	Extend
+B01		Extend
+B02	B03	SpacingMark
+B3C		Extend
+B3E	B3F	Extend
+B40		SpacingMark
+B41	B44	Extend
+B47	B48	SpacingMark
+B4B	B4C	SpacingMark
+B4D		Extend
+B56	B57	Extend
+B62	B63	Extend
+B82		Extend
+BBE		Extend
+BBF		SpacingMark
+BC0		Extend
+BC1	BC2	SpacingMark
+BC6	BC8	SpacingMark
+BCA	BCC	SpacingMark
+BCD		Extend
+BD7		Extend
+C00		Extend
+C01	C03	SpacingMark
+C3E	C40	Extend
+C41	C44	SpacingMark
+C46	C48	Extend
+C4A	C4D	Extend
+C55	C56	Extend
+C62	C63	Extend
+C81		Extend
+C82	C83	SpacingMark
+CBC		Extend
+CBE		SpacingMark
+CBF		Extend
+CC0	CC1	SpacingMark
+CC2		Extend
+CC3	CC4	SpacingMark
+CC6		Extend
+CC7	CC8	SpacingMark
+CCA	CCB	SpacingMark
+CCC	CCD	Extend
+CD5	CD6	Extend
+CE2	CE3	Extend
+D01		Extend
+D02	D03	SpacingMark
+D3E		Extend
+D3F	D40	SpacingMark
+D41	D44	Extend
+D46	D48	SpacingMark
+D4A	D4C	SpacingMark
+D4D		Extend
+D57		Extend
+D62	D63	Extend
+D82	D83	SpacingMark
+DCA		Extend
+DCF		Extend
+DD0	DD1	SpacingMark
+DD2	DD4	Extend
+DD6		Extend
+DD8	DDE	SpacingMark
+DDF		Extend
+DF2	DF3	SpacingMark
+E31		Extend
+E33		SpacingMark
+E34	E3A	Extend
+E47	E4E	Extend
+EB1		Extend
+EB3		SpacingMark
+EB4	EB9	Extend
+EBB	EBC	Extend
+EC8	ECD	Extend
+F18	F19	Extend
+F35		Extend
+F37		Extend
+F39		Extend
+F3E	F3F	SpacingMark
+F71	F7E	Extend
+F7F		SpacingMark
+F80	F84	Extend
+F86	F87	Extend
+F8D	F97	Extend
+F99	FBC	Extend
+FC6		Extend
+102D	1030	Extend
+1031		SpacingMark
+1032	1037	Extend
+1039	103A	Extend
+103B	103C	SpacingMark
+103D	103E	Extend
+1056	1057	SpacingMark
+1058	1059	Extend
+105E	1060	Extend
+1071	1074	Extend
+1082		Extend
+1084		SpacingMark
+1085	1086	Extend
+108D		Extend
+109D		Extend
+1100	115F	L
+1160	11A7	V
+11A8	11FF	T
+135D	135F	Extend
+1712	1714	Extend
+1732	1734	Extend
+1752	1753	Extend
+1772	1773	Extend
+17B4	17B5	Extend
+17B6		SpacingMark
+17B7	17BD	Extend
+17BE	17C5	SpacingMark
+17C6		Extend
+17C7	17C8	SpacingMark
+17C9	17D3	Extend
+17DD		Extend
+180B	180D	Extend
+180E		Control
+18A9		Extend
+1920	1922	Extend
+1923	1926	SpacingMark
+1927	1928	Extend
+1929	192B	SpacingMark
+1930	1931	SpacingMark
+1932		Extend
+1933	1938	SpacingMark
+1939	193B	Extend
+1A17	1A18	Extend
+1A19	1A1A	SpacingMark
+1A1B		Extend
+1A55		SpacingMark
+1A56		Extend
+1A57		SpacingMark
+1A58	1A5E	Extend
+1A60		Extend
+1A62		Extend
+1A65	1A6C	Extend
+1A6D	1A72	SpacingMark
+1A73	1A7C	Extend
+1A7F		Extend
+1AB0	1ABE	Extend
+1B00	1B03	Extend
+1B04		SpacingMark
+1B34		Extend
+1B35		SpacingMark
+1B36	1B3A	Extend
+1B3B		SpacingMark
+1B3C		Extend
+1B3D	1B41	SpacingMark
+1B42		Extend
+1B43	1B44	SpacingMark
+1B6B	1B73	Extend
+1B80	1B81	Extend
+1B82		SpacingMark
+1BA1		SpacingMark
+1BA2	1BA5	Extend
+1BA6	1BA7	SpacingMark
+1BA8	1BA9	Extend
+1BAA		SpacingMark
+1BAB	1BAD	Extend
+1BE6		Extend
+1BE7		SpacingMark
+1BE8	1BE9	Extend
+1BEA	1BEC	SpacingMark
+1BED		Extend
+1BEE		SpacingMark
+1BEF	1BF1	Extend
+1BF2	1BF3	SpacingMark
+1C24	1C2B	SpacingMark
+1C2C	1C33	Extend
+1C34	1C35	SpacingMark
+1C36	1C37	Extend
+1CD0	1CD2	Extend
+1CD4	1CE0	Extend
+1CE1		SpacingMark
+1CE2	1CE8	Extend
+1CED		Extend
+1CF2	1CF3	SpacingMark
+1CF4		Extend
+1CF8	1CF9	Extend
+1DC0	1DF5	Extend
+1DFC	1DFF	Extend
+200B		Control
+200C	200D	Extend
+200E	200F	Control
+2028	202E	Control
+2060	206F	Control
+20D0	20F0	Extend
+2CEF	2CF1	Extend
+2D7F		Extend
+2DE0	2DFF	Extend
+302A	302F	Extend
+3099	309A	Extend
+A66F	A672	Extend
+A674	A67D	Extend
+A69E	A69F	Extend
+A6F0	A6F1	Extend
+A802		Extend
+A806		Extend
+A80B		Extend
+A823	A824	SpacingMark
+A825	A826	Extend
+A827		SpacingMark
+A880	A881	SpacingMark
+A8B4	A8C3	SpacingMark
+A8C4		Extend
+A8E0	A8F1	Extend
+A926	A92D	Extend
+A947	A951	Extend
+A952	A953	SpacingMark
+A960	A97C	L
+A980	A982	Extend
+A983		SpacingMark
+A9B3		Extend
+A9B4	A9B5	SpacingMark
+A9B6	A9B9	Extend
+A9BA	A9BB	SpacingMark
+A9BC		Extend
+A9BD	A9C0	SpacingMark
+A9E5		Extend
+AA29	AA2E	Extend
+AA2F	AA30	SpacingMark
+AA31	AA32	Extend
+AA33	AA34	SpacingMark
+AA35	AA36	Extend
+AA43		Extend
+AA4C		Extend
+AA4D		SpacingMark
+AA7C		Extend
+AAB0		Extend
+AAB2	AAB4	Extend
+AAB7	AAB8	Extend
+AABE	AABF	Extend
+AAC1		Extend
+AAEB		SpacingMark
+AAEC	AAED	Extend
+AAEE	AAEF	SpacingMark
+AAF5		SpacingMark
+AAF6		Extend
+ABE3	ABE4	SpacingMark
+ABE5		Extend
+ABE6	ABE7	SpacingMark
+ABE8		Extend
+ABE9	ABEA	SpacingMark
+ABEC		SpacingMark
+ABED		Extend
+AC00		LV
+AC01	AC1B	LVT
+AC1C		LV
+AC1D	AC37	LVT
+AC38		LV
+AC39	AC53	LVT
+AC54		LV
+AC55	AC6F	LVT
+AC70		LV
+AC71	AC8B	LVT
+AC8C		LV
+AC8D	ACA7	LVT
+ACA8		LV
+ACA9	ACC3	LVT
+ACC4		LV
+ACC5	ACDF	LVT
+ACE0		LV
+ACE1	ACFB	LVT
+ACFC		LV
+ACFD	AD17	LVT
+AD18		LV
+AD19	AD33	LVT
+AD34		LV
+AD35	AD4F	LVT
+AD50		LV
+AD51	AD6B	LVT
+AD6C		LV
+AD6D	AD87	LVT
+AD88		LV
+AD89	ADA3	LVT
+ADA4		LV
+ADA5	ADBF	LVT
+ADC0		LV
+ADC1	ADDB	LVT
+ADDC		LV
+ADDD	ADF7	LVT
+ADF8		LV
+ADF9	AE13	LVT
+AE14		LV
+AE15	AE2F	LVT
+AE30		LV
+AE31	AE4B	LVT
+AE4C		LV
+AE4D	AE67	LVT
+AE68		LV
+AE69	AE83	LVT
+AE84		LV
+AE85	AE9F	LVT
+AEA0		LV
+AEA1	AEBB	LVT
+AEBC		LV
+AEBD	AED7	LVT
+AED8		LV
+AED9	AEF3	LVT
+AEF4		LV
+AEF5	AF0F	LVT
+AF10		LV
+AF11	AF2B	LVT
+AF2C		LV
+AF2D	AF47	LVT
+AF48		LV
+AF49	AF63	LVT
+AF64		LV
+AF65	AF7F	LVT
+AF80		LV
+AF81	AF9B	LVT
+AF9C		LV
+AF9D	AFB7	LVT
+AFB8		LV
+AFB9	AFD3	LVT
+AFD4		LV
+AFD5	AFEF	LVT
+AFF0		LV
+AFF1	B00B	LVT
+B00C		LV
+B00D	B027	LVT
+B028		LV
+B029	B043	LVT
+B044		LV
+B045	B05F	LVT
+B060		LV
+B061	B07B	LVT
+B07C		LV
+B07D	B097	LVT
+B098		LV
+B099	B0B3	LVT
+B0B4		LV
+B0B5	B0CF	LVT
+B0D0		LV
+B0D1	B0EB	LVT
+B0EC		LV
+B0ED	B107	LVT
+B108		LV
+B109	B123	LVT
+B124		LV
+B125	B13F	LVT
+B140		LV
+B141	B15B	LVT
+B15C		LV
+B15D	B177	LVT
+B178		LV
+B179	B193	LVT
+B194		LV
+B195	B1AF	LVT
+B1B0		LV
+B1B1	B1CB	LVT
+B1CC		LV
+B1CD	B1E7	LVT
+B1E8		LV
+B1E9	B203	LVT
+B204		LV
+B205	B21F	LVT
+B220		LV
+B221	B23B	LVT
+B23C		LV
+B23D	B257	LVT
+B258		LV
+B259	B273	LVT
+B274		LV
+B275	B28F	LVT
+B290		LV
+B291	B2AB	LVT
+B2AC		LV
+B2AD	B2C7	LVT
+B2C8		LV
+B2C9	B2E3	LVT
+B2E4		LV
+B2E5	B2FF	LVT
+B300		LV
+B301	B31B	LVT
+B31C		LV
+B31D	B337	LVT
+B338		LV
+B339	B353	LVT
+B354		LV
+B355	B36F	LVT
+B370		LV
+B371	B38B	LVT
+B38C		LV
+B38D	B3A7	LVT
+B3A8		LV
+B3A9	B3C3	LVT
+B3C4		LV
+B3C5	B3DF	LVT
+B3E0		LV
+B3E1	B3FB	LVT
+B3FC		LV
+B3FD	B417	LVT
+B418		LV
+B419	B433	LVT
+B434		LV
+B435	B44F	LVT
+B450		LV
+B451	B46B	LVT
+B46C		LV
+B46D	B487	LVT
+B488		LV
+B489	B4A3	LVT
+B4A4		LV
+B4A5	B4BF	LVT
+B4C0		LV
+B4C1	B4DB	LVT
+B4DC		LV
+B4DD	B4F7	LVT
+B4F8		LV
+B4F9	B513	LVT
+B514		LV
+B515	B52F	LVT
+B530		LV
+B531	B54B	LVT
+B54C		LV
+B54D	B567	LVT
+B568		LV
+B569	B583	LVT
+B584		LV
+B585	B59F	LVT
+B5A0		LV
+B5A1	B5BB	LVT
+B5BC		LV
+B5BD	B5D7	LVT
+B5D8		LV
+B5D9	B5F3	LVT
+B5F4		LV
+B5F5	B60F	LVT
+B610		LV
+B611	B62B	LVT
+B62C		LV
+B62D	B647	LVT
+B648		LV
+B649	B663	LVT
+B664		LV
+B665	B67F	LVT
+B680		LV
+B681	B69B	LVT
+B69C		LV
+B69D	B6B7	LVT
+B6B8		LV
+B6B9	B6D3	LVT
+B6D4		LV
+B6D5	B6EF	LVT
+B6F0		LV
+B6F1	B70B	LVT
+B70C		LV
+B70D	B727	LVT
+B728		LV
+B729	B743	LVT
+B744		LV
+B745	B75F	LVT
+B760		LV
+B761	B77B	LVT
+B77C		LV
+B77D	B797	LVT
+B798		LV
+B799	B7B3	LVT
+B7B4		LV
+B7B5	B7CF	LVT
+B7D0		LV
+B7D1	B7EB	LVT
+B7EC		LV
+B7ED	B807	LVT
+B808		LV
+B809	B823	LVT
+B824		LV
+B825	B83F	LVT
+B840		LV
+B841	B85B	LVT
+B85C		LV
+B85D	B877	LVT
+B878		LV
+B879	B893	LVT
+B894		LV
+B895	B8AF	LVT
+B8B0		LV
+B8B1	B8CB	LVT
+B8CC		LV
+B8CD	B8E7	LVT
+B8E8		LV
+B8E9	B903	LVT
+B904		LV
+B905	B91F	LVT
+B920		LV
+B921	B93B	LVT
+B93C		LV
+B93D	B957	LVT
+B958		LV
+B959	B973	LVT
+B974		LV
+B975	B98F	LVT
+B990		LV
+B991	B9AB	LVT
+B9AC		LV
+B9AD	B9C7	LVT
+B9C8		LV
+B9C9	B9E3	LVT
+B9E4		LV
+B9E5	B9FF	LVT
+BA00		LV
+BA01	BA1B	LVT
+BA1C		LV
+BA1D	BA37	LVT
+BA38		LV
+BA39	BA53	LVT
+BA54		LV
+BA55	BA6F	LVT
+BA70		LV
+BA71	BA8B	LVT
+BA8C		LV
+BA8D	BAA7	LVT
+BAA8		LV
+BAA9	BAC3	LVT
+BAC4		LV
+BAC5	BADF	LVT
+BAE0		LV
+BAE1	BAFB	LVT
+BAFC		LV
+BAFD	BB17	LVT
+BB18		LV
+BB19	BB33	LVT
+BB34		LV
+BB35	BB4F	LVT
+BB50		LV
+BB51	BB6B	LVT
+BB6C		LV
+BB6D	BB87	LVT
+BB88		LV
+BB89	BBA3	LVT
+BBA4		LV
+BBA5	BBBF	LVT
+BBC0		LV
+BBC1	BBDB	LVT
+BBDC		LV
+BBDD	BBF7	LVT
+BBF8		LV
+BBF9	BC13	LVT
+BC14		LV
+BC15	BC2F	LVT
+BC30		LV
+BC31	BC4B	LVT
+BC4C		LV
+BC4D	BC67	LVT
+BC68		LV
+BC69	BC83	LVT
+BC84		LV
+BC85	BC9F	LVT
+BCA0		LV
+BCA1	BCBB	LVT
+BCBC		LV
+BCBD	BCD7	LVT
+BCD8		LV
+BCD9	BCF3	LVT
+BCF4		LV
+BCF5	BD0F	LVT
+BD10		LV
+BD11	BD2B	LVT
+BD2C		LV
+BD2D	BD47	LVT
+BD48		LV
+BD49	BD63	LVT
+BD64		LV
+BD65	BD7F	LVT
+BD80		LV
+BD81	BD9B	LVT
+BD9C		LV
+BD9D	BDB7	LVT
+BDB8		LV
+BDB9	BDD3	LVT
+BDD4		LV
+BDD5	BDEF	LVT
+BDF0		LV
+BDF1	BE0B	LVT
+BE0C		LV
+BE0D	BE27	LVT
+BE28		LV
+BE29	BE43	LVT
+BE44		LV
+BE45	BE5F	LVT
+BE60		LV
+BE61	BE7B	LVT
+BE7C		LV
+BE7D	BE97	LVT
+BE98		LV
+BE99	BEB3	LVT
+BEB4		LV
+BEB5	BECF	LVT
+BED0		LV
+BED1	BEEB	LVT
+BEEC		LV
+BEED	BF07	LVT
+BF08		LV
+BF09	BF23	LVT
+BF24		LV
+BF25	BF3F	LVT
+BF40		LV
+BF41	BF5B	LVT
+BF5C		LV
+BF5D	BF77	LVT
+BF78		LV
+BF79	BF93	LVT
+BF94		LV
+BF95	BFAF	LVT
+BFB0		LV
+BFB1	BFCB	LVT
+BFCC		LV
+BFCD	BFE7	LVT
+BFE8		LV
+BFE9	C003	LVT
+C004		LV
+C005	C01F	LVT
+C020		LV
+C021	C03B	LVT
+C03C		LV
+C03D	C057	LVT
+C058		LV
+C059	C073	LVT
+C074		LV
+C075	C08F	LVT
+C090		LV
+C091	C0AB	LVT
+C0AC		LV
+C0AD	C0C7	LVT
+C0C8		LV
+C0C9	C0E3	LVT
+C0E4		LV
+C0E5	C0FF	LVT
+C100		LV
+C101	C11B	LVT
+C11C		LV
+C11D	C137	LVT
+C138		LV
+C139	C153	LVT
+C154		LV
+C155	C16F	LVT
+C170		LV
+C171	C18B	LVT
+C18C		LV
+C18D	C1A7	LVT
+C1A8		LV
+C1A9	C1C3	LVT
+C1C4		LV
+C1C5	C1DF	LVT
+C1E0		LV
+C1E1	C1FB	LVT
+C1FC		LV
+C1FD	C217	LVT
+C218		LV
+C219	C233	LVT
+C234		LV
+C235	C24F	LVT
+C250		LV
+C251	C26B	LVT
+C26C		LV
+C26D	C287	LVT
+C288		LV
+C289	C2A3	LVT
+C2A4		LV
+C2A5	C2BF	LVT
+C2C0		LV
+C2C1	C2DB	LVT
+C2DC		LV
+C2DD	C2F7	LVT
+C2F8		LV
+C2F9	C313	LVT
+C314		LV
+C315	C32F	LVT
+C330		LV
+C331	C34B	LVT
+C34C		LV
+C34D	C367	LVT
+C368		LV
+C369	C383	LVT
+C384		LV
+C385	C39F	LVT
+C3A0		LV
+C3A1	C3BB	LVT
+C3BC		LV
+C3BD	C3D7	LVT
+C3D8		LV
+C3D9	C3F3	LVT
+C3F4		LV
+C3F5	C40F	LVT
+C410		LV
+C411	C42B	LVT
+C42C		LV
+C42D	C447	LVT
+C448		LV
+C449	C463	LVT
+C464		LV
+C465	C47F	LVT
+C480		LV
+C481	C49B	LVT
+C49C		LV
+C49D	C4B7	LVT
+C4B8		LV
+C4B9	C4D3	LVT
+C4D4		LV
+C4D5	C4EF	LVT
+C4F0		LV
+C4F1	C50B	LVT
+C50C		LV
+C50D	C527	LVT
+C528		LV
+C529	C543	LVT
+C544		LV
+C545	C55F	LVT
+C560		LV
+C561	C57B	LVT
+C57C		LV
+C57D	C597	LVT
+C598		LV
+C599	C5B3	LVT
+C5B4		LV
+C5B5	C5CF	LVT
+C5D0		LV
+C5D1	C5EB	LVT
+C5EC		LV
+C5ED	C607	LVT
+C608		LV
+C609	C623	LVT
+C624		LV
+C625	C63F	LVT
+C640		LV
+C641	C65B	LVT
+C65C		LV
+C65D	C677	LVT
+C678		LV
+C679	C693	LVT
+C694		LV
+C695	C6AF	LVT
+C6B0		LV
+C6B1	C6CB	LVT
+C6CC		LV
+C6CD	C6E7	LVT
+C6E8		LV
+C6E9	C703	LVT
+C704		LV
+C705	C71F	LVT
+C720		LV
+C721	C73B	LVT
+C73C		LV
+C73D	C757	LVT
+C758		LV
+C759	C773	LVT
+C774		LV
+C775	C78F	LVT
+C790		LV
+C791	C7AB	LVT
+C7AC		LV
+C7AD	C7C7	LVT
+C7C8		LV
+C7C9	C7E3	LVT
+C7E4		LV
+C7E5	C7FF	LVT
+C800		LV
+C801	C81B	LVT
+C81C		LV
+C81D	C837	LVT
+C838		LV
+C839	C853	LVT
+C854		LV
+C855	C86F	LVT
+C870		LV
+C871	C88B	LVT
+C88C		LV
+C88D	C8A7	LVT
+C8A8		LV
+C8A9	C8C3	LVT
+C8C4		LV
+C8C5	C8DF	LVT
+C8E0		LV
+C8E1	C8FB	LVT
+C8FC		LV
+C8FD	C917	LVT
+C918		LV
+C919	C933	LVT
+C934		LV
+C935	C94F	LVT
+C950		LV
+C951	C96B	LVT
+C96C		LV
+C96D	C987	LVT
+C988		LV
+C989	C9A3	LVT
+C9A4		LV
+C9A5	C9BF	LVT
+C9C0		LV
+C9C1	C9DB	LVT
+C9DC		LV
+C9DD	C9F7	LVT
+C9F8		LV
+C9F9	CA13	LVT
+CA14		LV
+CA15	CA2F	LVT
+CA30		LV
+CA31	CA4B	LVT
+CA4C		LV
+CA4D	CA67	LVT
+CA68		LV
+CA69	CA83	LVT
+CA84		LV
+CA85	CA9F	LVT
+CAA0		LV
+CAA1	CABB	LVT
+CABC		LV
+CABD	CAD7	LVT
+CAD8		LV
+CAD9	CAF3	LVT
+CAF4		LV
+CAF5	CB0F	LVT
+CB10		LV
+CB11	CB2B	LVT
+CB2C		LV
+CB2D	CB47	LVT
+CB48		LV
+CB49	CB63	LVT
+CB64		LV
+CB65	CB7F	LVT
+CB80		LV
+CB81	CB9B	LVT
+CB9C		LV
+CB9D	CBB7	LVT
+CBB8		LV
+CBB9	CBD3	LVT
+CBD4		LV
+CBD5	CBEF	LVT
+CBF0		LV
+CBF1	CC0B	LVT
+CC0C		LV
+CC0D	CC27	LVT
+CC28		LV
+CC29	CC43	LVT
+CC44		LV
+CC45	CC5F	LVT
+CC60		LV
+CC61	CC7B	LVT
+CC7C		LV
+CC7D	CC97	LVT
+CC98		LV
+CC99	CCB3	LVT
+CCB4		LV
+CCB5	CCCF	LVT
+CCD0		LV
+CCD1	CCEB	LVT
+CCEC		LV
+CCED	CD07	LVT
+CD08		LV
+CD09	CD23	LVT
+CD24		LV
+CD25	CD3F	LVT
+CD40		LV
+CD41	CD5B	LVT
+CD5C		LV
+CD5D	CD77	LVT
+CD78		LV
+CD79	CD93	LVT
+CD94		LV
+CD95	CDAF	LVT
+CDB0		LV
+CDB1	CDCB	LVT
+CDCC		LV
+CDCD	CDE7	LVT
+CDE8		LV
+CDE9	CE03	LVT
+CE04		LV
+CE05	CE1F	LVT
+CE20		LV
+CE21	CE3B	LVT
+CE3C		LV
+CE3D	CE57	LVT
+CE58		LV
+CE59	CE73	LVT
+CE74		LV
+CE75	CE8F	LVT
+CE90		LV
+CE91	CEAB	LVT
+CEAC		LV
+CEAD	CEC7	LVT
+CEC8		LV
+CEC9	CEE3	LVT
+CEE4		LV
+CEE5	CEFF	LVT
+CF00		LV
+CF01	CF1B	LVT
+CF1C		LV
+CF1D	CF37	LVT
+CF38		LV
+CF39	CF53	LVT
+CF54		LV
+CF55	CF6F	LVT
+CF70		LV
+CF71	CF8B	LVT
+CF8C		LV
+CF8D	CFA7	LVT
+CFA8		LV
+CFA9	CFC3	LVT
+CFC4		LV
+CFC5	CFDF	LVT
+CFE0		LV
+CFE1	CFFB	LVT
+CFFC		LV
+CFFD	D017	LVT
+D018		LV
+D019	D033	LVT
+D034		LV
+D035	D04F	LVT
+D050		LV
+D051	D06B	LVT
+D06C		LV
+D06D	D087	LVT
+D088		LV
+D089	D0A3	LVT
+D0A4		LV
+D0A5	D0BF	LVT
+D0C0		LV
+D0C1	D0DB	LVT
+D0DC		LV
+D0DD	D0F7	LVT
+D0F8		LV
+D0F9	D113	LVT
+D114		LV
+D115	D12F	LVT
+D130		LV
+D131	D14B	LVT
+D14C		LV
+D14D	D167	LVT
+D168		LV
+D169	D183	LVT
+D184		LV
+D185	D19F	LVT
+D1A0		LV
+D1A1	D1BB	LVT
+D1BC		LV
+D1BD	D1D7	LVT
+D1D8		LV
+D1D9	D1F3	LVT
+D1F4		LV
+D1F5	D20F	LVT
+D210		LV
+D211	D22B	LVT
+D22C		LV
+D22D	D247	LVT
+D248		LV
+D249	D263	LVT
+D264		LV
+D265	D27F	LVT
+D280		LV
+D281	D29B	LVT
+D29C		LV
+D29D	D2B7	LVT
+D2B8		LV
+D2B9	D2D3	LVT
+D2D4		LV
+D2D5	D2EF	LVT
+D2F0		LV
+D2F1	D30B	LVT
+D30C		LV
+D30D	D327	LVT
+D328		LV
+D329	D343	LVT
+D344		LV
+D345	D35F	LVT
+D360		LV
+D361	D37B	LVT
+D37C		LV
+D37D	D397	LVT
+D398		LV
+D399	D3B3	LVT
+D3B4		LV
+D3B5	D3CF	LVT
+D3D0		LV
+D3D1	D3EB	LVT
+D3EC		LV
+D3ED	D407	LVT
+D408		LV
+D409	D423	LVT
+D424		LV
+D425	D43F	LVT
+D440		LV
+D441	D45B	LVT
+D45C		LV
+D45D	D477	LVT
+D478		LV
+D479	D493	LVT
+D494		LV
+D495	D4AF	LVT
+D4B0		LV
+D4B1	D4CB	LVT
+D4CC		LV
+D4CD	D4E7	LVT
+D4E8		LV
+D4E9	D503	LVT
+D504		LV
+D505	D51F	LVT
+D520		LV
+D521	D53B	LVT
+D53C		LV
+D53D	D557	LVT
+D558		LV
+D559	D573	LVT
+D574		LV
+D575	D58F	LVT
+D590		LV
+D591	D5AB	LVT
+D5AC		LV
+D5AD	D5C7	LVT
+D5C8		LV
+D5C9	D5E3	LVT
+D5E4		LV
+D5E5	D5FF	LVT
+D600		LV
+D601	D61B	LVT
+D61C		LV
+D61D	D637	LVT
+D638		LV
+D639	D653	LVT
+D654		LV
+D655	D66F	LVT
+D670		LV
+D671	D68B	LVT
+D68C		LV
+D68D	D6A7	LVT
+D6A8		LV
+D6A9	D6C3	LVT
+D6C4		LV
+D6C5	D6DF	LVT
+D6E0		LV
+D6E1	D6FB	LVT
+D6FC		LV
+D6FD	D717	LVT
+D718		LV
+D719	D733	LVT
+D734		LV
+D735	D74F	LVT
+D750		LV
+D751	D76B	LVT
+D76C		LV
+D76D	D787	LVT
+D788		LV
+D789	D7A3	LVT
+D7B0	D7C6	V
+D7CB	D7FB	T
+D800	DFFF	Control
+FB1E		Extend
+FE00	FE0F	Extend
+FE20	FE2F	Extend
+FEFF		Control
+FF9E	FF9F	Extend
+FFF0	FFFB	Control
+101FD		Extend
+102E0		Extend
+10376	1037A	Extend
+10A01	10A03	Extend
+10A05	10A06	Extend
+10A0C	10A0F	Extend
+10A38	10A3A	Extend
+10A3F		Extend
+10AE5	10AE6	Extend
+11000		SpacingMark
+11001		Extend
+11002		SpacingMark
+11038	11046	Extend
+1107F	11081	Extend
+11082		SpacingMark
+110B0	110B2	SpacingMark
+110B3	110B6	Extend
+110B7	110B8	SpacingMark
+110B9	110BA	Extend
+110BD		Control
+11100	11102	Extend
+11127	1112B	Extend
+1112C		SpacingMark
+1112D	11134	Extend
+11173		Extend
+11180	11181	Extend
+11182		SpacingMark
+111B3	111B5	SpacingMark
+111B6	111BE	Extend
+111BF	111C0	SpacingMark
+111CA	111CC	Extend
+1122C	1122E	SpacingMark
+1122F	11231	Extend
+11232	11233	SpacingMark
+11234		Extend
+11235		SpacingMark
+11236	11237	Extend
+112DF		Extend
+112E0	112E2	SpacingMark
+112E3	112EA	Extend
+11300	11301	Extend
+11302	11303	SpacingMark
+1133C		Extend
+1133E		Extend
+1133F		SpacingMark
+11340		Extend
+11341	11344	SpacingMark
+11347	11348	SpacingMark
+1134B	1134D	SpacingMark
+11357		Extend
+11362	11363	SpacingMark
+11366	1136C	Extend
+11370	11374	Extend
+114B0		Extend
+114B1	114B2	SpacingMark
+114B3	114B8	Extend
+114B9		SpacingMark
+114BA		Extend
+114BB	114BC	SpacingMark
+114BD		Extend
+114BE		SpacingMark
+114BF	114C0	Extend
+114C1		SpacingMark
+114C2	114C3	Extend
+115AF		Extend
+115B0	115B1	SpacingMark
+115B2	115B5	Extend
+115B8	115BB	SpacingMark
+115BC	115BD	Extend
+115BE		SpacingMark
+115BF	115C0	Extend
+115DC	115DD	Extend
+11630	11632	SpacingMark
+11633	1163A	Extend
+1163B	1163C	SpacingMark
+1163D		Extend
+1163E		SpacingMark
+1163F	11640	Extend
+116AB		Extend
+116AC		SpacingMark
+116AD		Extend
+116AE	116AF	SpacingMark
+116B0	116B5	Extend
+116B6		SpacingMark
+116B7		Extend
+1171D	1171F	Extend
+11720	11721	SpacingMark
+11722	11725	Extend
+11726		SpacingMark
+11727	1172B	Extend
+16AF0	16AF4	Extend
+16B30	16B36	Extend
+16F51	16F7E	SpacingMark
+16F8F	16F92	Extend
+1BC9D	1BC9E	Extend
+1BCA0	1BCA3	Control
+1D165		Extend
+1D166		SpacingMark
+1D167	1D169	Extend
+1D16D		SpacingMark
+1D16E	1D172	Extend
+1D173	1D17A	Control
+1D17B	1D182	Extend
+1D185	1D18B	Extend
+1D1AA	1D1AD	Extend
+1D242	1D244	Extend
+1DA00	1DA36	Extend
+1DA3B	1DA6C	Extend
+1DA75		Extend
+1DA84		Extend
+1DA9B	1DA9F	Extend
+1DAA1	1DAAF	Extend
+1E8D0	1E8D6	Extend
+1F1E6	1F1FF	Regional_Indicator
+E0000	E00FF	Control
+E0100	E01EF	Extend
+E01F0	E0FFF	Control
+END
diff --git a/lib/5.24.1/unicore/To/Gc.pl b/lib/5.24.1/unicore/To/Gc.pl
new file mode 100644
index 00000000..f1ae9d07
--- /dev/null
+++ b/lib/5.24.1/unicore/To/Gc.pl
@@ -0,0 +1,2973 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToGc'}{'format'} = 's'; # string
+$utf8::SwashInfo{'ToGc'}{'missing'} = 'Cn';
+
+return <<'END';
+0	1F	Cc
+20		Zs
+21	23	Po
+24		Sc
+25	27	Po
+28		Ps
+29		Pe
+2A		Po
+2B		Sm
+2C		Po
+2D		Pd
+2E	2F	Po
+30	39	Nd
+3A	3B	Po
+3C	3E	Sm
+3F	40	Po
+41	5A	Lu
+5B		Ps
+5C		Po
+5D		Pe
+5E		Sk
+5F		Pc
+60		Sk
+61	7A	Ll
+7B		Ps
+7C		Sm
+7D		Pe
+7E		Sm
+7F	9F	Cc
+A0		Zs
+A1		Po
+A2	A5	Sc
+A6		So
+A7		Po
+A8		Sk
+A9		So
+AA		Lo
+AB		Pi
+AC		Sm
+AD		Cf
+AE		So
+AF		Sk
+B0		So
+B1		Sm
+B2	B3	No
+B4		Sk
+B5		Ll
+B6	B7	Po
+B8		Sk
+B9		No
+BA		Lo
+BB		Pf
+BC	BE	No
+BF		Po
+C0	D6	Lu
+D7		Sm
+D8	DE	Lu
+DF	F6	Ll
+F7		Sm
+F8	FF	Ll
+100		Lu
+101		Ll
+102		Lu
+103		Ll
+104		Lu
+105		Ll
+106		Lu
+107		Ll
+108		Lu
+109		Ll
+10A		Lu
+10B		Ll
+10C		Lu
+10D		Ll
+10E		Lu
+10F		Ll
+110		Lu
+111		Ll
+112		Lu
+113		Ll
+114		Lu
+115		Ll
+116		Lu
+117		Ll
+118		Lu
+119		Ll
+11A		Lu
+11B		Ll
+11C		Lu
+11D		Ll
+11E		Lu
+11F		Ll
+120		Lu
+121		Ll
+122		Lu
+123		Ll
+124		Lu
+125		Ll
+126		Lu
+127		Ll
+128		Lu
+129		Ll
+12A		Lu
+12B		Ll
+12C		Lu
+12D		Ll
+12E		Lu
+12F		Ll
+130		Lu
+131		Ll
+132		Lu
+133		Ll
+134		Lu
+135		Ll
+136		Lu
+137	138	Ll
+139		Lu
+13A		Ll
+13B		Lu
+13C		Ll
+13D		Lu
+13E		Ll
+13F		Lu
+140		Ll
+141		Lu
+142		Ll
+143		Lu
+144		Ll
+145		Lu
+146		Ll
+147		Lu
+148	149	Ll
+14A		Lu
+14B		Ll
+14C		Lu
+14D		Ll
+14E		Lu
+14F		Ll
+150		Lu
+151		Ll
+152		Lu
+153		Ll
+154		Lu
+155		Ll
+156		Lu
+157		Ll
+158		Lu
+159		Ll
+15A		Lu
+15B		Ll
+15C		Lu
+15D		Ll
+15E		Lu
+15F		Ll
+160		Lu
+161		Ll
+162		Lu
+163		Ll
+164		Lu
+165		Ll
+166		Lu
+167		Ll
+168		Lu
+169		Ll
+16A		Lu
+16B		Ll
+16C		Lu
+16D		Ll
+16E		Lu
+16F		Ll
+170		Lu
+171		Ll
+172		Lu
+173		Ll
+174		Lu
+175		Ll
+176		Lu
+177		Ll
+178	179	Lu
+17A		Ll
+17B		Lu
+17C		Ll
+17D		Lu
+17E	180	Ll
+181	182	Lu
+183		Ll
+184		Lu
+185		Ll
+186	187	Lu
+188		Ll
+189	18B	Lu
+18C	18D	Ll
+18E	191	Lu
+192		Ll
+193	194	Lu
+195		Ll
+196	198	Lu
+199	19B	Ll
+19C	19D	Lu
+19E		Ll
+19F	1A0	Lu
+1A1		Ll
+1A2		Lu
+1A3		Ll
+1A4		Lu
+1A5		Ll
+1A6	1A7	Lu
+1A8		Ll
+1A9		Lu
+1AA	1AB	Ll
+1AC		Lu
+1AD		Ll
+1AE	1AF	Lu
+1B0		Ll
+1B1	1B3	Lu
+1B4		Ll
+1B5		Lu
+1B6		Ll
+1B7	1B8	Lu
+1B9	1BA	Ll
+1BB		Lo
+1BC		Lu
+1BD	1BF	Ll
+1C0	1C3	Lo
+1C4		Lu
+1C5		Lt
+1C6		Ll
+1C7		Lu
+1C8		Lt
+1C9		Ll
+1CA		Lu
+1CB		Lt
+1CC		Ll
+1CD		Lu
+1CE		Ll
+1CF		Lu
+1D0		Ll
+1D1		Lu
+1D2		Ll
+1D3		Lu
+1D4		Ll
+1D5		Lu
+1D6		Ll
+1D7		Lu
+1D8		Ll
+1D9		Lu
+1DA		Ll
+1DB		Lu
+1DC	1DD	Ll
+1DE		Lu
+1DF		Ll
+1E0		Lu
+1E1		Ll
+1E2		Lu
+1E3		Ll
+1E4		Lu
+1E5		Ll
+1E6		Lu
+1E7		Ll
+1E8		Lu
+1E9		Ll
+1EA		Lu
+1EB		Ll
+1EC		Lu
+1ED		Ll
+1EE		Lu
+1EF	1F0	Ll
+1F1		Lu
+1F2		Lt
+1F3		Ll
+1F4		Lu
+1F5		Ll
+1F6	1F8	Lu
+1F9		Ll
+1FA		Lu
+1FB		Ll
+1FC		Lu
+1FD		Ll
+1FE		Lu
+1FF		Ll
+200		Lu
+201		Ll
+202		Lu
+203		Ll
+204		Lu
+205		Ll
+206		Lu
+207		Ll
+208		Lu
+209		Ll
+20A		Lu
+20B		Ll
+20C		Lu
+20D		Ll
+20E		Lu
+20F		Ll
+210		Lu
+211		Ll
+212		Lu
+213		Ll
+214		Lu
+215		Ll
+216		Lu
+217		Ll
+218		Lu
+219		Ll
+21A		Lu
+21B		Ll
+21C		Lu
+21D		Ll
+21E		Lu
+21F		Ll
+220		Lu
+221		Ll
+222		Lu
+223		Ll
+224		Lu
+225		Ll
+226		Lu
+227		Ll
+228		Lu
+229		Ll
+22A		Lu
+22B		Ll
+22C		Lu
+22D		Ll
+22E		Lu
+22F		Ll
+230		Lu
+231		Ll
+232		Lu
+233	239	Ll
+23A	23B	Lu
+23C		Ll
+23D	23E	Lu
+23F	240	Ll
+241		Lu
+242		Ll
+243	246	Lu
+247		Ll
+248		Lu
+249		Ll
+24A		Lu
+24B		Ll
+24C		Lu
+24D		Ll
+24E		Lu
+24F	293	Ll
+294		Lo
+295	2AF	Ll
+2B0	2C1	Lm
+2C2	2C5	Sk
+2C6	2D1	Lm
+2D2	2DF	Sk
+2E0	2E4	Lm
+2E5	2EB	Sk
+2EC		Lm
+2ED		Sk
+2EE		Lm
+2EF	2FF	Sk
+300	36F	Mn
+370		Lu
+371		Ll
+372		Lu
+373		Ll
+374		Lm
+375		Sk
+376		Lu
+377		Ll
+37A		Lm
+37B	37D	Ll
+37E		Po
+37F		Lu
+384	385	Sk
+386		Lu
+387		Po
+388	38A	Lu
+38C		Lu
+38E	38F	Lu
+390		Ll
+391	3A1	Lu
+3A3	3AB	Lu
+3AC	3CE	Ll
+3CF		Lu
+3D0	3D1	Ll
+3D2	3D4	Lu
+3D5	3D7	Ll
+3D8		Lu
+3D9		Ll
+3DA		Lu
+3DB		Ll
+3DC		Lu
+3DD		Ll
+3DE		Lu
+3DF		Ll
+3E0		Lu
+3E1		Ll
+3E2		Lu
+3E3		Ll
+3E4		Lu
+3E5		Ll
+3E6		Lu
+3E7		Ll
+3E8		Lu
+3E9		Ll
+3EA		Lu
+3EB		Ll
+3EC		Lu
+3ED		Ll
+3EE		Lu
+3EF	3F3	Ll
+3F4		Lu
+3F5		Ll
+3F6		Sm
+3F7		Lu
+3F8		Ll
+3F9	3FA	Lu
+3FB	3FC	Ll
+3FD	42F	Lu
+430	45F	Ll
+460		Lu
+461		Ll
+462		Lu
+463		Ll
+464		Lu
+465		Ll
+466		Lu
+467		Ll
+468		Lu
+469		Ll
+46A		Lu
+46B		Ll
+46C		Lu
+46D		Ll
+46E		Lu
+46F		Ll
+470		Lu
+471		Ll
+472		Lu
+473		Ll
+474		Lu
+475		Ll
+476		Lu
+477		Ll
+478		Lu
+479		Ll
+47A		Lu
+47B		Ll
+47C		Lu
+47D		Ll
+47E		Lu
+47F		Ll
+480		Lu
+481		Ll
+482		So
+483	487	Mn
+488	489	Me
+48A		Lu
+48B		Ll
+48C		Lu
+48D		Ll
+48E		Lu
+48F		Ll
+490		Lu
+491		Ll
+492		Lu
+493		Ll
+494		Lu
+495		Ll
+496		Lu
+497		Ll
+498		Lu
+499		Ll
+49A		Lu
+49B		Ll
+49C		Lu
+49D		Ll
+49E		Lu
+49F		Ll
+4A0		Lu
+4A1		Ll
+4A2		Lu
+4A3		Ll
+4A4		Lu
+4A5		Ll
+4A6		Lu
+4A7		Ll
+4A8		Lu
+4A9		Ll
+4AA		Lu
+4AB		Ll
+4AC		Lu
+4AD		Ll
+4AE		Lu
+4AF		Ll
+4B0		Lu
+4B1		Ll
+4B2		Lu
+4B3		Ll
+4B4		Lu
+4B5		Ll
+4B6		Lu
+4B7		Ll
+4B8		Lu
+4B9		Ll
+4BA		Lu
+4BB		Ll
+4BC		Lu
+4BD		Ll
+4BE		Lu
+4BF		Ll
+4C0	4C1	Lu
+4C2		Ll
+4C3		Lu
+4C4		Ll
+4C5		Lu
+4C6		Ll
+4C7		Lu
+4C8		Ll
+4C9		Lu
+4CA		Ll
+4CB		Lu
+4CC		Ll
+4CD		Lu
+4CE	4CF	Ll
+4D0		Lu
+4D1		Ll
+4D2		Lu
+4D3		Ll
+4D4		Lu
+4D5		Ll
+4D6		Lu
+4D7		Ll
+4D8		Lu
+4D9		Ll
+4DA		Lu
+4DB		Ll
+4DC		Lu
+4DD		Ll
+4DE		Lu
+4DF		Ll
+4E0		Lu
+4E1		Ll
+4E2		Lu
+4E3		Ll
+4E4		Lu
+4E5		Ll
+4E6		Lu
+4E7		Ll
+4E8		Lu
+4E9		Ll
+4EA		Lu
+4EB		Ll
+4EC		Lu
+4ED		Ll
+4EE		Lu
+4EF		Ll
+4F0		Lu
+4F1		Ll
+4F2		Lu
+4F3		Ll
+4F4		Lu
+4F5		Ll
+4F6		Lu
+4F7		Ll
+4F8		Lu
+4F9		Ll
+4FA		Lu
+4FB		Ll
+4FC		Lu
+4FD		Ll
+4FE		Lu
+4FF		Ll
+500		Lu
+501		Ll
+502		Lu
+503		Ll
+504		Lu
+505		Ll
+506		Lu
+507		Ll
+508		Lu
+509		Ll
+50A		Lu
+50B		Ll
+50C		Lu
+50D		Ll
+50E		Lu
+50F		Ll
+510		Lu
+511		Ll
+512		Lu
+513		Ll
+514		Lu
+515		Ll
+516		Lu
+517		Ll
+518		Lu
+519		Ll
+51A		Lu
+51B		Ll
+51C		Lu
+51D		Ll
+51E		Lu
+51F		Ll
+520		Lu
+521		Ll
+522		Lu
+523		Ll
+524		Lu
+525		Ll
+526		Lu
+527		Ll
+528		Lu
+529		Ll
+52A		Lu
+52B		Ll
+52C		Lu
+52D		Ll
+52E		Lu
+52F		Ll
+531	556	Lu
+559		Lm
+55A	55F	Po
+561	587	Ll
+589		Po
+58A		Pd
+58D	58E	So
+58F		Sc
+591	5BD	Mn
+5BE		Pd
+5BF		Mn
+5C0		Po
+5C1	5C2	Mn
+5C3		Po
+5C4	5C5	Mn
+5C6		Po
+5C7		Mn
+5D0	5EA	Lo
+5F0	5F2	Lo
+5F3	5F4	Po
+600	605	Cf
+606	608	Sm
+609	60A	Po
+60B		Sc
+60C	60D	Po
+60E	60F	So
+610	61A	Mn
+61B		Po
+61C		Cf
+61E	61F	Po
+620	63F	Lo
+640		Lm
+641	64A	Lo
+64B	65F	Mn
+660	669	Nd
+66A	66D	Po
+66E	66F	Lo
+670		Mn
+671	6D3	Lo
+6D4		Po
+6D5		Lo
+6D6	6DC	Mn
+6DD		Cf
+6DE		So
+6DF	6E4	Mn
+6E5	6E6	Lm
+6E7	6E8	Mn
+6E9		So
+6EA	6ED	Mn
+6EE	6EF	Lo
+6F0	6F9	Nd
+6FA	6FC	Lo
+6FD	6FE	So
+6FF		Lo
+700	70D	Po
+70F		Cf
+710		Lo
+711		Mn
+712	72F	Lo
+730	74A	Mn
+74D	7A5	Lo
+7A6	7B0	Mn
+7B1		Lo
+7C0	7C9	Nd
+7CA	7EA	Lo
+7EB	7F3	Mn
+7F4	7F5	Lm
+7F6		So
+7F7	7F9	Po
+7FA		Lm
+800	815	Lo
+816	819	Mn
+81A		Lm
+81B	823	Mn
+824		Lm
+825	827	Mn
+828		Lm
+829	82D	Mn
+830	83E	Po
+840	858	Lo
+859	85B	Mn
+85E		Po
+8A0	8B4	Lo
+8E3	902	Mn
+903		Mc
+904	939	Lo
+93A		Mn
+93B		Mc
+93C		Mn
+93D		Lo
+93E	940	Mc
+941	948	Mn
+949	94C	Mc
+94D		Mn
+94E	94F	Mc
+950		Lo
+951	957	Mn
+958	961	Lo
+962	963	Mn
+964	965	Po
+966	96F	Nd
+970		Po
+971		Lm
+972	980	Lo
+981		Mn
+982	983	Mc
+985	98C	Lo
+98F	990	Lo
+993	9A8	Lo
+9AA	9B0	Lo
+9B2		Lo
+9B6	9B9	Lo
+9BC		Mn
+9BD		Lo
+9BE	9C0	Mc
+9C1	9C4	Mn
+9C7	9C8	Mc
+9CB	9CC	Mc
+9CD		Mn
+9CE		Lo
+9D7		Mc
+9DC	9DD	Lo
+9DF	9E1	Lo
+9E2	9E3	Mn
+9E6	9EF	Nd
+9F0	9F1	Lo
+9F2	9F3	Sc
+9F4	9F9	No
+9FA		So
+9FB		Sc
+A01	A02	Mn
+A03		Mc
+A05	A0A	Lo
+A0F	A10	Lo
+A13	A28	Lo
+A2A	A30	Lo
+A32	A33	Lo
+A35	A36	Lo
+A38	A39	Lo
+A3C		Mn
+A3E	A40	Mc
+A41	A42	Mn
+A47	A48	Mn
+A4B	A4D	Mn
+A51		Mn
+A59	A5C	Lo
+A5E		Lo
+A66	A6F	Nd
+A70	A71	Mn
+A72	A74	Lo
+A75		Mn
+A81	A82	Mn
+A83		Mc
+A85	A8D	Lo
+A8F	A91	Lo
+A93	AA8	Lo
+AAA	AB0	Lo
+AB2	AB3	Lo
+AB5	AB9	Lo
+ABC		Mn
+ABD		Lo
+ABE	AC0	Mc
+AC1	AC5	Mn
+AC7	AC8	Mn
+AC9		Mc
+ACB	ACC	Mc
+ACD		Mn
+AD0		Lo
+AE0	AE1	Lo
+AE2	AE3	Mn
+AE6	AEF	Nd
+AF0		Po
+AF1		Sc
+AF9		Lo
+B01		Mn
+B02	B03	Mc
+B05	B0C	Lo
+B0F	B10	Lo
+B13	B28	Lo
+B2A	B30	Lo
+B32	B33	Lo
+B35	B39	Lo
+B3C		Mn
+B3D		Lo
+B3E		Mc
+B3F		Mn
+B40		Mc
+B41	B44	Mn
+B47	B48	Mc
+B4B	B4C	Mc
+B4D		Mn
+B56		Mn
+B57		Mc
+B5C	B5D	Lo
+B5F	B61	Lo
+B62	B63	Mn
+B66	B6F	Nd
+B70		So
+B71		Lo
+B72	B77	No
+B82		Mn
+B83		Lo
+B85	B8A	Lo
+B8E	B90	Lo
+B92	B95	Lo
+B99	B9A	Lo
+B9C		Lo
+B9E	B9F	Lo
+BA3	BA4	Lo
+BA8	BAA	Lo
+BAE	BB9	Lo
+BBE	BBF	Mc
+BC0		Mn
+BC1	BC2	Mc
+BC6	BC8	Mc
+BCA	BCC	Mc
+BCD		Mn
+BD0		Lo
+BD7		Mc
+BE6	BEF	Nd
+BF0	BF2	No
+BF3	BF8	So
+BF9		Sc
+BFA		So
+C00		Mn
+C01	C03	Mc
+C05	C0C	Lo
+C0E	C10	Lo
+C12	C28	Lo
+C2A	C39	Lo
+C3D		Lo
+C3E	C40	Mn
+C41	C44	Mc
+C46	C48	Mn
+C4A	C4D	Mn
+C55	C56	Mn
+C58	C5A	Lo
+C60	C61	Lo
+C62	C63	Mn
+C66	C6F	Nd
+C78	C7E	No
+C7F		So
+C81		Mn
+C82	C83	Mc
+C85	C8C	Lo
+C8E	C90	Lo
+C92	CA8	Lo
+CAA	CB3	Lo
+CB5	CB9	Lo
+CBC		Mn
+CBD		Lo
+CBE		Mc
+CBF		Mn
+CC0	CC4	Mc
+CC6		Mn
+CC7	CC8	Mc
+CCA	CCB	Mc
+CCC	CCD	Mn
+CD5	CD6	Mc
+CDE		Lo
+CE0	CE1	Lo
+CE2	CE3	Mn
+CE6	CEF	Nd
+CF1	CF2	Lo
+D01		Mn
+D02	D03	Mc
+D05	D0C	Lo
+D0E	D10	Lo
+D12	D3A	Lo
+D3D		Lo
+D3E	D40	Mc
+D41	D44	Mn
+D46	D48	Mc
+D4A	D4C	Mc
+D4D		Mn
+D4E		Lo
+D57		Mc
+D5F	D61	Lo
+D62	D63	Mn
+D66	D6F	Nd
+D70	D75	No
+D79		So
+D7A	D7F	Lo
+D82	D83	Mc
+D85	D96	Lo
+D9A	DB1	Lo
+DB3	DBB	Lo
+DBD		Lo
+DC0	DC6	Lo
+DCA		Mn
+DCF	DD1	Mc
+DD2	DD4	Mn
+DD6		Mn
+DD8	DDF	Mc
+DE6	DEF	Nd
+DF2	DF3	Mc
+DF4		Po
+E01	E30	Lo
+E31		Mn
+E32	E33	Lo
+E34	E3A	Mn
+E3F		Sc
+E40	E45	Lo
+E46		Lm
+E47	E4E	Mn
+E4F		Po
+E50	E59	Nd
+E5A	E5B	Po
+E81	E82	Lo
+E84		Lo
+E87	E88	Lo
+E8A		Lo
+E8D		Lo
+E94	E97	Lo
+E99	E9F	Lo
+EA1	EA3	Lo
+EA5		Lo
+EA7		Lo
+EAA	EAB	Lo
+EAD	EB0	Lo
+EB1		Mn
+EB2	EB3	Lo
+EB4	EB9	Mn
+EBB	EBC	Mn
+EBD		Lo
+EC0	EC4	Lo
+EC6		Lm
+EC8	ECD	Mn
+ED0	ED9	Nd
+EDC	EDF	Lo
+F00		Lo
+F01	F03	So
+F04	F12	Po
+F13		So
+F14		Po
+F15	F17	So
+F18	F19	Mn
+F1A	F1F	So
+F20	F29	Nd
+F2A	F33	No
+F34		So
+F35		Mn
+F36		So
+F37		Mn
+F38		So
+F39		Mn
+F3A		Ps
+F3B		Pe
+F3C		Ps
+F3D		Pe
+F3E	F3F	Mc
+F40	F47	Lo
+F49	F6C	Lo
+F71	F7E	Mn
+F7F		Mc
+F80	F84	Mn
+F85		Po
+F86	F87	Mn
+F88	F8C	Lo
+F8D	F97	Mn
+F99	FBC	Mn
+FBE	FC5	So
+FC6		Mn
+FC7	FCC	So
+FCE	FCF	So
+FD0	FD4	Po
+FD5	FD8	So
+FD9	FDA	Po
+1000	102A	Lo
+102B	102C	Mc
+102D	1030	Mn
+1031		Mc
+1032	1037	Mn
+1038		Mc
+1039	103A	Mn
+103B	103C	Mc
+103D	103E	Mn
+103F		Lo
+1040	1049	Nd
+104A	104F	Po
+1050	1055	Lo
+1056	1057	Mc
+1058	1059	Mn
+105A	105D	Lo
+105E	1060	Mn
+1061		Lo
+1062	1064	Mc
+1065	1066	Lo
+1067	106D	Mc
+106E	1070	Lo
+1071	1074	Mn
+1075	1081	Lo
+1082		Mn
+1083	1084	Mc
+1085	1086	Mn
+1087	108C	Mc
+108D		Mn
+108E		Lo
+108F		Mc
+1090	1099	Nd
+109A	109C	Mc
+109D		Mn
+109E	109F	So
+10A0	10C5	Lu
+10C7		Lu
+10CD		Lu
+10D0	10FA	Lo
+10FB		Po
+10FC		Lm
+10FD	1248	Lo
+124A	124D	Lo
+1250	1256	Lo
+1258		Lo
+125A	125D	Lo
+1260	1288	Lo
+128A	128D	Lo
+1290	12B0	Lo
+12B2	12B5	Lo
+12B8	12BE	Lo
+12C0		Lo
+12C2	12C5	Lo
+12C8	12D6	Lo
+12D8	1310	Lo
+1312	1315	Lo
+1318	135A	Lo
+135D	135F	Mn
+1360	1368	Po
+1369	137C	No
+1380	138F	Lo
+1390	1399	So
+13A0	13F5	Lu
+13F8	13FD	Ll
+1400		Pd
+1401	166C	Lo
+166D	166E	Po
+166F	167F	Lo
+1680		Zs
+1681	169A	Lo
+169B		Ps
+169C		Pe
+16A0	16EA	Lo
+16EB	16ED	Po
+16EE	16F0	Nl
+16F1	16F8	Lo
+1700	170C	Lo
+170E	1711	Lo
+1712	1714	Mn
+1720	1731	Lo
+1732	1734	Mn
+1735	1736	Po
+1740	1751	Lo
+1752	1753	Mn
+1760	176C	Lo
+176E	1770	Lo
+1772	1773	Mn
+1780	17B3	Lo
+17B4	17B5	Mn
+17B6		Mc
+17B7	17BD	Mn
+17BE	17C5	Mc
+17C6		Mn
+17C7	17C8	Mc
+17C9	17D3	Mn
+17D4	17D6	Po
+17D7		Lm
+17D8	17DA	Po
+17DB		Sc
+17DC		Lo
+17DD		Mn
+17E0	17E9	Nd
+17F0	17F9	No
+1800	1805	Po
+1806		Pd
+1807	180A	Po
+180B	180D	Mn
+180E		Cf
+1810	1819	Nd
+1820	1842	Lo
+1843		Lm
+1844	1877	Lo
+1880	18A8	Lo
+18A9		Mn
+18AA		Lo
+18B0	18F5	Lo
+1900	191E	Lo
+1920	1922	Mn
+1923	1926	Mc
+1927	1928	Mn
+1929	192B	Mc
+1930	1931	Mc
+1932		Mn
+1933	1938	Mc
+1939	193B	Mn
+1940		So
+1944	1945	Po
+1946	194F	Nd
+1950	196D	Lo
+1970	1974	Lo
+1980	19AB	Lo
+19B0	19C9	Lo
+19D0	19D9	Nd
+19DA		No
+19DE	19FF	So
+1A00	1A16	Lo
+1A17	1A18	Mn
+1A19	1A1A	Mc
+1A1B		Mn
+1A1E	1A1F	Po
+1A20	1A54	Lo
+1A55		Mc
+1A56		Mn
+1A57		Mc
+1A58	1A5E	Mn
+1A60		Mn
+1A61		Mc
+1A62		Mn
+1A63	1A64	Mc
+1A65	1A6C	Mn
+1A6D	1A72	Mc
+1A73	1A7C	Mn
+1A7F		Mn
+1A80	1A89	Nd
+1A90	1A99	Nd
+1AA0	1AA6	Po
+1AA7		Lm
+1AA8	1AAD	Po
+1AB0	1ABD	Mn
+1ABE		Me
+1B00	1B03	Mn
+1B04		Mc
+1B05	1B33	Lo
+1B34		Mn
+1B35		Mc
+1B36	1B3A	Mn
+1B3B		Mc
+1B3C		Mn
+1B3D	1B41	Mc
+1B42		Mn
+1B43	1B44	Mc
+1B45	1B4B	Lo
+1B50	1B59	Nd
+1B5A	1B60	Po
+1B61	1B6A	So
+1B6B	1B73	Mn
+1B74	1B7C	So
+1B80	1B81	Mn
+1B82		Mc
+1B83	1BA0	Lo
+1BA1		Mc
+1BA2	1BA5	Mn
+1BA6	1BA7	Mc
+1BA8	1BA9	Mn
+1BAA		Mc
+1BAB	1BAD	Mn
+1BAE	1BAF	Lo
+1BB0	1BB9	Nd
+1BBA	1BE5	Lo
+1BE6		Mn
+1BE7		Mc
+1BE8	1BE9	Mn
+1BEA	1BEC	Mc
+1BED		Mn
+1BEE		Mc
+1BEF	1BF1	Mn
+1BF2	1BF3	Mc
+1BFC	1BFF	Po
+1C00	1C23	Lo
+1C24	1C2B	Mc
+1C2C	1C33	Mn
+1C34	1C35	Mc
+1C36	1C37	Mn
+1C3B	1C3F	Po
+1C40	1C49	Nd
+1C4D	1C4F	Lo
+1C50	1C59	Nd
+1C5A	1C77	Lo
+1C78	1C7D	Lm
+1C7E	1C7F	Po
+1CC0	1CC7	Po
+1CD0	1CD2	Mn
+1CD3		Po
+1CD4	1CE0	Mn
+1CE1		Mc
+1CE2	1CE8	Mn
+1CE9	1CEC	Lo
+1CED		Mn
+1CEE	1CF1	Lo
+1CF2	1CF3	Mc
+1CF4		Mn
+1CF5	1CF6	Lo
+1CF8	1CF9	Mn
+1D00	1D2B	Ll
+1D2C	1D6A	Lm
+1D6B	1D77	Ll
+1D78		Lm
+1D79	1D9A	Ll
+1D9B	1DBF	Lm
+1DC0	1DF5	Mn
+1DFC	1DFF	Mn
+1E00		Lu
+1E01		Ll
+1E02		Lu
+1E03		Ll
+1E04		Lu
+1E05		Ll
+1E06		Lu
+1E07		Ll
+1E08		Lu
+1E09		Ll
+1E0A		Lu
+1E0B		Ll
+1E0C		Lu
+1E0D		Ll
+1E0E		Lu
+1E0F		Ll
+1E10		Lu
+1E11		Ll
+1E12		Lu
+1E13		Ll
+1E14		Lu
+1E15		Ll
+1E16		Lu
+1E17		Ll
+1E18		Lu
+1E19		Ll
+1E1A		Lu
+1E1B		Ll
+1E1C		Lu
+1E1D		Ll
+1E1E		Lu
+1E1F		Ll
+1E20		Lu
+1E21		Ll
+1E22		Lu
+1E23		Ll
+1E24		Lu
+1E25		Ll
+1E26		Lu
+1E27		Ll
+1E28		Lu
+1E29		Ll
+1E2A		Lu
+1E2B		Ll
+1E2C		Lu
+1E2D		Ll
+1E2E		Lu
+1E2F		Ll
+1E30		Lu
+1E31		Ll
+1E32		Lu
+1E33		Ll
+1E34		Lu
+1E35		Ll
+1E36		Lu
+1E37		Ll
+1E38		Lu
+1E39		Ll
+1E3A		Lu
+1E3B		Ll
+1E3C		Lu
+1E3D		Ll
+1E3E		Lu
+1E3F		Ll
+1E40		Lu
+1E41		Ll
+1E42		Lu
+1E43		Ll
+1E44		Lu
+1E45		Ll
+1E46		Lu
+1E47		Ll
+1E48		Lu
+1E49		Ll
+1E4A		Lu
+1E4B		Ll
+1E4C		Lu
+1E4D		Ll
+1E4E		Lu
+1E4F		Ll
+1E50		Lu
+1E51		Ll
+1E52		Lu
+1E53		Ll
+1E54		Lu
+1E55		Ll
+1E56		Lu
+1E57		Ll
+1E58		Lu
+1E59		Ll
+1E5A		Lu
+1E5B		Ll
+1E5C		Lu
+1E5D		Ll
+1E5E		Lu
+1E5F		Ll
+1E60		Lu
+1E61		Ll
+1E62		Lu
+1E63		Ll
+1E64		Lu
+1E65		Ll
+1E66		Lu
+1E67		Ll
+1E68		Lu
+1E69		Ll
+1E6A		Lu
+1E6B		Ll
+1E6C		Lu
+1E6D		Ll
+1E6E		Lu
+1E6F		Ll
+1E70		Lu
+1E71		Ll
+1E72		Lu
+1E73		Ll
+1E74		Lu
+1E75		Ll
+1E76		Lu
+1E77		Ll
+1E78		Lu
+1E79		Ll
+1E7A		Lu
+1E7B		Ll
+1E7C		Lu
+1E7D		Ll
+1E7E		Lu
+1E7F		Ll
+1E80		Lu
+1E81		Ll
+1E82		Lu
+1E83		Ll
+1E84		Lu
+1E85		Ll
+1E86		Lu
+1E87		Ll
+1E88		Lu
+1E89		Ll
+1E8A		Lu
+1E8B		Ll
+1E8C		Lu
+1E8D		Ll
+1E8E		Lu
+1E8F		Ll
+1E90		Lu
+1E91		Ll
+1E92		Lu
+1E93		Ll
+1E94		Lu
+1E95	1E9D	Ll
+1E9E		Lu
+1E9F		Ll
+1EA0		Lu
+1EA1		Ll
+1EA2		Lu
+1EA3		Ll
+1EA4		Lu
+1EA5		Ll
+1EA6		Lu
+1EA7		Ll
+1EA8		Lu
+1EA9		Ll
+1EAA		Lu
+1EAB		Ll
+1EAC		Lu
+1EAD		Ll
+1EAE		Lu
+1EAF		Ll
+1EB0		Lu
+1EB1		Ll
+1EB2		Lu
+1EB3		Ll
+1EB4		Lu
+1EB5		Ll
+1EB6		Lu
+1EB7		Ll
+1EB8		Lu
+1EB9		Ll
+1EBA		Lu
+1EBB		Ll
+1EBC		Lu
+1EBD		Ll
+1EBE		Lu
+1EBF		Ll
+1EC0		Lu
+1EC1		Ll
+1EC2		Lu
+1EC3		Ll
+1EC4		Lu
+1EC5		Ll
+1EC6		Lu
+1EC7		Ll
+1EC8		Lu
+1EC9		Ll
+1ECA		Lu
+1ECB		Ll
+1ECC		Lu
+1ECD		Ll
+1ECE		Lu
+1ECF		Ll
+1ED0		Lu
+1ED1		Ll
+1ED2		Lu
+1ED3		Ll
+1ED4		Lu
+1ED5		Ll
+1ED6		Lu
+1ED7		Ll
+1ED8		Lu
+1ED9		Ll
+1EDA		Lu
+1EDB		Ll
+1EDC		Lu
+1EDD		Ll
+1EDE		Lu
+1EDF		Ll
+1EE0		Lu
+1EE1		Ll
+1EE2		Lu
+1EE3		Ll
+1EE4		Lu
+1EE5		Ll
+1EE6		Lu
+1EE7		Ll
+1EE8		Lu
+1EE9		Ll
+1EEA		Lu
+1EEB		Ll
+1EEC		Lu
+1EED		Ll
+1EEE		Lu
+1EEF		Ll
+1EF0		Lu
+1EF1		Ll
+1EF2		Lu
+1EF3		Ll
+1EF4		Lu
+1EF5		Ll
+1EF6		Lu
+1EF7		Ll
+1EF8		Lu
+1EF9		Ll
+1EFA		Lu
+1EFB		Ll
+1EFC		Lu
+1EFD		Ll
+1EFE		Lu
+1EFF	1F07	Ll
+1F08	1F0F	Lu
+1F10	1F15	Ll
+1F18	1F1D	Lu
+1F20	1F27	Ll
+1F28	1F2F	Lu
+1F30	1F37	Ll
+1F38	1F3F	Lu
+1F40	1F45	Ll
+1F48	1F4D	Lu
+1F50	1F57	Ll
+1F59		Lu
+1F5B		Lu
+1F5D		Lu
+1F5F		Lu
+1F60	1F67	Ll
+1F68	1F6F	Lu
+1F70	1F7D	Ll
+1F80	1F87	Ll
+1F88	1F8F	Lt
+1F90	1F97	Ll
+1F98	1F9F	Lt
+1FA0	1FA7	Ll
+1FA8	1FAF	Lt
+1FB0	1FB4	Ll
+1FB6	1FB7	Ll
+1FB8	1FBB	Lu
+1FBC		Lt
+1FBD		Sk
+1FBE		Ll
+1FBF	1FC1	Sk
+1FC2	1FC4	Ll
+1FC6	1FC7	Ll
+1FC8	1FCB	Lu
+1FCC		Lt
+1FCD	1FCF	Sk
+1FD0	1FD3	Ll
+1FD6	1FD7	Ll
+1FD8	1FDB	Lu
+1FDD	1FDF	Sk
+1FE0	1FE7	Ll
+1FE8	1FEC	Lu
+1FED	1FEF	Sk
+1FF2	1FF4	Ll
+1FF6	1FF7	Ll
+1FF8	1FFB	Lu
+1FFC		Lt
+1FFD	1FFE	Sk
+2000	200A	Zs
+200B	200F	Cf
+2010	2015	Pd
+2016	2017	Po
+2018		Pi
+2019		Pf
+201A		Ps
+201B	201C	Pi
+201D		Pf
+201E		Ps
+201F		Pi
+2020	2027	Po
+2028		Zl
+2029		Zp
+202A	202E	Cf
+202F		Zs
+2030	2038	Po
+2039		Pi
+203A		Pf
+203B	203E	Po
+203F	2040	Pc
+2041	2043	Po
+2044		Sm
+2045		Ps
+2046		Pe
+2047	2051	Po
+2052		Sm
+2053		Po
+2054		Pc
+2055	205E	Po
+205F		Zs
+2060	2064	Cf
+2066	206F	Cf
+2070		No
+2071		Lm
+2074	2079	No
+207A	207C	Sm
+207D		Ps
+207E		Pe
+207F		Lm
+2080	2089	No
+208A	208C	Sm
+208D		Ps
+208E		Pe
+2090	209C	Lm
+20A0	20BE	Sc
+20D0	20DC	Mn
+20DD	20E0	Me
+20E1		Mn
+20E2	20E4	Me
+20E5	20F0	Mn
+2100	2101	So
+2102		Lu
+2103	2106	So
+2107		Lu
+2108	2109	So
+210A		Ll
+210B	210D	Lu
+210E	210F	Ll
+2110	2112	Lu
+2113		Ll
+2114		So
+2115		Lu
+2116	2117	So
+2118		Sm
+2119	211D	Lu
+211E	2123	So
+2124		Lu
+2125		So
+2126		Lu
+2127		So
+2128		Lu
+2129		So
+212A	212D	Lu
+212E		So
+212F		Ll
+2130	2133	Lu
+2134		Ll
+2135	2138	Lo
+2139		Ll
+213A	213B	So
+213C	213D	Ll
+213E	213F	Lu
+2140	2144	Sm
+2145		Lu
+2146	2149	Ll
+214A		So
+214B		Sm
+214C	214D	So
+214E		Ll
+214F		So
+2150	215F	No
+2160	2182	Nl
+2183		Lu
+2184		Ll
+2185	2188	Nl
+2189		No
+218A	218B	So
+2190	2194	Sm
+2195	2199	So
+219A	219B	Sm
+219C	219F	So
+21A0		Sm
+21A1	21A2	So
+21A3		Sm
+21A4	21A5	So
+21A6		Sm
+21A7	21AD	So
+21AE		Sm
+21AF	21CD	So
+21CE	21CF	Sm
+21D0	21D1	So
+21D2		Sm
+21D3		So
+21D4		Sm
+21D5	21F3	So
+21F4	22FF	Sm
+2300	2307	So
+2308		Ps
+2309		Pe
+230A		Ps
+230B		Pe
+230C	231F	So
+2320	2321	Sm
+2322	2328	So
+2329		Ps
+232A		Pe
+232B	237B	So
+237C		Sm
+237D	239A	So
+239B	23B3	Sm
+23B4	23DB	So
+23DC	23E1	Sm
+23E2	23FA	So
+2400	2426	So
+2440	244A	So
+2460	249B	No
+249C	24E9	So
+24EA	24FF	No
+2500	25B6	So
+25B7		Sm
+25B8	25C0	So
+25C1		Sm
+25C2	25F7	So
+25F8	25FF	Sm
+2600	266E	So
+266F		Sm
+2670	2767	So
+2768		Ps
+2769		Pe
+276A		Ps
+276B		Pe
+276C		Ps
+276D		Pe
+276E		Ps
+276F		Pe
+2770		Ps
+2771		Pe
+2772		Ps
+2773		Pe
+2774		Ps
+2775		Pe
+2776	2793	No
+2794	27BF	So
+27C0	27C4	Sm
+27C5		Ps
+27C6		Pe
+27C7	27E5	Sm
+27E6		Ps
+27E7		Pe
+27E8		Ps
+27E9		Pe
+27EA		Ps
+27EB		Pe
+27EC		Ps
+27ED		Pe
+27EE		Ps
+27EF		Pe
+27F0	27FF	Sm
+2800	28FF	So
+2900	2982	Sm
+2983		Ps
+2984		Pe
+2985		Ps
+2986		Pe
+2987		Ps
+2988		Pe
+2989		Ps
+298A		Pe
+298B		Ps
+298C		Pe
+298D		Ps
+298E		Pe
+298F		Ps
+2990		Pe
+2991		Ps
+2992		Pe
+2993		Ps
+2994		Pe
+2995		Ps
+2996		Pe
+2997		Ps
+2998		Pe
+2999	29D7	Sm
+29D8		Ps
+29D9		Pe
+29DA		Ps
+29DB		Pe
+29DC	29FB	Sm
+29FC		Ps
+29FD		Pe
+29FE	2AFF	Sm
+2B00	2B2F	So
+2B30	2B44	Sm
+2B45	2B46	So
+2B47	2B4C	Sm
+2B4D	2B73	So
+2B76	2B95	So
+2B98	2BB9	So
+2BBD	2BC8	So
+2BCA	2BD1	So
+2BEC	2BEF	So
+2C00	2C2E	Lu
+2C30	2C5E	Ll
+2C60		Lu
+2C61		Ll
+2C62	2C64	Lu
+2C65	2C66	Ll
+2C67		Lu
+2C68		Ll
+2C69		Lu
+2C6A		Ll
+2C6B		Lu
+2C6C		Ll
+2C6D	2C70	Lu
+2C71		Ll
+2C72		Lu
+2C73	2C74	Ll
+2C75		Lu
+2C76	2C7B	Ll
+2C7C	2C7D	Lm
+2C7E	2C80	Lu
+2C81		Ll
+2C82		Lu
+2C83		Ll
+2C84		Lu
+2C85		Ll
+2C86		Lu
+2C87		Ll
+2C88		Lu
+2C89		Ll
+2C8A		Lu
+2C8B		Ll
+2C8C		Lu
+2C8D		Ll
+2C8E		Lu
+2C8F		Ll
+2C90		Lu
+2C91		Ll
+2C92		Lu
+2C93		Ll
+2C94		Lu
+2C95		Ll
+2C96		Lu
+2C97		Ll
+2C98		Lu
+2C99		Ll
+2C9A		Lu
+2C9B		Ll
+2C9C		Lu
+2C9D		Ll
+2C9E		Lu
+2C9F		Ll
+2CA0		Lu
+2CA1		Ll
+2CA2		Lu
+2CA3		Ll
+2CA4		Lu
+2CA5		Ll
+2CA6		Lu
+2CA7		Ll
+2CA8		Lu
+2CA9		Ll
+2CAA		Lu
+2CAB		Ll
+2CAC		Lu
+2CAD		Ll
+2CAE		Lu
+2CAF		Ll
+2CB0		Lu
+2CB1		Ll
+2CB2		Lu
+2CB3		Ll
+2CB4		Lu
+2CB5		Ll
+2CB6		Lu
+2CB7		Ll
+2CB8		Lu
+2CB9		Ll
+2CBA		Lu
+2CBB		Ll
+2CBC		Lu
+2CBD		Ll
+2CBE		Lu
+2CBF		Ll
+2CC0		Lu
+2CC1		Ll
+2CC2		Lu
+2CC3		Ll
+2CC4		Lu
+2CC5		Ll
+2CC6		Lu
+2CC7		Ll
+2CC8		Lu
+2CC9		Ll
+2CCA		Lu
+2CCB		Ll
+2CCC		Lu
+2CCD		Ll
+2CCE		Lu
+2CCF		Ll
+2CD0		Lu
+2CD1		Ll
+2CD2		Lu
+2CD3		Ll
+2CD4		Lu
+2CD5		Ll
+2CD6		Lu
+2CD7		Ll
+2CD8		Lu
+2CD9		Ll
+2CDA		Lu
+2CDB		Ll
+2CDC		Lu
+2CDD		Ll
+2CDE		Lu
+2CDF		Ll
+2CE0		Lu
+2CE1		Ll
+2CE2		Lu
+2CE3	2CE4	Ll
+2CE5	2CEA	So
+2CEB		Lu
+2CEC		Ll
+2CED		Lu
+2CEE		Ll
+2CEF	2CF1	Mn
+2CF2		Lu
+2CF3		Ll
+2CF9	2CFC	Po
+2CFD		No
+2CFE	2CFF	Po
+2D00	2D25	Ll
+2D27		Ll
+2D2D		Ll
+2D30	2D67	Lo
+2D6F		Lm
+2D70		Po
+2D7F		Mn
+2D80	2D96	Lo
+2DA0	2DA6	Lo
+2DA8	2DAE	Lo
+2DB0	2DB6	Lo
+2DB8	2DBE	Lo
+2DC0	2DC6	Lo
+2DC8	2DCE	Lo
+2DD0	2DD6	Lo
+2DD8	2DDE	Lo
+2DE0	2DFF	Mn
+2E00	2E01	Po
+2E02		Pi
+2E03		Pf
+2E04		Pi
+2E05		Pf
+2E06	2E08	Po
+2E09		Pi
+2E0A		Pf
+2E0B		Po
+2E0C		Pi
+2E0D		Pf
+2E0E	2E16	Po
+2E17		Pd
+2E18	2E19	Po
+2E1A		Pd
+2E1B		Po
+2E1C		Pi
+2E1D		Pf
+2E1E	2E1F	Po
+2E20		Pi
+2E21		Pf
+2E22		Ps
+2E23		Pe
+2E24		Ps
+2E25		Pe
+2E26		Ps
+2E27		Pe
+2E28		Ps
+2E29		Pe
+2E2A	2E2E	Po
+2E2F		Lm
+2E30	2E39	Po
+2E3A	2E3B	Pd
+2E3C	2E3F	Po
+2E40		Pd
+2E41		Po
+2E42		Ps
+2E80	2E99	So
+2E9B	2EF3	So
+2F00	2FD5	So
+2FF0	2FFB	So
+3000		Zs
+3001	3003	Po
+3004		So
+3005		Lm
+3006		Lo
+3007		Nl
+3008		Ps
+3009		Pe
+300A		Ps
+300B		Pe
+300C		Ps
+300D		Pe
+300E		Ps
+300F		Pe
+3010		Ps
+3011		Pe
+3012	3013	So
+3014		Ps
+3015		Pe
+3016		Ps
+3017		Pe
+3018		Ps
+3019		Pe
+301A		Ps
+301B		Pe
+301C		Pd
+301D		Ps
+301E	301F	Pe
+3020		So
+3021	3029	Nl
+302A	302D	Mn
+302E	302F	Mc
+3030		Pd
+3031	3035	Lm
+3036	3037	So
+3038	303A	Nl
+303B		Lm
+303C		Lo
+303D		Po
+303E	303F	So
+3041	3096	Lo
+3099	309A	Mn
+309B	309C	Sk
+309D	309E	Lm
+309F		Lo
+30A0		Pd
+30A1	30FA	Lo
+30FB		Po
+30FC	30FE	Lm
+30FF		Lo
+3105	312D	Lo
+3131	318E	Lo
+3190	3191	So
+3192	3195	No
+3196	319F	So
+31A0	31BA	Lo
+31C0	31E3	So
+31F0	31FF	Lo
+3200	321E	So
+3220	3229	No
+322A	3247	So
+3248	324F	No
+3250		So
+3251	325F	No
+3260	327F	So
+3280	3289	No
+328A	32B0	So
+32B1	32BF	No
+32C0	32FE	So
+3300	33FF	So
+3400	4DB5	Lo
+4DC0	4DFF	So
+4E00	9FD5	Lo
+A000	A014	Lo
+A015		Lm
+A016	A48C	Lo
+A490	A4C6	So
+A4D0	A4F7	Lo
+A4F8	A4FD	Lm
+A4FE	A4FF	Po
+A500	A60B	Lo
+A60C		Lm
+A60D	A60F	Po
+A610	A61F	Lo
+A620	A629	Nd
+A62A	A62B	Lo
+A640		Lu
+A641		Ll
+A642		Lu
+A643		Ll
+A644		Lu
+A645		Ll
+A646		Lu
+A647		Ll
+A648		Lu
+A649		Ll
+A64A		Lu
+A64B		Ll
+A64C		Lu
+A64D		Ll
+A64E		Lu
+A64F		Ll
+A650		Lu
+A651		Ll
+A652		Lu
+A653		Ll
+A654		Lu
+A655		Ll
+A656		Lu
+A657		Ll
+A658		Lu
+A659		Ll
+A65A		Lu
+A65B		Ll
+A65C		Lu
+A65D		Ll
+A65E		Lu
+A65F		Ll
+A660		Lu
+A661		Ll
+A662		Lu
+A663		Ll
+A664		Lu
+A665		Ll
+A666		Lu
+A667		Ll
+A668		Lu
+A669		Ll
+A66A		Lu
+A66B		Ll
+A66C		Lu
+A66D		Ll
+A66E		Lo
+A66F		Mn
+A670	A672	Me
+A673		Po
+A674	A67D	Mn
+A67E		Po
+A67F		Lm
+A680		Lu
+A681		Ll
+A682		Lu
+A683		Ll
+A684		Lu
+A685		Ll
+A686		Lu
+A687		Ll
+A688		Lu
+A689		Ll
+A68A		Lu
+A68B		Ll
+A68C		Lu
+A68D		Ll
+A68E		Lu
+A68F		Ll
+A690		Lu
+A691		Ll
+A692		Lu
+A693		Ll
+A694		Lu
+A695		Ll
+A696		Lu
+A697		Ll
+A698		Lu
+A699		Ll
+A69A		Lu
+A69B		Ll
+A69C	A69D	Lm
+A69E	A69F	Mn
+A6A0	A6E5	Lo
+A6E6	A6EF	Nl
+A6F0	A6F1	Mn
+A6F2	A6F7	Po
+A700	A716	Sk
+A717	A71F	Lm
+A720	A721	Sk
+A722		Lu
+A723		Ll
+A724		Lu
+A725		Ll
+A726		Lu
+A727		Ll
+A728		Lu
+A729		Ll
+A72A		Lu
+A72B		Ll
+A72C		Lu
+A72D		Ll
+A72E		Lu
+A72F	A731	Ll
+A732		Lu
+A733		Ll
+A734		Lu
+A735		Ll
+A736		Lu
+A737		Ll
+A738		Lu
+A739		Ll
+A73A		Lu
+A73B		Ll
+A73C		Lu
+A73D		Ll
+A73E		Lu
+A73F		Ll
+A740		Lu
+A741		Ll
+A742		Lu
+A743		Ll
+A744		Lu
+A745		Ll
+A746		Lu
+A747		Ll
+A748		Lu
+A749		Ll
+A74A		Lu
+A74B		Ll
+A74C		Lu
+A74D		Ll
+A74E		Lu
+A74F		Ll
+A750		Lu
+A751		Ll
+A752		Lu
+A753		Ll
+A754		Lu
+A755		Ll
+A756		Lu
+A757		Ll
+A758		Lu
+A759		Ll
+A75A		Lu
+A75B		Ll
+A75C		Lu
+A75D		Ll
+A75E		Lu
+A75F		Ll
+A760		Lu
+A761		Ll
+A762		Lu
+A763		Ll
+A764		Lu
+A765		Ll
+A766		Lu
+A767		Ll
+A768		Lu
+A769		Ll
+A76A		Lu
+A76B		Ll
+A76C		Lu
+A76D		Ll
+A76E		Lu
+A76F		Ll
+A770		Lm
+A771	A778	Ll
+A779		Lu
+A77A		Ll
+A77B		Lu
+A77C		Ll
+A77D	A77E	Lu
+A77F		Ll
+A780		Lu
+A781		Ll
+A782		Lu
+A783		Ll
+A784		Lu
+A785		Ll
+A786		Lu
+A787		Ll
+A788		Lm
+A789	A78A	Sk
+A78B		Lu
+A78C		Ll
+A78D		Lu
+A78E		Ll
+A78F		Lo
+A790		Lu
+A791		Ll
+A792		Lu
+A793	A795	Ll
+A796		Lu
+A797		Ll
+A798		Lu
+A799		Ll
+A79A		Lu
+A79B		Ll
+A79C		Lu
+A79D		Ll
+A79E		Lu
+A79F		Ll
+A7A0		Lu
+A7A1		Ll
+A7A2		Lu
+A7A3		Ll
+A7A4		Lu
+A7A5		Ll
+A7A6		Lu
+A7A7		Ll
+A7A8		Lu
+A7A9		Ll
+A7AA	A7AD	Lu
+A7B0	A7B4	Lu
+A7B5		Ll
+A7B6		Lu
+A7B7		Ll
+A7F7		Lo
+A7F8	A7F9	Lm
+A7FA		Ll
+A7FB	A801	Lo
+A802		Mn
+A803	A805	Lo
+A806		Mn
+A807	A80A	Lo
+A80B		Mn
+A80C	A822	Lo
+A823	A824	Mc
+A825	A826	Mn
+A827		Mc
+A828	A82B	So
+A830	A835	No
+A836	A837	So
+A838		Sc
+A839		So
+A840	A873	Lo
+A874	A877	Po
+A880	A881	Mc
+A882	A8B3	Lo
+A8B4	A8C3	Mc
+A8C4		Mn
+A8CE	A8CF	Po
+A8D0	A8D9	Nd
+A8E0	A8F1	Mn
+A8F2	A8F7	Lo
+A8F8	A8FA	Po
+A8FB		Lo
+A8FC		Po
+A8FD		Lo
+A900	A909	Nd
+A90A	A925	Lo
+A926	A92D	Mn
+A92E	A92F	Po
+A930	A946	Lo
+A947	A951	Mn
+A952	A953	Mc
+A95F		Po
+A960	A97C	Lo
+A980	A982	Mn
+A983		Mc
+A984	A9B2	Lo
+A9B3		Mn
+A9B4	A9B5	Mc
+A9B6	A9B9	Mn
+A9BA	A9BB	Mc
+A9BC		Mn
+A9BD	A9C0	Mc
+A9C1	A9CD	Po
+A9CF		Lm
+A9D0	A9D9	Nd
+A9DE	A9DF	Po
+A9E0	A9E4	Lo
+A9E5		Mn
+A9E6		Lm
+A9E7	A9EF	Lo
+A9F0	A9F9	Nd
+A9FA	A9FE	Lo
+AA00	AA28	Lo
+AA29	AA2E	Mn
+AA2F	AA30	Mc
+AA31	AA32	Mn
+AA33	AA34	Mc
+AA35	AA36	Mn
+AA40	AA42	Lo
+AA43		Mn
+AA44	AA4B	Lo
+AA4C		Mn
+AA4D		Mc
+AA50	AA59	Nd
+AA5C	AA5F	Po
+AA60	AA6F	Lo
+AA70		Lm
+AA71	AA76	Lo
+AA77	AA79	So
+AA7A		Lo
+AA7B		Mc
+AA7C		Mn
+AA7D		Mc
+AA7E	AAAF	Lo
+AAB0		Mn
+AAB1		Lo
+AAB2	AAB4	Mn
+AAB5	AAB6	Lo
+AAB7	AAB8	Mn
+AAB9	AABD	Lo
+AABE	AABF	Mn
+AAC0		Lo
+AAC1		Mn
+AAC2		Lo
+AADB	AADC	Lo
+AADD		Lm
+AADE	AADF	Po
+AAE0	AAEA	Lo
+AAEB		Mc
+AAEC	AAED	Mn
+AAEE	AAEF	Mc
+AAF0	AAF1	Po
+AAF2		Lo
+AAF3	AAF4	Lm
+AAF5		Mc
+AAF6		Mn
+AB01	AB06	Lo
+AB09	AB0E	Lo
+AB11	AB16	Lo
+AB20	AB26	Lo
+AB28	AB2E	Lo
+AB30	AB5A	Ll
+AB5B		Sk
+AB5C	AB5F	Lm
+AB60	AB65	Ll
+AB70	ABBF	Ll
+ABC0	ABE2	Lo
+ABE3	ABE4	Mc
+ABE5		Mn
+ABE6	ABE7	Mc
+ABE8		Mn
+ABE9	ABEA	Mc
+ABEB		Po
+ABEC		Mc
+ABED		Mn
+ABF0	ABF9	Nd
+AC00	D7A3	Lo
+D7B0	D7C6	Lo
+D7CB	D7FB	Lo
+D800	DFFF	Cs
+E000	F8FF	Co
+F900	FA6D	Lo
+FA70	FAD9	Lo
+FB00	FB06	Ll
+FB13	FB17	Ll
+FB1D		Lo
+FB1E		Mn
+FB1F	FB28	Lo
+FB29		Sm
+FB2A	FB36	Lo
+FB38	FB3C	Lo
+FB3E		Lo
+FB40	FB41	Lo
+FB43	FB44	Lo
+FB46	FBB1	Lo
+FBB2	FBC1	Sk
+FBD3	FD3D	Lo
+FD3E		Pe
+FD3F		Ps
+FD50	FD8F	Lo
+FD92	FDC7	Lo
+FDF0	FDFB	Lo
+FDFC		Sc
+FDFD		So
+FE00	FE0F	Mn
+FE10	FE16	Po
+FE17		Ps
+FE18		Pe
+FE19		Po
+FE20	FE2F	Mn
+FE30		Po
+FE31	FE32	Pd
+FE33	FE34	Pc
+FE35		Ps
+FE36		Pe
+FE37		Ps
+FE38		Pe
+FE39		Ps
+FE3A		Pe
+FE3B		Ps
+FE3C		Pe
+FE3D		Ps
+FE3E		Pe
+FE3F		Ps
+FE40		Pe
+FE41		Ps
+FE42		Pe
+FE43		Ps
+FE44		Pe
+FE45	FE46	Po
+FE47		Ps
+FE48		Pe
+FE49	FE4C	Po
+FE4D	FE4F	Pc
+FE50	FE52	Po
+FE54	FE57	Po
+FE58		Pd
+FE59		Ps
+FE5A		Pe
+FE5B		Ps
+FE5C		Pe
+FE5D		Ps
+FE5E		Pe
+FE5F	FE61	Po
+FE62		Sm
+FE63		Pd
+FE64	FE66	Sm
+FE68		Po
+FE69		Sc
+FE6A	FE6B	Po
+FE70	FE74	Lo
+FE76	FEFC	Lo
+FEFF		Cf
+FF01	FF03	Po
+FF04		Sc
+FF05	FF07	Po
+FF08		Ps
+FF09		Pe
+FF0A		Po
+FF0B		Sm
+FF0C		Po
+FF0D		Pd
+FF0E	FF0F	Po
+FF10	FF19	Nd
+FF1A	FF1B	Po
+FF1C	FF1E	Sm
+FF1F	FF20	Po
+FF21	FF3A	Lu
+FF3B		Ps
+FF3C		Po
+FF3D		Pe
+FF3E		Sk
+FF3F		Pc
+FF40		Sk
+FF41	FF5A	Ll
+FF5B		Ps
+FF5C		Sm
+FF5D		Pe
+FF5E		Sm
+FF5F		Ps
+FF60		Pe
+FF61		Po
+FF62		Ps
+FF63		Pe
+FF64	FF65	Po
+FF66	FF6F	Lo
+FF70		Lm
+FF71	FF9D	Lo
+FF9E	FF9F	Lm
+FFA0	FFBE	Lo
+FFC2	FFC7	Lo
+FFCA	FFCF	Lo
+FFD2	FFD7	Lo
+FFDA	FFDC	Lo
+FFE0	FFE1	Sc
+FFE2		Sm
+FFE3		Sk
+FFE4		So
+FFE5	FFE6	Sc
+FFE8		So
+FFE9	FFEC	Sm
+FFED	FFEE	So
+FFF9	FFFB	Cf
+FFFC	FFFD	So
+10000	1000B	Lo
+1000D	10026	Lo
+10028	1003A	Lo
+1003C	1003D	Lo
+1003F	1004D	Lo
+10050	1005D	Lo
+10080	100FA	Lo
+10100	10102	Po
+10107	10133	No
+10137	1013F	So
+10140	10174	Nl
+10175	10178	No
+10179	10189	So
+1018A	1018B	No
+1018C		So
+10190	1019B	So
+101A0		So
+101D0	101FC	So
+101FD		Mn
+10280	1029C	Lo
+102A0	102D0	Lo
+102E0		Mn
+102E1	102FB	No
+10300	1031F	Lo
+10320	10323	No
+10330	10340	Lo
+10341		Nl
+10342	10349	Lo
+1034A		Nl
+10350	10375	Lo
+10376	1037A	Mn
+10380	1039D	Lo
+1039F		Po
+103A0	103C3	Lo
+103C8	103CF	Lo
+103D0		Po
+103D1	103D5	Nl
+10400	10427	Lu
+10428	1044F	Ll
+10450	1049D	Lo
+104A0	104A9	Nd
+10500	10527	Lo
+10530	10563	Lo
+1056F		Po
+10600	10736	Lo
+10740	10755	Lo
+10760	10767	Lo
+10800	10805	Lo
+10808		Lo
+1080A	10835	Lo
+10837	10838	Lo
+1083C		Lo
+1083F	10855	Lo
+10857		Po
+10858	1085F	No
+10860	10876	Lo
+10877	10878	So
+10879	1087F	No
+10880	1089E	Lo
+108A7	108AF	No
+108E0	108F2	Lo
+108F4	108F5	Lo
+108FB	108FF	No
+10900	10915	Lo
+10916	1091B	No
+1091F		Po
+10920	10939	Lo
+1093F		Po
+10980	109B7	Lo
+109BC	109BD	No
+109BE	109BF	Lo
+109C0	109CF	No
+109D2	109FF	No
+10A00		Lo
+10A01	10A03	Mn
+10A05	10A06	Mn
+10A0C	10A0F	Mn
+10A10	10A13	Lo
+10A15	10A17	Lo
+10A19	10A33	Lo
+10A38	10A3A	Mn
+10A3F		Mn
+10A40	10A47	No
+10A50	10A58	Po
+10A60	10A7C	Lo
+10A7D	10A7E	No
+10A7F		Po
+10A80	10A9C	Lo
+10A9D	10A9F	No
+10AC0	10AC7	Lo
+10AC8		So
+10AC9	10AE4	Lo
+10AE5	10AE6	Mn
+10AEB	10AEF	No
+10AF0	10AF6	Po
+10B00	10B35	Lo
+10B39	10B3F	Po
+10B40	10B55	Lo
+10B58	10B5F	No
+10B60	10B72	Lo
+10B78	10B7F	No
+10B80	10B91	Lo
+10B99	10B9C	Po
+10BA9	10BAF	No
+10C00	10C48	Lo
+10C80	10CB2	Lu
+10CC0	10CF2	Ll
+10CFA	10CFF	No
+10E60	10E7E	No
+11000		Mc
+11001		Mn
+11002		Mc
+11003	11037	Lo
+11038	11046	Mn
+11047	1104D	Po
+11052	11065	No
+11066	1106F	Nd
+1107F	11081	Mn
+11082		Mc
+11083	110AF	Lo
+110B0	110B2	Mc
+110B3	110B6	Mn
+110B7	110B8	Mc
+110B9	110BA	Mn
+110BB	110BC	Po
+110BD		Cf
+110BE	110C1	Po
+110D0	110E8	Lo
+110F0	110F9	Nd
+11100	11102	Mn
+11103	11126	Lo
+11127	1112B	Mn
+1112C		Mc
+1112D	11134	Mn
+11136	1113F	Nd
+11140	11143	Po
+11150	11172	Lo
+11173		Mn
+11174	11175	Po
+11176		Lo
+11180	11181	Mn
+11182		Mc
+11183	111B2	Lo
+111B3	111B5	Mc
+111B6	111BE	Mn
+111BF	111C0	Mc
+111C1	111C4	Lo
+111C5	111C9	Po
+111CA	111CC	Mn
+111CD		Po
+111D0	111D9	Nd
+111DA		Lo
+111DB		Po
+111DC		Lo
+111DD	111DF	Po
+111E1	111F4	No
+11200	11211	Lo
+11213	1122B	Lo
+1122C	1122E	Mc
+1122F	11231	Mn
+11232	11233	Mc
+11234		Mn
+11235		Mc
+11236	11237	Mn
+11238	1123D	Po
+11280	11286	Lo
+11288		Lo
+1128A	1128D	Lo
+1128F	1129D	Lo
+1129F	112A8	Lo
+112A9		Po
+112B0	112DE	Lo
+112DF		Mn
+112E0	112E2	Mc
+112E3	112EA	Mn
+112F0	112F9	Nd
+11300	11301	Mn
+11302	11303	Mc
+11305	1130C	Lo
+1130F	11310	Lo
+11313	11328	Lo
+1132A	11330	Lo
+11332	11333	Lo
+11335	11339	Lo
+1133C		Mn
+1133D		Lo
+1133E	1133F	Mc
+11340		Mn
+11341	11344	Mc
+11347	11348	Mc
+1134B	1134D	Mc
+11350		Lo
+11357		Mc
+1135D	11361	Lo
+11362	11363	Mc
+11366	1136C	Mn
+11370	11374	Mn
+11480	114AF	Lo
+114B0	114B2	Mc
+114B3	114B8	Mn
+114B9		Mc
+114BA		Mn
+114BB	114BE	Mc
+114BF	114C0	Mn
+114C1		Mc
+114C2	114C3	Mn
+114C4	114C5	Lo
+114C6		Po
+114C7		Lo
+114D0	114D9	Nd
+11580	115AE	Lo
+115AF	115B1	Mc
+115B2	115B5	Mn
+115B8	115BB	Mc
+115BC	115BD	Mn
+115BE		Mc
+115BF	115C0	Mn
+115C1	115D7	Po
+115D8	115DB	Lo
+115DC	115DD	Mn
+11600	1162F	Lo
+11630	11632	Mc
+11633	1163A	Mn
+1163B	1163C	Mc
+1163D		Mn
+1163E		Mc
+1163F	11640	Mn
+11641	11643	Po
+11644		Lo
+11650	11659	Nd
+11680	116AA	Lo
+116AB		Mn
+116AC		Mc
+116AD		Mn
+116AE	116AF	Mc
+116B0	116B5	Mn
+116B6		Mc
+116B7		Mn
+116C0	116C9	Nd
+11700	11719	Lo
+1171D	1171F	Mn
+11720	11721	Mc
+11722	11725	Mn
+11726		Mc
+11727	1172B	Mn
+11730	11739	Nd
+1173A	1173B	No
+1173C	1173E	Po
+1173F		So
+118A0	118BF	Lu
+118C0	118DF	Ll
+118E0	118E9	Nd
+118EA	118F2	No
+118FF		Lo
+11AC0	11AF8	Lo
+12000	12399	Lo
+12400	1246E	Nl
+12470	12474	Po
+12480	12543	Lo
+13000	1342E	Lo
+14400	14646	Lo
+16800	16A38	Lo
+16A40	16A5E	Lo
+16A60	16A69	Nd
+16A6E	16A6F	Po
+16AD0	16AED	Lo
+16AF0	16AF4	Mn
+16AF5		Po
+16B00	16B2F	Lo
+16B30	16B36	Mn
+16B37	16B3B	Po
+16B3C	16B3F	So
+16B40	16B43	Lm
+16B44		Po
+16B45		So
+16B50	16B59	Nd
+16B5B	16B61	No
+16B63	16B77	Lo
+16B7D	16B8F	Lo
+16F00	16F44	Lo
+16F50		Lo
+16F51	16F7E	Mc
+16F8F	16F92	Mn
+16F93	16F9F	Lm
+1B000	1B001	Lo
+1BC00	1BC6A	Lo
+1BC70	1BC7C	Lo
+1BC80	1BC88	Lo
+1BC90	1BC99	Lo
+1BC9C		So
+1BC9D	1BC9E	Mn
+1BC9F		Po
+1BCA0	1BCA3	Cf
+1D000	1D0F5	So
+1D100	1D126	So
+1D129	1D164	So
+1D165	1D166	Mc
+1D167	1D169	Mn
+1D16A	1D16C	So
+1D16D	1D172	Mc
+1D173	1D17A	Cf
+1D17B	1D182	Mn
+1D183	1D184	So
+1D185	1D18B	Mn
+1D18C	1D1A9	So
+1D1AA	1D1AD	Mn
+1D1AE	1D1E8	So
+1D200	1D241	So
+1D242	1D244	Mn
+1D245		So
+1D300	1D356	So
+1D360	1D371	No
+1D400	1D419	Lu
+1D41A	1D433	Ll
+1D434	1D44D	Lu
+1D44E	1D454	Ll
+1D456	1D467	Ll
+1D468	1D481	Lu
+1D482	1D49B	Ll
+1D49C		Lu
+1D49E	1D49F	Lu
+1D4A2		Lu
+1D4A5	1D4A6	Lu
+1D4A9	1D4AC	Lu
+1D4AE	1D4B5	Lu
+1D4B6	1D4B9	Ll
+1D4BB		Ll
+1D4BD	1D4C3	Ll
+1D4C5	1D4CF	Ll
+1D4D0	1D4E9	Lu
+1D4EA	1D503	Ll
+1D504	1D505	Lu
+1D507	1D50A	Lu
+1D50D	1D514	Lu
+1D516	1D51C	Lu
+1D51E	1D537	Ll
+1D538	1D539	Lu
+1D53B	1D53E	Lu
+1D540	1D544	Lu
+1D546		Lu
+1D54A	1D550	Lu
+1D552	1D56B	Ll
+1D56C	1D585	Lu
+1D586	1D59F	Ll
+1D5A0	1D5B9	Lu
+1D5BA	1D5D3	Ll
+1D5D4	1D5ED	Lu
+1D5EE	1D607	Ll
+1D608	1D621	Lu
+1D622	1D63B	Ll
+1D63C	1D655	Lu
+1D656	1D66F	Ll
+1D670	1D689	Lu
+1D68A	1D6A5	Ll
+1D6A8	1D6C0	Lu
+1D6C1		Sm
+1D6C2	1D6DA	Ll
+1D6DB		Sm
+1D6DC	1D6E1	Ll
+1D6E2	1D6FA	Lu
+1D6FB		Sm
+1D6FC	1D714	Ll
+1D715		Sm
+1D716	1D71B	Ll
+1D71C	1D734	Lu
+1D735		Sm
+1D736	1D74E	Ll
+1D74F		Sm
+1D750	1D755	Ll
+1D756	1D76E	Lu
+1D76F		Sm
+1D770	1D788	Ll
+1D789		Sm
+1D78A	1D78F	Ll
+1D790	1D7A8	Lu
+1D7A9		Sm
+1D7AA	1D7C2	Ll
+1D7C3		Sm
+1D7C4	1D7C9	Ll
+1D7CA		Lu
+1D7CB		Ll
+1D7CE	1D7FF	Nd
+1D800	1D9FF	So
+1DA00	1DA36	Mn
+1DA37	1DA3A	So
+1DA3B	1DA6C	Mn
+1DA6D	1DA74	So
+1DA75		Mn
+1DA76	1DA83	So
+1DA84		Mn
+1DA85	1DA86	So
+1DA87	1DA8B	Po
+1DA9B	1DA9F	Mn
+1DAA1	1DAAF	Mn
+1E800	1E8C4	Lo
+1E8C7	1E8CF	No
+1E8D0	1E8D6	Mn
+1EE00	1EE03	Lo
+1EE05	1EE1F	Lo
+1EE21	1EE22	Lo
+1EE24		Lo
+1EE27		Lo
+1EE29	1EE32	Lo
+1EE34	1EE37	Lo
+1EE39		Lo
+1EE3B		Lo
+1EE42		Lo
+1EE47		Lo
+1EE49		Lo
+1EE4B		Lo
+1EE4D	1EE4F	Lo
+1EE51	1EE52	Lo
+1EE54		Lo
+1EE57		Lo
+1EE59		Lo
+1EE5B		Lo
+1EE5D		Lo
+1EE5F		Lo
+1EE61	1EE62	Lo
+1EE64		Lo
+1EE67	1EE6A	Lo
+1EE6C	1EE72	Lo
+1EE74	1EE77	Lo
+1EE79	1EE7C	Lo
+1EE7E		Lo
+1EE80	1EE89	Lo
+1EE8B	1EE9B	Lo
+1EEA1	1EEA3	Lo
+1EEA5	1EEA9	Lo
+1EEAB	1EEBB	Lo
+1EEF0	1EEF1	Sm
+1F000	1F02B	So
+1F030	1F093	So
+1F0A0	1F0AE	So
+1F0B1	1F0BF	So
+1F0C1	1F0CF	So
+1F0D1	1F0F5	So
+1F100	1F10C	No
+1F110	1F12E	So
+1F130	1F16B	So
+1F170	1F19A	So
+1F1E6	1F202	So
+1F210	1F23A	So
+1F240	1F248	So
+1F250	1F251	So
+1F300	1F3FA	So
+1F3FB	1F3FF	Sk
+1F400	1F579	So
+1F57B	1F5A3	So
+1F5A5	1F6D0	So
+1F6E0	1F6EC	So
+1F6F0	1F6F3	So
+1F700	1F773	So
+1F780	1F7D4	So
+1F800	1F80B	So
+1F810	1F847	So
+1F850	1F859	So
+1F860	1F887	So
+1F890	1F8AD	So
+1F910	1F918	So
+1F980	1F984	So
+1F9C0		So
+20000	2A6D6	Lo
+2A700	2B734	Lo
+2B740	2B81D	Lo
+2B820	2CEA1	Lo
+2F800	2FA1D	Lo
+E0001		Cf
+E0020	E007F	Cf
+E0100	E01EF	Mn
+F0000	FFFFD	Co
+100000	10FFFD	Co
+END
diff --git a/lib/5.24.1/unicore/To/Hst.pl b/lib/5.24.1/unicore/To/Hst.pl
new file mode 100644
index 00000000..26ebb5dd
--- /dev/null
+++ b/lib/5.24.1/unicore/To/Hst.pl
@@ -0,0 +1,824 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToHst'}{'format'} = 's'; # string
+$utf8::SwashInfo{'ToHst'}{'missing'} = 'NA';
+
+return <<'END';
+1100	115F	L
+1160	11A7	V
+11A8	11FF	T
+A960	A97C	L
+AC00		LV
+AC01	AC1B	LVT
+AC1C		LV
+AC1D	AC37	LVT
+AC38		LV
+AC39	AC53	LVT
+AC54		LV
+AC55	AC6F	LVT
+AC70		LV
+AC71	AC8B	LVT
+AC8C		LV
+AC8D	ACA7	LVT
+ACA8		LV
+ACA9	ACC3	LVT
+ACC4		LV
+ACC5	ACDF	LVT
+ACE0		LV
+ACE1	ACFB	LVT
+ACFC		LV
+ACFD	AD17	LVT
+AD18		LV
+AD19	AD33	LVT
+AD34		LV
+AD35	AD4F	LVT
+AD50		LV
+AD51	AD6B	LVT
+AD6C		LV
+AD6D	AD87	LVT
+AD88		LV
+AD89	ADA3	LVT
+ADA4		LV
+ADA5	ADBF	LVT
+ADC0		LV
+ADC1	ADDB	LVT
+ADDC		LV
+ADDD	ADF7	LVT
+ADF8		LV
+ADF9	AE13	LVT
+AE14		LV
+AE15	AE2F	LVT
+AE30		LV
+AE31	AE4B	LVT
+AE4C		LV
+AE4D	AE67	LVT
+AE68		LV
+AE69	AE83	LVT
+AE84		LV
+AE85	AE9F	LVT
+AEA0		LV
+AEA1	AEBB	LVT
+AEBC		LV
+AEBD	AED7	LVT
+AED8		LV
+AED9	AEF3	LVT
+AEF4		LV
+AEF5	AF0F	LVT
+AF10		LV
+AF11	AF2B	LVT
+AF2C		LV
+AF2D	AF47	LVT
+AF48		LV
+AF49	AF63	LVT
+AF64		LV
+AF65	AF7F	LVT
+AF80		LV
+AF81	AF9B	LVT
+AF9C		LV
+AF9D	AFB7	LVT
+AFB8		LV
+AFB9	AFD3	LVT
+AFD4		LV
+AFD5	AFEF	LVT
+AFF0		LV
+AFF1	B00B	LVT
+B00C		LV
+B00D	B027	LVT
+B028		LV
+B029	B043	LVT
+B044		LV
+B045	B05F	LVT
+B060		LV
+B061	B07B	LVT
+B07C		LV
+B07D	B097	LVT
+B098		LV
+B099	B0B3	LVT
+B0B4		LV
+B0B5	B0CF	LVT
+B0D0		LV
+B0D1	B0EB	LVT
+B0EC		LV
+B0ED	B107	LVT
+B108		LV
+B109	B123	LVT
+B124		LV
+B125	B13F	LVT
+B140		LV
+B141	B15B	LVT
+B15C		LV
+B15D	B177	LVT
+B178		LV
+B179	B193	LVT
+B194		LV
+B195	B1AF	LVT
+B1B0		LV
+B1B1	B1CB	LVT
+B1CC		LV
+B1CD	B1E7	LVT
+B1E8		LV
+B1E9	B203	LVT
+B204		LV
+B205	B21F	LVT
+B220		LV
+B221	B23B	LVT
+B23C		LV
+B23D	B257	LVT
+B258		LV
+B259	B273	LVT
+B274		LV
+B275	B28F	LVT
+B290		LV
+B291	B2AB	LVT
+B2AC		LV
+B2AD	B2C7	LVT
+B2C8		LV
+B2C9	B2E3	LVT
+B2E4		LV
+B2E5	B2FF	LVT
+B300		LV
+B301	B31B	LVT
+B31C		LV
+B31D	B337	LVT
+B338		LV
+B339	B353	LVT
+B354		LV
+B355	B36F	LVT
+B370		LV
+B371	B38B	LVT
+B38C		LV
+B38D	B3A7	LVT
+B3A8		LV
+B3A9	B3C3	LVT
+B3C4		LV
+B3C5	B3DF	LVT
+B3E0		LV
+B3E1	B3FB	LVT
+B3FC		LV
+B3FD	B417	LVT
+B418		LV
+B419	B433	LVT
+B434		LV
+B435	B44F	LVT
+B450		LV
+B451	B46B	LVT
+B46C		LV
+B46D	B487	LVT
+B488		LV
+B489	B4A3	LVT
+B4A4		LV
+B4A5	B4BF	LVT
+B4C0		LV
+B4C1	B4DB	LVT
+B4DC		LV
+B4DD	B4F7	LVT
+B4F8		LV
+B4F9	B513	LVT
+B514		LV
+B515	B52F	LVT
+B530		LV
+B531	B54B	LVT
+B54C		LV
+B54D	B567	LVT
+B568		LV
+B569	B583	LVT
+B584		LV
+B585	B59F	LVT
+B5A0		LV
+B5A1	B5BB	LVT
+B5BC		LV
+B5BD	B5D7	LVT
+B5D8		LV
+B5D9	B5F3	LVT
+B5F4		LV
+B5F5	B60F	LVT
+B610		LV
+B611	B62B	LVT
+B62C		LV
+B62D	B647	LVT
+B648		LV
+B649	B663	LVT
+B664		LV
+B665	B67F	LVT
+B680		LV
+B681	B69B	LVT
+B69C		LV
+B69D	B6B7	LVT
+B6B8		LV
+B6B9	B6D3	LVT
+B6D4		LV
+B6D5	B6EF	LVT
+B6F0		LV
+B6F1	B70B	LVT
+B70C		LV
+B70D	B727	LVT
+B728		LV
+B729	B743	LVT
+B744		LV
+B745	B75F	LVT
+B760		LV
+B761	B77B	LVT
+B77C		LV
+B77D	B797	LVT
+B798		LV
+B799	B7B3	LVT
+B7B4		LV
+B7B5	B7CF	LVT
+B7D0		LV
+B7D1	B7EB	LVT
+B7EC		LV
+B7ED	B807	LVT
+B808		LV
+B809	B823	LVT
+B824		LV
+B825	B83F	LVT
+B840		LV
+B841	B85B	LVT
+B85C		LV
+B85D	B877	LVT
+B878		LV
+B879	B893	LVT
+B894		LV
+B895	B8AF	LVT
+B8B0		LV
+B8B1	B8CB	LVT
+B8CC		LV
+B8CD	B8E7	LVT
+B8E8		LV
+B8E9	B903	LVT
+B904		LV
+B905	B91F	LVT
+B920		LV
+B921	B93B	LVT
+B93C		LV
+B93D	B957	LVT
+B958		LV
+B959	B973	LVT
+B974		LV
+B975	B98F	LVT
+B990		LV
+B991	B9AB	LVT
+B9AC		LV
+B9AD	B9C7	LVT
+B9C8		LV
+B9C9	B9E3	LVT
+B9E4		LV
+B9E5	B9FF	LVT
+BA00		LV
+BA01	BA1B	LVT
+BA1C		LV
+BA1D	BA37	LVT
+BA38		LV
+BA39	BA53	LVT
+BA54		LV
+BA55	BA6F	LVT
+BA70		LV
+BA71	BA8B	LVT
+BA8C		LV
+BA8D	BAA7	LVT
+BAA8		LV
+BAA9	BAC3	LVT
+BAC4		LV
+BAC5	BADF	LVT
+BAE0		LV
+BAE1	BAFB	LVT
+BAFC		LV
+BAFD	BB17	LVT
+BB18		LV
+BB19	BB33	LVT
+BB34		LV
+BB35	BB4F	LVT
+BB50		LV
+BB51	BB6B	LVT
+BB6C		LV
+BB6D	BB87	LVT
+BB88		LV
+BB89	BBA3	LVT
+BBA4		LV
+BBA5	BBBF	LVT
+BBC0		LV
+BBC1	BBDB	LVT
+BBDC		LV
+BBDD	BBF7	LVT
+BBF8		LV
+BBF9	BC13	LVT
+BC14		LV
+BC15	BC2F	LVT
+BC30		LV
+BC31	BC4B	LVT
+BC4C		LV
+BC4D	BC67	LVT
+BC68		LV
+BC69	BC83	LVT
+BC84		LV
+BC85	BC9F	LVT
+BCA0		LV
+BCA1	BCBB	LVT
+BCBC		LV
+BCBD	BCD7	LVT
+BCD8		LV
+BCD9	BCF3	LVT
+BCF4		LV
+BCF5	BD0F	LVT
+BD10		LV
+BD11	BD2B	LVT
+BD2C		LV
+BD2D	BD47	LVT
+BD48		LV
+BD49	BD63	LVT
+BD64		LV
+BD65	BD7F	LVT
+BD80		LV
+BD81	BD9B	LVT
+BD9C		LV
+BD9D	BDB7	LVT
+BDB8		LV
+BDB9	BDD3	LVT
+BDD4		LV
+BDD5	BDEF	LVT
+BDF0		LV
+BDF1	BE0B	LVT
+BE0C		LV
+BE0D	BE27	LVT
+BE28		LV
+BE29	BE43	LVT
+BE44		LV
+BE45	BE5F	LVT
+BE60		LV
+BE61	BE7B	LVT
+BE7C		LV
+BE7D	BE97	LVT
+BE98		LV
+BE99	BEB3	LVT
+BEB4		LV
+BEB5	BECF	LVT
+BED0		LV
+BED1	BEEB	LVT
+BEEC		LV
+BEED	BF07	LVT
+BF08		LV
+BF09	BF23	LVT
+BF24		LV
+BF25	BF3F	LVT
+BF40		LV
+BF41	BF5B	LVT
+BF5C		LV
+BF5D	BF77	LVT
+BF78		LV
+BF79	BF93	LVT
+BF94		LV
+BF95	BFAF	LVT
+BFB0		LV
+BFB1	BFCB	LVT
+BFCC		LV
+BFCD	BFE7	LVT
+BFE8		LV
+BFE9	C003	LVT
+C004		LV
+C005	C01F	LVT
+C020		LV
+C021	C03B	LVT
+C03C		LV
+C03D	C057	LVT
+C058		LV
+C059	C073	LVT
+C074		LV
+C075	C08F	LVT
+C090		LV
+C091	C0AB	LVT
+C0AC		LV
+C0AD	C0C7	LVT
+C0C8		LV
+C0C9	C0E3	LVT
+C0E4		LV
+C0E5	C0FF	LVT
+C100		LV
+C101	C11B	LVT
+C11C		LV
+C11D	C137	LVT
+C138		LV
+C139	C153	LVT
+C154		LV
+C155	C16F	LVT
+C170		LV
+C171	C18B	LVT
+C18C		LV
+C18D	C1A7	LVT
+C1A8		LV
+C1A9	C1C3	LVT
+C1C4		LV
+C1C5	C1DF	LVT
+C1E0		LV
+C1E1	C1FB	LVT
+C1FC		LV
+C1FD	C217	LVT
+C218		LV
+C219	C233	LVT
+C234		LV
+C235	C24F	LVT
+C250		LV
+C251	C26B	LVT
+C26C		LV
+C26D	C287	LVT
+C288		LV
+C289	C2A3	LVT
+C2A4		LV
+C2A5	C2BF	LVT
+C2C0		LV
+C2C1	C2DB	LVT
+C2DC		LV
+C2DD	C2F7	LVT
+C2F8		LV
+C2F9	C313	LVT
+C314		LV
+C315	C32F	LVT
+C330		LV
+C331	C34B	LVT
+C34C		LV
+C34D	C367	LVT
+C368		LV
+C369	C383	LVT
+C384		LV
+C385	C39F	LVT
+C3A0		LV
+C3A1	C3BB	LVT
+C3BC		LV
+C3BD	C3D7	LVT
+C3D8		LV
+C3D9	C3F3	LVT
+C3F4		LV
+C3F5	C40F	LVT
+C410		LV
+C411	C42B	LVT
+C42C		LV
+C42D	C447	LVT
+C448		LV
+C449	C463	LVT
+C464		LV
+C465	C47F	LVT
+C480		LV
+C481	C49B	LVT
+C49C		LV
+C49D	C4B7	LVT
+C4B8		LV
+C4B9	C4D3	LVT
+C4D4		LV
+C4D5	C4EF	LVT
+C4F0		LV
+C4F1	C50B	LVT
+C50C		LV
+C50D	C527	LVT
+C528		LV
+C529	C543	LVT
+C544		LV
+C545	C55F	LVT
+C560		LV
+C561	C57B	LVT
+C57C		LV
+C57D	C597	LVT
+C598		LV
+C599	C5B3	LVT
+C5B4		LV
+C5B5	C5CF	LVT
+C5D0		LV
+C5D1	C5EB	LVT
+C5EC		LV
+C5ED	C607	LVT
+C608		LV
+C609	C623	LVT
+C624		LV
+C625	C63F	LVT
+C640		LV
+C641	C65B	LVT
+C65C		LV
+C65D	C677	LVT
+C678		LV
+C679	C693	LVT
+C694		LV
+C695	C6AF	LVT
+C6B0		LV
+C6B1	C6CB	LVT
+C6CC		LV
+C6CD	C6E7	LVT
+C6E8		LV
+C6E9	C703	LVT
+C704		LV
+C705	C71F	LVT
+C720		LV
+C721	C73B	LVT
+C73C		LV
+C73D	C757	LVT
+C758		LV
+C759	C773	LVT
+C774		LV
+C775	C78F	LVT
+C790		LV
+C791	C7AB	LVT
+C7AC		LV
+C7AD	C7C7	LVT
+C7C8		LV
+C7C9	C7E3	LVT
+C7E4		LV
+C7E5	C7FF	LVT
+C800		LV
+C801	C81B	LVT
+C81C		LV
+C81D	C837	LVT
+C838		LV
+C839	C853	LVT
+C854		LV
+C855	C86F	LVT
+C870		LV
+C871	C88B	LVT
+C88C		LV
+C88D	C8A7	LVT
+C8A8		LV
+C8A9	C8C3	LVT
+C8C4		LV
+C8C5	C8DF	LVT
+C8E0		LV
+C8E1	C8FB	LVT
+C8FC		LV
+C8FD	C917	LVT
+C918		LV
+C919	C933	LVT
+C934		LV
+C935	C94F	LVT
+C950		LV
+C951	C96B	LVT
+C96C		LV
+C96D	C987	LVT
+C988		LV
+C989	C9A3	LVT
+C9A4		LV
+C9A5	C9BF	LVT
+C9C0		LV
+C9C1	C9DB	LVT
+C9DC		LV
+C9DD	C9F7	LVT
+C9F8		LV
+C9F9	CA13	LVT
+CA14		LV
+CA15	CA2F	LVT
+CA30		LV
+CA31	CA4B	LVT
+CA4C		LV
+CA4D	CA67	LVT
+CA68		LV
+CA69	CA83	LVT
+CA84		LV
+CA85	CA9F	LVT
+CAA0		LV
+CAA1	CABB	LVT
+CABC		LV
+CABD	CAD7	LVT
+CAD8		LV
+CAD9	CAF3	LVT
+CAF4		LV
+CAF5	CB0F	LVT
+CB10		LV
+CB11	CB2B	LVT
+CB2C		LV
+CB2D	CB47	LVT
+CB48		LV
+CB49	CB63	LVT
+CB64		LV
+CB65	CB7F	LVT
+CB80		LV
+CB81	CB9B	LVT
+CB9C		LV
+CB9D	CBB7	LVT
+CBB8		LV
+CBB9	CBD3	LVT
+CBD4		LV
+CBD5	CBEF	LVT
+CBF0		LV
+CBF1	CC0B	LVT
+CC0C		LV
+CC0D	CC27	LVT
+CC28		LV
+CC29	CC43	LVT
+CC44		LV
+CC45	CC5F	LVT
+CC60		LV
+CC61	CC7B	LVT
+CC7C		LV
+CC7D	CC97	LVT
+CC98		LV
+CC99	CCB3	LVT
+CCB4		LV
+CCB5	CCCF	LVT
+CCD0		LV
+CCD1	CCEB	LVT
+CCEC		LV
+CCED	CD07	LVT
+CD08		LV
+CD09	CD23	LVT
+CD24		LV
+CD25	CD3F	LVT
+CD40		LV
+CD41	CD5B	LVT
+CD5C		LV
+CD5D	CD77	LVT
+CD78		LV
+CD79	CD93	LVT
+CD94		LV
+CD95	CDAF	LVT
+CDB0		LV
+CDB1	CDCB	LVT
+CDCC		LV
+CDCD	CDE7	LVT
+CDE8		LV
+CDE9	CE03	LVT
+CE04		LV
+CE05	CE1F	LVT
+CE20		LV
+CE21	CE3B	LVT
+CE3C		LV
+CE3D	CE57	LVT
+CE58		LV
+CE59	CE73	LVT
+CE74		LV
+CE75	CE8F	LVT
+CE90		LV
+CE91	CEAB	LVT
+CEAC		LV
+CEAD	CEC7	LVT
+CEC8		LV
+CEC9	CEE3	LVT
+CEE4		LV
+CEE5	CEFF	LVT
+CF00		LV
+CF01	CF1B	LVT
+CF1C		LV
+CF1D	CF37	LVT
+CF38		LV
+CF39	CF53	LVT
+CF54		LV
+CF55	CF6F	LVT
+CF70		LV
+CF71	CF8B	LVT
+CF8C		LV
+CF8D	CFA7	LVT
+CFA8		LV
+CFA9	CFC3	LVT
+CFC4		LV
+CFC5	CFDF	LVT
+CFE0		LV
+CFE1	CFFB	LVT
+CFFC		LV
+CFFD	D017	LVT
+D018		LV
+D019	D033	LVT
+D034		LV
+D035	D04F	LVT
+D050		LV
+D051	D06B	LVT
+D06C		LV
+D06D	D087	LVT
+D088		LV
+D089	D0A3	LVT
+D0A4		LV
+D0A5	D0BF	LVT
+D0C0		LV
+D0C1	D0DB	LVT
+D0DC		LV
+D0DD	D0F7	LVT
+D0F8		LV
+D0F9	D113	LVT
+D114		LV
+D115	D12F	LVT
+D130		LV
+D131	D14B	LVT
+D14C		LV
+D14D	D167	LVT
+D168		LV
+D169	D183	LVT
+D184		LV
+D185	D19F	LVT
+D1A0		LV
+D1A1	D1BB	LVT
+D1BC		LV
+D1BD	D1D7	LVT
+D1D8		LV
+D1D9	D1F3	LVT
+D1F4		LV
+D1F5	D20F	LVT
+D210		LV
+D211	D22B	LVT
+D22C		LV
+D22D	D247	LVT
+D248		LV
+D249	D263	LVT
+D264		LV
+D265	D27F	LVT
+D280		LV
+D281	D29B	LVT
+D29C		LV
+D29D	D2B7	LVT
+D2B8		LV
+D2B9	D2D3	LVT
+D2D4		LV
+D2D5	D2EF	LVT
+D2F0		LV
+D2F1	D30B	LVT
+D30C		LV
+D30D	D327	LVT
+D328		LV
+D329	D343	LVT
+D344		LV
+D345	D35F	LVT
+D360		LV
+D361	D37B	LVT
+D37C		LV
+D37D	D397	LVT
+D398		LV
+D399	D3B3	LVT
+D3B4		LV
+D3B5	D3CF	LVT
+D3D0		LV
+D3D1	D3EB	LVT
+D3EC		LV
+D3ED	D407	LVT
+D408		LV
+D409	D423	LVT
+D424		LV
+D425	D43F	LVT
+D440		LV
+D441	D45B	LVT
+D45C		LV
+D45D	D477	LVT
+D478		LV
+D479	D493	LVT
+D494		LV
+D495	D4AF	LVT
+D4B0		LV
+D4B1	D4CB	LVT
+D4CC		LV
+D4CD	D4E7	LVT
+D4E8		LV
+D4E9	D503	LVT
+D504		LV
+D505	D51F	LVT
+D520		LV
+D521	D53B	LVT
+D53C		LV
+D53D	D557	LVT
+D558		LV
+D559	D573	LVT
+D574		LV
+D575	D58F	LVT
+D590		LV
+D591	D5AB	LVT
+D5AC		LV
+D5AD	D5C7	LVT
+D5C8		LV
+D5C9	D5E3	LVT
+D5E4		LV
+D5E5	D5FF	LVT
+D600		LV
+D601	D61B	LVT
+D61C		LV
+D61D	D637	LVT
+D638		LV
+D639	D653	LVT
+D654		LV
+D655	D66F	LVT
+D670		LV
+D671	D68B	LVT
+D68C		LV
+D68D	D6A7	LVT
+D6A8		LV
+D6A9	D6C3	LVT
+D6C4		LV
+D6C5	D6DF	LVT
+D6E0		LV
+D6E1	D6FB	LVT
+D6FC		LV
+D6FD	D717	LVT
+D718		LV
+D719	D733	LVT
+D734		LV
+D735	D74F	LVT
+D750		LV
+D751	D76B	LVT
+D76C		LV
+D76D	D787	LVT
+D788		LV
+D789	D7A3	LVT
+D7B0	D7C6	V
+D7CB	D7FB	T
+END
diff --git a/lib/5.24.1/unicore/To/InPC.pl b/lib/5.24.1/unicore/To/InPC.pl
new file mode 100644
index 00000000..1a6e6a36
--- /dev/null
+++ b/lib/5.24.1/unicore/To/InPC.pl
@@ -0,0 +1,512 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToInPC'}{'format'} = 's'; # string
+$utf8::SwashInfo{'ToInPC'}{'missing'} = 'NA';
+
+return <<'END';
+900	902	Top
+903		Right
+93A		Top
+93B		Right
+93C		Bottom
+93E		Right
+93F		Left
+940		Right
+941	944	Bottom
+945	948	Top
+949	94C	Right
+94D		Bottom
+94E		Left
+94F		Right
+951		Top
+952		Bottom
+953	955	Top
+956	957	Bottom
+962	963	Bottom
+981		Top
+982	983	Right
+9BC		Bottom
+9BE		Right
+9BF		Left
+9C0		Right
+9C1	9C4	Bottom
+9C7	9C8	Left
+9CB	9CC	Left_And_Right
+9CD		Bottom
+9D7		Right
+9E2	9E3	Bottom
+A01	A02	Top
+A03		Right
+A3C		Bottom
+A3E		Right
+A3F		Left
+A40		Right
+A41	A42	Bottom
+A47	A48	Top
+A4B	A4C	Top
+A4D		Bottom
+A70	A71	Top
+A75		Bottom
+A81	A82	Top
+A83		Right
+ABC		Bottom
+ABE		Right
+ABF		Left
+AC0		Right
+AC1	AC4	Bottom
+AC5		Top
+AC7	AC8	Top
+AC9		Top_And_Right
+ACB	ACC	Right
+ACD		Bottom
+AE2	AE3	Bottom
+B01		Top
+B02	B03	Right
+B3C		Bottom
+B3E		Right
+B3F		Top
+B40		Right
+B41	B44	Bottom
+B47		Left
+B48		Top_And_Left
+B4B		Left_And_Right
+B4C		Top_And_Left_And_Right
+B4D		Bottom
+B56		Top
+B57		Top_And_Right
+B62	B63	Bottom
+B82		Top
+BBE	BBF	Right
+BC0		Top
+BC1	BC2	Right
+BC6	BC8	Left
+BCA	BCC	Left_And_Right
+BCD		Top
+BD7		Right
+C00		Top
+C01	C03	Right
+C3E	C40	Top
+C41	C44	Right
+C46	C47	Top
+C48		Top_And_Bottom
+C4A	C4D	Top
+C55		Top
+C56		Bottom
+C62	C63	Bottom
+C81		Top
+C82	C83	Right
+CBC		Bottom
+CBE		Right
+CBF		Top
+CC0		Top_And_Right
+CC1	CC4	Right
+CC6		Top
+CC7	CC8	Top_And_Right
+CCA	CCB	Top_And_Right
+CCC	CCD	Top
+CD5	CD6	Right
+CE2	CE3	Bottom
+D01		Top
+D02	D03	Right
+D3E	D42	Right
+D43	D44	Bottom
+D46	D48	Left
+D4A	D4C	Left_And_Right
+D4D		Top
+D57		Right
+D62	D63	Bottom
+D82	D83	Right
+DCA		Top
+DCF	DD1	Right
+DD2	DD3	Top
+DD4		Bottom
+DD6		Bottom
+DD8		Right
+DD9		Left
+DDA		Top_And_Left
+DDB		Left
+DDC		Left_And_Right
+DDD		Top_And_Left_And_Right
+DDE		Left_And_Right
+DDF		Right
+DF2	DF3	Right
+E30		Right
+E31		Top
+E32	E33	Right
+E34	E37	Top
+E38	E3A	Bottom
+E40	E44	Visual_Order_Left
+E45		Right
+E47	E4E	Top
+EB0		Right
+EB1		Top
+EB2	EB3	Right
+EB4	EB7	Top
+EB8	EB9	Bottom
+EBB		Top
+EBC		Bottom
+EC0	EC4	Visual_Order_Left
+EC8	ECD	Top
+F18	F19	Bottom
+F35		Bottom
+F37		Bottom
+F39		Top
+F3E		Right
+F3F		Left
+F71		Bottom
+F72		Top
+F73		Top_And_Bottom
+F74	F75	Bottom
+F76	F79	Top_And_Bottom
+F7A	F7E	Top
+F7F		Right
+F80		Top
+F81		Top_And_Bottom
+F82	F83	Top
+F84		Bottom
+F86	F87	Top
+F8D	F97	Bottom
+F99	FBC	Bottom
+FC6		Bottom
+102B	102C	Right
+102D	102E	Top
+102F	1030	Bottom
+1031		Left
+1032	1036	Top
+1037		Bottom
+1038		Right
+103A		Top
+103B		Right
+103D	103E	Bottom
+1056	1057	Right
+1058	1059	Bottom
+105E	1060	Bottom
+1062	1064	Right
+1067	106D	Right
+1071	1074	Top
+1082		Bottom
+1083		Right
+1084		Left
+1085	1086	Top
+1087	108C	Right
+108D		Bottom
+108F		Right
+109A	109C	Right
+109D		Top
+1712		Top
+1713	1714	Bottom
+1732		Top
+1733	1734	Bottom
+1752		Top
+1753		Bottom
+1772		Top
+1773		Bottom
+17B6		Right
+17B7	17BA	Top
+17BB	17BD	Bottom
+17BE		Top_And_Left
+17BF		Top_And_Left_And_Right
+17C0		Left_And_Right
+17C1	17C3	Left
+17C4	17C5	Left_And_Right
+17C6		Top
+17C7	17C8	Right
+17C9	17D1	Top
+17D3		Top
+17DD		Top
+1920	1921	Top
+1922		Bottom
+1923	1924	Right
+1925	1926	Top_And_Right
+1927	1928	Top
+1929	192B	Right
+1930	1931	Right
+1932		Bottom
+1933	1938	Right
+1939		Bottom
+193A		Top
+193B		Bottom
+19B0	19B4	Right
+19B5	19B7	Visual_Order_Left
+19B8	19B9	Right
+19BA		Visual_Order_Left
+19BB	19C0	Right
+19C8	19C9	Right
+1A17		Top
+1A18		Bottom
+1A19		Left
+1A1A		Right
+1A1B		Top
+1A55		Left
+1A56		Bottom
+1A57		Right
+1A58	1A5A	Top
+1A5B	1A5E	Bottom
+1A61		Right
+1A62		Top
+1A63	1A64	Right
+1A65	1A68	Top
+1A69	1A6A	Bottom
+1A6B		Top
+1A6C		Bottom
+1A6D		Right
+1A6E	1A72	Left
+1A73	1A7C	Top
+1A7F		Bottom
+1B00	1B03	Top
+1B04		Right
+1B34		Top
+1B35		Right
+1B36	1B37	Top
+1B38	1B3A	Bottom
+1B3B		Bottom_And_Right
+1B3C		Top_And_Bottom
+1B3D		Top_And_Bottom_And_Right
+1B3E	1B3F	Left
+1B40	1B41	Left_And_Right
+1B42		Top
+1B43		Top_And_Right
+1B44		Right
+1B6B		Top
+1B6C		Bottom
+1B6D	1B73	Top
+1B80	1B81	Top
+1B82		Right
+1BA1		Right
+1BA2	1BA3	Bottom
+1BA4		Top
+1BA5		Bottom
+1BA6		Left
+1BA7		Right
+1BA8	1BA9	Top
+1BAA		Right
+1BAC	1BAD	Bottom
+1BE6		Top
+1BE7		Right
+1BE8	1BE9	Top
+1BEA	1BEC	Right
+1BED		Top
+1BEE		Right
+1BEF	1BF1	Top
+1BF2	1BF3	Right
+1C24	1C26	Right
+1C27	1C28	Left
+1C29		Top_And_Left
+1C2A	1C2B	Right
+1C2C		Bottom
+1C2D	1C33	Top
+1C34	1C35	Left
+1C36		Top
+1C37		Bottom
+1CD0	1CD2	Top
+1CD4		Overstruck
+1CD5	1CD9	Bottom
+1CDA	1CDB	Top
+1CDC	1CDF	Bottom
+1CE0		Top
+1CE1		Right
+1CE2	1CE8	Overstruck
+1CED		Bottom
+1CF4		Top
+A806		Top
+A80B		Top
+A823	A824	Right
+A825		Bottom
+A826		Top
+A827		Right
+A880	A881	Right
+A8B4	A8C3	Right
+A8C4		Bottom
+A8E0	A8F1	Top
+A92B	A92D	Bottom
+A947	A949	Bottom
+A94A		Top
+A94B	A94E	Bottom
+A94F	A951	Top
+A952	A953	Right
+A980	A982	Top
+A983		Right
+A9B3		Top
+A9B4	A9B5	Right
+A9B6	A9B7	Top
+A9B8	A9B9	Bottom
+A9BA	A9BB	Left
+A9BC		Top
+A9BD	A9BF	Right
+A9C0		Bottom_And_Right
+A9E5		Top
+AA29	AA2C	Top
+AA2D		Bottom
+AA2E		Top
+AA2F	AA30	Left
+AA31		Top
+AA32		Bottom
+AA33		Right
+AA34		Left
+AA35	AA36	Bottom
+AA43		Top
+AA4C		Top
+AA4D		Right
+AA7B		Right
+AA7C		Top
+AA7D		Right
+AAB0		Top
+AAB1		Right
+AAB2	AAB3	Top
+AAB4		Bottom
+AAB5	AAB6	Visual_Order_Left
+AAB7	AAB8	Top
+AAB9		Visual_Order_Left
+AABA		Right
+AABB	AABC	Visual_Order_Left
+AABD		Right
+AABE	AABF	Top
+AAC1		Top
+AAEB		Left
+AAEC		Bottom
+AAED		Top
+AAEE		Left
+AAEF		Right
+AAF5		Right
+ABE3	ABE4	Right
+ABE5		Top
+ABE6	ABE7	Right
+ABE8		Bottom
+ABE9	ABEA	Right
+ABEC		Right
+ABED		Bottom
+10A01		Overstruck
+10A02	10A03	Bottom
+10A05		Top
+10A06		Overstruck
+10A0C	10A0E	Bottom
+10A0F		Top
+10A38		Top
+10A39	10A3A	Bottom
+11000		Right
+11001		Top
+11002		Right
+11038	1103B	Top
+1103C	11041	Bottom
+11042	11046	Top
+11080	11081	Top
+11082		Right
+110B0		Right
+110B1		Left
+110B2		Right
+110B3	110B4	Bottom
+110B5	110B6	Top
+110B7	110B8	Right
+110B9	110BA	Bottom
+11100	11102	Top
+11127	11129	Top
+1112A	1112B	Bottom
+1112C		Left
+1112D		Top
+1112E	1112F	Top_And_Bottom
+11130		Top
+11131	11132	Bottom
+11134		Top
+11173		Bottom
+11180	11181	Top
+11182		Right
+111B3		Right
+111B4		Left
+111B5		Right
+111B6	111BB	Bottom
+111BC	111BE	Top
+111BF		Top_And_Right
+111C0		Right
+111CB		Top
+111CC		Bottom
+1122C	1122E	Right
+1122F		Bottom
+11230	11231	Top
+11232	11233	Top_And_Right
+11234		Top
+11235		Right
+11236	11237	Top
+112DF		Top
+112E0		Right
+112E1		Left
+112E2		Right
+112E3	112E4	Bottom
+112E5	112E8	Top
+112E9	112EA	Bottom
+11301		Top
+11302	11303	Right
+1133E	1133F	Right
+11340		Top
+11341	11344	Right
+11347	11348	Left
+1134B	1134C	Left_And_Right
+1134D		Right
+11357		Right
+11362	11363	Right
+11366	1136C	Top
+11370	11374	Top
+114B0		Right
+114B1		Left
+114B2		Right
+114B3	114B8	Bottom
+114B9		Left
+114BA		Top
+114BB		Top_And_Left
+114BC		Left_And_Right
+114BD		Right
+114BE		Left_And_Right
+114BF	114C0	Top
+114C1		Right
+114C2	114C3	Bottom
+115AF		Right
+115B0		Left
+115B1		Right
+115B2	115B5	Bottom
+115B8		Left
+115B9		Top_And_Left
+115BA		Left_And_Right
+115BB		Top_And_Left_And_Right
+115BC	115BD	Top
+115BE		Right
+115BF	115C0	Bottom
+115DC	115DD	Bottom
+11630	11632	Right
+11633	11638	Bottom
+11639	1163A	Top
+1163B	1163C	Right
+1163D		Top
+1163E		Right
+1163F		Bottom
+11640		Top
+116AB		Top
+116AC		Right
+116AD		Top
+116AE		Left
+116AF		Right
+116B0	116B1	Bottom
+116B2	116B5	Top
+116B6		Right
+116B7		Bottom
+1171D		Bottom
+1171F		Top
+11720	11721	Right
+11722	11723	Top
+11724	11725	Bottom
+11726		Left
+11727		Top
+11728		Bottom
+11729	1172B	Top
+END
diff --git a/lib/5.24.1/unicore/To/InSC.pl b/lib/5.24.1/unicore/To/InSC.pl
new file mode 100644
index 00000000..c8aa799d
--- /dev/null
+++ b/lib/5.24.1/unicore/To/InSC.pl
@@ -0,0 +1,625 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToInSC'}{'format'} = 's'; # string
+$utf8::SwashInfo{'ToInSC'}{'missing'} = 'Other';
+
+return <<'END';
+2D		Consonant_Placeholder
+30	39	Number
+A0		Consonant_Placeholder
+B2	B3	Syllable_Modifier
+D7		Consonant_Placeholder
+900	902	Bindu
+903		Visarga
+904	914	Vowel_Independent
+915	939	Consonant
+93A	93B	Vowel_Dependent
+93C		Nukta
+93D		Avagraha
+93E	94C	Vowel_Dependent
+94D		Virama
+94E	94F	Vowel_Dependent
+951	952	Cantillation_Mark
+955	957	Vowel_Dependent
+958	95F	Consonant
+960	961	Vowel_Independent
+962	963	Vowel_Dependent
+966	96F	Number
+972	977	Vowel_Independent
+978	97F	Consonant
+981	982	Bindu
+983		Visarga
+985	98C	Vowel_Independent
+98F	990	Vowel_Independent
+993	994	Vowel_Independent
+995	9A8	Consonant
+9AA	9B0	Consonant
+9B2		Consonant
+9B6	9B9	Consonant
+9BC		Nukta
+9BD		Avagraha
+9BE	9C4	Vowel_Dependent
+9C7	9C8	Vowel_Dependent
+9CB	9CC	Vowel_Dependent
+9CD		Virama
+9CE		Consonant_Dead
+9D7		Vowel_Dependent
+9DC	9DD	Consonant
+9DF		Consonant
+9E0	9E1	Vowel_Independent
+9E2	9E3	Vowel_Dependent
+9E6	9EF	Number
+9F0	9F1	Consonant
+A01	A02	Bindu
+A03		Visarga
+A05	A0A	Vowel_Independent
+A0F	A10	Vowel_Independent
+A13	A14	Vowel_Independent
+A15	A28	Consonant
+A2A	A30	Consonant
+A32	A33	Consonant
+A35	A36	Consonant
+A38	A39	Consonant
+A3C		Nukta
+A3E	A42	Vowel_Dependent
+A47	A48	Vowel_Dependent
+A4B	A4C	Vowel_Dependent
+A4D		Virama
+A59	A5C	Consonant
+A5E		Consonant
+A66	A6F	Number
+A70		Bindu
+A71		Gemination_Mark
+A72	A73	Consonant_Placeholder
+A75		Consonant_Medial
+A81	A82	Bindu
+A83		Visarga
+A85	A8D	Vowel_Independent
+A8F	A91	Vowel_Independent
+A93	A94	Vowel_Independent
+A95	AA8	Consonant
+AAA	AB0	Consonant
+AB2	AB3	Consonant
+AB5	AB9	Consonant
+ABC		Nukta
+ABD		Avagraha
+ABE	AC5	Vowel_Dependent
+AC7	AC9	Vowel_Dependent
+ACB	ACC	Vowel_Dependent
+ACD		Virama
+AE0	AE1	Vowel_Independent
+AE2	AE3	Vowel_Dependent
+AE6	AEF	Number
+AF9		Consonant
+B01	B02	Bindu
+B03		Visarga
+B05	B0C	Vowel_Independent
+B0F	B10	Vowel_Independent
+B13	B14	Vowel_Independent
+B15	B28	Consonant
+B2A	B30	Consonant
+B32	B33	Consonant
+B35	B39	Consonant
+B3C		Nukta
+B3D		Avagraha
+B3E	B44	Vowel_Dependent
+B47	B48	Vowel_Dependent
+B4B	B4C	Vowel_Dependent
+B4D		Virama
+B56	B57	Vowel_Dependent
+B5C	B5D	Consonant
+B5F		Consonant
+B60	B61	Vowel_Independent
+B62	B63	Vowel_Dependent
+B66	B6F	Number
+B71		Consonant
+B82		Bindu
+B83		Modifying_Letter
+B85	B8A	Vowel_Independent
+B8E	B90	Vowel_Independent
+B92	B94	Vowel_Independent
+B95		Consonant
+B99	B9A	Consonant
+B9C		Consonant
+B9E	B9F	Consonant
+BA3	BA4	Consonant
+BA8	BAA	Consonant
+BAE	BB9	Consonant
+BBE	BC2	Vowel_Dependent
+BC6	BC8	Vowel_Dependent
+BCA	BCC	Vowel_Dependent
+BCD		Virama
+BD7		Vowel_Dependent
+BE6	BEF	Number
+C00	C02	Bindu
+C03		Visarga
+C05	C0C	Vowel_Independent
+C0E	C10	Vowel_Independent
+C12	C14	Vowel_Independent
+C15	C28	Consonant
+C2A	C39	Consonant
+C3D		Avagraha
+C3E	C44	Vowel_Dependent
+C46	C48	Vowel_Dependent
+C4A	C4C	Vowel_Dependent
+C4D		Virama
+C55	C56	Vowel_Dependent
+C58	C5A	Consonant
+C60	C61	Vowel_Independent
+C62	C63	Vowel_Dependent
+C66	C6F	Number
+C81	C82	Bindu
+C83		Visarga
+C85	C8C	Vowel_Independent
+C8E	C90	Vowel_Independent
+C92	C94	Vowel_Independent
+C95	CA8	Consonant
+CAA	CB3	Consonant
+CB5	CB9	Consonant
+CBC		Nukta
+CBD		Avagraha
+CBE	CC4	Vowel_Dependent
+CC6	CC8	Vowel_Dependent
+CCA	CCC	Vowel_Dependent
+CCD		Virama
+CD5	CD6	Vowel_Dependent
+CDE		Consonant
+CE0	CE1	Vowel_Independent
+CE2	CE3	Vowel_Dependent
+CE6	CEF	Number
+CF1	CF2	Consonant_With_Stacker
+D01	D02	Bindu
+D03		Visarga
+D05	D0C	Vowel_Independent
+D0E	D10	Vowel_Independent
+D12	D14	Vowel_Independent
+D15	D3A	Consonant
+D3D		Avagraha
+D3E	D44	Vowel_Dependent
+D46	D48	Vowel_Dependent
+D4A	D4C	Vowel_Dependent
+D4D		Virama
+D4E		Consonant_Preceding_Repha
+D57		Vowel_Dependent
+D5F	D61	Vowel_Independent
+D62	D63	Vowel_Dependent
+D66	D6F	Number
+D7A	D7F	Consonant_Dead
+D82		Bindu
+D83		Visarga
+D85	D96	Vowel_Independent
+D9A	DB1	Consonant
+DB3	DBB	Consonant
+DBD		Consonant
+DC0	DC6	Consonant
+DCA		Virama
+DCF	DD4	Vowel_Dependent
+DD6		Vowel_Dependent
+DD8	DDF	Vowel_Dependent
+DE6	DEF	Number
+DF2	DF3	Vowel_Dependent
+E01	E2E	Consonant
+E30	E39	Vowel_Dependent
+E3A		Pure_Killer
+E40	E45	Vowel_Dependent
+E47		Vowel_Dependent
+E48	E4B	Tone_Mark
+E4C		Consonant_Killer
+E4D		Bindu
+E4E		Pure_Killer
+E50	E59	Number
+E81	E82	Consonant
+E84		Consonant
+E87	E88	Consonant
+E8A		Consonant
+E8D		Consonant
+E94	E97	Consonant
+E99	E9F	Consonant
+EA1	EA3	Consonant
+EA5		Consonant
+EA7		Consonant
+EAA	EAB	Consonant
+EAD	EAE	Consonant
+EB0	EB9	Vowel_Dependent
+EBB		Vowel_Dependent
+EBC	EBD	Consonant_Medial
+EC0	EC4	Vowel_Dependent
+EC8	ECB	Tone_Mark
+ECD		Bindu
+ED0	ED9	Number
+EDC	EDF	Consonant
+F20	F33	Number
+F35		Syllable_Modifier
+F37		Syllable_Modifier
+F39		Nukta
+F40	F47	Consonant
+F49	F6C	Consonant
+F71	F7D	Vowel_Dependent
+F7E		Bindu
+F7F		Visarga
+F80	F81	Vowel_Dependent
+F82	F83	Bindu
+F84		Pure_Killer
+F85		Avagraha
+F88	F8C	Consonant_Head_Letter
+F8D	F97	Consonant_Subjoined
+F99	FBC	Consonant_Subjoined
+FC6		Syllable_Modifier
+1000	1020	Consonant
+1021	102A	Vowel_Independent
+102B	1035	Vowel_Dependent
+1036		Bindu
+1037		Tone_Mark
+1038		Visarga
+1039		Invisible_Stacker
+103A		Pure_Killer
+103B	103E	Consonant_Medial
+103F		Consonant
+1040	1049	Number
+104E		Consonant_Placeholder
+1050	1051	Consonant
+1052	1055	Vowel_Independent
+1056	1059	Vowel_Dependent
+105A	105D	Consonant
+105E	1060	Consonant_Medial
+1061		Consonant
+1062		Vowel_Dependent
+1063	1064	Tone_Mark
+1065	1066	Consonant
+1067	1068	Vowel_Dependent
+1069	106D	Tone_Mark
+106E	1070	Consonant
+1071	1074	Vowel_Dependent
+1075	1081	Consonant
+1082		Consonant_Medial
+1083	1086	Vowel_Dependent
+1087	108D	Tone_Mark
+108E		Consonant
+108F		Tone_Mark
+1090	1099	Number
+109A	109B	Tone_Mark
+109C	109D	Vowel_Dependent
+1700	1702	Vowel_Independent
+1703	170C	Consonant
+170E	1711	Consonant
+1712	1713	Vowel_Dependent
+1714		Pure_Killer
+1720	1722	Vowel_Independent
+1723	1731	Consonant
+1732	1733	Vowel_Dependent
+1734		Pure_Killer
+1740	1742	Vowel_Independent
+1743	1751	Consonant
+1752	1753	Vowel_Dependent
+1760	1762	Vowel_Independent
+1763	176C	Consonant
+176E	1770	Consonant
+1772	1773	Vowel_Dependent
+1780	17A2	Consonant
+17A3	17B3	Vowel_Independent
+17B6	17C5	Vowel_Dependent
+17C6		Bindu
+17C7		Visarga
+17C8		Vowel_Dependent
+17C9	17CA	Register_Shifter
+17CB		Syllable_Modifier
+17CC		Consonant_Succeeding_Repha
+17CD		Consonant_Killer
+17CE	17D0	Syllable_Modifier
+17D1		Pure_Killer
+17D2		Invisible_Stacker
+17D3		Syllable_Modifier
+17DC		Avagraha
+17E0	17E9	Number
+1900		Consonant_Placeholder
+1901	191E	Consonant
+1920	1928	Vowel_Dependent
+1929	192B	Consonant_Subjoined
+1930	1931	Consonant_Final
+1932		Bindu
+1933	1939	Consonant_Final
+193A		Vowel_Dependent
+193B		Syllable_Modifier
+1946	194F	Number
+1950	1962	Consonant
+1963	196D	Vowel
+1970	1974	Tone_Letter
+1980	19AB	Consonant
+19B0	19C0	Vowel_Dependent
+19C1	19C7	Consonant_Final
+19C8	19C9	Tone_Mark
+19D0	19D9	Number
+1A00	1A16	Consonant
+1A17	1A1B	Vowel_Dependent
+1A20	1A4C	Consonant
+1A4D	1A52	Vowel_Independent
+1A53	1A54	Consonant
+1A55	1A56	Consonant_Medial
+1A57	1A5E	Consonant_Final
+1A60		Invisible_Stacker
+1A61	1A74	Vowel_Dependent
+1A75	1A79	Tone_Mark
+1A7A	1A7C	Syllable_Modifier
+1A7F		Syllable_Modifier
+1A80	1A89	Number
+1A90	1A99	Number
+1B00	1B02	Bindu
+1B03		Consonant_Succeeding_Repha
+1B04		Visarga
+1B05	1B12	Vowel_Independent
+1B13	1B33	Consonant
+1B34		Nukta
+1B35	1B43	Vowel_Dependent
+1B44		Virama
+1B45	1B4B	Consonant
+1B50	1B59	Number
+1B80		Bindu
+1B81		Consonant_Succeeding_Repha
+1B82		Visarga
+1B83	1B89	Vowel_Independent
+1B8A	1BA0	Consonant
+1BA1	1BA3	Consonant_Subjoined
+1BA4	1BA9	Vowel_Dependent
+1BAA		Pure_Killer
+1BAB		Invisible_Stacker
+1BAC	1BAD	Consonant_Subjoined
+1BAE	1BAF	Consonant
+1BB0	1BB9	Number
+1BBA		Avagraha
+1BBB	1BBD	Consonant
+1BBE	1BBF	Consonant_Final
+1BC0	1BE3	Consonant
+1BE4	1BE5	Vowel_Independent
+1BE6		Nukta
+1BE7	1BEF	Vowel_Dependent
+1BF0	1BF1	Consonant_Final
+1BF2	1BF3	Pure_Killer
+1C00	1C23	Consonant
+1C24	1C25	Consonant_Subjoined
+1C26	1C2C	Vowel_Dependent
+1C2D	1C33	Consonant_Final
+1C34	1C35	Bindu
+1C36		Syllable_Modifier
+1C37		Nukta
+1C40	1C49	Number
+1C4D	1C4F	Consonant
+1CD0	1CD2	Cantillation_Mark
+1CD4	1CE1	Cantillation_Mark
+1CF2	1CF3	Visarga
+1CF4		Cantillation_Mark
+1CF8	1CF9	Cantillation_Mark
+200C		Non_Joiner
+200D		Joiner
+2010	2014	Consonant_Placeholder
+2074		Syllable_Modifier
+2082	2084	Syllable_Modifier
+25CC		Consonant_Placeholder
+A800	A801	Vowel_Independent
+A803	A805	Vowel_Independent
+A806		Pure_Killer
+A807	A80A	Consonant
+A80B		Bindu
+A80C	A822	Consonant
+A823	A827	Vowel_Dependent
+A840	A85D	Consonant
+A85E	A861	Vowel
+A862	A865	Consonant
+A866		Vowel
+A867	A868	Consonant_Subjoined
+A869	A870	Consonant
+A871		Consonant_Subjoined
+A872		Consonant
+A873		Bindu
+A880		Bindu
+A881		Visarga
+A882	A891	Vowel_Independent
+A892	A8B3	Consonant
+A8B4		Consonant_Final
+A8B5	A8C3	Vowel_Dependent
+A8C4		Virama
+A8D0	A8D9	Number
+A8E0	A8F1	Cantillation_Mark
+A900	A909	Number
+A90A	A921	Consonant
+A922	A92A	Vowel
+A92B	A92D	Tone_Mark
+A930	A946	Consonant
+A947	A94E	Vowel_Dependent
+A94F	A952	Consonant_Final
+A953		Pure_Killer
+A980	A981	Bindu
+A982		Consonant_Succeeding_Repha
+A983		Visarga
+A984	A988	Vowel_Independent
+A989	A98B	Consonant
+A98C	A98E	Vowel_Independent
+A98F	A9B2	Consonant
+A9B3		Nukta
+A9B4	A9BC	Vowel_Dependent
+A9BD		Consonant_Subjoined
+A9BE	A9BF	Consonant_Medial
+A9C0		Virama
+A9D0	A9D9	Number
+A9E0	A9E4	Consonant
+A9E5		Vowel_Dependent
+A9E7	A9EF	Consonant
+A9F0	A9F9	Number
+A9FA	A9FE	Consonant
+AA00	AA05	Vowel_Independent
+AA06	AA28	Consonant
+AA29	AA32	Vowel_Dependent
+AA33	AA36	Consonant_Medial
+AA40	AA4D	Consonant_Final
+AA50	AA59	Number
+AA60	AA6F	Consonant
+AA71	AA73	Consonant
+AA7A		Consonant
+AA7B	AA7D	Tone_Mark
+AA7E	AAAF	Consonant
+AAB0	AABE	Vowel_Dependent
+AABF		Tone_Mark
+AAC0		Tone_Letter
+AAC1		Tone_Mark
+AAC2		Tone_Letter
+AAE0	AAE1	Vowel_Independent
+AAE2	AAEA	Consonant
+AAEB	AAEF	Vowel_Dependent
+AAF5		Visarga
+AAF6		Invisible_Stacker
+ABC0	ABCD	Consonant
+ABCE	ABCF	Vowel_Independent
+ABD0		Consonant
+ABD1		Vowel_Independent
+ABD2	ABDA	Consonant
+ABDB	ABE2	Consonant_Final
+ABE3	ABEA	Vowel_Dependent
+ABEC		Tone_Mark
+ABED		Pure_Killer
+ABF0	ABF9	Number
+10A00		Consonant
+10A01	10A03	Vowel_Dependent
+10A05	10A06	Vowel_Dependent
+10A0C	10A0D	Vowel_Dependent
+10A0E		Bindu
+10A0F		Visarga
+10A10	10A13	Consonant
+10A15	10A17	Consonant
+10A19	10A33	Consonant
+10A38	10A3A	Nukta
+10A3F		Invisible_Stacker
+10A40	10A47	Number
+11000	11001	Bindu
+11002		Visarga
+11003	11004	Consonant_With_Stacker
+11005	11012	Vowel_Independent
+11013	11037	Consonant
+11038	11045	Vowel_Dependent
+11046		Virama
+11052	11065	Brahmi_Joining_Number
+11066	1106F	Number
+1107F		Number_Joiner
+11080	11081	Bindu
+11082		Visarga
+11083	1108C	Vowel_Independent
+1108D	110AF	Consonant
+110B0	110B8	Vowel_Dependent
+110B9		Virama
+110BA		Nukta
+11100	11101	Bindu
+11102		Visarga
+11103	11106	Vowel_Independent
+11107	11126	Consonant
+11127	11132	Vowel_Dependent
+11133		Invisible_Stacker
+11134		Pure_Killer
+11136	1113F	Number
+11150	11154	Vowel
+11155	11172	Consonant
+11173		Nukta
+11180	11181	Bindu
+11182		Visarga
+11183	11190	Vowel_Independent
+11191	111B2	Consonant
+111B3	111BF	Vowel_Dependent
+111C0		Virama
+111C1		Avagraha
+111C2	111C3	Consonant_Prefixed
+111CA		Nukta
+111CB	111CC	Vowel_Dependent
+111D0	111D9	Number
+111E1	111F4	Number
+11200	11207	Vowel_Independent
+11208	11211	Consonant
+11213	1122B	Consonant
+1122C	11233	Vowel_Dependent
+11234		Bindu
+11235		Virama
+11236		Nukta
+11237		Gemination_Mark
+11280	11283	Vowel_Independent
+11284	11286	Consonant
+11288		Consonant
+1128A	1128D	Consonant
+1128F	1129D	Consonant
+1129F	112A8	Consonant
+112B0	112B9	Vowel_Independent
+112BA	112DE	Consonant
+112DF		Bindu
+112E0	112E8	Vowel_Dependent
+112E9		Nukta
+112EA		Pure_Killer
+112F0	112F9	Number
+11300	11302	Bindu
+11303		Visarga
+11305	1130C	Vowel_Independent
+1130F	11310	Vowel_Independent
+11313	11314	Vowel_Independent
+11315	11328	Consonant
+1132A	11330	Consonant
+11332	11333	Consonant
+11335	11339	Consonant
+1133C		Nukta
+1133D		Avagraha
+1133E	11344	Vowel_Dependent
+11347	11348	Vowel_Dependent
+1134B	1134C	Vowel_Dependent
+1134D		Virama
+11357		Vowel_Dependent
+11360	11361	Vowel_Independent
+11362	11363	Vowel_Dependent
+11366	1136C	Cantillation_Mark
+11370	11374	Cantillation_Mark
+11481	1148E	Vowel_Independent
+1148F	114AF	Consonant
+114B0	114BE	Vowel_Dependent
+114BF	114C0	Bindu
+114C1		Visarga
+114C2		Virama
+114C3		Nukta
+114C4		Avagraha
+114D0	114D9	Number
+11580	1158D	Vowel_Independent
+1158E	115AE	Consonant
+115AF	115B5	Vowel_Dependent
+115B8	115BB	Vowel_Dependent
+115BC	115BD	Bindu
+115BE		Visarga
+115BF		Virama
+115C0		Nukta
+115D8	115DB	Vowel_Independent
+115DC	115DD	Vowel_Dependent
+11600	1160D	Vowel_Independent
+1160E	1162F	Consonant
+11630	1163C	Vowel_Dependent
+1163D		Bindu
+1163E		Visarga
+1163F		Virama
+11640		Vowel_Dependent
+11650	11659	Number
+11680	11689	Vowel_Independent
+1168A	116AA	Consonant
+116AB		Bindu
+116AC		Visarga
+116AD	116B5	Vowel_Dependent
+116B6		Virama
+116B7		Nukta
+116C0	116C9	Number
+11700	11719	Consonant
+1171D	1171F	Consonant_Medial
+11720	1172A	Vowel_Dependent
+1172B		Pure_Killer
+11730	1173B	Number
+END
diff --git a/lib/5.24.1/unicore/To/Isc.pl b/lib/5.24.1/unicore/To/Isc.pl
new file mode 100644
index 00000000..a5abc1c4
--- /dev/null
+++ b/lib/5.24.1/unicore/To/Isc.pl
@@ -0,0 +1,20 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToIsc'}{'format'} = 'd'; # single decimal digit
+$utf8::SwashInfo{'ToIsc'}{'missing'} = ''; # code point maps to the null string
+
+return <<'END';
+END
diff --git a/lib/5.24.1/unicore/To/Jg.pl b/lib/5.24.1/unicore/To/Jg.pl
new file mode 100644
index 00000000..3de2e032
--- /dev/null
+++ b/lib/5.24.1/unicore/To/Jg.pl
@@ -0,0 +1,191 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToJg'}{'format'} = 's'; # string
+$utf8::SwashInfo{'ToJg'}{'missing'} = 'No_Joining_Group';
+
+return <<'END';
+620		Yeh
+622	623	Alef
+624		Waw
+625		Alef
+626		Yeh
+627		Alef
+628		Beh
+629		Teh_Marbuta
+62A	62B	Beh
+62C	62E	Hah
+62F	630	Dal
+631	632	Reh
+633	634	Seen
+635	636	Sad
+637	638	Tah
+639	63A	Ain
+63B	63C	Gaf
+63D	63F	Farsi_Yeh
+641		Feh
+642		Qaf
+643		Kaf
+644		Lam
+645		Meem
+646		Noon
+647		Heh
+648		Waw
+649	64A	Yeh
+66E		Beh
+66F		Qaf
+671	673	Alef
+675		Alef
+676	677	Waw
+678		Yeh
+679	680	Beh
+681	687	Hah
+688	690	Dal
+691	699	Reh
+69A	69C	Seen
+69D	69E	Sad
+69F		Tah
+6A0		Ain
+6A1	6A6	Feh
+6A7	6A8	Qaf
+6A9		Gaf
+6AA		Swash_Kaf
+6AB		Gaf
+6AC	6AE	Kaf
+6AF	6B4	Gaf
+6B5	6B8	Lam
+6B9	6BC	Noon
+6BD		Nya
+6BE		Knotted_Heh
+6BF		Hah
+6C0		Teh_Marbuta
+6C1	6C2	Heh_Goal
+6C3		Teh_Marbuta_Goal
+6C4	6CB	Waw
+6CC		Farsi_Yeh
+6CD		Yeh_With_Tail
+6CE		Farsi_Yeh
+6CF		Waw
+6D0	6D1	Yeh
+6D2	6D3	Yeh_Barree
+6D5		Teh_Marbuta
+6EE		Dal
+6EF		Reh
+6FA		Seen
+6FB		Sad
+6FC		Ain
+6FF		Knotted_Heh
+710		Alaph
+712		Beth
+713	714	Gamal
+715	716	Dalath_Rish
+717		He
+718		Syriac_Waw
+719		Zain
+71A		Heth
+71B	71C	Teth
+71D		Yudh
+71E		Yudh_He
+71F		Kaph
+720		Lamadh
+721		Mim
+722		Nun
+723		Semkath
+724		Final_Semkath
+725		E
+726		Pe
+727		Reversed_Pe
+728		Sadhe
+729		Qaph
+72A		Dalath_Rish
+72B		Shin
+72C		Taw
+72D		Beth
+72E		Gamal
+72F		Dalath_Rish
+74D		Zhain
+74E		Khaph
+74F		Fe
+750	756	Beh
+757	758	Hah
+759	75A	Dal
+75B		Reh
+75C		Seen
+75D	75F	Ain
+760	761	Feh
+762	764	Gaf
+765	766	Meem
+767	769	Noon
+76A		Lam
+76B	76C	Reh
+76D		Seen
+76E	76F	Hah
+770		Seen
+771		Reh
+772		Hah
+773	774	Alef
+775	776	Farsi_Yeh
+777		Yeh
+778	779	Waw
+77A	77B	Burushaski_Yeh_Barree
+77C		Hah
+77D	77E	Seen
+77F		Kaf
+8A0	8A1	Beh
+8A2		Hah
+8A3		Tah
+8A4		Feh
+8A5		Qaf
+8A6		Lam
+8A7		Meem
+8A8	8A9	Yeh
+8AA		Reh
+8AB		Waw
+8AC		Rohingya_Yeh
+8AE		Dal
+8AF		Sad
+8B0		Gaf
+8B1		Straight_Waw
+8B2		Reh
+8B3		Ain
+8B4		Kaf
+10AC0		Manichaean_Aleph
+10AC1	10AC2	Manichaean_Beth
+10AC3	10AC4	Manichaean_Gimel
+10AC5		Manichaean_Daleth
+10AC7		Manichaean_Waw
+10AC9	10ACA	Manichaean_Zayin
+10ACD		Manichaean_Heth
+10ACE		Manichaean_Teth
+10ACF		Manichaean_Yodh
+10AD0	10AD2	Manichaean_Kaph
+10AD3		Manichaean_Lamedh
+10AD4		Manichaean_Dhamedh
+10AD5		Manichaean_Thamedh
+10AD6		Manichaean_Mem
+10AD7		Manichaean_Nun
+10AD8		Manichaean_Samekh
+10AD9	10ADA	Manichaean_Ayin
+10ADB	10ADC	Manichaean_Pe
+10ADD		Manichaean_Sadhe
+10ADE	10AE0	Manichaean_Qoph
+10AE1		Manichaean_Resh
+10AE4		Manichaean_Taw
+10AEB		Manichaean_One
+10AEC		Manichaean_Five
+10AED		Manichaean_Ten
+10AEE		Manichaean_Twenty
+10AEF		Manichaean_Hundred
+END
diff --git a/lib/5.24.1/unicore/To/Jt.pl b/lib/5.24.1/unicore/To/Jt.pl
new file mode 100644
index 00000000..a449ead3
--- /dev/null
+++ b/lib/5.24.1/unicore/To/Jt.pl
@@ -0,0 +1,408 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToJt'}{'format'} = 's'; # string
+$utf8::SwashInfo{'ToJt'}{'missing'} = 'Non_Joining';
+
+return <<'END';
+AD		T
+300	36F	T
+483	489	T
+591	5BD	T
+5BF		T
+5C1	5C2	T
+5C4	5C5	T
+5C7		T
+610	61A	T
+61C		T
+620		D
+622	625	R
+626		D
+627		R
+628		D
+629		R
+62A	62E	D
+62F	632	R
+633	63F	D
+640		C
+641	647	D
+648		R
+649	64A	D
+64B	65F	T
+66E	66F	D
+670		T
+671	673	R
+675	677	R
+678	687	D
+688	699	R
+69A	6BF	D
+6C0		R
+6C1	6C2	D
+6C3	6CB	R
+6CC		D
+6CD		R
+6CE		D
+6CF		R
+6D0	6D1	D
+6D2	6D3	R
+6D5		R
+6D6	6DC	T
+6DF	6E4	T
+6E7	6E8	T
+6EA	6ED	T
+6EE	6EF	R
+6FA	6FC	D
+6FF		D
+70F		T
+710		R
+711		T
+712	714	D
+715	719	R
+71A	71D	D
+71E		R
+71F	727	D
+728		R
+729		D
+72A		R
+72B		D
+72C		R
+72D	72E	D
+72F		R
+730	74A	T
+74D		R
+74E	758	D
+759	75B	R
+75C	76A	D
+76B	76C	R
+76D	770	D
+771		R
+772		D
+773	774	R
+775	777	D
+778	779	R
+77A	77F	D
+7A6	7B0	T
+7CA	7EA	D
+7EB	7F3	T
+7FA		C
+816	819	T
+81B	823	T
+825	827	T
+829	82D	T
+840		R
+841	845	D
+846	847	R
+848		D
+849		R
+84A	853	D
+854		R
+855		D
+859	85B	T
+8A0	8A9	D
+8AA	8AC	R
+8AE		R
+8AF	8B0	D
+8B1	8B2	R
+8B3	8B4	D
+8E3	902	T
+93A		T
+93C		T
+941	948	T
+94D		T
+951	957	T
+962	963	T
+981		T
+9BC		T
+9C1	9C4	T
+9CD		T
+9E2	9E3	T
+A01	A02	T
+A3C		T
+A41	A42	T
+A47	A48	T
+A4B	A4D	T
+A51		T
+A70	A71	T
+A75		T
+A81	A82	T
+ABC		T
+AC1	AC5	T
+AC7	AC8	T
+ACD		T
+AE2	AE3	T
+B01		T
+B3C		T
+B3F		T
+B41	B44	T
+B4D		T
+B56		T
+B62	B63	T
+B82		T
+BC0		T
+BCD		T
+C00		T
+C3E	C40	T
+C46	C48	T
+C4A	C4D	T
+C55	C56	T
+C62	C63	T
+C81		T
+CBC		T
+CBF		T
+CC6		T
+CCC	CCD	T
+CE2	CE3	T
+D01		T
+D41	D44	T
+D4D		T
+D62	D63	T
+DCA		T
+DD2	DD4	T
+DD6		T
+E31		T
+E34	E3A	T
+E47	E4E	T
+EB1		T
+EB4	EB9	T
+EBB	EBC	T
+EC8	ECD	T
+F18	F19	T
+F35		T
+F37		T
+F39		T
+F71	F7E	T
+F80	F84	T
+F86	F87	T
+F8D	F97	T
+F99	FBC	T
+FC6		T
+102D	1030	T
+1032	1037	T
+1039	103A	T
+103D	103E	T
+1058	1059	T
+105E	1060	T
+1071	1074	T
+1082		T
+1085	1086	T
+108D		T
+109D		T
+135D	135F	T
+1712	1714	T
+1732	1734	T
+1752	1753	T
+1772	1773	T
+17B4	17B5	T
+17B7	17BD	T
+17C6		T
+17C9	17D3	T
+17DD		T
+1807		D
+180A		C
+180B	180D	T
+1820	1877	D
+1887	18A8	D
+18A9		T
+18AA		D
+1920	1922	T
+1927	1928	T
+1932		T
+1939	193B	T
+1A17	1A18	T
+1A1B		T
+1A56		T
+1A58	1A5E	T
+1A60		T
+1A62		T
+1A65	1A6C	T
+1A73	1A7C	T
+1A7F		T
+1AB0	1ABE	T
+1B00	1B03	T
+1B34		T
+1B36	1B3A	T
+1B3C		T
+1B42		T
+1B6B	1B73	T
+1B80	1B81	T
+1BA2	1BA5	T
+1BA8	1BA9	T
+1BAB	1BAD	T
+1BE6		T
+1BE8	1BE9	T
+1BED		T
+1BEF	1BF1	T
+1C2C	1C33	T
+1C36	1C37	T
+1CD0	1CD2	T
+1CD4	1CE0	T
+1CE2	1CE8	T
+1CED		T
+1CF4		T
+1CF8	1CF9	T
+1DC0	1DF5	T
+1DFC	1DFF	T
+200B		T
+200D		C
+200E	200F	T
+202A	202E	T
+2060	2064	T
+206A	206F	T
+20D0	20F0	T
+2CEF	2CF1	T
+2D7F		T
+2DE0	2DFF	T
+302A	302D	T
+3099	309A	T
+A66F	A672	T
+A674	A67D	T
+A69E	A69F	T
+A6F0	A6F1	T
+A802		T
+A806		T
+A80B		T
+A825	A826	T
+A840	A871	D
+A872		L
+A8C4		T
+A8E0	A8F1	T
+A926	A92D	T
+A947	A951	T
+A980	A982	T
+A9B3		T
+A9B6	A9B9	T
+A9BC		T
+A9E5		T
+AA29	AA2E	T
+AA31	AA32	T
+AA35	AA36	T
+AA43		T
+AA4C		T
+AA7C		T
+AAB0		T
+AAB2	AAB4	T
+AAB7	AAB8	T
+AABE	AABF	T
+AAC1		T
+AAEC	AAED	T
+AAF6		T
+ABE5		T
+ABE8		T
+ABED		T
+FB1E		T
+FE00	FE0F	T
+FE20	FE2F	T
+FEFF		T
+FFF9	FFFB	T
+101FD		T
+102E0		T
+10376	1037A	T
+10A01	10A03	T
+10A05	10A06	T
+10A0C	10A0F	T
+10A38	10A3A	T
+10A3F		T
+10AC0	10AC4	D
+10AC5		R
+10AC7		R
+10AC9	10ACA	R
+10ACD		L
+10ACE	10AD2	R
+10AD3	10AD6	D
+10AD7		L
+10AD8	10ADC	D
+10ADD		R
+10ADE	10AE0	D
+10AE1		R
+10AE4		R
+10AE5	10AE6	T
+10AEB	10AEE	D
+10AEF		R
+10B80		D
+10B81		R
+10B82		D
+10B83	10B85	R
+10B86	10B88	D
+10B89		R
+10B8A	10B8B	D
+10B8C		R
+10B8D		D
+10B8E	10B8F	R
+10B90		D
+10B91		R
+10BA9	10BAC	R
+10BAD	10BAE	D
+11001		T
+11038	11046	T
+1107F	11081	T
+110B3	110B6	T
+110B9	110BA	T
+110BD		T
+11100	11102	T
+11127	1112B	T
+1112D	11134	T
+11173		T
+11180	11181	T
+111B6	111BE	T
+111CA	111CC	T
+1122F	11231	T
+11234		T
+11236	11237	T
+112DF		T
+112E3	112EA	T
+11300	11301	T
+1133C		T
+11340		T
+11366	1136C	T
+11370	11374	T
+114B3	114B8	T
+114BA		T
+114BF	114C0	T
+114C2	114C3	T
+115B2	115B5	T
+115BC	115BD	T
+115BF	115C0	T
+115DC	115DD	T
+11633	1163A	T
+1163D		T
+1163F	11640	T
+116AB		T
+116AD		T
+116B0	116B5	T
+116B7		T
+1171D	1171F	T
+11722	11725	T
+11727	1172B	T
+16AF0	16AF4	T
+16B30	16B36	T
+16F8F	16F92	T
+1BC9D	1BC9E	T
+1BCA0	1BCA3	T
+1D167	1D169	T
+1D173	1D182	T
+1D185	1D18B	T
+1D1AA	1D1AD	T
+1D242	1D244	T
+1DA00	1DA36	T
+1DA3B	1DA6C	T
+1DA75		T
+1DA84		T
+1DA9B	1DA9F	T
+1DAA1	1DAAF	T
+1E8D0	1E8D6	T
+E0001		T
+E0020	E007F	T
+E0100	E01EF	T
+END
diff --git a/lib/5.24.1/unicore/To/Lb.pl b/lib/5.24.1/unicore/To/Lb.pl
new file mode 100644
index 00000000..48ff4380
--- /dev/null
+++ b/lib/5.24.1/unicore/To/Lb.pl
@@ -0,0 +1,2508 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToLb'}{'format'} = 's'; # string
+$utf8::SwashInfo{'ToLb'}{'missing'} = 'Unknown';
+
+return <<'END';
+0	8	CM
+9		BA
+A		LF
+B	C	BK
+D		CR
+E	1F	CM
+20		SP
+21		EX
+22		QU
+23		AL
+24		PR
+25		PO
+26		AL
+27		QU
+28		OP
+29		CP
+2A		AL
+2B		PR
+2C		IS
+2D		HY
+2E		IS
+2F		SY
+30	39	NU
+3A	3B	IS
+3C	3E	AL
+3F		EX
+40	5A	AL
+5B		OP
+5C		PR
+5D		CP
+5E	7A	AL
+7B		OP
+7C		BA
+7D		CL
+7E		AL
+7F	84	CM
+85		NL
+86	9F	CM
+A0		GL
+A1		OP
+A2		PO
+A3	A5	PR
+A6		AL
+A7	A8	AI
+A9		AL
+AA		AI
+AB		QU
+AC		AL
+AD		BA
+AE	AF	AL
+B0		PO
+B1		PR
+B2	B3	AI
+B4		BB
+B5		AL
+B6	BA	AI
+BB		QU
+BC	BE	AI
+BF		OP
+C0	D6	AL
+D7		AI
+D8	F6	AL
+F7		AI
+F8	2C6	AL
+2C7		AI
+2C8		BB
+2C9	2CB	AI
+2CC		BB
+2CD		AI
+2CE	2CF	AL
+2D0		AI
+2D1	2D7	AL
+2D8	2DB	AI
+2DC		AL
+2DD		AI
+2DE		AL
+2DF		BB
+2E0	2FF	AL
+300	34E	CM
+34F		GL
+350	35B	CM
+35C	362	GL
+363	36F	CM
+370	377	AL
+37A	37D	AL
+37E		IS
+37F		AL
+384	38A	AL
+38C		AL
+38E	3A1	AL
+3A3	482	AL
+483	489	CM
+48A	52F	AL
+531	556	AL
+559	55F	AL
+561	587	AL
+589		IS
+58A		BA
+58D	58E	AL
+58F		PR
+591	5BD	CM
+5BE		BA
+5BF		CM
+5C0		AL
+5C1	5C2	CM
+5C3		AL
+5C4	5C5	CM
+5C6		EX
+5C7		CM
+5D0	5EA	HL
+5F0	5F2	HL
+5F3	5F4	AL
+600	608	AL
+609	60B	PO
+60C	60D	IS
+60E	60F	AL
+610	61A	CM
+61B		EX
+61C		CM
+61E	61F	EX
+620	64A	AL
+64B	65F	CM
+660	669	NU
+66A		PO
+66B	66C	NU
+66D	66F	AL
+670		CM
+671	6D3	AL
+6D4		EX
+6D5		AL
+6D6	6DC	CM
+6DD	6DE	AL
+6DF	6E4	CM
+6E5	6E6	AL
+6E7	6E8	CM
+6E9		AL
+6EA	6ED	CM
+6EE	6EF	AL
+6F0	6F9	NU
+6FA	70D	AL
+70F	710	AL
+711		CM
+712	72F	AL
+730	74A	CM
+74D	7A5	AL
+7A6	7B0	CM
+7B1		AL
+7C0	7C9	NU
+7CA	7EA	AL
+7EB	7F3	CM
+7F4	7F7	AL
+7F8		IS
+7F9		EX
+7FA		AL
+800	815	AL
+816	819	CM
+81A		AL
+81B	823	CM
+824		AL
+825	827	CM
+828		AL
+829	82D	CM
+830	83E	AL
+840	858	AL
+859	85B	CM
+85E		AL
+8A0	8B4	AL
+8E3	903	CM
+904	939	AL
+93A	93C	CM
+93D		AL
+93E	94F	CM
+950		AL
+951	957	CM
+958	961	AL
+962	963	CM
+964	965	BA
+966	96F	NU
+970	980	AL
+981	983	CM
+985	98C	AL
+98F	990	AL
+993	9A8	AL
+9AA	9B0	AL
+9B2		AL
+9B6	9B9	AL
+9BC		CM
+9BD		AL
+9BE	9C4	CM
+9C7	9C8	CM
+9CB	9CD	CM
+9CE		AL
+9D7		CM
+9DC	9DD	AL
+9DF	9E1	AL
+9E2	9E3	CM
+9E6	9EF	NU
+9F0	9F1	AL
+9F2	9F3	PO
+9F4	9F8	AL
+9F9		PO
+9FA		AL
+9FB		PR
+A01	A03	CM
+A05	A0A	AL
+A0F	A10	AL
+A13	A28	AL
+A2A	A30	AL
+A32	A33	AL
+A35	A36	AL
+A38	A39	AL
+A3C		CM
+A3E	A42	CM
+A47	A48	CM
+A4B	A4D	CM
+A51		CM
+A59	A5C	AL
+A5E		AL
+A66	A6F	NU
+A70	A71	CM
+A72	A74	AL
+A75		CM
+A81	A83	CM
+A85	A8D	AL
+A8F	A91	AL
+A93	AA8	AL
+AAA	AB0	AL
+AB2	AB3	AL
+AB5	AB9	AL
+ABC		CM
+ABD		AL
+ABE	AC5	CM
+AC7	AC9	CM
+ACB	ACD	CM
+AD0		AL
+AE0	AE1	AL
+AE2	AE3	CM
+AE6	AEF	NU
+AF0		AL
+AF1		PR
+AF9		AL
+B01	B03	CM
+B05	B0C	AL
+B0F	B10	AL
+B13	B28	AL
+B2A	B30	AL
+B32	B33	AL
+B35	B39	AL
+B3C		CM
+B3D		AL
+B3E	B44	CM
+B47	B48	CM
+B4B	B4D	CM
+B56	B57	CM
+B5C	B5D	AL
+B5F	B61	AL
+B62	B63	CM
+B66	B6F	NU
+B70	B77	AL
+B82		CM
+B83		AL
+B85	B8A	AL
+B8E	B90	AL
+B92	B95	AL
+B99	B9A	AL
+B9C		AL
+B9E	B9F	AL
+BA3	BA4	AL
+BA8	BAA	AL
+BAE	BB9	AL
+BBE	BC2	CM
+BC6	BC8	CM
+BCA	BCD	CM
+BD0		AL
+BD7		CM
+BE6	BEF	NU
+BF0	BF8	AL
+BF9		PR
+BFA		AL
+C00	C03	CM
+C05	C0C	AL
+C0E	C10	AL
+C12	C28	AL
+C2A	C39	AL
+C3D		AL
+C3E	C44	CM
+C46	C48	CM
+C4A	C4D	CM
+C55	C56	CM
+C58	C5A	AL
+C60	C61	AL
+C62	C63	CM
+C66	C6F	NU
+C78	C7F	AL
+C81	C83	CM
+C85	C8C	AL
+C8E	C90	AL
+C92	CA8	AL
+CAA	CB3	AL
+CB5	CB9	AL
+CBC		CM
+CBD		AL
+CBE	CC4	CM
+CC6	CC8	CM
+CCA	CCD	CM
+CD5	CD6	CM
+CDE		AL
+CE0	CE1	AL
+CE2	CE3	CM
+CE6	CEF	NU
+CF1	CF2	AL
+D01	D03	CM
+D05	D0C	AL
+D0E	D10	AL
+D12	D3A	AL
+D3D		AL
+D3E	D44	CM
+D46	D48	CM
+D4A	D4D	CM
+D4E		AL
+D57		CM
+D5F	D61	AL
+D62	D63	CM
+D66	D6F	NU
+D70	D75	AL
+D79		PO
+D7A	D7F	AL
+D82	D83	CM
+D85	D96	AL
+D9A	DB1	AL
+DB3	DBB	AL
+DBD		AL
+DC0	DC6	AL
+DCA		CM
+DCF	DD4	CM
+DD6		CM
+DD8	DDF	CM
+DE6	DEF	NU
+DF2	DF3	CM
+DF4		AL
+E01	E3A	SA
+E3F		PR
+E40	E4E	SA
+E4F		AL
+E50	E59	NU
+E5A	E5B	BA
+E81	E82	SA
+E84		SA
+E87	E88	SA
+E8A		SA
+E8D		SA
+E94	E97	SA
+E99	E9F	SA
+EA1	EA3	SA
+EA5		SA
+EA7		SA
+EAA	EAB	SA
+EAD	EB9	SA
+EBB	EBD	SA
+EC0	EC4	SA
+EC6		SA
+EC8	ECD	SA
+ED0	ED9	NU
+EDC	EDF	SA
+F00		AL
+F01	F04	BB
+F05		AL
+F06	F07	BB
+F08		GL
+F09	F0A	BB
+F0B		BA
+F0C		GL
+F0D	F11	EX
+F12		GL
+F13		AL
+F14		EX
+F15	F17	AL
+F18	F19	CM
+F1A	F1F	AL
+F20	F29	NU
+F2A	F33	AL
+F34		BA
+F35		CM
+F36		AL
+F37		CM
+F38		AL
+F39		CM
+F3A		OP
+F3B		CL
+F3C		OP
+F3D		CL
+F3E	F3F	CM
+F40	F47	AL
+F49	F6C	AL
+F71	F7E	CM
+F7F		BA
+F80	F84	CM
+F85		BA
+F86	F87	CM
+F88	F8C	AL
+F8D	F97	CM
+F99	FBC	CM
+FBE	FBF	BA
+FC0	FC5	AL
+FC6		CM
+FC7	FCC	AL
+FCE	FCF	AL
+FD0	FD1	BB
+FD2		BA
+FD3		BB
+FD4	FD8	AL
+FD9	FDA	GL
+1000	103F	SA
+1040	1049	NU
+104A	104B	BA
+104C	104F	AL
+1050	108F	SA
+1090	1099	NU
+109A	109F	SA
+10A0	10C5	AL
+10C7		AL
+10CD		AL
+10D0	10FF	AL
+1100	115F	JL
+1160	11A7	JV
+11A8	11FF	JT
+1200	1248	AL
+124A	124D	AL
+1250	1256	AL
+1258		AL
+125A	125D	AL
+1260	1288	AL
+128A	128D	AL
+1290	12B0	AL
+12B2	12B5	AL
+12B8	12BE	AL
+12C0		AL
+12C2	12C5	AL
+12C8	12D6	AL
+12D8	1310	AL
+1312	1315	AL
+1318	135A	AL
+135D	135F	CM
+1360		AL
+1361		BA
+1362	137C	AL
+1380	1399	AL
+13A0	13F5	AL
+13F8	13FD	AL
+1400		BA
+1401	167F	AL
+1680		BA
+1681	169A	AL
+169B		OP
+169C		CL
+16A0	16EA	AL
+16EB	16ED	BA
+16EE	16F8	AL
+1700	170C	AL
+170E	1711	AL
+1712	1714	CM
+1720	1731	AL
+1732	1734	CM
+1735	1736	BA
+1740	1751	AL
+1752	1753	CM
+1760	176C	AL
+176E	1770	AL
+1772	1773	CM
+1780	17D3	SA
+17D4	17D5	BA
+17D6		NS
+17D7		SA
+17D8		BA
+17D9		AL
+17DA		BA
+17DB		PR
+17DC	17DD	SA
+17E0	17E9	NU
+17F0	17F9	AL
+1800	1801	AL
+1802	1803	EX
+1804	1805	BA
+1806		BB
+1807		AL
+1808	1809	EX
+180A		AL
+180B	180D	CM
+180E		GL
+1810	1819	NU
+1820	1877	AL
+1880	18A8	AL
+18A9		CM
+18AA		AL
+18B0	18F5	AL
+1900	191E	AL
+1920	192B	CM
+1930	193B	CM
+1940		AL
+1944	1945	EX
+1946	194F	NU
+1950	196D	SA
+1970	1974	SA
+1980	19AB	SA
+19B0	19C9	SA
+19D0	19D9	NU
+19DA		SA
+19DE	19DF	SA
+19E0	1A16	AL
+1A17	1A1B	CM
+1A1E	1A1F	AL
+1A20	1A5E	SA
+1A60	1A7C	SA
+1A7F		CM
+1A80	1A89	NU
+1A90	1A99	NU
+1AA0	1AAD	SA
+1AB0	1ABE	CM
+1B00	1B04	CM
+1B05	1B33	AL
+1B34	1B44	CM
+1B45	1B4B	AL
+1B50	1B59	NU
+1B5A	1B5B	BA
+1B5C		AL
+1B5D	1B60	BA
+1B61	1B6A	AL
+1B6B	1B73	CM
+1B74	1B7C	AL
+1B80	1B82	CM
+1B83	1BA0	AL
+1BA1	1BAD	CM
+1BAE	1BAF	AL
+1BB0	1BB9	NU
+1BBA	1BE5	AL
+1BE6	1BF3	CM
+1BFC	1C23	AL
+1C24	1C37	CM
+1C3B	1C3F	BA
+1C40	1C49	NU
+1C4D	1C4F	AL
+1C50	1C59	NU
+1C5A	1C7D	AL
+1C7E	1C7F	BA
+1CC0	1CC7	AL
+1CD0	1CD2	CM
+1CD3		AL
+1CD4	1CE8	CM
+1CE9	1CEC	AL
+1CED		CM
+1CEE	1CF1	AL
+1CF2	1CF4	CM
+1CF5	1CF6	AL
+1CF8	1CF9	CM
+1D00	1DBF	AL
+1DC0	1DF5	CM
+1DFC	1DFF	CM
+1E00	1F15	AL
+1F18	1F1D	AL
+1F20	1F45	AL
+1F48	1F4D	AL
+1F50	1F57	AL
+1F59		AL
+1F5B		AL
+1F5D		AL
+1F5F	1F7D	AL
+1F80	1FB4	AL
+1FB6	1FC4	AL
+1FC6	1FD3	AL
+1FD6	1FDB	AL
+1FDD	1FEF	AL
+1FF2	1FF4	AL
+1FF6	1FFC	AL
+1FFD		BB
+1FFE		AL
+2000	2006	BA
+2007		GL
+2008	200A	BA
+200B		ZW
+200C	200F	CM
+2010		BA
+2011		GL
+2012	2013	BA
+2014		B2
+2015	2016	AI
+2017		AL
+2018	2019	QU
+201A		OP
+201B	201D	QU
+201E		OP
+201F		QU
+2020	2021	AI
+2022	2023	AL
+2024	2026	IN
+2027		BA
+2028	2029	BK
+202A	202E	CM
+202F		GL
+2030	2037	PO
+2038		AL
+2039	203A	QU
+203B		AI
+203C	203D	NS
+203E	2043	AL
+2044		IS
+2045		OP
+2046		CL
+2047	2049	NS
+204A	2055	AL
+2056		BA
+2057		AL
+2058	205B	BA
+205C		AL
+205D	205F	BA
+2060		WJ
+2061	2064	AL
+2066	206F	CM
+2070	2071	AL
+2074		AI
+2075	207C	AL
+207D		OP
+207E		CL
+207F		AI
+2080		AL
+2081	2084	AI
+2085	208C	AL
+208D		OP
+208E		CL
+2090	209C	AL
+20A0	20A6	PR
+20A7		PO
+20A8	20B5	PR
+20B6		PO
+20B7	20BA	PR
+20BB		PO
+20BC	20BD	PR
+20BE		PO
+20BF	20CF	PR
+20D0	20F0	CM
+2100	2102	AL
+2103		PO
+2104		AL
+2105		AI
+2106	2108	AL
+2109		PO
+210A	2112	AL
+2113		AI
+2114	2115	AL
+2116		PR
+2117	2120	AL
+2121	2122	AI
+2123	212A	AL
+212B		AI
+212C	2153	AL
+2154	2155	AI
+2156	215A	AL
+215B		AI
+215C	215D	AL
+215E		AI
+215F		AL
+2160	216B	AI
+216C	216F	AL
+2170	2179	AI
+217A	2188	AL
+2189		AI
+218A	218B	AL
+2190	2199	AI
+219A	21D1	AL
+21D2		AI
+21D3		AL
+21D4		AI
+21D5	21FF	AL
+2200		AI
+2201		AL
+2202	2203	AI
+2204	2206	AL
+2207	2208	AI
+2209	220A	AL
+220B		AI
+220C	220E	AL
+220F		AI
+2210		AL
+2211		AI
+2212	2213	PR
+2214		AL
+2215		AI
+2216	2219	AL
+221A		AI
+221B	221C	AL
+221D	2220	AI
+2221	2222	AL
+2223		AI
+2224		AL
+2225		AI
+2226		AL
+2227	222C	AI
+222D		AL
+222E		AI
+222F	2233	AL
+2234	2237	AI
+2238	223B	AL
+223C	223D	AI
+223E	2247	AL
+2248		AI
+2249	224B	AL
+224C		AI
+224D	2251	AL
+2252		AI
+2253	225F	AL
+2260	2261	AI
+2262	2263	AL
+2264	2267	AI
+2268	2269	AL
+226A	226B	AI
+226C	226D	AL
+226E	226F	AI
+2270	2281	AL
+2282	2283	AI
+2284	2285	AL
+2286	2287	AI
+2288	2294	AL
+2295		AI
+2296	2298	AL
+2299		AI
+229A	22A4	AL
+22A5		AI
+22A6	22BE	AL
+22BF		AI
+22C0	22EE	AL
+22EF		IN
+22F0	2307	AL
+2308		OP
+2309		CL
+230A		OP
+230B		CL
+230C	2311	AL
+2312		AI
+2313	2319	AL
+231A	231B	ID
+231C	2328	AL
+2329		OP
+232A		CL
+232B	23EF	AL
+23F0	23F3	ID
+23F4	23FA	AL
+2400	2426	AL
+2440	244A	AL
+2460	24FE	AI
+24FF		AL
+2500	254B	AI
+254C	254F	AL
+2550	2574	AI
+2575	257F	AL
+2580	258F	AI
+2590	2591	AL
+2592	2595	AI
+2596	259F	AL
+25A0	25A1	AI
+25A2		AL
+25A3	25A9	AI
+25AA	25B1	AL
+25B2	25B3	AI
+25B4	25B5	AL
+25B6	25B7	AI
+25B8	25BB	AL
+25BC	25BD	AI
+25BE	25BF	AL
+25C0	25C1	AI
+25C2	25C5	AL
+25C6	25C8	AI
+25C9	25CA	AL
+25CB		AI
+25CC	25CD	AL
+25CE	25D1	AI
+25D2	25E1	AL
+25E2	25E5	AI
+25E6	25EE	AL
+25EF		AI
+25F0	25FF	AL
+2600	2603	ID
+2604		AL
+2605	2606	AI
+2607	2608	AL
+2609		AI
+260A	260D	AL
+260E	260F	AI
+2610	2613	AL
+2614	2615	ID
+2616	2617	AI
+2618		ID
+2619		AL
+261A	261F	ID
+2620	2638	AL
+2639	263B	ID
+263C	263F	AL
+2640		AI
+2641		AL
+2642		AI
+2643	265F	AL
+2660	2661	AI
+2662		AL
+2663	2665	AI
+2666		AL
+2667		AI
+2668		ID
+2669	266A	AI
+266B		AL
+266C	266D	AI
+266E		AL
+266F		AI
+2670	267E	AL
+267F		ID
+2680	269D	AL
+269E	269F	AI
+26A0	26BC	AL
+26BD	26C8	ID
+26C9	26CC	AI
+26CD		ID
+26CE		AL
+26CF	26D1	ID
+26D2		AI
+26D3	26D4	ID
+26D5	26D7	AI
+26D8	26D9	ID
+26DA	26DB	AI
+26DC		ID
+26DD	26DE	AI
+26DF	26E1	ID
+26E2		AL
+26E3		AI
+26E4	26E7	AL
+26E8	26E9	AI
+26EA		ID
+26EB	26F0	AI
+26F1	26F5	ID
+26F6		AI
+26F7	26FA	ID
+26FB	26FC	AI
+26FD	2704	ID
+2705	2707	AL
+2708	270D	ID
+270E	2756	AL
+2757		AI
+2758	275A	AL
+275B	2760	QU
+2761		AL
+2762	2763	EX
+2764	2767	AL
+2768		OP
+2769		CL
+276A		OP
+276B		CL
+276C		OP
+276D		CL
+276E		OP
+276F		CL
+2770		OP
+2771		CL
+2772		OP
+2773		CL
+2774		OP
+2775		CL
+2776	2793	AI
+2794	27C4	AL
+27C5		OP
+27C6		CL
+27C7	27E5	AL
+27E6		OP
+27E7		CL
+27E8		OP
+27E9		CL
+27EA		OP
+27EB		CL
+27EC		OP
+27ED		CL
+27EE		OP
+27EF		CL
+27F0	2982	AL
+2983		OP
+2984		CL
+2985		OP
+2986		CL
+2987		OP
+2988		CL
+2989		OP
+298A		CL
+298B		OP
+298C		CL
+298D		OP
+298E		CL
+298F		OP
+2990		CL
+2991		OP
+2992		CL
+2993		OP
+2994		CL
+2995		OP
+2996		CL
+2997		OP
+2998		CL
+2999	29D7	AL
+29D8		OP
+29D9		CL
+29DA		OP
+29DB		CL
+29DC	29FB	AL
+29FC		OP
+29FD		CL
+29FE	2B54	AL
+2B55	2B59	AI
+2B5A	2B73	AL
+2B76	2B95	AL
+2B98	2BB9	AL
+2BBD	2BC8	AL
+2BCA	2BD1	AL
+2BEC	2BEF	AL
+2C00	2C2E	AL
+2C30	2C5E	AL
+2C60	2CEE	AL
+2CEF	2CF1	CM
+2CF2	2CF3	AL
+2CF9		EX
+2CFA	2CFC	BA
+2CFD		AL
+2CFE		EX
+2CFF		BA
+2D00	2D25	AL
+2D27		AL
+2D2D		AL
+2D30	2D67	AL
+2D6F		AL
+2D70		BA
+2D7F		CM
+2D80	2D96	AL
+2DA0	2DA6	AL
+2DA8	2DAE	AL
+2DB0	2DB6	AL
+2DB8	2DBE	AL
+2DC0	2DC6	AL
+2DC8	2DCE	AL
+2DD0	2DD6	AL
+2DD8	2DDE	AL
+2DE0	2DFF	CM
+2E00	2E0D	QU
+2E0E	2E15	BA
+2E16		AL
+2E17		BA
+2E18		OP
+2E19		BA
+2E1A	2E1B	AL
+2E1C	2E1D	QU
+2E1E	2E1F	AL
+2E20	2E21	QU
+2E22		OP
+2E23		CL
+2E24		OP
+2E25		CL
+2E26		OP
+2E27		CL
+2E28		OP
+2E29		CL
+2E2A	2E2D	BA
+2E2E		EX
+2E2F		AL
+2E30	2E31	BA
+2E32		AL
+2E33	2E34	BA
+2E35	2E39	AL
+2E3A	2E3B	B2
+2E3C	2E3E	BA
+2E3F		AL
+2E40	2E41	BA
+2E42		OP
+2E80	2E99	ID
+2E9B	2EF3	ID
+2F00	2FD5	ID
+2FF0	2FFB	ID
+3000		BA
+3001	3002	CL
+3003	3004	ID
+3005		NS
+3006	3007	ID
+3008		OP
+3009		CL
+300A		OP
+300B		CL
+300C		OP
+300D		CL
+300E		OP
+300F		CL
+3010		OP
+3011		CL
+3012	3013	ID
+3014		OP
+3015		CL
+3016		OP
+3017		CL
+3018		OP
+3019		CL
+301A		OP
+301B		CL
+301C		NS
+301D		OP
+301E	301F	CL
+3020	3029	ID
+302A	302F	CM
+3030	3034	ID
+3035		CM
+3036	303A	ID
+303B	303C	NS
+303D	303F	ID
+3041		CJ
+3042		ID
+3043		CJ
+3044		ID
+3045		CJ
+3046		ID
+3047		CJ
+3048		ID
+3049		CJ
+304A	3062	ID
+3063		CJ
+3064	3082	ID
+3083		CJ
+3084		ID
+3085		CJ
+3086		ID
+3087		CJ
+3088	308D	ID
+308E		CJ
+308F	3094	ID
+3095	3096	CJ
+3099	309A	CM
+309B	309E	NS
+309F		ID
+30A0		NS
+30A1		CJ
+30A2		ID
+30A3		CJ
+30A4		ID
+30A5		CJ
+30A6		ID
+30A7		CJ
+30A8		ID
+30A9		CJ
+30AA	30C2	ID
+30C3		CJ
+30C4	30E2	ID
+30E3		CJ
+30E4		ID
+30E5		CJ
+30E6		ID
+30E7		CJ
+30E8	30ED	ID
+30EE		CJ
+30EF	30F4	ID
+30F5	30F6	CJ
+30F7	30FA	ID
+30FB		NS
+30FC		CJ
+30FD	30FE	NS
+30FF		ID
+3105	312D	ID
+3131	318E	ID
+3190	31BA	ID
+31C0	31E3	ID
+31F0	31FF	CJ
+3200	321E	ID
+3220	3247	ID
+3248	324F	AI
+3250	32FE	ID
+3300	4DBF	ID
+4DC0	4DFF	AL
+4E00	A014	ID
+A015		NS
+A016	A48C	ID
+A490	A4C6	ID
+A4D0	A4FD	AL
+A4FE	A4FF	BA
+A500	A60C	AL
+A60D		BA
+A60E		EX
+A60F		BA
+A610	A61F	AL
+A620	A629	NU
+A62A	A62B	AL
+A640	A66E	AL
+A66F	A672	CM
+A673		AL
+A674	A67D	CM
+A67E	A69D	AL
+A69E	A69F	CM
+A6A0	A6EF	AL
+A6F0	A6F1	CM
+A6F2		AL
+A6F3	A6F7	BA
+A700	A7AD	AL
+A7B0	A7B7	AL
+A7F7	A801	AL
+A802		CM
+A803	A805	AL
+A806		CM
+A807	A80A	AL
+A80B		CM
+A80C	A822	AL
+A823	A827	CM
+A828	A82B	AL
+A830	A837	AL
+A838		PO
+A839		AL
+A840	A873	AL
+A874	A875	BB
+A876	A877	EX
+A880	A881	CM
+A882	A8B3	AL
+A8B4	A8C4	CM
+A8CE	A8CF	BA
+A8D0	A8D9	NU
+A8E0	A8F1	CM
+A8F2	A8FB	AL
+A8FC		BB
+A8FD		AL
+A900	A909	NU
+A90A	A925	AL
+A926	A92D	CM
+A92E	A92F	BA
+A930	A946	AL
+A947	A953	CM
+A95F		AL
+A960	A97C	JL
+A980	A983	CM
+A984	A9B2	AL
+A9B3	A9C0	CM
+A9C1	A9C6	AL
+A9C7	A9C9	BA
+A9CA	A9CD	AL
+A9CF		AL
+A9D0	A9D9	NU
+A9DE	A9DF	AL
+A9E0	A9EF	SA
+A9F0	A9F9	NU
+A9FA	A9FE	SA
+AA00	AA28	AL
+AA29	AA36	CM
+AA40	AA42	AL
+AA43		CM
+AA44	AA4B	AL
+AA4C	AA4D	CM
+AA50	AA59	NU
+AA5C		AL
+AA5D	AA5F	BA
+AA60	AAC2	SA
+AADB	AADF	SA
+AAE0	AAEA	AL
+AAEB	AAEF	CM
+AAF0	AAF1	BA
+AAF2	AAF4	AL
+AAF5	AAF6	CM
+AB01	AB06	AL
+AB09	AB0E	AL
+AB11	AB16	AL
+AB20	AB26	AL
+AB28	AB2E	AL
+AB30	AB65	AL
+AB70	ABE2	AL
+ABE3	ABEA	CM
+ABEB		BA
+ABEC	ABED	CM
+ABF0	ABF9	NU
+AC00		H2
+AC01	AC1B	H3
+AC1C		H2
+AC1D	AC37	H3
+AC38		H2
+AC39	AC53	H3
+AC54		H2
+AC55	AC6F	H3
+AC70		H2
+AC71	AC8B	H3
+AC8C		H2
+AC8D	ACA7	H3
+ACA8		H2
+ACA9	ACC3	H3
+ACC4		H2
+ACC5	ACDF	H3
+ACE0		H2
+ACE1	ACFB	H3
+ACFC		H2
+ACFD	AD17	H3
+AD18		H2
+AD19	AD33	H3
+AD34		H2
+AD35	AD4F	H3
+AD50		H2
+AD51	AD6B	H3
+AD6C		H2
+AD6D	AD87	H3
+AD88		H2
+AD89	ADA3	H3
+ADA4		H2
+ADA5	ADBF	H3
+ADC0		H2
+ADC1	ADDB	H3
+ADDC		H2
+ADDD	ADF7	H3
+ADF8		H2
+ADF9	AE13	H3
+AE14		H2
+AE15	AE2F	H3
+AE30		H2
+AE31	AE4B	H3
+AE4C		H2
+AE4D	AE67	H3
+AE68		H2
+AE69	AE83	H3
+AE84		H2
+AE85	AE9F	H3
+AEA0		H2
+AEA1	AEBB	H3
+AEBC		H2
+AEBD	AED7	H3
+AED8		H2
+AED9	AEF3	H3
+AEF4		H2
+AEF5	AF0F	H3
+AF10		H2
+AF11	AF2B	H3
+AF2C		H2
+AF2D	AF47	H3
+AF48		H2
+AF49	AF63	H3
+AF64		H2
+AF65	AF7F	H3
+AF80		H2
+AF81	AF9B	H3
+AF9C		H2
+AF9D	AFB7	H3
+AFB8		H2
+AFB9	AFD3	H3
+AFD4		H2
+AFD5	AFEF	H3
+AFF0		H2
+AFF1	B00B	H3
+B00C		H2
+B00D	B027	H3
+B028		H2
+B029	B043	H3
+B044		H2
+B045	B05F	H3
+B060		H2
+B061	B07B	H3
+B07C		H2
+B07D	B097	H3
+B098		H2
+B099	B0B3	H3
+B0B4		H2
+B0B5	B0CF	H3
+B0D0		H2
+B0D1	B0EB	H3
+B0EC		H2
+B0ED	B107	H3
+B108		H2
+B109	B123	H3
+B124		H2
+B125	B13F	H3
+B140		H2
+B141	B15B	H3
+B15C		H2
+B15D	B177	H3
+B178		H2
+B179	B193	H3
+B194		H2
+B195	B1AF	H3
+B1B0		H2
+B1B1	B1CB	H3
+B1CC		H2
+B1CD	B1E7	H3
+B1E8		H2
+B1E9	B203	H3
+B204		H2
+B205	B21F	H3
+B220		H2
+B221	B23B	H3
+B23C		H2
+B23D	B257	H3
+B258		H2
+B259	B273	H3
+B274		H2
+B275	B28F	H3
+B290		H2
+B291	B2AB	H3
+B2AC		H2
+B2AD	B2C7	H3
+B2C8		H2
+B2C9	B2E3	H3
+B2E4		H2
+B2E5	B2FF	H3
+B300		H2
+B301	B31B	H3
+B31C		H2
+B31D	B337	H3
+B338		H2
+B339	B353	H3
+B354		H2
+B355	B36F	H3
+B370		H2
+B371	B38B	H3
+B38C		H2
+B38D	B3A7	H3
+B3A8		H2
+B3A9	B3C3	H3
+B3C4		H2
+B3C5	B3DF	H3
+B3E0		H2
+B3E1	B3FB	H3
+B3FC		H2
+B3FD	B417	H3
+B418		H2
+B419	B433	H3
+B434		H2
+B435	B44F	H3
+B450		H2
+B451	B46B	H3
+B46C		H2
+B46D	B487	H3
+B488		H2
+B489	B4A3	H3
+B4A4		H2
+B4A5	B4BF	H3
+B4C0		H2
+B4C1	B4DB	H3
+B4DC		H2
+B4DD	B4F7	H3
+B4F8		H2
+B4F9	B513	H3
+B514		H2
+B515	B52F	H3
+B530		H2
+B531	B54B	H3
+B54C		H2
+B54D	B567	H3
+B568		H2
+B569	B583	H3
+B584		H2
+B585	B59F	H3
+B5A0		H2
+B5A1	B5BB	H3
+B5BC		H2
+B5BD	B5D7	H3
+B5D8		H2
+B5D9	B5F3	H3
+B5F4		H2
+B5F5	B60F	H3
+B610		H2
+B611	B62B	H3
+B62C		H2
+B62D	B647	H3
+B648		H2
+B649	B663	H3
+B664		H2
+B665	B67F	H3
+B680		H2
+B681	B69B	H3
+B69C		H2
+B69D	B6B7	H3
+B6B8		H2
+B6B9	B6D3	H3
+B6D4		H2
+B6D5	B6EF	H3
+B6F0		H2
+B6F1	B70B	H3
+B70C		H2
+B70D	B727	H3
+B728		H2
+B729	B743	H3
+B744		H2
+B745	B75F	H3
+B760		H2
+B761	B77B	H3
+B77C		H2
+B77D	B797	H3
+B798		H2
+B799	B7B3	H3
+B7B4		H2
+B7B5	B7CF	H3
+B7D0		H2
+B7D1	B7EB	H3
+B7EC		H2
+B7ED	B807	H3
+B808		H2
+B809	B823	H3
+B824		H2
+B825	B83F	H3
+B840		H2
+B841	B85B	H3
+B85C		H2
+B85D	B877	H3
+B878		H2
+B879	B893	H3
+B894		H2
+B895	B8AF	H3
+B8B0		H2
+B8B1	B8CB	H3
+B8CC		H2
+B8CD	B8E7	H3
+B8E8		H2
+B8E9	B903	H3
+B904		H2
+B905	B91F	H3
+B920		H2
+B921	B93B	H3
+B93C		H2
+B93D	B957	H3
+B958		H2
+B959	B973	H3
+B974		H2
+B975	B98F	H3
+B990		H2
+B991	B9AB	H3
+B9AC		H2
+B9AD	B9C7	H3
+B9C8		H2
+B9C9	B9E3	H3
+B9E4		H2
+B9E5	B9FF	H3
+BA00		H2
+BA01	BA1B	H3
+BA1C		H2
+BA1D	BA37	H3
+BA38		H2
+BA39	BA53	H3
+BA54		H2
+BA55	BA6F	H3
+BA70		H2
+BA71	BA8B	H3
+BA8C		H2
+BA8D	BAA7	H3
+BAA8		H2
+BAA9	BAC3	H3
+BAC4		H2
+BAC5	BADF	H3
+BAE0		H2
+BAE1	BAFB	H3
+BAFC		H2
+BAFD	BB17	H3
+BB18		H2
+BB19	BB33	H3
+BB34		H2
+BB35	BB4F	H3
+BB50		H2
+BB51	BB6B	H3
+BB6C		H2
+BB6D	BB87	H3
+BB88		H2
+BB89	BBA3	H3
+BBA4		H2
+BBA5	BBBF	H3
+BBC0		H2
+BBC1	BBDB	H3
+BBDC		H2
+BBDD	BBF7	H3
+BBF8		H2
+BBF9	BC13	H3
+BC14		H2
+BC15	BC2F	H3
+BC30		H2
+BC31	BC4B	H3
+BC4C		H2
+BC4D	BC67	H3
+BC68		H2
+BC69	BC83	H3
+BC84		H2
+BC85	BC9F	H3
+BCA0		H2
+BCA1	BCBB	H3
+BCBC		H2
+BCBD	BCD7	H3
+BCD8		H2
+BCD9	BCF3	H3
+BCF4		H2
+BCF5	BD0F	H3
+BD10		H2
+BD11	BD2B	H3
+BD2C		H2
+BD2D	BD47	H3
+BD48		H2
+BD49	BD63	H3
+BD64		H2
+BD65	BD7F	H3
+BD80		H2
+BD81	BD9B	H3
+BD9C		H2
+BD9D	BDB7	H3
+BDB8		H2
+BDB9	BDD3	H3
+BDD4		H2
+BDD5	BDEF	H3
+BDF0		H2
+BDF1	BE0B	H3
+BE0C		H2
+BE0D	BE27	H3
+BE28		H2
+BE29	BE43	H3
+BE44		H2
+BE45	BE5F	H3
+BE60		H2
+BE61	BE7B	H3
+BE7C		H2
+BE7D	BE97	H3
+BE98		H2
+BE99	BEB3	H3
+BEB4		H2
+BEB5	BECF	H3
+BED0		H2
+BED1	BEEB	H3
+BEEC		H2
+BEED	BF07	H3
+BF08		H2
+BF09	BF23	H3
+BF24		H2
+BF25	BF3F	H3
+BF40		H2
+BF41	BF5B	H3
+BF5C		H2
+BF5D	BF77	H3
+BF78		H2
+BF79	BF93	H3
+BF94		H2
+BF95	BFAF	H3
+BFB0		H2
+BFB1	BFCB	H3
+BFCC		H2
+BFCD	BFE7	H3
+BFE8		H2
+BFE9	C003	H3
+C004		H2
+C005	C01F	H3
+C020		H2
+C021	C03B	H3
+C03C		H2
+C03D	C057	H3
+C058		H2
+C059	C073	H3
+C074		H2
+C075	C08F	H3
+C090		H2
+C091	C0AB	H3
+C0AC		H2
+C0AD	C0C7	H3
+C0C8		H2
+C0C9	C0E3	H3
+C0E4		H2
+C0E5	C0FF	H3
+C100		H2
+C101	C11B	H3
+C11C		H2
+C11D	C137	H3
+C138		H2
+C139	C153	H3
+C154		H2
+C155	C16F	H3
+C170		H2
+C171	C18B	H3
+C18C		H2
+C18D	C1A7	H3
+C1A8		H2
+C1A9	C1C3	H3
+C1C4		H2
+C1C5	C1DF	H3
+C1E0		H2
+C1E1	C1FB	H3
+C1FC		H2
+C1FD	C217	H3
+C218		H2
+C219	C233	H3
+C234		H2
+C235	C24F	H3
+C250		H2
+C251	C26B	H3
+C26C		H2
+C26D	C287	H3
+C288		H2
+C289	C2A3	H3
+C2A4		H2
+C2A5	C2BF	H3
+C2C0		H2
+C2C1	C2DB	H3
+C2DC		H2
+C2DD	C2F7	H3
+C2F8		H2
+C2F9	C313	H3
+C314		H2
+C315	C32F	H3
+C330		H2
+C331	C34B	H3
+C34C		H2
+C34D	C367	H3
+C368		H2
+C369	C383	H3
+C384		H2
+C385	C39F	H3
+C3A0		H2
+C3A1	C3BB	H3
+C3BC		H2
+C3BD	C3D7	H3
+C3D8		H2
+C3D9	C3F3	H3
+C3F4		H2
+C3F5	C40F	H3
+C410		H2
+C411	C42B	H3
+C42C		H2
+C42D	C447	H3
+C448		H2
+C449	C463	H3
+C464		H2
+C465	C47F	H3
+C480		H2
+C481	C49B	H3
+C49C		H2
+C49D	C4B7	H3
+C4B8		H2
+C4B9	C4D3	H3
+C4D4		H2
+C4D5	C4EF	H3
+C4F0		H2
+C4F1	C50B	H3
+C50C		H2
+C50D	C527	H3
+C528		H2
+C529	C543	H3
+C544		H2
+C545	C55F	H3
+C560		H2
+C561	C57B	H3
+C57C		H2
+C57D	C597	H3
+C598		H2
+C599	C5B3	H3
+C5B4		H2
+C5B5	C5CF	H3
+C5D0		H2
+C5D1	C5EB	H3
+C5EC		H2
+C5ED	C607	H3
+C608		H2
+C609	C623	H3
+C624		H2
+C625	C63F	H3
+C640		H2
+C641	C65B	H3
+C65C		H2
+C65D	C677	H3
+C678		H2
+C679	C693	H3
+C694		H2
+C695	C6AF	H3
+C6B0		H2
+C6B1	C6CB	H3
+C6CC		H2
+C6CD	C6E7	H3
+C6E8		H2
+C6E9	C703	H3
+C704		H2
+C705	C71F	H3
+C720		H2
+C721	C73B	H3
+C73C		H2
+C73D	C757	H3
+C758		H2
+C759	C773	H3
+C774		H2
+C775	C78F	H3
+C790		H2
+C791	C7AB	H3
+C7AC		H2
+C7AD	C7C7	H3
+C7C8		H2
+C7C9	C7E3	H3
+C7E4		H2
+C7E5	C7FF	H3
+C800		H2
+C801	C81B	H3
+C81C		H2
+C81D	C837	H3
+C838		H2
+C839	C853	H3
+C854		H2
+C855	C86F	H3
+C870		H2
+C871	C88B	H3
+C88C		H2
+C88D	C8A7	H3
+C8A8		H2
+C8A9	C8C3	H3
+C8C4		H2
+C8C5	C8DF	H3
+C8E0		H2
+C8E1	C8FB	H3
+C8FC		H2
+C8FD	C917	H3
+C918		H2
+C919	C933	H3
+C934		H2
+C935	C94F	H3
+C950		H2
+C951	C96B	H3
+C96C		H2
+C96D	C987	H3
+C988		H2
+C989	C9A3	H3
+C9A4		H2
+C9A5	C9BF	H3
+C9C0		H2
+C9C1	C9DB	H3
+C9DC		H2
+C9DD	C9F7	H3
+C9F8		H2
+C9F9	CA13	H3
+CA14		H2
+CA15	CA2F	H3
+CA30		H2
+CA31	CA4B	H3
+CA4C		H2
+CA4D	CA67	H3
+CA68		H2
+CA69	CA83	H3
+CA84		H2
+CA85	CA9F	H3
+CAA0		H2
+CAA1	CABB	H3
+CABC		H2
+CABD	CAD7	H3
+CAD8		H2
+CAD9	CAF3	H3
+CAF4		H2
+CAF5	CB0F	H3
+CB10		H2
+CB11	CB2B	H3
+CB2C		H2
+CB2D	CB47	H3
+CB48		H2
+CB49	CB63	H3
+CB64		H2
+CB65	CB7F	H3
+CB80		H2
+CB81	CB9B	H3
+CB9C		H2
+CB9D	CBB7	H3
+CBB8		H2
+CBB9	CBD3	H3
+CBD4		H2
+CBD5	CBEF	H3
+CBF0		H2
+CBF1	CC0B	H3
+CC0C		H2
+CC0D	CC27	H3
+CC28		H2
+CC29	CC43	H3
+CC44		H2
+CC45	CC5F	H3
+CC60		H2
+CC61	CC7B	H3
+CC7C		H2
+CC7D	CC97	H3
+CC98		H2
+CC99	CCB3	H3
+CCB4		H2
+CCB5	CCCF	H3
+CCD0		H2
+CCD1	CCEB	H3
+CCEC		H2
+CCED	CD07	H3
+CD08		H2
+CD09	CD23	H3
+CD24		H2
+CD25	CD3F	H3
+CD40		H2
+CD41	CD5B	H3
+CD5C		H2
+CD5D	CD77	H3
+CD78		H2
+CD79	CD93	H3
+CD94		H2
+CD95	CDAF	H3
+CDB0		H2
+CDB1	CDCB	H3
+CDCC		H2
+CDCD	CDE7	H3
+CDE8		H2
+CDE9	CE03	H3
+CE04		H2
+CE05	CE1F	H3
+CE20		H2
+CE21	CE3B	H3
+CE3C		H2
+CE3D	CE57	H3
+CE58		H2
+CE59	CE73	H3
+CE74		H2
+CE75	CE8F	H3
+CE90		H2
+CE91	CEAB	H3
+CEAC		H2
+CEAD	CEC7	H3
+CEC8		H2
+CEC9	CEE3	H3
+CEE4		H2
+CEE5	CEFF	H3
+CF00		H2
+CF01	CF1B	H3
+CF1C		H2
+CF1D	CF37	H3
+CF38		H2
+CF39	CF53	H3
+CF54		H2
+CF55	CF6F	H3
+CF70		H2
+CF71	CF8B	H3
+CF8C		H2
+CF8D	CFA7	H3
+CFA8		H2
+CFA9	CFC3	H3
+CFC4		H2
+CFC5	CFDF	H3
+CFE0		H2
+CFE1	CFFB	H3
+CFFC		H2
+CFFD	D017	H3
+D018		H2
+D019	D033	H3
+D034		H2
+D035	D04F	H3
+D050		H2
+D051	D06B	H3
+D06C		H2
+D06D	D087	H3
+D088		H2
+D089	D0A3	H3
+D0A4		H2
+D0A5	D0BF	H3
+D0C0		H2
+D0C1	D0DB	H3
+D0DC		H2
+D0DD	D0F7	H3
+D0F8		H2
+D0F9	D113	H3
+D114		H2
+D115	D12F	H3
+D130		H2
+D131	D14B	H3
+D14C		H2
+D14D	D167	H3
+D168		H2
+D169	D183	H3
+D184		H2
+D185	D19F	H3
+D1A0		H2
+D1A1	D1BB	H3
+D1BC		H2
+D1BD	D1D7	H3
+D1D8		H2
+D1D9	D1F3	H3
+D1F4		H2
+D1F5	D20F	H3
+D210		H2
+D211	D22B	H3
+D22C		H2
+D22D	D247	H3
+D248		H2
+D249	D263	H3
+D264		H2
+D265	D27F	H3
+D280		H2
+D281	D29B	H3
+D29C		H2
+D29D	D2B7	H3
+D2B8		H2
+D2B9	D2D3	H3
+D2D4		H2
+D2D5	D2EF	H3
+D2F0		H2
+D2F1	D30B	H3
+D30C		H2
+D30D	D327	H3
+D328		H2
+D329	D343	H3
+D344		H2
+D345	D35F	H3
+D360		H2
+D361	D37B	H3
+D37C		H2
+D37D	D397	H3
+D398		H2
+D399	D3B3	H3
+D3B4		H2
+D3B5	D3CF	H3
+D3D0		H2
+D3D1	D3EB	H3
+D3EC		H2
+D3ED	D407	H3
+D408		H2
+D409	D423	H3
+D424		H2
+D425	D43F	H3
+D440		H2
+D441	D45B	H3
+D45C		H2
+D45D	D477	H3
+D478		H2
+D479	D493	H3
+D494		H2
+D495	D4AF	H3
+D4B0		H2
+D4B1	D4CB	H3
+D4CC		H2
+D4CD	D4E7	H3
+D4E8		H2
+D4E9	D503	H3
+D504		H2
+D505	D51F	H3
+D520		H2
+D521	D53B	H3
+D53C		H2
+D53D	D557	H3
+D558		H2
+D559	D573	H3
+D574		H2
+D575	D58F	H3
+D590		H2
+D591	D5AB	H3
+D5AC		H2
+D5AD	D5C7	H3
+D5C8		H2
+D5C9	D5E3	H3
+D5E4		H2
+D5E5	D5FF	H3
+D600		H2
+D601	D61B	H3
+D61C		H2
+D61D	D637	H3
+D638		H2
+D639	D653	H3
+D654		H2
+D655	D66F	H3
+D670		H2
+D671	D68B	H3
+D68C		H2
+D68D	D6A7	H3
+D6A8		H2
+D6A9	D6C3	H3
+D6C4		H2
+D6C5	D6DF	H3
+D6E0		H2
+D6E1	D6FB	H3
+D6FC		H2
+D6FD	D717	H3
+D718		H2
+D719	D733	H3
+D734		H2
+D735	D74F	H3
+D750		H2
+D751	D76B	H3
+D76C		H2
+D76D	D787	H3
+D788		H2
+D789	D7A3	H3
+D7B0	D7C6	JV
+D7CB	D7FB	JT
+D800	DFFF	SG
+F900	FAFF	ID
+FB00	FB06	AL
+FB13	FB17	AL
+FB1D		HL
+FB1E		CM
+FB1F	FB28	HL
+FB29		AL
+FB2A	FB36	HL
+FB38	FB3C	HL
+FB3E		HL
+FB40	FB41	HL
+FB43	FB44	HL
+FB46	FB4F	HL
+FB50	FBC1	AL
+FBD3	FD3D	AL
+FD3E		CL
+FD3F		OP
+FD50	FD8F	AL
+FD92	FDC7	AL
+FDF0	FDFB	AL
+FDFC		PO
+FDFD		AL
+FE00	FE0F	CM
+FE10		IS
+FE11	FE12	CL
+FE13	FE14	IS
+FE15	FE16	EX
+FE17		OP
+FE18		CL
+FE19		IN
+FE20	FE2F	CM
+FE30	FE34	ID
+FE35		OP
+FE36		CL
+FE37		OP
+FE38		CL
+FE39		OP
+FE3A		CL
+FE3B		OP
+FE3C		CL
+FE3D		OP
+FE3E		CL
+FE3F		OP
+FE40		CL
+FE41		OP
+FE42		CL
+FE43		OP
+FE44		CL
+FE45	FE46	ID
+FE47		OP
+FE48		CL
+FE49	FE4F	ID
+FE50		CL
+FE51		ID
+FE52		CL
+FE54	FE55	NS
+FE56	FE57	EX
+FE58		ID
+FE59		OP
+FE5A		CL
+FE5B		OP
+FE5C		CL
+FE5D		OP
+FE5E		CL
+FE5F	FE66	ID
+FE68		ID
+FE69		PR
+FE6A		PO
+FE6B		ID
+FE70	FE74	AL
+FE76	FEFC	AL
+FEFF		WJ
+FF01		EX
+FF02	FF03	ID
+FF04		PR
+FF05		PO
+FF06	FF07	ID
+FF08		OP
+FF09		CL
+FF0A	FF0B	ID
+FF0C		CL
+FF0D		ID
+FF0E		CL
+FF0F	FF19	ID
+FF1A	FF1B	NS
+FF1C	FF1E	ID
+FF1F		EX
+FF20	FF3A	ID
+FF3B		OP
+FF3C		ID
+FF3D		CL
+FF3E	FF5A	ID
+FF5B		OP
+FF5C		ID
+FF5D		CL
+FF5E		ID
+FF5F		OP
+FF60	FF61	CL
+FF62		OP
+FF63	FF64	CL
+FF65		NS
+FF66		AL
+FF67	FF70	CJ
+FF71	FF9D	AL
+FF9E	FF9F	NS
+FFA0	FFBE	AL
+FFC2	FFC7	AL
+FFCA	FFCF	AL
+FFD2	FFD7	AL
+FFDA	FFDC	AL
+FFE0		PO
+FFE1		PR
+FFE2	FFE4	ID
+FFE5	FFE6	PR
+FFE8	FFEE	AL
+FFF9	FFFB	CM
+FFFC		CB
+FFFD		AI
+10000	1000B	AL
+1000D	10026	AL
+10028	1003A	AL
+1003C	1003D	AL
+1003F	1004D	AL
+10050	1005D	AL
+10080	100FA	AL
+10100	10102	BA
+10107	10133	AL
+10137	1018C	AL
+10190	1019B	AL
+101A0		AL
+101D0	101FC	AL
+101FD		CM
+10280	1029C	AL
+102A0	102D0	AL
+102E0		CM
+102E1	102FB	AL
+10300	10323	AL
+10330	1034A	AL
+10350	10375	AL
+10376	1037A	CM
+10380	1039D	AL
+1039F		BA
+103A0	103C3	AL
+103C8	103CF	AL
+103D0		BA
+103D1	103D5	AL
+10400	1049D	AL
+104A0	104A9	NU
+10500	10527	AL
+10530	10563	AL
+1056F		AL
+10600	10736	AL
+10740	10755	AL
+10760	10767	AL
+10800	10805	AL
+10808		AL
+1080A	10835	AL
+10837	10838	AL
+1083C		AL
+1083F	10855	AL
+10857		BA
+10858	1089E	AL
+108A7	108AF	AL
+108E0	108F2	AL
+108F4	108F5	AL
+108FB	1091B	AL
+1091F		BA
+10920	10939	AL
+1093F		AL
+10980	109B7	AL
+109BC	109CF	AL
+109D2	10A00	AL
+10A01	10A03	CM
+10A05	10A06	CM
+10A0C	10A0F	CM
+10A10	10A13	AL
+10A15	10A17	AL
+10A19	10A33	AL
+10A38	10A3A	CM
+10A3F		CM
+10A40	10A47	AL
+10A50	10A57	BA
+10A58		AL
+10A60	10A9F	AL
+10AC0	10AE4	AL
+10AE5	10AE6	CM
+10AEB	10AEF	AL
+10AF0	10AF5	BA
+10AF6		IN
+10B00	10B35	AL
+10B39	10B3F	BA
+10B40	10B55	AL
+10B58	10B72	AL
+10B78	10B91	AL
+10B99	10B9C	AL
+10BA9	10BAF	AL
+10C00	10C48	AL
+10C80	10CB2	AL
+10CC0	10CF2	AL
+10CFA	10CFF	AL
+10E60	10E7E	AL
+11000	11002	CM
+11003	11037	AL
+11038	11046	CM
+11047	11048	BA
+11049	1104D	AL
+11052	11065	AL
+11066	1106F	NU
+1107F	11082	CM
+11083	110AF	AL
+110B0	110BA	CM
+110BB	110BD	AL
+110BE	110C1	BA
+110D0	110E8	AL
+110F0	110F9	NU
+11100	11102	CM
+11103	11126	AL
+11127	11134	CM
+11136	1113F	NU
+11140	11143	BA
+11150	11172	AL
+11173		CM
+11174		AL
+11175		BB
+11176		AL
+11180	11182	CM
+11183	111B2	AL
+111B3	111C0	CM
+111C1	111C4	AL
+111C5	111C6	BA
+111C7		AL
+111C8		BA
+111C9		AL
+111CA	111CC	CM
+111CD		AL
+111D0	111D9	NU
+111DA		AL
+111DB		BB
+111DC		AL
+111DD	111DF	BA
+111E1	111F4	AL
+11200	11211	AL
+11213	1122B	AL
+1122C	11237	CM
+11238	11239	BA
+1123A		AL
+1123B	1123C	BA
+1123D		AL
+11280	11286	AL
+11288		AL
+1128A	1128D	AL
+1128F	1129D	AL
+1129F	112A8	AL
+112A9		BA
+112B0	112DE	AL
+112DF	112EA	CM
+112F0	112F9	NU
+11300	11303	CM
+11305	1130C	AL
+1130F	11310	AL
+11313	11328	AL
+1132A	11330	AL
+11332	11333	AL
+11335	11339	AL
+1133C		CM
+1133D		AL
+1133E	11344	CM
+11347	11348	CM
+1134B	1134D	CM
+11350		AL
+11357		CM
+1135D	11361	AL
+11362	11363	CM
+11366	1136C	CM
+11370	11374	CM
+11480	114AF	AL
+114B0	114C3	CM
+114C4	114C7	AL
+114D0	114D9	NU
+11580	115AE	AL
+115AF	115B5	CM
+115B8	115C0	CM
+115C1		BB
+115C2	115C3	BA
+115C4	115C5	EX
+115C6	115C8	AL
+115C9	115D7	BA
+115D8	115DB	AL
+115DC	115DD	CM
+11600	1162F	AL
+11630	11640	CM
+11641	11642	BA
+11643	11644	AL
+11650	11659	NU
+11680	116AA	AL
+116AB	116B7	CM
+116C0	116C9	NU
+11700	11719	SA
+1171D	1172B	SA
+11730	11739	NU
+1173A	1173B	SA
+1173C	1173E	BA
+1173F		SA
+118A0	118DF	AL
+118E0	118E9	NU
+118EA	118F2	AL
+118FF		AL
+11AC0	11AF8	AL
+12000	12399	AL
+12400	1246E	AL
+12470	12474	BA
+12480	12543	AL
+13000	13257	AL
+13258	1325A	OP
+1325B	1325D	CL
+1325E	13281	AL
+13282		CL
+13283	13285	AL
+13286		OP
+13287		CL
+13288		OP
+13289		CL
+1328A	13378	AL
+13379		OP
+1337A	1337B	CL
+1337C	1342E	AL
+14400	145CD	AL
+145CE		OP
+145CF		CL
+145D0	14646	AL
+16800	16A38	AL
+16A40	16A5E	AL
+16A60	16A69	NU
+16A6E	16A6F	BA
+16AD0	16AED	AL
+16AF0	16AF4	CM
+16AF5		BA
+16B00	16B2F	AL
+16B30	16B36	CM
+16B37	16B39	BA
+16B3A	16B43	AL
+16B44		BA
+16B45		AL
+16B50	16B59	NU
+16B5B	16B61	AL
+16B63	16B77	AL
+16B7D	16B8F	AL
+16F00	16F44	AL
+16F50		AL
+16F51	16F7E	CM
+16F8F	16F92	CM
+16F93	16F9F	AL
+1B000	1B001	ID
+1BC00	1BC6A	AL
+1BC70	1BC7C	AL
+1BC80	1BC88	AL
+1BC90	1BC99	AL
+1BC9C		AL
+1BC9D	1BC9E	CM
+1BC9F		BA
+1BCA0	1BCA3	CM
+1D000	1D0F5	AL
+1D100	1D126	AL
+1D129	1D164	AL
+1D165	1D169	CM
+1D16A	1D16C	AL
+1D16D	1D182	CM
+1D183	1D184	AL
+1D185	1D18B	CM
+1D18C	1D1A9	AL
+1D1AA	1D1AD	CM
+1D1AE	1D1E8	AL
+1D200	1D241	AL
+1D242	1D244	CM
+1D245		AL
+1D300	1D356	AL
+1D360	1D371	AL
+1D400	1D454	AL
+1D456	1D49C	AL
+1D49E	1D49F	AL
+1D4A2		AL
+1D4A5	1D4A6	AL
+1D4A9	1D4AC	AL
+1D4AE	1D4B9	AL
+1D4BB		AL
+1D4BD	1D4C3	AL
+1D4C5	1D505	AL
+1D507	1D50A	AL
+1D50D	1D514	AL
+1D516	1D51C	AL
+1D51E	1D539	AL
+1D53B	1D53E	AL
+1D540	1D544	AL
+1D546		AL
+1D54A	1D550	AL
+1D552	1D6A5	AL
+1D6A8	1D7CB	AL
+1D7CE	1D7FF	NU
+1D800	1D9FF	AL
+1DA00	1DA36	CM
+1DA37	1DA3A	AL
+1DA3B	1DA6C	CM
+1DA6D	1DA74	AL
+1DA75		CM
+1DA76	1DA83	AL
+1DA84		CM
+1DA85	1DA86	AL
+1DA87	1DA8A	BA
+1DA8B		AL
+1DA9B	1DA9F	CM
+1DAA1	1DAAF	CM
+1E800	1E8C4	AL
+1E8C7	1E8CF	AL
+1E8D0	1E8D6	CM
+1EE00	1EE03	AL
+1EE05	1EE1F	AL
+1EE21	1EE22	AL
+1EE24		AL
+1EE27		AL
+1EE29	1EE32	AL
+1EE34	1EE37	AL
+1EE39		AL
+1EE3B		AL
+1EE42		AL
+1EE47		AL
+1EE49		AL
+1EE4B		AL
+1EE4D	1EE4F	AL
+1EE51	1EE52	AL
+1EE54		AL
+1EE57		AL
+1EE59		AL
+1EE5B		AL
+1EE5D		AL
+1EE5F		AL
+1EE61	1EE62	AL
+1EE64		AL
+1EE67	1EE6A	AL
+1EE6C	1EE72	AL
+1EE74	1EE77	AL
+1EE79	1EE7C	AL
+1EE7E		AL
+1EE80	1EE89	AL
+1EE8B	1EE9B	AL
+1EEA1	1EEA3	AL
+1EEA5	1EEA9	AL
+1EEAB	1EEBB	AL
+1EEF0	1EEF1	AL
+1F000	1F02B	ID
+1F030	1F093	ID
+1F0A0	1F0AE	ID
+1F0B1	1F0BF	ID
+1F0C1	1F0CF	ID
+1F0D1	1F0F5	ID
+1F100	1F10C	AI
+1F110	1F12D	AI
+1F12E		AL
+1F130	1F169	AI
+1F16A	1F16B	AL
+1F170	1F19A	AI
+1F1E6	1F1FF	RI
+1F200	1F202	ID
+1F210	1F23A	ID
+1F240	1F248	ID
+1F250	1F251	ID
+1F300	1F39B	ID
+1F39C	1F39D	AL
+1F39E	1F3B4	ID
+1F3B5	1F3B6	AL
+1F3B7	1F3BB	ID
+1F3BC		AL
+1F3BD	1F3FA	ID
+1F3FB	1F3FF	AL
+1F400	1F49F	ID
+1F4A0		AL
+1F4A1		ID
+1F4A2		AL
+1F4A3		ID
+1F4A4		AL
+1F4A5	1F4AE	ID
+1F4AF		AL
+1F4B0		ID
+1F4B1	1F4B2	AL
+1F4B3	1F4FF	ID
+1F500	1F506	AL
+1F507	1F516	ID
+1F517	1F524	AL
+1F525	1F531	ID
+1F532	1F549	AL
+1F54A	1F579	ID
+1F57B	1F5A3	ID
+1F5A5	1F5D3	ID
+1F5D4	1F5DB	AL
+1F5DC	1F5F3	ID
+1F5F4	1F5F9	AL
+1F5FA	1F64F	ID
+1F650	1F675	AL
+1F676	1F678	QU
+1F679	1F67B	NS
+1F67C	1F67F	AL
+1F680	1F6D0	ID
+1F6E0	1F6EC	ID
+1F6F0	1F6F3	ID
+1F700	1F773	AL
+1F780	1F7D4	AL
+1F800	1F80B	AL
+1F810	1F847	AL
+1F850	1F859	AL
+1F860	1F887	AL
+1F890	1F8AD	AL
+1F910	1F918	ID
+1F980	1F984	ID
+1F9C0		ID
+20000	2FFFD	ID
+30000	3FFFD	ID
+E0001		CM
+E0020	E007F	CM
+E0100	E01EF	CM
+END
diff --git a/lib/5.24.1/unicore/To/Lc.pl b/lib/5.24.1/unicore/To/Lc.pl
new file mode 100644
index 00000000..cce74fde
--- /dev/null
+++ b/lib/5.24.1/unicore/To/Lc.pl
@@ -0,0 +1,678 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+# The mappings in the non-hash portion of this file must be modified to get the
+# correct values by adding the code point ordinal number to each one that is
+# numeric.
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToLc'}{'format'} = 'ax'; # mapped value in hex; some entries need adjustment
+$utf8::SwashInfo{'ToLc'}{'specials_name'} = 'utf8::ToSpecLc'; # Name of hash of special mappings
+$utf8::SwashInfo{'ToLc'}{'missing'} = '0'; # code point maps to itself
+
+# Some code points require special handling because their mappings are each to
+# multiple code points.  These do not appear in the main body, but are defined
+# in the hash below.
+
+# Each key is the string of N bytes that together make up the UTF-8 encoding
+# for the code point.  (i.e. the same as looking at the code point's UTF-8
+# under "use bytes").  Each value is the UTF-8 of the translation, for speed.
+%utf8::ToSpecLc = (
+"\xC4\xB0" => "\x{0069}\x{0307}",             # U+0130 => 0069 0307
+);
+
+return <<'END';
+41	5A	61
+C0	D6	E0
+D8	DE	F8
+100		101
+102		103
+104		105
+106		107
+108		109
+10A		10B
+10C		10D
+10E		10F
+110		111
+112		113
+114		115
+116		117
+118		119
+11A		11B
+11C		11D
+11E		11F
+120		121
+122		123
+124		125
+126		127
+128		129
+12A		12B
+12C		12D
+12E		12F
+130		69
+132		133
+134		135
+136		137
+139		13A
+13B		13C
+13D		13E
+13F		140
+141		142
+143		144
+145		146
+147		148
+14A		14B
+14C		14D
+14E		14F
+150		151
+152		153
+154		155
+156		157
+158		159
+15A		15B
+15C		15D
+15E		15F
+160		161
+162		163
+164		165
+166		167
+168		169
+16A		16B
+16C		16D
+16E		16F
+170		171
+172		173
+174		175
+176		177
+178		FF
+179		17A
+17B		17C
+17D		17E
+181		253
+182		183
+184		185
+186		254
+187		188
+189	18A	256
+18B		18C
+18E		1DD
+18F		259
+190		25B
+191		192
+193		260
+194		263
+196		269
+197		268
+198		199
+19C		26F
+19D		272
+19F		275
+1A0		1A1
+1A2		1A3
+1A4		1A5
+1A6		280
+1A7		1A8
+1A9		283
+1AC		1AD
+1AE		288
+1AF		1B0
+1B1	1B2	28A
+1B3		1B4
+1B5		1B6
+1B7		292
+1B8		1B9
+1BC		1BD
+1C4		1C6
+1C5		1C6
+1C7		1C9
+1C8		1C9
+1CA		1CC
+1CB		1CC
+1CD		1CE
+1CF		1D0
+1D1		1D2
+1D3		1D4
+1D5		1D6
+1D7		1D8
+1D9		1DA
+1DB		1DC
+1DE		1DF
+1E0		1E1
+1E2		1E3
+1E4		1E5
+1E6		1E7
+1E8		1E9
+1EA		1EB
+1EC		1ED
+1EE		1EF
+1F1		1F3
+1F2		1F3
+1F4		1F5
+1F6		195
+1F7		1BF
+1F8		1F9
+1FA		1FB
+1FC		1FD
+1FE		1FF
+200		201
+202		203
+204		205
+206		207
+208		209
+20A		20B
+20C		20D
+20E		20F
+210		211
+212		213
+214		215
+216		217
+218		219
+21A		21B
+21C		21D
+21E		21F
+220		19E
+222		223
+224		225
+226		227
+228		229
+22A		22B
+22C		22D
+22E		22F
+230		231
+232		233
+23A		2C65
+23B		23C
+23D		19A
+23E		2C66
+241		242
+243		180
+244		289
+245		28C
+246		247
+248		249
+24A		24B
+24C		24D
+24E		24F
+370		371
+372		373
+376		377
+37F		3F3
+386		3AC
+388	38A	3AD
+38C		3CC
+38E	38F	3CD
+391	3A1	3B1
+3A3	3AB	3C3
+3CF		3D7
+3D8		3D9
+3DA		3DB
+3DC		3DD
+3DE		3DF
+3E0		3E1
+3E2		3E3
+3E4		3E5
+3E6		3E7
+3E8		3E9
+3EA		3EB
+3EC		3ED
+3EE		3EF
+3F4		3B8
+3F7		3F8
+3F9		3F2
+3FA		3FB
+3FD	3FF	37B
+400	40F	450
+410	42F	430
+460		461
+462		463
+464		465
+466		467
+468		469
+46A		46B
+46C		46D
+46E		46F
+470		471
+472		473
+474		475
+476		477
+478		479
+47A		47B
+47C		47D
+47E		47F
+480		481
+48A		48B
+48C		48D
+48E		48F
+490		491
+492		493
+494		495
+496		497
+498		499
+49A		49B
+49C		49D
+49E		49F
+4A0		4A1
+4A2		4A3
+4A4		4A5
+4A6		4A7
+4A8		4A9
+4AA		4AB
+4AC		4AD
+4AE		4AF
+4B0		4B1
+4B2		4B3
+4B4		4B5
+4B6		4B7
+4B8		4B9
+4BA		4BB
+4BC		4BD
+4BE		4BF
+4C0		4CF
+4C1		4C2
+4C3		4C4
+4C5		4C6
+4C7		4C8
+4C9		4CA
+4CB		4CC
+4CD		4CE
+4D0		4D1
+4D2		4D3
+4D4		4D5
+4D6		4D7
+4D8		4D9
+4DA		4DB
+4DC		4DD
+4DE		4DF
+4E0		4E1
+4E2		4E3
+4E4		4E5
+4E6		4E7
+4E8		4E9
+4EA		4EB
+4EC		4ED
+4EE		4EF
+4F0		4F1
+4F2		4F3
+4F4		4F5
+4F6		4F7
+4F8		4F9
+4FA		4FB
+4FC		4FD
+4FE		4FF
+500		501
+502		503
+504		505
+506		507
+508		509
+50A		50B
+50C		50D
+50E		50F
+510		511
+512		513
+514		515
+516		517
+518		519
+51A		51B
+51C		51D
+51E		51F
+520		521
+522		523
+524		525
+526		527
+528		529
+52A		52B
+52C		52D
+52E		52F
+531	556	561
+10A0	10C5	2D00
+10C7		2D27
+10CD		2D2D
+13A0	13EF	AB70
+13F0	13F5	13F8
+1E00		1E01
+1E02		1E03
+1E04		1E05
+1E06		1E07
+1E08		1E09
+1E0A		1E0B
+1E0C		1E0D
+1E0E		1E0F
+1E10		1E11
+1E12		1E13
+1E14		1E15
+1E16		1E17
+1E18		1E19
+1E1A		1E1B
+1E1C		1E1D
+1E1E		1E1F
+1E20		1E21
+1E22		1E23
+1E24		1E25
+1E26		1E27
+1E28		1E29
+1E2A		1E2B
+1E2C		1E2D
+1E2E		1E2F
+1E30		1E31
+1E32		1E33
+1E34		1E35
+1E36		1E37
+1E38		1E39
+1E3A		1E3B
+1E3C		1E3D
+1E3E		1E3F
+1E40		1E41
+1E42		1E43
+1E44		1E45
+1E46		1E47
+1E48		1E49
+1E4A		1E4B
+1E4C		1E4D
+1E4E		1E4F
+1E50		1E51
+1E52		1E53
+1E54		1E55
+1E56		1E57
+1E58		1E59
+1E5A		1E5B
+1E5C		1E5D
+1E5E		1E5F
+1E60		1E61
+1E62		1E63
+1E64		1E65
+1E66		1E67
+1E68		1E69
+1E6A		1E6B
+1E6C		1E6D
+1E6E		1E6F
+1E70		1E71
+1E72		1E73
+1E74		1E75
+1E76		1E77
+1E78		1E79
+1E7A		1E7B
+1E7C		1E7D
+1E7E		1E7F
+1E80		1E81
+1E82		1E83
+1E84		1E85
+1E86		1E87
+1E88		1E89
+1E8A		1E8B
+1E8C		1E8D
+1E8E		1E8F
+1E90		1E91
+1E92		1E93
+1E94		1E95
+1E9E		DF
+1EA0		1EA1
+1EA2		1EA3
+1EA4		1EA5
+1EA6		1EA7
+1EA8		1EA9
+1EAA		1EAB
+1EAC		1EAD
+1EAE		1EAF
+1EB0		1EB1
+1EB2		1EB3
+1EB4		1EB5
+1EB6		1EB7
+1EB8		1EB9
+1EBA		1EBB
+1EBC		1EBD
+1EBE		1EBF
+1EC0		1EC1
+1EC2		1EC3
+1EC4		1EC5
+1EC6		1EC7
+1EC8		1EC9
+1ECA		1ECB
+1ECC		1ECD
+1ECE		1ECF
+1ED0		1ED1
+1ED2		1ED3
+1ED4		1ED5
+1ED6		1ED7
+1ED8		1ED9
+1EDA		1EDB
+1EDC		1EDD
+1EDE		1EDF
+1EE0		1EE1
+1EE2		1EE3
+1EE4		1EE5
+1EE6		1EE7
+1EE8		1EE9
+1EEA		1EEB
+1EEC		1EED
+1EEE		1EEF
+1EF0		1EF1
+1EF2		1EF3
+1EF4		1EF5
+1EF6		1EF7
+1EF8		1EF9
+1EFA		1EFB
+1EFC		1EFD
+1EFE		1EFF
+1F08	1F0F	1F00
+1F18	1F1D	1F10
+1F28	1F2F	1F20
+1F38	1F3F	1F30
+1F48	1F4D	1F40
+1F59		1F51
+1F5B		1F53
+1F5D		1F55
+1F5F		1F57
+1F68	1F6F	1F60
+1F88	1F8F	1F80
+1F98	1F9F	1F90
+1FA8	1FAF	1FA0
+1FB8	1FB9	1FB0
+1FBA	1FBB	1F70
+1FBC		1FB3
+1FC8	1FCB	1F72
+1FCC		1FC3
+1FD8	1FD9	1FD0
+1FDA	1FDB	1F76
+1FE8	1FE9	1FE0
+1FEA	1FEB	1F7A
+1FEC		1FE5
+1FF8	1FF9	1F78
+1FFA	1FFB	1F7C
+1FFC		1FF3
+2126		3C9
+212A		6B
+212B		E5
+2132		214E
+2160	216F	2170
+2183		2184
+24B6	24CF	24D0
+2C00	2C2E	2C30
+2C60		2C61
+2C62		26B
+2C63		1D7D
+2C64		27D
+2C67		2C68
+2C69		2C6A
+2C6B		2C6C
+2C6D		251
+2C6E		271
+2C6F		250
+2C70		252
+2C72		2C73
+2C75		2C76
+2C7E	2C7F	23F
+2C80		2C81
+2C82		2C83
+2C84		2C85
+2C86		2C87
+2C88		2C89
+2C8A		2C8B
+2C8C		2C8D
+2C8E		2C8F
+2C90		2C91
+2C92		2C93
+2C94		2C95
+2C96		2C97
+2C98		2C99
+2C9A		2C9B
+2C9C		2C9D
+2C9E		2C9F
+2CA0		2CA1
+2CA2		2CA3
+2CA4		2CA5
+2CA6		2CA7
+2CA8		2CA9
+2CAA		2CAB
+2CAC		2CAD
+2CAE		2CAF
+2CB0		2CB1
+2CB2		2CB3
+2CB4		2CB5
+2CB6		2CB7
+2CB8		2CB9
+2CBA		2CBB
+2CBC		2CBD
+2CBE		2CBF
+2CC0		2CC1
+2CC2		2CC3
+2CC4		2CC5
+2CC6		2CC7
+2CC8		2CC9
+2CCA		2CCB
+2CCC		2CCD
+2CCE		2CCF
+2CD0		2CD1
+2CD2		2CD3
+2CD4		2CD5
+2CD6		2CD7
+2CD8		2CD9
+2CDA		2CDB
+2CDC		2CDD
+2CDE		2CDF
+2CE0		2CE1
+2CE2		2CE3
+2CEB		2CEC
+2CED		2CEE
+2CF2		2CF3
+A640		A641
+A642		A643
+A644		A645
+A646		A647
+A648		A649
+A64A		A64B
+A64C		A64D
+A64E		A64F
+A650		A651
+A652		A653
+A654		A655
+A656		A657
+A658		A659
+A65A		A65B
+A65C		A65D
+A65E		A65F
+A660		A661
+A662		A663
+A664		A665
+A666		A667
+A668		A669
+A66A		A66B
+A66C		A66D
+A680		A681
+A682		A683
+A684		A685
+A686		A687
+A688		A689
+A68A		A68B
+A68C		A68D
+A68E		A68F
+A690		A691
+A692		A693
+A694		A695
+A696		A697
+A698		A699
+A69A		A69B
+A722		A723
+A724		A725
+A726		A727
+A728		A729
+A72A		A72B
+A72C		A72D
+A72E		A72F
+A732		A733
+A734		A735
+A736		A737
+A738		A739
+A73A		A73B
+A73C		A73D
+A73E		A73F
+A740		A741
+A742		A743
+A744		A745
+A746		A747
+A748		A749
+A74A		A74B
+A74C		A74D
+A74E		A74F
+A750		A751
+A752		A753
+A754		A755
+A756		A757
+A758		A759
+A75A		A75B
+A75C		A75D
+A75E		A75F
+A760		A761
+A762		A763
+A764		A765
+A766		A767
+A768		A769
+A76A		A76B
+A76C		A76D
+A76E		A76F
+A779		A77A
+A77B		A77C
+A77D		1D79
+A77E		A77F
+A780		A781
+A782		A783
+A784		A785
+A786		A787
+A78B		A78C
+A78D		265
+A790		A791
+A792		A793
+A796		A797
+A798		A799
+A79A		A79B
+A79C		A79D
+A79E		A79F
+A7A0		A7A1
+A7A2		A7A3
+A7A4		A7A5
+A7A6		A7A7
+A7A8		A7A9
+A7AA		266
+A7AB		25C
+A7AC		261
+A7AD		26C
+A7B0		29E
+A7B1		287
+A7B2		29D
+A7B3		AB53
+A7B4		A7B5
+A7B6		A7B7
+FF21	FF3A	FF41
+10400	10427	10428
+10C80	10CB2	10CC0
+118A0	118BF	118C0
+END
diff --git a/lib/5.24.1/unicore/To/Lower.pl b/lib/5.24.1/unicore/To/Lower.pl
new file mode 100644
index 00000000..d721b852
--- /dev/null
+++ b/lib/5.24.1/unicore/To/Lower.pl
@@ -0,0 +1,1268 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   IT IS DEPRECATED TO USE THIS FILE   !!!!!!!
+
+# This file is for internal use by core Perl only.  It is retained for
+# backwards compatibility with applications that may have come to rely on it,
+# but its format and even its name or existence are subject to change without
+# notice in a future Perl version.  Don't use it directly.  Instead, its
+# contents are now retrievable through a stable API in the Unicode::UCD
+# module: Unicode::UCD::prop_invmap('Lowercase_Mapping') (Values for individual
+# code points can be retrieved via Unicode::UCD::charprop());
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToLower'}{'format'} = 'x'; # non-negative hex whole number; a code point
+$utf8::SwashInfo{'ToLower'}{'specials_name'} = 'utf8::ToSpecLower'; # Name of hash of special mappings
+$utf8::SwashInfo{'ToLower'}{'missing'} = '<code point>'; # code point maps to itself
+
+# Some code points require special handling because their mappings are each to
+# multiple code points.  These do not appear in the main body, but are defined
+# in the hash below.
+
+# Each key is the string of N bytes that together make up the UTF-8 encoding
+# for the code point.  (i.e. the same as looking at the code point's UTF-8
+# under "use bytes").  Each value is the UTF-8 of the translation, for speed.
+%utf8::ToSpecLower = (
+"\xC4\xB0" => "\x{0069}\x{0307}",             # U+0130 => 0069 0307
+);
+
+return <<'END';
+0041		0061
+0042		0062
+0043		0063
+0044		0064
+0045		0065
+0046		0066
+0047		0067
+0048		0068
+0049		0069
+004A		006A
+004B		006B
+004C		006C
+004D		006D
+004E		006E
+004F		006F
+0050		0070
+0051		0071
+0052		0072
+0053		0073
+0054		0074
+0055		0075
+0056		0076
+0057		0077
+0058		0078
+0059		0079
+005A		007A
+00C0		00E0
+00C1		00E1
+00C2		00E2
+00C3		00E3
+00C4		00E4
+00C5		00E5
+00C6		00E6
+00C7		00E7
+00C8		00E8
+00C9		00E9
+00CA		00EA
+00CB		00EB
+00CC		00EC
+00CD		00ED
+00CE		00EE
+00CF		00EF
+00D0		00F0
+00D1		00F1
+00D2		00F2
+00D3		00F3
+00D4		00F4
+00D5		00F5
+00D6		00F6
+00D8		00F8
+00D9		00F9
+00DA		00FA
+00DB		00FB
+00DC		00FC
+00DD		00FD
+00DE		00FE
+0100		0101
+0102		0103
+0104		0105
+0106		0107
+0108		0109
+010A		010B
+010C		010D
+010E		010F
+0110		0111
+0112		0113
+0114		0115
+0116		0117
+0118		0119
+011A		011B
+011C		011D
+011E		011F
+0120		0121
+0122		0123
+0124		0125
+0126		0127
+0128		0129
+012A		012B
+012C		012D
+012E		012F
+0132		0133
+0134		0135
+0136		0137
+0139		013A
+013B		013C
+013D		013E
+013F		0140
+0141		0142
+0143		0144
+0145		0146
+0147		0148
+014A		014B
+014C		014D
+014E		014F
+0150		0151
+0152		0153
+0154		0155
+0156		0157
+0158		0159
+015A		015B
+015C		015D
+015E		015F
+0160		0161
+0162		0163
+0164		0165
+0166		0167
+0168		0169
+016A		016B
+016C		016D
+016E		016F
+0170		0171
+0172		0173
+0174		0175
+0176		0177
+0178		00FF
+0179		017A
+017B		017C
+017D		017E
+0181		0253
+0182		0183
+0184		0185
+0186		0254
+0187		0188
+0189		0256
+018A		0257
+018B		018C
+018E		01DD
+018F		0259
+0190		025B
+0191		0192
+0193		0260
+0194		0263
+0196		0269
+0197		0268
+0198		0199
+019C		026F
+019D		0272
+019F		0275
+01A0		01A1
+01A2		01A3
+01A4		01A5
+01A6		0280
+01A7		01A8
+01A9		0283
+01AC		01AD
+01AE		0288
+01AF		01B0
+01B1		028A
+01B2		028B
+01B3		01B4
+01B5		01B6
+01B7		0292
+01B8		01B9
+01BC		01BD
+01C4		01C6
+01C5		01C6
+01C7		01C9
+01C8		01C9
+01CA		01CC
+01CB		01CC
+01CD		01CE
+01CF		01D0
+01D1		01D2
+01D3		01D4
+01D5		01D6
+01D7		01D8
+01D9		01DA
+01DB		01DC
+01DE		01DF
+01E0		01E1
+01E2		01E3
+01E4		01E5
+01E6		01E7
+01E8		01E9
+01EA		01EB
+01EC		01ED
+01EE		01EF
+01F1		01F3
+01F2		01F3
+01F4		01F5
+01F6		0195
+01F7		01BF
+01F8		01F9
+01FA		01FB
+01FC		01FD
+01FE		01FF
+0200		0201
+0202		0203
+0204		0205
+0206		0207
+0208		0209
+020A		020B
+020C		020D
+020E		020F
+0210		0211
+0212		0213
+0214		0215
+0216		0217
+0218		0219
+021A		021B
+021C		021D
+021E		021F
+0220		019E
+0222		0223
+0224		0225
+0226		0227
+0228		0229
+022A		022B
+022C		022D
+022E		022F
+0230		0231
+0232		0233
+023A		2C65
+023B		023C
+023D		019A
+023E		2C66
+0241		0242
+0243		0180
+0244		0289
+0245		028C
+0246		0247
+0248		0249
+024A		024B
+024C		024D
+024E		024F
+0370		0371
+0372		0373
+0376		0377
+037F		03F3
+0386		03AC
+0388		03AD
+0389		03AE
+038A		03AF
+038C		03CC
+038E		03CD
+038F		03CE
+0391		03B1
+0392		03B2
+0393		03B3
+0394		03B4
+0395		03B5
+0396		03B6
+0397		03B7
+0398		03B8
+0399		03B9
+039A		03BA
+039B		03BB
+039C		03BC
+039D		03BD
+039E		03BE
+039F		03BF
+03A0		03C0
+03A1		03C1
+03A3		03C3
+03A4		03C4
+03A5		03C5
+03A6		03C6
+03A7		03C7
+03A8		03C8
+03A9		03C9
+03AA		03CA
+03AB		03CB
+03CF		03D7
+03D8		03D9
+03DA		03DB
+03DC		03DD
+03DE		03DF
+03E0		03E1
+03E2		03E3
+03E4		03E5
+03E6		03E7
+03E8		03E9
+03EA		03EB
+03EC		03ED
+03EE		03EF
+03F4		03B8
+03F7		03F8
+03F9		03F2
+03FA		03FB
+03FD		037B
+03FE		037C
+03FF		037D
+0400		0450
+0401		0451
+0402		0452
+0403		0453
+0404		0454
+0405		0455
+0406		0456
+0407		0457
+0408		0458
+0409		0459
+040A		045A
+040B		045B
+040C		045C
+040D		045D
+040E		045E
+040F		045F
+0410		0430
+0411		0431
+0412		0432
+0413		0433
+0414		0434
+0415		0435
+0416		0436
+0417		0437
+0418		0438
+0419		0439
+041A		043A
+041B		043B
+041C		043C
+041D		043D
+041E		043E
+041F		043F
+0420		0440
+0421		0441
+0422		0442
+0423		0443
+0424		0444
+0425		0445
+0426		0446
+0427		0447
+0428		0448
+0429		0449
+042A		044A
+042B		044B
+042C		044C
+042D		044D
+042E		044E
+042F		044F
+0460		0461
+0462		0463
+0464		0465
+0466		0467
+0468		0469
+046A		046B
+046C		046D
+046E		046F
+0470		0471
+0472		0473
+0474		0475
+0476		0477
+0478		0479
+047A		047B
+047C		047D
+047E		047F
+0480		0481
+048A		048B
+048C		048D
+048E		048F
+0490		0491
+0492		0493
+0494		0495
+0496		0497
+0498		0499
+049A		049B
+049C		049D
+049E		049F
+04A0		04A1
+04A2		04A3
+04A4		04A5
+04A6		04A7
+04A8		04A9
+04AA		04AB
+04AC		04AD
+04AE		04AF
+04B0		04B1
+04B2		04B3
+04B4		04B5
+04B6		04B7
+04B8		04B9
+04BA		04BB
+04BC		04BD
+04BE		04BF
+04C0		04CF
+04C1		04C2
+04C3		04C4
+04C5		04C6
+04C7		04C8
+04C9		04CA
+04CB		04CC
+04CD		04CE
+04D0		04D1
+04D2		04D3
+04D4		04D5
+04D6		04D7
+04D8		04D9
+04DA		04DB
+04DC		04DD
+04DE		04DF
+04E0		04E1
+04E2		04E3
+04E4		04E5
+04E6		04E7
+04E8		04E9
+04EA		04EB
+04EC		04ED
+04EE		04EF
+04F0		04F1
+04F2		04F3
+04F4		04F5
+04F6		04F7
+04F8		04F9
+04FA		04FB
+04FC		04FD
+04FE		04FF
+0500		0501
+0502		0503
+0504		0505
+0506		0507
+0508		0509
+050A		050B
+050C		050D
+050E		050F
+0510		0511
+0512		0513
+0514		0515
+0516		0517
+0518		0519
+051A		051B
+051C		051D
+051E		051F
+0520		0521
+0522		0523
+0524		0525
+0526		0527
+0528		0529
+052A		052B
+052C		052D
+052E		052F
+0531		0561
+0532		0562
+0533		0563
+0534		0564
+0535		0565
+0536		0566
+0537		0567
+0538		0568
+0539		0569
+053A		056A
+053B		056B
+053C		056C
+053D		056D
+053E		056E
+053F		056F
+0540		0570
+0541		0571
+0542		0572
+0543		0573
+0544		0574
+0545		0575
+0546		0576
+0547		0577
+0548		0578
+0549		0579
+054A		057A
+054B		057B
+054C		057C
+054D		057D
+054E		057E
+054F		057F
+0550		0580
+0551		0581
+0552		0582
+0553		0583
+0554		0584
+0555		0585
+0556		0586
+10A0		2D00
+10A1		2D01
+10A2		2D02
+10A3		2D03
+10A4		2D04
+10A5		2D05
+10A6		2D06
+10A7		2D07
+10A8		2D08
+10A9		2D09
+10AA		2D0A
+10AB		2D0B
+10AC		2D0C
+10AD		2D0D
+10AE		2D0E
+10AF		2D0F
+10B0		2D10
+10B1		2D11
+10B2		2D12
+10B3		2D13
+10B4		2D14
+10B5		2D15
+10B6		2D16
+10B7		2D17
+10B8		2D18
+10B9		2D19
+10BA		2D1A
+10BB		2D1B
+10BC		2D1C
+10BD		2D1D
+10BE		2D1E
+10BF		2D1F
+10C0		2D20
+10C1		2D21
+10C2		2D22
+10C3		2D23
+10C4		2D24
+10C5		2D25
+10C7		2D27
+10CD		2D2D
+13A0		AB70
+13A1		AB71
+13A2		AB72
+13A3		AB73
+13A4		AB74
+13A5		AB75
+13A6		AB76
+13A7		AB77
+13A8		AB78
+13A9		AB79
+13AA		AB7A
+13AB		AB7B
+13AC		AB7C
+13AD		AB7D
+13AE		AB7E
+13AF		AB7F
+13B0		AB80
+13B1		AB81
+13B2		AB82
+13B3		AB83
+13B4		AB84
+13B5		AB85
+13B6		AB86
+13B7		AB87
+13B8		AB88
+13B9		AB89
+13BA		AB8A
+13BB		AB8B
+13BC		AB8C
+13BD		AB8D
+13BE		AB8E
+13BF		AB8F
+13C0		AB90
+13C1		AB91
+13C2		AB92
+13C3		AB93
+13C4		AB94
+13C5		AB95
+13C6		AB96
+13C7		AB97
+13C8		AB98
+13C9		AB99
+13CA		AB9A
+13CB		AB9B
+13CC		AB9C
+13CD		AB9D
+13CE		AB9E
+13CF		AB9F
+13D0		ABA0
+13D1		ABA1
+13D2		ABA2
+13D3		ABA3
+13D4		ABA4
+13D5		ABA5
+13D6		ABA6
+13D7		ABA7
+13D8		ABA8
+13D9		ABA9
+13DA		ABAA
+13DB		ABAB
+13DC		ABAC
+13DD		ABAD
+13DE		ABAE
+13DF		ABAF
+13E0		ABB0
+13E1		ABB1
+13E2		ABB2
+13E3		ABB3
+13E4		ABB4
+13E5		ABB5
+13E6		ABB6
+13E7		ABB7
+13E8		ABB8
+13E9		ABB9
+13EA		ABBA
+13EB		ABBB
+13EC		ABBC
+13ED		ABBD
+13EE		ABBE
+13EF		ABBF
+13F0		13F8
+13F1		13F9
+13F2		13FA
+13F3		13FB
+13F4		13FC
+13F5		13FD
+1E00		1E01
+1E02		1E03
+1E04		1E05
+1E06		1E07
+1E08		1E09
+1E0A		1E0B
+1E0C		1E0D
+1E0E		1E0F
+1E10		1E11
+1E12		1E13
+1E14		1E15
+1E16		1E17
+1E18		1E19
+1E1A		1E1B
+1E1C		1E1D
+1E1E		1E1F
+1E20		1E21
+1E22		1E23
+1E24		1E25
+1E26		1E27
+1E28		1E29
+1E2A		1E2B
+1E2C		1E2D
+1E2E		1E2F
+1E30		1E31
+1E32		1E33
+1E34		1E35
+1E36		1E37
+1E38		1E39
+1E3A		1E3B
+1E3C		1E3D
+1E3E		1E3F
+1E40		1E41
+1E42		1E43
+1E44		1E45
+1E46		1E47
+1E48		1E49
+1E4A		1E4B
+1E4C		1E4D
+1E4E		1E4F
+1E50		1E51
+1E52		1E53
+1E54		1E55
+1E56		1E57
+1E58		1E59
+1E5A		1E5B
+1E5C		1E5D
+1E5E		1E5F
+1E60		1E61
+1E62		1E63
+1E64		1E65
+1E66		1E67
+1E68		1E69
+1E6A		1E6B
+1E6C		1E6D
+1E6E		1E6F
+1E70		1E71
+1E72		1E73
+1E74		1E75
+1E76		1E77
+1E78		1E79
+1E7A		1E7B
+1E7C		1E7D
+1E7E		1E7F
+1E80		1E81
+1E82		1E83
+1E84		1E85
+1E86		1E87
+1E88		1E89
+1E8A		1E8B
+1E8C		1E8D
+1E8E		1E8F
+1E90		1E91
+1E92		1E93
+1E94		1E95
+1E9E		00DF
+1EA0		1EA1
+1EA2		1EA3
+1EA4		1EA5
+1EA6		1EA7
+1EA8		1EA9
+1EAA		1EAB
+1EAC		1EAD
+1EAE		1EAF
+1EB0		1EB1
+1EB2		1EB3
+1EB4		1EB5
+1EB6		1EB7
+1EB8		1EB9
+1EBA		1EBB
+1EBC		1EBD
+1EBE		1EBF
+1EC0		1EC1
+1EC2		1EC3
+1EC4		1EC5
+1EC6		1EC7
+1EC8		1EC9
+1ECA		1ECB
+1ECC		1ECD
+1ECE		1ECF
+1ED0		1ED1
+1ED2		1ED3
+1ED4		1ED5
+1ED6		1ED7
+1ED8		1ED9
+1EDA		1EDB
+1EDC		1EDD
+1EDE		1EDF
+1EE0		1EE1
+1EE2		1EE3
+1EE4		1EE5
+1EE6		1EE7
+1EE8		1EE9
+1EEA		1EEB
+1EEC		1EED
+1EEE		1EEF
+1EF0		1EF1
+1EF2		1EF3
+1EF4		1EF5
+1EF6		1EF7
+1EF8		1EF9
+1EFA		1EFB
+1EFC		1EFD
+1EFE		1EFF
+1F08		1F00
+1F09		1F01
+1F0A		1F02
+1F0B		1F03
+1F0C		1F04
+1F0D		1F05
+1F0E		1F06
+1F0F		1F07
+1F18		1F10
+1F19		1F11
+1F1A		1F12
+1F1B		1F13
+1F1C		1F14
+1F1D		1F15
+1F28		1F20
+1F29		1F21
+1F2A		1F22
+1F2B		1F23
+1F2C		1F24
+1F2D		1F25
+1F2E		1F26
+1F2F		1F27
+1F38		1F30
+1F39		1F31
+1F3A		1F32
+1F3B		1F33
+1F3C		1F34
+1F3D		1F35
+1F3E		1F36
+1F3F		1F37
+1F48		1F40
+1F49		1F41
+1F4A		1F42
+1F4B		1F43
+1F4C		1F44
+1F4D		1F45
+1F59		1F51
+1F5B		1F53
+1F5D		1F55
+1F5F		1F57
+1F68		1F60
+1F69		1F61
+1F6A		1F62
+1F6B		1F63
+1F6C		1F64
+1F6D		1F65
+1F6E		1F66
+1F6F		1F67
+1F88		1F80
+1F89		1F81
+1F8A		1F82
+1F8B		1F83
+1F8C		1F84
+1F8D		1F85
+1F8E		1F86
+1F8F		1F87
+1F98		1F90
+1F99		1F91
+1F9A		1F92
+1F9B		1F93
+1F9C		1F94
+1F9D		1F95
+1F9E		1F96
+1F9F		1F97
+1FA8		1FA0
+1FA9		1FA1
+1FAA		1FA2
+1FAB		1FA3
+1FAC		1FA4
+1FAD		1FA5
+1FAE		1FA6
+1FAF		1FA7
+1FB8		1FB0
+1FB9		1FB1
+1FBA		1F70
+1FBB		1F71
+1FBC		1FB3
+1FC8		1F72
+1FC9		1F73
+1FCA		1F74
+1FCB		1F75
+1FCC		1FC3
+1FD8		1FD0
+1FD9		1FD1
+1FDA		1F76
+1FDB		1F77
+1FE8		1FE0
+1FE9		1FE1
+1FEA		1F7A
+1FEB		1F7B
+1FEC		1FE5
+1FF8		1F78
+1FF9		1F79
+1FFA		1F7C
+1FFB		1F7D
+1FFC		1FF3
+2126		03C9
+212A		006B
+212B		00E5
+2132		214E
+2160		2170
+2161		2171
+2162		2172
+2163		2173
+2164		2174
+2165		2175
+2166		2176
+2167		2177
+2168		2178
+2169		2179
+216A		217A
+216B		217B
+216C		217C
+216D		217D
+216E		217E
+216F		217F
+2183		2184
+24B6		24D0
+24B7		24D1
+24B8		24D2
+24B9		24D3
+24BA		24D4
+24BB		24D5
+24BC		24D6
+24BD		24D7
+24BE		24D8
+24BF		24D9
+24C0		24DA
+24C1		24DB
+24C2		24DC
+24C3		24DD
+24C4		24DE
+24C5		24DF
+24C6		24E0
+24C7		24E1
+24C8		24E2
+24C9		24E3
+24CA		24E4
+24CB		24E5
+24CC		24E6
+24CD		24E7
+24CE		24E8
+24CF		24E9
+2C00		2C30
+2C01		2C31
+2C02		2C32
+2C03		2C33
+2C04		2C34
+2C05		2C35
+2C06		2C36
+2C07		2C37
+2C08		2C38
+2C09		2C39
+2C0A		2C3A
+2C0B		2C3B
+2C0C		2C3C
+2C0D		2C3D
+2C0E		2C3E
+2C0F		2C3F
+2C10		2C40
+2C11		2C41
+2C12		2C42
+2C13		2C43
+2C14		2C44
+2C15		2C45
+2C16		2C46
+2C17		2C47
+2C18		2C48
+2C19		2C49
+2C1A		2C4A
+2C1B		2C4B
+2C1C		2C4C
+2C1D		2C4D
+2C1E		2C4E
+2C1F		2C4F
+2C20		2C50
+2C21		2C51
+2C22		2C52
+2C23		2C53
+2C24		2C54
+2C25		2C55
+2C26		2C56
+2C27		2C57
+2C28		2C58
+2C29		2C59
+2C2A		2C5A
+2C2B		2C5B
+2C2C		2C5C
+2C2D		2C5D
+2C2E		2C5E
+2C60		2C61
+2C62		026B
+2C63		1D7D
+2C64		027D
+2C67		2C68
+2C69		2C6A
+2C6B		2C6C
+2C6D		0251
+2C6E		0271
+2C6F		0250
+2C70		0252
+2C72		2C73
+2C75		2C76
+2C7E		023F
+2C7F		0240
+2C80		2C81
+2C82		2C83
+2C84		2C85
+2C86		2C87
+2C88		2C89
+2C8A		2C8B
+2C8C		2C8D
+2C8E		2C8F
+2C90		2C91
+2C92		2C93
+2C94		2C95
+2C96		2C97
+2C98		2C99
+2C9A		2C9B
+2C9C		2C9D
+2C9E		2C9F
+2CA0		2CA1
+2CA2		2CA3
+2CA4		2CA5
+2CA6		2CA7
+2CA8		2CA9
+2CAA		2CAB
+2CAC		2CAD
+2CAE		2CAF
+2CB0		2CB1
+2CB2		2CB3
+2CB4		2CB5
+2CB6		2CB7
+2CB8		2CB9
+2CBA		2CBB
+2CBC		2CBD
+2CBE		2CBF
+2CC0		2CC1
+2CC2		2CC3
+2CC4		2CC5
+2CC6		2CC7
+2CC8		2CC9
+2CCA		2CCB
+2CCC		2CCD
+2CCE		2CCF
+2CD0		2CD1
+2CD2		2CD3
+2CD4		2CD5
+2CD6		2CD7
+2CD8		2CD9
+2CDA		2CDB
+2CDC		2CDD
+2CDE		2CDF
+2CE0		2CE1
+2CE2		2CE3
+2CEB		2CEC
+2CED		2CEE
+2CF2		2CF3
+A640		A641
+A642		A643
+A644		A645
+A646		A647
+A648		A649
+A64A		A64B
+A64C		A64D
+A64E		A64F
+A650		A651
+A652		A653
+A654		A655
+A656		A657
+A658		A659
+A65A		A65B
+A65C		A65D
+A65E		A65F
+A660		A661
+A662		A663
+A664		A665
+A666		A667
+A668		A669
+A66A		A66B
+A66C		A66D
+A680		A681
+A682		A683
+A684		A685
+A686		A687
+A688		A689
+A68A		A68B
+A68C		A68D
+A68E		A68F
+A690		A691
+A692		A693
+A694		A695
+A696		A697
+A698		A699
+A69A		A69B
+A722		A723
+A724		A725
+A726		A727
+A728		A729
+A72A		A72B
+A72C		A72D
+A72E		A72F
+A732		A733
+A734		A735
+A736		A737
+A738		A739
+A73A		A73B
+A73C		A73D
+A73E		A73F
+A740		A741
+A742		A743
+A744		A745
+A746		A747
+A748		A749
+A74A		A74B
+A74C		A74D
+A74E		A74F
+A750		A751
+A752		A753
+A754		A755
+A756		A757
+A758		A759
+A75A		A75B
+A75C		A75D
+A75E		A75F
+A760		A761
+A762		A763
+A764		A765
+A766		A767
+A768		A769
+A76A		A76B
+A76C		A76D
+A76E		A76F
+A779		A77A
+A77B		A77C
+A77D		1D79
+A77E		A77F
+A780		A781
+A782		A783
+A784		A785
+A786		A787
+A78B		A78C
+A78D		0265
+A790		A791
+A792		A793
+A796		A797
+A798		A799
+A79A		A79B
+A79C		A79D
+A79E		A79F
+A7A0		A7A1
+A7A2		A7A3
+A7A4		A7A5
+A7A6		A7A7
+A7A8		A7A9
+A7AA		0266
+A7AB		025C
+A7AC		0261
+A7AD		026C
+A7B0		029E
+A7B1		0287
+A7B2		029D
+A7B3		AB53
+A7B4		A7B5
+A7B6		A7B7
+FF21		FF41
+FF22		FF42
+FF23		FF43
+FF24		FF44
+FF25		FF45
+FF26		FF46
+FF27		FF47
+FF28		FF48
+FF29		FF49
+FF2A		FF4A
+FF2B		FF4B
+FF2C		FF4C
+FF2D		FF4D
+FF2E		FF4E
+FF2F		FF4F
+FF30		FF50
+FF31		FF51
+FF32		FF52
+FF33		FF53
+FF34		FF54
+FF35		FF55
+FF36		FF56
+FF37		FF57
+FF38		FF58
+FF39		FF59
+FF3A		FF5A
+10400		10428
+10401		10429
+10402		1042A
+10403		1042B
+10404		1042C
+10405		1042D
+10406		1042E
+10407		1042F
+10408		10430
+10409		10431
+1040A		10432
+1040B		10433
+1040C		10434
+1040D		10435
+1040E		10436
+1040F		10437
+10410		10438
+10411		10439
+10412		1043A
+10413		1043B
+10414		1043C
+10415		1043D
+10416		1043E
+10417		1043F
+10418		10440
+10419		10441
+1041A		10442
+1041B		10443
+1041C		10444
+1041D		10445
+1041E		10446
+1041F		10447
+10420		10448
+10421		10449
+10422		1044A
+10423		1044B
+10424		1044C
+10425		1044D
+10426		1044E
+10427		1044F
+10C80		10CC0
+10C81		10CC1
+10C82		10CC2
+10C83		10CC3
+10C84		10CC4
+10C85		10CC5
+10C86		10CC6
+10C87		10CC7
+10C88		10CC8
+10C89		10CC9
+10C8A		10CCA
+10C8B		10CCB
+10C8C		10CCC
+10C8D		10CCD
+10C8E		10CCE
+10C8F		10CCF
+10C90		10CD0
+10C91		10CD1
+10C92		10CD2
+10C93		10CD3
+10C94		10CD4
+10C95		10CD5
+10C96		10CD6
+10C97		10CD7
+10C98		10CD8
+10C99		10CD9
+10C9A		10CDA
+10C9B		10CDB
+10C9C		10CDC
+10C9D		10CDD
+10C9E		10CDE
+10C9F		10CDF
+10CA0		10CE0
+10CA1		10CE1
+10CA2		10CE2
+10CA3		10CE3
+10CA4		10CE4
+10CA5		10CE5
+10CA6		10CE6
+10CA7		10CE7
+10CA8		10CE8
+10CA9		10CE9
+10CAA		10CEA
+10CAB		10CEB
+10CAC		10CEC
+10CAD		10CED
+10CAE		10CEE
+10CAF		10CEF
+10CB0		10CF0
+10CB1		10CF1
+10CB2		10CF2
+118A0		118C0
+118A1		118C1
+118A2		118C2
+118A3		118C3
+118A4		118C4
+118A5		118C5
+118A6		118C6
+118A7		118C7
+118A8		118C8
+118A9		118C9
+118AA		118CA
+118AB		118CB
+118AC		118CC
+118AD		118CD
+118AE		118CE
+118AF		118CF
+118B0		118D0
+118B1		118D1
+118B2		118D2
+118B3		118D3
+118B4		118D4
+118B5		118D5
+118B6		118D6
+118B7		118D7
+118B8		118D8
+118B9		118D9
+118BA		118DA
+118BB		118DB
+118BC		118DC
+118BD		118DD
+118BE		118DE
+118BF		118DF
+END
diff --git a/lib/5.24.1/unicore/To/NFCQC.pl b/lib/5.24.1/unicore/To/NFCQC.pl
new file mode 100644
index 00000000..b4106633
--- /dev/null
+++ b/lib/5.24.1/unicore/To/NFCQC.pl
@@ -0,0 +1,134 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToNFCQC'}{'format'} = 's'; # string
+$utf8::SwashInfo{'ToNFCQC'}{'missing'} = 'Yes';
+
+return <<'END';
+300	304	M
+306	30C	M
+30F		M
+311		M
+313	314	M
+31B		M
+323	328	M
+32D	32E	M
+330	331	M
+338		M
+340	341	N
+342		M
+343	344	N
+345		M
+374		N
+37E		N
+387		N
+653	655	M
+93C		M
+958	95F	N
+9BE		M
+9D7		M
+9DC	9DD	N
+9DF		N
+A33		N
+A36		N
+A59	A5B	N
+A5E		N
+B3E		M
+B56	B57	M
+B5C	B5D	N
+BBE		M
+BD7		M
+C56		M
+CC2		M
+CD5	CD6	M
+D3E		M
+D57		M
+DCA		M
+DCF		M
+DDF		M
+F43		N
+F4D		N
+F52		N
+F57		N
+F5C		N
+F69		N
+F73		N
+F75	F76	N
+F78		N
+F81		N
+F93		N
+F9D		N
+FA2		N
+FA7		N
+FAC		N
+FB9		N
+102E		M
+1161	1175	M
+11A8	11C2	M
+1B35		M
+1F71		N
+1F73		N
+1F75		N
+1F77		N
+1F79		N
+1F7B		N
+1F7D		N
+1FBB		N
+1FBE		N
+1FC9		N
+1FCB		N
+1FD3		N
+1FDB		N
+1FE3		N
+1FEB		N
+1FEE	1FEF	N
+1FF9		N
+1FFB		N
+1FFD		N
+2000	2001	N
+2126		N
+212A	212B	N
+2329	232A	N
+2ADC		N
+3099	309A	M
+F900	FA0D	N
+FA10		N
+FA12		N
+FA15	FA1E	N
+FA20		N
+FA22		N
+FA25	FA26	N
+FA2A	FA6D	N
+FA70	FAD9	N
+FB1D		N
+FB1F		N
+FB2A	FB36	N
+FB38	FB3C	N
+FB3E		N
+FB40	FB41	N
+FB43	FB44	N
+FB46	FB4E	N
+110BA		M
+11127		M
+1133E		M
+11357		M
+114B0		M
+114BA		M
+114BD		M
+115AF		M
+1D15E	1D164	N
+1D1BB	1D1C0	N
+2F800	2FA1D	N
+END
diff --git a/lib/5.24.1/unicore/To/NFDQC.pl b/lib/5.24.1/unicore/To/NFDQC.pl
new file mode 100644
index 00000000..f755701a
--- /dev/null
+++ b/lib/5.24.1/unicore/To/NFDQC.pl
@@ -0,0 +1,251 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToNFDQC'}{'format'} = 's'; # string
+$utf8::SwashInfo{'ToNFDQC'}{'missing'} = 'Yes';
+
+return <<'END';
+C0	C5	N
+C7	CF	N
+D1	D6	N
+D9	DD	N
+E0	E5	N
+E7	EF	N
+F1	F6	N
+F9	FD	N
+FF	10F	N
+112	125	N
+128	130	N
+134	137	N
+139	13E	N
+143	148	N
+14C	151	N
+154	165	N
+168	17E	N
+1A0	1A1	N
+1AF	1B0	N
+1CD	1DC	N
+1DE	1E3	N
+1E6	1F0	N
+1F4	1F5	N
+1F8	21B	N
+21E	21F	N
+226	233	N
+340	341	N
+343	344	N
+374		N
+37E		N
+385	38A	N
+38C		N
+38E	390	N
+3AA	3B0	N
+3CA	3CE	N
+3D3	3D4	N
+400	401	N
+403		N
+407		N
+40C	40E	N
+419		N
+439		N
+450	451	N
+453		N
+457		N
+45C	45E	N
+476	477	N
+4C1	4C2	N
+4D0	4D3	N
+4D6	4D7	N
+4DA	4DF	N
+4E2	4E7	N
+4EA	4F5	N
+4F8	4F9	N
+622	626	N
+6C0		N
+6C2		N
+6D3		N
+929		N
+931		N
+934		N
+958	95F	N
+9CB	9CC	N
+9DC	9DD	N
+9DF		N
+A33		N
+A36		N
+A59	A5B	N
+A5E		N
+B48		N
+B4B	B4C	N
+B5C	B5D	N
+B94		N
+BCA	BCC	N
+C48		N
+CC0		N
+CC7	CC8	N
+CCA	CCB	N
+D4A	D4C	N
+DDA		N
+DDC	DDE	N
+F43		N
+F4D		N
+F52		N
+F57		N
+F5C		N
+F69		N
+F73		N
+F75	F76	N
+F78		N
+F81		N
+F93		N
+F9D		N
+FA2		N
+FA7		N
+FAC		N
+FB9		N
+1026		N
+1B06		N
+1B08		N
+1B0A		N
+1B0C		N
+1B0E		N
+1B12		N
+1B3B		N
+1B3D		N
+1B40	1B41	N
+1B43		N
+1E00	1E99	N
+1E9B		N
+1EA0	1EF9	N
+1F00	1F15	N
+1F18	1F1D	N
+1F20	1F45	N
+1F48	1F4D	N
+1F50	1F57	N
+1F59		N
+1F5B		N
+1F5D		N
+1F5F	1F7D	N
+1F80	1FB4	N
+1FB6	1FBC	N
+1FBE		N
+1FC1	1FC4	N
+1FC6	1FD3	N
+1FD6	1FDB	N
+1FDD	1FEF	N
+1FF2	1FF4	N
+1FF6	1FFD	N
+2000	2001	N
+2126		N
+212A	212B	N
+219A	219B	N
+21AE		N
+21CD	21CF	N
+2204		N
+2209		N
+220C		N
+2224		N
+2226		N
+2241		N
+2244		N
+2247		N
+2249		N
+2260		N
+2262		N
+226D	2271	N
+2274	2275	N
+2278	2279	N
+2280	2281	N
+2284	2285	N
+2288	2289	N
+22AC	22AF	N
+22E0	22E3	N
+22EA	22ED	N
+2329	232A	N
+2ADC		N
+304C		N
+304E		N
+3050		N
+3052		N
+3054		N
+3056		N
+3058		N
+305A		N
+305C		N
+305E		N
+3060		N
+3062		N
+3065		N
+3067		N
+3069		N
+3070	3071	N
+3073	3074	N
+3076	3077	N
+3079	307A	N
+307C	307D	N
+3094		N
+309E		N
+30AC		N
+30AE		N
+30B0		N
+30B2		N
+30B4		N
+30B6		N
+30B8		N
+30BA		N
+30BC		N
+30BE		N
+30C0		N
+30C2		N
+30C5		N
+30C7		N
+30C9		N
+30D0	30D1	N
+30D3	30D4	N
+30D6	30D7	N
+30D9	30DA	N
+30DC	30DD	N
+30F4		N
+30F7	30FA	N
+30FE		N
+AC00	D7A3	N
+F900	FA0D	N
+FA10		N
+FA12		N
+FA15	FA1E	N
+FA20		N
+FA22		N
+FA25	FA26	N
+FA2A	FA6D	N
+FA70	FAD9	N
+FB1D		N
+FB1F		N
+FB2A	FB36	N
+FB38	FB3C	N
+FB3E		N
+FB40	FB41	N
+FB43	FB44	N
+FB46	FB4E	N
+1109A		N
+1109C		N
+110AB		N
+1112E	1112F	N
+1134B	1134C	N
+114BB	114BC	N
+114BE		N
+115BA	115BB	N
+1D15E	1D164	N
+1D1BB	1D1C0	N
+2F800	2FA1D	N
+END
diff --git a/lib/5.24.1/unicore/To/NFKCCF.pl b/lib/5.24.1/unicore/To/NFKCCF.pl
new file mode 100644
index 00000000..24b6ad53
--- /dev/null
+++ b/lib/5.24.1/unicore/To/NFKCCF.pl
@@ -0,0 +1,10181 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   IT IS DEPRECATED TO USE THIS FILE   !!!!!!!
+
+# This file is for internal use by core Perl only.  It is retained for
+# backwards compatibility with applications that may have come to rely on it,
+# but its format and even its name or existence are subject to change without
+# notice in a future Perl version.  Don't use it directly.  Instead, its
+# contents are now retrievable through a stable API in the Unicode::UCD
+# module: Unicode::UCD::prop_invmap('NFKC_Casefold') (Values for individual
+# code points can be retrieved via Unicode::UCD::charprop());
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToNFKCCF'}{'format'} = 'x'; # non-negative hex whole number; a code point
+$utf8::SwashInfo{'ToNFKCCF'}{'specials_name'} = 'utf8::ToSpecNFKCCF'; # Name of hash of special mappings
+$utf8::SwashInfo{'ToNFKCCF'}{'missing'} = '<code point>'; # code point maps to itself
+
+# Some code points require special handling because their mappings are each to
+# multiple code points.  These do not appear in the main body, but are defined
+# in the hash below.
+
+# Each key is the string of N bytes that together make up the UTF-8 encoding
+# for the code point.  (i.e. the same as looking at the code point's UTF-8
+# under "use bytes").  Each value is the UTF-8 of the translation, for speed.
+%utf8::ToSpecNFKCCF = (
+"\xC2\xA8" => "\x{0020}\x{0308}",             # U+00A8 => 0020 0308
+"\xC2\xAD" => "",                             # U+00AD => 
+"\xC2\xAF" => "\x{0020}\x{0304}",             # U+00AF => 0020 0304
+"\xC2\xB4" => "\x{0020}\x{0301}",             # U+00B4 => 0020 0301
+"\xC2\xB8" => "\x{0020}\x{0327}",             # U+00B8 => 0020 0327
+"\xC2\xBC" => "\x{0031}\x{2044}\x{0034}",     # U+00BC => 0031 2044 0034
+"\xC2\xBD" => "\x{0031}\x{2044}\x{0032}",     # U+00BD => 0031 2044 0032
+"\xC2\xBE" => "\x{0033}\x{2044}\x{0034}",     # U+00BE => 0033 2044 0034
+"\xC3\x9F" => "\x{0073}\x{0073}",             # U+00DF => 0073 0073
+"\xC4\xB0" => "\x{0069}\x{0307}",             # U+0130 => 0069 0307
+"\xC4\xB2" => "\x{0069}\x{006A}",             # U+0132 => 0069 006A
+"\xC4\xB3" => "\x{0069}\x{006A}",             # U+0133 => 0069 006A
+"\xC4\xBF" => "\x{006C}\x{00B7}",             # U+013F => 006C 00B7
+"\xC5\x80" => "\x{006C}\x{00B7}",             # U+0140 => 006C 00B7
+"\xC5\x89" => "\x{02BC}\x{006E}",             # U+0149 => 02BC 006E
+"\xC7\x84" => "\x{0064}\x{017E}",             # U+01C4 => 0064 017E
+"\xC7\x85" => "\x{0064}\x{017E}",             # U+01C5 => 0064 017E
+"\xC7\x86" => "\x{0064}\x{017E}",             # U+01C6 => 0064 017E
+"\xC7\x87" => "\x{006C}\x{006A}",             # U+01C7 => 006C 006A
+"\xC7\x88" => "\x{006C}\x{006A}",             # U+01C8 => 006C 006A
+"\xC7\x89" => "\x{006C}\x{006A}",             # U+01C9 => 006C 006A
+"\xC7\x8A" => "\x{006E}\x{006A}",             # U+01CA => 006E 006A
+"\xC7\x8B" => "\x{006E}\x{006A}",             # U+01CB => 006E 006A
+"\xC7\x8C" => "\x{006E}\x{006A}",             # U+01CC => 006E 006A
+"\xC7\xB1" => "\x{0064}\x{007A}",             # U+01F1 => 0064 007A
+"\xC7\xB2" => "\x{0064}\x{007A}",             # U+01F2 => 0064 007A
+"\xC7\xB3" => "\x{0064}\x{007A}",             # U+01F3 => 0064 007A
+"\xCB\x98" => "\x{0020}\x{0306}",             # U+02D8 => 0020 0306
+"\xCB\x99" => "\x{0020}\x{0307}",             # U+02D9 => 0020 0307
+"\xCB\x9A" => "\x{0020}\x{030A}",             # U+02DA => 0020 030A
+"\xCB\x9B" => "\x{0020}\x{0328}",             # U+02DB => 0020 0328
+"\xCB\x9C" => "\x{0020}\x{0303}",             # U+02DC => 0020 0303
+"\xCB\x9D" => "\x{0020}\x{030B}",             # U+02DD => 0020 030B
+"\xCD\x84" => "\x{0308}\x{0301}",             # U+0344 => 0308 0301
+"\xCD\x8F" => "",                             # U+034F => 
+"\xCD\xBA" => "\x{0020}\x{03B9}",             # U+037A => 0020 03B9
+"\xCE\x84" => "\x{0020}\x{0301}",             # U+0384 => 0020 0301
+"\xCE\x85" => "\x{0020}\x{0308}\x{0301}",     # U+0385 => 0020 0308 0301
+"\xD6\x87" => "\x{0565}\x{0582}",             # U+0587 => 0565 0582
+"\xD8\x9C" => "",                             # U+061C => 
+"\xD9\xB5" => "\x{0627}\x{0674}",             # U+0675 => 0627 0674
+"\xD9\xB6" => "\x{0648}\x{0674}",             # U+0676 => 0648 0674
+"\xD9\xB7" => "\x{06C7}\x{0674}",             # U+0677 => 06C7 0674
+"\xD9\xB8" => "\x{064A}\x{0674}",             # U+0678 => 064A 0674
+"\xE0\xA5\x98" => "\x{0915}\x{093C}",         # U+0958 => 0915 093C
+"\xE0\xA5\x99" => "\x{0916}\x{093C}",         # U+0959 => 0916 093C
+"\xE0\xA5\x9A" => "\x{0917}\x{093C}",         # U+095A => 0917 093C
+"\xE0\xA5\x9B" => "\x{091C}\x{093C}",         # U+095B => 091C 093C
+"\xE0\xA5\x9C" => "\x{0921}\x{093C}",         # U+095C => 0921 093C
+"\xE0\xA5\x9D" => "\x{0922}\x{093C}",         # U+095D => 0922 093C
+"\xE0\xA5\x9E" => "\x{092B}\x{093C}",         # U+095E => 092B 093C
+"\xE0\xA5\x9F" => "\x{092F}\x{093C}",         # U+095F => 092F 093C
+"\xE0\xA7\x9C" => "\x{09A1}\x{09BC}",         # U+09DC => 09A1 09BC
+"\xE0\xA7\x9D" => "\x{09A2}\x{09BC}",         # U+09DD => 09A2 09BC
+"\xE0\xA7\x9F" => "\x{09AF}\x{09BC}",         # U+09DF => 09AF 09BC
+"\xE0\xA8\xB3" => "\x{0A32}\x{0A3C}",         # U+0A33 => 0A32 0A3C
+"\xE0\xA8\xB6" => "\x{0A38}\x{0A3C}",         # U+0A36 => 0A38 0A3C
+"\xE0\xA9\x99" => "\x{0A16}\x{0A3C}",         # U+0A59 => 0A16 0A3C
+"\xE0\xA9\x9A" => "\x{0A17}\x{0A3C}",         # U+0A5A => 0A17 0A3C
+"\xE0\xA9\x9B" => "\x{0A1C}\x{0A3C}",         # U+0A5B => 0A1C 0A3C
+"\xE0\xA9\x9E" => "\x{0A2B}\x{0A3C}",         # U+0A5E => 0A2B 0A3C
+"\xE0\xAD\x9C" => "\x{0B21}\x{0B3C}",         # U+0B5C => 0B21 0B3C
+"\xE0\xAD\x9D" => "\x{0B22}\x{0B3C}",         # U+0B5D => 0B22 0B3C
+"\xE0\xB8\xB3" => "\x{0E4D}\x{0E32}",         # U+0E33 => 0E4D 0E32
+"\xE0\xBA\xB3" => "\x{0ECD}\x{0EB2}",         # U+0EB3 => 0ECD 0EB2
+"\xE0\xBB\x9C" => "\x{0EAB}\x{0E99}",         # U+0EDC => 0EAB 0E99
+"\xE0\xBB\x9D" => "\x{0EAB}\x{0EA1}",         # U+0EDD => 0EAB 0EA1
+"\xE0\xBD\x83" => "\x{0F42}\x{0FB7}",         # U+0F43 => 0F42 0FB7
+"\xE0\xBD\x8D" => "\x{0F4C}\x{0FB7}",         # U+0F4D => 0F4C 0FB7
+"\xE0\xBD\x92" => "\x{0F51}\x{0FB7}",         # U+0F52 => 0F51 0FB7
+"\xE0\xBD\x97" => "\x{0F56}\x{0FB7}",         # U+0F57 => 0F56 0FB7
+"\xE0\xBD\x9C" => "\x{0F5B}\x{0FB7}",         # U+0F5C => 0F5B 0FB7
+"\xE0\xBD\xA9" => "\x{0F40}\x{0FB5}",         # U+0F69 => 0F40 0FB5
+"\xE0\xBD\xB3" => "\x{0F71}\x{0F72}",         # U+0F73 => 0F71 0F72
+"\xE0\xBD\xB5" => "\x{0F71}\x{0F74}",         # U+0F75 => 0F71 0F74
+"\xE0\xBD\xB6" => "\x{0FB2}\x{0F80}",         # U+0F76 => 0FB2 0F80
+"\xE0\xBD\xB7" => "\x{0FB2}\x{0F71}\x{0F80}", # U+0F77 => 0FB2 0F71 0F80
+"\xE0\xBD\xB8" => "\x{0FB3}\x{0F80}",         # U+0F78 => 0FB3 0F80
+"\xE0\xBD\xB9" => "\x{0FB3}\x{0F71}\x{0F80}", # U+0F79 => 0FB3 0F71 0F80
+"\xE0\xBE\x81" => "\x{0F71}\x{0F80}",         # U+0F81 => 0F71 0F80
+"\xE0\xBE\x93" => "\x{0F92}\x{0FB7}",         # U+0F93 => 0F92 0FB7
+"\xE0\xBE\x9D" => "\x{0F9C}\x{0FB7}",         # U+0F9D => 0F9C 0FB7
+"\xE0\xBE\xA2" => "\x{0FA1}\x{0FB7}",         # U+0FA2 => 0FA1 0FB7
+"\xE0\xBE\xA7" => "\x{0FA6}\x{0FB7}",         # U+0FA7 => 0FA6 0FB7
+"\xE0\xBE\xAC" => "\x{0FAB}\x{0FB7}",         # U+0FAC => 0FAB 0FB7
+"\xE0\xBE\xB9" => "\x{0F90}\x{0FB5}",         # U+0FB9 => 0F90 0FB5
+"\xE1\x85\x9F" => "",                         # U+115F => 
+"\xE1\x85\xA0" => "",                         # U+1160 => 
+"\xE1\x9E\xB4" => "",                         # U+17B4 => 
+"\xE1\x9E\xB5" => "",                         # U+17B5 => 
+"\xE1\xA0\x8B" => "",                         # U+180B => 
+"\xE1\xA0\x8C" => "",                         # U+180C => 
+"\xE1\xA0\x8D" => "",                         # U+180D => 
+"\xE1\xA0\x8E" => "",                         # U+180E => 
+"\xE1\xBA\x9A" => "\x{0061}\x{02BE}",         # U+1E9A => 0061 02BE
+"\xE1\xBA\x9E" => "\x{0073}\x{0073}",         # U+1E9E => 0073 0073
+"\xE1\xBE\x80" => "\x{1F00}\x{03B9}",         # U+1F80 => 1F00 03B9
+"\xE1\xBE\x81" => "\x{1F01}\x{03B9}",         # U+1F81 => 1F01 03B9
+"\xE1\xBE\x82" => "\x{1F02}\x{03B9}",         # U+1F82 => 1F02 03B9
+"\xE1\xBE\x83" => "\x{1F03}\x{03B9}",         # U+1F83 => 1F03 03B9
+"\xE1\xBE\x84" => "\x{1F04}\x{03B9}",         # U+1F84 => 1F04 03B9
+"\xE1\xBE\x85" => "\x{1F05}\x{03B9}",         # U+1F85 => 1F05 03B9
+"\xE1\xBE\x86" => "\x{1F06}\x{03B9}",         # U+1F86 => 1F06 03B9
+"\xE1\xBE\x87" => "\x{1F07}\x{03B9}",         # U+1F87 => 1F07 03B9
+"\xE1\xBE\x88" => "\x{1F00}\x{03B9}",         # U+1F88 => 1F00 03B9
+"\xE1\xBE\x89" => "\x{1F01}\x{03B9}",         # U+1F89 => 1F01 03B9
+"\xE1\xBE\x8A" => "\x{1F02}\x{03B9}",         # U+1F8A => 1F02 03B9
+"\xE1\xBE\x8B" => "\x{1F03}\x{03B9}",         # U+1F8B => 1F03 03B9
+"\xE1\xBE\x8C" => "\x{1F04}\x{03B9}",         # U+1F8C => 1F04 03B9
+"\xE1\xBE\x8D" => "\x{1F05}\x{03B9}",         # U+1F8D => 1F05 03B9
+"\xE1\xBE\x8E" => "\x{1F06}\x{03B9}",         # U+1F8E => 1F06 03B9
+"\xE1\xBE\x8F" => "\x{1F07}\x{03B9}",         # U+1F8F => 1F07 03B9
+"\xE1\xBE\x90" => "\x{1F20}\x{03B9}",         # U+1F90 => 1F20 03B9
+"\xE1\xBE\x91" => "\x{1F21}\x{03B9}",         # U+1F91 => 1F21 03B9
+"\xE1\xBE\x92" => "\x{1F22}\x{03B9}",         # U+1F92 => 1F22 03B9
+"\xE1\xBE\x93" => "\x{1F23}\x{03B9}",         # U+1F93 => 1F23 03B9
+"\xE1\xBE\x94" => "\x{1F24}\x{03B9}",         # U+1F94 => 1F24 03B9
+"\xE1\xBE\x95" => "\x{1F25}\x{03B9}",         # U+1F95 => 1F25 03B9
+"\xE1\xBE\x96" => "\x{1F26}\x{03B9}",         # U+1F96 => 1F26 03B9
+"\xE1\xBE\x97" => "\x{1F27}\x{03B9}",         # U+1F97 => 1F27 03B9
+"\xE1\xBE\x98" => "\x{1F20}\x{03B9}",         # U+1F98 => 1F20 03B9
+"\xE1\xBE\x99" => "\x{1F21}\x{03B9}",         # U+1F99 => 1F21 03B9
+"\xE1\xBE\x9A" => "\x{1F22}\x{03B9}",         # U+1F9A => 1F22 03B9
+"\xE1\xBE\x9B" => "\x{1F23}\x{03B9}",         # U+1F9B => 1F23 03B9
+"\xE1\xBE\x9C" => "\x{1F24}\x{03B9}",         # U+1F9C => 1F24 03B9
+"\xE1\xBE\x9D" => "\x{1F25}\x{03B9}",         # U+1F9D => 1F25 03B9
+"\xE1\xBE\x9E" => "\x{1F26}\x{03B9}",         # U+1F9E => 1F26 03B9
+"\xE1\xBE\x9F" => "\x{1F27}\x{03B9}",         # U+1F9F => 1F27 03B9
+"\xE1\xBE\xA0" => "\x{1F60}\x{03B9}",         # U+1FA0 => 1F60 03B9
+"\xE1\xBE\xA1" => "\x{1F61}\x{03B9}",         # U+1FA1 => 1F61 03B9
+"\xE1\xBE\xA2" => "\x{1F62}\x{03B9}",         # U+1FA2 => 1F62 03B9
+"\xE1\xBE\xA3" => "\x{1F63}\x{03B9}",         # U+1FA3 => 1F63 03B9
+"\xE1\xBE\xA4" => "\x{1F64}\x{03B9}",         # U+1FA4 => 1F64 03B9
+"\xE1\xBE\xA5" => "\x{1F65}\x{03B9}",         # U+1FA5 => 1F65 03B9
+"\xE1\xBE\xA6" => "\x{1F66}\x{03B9}",         # U+1FA6 => 1F66 03B9
+"\xE1\xBE\xA7" => "\x{1F67}\x{03B9}",         # U+1FA7 => 1F67 03B9
+"\xE1\xBE\xA8" => "\x{1F60}\x{03B9}",         # U+1FA8 => 1F60 03B9
+"\xE1\xBE\xA9" => "\x{1F61}\x{03B9}",         # U+1FA9 => 1F61 03B9
+"\xE1\xBE\xAA" => "\x{1F62}\x{03B9}",         # U+1FAA => 1F62 03B9
+"\xE1\xBE\xAB" => "\x{1F63}\x{03B9}",         # U+1FAB => 1F63 03B9
+"\xE1\xBE\xAC" => "\x{1F64}\x{03B9}",         # U+1FAC => 1F64 03B9
+"\xE1\xBE\xAD" => "\x{1F65}\x{03B9}",         # U+1FAD => 1F65 03B9
+"\xE1\xBE\xAE" => "\x{1F66}\x{03B9}",         # U+1FAE => 1F66 03B9
+"\xE1\xBE\xAF" => "\x{1F67}\x{03B9}",         # U+1FAF => 1F67 03B9
+"\xE1\xBE\xB2" => "\x{1F70}\x{03B9}",         # U+1FB2 => 1F70 03B9
+"\xE1\xBE\xB3" => "\x{03B1}\x{03B9}",         # U+1FB3 => 03B1 03B9
+"\xE1\xBE\xB4" => "\x{03AC}\x{03B9}",         # U+1FB4 => 03AC 03B9
+"\xE1\xBE\xB7" => "\x{1FB6}\x{03B9}",         # U+1FB7 => 1FB6 03B9
+"\xE1\xBE\xBC" => "\x{03B1}\x{03B9}",         # U+1FBC => 03B1 03B9
+"\xE1\xBE\xBD" => "\x{0020}\x{0313}",         # U+1FBD => 0020 0313
+"\xE1\xBE\xBF" => "\x{0020}\x{0313}",         # U+1FBF => 0020 0313
+"\xE1\xBF\x80" => "\x{0020}\x{0342}",         # U+1FC0 => 0020 0342
+"\xE1\xBF\x81" => "\x{0020}\x{0308}\x{0342}", # U+1FC1 => 0020 0308 0342
+"\xE1\xBF\x82" => "\x{1F74}\x{03B9}",         # U+1FC2 => 1F74 03B9
+"\xE1\xBF\x83" => "\x{03B7}\x{03B9}",         # U+1FC3 => 03B7 03B9
+"\xE1\xBF\x84" => "\x{03AE}\x{03B9}",         # U+1FC4 => 03AE 03B9
+"\xE1\xBF\x87" => "\x{1FC6}\x{03B9}",         # U+1FC7 => 1FC6 03B9
+"\xE1\xBF\x8C" => "\x{03B7}\x{03B9}",         # U+1FCC => 03B7 03B9
+"\xE1\xBF\x8D" => "\x{0020}\x{0313}\x{0300}", # U+1FCD => 0020 0313 0300
+"\xE1\xBF\x8E" => "\x{0020}\x{0313}\x{0301}", # U+1FCE => 0020 0313 0301
+"\xE1\xBF\x8F" => "\x{0020}\x{0313}\x{0342}", # U+1FCF => 0020 0313 0342
+"\xE1\xBF\x9D" => "\x{0020}\x{0314}\x{0300}", # U+1FDD => 0020 0314 0300
+"\xE1\xBF\x9E" => "\x{0020}\x{0314}\x{0301}", # U+1FDE => 0020 0314 0301
+"\xE1\xBF\x9F" => "\x{0020}\x{0314}\x{0342}", # U+1FDF => 0020 0314 0342
+"\xE1\xBF\xAD" => "\x{0020}\x{0308}\x{0300}", # U+1FED => 0020 0308 0300
+"\xE1\xBF\xAE" => "\x{0020}\x{0308}\x{0301}", # U+1FEE => 0020 0308 0301
+"\xE1\xBF\xB2" => "\x{1F7C}\x{03B9}",         # U+1FF2 => 1F7C 03B9
+"\xE1\xBF\xB3" => "\x{03C9}\x{03B9}",         # U+1FF3 => 03C9 03B9
+"\xE1\xBF\xB4" => "\x{03CE}\x{03B9}",         # U+1FF4 => 03CE 03B9
+"\xE1\xBF\xB7" => "\x{1FF6}\x{03B9}",         # U+1FF7 => 1FF6 03B9
+"\xE1\xBF\xBC" => "\x{03C9}\x{03B9}",         # U+1FFC => 03C9 03B9
+"\xE1\xBF\xBD" => "\x{0020}\x{0301}",         # U+1FFD => 0020 0301
+"\xE1\xBF\xBE" => "\x{0020}\x{0314}",         # U+1FFE => 0020 0314
+"\xE2\x80\x8B" => "",                         # U+200B => 
+"\xE2\x80\x8C" => "",                         # U+200C => 
+"\xE2\x80\x8D" => "",                         # U+200D => 
+"\xE2\x80\x8E" => "",                         # U+200E => 
+"\xE2\x80\x8F" => "",                         # U+200F => 
+"\xE2\x80\x97" => "\x{0020}\x{0333}",         # U+2017 => 0020 0333
+"\xE2\x80\xA5" => "\x{002E}\x{002E}",         # U+2025 => 002E 002E
+"\xE2\x80\xA6" => "\x{002E}\x{002E}\x{002E}", # U+2026 => 002E 002E 002E
+"\xE2\x80\xAA" => "",                         # U+202A => 
+"\xE2\x80\xAB" => "",                         # U+202B => 
+"\xE2\x80\xAC" => "",                         # U+202C => 
+"\xE2\x80\xAD" => "",                         # U+202D => 
+"\xE2\x80\xAE" => "",                         # U+202E => 
+"\xE2\x80\xB3" => "\x{2032}\x{2032}",         # U+2033 => 2032 2032
+"\xE2\x80\xB4" => "\x{2032}\x{2032}\x{2032}", # U+2034 => 2032 2032 2032
+"\xE2\x80\xB6" => "\x{2035}\x{2035}",         # U+2036 => 2035 2035
+"\xE2\x80\xB7" => "\x{2035}\x{2035}\x{2035}", # U+2037 => 2035 2035 2035
+"\xE2\x80\xBC" => "\x{0021}\x{0021}",         # U+203C => 0021 0021
+"\xE2\x80\xBE" => "\x{0020}\x{0305}",         # U+203E => 0020 0305
+"\xE2\x81\x87" => "\x{003F}\x{003F}",         # U+2047 => 003F 003F
+"\xE2\x81\x88" => "\x{003F}\x{0021}",         # U+2048 => 003F 0021
+"\xE2\x81\x89" => "\x{0021}\x{003F}",         # U+2049 => 0021 003F
+"\xE2\x81\x97" => "\x{2032}\x{2032}\x{2032}\x{2032}", # U+2057 => 2032 2032 2032 2032
+"\xE2\x81\xA0" => "",                         # U+2060 => 
+"\xE2\x81\xA1" => "",                         # U+2061 => 
+"\xE2\x81\xA2" => "",                         # U+2062 => 
+"\xE2\x81\xA3" => "",                         # U+2063 => 
+"\xE2\x81\xA4" => "",                         # U+2064 => 
+"\xE2\x81\xA5" => "",                         # U+2065 => 
+"\xE2\x81\xA6" => "",                         # U+2066 => 
+"\xE2\x81\xA7" => "",                         # U+2067 => 
+"\xE2\x81\xA8" => "",                         # U+2068 => 
+"\xE2\x81\xA9" => "",                         # U+2069 => 
+"\xE2\x81\xAA" => "",                         # U+206A => 
+"\xE2\x81\xAB" => "",                         # U+206B => 
+"\xE2\x81\xAC" => "",                         # U+206C => 
+"\xE2\x81\xAD" => "",                         # U+206D => 
+"\xE2\x81\xAE" => "",                         # U+206E => 
+"\xE2\x81\xAF" => "",                         # U+206F => 
+"\xE2\x82\xA8" => "\x{0072}\x{0073}",         # U+20A8 => 0072 0073
+"\xE2\x84\x80" => "\x{0061}\x{002F}\x{0063}", # U+2100 => 0061 002F 0063
+"\xE2\x84\x81" => "\x{0061}\x{002F}\x{0073}", # U+2101 => 0061 002F 0073
+"\xE2\x84\x83" => "\x{00B0}\x{0063}",         # U+2103 => 00B0 0063
+"\xE2\x84\x85" => "\x{0063}\x{002F}\x{006F}", # U+2105 => 0063 002F 006F
+"\xE2\x84\x86" => "\x{0063}\x{002F}\x{0075}", # U+2106 => 0063 002F 0075
+"\xE2\x84\x89" => "\x{00B0}\x{0066}",         # U+2109 => 00B0 0066
+"\xE2\x84\x96" => "\x{006E}\x{006F}",         # U+2116 => 006E 006F
+"\xE2\x84\xA0" => "\x{0073}\x{006D}",         # U+2120 => 0073 006D
+"\xE2\x84\xA1" => "\x{0074}\x{0065}\x{006C}", # U+2121 => 0074 0065 006C
+"\xE2\x84\xA2" => "\x{0074}\x{006D}",         # U+2122 => 0074 006D
+"\xE2\x84\xBB" => "\x{0066}\x{0061}\x{0078}", # U+213B => 0066 0061 0078
+"\xE2\x85\x90" => "\x{0031}\x{2044}\x{0037}", # U+2150 => 0031 2044 0037
+"\xE2\x85\x91" => "\x{0031}\x{2044}\x{0039}", # U+2151 => 0031 2044 0039
+"\xE2\x85\x92" => "\x{0031}\x{2044}\x{0031}\x{0030}", # U+2152 => 0031 2044 0031 0030
+"\xE2\x85\x93" => "\x{0031}\x{2044}\x{0033}", # U+2153 => 0031 2044 0033
+"\xE2\x85\x94" => "\x{0032}\x{2044}\x{0033}", # U+2154 => 0032 2044 0033
+"\xE2\x85\x95" => "\x{0031}\x{2044}\x{0035}", # U+2155 => 0031 2044 0035
+"\xE2\x85\x96" => "\x{0032}\x{2044}\x{0035}", # U+2156 => 0032 2044 0035
+"\xE2\x85\x97" => "\x{0033}\x{2044}\x{0035}", # U+2157 => 0033 2044 0035
+"\xE2\x85\x98" => "\x{0034}\x{2044}\x{0035}", # U+2158 => 0034 2044 0035
+"\xE2\x85\x99" => "\x{0031}\x{2044}\x{0036}", # U+2159 => 0031 2044 0036
+"\xE2\x85\x9A" => "\x{0035}\x{2044}\x{0036}", # U+215A => 0035 2044 0036
+"\xE2\x85\x9B" => "\x{0031}\x{2044}\x{0038}", # U+215B => 0031 2044 0038
+"\xE2\x85\x9C" => "\x{0033}\x{2044}\x{0038}", # U+215C => 0033 2044 0038
+"\xE2\x85\x9D" => "\x{0035}\x{2044}\x{0038}", # U+215D => 0035 2044 0038
+"\xE2\x85\x9E" => "\x{0037}\x{2044}\x{0038}", # U+215E => 0037 2044 0038
+"\xE2\x85\x9F" => "\x{0031}\x{2044}",         # U+215F => 0031 2044
+"\xE2\x85\xA1" => "\x{0069}\x{0069}",         # U+2161 => 0069 0069
+"\xE2\x85\xA2" => "\x{0069}\x{0069}\x{0069}", # U+2162 => 0069 0069 0069
+"\xE2\x85\xA3" => "\x{0069}\x{0076}",         # U+2163 => 0069 0076
+"\xE2\x85\xA5" => "\x{0076}\x{0069}",         # U+2165 => 0076 0069
+"\xE2\x85\xA6" => "\x{0076}\x{0069}\x{0069}", # U+2166 => 0076 0069 0069
+"\xE2\x85\xA7" => "\x{0076}\x{0069}\x{0069}\x{0069}", # U+2167 => 0076 0069 0069 0069
+"\xE2\x85\xA8" => "\x{0069}\x{0078}",         # U+2168 => 0069 0078
+"\xE2\x85\xAA" => "\x{0078}\x{0069}",         # U+216A => 0078 0069
+"\xE2\x85\xAB" => "\x{0078}\x{0069}\x{0069}", # U+216B => 0078 0069 0069
+"\xE2\x85\xB1" => "\x{0069}\x{0069}",         # U+2171 => 0069 0069
+"\xE2\x85\xB2" => "\x{0069}\x{0069}\x{0069}", # U+2172 => 0069 0069 0069
+"\xE2\x85\xB3" => "\x{0069}\x{0076}",         # U+2173 => 0069 0076
+"\xE2\x85\xB5" => "\x{0076}\x{0069}",         # U+2175 => 0076 0069
+"\xE2\x85\xB6" => "\x{0076}\x{0069}\x{0069}", # U+2176 => 0076 0069 0069
+"\xE2\x85\xB7" => "\x{0076}\x{0069}\x{0069}\x{0069}", # U+2177 => 0076 0069 0069 0069
+"\xE2\x85\xB8" => "\x{0069}\x{0078}",         # U+2178 => 0069 0078
+"\xE2\x85\xBA" => "\x{0078}\x{0069}",         # U+217A => 0078 0069
+"\xE2\x85\xBB" => "\x{0078}\x{0069}\x{0069}", # U+217B => 0078 0069 0069
+"\xE2\x86\x89" => "\x{0030}\x{2044}\x{0033}", # U+2189 => 0030 2044 0033
+"\xE2\x88\xAC" => "\x{222B}\x{222B}",         # U+222C => 222B 222B
+"\xE2\x88\xAD" => "\x{222B}\x{222B}\x{222B}", # U+222D => 222B 222B 222B
+"\xE2\x88\xAF" => "\x{222E}\x{222E}",         # U+222F => 222E 222E
+"\xE2\x88\xB0" => "\x{222E}\x{222E}\x{222E}", # U+2230 => 222E 222E 222E
+"\xE2\x91\xA9" => "\x{0031}\x{0030}",         # U+2469 => 0031 0030
+"\xE2\x91\xAA" => "\x{0031}\x{0031}",         # U+246A => 0031 0031
+"\xE2\x91\xAB" => "\x{0031}\x{0032}",         # U+246B => 0031 0032
+"\xE2\x91\xAC" => "\x{0031}\x{0033}",         # U+246C => 0031 0033
+"\xE2\x91\xAD" => "\x{0031}\x{0034}",         # U+246D => 0031 0034
+"\xE2\x91\xAE" => "\x{0031}\x{0035}",         # U+246E => 0031 0035
+"\xE2\x91\xAF" => "\x{0031}\x{0036}",         # U+246F => 0031 0036
+"\xE2\x91\xB0" => "\x{0031}\x{0037}",         # U+2470 => 0031 0037
+"\xE2\x91\xB1" => "\x{0031}\x{0038}",         # U+2471 => 0031 0038
+"\xE2\x91\xB2" => "\x{0031}\x{0039}",         # U+2472 => 0031 0039
+"\xE2\x91\xB3" => "\x{0032}\x{0030}",         # U+2473 => 0032 0030
+"\xE2\x91\xB4" => "\x{0028}\x{0031}\x{0029}", # U+2474 => 0028 0031 0029
+"\xE2\x91\xB5" => "\x{0028}\x{0032}\x{0029}", # U+2475 => 0028 0032 0029
+"\xE2\x91\xB6" => "\x{0028}\x{0033}\x{0029}", # U+2476 => 0028 0033 0029
+"\xE2\x91\xB7" => "\x{0028}\x{0034}\x{0029}", # U+2477 => 0028 0034 0029
+"\xE2\x91\xB8" => "\x{0028}\x{0035}\x{0029}", # U+2478 => 0028 0035 0029
+"\xE2\x91\xB9" => "\x{0028}\x{0036}\x{0029}", # U+2479 => 0028 0036 0029
+"\xE2\x91\xBA" => "\x{0028}\x{0037}\x{0029}", # U+247A => 0028 0037 0029
+"\xE2\x91\xBB" => "\x{0028}\x{0038}\x{0029}", # U+247B => 0028 0038 0029
+"\xE2\x91\xBC" => "\x{0028}\x{0039}\x{0029}", # U+247C => 0028 0039 0029
+"\xE2\x91\xBD" => "\x{0028}\x{0031}\x{0030}\x{0029}", # U+247D => 0028 0031 0030 0029
+"\xE2\x91\xBE" => "\x{0028}\x{0031}\x{0031}\x{0029}", # U+247E => 0028 0031 0031 0029
+"\xE2\x91\xBF" => "\x{0028}\x{0031}\x{0032}\x{0029}", # U+247F => 0028 0031 0032 0029
+"\xE2\x92\x80" => "\x{0028}\x{0031}\x{0033}\x{0029}", # U+2480 => 0028 0031 0033 0029
+"\xE2\x92\x81" => "\x{0028}\x{0031}\x{0034}\x{0029}", # U+2481 => 0028 0031 0034 0029
+"\xE2\x92\x82" => "\x{0028}\x{0031}\x{0035}\x{0029}", # U+2482 => 0028 0031 0035 0029
+"\xE2\x92\x83" => "\x{0028}\x{0031}\x{0036}\x{0029}", # U+2483 => 0028 0031 0036 0029
+"\xE2\x92\x84" => "\x{0028}\x{0031}\x{0037}\x{0029}", # U+2484 => 0028 0031 0037 0029
+"\xE2\x92\x85" => "\x{0028}\x{0031}\x{0038}\x{0029}", # U+2485 => 0028 0031 0038 0029
+"\xE2\x92\x86" => "\x{0028}\x{0031}\x{0039}\x{0029}", # U+2486 => 0028 0031 0039 0029
+"\xE2\x92\x87" => "\x{0028}\x{0032}\x{0030}\x{0029}", # U+2487 => 0028 0032 0030 0029
+"\xE2\x92\x88" => "\x{0031}\x{002E}",         # U+2488 => 0031 002E
+"\xE2\x92\x89" => "\x{0032}\x{002E}",         # U+2489 => 0032 002E
+"\xE2\x92\x8A" => "\x{0033}\x{002E}",         # U+248A => 0033 002E
+"\xE2\x92\x8B" => "\x{0034}\x{002E}",         # U+248B => 0034 002E
+"\xE2\x92\x8C" => "\x{0035}\x{002E}",         # U+248C => 0035 002E
+"\xE2\x92\x8D" => "\x{0036}\x{002E}",         # U+248D => 0036 002E
+"\xE2\x92\x8E" => "\x{0037}\x{002E}",         # U+248E => 0037 002E
+"\xE2\x92\x8F" => "\x{0038}\x{002E}",         # U+248F => 0038 002E
+"\xE2\x92\x90" => "\x{0039}\x{002E}",         # U+2490 => 0039 002E
+"\xE2\x92\x91" => "\x{0031}\x{0030}\x{002E}", # U+2491 => 0031 0030 002E
+"\xE2\x92\x92" => "\x{0031}\x{0031}\x{002E}", # U+2492 => 0031 0031 002E
+"\xE2\x92\x93" => "\x{0031}\x{0032}\x{002E}", # U+2493 => 0031 0032 002E
+"\xE2\x92\x94" => "\x{0031}\x{0033}\x{002E}", # U+2494 => 0031 0033 002E
+"\xE2\x92\x95" => "\x{0031}\x{0034}\x{002E}", # U+2495 => 0031 0034 002E
+"\xE2\x92\x96" => "\x{0031}\x{0035}\x{002E}", # U+2496 => 0031 0035 002E
+"\xE2\x92\x97" => "\x{0031}\x{0036}\x{002E}", # U+2497 => 0031 0036 002E
+"\xE2\x92\x98" => "\x{0031}\x{0037}\x{002E}", # U+2498 => 0031 0037 002E
+"\xE2\x92\x99" => "\x{0031}\x{0038}\x{002E}", # U+2499 => 0031 0038 002E
+"\xE2\x92\x9A" => "\x{0031}\x{0039}\x{002E}", # U+249A => 0031 0039 002E
+"\xE2\x92\x9B" => "\x{0032}\x{0030}\x{002E}", # U+249B => 0032 0030 002E
+"\xE2\x92\x9C" => "\x{0028}\x{0061}\x{0029}", # U+249C => 0028 0061 0029
+"\xE2\x92\x9D" => "\x{0028}\x{0062}\x{0029}", # U+249D => 0028 0062 0029
+"\xE2\x92\x9E" => "\x{0028}\x{0063}\x{0029}", # U+249E => 0028 0063 0029
+"\xE2\x92\x9F" => "\x{0028}\x{0064}\x{0029}", # U+249F => 0028 0064 0029
+"\xE2\x92\xA0" => "\x{0028}\x{0065}\x{0029}", # U+24A0 => 0028 0065 0029
+"\xE2\x92\xA1" => "\x{0028}\x{0066}\x{0029}", # U+24A1 => 0028 0066 0029
+"\xE2\x92\xA2" => "\x{0028}\x{0067}\x{0029}", # U+24A2 => 0028 0067 0029
+"\xE2\x92\xA3" => "\x{0028}\x{0068}\x{0029}", # U+24A3 => 0028 0068 0029
+"\xE2\x92\xA4" => "\x{0028}\x{0069}\x{0029}", # U+24A4 => 0028 0069 0029
+"\xE2\x92\xA5" => "\x{0028}\x{006A}\x{0029}", # U+24A5 => 0028 006A 0029
+"\xE2\x92\xA6" => "\x{0028}\x{006B}\x{0029}", # U+24A6 => 0028 006B 0029
+"\xE2\x92\xA7" => "\x{0028}\x{006C}\x{0029}", # U+24A7 => 0028 006C 0029
+"\xE2\x92\xA8" => "\x{0028}\x{006D}\x{0029}", # U+24A8 => 0028 006D 0029
+"\xE2\x92\xA9" => "\x{0028}\x{006E}\x{0029}", # U+24A9 => 0028 006E 0029
+"\xE2\x92\xAA" => "\x{0028}\x{006F}\x{0029}", # U+24AA => 0028 006F 0029
+"\xE2\x92\xAB" => "\x{0028}\x{0070}\x{0029}", # U+24AB => 0028 0070 0029
+"\xE2\x92\xAC" => "\x{0028}\x{0071}\x{0029}", # U+24AC => 0028 0071 0029
+"\xE2\x92\xAD" => "\x{0028}\x{0072}\x{0029}", # U+24AD => 0028 0072 0029
+"\xE2\x92\xAE" => "\x{0028}\x{0073}\x{0029}", # U+24AE => 0028 0073 0029
+"\xE2\x92\xAF" => "\x{0028}\x{0074}\x{0029}", # U+24AF => 0028 0074 0029
+"\xE2\x92\xB0" => "\x{0028}\x{0075}\x{0029}", # U+24B0 => 0028 0075 0029
+"\xE2\x92\xB1" => "\x{0028}\x{0076}\x{0029}", # U+24B1 => 0028 0076 0029
+"\xE2\x92\xB2" => "\x{0028}\x{0077}\x{0029}", # U+24B2 => 0028 0077 0029
+"\xE2\x92\xB3" => "\x{0028}\x{0078}\x{0029}", # U+24B3 => 0028 0078 0029
+"\xE2\x92\xB4" => "\x{0028}\x{0079}\x{0029}", # U+24B4 => 0028 0079 0029
+"\xE2\x92\xB5" => "\x{0028}\x{007A}\x{0029}", # U+24B5 => 0028 007A 0029
+"\xE2\xA8\x8C" => "\x{222B}\x{222B}\x{222B}\x{222B}", # U+2A0C => 222B 222B 222B 222B
+"\xE2\xA9\xB4" => "\x{003A}\x{003A}\x{003D}", # U+2A74 => 003A 003A 003D
+"\xE2\xA9\xB5" => "\x{003D}\x{003D}",         # U+2A75 => 003D 003D
+"\xE2\xA9\xB6" => "\x{003D}\x{003D}\x{003D}", # U+2A76 => 003D 003D 003D
+"\xE2\xAB\x9C" => "\x{2ADD}\x{0338}",         # U+2ADC => 2ADD 0338
+"\xE3\x82\x9B" => "\x{0020}\x{3099}",         # U+309B => 0020 3099
+"\xE3\x82\x9C" => "\x{0020}\x{309A}",         # U+309C => 0020 309A
+"\xE3\x82\x9F" => "\x{3088}\x{308A}",         # U+309F => 3088 308A
+"\xE3\x83\xBF" => "\x{30B3}\x{30C8}",         # U+30FF => 30B3 30C8
+"\xE3\x85\xA4" => "",                         # U+3164 => 
+"\xE3\x88\x80" => "\x{0028}\x{1100}\x{0029}", # U+3200 => 0028 1100 0029
+"\xE3\x88\x81" => "\x{0028}\x{1102}\x{0029}", # U+3201 => 0028 1102 0029
+"\xE3\x88\x82" => "\x{0028}\x{1103}\x{0029}", # U+3202 => 0028 1103 0029
+"\xE3\x88\x83" => "\x{0028}\x{1105}\x{0029}", # U+3203 => 0028 1105 0029
+"\xE3\x88\x84" => "\x{0028}\x{1106}\x{0029}", # U+3204 => 0028 1106 0029
+"\xE3\x88\x85" => "\x{0028}\x{1107}\x{0029}", # U+3205 => 0028 1107 0029
+"\xE3\x88\x86" => "\x{0028}\x{1109}\x{0029}", # U+3206 => 0028 1109 0029
+"\xE3\x88\x87" => "\x{0028}\x{110B}\x{0029}", # U+3207 => 0028 110B 0029
+"\xE3\x88\x88" => "\x{0028}\x{110C}\x{0029}", # U+3208 => 0028 110C 0029
+"\xE3\x88\x89" => "\x{0028}\x{110E}\x{0029}", # U+3209 => 0028 110E 0029
+"\xE3\x88\x8A" => "\x{0028}\x{110F}\x{0029}", # U+320A => 0028 110F 0029
+"\xE3\x88\x8B" => "\x{0028}\x{1110}\x{0029}", # U+320B => 0028 1110 0029
+"\xE3\x88\x8C" => "\x{0028}\x{1111}\x{0029}", # U+320C => 0028 1111 0029
+"\xE3\x88\x8D" => "\x{0028}\x{1112}\x{0029}", # U+320D => 0028 1112 0029
+"\xE3\x88\x8E" => "\x{0028}\x{AC00}\x{0029}", # U+320E => 0028 AC00 0029
+"\xE3\x88\x8F" => "\x{0028}\x{B098}\x{0029}", # U+320F => 0028 B098 0029
+"\xE3\x88\x90" => "\x{0028}\x{B2E4}\x{0029}", # U+3210 => 0028 B2E4 0029
+"\xE3\x88\x91" => "\x{0028}\x{B77C}\x{0029}", # U+3211 => 0028 B77C 0029
+"\xE3\x88\x92" => "\x{0028}\x{B9C8}\x{0029}", # U+3212 => 0028 B9C8 0029
+"\xE3\x88\x93" => "\x{0028}\x{BC14}\x{0029}", # U+3213 => 0028 BC14 0029
+"\xE3\x88\x94" => "\x{0028}\x{C0AC}\x{0029}", # U+3214 => 0028 C0AC 0029
+"\xE3\x88\x95" => "\x{0028}\x{C544}\x{0029}", # U+3215 => 0028 C544 0029
+"\xE3\x88\x96" => "\x{0028}\x{C790}\x{0029}", # U+3216 => 0028 C790 0029
+"\xE3\x88\x97" => "\x{0028}\x{CC28}\x{0029}", # U+3217 => 0028 CC28 0029
+"\xE3\x88\x98" => "\x{0028}\x{CE74}\x{0029}", # U+3218 => 0028 CE74 0029
+"\xE3\x88\x99" => "\x{0028}\x{D0C0}\x{0029}", # U+3219 => 0028 D0C0 0029
+"\xE3\x88\x9A" => "\x{0028}\x{D30C}\x{0029}", # U+321A => 0028 D30C 0029
+"\xE3\x88\x9B" => "\x{0028}\x{D558}\x{0029}", # U+321B => 0028 D558 0029
+"\xE3\x88\x9C" => "\x{0028}\x{C8FC}\x{0029}", # U+321C => 0028 C8FC 0029
+"\xE3\x88\x9D" => "\x{0028}\x{C624}\x{C804}\x{0029}", # U+321D => 0028 C624 C804 0029
+"\xE3\x88\x9E" => "\x{0028}\x{C624}\x{D6C4}\x{0029}", # U+321E => 0028 C624 D6C4 0029
+"\xE3\x88\xA0" => "\x{0028}\x{4E00}\x{0029}", # U+3220 => 0028 4E00 0029
+"\xE3\x88\xA1" => "\x{0028}\x{4E8C}\x{0029}", # U+3221 => 0028 4E8C 0029
+"\xE3\x88\xA2" => "\x{0028}\x{4E09}\x{0029}", # U+3222 => 0028 4E09 0029
+"\xE3\x88\xA3" => "\x{0028}\x{56DB}\x{0029}", # U+3223 => 0028 56DB 0029
+"\xE3\x88\xA4" => "\x{0028}\x{4E94}\x{0029}", # U+3224 => 0028 4E94 0029
+"\xE3\x88\xA5" => "\x{0028}\x{516D}\x{0029}", # U+3225 => 0028 516D 0029
+"\xE3\x88\xA6" => "\x{0028}\x{4E03}\x{0029}", # U+3226 => 0028 4E03 0029
+"\xE3\x88\xA7" => "\x{0028}\x{516B}\x{0029}", # U+3227 => 0028 516B 0029
+"\xE3\x88\xA8" => "\x{0028}\x{4E5D}\x{0029}", # U+3228 => 0028 4E5D 0029
+"\xE3\x88\xA9" => "\x{0028}\x{5341}\x{0029}", # U+3229 => 0028 5341 0029
+"\xE3\x88\xAA" => "\x{0028}\x{6708}\x{0029}", # U+322A => 0028 6708 0029
+"\xE3\x88\xAB" => "\x{0028}\x{706B}\x{0029}", # U+322B => 0028 706B 0029
+"\xE3\x88\xAC" => "\x{0028}\x{6C34}\x{0029}", # U+322C => 0028 6C34 0029
+"\xE3\x88\xAD" => "\x{0028}\x{6728}\x{0029}", # U+322D => 0028 6728 0029
+"\xE3\x88\xAE" => "\x{0028}\x{91D1}\x{0029}", # U+322E => 0028 91D1 0029
+"\xE3\x88\xAF" => "\x{0028}\x{571F}\x{0029}", # U+322F => 0028 571F 0029
+"\xE3\x88\xB0" => "\x{0028}\x{65E5}\x{0029}", # U+3230 => 0028 65E5 0029
+"\xE3\x88\xB1" => "\x{0028}\x{682A}\x{0029}", # U+3231 => 0028 682A 0029
+"\xE3\x88\xB2" => "\x{0028}\x{6709}\x{0029}", # U+3232 => 0028 6709 0029
+"\xE3\x88\xB3" => "\x{0028}\x{793E}\x{0029}", # U+3233 => 0028 793E 0029
+"\xE3\x88\xB4" => "\x{0028}\x{540D}\x{0029}", # U+3234 => 0028 540D 0029
+"\xE3\x88\xB5" => "\x{0028}\x{7279}\x{0029}", # U+3235 => 0028 7279 0029
+"\xE3\x88\xB6" => "\x{0028}\x{8CA1}\x{0029}", # U+3236 => 0028 8CA1 0029
+"\xE3\x88\xB7" => "\x{0028}\x{795D}\x{0029}", # U+3237 => 0028 795D 0029
+"\xE3\x88\xB8" => "\x{0028}\x{52B4}\x{0029}", # U+3238 => 0028 52B4 0029
+"\xE3\x88\xB9" => "\x{0028}\x{4EE3}\x{0029}", # U+3239 => 0028 4EE3 0029
+"\xE3\x88\xBA" => "\x{0028}\x{547C}\x{0029}", # U+323A => 0028 547C 0029
+"\xE3\x88\xBB" => "\x{0028}\x{5B66}\x{0029}", # U+323B => 0028 5B66 0029
+"\xE3\x88\xBC" => "\x{0028}\x{76E3}\x{0029}", # U+323C => 0028 76E3 0029
+"\xE3\x88\xBD" => "\x{0028}\x{4F01}\x{0029}", # U+323D => 0028 4F01 0029
+"\xE3\x88\xBE" => "\x{0028}\x{8CC7}\x{0029}", # U+323E => 0028 8CC7 0029
+"\xE3\x88\xBF" => "\x{0028}\x{5354}\x{0029}", # U+323F => 0028 5354 0029
+"\xE3\x89\x80" => "\x{0028}\x{796D}\x{0029}", # U+3240 => 0028 796D 0029
+"\xE3\x89\x81" => "\x{0028}\x{4F11}\x{0029}", # U+3241 => 0028 4F11 0029
+"\xE3\x89\x82" => "\x{0028}\x{81EA}\x{0029}", # U+3242 => 0028 81EA 0029
+"\xE3\x89\x83" => "\x{0028}\x{81F3}\x{0029}", # U+3243 => 0028 81F3 0029
+"\xE3\x89\x90" => "\x{0070}\x{0074}\x{0065}", # U+3250 => 0070 0074 0065
+"\xE3\x89\x91" => "\x{0032}\x{0031}",         # U+3251 => 0032 0031
+"\xE3\x89\x92" => "\x{0032}\x{0032}",         # U+3252 => 0032 0032
+"\xE3\x89\x93" => "\x{0032}\x{0033}",         # U+3253 => 0032 0033
+"\xE3\x89\x94" => "\x{0032}\x{0034}",         # U+3254 => 0032 0034
+"\xE3\x89\x95" => "\x{0032}\x{0035}",         # U+3255 => 0032 0035
+"\xE3\x89\x96" => "\x{0032}\x{0036}",         # U+3256 => 0032 0036
+"\xE3\x89\x97" => "\x{0032}\x{0037}",         # U+3257 => 0032 0037
+"\xE3\x89\x98" => "\x{0032}\x{0038}",         # U+3258 => 0032 0038
+"\xE3\x89\x99" => "\x{0032}\x{0039}",         # U+3259 => 0032 0039
+"\xE3\x89\x9A" => "\x{0033}\x{0030}",         # U+325A => 0033 0030
+"\xE3\x89\x9B" => "\x{0033}\x{0031}",         # U+325B => 0033 0031
+"\xE3\x89\x9C" => "\x{0033}\x{0032}",         # U+325C => 0033 0032
+"\xE3\x89\x9D" => "\x{0033}\x{0033}",         # U+325D => 0033 0033
+"\xE3\x89\x9E" => "\x{0033}\x{0034}",         # U+325E => 0033 0034
+"\xE3\x89\x9F" => "\x{0033}\x{0035}",         # U+325F => 0033 0035
+"\xE3\x89\xBC" => "\x{CC38}\x{ACE0}",         # U+327C => CC38 ACE0
+"\xE3\x89\xBD" => "\x{C8FC}\x{C758}",         # U+327D => C8FC C758
+"\xE3\x8A\xB1" => "\x{0033}\x{0036}",         # U+32B1 => 0033 0036
+"\xE3\x8A\xB2" => "\x{0033}\x{0037}",         # U+32B2 => 0033 0037
+"\xE3\x8A\xB3" => "\x{0033}\x{0038}",         # U+32B3 => 0033 0038
+"\xE3\x8A\xB4" => "\x{0033}\x{0039}",         # U+32B4 => 0033 0039
+"\xE3\x8A\xB5" => "\x{0034}\x{0030}",         # U+32B5 => 0034 0030
+"\xE3\x8A\xB6" => "\x{0034}\x{0031}",         # U+32B6 => 0034 0031
+"\xE3\x8A\xB7" => "\x{0034}\x{0032}",         # U+32B7 => 0034 0032
+"\xE3\x8A\xB8" => "\x{0034}\x{0033}",         # U+32B8 => 0034 0033
+"\xE3\x8A\xB9" => "\x{0034}\x{0034}",         # U+32B9 => 0034 0034
+"\xE3\x8A\xBA" => "\x{0034}\x{0035}",         # U+32BA => 0034 0035
+"\xE3\x8A\xBB" => "\x{0034}\x{0036}",         # U+32BB => 0034 0036
+"\xE3\x8A\xBC" => "\x{0034}\x{0037}",         # U+32BC => 0034 0037
+"\xE3\x8A\xBD" => "\x{0034}\x{0038}",         # U+32BD => 0034 0038
+"\xE3\x8A\xBE" => "\x{0034}\x{0039}",         # U+32BE => 0034 0039
+"\xE3\x8A\xBF" => "\x{0035}\x{0030}",         # U+32BF => 0035 0030
+"\xE3\x8B\x80" => "\x{0031}\x{6708}",         # U+32C0 => 0031 6708
+"\xE3\x8B\x81" => "\x{0032}\x{6708}",         # U+32C1 => 0032 6708
+"\xE3\x8B\x82" => "\x{0033}\x{6708}",         # U+32C2 => 0033 6708
+"\xE3\x8B\x83" => "\x{0034}\x{6708}",         # U+32C3 => 0034 6708
+"\xE3\x8B\x84" => "\x{0035}\x{6708}",         # U+32C4 => 0035 6708
+"\xE3\x8B\x85" => "\x{0036}\x{6708}",         # U+32C5 => 0036 6708
+"\xE3\x8B\x86" => "\x{0037}\x{6708}",         # U+32C6 => 0037 6708
+"\xE3\x8B\x87" => "\x{0038}\x{6708}",         # U+32C7 => 0038 6708
+"\xE3\x8B\x88" => "\x{0039}\x{6708}",         # U+32C8 => 0039 6708
+"\xE3\x8B\x89" => "\x{0031}\x{0030}\x{6708}", # U+32C9 => 0031 0030 6708
+"\xE3\x8B\x8A" => "\x{0031}\x{0031}\x{6708}", # U+32CA => 0031 0031 6708
+"\xE3\x8B\x8B" => "\x{0031}\x{0032}\x{6708}", # U+32CB => 0031 0032 6708
+"\xE3\x8B\x8C" => "\x{0068}\x{0067}",         # U+32CC => 0068 0067
+"\xE3\x8B\x8D" => "\x{0065}\x{0072}\x{0067}", # U+32CD => 0065 0072 0067
+"\xE3\x8B\x8E" => "\x{0065}\x{0076}",         # U+32CE => 0065 0076
+"\xE3\x8B\x8F" => "\x{006C}\x{0074}\x{0064}", # U+32CF => 006C 0074 0064
+"\xE3\x8C\x80" => "\x{30A2}\x{30D1}\x{30FC}\x{30C8}", # U+3300 => 30A2 30D1 30FC 30C8
+"\xE3\x8C\x81" => "\x{30A2}\x{30EB}\x{30D5}\x{30A1}", # U+3301 => 30A2 30EB 30D5 30A1
+"\xE3\x8C\x82" => "\x{30A2}\x{30F3}\x{30DA}\x{30A2}", # U+3302 => 30A2 30F3 30DA 30A2
+"\xE3\x8C\x83" => "\x{30A2}\x{30FC}\x{30EB}", # U+3303 => 30A2 30FC 30EB
+"\xE3\x8C\x84" => "\x{30A4}\x{30CB}\x{30F3}\x{30B0}", # U+3304 => 30A4 30CB 30F3 30B0
+"\xE3\x8C\x85" => "\x{30A4}\x{30F3}\x{30C1}", # U+3305 => 30A4 30F3 30C1
+"\xE3\x8C\x86" => "\x{30A6}\x{30A9}\x{30F3}", # U+3306 => 30A6 30A9 30F3
+"\xE3\x8C\x87" => "\x{30A8}\x{30B9}\x{30AF}\x{30FC}\x{30C9}", # U+3307 => 30A8 30B9 30AF 30FC 30C9
+"\xE3\x8C\x88" => "\x{30A8}\x{30FC}\x{30AB}\x{30FC}", # U+3308 => 30A8 30FC 30AB 30FC
+"\xE3\x8C\x89" => "\x{30AA}\x{30F3}\x{30B9}", # U+3309 => 30AA 30F3 30B9
+"\xE3\x8C\x8A" => "\x{30AA}\x{30FC}\x{30E0}", # U+330A => 30AA 30FC 30E0
+"\xE3\x8C\x8B" => "\x{30AB}\x{30A4}\x{30EA}", # U+330B => 30AB 30A4 30EA
+"\xE3\x8C\x8C" => "\x{30AB}\x{30E9}\x{30C3}\x{30C8}", # U+330C => 30AB 30E9 30C3 30C8
+"\xE3\x8C\x8D" => "\x{30AB}\x{30ED}\x{30EA}\x{30FC}", # U+330D => 30AB 30ED 30EA 30FC
+"\xE3\x8C\x8E" => "\x{30AC}\x{30ED}\x{30F3}", # U+330E => 30AC 30ED 30F3
+"\xE3\x8C\x8F" => "\x{30AC}\x{30F3}\x{30DE}", # U+330F => 30AC 30F3 30DE
+"\xE3\x8C\x90" => "\x{30AE}\x{30AC}",         # U+3310 => 30AE 30AC
+"\xE3\x8C\x91" => "\x{30AE}\x{30CB}\x{30FC}", # U+3311 => 30AE 30CB 30FC
+"\xE3\x8C\x92" => "\x{30AD}\x{30E5}\x{30EA}\x{30FC}", # U+3312 => 30AD 30E5 30EA 30FC
+"\xE3\x8C\x93" => "\x{30AE}\x{30EB}\x{30C0}\x{30FC}", # U+3313 => 30AE 30EB 30C0 30FC
+"\xE3\x8C\x94" => "\x{30AD}\x{30ED}",         # U+3314 => 30AD 30ED
+"\xE3\x8C\x95" => "\x{30AD}\x{30ED}\x{30B0}\x{30E9}\x{30E0}", # U+3315 => 30AD 30ED 30B0 30E9 30E0
+"\xE3\x8C\x96" => "\x{30AD}\x{30ED}\x{30E1}\x{30FC}\x{30C8}\x{30EB}", # U+3316 => 30AD 30ED 30E1 30FC 30C8 30EB
+"\xE3\x8C\x97" => "\x{30AD}\x{30ED}\x{30EF}\x{30C3}\x{30C8}", # U+3317 => 30AD 30ED 30EF 30C3 30C8
+"\xE3\x8C\x98" => "\x{30B0}\x{30E9}\x{30E0}", # U+3318 => 30B0 30E9 30E0
+"\xE3\x8C\x99" => "\x{30B0}\x{30E9}\x{30E0}\x{30C8}\x{30F3}", # U+3319 => 30B0 30E9 30E0 30C8 30F3
+"\xE3\x8C\x9A" => "\x{30AF}\x{30EB}\x{30BC}\x{30A4}\x{30ED}", # U+331A => 30AF 30EB 30BC 30A4 30ED
+"\xE3\x8C\x9B" => "\x{30AF}\x{30ED}\x{30FC}\x{30CD}", # U+331B => 30AF 30ED 30FC 30CD
+"\xE3\x8C\x9C" => "\x{30B1}\x{30FC}\x{30B9}", # U+331C => 30B1 30FC 30B9
+"\xE3\x8C\x9D" => "\x{30B3}\x{30EB}\x{30CA}", # U+331D => 30B3 30EB 30CA
+"\xE3\x8C\x9E" => "\x{30B3}\x{30FC}\x{30DD}", # U+331E => 30B3 30FC 30DD
+"\xE3\x8C\x9F" => "\x{30B5}\x{30A4}\x{30AF}\x{30EB}", # U+331F => 30B5 30A4 30AF 30EB
+"\xE3\x8C\xA0" => "\x{30B5}\x{30F3}\x{30C1}\x{30FC}\x{30E0}", # U+3320 => 30B5 30F3 30C1 30FC 30E0
+"\xE3\x8C\xA1" => "\x{30B7}\x{30EA}\x{30F3}\x{30B0}", # U+3321 => 30B7 30EA 30F3 30B0
+"\xE3\x8C\xA2" => "\x{30BB}\x{30F3}\x{30C1}", # U+3322 => 30BB 30F3 30C1
+"\xE3\x8C\xA3" => "\x{30BB}\x{30F3}\x{30C8}", # U+3323 => 30BB 30F3 30C8
+"\xE3\x8C\xA4" => "\x{30C0}\x{30FC}\x{30B9}", # U+3324 => 30C0 30FC 30B9
+"\xE3\x8C\xA5" => "\x{30C7}\x{30B7}",         # U+3325 => 30C7 30B7
+"\xE3\x8C\xA6" => "\x{30C9}\x{30EB}",         # U+3326 => 30C9 30EB
+"\xE3\x8C\xA7" => "\x{30C8}\x{30F3}",         # U+3327 => 30C8 30F3
+"\xE3\x8C\xA8" => "\x{30CA}\x{30CE}",         # U+3328 => 30CA 30CE
+"\xE3\x8C\xA9" => "\x{30CE}\x{30C3}\x{30C8}", # U+3329 => 30CE 30C3 30C8
+"\xE3\x8C\xAA" => "\x{30CF}\x{30A4}\x{30C4}", # U+332A => 30CF 30A4 30C4
+"\xE3\x8C\xAB" => "\x{30D1}\x{30FC}\x{30BB}\x{30F3}\x{30C8}", # U+332B => 30D1 30FC 30BB 30F3 30C8
+"\xE3\x8C\xAC" => "\x{30D1}\x{30FC}\x{30C4}", # U+332C => 30D1 30FC 30C4
+"\xE3\x8C\xAD" => "\x{30D0}\x{30FC}\x{30EC}\x{30EB}", # U+332D => 30D0 30FC 30EC 30EB
+"\xE3\x8C\xAE" => "\x{30D4}\x{30A2}\x{30B9}\x{30C8}\x{30EB}", # U+332E => 30D4 30A2 30B9 30C8 30EB
+"\xE3\x8C\xAF" => "\x{30D4}\x{30AF}\x{30EB}", # U+332F => 30D4 30AF 30EB
+"\xE3\x8C\xB0" => "\x{30D4}\x{30B3}",         # U+3330 => 30D4 30B3
+"\xE3\x8C\xB1" => "\x{30D3}\x{30EB}",         # U+3331 => 30D3 30EB
+"\xE3\x8C\xB2" => "\x{30D5}\x{30A1}\x{30E9}\x{30C3}\x{30C9}", # U+3332 => 30D5 30A1 30E9 30C3 30C9
+"\xE3\x8C\xB3" => "\x{30D5}\x{30A3}\x{30FC}\x{30C8}", # U+3333 => 30D5 30A3 30FC 30C8
+"\xE3\x8C\xB4" => "\x{30D6}\x{30C3}\x{30B7}\x{30A7}\x{30EB}", # U+3334 => 30D6 30C3 30B7 30A7 30EB
+"\xE3\x8C\xB5" => "\x{30D5}\x{30E9}\x{30F3}", # U+3335 => 30D5 30E9 30F3
+"\xE3\x8C\xB6" => "\x{30D8}\x{30AF}\x{30BF}\x{30FC}\x{30EB}", # U+3336 => 30D8 30AF 30BF 30FC 30EB
+"\xE3\x8C\xB7" => "\x{30DA}\x{30BD}",         # U+3337 => 30DA 30BD
+"\xE3\x8C\xB8" => "\x{30DA}\x{30CB}\x{30D2}", # U+3338 => 30DA 30CB 30D2
+"\xE3\x8C\xB9" => "\x{30D8}\x{30EB}\x{30C4}", # U+3339 => 30D8 30EB 30C4
+"\xE3\x8C\xBA" => "\x{30DA}\x{30F3}\x{30B9}", # U+333A => 30DA 30F3 30B9
+"\xE3\x8C\xBB" => "\x{30DA}\x{30FC}\x{30B8}", # U+333B => 30DA 30FC 30B8
+"\xE3\x8C\xBC" => "\x{30D9}\x{30FC}\x{30BF}", # U+333C => 30D9 30FC 30BF
+"\xE3\x8C\xBD" => "\x{30DD}\x{30A4}\x{30F3}\x{30C8}", # U+333D => 30DD 30A4 30F3 30C8
+"\xE3\x8C\xBE" => "\x{30DC}\x{30EB}\x{30C8}", # U+333E => 30DC 30EB 30C8
+"\xE3\x8C\xBF" => "\x{30DB}\x{30F3}",         # U+333F => 30DB 30F3
+"\xE3\x8D\x80" => "\x{30DD}\x{30F3}\x{30C9}", # U+3340 => 30DD 30F3 30C9
+"\xE3\x8D\x81" => "\x{30DB}\x{30FC}\x{30EB}", # U+3341 => 30DB 30FC 30EB
+"\xE3\x8D\x82" => "\x{30DB}\x{30FC}\x{30F3}", # U+3342 => 30DB 30FC 30F3
+"\xE3\x8D\x83" => "\x{30DE}\x{30A4}\x{30AF}\x{30ED}", # U+3343 => 30DE 30A4 30AF 30ED
+"\xE3\x8D\x84" => "\x{30DE}\x{30A4}\x{30EB}", # U+3344 => 30DE 30A4 30EB
+"\xE3\x8D\x85" => "\x{30DE}\x{30C3}\x{30CF}", # U+3345 => 30DE 30C3 30CF
+"\xE3\x8D\x86" => "\x{30DE}\x{30EB}\x{30AF}", # U+3346 => 30DE 30EB 30AF
+"\xE3\x8D\x87" => "\x{30DE}\x{30F3}\x{30B7}\x{30E7}\x{30F3}", # U+3347 => 30DE 30F3 30B7 30E7 30F3
+"\xE3\x8D\x88" => "\x{30DF}\x{30AF}\x{30ED}\x{30F3}", # U+3348 => 30DF 30AF 30ED 30F3
+"\xE3\x8D\x89" => "\x{30DF}\x{30EA}",         # U+3349 => 30DF 30EA
+"\xE3\x8D\x8A" => "\x{30DF}\x{30EA}\x{30D0}\x{30FC}\x{30EB}", # U+334A => 30DF 30EA 30D0 30FC 30EB
+"\xE3\x8D\x8B" => "\x{30E1}\x{30AC}",         # U+334B => 30E1 30AC
+"\xE3\x8D\x8C" => "\x{30E1}\x{30AC}\x{30C8}\x{30F3}", # U+334C => 30E1 30AC 30C8 30F3
+"\xE3\x8D\x8D" => "\x{30E1}\x{30FC}\x{30C8}\x{30EB}", # U+334D => 30E1 30FC 30C8 30EB
+"\xE3\x8D\x8E" => "\x{30E4}\x{30FC}\x{30C9}", # U+334E => 30E4 30FC 30C9
+"\xE3\x8D\x8F" => "\x{30E4}\x{30FC}\x{30EB}", # U+334F => 30E4 30FC 30EB
+"\xE3\x8D\x90" => "\x{30E6}\x{30A2}\x{30F3}", # U+3350 => 30E6 30A2 30F3
+"\xE3\x8D\x91" => "\x{30EA}\x{30C3}\x{30C8}\x{30EB}", # U+3351 => 30EA 30C3 30C8 30EB
+"\xE3\x8D\x92" => "\x{30EA}\x{30E9}",         # U+3352 => 30EA 30E9
+"\xE3\x8D\x93" => "\x{30EB}\x{30D4}\x{30FC}", # U+3353 => 30EB 30D4 30FC
+"\xE3\x8D\x94" => "\x{30EB}\x{30FC}\x{30D6}\x{30EB}", # U+3354 => 30EB 30FC 30D6 30EB
+"\xE3\x8D\x95" => "\x{30EC}\x{30E0}",         # U+3355 => 30EC 30E0
+"\xE3\x8D\x96" => "\x{30EC}\x{30F3}\x{30C8}\x{30B2}\x{30F3}", # U+3356 => 30EC 30F3 30C8 30B2 30F3
+"\xE3\x8D\x97" => "\x{30EF}\x{30C3}\x{30C8}", # U+3357 => 30EF 30C3 30C8
+"\xE3\x8D\x98" => "\x{0030}\x{70B9}",         # U+3358 => 0030 70B9
+"\xE3\x8D\x99" => "\x{0031}\x{70B9}",         # U+3359 => 0031 70B9
+"\xE3\x8D\x9A" => "\x{0032}\x{70B9}",         # U+335A => 0032 70B9
+"\xE3\x8D\x9B" => "\x{0033}\x{70B9}",         # U+335B => 0033 70B9
+"\xE3\x8D\x9C" => "\x{0034}\x{70B9}",         # U+335C => 0034 70B9
+"\xE3\x8D\x9D" => "\x{0035}\x{70B9}",         # U+335D => 0035 70B9
+"\xE3\x8D\x9E" => "\x{0036}\x{70B9}",         # U+335E => 0036 70B9
+"\xE3\x8D\x9F" => "\x{0037}\x{70B9}",         # U+335F => 0037 70B9
+"\xE3\x8D\xA0" => "\x{0038}\x{70B9}",         # U+3360 => 0038 70B9
+"\xE3\x8D\xA1" => "\x{0039}\x{70B9}",         # U+3361 => 0039 70B9
+"\xE3\x8D\xA2" => "\x{0031}\x{0030}\x{70B9}", # U+3362 => 0031 0030 70B9
+"\xE3\x8D\xA3" => "\x{0031}\x{0031}\x{70B9}", # U+3363 => 0031 0031 70B9
+"\xE3\x8D\xA4" => "\x{0031}\x{0032}\x{70B9}", # U+3364 => 0031 0032 70B9
+"\xE3\x8D\xA5" => "\x{0031}\x{0033}\x{70B9}", # U+3365 => 0031 0033 70B9
+"\xE3\x8D\xA6" => "\x{0031}\x{0034}\x{70B9}", # U+3366 => 0031 0034 70B9
+"\xE3\x8D\xA7" => "\x{0031}\x{0035}\x{70B9}", # U+3367 => 0031 0035 70B9
+"\xE3\x8D\xA8" => "\x{0031}\x{0036}\x{70B9}", # U+3368 => 0031 0036 70B9
+"\xE3\x8D\xA9" => "\x{0031}\x{0037}\x{70B9}", # U+3369 => 0031 0037 70B9
+"\xE3\x8D\xAA" => "\x{0031}\x{0038}\x{70B9}", # U+336A => 0031 0038 70B9
+"\xE3\x8D\xAB" => "\x{0031}\x{0039}\x{70B9}", # U+336B => 0031 0039 70B9
+"\xE3\x8D\xAC" => "\x{0032}\x{0030}\x{70B9}", # U+336C => 0032 0030 70B9
+"\xE3\x8D\xAD" => "\x{0032}\x{0031}\x{70B9}", # U+336D => 0032 0031 70B9
+"\xE3\x8D\xAE" => "\x{0032}\x{0032}\x{70B9}", # U+336E => 0032 0032 70B9
+"\xE3\x8D\xAF" => "\x{0032}\x{0033}\x{70B9}", # U+336F => 0032 0033 70B9
+"\xE3\x8D\xB0" => "\x{0032}\x{0034}\x{70B9}", # U+3370 => 0032 0034 70B9
+"\xE3\x8D\xB1" => "\x{0068}\x{0070}\x{0061}", # U+3371 => 0068 0070 0061
+"\xE3\x8D\xB2" => "\x{0064}\x{0061}",         # U+3372 => 0064 0061
+"\xE3\x8D\xB3" => "\x{0061}\x{0075}",         # U+3373 => 0061 0075
+"\xE3\x8D\xB4" => "\x{0062}\x{0061}\x{0072}", # U+3374 => 0062 0061 0072
+"\xE3\x8D\xB5" => "\x{006F}\x{0076}",         # U+3375 => 006F 0076
+"\xE3\x8D\xB6" => "\x{0070}\x{0063}",         # U+3376 => 0070 0063
+"\xE3\x8D\xB7" => "\x{0064}\x{006D}",         # U+3377 => 0064 006D
+"\xE3\x8D\xB8" => "\x{0064}\x{006D}\x{0032}", # U+3378 => 0064 006D 0032
+"\xE3\x8D\xB9" => "\x{0064}\x{006D}\x{0033}", # U+3379 => 0064 006D 0033
+"\xE3\x8D\xBA" => "\x{0069}\x{0075}",         # U+337A => 0069 0075
+"\xE3\x8D\xBB" => "\x{5E73}\x{6210}",         # U+337B => 5E73 6210
+"\xE3\x8D\xBC" => "\x{662D}\x{548C}",         # U+337C => 662D 548C
+"\xE3\x8D\xBD" => "\x{5927}\x{6B63}",         # U+337D => 5927 6B63
+"\xE3\x8D\xBE" => "\x{660E}\x{6CBB}",         # U+337E => 660E 6CBB
+"\xE3\x8D\xBF" => "\x{682A}\x{5F0F}\x{4F1A}\x{793E}", # U+337F => 682A 5F0F 4F1A 793E
+"\xE3\x8E\x80" => "\x{0070}\x{0061}",         # U+3380 => 0070 0061
+"\xE3\x8E\x81" => "\x{006E}\x{0061}",         # U+3381 => 006E 0061
+"\xE3\x8E\x82" => "\x{03BC}\x{0061}",         # U+3382 => 03BC 0061
+"\xE3\x8E\x83" => "\x{006D}\x{0061}",         # U+3383 => 006D 0061
+"\xE3\x8E\x84" => "\x{006B}\x{0061}",         # U+3384 => 006B 0061
+"\xE3\x8E\x85" => "\x{006B}\x{0062}",         # U+3385 => 006B 0062
+"\xE3\x8E\x86" => "\x{006D}\x{0062}",         # U+3386 => 006D 0062
+"\xE3\x8E\x87" => "\x{0067}\x{0062}",         # U+3387 => 0067 0062
+"\xE3\x8E\x88" => "\x{0063}\x{0061}\x{006C}", # U+3388 => 0063 0061 006C
+"\xE3\x8E\x89" => "\x{006B}\x{0063}\x{0061}\x{006C}", # U+3389 => 006B 0063 0061 006C
+"\xE3\x8E\x8A" => "\x{0070}\x{0066}",         # U+338A => 0070 0066
+"\xE3\x8E\x8B" => "\x{006E}\x{0066}",         # U+338B => 006E 0066
+"\xE3\x8E\x8C" => "\x{03BC}\x{0066}",         # U+338C => 03BC 0066
+"\xE3\x8E\x8D" => "\x{03BC}\x{0067}",         # U+338D => 03BC 0067
+"\xE3\x8E\x8E" => "\x{006D}\x{0067}",         # U+338E => 006D 0067
+"\xE3\x8E\x8F" => "\x{006B}\x{0067}",         # U+338F => 006B 0067
+"\xE3\x8E\x90" => "\x{0068}\x{007A}",         # U+3390 => 0068 007A
+"\xE3\x8E\x91" => "\x{006B}\x{0068}\x{007A}", # U+3391 => 006B 0068 007A
+"\xE3\x8E\x92" => "\x{006D}\x{0068}\x{007A}", # U+3392 => 006D 0068 007A
+"\xE3\x8E\x93" => "\x{0067}\x{0068}\x{007A}", # U+3393 => 0067 0068 007A
+"\xE3\x8E\x94" => "\x{0074}\x{0068}\x{007A}", # U+3394 => 0074 0068 007A
+"\xE3\x8E\x95" => "\x{03BC}\x{006C}",         # U+3395 => 03BC 006C
+"\xE3\x8E\x96" => "\x{006D}\x{006C}",         # U+3396 => 006D 006C
+"\xE3\x8E\x97" => "\x{0064}\x{006C}",         # U+3397 => 0064 006C
+"\xE3\x8E\x98" => "\x{006B}\x{006C}",         # U+3398 => 006B 006C
+"\xE3\x8E\x99" => "\x{0066}\x{006D}",         # U+3399 => 0066 006D
+"\xE3\x8E\x9A" => "\x{006E}\x{006D}",         # U+339A => 006E 006D
+"\xE3\x8E\x9B" => "\x{03BC}\x{006D}",         # U+339B => 03BC 006D
+"\xE3\x8E\x9C" => "\x{006D}\x{006D}",         # U+339C => 006D 006D
+"\xE3\x8E\x9D" => "\x{0063}\x{006D}",         # U+339D => 0063 006D
+"\xE3\x8E\x9E" => "\x{006B}\x{006D}",         # U+339E => 006B 006D
+"\xE3\x8E\x9F" => "\x{006D}\x{006D}\x{0032}", # U+339F => 006D 006D 0032
+"\xE3\x8E\xA0" => "\x{0063}\x{006D}\x{0032}", # U+33A0 => 0063 006D 0032
+"\xE3\x8E\xA1" => "\x{006D}\x{0032}",         # U+33A1 => 006D 0032
+"\xE3\x8E\xA2" => "\x{006B}\x{006D}\x{0032}", # U+33A2 => 006B 006D 0032
+"\xE3\x8E\xA3" => "\x{006D}\x{006D}\x{0033}", # U+33A3 => 006D 006D 0033
+"\xE3\x8E\xA4" => "\x{0063}\x{006D}\x{0033}", # U+33A4 => 0063 006D 0033
+"\xE3\x8E\xA5" => "\x{006D}\x{0033}",         # U+33A5 => 006D 0033
+"\xE3\x8E\xA6" => "\x{006B}\x{006D}\x{0033}", # U+33A6 => 006B 006D 0033
+"\xE3\x8E\xA7" => "\x{006D}\x{2215}\x{0073}", # U+33A7 => 006D 2215 0073
+"\xE3\x8E\xA8" => "\x{006D}\x{2215}\x{0073}\x{0032}", # U+33A8 => 006D 2215 0073 0032
+"\xE3\x8E\xA9" => "\x{0070}\x{0061}",         # U+33A9 => 0070 0061
+"\xE3\x8E\xAA" => "\x{006B}\x{0070}\x{0061}", # U+33AA => 006B 0070 0061
+"\xE3\x8E\xAB" => "\x{006D}\x{0070}\x{0061}", # U+33AB => 006D 0070 0061
+"\xE3\x8E\xAC" => "\x{0067}\x{0070}\x{0061}", # U+33AC => 0067 0070 0061
+"\xE3\x8E\xAD" => "\x{0072}\x{0061}\x{0064}", # U+33AD => 0072 0061 0064
+"\xE3\x8E\xAE" => "\x{0072}\x{0061}\x{0064}\x{2215}\x{0073}", # U+33AE => 0072 0061 0064 2215 0073
+"\xE3\x8E\xAF" => "\x{0072}\x{0061}\x{0064}\x{2215}\x{0073}\x{0032}", # U+33AF => 0072 0061 0064 2215 0073 0032
+"\xE3\x8E\xB0" => "\x{0070}\x{0073}",         # U+33B0 => 0070 0073
+"\xE3\x8E\xB1" => "\x{006E}\x{0073}",         # U+33B1 => 006E 0073
+"\xE3\x8E\xB2" => "\x{03BC}\x{0073}",         # U+33B2 => 03BC 0073
+"\xE3\x8E\xB3" => "\x{006D}\x{0073}",         # U+33B3 => 006D 0073
+"\xE3\x8E\xB4" => "\x{0070}\x{0076}",         # U+33B4 => 0070 0076
+"\xE3\x8E\xB5" => "\x{006E}\x{0076}",         # U+33B5 => 006E 0076
+"\xE3\x8E\xB6" => "\x{03BC}\x{0076}",         # U+33B6 => 03BC 0076
+"\xE3\x8E\xB7" => "\x{006D}\x{0076}",         # U+33B7 => 006D 0076
+"\xE3\x8E\xB8" => "\x{006B}\x{0076}",         # U+33B8 => 006B 0076
+"\xE3\x8E\xB9" => "\x{006D}\x{0076}",         # U+33B9 => 006D 0076
+"\xE3\x8E\xBA" => "\x{0070}\x{0077}",         # U+33BA => 0070 0077
+"\xE3\x8E\xBB" => "\x{006E}\x{0077}",         # U+33BB => 006E 0077
+"\xE3\x8E\xBC" => "\x{03BC}\x{0077}",         # U+33BC => 03BC 0077
+"\xE3\x8E\xBD" => "\x{006D}\x{0077}",         # U+33BD => 006D 0077
+"\xE3\x8E\xBE" => "\x{006B}\x{0077}",         # U+33BE => 006B 0077
+"\xE3\x8E\xBF" => "\x{006D}\x{0077}",         # U+33BF => 006D 0077
+"\xE3\x8F\x80" => "\x{006B}\x{03C9}",         # U+33C0 => 006B 03C9
+"\xE3\x8F\x81" => "\x{006D}\x{03C9}",         # U+33C1 => 006D 03C9
+"\xE3\x8F\x82" => "\x{0061}\x{002E}\x{006D}\x{002E}", # U+33C2 => 0061 002E 006D 002E
+"\xE3\x8F\x83" => "\x{0062}\x{0071}",         # U+33C3 => 0062 0071
+"\xE3\x8F\x84" => "\x{0063}\x{0063}",         # U+33C4 => 0063 0063
+"\xE3\x8F\x85" => "\x{0063}\x{0064}",         # U+33C5 => 0063 0064
+"\xE3\x8F\x86" => "\x{0063}\x{2215}\x{006B}\x{0067}", # U+33C6 => 0063 2215 006B 0067
+"\xE3\x8F\x87" => "\x{0063}\x{006F}\x{002E}", # U+33C7 => 0063 006F 002E
+"\xE3\x8F\x88" => "\x{0064}\x{0062}",         # U+33C8 => 0064 0062
+"\xE3\x8F\x89" => "\x{0067}\x{0079}",         # U+33C9 => 0067 0079
+"\xE3\x8F\x8A" => "\x{0068}\x{0061}",         # U+33CA => 0068 0061
+"\xE3\x8F\x8B" => "\x{0068}\x{0070}",         # U+33CB => 0068 0070
+"\xE3\x8F\x8C" => "\x{0069}\x{006E}",         # U+33CC => 0069 006E
+"\xE3\x8F\x8D" => "\x{006B}\x{006B}",         # U+33CD => 006B 006B
+"\xE3\x8F\x8E" => "\x{006B}\x{006D}",         # U+33CE => 006B 006D
+"\xE3\x8F\x8F" => "\x{006B}\x{0074}",         # U+33CF => 006B 0074
+"\xE3\x8F\x90" => "\x{006C}\x{006D}",         # U+33D0 => 006C 006D
+"\xE3\x8F\x91" => "\x{006C}\x{006E}",         # U+33D1 => 006C 006E
+"\xE3\x8F\x92" => "\x{006C}\x{006F}\x{0067}", # U+33D2 => 006C 006F 0067
+"\xE3\x8F\x93" => "\x{006C}\x{0078}",         # U+33D3 => 006C 0078
+"\xE3\x8F\x94" => "\x{006D}\x{0062}",         # U+33D4 => 006D 0062
+"\xE3\x8F\x95" => "\x{006D}\x{0069}\x{006C}", # U+33D5 => 006D 0069 006C
+"\xE3\x8F\x96" => "\x{006D}\x{006F}\x{006C}", # U+33D6 => 006D 006F 006C
+"\xE3\x8F\x97" => "\x{0070}\x{0068}",         # U+33D7 => 0070 0068
+"\xE3\x8F\x98" => "\x{0070}\x{002E}\x{006D}\x{002E}", # U+33D8 => 0070 002E 006D 002E
+"\xE3\x8F\x99" => "\x{0070}\x{0070}\x{006D}", # U+33D9 => 0070 0070 006D
+"\xE3\x8F\x9A" => "\x{0070}\x{0072}",         # U+33DA => 0070 0072
+"\xE3\x8F\x9B" => "\x{0073}\x{0072}",         # U+33DB => 0073 0072
+"\xE3\x8F\x9C" => "\x{0073}\x{0076}",         # U+33DC => 0073 0076
+"\xE3\x8F\x9D" => "\x{0077}\x{0062}",         # U+33DD => 0077 0062
+"\xE3\x8F\x9E" => "\x{0076}\x{2215}\x{006D}", # U+33DE => 0076 2215 006D
+"\xE3\x8F\x9F" => "\x{0061}\x{2215}\x{006D}", # U+33DF => 0061 2215 006D
+"\xE3\x8F\xA0" => "\x{0031}\x{65E5}",         # U+33E0 => 0031 65E5
+"\xE3\x8F\xA1" => "\x{0032}\x{65E5}",         # U+33E1 => 0032 65E5
+"\xE3\x8F\xA2" => "\x{0033}\x{65E5}",         # U+33E2 => 0033 65E5
+"\xE3\x8F\xA3" => "\x{0034}\x{65E5}",         # U+33E3 => 0034 65E5
+"\xE3\x8F\xA4" => "\x{0035}\x{65E5}",         # U+33E4 => 0035 65E5
+"\xE3\x8F\xA5" => "\x{0036}\x{65E5}",         # U+33E5 => 0036 65E5
+"\xE3\x8F\xA6" => "\x{0037}\x{65E5}",         # U+33E6 => 0037 65E5
+"\xE3\x8F\xA7" => "\x{0038}\x{65E5}",         # U+33E7 => 0038 65E5
+"\xE3\x8F\xA8" => "\x{0039}\x{65E5}",         # U+33E8 => 0039 65E5
+"\xE3\x8F\xA9" => "\x{0031}\x{0030}\x{65E5}", # U+33E9 => 0031 0030 65E5
+"\xE3\x8F\xAA" => "\x{0031}\x{0031}\x{65E5}", # U+33EA => 0031 0031 65E5
+"\xE3\x8F\xAB" => "\x{0031}\x{0032}\x{65E5}", # U+33EB => 0031 0032 65E5
+"\xE3\x8F\xAC" => "\x{0031}\x{0033}\x{65E5}", # U+33EC => 0031 0033 65E5
+"\xE3\x8F\xAD" => "\x{0031}\x{0034}\x{65E5}", # U+33ED => 0031 0034 65E5
+"\xE3\x8F\xAE" => "\x{0031}\x{0035}\x{65E5}", # U+33EE => 0031 0035 65E5
+"\xE3\x8F\xAF" => "\x{0031}\x{0036}\x{65E5}", # U+33EF => 0031 0036 65E5
+"\xE3\x8F\xB0" => "\x{0031}\x{0037}\x{65E5}", # U+33F0 => 0031 0037 65E5
+"\xE3\x8F\xB1" => "\x{0031}\x{0038}\x{65E5}", # U+33F1 => 0031 0038 65E5
+"\xE3\x8F\xB2" => "\x{0031}\x{0039}\x{65E5}", # U+33F2 => 0031 0039 65E5
+"\xE3\x8F\xB3" => "\x{0032}\x{0030}\x{65E5}", # U+33F3 => 0032 0030 65E5
+"\xE3\x8F\xB4" => "\x{0032}\x{0031}\x{65E5}", # U+33F4 => 0032 0031 65E5
+"\xE3\x8F\xB5" => "\x{0032}\x{0032}\x{65E5}", # U+33F5 => 0032 0032 65E5
+"\xE3\x8F\xB6" => "\x{0032}\x{0033}\x{65E5}", # U+33F6 => 0032 0033 65E5
+"\xE3\x8F\xB7" => "\x{0032}\x{0034}\x{65E5}", # U+33F7 => 0032 0034 65E5
+"\xE3\x8F\xB8" => "\x{0032}\x{0035}\x{65E5}", # U+33F8 => 0032 0035 65E5
+"\xE3\x8F\xB9" => "\x{0032}\x{0036}\x{65E5}", # U+33F9 => 0032 0036 65E5
+"\xE3\x8F\xBA" => "\x{0032}\x{0037}\x{65E5}", # U+33FA => 0032 0037 65E5
+"\xE3\x8F\xBB" => "\x{0032}\x{0038}\x{65E5}", # U+33FB => 0032 0038 65E5
+"\xE3\x8F\xBC" => "\x{0032}\x{0039}\x{65E5}", # U+33FC => 0032 0039 65E5
+"\xE3\x8F\xBD" => "\x{0033}\x{0030}\x{65E5}", # U+33FD => 0033 0030 65E5
+"\xE3\x8F\xBE" => "\x{0033}\x{0031}\x{65E5}", # U+33FE => 0033 0031 65E5
+"\xE3\x8F\xBF" => "\x{0067}\x{0061}\x{006C}", # U+33FF => 0067 0061 006C
+"\xEF\xAC\x80" => "\x{0066}\x{0066}",         # U+FB00 => 0066 0066
+"\xEF\xAC\x81" => "\x{0066}\x{0069}",         # U+FB01 => 0066 0069
+"\xEF\xAC\x82" => "\x{0066}\x{006C}",         # U+FB02 => 0066 006C
+"\xEF\xAC\x83" => "\x{0066}\x{0066}\x{0069}", # U+FB03 => 0066 0066 0069
+"\xEF\xAC\x84" => "\x{0066}\x{0066}\x{006C}", # U+FB04 => 0066 0066 006C
+"\xEF\xAC\x85" => "\x{0073}\x{0074}",         # U+FB05 => 0073 0074
+"\xEF\xAC\x86" => "\x{0073}\x{0074}",         # U+FB06 => 0073 0074
+"\xEF\xAC\x93" => "\x{0574}\x{0576}",         # U+FB13 => 0574 0576
+"\xEF\xAC\x94" => "\x{0574}\x{0565}",         # U+FB14 => 0574 0565
+"\xEF\xAC\x95" => "\x{0574}\x{056B}",         # U+FB15 => 0574 056B
+"\xEF\xAC\x96" => "\x{057E}\x{0576}",         # U+FB16 => 057E 0576
+"\xEF\xAC\x97" => "\x{0574}\x{056D}",         # U+FB17 => 0574 056D
+"\xEF\xAC\x9D" => "\x{05D9}\x{05B4}",         # U+FB1D => 05D9 05B4
+"\xEF\xAC\x9F" => "\x{05F2}\x{05B7}",         # U+FB1F => 05F2 05B7
+"\xEF\xAC\xAA" => "\x{05E9}\x{05C1}",         # U+FB2A => 05E9 05C1
+"\xEF\xAC\xAB" => "\x{05E9}\x{05C2}",         # U+FB2B => 05E9 05C2
+"\xEF\xAC\xAC" => "\x{05E9}\x{05BC}\x{05C1}", # U+FB2C => 05E9 05BC 05C1
+"\xEF\xAC\xAD" => "\x{05E9}\x{05BC}\x{05C2}", # U+FB2D => 05E9 05BC 05C2
+"\xEF\xAC\xAE" => "\x{05D0}\x{05B7}",         # U+FB2E => 05D0 05B7
+"\xEF\xAC\xAF" => "\x{05D0}\x{05B8}",         # U+FB2F => 05D0 05B8
+"\xEF\xAC\xB0" => "\x{05D0}\x{05BC}",         # U+FB30 => 05D0 05BC
+"\xEF\xAC\xB1" => "\x{05D1}\x{05BC}",         # U+FB31 => 05D1 05BC
+"\xEF\xAC\xB2" => "\x{05D2}\x{05BC}",         # U+FB32 => 05D2 05BC
+"\xEF\xAC\xB3" => "\x{05D3}\x{05BC}",         # U+FB33 => 05D3 05BC
+"\xEF\xAC\xB4" => "\x{05D4}\x{05BC}",         # U+FB34 => 05D4 05BC
+"\xEF\xAC\xB5" => "\x{05D5}\x{05BC}",         # U+FB35 => 05D5 05BC
+"\xEF\xAC\xB6" => "\x{05D6}\x{05BC}",         # U+FB36 => 05D6 05BC
+"\xEF\xAC\xB8" => "\x{05D8}\x{05BC}",         # U+FB38 => 05D8 05BC
+"\xEF\xAC\xB9" => "\x{05D9}\x{05BC}",         # U+FB39 => 05D9 05BC
+"\xEF\xAC\xBA" => "\x{05DA}\x{05BC}",         # U+FB3A => 05DA 05BC
+"\xEF\xAC\xBB" => "\x{05DB}\x{05BC}",         # U+FB3B => 05DB 05BC
+"\xEF\xAC\xBC" => "\x{05DC}\x{05BC}",         # U+FB3C => 05DC 05BC
+"\xEF\xAC\xBE" => "\x{05DE}\x{05BC}",         # U+FB3E => 05DE 05BC
+"\xEF\xAD\x80" => "\x{05E0}\x{05BC}",         # U+FB40 => 05E0 05BC
+"\xEF\xAD\x81" => "\x{05E1}\x{05BC}",         # U+FB41 => 05E1 05BC
+"\xEF\xAD\x83" => "\x{05E3}\x{05BC}",         # U+FB43 => 05E3 05BC
+"\xEF\xAD\x84" => "\x{05E4}\x{05BC}",         # U+FB44 => 05E4 05BC
+"\xEF\xAD\x86" => "\x{05E6}\x{05BC}",         # U+FB46 => 05E6 05BC
+"\xEF\xAD\x87" => "\x{05E7}\x{05BC}",         # U+FB47 => 05E7 05BC
+"\xEF\xAD\x88" => "\x{05E8}\x{05BC}",         # U+FB48 => 05E8 05BC
+"\xEF\xAD\x89" => "\x{05E9}\x{05BC}",         # U+FB49 => 05E9 05BC
+"\xEF\xAD\x8A" => "\x{05EA}\x{05BC}",         # U+FB4A => 05EA 05BC
+"\xEF\xAD\x8B" => "\x{05D5}\x{05B9}",         # U+FB4B => 05D5 05B9
+"\xEF\xAD\x8C" => "\x{05D1}\x{05BF}",         # U+FB4C => 05D1 05BF
+"\xEF\xAD\x8D" => "\x{05DB}\x{05BF}",         # U+FB4D => 05DB 05BF
+"\xEF\xAD\x8E" => "\x{05E4}\x{05BF}",         # U+FB4E => 05E4 05BF
+"\xEF\xAD\x8F" => "\x{05D0}\x{05DC}",         # U+FB4F => 05D0 05DC
+"\xEF\xAF\x9D" => "\x{06C7}\x{0674}",         # U+FBDD => 06C7 0674
+"\xEF\xAF\xAA" => "\x{0626}\x{0627}",         # U+FBEA => 0626 0627
+"\xEF\xAF\xAB" => "\x{0626}\x{0627}",         # U+FBEB => 0626 0627
+"\xEF\xAF\xAC" => "\x{0626}\x{06D5}",         # U+FBEC => 0626 06D5
+"\xEF\xAF\xAD" => "\x{0626}\x{06D5}",         # U+FBED => 0626 06D5
+"\xEF\xAF\xAE" => "\x{0626}\x{0648}",         # U+FBEE => 0626 0648
+"\xEF\xAF\xAF" => "\x{0626}\x{0648}",         # U+FBEF => 0626 0648
+"\xEF\xAF\xB0" => "\x{0626}\x{06C7}",         # U+FBF0 => 0626 06C7
+"\xEF\xAF\xB1" => "\x{0626}\x{06C7}",         # U+FBF1 => 0626 06C7
+"\xEF\xAF\xB2" => "\x{0626}\x{06C6}",         # U+FBF2 => 0626 06C6
+"\xEF\xAF\xB3" => "\x{0626}\x{06C6}",         # U+FBF3 => 0626 06C6
+"\xEF\xAF\xB4" => "\x{0626}\x{06C8}",         # U+FBF4 => 0626 06C8
+"\xEF\xAF\xB5" => "\x{0626}\x{06C8}",         # U+FBF5 => 0626 06C8
+"\xEF\xAF\xB6" => "\x{0626}\x{06D0}",         # U+FBF6 => 0626 06D0
+"\xEF\xAF\xB7" => "\x{0626}\x{06D0}",         # U+FBF7 => 0626 06D0
+"\xEF\xAF\xB8" => "\x{0626}\x{06D0}",         # U+FBF8 => 0626 06D0
+"\xEF\xAF\xB9" => "\x{0626}\x{0649}",         # U+FBF9 => 0626 0649
+"\xEF\xAF\xBA" => "\x{0626}\x{0649}",         # U+FBFA => 0626 0649
+"\xEF\xAF\xBB" => "\x{0626}\x{0649}",         # U+FBFB => 0626 0649
+"\xEF\xB0\x80" => "\x{0626}\x{062C}",         # U+FC00 => 0626 062C
+"\xEF\xB0\x81" => "\x{0626}\x{062D}",         # U+FC01 => 0626 062D
+"\xEF\xB0\x82" => "\x{0626}\x{0645}",         # U+FC02 => 0626 0645
+"\xEF\xB0\x83" => "\x{0626}\x{0649}",         # U+FC03 => 0626 0649
+"\xEF\xB0\x84" => "\x{0626}\x{064A}",         # U+FC04 => 0626 064A
+"\xEF\xB0\x85" => "\x{0628}\x{062C}",         # U+FC05 => 0628 062C
+"\xEF\xB0\x86" => "\x{0628}\x{062D}",         # U+FC06 => 0628 062D
+"\xEF\xB0\x87" => "\x{0628}\x{062E}",         # U+FC07 => 0628 062E
+"\xEF\xB0\x88" => "\x{0628}\x{0645}",         # U+FC08 => 0628 0645
+"\xEF\xB0\x89" => "\x{0628}\x{0649}",         # U+FC09 => 0628 0649
+"\xEF\xB0\x8A" => "\x{0628}\x{064A}",         # U+FC0A => 0628 064A
+"\xEF\xB0\x8B" => "\x{062A}\x{062C}",         # U+FC0B => 062A 062C
+"\xEF\xB0\x8C" => "\x{062A}\x{062D}",         # U+FC0C => 062A 062D
+"\xEF\xB0\x8D" => "\x{062A}\x{062E}",         # U+FC0D => 062A 062E
+"\xEF\xB0\x8E" => "\x{062A}\x{0645}",         # U+FC0E => 062A 0645
+"\xEF\xB0\x8F" => "\x{062A}\x{0649}",         # U+FC0F => 062A 0649
+"\xEF\xB0\x90" => "\x{062A}\x{064A}",         # U+FC10 => 062A 064A
+"\xEF\xB0\x91" => "\x{062B}\x{062C}",         # U+FC11 => 062B 062C
+"\xEF\xB0\x92" => "\x{062B}\x{0645}",         # U+FC12 => 062B 0645
+"\xEF\xB0\x93" => "\x{062B}\x{0649}",         # U+FC13 => 062B 0649
+"\xEF\xB0\x94" => "\x{062B}\x{064A}",         # U+FC14 => 062B 064A
+"\xEF\xB0\x95" => "\x{062C}\x{062D}",         # U+FC15 => 062C 062D
+"\xEF\xB0\x96" => "\x{062C}\x{0645}",         # U+FC16 => 062C 0645
+"\xEF\xB0\x97" => "\x{062D}\x{062C}",         # U+FC17 => 062D 062C
+"\xEF\xB0\x98" => "\x{062D}\x{0645}",         # U+FC18 => 062D 0645
+"\xEF\xB0\x99" => "\x{062E}\x{062C}",         # U+FC19 => 062E 062C
+"\xEF\xB0\x9A" => "\x{062E}\x{062D}",         # U+FC1A => 062E 062D
+"\xEF\xB0\x9B" => "\x{062E}\x{0645}",         # U+FC1B => 062E 0645
+"\xEF\xB0\x9C" => "\x{0633}\x{062C}",         # U+FC1C => 0633 062C
+"\xEF\xB0\x9D" => "\x{0633}\x{062D}",         # U+FC1D => 0633 062D
+"\xEF\xB0\x9E" => "\x{0633}\x{062E}",         # U+FC1E => 0633 062E
+"\xEF\xB0\x9F" => "\x{0633}\x{0645}",         # U+FC1F => 0633 0645
+"\xEF\xB0\xA0" => "\x{0635}\x{062D}",         # U+FC20 => 0635 062D
+"\xEF\xB0\xA1" => "\x{0635}\x{0645}",         # U+FC21 => 0635 0645
+"\xEF\xB0\xA2" => "\x{0636}\x{062C}",         # U+FC22 => 0636 062C
+"\xEF\xB0\xA3" => "\x{0636}\x{062D}",         # U+FC23 => 0636 062D
+"\xEF\xB0\xA4" => "\x{0636}\x{062E}",         # U+FC24 => 0636 062E
+"\xEF\xB0\xA5" => "\x{0636}\x{0645}",         # U+FC25 => 0636 0645
+"\xEF\xB0\xA6" => "\x{0637}\x{062D}",         # U+FC26 => 0637 062D
+"\xEF\xB0\xA7" => "\x{0637}\x{0645}",         # U+FC27 => 0637 0645
+"\xEF\xB0\xA8" => "\x{0638}\x{0645}",         # U+FC28 => 0638 0645
+"\xEF\xB0\xA9" => "\x{0639}\x{062C}",         # U+FC29 => 0639 062C
+"\xEF\xB0\xAA" => "\x{0639}\x{0645}",         # U+FC2A => 0639 0645
+"\xEF\xB0\xAB" => "\x{063A}\x{062C}",         # U+FC2B => 063A 062C
+"\xEF\xB0\xAC" => "\x{063A}\x{0645}",         # U+FC2C => 063A 0645
+"\xEF\xB0\xAD" => "\x{0641}\x{062C}",         # U+FC2D => 0641 062C
+"\xEF\xB0\xAE" => "\x{0641}\x{062D}",         # U+FC2E => 0641 062D
+"\xEF\xB0\xAF" => "\x{0641}\x{062E}",         # U+FC2F => 0641 062E
+"\xEF\xB0\xB0" => "\x{0641}\x{0645}",         # U+FC30 => 0641 0645
+"\xEF\xB0\xB1" => "\x{0641}\x{0649}",         # U+FC31 => 0641 0649
+"\xEF\xB0\xB2" => "\x{0641}\x{064A}",         # U+FC32 => 0641 064A
+"\xEF\xB0\xB3" => "\x{0642}\x{062D}",         # U+FC33 => 0642 062D
+"\xEF\xB0\xB4" => "\x{0642}\x{0645}",         # U+FC34 => 0642 0645
+"\xEF\xB0\xB5" => "\x{0642}\x{0649}",         # U+FC35 => 0642 0649
+"\xEF\xB0\xB6" => "\x{0642}\x{064A}",         # U+FC36 => 0642 064A
+"\xEF\xB0\xB7" => "\x{0643}\x{0627}",         # U+FC37 => 0643 0627
+"\xEF\xB0\xB8" => "\x{0643}\x{062C}",         # U+FC38 => 0643 062C
+"\xEF\xB0\xB9" => "\x{0643}\x{062D}",         # U+FC39 => 0643 062D
+"\xEF\xB0\xBA" => "\x{0643}\x{062E}",         # U+FC3A => 0643 062E
+"\xEF\xB0\xBB" => "\x{0643}\x{0644}",         # U+FC3B => 0643 0644
+"\xEF\xB0\xBC" => "\x{0643}\x{0645}",         # U+FC3C => 0643 0645
+"\xEF\xB0\xBD" => "\x{0643}\x{0649}",         # U+FC3D => 0643 0649
+"\xEF\xB0\xBE" => "\x{0643}\x{064A}",         # U+FC3E => 0643 064A
+"\xEF\xB0\xBF" => "\x{0644}\x{062C}",         # U+FC3F => 0644 062C
+"\xEF\xB1\x80" => "\x{0644}\x{062D}",         # U+FC40 => 0644 062D
+"\xEF\xB1\x81" => "\x{0644}\x{062E}",         # U+FC41 => 0644 062E
+"\xEF\xB1\x82" => "\x{0644}\x{0645}",         # U+FC42 => 0644 0645
+"\xEF\xB1\x83" => "\x{0644}\x{0649}",         # U+FC43 => 0644 0649
+"\xEF\xB1\x84" => "\x{0644}\x{064A}",         # U+FC44 => 0644 064A
+"\xEF\xB1\x85" => "\x{0645}\x{062C}",         # U+FC45 => 0645 062C
+"\xEF\xB1\x86" => "\x{0645}\x{062D}",         # U+FC46 => 0645 062D
+"\xEF\xB1\x87" => "\x{0645}\x{062E}",         # U+FC47 => 0645 062E
+"\xEF\xB1\x88" => "\x{0645}\x{0645}",         # U+FC48 => 0645 0645
+"\xEF\xB1\x89" => "\x{0645}\x{0649}",         # U+FC49 => 0645 0649
+"\xEF\xB1\x8A" => "\x{0645}\x{064A}",         # U+FC4A => 0645 064A
+"\xEF\xB1\x8B" => "\x{0646}\x{062C}",         # U+FC4B => 0646 062C
+"\xEF\xB1\x8C" => "\x{0646}\x{062D}",         # U+FC4C => 0646 062D
+"\xEF\xB1\x8D" => "\x{0646}\x{062E}",         # U+FC4D => 0646 062E
+"\xEF\xB1\x8E" => "\x{0646}\x{0645}",         # U+FC4E => 0646 0645
+"\xEF\xB1\x8F" => "\x{0646}\x{0649}",         # U+FC4F => 0646 0649
+"\xEF\xB1\x90" => "\x{0646}\x{064A}",         # U+FC50 => 0646 064A
+"\xEF\xB1\x91" => "\x{0647}\x{062C}",         # U+FC51 => 0647 062C
+"\xEF\xB1\x92" => "\x{0647}\x{0645}",         # U+FC52 => 0647 0645
+"\xEF\xB1\x93" => "\x{0647}\x{0649}",         # U+FC53 => 0647 0649
+"\xEF\xB1\x94" => "\x{0647}\x{064A}",         # U+FC54 => 0647 064A
+"\xEF\xB1\x95" => "\x{064A}\x{062C}",         # U+FC55 => 064A 062C
+"\xEF\xB1\x96" => "\x{064A}\x{062D}",         # U+FC56 => 064A 062D
+"\xEF\xB1\x97" => "\x{064A}\x{062E}",         # U+FC57 => 064A 062E
+"\xEF\xB1\x98" => "\x{064A}\x{0645}",         # U+FC58 => 064A 0645
+"\xEF\xB1\x99" => "\x{064A}\x{0649}",         # U+FC59 => 064A 0649
+"\xEF\xB1\x9A" => "\x{064A}\x{064A}",         # U+FC5A => 064A 064A
+"\xEF\xB1\x9B" => "\x{0630}\x{0670}",         # U+FC5B => 0630 0670
+"\xEF\xB1\x9C" => "\x{0631}\x{0670}",         # U+FC5C => 0631 0670
+"\xEF\xB1\x9D" => "\x{0649}\x{0670}",         # U+FC5D => 0649 0670
+"\xEF\xB1\x9E" => "\x{0020}\x{064C}\x{0651}", # U+FC5E => 0020 064C 0651
+"\xEF\xB1\x9F" => "\x{0020}\x{064D}\x{0651}", # U+FC5F => 0020 064D 0651
+"\xEF\xB1\xA0" => "\x{0020}\x{064E}\x{0651}", # U+FC60 => 0020 064E 0651
+"\xEF\xB1\xA1" => "\x{0020}\x{064F}\x{0651}", # U+FC61 => 0020 064F 0651
+"\xEF\xB1\xA2" => "\x{0020}\x{0650}\x{0651}", # U+FC62 => 0020 0650 0651
+"\xEF\xB1\xA3" => "\x{0020}\x{0651}\x{0670}", # U+FC63 => 0020 0651 0670
+"\xEF\xB1\xA4" => "\x{0626}\x{0631}",         # U+FC64 => 0626 0631
+"\xEF\xB1\xA5" => "\x{0626}\x{0632}",         # U+FC65 => 0626 0632
+"\xEF\xB1\xA6" => "\x{0626}\x{0645}",         # U+FC66 => 0626 0645
+"\xEF\xB1\xA7" => "\x{0626}\x{0646}",         # U+FC67 => 0626 0646
+"\xEF\xB1\xA8" => "\x{0626}\x{0649}",         # U+FC68 => 0626 0649
+"\xEF\xB1\xA9" => "\x{0626}\x{064A}",         # U+FC69 => 0626 064A
+"\xEF\xB1\xAA" => "\x{0628}\x{0631}",         # U+FC6A => 0628 0631
+"\xEF\xB1\xAB" => "\x{0628}\x{0632}",         # U+FC6B => 0628 0632
+"\xEF\xB1\xAC" => "\x{0628}\x{0645}",         # U+FC6C => 0628 0645
+"\xEF\xB1\xAD" => "\x{0628}\x{0646}",         # U+FC6D => 0628 0646
+"\xEF\xB1\xAE" => "\x{0628}\x{0649}",         # U+FC6E => 0628 0649
+"\xEF\xB1\xAF" => "\x{0628}\x{064A}",         # U+FC6F => 0628 064A
+"\xEF\xB1\xB0" => "\x{062A}\x{0631}",         # U+FC70 => 062A 0631
+"\xEF\xB1\xB1" => "\x{062A}\x{0632}",         # U+FC71 => 062A 0632
+"\xEF\xB1\xB2" => "\x{062A}\x{0645}",         # U+FC72 => 062A 0645
+"\xEF\xB1\xB3" => "\x{062A}\x{0646}",         # U+FC73 => 062A 0646
+"\xEF\xB1\xB4" => "\x{062A}\x{0649}",         # U+FC74 => 062A 0649
+"\xEF\xB1\xB5" => "\x{062A}\x{064A}",         # U+FC75 => 062A 064A
+"\xEF\xB1\xB6" => "\x{062B}\x{0631}",         # U+FC76 => 062B 0631
+"\xEF\xB1\xB7" => "\x{062B}\x{0632}",         # U+FC77 => 062B 0632
+"\xEF\xB1\xB8" => "\x{062B}\x{0645}",         # U+FC78 => 062B 0645
+"\xEF\xB1\xB9" => "\x{062B}\x{0646}",         # U+FC79 => 062B 0646
+"\xEF\xB1\xBA" => "\x{062B}\x{0649}",         # U+FC7A => 062B 0649
+"\xEF\xB1\xBB" => "\x{062B}\x{064A}",         # U+FC7B => 062B 064A
+"\xEF\xB1\xBC" => "\x{0641}\x{0649}",         # U+FC7C => 0641 0649
+"\xEF\xB1\xBD" => "\x{0641}\x{064A}",         # U+FC7D => 0641 064A
+"\xEF\xB1\xBE" => "\x{0642}\x{0649}",         # U+FC7E => 0642 0649
+"\xEF\xB1\xBF" => "\x{0642}\x{064A}",         # U+FC7F => 0642 064A
+"\xEF\xB2\x80" => "\x{0643}\x{0627}",         # U+FC80 => 0643 0627
+"\xEF\xB2\x81" => "\x{0643}\x{0644}",         # U+FC81 => 0643 0644
+"\xEF\xB2\x82" => "\x{0643}\x{0645}",         # U+FC82 => 0643 0645
+"\xEF\xB2\x83" => "\x{0643}\x{0649}",         # U+FC83 => 0643 0649
+"\xEF\xB2\x84" => "\x{0643}\x{064A}",         # U+FC84 => 0643 064A
+"\xEF\xB2\x85" => "\x{0644}\x{0645}",         # U+FC85 => 0644 0645
+"\xEF\xB2\x86" => "\x{0644}\x{0649}",         # U+FC86 => 0644 0649
+"\xEF\xB2\x87" => "\x{0644}\x{064A}",         # U+FC87 => 0644 064A
+"\xEF\xB2\x88" => "\x{0645}\x{0627}",         # U+FC88 => 0645 0627
+"\xEF\xB2\x89" => "\x{0645}\x{0645}",         # U+FC89 => 0645 0645
+"\xEF\xB2\x8A" => "\x{0646}\x{0631}",         # U+FC8A => 0646 0631
+"\xEF\xB2\x8B" => "\x{0646}\x{0632}",         # U+FC8B => 0646 0632
+"\xEF\xB2\x8C" => "\x{0646}\x{0645}",         # U+FC8C => 0646 0645
+"\xEF\xB2\x8D" => "\x{0646}\x{0646}",         # U+FC8D => 0646 0646
+"\xEF\xB2\x8E" => "\x{0646}\x{0649}",         # U+FC8E => 0646 0649
+"\xEF\xB2\x8F" => "\x{0646}\x{064A}",         # U+FC8F => 0646 064A
+"\xEF\xB2\x90" => "\x{0649}\x{0670}",         # U+FC90 => 0649 0670
+"\xEF\xB2\x91" => "\x{064A}\x{0631}",         # U+FC91 => 064A 0631
+"\xEF\xB2\x92" => "\x{064A}\x{0632}",         # U+FC92 => 064A 0632
+"\xEF\xB2\x93" => "\x{064A}\x{0645}",         # U+FC93 => 064A 0645
+"\xEF\xB2\x94" => "\x{064A}\x{0646}",         # U+FC94 => 064A 0646
+"\xEF\xB2\x95" => "\x{064A}\x{0649}",         # U+FC95 => 064A 0649
+"\xEF\xB2\x96" => "\x{064A}\x{064A}",         # U+FC96 => 064A 064A
+"\xEF\xB2\x97" => "\x{0626}\x{062C}",         # U+FC97 => 0626 062C
+"\xEF\xB2\x98" => "\x{0626}\x{062D}",         # U+FC98 => 0626 062D
+"\xEF\xB2\x99" => "\x{0626}\x{062E}",         # U+FC99 => 0626 062E
+"\xEF\xB2\x9A" => "\x{0626}\x{0645}",         # U+FC9A => 0626 0645
+"\xEF\xB2\x9B" => "\x{0626}\x{0647}",         # U+FC9B => 0626 0647
+"\xEF\xB2\x9C" => "\x{0628}\x{062C}",         # U+FC9C => 0628 062C
+"\xEF\xB2\x9D" => "\x{0628}\x{062D}",         # U+FC9D => 0628 062D
+"\xEF\xB2\x9E" => "\x{0628}\x{062E}",         # U+FC9E => 0628 062E
+"\xEF\xB2\x9F" => "\x{0628}\x{0645}",         # U+FC9F => 0628 0645
+"\xEF\xB2\xA0" => "\x{0628}\x{0647}",         # U+FCA0 => 0628 0647
+"\xEF\xB2\xA1" => "\x{062A}\x{062C}",         # U+FCA1 => 062A 062C
+"\xEF\xB2\xA2" => "\x{062A}\x{062D}",         # U+FCA2 => 062A 062D
+"\xEF\xB2\xA3" => "\x{062A}\x{062E}",         # U+FCA3 => 062A 062E
+"\xEF\xB2\xA4" => "\x{062A}\x{0645}",         # U+FCA4 => 062A 0645
+"\xEF\xB2\xA5" => "\x{062A}\x{0647}",         # U+FCA5 => 062A 0647
+"\xEF\xB2\xA6" => "\x{062B}\x{0645}",         # U+FCA6 => 062B 0645
+"\xEF\xB2\xA7" => "\x{062C}\x{062D}",         # U+FCA7 => 062C 062D
+"\xEF\xB2\xA8" => "\x{062C}\x{0645}",         # U+FCA8 => 062C 0645
+"\xEF\xB2\xA9" => "\x{062D}\x{062C}",         # U+FCA9 => 062D 062C
+"\xEF\xB2\xAA" => "\x{062D}\x{0645}",         # U+FCAA => 062D 0645
+"\xEF\xB2\xAB" => "\x{062E}\x{062C}",         # U+FCAB => 062E 062C
+"\xEF\xB2\xAC" => "\x{062E}\x{0645}",         # U+FCAC => 062E 0645
+"\xEF\xB2\xAD" => "\x{0633}\x{062C}",         # U+FCAD => 0633 062C
+"\xEF\xB2\xAE" => "\x{0633}\x{062D}",         # U+FCAE => 0633 062D
+"\xEF\xB2\xAF" => "\x{0633}\x{062E}",         # U+FCAF => 0633 062E
+"\xEF\xB2\xB0" => "\x{0633}\x{0645}",         # U+FCB0 => 0633 0645
+"\xEF\xB2\xB1" => "\x{0635}\x{062D}",         # U+FCB1 => 0635 062D
+"\xEF\xB2\xB2" => "\x{0635}\x{062E}",         # U+FCB2 => 0635 062E
+"\xEF\xB2\xB3" => "\x{0635}\x{0645}",         # U+FCB3 => 0635 0645
+"\xEF\xB2\xB4" => "\x{0636}\x{062C}",         # U+FCB4 => 0636 062C
+"\xEF\xB2\xB5" => "\x{0636}\x{062D}",         # U+FCB5 => 0636 062D
+"\xEF\xB2\xB6" => "\x{0636}\x{062E}",         # U+FCB6 => 0636 062E
+"\xEF\xB2\xB7" => "\x{0636}\x{0645}",         # U+FCB7 => 0636 0645
+"\xEF\xB2\xB8" => "\x{0637}\x{062D}",         # U+FCB8 => 0637 062D
+"\xEF\xB2\xB9" => "\x{0638}\x{0645}",         # U+FCB9 => 0638 0645
+"\xEF\xB2\xBA" => "\x{0639}\x{062C}",         # U+FCBA => 0639 062C
+"\xEF\xB2\xBB" => "\x{0639}\x{0645}",         # U+FCBB => 0639 0645
+"\xEF\xB2\xBC" => "\x{063A}\x{062C}",         # U+FCBC => 063A 062C
+"\xEF\xB2\xBD" => "\x{063A}\x{0645}",         # U+FCBD => 063A 0645
+"\xEF\xB2\xBE" => "\x{0641}\x{062C}",         # U+FCBE => 0641 062C
+"\xEF\xB2\xBF" => "\x{0641}\x{062D}",         # U+FCBF => 0641 062D
+"\xEF\xB3\x80" => "\x{0641}\x{062E}",         # U+FCC0 => 0641 062E
+"\xEF\xB3\x81" => "\x{0641}\x{0645}",         # U+FCC1 => 0641 0645
+"\xEF\xB3\x82" => "\x{0642}\x{062D}",         # U+FCC2 => 0642 062D
+"\xEF\xB3\x83" => "\x{0642}\x{0645}",         # U+FCC3 => 0642 0645
+"\xEF\xB3\x84" => "\x{0643}\x{062C}",         # U+FCC4 => 0643 062C
+"\xEF\xB3\x85" => "\x{0643}\x{062D}",         # U+FCC5 => 0643 062D
+"\xEF\xB3\x86" => "\x{0643}\x{062E}",         # U+FCC6 => 0643 062E
+"\xEF\xB3\x87" => "\x{0643}\x{0644}",         # U+FCC7 => 0643 0644
+"\xEF\xB3\x88" => "\x{0643}\x{0645}",         # U+FCC8 => 0643 0645
+"\xEF\xB3\x89" => "\x{0644}\x{062C}",         # U+FCC9 => 0644 062C
+"\xEF\xB3\x8A" => "\x{0644}\x{062D}",         # U+FCCA => 0644 062D
+"\xEF\xB3\x8B" => "\x{0644}\x{062E}",         # U+FCCB => 0644 062E
+"\xEF\xB3\x8C" => "\x{0644}\x{0645}",         # U+FCCC => 0644 0645
+"\xEF\xB3\x8D" => "\x{0644}\x{0647}",         # U+FCCD => 0644 0647
+"\xEF\xB3\x8E" => "\x{0645}\x{062C}",         # U+FCCE => 0645 062C
+"\xEF\xB3\x8F" => "\x{0645}\x{062D}",         # U+FCCF => 0645 062D
+"\xEF\xB3\x90" => "\x{0645}\x{062E}",         # U+FCD0 => 0645 062E
+"\xEF\xB3\x91" => "\x{0645}\x{0645}",         # U+FCD1 => 0645 0645
+"\xEF\xB3\x92" => "\x{0646}\x{062C}",         # U+FCD2 => 0646 062C
+"\xEF\xB3\x93" => "\x{0646}\x{062D}",         # U+FCD3 => 0646 062D
+"\xEF\xB3\x94" => "\x{0646}\x{062E}",         # U+FCD4 => 0646 062E
+"\xEF\xB3\x95" => "\x{0646}\x{0645}",         # U+FCD5 => 0646 0645
+"\xEF\xB3\x96" => "\x{0646}\x{0647}",         # U+FCD6 => 0646 0647
+"\xEF\xB3\x97" => "\x{0647}\x{062C}",         # U+FCD7 => 0647 062C
+"\xEF\xB3\x98" => "\x{0647}\x{0645}",         # U+FCD8 => 0647 0645
+"\xEF\xB3\x99" => "\x{0647}\x{0670}",         # U+FCD9 => 0647 0670
+"\xEF\xB3\x9A" => "\x{064A}\x{062C}",         # U+FCDA => 064A 062C
+"\xEF\xB3\x9B" => "\x{064A}\x{062D}",         # U+FCDB => 064A 062D
+"\xEF\xB3\x9C" => "\x{064A}\x{062E}",         # U+FCDC => 064A 062E
+"\xEF\xB3\x9D" => "\x{064A}\x{0645}",         # U+FCDD => 064A 0645
+"\xEF\xB3\x9E" => "\x{064A}\x{0647}",         # U+FCDE => 064A 0647
+"\xEF\xB3\x9F" => "\x{0626}\x{0645}",         # U+FCDF => 0626 0645
+"\xEF\xB3\xA0" => "\x{0626}\x{0647}",         # U+FCE0 => 0626 0647
+"\xEF\xB3\xA1" => "\x{0628}\x{0645}",         # U+FCE1 => 0628 0645
+"\xEF\xB3\xA2" => "\x{0628}\x{0647}",         # U+FCE2 => 0628 0647
+"\xEF\xB3\xA3" => "\x{062A}\x{0645}",         # U+FCE3 => 062A 0645
+"\xEF\xB3\xA4" => "\x{062A}\x{0647}",         # U+FCE4 => 062A 0647
+"\xEF\xB3\xA5" => "\x{062B}\x{0645}",         # U+FCE5 => 062B 0645
+"\xEF\xB3\xA6" => "\x{062B}\x{0647}",         # U+FCE6 => 062B 0647
+"\xEF\xB3\xA7" => "\x{0633}\x{0645}",         # U+FCE7 => 0633 0645
+"\xEF\xB3\xA8" => "\x{0633}\x{0647}",         # U+FCE8 => 0633 0647
+"\xEF\xB3\xA9" => "\x{0634}\x{0645}",         # U+FCE9 => 0634 0645
+"\xEF\xB3\xAA" => "\x{0634}\x{0647}",         # U+FCEA => 0634 0647
+"\xEF\xB3\xAB" => "\x{0643}\x{0644}",         # U+FCEB => 0643 0644
+"\xEF\xB3\xAC" => "\x{0643}\x{0645}",         # U+FCEC => 0643 0645
+"\xEF\xB3\xAD" => "\x{0644}\x{0645}",         # U+FCED => 0644 0645
+"\xEF\xB3\xAE" => "\x{0646}\x{0645}",         # U+FCEE => 0646 0645
+"\xEF\xB3\xAF" => "\x{0646}\x{0647}",         # U+FCEF => 0646 0647
+"\xEF\xB3\xB0" => "\x{064A}\x{0645}",         # U+FCF0 => 064A 0645
+"\xEF\xB3\xB1" => "\x{064A}\x{0647}",         # U+FCF1 => 064A 0647
+"\xEF\xB3\xB2" => "\x{0640}\x{064E}\x{0651}", # U+FCF2 => 0640 064E 0651
+"\xEF\xB3\xB3" => "\x{0640}\x{064F}\x{0651}", # U+FCF3 => 0640 064F 0651
+"\xEF\xB3\xB4" => "\x{0640}\x{0650}\x{0651}", # U+FCF4 => 0640 0650 0651
+"\xEF\xB3\xB5" => "\x{0637}\x{0649}",         # U+FCF5 => 0637 0649
+"\xEF\xB3\xB6" => "\x{0637}\x{064A}",         # U+FCF6 => 0637 064A
+"\xEF\xB3\xB7" => "\x{0639}\x{0649}",         # U+FCF7 => 0639 0649
+"\xEF\xB3\xB8" => "\x{0639}\x{064A}",         # U+FCF8 => 0639 064A
+"\xEF\xB3\xB9" => "\x{063A}\x{0649}",         # U+FCF9 => 063A 0649
+"\xEF\xB3\xBA" => "\x{063A}\x{064A}",         # U+FCFA => 063A 064A
+"\xEF\xB3\xBB" => "\x{0633}\x{0649}",         # U+FCFB => 0633 0649
+"\xEF\xB3\xBC" => "\x{0633}\x{064A}",         # U+FCFC => 0633 064A
+"\xEF\xB3\xBD" => "\x{0634}\x{0649}",         # U+FCFD => 0634 0649
+"\xEF\xB3\xBE" => "\x{0634}\x{064A}",         # U+FCFE => 0634 064A
+"\xEF\xB3\xBF" => "\x{062D}\x{0649}",         # U+FCFF => 062D 0649
+"\xEF\xB4\x80" => "\x{062D}\x{064A}",         # U+FD00 => 062D 064A
+"\xEF\xB4\x81" => "\x{062C}\x{0649}",         # U+FD01 => 062C 0649
+"\xEF\xB4\x82" => "\x{062C}\x{064A}",         # U+FD02 => 062C 064A
+"\xEF\xB4\x83" => "\x{062E}\x{0649}",         # U+FD03 => 062E 0649
+"\xEF\xB4\x84" => "\x{062E}\x{064A}",         # U+FD04 => 062E 064A
+"\xEF\xB4\x85" => "\x{0635}\x{0649}",         # U+FD05 => 0635 0649
+"\xEF\xB4\x86" => "\x{0635}\x{064A}",         # U+FD06 => 0635 064A
+"\xEF\xB4\x87" => "\x{0636}\x{0649}",         # U+FD07 => 0636 0649
+"\xEF\xB4\x88" => "\x{0636}\x{064A}",         # U+FD08 => 0636 064A
+"\xEF\xB4\x89" => "\x{0634}\x{062C}",         # U+FD09 => 0634 062C
+"\xEF\xB4\x8A" => "\x{0634}\x{062D}",         # U+FD0A => 0634 062D
+"\xEF\xB4\x8B" => "\x{0634}\x{062E}",         # U+FD0B => 0634 062E
+"\xEF\xB4\x8C" => "\x{0634}\x{0645}",         # U+FD0C => 0634 0645
+"\xEF\xB4\x8D" => "\x{0634}\x{0631}",         # U+FD0D => 0634 0631
+"\xEF\xB4\x8E" => "\x{0633}\x{0631}",         # U+FD0E => 0633 0631
+"\xEF\xB4\x8F" => "\x{0635}\x{0631}",         # U+FD0F => 0635 0631
+"\xEF\xB4\x90" => "\x{0636}\x{0631}",         # U+FD10 => 0636 0631
+"\xEF\xB4\x91" => "\x{0637}\x{0649}",         # U+FD11 => 0637 0649
+"\xEF\xB4\x92" => "\x{0637}\x{064A}",         # U+FD12 => 0637 064A
+"\xEF\xB4\x93" => "\x{0639}\x{0649}",         # U+FD13 => 0639 0649
+"\xEF\xB4\x94" => "\x{0639}\x{064A}",         # U+FD14 => 0639 064A
+"\xEF\xB4\x95" => "\x{063A}\x{0649}",         # U+FD15 => 063A 0649
+"\xEF\xB4\x96" => "\x{063A}\x{064A}",         # U+FD16 => 063A 064A
+"\xEF\xB4\x97" => "\x{0633}\x{0649}",         # U+FD17 => 0633 0649
+"\xEF\xB4\x98" => "\x{0633}\x{064A}",         # U+FD18 => 0633 064A
+"\xEF\xB4\x99" => "\x{0634}\x{0649}",         # U+FD19 => 0634 0649
+"\xEF\xB4\x9A" => "\x{0634}\x{064A}",         # U+FD1A => 0634 064A
+"\xEF\xB4\x9B" => "\x{062D}\x{0649}",         # U+FD1B => 062D 0649
+"\xEF\xB4\x9C" => "\x{062D}\x{064A}",         # U+FD1C => 062D 064A
+"\xEF\xB4\x9D" => "\x{062C}\x{0649}",         # U+FD1D => 062C 0649
+"\xEF\xB4\x9E" => "\x{062C}\x{064A}",         # U+FD1E => 062C 064A
+"\xEF\xB4\x9F" => "\x{062E}\x{0649}",         # U+FD1F => 062E 0649
+"\xEF\xB4\xA0" => "\x{062E}\x{064A}",         # U+FD20 => 062E 064A
+"\xEF\xB4\xA1" => "\x{0635}\x{0649}",         # U+FD21 => 0635 0649
+"\xEF\xB4\xA2" => "\x{0635}\x{064A}",         # U+FD22 => 0635 064A
+"\xEF\xB4\xA3" => "\x{0636}\x{0649}",         # U+FD23 => 0636 0649
+"\xEF\xB4\xA4" => "\x{0636}\x{064A}",         # U+FD24 => 0636 064A
+"\xEF\xB4\xA5" => "\x{0634}\x{062C}",         # U+FD25 => 0634 062C
+"\xEF\xB4\xA6" => "\x{0634}\x{062D}",         # U+FD26 => 0634 062D
+"\xEF\xB4\xA7" => "\x{0634}\x{062E}",         # U+FD27 => 0634 062E
+"\xEF\xB4\xA8" => "\x{0634}\x{0645}",         # U+FD28 => 0634 0645
+"\xEF\xB4\xA9" => "\x{0634}\x{0631}",         # U+FD29 => 0634 0631
+"\xEF\xB4\xAA" => "\x{0633}\x{0631}",         # U+FD2A => 0633 0631
+"\xEF\xB4\xAB" => "\x{0635}\x{0631}",         # U+FD2B => 0635 0631
+"\xEF\xB4\xAC" => "\x{0636}\x{0631}",         # U+FD2C => 0636 0631
+"\xEF\xB4\xAD" => "\x{0634}\x{062C}",         # U+FD2D => 0634 062C
+"\xEF\xB4\xAE" => "\x{0634}\x{062D}",         # U+FD2E => 0634 062D
+"\xEF\xB4\xAF" => "\x{0634}\x{062E}",         # U+FD2F => 0634 062E
+"\xEF\xB4\xB0" => "\x{0634}\x{0645}",         # U+FD30 => 0634 0645
+"\xEF\xB4\xB1" => "\x{0633}\x{0647}",         # U+FD31 => 0633 0647
+"\xEF\xB4\xB2" => "\x{0634}\x{0647}",         # U+FD32 => 0634 0647
+"\xEF\xB4\xB3" => "\x{0637}\x{0645}",         # U+FD33 => 0637 0645
+"\xEF\xB4\xB4" => "\x{0633}\x{062C}",         # U+FD34 => 0633 062C
+"\xEF\xB4\xB5" => "\x{0633}\x{062D}",         # U+FD35 => 0633 062D
+"\xEF\xB4\xB6" => "\x{0633}\x{062E}",         # U+FD36 => 0633 062E
+"\xEF\xB4\xB7" => "\x{0634}\x{062C}",         # U+FD37 => 0634 062C
+"\xEF\xB4\xB8" => "\x{0634}\x{062D}",         # U+FD38 => 0634 062D
+"\xEF\xB4\xB9" => "\x{0634}\x{062E}",         # U+FD39 => 0634 062E
+"\xEF\xB4\xBA" => "\x{0637}\x{0645}",         # U+FD3A => 0637 0645
+"\xEF\xB4\xBB" => "\x{0638}\x{0645}",         # U+FD3B => 0638 0645
+"\xEF\xB4\xBC" => "\x{0627}\x{064B}",         # U+FD3C => 0627 064B
+"\xEF\xB4\xBD" => "\x{0627}\x{064B}",         # U+FD3D => 0627 064B
+"\xEF\xB5\x90" => "\x{062A}\x{062C}\x{0645}", # U+FD50 => 062A 062C 0645
+"\xEF\xB5\x91" => "\x{062A}\x{062D}\x{062C}", # U+FD51 => 062A 062D 062C
+"\xEF\xB5\x92" => "\x{062A}\x{062D}\x{062C}", # U+FD52 => 062A 062D 062C
+"\xEF\xB5\x93" => "\x{062A}\x{062D}\x{0645}", # U+FD53 => 062A 062D 0645
+"\xEF\xB5\x94" => "\x{062A}\x{062E}\x{0645}", # U+FD54 => 062A 062E 0645
+"\xEF\xB5\x95" => "\x{062A}\x{0645}\x{062C}", # U+FD55 => 062A 0645 062C
+"\xEF\xB5\x96" => "\x{062A}\x{0645}\x{062D}", # U+FD56 => 062A 0645 062D
+"\xEF\xB5\x97" => "\x{062A}\x{0645}\x{062E}", # U+FD57 => 062A 0645 062E
+"\xEF\xB5\x98" => "\x{062C}\x{0645}\x{062D}", # U+FD58 => 062C 0645 062D
+"\xEF\xB5\x99" => "\x{062C}\x{0645}\x{062D}", # U+FD59 => 062C 0645 062D
+"\xEF\xB5\x9A" => "\x{062D}\x{0645}\x{064A}", # U+FD5A => 062D 0645 064A
+"\xEF\xB5\x9B" => "\x{062D}\x{0645}\x{0649}", # U+FD5B => 062D 0645 0649
+"\xEF\xB5\x9C" => "\x{0633}\x{062D}\x{062C}", # U+FD5C => 0633 062D 062C
+"\xEF\xB5\x9D" => "\x{0633}\x{062C}\x{062D}", # U+FD5D => 0633 062C 062D
+"\xEF\xB5\x9E" => "\x{0633}\x{062C}\x{0649}", # U+FD5E => 0633 062C 0649
+"\xEF\xB5\x9F" => "\x{0633}\x{0645}\x{062D}", # U+FD5F => 0633 0645 062D
+"\xEF\xB5\xA0" => "\x{0633}\x{0645}\x{062D}", # U+FD60 => 0633 0645 062D
+"\xEF\xB5\xA1" => "\x{0633}\x{0645}\x{062C}", # U+FD61 => 0633 0645 062C
+"\xEF\xB5\xA2" => "\x{0633}\x{0645}\x{0645}", # U+FD62 => 0633 0645 0645
+"\xEF\xB5\xA3" => "\x{0633}\x{0645}\x{0645}", # U+FD63 => 0633 0645 0645
+"\xEF\xB5\xA4" => "\x{0635}\x{062D}\x{062D}", # U+FD64 => 0635 062D 062D
+"\xEF\xB5\xA5" => "\x{0635}\x{062D}\x{062D}", # U+FD65 => 0635 062D 062D
+"\xEF\xB5\xA6" => "\x{0635}\x{0645}\x{0645}", # U+FD66 => 0635 0645 0645
+"\xEF\xB5\xA7" => "\x{0634}\x{062D}\x{0645}", # U+FD67 => 0634 062D 0645
+"\xEF\xB5\xA8" => "\x{0634}\x{062D}\x{0645}", # U+FD68 => 0634 062D 0645
+"\xEF\xB5\xA9" => "\x{0634}\x{062C}\x{064A}", # U+FD69 => 0634 062C 064A
+"\xEF\xB5\xAA" => "\x{0634}\x{0645}\x{062E}", # U+FD6A => 0634 0645 062E
+"\xEF\xB5\xAB" => "\x{0634}\x{0645}\x{062E}", # U+FD6B => 0634 0645 062E
+"\xEF\xB5\xAC" => "\x{0634}\x{0645}\x{0645}", # U+FD6C => 0634 0645 0645
+"\xEF\xB5\xAD" => "\x{0634}\x{0645}\x{0645}", # U+FD6D => 0634 0645 0645
+"\xEF\xB5\xAE" => "\x{0636}\x{062D}\x{0649}", # U+FD6E => 0636 062D 0649
+"\xEF\xB5\xAF" => "\x{0636}\x{062E}\x{0645}", # U+FD6F => 0636 062E 0645
+"\xEF\xB5\xB0" => "\x{0636}\x{062E}\x{0645}", # U+FD70 => 0636 062E 0645
+"\xEF\xB5\xB1" => "\x{0637}\x{0645}\x{062D}", # U+FD71 => 0637 0645 062D
+"\xEF\xB5\xB2" => "\x{0637}\x{0645}\x{062D}", # U+FD72 => 0637 0645 062D
+"\xEF\xB5\xB3" => "\x{0637}\x{0645}\x{0645}", # U+FD73 => 0637 0645 0645
+"\xEF\xB5\xB4" => "\x{0637}\x{0645}\x{064A}", # U+FD74 => 0637 0645 064A
+"\xEF\xB5\xB5" => "\x{0639}\x{062C}\x{0645}", # U+FD75 => 0639 062C 0645
+"\xEF\xB5\xB6" => "\x{0639}\x{0645}\x{0645}", # U+FD76 => 0639 0645 0645
+"\xEF\xB5\xB7" => "\x{0639}\x{0645}\x{0645}", # U+FD77 => 0639 0645 0645
+"\xEF\xB5\xB8" => "\x{0639}\x{0645}\x{0649}", # U+FD78 => 0639 0645 0649
+"\xEF\xB5\xB9" => "\x{063A}\x{0645}\x{0645}", # U+FD79 => 063A 0645 0645
+"\xEF\xB5\xBA" => "\x{063A}\x{0645}\x{064A}", # U+FD7A => 063A 0645 064A
+"\xEF\xB5\xBB" => "\x{063A}\x{0645}\x{0649}", # U+FD7B => 063A 0645 0649
+"\xEF\xB5\xBC" => "\x{0641}\x{062E}\x{0645}", # U+FD7C => 0641 062E 0645
+"\xEF\xB5\xBD" => "\x{0641}\x{062E}\x{0645}", # U+FD7D => 0641 062E 0645
+"\xEF\xB5\xBE" => "\x{0642}\x{0645}\x{062D}", # U+FD7E => 0642 0645 062D
+"\xEF\xB5\xBF" => "\x{0642}\x{0645}\x{0645}", # U+FD7F => 0642 0645 0645
+"\xEF\xB6\x80" => "\x{0644}\x{062D}\x{0645}", # U+FD80 => 0644 062D 0645
+"\xEF\xB6\x81" => "\x{0644}\x{062D}\x{064A}", # U+FD81 => 0644 062D 064A
+"\xEF\xB6\x82" => "\x{0644}\x{062D}\x{0649}", # U+FD82 => 0644 062D 0649
+"\xEF\xB6\x83" => "\x{0644}\x{062C}\x{062C}", # U+FD83 => 0644 062C 062C
+"\xEF\xB6\x84" => "\x{0644}\x{062C}\x{062C}", # U+FD84 => 0644 062C 062C
+"\xEF\xB6\x85" => "\x{0644}\x{062E}\x{0645}", # U+FD85 => 0644 062E 0645
+"\xEF\xB6\x86" => "\x{0644}\x{062E}\x{0645}", # U+FD86 => 0644 062E 0645
+"\xEF\xB6\x87" => "\x{0644}\x{0645}\x{062D}", # U+FD87 => 0644 0645 062D
+"\xEF\xB6\x88" => "\x{0644}\x{0645}\x{062D}", # U+FD88 => 0644 0645 062D
+"\xEF\xB6\x89" => "\x{0645}\x{062D}\x{062C}", # U+FD89 => 0645 062D 062C
+"\xEF\xB6\x8A" => "\x{0645}\x{062D}\x{0645}", # U+FD8A => 0645 062D 0645
+"\xEF\xB6\x8B" => "\x{0645}\x{062D}\x{064A}", # U+FD8B => 0645 062D 064A
+"\xEF\xB6\x8C" => "\x{0645}\x{062C}\x{062D}", # U+FD8C => 0645 062C 062D
+"\xEF\xB6\x8D" => "\x{0645}\x{062C}\x{0645}", # U+FD8D => 0645 062C 0645
+"\xEF\xB6\x8E" => "\x{0645}\x{062E}\x{062C}", # U+FD8E => 0645 062E 062C
+"\xEF\xB6\x8F" => "\x{0645}\x{062E}\x{0645}", # U+FD8F => 0645 062E 0645
+"\xEF\xB6\x92" => "\x{0645}\x{062C}\x{062E}", # U+FD92 => 0645 062C 062E
+"\xEF\xB6\x93" => "\x{0647}\x{0645}\x{062C}", # U+FD93 => 0647 0645 062C
+"\xEF\xB6\x94" => "\x{0647}\x{0645}\x{0645}", # U+FD94 => 0647 0645 0645
+"\xEF\xB6\x95" => "\x{0646}\x{062D}\x{0645}", # U+FD95 => 0646 062D 0645
+"\xEF\xB6\x96" => "\x{0646}\x{062D}\x{0649}", # U+FD96 => 0646 062D 0649
+"\xEF\xB6\x97" => "\x{0646}\x{062C}\x{0645}", # U+FD97 => 0646 062C 0645
+"\xEF\xB6\x98" => "\x{0646}\x{062C}\x{0645}", # U+FD98 => 0646 062C 0645
+"\xEF\xB6\x99" => "\x{0646}\x{062C}\x{0649}", # U+FD99 => 0646 062C 0649
+"\xEF\xB6\x9A" => "\x{0646}\x{0645}\x{064A}", # U+FD9A => 0646 0645 064A
+"\xEF\xB6\x9B" => "\x{0646}\x{0645}\x{0649}", # U+FD9B => 0646 0645 0649
+"\xEF\xB6\x9C" => "\x{064A}\x{0645}\x{0645}", # U+FD9C => 064A 0645 0645
+"\xEF\xB6\x9D" => "\x{064A}\x{0645}\x{0645}", # U+FD9D => 064A 0645 0645
+"\xEF\xB6\x9E" => "\x{0628}\x{062E}\x{064A}", # U+FD9E => 0628 062E 064A
+"\xEF\xB6\x9F" => "\x{062A}\x{062C}\x{064A}", # U+FD9F => 062A 062C 064A
+"\xEF\xB6\xA0" => "\x{062A}\x{062C}\x{0649}", # U+FDA0 => 062A 062C 0649
+"\xEF\xB6\xA1" => "\x{062A}\x{062E}\x{064A}", # U+FDA1 => 062A 062E 064A
+"\xEF\xB6\xA2" => "\x{062A}\x{062E}\x{0649}", # U+FDA2 => 062A 062E 0649
+"\xEF\xB6\xA3" => "\x{062A}\x{0645}\x{064A}", # U+FDA3 => 062A 0645 064A
+"\xEF\xB6\xA4" => "\x{062A}\x{0645}\x{0649}", # U+FDA4 => 062A 0645 0649
+"\xEF\xB6\xA5" => "\x{062C}\x{0645}\x{064A}", # U+FDA5 => 062C 0645 064A
+"\xEF\xB6\xA6" => "\x{062C}\x{062D}\x{0649}", # U+FDA6 => 062C 062D 0649
+"\xEF\xB6\xA7" => "\x{062C}\x{0645}\x{0649}", # U+FDA7 => 062C 0645 0649
+"\xEF\xB6\xA8" => "\x{0633}\x{062E}\x{0649}", # U+FDA8 => 0633 062E 0649
+"\xEF\xB6\xA9" => "\x{0635}\x{062D}\x{064A}", # U+FDA9 => 0635 062D 064A
+"\xEF\xB6\xAA" => "\x{0634}\x{062D}\x{064A}", # U+FDAA => 0634 062D 064A
+"\xEF\xB6\xAB" => "\x{0636}\x{062D}\x{064A}", # U+FDAB => 0636 062D 064A
+"\xEF\xB6\xAC" => "\x{0644}\x{062C}\x{064A}", # U+FDAC => 0644 062C 064A
+"\xEF\xB6\xAD" => "\x{0644}\x{0645}\x{064A}", # U+FDAD => 0644 0645 064A
+"\xEF\xB6\xAE" => "\x{064A}\x{062D}\x{064A}", # U+FDAE => 064A 062D 064A
+"\xEF\xB6\xAF" => "\x{064A}\x{062C}\x{064A}", # U+FDAF => 064A 062C 064A
+"\xEF\xB6\xB0" => "\x{064A}\x{0645}\x{064A}", # U+FDB0 => 064A 0645 064A
+"\xEF\xB6\xB1" => "\x{0645}\x{0645}\x{064A}", # U+FDB1 => 0645 0645 064A
+"\xEF\xB6\xB2" => "\x{0642}\x{0645}\x{064A}", # U+FDB2 => 0642 0645 064A
+"\xEF\xB6\xB3" => "\x{0646}\x{062D}\x{064A}", # U+FDB3 => 0646 062D 064A
+"\xEF\xB6\xB4" => "\x{0642}\x{0645}\x{062D}", # U+FDB4 => 0642 0645 062D
+"\xEF\xB6\xB5" => "\x{0644}\x{062D}\x{0645}", # U+FDB5 => 0644 062D 0645
+"\xEF\xB6\xB6" => "\x{0639}\x{0645}\x{064A}", # U+FDB6 => 0639 0645 064A
+"\xEF\xB6\xB7" => "\x{0643}\x{0645}\x{064A}", # U+FDB7 => 0643 0645 064A
+"\xEF\xB6\xB8" => "\x{0646}\x{062C}\x{062D}", # U+FDB8 => 0646 062C 062D
+"\xEF\xB6\xB9" => "\x{0645}\x{062E}\x{064A}", # U+FDB9 => 0645 062E 064A
+"\xEF\xB6\xBA" => "\x{0644}\x{062C}\x{0645}", # U+FDBA => 0644 062C 0645
+"\xEF\xB6\xBB" => "\x{0643}\x{0645}\x{0645}", # U+FDBB => 0643 0645 0645
+"\xEF\xB6\xBC" => "\x{0644}\x{062C}\x{0645}", # U+FDBC => 0644 062C 0645
+"\xEF\xB6\xBD" => "\x{0646}\x{062C}\x{062D}", # U+FDBD => 0646 062C 062D
+"\xEF\xB6\xBE" => "\x{062C}\x{062D}\x{064A}", # U+FDBE => 062C 062D 064A
+"\xEF\xB6\xBF" => "\x{062D}\x{062C}\x{064A}", # U+FDBF => 062D 062C 064A
+"\xEF\xB7\x80" => "\x{0645}\x{062C}\x{064A}", # U+FDC0 => 0645 062C 064A
+"\xEF\xB7\x81" => "\x{0641}\x{0645}\x{064A}", # U+FDC1 => 0641 0645 064A
+"\xEF\xB7\x82" => "\x{0628}\x{062D}\x{064A}", # U+FDC2 => 0628 062D 064A
+"\xEF\xB7\x83" => "\x{0643}\x{0645}\x{0645}", # U+FDC3 => 0643 0645 0645
+"\xEF\xB7\x84" => "\x{0639}\x{062C}\x{0645}", # U+FDC4 => 0639 062C 0645
+"\xEF\xB7\x85" => "\x{0635}\x{0645}\x{0645}", # U+FDC5 => 0635 0645 0645
+"\xEF\xB7\x86" => "\x{0633}\x{062E}\x{064A}", # U+FDC6 => 0633 062E 064A
+"\xEF\xB7\x87" => "\x{0646}\x{062C}\x{064A}", # U+FDC7 => 0646 062C 064A
+"\xEF\xB7\xB0" => "\x{0635}\x{0644}\x{06D2}", # U+FDF0 => 0635 0644 06D2
+"\xEF\xB7\xB1" => "\x{0642}\x{0644}\x{06D2}", # U+FDF1 => 0642 0644 06D2
+"\xEF\xB7\xB2" => "\x{0627}\x{0644}\x{0644}\x{0647}", # U+FDF2 => 0627 0644 0644 0647
+"\xEF\xB7\xB3" => "\x{0627}\x{0643}\x{0628}\x{0631}", # U+FDF3 => 0627 0643 0628 0631
+"\xEF\xB7\xB4" => "\x{0645}\x{062D}\x{0645}\x{062F}", # U+FDF4 => 0645 062D 0645 062F
+"\xEF\xB7\xB5" => "\x{0635}\x{0644}\x{0639}\x{0645}", # U+FDF5 => 0635 0644 0639 0645
+"\xEF\xB7\xB6" => "\x{0631}\x{0633}\x{0648}\x{0644}", # U+FDF6 => 0631 0633 0648 0644
+"\xEF\xB7\xB7" => "\x{0639}\x{0644}\x{064A}\x{0647}", # U+FDF7 => 0639 0644 064A 0647
+"\xEF\xB7\xB8" => "\x{0648}\x{0633}\x{0644}\x{0645}", # U+FDF8 => 0648 0633 0644 0645
+"\xEF\xB7\xB9" => "\x{0635}\x{0644}\x{0649}", # U+FDF9 => 0635 0644 0649
+"\xEF\xB7\xBA" => "\x{0635}\x{0644}\x{0649}\x{0020}\x{0627}\x{0644}\x{0644}\x{0647}\x{0020}\x{0639}\x{0644}\x{064A}\x{0647}\x{0020}\x{0648}\x{0633}\x{0644}\x{0645}", # U+FDFA => 0635 0644 0649 0020 0627 0644 0644 0647 0020 0639 0644 064A 0647 0020 0648 0633 0644 0645
+"\xEF\xB7\xBB" => "\x{062C}\x{0644}\x{0020}\x{062C}\x{0644}\x{0627}\x{0644}\x{0647}", # U+FDFB => 062C 0644 0020 062C 0644 0627 0644 0647
+"\xEF\xB7\xBC" => "\x{0631}\x{06CC}\x{0627}\x{0644}", # U+FDFC => 0631 06CC 0627 0644
+"\xEF\xB8\x80" => "",                         # U+FE00 => 
+"\xEF\xB8\x81" => "",                         # U+FE01 => 
+"\xEF\xB8\x82" => "",                         # U+FE02 => 
+"\xEF\xB8\x83" => "",                         # U+FE03 => 
+"\xEF\xB8\x84" => "",                         # U+FE04 => 
+"\xEF\xB8\x85" => "",                         # U+FE05 => 
+"\xEF\xB8\x86" => "",                         # U+FE06 => 
+"\xEF\xB8\x87" => "",                         # U+FE07 => 
+"\xEF\xB8\x88" => "",                         # U+FE08 => 
+"\xEF\xB8\x89" => "",                         # U+FE09 => 
+"\xEF\xB8\x8A" => "",                         # U+FE0A => 
+"\xEF\xB8\x8B" => "",                         # U+FE0B => 
+"\xEF\xB8\x8C" => "",                         # U+FE0C => 
+"\xEF\xB8\x8D" => "",                         # U+FE0D => 
+"\xEF\xB8\x8E" => "",                         # U+FE0E => 
+"\xEF\xB8\x8F" => "",                         # U+FE0F => 
+"\xEF\xB8\x99" => "\x{002E}\x{002E}\x{002E}", # U+FE19 => 002E 002E 002E
+"\xEF\xB8\xB0" => "\x{002E}\x{002E}",         # U+FE30 => 002E 002E
+"\xEF\xB9\x89" => "\x{0020}\x{0305}",         # U+FE49 => 0020 0305
+"\xEF\xB9\x8A" => "\x{0020}\x{0305}",         # U+FE4A => 0020 0305
+"\xEF\xB9\x8B" => "\x{0020}\x{0305}",         # U+FE4B => 0020 0305
+"\xEF\xB9\x8C" => "\x{0020}\x{0305}",         # U+FE4C => 0020 0305
+"\xEF\xB9\xB0" => "\x{0020}\x{064B}",         # U+FE70 => 0020 064B
+"\xEF\xB9\xB1" => "\x{0640}\x{064B}",         # U+FE71 => 0640 064B
+"\xEF\xB9\xB2" => "\x{0020}\x{064C}",         # U+FE72 => 0020 064C
+"\xEF\xB9\xB4" => "\x{0020}\x{064D}",         # U+FE74 => 0020 064D
+"\xEF\xB9\xB6" => "\x{0020}\x{064E}",         # U+FE76 => 0020 064E
+"\xEF\xB9\xB7" => "\x{0640}\x{064E}",         # U+FE77 => 0640 064E
+"\xEF\xB9\xB8" => "\x{0020}\x{064F}",         # U+FE78 => 0020 064F
+"\xEF\xB9\xB9" => "\x{0640}\x{064F}",         # U+FE79 => 0640 064F
+"\xEF\xB9\xBA" => "\x{0020}\x{0650}",         # U+FE7A => 0020 0650
+"\xEF\xB9\xBB" => "\x{0640}\x{0650}",         # U+FE7B => 0640 0650
+"\xEF\xB9\xBC" => "\x{0020}\x{0651}",         # U+FE7C => 0020 0651
+"\xEF\xB9\xBD" => "\x{0640}\x{0651}",         # U+FE7D => 0640 0651
+"\xEF\xB9\xBE" => "\x{0020}\x{0652}",         # U+FE7E => 0020 0652
+"\xEF\xB9\xBF" => "\x{0640}\x{0652}",         # U+FE7F => 0640 0652
+"\xEF\xBB\xB5" => "\x{0644}\x{0622}",         # U+FEF5 => 0644 0622
+"\xEF\xBB\xB6" => "\x{0644}\x{0622}",         # U+FEF6 => 0644 0622
+"\xEF\xBB\xB7" => "\x{0644}\x{0623}",         # U+FEF7 => 0644 0623
+"\xEF\xBB\xB8" => "\x{0644}\x{0623}",         # U+FEF8 => 0644 0623
+"\xEF\xBB\xB9" => "\x{0644}\x{0625}",         # U+FEF9 => 0644 0625
+"\xEF\xBB\xBA" => "\x{0644}\x{0625}",         # U+FEFA => 0644 0625
+"\xEF\xBB\xBB" => "\x{0644}\x{0627}",         # U+FEFB => 0644 0627
+"\xEF\xBB\xBC" => "\x{0644}\x{0627}",         # U+FEFC => 0644 0627
+"\xEF\xBB\xBF" => "",                         # U+FEFF => 
+"\xEF\xBE\xA0" => "",                         # U+FFA0 => 
+"\xEF\xBF\xA3" => "\x{0020}\x{0304}",         # U+FFE3 => 0020 0304
+"\xEF\xBF\xB0" => "",                         # U+FFF0 => 
+"\xEF\xBF\xB1" => "",                         # U+FFF1 => 
+"\xEF\xBF\xB2" => "",                         # U+FFF2 => 
+"\xEF\xBF\xB3" => "",                         # U+FFF3 => 
+"\xEF\xBF\xB4" => "",                         # U+FFF4 => 
+"\xEF\xBF\xB5" => "",                         # U+FFF5 => 
+"\xEF\xBF\xB6" => "",                         # U+FFF6 => 
+"\xEF\xBF\xB7" => "",                         # U+FFF7 => 
+"\xEF\xBF\xB8" => "",                         # U+FFF8 => 
+"\xF0\x9B\xB2\xA0" => "",                     # U+1BCA0 => 
+"\xF0\x9B\xB2\xA1" => "",                     # U+1BCA1 => 
+"\xF0\x9B\xB2\xA2" => "",                     # U+1BCA2 => 
+"\xF0\x9B\xB2\xA3" => "",                     # U+1BCA3 => 
+"\xF0\x9D\x85\x9E" => "\x{1D157}\x{1D165}",   # U+1D15E => 1D157 1D165
+"\xF0\x9D\x85\x9F" => "\x{1D158}\x{1D165}",   # U+1D15F => 1D158 1D165
+"\xF0\x9D\x85\xA0" => "\x{1D158}\x{1D165}\x{1D16E}", # U+1D160 => 1D158 1D165 1D16E
+"\xF0\x9D\x85\xA1" => "\x{1D158}\x{1D165}\x{1D16F}", # U+1D161 => 1D158 1D165 1D16F
+"\xF0\x9D\x85\xA2" => "\x{1D158}\x{1D165}\x{1D170}", # U+1D162 => 1D158 1D165 1D170
+"\xF0\x9D\x85\xA3" => "\x{1D158}\x{1D165}\x{1D171}", # U+1D163 => 1D158 1D165 1D171
+"\xF0\x9D\x85\xA4" => "\x{1D158}\x{1D165}\x{1D172}", # U+1D164 => 1D158 1D165 1D172
+"\xF0\x9D\x85\xB3" => "",                     # U+1D173 => 
+"\xF0\x9D\x85\xB4" => "",                     # U+1D174 => 
+"\xF0\x9D\x85\xB5" => "",                     # U+1D175 => 
+"\xF0\x9D\x85\xB6" => "",                     # U+1D176 => 
+"\xF0\x9D\x85\xB7" => "",                     # U+1D177 => 
+"\xF0\x9D\x85\xB8" => "",                     # U+1D178 => 
+"\xF0\x9D\x85\xB9" => "",                     # U+1D179 => 
+"\xF0\x9D\x85\xBA" => "",                     # U+1D17A => 
+"\xF0\x9D\x86\xBB" => "\x{1D1B9}\x{1D165}",   # U+1D1BB => 1D1B9 1D165
+"\xF0\x9D\x86\xBC" => "\x{1D1BA}\x{1D165}",   # U+1D1BC => 1D1BA 1D165
+"\xF0\x9D\x86\xBD" => "\x{1D1B9}\x{1D165}\x{1D16E}", # U+1D1BD => 1D1B9 1D165 1D16E
+"\xF0\x9D\x86\xBE" => "\x{1D1BA}\x{1D165}\x{1D16E}", # U+1D1BE => 1D1BA 1D165 1D16E
+"\xF0\x9D\x86\xBF" => "\x{1D1B9}\x{1D165}\x{1D16F}", # U+1D1BF => 1D1B9 1D165 1D16F
+"\xF0\x9D\x87\x80" => "\x{1D1BA}\x{1D165}\x{1D16F}", # U+1D1C0 => 1D1BA 1D165 1D16F
+"\xF0\x9F\x84\x80" => "\x{0030}\x{002E}",     # U+1F100 => 0030 002E
+"\xF0\x9F\x84\x81" => "\x{0030}\x{002C}",     # U+1F101 => 0030 002C
+"\xF0\x9F\x84\x82" => "\x{0031}\x{002C}",     # U+1F102 => 0031 002C
+"\xF0\x9F\x84\x83" => "\x{0032}\x{002C}",     # U+1F103 => 0032 002C
+"\xF0\x9F\x84\x84" => "\x{0033}\x{002C}",     # U+1F104 => 0033 002C
+"\xF0\x9F\x84\x85" => "\x{0034}\x{002C}",     # U+1F105 => 0034 002C
+"\xF0\x9F\x84\x86" => "\x{0035}\x{002C}",     # U+1F106 => 0035 002C
+"\xF0\x9F\x84\x87" => "\x{0036}\x{002C}",     # U+1F107 => 0036 002C
+"\xF0\x9F\x84\x88" => "\x{0037}\x{002C}",     # U+1F108 => 0037 002C
+"\xF0\x9F\x84\x89" => "\x{0038}\x{002C}",     # U+1F109 => 0038 002C
+"\xF0\x9F\x84\x8A" => "\x{0039}\x{002C}",     # U+1F10A => 0039 002C
+"\xF0\x9F\x84\x90" => "\x{0028}\x{0061}\x{0029}", # U+1F110 => 0028 0061 0029
+"\xF0\x9F\x84\x91" => "\x{0028}\x{0062}\x{0029}", # U+1F111 => 0028 0062 0029
+"\xF0\x9F\x84\x92" => "\x{0028}\x{0063}\x{0029}", # U+1F112 => 0028 0063 0029
+"\xF0\x9F\x84\x93" => "\x{0028}\x{0064}\x{0029}", # U+1F113 => 0028 0064 0029
+"\xF0\x9F\x84\x94" => "\x{0028}\x{0065}\x{0029}", # U+1F114 => 0028 0065 0029
+"\xF0\x9F\x84\x95" => "\x{0028}\x{0066}\x{0029}", # U+1F115 => 0028 0066 0029
+"\xF0\x9F\x84\x96" => "\x{0028}\x{0067}\x{0029}", # U+1F116 => 0028 0067 0029
+"\xF0\x9F\x84\x97" => "\x{0028}\x{0068}\x{0029}", # U+1F117 => 0028 0068 0029
+"\xF0\x9F\x84\x98" => "\x{0028}\x{0069}\x{0029}", # U+1F118 => 0028 0069 0029
+"\xF0\x9F\x84\x99" => "\x{0028}\x{006A}\x{0029}", # U+1F119 => 0028 006A 0029
+"\xF0\x9F\x84\x9A" => "\x{0028}\x{006B}\x{0029}", # U+1F11A => 0028 006B 0029
+"\xF0\x9F\x84\x9B" => "\x{0028}\x{006C}\x{0029}", # U+1F11B => 0028 006C 0029
+"\xF0\x9F\x84\x9C" => "\x{0028}\x{006D}\x{0029}", # U+1F11C => 0028 006D 0029
+"\xF0\x9F\x84\x9D" => "\x{0028}\x{006E}\x{0029}", # U+1F11D => 0028 006E 0029
+"\xF0\x9F\x84\x9E" => "\x{0028}\x{006F}\x{0029}", # U+1F11E => 0028 006F 0029
+"\xF0\x9F\x84\x9F" => "\x{0028}\x{0070}\x{0029}", # U+1F11F => 0028 0070 0029
+"\xF0\x9F\x84\xA0" => "\x{0028}\x{0071}\x{0029}", # U+1F120 => 0028 0071 0029
+"\xF0\x9F\x84\xA1" => "\x{0028}\x{0072}\x{0029}", # U+1F121 => 0028 0072 0029
+"\xF0\x9F\x84\xA2" => "\x{0028}\x{0073}\x{0029}", # U+1F122 => 0028 0073 0029
+"\xF0\x9F\x84\xA3" => "\x{0028}\x{0074}\x{0029}", # U+1F123 => 0028 0074 0029
+"\xF0\x9F\x84\xA4" => "\x{0028}\x{0075}\x{0029}", # U+1F124 => 0028 0075 0029
+"\xF0\x9F\x84\xA5" => "\x{0028}\x{0076}\x{0029}", # U+1F125 => 0028 0076 0029
+"\xF0\x9F\x84\xA6" => "\x{0028}\x{0077}\x{0029}", # U+1F126 => 0028 0077 0029
+"\xF0\x9F\x84\xA7" => "\x{0028}\x{0078}\x{0029}", # U+1F127 => 0028 0078 0029
+"\xF0\x9F\x84\xA8" => "\x{0028}\x{0079}\x{0029}", # U+1F128 => 0028 0079 0029
+"\xF0\x9F\x84\xA9" => "\x{0028}\x{007A}\x{0029}", # U+1F129 => 0028 007A 0029
+"\xF0\x9F\x84\xAA" => "\x{3014}\x{0073}\x{3015}", # U+1F12A => 3014 0073 3015
+"\xF0\x9F\x84\xAD" => "\x{0063}\x{0064}",     # U+1F12D => 0063 0064
+"\xF0\x9F\x84\xAE" => "\x{0077}\x{007A}",     # U+1F12E => 0077 007A
+"\xF0\x9F\x85\x8A" => "\x{0068}\x{0076}",     # U+1F14A => 0068 0076
+"\xF0\x9F\x85\x8B" => "\x{006D}\x{0076}",     # U+1F14B => 006D 0076
+"\xF0\x9F\x85\x8C" => "\x{0073}\x{0064}",     # U+1F14C => 0073 0064
+"\xF0\x9F\x85\x8D" => "\x{0073}\x{0073}",     # U+1F14D => 0073 0073
+"\xF0\x9F\x85\x8E" => "\x{0070}\x{0070}\x{0076}", # U+1F14E => 0070 0070 0076
+"\xF0\x9F\x85\x8F" => "\x{0077}\x{0063}",     # U+1F14F => 0077 0063
+"\xF0\x9F\x85\xAA" => "\x{006D}\x{0063}",     # U+1F16A => 006D 0063
+"\xF0\x9F\x85\xAB" => "\x{006D}\x{0064}",     # U+1F16B => 006D 0064
+"\xF0\x9F\x86\x90" => "\x{0064}\x{006A}",     # U+1F190 => 0064 006A
+"\xF0\x9F\x88\x80" => "\x{307B}\x{304B}",     # U+1F200 => 307B 304B
+"\xF0\x9F\x88\x81" => "\x{30B3}\x{30B3}",     # U+1F201 => 30B3 30B3
+"\xF0\x9F\x89\x80" => "\x{3014}\x{672C}\x{3015}", # U+1F240 => 3014 672C 3015
+"\xF0\x9F\x89\x81" => "\x{3014}\x{4E09}\x{3015}", # U+1F241 => 3014 4E09 3015
+"\xF0\x9F\x89\x82" => "\x{3014}\x{4E8C}\x{3015}", # U+1F242 => 3014 4E8C 3015
+"\xF0\x9F\x89\x83" => "\x{3014}\x{5B89}\x{3015}", # U+1F243 => 3014 5B89 3015
+"\xF0\x9F\x89\x84" => "\x{3014}\x{70B9}\x{3015}", # U+1F244 => 3014 70B9 3015
+"\xF0\x9F\x89\x85" => "\x{3014}\x{6253}\x{3015}", # U+1F245 => 3014 6253 3015
+"\xF0\x9F\x89\x86" => "\x{3014}\x{76D7}\x{3015}", # U+1F246 => 3014 76D7 3015
+"\xF0\x9F\x89\x87" => "\x{3014}\x{52DD}\x{3015}", # U+1F247 => 3014 52DD 3015
+"\xF0\x9F\x89\x88" => "\x{3014}\x{6557}\x{3015}", # U+1F248 => 3014 6557 3015
+"\xF3\xA0\x80\x80" => "",                     # U+E0000 => 
+"\xF3\xA0\x80\x81" => "",                     # U+E0001 => 
+"\xF3\xA0\x80\x82" => "",                     # U+E0002 => 
+"\xF3\xA0\x80\x83" => "",                     # U+E0003 => 
+"\xF3\xA0\x80\x84" => "",                     # U+E0004 => 
+"\xF3\xA0\x80\x85" => "",                     # U+E0005 => 
+"\xF3\xA0\x80\x86" => "",                     # U+E0006 => 
+"\xF3\xA0\x80\x87" => "",                     # U+E0007 => 
+"\xF3\xA0\x80\x88" => "",                     # U+E0008 => 
+"\xF3\xA0\x80\x89" => "",                     # U+E0009 => 
+"\xF3\xA0\x80\x8A" => "",                     # U+E000A => 
+"\xF3\xA0\x80\x8B" => "",                     # U+E000B => 
+"\xF3\xA0\x80\x8C" => "",                     # U+E000C => 
+"\xF3\xA0\x80\x8D" => "",                     # U+E000D => 
+"\xF3\xA0\x80\x8E" => "",                     # U+E000E => 
+"\xF3\xA0\x80\x8F" => "",                     # U+E000F => 
+"\xF3\xA0\x80\x90" => "",                     # U+E0010 => 
+"\xF3\xA0\x80\x91" => "",                     # U+E0011 => 
+"\xF3\xA0\x80\x92" => "",                     # U+E0012 => 
+"\xF3\xA0\x80\x93" => "",                     # U+E0013 => 
+"\xF3\xA0\x80\x94" => "",                     # U+E0014 => 
+"\xF3\xA0\x80\x95" => "",                     # U+E0015 => 
+"\xF3\xA0\x80\x96" => "",                     # U+E0016 => 
+"\xF3\xA0\x80\x97" => "",                     # U+E0017 => 
+"\xF3\xA0\x80\x98" => "",                     # U+E0018 => 
+"\xF3\xA0\x80\x99" => "",                     # U+E0019 => 
+"\xF3\xA0\x80\x9A" => "",                     # U+E001A => 
+"\xF3\xA0\x80\x9B" => "",                     # U+E001B => 
+"\xF3\xA0\x80\x9C" => "",                     # U+E001C => 
+"\xF3\xA0\x80\x9D" => "",                     # U+E001D => 
+"\xF3\xA0\x80\x9E" => "",                     # U+E001E => 
+"\xF3\xA0\x80\x9F" => "",                     # U+E001F => 
+"\xF3\xA0\x80\xA0" => "",                     # U+E0020 => 
+"\xF3\xA0\x80\xA1" => "",                     # U+E0021 => 
+"\xF3\xA0\x80\xA2" => "",                     # U+E0022 => 
+"\xF3\xA0\x80\xA3" => "",                     # U+E0023 => 
+"\xF3\xA0\x80\xA4" => "",                     # U+E0024 => 
+"\xF3\xA0\x80\xA5" => "",                     # U+E0025 => 
+"\xF3\xA0\x80\xA6" => "",                     # U+E0026 => 
+"\xF3\xA0\x80\xA7" => "",                     # U+E0027 => 
+"\xF3\xA0\x80\xA8" => "",                     # U+E0028 => 
+"\xF3\xA0\x80\xA9" => "",                     # U+E0029 => 
+"\xF3\xA0\x80\xAA" => "",                     # U+E002A => 
+"\xF3\xA0\x80\xAB" => "",                     # U+E002B => 
+"\xF3\xA0\x80\xAC" => "",                     # U+E002C => 
+"\xF3\xA0\x80\xAD" => "",                     # U+E002D => 
+"\xF3\xA0\x80\xAE" => "",                     # U+E002E => 
+"\xF3\xA0\x80\xAF" => "",                     # U+E002F => 
+"\xF3\xA0\x80\xB0" => "",                     # U+E0030 => 
+"\xF3\xA0\x80\xB1" => "",                     # U+E0031 => 
+"\xF3\xA0\x80\xB2" => "",                     # U+E0032 => 
+"\xF3\xA0\x80\xB3" => "",                     # U+E0033 => 
+"\xF3\xA0\x80\xB4" => "",                     # U+E0034 => 
+"\xF3\xA0\x80\xB5" => "",                     # U+E0035 => 
+"\xF3\xA0\x80\xB6" => "",                     # U+E0036 => 
+"\xF3\xA0\x80\xB7" => "",                     # U+E0037 => 
+"\xF3\xA0\x80\xB8" => "",                     # U+E0038 => 
+"\xF3\xA0\x80\xB9" => "",                     # U+E0039 => 
+"\xF3\xA0\x80\xBA" => "",                     # U+E003A => 
+"\xF3\xA0\x80\xBB" => "",                     # U+E003B => 
+"\xF3\xA0\x80\xBC" => "",                     # U+E003C => 
+"\xF3\xA0\x80\xBD" => "",                     # U+E003D => 
+"\xF3\xA0\x80\xBE" => "",                     # U+E003E => 
+"\xF3\xA0\x80\xBF" => "",                     # U+E003F => 
+"\xF3\xA0\x81\x80" => "",                     # U+E0040 => 
+"\xF3\xA0\x81\x81" => "",                     # U+E0041 => 
+"\xF3\xA0\x81\x82" => "",                     # U+E0042 => 
+"\xF3\xA0\x81\x83" => "",                     # U+E0043 => 
+"\xF3\xA0\x81\x84" => "",                     # U+E0044 => 
+"\xF3\xA0\x81\x85" => "",                     # U+E0045 => 
+"\xF3\xA0\x81\x86" => "",                     # U+E0046 => 
+"\xF3\xA0\x81\x87" => "",                     # U+E0047 => 
+"\xF3\xA0\x81\x88" => "",                     # U+E0048 => 
+"\xF3\xA0\x81\x89" => "",                     # U+E0049 => 
+"\xF3\xA0\x81\x8A" => "",                     # U+E004A => 
+"\xF3\xA0\x81\x8B" => "",                     # U+E004B => 
+"\xF3\xA0\x81\x8C" => "",                     # U+E004C => 
+"\xF3\xA0\x81\x8D" => "",                     # U+E004D => 
+"\xF3\xA0\x81\x8E" => "",                     # U+E004E => 
+"\xF3\xA0\x81\x8F" => "",                     # U+E004F => 
+"\xF3\xA0\x81\x90" => "",                     # U+E0050 => 
+"\xF3\xA0\x81\x91" => "",                     # U+E0051 => 
+"\xF3\xA0\x81\x92" => "",                     # U+E0052 => 
+"\xF3\xA0\x81\x93" => "",                     # U+E0053 => 
+"\xF3\xA0\x81\x94" => "",                     # U+E0054 => 
+"\xF3\xA0\x81\x95" => "",                     # U+E0055 => 
+"\xF3\xA0\x81\x96" => "",                     # U+E0056 => 
+"\xF3\xA0\x81\x97" => "",                     # U+E0057 => 
+"\xF3\xA0\x81\x98" => "",                     # U+E0058 => 
+"\xF3\xA0\x81\x99" => "",                     # U+E0059 => 
+"\xF3\xA0\x81\x9A" => "",                     # U+E005A => 
+"\xF3\xA0\x81\x9B" => "",                     # U+E005B => 
+"\xF3\xA0\x81\x9C" => "",                     # U+E005C => 
+"\xF3\xA0\x81\x9D" => "",                     # U+E005D => 
+"\xF3\xA0\x81\x9E" => "",                     # U+E005E => 
+"\xF3\xA0\x81\x9F" => "",                     # U+E005F => 
+"\xF3\xA0\x81\xA0" => "",                     # U+E0060 => 
+"\xF3\xA0\x81\xA1" => "",                     # U+E0061 => 
+"\xF3\xA0\x81\xA2" => "",                     # U+E0062 => 
+"\xF3\xA0\x81\xA3" => "",                     # U+E0063 => 
+"\xF3\xA0\x81\xA4" => "",                     # U+E0064 => 
+"\xF3\xA0\x81\xA5" => "",                     # U+E0065 => 
+"\xF3\xA0\x81\xA6" => "",                     # U+E0066 => 
+"\xF3\xA0\x81\xA7" => "",                     # U+E0067 => 
+"\xF3\xA0\x81\xA8" => "",                     # U+E0068 => 
+"\xF3\xA0\x81\xA9" => "",                     # U+E0069 => 
+"\xF3\xA0\x81\xAA" => "",                     # U+E006A => 
+"\xF3\xA0\x81\xAB" => "",                     # U+E006B => 
+"\xF3\xA0\x81\xAC" => "",                     # U+E006C => 
+"\xF3\xA0\x81\xAD" => "",                     # U+E006D => 
+"\xF3\xA0\x81\xAE" => "",                     # U+E006E => 
+"\xF3\xA0\x81\xAF" => "",                     # U+E006F => 
+"\xF3\xA0\x81\xB0" => "",                     # U+E0070 => 
+"\xF3\xA0\x81\xB1" => "",                     # U+E0071 => 
+"\xF3\xA0\x81\xB2" => "",                     # U+E0072 => 
+"\xF3\xA0\x81\xB3" => "",                     # U+E0073 => 
+"\xF3\xA0\x81\xB4" => "",                     # U+E0074 => 
+"\xF3\xA0\x81\xB5" => "",                     # U+E0075 => 
+"\xF3\xA0\x81\xB6" => "",                     # U+E0076 => 
+"\xF3\xA0\x81\xB7" => "",                     # U+E0077 => 
+"\xF3\xA0\x81\xB8" => "",                     # U+E0078 => 
+"\xF3\xA0\x81\xB9" => "",                     # U+E0079 => 
+"\xF3\xA0\x81\xBA" => "",                     # U+E007A => 
+"\xF3\xA0\x81\xBB" => "",                     # U+E007B => 
+"\xF3\xA0\x81\xBC" => "",                     # U+E007C => 
+"\xF3\xA0\x81\xBD" => "",                     # U+E007D => 
+"\xF3\xA0\x81\xBE" => "",                     # U+E007E => 
+"\xF3\xA0\x81\xBF" => "",                     # U+E007F => 
+"\xF3\xA0\x82\x80" => "",                     # U+E0080 => 
+"\xF3\xA0\x82\x81" => "",                     # U+E0081 => 
+"\xF3\xA0\x82\x82" => "",                     # U+E0082 => 
+"\xF3\xA0\x82\x83" => "",                     # U+E0083 => 
+"\xF3\xA0\x82\x84" => "",                     # U+E0084 => 
+"\xF3\xA0\x82\x85" => "",                     # U+E0085 => 
+"\xF3\xA0\x82\x86" => "",                     # U+E0086 => 
+"\xF3\xA0\x82\x87" => "",                     # U+E0087 => 
+"\xF3\xA0\x82\x88" => "",                     # U+E0088 => 
+"\xF3\xA0\x82\x89" => "",                     # U+E0089 => 
+"\xF3\xA0\x82\x8A" => "",                     # U+E008A => 
+"\xF3\xA0\x82\x8B" => "",                     # U+E008B => 
+"\xF3\xA0\x82\x8C" => "",                     # U+E008C => 
+"\xF3\xA0\x82\x8D" => "",                     # U+E008D => 
+"\xF3\xA0\x82\x8E" => "",                     # U+E008E => 
+"\xF3\xA0\x82\x8F" => "",                     # U+E008F => 
+"\xF3\xA0\x82\x90" => "",                     # U+E0090 => 
+"\xF3\xA0\x82\x91" => "",                     # U+E0091 => 
+"\xF3\xA0\x82\x92" => "",                     # U+E0092 => 
+"\xF3\xA0\x82\x93" => "",                     # U+E0093 => 
+"\xF3\xA0\x82\x94" => "",                     # U+E0094 => 
+"\xF3\xA0\x82\x95" => "",                     # U+E0095 => 
+"\xF3\xA0\x82\x96" => "",                     # U+E0096 => 
+"\xF3\xA0\x82\x97" => "",                     # U+E0097 => 
+"\xF3\xA0\x82\x98" => "",                     # U+E0098 => 
+"\xF3\xA0\x82\x99" => "",                     # U+E0099 => 
+"\xF3\xA0\x82\x9A" => "",                     # U+E009A => 
+"\xF3\xA0\x82\x9B" => "",                     # U+E009B => 
+"\xF3\xA0\x82\x9C" => "",                     # U+E009C => 
+"\xF3\xA0\x82\x9D" => "",                     # U+E009D => 
+"\xF3\xA0\x82\x9E" => "",                     # U+E009E => 
+"\xF3\xA0\x82\x9F" => "",                     # U+E009F => 
+"\xF3\xA0\x82\xA0" => "",                     # U+E00A0 => 
+"\xF3\xA0\x82\xA1" => "",                     # U+E00A1 => 
+"\xF3\xA0\x82\xA2" => "",                     # U+E00A2 => 
+"\xF3\xA0\x82\xA3" => "",                     # U+E00A3 => 
+"\xF3\xA0\x82\xA4" => "",                     # U+E00A4 => 
+"\xF3\xA0\x82\xA5" => "",                     # U+E00A5 => 
+"\xF3\xA0\x82\xA6" => "",                     # U+E00A6 => 
+"\xF3\xA0\x82\xA7" => "",                     # U+E00A7 => 
+"\xF3\xA0\x82\xA8" => "",                     # U+E00A8 => 
+"\xF3\xA0\x82\xA9" => "",                     # U+E00A9 => 
+"\xF3\xA0\x82\xAA" => "",                     # U+E00AA => 
+"\xF3\xA0\x82\xAB" => "",                     # U+E00AB => 
+"\xF3\xA0\x82\xAC" => "",                     # U+E00AC => 
+"\xF3\xA0\x82\xAD" => "",                     # U+E00AD => 
+"\xF3\xA0\x82\xAE" => "",                     # U+E00AE => 
+"\xF3\xA0\x82\xAF" => "",                     # U+E00AF => 
+"\xF3\xA0\x82\xB0" => "",                     # U+E00B0 => 
+"\xF3\xA0\x82\xB1" => "",                     # U+E00B1 => 
+"\xF3\xA0\x82\xB2" => "",                     # U+E00B2 => 
+"\xF3\xA0\x82\xB3" => "",                     # U+E00B3 => 
+"\xF3\xA0\x82\xB4" => "",                     # U+E00B4 => 
+"\xF3\xA0\x82\xB5" => "",                     # U+E00B5 => 
+"\xF3\xA0\x82\xB6" => "",                     # U+E00B6 => 
+"\xF3\xA0\x82\xB7" => "",                     # U+E00B7 => 
+"\xF3\xA0\x82\xB8" => "",                     # U+E00B8 => 
+"\xF3\xA0\x82\xB9" => "",                     # U+E00B9 => 
+"\xF3\xA0\x82\xBA" => "",                     # U+E00BA => 
+"\xF3\xA0\x82\xBB" => "",                     # U+E00BB => 
+"\xF3\xA0\x82\xBC" => "",                     # U+E00BC => 
+"\xF3\xA0\x82\xBD" => "",                     # U+E00BD => 
+"\xF3\xA0\x82\xBE" => "",                     # U+E00BE => 
+"\xF3\xA0\x82\xBF" => "",                     # U+E00BF => 
+"\xF3\xA0\x83\x80" => "",                     # U+E00C0 => 
+"\xF3\xA0\x83\x81" => "",                     # U+E00C1 => 
+"\xF3\xA0\x83\x82" => "",                     # U+E00C2 => 
+"\xF3\xA0\x83\x83" => "",                     # U+E00C3 => 
+"\xF3\xA0\x83\x84" => "",                     # U+E00C4 => 
+"\xF3\xA0\x83\x85" => "",                     # U+E00C5 => 
+"\xF3\xA0\x83\x86" => "",                     # U+E00C6 => 
+"\xF3\xA0\x83\x87" => "",                     # U+E00C7 => 
+"\xF3\xA0\x83\x88" => "",                     # U+E00C8 => 
+"\xF3\xA0\x83\x89" => "",                     # U+E00C9 => 
+"\xF3\xA0\x83\x8A" => "",                     # U+E00CA => 
+"\xF3\xA0\x83\x8B" => "",                     # U+E00CB => 
+"\xF3\xA0\x83\x8C" => "",                     # U+E00CC => 
+"\xF3\xA0\x83\x8D" => "",                     # U+E00CD => 
+"\xF3\xA0\x83\x8E" => "",                     # U+E00CE => 
+"\xF3\xA0\x83\x8F" => "",                     # U+E00CF => 
+"\xF3\xA0\x83\x90" => "",                     # U+E00D0 => 
+"\xF3\xA0\x83\x91" => "",                     # U+E00D1 => 
+"\xF3\xA0\x83\x92" => "",                     # U+E00D2 => 
+"\xF3\xA0\x83\x93" => "",                     # U+E00D3 => 
+"\xF3\xA0\x83\x94" => "",                     # U+E00D4 => 
+"\xF3\xA0\x83\x95" => "",                     # U+E00D5 => 
+"\xF3\xA0\x83\x96" => "",                     # U+E00D6 => 
+"\xF3\xA0\x83\x97" => "",                     # U+E00D7 => 
+"\xF3\xA0\x83\x98" => "",                     # U+E00D8 => 
+"\xF3\xA0\x83\x99" => "",                     # U+E00D9 => 
+"\xF3\xA0\x83\x9A" => "",                     # U+E00DA => 
+"\xF3\xA0\x83\x9B" => "",                     # U+E00DB => 
+"\xF3\xA0\x83\x9C" => "",                     # U+E00DC => 
+"\xF3\xA0\x83\x9D" => "",                     # U+E00DD => 
+"\xF3\xA0\x83\x9E" => "",                     # U+E00DE => 
+"\xF3\xA0\x83\x9F" => "",                     # U+E00DF => 
+"\xF3\xA0\x83\xA0" => "",                     # U+E00E0 => 
+"\xF3\xA0\x83\xA1" => "",                     # U+E00E1 => 
+"\xF3\xA0\x83\xA2" => "",                     # U+E00E2 => 
+"\xF3\xA0\x83\xA3" => "",                     # U+E00E3 => 
+"\xF3\xA0\x83\xA4" => "",                     # U+E00E4 => 
+"\xF3\xA0\x83\xA5" => "",                     # U+E00E5 => 
+"\xF3\xA0\x83\xA6" => "",                     # U+E00E6 => 
+"\xF3\xA0\x83\xA7" => "",                     # U+E00E7 => 
+"\xF3\xA0\x83\xA8" => "",                     # U+E00E8 => 
+"\xF3\xA0\x83\xA9" => "",                     # U+E00E9 => 
+"\xF3\xA0\x83\xAA" => "",                     # U+E00EA => 
+"\xF3\xA0\x83\xAB" => "",                     # U+E00EB => 
+"\xF3\xA0\x83\xAC" => "",                     # U+E00EC => 
+"\xF3\xA0\x83\xAD" => "",                     # U+E00ED => 
+"\xF3\xA0\x83\xAE" => "",                     # U+E00EE => 
+"\xF3\xA0\x83\xAF" => "",                     # U+E00EF => 
+"\xF3\xA0\x83\xB0" => "",                     # U+E00F0 => 
+"\xF3\xA0\x83\xB1" => "",                     # U+E00F1 => 
+"\xF3\xA0\x83\xB2" => "",                     # U+E00F2 => 
+"\xF3\xA0\x83\xB3" => "",                     # U+E00F3 => 
+"\xF3\xA0\x83\xB4" => "",                     # U+E00F4 => 
+"\xF3\xA0\x83\xB5" => "",                     # U+E00F5 => 
+"\xF3\xA0\x83\xB6" => "",                     # U+E00F6 => 
+"\xF3\xA0\x83\xB7" => "",                     # U+E00F7 => 
+"\xF3\xA0\x83\xB8" => "",                     # U+E00F8 => 
+"\xF3\xA0\x83\xB9" => "",                     # U+E00F9 => 
+"\xF3\xA0\x83\xBA" => "",                     # U+E00FA => 
+"\xF3\xA0\x83\xBB" => "",                     # U+E00FB => 
+"\xF3\xA0\x83\xBC" => "",                     # U+E00FC => 
+"\xF3\xA0\x83\xBD" => "",                     # U+E00FD => 
+"\xF3\xA0\x83\xBE" => "",                     # U+E00FE => 
+"\xF3\xA0\x83\xBF" => "",                     # U+E00FF => 
+"\xF3\xA0\x84\x80" => "",                     # U+E0100 => 
+"\xF3\xA0\x84\x81" => "",                     # U+E0101 => 
+"\xF3\xA0\x84\x82" => "",                     # U+E0102 => 
+"\xF3\xA0\x84\x83" => "",                     # U+E0103 => 
+"\xF3\xA0\x84\x84" => "",                     # U+E0104 => 
+"\xF3\xA0\x84\x85" => "",                     # U+E0105 => 
+"\xF3\xA0\x84\x86" => "",                     # U+E0106 => 
+"\xF3\xA0\x84\x87" => "",                     # U+E0107 => 
+"\xF3\xA0\x84\x88" => "",                     # U+E0108 => 
+"\xF3\xA0\x84\x89" => "",                     # U+E0109 => 
+"\xF3\xA0\x84\x8A" => "",                     # U+E010A => 
+"\xF3\xA0\x84\x8B" => "",                     # U+E010B => 
+"\xF3\xA0\x84\x8C" => "",                     # U+E010C => 
+"\xF3\xA0\x84\x8D" => "",                     # U+E010D => 
+"\xF3\xA0\x84\x8E" => "",                     # U+E010E => 
+"\xF3\xA0\x84\x8F" => "",                     # U+E010F => 
+"\xF3\xA0\x84\x90" => "",                     # U+E0110 => 
+"\xF3\xA0\x84\x91" => "",                     # U+E0111 => 
+"\xF3\xA0\x84\x92" => "",                     # U+E0112 => 
+"\xF3\xA0\x84\x93" => "",                     # U+E0113 => 
+"\xF3\xA0\x84\x94" => "",                     # U+E0114 => 
+"\xF3\xA0\x84\x95" => "",                     # U+E0115 => 
+"\xF3\xA0\x84\x96" => "",                     # U+E0116 => 
+"\xF3\xA0\x84\x97" => "",                     # U+E0117 => 
+"\xF3\xA0\x84\x98" => "",                     # U+E0118 => 
+"\xF3\xA0\x84\x99" => "",                     # U+E0119 => 
+"\xF3\xA0\x84\x9A" => "",                     # U+E011A => 
+"\xF3\xA0\x84\x9B" => "",                     # U+E011B => 
+"\xF3\xA0\x84\x9C" => "",                     # U+E011C => 
+"\xF3\xA0\x84\x9D" => "",                     # U+E011D => 
+"\xF3\xA0\x84\x9E" => "",                     # U+E011E => 
+"\xF3\xA0\x84\x9F" => "",                     # U+E011F => 
+"\xF3\xA0\x84\xA0" => "",                     # U+E0120 => 
+"\xF3\xA0\x84\xA1" => "",                     # U+E0121 => 
+"\xF3\xA0\x84\xA2" => "",                     # U+E0122 => 
+"\xF3\xA0\x84\xA3" => "",                     # U+E0123 => 
+"\xF3\xA0\x84\xA4" => "",                     # U+E0124 => 
+"\xF3\xA0\x84\xA5" => "",                     # U+E0125 => 
+"\xF3\xA0\x84\xA6" => "",                     # U+E0126 => 
+"\xF3\xA0\x84\xA7" => "",                     # U+E0127 => 
+"\xF3\xA0\x84\xA8" => "",                     # U+E0128 => 
+"\xF3\xA0\x84\xA9" => "",                     # U+E0129 => 
+"\xF3\xA0\x84\xAA" => "",                     # U+E012A => 
+"\xF3\xA0\x84\xAB" => "",                     # U+E012B => 
+"\xF3\xA0\x84\xAC" => "",                     # U+E012C => 
+"\xF3\xA0\x84\xAD" => "",                     # U+E012D => 
+"\xF3\xA0\x84\xAE" => "",                     # U+E012E => 
+"\xF3\xA0\x84\xAF" => "",                     # U+E012F => 
+"\xF3\xA0\x84\xB0" => "",                     # U+E0130 => 
+"\xF3\xA0\x84\xB1" => "",                     # U+E0131 => 
+"\xF3\xA0\x84\xB2" => "",                     # U+E0132 => 
+"\xF3\xA0\x84\xB3" => "",                     # U+E0133 => 
+"\xF3\xA0\x84\xB4" => "",                     # U+E0134 => 
+"\xF3\xA0\x84\xB5" => "",                     # U+E0135 => 
+"\xF3\xA0\x84\xB6" => "",                     # U+E0136 => 
+"\xF3\xA0\x84\xB7" => "",                     # U+E0137 => 
+"\xF3\xA0\x84\xB8" => "",                     # U+E0138 => 
+"\xF3\xA0\x84\xB9" => "",                     # U+E0139 => 
+"\xF3\xA0\x84\xBA" => "",                     # U+E013A => 
+"\xF3\xA0\x84\xBB" => "",                     # U+E013B => 
+"\xF3\xA0\x84\xBC" => "",                     # U+E013C => 
+"\xF3\xA0\x84\xBD" => "",                     # U+E013D => 
+"\xF3\xA0\x84\xBE" => "",                     # U+E013E => 
+"\xF3\xA0\x84\xBF" => "",                     # U+E013F => 
+"\xF3\xA0\x85\x80" => "",                     # U+E0140 => 
+"\xF3\xA0\x85\x81" => "",                     # U+E0141 => 
+"\xF3\xA0\x85\x82" => "",                     # U+E0142 => 
+"\xF3\xA0\x85\x83" => "",                     # U+E0143 => 
+"\xF3\xA0\x85\x84" => "",                     # U+E0144 => 
+"\xF3\xA0\x85\x85" => "",                     # U+E0145 => 
+"\xF3\xA0\x85\x86" => "",                     # U+E0146 => 
+"\xF3\xA0\x85\x87" => "",                     # U+E0147 => 
+"\xF3\xA0\x85\x88" => "",                     # U+E0148 => 
+"\xF3\xA0\x85\x89" => "",                     # U+E0149 => 
+"\xF3\xA0\x85\x8A" => "",                     # U+E014A => 
+"\xF3\xA0\x85\x8B" => "",                     # U+E014B => 
+"\xF3\xA0\x85\x8C" => "",                     # U+E014C => 
+"\xF3\xA0\x85\x8D" => "",                     # U+E014D => 
+"\xF3\xA0\x85\x8E" => "",                     # U+E014E => 
+"\xF3\xA0\x85\x8F" => "",                     # U+E014F => 
+"\xF3\xA0\x85\x90" => "",                     # U+E0150 => 
+"\xF3\xA0\x85\x91" => "",                     # U+E0151 => 
+"\xF3\xA0\x85\x92" => "",                     # U+E0152 => 
+"\xF3\xA0\x85\x93" => "",                     # U+E0153 => 
+"\xF3\xA0\x85\x94" => "",                     # U+E0154 => 
+"\xF3\xA0\x85\x95" => "",                     # U+E0155 => 
+"\xF3\xA0\x85\x96" => "",                     # U+E0156 => 
+"\xF3\xA0\x85\x97" => "",                     # U+E0157 => 
+"\xF3\xA0\x85\x98" => "",                     # U+E0158 => 
+"\xF3\xA0\x85\x99" => "",                     # U+E0159 => 
+"\xF3\xA0\x85\x9A" => "",                     # U+E015A => 
+"\xF3\xA0\x85\x9B" => "",                     # U+E015B => 
+"\xF3\xA0\x85\x9C" => "",                     # U+E015C => 
+"\xF3\xA0\x85\x9D" => "",                     # U+E015D => 
+"\xF3\xA0\x85\x9E" => "",                     # U+E015E => 
+"\xF3\xA0\x85\x9F" => "",                     # U+E015F => 
+"\xF3\xA0\x85\xA0" => "",                     # U+E0160 => 
+"\xF3\xA0\x85\xA1" => "",                     # U+E0161 => 
+"\xF3\xA0\x85\xA2" => "",                     # U+E0162 => 
+"\xF3\xA0\x85\xA3" => "",                     # U+E0163 => 
+"\xF3\xA0\x85\xA4" => "",                     # U+E0164 => 
+"\xF3\xA0\x85\xA5" => "",                     # U+E0165 => 
+"\xF3\xA0\x85\xA6" => "",                     # U+E0166 => 
+"\xF3\xA0\x85\xA7" => "",                     # U+E0167 => 
+"\xF3\xA0\x85\xA8" => "",                     # U+E0168 => 
+"\xF3\xA0\x85\xA9" => "",                     # U+E0169 => 
+"\xF3\xA0\x85\xAA" => "",                     # U+E016A => 
+"\xF3\xA0\x85\xAB" => "",                     # U+E016B => 
+"\xF3\xA0\x85\xAC" => "",                     # U+E016C => 
+"\xF3\xA0\x85\xAD" => "",                     # U+E016D => 
+"\xF3\xA0\x85\xAE" => "",                     # U+E016E => 
+"\xF3\xA0\x85\xAF" => "",                     # U+E016F => 
+"\xF3\xA0\x85\xB0" => "",                     # U+E0170 => 
+"\xF3\xA0\x85\xB1" => "",                     # U+E0171 => 
+"\xF3\xA0\x85\xB2" => "",                     # U+E0172 => 
+"\xF3\xA0\x85\xB3" => "",                     # U+E0173 => 
+"\xF3\xA0\x85\xB4" => "",                     # U+E0174 => 
+"\xF3\xA0\x85\xB5" => "",                     # U+E0175 => 
+"\xF3\xA0\x85\xB6" => "",                     # U+E0176 => 
+"\xF3\xA0\x85\xB7" => "",                     # U+E0177 => 
+"\xF3\xA0\x85\xB8" => "",                     # U+E0178 => 
+"\xF3\xA0\x85\xB9" => "",                     # U+E0179 => 
+"\xF3\xA0\x85\xBA" => "",                     # U+E017A => 
+"\xF3\xA0\x85\xBB" => "",                     # U+E017B => 
+"\xF3\xA0\x85\xBC" => "",                     # U+E017C => 
+"\xF3\xA0\x85\xBD" => "",                     # U+E017D => 
+"\xF3\xA0\x85\xBE" => "",                     # U+E017E => 
+"\xF3\xA0\x85\xBF" => "",                     # U+E017F => 
+"\xF3\xA0\x86\x80" => "",                     # U+E0180 => 
+"\xF3\xA0\x86\x81" => "",                     # U+E0181 => 
+"\xF3\xA0\x86\x82" => "",                     # U+E0182 => 
+"\xF3\xA0\x86\x83" => "",                     # U+E0183 => 
+"\xF3\xA0\x86\x84" => "",                     # U+E0184 => 
+"\xF3\xA0\x86\x85" => "",                     # U+E0185 => 
+"\xF3\xA0\x86\x86" => "",                     # U+E0186 => 
+"\xF3\xA0\x86\x87" => "",                     # U+E0187 => 
+"\xF3\xA0\x86\x88" => "",                     # U+E0188 => 
+"\xF3\xA0\x86\x89" => "",                     # U+E0189 => 
+"\xF3\xA0\x86\x8A" => "",                     # U+E018A => 
+"\xF3\xA0\x86\x8B" => "",                     # U+E018B => 
+"\xF3\xA0\x86\x8C" => "",                     # U+E018C => 
+"\xF3\xA0\x86\x8D" => "",                     # U+E018D => 
+"\xF3\xA0\x86\x8E" => "",                     # U+E018E => 
+"\xF3\xA0\x86\x8F" => "",                     # U+E018F => 
+"\xF3\xA0\x86\x90" => "",                     # U+E0190 => 
+"\xF3\xA0\x86\x91" => "",                     # U+E0191 => 
+"\xF3\xA0\x86\x92" => "",                     # U+E0192 => 
+"\xF3\xA0\x86\x93" => "",                     # U+E0193 => 
+"\xF3\xA0\x86\x94" => "",                     # U+E0194 => 
+"\xF3\xA0\x86\x95" => "",                     # U+E0195 => 
+"\xF3\xA0\x86\x96" => "",                     # U+E0196 => 
+"\xF3\xA0\x86\x97" => "",                     # U+E0197 => 
+"\xF3\xA0\x86\x98" => "",                     # U+E0198 => 
+"\xF3\xA0\x86\x99" => "",                     # U+E0199 => 
+"\xF3\xA0\x86\x9A" => "",                     # U+E019A => 
+"\xF3\xA0\x86\x9B" => "",                     # U+E019B => 
+"\xF3\xA0\x86\x9C" => "",                     # U+E019C => 
+"\xF3\xA0\x86\x9D" => "",                     # U+E019D => 
+"\xF3\xA0\x86\x9E" => "",                     # U+E019E => 
+"\xF3\xA0\x86\x9F" => "",                     # U+E019F => 
+"\xF3\xA0\x86\xA0" => "",                     # U+E01A0 => 
+"\xF3\xA0\x86\xA1" => "",                     # U+E01A1 => 
+"\xF3\xA0\x86\xA2" => "",                     # U+E01A2 => 
+"\xF3\xA0\x86\xA3" => "",                     # U+E01A3 => 
+"\xF3\xA0\x86\xA4" => "",                     # U+E01A4 => 
+"\xF3\xA0\x86\xA5" => "",                     # U+E01A5 => 
+"\xF3\xA0\x86\xA6" => "",                     # U+E01A6 => 
+"\xF3\xA0\x86\xA7" => "",                     # U+E01A7 => 
+"\xF3\xA0\x86\xA8" => "",                     # U+E01A8 => 
+"\xF3\xA0\x86\xA9" => "",                     # U+E01A9 => 
+"\xF3\xA0\x86\xAA" => "",                     # U+E01AA => 
+"\xF3\xA0\x86\xAB" => "",                     # U+E01AB => 
+"\xF3\xA0\x86\xAC" => "",                     # U+E01AC => 
+"\xF3\xA0\x86\xAD" => "",                     # U+E01AD => 
+"\xF3\xA0\x86\xAE" => "",                     # U+E01AE => 
+"\xF3\xA0\x86\xAF" => "",                     # U+E01AF => 
+"\xF3\xA0\x86\xB0" => "",                     # U+E01B0 => 
+"\xF3\xA0\x86\xB1" => "",                     # U+E01B1 => 
+"\xF3\xA0\x86\xB2" => "",                     # U+E01B2 => 
+"\xF3\xA0\x86\xB3" => "",                     # U+E01B3 => 
+"\xF3\xA0\x86\xB4" => "",                     # U+E01B4 => 
+"\xF3\xA0\x86\xB5" => "",                     # U+E01B5 => 
+"\xF3\xA0\x86\xB6" => "",                     # U+E01B6 => 
+"\xF3\xA0\x86\xB7" => "",                     # U+E01B7 => 
+"\xF3\xA0\x86\xB8" => "",                     # U+E01B8 => 
+"\xF3\xA0\x86\xB9" => "",                     # U+E01B9 => 
+"\xF3\xA0\x86\xBA" => "",                     # U+E01BA => 
+"\xF3\xA0\x86\xBB" => "",                     # U+E01BB => 
+"\xF3\xA0\x86\xBC" => "",                     # U+E01BC => 
+"\xF3\xA0\x86\xBD" => "",                     # U+E01BD => 
+"\xF3\xA0\x86\xBE" => "",                     # U+E01BE => 
+"\xF3\xA0\x86\xBF" => "",                     # U+E01BF => 
+"\xF3\xA0\x87\x80" => "",                     # U+E01C0 => 
+"\xF3\xA0\x87\x81" => "",                     # U+E01C1 => 
+"\xF3\xA0\x87\x82" => "",                     # U+E01C2 => 
+"\xF3\xA0\x87\x83" => "",                     # U+E01C3 => 
+"\xF3\xA0\x87\x84" => "",                     # U+E01C4 => 
+"\xF3\xA0\x87\x85" => "",                     # U+E01C5 => 
+"\xF3\xA0\x87\x86" => "",                     # U+E01C6 => 
+"\xF3\xA0\x87\x87" => "",                     # U+E01C7 => 
+"\xF3\xA0\x87\x88" => "",                     # U+E01C8 => 
+"\xF3\xA0\x87\x89" => "",                     # U+E01C9 => 
+"\xF3\xA0\x87\x8A" => "",                     # U+E01CA => 
+"\xF3\xA0\x87\x8B" => "",                     # U+E01CB => 
+"\xF3\xA0\x87\x8C" => "",                     # U+E01CC => 
+"\xF3\xA0\x87\x8D" => "",                     # U+E01CD => 
+"\xF3\xA0\x87\x8E" => "",                     # U+E01CE => 
+"\xF3\xA0\x87\x8F" => "",                     # U+E01CF => 
+"\xF3\xA0\x87\x90" => "",                     # U+E01D0 => 
+"\xF3\xA0\x87\x91" => "",                     # U+E01D1 => 
+"\xF3\xA0\x87\x92" => "",                     # U+E01D2 => 
+"\xF3\xA0\x87\x93" => "",                     # U+E01D3 => 
+"\xF3\xA0\x87\x94" => "",                     # U+E01D4 => 
+"\xF3\xA0\x87\x95" => "",                     # U+E01D5 => 
+"\xF3\xA0\x87\x96" => "",                     # U+E01D6 => 
+"\xF3\xA0\x87\x97" => "",                     # U+E01D7 => 
+"\xF3\xA0\x87\x98" => "",                     # U+E01D8 => 
+"\xF3\xA0\x87\x99" => "",                     # U+E01D9 => 
+"\xF3\xA0\x87\x9A" => "",                     # U+E01DA => 
+"\xF3\xA0\x87\x9B" => "",                     # U+E01DB => 
+"\xF3\xA0\x87\x9C" => "",                     # U+E01DC => 
+"\xF3\xA0\x87\x9D" => "",                     # U+E01DD => 
+"\xF3\xA0\x87\x9E" => "",                     # U+E01DE => 
+"\xF3\xA0\x87\x9F" => "",                     # U+E01DF => 
+"\xF3\xA0\x87\xA0" => "",                     # U+E01E0 => 
+"\xF3\xA0\x87\xA1" => "",                     # U+E01E1 => 
+"\xF3\xA0\x87\xA2" => "",                     # U+E01E2 => 
+"\xF3\xA0\x87\xA3" => "",                     # U+E01E3 => 
+"\xF3\xA0\x87\xA4" => "",                     # U+E01E4 => 
+"\xF3\xA0\x87\xA5" => "",                     # U+E01E5 => 
+"\xF3\xA0\x87\xA6" => "",                     # U+E01E6 => 
+"\xF3\xA0\x87\xA7" => "",                     # U+E01E7 => 
+"\xF3\xA0\x87\xA8" => "",                     # U+E01E8 => 
+"\xF3\xA0\x87\xA9" => "",                     # U+E01E9 => 
+"\xF3\xA0\x87\xAA" => "",                     # U+E01EA => 
+"\xF3\xA0\x87\xAB" => "",                     # U+E01EB => 
+"\xF3\xA0\x87\xAC" => "",                     # U+E01EC => 
+"\xF3\xA0\x87\xAD" => "",                     # U+E01ED => 
+"\xF3\xA0\x87\xAE" => "",                     # U+E01EE => 
+"\xF3\xA0\x87\xAF" => "",                     # U+E01EF => 
+"\xF3\xA0\x87\xB0" => "",                     # U+E01F0 => 
+"\xF3\xA0\x87\xB1" => "",                     # U+E01F1 => 
+"\xF3\xA0\x87\xB2" => "",                     # U+E01F2 => 
+"\xF3\xA0\x87\xB3" => "",                     # U+E01F3 => 
+"\xF3\xA0\x87\xB4" => "",                     # U+E01F4 => 
+"\xF3\xA0\x87\xB5" => "",                     # U+E01F5 => 
+"\xF3\xA0\x87\xB6" => "",                     # U+E01F6 => 
+"\xF3\xA0\x87\xB7" => "",                     # U+E01F7 => 
+"\xF3\xA0\x87\xB8" => "",                     # U+E01F8 => 
+"\xF3\xA0\x87\xB9" => "",                     # U+E01F9 => 
+"\xF3\xA0\x87\xBA" => "",                     # U+E01FA => 
+"\xF3\xA0\x87\xBB" => "",                     # U+E01FB => 
+"\xF3\xA0\x87\xBC" => "",                     # U+E01FC => 
+"\xF3\xA0\x87\xBD" => "",                     # U+E01FD => 
+"\xF3\xA0\x87\xBE" => "",                     # U+E01FE => 
+"\xF3\xA0\x87\xBF" => "",                     # U+E01FF => 
+"\xF3\xA0\x88\x80" => "",                     # U+E0200 => 
+"\xF3\xA0\x88\x81" => "",                     # U+E0201 => 
+"\xF3\xA0\x88\x82" => "",                     # U+E0202 => 
+"\xF3\xA0\x88\x83" => "",                     # U+E0203 => 
+"\xF3\xA0\x88\x84" => "",                     # U+E0204 => 
+"\xF3\xA0\x88\x85" => "",                     # U+E0205 => 
+"\xF3\xA0\x88\x86" => "",                     # U+E0206 => 
+"\xF3\xA0\x88\x87" => "",                     # U+E0207 => 
+"\xF3\xA0\x88\x88" => "",                     # U+E0208 => 
+"\xF3\xA0\x88\x89" => "",                     # U+E0209 => 
+"\xF3\xA0\x88\x8A" => "",                     # U+E020A => 
+"\xF3\xA0\x88\x8B" => "",                     # U+E020B => 
+"\xF3\xA0\x88\x8C" => "",                     # U+E020C => 
+"\xF3\xA0\x88\x8D" => "",                     # U+E020D => 
+"\xF3\xA0\x88\x8E" => "",                     # U+E020E => 
+"\xF3\xA0\x88\x8F" => "",                     # U+E020F => 
+"\xF3\xA0\x88\x90" => "",                     # U+E0210 => 
+"\xF3\xA0\x88\x91" => "",                     # U+E0211 => 
+"\xF3\xA0\x88\x92" => "",                     # U+E0212 => 
+"\xF3\xA0\x88\x93" => "",                     # U+E0213 => 
+"\xF3\xA0\x88\x94" => "",                     # U+E0214 => 
+"\xF3\xA0\x88\x95" => "",                     # U+E0215 => 
+"\xF3\xA0\x88\x96" => "",                     # U+E0216 => 
+"\xF3\xA0\x88\x97" => "",                     # U+E0217 => 
+"\xF3\xA0\x88\x98" => "",                     # U+E0218 => 
+"\xF3\xA0\x88\x99" => "",                     # U+E0219 => 
+"\xF3\xA0\x88\x9A" => "",                     # U+E021A => 
+"\xF3\xA0\x88\x9B" => "",                     # U+E021B => 
+"\xF3\xA0\x88\x9C" => "",                     # U+E021C => 
+"\xF3\xA0\x88\x9D" => "",                     # U+E021D => 
+"\xF3\xA0\x88\x9E" => "",                     # U+E021E => 
+"\xF3\xA0\x88\x9F" => "",                     # U+E021F => 
+"\xF3\xA0\x88\xA0" => "",                     # U+E0220 => 
+"\xF3\xA0\x88\xA1" => "",                     # U+E0221 => 
+"\xF3\xA0\x88\xA2" => "",                     # U+E0222 => 
+"\xF3\xA0\x88\xA3" => "",                     # U+E0223 => 
+"\xF3\xA0\x88\xA4" => "",                     # U+E0224 => 
+"\xF3\xA0\x88\xA5" => "",                     # U+E0225 => 
+"\xF3\xA0\x88\xA6" => "",                     # U+E0226 => 
+"\xF3\xA0\x88\xA7" => "",                     # U+E0227 => 
+"\xF3\xA0\x88\xA8" => "",                     # U+E0228 => 
+"\xF3\xA0\x88\xA9" => "",                     # U+E0229 => 
+"\xF3\xA0\x88\xAA" => "",                     # U+E022A => 
+"\xF3\xA0\x88\xAB" => "",                     # U+E022B => 
+"\xF3\xA0\x88\xAC" => "",                     # U+E022C => 
+"\xF3\xA0\x88\xAD" => "",                     # U+E022D => 
+"\xF3\xA0\x88\xAE" => "",                     # U+E022E => 
+"\xF3\xA0\x88\xAF" => "",                     # U+E022F => 
+"\xF3\xA0\x88\xB0" => "",                     # U+E0230 => 
+"\xF3\xA0\x88\xB1" => "",                     # U+E0231 => 
+"\xF3\xA0\x88\xB2" => "",                     # U+E0232 => 
+"\xF3\xA0\x88\xB3" => "",                     # U+E0233 => 
+"\xF3\xA0\x88\xB4" => "",                     # U+E0234 => 
+"\xF3\xA0\x88\xB5" => "",                     # U+E0235 => 
+"\xF3\xA0\x88\xB6" => "",                     # U+E0236 => 
+"\xF3\xA0\x88\xB7" => "",                     # U+E0237 => 
+"\xF3\xA0\x88\xB8" => "",                     # U+E0238 => 
+"\xF3\xA0\x88\xB9" => "",                     # U+E0239 => 
+"\xF3\xA0\x88\xBA" => "",                     # U+E023A => 
+"\xF3\xA0\x88\xBB" => "",                     # U+E023B => 
+"\xF3\xA0\x88\xBC" => "",                     # U+E023C => 
+"\xF3\xA0\x88\xBD" => "",                     # U+E023D => 
+"\xF3\xA0\x88\xBE" => "",                     # U+E023E => 
+"\xF3\xA0\x88\xBF" => "",                     # U+E023F => 
+"\xF3\xA0\x89\x80" => "",                     # U+E0240 => 
+"\xF3\xA0\x89\x81" => "",                     # U+E0241 => 
+"\xF3\xA0\x89\x82" => "",                     # U+E0242 => 
+"\xF3\xA0\x89\x83" => "",                     # U+E0243 => 
+"\xF3\xA0\x89\x84" => "",                     # U+E0244 => 
+"\xF3\xA0\x89\x85" => "",                     # U+E0245 => 
+"\xF3\xA0\x89\x86" => "",                     # U+E0246 => 
+"\xF3\xA0\x89\x87" => "",                     # U+E0247 => 
+"\xF3\xA0\x89\x88" => "",                     # U+E0248 => 
+"\xF3\xA0\x89\x89" => "",                     # U+E0249 => 
+"\xF3\xA0\x89\x8A" => "",                     # U+E024A => 
+"\xF3\xA0\x89\x8B" => "",                     # U+E024B => 
+"\xF3\xA0\x89\x8C" => "",                     # U+E024C => 
+"\xF3\xA0\x89\x8D" => "",                     # U+E024D => 
+"\xF3\xA0\x89\x8E" => "",                     # U+E024E => 
+"\xF3\xA0\x89\x8F" => "",                     # U+E024F => 
+"\xF3\xA0\x89\x90" => "",                     # U+E0250 => 
+"\xF3\xA0\x89\x91" => "",                     # U+E0251 => 
+"\xF3\xA0\x89\x92" => "",                     # U+E0252 => 
+"\xF3\xA0\x89\x93" => "",                     # U+E0253 => 
+"\xF3\xA0\x89\x94" => "",                     # U+E0254 => 
+"\xF3\xA0\x89\x95" => "",                     # U+E0255 => 
+"\xF3\xA0\x89\x96" => "",                     # U+E0256 => 
+"\xF3\xA0\x89\x97" => "",                     # U+E0257 => 
+"\xF3\xA0\x89\x98" => "",                     # U+E0258 => 
+"\xF3\xA0\x89\x99" => "",                     # U+E0259 => 
+"\xF3\xA0\x89\x9A" => "",                     # U+E025A => 
+"\xF3\xA0\x89\x9B" => "",                     # U+E025B => 
+"\xF3\xA0\x89\x9C" => "",                     # U+E025C => 
+"\xF3\xA0\x89\x9D" => "",                     # U+E025D => 
+"\xF3\xA0\x89\x9E" => "",                     # U+E025E => 
+"\xF3\xA0\x89\x9F" => "",                     # U+E025F => 
+"\xF3\xA0\x89\xA0" => "",                     # U+E0260 => 
+"\xF3\xA0\x89\xA1" => "",                     # U+E0261 => 
+"\xF3\xA0\x89\xA2" => "",                     # U+E0262 => 
+"\xF3\xA0\x89\xA3" => "",                     # U+E0263 => 
+"\xF3\xA0\x89\xA4" => "",                     # U+E0264 => 
+"\xF3\xA0\x89\xA5" => "",                     # U+E0265 => 
+"\xF3\xA0\x89\xA6" => "",                     # U+E0266 => 
+"\xF3\xA0\x89\xA7" => "",                     # U+E0267 => 
+"\xF3\xA0\x89\xA8" => "",                     # U+E0268 => 
+"\xF3\xA0\x89\xA9" => "",                     # U+E0269 => 
+"\xF3\xA0\x89\xAA" => "",                     # U+E026A => 
+"\xF3\xA0\x89\xAB" => "",                     # U+E026B => 
+"\xF3\xA0\x89\xAC" => "",                     # U+E026C => 
+"\xF3\xA0\x89\xAD" => "",                     # U+E026D => 
+"\xF3\xA0\x89\xAE" => "",                     # U+E026E => 
+"\xF3\xA0\x89\xAF" => "",                     # U+E026F => 
+"\xF3\xA0\x89\xB0" => "",                     # U+E0270 => 
+"\xF3\xA0\x89\xB1" => "",                     # U+E0271 => 
+"\xF3\xA0\x89\xB2" => "",                     # U+E0272 => 
+"\xF3\xA0\x89\xB3" => "",                     # U+E0273 => 
+"\xF3\xA0\x89\xB4" => "",                     # U+E0274 => 
+"\xF3\xA0\x89\xB5" => "",                     # U+E0275 => 
+"\xF3\xA0\x89\xB6" => "",                     # U+E0276 => 
+"\xF3\xA0\x89\xB7" => "",                     # U+E0277 => 
+"\xF3\xA0\x89\xB8" => "",                     # U+E0278 => 
+"\xF3\xA0\x89\xB9" => "",                     # U+E0279 => 
+"\xF3\xA0\x89\xBA" => "",                     # U+E027A => 
+"\xF3\xA0\x89\xBB" => "",                     # U+E027B => 
+"\xF3\xA0\x89\xBC" => "",                     # U+E027C => 
+"\xF3\xA0\x89\xBD" => "",                     # U+E027D => 
+"\xF3\xA0\x89\xBE" => "",                     # U+E027E => 
+"\xF3\xA0\x89\xBF" => "",                     # U+E027F => 
+"\xF3\xA0\x8A\x80" => "",                     # U+E0280 => 
+"\xF3\xA0\x8A\x81" => "",                     # U+E0281 => 
+"\xF3\xA0\x8A\x82" => "",                     # U+E0282 => 
+"\xF3\xA0\x8A\x83" => "",                     # U+E0283 => 
+"\xF3\xA0\x8A\x84" => "",                     # U+E0284 => 
+"\xF3\xA0\x8A\x85" => "",                     # U+E0285 => 
+"\xF3\xA0\x8A\x86" => "",                     # U+E0286 => 
+"\xF3\xA0\x8A\x87" => "",                     # U+E0287 => 
+"\xF3\xA0\x8A\x88" => "",                     # U+E0288 => 
+"\xF3\xA0\x8A\x89" => "",                     # U+E0289 => 
+"\xF3\xA0\x8A\x8A" => "",                     # U+E028A => 
+"\xF3\xA0\x8A\x8B" => "",                     # U+E028B => 
+"\xF3\xA0\x8A\x8C" => "",                     # U+E028C => 
+"\xF3\xA0\x8A\x8D" => "",                     # U+E028D => 
+"\xF3\xA0\x8A\x8E" => "",                     # U+E028E => 
+"\xF3\xA0\x8A\x8F" => "",                     # U+E028F => 
+"\xF3\xA0\x8A\x90" => "",                     # U+E0290 => 
+"\xF3\xA0\x8A\x91" => "",                     # U+E0291 => 
+"\xF3\xA0\x8A\x92" => "",                     # U+E0292 => 
+"\xF3\xA0\x8A\x93" => "",                     # U+E0293 => 
+"\xF3\xA0\x8A\x94" => "",                     # U+E0294 => 
+"\xF3\xA0\x8A\x95" => "",                     # U+E0295 => 
+"\xF3\xA0\x8A\x96" => "",                     # U+E0296 => 
+"\xF3\xA0\x8A\x97" => "",                     # U+E0297 => 
+"\xF3\xA0\x8A\x98" => "",                     # U+E0298 => 
+"\xF3\xA0\x8A\x99" => "",                     # U+E0299 => 
+"\xF3\xA0\x8A\x9A" => "",                     # U+E029A => 
+"\xF3\xA0\x8A\x9B" => "",                     # U+E029B => 
+"\xF3\xA0\x8A\x9C" => "",                     # U+E029C => 
+"\xF3\xA0\x8A\x9D" => "",                     # U+E029D => 
+"\xF3\xA0\x8A\x9E" => "",                     # U+E029E => 
+"\xF3\xA0\x8A\x9F" => "",                     # U+E029F => 
+"\xF3\xA0\x8A\xA0" => "",                     # U+E02A0 => 
+"\xF3\xA0\x8A\xA1" => "",                     # U+E02A1 => 
+"\xF3\xA0\x8A\xA2" => "",                     # U+E02A2 => 
+"\xF3\xA0\x8A\xA3" => "",                     # U+E02A3 => 
+"\xF3\xA0\x8A\xA4" => "",                     # U+E02A4 => 
+"\xF3\xA0\x8A\xA5" => "",                     # U+E02A5 => 
+"\xF3\xA0\x8A\xA6" => "",                     # U+E02A6 => 
+"\xF3\xA0\x8A\xA7" => "",                     # U+E02A7 => 
+"\xF3\xA0\x8A\xA8" => "",                     # U+E02A8 => 
+"\xF3\xA0\x8A\xA9" => "",                     # U+E02A9 => 
+"\xF3\xA0\x8A\xAA" => "",                     # U+E02AA => 
+"\xF3\xA0\x8A\xAB" => "",                     # U+E02AB => 
+"\xF3\xA0\x8A\xAC" => "",                     # U+E02AC => 
+"\xF3\xA0\x8A\xAD" => "",                     # U+E02AD => 
+"\xF3\xA0\x8A\xAE" => "",                     # U+E02AE => 
+"\xF3\xA0\x8A\xAF" => "",                     # U+E02AF => 
+"\xF3\xA0\x8A\xB0" => "",                     # U+E02B0 => 
+"\xF3\xA0\x8A\xB1" => "",                     # U+E02B1 => 
+"\xF3\xA0\x8A\xB2" => "",                     # U+E02B2 => 
+"\xF3\xA0\x8A\xB3" => "",                     # U+E02B3 => 
+"\xF3\xA0\x8A\xB4" => "",                     # U+E02B4 => 
+"\xF3\xA0\x8A\xB5" => "",                     # U+E02B5 => 
+"\xF3\xA0\x8A\xB6" => "",                     # U+E02B6 => 
+"\xF3\xA0\x8A\xB7" => "",                     # U+E02B7 => 
+"\xF3\xA0\x8A\xB8" => "",                     # U+E02B8 => 
+"\xF3\xA0\x8A\xB9" => "",                     # U+E02B9 => 
+"\xF3\xA0\x8A\xBA" => "",                     # U+E02BA => 
+"\xF3\xA0\x8A\xBB" => "",                     # U+E02BB => 
+"\xF3\xA0\x8A\xBC" => "",                     # U+E02BC => 
+"\xF3\xA0\x8A\xBD" => "",                     # U+E02BD => 
+"\xF3\xA0\x8A\xBE" => "",                     # U+E02BE => 
+"\xF3\xA0\x8A\xBF" => "",                     # U+E02BF => 
+"\xF3\xA0\x8B\x80" => "",                     # U+E02C0 => 
+"\xF3\xA0\x8B\x81" => "",                     # U+E02C1 => 
+"\xF3\xA0\x8B\x82" => "",                     # U+E02C2 => 
+"\xF3\xA0\x8B\x83" => "",                     # U+E02C3 => 
+"\xF3\xA0\x8B\x84" => "",                     # U+E02C4 => 
+"\xF3\xA0\x8B\x85" => "",                     # U+E02C5 => 
+"\xF3\xA0\x8B\x86" => "",                     # U+E02C6 => 
+"\xF3\xA0\x8B\x87" => "",                     # U+E02C7 => 
+"\xF3\xA0\x8B\x88" => "",                     # U+E02C8 => 
+"\xF3\xA0\x8B\x89" => "",                     # U+E02C9 => 
+"\xF3\xA0\x8B\x8A" => "",                     # U+E02CA => 
+"\xF3\xA0\x8B\x8B" => "",                     # U+E02CB => 
+"\xF3\xA0\x8B\x8C" => "",                     # U+E02CC => 
+"\xF3\xA0\x8B\x8D" => "",                     # U+E02CD => 
+"\xF3\xA0\x8B\x8E" => "",                     # U+E02CE => 
+"\xF3\xA0\x8B\x8F" => "",                     # U+E02CF => 
+"\xF3\xA0\x8B\x90" => "",                     # U+E02D0 => 
+"\xF3\xA0\x8B\x91" => "",                     # U+E02D1 => 
+"\xF3\xA0\x8B\x92" => "",                     # U+E02D2 => 
+"\xF3\xA0\x8B\x93" => "",                     # U+E02D3 => 
+"\xF3\xA0\x8B\x94" => "",                     # U+E02D4 => 
+"\xF3\xA0\x8B\x95" => "",                     # U+E02D5 => 
+"\xF3\xA0\x8B\x96" => "",                     # U+E02D6 => 
+"\xF3\xA0\x8B\x97" => "",                     # U+E02D7 => 
+"\xF3\xA0\x8B\x98" => "",                     # U+E02D8 => 
+"\xF3\xA0\x8B\x99" => "",                     # U+E02D9 => 
+"\xF3\xA0\x8B\x9A" => "",                     # U+E02DA => 
+"\xF3\xA0\x8B\x9B" => "",                     # U+E02DB => 
+"\xF3\xA0\x8B\x9C" => "",                     # U+E02DC => 
+"\xF3\xA0\x8B\x9D" => "",                     # U+E02DD => 
+"\xF3\xA0\x8B\x9E" => "",                     # U+E02DE => 
+"\xF3\xA0\x8B\x9F" => "",                     # U+E02DF => 
+"\xF3\xA0\x8B\xA0" => "",                     # U+E02E0 => 
+"\xF3\xA0\x8B\xA1" => "",                     # U+E02E1 => 
+"\xF3\xA0\x8B\xA2" => "",                     # U+E02E2 => 
+"\xF3\xA0\x8B\xA3" => "",                     # U+E02E3 => 
+"\xF3\xA0\x8B\xA4" => "",                     # U+E02E4 => 
+"\xF3\xA0\x8B\xA5" => "",                     # U+E02E5 => 
+"\xF3\xA0\x8B\xA6" => "",                     # U+E02E6 => 
+"\xF3\xA0\x8B\xA7" => "",                     # U+E02E7 => 
+"\xF3\xA0\x8B\xA8" => "",                     # U+E02E8 => 
+"\xF3\xA0\x8B\xA9" => "",                     # U+E02E9 => 
+"\xF3\xA0\x8B\xAA" => "",                     # U+E02EA => 
+"\xF3\xA0\x8B\xAB" => "",                     # U+E02EB => 
+"\xF3\xA0\x8B\xAC" => "",                     # U+E02EC => 
+"\xF3\xA0\x8B\xAD" => "",                     # U+E02ED => 
+"\xF3\xA0\x8B\xAE" => "",                     # U+E02EE => 
+"\xF3\xA0\x8B\xAF" => "",                     # U+E02EF => 
+"\xF3\xA0\x8B\xB0" => "",                     # U+E02F0 => 
+"\xF3\xA0\x8B\xB1" => "",                     # U+E02F1 => 
+"\xF3\xA0\x8B\xB2" => "",                     # U+E02F2 => 
+"\xF3\xA0\x8B\xB3" => "",                     # U+E02F3 => 
+"\xF3\xA0\x8B\xB4" => "",                     # U+E02F4 => 
+"\xF3\xA0\x8B\xB5" => "",                     # U+E02F5 => 
+"\xF3\xA0\x8B\xB6" => "",                     # U+E02F6 => 
+"\xF3\xA0\x8B\xB7" => "",                     # U+E02F7 => 
+"\xF3\xA0\x8B\xB8" => "",                     # U+E02F8 => 
+"\xF3\xA0\x8B\xB9" => "",                     # U+E02F9 => 
+"\xF3\xA0\x8B\xBA" => "",                     # U+E02FA => 
+"\xF3\xA0\x8B\xBB" => "",                     # U+E02FB => 
+"\xF3\xA0\x8B\xBC" => "",                     # U+E02FC => 
+"\xF3\xA0\x8B\xBD" => "",                     # U+E02FD => 
+"\xF3\xA0\x8B\xBE" => "",                     # U+E02FE => 
+"\xF3\xA0\x8B\xBF" => "",                     # U+E02FF => 
+"\xF3\xA0\x8C\x80" => "",                     # U+E0300 => 
+"\xF3\xA0\x8C\x81" => "",                     # U+E0301 => 
+"\xF3\xA0\x8C\x82" => "",                     # U+E0302 => 
+"\xF3\xA0\x8C\x83" => "",                     # U+E0303 => 
+"\xF3\xA0\x8C\x84" => "",                     # U+E0304 => 
+"\xF3\xA0\x8C\x85" => "",                     # U+E0305 => 
+"\xF3\xA0\x8C\x86" => "",                     # U+E0306 => 
+"\xF3\xA0\x8C\x87" => "",                     # U+E0307 => 
+"\xF3\xA0\x8C\x88" => "",                     # U+E0308 => 
+"\xF3\xA0\x8C\x89" => "",                     # U+E0309 => 
+"\xF3\xA0\x8C\x8A" => "",                     # U+E030A => 
+"\xF3\xA0\x8C\x8B" => "",                     # U+E030B => 
+"\xF3\xA0\x8C\x8C" => "",                     # U+E030C => 
+"\xF3\xA0\x8C\x8D" => "",                     # U+E030D => 
+"\xF3\xA0\x8C\x8E" => "",                     # U+E030E => 
+"\xF3\xA0\x8C\x8F" => "",                     # U+E030F => 
+"\xF3\xA0\x8C\x90" => "",                     # U+E0310 => 
+"\xF3\xA0\x8C\x91" => "",                     # U+E0311 => 
+"\xF3\xA0\x8C\x92" => "",                     # U+E0312 => 
+"\xF3\xA0\x8C\x93" => "",                     # U+E0313 => 
+"\xF3\xA0\x8C\x94" => "",                     # U+E0314 => 
+"\xF3\xA0\x8C\x95" => "",                     # U+E0315 => 
+"\xF3\xA0\x8C\x96" => "",                     # U+E0316 => 
+"\xF3\xA0\x8C\x97" => "",                     # U+E0317 => 
+"\xF3\xA0\x8C\x98" => "",                     # U+E0318 => 
+"\xF3\xA0\x8C\x99" => "",                     # U+E0319 => 
+"\xF3\xA0\x8C\x9A" => "",                     # U+E031A => 
+"\xF3\xA0\x8C\x9B" => "",                     # U+E031B => 
+"\xF3\xA0\x8C\x9C" => "",                     # U+E031C => 
+"\xF3\xA0\x8C\x9D" => "",                     # U+E031D => 
+"\xF3\xA0\x8C\x9E" => "",                     # U+E031E => 
+"\xF3\xA0\x8C\x9F" => "",                     # U+E031F => 
+"\xF3\xA0\x8C\xA0" => "",                     # U+E0320 => 
+"\xF3\xA0\x8C\xA1" => "",                     # U+E0321 => 
+"\xF3\xA0\x8C\xA2" => "",                     # U+E0322 => 
+"\xF3\xA0\x8C\xA3" => "",                     # U+E0323 => 
+"\xF3\xA0\x8C\xA4" => "",                     # U+E0324 => 
+"\xF3\xA0\x8C\xA5" => "",                     # U+E0325 => 
+"\xF3\xA0\x8C\xA6" => "",                     # U+E0326 => 
+"\xF3\xA0\x8C\xA7" => "",                     # U+E0327 => 
+"\xF3\xA0\x8C\xA8" => "",                     # U+E0328 => 
+"\xF3\xA0\x8C\xA9" => "",                     # U+E0329 => 
+"\xF3\xA0\x8C\xAA" => "",                     # U+E032A => 
+"\xF3\xA0\x8C\xAB" => "",                     # U+E032B => 
+"\xF3\xA0\x8C\xAC" => "",                     # U+E032C => 
+"\xF3\xA0\x8C\xAD" => "",                     # U+E032D => 
+"\xF3\xA0\x8C\xAE" => "",                     # U+E032E => 
+"\xF3\xA0\x8C\xAF" => "",                     # U+E032F => 
+"\xF3\xA0\x8C\xB0" => "",                     # U+E0330 => 
+"\xF3\xA0\x8C\xB1" => "",                     # U+E0331 => 
+"\xF3\xA0\x8C\xB2" => "",                     # U+E0332 => 
+"\xF3\xA0\x8C\xB3" => "",                     # U+E0333 => 
+"\xF3\xA0\x8C\xB4" => "",                     # U+E0334 => 
+"\xF3\xA0\x8C\xB5" => "",                     # U+E0335 => 
+"\xF3\xA0\x8C\xB6" => "",                     # U+E0336 => 
+"\xF3\xA0\x8C\xB7" => "",                     # U+E0337 => 
+"\xF3\xA0\x8C\xB8" => "",                     # U+E0338 => 
+"\xF3\xA0\x8C\xB9" => "",                     # U+E0339 => 
+"\xF3\xA0\x8C\xBA" => "",                     # U+E033A => 
+"\xF3\xA0\x8C\xBB" => "",                     # U+E033B => 
+"\xF3\xA0\x8C\xBC" => "",                     # U+E033C => 
+"\xF3\xA0\x8C\xBD" => "",                     # U+E033D => 
+"\xF3\xA0\x8C\xBE" => "",                     # U+E033E => 
+"\xF3\xA0\x8C\xBF" => "",                     # U+E033F => 
+"\xF3\xA0\x8D\x80" => "",                     # U+E0340 => 
+"\xF3\xA0\x8D\x81" => "",                     # U+E0341 => 
+"\xF3\xA0\x8D\x82" => "",                     # U+E0342 => 
+"\xF3\xA0\x8D\x83" => "",                     # U+E0343 => 
+"\xF3\xA0\x8D\x84" => "",                     # U+E0344 => 
+"\xF3\xA0\x8D\x85" => "",                     # U+E0345 => 
+"\xF3\xA0\x8D\x86" => "",                     # U+E0346 => 
+"\xF3\xA0\x8D\x87" => "",                     # U+E0347 => 
+"\xF3\xA0\x8D\x88" => "",                     # U+E0348 => 
+"\xF3\xA0\x8D\x89" => "",                     # U+E0349 => 
+"\xF3\xA0\x8D\x8A" => "",                     # U+E034A => 
+"\xF3\xA0\x8D\x8B" => "",                     # U+E034B => 
+"\xF3\xA0\x8D\x8C" => "",                     # U+E034C => 
+"\xF3\xA0\x8D\x8D" => "",                     # U+E034D => 
+"\xF3\xA0\x8D\x8E" => "",                     # U+E034E => 
+"\xF3\xA0\x8D\x8F" => "",                     # U+E034F => 
+"\xF3\xA0\x8D\x90" => "",                     # U+E0350 => 
+"\xF3\xA0\x8D\x91" => "",                     # U+E0351 => 
+"\xF3\xA0\x8D\x92" => "",                     # U+E0352 => 
+"\xF3\xA0\x8D\x93" => "",                     # U+E0353 => 
+"\xF3\xA0\x8D\x94" => "",                     # U+E0354 => 
+"\xF3\xA0\x8D\x95" => "",                     # U+E0355 => 
+"\xF3\xA0\x8D\x96" => "",                     # U+E0356 => 
+"\xF3\xA0\x8D\x97" => "",                     # U+E0357 => 
+"\xF3\xA0\x8D\x98" => "",                     # U+E0358 => 
+"\xF3\xA0\x8D\x99" => "",                     # U+E0359 => 
+"\xF3\xA0\x8D\x9A" => "",                     # U+E035A => 
+"\xF3\xA0\x8D\x9B" => "",                     # U+E035B => 
+"\xF3\xA0\x8D\x9C" => "",                     # U+E035C => 
+"\xF3\xA0\x8D\x9D" => "",                     # U+E035D => 
+"\xF3\xA0\x8D\x9E" => "",                     # U+E035E => 
+"\xF3\xA0\x8D\x9F" => "",                     # U+E035F => 
+"\xF3\xA0\x8D\xA0" => "",                     # U+E0360 => 
+"\xF3\xA0\x8D\xA1" => "",                     # U+E0361 => 
+"\xF3\xA0\x8D\xA2" => "",                     # U+E0362 => 
+"\xF3\xA0\x8D\xA3" => "",                     # U+E0363 => 
+"\xF3\xA0\x8D\xA4" => "",                     # U+E0364 => 
+"\xF3\xA0\x8D\xA5" => "",                     # U+E0365 => 
+"\xF3\xA0\x8D\xA6" => "",                     # U+E0366 => 
+"\xF3\xA0\x8D\xA7" => "",                     # U+E0367 => 
+"\xF3\xA0\x8D\xA8" => "",                     # U+E0368 => 
+"\xF3\xA0\x8D\xA9" => "",                     # U+E0369 => 
+"\xF3\xA0\x8D\xAA" => "",                     # U+E036A => 
+"\xF3\xA0\x8D\xAB" => "",                     # U+E036B => 
+"\xF3\xA0\x8D\xAC" => "",                     # U+E036C => 
+"\xF3\xA0\x8D\xAD" => "",                     # U+E036D => 
+"\xF3\xA0\x8D\xAE" => "",                     # U+E036E => 
+"\xF3\xA0\x8D\xAF" => "",                     # U+E036F => 
+"\xF3\xA0\x8D\xB0" => "",                     # U+E0370 => 
+"\xF3\xA0\x8D\xB1" => "",                     # U+E0371 => 
+"\xF3\xA0\x8D\xB2" => "",                     # U+E0372 => 
+"\xF3\xA0\x8D\xB3" => "",                     # U+E0373 => 
+"\xF3\xA0\x8D\xB4" => "",                     # U+E0374 => 
+"\xF3\xA0\x8D\xB5" => "",                     # U+E0375 => 
+"\xF3\xA0\x8D\xB6" => "",                     # U+E0376 => 
+"\xF3\xA0\x8D\xB7" => "",                     # U+E0377 => 
+"\xF3\xA0\x8D\xB8" => "",                     # U+E0378 => 
+"\xF3\xA0\x8D\xB9" => "",                     # U+E0379 => 
+"\xF3\xA0\x8D\xBA" => "",                     # U+E037A => 
+"\xF3\xA0\x8D\xBB" => "",                     # U+E037B => 
+"\xF3\xA0\x8D\xBC" => "",                     # U+E037C => 
+"\xF3\xA0\x8D\xBD" => "",                     # U+E037D => 
+"\xF3\xA0\x8D\xBE" => "",                     # U+E037E => 
+"\xF3\xA0\x8D\xBF" => "",                     # U+E037F => 
+"\xF3\xA0\x8E\x80" => "",                     # U+E0380 => 
+"\xF3\xA0\x8E\x81" => "",                     # U+E0381 => 
+"\xF3\xA0\x8E\x82" => "",                     # U+E0382 => 
+"\xF3\xA0\x8E\x83" => "",                     # U+E0383 => 
+"\xF3\xA0\x8E\x84" => "",                     # U+E0384 => 
+"\xF3\xA0\x8E\x85" => "",                     # U+E0385 => 
+"\xF3\xA0\x8E\x86" => "",                     # U+E0386 => 
+"\xF3\xA0\x8E\x87" => "",                     # U+E0387 => 
+"\xF3\xA0\x8E\x88" => "",                     # U+E0388 => 
+"\xF3\xA0\x8E\x89" => "",                     # U+E0389 => 
+"\xF3\xA0\x8E\x8A" => "",                     # U+E038A => 
+"\xF3\xA0\x8E\x8B" => "",                     # U+E038B => 
+"\xF3\xA0\x8E\x8C" => "",                     # U+E038C => 
+"\xF3\xA0\x8E\x8D" => "",                     # U+E038D => 
+"\xF3\xA0\x8E\x8E" => "",                     # U+E038E => 
+"\xF3\xA0\x8E\x8F" => "",                     # U+E038F => 
+"\xF3\xA0\x8E\x90" => "",                     # U+E0390 => 
+"\xF3\xA0\x8E\x91" => "",                     # U+E0391 => 
+"\xF3\xA0\x8E\x92" => "",                     # U+E0392 => 
+"\xF3\xA0\x8E\x93" => "",                     # U+E0393 => 
+"\xF3\xA0\x8E\x94" => "",                     # U+E0394 => 
+"\xF3\xA0\x8E\x95" => "",                     # U+E0395 => 
+"\xF3\xA0\x8E\x96" => "",                     # U+E0396 => 
+"\xF3\xA0\x8E\x97" => "",                     # U+E0397 => 
+"\xF3\xA0\x8E\x98" => "",                     # U+E0398 => 
+"\xF3\xA0\x8E\x99" => "",                     # U+E0399 => 
+"\xF3\xA0\x8E\x9A" => "",                     # U+E039A => 
+"\xF3\xA0\x8E\x9B" => "",                     # U+E039B => 
+"\xF3\xA0\x8E\x9C" => "",                     # U+E039C => 
+"\xF3\xA0\x8E\x9D" => "",                     # U+E039D => 
+"\xF3\xA0\x8E\x9E" => "",                     # U+E039E => 
+"\xF3\xA0\x8E\x9F" => "",                     # U+E039F => 
+"\xF3\xA0\x8E\xA0" => "",                     # U+E03A0 => 
+"\xF3\xA0\x8E\xA1" => "",                     # U+E03A1 => 
+"\xF3\xA0\x8E\xA2" => "",                     # U+E03A2 => 
+"\xF3\xA0\x8E\xA3" => "",                     # U+E03A3 => 
+"\xF3\xA0\x8E\xA4" => "",                     # U+E03A4 => 
+"\xF3\xA0\x8E\xA5" => "",                     # U+E03A5 => 
+"\xF3\xA0\x8E\xA6" => "",                     # U+E03A6 => 
+"\xF3\xA0\x8E\xA7" => "",                     # U+E03A7 => 
+"\xF3\xA0\x8E\xA8" => "",                     # U+E03A8 => 
+"\xF3\xA0\x8E\xA9" => "",                     # U+E03A9 => 
+"\xF3\xA0\x8E\xAA" => "",                     # U+E03AA => 
+"\xF3\xA0\x8E\xAB" => "",                     # U+E03AB => 
+"\xF3\xA0\x8E\xAC" => "",                     # U+E03AC => 
+"\xF3\xA0\x8E\xAD" => "",                     # U+E03AD => 
+"\xF3\xA0\x8E\xAE" => "",                     # U+E03AE => 
+"\xF3\xA0\x8E\xAF" => "",                     # U+E03AF => 
+"\xF3\xA0\x8E\xB0" => "",                     # U+E03B0 => 
+"\xF3\xA0\x8E\xB1" => "",                     # U+E03B1 => 
+"\xF3\xA0\x8E\xB2" => "",                     # U+E03B2 => 
+"\xF3\xA0\x8E\xB3" => "",                     # U+E03B3 => 
+"\xF3\xA0\x8E\xB4" => "",                     # U+E03B4 => 
+"\xF3\xA0\x8E\xB5" => "",                     # U+E03B5 => 
+"\xF3\xA0\x8E\xB6" => "",                     # U+E03B6 => 
+"\xF3\xA0\x8E\xB7" => "",                     # U+E03B7 => 
+"\xF3\xA0\x8E\xB8" => "",                     # U+E03B8 => 
+"\xF3\xA0\x8E\xB9" => "",                     # U+E03B9 => 
+"\xF3\xA0\x8E\xBA" => "",                     # U+E03BA => 
+"\xF3\xA0\x8E\xBB" => "",                     # U+E03BB => 
+"\xF3\xA0\x8E\xBC" => "",                     # U+E03BC => 
+"\xF3\xA0\x8E\xBD" => "",                     # U+E03BD => 
+"\xF3\xA0\x8E\xBE" => "",                     # U+E03BE => 
+"\xF3\xA0\x8E\xBF" => "",                     # U+E03BF => 
+"\xF3\xA0\x8F\x80" => "",                     # U+E03C0 => 
+"\xF3\xA0\x8F\x81" => "",                     # U+E03C1 => 
+"\xF3\xA0\x8F\x82" => "",                     # U+E03C2 => 
+"\xF3\xA0\x8F\x83" => "",                     # U+E03C3 => 
+"\xF3\xA0\x8F\x84" => "",                     # U+E03C4 => 
+"\xF3\xA0\x8F\x85" => "",                     # U+E03C5 => 
+"\xF3\xA0\x8F\x86" => "",                     # U+E03C6 => 
+"\xF3\xA0\x8F\x87" => "",                     # U+E03C7 => 
+"\xF3\xA0\x8F\x88" => "",                     # U+E03C8 => 
+"\xF3\xA0\x8F\x89" => "",                     # U+E03C9 => 
+"\xF3\xA0\x8F\x8A" => "",                     # U+E03CA => 
+"\xF3\xA0\x8F\x8B" => "",                     # U+E03CB => 
+"\xF3\xA0\x8F\x8C" => "",                     # U+E03CC => 
+"\xF3\xA0\x8F\x8D" => "",                     # U+E03CD => 
+"\xF3\xA0\x8F\x8E" => "",                     # U+E03CE => 
+"\xF3\xA0\x8F\x8F" => "",                     # U+E03CF => 
+"\xF3\xA0\x8F\x90" => "",                     # U+E03D0 => 
+"\xF3\xA0\x8F\x91" => "",                     # U+E03D1 => 
+"\xF3\xA0\x8F\x92" => "",                     # U+E03D2 => 
+"\xF3\xA0\x8F\x93" => "",                     # U+E03D3 => 
+"\xF3\xA0\x8F\x94" => "",                     # U+E03D4 => 
+"\xF3\xA0\x8F\x95" => "",                     # U+E03D5 => 
+"\xF3\xA0\x8F\x96" => "",                     # U+E03D6 => 
+"\xF3\xA0\x8F\x97" => "",                     # U+E03D7 => 
+"\xF3\xA0\x8F\x98" => "",                     # U+E03D8 => 
+"\xF3\xA0\x8F\x99" => "",                     # U+E03D9 => 
+"\xF3\xA0\x8F\x9A" => "",                     # U+E03DA => 
+"\xF3\xA0\x8F\x9B" => "",                     # U+E03DB => 
+"\xF3\xA0\x8F\x9C" => "",                     # U+E03DC => 
+"\xF3\xA0\x8F\x9D" => "",                     # U+E03DD => 
+"\xF3\xA0\x8F\x9E" => "",                     # U+E03DE => 
+"\xF3\xA0\x8F\x9F" => "",                     # U+E03DF => 
+"\xF3\xA0\x8F\xA0" => "",                     # U+E03E0 => 
+"\xF3\xA0\x8F\xA1" => "",                     # U+E03E1 => 
+"\xF3\xA0\x8F\xA2" => "",                     # U+E03E2 => 
+"\xF3\xA0\x8F\xA3" => "",                     # U+E03E3 => 
+"\xF3\xA0\x8F\xA4" => "",                     # U+E03E4 => 
+"\xF3\xA0\x8F\xA5" => "",                     # U+E03E5 => 
+"\xF3\xA0\x8F\xA6" => "",                     # U+E03E6 => 
+"\xF3\xA0\x8F\xA7" => "",                     # U+E03E7 => 
+"\xF3\xA0\x8F\xA8" => "",                     # U+E03E8 => 
+"\xF3\xA0\x8F\xA9" => "",                     # U+E03E9 => 
+"\xF3\xA0\x8F\xAA" => "",                     # U+E03EA => 
+"\xF3\xA0\x8F\xAB" => "",                     # U+E03EB => 
+"\xF3\xA0\x8F\xAC" => "",                     # U+E03EC => 
+"\xF3\xA0\x8F\xAD" => "",                     # U+E03ED => 
+"\xF3\xA0\x8F\xAE" => "",                     # U+E03EE => 
+"\xF3\xA0\x8F\xAF" => "",                     # U+E03EF => 
+"\xF3\xA0\x8F\xB0" => "",                     # U+E03F0 => 
+"\xF3\xA0\x8F\xB1" => "",                     # U+E03F1 => 
+"\xF3\xA0\x8F\xB2" => "",                     # U+E03F2 => 
+"\xF3\xA0\x8F\xB3" => "",                     # U+E03F3 => 
+"\xF3\xA0\x8F\xB4" => "",                     # U+E03F4 => 
+"\xF3\xA0\x8F\xB5" => "",                     # U+E03F5 => 
+"\xF3\xA0\x8F\xB6" => "",                     # U+E03F6 => 
+"\xF3\xA0\x8F\xB7" => "",                     # U+E03F7 => 
+"\xF3\xA0\x8F\xB8" => "",                     # U+E03F8 => 
+"\xF3\xA0\x8F\xB9" => "",                     # U+E03F9 => 
+"\xF3\xA0\x8F\xBA" => "",                     # U+E03FA => 
+"\xF3\xA0\x8F\xBB" => "",                     # U+E03FB => 
+"\xF3\xA0\x8F\xBC" => "",                     # U+E03FC => 
+"\xF3\xA0\x8F\xBD" => "",                     # U+E03FD => 
+"\xF3\xA0\x8F\xBE" => "",                     # U+E03FE => 
+"\xF3\xA0\x8F\xBF" => "",                     # U+E03FF => 
+"\xF3\xA0\x90\x80" => "",                     # U+E0400 => 
+"\xF3\xA0\x90\x81" => "",                     # U+E0401 => 
+"\xF3\xA0\x90\x82" => "",                     # U+E0402 => 
+"\xF3\xA0\x90\x83" => "",                     # U+E0403 => 
+"\xF3\xA0\x90\x84" => "",                     # U+E0404 => 
+"\xF3\xA0\x90\x85" => "",                     # U+E0405 => 
+"\xF3\xA0\x90\x86" => "",                     # U+E0406 => 
+"\xF3\xA0\x90\x87" => "",                     # U+E0407 => 
+"\xF3\xA0\x90\x88" => "",                     # U+E0408 => 
+"\xF3\xA0\x90\x89" => "",                     # U+E0409 => 
+"\xF3\xA0\x90\x8A" => "",                     # U+E040A => 
+"\xF3\xA0\x90\x8B" => "",                     # U+E040B => 
+"\xF3\xA0\x90\x8C" => "",                     # U+E040C => 
+"\xF3\xA0\x90\x8D" => "",                     # U+E040D => 
+"\xF3\xA0\x90\x8E" => "",                     # U+E040E => 
+"\xF3\xA0\x90\x8F" => "",                     # U+E040F => 
+"\xF3\xA0\x90\x90" => "",                     # U+E0410 => 
+"\xF3\xA0\x90\x91" => "",                     # U+E0411 => 
+"\xF3\xA0\x90\x92" => "",                     # U+E0412 => 
+"\xF3\xA0\x90\x93" => "",                     # U+E0413 => 
+"\xF3\xA0\x90\x94" => "",                     # U+E0414 => 
+"\xF3\xA0\x90\x95" => "",                     # U+E0415 => 
+"\xF3\xA0\x90\x96" => "",                     # U+E0416 => 
+"\xF3\xA0\x90\x97" => "",                     # U+E0417 => 
+"\xF3\xA0\x90\x98" => "",                     # U+E0418 => 
+"\xF3\xA0\x90\x99" => "",                     # U+E0419 => 
+"\xF3\xA0\x90\x9A" => "",                     # U+E041A => 
+"\xF3\xA0\x90\x9B" => "",                     # U+E041B => 
+"\xF3\xA0\x90\x9C" => "",                     # U+E041C => 
+"\xF3\xA0\x90\x9D" => "",                     # U+E041D => 
+"\xF3\xA0\x90\x9E" => "",                     # U+E041E => 
+"\xF3\xA0\x90\x9F" => "",                     # U+E041F => 
+"\xF3\xA0\x90\xA0" => "",                     # U+E0420 => 
+"\xF3\xA0\x90\xA1" => "",                     # U+E0421 => 
+"\xF3\xA0\x90\xA2" => "",                     # U+E0422 => 
+"\xF3\xA0\x90\xA3" => "",                     # U+E0423 => 
+"\xF3\xA0\x90\xA4" => "",                     # U+E0424 => 
+"\xF3\xA0\x90\xA5" => "",                     # U+E0425 => 
+"\xF3\xA0\x90\xA6" => "",                     # U+E0426 => 
+"\xF3\xA0\x90\xA7" => "",                     # U+E0427 => 
+"\xF3\xA0\x90\xA8" => "",                     # U+E0428 => 
+"\xF3\xA0\x90\xA9" => "",                     # U+E0429 => 
+"\xF3\xA0\x90\xAA" => "",                     # U+E042A => 
+"\xF3\xA0\x90\xAB" => "",                     # U+E042B => 
+"\xF3\xA0\x90\xAC" => "",                     # U+E042C => 
+"\xF3\xA0\x90\xAD" => "",                     # U+E042D => 
+"\xF3\xA0\x90\xAE" => "",                     # U+E042E => 
+"\xF3\xA0\x90\xAF" => "",                     # U+E042F => 
+"\xF3\xA0\x90\xB0" => "",                     # U+E0430 => 
+"\xF3\xA0\x90\xB1" => "",                     # U+E0431 => 
+"\xF3\xA0\x90\xB2" => "",                     # U+E0432 => 
+"\xF3\xA0\x90\xB3" => "",                     # U+E0433 => 
+"\xF3\xA0\x90\xB4" => "",                     # U+E0434 => 
+"\xF3\xA0\x90\xB5" => "",                     # U+E0435 => 
+"\xF3\xA0\x90\xB6" => "",                     # U+E0436 => 
+"\xF3\xA0\x90\xB7" => "",                     # U+E0437 => 
+"\xF3\xA0\x90\xB8" => "",                     # U+E0438 => 
+"\xF3\xA0\x90\xB9" => "",                     # U+E0439 => 
+"\xF3\xA0\x90\xBA" => "",                     # U+E043A => 
+"\xF3\xA0\x90\xBB" => "",                     # U+E043B => 
+"\xF3\xA0\x90\xBC" => "",                     # U+E043C => 
+"\xF3\xA0\x90\xBD" => "",                     # U+E043D => 
+"\xF3\xA0\x90\xBE" => "",                     # U+E043E => 
+"\xF3\xA0\x90\xBF" => "",                     # U+E043F => 
+"\xF3\xA0\x91\x80" => "",                     # U+E0440 => 
+"\xF3\xA0\x91\x81" => "",                     # U+E0441 => 
+"\xF3\xA0\x91\x82" => "",                     # U+E0442 => 
+"\xF3\xA0\x91\x83" => "",                     # U+E0443 => 
+"\xF3\xA0\x91\x84" => "",                     # U+E0444 => 
+"\xF3\xA0\x91\x85" => "",                     # U+E0445 => 
+"\xF3\xA0\x91\x86" => "",                     # U+E0446 => 
+"\xF3\xA0\x91\x87" => "",                     # U+E0447 => 
+"\xF3\xA0\x91\x88" => "",                     # U+E0448 => 
+"\xF3\xA0\x91\x89" => "",                     # U+E0449 => 
+"\xF3\xA0\x91\x8A" => "",                     # U+E044A => 
+"\xF3\xA0\x91\x8B" => "",                     # U+E044B => 
+"\xF3\xA0\x91\x8C" => "",                     # U+E044C => 
+"\xF3\xA0\x91\x8D" => "",                     # U+E044D => 
+"\xF3\xA0\x91\x8E" => "",                     # U+E044E => 
+"\xF3\xA0\x91\x8F" => "",                     # U+E044F => 
+"\xF3\xA0\x91\x90" => "",                     # U+E0450 => 
+"\xF3\xA0\x91\x91" => "",                     # U+E0451 => 
+"\xF3\xA0\x91\x92" => "",                     # U+E0452 => 
+"\xF3\xA0\x91\x93" => "",                     # U+E0453 => 
+"\xF3\xA0\x91\x94" => "",                     # U+E0454 => 
+"\xF3\xA0\x91\x95" => "",                     # U+E0455 => 
+"\xF3\xA0\x91\x96" => "",                     # U+E0456 => 
+"\xF3\xA0\x91\x97" => "",                     # U+E0457 => 
+"\xF3\xA0\x91\x98" => "",                     # U+E0458 => 
+"\xF3\xA0\x91\x99" => "",                     # U+E0459 => 
+"\xF3\xA0\x91\x9A" => "",                     # U+E045A => 
+"\xF3\xA0\x91\x9B" => "",                     # U+E045B => 
+"\xF3\xA0\x91\x9C" => "",                     # U+E045C => 
+"\xF3\xA0\x91\x9D" => "",                     # U+E045D => 
+"\xF3\xA0\x91\x9E" => "",                     # U+E045E => 
+"\xF3\xA0\x91\x9F" => "",                     # U+E045F => 
+"\xF3\xA0\x91\xA0" => "",                     # U+E0460 => 
+"\xF3\xA0\x91\xA1" => "",                     # U+E0461 => 
+"\xF3\xA0\x91\xA2" => "",                     # U+E0462 => 
+"\xF3\xA0\x91\xA3" => "",                     # U+E0463 => 
+"\xF3\xA0\x91\xA4" => "",                     # U+E0464 => 
+"\xF3\xA0\x91\xA5" => "",                     # U+E0465 => 
+"\xF3\xA0\x91\xA6" => "",                     # U+E0466 => 
+"\xF3\xA0\x91\xA7" => "",                     # U+E0467 => 
+"\xF3\xA0\x91\xA8" => "",                     # U+E0468 => 
+"\xF3\xA0\x91\xA9" => "",                     # U+E0469 => 
+"\xF3\xA0\x91\xAA" => "",                     # U+E046A => 
+"\xF3\xA0\x91\xAB" => "",                     # U+E046B => 
+"\xF3\xA0\x91\xAC" => "",                     # U+E046C => 
+"\xF3\xA0\x91\xAD" => "",                     # U+E046D => 
+"\xF3\xA0\x91\xAE" => "",                     # U+E046E => 
+"\xF3\xA0\x91\xAF" => "",                     # U+E046F => 
+"\xF3\xA0\x91\xB0" => "",                     # U+E0470 => 
+"\xF3\xA0\x91\xB1" => "",                     # U+E0471 => 
+"\xF3\xA0\x91\xB2" => "",                     # U+E0472 => 
+"\xF3\xA0\x91\xB3" => "",                     # U+E0473 => 
+"\xF3\xA0\x91\xB4" => "",                     # U+E0474 => 
+"\xF3\xA0\x91\xB5" => "",                     # U+E0475 => 
+"\xF3\xA0\x91\xB6" => "",                     # U+E0476 => 
+"\xF3\xA0\x91\xB7" => "",                     # U+E0477 => 
+"\xF3\xA0\x91\xB8" => "",                     # U+E0478 => 
+"\xF3\xA0\x91\xB9" => "",                     # U+E0479 => 
+"\xF3\xA0\x91\xBA" => "",                     # U+E047A => 
+"\xF3\xA0\x91\xBB" => "",                     # U+E047B => 
+"\xF3\xA0\x91\xBC" => "",                     # U+E047C => 
+"\xF3\xA0\x91\xBD" => "",                     # U+E047D => 
+"\xF3\xA0\x91\xBE" => "",                     # U+E047E => 
+"\xF3\xA0\x91\xBF" => "",                     # U+E047F => 
+"\xF3\xA0\x92\x80" => "",                     # U+E0480 => 
+"\xF3\xA0\x92\x81" => "",                     # U+E0481 => 
+"\xF3\xA0\x92\x82" => "",                     # U+E0482 => 
+"\xF3\xA0\x92\x83" => "",                     # U+E0483 => 
+"\xF3\xA0\x92\x84" => "",                     # U+E0484 => 
+"\xF3\xA0\x92\x85" => "",                     # U+E0485 => 
+"\xF3\xA0\x92\x86" => "",                     # U+E0486 => 
+"\xF3\xA0\x92\x87" => "",                     # U+E0487 => 
+"\xF3\xA0\x92\x88" => "",                     # U+E0488 => 
+"\xF3\xA0\x92\x89" => "",                     # U+E0489 => 
+"\xF3\xA0\x92\x8A" => "",                     # U+E048A => 
+"\xF3\xA0\x92\x8B" => "",                     # U+E048B => 
+"\xF3\xA0\x92\x8C" => "",                     # U+E048C => 
+"\xF3\xA0\x92\x8D" => "",                     # U+E048D => 
+"\xF3\xA0\x92\x8E" => "",                     # U+E048E => 
+"\xF3\xA0\x92\x8F" => "",                     # U+E048F => 
+"\xF3\xA0\x92\x90" => "",                     # U+E0490 => 
+"\xF3\xA0\x92\x91" => "",                     # U+E0491 => 
+"\xF3\xA0\x92\x92" => "",                     # U+E0492 => 
+"\xF3\xA0\x92\x93" => "",                     # U+E0493 => 
+"\xF3\xA0\x92\x94" => "",                     # U+E0494 => 
+"\xF3\xA0\x92\x95" => "",                     # U+E0495 => 
+"\xF3\xA0\x92\x96" => "",                     # U+E0496 => 
+"\xF3\xA0\x92\x97" => "",                     # U+E0497 => 
+"\xF3\xA0\x92\x98" => "",                     # U+E0498 => 
+"\xF3\xA0\x92\x99" => "",                     # U+E0499 => 
+"\xF3\xA0\x92\x9A" => "",                     # U+E049A => 
+"\xF3\xA0\x92\x9B" => "",                     # U+E049B => 
+"\xF3\xA0\x92\x9C" => "",                     # U+E049C => 
+"\xF3\xA0\x92\x9D" => "",                     # U+E049D => 
+"\xF3\xA0\x92\x9E" => "",                     # U+E049E => 
+"\xF3\xA0\x92\x9F" => "",                     # U+E049F => 
+"\xF3\xA0\x92\xA0" => "",                     # U+E04A0 => 
+"\xF3\xA0\x92\xA1" => "",                     # U+E04A1 => 
+"\xF3\xA0\x92\xA2" => "",                     # U+E04A2 => 
+"\xF3\xA0\x92\xA3" => "",                     # U+E04A3 => 
+"\xF3\xA0\x92\xA4" => "",                     # U+E04A4 => 
+"\xF3\xA0\x92\xA5" => "",                     # U+E04A5 => 
+"\xF3\xA0\x92\xA6" => "",                     # U+E04A6 => 
+"\xF3\xA0\x92\xA7" => "",                     # U+E04A7 => 
+"\xF3\xA0\x92\xA8" => "",                     # U+E04A8 => 
+"\xF3\xA0\x92\xA9" => "",                     # U+E04A9 => 
+"\xF3\xA0\x92\xAA" => "",                     # U+E04AA => 
+"\xF3\xA0\x92\xAB" => "",                     # U+E04AB => 
+"\xF3\xA0\x92\xAC" => "",                     # U+E04AC => 
+"\xF3\xA0\x92\xAD" => "",                     # U+E04AD => 
+"\xF3\xA0\x92\xAE" => "",                     # U+E04AE => 
+"\xF3\xA0\x92\xAF" => "",                     # U+E04AF => 
+"\xF3\xA0\x92\xB0" => "",                     # U+E04B0 => 
+"\xF3\xA0\x92\xB1" => "",                     # U+E04B1 => 
+"\xF3\xA0\x92\xB2" => "",                     # U+E04B2 => 
+"\xF3\xA0\x92\xB3" => "",                     # U+E04B3 => 
+"\xF3\xA0\x92\xB4" => "",                     # U+E04B4 => 
+"\xF3\xA0\x92\xB5" => "",                     # U+E04B5 => 
+"\xF3\xA0\x92\xB6" => "",                     # U+E04B6 => 
+"\xF3\xA0\x92\xB7" => "",                     # U+E04B7 => 
+"\xF3\xA0\x92\xB8" => "",                     # U+E04B8 => 
+"\xF3\xA0\x92\xB9" => "",                     # U+E04B9 => 
+"\xF3\xA0\x92\xBA" => "",                     # U+E04BA => 
+"\xF3\xA0\x92\xBB" => "",                     # U+E04BB => 
+"\xF3\xA0\x92\xBC" => "",                     # U+E04BC => 
+"\xF3\xA0\x92\xBD" => "",                     # U+E04BD => 
+"\xF3\xA0\x92\xBE" => "",                     # U+E04BE => 
+"\xF3\xA0\x92\xBF" => "",                     # U+E04BF => 
+"\xF3\xA0\x93\x80" => "",                     # U+E04C0 => 
+"\xF3\xA0\x93\x81" => "",                     # U+E04C1 => 
+"\xF3\xA0\x93\x82" => "",                     # U+E04C2 => 
+"\xF3\xA0\x93\x83" => "",                     # U+E04C3 => 
+"\xF3\xA0\x93\x84" => "",                     # U+E04C4 => 
+"\xF3\xA0\x93\x85" => "",                     # U+E04C5 => 
+"\xF3\xA0\x93\x86" => "",                     # U+E04C6 => 
+"\xF3\xA0\x93\x87" => "",                     # U+E04C7 => 
+"\xF3\xA0\x93\x88" => "",                     # U+E04C8 => 
+"\xF3\xA0\x93\x89" => "",                     # U+E04C9 => 
+"\xF3\xA0\x93\x8A" => "",                     # U+E04CA => 
+"\xF3\xA0\x93\x8B" => "",                     # U+E04CB => 
+"\xF3\xA0\x93\x8C" => "",                     # U+E04CC => 
+"\xF3\xA0\x93\x8D" => "",                     # U+E04CD => 
+"\xF3\xA0\x93\x8E" => "",                     # U+E04CE => 
+"\xF3\xA0\x93\x8F" => "",                     # U+E04CF => 
+"\xF3\xA0\x93\x90" => "",                     # U+E04D0 => 
+"\xF3\xA0\x93\x91" => "",                     # U+E04D1 => 
+"\xF3\xA0\x93\x92" => "",                     # U+E04D2 => 
+"\xF3\xA0\x93\x93" => "",                     # U+E04D3 => 
+"\xF3\xA0\x93\x94" => "",                     # U+E04D4 => 
+"\xF3\xA0\x93\x95" => "",                     # U+E04D5 => 
+"\xF3\xA0\x93\x96" => "",                     # U+E04D6 => 
+"\xF3\xA0\x93\x97" => "",                     # U+E04D7 => 
+"\xF3\xA0\x93\x98" => "",                     # U+E04D8 => 
+"\xF3\xA0\x93\x99" => "",                     # U+E04D9 => 
+"\xF3\xA0\x93\x9A" => "",                     # U+E04DA => 
+"\xF3\xA0\x93\x9B" => "",                     # U+E04DB => 
+"\xF3\xA0\x93\x9C" => "",                     # U+E04DC => 
+"\xF3\xA0\x93\x9D" => "",                     # U+E04DD => 
+"\xF3\xA0\x93\x9E" => "",                     # U+E04DE => 
+"\xF3\xA0\x93\x9F" => "",                     # U+E04DF => 
+"\xF3\xA0\x93\xA0" => "",                     # U+E04E0 => 
+"\xF3\xA0\x93\xA1" => "",                     # U+E04E1 => 
+"\xF3\xA0\x93\xA2" => "",                     # U+E04E2 => 
+"\xF3\xA0\x93\xA3" => "",                     # U+E04E3 => 
+"\xF3\xA0\x93\xA4" => "",                     # U+E04E4 => 
+"\xF3\xA0\x93\xA5" => "",                     # U+E04E5 => 
+"\xF3\xA0\x93\xA6" => "",                     # U+E04E6 => 
+"\xF3\xA0\x93\xA7" => "",                     # U+E04E7 => 
+"\xF3\xA0\x93\xA8" => "",                     # U+E04E8 => 
+"\xF3\xA0\x93\xA9" => "",                     # U+E04E9 => 
+"\xF3\xA0\x93\xAA" => "",                     # U+E04EA => 
+"\xF3\xA0\x93\xAB" => "",                     # U+E04EB => 
+"\xF3\xA0\x93\xAC" => "",                     # U+E04EC => 
+"\xF3\xA0\x93\xAD" => "",                     # U+E04ED => 
+"\xF3\xA0\x93\xAE" => "",                     # U+E04EE => 
+"\xF3\xA0\x93\xAF" => "",                     # U+E04EF => 
+"\xF3\xA0\x93\xB0" => "",                     # U+E04F0 => 
+"\xF3\xA0\x93\xB1" => "",                     # U+E04F1 => 
+"\xF3\xA0\x93\xB2" => "",                     # U+E04F2 => 
+"\xF3\xA0\x93\xB3" => "",                     # U+E04F3 => 
+"\xF3\xA0\x93\xB4" => "",                     # U+E04F4 => 
+"\xF3\xA0\x93\xB5" => "",                     # U+E04F5 => 
+"\xF3\xA0\x93\xB6" => "",                     # U+E04F6 => 
+"\xF3\xA0\x93\xB7" => "",                     # U+E04F7 => 
+"\xF3\xA0\x93\xB8" => "",                     # U+E04F8 => 
+"\xF3\xA0\x93\xB9" => "",                     # U+E04F9 => 
+"\xF3\xA0\x93\xBA" => "",                     # U+E04FA => 
+"\xF3\xA0\x93\xBB" => "",                     # U+E04FB => 
+"\xF3\xA0\x93\xBC" => "",                     # U+E04FC => 
+"\xF3\xA0\x93\xBD" => "",                     # U+E04FD => 
+"\xF3\xA0\x93\xBE" => "",                     # U+E04FE => 
+"\xF3\xA0\x93\xBF" => "",                     # U+E04FF => 
+"\xF3\xA0\x94\x80" => "",                     # U+E0500 => 
+"\xF3\xA0\x94\x81" => "",                     # U+E0501 => 
+"\xF3\xA0\x94\x82" => "",                     # U+E0502 => 
+"\xF3\xA0\x94\x83" => "",                     # U+E0503 => 
+"\xF3\xA0\x94\x84" => "",                     # U+E0504 => 
+"\xF3\xA0\x94\x85" => "",                     # U+E0505 => 
+"\xF3\xA0\x94\x86" => "",                     # U+E0506 => 
+"\xF3\xA0\x94\x87" => "",                     # U+E0507 => 
+"\xF3\xA0\x94\x88" => "",                     # U+E0508 => 
+"\xF3\xA0\x94\x89" => "",                     # U+E0509 => 
+"\xF3\xA0\x94\x8A" => "",                     # U+E050A => 
+"\xF3\xA0\x94\x8B" => "",                     # U+E050B => 
+"\xF3\xA0\x94\x8C" => "",                     # U+E050C => 
+"\xF3\xA0\x94\x8D" => "",                     # U+E050D => 
+"\xF3\xA0\x94\x8E" => "",                     # U+E050E => 
+"\xF3\xA0\x94\x8F" => "",                     # U+E050F => 
+"\xF3\xA0\x94\x90" => "",                     # U+E0510 => 
+"\xF3\xA0\x94\x91" => "",                     # U+E0511 => 
+"\xF3\xA0\x94\x92" => "",                     # U+E0512 => 
+"\xF3\xA0\x94\x93" => "",                     # U+E0513 => 
+"\xF3\xA0\x94\x94" => "",                     # U+E0514 => 
+"\xF3\xA0\x94\x95" => "",                     # U+E0515 => 
+"\xF3\xA0\x94\x96" => "",                     # U+E0516 => 
+"\xF3\xA0\x94\x97" => "",                     # U+E0517 => 
+"\xF3\xA0\x94\x98" => "",                     # U+E0518 => 
+"\xF3\xA0\x94\x99" => "",                     # U+E0519 => 
+"\xF3\xA0\x94\x9A" => "",                     # U+E051A => 
+"\xF3\xA0\x94\x9B" => "",                     # U+E051B => 
+"\xF3\xA0\x94\x9C" => "",                     # U+E051C => 
+"\xF3\xA0\x94\x9D" => "",                     # U+E051D => 
+"\xF3\xA0\x94\x9E" => "",                     # U+E051E => 
+"\xF3\xA0\x94\x9F" => "",                     # U+E051F => 
+"\xF3\xA0\x94\xA0" => "",                     # U+E0520 => 
+"\xF3\xA0\x94\xA1" => "",                     # U+E0521 => 
+"\xF3\xA0\x94\xA2" => "",                     # U+E0522 => 
+"\xF3\xA0\x94\xA3" => "",                     # U+E0523 => 
+"\xF3\xA0\x94\xA4" => "",                     # U+E0524 => 
+"\xF3\xA0\x94\xA5" => "",                     # U+E0525 => 
+"\xF3\xA0\x94\xA6" => "",                     # U+E0526 => 
+"\xF3\xA0\x94\xA7" => "",                     # U+E0527 => 
+"\xF3\xA0\x94\xA8" => "",                     # U+E0528 => 
+"\xF3\xA0\x94\xA9" => "",                     # U+E0529 => 
+"\xF3\xA0\x94\xAA" => "",                     # U+E052A => 
+"\xF3\xA0\x94\xAB" => "",                     # U+E052B => 
+"\xF3\xA0\x94\xAC" => "",                     # U+E052C => 
+"\xF3\xA0\x94\xAD" => "",                     # U+E052D => 
+"\xF3\xA0\x94\xAE" => "",                     # U+E052E => 
+"\xF3\xA0\x94\xAF" => "",                     # U+E052F => 
+"\xF3\xA0\x94\xB0" => "",                     # U+E0530 => 
+"\xF3\xA0\x94\xB1" => "",                     # U+E0531 => 
+"\xF3\xA0\x94\xB2" => "",                     # U+E0532 => 
+"\xF3\xA0\x94\xB3" => "",                     # U+E0533 => 
+"\xF3\xA0\x94\xB4" => "",                     # U+E0534 => 
+"\xF3\xA0\x94\xB5" => "",                     # U+E0535 => 
+"\xF3\xA0\x94\xB6" => "",                     # U+E0536 => 
+"\xF3\xA0\x94\xB7" => "",                     # U+E0537 => 
+"\xF3\xA0\x94\xB8" => "",                     # U+E0538 => 
+"\xF3\xA0\x94\xB9" => "",                     # U+E0539 => 
+"\xF3\xA0\x94\xBA" => "",                     # U+E053A => 
+"\xF3\xA0\x94\xBB" => "",                     # U+E053B => 
+"\xF3\xA0\x94\xBC" => "",                     # U+E053C => 
+"\xF3\xA0\x94\xBD" => "",                     # U+E053D => 
+"\xF3\xA0\x94\xBE" => "",                     # U+E053E => 
+"\xF3\xA0\x94\xBF" => "",                     # U+E053F => 
+"\xF3\xA0\x95\x80" => "",                     # U+E0540 => 
+"\xF3\xA0\x95\x81" => "",                     # U+E0541 => 
+"\xF3\xA0\x95\x82" => "",                     # U+E0542 => 
+"\xF3\xA0\x95\x83" => "",                     # U+E0543 => 
+"\xF3\xA0\x95\x84" => "",                     # U+E0544 => 
+"\xF3\xA0\x95\x85" => "",                     # U+E0545 => 
+"\xF3\xA0\x95\x86" => "",                     # U+E0546 => 
+"\xF3\xA0\x95\x87" => "",                     # U+E0547 => 
+"\xF3\xA0\x95\x88" => "",                     # U+E0548 => 
+"\xF3\xA0\x95\x89" => "",                     # U+E0549 => 
+"\xF3\xA0\x95\x8A" => "",                     # U+E054A => 
+"\xF3\xA0\x95\x8B" => "",                     # U+E054B => 
+"\xF3\xA0\x95\x8C" => "",                     # U+E054C => 
+"\xF3\xA0\x95\x8D" => "",                     # U+E054D => 
+"\xF3\xA0\x95\x8E" => "",                     # U+E054E => 
+"\xF3\xA0\x95\x8F" => "",                     # U+E054F => 
+"\xF3\xA0\x95\x90" => "",                     # U+E0550 => 
+"\xF3\xA0\x95\x91" => "",                     # U+E0551 => 
+"\xF3\xA0\x95\x92" => "",                     # U+E0552 => 
+"\xF3\xA0\x95\x93" => "",                     # U+E0553 => 
+"\xF3\xA0\x95\x94" => "",                     # U+E0554 => 
+"\xF3\xA0\x95\x95" => "",                     # U+E0555 => 
+"\xF3\xA0\x95\x96" => "",                     # U+E0556 => 
+"\xF3\xA0\x95\x97" => "",                     # U+E0557 => 
+"\xF3\xA0\x95\x98" => "",                     # U+E0558 => 
+"\xF3\xA0\x95\x99" => "",                     # U+E0559 => 
+"\xF3\xA0\x95\x9A" => "",                     # U+E055A => 
+"\xF3\xA0\x95\x9B" => "",                     # U+E055B => 
+"\xF3\xA0\x95\x9C" => "",                     # U+E055C => 
+"\xF3\xA0\x95\x9D" => "",                     # U+E055D => 
+"\xF3\xA0\x95\x9E" => "",                     # U+E055E => 
+"\xF3\xA0\x95\x9F" => "",                     # U+E055F => 
+"\xF3\xA0\x95\xA0" => "",                     # U+E0560 => 
+"\xF3\xA0\x95\xA1" => "",                     # U+E0561 => 
+"\xF3\xA0\x95\xA2" => "",                     # U+E0562 => 
+"\xF3\xA0\x95\xA3" => "",                     # U+E0563 => 
+"\xF3\xA0\x95\xA4" => "",                     # U+E0564 => 
+"\xF3\xA0\x95\xA5" => "",                     # U+E0565 => 
+"\xF3\xA0\x95\xA6" => "",                     # U+E0566 => 
+"\xF3\xA0\x95\xA7" => "",                     # U+E0567 => 
+"\xF3\xA0\x95\xA8" => "",                     # U+E0568 => 
+"\xF3\xA0\x95\xA9" => "",                     # U+E0569 => 
+"\xF3\xA0\x95\xAA" => "",                     # U+E056A => 
+"\xF3\xA0\x95\xAB" => "",                     # U+E056B => 
+"\xF3\xA0\x95\xAC" => "",                     # U+E056C => 
+"\xF3\xA0\x95\xAD" => "",                     # U+E056D => 
+"\xF3\xA0\x95\xAE" => "",                     # U+E056E => 
+"\xF3\xA0\x95\xAF" => "",                     # U+E056F => 
+"\xF3\xA0\x95\xB0" => "",                     # U+E0570 => 
+"\xF3\xA0\x95\xB1" => "",                     # U+E0571 => 
+"\xF3\xA0\x95\xB2" => "",                     # U+E0572 => 
+"\xF3\xA0\x95\xB3" => "",                     # U+E0573 => 
+"\xF3\xA0\x95\xB4" => "",                     # U+E0574 => 
+"\xF3\xA0\x95\xB5" => "",                     # U+E0575 => 
+"\xF3\xA0\x95\xB6" => "",                     # U+E0576 => 
+"\xF3\xA0\x95\xB7" => "",                     # U+E0577 => 
+"\xF3\xA0\x95\xB8" => "",                     # U+E0578 => 
+"\xF3\xA0\x95\xB9" => "",                     # U+E0579 => 
+"\xF3\xA0\x95\xBA" => "",                     # U+E057A => 
+"\xF3\xA0\x95\xBB" => "",                     # U+E057B => 
+"\xF3\xA0\x95\xBC" => "",                     # U+E057C => 
+"\xF3\xA0\x95\xBD" => "",                     # U+E057D => 
+"\xF3\xA0\x95\xBE" => "",                     # U+E057E => 
+"\xF3\xA0\x95\xBF" => "",                     # U+E057F => 
+"\xF3\xA0\x96\x80" => "",                     # U+E0580 => 
+"\xF3\xA0\x96\x81" => "",                     # U+E0581 => 
+"\xF3\xA0\x96\x82" => "",                     # U+E0582 => 
+"\xF3\xA0\x96\x83" => "",                     # U+E0583 => 
+"\xF3\xA0\x96\x84" => "",                     # U+E0584 => 
+"\xF3\xA0\x96\x85" => "",                     # U+E0585 => 
+"\xF3\xA0\x96\x86" => "",                     # U+E0586 => 
+"\xF3\xA0\x96\x87" => "",                     # U+E0587 => 
+"\xF3\xA0\x96\x88" => "",                     # U+E0588 => 
+"\xF3\xA0\x96\x89" => "",                     # U+E0589 => 
+"\xF3\xA0\x96\x8A" => "",                     # U+E058A => 
+"\xF3\xA0\x96\x8B" => "",                     # U+E058B => 
+"\xF3\xA0\x96\x8C" => "",                     # U+E058C => 
+"\xF3\xA0\x96\x8D" => "",                     # U+E058D => 
+"\xF3\xA0\x96\x8E" => "",                     # U+E058E => 
+"\xF3\xA0\x96\x8F" => "",                     # U+E058F => 
+"\xF3\xA0\x96\x90" => "",                     # U+E0590 => 
+"\xF3\xA0\x96\x91" => "",                     # U+E0591 => 
+"\xF3\xA0\x96\x92" => "",                     # U+E0592 => 
+"\xF3\xA0\x96\x93" => "",                     # U+E0593 => 
+"\xF3\xA0\x96\x94" => "",                     # U+E0594 => 
+"\xF3\xA0\x96\x95" => "",                     # U+E0595 => 
+"\xF3\xA0\x96\x96" => "",                     # U+E0596 => 
+"\xF3\xA0\x96\x97" => "",                     # U+E0597 => 
+"\xF3\xA0\x96\x98" => "",                     # U+E0598 => 
+"\xF3\xA0\x96\x99" => "",                     # U+E0599 => 
+"\xF3\xA0\x96\x9A" => "",                     # U+E059A => 
+"\xF3\xA0\x96\x9B" => "",                     # U+E059B => 
+"\xF3\xA0\x96\x9C" => "",                     # U+E059C => 
+"\xF3\xA0\x96\x9D" => "",                     # U+E059D => 
+"\xF3\xA0\x96\x9E" => "",                     # U+E059E => 
+"\xF3\xA0\x96\x9F" => "",                     # U+E059F => 
+"\xF3\xA0\x96\xA0" => "",                     # U+E05A0 => 
+"\xF3\xA0\x96\xA1" => "",                     # U+E05A1 => 
+"\xF3\xA0\x96\xA2" => "",                     # U+E05A2 => 
+"\xF3\xA0\x96\xA3" => "",                     # U+E05A3 => 
+"\xF3\xA0\x96\xA4" => "",                     # U+E05A4 => 
+"\xF3\xA0\x96\xA5" => "",                     # U+E05A5 => 
+"\xF3\xA0\x96\xA6" => "",                     # U+E05A6 => 
+"\xF3\xA0\x96\xA7" => "",                     # U+E05A7 => 
+"\xF3\xA0\x96\xA8" => "",                     # U+E05A8 => 
+"\xF3\xA0\x96\xA9" => "",                     # U+E05A9 => 
+"\xF3\xA0\x96\xAA" => "",                     # U+E05AA => 
+"\xF3\xA0\x96\xAB" => "",                     # U+E05AB => 
+"\xF3\xA0\x96\xAC" => "",                     # U+E05AC => 
+"\xF3\xA0\x96\xAD" => "",                     # U+E05AD => 
+"\xF3\xA0\x96\xAE" => "",                     # U+E05AE => 
+"\xF3\xA0\x96\xAF" => "",                     # U+E05AF => 
+"\xF3\xA0\x96\xB0" => "",                     # U+E05B0 => 
+"\xF3\xA0\x96\xB1" => "",                     # U+E05B1 => 
+"\xF3\xA0\x96\xB2" => "",                     # U+E05B2 => 
+"\xF3\xA0\x96\xB3" => "",                     # U+E05B3 => 
+"\xF3\xA0\x96\xB4" => "",                     # U+E05B4 => 
+"\xF3\xA0\x96\xB5" => "",                     # U+E05B5 => 
+"\xF3\xA0\x96\xB6" => "",                     # U+E05B6 => 
+"\xF3\xA0\x96\xB7" => "",                     # U+E05B7 => 
+"\xF3\xA0\x96\xB8" => "",                     # U+E05B8 => 
+"\xF3\xA0\x96\xB9" => "",                     # U+E05B9 => 
+"\xF3\xA0\x96\xBA" => "",                     # U+E05BA => 
+"\xF3\xA0\x96\xBB" => "",                     # U+E05BB => 
+"\xF3\xA0\x96\xBC" => "",                     # U+E05BC => 
+"\xF3\xA0\x96\xBD" => "",                     # U+E05BD => 
+"\xF3\xA0\x96\xBE" => "",                     # U+E05BE => 
+"\xF3\xA0\x96\xBF" => "",                     # U+E05BF => 
+"\xF3\xA0\x97\x80" => "",                     # U+E05C0 => 
+"\xF3\xA0\x97\x81" => "",                     # U+E05C1 => 
+"\xF3\xA0\x97\x82" => "",                     # U+E05C2 => 
+"\xF3\xA0\x97\x83" => "",                     # U+E05C3 => 
+"\xF3\xA0\x97\x84" => "",                     # U+E05C4 => 
+"\xF3\xA0\x97\x85" => "",                     # U+E05C5 => 
+"\xF3\xA0\x97\x86" => "",                     # U+E05C6 => 
+"\xF3\xA0\x97\x87" => "",                     # U+E05C7 => 
+"\xF3\xA0\x97\x88" => "",                     # U+E05C8 => 
+"\xF3\xA0\x97\x89" => "",                     # U+E05C9 => 
+"\xF3\xA0\x97\x8A" => "",                     # U+E05CA => 
+"\xF3\xA0\x97\x8B" => "",                     # U+E05CB => 
+"\xF3\xA0\x97\x8C" => "",                     # U+E05CC => 
+"\xF3\xA0\x97\x8D" => "",                     # U+E05CD => 
+"\xF3\xA0\x97\x8E" => "",                     # U+E05CE => 
+"\xF3\xA0\x97\x8F" => "",                     # U+E05CF => 
+"\xF3\xA0\x97\x90" => "",                     # U+E05D0 => 
+"\xF3\xA0\x97\x91" => "",                     # U+E05D1 => 
+"\xF3\xA0\x97\x92" => "",                     # U+E05D2 => 
+"\xF3\xA0\x97\x93" => "",                     # U+E05D3 => 
+"\xF3\xA0\x97\x94" => "",                     # U+E05D4 => 
+"\xF3\xA0\x97\x95" => "",                     # U+E05D5 => 
+"\xF3\xA0\x97\x96" => "",                     # U+E05D6 => 
+"\xF3\xA0\x97\x97" => "",                     # U+E05D7 => 
+"\xF3\xA0\x97\x98" => "",                     # U+E05D8 => 
+"\xF3\xA0\x97\x99" => "",                     # U+E05D9 => 
+"\xF3\xA0\x97\x9A" => "",                     # U+E05DA => 
+"\xF3\xA0\x97\x9B" => "",                     # U+E05DB => 
+"\xF3\xA0\x97\x9C" => "",                     # U+E05DC => 
+"\xF3\xA0\x97\x9D" => "",                     # U+E05DD => 
+"\xF3\xA0\x97\x9E" => "",                     # U+E05DE => 
+"\xF3\xA0\x97\x9F" => "",                     # U+E05DF => 
+"\xF3\xA0\x97\xA0" => "",                     # U+E05E0 => 
+"\xF3\xA0\x97\xA1" => "",                     # U+E05E1 => 
+"\xF3\xA0\x97\xA2" => "",                     # U+E05E2 => 
+"\xF3\xA0\x97\xA3" => "",                     # U+E05E3 => 
+"\xF3\xA0\x97\xA4" => "",                     # U+E05E4 => 
+"\xF3\xA0\x97\xA5" => "",                     # U+E05E5 => 
+"\xF3\xA0\x97\xA6" => "",                     # U+E05E6 => 
+"\xF3\xA0\x97\xA7" => "",                     # U+E05E7 => 
+"\xF3\xA0\x97\xA8" => "",                     # U+E05E8 => 
+"\xF3\xA0\x97\xA9" => "",                     # U+E05E9 => 
+"\xF3\xA0\x97\xAA" => "",                     # U+E05EA => 
+"\xF3\xA0\x97\xAB" => "",                     # U+E05EB => 
+"\xF3\xA0\x97\xAC" => "",                     # U+E05EC => 
+"\xF3\xA0\x97\xAD" => "",                     # U+E05ED => 
+"\xF3\xA0\x97\xAE" => "",                     # U+E05EE => 
+"\xF3\xA0\x97\xAF" => "",                     # U+E05EF => 
+"\xF3\xA0\x97\xB0" => "",                     # U+E05F0 => 
+"\xF3\xA0\x97\xB1" => "",                     # U+E05F1 => 
+"\xF3\xA0\x97\xB2" => "",                     # U+E05F2 => 
+"\xF3\xA0\x97\xB3" => "",                     # U+E05F3 => 
+"\xF3\xA0\x97\xB4" => "",                     # U+E05F4 => 
+"\xF3\xA0\x97\xB5" => "",                     # U+E05F5 => 
+"\xF3\xA0\x97\xB6" => "",                     # U+E05F6 => 
+"\xF3\xA0\x97\xB7" => "",                     # U+E05F7 => 
+"\xF3\xA0\x97\xB8" => "",                     # U+E05F8 => 
+"\xF3\xA0\x97\xB9" => "",                     # U+E05F9 => 
+"\xF3\xA0\x97\xBA" => "",                     # U+E05FA => 
+"\xF3\xA0\x97\xBB" => "",                     # U+E05FB => 
+"\xF3\xA0\x97\xBC" => "",                     # U+E05FC => 
+"\xF3\xA0\x97\xBD" => "",                     # U+E05FD => 
+"\xF3\xA0\x97\xBE" => "",                     # U+E05FE => 
+"\xF3\xA0\x97\xBF" => "",                     # U+E05FF => 
+"\xF3\xA0\x98\x80" => "",                     # U+E0600 => 
+"\xF3\xA0\x98\x81" => "",                     # U+E0601 => 
+"\xF3\xA0\x98\x82" => "",                     # U+E0602 => 
+"\xF3\xA0\x98\x83" => "",                     # U+E0603 => 
+"\xF3\xA0\x98\x84" => "",                     # U+E0604 => 
+"\xF3\xA0\x98\x85" => "",                     # U+E0605 => 
+"\xF3\xA0\x98\x86" => "",                     # U+E0606 => 
+"\xF3\xA0\x98\x87" => "",                     # U+E0607 => 
+"\xF3\xA0\x98\x88" => "",                     # U+E0608 => 
+"\xF3\xA0\x98\x89" => "",                     # U+E0609 => 
+"\xF3\xA0\x98\x8A" => "",                     # U+E060A => 
+"\xF3\xA0\x98\x8B" => "",                     # U+E060B => 
+"\xF3\xA0\x98\x8C" => "",                     # U+E060C => 
+"\xF3\xA0\x98\x8D" => "",                     # U+E060D => 
+"\xF3\xA0\x98\x8E" => "",                     # U+E060E => 
+"\xF3\xA0\x98\x8F" => "",                     # U+E060F => 
+"\xF3\xA0\x98\x90" => "",                     # U+E0610 => 
+"\xF3\xA0\x98\x91" => "",                     # U+E0611 => 
+"\xF3\xA0\x98\x92" => "",                     # U+E0612 => 
+"\xF3\xA0\x98\x93" => "",                     # U+E0613 => 
+"\xF3\xA0\x98\x94" => "",                     # U+E0614 => 
+"\xF3\xA0\x98\x95" => "",                     # U+E0615 => 
+"\xF3\xA0\x98\x96" => "",                     # U+E0616 => 
+"\xF3\xA0\x98\x97" => "",                     # U+E0617 => 
+"\xF3\xA0\x98\x98" => "",                     # U+E0618 => 
+"\xF3\xA0\x98\x99" => "",                     # U+E0619 => 
+"\xF3\xA0\x98\x9A" => "",                     # U+E061A => 
+"\xF3\xA0\x98\x9B" => "",                     # U+E061B => 
+"\xF3\xA0\x98\x9C" => "",                     # U+E061C => 
+"\xF3\xA0\x98\x9D" => "",                     # U+E061D => 
+"\xF3\xA0\x98\x9E" => "",                     # U+E061E => 
+"\xF3\xA0\x98\x9F" => "",                     # U+E061F => 
+"\xF3\xA0\x98\xA0" => "",                     # U+E0620 => 
+"\xF3\xA0\x98\xA1" => "",                     # U+E0621 => 
+"\xF3\xA0\x98\xA2" => "",                     # U+E0622 => 
+"\xF3\xA0\x98\xA3" => "",                     # U+E0623 => 
+"\xF3\xA0\x98\xA4" => "",                     # U+E0624 => 
+"\xF3\xA0\x98\xA5" => "",                     # U+E0625 => 
+"\xF3\xA0\x98\xA6" => "",                     # U+E0626 => 
+"\xF3\xA0\x98\xA7" => "",                     # U+E0627 => 
+"\xF3\xA0\x98\xA8" => "",                     # U+E0628 => 
+"\xF3\xA0\x98\xA9" => "",                     # U+E0629 => 
+"\xF3\xA0\x98\xAA" => "",                     # U+E062A => 
+"\xF3\xA0\x98\xAB" => "",                     # U+E062B => 
+"\xF3\xA0\x98\xAC" => "",                     # U+E062C => 
+"\xF3\xA0\x98\xAD" => "",                     # U+E062D => 
+"\xF3\xA0\x98\xAE" => "",                     # U+E062E => 
+"\xF3\xA0\x98\xAF" => "",                     # U+E062F => 
+"\xF3\xA0\x98\xB0" => "",                     # U+E0630 => 
+"\xF3\xA0\x98\xB1" => "",                     # U+E0631 => 
+"\xF3\xA0\x98\xB2" => "",                     # U+E0632 => 
+"\xF3\xA0\x98\xB3" => "",                     # U+E0633 => 
+"\xF3\xA0\x98\xB4" => "",                     # U+E0634 => 
+"\xF3\xA0\x98\xB5" => "",                     # U+E0635 => 
+"\xF3\xA0\x98\xB6" => "",                     # U+E0636 => 
+"\xF3\xA0\x98\xB7" => "",                     # U+E0637 => 
+"\xF3\xA0\x98\xB8" => "",                     # U+E0638 => 
+"\xF3\xA0\x98\xB9" => "",                     # U+E0639 => 
+"\xF3\xA0\x98\xBA" => "",                     # U+E063A => 
+"\xF3\xA0\x98\xBB" => "",                     # U+E063B => 
+"\xF3\xA0\x98\xBC" => "",                     # U+E063C => 
+"\xF3\xA0\x98\xBD" => "",                     # U+E063D => 
+"\xF3\xA0\x98\xBE" => "",                     # U+E063E => 
+"\xF3\xA0\x98\xBF" => "",                     # U+E063F => 
+"\xF3\xA0\x99\x80" => "",                     # U+E0640 => 
+"\xF3\xA0\x99\x81" => "",                     # U+E0641 => 
+"\xF3\xA0\x99\x82" => "",                     # U+E0642 => 
+"\xF3\xA0\x99\x83" => "",                     # U+E0643 => 
+"\xF3\xA0\x99\x84" => "",                     # U+E0644 => 
+"\xF3\xA0\x99\x85" => "",                     # U+E0645 => 
+"\xF3\xA0\x99\x86" => "",                     # U+E0646 => 
+"\xF3\xA0\x99\x87" => "",                     # U+E0647 => 
+"\xF3\xA0\x99\x88" => "",                     # U+E0648 => 
+"\xF3\xA0\x99\x89" => "",                     # U+E0649 => 
+"\xF3\xA0\x99\x8A" => "",                     # U+E064A => 
+"\xF3\xA0\x99\x8B" => "",                     # U+E064B => 
+"\xF3\xA0\x99\x8C" => "",                     # U+E064C => 
+"\xF3\xA0\x99\x8D" => "",                     # U+E064D => 
+"\xF3\xA0\x99\x8E" => "",                     # U+E064E => 
+"\xF3\xA0\x99\x8F" => "",                     # U+E064F => 
+"\xF3\xA0\x99\x90" => "",                     # U+E0650 => 
+"\xF3\xA0\x99\x91" => "",                     # U+E0651 => 
+"\xF3\xA0\x99\x92" => "",                     # U+E0652 => 
+"\xF3\xA0\x99\x93" => "",                     # U+E0653 => 
+"\xF3\xA0\x99\x94" => "",                     # U+E0654 => 
+"\xF3\xA0\x99\x95" => "",                     # U+E0655 => 
+"\xF3\xA0\x99\x96" => "",                     # U+E0656 => 
+"\xF3\xA0\x99\x97" => "",                     # U+E0657 => 
+"\xF3\xA0\x99\x98" => "",                     # U+E0658 => 
+"\xF3\xA0\x99\x99" => "",                     # U+E0659 => 
+"\xF3\xA0\x99\x9A" => "",                     # U+E065A => 
+"\xF3\xA0\x99\x9B" => "",                     # U+E065B => 
+"\xF3\xA0\x99\x9C" => "",                     # U+E065C => 
+"\xF3\xA0\x99\x9D" => "",                     # U+E065D => 
+"\xF3\xA0\x99\x9E" => "",                     # U+E065E => 
+"\xF3\xA0\x99\x9F" => "",                     # U+E065F => 
+"\xF3\xA0\x99\xA0" => "",                     # U+E0660 => 
+"\xF3\xA0\x99\xA1" => "",                     # U+E0661 => 
+"\xF3\xA0\x99\xA2" => "",                     # U+E0662 => 
+"\xF3\xA0\x99\xA3" => "",                     # U+E0663 => 
+"\xF3\xA0\x99\xA4" => "",                     # U+E0664 => 
+"\xF3\xA0\x99\xA5" => "",                     # U+E0665 => 
+"\xF3\xA0\x99\xA6" => "",                     # U+E0666 => 
+"\xF3\xA0\x99\xA7" => "",                     # U+E0667 => 
+"\xF3\xA0\x99\xA8" => "",                     # U+E0668 => 
+"\xF3\xA0\x99\xA9" => "",                     # U+E0669 => 
+"\xF3\xA0\x99\xAA" => "",                     # U+E066A => 
+"\xF3\xA0\x99\xAB" => "",                     # U+E066B => 
+"\xF3\xA0\x99\xAC" => "",                     # U+E066C => 
+"\xF3\xA0\x99\xAD" => "",                     # U+E066D => 
+"\xF3\xA0\x99\xAE" => "",                     # U+E066E => 
+"\xF3\xA0\x99\xAF" => "",                     # U+E066F => 
+"\xF3\xA0\x99\xB0" => "",                     # U+E0670 => 
+"\xF3\xA0\x99\xB1" => "",                     # U+E0671 => 
+"\xF3\xA0\x99\xB2" => "",                     # U+E0672 => 
+"\xF3\xA0\x99\xB3" => "",                     # U+E0673 => 
+"\xF3\xA0\x99\xB4" => "",                     # U+E0674 => 
+"\xF3\xA0\x99\xB5" => "",                     # U+E0675 => 
+"\xF3\xA0\x99\xB6" => "",                     # U+E0676 => 
+"\xF3\xA0\x99\xB7" => "",                     # U+E0677 => 
+"\xF3\xA0\x99\xB8" => "",                     # U+E0678 => 
+"\xF3\xA0\x99\xB9" => "",                     # U+E0679 => 
+"\xF3\xA0\x99\xBA" => "",                     # U+E067A => 
+"\xF3\xA0\x99\xBB" => "",                     # U+E067B => 
+"\xF3\xA0\x99\xBC" => "",                     # U+E067C => 
+"\xF3\xA0\x99\xBD" => "",                     # U+E067D => 
+"\xF3\xA0\x99\xBE" => "",                     # U+E067E => 
+"\xF3\xA0\x99\xBF" => "",                     # U+E067F => 
+"\xF3\xA0\x9A\x80" => "",                     # U+E0680 => 
+"\xF3\xA0\x9A\x81" => "",                     # U+E0681 => 
+"\xF3\xA0\x9A\x82" => "",                     # U+E0682 => 
+"\xF3\xA0\x9A\x83" => "",                     # U+E0683 => 
+"\xF3\xA0\x9A\x84" => "",                     # U+E0684 => 
+"\xF3\xA0\x9A\x85" => "",                     # U+E0685 => 
+"\xF3\xA0\x9A\x86" => "",                     # U+E0686 => 
+"\xF3\xA0\x9A\x87" => "",                     # U+E0687 => 
+"\xF3\xA0\x9A\x88" => "",                     # U+E0688 => 
+"\xF3\xA0\x9A\x89" => "",                     # U+E0689 => 
+"\xF3\xA0\x9A\x8A" => "",                     # U+E068A => 
+"\xF3\xA0\x9A\x8B" => "",                     # U+E068B => 
+"\xF3\xA0\x9A\x8C" => "",                     # U+E068C => 
+"\xF3\xA0\x9A\x8D" => "",                     # U+E068D => 
+"\xF3\xA0\x9A\x8E" => "",                     # U+E068E => 
+"\xF3\xA0\x9A\x8F" => "",                     # U+E068F => 
+"\xF3\xA0\x9A\x90" => "",                     # U+E0690 => 
+"\xF3\xA0\x9A\x91" => "",                     # U+E0691 => 
+"\xF3\xA0\x9A\x92" => "",                     # U+E0692 => 
+"\xF3\xA0\x9A\x93" => "",                     # U+E0693 => 
+"\xF3\xA0\x9A\x94" => "",                     # U+E0694 => 
+"\xF3\xA0\x9A\x95" => "",                     # U+E0695 => 
+"\xF3\xA0\x9A\x96" => "",                     # U+E0696 => 
+"\xF3\xA0\x9A\x97" => "",                     # U+E0697 => 
+"\xF3\xA0\x9A\x98" => "",                     # U+E0698 => 
+"\xF3\xA0\x9A\x99" => "",                     # U+E0699 => 
+"\xF3\xA0\x9A\x9A" => "",                     # U+E069A => 
+"\xF3\xA0\x9A\x9B" => "",                     # U+E069B => 
+"\xF3\xA0\x9A\x9C" => "",                     # U+E069C => 
+"\xF3\xA0\x9A\x9D" => "",                     # U+E069D => 
+"\xF3\xA0\x9A\x9E" => "",                     # U+E069E => 
+"\xF3\xA0\x9A\x9F" => "",                     # U+E069F => 
+"\xF3\xA0\x9A\xA0" => "",                     # U+E06A0 => 
+"\xF3\xA0\x9A\xA1" => "",                     # U+E06A1 => 
+"\xF3\xA0\x9A\xA2" => "",                     # U+E06A2 => 
+"\xF3\xA0\x9A\xA3" => "",                     # U+E06A3 => 
+"\xF3\xA0\x9A\xA4" => "",                     # U+E06A4 => 
+"\xF3\xA0\x9A\xA5" => "",                     # U+E06A5 => 
+"\xF3\xA0\x9A\xA6" => "",                     # U+E06A6 => 
+"\xF3\xA0\x9A\xA7" => "",                     # U+E06A7 => 
+"\xF3\xA0\x9A\xA8" => "",                     # U+E06A8 => 
+"\xF3\xA0\x9A\xA9" => "",                     # U+E06A9 => 
+"\xF3\xA0\x9A\xAA" => "",                     # U+E06AA => 
+"\xF3\xA0\x9A\xAB" => "",                     # U+E06AB => 
+"\xF3\xA0\x9A\xAC" => "",                     # U+E06AC => 
+"\xF3\xA0\x9A\xAD" => "",                     # U+E06AD => 
+"\xF3\xA0\x9A\xAE" => "",                     # U+E06AE => 
+"\xF3\xA0\x9A\xAF" => "",                     # U+E06AF => 
+"\xF3\xA0\x9A\xB0" => "",                     # U+E06B0 => 
+"\xF3\xA0\x9A\xB1" => "",                     # U+E06B1 => 
+"\xF3\xA0\x9A\xB2" => "",                     # U+E06B2 => 
+"\xF3\xA0\x9A\xB3" => "",                     # U+E06B3 => 
+"\xF3\xA0\x9A\xB4" => "",                     # U+E06B4 => 
+"\xF3\xA0\x9A\xB5" => "",                     # U+E06B5 => 
+"\xF3\xA0\x9A\xB6" => "",                     # U+E06B6 => 
+"\xF3\xA0\x9A\xB7" => "",                     # U+E06B7 => 
+"\xF3\xA0\x9A\xB8" => "",                     # U+E06B8 => 
+"\xF3\xA0\x9A\xB9" => "",                     # U+E06B9 => 
+"\xF3\xA0\x9A\xBA" => "",                     # U+E06BA => 
+"\xF3\xA0\x9A\xBB" => "",                     # U+E06BB => 
+"\xF3\xA0\x9A\xBC" => "",                     # U+E06BC => 
+"\xF3\xA0\x9A\xBD" => "",                     # U+E06BD => 
+"\xF3\xA0\x9A\xBE" => "",                     # U+E06BE => 
+"\xF3\xA0\x9A\xBF" => "",                     # U+E06BF => 
+"\xF3\xA0\x9B\x80" => "",                     # U+E06C0 => 
+"\xF3\xA0\x9B\x81" => "",                     # U+E06C1 => 
+"\xF3\xA0\x9B\x82" => "",                     # U+E06C2 => 
+"\xF3\xA0\x9B\x83" => "",                     # U+E06C3 => 
+"\xF3\xA0\x9B\x84" => "",                     # U+E06C4 => 
+"\xF3\xA0\x9B\x85" => "",                     # U+E06C5 => 
+"\xF3\xA0\x9B\x86" => "",                     # U+E06C6 => 
+"\xF3\xA0\x9B\x87" => "",                     # U+E06C7 => 
+"\xF3\xA0\x9B\x88" => "",                     # U+E06C8 => 
+"\xF3\xA0\x9B\x89" => "",                     # U+E06C9 => 
+"\xF3\xA0\x9B\x8A" => "",                     # U+E06CA => 
+"\xF3\xA0\x9B\x8B" => "",                     # U+E06CB => 
+"\xF3\xA0\x9B\x8C" => "",                     # U+E06CC => 
+"\xF3\xA0\x9B\x8D" => "",                     # U+E06CD => 
+"\xF3\xA0\x9B\x8E" => "",                     # U+E06CE => 
+"\xF3\xA0\x9B\x8F" => "",                     # U+E06CF => 
+"\xF3\xA0\x9B\x90" => "",                     # U+E06D0 => 
+"\xF3\xA0\x9B\x91" => "",                     # U+E06D1 => 
+"\xF3\xA0\x9B\x92" => "",                     # U+E06D2 => 
+"\xF3\xA0\x9B\x93" => "",                     # U+E06D3 => 
+"\xF3\xA0\x9B\x94" => "",                     # U+E06D4 => 
+"\xF3\xA0\x9B\x95" => "",                     # U+E06D5 => 
+"\xF3\xA0\x9B\x96" => "",                     # U+E06D6 => 
+"\xF3\xA0\x9B\x97" => "",                     # U+E06D7 => 
+"\xF3\xA0\x9B\x98" => "",                     # U+E06D8 => 
+"\xF3\xA0\x9B\x99" => "",                     # U+E06D9 => 
+"\xF3\xA0\x9B\x9A" => "",                     # U+E06DA => 
+"\xF3\xA0\x9B\x9B" => "",                     # U+E06DB => 
+"\xF3\xA0\x9B\x9C" => "",                     # U+E06DC => 
+"\xF3\xA0\x9B\x9D" => "",                     # U+E06DD => 
+"\xF3\xA0\x9B\x9E" => "",                     # U+E06DE => 
+"\xF3\xA0\x9B\x9F" => "",                     # U+E06DF => 
+"\xF3\xA0\x9B\xA0" => "",                     # U+E06E0 => 
+"\xF3\xA0\x9B\xA1" => "",                     # U+E06E1 => 
+"\xF3\xA0\x9B\xA2" => "",                     # U+E06E2 => 
+"\xF3\xA0\x9B\xA3" => "",                     # U+E06E3 => 
+"\xF3\xA0\x9B\xA4" => "",                     # U+E06E4 => 
+"\xF3\xA0\x9B\xA5" => "",                     # U+E06E5 => 
+"\xF3\xA0\x9B\xA6" => "",                     # U+E06E6 => 
+"\xF3\xA0\x9B\xA7" => "",                     # U+E06E7 => 
+"\xF3\xA0\x9B\xA8" => "",                     # U+E06E8 => 
+"\xF3\xA0\x9B\xA9" => "",                     # U+E06E9 => 
+"\xF3\xA0\x9B\xAA" => "",                     # U+E06EA => 
+"\xF3\xA0\x9B\xAB" => "",                     # U+E06EB => 
+"\xF3\xA0\x9B\xAC" => "",                     # U+E06EC => 
+"\xF3\xA0\x9B\xAD" => "",                     # U+E06ED => 
+"\xF3\xA0\x9B\xAE" => "",                     # U+E06EE => 
+"\xF3\xA0\x9B\xAF" => "",                     # U+E06EF => 
+"\xF3\xA0\x9B\xB0" => "",                     # U+E06F0 => 
+"\xF3\xA0\x9B\xB1" => "",                     # U+E06F1 => 
+"\xF3\xA0\x9B\xB2" => "",                     # U+E06F2 => 
+"\xF3\xA0\x9B\xB3" => "",                     # U+E06F3 => 
+"\xF3\xA0\x9B\xB4" => "",                     # U+E06F4 => 
+"\xF3\xA0\x9B\xB5" => "",                     # U+E06F5 => 
+"\xF3\xA0\x9B\xB6" => "",                     # U+E06F6 => 
+"\xF3\xA0\x9B\xB7" => "",                     # U+E06F7 => 
+"\xF3\xA0\x9B\xB8" => "",                     # U+E06F8 => 
+"\xF3\xA0\x9B\xB9" => "",                     # U+E06F9 => 
+"\xF3\xA0\x9B\xBA" => "",                     # U+E06FA => 
+"\xF3\xA0\x9B\xBB" => "",                     # U+E06FB => 
+"\xF3\xA0\x9B\xBC" => "",                     # U+E06FC => 
+"\xF3\xA0\x9B\xBD" => "",                     # U+E06FD => 
+"\xF3\xA0\x9B\xBE" => "",                     # U+E06FE => 
+"\xF3\xA0\x9B\xBF" => "",                     # U+E06FF => 
+"\xF3\xA0\x9C\x80" => "",                     # U+E0700 => 
+"\xF3\xA0\x9C\x81" => "",                     # U+E0701 => 
+"\xF3\xA0\x9C\x82" => "",                     # U+E0702 => 
+"\xF3\xA0\x9C\x83" => "",                     # U+E0703 => 
+"\xF3\xA0\x9C\x84" => "",                     # U+E0704 => 
+"\xF3\xA0\x9C\x85" => "",                     # U+E0705 => 
+"\xF3\xA0\x9C\x86" => "",                     # U+E0706 => 
+"\xF3\xA0\x9C\x87" => "",                     # U+E0707 => 
+"\xF3\xA0\x9C\x88" => "",                     # U+E0708 => 
+"\xF3\xA0\x9C\x89" => "",                     # U+E0709 => 
+"\xF3\xA0\x9C\x8A" => "",                     # U+E070A => 
+"\xF3\xA0\x9C\x8B" => "",                     # U+E070B => 
+"\xF3\xA0\x9C\x8C" => "",                     # U+E070C => 
+"\xF3\xA0\x9C\x8D" => "",                     # U+E070D => 
+"\xF3\xA0\x9C\x8E" => "",                     # U+E070E => 
+"\xF3\xA0\x9C\x8F" => "",                     # U+E070F => 
+"\xF3\xA0\x9C\x90" => "",                     # U+E0710 => 
+"\xF3\xA0\x9C\x91" => "",                     # U+E0711 => 
+"\xF3\xA0\x9C\x92" => "",                     # U+E0712 => 
+"\xF3\xA0\x9C\x93" => "",                     # U+E0713 => 
+"\xF3\xA0\x9C\x94" => "",                     # U+E0714 => 
+"\xF3\xA0\x9C\x95" => "",                     # U+E0715 => 
+"\xF3\xA0\x9C\x96" => "",                     # U+E0716 => 
+"\xF3\xA0\x9C\x97" => "",                     # U+E0717 => 
+"\xF3\xA0\x9C\x98" => "",                     # U+E0718 => 
+"\xF3\xA0\x9C\x99" => "",                     # U+E0719 => 
+"\xF3\xA0\x9C\x9A" => "",                     # U+E071A => 
+"\xF3\xA0\x9C\x9B" => "",                     # U+E071B => 
+"\xF3\xA0\x9C\x9C" => "",                     # U+E071C => 
+"\xF3\xA0\x9C\x9D" => "",                     # U+E071D => 
+"\xF3\xA0\x9C\x9E" => "",                     # U+E071E => 
+"\xF3\xA0\x9C\x9F" => "",                     # U+E071F => 
+"\xF3\xA0\x9C\xA0" => "",                     # U+E0720 => 
+"\xF3\xA0\x9C\xA1" => "",                     # U+E0721 => 
+"\xF3\xA0\x9C\xA2" => "",                     # U+E0722 => 
+"\xF3\xA0\x9C\xA3" => "",                     # U+E0723 => 
+"\xF3\xA0\x9C\xA4" => "",                     # U+E0724 => 
+"\xF3\xA0\x9C\xA5" => "",                     # U+E0725 => 
+"\xF3\xA0\x9C\xA6" => "",                     # U+E0726 => 
+"\xF3\xA0\x9C\xA7" => "",                     # U+E0727 => 
+"\xF3\xA0\x9C\xA8" => "",                     # U+E0728 => 
+"\xF3\xA0\x9C\xA9" => "",                     # U+E0729 => 
+"\xF3\xA0\x9C\xAA" => "",                     # U+E072A => 
+"\xF3\xA0\x9C\xAB" => "",                     # U+E072B => 
+"\xF3\xA0\x9C\xAC" => "",                     # U+E072C => 
+"\xF3\xA0\x9C\xAD" => "",                     # U+E072D => 
+"\xF3\xA0\x9C\xAE" => "",                     # U+E072E => 
+"\xF3\xA0\x9C\xAF" => "",                     # U+E072F => 
+"\xF3\xA0\x9C\xB0" => "",                     # U+E0730 => 
+"\xF3\xA0\x9C\xB1" => "",                     # U+E0731 => 
+"\xF3\xA0\x9C\xB2" => "",                     # U+E0732 => 
+"\xF3\xA0\x9C\xB3" => "",                     # U+E0733 => 
+"\xF3\xA0\x9C\xB4" => "",                     # U+E0734 => 
+"\xF3\xA0\x9C\xB5" => "",                     # U+E0735 => 
+"\xF3\xA0\x9C\xB6" => "",                     # U+E0736 => 
+"\xF3\xA0\x9C\xB7" => "",                     # U+E0737 => 
+"\xF3\xA0\x9C\xB8" => "",                     # U+E0738 => 
+"\xF3\xA0\x9C\xB9" => "",                     # U+E0739 => 
+"\xF3\xA0\x9C\xBA" => "",                     # U+E073A => 
+"\xF3\xA0\x9C\xBB" => "",                     # U+E073B => 
+"\xF3\xA0\x9C\xBC" => "",                     # U+E073C => 
+"\xF3\xA0\x9C\xBD" => "",                     # U+E073D => 
+"\xF3\xA0\x9C\xBE" => "",                     # U+E073E => 
+"\xF3\xA0\x9C\xBF" => "",                     # U+E073F => 
+"\xF3\xA0\x9D\x80" => "",                     # U+E0740 => 
+"\xF3\xA0\x9D\x81" => "",                     # U+E0741 => 
+"\xF3\xA0\x9D\x82" => "",                     # U+E0742 => 
+"\xF3\xA0\x9D\x83" => "",                     # U+E0743 => 
+"\xF3\xA0\x9D\x84" => "",                     # U+E0744 => 
+"\xF3\xA0\x9D\x85" => "",                     # U+E0745 => 
+"\xF3\xA0\x9D\x86" => "",                     # U+E0746 => 
+"\xF3\xA0\x9D\x87" => "",                     # U+E0747 => 
+"\xF3\xA0\x9D\x88" => "",                     # U+E0748 => 
+"\xF3\xA0\x9D\x89" => "",                     # U+E0749 => 
+"\xF3\xA0\x9D\x8A" => "",                     # U+E074A => 
+"\xF3\xA0\x9D\x8B" => "",                     # U+E074B => 
+"\xF3\xA0\x9D\x8C" => "",                     # U+E074C => 
+"\xF3\xA0\x9D\x8D" => "",                     # U+E074D => 
+"\xF3\xA0\x9D\x8E" => "",                     # U+E074E => 
+"\xF3\xA0\x9D\x8F" => "",                     # U+E074F => 
+"\xF3\xA0\x9D\x90" => "",                     # U+E0750 => 
+"\xF3\xA0\x9D\x91" => "",                     # U+E0751 => 
+"\xF3\xA0\x9D\x92" => "",                     # U+E0752 => 
+"\xF3\xA0\x9D\x93" => "",                     # U+E0753 => 
+"\xF3\xA0\x9D\x94" => "",                     # U+E0754 => 
+"\xF3\xA0\x9D\x95" => "",                     # U+E0755 => 
+"\xF3\xA0\x9D\x96" => "",                     # U+E0756 => 
+"\xF3\xA0\x9D\x97" => "",                     # U+E0757 => 
+"\xF3\xA0\x9D\x98" => "",                     # U+E0758 => 
+"\xF3\xA0\x9D\x99" => "",                     # U+E0759 => 
+"\xF3\xA0\x9D\x9A" => "",                     # U+E075A => 
+"\xF3\xA0\x9D\x9B" => "",                     # U+E075B => 
+"\xF3\xA0\x9D\x9C" => "",                     # U+E075C => 
+"\xF3\xA0\x9D\x9D" => "",                     # U+E075D => 
+"\xF3\xA0\x9D\x9E" => "",                     # U+E075E => 
+"\xF3\xA0\x9D\x9F" => "",                     # U+E075F => 
+"\xF3\xA0\x9D\xA0" => "",                     # U+E0760 => 
+"\xF3\xA0\x9D\xA1" => "",                     # U+E0761 => 
+"\xF3\xA0\x9D\xA2" => "",                     # U+E0762 => 
+"\xF3\xA0\x9D\xA3" => "",                     # U+E0763 => 
+"\xF3\xA0\x9D\xA4" => "",                     # U+E0764 => 
+"\xF3\xA0\x9D\xA5" => "",                     # U+E0765 => 
+"\xF3\xA0\x9D\xA6" => "",                     # U+E0766 => 
+"\xF3\xA0\x9D\xA7" => "",                     # U+E0767 => 
+"\xF3\xA0\x9D\xA8" => "",                     # U+E0768 => 
+"\xF3\xA0\x9D\xA9" => "",                     # U+E0769 => 
+"\xF3\xA0\x9D\xAA" => "",                     # U+E076A => 
+"\xF3\xA0\x9D\xAB" => "",                     # U+E076B => 
+"\xF3\xA0\x9D\xAC" => "",                     # U+E076C => 
+"\xF3\xA0\x9D\xAD" => "",                     # U+E076D => 
+"\xF3\xA0\x9D\xAE" => "",                     # U+E076E => 
+"\xF3\xA0\x9D\xAF" => "",                     # U+E076F => 
+"\xF3\xA0\x9D\xB0" => "",                     # U+E0770 => 
+"\xF3\xA0\x9D\xB1" => "",                     # U+E0771 => 
+"\xF3\xA0\x9D\xB2" => "",                     # U+E0772 => 
+"\xF3\xA0\x9D\xB3" => "",                     # U+E0773 => 
+"\xF3\xA0\x9D\xB4" => "",                     # U+E0774 => 
+"\xF3\xA0\x9D\xB5" => "",                     # U+E0775 => 
+"\xF3\xA0\x9D\xB6" => "",                     # U+E0776 => 
+"\xF3\xA0\x9D\xB7" => "",                     # U+E0777 => 
+"\xF3\xA0\x9D\xB8" => "",                     # U+E0778 => 
+"\xF3\xA0\x9D\xB9" => "",                     # U+E0779 => 
+"\xF3\xA0\x9D\xBA" => "",                     # U+E077A => 
+"\xF3\xA0\x9D\xBB" => "",                     # U+E077B => 
+"\xF3\xA0\x9D\xBC" => "",                     # U+E077C => 
+"\xF3\xA0\x9D\xBD" => "",                     # U+E077D => 
+"\xF3\xA0\x9D\xBE" => "",                     # U+E077E => 
+"\xF3\xA0\x9D\xBF" => "",                     # U+E077F => 
+"\xF3\xA0\x9E\x80" => "",                     # U+E0780 => 
+"\xF3\xA0\x9E\x81" => "",                     # U+E0781 => 
+"\xF3\xA0\x9E\x82" => "",                     # U+E0782 => 
+"\xF3\xA0\x9E\x83" => "",                     # U+E0783 => 
+"\xF3\xA0\x9E\x84" => "",                     # U+E0784 => 
+"\xF3\xA0\x9E\x85" => "",                     # U+E0785 => 
+"\xF3\xA0\x9E\x86" => "",                     # U+E0786 => 
+"\xF3\xA0\x9E\x87" => "",                     # U+E0787 => 
+"\xF3\xA0\x9E\x88" => "",                     # U+E0788 => 
+"\xF3\xA0\x9E\x89" => "",                     # U+E0789 => 
+"\xF3\xA0\x9E\x8A" => "",                     # U+E078A => 
+"\xF3\xA0\x9E\x8B" => "",                     # U+E078B => 
+"\xF3\xA0\x9E\x8C" => "",                     # U+E078C => 
+"\xF3\xA0\x9E\x8D" => "",                     # U+E078D => 
+"\xF3\xA0\x9E\x8E" => "",                     # U+E078E => 
+"\xF3\xA0\x9E\x8F" => "",                     # U+E078F => 
+"\xF3\xA0\x9E\x90" => "",                     # U+E0790 => 
+"\xF3\xA0\x9E\x91" => "",                     # U+E0791 => 
+"\xF3\xA0\x9E\x92" => "",                     # U+E0792 => 
+"\xF3\xA0\x9E\x93" => "",                     # U+E0793 => 
+"\xF3\xA0\x9E\x94" => "",                     # U+E0794 => 
+"\xF3\xA0\x9E\x95" => "",                     # U+E0795 => 
+"\xF3\xA0\x9E\x96" => "",                     # U+E0796 => 
+"\xF3\xA0\x9E\x97" => "",                     # U+E0797 => 
+"\xF3\xA0\x9E\x98" => "",                     # U+E0798 => 
+"\xF3\xA0\x9E\x99" => "",                     # U+E0799 => 
+"\xF3\xA0\x9E\x9A" => "",                     # U+E079A => 
+"\xF3\xA0\x9E\x9B" => "",                     # U+E079B => 
+"\xF3\xA0\x9E\x9C" => "",                     # U+E079C => 
+"\xF3\xA0\x9E\x9D" => "",                     # U+E079D => 
+"\xF3\xA0\x9E\x9E" => "",                     # U+E079E => 
+"\xF3\xA0\x9E\x9F" => "",                     # U+E079F => 
+"\xF3\xA0\x9E\xA0" => "",                     # U+E07A0 => 
+"\xF3\xA0\x9E\xA1" => "",                     # U+E07A1 => 
+"\xF3\xA0\x9E\xA2" => "",                     # U+E07A2 => 
+"\xF3\xA0\x9E\xA3" => "",                     # U+E07A3 => 
+"\xF3\xA0\x9E\xA4" => "",                     # U+E07A4 => 
+"\xF3\xA0\x9E\xA5" => "",                     # U+E07A5 => 
+"\xF3\xA0\x9E\xA6" => "",                     # U+E07A6 => 
+"\xF3\xA0\x9E\xA7" => "",                     # U+E07A7 => 
+"\xF3\xA0\x9E\xA8" => "",                     # U+E07A8 => 
+"\xF3\xA0\x9E\xA9" => "",                     # U+E07A9 => 
+"\xF3\xA0\x9E\xAA" => "",                     # U+E07AA => 
+"\xF3\xA0\x9E\xAB" => "",                     # U+E07AB => 
+"\xF3\xA0\x9E\xAC" => "",                     # U+E07AC => 
+"\xF3\xA0\x9E\xAD" => "",                     # U+E07AD => 
+"\xF3\xA0\x9E\xAE" => "",                     # U+E07AE => 
+"\xF3\xA0\x9E\xAF" => "",                     # U+E07AF => 
+"\xF3\xA0\x9E\xB0" => "",                     # U+E07B0 => 
+"\xF3\xA0\x9E\xB1" => "",                     # U+E07B1 => 
+"\xF3\xA0\x9E\xB2" => "",                     # U+E07B2 => 
+"\xF3\xA0\x9E\xB3" => "",                     # U+E07B3 => 
+"\xF3\xA0\x9E\xB4" => "",                     # U+E07B4 => 
+"\xF3\xA0\x9E\xB5" => "",                     # U+E07B5 => 
+"\xF3\xA0\x9E\xB6" => "",                     # U+E07B6 => 
+"\xF3\xA0\x9E\xB7" => "",                     # U+E07B7 => 
+"\xF3\xA0\x9E\xB8" => "",                     # U+E07B8 => 
+"\xF3\xA0\x9E\xB9" => "",                     # U+E07B9 => 
+"\xF3\xA0\x9E\xBA" => "",                     # U+E07BA => 
+"\xF3\xA0\x9E\xBB" => "",                     # U+E07BB => 
+"\xF3\xA0\x9E\xBC" => "",                     # U+E07BC => 
+"\xF3\xA0\x9E\xBD" => "",                     # U+E07BD => 
+"\xF3\xA0\x9E\xBE" => "",                     # U+E07BE => 
+"\xF3\xA0\x9E\xBF" => "",                     # U+E07BF => 
+"\xF3\xA0\x9F\x80" => "",                     # U+E07C0 => 
+"\xF3\xA0\x9F\x81" => "",                     # U+E07C1 => 
+"\xF3\xA0\x9F\x82" => "",                     # U+E07C2 => 
+"\xF3\xA0\x9F\x83" => "",                     # U+E07C3 => 
+"\xF3\xA0\x9F\x84" => "",                     # U+E07C4 => 
+"\xF3\xA0\x9F\x85" => "",                     # U+E07C5 => 
+"\xF3\xA0\x9F\x86" => "",                     # U+E07C6 => 
+"\xF3\xA0\x9F\x87" => "",                     # U+E07C7 => 
+"\xF3\xA0\x9F\x88" => "",                     # U+E07C8 => 
+"\xF3\xA0\x9F\x89" => "",                     # U+E07C9 => 
+"\xF3\xA0\x9F\x8A" => "",                     # U+E07CA => 
+"\xF3\xA0\x9F\x8B" => "",                     # U+E07CB => 
+"\xF3\xA0\x9F\x8C" => "",                     # U+E07CC => 
+"\xF3\xA0\x9F\x8D" => "",                     # U+E07CD => 
+"\xF3\xA0\x9F\x8E" => "",                     # U+E07CE => 
+"\xF3\xA0\x9F\x8F" => "",                     # U+E07CF => 
+"\xF3\xA0\x9F\x90" => "",                     # U+E07D0 => 
+"\xF3\xA0\x9F\x91" => "",                     # U+E07D1 => 
+"\xF3\xA0\x9F\x92" => "",                     # U+E07D2 => 
+"\xF3\xA0\x9F\x93" => "",                     # U+E07D3 => 
+"\xF3\xA0\x9F\x94" => "",                     # U+E07D4 => 
+"\xF3\xA0\x9F\x95" => "",                     # U+E07D5 => 
+"\xF3\xA0\x9F\x96" => "",                     # U+E07D6 => 
+"\xF3\xA0\x9F\x97" => "",                     # U+E07D7 => 
+"\xF3\xA0\x9F\x98" => "",                     # U+E07D8 => 
+"\xF3\xA0\x9F\x99" => "",                     # U+E07D9 => 
+"\xF3\xA0\x9F\x9A" => "",                     # U+E07DA => 
+"\xF3\xA0\x9F\x9B" => "",                     # U+E07DB => 
+"\xF3\xA0\x9F\x9C" => "",                     # U+E07DC => 
+"\xF3\xA0\x9F\x9D" => "",                     # U+E07DD => 
+"\xF3\xA0\x9F\x9E" => "",                     # U+E07DE => 
+"\xF3\xA0\x9F\x9F" => "",                     # U+E07DF => 
+"\xF3\xA0\x9F\xA0" => "",                     # U+E07E0 => 
+"\xF3\xA0\x9F\xA1" => "",                     # U+E07E1 => 
+"\xF3\xA0\x9F\xA2" => "",                     # U+E07E2 => 
+"\xF3\xA0\x9F\xA3" => "",                     # U+E07E3 => 
+"\xF3\xA0\x9F\xA4" => "",                     # U+E07E4 => 
+"\xF3\xA0\x9F\xA5" => "",                     # U+E07E5 => 
+"\xF3\xA0\x9F\xA6" => "",                     # U+E07E6 => 
+"\xF3\xA0\x9F\xA7" => "",                     # U+E07E7 => 
+"\xF3\xA0\x9F\xA8" => "",                     # U+E07E8 => 
+"\xF3\xA0\x9F\xA9" => "",                     # U+E07E9 => 
+"\xF3\xA0\x9F\xAA" => "",                     # U+E07EA => 
+"\xF3\xA0\x9F\xAB" => "",                     # U+E07EB => 
+"\xF3\xA0\x9F\xAC" => "",                     # U+E07EC => 
+"\xF3\xA0\x9F\xAD" => "",                     # U+E07ED => 
+"\xF3\xA0\x9F\xAE" => "",                     # U+E07EE => 
+"\xF3\xA0\x9F\xAF" => "",                     # U+E07EF => 
+"\xF3\xA0\x9F\xB0" => "",                     # U+E07F0 => 
+"\xF3\xA0\x9F\xB1" => "",                     # U+E07F1 => 
+"\xF3\xA0\x9F\xB2" => "",                     # U+E07F2 => 
+"\xF3\xA0\x9F\xB3" => "",                     # U+E07F3 => 
+"\xF3\xA0\x9F\xB4" => "",                     # U+E07F4 => 
+"\xF3\xA0\x9F\xB5" => "",                     # U+E07F5 => 
+"\xF3\xA0\x9F\xB6" => "",                     # U+E07F6 => 
+"\xF3\xA0\x9F\xB7" => "",                     # U+E07F7 => 
+"\xF3\xA0\x9F\xB8" => "",                     # U+E07F8 => 
+"\xF3\xA0\x9F\xB9" => "",                     # U+E07F9 => 
+"\xF3\xA0\x9F\xBA" => "",                     # U+E07FA => 
+"\xF3\xA0\x9F\xBB" => "",                     # U+E07FB => 
+"\xF3\xA0\x9F\xBC" => "",                     # U+E07FC => 
+"\xF3\xA0\x9F\xBD" => "",                     # U+E07FD => 
+"\xF3\xA0\x9F\xBE" => "",                     # U+E07FE => 
+"\xF3\xA0\x9F\xBF" => "",                     # U+E07FF => 
+"\xF3\xA0\xA0\x80" => "",                     # U+E0800 => 
+"\xF3\xA0\xA0\x81" => "",                     # U+E0801 => 
+"\xF3\xA0\xA0\x82" => "",                     # U+E0802 => 
+"\xF3\xA0\xA0\x83" => "",                     # U+E0803 => 
+"\xF3\xA0\xA0\x84" => "",                     # U+E0804 => 
+"\xF3\xA0\xA0\x85" => "",                     # U+E0805 => 
+"\xF3\xA0\xA0\x86" => "",                     # U+E0806 => 
+"\xF3\xA0\xA0\x87" => "",                     # U+E0807 => 
+"\xF3\xA0\xA0\x88" => "",                     # U+E0808 => 
+"\xF3\xA0\xA0\x89" => "",                     # U+E0809 => 
+"\xF3\xA0\xA0\x8A" => "",                     # U+E080A => 
+"\xF3\xA0\xA0\x8B" => "",                     # U+E080B => 
+"\xF3\xA0\xA0\x8C" => "",                     # U+E080C => 
+"\xF3\xA0\xA0\x8D" => "",                     # U+E080D => 
+"\xF3\xA0\xA0\x8E" => "",                     # U+E080E => 
+"\xF3\xA0\xA0\x8F" => "",                     # U+E080F => 
+"\xF3\xA0\xA0\x90" => "",                     # U+E0810 => 
+"\xF3\xA0\xA0\x91" => "",                     # U+E0811 => 
+"\xF3\xA0\xA0\x92" => "",                     # U+E0812 => 
+"\xF3\xA0\xA0\x93" => "",                     # U+E0813 => 
+"\xF3\xA0\xA0\x94" => "",                     # U+E0814 => 
+"\xF3\xA0\xA0\x95" => "",                     # U+E0815 => 
+"\xF3\xA0\xA0\x96" => "",                     # U+E0816 => 
+"\xF3\xA0\xA0\x97" => "",                     # U+E0817 => 
+"\xF3\xA0\xA0\x98" => "",                     # U+E0818 => 
+"\xF3\xA0\xA0\x99" => "",                     # U+E0819 => 
+"\xF3\xA0\xA0\x9A" => "",                     # U+E081A => 
+"\xF3\xA0\xA0\x9B" => "",                     # U+E081B => 
+"\xF3\xA0\xA0\x9C" => "",                     # U+E081C => 
+"\xF3\xA0\xA0\x9D" => "",                     # U+E081D => 
+"\xF3\xA0\xA0\x9E" => "",                     # U+E081E => 
+"\xF3\xA0\xA0\x9F" => "",                     # U+E081F => 
+"\xF3\xA0\xA0\xA0" => "",                     # U+E0820 => 
+"\xF3\xA0\xA0\xA1" => "",                     # U+E0821 => 
+"\xF3\xA0\xA0\xA2" => "",                     # U+E0822 => 
+"\xF3\xA0\xA0\xA3" => "",                     # U+E0823 => 
+"\xF3\xA0\xA0\xA4" => "",                     # U+E0824 => 
+"\xF3\xA0\xA0\xA5" => "",                     # U+E0825 => 
+"\xF3\xA0\xA0\xA6" => "",                     # U+E0826 => 
+"\xF3\xA0\xA0\xA7" => "",                     # U+E0827 => 
+"\xF3\xA0\xA0\xA8" => "",                     # U+E0828 => 
+"\xF3\xA0\xA0\xA9" => "",                     # U+E0829 => 
+"\xF3\xA0\xA0\xAA" => "",                     # U+E082A => 
+"\xF3\xA0\xA0\xAB" => "",                     # U+E082B => 
+"\xF3\xA0\xA0\xAC" => "",                     # U+E082C => 
+"\xF3\xA0\xA0\xAD" => "",                     # U+E082D => 
+"\xF3\xA0\xA0\xAE" => "",                     # U+E082E => 
+"\xF3\xA0\xA0\xAF" => "",                     # U+E082F => 
+"\xF3\xA0\xA0\xB0" => "",                     # U+E0830 => 
+"\xF3\xA0\xA0\xB1" => "",                     # U+E0831 => 
+"\xF3\xA0\xA0\xB2" => "",                     # U+E0832 => 
+"\xF3\xA0\xA0\xB3" => "",                     # U+E0833 => 
+"\xF3\xA0\xA0\xB4" => "",                     # U+E0834 => 
+"\xF3\xA0\xA0\xB5" => "",                     # U+E0835 => 
+"\xF3\xA0\xA0\xB6" => "",                     # U+E0836 => 
+"\xF3\xA0\xA0\xB7" => "",                     # U+E0837 => 
+"\xF3\xA0\xA0\xB8" => "",                     # U+E0838 => 
+"\xF3\xA0\xA0\xB9" => "",                     # U+E0839 => 
+"\xF3\xA0\xA0\xBA" => "",                     # U+E083A => 
+"\xF3\xA0\xA0\xBB" => "",                     # U+E083B => 
+"\xF3\xA0\xA0\xBC" => "",                     # U+E083C => 
+"\xF3\xA0\xA0\xBD" => "",                     # U+E083D => 
+"\xF3\xA0\xA0\xBE" => "",                     # U+E083E => 
+"\xF3\xA0\xA0\xBF" => "",                     # U+E083F => 
+"\xF3\xA0\xA1\x80" => "",                     # U+E0840 => 
+"\xF3\xA0\xA1\x81" => "",                     # U+E0841 => 
+"\xF3\xA0\xA1\x82" => "",                     # U+E0842 => 
+"\xF3\xA0\xA1\x83" => "",                     # U+E0843 => 
+"\xF3\xA0\xA1\x84" => "",                     # U+E0844 => 
+"\xF3\xA0\xA1\x85" => "",                     # U+E0845 => 
+"\xF3\xA0\xA1\x86" => "",                     # U+E0846 => 
+"\xF3\xA0\xA1\x87" => "",                     # U+E0847 => 
+"\xF3\xA0\xA1\x88" => "",                     # U+E0848 => 
+"\xF3\xA0\xA1\x89" => "",                     # U+E0849 => 
+"\xF3\xA0\xA1\x8A" => "",                     # U+E084A => 
+"\xF3\xA0\xA1\x8B" => "",                     # U+E084B => 
+"\xF3\xA0\xA1\x8C" => "",                     # U+E084C => 
+"\xF3\xA0\xA1\x8D" => "",                     # U+E084D => 
+"\xF3\xA0\xA1\x8E" => "",                     # U+E084E => 
+"\xF3\xA0\xA1\x8F" => "",                     # U+E084F => 
+"\xF3\xA0\xA1\x90" => "",                     # U+E0850 => 
+"\xF3\xA0\xA1\x91" => "",                     # U+E0851 => 
+"\xF3\xA0\xA1\x92" => "",                     # U+E0852 => 
+"\xF3\xA0\xA1\x93" => "",                     # U+E0853 => 
+"\xF3\xA0\xA1\x94" => "",                     # U+E0854 => 
+"\xF3\xA0\xA1\x95" => "",                     # U+E0855 => 
+"\xF3\xA0\xA1\x96" => "",                     # U+E0856 => 
+"\xF3\xA0\xA1\x97" => "",                     # U+E0857 => 
+"\xF3\xA0\xA1\x98" => "",                     # U+E0858 => 
+"\xF3\xA0\xA1\x99" => "",                     # U+E0859 => 
+"\xF3\xA0\xA1\x9A" => "",                     # U+E085A => 
+"\xF3\xA0\xA1\x9B" => "",                     # U+E085B => 
+"\xF3\xA0\xA1\x9C" => "",                     # U+E085C => 
+"\xF3\xA0\xA1\x9D" => "",                     # U+E085D => 
+"\xF3\xA0\xA1\x9E" => "",                     # U+E085E => 
+"\xF3\xA0\xA1\x9F" => "",                     # U+E085F => 
+"\xF3\xA0\xA1\xA0" => "",                     # U+E0860 => 
+"\xF3\xA0\xA1\xA1" => "",                     # U+E0861 => 
+"\xF3\xA0\xA1\xA2" => "",                     # U+E0862 => 
+"\xF3\xA0\xA1\xA3" => "",                     # U+E0863 => 
+"\xF3\xA0\xA1\xA4" => "",                     # U+E0864 => 
+"\xF3\xA0\xA1\xA5" => "",                     # U+E0865 => 
+"\xF3\xA0\xA1\xA6" => "",                     # U+E0866 => 
+"\xF3\xA0\xA1\xA7" => "",                     # U+E0867 => 
+"\xF3\xA0\xA1\xA8" => "",                     # U+E0868 => 
+"\xF3\xA0\xA1\xA9" => "",                     # U+E0869 => 
+"\xF3\xA0\xA1\xAA" => "",                     # U+E086A => 
+"\xF3\xA0\xA1\xAB" => "",                     # U+E086B => 
+"\xF3\xA0\xA1\xAC" => "",                     # U+E086C => 
+"\xF3\xA0\xA1\xAD" => "",                     # U+E086D => 
+"\xF3\xA0\xA1\xAE" => "",                     # U+E086E => 
+"\xF3\xA0\xA1\xAF" => "",                     # U+E086F => 
+"\xF3\xA0\xA1\xB0" => "",                     # U+E0870 => 
+"\xF3\xA0\xA1\xB1" => "",                     # U+E0871 => 
+"\xF3\xA0\xA1\xB2" => "",                     # U+E0872 => 
+"\xF3\xA0\xA1\xB3" => "",                     # U+E0873 => 
+"\xF3\xA0\xA1\xB4" => "",                     # U+E0874 => 
+"\xF3\xA0\xA1\xB5" => "",                     # U+E0875 => 
+"\xF3\xA0\xA1\xB6" => "",                     # U+E0876 => 
+"\xF3\xA0\xA1\xB7" => "",                     # U+E0877 => 
+"\xF3\xA0\xA1\xB8" => "",                     # U+E0878 => 
+"\xF3\xA0\xA1\xB9" => "",                     # U+E0879 => 
+"\xF3\xA0\xA1\xBA" => "",                     # U+E087A => 
+"\xF3\xA0\xA1\xBB" => "",                     # U+E087B => 
+"\xF3\xA0\xA1\xBC" => "",                     # U+E087C => 
+"\xF3\xA0\xA1\xBD" => "",                     # U+E087D => 
+"\xF3\xA0\xA1\xBE" => "",                     # U+E087E => 
+"\xF3\xA0\xA1\xBF" => "",                     # U+E087F => 
+"\xF3\xA0\xA2\x80" => "",                     # U+E0880 => 
+"\xF3\xA0\xA2\x81" => "",                     # U+E0881 => 
+"\xF3\xA0\xA2\x82" => "",                     # U+E0882 => 
+"\xF3\xA0\xA2\x83" => "",                     # U+E0883 => 
+"\xF3\xA0\xA2\x84" => "",                     # U+E0884 => 
+"\xF3\xA0\xA2\x85" => "",                     # U+E0885 => 
+"\xF3\xA0\xA2\x86" => "",                     # U+E0886 => 
+"\xF3\xA0\xA2\x87" => "",                     # U+E0887 => 
+"\xF3\xA0\xA2\x88" => "",                     # U+E0888 => 
+"\xF3\xA0\xA2\x89" => "",                     # U+E0889 => 
+"\xF3\xA0\xA2\x8A" => "",                     # U+E088A => 
+"\xF3\xA0\xA2\x8B" => "",                     # U+E088B => 
+"\xF3\xA0\xA2\x8C" => "",                     # U+E088C => 
+"\xF3\xA0\xA2\x8D" => "",                     # U+E088D => 
+"\xF3\xA0\xA2\x8E" => "",                     # U+E088E => 
+"\xF3\xA0\xA2\x8F" => "",                     # U+E088F => 
+"\xF3\xA0\xA2\x90" => "",                     # U+E0890 => 
+"\xF3\xA0\xA2\x91" => "",                     # U+E0891 => 
+"\xF3\xA0\xA2\x92" => "",                     # U+E0892 => 
+"\xF3\xA0\xA2\x93" => "",                     # U+E0893 => 
+"\xF3\xA0\xA2\x94" => "",                     # U+E0894 => 
+"\xF3\xA0\xA2\x95" => "",                     # U+E0895 => 
+"\xF3\xA0\xA2\x96" => "",                     # U+E0896 => 
+"\xF3\xA0\xA2\x97" => "",                     # U+E0897 => 
+"\xF3\xA0\xA2\x98" => "",                     # U+E0898 => 
+"\xF3\xA0\xA2\x99" => "",                     # U+E0899 => 
+"\xF3\xA0\xA2\x9A" => "",                     # U+E089A => 
+"\xF3\xA0\xA2\x9B" => "",                     # U+E089B => 
+"\xF3\xA0\xA2\x9C" => "",                     # U+E089C => 
+"\xF3\xA0\xA2\x9D" => "",                     # U+E089D => 
+"\xF3\xA0\xA2\x9E" => "",                     # U+E089E => 
+"\xF3\xA0\xA2\x9F" => "",                     # U+E089F => 
+"\xF3\xA0\xA2\xA0" => "",                     # U+E08A0 => 
+"\xF3\xA0\xA2\xA1" => "",                     # U+E08A1 => 
+"\xF3\xA0\xA2\xA2" => "",                     # U+E08A2 => 
+"\xF3\xA0\xA2\xA3" => "",                     # U+E08A3 => 
+"\xF3\xA0\xA2\xA4" => "",                     # U+E08A4 => 
+"\xF3\xA0\xA2\xA5" => "",                     # U+E08A5 => 
+"\xF3\xA0\xA2\xA6" => "",                     # U+E08A6 => 
+"\xF3\xA0\xA2\xA7" => "",                     # U+E08A7 => 
+"\xF3\xA0\xA2\xA8" => "",                     # U+E08A8 => 
+"\xF3\xA0\xA2\xA9" => "",                     # U+E08A9 => 
+"\xF3\xA0\xA2\xAA" => "",                     # U+E08AA => 
+"\xF3\xA0\xA2\xAB" => "",                     # U+E08AB => 
+"\xF3\xA0\xA2\xAC" => "",                     # U+E08AC => 
+"\xF3\xA0\xA2\xAD" => "",                     # U+E08AD => 
+"\xF3\xA0\xA2\xAE" => "",                     # U+E08AE => 
+"\xF3\xA0\xA2\xAF" => "",                     # U+E08AF => 
+"\xF3\xA0\xA2\xB0" => "",                     # U+E08B0 => 
+"\xF3\xA0\xA2\xB1" => "",                     # U+E08B1 => 
+"\xF3\xA0\xA2\xB2" => "",                     # U+E08B2 => 
+"\xF3\xA0\xA2\xB3" => "",                     # U+E08B3 => 
+"\xF3\xA0\xA2\xB4" => "",                     # U+E08B4 => 
+"\xF3\xA0\xA2\xB5" => "",                     # U+E08B5 => 
+"\xF3\xA0\xA2\xB6" => "",                     # U+E08B6 => 
+"\xF3\xA0\xA2\xB7" => "",                     # U+E08B7 => 
+"\xF3\xA0\xA2\xB8" => "",                     # U+E08B8 => 
+"\xF3\xA0\xA2\xB9" => "",                     # U+E08B9 => 
+"\xF3\xA0\xA2\xBA" => "",                     # U+E08BA => 
+"\xF3\xA0\xA2\xBB" => "",                     # U+E08BB => 
+"\xF3\xA0\xA2\xBC" => "",                     # U+E08BC => 
+"\xF3\xA0\xA2\xBD" => "",                     # U+E08BD => 
+"\xF3\xA0\xA2\xBE" => "",                     # U+E08BE => 
+"\xF3\xA0\xA2\xBF" => "",                     # U+E08BF => 
+"\xF3\xA0\xA3\x80" => "",                     # U+E08C0 => 
+"\xF3\xA0\xA3\x81" => "",                     # U+E08C1 => 
+"\xF3\xA0\xA3\x82" => "",                     # U+E08C2 => 
+"\xF3\xA0\xA3\x83" => "",                     # U+E08C3 => 
+"\xF3\xA0\xA3\x84" => "",                     # U+E08C4 => 
+"\xF3\xA0\xA3\x85" => "",                     # U+E08C5 => 
+"\xF3\xA0\xA3\x86" => "",                     # U+E08C6 => 
+"\xF3\xA0\xA3\x87" => "",                     # U+E08C7 => 
+"\xF3\xA0\xA3\x88" => "",                     # U+E08C8 => 
+"\xF3\xA0\xA3\x89" => "",                     # U+E08C9 => 
+"\xF3\xA0\xA3\x8A" => "",                     # U+E08CA => 
+"\xF3\xA0\xA3\x8B" => "",                     # U+E08CB => 
+"\xF3\xA0\xA3\x8C" => "",                     # U+E08CC => 
+"\xF3\xA0\xA3\x8D" => "",                     # U+E08CD => 
+"\xF3\xA0\xA3\x8E" => "",                     # U+E08CE => 
+"\xF3\xA0\xA3\x8F" => "",                     # U+E08CF => 
+"\xF3\xA0\xA3\x90" => "",                     # U+E08D0 => 
+"\xF3\xA0\xA3\x91" => "",                     # U+E08D1 => 
+"\xF3\xA0\xA3\x92" => "",                     # U+E08D2 => 
+"\xF3\xA0\xA3\x93" => "",                     # U+E08D3 => 
+"\xF3\xA0\xA3\x94" => "",                     # U+E08D4 => 
+"\xF3\xA0\xA3\x95" => "",                     # U+E08D5 => 
+"\xF3\xA0\xA3\x96" => "",                     # U+E08D6 => 
+"\xF3\xA0\xA3\x97" => "",                     # U+E08D7 => 
+"\xF3\xA0\xA3\x98" => "",                     # U+E08D8 => 
+"\xF3\xA0\xA3\x99" => "",                     # U+E08D9 => 
+"\xF3\xA0\xA3\x9A" => "",                     # U+E08DA => 
+"\xF3\xA0\xA3\x9B" => "",                     # U+E08DB => 
+"\xF3\xA0\xA3\x9C" => "",                     # U+E08DC => 
+"\xF3\xA0\xA3\x9D" => "",                     # U+E08DD => 
+"\xF3\xA0\xA3\x9E" => "",                     # U+E08DE => 
+"\xF3\xA0\xA3\x9F" => "",                     # U+E08DF => 
+"\xF3\xA0\xA3\xA0" => "",                     # U+E08E0 => 
+"\xF3\xA0\xA3\xA1" => "",                     # U+E08E1 => 
+"\xF3\xA0\xA3\xA2" => "",                     # U+E08E2 => 
+"\xF3\xA0\xA3\xA3" => "",                     # U+E08E3 => 
+"\xF3\xA0\xA3\xA4" => "",                     # U+E08E4 => 
+"\xF3\xA0\xA3\xA5" => "",                     # U+E08E5 => 
+"\xF3\xA0\xA3\xA6" => "",                     # U+E08E6 => 
+"\xF3\xA0\xA3\xA7" => "",                     # U+E08E7 => 
+"\xF3\xA0\xA3\xA8" => "",                     # U+E08E8 => 
+"\xF3\xA0\xA3\xA9" => "",                     # U+E08E9 => 
+"\xF3\xA0\xA3\xAA" => "",                     # U+E08EA => 
+"\xF3\xA0\xA3\xAB" => "",                     # U+E08EB => 
+"\xF3\xA0\xA3\xAC" => "",                     # U+E08EC => 
+"\xF3\xA0\xA3\xAD" => "",                     # U+E08ED => 
+"\xF3\xA0\xA3\xAE" => "",                     # U+E08EE => 
+"\xF3\xA0\xA3\xAF" => "",                     # U+E08EF => 
+"\xF3\xA0\xA3\xB0" => "",                     # U+E08F0 => 
+"\xF3\xA0\xA3\xB1" => "",                     # U+E08F1 => 
+"\xF3\xA0\xA3\xB2" => "",                     # U+E08F2 => 
+"\xF3\xA0\xA3\xB3" => "",                     # U+E08F3 => 
+"\xF3\xA0\xA3\xB4" => "",                     # U+E08F4 => 
+"\xF3\xA0\xA3\xB5" => "",                     # U+E08F5 => 
+"\xF3\xA0\xA3\xB6" => "",                     # U+E08F6 => 
+"\xF3\xA0\xA3\xB7" => "",                     # U+E08F7 => 
+"\xF3\xA0\xA3\xB8" => "",                     # U+E08F8 => 
+"\xF3\xA0\xA3\xB9" => "",                     # U+E08F9 => 
+"\xF3\xA0\xA3\xBA" => "",                     # U+E08FA => 
+"\xF3\xA0\xA3\xBB" => "",                     # U+E08FB => 
+"\xF3\xA0\xA3\xBC" => "",                     # U+E08FC => 
+"\xF3\xA0\xA3\xBD" => "",                     # U+E08FD => 
+"\xF3\xA0\xA3\xBE" => "",                     # U+E08FE => 
+"\xF3\xA0\xA3\xBF" => "",                     # U+E08FF => 
+"\xF3\xA0\xA4\x80" => "",                     # U+E0900 => 
+"\xF3\xA0\xA4\x81" => "",                     # U+E0901 => 
+"\xF3\xA0\xA4\x82" => "",                     # U+E0902 => 
+"\xF3\xA0\xA4\x83" => "",                     # U+E0903 => 
+"\xF3\xA0\xA4\x84" => "",                     # U+E0904 => 
+"\xF3\xA0\xA4\x85" => "",                     # U+E0905 => 
+"\xF3\xA0\xA4\x86" => "",                     # U+E0906 => 
+"\xF3\xA0\xA4\x87" => "",                     # U+E0907 => 
+"\xF3\xA0\xA4\x88" => "",                     # U+E0908 => 
+"\xF3\xA0\xA4\x89" => "",                     # U+E0909 => 
+"\xF3\xA0\xA4\x8A" => "",                     # U+E090A => 
+"\xF3\xA0\xA4\x8B" => "",                     # U+E090B => 
+"\xF3\xA0\xA4\x8C" => "",                     # U+E090C => 
+"\xF3\xA0\xA4\x8D" => "",                     # U+E090D => 
+"\xF3\xA0\xA4\x8E" => "",                     # U+E090E => 
+"\xF3\xA0\xA4\x8F" => "",                     # U+E090F => 
+"\xF3\xA0\xA4\x90" => "",                     # U+E0910 => 
+"\xF3\xA0\xA4\x91" => "",                     # U+E0911 => 
+"\xF3\xA0\xA4\x92" => "",                     # U+E0912 => 
+"\xF3\xA0\xA4\x93" => "",                     # U+E0913 => 
+"\xF3\xA0\xA4\x94" => "",                     # U+E0914 => 
+"\xF3\xA0\xA4\x95" => "",                     # U+E0915 => 
+"\xF3\xA0\xA4\x96" => "",                     # U+E0916 => 
+"\xF3\xA0\xA4\x97" => "",                     # U+E0917 => 
+"\xF3\xA0\xA4\x98" => "",                     # U+E0918 => 
+"\xF3\xA0\xA4\x99" => "",                     # U+E0919 => 
+"\xF3\xA0\xA4\x9A" => "",                     # U+E091A => 
+"\xF3\xA0\xA4\x9B" => "",                     # U+E091B => 
+"\xF3\xA0\xA4\x9C" => "",                     # U+E091C => 
+"\xF3\xA0\xA4\x9D" => "",                     # U+E091D => 
+"\xF3\xA0\xA4\x9E" => "",                     # U+E091E => 
+"\xF3\xA0\xA4\x9F" => "",                     # U+E091F => 
+"\xF3\xA0\xA4\xA0" => "",                     # U+E0920 => 
+"\xF3\xA0\xA4\xA1" => "",                     # U+E0921 => 
+"\xF3\xA0\xA4\xA2" => "",                     # U+E0922 => 
+"\xF3\xA0\xA4\xA3" => "",                     # U+E0923 => 
+"\xF3\xA0\xA4\xA4" => "",                     # U+E0924 => 
+"\xF3\xA0\xA4\xA5" => "",                     # U+E0925 => 
+"\xF3\xA0\xA4\xA6" => "",                     # U+E0926 => 
+"\xF3\xA0\xA4\xA7" => "",                     # U+E0927 => 
+"\xF3\xA0\xA4\xA8" => "",                     # U+E0928 => 
+"\xF3\xA0\xA4\xA9" => "",                     # U+E0929 => 
+"\xF3\xA0\xA4\xAA" => "",                     # U+E092A => 
+"\xF3\xA0\xA4\xAB" => "",                     # U+E092B => 
+"\xF3\xA0\xA4\xAC" => "",                     # U+E092C => 
+"\xF3\xA0\xA4\xAD" => "",                     # U+E092D => 
+"\xF3\xA0\xA4\xAE" => "",                     # U+E092E => 
+"\xF3\xA0\xA4\xAF" => "",                     # U+E092F => 
+"\xF3\xA0\xA4\xB0" => "",                     # U+E0930 => 
+"\xF3\xA0\xA4\xB1" => "",                     # U+E0931 => 
+"\xF3\xA0\xA4\xB2" => "",                     # U+E0932 => 
+"\xF3\xA0\xA4\xB3" => "",                     # U+E0933 => 
+"\xF3\xA0\xA4\xB4" => "",                     # U+E0934 => 
+"\xF3\xA0\xA4\xB5" => "",                     # U+E0935 => 
+"\xF3\xA0\xA4\xB6" => "",                     # U+E0936 => 
+"\xF3\xA0\xA4\xB7" => "",                     # U+E0937 => 
+"\xF3\xA0\xA4\xB8" => "",                     # U+E0938 => 
+"\xF3\xA0\xA4\xB9" => "",                     # U+E0939 => 
+"\xF3\xA0\xA4\xBA" => "",                     # U+E093A => 
+"\xF3\xA0\xA4\xBB" => "",                     # U+E093B => 
+"\xF3\xA0\xA4\xBC" => "",                     # U+E093C => 
+"\xF3\xA0\xA4\xBD" => "",                     # U+E093D => 
+"\xF3\xA0\xA4\xBE" => "",                     # U+E093E => 
+"\xF3\xA0\xA4\xBF" => "",                     # U+E093F => 
+"\xF3\xA0\xA5\x80" => "",                     # U+E0940 => 
+"\xF3\xA0\xA5\x81" => "",                     # U+E0941 => 
+"\xF3\xA0\xA5\x82" => "",                     # U+E0942 => 
+"\xF3\xA0\xA5\x83" => "",                     # U+E0943 => 
+"\xF3\xA0\xA5\x84" => "",                     # U+E0944 => 
+"\xF3\xA0\xA5\x85" => "",                     # U+E0945 => 
+"\xF3\xA0\xA5\x86" => "",                     # U+E0946 => 
+"\xF3\xA0\xA5\x87" => "",                     # U+E0947 => 
+"\xF3\xA0\xA5\x88" => "",                     # U+E0948 => 
+"\xF3\xA0\xA5\x89" => "",                     # U+E0949 => 
+"\xF3\xA0\xA5\x8A" => "",                     # U+E094A => 
+"\xF3\xA0\xA5\x8B" => "",                     # U+E094B => 
+"\xF3\xA0\xA5\x8C" => "",                     # U+E094C => 
+"\xF3\xA0\xA5\x8D" => "",                     # U+E094D => 
+"\xF3\xA0\xA5\x8E" => "",                     # U+E094E => 
+"\xF3\xA0\xA5\x8F" => "",                     # U+E094F => 
+"\xF3\xA0\xA5\x90" => "",                     # U+E0950 => 
+"\xF3\xA0\xA5\x91" => "",                     # U+E0951 => 
+"\xF3\xA0\xA5\x92" => "",                     # U+E0952 => 
+"\xF3\xA0\xA5\x93" => "",                     # U+E0953 => 
+"\xF3\xA0\xA5\x94" => "",                     # U+E0954 => 
+"\xF3\xA0\xA5\x95" => "",                     # U+E0955 => 
+"\xF3\xA0\xA5\x96" => "",                     # U+E0956 => 
+"\xF3\xA0\xA5\x97" => "",                     # U+E0957 => 
+"\xF3\xA0\xA5\x98" => "",                     # U+E0958 => 
+"\xF3\xA0\xA5\x99" => "",                     # U+E0959 => 
+"\xF3\xA0\xA5\x9A" => "",                     # U+E095A => 
+"\xF3\xA0\xA5\x9B" => "",                     # U+E095B => 
+"\xF3\xA0\xA5\x9C" => "",                     # U+E095C => 
+"\xF3\xA0\xA5\x9D" => "",                     # U+E095D => 
+"\xF3\xA0\xA5\x9E" => "",                     # U+E095E => 
+"\xF3\xA0\xA5\x9F" => "",                     # U+E095F => 
+"\xF3\xA0\xA5\xA0" => "",                     # U+E0960 => 
+"\xF3\xA0\xA5\xA1" => "",                     # U+E0961 => 
+"\xF3\xA0\xA5\xA2" => "",                     # U+E0962 => 
+"\xF3\xA0\xA5\xA3" => "",                     # U+E0963 => 
+"\xF3\xA0\xA5\xA4" => "",                     # U+E0964 => 
+"\xF3\xA0\xA5\xA5" => "",                     # U+E0965 => 
+"\xF3\xA0\xA5\xA6" => "",                     # U+E0966 => 
+"\xF3\xA0\xA5\xA7" => "",                     # U+E0967 => 
+"\xF3\xA0\xA5\xA8" => "",                     # U+E0968 => 
+"\xF3\xA0\xA5\xA9" => "",                     # U+E0969 => 
+"\xF3\xA0\xA5\xAA" => "",                     # U+E096A => 
+"\xF3\xA0\xA5\xAB" => "",                     # U+E096B => 
+"\xF3\xA0\xA5\xAC" => "",                     # U+E096C => 
+"\xF3\xA0\xA5\xAD" => "",                     # U+E096D => 
+"\xF3\xA0\xA5\xAE" => "",                     # U+E096E => 
+"\xF3\xA0\xA5\xAF" => "",                     # U+E096F => 
+"\xF3\xA0\xA5\xB0" => "",                     # U+E0970 => 
+"\xF3\xA0\xA5\xB1" => "",                     # U+E0971 => 
+"\xF3\xA0\xA5\xB2" => "",                     # U+E0972 => 
+"\xF3\xA0\xA5\xB3" => "",                     # U+E0973 => 
+"\xF3\xA0\xA5\xB4" => "",                     # U+E0974 => 
+"\xF3\xA0\xA5\xB5" => "",                     # U+E0975 => 
+"\xF3\xA0\xA5\xB6" => "",                     # U+E0976 => 
+"\xF3\xA0\xA5\xB7" => "",                     # U+E0977 => 
+"\xF3\xA0\xA5\xB8" => "",                     # U+E0978 => 
+"\xF3\xA0\xA5\xB9" => "",                     # U+E0979 => 
+"\xF3\xA0\xA5\xBA" => "",                     # U+E097A => 
+"\xF3\xA0\xA5\xBB" => "",                     # U+E097B => 
+"\xF3\xA0\xA5\xBC" => "",                     # U+E097C => 
+"\xF3\xA0\xA5\xBD" => "",                     # U+E097D => 
+"\xF3\xA0\xA5\xBE" => "",                     # U+E097E => 
+"\xF3\xA0\xA5\xBF" => "",                     # U+E097F => 
+"\xF3\xA0\xA6\x80" => "",                     # U+E0980 => 
+"\xF3\xA0\xA6\x81" => "",                     # U+E0981 => 
+"\xF3\xA0\xA6\x82" => "",                     # U+E0982 => 
+"\xF3\xA0\xA6\x83" => "",                     # U+E0983 => 
+"\xF3\xA0\xA6\x84" => "",                     # U+E0984 => 
+"\xF3\xA0\xA6\x85" => "",                     # U+E0985 => 
+"\xF3\xA0\xA6\x86" => "",                     # U+E0986 => 
+"\xF3\xA0\xA6\x87" => "",                     # U+E0987 => 
+"\xF3\xA0\xA6\x88" => "",                     # U+E0988 => 
+"\xF3\xA0\xA6\x89" => "",                     # U+E0989 => 
+"\xF3\xA0\xA6\x8A" => "",                     # U+E098A => 
+"\xF3\xA0\xA6\x8B" => "",                     # U+E098B => 
+"\xF3\xA0\xA6\x8C" => "",                     # U+E098C => 
+"\xF3\xA0\xA6\x8D" => "",                     # U+E098D => 
+"\xF3\xA0\xA6\x8E" => "",                     # U+E098E => 
+"\xF3\xA0\xA6\x8F" => "",                     # U+E098F => 
+"\xF3\xA0\xA6\x90" => "",                     # U+E0990 => 
+"\xF3\xA0\xA6\x91" => "",                     # U+E0991 => 
+"\xF3\xA0\xA6\x92" => "",                     # U+E0992 => 
+"\xF3\xA0\xA6\x93" => "",                     # U+E0993 => 
+"\xF3\xA0\xA6\x94" => "",                     # U+E0994 => 
+"\xF3\xA0\xA6\x95" => "",                     # U+E0995 => 
+"\xF3\xA0\xA6\x96" => "",                     # U+E0996 => 
+"\xF3\xA0\xA6\x97" => "",                     # U+E0997 => 
+"\xF3\xA0\xA6\x98" => "",                     # U+E0998 => 
+"\xF3\xA0\xA6\x99" => "",                     # U+E0999 => 
+"\xF3\xA0\xA6\x9A" => "",                     # U+E099A => 
+"\xF3\xA0\xA6\x9B" => "",                     # U+E099B => 
+"\xF3\xA0\xA6\x9C" => "",                     # U+E099C => 
+"\xF3\xA0\xA6\x9D" => "",                     # U+E099D => 
+"\xF3\xA0\xA6\x9E" => "",                     # U+E099E => 
+"\xF3\xA0\xA6\x9F" => "",                     # U+E099F => 
+"\xF3\xA0\xA6\xA0" => "",                     # U+E09A0 => 
+"\xF3\xA0\xA6\xA1" => "",                     # U+E09A1 => 
+"\xF3\xA0\xA6\xA2" => "",                     # U+E09A2 => 
+"\xF3\xA0\xA6\xA3" => "",                     # U+E09A3 => 
+"\xF3\xA0\xA6\xA4" => "",                     # U+E09A4 => 
+"\xF3\xA0\xA6\xA5" => "",                     # U+E09A5 => 
+"\xF3\xA0\xA6\xA6" => "",                     # U+E09A6 => 
+"\xF3\xA0\xA6\xA7" => "",                     # U+E09A7 => 
+"\xF3\xA0\xA6\xA8" => "",                     # U+E09A8 => 
+"\xF3\xA0\xA6\xA9" => "",                     # U+E09A9 => 
+"\xF3\xA0\xA6\xAA" => "",                     # U+E09AA => 
+"\xF3\xA0\xA6\xAB" => "",                     # U+E09AB => 
+"\xF3\xA0\xA6\xAC" => "",                     # U+E09AC => 
+"\xF3\xA0\xA6\xAD" => "",                     # U+E09AD => 
+"\xF3\xA0\xA6\xAE" => "",                     # U+E09AE => 
+"\xF3\xA0\xA6\xAF" => "",                     # U+E09AF => 
+"\xF3\xA0\xA6\xB0" => "",                     # U+E09B0 => 
+"\xF3\xA0\xA6\xB1" => "",                     # U+E09B1 => 
+"\xF3\xA0\xA6\xB2" => "",                     # U+E09B2 => 
+"\xF3\xA0\xA6\xB3" => "",                     # U+E09B3 => 
+"\xF3\xA0\xA6\xB4" => "",                     # U+E09B4 => 
+"\xF3\xA0\xA6\xB5" => "",                     # U+E09B5 => 
+"\xF3\xA0\xA6\xB6" => "",                     # U+E09B6 => 
+"\xF3\xA0\xA6\xB7" => "",                     # U+E09B7 => 
+"\xF3\xA0\xA6\xB8" => "",                     # U+E09B8 => 
+"\xF3\xA0\xA6\xB9" => "",                     # U+E09B9 => 
+"\xF3\xA0\xA6\xBA" => "",                     # U+E09BA => 
+"\xF3\xA0\xA6\xBB" => "",                     # U+E09BB => 
+"\xF3\xA0\xA6\xBC" => "",                     # U+E09BC => 
+"\xF3\xA0\xA6\xBD" => "",                     # U+E09BD => 
+"\xF3\xA0\xA6\xBE" => "",                     # U+E09BE => 
+"\xF3\xA0\xA6\xBF" => "",                     # U+E09BF => 
+"\xF3\xA0\xA7\x80" => "",                     # U+E09C0 => 
+"\xF3\xA0\xA7\x81" => "",                     # U+E09C1 => 
+"\xF3\xA0\xA7\x82" => "",                     # U+E09C2 => 
+"\xF3\xA0\xA7\x83" => "",                     # U+E09C3 => 
+"\xF3\xA0\xA7\x84" => "",                     # U+E09C4 => 
+"\xF3\xA0\xA7\x85" => "",                     # U+E09C5 => 
+"\xF3\xA0\xA7\x86" => "",                     # U+E09C6 => 
+"\xF3\xA0\xA7\x87" => "",                     # U+E09C7 => 
+"\xF3\xA0\xA7\x88" => "",                     # U+E09C8 => 
+"\xF3\xA0\xA7\x89" => "",                     # U+E09C9 => 
+"\xF3\xA0\xA7\x8A" => "",                     # U+E09CA => 
+"\xF3\xA0\xA7\x8B" => "",                     # U+E09CB => 
+"\xF3\xA0\xA7\x8C" => "",                     # U+E09CC => 
+"\xF3\xA0\xA7\x8D" => "",                     # U+E09CD => 
+"\xF3\xA0\xA7\x8E" => "",                     # U+E09CE => 
+"\xF3\xA0\xA7\x8F" => "",                     # U+E09CF => 
+"\xF3\xA0\xA7\x90" => "",                     # U+E09D0 => 
+"\xF3\xA0\xA7\x91" => "",                     # U+E09D1 => 
+"\xF3\xA0\xA7\x92" => "",                     # U+E09D2 => 
+"\xF3\xA0\xA7\x93" => "",                     # U+E09D3 => 
+"\xF3\xA0\xA7\x94" => "",                     # U+E09D4 => 
+"\xF3\xA0\xA7\x95" => "",                     # U+E09D5 => 
+"\xF3\xA0\xA7\x96" => "",                     # U+E09D6 => 
+"\xF3\xA0\xA7\x97" => "",                     # U+E09D7 => 
+"\xF3\xA0\xA7\x98" => "",                     # U+E09D8 => 
+"\xF3\xA0\xA7\x99" => "",                     # U+E09D9 => 
+"\xF3\xA0\xA7\x9A" => "",                     # U+E09DA => 
+"\xF3\xA0\xA7\x9B" => "",                     # U+E09DB => 
+"\xF3\xA0\xA7\x9C" => "",                     # U+E09DC => 
+"\xF3\xA0\xA7\x9D" => "",                     # U+E09DD => 
+"\xF3\xA0\xA7\x9E" => "",                     # U+E09DE => 
+"\xF3\xA0\xA7\x9F" => "",                     # U+E09DF => 
+"\xF3\xA0\xA7\xA0" => "",                     # U+E09E0 => 
+"\xF3\xA0\xA7\xA1" => "",                     # U+E09E1 => 
+"\xF3\xA0\xA7\xA2" => "",                     # U+E09E2 => 
+"\xF3\xA0\xA7\xA3" => "",                     # U+E09E3 => 
+"\xF3\xA0\xA7\xA4" => "",                     # U+E09E4 => 
+"\xF3\xA0\xA7\xA5" => "",                     # U+E09E5 => 
+"\xF3\xA0\xA7\xA6" => "",                     # U+E09E6 => 
+"\xF3\xA0\xA7\xA7" => "",                     # U+E09E7 => 
+"\xF3\xA0\xA7\xA8" => "",                     # U+E09E8 => 
+"\xF3\xA0\xA7\xA9" => "",                     # U+E09E9 => 
+"\xF3\xA0\xA7\xAA" => "",                     # U+E09EA => 
+"\xF3\xA0\xA7\xAB" => "",                     # U+E09EB => 
+"\xF3\xA0\xA7\xAC" => "",                     # U+E09EC => 
+"\xF3\xA0\xA7\xAD" => "",                     # U+E09ED => 
+"\xF3\xA0\xA7\xAE" => "",                     # U+E09EE => 
+"\xF3\xA0\xA7\xAF" => "",                     # U+E09EF => 
+"\xF3\xA0\xA7\xB0" => "",                     # U+E09F0 => 
+"\xF3\xA0\xA7\xB1" => "",                     # U+E09F1 => 
+"\xF3\xA0\xA7\xB2" => "",                     # U+E09F2 => 
+"\xF3\xA0\xA7\xB3" => "",                     # U+E09F3 => 
+"\xF3\xA0\xA7\xB4" => "",                     # U+E09F4 => 
+"\xF3\xA0\xA7\xB5" => "",                     # U+E09F5 => 
+"\xF3\xA0\xA7\xB6" => "",                     # U+E09F6 => 
+"\xF3\xA0\xA7\xB7" => "",                     # U+E09F7 => 
+"\xF3\xA0\xA7\xB8" => "",                     # U+E09F8 => 
+"\xF3\xA0\xA7\xB9" => "",                     # U+E09F9 => 
+"\xF3\xA0\xA7\xBA" => "",                     # U+E09FA => 
+"\xF3\xA0\xA7\xBB" => "",                     # U+E09FB => 
+"\xF3\xA0\xA7\xBC" => "",                     # U+E09FC => 
+"\xF3\xA0\xA7\xBD" => "",                     # U+E09FD => 
+"\xF3\xA0\xA7\xBE" => "",                     # U+E09FE => 
+"\xF3\xA0\xA7\xBF" => "",                     # U+E09FF => 
+"\xF3\xA0\xA8\x80" => "",                     # U+E0A00 => 
+"\xF3\xA0\xA8\x81" => "",                     # U+E0A01 => 
+"\xF3\xA0\xA8\x82" => "",                     # U+E0A02 => 
+"\xF3\xA0\xA8\x83" => "",                     # U+E0A03 => 
+"\xF3\xA0\xA8\x84" => "",                     # U+E0A04 => 
+"\xF3\xA0\xA8\x85" => "",                     # U+E0A05 => 
+"\xF3\xA0\xA8\x86" => "",                     # U+E0A06 => 
+"\xF3\xA0\xA8\x87" => "",                     # U+E0A07 => 
+"\xF3\xA0\xA8\x88" => "",                     # U+E0A08 => 
+"\xF3\xA0\xA8\x89" => "",                     # U+E0A09 => 
+"\xF3\xA0\xA8\x8A" => "",                     # U+E0A0A => 
+"\xF3\xA0\xA8\x8B" => "",                     # U+E0A0B => 
+"\xF3\xA0\xA8\x8C" => "",                     # U+E0A0C => 
+"\xF3\xA0\xA8\x8D" => "",                     # U+E0A0D => 
+"\xF3\xA0\xA8\x8E" => "",                     # U+E0A0E => 
+"\xF3\xA0\xA8\x8F" => "",                     # U+E0A0F => 
+"\xF3\xA0\xA8\x90" => "",                     # U+E0A10 => 
+"\xF3\xA0\xA8\x91" => "",                     # U+E0A11 => 
+"\xF3\xA0\xA8\x92" => "",                     # U+E0A12 => 
+"\xF3\xA0\xA8\x93" => "",                     # U+E0A13 => 
+"\xF3\xA0\xA8\x94" => "",                     # U+E0A14 => 
+"\xF3\xA0\xA8\x95" => "",                     # U+E0A15 => 
+"\xF3\xA0\xA8\x96" => "",                     # U+E0A16 => 
+"\xF3\xA0\xA8\x97" => "",                     # U+E0A17 => 
+"\xF3\xA0\xA8\x98" => "",                     # U+E0A18 => 
+"\xF3\xA0\xA8\x99" => "",                     # U+E0A19 => 
+"\xF3\xA0\xA8\x9A" => "",                     # U+E0A1A => 
+"\xF3\xA0\xA8\x9B" => "",                     # U+E0A1B => 
+"\xF3\xA0\xA8\x9C" => "",                     # U+E0A1C => 
+"\xF3\xA0\xA8\x9D" => "",                     # U+E0A1D => 
+"\xF3\xA0\xA8\x9E" => "",                     # U+E0A1E => 
+"\xF3\xA0\xA8\x9F" => "",                     # U+E0A1F => 
+"\xF3\xA0\xA8\xA0" => "",                     # U+E0A20 => 
+"\xF3\xA0\xA8\xA1" => "",                     # U+E0A21 => 
+"\xF3\xA0\xA8\xA2" => "",                     # U+E0A22 => 
+"\xF3\xA0\xA8\xA3" => "",                     # U+E0A23 => 
+"\xF3\xA0\xA8\xA4" => "",                     # U+E0A24 => 
+"\xF3\xA0\xA8\xA5" => "",                     # U+E0A25 => 
+"\xF3\xA0\xA8\xA6" => "",                     # U+E0A26 => 
+"\xF3\xA0\xA8\xA7" => "",                     # U+E0A27 => 
+"\xF3\xA0\xA8\xA8" => "",                     # U+E0A28 => 
+"\xF3\xA0\xA8\xA9" => "",                     # U+E0A29 => 
+"\xF3\xA0\xA8\xAA" => "",                     # U+E0A2A => 
+"\xF3\xA0\xA8\xAB" => "",                     # U+E0A2B => 
+"\xF3\xA0\xA8\xAC" => "",                     # U+E0A2C => 
+"\xF3\xA0\xA8\xAD" => "",                     # U+E0A2D => 
+"\xF3\xA0\xA8\xAE" => "",                     # U+E0A2E => 
+"\xF3\xA0\xA8\xAF" => "",                     # U+E0A2F => 
+"\xF3\xA0\xA8\xB0" => "",                     # U+E0A30 => 
+"\xF3\xA0\xA8\xB1" => "",                     # U+E0A31 => 
+"\xF3\xA0\xA8\xB2" => "",                     # U+E0A32 => 
+"\xF3\xA0\xA8\xB3" => "",                     # U+E0A33 => 
+"\xF3\xA0\xA8\xB4" => "",                     # U+E0A34 => 
+"\xF3\xA0\xA8\xB5" => "",                     # U+E0A35 => 
+"\xF3\xA0\xA8\xB6" => "",                     # U+E0A36 => 
+"\xF3\xA0\xA8\xB7" => "",                     # U+E0A37 => 
+"\xF3\xA0\xA8\xB8" => "",                     # U+E0A38 => 
+"\xF3\xA0\xA8\xB9" => "",                     # U+E0A39 => 
+"\xF3\xA0\xA8\xBA" => "",                     # U+E0A3A => 
+"\xF3\xA0\xA8\xBB" => "",                     # U+E0A3B => 
+"\xF3\xA0\xA8\xBC" => "",                     # U+E0A3C => 
+"\xF3\xA0\xA8\xBD" => "",                     # U+E0A3D => 
+"\xF3\xA0\xA8\xBE" => "",                     # U+E0A3E => 
+"\xF3\xA0\xA8\xBF" => "",                     # U+E0A3F => 
+"\xF3\xA0\xA9\x80" => "",                     # U+E0A40 => 
+"\xF3\xA0\xA9\x81" => "",                     # U+E0A41 => 
+"\xF3\xA0\xA9\x82" => "",                     # U+E0A42 => 
+"\xF3\xA0\xA9\x83" => "",                     # U+E0A43 => 
+"\xF3\xA0\xA9\x84" => "",                     # U+E0A44 => 
+"\xF3\xA0\xA9\x85" => "",                     # U+E0A45 => 
+"\xF3\xA0\xA9\x86" => "",                     # U+E0A46 => 
+"\xF3\xA0\xA9\x87" => "",                     # U+E0A47 => 
+"\xF3\xA0\xA9\x88" => "",                     # U+E0A48 => 
+"\xF3\xA0\xA9\x89" => "",                     # U+E0A49 => 
+"\xF3\xA0\xA9\x8A" => "",                     # U+E0A4A => 
+"\xF3\xA0\xA9\x8B" => "",                     # U+E0A4B => 
+"\xF3\xA0\xA9\x8C" => "",                     # U+E0A4C => 
+"\xF3\xA0\xA9\x8D" => "",                     # U+E0A4D => 
+"\xF3\xA0\xA9\x8E" => "",                     # U+E0A4E => 
+"\xF3\xA0\xA9\x8F" => "",                     # U+E0A4F => 
+"\xF3\xA0\xA9\x90" => "",                     # U+E0A50 => 
+"\xF3\xA0\xA9\x91" => "",                     # U+E0A51 => 
+"\xF3\xA0\xA9\x92" => "",                     # U+E0A52 => 
+"\xF3\xA0\xA9\x93" => "",                     # U+E0A53 => 
+"\xF3\xA0\xA9\x94" => "",                     # U+E0A54 => 
+"\xF3\xA0\xA9\x95" => "",                     # U+E0A55 => 
+"\xF3\xA0\xA9\x96" => "",                     # U+E0A56 => 
+"\xF3\xA0\xA9\x97" => "",                     # U+E0A57 => 
+"\xF3\xA0\xA9\x98" => "",                     # U+E0A58 => 
+"\xF3\xA0\xA9\x99" => "",                     # U+E0A59 => 
+"\xF3\xA0\xA9\x9A" => "",                     # U+E0A5A => 
+"\xF3\xA0\xA9\x9B" => "",                     # U+E0A5B => 
+"\xF3\xA0\xA9\x9C" => "",                     # U+E0A5C => 
+"\xF3\xA0\xA9\x9D" => "",                     # U+E0A5D => 
+"\xF3\xA0\xA9\x9E" => "",                     # U+E0A5E => 
+"\xF3\xA0\xA9\x9F" => "",                     # U+E0A5F => 
+"\xF3\xA0\xA9\xA0" => "",                     # U+E0A60 => 
+"\xF3\xA0\xA9\xA1" => "",                     # U+E0A61 => 
+"\xF3\xA0\xA9\xA2" => "",                     # U+E0A62 => 
+"\xF3\xA0\xA9\xA3" => "",                     # U+E0A63 => 
+"\xF3\xA0\xA9\xA4" => "",                     # U+E0A64 => 
+"\xF3\xA0\xA9\xA5" => "",                     # U+E0A65 => 
+"\xF3\xA0\xA9\xA6" => "",                     # U+E0A66 => 
+"\xF3\xA0\xA9\xA7" => "",                     # U+E0A67 => 
+"\xF3\xA0\xA9\xA8" => "",                     # U+E0A68 => 
+"\xF3\xA0\xA9\xA9" => "",                     # U+E0A69 => 
+"\xF3\xA0\xA9\xAA" => "",                     # U+E0A6A => 
+"\xF3\xA0\xA9\xAB" => "",                     # U+E0A6B => 
+"\xF3\xA0\xA9\xAC" => "",                     # U+E0A6C => 
+"\xF3\xA0\xA9\xAD" => "",                     # U+E0A6D => 
+"\xF3\xA0\xA9\xAE" => "",                     # U+E0A6E => 
+"\xF3\xA0\xA9\xAF" => "",                     # U+E0A6F => 
+"\xF3\xA0\xA9\xB0" => "",                     # U+E0A70 => 
+"\xF3\xA0\xA9\xB1" => "",                     # U+E0A71 => 
+"\xF3\xA0\xA9\xB2" => "",                     # U+E0A72 => 
+"\xF3\xA0\xA9\xB3" => "",                     # U+E0A73 => 
+"\xF3\xA0\xA9\xB4" => "",                     # U+E0A74 => 
+"\xF3\xA0\xA9\xB5" => "",                     # U+E0A75 => 
+"\xF3\xA0\xA9\xB6" => "",                     # U+E0A76 => 
+"\xF3\xA0\xA9\xB7" => "",                     # U+E0A77 => 
+"\xF3\xA0\xA9\xB8" => "",                     # U+E0A78 => 
+"\xF3\xA0\xA9\xB9" => "",                     # U+E0A79 => 
+"\xF3\xA0\xA9\xBA" => "",                     # U+E0A7A => 
+"\xF3\xA0\xA9\xBB" => "",                     # U+E0A7B => 
+"\xF3\xA0\xA9\xBC" => "",                     # U+E0A7C => 
+"\xF3\xA0\xA9\xBD" => "",                     # U+E0A7D => 
+"\xF3\xA0\xA9\xBE" => "",                     # U+E0A7E => 
+"\xF3\xA0\xA9\xBF" => "",                     # U+E0A7F => 
+"\xF3\xA0\xAA\x80" => "",                     # U+E0A80 => 
+"\xF3\xA0\xAA\x81" => "",                     # U+E0A81 => 
+"\xF3\xA0\xAA\x82" => "",                     # U+E0A82 => 
+"\xF3\xA0\xAA\x83" => "",                     # U+E0A83 => 
+"\xF3\xA0\xAA\x84" => "",                     # U+E0A84 => 
+"\xF3\xA0\xAA\x85" => "",                     # U+E0A85 => 
+"\xF3\xA0\xAA\x86" => "",                     # U+E0A86 => 
+"\xF3\xA0\xAA\x87" => "",                     # U+E0A87 => 
+"\xF3\xA0\xAA\x88" => "",                     # U+E0A88 => 
+"\xF3\xA0\xAA\x89" => "",                     # U+E0A89 => 
+"\xF3\xA0\xAA\x8A" => "",                     # U+E0A8A => 
+"\xF3\xA0\xAA\x8B" => "",                     # U+E0A8B => 
+"\xF3\xA0\xAA\x8C" => "",                     # U+E0A8C => 
+"\xF3\xA0\xAA\x8D" => "",                     # U+E0A8D => 
+"\xF3\xA0\xAA\x8E" => "",                     # U+E0A8E => 
+"\xF3\xA0\xAA\x8F" => "",                     # U+E0A8F => 
+"\xF3\xA0\xAA\x90" => "",                     # U+E0A90 => 
+"\xF3\xA0\xAA\x91" => "",                     # U+E0A91 => 
+"\xF3\xA0\xAA\x92" => "",                     # U+E0A92 => 
+"\xF3\xA0\xAA\x93" => "",                     # U+E0A93 => 
+"\xF3\xA0\xAA\x94" => "",                     # U+E0A94 => 
+"\xF3\xA0\xAA\x95" => "",                     # U+E0A95 => 
+"\xF3\xA0\xAA\x96" => "",                     # U+E0A96 => 
+"\xF3\xA0\xAA\x97" => "",                     # U+E0A97 => 
+"\xF3\xA0\xAA\x98" => "",                     # U+E0A98 => 
+"\xF3\xA0\xAA\x99" => "",                     # U+E0A99 => 
+"\xF3\xA0\xAA\x9A" => "",                     # U+E0A9A => 
+"\xF3\xA0\xAA\x9B" => "",                     # U+E0A9B => 
+"\xF3\xA0\xAA\x9C" => "",                     # U+E0A9C => 
+"\xF3\xA0\xAA\x9D" => "",                     # U+E0A9D => 
+"\xF3\xA0\xAA\x9E" => "",                     # U+E0A9E => 
+"\xF3\xA0\xAA\x9F" => "",                     # U+E0A9F => 
+"\xF3\xA0\xAA\xA0" => "",                     # U+E0AA0 => 
+"\xF3\xA0\xAA\xA1" => "",                     # U+E0AA1 => 
+"\xF3\xA0\xAA\xA2" => "",                     # U+E0AA2 => 
+"\xF3\xA0\xAA\xA3" => "",                     # U+E0AA3 => 
+"\xF3\xA0\xAA\xA4" => "",                     # U+E0AA4 => 
+"\xF3\xA0\xAA\xA5" => "",                     # U+E0AA5 => 
+"\xF3\xA0\xAA\xA6" => "",                     # U+E0AA6 => 
+"\xF3\xA0\xAA\xA7" => "",                     # U+E0AA7 => 
+"\xF3\xA0\xAA\xA8" => "",                     # U+E0AA8 => 
+"\xF3\xA0\xAA\xA9" => "",                     # U+E0AA9 => 
+"\xF3\xA0\xAA\xAA" => "",                     # U+E0AAA => 
+"\xF3\xA0\xAA\xAB" => "",                     # U+E0AAB => 
+"\xF3\xA0\xAA\xAC" => "",                     # U+E0AAC => 
+"\xF3\xA0\xAA\xAD" => "",                     # U+E0AAD => 
+"\xF3\xA0\xAA\xAE" => "",                     # U+E0AAE => 
+"\xF3\xA0\xAA\xAF" => "",                     # U+E0AAF => 
+"\xF3\xA0\xAA\xB0" => "",                     # U+E0AB0 => 
+"\xF3\xA0\xAA\xB1" => "",                     # U+E0AB1 => 
+"\xF3\xA0\xAA\xB2" => "",                     # U+E0AB2 => 
+"\xF3\xA0\xAA\xB3" => "",                     # U+E0AB3 => 
+"\xF3\xA0\xAA\xB4" => "",                     # U+E0AB4 => 
+"\xF3\xA0\xAA\xB5" => "",                     # U+E0AB5 => 
+"\xF3\xA0\xAA\xB6" => "",                     # U+E0AB6 => 
+"\xF3\xA0\xAA\xB7" => "",                     # U+E0AB7 => 
+"\xF3\xA0\xAA\xB8" => "",                     # U+E0AB8 => 
+"\xF3\xA0\xAA\xB9" => "",                     # U+E0AB9 => 
+"\xF3\xA0\xAA\xBA" => "",                     # U+E0ABA => 
+"\xF3\xA0\xAA\xBB" => "",                     # U+E0ABB => 
+"\xF3\xA0\xAA\xBC" => "",                     # U+E0ABC => 
+"\xF3\xA0\xAA\xBD" => "",                     # U+E0ABD => 
+"\xF3\xA0\xAA\xBE" => "",                     # U+E0ABE => 
+"\xF3\xA0\xAA\xBF" => "",                     # U+E0ABF => 
+"\xF3\xA0\xAB\x80" => "",                     # U+E0AC0 => 
+"\xF3\xA0\xAB\x81" => "",                     # U+E0AC1 => 
+"\xF3\xA0\xAB\x82" => "",                     # U+E0AC2 => 
+"\xF3\xA0\xAB\x83" => "",                     # U+E0AC3 => 
+"\xF3\xA0\xAB\x84" => "",                     # U+E0AC4 => 
+"\xF3\xA0\xAB\x85" => "",                     # U+E0AC5 => 
+"\xF3\xA0\xAB\x86" => "",                     # U+E0AC6 => 
+"\xF3\xA0\xAB\x87" => "",                     # U+E0AC7 => 
+"\xF3\xA0\xAB\x88" => "",                     # U+E0AC8 => 
+"\xF3\xA0\xAB\x89" => "",                     # U+E0AC9 => 
+"\xF3\xA0\xAB\x8A" => "",                     # U+E0ACA => 
+"\xF3\xA0\xAB\x8B" => "",                     # U+E0ACB => 
+"\xF3\xA0\xAB\x8C" => "",                     # U+E0ACC => 
+"\xF3\xA0\xAB\x8D" => "",                     # U+E0ACD => 
+"\xF3\xA0\xAB\x8E" => "",                     # U+E0ACE => 
+"\xF3\xA0\xAB\x8F" => "",                     # U+E0ACF => 
+"\xF3\xA0\xAB\x90" => "",                     # U+E0AD0 => 
+"\xF3\xA0\xAB\x91" => "",                     # U+E0AD1 => 
+"\xF3\xA0\xAB\x92" => "",                     # U+E0AD2 => 
+"\xF3\xA0\xAB\x93" => "",                     # U+E0AD3 => 
+"\xF3\xA0\xAB\x94" => "",                     # U+E0AD4 => 
+"\xF3\xA0\xAB\x95" => "",                     # U+E0AD5 => 
+"\xF3\xA0\xAB\x96" => "",                     # U+E0AD6 => 
+"\xF3\xA0\xAB\x97" => "",                     # U+E0AD7 => 
+"\xF3\xA0\xAB\x98" => "",                     # U+E0AD8 => 
+"\xF3\xA0\xAB\x99" => "",                     # U+E0AD9 => 
+"\xF3\xA0\xAB\x9A" => "",                     # U+E0ADA => 
+"\xF3\xA0\xAB\x9B" => "",                     # U+E0ADB => 
+"\xF3\xA0\xAB\x9C" => "",                     # U+E0ADC => 
+"\xF3\xA0\xAB\x9D" => "",                     # U+E0ADD => 
+"\xF3\xA0\xAB\x9E" => "",                     # U+E0ADE => 
+"\xF3\xA0\xAB\x9F" => "",                     # U+E0ADF => 
+"\xF3\xA0\xAB\xA0" => "",                     # U+E0AE0 => 
+"\xF3\xA0\xAB\xA1" => "",                     # U+E0AE1 => 
+"\xF3\xA0\xAB\xA2" => "",                     # U+E0AE2 => 
+"\xF3\xA0\xAB\xA3" => "",                     # U+E0AE3 => 
+"\xF3\xA0\xAB\xA4" => "",                     # U+E0AE4 => 
+"\xF3\xA0\xAB\xA5" => "",                     # U+E0AE5 => 
+"\xF3\xA0\xAB\xA6" => "",                     # U+E0AE6 => 
+"\xF3\xA0\xAB\xA7" => "",                     # U+E0AE7 => 
+"\xF3\xA0\xAB\xA8" => "",                     # U+E0AE8 => 
+"\xF3\xA0\xAB\xA9" => "",                     # U+E0AE9 => 
+"\xF3\xA0\xAB\xAA" => "",                     # U+E0AEA => 
+"\xF3\xA0\xAB\xAB" => "",                     # U+E0AEB => 
+"\xF3\xA0\xAB\xAC" => "",                     # U+E0AEC => 
+"\xF3\xA0\xAB\xAD" => "",                     # U+E0AED => 
+"\xF3\xA0\xAB\xAE" => "",                     # U+E0AEE => 
+"\xF3\xA0\xAB\xAF" => "",                     # U+E0AEF => 
+"\xF3\xA0\xAB\xB0" => "",                     # U+E0AF0 => 
+"\xF3\xA0\xAB\xB1" => "",                     # U+E0AF1 => 
+"\xF3\xA0\xAB\xB2" => "",                     # U+E0AF2 => 
+"\xF3\xA0\xAB\xB3" => "",                     # U+E0AF3 => 
+"\xF3\xA0\xAB\xB4" => "",                     # U+E0AF4 => 
+"\xF3\xA0\xAB\xB5" => "",                     # U+E0AF5 => 
+"\xF3\xA0\xAB\xB6" => "",                     # U+E0AF6 => 
+"\xF3\xA0\xAB\xB7" => "",                     # U+E0AF7 => 
+"\xF3\xA0\xAB\xB8" => "",                     # U+E0AF8 => 
+"\xF3\xA0\xAB\xB9" => "",                     # U+E0AF9 => 
+"\xF3\xA0\xAB\xBA" => "",                     # U+E0AFA => 
+"\xF3\xA0\xAB\xBB" => "",                     # U+E0AFB => 
+"\xF3\xA0\xAB\xBC" => "",                     # U+E0AFC => 
+"\xF3\xA0\xAB\xBD" => "",                     # U+E0AFD => 
+"\xF3\xA0\xAB\xBE" => "",                     # U+E0AFE => 
+"\xF3\xA0\xAB\xBF" => "",                     # U+E0AFF => 
+"\xF3\xA0\xAC\x80" => "",                     # U+E0B00 => 
+"\xF3\xA0\xAC\x81" => "",                     # U+E0B01 => 
+"\xF3\xA0\xAC\x82" => "",                     # U+E0B02 => 
+"\xF3\xA0\xAC\x83" => "",                     # U+E0B03 => 
+"\xF3\xA0\xAC\x84" => "",                     # U+E0B04 => 
+"\xF3\xA0\xAC\x85" => "",                     # U+E0B05 => 
+"\xF3\xA0\xAC\x86" => "",                     # U+E0B06 => 
+"\xF3\xA0\xAC\x87" => "",                     # U+E0B07 => 
+"\xF3\xA0\xAC\x88" => "",                     # U+E0B08 => 
+"\xF3\xA0\xAC\x89" => "",                     # U+E0B09 => 
+"\xF3\xA0\xAC\x8A" => "",                     # U+E0B0A => 
+"\xF3\xA0\xAC\x8B" => "",                     # U+E0B0B => 
+"\xF3\xA0\xAC\x8C" => "",                     # U+E0B0C => 
+"\xF3\xA0\xAC\x8D" => "",                     # U+E0B0D => 
+"\xF3\xA0\xAC\x8E" => "",                     # U+E0B0E => 
+"\xF3\xA0\xAC\x8F" => "",                     # U+E0B0F => 
+"\xF3\xA0\xAC\x90" => "",                     # U+E0B10 => 
+"\xF3\xA0\xAC\x91" => "",                     # U+E0B11 => 
+"\xF3\xA0\xAC\x92" => "",                     # U+E0B12 => 
+"\xF3\xA0\xAC\x93" => "",                     # U+E0B13 => 
+"\xF3\xA0\xAC\x94" => "",                     # U+E0B14 => 
+"\xF3\xA0\xAC\x95" => "",                     # U+E0B15 => 
+"\xF3\xA0\xAC\x96" => "",                     # U+E0B16 => 
+"\xF3\xA0\xAC\x97" => "",                     # U+E0B17 => 
+"\xF3\xA0\xAC\x98" => "",                     # U+E0B18 => 
+"\xF3\xA0\xAC\x99" => "",                     # U+E0B19 => 
+"\xF3\xA0\xAC\x9A" => "",                     # U+E0B1A => 
+"\xF3\xA0\xAC\x9B" => "",                     # U+E0B1B => 
+"\xF3\xA0\xAC\x9C" => "",                     # U+E0B1C => 
+"\xF3\xA0\xAC\x9D" => "",                     # U+E0B1D => 
+"\xF3\xA0\xAC\x9E" => "",                     # U+E0B1E => 
+"\xF3\xA0\xAC\x9F" => "",                     # U+E0B1F => 
+"\xF3\xA0\xAC\xA0" => "",                     # U+E0B20 => 
+"\xF3\xA0\xAC\xA1" => "",                     # U+E0B21 => 
+"\xF3\xA0\xAC\xA2" => "",                     # U+E0B22 => 
+"\xF3\xA0\xAC\xA3" => "",                     # U+E0B23 => 
+"\xF3\xA0\xAC\xA4" => "",                     # U+E0B24 => 
+"\xF3\xA0\xAC\xA5" => "",                     # U+E0B25 => 
+"\xF3\xA0\xAC\xA6" => "",                     # U+E0B26 => 
+"\xF3\xA0\xAC\xA7" => "",                     # U+E0B27 => 
+"\xF3\xA0\xAC\xA8" => "",                     # U+E0B28 => 
+"\xF3\xA0\xAC\xA9" => "",                     # U+E0B29 => 
+"\xF3\xA0\xAC\xAA" => "",                     # U+E0B2A => 
+"\xF3\xA0\xAC\xAB" => "",                     # U+E0B2B => 
+"\xF3\xA0\xAC\xAC" => "",                     # U+E0B2C => 
+"\xF3\xA0\xAC\xAD" => "",                     # U+E0B2D => 
+"\xF3\xA0\xAC\xAE" => "",                     # U+E0B2E => 
+"\xF3\xA0\xAC\xAF" => "",                     # U+E0B2F => 
+"\xF3\xA0\xAC\xB0" => "",                     # U+E0B30 => 
+"\xF3\xA0\xAC\xB1" => "",                     # U+E0B31 => 
+"\xF3\xA0\xAC\xB2" => "",                     # U+E0B32 => 
+"\xF3\xA0\xAC\xB3" => "",                     # U+E0B33 => 
+"\xF3\xA0\xAC\xB4" => "",                     # U+E0B34 => 
+"\xF3\xA0\xAC\xB5" => "",                     # U+E0B35 => 
+"\xF3\xA0\xAC\xB6" => "",                     # U+E0B36 => 
+"\xF3\xA0\xAC\xB7" => "",                     # U+E0B37 => 
+"\xF3\xA0\xAC\xB8" => "",                     # U+E0B38 => 
+"\xF3\xA0\xAC\xB9" => "",                     # U+E0B39 => 
+"\xF3\xA0\xAC\xBA" => "",                     # U+E0B3A => 
+"\xF3\xA0\xAC\xBB" => "",                     # U+E0B3B => 
+"\xF3\xA0\xAC\xBC" => "",                     # U+E0B3C => 
+"\xF3\xA0\xAC\xBD" => "",                     # U+E0B3D => 
+"\xF3\xA0\xAC\xBE" => "",                     # U+E0B3E => 
+"\xF3\xA0\xAC\xBF" => "",                     # U+E0B3F => 
+"\xF3\xA0\xAD\x80" => "",                     # U+E0B40 => 
+"\xF3\xA0\xAD\x81" => "",                     # U+E0B41 => 
+"\xF3\xA0\xAD\x82" => "",                     # U+E0B42 => 
+"\xF3\xA0\xAD\x83" => "",                     # U+E0B43 => 
+"\xF3\xA0\xAD\x84" => "",                     # U+E0B44 => 
+"\xF3\xA0\xAD\x85" => "",                     # U+E0B45 => 
+"\xF3\xA0\xAD\x86" => "",                     # U+E0B46 => 
+"\xF3\xA0\xAD\x87" => "",                     # U+E0B47 => 
+"\xF3\xA0\xAD\x88" => "",                     # U+E0B48 => 
+"\xF3\xA0\xAD\x89" => "",                     # U+E0B49 => 
+"\xF3\xA0\xAD\x8A" => "",                     # U+E0B4A => 
+"\xF3\xA0\xAD\x8B" => "",                     # U+E0B4B => 
+"\xF3\xA0\xAD\x8C" => "",                     # U+E0B4C => 
+"\xF3\xA0\xAD\x8D" => "",                     # U+E0B4D => 
+"\xF3\xA0\xAD\x8E" => "",                     # U+E0B4E => 
+"\xF3\xA0\xAD\x8F" => "",                     # U+E0B4F => 
+"\xF3\xA0\xAD\x90" => "",                     # U+E0B50 => 
+"\xF3\xA0\xAD\x91" => "",                     # U+E0B51 => 
+"\xF3\xA0\xAD\x92" => "",                     # U+E0B52 => 
+"\xF3\xA0\xAD\x93" => "",                     # U+E0B53 => 
+"\xF3\xA0\xAD\x94" => "",                     # U+E0B54 => 
+"\xF3\xA0\xAD\x95" => "",                     # U+E0B55 => 
+"\xF3\xA0\xAD\x96" => "",                     # U+E0B56 => 
+"\xF3\xA0\xAD\x97" => "",                     # U+E0B57 => 
+"\xF3\xA0\xAD\x98" => "",                     # U+E0B58 => 
+"\xF3\xA0\xAD\x99" => "",                     # U+E0B59 => 
+"\xF3\xA0\xAD\x9A" => "",                     # U+E0B5A => 
+"\xF3\xA0\xAD\x9B" => "",                     # U+E0B5B => 
+"\xF3\xA0\xAD\x9C" => "",                     # U+E0B5C => 
+"\xF3\xA0\xAD\x9D" => "",                     # U+E0B5D => 
+"\xF3\xA0\xAD\x9E" => "",                     # U+E0B5E => 
+"\xF3\xA0\xAD\x9F" => "",                     # U+E0B5F => 
+"\xF3\xA0\xAD\xA0" => "",                     # U+E0B60 => 
+"\xF3\xA0\xAD\xA1" => "",                     # U+E0B61 => 
+"\xF3\xA0\xAD\xA2" => "",                     # U+E0B62 => 
+"\xF3\xA0\xAD\xA3" => "",                     # U+E0B63 => 
+"\xF3\xA0\xAD\xA4" => "",                     # U+E0B64 => 
+"\xF3\xA0\xAD\xA5" => "",                     # U+E0B65 => 
+"\xF3\xA0\xAD\xA6" => "",                     # U+E0B66 => 
+"\xF3\xA0\xAD\xA7" => "",                     # U+E0B67 => 
+"\xF3\xA0\xAD\xA8" => "",                     # U+E0B68 => 
+"\xF3\xA0\xAD\xA9" => "",                     # U+E0B69 => 
+"\xF3\xA0\xAD\xAA" => "",                     # U+E0B6A => 
+"\xF3\xA0\xAD\xAB" => "",                     # U+E0B6B => 
+"\xF3\xA0\xAD\xAC" => "",                     # U+E0B6C => 
+"\xF3\xA0\xAD\xAD" => "",                     # U+E0B6D => 
+"\xF3\xA0\xAD\xAE" => "",                     # U+E0B6E => 
+"\xF3\xA0\xAD\xAF" => "",                     # U+E0B6F => 
+"\xF3\xA0\xAD\xB0" => "",                     # U+E0B70 => 
+"\xF3\xA0\xAD\xB1" => "",                     # U+E0B71 => 
+"\xF3\xA0\xAD\xB2" => "",                     # U+E0B72 => 
+"\xF3\xA0\xAD\xB3" => "",                     # U+E0B73 => 
+"\xF3\xA0\xAD\xB4" => "",                     # U+E0B74 => 
+"\xF3\xA0\xAD\xB5" => "",                     # U+E0B75 => 
+"\xF3\xA0\xAD\xB6" => "",                     # U+E0B76 => 
+"\xF3\xA0\xAD\xB7" => "",                     # U+E0B77 => 
+"\xF3\xA0\xAD\xB8" => "",                     # U+E0B78 => 
+"\xF3\xA0\xAD\xB9" => "",                     # U+E0B79 => 
+"\xF3\xA0\xAD\xBA" => "",                     # U+E0B7A => 
+"\xF3\xA0\xAD\xBB" => "",                     # U+E0B7B => 
+"\xF3\xA0\xAD\xBC" => "",                     # U+E0B7C => 
+"\xF3\xA0\xAD\xBD" => "",                     # U+E0B7D => 
+"\xF3\xA0\xAD\xBE" => "",                     # U+E0B7E => 
+"\xF3\xA0\xAD\xBF" => "",                     # U+E0B7F => 
+"\xF3\xA0\xAE\x80" => "",                     # U+E0B80 => 
+"\xF3\xA0\xAE\x81" => "",                     # U+E0B81 => 
+"\xF3\xA0\xAE\x82" => "",                     # U+E0B82 => 
+"\xF3\xA0\xAE\x83" => "",                     # U+E0B83 => 
+"\xF3\xA0\xAE\x84" => "",                     # U+E0B84 => 
+"\xF3\xA0\xAE\x85" => "",                     # U+E0B85 => 
+"\xF3\xA0\xAE\x86" => "",                     # U+E0B86 => 
+"\xF3\xA0\xAE\x87" => "",                     # U+E0B87 => 
+"\xF3\xA0\xAE\x88" => "",                     # U+E0B88 => 
+"\xF3\xA0\xAE\x89" => "",                     # U+E0B89 => 
+"\xF3\xA0\xAE\x8A" => "",                     # U+E0B8A => 
+"\xF3\xA0\xAE\x8B" => "",                     # U+E0B8B => 
+"\xF3\xA0\xAE\x8C" => "",                     # U+E0B8C => 
+"\xF3\xA0\xAE\x8D" => "",                     # U+E0B8D => 
+"\xF3\xA0\xAE\x8E" => "",                     # U+E0B8E => 
+"\xF3\xA0\xAE\x8F" => "",                     # U+E0B8F => 
+"\xF3\xA0\xAE\x90" => "",                     # U+E0B90 => 
+"\xF3\xA0\xAE\x91" => "",                     # U+E0B91 => 
+"\xF3\xA0\xAE\x92" => "",                     # U+E0B92 => 
+"\xF3\xA0\xAE\x93" => "",                     # U+E0B93 => 
+"\xF3\xA0\xAE\x94" => "",                     # U+E0B94 => 
+"\xF3\xA0\xAE\x95" => "",                     # U+E0B95 => 
+"\xF3\xA0\xAE\x96" => "",                     # U+E0B96 => 
+"\xF3\xA0\xAE\x97" => "",                     # U+E0B97 => 
+"\xF3\xA0\xAE\x98" => "",                     # U+E0B98 => 
+"\xF3\xA0\xAE\x99" => "",                     # U+E0B99 => 
+"\xF3\xA0\xAE\x9A" => "",                     # U+E0B9A => 
+"\xF3\xA0\xAE\x9B" => "",                     # U+E0B9B => 
+"\xF3\xA0\xAE\x9C" => "",                     # U+E0B9C => 
+"\xF3\xA0\xAE\x9D" => "",                     # U+E0B9D => 
+"\xF3\xA0\xAE\x9E" => "",                     # U+E0B9E => 
+"\xF3\xA0\xAE\x9F" => "",                     # U+E0B9F => 
+"\xF3\xA0\xAE\xA0" => "",                     # U+E0BA0 => 
+"\xF3\xA0\xAE\xA1" => "",                     # U+E0BA1 => 
+"\xF3\xA0\xAE\xA2" => "",                     # U+E0BA2 => 
+"\xF3\xA0\xAE\xA3" => "",                     # U+E0BA3 => 
+"\xF3\xA0\xAE\xA4" => "",                     # U+E0BA4 => 
+"\xF3\xA0\xAE\xA5" => "",                     # U+E0BA5 => 
+"\xF3\xA0\xAE\xA6" => "",                     # U+E0BA6 => 
+"\xF3\xA0\xAE\xA7" => "",                     # U+E0BA7 => 
+"\xF3\xA0\xAE\xA8" => "",                     # U+E0BA8 => 
+"\xF3\xA0\xAE\xA9" => "",                     # U+E0BA9 => 
+"\xF3\xA0\xAE\xAA" => "",                     # U+E0BAA => 
+"\xF3\xA0\xAE\xAB" => "",                     # U+E0BAB => 
+"\xF3\xA0\xAE\xAC" => "",                     # U+E0BAC => 
+"\xF3\xA0\xAE\xAD" => "",                     # U+E0BAD => 
+"\xF3\xA0\xAE\xAE" => "",                     # U+E0BAE => 
+"\xF3\xA0\xAE\xAF" => "",                     # U+E0BAF => 
+"\xF3\xA0\xAE\xB0" => "",                     # U+E0BB0 => 
+"\xF3\xA0\xAE\xB1" => "",                     # U+E0BB1 => 
+"\xF3\xA0\xAE\xB2" => "",                     # U+E0BB2 => 
+"\xF3\xA0\xAE\xB3" => "",                     # U+E0BB3 => 
+"\xF3\xA0\xAE\xB4" => "",                     # U+E0BB4 => 
+"\xF3\xA0\xAE\xB5" => "",                     # U+E0BB5 => 
+"\xF3\xA0\xAE\xB6" => "",                     # U+E0BB6 => 
+"\xF3\xA0\xAE\xB7" => "",                     # U+E0BB7 => 
+"\xF3\xA0\xAE\xB8" => "",                     # U+E0BB8 => 
+"\xF3\xA0\xAE\xB9" => "",                     # U+E0BB9 => 
+"\xF3\xA0\xAE\xBA" => "",                     # U+E0BBA => 
+"\xF3\xA0\xAE\xBB" => "",                     # U+E0BBB => 
+"\xF3\xA0\xAE\xBC" => "",                     # U+E0BBC => 
+"\xF3\xA0\xAE\xBD" => "",                     # U+E0BBD => 
+"\xF3\xA0\xAE\xBE" => "",                     # U+E0BBE => 
+"\xF3\xA0\xAE\xBF" => "",                     # U+E0BBF => 
+"\xF3\xA0\xAF\x80" => "",                     # U+E0BC0 => 
+"\xF3\xA0\xAF\x81" => "",                     # U+E0BC1 => 
+"\xF3\xA0\xAF\x82" => "",                     # U+E0BC2 => 
+"\xF3\xA0\xAF\x83" => "",                     # U+E0BC3 => 
+"\xF3\xA0\xAF\x84" => "",                     # U+E0BC4 => 
+"\xF3\xA0\xAF\x85" => "",                     # U+E0BC5 => 
+"\xF3\xA0\xAF\x86" => "",                     # U+E0BC6 => 
+"\xF3\xA0\xAF\x87" => "",                     # U+E0BC7 => 
+"\xF3\xA0\xAF\x88" => "",                     # U+E0BC8 => 
+"\xF3\xA0\xAF\x89" => "",                     # U+E0BC9 => 
+"\xF3\xA0\xAF\x8A" => "",                     # U+E0BCA => 
+"\xF3\xA0\xAF\x8B" => "",                     # U+E0BCB => 
+"\xF3\xA0\xAF\x8C" => "",                     # U+E0BCC => 
+"\xF3\xA0\xAF\x8D" => "",                     # U+E0BCD => 
+"\xF3\xA0\xAF\x8E" => "",                     # U+E0BCE => 
+"\xF3\xA0\xAF\x8F" => "",                     # U+E0BCF => 
+"\xF3\xA0\xAF\x90" => "",                     # U+E0BD0 => 
+"\xF3\xA0\xAF\x91" => "",                     # U+E0BD1 => 
+"\xF3\xA0\xAF\x92" => "",                     # U+E0BD2 => 
+"\xF3\xA0\xAF\x93" => "",                     # U+E0BD3 => 
+"\xF3\xA0\xAF\x94" => "",                     # U+E0BD4 => 
+"\xF3\xA0\xAF\x95" => "",                     # U+E0BD5 => 
+"\xF3\xA0\xAF\x96" => "",                     # U+E0BD6 => 
+"\xF3\xA0\xAF\x97" => "",                     # U+E0BD7 => 
+"\xF3\xA0\xAF\x98" => "",                     # U+E0BD8 => 
+"\xF3\xA0\xAF\x99" => "",                     # U+E0BD9 => 
+"\xF3\xA0\xAF\x9A" => "",                     # U+E0BDA => 
+"\xF3\xA0\xAF\x9B" => "",                     # U+E0BDB => 
+"\xF3\xA0\xAF\x9C" => "",                     # U+E0BDC => 
+"\xF3\xA0\xAF\x9D" => "",                     # U+E0BDD => 
+"\xF3\xA0\xAF\x9E" => "",                     # U+E0BDE => 
+"\xF3\xA0\xAF\x9F" => "",                     # U+E0BDF => 
+"\xF3\xA0\xAF\xA0" => "",                     # U+E0BE0 => 
+"\xF3\xA0\xAF\xA1" => "",                     # U+E0BE1 => 
+"\xF3\xA0\xAF\xA2" => "",                     # U+E0BE2 => 
+"\xF3\xA0\xAF\xA3" => "",                     # U+E0BE3 => 
+"\xF3\xA0\xAF\xA4" => "",                     # U+E0BE4 => 
+"\xF3\xA0\xAF\xA5" => "",                     # U+E0BE5 => 
+"\xF3\xA0\xAF\xA6" => "",                     # U+E0BE6 => 
+"\xF3\xA0\xAF\xA7" => "",                     # U+E0BE7 => 
+"\xF3\xA0\xAF\xA8" => "",                     # U+E0BE8 => 
+"\xF3\xA0\xAF\xA9" => "",                     # U+E0BE9 => 
+"\xF3\xA0\xAF\xAA" => "",                     # U+E0BEA => 
+"\xF3\xA0\xAF\xAB" => "",                     # U+E0BEB => 
+"\xF3\xA0\xAF\xAC" => "",                     # U+E0BEC => 
+"\xF3\xA0\xAF\xAD" => "",                     # U+E0BED => 
+"\xF3\xA0\xAF\xAE" => "",                     # U+E0BEE => 
+"\xF3\xA0\xAF\xAF" => "",                     # U+E0BEF => 
+"\xF3\xA0\xAF\xB0" => "",                     # U+E0BF0 => 
+"\xF3\xA0\xAF\xB1" => "",                     # U+E0BF1 => 
+"\xF3\xA0\xAF\xB2" => "",                     # U+E0BF2 => 
+"\xF3\xA0\xAF\xB3" => "",                     # U+E0BF3 => 
+"\xF3\xA0\xAF\xB4" => "",                     # U+E0BF4 => 
+"\xF3\xA0\xAF\xB5" => "",                     # U+E0BF5 => 
+"\xF3\xA0\xAF\xB6" => "",                     # U+E0BF6 => 
+"\xF3\xA0\xAF\xB7" => "",                     # U+E0BF7 => 
+"\xF3\xA0\xAF\xB8" => "",                     # U+E0BF8 => 
+"\xF3\xA0\xAF\xB9" => "",                     # U+E0BF9 => 
+"\xF3\xA0\xAF\xBA" => "",                     # U+E0BFA => 
+"\xF3\xA0\xAF\xBB" => "",                     # U+E0BFB => 
+"\xF3\xA0\xAF\xBC" => "",                     # U+E0BFC => 
+"\xF3\xA0\xAF\xBD" => "",                     # U+E0BFD => 
+"\xF3\xA0\xAF\xBE" => "",                     # U+E0BFE => 
+"\xF3\xA0\xAF\xBF" => "",                     # U+E0BFF => 
+"\xF3\xA0\xB0\x80" => "",                     # U+E0C00 => 
+"\xF3\xA0\xB0\x81" => "",                     # U+E0C01 => 
+"\xF3\xA0\xB0\x82" => "",                     # U+E0C02 => 
+"\xF3\xA0\xB0\x83" => "",                     # U+E0C03 => 
+"\xF3\xA0\xB0\x84" => "",                     # U+E0C04 => 
+"\xF3\xA0\xB0\x85" => "",                     # U+E0C05 => 
+"\xF3\xA0\xB0\x86" => "",                     # U+E0C06 => 
+"\xF3\xA0\xB0\x87" => "",                     # U+E0C07 => 
+"\xF3\xA0\xB0\x88" => "",                     # U+E0C08 => 
+"\xF3\xA0\xB0\x89" => "",                     # U+E0C09 => 
+"\xF3\xA0\xB0\x8A" => "",                     # U+E0C0A => 
+"\xF3\xA0\xB0\x8B" => "",                     # U+E0C0B => 
+"\xF3\xA0\xB0\x8C" => "",                     # U+E0C0C => 
+"\xF3\xA0\xB0\x8D" => "",                     # U+E0C0D => 
+"\xF3\xA0\xB0\x8E" => "",                     # U+E0C0E => 
+"\xF3\xA0\xB0\x8F" => "",                     # U+E0C0F => 
+"\xF3\xA0\xB0\x90" => "",                     # U+E0C10 => 
+"\xF3\xA0\xB0\x91" => "",                     # U+E0C11 => 
+"\xF3\xA0\xB0\x92" => "",                     # U+E0C12 => 
+"\xF3\xA0\xB0\x93" => "",                     # U+E0C13 => 
+"\xF3\xA0\xB0\x94" => "",                     # U+E0C14 => 
+"\xF3\xA0\xB0\x95" => "",                     # U+E0C15 => 
+"\xF3\xA0\xB0\x96" => "",                     # U+E0C16 => 
+"\xF3\xA0\xB0\x97" => "",                     # U+E0C17 => 
+"\xF3\xA0\xB0\x98" => "",                     # U+E0C18 => 
+"\xF3\xA0\xB0\x99" => "",                     # U+E0C19 => 
+"\xF3\xA0\xB0\x9A" => "",                     # U+E0C1A => 
+"\xF3\xA0\xB0\x9B" => "",                     # U+E0C1B => 
+"\xF3\xA0\xB0\x9C" => "",                     # U+E0C1C => 
+"\xF3\xA0\xB0\x9D" => "",                     # U+E0C1D => 
+"\xF3\xA0\xB0\x9E" => "",                     # U+E0C1E => 
+"\xF3\xA0\xB0\x9F" => "",                     # U+E0C1F => 
+"\xF3\xA0\xB0\xA0" => "",                     # U+E0C20 => 
+"\xF3\xA0\xB0\xA1" => "",                     # U+E0C21 => 
+"\xF3\xA0\xB0\xA2" => "",                     # U+E0C22 => 
+"\xF3\xA0\xB0\xA3" => "",                     # U+E0C23 => 
+"\xF3\xA0\xB0\xA4" => "",                     # U+E0C24 => 
+"\xF3\xA0\xB0\xA5" => "",                     # U+E0C25 => 
+"\xF3\xA0\xB0\xA6" => "",                     # U+E0C26 => 
+"\xF3\xA0\xB0\xA7" => "",                     # U+E0C27 => 
+"\xF3\xA0\xB0\xA8" => "",                     # U+E0C28 => 
+"\xF3\xA0\xB0\xA9" => "",                     # U+E0C29 => 
+"\xF3\xA0\xB0\xAA" => "",                     # U+E0C2A => 
+"\xF3\xA0\xB0\xAB" => "",                     # U+E0C2B => 
+"\xF3\xA0\xB0\xAC" => "",                     # U+E0C2C => 
+"\xF3\xA0\xB0\xAD" => "",                     # U+E0C2D => 
+"\xF3\xA0\xB0\xAE" => "",                     # U+E0C2E => 
+"\xF3\xA0\xB0\xAF" => "",                     # U+E0C2F => 
+"\xF3\xA0\xB0\xB0" => "",                     # U+E0C30 => 
+"\xF3\xA0\xB0\xB1" => "",                     # U+E0C31 => 
+"\xF3\xA0\xB0\xB2" => "",                     # U+E0C32 => 
+"\xF3\xA0\xB0\xB3" => "",                     # U+E0C33 => 
+"\xF3\xA0\xB0\xB4" => "",                     # U+E0C34 => 
+"\xF3\xA0\xB0\xB5" => "",                     # U+E0C35 => 
+"\xF3\xA0\xB0\xB6" => "",                     # U+E0C36 => 
+"\xF3\xA0\xB0\xB7" => "",                     # U+E0C37 => 
+"\xF3\xA0\xB0\xB8" => "",                     # U+E0C38 => 
+"\xF3\xA0\xB0\xB9" => "",                     # U+E0C39 => 
+"\xF3\xA0\xB0\xBA" => "",                     # U+E0C3A => 
+"\xF3\xA0\xB0\xBB" => "",                     # U+E0C3B => 
+"\xF3\xA0\xB0\xBC" => "",                     # U+E0C3C => 
+"\xF3\xA0\xB0\xBD" => "",                     # U+E0C3D => 
+"\xF3\xA0\xB0\xBE" => "",                     # U+E0C3E => 
+"\xF3\xA0\xB0\xBF" => "",                     # U+E0C3F => 
+"\xF3\xA0\xB1\x80" => "",                     # U+E0C40 => 
+"\xF3\xA0\xB1\x81" => "",                     # U+E0C41 => 
+"\xF3\xA0\xB1\x82" => "",                     # U+E0C42 => 
+"\xF3\xA0\xB1\x83" => "",                     # U+E0C43 => 
+"\xF3\xA0\xB1\x84" => "",                     # U+E0C44 => 
+"\xF3\xA0\xB1\x85" => "",                     # U+E0C45 => 
+"\xF3\xA0\xB1\x86" => "",                     # U+E0C46 => 
+"\xF3\xA0\xB1\x87" => "",                     # U+E0C47 => 
+"\xF3\xA0\xB1\x88" => "",                     # U+E0C48 => 
+"\xF3\xA0\xB1\x89" => "",                     # U+E0C49 => 
+"\xF3\xA0\xB1\x8A" => "",                     # U+E0C4A => 
+"\xF3\xA0\xB1\x8B" => "",                     # U+E0C4B => 
+"\xF3\xA0\xB1\x8C" => "",                     # U+E0C4C => 
+"\xF3\xA0\xB1\x8D" => "",                     # U+E0C4D => 
+"\xF3\xA0\xB1\x8E" => "",                     # U+E0C4E => 
+"\xF3\xA0\xB1\x8F" => "",                     # U+E0C4F => 
+"\xF3\xA0\xB1\x90" => "",                     # U+E0C50 => 
+"\xF3\xA0\xB1\x91" => "",                     # U+E0C51 => 
+"\xF3\xA0\xB1\x92" => "",                     # U+E0C52 => 
+"\xF3\xA0\xB1\x93" => "",                     # U+E0C53 => 
+"\xF3\xA0\xB1\x94" => "",                     # U+E0C54 => 
+"\xF3\xA0\xB1\x95" => "",                     # U+E0C55 => 
+"\xF3\xA0\xB1\x96" => "",                     # U+E0C56 => 
+"\xF3\xA0\xB1\x97" => "",                     # U+E0C57 => 
+"\xF3\xA0\xB1\x98" => "",                     # U+E0C58 => 
+"\xF3\xA0\xB1\x99" => "",                     # U+E0C59 => 
+"\xF3\xA0\xB1\x9A" => "",                     # U+E0C5A => 
+"\xF3\xA0\xB1\x9B" => "",                     # U+E0C5B => 
+"\xF3\xA0\xB1\x9C" => "",                     # U+E0C5C => 
+"\xF3\xA0\xB1\x9D" => "",                     # U+E0C5D => 
+"\xF3\xA0\xB1\x9E" => "",                     # U+E0C5E => 
+"\xF3\xA0\xB1\x9F" => "",                     # U+E0C5F => 
+"\xF3\xA0\xB1\xA0" => "",                     # U+E0C60 => 
+"\xF3\xA0\xB1\xA1" => "",                     # U+E0C61 => 
+"\xF3\xA0\xB1\xA2" => "",                     # U+E0C62 => 
+"\xF3\xA0\xB1\xA3" => "",                     # U+E0C63 => 
+"\xF3\xA0\xB1\xA4" => "",                     # U+E0C64 => 
+"\xF3\xA0\xB1\xA5" => "",                     # U+E0C65 => 
+"\xF3\xA0\xB1\xA6" => "",                     # U+E0C66 => 
+"\xF3\xA0\xB1\xA7" => "",                     # U+E0C67 => 
+"\xF3\xA0\xB1\xA8" => "",                     # U+E0C68 => 
+"\xF3\xA0\xB1\xA9" => "",                     # U+E0C69 => 
+"\xF3\xA0\xB1\xAA" => "",                     # U+E0C6A => 
+"\xF3\xA0\xB1\xAB" => "",                     # U+E0C6B => 
+"\xF3\xA0\xB1\xAC" => "",                     # U+E0C6C => 
+"\xF3\xA0\xB1\xAD" => "",                     # U+E0C6D => 
+"\xF3\xA0\xB1\xAE" => "",                     # U+E0C6E => 
+"\xF3\xA0\xB1\xAF" => "",                     # U+E0C6F => 
+"\xF3\xA0\xB1\xB0" => "",                     # U+E0C70 => 
+"\xF3\xA0\xB1\xB1" => "",                     # U+E0C71 => 
+"\xF3\xA0\xB1\xB2" => "",                     # U+E0C72 => 
+"\xF3\xA0\xB1\xB3" => "",                     # U+E0C73 => 
+"\xF3\xA0\xB1\xB4" => "",                     # U+E0C74 => 
+"\xF3\xA0\xB1\xB5" => "",                     # U+E0C75 => 
+"\xF3\xA0\xB1\xB6" => "",                     # U+E0C76 => 
+"\xF3\xA0\xB1\xB7" => "",                     # U+E0C77 => 
+"\xF3\xA0\xB1\xB8" => "",                     # U+E0C78 => 
+"\xF3\xA0\xB1\xB9" => "",                     # U+E0C79 => 
+"\xF3\xA0\xB1\xBA" => "",                     # U+E0C7A => 
+"\xF3\xA0\xB1\xBB" => "",                     # U+E0C7B => 
+"\xF3\xA0\xB1\xBC" => "",                     # U+E0C7C => 
+"\xF3\xA0\xB1\xBD" => "",                     # U+E0C7D => 
+"\xF3\xA0\xB1\xBE" => "",                     # U+E0C7E => 
+"\xF3\xA0\xB1\xBF" => "",                     # U+E0C7F => 
+"\xF3\xA0\xB2\x80" => "",                     # U+E0C80 => 
+"\xF3\xA0\xB2\x81" => "",                     # U+E0C81 => 
+"\xF3\xA0\xB2\x82" => "",                     # U+E0C82 => 
+"\xF3\xA0\xB2\x83" => "",                     # U+E0C83 => 
+"\xF3\xA0\xB2\x84" => "",                     # U+E0C84 => 
+"\xF3\xA0\xB2\x85" => "",                     # U+E0C85 => 
+"\xF3\xA0\xB2\x86" => "",                     # U+E0C86 => 
+"\xF3\xA0\xB2\x87" => "",                     # U+E0C87 => 
+"\xF3\xA0\xB2\x88" => "",                     # U+E0C88 => 
+"\xF3\xA0\xB2\x89" => "",                     # U+E0C89 => 
+"\xF3\xA0\xB2\x8A" => "",                     # U+E0C8A => 
+"\xF3\xA0\xB2\x8B" => "",                     # U+E0C8B => 
+"\xF3\xA0\xB2\x8C" => "",                     # U+E0C8C => 
+"\xF3\xA0\xB2\x8D" => "",                     # U+E0C8D => 
+"\xF3\xA0\xB2\x8E" => "",                     # U+E0C8E => 
+"\xF3\xA0\xB2\x8F" => "",                     # U+E0C8F => 
+"\xF3\xA0\xB2\x90" => "",                     # U+E0C90 => 
+"\xF3\xA0\xB2\x91" => "",                     # U+E0C91 => 
+"\xF3\xA0\xB2\x92" => "",                     # U+E0C92 => 
+"\xF3\xA0\xB2\x93" => "",                     # U+E0C93 => 
+"\xF3\xA0\xB2\x94" => "",                     # U+E0C94 => 
+"\xF3\xA0\xB2\x95" => "",                     # U+E0C95 => 
+"\xF3\xA0\xB2\x96" => "",                     # U+E0C96 => 
+"\xF3\xA0\xB2\x97" => "",                     # U+E0C97 => 
+"\xF3\xA0\xB2\x98" => "",                     # U+E0C98 => 
+"\xF3\xA0\xB2\x99" => "",                     # U+E0C99 => 
+"\xF3\xA0\xB2\x9A" => "",                     # U+E0C9A => 
+"\xF3\xA0\xB2\x9B" => "",                     # U+E0C9B => 
+"\xF3\xA0\xB2\x9C" => "",                     # U+E0C9C => 
+"\xF3\xA0\xB2\x9D" => "",                     # U+E0C9D => 
+"\xF3\xA0\xB2\x9E" => "",                     # U+E0C9E => 
+"\xF3\xA0\xB2\x9F" => "",                     # U+E0C9F => 
+"\xF3\xA0\xB2\xA0" => "",                     # U+E0CA0 => 
+"\xF3\xA0\xB2\xA1" => "",                     # U+E0CA1 => 
+"\xF3\xA0\xB2\xA2" => "",                     # U+E0CA2 => 
+"\xF3\xA0\xB2\xA3" => "",                     # U+E0CA3 => 
+"\xF3\xA0\xB2\xA4" => "",                     # U+E0CA4 => 
+"\xF3\xA0\xB2\xA5" => "",                     # U+E0CA5 => 
+"\xF3\xA0\xB2\xA6" => "",                     # U+E0CA6 => 
+"\xF3\xA0\xB2\xA7" => "",                     # U+E0CA7 => 
+"\xF3\xA0\xB2\xA8" => "",                     # U+E0CA8 => 
+"\xF3\xA0\xB2\xA9" => "",                     # U+E0CA9 => 
+"\xF3\xA0\xB2\xAA" => "",                     # U+E0CAA => 
+"\xF3\xA0\xB2\xAB" => "",                     # U+E0CAB => 
+"\xF3\xA0\xB2\xAC" => "",                     # U+E0CAC => 
+"\xF3\xA0\xB2\xAD" => "",                     # U+E0CAD => 
+"\xF3\xA0\xB2\xAE" => "",                     # U+E0CAE => 
+"\xF3\xA0\xB2\xAF" => "",                     # U+E0CAF => 
+"\xF3\xA0\xB2\xB0" => "",                     # U+E0CB0 => 
+"\xF3\xA0\xB2\xB1" => "",                     # U+E0CB1 => 
+"\xF3\xA0\xB2\xB2" => "",                     # U+E0CB2 => 
+"\xF3\xA0\xB2\xB3" => "",                     # U+E0CB3 => 
+"\xF3\xA0\xB2\xB4" => "",                     # U+E0CB4 => 
+"\xF3\xA0\xB2\xB5" => "",                     # U+E0CB5 => 
+"\xF3\xA0\xB2\xB6" => "",                     # U+E0CB6 => 
+"\xF3\xA0\xB2\xB7" => "",                     # U+E0CB7 => 
+"\xF3\xA0\xB2\xB8" => "",                     # U+E0CB8 => 
+"\xF3\xA0\xB2\xB9" => "",                     # U+E0CB9 => 
+"\xF3\xA0\xB2\xBA" => "",                     # U+E0CBA => 
+"\xF3\xA0\xB2\xBB" => "",                     # U+E0CBB => 
+"\xF3\xA0\xB2\xBC" => "",                     # U+E0CBC => 
+"\xF3\xA0\xB2\xBD" => "",                     # U+E0CBD => 
+"\xF3\xA0\xB2\xBE" => "",                     # U+E0CBE => 
+"\xF3\xA0\xB2\xBF" => "",                     # U+E0CBF => 
+"\xF3\xA0\xB3\x80" => "",                     # U+E0CC0 => 
+"\xF3\xA0\xB3\x81" => "",                     # U+E0CC1 => 
+"\xF3\xA0\xB3\x82" => "",                     # U+E0CC2 => 
+"\xF3\xA0\xB3\x83" => "",                     # U+E0CC3 => 
+"\xF3\xA0\xB3\x84" => "",                     # U+E0CC4 => 
+"\xF3\xA0\xB3\x85" => "",                     # U+E0CC5 => 
+"\xF3\xA0\xB3\x86" => "",                     # U+E0CC6 => 
+"\xF3\xA0\xB3\x87" => "",                     # U+E0CC7 => 
+"\xF3\xA0\xB3\x88" => "",                     # U+E0CC8 => 
+"\xF3\xA0\xB3\x89" => "",                     # U+E0CC9 => 
+"\xF3\xA0\xB3\x8A" => "",                     # U+E0CCA => 
+"\xF3\xA0\xB3\x8B" => "",                     # U+E0CCB => 
+"\xF3\xA0\xB3\x8C" => "",                     # U+E0CCC => 
+"\xF3\xA0\xB3\x8D" => "",                     # U+E0CCD => 
+"\xF3\xA0\xB3\x8E" => "",                     # U+E0CCE => 
+"\xF3\xA0\xB3\x8F" => "",                     # U+E0CCF => 
+"\xF3\xA0\xB3\x90" => "",                     # U+E0CD0 => 
+"\xF3\xA0\xB3\x91" => "",                     # U+E0CD1 => 
+"\xF3\xA0\xB3\x92" => "",                     # U+E0CD2 => 
+"\xF3\xA0\xB3\x93" => "",                     # U+E0CD3 => 
+"\xF3\xA0\xB3\x94" => "",                     # U+E0CD4 => 
+"\xF3\xA0\xB3\x95" => "",                     # U+E0CD5 => 
+"\xF3\xA0\xB3\x96" => "",                     # U+E0CD6 => 
+"\xF3\xA0\xB3\x97" => "",                     # U+E0CD7 => 
+"\xF3\xA0\xB3\x98" => "",                     # U+E0CD8 => 
+"\xF3\xA0\xB3\x99" => "",                     # U+E0CD9 => 
+"\xF3\xA0\xB3\x9A" => "",                     # U+E0CDA => 
+"\xF3\xA0\xB3\x9B" => "",                     # U+E0CDB => 
+"\xF3\xA0\xB3\x9C" => "",                     # U+E0CDC => 
+"\xF3\xA0\xB3\x9D" => "",                     # U+E0CDD => 
+"\xF3\xA0\xB3\x9E" => "",                     # U+E0CDE => 
+"\xF3\xA0\xB3\x9F" => "",                     # U+E0CDF => 
+"\xF3\xA0\xB3\xA0" => "",                     # U+E0CE0 => 
+"\xF3\xA0\xB3\xA1" => "",                     # U+E0CE1 => 
+"\xF3\xA0\xB3\xA2" => "",                     # U+E0CE2 => 
+"\xF3\xA0\xB3\xA3" => "",                     # U+E0CE3 => 
+"\xF3\xA0\xB3\xA4" => "",                     # U+E0CE4 => 
+"\xF3\xA0\xB3\xA5" => "",                     # U+E0CE5 => 
+"\xF3\xA0\xB3\xA6" => "",                     # U+E0CE6 => 
+"\xF3\xA0\xB3\xA7" => "",                     # U+E0CE7 => 
+"\xF3\xA0\xB3\xA8" => "",                     # U+E0CE8 => 
+"\xF3\xA0\xB3\xA9" => "",                     # U+E0CE9 => 
+"\xF3\xA0\xB3\xAA" => "",                     # U+E0CEA => 
+"\xF3\xA0\xB3\xAB" => "",                     # U+E0CEB => 
+"\xF3\xA0\xB3\xAC" => "",                     # U+E0CEC => 
+"\xF3\xA0\xB3\xAD" => "",                     # U+E0CED => 
+"\xF3\xA0\xB3\xAE" => "",                     # U+E0CEE => 
+"\xF3\xA0\xB3\xAF" => "",                     # U+E0CEF => 
+"\xF3\xA0\xB3\xB0" => "",                     # U+E0CF0 => 
+"\xF3\xA0\xB3\xB1" => "",                     # U+E0CF1 => 
+"\xF3\xA0\xB3\xB2" => "",                     # U+E0CF2 => 
+"\xF3\xA0\xB3\xB3" => "",                     # U+E0CF3 => 
+"\xF3\xA0\xB3\xB4" => "",                     # U+E0CF4 => 
+"\xF3\xA0\xB3\xB5" => "",                     # U+E0CF5 => 
+"\xF3\xA0\xB3\xB6" => "",                     # U+E0CF6 => 
+"\xF3\xA0\xB3\xB7" => "",                     # U+E0CF7 => 
+"\xF3\xA0\xB3\xB8" => "",                     # U+E0CF8 => 
+"\xF3\xA0\xB3\xB9" => "",                     # U+E0CF9 => 
+"\xF3\xA0\xB3\xBA" => "",                     # U+E0CFA => 
+"\xF3\xA0\xB3\xBB" => "",                     # U+E0CFB => 
+"\xF3\xA0\xB3\xBC" => "",                     # U+E0CFC => 
+"\xF3\xA0\xB3\xBD" => "",                     # U+E0CFD => 
+"\xF3\xA0\xB3\xBE" => "",                     # U+E0CFE => 
+"\xF3\xA0\xB3\xBF" => "",                     # U+E0CFF => 
+"\xF3\xA0\xB4\x80" => "",                     # U+E0D00 => 
+"\xF3\xA0\xB4\x81" => "",                     # U+E0D01 => 
+"\xF3\xA0\xB4\x82" => "",                     # U+E0D02 => 
+"\xF3\xA0\xB4\x83" => "",                     # U+E0D03 => 
+"\xF3\xA0\xB4\x84" => "",                     # U+E0D04 => 
+"\xF3\xA0\xB4\x85" => "",                     # U+E0D05 => 
+"\xF3\xA0\xB4\x86" => "",                     # U+E0D06 => 
+"\xF3\xA0\xB4\x87" => "",                     # U+E0D07 => 
+"\xF3\xA0\xB4\x88" => "",                     # U+E0D08 => 
+"\xF3\xA0\xB4\x89" => "",                     # U+E0D09 => 
+"\xF3\xA0\xB4\x8A" => "",                     # U+E0D0A => 
+"\xF3\xA0\xB4\x8B" => "",                     # U+E0D0B => 
+"\xF3\xA0\xB4\x8C" => "",                     # U+E0D0C => 
+"\xF3\xA0\xB4\x8D" => "",                     # U+E0D0D => 
+"\xF3\xA0\xB4\x8E" => "",                     # U+E0D0E => 
+"\xF3\xA0\xB4\x8F" => "",                     # U+E0D0F => 
+"\xF3\xA0\xB4\x90" => "",                     # U+E0D10 => 
+"\xF3\xA0\xB4\x91" => "",                     # U+E0D11 => 
+"\xF3\xA0\xB4\x92" => "",                     # U+E0D12 => 
+"\xF3\xA0\xB4\x93" => "",                     # U+E0D13 => 
+"\xF3\xA0\xB4\x94" => "",                     # U+E0D14 => 
+"\xF3\xA0\xB4\x95" => "",                     # U+E0D15 => 
+"\xF3\xA0\xB4\x96" => "",                     # U+E0D16 => 
+"\xF3\xA0\xB4\x97" => "",                     # U+E0D17 => 
+"\xF3\xA0\xB4\x98" => "",                     # U+E0D18 => 
+"\xF3\xA0\xB4\x99" => "",                     # U+E0D19 => 
+"\xF3\xA0\xB4\x9A" => "",                     # U+E0D1A => 
+"\xF3\xA0\xB4\x9B" => "",                     # U+E0D1B => 
+"\xF3\xA0\xB4\x9C" => "",                     # U+E0D1C => 
+"\xF3\xA0\xB4\x9D" => "",                     # U+E0D1D => 
+"\xF3\xA0\xB4\x9E" => "",                     # U+E0D1E => 
+"\xF3\xA0\xB4\x9F" => "",                     # U+E0D1F => 
+"\xF3\xA0\xB4\xA0" => "",                     # U+E0D20 => 
+"\xF3\xA0\xB4\xA1" => "",                     # U+E0D21 => 
+"\xF3\xA0\xB4\xA2" => "",                     # U+E0D22 => 
+"\xF3\xA0\xB4\xA3" => "",                     # U+E0D23 => 
+"\xF3\xA0\xB4\xA4" => "",                     # U+E0D24 => 
+"\xF3\xA0\xB4\xA5" => "",                     # U+E0D25 => 
+"\xF3\xA0\xB4\xA6" => "",                     # U+E0D26 => 
+"\xF3\xA0\xB4\xA7" => "",                     # U+E0D27 => 
+"\xF3\xA0\xB4\xA8" => "",                     # U+E0D28 => 
+"\xF3\xA0\xB4\xA9" => "",                     # U+E0D29 => 
+"\xF3\xA0\xB4\xAA" => "",                     # U+E0D2A => 
+"\xF3\xA0\xB4\xAB" => "",                     # U+E0D2B => 
+"\xF3\xA0\xB4\xAC" => "",                     # U+E0D2C => 
+"\xF3\xA0\xB4\xAD" => "",                     # U+E0D2D => 
+"\xF3\xA0\xB4\xAE" => "",                     # U+E0D2E => 
+"\xF3\xA0\xB4\xAF" => "",                     # U+E0D2F => 
+"\xF3\xA0\xB4\xB0" => "",                     # U+E0D30 => 
+"\xF3\xA0\xB4\xB1" => "",                     # U+E0D31 => 
+"\xF3\xA0\xB4\xB2" => "",                     # U+E0D32 => 
+"\xF3\xA0\xB4\xB3" => "",                     # U+E0D33 => 
+"\xF3\xA0\xB4\xB4" => "",                     # U+E0D34 => 
+"\xF3\xA0\xB4\xB5" => "",                     # U+E0D35 => 
+"\xF3\xA0\xB4\xB6" => "",                     # U+E0D36 => 
+"\xF3\xA0\xB4\xB7" => "",                     # U+E0D37 => 
+"\xF3\xA0\xB4\xB8" => "",                     # U+E0D38 => 
+"\xF3\xA0\xB4\xB9" => "",                     # U+E0D39 => 
+"\xF3\xA0\xB4\xBA" => "",                     # U+E0D3A => 
+"\xF3\xA0\xB4\xBB" => "",                     # U+E0D3B => 
+"\xF3\xA0\xB4\xBC" => "",                     # U+E0D3C => 
+"\xF3\xA0\xB4\xBD" => "",                     # U+E0D3D => 
+"\xF3\xA0\xB4\xBE" => "",                     # U+E0D3E => 
+"\xF3\xA0\xB4\xBF" => "",                     # U+E0D3F => 
+"\xF3\xA0\xB5\x80" => "",                     # U+E0D40 => 
+"\xF3\xA0\xB5\x81" => "",                     # U+E0D41 => 
+"\xF3\xA0\xB5\x82" => "",                     # U+E0D42 => 
+"\xF3\xA0\xB5\x83" => "",                     # U+E0D43 => 
+"\xF3\xA0\xB5\x84" => "",                     # U+E0D44 => 
+"\xF3\xA0\xB5\x85" => "",                     # U+E0D45 => 
+"\xF3\xA0\xB5\x86" => "",                     # U+E0D46 => 
+"\xF3\xA0\xB5\x87" => "",                     # U+E0D47 => 
+"\xF3\xA0\xB5\x88" => "",                     # U+E0D48 => 
+"\xF3\xA0\xB5\x89" => "",                     # U+E0D49 => 
+"\xF3\xA0\xB5\x8A" => "",                     # U+E0D4A => 
+"\xF3\xA0\xB5\x8B" => "",                     # U+E0D4B => 
+"\xF3\xA0\xB5\x8C" => "",                     # U+E0D4C => 
+"\xF3\xA0\xB5\x8D" => "",                     # U+E0D4D => 
+"\xF3\xA0\xB5\x8E" => "",                     # U+E0D4E => 
+"\xF3\xA0\xB5\x8F" => "",                     # U+E0D4F => 
+"\xF3\xA0\xB5\x90" => "",                     # U+E0D50 => 
+"\xF3\xA0\xB5\x91" => "",                     # U+E0D51 => 
+"\xF3\xA0\xB5\x92" => "",                     # U+E0D52 => 
+"\xF3\xA0\xB5\x93" => "",                     # U+E0D53 => 
+"\xF3\xA0\xB5\x94" => "",                     # U+E0D54 => 
+"\xF3\xA0\xB5\x95" => "",                     # U+E0D55 => 
+"\xF3\xA0\xB5\x96" => "",                     # U+E0D56 => 
+"\xF3\xA0\xB5\x97" => "",                     # U+E0D57 => 
+"\xF3\xA0\xB5\x98" => "",                     # U+E0D58 => 
+"\xF3\xA0\xB5\x99" => "",                     # U+E0D59 => 
+"\xF3\xA0\xB5\x9A" => "",                     # U+E0D5A => 
+"\xF3\xA0\xB5\x9B" => "",                     # U+E0D5B => 
+"\xF3\xA0\xB5\x9C" => "",                     # U+E0D5C => 
+"\xF3\xA0\xB5\x9D" => "",                     # U+E0D5D => 
+"\xF3\xA0\xB5\x9E" => "",                     # U+E0D5E => 
+"\xF3\xA0\xB5\x9F" => "",                     # U+E0D5F => 
+"\xF3\xA0\xB5\xA0" => "",                     # U+E0D60 => 
+"\xF3\xA0\xB5\xA1" => "",                     # U+E0D61 => 
+"\xF3\xA0\xB5\xA2" => "",                     # U+E0D62 => 
+"\xF3\xA0\xB5\xA3" => "",                     # U+E0D63 => 
+"\xF3\xA0\xB5\xA4" => "",                     # U+E0D64 => 
+"\xF3\xA0\xB5\xA5" => "",                     # U+E0D65 => 
+"\xF3\xA0\xB5\xA6" => "",                     # U+E0D66 => 
+"\xF3\xA0\xB5\xA7" => "",                     # U+E0D67 => 
+"\xF3\xA0\xB5\xA8" => "",                     # U+E0D68 => 
+"\xF3\xA0\xB5\xA9" => "",                     # U+E0D69 => 
+"\xF3\xA0\xB5\xAA" => "",                     # U+E0D6A => 
+"\xF3\xA0\xB5\xAB" => "",                     # U+E0D6B => 
+"\xF3\xA0\xB5\xAC" => "",                     # U+E0D6C => 
+"\xF3\xA0\xB5\xAD" => "",                     # U+E0D6D => 
+"\xF3\xA0\xB5\xAE" => "",                     # U+E0D6E => 
+"\xF3\xA0\xB5\xAF" => "",                     # U+E0D6F => 
+"\xF3\xA0\xB5\xB0" => "",                     # U+E0D70 => 
+"\xF3\xA0\xB5\xB1" => "",                     # U+E0D71 => 
+"\xF3\xA0\xB5\xB2" => "",                     # U+E0D72 => 
+"\xF3\xA0\xB5\xB3" => "",                     # U+E0D73 => 
+"\xF3\xA0\xB5\xB4" => "",                     # U+E0D74 => 
+"\xF3\xA0\xB5\xB5" => "",                     # U+E0D75 => 
+"\xF3\xA0\xB5\xB6" => "",                     # U+E0D76 => 
+"\xF3\xA0\xB5\xB7" => "",                     # U+E0D77 => 
+"\xF3\xA0\xB5\xB8" => "",                     # U+E0D78 => 
+"\xF3\xA0\xB5\xB9" => "",                     # U+E0D79 => 
+"\xF3\xA0\xB5\xBA" => "",                     # U+E0D7A => 
+"\xF3\xA0\xB5\xBB" => "",                     # U+E0D7B => 
+"\xF3\xA0\xB5\xBC" => "",                     # U+E0D7C => 
+"\xF3\xA0\xB5\xBD" => "",                     # U+E0D7D => 
+"\xF3\xA0\xB5\xBE" => "",                     # U+E0D7E => 
+"\xF3\xA0\xB5\xBF" => "",                     # U+E0D7F => 
+"\xF3\xA0\xB6\x80" => "",                     # U+E0D80 => 
+"\xF3\xA0\xB6\x81" => "",                     # U+E0D81 => 
+"\xF3\xA0\xB6\x82" => "",                     # U+E0D82 => 
+"\xF3\xA0\xB6\x83" => "",                     # U+E0D83 => 
+"\xF3\xA0\xB6\x84" => "",                     # U+E0D84 => 
+"\xF3\xA0\xB6\x85" => "",                     # U+E0D85 => 
+"\xF3\xA0\xB6\x86" => "",                     # U+E0D86 => 
+"\xF3\xA0\xB6\x87" => "",                     # U+E0D87 => 
+"\xF3\xA0\xB6\x88" => "",                     # U+E0D88 => 
+"\xF3\xA0\xB6\x89" => "",                     # U+E0D89 => 
+"\xF3\xA0\xB6\x8A" => "",                     # U+E0D8A => 
+"\xF3\xA0\xB6\x8B" => "",                     # U+E0D8B => 
+"\xF3\xA0\xB6\x8C" => "",                     # U+E0D8C => 
+"\xF3\xA0\xB6\x8D" => "",                     # U+E0D8D => 
+"\xF3\xA0\xB6\x8E" => "",                     # U+E0D8E => 
+"\xF3\xA0\xB6\x8F" => "",                     # U+E0D8F => 
+"\xF3\xA0\xB6\x90" => "",                     # U+E0D90 => 
+"\xF3\xA0\xB6\x91" => "",                     # U+E0D91 => 
+"\xF3\xA0\xB6\x92" => "",                     # U+E0D92 => 
+"\xF3\xA0\xB6\x93" => "",                     # U+E0D93 => 
+"\xF3\xA0\xB6\x94" => "",                     # U+E0D94 => 
+"\xF3\xA0\xB6\x95" => "",                     # U+E0D95 => 
+"\xF3\xA0\xB6\x96" => "",                     # U+E0D96 => 
+"\xF3\xA0\xB6\x97" => "",                     # U+E0D97 => 
+"\xF3\xA0\xB6\x98" => "",                     # U+E0D98 => 
+"\xF3\xA0\xB6\x99" => "",                     # U+E0D99 => 
+"\xF3\xA0\xB6\x9A" => "",                     # U+E0D9A => 
+"\xF3\xA0\xB6\x9B" => "",                     # U+E0D9B => 
+"\xF3\xA0\xB6\x9C" => "",                     # U+E0D9C => 
+"\xF3\xA0\xB6\x9D" => "",                     # U+E0D9D => 
+"\xF3\xA0\xB6\x9E" => "",                     # U+E0D9E => 
+"\xF3\xA0\xB6\x9F" => "",                     # U+E0D9F => 
+"\xF3\xA0\xB6\xA0" => "",                     # U+E0DA0 => 
+"\xF3\xA0\xB6\xA1" => "",                     # U+E0DA1 => 
+"\xF3\xA0\xB6\xA2" => "",                     # U+E0DA2 => 
+"\xF3\xA0\xB6\xA3" => "",                     # U+E0DA3 => 
+"\xF3\xA0\xB6\xA4" => "",                     # U+E0DA4 => 
+"\xF3\xA0\xB6\xA5" => "",                     # U+E0DA5 => 
+"\xF3\xA0\xB6\xA6" => "",                     # U+E0DA6 => 
+"\xF3\xA0\xB6\xA7" => "",                     # U+E0DA7 => 
+"\xF3\xA0\xB6\xA8" => "",                     # U+E0DA8 => 
+"\xF3\xA0\xB6\xA9" => "",                     # U+E0DA9 => 
+"\xF3\xA0\xB6\xAA" => "",                     # U+E0DAA => 
+"\xF3\xA0\xB6\xAB" => "",                     # U+E0DAB => 
+"\xF3\xA0\xB6\xAC" => "",                     # U+E0DAC => 
+"\xF3\xA0\xB6\xAD" => "",                     # U+E0DAD => 
+"\xF3\xA0\xB6\xAE" => "",                     # U+E0DAE => 
+"\xF3\xA0\xB6\xAF" => "",                     # U+E0DAF => 
+"\xF3\xA0\xB6\xB0" => "",                     # U+E0DB0 => 
+"\xF3\xA0\xB6\xB1" => "",                     # U+E0DB1 => 
+"\xF3\xA0\xB6\xB2" => "",                     # U+E0DB2 => 
+"\xF3\xA0\xB6\xB3" => "",                     # U+E0DB3 => 
+"\xF3\xA0\xB6\xB4" => "",                     # U+E0DB4 => 
+"\xF3\xA0\xB6\xB5" => "",                     # U+E0DB5 => 
+"\xF3\xA0\xB6\xB6" => "",                     # U+E0DB6 => 
+"\xF3\xA0\xB6\xB7" => "",                     # U+E0DB7 => 
+"\xF3\xA0\xB6\xB8" => "",                     # U+E0DB8 => 
+"\xF3\xA0\xB6\xB9" => "",                     # U+E0DB9 => 
+"\xF3\xA0\xB6\xBA" => "",                     # U+E0DBA => 
+"\xF3\xA0\xB6\xBB" => "",                     # U+E0DBB => 
+"\xF3\xA0\xB6\xBC" => "",                     # U+E0DBC => 
+"\xF3\xA0\xB6\xBD" => "",                     # U+E0DBD => 
+"\xF3\xA0\xB6\xBE" => "",                     # U+E0DBE => 
+"\xF3\xA0\xB6\xBF" => "",                     # U+E0DBF => 
+"\xF3\xA0\xB7\x80" => "",                     # U+E0DC0 => 
+"\xF3\xA0\xB7\x81" => "",                     # U+E0DC1 => 
+"\xF3\xA0\xB7\x82" => "",                     # U+E0DC2 => 
+"\xF3\xA0\xB7\x83" => "",                     # U+E0DC3 => 
+"\xF3\xA0\xB7\x84" => "",                     # U+E0DC4 => 
+"\xF3\xA0\xB7\x85" => "",                     # U+E0DC5 => 
+"\xF3\xA0\xB7\x86" => "",                     # U+E0DC6 => 
+"\xF3\xA0\xB7\x87" => "",                     # U+E0DC7 => 
+"\xF3\xA0\xB7\x88" => "",                     # U+E0DC8 => 
+"\xF3\xA0\xB7\x89" => "",                     # U+E0DC9 => 
+"\xF3\xA0\xB7\x8A" => "",                     # U+E0DCA => 
+"\xF3\xA0\xB7\x8B" => "",                     # U+E0DCB => 
+"\xF3\xA0\xB7\x8C" => "",                     # U+E0DCC => 
+"\xF3\xA0\xB7\x8D" => "",                     # U+E0DCD => 
+"\xF3\xA0\xB7\x8E" => "",                     # U+E0DCE => 
+"\xF3\xA0\xB7\x8F" => "",                     # U+E0DCF => 
+"\xF3\xA0\xB7\x90" => "",                     # U+E0DD0 => 
+"\xF3\xA0\xB7\x91" => "",                     # U+E0DD1 => 
+"\xF3\xA0\xB7\x92" => "",                     # U+E0DD2 => 
+"\xF3\xA0\xB7\x93" => "",                     # U+E0DD3 => 
+"\xF3\xA0\xB7\x94" => "",                     # U+E0DD4 => 
+"\xF3\xA0\xB7\x95" => "",                     # U+E0DD5 => 
+"\xF3\xA0\xB7\x96" => "",                     # U+E0DD6 => 
+"\xF3\xA0\xB7\x97" => "",                     # U+E0DD7 => 
+"\xF3\xA0\xB7\x98" => "",                     # U+E0DD8 => 
+"\xF3\xA0\xB7\x99" => "",                     # U+E0DD9 => 
+"\xF3\xA0\xB7\x9A" => "",                     # U+E0DDA => 
+"\xF3\xA0\xB7\x9B" => "",                     # U+E0DDB => 
+"\xF3\xA0\xB7\x9C" => "",                     # U+E0DDC => 
+"\xF3\xA0\xB7\x9D" => "",                     # U+E0DDD => 
+"\xF3\xA0\xB7\x9E" => "",                     # U+E0DDE => 
+"\xF3\xA0\xB7\x9F" => "",                     # U+E0DDF => 
+"\xF3\xA0\xB7\xA0" => "",                     # U+E0DE0 => 
+"\xF3\xA0\xB7\xA1" => "",                     # U+E0DE1 => 
+"\xF3\xA0\xB7\xA2" => "",                     # U+E0DE2 => 
+"\xF3\xA0\xB7\xA3" => "",                     # U+E0DE3 => 
+"\xF3\xA0\xB7\xA4" => "",                     # U+E0DE4 => 
+"\xF3\xA0\xB7\xA5" => "",                     # U+E0DE5 => 
+"\xF3\xA0\xB7\xA6" => "",                     # U+E0DE6 => 
+"\xF3\xA0\xB7\xA7" => "",                     # U+E0DE7 => 
+"\xF3\xA0\xB7\xA8" => "",                     # U+E0DE8 => 
+"\xF3\xA0\xB7\xA9" => "",                     # U+E0DE9 => 
+"\xF3\xA0\xB7\xAA" => "",                     # U+E0DEA => 
+"\xF3\xA0\xB7\xAB" => "",                     # U+E0DEB => 
+"\xF3\xA0\xB7\xAC" => "",                     # U+E0DEC => 
+"\xF3\xA0\xB7\xAD" => "",                     # U+E0DED => 
+"\xF3\xA0\xB7\xAE" => "",                     # U+E0DEE => 
+"\xF3\xA0\xB7\xAF" => "",                     # U+E0DEF => 
+"\xF3\xA0\xB7\xB0" => "",                     # U+E0DF0 => 
+"\xF3\xA0\xB7\xB1" => "",                     # U+E0DF1 => 
+"\xF3\xA0\xB7\xB2" => "",                     # U+E0DF2 => 
+"\xF3\xA0\xB7\xB3" => "",                     # U+E0DF3 => 
+"\xF3\xA0\xB7\xB4" => "",                     # U+E0DF4 => 
+"\xF3\xA0\xB7\xB5" => "",                     # U+E0DF5 => 
+"\xF3\xA0\xB7\xB6" => "",                     # U+E0DF6 => 
+"\xF3\xA0\xB7\xB7" => "",                     # U+E0DF7 => 
+"\xF3\xA0\xB7\xB8" => "",                     # U+E0DF8 => 
+"\xF3\xA0\xB7\xB9" => "",                     # U+E0DF9 => 
+"\xF3\xA0\xB7\xBA" => "",                     # U+E0DFA => 
+"\xF3\xA0\xB7\xBB" => "",                     # U+E0DFB => 
+"\xF3\xA0\xB7\xBC" => "",                     # U+E0DFC => 
+"\xF3\xA0\xB7\xBD" => "",                     # U+E0DFD => 
+"\xF3\xA0\xB7\xBE" => "",                     # U+E0DFE => 
+"\xF3\xA0\xB7\xBF" => "",                     # U+E0DFF => 
+"\xF3\xA0\xB8\x80" => "",                     # U+E0E00 => 
+"\xF3\xA0\xB8\x81" => "",                     # U+E0E01 => 
+"\xF3\xA0\xB8\x82" => "",                     # U+E0E02 => 
+"\xF3\xA0\xB8\x83" => "",                     # U+E0E03 => 
+"\xF3\xA0\xB8\x84" => "",                     # U+E0E04 => 
+"\xF3\xA0\xB8\x85" => "",                     # U+E0E05 => 
+"\xF3\xA0\xB8\x86" => "",                     # U+E0E06 => 
+"\xF3\xA0\xB8\x87" => "",                     # U+E0E07 => 
+"\xF3\xA0\xB8\x88" => "",                     # U+E0E08 => 
+"\xF3\xA0\xB8\x89" => "",                     # U+E0E09 => 
+"\xF3\xA0\xB8\x8A" => "",                     # U+E0E0A => 
+"\xF3\xA0\xB8\x8B" => "",                     # U+E0E0B => 
+"\xF3\xA0\xB8\x8C" => "",                     # U+E0E0C => 
+"\xF3\xA0\xB8\x8D" => "",                     # U+E0E0D => 
+"\xF3\xA0\xB8\x8E" => "",                     # U+E0E0E => 
+"\xF3\xA0\xB8\x8F" => "",                     # U+E0E0F => 
+"\xF3\xA0\xB8\x90" => "",                     # U+E0E10 => 
+"\xF3\xA0\xB8\x91" => "",                     # U+E0E11 => 
+"\xF3\xA0\xB8\x92" => "",                     # U+E0E12 => 
+"\xF3\xA0\xB8\x93" => "",                     # U+E0E13 => 
+"\xF3\xA0\xB8\x94" => "",                     # U+E0E14 => 
+"\xF3\xA0\xB8\x95" => "",                     # U+E0E15 => 
+"\xF3\xA0\xB8\x96" => "",                     # U+E0E16 => 
+"\xF3\xA0\xB8\x97" => "",                     # U+E0E17 => 
+"\xF3\xA0\xB8\x98" => "",                     # U+E0E18 => 
+"\xF3\xA0\xB8\x99" => "",                     # U+E0E19 => 
+"\xF3\xA0\xB8\x9A" => "",                     # U+E0E1A => 
+"\xF3\xA0\xB8\x9B" => "",                     # U+E0E1B => 
+"\xF3\xA0\xB8\x9C" => "",                     # U+E0E1C => 
+"\xF3\xA0\xB8\x9D" => "",                     # U+E0E1D => 
+"\xF3\xA0\xB8\x9E" => "",                     # U+E0E1E => 
+"\xF3\xA0\xB8\x9F" => "",                     # U+E0E1F => 
+"\xF3\xA0\xB8\xA0" => "",                     # U+E0E20 => 
+"\xF3\xA0\xB8\xA1" => "",                     # U+E0E21 => 
+"\xF3\xA0\xB8\xA2" => "",                     # U+E0E22 => 
+"\xF3\xA0\xB8\xA3" => "",                     # U+E0E23 => 
+"\xF3\xA0\xB8\xA4" => "",                     # U+E0E24 => 
+"\xF3\xA0\xB8\xA5" => "",                     # U+E0E25 => 
+"\xF3\xA0\xB8\xA6" => "",                     # U+E0E26 => 
+"\xF3\xA0\xB8\xA7" => "",                     # U+E0E27 => 
+"\xF3\xA0\xB8\xA8" => "",                     # U+E0E28 => 
+"\xF3\xA0\xB8\xA9" => "",                     # U+E0E29 => 
+"\xF3\xA0\xB8\xAA" => "",                     # U+E0E2A => 
+"\xF3\xA0\xB8\xAB" => "",                     # U+E0E2B => 
+"\xF3\xA0\xB8\xAC" => "",                     # U+E0E2C => 
+"\xF3\xA0\xB8\xAD" => "",                     # U+E0E2D => 
+"\xF3\xA0\xB8\xAE" => "",                     # U+E0E2E => 
+"\xF3\xA0\xB8\xAF" => "",                     # U+E0E2F => 
+"\xF3\xA0\xB8\xB0" => "",                     # U+E0E30 => 
+"\xF3\xA0\xB8\xB1" => "",                     # U+E0E31 => 
+"\xF3\xA0\xB8\xB2" => "",                     # U+E0E32 => 
+"\xF3\xA0\xB8\xB3" => "",                     # U+E0E33 => 
+"\xF3\xA0\xB8\xB4" => "",                     # U+E0E34 => 
+"\xF3\xA0\xB8\xB5" => "",                     # U+E0E35 => 
+"\xF3\xA0\xB8\xB6" => "",                     # U+E0E36 => 
+"\xF3\xA0\xB8\xB7" => "",                     # U+E0E37 => 
+"\xF3\xA0\xB8\xB8" => "",                     # U+E0E38 => 
+"\xF3\xA0\xB8\xB9" => "",                     # U+E0E39 => 
+"\xF3\xA0\xB8\xBA" => "",                     # U+E0E3A => 
+"\xF3\xA0\xB8\xBB" => "",                     # U+E0E3B => 
+"\xF3\xA0\xB8\xBC" => "",                     # U+E0E3C => 
+"\xF3\xA0\xB8\xBD" => "",                     # U+E0E3D => 
+"\xF3\xA0\xB8\xBE" => "",                     # U+E0E3E => 
+"\xF3\xA0\xB8\xBF" => "",                     # U+E0E3F => 
+"\xF3\xA0\xB9\x80" => "",                     # U+E0E40 => 
+"\xF3\xA0\xB9\x81" => "",                     # U+E0E41 => 
+"\xF3\xA0\xB9\x82" => "",                     # U+E0E42 => 
+"\xF3\xA0\xB9\x83" => "",                     # U+E0E43 => 
+"\xF3\xA0\xB9\x84" => "",                     # U+E0E44 => 
+"\xF3\xA0\xB9\x85" => "",                     # U+E0E45 => 
+"\xF3\xA0\xB9\x86" => "",                     # U+E0E46 => 
+"\xF3\xA0\xB9\x87" => "",                     # U+E0E47 => 
+"\xF3\xA0\xB9\x88" => "",                     # U+E0E48 => 
+"\xF3\xA0\xB9\x89" => "",                     # U+E0E49 => 
+"\xF3\xA0\xB9\x8A" => "",                     # U+E0E4A => 
+"\xF3\xA0\xB9\x8B" => "",                     # U+E0E4B => 
+"\xF3\xA0\xB9\x8C" => "",                     # U+E0E4C => 
+"\xF3\xA0\xB9\x8D" => "",                     # U+E0E4D => 
+"\xF3\xA0\xB9\x8E" => "",                     # U+E0E4E => 
+"\xF3\xA0\xB9\x8F" => "",                     # U+E0E4F => 
+"\xF3\xA0\xB9\x90" => "",                     # U+E0E50 => 
+"\xF3\xA0\xB9\x91" => "",                     # U+E0E51 => 
+"\xF3\xA0\xB9\x92" => "",                     # U+E0E52 => 
+"\xF3\xA0\xB9\x93" => "",                     # U+E0E53 => 
+"\xF3\xA0\xB9\x94" => "",                     # U+E0E54 => 
+"\xF3\xA0\xB9\x95" => "",                     # U+E0E55 => 
+"\xF3\xA0\xB9\x96" => "",                     # U+E0E56 => 
+"\xF3\xA0\xB9\x97" => "",                     # U+E0E57 => 
+"\xF3\xA0\xB9\x98" => "",                     # U+E0E58 => 
+"\xF3\xA0\xB9\x99" => "",                     # U+E0E59 => 
+"\xF3\xA0\xB9\x9A" => "",                     # U+E0E5A => 
+"\xF3\xA0\xB9\x9B" => "",                     # U+E0E5B => 
+"\xF3\xA0\xB9\x9C" => "",                     # U+E0E5C => 
+"\xF3\xA0\xB9\x9D" => "",                     # U+E0E5D => 
+"\xF3\xA0\xB9\x9E" => "",                     # U+E0E5E => 
+"\xF3\xA0\xB9\x9F" => "",                     # U+E0E5F => 
+"\xF3\xA0\xB9\xA0" => "",                     # U+E0E60 => 
+"\xF3\xA0\xB9\xA1" => "",                     # U+E0E61 => 
+"\xF3\xA0\xB9\xA2" => "",                     # U+E0E62 => 
+"\xF3\xA0\xB9\xA3" => "",                     # U+E0E63 => 
+"\xF3\xA0\xB9\xA4" => "",                     # U+E0E64 => 
+"\xF3\xA0\xB9\xA5" => "",                     # U+E0E65 => 
+"\xF3\xA0\xB9\xA6" => "",                     # U+E0E66 => 
+"\xF3\xA0\xB9\xA7" => "",                     # U+E0E67 => 
+"\xF3\xA0\xB9\xA8" => "",                     # U+E0E68 => 
+"\xF3\xA0\xB9\xA9" => "",                     # U+E0E69 => 
+"\xF3\xA0\xB9\xAA" => "",                     # U+E0E6A => 
+"\xF3\xA0\xB9\xAB" => "",                     # U+E0E6B => 
+"\xF3\xA0\xB9\xAC" => "",                     # U+E0E6C => 
+"\xF3\xA0\xB9\xAD" => "",                     # U+E0E6D => 
+"\xF3\xA0\xB9\xAE" => "",                     # U+E0E6E => 
+"\xF3\xA0\xB9\xAF" => "",                     # U+E0E6F => 
+"\xF3\xA0\xB9\xB0" => "",                     # U+E0E70 => 
+"\xF3\xA0\xB9\xB1" => "",                     # U+E0E71 => 
+"\xF3\xA0\xB9\xB2" => "",                     # U+E0E72 => 
+"\xF3\xA0\xB9\xB3" => "",                     # U+E0E73 => 
+"\xF3\xA0\xB9\xB4" => "",                     # U+E0E74 => 
+"\xF3\xA0\xB9\xB5" => "",                     # U+E0E75 => 
+"\xF3\xA0\xB9\xB6" => "",                     # U+E0E76 => 
+"\xF3\xA0\xB9\xB7" => "",                     # U+E0E77 => 
+"\xF3\xA0\xB9\xB8" => "",                     # U+E0E78 => 
+"\xF3\xA0\xB9\xB9" => "",                     # U+E0E79 => 
+"\xF3\xA0\xB9\xBA" => "",                     # U+E0E7A => 
+"\xF3\xA0\xB9\xBB" => "",                     # U+E0E7B => 
+"\xF3\xA0\xB9\xBC" => "",                     # U+E0E7C => 
+"\xF3\xA0\xB9\xBD" => "",                     # U+E0E7D => 
+"\xF3\xA0\xB9\xBE" => "",                     # U+E0E7E => 
+"\xF3\xA0\xB9\xBF" => "",                     # U+E0E7F => 
+"\xF3\xA0\xBA\x80" => "",                     # U+E0E80 => 
+"\xF3\xA0\xBA\x81" => "",                     # U+E0E81 => 
+"\xF3\xA0\xBA\x82" => "",                     # U+E0E82 => 
+"\xF3\xA0\xBA\x83" => "",                     # U+E0E83 => 
+"\xF3\xA0\xBA\x84" => "",                     # U+E0E84 => 
+"\xF3\xA0\xBA\x85" => "",                     # U+E0E85 => 
+"\xF3\xA0\xBA\x86" => "",                     # U+E0E86 => 
+"\xF3\xA0\xBA\x87" => "",                     # U+E0E87 => 
+"\xF3\xA0\xBA\x88" => "",                     # U+E0E88 => 
+"\xF3\xA0\xBA\x89" => "",                     # U+E0E89 => 
+"\xF3\xA0\xBA\x8A" => "",                     # U+E0E8A => 
+"\xF3\xA0\xBA\x8B" => "",                     # U+E0E8B => 
+"\xF3\xA0\xBA\x8C" => "",                     # U+E0E8C => 
+"\xF3\xA0\xBA\x8D" => "",                     # U+E0E8D => 
+"\xF3\xA0\xBA\x8E" => "",                     # U+E0E8E => 
+"\xF3\xA0\xBA\x8F" => "",                     # U+E0E8F => 
+"\xF3\xA0\xBA\x90" => "",                     # U+E0E90 => 
+"\xF3\xA0\xBA\x91" => "",                     # U+E0E91 => 
+"\xF3\xA0\xBA\x92" => "",                     # U+E0E92 => 
+"\xF3\xA0\xBA\x93" => "",                     # U+E0E93 => 
+"\xF3\xA0\xBA\x94" => "",                     # U+E0E94 => 
+"\xF3\xA0\xBA\x95" => "",                     # U+E0E95 => 
+"\xF3\xA0\xBA\x96" => "",                     # U+E0E96 => 
+"\xF3\xA0\xBA\x97" => "",                     # U+E0E97 => 
+"\xF3\xA0\xBA\x98" => "",                     # U+E0E98 => 
+"\xF3\xA0\xBA\x99" => "",                     # U+E0E99 => 
+"\xF3\xA0\xBA\x9A" => "",                     # U+E0E9A => 
+"\xF3\xA0\xBA\x9B" => "",                     # U+E0E9B => 
+"\xF3\xA0\xBA\x9C" => "",                     # U+E0E9C => 
+"\xF3\xA0\xBA\x9D" => "",                     # U+E0E9D => 
+"\xF3\xA0\xBA\x9E" => "",                     # U+E0E9E => 
+"\xF3\xA0\xBA\x9F" => "",                     # U+E0E9F => 
+"\xF3\xA0\xBA\xA0" => "",                     # U+E0EA0 => 
+"\xF3\xA0\xBA\xA1" => "",                     # U+E0EA1 => 
+"\xF3\xA0\xBA\xA2" => "",                     # U+E0EA2 => 
+"\xF3\xA0\xBA\xA3" => "",                     # U+E0EA3 => 
+"\xF3\xA0\xBA\xA4" => "",                     # U+E0EA4 => 
+"\xF3\xA0\xBA\xA5" => "",                     # U+E0EA5 => 
+"\xF3\xA0\xBA\xA6" => "",                     # U+E0EA6 => 
+"\xF3\xA0\xBA\xA7" => "",                     # U+E0EA7 => 
+"\xF3\xA0\xBA\xA8" => "",                     # U+E0EA8 => 
+"\xF3\xA0\xBA\xA9" => "",                     # U+E0EA9 => 
+"\xF3\xA0\xBA\xAA" => "",                     # U+E0EAA => 
+"\xF3\xA0\xBA\xAB" => "",                     # U+E0EAB => 
+"\xF3\xA0\xBA\xAC" => "",                     # U+E0EAC => 
+"\xF3\xA0\xBA\xAD" => "",                     # U+E0EAD => 
+"\xF3\xA0\xBA\xAE" => "",                     # U+E0EAE => 
+"\xF3\xA0\xBA\xAF" => "",                     # U+E0EAF => 
+"\xF3\xA0\xBA\xB0" => "",                     # U+E0EB0 => 
+"\xF3\xA0\xBA\xB1" => "",                     # U+E0EB1 => 
+"\xF3\xA0\xBA\xB2" => "",                     # U+E0EB2 => 
+"\xF3\xA0\xBA\xB3" => "",                     # U+E0EB3 => 
+"\xF3\xA0\xBA\xB4" => "",                     # U+E0EB4 => 
+"\xF3\xA0\xBA\xB5" => "",                     # U+E0EB5 => 
+"\xF3\xA0\xBA\xB6" => "",                     # U+E0EB6 => 
+"\xF3\xA0\xBA\xB7" => "",                     # U+E0EB7 => 
+"\xF3\xA0\xBA\xB8" => "",                     # U+E0EB8 => 
+"\xF3\xA0\xBA\xB9" => "",                     # U+E0EB9 => 
+"\xF3\xA0\xBA\xBA" => "",                     # U+E0EBA => 
+"\xF3\xA0\xBA\xBB" => "",                     # U+E0EBB => 
+"\xF3\xA0\xBA\xBC" => "",                     # U+E0EBC => 
+"\xF3\xA0\xBA\xBD" => "",                     # U+E0EBD => 
+"\xF3\xA0\xBA\xBE" => "",                     # U+E0EBE => 
+"\xF3\xA0\xBA\xBF" => "",                     # U+E0EBF => 
+"\xF3\xA0\xBB\x80" => "",                     # U+E0EC0 => 
+"\xF3\xA0\xBB\x81" => "",                     # U+E0EC1 => 
+"\xF3\xA0\xBB\x82" => "",                     # U+E0EC2 => 
+"\xF3\xA0\xBB\x83" => "",                     # U+E0EC3 => 
+"\xF3\xA0\xBB\x84" => "",                     # U+E0EC4 => 
+"\xF3\xA0\xBB\x85" => "",                     # U+E0EC5 => 
+"\xF3\xA0\xBB\x86" => "",                     # U+E0EC6 => 
+"\xF3\xA0\xBB\x87" => "",                     # U+E0EC7 => 
+"\xF3\xA0\xBB\x88" => "",                     # U+E0EC8 => 
+"\xF3\xA0\xBB\x89" => "",                     # U+E0EC9 => 
+"\xF3\xA0\xBB\x8A" => "",                     # U+E0ECA => 
+"\xF3\xA0\xBB\x8B" => "",                     # U+E0ECB => 
+"\xF3\xA0\xBB\x8C" => "",                     # U+E0ECC => 
+"\xF3\xA0\xBB\x8D" => "",                     # U+E0ECD => 
+"\xF3\xA0\xBB\x8E" => "",                     # U+E0ECE => 
+"\xF3\xA0\xBB\x8F" => "",                     # U+E0ECF => 
+"\xF3\xA0\xBB\x90" => "",                     # U+E0ED0 => 
+"\xF3\xA0\xBB\x91" => "",                     # U+E0ED1 => 
+"\xF3\xA0\xBB\x92" => "",                     # U+E0ED2 => 
+"\xF3\xA0\xBB\x93" => "",                     # U+E0ED3 => 
+"\xF3\xA0\xBB\x94" => "",                     # U+E0ED4 => 
+"\xF3\xA0\xBB\x95" => "",                     # U+E0ED5 => 
+"\xF3\xA0\xBB\x96" => "",                     # U+E0ED6 => 
+"\xF3\xA0\xBB\x97" => "",                     # U+E0ED7 => 
+"\xF3\xA0\xBB\x98" => "",                     # U+E0ED8 => 
+"\xF3\xA0\xBB\x99" => "",                     # U+E0ED9 => 
+"\xF3\xA0\xBB\x9A" => "",                     # U+E0EDA => 
+"\xF3\xA0\xBB\x9B" => "",                     # U+E0EDB => 
+"\xF3\xA0\xBB\x9C" => "",                     # U+E0EDC => 
+"\xF3\xA0\xBB\x9D" => "",                     # U+E0EDD => 
+"\xF3\xA0\xBB\x9E" => "",                     # U+E0EDE => 
+"\xF3\xA0\xBB\x9F" => "",                     # U+E0EDF => 
+"\xF3\xA0\xBB\xA0" => "",                     # U+E0EE0 => 
+"\xF3\xA0\xBB\xA1" => "",                     # U+E0EE1 => 
+"\xF3\xA0\xBB\xA2" => "",                     # U+E0EE2 => 
+"\xF3\xA0\xBB\xA3" => "",                     # U+E0EE3 => 
+"\xF3\xA0\xBB\xA4" => "",                     # U+E0EE4 => 
+"\xF3\xA0\xBB\xA5" => "",                     # U+E0EE5 => 
+"\xF3\xA0\xBB\xA6" => "",                     # U+E0EE6 => 
+"\xF3\xA0\xBB\xA7" => "",                     # U+E0EE7 => 
+"\xF3\xA0\xBB\xA8" => "",                     # U+E0EE8 => 
+"\xF3\xA0\xBB\xA9" => "",                     # U+E0EE9 => 
+"\xF3\xA0\xBB\xAA" => "",                     # U+E0EEA => 
+"\xF3\xA0\xBB\xAB" => "",                     # U+E0EEB => 
+"\xF3\xA0\xBB\xAC" => "",                     # U+E0EEC => 
+"\xF3\xA0\xBB\xAD" => "",                     # U+E0EED => 
+"\xF3\xA0\xBB\xAE" => "",                     # U+E0EEE => 
+"\xF3\xA0\xBB\xAF" => "",                     # U+E0EEF => 
+"\xF3\xA0\xBB\xB0" => "",                     # U+E0EF0 => 
+"\xF3\xA0\xBB\xB1" => "",                     # U+E0EF1 => 
+"\xF3\xA0\xBB\xB2" => "",                     # U+E0EF2 => 
+"\xF3\xA0\xBB\xB3" => "",                     # U+E0EF3 => 
+"\xF3\xA0\xBB\xB4" => "",                     # U+E0EF4 => 
+"\xF3\xA0\xBB\xB5" => "",                     # U+E0EF5 => 
+"\xF3\xA0\xBB\xB6" => "",                     # U+E0EF6 => 
+"\xF3\xA0\xBB\xB7" => "",                     # U+E0EF7 => 
+"\xF3\xA0\xBB\xB8" => "",                     # U+E0EF8 => 
+"\xF3\xA0\xBB\xB9" => "",                     # U+E0EF9 => 
+"\xF3\xA0\xBB\xBA" => "",                     # U+E0EFA => 
+"\xF3\xA0\xBB\xBB" => "",                     # U+E0EFB => 
+"\xF3\xA0\xBB\xBC" => "",                     # U+E0EFC => 
+"\xF3\xA0\xBB\xBD" => "",                     # U+E0EFD => 
+"\xF3\xA0\xBB\xBE" => "",                     # U+E0EFE => 
+"\xF3\xA0\xBB\xBF" => "",                     # U+E0EFF => 
+"\xF3\xA0\xBC\x80" => "",                     # U+E0F00 => 
+"\xF3\xA0\xBC\x81" => "",                     # U+E0F01 => 
+"\xF3\xA0\xBC\x82" => "",                     # U+E0F02 => 
+"\xF3\xA0\xBC\x83" => "",                     # U+E0F03 => 
+"\xF3\xA0\xBC\x84" => "",                     # U+E0F04 => 
+"\xF3\xA0\xBC\x85" => "",                     # U+E0F05 => 
+"\xF3\xA0\xBC\x86" => "",                     # U+E0F06 => 
+"\xF3\xA0\xBC\x87" => "",                     # U+E0F07 => 
+"\xF3\xA0\xBC\x88" => "",                     # U+E0F08 => 
+"\xF3\xA0\xBC\x89" => "",                     # U+E0F09 => 
+"\xF3\xA0\xBC\x8A" => "",                     # U+E0F0A => 
+"\xF3\xA0\xBC\x8B" => "",                     # U+E0F0B => 
+"\xF3\xA0\xBC\x8C" => "",                     # U+E0F0C => 
+"\xF3\xA0\xBC\x8D" => "",                     # U+E0F0D => 
+"\xF3\xA0\xBC\x8E" => "",                     # U+E0F0E => 
+"\xF3\xA0\xBC\x8F" => "",                     # U+E0F0F => 
+"\xF3\xA0\xBC\x90" => "",                     # U+E0F10 => 
+"\xF3\xA0\xBC\x91" => "",                     # U+E0F11 => 
+"\xF3\xA0\xBC\x92" => "",                     # U+E0F12 => 
+"\xF3\xA0\xBC\x93" => "",                     # U+E0F13 => 
+"\xF3\xA0\xBC\x94" => "",                     # U+E0F14 => 
+"\xF3\xA0\xBC\x95" => "",                     # U+E0F15 => 
+"\xF3\xA0\xBC\x96" => "",                     # U+E0F16 => 
+"\xF3\xA0\xBC\x97" => "",                     # U+E0F17 => 
+"\xF3\xA0\xBC\x98" => "",                     # U+E0F18 => 
+"\xF3\xA0\xBC\x99" => "",                     # U+E0F19 => 
+"\xF3\xA0\xBC\x9A" => "",                     # U+E0F1A => 
+"\xF3\xA0\xBC\x9B" => "",                     # U+E0F1B => 
+"\xF3\xA0\xBC\x9C" => "",                     # U+E0F1C => 
+"\xF3\xA0\xBC\x9D" => "",                     # U+E0F1D => 
+"\xF3\xA0\xBC\x9E" => "",                     # U+E0F1E => 
+"\xF3\xA0\xBC\x9F" => "",                     # U+E0F1F => 
+"\xF3\xA0\xBC\xA0" => "",                     # U+E0F20 => 
+"\xF3\xA0\xBC\xA1" => "",                     # U+E0F21 => 
+"\xF3\xA0\xBC\xA2" => "",                     # U+E0F22 => 
+"\xF3\xA0\xBC\xA3" => "",                     # U+E0F23 => 
+"\xF3\xA0\xBC\xA4" => "",                     # U+E0F24 => 
+"\xF3\xA0\xBC\xA5" => "",                     # U+E0F25 => 
+"\xF3\xA0\xBC\xA6" => "",                     # U+E0F26 => 
+"\xF3\xA0\xBC\xA7" => "",                     # U+E0F27 => 
+"\xF3\xA0\xBC\xA8" => "",                     # U+E0F28 => 
+"\xF3\xA0\xBC\xA9" => "",                     # U+E0F29 => 
+"\xF3\xA0\xBC\xAA" => "",                     # U+E0F2A => 
+"\xF3\xA0\xBC\xAB" => "",                     # U+E0F2B => 
+"\xF3\xA0\xBC\xAC" => "",                     # U+E0F2C => 
+"\xF3\xA0\xBC\xAD" => "",                     # U+E0F2D => 
+"\xF3\xA0\xBC\xAE" => "",                     # U+E0F2E => 
+"\xF3\xA0\xBC\xAF" => "",                     # U+E0F2F => 
+"\xF3\xA0\xBC\xB0" => "",                     # U+E0F30 => 
+"\xF3\xA0\xBC\xB1" => "",                     # U+E0F31 => 
+"\xF3\xA0\xBC\xB2" => "",                     # U+E0F32 => 
+"\xF3\xA0\xBC\xB3" => "",                     # U+E0F33 => 
+"\xF3\xA0\xBC\xB4" => "",                     # U+E0F34 => 
+"\xF3\xA0\xBC\xB5" => "",                     # U+E0F35 => 
+"\xF3\xA0\xBC\xB6" => "",                     # U+E0F36 => 
+"\xF3\xA0\xBC\xB7" => "",                     # U+E0F37 => 
+"\xF3\xA0\xBC\xB8" => "",                     # U+E0F38 => 
+"\xF3\xA0\xBC\xB9" => "",                     # U+E0F39 => 
+"\xF3\xA0\xBC\xBA" => "",                     # U+E0F3A => 
+"\xF3\xA0\xBC\xBB" => "",                     # U+E0F3B => 
+"\xF3\xA0\xBC\xBC" => "",                     # U+E0F3C => 
+"\xF3\xA0\xBC\xBD" => "",                     # U+E0F3D => 
+"\xF3\xA0\xBC\xBE" => "",                     # U+E0F3E => 
+"\xF3\xA0\xBC\xBF" => "",                     # U+E0F3F => 
+"\xF3\xA0\xBD\x80" => "",                     # U+E0F40 => 
+"\xF3\xA0\xBD\x81" => "",                     # U+E0F41 => 
+"\xF3\xA0\xBD\x82" => "",                     # U+E0F42 => 
+"\xF3\xA0\xBD\x83" => "",                     # U+E0F43 => 
+"\xF3\xA0\xBD\x84" => "",                     # U+E0F44 => 
+"\xF3\xA0\xBD\x85" => "",                     # U+E0F45 => 
+"\xF3\xA0\xBD\x86" => "",                     # U+E0F46 => 
+"\xF3\xA0\xBD\x87" => "",                     # U+E0F47 => 
+"\xF3\xA0\xBD\x88" => "",                     # U+E0F48 => 
+"\xF3\xA0\xBD\x89" => "",                     # U+E0F49 => 
+"\xF3\xA0\xBD\x8A" => "",                     # U+E0F4A => 
+"\xF3\xA0\xBD\x8B" => "",                     # U+E0F4B => 
+"\xF3\xA0\xBD\x8C" => "",                     # U+E0F4C => 
+"\xF3\xA0\xBD\x8D" => "",                     # U+E0F4D => 
+"\xF3\xA0\xBD\x8E" => "",                     # U+E0F4E => 
+"\xF3\xA0\xBD\x8F" => "",                     # U+E0F4F => 
+"\xF3\xA0\xBD\x90" => "",                     # U+E0F50 => 
+"\xF3\xA0\xBD\x91" => "",                     # U+E0F51 => 
+"\xF3\xA0\xBD\x92" => "",                     # U+E0F52 => 
+"\xF3\xA0\xBD\x93" => "",                     # U+E0F53 => 
+"\xF3\xA0\xBD\x94" => "",                     # U+E0F54 => 
+"\xF3\xA0\xBD\x95" => "",                     # U+E0F55 => 
+"\xF3\xA0\xBD\x96" => "",                     # U+E0F56 => 
+"\xF3\xA0\xBD\x97" => "",                     # U+E0F57 => 
+"\xF3\xA0\xBD\x98" => "",                     # U+E0F58 => 
+"\xF3\xA0\xBD\x99" => "",                     # U+E0F59 => 
+"\xF3\xA0\xBD\x9A" => "",                     # U+E0F5A => 
+"\xF3\xA0\xBD\x9B" => "",                     # U+E0F5B => 
+"\xF3\xA0\xBD\x9C" => "",                     # U+E0F5C => 
+"\xF3\xA0\xBD\x9D" => "",                     # U+E0F5D => 
+"\xF3\xA0\xBD\x9E" => "",                     # U+E0F5E => 
+"\xF3\xA0\xBD\x9F" => "",                     # U+E0F5F => 
+"\xF3\xA0\xBD\xA0" => "",                     # U+E0F60 => 
+"\xF3\xA0\xBD\xA1" => "",                     # U+E0F61 => 
+"\xF3\xA0\xBD\xA2" => "",                     # U+E0F62 => 
+"\xF3\xA0\xBD\xA3" => "",                     # U+E0F63 => 
+"\xF3\xA0\xBD\xA4" => "",                     # U+E0F64 => 
+"\xF3\xA0\xBD\xA5" => "",                     # U+E0F65 => 
+"\xF3\xA0\xBD\xA6" => "",                     # U+E0F66 => 
+"\xF3\xA0\xBD\xA7" => "",                     # U+E0F67 => 
+"\xF3\xA0\xBD\xA8" => "",                     # U+E0F68 => 
+"\xF3\xA0\xBD\xA9" => "",                     # U+E0F69 => 
+"\xF3\xA0\xBD\xAA" => "",                     # U+E0F6A => 
+"\xF3\xA0\xBD\xAB" => "",                     # U+E0F6B => 
+"\xF3\xA0\xBD\xAC" => "",                     # U+E0F6C => 
+"\xF3\xA0\xBD\xAD" => "",                     # U+E0F6D => 
+"\xF3\xA0\xBD\xAE" => "",                     # U+E0F6E => 
+"\xF3\xA0\xBD\xAF" => "",                     # U+E0F6F => 
+"\xF3\xA0\xBD\xB0" => "",                     # U+E0F70 => 
+"\xF3\xA0\xBD\xB1" => "",                     # U+E0F71 => 
+"\xF3\xA0\xBD\xB2" => "",                     # U+E0F72 => 
+"\xF3\xA0\xBD\xB3" => "",                     # U+E0F73 => 
+"\xF3\xA0\xBD\xB4" => "",                     # U+E0F74 => 
+"\xF3\xA0\xBD\xB5" => "",                     # U+E0F75 => 
+"\xF3\xA0\xBD\xB6" => "",                     # U+E0F76 => 
+"\xF3\xA0\xBD\xB7" => "",                     # U+E0F77 => 
+"\xF3\xA0\xBD\xB8" => "",                     # U+E0F78 => 
+"\xF3\xA0\xBD\xB9" => "",                     # U+E0F79 => 
+"\xF3\xA0\xBD\xBA" => "",                     # U+E0F7A => 
+"\xF3\xA0\xBD\xBB" => "",                     # U+E0F7B => 
+"\xF3\xA0\xBD\xBC" => "",                     # U+E0F7C => 
+"\xF3\xA0\xBD\xBD" => "",                     # U+E0F7D => 
+"\xF3\xA0\xBD\xBE" => "",                     # U+E0F7E => 
+"\xF3\xA0\xBD\xBF" => "",                     # U+E0F7F => 
+"\xF3\xA0\xBE\x80" => "",                     # U+E0F80 => 
+"\xF3\xA0\xBE\x81" => "",                     # U+E0F81 => 
+"\xF3\xA0\xBE\x82" => "",                     # U+E0F82 => 
+"\xF3\xA0\xBE\x83" => "",                     # U+E0F83 => 
+"\xF3\xA0\xBE\x84" => "",                     # U+E0F84 => 
+"\xF3\xA0\xBE\x85" => "",                     # U+E0F85 => 
+"\xF3\xA0\xBE\x86" => "",                     # U+E0F86 => 
+"\xF3\xA0\xBE\x87" => "",                     # U+E0F87 => 
+"\xF3\xA0\xBE\x88" => "",                     # U+E0F88 => 
+"\xF3\xA0\xBE\x89" => "",                     # U+E0F89 => 
+"\xF3\xA0\xBE\x8A" => "",                     # U+E0F8A => 
+"\xF3\xA0\xBE\x8B" => "",                     # U+E0F8B => 
+"\xF3\xA0\xBE\x8C" => "",                     # U+E0F8C => 
+"\xF3\xA0\xBE\x8D" => "",                     # U+E0F8D => 
+"\xF3\xA0\xBE\x8E" => "",                     # U+E0F8E => 
+"\xF3\xA0\xBE\x8F" => "",                     # U+E0F8F => 
+"\xF3\xA0\xBE\x90" => "",                     # U+E0F90 => 
+"\xF3\xA0\xBE\x91" => "",                     # U+E0F91 => 
+"\xF3\xA0\xBE\x92" => "",                     # U+E0F92 => 
+"\xF3\xA0\xBE\x93" => "",                     # U+E0F93 => 
+"\xF3\xA0\xBE\x94" => "",                     # U+E0F94 => 
+"\xF3\xA0\xBE\x95" => "",                     # U+E0F95 => 
+"\xF3\xA0\xBE\x96" => "",                     # U+E0F96 => 
+"\xF3\xA0\xBE\x97" => "",                     # U+E0F97 => 
+"\xF3\xA0\xBE\x98" => "",                     # U+E0F98 => 
+"\xF3\xA0\xBE\x99" => "",                     # U+E0F99 => 
+"\xF3\xA0\xBE\x9A" => "",                     # U+E0F9A => 
+"\xF3\xA0\xBE\x9B" => "",                     # U+E0F9B => 
+"\xF3\xA0\xBE\x9C" => "",                     # U+E0F9C => 
+"\xF3\xA0\xBE\x9D" => "",                     # U+E0F9D => 
+"\xF3\xA0\xBE\x9E" => "",                     # U+E0F9E => 
+"\xF3\xA0\xBE\x9F" => "",                     # U+E0F9F => 
+"\xF3\xA0\xBE\xA0" => "",                     # U+E0FA0 => 
+"\xF3\xA0\xBE\xA1" => "",                     # U+E0FA1 => 
+"\xF3\xA0\xBE\xA2" => "",                     # U+E0FA2 => 
+"\xF3\xA0\xBE\xA3" => "",                     # U+E0FA3 => 
+"\xF3\xA0\xBE\xA4" => "",                     # U+E0FA4 => 
+"\xF3\xA0\xBE\xA5" => "",                     # U+E0FA5 => 
+"\xF3\xA0\xBE\xA6" => "",                     # U+E0FA6 => 
+"\xF3\xA0\xBE\xA7" => "",                     # U+E0FA7 => 
+"\xF3\xA0\xBE\xA8" => "",                     # U+E0FA8 => 
+"\xF3\xA0\xBE\xA9" => "",                     # U+E0FA9 => 
+"\xF3\xA0\xBE\xAA" => "",                     # U+E0FAA => 
+"\xF3\xA0\xBE\xAB" => "",                     # U+E0FAB => 
+"\xF3\xA0\xBE\xAC" => "",                     # U+E0FAC => 
+"\xF3\xA0\xBE\xAD" => "",                     # U+E0FAD => 
+"\xF3\xA0\xBE\xAE" => "",                     # U+E0FAE => 
+"\xF3\xA0\xBE\xAF" => "",                     # U+E0FAF => 
+"\xF3\xA0\xBE\xB0" => "",                     # U+E0FB0 => 
+"\xF3\xA0\xBE\xB1" => "",                     # U+E0FB1 => 
+"\xF3\xA0\xBE\xB2" => "",                     # U+E0FB2 => 
+"\xF3\xA0\xBE\xB3" => "",                     # U+E0FB3 => 
+"\xF3\xA0\xBE\xB4" => "",                     # U+E0FB4 => 
+"\xF3\xA0\xBE\xB5" => "",                     # U+E0FB5 => 
+"\xF3\xA0\xBE\xB6" => "",                     # U+E0FB6 => 
+"\xF3\xA0\xBE\xB7" => "",                     # U+E0FB7 => 
+"\xF3\xA0\xBE\xB8" => "",                     # U+E0FB8 => 
+"\xF3\xA0\xBE\xB9" => "",                     # U+E0FB9 => 
+"\xF3\xA0\xBE\xBA" => "",                     # U+E0FBA => 
+"\xF3\xA0\xBE\xBB" => "",                     # U+E0FBB => 
+"\xF3\xA0\xBE\xBC" => "",                     # U+E0FBC => 
+"\xF3\xA0\xBE\xBD" => "",                     # U+E0FBD => 
+"\xF3\xA0\xBE\xBE" => "",                     # U+E0FBE => 
+"\xF3\xA0\xBE\xBF" => "",                     # U+E0FBF => 
+"\xF3\xA0\xBF\x80" => "",                     # U+E0FC0 => 
+"\xF3\xA0\xBF\x81" => "",                     # U+E0FC1 => 
+"\xF3\xA0\xBF\x82" => "",                     # U+E0FC2 => 
+"\xF3\xA0\xBF\x83" => "",                     # U+E0FC3 => 
+"\xF3\xA0\xBF\x84" => "",                     # U+E0FC4 => 
+"\xF3\xA0\xBF\x85" => "",                     # U+E0FC5 => 
+"\xF3\xA0\xBF\x86" => "",                     # U+E0FC6 => 
+"\xF3\xA0\xBF\x87" => "",                     # U+E0FC7 => 
+"\xF3\xA0\xBF\x88" => "",                     # U+E0FC8 => 
+"\xF3\xA0\xBF\x89" => "",                     # U+E0FC9 => 
+"\xF3\xA0\xBF\x8A" => "",                     # U+E0FCA => 
+"\xF3\xA0\xBF\x8B" => "",                     # U+E0FCB => 
+"\xF3\xA0\xBF\x8C" => "",                     # U+E0FCC => 
+"\xF3\xA0\xBF\x8D" => "",                     # U+E0FCD => 
+"\xF3\xA0\xBF\x8E" => "",                     # U+E0FCE => 
+"\xF3\xA0\xBF\x8F" => "",                     # U+E0FCF => 
+"\xF3\xA0\xBF\x90" => "",                     # U+E0FD0 => 
+"\xF3\xA0\xBF\x91" => "",                     # U+E0FD1 => 
+"\xF3\xA0\xBF\x92" => "",                     # U+E0FD2 => 
+"\xF3\xA0\xBF\x93" => "",                     # U+E0FD3 => 
+"\xF3\xA0\xBF\x94" => "",                     # U+E0FD4 => 
+"\xF3\xA0\xBF\x95" => "",                     # U+E0FD5 => 
+"\xF3\xA0\xBF\x96" => "",                     # U+E0FD6 => 
+"\xF3\xA0\xBF\x97" => "",                     # U+E0FD7 => 
+"\xF3\xA0\xBF\x98" => "",                     # U+E0FD8 => 
+"\xF3\xA0\xBF\x99" => "",                     # U+E0FD9 => 
+"\xF3\xA0\xBF\x9A" => "",                     # U+E0FDA => 
+"\xF3\xA0\xBF\x9B" => "",                     # U+E0FDB => 
+"\xF3\xA0\xBF\x9C" => "",                     # U+E0FDC => 
+"\xF3\xA0\xBF\x9D" => "",                     # U+E0FDD => 
+"\xF3\xA0\xBF\x9E" => "",                     # U+E0FDE => 
+"\xF3\xA0\xBF\x9F" => "",                     # U+E0FDF => 
+"\xF3\xA0\xBF\xA0" => "",                     # U+E0FE0 => 
+"\xF3\xA0\xBF\xA1" => "",                     # U+E0FE1 => 
+"\xF3\xA0\xBF\xA2" => "",                     # U+E0FE2 => 
+"\xF3\xA0\xBF\xA3" => "",                     # U+E0FE3 => 
+"\xF3\xA0\xBF\xA4" => "",                     # U+E0FE4 => 
+"\xF3\xA0\xBF\xA5" => "",                     # U+E0FE5 => 
+"\xF3\xA0\xBF\xA6" => "",                     # U+E0FE6 => 
+"\xF3\xA0\xBF\xA7" => "",                     # U+E0FE7 => 
+"\xF3\xA0\xBF\xA8" => "",                     # U+E0FE8 => 
+"\xF3\xA0\xBF\xA9" => "",                     # U+E0FE9 => 
+"\xF3\xA0\xBF\xAA" => "",                     # U+E0FEA => 
+"\xF3\xA0\xBF\xAB" => "",                     # U+E0FEB => 
+"\xF3\xA0\xBF\xAC" => "",                     # U+E0FEC => 
+"\xF3\xA0\xBF\xAD" => "",                     # U+E0FED => 
+"\xF3\xA0\xBF\xAE" => "",                     # U+E0FEE => 
+"\xF3\xA0\xBF\xAF" => "",                     # U+E0FEF => 
+"\xF3\xA0\xBF\xB0" => "",                     # U+E0FF0 => 
+"\xF3\xA0\xBF\xB1" => "",                     # U+E0FF1 => 
+"\xF3\xA0\xBF\xB2" => "",                     # U+E0FF2 => 
+"\xF3\xA0\xBF\xB3" => "",                     # U+E0FF3 => 
+"\xF3\xA0\xBF\xB4" => "",                     # U+E0FF4 => 
+"\xF3\xA0\xBF\xB5" => "",                     # U+E0FF5 => 
+"\xF3\xA0\xBF\xB6" => "",                     # U+E0FF6 => 
+"\xF3\xA0\xBF\xB7" => "",                     # U+E0FF7 => 
+"\xF3\xA0\xBF\xB8" => "",                     # U+E0FF8 => 
+"\xF3\xA0\xBF\xB9" => "",                     # U+E0FF9 => 
+"\xF3\xA0\xBF\xBA" => "",                     # U+E0FFA => 
+"\xF3\xA0\xBF\xBB" => "",                     # U+E0FFB => 
+"\xF3\xA0\xBF\xBC" => "",                     # U+E0FFC => 
+"\xF3\xA0\xBF\xBD" => "",                     # U+E0FFD => 
+"\xF3\xA0\xBF\xBE" => "",                     # U+E0FFE => 
+"\xF3\xA0\xBF\xBF" => "",                     # U+E0FFF => 
+);
+
+return <<'END';
+0041		0061
+0042		0062
+0043		0063
+0044		0064
+0045		0065
+0046		0066
+0047		0067
+0048		0068
+0049		0069
+004A		006A
+004B		006B
+004C		006C
+004D		006D
+004E		006E
+004F		006F
+0050		0070
+0051		0071
+0052		0072
+0053		0073
+0054		0074
+0055		0075
+0056		0076
+0057		0077
+0058		0078
+0059		0079
+005A		007A
+00A0		0020
+00AA		0061
+00B2		0032
+00B3		0033
+00B5		03BC
+00B9		0031
+00BA		006F
+00C0		00E0
+00C1		00E1
+00C2		00E2
+00C3		00E3
+00C4		00E4
+00C5		00E5
+00C6		00E6
+00C7		00E7
+00C8		00E8
+00C9		00E9
+00CA		00EA
+00CB		00EB
+00CC		00EC
+00CD		00ED
+00CE		00EE
+00CF		00EF
+00D0		00F0
+00D1		00F1
+00D2		00F2
+00D3		00F3
+00D4		00F4
+00D5		00F5
+00D6		00F6
+00D8		00F8
+00D9		00F9
+00DA		00FA
+00DB		00FB
+00DC		00FC
+00DD		00FD
+00DE		00FE
+0100		0101
+0102		0103
+0104		0105
+0106		0107
+0108		0109
+010A		010B
+010C		010D
+010E		010F
+0110		0111
+0112		0113
+0114		0115
+0116		0117
+0118		0119
+011A		011B
+011C		011D
+011E		011F
+0120		0121
+0122		0123
+0124		0125
+0126		0127
+0128		0129
+012A		012B
+012C		012D
+012E		012F
+0134		0135
+0136		0137
+0139		013A
+013B		013C
+013D		013E
+0141		0142
+0143		0144
+0145		0146
+0147		0148
+014A		014B
+014C		014D
+014E		014F
+0150		0151
+0152		0153
+0154		0155
+0156		0157
+0158		0159
+015A		015B
+015C		015D
+015E		015F
+0160		0161
+0162		0163
+0164		0165
+0166		0167
+0168		0169
+016A		016B
+016C		016D
+016E		016F
+0170		0171
+0172		0173
+0174		0175
+0176		0177
+0178		00FF
+0179		017A
+017B		017C
+017D		017E
+017F		0073
+0181		0253
+0182		0183
+0184		0185
+0186		0254
+0187		0188
+0189		0256
+018A		0257
+018B		018C
+018E		01DD
+018F		0259
+0190		025B
+0191		0192
+0193		0260
+0194		0263
+0196		0269
+0197		0268
+0198		0199
+019C		026F
+019D		0272
+019F		0275
+01A0		01A1
+01A2		01A3
+01A4		01A5
+01A6		0280
+01A7		01A8
+01A9		0283
+01AC		01AD
+01AE		0288
+01AF		01B0
+01B1		028A
+01B2		028B
+01B3		01B4
+01B5		01B6
+01B7		0292
+01B8		01B9
+01BC		01BD
+01CD		01CE
+01CF		01D0
+01D1		01D2
+01D3		01D4
+01D5		01D6
+01D7		01D8
+01D9		01DA
+01DB		01DC
+01DE		01DF
+01E0		01E1
+01E2		01E3
+01E4		01E5
+01E6		01E7
+01E8		01E9
+01EA		01EB
+01EC		01ED
+01EE		01EF
+01F4		01F5
+01F6		0195
+01F7		01BF
+01F8		01F9
+01FA		01FB
+01FC		01FD
+01FE		01FF
+0200		0201
+0202		0203
+0204		0205
+0206		0207
+0208		0209
+020A		020B
+020C		020D
+020E		020F
+0210		0211
+0212		0213
+0214		0215
+0216		0217
+0218		0219
+021A		021B
+021C		021D
+021E		021F
+0220		019E
+0222		0223
+0224		0225
+0226		0227
+0228		0229
+022A		022B
+022C		022D
+022E		022F
+0230		0231
+0232		0233
+023A		2C65
+023B		023C
+023D		019A
+023E		2C66
+0241		0242
+0243		0180
+0244		0289
+0245		028C
+0246		0247
+0248		0249
+024A		024B
+024C		024D
+024E		024F
+02B0		0068
+02B1		0266
+02B2		006A
+02B3		0072
+02B4		0279
+02B5		027B
+02B6		0281
+02B7		0077
+02B8		0079
+02E0		0263
+02E1		006C
+02E2		0073
+02E3		0078
+02E4		0295
+0340		0300
+0341		0301
+0343		0313
+0345		03B9
+0370		0371
+0372		0373
+0374		02B9
+0376		0377
+037E		003B
+037F		03F3
+0386		03AC
+0387		00B7
+0388		03AD
+0389		03AE
+038A		03AF
+038C		03CC
+038E		03CD
+038F		03CE
+0391		03B1
+0392		03B2
+0393		03B3
+0394		03B4
+0395		03B5
+0396		03B6
+0397		03B7
+0398		03B8
+0399		03B9
+039A		03BA
+039B		03BB
+039C		03BC
+039D		03BD
+039E		03BE
+039F		03BF
+03A0		03C0
+03A1		03C1
+03A3		03C3
+03A4		03C4
+03A5		03C5
+03A6		03C6
+03A7		03C7
+03A8		03C8
+03A9		03C9
+03AA		03CA
+03AB		03CB
+03C2		03C3
+03CF		03D7
+03D0		03B2
+03D1		03B8
+03D2		03C5
+03D3		03CD
+03D4		03CB
+03D5		03C6
+03D6		03C0
+03D8		03D9
+03DA		03DB
+03DC		03DD
+03DE		03DF
+03E0		03E1
+03E2		03E3
+03E4		03E5
+03E6		03E7
+03E8		03E9
+03EA		03EB
+03EC		03ED
+03EE		03EF
+03F0		03BA
+03F1		03C1
+03F2		03C3
+03F4		03B8
+03F5		03B5
+03F7		03F8
+03F9		03C3
+03FA		03FB
+03FD		037B
+03FE		037C
+03FF		037D
+0400		0450
+0401		0451
+0402		0452
+0403		0453
+0404		0454
+0405		0455
+0406		0456
+0407		0457
+0408		0458
+0409		0459
+040A		045A
+040B		045B
+040C		045C
+040D		045D
+040E		045E
+040F		045F
+0410		0430
+0411		0431
+0412		0432
+0413		0433
+0414		0434
+0415		0435
+0416		0436
+0417		0437
+0418		0438
+0419		0439
+041A		043A
+041B		043B
+041C		043C
+041D		043D
+041E		043E
+041F		043F
+0420		0440
+0421		0441
+0422		0442
+0423		0443
+0424		0444
+0425		0445
+0426		0446
+0427		0447
+0428		0448
+0429		0449
+042A		044A
+042B		044B
+042C		044C
+042D		044D
+042E		044E
+042F		044F
+0460		0461
+0462		0463
+0464		0465
+0466		0467
+0468		0469
+046A		046B
+046C		046D
+046E		046F
+0470		0471
+0472		0473
+0474		0475
+0476		0477
+0478		0479
+047A		047B
+047C		047D
+047E		047F
+0480		0481
+048A		048B
+048C		048D
+048E		048F
+0490		0491
+0492		0493
+0494		0495
+0496		0497
+0498		0499
+049A		049B
+049C		049D
+049E		049F
+04A0		04A1
+04A2		04A3
+04A4		04A5
+04A6		04A7
+04A8		04A9
+04AA		04AB
+04AC		04AD
+04AE		04AF
+04B0		04B1
+04B2		04B3
+04B4		04B5
+04B6		04B7
+04B8		04B9
+04BA		04BB
+04BC		04BD
+04BE		04BF
+04C0		04CF
+04C1		04C2
+04C3		04C4
+04C5		04C6
+04C7		04C8
+04C9		04CA
+04CB		04CC
+04CD		04CE
+04D0		04D1
+04D2		04D3
+04D4		04D5
+04D6		04D7
+04D8		04D9
+04DA		04DB
+04DC		04DD
+04DE		04DF
+04E0		04E1
+04E2		04E3
+04E4		04E5
+04E6		04E7
+04E8		04E9
+04EA		04EB
+04EC		04ED
+04EE		04EF
+04F0		04F1
+04F2		04F3
+04F4		04F5
+04F6		04F7
+04F8		04F9
+04FA		04FB
+04FC		04FD
+04FE		04FF
+0500		0501
+0502		0503
+0504		0505
+0506		0507
+0508		0509
+050A		050B
+050C		050D
+050E		050F
+0510		0511
+0512		0513
+0514		0515
+0516		0517
+0518		0519
+051A		051B
+051C		051D
+051E		051F
+0520		0521
+0522		0523
+0524		0525
+0526		0527
+0528		0529
+052A		052B
+052C		052D
+052E		052F
+0531		0561
+0532		0562
+0533		0563
+0534		0564
+0535		0565
+0536		0566
+0537		0567
+0538		0568
+0539		0569
+053A		056A
+053B		056B
+053C		056C
+053D		056D
+053E		056E
+053F		056F
+0540		0570
+0541		0571
+0542		0572
+0543		0573
+0544		0574
+0545		0575
+0546		0576
+0547		0577
+0548		0578
+0549		0579
+054A		057A
+054B		057B
+054C		057C
+054D		057D
+054E		057E
+054F		057F
+0550		0580
+0551		0581
+0552		0582
+0553		0583
+0554		0584
+0555		0585
+0556		0586
+0F0C		0F0B
+10A0		2D00
+10A1		2D01
+10A2		2D02
+10A3		2D03
+10A4		2D04
+10A5		2D05
+10A6		2D06
+10A7		2D07
+10A8		2D08
+10A9		2D09
+10AA		2D0A
+10AB		2D0B
+10AC		2D0C
+10AD		2D0D
+10AE		2D0E
+10AF		2D0F
+10B0		2D10
+10B1		2D11
+10B2		2D12
+10B3		2D13
+10B4		2D14
+10B5		2D15
+10B6		2D16
+10B7		2D17
+10B8		2D18
+10B9		2D19
+10BA		2D1A
+10BB		2D1B
+10BC		2D1C
+10BD		2D1D
+10BE		2D1E
+10BF		2D1F
+10C0		2D20
+10C1		2D21
+10C2		2D22
+10C3		2D23
+10C4		2D24
+10C5		2D25
+10C7		2D27
+10CD		2D2D
+10FC		10DC
+13F8		13F0
+13F9		13F1
+13FA		13F2
+13FB		13F3
+13FC		13F4
+13FD		13F5
+1D2C		0061
+1D2D		00E6
+1D2E		0062
+1D30		0064
+1D31		0065
+1D32		01DD
+1D33		0067
+1D34		0068
+1D35		0069
+1D36		006A
+1D37		006B
+1D38		006C
+1D39		006D
+1D3A		006E
+1D3C		006F
+1D3D		0223
+1D3E		0070
+1D3F		0072
+1D40		0074
+1D41		0075
+1D42		0077
+1D43		0061
+1D44		0250
+1D45		0251
+1D46		1D02
+1D47		0062
+1D48		0064
+1D49		0065
+1D4A		0259
+1D4B		025B
+1D4C		025C
+1D4D		0067
+1D4F		006B
+1D50		006D
+1D51		014B
+1D52		006F
+1D53		0254
+1D54		1D16
+1D55		1D17
+1D56		0070
+1D57		0074
+1D58		0075
+1D59		1D1D
+1D5A		026F
+1D5B		0076
+1D5C		1D25
+1D5D		03B2
+1D5E		03B3
+1D5F		03B4
+1D60		03C6
+1D61		03C7
+1D62		0069
+1D63		0072
+1D64		0075
+1D65		0076
+1D66		03B2
+1D67		03B3
+1D68		03C1
+1D69		03C6
+1D6A		03C7
+1D78		043D
+1D9B		0252
+1D9C		0063
+1D9D		0255
+1D9E		00F0
+1D9F		025C
+1DA0		0066
+1DA1		025F
+1DA2		0261
+1DA3		0265
+1DA4		0268
+1DA5		0269
+1DA6		026A
+1DA7		1D7B
+1DA8		029D
+1DA9		026D
+1DAA		1D85
+1DAB		029F
+1DAC		0271
+1DAD		0270
+1DAE		0272
+1DAF		0273
+1DB0		0274
+1DB1		0275
+1DB2		0278
+1DB3		0282
+1DB4		0283
+1DB5		01AB
+1DB6		0289
+1DB7		028A
+1DB8		1D1C
+1DB9		028B
+1DBA		028C
+1DBB		007A
+1DBC		0290
+1DBD		0291
+1DBE		0292
+1DBF		03B8
+1E00		1E01
+1E02		1E03
+1E04		1E05
+1E06		1E07
+1E08		1E09
+1E0A		1E0B
+1E0C		1E0D
+1E0E		1E0F
+1E10		1E11
+1E12		1E13
+1E14		1E15
+1E16		1E17
+1E18		1E19
+1E1A		1E1B
+1E1C		1E1D
+1E1E		1E1F
+1E20		1E21
+1E22		1E23
+1E24		1E25
+1E26		1E27
+1E28		1E29
+1E2A		1E2B
+1E2C		1E2D
+1E2E		1E2F
+1E30		1E31
+1E32		1E33
+1E34		1E35
+1E36		1E37
+1E38		1E39
+1E3A		1E3B
+1E3C		1E3D
+1E3E		1E3F
+1E40		1E41
+1E42		1E43
+1E44		1E45
+1E46		1E47
+1E48		1E49
+1E4A		1E4B
+1E4C		1E4D
+1E4E		1E4F
+1E50		1E51
+1E52		1E53
+1E54		1E55
+1E56		1E57
+1E58		1E59
+1E5A		1E5B
+1E5C		1E5D
+1E5E		1E5F
+1E60		1E61
+1E62		1E63
+1E64		1E65
+1E66		1E67
+1E68		1E69
+1E6A		1E6B
+1E6C		1E6D
+1E6E		1E6F
+1E70		1E71
+1E72		1E73
+1E74		1E75
+1E76		1E77
+1E78		1E79
+1E7A		1E7B
+1E7C		1E7D
+1E7E		1E7F
+1E80		1E81
+1E82		1E83
+1E84		1E85
+1E86		1E87
+1E88		1E89
+1E8A		1E8B
+1E8C		1E8D
+1E8E		1E8F
+1E90		1E91
+1E92		1E93
+1E94		1E95
+1E9B		1E61
+1EA0		1EA1
+1EA2		1EA3
+1EA4		1EA5
+1EA6		1EA7
+1EA8		1EA9
+1EAA		1EAB
+1EAC		1EAD
+1EAE		1EAF
+1EB0		1EB1
+1EB2		1EB3
+1EB4		1EB5
+1EB6		1EB7
+1EB8		1EB9
+1EBA		1EBB
+1EBC		1EBD
+1EBE		1EBF
+1EC0		1EC1
+1EC2		1EC3
+1EC4		1EC5
+1EC6		1EC7
+1EC8		1EC9
+1ECA		1ECB
+1ECC		1ECD
+1ECE		1ECF
+1ED0		1ED1
+1ED2		1ED3
+1ED4		1ED5
+1ED6		1ED7
+1ED8		1ED9
+1EDA		1EDB
+1EDC		1EDD
+1EDE		1EDF
+1EE0		1EE1
+1EE2		1EE3
+1EE4		1EE5
+1EE6		1EE7
+1EE8		1EE9
+1EEA		1EEB
+1EEC		1EED
+1EEE		1EEF
+1EF0		1EF1
+1EF2		1EF3
+1EF4		1EF5
+1EF6		1EF7
+1EF8		1EF9
+1EFA		1EFB
+1EFC		1EFD
+1EFE		1EFF
+1F08		1F00
+1F09		1F01
+1F0A		1F02
+1F0B		1F03
+1F0C		1F04
+1F0D		1F05
+1F0E		1F06
+1F0F		1F07
+1F18		1F10
+1F19		1F11
+1F1A		1F12
+1F1B		1F13
+1F1C		1F14
+1F1D		1F15
+1F28		1F20
+1F29		1F21
+1F2A		1F22
+1F2B		1F23
+1F2C		1F24
+1F2D		1F25
+1F2E		1F26
+1F2F		1F27
+1F38		1F30
+1F39		1F31
+1F3A		1F32
+1F3B		1F33
+1F3C		1F34
+1F3D		1F35
+1F3E		1F36
+1F3F		1F37
+1F48		1F40
+1F49		1F41
+1F4A		1F42
+1F4B		1F43
+1F4C		1F44
+1F4D		1F45
+1F59		1F51
+1F5B		1F53
+1F5D		1F55
+1F5F		1F57
+1F68		1F60
+1F69		1F61
+1F6A		1F62
+1F6B		1F63
+1F6C		1F64
+1F6D		1F65
+1F6E		1F66
+1F6F		1F67
+1F71		03AC
+1F73		03AD
+1F75		03AE
+1F77		03AF
+1F79		03CC
+1F7B		03CD
+1F7D		03CE
+1FB8		1FB0
+1FB9		1FB1
+1FBA		1F70
+1FBB		03AC
+1FBE		03B9
+1FC8		1F72
+1FC9		03AD
+1FCA		1F74
+1FCB		03AE
+1FD3		0390
+1FD8		1FD0
+1FD9		1FD1
+1FDA		1F76
+1FDB		03AF
+1FE3		03B0
+1FE8		1FE0
+1FE9		1FE1
+1FEA		1F7A
+1FEB		03CD
+1FEC		1FE5
+1FEF		0060
+1FF8		1F78
+1FF9		03CC
+1FFA		1F7C
+1FFB		03CE
+2000		0020
+2001		0020
+2002		0020
+2003		0020
+2004		0020
+2005		0020
+2006		0020
+2007		0020
+2008		0020
+2009		0020
+200A		0020
+2011		2010
+2024		002E
+202F		0020
+205F		0020
+2070		0030
+2071		0069
+2074		0034
+2075		0035
+2076		0036
+2077		0037
+2078		0038
+2079		0039
+207A		002B
+207B		2212
+207C		003D
+207D		0028
+207E		0029
+207F		006E
+2080		0030
+2081		0031
+2082		0032
+2083		0033
+2084		0034
+2085		0035
+2086		0036
+2087		0037
+2088		0038
+2089		0039
+208A		002B
+208B		2212
+208C		003D
+208D		0028
+208E		0029
+2090		0061
+2091		0065
+2092		006F
+2093		0078
+2094		0259
+2095		0068
+2096		006B
+2097		006C
+2098		006D
+2099		006E
+209A		0070
+209B		0073
+209C		0074
+2102		0063
+2107		025B
+210A		0067
+210B		0068
+210C		0068
+210D		0068
+210E		0068
+210F		0127
+2110		0069
+2111		0069
+2112		006C
+2113		006C
+2115		006E
+2119		0070
+211A		0071
+211B		0072
+211C		0072
+211D		0072
+2124		007A
+2126		03C9
+2128		007A
+212A		006B
+212B		00E5
+212C		0062
+212D		0063
+212F		0065
+2130		0065
+2131		0066
+2132		214E
+2133		006D
+2134		006F
+2135		05D0
+2136		05D1
+2137		05D2
+2138		05D3
+2139		0069
+213C		03C0
+213D		03B3
+213E		03B3
+213F		03C0
+2140		2211
+2145		0064
+2146		0064
+2147		0065
+2148		0069
+2149		006A
+2160		0069
+2164		0076
+2169		0078
+216C		006C
+216D		0063
+216E		0064
+216F		006D
+2170		0069
+2174		0076
+2179		0078
+217C		006C
+217D		0063
+217E		0064
+217F		006D
+2183		2184
+2329		3008
+232A		3009
+2460		0031
+2461		0032
+2462		0033
+2463		0034
+2464		0035
+2465		0036
+2466		0037
+2467		0038
+2468		0039
+24B6		0061
+24B7		0062
+24B8		0063
+24B9		0064
+24BA		0065
+24BB		0066
+24BC		0067
+24BD		0068
+24BE		0069
+24BF		006A
+24C0		006B
+24C1		006C
+24C2		006D
+24C3		006E
+24C4		006F
+24C5		0070
+24C6		0071
+24C7		0072
+24C8		0073
+24C9		0074
+24CA		0075
+24CB		0076
+24CC		0077
+24CD		0078
+24CE		0079
+24CF		007A
+24D0		0061
+24D1		0062
+24D2		0063
+24D3		0064
+24D4		0065
+24D5		0066
+24D6		0067
+24D7		0068
+24D8		0069
+24D9		006A
+24DA		006B
+24DB		006C
+24DC		006D
+24DD		006E
+24DE		006F
+24DF		0070
+24E0		0071
+24E1		0072
+24E2		0073
+24E3		0074
+24E4		0075
+24E5		0076
+24E6		0077
+24E7		0078
+24E8		0079
+24E9		007A
+24EA		0030
+2C00		2C30
+2C01		2C31
+2C02		2C32
+2C03		2C33
+2C04		2C34
+2C05		2C35
+2C06		2C36
+2C07		2C37
+2C08		2C38
+2C09		2C39
+2C0A		2C3A
+2C0B		2C3B
+2C0C		2C3C
+2C0D		2C3D
+2C0E		2C3E
+2C0F		2C3F
+2C10		2C40
+2C11		2C41
+2C12		2C42
+2C13		2C43
+2C14		2C44
+2C15		2C45
+2C16		2C46
+2C17		2C47
+2C18		2C48
+2C19		2C49
+2C1A		2C4A
+2C1B		2C4B
+2C1C		2C4C
+2C1D		2C4D
+2C1E		2C4E
+2C1F		2C4F
+2C20		2C50
+2C21		2C51
+2C22		2C52
+2C23		2C53
+2C24		2C54
+2C25		2C55
+2C26		2C56
+2C27		2C57
+2C28		2C58
+2C29		2C59
+2C2A		2C5A
+2C2B		2C5B
+2C2C		2C5C
+2C2D		2C5D
+2C2E		2C5E
+2C60		2C61
+2C62		026B
+2C63		1D7D
+2C64		027D
+2C67		2C68
+2C69		2C6A
+2C6B		2C6C
+2C6D		0251
+2C6E		0271
+2C6F		0250
+2C70		0252
+2C72		2C73
+2C75		2C76
+2C7C		006A
+2C7D		0076
+2C7E		023F
+2C7F		0240
+2C80		2C81
+2C82		2C83
+2C84		2C85
+2C86		2C87
+2C88		2C89
+2C8A		2C8B
+2C8C		2C8D
+2C8E		2C8F
+2C90		2C91
+2C92		2C93
+2C94		2C95
+2C96		2C97
+2C98		2C99
+2C9A		2C9B
+2C9C		2C9D
+2C9E		2C9F
+2CA0		2CA1
+2CA2		2CA3
+2CA4		2CA5
+2CA6		2CA7
+2CA8		2CA9
+2CAA		2CAB
+2CAC		2CAD
+2CAE		2CAF
+2CB0		2CB1
+2CB2		2CB3
+2CB4		2CB5
+2CB6		2CB7
+2CB8		2CB9
+2CBA		2CBB
+2CBC		2CBD
+2CBE		2CBF
+2CC0		2CC1
+2CC2		2CC3
+2CC4		2CC5
+2CC6		2CC7
+2CC8		2CC9
+2CCA		2CCB
+2CCC		2CCD
+2CCE		2CCF
+2CD0		2CD1
+2CD2		2CD3
+2CD4		2CD5
+2CD6		2CD7
+2CD8		2CD9
+2CDA		2CDB
+2CDC		2CDD
+2CDE		2CDF
+2CE0		2CE1
+2CE2		2CE3
+2CEB		2CEC
+2CED		2CEE
+2CF2		2CF3
+2D6F		2D61
+2E9F		6BCD
+2EF3		9F9F
+2F00		4E00
+2F01		4E28
+2F02		4E36
+2F03		4E3F
+2F04		4E59
+2F05		4E85
+2F06		4E8C
+2F07		4EA0
+2F08		4EBA
+2F09		513F
+2F0A		5165
+2F0B		516B
+2F0C		5182
+2F0D		5196
+2F0E		51AB
+2F0F		51E0
+2F10		51F5
+2F11		5200
+2F12		529B
+2F13		52F9
+2F14		5315
+2F15		531A
+2F16		5338
+2F17		5341
+2F18		535C
+2F19		5369
+2F1A		5382
+2F1B		53B6
+2F1C		53C8
+2F1D		53E3
+2F1E		56D7
+2F1F		571F
+2F20		58EB
+2F21		5902
+2F22		590A
+2F23		5915
+2F24		5927
+2F25		5973
+2F26		5B50
+2F27		5B80
+2F28		5BF8
+2F29		5C0F
+2F2A		5C22
+2F2B		5C38
+2F2C		5C6E
+2F2D		5C71
+2F2E		5DDB
+2F2F		5DE5
+2F30		5DF1
+2F31		5DFE
+2F32		5E72
+2F33		5E7A
+2F34		5E7F
+2F35		5EF4
+2F36		5EFE
+2F37		5F0B
+2F38		5F13
+2F39		5F50
+2F3A		5F61
+2F3B		5F73
+2F3C		5FC3
+2F3D		6208
+2F3E		6236
+2F3F		624B
+2F40		652F
+2F41		6534
+2F42		6587
+2F43		6597
+2F44		65A4
+2F45		65B9
+2F46		65E0
+2F47		65E5
+2F48		66F0
+2F49		6708
+2F4A		6728
+2F4B		6B20
+2F4C		6B62
+2F4D		6B79
+2F4E		6BB3
+2F4F		6BCB
+2F50		6BD4
+2F51		6BDB
+2F52		6C0F
+2F53		6C14
+2F54		6C34
+2F55		706B
+2F56		722A
+2F57		7236
+2F58		723B
+2F59		723F
+2F5A		7247
+2F5B		7259
+2F5C		725B
+2F5D		72AC
+2F5E		7384
+2F5F		7389
+2F60		74DC
+2F61		74E6
+2F62		7518
+2F63		751F
+2F64		7528
+2F65		7530
+2F66		758B
+2F67		7592
+2F68		7676
+2F69		767D
+2F6A		76AE
+2F6B		76BF
+2F6C		76EE
+2F6D		77DB
+2F6E		77E2
+2F6F		77F3
+2F70		793A
+2F71		79B8
+2F72		79BE
+2F73		7A74
+2F74		7ACB
+2F75		7AF9
+2F76		7C73
+2F77		7CF8
+2F78		7F36
+2F79		7F51
+2F7A		7F8A
+2F7B		7FBD
+2F7C		8001
+2F7D		800C
+2F7E		8012
+2F7F		8033
+2F80		807F
+2F81		8089
+2F82		81E3
+2F83		81EA
+2F84		81F3
+2F85		81FC
+2F86		820C
+2F87		821B
+2F88		821F
+2F89		826E
+2F8A		8272
+2F8B		8278
+2F8C		864D
+2F8D		866B
+2F8E		8840
+2F8F		884C
+2F90		8863
+2F91		897E
+2F92		898B
+2F93		89D2
+2F94		8A00
+2F95		8C37
+2F96		8C46
+2F97		8C55
+2F98		8C78
+2F99		8C9D
+2F9A		8D64
+2F9B		8D70
+2F9C		8DB3
+2F9D		8EAB
+2F9E		8ECA
+2F9F		8F9B
+2FA0		8FB0
+2FA1		8FB5
+2FA2		9091
+2FA3		9149
+2FA4		91C6
+2FA5		91CC
+2FA6		91D1
+2FA7		9577
+2FA8		9580
+2FA9		961C
+2FAA		96B6
+2FAB		96B9
+2FAC		96E8
+2FAD		9751
+2FAE		975E
+2FAF		9762
+2FB0		9769
+2FB1		97CB
+2FB2		97ED
+2FB3		97F3
+2FB4		9801
+2FB5		98A8
+2FB6		98DB
+2FB7		98DF
+2FB8		9996
+2FB9		9999
+2FBA		99AC
+2FBB		9AA8
+2FBC		9AD8
+2FBD		9ADF
+2FBE		9B25
+2FBF		9B2F
+2FC0		9B32
+2FC1		9B3C
+2FC2		9B5A
+2FC3		9CE5
+2FC4		9E75
+2FC5		9E7F
+2FC6		9EA5
+2FC7		9EBB
+2FC8		9EC3
+2FC9		9ECD
+2FCA		9ED1
+2FCB		9EF9
+2FCC		9EFD
+2FCD		9F0E
+2FCE		9F13
+2FCF		9F20
+2FD0		9F3B
+2FD1		9F4A
+2FD2		9F52
+2FD3		9F8D
+2FD4		9F9C
+2FD5		9FA0
+3000		0020
+3036		3012
+3038		5341
+3039		5344
+303A		5345
+3131		1100
+3132		1101
+3133		11AA
+3134		1102
+3135		11AC
+3136		11AD
+3137		1103
+3138		1104
+3139		1105
+313A		11B0
+313B		11B1
+313C		11B2
+313D		11B3
+313E		11B4
+313F		11B5
+3140		111A
+3141		1106
+3142		1107
+3143		1108
+3144		1121
+3145		1109
+3146		110A
+3147		110B
+3148		110C
+3149		110D
+314A		110E
+314B		110F
+314C		1110
+314D		1111
+314E		1112
+314F		1161
+3150		1162
+3151		1163
+3152		1164
+3153		1165
+3154		1166
+3155		1167
+3156		1168
+3157		1169
+3158		116A
+3159		116B
+315A		116C
+315B		116D
+315C		116E
+315D		116F
+315E		1170
+315F		1171
+3160		1172
+3161		1173
+3162		1174
+3163		1175
+3165		1114
+3166		1115
+3167		11C7
+3168		11C8
+3169		11CC
+316A		11CE
+316B		11D3
+316C		11D7
+316D		11D9
+316E		111C
+316F		11DD
+3170		11DF
+3171		111D
+3172		111E
+3173		1120
+3174		1122
+3175		1123
+3176		1127
+3177		1129
+3178		112B
+3179		112C
+317A		112D
+317B		112E
+317C		112F
+317D		1132
+317E		1136
+317F		1140
+3180		1147
+3181		114C
+3182		11F1
+3183		11F2
+3184		1157
+3185		1158
+3186		1159
+3187		1184
+3188		1185
+3189		1188
+318A		1191
+318B		1192
+318C		1194
+318D		119E
+318E		11A1
+3192		4E00
+3193		4E8C
+3194		4E09
+3195		56DB
+3196		4E0A
+3197		4E2D
+3198		4E0B
+3199		7532
+319A		4E59
+319B		4E19
+319C		4E01
+319D		5929
+319E		5730
+319F		4EBA
+3244		554F
+3245		5E7C
+3246		6587
+3247		7B8F
+3260		1100
+3261		1102
+3262		1103
+3263		1105
+3264		1106
+3265		1107
+3266		1109
+3267		110B
+3268		110C
+3269		110E
+326A		110F
+326B		1110
+326C		1111
+326D		1112
+326E		AC00
+326F		B098
+3270		B2E4
+3271		B77C
+3272		B9C8
+3273		BC14
+3274		C0AC
+3275		C544
+3276		C790
+3277		CC28
+3278		CE74
+3279		D0C0
+327A		D30C
+327B		D558
+327E		C6B0
+3280		4E00
+3281		4E8C
+3282		4E09
+3283		56DB
+3284		4E94
+3285		516D
+3286		4E03
+3287		516B
+3288		4E5D
+3289		5341
+328A		6708
+328B		706B
+328C		6C34
+328D		6728
+328E		91D1
+328F		571F
+3290		65E5
+3291		682A
+3292		6709
+3293		793E
+3294		540D
+3295		7279
+3296		8CA1
+3297		795D
+3298		52B4
+3299		79D8
+329A		7537
+329B		5973
+329C		9069
+329D		512A
+329E		5370
+329F		6CE8
+32A0		9805
+32A1		4F11
+32A2		5199
+32A3		6B63
+32A4		4E0A
+32A5		4E2D
+32A6		4E0B
+32A7		5DE6
+32A8		53F3
+32A9		533B
+32AA		5B97
+32AB		5B66
+32AC		76E3
+32AD		4F01
+32AE		8CC7
+32AF		5354
+32B0		591C
+32D0		30A2
+32D1		30A4
+32D2		30A6
+32D3		30A8
+32D4		30AA
+32D5		30AB
+32D6		30AD
+32D7		30AF
+32D8		30B1
+32D9		30B3
+32DA		30B5
+32DB		30B7
+32DC		30B9
+32DD		30BB
+32DE		30BD
+32DF		30BF
+32E0		30C1
+32E1		30C4
+32E2		30C6
+32E3		30C8
+32E4		30CA
+32E5		30CB
+32E6		30CC
+32E7		30CD
+32E8		30CE
+32E9		30CF
+32EA		30D2
+32EB		30D5
+32EC		30D8
+32ED		30DB
+32EE		30DE
+32EF		30DF
+32F0		30E0
+32F1		30E1
+32F2		30E2
+32F3		30E4
+32F4		30E6
+32F5		30E8
+32F6		30E9
+32F7		30EA
+32F8		30EB
+32F9		30EC
+32FA		30ED
+32FB		30EF
+32FC		30F0
+32FD		30F1
+32FE		30F2
+A640		A641
+A642		A643
+A644		A645
+A646		A647
+A648		A649
+A64A		A64B
+A64C		A64D
+A64E		A64F
+A650		A651
+A652		A653
+A654		A655
+A656		A657
+A658		A659
+A65A		A65B
+A65C		A65D
+A65E		A65F
+A660		A661
+A662		A663
+A664		A665
+A666		A667
+A668		A669
+A66A		A66B
+A66C		A66D
+A680		A681
+A682		A683
+A684		A685
+A686		A687
+A688		A689
+A68A		A68B
+A68C		A68D
+A68E		A68F
+A690		A691
+A692		A693
+A694		A695
+A696		A697
+A698		A699
+A69A		A69B
+A69C		044A
+A69D		044C
+A722		A723
+A724		A725
+A726		A727
+A728		A729
+A72A		A72B
+A72C		A72D
+A72E		A72F
+A732		A733
+A734		A735
+A736		A737
+A738		A739
+A73A		A73B
+A73C		A73D
+A73E		A73F
+A740		A741
+A742		A743
+A744		A745
+A746		A747
+A748		A749
+A74A		A74B
+A74C		A74D
+A74E		A74F
+A750		A751
+A752		A753
+A754		A755
+A756		A757
+A758		A759
+A75A		A75B
+A75C		A75D
+A75E		A75F
+A760		A761
+A762		A763
+A764		A765
+A766		A767
+A768		A769
+A76A		A76B
+A76C		A76D
+A76E		A76F
+A770		A76F
+A779		A77A
+A77B		A77C
+A77D		1D79
+A77E		A77F
+A780		A781
+A782		A783
+A784		A785
+A786		A787
+A78B		A78C
+A78D		0265
+A790		A791
+A792		A793
+A796		A797
+A798		A799
+A79A		A79B
+A79C		A79D
+A79E		A79F
+A7A0		A7A1
+A7A2		A7A3
+A7A4		A7A5
+A7A6		A7A7
+A7A8		A7A9
+A7AA		0266
+A7AB		025C
+A7AC		0261
+A7AD		026C
+A7B0		029E
+A7B1		0287
+A7B2		029D
+A7B3		AB53
+A7B4		A7B5
+A7B6		A7B7
+A7F8		0127
+A7F9		0153
+AB5C		A727
+AB5D		AB37
+AB5E		026B
+AB5F		AB52
+AB70		13A0
+AB71		13A1
+AB72		13A2
+AB73		13A3
+AB74		13A4
+AB75		13A5
+AB76		13A6
+AB77		13A7
+AB78		13A8
+AB79		13A9
+AB7A		13AA
+AB7B		13AB
+AB7C		13AC
+AB7D		13AD
+AB7E		13AE
+AB7F		13AF
+AB80		13B0
+AB81		13B1
+AB82		13B2
+AB83		13B3
+AB84		13B4
+AB85		13B5
+AB86		13B6
+AB87		13B7
+AB88		13B8
+AB89		13B9
+AB8A		13BA
+AB8B		13BB
+AB8C		13BC
+AB8D		13BD
+AB8E		13BE
+AB8F		13BF
+AB90		13C0
+AB91		13C1
+AB92		13C2
+AB93		13C3
+AB94		13C4
+AB95		13C5
+AB96		13C6
+AB97		13C7
+AB98		13C8
+AB99		13C9
+AB9A		13CA
+AB9B		13CB
+AB9C		13CC
+AB9D		13CD
+AB9E		13CE
+AB9F		13CF
+ABA0		13D0
+ABA1		13D1
+ABA2		13D2
+ABA3		13D3
+ABA4		13D4
+ABA5		13D5
+ABA6		13D6
+ABA7		13D7
+ABA8		13D8
+ABA9		13D9
+ABAA		13DA
+ABAB		13DB
+ABAC		13DC
+ABAD		13DD
+ABAE		13DE
+ABAF		13DF
+ABB0		13E0
+ABB1		13E1
+ABB2		13E2
+ABB3		13E3
+ABB4		13E4
+ABB5		13E5
+ABB6		13E6
+ABB7		13E7
+ABB8		13E8
+ABB9		13E9
+ABBA		13EA
+ABBB		13EB
+ABBC		13EC
+ABBD		13ED
+ABBE		13EE
+ABBF		13EF
+F900		8C48
+F901		66F4
+F902		8ECA
+F903		8CC8
+F904		6ED1
+F905		4E32
+F906		53E5
+F907		9F9C
+F908		9F9C
+F909		5951
+F90A		91D1
+F90B		5587
+F90C		5948
+F90D		61F6
+F90E		7669
+F90F		7F85
+F910		863F
+F911		87BA
+F912		88F8
+F913		908F
+F914		6A02
+F915		6D1B
+F916		70D9
+F917		73DE
+F918		843D
+F919		916A
+F91A		99F1
+F91B		4E82
+F91C		5375
+F91D		6B04
+F91E		721B
+F91F		862D
+F920		9E1E
+F921		5D50
+F922		6FEB
+F923		85CD
+F924		8964
+F925		62C9
+F926		81D8
+F927		881F
+F928		5ECA
+F929		6717
+F92A		6D6A
+F92B		72FC
+F92C		90CE
+F92D		4F86
+F92E		51B7
+F92F		52DE
+F930		64C4
+F931		6AD3
+F932		7210
+F933		76E7
+F934		8001
+F935		8606
+F936		865C
+F937		8DEF
+F938		9732
+F939		9B6F
+F93A		9DFA
+F93B		788C
+F93C		797F
+F93D		7DA0
+F93E		83C9
+F93F		9304
+F940		9E7F
+F941		8AD6
+F942		58DF
+F943		5F04
+F944		7C60
+F945		807E
+F946		7262
+F947		78CA
+F948		8CC2
+F949		96F7
+F94A		58D8
+F94B		5C62
+F94C		6A13
+F94D		6DDA
+F94E		6F0F
+F94F		7D2F
+F950		7E37
+F951		964B
+F952		52D2
+F953		808B
+F954		51DC
+F955		51CC
+F956		7A1C
+F957		7DBE
+F958		83F1
+F959		9675
+F95A		8B80
+F95B		62CF
+F95C		6A02
+F95D		8AFE
+F95E		4E39
+F95F		5BE7
+F960		6012
+F961		7387
+F962		7570
+F963		5317
+F964		78FB
+F965		4FBF
+F966		5FA9
+F967		4E0D
+F968		6CCC
+F969		6578
+F96A		7D22
+F96B		53C3
+F96C		585E
+F96D		7701
+F96E		8449
+F96F		8AAA
+F970		6BBA
+F971		8FB0
+F972		6C88
+F973		62FE
+F974		82E5
+F975		63A0
+F976		7565
+F977		4EAE
+F978		5169
+F979		51C9
+F97A		6881
+F97B		7CE7
+F97C		826F
+F97D		8AD2
+F97E		91CF
+F97F		52F5
+F980		5442
+F981		5973
+F982		5EEC
+F983		65C5
+F984		6FFE
+F985		792A
+F986		95AD
+F987		9A6A
+F988		9E97
+F989		9ECE
+F98A		529B
+F98B		66C6
+F98C		6B77
+F98D		8F62
+F98E		5E74
+F98F		6190
+F990		6200
+F991		649A
+F992		6F23
+F993		7149
+F994		7489
+F995		79CA
+F996		7DF4
+F997		806F
+F998		8F26
+F999		84EE
+F99A		9023
+F99B		934A
+F99C		5217
+F99D		52A3
+F99E		54BD
+F99F		70C8
+F9A0		88C2
+F9A1		8AAA
+F9A2		5EC9
+F9A3		5FF5
+F9A4		637B
+F9A5		6BAE
+F9A6		7C3E
+F9A7		7375
+F9A8		4EE4
+F9A9		56F9
+F9AA		5BE7
+F9AB		5DBA
+F9AC		601C
+F9AD		73B2
+F9AE		7469
+F9AF		7F9A
+F9B0		8046
+F9B1		9234
+F9B2		96F6
+F9B3		9748
+F9B4		9818
+F9B5		4F8B
+F9B6		79AE
+F9B7		91B4
+F9B8		96B8
+F9B9		60E1
+F9BA		4E86
+F9BB		50DA
+F9BC		5BEE
+F9BD		5C3F
+F9BE		6599
+F9BF		6A02
+F9C0		71CE
+F9C1		7642
+F9C2		84FC
+F9C3		907C
+F9C4		9F8D
+F9C5		6688
+F9C6		962E
+F9C7		5289
+F9C8		677B
+F9C9		67F3
+F9CA		6D41
+F9CB		6E9C
+F9CC		7409
+F9CD		7559
+F9CE		786B
+F9CF		7D10
+F9D0		985E
+F9D1		516D
+F9D2		622E
+F9D3		9678
+F9D4		502B
+F9D5		5D19
+F9D6		6DEA
+F9D7		8F2A
+F9D8		5F8B
+F9D9		6144
+F9DA		6817
+F9DB		7387
+F9DC		9686
+F9DD		5229
+F9DE		540F
+F9DF		5C65
+F9E0		6613
+F9E1		674E
+F9E2		68A8
+F9E3		6CE5
+F9E4		7406
+F9E5		75E2
+F9E6		7F79
+F9E7		88CF
+F9E8		88E1
+F9E9		91CC
+F9EA		96E2
+F9EB		533F
+F9EC		6EBA
+F9ED		541D
+F9EE		71D0
+F9EF		7498
+F9F0		85FA
+F9F1		96A3
+F9F2		9C57
+F9F3		9E9F
+F9F4		6797
+F9F5		6DCB
+F9F6		81E8
+F9F7		7ACB
+F9F8		7B20
+F9F9		7C92
+F9FA		72C0
+F9FB		7099
+F9FC		8B58
+F9FD		4EC0
+F9FE		8336
+F9FF		523A
+FA00		5207
+FA01		5EA6
+FA02		62D3
+FA03		7CD6
+FA04		5B85
+FA05		6D1E
+FA06		66B4
+FA07		8F3B
+FA08		884C
+FA09		964D
+FA0A		898B
+FA0B		5ED3
+FA0C		5140
+FA0D		55C0
+FA10		585A
+FA12		6674
+FA15		51DE
+FA16		732A
+FA17		76CA
+FA18		793C
+FA19		795E
+FA1A		7965
+FA1B		798F
+FA1C		9756
+FA1D		7CBE
+FA1E		7FBD
+FA20		8612
+FA22		8AF8
+FA25		9038
+FA26		90FD
+FA2A		98EF
+FA2B		98FC
+FA2C		9928
+FA2D		9DB4
+FA2E		90DE
+FA2F		96B7
+FA30		4FAE
+FA31		50E7
+FA32		514D
+FA33		52C9
+FA34		52E4
+FA35		5351
+FA36		559D
+FA37		5606
+FA38		5668
+FA39		5840
+FA3A		58A8
+FA3B		5C64
+FA3C		5C6E
+FA3D		6094
+FA3E		6168
+FA3F		618E
+FA40		61F2
+FA41		654F
+FA42		65E2
+FA43		6691
+FA44		6885
+FA45		6D77
+FA46		6E1A
+FA47		6F22
+FA48		716E
+FA49		722B
+FA4A		7422
+FA4B		7891
+FA4C		793E
+FA4D		7949
+FA4E		7948
+FA4F		7950
+FA50		7956
+FA51		795D
+FA52		798D
+FA53		798E
+FA54		7A40
+FA55		7A81
+FA56		7BC0
+FA57		7DF4
+FA58		7E09
+FA59		7E41
+FA5A		7F72
+FA5B		8005
+FA5C		81ED
+FA5D		8279
+FA5E		8279
+FA5F		8457
+FA60		8910
+FA61		8996
+FA62		8B01
+FA63		8B39
+FA64		8CD3
+FA65		8D08
+FA66		8FB6
+FA67		9038
+FA68		96E3
+FA69		97FF
+FA6A		983B
+FA6B		6075
+FA6C		242EE
+FA6D		8218
+FA70		4E26
+FA71		51B5
+FA72		5168
+FA73		4F80
+FA74		5145
+FA75		5180
+FA76		52C7
+FA77		52FA
+FA78		559D
+FA79		5555
+FA7A		5599
+FA7B		55E2
+FA7C		585A
+FA7D		58B3
+FA7E		5944
+FA7F		5954
+FA80		5A62
+FA81		5B28
+FA82		5ED2
+FA83		5ED9
+FA84		5F69
+FA85		5FAD
+FA86		60D8
+FA87		614E
+FA88		6108
+FA89		618E
+FA8A		6160
+FA8B		61F2
+FA8C		6234
+FA8D		63C4
+FA8E		641C
+FA8F		6452
+FA90		6556
+FA91		6674
+FA92		6717
+FA93		671B
+FA94		6756
+FA95		6B79
+FA96		6BBA
+FA97		6D41
+FA98		6EDB
+FA99		6ECB
+FA9A		6F22
+FA9B		701E
+FA9C		716E
+FA9D		77A7
+FA9E		7235
+FA9F		72AF
+FAA0		732A
+FAA1		7471
+FAA2		7506
+FAA3		753B
+FAA4		761D
+FAA5		761F
+FAA6		76CA
+FAA7		76DB
+FAA8		76F4
+FAA9		774A
+FAAA		7740
+FAAB		78CC
+FAAC		7AB1
+FAAD		7BC0
+FAAE		7C7B
+FAAF		7D5B
+FAB0		7DF4
+FAB1		7F3E
+FAB2		8005
+FAB3		8352
+FAB4		83EF
+FAB5		8779
+FAB6		8941
+FAB7		8986
+FAB8		8996
+FAB9		8ABF
+FABA		8AF8
+FABB		8ACB
+FABC		8B01
+FABD		8AFE
+FABE		8AED
+FABF		8B39
+FAC0		8B8A
+FAC1		8D08
+FAC2		8F38
+FAC3		9072
+FAC4		9199
+FAC5		9276
+FAC6		967C
+FAC7		96E3
+FAC8		9756
+FAC9		97DB
+FACA		97FF
+FACB		980B
+FACC		983B
+FACD		9B12
+FACE		9F9C
+FACF		2284A
+FAD0		22844
+FAD1		233D5
+FAD2		3B9D
+FAD3		4018
+FAD4		4039
+FAD5		25249
+FAD6		25CD0
+FAD7		27ED3
+FAD8		9F43
+FAD9		9F8E
+FB20		05E2
+FB21		05D0
+FB22		05D3
+FB23		05D4
+FB24		05DB
+FB25		05DC
+FB26		05DD
+FB27		05E8
+FB28		05EA
+FB29		002B
+FB50		0671
+FB51		0671
+FB52		067B
+FB53		067B
+FB54		067B
+FB55		067B
+FB56		067E
+FB57		067E
+FB58		067E
+FB59		067E
+FB5A		0680
+FB5B		0680
+FB5C		0680
+FB5D		0680
+FB5E		067A
+FB5F		067A
+FB60		067A
+FB61		067A
+FB62		067F
+FB63		067F
+FB64		067F
+FB65		067F
+FB66		0679
+FB67		0679
+FB68		0679
+FB69		0679
+FB6A		06A4
+FB6B		06A4
+FB6C		06A4
+FB6D		06A4
+FB6E		06A6
+FB6F		06A6
+FB70		06A6
+FB71		06A6
+FB72		0684
+FB73		0684
+FB74		0684
+FB75		0684
+FB76		0683
+FB77		0683
+FB78		0683
+FB79		0683
+FB7A		0686
+FB7B		0686
+FB7C		0686
+FB7D		0686
+FB7E		0687
+FB7F		0687
+FB80		0687
+FB81		0687
+FB82		068D
+FB83		068D
+FB84		068C
+FB85		068C
+FB86		068E
+FB87		068E
+FB88		0688
+FB89		0688
+FB8A		0698
+FB8B		0698
+FB8C		0691
+FB8D		0691
+FB8E		06A9
+FB8F		06A9
+FB90		06A9
+FB91		06A9
+FB92		06AF
+FB93		06AF
+FB94		06AF
+FB95		06AF
+FB96		06B3
+FB97		06B3
+FB98		06B3
+FB99		06B3
+FB9A		06B1
+FB9B		06B1
+FB9C		06B1
+FB9D		06B1
+FB9E		06BA
+FB9F		06BA
+FBA0		06BB
+FBA1		06BB
+FBA2		06BB
+FBA3		06BB
+FBA4		06C0
+FBA5		06C0
+FBA6		06C1
+FBA7		06C1
+FBA8		06C1
+FBA9		06C1
+FBAA		06BE
+FBAB		06BE
+FBAC		06BE
+FBAD		06BE
+FBAE		06D2
+FBAF		06D2
+FBB0		06D3
+FBB1		06D3
+FBD3		06AD
+FBD4		06AD
+FBD5		06AD
+FBD6		06AD
+FBD7		06C7
+FBD8		06C7
+FBD9		06C6
+FBDA		06C6
+FBDB		06C8
+FBDC		06C8
+FBDE		06CB
+FBDF		06CB
+FBE0		06C5
+FBE1		06C5
+FBE2		06C9
+FBE3		06C9
+FBE4		06D0
+FBE5		06D0
+FBE6		06D0
+FBE7		06D0
+FBE8		0649
+FBE9		0649
+FBFC		06CC
+FBFD		06CC
+FBFE		06CC
+FBFF		06CC
+FE10		002C
+FE11		3001
+FE12		3002
+FE13		003A
+FE14		003B
+FE15		0021
+FE16		003F
+FE17		3016
+FE18		3017
+FE31		2014
+FE32		2013
+FE33		005F
+FE34		005F
+FE35		0028
+FE36		0029
+FE37		007B
+FE38		007D
+FE39		3014
+FE3A		3015
+FE3B		3010
+FE3C		3011
+FE3D		300A
+FE3E		300B
+FE3F		3008
+FE40		3009
+FE41		300C
+FE42		300D
+FE43		300E
+FE44		300F
+FE47		005B
+FE48		005D
+FE4D		005F
+FE4E		005F
+FE4F		005F
+FE50		002C
+FE51		3001
+FE52		002E
+FE54		003B
+FE55		003A
+FE56		003F
+FE57		0021
+FE58		2014
+FE59		0028
+FE5A		0029
+FE5B		007B
+FE5C		007D
+FE5D		3014
+FE5E		3015
+FE5F		0023
+FE60		0026
+FE61		002A
+FE62		002B
+FE63		002D
+FE64		003C
+FE65		003E
+FE66		003D
+FE68		005C
+FE69		0024
+FE6A		0025
+FE6B		0040
+FE80		0621
+FE81		0622
+FE82		0622
+FE83		0623
+FE84		0623
+FE85		0624
+FE86		0624
+FE87		0625
+FE88		0625
+FE89		0626
+FE8A		0626
+FE8B		0626
+FE8C		0626
+FE8D		0627
+FE8E		0627
+FE8F		0628
+FE90		0628
+FE91		0628
+FE92		0628
+FE93		0629
+FE94		0629
+FE95		062A
+FE96		062A
+FE97		062A
+FE98		062A
+FE99		062B
+FE9A		062B
+FE9B		062B
+FE9C		062B
+FE9D		062C
+FE9E		062C
+FE9F		062C
+FEA0		062C
+FEA1		062D
+FEA2		062D
+FEA3		062D
+FEA4		062D
+FEA5		062E
+FEA6		062E
+FEA7		062E
+FEA8		062E
+FEA9		062F
+FEAA		062F
+FEAB		0630
+FEAC		0630
+FEAD		0631
+FEAE		0631
+FEAF		0632
+FEB0		0632
+FEB1		0633
+FEB2		0633
+FEB3		0633
+FEB4		0633
+FEB5		0634
+FEB6		0634
+FEB7		0634
+FEB8		0634
+FEB9		0635
+FEBA		0635
+FEBB		0635
+FEBC		0635
+FEBD		0636
+FEBE		0636
+FEBF		0636
+FEC0		0636
+FEC1		0637
+FEC2		0637
+FEC3		0637
+FEC4		0637
+FEC5		0638
+FEC6		0638
+FEC7		0638
+FEC8		0638
+FEC9		0639
+FECA		0639
+FECB		0639
+FECC		0639
+FECD		063A
+FECE		063A
+FECF		063A
+FED0		063A
+FED1		0641
+FED2		0641
+FED3		0641
+FED4		0641
+FED5		0642
+FED6		0642
+FED7		0642
+FED8		0642
+FED9		0643
+FEDA		0643
+FEDB		0643
+FEDC		0643
+FEDD		0644
+FEDE		0644
+FEDF		0644
+FEE0		0644
+FEE1		0645
+FEE2		0645
+FEE3		0645
+FEE4		0645
+FEE5		0646
+FEE6		0646
+FEE7		0646
+FEE8		0646
+FEE9		0647
+FEEA		0647
+FEEB		0647
+FEEC		0647
+FEED		0648
+FEEE		0648
+FEEF		0649
+FEF0		0649
+FEF1		064A
+FEF2		064A
+FEF3		064A
+FEF4		064A
+FF01		0021
+FF02		0022
+FF03		0023
+FF04		0024
+FF05		0025
+FF06		0026
+FF07		0027
+FF08		0028
+FF09		0029
+FF0A		002A
+FF0B		002B
+FF0C		002C
+FF0D		002D
+FF0E		002E
+FF0F		002F
+FF10		0030
+FF11		0031
+FF12		0032
+FF13		0033
+FF14		0034
+FF15		0035
+FF16		0036
+FF17		0037
+FF18		0038
+FF19		0039
+FF1A		003A
+FF1B		003B
+FF1C		003C
+FF1D		003D
+FF1E		003E
+FF1F		003F
+FF20		0040
+FF21		0061
+FF22		0062
+FF23		0063
+FF24		0064
+FF25		0065
+FF26		0066
+FF27		0067
+FF28		0068
+FF29		0069
+FF2A		006A
+FF2B		006B
+FF2C		006C
+FF2D		006D
+FF2E		006E
+FF2F		006F
+FF30		0070
+FF31		0071
+FF32		0072
+FF33		0073
+FF34		0074
+FF35		0075
+FF36		0076
+FF37		0077
+FF38		0078
+FF39		0079
+FF3A		007A
+FF3B		005B
+FF3C		005C
+FF3D		005D
+FF3E		005E
+FF3F		005F
+FF40		0060
+FF41		0061
+FF42		0062
+FF43		0063
+FF44		0064
+FF45		0065
+FF46		0066
+FF47		0067
+FF48		0068
+FF49		0069
+FF4A		006A
+FF4B		006B
+FF4C		006C
+FF4D		006D
+FF4E		006E
+FF4F		006F
+FF50		0070
+FF51		0071
+FF52		0072
+FF53		0073
+FF54		0074
+FF55		0075
+FF56		0076
+FF57		0077
+FF58		0078
+FF59		0079
+FF5A		007A
+FF5B		007B
+FF5C		007C
+FF5D		007D
+FF5E		007E
+FF5F		2985
+FF60		2986
+FF61		3002
+FF62		300C
+FF63		300D
+FF64		3001
+FF65		30FB
+FF66		30F2
+FF67		30A1
+FF68		30A3
+FF69		30A5
+FF6A		30A7
+FF6B		30A9
+FF6C		30E3
+FF6D		30E5
+FF6E		30E7
+FF6F		30C3
+FF70		30FC
+FF71		30A2
+FF72		30A4
+FF73		30A6
+FF74		30A8
+FF75		30AA
+FF76		30AB
+FF77		30AD
+FF78		30AF
+FF79		30B1
+FF7A		30B3
+FF7B		30B5
+FF7C		30B7
+FF7D		30B9
+FF7E		30BB
+FF7F		30BD
+FF80		30BF
+FF81		30C1
+FF82		30C4
+FF83		30C6
+FF84		30C8
+FF85		30CA
+FF86		30CB
+FF87		30CC
+FF88		30CD
+FF89		30CE
+FF8A		30CF
+FF8B		30D2
+FF8C		30D5
+FF8D		30D8
+FF8E		30DB
+FF8F		30DE
+FF90		30DF
+FF91		30E0
+FF92		30E1
+FF93		30E2
+FF94		30E4
+FF95		30E6
+FF96		30E8
+FF97		30E9
+FF98		30EA
+FF99		30EB
+FF9A		30EC
+FF9B		30ED
+FF9C		30EF
+FF9D		30F3
+FF9E		3099
+FF9F		309A
+FFA1		1100
+FFA2		1101
+FFA3		11AA
+FFA4		1102
+FFA5		11AC
+FFA6		11AD
+FFA7		1103
+FFA8		1104
+FFA9		1105
+FFAA		11B0
+FFAB		11B1
+FFAC		11B2
+FFAD		11B3
+FFAE		11B4
+FFAF		11B5
+FFB0		111A
+FFB1		1106
+FFB2		1107
+FFB3		1108
+FFB4		1121
+FFB5		1109
+FFB6		110A
+FFB7		110B
+FFB8		110C
+FFB9		110D
+FFBA		110E
+FFBB		110F
+FFBC		1110
+FFBD		1111
+FFBE		1112
+FFC2		1161
+FFC3		1162
+FFC4		1163
+FFC5		1164
+FFC6		1165
+FFC7		1166
+FFCA		1167
+FFCB		1168
+FFCC		1169
+FFCD		116A
+FFCE		116B
+FFCF		116C
+FFD2		116D
+FFD3		116E
+FFD4		116F
+FFD5		1170
+FFD6		1171
+FFD7		1172
+FFDA		1173
+FFDB		1174
+FFDC		1175
+FFE0		00A2
+FFE1		00A3
+FFE2		00AC
+FFE4		00A6
+FFE5		00A5
+FFE6		20A9
+FFE8		2502
+FFE9		2190
+FFEA		2191
+FFEB		2192
+FFEC		2193
+FFED		25A0
+FFEE		25CB
+10400		10428
+10401		10429
+10402		1042A
+10403		1042B
+10404		1042C
+10405		1042D
+10406		1042E
+10407		1042F
+10408		10430
+10409		10431
+1040A		10432
+1040B		10433
+1040C		10434
+1040D		10435
+1040E		10436
+1040F		10437
+10410		10438
+10411		10439
+10412		1043A
+10413		1043B
+10414		1043C
+10415		1043D
+10416		1043E
+10417		1043F
+10418		10440
+10419		10441
+1041A		10442
+1041B		10443
+1041C		10444
+1041D		10445
+1041E		10446
+1041F		10447
+10420		10448
+10421		10449
+10422		1044A
+10423		1044B
+10424		1044C
+10425		1044D
+10426		1044E
+10427		1044F
+10C80		10CC0
+10C81		10CC1
+10C82		10CC2
+10C83		10CC3
+10C84		10CC4
+10C85		10CC5
+10C86		10CC6
+10C87		10CC7
+10C88		10CC8
+10C89		10CC9
+10C8A		10CCA
+10C8B		10CCB
+10C8C		10CCC
+10C8D		10CCD
+10C8E		10CCE
+10C8F		10CCF
+10C90		10CD0
+10C91		10CD1
+10C92		10CD2
+10C93		10CD3
+10C94		10CD4
+10C95		10CD5
+10C96		10CD6
+10C97		10CD7
+10C98		10CD8
+10C99		10CD9
+10C9A		10CDA
+10C9B		10CDB
+10C9C		10CDC
+10C9D		10CDD
+10C9E		10CDE
+10C9F		10CDF
+10CA0		10CE0
+10CA1		10CE1
+10CA2		10CE2
+10CA3		10CE3
+10CA4		10CE4
+10CA5		10CE5
+10CA6		10CE6
+10CA7		10CE7
+10CA8		10CE8
+10CA9		10CE9
+10CAA		10CEA
+10CAB		10CEB
+10CAC		10CEC
+10CAD		10CED
+10CAE		10CEE
+10CAF		10CEF
+10CB0		10CF0
+10CB1		10CF1
+10CB2		10CF2
+118A0		118C0
+118A1		118C1
+118A2		118C2
+118A3		118C3
+118A4		118C4
+118A5		118C5
+118A6		118C6
+118A7		118C7
+118A8		118C8
+118A9		118C9
+118AA		118CA
+118AB		118CB
+118AC		118CC
+118AD		118CD
+118AE		118CE
+118AF		118CF
+118B0		118D0
+118B1		118D1
+118B2		118D2
+118B3		118D3
+118B4		118D4
+118B5		118D5
+118B6		118D6
+118B7		118D7
+118B8		118D8
+118B9		118D9
+118BA		118DA
+118BB		118DB
+118BC		118DC
+118BD		118DD
+118BE		118DE
+118BF		118DF
+1D400		0061
+1D401		0062
+1D402		0063
+1D403		0064
+1D404		0065
+1D405		0066
+1D406		0067
+1D407		0068
+1D408		0069
+1D409		006A
+1D40A		006B
+1D40B		006C
+1D40C		006D
+1D40D		006E
+1D40E		006F
+1D40F		0070
+1D410		0071
+1D411		0072
+1D412		0073
+1D413		0074
+1D414		0075
+1D415		0076
+1D416		0077
+1D417		0078
+1D418		0079
+1D419		007A
+1D41A		0061
+1D41B		0062
+1D41C		0063
+1D41D		0064
+1D41E		0065
+1D41F		0066
+1D420		0067
+1D421		0068
+1D422		0069
+1D423		006A
+1D424		006B
+1D425		006C
+1D426		006D
+1D427		006E
+1D428		006F
+1D429		0070
+1D42A		0071
+1D42B		0072
+1D42C		0073
+1D42D		0074
+1D42E		0075
+1D42F		0076
+1D430		0077
+1D431		0078
+1D432		0079
+1D433		007A
+1D434		0061
+1D435		0062
+1D436		0063
+1D437		0064
+1D438		0065
+1D439		0066
+1D43A		0067
+1D43B		0068
+1D43C		0069
+1D43D		006A
+1D43E		006B
+1D43F		006C
+1D440		006D
+1D441		006E
+1D442		006F
+1D443		0070
+1D444		0071
+1D445		0072
+1D446		0073
+1D447		0074
+1D448		0075
+1D449		0076
+1D44A		0077
+1D44B		0078
+1D44C		0079
+1D44D		007A
+1D44E		0061
+1D44F		0062
+1D450		0063
+1D451		0064
+1D452		0065
+1D453		0066
+1D454		0067
+1D456		0069
+1D457		006A
+1D458		006B
+1D459		006C
+1D45A		006D
+1D45B		006E
+1D45C		006F
+1D45D		0070
+1D45E		0071
+1D45F		0072
+1D460		0073
+1D461		0074
+1D462		0075
+1D463		0076
+1D464		0077
+1D465		0078
+1D466		0079
+1D467		007A
+1D468		0061
+1D469		0062
+1D46A		0063
+1D46B		0064
+1D46C		0065
+1D46D		0066
+1D46E		0067
+1D46F		0068
+1D470		0069
+1D471		006A
+1D472		006B
+1D473		006C
+1D474		006D
+1D475		006E
+1D476		006F
+1D477		0070
+1D478		0071
+1D479		0072
+1D47A		0073
+1D47B		0074
+1D47C		0075
+1D47D		0076
+1D47E		0077
+1D47F		0078
+1D480		0079
+1D481		007A
+1D482		0061
+1D483		0062
+1D484		0063
+1D485		0064
+1D486		0065
+1D487		0066
+1D488		0067
+1D489		0068
+1D48A		0069
+1D48B		006A
+1D48C		006B
+1D48D		006C
+1D48E		006D
+1D48F		006E
+1D490		006F
+1D491		0070
+1D492		0071
+1D493		0072
+1D494		0073
+1D495		0074
+1D496		0075
+1D497		0076
+1D498		0077
+1D499		0078
+1D49A		0079
+1D49B		007A
+1D49C		0061
+1D49E		0063
+1D49F		0064
+1D4A2		0067
+1D4A5		006A
+1D4A6		006B
+1D4A9		006E
+1D4AA		006F
+1D4AB		0070
+1D4AC		0071
+1D4AE		0073
+1D4AF		0074
+1D4B0		0075
+1D4B1		0076
+1D4B2		0077
+1D4B3		0078
+1D4B4		0079
+1D4B5		007A
+1D4B6		0061
+1D4B7		0062
+1D4B8		0063
+1D4B9		0064
+1D4BB		0066
+1D4BD		0068
+1D4BE		0069
+1D4BF		006A
+1D4C0		006B
+1D4C1		006C
+1D4C2		006D
+1D4C3		006E
+1D4C5		0070
+1D4C6		0071
+1D4C7		0072
+1D4C8		0073
+1D4C9		0074
+1D4CA		0075
+1D4CB		0076
+1D4CC		0077
+1D4CD		0078
+1D4CE		0079
+1D4CF		007A
+1D4D0		0061
+1D4D1		0062
+1D4D2		0063
+1D4D3		0064
+1D4D4		0065
+1D4D5		0066
+1D4D6		0067
+1D4D7		0068
+1D4D8		0069
+1D4D9		006A
+1D4DA		006B
+1D4DB		006C
+1D4DC		006D
+1D4DD		006E
+1D4DE		006F
+1D4DF		0070
+1D4E0		0071
+1D4E1		0072
+1D4E2		0073
+1D4E3		0074
+1D4E4		0075
+1D4E5		0076
+1D4E6		0077
+1D4E7		0078
+1D4E8		0079
+1D4E9		007A
+1D4EA		0061
+1D4EB		0062
+1D4EC		0063
+1D4ED		0064
+1D4EE		0065
+1D4EF		0066
+1D4F0		0067
+1D4F1		0068
+1D4F2		0069
+1D4F3		006A
+1D4F4		006B
+1D4F5		006C
+1D4F6		006D
+1D4F7		006E
+1D4F8		006F
+1D4F9		0070
+1D4FA		0071
+1D4FB		0072
+1D4FC		0073
+1D4FD		0074
+1D4FE		0075
+1D4FF		0076
+1D500		0077
+1D501		0078
+1D502		0079
+1D503		007A
+1D504		0061
+1D505		0062
+1D507		0064
+1D508		0065
+1D509		0066
+1D50A		0067
+1D50D		006A
+1D50E		006B
+1D50F		006C
+1D510		006D
+1D511		006E
+1D512		006F
+1D513		0070
+1D514		0071
+1D516		0073
+1D517		0074
+1D518		0075
+1D519		0076
+1D51A		0077
+1D51B		0078
+1D51C		0079
+1D51E		0061
+1D51F		0062
+1D520		0063
+1D521		0064
+1D522		0065
+1D523		0066
+1D524		0067
+1D525		0068
+1D526		0069
+1D527		006A
+1D528		006B
+1D529		006C
+1D52A		006D
+1D52B		006E
+1D52C		006F
+1D52D		0070
+1D52E		0071
+1D52F		0072
+1D530		0073
+1D531		0074
+1D532		0075
+1D533		0076
+1D534		0077
+1D535		0078
+1D536		0079
+1D537		007A
+1D538		0061
+1D539		0062
+1D53B		0064
+1D53C		0065
+1D53D		0066
+1D53E		0067
+1D540		0069
+1D541		006A
+1D542		006B
+1D543		006C
+1D544		006D
+1D546		006F
+1D54A		0073
+1D54B		0074
+1D54C		0075
+1D54D		0076
+1D54E		0077
+1D54F		0078
+1D550		0079
+1D552		0061
+1D553		0062
+1D554		0063
+1D555		0064
+1D556		0065
+1D557		0066
+1D558		0067
+1D559		0068
+1D55A		0069
+1D55B		006A
+1D55C		006B
+1D55D		006C
+1D55E		006D
+1D55F		006E
+1D560		006F
+1D561		0070
+1D562		0071
+1D563		0072
+1D564		0073
+1D565		0074
+1D566		0075
+1D567		0076
+1D568		0077
+1D569		0078
+1D56A		0079
+1D56B		007A
+1D56C		0061
+1D56D		0062
+1D56E		0063
+1D56F		0064
+1D570		0065
+1D571		0066
+1D572		0067
+1D573		0068
+1D574		0069
+1D575		006A
+1D576		006B
+1D577		006C
+1D578		006D
+1D579		006E
+1D57A		006F
+1D57B		0070
+1D57C		0071
+1D57D		0072
+1D57E		0073
+1D57F		0074
+1D580		0075
+1D581		0076
+1D582		0077
+1D583		0078
+1D584		0079
+1D585		007A
+1D586		0061
+1D587		0062
+1D588		0063
+1D589		0064
+1D58A		0065
+1D58B		0066
+1D58C		0067
+1D58D		0068
+1D58E		0069
+1D58F		006A
+1D590		006B
+1D591		006C
+1D592		006D
+1D593		006E
+1D594		006F
+1D595		0070
+1D596		0071
+1D597		0072
+1D598		0073
+1D599		0074
+1D59A		0075
+1D59B		0076
+1D59C		0077
+1D59D		0078
+1D59E		0079
+1D59F		007A
+1D5A0		0061
+1D5A1		0062
+1D5A2		0063
+1D5A3		0064
+1D5A4		0065
+1D5A5		0066
+1D5A6		0067
+1D5A7		0068
+1D5A8		0069
+1D5A9		006A
+1D5AA		006B
+1D5AB		006C
+1D5AC		006D
+1D5AD		006E
+1D5AE		006F
+1D5AF		0070
+1D5B0		0071
+1D5B1		0072
+1D5B2		0073
+1D5B3		0074
+1D5B4		0075
+1D5B5		0076
+1D5B6		0077
+1D5B7		0078
+1D5B8		0079
+1D5B9		007A
+1D5BA		0061
+1D5BB		0062
+1D5BC		0063
+1D5BD		0064
+1D5BE		0065
+1D5BF		0066
+1D5C0		0067
+1D5C1		0068
+1D5C2		0069
+1D5C3		006A
+1D5C4		006B
+1D5C5		006C
+1D5C6		006D
+1D5C7		006E
+1D5C8		006F
+1D5C9		0070
+1D5CA		0071
+1D5CB		0072
+1D5CC		0073
+1D5CD		0074
+1D5CE		0075
+1D5CF		0076
+1D5D0		0077
+1D5D1		0078
+1D5D2		0079
+1D5D3		007A
+1D5D4		0061
+1D5D5		0062
+1D5D6		0063
+1D5D7		0064
+1D5D8		0065
+1D5D9		0066
+1D5DA		0067
+1D5DB		0068
+1D5DC		0069
+1D5DD		006A
+1D5DE		006B
+1D5DF		006C
+1D5E0		006D
+1D5E1		006E
+1D5E2		006F
+1D5E3		0070
+1D5E4		0071
+1D5E5		0072
+1D5E6		0073
+1D5E7		0074
+1D5E8		0075
+1D5E9		0076
+1D5EA		0077
+1D5EB		0078
+1D5EC		0079
+1D5ED		007A
+1D5EE		0061
+1D5EF		0062
+1D5F0		0063
+1D5F1		0064
+1D5F2		0065
+1D5F3		0066
+1D5F4		0067
+1D5F5		0068
+1D5F6		0069
+1D5F7		006A
+1D5F8		006B
+1D5F9		006C
+1D5FA		006D
+1D5FB		006E
+1D5FC		006F
+1D5FD		0070
+1D5FE		0071
+1D5FF		0072
+1D600		0073
+1D601		0074
+1D602		0075
+1D603		0076
+1D604		0077
+1D605		0078
+1D606		0079
+1D607		007A
+1D608		0061
+1D609		0062
+1D60A		0063
+1D60B		0064
+1D60C		0065
+1D60D		0066
+1D60E		0067
+1D60F		0068
+1D610		0069
+1D611		006A
+1D612		006B
+1D613		006C
+1D614		006D
+1D615		006E
+1D616		006F
+1D617		0070
+1D618		0071
+1D619		0072
+1D61A		0073
+1D61B		0074
+1D61C		0075
+1D61D		0076
+1D61E		0077
+1D61F		0078
+1D620		0079
+1D621		007A
+1D622		0061
+1D623		0062
+1D624		0063
+1D625		0064
+1D626		0065
+1D627		0066
+1D628		0067
+1D629		0068
+1D62A		0069
+1D62B		006A
+1D62C		006B
+1D62D		006C
+1D62E		006D
+1D62F		006E
+1D630		006F
+1D631		0070
+1D632		0071
+1D633		0072
+1D634		0073
+1D635		0074
+1D636		0075
+1D637		0076
+1D638		0077
+1D639		0078
+1D63A		0079
+1D63B		007A
+1D63C		0061
+1D63D		0062
+1D63E		0063
+1D63F		0064
+1D640		0065
+1D641		0066
+1D642		0067
+1D643		0068
+1D644		0069
+1D645		006A
+1D646		006B
+1D647		006C
+1D648		006D
+1D649		006E
+1D64A		006F
+1D64B		0070
+1D64C		0071
+1D64D		0072
+1D64E		0073
+1D64F		0074
+1D650		0075
+1D651		0076
+1D652		0077
+1D653		0078
+1D654		0079
+1D655		007A
+1D656		0061
+1D657		0062
+1D658		0063
+1D659		0064
+1D65A		0065
+1D65B		0066
+1D65C		0067
+1D65D		0068
+1D65E		0069
+1D65F		006A
+1D660		006B
+1D661		006C
+1D662		006D
+1D663		006E
+1D664		006F
+1D665		0070
+1D666		0071
+1D667		0072
+1D668		0073
+1D669		0074
+1D66A		0075
+1D66B		0076
+1D66C		0077
+1D66D		0078
+1D66E		0079
+1D66F		007A
+1D670		0061
+1D671		0062
+1D672		0063
+1D673		0064
+1D674		0065
+1D675		0066
+1D676		0067
+1D677		0068
+1D678		0069
+1D679		006A
+1D67A		006B
+1D67B		006C
+1D67C		006D
+1D67D		006E
+1D67E		006F
+1D67F		0070
+1D680		0071
+1D681		0072
+1D682		0073
+1D683		0074
+1D684		0075
+1D685		0076
+1D686		0077
+1D687		0078
+1D688		0079
+1D689		007A
+1D68A		0061
+1D68B		0062
+1D68C		0063
+1D68D		0064
+1D68E		0065
+1D68F		0066
+1D690		0067
+1D691		0068
+1D692		0069
+1D693		006A
+1D694		006B
+1D695		006C
+1D696		006D
+1D697		006E
+1D698		006F
+1D699		0070
+1D69A		0071
+1D69B		0072
+1D69C		0073
+1D69D		0074
+1D69E		0075
+1D69F		0076
+1D6A0		0077
+1D6A1		0078
+1D6A2		0079
+1D6A3		007A
+1D6A4		0131
+1D6A5		0237
+1D6A8		03B1
+1D6A9		03B2
+1D6AA		03B3
+1D6AB		03B4
+1D6AC		03B5
+1D6AD		03B6
+1D6AE		03B7
+1D6AF		03B8
+1D6B0		03B9
+1D6B1		03BA
+1D6B2		03BB
+1D6B3		03BC
+1D6B4		03BD
+1D6B5		03BE
+1D6B6		03BF
+1D6B7		03C0
+1D6B8		03C1
+1D6B9		03B8
+1D6BA		03C3
+1D6BB		03C4
+1D6BC		03C5
+1D6BD		03C6
+1D6BE		03C7
+1D6BF		03C8
+1D6C0		03C9
+1D6C1		2207
+1D6C2		03B1
+1D6C3		03B2
+1D6C4		03B3
+1D6C5		03B4
+1D6C6		03B5
+1D6C7		03B6
+1D6C8		03B7
+1D6C9		03B8
+1D6CA		03B9
+1D6CB		03BA
+1D6CC		03BB
+1D6CD		03BC
+1D6CE		03BD
+1D6CF		03BE
+1D6D0		03BF
+1D6D1		03C0
+1D6D2		03C1
+1D6D3		03C3
+1D6D4		03C3
+1D6D5		03C4
+1D6D6		03C5
+1D6D7		03C6
+1D6D8		03C7
+1D6D9		03C8
+1D6DA		03C9
+1D6DB		2202
+1D6DC		03B5
+1D6DD		03B8
+1D6DE		03BA
+1D6DF		03C6
+1D6E0		03C1
+1D6E1		03C0
+1D6E2		03B1
+1D6E3		03B2
+1D6E4		03B3
+1D6E5		03B4
+1D6E6		03B5
+1D6E7		03B6
+1D6E8		03B7
+1D6E9		03B8
+1D6EA		03B9
+1D6EB		03BA
+1D6EC		03BB
+1D6ED		03BC
+1D6EE		03BD
+1D6EF		03BE
+1D6F0		03BF
+1D6F1		03C0
+1D6F2		03C1
+1D6F3		03B8
+1D6F4		03C3
+1D6F5		03C4
+1D6F6		03C5
+1D6F7		03C6
+1D6F8		03C7
+1D6F9		03C8
+1D6FA		03C9
+1D6FB		2207
+1D6FC		03B1
+1D6FD		03B2
+1D6FE		03B3
+1D6FF		03B4
+1D700		03B5
+1D701		03B6
+1D702		03B7
+1D703		03B8
+1D704		03B9
+1D705		03BA
+1D706		03BB
+1D707		03BC
+1D708		03BD
+1D709		03BE
+1D70A		03BF
+1D70B		03C0
+1D70C		03C1
+1D70D		03C3
+1D70E		03C3
+1D70F		03C4
+1D710		03C5
+1D711		03C6
+1D712		03C7
+1D713		03C8
+1D714		03C9
+1D715		2202
+1D716		03B5
+1D717		03B8
+1D718		03BA
+1D719		03C6
+1D71A		03C1
+1D71B		03C0
+1D71C		03B1
+1D71D		03B2
+1D71E		03B3
+1D71F		03B4
+1D720		03B5
+1D721		03B6
+1D722		03B7
+1D723		03B8
+1D724		03B9
+1D725		03BA
+1D726		03BB
+1D727		03BC
+1D728		03BD
+1D729		03BE
+1D72A		03BF
+1D72B		03C0
+1D72C		03C1
+1D72D		03B8
+1D72E		03C3
+1D72F		03C4
+1D730		03C5
+1D731		03C6
+1D732		03C7
+1D733		03C8
+1D734		03C9
+1D735		2207
+1D736		03B1
+1D737		03B2
+1D738		03B3
+1D739		03B4
+1D73A		03B5
+1D73B		03B6
+1D73C		03B7
+1D73D		03B8
+1D73E		03B9
+1D73F		03BA
+1D740		03BB
+1D741		03BC
+1D742		03BD
+1D743		03BE
+1D744		03BF
+1D745		03C0
+1D746		03C1
+1D747		03C3
+1D748		03C3
+1D749		03C4
+1D74A		03C5
+1D74B		03C6
+1D74C		03C7
+1D74D		03C8
+1D74E		03C9
+1D74F		2202
+1D750		03B5
+1D751		03B8
+1D752		03BA
+1D753		03C6
+1D754		03C1
+1D755		03C0
+1D756		03B1
+1D757		03B2
+1D758		03B3
+1D759		03B4
+1D75A		03B5
+1D75B		03B6
+1D75C		03B7
+1D75D		03B8
+1D75E		03B9
+1D75F		03BA
+1D760		03BB
+1D761		03BC
+1D762		03BD
+1D763		03BE
+1D764		03BF
+1D765		03C0
+1D766		03C1
+1D767		03B8
+1D768		03C3
+1D769		03C4
+1D76A		03C5
+1D76B		03C6
+1D76C		03C7
+1D76D		03C8
+1D76E		03C9
+1D76F		2207
+1D770		03B1
+1D771		03B2
+1D772		03B3
+1D773		03B4
+1D774		03B5
+1D775		03B6
+1D776		03B7
+1D777		03B8
+1D778		03B9
+1D779		03BA
+1D77A		03BB
+1D77B		03BC
+1D77C		03BD
+1D77D		03BE
+1D77E		03BF
+1D77F		03C0
+1D780		03C1
+1D781		03C3
+1D782		03C3
+1D783		03C4
+1D784		03C5
+1D785		03C6
+1D786		03C7
+1D787		03C8
+1D788		03C9
+1D789		2202
+1D78A		03B5
+1D78B		03B8
+1D78C		03BA
+1D78D		03C6
+1D78E		03C1
+1D78F		03C0
+1D790		03B1
+1D791		03B2
+1D792		03B3
+1D793		03B4
+1D794		03B5
+1D795		03B6
+1D796		03B7
+1D797		03B8
+1D798		03B9
+1D799		03BA
+1D79A		03BB
+1D79B		03BC
+1D79C		03BD
+1D79D		03BE
+1D79E		03BF
+1D79F		03C0
+1D7A0		03C1
+1D7A1		03B8
+1D7A2		03C3
+1D7A3		03C4
+1D7A4		03C5
+1D7A5		03C6
+1D7A6		03C7
+1D7A7		03C8
+1D7A8		03C9
+1D7A9		2207
+1D7AA		03B1
+1D7AB		03B2
+1D7AC		03B3
+1D7AD		03B4
+1D7AE		03B5
+1D7AF		03B6
+1D7B0		03B7
+1D7B1		03B8
+1D7B2		03B9
+1D7B3		03BA
+1D7B4		03BB
+1D7B5		03BC
+1D7B6		03BD
+1D7B7		03BE
+1D7B8		03BF
+1D7B9		03C0
+1D7BA		03C1
+1D7BB		03C3
+1D7BC		03C3
+1D7BD		03C4
+1D7BE		03C5
+1D7BF		03C6
+1D7C0		03C7
+1D7C1		03C8
+1D7C2		03C9
+1D7C3		2202
+1D7C4		03B5
+1D7C5		03B8
+1D7C6		03BA
+1D7C7		03C6
+1D7C8		03C1
+1D7C9		03C0
+1D7CA		03DD
+1D7CB		03DD
+1D7CE		0030
+1D7CF		0031
+1D7D0		0032
+1D7D1		0033
+1D7D2		0034
+1D7D3		0035
+1D7D4		0036
+1D7D5		0037
+1D7D6		0038
+1D7D7		0039
+1D7D8		0030
+1D7D9		0031
+1D7DA		0032
+1D7DB		0033
+1D7DC		0034
+1D7DD		0035
+1D7DE		0036
+1D7DF		0037
+1D7E0		0038
+1D7E1		0039
+1D7E2		0030
+1D7E3		0031
+1D7E4		0032
+1D7E5		0033
+1D7E6		0034
+1D7E7		0035
+1D7E8		0036
+1D7E9		0037
+1D7EA		0038
+1D7EB		0039
+1D7EC		0030
+1D7ED		0031
+1D7EE		0032
+1D7EF		0033
+1D7F0		0034
+1D7F1		0035
+1D7F2		0036
+1D7F3		0037
+1D7F4		0038
+1D7F5		0039
+1D7F6		0030
+1D7F7		0031
+1D7F8		0032
+1D7F9		0033
+1D7FA		0034
+1D7FB		0035
+1D7FC		0036
+1D7FD		0037
+1D7FE		0038
+1D7FF		0039
+1EE00		0627
+1EE01		0628
+1EE02		062C
+1EE03		062F
+1EE05		0648
+1EE06		0632
+1EE07		062D
+1EE08		0637
+1EE09		064A
+1EE0A		0643
+1EE0B		0644
+1EE0C		0645
+1EE0D		0646
+1EE0E		0633
+1EE0F		0639
+1EE10		0641
+1EE11		0635
+1EE12		0642
+1EE13		0631
+1EE14		0634
+1EE15		062A
+1EE16		062B
+1EE17		062E
+1EE18		0630
+1EE19		0636
+1EE1A		0638
+1EE1B		063A
+1EE1C		066E
+1EE1D		06BA
+1EE1E		06A1
+1EE1F		066F
+1EE21		0628
+1EE22		062C
+1EE24		0647
+1EE27		062D
+1EE29		064A
+1EE2A		0643
+1EE2B		0644
+1EE2C		0645
+1EE2D		0646
+1EE2E		0633
+1EE2F		0639
+1EE30		0641
+1EE31		0635
+1EE32		0642
+1EE34		0634
+1EE35		062A
+1EE36		062B
+1EE37		062E
+1EE39		0636
+1EE3B		063A
+1EE42		062C
+1EE47		062D
+1EE49		064A
+1EE4B		0644
+1EE4D		0646
+1EE4E		0633
+1EE4F		0639
+1EE51		0635
+1EE52		0642
+1EE54		0634
+1EE57		062E
+1EE59		0636
+1EE5B		063A
+1EE5D		06BA
+1EE5F		066F
+1EE61		0628
+1EE62		062C
+1EE64		0647
+1EE67		062D
+1EE68		0637
+1EE69		064A
+1EE6A		0643
+1EE6C		0645
+1EE6D		0646
+1EE6E		0633
+1EE6F		0639
+1EE70		0641
+1EE71		0635
+1EE72		0642
+1EE74		0634
+1EE75		062A
+1EE76		062B
+1EE77		062E
+1EE79		0636
+1EE7A		0638
+1EE7B		063A
+1EE7C		066E
+1EE7E		06A1
+1EE80		0627
+1EE81		0628
+1EE82		062C
+1EE83		062F
+1EE84		0647
+1EE85		0648
+1EE86		0632
+1EE87		062D
+1EE88		0637
+1EE89		064A
+1EE8B		0644
+1EE8C		0645
+1EE8D		0646
+1EE8E		0633
+1EE8F		0639
+1EE90		0641
+1EE91		0635
+1EE92		0642
+1EE93		0631
+1EE94		0634
+1EE95		062A
+1EE96		062B
+1EE97		062E
+1EE98		0630
+1EE99		0636
+1EE9A		0638
+1EE9B		063A
+1EEA1		0628
+1EEA2		062C
+1EEA3		062F
+1EEA5		0648
+1EEA6		0632
+1EEA7		062D
+1EEA8		0637
+1EEA9		064A
+1EEAB		0644
+1EEAC		0645
+1EEAD		0646
+1EEAE		0633
+1EEAF		0639
+1EEB0		0641
+1EEB1		0635
+1EEB2		0642
+1EEB3		0631
+1EEB4		0634
+1EEB5		062A
+1EEB6		062B
+1EEB7		062E
+1EEB8		0630
+1EEB9		0636
+1EEBA		0638
+1EEBB		063A
+1F12B		0063
+1F12C		0072
+1F130		0061
+1F131		0062
+1F132		0063
+1F133		0064
+1F134		0065
+1F135		0066
+1F136		0067
+1F137		0068
+1F138		0069
+1F139		006A
+1F13A		006B
+1F13B		006C
+1F13C		006D
+1F13D		006E
+1F13E		006F
+1F13F		0070
+1F140		0071
+1F141		0072
+1F142		0073
+1F143		0074
+1F144		0075
+1F145		0076
+1F146		0077
+1F147		0078
+1F148		0079
+1F149		007A
+1F202		30B5
+1F210		624B
+1F211		5B57
+1F212		53CC
+1F213		30C7
+1F214		4E8C
+1F215		591A
+1F216		89E3
+1F217		5929
+1F218		4EA4
+1F219		6620
+1F21A		7121
+1F21B		6599
+1F21C		524D
+1F21D		5F8C
+1F21E		518D
+1F21F		65B0
+1F220		521D
+1F221		7D42
+1F222		751F
+1F223		8CA9
+1F224		58F0
+1F225		5439
+1F226		6F14
+1F227		6295
+1F228		6355
+1F229		4E00
+1F22A		4E09
+1F22B		904A
+1F22C		5DE6
+1F22D		4E2D
+1F22E		53F3
+1F22F		6307
+1F230		8D70
+1F231		6253
+1F232		7981
+1F233		7A7A
+1F234		5408
+1F235		6E80
+1F236		6709
+1F237		6708
+1F238		7533
+1F239		5272
+1F23A		55B6
+1F250		5F97
+1F251		53EF
+2F800		4E3D
+2F801		4E38
+2F802		4E41
+2F803		20122
+2F804		4F60
+2F805		4FAE
+2F806		4FBB
+2F807		5002
+2F808		507A
+2F809		5099
+2F80A		50E7
+2F80B		50CF
+2F80C		349E
+2F80D		2063A
+2F80E		514D
+2F80F		5154
+2F810		5164
+2F811		5177
+2F812		2051C
+2F813		34B9
+2F814		5167
+2F815		518D
+2F816		2054B
+2F817		5197
+2F818		51A4
+2F819		4ECC
+2F81A		51AC
+2F81B		51B5
+2F81C		291DF
+2F81D		51F5
+2F81E		5203
+2F81F		34DF
+2F820		523B
+2F821		5246
+2F822		5272
+2F823		5277
+2F824		3515
+2F825		52C7
+2F826		52C9
+2F827		52E4
+2F828		52FA
+2F829		5305
+2F82A		5306
+2F82B		5317
+2F82C		5349
+2F82D		5351
+2F82E		535A
+2F82F		5373
+2F830		537D
+2F831		537F
+2F832		537F
+2F833		537F
+2F834		20A2C
+2F835		7070
+2F836		53CA
+2F837		53DF
+2F838		20B63
+2F839		53EB
+2F83A		53F1
+2F83B		5406
+2F83C		549E
+2F83D		5438
+2F83E		5448
+2F83F		5468
+2F840		54A2
+2F841		54F6
+2F842		5510
+2F843		5553
+2F844		5563
+2F845		5584
+2F846		5584
+2F847		5599
+2F848		55AB
+2F849		55B3
+2F84A		55C2
+2F84B		5716
+2F84C		5606
+2F84D		5717
+2F84E		5651
+2F84F		5674
+2F850		5207
+2F851		58EE
+2F852		57CE
+2F853		57F4
+2F854		580D
+2F855		578B
+2F856		5832
+2F857		5831
+2F858		58AC
+2F859		214E4
+2F85A		58F2
+2F85B		58F7
+2F85C		5906
+2F85D		591A
+2F85E		5922
+2F85F		5962
+2F860		216A8
+2F861		216EA
+2F862		59EC
+2F863		5A1B
+2F864		5A27
+2F865		59D8
+2F866		5A66
+2F867		36EE
+2F868		36FC
+2F869		5B08
+2F86A		5B3E
+2F86B		5B3E
+2F86C		219C8
+2F86D		5BC3
+2F86E		5BD8
+2F86F		5BE7
+2F870		5BF3
+2F871		21B18
+2F872		5BFF
+2F873		5C06
+2F874		5F53
+2F875		5C22
+2F876		3781
+2F877		5C60
+2F878		5C6E
+2F879		5CC0
+2F87A		5C8D
+2F87B		21DE4
+2F87C		5D43
+2F87D		21DE6
+2F87E		5D6E
+2F87F		5D6B
+2F880		5D7C
+2F881		5DE1
+2F882		5DE2
+2F883		382F
+2F884		5DFD
+2F885		5E28
+2F886		5E3D
+2F887		5E69
+2F888		3862
+2F889		22183
+2F88A		387C
+2F88B		5EB0
+2F88C		5EB3
+2F88D		5EB6
+2F88E		5ECA
+2F88F		2A392
+2F890		5EFE
+2F891		22331
+2F892		22331
+2F893		8201
+2F894		5F22
+2F895		5F22
+2F896		38C7
+2F897		232B8
+2F898		261DA
+2F899		5F62
+2F89A		5F6B
+2F89B		38E3
+2F89C		5F9A
+2F89D		5FCD
+2F89E		5FD7
+2F89F		5FF9
+2F8A0		6081
+2F8A1		393A
+2F8A2		391C
+2F8A3		6094
+2F8A4		226D4
+2F8A5		60C7
+2F8A6		6148
+2F8A7		614C
+2F8A8		614E
+2F8A9		614C
+2F8AA		617A
+2F8AB		618E
+2F8AC		61B2
+2F8AD		61A4
+2F8AE		61AF
+2F8AF		61DE
+2F8B0		61F2
+2F8B1		61F6
+2F8B2		6210
+2F8B3		621B
+2F8B4		625D
+2F8B5		62B1
+2F8B6		62D4
+2F8B7		6350
+2F8B8		22B0C
+2F8B9		633D
+2F8BA		62FC
+2F8BB		6368
+2F8BC		6383
+2F8BD		63E4
+2F8BE		22BF1
+2F8BF		6422
+2F8C0		63C5
+2F8C1		63A9
+2F8C2		3A2E
+2F8C3		6469
+2F8C4		647E
+2F8C5		649D
+2F8C6		6477
+2F8C7		3A6C
+2F8C8		654F
+2F8C9		656C
+2F8CA		2300A
+2F8CB		65E3
+2F8CC		66F8
+2F8CD		6649
+2F8CE		3B19
+2F8CF		6691
+2F8D0		3B08
+2F8D1		3AE4
+2F8D2		5192
+2F8D3		5195
+2F8D4		6700
+2F8D5		669C
+2F8D6		80AD
+2F8D7		43D9
+2F8D8		6717
+2F8D9		671B
+2F8DA		6721
+2F8DB		675E
+2F8DC		6753
+2F8DD		233C3
+2F8DE		3B49
+2F8DF		67FA
+2F8E0		6785
+2F8E1		6852
+2F8E2		6885
+2F8E3		2346D
+2F8E4		688E
+2F8E5		681F
+2F8E6		6914
+2F8E7		3B9D
+2F8E8		6942
+2F8E9		69A3
+2F8EA		69EA
+2F8EB		6AA8
+2F8EC		236A3
+2F8ED		6ADB
+2F8EE		3C18
+2F8EF		6B21
+2F8F0		238A7
+2F8F1		6B54
+2F8F2		3C4E
+2F8F3		6B72
+2F8F4		6B9F
+2F8F5		6BBA
+2F8F6		6BBB
+2F8F7		23A8D
+2F8F8		21D0B
+2F8F9		23AFA
+2F8FA		6C4E
+2F8FB		23CBC
+2F8FC		6CBF
+2F8FD		6CCD
+2F8FE		6C67
+2F8FF		6D16
+2F900		6D3E
+2F901		6D77
+2F902		6D41
+2F903		6D69
+2F904		6D78
+2F905		6D85
+2F906		23D1E
+2F907		6D34
+2F908		6E2F
+2F909		6E6E
+2F90A		3D33
+2F90B		6ECB
+2F90C		6EC7
+2F90D		23ED1
+2F90E		6DF9
+2F90F		6F6E
+2F910		23F5E
+2F911		23F8E
+2F912		6FC6
+2F913		7039
+2F914		701E
+2F915		701B
+2F916		3D96
+2F917		704A
+2F918		707D
+2F919		7077
+2F91A		70AD
+2F91B		20525
+2F91C		7145
+2F91D		24263
+2F91E		719C
+2F91F		243AB
+2F920		7228
+2F921		7235
+2F922		7250
+2F923		24608
+2F924		7280
+2F925		7295
+2F926		24735
+2F927		24814
+2F928		737A
+2F929		738B
+2F92A		3EAC
+2F92B		73A5
+2F92C		3EB8
+2F92D		3EB8
+2F92E		7447
+2F92F		745C
+2F930		7471
+2F931		7485
+2F932		74CA
+2F933		3F1B
+2F934		7524
+2F935		24C36
+2F936		753E
+2F937		24C92
+2F938		7570
+2F939		2219F
+2F93A		7610
+2F93B		24FA1
+2F93C		24FB8
+2F93D		25044
+2F93E		3FFC
+2F93F		4008
+2F940		76F4
+2F941		250F3
+2F942		250F2
+2F943		25119
+2F944		25133
+2F945		771E
+2F946		771F
+2F947		771F
+2F948		774A
+2F949		4039
+2F94A		778B
+2F94B		4046
+2F94C		4096
+2F94D		2541D
+2F94E		784E
+2F94F		788C
+2F950		78CC
+2F951		40E3
+2F952		25626
+2F953		7956
+2F954		2569A
+2F955		256C5
+2F956		798F
+2F957		79EB
+2F958		412F
+2F959		7A40
+2F95A		7A4A
+2F95B		7A4F
+2F95C		2597C
+2F95D		25AA7
+2F95E		25AA7
+2F95F		7AEE
+2F960		4202
+2F961		25BAB
+2F962		7BC6
+2F963		7BC9
+2F964		4227
+2F965		25C80
+2F966		7CD2
+2F967		42A0
+2F968		7CE8
+2F969		7CE3
+2F96A		7D00
+2F96B		25F86
+2F96C		7D63
+2F96D		4301
+2F96E		7DC7
+2F96F		7E02
+2F970		7E45
+2F971		4334
+2F972		26228
+2F973		26247
+2F974		4359
+2F975		262D9
+2F976		7F7A
+2F977		2633E
+2F978		7F95
+2F979		7FFA
+2F97A		8005
+2F97B		264DA
+2F97C		26523
+2F97D		8060
+2F97E		265A8
+2F97F		8070
+2F980		2335F
+2F981		43D5
+2F982		80B2
+2F983		8103
+2F984		440B
+2F985		813E
+2F986		5AB5
+2F987		267A7
+2F988		267B5
+2F989		23393
+2F98A		2339C
+2F98B		8201
+2F98C		8204
+2F98D		8F9E
+2F98E		446B
+2F98F		8291
+2F990		828B
+2F991		829D
+2F992		52B3
+2F993		82B1
+2F994		82B3
+2F995		82BD
+2F996		82E6
+2F997		26B3C
+2F998		82E5
+2F999		831D
+2F99A		8363
+2F99B		83AD
+2F99C		8323
+2F99D		83BD
+2F99E		83E7
+2F99F		8457
+2F9A0		8353
+2F9A1		83CA
+2F9A2		83CC
+2F9A3		83DC
+2F9A4		26C36
+2F9A5		26D6B
+2F9A6		26CD5
+2F9A7		452B
+2F9A8		84F1
+2F9A9		84F3
+2F9AA		8516
+2F9AB		273CA
+2F9AC		8564
+2F9AD		26F2C
+2F9AE		455D
+2F9AF		4561
+2F9B0		26FB1
+2F9B1		270D2
+2F9B2		456B
+2F9B3		8650
+2F9B4		865C
+2F9B5		8667
+2F9B6		8669
+2F9B7		86A9
+2F9B8		8688
+2F9B9		870E
+2F9BA		86E2
+2F9BB		8779
+2F9BC		8728
+2F9BD		876B
+2F9BE		8786
+2F9BF		45D7
+2F9C0		87E1
+2F9C1		8801
+2F9C2		45F9
+2F9C3		8860
+2F9C4		8863
+2F9C5		27667
+2F9C6		88D7
+2F9C7		88DE
+2F9C8		4635
+2F9C9		88FA
+2F9CA		34BB
+2F9CB		278AE
+2F9CC		27966
+2F9CD		46BE
+2F9CE		46C7
+2F9CF		8AA0
+2F9D0		8AED
+2F9D1		8B8A
+2F9D2		8C55
+2F9D3		27CA8
+2F9D4		8CAB
+2F9D5		8CC1
+2F9D6		8D1B
+2F9D7		8D77
+2F9D8		27F2F
+2F9D9		20804
+2F9DA		8DCB
+2F9DB		8DBC
+2F9DC		8DF0
+2F9DD		208DE
+2F9DE		8ED4
+2F9DF		8F38
+2F9E0		285D2
+2F9E1		285ED
+2F9E2		9094
+2F9E3		90F1
+2F9E4		9111
+2F9E5		2872E
+2F9E6		911B
+2F9E7		9238
+2F9E8		92D7
+2F9E9		92D8
+2F9EA		927C
+2F9EB		93F9
+2F9EC		9415
+2F9ED		28BFA
+2F9EE		958B
+2F9EF		4995
+2F9F0		95B7
+2F9F1		28D77
+2F9F2		49E6
+2F9F3		96C3
+2F9F4		5DB2
+2F9F5		9723
+2F9F6		29145
+2F9F7		2921A
+2F9F8		4A6E
+2F9F9		4A76
+2F9FA		97E0
+2F9FB		2940A
+2F9FC		4AB2
+2F9FD		29496
+2F9FE		980B
+2F9FF		980B
+2FA00		9829
+2FA01		295B6
+2FA02		98E2
+2FA03		4B33
+2FA04		9929
+2FA05		99A7
+2FA06		99C2
+2FA07		99FE
+2FA08		4BCE
+2FA09		29B30
+2FA0A		9B12
+2FA0B		9C40
+2FA0C		9CFD
+2FA0D		4CCE
+2FA0E		4CED
+2FA0F		9D67
+2FA10		2A0CE
+2FA11		4CF8
+2FA12		2A105
+2FA13		2A20E
+2FA14		2A291
+2FA15		9EBB
+2FA16		4D56
+2FA17		9EF9
+2FA18		9EFE
+2FA19		9F05
+2FA1A		9F0F
+2FA1B		9F16
+2FA1C		9F3B
+2FA1D		2A600
+END
diff --git a/lib/5.24.1/unicore/To/NFKCQC.pl b/lib/5.24.1/unicore/To/NFKCQC.pl
new file mode 100644
index 00000000..d7ebd47b
--- /dev/null
+++ b/lib/5.24.1/unicore/To/NFKCQC.pl
@@ -0,0 +1,310 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToNFKCQC'}{'format'} = 's'; # string
+$utf8::SwashInfo{'ToNFKCQC'}{'missing'} = 'Yes';
+
+return <<'END';
+A0		N
+A8		N
+AA		N
+AF		N
+B2	B5	N
+B8	BA	N
+BC	BE	N
+132	133	N
+13F	140	N
+149		N
+17F		N
+1C4	1CC	N
+1F1	1F3	N
+2B0	2B8	N
+2D8	2DD	N
+2E0	2E4	N
+300	304	M
+306	30C	M
+30F		M
+311		M
+313	314	M
+31B		M
+323	328	M
+32D	32E	M
+330	331	M
+338		M
+340	341	N
+342		M
+343	344	N
+345		M
+374		N
+37A		N
+37E		N
+384	385	N
+387		N
+3D0	3D6	N
+3F0	3F2	N
+3F4	3F5	N
+3F9		N
+587		N
+653	655	M
+675	678	N
+93C		M
+958	95F	N
+9BE		M
+9D7		M
+9DC	9DD	N
+9DF		N
+A33		N
+A36		N
+A59	A5B	N
+A5E		N
+B3E		M
+B56	B57	M
+B5C	B5D	N
+BBE		M
+BD7		M
+C56		M
+CC2		M
+CD5	CD6	M
+D3E		M
+D57		M
+DCA		M
+DCF		M
+DDF		M
+E33		N
+EB3		N
+EDC	EDD	N
+F0C		N
+F43		N
+F4D		N
+F52		N
+F57		N
+F5C		N
+F69		N
+F73		N
+F75	F79	N
+F81		N
+F93		N
+F9D		N
+FA2		N
+FA7		N
+FAC		N
+FB9		N
+102E		M
+10FC		N
+1161	1175	M
+11A8	11C2	M
+1B35		M
+1D2C	1D2E	N
+1D30	1D3A	N
+1D3C	1D4D	N
+1D4F	1D6A	N
+1D78		N
+1D9B	1DBF	N
+1E9A	1E9B	N
+1F71		N
+1F73		N
+1F75		N
+1F77		N
+1F79		N
+1F7B		N
+1F7D		N
+1FBB		N
+1FBD	1FC1	N
+1FC9		N
+1FCB		N
+1FCD	1FCF	N
+1FD3		N
+1FDB		N
+1FDD	1FDF	N
+1FE3		N
+1FEB		N
+1FED	1FEF	N
+1FF9		N
+1FFB		N
+1FFD	1FFE	N
+2000	200A	N
+2011		N
+2017		N
+2024	2026	N
+202F		N
+2033	2034	N
+2036	2037	N
+203C		N
+203E		N
+2047	2049	N
+2057		N
+205F		N
+2070	2071	N
+2074	208E	N
+2090	209C	N
+20A8		N
+2100	2103	N
+2105	2107	N
+2109	2113	N
+2115	2116	N
+2119	211D	N
+2120	2122	N
+2124		N
+2126		N
+2128		N
+212A	212D	N
+212F	2131	N
+2133	2139	N
+213B	2140	N
+2145	2149	N
+2150	217F	N
+2189		N
+222C	222D	N
+222F	2230	N
+2329	232A	N
+2460	24EA	N
+2A0C		N
+2A74	2A76	N
+2ADC		N
+2C7C	2C7D	N
+2D6F		N
+2E9F		N
+2EF3		N
+2F00	2FD5	N
+3000		N
+3036		N
+3038	303A	N
+3099	309A	M
+309B	309C	N
+309F		N
+30FF		N
+3131	318E	N
+3192	319F	N
+3200	321E	N
+3220	3247	N
+3250	327E	N
+3280	32FE	N
+3300	33FF	N
+A69C	A69D	N
+A770		N
+A7F8	A7F9	N
+AB5C	AB5F	N
+F900	FA0D	N
+FA10		N
+FA12		N
+FA15	FA1E	N
+FA20		N
+FA22		N
+FA25	FA26	N
+FA2A	FA6D	N
+FA70	FAD9	N
+FB00	FB06	N
+FB13	FB17	N
+FB1D		N
+FB1F	FB36	N
+FB38	FB3C	N
+FB3E		N
+FB40	FB41	N
+FB43	FB44	N
+FB46	FBB1	N
+FBD3	FD3D	N
+FD50	FD8F	N
+FD92	FDC7	N
+FDF0	FDFC	N
+FE10	FE19	N
+FE30	FE44	N
+FE47	FE52	N
+FE54	FE66	N
+FE68	FE6B	N
+FE70	FE72	N
+FE74		N
+FE76	FEFC	N
+FF01	FFBE	N
+FFC2	FFC7	N
+FFCA	FFCF	N
+FFD2	FFD7	N
+FFDA	FFDC	N
+FFE0	FFE6	N
+FFE8	FFEE	N
+110BA		M
+11127		M
+1133E		M
+11357		M
+114B0		M
+114BA		M
+114BD		M
+115AF		M
+1D15E	1D164	N
+1D1BB	1D1C0	N
+1D400	1D454	N
+1D456	1D49C	N
+1D49E	1D49F	N
+1D4A2		N
+1D4A5	1D4A6	N
+1D4A9	1D4AC	N
+1D4AE	1D4B9	N
+1D4BB		N
+1D4BD	1D4C3	N
+1D4C5	1D505	N
+1D507	1D50A	N
+1D50D	1D514	N
+1D516	1D51C	N
+1D51E	1D539	N
+1D53B	1D53E	N
+1D540	1D544	N
+1D546		N
+1D54A	1D550	N
+1D552	1D6A5	N
+1D6A8	1D7CB	N
+1D7CE	1D7FF	N
+1EE00	1EE03	N
+1EE05	1EE1F	N
+1EE21	1EE22	N
+1EE24		N
+1EE27		N
+1EE29	1EE32	N
+1EE34	1EE37	N
+1EE39		N
+1EE3B		N
+1EE42		N
+1EE47		N
+1EE49		N
+1EE4B		N
+1EE4D	1EE4F	N
+1EE51	1EE52	N
+1EE54		N
+1EE57		N
+1EE59		N
+1EE5B		N
+1EE5D		N
+1EE5F		N
+1EE61	1EE62	N
+1EE64		N
+1EE67	1EE6A	N
+1EE6C	1EE72	N
+1EE74	1EE77	N
+1EE79	1EE7C	N
+1EE7E		N
+1EE80	1EE89	N
+1EE8B	1EE9B	N
+1EEA1	1EEA3	N
+1EEA5	1EEA9	N
+1EEAB	1EEBB	N
+1F100	1F10A	N
+1F110	1F12E	N
+1F130	1F14F	N
+1F16A	1F16B	N
+1F190		N
+1F200	1F202	N
+1F210	1F23A	N
+1F240	1F248	N
+1F250	1F251	N
+2F800	2FA1D	N
+END
diff --git a/lib/5.24.1/unicore/To/NFKDQC.pl b/lib/5.24.1/unicore/To/NFKDQC.pl
new file mode 100644
index 00000000..d9a4229a
--- /dev/null
+++ b/lib/5.24.1/unicore/To/NFKDQC.pl
@@ -0,0 +1,410 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToNFKDQC'}{'format'} = 's'; # string
+$utf8::SwashInfo{'ToNFKDQC'}{'missing'} = 'Yes';
+
+return <<'END';
+A0		N
+A8		N
+AA		N
+AF		N
+B2	B5	N
+B8	BA	N
+BC	BE	N
+C0	C5	N
+C7	CF	N
+D1	D6	N
+D9	DD	N
+E0	E5	N
+E7	EF	N
+F1	F6	N
+F9	FD	N
+FF	10F	N
+112	125	N
+128	130	N
+132	137	N
+139	140	N
+143	149	N
+14C	151	N
+154	165	N
+168	17F	N
+1A0	1A1	N
+1AF	1B0	N
+1C4	1DC	N
+1DE	1E3	N
+1E6	1F5	N
+1F8	21B	N
+21E	21F	N
+226	233	N
+2B0	2B8	N
+2D8	2DD	N
+2E0	2E4	N
+340	341	N
+343	344	N
+374		N
+37A		N
+37E		N
+384	38A	N
+38C		N
+38E	390	N
+3AA	3B0	N
+3CA	3CE	N
+3D0	3D6	N
+3F0	3F2	N
+3F4	3F5	N
+3F9		N
+400	401	N
+403		N
+407		N
+40C	40E	N
+419		N
+439		N
+450	451	N
+453		N
+457		N
+45C	45E	N
+476	477	N
+4C1	4C2	N
+4D0	4D3	N
+4D6	4D7	N
+4DA	4DF	N
+4E2	4E7	N
+4EA	4F5	N
+4F8	4F9	N
+587		N
+622	626	N
+675	678	N
+6C0		N
+6C2		N
+6D3		N
+929		N
+931		N
+934		N
+958	95F	N
+9CB	9CC	N
+9DC	9DD	N
+9DF		N
+A33		N
+A36		N
+A59	A5B	N
+A5E		N
+B48		N
+B4B	B4C	N
+B5C	B5D	N
+B94		N
+BCA	BCC	N
+C48		N
+CC0		N
+CC7	CC8	N
+CCA	CCB	N
+D4A	D4C	N
+DDA		N
+DDC	DDE	N
+E33		N
+EB3		N
+EDC	EDD	N
+F0C		N
+F43		N
+F4D		N
+F52		N
+F57		N
+F5C		N
+F69		N
+F73		N
+F75	F79	N
+F81		N
+F93		N
+F9D		N
+FA2		N
+FA7		N
+FAC		N
+FB9		N
+1026		N
+10FC		N
+1B06		N
+1B08		N
+1B0A		N
+1B0C		N
+1B0E		N
+1B12		N
+1B3B		N
+1B3D		N
+1B40	1B41	N
+1B43		N
+1D2C	1D2E	N
+1D30	1D3A	N
+1D3C	1D4D	N
+1D4F	1D6A	N
+1D78		N
+1D9B	1DBF	N
+1E00	1E9B	N
+1EA0	1EF9	N
+1F00	1F15	N
+1F18	1F1D	N
+1F20	1F45	N
+1F48	1F4D	N
+1F50	1F57	N
+1F59		N
+1F5B		N
+1F5D		N
+1F5F	1F7D	N
+1F80	1FB4	N
+1FB6	1FC4	N
+1FC6	1FD3	N
+1FD6	1FDB	N
+1FDD	1FEF	N
+1FF2	1FF4	N
+1FF6	1FFE	N
+2000	200A	N
+2011		N
+2017		N
+2024	2026	N
+202F		N
+2033	2034	N
+2036	2037	N
+203C		N
+203E		N
+2047	2049	N
+2057		N
+205F		N
+2070	2071	N
+2074	208E	N
+2090	209C	N
+20A8		N
+2100	2103	N
+2105	2107	N
+2109	2113	N
+2115	2116	N
+2119	211D	N
+2120	2122	N
+2124		N
+2126		N
+2128		N
+212A	212D	N
+212F	2131	N
+2133	2139	N
+213B	2140	N
+2145	2149	N
+2150	217F	N
+2189		N
+219A	219B	N
+21AE		N
+21CD	21CF	N
+2204		N
+2209		N
+220C		N
+2224		N
+2226		N
+222C	222D	N
+222F	2230	N
+2241		N
+2244		N
+2247		N
+2249		N
+2260		N
+2262		N
+226D	2271	N
+2274	2275	N
+2278	2279	N
+2280	2281	N
+2284	2285	N
+2288	2289	N
+22AC	22AF	N
+22E0	22E3	N
+22EA	22ED	N
+2329	232A	N
+2460	24EA	N
+2A0C		N
+2A74	2A76	N
+2ADC		N
+2C7C	2C7D	N
+2D6F		N
+2E9F		N
+2EF3		N
+2F00	2FD5	N
+3000		N
+3036		N
+3038	303A	N
+304C		N
+304E		N
+3050		N
+3052		N
+3054		N
+3056		N
+3058		N
+305A		N
+305C		N
+305E		N
+3060		N
+3062		N
+3065		N
+3067		N
+3069		N
+3070	3071	N
+3073	3074	N
+3076	3077	N
+3079	307A	N
+307C	307D	N
+3094		N
+309B	309C	N
+309E	309F	N
+30AC		N
+30AE		N
+30B0		N
+30B2		N
+30B4		N
+30B6		N
+30B8		N
+30BA		N
+30BC		N
+30BE		N
+30C0		N
+30C2		N
+30C5		N
+30C7		N
+30C9		N
+30D0	30D1	N
+30D3	30D4	N
+30D6	30D7	N
+30D9	30DA	N
+30DC	30DD	N
+30F4		N
+30F7	30FA	N
+30FE	30FF	N
+3131	318E	N
+3192	319F	N
+3200	321E	N
+3220	3247	N
+3250	327E	N
+3280	32FE	N
+3300	33FF	N
+A69C	A69D	N
+A770		N
+A7F8	A7F9	N
+AB5C	AB5F	N
+AC00	D7A3	N
+F900	FA0D	N
+FA10		N
+FA12		N
+FA15	FA1E	N
+FA20		N
+FA22		N
+FA25	FA26	N
+FA2A	FA6D	N
+FA70	FAD9	N
+FB00	FB06	N
+FB13	FB17	N
+FB1D		N
+FB1F	FB36	N
+FB38	FB3C	N
+FB3E		N
+FB40	FB41	N
+FB43	FB44	N
+FB46	FBB1	N
+FBD3	FD3D	N
+FD50	FD8F	N
+FD92	FDC7	N
+FDF0	FDFC	N
+FE10	FE19	N
+FE30	FE44	N
+FE47	FE52	N
+FE54	FE66	N
+FE68	FE6B	N
+FE70	FE72	N
+FE74		N
+FE76	FEFC	N
+FF01	FFBE	N
+FFC2	FFC7	N
+FFCA	FFCF	N
+FFD2	FFD7	N
+FFDA	FFDC	N
+FFE0	FFE6	N
+FFE8	FFEE	N
+1109A		N
+1109C		N
+110AB		N
+1112E	1112F	N
+1134B	1134C	N
+114BB	114BC	N
+114BE		N
+115BA	115BB	N
+1D15E	1D164	N
+1D1BB	1D1C0	N
+1D400	1D454	N
+1D456	1D49C	N
+1D49E	1D49F	N
+1D4A2		N
+1D4A5	1D4A6	N
+1D4A9	1D4AC	N
+1D4AE	1D4B9	N
+1D4BB		N
+1D4BD	1D4C3	N
+1D4C5	1D505	N
+1D507	1D50A	N
+1D50D	1D514	N
+1D516	1D51C	N
+1D51E	1D539	N
+1D53B	1D53E	N
+1D540	1D544	N
+1D546		N
+1D54A	1D550	N
+1D552	1D6A5	N
+1D6A8	1D7CB	N
+1D7CE	1D7FF	N
+1EE00	1EE03	N
+1EE05	1EE1F	N
+1EE21	1EE22	N
+1EE24		N
+1EE27		N
+1EE29	1EE32	N
+1EE34	1EE37	N
+1EE39		N
+1EE3B		N
+1EE42		N
+1EE47		N
+1EE49		N
+1EE4B		N
+1EE4D	1EE4F	N
+1EE51	1EE52	N
+1EE54		N
+1EE57		N
+1EE59		N
+1EE5B		N
+1EE5D		N
+1EE5F		N
+1EE61	1EE62	N
+1EE64		N
+1EE67	1EE6A	N
+1EE6C	1EE72	N
+1EE74	1EE77	N
+1EE79	1EE7C	N
+1EE7E		N
+1EE80	1EE89	N
+1EE8B	1EE9B	N
+1EEA1	1EEA3	N
+1EEA5	1EEA9	N
+1EEAB	1EEBB	N
+1F100	1F10A	N
+1F110	1F12E	N
+1F130	1F14F	N
+1F16A	1F16B	N
+1F190		N
+1F200	1F202	N
+1F210	1F23A	N
+1F240	1F248	N
+1F250	1F251	N
+2F800	2FA1D	N
+END
diff --git a/lib/5.24.1/unicore/To/Na1.pl b/lib/5.24.1/unicore/To/Na1.pl
new file mode 100644
index 00000000..4e6a173f
--- /dev/null
+++ b/lib/5.24.1/unicore/To/Na1.pl
@@ -0,0 +1,1998 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToNa1'}{'format'} = 's'; # string
+$utf8::SwashInfo{'ToNa1'}{'missing'} = ''; # code point maps to the null string
+
+return <<'END';
+0		NULL
+1		START OF HEADING
+2		START OF TEXT
+3		END OF TEXT
+4		END OF TRANSMISSION
+5		ENQUIRY
+6		ACKNOWLEDGE
+7		BELL
+8		BACKSPACE
+9		CHARACTER TABULATION
+A		LINE FEED (LF)
+B		LINE TABULATION
+C		FORM FEED (FF)
+D		CARRIAGE RETURN (CR)
+E		SHIFT OUT
+F		SHIFT IN
+10		DATA LINK ESCAPE
+11		DEVICE CONTROL ONE
+12		DEVICE CONTROL TWO
+13		DEVICE CONTROL THREE
+14		DEVICE CONTROL FOUR
+15		NEGATIVE ACKNOWLEDGE
+16		SYNCHRONOUS IDLE
+17		END OF TRANSMISSION BLOCK
+18		CANCEL
+19		END OF MEDIUM
+1A		SUBSTITUTE
+1B		ESCAPE
+1C		INFORMATION SEPARATOR FOUR
+1D		INFORMATION SEPARATOR THREE
+1E		INFORMATION SEPARATOR TWO
+1F		INFORMATION SEPARATOR ONE
+27		APOSTROPHE-QUOTE
+28		OPENING PARENTHESIS
+29		CLOSING PARENTHESIS
+2E		PERIOD
+2F		SLASH
+5B		OPENING SQUARE BRACKET
+5C		BACKSLASH
+5D		CLOSING SQUARE BRACKET
+5E		SPACING CIRCUMFLEX
+5F		SPACING UNDERSCORE
+60		SPACING GRAVE
+7B		OPENING CURLY BRACKET
+7C		VERTICAL BAR
+7D		CLOSING CURLY BRACKET
+7F		DELETE
+82		BREAK PERMITTED HERE
+83		NO BREAK HERE
+85		NEXT LINE (NEL)
+86		START OF SELECTED AREA
+87		END OF SELECTED AREA
+88		CHARACTER TABULATION SET
+89		CHARACTER TABULATION WITH JUSTIFICATION
+8A		LINE TABULATION SET
+8B		PARTIAL LINE FORWARD
+8C		PARTIAL LINE BACKWARD
+8D		REVERSE LINE FEED
+8E		SINGLE SHIFT TWO
+8F		SINGLE SHIFT THREE
+90		DEVICE CONTROL STRING
+91		PRIVATE USE ONE
+92		PRIVATE USE TWO
+93		SET TRANSMIT STATE
+94		CANCEL CHARACTER
+95		MESSAGE WAITING
+96		START OF GUARDED AREA
+97		END OF GUARDED AREA
+98		START OF STRING
+9A		SINGLE CHARACTER INTRODUCER
+9B		CONTROL SEQUENCE INTRODUCER
+9C		STRING TERMINATOR
+9D		OPERATING SYSTEM COMMAND
+9E		PRIVACY MESSAGE
+9F		APPLICATION PROGRAM COMMAND
+A0		NON-BREAKING SPACE
+A6		BROKEN VERTICAL BAR
+A8		SPACING DIAERESIS
+AB		LEFT POINTING GUILLEMET
+AE		REGISTERED TRADE MARK SIGN
+AF		SPACING MACRON
+B1		PLUS-OR-MINUS SIGN
+B2		SUPERSCRIPT DIGIT TWO
+B3		SUPERSCRIPT DIGIT THREE
+B4		SPACING ACUTE
+B6		PARAGRAPH SIGN
+B8		SPACING CEDILLA
+B9		SUPERSCRIPT DIGIT ONE
+BB		RIGHT POINTING GUILLEMET
+BC		FRACTION ONE QUARTER
+BD		FRACTION ONE HALF
+BE		FRACTION THREE QUARTERS
+C0		LATIN CAPITAL LETTER A GRAVE
+C1		LATIN CAPITAL LETTER A ACUTE
+C2		LATIN CAPITAL LETTER A CIRCUMFLEX
+C3		LATIN CAPITAL LETTER A TILDE
+C4		LATIN CAPITAL LETTER A DIAERESIS
+C5		LATIN CAPITAL LETTER A RING
+C6		LATIN CAPITAL LETTER A E
+C7		LATIN CAPITAL LETTER C CEDILLA
+C8		LATIN CAPITAL LETTER E GRAVE
+C9		LATIN CAPITAL LETTER E ACUTE
+CA		LATIN CAPITAL LETTER E CIRCUMFLEX
+CB		LATIN CAPITAL LETTER E DIAERESIS
+CC		LATIN CAPITAL LETTER I GRAVE
+CD		LATIN CAPITAL LETTER I ACUTE
+CE		LATIN CAPITAL LETTER I CIRCUMFLEX
+CF		LATIN CAPITAL LETTER I DIAERESIS
+D1		LATIN CAPITAL LETTER N TILDE
+D2		LATIN CAPITAL LETTER O GRAVE
+D3		LATIN CAPITAL LETTER O ACUTE
+D4		LATIN CAPITAL LETTER O CIRCUMFLEX
+D5		LATIN CAPITAL LETTER O TILDE
+D6		LATIN CAPITAL LETTER O DIAERESIS
+D8		LATIN CAPITAL LETTER O SLASH
+D9		LATIN CAPITAL LETTER U GRAVE
+DA		LATIN CAPITAL LETTER U ACUTE
+DB		LATIN CAPITAL LETTER U CIRCUMFLEX
+DC		LATIN CAPITAL LETTER U DIAERESIS
+DD		LATIN CAPITAL LETTER Y ACUTE
+E0		LATIN SMALL LETTER A GRAVE
+E1		LATIN SMALL LETTER A ACUTE
+E2		LATIN SMALL LETTER A CIRCUMFLEX
+E3		LATIN SMALL LETTER A TILDE
+E4		LATIN SMALL LETTER A DIAERESIS
+E5		LATIN SMALL LETTER A RING
+E6		LATIN SMALL LETTER A E
+E7		LATIN SMALL LETTER C CEDILLA
+E8		LATIN SMALL LETTER E GRAVE
+E9		LATIN SMALL LETTER E ACUTE
+EA		LATIN SMALL LETTER E CIRCUMFLEX
+EB		LATIN SMALL LETTER E DIAERESIS
+EC		LATIN SMALL LETTER I GRAVE
+ED		LATIN SMALL LETTER I ACUTE
+EE		LATIN SMALL LETTER I CIRCUMFLEX
+EF		LATIN SMALL LETTER I DIAERESIS
+F1		LATIN SMALL LETTER N TILDE
+F2		LATIN SMALL LETTER O GRAVE
+F3		LATIN SMALL LETTER O ACUTE
+F4		LATIN SMALL LETTER O CIRCUMFLEX
+F5		LATIN SMALL LETTER O TILDE
+F6		LATIN SMALL LETTER O DIAERESIS
+F8		LATIN SMALL LETTER O SLASH
+F9		LATIN SMALL LETTER U GRAVE
+FA		LATIN SMALL LETTER U ACUTE
+FB		LATIN SMALL LETTER U CIRCUMFLEX
+FC		LATIN SMALL LETTER U DIAERESIS
+FD		LATIN SMALL LETTER Y ACUTE
+FF		LATIN SMALL LETTER Y DIAERESIS
+100		LATIN CAPITAL LETTER A MACRON
+101		LATIN SMALL LETTER A MACRON
+102		LATIN CAPITAL LETTER A BREVE
+103		LATIN SMALL LETTER A BREVE
+104		LATIN CAPITAL LETTER A OGONEK
+105		LATIN SMALL LETTER A OGONEK
+106		LATIN CAPITAL LETTER C ACUTE
+107		LATIN SMALL LETTER C ACUTE
+108		LATIN CAPITAL LETTER C CIRCUMFLEX
+109		LATIN SMALL LETTER C CIRCUMFLEX
+10A		LATIN CAPITAL LETTER C DOT
+10B		LATIN SMALL LETTER C DOT
+10C		LATIN CAPITAL LETTER C HACEK
+10D		LATIN SMALL LETTER C HACEK
+10E		LATIN CAPITAL LETTER D HACEK
+10F		LATIN SMALL LETTER D HACEK
+110		LATIN CAPITAL LETTER D BAR
+111		LATIN SMALL LETTER D BAR
+112		LATIN CAPITAL LETTER E MACRON
+113		LATIN SMALL LETTER E MACRON
+114		LATIN CAPITAL LETTER E BREVE
+115		LATIN SMALL LETTER E BREVE
+116		LATIN CAPITAL LETTER E DOT
+117		LATIN SMALL LETTER E DOT
+118		LATIN CAPITAL LETTER E OGONEK
+119		LATIN SMALL LETTER E OGONEK
+11A		LATIN CAPITAL LETTER E HACEK
+11B		LATIN SMALL LETTER E HACEK
+11C		LATIN CAPITAL LETTER G CIRCUMFLEX
+11D		LATIN SMALL LETTER G CIRCUMFLEX
+11E		LATIN CAPITAL LETTER G BREVE
+11F		LATIN SMALL LETTER G BREVE
+120		LATIN CAPITAL LETTER G DOT
+121		LATIN SMALL LETTER G DOT
+122		LATIN CAPITAL LETTER G CEDILLA
+123		LATIN SMALL LETTER G CEDILLA
+124		LATIN CAPITAL LETTER H CIRCUMFLEX
+125		LATIN SMALL LETTER H CIRCUMFLEX
+126		LATIN CAPITAL LETTER H BAR
+127		LATIN SMALL LETTER H BAR
+128		LATIN CAPITAL LETTER I TILDE
+129		LATIN SMALL LETTER I TILDE
+12A		LATIN CAPITAL LETTER I MACRON
+12B		LATIN SMALL LETTER I MACRON
+12C		LATIN CAPITAL LETTER I BREVE
+12D		LATIN SMALL LETTER I BREVE
+12E		LATIN CAPITAL LETTER I OGONEK
+12F		LATIN SMALL LETTER I OGONEK
+130		LATIN CAPITAL LETTER I DOT
+132		LATIN CAPITAL LETTER I J
+133		LATIN SMALL LETTER I J
+134		LATIN CAPITAL LETTER J CIRCUMFLEX
+135		LATIN SMALL LETTER J CIRCUMFLEX
+136		LATIN CAPITAL LETTER K CEDILLA
+137		LATIN SMALL LETTER K CEDILLA
+139		LATIN CAPITAL LETTER L ACUTE
+13A		LATIN SMALL LETTER L ACUTE
+13B		LATIN CAPITAL LETTER L CEDILLA
+13C		LATIN SMALL LETTER L CEDILLA
+13D		LATIN CAPITAL LETTER L HACEK
+13E		LATIN SMALL LETTER L HACEK
+141		LATIN CAPITAL LETTER L SLASH
+142		LATIN SMALL LETTER L SLASH
+143		LATIN CAPITAL LETTER N ACUTE
+144		LATIN SMALL LETTER N ACUTE
+145		LATIN CAPITAL LETTER N CEDILLA
+146		LATIN SMALL LETTER N CEDILLA
+147		LATIN CAPITAL LETTER N HACEK
+148		LATIN SMALL LETTER N HACEK
+149		LATIN SMALL LETTER APOSTROPHE N
+14C		LATIN CAPITAL LETTER O MACRON
+14D		LATIN SMALL LETTER O MACRON
+14E		LATIN CAPITAL LETTER O BREVE
+14F		LATIN SMALL LETTER O BREVE
+150		LATIN CAPITAL LETTER O DOUBLE ACUTE
+151		LATIN SMALL LETTER O DOUBLE ACUTE
+152		LATIN CAPITAL LETTER O E
+153		LATIN SMALL LETTER O E
+154		LATIN CAPITAL LETTER R ACUTE
+155		LATIN SMALL LETTER R ACUTE
+156		LATIN CAPITAL LETTER R CEDILLA
+157		LATIN SMALL LETTER R CEDILLA
+158		LATIN CAPITAL LETTER R HACEK
+159		LATIN SMALL LETTER R HACEK
+15A		LATIN CAPITAL LETTER S ACUTE
+15B		LATIN SMALL LETTER S ACUTE
+15C		LATIN CAPITAL LETTER S CIRCUMFLEX
+15D		LATIN SMALL LETTER S CIRCUMFLEX
+15E		LATIN CAPITAL LETTER S CEDILLA
+15F		LATIN SMALL LETTER S CEDILLA
+160		LATIN CAPITAL LETTER S HACEK
+161		LATIN SMALL LETTER S HACEK
+162		LATIN CAPITAL LETTER T CEDILLA
+163		LATIN SMALL LETTER T CEDILLA
+164		LATIN CAPITAL LETTER T HACEK
+165		LATIN SMALL LETTER T HACEK
+166		LATIN CAPITAL LETTER T BAR
+167		LATIN SMALL LETTER T BAR
+168		LATIN CAPITAL LETTER U TILDE
+169		LATIN SMALL LETTER U TILDE
+16A		LATIN CAPITAL LETTER U MACRON
+16B		LATIN SMALL LETTER U MACRON
+16C		LATIN CAPITAL LETTER U BREVE
+16D		LATIN SMALL LETTER U BREVE
+16E		LATIN CAPITAL LETTER U RING
+16F		LATIN SMALL LETTER U RING
+170		LATIN CAPITAL LETTER U DOUBLE ACUTE
+171		LATIN SMALL LETTER U DOUBLE ACUTE
+172		LATIN CAPITAL LETTER U OGONEK
+173		LATIN SMALL LETTER U OGONEK
+174		LATIN CAPITAL LETTER W CIRCUMFLEX
+175		LATIN SMALL LETTER W CIRCUMFLEX
+176		LATIN CAPITAL LETTER Y CIRCUMFLEX
+177		LATIN SMALL LETTER Y CIRCUMFLEX
+178		LATIN CAPITAL LETTER Y DIAERESIS
+179		LATIN CAPITAL LETTER Z ACUTE
+17A		LATIN SMALL LETTER Z ACUTE
+17B		LATIN CAPITAL LETTER Z DOT
+17C		LATIN SMALL LETTER Z DOT
+17D		LATIN CAPITAL LETTER Z HACEK
+17E		LATIN SMALL LETTER Z HACEK
+180		LATIN SMALL LETTER B BAR
+181		LATIN CAPITAL LETTER B HOOK
+182		LATIN CAPITAL LETTER B TOPBAR
+183		LATIN SMALL LETTER B TOPBAR
+187		LATIN CAPITAL LETTER C HOOK
+188		LATIN SMALL LETTER C HOOK
+18A		LATIN CAPITAL LETTER D HOOK
+18B		LATIN CAPITAL LETTER D TOPBAR
+18C		LATIN SMALL LETTER D TOPBAR
+18E		LATIN CAPITAL LETTER TURNED E
+190		LATIN CAPITAL LETTER EPSILON
+191		LATIN CAPITAL LETTER F HOOK
+192		LATIN SMALL LETTER SCRIPT F
+193		LATIN CAPITAL LETTER G HOOK
+195		LATIN SMALL LETTER H V
+197		LATIN CAPITAL LETTER BARRED I
+198		LATIN CAPITAL LETTER K HOOK
+199		LATIN SMALL LETTER K HOOK
+19A		LATIN SMALL LETTER BARRED L
+19B		LATIN SMALL LETTER BARRED LAMBDA
+19D		LATIN CAPITAL LETTER N HOOK
+19F		LATIN CAPITAL LETTER BARRED O
+1A0		LATIN CAPITAL LETTER O HORN
+1A1		LATIN SMALL LETTER O HORN
+1A2		LATIN CAPITAL LETTER O I
+1A3		LATIN SMALL LETTER O I
+1A4		LATIN CAPITAL LETTER P HOOK
+1A5		LATIN SMALL LETTER P HOOK
+1A6		LATIN LETTER Y R
+1AB		LATIN SMALL LETTER T PALATAL HOOK
+1AC		LATIN CAPITAL LETTER T HOOK
+1AD		LATIN SMALL LETTER T HOOK
+1AE		LATIN CAPITAL LETTER T RETROFLEX HOOK
+1AF		LATIN CAPITAL LETTER U HORN
+1B0		LATIN SMALL LETTER U HORN
+1B2		LATIN CAPITAL LETTER SCRIPT V
+1B3		LATIN CAPITAL LETTER Y HOOK
+1B4		LATIN SMALL LETTER Y HOOK
+1B5		LATIN CAPITAL LETTER Z BAR
+1B6		LATIN SMALL LETTER Z BAR
+1B7		LATIN CAPITAL LETTER YOGH
+1B8		LATIN CAPITAL LETTER REVERSED YOGH
+1B9		LATIN SMALL LETTER REVERSED YOGH
+1BA		LATIN SMALL LETTER YOGH WITH TAIL
+1BB		LATIN LETTER TWO BAR
+1BE		LATIN LETTER INVERTED GLOTTAL STOP BAR
+1C0		LATIN LETTER PIPE
+1C1		LATIN LETTER DOUBLE PIPE
+1C2		LATIN LETTER PIPE DOUBLE BAR
+1C3		LATIN LETTER EXCLAMATION MARK
+1C4		LATIN CAPITAL LETTER D Z HACEK
+1C5		LATIN LETTER CAPITAL D SMALL Z HACEK
+1C6		LATIN SMALL LETTER D Z HACEK
+1C7		LATIN CAPITAL LETTER L J
+1C8		LATIN LETTER CAPITAL L SMALL J
+1C9		LATIN SMALL LETTER L J
+1CA		LATIN CAPITAL LETTER N J
+1CB		LATIN LETTER CAPITAL N SMALL J
+1CC		LATIN SMALL LETTER N J
+1CD		LATIN CAPITAL LETTER A HACEK
+1CE		LATIN SMALL LETTER A HACEK
+1CF		LATIN CAPITAL LETTER I HACEK
+1D0		LATIN SMALL LETTER I HACEK
+1D1		LATIN CAPITAL LETTER O HACEK
+1D2		LATIN SMALL LETTER O HACEK
+1D3		LATIN CAPITAL LETTER U HACEK
+1D4		LATIN SMALL LETTER U HACEK
+1D5		LATIN CAPITAL LETTER U DIAERESIS MACRON
+1D6		LATIN SMALL LETTER U DIAERESIS MACRON
+1D7		LATIN CAPITAL LETTER U DIAERESIS ACUTE
+1D8		LATIN SMALL LETTER U DIAERESIS ACUTE
+1D9		LATIN CAPITAL LETTER U DIAERESIS HACEK
+1DA		LATIN SMALL LETTER U DIAERESIS HACEK
+1DB		LATIN CAPITAL LETTER U DIAERESIS GRAVE
+1DC		LATIN SMALL LETTER U DIAERESIS GRAVE
+1DE		LATIN CAPITAL LETTER A DIAERESIS MACRON
+1DF		LATIN SMALL LETTER A DIAERESIS MACRON
+1E0		LATIN CAPITAL LETTER A DOT MACRON
+1E1		LATIN SMALL LETTER A DOT MACRON
+1E2		LATIN CAPITAL LETTER A E MACRON
+1E3		LATIN SMALL LETTER A E MACRON
+1E4		LATIN CAPITAL LETTER G BAR
+1E5		LATIN SMALL LETTER G BAR
+1E6		LATIN CAPITAL LETTER G HACEK
+1E7		LATIN SMALL LETTER G HACEK
+1E8		LATIN CAPITAL LETTER K HACEK
+1E9		LATIN SMALL LETTER K HACEK
+1EA		LATIN CAPITAL LETTER O OGONEK
+1EB		LATIN SMALL LETTER O OGONEK
+1EC		LATIN CAPITAL LETTER O OGONEK MACRON
+1ED		LATIN SMALL LETTER O OGONEK MACRON
+1EE		LATIN CAPITAL LETTER YOGH HACEK
+1EF		LATIN SMALL LETTER YOGH HACEK
+1F0		LATIN SMALL LETTER J HACEK
+251		LATIN SMALL LETTER SCRIPT A
+252		LATIN SMALL LETTER TURNED SCRIPT A
+253		LATIN SMALL LETTER B HOOK
+255		LATIN SMALL LETTER C CURL
+256		LATIN SMALL LETTER D RETROFLEX HOOK
+257		LATIN SMALL LETTER D HOOK
+25A		LATIN SMALL LETTER SCHWA HOOK
+25B		LATIN SMALL LETTER EPSILON
+25C		LATIN SMALL LETTER REVERSED EPSILON
+25D		LATIN SMALL LETTER REVERSED EPSILON HOOK
+25E		LATIN SMALL LETTER CLOSED REVERSED EPSILON
+25F		LATIN SMALL LETTER DOTLESS J BAR
+260		LATIN SMALL LETTER G HOOK
+264		LATIN SMALL LETTER BABY GAMMA
+266		LATIN SMALL LETTER H HOOK
+267		LATIN SMALL LETTER HENG HOOK
+268		LATIN SMALL LETTER BARRED I
+26C		LATIN SMALL LETTER L BELT
+26D		LATIN SMALL LETTER L RETROFLEX HOOK
+26E		LATIN SMALL LETTER L YOGH
+271		LATIN SMALL LETTER M HOOK
+272		LATIN SMALL LETTER N HOOK
+273		LATIN SMALL LETTER N RETROFLEX HOOK
+276		LATIN LETTER SMALL CAPITAL O E
+27B		LATIN SMALL LETTER TURNED R HOOK
+27D		LATIN SMALL LETTER R HOOK
+27E		LATIN SMALL LETTER FISHHOOK R
+27F		LATIN SMALL LETTER REVERSED FISHHOOK R
+282		LATIN SMALL LETTER S HOOK
+284		LATIN SMALL LETTER DOTLESS J BAR HOOK
+286		LATIN SMALL LETTER ESH CURL
+288		LATIN SMALL LETTER T RETROFLEX HOOK
+28B		LATIN SMALL LETTER SCRIPT V
+290		LATIN SMALL LETTER Z RETROFLEX HOOK
+291		LATIN SMALL LETTER Z CURL
+292		LATIN SMALL LETTER YOGH
+293		LATIN SMALL LETTER YOGH CURL
+295		LATIN LETTER REVERSED GLOTTAL STOP
+298		LATIN LETTER BULLSEYE
+29A		LATIN SMALL LETTER CLOSED EPSILON
+29B		LATIN LETTER SMALL CAPITAL G HOOK
+29D		LATIN SMALL LETTER CROSSED-TAIL J
+2A0		LATIN SMALL LETTER Q HOOK
+2A1		LATIN LETTER GLOTTAL STOP BAR
+2A2		LATIN LETTER REVERSED GLOTTAL STOP BAR
+2A3		LATIN SMALL LETTER D Z
+2A4		LATIN SMALL LETTER D YOGH
+2A5		LATIN SMALL LETTER D Z CURL
+2A6		LATIN SMALL LETTER T S
+2A7		LATIN SMALL LETTER T ESH
+2A8		LATIN SMALL LETTER T C CURL
+2B1		MODIFIER LETTER SMALL H HOOK
+2B5		MODIFIER LETTER SMALL TURNED R HOOK
+2C6		MODIFIER LETTER CIRCUMFLEX
+2C7		MODIFIER LETTER HACEK
+2CA		MODIFIER LETTER ACUTE
+2CB		MODIFIER LETTER GRAVE
+2CE		MODIFIER LETTER LOW GRAVE
+2CF		MODIFIER LETTER LOW ACUTE
+2D2		MODIFIER LETTER CENTERED RIGHT HALF RING
+2D3		MODIFIER LETTER CENTERED LEFT HALF RING
+2D8		SPACING BREVE
+2D9		SPACING DOT ABOVE
+2DA		SPACING RING ABOVE
+2DB		SPACING OGONEK
+2DC		SPACING TILDE
+2DD		SPACING DOUBLE ACUTE
+300		NON-SPACING GRAVE
+301		NON-SPACING ACUTE
+302		NON-SPACING CIRCUMFLEX
+303		NON-SPACING TILDE
+304		NON-SPACING MACRON
+305		NON-SPACING OVERSCORE
+306		NON-SPACING BREVE
+307		NON-SPACING DOT ABOVE
+308		NON-SPACING DIAERESIS
+309		NON-SPACING HOOK ABOVE
+30A		NON-SPACING RING ABOVE
+30B		NON-SPACING DOUBLE ACUTE
+30C		NON-SPACING HACEK
+30D		NON-SPACING VERTICAL LINE ABOVE
+30E		NON-SPACING DOUBLE VERTICAL LINE ABOVE
+30F		NON-SPACING DOUBLE GRAVE
+310		NON-SPACING CANDRABINDU
+311		NON-SPACING INVERTED BREVE
+312		NON-SPACING TURNED COMMA ABOVE
+313		NON-SPACING COMMA ABOVE
+314		NON-SPACING REVERSED COMMA ABOVE
+315		NON-SPACING COMMA ABOVE RIGHT
+316		NON-SPACING GRAVE BELOW
+317		NON-SPACING ACUTE BELOW
+318		NON-SPACING LEFT TACK BELOW
+319		NON-SPACING RIGHT TACK BELOW
+31A		NON-SPACING LEFT ANGLE ABOVE
+31B		NON-SPACING HORN
+31C		NON-SPACING LEFT HALF RING BELOW
+31D		NON-SPACING UP TACK BELOW
+31E		NON-SPACING DOWN TACK BELOW
+31F		NON-SPACING PLUS SIGN BELOW
+320		NON-SPACING MINUS SIGN BELOW
+321		NON-SPACING PALATALIZED HOOK BELOW
+322		NON-SPACING RETROFLEX HOOK BELOW
+323		NON-SPACING DOT BELOW
+324		NON-SPACING DOUBLE DOT BELOW
+325		NON-SPACING RING BELOW
+326		NON-SPACING COMMA BELOW
+327		NON-SPACING CEDILLA
+328		NON-SPACING OGONEK
+329		NON-SPACING VERTICAL LINE BELOW
+32A		NON-SPACING BRIDGE BELOW
+32B		NON-SPACING INVERTED DOUBLE ARCH BELOW
+32C		NON-SPACING HACEK BELOW
+32D		NON-SPACING CIRCUMFLEX BELOW
+32E		NON-SPACING BREVE BELOW
+32F		NON-SPACING INVERTED BREVE BELOW
+330		NON-SPACING TILDE BELOW
+331		NON-SPACING MACRON BELOW
+332		NON-SPACING UNDERSCORE
+333		NON-SPACING DOUBLE UNDERSCORE
+334		NON-SPACING TILDE OVERLAY
+335		NON-SPACING SHORT BAR OVERLAY
+336		NON-SPACING LONG BAR OVERLAY
+337		NON-SPACING SHORT SLASH OVERLAY
+338		NON-SPACING LONG SLASH OVERLAY
+339		NON-SPACING RIGHT HALF RING BELOW
+33A		NON-SPACING INVERTED BRIDGE BELOW
+33B		NON-SPACING SQUARE BELOW
+33C		NON-SPACING SEAGULL BELOW
+33D		NON-SPACING X ABOVE
+33E		NON-SPACING VERTICAL TILDE
+33F		NON-SPACING DOUBLE OVERSCORE
+340		NON-SPACING GRAVE TONE MARK
+341		NON-SPACING ACUTE TONE MARK
+344		GREEK NON-SPACING DIAERESIS TONOS
+345		GREEK NON-SPACING IOTA BELOW
+374		GREEK UPPER NUMERAL SIGN
+37A		GREEK SPACING IOTA BELOW
+384		GREEK SPACING TONOS
+385		GREEK SPACING DIAERESIS TONOS
+386		GREEK CAPITAL LETTER ALPHA TONOS
+388		GREEK CAPITAL LETTER EPSILON TONOS
+389		GREEK CAPITAL LETTER ETA TONOS
+38A		GREEK CAPITAL LETTER IOTA TONOS
+38C		GREEK CAPITAL LETTER OMICRON TONOS
+38E		GREEK CAPITAL LETTER UPSILON TONOS
+38F		GREEK CAPITAL LETTER OMEGA TONOS
+390		GREEK SMALL LETTER IOTA DIAERESIS TONOS
+39B		GREEK CAPITAL LETTER LAMBDA
+3AA		GREEK CAPITAL LETTER IOTA DIAERESIS
+3AB		GREEK CAPITAL LETTER UPSILON DIAERESIS
+3AC		GREEK SMALL LETTER ALPHA TONOS
+3AD		GREEK SMALL LETTER EPSILON TONOS
+3AE		GREEK SMALL LETTER ETA TONOS
+3AF		GREEK SMALL LETTER IOTA TONOS
+3B0		GREEK SMALL LETTER UPSILON DIAERESIS TONOS
+3BB		GREEK SMALL LETTER LAMBDA
+3CA		GREEK SMALL LETTER IOTA DIAERESIS
+3CB		GREEK SMALL LETTER UPSILON DIAERESIS
+3CC		GREEK SMALL LETTER OMICRON TONOS
+3CD		GREEK SMALL LETTER UPSILON TONOS
+3CE		GREEK SMALL LETTER OMEGA TONOS
+3D0		GREEK SMALL LETTER CURLED BETA
+3D1		GREEK SMALL LETTER SCRIPT THETA
+3D2		GREEK CAPITAL LETTER UPSILON HOOK
+3D3		GREEK CAPITAL LETTER UPSILON HOOK TONOS
+3D4		GREEK CAPITAL LETTER UPSILON HOOK DIAERESIS
+3D5		GREEK SMALL LETTER SCRIPT PHI
+3D6		GREEK SMALL LETTER OMEGA PI
+3DA		GREEK CAPITAL LETTER STIGMA
+3DC		GREEK CAPITAL LETTER DIGAMMA
+3DE		GREEK CAPITAL LETTER KOPPA
+3E0		GREEK CAPITAL LETTER SAMPI
+3E2		GREEK CAPITAL LETTER SHEI
+3E3		GREEK SMALL LETTER SHEI
+3E4		GREEK CAPITAL LETTER FEI
+3E5		GREEK SMALL LETTER FEI
+3E6		GREEK CAPITAL LETTER KHEI
+3E7		GREEK SMALL LETTER KHEI
+3E8		GREEK CAPITAL LETTER HORI
+3E9		GREEK SMALL LETTER HORI
+3EA		GREEK CAPITAL LETTER GANGIA
+3EB		GREEK SMALL LETTER GANGIA
+3EC		GREEK CAPITAL LETTER SHIMA
+3ED		GREEK SMALL LETTER SHIMA
+3EE		GREEK CAPITAL LETTER DEI
+3EF		GREEK SMALL LETTER DEI
+3F0		GREEK SMALL LETTER SCRIPT KAPPA
+3F1		GREEK SMALL LETTER TAILED RHO
+3F2		GREEK SMALL LETTER LUNATE SIGMA
+404		CYRILLIC CAPITAL LETTER E
+406		CYRILLIC CAPITAL LETTER I
+413		CYRILLIC CAPITAL LETTER GE
+418		CYRILLIC CAPITAL LETTER II
+419		CYRILLIC CAPITAL LETTER SHORT II
+425		CYRILLIC CAPITAL LETTER KHA
+42B		CYRILLIC CAPITAL LETTER YERI
+42D		CYRILLIC CAPITAL LETTER REVERSED E
+42E		CYRILLIC CAPITAL LETTER IU
+42F		CYRILLIC CAPITAL LETTER IA
+433		CYRILLIC SMALL LETTER GE
+438		CYRILLIC SMALL LETTER II
+439		CYRILLIC SMALL LETTER SHORT II
+445		CYRILLIC SMALL LETTER KHA
+44B		CYRILLIC SMALL LETTER YERI
+44D		CYRILLIC SMALL LETTER REVERSED E
+44E		CYRILLIC SMALL LETTER IU
+44F		CYRILLIC SMALL LETTER IA
+454		CYRILLIC SMALL LETTER E
+456		CYRILLIC SMALL LETTER I
+476		CYRILLIC CAPITAL LETTER IZHITSA DOUBLE GRAVE
+477		CYRILLIC SMALL LETTER IZHITSA DOUBLE GRAVE
+478		CYRILLIC CAPITAL LETTER UK DIGRAPH
+479		CYRILLIC SMALL LETTER UK DIGRAPH
+47C		CYRILLIC CAPITAL LETTER OMEGA TITLO
+47D		CYRILLIC SMALL LETTER OMEGA TITLO
+483		CYRILLIC NON-SPACING TITLO
+484		CYRILLIC NON-SPACING PALATALIZATION
+485		CYRILLIC NON-SPACING DASIA PNEUMATA
+486		CYRILLIC NON-SPACING PSILI PNEUMATA
+490		CYRILLIC CAPITAL LETTER GE WITH UPTURN
+491		CYRILLIC SMALL LETTER GE WITH UPTURN
+492		CYRILLIC CAPITAL LETTER GE BAR
+493		CYRILLIC SMALL LETTER GE BAR
+494		CYRILLIC CAPITAL LETTER GE HOOK
+495		CYRILLIC SMALL LETTER GE HOOK
+496		CYRILLIC CAPITAL LETTER ZHE WITH RIGHT DESCENDER
+497		CYRILLIC SMALL LETTER ZHE WITH RIGHT DESCENDER
+498		CYRILLIC CAPITAL LETTER ZE CEDILLA
+499		CYRILLIC SMALL LETTER ZE CEDILLA
+49A		CYRILLIC CAPITAL LETTER KA WITH RIGHT DESCENDER
+49B		CYRILLIC SMALL LETTER KA WITH RIGHT DESCENDER
+49C		CYRILLIC CAPITAL LETTER KA VERTICAL BAR
+49D		CYRILLIC SMALL LETTER KA VERTICAL BAR
+49E		CYRILLIC CAPITAL LETTER KA BAR
+49F		CYRILLIC SMALL LETTER KA BAR
+4A0		CYRILLIC CAPITAL LETTER REVERSED GE KA
+4A1		CYRILLIC SMALL LETTER REVERSED GE KA
+4A2		CYRILLIC CAPITAL LETTER EN WITH RIGHT DESCENDER
+4A3		CYRILLIC SMALL LETTER EN WITH RIGHT DESCENDER
+4A4		CYRILLIC CAPITAL LETTER EN GE
+4A5		CYRILLIC SMALL LETTER EN GE
+4A6		CYRILLIC CAPITAL LETTER PE HOOK
+4A7		CYRILLIC SMALL LETTER PE HOOK
+4A8		CYRILLIC CAPITAL LETTER O HOOK
+4A9		CYRILLIC SMALL LETTER O HOOK
+4AA		CYRILLIC CAPITAL LETTER ES CEDILLA
+4AB		CYRILLIC SMALL LETTER ES CEDILLA
+4AC		CYRILLIC CAPITAL LETTER TE WITH RIGHT DESCENDER
+4AD		CYRILLIC SMALL LETTER TE WITH RIGHT DESCENDER
+4B0		CYRILLIC CAPITAL LETTER STRAIGHT U BAR
+4B1		CYRILLIC SMALL LETTER STRAIGHT U BAR
+4B2		CYRILLIC CAPITAL LETTER KHA WITH RIGHT DESCENDER
+4B3		CYRILLIC SMALL LETTER KHA WITH RIGHT DESCENDER
+4B4		CYRILLIC CAPITAL LETTER TE TSE
+4B5		CYRILLIC SMALL LETTER TE TSE
+4B6		CYRILLIC CAPITAL LETTER CHE WITH RIGHT DESCENDER
+4B7		CYRILLIC SMALL LETTER CHE WITH RIGHT DESCENDER
+4B8		CYRILLIC CAPITAL LETTER CHE VERTICAL BAR
+4B9		CYRILLIC SMALL LETTER CHE VERTICAL BAR
+4BA		CYRILLIC CAPITAL LETTER H
+4BB		CYRILLIC SMALL LETTER H
+4BC		CYRILLIC CAPITAL LETTER IE HOOK
+4BD		CYRILLIC SMALL LETTER IE HOOK
+4BE		CYRILLIC CAPITAL LETTER IE HOOK OGONEK
+4BF		CYRILLIC SMALL LETTER IE HOOK OGONEK
+4C0		CYRILLIC LETTER I
+4C1		CYRILLIC CAPITAL LETTER SHORT ZHE
+4C2		CYRILLIC SMALL LETTER SHORT ZHE
+4C3		CYRILLIC CAPITAL LETTER KA HOOK
+4C4		CYRILLIC SMALL LETTER KA HOOK
+4C7		CYRILLIC CAPITAL LETTER EN HOOK
+4C8		CYRILLIC SMALL LETTER EN HOOK
+4CB		CYRILLIC CAPITAL LETTER CHE WITH LEFT DESCENDER
+4CC		CYRILLIC SMALL LETTER CHE WITH LEFT DESCENDER
+542		ARMENIAN CAPITAL LETTER LAD
+55A		ARMENIAN MODIFIER LETTER RIGHT HALF RING
+572		ARMENIAN SMALL LETTER LAD
+589		ARMENIAN PERIOD
+5BC		HEBREW POINT DAGESH
+5C0		HEBREW POINT PASEQ
+5F0		HEBREW LETTER DOUBLE VAV
+5F1		HEBREW LETTER VAV YOD
+5F2		HEBREW LETTER DOUBLE YOD
+621		ARABIC LETTER HAMZAH
+622		ARABIC LETTER MADDAH ON ALEF
+623		ARABIC LETTER HAMZAH ON ALEF
+624		ARABIC LETTER HAMZAH ON WAW
+625		ARABIC LETTER HAMZAH UNDER ALEF
+626		ARABIC LETTER HAMZAH ON YA
+628		ARABIC LETTER BAA
+629		ARABIC LETTER TAA MARBUTAH
+62A		ARABIC LETTER TAA
+62B		ARABIC LETTER THAA
+62D		ARABIC LETTER HAA
+62E		ARABIC LETTER KHAA
+631		ARABIC LETTER RA
+638		ARABIC LETTER DHAH
+641		ARABIC LETTER FA
+643		ARABIC LETTER CAF
+647		ARABIC LETTER HA
+649		ARABIC LETTER ALEF MAQSURAH
+64A		ARABIC LETTER YA
+64E		ARABIC FATHAH
+64F		ARABIC DAMMAH
+650		ARABIC KASRAH
+651		ARABIC SHADDAH
+670		ARABIC ALEF ABOVE
+671		ARABIC LETTER HAMZAT WASL ON ALEF
+672		ARABIC LETTER WAVY HAMZAH ON ALEF
+673		ARABIC LETTER WAVY HAMZAH UNDER ALEF
+674		ARABIC LETTER HIGH HAMZAH
+675		ARABIC LETTER HIGH HAMZAH ALEF
+676		ARABIC LETTER HIGH HAMZAH WAW
+677		ARABIC LETTER HIGH HAMZAH WAW WITH DAMMAH
+678		ARABIC LETTER HIGH HAMZAH YA
+679		ARABIC LETTER TAA WITH SMALL TAH
+67A		ARABIC LETTER TAA WITH TWO DOTS VERTICAL ABOVE
+67B		ARABIC LETTER BAA WITH TWO DOTS VERTICAL BELOW
+67C		ARABIC LETTER TAA WITH RING
+67D		ARABIC LETTER TAA WITH THREE DOTS ABOVE DOWNWARD
+67E		ARABIC LETTER TAA WITH THREE DOTS BELOW
+67F		ARABIC LETTER TAA WITH FOUR DOTS ABOVE
+680		ARABIC LETTER BAA WITH FOUR DOTS BELOW
+681		ARABIC LETTER HAMZAH ON HAA
+682		ARABIC LETTER HAA WITH TWO DOTS VERTICAL ABOVE
+683		ARABIC LETTER HAA WITH MIDDLE TWO DOTS
+684		ARABIC LETTER HAA WITH MIDDLE TWO DOTS VERTICAL
+685		ARABIC LETTER HAA WITH THREE DOTS ABOVE
+686		ARABIC LETTER HAA WITH MIDDLE THREE DOTS DOWNWARD
+687		ARABIC LETTER HAA WITH MIDDLE FOUR DOTS
+688		ARABIC LETTER DAL WITH SMALL TAH
+68C		ARABIC LETTER DAL WITH TWO DOTS ABOVE
+68D		ARABIC LETTER DAL WITH TWO DOTS BELOW
+68E		ARABIC LETTER DAL WITH THREE DOTS ABOVE
+68F		ARABIC LETTER DAL WITH THREE DOTS ABOVE DOWNWARD
+691		ARABIC LETTER RA WITH SMALL TAH
+692		ARABIC LETTER RA WITH SMALL V
+693		ARABIC LETTER RA WITH RING
+694		ARABIC LETTER RA WITH DOT BELOW
+695		ARABIC LETTER RA WITH SMALL V BELOW
+696		ARABIC LETTER RA WITH DOT BELOW AND DOT ABOVE
+697		ARABIC LETTER RA WITH TWO DOTS ABOVE
+698		ARABIC LETTER RA WITH THREE DOTS ABOVE
+699		ARABIC LETTER RA WITH FOUR DOTS ABOVE
+6A1		ARABIC LETTER DOTLESS FA
+6A2		ARABIC LETTER FA WITH DOT MOVED BELOW
+6A3		ARABIC LETTER FA WITH DOT BELOW
+6A4		ARABIC LETTER FA WITH THREE DOTS ABOVE
+6A5		ARABIC LETTER FA WITH THREE DOTS BELOW
+6A6		ARABIC LETTER FA WITH FOUR DOTS ABOVE
+6A9		ARABIC LETTER OPEN CAF
+6AA		ARABIC LETTER SWASH CAF
+6AB		ARABIC LETTER CAF WITH RING
+6AC		ARABIC LETTER CAF WITH DOT ABOVE
+6AD		ARABIC LETTER CAF WITH THREE DOTS ABOVE
+6AE		ARABIC LETTER CAF WITH THREE DOTS BELOW
+6B1		ARABIC LETTER GAF WITH TWO DOTS ABOVE
+6B3		ARABIC LETTER GAF WITH TWO DOTS VERTICAL BELOW
+6BA		ARABIC LETTER DOTLESS NOON
+6BB		ARABIC LETTER DOTLESS NOON WITH SMALL TAH
+6BE		ARABIC LETTER KNOTTED HA
+6C0		ARABIC LETTER HAMZAH ON HA
+6C1		ARABIC LETTER HA GOAL
+6C2		ARABIC LETTER HAMZAH ON HA GOAL
+6C3		ARABIC LETTER TAA MARBUTAH GOAL
+6C5		ARABIC LETTER WAW WITH BAR
+6C6		ARABIC LETTER WAW WITH SMALL V
+6C7		ARABIC LETTER WAW WITH DAMMAH
+6C8		ARABIC LETTER WAW WITH ALEF ABOVE
+6C9		ARABIC LETTER WAW WITH INVERTED SMALL V
+6CB		ARABIC LETTER WAW WITH THREE DOTS ABOVE
+6CC		ARABIC LETTER DOTLESS YA
+6CD		ARABIC LETTER YA WITH TAIL
+6CE		ARABIC LETTER YA WITH SMALL V
+6D0		ARABIC LETTER YA WITH TWO DOTS VERTICAL BELOW
+6D1		ARABIC LETTER YA WITH THREE DOTS BELOW
+6D2		ARABIC LETTER YA BARREE
+6D3		ARABIC LETTER HAMZAH ON YA BARREE
+6D4		ARABIC PERIOD
+6F0		EASTERN ARABIC-INDIC DIGIT ZERO
+6F1		EASTERN ARABIC-INDIC DIGIT ONE
+6F2		EASTERN ARABIC-INDIC DIGIT TWO
+6F3		EASTERN ARABIC-INDIC DIGIT THREE
+6F4		EASTERN ARABIC-INDIC DIGIT FOUR
+6F5		EASTERN ARABIC-INDIC DIGIT FIVE
+6F6		EASTERN ARABIC-INDIC DIGIT SIX
+6F7		EASTERN ARABIC-INDIC DIGIT SEVEN
+6F8		EASTERN ARABIC-INDIC DIGIT EIGHT
+6F9		EASTERN ARABIC-INDIC DIGIT NINE
+9F1		BENGALI LETTER VA WITH LOWER DIAGONAL
+E01		THAI LETTER KO KAI
+E02		THAI LETTER KHO KHAI
+E03		THAI LETTER KHO KHUAT
+E04		THAI LETTER KHO KHWAI
+E05		THAI LETTER KHO KHON
+E06		THAI LETTER KHO RAKHANG
+E07		THAI LETTER NGO NGU
+E08		THAI LETTER CHO CHAN
+E09		THAI LETTER CHO CHING
+E0A		THAI LETTER CHO CHANG
+E0B		THAI LETTER SO SO
+E0C		THAI LETTER CHO CHOE
+E0D		THAI LETTER YO YING
+E0E		THAI LETTER DO CHADA
+E0F		THAI LETTER TO PATAK
+E10		THAI LETTER THO THAN
+E11		THAI LETTER THO NANGMONTHO
+E12		THAI LETTER THO PHUTHAO
+E13		THAI LETTER NO NEN
+E14		THAI LETTER DO DEK
+E15		THAI LETTER TO TAO
+E16		THAI LETTER THO THUNG
+E17		THAI LETTER THO THAHAN
+E18		THAI LETTER THO THONG
+E19		THAI LETTER NO NU
+E1A		THAI LETTER BO BAIMAI
+E1B		THAI LETTER PO PLA
+E1C		THAI LETTER PHO PHUNG
+E1D		THAI LETTER FO FA
+E1E		THAI LETTER PHO PHAN
+E1F		THAI LETTER FO FAN
+E20		THAI LETTER PHO SAMPHAO
+E21		THAI LETTER MO MA
+E22		THAI LETTER YO YAK
+E23		THAI LETTER RO RUA
+E24		THAI LETTER RU
+E25		THAI LETTER LO LING
+E26		THAI LETTER LU
+E27		THAI LETTER WO WAEN
+E28		THAI LETTER SO SALA
+E29		THAI LETTER SO RUSI
+E2A		THAI LETTER SO SUA
+E2B		THAI LETTER HO HIP
+E2C		THAI LETTER LO CHULA
+E2D		THAI LETTER O ANG
+E2E		THAI LETTER HO NOK HUK
+E2F		THAI PAI YAN NOI
+E30		THAI VOWEL SIGN SARA A
+E31		THAI VOWEL SIGN MAI HAN-AKAT
+E32		THAI VOWEL SIGN SARA AA
+E33		THAI VOWEL SIGN SARA AM
+E34		THAI VOWEL SIGN SARA I
+E35		THAI VOWEL SIGN SARA II
+E36		THAI VOWEL SIGN SARA UE
+E37		THAI VOWEL SIGN SARA UEE
+E38		THAI VOWEL SIGN SARA U
+E39		THAI VOWEL SIGN SARA UU
+E3A		THAI VOWEL SIGN PHINTHU
+E3F		THAI BAHT SIGN
+E40		THAI VOWEL SIGN SARA E
+E41		THAI VOWEL SIGN SARA AE
+E42		THAI VOWEL SIGN SARA O
+E43		THAI VOWEL SIGN SARA MAI MUAN
+E44		THAI VOWEL SIGN SARA MAI MALAI
+E45		THAI LAK KHANG YAO
+E46		THAI MAI YAMOK
+E47		THAI VOWEL SIGN MAI TAI KHU
+E48		THAI TONE MAI EK
+E49		THAI TONE MAI THO
+E4A		THAI TONE MAI TRI
+E4B		THAI TONE MAI CHATTAWA
+E4C		THAI THANTHAKHAT
+E4D		THAI NIKKHAHIT
+E4E		THAI YAMAKKAN
+E4F		THAI FONGMAN
+E5A		THAI ANGKHANKHU
+E5B		THAI KHOMUT
+F04		TIBETAN SINGLE ORNAMENT
+F08		TIBETAN RGYANSHAD
+F0B		TIBETAN TSEG
+F0D		TIBETAN SHAD
+F0E		TIBETAN DOUBLE SHAD
+F11		TIBETAN RINCHANPHUNGSHAD
+F14		TIBETAN COMMA
+F35		TIBETAN HONORIFIC UNDER RING
+F37		TIBETAN UNDER RING
+F39		TIBETAN LENITION MARK
+F3C		TIBETAN LEFT BRACE
+F3D		TIBETAN RIGHT BRACE
+F4A		TIBETAN LETTER REVERSED TA
+F4B		TIBETAN LETTER REVERSED THA
+F4C		TIBETAN LETTER REVERSED DA
+F4E		TIBETAN LETTER REVERSED NA
+F60		TIBETAN LETTER AA
+F65		TIBETAN LETTER REVERSED SHA
+F7B		TIBETAN VOWEL SIGN AI
+F7D		TIBETAN VOWEL SIGN AU
+F7E		TIBETAN ANUSVARA
+F7F		TIBETAN VISARGA
+F80		TIBETAN VOWEL SIGN SHORT I
+F82		TIBETAN CANDRABINDU WITH ORNAMENT
+F83		TIBETAN CANDRABINDU
+F84		TIBETAN VIRAMA
+F85		TIBETAN CHUCHENYIGE
+10D0		GEORGIAN SMALL LETTER AN
+10D1		GEORGIAN SMALL LETTER BAN
+10D2		GEORGIAN SMALL LETTER GAN
+10D3		GEORGIAN SMALL LETTER DON
+10D4		GEORGIAN SMALL LETTER EN
+10D5		GEORGIAN SMALL LETTER VIN
+10D6		GEORGIAN SMALL LETTER ZEN
+10D7		GEORGIAN SMALL LETTER TAN
+10D8		GEORGIAN SMALL LETTER IN
+10D9		GEORGIAN SMALL LETTER KAN
+10DA		GEORGIAN SMALL LETTER LAS
+10DB		GEORGIAN SMALL LETTER MAN
+10DC		GEORGIAN SMALL LETTER NAR
+10DD		GEORGIAN SMALL LETTER ON
+10DE		GEORGIAN SMALL LETTER PAR
+10DF		GEORGIAN SMALL LETTER ZHAR
+10E0		GEORGIAN SMALL LETTER RAE
+10E1		GEORGIAN SMALL LETTER SAN
+10E2		GEORGIAN SMALL LETTER TAR
+10E3		GEORGIAN SMALL LETTER UN
+10E4		GEORGIAN SMALL LETTER PHAR
+10E5		GEORGIAN SMALL LETTER KHAR
+10E6		GEORGIAN SMALL LETTER GHAN
+10E7		GEORGIAN SMALL LETTER QAR
+10E8		GEORGIAN SMALL LETTER SHIN
+10E9		GEORGIAN SMALL LETTER CHIN
+10EA		GEORGIAN SMALL LETTER CAN
+10EB		GEORGIAN SMALL LETTER JIL
+10EC		GEORGIAN SMALL LETTER CIL
+10ED		GEORGIAN SMALL LETTER CHAR
+10EE		GEORGIAN SMALL LETTER XAN
+10EF		GEORGIAN SMALL LETTER JHAN
+10F0		GEORGIAN SMALL LETTER HAE
+10F1		GEORGIAN SMALL LETTER HE
+10F2		GEORGIAN SMALL LETTER HIE
+10F3		GEORGIAN SMALL LETTER WE
+10F4		GEORGIAN SMALL LETTER HAR
+10F5		GEORGIAN SMALL LETTER HOE
+10F6		GEORGIAN SMALL LETTER FI
+2015		QUOTATION DASH
+2016		DOUBLE VERTICAL BAR
+2017		SPACING DOUBLE UNDERSCORE
+2018		SINGLE TURNED COMMA QUOTATION MARK
+2019		SINGLE COMMA QUOTATION MARK
+201A		LOW SINGLE COMMA QUOTATION MARK
+201B		SINGLE REVERSED COMMA QUOTATION MARK
+201C		DOUBLE TURNED COMMA QUOTATION MARK
+201D		DOUBLE COMMA QUOTATION MARK
+201E		LOW DOUBLE COMMA QUOTATION MARK
+201F		DOUBLE REVERSED COMMA QUOTATION MARK
+2039		LEFT POINTING SINGLE GUILLEMET
+203A		RIGHT POINTING SINGLE GUILLEMET
+203E		SPACING OVERSCORE
+2070		SUPERSCRIPT DIGIT ZERO
+2074		SUPERSCRIPT DIGIT FOUR
+2075		SUPERSCRIPT DIGIT FIVE
+2076		SUPERSCRIPT DIGIT SIX
+2077		SUPERSCRIPT DIGIT SEVEN
+2078		SUPERSCRIPT DIGIT EIGHT
+2079		SUPERSCRIPT DIGIT NINE
+207B		SUPERSCRIPT HYPHEN-MINUS
+207D		SUPERSCRIPT OPENING PARENTHESIS
+207E		SUPERSCRIPT CLOSING PARENTHESIS
+2080		SUBSCRIPT DIGIT ZERO
+2081		SUBSCRIPT DIGIT ONE
+2082		SUBSCRIPT DIGIT TWO
+2083		SUBSCRIPT DIGIT THREE
+2084		SUBSCRIPT DIGIT FOUR
+2085		SUBSCRIPT DIGIT FIVE
+2086		SUBSCRIPT DIGIT SIX
+2087		SUBSCRIPT DIGIT SEVEN
+2088		SUBSCRIPT DIGIT EIGHT
+2089		SUBSCRIPT DIGIT NINE
+208B		SUBSCRIPT HYPHEN-MINUS
+208D		SUBSCRIPT OPENING PARENTHESIS
+208E		SUBSCRIPT CLOSING PARENTHESIS
+20D0		NON-SPACING LEFT HARPOON ABOVE
+20D1		NON-SPACING RIGHT HARPOON ABOVE
+20D2		NON-SPACING LONG VERTICAL BAR OVERLAY
+20D3		NON-SPACING SHORT VERTICAL BAR OVERLAY
+20D4		NON-SPACING ANTICLOCKWISE ARROW ABOVE
+20D5		NON-SPACING CLOCKWISE ARROW ABOVE
+20D6		NON-SPACING LEFT ARROW ABOVE
+20D7		NON-SPACING RIGHT ARROW ABOVE
+20D8		NON-SPACING RING OVERLAY
+20D9		NON-SPACING CLOCKWISE RING OVERLAY
+20DA		NON-SPACING ANTICLOCKWISE RING OVERLAY
+20DB		NON-SPACING THREE DOTS ABOVE
+20DC		NON-SPACING FOUR DOTS ABOVE
+20DD		ENCLOSING CIRCLE
+20DE		ENCLOSING SQUARE
+20DF		ENCLOSING DIAMOND
+20E0		ENCLOSING CIRCLE SLASH
+20E1		NON-SPACING LEFT RIGHT ARROW ABOVE
+2102		DOUBLE-STRUCK C
+2103		DEGREES CENTIGRADE
+2104		C L SYMBOL
+2107		EULERS
+2109		DEGREES FAHRENHEIT
+210B		SCRIPT H
+210C		BLACK-LETTER H
+210D		DOUBLE-STRUCK H
+210F		PLANCK CONSTANT OVER 2 PI
+2110		SCRIPT I
+2111		BLACK-LETTER I
+2112		SCRIPT L
+2115		DOUBLE-STRUCK N
+2116		NUMERO
+2118		SCRIPT P
+2119		DOUBLE-STRUCK P
+211A		DOUBLE-STRUCK Q
+211B		SCRIPT R
+211C		BLACK-LETTER R
+211D		DOUBLE-STRUCK R
+2121		T E L SYMBOL
+2122		TRADEMARK
+2124		DOUBLE-STRUCK Z
+2125		OUNCE
+2126		OHM
+2127		MHO
+2128		BLACK-LETTER Z
+212A		DEGREES KELVIN
+212B		ANGSTROM UNIT
+212C		SCRIPT B
+212D		BLACK-LETTER C
+2130		SCRIPT E
+2131		SCRIPT F
+2132		TURNED F
+2133		SCRIPT M
+2135		FIRST TRANSFINITE CARDINAL
+2136		SECOND TRANSFINITE CARDINAL
+2137		THIRD TRANSFINITE CARDINAL
+2138		FOURTH TRANSFINITE CARDINAL
+2153		FRACTION ONE THIRD
+2154		FRACTION TWO THIRDS
+2155		FRACTION ONE FIFTH
+2156		FRACTION TWO FIFTHS
+2157		FRACTION THREE FIFTHS
+2158		FRACTION FOUR FIFTHS
+2159		FRACTION ONE SIXTH
+215A		FRACTION FIVE SIXTHS
+215B		FRACTION ONE EIGHTH
+215C		FRACTION THREE EIGHTHS
+215D		FRACTION FIVE EIGHTHS
+215E		FRACTION SEVEN EIGHTHS
+2190		LEFT ARROW
+2191		UP ARROW
+2192		RIGHT ARROW
+2193		DOWN ARROW
+2196		UPPER LEFT ARROW
+2197		UPPER RIGHT ARROW
+2198		LOWER RIGHT ARROW
+2199		LOWER LEFT ARROW
+219A		LEFT ARROW WITH STROKE
+219B		RIGHT ARROW WITH STROKE
+219C		LEFT WAVE ARROW
+219D		RIGHT WAVE ARROW
+219E		LEFT TWO HEADED ARROW
+219F		UP TWO HEADED ARROW
+21A0		RIGHT TWO HEADED ARROW
+21A1		DOWN TWO HEADED ARROW
+21A2		LEFT ARROW WITH TAIL
+21A3		RIGHT ARROW WITH TAIL
+21A4		LEFT ARROW FROM BAR
+21A5		UP ARROW FROM BAR
+21A6		RIGHT ARROW FROM BAR
+21A7		DOWN ARROW FROM BAR
+21A9		LEFT ARROW WITH HOOK
+21AA		RIGHT ARROW WITH HOOK
+21AB		LEFT ARROW WITH LOOP
+21AC		RIGHT ARROW WITH LOOP
+21AF		DOWN ZIGZAG ARROW
+21B0		UP ARROW WITH TIP LEFT
+21B1		UP ARROW WITH TIP RIGHT
+21B2		DOWN ARROW WITH TIP LEFT
+21B3		DOWN ARROW WITH TIP RIGHT
+21B4		RIGHT ARROW WITH CORNER DOWN
+21B5		DOWN ARROW WITH CORNER LEFT
+21B8		UPPER LEFT ARROW TO LONG BAR
+21B9		LEFT ARROW TO BAR OVER RIGHT ARROW TO BAR
+21BC		LEFT HARPOON WITH BARB UP
+21BD		LEFT HARPOON WITH BARB DOWN
+21BE		UP HARPOON WITH BARB RIGHT
+21BF		UP HARPOON WITH BARB LEFT
+21C0		RIGHT HARPOON WITH BARB UP
+21C1		RIGHT HARPOON WITH BARB DOWN
+21C2		DOWN HARPOON WITH BARB RIGHT
+21C3		DOWN HARPOON WITH BARB LEFT
+21C4		RIGHT ARROW OVER LEFT ARROW
+21C5		UP ARROW LEFT OF DOWN ARROW
+21C6		LEFT ARROW OVER RIGHT ARROW
+21C7		LEFT PAIRED ARROWS
+21C8		UP PAIRED ARROWS
+21C9		RIGHT PAIRED ARROWS
+21CA		DOWN PAIRED ARROWS
+21CB		LEFT HARPOON OVER RIGHT HARPOON
+21CC		RIGHT HARPOON OVER LEFT HARPOON
+21CD		LEFT DOUBLE ARROW WITH STROKE
+21CF		RIGHT DOUBLE ARROW WITH STROKE
+21D0		LEFT DOUBLE ARROW
+21D1		UP DOUBLE ARROW
+21D2		RIGHT DOUBLE ARROW
+21D3		DOWN DOUBLE ARROW
+21D6		UPPER LEFT DOUBLE ARROW
+21D7		UPPER RIGHT DOUBLE ARROW
+21D8		LOWER RIGHT DOUBLE ARROW
+21D9		LOWER LEFT DOUBLE ARROW
+21DA		LEFT TRIPLE ARROW
+21DB		RIGHT TRIPLE ARROW
+21DC		LEFT SQUIGGLE ARROW
+21DD		RIGHT SQUIGGLE ARROW
+21DE		UP ARROW WITH DOUBLE STROKE
+21DF		DOWN ARROW WITH DOUBLE STROKE
+21E0		LEFT DASHED ARROW
+21E1		UP DASHED ARROW
+21E2		RIGHT DASHED ARROW
+21E3		DOWN DASHED ARROW
+21E4		LEFT ARROW TO BAR
+21E5		RIGHT ARROW TO BAR
+21E6		WHITE LEFT ARROW
+21E7		WHITE UP ARROW
+21E8		WHITE RIGHT ARROW
+21E9		WHITE DOWN ARROW
+21EA		WHITE UP ARROW FROM BAR
+2254		COLON EQUAL
+2255		EQUAL COLON
+2264		LESS THAN OR EQUAL TO
+2265		GREATER THAN OR EQUAL TO
+2266		LESS THAN OVER EQUAL TO
+2267		GREATER THAN OVER EQUAL TO
+2268		LESS THAN BUT NOT EQUAL TO
+2269		GREATER THAN BUT NOT EQUAL TO
+226A		MUCH LESS THAN
+226B		MUCH GREATER THAN
+226E		NOT LESS THAN
+226F		NOT GREATER THAN
+2270		NEITHER LESS THAN NOR EQUAL TO
+2271		NEITHER GREATER THAN NOR EQUAL TO
+2272		LESS THAN OR EQUIVALENT TO
+2273		GREATER THAN OR EQUIVALENT TO
+2274		NEITHER LESS THAN NOR EQUIVALENT TO
+2275		NEITHER GREATER THAN NOR EQUIVALENT TO
+2276		LESS THAN OR GREATER THAN
+2277		GREATER THAN OR LESS THAN
+2278		NEITHER LESS THAN NOR GREATER THAN
+2279		NEITHER GREATER THAN NOR LESS THAN
+228A		SUBSET OF OR NOT EQUAL TO
+228B		SUPERSET OF OR NOT EQUAL TO
+22D6		LESS THAN WITH DOT
+22D7		GREATER THAN WITH DOT
+22D8		VERY MUCH LESS THAN
+22D9		VERY MUCH GREATER THAN
+22DA		LESS THAN EQUAL TO OR GREATER THAN
+22DB		GREATER THAN EQUAL TO OR LESS THAN
+22DC		EQUAL TO OR LESS THAN
+22DD		EQUAL TO OR GREATER THAN
+22E6		LESS THAN BUT NOT EQUIVALENT TO
+22E7		GREATER THAN BUT NOT EQUIVALENT TO
+2318		COMMAND KEY
+2324		ENTER KEY
+2326		DELETE TO THE RIGHT KEY
+2327		CLEAR KEY
+2329		BRA
+232A		KET
+232B		DELETE TO THE LEFT KEY
+2400		GRAPHIC FOR NULL
+2401		GRAPHIC FOR START OF HEADING
+2402		GRAPHIC FOR START OF TEXT
+2403		GRAPHIC FOR END OF TEXT
+2404		GRAPHIC FOR END OF TRANSMISSION
+2405		GRAPHIC FOR ENQUIRY
+2406		GRAPHIC FOR ACKNOWLEDGE
+2407		GRAPHIC FOR BELL
+2408		GRAPHIC FOR BACKSPACE
+2409		GRAPHIC FOR HORIZONTAL TABULATION
+240A		GRAPHIC FOR LINE FEED
+240B		GRAPHIC FOR VERTICAL TABULATION
+240C		GRAPHIC FOR FORM FEED
+240D		GRAPHIC FOR CARRIAGE RETURN
+240E		GRAPHIC FOR SHIFT OUT
+240F		GRAPHIC FOR SHIFT IN
+2410		GRAPHIC FOR DATA LINK ESCAPE
+2411		GRAPHIC FOR DEVICE CONTROL ONE
+2412		GRAPHIC FOR DEVICE CONTROL TWO
+2413		GRAPHIC FOR DEVICE CONTROL THREE
+2414		GRAPHIC FOR DEVICE CONTROL FOUR
+2415		GRAPHIC FOR NEGATIVE ACKNOWLEDGE
+2416		GRAPHIC FOR SYNCHRONOUS IDLE
+2417		GRAPHIC FOR END OF TRANSMISSION BLOCK
+2418		GRAPHIC FOR CANCEL
+2419		GRAPHIC FOR END OF MEDIUM
+241A		GRAPHIC FOR SUBSTITUTE
+241B		GRAPHIC FOR ESCAPE
+241C		GRAPHIC FOR FILE SEPARATOR
+241D		GRAPHIC FOR GROUP SEPARATOR
+241E		GRAPHIC FOR RECORD SEPARATOR
+241F		GRAPHIC FOR UNIT SEPARATOR
+2420		GRAPHIC FOR SPACE
+2421		GRAPHIC FOR DELETE
+2422		BLANK
+2424		GRAPHIC FOR NEWLINE
+2488		DIGIT ONE PERIOD
+2489		DIGIT TWO PERIOD
+248A		DIGIT THREE PERIOD
+248B		DIGIT FOUR PERIOD
+248C		DIGIT FIVE PERIOD
+248D		DIGIT SIX PERIOD
+248E		DIGIT SEVEN PERIOD
+248F		DIGIT EIGHT PERIOD
+2490		DIGIT NINE PERIOD
+2491		NUMBER TEN PERIOD
+2492		NUMBER ELEVEN PERIOD
+2493		NUMBER TWELVE PERIOD
+2494		NUMBER THIRTEEN PERIOD
+2495		NUMBER FOURTEEN PERIOD
+2496		NUMBER FIFTEEN PERIOD
+2497		NUMBER SIXTEEN PERIOD
+2498		NUMBER SEVENTEEN PERIOD
+2499		NUMBER EIGHTEEN PERIOD
+249A		NUMBER NINETEEN PERIOD
+249B		NUMBER TWENTY PERIOD
+2500		FORMS LIGHT HORIZONTAL
+2501		FORMS HEAVY HORIZONTAL
+2502		FORMS LIGHT VERTICAL
+2503		FORMS HEAVY VERTICAL
+2504		FORMS LIGHT TRIPLE DASH HORIZONTAL
+2505		FORMS HEAVY TRIPLE DASH HORIZONTAL
+2506		FORMS LIGHT TRIPLE DASH VERTICAL
+2507		FORMS HEAVY TRIPLE DASH VERTICAL
+2508		FORMS LIGHT QUADRUPLE DASH HORIZONTAL
+2509		FORMS HEAVY QUADRUPLE DASH HORIZONTAL
+250A		FORMS LIGHT QUADRUPLE DASH VERTICAL
+250B		FORMS HEAVY QUADRUPLE DASH VERTICAL
+250C		FORMS LIGHT DOWN AND RIGHT
+250D		FORMS DOWN LIGHT AND RIGHT HEAVY
+250E		FORMS DOWN HEAVY AND RIGHT LIGHT
+250F		FORMS HEAVY DOWN AND RIGHT
+2510		FORMS LIGHT DOWN AND LEFT
+2511		FORMS DOWN LIGHT AND LEFT HEAVY
+2512		FORMS DOWN HEAVY AND LEFT LIGHT
+2513		FORMS HEAVY DOWN AND LEFT
+2514		FORMS LIGHT UP AND RIGHT
+2515		FORMS UP LIGHT AND RIGHT HEAVY
+2516		FORMS UP HEAVY AND RIGHT LIGHT
+2517		FORMS HEAVY UP AND RIGHT
+2518		FORMS LIGHT UP AND LEFT
+2519		FORMS UP LIGHT AND LEFT HEAVY
+251A		FORMS UP HEAVY AND LEFT LIGHT
+251B		FORMS HEAVY UP AND LEFT
+251C		FORMS LIGHT VERTICAL AND RIGHT
+251D		FORMS VERTICAL LIGHT AND RIGHT HEAVY
+251E		FORMS UP HEAVY AND RIGHT DOWN LIGHT
+251F		FORMS DOWN HEAVY AND RIGHT UP LIGHT
+2520		FORMS VERTICAL HEAVY AND RIGHT LIGHT
+2521		FORMS DOWN LIGHT AND RIGHT UP HEAVY
+2522		FORMS UP LIGHT AND RIGHT DOWN HEAVY
+2523		FORMS HEAVY VERTICAL AND RIGHT
+2524		FORMS LIGHT VERTICAL AND LEFT
+2525		FORMS VERTICAL LIGHT AND LEFT HEAVY
+2526		FORMS UP HEAVY AND LEFT DOWN LIGHT
+2527		FORMS DOWN HEAVY AND LEFT UP LIGHT
+2528		FORMS VERTICAL HEAVY AND LEFT LIGHT
+2529		FORMS DOWN LIGHT AND LEFT UP HEAVY
+252A		FORMS UP LIGHT AND LEFT DOWN HEAVY
+252B		FORMS HEAVY VERTICAL AND LEFT
+252C		FORMS LIGHT DOWN AND HORIZONTAL
+252D		FORMS LEFT HEAVY AND RIGHT DOWN LIGHT
+252E		FORMS RIGHT HEAVY AND LEFT DOWN LIGHT
+252F		FORMS DOWN LIGHT AND HORIZONTAL HEAVY
+2530		FORMS DOWN HEAVY AND HORIZONTAL LIGHT
+2531		FORMS RIGHT LIGHT AND LEFT DOWN HEAVY
+2532		FORMS LEFT LIGHT AND RIGHT DOWN HEAVY
+2533		FORMS HEAVY DOWN AND HORIZONTAL
+2534		FORMS LIGHT UP AND HORIZONTAL
+2535		FORMS LEFT HEAVY AND RIGHT UP LIGHT
+2536		FORMS RIGHT HEAVY AND LEFT UP LIGHT
+2537		FORMS UP LIGHT AND HORIZONTAL HEAVY
+2538		FORMS UP HEAVY AND HORIZONTAL LIGHT
+2539		FORMS RIGHT LIGHT AND LEFT UP HEAVY
+253A		FORMS LEFT LIGHT AND RIGHT UP HEAVY
+253B		FORMS HEAVY UP AND HORIZONTAL
+253C		FORMS LIGHT VERTICAL AND HORIZONTAL
+253D		FORMS LEFT HEAVY AND RIGHT VERTICAL LIGHT
+253E		FORMS RIGHT HEAVY AND LEFT VERTICAL LIGHT
+253F		FORMS VERTICAL LIGHT AND HORIZONTAL HEAVY
+2540		FORMS UP HEAVY AND DOWN HORIZONTAL LIGHT
+2541		FORMS DOWN HEAVY AND UP HORIZONTAL LIGHT
+2542		FORMS VERTICAL HEAVY AND HORIZONTAL LIGHT
+2543		FORMS LEFT UP HEAVY AND RIGHT DOWN LIGHT
+2544		FORMS RIGHT UP HEAVY AND LEFT DOWN LIGHT
+2545		FORMS LEFT DOWN HEAVY AND RIGHT UP LIGHT
+2546		FORMS RIGHT DOWN HEAVY AND LEFT UP LIGHT
+2547		FORMS DOWN LIGHT AND UP HORIZONTAL HEAVY
+2548		FORMS UP LIGHT AND DOWN HORIZONTAL HEAVY
+2549		FORMS RIGHT LIGHT AND LEFT VERTICAL HEAVY
+254A		FORMS LEFT LIGHT AND RIGHT VERTICAL HEAVY
+254B		FORMS HEAVY VERTICAL AND HORIZONTAL
+254C		FORMS LIGHT DOUBLE DASH HORIZONTAL
+254D		FORMS HEAVY DOUBLE DASH HORIZONTAL
+254E		FORMS LIGHT DOUBLE DASH VERTICAL
+254F		FORMS HEAVY DOUBLE DASH VERTICAL
+2550		FORMS DOUBLE HORIZONTAL
+2551		FORMS DOUBLE VERTICAL
+2552		FORMS DOWN SINGLE AND RIGHT DOUBLE
+2553		FORMS DOWN DOUBLE AND RIGHT SINGLE
+2554		FORMS DOUBLE DOWN AND RIGHT
+2555		FORMS DOWN SINGLE AND LEFT DOUBLE
+2556		FORMS DOWN DOUBLE AND LEFT SINGLE
+2557		FORMS DOUBLE DOWN AND LEFT
+2558		FORMS UP SINGLE AND RIGHT DOUBLE
+2559		FORMS UP DOUBLE AND RIGHT SINGLE
+255A		FORMS DOUBLE UP AND RIGHT
+255B		FORMS UP SINGLE AND LEFT DOUBLE
+255C		FORMS UP DOUBLE AND LEFT SINGLE
+255D		FORMS DOUBLE UP AND LEFT
+255E		FORMS VERTICAL SINGLE AND RIGHT DOUBLE
+255F		FORMS VERTICAL DOUBLE AND RIGHT SINGLE
+2560		FORMS DOUBLE VERTICAL AND RIGHT
+2561		FORMS VERTICAL SINGLE AND LEFT DOUBLE
+2562		FORMS VERTICAL DOUBLE AND LEFT SINGLE
+2563		FORMS DOUBLE VERTICAL AND LEFT
+2564		FORMS DOWN SINGLE AND HORIZONTAL DOUBLE
+2565		FORMS DOWN DOUBLE AND HORIZONTAL SINGLE
+2566		FORMS DOUBLE DOWN AND HORIZONTAL
+2567		FORMS UP SINGLE AND HORIZONTAL DOUBLE
+2568		FORMS UP DOUBLE AND HORIZONTAL SINGLE
+2569		FORMS DOUBLE UP AND HORIZONTAL
+256A		FORMS VERTICAL SINGLE AND HORIZONTAL DOUBLE
+256B		FORMS VERTICAL DOUBLE AND HORIZONTAL SINGLE
+256C		FORMS DOUBLE VERTICAL AND HORIZONTAL
+256D		FORMS LIGHT ARC DOWN AND RIGHT
+256E		FORMS LIGHT ARC DOWN AND LEFT
+256F		FORMS LIGHT ARC UP AND LEFT
+2570		FORMS LIGHT ARC UP AND RIGHT
+2571		FORMS LIGHT DIAGONAL UPPER RIGHT TO LOWER LEFT
+2572		FORMS LIGHT DIAGONAL UPPER LEFT TO LOWER RIGHT
+2573		FORMS LIGHT DIAGONAL CROSS
+2574		FORMS LIGHT LEFT
+2575		FORMS LIGHT UP
+2576		FORMS LIGHT RIGHT
+2577		FORMS LIGHT DOWN
+2578		FORMS HEAVY LEFT
+2579		FORMS HEAVY UP
+257A		FORMS HEAVY RIGHT
+257B		FORMS HEAVY DOWN
+257C		FORMS LIGHT LEFT AND HEAVY RIGHT
+257D		FORMS LIGHT UP AND HEAVY DOWN
+257E		FORMS HEAVY LEFT AND LIGHT RIGHT
+257F		FORMS HEAVY UP AND LIGHT DOWN
+2586		LOWER THREE QUARTER BLOCK
+258A		LEFT THREE QUARTER BLOCK
+25B2		BLACK UP POINTING TRIANGLE
+25B3		WHITE UP POINTING TRIANGLE
+25B4		BLACK UP POINTING SMALL TRIANGLE
+25B5		WHITE UP POINTING SMALL TRIANGLE
+25B6		BLACK RIGHT POINTING TRIANGLE
+25B7		WHITE RIGHT POINTING TRIANGLE
+25B8		BLACK RIGHT POINTING SMALL TRIANGLE
+25B9		WHITE RIGHT POINTING SMALL TRIANGLE
+25BA		BLACK RIGHT POINTING POINTER
+25BB		WHITE RIGHT POINTING POINTER
+25BC		BLACK DOWN POINTING TRIANGLE
+25BD		WHITE DOWN POINTING TRIANGLE
+25BE		BLACK DOWN POINTING SMALL TRIANGLE
+25BF		WHITE DOWN POINTING SMALL TRIANGLE
+25C0		BLACK LEFT POINTING TRIANGLE
+25C1		WHITE LEFT POINTING TRIANGLE
+25C2		BLACK LEFT POINTING SMALL TRIANGLE
+25C3		WHITE LEFT POINTING SMALL TRIANGLE
+25C4		BLACK LEFT POINTING POINTER
+25C5		WHITE LEFT POINTING POINTER
+25EC		WHITE UP POINTING TRIANGLE WITH DOT
+25ED		UP POINTING TRIANGLE WITH LEFT HALF BLACK
+25EE		UP POINTING TRIANGLE WITH RIGHT HALF BLACK
+262B		SYMBOL OF IRAN
+266B		BARRED EIGHTH NOTES
+266C		BARRED SIXTEENTH NOTES
+266D		FLAT
+266E		NATURAL
+266F		SHARP
+271B		OPEN CENTER CROSS
+271C		HEAVY OPEN CENTER CROSS
+272B		OPEN CENTER BLACK STAR
+272C		BLACK CENTER WHITE STAR
+2732		OPEN CENTER ASTERISK
+273C		OPEN CENTER TEARDROP-SPOKED ASTERISK
+2742		CIRCLED OPEN CENTER EIGHT POINTED STAR
+2776		INVERSE CIRCLED DIGIT ONE
+2777		INVERSE CIRCLED DIGIT TWO
+2778		INVERSE CIRCLED DIGIT THREE
+2779		INVERSE CIRCLED DIGIT FOUR
+277A		INVERSE CIRCLED DIGIT FIVE
+277B		INVERSE CIRCLED DIGIT SIX
+277C		INVERSE CIRCLED DIGIT SEVEN
+277D		INVERSE CIRCLED DIGIT EIGHT
+277E		INVERSE CIRCLED DIGIT NINE
+277F		INVERSE CIRCLED NUMBER TEN
+2780		CIRCLED SANS-SERIF DIGIT ONE
+2781		CIRCLED SANS-SERIF DIGIT TWO
+2782		CIRCLED SANS-SERIF DIGIT THREE
+2783		CIRCLED SANS-SERIF DIGIT FOUR
+2784		CIRCLED SANS-SERIF DIGIT FIVE
+2785		CIRCLED SANS-SERIF DIGIT SIX
+2786		CIRCLED SANS-SERIF DIGIT SEVEN
+2787		CIRCLED SANS-SERIF DIGIT EIGHT
+2788		CIRCLED SANS-SERIF DIGIT NINE
+2789		CIRCLED SANS-SERIF NUMBER TEN
+278A		INVERSE CIRCLED SANS-SERIF DIGIT ONE
+278B		INVERSE CIRCLED SANS-SERIF DIGIT TWO
+278C		INVERSE CIRCLED SANS-SERIF DIGIT THREE
+278D		INVERSE CIRCLED SANS-SERIF DIGIT FOUR
+278E		INVERSE CIRCLED SANS-SERIF DIGIT FIVE
+278F		INVERSE CIRCLED SANS-SERIF DIGIT SIX
+2790		INVERSE CIRCLED SANS-SERIF DIGIT SEVEN
+2791		INVERSE CIRCLED SANS-SERIF DIGIT EIGHT
+2792		INVERSE CIRCLED SANS-SERIF DIGIT NINE
+2793		INVERSE CIRCLED SANS-SERIF NUMBER TEN
+2794		HEAVY WIDE-HEADED RIGHT ARROW
+2798		HEAVY LOWER RIGHT ARROW
+2799		HEAVY RIGHT ARROW
+279A		HEAVY UPPER RIGHT ARROW
+279B		DRAFTING POINT RIGHT ARROW
+279C		HEAVY ROUND-TIPPED RIGHT ARROW
+279D		TRIANGLE-HEADED RIGHT ARROW
+279E		HEAVY TRIANGLE-HEADED RIGHT ARROW
+279F		DASHED TRIANGLE-HEADED RIGHT ARROW
+27A0		HEAVY DASHED TRIANGLE-HEADED RIGHT ARROW
+27A1		BLACK RIGHT ARROW
+27A2		THREE-D TOP-LIGHTED RIGHT ARROWHEAD
+27A3		THREE-D BOTTOM-LIGHTED RIGHT ARROWHEAD
+27A4		BLACK RIGHT ARROWHEAD
+27A5		HEAVY BLACK CURVED DOWN AND RIGHT ARROW
+27A6		HEAVY BLACK CURVED UP AND RIGHT ARROW
+27A7		SQUAT BLACK RIGHT ARROW
+27A8		HEAVY CONCAVE-POINTED BLACK RIGHT ARROW
+27A9		RIGHT-SHADED WHITE RIGHT ARROW
+27AA		LEFT-SHADED WHITE RIGHT ARROW
+27AB		BACK-TILTED SHADOWED WHITE RIGHT ARROW
+27AC		FRONT-TILTED SHADOWED WHITE RIGHT ARROW
+27AD		HEAVY LOWER RIGHT-SHADOWED WHITE RIGHT ARROW
+27AE		HEAVY UPPER RIGHT-SHADOWED WHITE RIGHT ARROW
+27AF		NOTCHED LOWER RIGHT-SHADOWED WHITE RIGHT ARROW
+27B1		NOTCHED UPPER RIGHT-SHADOWED WHITE RIGHT ARROW
+27B2		CIRCLED HEAVY WHITE RIGHT ARROW
+27B3		WHITE-FEATHERED RIGHT ARROW
+27B4		BLACK-FEATHERED LOWER RIGHT ARROW
+27B5		BLACK-FEATHERED RIGHT ARROW
+27B6		BLACK-FEATHERED UPPER RIGHT ARROW
+27B7		HEAVY BLACK-FEATHERED LOWER RIGHT ARROW
+27B8		HEAVY BLACK-FEATHERED RIGHT ARROW
+27B9		HEAVY BLACK-FEATHERED UPPER RIGHT ARROW
+27BA		TEARDROP-BARBED RIGHT ARROW
+27BB		HEAVY TEARDROP-SHANKED RIGHT ARROW
+27BC		WEDGE-TAILED RIGHT ARROW
+27BD		HEAVY WEDGE-TAILED RIGHT ARROW
+27BE		OPEN-OUTLINED RIGHT ARROW
+3002		IDEOGRAPHIC PERIOD
+3008		OPENING ANGLE BRACKET
+3009		CLOSING ANGLE BRACKET
+300A		OPENING DOUBLE ANGLE BRACKET
+300B		CLOSING DOUBLE ANGLE BRACKET
+300C		OPENING CORNER BRACKET
+300D		CLOSING CORNER BRACKET
+300E		OPENING WHITE CORNER BRACKET
+300F		CLOSING WHITE CORNER BRACKET
+3010		OPENING BLACK LENTICULAR BRACKET
+3011		CLOSING BLACK LENTICULAR BRACKET
+3014		OPENING TORTOISE SHELL BRACKET
+3015		CLOSING TORTOISE SHELL BRACKET
+3016		OPENING WHITE LENTICULAR BRACKET
+3017		CLOSING WHITE LENTICULAR BRACKET
+3018		OPENING WHITE TORTOISE SHELL BRACKET
+3019		CLOSING WHITE TORTOISE SHELL BRACKET
+301A		OPENING WHITE SQUARE BRACKET
+301B		CLOSING WHITE SQUARE BRACKET
+3099		NON-SPACING KATAKANA-HIRAGANA VOICED SOUND MARK
+309A		NON-SPACING KATAKANA-HIRAGANA SEMI-VOICED SOUND MARK
+3131		HANGUL LETTER GIYEOG
+3132		HANGUL LETTER SSANG GIYEOG
+3133		HANGUL LETTER GIYEOG SIOS
+3135		HANGUL LETTER NIEUN JIEUJ
+3136		HANGUL LETTER NIEUN HIEUH
+3137		HANGUL LETTER DIGEUD
+3138		HANGUL LETTER SSANG DIGEUD
+3139		HANGUL LETTER LIEUL
+313A		HANGUL LETTER LIEUL GIYEOG
+313B		HANGUL LETTER LIEUL MIEUM
+313C		HANGUL LETTER LIEUL BIEUB
+313D		HANGUL LETTER LIEUL SIOS
+313E		HANGUL LETTER LIEUL TIEUT
+313F		HANGUL LETTER LIEUL PIEUP
+3140		HANGUL LETTER LIEUL HIEUH
+3142		HANGUL LETTER BIEUB
+3143		HANGUL LETTER SSANG BIEUB
+3144		HANGUL LETTER BIEUB SIOS
+3146		HANGUL LETTER SSANG SIOS
+3148		HANGUL LETTER JIEUJ
+3149		HANGUL LETTER SSANG JIEUJ
+314A		HANGUL LETTER CIEUC
+314B		HANGUL LETTER KIYEOK
+314C		HANGUL LETTER TIEUT
+314D		HANGUL LETTER PIEUP
+3164		HANGUL CAE OM
+3165		HANGUL LETTER SSANG NIEUN
+3166		HANGUL LETTER NIEUN DIGEUD
+3167		HANGUL LETTER NIEUN SIOS
+3168		HANGUL LETTER NIEUN BAN CHI EUM
+3169		HANGUL LETTER LIEUL GIYEOG SIOS
+316A		HANGUL LETTER LIEUL DIGEUD
+316B		HANGUL LETTER LIEUL BIEUB SIOS
+316C		HANGUL LETTER LIEUL BAN CHI EUM
+316D		HANGUL LETTER LIEUL YEOLIN HIEUH
+316E		HANGUL LETTER MIEUM BIEUB
+316F		HANGUL LETTER MIEUM SIOS
+3170		HANGUL LETTER BIEUB BAN CHI EUM
+3171		HANGUL LETTER MIEUM SUN GYEONG EUM
+3172		HANGUL LETTER BIEUB GIYEOG
+3173		HANGUL LETTER BIEUB DIGEUD
+3174		HANGUL LETTER BIEUB SIOS GIYEOG
+3175		HANGUL LETTER BIEUB SIOS DIGEUD
+3176		HANGUL LETTER BIEUB JIEUJ
+3177		HANGUL LETTER BIEUB TIEUT
+3178		HANGUL LETTER BIEUB SUN GYEONG EUM
+3179		HANGUL LETTER SSANG BIEUB SUN GYEONG EUM
+317A		HANGUL LETTER SIOS GIYEOG
+317B		HANGUL LETTER SIOS NIEUN
+317C		HANGUL LETTER SIOS DIGEUD
+317D		HANGUL LETTER SIOS BIEUB
+317E		HANGUL LETTER SIOS JIEUJ
+317F		HANGUL LETTER BAN CHI EUM
+3180		HANGUL LETTER SSANG IEUNG
+3181		HANGUL LETTER NGIEUNG
+3182		HANGUL LETTER NGIEUNG SIOS
+3183		HANGUL LETTER NGIEUNG BAN CHI EUM
+3184		HANGUL LETTER PIEUP SUN GYEONG EUM
+3185		HANGUL LETTER SSANG HIEUH
+3186		HANGUL LETTER YEOLIN HIEUH
+3187		HANGUL LETTER YOYA
+3188		HANGUL LETTER YOYAE
+3189		HANGUL LETTER YOI
+318A		HANGUL LETTER YUYEO
+318B		HANGUL LETTER YUYE
+318C		HANGUL LETTER YUI
+318D		HANGUL LETTER ALAE A
+318E		HANGUL LETTER ALAE AE
+3190		KANBUN TATETEN
+3191		KAERITEN RE
+3192		KAERITEN ITI
+3193		KAERITEN NI
+3194		KAERITEN SAN
+3195		KAERITEN SI
+3196		KAERITEN ZYOU
+3197		KAERITEN TYUU
+3198		KAERITEN GE
+3199		KAERITEN KOU
+319A		KAERITEN OTU
+319B		KAERITEN HEI
+319C		KAERITEN TEI
+319D		KAERITEN TEN
+319E		KAERITEN TI
+319F		KAERITEN ZIN
+3200		PARENTHESIZED HANGUL GIYEOG
+3202		PARENTHESIZED HANGUL DIGEUD
+3203		PARENTHESIZED HANGUL LIEUL
+3205		PARENTHESIZED HANGUL BIEUB
+3208		PARENTHESIZED HANGUL JIEUJ
+3209		PARENTHESIZED HANGUL CIEUC
+320A		PARENTHESIZED HANGUL KIYEOK
+320B		PARENTHESIZED HANGUL TIEUT
+320C		PARENTHESIZED HANGUL PIEUP
+320E		PARENTHESIZED HANGUL GA
+320F		PARENTHESIZED HANGUL NA
+3210		PARENTHESIZED HANGUL DA
+3211		PARENTHESIZED HANGUL LA
+3212		PARENTHESIZED HANGUL MA
+3213		PARENTHESIZED HANGUL BA
+3214		PARENTHESIZED HANGUL SA
+3215		PARENTHESIZED HANGUL A
+3216		PARENTHESIZED HANGUL JA
+3217		PARENTHESIZED HANGUL CA
+3218		PARENTHESIZED HANGUL KA
+3219		PARENTHESIZED HANGUL TA
+321A		PARENTHESIZED HANGUL PA
+321B		PARENTHESIZED HANGUL HA
+321C		PARENTHESIZED HANGUL JU
+3260		CIRCLED HANGUL GIYEOG
+3262		CIRCLED HANGUL DIGEUD
+3263		CIRCLED HANGUL LIEUL
+3265		CIRCLED HANGUL BIEUB
+3268		CIRCLED HANGUL JIEUJ
+3269		CIRCLED HANGUL CIEUC
+326A		CIRCLED HANGUL KIYEOK
+326B		CIRCLED HANGUL TIEUT
+326C		CIRCLED HANGUL PIEUP
+326E		CIRCLED HANGUL GA
+326F		CIRCLED HANGUL NA
+3270		CIRCLED HANGUL DA
+3271		CIRCLED HANGUL LA
+3272		CIRCLED HANGUL MA
+3273		CIRCLED HANGUL BA
+3274		CIRCLED HANGUL SA
+3275		CIRCLED HANGUL A
+3276		CIRCLED HANGUL JA
+3277		CIRCLED HANGUL CA
+3278		CIRCLED HANGUL KA
+3279		CIRCLED HANGUL TA
+327A		CIRCLED HANGUL PA
+327B		CIRCLED HANGUL HA
+32A5		CIRCLED IDEOGRAPH CENTER
+3300		SQUARED APAATO
+3301		SQUARED ARUHUA
+3302		SQUARED ANPEA
+3303		SQUARED AARU
+3304		SQUARED ININGU
+3305		SQUARED INTI
+3306		SQUARED UON
+3307		SQUARED ESUKUUDO
+3308		SQUARED EEKAA
+3309		SQUARED ONSU
+330A		SQUARED OOMU
+330B		SQUARED KAIRI
+330C		SQUARED KARATTO
+330D		SQUARED KARORII
+330E		SQUARED GARON
+330F		SQUARED GANMA
+3310		SQUARED GIGA
+3311		SQUARED GINII
+3312		SQUARED KYURII
+3313		SQUARED GIRUDAA
+3314		SQUARED KIRO
+3315		SQUARED KIROGURAMU
+3316		SQUARED KIROMEETORU
+3317		SQUARED KIROWATTO
+3318		SQUARED GURAMU
+3319		SQUARED GURAMUTON
+331A		SQUARED KURUZEIRO
+331B		SQUARED KUROONE
+331C		SQUARED KEESU
+331D		SQUARED KORUNA
+331E		SQUARED KOOPO
+331F		SQUARED SAIKURU
+3320		SQUARED SANTIIMU
+3321		SQUARED SIRINGU
+3322		SQUARED SENTI
+3323		SQUARED SENTO
+3324		SQUARED DAASU
+3325		SQUARED DESI
+3326		SQUARED DORU
+3327		SQUARED TON
+3328		SQUARED NANO
+3329		SQUARED NOTTO
+332A		SQUARED HAITU
+332B		SQUARED PAASENTO
+332C		SQUARED PAATU
+332D		SQUARED BAARERU
+332E		SQUARED PIASUTORU
+332F		SQUARED PIKURU
+3330		SQUARED PIKO
+3331		SQUARED BIRU
+3332		SQUARED HUARADDO
+3333		SQUARED HUIITO
+3334		SQUARED BUSSYERU
+3335		SQUARED HURAN
+3336		SQUARED HEKUTAARU
+3337		SQUARED PESO
+3338		SQUARED PENIHI
+3339		SQUARED HERUTU
+333A		SQUARED PENSU
+333B		SQUARED PEEZI
+333C		SQUARED BEETA
+333D		SQUARED POINTO
+333E		SQUARED BORUTO
+333F		SQUARED HON
+3340		SQUARED PONDO
+3341		SQUARED HOORU
+3342		SQUARED HOON
+3343		SQUARED MAIKURO
+3344		SQUARED MAIRU
+3345		SQUARED MAHHA
+3346		SQUARED MARUKU
+3347		SQUARED MANSYON
+3348		SQUARED MIKURON
+3349		SQUARED MIRI
+334A		SQUARED MIRIBAARU
+334B		SQUARED MEGA
+334C		SQUARED MEGATON
+334D		SQUARED MEETORU
+334E		SQUARED YAADO
+334F		SQUARED YAARU
+3350		SQUARED YUAN
+3351		SQUARED RITTORU
+3352		SQUARED RIRA
+3353		SQUARED RUPII
+3354		SQUARED RUUBURU
+3355		SQUARED REMU
+3356		SQUARED RENTOGEN
+3357		SQUARED WATTO
+337B		SQUARED TWO IDEOGRAPHS ERA NAME HEISEI
+337C		SQUARED TWO IDEOGRAPHS ERA NAME SYOUWA
+337D		SQUARED TWO IDEOGRAPHS ERA NAME TAISYOU
+337E		SQUARED TWO IDEOGRAPHS ERA NAME MEIZI
+337F		SQUARED FOUR IDEOGRAPHS CORPORATION
+3380		SQUARED PA AMPS
+3381		SQUARED NA
+3382		SQUARED MU A
+3383		SQUARED MA
+3384		SQUARED KA
+3385		SQUARED KB
+3386		SQUARED MB
+3387		SQUARED GB
+3388		SQUARED CAL
+3389		SQUARED KCAL
+338A		SQUARED PF
+338B		SQUARED NF
+338C		SQUARED MU F
+338D		SQUARED MU G
+338E		SQUARED MG
+338F		SQUARED KG
+3390		SQUARED HZ
+3391		SQUARED KHZ
+3392		SQUARED MHZ
+3393		SQUARED GHZ
+3394		SQUARED THZ
+3395		SQUARED MU L
+3396		SQUARED ML
+3397		SQUARED DL
+3398		SQUARED KL
+3399		SQUARED FM
+339A		SQUARED NM
+339B		SQUARED MU M
+339C		SQUARED MM
+339D		SQUARED CM
+339E		SQUARED KM
+339F		SQUARED MM SQUARED
+33A0		SQUARED CM SQUARED
+33A1		SQUARED M SQUARED
+33A2		SQUARED KM SQUARED
+33A3		SQUARED MM CUBED
+33A4		SQUARED CM CUBED
+33A5		SQUARED M CUBED
+33A6		SQUARED KM CUBED
+33A7		SQUARED M OVER S
+33A8		SQUARED M OVER S SQUARED
+33A9		SQUARED PA
+33AA		SQUARED KPA
+33AB		SQUARED MPA
+33AC		SQUARED GPA
+33AD		SQUARED RAD
+33AE		SQUARED RAD OVER S
+33AF		SQUARED RAD OVER S SQUARED
+33B0		SQUARED PS
+33B1		SQUARED NS
+33B2		SQUARED MU S
+33B3		SQUARED MS
+33B4		SQUARED PV
+33B5		SQUARED NV
+33B6		SQUARED MU V
+33B7		SQUARED MV
+33B8		SQUARED KV
+33B9		SQUARED MV MEGA
+33BA		SQUARED PW
+33BB		SQUARED NW
+33BC		SQUARED MU W
+33BD		SQUARED MW
+33BE		SQUARED KW
+33BF		SQUARED MW MEGA
+33C0		SQUARED K OHM
+33C1		SQUARED M OHM
+33C2		SQUARED AM
+33C3		SQUARED BQ
+33C4		SQUARED CC
+33C5		SQUARED CD
+33C6		SQUARED C OVER KG
+33C7		SQUARED CO
+33C8		SQUARED DB
+33C9		SQUARED GY
+33CA		SQUARED HA
+33CB		SQUARED HP
+33CC		SQUARED IN
+33CD		SQUARED KK
+33CE		SQUARED KM CAPITAL
+33CF		SQUARED KT
+33D0		SQUARED LM
+33D1		SQUARED LN
+33D2		SQUARED LOG
+33D3		SQUARED LX
+33D4		SQUARED MB SMALL
+33D5		SQUARED MIL
+33D6		SQUARED MOL
+33D7		SQUARED PH
+33D8		SQUARED PM
+33D9		SQUARED PPM
+33DA		SQUARED PR
+33DB		SQUARED SR
+33DC		SQUARED SV
+33DD		SQUARED WB
+FB1E		HEBREW POINT VARIKA
+FDFA		ARABIC LETTER SALLALLAHOU ALAYHE WASALLAM
+FDFB		ARABIC LETTER JALLAJALALOUHOU
+FE30		GLYPH FOR VERTICAL TWO DOT LEADER
+FE31		GLYPH FOR VERTICAL EM DASH
+FE32		GLYPH FOR VERTICAL EN DASH
+FE33		GLYPH FOR VERTICAL SPACING UNDERSCORE
+FE34		GLYPH FOR VERTICAL SPACING WAVY UNDERSCORE
+FE35		GLYPH FOR VERTICAL OPENING PARENTHESIS
+FE36		GLYPH FOR VERTICAL CLOSING PARENTHESIS
+FE37		GLYPH FOR VERTICAL OPENING CURLY BRACKET
+FE38		GLYPH FOR VERTICAL CLOSING CURLY BRACKET
+FE39		GLYPH FOR VERTICAL OPENING TORTOISE SHELL BRACKET
+FE3A		GLYPH FOR VERTICAL CLOSING TORTOISE SHELL BRACKET
+FE3B		GLYPH FOR VERTICAL OPENING BLACK LENTICULAR BRACKET
+FE3C		GLYPH FOR VERTICAL CLOSING BLACK LENTICULAR BRACKET
+FE3D		GLYPH FOR VERTICAL OPENING DOUBLE ANGLE BRACKET
+FE3E		GLYPH FOR VERTICAL CLOSING DOUBLE ANGLE BRACKET
+FE3F		GLYPH FOR VERTICAL OPENING ANGLE BRACKET
+FE40		GLYPH FOR VERTICAL CLOSING ANGLE BRACKET
+FE41		GLYPH FOR VERTICAL OPENING CORNER BRACKET
+FE42		GLYPH FOR VERTICAL CLOSING CORNER BRACKET
+FE43		GLYPH FOR VERTICAL OPENING WHITE CORNER BRACKET
+FE44		GLYPH FOR VERTICAL CLOSING WHITE CORNER BRACKET
+FE49		SPACING DASHED OVERSCORE
+FE4A		SPACING CENTERLINE OVERSCORE
+FE4B		SPACING WAVY OVERSCORE
+FE4C		SPACING DOUBLE WAVY OVERSCORE
+FE4D		SPACING DASHED UNDERSCORE
+FE4E		SPACING CENTERLINE UNDERSCORE
+FE4F		SPACING WAVY UNDERSCORE
+FE52		SMALL PERIOD
+FE59		SMALL OPENING PARENTHESIS
+FE5A		SMALL CLOSING PARENTHESIS
+FE5B		SMALL OPENING CURLY BRACKET
+FE5C		SMALL CLOSING CURLY BRACKET
+FE5D		SMALL OPENING TORTOISE SHELL BRACKET
+FE5E		SMALL CLOSING TORTOISE SHELL BRACKET
+FE68		SMALL BACKSLASH
+FE70		ARABIC SPACING FATHATAN
+FE71		ARABIC FATHATAN ON TATWEEL
+FE72		ARABIC SPACING DAMMATAN
+FE74		ARABIC SPACING KASRATAN
+FE76		ARABIC SPACING FATHAH
+FE77		ARABIC FATHAH ON TATWEEL
+FE78		ARABIC SPACING DAMMAH
+FE79		ARABIC DAMMAH ON TATWEEL
+FE7A		ARABIC SPACING KASRAH
+FE7B		ARABIC KASRAH ON TATWEEL
+FE7C		ARABIC SPACING SHADDAH
+FE7D		ARABIC SHADDAH ON TATWEEL
+FE7E		ARABIC SPACING SUKUN
+FE7F		ARABIC SUKUN ON TATWEEL
+FE80		GLYPH FOR ISOLATE ARABIC HAMZAH
+FE81		GLYPH FOR ISOLATE ARABIC MADDAH ON ALEF
+FE82		GLYPH FOR FINAL ARABIC MADDAH ON ALEF
+FE83		GLYPH FOR ISOLATE ARABIC HAMZAH ON ALEF
+FE84		GLYPH FOR FINAL ARABIC HAMZAH ON ALEF
+FE85		GLYPH FOR ISOLATE ARABIC HAMZAH ON WAW
+FE86		GLYPH FOR FINAL ARABIC HAMZAH ON WAW
+FE87		GLYPH FOR ISOLATE ARABIC HAMZAH UNDER ALEF
+FE88		GLYPH FOR FINAL ARABIC HAMZAH UNDER ALEF
+FE89		GLYPH FOR ISOLATE ARABIC HAMZAH ON YA
+FE8A		GLYPH FOR FINAL ARABIC HAMZAH ON YA
+FE8B		GLYPH FOR INITIAL ARABIC HAMZAH ON YA
+FE8C		GLYPH FOR MEDIAL ARABIC HAMZAH ON YA
+FE8D		GLYPH FOR ISOLATE ARABIC ALEF
+FE8E		GLYPH FOR FINAL ARABIC ALEF
+FE8F		GLYPH FOR ISOLATE ARABIC BAA
+FE90		GLYPH FOR FINAL ARABIC BAA
+FE91		GLYPH FOR INITIAL ARABIC BAA
+FE92		GLYPH FOR MEDIAL ARABIC BAA
+FE93		GLYPH FOR ISOLATE ARABIC TAA MARBUTAH
+FE94		GLYPH FOR FINAL ARABIC TAA MARBUTAH
+FE95		GLYPH FOR ISOLATE ARABIC TAA
+FE96		GLYPH FOR FINAL ARABIC TAA
+FE97		GLYPH FOR INITIAL ARABIC TAA
+FE98		GLYPH FOR MEDIAL ARABIC TAA
+FE99		GLYPH FOR ISOLATE ARABIC THAA
+FE9A		GLYPH FOR FINAL ARABIC THAA
+FE9B		GLYPH FOR INITIAL ARABIC THAA
+FE9C		GLYPH FOR MEDIAL ARABIC THAA
+FE9D		GLYPH FOR ISOLATE ARABIC JEEM
+FE9E		GLYPH FOR FINAL ARABIC JEEM
+FE9F		GLYPH FOR INITIAL ARABIC JEEM
+FEA0		GLYPH FOR MEDIAL ARABIC JEEM
+FEA1		GLYPH FOR ISOLATE ARABIC HAA
+FEA2		GLYPH FOR FINAL ARABIC HAA
+FEA3		GLYPH FOR INITIAL ARABIC HAA
+FEA4		GLYPH FOR MEDIAL ARABIC HAA
+FEA5		GLYPH FOR ISOLATE ARABIC KHAA
+FEA6		GLYPH FOR FINAL ARABIC KHAA
+FEA7		GLYPH FOR INITIAL ARABIC KHAA
+FEA8		GLYPH FOR MEDIAL ARABIC KHAA
+FEA9		GLYPH FOR ISOLATE ARABIC DAL
+FEAA		GLYPH FOR FINAL ARABIC DAL
+FEAB		GLYPH FOR ISOLATE ARABIC THAL
+FEAC		GLYPH FOR FINAL ARABIC THAL
+FEAD		GLYPH FOR ISOLATE ARABIC RA
+FEAE		GLYPH FOR FINAL ARABIC RA
+FEAF		GLYPH FOR ISOLATE ARABIC ZAIN
+FEB0		GLYPH FOR FINAL ARABIC ZAIN
+FEB1		GLYPH FOR ISOLATE ARABIC SEEN
+FEB2		GLYPH FOR FINAL ARABIC SEEN
+FEB3		GLYPH FOR INITIAL ARABIC SEEN
+FEB4		GLYPH FOR MEDIAL ARABIC SEEN
+FEB5		GLYPH FOR ISOLATE ARABIC SHEEN
+FEB6		GLYPH FOR FINAL ARABIC SHEEN
+FEB7		GLYPH FOR INITIAL ARABIC SHEEN
+FEB8		GLYPH FOR MEDIAL ARABIC SHEEN
+FEB9		GLYPH FOR ISOLATE ARABIC SAD
+FEBA		GLYPH FOR FINAL ARABIC SAD
+FEBB		GLYPH FOR INITIAL ARABIC SAD
+FEBC		GLYPH FOR MEDIAL ARABIC SAD
+FEBD		GLYPH FOR ISOLATE ARABIC DAD
+FEBE		GLYPH FOR FINAL ARABIC DAD
+FEBF		GLYPH FOR INITIAL ARABIC DAD
+FEC0		GLYPH FOR MEDIAL ARABIC DAD
+FEC1		GLYPH FOR ISOLATE ARABIC TAH
+FEC2		GLYPH FOR FINAL ARABIC TAH
+FEC3		GLYPH FOR INITIAL ARABIC TAH
+FEC4		GLYPH FOR MEDIAL ARABIC TAH
+FEC5		GLYPH FOR ISOLATE ARABIC DHAH
+FEC6		GLYPH FOR FINAL ARABIC DHAH
+FEC7		GLYPH FOR INITIAL ARABIC DHAH
+FEC8		GLYPH FOR MEDIAL ARABIC DHAH
+FEC9		GLYPH FOR ISOLATE ARABIC AIN
+FECA		GLYPH FOR FINAL ARABIC AIN
+FECB		GLYPH FOR INITIAL ARABIC AIN
+FECC		GLYPH FOR MEDIAL ARABIC AIN
+FECD		GLYPH FOR ISOLATE ARABIC GHAIN
+FECE		GLYPH FOR FINAL ARABIC GHAIN
+FECF		GLYPH FOR INITIAL ARABIC GHAIN
+FED0		GLYPH FOR MEDIAL ARABIC GHAIN
+FED1		GLYPH FOR ISOLATE ARABIC FA
+FED2		GLYPH FOR FINAL ARABIC FA
+FED3		GLYPH FOR INITIAL ARABIC FA
+FED4		GLYPH FOR MEDIAL ARABIC FA
+FED5		GLYPH FOR ISOLATE ARABIC QAF
+FED6		GLYPH FOR FINAL ARABIC QAF
+FED7		GLYPH FOR INITIAL ARABIC QAF
+FED8		GLYPH FOR MEDIAL ARABIC QAF
+FED9		GLYPH FOR ISOLATE ARABIC CAF
+FEDA		GLYPH FOR FINAL ARABIC CAF
+FEDB		GLYPH FOR INITIAL ARABIC CAF
+FEDC		GLYPH FOR MEDIAL ARABIC CAF
+FEDD		GLYPH FOR ISOLATE ARABIC LAM
+FEDE		GLYPH FOR FINAL ARABIC LAM
+FEDF		GLYPH FOR INITIAL ARABIC LAM
+FEE0		GLYPH FOR MEDIAL ARABIC LAM
+FEE1		GLYPH FOR ISOLATE ARABIC MEEM
+FEE2		GLYPH FOR FINAL ARABIC MEEM
+FEE3		GLYPH FOR INITIAL ARABIC MEEM
+FEE4		GLYPH FOR MEDIAL ARABIC MEEM
+FEE5		GLYPH FOR ISOLATE ARABIC NOON
+FEE6		GLYPH FOR FINAL ARABIC NOON
+FEE7		GLYPH FOR INITIAL ARABIC NOON
+FEE8		GLYPH FOR MEDIAL ARABIC NOON
+FEE9		GLYPH FOR ISOLATE ARABIC HA
+FEEA		GLYPH FOR FINAL ARABIC HA
+FEEB		GLYPH FOR INITIAL ARABIC HA
+FEEC		GLYPH FOR MEDIAL ARABIC HA
+FEED		GLYPH FOR ISOLATE ARABIC WAW
+FEEE		GLYPH FOR FINAL ARABIC WAW
+FEEF		GLYPH FOR ISOLATE ARABIC ALEF MAQSURAH
+FEF0		GLYPH FOR FINAL ARABIC ALEF MAQSURAH
+FEF1		GLYPH FOR ISOLATE ARABIC YA
+FEF2		GLYPH FOR FINAL ARABIC YA
+FEF3		GLYPH FOR INITIAL ARABIC YA
+FEF4		GLYPH FOR MEDIAL ARABIC YA
+FEF5		GLYPH FOR ISOLATE ARABIC MADDAH ON LIGATURE LAM ALEF
+FEF6		GLYPH FOR FINAL ARABIC MADDAH ON LIGATURE LAM ALEF
+FEF7		GLYPH FOR ISOLATE ARABIC HAMZAH ON LIGATURE LAM ALEF
+FEF8		GLYPH FOR FINAL ARABIC HAMZAH ON LIGATURE LAM ALEF
+FEF9		GLYPH FOR ISOLATE ARABIC HAMZAH UNDER LIGATURE LAM ALEF
+FEFA		GLYPH FOR FINAL ARABIC HAMZAH UNDER LIGATURE LAM ALEF
+FEFB		GLYPH FOR ISOLATE ARABIC LIGATURE LAM ALEF
+FEFC		GLYPH FOR FINAL ARABIC LIGATURE LAM ALEF
+FEFF		BYTE ORDER MARK
+FF08		FULLWIDTH OPENING PARENTHESIS
+FF09		FULLWIDTH CLOSING PARENTHESIS
+FF0E		FULLWIDTH PERIOD
+FF0F		FULLWIDTH SLASH
+FF3B		FULLWIDTH OPENING SQUARE BRACKET
+FF3C		FULLWIDTH BACKSLASH
+FF3D		FULLWIDTH CLOSING SQUARE BRACKET
+FF3E		FULLWIDTH SPACING CIRCUMFLEX
+FF3F		FULLWIDTH SPACING UNDERSCORE
+FF40		FULLWIDTH SPACING GRAVE
+FF5B		FULLWIDTH OPENING CURLY BRACKET
+FF5C		FULLWIDTH VERTICAL BAR
+FF5D		FULLWIDTH CLOSING CURLY BRACKET
+FF5E		FULLWIDTH SPACING TILDE
+FF61		HALFWIDTH IDEOGRAPHIC PERIOD
+FF62		HALFWIDTH OPENING CORNER BRACKET
+FF63		HALFWIDTH CLOSING CORNER BRACKET
+FFA0		HALFWIDTH HANGUL CAE OM
+FFA1		HALFWIDTH HANGUL LETTER GIYEOG
+FFA2		HALFWIDTH HANGUL LETTER SSANG GIYEOG
+FFA3		HALFWIDTH HANGUL LETTER GIYEOG SIOS
+FFA5		HALFWIDTH HANGUL LETTER NIEUN JIEUJ
+FFA6		HALFWIDTH HANGUL LETTER NIEUN HIEUH
+FFA7		HALFWIDTH HANGUL LETTER DIGEUD
+FFA8		HALFWIDTH HANGUL LETTER SSANG DIGEUD
+FFA9		HALFWIDTH HANGUL LETTER LIEUL
+FFAA		HALFWIDTH HANGUL LETTER LIEUL GIYEOG
+FFAB		HALFWIDTH HANGUL LETTER LIEUL MIEUM
+FFAC		HALFWIDTH HANGUL LETTER LIEUL BIEUB
+FFAD		HALFWIDTH HANGUL LETTER LIEUL SIOS
+FFAE		HALFWIDTH HANGUL LETTER LIEUL TIEUT
+FFAF		HALFWIDTH HANGUL LETTER LIEUL PIEUP
+FFB0		HALFWIDTH HANGUL LETTER LIEUL HIEUH
+FFB2		HALFWIDTH HANGUL LETTER BIEUB
+FFB3		HALFWIDTH HANGUL LETTER SSANG BIEUB
+FFB4		HALFWIDTH HANGUL LETTER BIEUB SIOS
+FFB6		HALFWIDTH HANGUL LETTER SSANG SIOS
+FFB8		HALFWIDTH HANGUL LETTER JIEUJ
+FFB9		HALFWIDTH HANGUL LETTER SSANG JIEUJ
+FFBA		HALFWIDTH HANGUL LETTER CIEUC
+FFBB		HALFWIDTH HANGUL LETTER KIYEOK
+FFBC		HALFWIDTH HANGUL LETTER TIEUT
+FFBD		HALFWIDTH HANGUL LETTER PIEUP
+FFE3		FULLWIDTH SPACING MACRON
+FFE4		FULLWIDTH BROKEN VERTICAL BAR
+END
diff --git a/lib/5.24.1/unicore/To/NameAlia.pl b/lib/5.24.1/unicore/To/NameAlia.pl
new file mode 100644
index 00000000..1df54eb3
--- /dev/null
+++ b/lib/5.24.1/unicore/To/NameAlia.pl
@@ -0,0 +1,479 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToNameAlias'}{'format'} = 's'; # string
+$utf8::SwashInfo{'ToNameAlias'}{'missing'} = ''; # code point maps to the null string
+
+return <<'END';
+0		NULL: control
+0		NUL: abbreviation
+1		START OF HEADING: control
+1		SOH: abbreviation
+2		START OF TEXT: control
+2		STX: abbreviation
+3		END OF TEXT: control
+3		ETX: abbreviation
+4		END OF TRANSMISSION: control
+4		EOT: abbreviation
+5		ENQUIRY: control
+5		ENQ: abbreviation
+6		ACKNOWLEDGE: control
+6		ACK: abbreviation
+7		ALERT: control
+7		BEL: abbreviation
+8		BACKSPACE: control
+8		BS: abbreviation
+9		CHARACTER TABULATION: control
+9		HORIZONTAL TABULATION: control
+9		HT: abbreviation
+9		TAB: abbreviation
+A		LINE FEED: control
+A		NEW LINE: control
+A		END OF LINE: control
+A		LF: abbreviation
+A		NL: abbreviation
+A		EOL: abbreviation
+B		LINE TABULATION: control
+B		VERTICAL TABULATION: control
+B		VT: abbreviation
+C		FORM FEED: control
+C		FF: abbreviation
+D		CARRIAGE RETURN: control
+D		CR: abbreviation
+E		SHIFT OUT: control
+E		LOCKING-SHIFT ONE: control
+E		SO: abbreviation
+F		SHIFT IN: control
+F		LOCKING-SHIFT ZERO: control
+F		SI: abbreviation
+10		DATA LINK ESCAPE: control
+10		DLE: abbreviation
+11		DEVICE CONTROL ONE: control
+11		DC1: abbreviation
+12		DEVICE CONTROL TWO: control
+12		DC2: abbreviation
+13		DEVICE CONTROL THREE: control
+13		DC3: abbreviation
+14		DEVICE CONTROL FOUR: control
+14		DC4: abbreviation
+15		NEGATIVE ACKNOWLEDGE: control
+15		NAK: abbreviation
+16		SYNCHRONOUS IDLE: control
+16		SYN: abbreviation
+17		END OF TRANSMISSION BLOCK: control
+17		ETB: abbreviation
+18		CANCEL: control
+18		CAN: abbreviation
+19		END OF MEDIUM: control
+19		EOM: abbreviation
+1A		SUBSTITUTE: control
+1A		SUB: abbreviation
+1B		ESCAPE: control
+1B		ESC: abbreviation
+1C		INFORMATION SEPARATOR FOUR: control
+1C		FILE SEPARATOR: control
+1C		FS: abbreviation
+1D		INFORMATION SEPARATOR THREE: control
+1D		GROUP SEPARATOR: control
+1D		GS: abbreviation
+1E		INFORMATION SEPARATOR TWO: control
+1E		RECORD SEPARATOR: control
+1E		RS: abbreviation
+1F		INFORMATION SEPARATOR ONE: control
+1F		UNIT SEPARATOR: control
+1F		US: abbreviation
+20		SP: abbreviation
+7F		DELETE: control
+7F		DEL: abbreviation
+80		PADDING CHARACTER: figment
+80		PAD: abbreviation
+81		HIGH OCTET PRESET: figment
+81		HOP: abbreviation
+82		BREAK PERMITTED HERE: control
+82		BPH: abbreviation
+83		NO BREAK HERE: control
+83		NBH: abbreviation
+84		INDEX: control
+84		IND: abbreviation
+85		NEXT LINE: control
+85		NEL: abbreviation
+86		START OF SELECTED AREA: control
+86		SSA: abbreviation
+87		END OF SELECTED AREA: control
+87		ESA: abbreviation
+88		CHARACTER TABULATION SET: control
+88		HORIZONTAL TABULATION SET: control
+88		HTS: abbreviation
+89		CHARACTER TABULATION WITH JUSTIFICATION: control
+89		HORIZONTAL TABULATION WITH JUSTIFICATION: control
+89		HTJ: abbreviation
+8A		LINE TABULATION SET: control
+8A		VERTICAL TABULATION SET: control
+8A		VTS: abbreviation
+8B		PARTIAL LINE FORWARD: control
+8B		PARTIAL LINE DOWN: control
+8B		PLD: abbreviation
+8C		PARTIAL LINE BACKWARD: control
+8C		PARTIAL LINE UP: control
+8C		PLU: abbreviation
+8D		REVERSE LINE FEED: control
+8D		REVERSE INDEX: control
+8D		RI: abbreviation
+8E		SINGLE SHIFT TWO: control
+8E		SINGLE-SHIFT-2: control
+8E		SS2: abbreviation
+8F		SINGLE SHIFT THREE: control
+8F		SINGLE-SHIFT-3: control
+8F		SS3: abbreviation
+90		DEVICE CONTROL STRING: control
+90		DCS: abbreviation
+91		PRIVATE USE ONE: control
+91		PRIVATE USE-1: control
+91		PU1: abbreviation
+92		PRIVATE USE TWO: control
+92		PRIVATE USE-2: control
+92		PU2: abbreviation
+93		SET TRANSMIT STATE: control
+93		STS: abbreviation
+94		CANCEL CHARACTER: control
+94		CCH: abbreviation
+95		MESSAGE WAITING: control
+95		MW: abbreviation
+96		START OF GUARDED AREA: control
+96		START OF PROTECTED AREA: control
+96		SPA: abbreviation
+97		END OF GUARDED AREA: control
+97		END OF PROTECTED AREA: control
+97		EPA: abbreviation
+98		START OF STRING: control
+98		SOS: abbreviation
+99		SINGLE GRAPHIC CHARACTER INTRODUCER: figment
+99		SGC: abbreviation
+9A		SINGLE CHARACTER INTRODUCER: control
+9A		SCI: abbreviation
+9B		CONTROL SEQUENCE INTRODUCER: control
+9B		CSI: abbreviation
+9C		STRING TERMINATOR: control
+9C		ST: abbreviation
+9D		OPERATING SYSTEM COMMAND: control
+9D		OSC: abbreviation
+9E		PRIVACY MESSAGE: control
+9E		PM: abbreviation
+9F		APPLICATION PROGRAM COMMAND: control
+9F		APC: abbreviation
+A0		NBSP: abbreviation
+AD		SHY: abbreviation
+1A2		LATIN CAPITAL LETTER GHA: correction
+1A3		LATIN SMALL LETTER GHA: correction
+34F		CGJ: abbreviation
+61C		ALM: abbreviation
+709		SYRIAC SUBLINEAR COLON SKEWED LEFT: correction
+CDE		KANNADA LETTER LLLA: correction
+E9D		LAO LETTER FO FON: correction
+E9F		LAO LETTER FO FAY: correction
+EA3		LAO LETTER RO: correction
+EA5		LAO LETTER LO: correction
+FD0		TIBETAN MARK BKA- SHOG GI MGO RGYAN: correction
+180B		FVS1: abbreviation
+180C		FVS2: abbreviation
+180D		FVS3: abbreviation
+180E		MVS: abbreviation
+200B		ZWSP: abbreviation
+200C		ZWNJ: abbreviation
+200D		ZWJ: abbreviation
+200E		LRM: abbreviation
+200F		RLM: abbreviation
+202A		LRE: abbreviation
+202B		RLE: abbreviation
+202C		PDF: abbreviation
+202D		LRO: abbreviation
+202E		RLO: abbreviation
+202F		NNBSP: abbreviation
+205F		MMSP: abbreviation
+2060		WJ: abbreviation
+2066		LRI: abbreviation
+2067		RLI: abbreviation
+2068		FSI: abbreviation
+2069		PDI: abbreviation
+2118		WEIERSTRASS ELLIPTIC FUNCTION: correction
+2448		MICR ON US SYMBOL: correction
+2449		MICR DASH SYMBOL: correction
+2B7A		LEFTWARDS TRIANGLE-HEADED ARROW WITH DOUBLE VERTICAL STROKE: correction
+2B7C		RIGHTWARDS TRIANGLE-HEADED ARROW WITH DOUBLE VERTICAL STROKE: correction
+A015		YI SYLLABLE ITERATION MARK: correction
+FE00		VS1: abbreviation
+FE01		VS2: abbreviation
+FE02		VS3: abbreviation
+FE03		VS4: abbreviation
+FE04		VS5: abbreviation
+FE05		VS6: abbreviation
+FE06		VS7: abbreviation
+FE07		VS8: abbreviation
+FE08		VS9: abbreviation
+FE09		VS10: abbreviation
+FE0A		VS11: abbreviation
+FE0B		VS12: abbreviation
+FE0C		VS13: abbreviation
+FE0D		VS14: abbreviation
+FE0E		VS15: abbreviation
+FE0F		VS16: abbreviation
+FE18		PRESENTATION FORM FOR VERTICAL RIGHT WHITE LENTICULAR BRACKET: correction
+FEFF		BYTE ORDER MARK: alternate
+FEFF		BOM: abbreviation
+FEFF		ZWNBSP: abbreviation
+122D4		CUNEIFORM SIGN NU11 TENU: correction
+122D5		CUNEIFORM SIGN NU11 OVER NU11 BUR OVER BUR: correction
+1D0C5		BYZANTINE MUSICAL SYMBOL FTHORA SKLIRON CHROMA VASIS: correction
+E0100		VS17: abbreviation
+E0101		VS18: abbreviation
+E0102		VS19: abbreviation
+E0103		VS20: abbreviation
+E0104		VS21: abbreviation
+E0105		VS22: abbreviation
+E0106		VS23: abbreviation
+E0107		VS24: abbreviation
+E0108		VS25: abbreviation
+E0109		VS26: abbreviation
+E010A		VS27: abbreviation
+E010B		VS28: abbreviation
+E010C		VS29: abbreviation
+E010D		VS30: abbreviation
+E010E		VS31: abbreviation
+E010F		VS32: abbreviation
+E0110		VS33: abbreviation
+E0111		VS34: abbreviation
+E0112		VS35: abbreviation
+E0113		VS36: abbreviation
+E0114		VS37: abbreviation
+E0115		VS38: abbreviation
+E0116		VS39: abbreviation
+E0117		VS40: abbreviation
+E0118		VS41: abbreviation
+E0119		VS42: abbreviation
+E011A		VS43: abbreviation
+E011B		VS44: abbreviation
+E011C		VS45: abbreviation
+E011D		VS46: abbreviation
+E011E		VS47: abbreviation
+E011F		VS48: abbreviation
+E0120		VS49: abbreviation
+E0121		VS50: abbreviation
+E0122		VS51: abbreviation
+E0123		VS52: abbreviation
+E0124		VS53: abbreviation
+E0125		VS54: abbreviation
+E0126		VS55: abbreviation
+E0127		VS56: abbreviation
+E0128		VS57: abbreviation
+E0129		VS58: abbreviation
+E012A		VS59: abbreviation
+E012B		VS60: abbreviation
+E012C		VS61: abbreviation
+E012D		VS62: abbreviation
+E012E		VS63: abbreviation
+E012F		VS64: abbreviation
+E0130		VS65: abbreviation
+E0131		VS66: abbreviation
+E0132		VS67: abbreviation
+E0133		VS68: abbreviation
+E0134		VS69: abbreviation
+E0135		VS70: abbreviation
+E0136		VS71: abbreviation
+E0137		VS72: abbreviation
+E0138		VS73: abbreviation
+E0139		VS74: abbreviation
+E013A		VS75: abbreviation
+E013B		VS76: abbreviation
+E013C		VS77: abbreviation
+E013D		VS78: abbreviation
+E013E		VS79: abbreviation
+E013F		VS80: abbreviation
+E0140		VS81: abbreviation
+E0141		VS82: abbreviation
+E0142		VS83: abbreviation
+E0143		VS84: abbreviation
+E0144		VS85: abbreviation
+E0145		VS86: abbreviation
+E0146		VS87: abbreviation
+E0147		VS88: abbreviation
+E0148		VS89: abbreviation
+E0149		VS90: abbreviation
+E014A		VS91: abbreviation
+E014B		VS92: abbreviation
+E014C		VS93: abbreviation
+E014D		VS94: abbreviation
+E014E		VS95: abbreviation
+E014F		VS96: abbreviation
+E0150		VS97: abbreviation
+E0151		VS98: abbreviation
+E0152		VS99: abbreviation
+E0153		VS100: abbreviation
+E0154		VS101: abbreviation
+E0155		VS102: abbreviation
+E0156		VS103: abbreviation
+E0157		VS104: abbreviation
+E0158		VS105: abbreviation
+E0159		VS106: abbreviation
+E015A		VS107: abbreviation
+E015B		VS108: abbreviation
+E015C		VS109: abbreviation
+E015D		VS110: abbreviation
+E015E		VS111: abbreviation
+E015F		VS112: abbreviation
+E0160		VS113: abbreviation
+E0161		VS114: abbreviation
+E0162		VS115: abbreviation
+E0163		VS116: abbreviation
+E0164		VS117: abbreviation
+E0165		VS118: abbreviation
+E0166		VS119: abbreviation
+E0167		VS120: abbreviation
+E0168		VS121: abbreviation
+E0169		VS122: abbreviation
+E016A		VS123: abbreviation
+E016B		VS124: abbreviation
+E016C		VS125: abbreviation
+E016D		VS126: abbreviation
+E016E		VS127: abbreviation
+E016F		VS128: abbreviation
+E0170		VS129: abbreviation
+E0171		VS130: abbreviation
+E0172		VS131: abbreviation
+E0173		VS132: abbreviation
+E0174		VS133: abbreviation
+E0175		VS134: abbreviation
+E0176		VS135: abbreviation
+E0177		VS136: abbreviation
+E0178		VS137: abbreviation
+E0179		VS138: abbreviation
+E017A		VS139: abbreviation
+E017B		VS140: abbreviation
+E017C		VS141: abbreviation
+E017D		VS142: abbreviation
+E017E		VS143: abbreviation
+E017F		VS144: abbreviation
+E0180		VS145: abbreviation
+E0181		VS146: abbreviation
+E0182		VS147: abbreviation
+E0183		VS148: abbreviation
+E0184		VS149: abbreviation
+E0185		VS150: abbreviation
+E0186		VS151: abbreviation
+E0187		VS152: abbreviation
+E0188		VS153: abbreviation
+E0189		VS154: abbreviation
+E018A		VS155: abbreviation
+E018B		VS156: abbreviation
+E018C		VS157: abbreviation
+E018D		VS158: abbreviation
+E018E		VS159: abbreviation
+E018F		VS160: abbreviation
+E0190		VS161: abbreviation
+E0191		VS162: abbreviation
+E0192		VS163: abbreviation
+E0193		VS164: abbreviation
+E0194		VS165: abbreviation
+E0195		VS166: abbreviation
+E0196		VS167: abbreviation
+E0197		VS168: abbreviation
+E0198		VS169: abbreviation
+E0199		VS170: abbreviation
+E019A		VS171: abbreviation
+E019B		VS172: abbreviation
+E019C		VS173: abbreviation
+E019D		VS174: abbreviation
+E019E		VS175: abbreviation
+E019F		VS176: abbreviation
+E01A0		VS177: abbreviation
+E01A1		VS178: abbreviation
+E01A2		VS179: abbreviation
+E01A3		VS180: abbreviation
+E01A4		VS181: abbreviation
+E01A5		VS182: abbreviation
+E01A6		VS183: abbreviation
+E01A7		VS184: abbreviation
+E01A8		VS185: abbreviation
+E01A9		VS186: abbreviation
+E01AA		VS187: abbreviation
+E01AB		VS188: abbreviation
+E01AC		VS189: abbreviation
+E01AD		VS190: abbreviation
+E01AE		VS191: abbreviation
+E01AF		VS192: abbreviation
+E01B0		VS193: abbreviation
+E01B1		VS194: abbreviation
+E01B2		VS195: abbreviation
+E01B3		VS196: abbreviation
+E01B4		VS197: abbreviation
+E01B5		VS198: abbreviation
+E01B6		VS199: abbreviation
+E01B7		VS200: abbreviation
+E01B8		VS201: abbreviation
+E01B9		VS202: abbreviation
+E01BA		VS203: abbreviation
+E01BB		VS204: abbreviation
+E01BC		VS205: abbreviation
+E01BD		VS206: abbreviation
+E01BE		VS207: abbreviation
+E01BF		VS208: abbreviation
+E01C0		VS209: abbreviation
+E01C1		VS210: abbreviation
+E01C2		VS211: abbreviation
+E01C3		VS212: abbreviation
+E01C4		VS213: abbreviation
+E01C5		VS214: abbreviation
+E01C6		VS215: abbreviation
+E01C7		VS216: abbreviation
+E01C8		VS217: abbreviation
+E01C9		VS218: abbreviation
+E01CA		VS219: abbreviation
+E01CB		VS220: abbreviation
+E01CC		VS221: abbreviation
+E01CD		VS222: abbreviation
+E01CE		VS223: abbreviation
+E01CF		VS224: abbreviation
+E01D0		VS225: abbreviation
+E01D1		VS226: abbreviation
+E01D2		VS227: abbreviation
+E01D3		VS228: abbreviation
+E01D4		VS229: abbreviation
+E01D5		VS230: abbreviation
+E01D6		VS231: abbreviation
+E01D7		VS232: abbreviation
+E01D8		VS233: abbreviation
+E01D9		VS234: abbreviation
+E01DA		VS235: abbreviation
+E01DB		VS236: abbreviation
+E01DC		VS237: abbreviation
+E01DD		VS238: abbreviation
+E01DE		VS239: abbreviation
+E01DF		VS240: abbreviation
+E01E0		VS241: abbreviation
+E01E1		VS242: abbreviation
+E01E2		VS243: abbreviation
+E01E3		VS244: abbreviation
+E01E4		VS245: abbreviation
+E01E5		VS246: abbreviation
+E01E6		VS247: abbreviation
+E01E7		VS248: abbreviation
+E01E8		VS249: abbreviation
+E01E9		VS250: abbreviation
+E01EA		VS251: abbreviation
+E01EB		VS252: abbreviation
+E01EC		VS253: abbreviation
+E01ED		VS254: abbreviation
+E01EE		VS255: abbreviation
+E01EF		VS256: abbreviation
+END
diff --git a/lib/5.24.1/unicore/To/Nt.pl b/lib/5.24.1/unicore/To/Nt.pl
new file mode 100644
index 00000000..80b7b85b
--- /dev/null
+++ b/lib/5.24.1/unicore/To/Nt.pl
@@ -0,0 +1,229 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToNt'}{'format'} = 's'; # string
+$utf8::SwashInfo{'ToNt'}{'missing'} = 'None';
+
+return <<'END';
+30	39	Decimal
+B2	B3	Digit
+B9		Digit
+BC	BE	Numeric
+660	669	Decimal
+6F0	6F9	Decimal
+7C0	7C9	Decimal
+966	96F	Decimal
+9E6	9EF	Decimal
+9F4	9F9	Numeric
+A66	A6F	Decimal
+AE6	AEF	Decimal
+B66	B6F	Decimal
+B72	B77	Numeric
+BE6	BEF	Decimal
+BF0	BF2	Numeric
+C66	C6F	Decimal
+C78	C7E	Numeric
+CE6	CEF	Decimal
+D66	D6F	Decimal
+D70	D75	Numeric
+DE6	DEF	Decimal
+E50	E59	Decimal
+ED0	ED9	Decimal
+F20	F29	Decimal
+F2A	F33	Numeric
+1040	1049	Decimal
+1090	1099	Decimal
+1369	1371	Digit
+1372	137C	Numeric
+16EE	16F0	Numeric
+17E0	17E9	Decimal
+17F0	17F9	Numeric
+1810	1819	Decimal
+1946	194F	Decimal
+19D0	19D9	Decimal
+19DA		Digit
+1A80	1A89	Decimal
+1A90	1A99	Decimal
+1B50	1B59	Decimal
+1BB0	1BB9	Decimal
+1C40	1C49	Decimal
+1C50	1C59	Decimal
+2070		Digit
+2074	2079	Digit
+2080	2089	Digit
+2150	2182	Numeric
+2185	2189	Numeric
+2460	2468	Digit
+2469	2473	Numeric
+2474	247C	Digit
+247D	2487	Numeric
+2488	2490	Digit
+2491	249B	Numeric
+24EA		Digit
+24EB	24F4	Numeric
+24F5	24FD	Digit
+24FE		Numeric
+24FF		Digit
+2776	277E	Digit
+277F		Numeric
+2780	2788	Digit
+2789		Numeric
+278A	2792	Digit
+2793		Numeric
+2CFD		Numeric
+3007		Numeric
+3021	3029	Numeric
+3038	303A	Numeric
+3192	3195	Numeric
+3220	3229	Numeric
+3248	324F	Numeric
+3251	325F	Numeric
+3280	3289	Numeric
+32B1	32BF	Numeric
+3405		Numeric
+3483		Numeric
+382A		Numeric
+3B4D		Numeric
+4E00		Numeric
+4E03		Numeric
+4E07		Numeric
+4E09		Numeric
+4E5D		Numeric
+4E8C		Numeric
+4E94		Numeric
+4E96		Numeric
+4EBF	4EC0	Numeric
+4EDF		Numeric
+4EE8		Numeric
+4F0D		Numeric
+4F70		Numeric
+5104		Numeric
+5146		Numeric
+5169		Numeric
+516B		Numeric
+516D		Numeric
+5341		Numeric
+5343	5345	Numeric
+534C		Numeric
+53C1	53C4	Numeric
+56DB		Numeric
+58F1		Numeric
+58F9		Numeric
+5E7A		Numeric
+5EFE	5EFF	Numeric
+5F0C	5F0E	Numeric
+5F10		Numeric
+62FE		Numeric
+634C		Numeric
+67D2		Numeric
+6F06		Numeric
+7396		Numeric
+767E		Numeric
+8086		Numeric
+842C		Numeric
+8CAE		Numeric
+8CB3		Numeric
+8D30		Numeric
+9621		Numeric
+9646		Numeric
+964C		Numeric
+9678		Numeric
+96F6		Numeric
+A620	A629	Decimal
+A6E6	A6EF	Numeric
+A830	A835	Numeric
+A8D0	A8D9	Decimal
+A900	A909	Decimal
+A9D0	A9D9	Decimal
+A9F0	A9F9	Decimal
+AA50	AA59	Decimal
+ABF0	ABF9	Decimal
+F96B		Numeric
+F973		Numeric
+F978		Numeric
+F9B2		Numeric
+F9D1		Numeric
+F9D3		Numeric
+F9FD		Numeric
+FF10	FF19	Decimal
+10107	10133	Numeric
+10140	10178	Numeric
+1018A	1018B	Numeric
+102E1	102FB	Numeric
+10320	10323	Numeric
+10341		Numeric
+1034A		Numeric
+103D1	103D5	Numeric
+104A0	104A9	Decimal
+10858	1085F	Numeric
+10879	1087F	Numeric
+108A7	108AF	Numeric
+108FB	108FF	Numeric
+10916	1091B	Numeric
+109BC	109BD	Numeric
+109C0	109CF	Numeric
+109D2	109FF	Numeric
+10A40	10A43	Digit
+10A44	10A47	Numeric
+10A7D	10A7E	Numeric
+10A9D	10A9F	Numeric
+10AEB	10AEF	Numeric
+10B58	10B5F	Numeric
+10B78	10B7F	Numeric
+10BA9	10BAF	Numeric
+10CFA	10CFF	Numeric
+10E60	10E68	Digit
+10E69	10E7E	Numeric
+11052	1105A	Digit
+1105B	11065	Numeric
+11066	1106F	Decimal
+110F0	110F9	Decimal
+11136	1113F	Decimal
+111D0	111D9	Decimal
+111E1	111F4	Numeric
+112F0	112F9	Decimal
+114D0	114D9	Decimal
+11650	11659	Decimal
+116C0	116C9	Decimal
+11730	11739	Decimal
+1173A	1173B	Numeric
+118E0	118E9	Decimal
+118EA	118F2	Numeric
+12400	1246E	Numeric
+16A60	16A69	Decimal
+16B50	16B59	Decimal
+16B5B	16B61	Numeric
+1D360	1D371	Numeric
+1D7CE	1D7FF	Decimal
+1E8C7	1E8CF	Numeric
+1F100	1F10A	Digit
+1F10B	1F10C	Numeric
+20001		Numeric
+20064		Numeric
+200E2		Numeric
+20121		Numeric
+2092A		Numeric
+20983		Numeric
+2098C		Numeric
+2099C		Numeric
+20AEA		Numeric
+20AFD		Numeric
+20B19		Numeric
+22390		Numeric
+22998		Numeric
+23B1B		Numeric
+2626D		Numeric
+2F890		Numeric
+END
diff --git a/lib/5.24.1/unicore/To/Nv.pl b/lib/5.24.1/unicore/To/Nv.pl
new file mode 100644
index 00000000..5bc386f6
--- /dev/null
+++ b/lib/5.24.1/unicore/To/Nv.pl
@@ -0,0 +1,637 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+# The mappings must be modified to get the correct values by adding the code
+# point ordinal number to each one that is numeric.
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToNv'}{'format'} = 'a'; # some entries need adjustment
+$utf8::SwashInfo{'ToNv'}{'missing'} = 'NaN';
+
+return <<'END';
+30	39	0
+B2	B3	2
+B9		1
+BC		1/4
+BD		1/2
+BE		3/4
+660	669	0
+6F0	6F9	0
+7C0	7C9	0
+966	96F	0
+9E6	9EF	0
+9F4		1/16
+9F5		1/8
+9F6		3/16
+9F7		1/4
+9F8		3/4
+9F9		16
+A66	A6F	0
+AE6	AEF	0
+B66	B6F	0
+B72		1/4
+B73		1/2
+B74		3/4
+B75		1/16
+B76		1/8
+B77		3/16
+BE6	BF0	0
+BF1		100
+BF2		1000
+C66	C6F	0
+C78	C7B	0
+C7C	C7E	1
+CE6	CEF	0
+D66	D70	0
+D71		100
+D72		1000
+D73		1/4
+D74		1/2
+D75		3/4
+DE6	DEF	0
+E50	E59	0
+ED0	ED9	0
+F20	F29	0
+F2A		1/2
+F2B		3/2
+F2C		5/2
+F2D		7/2
+F2E		9/2
+F2F		11/2
+F30		13/2
+F31		15/2
+F32		17/2
+F33		-1/2
+1040	1049	0
+1090	1099	0
+1369	1372	1
+1373		20
+1374		30
+1375		40
+1376		50
+1377		60
+1378		70
+1379		80
+137A		90
+137B		100
+137C		10000
+16EE	16F0	17
+17E0	17E9	0
+17F0	17F9	0
+1810	1819	0
+1946	194F	0
+19D0	19D9	0
+19DA		1
+1A80	1A89	0
+1A90	1A99	0
+1B50	1B59	0
+1BB0	1BB9	0
+1C40	1C49	0
+1C50	1C59	0
+2070		0
+2074	2079	4
+2080	2089	0
+2150		1/7
+2151		1/9
+2152		1/10
+2153		1/3
+2154		2/3
+2155		1/5
+2156		2/5
+2157		3/5
+2158		4/5
+2159		1/6
+215A		5/6
+215B		1/8
+215C		3/8
+215D		5/8
+215E		7/8
+215F		1
+2160	216B	1
+216C		50
+216D		100
+216E		500
+216F		1000
+2170	217B	1
+217C		50
+217D		100
+217E		500
+217F		1000
+2180		1000
+2181		5000
+2182		10000
+2185		6
+2186		50
+2187		50000
+2188		100000
+2189		0
+2460	2473	1
+2474	2487	1
+2488	249B	1
+24EA		0
+24EB	24F4	11
+24F5	24FE	1
+24FF		0
+2776	277F	1
+2780	2789	1
+278A	2793	1
+2CFD		1/2
+3007		0
+3021	3029	1
+3038		10
+3039		20
+303A		30
+3192	3195	1
+3220	3229	1
+3248		10
+3249		20
+324A		30
+324B		40
+324C		50
+324D		60
+324E		70
+324F		80
+3251	325F	21
+3280	3289	1
+32B1	32BF	36
+3405		5
+3483		2
+382A		5
+3B4D		7
+4E00		1
+4E03		7
+4E07		10000
+4E09		3
+4E5D		9
+4E8C		2
+4E94		5
+4E96		4
+4EBF		100000000
+4EC0		10
+4EDF		1000
+4EE8		3
+4F0D		5
+4F70		100
+5104		100000000
+5146		1000000000000
+5169		2
+516B		8
+516D		6
+5341		10
+5343		1000
+5344		20
+5345		30
+534C		40
+53C1		3
+53C2		3
+53C3		3
+53C4		3
+56DB		4
+58F1		1
+58F9		1
+5E7A		1
+5EFE		9
+5EFF		20
+5F0C	5F0E	1
+5F10		2
+62FE		10
+634C		8
+67D2		7
+6F06		7
+7396		9
+767E		100
+8086		4
+842C		10000
+8CAE		2
+8CB3		2
+8D30		2
+9621		1000
+9646		6
+964C		100
+9678		6
+96F6		0
+A620	A629	0
+A6E6	A6EE	1
+A6EF		0
+A830		1/4
+A831		1/2
+A832		3/4
+A833		1/16
+A834		1/8
+A835		3/16
+A8D0	A8D9	0
+A900	A909	0
+A9D0	A9D9	0
+A9F0	A9F9	0
+AA50	AA59	0
+ABF0	ABF9	0
+F96B		3
+F973		10
+F978		2
+F9B2		0
+F9D1		6
+F9D3		6
+F9FD		10
+FF10	FF19	0
+10107	10110	1
+10111		20
+10112		30
+10113		40
+10114		50
+10115		60
+10116		70
+10117		80
+10118		90
+10119		100
+1011A		200
+1011B		300
+1011C		400
+1011D		500
+1011E		600
+1011F		700
+10120		800
+10121		900
+10122		1000
+10123		2000
+10124		3000
+10125		4000
+10126		5000
+10127		6000
+10128		7000
+10129		8000
+1012A		9000
+1012B		10000
+1012C		20000
+1012D		30000
+1012E		40000
+1012F		50000
+10130		60000
+10131		70000
+10132		80000
+10133		90000
+10140		1/4
+10141		1/2
+10142		1
+10143		5
+10144		50
+10145		500
+10146		5000
+10147		50000
+10148		5
+10149		10
+1014A		50
+1014B		100
+1014C		500
+1014D		1000
+1014E		5000
+1014F		5
+10150		10
+10151		50
+10152		100
+10153		500
+10154		1000
+10155		10000
+10156		50000
+10157		10
+10158		1
+10159		1
+1015A	1015B	1
+1015C		2
+1015D		2
+1015E		2
+1015F		5
+10160		10
+10161		10
+10162		10
+10163		10
+10164		10
+10165		30
+10166		50
+10167		50
+10168		50
+10169		50
+1016A		100
+1016B		300
+1016C		500
+1016D		500
+1016E		500
+1016F		500
+10170		500
+10171		1000
+10172		5000
+10173		5
+10174		50
+10175		1/2
+10176		1/2
+10177		2/3
+10178		3/4
+1018A		0
+1018B		1/4
+102E1	102EA	1
+102EB		20
+102EC		30
+102ED		40
+102EE		50
+102EF		60
+102F0		70
+102F1		80
+102F2		90
+102F3		100
+102F4		200
+102F5		300
+102F6		400
+102F7		500
+102F8		600
+102F9		700
+102FA		800
+102FB		900
+10320		1
+10321		5
+10322		10
+10323		50
+10341		90
+1034A		900
+103D1	103D2	1
+103D3		10
+103D4		20
+103D5		100
+104A0	104A9	0
+10858	1085A	1
+1085B		10
+1085C		20
+1085D		100
+1085E		1000
+1085F		10000
+10879	1087D	1
+1087E		10
+1087F		20
+108A7	108AA	1
+108AB	108AC	4
+108AD		10
+108AE		20
+108AF		100
+108FB		1
+108FC		5
+108FD		10
+108FE		20
+108FF		100
+10916		1
+10917		10
+10918		20
+10919		100
+1091A	1091B	2
+109BC		11/12
+109BD		1/2
+109C0	109C9	1
+109CA		20
+109CB		30
+109CC		40
+109CD		50
+109CE		60
+109CF		70
+109D2		100
+109D3		200
+109D4		300
+109D5		400
+109D6		500
+109D7		600
+109D8		700
+109D9		800
+109DA		900
+109DB		1000
+109DC		2000
+109DD		3000
+109DE		4000
+109DF		5000
+109E0		6000
+109E1		7000
+109E2		8000
+109E3		9000
+109E4		10000
+109E5		20000
+109E6		30000
+109E7		40000
+109E8		50000
+109E9		60000
+109EA		70000
+109EB		80000
+109EC		90000
+109ED		100000
+109EE		200000
+109EF		300000
+109F0		400000
+109F1		500000
+109F2		600000
+109F3		700000
+109F4		800000
+109F5		900000
+109F6		1/12
+109F7		1/6
+109F8		1/4
+109F9		1/3
+109FA		5/12
+109FB		1/2
+109FC		7/12
+109FD		2/3
+109FE		3/4
+109FF		5/6
+10A40	10A43	1
+10A44		10
+10A45		20
+10A46		100
+10A47		1000
+10A7D		1
+10A7E		50
+10A9D		1
+10A9E		10
+10A9F		20
+10AEB		1
+10AEC		5
+10AED		10
+10AEE		20
+10AEF		100
+10B58	10B5B	1
+10B5C		10
+10B5D		20
+10B5E		100
+10B5F		1000
+10B78	10B7B	1
+10B7C		10
+10B7D		20
+10B7E		100
+10B7F		1000
+10BA9	10BAC	1
+10BAD		10
+10BAE		20
+10BAF		100
+10CFA		1
+10CFB		5
+10CFC		10
+10CFD		50
+10CFE		100
+10CFF		1000
+10E60	10E69	1
+10E6A		20
+10E6B		30
+10E6C		40
+10E6D		50
+10E6E		60
+10E6F		70
+10E70		80
+10E71		90
+10E72		100
+10E73		200
+10E74		300
+10E75		400
+10E76		500
+10E77		600
+10E78		700
+10E79		800
+10E7A		900
+10E7B		1/2
+10E7C		1/4
+10E7D		1/3
+10E7E		2/3
+11052	1105B	1
+1105C		20
+1105D		30
+1105E		40
+1105F		50
+11060		60
+11061		70
+11062		80
+11063		90
+11064		100
+11065		1000
+11066	1106F	0
+110F0	110F9	0
+11136	1113F	0
+111D0	111D9	0
+111E1	111EA	1
+111EB		20
+111EC		30
+111ED		40
+111EE		50
+111EF		60
+111F0		70
+111F1		80
+111F2		90
+111F3		100
+111F4		1000
+112F0	112F9	0
+114D0	114D9	0
+11650	11659	0
+116C0	116C9	0
+11730	1173A	0
+1173B		20
+118E0	118EA	0
+118EB		20
+118EC		30
+118ED		40
+118EE		50
+118EF		60
+118F0		70
+118F1		80
+118F2		90
+12400	12407	2
+12408	1240E	3
+1240F	12414	4
+12415	1241D	1
+1241E	12422	1
+12423	12424	2
+12425	1242B	3
+1242C	1242E	1
+1242F	12431	3
+12432		216000
+12433		432000
+12434	12436	1
+12437	12439	3
+1243A		3
+1243B	1243C	3
+1243D		4
+1243E		4
+1243F		4
+12440	12441	6
+12442		7
+12443	12444	7
+12445	12446	8
+12447		9
+12448		9
+12449		9
+1244A	1244E	2
+1244F	12452	1
+12453	12454	4
+12455		5
+12456	12457	2
+12458	12459	1
+1245A		1/3
+1245B		2/3
+1245C		5/6
+1245D		1/3
+1245E		2/3
+1245F		1/8
+12460		1/4
+12461		1/6
+12462		1/4
+12463		1/4
+12464		1/2
+12465		1/3
+12466		2/3
+12467		40
+12468		50
+12469	1246E	4
+16A60	16A69	0
+16B50	16B59	0
+16B5B		10
+16B5C		100
+16B5D		10000
+16B5E		1000000
+16B5F		100000000
+16B60		10000000000
+16B61		1000000000000
+1D360	1D369	1
+1D36A		20
+1D36B		30
+1D36C		40
+1D36D		50
+1D36E		60
+1D36F		70
+1D370		80
+1D371		90
+1D7CE	1D7D7	0
+1D7D8	1D7E1	0
+1D7E2	1D7EB	0
+1D7EC	1D7F5	0
+1D7F6	1D7FF	0
+1E8C7	1E8CF	1
+1F100		0
+1F101	1F10A	0
+1F10B		0
+1F10C		0
+20001		7
+20064		4
+200E2		4
+20121		5
+2092A		1
+20983		30
+2098C		40
+2099C		40
+20AEA		6
+20AFD		3
+20B19		3
+22390		2
+22998		3
+23B1B		3
+2626D		4
+2F890		9
+END
diff --git a/lib/5.24.1/unicore/To/PerlDeci.pl b/lib/5.24.1/unicore/To/PerlDeci.pl
new file mode 100644
index 00000000..f3dfc524
--- /dev/null
+++ b/lib/5.24.1/unicore/To/PerlDeci.pl
@@ -0,0 +1,77 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+# The mappings must be modified to get the correct values by adding the code
+# point ordinal number to each one that is numeric.
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToPerlDecimalDigit'}{'format'} = 'a'; # some entries need adjustment
+$utf8::SwashInfo{'ToPerlDecimalDigit'}{'missing'} = ''; # code point maps to the null string
+
+return <<'END';
+30	39	0
+660	669	0
+6F0	6F9	0
+7C0	7C9	0
+966	96F	0
+9E6	9EF	0
+A66	A6F	0
+AE6	AEF	0
+B66	B6F	0
+BE6	BEF	0
+C66	C6F	0
+CE6	CEF	0
+D66	D6F	0
+DE6	DEF	0
+E50	E59	0
+ED0	ED9	0
+F20	F29	0
+1040	1049	0
+1090	1099	0
+17E0	17E9	0
+1810	1819	0
+1946	194F	0
+19D0	19D9	0
+1A80	1A89	0
+1A90	1A99	0
+1B50	1B59	0
+1BB0	1BB9	0
+1C40	1C49	0
+1C50	1C59	0
+A620	A629	0
+A8D0	A8D9	0
+A900	A909	0
+A9D0	A9D9	0
+A9F0	A9F9	0
+AA50	AA59	0
+ABF0	ABF9	0
+FF10	FF19	0
+104A0	104A9	0
+11066	1106F	0
+110F0	110F9	0
+11136	1113F	0
+111D0	111D9	0
+112F0	112F9	0
+114D0	114D9	0
+11650	11659	0
+116C0	116C9	0
+11730	11739	0
+118E0	118E9	0
+16A60	16A69	0
+16B50	16B59	0
+1D7CE	1D7D7	0
+1D7D8	1D7E1	0
+1D7E2	1D7EB	0
+1D7EC	1D7F5	0
+1D7F6	1D7FF	0
+END
diff --git a/lib/5.24.1/unicore/To/SB.pl b/lib/5.24.1/unicore/To/SB.pl
new file mode 100644
index 00000000..2a0bea20
--- /dev/null
+++ b/lib/5.24.1/unicore/To/SB.pl
@@ -0,0 +1,2192 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToSB'}{'format'} = 's'; # string
+$utf8::SwashInfo{'ToSB'}{'missing'} = 'Other';
+
+return <<'END';
+9		Sp
+A		LF
+B	C	Sp
+D		CR
+20		Sp
+21		STerm
+22		Close
+27	29	Close
+2C	2D	SContinue
+2E		ATerm
+30	39	Numeric
+3A		SContinue
+3F		STerm
+41	5A	Upper
+5B		Close
+5D		Close
+61	7A	Lower
+7B		Close
+7D		Close
+85		Sep
+A0		Sp
+AA		Lower
+AB		Close
+AD		Format
+B5		Lower
+BA		Lower
+BB		Close
+C0	D6	Upper
+D8	DE	Upper
+DF	F6	Lower
+F8	FF	Lower
+100		Upper
+101		Lower
+102		Upper
+103		Lower
+104		Upper
+105		Lower
+106		Upper
+107		Lower
+108		Upper
+109		Lower
+10A		Upper
+10B		Lower
+10C		Upper
+10D		Lower
+10E		Upper
+10F		Lower
+110		Upper
+111		Lower
+112		Upper
+113		Lower
+114		Upper
+115		Lower
+116		Upper
+117		Lower
+118		Upper
+119		Lower
+11A		Upper
+11B		Lower
+11C		Upper
+11D		Lower
+11E		Upper
+11F		Lower
+120		Upper
+121		Lower
+122		Upper
+123		Lower
+124		Upper
+125		Lower
+126		Upper
+127		Lower
+128		Upper
+129		Lower
+12A		Upper
+12B		Lower
+12C		Upper
+12D		Lower
+12E		Upper
+12F		Lower
+130		Upper
+131		Lower
+132		Upper
+133		Lower
+134		Upper
+135		Lower
+136		Upper
+137	138	Lower
+139		Upper
+13A		Lower
+13B		Upper
+13C		Lower
+13D		Upper
+13E		Lower
+13F		Upper
+140		Lower
+141		Upper
+142		Lower
+143		Upper
+144		Lower
+145		Upper
+146		Lower
+147		Upper
+148	149	Lower
+14A		Upper
+14B		Lower
+14C		Upper
+14D		Lower
+14E		Upper
+14F		Lower
+150		Upper
+151		Lower
+152		Upper
+153		Lower
+154		Upper
+155		Lower
+156		Upper
+157		Lower
+158		Upper
+159		Lower
+15A		Upper
+15B		Lower
+15C		Upper
+15D		Lower
+15E		Upper
+15F		Lower
+160		Upper
+161		Lower
+162		Upper
+163		Lower
+164		Upper
+165		Lower
+166		Upper
+167		Lower
+168		Upper
+169		Lower
+16A		Upper
+16B		Lower
+16C		Upper
+16D		Lower
+16E		Upper
+16F		Lower
+170		Upper
+171		Lower
+172		Upper
+173		Lower
+174		Upper
+175		Lower
+176		Upper
+177		Lower
+178	179	Upper
+17A		Lower
+17B		Upper
+17C		Lower
+17D		Upper
+17E	180	Lower
+181	182	Upper
+183		Lower
+184		Upper
+185		Lower
+186	187	Upper
+188		Lower
+189	18B	Upper
+18C	18D	Lower
+18E	191	Upper
+192		Lower
+193	194	Upper
+195		Lower
+196	198	Upper
+199	19B	Lower
+19C	19D	Upper
+19E		Lower
+19F	1A0	Upper
+1A1		Lower
+1A2		Upper
+1A3		Lower
+1A4		Upper
+1A5		Lower
+1A6	1A7	Upper
+1A8		Lower
+1A9		Upper
+1AA	1AB	Lower
+1AC		Upper
+1AD		Lower
+1AE	1AF	Upper
+1B0		Lower
+1B1	1B3	Upper
+1B4		Lower
+1B5		Upper
+1B6		Lower
+1B7	1B8	Upper
+1B9	1BA	Lower
+1BB		OLetter
+1BC		Upper
+1BD	1BF	Lower
+1C0	1C3	OLetter
+1C4	1C5	Upper
+1C6		Lower
+1C7	1C8	Upper
+1C9		Lower
+1CA	1CB	Upper
+1CC		Lower
+1CD		Upper
+1CE		Lower
+1CF		Upper
+1D0		Lower
+1D1		Upper
+1D2		Lower
+1D3		Upper
+1D4		Lower
+1D5		Upper
+1D6		Lower
+1D7		Upper
+1D8		Lower
+1D9		Upper
+1DA		Lower
+1DB		Upper
+1DC	1DD	Lower
+1DE		Upper
+1DF		Lower
+1E0		Upper
+1E1		Lower
+1E2		Upper
+1E3		Lower
+1E4		Upper
+1E5		Lower
+1E6		Upper
+1E7		Lower
+1E8		Upper
+1E9		Lower
+1EA		Upper
+1EB		Lower
+1EC		Upper
+1ED		Lower
+1EE		Upper
+1EF	1F0	Lower
+1F1	1F2	Upper
+1F3		Lower
+1F4		Upper
+1F5		Lower
+1F6	1F8	Upper
+1F9		Lower
+1FA		Upper
+1FB		Lower
+1FC		Upper
+1FD		Lower
+1FE		Upper
+1FF		Lower
+200		Upper
+201		Lower
+202		Upper
+203		Lower
+204		Upper
+205		Lower
+206		Upper
+207		Lower
+208		Upper
+209		Lower
+20A		Upper
+20B		Lower
+20C		Upper
+20D		Lower
+20E		Upper
+20F		Lower
+210		Upper
+211		Lower
+212		Upper
+213		Lower
+214		Upper
+215		Lower
+216		Upper
+217		Lower
+218		Upper
+219		Lower
+21A		Upper
+21B		Lower
+21C		Upper
+21D		Lower
+21E		Upper
+21F		Lower
+220		Upper
+221		Lower
+222		Upper
+223		Lower
+224		Upper
+225		Lower
+226		Upper
+227		Lower
+228		Upper
+229		Lower
+22A		Upper
+22B		Lower
+22C		Upper
+22D		Lower
+22E		Upper
+22F		Lower
+230		Upper
+231		Lower
+232		Upper
+233	239	Lower
+23A	23B	Upper
+23C		Lower
+23D	23E	Upper
+23F	240	Lower
+241		Upper
+242		Lower
+243	246	Upper
+247		Lower
+248		Upper
+249		Lower
+24A		Upper
+24B		Lower
+24C		Upper
+24D		Lower
+24E		Upper
+24F	293	Lower
+294		OLetter
+295	2B8	Lower
+2B9	2BF	OLetter
+2C0	2C1	Lower
+2C6	2D1	OLetter
+2E0	2E4	Lower
+2EC		OLetter
+2EE		OLetter
+300	36F	Extend
+370		Upper
+371		Lower
+372		Upper
+373		Lower
+374		OLetter
+376		Upper
+377		Lower
+37A	37D	Lower
+37F		Upper
+386		Upper
+388	38A	Upper
+38C		Upper
+38E	38F	Upper
+390		Lower
+391	3A1	Upper
+3A3	3AB	Upper
+3AC	3CE	Lower
+3CF		Upper
+3D0	3D1	Lower
+3D2	3D4	Upper
+3D5	3D7	Lower
+3D8		Upper
+3D9		Lower
+3DA		Upper
+3DB		Lower
+3DC		Upper
+3DD		Lower
+3DE		Upper
+3DF		Lower
+3E0		Upper
+3E1		Lower
+3E2		Upper
+3E3		Lower
+3E4		Upper
+3E5		Lower
+3E6		Upper
+3E7		Lower
+3E8		Upper
+3E9		Lower
+3EA		Upper
+3EB		Lower
+3EC		Upper
+3ED		Lower
+3EE		Upper
+3EF	3F3	Lower
+3F4		Upper
+3F5		Lower
+3F7		Upper
+3F8		Lower
+3F9	3FA	Upper
+3FB	3FC	Lower
+3FD	42F	Upper
+430	45F	Lower
+460		Upper
+461		Lower
+462		Upper
+463		Lower
+464		Upper
+465		Lower
+466		Upper
+467		Lower
+468		Upper
+469		Lower
+46A		Upper
+46B		Lower
+46C		Upper
+46D		Lower
+46E		Upper
+46F		Lower
+470		Upper
+471		Lower
+472		Upper
+473		Lower
+474		Upper
+475		Lower
+476		Upper
+477		Lower
+478		Upper
+479		Lower
+47A		Upper
+47B		Lower
+47C		Upper
+47D		Lower
+47E		Upper
+47F		Lower
+480		Upper
+481		Lower
+483	489	Extend
+48A		Upper
+48B		Lower
+48C		Upper
+48D		Lower
+48E		Upper
+48F		Lower
+490		Upper
+491		Lower
+492		Upper
+493		Lower
+494		Upper
+495		Lower
+496		Upper
+497		Lower
+498		Upper
+499		Lower
+49A		Upper
+49B		Lower
+49C		Upper
+49D		Lower
+49E		Upper
+49F		Lower
+4A0		Upper
+4A1		Lower
+4A2		Upper
+4A3		Lower
+4A4		Upper
+4A5		Lower
+4A6		Upper
+4A7		Lower
+4A8		Upper
+4A9		Lower
+4AA		Upper
+4AB		Lower
+4AC		Upper
+4AD		Lower
+4AE		Upper
+4AF		Lower
+4B0		Upper
+4B1		Lower
+4B2		Upper
+4B3		Lower
+4B4		Upper
+4B5		Lower
+4B6		Upper
+4B7		Lower
+4B8		Upper
+4B9		Lower
+4BA		Upper
+4BB		Lower
+4BC		Upper
+4BD		Lower
+4BE		Upper
+4BF		Lower
+4C0	4C1	Upper
+4C2		Lower
+4C3		Upper
+4C4		Lower
+4C5		Upper
+4C6		Lower
+4C7		Upper
+4C8		Lower
+4C9		Upper
+4CA		Lower
+4CB		Upper
+4CC		Lower
+4CD		Upper
+4CE	4CF	Lower
+4D0		Upper
+4D1		Lower
+4D2		Upper
+4D3		Lower
+4D4		Upper
+4D5		Lower
+4D6		Upper
+4D7		Lower
+4D8		Upper
+4D9		Lower
+4DA		Upper
+4DB		Lower
+4DC		Upper
+4DD		Lower
+4DE		Upper
+4DF		Lower
+4E0		Upper
+4E1		Lower
+4E2		Upper
+4E3		Lower
+4E4		Upper
+4E5		Lower
+4E6		Upper
+4E7		Lower
+4E8		Upper
+4E9		Lower
+4EA		Upper
+4EB		Lower
+4EC		Upper
+4ED		Lower
+4EE		Upper
+4EF		Lower
+4F0		Upper
+4F1		Lower
+4F2		Upper
+4F3		Lower
+4F4		Upper
+4F5		Lower
+4F6		Upper
+4F7		Lower
+4F8		Upper
+4F9		Lower
+4FA		Upper
+4FB		Lower
+4FC		Upper
+4FD		Lower
+4FE		Upper
+4FF		Lower
+500		Upper
+501		Lower
+502		Upper
+503		Lower
+504		Upper
+505		Lower
+506		Upper
+507		Lower
+508		Upper
+509		Lower
+50A		Upper
+50B		Lower
+50C		Upper
+50D		Lower
+50E		Upper
+50F		Lower
+510		Upper
+511		Lower
+512		Upper
+513		Lower
+514		Upper
+515		Lower
+516		Upper
+517		Lower
+518		Upper
+519		Lower
+51A		Upper
+51B		Lower
+51C		Upper
+51D		Lower
+51E		Upper
+51F		Lower
+520		Upper
+521		Lower
+522		Upper
+523		Lower
+524		Upper
+525		Lower
+526		Upper
+527		Lower
+528		Upper
+529		Lower
+52A		Upper
+52B		Lower
+52C		Upper
+52D		Lower
+52E		Upper
+52F		Lower
+531	556	Upper
+559		OLetter
+55D		SContinue
+561	587	Lower
+589		STerm
+591	5BD	Extend
+5BF		Extend
+5C1	5C2	Extend
+5C4	5C5	Extend
+5C7		Extend
+5D0	5EA	OLetter
+5F0	5F3	OLetter
+600	605	Format
+60C	60D	SContinue
+610	61A	Extend
+61C		Format
+61F		STerm
+620	64A	OLetter
+64B	65F	Extend
+660	669	Numeric
+66B	66C	Numeric
+66E	66F	OLetter
+670		Extend
+671	6D3	OLetter
+6D4		STerm
+6D5		OLetter
+6D6	6DC	Extend
+6DD		Format
+6DF	6E4	Extend
+6E5	6E6	OLetter
+6E7	6E8	Extend
+6EA	6ED	Extend
+6EE	6EF	OLetter
+6F0	6F9	Numeric
+6FA	6FC	OLetter
+6FF		OLetter
+700	702	STerm
+70F		Format
+710		OLetter
+711		Extend
+712	72F	OLetter
+730	74A	Extend
+74D	7A5	OLetter
+7A6	7B0	Extend
+7B1		OLetter
+7C0	7C9	Numeric
+7CA	7EA	OLetter
+7EB	7F3	Extend
+7F4	7F5	OLetter
+7F8		SContinue
+7F9		STerm
+7FA		OLetter
+800	815	OLetter
+816	819	Extend
+81A		OLetter
+81B	823	Extend
+824		OLetter
+825	827	Extend
+828		OLetter
+829	82D	Extend
+840	858	OLetter
+859	85B	Extend
+8A0	8B4	OLetter
+8E3	903	Extend
+904	939	OLetter
+93A	93C	Extend
+93D		OLetter
+93E	94F	Extend
+950		OLetter
+951	957	Extend
+958	961	OLetter
+962	963	Extend
+964	965	STerm
+966	96F	Numeric
+971	980	OLetter
+981	983	Extend
+985	98C	OLetter
+98F	990	OLetter
+993	9A8	OLetter
+9AA	9B0	OLetter
+9B2		OLetter
+9B6	9B9	OLetter
+9BC		Extend
+9BD		OLetter
+9BE	9C4	Extend
+9C7	9C8	Extend
+9CB	9CD	Extend
+9CE		OLetter
+9D7		Extend
+9DC	9DD	OLetter
+9DF	9E1	OLetter
+9E2	9E3	Extend
+9E6	9EF	Numeric
+9F0	9F1	OLetter
+A01	A03	Extend
+A05	A0A	OLetter
+A0F	A10	OLetter
+A13	A28	OLetter
+A2A	A30	OLetter
+A32	A33	OLetter
+A35	A36	OLetter
+A38	A39	OLetter
+A3C		Extend
+A3E	A42	Extend
+A47	A48	Extend
+A4B	A4D	Extend
+A51		Extend
+A59	A5C	OLetter
+A5E		OLetter
+A66	A6F	Numeric
+A70	A71	Extend
+A72	A74	OLetter
+A75		Extend
+A81	A83	Extend
+A85	A8D	OLetter
+A8F	A91	OLetter
+A93	AA8	OLetter
+AAA	AB0	OLetter
+AB2	AB3	OLetter
+AB5	AB9	OLetter
+ABC		Extend
+ABD		OLetter
+ABE	AC5	Extend
+AC7	AC9	Extend
+ACB	ACD	Extend
+AD0		OLetter
+AE0	AE1	OLetter
+AE2	AE3	Extend
+AE6	AEF	Numeric
+AF9		OLetter
+B01	B03	Extend
+B05	B0C	OLetter
+B0F	B10	OLetter
+B13	B28	OLetter
+B2A	B30	OLetter
+B32	B33	OLetter
+B35	B39	OLetter
+B3C		Extend
+B3D		OLetter
+B3E	B44	Extend
+B47	B48	Extend
+B4B	B4D	Extend
+B56	B57	Extend
+B5C	B5D	OLetter
+B5F	B61	OLetter
+B62	B63	Extend
+B66	B6F	Numeric
+B71		OLetter
+B82		Extend
+B83		OLetter
+B85	B8A	OLetter
+B8E	B90	OLetter
+B92	B95	OLetter
+B99	B9A	OLetter
+B9C		OLetter
+B9E	B9F	OLetter
+BA3	BA4	OLetter
+BA8	BAA	OLetter
+BAE	BB9	OLetter
+BBE	BC2	Extend
+BC6	BC8	Extend
+BCA	BCD	Extend
+BD0		OLetter
+BD7		Extend
+BE6	BEF	Numeric
+C00	C03	Extend
+C05	C0C	OLetter
+C0E	C10	OLetter
+C12	C28	OLetter
+C2A	C39	OLetter
+C3D		OLetter
+C3E	C44	Extend
+C46	C48	Extend
+C4A	C4D	Extend
+C55	C56	Extend
+C58	C5A	OLetter
+C60	C61	OLetter
+C62	C63	Extend
+C66	C6F	Numeric
+C81	C83	Extend
+C85	C8C	OLetter
+C8E	C90	OLetter
+C92	CA8	OLetter
+CAA	CB3	OLetter
+CB5	CB9	OLetter
+CBC		Extend
+CBD		OLetter
+CBE	CC4	Extend
+CC6	CC8	Extend
+CCA	CCD	Extend
+CD5	CD6	Extend
+CDE		OLetter
+CE0	CE1	OLetter
+CE2	CE3	Extend
+CE6	CEF	Numeric
+CF1	CF2	OLetter
+D01	D03	Extend
+D05	D0C	OLetter
+D0E	D10	OLetter
+D12	D3A	OLetter
+D3D		OLetter
+D3E	D44	Extend
+D46	D48	Extend
+D4A	D4D	Extend
+D4E		OLetter
+D57		Extend
+D5F	D61	OLetter
+D62	D63	Extend
+D66	D6F	Numeric
+D7A	D7F	OLetter
+D82	D83	Extend
+D85	D96	OLetter
+D9A	DB1	OLetter
+DB3	DBB	OLetter
+DBD		OLetter
+DC0	DC6	OLetter
+DCA		Extend
+DCF	DD4	Extend
+DD6		Extend
+DD8	DDF	Extend
+DE6	DEF	Numeric
+DF2	DF3	Extend
+E01	E30	OLetter
+E31		Extend
+E32	E33	OLetter
+E34	E3A	Extend
+E40	E46	OLetter
+E47	E4E	Extend
+E50	E59	Numeric
+E81	E82	OLetter
+E84		OLetter
+E87	E88	OLetter
+E8A		OLetter
+E8D		OLetter
+E94	E97	OLetter
+E99	E9F	OLetter
+EA1	EA3	OLetter
+EA5		OLetter
+EA7		OLetter
+EAA	EAB	OLetter
+EAD	EB0	OLetter
+EB1		Extend
+EB2	EB3	OLetter
+EB4	EB9	Extend
+EBB	EBC	Extend
+EBD		OLetter
+EC0	EC4	OLetter
+EC6		OLetter
+EC8	ECD	Extend
+ED0	ED9	Numeric
+EDC	EDF	OLetter
+F00		OLetter
+F18	F19	Extend
+F20	F29	Numeric
+F35		Extend
+F37		Extend
+F39		Extend
+F3A	F3D	Close
+F3E	F3F	Extend
+F40	F47	OLetter
+F49	F6C	OLetter
+F71	F84	Extend
+F86	F87	Extend
+F88	F8C	OLetter
+F8D	F97	Extend
+F99	FBC	Extend
+FC6		Extend
+1000	102A	OLetter
+102B	103E	Extend
+103F		OLetter
+1040	1049	Numeric
+104A	104B	STerm
+1050	1055	OLetter
+1056	1059	Extend
+105A	105D	OLetter
+105E	1060	Extend
+1061		OLetter
+1062	1064	Extend
+1065	1066	OLetter
+1067	106D	Extend
+106E	1070	OLetter
+1071	1074	Extend
+1075	1081	OLetter
+1082	108D	Extend
+108E		OLetter
+108F		Extend
+1090	1099	Numeric
+109A	109D	Extend
+10A0	10C5	Upper
+10C7		Upper
+10CD		Upper
+10D0	10FA	OLetter
+10FC	1248	OLetter
+124A	124D	OLetter
+1250	1256	OLetter
+1258		OLetter
+125A	125D	OLetter
+1260	1288	OLetter
+128A	128D	OLetter
+1290	12B0	OLetter
+12B2	12B5	OLetter
+12B8	12BE	OLetter
+12C0		OLetter
+12C2	12C5	OLetter
+12C8	12D6	OLetter
+12D8	1310	OLetter
+1312	1315	OLetter
+1318	135A	OLetter
+135D	135F	Extend
+1362		STerm
+1367	1368	STerm
+1380	138F	OLetter
+13A0	13F5	Upper
+13F8	13FD	Lower
+1401	166C	OLetter
+166E		STerm
+166F	167F	OLetter
+1680		Sp
+1681	169A	OLetter
+169B	169C	Close
+16A0	16EA	OLetter
+16EE	16F8	OLetter
+1700	170C	OLetter
+170E	1711	OLetter
+1712	1714	Extend
+1720	1731	OLetter
+1732	1734	Extend
+1735	1736	STerm
+1740	1751	OLetter
+1752	1753	Extend
+1760	176C	OLetter
+176E	1770	OLetter
+1772	1773	Extend
+1780	17B3	OLetter
+17B4	17D3	Extend
+17D7		OLetter
+17DC		OLetter
+17DD		Extend
+17E0	17E9	Numeric
+1802		SContinue
+1803		STerm
+1808		SContinue
+1809		STerm
+180B	180D	Extend
+180E		Format
+1810	1819	Numeric
+1820	1877	OLetter
+1880	18A8	OLetter
+18A9		Extend
+18AA		OLetter
+18B0	18F5	OLetter
+1900	191E	OLetter
+1920	192B	Extend
+1930	193B	Extend
+1944	1945	STerm
+1946	194F	Numeric
+1950	196D	OLetter
+1970	1974	OLetter
+1980	19AB	OLetter
+19B0	19C9	OLetter
+19D0	19D9	Numeric
+1A00	1A16	OLetter
+1A17	1A1B	Extend
+1A20	1A54	OLetter
+1A55	1A5E	Extend
+1A60	1A7C	Extend
+1A7F		Extend
+1A80	1A89	Numeric
+1A90	1A99	Numeric
+1AA7		OLetter
+1AA8	1AAB	STerm
+1AB0	1ABE	Extend
+1B00	1B04	Extend
+1B05	1B33	OLetter
+1B34	1B44	Extend
+1B45	1B4B	OLetter
+1B50	1B59	Numeric
+1B5A	1B5B	STerm
+1B5E	1B5F	STerm
+1B6B	1B73	Extend
+1B80	1B82	Extend
+1B83	1BA0	OLetter
+1BA1	1BAD	Extend
+1BAE	1BAF	OLetter
+1BB0	1BB9	Numeric
+1BBA	1BE5	OLetter
+1BE6	1BF3	Extend
+1C00	1C23	OLetter
+1C24	1C37	Extend
+1C3B	1C3C	STerm
+1C40	1C49	Numeric
+1C4D	1C4F	OLetter
+1C50	1C59	Numeric
+1C5A	1C7D	OLetter
+1C7E	1C7F	STerm
+1CD0	1CD2	Extend
+1CD4	1CE8	Extend
+1CE9	1CEC	OLetter
+1CED		Extend
+1CEE	1CF1	OLetter
+1CF2	1CF4	Extend
+1CF5	1CF6	OLetter
+1CF8	1CF9	Extend
+1D00	1DBF	Lower
+1DC0	1DF5	Extend
+1DFC	1DFF	Extend
+1E00		Upper
+1E01		Lower
+1E02		Upper
+1E03		Lower
+1E04		Upper
+1E05		Lower
+1E06		Upper
+1E07		Lower
+1E08		Upper
+1E09		Lower
+1E0A		Upper
+1E0B		Lower
+1E0C		Upper
+1E0D		Lower
+1E0E		Upper
+1E0F		Lower
+1E10		Upper
+1E11		Lower
+1E12		Upper
+1E13		Lower
+1E14		Upper
+1E15		Lower
+1E16		Upper
+1E17		Lower
+1E18		Upper
+1E19		Lower
+1E1A		Upper
+1E1B		Lower
+1E1C		Upper
+1E1D		Lower
+1E1E		Upper
+1E1F		Lower
+1E20		Upper
+1E21		Lower
+1E22		Upper
+1E23		Lower
+1E24		Upper
+1E25		Lower
+1E26		Upper
+1E27		Lower
+1E28		Upper
+1E29		Lower
+1E2A		Upper
+1E2B		Lower
+1E2C		Upper
+1E2D		Lower
+1E2E		Upper
+1E2F		Lower
+1E30		Upper
+1E31		Lower
+1E32		Upper
+1E33		Lower
+1E34		Upper
+1E35		Lower
+1E36		Upper
+1E37		Lower
+1E38		Upper
+1E39		Lower
+1E3A		Upper
+1E3B		Lower
+1E3C		Upper
+1E3D		Lower
+1E3E		Upper
+1E3F		Lower
+1E40		Upper
+1E41		Lower
+1E42		Upper
+1E43		Lower
+1E44		Upper
+1E45		Lower
+1E46		Upper
+1E47		Lower
+1E48		Upper
+1E49		Lower
+1E4A		Upper
+1E4B		Lower
+1E4C		Upper
+1E4D		Lower
+1E4E		Upper
+1E4F		Lower
+1E50		Upper
+1E51		Lower
+1E52		Upper
+1E53		Lower
+1E54		Upper
+1E55		Lower
+1E56		Upper
+1E57		Lower
+1E58		Upper
+1E59		Lower
+1E5A		Upper
+1E5B		Lower
+1E5C		Upper
+1E5D		Lower
+1E5E		Upper
+1E5F		Lower
+1E60		Upper
+1E61		Lower
+1E62		Upper
+1E63		Lower
+1E64		Upper
+1E65		Lower
+1E66		Upper
+1E67		Lower
+1E68		Upper
+1E69		Lower
+1E6A		Upper
+1E6B		Lower
+1E6C		Upper
+1E6D		Lower
+1E6E		Upper
+1E6F		Lower
+1E70		Upper
+1E71		Lower
+1E72		Upper
+1E73		Lower
+1E74		Upper
+1E75		Lower
+1E76		Upper
+1E77		Lower
+1E78		Upper
+1E79		Lower
+1E7A		Upper
+1E7B		Lower
+1E7C		Upper
+1E7D		Lower
+1E7E		Upper
+1E7F		Lower
+1E80		Upper
+1E81		Lower
+1E82		Upper
+1E83		Lower
+1E84		Upper
+1E85		Lower
+1E86		Upper
+1E87		Lower
+1E88		Upper
+1E89		Lower
+1E8A		Upper
+1E8B		Lower
+1E8C		Upper
+1E8D		Lower
+1E8E		Upper
+1E8F		Lower
+1E90		Upper
+1E91		Lower
+1E92		Upper
+1E93		Lower
+1E94		Upper
+1E95	1E9D	Lower
+1E9E		Upper
+1E9F		Lower
+1EA0		Upper
+1EA1		Lower
+1EA2		Upper
+1EA3		Lower
+1EA4		Upper
+1EA5		Lower
+1EA6		Upper
+1EA7		Lower
+1EA8		Upper
+1EA9		Lower
+1EAA		Upper
+1EAB		Lower
+1EAC		Upper
+1EAD		Lower
+1EAE		Upper
+1EAF		Lower
+1EB0		Upper
+1EB1		Lower
+1EB2		Upper
+1EB3		Lower
+1EB4		Upper
+1EB5		Lower
+1EB6		Upper
+1EB7		Lower
+1EB8		Upper
+1EB9		Lower
+1EBA		Upper
+1EBB		Lower
+1EBC		Upper
+1EBD		Lower
+1EBE		Upper
+1EBF		Lower
+1EC0		Upper
+1EC1		Lower
+1EC2		Upper
+1EC3		Lower
+1EC4		Upper
+1EC5		Lower
+1EC6		Upper
+1EC7		Lower
+1EC8		Upper
+1EC9		Lower
+1ECA		Upper
+1ECB		Lower
+1ECC		Upper
+1ECD		Lower
+1ECE		Upper
+1ECF		Lower
+1ED0		Upper
+1ED1		Lower
+1ED2		Upper
+1ED3		Lower
+1ED4		Upper
+1ED5		Lower
+1ED6		Upper
+1ED7		Lower
+1ED8		Upper
+1ED9		Lower
+1EDA		Upper
+1EDB		Lower
+1EDC		Upper
+1EDD		Lower
+1EDE		Upper
+1EDF		Lower
+1EE0		Upper
+1EE1		Lower
+1EE2		Upper
+1EE3		Lower
+1EE4		Upper
+1EE5		Lower
+1EE6		Upper
+1EE7		Lower
+1EE8		Upper
+1EE9		Lower
+1EEA		Upper
+1EEB		Lower
+1EEC		Upper
+1EED		Lower
+1EEE		Upper
+1EEF		Lower
+1EF0		Upper
+1EF1		Lower
+1EF2		Upper
+1EF3		Lower
+1EF4		Upper
+1EF5		Lower
+1EF6		Upper
+1EF7		Lower
+1EF8		Upper
+1EF9		Lower
+1EFA		Upper
+1EFB		Lower
+1EFC		Upper
+1EFD		Lower
+1EFE		Upper
+1EFF	1F07	Lower
+1F08	1F0F	Upper
+1F10	1F15	Lower
+1F18	1F1D	Upper
+1F20	1F27	Lower
+1F28	1F2F	Upper
+1F30	1F37	Lower
+1F38	1F3F	Upper
+1F40	1F45	Lower
+1F48	1F4D	Upper
+1F50	1F57	Lower
+1F59		Upper
+1F5B		Upper
+1F5D		Upper
+1F5F		Upper
+1F60	1F67	Lower
+1F68	1F6F	Upper
+1F70	1F7D	Lower
+1F80	1F87	Lower
+1F88	1F8F	Upper
+1F90	1F97	Lower
+1F98	1F9F	Upper
+1FA0	1FA7	Lower
+1FA8	1FAF	Upper
+1FB0	1FB4	Lower
+1FB6	1FB7	Lower
+1FB8	1FBC	Upper
+1FBE		Lower
+1FC2	1FC4	Lower
+1FC6	1FC7	Lower
+1FC8	1FCC	Upper
+1FD0	1FD3	Lower
+1FD6	1FD7	Lower
+1FD8	1FDB	Upper
+1FE0	1FE7	Lower
+1FE8	1FEC	Upper
+1FF2	1FF4	Lower
+1FF6	1FF7	Lower
+1FF8	1FFC	Upper
+2000	200A	Sp
+200B		Format
+200C	200D	Extend
+200E	200F	Format
+2013	2014	SContinue
+2018	201F	Close
+2024		ATerm
+2028	2029	Sep
+202A	202E	Format
+202F		Sp
+2039	203A	Close
+203C	203D	STerm
+2045	2046	Close
+2047	2049	STerm
+205F		Sp
+2060	2064	Format
+2066	206F	Format
+2071		Lower
+207D	207E	Close
+207F		Lower
+208D	208E	Close
+2090	209C	Lower
+20D0	20F0	Extend
+2102		Upper
+2107		Upper
+210A		Lower
+210B	210D	Upper
+210E	210F	Lower
+2110	2112	Upper
+2113		Lower
+2115		Upper
+2119	211D	Upper
+2124		Upper
+2126		Upper
+2128		Upper
+212A	212D	Upper
+212F		Lower
+2130	2133	Upper
+2134		Lower
+2135	2138	OLetter
+2139		Lower
+213C	213D	Lower
+213E	213F	Upper
+2145		Upper
+2146	2149	Lower
+214E		Lower
+2160	216F	Upper
+2170	217F	Lower
+2180	2182	OLetter
+2183		Upper
+2184		Lower
+2185	2188	OLetter
+2308	230B	Close
+2329	232A	Close
+24B6	24CF	Upper
+24D0	24E9	Lower
+275B	2760	Close
+2768	2775	Close
+27C5	27C6	Close
+27E6	27EF	Close
+2983	2998	Close
+29D8	29DB	Close
+29FC	29FD	Close
+2C00	2C2E	Upper
+2C30	2C5E	Lower
+2C60		Upper
+2C61		Lower
+2C62	2C64	Upper
+2C65	2C66	Lower
+2C67		Upper
+2C68		Lower
+2C69		Upper
+2C6A		Lower
+2C6B		Upper
+2C6C		Lower
+2C6D	2C70	Upper
+2C71		Lower
+2C72		Upper
+2C73	2C74	Lower
+2C75		Upper
+2C76	2C7D	Lower
+2C7E	2C80	Upper
+2C81		Lower
+2C82		Upper
+2C83		Lower
+2C84		Upper
+2C85		Lower
+2C86		Upper
+2C87		Lower
+2C88		Upper
+2C89		Lower
+2C8A		Upper
+2C8B		Lower
+2C8C		Upper
+2C8D		Lower
+2C8E		Upper
+2C8F		Lower
+2C90		Upper
+2C91		Lower
+2C92		Upper
+2C93		Lower
+2C94		Upper
+2C95		Lower
+2C96		Upper
+2C97		Lower
+2C98		Upper
+2C99		Lower
+2C9A		Upper
+2C9B		Lower
+2C9C		Upper
+2C9D		Lower
+2C9E		Upper
+2C9F		Lower
+2CA0		Upper
+2CA1		Lower
+2CA2		Upper
+2CA3		Lower
+2CA4		Upper
+2CA5		Lower
+2CA6		Upper
+2CA7		Lower
+2CA8		Upper
+2CA9		Lower
+2CAA		Upper
+2CAB		Lower
+2CAC		Upper
+2CAD		Lower
+2CAE		Upper
+2CAF		Lower
+2CB0		Upper
+2CB1		Lower
+2CB2		Upper
+2CB3		Lower
+2CB4		Upper
+2CB5		Lower
+2CB6		Upper
+2CB7		Lower
+2CB8		Upper
+2CB9		Lower
+2CBA		Upper
+2CBB		Lower
+2CBC		Upper
+2CBD		Lower
+2CBE		Upper
+2CBF		Lower
+2CC0		Upper
+2CC1		Lower
+2CC2		Upper
+2CC3		Lower
+2CC4		Upper
+2CC5		Lower
+2CC6		Upper
+2CC7		Lower
+2CC8		Upper
+2CC9		Lower
+2CCA		Upper
+2CCB		Lower
+2CCC		Upper
+2CCD		Lower
+2CCE		Upper
+2CCF		Lower
+2CD0		Upper
+2CD1		Lower
+2CD2		Upper
+2CD3		Lower
+2CD4		Upper
+2CD5		Lower
+2CD6		Upper
+2CD7		Lower
+2CD8		Upper
+2CD9		Lower
+2CDA		Upper
+2CDB		Lower
+2CDC		Upper
+2CDD		Lower
+2CDE		Upper
+2CDF		Lower
+2CE0		Upper
+2CE1		Lower
+2CE2		Upper
+2CE3	2CE4	Lower
+2CEB		Upper
+2CEC		Lower
+2CED		Upper
+2CEE		Lower
+2CEF	2CF1	Extend
+2CF2		Upper
+2CF3		Lower
+2D00	2D25	Lower
+2D27		Lower
+2D2D		Lower
+2D30	2D67	OLetter
+2D6F		OLetter
+2D7F		Extend
+2D80	2D96	OLetter
+2DA0	2DA6	OLetter
+2DA8	2DAE	OLetter
+2DB0	2DB6	OLetter
+2DB8	2DBE	OLetter
+2DC0	2DC6	OLetter
+2DC8	2DCE	OLetter
+2DD0	2DD6	OLetter
+2DD8	2DDE	OLetter
+2DE0	2DFF	Extend
+2E00	2E0D	Close
+2E1C	2E1D	Close
+2E20	2E29	Close
+2E2E		STerm
+2E2F		OLetter
+2E3C		STerm
+2E42		Close
+3000		Sp
+3001		SContinue
+3002		STerm
+3005	3007	OLetter
+3008	3011	Close
+3014	301B	Close
+301D	301F	Close
+3021	3029	OLetter
+302A	302F	Extend
+3031	3035	OLetter
+3038	303C	OLetter
+3041	3096	OLetter
+3099	309A	Extend
+309D	309F	OLetter
+30A1	30FA	OLetter
+30FC	30FF	OLetter
+3105	312D	OLetter
+3131	318E	OLetter
+31A0	31BA	OLetter
+31F0	31FF	OLetter
+3400	4DB5	OLetter
+4E00	9FD5	OLetter
+A000	A48C	OLetter
+A4D0	A4FD	OLetter
+A4FF		STerm
+A500	A60C	OLetter
+A60E	A60F	STerm
+A610	A61F	OLetter
+A620	A629	Numeric
+A62A	A62B	OLetter
+A640		Upper
+A641		Lower
+A642		Upper
+A643		Lower
+A644		Upper
+A645		Lower
+A646		Upper
+A647		Lower
+A648		Upper
+A649		Lower
+A64A		Upper
+A64B		Lower
+A64C		Upper
+A64D		Lower
+A64E		Upper
+A64F		Lower
+A650		Upper
+A651		Lower
+A652		Upper
+A653		Lower
+A654		Upper
+A655		Lower
+A656		Upper
+A657		Lower
+A658		Upper
+A659		Lower
+A65A		Upper
+A65B		Lower
+A65C		Upper
+A65D		Lower
+A65E		Upper
+A65F		Lower
+A660		Upper
+A661		Lower
+A662		Upper
+A663		Lower
+A664		Upper
+A665		Lower
+A666		Upper
+A667		Lower
+A668		Upper
+A669		Lower
+A66A		Upper
+A66B		Lower
+A66C		Upper
+A66D		Lower
+A66E		OLetter
+A66F	A672	Extend
+A674	A67D	Extend
+A67F		OLetter
+A680		Upper
+A681		Lower
+A682		Upper
+A683		Lower
+A684		Upper
+A685		Lower
+A686		Upper
+A687		Lower
+A688		Upper
+A689		Lower
+A68A		Upper
+A68B		Lower
+A68C		Upper
+A68D		Lower
+A68E		Upper
+A68F		Lower
+A690		Upper
+A691		Lower
+A692		Upper
+A693		Lower
+A694		Upper
+A695		Lower
+A696		Upper
+A697		Lower
+A698		Upper
+A699		Lower
+A69A		Upper
+A69B	A69D	Lower
+A69E	A69F	Extend
+A6A0	A6EF	OLetter
+A6F0	A6F1	Extend
+A6F3		STerm
+A6F7		STerm
+A717	A71F	OLetter
+A722		Upper
+A723		Lower
+A724		Upper
+A725		Lower
+A726		Upper
+A727		Lower
+A728		Upper
+A729		Lower
+A72A		Upper
+A72B		Lower
+A72C		Upper
+A72D		Lower
+A72E		Upper
+A72F	A731	Lower
+A732		Upper
+A733		Lower
+A734		Upper
+A735		Lower
+A736		Upper
+A737		Lower
+A738		Upper
+A739		Lower
+A73A		Upper
+A73B		Lower
+A73C		Upper
+A73D		Lower
+A73E		Upper
+A73F		Lower
+A740		Upper
+A741		Lower
+A742		Upper
+A743		Lower
+A744		Upper
+A745		Lower
+A746		Upper
+A747		Lower
+A748		Upper
+A749		Lower
+A74A		Upper
+A74B		Lower
+A74C		Upper
+A74D		Lower
+A74E		Upper
+A74F		Lower
+A750		Upper
+A751		Lower
+A752		Upper
+A753		Lower
+A754		Upper
+A755		Lower
+A756		Upper
+A757		Lower
+A758		Upper
+A759		Lower
+A75A		Upper
+A75B		Lower
+A75C		Upper
+A75D		Lower
+A75E		Upper
+A75F		Lower
+A760		Upper
+A761		Lower
+A762		Upper
+A763		Lower
+A764		Upper
+A765		Lower
+A766		Upper
+A767		Lower
+A768		Upper
+A769		Lower
+A76A		Upper
+A76B		Lower
+A76C		Upper
+A76D		Lower
+A76E		Upper
+A76F	A778	Lower
+A779		Upper
+A77A		Lower
+A77B		Upper
+A77C		Lower
+A77D	A77E	Upper
+A77F		Lower
+A780		Upper
+A781		Lower
+A782		Upper
+A783		Lower
+A784		Upper
+A785		Lower
+A786		Upper
+A787		Lower
+A788		OLetter
+A78B		Upper
+A78C		Lower
+A78D		Upper
+A78E		Lower
+A78F		OLetter
+A790		Upper
+A791		Lower
+A792		Upper
+A793	A795	Lower
+A796		Upper
+A797		Lower
+A798		Upper
+A799		Lower
+A79A		Upper
+A79B		Lower
+A79C		Upper
+A79D		Lower
+A79E		Upper
+A79F		Lower
+A7A0		Upper
+A7A1		Lower
+A7A2		Upper
+A7A3		Lower
+A7A4		Upper
+A7A5		Lower
+A7A6		Upper
+A7A7		Lower
+A7A8		Upper
+A7A9		Lower
+A7AA	A7AD	Upper
+A7B0	A7B4	Upper
+A7B5		Lower
+A7B6		Upper
+A7B7		Lower
+A7F7		OLetter
+A7F8	A7FA	Lower
+A7FB	A801	OLetter
+A802		Extend
+A803	A805	OLetter
+A806		Extend
+A807	A80A	OLetter
+A80B		Extend
+A80C	A822	OLetter
+A823	A827	Extend
+A840	A873	OLetter
+A876	A877	STerm
+A880	A881	Extend
+A882	A8B3	OLetter
+A8B4	A8C4	Extend
+A8CE	A8CF	STerm
+A8D0	A8D9	Numeric
+A8E0	A8F1	Extend
+A8F2	A8F7	OLetter
+A8FB		OLetter
+A8FD		OLetter
+A900	A909	Numeric
+A90A	A925	OLetter
+A926	A92D	Extend
+A92F		STerm
+A930	A946	OLetter
+A947	A953	Extend
+A960	A97C	OLetter
+A980	A983	Extend
+A984	A9B2	OLetter
+A9B3	A9C0	Extend
+A9C8	A9C9	STerm
+A9CF		OLetter
+A9D0	A9D9	Numeric
+A9E0	A9E4	OLetter
+A9E5		Extend
+A9E6	A9EF	OLetter
+A9F0	A9F9	Numeric
+A9FA	A9FE	OLetter
+AA00	AA28	OLetter
+AA29	AA36	Extend
+AA40	AA42	OLetter
+AA43		Extend
+AA44	AA4B	OLetter
+AA4C	AA4D	Extend
+AA50	AA59	Numeric
+AA5D	AA5F	STerm
+AA60	AA76	OLetter
+AA7A		OLetter
+AA7B	AA7D	Extend
+AA7E	AAAF	OLetter
+AAB0		Extend
+AAB1		OLetter
+AAB2	AAB4	Extend
+AAB5	AAB6	OLetter
+AAB7	AAB8	Extend
+AAB9	AABD	OLetter
+AABE	AABF	Extend
+AAC0		OLetter
+AAC1		Extend
+AAC2		OLetter
+AADB	AADD	OLetter
+AAE0	AAEA	OLetter
+AAEB	AAEF	Extend
+AAF0	AAF1	STerm
+AAF2	AAF4	OLetter
+AAF5	AAF6	Extend
+AB01	AB06	OLetter
+AB09	AB0E	OLetter
+AB11	AB16	OLetter
+AB20	AB26	OLetter
+AB28	AB2E	OLetter
+AB30	AB5A	Lower
+AB5C	AB65	Lower
+AB70	ABBF	Lower
+ABC0	ABE2	OLetter
+ABE3	ABEA	Extend
+ABEB		STerm
+ABEC	ABED	Extend
+ABF0	ABF9	Numeric
+AC00	D7A3	OLetter
+D7B0	D7C6	OLetter
+D7CB	D7FB	OLetter
+F900	FA6D	OLetter
+FA70	FAD9	OLetter
+FB00	FB06	Lower
+FB13	FB17	Lower
+FB1D		OLetter
+FB1E		Extend
+FB1F	FB28	OLetter
+FB2A	FB36	OLetter
+FB38	FB3C	OLetter
+FB3E		OLetter
+FB40	FB41	OLetter
+FB43	FB44	OLetter
+FB46	FBB1	OLetter
+FBD3	FD3D	OLetter
+FD3E	FD3F	Close
+FD50	FD8F	OLetter
+FD92	FDC7	OLetter
+FDF0	FDFB	OLetter
+FE00	FE0F	Extend
+FE10	FE11	SContinue
+FE13		SContinue
+FE17	FE18	Close
+FE20	FE2F	Extend
+FE31	FE32	SContinue
+FE35	FE44	Close
+FE47	FE48	Close
+FE50	FE51	SContinue
+FE52		ATerm
+FE55		SContinue
+FE56	FE57	STerm
+FE58		SContinue
+FE59	FE5E	Close
+FE63		SContinue
+FE70	FE74	OLetter
+FE76	FEFC	OLetter
+FEFF		Format
+FF01		STerm
+FF08	FF09	Close
+FF0C	FF0D	SContinue
+FF0E		ATerm
+FF1A		SContinue
+FF1F		STerm
+FF21	FF3A	Upper
+FF3B		Close
+FF3D		Close
+FF41	FF5A	Lower
+FF5B		Close
+FF5D		Close
+FF5F	FF60	Close
+FF61		STerm
+FF62	FF63	Close
+FF64		SContinue
+FF66	FF9D	OLetter
+FF9E	FF9F	Extend
+FFA0	FFBE	OLetter
+FFC2	FFC7	OLetter
+FFCA	FFCF	OLetter
+FFD2	FFD7	OLetter
+FFDA	FFDC	OLetter
+FFF9	FFFB	Format
+10000	1000B	OLetter
+1000D	10026	OLetter
+10028	1003A	OLetter
+1003C	1003D	OLetter
+1003F	1004D	OLetter
+10050	1005D	OLetter
+10080	100FA	OLetter
+10140	10174	OLetter
+101FD		Extend
+10280	1029C	OLetter
+102A0	102D0	OLetter
+102E0		Extend
+10300	1031F	OLetter
+10330	1034A	OLetter
+10350	10375	OLetter
+10376	1037A	Extend
+10380	1039D	OLetter
+103A0	103C3	OLetter
+103C8	103CF	OLetter
+103D1	103D5	OLetter
+10400	10427	Upper
+10428	1044F	Lower
+10450	1049D	OLetter
+104A0	104A9	Numeric
+10500	10527	OLetter
+10530	10563	OLetter
+10600	10736	OLetter
+10740	10755	OLetter
+10760	10767	OLetter
+10800	10805	OLetter
+10808		OLetter
+1080A	10835	OLetter
+10837	10838	OLetter
+1083C		OLetter
+1083F	10855	OLetter
+10860	10876	OLetter
+10880	1089E	OLetter
+108E0	108F2	OLetter
+108F4	108F5	OLetter
+10900	10915	OLetter
+10920	10939	OLetter
+10980	109B7	OLetter
+109BE	109BF	OLetter
+10A00		OLetter
+10A01	10A03	Extend
+10A05	10A06	Extend
+10A0C	10A0F	Extend
+10A10	10A13	OLetter
+10A15	10A17	OLetter
+10A19	10A33	OLetter
+10A38	10A3A	Extend
+10A3F		Extend
+10A56	10A57	STerm
+10A60	10A7C	OLetter
+10A80	10A9C	OLetter
+10AC0	10AC7	OLetter
+10AC9	10AE4	OLetter
+10AE5	10AE6	Extend
+10B00	10B35	OLetter
+10B40	10B55	OLetter
+10B60	10B72	OLetter
+10B80	10B91	OLetter
+10C00	10C48	OLetter
+10C80	10CB2	Upper
+10CC0	10CF2	Lower
+11000	11002	Extend
+11003	11037	OLetter
+11038	11046	Extend
+11047	11048	STerm
+11066	1106F	Numeric
+1107F	11082	Extend
+11083	110AF	OLetter
+110B0	110BA	Extend
+110BD		Format
+110BE	110C1	STerm
+110D0	110E8	OLetter
+110F0	110F9	Numeric
+11100	11102	Extend
+11103	11126	OLetter
+11127	11134	Extend
+11136	1113F	Numeric
+11141	11143	STerm
+11150	11172	OLetter
+11173		Extend
+11176		OLetter
+11180	11182	Extend
+11183	111B2	OLetter
+111B3	111C0	Extend
+111C1	111C4	OLetter
+111C5	111C6	STerm
+111CA	111CC	Extend
+111CD		STerm
+111D0	111D9	Numeric
+111DA		OLetter
+111DC		OLetter
+111DE	111DF	STerm
+11200	11211	OLetter
+11213	1122B	OLetter
+1122C	11237	Extend
+11238	11239	STerm
+1123B	1123C	STerm
+11280	11286	OLetter
+11288		OLetter
+1128A	1128D	OLetter
+1128F	1129D	OLetter
+1129F	112A8	OLetter
+112A9		STerm
+112B0	112DE	OLetter
+112DF	112EA	Extend
+112F0	112F9	Numeric
+11300	11303	Extend
+11305	1130C	OLetter
+1130F	11310	OLetter
+11313	11328	OLetter
+1132A	11330	OLetter
+11332	11333	OLetter
+11335	11339	OLetter
+1133C		Extend
+1133D		OLetter
+1133E	11344	Extend
+11347	11348	Extend
+1134B	1134D	Extend
+11350		OLetter
+11357		Extend
+1135D	11361	OLetter
+11362	11363	Extend
+11366	1136C	Extend
+11370	11374	Extend
+11480	114AF	OLetter
+114B0	114C3	Extend
+114C4	114C5	OLetter
+114C7		OLetter
+114D0	114D9	Numeric
+11580	115AE	OLetter
+115AF	115B5	Extend
+115B8	115C0	Extend
+115C2	115C3	STerm
+115C9	115D7	STerm
+115D8	115DB	OLetter
+115DC	115DD	Extend
+11600	1162F	OLetter
+11630	11640	Extend
+11641	11642	STerm
+11644		OLetter
+11650	11659	Numeric
+11680	116AA	OLetter
+116AB	116B7	Extend
+116C0	116C9	Numeric
+11700	11719	OLetter
+1171D	1172B	Extend
+11730	11739	Numeric
+1173C	1173E	STerm
+118A0	118BF	Upper
+118C0	118DF	Lower
+118E0	118E9	Numeric
+118FF		OLetter
+11AC0	11AF8	OLetter
+12000	12399	OLetter
+12400	1246E	OLetter
+12480	12543	OLetter
+13000	1342E	OLetter
+14400	14646	OLetter
+16800	16A38	OLetter
+16A40	16A5E	OLetter
+16A60	16A69	Numeric
+16A6E	16A6F	STerm
+16AD0	16AED	OLetter
+16AF0	16AF4	Extend
+16AF5		STerm
+16B00	16B2F	OLetter
+16B30	16B36	Extend
+16B37	16B38	STerm
+16B40	16B43	OLetter
+16B44		STerm
+16B50	16B59	Numeric
+16B63	16B77	OLetter
+16B7D	16B8F	OLetter
+16F00	16F44	OLetter
+16F50		OLetter
+16F51	16F7E	Extend
+16F8F	16F92	Extend
+16F93	16F9F	OLetter
+1B000	1B001	OLetter
+1BC00	1BC6A	OLetter
+1BC70	1BC7C	OLetter
+1BC80	1BC88	OLetter
+1BC90	1BC99	OLetter
+1BC9D	1BC9E	Extend
+1BC9F		STerm
+1BCA0	1BCA3	Format
+1D165	1D169	Extend
+1D16D	1D172	Extend
+1D173	1D17A	Format
+1D17B	1D182	Extend
+1D185	1D18B	Extend
+1D1AA	1D1AD	Extend
+1D242	1D244	Extend
+1D400	1D419	Upper
+1D41A	1D433	Lower
+1D434	1D44D	Upper
+1D44E	1D454	Lower
+1D456	1D467	Lower
+1D468	1D481	Upper
+1D482	1D49B	Lower
+1D49C		Upper
+1D49E	1D49F	Upper
+1D4A2		Upper
+1D4A5	1D4A6	Upper
+1D4A9	1D4AC	Upper
+1D4AE	1D4B5	Upper
+1D4B6	1D4B9	Lower
+1D4BB		Lower
+1D4BD	1D4C3	Lower
+1D4C5	1D4CF	Lower
+1D4D0	1D4E9	Upper
+1D4EA	1D503	Lower
+1D504	1D505	Upper
+1D507	1D50A	Upper
+1D50D	1D514	Upper
+1D516	1D51C	Upper
+1D51E	1D537	Lower
+1D538	1D539	Upper
+1D53B	1D53E	Upper
+1D540	1D544	Upper
+1D546		Upper
+1D54A	1D550	Upper
+1D552	1D56B	Lower
+1D56C	1D585	Upper
+1D586	1D59F	Lower
+1D5A0	1D5B9	Upper
+1D5BA	1D5D3	Lower
+1D5D4	1D5ED	Upper
+1D5EE	1D607	Lower
+1D608	1D621	Upper
+1D622	1D63B	Lower
+1D63C	1D655	Upper
+1D656	1D66F	Lower
+1D670	1D689	Upper
+1D68A	1D6A5	Lower
+1D6A8	1D6C0	Upper
+1D6C2	1D6DA	Lower
+1D6DC	1D6E1	Lower
+1D6E2	1D6FA	Upper
+1D6FC	1D714	Lower
+1D716	1D71B	Lower
+1D71C	1D734	Upper
+1D736	1D74E	Lower
+1D750	1D755	Lower
+1D756	1D76E	Upper
+1D770	1D788	Lower
+1D78A	1D78F	Lower
+1D790	1D7A8	Upper
+1D7AA	1D7C2	Lower
+1D7C4	1D7C9	Lower
+1D7CA		Upper
+1D7CB		Lower
+1D7CE	1D7FF	Numeric
+1DA00	1DA36	Extend
+1DA3B	1DA6C	Extend
+1DA75		Extend
+1DA84		Extend
+1DA88		STerm
+1DA9B	1DA9F	Extend
+1DAA1	1DAAF	Extend
+1E800	1E8C4	OLetter
+1E8D0	1E8D6	Extend
+1EE00	1EE03	OLetter
+1EE05	1EE1F	OLetter
+1EE21	1EE22	OLetter
+1EE24		OLetter
+1EE27		OLetter
+1EE29	1EE32	OLetter
+1EE34	1EE37	OLetter
+1EE39		OLetter
+1EE3B		OLetter
+1EE42		OLetter
+1EE47		OLetter
+1EE49		OLetter
+1EE4B		OLetter
+1EE4D	1EE4F	OLetter
+1EE51	1EE52	OLetter
+1EE54		OLetter
+1EE57		OLetter
+1EE59		OLetter
+1EE5B		OLetter
+1EE5D		OLetter
+1EE5F		OLetter
+1EE61	1EE62	OLetter
+1EE64		OLetter
+1EE67	1EE6A	OLetter
+1EE6C	1EE72	OLetter
+1EE74	1EE77	OLetter
+1EE79	1EE7C	OLetter
+1EE7E		OLetter
+1EE80	1EE89	OLetter
+1EE8B	1EE9B	OLetter
+1EEA1	1EEA3	OLetter
+1EEA5	1EEA9	OLetter
+1EEAB	1EEBB	OLetter
+1F130	1F149	Upper
+1F150	1F169	Upper
+1F170	1F189	Upper
+1F676	1F678	Close
+20000	2A6D6	OLetter
+2A700	2B734	OLetter
+2B740	2B81D	OLetter
+2B820	2CEA1	OLetter
+2F800	2FA1D	OLetter
+E0001		Format
+E0020	E007F	Format
+E0100	E01EF	Extend
+END
diff --git a/lib/5.24.1/unicore/To/Sc.pl b/lib/5.24.1/unicore/To/Sc.pl
new file mode 100644
index 00000000..6a8bbb6b
--- /dev/null
+++ b/lib/5.24.1/unicore/To/Sc.pl
@@ -0,0 +1,843 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToSc'}{'format'} = 's'; # string
+$utf8::SwashInfo{'ToSc'}{'missing'} = 'Unknown';
+
+return <<'END';
+0	40	Common
+41	5A	Latin
+5B	60	Common
+61	7A	Latin
+7B	A9	Common
+AA		Latin
+AB	B9	Common
+BA		Latin
+BB	BF	Common
+C0	D6	Latin
+D7		Common
+D8	F6	Latin
+F7		Common
+F8	2B8	Latin
+2B9	2DF	Common
+2E0	2E4	Latin
+2E5	2E9	Common
+2EA	2EB	Bopomofo
+2EC	2FF	Common
+300	36F	Inherited
+370	373	Greek
+374		Common
+375	377	Greek
+37A	37D	Greek
+37E		Common
+37F		Greek
+384		Greek
+385		Common
+386		Greek
+387		Common
+388	38A	Greek
+38C		Greek
+38E	3A1	Greek
+3A3	3E1	Greek
+3E2	3EF	Coptic
+3F0	3FF	Greek
+400	484	Cyrillic
+485	486	Inherited
+487	52F	Cyrillic
+531	556	Armenian
+559	55F	Armenian
+561	587	Armenian
+589		Common
+58A		Armenian
+58D	58F	Armenian
+591	5C7	Hebrew
+5D0	5EA	Hebrew
+5F0	5F4	Hebrew
+600	604	Arabic
+605		Common
+606	60B	Arabic
+60C		Common
+60D	61A	Arabic
+61B	61C	Common
+61E		Arabic
+61F		Common
+620	63F	Arabic
+640		Common
+641	64A	Arabic
+64B	655	Inherited
+656	66F	Arabic
+670		Inherited
+671	6DC	Arabic
+6DD		Common
+6DE	6FF	Arabic
+700	70D	Syriac
+70F	74A	Syriac
+74D	74F	Syriac
+750	77F	Arabic
+780	7B1	Thaana
+7C0	7FA	Nko
+800	82D	Samaritan
+830	83E	Samaritan
+840	85B	Mandaic
+85E		Mandaic
+8A0	8B4	Arabic
+8E3	8FF	Arabic
+900	950	Devanagari
+951	952	Inherited
+953	963	Devanagari
+964	965	Common
+966	97F	Devanagari
+980	983	Bengali
+985	98C	Bengali
+98F	990	Bengali
+993	9A8	Bengali
+9AA	9B0	Bengali
+9B2		Bengali
+9B6	9B9	Bengali
+9BC	9C4	Bengali
+9C7	9C8	Bengali
+9CB	9CE	Bengali
+9D7		Bengali
+9DC	9DD	Bengali
+9DF	9E3	Bengali
+9E6	9FB	Bengali
+A01	A03	Gurmukhi
+A05	A0A	Gurmukhi
+A0F	A10	Gurmukhi
+A13	A28	Gurmukhi
+A2A	A30	Gurmukhi
+A32	A33	Gurmukhi
+A35	A36	Gurmukhi
+A38	A39	Gurmukhi
+A3C		Gurmukhi
+A3E	A42	Gurmukhi
+A47	A48	Gurmukhi
+A4B	A4D	Gurmukhi
+A51		Gurmukhi
+A59	A5C	Gurmukhi
+A5E		Gurmukhi
+A66	A75	Gurmukhi
+A81	A83	Gujarati
+A85	A8D	Gujarati
+A8F	A91	Gujarati
+A93	AA8	Gujarati
+AAA	AB0	Gujarati
+AB2	AB3	Gujarati
+AB5	AB9	Gujarati
+ABC	AC5	Gujarati
+AC7	AC9	Gujarati
+ACB	ACD	Gujarati
+AD0		Gujarati
+AE0	AE3	Gujarati
+AE6	AF1	Gujarati
+AF9		Gujarati
+B01	B03	Oriya
+B05	B0C	Oriya
+B0F	B10	Oriya
+B13	B28	Oriya
+B2A	B30	Oriya
+B32	B33	Oriya
+B35	B39	Oriya
+B3C	B44	Oriya
+B47	B48	Oriya
+B4B	B4D	Oriya
+B56	B57	Oriya
+B5C	B5D	Oriya
+B5F	B63	Oriya
+B66	B77	Oriya
+B82	B83	Tamil
+B85	B8A	Tamil
+B8E	B90	Tamil
+B92	B95	Tamil
+B99	B9A	Tamil
+B9C		Tamil
+B9E	B9F	Tamil
+BA3	BA4	Tamil
+BA8	BAA	Tamil
+BAE	BB9	Tamil
+BBE	BC2	Tamil
+BC6	BC8	Tamil
+BCA	BCD	Tamil
+BD0		Tamil
+BD7		Tamil
+BE6	BFA	Tamil
+C00	C03	Telugu
+C05	C0C	Telugu
+C0E	C10	Telugu
+C12	C28	Telugu
+C2A	C39	Telugu
+C3D	C44	Telugu
+C46	C48	Telugu
+C4A	C4D	Telugu
+C55	C56	Telugu
+C58	C5A	Telugu
+C60	C63	Telugu
+C66	C6F	Telugu
+C78	C7F	Telugu
+C81	C83	Kannada
+C85	C8C	Kannada
+C8E	C90	Kannada
+C92	CA8	Kannada
+CAA	CB3	Kannada
+CB5	CB9	Kannada
+CBC	CC4	Kannada
+CC6	CC8	Kannada
+CCA	CCD	Kannada
+CD5	CD6	Kannada
+CDE		Kannada
+CE0	CE3	Kannada
+CE6	CEF	Kannada
+CF1	CF2	Kannada
+D01	D03	Malayalam
+D05	D0C	Malayalam
+D0E	D10	Malayalam
+D12	D3A	Malayalam
+D3D	D44	Malayalam
+D46	D48	Malayalam
+D4A	D4E	Malayalam
+D57		Malayalam
+D5F	D63	Malayalam
+D66	D75	Malayalam
+D79	D7F	Malayalam
+D82	D83	Sinhala
+D85	D96	Sinhala
+D9A	DB1	Sinhala
+DB3	DBB	Sinhala
+DBD		Sinhala
+DC0	DC6	Sinhala
+DCA		Sinhala
+DCF	DD4	Sinhala
+DD6		Sinhala
+DD8	DDF	Sinhala
+DE6	DEF	Sinhala
+DF2	DF4	Sinhala
+E01	E3A	Thai
+E3F		Common
+E40	E5B	Thai
+E81	E82	Lao
+E84		Lao
+E87	E88	Lao
+E8A		Lao
+E8D		Lao
+E94	E97	Lao
+E99	E9F	Lao
+EA1	EA3	Lao
+EA5		Lao
+EA7		Lao
+EAA	EAB	Lao
+EAD	EB9	Lao
+EBB	EBD	Lao
+EC0	EC4	Lao
+EC6		Lao
+EC8	ECD	Lao
+ED0	ED9	Lao
+EDC	EDF	Lao
+F00	F47	Tibetan
+F49	F6C	Tibetan
+F71	F97	Tibetan
+F99	FBC	Tibetan
+FBE	FCC	Tibetan
+FCE	FD4	Tibetan
+FD5	FD8	Common
+FD9	FDA	Tibetan
+1000	109F	Myanmar
+10A0	10C5	Georgian
+10C7		Georgian
+10CD		Georgian
+10D0	10FA	Georgian
+10FB		Common
+10FC	10FF	Georgian
+1100	11FF	Hangul
+1200	1248	Ethiopic
+124A	124D	Ethiopic
+1250	1256	Ethiopic
+1258		Ethiopic
+125A	125D	Ethiopic
+1260	1288	Ethiopic
+128A	128D	Ethiopic
+1290	12B0	Ethiopic
+12B2	12B5	Ethiopic
+12B8	12BE	Ethiopic
+12C0		Ethiopic
+12C2	12C5	Ethiopic
+12C8	12D6	Ethiopic
+12D8	1310	Ethiopic
+1312	1315	Ethiopic
+1318	135A	Ethiopic
+135D	137C	Ethiopic
+1380	1399	Ethiopic
+13A0	13F5	Cherokee
+13F8	13FD	Cherokee
+1400	167F	Canadian_Aboriginal
+1680	169C	Ogham
+16A0	16EA	Runic
+16EB	16ED	Common
+16EE	16F8	Runic
+1700	170C	Tagalog
+170E	1714	Tagalog
+1720	1734	Hanunoo
+1735	1736	Common
+1740	1753	Buhid
+1760	176C	Tagbanwa
+176E	1770	Tagbanwa
+1772	1773	Tagbanwa
+1780	17DD	Khmer
+17E0	17E9	Khmer
+17F0	17F9	Khmer
+1800	1801	Mongolian
+1802	1803	Common
+1804		Mongolian
+1805		Common
+1806	180E	Mongolian
+1810	1819	Mongolian
+1820	1877	Mongolian
+1880	18AA	Mongolian
+18B0	18F5	Canadian_Aboriginal
+1900	191E	Limbu
+1920	192B	Limbu
+1930	193B	Limbu
+1940		Limbu
+1944	194F	Limbu
+1950	196D	Tai_Le
+1970	1974	Tai_Le
+1980	19AB	New_Tai_Lue
+19B0	19C9	New_Tai_Lue
+19D0	19DA	New_Tai_Lue
+19DE	19DF	New_Tai_Lue
+19E0	19FF	Khmer
+1A00	1A1B	Buginese
+1A1E	1A1F	Buginese
+1A20	1A5E	Tai_Tham
+1A60	1A7C	Tai_Tham
+1A7F	1A89	Tai_Tham
+1A90	1A99	Tai_Tham
+1AA0	1AAD	Tai_Tham
+1AB0	1ABE	Inherited
+1B00	1B4B	Balinese
+1B50	1B7C	Balinese
+1B80	1BBF	Sundanese
+1BC0	1BF3	Batak
+1BFC	1BFF	Batak
+1C00	1C37	Lepcha
+1C3B	1C49	Lepcha
+1C4D	1C4F	Lepcha
+1C50	1C7F	Ol_Chiki
+1CC0	1CC7	Sundanese
+1CD0	1CD2	Inherited
+1CD3		Common
+1CD4	1CE0	Inherited
+1CE1		Common
+1CE2	1CE8	Inherited
+1CE9	1CEC	Common
+1CED		Inherited
+1CEE	1CF3	Common
+1CF4		Inherited
+1CF5	1CF6	Common
+1CF8	1CF9	Inherited
+1D00	1D25	Latin
+1D26	1D2A	Greek
+1D2B		Cyrillic
+1D2C	1D5C	Latin
+1D5D	1D61	Greek
+1D62	1D65	Latin
+1D66	1D6A	Greek
+1D6B	1D77	Latin
+1D78		Cyrillic
+1D79	1DBE	Latin
+1DBF		Greek
+1DC0	1DF5	Inherited
+1DFC	1DFF	Inherited
+1E00	1EFF	Latin
+1F00	1F15	Greek
+1F18	1F1D	Greek
+1F20	1F45	Greek
+1F48	1F4D	Greek
+1F50	1F57	Greek
+1F59		Greek
+1F5B		Greek
+1F5D		Greek
+1F5F	1F7D	Greek
+1F80	1FB4	Greek
+1FB6	1FC4	Greek
+1FC6	1FD3	Greek
+1FD6	1FDB	Greek
+1FDD	1FEF	Greek
+1FF2	1FF4	Greek
+1FF6	1FFE	Greek
+2000	200B	Common
+200C	200D	Inherited
+200E	2064	Common
+2066	2070	Common
+2071		Latin
+2074	207E	Common
+207F		Latin
+2080	208E	Common
+2090	209C	Latin
+20A0	20BE	Common
+20D0	20F0	Inherited
+2100	2125	Common
+2126		Greek
+2127	2129	Common
+212A	212B	Latin
+212C	2131	Common
+2132		Latin
+2133	214D	Common
+214E		Latin
+214F	215F	Common
+2160	2188	Latin
+2189	218B	Common
+2190	23FA	Common
+2400	2426	Common
+2440	244A	Common
+2460	27FF	Common
+2800	28FF	Braille
+2900	2B73	Common
+2B76	2B95	Common
+2B98	2BB9	Common
+2BBD	2BC8	Common
+2BCA	2BD1	Common
+2BEC	2BEF	Common
+2C00	2C2E	Glagolitic
+2C30	2C5E	Glagolitic
+2C60	2C7F	Latin
+2C80	2CF3	Coptic
+2CF9	2CFF	Coptic
+2D00	2D25	Georgian
+2D27		Georgian
+2D2D		Georgian
+2D30	2D67	Tifinagh
+2D6F	2D70	Tifinagh
+2D7F		Tifinagh
+2D80	2D96	Ethiopic
+2DA0	2DA6	Ethiopic
+2DA8	2DAE	Ethiopic
+2DB0	2DB6	Ethiopic
+2DB8	2DBE	Ethiopic
+2DC0	2DC6	Ethiopic
+2DC8	2DCE	Ethiopic
+2DD0	2DD6	Ethiopic
+2DD8	2DDE	Ethiopic
+2DE0	2DFF	Cyrillic
+2E00	2E42	Common
+2E80	2E99	Han
+2E9B	2EF3	Han
+2F00	2FD5	Han
+2FF0	2FFB	Common
+3000	3004	Common
+3005		Han
+3006		Common
+3007		Han
+3008	3020	Common
+3021	3029	Han
+302A	302D	Inherited
+302E	302F	Hangul
+3030	3037	Common
+3038	303B	Han
+303C	303F	Common
+3041	3096	Hiragana
+3099	309A	Inherited
+309B	309C	Common
+309D	309F	Hiragana
+30A0		Common
+30A1	30FA	Katakana
+30FB	30FC	Common
+30FD	30FF	Katakana
+3105	312D	Bopomofo
+3131	318E	Hangul
+3190	319F	Common
+31A0	31BA	Bopomofo
+31C0	31E3	Common
+31F0	31FF	Katakana
+3200	321E	Hangul
+3220	325F	Common
+3260	327E	Hangul
+327F	32CF	Common
+32D0	32FE	Katakana
+3300	3357	Katakana
+3358	33FF	Common
+3400	4DB5	Han
+4DC0	4DFF	Common
+4E00	9FD5	Han
+A000	A48C	Yi
+A490	A4C6	Yi
+A4D0	A4FF	Lisu
+A500	A62B	Vai
+A640	A69F	Cyrillic
+A6A0	A6F7	Bamum
+A700	A721	Common
+A722	A787	Latin
+A788	A78A	Common
+A78B	A7AD	Latin
+A7B0	A7B7	Latin
+A7F7	A7FF	Latin
+A800	A82B	Syloti_Nagri
+A830	A839	Common
+A840	A877	Phags_Pa
+A880	A8C4	Saurashtra
+A8CE	A8D9	Saurashtra
+A8E0	A8FD	Devanagari
+A900	A92D	Kayah_Li
+A92E		Common
+A92F		Kayah_Li
+A930	A953	Rejang
+A95F		Rejang
+A960	A97C	Hangul
+A980	A9CD	Javanese
+A9CF		Common
+A9D0	A9D9	Javanese
+A9DE	A9DF	Javanese
+A9E0	A9FE	Myanmar
+AA00	AA36	Cham
+AA40	AA4D	Cham
+AA50	AA59	Cham
+AA5C	AA5F	Cham
+AA60	AA7F	Myanmar
+AA80	AAC2	Tai_Viet
+AADB	AADF	Tai_Viet
+AAE0	AAF6	Meetei_Mayek
+AB01	AB06	Ethiopic
+AB09	AB0E	Ethiopic
+AB11	AB16	Ethiopic
+AB20	AB26	Ethiopic
+AB28	AB2E	Ethiopic
+AB30	AB5A	Latin
+AB5B		Common
+AB5C	AB64	Latin
+AB65		Greek
+AB70	ABBF	Cherokee
+ABC0	ABED	Meetei_Mayek
+ABF0	ABF9	Meetei_Mayek
+AC00	D7A3	Hangul
+D7B0	D7C6	Hangul
+D7CB	D7FB	Hangul
+F900	FA6D	Han
+FA70	FAD9	Han
+FB00	FB06	Latin
+FB13	FB17	Armenian
+FB1D	FB36	Hebrew
+FB38	FB3C	Hebrew
+FB3E		Hebrew
+FB40	FB41	Hebrew
+FB43	FB44	Hebrew
+FB46	FB4F	Hebrew
+FB50	FBC1	Arabic
+FBD3	FD3D	Arabic
+FD3E	FD3F	Common
+FD50	FD8F	Arabic
+FD92	FDC7	Arabic
+FDF0	FDFD	Arabic
+FE00	FE0F	Inherited
+FE10	FE19	Common
+FE20	FE2D	Inherited
+FE2E	FE2F	Cyrillic
+FE30	FE52	Common
+FE54	FE66	Common
+FE68	FE6B	Common
+FE70	FE74	Arabic
+FE76	FEFC	Arabic
+FEFF		Common
+FF01	FF20	Common
+FF21	FF3A	Latin
+FF3B	FF40	Common
+FF41	FF5A	Latin
+FF5B	FF65	Common
+FF66	FF6F	Katakana
+FF70		Common
+FF71	FF9D	Katakana
+FF9E	FF9F	Common
+FFA0	FFBE	Hangul
+FFC2	FFC7	Hangul
+FFCA	FFCF	Hangul
+FFD2	FFD7	Hangul
+FFDA	FFDC	Hangul
+FFE0	FFE6	Common
+FFE8	FFEE	Common
+FFF9	FFFD	Common
+10000	1000B	Linear_B
+1000D	10026	Linear_B
+10028	1003A	Linear_B
+1003C	1003D	Linear_B
+1003F	1004D	Linear_B
+10050	1005D	Linear_B
+10080	100FA	Linear_B
+10100	10102	Common
+10107	10133	Common
+10137	1013F	Common
+10140	1018C	Greek
+10190	1019B	Common
+101A0		Greek
+101D0	101FC	Common
+101FD		Inherited
+10280	1029C	Lycian
+102A0	102D0	Carian
+102E0		Inherited
+102E1	102FB	Common
+10300	10323	Old_Italic
+10330	1034A	Gothic
+10350	1037A	Old_Permic
+10380	1039D	Ugaritic
+1039F		Ugaritic
+103A0	103C3	Old_Persian
+103C8	103D5	Old_Persian
+10400	1044F	Deseret
+10450	1047F	Shavian
+10480	1049D	Osmanya
+104A0	104A9	Osmanya
+10500	10527	Elbasan
+10530	10563	Caucasian_Albanian
+1056F		Caucasian_Albanian
+10600	10736	Linear_A
+10740	10755	Linear_A
+10760	10767	Linear_A
+10800	10805	Cypriot
+10808		Cypriot
+1080A	10835	Cypriot
+10837	10838	Cypriot
+1083C		Cypriot
+1083F		Cypriot
+10840	10855	Imperial_Aramaic
+10857	1085F	Imperial_Aramaic
+10860	1087F	Palmyrene
+10880	1089E	Nabataean
+108A7	108AF	Nabataean
+108E0	108F2	Hatran
+108F4	108F5	Hatran
+108FB	108FF	Hatran
+10900	1091B	Phoenician
+1091F		Phoenician
+10920	10939	Lydian
+1093F		Lydian
+10980	1099F	Meroitic_Hieroglyphs
+109A0	109B7	Meroitic_Cursive
+109BC	109CF	Meroitic_Cursive
+109D2	109FF	Meroitic_Cursive
+10A00	10A03	Kharoshthi
+10A05	10A06	Kharoshthi
+10A0C	10A13	Kharoshthi
+10A15	10A17	Kharoshthi
+10A19	10A33	Kharoshthi
+10A38	10A3A	Kharoshthi
+10A3F	10A47	Kharoshthi
+10A50	10A58	Kharoshthi
+10A60	10A7F	Old_South_Arabian
+10A80	10A9F	Old_North_Arabian
+10AC0	10AE6	Manichaean
+10AEB	10AF6	Manichaean
+10B00	10B35	Avestan
+10B39	10B3F	Avestan
+10B40	10B55	Inscriptional_Parthian
+10B58	10B5F	Inscriptional_Parthian
+10B60	10B72	Inscriptional_Pahlavi
+10B78	10B7F	Inscriptional_Pahlavi
+10B80	10B91	Psalter_Pahlavi
+10B99	10B9C	Psalter_Pahlavi
+10BA9	10BAF	Psalter_Pahlavi
+10C00	10C48	Old_Turkic
+10C80	10CB2	Old_Hungarian
+10CC0	10CF2	Old_Hungarian
+10CFA	10CFF	Old_Hungarian
+10E60	10E7E	Arabic
+11000	1104D	Brahmi
+11052	1106F	Brahmi
+1107F		Brahmi
+11080	110C1	Kaithi
+110D0	110E8	Sora_Sompeng
+110F0	110F9	Sora_Sompeng
+11100	11134	Chakma
+11136	11143	Chakma
+11150	11176	Mahajani
+11180	111CD	Sharada
+111D0	111DF	Sharada
+111E1	111F4	Sinhala
+11200	11211	Khojki
+11213	1123D	Khojki
+11280	11286	Multani
+11288		Multani
+1128A	1128D	Multani
+1128F	1129D	Multani
+1129F	112A9	Multani
+112B0	112EA	Khudawadi
+112F0	112F9	Khudawadi
+11300	11303	Grantha
+11305	1130C	Grantha
+1130F	11310	Grantha
+11313	11328	Grantha
+1132A	11330	Grantha
+11332	11333	Grantha
+11335	11339	Grantha
+1133C	11344	Grantha
+11347	11348	Grantha
+1134B	1134D	Grantha
+11350		Grantha
+11357		Grantha
+1135D	11363	Grantha
+11366	1136C	Grantha
+11370	11374	Grantha
+11480	114C7	Tirhuta
+114D0	114D9	Tirhuta
+11580	115B5	Siddham
+115B8	115DD	Siddham
+11600	11644	Modi
+11650	11659	Modi
+11680	116B7	Takri
+116C0	116C9	Takri
+11700	11719	Ahom
+1171D	1172B	Ahom
+11730	1173F	Ahom
+118A0	118F2	Warang_Citi
+118FF		Warang_Citi
+11AC0	11AF8	Pau_Cin_Hau
+12000	12399	Cuneiform
+12400	1246E	Cuneiform
+12470	12474	Cuneiform
+12480	12543	Cuneiform
+13000	1342E	Egyptian_Hieroglyphs
+14400	14646	Anatolian_Hieroglyphs
+16800	16A38	Bamum
+16A40	16A5E	Mro
+16A60	16A69	Mro
+16A6E	16A6F	Mro
+16AD0	16AED	Bassa_Vah
+16AF0	16AF5	Bassa_Vah
+16B00	16B45	Pahawh_Hmong
+16B50	16B59	Pahawh_Hmong
+16B5B	16B61	Pahawh_Hmong
+16B63	16B77	Pahawh_Hmong
+16B7D	16B8F	Pahawh_Hmong
+16F00	16F44	Miao
+16F50	16F7E	Miao
+16F8F	16F9F	Miao
+1B000		Katakana
+1B001		Hiragana
+1BC00	1BC6A	Duployan
+1BC70	1BC7C	Duployan
+1BC80	1BC88	Duployan
+1BC90	1BC99	Duployan
+1BC9C	1BC9F	Duployan
+1BCA0	1BCA3	Common
+1D000	1D0F5	Common
+1D100	1D126	Common
+1D129	1D166	Common
+1D167	1D169	Inherited
+1D16A	1D17A	Common
+1D17B	1D182	Inherited
+1D183	1D184	Common
+1D185	1D18B	Inherited
+1D18C	1D1A9	Common
+1D1AA	1D1AD	Inherited
+1D1AE	1D1E8	Common
+1D200	1D245	Greek
+1D300	1D356	Common
+1D360	1D371	Common
+1D400	1D454	Common
+1D456	1D49C	Common
+1D49E	1D49F	Common
+1D4A2		Common
+1D4A5	1D4A6	Common
+1D4A9	1D4AC	Common
+1D4AE	1D4B9	Common
+1D4BB		Common
+1D4BD	1D4C3	Common
+1D4C5	1D505	Common
+1D507	1D50A	Common
+1D50D	1D514	Common
+1D516	1D51C	Common
+1D51E	1D539	Common
+1D53B	1D53E	Common
+1D540	1D544	Common
+1D546		Common
+1D54A	1D550	Common
+1D552	1D6A5	Common
+1D6A8	1D7CB	Common
+1D7CE	1D7FF	Common
+1D800	1DA8B	SignWriting
+1DA9B	1DA9F	SignWriting
+1DAA1	1DAAF	SignWriting
+1E800	1E8C4	Mende_Kikakui
+1E8C7	1E8D6	Mende_Kikakui
+1EE00	1EE03	Arabic
+1EE05	1EE1F	Arabic
+1EE21	1EE22	Arabic
+1EE24		Arabic
+1EE27		Arabic
+1EE29	1EE32	Arabic
+1EE34	1EE37	Arabic
+1EE39		Arabic
+1EE3B		Arabic
+1EE42		Arabic
+1EE47		Arabic
+1EE49		Arabic
+1EE4B		Arabic
+1EE4D	1EE4F	Arabic
+1EE51	1EE52	Arabic
+1EE54		Arabic
+1EE57		Arabic
+1EE59		Arabic
+1EE5B		Arabic
+1EE5D		Arabic
+1EE5F		Arabic
+1EE61	1EE62	Arabic
+1EE64		Arabic
+1EE67	1EE6A	Arabic
+1EE6C	1EE72	Arabic
+1EE74	1EE77	Arabic
+1EE79	1EE7C	Arabic
+1EE7E		Arabic
+1EE80	1EE89	Arabic
+1EE8B	1EE9B	Arabic
+1EEA1	1EEA3	Arabic
+1EEA5	1EEA9	Arabic
+1EEAB	1EEBB	Arabic
+1EEF0	1EEF1	Arabic
+1F000	1F02B	Common
+1F030	1F093	Common
+1F0A0	1F0AE	Common
+1F0B1	1F0BF	Common
+1F0C1	1F0CF	Common
+1F0D1	1F0F5	Common
+1F100	1F10C	Common
+1F110	1F12E	Common
+1F130	1F16B	Common
+1F170	1F19A	Common
+1F1E6	1F1FF	Common
+1F200		Hiragana
+1F201	1F202	Common
+1F210	1F23A	Common
+1F240	1F248	Common
+1F250	1F251	Common
+1F300	1F579	Common
+1F57B	1F5A3	Common
+1F5A5	1F6D0	Common
+1F6E0	1F6EC	Common
+1F6F0	1F6F3	Common
+1F700	1F773	Common
+1F780	1F7D4	Common
+1F800	1F80B	Common
+1F810	1F847	Common
+1F850	1F859	Common
+1F860	1F887	Common
+1F890	1F8AD	Common
+1F910	1F918	Common
+1F980	1F984	Common
+1F9C0		Common
+20000	2A6D6	Han
+2A700	2B734	Han
+2B740	2B81D	Han
+2B820	2CEA1	Han
+2F800	2FA1D	Han
+E0001		Common
+E0020	E007F	Common
+E0100	E01EF	Inherited
+END
diff --git a/lib/5.24.1/unicore/To/Scx.pl b/lib/5.24.1/unicore/To/Scx.pl
new file mode 100644
index 00000000..a776e6d3
--- /dev/null
+++ b/lib/5.24.1/unicore/To/Scx.pl
@@ -0,0 +1,903 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToScx'}{'format'} = 'sw'; # string, but some elements are interpreted as a list; white space occurs only as list item separators
+$utf8::SwashInfo{'ToScx'}{'missing'} = 'Unknown';
+
+return <<'END';
+0	40	Common
+41	5A	Latin
+5B	60	Common
+61	7A	Latin
+7B	A9	Common
+AA		Latin
+AB	B9	Common
+BA		Latin
+BB	BF	Common
+C0	D6	Latin
+D7		Common
+D8	F6	Latin
+F7		Common
+F8	2B8	Latin
+2B9	2DF	Common
+2E0	2E4	Latin
+2E5	2E9	Common
+2EA	2EB	Bopomofo
+2EC	2FF	Common
+300	341	Inherited
+342		Greek
+343	344	Inherited
+345		Greek
+346	362	Inherited
+363	36F	Latin
+370	373	Greek
+374		Common
+375	377	Greek
+37A	37D	Greek
+37E		Common
+37F		Greek
+384		Greek
+385		Common
+386		Greek
+387		Common
+388	38A	Greek
+38C		Greek
+38E	3A1	Greek
+3A3	3E1	Greek
+3E2	3EF	Coptic
+3F0	3FF	Greek
+400	482	Cyrillic
+483		Cyrillic Old_Permic
+484		Cyrillic
+485	486	Cyrillic Latin
+487		Cyrillic Glagolitic
+488	52F	Cyrillic
+531	556	Armenian
+559	55F	Armenian
+561	587	Armenian
+589		Armenian Georgian
+58A		Armenian
+58D	58F	Armenian
+591	5C7	Hebrew
+5D0	5EA	Hebrew
+5F0	5F4	Hebrew
+600	604	Arabic
+605		Common
+606	60B	Arabic
+60C		Arabic Syriac Thaana
+60D	61A	Arabic
+61B		Arabic Syriac Thaana
+61C		Common
+61E		Arabic
+61F		Arabic Syriac Thaana
+620	63F	Arabic
+640		Arabic Mandaic Manichaean Psalter_Pahlavi Syriac
+641	64A	Arabic
+64B	655	Arabic Syriac
+656	65F	Arabic
+660	669	Arabic Thaana
+66A	66F	Arabic
+670		Arabic Syriac
+671	6DC	Arabic
+6DD		Common
+6DE	6FF	Arabic
+700	70D	Syriac
+70F	74A	Syriac
+74D	74F	Syriac
+750	77F	Arabic
+780	7B1	Thaana
+7C0	7FA	Nko
+800	82D	Samaritan
+830	83E	Samaritan
+840	85B	Mandaic
+85E		Mandaic
+8A0	8B4	Arabic
+8E3	8FF	Arabic
+900	950	Devanagari
+951		Bengali Devanagari Grantha Gujarati Gurmukhi Kannada Latin Malayalam Oriya Sharada Tamil Telugu
+952		Bengali Devanagari Grantha Gujarati Gurmukhi Kannada Latin Malayalam Oriya Tamil Telugu
+953	963	Devanagari
+964		Bengali Devanagari Grantha Gujarati Gurmukhi Kannada Mahajani Malayalam Oriya Khudawadi Sinhala Syloti_Nagri Takri Tamil Telugu Tirhuta
+965		Bengali Devanagari Grantha Gujarati Gurmukhi Kannada Limbu Mahajani Malayalam Oriya Khudawadi Sinhala Syloti_Nagri Takri Tamil Telugu Tirhuta
+966	96F	Devanagari Kaithi Mahajani
+970	97F	Devanagari
+980	983	Bengali
+985	98C	Bengali
+98F	990	Bengali
+993	9A8	Bengali
+9AA	9B0	Bengali
+9B2		Bengali
+9B6	9B9	Bengali
+9BC	9C4	Bengali
+9C7	9C8	Bengali
+9CB	9CE	Bengali
+9D7		Bengali
+9DC	9DD	Bengali
+9DF	9E3	Bengali
+9E6	9EF	Bengali Chakma Syloti_Nagri
+9F0	9FB	Bengali
+A01	A03	Gurmukhi
+A05	A0A	Gurmukhi
+A0F	A10	Gurmukhi
+A13	A28	Gurmukhi
+A2A	A30	Gurmukhi
+A32	A33	Gurmukhi
+A35	A36	Gurmukhi
+A38	A39	Gurmukhi
+A3C		Gurmukhi
+A3E	A42	Gurmukhi
+A47	A48	Gurmukhi
+A4B	A4D	Gurmukhi
+A51		Gurmukhi
+A59	A5C	Gurmukhi
+A5E		Gurmukhi
+A66	A6F	Gurmukhi Multani
+A70	A75	Gurmukhi
+A81	A83	Gujarati
+A85	A8D	Gujarati
+A8F	A91	Gujarati
+A93	AA8	Gujarati
+AAA	AB0	Gujarati
+AB2	AB3	Gujarati
+AB5	AB9	Gujarati
+ABC	AC5	Gujarati
+AC7	AC9	Gujarati
+ACB	ACD	Gujarati
+AD0		Gujarati
+AE0	AE3	Gujarati
+AE6	AEF	Gujarati Khojki
+AF0	AF1	Gujarati
+AF9		Gujarati
+B01	B03	Oriya
+B05	B0C	Oriya
+B0F	B10	Oriya
+B13	B28	Oriya
+B2A	B30	Oriya
+B32	B33	Oriya
+B35	B39	Oriya
+B3C	B44	Oriya
+B47	B48	Oriya
+B4B	B4D	Oriya
+B56	B57	Oriya
+B5C	B5D	Oriya
+B5F	B63	Oriya
+B66	B77	Oriya
+B82	B83	Tamil
+B85	B8A	Tamil
+B8E	B90	Tamil
+B92	B95	Tamil
+B99	B9A	Tamil
+B9C		Tamil
+B9E	B9F	Tamil
+BA3	BA4	Tamil
+BA8	BA9	Tamil
+BAA		Grantha Tamil
+BAE	BB4	Tamil
+BB5		Grantha Tamil
+BB6	BB9	Tamil
+BBE	BC2	Tamil
+BC6	BC8	Tamil
+BCA	BCD	Tamil
+BD0		Tamil
+BD7		Tamil
+BE6	BF2	Grantha Tamil
+BF3	BFA	Tamil
+C00	C03	Telugu
+C05	C0C	Telugu
+C0E	C10	Telugu
+C12	C28	Telugu
+C2A	C39	Telugu
+C3D	C44	Telugu
+C46	C48	Telugu
+C4A	C4D	Telugu
+C55	C56	Telugu
+C58	C5A	Telugu
+C60	C63	Telugu
+C66	C6F	Telugu
+C78	C7F	Telugu
+C81	C83	Kannada
+C85	C8C	Kannada
+C8E	C90	Kannada
+C92	CA8	Kannada
+CAA	CB3	Kannada
+CB5	CB9	Kannada
+CBC	CC4	Kannada
+CC6	CC8	Kannada
+CCA	CCD	Kannada
+CD5	CD6	Kannada
+CDE		Kannada
+CE0	CE3	Kannada
+CE6	CEF	Kannada
+CF1	CF2	Kannada
+D01	D03	Malayalam
+D05	D0C	Malayalam
+D0E	D10	Malayalam
+D12	D3A	Malayalam
+D3D	D44	Malayalam
+D46	D48	Malayalam
+D4A	D4E	Malayalam
+D57		Malayalam
+D5F	D63	Malayalam
+D66	D75	Malayalam
+D79	D7F	Malayalam
+D82	D83	Sinhala
+D85	D96	Sinhala
+D9A	DB1	Sinhala
+DB3	DBB	Sinhala
+DBD		Sinhala
+DC0	DC6	Sinhala
+DCA		Sinhala
+DCF	DD4	Sinhala
+DD6		Sinhala
+DD8	DDF	Sinhala
+DE6	DEF	Sinhala
+DF2	DF4	Sinhala
+E01	E3A	Thai
+E3F		Common
+E40	E5B	Thai
+E81	E82	Lao
+E84		Lao
+E87	E88	Lao
+E8A		Lao
+E8D		Lao
+E94	E97	Lao
+E99	E9F	Lao
+EA1	EA3	Lao
+EA5		Lao
+EA7		Lao
+EAA	EAB	Lao
+EAD	EB9	Lao
+EBB	EBD	Lao
+EC0	EC4	Lao
+EC6		Lao
+EC8	ECD	Lao
+ED0	ED9	Lao
+EDC	EDF	Lao
+F00	F47	Tibetan
+F49	F6C	Tibetan
+F71	F97	Tibetan
+F99	FBC	Tibetan
+FBE	FCC	Tibetan
+FCE	FD4	Tibetan
+FD5	FD8	Common
+FD9	FDA	Tibetan
+1000	103F	Myanmar
+1040	1049	Chakma Myanmar Tai_Le
+104A	109F	Myanmar
+10A0	10C5	Georgian
+10C7		Georgian
+10CD		Georgian
+10D0	10FA	Georgian
+10FB		Common
+10FC	10FF	Georgian
+1100	11FF	Hangul
+1200	1248	Ethiopic
+124A	124D	Ethiopic
+1250	1256	Ethiopic
+1258		Ethiopic
+125A	125D	Ethiopic
+1260	1288	Ethiopic
+128A	128D	Ethiopic
+1290	12B0	Ethiopic
+12B2	12B5	Ethiopic
+12B8	12BE	Ethiopic
+12C0		Ethiopic
+12C2	12C5	Ethiopic
+12C8	12D6	Ethiopic
+12D8	1310	Ethiopic
+1312	1315	Ethiopic
+1318	135A	Ethiopic
+135D	137C	Ethiopic
+1380	1399	Ethiopic
+13A0	13F5	Cherokee
+13F8	13FD	Cherokee
+1400	167F	Canadian_Aboriginal
+1680	169C	Ogham
+16A0	16EA	Runic
+16EB	16ED	Common
+16EE	16F8	Runic
+1700	170C	Tagalog
+170E	1714	Tagalog
+1720	1734	Hanunoo
+1735	1736	Buhid Hanunoo Tagbanwa Tagalog
+1740	1753	Buhid
+1760	176C	Tagbanwa
+176E	1770	Tagbanwa
+1772	1773	Tagbanwa
+1780	17DD	Khmer
+17E0	17E9	Khmer
+17F0	17F9	Khmer
+1800	1801	Mongolian
+1802	1803	Mongolian Phags_Pa
+1804		Mongolian
+1805		Mongolian Phags_Pa
+1806	180E	Mongolian
+1810	1819	Mongolian
+1820	1877	Mongolian
+1880	18AA	Mongolian
+18B0	18F5	Canadian_Aboriginal
+1900	191E	Limbu
+1920	192B	Limbu
+1930	193B	Limbu
+1940		Limbu
+1944	194F	Limbu
+1950	196D	Tai_Le
+1970	1974	Tai_Le
+1980	19AB	New_Tai_Lue
+19B0	19C9	New_Tai_Lue
+19D0	19DA	New_Tai_Lue
+19DE	19DF	New_Tai_Lue
+19E0	19FF	Khmer
+1A00	1A1B	Buginese
+1A1E	1A1F	Buginese
+1A20	1A5E	Tai_Tham
+1A60	1A7C	Tai_Tham
+1A7F	1A89	Tai_Tham
+1A90	1A99	Tai_Tham
+1AA0	1AAD	Tai_Tham
+1AB0	1ABE	Inherited
+1B00	1B4B	Balinese
+1B50	1B7C	Balinese
+1B80	1BBF	Sundanese
+1BC0	1BF3	Batak
+1BFC	1BFF	Batak
+1C00	1C37	Lepcha
+1C3B	1C49	Lepcha
+1C4D	1C4F	Lepcha
+1C50	1C7F	Ol_Chiki
+1CC0	1CC7	Sundanese
+1CD0		Devanagari Grantha
+1CD1		Devanagari
+1CD2	1CD3	Devanagari Grantha
+1CD4	1CD6	Devanagari
+1CD7		Devanagari Sharada
+1CD8		Devanagari
+1CD9		Devanagari Sharada
+1CDA		Devanagari Kannada Malayalam Tamil Telugu
+1CDB		Devanagari
+1CDC	1CDD	Devanagari Sharada
+1CDE	1CDF	Devanagari
+1CE0		Devanagari Sharada
+1CE1	1CF1	Devanagari
+1CF2	1CF4	Devanagari Grantha
+1CF5		Devanagari Kannada
+1CF6		Devanagari
+1CF8	1CF9	Devanagari Grantha
+1D00	1D25	Latin
+1D26	1D2A	Greek
+1D2B		Cyrillic
+1D2C	1D5C	Latin
+1D5D	1D61	Greek
+1D62	1D65	Latin
+1D66	1D6A	Greek
+1D6B	1D77	Latin
+1D78		Cyrillic
+1D79	1DBE	Latin
+1DBF	1DC1	Greek
+1DC2	1DF5	Inherited
+1DFC	1DFF	Inherited
+1E00	1EFF	Latin
+1F00	1F15	Greek
+1F18	1F1D	Greek
+1F20	1F45	Greek
+1F48	1F4D	Greek
+1F50	1F57	Greek
+1F59		Greek
+1F5B		Greek
+1F5D		Greek
+1F5F	1F7D	Greek
+1F80	1FB4	Greek
+1FB6	1FC4	Greek
+1FC6	1FD3	Greek
+1FD6	1FDB	Greek
+1FDD	1FEF	Greek
+1FF2	1FF4	Greek
+1FF6	1FFE	Greek
+2000	200B	Common
+200C	200D	Inherited
+200E	2064	Common
+2066	2070	Common
+2071		Latin
+2074	207E	Common
+207F		Latin
+2080	208E	Common
+2090	209C	Latin
+20A0	20BE	Common
+20D0	20EF	Inherited
+20F0		Devanagari Grantha Latin
+2100	2125	Common
+2126		Greek
+2127	2129	Common
+212A	212B	Latin
+212C	2131	Common
+2132		Latin
+2133	214D	Common
+214E		Latin
+214F	215F	Common
+2160	2188	Latin
+2189	218B	Common
+2190	23FA	Common
+2400	2426	Common
+2440	244A	Common
+2460	27FF	Common
+2800	28FF	Braille
+2900	2B73	Common
+2B76	2B95	Common
+2B98	2BB9	Common
+2BBD	2BC8	Common
+2BCA	2BD1	Common
+2BEC	2BEF	Common
+2C00	2C2E	Glagolitic
+2C30	2C5E	Glagolitic
+2C60	2C7F	Latin
+2C80	2CF3	Coptic
+2CF9	2CFF	Coptic
+2D00	2D25	Georgian
+2D27		Georgian
+2D2D		Georgian
+2D30	2D67	Tifinagh
+2D6F	2D70	Tifinagh
+2D7F		Tifinagh
+2D80	2D96	Ethiopic
+2DA0	2DA6	Ethiopic
+2DA8	2DAE	Ethiopic
+2DB0	2DB6	Ethiopic
+2DB8	2DBE	Ethiopic
+2DC0	2DC6	Ethiopic
+2DC8	2DCE	Ethiopic
+2DD0	2DD6	Ethiopic
+2DD8	2DDE	Ethiopic
+2DE0	2DFF	Cyrillic
+2E00	2E42	Common
+2E80	2E99	Han
+2E9B	2EF3	Han
+2F00	2FD5	Han
+2FF0	2FFB	Common
+3000		Common
+3001	3002	Bopomofo Hangul Han Hiragana Katakana Yi
+3003		Bopomofo Hangul Han Hiragana Katakana
+3004		Common
+3005		Han
+3006		Han Hiragana Katakana
+3007		Han
+3008	3011	Bopomofo Hangul Han Hiragana Katakana Yi
+3012		Common
+3013		Bopomofo Hangul Han Hiragana Katakana
+3014	301B	Bopomofo Hangul Han Hiragana Katakana Yi
+301C	301F	Bopomofo Hangul Han Hiragana Katakana
+3020		Common
+3021	3029	Han
+302A	302D	Bopomofo Han
+302E	302F	Hangul
+3030		Bopomofo Hangul Han Hiragana Katakana
+3031	3035	Hiragana Katakana
+3036		Common
+3037		Bopomofo Hangul Han Hiragana Katakana
+3038	303B	Han
+303C	303D	Han Hiragana Katakana
+303E	303F	Bopomofo Hangul Han Hiragana Katakana
+3041	3096	Hiragana
+3099	309C	Hiragana Katakana
+309D	309F	Hiragana
+30A0		Hiragana Katakana
+30A1	30FA	Katakana
+30FB		Bopomofo Hangul Han Hiragana Katakana Yi
+30FC		Hiragana Katakana
+30FD	30FF	Katakana
+3105	312D	Bopomofo
+3131	318E	Hangul
+3190	319F	Han Hiragana Katakana
+31A0	31BA	Bopomofo
+31C0	31E3	Bopomofo Hangul Han Hiragana Katakana
+31F0	31FF	Katakana
+3200	321E	Hangul
+3220	3243	Bopomofo Hangul Han Hiragana Katakana
+3244	325F	Common
+3260	327E	Hangul
+327F		Common
+3280	32B0	Bopomofo Hangul Han Hiragana Katakana
+32B1	32BF	Common
+32C0	32CB	Bopomofo Hangul Han Hiragana Katakana
+32CC	32CF	Common
+32D0	32FE	Katakana
+3300	3357	Katakana
+3358	3370	Bopomofo Hangul Han Hiragana Katakana
+3371	337A	Common
+337B	337F	Bopomofo Hangul Han Hiragana Katakana
+3380	33DF	Common
+33E0	33FE	Bopomofo Hangul Han Hiragana Katakana
+33FF		Common
+3400	4DB5	Han
+4DC0	4DFF	Common
+4E00	9FD5	Han
+A000	A48C	Yi
+A490	A4C6	Yi
+A4D0	A4FF	Lisu
+A500	A62B	Vai
+A640	A66E	Cyrillic
+A66F		Cyrillic Glagolitic
+A670	A69F	Cyrillic
+A6A0	A6F7	Bamum
+A700	A721	Common
+A722	A787	Latin
+A788	A78A	Common
+A78B	A7AD	Latin
+A7B0	A7B7	Latin
+A7F7	A7FF	Latin
+A800	A82B	Syloti_Nagri
+A830	A839	Devanagari Gujarati Gurmukhi Kaithi Mahajani Modi Khudawadi Takri Tirhuta
+A840	A877	Phags_Pa
+A880	A8C4	Saurashtra
+A8CE	A8D9	Saurashtra
+A8E0	A8F2	Devanagari
+A8F3		Devanagari Tamil
+A8F4	A8FD	Devanagari
+A900	A92D	Kayah_Li
+A92E		Kayah_Li Latin Myanmar
+A92F		Kayah_Li
+A930	A953	Rejang
+A95F		Rejang
+A960	A97C	Hangul
+A980	A9CD	Javanese
+A9CF		Buginese Javanese
+A9D0	A9D9	Javanese
+A9DE	A9DF	Javanese
+A9E0	A9FE	Myanmar
+AA00	AA36	Cham
+AA40	AA4D	Cham
+AA50	AA59	Cham
+AA5C	AA5F	Cham
+AA60	AA7F	Myanmar
+AA80	AAC2	Tai_Viet
+AADB	AADF	Tai_Viet
+AAE0	AAF6	Meetei_Mayek
+AB01	AB06	Ethiopic
+AB09	AB0E	Ethiopic
+AB11	AB16	Ethiopic
+AB20	AB26	Ethiopic
+AB28	AB2E	Ethiopic
+AB30	AB5A	Latin
+AB5B		Common
+AB5C	AB64	Latin
+AB65		Greek
+AB70	ABBF	Cherokee
+ABC0	ABED	Meetei_Mayek
+ABF0	ABF9	Meetei_Mayek
+AC00	D7A3	Hangul
+D7B0	D7C6	Hangul
+D7CB	D7FB	Hangul
+F900	FA6D	Han
+FA70	FAD9	Han
+FB00	FB06	Latin
+FB13	FB17	Armenian
+FB1D	FB36	Hebrew
+FB38	FB3C	Hebrew
+FB3E		Hebrew
+FB40	FB41	Hebrew
+FB43	FB44	Hebrew
+FB46	FB4F	Hebrew
+FB50	FBC1	Arabic
+FBD3	FD3D	Arabic
+FD3E	FD3F	Common
+FD50	FD8F	Arabic
+FD92	FDC7	Arabic
+FDF0	FDF1	Arabic
+FDF2		Arabic Thaana
+FDF3	FDFC	Arabic
+FDFD		Arabic Thaana
+FE00	FE0F	Inherited
+FE10	FE19	Common
+FE20	FE2D	Inherited
+FE2E	FE2F	Cyrillic
+FE30	FE44	Common
+FE45	FE46	Bopomofo Hangul Han Hiragana Katakana
+FE47	FE52	Common
+FE54	FE66	Common
+FE68	FE6B	Common
+FE70	FE74	Arabic
+FE76	FEFC	Arabic
+FEFF		Common
+FF01	FF20	Common
+FF21	FF3A	Latin
+FF3B	FF40	Common
+FF41	FF5A	Latin
+FF5B	FF60	Common
+FF61	FF65	Bopomofo Hangul Han Hiragana Katakana Yi
+FF66	FF6F	Katakana
+FF70		Hiragana Katakana
+FF71	FF9D	Katakana
+FF9E	FF9F	Hiragana Katakana
+FFA0	FFBE	Hangul
+FFC2	FFC7	Hangul
+FFCA	FFCF	Hangul
+FFD2	FFD7	Hangul
+FFDA	FFDC	Hangul
+FFE0	FFE6	Common
+FFE8	FFEE	Common
+FFF9	FFFD	Common
+10000	1000B	Linear_B
+1000D	10026	Linear_B
+10028	1003A	Linear_B
+1003C	1003D	Linear_B
+1003F	1004D	Linear_B
+10050	1005D	Linear_B
+10080	100FA	Linear_B
+10100	10102	Cypriot Linear_B
+10107	10133	Cypriot Linear_B
+10137	1013F	Cypriot Linear_B
+10140	1018C	Greek
+10190	1019B	Common
+101A0		Greek
+101D0	101FC	Common
+101FD		Inherited
+10280	1029C	Lycian
+102A0	102D0	Carian
+102E0	102FB	Arabic Coptic
+10300	10323	Old_Italic
+10330	1034A	Gothic
+10350	1037A	Old_Permic
+10380	1039D	Ugaritic
+1039F		Ugaritic
+103A0	103C3	Old_Persian
+103C8	103D5	Old_Persian
+10400	1044F	Deseret
+10450	1047F	Shavian
+10480	1049D	Osmanya
+104A0	104A9	Osmanya
+10500	10527	Elbasan
+10530	10563	Caucasian_Albanian
+1056F		Caucasian_Albanian
+10600	10736	Linear_A
+10740	10755	Linear_A
+10760	10767	Linear_A
+10800	10805	Cypriot
+10808		Cypriot
+1080A	10835	Cypriot
+10837	10838	Cypriot
+1083C		Cypriot
+1083F		Cypriot
+10840	10855	Imperial_Aramaic
+10857	1085F	Imperial_Aramaic
+10860	1087F	Palmyrene
+10880	1089E	Nabataean
+108A7	108AF	Nabataean
+108E0	108F2	Hatran
+108F4	108F5	Hatran
+108FB	108FF	Hatran
+10900	1091B	Phoenician
+1091F		Phoenician
+10920	10939	Lydian
+1093F		Lydian
+10980	1099F	Meroitic_Hieroglyphs
+109A0	109B7	Meroitic_Cursive
+109BC	109CF	Meroitic_Cursive
+109D2	109FF	Meroitic_Cursive
+10A00	10A03	Kharoshthi
+10A05	10A06	Kharoshthi
+10A0C	10A13	Kharoshthi
+10A15	10A17	Kharoshthi
+10A19	10A33	Kharoshthi
+10A38	10A3A	Kharoshthi
+10A3F	10A47	Kharoshthi
+10A50	10A58	Kharoshthi
+10A60	10A7F	Old_South_Arabian
+10A80	10A9F	Old_North_Arabian
+10AC0	10AE6	Manichaean
+10AEB	10AF6	Manichaean
+10B00	10B35	Avestan
+10B39	10B3F	Avestan
+10B40	10B55	Inscriptional_Parthian
+10B58	10B5F	Inscriptional_Parthian
+10B60	10B72	Inscriptional_Pahlavi
+10B78	10B7F	Inscriptional_Pahlavi
+10B80	10B91	Psalter_Pahlavi
+10B99	10B9C	Psalter_Pahlavi
+10BA9	10BAF	Psalter_Pahlavi
+10C00	10C48	Old_Turkic
+10C80	10CB2	Old_Hungarian
+10CC0	10CF2	Old_Hungarian
+10CFA	10CFF	Old_Hungarian
+10E60	10E7E	Arabic
+11000	1104D	Brahmi
+11052	1106F	Brahmi
+1107F		Brahmi
+11080	110C1	Kaithi
+110D0	110E8	Sora_Sompeng
+110F0	110F9	Sora_Sompeng
+11100	11134	Chakma
+11136	11143	Chakma
+11150	11176	Mahajani
+11180	111CD	Sharada
+111D0	111DF	Sharada
+111E1	111F4	Sinhala
+11200	11211	Khojki
+11213	1123D	Khojki
+11280	11286	Multani
+11288		Multani
+1128A	1128D	Multani
+1128F	1129D	Multani
+1129F	112A9	Multani
+112B0	112EA	Khudawadi
+112F0	112F9	Khudawadi
+11300	11303	Grantha
+11305	1130C	Grantha
+1130F	11310	Grantha
+11313	11328	Grantha
+1132A	11330	Grantha
+11332	11333	Grantha
+11335	11339	Grantha
+1133C	11344	Grantha
+11347	11348	Grantha
+1134B	1134D	Grantha
+11350		Grantha
+11357		Grantha
+1135D	11363	Grantha
+11366	1136C	Grantha
+11370	11374	Grantha
+11480	114C7	Tirhuta
+114D0	114D9	Tirhuta
+11580	115B5	Siddham
+115B8	115DD	Siddham
+11600	11644	Modi
+11650	11659	Modi
+11680	116B7	Takri
+116C0	116C9	Takri
+11700	11719	Ahom
+1171D	1172B	Ahom
+11730	1173F	Ahom
+118A0	118F2	Warang_Citi
+118FF		Warang_Citi
+11AC0	11AF8	Pau_Cin_Hau
+12000	12399	Cuneiform
+12400	1246E	Cuneiform
+12470	12474	Cuneiform
+12480	12543	Cuneiform
+13000	1342E	Egyptian_Hieroglyphs
+14400	14646	Anatolian_Hieroglyphs
+16800	16A38	Bamum
+16A40	16A5E	Mro
+16A60	16A69	Mro
+16A6E	16A6F	Mro
+16AD0	16AED	Bassa_Vah
+16AF0	16AF5	Bassa_Vah
+16B00	16B45	Pahawh_Hmong
+16B50	16B59	Pahawh_Hmong
+16B5B	16B61	Pahawh_Hmong
+16B63	16B77	Pahawh_Hmong
+16B7D	16B8F	Pahawh_Hmong
+16F00	16F44	Miao
+16F50	16F7E	Miao
+16F8F	16F9F	Miao
+1B000		Katakana
+1B001		Hiragana
+1BC00	1BC6A	Duployan
+1BC70	1BC7C	Duployan
+1BC80	1BC88	Duployan
+1BC90	1BC99	Duployan
+1BC9C	1BCA3	Duployan
+1D000	1D0F5	Common
+1D100	1D126	Common
+1D129	1D166	Common
+1D167	1D169	Inherited
+1D16A	1D17A	Common
+1D17B	1D182	Inherited
+1D183	1D184	Common
+1D185	1D18B	Inherited
+1D18C	1D1A9	Common
+1D1AA	1D1AD	Inherited
+1D1AE	1D1E8	Common
+1D200	1D245	Greek
+1D300	1D356	Common
+1D360	1D371	Han
+1D400	1D454	Common
+1D456	1D49C	Common
+1D49E	1D49F	Common
+1D4A2		Common
+1D4A5	1D4A6	Common
+1D4A9	1D4AC	Common
+1D4AE	1D4B9	Common
+1D4BB		Common
+1D4BD	1D4C3	Common
+1D4C5	1D505	Common
+1D507	1D50A	Common
+1D50D	1D514	Common
+1D516	1D51C	Common
+1D51E	1D539	Common
+1D53B	1D53E	Common
+1D540	1D544	Common
+1D546		Common
+1D54A	1D550	Common
+1D552	1D6A5	Common
+1D6A8	1D7CB	Common
+1D7CE	1D7FF	Common
+1D800	1DA8B	SignWriting
+1DA9B	1DA9F	SignWriting
+1DAA1	1DAAF	SignWriting
+1E800	1E8C4	Mende_Kikakui
+1E8C7	1E8D6	Mende_Kikakui
+1EE00	1EE03	Arabic
+1EE05	1EE1F	Arabic
+1EE21	1EE22	Arabic
+1EE24		Arabic
+1EE27		Arabic
+1EE29	1EE32	Arabic
+1EE34	1EE37	Arabic
+1EE39		Arabic
+1EE3B		Arabic
+1EE42		Arabic
+1EE47		Arabic
+1EE49		Arabic
+1EE4B		Arabic
+1EE4D	1EE4F	Arabic
+1EE51	1EE52	Arabic
+1EE54		Arabic
+1EE57		Arabic
+1EE59		Arabic
+1EE5B		Arabic
+1EE5D		Arabic
+1EE5F		Arabic
+1EE61	1EE62	Arabic
+1EE64		Arabic
+1EE67	1EE6A	Arabic
+1EE6C	1EE72	Arabic
+1EE74	1EE77	Arabic
+1EE79	1EE7C	Arabic
+1EE7E		Arabic
+1EE80	1EE89	Arabic
+1EE8B	1EE9B	Arabic
+1EEA1	1EEA3	Arabic
+1EEA5	1EEA9	Arabic
+1EEAB	1EEBB	Arabic
+1EEF0	1EEF1	Arabic
+1F000	1F02B	Common
+1F030	1F093	Common
+1F0A0	1F0AE	Common
+1F0B1	1F0BF	Common
+1F0C1	1F0CF	Common
+1F0D1	1F0F5	Common
+1F100	1F10C	Common
+1F110	1F12E	Common
+1F130	1F16B	Common
+1F170	1F19A	Common
+1F1E6	1F1FF	Common
+1F200		Hiragana
+1F201	1F202	Common
+1F210	1F23A	Common
+1F240	1F248	Common
+1F250	1F251	Common
+1F300	1F579	Common
+1F57B	1F5A3	Common
+1F5A5	1F6D0	Common
+1F6E0	1F6EC	Common
+1F6F0	1F6F3	Common
+1F700	1F773	Common
+1F780	1F7D4	Common
+1F800	1F80B	Common
+1F810	1F847	Common
+1F850	1F859	Common
+1F860	1F887	Common
+1F890	1F8AD	Common
+1F910	1F918	Common
+1F980	1F984	Common
+1F9C0		Common
+20000	2A6D6	Han
+2A700	2B734	Han
+2B740	2B81D	Han
+2B820	2CEA1	Han
+2F800	2FA1D	Han
+E0001		Common
+E0020	E007F	Common
+E0100	E01EF	Inherited
+END
diff --git a/lib/5.24.1/unicore/To/Tc.pl b/lib/5.24.1/unicore/To/Tc.pl
new file mode 100644
index 00000000..de7b661d
--- /dev/null
+++ b/lib/5.24.1/unicore/To/Tc.pl
@@ -0,0 +1,733 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+# The mappings in the non-hash portion of this file must be modified to get the
+# correct values by adding the code point ordinal number to each one that is
+# numeric.
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToTc'}{'format'} = 'ax'; # mapped value in hex; some entries need adjustment
+$utf8::SwashInfo{'ToTc'}{'specials_name'} = 'utf8::ToSpecTc'; # Name of hash of special mappings
+$utf8::SwashInfo{'ToTc'}{'missing'} = '0'; # code point maps to itself
+
+# Some code points require special handling because their mappings are each to
+# multiple code points.  These do not appear in the main body, but are defined
+# in the hash below.
+
+# Each key is the string of N bytes that together make up the UTF-8 encoding
+# for the code point.  (i.e. the same as looking at the code point's UTF-8
+# under "use bytes").  Each value is the UTF-8 of the translation, for speed.
+%utf8::ToSpecTc = (
+"\xC3\x9F" => "\x{0053}\x{0073}",             # U+00DF => 0053 0073
+"\xC5\x89" => "\x{02BC}\x{004E}",             # U+0149 => 02BC 004E
+"\xC7\xB0" => "\x{004A}\x{030C}",             # U+01F0 => 004A 030C
+"\xCE\x90" => "\x{0399}\x{0308}\x{0301}",     # U+0390 => 0399 0308 0301
+"\xCE\xB0" => "\x{03A5}\x{0308}\x{0301}",     # U+03B0 => 03A5 0308 0301
+"\xD6\x87" => "\x{0535}\x{0582}",             # U+0587 => 0535 0582
+"\xE1\xBA\x96" => "\x{0048}\x{0331}",         # U+1E96 => 0048 0331
+"\xE1\xBA\x97" => "\x{0054}\x{0308}",         # U+1E97 => 0054 0308
+"\xE1\xBA\x98" => "\x{0057}\x{030A}",         # U+1E98 => 0057 030A
+"\xE1\xBA\x99" => "\x{0059}\x{030A}",         # U+1E99 => 0059 030A
+"\xE1\xBA\x9A" => "\x{0041}\x{02BE}",         # U+1E9A => 0041 02BE
+"\xE1\xBD\x90" => "\x{03A5}\x{0313}",         # U+1F50 => 03A5 0313
+"\xE1\xBD\x92" => "\x{03A5}\x{0313}\x{0300}", # U+1F52 => 03A5 0313 0300
+"\xE1\xBD\x94" => "\x{03A5}\x{0313}\x{0301}", # U+1F54 => 03A5 0313 0301
+"\xE1\xBD\x96" => "\x{03A5}\x{0313}\x{0342}", # U+1F56 => 03A5 0313 0342
+"\xE1\xBE\xB2" => "\x{1FBA}\x{0345}",         # U+1FB2 => 1FBA 0345
+"\xE1\xBE\xB4" => "\x{0386}\x{0345}",         # U+1FB4 => 0386 0345
+"\xE1\xBE\xB6" => "\x{0391}\x{0342}",         # U+1FB6 => 0391 0342
+"\xE1\xBE\xB7" => "\x{0391}\x{0342}\x{0345}", # U+1FB7 => 0391 0342 0345
+"\xE1\xBF\x82" => "\x{1FCA}\x{0345}",         # U+1FC2 => 1FCA 0345
+"\xE1\xBF\x84" => "\x{0389}\x{0345}",         # U+1FC4 => 0389 0345
+"\xE1\xBF\x86" => "\x{0397}\x{0342}",         # U+1FC6 => 0397 0342
+"\xE1\xBF\x87" => "\x{0397}\x{0342}\x{0345}", # U+1FC7 => 0397 0342 0345
+"\xE1\xBF\x92" => "\x{0399}\x{0308}\x{0300}", # U+1FD2 => 0399 0308 0300
+"\xE1\xBF\x93" => "\x{0399}\x{0308}\x{0301}", # U+1FD3 => 0399 0308 0301
+"\xE1\xBF\x96" => "\x{0399}\x{0342}",         # U+1FD6 => 0399 0342
+"\xE1\xBF\x97" => "\x{0399}\x{0308}\x{0342}", # U+1FD7 => 0399 0308 0342
+"\xE1\xBF\xA2" => "\x{03A5}\x{0308}\x{0300}", # U+1FE2 => 03A5 0308 0300
+"\xE1\xBF\xA3" => "\x{03A5}\x{0308}\x{0301}", # U+1FE3 => 03A5 0308 0301
+"\xE1\xBF\xA4" => "\x{03A1}\x{0313}",         # U+1FE4 => 03A1 0313
+"\xE1\xBF\xA6" => "\x{03A5}\x{0342}",         # U+1FE6 => 03A5 0342
+"\xE1\xBF\xA7" => "\x{03A5}\x{0308}\x{0342}", # U+1FE7 => 03A5 0308 0342
+"\xE1\xBF\xB2" => "\x{1FFA}\x{0345}",         # U+1FF2 => 1FFA 0345
+"\xE1\xBF\xB4" => "\x{038F}\x{0345}",         # U+1FF4 => 038F 0345
+"\xE1\xBF\xB6" => "\x{03A9}\x{0342}",         # U+1FF6 => 03A9 0342
+"\xE1\xBF\xB7" => "\x{03A9}\x{0342}\x{0345}", # U+1FF7 => 03A9 0342 0345
+"\xEF\xAC\x80" => "\x{0046}\x{0066}",         # U+FB00 => 0046 0066
+"\xEF\xAC\x81" => "\x{0046}\x{0069}",         # U+FB01 => 0046 0069
+"\xEF\xAC\x82" => "\x{0046}\x{006C}",         # U+FB02 => 0046 006C
+"\xEF\xAC\x83" => "\x{0046}\x{0066}\x{0069}", # U+FB03 => 0046 0066 0069
+"\xEF\xAC\x84" => "\x{0046}\x{0066}\x{006C}", # U+FB04 => 0046 0066 006C
+"\xEF\xAC\x85" => "\x{0053}\x{0074}",         # U+FB05 => 0053 0074
+"\xEF\xAC\x86" => "\x{0053}\x{0074}",         # U+FB06 => 0053 0074
+"\xEF\xAC\x93" => "\x{0544}\x{0576}",         # U+FB13 => 0544 0576
+"\xEF\xAC\x94" => "\x{0544}\x{0565}",         # U+FB14 => 0544 0565
+"\xEF\xAC\x95" => "\x{0544}\x{056B}",         # U+FB15 => 0544 056B
+"\xEF\xAC\x96" => "\x{054E}\x{0576}",         # U+FB16 => 054E 0576
+"\xEF\xAC\x97" => "\x{0544}\x{056D}",         # U+FB17 => 0544 056D
+);
+
+return <<'END';
+61	7A	41
+B5		39C
+E0	F6	C0
+F8	FE	D8
+FF		178
+101		100
+103		102
+105		104
+107		106
+109		108
+10B		10A
+10D		10C
+10F		10E
+111		110
+113		112
+115		114
+117		116
+119		118
+11B		11A
+11D		11C
+11F		11E
+121		120
+123		122
+125		124
+127		126
+129		128
+12B		12A
+12D		12C
+12F		12E
+131		49
+133		132
+135		134
+137		136
+13A		139
+13C		13B
+13E		13D
+140		13F
+142		141
+144		143
+146		145
+148		147
+14B		14A
+14D		14C
+14F		14E
+151		150
+153		152
+155		154
+157		156
+159		158
+15B		15A
+15D		15C
+15F		15E
+161		160
+163		162
+165		164
+167		166
+169		168
+16B		16A
+16D		16C
+16F		16E
+171		170
+173		172
+175		174
+177		176
+17A		179
+17C		17B
+17E		17D
+17F		53
+180		243
+183		182
+185		184
+188		187
+18C		18B
+192		191
+195		1F6
+199		198
+19A		23D
+19E		220
+1A1		1A0
+1A3		1A2
+1A5		1A4
+1A8		1A7
+1AD		1AC
+1B0		1AF
+1B4		1B3
+1B6		1B5
+1B9		1B8
+1BD		1BC
+1BF		1F7
+1C4		1C5
+1C6		1C5
+1C7		1C8
+1C9		1C8
+1CA		1CB
+1CC		1CB
+1CE		1CD
+1D0		1CF
+1D2		1D1
+1D4		1D3
+1D6		1D5
+1D8		1D7
+1DA		1D9
+1DC		1DB
+1DD		18E
+1DF		1DE
+1E1		1E0
+1E3		1E2
+1E5		1E4
+1E7		1E6
+1E9		1E8
+1EB		1EA
+1ED		1EC
+1EF		1EE
+1F1		1F2
+1F3		1F2
+1F5		1F4
+1F9		1F8
+1FB		1FA
+1FD		1FC
+1FF		1FE
+201		200
+203		202
+205		204
+207		206
+209		208
+20B		20A
+20D		20C
+20F		20E
+211		210
+213		212
+215		214
+217		216
+219		218
+21B		21A
+21D		21C
+21F		21E
+223		222
+225		224
+227		226
+229		228
+22B		22A
+22D		22C
+22F		22E
+231		230
+233		232
+23C		23B
+23F	240	2C7E
+242		241
+247		246
+249		248
+24B		24A
+24D		24C
+24F		24E
+250		2C6F
+251		2C6D
+252		2C70
+253		181
+254		186
+256	257	189
+259		18F
+25B		190
+25C		A7AB
+260		193
+261		A7AC
+263		194
+265		A78D
+266		A7AA
+268		197
+269		196
+26B		2C62
+26C		A7AD
+26F		19C
+271		2C6E
+272		19D
+275		19F
+27D		2C64
+280		1A6
+283		1A9
+287		A7B1
+288		1AE
+289		244
+28A	28B	1B1
+28C		245
+292		1B7
+29D		A7B2
+29E		A7B0
+345		399
+371		370
+373		372
+377		376
+37B	37D	3FD
+3AC		386
+3AD	3AF	388
+3B1	3C1	391
+3C2		3A3
+3C3	3CB	3A3
+3CC		38C
+3CD	3CE	38E
+3D0		392
+3D1		398
+3D5		3A6
+3D6		3A0
+3D7		3CF
+3D9		3D8
+3DB		3DA
+3DD		3DC
+3DF		3DE
+3E1		3E0
+3E3		3E2
+3E5		3E4
+3E7		3E6
+3E9		3E8
+3EB		3EA
+3ED		3EC
+3EF		3EE
+3F0		39A
+3F1		3A1
+3F2		3F9
+3F3		37F
+3F5		395
+3F8		3F7
+3FB		3FA
+430	44F	410
+450	45F	400
+461		460
+463		462
+465		464
+467		466
+469		468
+46B		46A
+46D		46C
+46F		46E
+471		470
+473		472
+475		474
+477		476
+479		478
+47B		47A
+47D		47C
+47F		47E
+481		480
+48B		48A
+48D		48C
+48F		48E
+491		490
+493		492
+495		494
+497		496
+499		498
+49B		49A
+49D		49C
+49F		49E
+4A1		4A0
+4A3		4A2
+4A5		4A4
+4A7		4A6
+4A9		4A8
+4AB		4AA
+4AD		4AC
+4AF		4AE
+4B1		4B0
+4B3		4B2
+4B5		4B4
+4B7		4B6
+4B9		4B8
+4BB		4BA
+4BD		4BC
+4BF		4BE
+4C2		4C1
+4C4		4C3
+4C6		4C5
+4C8		4C7
+4CA		4C9
+4CC		4CB
+4CE		4CD
+4CF		4C0
+4D1		4D0
+4D3		4D2
+4D5		4D4
+4D7		4D6
+4D9		4D8
+4DB		4DA
+4DD		4DC
+4DF		4DE
+4E1		4E0
+4E3		4E2
+4E5		4E4
+4E7		4E6
+4E9		4E8
+4EB		4EA
+4ED		4EC
+4EF		4EE
+4F1		4F0
+4F3		4F2
+4F5		4F4
+4F7		4F6
+4F9		4F8
+4FB		4FA
+4FD		4FC
+4FF		4FE
+501		500
+503		502
+505		504
+507		506
+509		508
+50B		50A
+50D		50C
+50F		50E
+511		510
+513		512
+515		514
+517		516
+519		518
+51B		51A
+51D		51C
+51F		51E
+521		520
+523		522
+525		524
+527		526
+529		528
+52B		52A
+52D		52C
+52F		52E
+561	586	531
+13F8	13FD	13F0
+1D79		A77D
+1D7D		2C63
+1E01		1E00
+1E03		1E02
+1E05		1E04
+1E07		1E06
+1E09		1E08
+1E0B		1E0A
+1E0D		1E0C
+1E0F		1E0E
+1E11		1E10
+1E13		1E12
+1E15		1E14
+1E17		1E16
+1E19		1E18
+1E1B		1E1A
+1E1D		1E1C
+1E1F		1E1E
+1E21		1E20
+1E23		1E22
+1E25		1E24
+1E27		1E26
+1E29		1E28
+1E2B		1E2A
+1E2D		1E2C
+1E2F		1E2E
+1E31		1E30
+1E33		1E32
+1E35		1E34
+1E37		1E36
+1E39		1E38
+1E3B		1E3A
+1E3D		1E3C
+1E3F		1E3E
+1E41		1E40
+1E43		1E42
+1E45		1E44
+1E47		1E46
+1E49		1E48
+1E4B		1E4A
+1E4D		1E4C
+1E4F		1E4E
+1E51		1E50
+1E53		1E52
+1E55		1E54
+1E57		1E56
+1E59		1E58
+1E5B		1E5A
+1E5D		1E5C
+1E5F		1E5E
+1E61		1E60
+1E63		1E62
+1E65		1E64
+1E67		1E66
+1E69		1E68
+1E6B		1E6A
+1E6D		1E6C
+1E6F		1E6E
+1E71		1E70
+1E73		1E72
+1E75		1E74
+1E77		1E76
+1E79		1E78
+1E7B		1E7A
+1E7D		1E7C
+1E7F		1E7E
+1E81		1E80
+1E83		1E82
+1E85		1E84
+1E87		1E86
+1E89		1E88
+1E8B		1E8A
+1E8D		1E8C
+1E8F		1E8E
+1E91		1E90
+1E93		1E92
+1E95		1E94
+1E9B		1E60
+1EA1		1EA0
+1EA3		1EA2
+1EA5		1EA4
+1EA7		1EA6
+1EA9		1EA8
+1EAB		1EAA
+1EAD		1EAC
+1EAF		1EAE
+1EB1		1EB0
+1EB3		1EB2
+1EB5		1EB4
+1EB7		1EB6
+1EB9		1EB8
+1EBB		1EBA
+1EBD		1EBC
+1EBF		1EBE
+1EC1		1EC0
+1EC3		1EC2
+1EC5		1EC4
+1EC7		1EC6
+1EC9		1EC8
+1ECB		1ECA
+1ECD		1ECC
+1ECF		1ECE
+1ED1		1ED0
+1ED3		1ED2
+1ED5		1ED4
+1ED7		1ED6
+1ED9		1ED8
+1EDB		1EDA
+1EDD		1EDC
+1EDF		1EDE
+1EE1		1EE0
+1EE3		1EE2
+1EE5		1EE4
+1EE7		1EE6
+1EE9		1EE8
+1EEB		1EEA
+1EED		1EEC
+1EEF		1EEE
+1EF1		1EF0
+1EF3		1EF2
+1EF5		1EF4
+1EF7		1EF6
+1EF9		1EF8
+1EFB		1EFA
+1EFD		1EFC
+1EFF		1EFE
+1F00	1F07	1F08
+1F10	1F15	1F18
+1F20	1F27	1F28
+1F30	1F37	1F38
+1F40	1F45	1F48
+1F51		1F59
+1F53		1F5B
+1F55		1F5D
+1F57		1F5F
+1F60	1F67	1F68
+1F70	1F71	1FBA
+1F72	1F75	1FC8
+1F76	1F77	1FDA
+1F78	1F79	1FF8
+1F7A	1F7B	1FEA
+1F7C	1F7D	1FFA
+1F80	1F87	1F88
+1F90	1F97	1F98
+1FA0	1FA7	1FA8
+1FB0	1FB1	1FB8
+1FB3		1FBC
+1FBE		399
+1FC3		1FCC
+1FD0	1FD1	1FD8
+1FE0	1FE1	1FE8
+1FE5		1FEC
+1FF3		1FFC
+214E		2132
+2170	217F	2160
+2184		2183
+24D0	24E9	24B6
+2C30	2C5E	2C00
+2C61		2C60
+2C65		23A
+2C66		23E
+2C68		2C67
+2C6A		2C69
+2C6C		2C6B
+2C73		2C72
+2C76		2C75
+2C81		2C80
+2C83		2C82
+2C85		2C84
+2C87		2C86
+2C89		2C88
+2C8B		2C8A
+2C8D		2C8C
+2C8F		2C8E
+2C91		2C90
+2C93		2C92
+2C95		2C94
+2C97		2C96
+2C99		2C98
+2C9B		2C9A
+2C9D		2C9C
+2C9F		2C9E
+2CA1		2CA0
+2CA3		2CA2
+2CA5		2CA4
+2CA7		2CA6
+2CA9		2CA8
+2CAB		2CAA
+2CAD		2CAC
+2CAF		2CAE
+2CB1		2CB0
+2CB3		2CB2
+2CB5		2CB4
+2CB7		2CB6
+2CB9		2CB8
+2CBB		2CBA
+2CBD		2CBC
+2CBF		2CBE
+2CC1		2CC0
+2CC3		2CC2
+2CC5		2CC4
+2CC7		2CC6
+2CC9		2CC8
+2CCB		2CCA
+2CCD		2CCC
+2CCF		2CCE
+2CD1		2CD0
+2CD3		2CD2
+2CD5		2CD4
+2CD7		2CD6
+2CD9		2CD8
+2CDB		2CDA
+2CDD		2CDC
+2CDF		2CDE
+2CE1		2CE0
+2CE3		2CE2
+2CEC		2CEB
+2CEE		2CED
+2CF3		2CF2
+2D00	2D25	10A0
+2D27		10C7
+2D2D		10CD
+A641		A640
+A643		A642
+A645		A644
+A647		A646
+A649		A648
+A64B		A64A
+A64D		A64C
+A64F		A64E
+A651		A650
+A653		A652
+A655		A654
+A657		A656
+A659		A658
+A65B		A65A
+A65D		A65C
+A65F		A65E
+A661		A660
+A663		A662
+A665		A664
+A667		A666
+A669		A668
+A66B		A66A
+A66D		A66C
+A681		A680
+A683		A682
+A685		A684
+A687		A686
+A689		A688
+A68B		A68A
+A68D		A68C
+A68F		A68E
+A691		A690
+A693		A692
+A695		A694
+A697		A696
+A699		A698
+A69B		A69A
+A723		A722
+A725		A724
+A727		A726
+A729		A728
+A72B		A72A
+A72D		A72C
+A72F		A72E
+A733		A732
+A735		A734
+A737		A736
+A739		A738
+A73B		A73A
+A73D		A73C
+A73F		A73E
+A741		A740
+A743		A742
+A745		A744
+A747		A746
+A749		A748
+A74B		A74A
+A74D		A74C
+A74F		A74E
+A751		A750
+A753		A752
+A755		A754
+A757		A756
+A759		A758
+A75B		A75A
+A75D		A75C
+A75F		A75E
+A761		A760
+A763		A762
+A765		A764
+A767		A766
+A769		A768
+A76B		A76A
+A76D		A76C
+A76F		A76E
+A77A		A779
+A77C		A77B
+A77F		A77E
+A781		A780
+A783		A782
+A785		A784
+A787		A786
+A78C		A78B
+A791		A790
+A793		A792
+A797		A796
+A799		A798
+A79B		A79A
+A79D		A79C
+A79F		A79E
+A7A1		A7A0
+A7A3		A7A2
+A7A5		A7A4
+A7A7		A7A6
+A7A9		A7A8
+A7B5		A7B4
+A7B7		A7B6
+AB53		A7B3
+AB70	ABBF	13A0
+FF41	FF5A	FF21
+10428	1044F	10400
+10CC0	10CF2	10C80
+118C0	118DF	118A0
+END
diff --git a/lib/5.24.1/unicore/To/Title.pl b/lib/5.24.1/unicore/To/Title.pl
new file mode 100644
index 00000000..4cb528bc
--- /dev/null
+++ b/lib/5.24.1/unicore/To/Title.pl
@@ -0,0 +1,1324 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   IT IS DEPRECATED TO USE THIS FILE   !!!!!!!
+
+# This file is for internal use by core Perl only.  It is retained for
+# backwards compatibility with applications that may have come to rely on it,
+# but its format and even its name or existence are subject to change without
+# notice in a future Perl version.  Don't use it directly.  Instead, its
+# contents are now retrievable through a stable API in the Unicode::UCD
+# module: Unicode::UCD::prop_invmap('Titlecase_Mapping') (Values for individual
+# code points can be retrieved via Unicode::UCD::charprop());
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToTitle'}{'format'} = 'x'; # non-negative hex whole number; a code point
+$utf8::SwashInfo{'ToTitle'}{'specials_name'} = 'utf8::ToSpecTitle'; # Name of hash of special mappings
+$utf8::SwashInfo{'ToTitle'}{'missing'} = '<code point>'; # code point maps to itself
+
+# Some code points require special handling because their mappings are each to
+# multiple code points.  These do not appear in the main body, but are defined
+# in the hash below.
+
+# Each key is the string of N bytes that together make up the UTF-8 encoding
+# for the code point.  (i.e. the same as looking at the code point's UTF-8
+# under "use bytes").  Each value is the UTF-8 of the translation, for speed.
+%utf8::ToSpecTitle = (
+"\xC3\x9F" => "\x{0053}\x{0073}",             # U+00DF => 0053 0073
+"\xC5\x89" => "\x{02BC}\x{004E}",             # U+0149 => 02BC 004E
+"\xC7\xB0" => "\x{004A}\x{030C}",             # U+01F0 => 004A 030C
+"\xCE\x90" => "\x{0399}\x{0308}\x{0301}",     # U+0390 => 0399 0308 0301
+"\xCE\xB0" => "\x{03A5}\x{0308}\x{0301}",     # U+03B0 => 03A5 0308 0301
+"\xD6\x87" => "\x{0535}\x{0582}",             # U+0587 => 0535 0582
+"\xE1\xBA\x96" => "\x{0048}\x{0331}",         # U+1E96 => 0048 0331
+"\xE1\xBA\x97" => "\x{0054}\x{0308}",         # U+1E97 => 0054 0308
+"\xE1\xBA\x98" => "\x{0057}\x{030A}",         # U+1E98 => 0057 030A
+"\xE1\xBA\x99" => "\x{0059}\x{030A}",         # U+1E99 => 0059 030A
+"\xE1\xBA\x9A" => "\x{0041}\x{02BE}",         # U+1E9A => 0041 02BE
+"\xE1\xBD\x90" => "\x{03A5}\x{0313}",         # U+1F50 => 03A5 0313
+"\xE1\xBD\x92" => "\x{03A5}\x{0313}\x{0300}", # U+1F52 => 03A5 0313 0300
+"\xE1\xBD\x94" => "\x{03A5}\x{0313}\x{0301}", # U+1F54 => 03A5 0313 0301
+"\xE1\xBD\x96" => "\x{03A5}\x{0313}\x{0342}", # U+1F56 => 03A5 0313 0342
+"\xE1\xBE\xB2" => "\x{1FBA}\x{0345}",         # U+1FB2 => 1FBA 0345
+"\xE1\xBE\xB4" => "\x{0386}\x{0345}",         # U+1FB4 => 0386 0345
+"\xE1\xBE\xB6" => "\x{0391}\x{0342}",         # U+1FB6 => 0391 0342
+"\xE1\xBE\xB7" => "\x{0391}\x{0342}\x{0345}", # U+1FB7 => 0391 0342 0345
+"\xE1\xBF\x82" => "\x{1FCA}\x{0345}",         # U+1FC2 => 1FCA 0345
+"\xE1\xBF\x84" => "\x{0389}\x{0345}",         # U+1FC4 => 0389 0345
+"\xE1\xBF\x86" => "\x{0397}\x{0342}",         # U+1FC6 => 0397 0342
+"\xE1\xBF\x87" => "\x{0397}\x{0342}\x{0345}", # U+1FC7 => 0397 0342 0345
+"\xE1\xBF\x92" => "\x{0399}\x{0308}\x{0300}", # U+1FD2 => 0399 0308 0300
+"\xE1\xBF\x93" => "\x{0399}\x{0308}\x{0301}", # U+1FD3 => 0399 0308 0301
+"\xE1\xBF\x96" => "\x{0399}\x{0342}",         # U+1FD6 => 0399 0342
+"\xE1\xBF\x97" => "\x{0399}\x{0308}\x{0342}", # U+1FD7 => 0399 0308 0342
+"\xE1\xBF\xA2" => "\x{03A5}\x{0308}\x{0300}", # U+1FE2 => 03A5 0308 0300
+"\xE1\xBF\xA3" => "\x{03A5}\x{0308}\x{0301}", # U+1FE3 => 03A5 0308 0301
+"\xE1\xBF\xA4" => "\x{03A1}\x{0313}",         # U+1FE4 => 03A1 0313
+"\xE1\xBF\xA6" => "\x{03A5}\x{0342}",         # U+1FE6 => 03A5 0342
+"\xE1\xBF\xA7" => "\x{03A5}\x{0308}\x{0342}", # U+1FE7 => 03A5 0308 0342
+"\xE1\xBF\xB2" => "\x{1FFA}\x{0345}",         # U+1FF2 => 1FFA 0345
+"\xE1\xBF\xB4" => "\x{038F}\x{0345}",         # U+1FF4 => 038F 0345
+"\xE1\xBF\xB6" => "\x{03A9}\x{0342}",         # U+1FF6 => 03A9 0342
+"\xE1\xBF\xB7" => "\x{03A9}\x{0342}\x{0345}", # U+1FF7 => 03A9 0342 0345
+"\xEF\xAC\x80" => "\x{0046}\x{0066}",         # U+FB00 => 0046 0066
+"\xEF\xAC\x81" => "\x{0046}\x{0069}",         # U+FB01 => 0046 0069
+"\xEF\xAC\x82" => "\x{0046}\x{006C}",         # U+FB02 => 0046 006C
+"\xEF\xAC\x83" => "\x{0046}\x{0066}\x{0069}", # U+FB03 => 0046 0066 0069
+"\xEF\xAC\x84" => "\x{0046}\x{0066}\x{006C}", # U+FB04 => 0046 0066 006C
+"\xEF\xAC\x85" => "\x{0053}\x{0074}",         # U+FB05 => 0053 0074
+"\xEF\xAC\x86" => "\x{0053}\x{0074}",         # U+FB06 => 0053 0074
+"\xEF\xAC\x93" => "\x{0544}\x{0576}",         # U+FB13 => 0544 0576
+"\xEF\xAC\x94" => "\x{0544}\x{0565}",         # U+FB14 => 0544 0565
+"\xEF\xAC\x95" => "\x{0544}\x{056B}",         # U+FB15 => 0544 056B
+"\xEF\xAC\x96" => "\x{054E}\x{0576}",         # U+FB16 => 054E 0576
+"\xEF\xAC\x97" => "\x{0544}\x{056D}",         # U+FB17 => 0544 056D
+);
+
+return <<'END';
+0061		0041
+0062		0042
+0063		0043
+0064		0044
+0065		0045
+0066		0046
+0067		0047
+0068		0048
+0069		0049
+006A		004A
+006B		004B
+006C		004C
+006D		004D
+006E		004E
+006F		004F
+0070		0050
+0071		0051
+0072		0052
+0073		0053
+0074		0054
+0075		0055
+0076		0056
+0077		0057
+0078		0058
+0079		0059
+007A		005A
+00B5		039C
+00E0		00C0
+00E1		00C1
+00E2		00C2
+00E3		00C3
+00E4		00C4
+00E5		00C5
+00E6		00C6
+00E7		00C7
+00E8		00C8
+00E9		00C9
+00EA		00CA
+00EB		00CB
+00EC		00CC
+00ED		00CD
+00EE		00CE
+00EF		00CF
+00F0		00D0
+00F1		00D1
+00F2		00D2
+00F3		00D3
+00F4		00D4
+00F5		00D5
+00F6		00D6
+00F8		00D8
+00F9		00D9
+00FA		00DA
+00FB		00DB
+00FC		00DC
+00FD		00DD
+00FE		00DE
+00FF		0178
+0101		0100
+0103		0102
+0105		0104
+0107		0106
+0109		0108
+010B		010A
+010D		010C
+010F		010E
+0111		0110
+0113		0112
+0115		0114
+0117		0116
+0119		0118
+011B		011A
+011D		011C
+011F		011E
+0121		0120
+0123		0122
+0125		0124
+0127		0126
+0129		0128
+012B		012A
+012D		012C
+012F		012E
+0131		0049
+0133		0132
+0135		0134
+0137		0136
+013A		0139
+013C		013B
+013E		013D
+0140		013F
+0142		0141
+0144		0143
+0146		0145
+0148		0147
+014B		014A
+014D		014C
+014F		014E
+0151		0150
+0153		0152
+0155		0154
+0157		0156
+0159		0158
+015B		015A
+015D		015C
+015F		015E
+0161		0160
+0163		0162
+0165		0164
+0167		0166
+0169		0168
+016B		016A
+016D		016C
+016F		016E
+0171		0170
+0173		0172
+0175		0174
+0177		0176
+017A		0179
+017C		017B
+017E		017D
+017F		0053
+0180		0243
+0183		0182
+0185		0184
+0188		0187
+018C		018B
+0192		0191
+0195		01F6
+0199		0198
+019A		023D
+019E		0220
+01A1		01A0
+01A3		01A2
+01A5		01A4
+01A8		01A7
+01AD		01AC
+01B0		01AF
+01B4		01B3
+01B6		01B5
+01B9		01B8
+01BD		01BC
+01BF		01F7
+01C4		01C5
+01C6		01C5
+01C7		01C8
+01C9		01C8
+01CA		01CB
+01CC		01CB
+01CE		01CD
+01D0		01CF
+01D2		01D1
+01D4		01D3
+01D6		01D5
+01D8		01D7
+01DA		01D9
+01DC		01DB
+01DD		018E
+01DF		01DE
+01E1		01E0
+01E3		01E2
+01E5		01E4
+01E7		01E6
+01E9		01E8
+01EB		01EA
+01ED		01EC
+01EF		01EE
+01F1		01F2
+01F3		01F2
+01F5		01F4
+01F9		01F8
+01FB		01FA
+01FD		01FC
+01FF		01FE
+0201		0200
+0203		0202
+0205		0204
+0207		0206
+0209		0208
+020B		020A
+020D		020C
+020F		020E
+0211		0210
+0213		0212
+0215		0214
+0217		0216
+0219		0218
+021B		021A
+021D		021C
+021F		021E
+0223		0222
+0225		0224
+0227		0226
+0229		0228
+022B		022A
+022D		022C
+022F		022E
+0231		0230
+0233		0232
+023C		023B
+023F		2C7E
+0240		2C7F
+0242		0241
+0247		0246
+0249		0248
+024B		024A
+024D		024C
+024F		024E
+0250		2C6F
+0251		2C6D
+0252		2C70
+0253		0181
+0254		0186
+0256		0189
+0257		018A
+0259		018F
+025B		0190
+025C		A7AB
+0260		0193
+0261		A7AC
+0263		0194
+0265		A78D
+0266		A7AA
+0268		0197
+0269		0196
+026B		2C62
+026C		A7AD
+026F		019C
+0271		2C6E
+0272		019D
+0275		019F
+027D		2C64
+0280		01A6
+0283		01A9
+0287		A7B1
+0288		01AE
+0289		0244
+028A		01B1
+028B		01B2
+028C		0245
+0292		01B7
+029D		A7B2
+029E		A7B0
+0345		0399
+0371		0370
+0373		0372
+0377		0376
+037B		03FD
+037C		03FE
+037D		03FF
+03AC		0386
+03AD		0388
+03AE		0389
+03AF		038A
+03B1		0391
+03B2		0392
+03B3		0393
+03B4		0394
+03B5		0395
+03B6		0396
+03B7		0397
+03B8		0398
+03B9		0399
+03BA		039A
+03BB		039B
+03BC		039C
+03BD		039D
+03BE		039E
+03BF		039F
+03C0		03A0
+03C1		03A1
+03C2		03A3
+03C3		03A3
+03C4		03A4
+03C5		03A5
+03C6		03A6
+03C7		03A7
+03C8		03A8
+03C9		03A9
+03CA		03AA
+03CB		03AB
+03CC		038C
+03CD		038E
+03CE		038F
+03D0		0392
+03D1		0398
+03D5		03A6
+03D6		03A0
+03D7		03CF
+03D9		03D8
+03DB		03DA
+03DD		03DC
+03DF		03DE
+03E1		03E0
+03E3		03E2
+03E5		03E4
+03E7		03E6
+03E9		03E8
+03EB		03EA
+03ED		03EC
+03EF		03EE
+03F0		039A
+03F1		03A1
+03F2		03F9
+03F3		037F
+03F5		0395
+03F8		03F7
+03FB		03FA
+0430		0410
+0431		0411
+0432		0412
+0433		0413
+0434		0414
+0435		0415
+0436		0416
+0437		0417
+0438		0418
+0439		0419
+043A		041A
+043B		041B
+043C		041C
+043D		041D
+043E		041E
+043F		041F
+0440		0420
+0441		0421
+0442		0422
+0443		0423
+0444		0424
+0445		0425
+0446		0426
+0447		0427
+0448		0428
+0449		0429
+044A		042A
+044B		042B
+044C		042C
+044D		042D
+044E		042E
+044F		042F
+0450		0400
+0451		0401
+0452		0402
+0453		0403
+0454		0404
+0455		0405
+0456		0406
+0457		0407
+0458		0408
+0459		0409
+045A		040A
+045B		040B
+045C		040C
+045D		040D
+045E		040E
+045F		040F
+0461		0460
+0463		0462
+0465		0464
+0467		0466
+0469		0468
+046B		046A
+046D		046C
+046F		046E
+0471		0470
+0473		0472
+0475		0474
+0477		0476
+0479		0478
+047B		047A
+047D		047C
+047F		047E
+0481		0480
+048B		048A
+048D		048C
+048F		048E
+0491		0490
+0493		0492
+0495		0494
+0497		0496
+0499		0498
+049B		049A
+049D		049C
+049F		049E
+04A1		04A0
+04A3		04A2
+04A5		04A4
+04A7		04A6
+04A9		04A8
+04AB		04AA
+04AD		04AC
+04AF		04AE
+04B1		04B0
+04B3		04B2
+04B5		04B4
+04B7		04B6
+04B9		04B8
+04BB		04BA
+04BD		04BC
+04BF		04BE
+04C2		04C1
+04C4		04C3
+04C6		04C5
+04C8		04C7
+04CA		04C9
+04CC		04CB
+04CE		04CD
+04CF		04C0
+04D1		04D0
+04D3		04D2
+04D5		04D4
+04D7		04D6
+04D9		04D8
+04DB		04DA
+04DD		04DC
+04DF		04DE
+04E1		04E0
+04E3		04E2
+04E5		04E4
+04E7		04E6
+04E9		04E8
+04EB		04EA
+04ED		04EC
+04EF		04EE
+04F1		04F0
+04F3		04F2
+04F5		04F4
+04F7		04F6
+04F9		04F8
+04FB		04FA
+04FD		04FC
+04FF		04FE
+0501		0500
+0503		0502
+0505		0504
+0507		0506
+0509		0508
+050B		050A
+050D		050C
+050F		050E
+0511		0510
+0513		0512
+0515		0514
+0517		0516
+0519		0518
+051B		051A
+051D		051C
+051F		051E
+0521		0520
+0523		0522
+0525		0524
+0527		0526
+0529		0528
+052B		052A
+052D		052C
+052F		052E
+0561		0531
+0562		0532
+0563		0533
+0564		0534
+0565		0535
+0566		0536
+0567		0537
+0568		0538
+0569		0539
+056A		053A
+056B		053B
+056C		053C
+056D		053D
+056E		053E
+056F		053F
+0570		0540
+0571		0541
+0572		0542
+0573		0543
+0574		0544
+0575		0545
+0576		0546
+0577		0547
+0578		0548
+0579		0549
+057A		054A
+057B		054B
+057C		054C
+057D		054D
+057E		054E
+057F		054F
+0580		0550
+0581		0551
+0582		0552
+0583		0553
+0584		0554
+0585		0555
+0586		0556
+13F8		13F0
+13F9		13F1
+13FA		13F2
+13FB		13F3
+13FC		13F4
+13FD		13F5
+1D79		A77D
+1D7D		2C63
+1E01		1E00
+1E03		1E02
+1E05		1E04
+1E07		1E06
+1E09		1E08
+1E0B		1E0A
+1E0D		1E0C
+1E0F		1E0E
+1E11		1E10
+1E13		1E12
+1E15		1E14
+1E17		1E16
+1E19		1E18
+1E1B		1E1A
+1E1D		1E1C
+1E1F		1E1E
+1E21		1E20
+1E23		1E22
+1E25		1E24
+1E27		1E26
+1E29		1E28
+1E2B		1E2A
+1E2D		1E2C
+1E2F		1E2E
+1E31		1E30
+1E33		1E32
+1E35		1E34
+1E37		1E36
+1E39		1E38
+1E3B		1E3A
+1E3D		1E3C
+1E3F		1E3E
+1E41		1E40
+1E43		1E42
+1E45		1E44
+1E47		1E46
+1E49		1E48
+1E4B		1E4A
+1E4D		1E4C
+1E4F		1E4E
+1E51		1E50
+1E53		1E52
+1E55		1E54
+1E57		1E56
+1E59		1E58
+1E5B		1E5A
+1E5D		1E5C
+1E5F		1E5E
+1E61		1E60
+1E63		1E62
+1E65		1E64
+1E67		1E66
+1E69		1E68
+1E6B		1E6A
+1E6D		1E6C
+1E6F		1E6E
+1E71		1E70
+1E73		1E72
+1E75		1E74
+1E77		1E76
+1E79		1E78
+1E7B		1E7A
+1E7D		1E7C
+1E7F		1E7E
+1E81		1E80
+1E83		1E82
+1E85		1E84
+1E87		1E86
+1E89		1E88
+1E8B		1E8A
+1E8D		1E8C
+1E8F		1E8E
+1E91		1E90
+1E93		1E92
+1E95		1E94
+1E9B		1E60
+1EA1		1EA0
+1EA3		1EA2
+1EA5		1EA4
+1EA7		1EA6
+1EA9		1EA8
+1EAB		1EAA
+1EAD		1EAC
+1EAF		1EAE
+1EB1		1EB0
+1EB3		1EB2
+1EB5		1EB4
+1EB7		1EB6
+1EB9		1EB8
+1EBB		1EBA
+1EBD		1EBC
+1EBF		1EBE
+1EC1		1EC0
+1EC3		1EC2
+1EC5		1EC4
+1EC7		1EC6
+1EC9		1EC8
+1ECB		1ECA
+1ECD		1ECC
+1ECF		1ECE
+1ED1		1ED0
+1ED3		1ED2
+1ED5		1ED4
+1ED7		1ED6
+1ED9		1ED8
+1EDB		1EDA
+1EDD		1EDC
+1EDF		1EDE
+1EE1		1EE0
+1EE3		1EE2
+1EE5		1EE4
+1EE7		1EE6
+1EE9		1EE8
+1EEB		1EEA
+1EED		1EEC
+1EEF		1EEE
+1EF1		1EF0
+1EF3		1EF2
+1EF5		1EF4
+1EF7		1EF6
+1EF9		1EF8
+1EFB		1EFA
+1EFD		1EFC
+1EFF		1EFE
+1F00		1F08
+1F01		1F09
+1F02		1F0A
+1F03		1F0B
+1F04		1F0C
+1F05		1F0D
+1F06		1F0E
+1F07		1F0F
+1F10		1F18
+1F11		1F19
+1F12		1F1A
+1F13		1F1B
+1F14		1F1C
+1F15		1F1D
+1F20		1F28
+1F21		1F29
+1F22		1F2A
+1F23		1F2B
+1F24		1F2C
+1F25		1F2D
+1F26		1F2E
+1F27		1F2F
+1F30		1F38
+1F31		1F39
+1F32		1F3A
+1F33		1F3B
+1F34		1F3C
+1F35		1F3D
+1F36		1F3E
+1F37		1F3F
+1F40		1F48
+1F41		1F49
+1F42		1F4A
+1F43		1F4B
+1F44		1F4C
+1F45		1F4D
+1F51		1F59
+1F53		1F5B
+1F55		1F5D
+1F57		1F5F
+1F60		1F68
+1F61		1F69
+1F62		1F6A
+1F63		1F6B
+1F64		1F6C
+1F65		1F6D
+1F66		1F6E
+1F67		1F6F
+1F70		1FBA
+1F71		1FBB
+1F72		1FC8
+1F73		1FC9
+1F74		1FCA
+1F75		1FCB
+1F76		1FDA
+1F77		1FDB
+1F78		1FF8
+1F79		1FF9
+1F7A		1FEA
+1F7B		1FEB
+1F7C		1FFA
+1F7D		1FFB
+1F80		1F88
+1F81		1F89
+1F82		1F8A
+1F83		1F8B
+1F84		1F8C
+1F85		1F8D
+1F86		1F8E
+1F87		1F8F
+1F90		1F98
+1F91		1F99
+1F92		1F9A
+1F93		1F9B
+1F94		1F9C
+1F95		1F9D
+1F96		1F9E
+1F97		1F9F
+1FA0		1FA8
+1FA1		1FA9
+1FA2		1FAA
+1FA3		1FAB
+1FA4		1FAC
+1FA5		1FAD
+1FA6		1FAE
+1FA7		1FAF
+1FB0		1FB8
+1FB1		1FB9
+1FB3		1FBC
+1FBE		0399
+1FC3		1FCC
+1FD0		1FD8
+1FD1		1FD9
+1FE0		1FE8
+1FE1		1FE9
+1FE5		1FEC
+1FF3		1FFC
+214E		2132
+2170		2160
+2171		2161
+2172		2162
+2173		2163
+2174		2164
+2175		2165
+2176		2166
+2177		2167
+2178		2168
+2179		2169
+217A		216A
+217B		216B
+217C		216C
+217D		216D
+217E		216E
+217F		216F
+2184		2183
+24D0		24B6
+24D1		24B7
+24D2		24B8
+24D3		24B9
+24D4		24BA
+24D5		24BB
+24D6		24BC
+24D7		24BD
+24D8		24BE
+24D9		24BF
+24DA		24C0
+24DB		24C1
+24DC		24C2
+24DD		24C3
+24DE		24C4
+24DF		24C5
+24E0		24C6
+24E1		24C7
+24E2		24C8
+24E3		24C9
+24E4		24CA
+24E5		24CB
+24E6		24CC
+24E7		24CD
+24E8		24CE
+24E9		24CF
+2C30		2C00
+2C31		2C01
+2C32		2C02
+2C33		2C03
+2C34		2C04
+2C35		2C05
+2C36		2C06
+2C37		2C07
+2C38		2C08
+2C39		2C09
+2C3A		2C0A
+2C3B		2C0B
+2C3C		2C0C
+2C3D		2C0D
+2C3E		2C0E
+2C3F		2C0F
+2C40		2C10
+2C41		2C11
+2C42		2C12
+2C43		2C13
+2C44		2C14
+2C45		2C15
+2C46		2C16
+2C47		2C17
+2C48		2C18
+2C49		2C19
+2C4A		2C1A
+2C4B		2C1B
+2C4C		2C1C
+2C4D		2C1D
+2C4E		2C1E
+2C4F		2C1F
+2C50		2C20
+2C51		2C21
+2C52		2C22
+2C53		2C23
+2C54		2C24
+2C55		2C25
+2C56		2C26
+2C57		2C27
+2C58		2C28
+2C59		2C29
+2C5A		2C2A
+2C5B		2C2B
+2C5C		2C2C
+2C5D		2C2D
+2C5E		2C2E
+2C61		2C60
+2C65		023A
+2C66		023E
+2C68		2C67
+2C6A		2C69
+2C6C		2C6B
+2C73		2C72
+2C76		2C75
+2C81		2C80
+2C83		2C82
+2C85		2C84
+2C87		2C86
+2C89		2C88
+2C8B		2C8A
+2C8D		2C8C
+2C8F		2C8E
+2C91		2C90
+2C93		2C92
+2C95		2C94
+2C97		2C96
+2C99		2C98
+2C9B		2C9A
+2C9D		2C9C
+2C9F		2C9E
+2CA1		2CA0
+2CA3		2CA2
+2CA5		2CA4
+2CA7		2CA6
+2CA9		2CA8
+2CAB		2CAA
+2CAD		2CAC
+2CAF		2CAE
+2CB1		2CB0
+2CB3		2CB2
+2CB5		2CB4
+2CB7		2CB6
+2CB9		2CB8
+2CBB		2CBA
+2CBD		2CBC
+2CBF		2CBE
+2CC1		2CC0
+2CC3		2CC2
+2CC5		2CC4
+2CC7		2CC6
+2CC9		2CC8
+2CCB		2CCA
+2CCD		2CCC
+2CCF		2CCE
+2CD1		2CD0
+2CD3		2CD2
+2CD5		2CD4
+2CD7		2CD6
+2CD9		2CD8
+2CDB		2CDA
+2CDD		2CDC
+2CDF		2CDE
+2CE1		2CE0
+2CE3		2CE2
+2CEC		2CEB
+2CEE		2CED
+2CF3		2CF2
+2D00		10A0
+2D01		10A1
+2D02		10A2
+2D03		10A3
+2D04		10A4
+2D05		10A5
+2D06		10A6
+2D07		10A7
+2D08		10A8
+2D09		10A9
+2D0A		10AA
+2D0B		10AB
+2D0C		10AC
+2D0D		10AD
+2D0E		10AE
+2D0F		10AF
+2D10		10B0
+2D11		10B1
+2D12		10B2
+2D13		10B3
+2D14		10B4
+2D15		10B5
+2D16		10B6
+2D17		10B7
+2D18		10B8
+2D19		10B9
+2D1A		10BA
+2D1B		10BB
+2D1C		10BC
+2D1D		10BD
+2D1E		10BE
+2D1F		10BF
+2D20		10C0
+2D21		10C1
+2D22		10C2
+2D23		10C3
+2D24		10C4
+2D25		10C5
+2D27		10C7
+2D2D		10CD
+A641		A640
+A643		A642
+A645		A644
+A647		A646
+A649		A648
+A64B		A64A
+A64D		A64C
+A64F		A64E
+A651		A650
+A653		A652
+A655		A654
+A657		A656
+A659		A658
+A65B		A65A
+A65D		A65C
+A65F		A65E
+A661		A660
+A663		A662
+A665		A664
+A667		A666
+A669		A668
+A66B		A66A
+A66D		A66C
+A681		A680
+A683		A682
+A685		A684
+A687		A686
+A689		A688
+A68B		A68A
+A68D		A68C
+A68F		A68E
+A691		A690
+A693		A692
+A695		A694
+A697		A696
+A699		A698
+A69B		A69A
+A723		A722
+A725		A724
+A727		A726
+A729		A728
+A72B		A72A
+A72D		A72C
+A72F		A72E
+A733		A732
+A735		A734
+A737		A736
+A739		A738
+A73B		A73A
+A73D		A73C
+A73F		A73E
+A741		A740
+A743		A742
+A745		A744
+A747		A746
+A749		A748
+A74B		A74A
+A74D		A74C
+A74F		A74E
+A751		A750
+A753		A752
+A755		A754
+A757		A756
+A759		A758
+A75B		A75A
+A75D		A75C
+A75F		A75E
+A761		A760
+A763		A762
+A765		A764
+A767		A766
+A769		A768
+A76B		A76A
+A76D		A76C
+A76F		A76E
+A77A		A779
+A77C		A77B
+A77F		A77E
+A781		A780
+A783		A782
+A785		A784
+A787		A786
+A78C		A78B
+A791		A790
+A793		A792
+A797		A796
+A799		A798
+A79B		A79A
+A79D		A79C
+A79F		A79E
+A7A1		A7A0
+A7A3		A7A2
+A7A5		A7A4
+A7A7		A7A6
+A7A9		A7A8
+A7B5		A7B4
+A7B7		A7B6
+AB53		A7B3
+AB70		13A0
+AB71		13A1
+AB72		13A2
+AB73		13A3
+AB74		13A4
+AB75		13A5
+AB76		13A6
+AB77		13A7
+AB78		13A8
+AB79		13A9
+AB7A		13AA
+AB7B		13AB
+AB7C		13AC
+AB7D		13AD
+AB7E		13AE
+AB7F		13AF
+AB80		13B0
+AB81		13B1
+AB82		13B2
+AB83		13B3
+AB84		13B4
+AB85		13B5
+AB86		13B6
+AB87		13B7
+AB88		13B8
+AB89		13B9
+AB8A		13BA
+AB8B		13BB
+AB8C		13BC
+AB8D		13BD
+AB8E		13BE
+AB8F		13BF
+AB90		13C0
+AB91		13C1
+AB92		13C2
+AB93		13C3
+AB94		13C4
+AB95		13C5
+AB96		13C6
+AB97		13C7
+AB98		13C8
+AB99		13C9
+AB9A		13CA
+AB9B		13CB
+AB9C		13CC
+AB9D		13CD
+AB9E		13CE
+AB9F		13CF
+ABA0		13D0
+ABA1		13D1
+ABA2		13D2
+ABA3		13D3
+ABA4		13D4
+ABA5		13D5
+ABA6		13D6
+ABA7		13D7
+ABA8		13D8
+ABA9		13D9
+ABAA		13DA
+ABAB		13DB
+ABAC		13DC
+ABAD		13DD
+ABAE		13DE
+ABAF		13DF
+ABB0		13E0
+ABB1		13E1
+ABB2		13E2
+ABB3		13E3
+ABB4		13E4
+ABB5		13E5
+ABB6		13E6
+ABB7		13E7
+ABB8		13E8
+ABB9		13E9
+ABBA		13EA
+ABBB		13EB
+ABBC		13EC
+ABBD		13ED
+ABBE		13EE
+ABBF		13EF
+FF41		FF21
+FF42		FF22
+FF43		FF23
+FF44		FF24
+FF45		FF25
+FF46		FF26
+FF47		FF27
+FF48		FF28
+FF49		FF29
+FF4A		FF2A
+FF4B		FF2B
+FF4C		FF2C
+FF4D		FF2D
+FF4E		FF2E
+FF4F		FF2F
+FF50		FF30
+FF51		FF31
+FF52		FF32
+FF53		FF33
+FF54		FF34
+FF55		FF35
+FF56		FF36
+FF57		FF37
+FF58		FF38
+FF59		FF39
+FF5A		FF3A
+10428		10400
+10429		10401
+1042A		10402
+1042B		10403
+1042C		10404
+1042D		10405
+1042E		10406
+1042F		10407
+10430		10408
+10431		10409
+10432		1040A
+10433		1040B
+10434		1040C
+10435		1040D
+10436		1040E
+10437		1040F
+10438		10410
+10439		10411
+1043A		10412
+1043B		10413
+1043C		10414
+1043D		10415
+1043E		10416
+1043F		10417
+10440		10418
+10441		10419
+10442		1041A
+10443		1041B
+10444		1041C
+10445		1041D
+10446		1041E
+10447		1041F
+10448		10420
+10449		10421
+1044A		10422
+1044B		10423
+1044C		10424
+1044D		10425
+1044E		10426
+1044F		10427
+10CC0		10C80
+10CC1		10C81
+10CC2		10C82
+10CC3		10C83
+10CC4		10C84
+10CC5		10C85
+10CC6		10C86
+10CC7		10C87
+10CC8		10C88
+10CC9		10C89
+10CCA		10C8A
+10CCB		10C8B
+10CCC		10C8C
+10CCD		10C8D
+10CCE		10C8E
+10CCF		10C8F
+10CD0		10C90
+10CD1		10C91
+10CD2		10C92
+10CD3		10C93
+10CD4		10C94
+10CD5		10C95
+10CD6		10C96
+10CD7		10C97
+10CD8		10C98
+10CD9		10C99
+10CDA		10C9A
+10CDB		10C9B
+10CDC		10C9C
+10CDD		10C9D
+10CDE		10C9E
+10CDF		10C9F
+10CE0		10CA0
+10CE1		10CA1
+10CE2		10CA2
+10CE3		10CA3
+10CE4		10CA4
+10CE5		10CA5
+10CE6		10CA6
+10CE7		10CA7
+10CE8		10CA8
+10CE9		10CA9
+10CEA		10CAA
+10CEB		10CAB
+10CEC		10CAC
+10CED		10CAD
+10CEE		10CAE
+10CEF		10CAF
+10CF0		10CB0
+10CF1		10CB1
+10CF2		10CB2
+118C0		118A0
+118C1		118A1
+118C2		118A2
+118C3		118A3
+118C4		118A4
+118C5		118A5
+118C6		118A6
+118C7		118A7
+118C8		118A8
+118C9		118A9
+118CA		118AA
+118CB		118AB
+118CC		118AC
+118CD		118AD
+118CE		118AE
+118CF		118AF
+118D0		118B0
+118D1		118B1
+118D2		118B2
+118D3		118B3
+118D4		118B4
+118D5		118B5
+118D6		118B6
+118D7		118B7
+118D8		118B8
+118D9		118B9
+118DA		118BA
+118DB		118BB
+118DC		118BC
+118DD		118BD
+118DE		118BE
+118DF		118BF
+END
diff --git a/lib/5.24.1/unicore/To/Uc.pl b/lib/5.24.1/unicore/To/Uc.pl
new file mode 100644
index 00000000..7060923e
--- /dev/null
+++ b/lib/5.24.1/unicore/To/Uc.pl
@@ -0,0 +1,787 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+# The mappings in the non-hash portion of this file must be modified to get the
+# correct values by adding the code point ordinal number to each one that is
+# numeric.
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToUc'}{'format'} = 'ax'; # mapped value in hex; some entries need adjustment
+$utf8::SwashInfo{'ToUc'}{'specials_name'} = 'utf8::ToSpecUc'; # Name of hash of special mappings
+$utf8::SwashInfo{'ToUc'}{'missing'} = '0'; # code point maps to itself
+
+# Some code points require special handling because their mappings are each to
+# multiple code points.  These do not appear in the main body, but are defined
+# in the hash below.
+
+# Each key is the string of N bytes that together make up the UTF-8 encoding
+# for the code point.  (i.e. the same as looking at the code point's UTF-8
+# under "use bytes").  Each value is the UTF-8 of the translation, for speed.
+%utf8::ToSpecUc = (
+"\xC3\x9F" => "\x{0053}\x{0053}",             # U+00DF => 0053 0053
+"\xC5\x89" => "\x{02BC}\x{004E}",             # U+0149 => 02BC 004E
+"\xC7\xB0" => "\x{004A}\x{030C}",             # U+01F0 => 004A 030C
+"\xCE\x90" => "\x{0399}\x{0308}\x{0301}",     # U+0390 => 0399 0308 0301
+"\xCE\xB0" => "\x{03A5}\x{0308}\x{0301}",     # U+03B0 => 03A5 0308 0301
+"\xD6\x87" => "\x{0535}\x{0552}",             # U+0587 => 0535 0552
+"\xE1\xBA\x96" => "\x{0048}\x{0331}",         # U+1E96 => 0048 0331
+"\xE1\xBA\x97" => "\x{0054}\x{0308}",         # U+1E97 => 0054 0308
+"\xE1\xBA\x98" => "\x{0057}\x{030A}",         # U+1E98 => 0057 030A
+"\xE1\xBA\x99" => "\x{0059}\x{030A}",         # U+1E99 => 0059 030A
+"\xE1\xBA\x9A" => "\x{0041}\x{02BE}",         # U+1E9A => 0041 02BE
+"\xE1\xBD\x90" => "\x{03A5}\x{0313}",         # U+1F50 => 03A5 0313
+"\xE1\xBD\x92" => "\x{03A5}\x{0313}\x{0300}", # U+1F52 => 03A5 0313 0300
+"\xE1\xBD\x94" => "\x{03A5}\x{0313}\x{0301}", # U+1F54 => 03A5 0313 0301
+"\xE1\xBD\x96" => "\x{03A5}\x{0313}\x{0342}", # U+1F56 => 03A5 0313 0342
+"\xE1\xBE\x80" => "\x{1F08}\x{0399}",         # U+1F80 => 1F08 0399
+"\xE1\xBE\x81" => "\x{1F09}\x{0399}",         # U+1F81 => 1F09 0399
+"\xE1\xBE\x82" => "\x{1F0A}\x{0399}",         # U+1F82 => 1F0A 0399
+"\xE1\xBE\x83" => "\x{1F0B}\x{0399}",         # U+1F83 => 1F0B 0399
+"\xE1\xBE\x84" => "\x{1F0C}\x{0399}",         # U+1F84 => 1F0C 0399
+"\xE1\xBE\x85" => "\x{1F0D}\x{0399}",         # U+1F85 => 1F0D 0399
+"\xE1\xBE\x86" => "\x{1F0E}\x{0399}",         # U+1F86 => 1F0E 0399
+"\xE1\xBE\x87" => "\x{1F0F}\x{0399}",         # U+1F87 => 1F0F 0399
+"\xE1\xBE\x88" => "\x{1F08}\x{0399}",         # U+1F88 => 1F08 0399
+"\xE1\xBE\x89" => "\x{1F09}\x{0399}",         # U+1F89 => 1F09 0399
+"\xE1\xBE\x8A" => "\x{1F0A}\x{0399}",         # U+1F8A => 1F0A 0399
+"\xE1\xBE\x8B" => "\x{1F0B}\x{0399}",         # U+1F8B => 1F0B 0399
+"\xE1\xBE\x8C" => "\x{1F0C}\x{0399}",         # U+1F8C => 1F0C 0399
+"\xE1\xBE\x8D" => "\x{1F0D}\x{0399}",         # U+1F8D => 1F0D 0399
+"\xE1\xBE\x8E" => "\x{1F0E}\x{0399}",         # U+1F8E => 1F0E 0399
+"\xE1\xBE\x8F" => "\x{1F0F}\x{0399}",         # U+1F8F => 1F0F 0399
+"\xE1\xBE\x90" => "\x{1F28}\x{0399}",         # U+1F90 => 1F28 0399
+"\xE1\xBE\x91" => "\x{1F29}\x{0399}",         # U+1F91 => 1F29 0399
+"\xE1\xBE\x92" => "\x{1F2A}\x{0399}",         # U+1F92 => 1F2A 0399
+"\xE1\xBE\x93" => "\x{1F2B}\x{0399}",         # U+1F93 => 1F2B 0399
+"\xE1\xBE\x94" => "\x{1F2C}\x{0399}",         # U+1F94 => 1F2C 0399
+"\xE1\xBE\x95" => "\x{1F2D}\x{0399}",         # U+1F95 => 1F2D 0399
+"\xE1\xBE\x96" => "\x{1F2E}\x{0399}",         # U+1F96 => 1F2E 0399
+"\xE1\xBE\x97" => "\x{1F2F}\x{0399}",         # U+1F97 => 1F2F 0399
+"\xE1\xBE\x98" => "\x{1F28}\x{0399}",         # U+1F98 => 1F28 0399
+"\xE1\xBE\x99" => "\x{1F29}\x{0399}",         # U+1F99 => 1F29 0399
+"\xE1\xBE\x9A" => "\x{1F2A}\x{0399}",         # U+1F9A => 1F2A 0399
+"\xE1\xBE\x9B" => "\x{1F2B}\x{0399}",         # U+1F9B => 1F2B 0399
+"\xE1\xBE\x9C" => "\x{1F2C}\x{0399}",         # U+1F9C => 1F2C 0399
+"\xE1\xBE\x9D" => "\x{1F2D}\x{0399}",         # U+1F9D => 1F2D 0399
+"\xE1\xBE\x9E" => "\x{1F2E}\x{0399}",         # U+1F9E => 1F2E 0399
+"\xE1\xBE\x9F" => "\x{1F2F}\x{0399}",         # U+1F9F => 1F2F 0399
+"\xE1\xBE\xA0" => "\x{1F68}\x{0399}",         # U+1FA0 => 1F68 0399
+"\xE1\xBE\xA1" => "\x{1F69}\x{0399}",         # U+1FA1 => 1F69 0399
+"\xE1\xBE\xA2" => "\x{1F6A}\x{0399}",         # U+1FA2 => 1F6A 0399
+"\xE1\xBE\xA3" => "\x{1F6B}\x{0399}",         # U+1FA3 => 1F6B 0399
+"\xE1\xBE\xA4" => "\x{1F6C}\x{0399}",         # U+1FA4 => 1F6C 0399
+"\xE1\xBE\xA5" => "\x{1F6D}\x{0399}",         # U+1FA5 => 1F6D 0399
+"\xE1\xBE\xA6" => "\x{1F6E}\x{0399}",         # U+1FA6 => 1F6E 0399
+"\xE1\xBE\xA7" => "\x{1F6F}\x{0399}",         # U+1FA7 => 1F6F 0399
+"\xE1\xBE\xA8" => "\x{1F68}\x{0399}",         # U+1FA8 => 1F68 0399
+"\xE1\xBE\xA9" => "\x{1F69}\x{0399}",         # U+1FA9 => 1F69 0399
+"\xE1\xBE\xAA" => "\x{1F6A}\x{0399}",         # U+1FAA => 1F6A 0399
+"\xE1\xBE\xAB" => "\x{1F6B}\x{0399}",         # U+1FAB => 1F6B 0399
+"\xE1\xBE\xAC" => "\x{1F6C}\x{0399}",         # U+1FAC => 1F6C 0399
+"\xE1\xBE\xAD" => "\x{1F6D}\x{0399}",         # U+1FAD => 1F6D 0399
+"\xE1\xBE\xAE" => "\x{1F6E}\x{0399}",         # U+1FAE => 1F6E 0399
+"\xE1\xBE\xAF" => "\x{1F6F}\x{0399}",         # U+1FAF => 1F6F 0399
+"\xE1\xBE\xB2" => "\x{1FBA}\x{0399}",         # U+1FB2 => 1FBA 0399
+"\xE1\xBE\xB3" => "\x{0391}\x{0399}",         # U+1FB3 => 0391 0399
+"\xE1\xBE\xB4" => "\x{0386}\x{0399}",         # U+1FB4 => 0386 0399
+"\xE1\xBE\xB6" => "\x{0391}\x{0342}",         # U+1FB6 => 0391 0342
+"\xE1\xBE\xB7" => "\x{0391}\x{0342}\x{0399}", # U+1FB7 => 0391 0342 0399
+"\xE1\xBE\xBC" => "\x{0391}\x{0399}",         # U+1FBC => 0391 0399
+"\xE1\xBF\x82" => "\x{1FCA}\x{0399}",         # U+1FC2 => 1FCA 0399
+"\xE1\xBF\x83" => "\x{0397}\x{0399}",         # U+1FC3 => 0397 0399
+"\xE1\xBF\x84" => "\x{0389}\x{0399}",         # U+1FC4 => 0389 0399
+"\xE1\xBF\x86" => "\x{0397}\x{0342}",         # U+1FC6 => 0397 0342
+"\xE1\xBF\x87" => "\x{0397}\x{0342}\x{0399}", # U+1FC7 => 0397 0342 0399
+"\xE1\xBF\x8C" => "\x{0397}\x{0399}",         # U+1FCC => 0397 0399
+"\xE1\xBF\x92" => "\x{0399}\x{0308}\x{0300}", # U+1FD2 => 0399 0308 0300
+"\xE1\xBF\x93" => "\x{0399}\x{0308}\x{0301}", # U+1FD3 => 0399 0308 0301
+"\xE1\xBF\x96" => "\x{0399}\x{0342}",         # U+1FD6 => 0399 0342
+"\xE1\xBF\x97" => "\x{0399}\x{0308}\x{0342}", # U+1FD7 => 0399 0308 0342
+"\xE1\xBF\xA2" => "\x{03A5}\x{0308}\x{0300}", # U+1FE2 => 03A5 0308 0300
+"\xE1\xBF\xA3" => "\x{03A5}\x{0308}\x{0301}", # U+1FE3 => 03A5 0308 0301
+"\xE1\xBF\xA4" => "\x{03A1}\x{0313}",         # U+1FE4 => 03A1 0313
+"\xE1\xBF\xA6" => "\x{03A5}\x{0342}",         # U+1FE6 => 03A5 0342
+"\xE1\xBF\xA7" => "\x{03A5}\x{0308}\x{0342}", # U+1FE7 => 03A5 0308 0342
+"\xE1\xBF\xB2" => "\x{1FFA}\x{0399}",         # U+1FF2 => 1FFA 0399
+"\xE1\xBF\xB3" => "\x{03A9}\x{0399}",         # U+1FF3 => 03A9 0399
+"\xE1\xBF\xB4" => "\x{038F}\x{0399}",         # U+1FF4 => 038F 0399
+"\xE1\xBF\xB6" => "\x{03A9}\x{0342}",         # U+1FF6 => 03A9 0342
+"\xE1\xBF\xB7" => "\x{03A9}\x{0342}\x{0399}", # U+1FF7 => 03A9 0342 0399
+"\xE1\xBF\xBC" => "\x{03A9}\x{0399}",         # U+1FFC => 03A9 0399
+"\xEF\xAC\x80" => "\x{0046}\x{0046}",         # U+FB00 => 0046 0046
+"\xEF\xAC\x81" => "\x{0046}\x{0049}",         # U+FB01 => 0046 0049
+"\xEF\xAC\x82" => "\x{0046}\x{004C}",         # U+FB02 => 0046 004C
+"\xEF\xAC\x83" => "\x{0046}\x{0046}\x{0049}", # U+FB03 => 0046 0046 0049
+"\xEF\xAC\x84" => "\x{0046}\x{0046}\x{004C}", # U+FB04 => 0046 0046 004C
+"\xEF\xAC\x85" => "\x{0053}\x{0054}",         # U+FB05 => 0053 0054
+"\xEF\xAC\x86" => "\x{0053}\x{0054}",         # U+FB06 => 0053 0054
+"\xEF\xAC\x93" => "\x{0544}\x{0546}",         # U+FB13 => 0544 0546
+"\xEF\xAC\x94" => "\x{0544}\x{0535}",         # U+FB14 => 0544 0535
+"\xEF\xAC\x95" => "\x{0544}\x{053B}",         # U+FB15 => 0544 053B
+"\xEF\xAC\x96" => "\x{054E}\x{0546}",         # U+FB16 => 054E 0546
+"\xEF\xAC\x97" => "\x{0544}\x{053D}",         # U+FB17 => 0544 053D
+);
+
+return <<'END';
+61	7A	41
+B5		39C
+E0	F6	C0
+F8	FE	D8
+FF		178
+101		100
+103		102
+105		104
+107		106
+109		108
+10B		10A
+10D		10C
+10F		10E
+111		110
+113		112
+115		114
+117		116
+119		118
+11B		11A
+11D		11C
+11F		11E
+121		120
+123		122
+125		124
+127		126
+129		128
+12B		12A
+12D		12C
+12F		12E
+131		49
+133		132
+135		134
+137		136
+13A		139
+13C		13B
+13E		13D
+140		13F
+142		141
+144		143
+146		145
+148		147
+14B		14A
+14D		14C
+14F		14E
+151		150
+153		152
+155		154
+157		156
+159		158
+15B		15A
+15D		15C
+15F		15E
+161		160
+163		162
+165		164
+167		166
+169		168
+16B		16A
+16D		16C
+16F		16E
+171		170
+173		172
+175		174
+177		176
+17A		179
+17C		17B
+17E		17D
+17F		53
+180		243
+183		182
+185		184
+188		187
+18C		18B
+192		191
+195		1F6
+199		198
+19A		23D
+19E		220
+1A1		1A0
+1A3		1A2
+1A5		1A4
+1A8		1A7
+1AD		1AC
+1B0		1AF
+1B4		1B3
+1B6		1B5
+1B9		1B8
+1BD		1BC
+1BF		1F7
+1C5		1C4
+1C6		1C4
+1C8		1C7
+1C9		1C7
+1CB		1CA
+1CC		1CA
+1CE		1CD
+1D0		1CF
+1D2		1D1
+1D4		1D3
+1D6		1D5
+1D8		1D7
+1DA		1D9
+1DC		1DB
+1DD		18E
+1DF		1DE
+1E1		1E0
+1E3		1E2
+1E5		1E4
+1E7		1E6
+1E9		1E8
+1EB		1EA
+1ED		1EC
+1EF		1EE
+1F2		1F1
+1F3		1F1
+1F5		1F4
+1F9		1F8
+1FB		1FA
+1FD		1FC
+1FF		1FE
+201		200
+203		202
+205		204
+207		206
+209		208
+20B		20A
+20D		20C
+20F		20E
+211		210
+213		212
+215		214
+217		216
+219		218
+21B		21A
+21D		21C
+21F		21E
+223		222
+225		224
+227		226
+229		228
+22B		22A
+22D		22C
+22F		22E
+231		230
+233		232
+23C		23B
+23F	240	2C7E
+242		241
+247		246
+249		248
+24B		24A
+24D		24C
+24F		24E
+250		2C6F
+251		2C6D
+252		2C70
+253		181
+254		186
+256	257	189
+259		18F
+25B		190
+25C		A7AB
+260		193
+261		A7AC
+263		194
+265		A78D
+266		A7AA
+268		197
+269		196
+26B		2C62
+26C		A7AD
+26F		19C
+271		2C6E
+272		19D
+275		19F
+27D		2C64
+280		1A6
+283		1A9
+287		A7B1
+288		1AE
+289		244
+28A	28B	1B1
+28C		245
+292		1B7
+29D		A7B2
+29E		A7B0
+345		399
+371		370
+373		372
+377		376
+37B	37D	3FD
+3AC		386
+3AD	3AF	388
+3B1	3C1	391
+3C2		3A3
+3C3	3CB	3A3
+3CC		38C
+3CD	3CE	38E
+3D0		392
+3D1		398
+3D5		3A6
+3D6		3A0
+3D7		3CF
+3D9		3D8
+3DB		3DA
+3DD		3DC
+3DF		3DE
+3E1		3E0
+3E3		3E2
+3E5		3E4
+3E7		3E6
+3E9		3E8
+3EB		3EA
+3ED		3EC
+3EF		3EE
+3F0		39A
+3F1		3A1
+3F2		3F9
+3F3		37F
+3F5		395
+3F8		3F7
+3FB		3FA
+430	44F	410
+450	45F	400
+461		460
+463		462
+465		464
+467		466
+469		468
+46B		46A
+46D		46C
+46F		46E
+471		470
+473		472
+475		474
+477		476
+479		478
+47B		47A
+47D		47C
+47F		47E
+481		480
+48B		48A
+48D		48C
+48F		48E
+491		490
+493		492
+495		494
+497		496
+499		498
+49B		49A
+49D		49C
+49F		49E
+4A1		4A0
+4A3		4A2
+4A5		4A4
+4A7		4A6
+4A9		4A8
+4AB		4AA
+4AD		4AC
+4AF		4AE
+4B1		4B0
+4B3		4B2
+4B5		4B4
+4B7		4B6
+4B9		4B8
+4BB		4BA
+4BD		4BC
+4BF		4BE
+4C2		4C1
+4C4		4C3
+4C6		4C5
+4C8		4C7
+4CA		4C9
+4CC		4CB
+4CE		4CD
+4CF		4C0
+4D1		4D0
+4D3		4D2
+4D5		4D4
+4D7		4D6
+4D9		4D8
+4DB		4DA
+4DD		4DC
+4DF		4DE
+4E1		4E0
+4E3		4E2
+4E5		4E4
+4E7		4E6
+4E9		4E8
+4EB		4EA
+4ED		4EC
+4EF		4EE
+4F1		4F0
+4F3		4F2
+4F5		4F4
+4F7		4F6
+4F9		4F8
+4FB		4FA
+4FD		4FC
+4FF		4FE
+501		500
+503		502
+505		504
+507		506
+509		508
+50B		50A
+50D		50C
+50F		50E
+511		510
+513		512
+515		514
+517		516
+519		518
+51B		51A
+51D		51C
+51F		51E
+521		520
+523		522
+525		524
+527		526
+529		528
+52B		52A
+52D		52C
+52F		52E
+561	586	531
+13F8	13FD	13F0
+1D79		A77D
+1D7D		2C63
+1E01		1E00
+1E03		1E02
+1E05		1E04
+1E07		1E06
+1E09		1E08
+1E0B		1E0A
+1E0D		1E0C
+1E0F		1E0E
+1E11		1E10
+1E13		1E12
+1E15		1E14
+1E17		1E16
+1E19		1E18
+1E1B		1E1A
+1E1D		1E1C
+1E1F		1E1E
+1E21		1E20
+1E23		1E22
+1E25		1E24
+1E27		1E26
+1E29		1E28
+1E2B		1E2A
+1E2D		1E2C
+1E2F		1E2E
+1E31		1E30
+1E33		1E32
+1E35		1E34
+1E37		1E36
+1E39		1E38
+1E3B		1E3A
+1E3D		1E3C
+1E3F		1E3E
+1E41		1E40
+1E43		1E42
+1E45		1E44
+1E47		1E46
+1E49		1E48
+1E4B		1E4A
+1E4D		1E4C
+1E4F		1E4E
+1E51		1E50
+1E53		1E52
+1E55		1E54
+1E57		1E56
+1E59		1E58
+1E5B		1E5A
+1E5D		1E5C
+1E5F		1E5E
+1E61		1E60
+1E63		1E62
+1E65		1E64
+1E67		1E66
+1E69		1E68
+1E6B		1E6A
+1E6D		1E6C
+1E6F		1E6E
+1E71		1E70
+1E73		1E72
+1E75		1E74
+1E77		1E76
+1E79		1E78
+1E7B		1E7A
+1E7D		1E7C
+1E7F		1E7E
+1E81		1E80
+1E83		1E82
+1E85		1E84
+1E87		1E86
+1E89		1E88
+1E8B		1E8A
+1E8D		1E8C
+1E8F		1E8E
+1E91		1E90
+1E93		1E92
+1E95		1E94
+1E9B		1E60
+1EA1		1EA0
+1EA3		1EA2
+1EA5		1EA4
+1EA7		1EA6
+1EA9		1EA8
+1EAB		1EAA
+1EAD		1EAC
+1EAF		1EAE
+1EB1		1EB0
+1EB3		1EB2
+1EB5		1EB4
+1EB7		1EB6
+1EB9		1EB8
+1EBB		1EBA
+1EBD		1EBC
+1EBF		1EBE
+1EC1		1EC0
+1EC3		1EC2
+1EC5		1EC4
+1EC7		1EC6
+1EC9		1EC8
+1ECB		1ECA
+1ECD		1ECC
+1ECF		1ECE
+1ED1		1ED0
+1ED3		1ED2
+1ED5		1ED4
+1ED7		1ED6
+1ED9		1ED8
+1EDB		1EDA
+1EDD		1EDC
+1EDF		1EDE
+1EE1		1EE0
+1EE3		1EE2
+1EE5		1EE4
+1EE7		1EE6
+1EE9		1EE8
+1EEB		1EEA
+1EED		1EEC
+1EEF		1EEE
+1EF1		1EF0
+1EF3		1EF2
+1EF5		1EF4
+1EF7		1EF6
+1EF9		1EF8
+1EFB		1EFA
+1EFD		1EFC
+1EFF		1EFE
+1F00	1F07	1F08
+1F10	1F15	1F18
+1F20	1F27	1F28
+1F30	1F37	1F38
+1F40	1F45	1F48
+1F51		1F59
+1F53		1F5B
+1F55		1F5D
+1F57		1F5F
+1F60	1F67	1F68
+1F70	1F71	1FBA
+1F72	1F75	1FC8
+1F76	1F77	1FDA
+1F78	1F79	1FF8
+1F7A	1F7B	1FEA
+1F7C	1F7D	1FFA
+1F80	1F87	1F88
+1F90	1F97	1F98
+1FA0	1FA7	1FA8
+1FB0	1FB1	1FB8
+1FB3		1FBC
+1FBE		399
+1FC3		1FCC
+1FD0	1FD1	1FD8
+1FE0	1FE1	1FE8
+1FE5		1FEC
+1FF3		1FFC
+214E		2132
+2170	217F	2160
+2184		2183
+24D0	24E9	24B6
+2C30	2C5E	2C00
+2C61		2C60
+2C65		23A
+2C66		23E
+2C68		2C67
+2C6A		2C69
+2C6C		2C6B
+2C73		2C72
+2C76		2C75
+2C81		2C80
+2C83		2C82
+2C85		2C84
+2C87		2C86
+2C89		2C88
+2C8B		2C8A
+2C8D		2C8C
+2C8F		2C8E
+2C91		2C90
+2C93		2C92
+2C95		2C94
+2C97		2C96
+2C99		2C98
+2C9B		2C9A
+2C9D		2C9C
+2C9F		2C9E
+2CA1		2CA0
+2CA3		2CA2
+2CA5		2CA4
+2CA7		2CA6
+2CA9		2CA8
+2CAB		2CAA
+2CAD		2CAC
+2CAF		2CAE
+2CB1		2CB0
+2CB3		2CB2
+2CB5		2CB4
+2CB7		2CB6
+2CB9		2CB8
+2CBB		2CBA
+2CBD		2CBC
+2CBF		2CBE
+2CC1		2CC0
+2CC3		2CC2
+2CC5		2CC4
+2CC7		2CC6
+2CC9		2CC8
+2CCB		2CCA
+2CCD		2CCC
+2CCF		2CCE
+2CD1		2CD0
+2CD3		2CD2
+2CD5		2CD4
+2CD7		2CD6
+2CD9		2CD8
+2CDB		2CDA
+2CDD		2CDC
+2CDF		2CDE
+2CE1		2CE0
+2CE3		2CE2
+2CEC		2CEB
+2CEE		2CED
+2CF3		2CF2
+2D00	2D25	10A0
+2D27		10C7
+2D2D		10CD
+A641		A640
+A643		A642
+A645		A644
+A647		A646
+A649		A648
+A64B		A64A
+A64D		A64C
+A64F		A64E
+A651		A650
+A653		A652
+A655		A654
+A657		A656
+A659		A658
+A65B		A65A
+A65D		A65C
+A65F		A65E
+A661		A660
+A663		A662
+A665		A664
+A667		A666
+A669		A668
+A66B		A66A
+A66D		A66C
+A681		A680
+A683		A682
+A685		A684
+A687		A686
+A689		A688
+A68B		A68A
+A68D		A68C
+A68F		A68E
+A691		A690
+A693		A692
+A695		A694
+A697		A696
+A699		A698
+A69B		A69A
+A723		A722
+A725		A724
+A727		A726
+A729		A728
+A72B		A72A
+A72D		A72C
+A72F		A72E
+A733		A732
+A735		A734
+A737		A736
+A739		A738
+A73B		A73A
+A73D		A73C
+A73F		A73E
+A741		A740
+A743		A742
+A745		A744
+A747		A746
+A749		A748
+A74B		A74A
+A74D		A74C
+A74F		A74E
+A751		A750
+A753		A752
+A755		A754
+A757		A756
+A759		A758
+A75B		A75A
+A75D		A75C
+A75F		A75E
+A761		A760
+A763		A762
+A765		A764
+A767		A766
+A769		A768
+A76B		A76A
+A76D		A76C
+A76F		A76E
+A77A		A779
+A77C		A77B
+A77F		A77E
+A781		A780
+A783		A782
+A785		A784
+A787		A786
+A78C		A78B
+A791		A790
+A793		A792
+A797		A796
+A799		A798
+A79B		A79A
+A79D		A79C
+A79F		A79E
+A7A1		A7A0
+A7A3		A7A2
+A7A5		A7A4
+A7A7		A7A6
+A7A9		A7A8
+A7B5		A7B4
+A7B7		A7B6
+AB53		A7B3
+AB70	ABBF	13A0
+FF41	FF5A	FF21
+10428	1044F	10400
+10CC0	10CF2	10C80
+118C0	118DF	118A0
+END
diff --git a/lib/5.24.1/unicore/To/Upper.pl b/lib/5.24.1/unicore/To/Upper.pl
new file mode 100644
index 00000000..ab67a1d2
--- /dev/null
+++ b/lib/5.24.1/unicore/To/Upper.pl
@@ -0,0 +1,1351 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   IT IS DEPRECATED TO USE THIS FILE   !!!!!!!
+
+# This file is for internal use by core Perl only.  It is retained for
+# backwards compatibility with applications that may have come to rely on it,
+# but its format and even its name or existence are subject to change without
+# notice in a future Perl version.  Don't use it directly.  Instead, its
+# contents are now retrievable through a stable API in the Unicode::UCD
+# module: Unicode::UCD::prop_invmap('Uppercase_Mapping') (Values for individual
+# code points can be retrieved via Unicode::UCD::charprop());
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToUpper'}{'format'} = 'x'; # non-negative hex whole number; a code point
+$utf8::SwashInfo{'ToUpper'}{'specials_name'} = 'utf8::ToSpecUpper'; # Name of hash of special mappings
+$utf8::SwashInfo{'ToUpper'}{'missing'} = '<code point>'; # code point maps to itself
+
+# Some code points require special handling because their mappings are each to
+# multiple code points.  These do not appear in the main body, but are defined
+# in the hash below.
+
+# Each key is the string of N bytes that together make up the UTF-8 encoding
+# for the code point.  (i.e. the same as looking at the code point's UTF-8
+# under "use bytes").  Each value is the UTF-8 of the translation, for speed.
+%utf8::ToSpecUpper = (
+"\xC3\x9F" => "\x{0053}\x{0053}",             # U+00DF => 0053 0053
+"\xC5\x89" => "\x{02BC}\x{004E}",             # U+0149 => 02BC 004E
+"\xC7\xB0" => "\x{004A}\x{030C}",             # U+01F0 => 004A 030C
+"\xCE\x90" => "\x{0399}\x{0308}\x{0301}",     # U+0390 => 0399 0308 0301
+"\xCE\xB0" => "\x{03A5}\x{0308}\x{0301}",     # U+03B0 => 03A5 0308 0301
+"\xD6\x87" => "\x{0535}\x{0552}",             # U+0587 => 0535 0552
+"\xE1\xBA\x96" => "\x{0048}\x{0331}",         # U+1E96 => 0048 0331
+"\xE1\xBA\x97" => "\x{0054}\x{0308}",         # U+1E97 => 0054 0308
+"\xE1\xBA\x98" => "\x{0057}\x{030A}",         # U+1E98 => 0057 030A
+"\xE1\xBA\x99" => "\x{0059}\x{030A}",         # U+1E99 => 0059 030A
+"\xE1\xBA\x9A" => "\x{0041}\x{02BE}",         # U+1E9A => 0041 02BE
+"\xE1\xBD\x90" => "\x{03A5}\x{0313}",         # U+1F50 => 03A5 0313
+"\xE1\xBD\x92" => "\x{03A5}\x{0313}\x{0300}", # U+1F52 => 03A5 0313 0300
+"\xE1\xBD\x94" => "\x{03A5}\x{0313}\x{0301}", # U+1F54 => 03A5 0313 0301
+"\xE1\xBD\x96" => "\x{03A5}\x{0313}\x{0342}", # U+1F56 => 03A5 0313 0342
+"\xE1\xBE\x80" => "\x{1F08}\x{0399}",         # U+1F80 => 1F08 0399
+"\xE1\xBE\x81" => "\x{1F09}\x{0399}",         # U+1F81 => 1F09 0399
+"\xE1\xBE\x82" => "\x{1F0A}\x{0399}",         # U+1F82 => 1F0A 0399
+"\xE1\xBE\x83" => "\x{1F0B}\x{0399}",         # U+1F83 => 1F0B 0399
+"\xE1\xBE\x84" => "\x{1F0C}\x{0399}",         # U+1F84 => 1F0C 0399
+"\xE1\xBE\x85" => "\x{1F0D}\x{0399}",         # U+1F85 => 1F0D 0399
+"\xE1\xBE\x86" => "\x{1F0E}\x{0399}",         # U+1F86 => 1F0E 0399
+"\xE1\xBE\x87" => "\x{1F0F}\x{0399}",         # U+1F87 => 1F0F 0399
+"\xE1\xBE\x88" => "\x{1F08}\x{0399}",         # U+1F88 => 1F08 0399
+"\xE1\xBE\x89" => "\x{1F09}\x{0399}",         # U+1F89 => 1F09 0399
+"\xE1\xBE\x8A" => "\x{1F0A}\x{0399}",         # U+1F8A => 1F0A 0399
+"\xE1\xBE\x8B" => "\x{1F0B}\x{0399}",         # U+1F8B => 1F0B 0399
+"\xE1\xBE\x8C" => "\x{1F0C}\x{0399}",         # U+1F8C => 1F0C 0399
+"\xE1\xBE\x8D" => "\x{1F0D}\x{0399}",         # U+1F8D => 1F0D 0399
+"\xE1\xBE\x8E" => "\x{1F0E}\x{0399}",         # U+1F8E => 1F0E 0399
+"\xE1\xBE\x8F" => "\x{1F0F}\x{0399}",         # U+1F8F => 1F0F 0399
+"\xE1\xBE\x90" => "\x{1F28}\x{0399}",         # U+1F90 => 1F28 0399
+"\xE1\xBE\x91" => "\x{1F29}\x{0399}",         # U+1F91 => 1F29 0399
+"\xE1\xBE\x92" => "\x{1F2A}\x{0399}",         # U+1F92 => 1F2A 0399
+"\xE1\xBE\x93" => "\x{1F2B}\x{0399}",         # U+1F93 => 1F2B 0399
+"\xE1\xBE\x94" => "\x{1F2C}\x{0399}",         # U+1F94 => 1F2C 0399
+"\xE1\xBE\x95" => "\x{1F2D}\x{0399}",         # U+1F95 => 1F2D 0399
+"\xE1\xBE\x96" => "\x{1F2E}\x{0399}",         # U+1F96 => 1F2E 0399
+"\xE1\xBE\x97" => "\x{1F2F}\x{0399}",         # U+1F97 => 1F2F 0399
+"\xE1\xBE\x98" => "\x{1F28}\x{0399}",         # U+1F98 => 1F28 0399
+"\xE1\xBE\x99" => "\x{1F29}\x{0399}",         # U+1F99 => 1F29 0399
+"\xE1\xBE\x9A" => "\x{1F2A}\x{0399}",         # U+1F9A => 1F2A 0399
+"\xE1\xBE\x9B" => "\x{1F2B}\x{0399}",         # U+1F9B => 1F2B 0399
+"\xE1\xBE\x9C" => "\x{1F2C}\x{0399}",         # U+1F9C => 1F2C 0399
+"\xE1\xBE\x9D" => "\x{1F2D}\x{0399}",         # U+1F9D => 1F2D 0399
+"\xE1\xBE\x9E" => "\x{1F2E}\x{0399}",         # U+1F9E => 1F2E 0399
+"\xE1\xBE\x9F" => "\x{1F2F}\x{0399}",         # U+1F9F => 1F2F 0399
+"\xE1\xBE\xA0" => "\x{1F68}\x{0399}",         # U+1FA0 => 1F68 0399
+"\xE1\xBE\xA1" => "\x{1F69}\x{0399}",         # U+1FA1 => 1F69 0399
+"\xE1\xBE\xA2" => "\x{1F6A}\x{0399}",         # U+1FA2 => 1F6A 0399
+"\xE1\xBE\xA3" => "\x{1F6B}\x{0399}",         # U+1FA3 => 1F6B 0399
+"\xE1\xBE\xA4" => "\x{1F6C}\x{0399}",         # U+1FA4 => 1F6C 0399
+"\xE1\xBE\xA5" => "\x{1F6D}\x{0399}",         # U+1FA5 => 1F6D 0399
+"\xE1\xBE\xA6" => "\x{1F6E}\x{0399}",         # U+1FA6 => 1F6E 0399
+"\xE1\xBE\xA7" => "\x{1F6F}\x{0399}",         # U+1FA7 => 1F6F 0399
+"\xE1\xBE\xA8" => "\x{1F68}\x{0399}",         # U+1FA8 => 1F68 0399
+"\xE1\xBE\xA9" => "\x{1F69}\x{0399}",         # U+1FA9 => 1F69 0399
+"\xE1\xBE\xAA" => "\x{1F6A}\x{0399}",         # U+1FAA => 1F6A 0399
+"\xE1\xBE\xAB" => "\x{1F6B}\x{0399}",         # U+1FAB => 1F6B 0399
+"\xE1\xBE\xAC" => "\x{1F6C}\x{0399}",         # U+1FAC => 1F6C 0399
+"\xE1\xBE\xAD" => "\x{1F6D}\x{0399}",         # U+1FAD => 1F6D 0399
+"\xE1\xBE\xAE" => "\x{1F6E}\x{0399}",         # U+1FAE => 1F6E 0399
+"\xE1\xBE\xAF" => "\x{1F6F}\x{0399}",         # U+1FAF => 1F6F 0399
+"\xE1\xBE\xB2" => "\x{1FBA}\x{0399}",         # U+1FB2 => 1FBA 0399
+"\xE1\xBE\xB3" => "\x{0391}\x{0399}",         # U+1FB3 => 0391 0399
+"\xE1\xBE\xB4" => "\x{0386}\x{0399}",         # U+1FB4 => 0386 0399
+"\xE1\xBE\xB6" => "\x{0391}\x{0342}",         # U+1FB6 => 0391 0342
+"\xE1\xBE\xB7" => "\x{0391}\x{0342}\x{0399}", # U+1FB7 => 0391 0342 0399
+"\xE1\xBE\xBC" => "\x{0391}\x{0399}",         # U+1FBC => 0391 0399
+"\xE1\xBF\x82" => "\x{1FCA}\x{0399}",         # U+1FC2 => 1FCA 0399
+"\xE1\xBF\x83" => "\x{0397}\x{0399}",         # U+1FC3 => 0397 0399
+"\xE1\xBF\x84" => "\x{0389}\x{0399}",         # U+1FC4 => 0389 0399
+"\xE1\xBF\x86" => "\x{0397}\x{0342}",         # U+1FC6 => 0397 0342
+"\xE1\xBF\x87" => "\x{0397}\x{0342}\x{0399}", # U+1FC7 => 0397 0342 0399
+"\xE1\xBF\x8C" => "\x{0397}\x{0399}",         # U+1FCC => 0397 0399
+"\xE1\xBF\x92" => "\x{0399}\x{0308}\x{0300}", # U+1FD2 => 0399 0308 0300
+"\xE1\xBF\x93" => "\x{0399}\x{0308}\x{0301}", # U+1FD3 => 0399 0308 0301
+"\xE1\xBF\x96" => "\x{0399}\x{0342}",         # U+1FD6 => 0399 0342
+"\xE1\xBF\x97" => "\x{0399}\x{0308}\x{0342}", # U+1FD7 => 0399 0308 0342
+"\xE1\xBF\xA2" => "\x{03A5}\x{0308}\x{0300}", # U+1FE2 => 03A5 0308 0300
+"\xE1\xBF\xA3" => "\x{03A5}\x{0308}\x{0301}", # U+1FE3 => 03A5 0308 0301
+"\xE1\xBF\xA4" => "\x{03A1}\x{0313}",         # U+1FE4 => 03A1 0313
+"\xE1\xBF\xA6" => "\x{03A5}\x{0342}",         # U+1FE6 => 03A5 0342
+"\xE1\xBF\xA7" => "\x{03A5}\x{0308}\x{0342}", # U+1FE7 => 03A5 0308 0342
+"\xE1\xBF\xB2" => "\x{1FFA}\x{0399}",         # U+1FF2 => 1FFA 0399
+"\xE1\xBF\xB3" => "\x{03A9}\x{0399}",         # U+1FF3 => 03A9 0399
+"\xE1\xBF\xB4" => "\x{038F}\x{0399}",         # U+1FF4 => 038F 0399
+"\xE1\xBF\xB6" => "\x{03A9}\x{0342}",         # U+1FF6 => 03A9 0342
+"\xE1\xBF\xB7" => "\x{03A9}\x{0342}\x{0399}", # U+1FF7 => 03A9 0342 0399
+"\xE1\xBF\xBC" => "\x{03A9}\x{0399}",         # U+1FFC => 03A9 0399
+"\xEF\xAC\x80" => "\x{0046}\x{0046}",         # U+FB00 => 0046 0046
+"\xEF\xAC\x81" => "\x{0046}\x{0049}",         # U+FB01 => 0046 0049
+"\xEF\xAC\x82" => "\x{0046}\x{004C}",         # U+FB02 => 0046 004C
+"\xEF\xAC\x83" => "\x{0046}\x{0046}\x{0049}", # U+FB03 => 0046 0046 0049
+"\xEF\xAC\x84" => "\x{0046}\x{0046}\x{004C}", # U+FB04 => 0046 0046 004C
+"\xEF\xAC\x85" => "\x{0053}\x{0054}",         # U+FB05 => 0053 0054
+"\xEF\xAC\x86" => "\x{0053}\x{0054}",         # U+FB06 => 0053 0054
+"\xEF\xAC\x93" => "\x{0544}\x{0546}",         # U+FB13 => 0544 0546
+"\xEF\xAC\x94" => "\x{0544}\x{0535}",         # U+FB14 => 0544 0535
+"\xEF\xAC\x95" => "\x{0544}\x{053B}",         # U+FB15 => 0544 053B
+"\xEF\xAC\x96" => "\x{054E}\x{0546}",         # U+FB16 => 054E 0546
+"\xEF\xAC\x97" => "\x{0544}\x{053D}",         # U+FB17 => 0544 053D
+);
+
+return <<'END';
+0061		0041
+0062		0042
+0063		0043
+0064		0044
+0065		0045
+0066		0046
+0067		0047
+0068		0048
+0069		0049
+006A		004A
+006B		004B
+006C		004C
+006D		004D
+006E		004E
+006F		004F
+0070		0050
+0071		0051
+0072		0052
+0073		0053
+0074		0054
+0075		0055
+0076		0056
+0077		0057
+0078		0058
+0079		0059
+007A		005A
+00B5		039C
+00E0		00C0
+00E1		00C1
+00E2		00C2
+00E3		00C3
+00E4		00C4
+00E5		00C5
+00E6		00C6
+00E7		00C7
+00E8		00C8
+00E9		00C9
+00EA		00CA
+00EB		00CB
+00EC		00CC
+00ED		00CD
+00EE		00CE
+00EF		00CF
+00F0		00D0
+00F1		00D1
+00F2		00D2
+00F3		00D3
+00F4		00D4
+00F5		00D5
+00F6		00D6
+00F8		00D8
+00F9		00D9
+00FA		00DA
+00FB		00DB
+00FC		00DC
+00FD		00DD
+00FE		00DE
+00FF		0178
+0101		0100
+0103		0102
+0105		0104
+0107		0106
+0109		0108
+010B		010A
+010D		010C
+010F		010E
+0111		0110
+0113		0112
+0115		0114
+0117		0116
+0119		0118
+011B		011A
+011D		011C
+011F		011E
+0121		0120
+0123		0122
+0125		0124
+0127		0126
+0129		0128
+012B		012A
+012D		012C
+012F		012E
+0131		0049
+0133		0132
+0135		0134
+0137		0136
+013A		0139
+013C		013B
+013E		013D
+0140		013F
+0142		0141
+0144		0143
+0146		0145
+0148		0147
+014B		014A
+014D		014C
+014F		014E
+0151		0150
+0153		0152
+0155		0154
+0157		0156
+0159		0158
+015B		015A
+015D		015C
+015F		015E
+0161		0160
+0163		0162
+0165		0164
+0167		0166
+0169		0168
+016B		016A
+016D		016C
+016F		016E
+0171		0170
+0173		0172
+0175		0174
+0177		0176
+017A		0179
+017C		017B
+017E		017D
+017F		0053
+0180		0243
+0183		0182
+0185		0184
+0188		0187
+018C		018B
+0192		0191
+0195		01F6
+0199		0198
+019A		023D
+019E		0220
+01A1		01A0
+01A3		01A2
+01A5		01A4
+01A8		01A7
+01AD		01AC
+01B0		01AF
+01B4		01B3
+01B6		01B5
+01B9		01B8
+01BD		01BC
+01BF		01F7
+01C5		01C4
+01C6		01C4
+01C8		01C7
+01C9		01C7
+01CB		01CA
+01CC		01CA
+01CE		01CD
+01D0		01CF
+01D2		01D1
+01D4		01D3
+01D6		01D5
+01D8		01D7
+01DA		01D9
+01DC		01DB
+01DD		018E
+01DF		01DE
+01E1		01E0
+01E3		01E2
+01E5		01E4
+01E7		01E6
+01E9		01E8
+01EB		01EA
+01ED		01EC
+01EF		01EE
+01F2		01F1
+01F3		01F1
+01F5		01F4
+01F9		01F8
+01FB		01FA
+01FD		01FC
+01FF		01FE
+0201		0200
+0203		0202
+0205		0204
+0207		0206
+0209		0208
+020B		020A
+020D		020C
+020F		020E
+0211		0210
+0213		0212
+0215		0214
+0217		0216
+0219		0218
+021B		021A
+021D		021C
+021F		021E
+0223		0222
+0225		0224
+0227		0226
+0229		0228
+022B		022A
+022D		022C
+022F		022E
+0231		0230
+0233		0232
+023C		023B
+023F		2C7E
+0240		2C7F
+0242		0241
+0247		0246
+0249		0248
+024B		024A
+024D		024C
+024F		024E
+0250		2C6F
+0251		2C6D
+0252		2C70
+0253		0181
+0254		0186
+0256		0189
+0257		018A
+0259		018F
+025B		0190
+025C		A7AB
+0260		0193
+0261		A7AC
+0263		0194
+0265		A78D
+0266		A7AA
+0268		0197
+0269		0196
+026B		2C62
+026C		A7AD
+026F		019C
+0271		2C6E
+0272		019D
+0275		019F
+027D		2C64
+0280		01A6
+0283		01A9
+0287		A7B1
+0288		01AE
+0289		0244
+028A		01B1
+028B		01B2
+028C		0245
+0292		01B7
+029D		A7B2
+029E		A7B0
+0345		0399
+0371		0370
+0373		0372
+0377		0376
+037B		03FD
+037C		03FE
+037D		03FF
+03AC		0386
+03AD		0388
+03AE		0389
+03AF		038A
+03B1		0391
+03B2		0392
+03B3		0393
+03B4		0394
+03B5		0395
+03B6		0396
+03B7		0397
+03B8		0398
+03B9		0399
+03BA		039A
+03BB		039B
+03BC		039C
+03BD		039D
+03BE		039E
+03BF		039F
+03C0		03A0
+03C1		03A1
+03C2		03A3
+03C3		03A3
+03C4		03A4
+03C5		03A5
+03C6		03A6
+03C7		03A7
+03C8		03A8
+03C9		03A9
+03CA		03AA
+03CB		03AB
+03CC		038C
+03CD		038E
+03CE		038F
+03D0		0392
+03D1		0398
+03D5		03A6
+03D6		03A0
+03D7		03CF
+03D9		03D8
+03DB		03DA
+03DD		03DC
+03DF		03DE
+03E1		03E0
+03E3		03E2
+03E5		03E4
+03E7		03E6
+03E9		03E8
+03EB		03EA
+03ED		03EC
+03EF		03EE
+03F0		039A
+03F1		03A1
+03F2		03F9
+03F3		037F
+03F5		0395
+03F8		03F7
+03FB		03FA
+0430		0410
+0431		0411
+0432		0412
+0433		0413
+0434		0414
+0435		0415
+0436		0416
+0437		0417
+0438		0418
+0439		0419
+043A		041A
+043B		041B
+043C		041C
+043D		041D
+043E		041E
+043F		041F
+0440		0420
+0441		0421
+0442		0422
+0443		0423
+0444		0424
+0445		0425
+0446		0426
+0447		0427
+0448		0428
+0449		0429
+044A		042A
+044B		042B
+044C		042C
+044D		042D
+044E		042E
+044F		042F
+0450		0400
+0451		0401
+0452		0402
+0453		0403
+0454		0404
+0455		0405
+0456		0406
+0457		0407
+0458		0408
+0459		0409
+045A		040A
+045B		040B
+045C		040C
+045D		040D
+045E		040E
+045F		040F
+0461		0460
+0463		0462
+0465		0464
+0467		0466
+0469		0468
+046B		046A
+046D		046C
+046F		046E
+0471		0470
+0473		0472
+0475		0474
+0477		0476
+0479		0478
+047B		047A
+047D		047C
+047F		047E
+0481		0480
+048B		048A
+048D		048C
+048F		048E
+0491		0490
+0493		0492
+0495		0494
+0497		0496
+0499		0498
+049B		049A
+049D		049C
+049F		049E
+04A1		04A0
+04A3		04A2
+04A5		04A4
+04A7		04A6
+04A9		04A8
+04AB		04AA
+04AD		04AC
+04AF		04AE
+04B1		04B0
+04B3		04B2
+04B5		04B4
+04B7		04B6
+04B9		04B8
+04BB		04BA
+04BD		04BC
+04BF		04BE
+04C2		04C1
+04C4		04C3
+04C6		04C5
+04C8		04C7
+04CA		04C9
+04CC		04CB
+04CE		04CD
+04CF		04C0
+04D1		04D0
+04D3		04D2
+04D5		04D4
+04D7		04D6
+04D9		04D8
+04DB		04DA
+04DD		04DC
+04DF		04DE
+04E1		04E0
+04E3		04E2
+04E5		04E4
+04E7		04E6
+04E9		04E8
+04EB		04EA
+04ED		04EC
+04EF		04EE
+04F1		04F0
+04F3		04F2
+04F5		04F4
+04F7		04F6
+04F9		04F8
+04FB		04FA
+04FD		04FC
+04FF		04FE
+0501		0500
+0503		0502
+0505		0504
+0507		0506
+0509		0508
+050B		050A
+050D		050C
+050F		050E
+0511		0510
+0513		0512
+0515		0514
+0517		0516
+0519		0518
+051B		051A
+051D		051C
+051F		051E
+0521		0520
+0523		0522
+0525		0524
+0527		0526
+0529		0528
+052B		052A
+052D		052C
+052F		052E
+0561		0531
+0562		0532
+0563		0533
+0564		0534
+0565		0535
+0566		0536
+0567		0537
+0568		0538
+0569		0539
+056A		053A
+056B		053B
+056C		053C
+056D		053D
+056E		053E
+056F		053F
+0570		0540
+0571		0541
+0572		0542
+0573		0543
+0574		0544
+0575		0545
+0576		0546
+0577		0547
+0578		0548
+0579		0549
+057A		054A
+057B		054B
+057C		054C
+057D		054D
+057E		054E
+057F		054F
+0580		0550
+0581		0551
+0582		0552
+0583		0553
+0584		0554
+0585		0555
+0586		0556
+13F8		13F0
+13F9		13F1
+13FA		13F2
+13FB		13F3
+13FC		13F4
+13FD		13F5
+1D79		A77D
+1D7D		2C63
+1E01		1E00
+1E03		1E02
+1E05		1E04
+1E07		1E06
+1E09		1E08
+1E0B		1E0A
+1E0D		1E0C
+1E0F		1E0E
+1E11		1E10
+1E13		1E12
+1E15		1E14
+1E17		1E16
+1E19		1E18
+1E1B		1E1A
+1E1D		1E1C
+1E1F		1E1E
+1E21		1E20
+1E23		1E22
+1E25		1E24
+1E27		1E26
+1E29		1E28
+1E2B		1E2A
+1E2D		1E2C
+1E2F		1E2E
+1E31		1E30
+1E33		1E32
+1E35		1E34
+1E37		1E36
+1E39		1E38
+1E3B		1E3A
+1E3D		1E3C
+1E3F		1E3E
+1E41		1E40
+1E43		1E42
+1E45		1E44
+1E47		1E46
+1E49		1E48
+1E4B		1E4A
+1E4D		1E4C
+1E4F		1E4E
+1E51		1E50
+1E53		1E52
+1E55		1E54
+1E57		1E56
+1E59		1E58
+1E5B		1E5A
+1E5D		1E5C
+1E5F		1E5E
+1E61		1E60
+1E63		1E62
+1E65		1E64
+1E67		1E66
+1E69		1E68
+1E6B		1E6A
+1E6D		1E6C
+1E6F		1E6E
+1E71		1E70
+1E73		1E72
+1E75		1E74
+1E77		1E76
+1E79		1E78
+1E7B		1E7A
+1E7D		1E7C
+1E7F		1E7E
+1E81		1E80
+1E83		1E82
+1E85		1E84
+1E87		1E86
+1E89		1E88
+1E8B		1E8A
+1E8D		1E8C
+1E8F		1E8E
+1E91		1E90
+1E93		1E92
+1E95		1E94
+1E9B		1E60
+1EA1		1EA0
+1EA3		1EA2
+1EA5		1EA4
+1EA7		1EA6
+1EA9		1EA8
+1EAB		1EAA
+1EAD		1EAC
+1EAF		1EAE
+1EB1		1EB0
+1EB3		1EB2
+1EB5		1EB4
+1EB7		1EB6
+1EB9		1EB8
+1EBB		1EBA
+1EBD		1EBC
+1EBF		1EBE
+1EC1		1EC0
+1EC3		1EC2
+1EC5		1EC4
+1EC7		1EC6
+1EC9		1EC8
+1ECB		1ECA
+1ECD		1ECC
+1ECF		1ECE
+1ED1		1ED0
+1ED3		1ED2
+1ED5		1ED4
+1ED7		1ED6
+1ED9		1ED8
+1EDB		1EDA
+1EDD		1EDC
+1EDF		1EDE
+1EE1		1EE0
+1EE3		1EE2
+1EE5		1EE4
+1EE7		1EE6
+1EE9		1EE8
+1EEB		1EEA
+1EED		1EEC
+1EEF		1EEE
+1EF1		1EF0
+1EF3		1EF2
+1EF5		1EF4
+1EF7		1EF6
+1EF9		1EF8
+1EFB		1EFA
+1EFD		1EFC
+1EFF		1EFE
+1F00		1F08
+1F01		1F09
+1F02		1F0A
+1F03		1F0B
+1F04		1F0C
+1F05		1F0D
+1F06		1F0E
+1F07		1F0F
+1F10		1F18
+1F11		1F19
+1F12		1F1A
+1F13		1F1B
+1F14		1F1C
+1F15		1F1D
+1F20		1F28
+1F21		1F29
+1F22		1F2A
+1F23		1F2B
+1F24		1F2C
+1F25		1F2D
+1F26		1F2E
+1F27		1F2F
+1F30		1F38
+1F31		1F39
+1F32		1F3A
+1F33		1F3B
+1F34		1F3C
+1F35		1F3D
+1F36		1F3E
+1F37		1F3F
+1F40		1F48
+1F41		1F49
+1F42		1F4A
+1F43		1F4B
+1F44		1F4C
+1F45		1F4D
+1F51		1F59
+1F53		1F5B
+1F55		1F5D
+1F57		1F5F
+1F60		1F68
+1F61		1F69
+1F62		1F6A
+1F63		1F6B
+1F64		1F6C
+1F65		1F6D
+1F66		1F6E
+1F67		1F6F
+1F70		1FBA
+1F71		1FBB
+1F72		1FC8
+1F73		1FC9
+1F74		1FCA
+1F75		1FCB
+1F76		1FDA
+1F77		1FDB
+1F78		1FF8
+1F79		1FF9
+1F7A		1FEA
+1F7B		1FEB
+1F7C		1FFA
+1F7D		1FFB
+1FB0		1FB8
+1FB1		1FB9
+1FBE		0399
+1FD0		1FD8
+1FD1		1FD9
+1FE0		1FE8
+1FE1		1FE9
+1FE5		1FEC
+214E		2132
+2170		2160
+2171		2161
+2172		2162
+2173		2163
+2174		2164
+2175		2165
+2176		2166
+2177		2167
+2178		2168
+2179		2169
+217A		216A
+217B		216B
+217C		216C
+217D		216D
+217E		216E
+217F		216F
+2184		2183
+24D0		24B6
+24D1		24B7
+24D2		24B8
+24D3		24B9
+24D4		24BA
+24D5		24BB
+24D6		24BC
+24D7		24BD
+24D8		24BE
+24D9		24BF
+24DA		24C0
+24DB		24C1
+24DC		24C2
+24DD		24C3
+24DE		24C4
+24DF		24C5
+24E0		24C6
+24E1		24C7
+24E2		24C8
+24E3		24C9
+24E4		24CA
+24E5		24CB
+24E6		24CC
+24E7		24CD
+24E8		24CE
+24E9		24CF
+2C30		2C00
+2C31		2C01
+2C32		2C02
+2C33		2C03
+2C34		2C04
+2C35		2C05
+2C36		2C06
+2C37		2C07
+2C38		2C08
+2C39		2C09
+2C3A		2C0A
+2C3B		2C0B
+2C3C		2C0C
+2C3D		2C0D
+2C3E		2C0E
+2C3F		2C0F
+2C40		2C10
+2C41		2C11
+2C42		2C12
+2C43		2C13
+2C44		2C14
+2C45		2C15
+2C46		2C16
+2C47		2C17
+2C48		2C18
+2C49		2C19
+2C4A		2C1A
+2C4B		2C1B
+2C4C		2C1C
+2C4D		2C1D
+2C4E		2C1E
+2C4F		2C1F
+2C50		2C20
+2C51		2C21
+2C52		2C22
+2C53		2C23
+2C54		2C24
+2C55		2C25
+2C56		2C26
+2C57		2C27
+2C58		2C28
+2C59		2C29
+2C5A		2C2A
+2C5B		2C2B
+2C5C		2C2C
+2C5D		2C2D
+2C5E		2C2E
+2C61		2C60
+2C65		023A
+2C66		023E
+2C68		2C67
+2C6A		2C69
+2C6C		2C6B
+2C73		2C72
+2C76		2C75
+2C81		2C80
+2C83		2C82
+2C85		2C84
+2C87		2C86
+2C89		2C88
+2C8B		2C8A
+2C8D		2C8C
+2C8F		2C8E
+2C91		2C90
+2C93		2C92
+2C95		2C94
+2C97		2C96
+2C99		2C98
+2C9B		2C9A
+2C9D		2C9C
+2C9F		2C9E
+2CA1		2CA0
+2CA3		2CA2
+2CA5		2CA4
+2CA7		2CA6
+2CA9		2CA8
+2CAB		2CAA
+2CAD		2CAC
+2CAF		2CAE
+2CB1		2CB0
+2CB3		2CB2
+2CB5		2CB4
+2CB7		2CB6
+2CB9		2CB8
+2CBB		2CBA
+2CBD		2CBC
+2CBF		2CBE
+2CC1		2CC0
+2CC3		2CC2
+2CC5		2CC4
+2CC7		2CC6
+2CC9		2CC8
+2CCB		2CCA
+2CCD		2CCC
+2CCF		2CCE
+2CD1		2CD0
+2CD3		2CD2
+2CD5		2CD4
+2CD7		2CD6
+2CD9		2CD8
+2CDB		2CDA
+2CDD		2CDC
+2CDF		2CDE
+2CE1		2CE0
+2CE3		2CE2
+2CEC		2CEB
+2CEE		2CED
+2CF3		2CF2
+2D00		10A0
+2D01		10A1
+2D02		10A2
+2D03		10A3
+2D04		10A4
+2D05		10A5
+2D06		10A6
+2D07		10A7
+2D08		10A8
+2D09		10A9
+2D0A		10AA
+2D0B		10AB
+2D0C		10AC
+2D0D		10AD
+2D0E		10AE
+2D0F		10AF
+2D10		10B0
+2D11		10B1
+2D12		10B2
+2D13		10B3
+2D14		10B4
+2D15		10B5
+2D16		10B6
+2D17		10B7
+2D18		10B8
+2D19		10B9
+2D1A		10BA
+2D1B		10BB
+2D1C		10BC
+2D1D		10BD
+2D1E		10BE
+2D1F		10BF
+2D20		10C0
+2D21		10C1
+2D22		10C2
+2D23		10C3
+2D24		10C4
+2D25		10C5
+2D27		10C7
+2D2D		10CD
+A641		A640
+A643		A642
+A645		A644
+A647		A646
+A649		A648
+A64B		A64A
+A64D		A64C
+A64F		A64E
+A651		A650
+A653		A652
+A655		A654
+A657		A656
+A659		A658
+A65B		A65A
+A65D		A65C
+A65F		A65E
+A661		A660
+A663		A662
+A665		A664
+A667		A666
+A669		A668
+A66B		A66A
+A66D		A66C
+A681		A680
+A683		A682
+A685		A684
+A687		A686
+A689		A688
+A68B		A68A
+A68D		A68C
+A68F		A68E
+A691		A690
+A693		A692
+A695		A694
+A697		A696
+A699		A698
+A69B		A69A
+A723		A722
+A725		A724
+A727		A726
+A729		A728
+A72B		A72A
+A72D		A72C
+A72F		A72E
+A733		A732
+A735		A734
+A737		A736
+A739		A738
+A73B		A73A
+A73D		A73C
+A73F		A73E
+A741		A740
+A743		A742
+A745		A744
+A747		A746
+A749		A748
+A74B		A74A
+A74D		A74C
+A74F		A74E
+A751		A750
+A753		A752
+A755		A754
+A757		A756
+A759		A758
+A75B		A75A
+A75D		A75C
+A75F		A75E
+A761		A760
+A763		A762
+A765		A764
+A767		A766
+A769		A768
+A76B		A76A
+A76D		A76C
+A76F		A76E
+A77A		A779
+A77C		A77B
+A77F		A77E
+A781		A780
+A783		A782
+A785		A784
+A787		A786
+A78C		A78B
+A791		A790
+A793		A792
+A797		A796
+A799		A798
+A79B		A79A
+A79D		A79C
+A79F		A79E
+A7A1		A7A0
+A7A3		A7A2
+A7A5		A7A4
+A7A7		A7A6
+A7A9		A7A8
+A7B5		A7B4
+A7B7		A7B6
+AB53		A7B3
+AB70		13A0
+AB71		13A1
+AB72		13A2
+AB73		13A3
+AB74		13A4
+AB75		13A5
+AB76		13A6
+AB77		13A7
+AB78		13A8
+AB79		13A9
+AB7A		13AA
+AB7B		13AB
+AB7C		13AC
+AB7D		13AD
+AB7E		13AE
+AB7F		13AF
+AB80		13B0
+AB81		13B1
+AB82		13B2
+AB83		13B3
+AB84		13B4
+AB85		13B5
+AB86		13B6
+AB87		13B7
+AB88		13B8
+AB89		13B9
+AB8A		13BA
+AB8B		13BB
+AB8C		13BC
+AB8D		13BD
+AB8E		13BE
+AB8F		13BF
+AB90		13C0
+AB91		13C1
+AB92		13C2
+AB93		13C3
+AB94		13C4
+AB95		13C5
+AB96		13C6
+AB97		13C7
+AB98		13C8
+AB99		13C9
+AB9A		13CA
+AB9B		13CB
+AB9C		13CC
+AB9D		13CD
+AB9E		13CE
+AB9F		13CF
+ABA0		13D0
+ABA1		13D1
+ABA2		13D2
+ABA3		13D3
+ABA4		13D4
+ABA5		13D5
+ABA6		13D6
+ABA7		13D7
+ABA8		13D8
+ABA9		13D9
+ABAA		13DA
+ABAB		13DB
+ABAC		13DC
+ABAD		13DD
+ABAE		13DE
+ABAF		13DF
+ABB0		13E0
+ABB1		13E1
+ABB2		13E2
+ABB3		13E3
+ABB4		13E4
+ABB5		13E5
+ABB6		13E6
+ABB7		13E7
+ABB8		13E8
+ABB9		13E9
+ABBA		13EA
+ABBB		13EB
+ABBC		13EC
+ABBD		13ED
+ABBE		13EE
+ABBF		13EF
+FF41		FF21
+FF42		FF22
+FF43		FF23
+FF44		FF24
+FF45		FF25
+FF46		FF26
+FF47		FF27
+FF48		FF28
+FF49		FF29
+FF4A		FF2A
+FF4B		FF2B
+FF4C		FF2C
+FF4D		FF2D
+FF4E		FF2E
+FF4F		FF2F
+FF50		FF30
+FF51		FF31
+FF52		FF32
+FF53		FF33
+FF54		FF34
+FF55		FF35
+FF56		FF36
+FF57		FF37
+FF58		FF38
+FF59		FF39
+FF5A		FF3A
+10428		10400
+10429		10401
+1042A		10402
+1042B		10403
+1042C		10404
+1042D		10405
+1042E		10406
+1042F		10407
+10430		10408
+10431		10409
+10432		1040A
+10433		1040B
+10434		1040C
+10435		1040D
+10436		1040E
+10437		1040F
+10438		10410
+10439		10411
+1043A		10412
+1043B		10413
+1043C		10414
+1043D		10415
+1043E		10416
+1043F		10417
+10440		10418
+10441		10419
+10442		1041A
+10443		1041B
+10444		1041C
+10445		1041D
+10446		1041E
+10447		1041F
+10448		10420
+10449		10421
+1044A		10422
+1044B		10423
+1044C		10424
+1044D		10425
+1044E		10426
+1044F		10427
+10CC0		10C80
+10CC1		10C81
+10CC2		10C82
+10CC3		10C83
+10CC4		10C84
+10CC5		10C85
+10CC6		10C86
+10CC7		10C87
+10CC8		10C88
+10CC9		10C89
+10CCA		10C8A
+10CCB		10C8B
+10CCC		10C8C
+10CCD		10C8D
+10CCE		10C8E
+10CCF		10C8F
+10CD0		10C90
+10CD1		10C91
+10CD2		10C92
+10CD3		10C93
+10CD4		10C94
+10CD5		10C95
+10CD6		10C96
+10CD7		10C97
+10CD8		10C98
+10CD9		10C99
+10CDA		10C9A
+10CDB		10C9B
+10CDC		10C9C
+10CDD		10C9D
+10CDE		10C9E
+10CDF		10C9F
+10CE0		10CA0
+10CE1		10CA1
+10CE2		10CA2
+10CE3		10CA3
+10CE4		10CA4
+10CE5		10CA5
+10CE6		10CA6
+10CE7		10CA7
+10CE8		10CA8
+10CE9		10CA9
+10CEA		10CAA
+10CEB		10CAB
+10CEC		10CAC
+10CED		10CAD
+10CEE		10CAE
+10CEF		10CAF
+10CF0		10CB0
+10CF1		10CB1
+10CF2		10CB2
+118C0		118A0
+118C1		118A1
+118C2		118A2
+118C3		118A3
+118C4		118A4
+118C5		118A5
+118C6		118A6
+118C7		118A7
+118C8		118A8
+118C9		118A9
+118CA		118AA
+118CB		118AB
+118CC		118AC
+118CD		118AD
+118CE		118AE
+118CF		118AF
+118D0		118B0
+118D1		118B1
+118D2		118B2
+118D3		118B3
+118D4		118B4
+118D5		118B5
+118D6		118B6
+118D7		118B7
+118D8		118B8
+118D9		118B9
+118DA		118BA
+118DB		118BB
+118DC		118BC
+118DD		118BD
+118DE		118BE
+118DF		118BF
+END
diff --git a/lib/5.24.1/unicore/To/WB.pl b/lib/5.24.1/unicore/To/WB.pl
new file mode 100644
index 00000000..99f2d086
--- /dev/null
+++ b/lib/5.24.1/unicore/To/WB.pl
@@ -0,0 +1,873 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'ToWB'}{'format'} = 's'; # string
+$utf8::SwashInfo{'ToWB'}{'missing'} = 'Other';
+
+return <<'END';
+A		LF
+B	C	Newline
+D		CR
+22		Double_Quote
+27		Single_Quote
+2C		MidNum
+2E		MidNumLet
+30	39	Numeric
+3A		MidLetter
+3B		MidNum
+41	5A	ALetter
+5F		ExtendNumLet
+61	7A	ALetter
+85		Newline
+AA		ALetter
+AD		Format
+B5		ALetter
+B7		MidLetter
+BA		ALetter
+C0	D6	ALetter
+D8	F6	ALetter
+F8	2C1	ALetter
+2C6	2D1	ALetter
+2D7		MidLetter
+2E0	2E4	ALetter
+2EC		ALetter
+2EE		ALetter
+300	36F	Extend
+370	374	ALetter
+376	377	ALetter
+37A	37D	ALetter
+37E		MidNum
+37F		ALetter
+386		ALetter
+387		MidLetter
+388	38A	ALetter
+38C		ALetter
+38E	3A1	ALetter
+3A3	3F5	ALetter
+3F7	481	ALetter
+483	489	Extend
+48A	52F	ALetter
+531	556	ALetter
+559		ALetter
+561	587	ALetter
+589		MidNum
+591	5BD	Extend
+5BF		Extend
+5C1	5C2	Extend
+5C4	5C5	Extend
+5C7		Extend
+5D0	5EA	Hebrew_Letter
+5F0	5F2	Hebrew_Letter
+5F3		ALetter
+5F4		MidLetter
+600	605	Format
+60C	60D	MidNum
+610	61A	Extend
+61C		Format
+620	64A	ALetter
+64B	65F	Extend
+660	669	Numeric
+66B		Numeric
+66C		MidNum
+66E	66F	ALetter
+670		Extend
+671	6D3	ALetter
+6D5		ALetter
+6D6	6DC	Extend
+6DD		Format
+6DF	6E4	Extend
+6E5	6E6	ALetter
+6E7	6E8	Extend
+6EA	6ED	Extend
+6EE	6EF	ALetter
+6F0	6F9	Numeric
+6FA	6FC	ALetter
+6FF		ALetter
+70F		Format
+710		ALetter
+711		Extend
+712	72F	ALetter
+730	74A	Extend
+74D	7A5	ALetter
+7A6	7B0	Extend
+7B1		ALetter
+7C0	7C9	Numeric
+7CA	7EA	ALetter
+7EB	7F3	Extend
+7F4	7F5	ALetter
+7F8		MidNum
+7FA		ALetter
+800	815	ALetter
+816	819	Extend
+81A		ALetter
+81B	823	Extend
+824		ALetter
+825	827	Extend
+828		ALetter
+829	82D	Extend
+840	858	ALetter
+859	85B	Extend
+8A0	8B4	ALetter
+8E3	903	Extend
+904	939	ALetter
+93A	93C	Extend
+93D		ALetter
+93E	94F	Extend
+950		ALetter
+951	957	Extend
+958	961	ALetter
+962	963	Extend
+966	96F	Numeric
+971	980	ALetter
+981	983	Extend
+985	98C	ALetter
+98F	990	ALetter
+993	9A8	ALetter
+9AA	9B0	ALetter
+9B2		ALetter
+9B6	9B9	ALetter
+9BC		Extend
+9BD		ALetter
+9BE	9C4	Extend
+9C7	9C8	Extend
+9CB	9CD	Extend
+9CE		ALetter
+9D7		Extend
+9DC	9DD	ALetter
+9DF	9E1	ALetter
+9E2	9E3	Extend
+9E6	9EF	Numeric
+9F0	9F1	ALetter
+A01	A03	Extend
+A05	A0A	ALetter
+A0F	A10	ALetter
+A13	A28	ALetter
+A2A	A30	ALetter
+A32	A33	ALetter
+A35	A36	ALetter
+A38	A39	ALetter
+A3C		Extend
+A3E	A42	Extend
+A47	A48	Extend
+A4B	A4D	Extend
+A51		Extend
+A59	A5C	ALetter
+A5E		ALetter
+A66	A6F	Numeric
+A70	A71	Extend
+A72	A74	ALetter
+A75		Extend
+A81	A83	Extend
+A85	A8D	ALetter
+A8F	A91	ALetter
+A93	AA8	ALetter
+AAA	AB0	ALetter
+AB2	AB3	ALetter
+AB5	AB9	ALetter
+ABC		Extend
+ABD		ALetter
+ABE	AC5	Extend
+AC7	AC9	Extend
+ACB	ACD	Extend
+AD0		ALetter
+AE0	AE1	ALetter
+AE2	AE3	Extend
+AE6	AEF	Numeric
+AF9		ALetter
+B01	B03	Extend
+B05	B0C	ALetter
+B0F	B10	ALetter
+B13	B28	ALetter
+B2A	B30	ALetter
+B32	B33	ALetter
+B35	B39	ALetter
+B3C		Extend
+B3D		ALetter
+B3E	B44	Extend
+B47	B48	Extend
+B4B	B4D	Extend
+B56	B57	Extend
+B5C	B5D	ALetter
+B5F	B61	ALetter
+B62	B63	Extend
+B66	B6F	Numeric
+B71		ALetter
+B82		Extend
+B83		ALetter
+B85	B8A	ALetter
+B8E	B90	ALetter
+B92	B95	ALetter
+B99	B9A	ALetter
+B9C		ALetter
+B9E	B9F	ALetter
+BA3	BA4	ALetter
+BA8	BAA	ALetter
+BAE	BB9	ALetter
+BBE	BC2	Extend
+BC6	BC8	Extend
+BCA	BCD	Extend
+BD0		ALetter
+BD7		Extend
+BE6	BEF	Numeric
+C00	C03	Extend
+C05	C0C	ALetter
+C0E	C10	ALetter
+C12	C28	ALetter
+C2A	C39	ALetter
+C3D		ALetter
+C3E	C44	Extend
+C46	C48	Extend
+C4A	C4D	Extend
+C55	C56	Extend
+C58	C5A	ALetter
+C60	C61	ALetter
+C62	C63	Extend
+C66	C6F	Numeric
+C81	C83	Extend
+C85	C8C	ALetter
+C8E	C90	ALetter
+C92	CA8	ALetter
+CAA	CB3	ALetter
+CB5	CB9	ALetter
+CBC		Extend
+CBD		ALetter
+CBE	CC4	Extend
+CC6	CC8	Extend
+CCA	CCD	Extend
+CD5	CD6	Extend
+CDE		ALetter
+CE0	CE1	ALetter
+CE2	CE3	Extend
+CE6	CEF	Numeric
+CF1	CF2	ALetter
+D01	D03	Extend
+D05	D0C	ALetter
+D0E	D10	ALetter
+D12	D3A	ALetter
+D3D		ALetter
+D3E	D44	Extend
+D46	D48	Extend
+D4A	D4D	Extend
+D4E		ALetter
+D57		Extend
+D5F	D61	ALetter
+D62	D63	Extend
+D66	D6F	Numeric
+D7A	D7F	ALetter
+D82	D83	Extend
+D85	D96	ALetter
+D9A	DB1	ALetter
+DB3	DBB	ALetter
+DBD		ALetter
+DC0	DC6	ALetter
+DCA		Extend
+DCF	DD4	Extend
+DD6		Extend
+DD8	DDF	Extend
+DE6	DEF	Numeric
+DF2	DF3	Extend
+E31		Extend
+E34	E3A	Extend
+E47	E4E	Extend
+E50	E59	Numeric
+EB1		Extend
+EB4	EB9	Extend
+EBB	EBC	Extend
+EC8	ECD	Extend
+ED0	ED9	Numeric
+F00		ALetter
+F18	F19	Extend
+F20	F29	Numeric
+F35		Extend
+F37		Extend
+F39		Extend
+F3E	F3F	Extend
+F40	F47	ALetter
+F49	F6C	ALetter
+F71	F84	Extend
+F86	F87	Extend
+F88	F8C	ALetter
+F8D	F97	Extend
+F99	FBC	Extend
+FC6		Extend
+102B	103E	Extend
+1040	1049	Numeric
+1056	1059	Extend
+105E	1060	Extend
+1062	1064	Extend
+1067	106D	Extend
+1071	1074	Extend
+1082	108D	Extend
+108F		Extend
+1090	1099	Numeric
+109A	109D	Extend
+10A0	10C5	ALetter
+10C7		ALetter
+10CD		ALetter
+10D0	10FA	ALetter
+10FC	1248	ALetter
+124A	124D	ALetter
+1250	1256	ALetter
+1258		ALetter
+125A	125D	ALetter
+1260	1288	ALetter
+128A	128D	ALetter
+1290	12B0	ALetter
+12B2	12B5	ALetter
+12B8	12BE	ALetter
+12C0		ALetter
+12C2	12C5	ALetter
+12C8	12D6	ALetter
+12D8	1310	ALetter
+1312	1315	ALetter
+1318	135A	ALetter
+135D	135F	Extend
+1380	138F	ALetter
+13A0	13F5	ALetter
+13F8	13FD	ALetter
+1401	166C	ALetter
+166F	167F	ALetter
+1681	169A	ALetter
+16A0	16EA	ALetter
+16EE	16F8	ALetter
+1700	170C	ALetter
+170E	1711	ALetter
+1712	1714	Extend
+1720	1731	ALetter
+1732	1734	Extend
+1740	1751	ALetter
+1752	1753	Extend
+1760	176C	ALetter
+176E	1770	ALetter
+1772	1773	Extend
+17B4	17D3	Extend
+17DD		Extend
+17E0	17E9	Numeric
+180B	180D	Extend
+180E		Format
+1810	1819	Numeric
+1820	1877	ALetter
+1880	18A8	ALetter
+18A9		Extend
+18AA		ALetter
+18B0	18F5	ALetter
+1900	191E	ALetter
+1920	192B	Extend
+1930	193B	Extend
+1946	194F	Numeric
+19D0	19D9	Numeric
+1A00	1A16	ALetter
+1A17	1A1B	Extend
+1A55	1A5E	Extend
+1A60	1A7C	Extend
+1A7F		Extend
+1A80	1A89	Numeric
+1A90	1A99	Numeric
+1AB0	1ABE	Extend
+1B00	1B04	Extend
+1B05	1B33	ALetter
+1B34	1B44	Extend
+1B45	1B4B	ALetter
+1B50	1B59	Numeric
+1B6B	1B73	Extend
+1B80	1B82	Extend
+1B83	1BA0	ALetter
+1BA1	1BAD	Extend
+1BAE	1BAF	ALetter
+1BB0	1BB9	Numeric
+1BBA	1BE5	ALetter
+1BE6	1BF3	Extend
+1C00	1C23	ALetter
+1C24	1C37	Extend
+1C40	1C49	Numeric
+1C4D	1C4F	ALetter
+1C50	1C59	Numeric
+1C5A	1C7D	ALetter
+1CD0	1CD2	Extend
+1CD4	1CE8	Extend
+1CE9	1CEC	ALetter
+1CED		Extend
+1CEE	1CF1	ALetter
+1CF2	1CF4	Extend
+1CF5	1CF6	ALetter
+1CF8	1CF9	Extend
+1D00	1DBF	ALetter
+1DC0	1DF5	Extend
+1DFC	1DFF	Extend
+1E00	1F15	ALetter
+1F18	1F1D	ALetter
+1F20	1F45	ALetter
+1F48	1F4D	ALetter
+1F50	1F57	ALetter
+1F59		ALetter
+1F5B		ALetter
+1F5D		ALetter
+1F5F	1F7D	ALetter
+1F80	1FB4	ALetter
+1FB6	1FBC	ALetter
+1FBE		ALetter
+1FC2	1FC4	ALetter
+1FC6	1FCC	ALetter
+1FD0	1FD3	ALetter
+1FD6	1FDB	ALetter
+1FE0	1FEC	ALetter
+1FF2	1FF4	ALetter
+1FF6	1FFC	ALetter
+200C	200D	Extend
+200E	200F	Format
+2018	2019	MidNumLet
+2024		MidNumLet
+2027		MidLetter
+2028	2029	Newline
+202A	202E	Format
+203F	2040	ExtendNumLet
+2044		MidNum
+2054		ExtendNumLet
+2060	2064	Format
+2066	206F	Format
+2071		ALetter
+207F		ALetter
+2090	209C	ALetter
+20D0	20F0	Extend
+2102		ALetter
+2107		ALetter
+210A	2113	ALetter
+2115		ALetter
+2119	211D	ALetter
+2124		ALetter
+2126		ALetter
+2128		ALetter
+212A	212D	ALetter
+212F	2139	ALetter
+213C	213F	ALetter
+2145	2149	ALetter
+214E		ALetter
+2160	2188	ALetter
+24B6	24E9	ALetter
+2C00	2C2E	ALetter
+2C30	2C5E	ALetter
+2C60	2CE4	ALetter
+2CEB	2CEE	ALetter
+2CEF	2CF1	Extend
+2CF2	2CF3	ALetter
+2D00	2D25	ALetter
+2D27		ALetter
+2D2D		ALetter
+2D30	2D67	ALetter
+2D6F		ALetter
+2D7F		Extend
+2D80	2D96	ALetter
+2DA0	2DA6	ALetter
+2DA8	2DAE	ALetter
+2DB0	2DB6	ALetter
+2DB8	2DBE	ALetter
+2DC0	2DC6	ALetter
+2DC8	2DCE	ALetter
+2DD0	2DD6	ALetter
+2DD8	2DDE	ALetter
+2DE0	2DFF	Extend
+2E2F		ALetter
+3005		ALetter
+302A	302F	Extend
+3031	3035	Katakana
+303B	303C	ALetter
+3099	309A	Extend
+309B	309C	Katakana
+30A0	30FA	Katakana
+30FC	30FF	Katakana
+3105	312D	ALetter
+3131	318E	ALetter
+31A0	31BA	ALetter
+31F0	31FF	Katakana
+32D0	32FE	Katakana
+3300	3357	Katakana
+A000	A48C	ALetter
+A4D0	A4FD	ALetter
+A500	A60C	ALetter
+A610	A61F	ALetter
+A620	A629	Numeric
+A62A	A62B	ALetter
+A640	A66E	ALetter
+A66F	A672	Extend
+A674	A67D	Extend
+A67F	A69D	ALetter
+A69E	A69F	Extend
+A6A0	A6EF	ALetter
+A6F0	A6F1	Extend
+A717	A71F	ALetter
+A722	A788	ALetter
+A78B	A7AD	ALetter
+A7B0	A7B7	ALetter
+A7F7	A801	ALetter
+A802		Extend
+A803	A805	ALetter
+A806		Extend
+A807	A80A	ALetter
+A80B		Extend
+A80C	A822	ALetter
+A823	A827	Extend
+A840	A873	ALetter
+A880	A881	Extend
+A882	A8B3	ALetter
+A8B4	A8C4	Extend
+A8D0	A8D9	Numeric
+A8E0	A8F1	Extend
+A8F2	A8F7	ALetter
+A8FB		ALetter
+A8FD		ALetter
+A900	A909	Numeric
+A90A	A925	ALetter
+A926	A92D	Extend
+A930	A946	ALetter
+A947	A953	Extend
+A960	A97C	ALetter
+A980	A983	Extend
+A984	A9B2	ALetter
+A9B3	A9C0	Extend
+A9CF		ALetter
+A9D0	A9D9	Numeric
+A9E5		Extend
+A9F0	A9F9	Numeric
+AA00	AA28	ALetter
+AA29	AA36	Extend
+AA40	AA42	ALetter
+AA43		Extend
+AA44	AA4B	ALetter
+AA4C	AA4D	Extend
+AA50	AA59	Numeric
+AA7B	AA7D	Extend
+AAB0		Extend
+AAB2	AAB4	Extend
+AAB7	AAB8	Extend
+AABE	AABF	Extend
+AAC1		Extend
+AAE0	AAEA	ALetter
+AAEB	AAEF	Extend
+AAF2	AAF4	ALetter
+AAF5	AAF6	Extend
+AB01	AB06	ALetter
+AB09	AB0E	ALetter
+AB11	AB16	ALetter
+AB20	AB26	ALetter
+AB28	AB2E	ALetter
+AB30	AB5A	ALetter
+AB5C	AB65	ALetter
+AB70	ABE2	ALetter
+ABE3	ABEA	Extend
+ABEC	ABED	Extend
+ABF0	ABF9	Numeric
+AC00	D7A3	ALetter
+D7B0	D7C6	ALetter
+D7CB	D7FB	ALetter
+FB00	FB06	ALetter
+FB13	FB17	ALetter
+FB1D		Hebrew_Letter
+FB1E		Extend
+FB1F	FB28	Hebrew_Letter
+FB2A	FB36	Hebrew_Letter
+FB38	FB3C	Hebrew_Letter
+FB3E		Hebrew_Letter
+FB40	FB41	Hebrew_Letter
+FB43	FB44	Hebrew_Letter
+FB46	FB4F	Hebrew_Letter
+FB50	FBB1	ALetter
+FBD3	FD3D	ALetter
+FD50	FD8F	ALetter
+FD92	FDC7	ALetter
+FDF0	FDFB	ALetter
+FE00	FE0F	Extend
+FE10		MidNum
+FE13		MidLetter
+FE14		MidNum
+FE20	FE2F	Extend
+FE33	FE34	ExtendNumLet
+FE4D	FE4F	ExtendNumLet
+FE50		MidNum
+FE52		MidNumLet
+FE54		MidNum
+FE55		MidLetter
+FE70	FE74	ALetter
+FE76	FEFC	ALetter
+FEFF		Format
+FF07		MidNumLet
+FF0C		MidNum
+FF0E		MidNumLet
+FF1A		MidLetter
+FF1B		MidNum
+FF21	FF3A	ALetter
+FF3F		ExtendNumLet
+FF41	FF5A	ALetter
+FF66	FF9D	Katakana
+FF9E	FF9F	Extend
+FFA0	FFBE	ALetter
+FFC2	FFC7	ALetter
+FFCA	FFCF	ALetter
+FFD2	FFD7	ALetter
+FFDA	FFDC	ALetter
+FFF9	FFFB	Format
+10000	1000B	ALetter
+1000D	10026	ALetter
+10028	1003A	ALetter
+1003C	1003D	ALetter
+1003F	1004D	ALetter
+10050	1005D	ALetter
+10080	100FA	ALetter
+10140	10174	ALetter
+101FD		Extend
+10280	1029C	ALetter
+102A0	102D0	ALetter
+102E0		Extend
+10300	1031F	ALetter
+10330	1034A	ALetter
+10350	10375	ALetter
+10376	1037A	Extend
+10380	1039D	ALetter
+103A0	103C3	ALetter
+103C8	103CF	ALetter
+103D1	103D5	ALetter
+10400	1049D	ALetter
+104A0	104A9	Numeric
+10500	10527	ALetter
+10530	10563	ALetter
+10600	10736	ALetter
+10740	10755	ALetter
+10760	10767	ALetter
+10800	10805	ALetter
+10808		ALetter
+1080A	10835	ALetter
+10837	10838	ALetter
+1083C		ALetter
+1083F	10855	ALetter
+10860	10876	ALetter
+10880	1089E	ALetter
+108E0	108F2	ALetter
+108F4	108F5	ALetter
+10900	10915	ALetter
+10920	10939	ALetter
+10980	109B7	ALetter
+109BE	109BF	ALetter
+10A00		ALetter
+10A01	10A03	Extend
+10A05	10A06	Extend
+10A0C	10A0F	Extend
+10A10	10A13	ALetter
+10A15	10A17	ALetter
+10A19	10A33	ALetter
+10A38	10A3A	Extend
+10A3F		Extend
+10A60	10A7C	ALetter
+10A80	10A9C	ALetter
+10AC0	10AC7	ALetter
+10AC9	10AE4	ALetter
+10AE5	10AE6	Extend
+10B00	10B35	ALetter
+10B40	10B55	ALetter
+10B60	10B72	ALetter
+10B80	10B91	ALetter
+10C00	10C48	ALetter
+10C80	10CB2	ALetter
+10CC0	10CF2	ALetter
+11000	11002	Extend
+11003	11037	ALetter
+11038	11046	Extend
+11066	1106F	Numeric
+1107F	11082	Extend
+11083	110AF	ALetter
+110B0	110BA	Extend
+110BD		Format
+110D0	110E8	ALetter
+110F0	110F9	Numeric
+11100	11102	Extend
+11103	11126	ALetter
+11127	11134	Extend
+11136	1113F	Numeric
+11150	11172	ALetter
+11173		Extend
+11176		ALetter
+11180	11182	Extend
+11183	111B2	ALetter
+111B3	111C0	Extend
+111C1	111C4	ALetter
+111CA	111CC	Extend
+111D0	111D9	Numeric
+111DA		ALetter
+111DC		ALetter
+11200	11211	ALetter
+11213	1122B	ALetter
+1122C	11237	Extend
+11280	11286	ALetter
+11288		ALetter
+1128A	1128D	ALetter
+1128F	1129D	ALetter
+1129F	112A8	ALetter
+112B0	112DE	ALetter
+112DF	112EA	Extend
+112F0	112F9	Numeric
+11300	11303	Extend
+11305	1130C	ALetter
+1130F	11310	ALetter
+11313	11328	ALetter
+1132A	11330	ALetter
+11332	11333	ALetter
+11335	11339	ALetter
+1133C		Extend
+1133D		ALetter
+1133E	11344	Extend
+11347	11348	Extend
+1134B	1134D	Extend
+11350		ALetter
+11357		Extend
+1135D	11361	ALetter
+11362	11363	Extend
+11366	1136C	Extend
+11370	11374	Extend
+11480	114AF	ALetter
+114B0	114C3	Extend
+114C4	114C5	ALetter
+114C7		ALetter
+114D0	114D9	Numeric
+11580	115AE	ALetter
+115AF	115B5	Extend
+115B8	115C0	Extend
+115D8	115DB	ALetter
+115DC	115DD	Extend
+11600	1162F	ALetter
+11630	11640	Extend
+11644		ALetter
+11650	11659	Numeric
+11680	116AA	ALetter
+116AB	116B7	Extend
+116C0	116C9	Numeric
+1171D	1172B	Extend
+11730	11739	Numeric
+118A0	118DF	ALetter
+118E0	118E9	Numeric
+118FF		ALetter
+11AC0	11AF8	ALetter
+12000	12399	ALetter
+12400	1246E	ALetter
+12480	12543	ALetter
+13000	1342E	ALetter
+14400	14646	ALetter
+16800	16A38	ALetter
+16A40	16A5E	ALetter
+16A60	16A69	Numeric
+16AD0	16AED	ALetter
+16AF0	16AF4	Extend
+16B00	16B2F	ALetter
+16B30	16B36	Extend
+16B40	16B43	ALetter
+16B50	16B59	Numeric
+16B63	16B77	ALetter
+16B7D	16B8F	ALetter
+16F00	16F44	ALetter
+16F50		ALetter
+16F51	16F7E	Extend
+16F8F	16F92	Extend
+16F93	16F9F	ALetter
+1B000		Katakana
+1BC00	1BC6A	ALetter
+1BC70	1BC7C	ALetter
+1BC80	1BC88	ALetter
+1BC90	1BC99	ALetter
+1BC9D	1BC9E	Extend
+1BCA0	1BCA3	Format
+1D165	1D169	Extend
+1D16D	1D172	Extend
+1D173	1D17A	Format
+1D17B	1D182	Extend
+1D185	1D18B	Extend
+1D1AA	1D1AD	Extend
+1D242	1D244	Extend
+1D400	1D454	ALetter
+1D456	1D49C	ALetter
+1D49E	1D49F	ALetter
+1D4A2		ALetter
+1D4A5	1D4A6	ALetter
+1D4A9	1D4AC	ALetter
+1D4AE	1D4B9	ALetter
+1D4BB		ALetter
+1D4BD	1D4C3	ALetter
+1D4C5	1D505	ALetter
+1D507	1D50A	ALetter
+1D50D	1D514	ALetter
+1D516	1D51C	ALetter
+1D51E	1D539	ALetter
+1D53B	1D53E	ALetter
+1D540	1D544	ALetter
+1D546		ALetter
+1D54A	1D550	ALetter
+1D552	1D6A5	ALetter
+1D6A8	1D6C0	ALetter
+1D6C2	1D6DA	ALetter
+1D6DC	1D6FA	ALetter
+1D6FC	1D714	ALetter
+1D716	1D734	ALetter
+1D736	1D74E	ALetter
+1D750	1D76E	ALetter
+1D770	1D788	ALetter
+1D78A	1D7A8	ALetter
+1D7AA	1D7C2	ALetter
+1D7C4	1D7CB	ALetter
+1D7CE	1D7FF	Numeric
+1DA00	1DA36	Extend
+1DA3B	1DA6C	Extend
+1DA75		Extend
+1DA84		Extend
+1DA9B	1DA9F	Extend
+1DAA1	1DAAF	Extend
+1E800	1E8C4	ALetter
+1E8D0	1E8D6	Extend
+1EE00	1EE03	ALetter
+1EE05	1EE1F	ALetter
+1EE21	1EE22	ALetter
+1EE24		ALetter
+1EE27		ALetter
+1EE29	1EE32	ALetter
+1EE34	1EE37	ALetter
+1EE39		ALetter
+1EE3B		ALetter
+1EE42		ALetter
+1EE47		ALetter
+1EE49		ALetter
+1EE4B		ALetter
+1EE4D	1EE4F	ALetter
+1EE51	1EE52	ALetter
+1EE54		ALetter
+1EE57		ALetter
+1EE59		ALetter
+1EE5B		ALetter
+1EE5D		ALetter
+1EE5F		ALetter
+1EE61	1EE62	ALetter
+1EE64		ALetter
+1EE67	1EE6A	ALetter
+1EE6C	1EE72	ALetter
+1EE74	1EE77	ALetter
+1EE79	1EE7C	ALetter
+1EE7E		ALetter
+1EE80	1EE89	ALetter
+1EE8B	1EE9B	ALetter
+1EEA1	1EEA3	ALetter
+1EEA5	1EEA9	ALetter
+1EEAB	1EEBB	ALetter
+1F130	1F149	ALetter
+1F150	1F169	ALetter
+1F170	1F189	ALetter
+1F1E6	1F1FF	Regional_Indicator
+E0001		Format
+E0020	E007F	Format
+E0100	E01EF	Extend
+END
diff --git a/lib/5.24.1/unicore/To/_PerlLB.pl b/lib/5.24.1/unicore/To/_PerlLB.pl
new file mode 100644
index 00000000..dc577153
--- /dev/null
+++ b/lib/5.24.1/unicore/To/_PerlLB.pl
@@ -0,0 +1,1683 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'To_PerlLB'}{'format'} = 's'; # string
+$utf8::SwashInfo{'To_PerlLB'}{'missing'} = 'Alphabetic';
+
+return <<'END';
+0	8	Combining_Mark
+9		Break_After
+A		Line_Feed
+B	C	Mandatory_Break
+D		Carriage_Return
+E	1F	Combining_Mark
+20		Space
+21		Exclamation
+22		Quotation
+24		Prefix_Numeric
+25		Postfix_Numeric
+27		Quotation
+28		Open_Punctuation
+29		Close_Parenthesis
+2B		Prefix_Numeric
+2C		Infix_Numeric
+2D		Hyphen
+2E		Infix_Numeric
+2F		Break_Symbols
+30	39	Numeric
+3A	3B	Infix_Numeric
+3F		Exclamation
+5B		Open_Punctuation
+5C		Prefix_Numeric
+5D		Close_Parenthesis
+7B		Open_Punctuation
+7C		Break_After
+7D		Close_Punctuation
+7F	84	Combining_Mark
+85		Next_Line
+86	9F	Combining_Mark
+A0		Glue
+A1		Open_Punctuation
+A2		Postfix_Numeric
+A3	A5	Prefix_Numeric
+AB		Quotation
+AD		Break_After
+B0		Postfix_Numeric
+B1		Prefix_Numeric
+B4		Break_Before
+BB		Quotation
+BF		Open_Punctuation
+2C8		Break_Before
+2CC		Break_Before
+2DF		Break_Before
+300	34E	Combining_Mark
+34F		Glue
+350	35B	Combining_Mark
+35C	362	Glue
+363	36F	Combining_Mark
+37E		Infix_Numeric
+483	489	Combining_Mark
+589		Infix_Numeric
+58A		Break_After
+58F		Prefix_Numeric
+591	5BD	Combining_Mark
+5BE		Break_After
+5BF		Combining_Mark
+5C1	5C2	Combining_Mark
+5C4	5C5	Combining_Mark
+5C6		Exclamation
+5C7		Combining_Mark
+5D0	5EA	Hebrew_Letter
+5F0	5F2	Hebrew_Letter
+609	60B	Postfix_Numeric
+60C	60D	Infix_Numeric
+610	61A	Combining_Mark
+61B		Exclamation
+61C		Combining_Mark
+61E	61F	Exclamation
+64B	65F	Combining_Mark
+660	669	Numeric
+66A		Postfix_Numeric
+66B	66C	Numeric
+670		Combining_Mark
+6D4		Exclamation
+6D6	6DC	Combining_Mark
+6DF	6E4	Combining_Mark
+6E7	6E8	Combining_Mark
+6EA	6ED	Combining_Mark
+6F0	6F9	Numeric
+711		Combining_Mark
+730	74A	Combining_Mark
+7A6	7B0	Combining_Mark
+7C0	7C9	Numeric
+7EB	7F3	Combining_Mark
+7F8		Infix_Numeric
+7F9		Exclamation
+816	819	Combining_Mark
+81B	823	Combining_Mark
+825	827	Combining_Mark
+829	82D	Combining_Mark
+859	85B	Combining_Mark
+8E3	903	Combining_Mark
+93A	93C	Combining_Mark
+93E	94F	Combining_Mark
+951	957	Combining_Mark
+962	963	Combining_Mark
+964	965	Break_After
+966	96F	Numeric
+981	983	Combining_Mark
+9BC		Combining_Mark
+9BE	9C4	Combining_Mark
+9C7	9C8	Combining_Mark
+9CB	9CD	Combining_Mark
+9D7		Combining_Mark
+9E2	9E3	Combining_Mark
+9E6	9EF	Numeric
+9F2	9F3	Postfix_Numeric
+9F9		Postfix_Numeric
+9FB		Prefix_Numeric
+A01	A03	Combining_Mark
+A3C		Combining_Mark
+A3E	A42	Combining_Mark
+A47	A48	Combining_Mark
+A4B	A4D	Combining_Mark
+A51		Combining_Mark
+A66	A6F	Numeric
+A70	A71	Combining_Mark
+A75		Combining_Mark
+A81	A83	Combining_Mark
+ABC		Combining_Mark
+ABE	AC5	Combining_Mark
+AC7	AC9	Combining_Mark
+ACB	ACD	Combining_Mark
+AE2	AE3	Combining_Mark
+AE6	AEF	Numeric
+AF1		Prefix_Numeric
+B01	B03	Combining_Mark
+B3C		Combining_Mark
+B3E	B44	Combining_Mark
+B47	B48	Combining_Mark
+B4B	B4D	Combining_Mark
+B56	B57	Combining_Mark
+B62	B63	Combining_Mark
+B66	B6F	Numeric
+B82		Combining_Mark
+BBE	BC2	Combining_Mark
+BC6	BC8	Combining_Mark
+BCA	BCD	Combining_Mark
+BD7		Combining_Mark
+BE6	BEF	Numeric
+BF9		Prefix_Numeric
+C00	C03	Combining_Mark
+C3E	C44	Combining_Mark
+C46	C48	Combining_Mark
+C4A	C4D	Combining_Mark
+C55	C56	Combining_Mark
+C62	C63	Combining_Mark
+C66	C6F	Numeric
+C81	C83	Combining_Mark
+CBC		Combining_Mark
+CBE	CC4	Combining_Mark
+CC6	CC8	Combining_Mark
+CCA	CCD	Combining_Mark
+CD5	CD6	Combining_Mark
+CE2	CE3	Combining_Mark
+CE6	CEF	Numeric
+D01	D03	Combining_Mark
+D3E	D44	Combining_Mark
+D46	D48	Combining_Mark
+D4A	D4D	Combining_Mark
+D57		Combining_Mark
+D62	D63	Combining_Mark
+D66	D6F	Numeric
+D79		Postfix_Numeric
+D82	D83	Combining_Mark
+DCA		Combining_Mark
+DCF	DD4	Combining_Mark
+DD6		Combining_Mark
+DD8	DDF	Combining_Mark
+DE6	DEF	Numeric
+DF2	DF3	Combining_Mark
+E31		Combining_Mark
+E34	E3A	Combining_Mark
+E3F		Prefix_Numeric
+E47	E4E	Combining_Mark
+E50	E59	Numeric
+E5A	E5B	Break_After
+EB1		Combining_Mark
+EB4	EB9	Combining_Mark
+EBB	EBC	Combining_Mark
+EC8	ECD	Combining_Mark
+ED0	ED9	Numeric
+F01	F04	Break_Before
+F06	F07	Break_Before
+F08		Glue
+F09	F0A	Break_Before
+F0B		Break_After
+F0C		Glue
+F0D	F11	Exclamation
+F12		Glue
+F14		Exclamation
+F18	F19	Combining_Mark
+F20	F29	Numeric
+F34		Break_After
+F35		Combining_Mark
+F37		Combining_Mark
+F39		Combining_Mark
+F3A		Open_Punctuation
+F3B		Close_Punctuation
+F3C		Open_Punctuation
+F3D		Close_Punctuation
+F3E	F3F	Combining_Mark
+F71	F7E	Combining_Mark
+F7F		Break_After
+F80	F84	Combining_Mark
+F85		Break_After
+F86	F87	Combining_Mark
+F8D	F97	Combining_Mark
+F99	FBC	Combining_Mark
+FBE	FBF	Break_After
+FC6		Combining_Mark
+FD0	FD1	Break_Before
+FD2		Break_After
+FD3		Break_Before
+FD9	FDA	Glue
+102B	103E	Combining_Mark
+1040	1049	Numeric
+104A	104B	Break_After
+1056	1059	Combining_Mark
+105E	1060	Combining_Mark
+1062	1064	Combining_Mark
+1067	106D	Combining_Mark
+1071	1074	Combining_Mark
+1082	108D	Combining_Mark
+108F		Combining_Mark
+1090	1099	Numeric
+109A	109D	Combining_Mark
+1100	115F	JL
+1160	11A7	JV
+11A8	11FF	JT
+135D	135F	Combining_Mark
+1361		Break_After
+1400		Break_After
+1680		Break_After
+169B		Open_Punctuation
+169C		Close_Punctuation
+16EB	16ED	Break_After
+1712	1714	Combining_Mark
+1732	1734	Combining_Mark
+1735	1736	Break_After
+1752	1753	Combining_Mark
+1772	1773	Combining_Mark
+17B4	17D3	Combining_Mark
+17D4	17D5	Break_After
+17D6		Nonstarter
+17D8		Break_After
+17DA		Break_After
+17DB		Prefix_Numeric
+17DD		Combining_Mark
+17E0	17E9	Numeric
+1802	1803	Exclamation
+1804	1805	Break_After
+1806		Break_Before
+1808	1809	Exclamation
+180B	180D	Combining_Mark
+180E		Glue
+1810	1819	Numeric
+18A9		Combining_Mark
+1920	192B	Combining_Mark
+1930	193B	Combining_Mark
+1944	1945	Exclamation
+1946	194F	Numeric
+19D0	19D9	Numeric
+1A17	1A1B	Combining_Mark
+1A55	1A5E	Combining_Mark
+1A60	1A7C	Combining_Mark
+1A7F		Combining_Mark
+1A80	1A89	Numeric
+1A90	1A99	Numeric
+1AB0	1ABE	Combining_Mark
+1B00	1B04	Combining_Mark
+1B34	1B44	Combining_Mark
+1B50	1B59	Numeric
+1B5A	1B5B	Break_After
+1B5D	1B60	Break_After
+1B6B	1B73	Combining_Mark
+1B80	1B82	Combining_Mark
+1BA1	1BAD	Combining_Mark
+1BB0	1BB9	Numeric
+1BE6	1BF3	Combining_Mark
+1C24	1C37	Combining_Mark
+1C3B	1C3F	Break_After
+1C40	1C49	Numeric
+1C50	1C59	Numeric
+1C7E	1C7F	Break_After
+1CD0	1CD2	Combining_Mark
+1CD4	1CE8	Combining_Mark
+1CED		Combining_Mark
+1CF2	1CF4	Combining_Mark
+1CF8	1CF9	Combining_Mark
+1DC0	1DF5	Combining_Mark
+1DFC	1DFF	Combining_Mark
+1FFD		Break_Before
+2000	2006	Break_After
+2007		Glue
+2008	200A	Break_After
+200B		ZWSpace
+200C	200F	Combining_Mark
+2010		Break_After
+2011		Glue
+2012	2013	Break_After
+2014		Break_Both
+2018	2019	Quotation
+201A		Open_Punctuation
+201B	201D	Quotation
+201E		Open_Punctuation
+201F		Quotation
+2024	2026	Inseparable
+2027		Break_After
+2028	2029	Mandatory_Break
+202A	202E	Combining_Mark
+202F		Glue
+2030	2037	Postfix_Numeric
+2039	203A	Quotation
+203C	203D	Nonstarter
+2044		Infix_Numeric
+2045		Open_Punctuation
+2046		Close_Punctuation
+2047	2049	Nonstarter
+2056		Break_After
+2058	205B	Break_After
+205D	205F	Break_After
+2060		Word_Joiner
+2066	206F	Combining_Mark
+207D		Open_Punctuation
+207E		Close_Punctuation
+208D		Open_Punctuation
+208E		Close_Punctuation
+20A0	20A6	Prefix_Numeric
+20A7		Postfix_Numeric
+20A8	20B5	Prefix_Numeric
+20B6		Postfix_Numeric
+20B7	20BA	Prefix_Numeric
+20BB		Postfix_Numeric
+20BC	20BD	Prefix_Numeric
+20BE		Postfix_Numeric
+20BF	20CF	Prefix_Numeric
+20D0	20F0	Combining_Mark
+2103		Postfix_Numeric
+2109		Postfix_Numeric
+2116		Prefix_Numeric
+2212	2213	Prefix_Numeric
+22EF		Inseparable
+2308		Open_Punctuation
+2309		Close_Punctuation
+230A		Open_Punctuation
+230B		Close_Punctuation
+231A	231B	Ideographic
+2329		Open_Punctuation
+232A		Close_Punctuation
+23F0	23F3	Ideographic
+2600	2603	Ideographic
+2614	2615	Ideographic
+2618		Ideographic
+261A	261F	Ideographic
+2639	263B	Ideographic
+2668		Ideographic
+267F		Ideographic
+26BD	26C8	Ideographic
+26CD		Ideographic
+26CF	26D1	Ideographic
+26D3	26D4	Ideographic
+26D8	26D9	Ideographic
+26DC		Ideographic
+26DF	26E1	Ideographic
+26EA		Ideographic
+26F1	26F5	Ideographic
+26F7	26FA	Ideographic
+26FD	2704	Ideographic
+2708	270D	Ideographic
+275B	2760	Quotation
+2762	2763	Exclamation
+2768		Open_Punctuation
+2769		Close_Punctuation
+276A		Open_Punctuation
+276B		Close_Punctuation
+276C		Open_Punctuation
+276D		Close_Punctuation
+276E		Open_Punctuation
+276F		Close_Punctuation
+2770		Open_Punctuation
+2771		Close_Punctuation
+2772		Open_Punctuation
+2773		Close_Punctuation
+2774		Open_Punctuation
+2775		Close_Punctuation
+27C5		Open_Punctuation
+27C6		Close_Punctuation
+27E6		Open_Punctuation
+27E7		Close_Punctuation
+27E8		Open_Punctuation
+27E9		Close_Punctuation
+27EA		Open_Punctuation
+27EB		Close_Punctuation
+27EC		Open_Punctuation
+27ED		Close_Punctuation
+27EE		Open_Punctuation
+27EF		Close_Punctuation
+2983		Open_Punctuation
+2984		Close_Punctuation
+2985		Open_Punctuation
+2986		Close_Punctuation
+2987		Open_Punctuation
+2988		Close_Punctuation
+2989		Open_Punctuation
+298A		Close_Punctuation
+298B		Open_Punctuation
+298C		Close_Punctuation
+298D		Open_Punctuation
+298E		Close_Punctuation
+298F		Open_Punctuation
+2990		Close_Punctuation
+2991		Open_Punctuation
+2992		Close_Punctuation
+2993		Open_Punctuation
+2994		Close_Punctuation
+2995		Open_Punctuation
+2996		Close_Punctuation
+2997		Open_Punctuation
+2998		Close_Punctuation
+29D8		Open_Punctuation
+29D9		Close_Punctuation
+29DA		Open_Punctuation
+29DB		Close_Punctuation
+29FC		Open_Punctuation
+29FD		Close_Punctuation
+2CEF	2CF1	Combining_Mark
+2CF9		Exclamation
+2CFA	2CFC	Break_After
+2CFE		Exclamation
+2CFF		Break_After
+2D70		Break_After
+2D7F		Combining_Mark
+2DE0	2DFF	Combining_Mark
+2E00	2E0D	Quotation
+2E0E	2E15	Break_After
+2E17		Break_After
+2E18		Open_Punctuation
+2E19		Break_After
+2E1C	2E1D	Quotation
+2E20	2E21	Quotation
+2E22		Open_Punctuation
+2E23		Close_Punctuation
+2E24		Open_Punctuation
+2E25		Close_Punctuation
+2E26		Open_Punctuation
+2E27		Close_Punctuation
+2E28		Open_Punctuation
+2E29		Close_Punctuation
+2E2A	2E2D	Break_After
+2E2E		Exclamation
+2E30	2E31	Break_After
+2E33	2E34	Break_After
+2E3A	2E3B	Break_Both
+2E3C	2E3E	Break_After
+2E40	2E41	Break_After
+2E42		Open_Punctuation
+2E80	2E99	Ideographic
+2E9B	2EF3	Ideographic
+2F00	2FD5	Ideographic
+2FF0	2FFB	Ideographic
+3000		Break_After
+3001	3002	Close_Punctuation
+3003	3004	Ideographic
+3005		Nonstarter
+3006	3007	Ideographic
+3008		Open_Punctuation
+3009		Close_Punctuation
+300A		Open_Punctuation
+300B		Close_Punctuation
+300C		Open_Punctuation
+300D		Close_Punctuation
+300E		Open_Punctuation
+300F		Close_Punctuation
+3010		Open_Punctuation
+3011		Close_Punctuation
+3012	3013	Ideographic
+3014		Open_Punctuation
+3015		Close_Punctuation
+3016		Open_Punctuation
+3017		Close_Punctuation
+3018		Open_Punctuation
+3019		Close_Punctuation
+301A		Open_Punctuation
+301B		Close_Punctuation
+301C		Nonstarter
+301D		Open_Punctuation
+301E	301F	Close_Punctuation
+3020	3029	Ideographic
+302A	302F	Combining_Mark
+3030	3034	Ideographic
+3035		Combining_Mark
+3036	303A	Ideographic
+303B	303C	Nonstarter
+303D	303F	Ideographic
+3041		Nonstarter
+3042		Ideographic
+3043		Nonstarter
+3044		Ideographic
+3045		Nonstarter
+3046		Ideographic
+3047		Nonstarter
+3048		Ideographic
+3049		Nonstarter
+304A	3062	Ideographic
+3063		Nonstarter
+3064	3082	Ideographic
+3083		Nonstarter
+3084		Ideographic
+3085		Nonstarter
+3086		Ideographic
+3087		Nonstarter
+3088	308D	Ideographic
+308E		Nonstarter
+308F	3094	Ideographic
+3095	3096	Nonstarter
+3099	309A	Combining_Mark
+309B	309E	Nonstarter
+309F		Ideographic
+30A0	30A1	Nonstarter
+30A2		Ideographic
+30A3		Nonstarter
+30A4		Ideographic
+30A5		Nonstarter
+30A6		Ideographic
+30A7		Nonstarter
+30A8		Ideographic
+30A9		Nonstarter
+30AA	30C2	Ideographic
+30C3		Nonstarter
+30C4	30E2	Ideographic
+30E3		Nonstarter
+30E4		Ideographic
+30E5		Nonstarter
+30E6		Ideographic
+30E7		Nonstarter
+30E8	30ED	Ideographic
+30EE		Nonstarter
+30EF	30F4	Ideographic
+30F5	30F6	Nonstarter
+30F7	30FA	Ideographic
+30FB	30FE	Nonstarter
+30FF		Ideographic
+3105	312D	Ideographic
+3131	318E	Ideographic
+3190	31BA	Ideographic
+31C0	31E3	Ideographic
+31F0	31FF	Nonstarter
+3200	321E	Ideographic
+3220	3247	Ideographic
+3250	32FE	Ideographic
+3300	4DBF	Ideographic
+4E00	A014	Ideographic
+A015		Nonstarter
+A016	A48C	Ideographic
+A490	A4C6	Ideographic
+A4FE	A4FF	Break_After
+A60D		Break_After
+A60E		Exclamation
+A60F		Break_After
+A620	A629	Numeric
+A66F	A672	Combining_Mark
+A674	A67D	Combining_Mark
+A69E	A69F	Combining_Mark
+A6F0	A6F1	Combining_Mark
+A6F3	A6F7	Break_After
+A802		Combining_Mark
+A806		Combining_Mark
+A80B		Combining_Mark
+A823	A827	Combining_Mark
+A838		Postfix_Numeric
+A874	A875	Break_Before
+A876	A877	Exclamation
+A880	A881	Combining_Mark
+A8B4	A8C4	Combining_Mark
+A8CE	A8CF	Break_After
+A8D0	A8D9	Numeric
+A8E0	A8F1	Combining_Mark
+A8FC		Break_Before
+A900	A909	Numeric
+A926	A92D	Combining_Mark
+A92E	A92F	Break_After
+A947	A953	Combining_Mark
+A960	A97C	JL
+A980	A983	Combining_Mark
+A9B3	A9C0	Combining_Mark
+A9C7	A9C9	Break_After
+A9D0	A9D9	Numeric
+A9E5		Combining_Mark
+A9F0	A9F9	Numeric
+AA29	AA36	Combining_Mark
+AA43		Combining_Mark
+AA4C	AA4D	Combining_Mark
+AA50	AA59	Numeric
+AA5D	AA5F	Break_After
+AA7B	AA7D	Combining_Mark
+AAB0		Combining_Mark
+AAB2	AAB4	Combining_Mark
+AAB7	AAB8	Combining_Mark
+AABE	AABF	Combining_Mark
+AAC1		Combining_Mark
+AAEB	AAEF	Combining_Mark
+AAF0	AAF1	Break_After
+AAF5	AAF6	Combining_Mark
+ABE3	ABEA	Combining_Mark
+ABEB		Break_After
+ABEC	ABED	Combining_Mark
+ABF0	ABF9	Numeric
+AC00		H2
+AC01	AC1B	H3
+AC1C		H2
+AC1D	AC37	H3
+AC38		H2
+AC39	AC53	H3
+AC54		H2
+AC55	AC6F	H3
+AC70		H2
+AC71	AC8B	H3
+AC8C		H2
+AC8D	ACA7	H3
+ACA8		H2
+ACA9	ACC3	H3
+ACC4		H2
+ACC5	ACDF	H3
+ACE0		H2
+ACE1	ACFB	H3
+ACFC		H2
+ACFD	AD17	H3
+AD18		H2
+AD19	AD33	H3
+AD34		H2
+AD35	AD4F	H3
+AD50		H2
+AD51	AD6B	H3
+AD6C		H2
+AD6D	AD87	H3
+AD88		H2
+AD89	ADA3	H3
+ADA4		H2
+ADA5	ADBF	H3
+ADC0		H2
+ADC1	ADDB	H3
+ADDC		H2
+ADDD	ADF7	H3
+ADF8		H2
+ADF9	AE13	H3
+AE14		H2
+AE15	AE2F	H3
+AE30		H2
+AE31	AE4B	H3
+AE4C		H2
+AE4D	AE67	H3
+AE68		H2
+AE69	AE83	H3
+AE84		H2
+AE85	AE9F	H3
+AEA0		H2
+AEA1	AEBB	H3
+AEBC		H2
+AEBD	AED7	H3
+AED8		H2
+AED9	AEF3	H3
+AEF4		H2
+AEF5	AF0F	H3
+AF10		H2
+AF11	AF2B	H3
+AF2C		H2
+AF2D	AF47	H3
+AF48		H2
+AF49	AF63	H3
+AF64		H2
+AF65	AF7F	H3
+AF80		H2
+AF81	AF9B	H3
+AF9C		H2
+AF9D	AFB7	H3
+AFB8		H2
+AFB9	AFD3	H3
+AFD4		H2
+AFD5	AFEF	H3
+AFF0		H2
+AFF1	B00B	H3
+B00C		H2
+B00D	B027	H3
+B028		H2
+B029	B043	H3
+B044		H2
+B045	B05F	H3
+B060		H2
+B061	B07B	H3
+B07C		H2
+B07D	B097	H3
+B098		H2
+B099	B0B3	H3
+B0B4		H2
+B0B5	B0CF	H3
+B0D0		H2
+B0D1	B0EB	H3
+B0EC		H2
+B0ED	B107	H3
+B108		H2
+B109	B123	H3
+B124		H2
+B125	B13F	H3
+B140		H2
+B141	B15B	H3
+B15C		H2
+B15D	B177	H3
+B178		H2
+B179	B193	H3
+B194		H2
+B195	B1AF	H3
+B1B0		H2
+B1B1	B1CB	H3
+B1CC		H2
+B1CD	B1E7	H3
+B1E8		H2
+B1E9	B203	H3
+B204		H2
+B205	B21F	H3
+B220		H2
+B221	B23B	H3
+B23C		H2
+B23D	B257	H3
+B258		H2
+B259	B273	H3
+B274		H2
+B275	B28F	H3
+B290		H2
+B291	B2AB	H3
+B2AC		H2
+B2AD	B2C7	H3
+B2C8		H2
+B2C9	B2E3	H3
+B2E4		H2
+B2E5	B2FF	H3
+B300		H2
+B301	B31B	H3
+B31C		H2
+B31D	B337	H3
+B338		H2
+B339	B353	H3
+B354		H2
+B355	B36F	H3
+B370		H2
+B371	B38B	H3
+B38C		H2
+B38D	B3A7	H3
+B3A8		H2
+B3A9	B3C3	H3
+B3C4		H2
+B3C5	B3DF	H3
+B3E0		H2
+B3E1	B3FB	H3
+B3FC		H2
+B3FD	B417	H3
+B418		H2
+B419	B433	H3
+B434		H2
+B435	B44F	H3
+B450		H2
+B451	B46B	H3
+B46C		H2
+B46D	B487	H3
+B488		H2
+B489	B4A3	H3
+B4A4		H2
+B4A5	B4BF	H3
+B4C0		H2
+B4C1	B4DB	H3
+B4DC		H2
+B4DD	B4F7	H3
+B4F8		H2
+B4F9	B513	H3
+B514		H2
+B515	B52F	H3
+B530		H2
+B531	B54B	H3
+B54C		H2
+B54D	B567	H3
+B568		H2
+B569	B583	H3
+B584		H2
+B585	B59F	H3
+B5A0		H2
+B5A1	B5BB	H3
+B5BC		H2
+B5BD	B5D7	H3
+B5D8		H2
+B5D9	B5F3	H3
+B5F4		H2
+B5F5	B60F	H3
+B610		H2
+B611	B62B	H3
+B62C		H2
+B62D	B647	H3
+B648		H2
+B649	B663	H3
+B664		H2
+B665	B67F	H3
+B680		H2
+B681	B69B	H3
+B69C		H2
+B69D	B6B7	H3
+B6B8		H2
+B6B9	B6D3	H3
+B6D4		H2
+B6D5	B6EF	H3
+B6F0		H2
+B6F1	B70B	H3
+B70C		H2
+B70D	B727	H3
+B728		H2
+B729	B743	H3
+B744		H2
+B745	B75F	H3
+B760		H2
+B761	B77B	H3
+B77C		H2
+B77D	B797	H3
+B798		H2
+B799	B7B3	H3
+B7B4		H2
+B7B5	B7CF	H3
+B7D0		H2
+B7D1	B7EB	H3
+B7EC		H2
+B7ED	B807	H3
+B808		H2
+B809	B823	H3
+B824		H2
+B825	B83F	H3
+B840		H2
+B841	B85B	H3
+B85C		H2
+B85D	B877	H3
+B878		H2
+B879	B893	H3
+B894		H2
+B895	B8AF	H3
+B8B0		H2
+B8B1	B8CB	H3
+B8CC		H2
+B8CD	B8E7	H3
+B8E8		H2
+B8E9	B903	H3
+B904		H2
+B905	B91F	H3
+B920		H2
+B921	B93B	H3
+B93C		H2
+B93D	B957	H3
+B958		H2
+B959	B973	H3
+B974		H2
+B975	B98F	H3
+B990		H2
+B991	B9AB	H3
+B9AC		H2
+B9AD	B9C7	H3
+B9C8		H2
+B9C9	B9E3	H3
+B9E4		H2
+B9E5	B9FF	H3
+BA00		H2
+BA01	BA1B	H3
+BA1C		H2
+BA1D	BA37	H3
+BA38		H2
+BA39	BA53	H3
+BA54		H2
+BA55	BA6F	H3
+BA70		H2
+BA71	BA8B	H3
+BA8C		H2
+BA8D	BAA7	H3
+BAA8		H2
+BAA9	BAC3	H3
+BAC4		H2
+BAC5	BADF	H3
+BAE0		H2
+BAE1	BAFB	H3
+BAFC		H2
+BAFD	BB17	H3
+BB18		H2
+BB19	BB33	H3
+BB34		H2
+BB35	BB4F	H3
+BB50		H2
+BB51	BB6B	H3
+BB6C		H2
+BB6D	BB87	H3
+BB88		H2
+BB89	BBA3	H3
+BBA4		H2
+BBA5	BBBF	H3
+BBC0		H2
+BBC1	BBDB	H3
+BBDC		H2
+BBDD	BBF7	H3
+BBF8		H2
+BBF9	BC13	H3
+BC14		H2
+BC15	BC2F	H3
+BC30		H2
+BC31	BC4B	H3
+BC4C		H2
+BC4D	BC67	H3
+BC68		H2
+BC69	BC83	H3
+BC84		H2
+BC85	BC9F	H3
+BCA0		H2
+BCA1	BCBB	H3
+BCBC		H2
+BCBD	BCD7	H3
+BCD8		H2
+BCD9	BCF3	H3
+BCF4		H2
+BCF5	BD0F	H3
+BD10		H2
+BD11	BD2B	H3
+BD2C		H2
+BD2D	BD47	H3
+BD48		H2
+BD49	BD63	H3
+BD64		H2
+BD65	BD7F	H3
+BD80		H2
+BD81	BD9B	H3
+BD9C		H2
+BD9D	BDB7	H3
+BDB8		H2
+BDB9	BDD3	H3
+BDD4		H2
+BDD5	BDEF	H3
+BDF0		H2
+BDF1	BE0B	H3
+BE0C		H2
+BE0D	BE27	H3
+BE28		H2
+BE29	BE43	H3
+BE44		H2
+BE45	BE5F	H3
+BE60		H2
+BE61	BE7B	H3
+BE7C		H2
+BE7D	BE97	H3
+BE98		H2
+BE99	BEB3	H3
+BEB4		H2
+BEB5	BECF	H3
+BED0		H2
+BED1	BEEB	H3
+BEEC		H2
+BEED	BF07	H3
+BF08		H2
+BF09	BF23	H3
+BF24		H2
+BF25	BF3F	H3
+BF40		H2
+BF41	BF5B	H3
+BF5C		H2
+BF5D	BF77	H3
+BF78		H2
+BF79	BF93	H3
+BF94		H2
+BF95	BFAF	H3
+BFB0		H2
+BFB1	BFCB	H3
+BFCC		H2
+BFCD	BFE7	H3
+BFE8		H2
+BFE9	C003	H3
+C004		H2
+C005	C01F	H3
+C020		H2
+C021	C03B	H3
+C03C		H2
+C03D	C057	H3
+C058		H2
+C059	C073	H3
+C074		H2
+C075	C08F	H3
+C090		H2
+C091	C0AB	H3
+C0AC		H2
+C0AD	C0C7	H3
+C0C8		H2
+C0C9	C0E3	H3
+C0E4		H2
+C0E5	C0FF	H3
+C100		H2
+C101	C11B	H3
+C11C		H2
+C11D	C137	H3
+C138		H2
+C139	C153	H3
+C154		H2
+C155	C16F	H3
+C170		H2
+C171	C18B	H3
+C18C		H2
+C18D	C1A7	H3
+C1A8		H2
+C1A9	C1C3	H3
+C1C4		H2
+C1C5	C1DF	H3
+C1E0		H2
+C1E1	C1FB	H3
+C1FC		H2
+C1FD	C217	H3
+C218		H2
+C219	C233	H3
+C234		H2
+C235	C24F	H3
+C250		H2
+C251	C26B	H3
+C26C		H2
+C26D	C287	H3
+C288		H2
+C289	C2A3	H3
+C2A4		H2
+C2A5	C2BF	H3
+C2C0		H2
+C2C1	C2DB	H3
+C2DC		H2
+C2DD	C2F7	H3
+C2F8		H2
+C2F9	C313	H3
+C314		H2
+C315	C32F	H3
+C330		H2
+C331	C34B	H3
+C34C		H2
+C34D	C367	H3
+C368		H2
+C369	C383	H3
+C384		H2
+C385	C39F	H3
+C3A0		H2
+C3A1	C3BB	H3
+C3BC		H2
+C3BD	C3D7	H3
+C3D8		H2
+C3D9	C3F3	H3
+C3F4		H2
+C3F5	C40F	H3
+C410		H2
+C411	C42B	H3
+C42C		H2
+C42D	C447	H3
+C448		H2
+C449	C463	H3
+C464		H2
+C465	C47F	H3
+C480		H2
+C481	C49B	H3
+C49C		H2
+C49D	C4B7	H3
+C4B8		H2
+C4B9	C4D3	H3
+C4D4		H2
+C4D5	C4EF	H3
+C4F0		H2
+C4F1	C50B	H3
+C50C		H2
+C50D	C527	H3
+C528		H2
+C529	C543	H3
+C544		H2
+C545	C55F	H3
+C560		H2
+C561	C57B	H3
+C57C		H2
+C57D	C597	H3
+C598		H2
+C599	C5B3	H3
+C5B4		H2
+C5B5	C5CF	H3
+C5D0		H2
+C5D1	C5EB	H3
+C5EC		H2
+C5ED	C607	H3
+C608		H2
+C609	C623	H3
+C624		H2
+C625	C63F	H3
+C640		H2
+C641	C65B	H3
+C65C		H2
+C65D	C677	H3
+C678		H2
+C679	C693	H3
+C694		H2
+C695	C6AF	H3
+C6B0		H2
+C6B1	C6CB	H3
+C6CC		H2
+C6CD	C6E7	H3
+C6E8		H2
+C6E9	C703	H3
+C704		H2
+C705	C71F	H3
+C720		H2
+C721	C73B	H3
+C73C		H2
+C73D	C757	H3
+C758		H2
+C759	C773	H3
+C774		H2
+C775	C78F	H3
+C790		H2
+C791	C7AB	H3
+C7AC		H2
+C7AD	C7C7	H3
+C7C8		H2
+C7C9	C7E3	H3
+C7E4		H2
+C7E5	C7FF	H3
+C800		H2
+C801	C81B	H3
+C81C		H2
+C81D	C837	H3
+C838		H2
+C839	C853	H3
+C854		H2
+C855	C86F	H3
+C870		H2
+C871	C88B	H3
+C88C		H2
+C88D	C8A7	H3
+C8A8		H2
+C8A9	C8C3	H3
+C8C4		H2
+C8C5	C8DF	H3
+C8E0		H2
+C8E1	C8FB	H3
+C8FC		H2
+C8FD	C917	H3
+C918		H2
+C919	C933	H3
+C934		H2
+C935	C94F	H3
+C950		H2
+C951	C96B	H3
+C96C		H2
+C96D	C987	H3
+C988		H2
+C989	C9A3	H3
+C9A4		H2
+C9A5	C9BF	H3
+C9C0		H2
+C9C1	C9DB	H3
+C9DC		H2
+C9DD	C9F7	H3
+C9F8		H2
+C9F9	CA13	H3
+CA14		H2
+CA15	CA2F	H3
+CA30		H2
+CA31	CA4B	H3
+CA4C		H2
+CA4D	CA67	H3
+CA68		H2
+CA69	CA83	H3
+CA84		H2
+CA85	CA9F	H3
+CAA0		H2
+CAA1	CABB	H3
+CABC		H2
+CABD	CAD7	H3
+CAD8		H2
+CAD9	CAF3	H3
+CAF4		H2
+CAF5	CB0F	H3
+CB10		H2
+CB11	CB2B	H3
+CB2C		H2
+CB2D	CB47	H3
+CB48		H2
+CB49	CB63	H3
+CB64		H2
+CB65	CB7F	H3
+CB80		H2
+CB81	CB9B	H3
+CB9C		H2
+CB9D	CBB7	H3
+CBB8		H2
+CBB9	CBD3	H3
+CBD4		H2
+CBD5	CBEF	H3
+CBF0		H2
+CBF1	CC0B	H3
+CC0C		H2
+CC0D	CC27	H3
+CC28		H2
+CC29	CC43	H3
+CC44		H2
+CC45	CC5F	H3
+CC60		H2
+CC61	CC7B	H3
+CC7C		H2
+CC7D	CC97	H3
+CC98		H2
+CC99	CCB3	H3
+CCB4		H2
+CCB5	CCCF	H3
+CCD0		H2
+CCD1	CCEB	H3
+CCEC		H2
+CCED	CD07	H3
+CD08		H2
+CD09	CD23	H3
+CD24		H2
+CD25	CD3F	H3
+CD40		H2
+CD41	CD5B	H3
+CD5C		H2
+CD5D	CD77	H3
+CD78		H2
+CD79	CD93	H3
+CD94		H2
+CD95	CDAF	H3
+CDB0		H2
+CDB1	CDCB	H3
+CDCC		H2
+CDCD	CDE7	H3
+CDE8		H2
+CDE9	CE03	H3
+CE04		H2
+CE05	CE1F	H3
+CE20		H2
+CE21	CE3B	H3
+CE3C		H2
+CE3D	CE57	H3
+CE58		H2
+CE59	CE73	H3
+CE74		H2
+CE75	CE8F	H3
+CE90		H2
+CE91	CEAB	H3
+CEAC		H2
+CEAD	CEC7	H3
+CEC8		H2
+CEC9	CEE3	H3
+CEE4		H2
+CEE5	CEFF	H3
+CF00		H2
+CF01	CF1B	H3
+CF1C		H2
+CF1D	CF37	H3
+CF38		H2
+CF39	CF53	H3
+CF54		H2
+CF55	CF6F	H3
+CF70		H2
+CF71	CF8B	H3
+CF8C		H2
+CF8D	CFA7	H3
+CFA8		H2
+CFA9	CFC3	H3
+CFC4		H2
+CFC5	CFDF	H3
+CFE0		H2
+CFE1	CFFB	H3
+CFFC		H2
+CFFD	D017	H3
+D018		H2
+D019	D033	H3
+D034		H2
+D035	D04F	H3
+D050		H2
+D051	D06B	H3
+D06C		H2
+D06D	D087	H3
+D088		H2
+D089	D0A3	H3
+D0A4		H2
+D0A5	D0BF	H3
+D0C0		H2
+D0C1	D0DB	H3
+D0DC		H2
+D0DD	D0F7	H3
+D0F8		H2
+D0F9	D113	H3
+D114		H2
+D115	D12F	H3
+D130		H2
+D131	D14B	H3
+D14C		H2
+D14D	D167	H3
+D168		H2
+D169	D183	H3
+D184		H2
+D185	D19F	H3
+D1A0		H2
+D1A1	D1BB	H3
+D1BC		H2
+D1BD	D1D7	H3
+D1D8		H2
+D1D9	D1F3	H3
+D1F4		H2
+D1F5	D20F	H3
+D210		H2
+D211	D22B	H3
+D22C		H2
+D22D	D247	H3
+D248		H2
+D249	D263	H3
+D264		H2
+D265	D27F	H3
+D280		H2
+D281	D29B	H3
+D29C		H2
+D29D	D2B7	H3
+D2B8		H2
+D2B9	D2D3	H3
+D2D4		H2
+D2D5	D2EF	H3
+D2F0		H2
+D2F1	D30B	H3
+D30C		H2
+D30D	D327	H3
+D328		H2
+D329	D343	H3
+D344		H2
+D345	D35F	H3
+D360		H2
+D361	D37B	H3
+D37C		H2
+D37D	D397	H3
+D398		H2
+D399	D3B3	H3
+D3B4		H2
+D3B5	D3CF	H3
+D3D0		H2
+D3D1	D3EB	H3
+D3EC		H2
+D3ED	D407	H3
+D408		H2
+D409	D423	H3
+D424		H2
+D425	D43F	H3
+D440		H2
+D441	D45B	H3
+D45C		H2
+D45D	D477	H3
+D478		H2
+D479	D493	H3
+D494		H2
+D495	D4AF	H3
+D4B0		H2
+D4B1	D4CB	H3
+D4CC		H2
+D4CD	D4E7	H3
+D4E8		H2
+D4E9	D503	H3
+D504		H2
+D505	D51F	H3
+D520		H2
+D521	D53B	H3
+D53C		H2
+D53D	D557	H3
+D558		H2
+D559	D573	H3
+D574		H2
+D575	D58F	H3
+D590		H2
+D591	D5AB	H3
+D5AC		H2
+D5AD	D5C7	H3
+D5C8		H2
+D5C9	D5E3	H3
+D5E4		H2
+D5E5	D5FF	H3
+D600		H2
+D601	D61B	H3
+D61C		H2
+D61D	D637	H3
+D638		H2
+D639	D653	H3
+D654		H2
+D655	D66F	H3
+D670		H2
+D671	D68B	H3
+D68C		H2
+D68D	D6A7	H3
+D6A8		H2
+D6A9	D6C3	H3
+D6C4		H2
+D6C5	D6DF	H3
+D6E0		H2
+D6E1	D6FB	H3
+D6FC		H2
+D6FD	D717	H3
+D718		H2
+D719	D733	H3
+D734		H2
+D735	D74F	H3
+D750		H2
+D751	D76B	H3
+D76C		H2
+D76D	D787	H3
+D788		H2
+D789	D7A3	H3
+D7B0	D7C6	JV
+D7CB	D7FB	JT
+F900	FAFF	Ideographic
+FB1D		Hebrew_Letter
+FB1E		Combining_Mark
+FB1F	FB28	Hebrew_Letter
+FB2A	FB36	Hebrew_Letter
+FB38	FB3C	Hebrew_Letter
+FB3E		Hebrew_Letter
+FB40	FB41	Hebrew_Letter
+FB43	FB44	Hebrew_Letter
+FB46	FB4F	Hebrew_Letter
+FD3E		Close_Punctuation
+FD3F		Open_Punctuation
+FDFC		Postfix_Numeric
+FE00	FE0F	Combining_Mark
+FE10		Infix_Numeric
+FE11	FE12	Close_Punctuation
+FE13	FE14	Infix_Numeric
+FE15	FE16	Exclamation
+FE17		Open_Punctuation
+FE18		Close_Punctuation
+FE19		Inseparable
+FE20	FE2F	Combining_Mark
+FE30	FE34	Ideographic
+FE35		Open_Punctuation
+FE36		Close_Punctuation
+FE37		Open_Punctuation
+FE38		Close_Punctuation
+FE39		Open_Punctuation
+FE3A		Close_Punctuation
+FE3B		Open_Punctuation
+FE3C		Close_Punctuation
+FE3D		Open_Punctuation
+FE3E		Close_Punctuation
+FE3F		Open_Punctuation
+FE40		Close_Punctuation
+FE41		Open_Punctuation
+FE42		Close_Punctuation
+FE43		Open_Punctuation
+FE44		Close_Punctuation
+FE45	FE46	Ideographic
+FE47		Open_Punctuation
+FE48		Close_Punctuation
+FE49	FE4F	Ideographic
+FE50		Close_Punctuation
+FE51		Ideographic
+FE52		Close_Punctuation
+FE54	FE55	Nonstarter
+FE56	FE57	Exclamation
+FE58		Ideographic
+FE59		Open_Punctuation
+FE5A		Close_Punctuation
+FE5B		Open_Punctuation
+FE5C		Close_Punctuation
+FE5D		Open_Punctuation
+FE5E		Close_Punctuation
+FE5F	FE66	Ideographic
+FE68		Ideographic
+FE69		Prefix_Numeric
+FE6A		Postfix_Numeric
+FE6B		Ideographic
+FEFF		Word_Joiner
+FF01		Exclamation
+FF02	FF03	Ideographic
+FF04		Prefix_Numeric
+FF05		Postfix_Numeric
+FF06	FF07	Ideographic
+FF08		Open_Punctuation
+FF09		Close_Punctuation
+FF0A	FF0B	Ideographic
+FF0C		Close_Punctuation
+FF0D		Ideographic
+FF0E		Close_Punctuation
+FF0F	FF19	Ideographic
+FF1A	FF1B	Nonstarter
+FF1C	FF1E	Ideographic
+FF1F		Exclamation
+FF20	FF3A	Ideographic
+FF3B		Open_Punctuation
+FF3C		Ideographic
+FF3D		Close_Punctuation
+FF3E	FF5A	Ideographic
+FF5B		Open_Punctuation
+FF5C		Ideographic
+FF5D		Close_Punctuation
+FF5E		Ideographic
+FF5F		Open_Punctuation
+FF60	FF61	Close_Punctuation
+FF62		Open_Punctuation
+FF63	FF64	Close_Punctuation
+FF65		Nonstarter
+FF67	FF70	Nonstarter
+FF9E	FF9F	Nonstarter
+FFE0		Postfix_Numeric
+FFE1		Prefix_Numeric
+FFE2	FFE4	Ideographic
+FFE5	FFE6	Prefix_Numeric
+FFF9	FFFB	Combining_Mark
+FFFC		Contingent_Break
+10100	10102	Break_After
+101FD		Combining_Mark
+102E0		Combining_Mark
+10376	1037A	Combining_Mark
+1039F		Break_After
+103D0		Break_After
+104A0	104A9	Numeric
+10857		Break_After
+1091F		Break_After
+10A01	10A03	Combining_Mark
+10A05	10A06	Combining_Mark
+10A0C	10A0F	Combining_Mark
+10A38	10A3A	Combining_Mark
+10A3F		Combining_Mark
+10A50	10A57	Break_After
+10AE5	10AE6	Combining_Mark
+10AF0	10AF5	Break_After
+10AF6		Inseparable
+10B39	10B3F	Break_After
+11000	11002	Combining_Mark
+11038	11046	Combining_Mark
+11047	11048	Break_After
+11066	1106F	Numeric
+1107F	11082	Combining_Mark
+110B0	110BA	Combining_Mark
+110BE	110C1	Break_After
+110F0	110F9	Numeric
+11100	11102	Combining_Mark
+11127	11134	Combining_Mark
+11136	1113F	Numeric
+11140	11143	Break_After
+11173		Combining_Mark
+11175		Break_Before
+11180	11182	Combining_Mark
+111B3	111C0	Combining_Mark
+111C5	111C6	Break_After
+111C8		Break_After
+111CA	111CC	Combining_Mark
+111D0	111D9	Numeric
+111DB		Break_Before
+111DD	111DF	Break_After
+1122C	11237	Combining_Mark
+11238	11239	Break_After
+1123B	1123C	Break_After
+112A9		Break_After
+112DF	112EA	Combining_Mark
+112F0	112F9	Numeric
+11300	11303	Combining_Mark
+1133C		Combining_Mark
+1133E	11344	Combining_Mark
+11347	11348	Combining_Mark
+1134B	1134D	Combining_Mark
+11357		Combining_Mark
+11362	11363	Combining_Mark
+11366	1136C	Combining_Mark
+11370	11374	Combining_Mark
+114B0	114C3	Combining_Mark
+114D0	114D9	Numeric
+115AF	115B5	Combining_Mark
+115B8	115C0	Combining_Mark
+115C1		Break_Before
+115C2	115C3	Break_After
+115C4	115C5	Exclamation
+115C9	115D7	Break_After
+115DC	115DD	Combining_Mark
+11630	11640	Combining_Mark
+11641	11642	Break_After
+11650	11659	Numeric
+116AB	116B7	Combining_Mark
+116C0	116C9	Numeric
+1171D	1172B	Combining_Mark
+11730	11739	Numeric
+1173C	1173E	Break_After
+118E0	118E9	Numeric
+12470	12474	Break_After
+13258	1325A	Open_Punctuation
+1325B	1325D	Close_Punctuation
+13282		Close_Punctuation
+13286		Open_Punctuation
+13287		Close_Punctuation
+13288		Open_Punctuation
+13289		Close_Punctuation
+13379		Open_Punctuation
+1337A	1337B	Close_Punctuation
+145CE		Open_Punctuation
+145CF		Close_Punctuation
+16A60	16A69	Numeric
+16A6E	16A6F	Break_After
+16AF0	16AF4	Combining_Mark
+16AF5		Break_After
+16B30	16B36	Combining_Mark
+16B37	16B39	Break_After
+16B44		Break_After
+16B50	16B59	Numeric
+16F51	16F7E	Combining_Mark
+16F8F	16F92	Combining_Mark
+1B000	1B001	Ideographic
+1BC9D	1BC9E	Combining_Mark
+1BC9F		Break_After
+1BCA0	1BCA3	Combining_Mark
+1D165	1D169	Combining_Mark
+1D16D	1D182	Combining_Mark
+1D185	1D18B	Combining_Mark
+1D1AA	1D1AD	Combining_Mark
+1D242	1D244	Combining_Mark
+1D7CE	1D7FF	Numeric
+1DA00	1DA36	Combining_Mark
+1DA3B	1DA6C	Combining_Mark
+1DA75		Combining_Mark
+1DA84		Combining_Mark
+1DA87	1DA8A	Break_After
+1DA9B	1DA9F	Combining_Mark
+1DAA1	1DAAF	Combining_Mark
+1E8D0	1E8D6	Combining_Mark
+1F000	1F02B	Ideographic
+1F030	1F093	Ideographic
+1F0A0	1F0AE	Ideographic
+1F0B1	1F0BF	Ideographic
+1F0C1	1F0CF	Ideographic
+1F0D1	1F0F5	Ideographic
+1F1E6	1F1FF	Regional_Indicator
+1F200	1F202	Ideographic
+1F210	1F23A	Ideographic
+1F240	1F248	Ideographic
+1F250	1F251	Ideographic
+1F300	1F39B	Ideographic
+1F39E	1F3B4	Ideographic
+1F3B7	1F3BB	Ideographic
+1F3BD	1F3FA	Ideographic
+1F400	1F49F	Ideographic
+1F4A1		Ideographic
+1F4A3		Ideographic
+1F4A5	1F4AE	Ideographic
+1F4B0		Ideographic
+1F4B3	1F4FF	Ideographic
+1F507	1F516	Ideographic
+1F525	1F531	Ideographic
+1F54A	1F579	Ideographic
+1F57B	1F5A3	Ideographic
+1F5A5	1F5D3	Ideographic
+1F5DC	1F5F3	Ideographic
+1F5FA	1F64F	Ideographic
+1F676	1F678	Quotation
+1F679	1F67B	Nonstarter
+1F680	1F6D0	Ideographic
+1F6E0	1F6EC	Ideographic
+1F6F0	1F6F3	Ideographic
+1F910	1F918	Ideographic
+1F980	1F984	Ideographic
+1F9C0		Ideographic
+20000	2FFFD	Ideographic
+30000	3FFFD	Ideographic
+E0001		Combining_Mark
+E0020	E007F	Combining_Mark
+E0100	E01EF	Combining_Mark
+END
diff --git a/lib/5.24.1/unicore/To/_PerlWB.pl b/lib/5.24.1/unicore/To/_PerlWB.pl
new file mode 100644
index 00000000..5dbe26cf
--- /dev/null
+++ b/lib/5.24.1/unicore/To/_PerlWB.pl
@@ -0,0 +1,881 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+
+# The name this swash is to be known by, with the format of the mappings in
+# the main body of the table, and what all code points missing from this file
+# map to.
+$utf8::SwashInfo{'To_PerlWB'}{'format'} = 's'; # string
+$utf8::SwashInfo{'To_PerlWB'}{'missing'} = 'Other';
+
+return <<'END';
+9		Perl_Tailored_HSpace
+A		LF
+B	C	Newline
+D		CR
+20		Perl_Tailored_HSpace
+22		Double_Quote
+27		Single_Quote
+2C		MidNum
+2E		MidNumLet
+30	39	Numeric
+3A		MidLetter
+3B		MidNum
+41	5A	ALetter
+5F		ExtendNumLet
+61	7A	ALetter
+85		Newline
+A0		Perl_Tailored_HSpace
+AA		ALetter
+AD		Format
+B5		ALetter
+B7		MidLetter
+BA		ALetter
+C0	D6	ALetter
+D8	F6	ALetter
+F8	2C1	ALetter
+2C6	2D1	ALetter
+2D7		MidLetter
+2E0	2E4	ALetter
+2EC		ALetter
+2EE		ALetter
+300	36F	Extend
+370	374	ALetter
+376	377	ALetter
+37A	37D	ALetter
+37E		MidNum
+37F		ALetter
+386		ALetter
+387		MidLetter
+388	38A	ALetter
+38C		ALetter
+38E	3A1	ALetter
+3A3	3F5	ALetter
+3F7	481	ALetter
+483	489	Extend
+48A	52F	ALetter
+531	556	ALetter
+559		ALetter
+561	587	ALetter
+589		MidNum
+591	5BD	Extend
+5BF		Extend
+5C1	5C2	Extend
+5C4	5C5	Extend
+5C7		Extend
+5D0	5EA	Hebrew_Letter
+5F0	5F2	Hebrew_Letter
+5F3		ALetter
+5F4		MidLetter
+600	605	Format
+60C	60D	MidNum
+610	61A	Extend
+61C		Format
+620	64A	ALetter
+64B	65F	Extend
+660	669	Numeric
+66B		Numeric
+66C		MidNum
+66E	66F	ALetter
+670		Extend
+671	6D3	ALetter
+6D5		ALetter
+6D6	6DC	Extend
+6DD		Format
+6DF	6E4	Extend
+6E5	6E6	ALetter
+6E7	6E8	Extend
+6EA	6ED	Extend
+6EE	6EF	ALetter
+6F0	6F9	Numeric
+6FA	6FC	ALetter
+6FF		ALetter
+70F		Format
+710		ALetter
+711		Extend
+712	72F	ALetter
+730	74A	Extend
+74D	7A5	ALetter
+7A6	7B0	Extend
+7B1		ALetter
+7C0	7C9	Numeric
+7CA	7EA	ALetter
+7EB	7F3	Extend
+7F4	7F5	ALetter
+7F8		MidNum
+7FA		ALetter
+800	815	ALetter
+816	819	Extend
+81A		ALetter
+81B	823	Extend
+824		ALetter
+825	827	Extend
+828		ALetter
+829	82D	Extend
+840	858	ALetter
+859	85B	Extend
+8A0	8B4	ALetter
+8E3	903	Extend
+904	939	ALetter
+93A	93C	Extend
+93D		ALetter
+93E	94F	Extend
+950		ALetter
+951	957	Extend
+958	961	ALetter
+962	963	Extend
+966	96F	Numeric
+971	980	ALetter
+981	983	Extend
+985	98C	ALetter
+98F	990	ALetter
+993	9A8	ALetter
+9AA	9B0	ALetter
+9B2		ALetter
+9B6	9B9	ALetter
+9BC		Extend
+9BD		ALetter
+9BE	9C4	Extend
+9C7	9C8	Extend
+9CB	9CD	Extend
+9CE		ALetter
+9D7		Extend
+9DC	9DD	ALetter
+9DF	9E1	ALetter
+9E2	9E3	Extend
+9E6	9EF	Numeric
+9F0	9F1	ALetter
+A01	A03	Extend
+A05	A0A	ALetter
+A0F	A10	ALetter
+A13	A28	ALetter
+A2A	A30	ALetter
+A32	A33	ALetter
+A35	A36	ALetter
+A38	A39	ALetter
+A3C		Extend
+A3E	A42	Extend
+A47	A48	Extend
+A4B	A4D	Extend
+A51		Extend
+A59	A5C	ALetter
+A5E		ALetter
+A66	A6F	Numeric
+A70	A71	Extend
+A72	A74	ALetter
+A75		Extend
+A81	A83	Extend
+A85	A8D	ALetter
+A8F	A91	ALetter
+A93	AA8	ALetter
+AAA	AB0	ALetter
+AB2	AB3	ALetter
+AB5	AB9	ALetter
+ABC		Extend
+ABD		ALetter
+ABE	AC5	Extend
+AC7	AC9	Extend
+ACB	ACD	Extend
+AD0		ALetter
+AE0	AE1	ALetter
+AE2	AE3	Extend
+AE6	AEF	Numeric
+AF9		ALetter
+B01	B03	Extend
+B05	B0C	ALetter
+B0F	B10	ALetter
+B13	B28	ALetter
+B2A	B30	ALetter
+B32	B33	ALetter
+B35	B39	ALetter
+B3C		Extend
+B3D		ALetter
+B3E	B44	Extend
+B47	B48	Extend
+B4B	B4D	Extend
+B56	B57	Extend
+B5C	B5D	ALetter
+B5F	B61	ALetter
+B62	B63	Extend
+B66	B6F	Numeric
+B71		ALetter
+B82		Extend
+B83		ALetter
+B85	B8A	ALetter
+B8E	B90	ALetter
+B92	B95	ALetter
+B99	B9A	ALetter
+B9C		ALetter
+B9E	B9F	ALetter
+BA3	BA4	ALetter
+BA8	BAA	ALetter
+BAE	BB9	ALetter
+BBE	BC2	Extend
+BC6	BC8	Extend
+BCA	BCD	Extend
+BD0		ALetter
+BD7		Extend
+BE6	BEF	Numeric
+C00	C03	Extend
+C05	C0C	ALetter
+C0E	C10	ALetter
+C12	C28	ALetter
+C2A	C39	ALetter
+C3D		ALetter
+C3E	C44	Extend
+C46	C48	Extend
+C4A	C4D	Extend
+C55	C56	Extend
+C58	C5A	ALetter
+C60	C61	ALetter
+C62	C63	Extend
+C66	C6F	Numeric
+C81	C83	Extend
+C85	C8C	ALetter
+C8E	C90	ALetter
+C92	CA8	ALetter
+CAA	CB3	ALetter
+CB5	CB9	ALetter
+CBC		Extend
+CBD		ALetter
+CBE	CC4	Extend
+CC6	CC8	Extend
+CCA	CCD	Extend
+CD5	CD6	Extend
+CDE		ALetter
+CE0	CE1	ALetter
+CE2	CE3	Extend
+CE6	CEF	Numeric
+CF1	CF2	ALetter
+D01	D03	Extend
+D05	D0C	ALetter
+D0E	D10	ALetter
+D12	D3A	ALetter
+D3D		ALetter
+D3E	D44	Extend
+D46	D48	Extend
+D4A	D4D	Extend
+D4E		ALetter
+D57		Extend
+D5F	D61	ALetter
+D62	D63	Extend
+D66	D6F	Numeric
+D7A	D7F	ALetter
+D82	D83	Extend
+D85	D96	ALetter
+D9A	DB1	ALetter
+DB3	DBB	ALetter
+DBD		ALetter
+DC0	DC6	ALetter
+DCA		Extend
+DCF	DD4	Extend
+DD6		Extend
+DD8	DDF	Extend
+DE6	DEF	Numeric
+DF2	DF3	Extend
+E31		Extend
+E34	E3A	Extend
+E47	E4E	Extend
+E50	E59	Numeric
+EB1		Extend
+EB4	EB9	Extend
+EBB	EBC	Extend
+EC8	ECD	Extend
+ED0	ED9	Numeric
+F00		ALetter
+F18	F19	Extend
+F20	F29	Numeric
+F35		Extend
+F37		Extend
+F39		Extend
+F3E	F3F	Extend
+F40	F47	ALetter
+F49	F6C	ALetter
+F71	F84	Extend
+F86	F87	Extend
+F88	F8C	ALetter
+F8D	F97	Extend
+F99	FBC	Extend
+FC6		Extend
+102B	103E	Extend
+1040	1049	Numeric
+1056	1059	Extend
+105E	1060	Extend
+1062	1064	Extend
+1067	106D	Extend
+1071	1074	Extend
+1082	108D	Extend
+108F		Extend
+1090	1099	Numeric
+109A	109D	Extend
+10A0	10C5	ALetter
+10C7		ALetter
+10CD		ALetter
+10D0	10FA	ALetter
+10FC	1248	ALetter
+124A	124D	ALetter
+1250	1256	ALetter
+1258		ALetter
+125A	125D	ALetter
+1260	1288	ALetter
+128A	128D	ALetter
+1290	12B0	ALetter
+12B2	12B5	ALetter
+12B8	12BE	ALetter
+12C0		ALetter
+12C2	12C5	ALetter
+12C8	12D6	ALetter
+12D8	1310	ALetter
+1312	1315	ALetter
+1318	135A	ALetter
+135D	135F	Extend
+1380	138F	ALetter
+13A0	13F5	ALetter
+13F8	13FD	ALetter
+1401	166C	ALetter
+166F	167F	ALetter
+1680		Perl_Tailored_HSpace
+1681	169A	ALetter
+16A0	16EA	ALetter
+16EE	16F8	ALetter
+1700	170C	ALetter
+170E	1711	ALetter
+1712	1714	Extend
+1720	1731	ALetter
+1732	1734	Extend
+1740	1751	ALetter
+1752	1753	Extend
+1760	176C	ALetter
+176E	1770	ALetter
+1772	1773	Extend
+17B4	17D3	Extend
+17DD		Extend
+17E0	17E9	Numeric
+180B	180D	Extend
+180E		Format
+1810	1819	Numeric
+1820	1877	ALetter
+1880	18A8	ALetter
+18A9		Extend
+18AA		ALetter
+18B0	18F5	ALetter
+1900	191E	ALetter
+1920	192B	Extend
+1930	193B	Extend
+1946	194F	Numeric
+19D0	19D9	Numeric
+1A00	1A16	ALetter
+1A17	1A1B	Extend
+1A55	1A5E	Extend
+1A60	1A7C	Extend
+1A7F		Extend
+1A80	1A89	Numeric
+1A90	1A99	Numeric
+1AB0	1ABE	Extend
+1B00	1B04	Extend
+1B05	1B33	ALetter
+1B34	1B44	Extend
+1B45	1B4B	ALetter
+1B50	1B59	Numeric
+1B6B	1B73	Extend
+1B80	1B82	Extend
+1B83	1BA0	ALetter
+1BA1	1BAD	Extend
+1BAE	1BAF	ALetter
+1BB0	1BB9	Numeric
+1BBA	1BE5	ALetter
+1BE6	1BF3	Extend
+1C00	1C23	ALetter
+1C24	1C37	Extend
+1C40	1C49	Numeric
+1C4D	1C4F	ALetter
+1C50	1C59	Numeric
+1C5A	1C7D	ALetter
+1CD0	1CD2	Extend
+1CD4	1CE8	Extend
+1CE9	1CEC	ALetter
+1CED		Extend
+1CEE	1CF1	ALetter
+1CF2	1CF4	Extend
+1CF5	1CF6	ALetter
+1CF8	1CF9	Extend
+1D00	1DBF	ALetter
+1DC0	1DF5	Extend
+1DFC	1DFF	Extend
+1E00	1F15	ALetter
+1F18	1F1D	ALetter
+1F20	1F45	ALetter
+1F48	1F4D	ALetter
+1F50	1F57	ALetter
+1F59		ALetter
+1F5B		ALetter
+1F5D		ALetter
+1F5F	1F7D	ALetter
+1F80	1FB4	ALetter
+1FB6	1FBC	ALetter
+1FBE		ALetter
+1FC2	1FC4	ALetter
+1FC6	1FCC	ALetter
+1FD0	1FD3	ALetter
+1FD6	1FDB	ALetter
+1FE0	1FEC	ALetter
+1FF2	1FF4	ALetter
+1FF6	1FFC	ALetter
+2000	200A	Perl_Tailored_HSpace
+200C	200D	Extend
+200E	200F	Format
+2018	2019	MidNumLet
+2024		MidNumLet
+2027		MidLetter
+2028	2029	Newline
+202A	202E	Format
+202F		Perl_Tailored_HSpace
+203F	2040	ExtendNumLet
+2044		MidNum
+2054		ExtendNumLet
+205F		Perl_Tailored_HSpace
+2060	2064	Format
+2066	206F	Format
+2071		ALetter
+207F		ALetter
+2090	209C	ALetter
+20D0	20F0	Extend
+2102		ALetter
+2107		ALetter
+210A	2113	ALetter
+2115		ALetter
+2119	211D	ALetter
+2124		ALetter
+2126		ALetter
+2128		ALetter
+212A	212D	ALetter
+212F	2139	ALetter
+213C	213F	ALetter
+2145	2149	ALetter
+214E		ALetter
+2160	2188	ALetter
+24B6	24E9	ALetter
+2C00	2C2E	ALetter
+2C30	2C5E	ALetter
+2C60	2CE4	ALetter
+2CEB	2CEE	ALetter
+2CEF	2CF1	Extend
+2CF2	2CF3	ALetter
+2D00	2D25	ALetter
+2D27		ALetter
+2D2D		ALetter
+2D30	2D67	ALetter
+2D6F		ALetter
+2D7F		Extend
+2D80	2D96	ALetter
+2DA0	2DA6	ALetter
+2DA8	2DAE	ALetter
+2DB0	2DB6	ALetter
+2DB8	2DBE	ALetter
+2DC0	2DC6	ALetter
+2DC8	2DCE	ALetter
+2DD0	2DD6	ALetter
+2DD8	2DDE	ALetter
+2DE0	2DFF	Extend
+2E2F		ALetter
+3000		Perl_Tailored_HSpace
+3005		ALetter
+302A	302F	Extend
+3031	3035	Katakana
+303B	303C	ALetter
+3099	309A	Extend
+309B	309C	Katakana
+30A0	30FA	Katakana
+30FC	30FF	Katakana
+3105	312D	ALetter
+3131	318E	ALetter
+31A0	31BA	ALetter
+31F0	31FF	Katakana
+32D0	32FE	Katakana
+3300	3357	Katakana
+A000	A48C	ALetter
+A4D0	A4FD	ALetter
+A500	A60C	ALetter
+A610	A61F	ALetter
+A620	A629	Numeric
+A62A	A62B	ALetter
+A640	A66E	ALetter
+A66F	A672	Extend
+A674	A67D	Extend
+A67F	A69D	ALetter
+A69E	A69F	Extend
+A6A0	A6EF	ALetter
+A6F0	A6F1	Extend
+A717	A71F	ALetter
+A722	A788	ALetter
+A78B	A7AD	ALetter
+A7B0	A7B7	ALetter
+A7F7	A801	ALetter
+A802		Extend
+A803	A805	ALetter
+A806		Extend
+A807	A80A	ALetter
+A80B		Extend
+A80C	A822	ALetter
+A823	A827	Extend
+A840	A873	ALetter
+A880	A881	Extend
+A882	A8B3	ALetter
+A8B4	A8C4	Extend
+A8D0	A8D9	Numeric
+A8E0	A8F1	Extend
+A8F2	A8F7	ALetter
+A8FB		ALetter
+A8FD		ALetter
+A900	A909	Numeric
+A90A	A925	ALetter
+A926	A92D	Extend
+A930	A946	ALetter
+A947	A953	Extend
+A960	A97C	ALetter
+A980	A983	Extend
+A984	A9B2	ALetter
+A9B3	A9C0	Extend
+A9CF		ALetter
+A9D0	A9D9	Numeric
+A9E5		Extend
+A9F0	A9F9	Numeric
+AA00	AA28	ALetter
+AA29	AA36	Extend
+AA40	AA42	ALetter
+AA43		Extend
+AA44	AA4B	ALetter
+AA4C	AA4D	Extend
+AA50	AA59	Numeric
+AA7B	AA7D	Extend
+AAB0		Extend
+AAB2	AAB4	Extend
+AAB7	AAB8	Extend
+AABE	AABF	Extend
+AAC1		Extend
+AAE0	AAEA	ALetter
+AAEB	AAEF	Extend
+AAF2	AAF4	ALetter
+AAF5	AAF6	Extend
+AB01	AB06	ALetter
+AB09	AB0E	ALetter
+AB11	AB16	ALetter
+AB20	AB26	ALetter
+AB28	AB2E	ALetter
+AB30	AB5A	ALetter
+AB5C	AB65	ALetter
+AB70	ABE2	ALetter
+ABE3	ABEA	Extend
+ABEC	ABED	Extend
+ABF0	ABF9	Numeric
+AC00	D7A3	ALetter
+D7B0	D7C6	ALetter
+D7CB	D7FB	ALetter
+FB00	FB06	ALetter
+FB13	FB17	ALetter
+FB1D		Hebrew_Letter
+FB1E		Extend
+FB1F	FB28	Hebrew_Letter
+FB2A	FB36	Hebrew_Letter
+FB38	FB3C	Hebrew_Letter
+FB3E		Hebrew_Letter
+FB40	FB41	Hebrew_Letter
+FB43	FB44	Hebrew_Letter
+FB46	FB4F	Hebrew_Letter
+FB50	FBB1	ALetter
+FBD3	FD3D	ALetter
+FD50	FD8F	ALetter
+FD92	FDC7	ALetter
+FDF0	FDFB	ALetter
+FE00	FE0F	Extend
+FE10		MidNum
+FE13		MidLetter
+FE14		MidNum
+FE20	FE2F	Extend
+FE33	FE34	ExtendNumLet
+FE4D	FE4F	ExtendNumLet
+FE50		MidNum
+FE52		MidNumLet
+FE54		MidNum
+FE55		MidLetter
+FE70	FE74	ALetter
+FE76	FEFC	ALetter
+FEFF		Format
+FF07		MidNumLet
+FF0C		MidNum
+FF0E		MidNumLet
+FF1A		MidLetter
+FF1B		MidNum
+FF21	FF3A	ALetter
+FF3F		ExtendNumLet
+FF41	FF5A	ALetter
+FF66	FF9D	Katakana
+FF9E	FF9F	Extend
+FFA0	FFBE	ALetter
+FFC2	FFC7	ALetter
+FFCA	FFCF	ALetter
+FFD2	FFD7	ALetter
+FFDA	FFDC	ALetter
+FFF9	FFFB	Format
+10000	1000B	ALetter
+1000D	10026	ALetter
+10028	1003A	ALetter
+1003C	1003D	ALetter
+1003F	1004D	ALetter
+10050	1005D	ALetter
+10080	100FA	ALetter
+10140	10174	ALetter
+101FD		Extend
+10280	1029C	ALetter
+102A0	102D0	ALetter
+102E0		Extend
+10300	1031F	ALetter
+10330	1034A	ALetter
+10350	10375	ALetter
+10376	1037A	Extend
+10380	1039D	ALetter
+103A0	103C3	ALetter
+103C8	103CF	ALetter
+103D1	103D5	ALetter
+10400	1049D	ALetter
+104A0	104A9	Numeric
+10500	10527	ALetter
+10530	10563	ALetter
+10600	10736	ALetter
+10740	10755	ALetter
+10760	10767	ALetter
+10800	10805	ALetter
+10808		ALetter
+1080A	10835	ALetter
+10837	10838	ALetter
+1083C		ALetter
+1083F	10855	ALetter
+10860	10876	ALetter
+10880	1089E	ALetter
+108E0	108F2	ALetter
+108F4	108F5	ALetter
+10900	10915	ALetter
+10920	10939	ALetter
+10980	109B7	ALetter
+109BE	109BF	ALetter
+10A00		ALetter
+10A01	10A03	Extend
+10A05	10A06	Extend
+10A0C	10A0F	Extend
+10A10	10A13	ALetter
+10A15	10A17	ALetter
+10A19	10A33	ALetter
+10A38	10A3A	Extend
+10A3F		Extend
+10A60	10A7C	ALetter
+10A80	10A9C	ALetter
+10AC0	10AC7	ALetter
+10AC9	10AE4	ALetter
+10AE5	10AE6	Extend
+10B00	10B35	ALetter
+10B40	10B55	ALetter
+10B60	10B72	ALetter
+10B80	10B91	ALetter
+10C00	10C48	ALetter
+10C80	10CB2	ALetter
+10CC0	10CF2	ALetter
+11000	11002	Extend
+11003	11037	ALetter
+11038	11046	Extend
+11066	1106F	Numeric
+1107F	11082	Extend
+11083	110AF	ALetter
+110B0	110BA	Extend
+110BD		Format
+110D0	110E8	ALetter
+110F0	110F9	Numeric
+11100	11102	Extend
+11103	11126	ALetter
+11127	11134	Extend
+11136	1113F	Numeric
+11150	11172	ALetter
+11173		Extend
+11176		ALetter
+11180	11182	Extend
+11183	111B2	ALetter
+111B3	111C0	Extend
+111C1	111C4	ALetter
+111CA	111CC	Extend
+111D0	111D9	Numeric
+111DA		ALetter
+111DC		ALetter
+11200	11211	ALetter
+11213	1122B	ALetter
+1122C	11237	Extend
+11280	11286	ALetter
+11288		ALetter
+1128A	1128D	ALetter
+1128F	1129D	ALetter
+1129F	112A8	ALetter
+112B0	112DE	ALetter
+112DF	112EA	Extend
+112F0	112F9	Numeric
+11300	11303	Extend
+11305	1130C	ALetter
+1130F	11310	ALetter
+11313	11328	ALetter
+1132A	11330	ALetter
+11332	11333	ALetter
+11335	11339	ALetter
+1133C		Extend
+1133D		ALetter
+1133E	11344	Extend
+11347	11348	Extend
+1134B	1134D	Extend
+11350		ALetter
+11357		Extend
+1135D	11361	ALetter
+11362	11363	Extend
+11366	1136C	Extend
+11370	11374	Extend
+11480	114AF	ALetter
+114B0	114C3	Extend
+114C4	114C5	ALetter
+114C7		ALetter
+114D0	114D9	Numeric
+11580	115AE	ALetter
+115AF	115B5	Extend
+115B8	115C0	Extend
+115D8	115DB	ALetter
+115DC	115DD	Extend
+11600	1162F	ALetter
+11630	11640	Extend
+11644		ALetter
+11650	11659	Numeric
+11680	116AA	ALetter
+116AB	116B7	Extend
+116C0	116C9	Numeric
+1171D	1172B	Extend
+11730	11739	Numeric
+118A0	118DF	ALetter
+118E0	118E9	Numeric
+118FF		ALetter
+11AC0	11AF8	ALetter
+12000	12399	ALetter
+12400	1246E	ALetter
+12480	12543	ALetter
+13000	1342E	ALetter
+14400	14646	ALetter
+16800	16A38	ALetter
+16A40	16A5E	ALetter
+16A60	16A69	Numeric
+16AD0	16AED	ALetter
+16AF0	16AF4	Extend
+16B00	16B2F	ALetter
+16B30	16B36	Extend
+16B40	16B43	ALetter
+16B50	16B59	Numeric
+16B63	16B77	ALetter
+16B7D	16B8F	ALetter
+16F00	16F44	ALetter
+16F50		ALetter
+16F51	16F7E	Extend
+16F8F	16F92	Extend
+16F93	16F9F	ALetter
+1B000		Katakana
+1BC00	1BC6A	ALetter
+1BC70	1BC7C	ALetter
+1BC80	1BC88	ALetter
+1BC90	1BC99	ALetter
+1BC9D	1BC9E	Extend
+1BCA0	1BCA3	Format
+1D165	1D169	Extend
+1D16D	1D172	Extend
+1D173	1D17A	Format
+1D17B	1D182	Extend
+1D185	1D18B	Extend
+1D1AA	1D1AD	Extend
+1D242	1D244	Extend
+1D400	1D454	ALetter
+1D456	1D49C	ALetter
+1D49E	1D49F	ALetter
+1D4A2		ALetter
+1D4A5	1D4A6	ALetter
+1D4A9	1D4AC	ALetter
+1D4AE	1D4B9	ALetter
+1D4BB		ALetter
+1D4BD	1D4C3	ALetter
+1D4C5	1D505	ALetter
+1D507	1D50A	ALetter
+1D50D	1D514	ALetter
+1D516	1D51C	ALetter
+1D51E	1D539	ALetter
+1D53B	1D53E	ALetter
+1D540	1D544	ALetter
+1D546		ALetter
+1D54A	1D550	ALetter
+1D552	1D6A5	ALetter
+1D6A8	1D6C0	ALetter
+1D6C2	1D6DA	ALetter
+1D6DC	1D6FA	ALetter
+1D6FC	1D714	ALetter
+1D716	1D734	ALetter
+1D736	1D74E	ALetter
+1D750	1D76E	ALetter
+1D770	1D788	ALetter
+1D78A	1D7A8	ALetter
+1D7AA	1D7C2	ALetter
+1D7C4	1D7CB	ALetter
+1D7CE	1D7FF	Numeric
+1DA00	1DA36	Extend
+1DA3B	1DA6C	Extend
+1DA75		Extend
+1DA84		Extend
+1DA9B	1DA9F	Extend
+1DAA1	1DAAF	Extend
+1E800	1E8C4	ALetter
+1E8D0	1E8D6	Extend
+1EE00	1EE03	ALetter
+1EE05	1EE1F	ALetter
+1EE21	1EE22	ALetter
+1EE24		ALetter
+1EE27		ALetter
+1EE29	1EE32	ALetter
+1EE34	1EE37	ALetter
+1EE39		ALetter
+1EE3B		ALetter
+1EE42		ALetter
+1EE47		ALetter
+1EE49		ALetter
+1EE4B		ALetter
+1EE4D	1EE4F	ALetter
+1EE51	1EE52	ALetter
+1EE54		ALetter
+1EE57		ALetter
+1EE59		ALetter
+1EE5B		ALetter
+1EE5D		ALetter
+1EE5F		ALetter
+1EE61	1EE62	ALetter
+1EE64		ALetter
+1EE67	1EE6A	ALetter
+1EE6C	1EE72	ALetter
+1EE74	1EE77	ALetter
+1EE79	1EE7C	ALetter
+1EE7E		ALetter
+1EE80	1EE89	ALetter
+1EE8B	1EE9B	ALetter
+1EEA1	1EEA3	ALetter
+1EEA5	1EEA9	ALetter
+1EEAB	1EEBB	ALetter
+1F130	1F149	ALetter
+1F150	1F169	ALetter
+1F170	1F189	ALetter
+1F1E6	1F1FF	Regional_Indicator
+E0001		Format
+E0020	E007F	Format
+E0100	E01EF	Extend
+END
diff --git a/lib/5.24.1/unicore/UCD.pl b/lib/5.24.1/unicore/UCD.pl
new file mode 100644
index 00000000..7b5c8b85
--- /dev/null
+++ b/lib/5.24.1/unicore/UCD.pl
@@ -0,0 +1,9178 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+# This file is for the use of Unicode::UCD
+
+# Highest legal Unicode code point
+$Unicode::UCD::MAX_UNICODE_CODEPOINT = 0x10FFFF;
+
+# Hangul syllables
+$Unicode::UCD::HANGUL_BEGIN = 0xAC00;
+$Unicode::UCD::HANGUL_COUNT = 11172;
+
+# Keys are all the possible "prop=value" combinations, in loose form; values
+# are the standard loose name for the 'value' part of the key
+%Unicode::UCD::loose_to_standard_value = (
+'age=1.1' => '1.1',
+'age=2.0' => '2.0',
+'age=2.1' => '2.1',
+'age=3.0' => '3.0',
+'age=3.1' => '3.1',
+'age=3.2' => '3.2',
+'age=4.0' => '4.0',
+'age=4.1' => '4.1',
+'age=5.0' => '5.0',
+'age=5.1' => '5.1',
+'age=5.2' => '5.2',
+'age=6.0' => '6.0',
+'age=6.1' => '6.1',
+'age=6.2' => '6.2',
+'age=6.3' => '6.3',
+'age=7.0' => '7.0',
+'age=8.0' => '8.0',
+'age=na' => 'na',
+'age=unassigned' => 'na',
+'age=v11' => '1.1',
+'age=v20' => '2.0',
+'age=v21' => '2.1',
+'age=v30' => '3.0',
+'age=v31' => '3.1',
+'age=v32' => '3.2',
+'age=v40' => '4.0',
+'age=v41' => '4.1',
+'age=v50' => '5.0',
+'age=v51' => '5.1',
+'age=v52' => '5.2',
+'age=v60' => '6.0',
+'age=v61' => '6.1',
+'age=v62' => '6.2',
+'age=v63' => '6.3',
+'age=v70' => '7.0',
+'age=v80' => '8.0',
+'ahex=f' => 'n',
+'ahex=false' => 'n',
+'ahex=n' => 'n',
+'ahex=no' => 'n',
+'ahex=t' => 'y',
+'ahex=true' => 'y',
+'ahex=y' => 'y',
+'ahex=yes' => 'y',
+'alpha=f' => 'n',
+'alpha=false' => 'n',
+'alpha=n' => 'n',
+'alpha=no' => 'n',
+'alpha=t' => 'y',
+'alpha=true' => 'y',
+'alpha=y' => 'y',
+'alpha=yes' => 'y',
+'bc=al' => 'al',
+'bc=an' => 'an',
+'bc=arabicletter' => 'al',
+'bc=arabicnumber' => 'an',
+'bc=b' => 'b',
+'bc=bn' => 'bn',
+'bc=boundaryneutral' => 'bn',
+'bc=commonseparator' => 'cs',
+'bc=cs' => 'cs',
+'bc=en' => 'en',
+'bc=es' => 'es',
+'bc=et' => 'et',
+'bc=europeannumber' => 'en',
+'bc=europeanseparator' => 'es',
+'bc=europeanterminator' => 'et',
+'bc=firststrongisolate' => 'fsi',
+'bc=fsi' => 'fsi',
+'bc=l' => 'l',
+'bc=lefttoright' => 'l',
+'bc=lefttorightembedding' => 'lre',
+'bc=lefttorightisolate' => 'lri',
+'bc=lefttorightoverride' => 'lro',
+'bc=lre' => 'lre',
+'bc=lri' => 'lri',
+'bc=lro' => 'lro',
+'bc=nonspacingmark' => 'nsm',
+'bc=nsm' => 'nsm',
+'bc=on' => 'on',
+'bc=otherneutral' => 'on',
+'bc=paragraphseparator' => 'b',
+'bc=pdf' => 'pdf',
+'bc=pdi' => 'pdi',
+'bc=popdirectionalformat' => 'pdf',
+'bc=popdirectionalisolate' => 'pdi',
+'bc=r' => 'r',
+'bc=righttoleft' => 'r',
+'bc=righttoleftembedding' => 'rle',
+'bc=righttoleftisolate' => 'rli',
+'bc=righttoleftoverride' => 'rlo',
+'bc=rle' => 'rle',
+'bc=rli' => 'rli',
+'bc=rlo' => 'rlo',
+'bc=s' => 's',
+'bc=segmentseparator' => 's',
+'bc=whitespace' => 'ws',
+'bc=ws' => 'ws',
+'bidic=f' => 'n',
+'bidic=false' => 'n',
+'bidic=n' => 'n',
+'bidic=no' => 'n',
+'bidic=t' => 'y',
+'bidic=true' => 'y',
+'bidic=y' => 'y',
+'bidic=yes' => 'y',
+'bidim=f' => 'n',
+'bidim=false' => 'n',
+'bidim=n' => 'n',
+'bidim=no' => 'n',
+'bidim=t' => 'y',
+'bidim=true' => 'y',
+'bidim=y' => 'y',
+'bidim=yes' => 'y',
+'blk=aegeannumbers' => 'aegeannumbers',
+'blk=ahom' => 'ahom',
+'blk=alchemical' => 'alchemical',
+'blk=alchemicalsymbols' => 'alchemical',
+'blk=alphabeticpf' => 'alphabeticpf',
+'blk=alphabeticpresentationforms' => 'alphabeticpf',
+'blk=anatolianhieroglyphs' => 'anatolianhieroglyphs',
+'blk=ancientgreekmusic' => 'ancientgreekmusic',
+'blk=ancientgreekmusicalnotation' => 'ancientgreekmusic',
+'blk=ancientgreeknumbers' => 'ancientgreeknumbers',
+'blk=ancientsymbols' => 'ancientsymbols',
+'blk=arabic' => 'arabic',
+'blk=arabicexta' => 'arabicexta',
+'blk=arabicextendeda' => 'arabicexta',
+'blk=arabicmath' => 'arabicmath',
+'blk=arabicmathematicalalphabeticsymbols' => 'arabicmath',
+'blk=arabicpfa' => 'arabicpfa',
+'blk=arabicpfb' => 'arabicpfb',
+'blk=arabicpresentationformsa' => 'arabicpfa',
+'blk=arabicpresentationformsb' => 'arabicpfb',
+'blk=arabicsup' => 'arabicsup',
+'blk=arabicsupplement' => 'arabicsup',
+'blk=armenian' => 'armenian',
+'blk=arrows' => 'arrows',
+'blk=ascii' => 'ascii',
+'blk=avestan' => 'avestan',
+'blk=balinese' => 'balinese',
+'blk=bamum' => 'bamum',
+'blk=bamumsup' => 'bamumsup',
+'blk=bamumsupplement' => 'bamumsup',
+'blk=basiclatin' => 'ascii',
+'blk=bassavah' => 'bassavah',
+'blk=batak' => 'batak',
+'blk=bengali' => 'bengali',
+'blk=blockelements' => 'blockelements',
+'blk=bopomofo' => 'bopomofo',
+'blk=bopomofoext' => 'bopomofoext',
+'blk=bopomofoextended' => 'bopomofoext',
+'blk=boxdrawing' => 'boxdrawing',
+'blk=brahmi' => 'brahmi',
+'blk=braille' => 'braille',
+'blk=braillepatterns' => 'braille',
+'blk=buginese' => 'buginese',
+'blk=buhid' => 'buhid',
+'blk=byzantinemusic' => 'byzantinemusic',
+'blk=byzantinemusicalsymbols' => 'byzantinemusic',
+'blk=canadiansyllabics' => 'ucas',
+'blk=carian' => 'carian',
+'blk=caucasianalbanian' => 'caucasianalbanian',
+'blk=chakma' => 'chakma',
+'blk=cham' => 'cham',
+'blk=cherokee' => 'cherokee',
+'blk=cherokeesup' => 'cherokeesup',
+'blk=cherokeesupplement' => 'cherokeesup',
+'blk=cjk' => 'cjk',
+'blk=cjkcompat' => 'cjkcompat',
+'blk=cjkcompatforms' => 'cjkcompatforms',
+'blk=cjkcompatibility' => 'cjkcompat',
+'blk=cjkcompatibilityforms' => 'cjkcompatforms',
+'blk=cjkcompatibilityideographs' => 'cjkcompatideographs',
+'blk=cjkcompatibilityideographssupplement' => 'cjkcompatideographssup',
+'blk=cjkcompatideographs' => 'cjkcompatideographs',
+'blk=cjkcompatideographssup' => 'cjkcompatideographssup',
+'blk=cjkexta' => 'cjkexta',
+'blk=cjkextb' => 'cjkextb',
+'blk=cjkextc' => 'cjkextc',
+'blk=cjkextd' => 'cjkextd',
+'blk=cjkexte' => 'cjkexte',
+'blk=cjkradicalssup' => 'cjkradicalssup',
+'blk=cjkradicalssupplement' => 'cjkradicalssup',
+'blk=cjkstrokes' => 'cjkstrokes',
+'blk=cjksymbols' => 'cjksymbols',
+'blk=cjksymbolsandpunctuation' => 'cjksymbols',
+'blk=cjkunifiedideographs' => 'cjk',
+'blk=cjkunifiedideographsextensiona' => 'cjkexta',
+'blk=cjkunifiedideographsextensionb' => 'cjkextb',
+'blk=cjkunifiedideographsextensionc' => 'cjkextc',
+'blk=cjkunifiedideographsextensiond' => 'cjkextd',
+'blk=cjkunifiedideographsextensione' => 'cjkexte',
+'blk=combiningdiacriticalmarks' => 'diacriticals',
+'blk=combiningdiacriticalmarksextended' => 'diacriticalsext',
+'blk=combiningdiacriticalmarksforsymbols' => 'diacriticalsforsymbols',
+'blk=combiningdiacriticalmarkssupplement' => 'diacriticalssup',
+'blk=combininghalfmarks' => 'halfmarks',
+'blk=combiningmarksforsymbols' => 'diacriticalsforsymbols',
+'blk=commonindicnumberforms' => 'indicnumberforms',
+'blk=compatjamo' => 'compatjamo',
+'blk=controlpictures' => 'controlpictures',
+'blk=coptic' => 'coptic',
+'blk=copticepactnumbers' => 'copticepactnumbers',
+'blk=countingrod' => 'countingrod',
+'blk=countingrodnumerals' => 'countingrod',
+'blk=cuneiform' => 'cuneiform',
+'blk=cuneiformnumbers' => 'cuneiformnumbers',
+'blk=cuneiformnumbersandpunctuation' => 'cuneiformnumbers',
+'blk=currencysymbols' => 'currencysymbols',
+'blk=cypriotsyllabary' => 'cypriotsyllabary',
+'blk=cyrillic' => 'cyrillic',
+'blk=cyrillicexta' => 'cyrillicexta',
+'blk=cyrillicextb' => 'cyrillicextb',
+'blk=cyrillicextendeda' => 'cyrillicexta',
+'blk=cyrillicextendedb' => 'cyrillicextb',
+'blk=cyrillicsup' => 'cyrillicsup',
+'blk=cyrillicsupplement' => 'cyrillicsup',
+'blk=cyrillicsupplementary' => 'cyrillicsup',
+'blk=deseret' => 'deseret',
+'blk=devanagari' => 'devanagari',
+'blk=devanagariext' => 'devanagariext',
+'blk=devanagariextended' => 'devanagariext',
+'blk=diacriticals' => 'diacriticals',
+'blk=diacriticalsext' => 'diacriticalsext',
+'blk=diacriticalsforsymbols' => 'diacriticalsforsymbols',
+'blk=diacriticalssup' => 'diacriticalssup',
+'blk=dingbats' => 'dingbats',
+'blk=domino' => 'domino',
+'blk=dominotiles' => 'domino',
+'blk=duployan' => 'duployan',
+'blk=earlydynasticcuneiform' => 'earlydynasticcuneiform',
+'blk=egyptianhieroglyphs' => 'egyptianhieroglyphs',
+'blk=elbasan' => 'elbasan',
+'blk=emoticons' => 'emoticons',
+'blk=enclosedalphanum' => 'enclosedalphanum',
+'blk=enclosedalphanumerics' => 'enclosedalphanum',
+'blk=enclosedalphanumericsupplement' => 'enclosedalphanumsup',
+'blk=enclosedalphanumsup' => 'enclosedalphanumsup',
+'blk=enclosedcjk' => 'enclosedcjk',
+'blk=enclosedcjklettersandmonths' => 'enclosedcjk',
+'blk=enclosedideographicsup' => 'enclosedideographicsup',
+'blk=enclosedideographicsupplement' => 'enclosedideographicsup',
+'blk=ethiopic' => 'ethiopic',
+'blk=ethiopicext' => 'ethiopicext',
+'blk=ethiopicexta' => 'ethiopicexta',
+'blk=ethiopicextended' => 'ethiopicext',
+'blk=ethiopicextendeda' => 'ethiopicexta',
+'blk=ethiopicsup' => 'ethiopicsup',
+'blk=ethiopicsupplement' => 'ethiopicsup',
+'blk=generalpunctuation' => 'punctuation',
+'blk=geometricshapes' => 'geometricshapes',
+'blk=geometricshapesext' => 'geometricshapesext',
+'blk=geometricshapesextended' => 'geometricshapesext',
+'blk=georgian' => 'georgian',
+'blk=georgiansup' => 'georgiansup',
+'blk=georgiansupplement' => 'georgiansup',
+'blk=glagolitic' => 'glagolitic',
+'blk=gothic' => 'gothic',
+'blk=grantha' => 'grantha',
+'blk=greek' => 'greek',
+'blk=greekandcoptic' => 'greek',
+'blk=greekext' => 'greekext',
+'blk=greekextended' => 'greekext',
+'blk=gujarati' => 'gujarati',
+'blk=gurmukhi' => 'gurmukhi',
+'blk=halfandfullforms' => 'halfandfullforms',
+'blk=halfmarks' => 'halfmarks',
+'blk=halfwidthandfullwidthforms' => 'halfandfullforms',
+'blk=hangul' => 'hangul',
+'blk=hangulcompatibilityjamo' => 'compatjamo',
+'blk=hanguljamo' => 'jamo',
+'blk=hanguljamoextendeda' => 'jamoexta',
+'blk=hanguljamoextendedb' => 'jamoextb',
+'blk=hangulsyllables' => 'hangul',
+'blk=hanunoo' => 'hanunoo',
+'blk=hatran' => 'hatran',
+'blk=hebrew' => 'hebrew',
+'blk=highprivateusesurrogates' => 'highpusurrogates',
+'blk=highpusurrogates' => 'highpusurrogates',
+'blk=highsurrogates' => 'highsurrogates',
+'blk=hiragana' => 'hiragana',
+'blk=idc' => 'idc',
+'blk=ideographicdescriptioncharacters' => 'idc',
+'blk=imperialaramaic' => 'imperialaramaic',
+'blk=indicnumberforms' => 'indicnumberforms',
+'blk=inscriptionalpahlavi' => 'inscriptionalpahlavi',
+'blk=inscriptionalparthian' => 'inscriptionalparthian',
+'blk=ipaext' => 'ipaext',
+'blk=ipaextensions' => 'ipaext',
+'blk=jamo' => 'jamo',
+'blk=jamoexta' => 'jamoexta',
+'blk=jamoextb' => 'jamoextb',
+'blk=javanese' => 'javanese',
+'blk=kaithi' => 'kaithi',
+'blk=kanasup' => 'kanasup',
+'blk=kanasupplement' => 'kanasup',
+'blk=kanbun' => 'kanbun',
+'blk=kangxi' => 'kangxi',
+'blk=kangxiradicals' => 'kangxi',
+'blk=kannada' => 'kannada',
+'blk=katakana' => 'katakana',
+'blk=katakanaext' => 'katakanaext',
+'blk=katakanaphoneticextensions' => 'katakanaext',
+'blk=kayahli' => 'kayahli',
+'blk=kharoshthi' => 'kharoshthi',
+'blk=khmer' => 'khmer',
+'blk=khmersymbols' => 'khmersymbols',
+'blk=khojki' => 'khojki',
+'blk=khudawadi' => 'khudawadi',
+'blk=lao' => 'lao',
+'blk=latin1' => 'latin1sup',
+'blk=latin1sup' => 'latin1sup',
+'blk=latin1supplement' => 'latin1sup',
+'blk=latinexta' => 'latinexta',
+'blk=latinextadditional' => 'latinextadditional',
+'blk=latinextb' => 'latinextb',
+'blk=latinextc' => 'latinextc',
+'blk=latinextd' => 'latinextd',
+'blk=latinexte' => 'latinexte',
+'blk=latinextendeda' => 'latinexta',
+'blk=latinextendedadditional' => 'latinextadditional',
+'blk=latinextendedb' => 'latinextb',
+'blk=latinextendedc' => 'latinextc',
+'blk=latinextendedd' => 'latinextd',
+'blk=latinextendede' => 'latinexte',
+'blk=lepcha' => 'lepcha',
+'blk=letterlikesymbols' => 'letterlikesymbols',
+'blk=limbu' => 'limbu',
+'blk=lineara' => 'lineara',
+'blk=linearbideograms' => 'linearbideograms',
+'blk=linearbsyllabary' => 'linearbsyllabary',
+'blk=lisu' => 'lisu',
+'blk=lowsurrogates' => 'lowsurrogates',
+'blk=lycian' => 'lycian',
+'blk=lydian' => 'lydian',
+'blk=mahajani' => 'mahajani',
+'blk=mahjong' => 'mahjong',
+'blk=mahjongtiles' => 'mahjong',
+'blk=malayalam' => 'malayalam',
+'blk=mandaic' => 'mandaic',
+'blk=manichaean' => 'manichaean',
+'blk=mathalphanum' => 'mathalphanum',
+'blk=mathematicalalphanumericsymbols' => 'mathalphanum',
+'blk=mathematicaloperators' => 'mathoperators',
+'blk=mathoperators' => 'mathoperators',
+'blk=meeteimayek' => 'meeteimayek',
+'blk=meeteimayekext' => 'meeteimayekext',
+'blk=meeteimayekextensions' => 'meeteimayekext',
+'blk=mendekikakui' => 'mendekikakui',
+'blk=meroiticcursive' => 'meroiticcursive',
+'blk=meroitichieroglyphs' => 'meroitichieroglyphs',
+'blk=miao' => 'miao',
+'blk=miscarrows' => 'miscarrows',
+'blk=miscellaneousmathematicalsymbolsa' => 'miscmathsymbolsa',
+'blk=miscellaneousmathematicalsymbolsb' => 'miscmathsymbolsb',
+'blk=miscellaneoussymbols' => 'miscsymbols',
+'blk=miscellaneoussymbolsandarrows' => 'miscarrows',
+'blk=miscellaneoussymbolsandpictographs' => 'miscpictographs',
+'blk=miscellaneoustechnical' => 'misctechnical',
+'blk=miscmathsymbolsa' => 'miscmathsymbolsa',
+'blk=miscmathsymbolsb' => 'miscmathsymbolsb',
+'blk=miscpictographs' => 'miscpictographs',
+'blk=miscsymbols' => 'miscsymbols',
+'blk=misctechnical' => 'misctechnical',
+'blk=modi' => 'modi',
+'blk=modifierletters' => 'modifierletters',
+'blk=modifiertoneletters' => 'modifiertoneletters',
+'blk=mongolian' => 'mongolian',
+'blk=mro' => 'mro',
+'blk=multani' => 'multani',
+'blk=music' => 'music',
+'blk=musicalsymbols' => 'music',
+'blk=myanmar' => 'myanmar',
+'blk=myanmarexta' => 'myanmarexta',
+'blk=myanmarextb' => 'myanmarextb',
+'blk=myanmarextendeda' => 'myanmarexta',
+'blk=myanmarextendedb' => 'myanmarextb',
+'blk=nabataean' => 'nabataean',
+'blk=nb' => 'nb',
+'blk=newtailue' => 'newtailue',
+'blk=nko' => 'nko',
+'blk=noblock' => 'nb',
+'blk=numberforms' => 'numberforms',
+'blk=ocr' => 'ocr',
+'blk=ogham' => 'ogham',
+'blk=olchiki' => 'olchiki',
+'blk=oldhungarian' => 'oldhungarian',
+'blk=olditalic' => 'olditalic',
+'blk=oldnortharabian' => 'oldnortharabian',
+'blk=oldpermic' => 'oldpermic',
+'blk=oldpersian' => 'oldpersian',
+'blk=oldsoutharabian' => 'oldsoutharabian',
+'blk=oldturkic' => 'oldturkic',
+'blk=opticalcharacterrecognition' => 'ocr',
+'blk=oriya' => 'oriya',
+'blk=ornamentaldingbats' => 'ornamentaldingbats',
+'blk=osmanya' => 'osmanya',
+'blk=pahawhhmong' => 'pahawhhmong',
+'blk=palmyrene' => 'palmyrene',
+'blk=paucinhau' => 'paucinhau',
+'blk=phagspa' => 'phagspa',
+'blk=phaistos' => 'phaistos',
+'blk=phaistosdisc' => 'phaistos',
+'blk=phoenician' => 'phoenician',
+'blk=phoneticext' => 'phoneticext',
+'blk=phoneticextensions' => 'phoneticext',
+'blk=phoneticextensionssupplement' => 'phoneticextsup',
+'blk=phoneticextsup' => 'phoneticextsup',
+'blk=playingcards' => 'playingcards',
+'blk=privateuse' => 'pua',
+'blk=privateusearea' => 'pua',
+'blk=psalterpahlavi' => 'psalterpahlavi',
+'blk=pua' => 'pua',
+'blk=punctuation' => 'punctuation',
+'blk=rejang' => 'rejang',
+'blk=rumi' => 'rumi',
+'blk=ruminumeralsymbols' => 'rumi',
+'blk=runic' => 'runic',
+'blk=samaritan' => 'samaritan',
+'blk=saurashtra' => 'saurashtra',
+'blk=sharada' => 'sharada',
+'blk=shavian' => 'shavian',
+'blk=shorthandformatcontrols' => 'shorthandformatcontrols',
+'blk=siddham' => 'siddham',
+'blk=sinhala' => 'sinhala',
+'blk=sinhalaarchaicnumbers' => 'sinhalaarchaicnumbers',
+'blk=smallforms' => 'smallforms',
+'blk=smallformvariants' => 'smallforms',
+'blk=sorasompeng' => 'sorasompeng',
+'blk=spacingmodifierletters' => 'modifierletters',
+'blk=specials' => 'specials',
+'blk=sundanese' => 'sundanese',
+'blk=sundanesesup' => 'sundanesesup',
+'blk=sundanesesupplement' => 'sundanesesup',
+'blk=suparrowsa' => 'suparrowsa',
+'blk=suparrowsb' => 'suparrowsb',
+'blk=suparrowsc' => 'suparrowsc',
+'blk=superandsub' => 'superandsub',
+'blk=superscriptsandsubscripts' => 'superandsub',
+'blk=supmathoperators' => 'supmathoperators',
+'blk=supplementalarrowsa' => 'suparrowsa',
+'blk=supplementalarrowsb' => 'suparrowsb',
+'blk=supplementalarrowsc' => 'suparrowsc',
+'blk=supplementalmathematicaloperators' => 'supmathoperators',
+'blk=supplementalpunctuation' => 'suppunctuation',
+'blk=supplementalsymbolsandpictographs' => 'supsymbolsandpictographs',
+'blk=supplementaryprivateuseareaa' => 'suppuaa',
+'blk=supplementaryprivateuseareab' => 'suppuab',
+'blk=suppuaa' => 'suppuaa',
+'blk=suppuab' => 'suppuab',
+'blk=suppunctuation' => 'suppunctuation',
+'blk=supsymbolsandpictographs' => 'supsymbolsandpictographs',
+'blk=suttonsignwriting' => 'suttonsignwriting',
+'blk=sylotinagri' => 'sylotinagri',
+'blk=syriac' => 'syriac',
+'blk=tagalog' => 'tagalog',
+'blk=tagbanwa' => 'tagbanwa',
+'blk=tags' => 'tags',
+'blk=taile' => 'taile',
+'blk=taitham' => 'taitham',
+'blk=taiviet' => 'taiviet',
+'blk=taixuanjing' => 'taixuanjing',
+'blk=taixuanjingsymbols' => 'taixuanjing',
+'blk=takri' => 'takri',
+'blk=tamil' => 'tamil',
+'blk=telugu' => 'telugu',
+'blk=thaana' => 'thaana',
+'blk=thai' => 'thai',
+'blk=tibetan' => 'tibetan',
+'blk=tifinagh' => 'tifinagh',
+'blk=tirhuta' => 'tirhuta',
+'blk=transportandmap' => 'transportandmap',
+'blk=transportandmapsymbols' => 'transportandmap',
+'blk=ucas' => 'ucas',
+'blk=ucasext' => 'ucasext',
+'blk=ugaritic' => 'ugaritic',
+'blk=unifiedcanadianaboriginalsyllabics' => 'ucas',
+'blk=unifiedcanadianaboriginalsyllabicsextended' => 'ucasext',
+'blk=vai' => 'vai',
+'blk=variationselectors' => 'vs',
+'blk=variationselectorssupplement' => 'vssup',
+'blk=vedicext' => 'vedicext',
+'blk=vedicextensions' => 'vedicext',
+'blk=verticalforms' => 'verticalforms',
+'blk=vs' => 'vs',
+'blk=vssup' => 'vssup',
+'blk=warangciti' => 'warangciti',
+'blk=yijing' => 'yijing',
+'blk=yijinghexagramsymbols' => 'yijing',
+'blk=yiradicals' => 'yiradicals',
+'blk=yisyllables' => 'yisyllables',
+'bpt=c' => 'c',
+'bpt=close' => 'c',
+'bpt=n' => 'n',
+'bpt=none' => 'n',
+'bpt=o' => 'o',
+'bpt=open' => 'o',
+'cased=f' => 'n',
+'cased=false' => 'n',
+'cased=n' => 'n',
+'cased=no' => 'n',
+'cased=t' => 'y',
+'cased=true' => 'y',
+'cased=y' => 'y',
+'cased=yes' => 'y',
+'ccc=0' => 'nr',
+'ccc=1' => 'ov',
+'ccc=10' => 'ccc10',
+'ccc=103' => 'ccc103',
+'ccc=107' => 'ccc107',
+'ccc=11' => 'ccc11',
+'ccc=118' => 'ccc118',
+'ccc=12' => 'ccc12',
+'ccc=122' => 'ccc122',
+'ccc=129' => 'ccc129',
+'ccc=13' => 'ccc13',
+'ccc=130' => 'ccc130',
+'ccc=132' => 'ccc132',
+'ccc=133' => 'ccc133',
+'ccc=14' => 'ccc14',
+'ccc=15' => 'ccc15',
+'ccc=16' => 'ccc16',
+'ccc=17' => 'ccc17',
+'ccc=18' => 'ccc18',
+'ccc=19' => 'ccc19',
+'ccc=20' => 'ccc20',
+'ccc=200' => 'atbl',
+'ccc=202' => 'atb',
+'ccc=21' => 'ccc21',
+'ccc=214' => 'ata',
+'ccc=216' => 'atar',
+'ccc=218' => 'bl',
+'ccc=22' => 'ccc22',
+'ccc=220' => 'b',
+'ccc=222' => 'br',
+'ccc=224' => 'l',
+'ccc=226' => 'r',
+'ccc=228' => 'al',
+'ccc=23' => 'ccc23',
+'ccc=230' => 'a',
+'ccc=232' => 'ar',
+'ccc=233' => 'db',
+'ccc=234' => 'da',
+'ccc=24' => 'ccc24',
+'ccc=240' => 'is',
+'ccc=25' => 'ccc25',
+'ccc=26' => 'ccc26',
+'ccc=27' => 'ccc27',
+'ccc=28' => 'ccc28',
+'ccc=29' => 'ccc29',
+'ccc=30' => 'ccc30',
+'ccc=31' => 'ccc31',
+'ccc=32' => 'ccc32',
+'ccc=33' => 'ccc33',
+'ccc=34' => 'ccc34',
+'ccc=35' => 'ccc35',
+'ccc=36' => 'ccc36',
+'ccc=7' => 'nk',
+'ccc=8' => 'kv',
+'ccc=84' => 'ccc84',
+'ccc=9' => 'vr',
+'ccc=91' => 'ccc91',
+'ccc=a' => 'a',
+'ccc=above' => 'a',
+'ccc=aboveleft' => 'al',
+'ccc=aboveright' => 'ar',
+'ccc=al' => 'al',
+'ccc=ar' => 'ar',
+'ccc=ata' => 'ata',
+'ccc=atar' => 'atar',
+'ccc=atb' => 'atb',
+'ccc=atbl' => 'atbl',
+'ccc=attachedabove' => 'ata',
+'ccc=attachedaboveright' => 'atar',
+'ccc=attachedbelow' => 'atb',
+'ccc=attachedbelowleft' => 'atbl',
+'ccc=b' => 'b',
+'ccc=below' => 'b',
+'ccc=belowleft' => 'bl',
+'ccc=belowright' => 'br',
+'ccc=bl' => 'bl',
+'ccc=br' => 'br',
+'ccc=ccc10' => 'ccc10',
+'ccc=ccc103' => 'ccc103',
+'ccc=ccc107' => 'ccc107',
+'ccc=ccc11' => 'ccc11',
+'ccc=ccc118' => 'ccc118',
+'ccc=ccc12' => 'ccc12',
+'ccc=ccc122' => 'ccc122',
+'ccc=ccc129' => 'ccc129',
+'ccc=ccc13' => 'ccc13',
+'ccc=ccc130' => 'ccc130',
+'ccc=ccc132' => 'ccc132',
+'ccc=ccc133' => 'ccc133',
+'ccc=ccc14' => 'ccc14',
+'ccc=ccc15' => 'ccc15',
+'ccc=ccc16' => 'ccc16',
+'ccc=ccc17' => 'ccc17',
+'ccc=ccc18' => 'ccc18',
+'ccc=ccc19' => 'ccc19',
+'ccc=ccc20' => 'ccc20',
+'ccc=ccc21' => 'ccc21',
+'ccc=ccc22' => 'ccc22',
+'ccc=ccc23' => 'ccc23',
+'ccc=ccc24' => 'ccc24',
+'ccc=ccc25' => 'ccc25',
+'ccc=ccc26' => 'ccc26',
+'ccc=ccc27' => 'ccc27',
+'ccc=ccc28' => 'ccc28',
+'ccc=ccc29' => 'ccc29',
+'ccc=ccc30' => 'ccc30',
+'ccc=ccc31' => 'ccc31',
+'ccc=ccc32' => 'ccc32',
+'ccc=ccc33' => 'ccc33',
+'ccc=ccc34' => 'ccc34',
+'ccc=ccc35' => 'ccc35',
+'ccc=ccc36' => 'ccc36',
+'ccc=ccc84' => 'ccc84',
+'ccc=ccc91' => 'ccc91',
+'ccc=da' => 'da',
+'ccc=db' => 'db',
+'ccc=doubleabove' => 'da',
+'ccc=doublebelow' => 'db',
+'ccc=iotasubscript' => 'is',
+'ccc=is' => 'is',
+'ccc=kanavoicing' => 'kv',
+'ccc=kv' => 'kv',
+'ccc=l' => 'l',
+'ccc=left' => 'l',
+'ccc=nk' => 'nk',
+'ccc=notreordered' => 'nr',
+'ccc=nr' => 'nr',
+'ccc=nukta' => 'nk',
+'ccc=ov' => 'ov',
+'ccc=overlay' => 'ov',
+'ccc=r' => 'r',
+'ccc=right' => 'r',
+'ccc=virama' => 'vr',
+'ccc=vr' => 'vr',
+'ce=f' => 'n',
+'ce=false' => 'n',
+'ce=n' => 'n',
+'ce=no' => 'n',
+'ce=t' => 'y',
+'ce=true' => 'y',
+'ce=y' => 'y',
+'ce=yes' => 'y',
+'ci=f' => 'n',
+'ci=false' => 'n',
+'ci=n' => 'n',
+'ci=no' => 'n',
+'ci=t' => 'y',
+'ci=true' => 'y',
+'ci=y' => 'y',
+'ci=yes' => 'y',
+'compex=f' => 'n',
+'compex=false' => 'n',
+'compex=n' => 'n',
+'compex=no' => 'n',
+'compex=t' => 'y',
+'compex=true' => 'y',
+'compex=y' => 'y',
+'compex=yes' => 'y',
+'cwcf=f' => 'n',
+'cwcf=false' => 'n',
+'cwcf=n' => 'n',
+'cwcf=no' => 'n',
+'cwcf=t' => 'y',
+'cwcf=true' => 'y',
+'cwcf=y' => 'y',
+'cwcf=yes' => 'y',
+'cwcm=f' => 'n',
+'cwcm=false' => 'n',
+'cwcm=n' => 'n',
+'cwcm=no' => 'n',
+'cwcm=t' => 'y',
+'cwcm=true' => 'y',
+'cwcm=y' => 'y',
+'cwcm=yes' => 'y',
+'cwkcf=f' => 'n',
+'cwkcf=false' => 'n',
+'cwkcf=n' => 'n',
+'cwkcf=no' => 'n',
+'cwkcf=t' => 'y',
+'cwkcf=true' => 'y',
+'cwkcf=y' => 'y',
+'cwkcf=yes' => 'y',
+'cwl=f' => 'n',
+'cwl=false' => 'n',
+'cwl=n' => 'n',
+'cwl=no' => 'n',
+'cwl=t' => 'y',
+'cwl=true' => 'y',
+'cwl=y' => 'y',
+'cwl=yes' => 'y',
+'cwt=f' => 'n',
+'cwt=false' => 'n',
+'cwt=n' => 'n',
+'cwt=no' => 'n',
+'cwt=t' => 'y',
+'cwt=true' => 'y',
+'cwt=y' => 'y',
+'cwt=yes' => 'y',
+'cwu=f' => 'n',
+'cwu=false' => 'n',
+'cwu=n' => 'n',
+'cwu=no' => 'n',
+'cwu=t' => 'y',
+'cwu=true' => 'y',
+'cwu=y' => 'y',
+'cwu=yes' => 'y',
+'dash=f' => 'n',
+'dash=false' => 'n',
+'dash=n' => 'n',
+'dash=no' => 'n',
+'dash=t' => 'y',
+'dash=true' => 'y',
+'dash=y' => 'y',
+'dash=yes' => 'y',
+'dep=f' => 'n',
+'dep=false' => 'n',
+'dep=n' => 'n',
+'dep=no' => 'n',
+'dep=t' => 'y',
+'dep=true' => 'y',
+'dep=y' => 'y',
+'dep=yes' => 'y',
+'di=f' => 'n',
+'di=false' => 'n',
+'di=n' => 'n',
+'di=no' => 'n',
+'di=t' => 'y',
+'di=true' => 'y',
+'di=y' => 'y',
+'di=yes' => 'y',
+'dia=f' => 'n',
+'dia=false' => 'n',
+'dia=n' => 'n',
+'dia=no' => 'n',
+'dia=t' => 'y',
+'dia=true' => 'y',
+'dia=y' => 'y',
+'dia=yes' => 'y',
+'dt=can' => 'can',
+'dt=canonical' => 'can',
+'dt=circle' => 'enc',
+'dt=com' => 'com',
+'dt=compat' => 'com',
+'dt=enc' => 'enc',
+'dt=fin' => 'fin',
+'dt=final' => 'fin',
+'dt=font' => 'font',
+'dt=fra' => 'fra',
+'dt=fraction' => 'fra',
+'dt=init' => 'init',
+'dt=initial' => 'init',
+'dt=iso' => 'iso',
+'dt=isolated' => 'iso',
+'dt=med' => 'med',
+'dt=medial' => 'med',
+'dt=nar' => 'nar',
+'dt=narrow' => 'nar',
+'dt=nb' => 'nb',
+'dt=nobreak' => 'nb',
+'dt=noncanon' => 'noncanon',
+'dt=noncanonical' => 'noncanon',
+'dt=none' => 'none',
+'dt=small' => 'sml',
+'dt=sml' => 'sml',
+'dt=sqr' => 'sqr',
+'dt=square' => 'sqr',
+'dt=sub' => 'sub',
+'dt=sup' => 'sup',
+'dt=super' => 'sup',
+'dt=vert' => 'vert',
+'dt=vertical' => 'vert',
+'dt=wide' => 'wide',
+'ea=a' => 'a',
+'ea=ambiguous' => 'a',
+'ea=f' => 'f',
+'ea=fullwidth' => 'f',
+'ea=h' => 'h',
+'ea=halfwidth' => 'h',
+'ea=n' => 'n',
+'ea=na' => 'na',
+'ea=narrow' => 'na',
+'ea=neutral' => 'n',
+'ea=w' => 'w',
+'ea=wide' => 'w',
+'ext=f' => 'n',
+'ext=false' => 'n',
+'ext=n' => 'n',
+'ext=no' => 'n',
+'ext=t' => 'y',
+'ext=true' => 'y',
+'ext=y' => 'y',
+'ext=yes' => 'y',
+'gc=c' => 'c',
+'gc=casedletter' => 'lc',
+'gc=cc' => 'cc',
+'gc=cf' => 'cf',
+'gc=closepunctuation' => 'pe',
+'gc=cn' => 'cn',
+'gc=cntrl' => 'cc',
+'gc=co' => 'co',
+'gc=combiningmark' => 'm',
+'gc=connectorpunctuation' => 'pc',
+'gc=control' => 'cc',
+'gc=cs' => 'cs',
+'gc=currencysymbol' => 'sc',
+'gc=dashpunctuation' => 'pd',
+'gc=decimalnumber' => 'nd',
+'gc=digit' => 'nd',
+'gc=enclosingmark' => 'me',
+'gc=finalpunctuation' => 'pf',
+'gc=format' => 'cf',
+'gc=initialpunctuation' => 'pi',
+'gc=l' => 'l',
+'gc=l&' => 'lc',
+'gc=l_' => 'lc',
+'gc=lc' => 'lc',
+'gc=letter' => 'l',
+'gc=letternumber' => 'nl',
+'gc=lineseparator' => 'zl',
+'gc=ll' => 'll',
+'gc=lm' => 'lm',
+'gc=lo' => 'lo',
+'gc=lowercaseletter' => 'll',
+'gc=lt' => 'lt',
+'gc=lu' => 'lu',
+'gc=m' => 'm',
+'gc=mark' => 'm',
+'gc=mathsymbol' => 'sm',
+'gc=mc' => 'mc',
+'gc=me' => 'me',
+'gc=mn' => 'mn',
+'gc=modifierletter' => 'lm',
+'gc=modifiersymbol' => 'sk',
+'gc=n' => 'n',
+'gc=nd' => 'nd',
+'gc=nl' => 'nl',
+'gc=no' => 'no',
+'gc=nonspacingmark' => 'mn',
+'gc=number' => 'n',
+'gc=openpunctuation' => 'ps',
+'gc=other' => 'c',
+'gc=otherletter' => 'lo',
+'gc=othernumber' => 'no',
+'gc=otherpunctuation' => 'po',
+'gc=othersymbol' => 'so',
+'gc=p' => 'p',
+'gc=paragraphseparator' => 'zp',
+'gc=pc' => 'pc',
+'gc=pd' => 'pd',
+'gc=pe' => 'pe',
+'gc=pf' => 'pf',
+'gc=pi' => 'pi',
+'gc=po' => 'po',
+'gc=privateuse' => 'co',
+'gc=ps' => 'ps',
+'gc=punct' => 'p',
+'gc=punctuation' => 'p',
+'gc=s' => 's',
+'gc=sc' => 'sc',
+'gc=separator' => 'z',
+'gc=sk' => 'sk',
+'gc=sm' => 'sm',
+'gc=so' => 'so',
+'gc=spaceseparator' => 'zs',
+'gc=spacingmark' => 'mc',
+'gc=surrogate' => 'cs',
+'gc=symbol' => 's',
+'gc=titlecaseletter' => 'lt',
+'gc=unassigned' => 'cn',
+'gc=uppercaseletter' => 'lu',
+'gc=z' => 'z',
+'gc=zl' => 'zl',
+'gc=zp' => 'zp',
+'gc=zs' => 'zs',
+'gcb=cn' => 'cn',
+'gcb=control' => 'cn',
+'gcb=cr' => 'cr',
+'gcb=ex' => 'ex',
+'gcb=extend' => 'ex',
+'gcb=l' => 'l',
+'gcb=lf' => 'lf',
+'gcb=lv' => 'lv',
+'gcb=lvt' => 'lvt',
+'gcb=other' => 'xx',
+'gcb=pp' => 'pp',
+'gcb=prepend' => 'pp',
+'gcb=regionalindicator' => 'ri',
+'gcb=ri' => 'ri',
+'gcb=sm' => 'sm',
+'gcb=spacingmark' => 'sm',
+'gcb=t' => 't',
+'gcb=v' => 'v',
+'gcb=xx' => 'xx',
+'grbase=f' => 'n',
+'grbase=false' => 'n',
+'grbase=n' => 'n',
+'grbase=no' => 'n',
+'grbase=t' => 'y',
+'grbase=true' => 'y',
+'grbase=y' => 'y',
+'grbase=yes' => 'y',
+'grext=f' => 'n',
+'grext=false' => 'n',
+'grext=n' => 'n',
+'grext=no' => 'n',
+'grext=t' => 'y',
+'grext=true' => 'y',
+'grext=y' => 'y',
+'grext=yes' => 'y',
+'hex=f' => 'n',
+'hex=false' => 'n',
+'hex=n' => 'n',
+'hex=no' => 'n',
+'hex=t' => 'y',
+'hex=true' => 'y',
+'hex=y' => 'y',
+'hex=yes' => 'y',
+'hst=l' => 'l',
+'hst=leadingjamo' => 'l',
+'hst=lv' => 'lv',
+'hst=lvsyllable' => 'lv',
+'hst=lvt' => 'lvt',
+'hst=lvtsyllable' => 'lvt',
+'hst=na' => 'na',
+'hst=notapplicable' => 'na',
+'hst=t' => 't',
+'hst=trailingjamo' => 't',
+'hst=v' => 'v',
+'hst=voweljamo' => 'v',
+'hyphen=f' => 'n',
+'hyphen=false' => 'n',
+'hyphen=n' => 'n',
+'hyphen=no' => 'n',
+'hyphen=t' => 'y',
+'hyphen=true' => 'y',
+'hyphen=y' => 'y',
+'hyphen=yes' => 'y',
+'idc=f' => 'n',
+'idc=false' => 'n',
+'idc=n' => 'n',
+'idc=no' => 'n',
+'idc=t' => 'y',
+'idc=true' => 'y',
+'idc=y' => 'y',
+'idc=yes' => 'y',
+'ideo=f' => 'n',
+'ideo=false' => 'n',
+'ideo=n' => 'n',
+'ideo=no' => 'n',
+'ideo=t' => 'y',
+'ideo=true' => 'y',
+'ideo=y' => 'y',
+'ideo=yes' => 'y',
+'ids=f' => 'n',
+'ids=false' => 'n',
+'ids=n' => 'n',
+'ids=no' => 'n',
+'ids=t' => 'y',
+'ids=true' => 'y',
+'ids=y' => 'y',
+'ids=yes' => 'y',
+'idsb=f' => 'n',
+'idsb=false' => 'n',
+'idsb=n' => 'n',
+'idsb=no' => 'n',
+'idsb=t' => 'y',
+'idsb=true' => 'y',
+'idsb=y' => 'y',
+'idsb=yes' => 'y',
+'idst=f' => 'n',
+'idst=false' => 'n',
+'idst=n' => 'n',
+'idst=no' => 'n',
+'idst=t' => 'y',
+'idst=true' => 'y',
+'idst=y' => 'y',
+'idst=yes' => 'y',
+'in=1.1' => '1.1',
+'in=2.0' => '2.0',
+'in=2.1' => '2.1',
+'in=3.0' => '3.0',
+'in=3.1' => '3.1',
+'in=3.2' => '3.2',
+'in=4.0' => '4.0',
+'in=4.1' => '4.1',
+'in=5.0' => '5.0',
+'in=5.1' => '5.1',
+'in=5.2' => '5.2',
+'in=6.0' => '6.0',
+'in=6.1' => '6.1',
+'in=6.2' => '6.2',
+'in=6.3' => '6.3',
+'in=7.0' => '7.0',
+'in=8.0' => '8.0',
+'in=unassigned' => 'unassigned',
+'inpc=bottom' => 'bottom',
+'inpc=bottomandright' => 'bottomandright',
+'inpc=left' => 'left',
+'inpc=leftandright' => 'leftandright',
+'inpc=na' => 'na',
+'inpc=overstruck' => 'overstruck',
+'inpc=right' => 'right',
+'inpc=top' => 'top',
+'inpc=topandbottom' => 'topandbottom',
+'inpc=topandbottomandright' => 'topandbottomandright',
+'inpc=topandleft' => 'topandleft',
+'inpc=topandleftandright' => 'topandleftandright',
+'inpc=topandright' => 'topandright',
+'inpc=visualorderleft' => 'visualorderleft',
+'insc=avagraha' => 'avagraha',
+'insc=bindu' => 'bindu',
+'insc=brahmijoiningnumber' => 'brahmijoiningnumber',
+'insc=cantillationmark' => 'cantillationmark',
+'insc=consonant' => 'consonant',
+'insc=consonantdead' => 'consonantdead',
+'insc=consonantfinal' => 'consonantfinal',
+'insc=consonantheadletter' => 'consonantheadletter',
+'insc=consonantkiller' => 'consonantkiller',
+'insc=consonantmedial' => 'consonantmedial',
+'insc=consonantplaceholder' => 'consonantplaceholder',
+'insc=consonantprecedingrepha' => 'consonantprecedingrepha',
+'insc=consonantprefixed' => 'consonantprefixed',
+'insc=consonantsubjoined' => 'consonantsubjoined',
+'insc=consonantsucceedingrepha' => 'consonantsucceedingrepha',
+'insc=consonantwithstacker' => 'consonantwithstacker',
+'insc=geminationmark' => 'geminationmark',
+'insc=invisiblestacker' => 'invisiblestacker',
+'insc=joiner' => 'joiner',
+'insc=modifyingletter' => 'modifyingletter',
+'insc=nonjoiner' => 'nonjoiner',
+'insc=nukta' => 'nukta',
+'insc=number' => 'number',
+'insc=numberjoiner' => 'numberjoiner',
+'insc=other' => 'other',
+'insc=purekiller' => 'purekiller',
+'insc=registershifter' => 'registershifter',
+'insc=syllablemodifier' => 'syllablemodifier',
+'insc=toneletter' => 'toneletter',
+'insc=tonemark' => 'tonemark',
+'insc=virama' => 'virama',
+'insc=visarga' => 'visarga',
+'insc=vowel' => 'vowel',
+'insc=voweldependent' => 'voweldependent',
+'insc=vowelindependent' => 'vowelindependent',
+'jg=ain' => 'ain',
+'jg=alaph' => 'alaph',
+'jg=alef' => 'alef',
+'jg=beh' => 'beh',
+'jg=beth' => 'beth',
+'jg=burushaskiyehbarree' => 'burushaskiyehbarree',
+'jg=dal' => 'dal',
+'jg=dalathrish' => 'dalathrish',
+'jg=e' => 'e',
+'jg=farsiyeh' => 'farsiyeh',
+'jg=fe' => 'fe',
+'jg=feh' => 'feh',
+'jg=finalsemkath' => 'finalsemkath',
+'jg=gaf' => 'gaf',
+'jg=gamal' => 'gamal',
+'jg=hah' => 'hah',
+'jg=hamzaonhehgoal' => 'tehmarbutagoal',
+'jg=he' => 'he',
+'jg=heh' => 'heh',
+'jg=hehgoal' => 'hehgoal',
+'jg=heth' => 'heth',
+'jg=kaf' => 'kaf',
+'jg=kaph' => 'kaph',
+'jg=khaph' => 'khaph',
+'jg=knottedheh' => 'knottedheh',
+'jg=lam' => 'lam',
+'jg=lamadh' => 'lamadh',
+'jg=manichaeanaleph' => 'manichaeanaleph',
+'jg=manichaeanayin' => 'manichaeanayin',
+'jg=manichaeanbeth' => 'manichaeanbeth',
+'jg=manichaeandaleth' => 'manichaeandaleth',
+'jg=manichaeandhamedh' => 'manichaeandhamedh',
+'jg=manichaeanfive' => 'manichaeanfive',
+'jg=manichaeangimel' => 'manichaeangimel',
+'jg=manichaeanheth' => 'manichaeanheth',
+'jg=manichaeanhundred' => 'manichaeanhundred',
+'jg=manichaeankaph' => 'manichaeankaph',
+'jg=manichaeanlamedh' => 'manichaeanlamedh',
+'jg=manichaeanmem' => 'manichaeanmem',
+'jg=manichaeannun' => 'manichaeannun',
+'jg=manichaeanone' => 'manichaeanone',
+'jg=manichaeanpe' => 'manichaeanpe',
+'jg=manichaeanqoph' => 'manichaeanqoph',
+'jg=manichaeanresh' => 'manichaeanresh',
+'jg=manichaeansadhe' => 'manichaeansadhe',
+'jg=manichaeansamekh' => 'manichaeansamekh',
+'jg=manichaeantaw' => 'manichaeantaw',
+'jg=manichaeanten' => 'manichaeanten',
+'jg=manichaeanteth' => 'manichaeanteth',
+'jg=manichaeanthamedh' => 'manichaeanthamedh',
+'jg=manichaeantwenty' => 'manichaeantwenty',
+'jg=manichaeanwaw' => 'manichaeanwaw',
+'jg=manichaeanyodh' => 'manichaeanyodh',
+'jg=manichaeanzayin' => 'manichaeanzayin',
+'jg=meem' => 'meem',
+'jg=mim' => 'mim',
+'jg=nojoininggroup' => 'nojoininggroup',
+'jg=noon' => 'noon',
+'jg=nun' => 'nun',
+'jg=nya' => 'nya',
+'jg=pe' => 'pe',
+'jg=qaf' => 'qaf',
+'jg=qaph' => 'qaph',
+'jg=reh' => 'reh',
+'jg=reversedpe' => 'reversedpe',
+'jg=rohingyayeh' => 'rohingyayeh',
+'jg=sad' => 'sad',
+'jg=sadhe' => 'sadhe',
+'jg=seen' => 'seen',
+'jg=semkath' => 'semkath',
+'jg=shin' => 'shin',
+'jg=straightwaw' => 'straightwaw',
+'jg=swashkaf' => 'swashkaf',
+'jg=syriacwaw' => 'syriacwaw',
+'jg=tah' => 'tah',
+'jg=taw' => 'taw',
+'jg=tehmarbuta' => 'tehmarbuta',
+'jg=tehmarbutagoal' => 'tehmarbutagoal',
+'jg=teth' => 'teth',
+'jg=waw' => 'waw',
+'jg=yeh' => 'yeh',
+'jg=yehbarree' => 'yehbarree',
+'jg=yehwithtail' => 'yehwithtail',
+'jg=yudh' => 'yudh',
+'jg=yudhhe' => 'yudhhe',
+'jg=zain' => 'zain',
+'jg=zhain' => 'zhain',
+'joinc=f' => 'n',
+'joinc=false' => 'n',
+'joinc=n' => 'n',
+'joinc=no' => 'n',
+'joinc=t' => 'y',
+'joinc=true' => 'y',
+'joinc=y' => 'y',
+'joinc=yes' => 'y',
+'jt=c' => 'c',
+'jt=d' => 'd',
+'jt=dualjoining' => 'd',
+'jt=joincausing' => 'c',
+'jt=l' => 'l',
+'jt=leftjoining' => 'l',
+'jt=nonjoining' => 'u',
+'jt=r' => 'r',
+'jt=rightjoining' => 'r',
+'jt=t' => 't',
+'jt=transparent' => 't',
+'jt=u' => 'u',
+'lb=ai' => 'ai',
+'lb=al' => 'al',
+'lb=alphabetic' => 'al',
+'lb=ambiguous' => 'ai',
+'lb=b2' => 'b2',
+'lb=ba' => 'ba',
+'lb=bb' => 'bb',
+'lb=bk' => 'bk',
+'lb=breakafter' => 'ba',
+'lb=breakbefore' => 'bb',
+'lb=breakboth' => 'b2',
+'lb=breaksymbols' => 'sy',
+'lb=carriagereturn' => 'cr',
+'lb=cb' => 'cb',
+'lb=cj' => 'cj',
+'lb=cl' => 'cl',
+'lb=closeparenthesis' => 'cp',
+'lb=closepunctuation' => 'cl',
+'lb=cm' => 'cm',
+'lb=combiningmark' => 'cm',
+'lb=complexcontext' => 'sa',
+'lb=conditionaljapanesestarter' => 'cj',
+'lb=contingentbreak' => 'cb',
+'lb=cp' => 'cp',
+'lb=cr' => 'cr',
+'lb=ex' => 'ex',
+'lb=exclamation' => 'ex',
+'lb=gl' => 'gl',
+'lb=glue' => 'gl',
+'lb=h2' => 'h2',
+'lb=h3' => 'h3',
+'lb=hebrewletter' => 'hl',
+'lb=hl' => 'hl',
+'lb=hy' => 'hy',
+'lb=hyphen' => 'hy',
+'lb=id' => 'id',
+'lb=ideographic' => 'id',
+'lb=in' => 'in',
+'lb=infixnumeric' => 'is',
+'lb=inseparable' => 'in',
+'lb=inseperable' => 'in',
+'lb=is' => 'is',
+'lb=jl' => 'jl',
+'lb=jt' => 'jt',
+'lb=jv' => 'jv',
+'lb=lf' => 'lf',
+'lb=linefeed' => 'lf',
+'lb=mandatorybreak' => 'bk',
+'lb=nextline' => 'nl',
+'lb=nl' => 'nl',
+'lb=nonstarter' => 'ns',
+'lb=ns' => 'ns',
+'lb=nu' => 'nu',
+'lb=numeric' => 'nu',
+'lb=op' => 'op',
+'lb=openpunctuation' => 'op',
+'lb=po' => 'po',
+'lb=postfixnumeric' => 'po',
+'lb=pr' => 'pr',
+'lb=prefixnumeric' => 'pr',
+'lb=qu' => 'qu',
+'lb=quotation' => 'qu',
+'lb=regionalindicator' => 'ri',
+'lb=ri' => 'ri',
+'lb=sa' => 'sa',
+'lb=sg' => 'sg',
+'lb=sp' => 'sp',
+'lb=space' => 'sp',
+'lb=surrogate' => 'sg',
+'lb=sy' => 'sy',
+'lb=unknown' => 'xx',
+'lb=wj' => 'wj',
+'lb=wordjoiner' => 'wj',
+'lb=xx' => 'xx',
+'lb=zw' => 'zw',
+'lb=zwspace' => 'zw',
+'loe=f' => 'n',
+'loe=false' => 'n',
+'loe=n' => 'n',
+'loe=no' => 'n',
+'loe=t' => 'y',
+'loe=true' => 'y',
+'loe=y' => 'y',
+'loe=yes' => 'y',
+'lower=f' => 'n',
+'lower=false' => 'n',
+'lower=n' => 'n',
+'lower=no' => 'n',
+'lower=t' => 'y',
+'lower=true' => 'y',
+'lower=y' => 'y',
+'lower=yes' => 'y',
+'math=f' => 'n',
+'math=false' => 'n',
+'math=n' => 'n',
+'math=no' => 'n',
+'math=t' => 'y',
+'math=true' => 'y',
+'math=y' => 'y',
+'math=yes' => 'y',
+'nchar=f' => 'n',
+'nchar=false' => 'n',
+'nchar=n' => 'n',
+'nchar=no' => 'n',
+'nchar=t' => 'y',
+'nchar=true' => 'y',
+'nchar=y' => 'y',
+'nchar=yes' => 'y',
+'nfcqc=m' => 'm',
+'nfcqc=maybe' => 'm',
+'nfcqc=n' => 'n',
+'nfcqc=no' => 'n',
+'nfcqc=y' => 'y',
+'nfcqc=yes' => 'y',
+'nfdqc=n' => 'n',
+'nfdqc=no' => 'n',
+'nfdqc=y' => 'y',
+'nfdqc=yes' => 'y',
+'nfkcqc=m' => 'm',
+'nfkcqc=maybe' => 'm',
+'nfkcqc=n' => 'n',
+'nfkcqc=no' => 'n',
+'nfkcqc=y' => 'y',
+'nfkcqc=yes' => 'y',
+'nfkdqc=n' => 'n',
+'nfkdqc=no' => 'n',
+'nfkdqc=y' => 'y',
+'nfkdqc=yes' => 'y',
+'nt=de' => 'de',
+'nt=decimal' => 'de',
+'nt=di' => 'di',
+'nt=digit' => 'di',
+'nt=none' => 'none',
+'nt=nu' => 'nu',
+'nt=numeric' => 'nu',
+'nv=-1/2' => '-1/2',
+'nv=0' => 0,
+'nv=1' => 1,
+'nv=1/10' => '1/10',
+'nv=1/12' => '1/12',
+'nv=1/16' => '1/16',
+'nv=1/2' => '1/2',
+'nv=1/3' => '1/3',
+'nv=1/4' => '1/4',
+'nv=1/5' => '1/5',
+'nv=1/6' => '1/6',
+'nv=1/7' => '1/7',
+'nv=1/8' => '1/8',
+'nv=1/9' => '1/9',
+'nv=10' => 10,
+'nv=100' => 100,
+'nv=1000' => 1000,
+'nv=10000' => 10000,
+'nv=100000' => 100000,
+'nv=1000000' => 1000000,
+'nv=100000000' => 100000000,
+'nv=10000000000' => 10000000000,
+'nv=1000000000000' => 1000000000000,
+'nv=11' => 11,
+'nv=11/12' => '11/12',
+'nv=11/2' => '11/2',
+'nv=12' => 12,
+'nv=13' => 13,
+'nv=13/2' => '13/2',
+'nv=14' => 14,
+'nv=15' => 15,
+'nv=15/2' => '15/2',
+'nv=16' => 16,
+'nv=17' => 17,
+'nv=17/2' => '17/2',
+'nv=18' => 18,
+'nv=19' => 19,
+'nv=2' => 2,
+'nv=2/3' => '2/3',
+'nv=2/5' => '2/5',
+'nv=20' => 20,
+'nv=200' => 200,
+'nv=2000' => 2000,
+'nv=20000' => 20000,
+'nv=200000' => 200000,
+'nv=21' => 21,
+'nv=216000' => 216000,
+'nv=22' => 22,
+'nv=23' => 23,
+'nv=24' => 24,
+'nv=25' => 25,
+'nv=26' => 26,
+'nv=27' => 27,
+'nv=28' => 28,
+'nv=29' => 29,
+'nv=3' => 3,
+'nv=3/16' => '3/16',
+'nv=3/2' => '3/2',
+'nv=3/4' => '3/4',
+'nv=3/5' => '3/5',
+'nv=3/8' => '3/8',
+'nv=30' => 30,
+'nv=300' => 300,
+'nv=3000' => 3000,
+'nv=30000' => 30000,
+'nv=300000' => 300000,
+'nv=31' => 31,
+'nv=32' => 32,
+'nv=33' => 33,
+'nv=34' => 34,
+'nv=35' => 35,
+'nv=36' => 36,
+'nv=37' => 37,
+'nv=38' => 38,
+'nv=39' => 39,
+'nv=4' => 4,
+'nv=4/5' => '4/5',
+'nv=40' => 40,
+'nv=400' => 400,
+'nv=4000' => 4000,
+'nv=40000' => 40000,
+'nv=400000' => 400000,
+'nv=41' => 41,
+'nv=42' => 42,
+'nv=43' => 43,
+'nv=432000' => 432000,
+'nv=44' => 44,
+'nv=45' => 45,
+'nv=46' => 46,
+'nv=47' => 47,
+'nv=48' => 48,
+'nv=49' => 49,
+'nv=5' => 5,
+'nv=5/12' => '5/12',
+'nv=5/2' => '5/2',
+'nv=5/6' => '5/6',
+'nv=5/8' => '5/8',
+'nv=50' => 50,
+'nv=500' => 500,
+'nv=5000' => 5000,
+'nv=50000' => 50000,
+'nv=500000' => 500000,
+'nv=6' => 6,
+'nv=60' => 60,
+'nv=600' => 600,
+'nv=6000' => 6000,
+'nv=60000' => 60000,
+'nv=600000' => 600000,
+'nv=7' => 7,
+'nv=7/12' => '7/12',
+'nv=7/2' => '7/2',
+'nv=7/8' => '7/8',
+'nv=70' => 70,
+'nv=700' => 700,
+'nv=7000' => 7000,
+'nv=70000' => 70000,
+'nv=700000' => 700000,
+'nv=8' => 8,
+'nv=80' => 80,
+'nv=800' => 800,
+'nv=8000' => 8000,
+'nv=80000' => 80000,
+'nv=800000' => 800000,
+'nv=9' => 9,
+'nv=9/2' => '9/2',
+'nv=90' => 90,
+'nv=900' => 900,
+'nv=9000' => 9000,
+'nv=90000' => 90000,
+'nv=900000' => 900000,
+'nv=nan' => 'nan',
+'patsyn=f' => 'n',
+'patsyn=false' => 'n',
+'patsyn=n' => 'n',
+'patsyn=no' => 'n',
+'patsyn=t' => 'y',
+'patsyn=true' => 'y',
+'patsyn=y' => 'y',
+'patsyn=yes' => 'y',
+'patws=f' => 'n',
+'patws=false' => 'n',
+'patws=n' => 'n',
+'patws=no' => 'n',
+'patws=t' => 'y',
+'patws=true' => 'y',
+'patws=y' => 'y',
+'patws=yes' => 'y',
+'qmark=f' => 'n',
+'qmark=false' => 'n',
+'qmark=n' => 'n',
+'qmark=no' => 'n',
+'qmark=t' => 'y',
+'qmark=true' => 'y',
+'qmark=y' => 'y',
+'qmark=yes' => 'y',
+'radical=f' => 'n',
+'radical=false' => 'n',
+'radical=n' => 'n',
+'radical=no' => 'n',
+'radical=t' => 'y',
+'radical=true' => 'y',
+'radical=y' => 'y',
+'radical=yes' => 'y',
+'sb=at' => 'at',
+'sb=aterm' => 'at',
+'sb=cl' => 'cl',
+'sb=close' => 'cl',
+'sb=cr' => 'cr',
+'sb=ex' => 'ex',
+'sb=extend' => 'ex',
+'sb=fo' => 'fo',
+'sb=format' => 'fo',
+'sb=le' => 'le',
+'sb=lf' => 'lf',
+'sb=lo' => 'lo',
+'sb=lower' => 'lo',
+'sb=nu' => 'nu',
+'sb=numeric' => 'nu',
+'sb=oletter' => 'le',
+'sb=other' => 'xx',
+'sb=sc' => 'sc',
+'sb=scontinue' => 'sc',
+'sb=se' => 'se',
+'sb=sep' => 'se',
+'sb=sp' => 'sp',
+'sb=st' => 'st',
+'sb=sterm' => 'st',
+'sb=up' => 'up',
+'sb=upper' => 'up',
+'sb=xx' => 'xx',
+'sc=aghb' => 'aghb',
+'sc=ahom' => 'ahom',
+'sc=anatolianhieroglyphs' => 'hluw',
+'sc=arab' => 'arab',
+'sc=arabic' => 'arab',
+'sc=armenian' => 'armn',
+'sc=armi' => 'armi',
+'sc=armn' => 'armn',
+'sc=avestan' => 'avst',
+'sc=avst' => 'avst',
+'sc=bali' => 'bali',
+'sc=balinese' => 'bali',
+'sc=bamu' => 'bamu',
+'sc=bamum' => 'bamu',
+'sc=bass' => 'bass',
+'sc=bassavah' => 'bass',
+'sc=batak' => 'batk',
+'sc=batk' => 'batk',
+'sc=beng' => 'beng',
+'sc=bengali' => 'beng',
+'sc=bopo' => 'bopo',
+'sc=bopomofo' => 'bopo',
+'sc=brah' => 'brah',
+'sc=brahmi' => 'brah',
+'sc=brai' => 'brai',
+'sc=braille' => 'brai',
+'sc=bugi' => 'bugi',
+'sc=buginese' => 'bugi',
+'sc=buhd' => 'buhd',
+'sc=buhid' => 'buhd',
+'sc=cakm' => 'cakm',
+'sc=canadianaboriginal' => 'cans',
+'sc=cans' => 'cans',
+'sc=cari' => 'cari',
+'sc=carian' => 'cari',
+'sc=caucasianalbanian' => 'aghb',
+'sc=chakma' => 'cakm',
+'sc=cham' => 'cham',
+'sc=cher' => 'cher',
+'sc=cherokee' => 'cher',
+'sc=common' => 'zyyy',
+'sc=copt' => 'copt',
+'sc=coptic' => 'copt',
+'sc=cprt' => 'cprt',
+'sc=cuneiform' => 'xsux',
+'sc=cypriot' => 'cprt',
+'sc=cyrillic' => 'cyrl',
+'sc=cyrl' => 'cyrl',
+'sc=deseret' => 'dsrt',
+'sc=deva' => 'deva',
+'sc=devanagari' => 'deva',
+'sc=dsrt' => 'dsrt',
+'sc=dupl' => 'dupl',
+'sc=duployan' => 'dupl',
+'sc=egyp' => 'egyp',
+'sc=egyptianhieroglyphs' => 'egyp',
+'sc=elba' => 'elba',
+'sc=elbasan' => 'elba',
+'sc=ethi' => 'ethi',
+'sc=ethiopic' => 'ethi',
+'sc=geor' => 'geor',
+'sc=georgian' => 'geor',
+'sc=glag' => 'glag',
+'sc=glagolitic' => 'glag',
+'sc=goth' => 'goth',
+'sc=gothic' => 'goth',
+'sc=gran' => 'gran',
+'sc=grantha' => 'gran',
+'sc=greek' => 'grek',
+'sc=grek' => 'grek',
+'sc=gujarati' => 'gujr',
+'sc=gujr' => 'gujr',
+'sc=gurmukhi' => 'guru',
+'sc=guru' => 'guru',
+'sc=han' => 'hani',
+'sc=hang' => 'hang',
+'sc=hangul' => 'hang',
+'sc=hani' => 'hani',
+'sc=hano' => 'hano',
+'sc=hanunoo' => 'hano',
+'sc=hatr' => 'hatr',
+'sc=hatran' => 'hatr',
+'sc=hebr' => 'hebr',
+'sc=hebrew' => 'hebr',
+'sc=hira' => 'hira',
+'sc=hiragana' => 'hira',
+'sc=hluw' => 'hluw',
+'sc=hmng' => 'hmng',
+'sc=hung' => 'hung',
+'sc=imperialaramaic' => 'armi',
+'sc=inherited' => 'zinh',
+'sc=inscriptionalpahlavi' => 'phli',
+'sc=inscriptionalparthian' => 'prti',
+'sc=ital' => 'ital',
+'sc=java' => 'java',
+'sc=javanese' => 'java',
+'sc=kaithi' => 'kthi',
+'sc=kali' => 'kali',
+'sc=kana' => 'kana',
+'sc=kannada' => 'knda',
+'sc=katakana' => 'kana',
+'sc=kayahli' => 'kali',
+'sc=khar' => 'khar',
+'sc=kharoshthi' => 'khar',
+'sc=khmer' => 'khmr',
+'sc=khmr' => 'khmr',
+'sc=khoj' => 'khoj',
+'sc=khojki' => 'khoj',
+'sc=khudawadi' => 'sind',
+'sc=knda' => 'knda',
+'sc=kthi' => 'kthi',
+'sc=lana' => 'lana',
+'sc=lao' => 'laoo',
+'sc=laoo' => 'laoo',
+'sc=latin' => 'latn',
+'sc=latn' => 'latn',
+'sc=lepc' => 'lepc',
+'sc=lepcha' => 'lepc',
+'sc=limb' => 'limb',
+'sc=limbu' => 'limb',
+'sc=lina' => 'lina',
+'sc=linb' => 'linb',
+'sc=lineara' => 'lina',
+'sc=linearb' => 'linb',
+'sc=lisu' => 'lisu',
+'sc=lyci' => 'lyci',
+'sc=lycian' => 'lyci',
+'sc=lydi' => 'lydi',
+'sc=lydian' => 'lydi',
+'sc=mahajani' => 'mahj',
+'sc=mahj' => 'mahj',
+'sc=malayalam' => 'mlym',
+'sc=mand' => 'mand',
+'sc=mandaic' => 'mand',
+'sc=mani' => 'mani',
+'sc=manichaean' => 'mani',
+'sc=meeteimayek' => 'mtei',
+'sc=mend' => 'mend',
+'sc=mendekikakui' => 'mend',
+'sc=merc' => 'merc',
+'sc=mero' => 'mero',
+'sc=meroiticcursive' => 'merc',
+'sc=meroitichieroglyphs' => 'mero',
+'sc=miao' => 'plrd',
+'sc=mlym' => 'mlym',
+'sc=modi' => 'modi',
+'sc=mong' => 'mong',
+'sc=mongolian' => 'mong',
+'sc=mro' => 'mroo',
+'sc=mroo' => 'mroo',
+'sc=mtei' => 'mtei',
+'sc=mult' => 'mult',
+'sc=multani' => 'mult',
+'sc=myanmar' => 'mymr',
+'sc=mymr' => 'mymr',
+'sc=nabataean' => 'nbat',
+'sc=narb' => 'narb',
+'sc=nbat' => 'nbat',
+'sc=newtailue' => 'talu',
+'sc=nko' => 'nkoo',
+'sc=nkoo' => 'nkoo',
+'sc=ogam' => 'ogam',
+'sc=ogham' => 'ogam',
+'sc=olchiki' => 'olck',
+'sc=olck' => 'olck',
+'sc=oldhungarian' => 'hung',
+'sc=olditalic' => 'ital',
+'sc=oldnortharabian' => 'narb',
+'sc=oldpermic' => 'perm',
+'sc=oldpersian' => 'xpeo',
+'sc=oldsoutharabian' => 'sarb',
+'sc=oldturkic' => 'orkh',
+'sc=oriya' => 'orya',
+'sc=orkh' => 'orkh',
+'sc=orya' => 'orya',
+'sc=osma' => 'osma',
+'sc=osmanya' => 'osma',
+'sc=pahawhhmong' => 'hmng',
+'sc=palm' => 'palm',
+'sc=palmyrene' => 'palm',
+'sc=pauc' => 'pauc',
+'sc=paucinhau' => 'pauc',
+'sc=perm' => 'perm',
+'sc=phag' => 'phag',
+'sc=phagspa' => 'phag',
+'sc=phli' => 'phli',
+'sc=phlp' => 'phlp',
+'sc=phnx' => 'phnx',
+'sc=phoenician' => 'phnx',
+'sc=plrd' => 'plrd',
+'sc=prti' => 'prti',
+'sc=psalterpahlavi' => 'phlp',
+'sc=qaac' => 'copt',
+'sc=qaai' => 'zinh',
+'sc=rejang' => 'rjng',
+'sc=rjng' => 'rjng',
+'sc=runic' => 'runr',
+'sc=runr' => 'runr',
+'sc=samaritan' => 'samr',
+'sc=samr' => 'samr',
+'sc=sarb' => 'sarb',
+'sc=saur' => 'saur',
+'sc=saurashtra' => 'saur',
+'sc=sgnw' => 'sgnw',
+'sc=sharada' => 'shrd',
+'sc=shavian' => 'shaw',
+'sc=shaw' => 'shaw',
+'sc=shrd' => 'shrd',
+'sc=sidd' => 'sidd',
+'sc=siddham' => 'sidd',
+'sc=signwriting' => 'sgnw',
+'sc=sind' => 'sind',
+'sc=sinh' => 'sinh',
+'sc=sinhala' => 'sinh',
+'sc=sora' => 'sora',
+'sc=sorasompeng' => 'sora',
+'sc=sund' => 'sund',
+'sc=sundanese' => 'sund',
+'sc=sylo' => 'sylo',
+'sc=sylotinagri' => 'sylo',
+'sc=syrc' => 'syrc',
+'sc=syriac' => 'syrc',
+'sc=tagalog' => 'tglg',
+'sc=tagb' => 'tagb',
+'sc=tagbanwa' => 'tagb',
+'sc=taile' => 'tale',
+'sc=taitham' => 'lana',
+'sc=taiviet' => 'tavt',
+'sc=takr' => 'takr',
+'sc=takri' => 'takr',
+'sc=tale' => 'tale',
+'sc=talu' => 'talu',
+'sc=tamil' => 'taml',
+'sc=taml' => 'taml',
+'sc=tavt' => 'tavt',
+'sc=telu' => 'telu',
+'sc=telugu' => 'telu',
+'sc=tfng' => 'tfng',
+'sc=tglg' => 'tglg',
+'sc=thaa' => 'thaa',
+'sc=thaana' => 'thaa',
+'sc=thai' => 'thai',
+'sc=tibetan' => 'tibt',
+'sc=tibt' => 'tibt',
+'sc=tifinagh' => 'tfng',
+'sc=tirh' => 'tirh',
+'sc=tirhuta' => 'tirh',
+'sc=ugar' => 'ugar',
+'sc=ugaritic' => 'ugar',
+'sc=unknown' => 'zzzz',
+'sc=vai' => 'vaii',
+'sc=vaii' => 'vaii',
+'sc=wara' => 'wara',
+'sc=warangciti' => 'wara',
+'sc=xpeo' => 'xpeo',
+'sc=xsux' => 'xsux',
+'sc=yi' => 'yiii',
+'sc=yiii' => 'yiii',
+'sc=zinh' => 'zinh',
+'sc=zyyy' => 'zyyy',
+'sc=zzzz' => 'zzzz',
+'scx=aghb' => 'aghb',
+'scx=ahom' => 'ahom',
+'scx=anatolianhieroglyphs' => 'hluw',
+'scx=arab' => 'arab',
+'scx=arabic' => 'arab',
+'scx=armenian' => 'armn',
+'scx=armi' => 'armi',
+'scx=armn' => 'armn',
+'scx=avestan' => 'avst',
+'scx=avst' => 'avst',
+'scx=bali' => 'bali',
+'scx=balinese' => 'bali',
+'scx=bamu' => 'bamu',
+'scx=bamum' => 'bamu',
+'scx=bass' => 'bass',
+'scx=bassavah' => 'bass',
+'scx=batak' => 'batk',
+'scx=batk' => 'batk',
+'scx=beng' => 'beng',
+'scx=bengali' => 'beng',
+'scx=bopo' => 'bopo',
+'scx=bopomofo' => 'bopo',
+'scx=brah' => 'brah',
+'scx=brahmi' => 'brah',
+'scx=brai' => 'brai',
+'scx=braille' => 'brai',
+'scx=bugi' => 'bugi',
+'scx=buginese' => 'bugi',
+'scx=buhd' => 'buhd',
+'scx=buhid' => 'buhd',
+'scx=cakm' => 'cakm',
+'scx=canadianaboriginal' => 'cans',
+'scx=cans' => 'cans',
+'scx=cari' => 'cari',
+'scx=carian' => 'cari',
+'scx=caucasianalbanian' => 'aghb',
+'scx=chakma' => 'cakm',
+'scx=cham' => 'cham',
+'scx=cher' => 'cher',
+'scx=cherokee' => 'cher',
+'scx=common' => 'zyyy',
+'scx=copt' => 'copt',
+'scx=coptic' => 'copt',
+'scx=cprt' => 'cprt',
+'scx=cuneiform' => 'xsux',
+'scx=cypriot' => 'cprt',
+'scx=cyrillic' => 'cyrl',
+'scx=cyrl' => 'cyrl',
+'scx=deseret' => 'dsrt',
+'scx=deva' => 'deva',
+'scx=devanagari' => 'deva',
+'scx=dsrt' => 'dsrt',
+'scx=dupl' => 'dupl',
+'scx=duployan' => 'dupl',
+'scx=egyp' => 'egyp',
+'scx=egyptianhieroglyphs' => 'egyp',
+'scx=elba' => 'elba',
+'scx=elbasan' => 'elba',
+'scx=ethi' => 'ethi',
+'scx=ethiopic' => 'ethi',
+'scx=geor' => 'geor',
+'scx=georgian' => 'geor',
+'scx=glag' => 'glag',
+'scx=glagolitic' => 'glag',
+'scx=goth' => 'goth',
+'scx=gothic' => 'goth',
+'scx=gran' => 'gran',
+'scx=grantha' => 'gran',
+'scx=greek' => 'grek',
+'scx=grek' => 'grek',
+'scx=gujarati' => 'gujr',
+'scx=gujr' => 'gujr',
+'scx=gurmukhi' => 'guru',
+'scx=guru' => 'guru',
+'scx=han' => 'hani',
+'scx=hang' => 'hang',
+'scx=hangul' => 'hang',
+'scx=hani' => 'hani',
+'scx=hano' => 'hano',
+'scx=hanunoo' => 'hano',
+'scx=hatr' => 'hatr',
+'scx=hatran' => 'hatr',
+'scx=hebr' => 'hebr',
+'scx=hebrew' => 'hebr',
+'scx=hira' => 'hira',
+'scx=hiragana' => 'hira',
+'scx=hluw' => 'hluw',
+'scx=hmng' => 'hmng',
+'scx=hung' => 'hung',
+'scx=imperialaramaic' => 'armi',
+'scx=inherited' => 'zinh',
+'scx=inscriptionalpahlavi' => 'phli',
+'scx=inscriptionalparthian' => 'prti',
+'scx=ital' => 'ital',
+'scx=java' => 'java',
+'scx=javanese' => 'java',
+'scx=kaithi' => 'kthi',
+'scx=kali' => 'kali',
+'scx=kana' => 'kana',
+'scx=kannada' => 'knda',
+'scx=katakana' => 'kana',
+'scx=kayahli' => 'kali',
+'scx=khar' => 'khar',
+'scx=kharoshthi' => 'khar',
+'scx=khmer' => 'khmr',
+'scx=khmr' => 'khmr',
+'scx=khoj' => 'khoj',
+'scx=khojki' => 'khoj',
+'scx=khudawadi' => 'sind',
+'scx=knda' => 'knda',
+'scx=kthi' => 'kthi',
+'scx=lana' => 'lana',
+'scx=lao' => 'laoo',
+'scx=laoo' => 'laoo',
+'scx=latin' => 'latn',
+'scx=latn' => 'latn',
+'scx=lepc' => 'lepc',
+'scx=lepcha' => 'lepc',
+'scx=limb' => 'limb',
+'scx=limbu' => 'limb',
+'scx=lina' => 'lina',
+'scx=linb' => 'linb',
+'scx=lineara' => 'lina',
+'scx=linearb' => 'linb',
+'scx=lisu' => 'lisu',
+'scx=lyci' => 'lyci',
+'scx=lycian' => 'lyci',
+'scx=lydi' => 'lydi',
+'scx=lydian' => 'lydi',
+'scx=mahajani' => 'mahj',
+'scx=mahj' => 'mahj',
+'scx=malayalam' => 'mlym',
+'scx=mand' => 'mand',
+'scx=mandaic' => 'mand',
+'scx=mani' => 'mani',
+'scx=manichaean' => 'mani',
+'scx=meeteimayek' => 'mtei',
+'scx=mend' => 'mend',
+'scx=mendekikakui' => 'mend',
+'scx=merc' => 'merc',
+'scx=mero' => 'mero',
+'scx=meroiticcursive' => 'merc',
+'scx=meroitichieroglyphs' => 'mero',
+'scx=miao' => 'plrd',
+'scx=mlym' => 'mlym',
+'scx=modi' => 'modi',
+'scx=mong' => 'mong',
+'scx=mongolian' => 'mong',
+'scx=mro' => 'mroo',
+'scx=mroo' => 'mroo',
+'scx=mtei' => 'mtei',
+'scx=mult' => 'mult',
+'scx=multani' => 'mult',
+'scx=myanmar' => 'mymr',
+'scx=mymr' => 'mymr',
+'scx=nabataean' => 'nbat',
+'scx=narb' => 'narb',
+'scx=nbat' => 'nbat',
+'scx=newtailue' => 'talu',
+'scx=nko' => 'nkoo',
+'scx=nkoo' => 'nkoo',
+'scx=ogam' => 'ogam',
+'scx=ogham' => 'ogam',
+'scx=olchiki' => 'olck',
+'scx=olck' => 'olck',
+'scx=oldhungarian' => 'hung',
+'scx=olditalic' => 'ital',
+'scx=oldnortharabian' => 'narb',
+'scx=oldpermic' => 'perm',
+'scx=oldpersian' => 'xpeo',
+'scx=oldsoutharabian' => 'sarb',
+'scx=oldturkic' => 'orkh',
+'scx=oriya' => 'orya',
+'scx=orkh' => 'orkh',
+'scx=orya' => 'orya',
+'scx=osma' => 'osma',
+'scx=osmanya' => 'osma',
+'scx=pahawhhmong' => 'hmng',
+'scx=palm' => 'palm',
+'scx=palmyrene' => 'palm',
+'scx=pauc' => 'pauc',
+'scx=paucinhau' => 'pauc',
+'scx=perm' => 'perm',
+'scx=phag' => 'phag',
+'scx=phagspa' => 'phag',
+'scx=phli' => 'phli',
+'scx=phlp' => 'phlp',
+'scx=phnx' => 'phnx',
+'scx=phoenician' => 'phnx',
+'scx=plrd' => 'plrd',
+'scx=prti' => 'prti',
+'scx=psalterpahlavi' => 'phlp',
+'scx=qaac' => 'copt',
+'scx=qaai' => 'zinh',
+'scx=rejang' => 'rjng',
+'scx=rjng' => 'rjng',
+'scx=runic' => 'runr',
+'scx=runr' => 'runr',
+'scx=samaritan' => 'samr',
+'scx=samr' => 'samr',
+'scx=sarb' => 'sarb',
+'scx=saur' => 'saur',
+'scx=saurashtra' => 'saur',
+'scx=sgnw' => 'sgnw',
+'scx=sharada' => 'shrd',
+'scx=shavian' => 'shaw',
+'scx=shaw' => 'shaw',
+'scx=shrd' => 'shrd',
+'scx=sidd' => 'sidd',
+'scx=siddham' => 'sidd',
+'scx=signwriting' => 'sgnw',
+'scx=sind' => 'sind',
+'scx=sinh' => 'sinh',
+'scx=sinhala' => 'sinh',
+'scx=sora' => 'sora',
+'scx=sorasompeng' => 'sora',
+'scx=sund' => 'sund',
+'scx=sundanese' => 'sund',
+'scx=sylo' => 'sylo',
+'scx=sylotinagri' => 'sylo',
+'scx=syrc' => 'syrc',
+'scx=syriac' => 'syrc',
+'scx=tagalog' => 'tglg',
+'scx=tagb' => 'tagb',
+'scx=tagbanwa' => 'tagb',
+'scx=taile' => 'tale',
+'scx=taitham' => 'lana',
+'scx=taiviet' => 'tavt',
+'scx=takr' => 'takr',
+'scx=takri' => 'takr',
+'scx=tale' => 'tale',
+'scx=talu' => 'talu',
+'scx=tamil' => 'taml',
+'scx=taml' => 'taml',
+'scx=tavt' => 'tavt',
+'scx=telu' => 'telu',
+'scx=telugu' => 'telu',
+'scx=tfng' => 'tfng',
+'scx=tglg' => 'tglg',
+'scx=thaa' => 'thaa',
+'scx=thaana' => 'thaa',
+'scx=thai' => 'thai',
+'scx=tibetan' => 'tibt',
+'scx=tibt' => 'tibt',
+'scx=tifinagh' => 'tfng',
+'scx=tirh' => 'tirh',
+'scx=tirhuta' => 'tirh',
+'scx=ugar' => 'ugar',
+'scx=ugaritic' => 'ugar',
+'scx=unknown' => 'zzzz',
+'scx=vai' => 'vaii',
+'scx=vaii' => 'vaii',
+'scx=wara' => 'wara',
+'scx=warangciti' => 'wara',
+'scx=xpeo' => 'xpeo',
+'scx=xsux' => 'xsux',
+'scx=yi' => 'yiii',
+'scx=yiii' => 'yiii',
+'scx=zinh' => 'zinh',
+'scx=zyyy' => 'zyyy',
+'scx=zzzz' => 'zzzz',
+'sd=f' => 'n',
+'sd=false' => 'n',
+'sd=n' => 'n',
+'sd=no' => 'n',
+'sd=t' => 'y',
+'sd=true' => 'y',
+'sd=y' => 'y',
+'sd=yes' => 'y',
+'sterm=f' => 'n',
+'sterm=false' => 'n',
+'sterm=n' => 'n',
+'sterm=no' => 'n',
+'sterm=t' => 'y',
+'sterm=true' => 'y',
+'sterm=y' => 'y',
+'sterm=yes' => 'y',
+'term=f' => 'n',
+'term=false' => 'n',
+'term=n' => 'n',
+'term=no' => 'n',
+'term=t' => 'y',
+'term=true' => 'y',
+'term=y' => 'y',
+'term=yes' => 'y',
+'uideo=f' => 'n',
+'uideo=false' => 'n',
+'uideo=n' => 'n',
+'uideo=no' => 'n',
+'uideo=t' => 'y',
+'uideo=true' => 'y',
+'uideo=y' => 'y',
+'uideo=yes' => 'y',
+'upper=f' => 'n',
+'upper=false' => 'n',
+'upper=n' => 'n',
+'upper=no' => 'n',
+'upper=t' => 'y',
+'upper=true' => 'y',
+'upper=y' => 'y',
+'upper=yes' => 'y',
+'vs=f' => 'n',
+'vs=false' => 'n',
+'vs=n' => 'n',
+'vs=no' => 'n',
+'vs=t' => 'y',
+'vs=true' => 'y',
+'vs=y' => 'y',
+'vs=yes' => 'y',
+'wb=aletter' => 'le',
+'wb=cr' => 'cr',
+'wb=doublequote' => 'dq',
+'wb=dq' => 'dq',
+'wb=ex' => 'ex',
+'wb=extend' => 'extend',
+'wb=extendnumlet' => 'ex',
+'wb=fo' => 'fo',
+'wb=format' => 'fo',
+'wb=hebrewletter' => 'hl',
+'wb=hl' => 'hl',
+'wb=ka' => 'ka',
+'wb=katakana' => 'ka',
+'wb=le' => 'le',
+'wb=lf' => 'lf',
+'wb=mb' => 'mb',
+'wb=midletter' => 'ml',
+'wb=midnum' => 'mn',
+'wb=midnumlet' => 'mb',
+'wb=ml' => 'ml',
+'wb=mn' => 'mn',
+'wb=newline' => 'nl',
+'wb=nl' => 'nl',
+'wb=nu' => 'nu',
+'wb=numeric' => 'nu',
+'wb=other' => 'xx',
+'wb=regionalindicator' => 'ri',
+'wb=ri' => 'ri',
+'wb=singlequote' => 'sq',
+'wb=sq' => 'sq',
+'wb=xx' => 'xx',
+'wspace=f' => 'n',
+'wspace=false' => 'n',
+'wspace=n' => 'n',
+'wspace=no' => 'n',
+'wspace=t' => 'y',
+'wspace=true' => 'y',
+'wspace=y' => 'y',
+'wspace=yes' => 'y',
+'xidc=f' => 'n',
+'xidc=false' => 'n',
+'xidc=n' => 'n',
+'xidc=no' => 'n',
+'xidc=t' => 'y',
+'xidc=true' => 'y',
+'xidc=y' => 'y',
+'xidc=yes' => 'y',
+'xids=f' => 'n',
+'xids=false' => 'n',
+'xids=n' => 'n',
+'xids=no' => 'n',
+'xids=t' => 'y',
+'xids=true' => 'y',
+'xids=y' => 'y',
+'xids=yes' => 'y',
+);
+
+# String property loose names to standard loose name
+%Unicode::UCD::string_property_loose_to_name = (
+'_perlnamealias' => 'namealias',
+'bidimirroringglyph' => 'bmg',
+'bidipairedbracket' => 'bpb',
+'bmg' => 'bmg',
+'bpb' => 'bpb',
+'casefolding' => 'cf',
+'cf' => 'cf',
+'decompositionmapping' => 'dm',
+'dm' => 'dm',
+'isc' => 'isc',
+'isocomment' => 'isc',
+'lc' => 'lc',
+'lowercasemapping' => 'lc',
+'na' => 'na',
+'na1' => 'na1',
+'name' => 'na',
+'namealias' => 'namealias',
+'nfkccasefold' => 'nfkccf',
+'nfkccf' => 'nfkccf',
+'perldecimaldigit' => 'perldecimaldigit',
+'scf' => 'scf',
+'sfc' => 'scf',
+'simplecasefolding' => 'scf',
+'simplelowercasemapping' => 'slc',
+'simpletitlecasemapping' => 'stc',
+'simpleuppercasemapping' => 'suc',
+'slc' => 'slc',
+'stc' => 'stc',
+'suc' => 'suc',
+'tc' => 'tc',
+'titlecasemapping' => 'tc',
+'uc' => 'uc',
+'unicode1name' => 'na1',
+'uppercasemapping' => 'uc',
+);
+
+# Keys are Perl extensions in loose form; values are each one's list of
+# aliases
+%Unicode::UCD::loose_perlprop_to_name = (
+'all' => 
+[
+'All',
+],
+'alnum' => 
+[
+'Alnum',
+'XPosixAlnum',
+],
+'any' => 
+[
+'Any',
+'Any',
+'Unicode',
+],
+'ascii' => 
+[
+'ASCII',
+],
+'assigned' => 
+[
+'Assigned',
+],
+'blank' => 
+[
+'Blank',
+'XPosixBlank',
+'HorizSpace',
+],
+'cntrl' => 
+[
+'Cntrl',
+'XPosixCntrl',
+],
+'digit' => 
+[
+'Digit',
+'XPosixDigit',
+],
+'graph' => 
+[
+'Graph',
+'XPosixGraph',
+],
+'horizspace' => 
+[
+'Blank',
+'XPosixBlank',
+'HorizSpace',
+],
+'perlspace' => 
+[
+'PosixSpace',
+'PosixSpace',
+'PerlSpace',
+],
+'perlword' => 
+[
+'PosixWord',
+'PosixWord',
+'PerlWord',
+],
+'posixalnum' => 
+[
+'PosixAlnum',
+],
+'posixalpha' => 
+[
+'PosixAlpha',
+],
+'posixblank' => 
+[
+'PosixBlank',
+],
+'posixcntrl' => 
+[
+'PosixCntrl',
+],
+'posixdigit' => 
+[
+'PosixDigit',
+],
+'posixgraph' => 
+[
+'PosixGraph',
+],
+'posixlower' => 
+[
+'PosixLower',
+],
+'posixprint' => 
+[
+'PosixPrint',
+],
+'posixpunct' => 
+[
+'PosixPunct',
+],
+'posixspace' => 
+[
+'PosixSpace',
+'PosixSpace',
+'PerlSpace',
+],
+'posixupper' => 
+[
+'PosixUpper',
+],
+'posixword' => 
+[
+'PosixWord',
+'PosixWord',
+'PerlWord',
+],
+'posixxdigit' => 
+[
+'PosixXDigit',
+],
+'print' => 
+[
+'Print',
+'XPosixPrint',
+],
+'punct' => 
+[
+'Punct',
+],
+'spaceperl' => 
+[
+'XPosixSpace',
+'XPosixSpace',
+'XPerlSpace',
+'SpacePerl',
+],
+'title' => 
+[
+'Title',
+'Titlecase',
+],
+'titlecase' => 
+[
+'Title',
+'Titlecase',
+],
+'unicode' => 
+[
+'Any',
+'Any',
+'Unicode',
+],
+'vertspace' => 
+[
+'VertSpace',
+],
+'word' => 
+[
+'Word',
+'XPosixWord',
+],
+'xdigit' => 
+[
+'XDigit',
+'XPosixXDigit',
+],
+'xperlspace' => 
+[
+'XPosixSpace',
+'XPosixSpace',
+'XPerlSpace',
+'SpacePerl',
+],
+'xposixalnum' => 
+[
+'Alnum',
+'XPosixAlnum',
+],
+'xposixalpha' => 
+[
+'XPosixAlpha',
+],
+'xposixblank' => 
+[
+'Blank',
+'XPosixBlank',
+'HorizSpace',
+],
+'xposixcntrl' => 
+[
+'Cntrl',
+'XPosixCntrl',
+],
+'xposixdigit' => 
+[
+'Digit',
+'XPosixDigit',
+],
+'xposixgraph' => 
+[
+'Graph',
+'XPosixGraph',
+],
+'xposixlower' => 
+[
+'XPosixLower',
+],
+'xposixprint' => 
+[
+'Print',
+'XPosixPrint',
+],
+'xposixpunct' => 
+[
+'XPosixPunct',
+],
+'xposixspace' => 
+[
+'XPosixSpace',
+'XPosixSpace',
+'XPerlSpace',
+'SpacePerl',
+],
+'xposixupper' => 
+[
+'XPosixUpper',
+],
+'xposixword' => 
+[
+'Word',
+'XPosixWord',
+],
+'xposixxdigit' => 
+[
+'XDigit',
+'XPosixXDigit',
+],
+);
+
+# Keys are standard property name; values are each one's aliases
+%Unicode::UCD::prop_aliases = (
+'age' => 
+[
+'age',
+'Age',
+],
+'ahex' => 
+[
+'AHex',
+'ASCII_Hex_Digit',
+],
+'alpha' => 
+[
+'Alpha',
+'Alphabetic',
+],
+'bc' => 
+[
+'bc',
+'Bidi_Class',
+],
+'bidic' => 
+[
+'Bidi_C',
+'Bidi_Control',
+],
+'bidim' => 
+[
+'Bidi_M',
+'Bidi_Mirrored',
+],
+'blk' => 
+[
+'blk',
+'Block',
+],
+'bmg' => 
+[
+'bmg',
+'Bidi_Mirroring_Glyph',
+],
+'bpb' => 
+[
+'bpb',
+'Bidi_Paired_Bracket',
+],
+'bpt' => 
+[
+'bpt',
+'Bidi_Paired_Bracket_Type',
+],
+'cased' => 
+[
+'Cased',
+'Cased',
+],
+'ccc' => 
+[
+'ccc',
+'Canonical_Combining_Class',
+],
+'ce' => 
+[
+'CE',
+'Composition_Exclusion',
+],
+'cf' => 
+[
+'cf',
+'Case_Folding',
+],
+'ci' => 
+[
+'CI',
+'Case_Ignorable',
+],
+'compex' => 
+[
+'Comp_Ex',
+'Full_Composition_Exclusion',
+],
+'cwcf' => 
+[
+'CWCF',
+'Changes_When_Casefolded',
+],
+'cwcm' => 
+[
+'CWCM',
+'Changes_When_Casemapped',
+],
+'cwkcf' => 
+[
+'CWKCF',
+'Changes_When_NFKC_Casefolded',
+],
+'cwl' => 
+[
+'CWL',
+'Changes_When_Lowercased',
+],
+'cwt' => 
+[
+'CWT',
+'Changes_When_Titlecased',
+],
+'cwu' => 
+[
+'CWU',
+'Changes_When_Uppercased',
+],
+'dash' => 
+[
+'Dash',
+'Dash',
+],
+'dep' => 
+[
+'Dep',
+'Deprecated',
+],
+'di' => 
+[
+'DI',
+'Default_Ignorable_Code_Point',
+],
+'dia' => 
+[
+'Dia',
+'Diacritic',
+],
+'dm' => 
+[
+'dm',
+'Decomposition_Mapping',
+],
+'dt' => 
+[
+'dt',
+'Decomposition_Type',
+],
+'ea' => 
+[
+'ea',
+'East_Asian_Width',
+],
+'ext' => 
+[
+'Ext',
+'Extender',
+],
+'gc' => 
+[
+'gc',
+'General_Category',
+'Category',
+],
+'gcb' => 
+[
+'GCB',
+'Grapheme_Cluster_Break',
+'_Perl_GCB',
+],
+'grbase' => 
+[
+'Gr_Base',
+'Grapheme_Base',
+],
+'grext' => 
+[
+'Gr_Ext',
+'Grapheme_Extend',
+],
+'hex' => 
+[
+'Hex',
+'Hex_Digit',
+],
+'hst' => 
+[
+'hst',
+'Hangul_Syllable_Type',
+],
+'hyphen' => 
+[
+'Hyphen',
+'Hyphen',
+],
+'idc' => 
+[
+'IDC',
+'ID_Continue',
+],
+'ideo' => 
+[
+'Ideo',
+'Ideographic',
+],
+'ids' => 
+[
+'IDS',
+'ID_Start',
+],
+'idsb' => 
+[
+'IDSB',
+'IDS_Binary_Operator',
+],
+'idst' => 
+[
+'IDST',
+'IDS_Trinary_Operator',
+],
+'in' => 
+[
+'In',
+'Present_In',
+],
+'inpc' => 
+[
+'InPC',
+'Indic_Positional_Category',
+],
+'insc' => 
+[
+'InSC',
+'Indic_Syllabic_Category',
+],
+'isc' => 
+[
+'isc',
+'ISO_Comment',
+],
+'jg' => 
+[
+'jg',
+'Joining_Group',
+],
+'joinc' => 
+[
+'Join_C',
+'Join_Control',
+],
+'jt' => 
+[
+'jt',
+'Joining_Type',
+],
+'lb' => 
+[
+'lb',
+'Line_Break',
+],
+'lc' => 
+[
+'lc',
+'Lowercase_Mapping',
+],
+'loe' => 
+[
+'LOE',
+'Logical_Order_Exception',
+],
+'lower' => 
+[
+'Lower',
+'Lowercase',
+],
+'math' => 
+[
+'Math',
+'Math',
+],
+'na' => 
+[
+'na',
+'Name',
+],
+'na1' => 
+[
+'na1',
+'Unicode_1_Name',
+],
+'namealias' => 
+[
+'Name_Alias',
+'Name_Alias',
+'_Perl_Name_Alias',
+],
+'nchar' => 
+[
+'NChar',
+'Noncharacter_Code_Point',
+],
+'nfcqc' => 
+[
+'NFC_QC',
+'NFC_Quick_Check',
+],
+'nfdqc' => 
+[
+'NFD_QC',
+'NFD_Quick_Check',
+],
+'nfkccf' => 
+[
+'NFKC_CF',
+'NFKC_Casefold',
+],
+'nfkcqc' => 
+[
+'NFKC_QC',
+'NFKC_Quick_Check',
+],
+'nfkdqc' => 
+[
+'NFKD_QC',
+'NFKD_Quick_Check',
+],
+'nt' => 
+[
+'nt',
+'Numeric_Type',
+],
+'nv' => 
+[
+'nv',
+'Numeric_Value',
+],
+'patsyn' => 
+[
+'Pat_Syn',
+'Pattern_Syntax',
+],
+'patws' => 
+[
+'Pat_WS',
+'Pattern_White_Space',
+],
+'perldecimaldigit' => 
+[
+'Perl_Decimal_Digit',
+'Perl_Decimal_Digit',
+],
+'qmark' => 
+[
+'QMark',
+'Quotation_Mark',
+],
+'radical' => 
+[
+'Radical',
+'Radical',
+],
+'sb' => 
+[
+'SB',
+'Sentence_Break',
+'_Perl_SB',
+],
+'sc' => 
+[
+'sc',
+'Script',
+],
+'scf' => 
+[
+'scf',
+'Simple_Case_Folding',
+'Sfc',
+],
+'scx' => 
+[
+'scx',
+'Script_Extensions',
+],
+'sd' => 
+[
+'SD',
+'Soft_Dotted',
+],
+'slc' => 
+[
+'slc',
+'Simple_Lowercase_Mapping',
+],
+'stc' => 
+[
+'stc',
+'Simple_Titlecase_Mapping',
+],
+'sterm' => 
+[
+'STerm',
+'STerm',
+],
+'suc' => 
+[
+'suc',
+'Simple_Uppercase_Mapping',
+],
+'tc' => 
+[
+'tc',
+'Titlecase_Mapping',
+],
+'term' => 
+[
+'Term',
+'Terminal_Punctuation',
+],
+'uc' => 
+[
+'uc',
+'Uppercase_Mapping',
+],
+'uideo' => 
+[
+'UIdeo',
+'Unified_Ideograph',
+],
+'upper' => 
+[
+'Upper',
+'Uppercase',
+],
+'vs' => 
+[
+'VS',
+'Variation_Selector',
+],
+'wb' => 
+[
+'WB',
+'Word_Break',
+],
+'wspace' => 
+[
+'WSpace',
+'White_Space',
+'Space',
+],
+'xidc' => 
+[
+'XIDC',
+'XID_Continue',
+],
+'xids' => 
+[
+'XIDS',
+'XID_Start',
+],
+);
+
+# Keys of top level are standard property name; values are keys to another
+# hash,  Each one is one of the property's values, in standard form.  The
+# values are that prop-val's aliases.  If only one specified, the short and
+# long alias are identical.
+%Unicode::UCD::prop_value_aliases = (
+'age' => 
+{
+'1.1' => 
+[
+'1.1',
+'V1_1',
+],
+'2.0' => 
+[
+'2.0',
+'V2_0',
+],
+'2.1' => 
+[
+'2.1',
+'V2_1',
+],
+'3.0' => 
+[
+'3.0',
+'V3_0',
+],
+'3.1' => 
+[
+'3.1',
+'V3_1',
+],
+'3.2' => 
+[
+'3.2',
+'V3_2',
+],
+'4.0' => 
+[
+'4.0',
+'V4_0',
+],
+'4.1' => 
+[
+'4.1',
+'V4_1',
+],
+'5.0' => 
+[
+'5.0',
+'V5_0',
+],
+'5.1' => 
+[
+'5.1',
+'V5_1',
+],
+'5.2' => 
+[
+'5.2',
+'V5_2',
+],
+'6.0' => 
+[
+'6.0',
+'V6_0',
+],
+'6.1' => 
+[
+'6.1',
+'V6_1',
+],
+'6.2' => 
+[
+'6.2',
+'V6_2',
+],
+'6.3' => 
+[
+'6.3',
+'V6_3',
+],
+'7.0' => 
+[
+'7.0',
+'V7_0',
+],
+'8.0' => 
+[
+'8.0',
+'V8_0',
+],
+'na' => 
+[
+'NA',
+'Unassigned',
+],
+},
+'ahex' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'alpha' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'bc' => 
+{
+'al' => 
+[
+'AL',
+'Arabic_Letter',
+],
+'an' => 
+[
+'AN',
+'Arabic_Number',
+],
+'b' => 
+[
+'B',
+'Paragraph_Separator',
+],
+'bn' => 
+[
+'BN',
+'Boundary_Neutral',
+],
+'cs' => 
+[
+'CS',
+'Common_Separator',
+],
+'en' => 
+[
+'EN',
+'European_Number',
+],
+'es' => 
+[
+'ES',
+'European_Separator',
+],
+'et' => 
+[
+'ET',
+'European_Terminator',
+],
+'fsi' => 
+[
+'FSI',
+'First_Strong_Isolate',
+],
+'l' => 
+[
+'L',
+'Left_To_Right',
+],
+'lre' => 
+[
+'LRE',
+'Left_To_Right_Embedding',
+],
+'lri' => 
+[
+'LRI',
+'Left_To_Right_Isolate',
+],
+'lro' => 
+[
+'LRO',
+'Left_To_Right_Override',
+],
+'nsm' => 
+[
+'NSM',
+'Nonspacing_Mark',
+],
+'on' => 
+[
+'ON',
+'Other_Neutral',
+],
+'pdf' => 
+[
+'PDF',
+'Pop_Directional_Format',
+],
+'pdi' => 
+[
+'PDI',
+'Pop_Directional_Isolate',
+],
+'r' => 
+[
+'R',
+'Right_To_Left',
+],
+'rle' => 
+[
+'RLE',
+'Right_To_Left_Embedding',
+],
+'rli' => 
+[
+'RLI',
+'Right_To_Left_Isolate',
+],
+'rlo' => 
+[
+'RLO',
+'Right_To_Left_Override',
+],
+'s' => 
+[
+'S',
+'Segment_Separator',
+],
+'ws' => 
+[
+'WS',
+'White_Space',
+],
+},
+'bidic' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'bidim' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'blk' => 
+{
+'aegeannumbers' => 
+[
+'Aegean_Numbers',
+],
+'ahom' => 
+[
+'Ahom',
+],
+'alchemical' => 
+[
+'Alchemical',
+'Alchemical_Symbols',
+],
+'alphabeticpf' => 
+[
+'Alphabetic_PF',
+'Alphabetic_Presentation_Forms',
+],
+'anatolianhieroglyphs' => 
+[
+'Anatolian_Hieroglyphs',
+],
+'ancientgreekmusic' => 
+[
+'Ancient_Greek_Music',
+'Ancient_Greek_Musical_Notation',
+],
+'ancientgreeknumbers' => 
+[
+'Ancient_Greek_Numbers',
+],
+'ancientsymbols' => 
+[
+'Ancient_Symbols',
+],
+'arabic' => 
+[
+'Arabic',
+],
+'arabicexta' => 
+[
+'Arabic_Ext_A',
+'Arabic_Extended_A',
+],
+'arabicmath' => 
+[
+'Arabic_Math',
+'Arabic_Mathematical_Alphabetic_Symbols',
+],
+'arabicpfa' => 
+[
+'Arabic_PF_A',
+'Arabic_Presentation_Forms_A',
+],
+'arabicpfb' => 
+[
+'Arabic_PF_B',
+'Arabic_Presentation_Forms_B',
+],
+'arabicsup' => 
+[
+'Arabic_Sup',
+'Arabic_Supplement',
+],
+'armenian' => 
+[
+'Armenian',
+],
+'arrows' => 
+[
+'Arrows',
+],
+'ascii' => 
+[
+'ASCII',
+'Basic_Latin',
+],
+'avestan' => 
+[
+'Avestan',
+],
+'balinese' => 
+[
+'Balinese',
+],
+'bamum' => 
+[
+'Bamum',
+],
+'bamumsup' => 
+[
+'Bamum_Sup',
+'Bamum_Supplement',
+],
+'bassavah' => 
+[
+'Bassa_Vah',
+],
+'batak' => 
+[
+'Batak',
+],
+'bengali' => 
+[
+'Bengali',
+],
+'blockelements' => 
+[
+'Block_Elements',
+],
+'bopomofo' => 
+[
+'Bopomofo',
+],
+'bopomofoext' => 
+[
+'Bopomofo_Ext',
+'Bopomofo_Extended',
+],
+'boxdrawing' => 
+[
+'Box_Drawing',
+],
+'brahmi' => 
+[
+'Brahmi',
+],
+'braille' => 
+[
+'Braille',
+'Braille_Patterns',
+],
+'buginese' => 
+[
+'Buginese',
+],
+'buhid' => 
+[
+'Buhid',
+],
+'byzantinemusic' => 
+[
+'Byzantine_Music',
+'Byzantine_Musical_Symbols',
+],
+'carian' => 
+[
+'Carian',
+],
+'caucasianalbanian' => 
+[
+'Caucasian_Albanian',
+],
+'chakma' => 
+[
+'Chakma',
+],
+'cham' => 
+[
+'Cham',
+],
+'cherokee' => 
+[
+'Cherokee',
+],
+'cherokeesup' => 
+[
+'Cherokee_Sup',
+'Cherokee_Supplement',
+],
+'cjk' => 
+[
+'CJK',
+'CJK_Unified_Ideographs',
+],
+'cjkcompat' => 
+[
+'CJK_Compat',
+'CJK_Compatibility',
+],
+'cjkcompatforms' => 
+[
+'CJK_Compat_Forms',
+'CJK_Compatibility_Forms',
+],
+'cjkcompatideographs' => 
+[
+'CJK_Compat_Ideographs',
+'CJK_Compatibility_Ideographs',
+],
+'cjkcompatideographssup' => 
+[
+'CJK_Compat_Ideographs_Sup',
+'CJK_Compatibility_Ideographs_Supplement',
+],
+'cjkexta' => 
+[
+'CJK_Ext_A',
+'CJK_Unified_Ideographs_Extension_A',
+],
+'cjkextb' => 
+[
+'CJK_Ext_B',
+'CJK_Unified_Ideographs_Extension_B',
+],
+'cjkextc' => 
+[
+'CJK_Ext_C',
+'CJK_Unified_Ideographs_Extension_C',
+],
+'cjkextd' => 
+[
+'CJK_Ext_D',
+'CJK_Unified_Ideographs_Extension_D',
+],
+'cjkexte' => 
+[
+'CJK_Ext_E',
+'CJK_Unified_Ideographs_Extension_E',
+],
+'cjkradicalssup' => 
+[
+'CJK_Radicals_Sup',
+'CJK_Radicals_Supplement',
+],
+'cjkstrokes' => 
+[
+'CJK_Strokes',
+],
+'cjksymbols' => 
+[
+'CJK_Symbols',
+'CJK_Symbols_And_Punctuation',
+],
+'compatjamo' => 
+[
+'Compat_Jamo',
+'Hangul_Compatibility_Jamo',
+],
+'controlpictures' => 
+[
+'Control_Pictures',
+],
+'coptic' => 
+[
+'Coptic',
+],
+'copticepactnumbers' => 
+[
+'Coptic_Epact_Numbers',
+],
+'countingrod' => 
+[
+'Counting_Rod',
+'Counting_Rod_Numerals',
+],
+'cuneiform' => 
+[
+'Cuneiform',
+],
+'cuneiformnumbers' => 
+[
+'Cuneiform_Numbers',
+'Cuneiform_Numbers_And_Punctuation',
+],
+'currencysymbols' => 
+[
+'Currency_Symbols',
+],
+'cypriotsyllabary' => 
+[
+'Cypriot_Syllabary',
+],
+'cyrillic' => 
+[
+'Cyrillic',
+],
+'cyrillicexta' => 
+[
+'Cyrillic_Ext_A',
+'Cyrillic_Extended_A',
+],
+'cyrillicextb' => 
+[
+'Cyrillic_Ext_B',
+'Cyrillic_Extended_B',
+],
+'cyrillicsup' => 
+[
+'Cyrillic_Sup',
+'Cyrillic_Supplement',
+'Cyrillic_Supplementary',
+],
+'deseret' => 
+[
+'Deseret',
+],
+'devanagari' => 
+[
+'Devanagari',
+],
+'devanagariext' => 
+[
+'Devanagari_Ext',
+'Devanagari_Extended',
+],
+'diacriticals' => 
+[
+'Diacriticals',
+'Combining_Diacritical_Marks',
+],
+'diacriticalsext' => 
+[
+'Diacriticals_Ext',
+'Combining_Diacritical_Marks_Extended',
+],
+'diacriticalsforsymbols' => 
+[
+'Diacriticals_For_Symbols',
+'Combining_Diacritical_Marks_For_Symbols',
+'Combining_Marks_For_Symbols',
+],
+'diacriticalssup' => 
+[
+'Diacriticals_Sup',
+'Combining_Diacritical_Marks_Supplement',
+],
+'dingbats' => 
+[
+'Dingbats',
+],
+'domino' => 
+[
+'Domino',
+'Domino_Tiles',
+],
+'duployan' => 
+[
+'Duployan',
+],
+'earlydynasticcuneiform' => 
+[
+'Early_Dynastic_Cuneiform',
+],
+'egyptianhieroglyphs' => 
+[
+'Egyptian_Hieroglyphs',
+],
+'elbasan' => 
+[
+'Elbasan',
+],
+'emoticons' => 
+[
+'Emoticons',
+],
+'enclosedalphanum' => 
+[
+'Enclosed_Alphanum',
+'Enclosed_Alphanumerics',
+],
+'enclosedalphanumsup' => 
+[
+'Enclosed_Alphanum_Sup',
+'Enclosed_Alphanumeric_Supplement',
+],
+'enclosedcjk' => 
+[
+'Enclosed_CJK',
+'Enclosed_CJK_Letters_And_Months',
+],
+'enclosedideographicsup' => 
+[
+'Enclosed_Ideographic_Sup',
+'Enclosed_Ideographic_Supplement',
+],
+'ethiopic' => 
+[
+'Ethiopic',
+],
+'ethiopicext' => 
+[
+'Ethiopic_Ext',
+'Ethiopic_Extended',
+],
+'ethiopicexta' => 
+[
+'Ethiopic_Ext_A',
+'Ethiopic_Extended_A',
+],
+'ethiopicsup' => 
+[
+'Ethiopic_Sup',
+'Ethiopic_Supplement',
+],
+'geometricshapes' => 
+[
+'Geometric_Shapes',
+],
+'geometricshapesext' => 
+[
+'Geometric_Shapes_Ext',
+'Geometric_Shapes_Extended',
+],
+'georgian' => 
+[
+'Georgian',
+],
+'georgiansup' => 
+[
+'Georgian_Sup',
+'Georgian_Supplement',
+],
+'glagolitic' => 
+[
+'Glagolitic',
+],
+'gothic' => 
+[
+'Gothic',
+],
+'grantha' => 
+[
+'Grantha',
+],
+'greek' => 
+[
+'Greek',
+'Greek_And_Coptic',
+],
+'greekext' => 
+[
+'Greek_Ext',
+'Greek_Extended',
+],
+'gujarati' => 
+[
+'Gujarati',
+],
+'gurmukhi' => 
+[
+'Gurmukhi',
+],
+'halfandfullforms' => 
+[
+'Half_And_Full_Forms',
+'Halfwidth_And_Fullwidth_Forms',
+],
+'halfmarks' => 
+[
+'Half_Marks',
+'Combining_Half_Marks',
+],
+'hangul' => 
+[
+'Hangul',
+'Hangul_Syllables',
+],
+'hanunoo' => 
+[
+'Hanunoo',
+],
+'hatran' => 
+[
+'Hatran',
+],
+'hebrew' => 
+[
+'Hebrew',
+],
+'highpusurrogates' => 
+[
+'High_PU_Surrogates',
+'High_Private_Use_Surrogates',
+],
+'highsurrogates' => 
+[
+'High_Surrogates',
+],
+'hiragana' => 
+[
+'Hiragana',
+],
+'idc' => 
+[
+'IDC',
+'Ideographic_Description_Characters',
+],
+'imperialaramaic' => 
+[
+'Imperial_Aramaic',
+],
+'indicnumberforms' => 
+[
+'Indic_Number_Forms',
+'Common_Indic_Number_Forms',
+],
+'inscriptionalpahlavi' => 
+[
+'Inscriptional_Pahlavi',
+],
+'inscriptionalparthian' => 
+[
+'Inscriptional_Parthian',
+],
+'ipaext' => 
+[
+'IPA_Ext',
+'IPA_Extensions',
+],
+'jamo' => 
+[
+'Jamo',
+'Hangul_Jamo',
+],
+'jamoexta' => 
+[
+'Jamo_Ext_A',
+'Hangul_Jamo_Extended_A',
+],
+'jamoextb' => 
+[
+'Jamo_Ext_B',
+'Hangul_Jamo_Extended_B',
+],
+'javanese' => 
+[
+'Javanese',
+],
+'kaithi' => 
+[
+'Kaithi',
+],
+'kanasup' => 
+[
+'Kana_Sup',
+'Kana_Supplement',
+],
+'kanbun' => 
+[
+'Kanbun',
+],
+'kangxi' => 
+[
+'Kangxi',
+'Kangxi_Radicals',
+],
+'kannada' => 
+[
+'Kannada',
+],
+'katakana' => 
+[
+'Katakana',
+],
+'katakanaext' => 
+[
+'Katakana_Ext',
+'Katakana_Phonetic_Extensions',
+],
+'kayahli' => 
+[
+'Kayah_Li',
+],
+'kharoshthi' => 
+[
+'Kharoshthi',
+],
+'khmer' => 
+[
+'Khmer',
+],
+'khmersymbols' => 
+[
+'Khmer_Symbols',
+],
+'khojki' => 
+[
+'Khojki',
+],
+'khudawadi' => 
+[
+'Khudawadi',
+],
+'lao' => 
+[
+'Lao',
+],
+'latin1sup' => 
+[
+'Latin_1_Sup',
+'Latin_1_Supplement',
+'Latin_1',
+],
+'latinexta' => 
+[
+'Latin_Ext_A',
+'Latin_Extended_A',
+],
+'latinextadditional' => 
+[
+'Latin_Ext_Additional',
+'Latin_Extended_Additional',
+],
+'latinextb' => 
+[
+'Latin_Ext_B',
+'Latin_Extended_B',
+],
+'latinextc' => 
+[
+'Latin_Ext_C',
+'Latin_Extended_C',
+],
+'latinextd' => 
+[
+'Latin_Ext_D',
+'Latin_Extended_D',
+],
+'latinexte' => 
+[
+'Latin_Ext_E',
+'Latin_Extended_E',
+],
+'lepcha' => 
+[
+'Lepcha',
+],
+'letterlikesymbols' => 
+[
+'Letterlike_Symbols',
+],
+'limbu' => 
+[
+'Limbu',
+],
+'lineara' => 
+[
+'Linear_A',
+],
+'linearbideograms' => 
+[
+'Linear_B_Ideograms',
+],
+'linearbsyllabary' => 
+[
+'Linear_B_Syllabary',
+],
+'lisu' => 
+[
+'Lisu',
+],
+'lowsurrogates' => 
+[
+'Low_Surrogates',
+],
+'lycian' => 
+[
+'Lycian',
+],
+'lydian' => 
+[
+'Lydian',
+],
+'mahajani' => 
+[
+'Mahajani',
+],
+'mahjong' => 
+[
+'Mahjong',
+'Mahjong_Tiles',
+],
+'malayalam' => 
+[
+'Malayalam',
+],
+'mandaic' => 
+[
+'Mandaic',
+],
+'manichaean' => 
+[
+'Manichaean',
+],
+'mathalphanum' => 
+[
+'Math_Alphanum',
+'Mathematical_Alphanumeric_Symbols',
+],
+'mathoperators' => 
+[
+'Math_Operators',
+'Mathematical_Operators',
+],
+'meeteimayek' => 
+[
+'Meetei_Mayek',
+],
+'meeteimayekext' => 
+[
+'Meetei_Mayek_Ext',
+'Meetei_Mayek_Extensions',
+],
+'mendekikakui' => 
+[
+'Mende_Kikakui',
+],
+'meroiticcursive' => 
+[
+'Meroitic_Cursive',
+],
+'meroitichieroglyphs' => 
+[
+'Meroitic_Hieroglyphs',
+],
+'miao' => 
+[
+'Miao',
+],
+'miscarrows' => 
+[
+'Misc_Arrows',
+'Miscellaneous_Symbols_And_Arrows',
+],
+'miscmathsymbolsa' => 
+[
+'Misc_Math_Symbols_A',
+'Miscellaneous_Mathematical_Symbols_A',
+],
+'miscmathsymbolsb' => 
+[
+'Misc_Math_Symbols_B',
+'Miscellaneous_Mathematical_Symbols_B',
+],
+'miscpictographs' => 
+[
+'Misc_Pictographs',
+'Miscellaneous_Symbols_And_Pictographs',
+],
+'miscsymbols' => 
+[
+'Misc_Symbols',
+'Miscellaneous_Symbols',
+],
+'misctechnical' => 
+[
+'Misc_Technical',
+'Miscellaneous_Technical',
+],
+'modi' => 
+[
+'Modi',
+],
+'modifierletters' => 
+[
+'Modifier_Letters',
+'Spacing_Modifier_Letters',
+],
+'modifiertoneletters' => 
+[
+'Modifier_Tone_Letters',
+],
+'mongolian' => 
+[
+'Mongolian',
+],
+'mro' => 
+[
+'Mro',
+],
+'multani' => 
+[
+'Multani',
+],
+'music' => 
+[
+'Music',
+'Musical_Symbols',
+],
+'myanmar' => 
+[
+'Myanmar',
+],
+'myanmarexta' => 
+[
+'Myanmar_Ext_A',
+'Myanmar_Extended_A',
+],
+'myanmarextb' => 
+[
+'Myanmar_Ext_B',
+'Myanmar_Extended_B',
+],
+'nabataean' => 
+[
+'Nabataean',
+],
+'nb' => 
+[
+'NB',
+'No_Block',
+],
+'newtailue' => 
+[
+'New_Tai_Lue',
+],
+'nko' => 
+[
+'NKo',
+],
+'numberforms' => 
+[
+'Number_Forms',
+],
+'ocr' => 
+[
+'OCR',
+'Optical_Character_Recognition',
+],
+'ogham' => 
+[
+'Ogham',
+],
+'olchiki' => 
+[
+'Ol_Chiki',
+],
+'oldhungarian' => 
+[
+'Old_Hungarian',
+],
+'olditalic' => 
+[
+'Old_Italic',
+],
+'oldnortharabian' => 
+[
+'Old_North_Arabian',
+],
+'oldpermic' => 
+[
+'Old_Permic',
+],
+'oldpersian' => 
+[
+'Old_Persian',
+],
+'oldsoutharabian' => 
+[
+'Old_South_Arabian',
+],
+'oldturkic' => 
+[
+'Old_Turkic',
+],
+'oriya' => 
+[
+'Oriya',
+],
+'ornamentaldingbats' => 
+[
+'Ornamental_Dingbats',
+],
+'osmanya' => 
+[
+'Osmanya',
+],
+'pahawhhmong' => 
+[
+'Pahawh_Hmong',
+],
+'palmyrene' => 
+[
+'Palmyrene',
+],
+'paucinhau' => 
+[
+'Pau_Cin_Hau',
+],
+'phagspa' => 
+[
+'Phags_Pa',
+],
+'phaistos' => 
+[
+'Phaistos',
+'Phaistos_Disc',
+],
+'phoenician' => 
+[
+'Phoenician',
+],
+'phoneticext' => 
+[
+'Phonetic_Ext',
+'Phonetic_Extensions',
+],
+'phoneticextsup' => 
+[
+'Phonetic_Ext_Sup',
+'Phonetic_Extensions_Supplement',
+],
+'playingcards' => 
+[
+'Playing_Cards',
+],
+'psalterpahlavi' => 
+[
+'Psalter_Pahlavi',
+],
+'pua' => 
+[
+'PUA',
+'Private_Use_Area',
+'Private_Use',
+],
+'punctuation' => 
+[
+'Punctuation',
+'General_Punctuation',
+],
+'rejang' => 
+[
+'Rejang',
+],
+'rumi' => 
+[
+'Rumi',
+'Rumi_Numeral_Symbols',
+],
+'runic' => 
+[
+'Runic',
+],
+'samaritan' => 
+[
+'Samaritan',
+],
+'saurashtra' => 
+[
+'Saurashtra',
+],
+'sharada' => 
+[
+'Sharada',
+],
+'shavian' => 
+[
+'Shavian',
+],
+'shorthandformatcontrols' => 
+[
+'Shorthand_Format_Controls',
+],
+'siddham' => 
+[
+'Siddham',
+],
+'sinhala' => 
+[
+'Sinhala',
+],
+'sinhalaarchaicnumbers' => 
+[
+'Sinhala_Archaic_Numbers',
+],
+'smallforms' => 
+[
+'Small_Forms',
+'Small_Form_Variants',
+],
+'sorasompeng' => 
+[
+'Sora_Sompeng',
+],
+'specials' => 
+[
+'Specials',
+],
+'sundanese' => 
+[
+'Sundanese',
+],
+'sundanesesup' => 
+[
+'Sundanese_Sup',
+'Sundanese_Supplement',
+],
+'suparrowsa' => 
+[
+'Sup_Arrows_A',
+'Supplemental_Arrows_A',
+],
+'suparrowsb' => 
+[
+'Sup_Arrows_B',
+'Supplemental_Arrows_B',
+],
+'suparrowsc' => 
+[
+'Sup_Arrows_C',
+'Supplemental_Arrows_C',
+],
+'superandsub' => 
+[
+'Super_And_Sub',
+'Superscripts_And_Subscripts',
+],
+'supmathoperators' => 
+[
+'Sup_Math_Operators',
+'Supplemental_Mathematical_Operators',
+],
+'suppuaa' => 
+[
+'Sup_PUA_A',
+'Supplementary_Private_Use_Area_A',
+],
+'suppuab' => 
+[
+'Sup_PUA_B',
+'Supplementary_Private_Use_Area_B',
+],
+'suppunctuation' => 
+[
+'Sup_Punctuation',
+'Supplemental_Punctuation',
+],
+'supsymbolsandpictographs' => 
+[
+'Sup_Symbols_And_Pictographs',
+'Supplemental_Symbols_And_Pictographs',
+],
+'suttonsignwriting' => 
+[
+'Sutton_SignWriting',
+],
+'sylotinagri' => 
+[
+'Syloti_Nagri',
+],
+'syriac' => 
+[
+'Syriac',
+],
+'tagalog' => 
+[
+'Tagalog',
+],
+'tagbanwa' => 
+[
+'Tagbanwa',
+],
+'tags' => 
+[
+'Tags',
+],
+'taile' => 
+[
+'Tai_Le',
+],
+'taitham' => 
+[
+'Tai_Tham',
+],
+'taiviet' => 
+[
+'Tai_Viet',
+],
+'taixuanjing' => 
+[
+'Tai_Xuan_Jing',
+'Tai_Xuan_Jing_Symbols',
+],
+'takri' => 
+[
+'Takri',
+],
+'tamil' => 
+[
+'Tamil',
+],
+'telugu' => 
+[
+'Telugu',
+],
+'thaana' => 
+[
+'Thaana',
+],
+'thai' => 
+[
+'Thai',
+],
+'tibetan' => 
+[
+'Tibetan',
+],
+'tifinagh' => 
+[
+'Tifinagh',
+],
+'tirhuta' => 
+[
+'Tirhuta',
+],
+'transportandmap' => 
+[
+'Transport_And_Map',
+'Transport_And_Map_Symbols',
+],
+'ucas' => 
+[
+'UCAS',
+'Unified_Canadian_Aboriginal_Syllabics',
+'Canadian_Syllabics',
+],
+'ucasext' => 
+[
+'UCAS_Ext',
+'Unified_Canadian_Aboriginal_Syllabics_Extended',
+],
+'ugaritic' => 
+[
+'Ugaritic',
+],
+'vai' => 
+[
+'Vai',
+],
+'vedicext' => 
+[
+'Vedic_Ext',
+'Vedic_Extensions',
+],
+'verticalforms' => 
+[
+'Vertical_Forms',
+],
+'vs' => 
+[
+'VS',
+'Variation_Selectors',
+],
+'vssup' => 
+[
+'VS_Sup',
+'Variation_Selectors_Supplement',
+],
+'warangciti' => 
+[
+'Warang_Citi',
+],
+'yijing' => 
+[
+'Yijing',
+'Yijing_Hexagram_Symbols',
+],
+'yiradicals' => 
+[
+'Yi_Radicals',
+],
+'yisyllables' => 
+[
+'Yi_Syllables',
+],
+},
+'bpt' => 
+{
+'c' => 
+[
+'c',
+'Close',
+],
+'n' => 
+[
+'n',
+'None',
+],
+'o' => 
+[
+'o',
+'Open',
+],
+},
+'cased' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'ccc' => 
+{
+'a' => 
+[
+'A',
+'Above',
+230,
+],
+'al' => 
+[
+'AL',
+'Above_Left',
+228,
+],
+'ar' => 
+[
+'AR',
+'Above_Right',
+232,
+],
+'ata' => 
+[
+'ATA',
+'Attached_Above',
+214,
+],
+'atar' => 
+[
+'ATAR',
+'Attached_Above_Right',
+216,
+],
+'atb' => 
+[
+'ATB',
+'Attached_Below',
+202,
+],
+'atbl' => 
+[
+'ATBL',
+'Attached_Below_Left',
+200,
+],
+'b' => 
+[
+'B',
+'Below',
+220,
+],
+'bl' => 
+[
+'BL',
+'Below_Left',
+218,
+],
+'br' => 
+[
+'BR',
+'Below_Right',
+222,
+],
+'ccc10' => 
+[
+'CCC10',
+'CCC10',
+10,
+],
+'ccc103' => 
+[
+'CCC103',
+'CCC103',
+103,
+],
+'ccc107' => 
+[
+'CCC107',
+'CCC107',
+107,
+],
+'ccc11' => 
+[
+'CCC11',
+'CCC11',
+11,
+],
+'ccc118' => 
+[
+'CCC118',
+'CCC118',
+118,
+],
+'ccc12' => 
+[
+'CCC12',
+'CCC12',
+12,
+],
+'ccc122' => 
+[
+'CCC122',
+'CCC122',
+122,
+],
+'ccc129' => 
+[
+'CCC129',
+'CCC129',
+129,
+],
+'ccc13' => 
+[
+'CCC13',
+'CCC13',
+13,
+],
+'ccc130' => 
+[
+'CCC130',
+'CCC130',
+130,
+],
+'ccc132' => 
+[
+'CCC132',
+'CCC132',
+132,
+],
+'ccc133' => 
+[
+'CCC133',
+'CCC133',
+133,
+],
+'ccc14' => 
+[
+'CCC14',
+'CCC14',
+14,
+],
+'ccc15' => 
+[
+'CCC15',
+'CCC15',
+15,
+],
+'ccc16' => 
+[
+'CCC16',
+'CCC16',
+16,
+],
+'ccc17' => 
+[
+'CCC17',
+'CCC17',
+17,
+],
+'ccc18' => 
+[
+'CCC18',
+'CCC18',
+18,
+],
+'ccc19' => 
+[
+'CCC19',
+'CCC19',
+19,
+],
+'ccc20' => 
+[
+'CCC20',
+'CCC20',
+20,
+],
+'ccc21' => 
+[
+'CCC21',
+'CCC21',
+21,
+],
+'ccc22' => 
+[
+'CCC22',
+'CCC22',
+22,
+],
+'ccc23' => 
+[
+'CCC23',
+'CCC23',
+23,
+],
+'ccc24' => 
+[
+'CCC24',
+'CCC24',
+24,
+],
+'ccc25' => 
+[
+'CCC25',
+'CCC25',
+25,
+],
+'ccc26' => 
+[
+'CCC26',
+'CCC26',
+26,
+],
+'ccc27' => 
+[
+'CCC27',
+'CCC27',
+27,
+],
+'ccc28' => 
+[
+'CCC28',
+'CCC28',
+28,
+],
+'ccc29' => 
+[
+'CCC29',
+'CCC29',
+29,
+],
+'ccc30' => 
+[
+'CCC30',
+'CCC30',
+30,
+],
+'ccc31' => 
+[
+'CCC31',
+'CCC31',
+31,
+],
+'ccc32' => 
+[
+'CCC32',
+'CCC32',
+32,
+],
+'ccc33' => 
+[
+'CCC33',
+'CCC33',
+33,
+],
+'ccc34' => 
+[
+'CCC34',
+'CCC34',
+34,
+],
+'ccc35' => 
+[
+'CCC35',
+'CCC35',
+35,
+],
+'ccc36' => 
+[
+'CCC36',
+'CCC36',
+36,
+],
+'ccc84' => 
+[
+'CCC84',
+'CCC84',
+84,
+],
+'ccc91' => 
+[
+'CCC91',
+'CCC91',
+91,
+],
+'da' => 
+[
+'DA',
+'Double_Above',
+234,
+],
+'db' => 
+[
+'DB',
+'Double_Below',
+233,
+],
+'is' => 
+[
+'IS',
+'Iota_Subscript',
+240,
+],
+'kv' => 
+[
+'KV',
+'Kana_Voicing',
+8,
+],
+'l' => 
+[
+'L',
+'Left',
+224,
+],
+'nk' => 
+[
+'NK',
+'Nukta',
+7,
+],
+'nr' => 
+[
+'NR',
+'Not_Reordered',
+0,
+],
+'ov' => 
+[
+'OV',
+'Overlay',
+1,
+],
+'r' => 
+[
+'R',
+'Right',
+226,
+],
+'vr' => 
+[
+'VR',
+'Virama',
+9,
+],
+},
+'ce' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'ci' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'compex' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'cwcf' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'cwcm' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'cwkcf' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'cwl' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'cwt' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'cwu' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'dash' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'dep' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'di' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'dia' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'dt' => 
+{
+'can' => 
+[
+'Can',
+'Canonical',
+],
+'com' => 
+[
+'Com',
+'Compat',
+],
+'enc' => 
+[
+'Enc',
+'Circle',
+],
+'fin' => 
+[
+'Fin',
+'Final',
+],
+'font' => 
+[
+'Font',
+],
+'fra' => 
+[
+'Fra',
+'Fraction',
+],
+'init' => 
+[
+'Init',
+'Initial',
+],
+'iso' => 
+[
+'Iso',
+'Isolated',
+],
+'med' => 
+[
+'Med',
+'Medial',
+],
+'nar' => 
+[
+'Nar',
+'Narrow',
+],
+'nb' => 
+[
+'Nb',
+'Nobreak',
+],
+'noncanon' => 
+[
+'Non_Canon',
+'Non_Canonical',
+],
+'none' => 
+[
+'None',
+],
+'sml' => 
+[
+'Sml',
+'Small',
+],
+'sqr' => 
+[
+'Sqr',
+'Square',
+],
+'sub' => 
+[
+'Sub',
+],
+'sup' => 
+[
+'Sup',
+'Super',
+],
+'vert' => 
+[
+'Vert',
+'Vertical',
+],
+'wide' => 
+[
+'Wide',
+],
+},
+'ea' => 
+{
+'a' => 
+[
+'A',
+'Ambiguous',
+],
+'f' => 
+[
+'F',
+'Fullwidth',
+],
+'h' => 
+[
+'H',
+'Halfwidth',
+],
+'n' => 
+[
+'N',
+'Neutral',
+],
+'na' => 
+[
+'Na',
+'Narrow',
+],
+'w' => 
+[
+'W',
+'Wide',
+],
+},
+'ext' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'gc' => 
+{
+'c' => 
+[
+'C',
+'Other',
+],
+'cc' => 
+[
+'Cc',
+'Control',
+'Cntrl',
+],
+'cf' => 
+[
+'Cf',
+'Format',
+],
+'cn' => 
+[
+'Cn',
+'Unassigned',
+],
+'co' => 
+[
+'Co',
+'Private_Use',
+],
+'cs' => 
+[
+'Cs',
+'Surrogate',
+],
+'l' => 
+[
+'L',
+'Letter',
+],
+'lc' => 
+[
+'LC',
+'Cased_Letter',
+],
+'ll' => 
+[
+'Ll',
+'Lowercase_Letter',
+],
+'lm' => 
+[
+'Lm',
+'Modifier_Letter',
+],
+'lo' => 
+[
+'Lo',
+'Other_Letter',
+],
+'lt' => 
+[
+'Lt',
+'Titlecase_Letter',
+],
+'lu' => 
+[
+'Lu',
+'Uppercase_Letter',
+],
+'m' => 
+[
+'M',
+'Mark',
+'Combining_Mark',
+],
+'mc' => 
+[
+'Mc',
+'Spacing_Mark',
+],
+'me' => 
+[
+'Me',
+'Enclosing_Mark',
+],
+'mn' => 
+[
+'Mn',
+'Nonspacing_Mark',
+],
+'n' => 
+[
+'N',
+'Number',
+],
+'nd' => 
+[
+'Nd',
+'Decimal_Number',
+'Digit',
+],
+'nl' => 
+[
+'Nl',
+'Letter_Number',
+],
+'no' => 
+[
+'No',
+'Other_Number',
+],
+'p' => 
+[
+'P',
+'Punctuation',
+'Punct',
+],
+'pc' => 
+[
+'Pc',
+'Connector_Punctuation',
+],
+'pd' => 
+[
+'Pd',
+'Dash_Punctuation',
+],
+'pe' => 
+[
+'Pe',
+'Close_Punctuation',
+],
+'pf' => 
+[
+'Pf',
+'Final_Punctuation',
+],
+'pi' => 
+[
+'Pi',
+'Initial_Punctuation',
+],
+'po' => 
+[
+'Po',
+'Other_Punctuation',
+],
+'ps' => 
+[
+'Ps',
+'Open_Punctuation',
+],
+'s' => 
+[
+'S',
+'Symbol',
+],
+'sc' => 
+[
+'Sc',
+'Currency_Symbol',
+],
+'sk' => 
+[
+'Sk',
+'Modifier_Symbol',
+],
+'sm' => 
+[
+'Sm',
+'Math_Symbol',
+],
+'so' => 
+[
+'So',
+'Other_Symbol',
+],
+'z' => 
+[
+'Z',
+'Separator',
+],
+'zl' => 
+[
+'Zl',
+'Line_Separator',
+],
+'zp' => 
+[
+'Zp',
+'Paragraph_Separator',
+],
+'zs' => 
+[
+'Zs',
+'Space_Separator',
+],
+},
+'gcb' => 
+{
+'cn' => 
+[
+'CN',
+'Control',
+],
+'cr' => 
+[
+'CR',
+],
+'ex' => 
+[
+'EX',
+'Extend',
+],
+'l' => 
+[
+'L',
+],
+'lf' => 
+[
+'LF',
+],
+'lv' => 
+[
+'LV',
+],
+'lvt' => 
+[
+'LVT',
+],
+'pp' => 
+[
+'PP',
+'Prepend',
+],
+'ri' => 
+[
+'RI',
+'Regional_Indicator',
+],
+'sm' => 
+[
+'SM',
+'SpacingMark',
+],
+'t' => 
+[
+'T',
+],
+'v' => 
+[
+'V',
+],
+'xx' => 
+[
+'XX',
+'Other',
+],
+},
+'grbase' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'grext' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'hex' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'hst' => 
+{
+'l' => 
+[
+'L',
+'Leading_Jamo',
+],
+'lv' => 
+[
+'LV',
+'LV_Syllable',
+],
+'lvt' => 
+[
+'LVT',
+'LVT_Syllable',
+],
+'na' => 
+[
+'NA',
+'Not_Applicable',
+],
+'t' => 
+[
+'T',
+'Trailing_Jamo',
+],
+'v' => 
+[
+'V',
+'Vowel_Jamo',
+],
+},
+'hyphen' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'idc' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'ideo' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'ids' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'idsb' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'idst' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'in' => 
+{
+'1.1' => 
+[
+'1.1',
+],
+'2.0' => 
+[
+'2.0',
+],
+'2.1' => 
+[
+'2.1',
+],
+'3.0' => 
+[
+'3.0',
+],
+'3.1' => 
+[
+'3.1',
+],
+'3.2' => 
+[
+'3.2',
+],
+'4.0' => 
+[
+'4.0',
+],
+'4.1' => 
+[
+'4.1',
+],
+'5.0' => 
+[
+'5.0',
+],
+'5.1' => 
+[
+'5.1',
+],
+'5.2' => 
+[
+'5.2',
+],
+'6.0' => 
+[
+'6.0',
+],
+'6.1' => 
+[
+'6.1',
+],
+'6.2' => 
+[
+'6.2',
+],
+'6.3' => 
+[
+'6.3',
+],
+'7.0' => 
+[
+'7.0',
+],
+'8.0' => 
+[
+'8.0',
+],
+'unassigned' => 
+[
+'Unassigned',
+],
+},
+'inpc' => 
+{
+'bottom' => 
+[
+'Bottom',
+],
+'bottomandright' => 
+[
+'Bottom_And_Right',
+],
+'left' => 
+[
+'Left',
+],
+'leftandright' => 
+[
+'Left_And_Right',
+],
+'na' => 
+[
+'NA',
+],
+'overstruck' => 
+[
+'Overstruck',
+],
+'right' => 
+[
+'Right',
+],
+'top' => 
+[
+'Top',
+],
+'topandbottom' => 
+[
+'Top_And_Bottom',
+],
+'topandbottomandright' => 
+[
+'Top_And_Bottom_And_Right',
+],
+'topandleft' => 
+[
+'Top_And_Left',
+],
+'topandleftandright' => 
+[
+'Top_And_Left_And_Right',
+],
+'topandright' => 
+[
+'Top_And_Right',
+],
+'visualorderleft' => 
+[
+'Visual_Order_Left',
+],
+},
+'insc' => 
+{
+'avagraha' => 
+[
+'Avagraha',
+],
+'bindu' => 
+[
+'Bindu',
+],
+'brahmijoiningnumber' => 
+[
+'Brahmi_Joining_Number',
+],
+'cantillationmark' => 
+[
+'Cantillation_Mark',
+],
+'consonant' => 
+[
+'Consonant',
+],
+'consonantdead' => 
+[
+'Consonant_Dead',
+],
+'consonantfinal' => 
+[
+'Consonant_Final',
+],
+'consonantheadletter' => 
+[
+'Consonant_Head_Letter',
+],
+'consonantkiller' => 
+[
+'Consonant_Killer',
+],
+'consonantmedial' => 
+[
+'Consonant_Medial',
+],
+'consonantplaceholder' => 
+[
+'Consonant_Placeholder',
+],
+'consonantprecedingrepha' => 
+[
+'Consonant_Preceding_Repha',
+],
+'consonantprefixed' => 
+[
+'Consonant_Prefixed',
+],
+'consonantsubjoined' => 
+[
+'Consonant_Subjoined',
+],
+'consonantsucceedingrepha' => 
+[
+'Consonant_Succeeding_Repha',
+],
+'consonantwithstacker' => 
+[
+'Consonant_With_Stacker',
+],
+'geminationmark' => 
+[
+'Gemination_Mark',
+],
+'invisiblestacker' => 
+[
+'Invisible_Stacker',
+],
+'joiner' => 
+[
+'Joiner',
+],
+'modifyingletter' => 
+[
+'Modifying_Letter',
+],
+'nonjoiner' => 
+[
+'Non_Joiner',
+],
+'nukta' => 
+[
+'Nukta',
+],
+'number' => 
+[
+'Number',
+],
+'numberjoiner' => 
+[
+'Number_Joiner',
+],
+'other' => 
+[
+'Other',
+],
+'purekiller' => 
+[
+'Pure_Killer',
+],
+'registershifter' => 
+[
+'Register_Shifter',
+],
+'syllablemodifier' => 
+[
+'Syllable_Modifier',
+],
+'toneletter' => 
+[
+'Tone_Letter',
+],
+'tonemark' => 
+[
+'Tone_Mark',
+],
+'virama' => 
+[
+'Virama',
+],
+'visarga' => 
+[
+'Visarga',
+],
+'vowel' => 
+[
+'Vowel',
+],
+'voweldependent' => 
+[
+'Vowel_Dependent',
+],
+'vowelindependent' => 
+[
+'Vowel_Independent',
+],
+},
+'jg' => 
+{
+'ain' => 
+[
+'Ain',
+],
+'alaph' => 
+[
+'Alaph',
+],
+'alef' => 
+[
+'Alef',
+],
+'beh' => 
+[
+'Beh',
+],
+'beth' => 
+[
+'Beth',
+],
+'burushaskiyehbarree' => 
+[
+'Burushaski_Yeh_Barree',
+],
+'dal' => 
+[
+'Dal',
+],
+'dalathrish' => 
+[
+'Dalath_Rish',
+],
+'e' => 
+[
+'E',
+],
+'farsiyeh' => 
+[
+'Farsi_Yeh',
+],
+'fe' => 
+[
+'Fe',
+],
+'feh' => 
+[
+'Feh',
+],
+'finalsemkath' => 
+[
+'Final_Semkath',
+],
+'gaf' => 
+[
+'Gaf',
+],
+'gamal' => 
+[
+'Gamal',
+],
+'hah' => 
+[
+'Hah',
+],
+'he' => 
+[
+'He',
+],
+'heh' => 
+[
+'Heh',
+],
+'hehgoal' => 
+[
+'Heh_Goal',
+],
+'heth' => 
+[
+'Heth',
+],
+'kaf' => 
+[
+'Kaf',
+],
+'kaph' => 
+[
+'Kaph',
+],
+'khaph' => 
+[
+'Khaph',
+],
+'knottedheh' => 
+[
+'Knotted_Heh',
+],
+'lam' => 
+[
+'Lam',
+],
+'lamadh' => 
+[
+'Lamadh',
+],
+'manichaeanaleph' => 
+[
+'Manichaean_Aleph',
+],
+'manichaeanayin' => 
+[
+'Manichaean_Ayin',
+],
+'manichaeanbeth' => 
+[
+'Manichaean_Beth',
+],
+'manichaeandaleth' => 
+[
+'Manichaean_Daleth',
+],
+'manichaeandhamedh' => 
+[
+'Manichaean_Dhamedh',
+],
+'manichaeanfive' => 
+[
+'Manichaean_Five',
+],
+'manichaeangimel' => 
+[
+'Manichaean_Gimel',
+],
+'manichaeanheth' => 
+[
+'Manichaean_Heth',
+],
+'manichaeanhundred' => 
+[
+'Manichaean_Hundred',
+],
+'manichaeankaph' => 
+[
+'Manichaean_Kaph',
+],
+'manichaeanlamedh' => 
+[
+'Manichaean_Lamedh',
+],
+'manichaeanmem' => 
+[
+'Manichaean_Mem',
+],
+'manichaeannun' => 
+[
+'Manichaean_Nun',
+],
+'manichaeanone' => 
+[
+'Manichaean_One',
+],
+'manichaeanpe' => 
+[
+'Manichaean_Pe',
+],
+'manichaeanqoph' => 
+[
+'Manichaean_Qoph',
+],
+'manichaeanresh' => 
+[
+'Manichaean_Resh',
+],
+'manichaeansadhe' => 
+[
+'Manichaean_Sadhe',
+],
+'manichaeansamekh' => 
+[
+'Manichaean_Samekh',
+],
+'manichaeantaw' => 
+[
+'Manichaean_Taw',
+],
+'manichaeanten' => 
+[
+'Manichaean_Ten',
+],
+'manichaeanteth' => 
+[
+'Manichaean_Teth',
+],
+'manichaeanthamedh' => 
+[
+'Manichaean_Thamedh',
+],
+'manichaeantwenty' => 
+[
+'Manichaean_Twenty',
+],
+'manichaeanwaw' => 
+[
+'Manichaean_Waw',
+],
+'manichaeanyodh' => 
+[
+'Manichaean_Yodh',
+],
+'manichaeanzayin' => 
+[
+'Manichaean_Zayin',
+],
+'meem' => 
+[
+'Meem',
+],
+'mim' => 
+[
+'Mim',
+],
+'nojoininggroup' => 
+[
+'No_Joining_Group',
+],
+'noon' => 
+[
+'Noon',
+],
+'nun' => 
+[
+'Nun',
+],
+'nya' => 
+[
+'Nya',
+],
+'pe' => 
+[
+'Pe',
+],
+'qaf' => 
+[
+'Qaf',
+],
+'qaph' => 
+[
+'Qaph',
+],
+'reh' => 
+[
+'Reh',
+],
+'reversedpe' => 
+[
+'Reversed_Pe',
+],
+'rohingyayeh' => 
+[
+'Rohingya_Yeh',
+],
+'sad' => 
+[
+'Sad',
+],
+'sadhe' => 
+[
+'Sadhe',
+],
+'seen' => 
+[
+'Seen',
+],
+'semkath' => 
+[
+'Semkath',
+],
+'shin' => 
+[
+'Shin',
+],
+'straightwaw' => 
+[
+'Straight_Waw',
+],
+'swashkaf' => 
+[
+'Swash_Kaf',
+],
+'syriacwaw' => 
+[
+'Syriac_Waw',
+],
+'tah' => 
+[
+'Tah',
+],
+'taw' => 
+[
+'Taw',
+],
+'tehmarbuta' => 
+[
+'Teh_Marbuta',
+],
+'tehmarbutagoal' => 
+[
+'Teh_Marbuta_Goal',
+'Hamza_On_Heh_Goal',
+],
+'teth' => 
+[
+'Teth',
+],
+'waw' => 
+[
+'Waw',
+],
+'yeh' => 
+[
+'Yeh',
+],
+'yehbarree' => 
+[
+'Yeh_Barree',
+],
+'yehwithtail' => 
+[
+'Yeh_With_Tail',
+],
+'yudh' => 
+[
+'Yudh',
+],
+'yudhhe' => 
+[
+'Yudh_He',
+],
+'zain' => 
+[
+'Zain',
+],
+'zhain' => 
+[
+'Zhain',
+],
+},
+'joinc' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'jt' => 
+{
+'c' => 
+[
+'C',
+'Join_Causing',
+],
+'d' => 
+[
+'D',
+'Dual_Joining',
+],
+'l' => 
+[
+'L',
+'Left_Joining',
+],
+'r' => 
+[
+'R',
+'Right_Joining',
+],
+'t' => 
+[
+'T',
+'Transparent',
+],
+'u' => 
+[
+'U',
+'Non_Joining',
+],
+},
+'lb' => 
+{
+'ai' => 
+[
+'AI',
+'Ambiguous',
+],
+'al' => 
+[
+'AL',
+'Alphabetic',
+],
+'b2' => 
+[
+'B2',
+'Break_Both',
+],
+'ba' => 
+[
+'BA',
+'Break_After',
+],
+'bb' => 
+[
+'BB',
+'Break_Before',
+],
+'bk' => 
+[
+'BK',
+'Mandatory_Break',
+],
+'cb' => 
+[
+'CB',
+'Contingent_Break',
+],
+'cj' => 
+[
+'CJ',
+'Conditional_Japanese_Starter',
+],
+'cl' => 
+[
+'CL',
+'Close_Punctuation',
+],
+'cm' => 
+[
+'CM',
+'Combining_Mark',
+],
+'cp' => 
+[
+'CP',
+'Close_Parenthesis',
+],
+'cr' => 
+[
+'CR',
+'Carriage_Return',
+],
+'ex' => 
+[
+'EX',
+'Exclamation',
+],
+'gl' => 
+[
+'GL',
+'Glue',
+],
+'h2' => 
+[
+'H2',
+],
+'h3' => 
+[
+'H3',
+],
+'hl' => 
+[
+'HL',
+'Hebrew_Letter',
+],
+'hy' => 
+[
+'HY',
+'Hyphen',
+],
+'id' => 
+[
+'ID',
+'Ideographic',
+],
+'in' => 
+[
+'IN',
+'Inseparable',
+'Inseperable',
+],
+'is' => 
+[
+'IS',
+'Infix_Numeric',
+],
+'jl' => 
+[
+'JL',
+],
+'jt' => 
+[
+'JT',
+],
+'jv' => 
+[
+'JV',
+],
+'lf' => 
+[
+'LF',
+'Line_Feed',
+],
+'nl' => 
+[
+'NL',
+'Next_Line',
+],
+'ns' => 
+[
+'NS',
+'Nonstarter',
+],
+'nu' => 
+[
+'NU',
+'Numeric',
+],
+'op' => 
+[
+'OP',
+'Open_Punctuation',
+],
+'po' => 
+[
+'PO',
+'Postfix_Numeric',
+],
+'pr' => 
+[
+'PR',
+'Prefix_Numeric',
+],
+'qu' => 
+[
+'QU',
+'Quotation',
+],
+'ri' => 
+[
+'RI',
+'Regional_Indicator',
+],
+'sa' => 
+[
+'SA',
+'Complex_Context',
+],
+'sg' => 
+[
+'SG',
+'Surrogate',
+],
+'sp' => 
+[
+'SP',
+'Space',
+],
+'sy' => 
+[
+'SY',
+'Break_Symbols',
+],
+'wj' => 
+[
+'WJ',
+'Word_Joiner',
+],
+'xx' => 
+[
+'XX',
+'Unknown',
+],
+'zw' => 
+[
+'ZW',
+'ZWSpace',
+],
+},
+'loe' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'lower' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'math' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'nchar' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'nfcqc' => 
+{
+'m' => 
+[
+'M',
+'Maybe',
+],
+'n' => 
+[
+'N',
+'No',
+],
+'y' => 
+[
+'Y',
+'Yes',
+],
+},
+'nfdqc' => 
+{
+'n' => 
+[
+'N',
+'No',
+],
+'y' => 
+[
+'Y',
+'Yes',
+],
+},
+'nfkcqc' => 
+{
+'m' => 
+[
+'M',
+'Maybe',
+],
+'n' => 
+[
+'N',
+'No',
+],
+'y' => 
+[
+'Y',
+'Yes',
+],
+},
+'nfkdqc' => 
+{
+'n' => 
+[
+'N',
+'No',
+],
+'y' => 
+[
+'Y',
+'Yes',
+],
+},
+'nt' => 
+{
+'de' => 
+[
+'De',
+'Decimal',
+],
+'di' => 
+[
+'Di',
+'Digit',
+],
+'none' => 
+[
+'None',
+],
+'nu' => 
+[
+'Nu',
+'Numeric',
+],
+},
+'nv' => 
+{
+'-1/2' => 
+[
+'-1/2',
+],
+0 => 
+[
+0,
+],
+1 => 
+[
+1,
+],
+'1/10' => 
+[
+'1/10',
+],
+'1/12' => 
+[
+'1/12',
+],
+'1/16' => 
+[
+'1/16',
+],
+'1/2' => 
+[
+'1/2',
+],
+'1/3' => 
+[
+'1/3',
+],
+'1/4' => 
+[
+'1/4',
+],
+'1/5' => 
+[
+'1/5',
+],
+'1/6' => 
+[
+'1/6',
+],
+'1/7' => 
+[
+'1/7',
+],
+'1/8' => 
+[
+'1/8',
+],
+'1/9' => 
+[
+'1/9',
+],
+10 => 
+[
+10,
+],
+100 => 
+[
+100,
+],
+1000 => 
+[
+1000,
+],
+10000 => 
+[
+10000,
+],
+100000 => 
+[
+100000,
+],
+1000000 => 
+[
+1000000,
+],
+100000000 => 
+[
+100000000,
+],
+10000000000 => 
+[
+10000000000,
+],
+1000000000000 => 
+[
+1000000000000,
+],
+11 => 
+[
+11,
+],
+'11/12' => 
+[
+'11/12',
+],
+'11/2' => 
+[
+'11/2',
+],
+12 => 
+[
+12,
+],
+13 => 
+[
+13,
+],
+'13/2' => 
+[
+'13/2',
+],
+14 => 
+[
+14,
+],
+15 => 
+[
+15,
+],
+'15/2' => 
+[
+'15/2',
+],
+16 => 
+[
+16,
+],
+17 => 
+[
+17,
+],
+'17/2' => 
+[
+'17/2',
+],
+18 => 
+[
+18,
+],
+19 => 
+[
+19,
+],
+2 => 
+[
+2,
+],
+'2/3' => 
+[
+'2/3',
+],
+'2/5' => 
+[
+'2/5',
+],
+20 => 
+[
+20,
+],
+200 => 
+[
+200,
+],
+2000 => 
+[
+2000,
+],
+20000 => 
+[
+20000,
+],
+200000 => 
+[
+200000,
+],
+21 => 
+[
+21,
+],
+216000 => 
+[
+216000,
+],
+22 => 
+[
+22,
+],
+23 => 
+[
+23,
+],
+24 => 
+[
+24,
+],
+25 => 
+[
+25,
+],
+26 => 
+[
+26,
+],
+27 => 
+[
+27,
+],
+28 => 
+[
+28,
+],
+29 => 
+[
+29,
+],
+3 => 
+[
+3,
+],
+'3/16' => 
+[
+'3/16',
+],
+'3/2' => 
+[
+'3/2',
+],
+'3/4' => 
+[
+'3/4',
+],
+'3/5' => 
+[
+'3/5',
+],
+'3/8' => 
+[
+'3/8',
+],
+30 => 
+[
+30,
+],
+300 => 
+[
+300,
+],
+3000 => 
+[
+3000,
+],
+30000 => 
+[
+30000,
+],
+300000 => 
+[
+300000,
+],
+31 => 
+[
+31,
+],
+32 => 
+[
+32,
+],
+33 => 
+[
+33,
+],
+34 => 
+[
+34,
+],
+35 => 
+[
+35,
+],
+36 => 
+[
+36,
+],
+37 => 
+[
+37,
+],
+38 => 
+[
+38,
+],
+39 => 
+[
+39,
+],
+4 => 
+[
+4,
+],
+'4/5' => 
+[
+'4/5',
+],
+40 => 
+[
+40,
+],
+400 => 
+[
+400,
+],
+4000 => 
+[
+4000,
+],
+40000 => 
+[
+40000,
+],
+400000 => 
+[
+400000,
+],
+41 => 
+[
+41,
+],
+42 => 
+[
+42,
+],
+43 => 
+[
+43,
+],
+432000 => 
+[
+432000,
+],
+44 => 
+[
+44,
+],
+45 => 
+[
+45,
+],
+46 => 
+[
+46,
+],
+47 => 
+[
+47,
+],
+48 => 
+[
+48,
+],
+49 => 
+[
+49,
+],
+5 => 
+[
+5,
+],
+'5/12' => 
+[
+'5/12',
+],
+'5/2' => 
+[
+'5/2',
+],
+'5/6' => 
+[
+'5/6',
+],
+'5/8' => 
+[
+'5/8',
+],
+50 => 
+[
+50,
+],
+500 => 
+[
+500,
+],
+5000 => 
+[
+5000,
+],
+50000 => 
+[
+50000,
+],
+500000 => 
+[
+500000,
+],
+6 => 
+[
+6,
+],
+60 => 
+[
+60,
+],
+600 => 
+[
+600,
+],
+6000 => 
+[
+6000,
+],
+60000 => 
+[
+60000,
+],
+600000 => 
+[
+600000,
+],
+7 => 
+[
+7,
+],
+'7/12' => 
+[
+'7/12',
+],
+'7/2' => 
+[
+'7/2',
+],
+'7/8' => 
+[
+'7/8',
+],
+70 => 
+[
+70,
+],
+700 => 
+[
+700,
+],
+7000 => 
+[
+7000,
+],
+70000 => 
+[
+70000,
+],
+700000 => 
+[
+700000,
+],
+8 => 
+[
+8,
+],
+80 => 
+[
+80,
+],
+800 => 
+[
+800,
+],
+8000 => 
+[
+8000,
+],
+80000 => 
+[
+80000,
+],
+800000 => 
+[
+800000,
+],
+9 => 
+[
+9,
+],
+'9/2' => 
+[
+'9/2',
+],
+90 => 
+[
+90,
+],
+900 => 
+[
+900,
+],
+9000 => 
+[
+9000,
+],
+90000 => 
+[
+90000,
+],
+900000 => 
+[
+900000,
+],
+'nan' => 
+[
+'NaN',
+],
+},
+'patsyn' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'patws' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'qmark' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'radical' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'sb' => 
+{
+'at' => 
+[
+'AT',
+'ATerm',
+],
+'cl' => 
+[
+'CL',
+'Close',
+],
+'cr' => 
+[
+'CR',
+],
+'ex' => 
+[
+'EX',
+'Extend',
+],
+'fo' => 
+[
+'FO',
+'Format',
+],
+'le' => 
+[
+'LE',
+'OLetter',
+],
+'lf' => 
+[
+'LF',
+],
+'lo' => 
+[
+'LO',
+'Lower',
+],
+'nu' => 
+[
+'NU',
+'Numeric',
+],
+'sc' => 
+[
+'SC',
+'SContinue',
+],
+'se' => 
+[
+'SE',
+'Sep',
+],
+'sp' => 
+[
+'SP',
+'Sp',
+],
+'st' => 
+[
+'ST',
+'STerm',
+],
+'up' => 
+[
+'UP',
+'Upper',
+],
+'xx' => 
+[
+'XX',
+'Other',
+],
+},
+'sc' => 
+{
+'aghb' => 
+[
+'Aghb',
+'Caucasian_Albanian',
+],
+'ahom' => 
+[
+'Ahom',
+],
+'arab' => 
+[
+'Arab',
+'Arabic',
+],
+'armi' => 
+[
+'Armi',
+'Imperial_Aramaic',
+],
+'armn' => 
+[
+'Armn',
+'Armenian',
+],
+'avst' => 
+[
+'Avst',
+'Avestan',
+],
+'bali' => 
+[
+'Bali',
+'Balinese',
+],
+'bamu' => 
+[
+'Bamu',
+'Bamum',
+],
+'bass' => 
+[
+'Bass',
+'Bassa_Vah',
+],
+'batk' => 
+[
+'Batk',
+'Batak',
+],
+'beng' => 
+[
+'Beng',
+'Bengali',
+],
+'bopo' => 
+[
+'Bopo',
+'Bopomofo',
+],
+'brah' => 
+[
+'Brah',
+'Brahmi',
+],
+'brai' => 
+[
+'Brai',
+'Braille',
+],
+'bugi' => 
+[
+'Bugi',
+'Buginese',
+],
+'buhd' => 
+[
+'Buhd',
+'Buhid',
+],
+'cakm' => 
+[
+'Cakm',
+'Chakma',
+],
+'cans' => 
+[
+'Cans',
+'Canadian_Aboriginal',
+],
+'cari' => 
+[
+'Cari',
+'Carian',
+],
+'cham' => 
+[
+'Cham',
+],
+'cher' => 
+[
+'Cher',
+'Cherokee',
+],
+'copt' => 
+[
+'Copt',
+'Coptic',
+'Qaac',
+],
+'cprt' => 
+[
+'Cprt',
+'Cypriot',
+],
+'cyrl' => 
+[
+'Cyrl',
+'Cyrillic',
+],
+'deva' => 
+[
+'Deva',
+'Devanagari',
+],
+'dsrt' => 
+[
+'Dsrt',
+'Deseret',
+],
+'dupl' => 
+[
+'Dupl',
+'Duployan',
+],
+'egyp' => 
+[
+'Egyp',
+'Egyptian_Hieroglyphs',
+],
+'elba' => 
+[
+'Elba',
+'Elbasan',
+],
+'ethi' => 
+[
+'Ethi',
+'Ethiopic',
+],
+'geor' => 
+[
+'Geor',
+'Georgian',
+],
+'glag' => 
+[
+'Glag',
+'Glagolitic',
+],
+'goth' => 
+[
+'Goth',
+'Gothic',
+],
+'gran' => 
+[
+'Gran',
+'Grantha',
+],
+'grek' => 
+[
+'Grek',
+'Greek',
+],
+'gujr' => 
+[
+'Gujr',
+'Gujarati',
+],
+'guru' => 
+[
+'Guru',
+'Gurmukhi',
+],
+'hang' => 
+[
+'Hang',
+'Hangul',
+],
+'hani' => 
+[
+'Hani',
+'Han',
+],
+'hano' => 
+[
+'Hano',
+'Hanunoo',
+],
+'hatr' => 
+[
+'Hatr',
+'Hatran',
+],
+'hebr' => 
+[
+'Hebr',
+'Hebrew',
+],
+'hira' => 
+[
+'Hira',
+'Hiragana',
+],
+'hluw' => 
+[
+'Hluw',
+'Anatolian_Hieroglyphs',
+],
+'hmng' => 
+[
+'Hmng',
+'Pahawh_Hmong',
+],
+'hrkt' => 
+[
+'Hrkt',
+'Katakana_Or_Hiragana',
+],
+'hung' => 
+[
+'Hung',
+'Old_Hungarian',
+],
+'ital' => 
+[
+'Ital',
+'Old_Italic',
+],
+'java' => 
+[
+'Java',
+'Javanese',
+],
+'kali' => 
+[
+'Kali',
+'Kayah_Li',
+],
+'kana' => 
+[
+'Kana',
+'Katakana',
+],
+'khar' => 
+[
+'Khar',
+'Kharoshthi',
+],
+'khmr' => 
+[
+'Khmr',
+'Khmer',
+],
+'khoj' => 
+[
+'Khoj',
+'Khojki',
+],
+'knda' => 
+[
+'Knda',
+'Kannada',
+],
+'kthi' => 
+[
+'Kthi',
+'Kaithi',
+],
+'lana' => 
+[
+'Lana',
+'Tai_Tham',
+],
+'laoo' => 
+[
+'Laoo',
+'Lao',
+],
+'latn' => 
+[
+'Latn',
+'Latin',
+],
+'lepc' => 
+[
+'Lepc',
+'Lepcha',
+],
+'limb' => 
+[
+'Limb',
+'Limbu',
+],
+'lina' => 
+[
+'Lina',
+'Linear_A',
+],
+'linb' => 
+[
+'Linb',
+'Linear_B',
+],
+'lisu' => 
+[
+'Lisu',
+],
+'lyci' => 
+[
+'Lyci',
+'Lycian',
+],
+'lydi' => 
+[
+'Lydi',
+'Lydian',
+],
+'mahj' => 
+[
+'Mahj',
+'Mahajani',
+],
+'mand' => 
+[
+'Mand',
+'Mandaic',
+],
+'mani' => 
+[
+'Mani',
+'Manichaean',
+],
+'mend' => 
+[
+'Mend',
+'Mende_Kikakui',
+],
+'merc' => 
+[
+'Merc',
+'Meroitic_Cursive',
+],
+'mero' => 
+[
+'Mero',
+'Meroitic_Hieroglyphs',
+],
+'mlym' => 
+[
+'Mlym',
+'Malayalam',
+],
+'modi' => 
+[
+'Modi',
+],
+'mong' => 
+[
+'Mong',
+'Mongolian',
+],
+'mroo' => 
+[
+'Mroo',
+'Mro',
+],
+'mtei' => 
+[
+'Mtei',
+'Meetei_Mayek',
+],
+'mult' => 
+[
+'Mult',
+'Multani',
+],
+'mymr' => 
+[
+'Mymr',
+'Myanmar',
+],
+'narb' => 
+[
+'Narb',
+'Old_North_Arabian',
+],
+'nbat' => 
+[
+'Nbat',
+'Nabataean',
+],
+'nkoo' => 
+[
+'Nkoo',
+'Nko',
+],
+'ogam' => 
+[
+'Ogam',
+'Ogham',
+],
+'olck' => 
+[
+'Olck',
+'Ol_Chiki',
+],
+'orkh' => 
+[
+'Orkh',
+'Old_Turkic',
+],
+'orya' => 
+[
+'Orya',
+'Oriya',
+],
+'osma' => 
+[
+'Osma',
+'Osmanya',
+],
+'palm' => 
+[
+'Palm',
+'Palmyrene',
+],
+'pauc' => 
+[
+'Pauc',
+'Pau_Cin_Hau',
+],
+'perm' => 
+[
+'Perm',
+'Old_Permic',
+],
+'phag' => 
+[
+'Phag',
+'Phags_Pa',
+],
+'phli' => 
+[
+'Phli',
+'Inscriptional_Pahlavi',
+],
+'phlp' => 
+[
+'Phlp',
+'Psalter_Pahlavi',
+],
+'phnx' => 
+[
+'Phnx',
+'Phoenician',
+],
+'plrd' => 
+[
+'Plrd',
+'Miao',
+],
+'prti' => 
+[
+'Prti',
+'Inscriptional_Parthian',
+],
+'rjng' => 
+[
+'Rjng',
+'Rejang',
+],
+'runr' => 
+[
+'Runr',
+'Runic',
+],
+'samr' => 
+[
+'Samr',
+'Samaritan',
+],
+'sarb' => 
+[
+'Sarb',
+'Old_South_Arabian',
+],
+'saur' => 
+[
+'Saur',
+'Saurashtra',
+],
+'sgnw' => 
+[
+'Sgnw',
+'SignWriting',
+],
+'shaw' => 
+[
+'Shaw',
+'Shavian',
+],
+'shrd' => 
+[
+'Shrd',
+'Sharada',
+],
+'sidd' => 
+[
+'Sidd',
+'Siddham',
+],
+'sind' => 
+[
+'Sind',
+'Khudawadi',
+],
+'sinh' => 
+[
+'Sinh',
+'Sinhala',
+],
+'sora' => 
+[
+'Sora',
+'Sora_Sompeng',
+],
+'sund' => 
+[
+'Sund',
+'Sundanese',
+],
+'sylo' => 
+[
+'Sylo',
+'Syloti_Nagri',
+],
+'syrc' => 
+[
+'Syrc',
+'Syriac',
+],
+'tagb' => 
+[
+'Tagb',
+'Tagbanwa',
+],
+'takr' => 
+[
+'Takr',
+'Takri',
+],
+'tale' => 
+[
+'Tale',
+'Tai_Le',
+],
+'talu' => 
+[
+'Talu',
+'New_Tai_Lue',
+],
+'taml' => 
+[
+'Taml',
+'Tamil',
+],
+'tavt' => 
+[
+'Tavt',
+'Tai_Viet',
+],
+'telu' => 
+[
+'Telu',
+'Telugu',
+],
+'tfng' => 
+[
+'Tfng',
+'Tifinagh',
+],
+'tglg' => 
+[
+'Tglg',
+'Tagalog',
+],
+'thaa' => 
+[
+'Thaa',
+'Thaana',
+],
+'thai' => 
+[
+'Thai',
+],
+'tibt' => 
+[
+'Tibt',
+'Tibetan',
+],
+'tirh' => 
+[
+'Tirh',
+'Tirhuta',
+],
+'ugar' => 
+[
+'Ugar',
+'Ugaritic',
+],
+'vaii' => 
+[
+'Vaii',
+'Vai',
+],
+'wara' => 
+[
+'Wara',
+'Warang_Citi',
+],
+'xpeo' => 
+[
+'Xpeo',
+'Old_Persian',
+],
+'xsux' => 
+[
+'Xsux',
+'Cuneiform',
+],
+'yiii' => 
+[
+'Yiii',
+'Yi',
+],
+'zinh' => 
+[
+'Zinh',
+'Inherited',
+'Qaai',
+],
+'zyyy' => 
+[
+'Zyyy',
+'Common',
+],
+'zzzz' => 
+[
+'Zzzz',
+'Unknown',
+],
+},
+'scx' => 
+{
+'aghb' => 
+[
+'Aghb',
+'Caucasian_Albanian',
+],
+'ahom' => 
+[
+'Ahom',
+],
+'arab' => 
+[
+'Arab',
+'Arabic',
+],
+'armi' => 
+[
+'Armi',
+'Imperial_Aramaic',
+],
+'armn' => 
+[
+'Armn',
+'Armenian',
+],
+'avst' => 
+[
+'Avst',
+'Avestan',
+],
+'bali' => 
+[
+'Bali',
+'Balinese',
+],
+'bamu' => 
+[
+'Bamu',
+'Bamum',
+],
+'bass' => 
+[
+'Bass',
+'Bassa_Vah',
+],
+'batk' => 
+[
+'Batk',
+'Batak',
+],
+'beng' => 
+[
+'Beng',
+'Bengali',
+],
+'bopo' => 
+[
+'Bopo',
+'Bopomofo',
+],
+'brah' => 
+[
+'Brah',
+'Brahmi',
+],
+'brai' => 
+[
+'Brai',
+'Braille',
+],
+'bugi' => 
+[
+'Bugi',
+'Buginese',
+],
+'buhd' => 
+[
+'Buhd',
+'Buhid',
+],
+'cakm' => 
+[
+'Cakm',
+'Chakma',
+],
+'cans' => 
+[
+'Cans',
+'Canadian_Aboriginal',
+],
+'cari' => 
+[
+'Cari',
+'Carian',
+],
+'cham' => 
+[
+'Cham',
+],
+'cher' => 
+[
+'Cher',
+'Cherokee',
+],
+'copt' => 
+[
+'Copt',
+'Coptic',
+'Qaac',
+],
+'cprt' => 
+[
+'Cprt',
+'Cypriot',
+],
+'cyrl' => 
+[
+'Cyrl',
+'Cyrillic',
+],
+'deva' => 
+[
+'Deva',
+'Devanagari',
+],
+'dsrt' => 
+[
+'Dsrt',
+'Deseret',
+],
+'dupl' => 
+[
+'Dupl',
+'Duployan',
+],
+'egyp' => 
+[
+'Egyp',
+'Egyptian_Hieroglyphs',
+],
+'elba' => 
+[
+'Elba',
+'Elbasan',
+],
+'ethi' => 
+[
+'Ethi',
+'Ethiopic',
+],
+'geor' => 
+[
+'Geor',
+'Georgian',
+],
+'glag' => 
+[
+'Glag',
+'Glagolitic',
+],
+'goth' => 
+[
+'Goth',
+'Gothic',
+],
+'gran' => 
+[
+'Gran',
+'Grantha',
+],
+'grek' => 
+[
+'Grek',
+'Greek',
+],
+'gujr' => 
+[
+'Gujr',
+'Gujarati',
+],
+'guru' => 
+[
+'Guru',
+'Gurmukhi',
+],
+'hang' => 
+[
+'Hang',
+'Hangul',
+],
+'hani' => 
+[
+'Hani',
+'Han',
+],
+'hano' => 
+[
+'Hano',
+'Hanunoo',
+],
+'hatr' => 
+[
+'Hatr',
+'Hatran',
+],
+'hebr' => 
+[
+'Hebr',
+'Hebrew',
+],
+'hira' => 
+[
+'Hira',
+'Hiragana',
+],
+'hluw' => 
+[
+'Hluw',
+'Anatolian_Hieroglyphs',
+],
+'hmng' => 
+[
+'Hmng',
+'Pahawh_Hmong',
+],
+'hrkt' => 
+[
+'Hrkt',
+'Katakana_Or_Hiragana',
+],
+'hung' => 
+[
+'Hung',
+'Old_Hungarian',
+],
+'ital' => 
+[
+'Ital',
+'Old_Italic',
+],
+'java' => 
+[
+'Java',
+'Javanese',
+],
+'kali' => 
+[
+'Kali',
+'Kayah_Li',
+],
+'kana' => 
+[
+'Kana',
+'Katakana',
+],
+'khar' => 
+[
+'Khar',
+'Kharoshthi',
+],
+'khmr' => 
+[
+'Khmr',
+'Khmer',
+],
+'khoj' => 
+[
+'Khoj',
+'Khojki',
+],
+'knda' => 
+[
+'Knda',
+'Kannada',
+],
+'kthi' => 
+[
+'Kthi',
+'Kaithi',
+],
+'lana' => 
+[
+'Lana',
+'Tai_Tham',
+],
+'laoo' => 
+[
+'Laoo',
+'Lao',
+],
+'latn' => 
+[
+'Latn',
+'Latin',
+],
+'lepc' => 
+[
+'Lepc',
+'Lepcha',
+],
+'limb' => 
+[
+'Limb',
+'Limbu',
+],
+'lina' => 
+[
+'Lina',
+'Linear_A',
+],
+'linb' => 
+[
+'Linb',
+'Linear_B',
+],
+'lisu' => 
+[
+'Lisu',
+],
+'lyci' => 
+[
+'Lyci',
+'Lycian',
+],
+'lydi' => 
+[
+'Lydi',
+'Lydian',
+],
+'mahj' => 
+[
+'Mahj',
+'Mahajani',
+],
+'mand' => 
+[
+'Mand',
+'Mandaic',
+],
+'mani' => 
+[
+'Mani',
+'Manichaean',
+],
+'mend' => 
+[
+'Mend',
+'Mende_Kikakui',
+],
+'merc' => 
+[
+'Merc',
+'Meroitic_Cursive',
+],
+'mero' => 
+[
+'Mero',
+'Meroitic_Hieroglyphs',
+],
+'mlym' => 
+[
+'Mlym',
+'Malayalam',
+],
+'modi' => 
+[
+'Modi',
+],
+'mong' => 
+[
+'Mong',
+'Mongolian',
+],
+'mroo' => 
+[
+'Mroo',
+'Mro',
+],
+'mtei' => 
+[
+'Mtei',
+'Meetei_Mayek',
+],
+'mult' => 
+[
+'Mult',
+'Multani',
+],
+'mymr' => 
+[
+'Mymr',
+'Myanmar',
+],
+'narb' => 
+[
+'Narb',
+'Old_North_Arabian',
+],
+'nbat' => 
+[
+'Nbat',
+'Nabataean',
+],
+'nkoo' => 
+[
+'Nkoo',
+'Nko',
+],
+'ogam' => 
+[
+'Ogam',
+'Ogham',
+],
+'olck' => 
+[
+'Olck',
+'Ol_Chiki',
+],
+'orkh' => 
+[
+'Orkh',
+'Old_Turkic',
+],
+'orya' => 
+[
+'Orya',
+'Oriya',
+],
+'osma' => 
+[
+'Osma',
+'Osmanya',
+],
+'palm' => 
+[
+'Palm',
+'Palmyrene',
+],
+'pauc' => 
+[
+'Pauc',
+'Pau_Cin_Hau',
+],
+'perm' => 
+[
+'Perm',
+'Old_Permic',
+],
+'phag' => 
+[
+'Phag',
+'Phags_Pa',
+],
+'phli' => 
+[
+'Phli',
+'Inscriptional_Pahlavi',
+],
+'phlp' => 
+[
+'Phlp',
+'Psalter_Pahlavi',
+],
+'phnx' => 
+[
+'Phnx',
+'Phoenician',
+],
+'plrd' => 
+[
+'Plrd',
+'Miao',
+],
+'prti' => 
+[
+'Prti',
+'Inscriptional_Parthian',
+],
+'rjng' => 
+[
+'Rjng',
+'Rejang',
+],
+'runr' => 
+[
+'Runr',
+'Runic',
+],
+'samr' => 
+[
+'Samr',
+'Samaritan',
+],
+'sarb' => 
+[
+'Sarb',
+'Old_South_Arabian',
+],
+'saur' => 
+[
+'Saur',
+'Saurashtra',
+],
+'sgnw' => 
+[
+'Sgnw',
+'SignWriting',
+],
+'shaw' => 
+[
+'Shaw',
+'Shavian',
+],
+'shrd' => 
+[
+'Shrd',
+'Sharada',
+],
+'sidd' => 
+[
+'Sidd',
+'Siddham',
+],
+'sind' => 
+[
+'Sind',
+'Khudawadi',
+],
+'sinh' => 
+[
+'Sinh',
+'Sinhala',
+],
+'sora' => 
+[
+'Sora',
+'Sora_Sompeng',
+],
+'sund' => 
+[
+'Sund',
+'Sundanese',
+],
+'sylo' => 
+[
+'Sylo',
+'Syloti_Nagri',
+],
+'syrc' => 
+[
+'Syrc',
+'Syriac',
+],
+'tagb' => 
+[
+'Tagb',
+'Tagbanwa',
+],
+'takr' => 
+[
+'Takr',
+'Takri',
+],
+'tale' => 
+[
+'Tale',
+'Tai_Le',
+],
+'talu' => 
+[
+'Talu',
+'New_Tai_Lue',
+],
+'taml' => 
+[
+'Taml',
+'Tamil',
+],
+'tavt' => 
+[
+'Tavt',
+'Tai_Viet',
+],
+'telu' => 
+[
+'Telu',
+'Telugu',
+],
+'tfng' => 
+[
+'Tfng',
+'Tifinagh',
+],
+'tglg' => 
+[
+'Tglg',
+'Tagalog',
+],
+'thaa' => 
+[
+'Thaa',
+'Thaana',
+],
+'thai' => 
+[
+'Thai',
+],
+'tibt' => 
+[
+'Tibt',
+'Tibetan',
+],
+'tirh' => 
+[
+'Tirh',
+'Tirhuta',
+],
+'ugar' => 
+[
+'Ugar',
+'Ugaritic',
+],
+'vaii' => 
+[
+'Vaii',
+'Vai',
+],
+'wara' => 
+[
+'Wara',
+'Warang_Citi',
+],
+'xpeo' => 
+[
+'Xpeo',
+'Old_Persian',
+],
+'xsux' => 
+[
+'Xsux',
+'Cuneiform',
+],
+'yiii' => 
+[
+'Yiii',
+'Yi',
+],
+'zinh' => 
+[
+'Zinh',
+'Inherited',
+'Qaai',
+],
+'zyyy' => 
+[
+'Zyyy',
+'Common',
+],
+'zzzz' => 
+[
+'Zzzz',
+'Unknown',
+],
+},
+'sd' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'sterm' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'term' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'uideo' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'upper' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'vs' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'wb' => 
+{
+'cr' => 
+[
+'CR',
+],
+'dq' => 
+[
+'DQ',
+'Double_Quote',
+],
+'ex' => 
+[
+'EX',
+'ExtendNumLet',
+],
+'extend' => 
+[
+'Extend',
+],
+'fo' => 
+[
+'FO',
+'Format',
+],
+'hl' => 
+[
+'HL',
+'Hebrew_Letter',
+],
+'ka' => 
+[
+'KA',
+'Katakana',
+],
+'le' => 
+[
+'LE',
+'ALetter',
+],
+'lf' => 
+[
+'LF',
+],
+'mb' => 
+[
+'MB',
+'MidNumLet',
+],
+'ml' => 
+[
+'ML',
+'MidLetter',
+],
+'mn' => 
+[
+'MN',
+'MidNum',
+],
+'nl' => 
+[
+'NL',
+'Newline',
+],
+'nu' => 
+[
+'NU',
+'Numeric',
+],
+'ri' => 
+[
+'RI',
+'Regional_Indicator',
+],
+'sq' => 
+[
+'SQ',
+'Single_Quote',
+],
+'xx' => 
+[
+'XX',
+'Other',
+],
+},
+'wspace' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'xidc' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+'xids' => 
+{
+'n' => 
+[
+'N',
+'No',
+'F',
+'False',
+],
+'y' => 
+[
+'Y',
+'Yes',
+'T',
+'True',
+],
+},
+);
+
+# Ordered (by code point ordinal) list of the ranges of code points whose
+# names are algorithmically determined.  Each range entry is an anonymous hash
+# of the start and end points and a template for the names within it.
+@Unicode::UCD::algorithmic_named_code_points = (
+
+{
+'high' => 19893,
+'low' => 13312,
+'name' => 'CJK UNIFIED IDEOGRAPH-<code point>',
+},
+{
+'high' => 40917,
+'low' => 19968,
+'name' => 'CJK UNIFIED IDEOGRAPH-<code point>',
+},
+{
+'high' => 55203,
+'low' => 44032,
+'name' => '<hangul syllable>',
+},
+{
+'high' => 64109,
+'low' => 63744,
+'name' => 'CJK COMPATIBILITY IDEOGRAPH-<code point>',
+},
+{
+'high' => 64217,
+'low' => 64112,
+'name' => 'CJK COMPATIBILITY IDEOGRAPH-<code point>',
+},
+{
+'high' => 173782,
+'low' => 131072,
+'name' => 'CJK UNIFIED IDEOGRAPH-<code point>',
+},
+{
+'high' => 177972,
+'low' => 173824,
+'name' => 'CJK UNIFIED IDEOGRAPH-<code point>',
+},
+{
+'high' => 178205,
+'low' => 177984,
+'name' => 'CJK UNIFIED IDEOGRAPH-<code point>',
+},
+{
+'high' => 183969,
+'low' => 178208,
+'name' => 'CJK UNIFIED IDEOGRAPH-<code point>',
+},
+{
+'high' => 195101,
+'low' => 194560,
+'name' => 'CJK COMPATIBILITY IDEOGRAPH-<code point>',
+},
+,
+);
+
+# The properties that as-is have two meanings, and which must be disambiguated
+%Unicode::UCD::ambiguous_names = (
+'cf' => 1,
+'isc' => 1,
+'lc' => 1,
+'sc' => 1,
+);
+
+# Keys are the prop-val combinations which are the default values for the
+# given property, expressed in standard loose form
+%Unicode::UCD::loose_defaults = (
+'age=na' => 1,
+'age=unassigned' => 1,
+'ahex=f' => 1,
+'ahex=false' => 1,
+'ahex=n' => 1,
+'ahex=no' => 1,
+'alpha=f' => 1,
+'alpha=false' => 1,
+'alpha=n' => 1,
+'alpha=no' => 1,
+'bc=l' => 1,
+'bc=lefttoright' => 1,
+'bidic=f' => 1,
+'bidic=false' => 1,
+'bidic=n' => 1,
+'bidic=no' => 1,
+'bidim=f' => 1,
+'bidim=false' => 1,
+'bidim=n' => 1,
+'bidim=no' => 1,
+'blk=nb' => 1,
+'blk=noblock' => 1,
+'bpt=n' => 1,
+'bpt=none' => 1,
+'cased=f' => 1,
+'cased=false' => 1,
+'cased=n' => 1,
+'cased=no' => 1,
+'ccc=0' => 1,
+'ccc=notreordered' => 1,
+'ccc=nr' => 1,
+'ce=f' => 1,
+'ce=false' => 1,
+'ce=n' => 1,
+'ce=no' => 1,
+'ci=f' => 1,
+'ci=false' => 1,
+'ci=n' => 1,
+'ci=no' => 1,
+'cn' => 1,
+'compex=f' => 1,
+'compex=false' => 1,
+'compex=n' => 1,
+'compex=no' => 1,
+'cwcf=f' => 1,
+'cwcf=false' => 1,
+'cwcf=n' => 1,
+'cwcf=no' => 1,
+'cwcm=f' => 1,
+'cwcm=false' => 1,
+'cwcm=n' => 1,
+'cwcm=no' => 1,
+'cwkcf=f' => 1,
+'cwkcf=false' => 1,
+'cwkcf=n' => 1,
+'cwkcf=no' => 1,
+'cwl=f' => 1,
+'cwl=false' => 1,
+'cwl=n' => 1,
+'cwl=no' => 1,
+'cwt=f' => 1,
+'cwt=false' => 1,
+'cwt=n' => 1,
+'cwt=no' => 1,
+'cwu=f' => 1,
+'cwu=false' => 1,
+'cwu=n' => 1,
+'cwu=no' => 1,
+'dash=f' => 1,
+'dash=false' => 1,
+'dash=n' => 1,
+'dash=no' => 1,
+'dep=f' => 1,
+'dep=false' => 1,
+'dep=n' => 1,
+'dep=no' => 1,
+'di=f' => 1,
+'di=false' => 1,
+'di=n' => 1,
+'di=no' => 1,
+'dia=f' => 1,
+'dia=false' => 1,
+'dia=n' => 1,
+'dia=no' => 1,
+'dt=none' => 1,
+'ea=n' => 1,
+'ea=neutral' => 1,
+'ext=f' => 1,
+'ext=false' => 1,
+'ext=n' => 1,
+'ext=no' => 1,
+'gc=cn' => 1,
+'gc=unassigned' => 1,
+'gcb=other' => 1,
+'gcb=xx' => 1,
+'grbase=f' => 1,
+'grbase=false' => 1,
+'grbase=n' => 1,
+'grbase=no' => 1,
+'grext=f' => 1,
+'grext=false' => 1,
+'grext=n' => 1,
+'grext=no' => 1,
+'hex=f' => 1,
+'hex=false' => 1,
+'hex=n' => 1,
+'hex=no' => 1,
+'hst=na' => 1,
+'hst=notapplicable' => 1,
+'hyphen=f' => 1,
+'hyphen=false' => 1,
+'hyphen=n' => 1,
+'hyphen=no' => 1,
+'idc=f' => 1,
+'idc=false' => 1,
+'idc=n' => 1,
+'idc=no' => 1,
+'ideo=f' => 1,
+'ideo=false' => 1,
+'ideo=n' => 1,
+'ideo=no' => 1,
+'ids=f' => 1,
+'ids=false' => 1,
+'ids=n' => 1,
+'ids=no' => 1,
+'idsb=f' => 1,
+'idsb=false' => 1,
+'idsb=n' => 1,
+'idsb=no' => 1,
+'idst=f' => 1,
+'idst=false' => 1,
+'idst=n' => 1,
+'idst=no' => 1,
+'in=unassigned' => 1,
+'innb' => 1,
+'innoblock' => 1,
+'inpc=na' => 1,
+'insc=other' => 1,
+'iscn' => 1,
+'isnb' => 1,
+'isnoblock' => 1,
+'isunassigned' => 1,
+'isunknown' => 1,
+'iszzzz' => 1,
+'jg=nojoininggroup' => 1,
+'joinc=f' => 1,
+'joinc=false' => 1,
+'joinc=n' => 1,
+'joinc=no' => 1,
+'jt=nonjoining' => 1,
+'jt=u' => 1,
+'lb=unknown' => 1,
+'lb=xx' => 1,
+'loe=f' => 1,
+'loe=false' => 1,
+'loe=n' => 1,
+'loe=no' => 1,
+'lower=f' => 1,
+'lower=false' => 1,
+'lower=n' => 1,
+'lower=no' => 1,
+'math=f' => 1,
+'math=false' => 1,
+'math=n' => 1,
+'math=no' => 1,
+'nb' => 1,
+'nchar=f' => 1,
+'nchar=false' => 1,
+'nchar=n' => 1,
+'nchar=no' => 1,
+'nfcqc=y' => 1,
+'nfcqc=yes' => 1,
+'nfdqc=y' => 1,
+'nfdqc=yes' => 1,
+'nfkcqc=y' => 1,
+'nfkcqc=yes' => 1,
+'nfkdqc=y' => 1,
+'nfkdqc=yes' => 1,
+'noblock' => 1,
+'nt=none' => 1,
+'nv=nan' => 1,
+'patsyn=f' => 1,
+'patsyn=false' => 1,
+'patsyn=n' => 1,
+'patsyn=no' => 1,
+'patws=f' => 1,
+'patws=false' => 1,
+'patws=n' => 1,
+'patws=no' => 1,
+'qmark=f' => 1,
+'qmark=false' => 1,
+'qmark=n' => 1,
+'qmark=no' => 1,
+'radical=f' => 1,
+'radical=false' => 1,
+'radical=n' => 1,
+'radical=no' => 1,
+'sb=other' => 1,
+'sb=xx' => 1,
+'sc=unknown' => 1,
+'sc=zzzz' => 1,
+'scx=unknown' => 1,
+'scx=zzzz' => 1,
+'sd=f' => 1,
+'sd=false' => 1,
+'sd=n' => 1,
+'sd=no' => 1,
+'sterm=f' => 1,
+'sterm=false' => 1,
+'sterm=n' => 1,
+'sterm=no' => 1,
+'term=f' => 1,
+'term=false' => 1,
+'term=n' => 1,
+'term=no' => 1,
+'uideo=f' => 1,
+'uideo=false' => 1,
+'uideo=n' => 1,
+'uideo=no' => 1,
+'unassigned' => 1,
+'unknown' => 1,
+'upper=f' => 1,
+'upper=false' => 1,
+'upper=n' => 1,
+'upper=no' => 1,
+'vs=f' => 1,
+'vs=false' => 1,
+'vs=n' => 1,
+'vs=no' => 1,
+'wb=other' => 1,
+'wb=xx' => 1,
+'wspace=f' => 1,
+'wspace=false' => 1,
+'wspace=n' => 1,
+'wspace=no' => 1,
+'xidc=f' => 1,
+'xidc=false' => 1,
+'xidc=n' => 1,
+'xidc=no' => 1,
+'xids=f' => 1,
+'xids=false' => 1,
+'xids=n' => 1,
+'xids=no' => 1,
+'zzzz' => 1,
+);
+
+# The properties that are combinations, in that they have both a map table and
+# a match table.  This is actually for UCD.t, so it knows how to test for
+# these.
+%Unicode::UCD::combination_property = (
+
+);
+
+# All combinations of names that are suppressed.
+# This is actually for UCD.t, so it knows which properties shouldn't have
+# entries.  If it got any bigger, would probably want to put it in its own
+# file to use memory only when it was needed, in testing.
+@Unicode::UCD::suppressed_properties = (
+
+'cjkaccountingnumeric',
+'cjkcompatibilityvariant',
+'cjkiicore',
+'cjkirggsource',
+'cjkirghsource',
+'cjkirgjsource',
+'cjkirgkpsource',
+'cjkirgksource',
+'cjkirgmsource',
+'cjkirgtsource',
+'cjkirgusource',
+'cjkirgvsource',
+'cjkothernumeric',
+'cjkprimarynumeric',
+'cjkrsunicode',
+'expandsonnfc',
+'expandsonnfd',
+'expandsonnfkc',
+'expandsonnfkd',
+'fcnfkc',
+'fcnfkcclosure',
+'graphemelink',
+'grlink',
+'jamoshortname',
+'jsn',
+'kaccountingnumeric',
+'kcompatibilityvariant',
+'kiicore',
+'kirggsource',
+'kirghsource',
+'kirgjsource',
+'kirgkpsource',
+'kirgksource',
+'kirgmsource',
+'kirgtsource',
+'kirgusource',
+'kirgvsource',
+'kothernumeric',
+'kprimarynumeric',
+'krsunicode',
+'oalpha',
+'odi',
+'ogrext',
+'oidc',
+'oids',
+'olower',
+'omath',
+'otheralphabetic',
+'otherdefaultignorablecodepoint',
+'othergraphemeextend',
+'otheridcontinue',
+'otheridstart',
+'otherlowercase',
+'othermath',
+'otheruppercase',
+'oupper',
+'sc=hrkt',
+'sc=katakanaorhiragana',
+'script=hrkt',
+'script=katakanaorhiragana',
+'scriptextensions=hrkt',
+'scriptextensions=katakanaorhiragana',
+'scx=hrkt',
+'scx=katakanaorhiragana',
+'unicoderadicalstroke',
+'urs',
+'xonfc',
+'xonfd',
+'xonfkc',
+'xonfkd',
+,
+);
+
+1;
diff --git a/lib/5.24.1/unicore/lib/Age/NA.pl b/lib/5.24.1/unicore/lib/Age/NA.pl
new file mode 100644
index 00000000..f39df9e4
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Age/NA.pl
@@ -0,0 +1,1259 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1245
+888
+890
+896
+900
+907
+908
+909
+910
+930
+931
+1328
+1329
+1367
+1369
+1376
+1377
+1416
+1417
+1419
+1421
+1424
+1425
+1480
+1488
+1515
+1520
+1525
+1536
+1565
+1566
+1806
+1807
+1867
+1869
+1970
+1984
+2043
+2048
+2094
+2096
+2111
+2112
+2140
+2142
+2143
+2208
+2229
+2275
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2501
+2503
+2505
+2507
+2511
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2556
+2561
+2564
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2649
+2653
+2654
+2655
+2662
+2678
+2689
+2692
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2788
+2790
+2802
+2809
+2810
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2876
+2885
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2916
+2918
+2936
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3024
+3025
+3031
+3032
+3046
+3067
+3072
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3130
+3133
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3160
+3163
+3168
+3172
+3174
+3184
+3192
+3200
+3201
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3260
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3300
+3302
+3312
+3313
+3315
+3329
+3332
+3333
+3341
+3342
+3345
+3346
+3387
+3389
+3397
+3398
+3401
+3402
+3407
+3415
+3416
+3423
+3428
+3430
+3446
+3449
+3456
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3558
+3568
+3570
+3573
+3585
+3643
+3647
+3676
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3792
+3802
+3804
+3808
+3840
+3912
+3913
+3949
+3953
+3992
+3993
+4029
+4030
+4045
+4046
+4059
+4096
+4294
+4295
+4296
+4301
+4302
+4304
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4957
+4989
+4992
+5018
+5024
+5110
+5112
+5118
+5120
+5789
+5792
+5881
+5888
+5901
+5902
+5909
+5920
+5943
+5952
+5972
+5984
+5997
+5998
+6001
+6002
+6004
+6016
+6110
+6112
+6122
+6128
+6138
+6144
+6159
+6160
+6170
+6176
+6264
+6272
+6315
+6320
+6390
+6400
+6431
+6432
+6444
+6448
+6460
+6464
+6465
+6468
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6608
+6619
+6622
+6684
+6686
+6751
+6752
+6781
+6783
+6794
+6800
+6810
+6816
+6830
+6832
+6847
+6912
+6988
+6992
+7037
+7040
+7156
+7164
+7224
+7227
+7242
+7245
+7296
+7360
+7368
+7376
+7415
+7416
+7418
+7424
+7670
+7676
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8191
+8192
+8293
+8294
+8306
+8308
+8335
+8336
+8349
+8352
+8383
+8400
+8433
+8448
+8588
+8592
+9211
+9216
+9255
+9280
+9291
+9312
+11124
+11126
+11158
+11160
+11194
+11197
+11209
+11210
+11218
+11244
+11248
+11264
+11311
+11312
+11359
+11360
+11508
+11513
+11558
+11559
+11560
+11565
+11566
+11568
+11624
+11631
+11633
+11647
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11744
+11843
+11904
+11930
+11931
+12020
+12032
+12246
+12272
+12284
+12288
+12352
+12353
+12439
+12441
+12544
+12549
+12590
+12593
+12687
+12688
+12731
+12736
+12772
+12784
+12831
+12832
+13055
+13056
+19894
+19904
+40918
+40960
+42125
+42128
+42183
+42192
+42540
+42560
+42744
+42752
+42926
+42928
+42936
+42999
+43052
+43056
+43066
+43072
+43128
+43136
+43205
+43214
+43226
+43232
+43262
+43264
+43348
+43359
+43389
+43392
+43470
+43471
+43482
+43486
+43519
+43520
+43575
+43584
+43598
+43600
+43610
+43612
+43715
+43739
+43767
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43824
+43878
+43888
+44014
+44016
+44026
+44032
+55204
+55216
+55239
+55243
+55292
+55296
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64450
+64467
+64832
+64848
+64912
+64914
+64968
+64976
+65022
+65024
+65050
+65056
+65107
+65108
+65127
+65128
+65132
+65136
+65141
+65142
+65277
+65279
+65280
+65281
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+65529
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65792
+65795
+65799
+65844
+65847
+65933
+65936
+65948
+65952
+65953
+66000
+66046
+66176
+66205
+66208
+66257
+66272
+66300
+66304
+66340
+66352
+66379
+66384
+66427
+66432
+66462
+66463
+66500
+66504
+66518
+66560
+66718
+66720
+66730
+66816
+66856
+66864
+66916
+66927
+66928
+67072
+67383
+67392
+67414
+67424
+67432
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67671
+67743
+67751
+67760
+67808
+67827
+67828
+67830
+67835
+67868
+67871
+67898
+67903
+67904
+67968
+68024
+68028
+68048
+68050
+68100
+68101
+68103
+68108
+68116
+68117
+68120
+68121
+68148
+68152
+68155
+68159
+68168
+68176
+68185
+68192
+68256
+68288
+68327
+68331
+68343
+68352
+68406
+68409
+68438
+68440
+68467
+68472
+68498
+68505
+68509
+68521
+68528
+68608
+68681
+68736
+68787
+68800
+68851
+68858
+68864
+69216
+69247
+69632
+69710
+69714
+69744
+69759
+69826
+69840
+69865
+69872
+69882
+69888
+69941
+69942
+69956
+69968
+70007
+70016
+70094
+70096
+70112
+70113
+70133
+70144
+70162
+70163
+70206
+70272
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70314
+70320
+70379
+70384
+70394
+70400
+70404
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70460
+70469
+70471
+70473
+70475
+70478
+70480
+70481
+70487
+70488
+70493
+70500
+70502
+70509
+70512
+70517
+70784
+70856
+70864
+70874
+71040
+71094
+71096
+71134
+71168
+71237
+71248
+71258
+71296
+71352
+71360
+71370
+71424
+71450
+71453
+71468
+71472
+71488
+71840
+71923
+71935
+71936
+72384
+72441
+73728
+74650
+74752
+74863
+74864
+74869
+74880
+75076
+77824
+78895
+82944
+83527
+92160
+92729
+92736
+92767
+92768
+92778
+92782
+92784
+92880
+92910
+92912
+92918
+92928
+92998
+93008
+93018
+93019
+93026
+93027
+93048
+93053
+93072
+93952
+94021
+94032
+94079
+94095
+94112
+110592
+110594
+113664
+113771
+113776
+113789
+113792
+113801
+113808
+113818
+113820
+113828
+118784
+119030
+119040
+119079
+119081
+119273
+119296
+119366
+119552
+119639
+119648
+119666
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120780
+120782
+121484
+121499
+121504
+121505
+121520
+124928
+125125
+125127
+125143
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+126704
+126706
+126976
+127020
+127024
+127124
+127136
+127151
+127153
+127168
+127169
+127184
+127185
+127222
+127232
+127245
+127248
+127279
+127280
+127340
+127344
+127387
+127462
+127491
+127504
+127547
+127552
+127561
+127568
+127570
+127744
+128378
+128379
+128420
+128421
+128721
+128736
+128749
+128752
+128756
+128768
+128884
+128896
+128981
+129024
+129036
+129040
+129096
+129104
+129114
+129120
+129160
+129168
+129198
+129296
+129305
+129408
+129413
+129472
+129473
+131070
+173783
+173824
+177973
+177984
+178206
+178208
+183970
+194560
+195102
+196606
+196608
+262142
+262144
+327678
+327680
+393214
+393216
+458750
+458752
+524286
+524288
+589822
+589824
+655358
+655360
+720894
+720896
+786430
+786432
+851966
+851968
+917502
+917504
+917505
+917506
+917536
+917632
+917760
+918000
+983038
+1114112
+END
diff --git a/lib/5.24.1/unicore/lib/Age/V11.pl b/lib/5.24.1/unicore/lib/Age/V11.pl
new file mode 100644
index 00000000..330e6003
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Age/V11.pl
@@ -0,0 +1,590 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V576
+0
+502
+506
+536
+592
+681
+688
+735
+736
+746
+768
+838
+864
+866
+884
+886
+890
+891
+894
+895
+900
+907
+908
+909
+910
+930
+931
+975
+976
+983
+986
+987
+988
+989
+990
+991
+992
+993
+994
+1012
+1025
+1037
+1038
+1104
+1105
+1117
+1118
+1159
+1168
+1221
+1223
+1225
+1227
+1229
+1232
+1260
+1262
+1270
+1272
+1274
+1329
+1367
+1369
+1376
+1377
+1416
+1417
+1418
+1456
+1466
+1467
+1476
+1488
+1515
+1520
+1525
+1548
+1549
+1563
+1564
+1567
+1568
+1569
+1595
+1600
+1619
+1632
+1646
+1648
+1720
+1722
+1727
+1728
+1743
+1744
+1774
+1776
+1786
+2305
+2308
+2309
+2362
+2364
+2382
+2384
+2389
+2392
+2417
+2433
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2493
+2494
+2501
+2503
+2505
+2507
+2510
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2555
+2562
+2563
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2649
+2653
+2654
+2655
+2662
+2677
+2689
+2692
+2693
+2700
+2701
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2785
+2790
+2800
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2870
+2874
+2876
+2884
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2914
+2918
+2929
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+2998
+2999
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3031
+3032
+3047
+3059
+3073
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3124
+3125
+3130
+3134
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3168
+3170
+3174
+3184
+3202
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3262
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3298
+3302
+3312
+3330
+3332
+3333
+3341
+3342
+3345
+3346
+3369
+3370
+3386
+3390
+3396
+3398
+3401
+3402
+3406
+3415
+3416
+3424
+3426
+3430
+3440
+3585
+3643
+3647
+3676
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3792
+3802
+3804
+3806
+4256
+4294
+4304
+4343
+4347
+4348
+4352
+4442
+4447
+4515
+4520
+4602
+7680
+7835
+7840
+7930
+7936
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8191
+8192
+8239
+8240
+8263
+8298
+8305
+8308
+8335
+8352
+8363
+8400
+8418
+8448
+8505
+8531
+8579
+8592
+8683
+8704
+8946
+8960
+8961
+8962
+9083
+9216
+9253
+9280
+9291
+9312
+9451
+9472
+9622
+9632
+9712
+9728
+9748
+9754
+9840
+9985
+9989
+9990
+9994
+9996
+10024
+10025
+10060
+10061
+10062
+10063
+10067
+10070
+10071
+10072
+10079
+10081
+10088
+10102
+10133
+10136
+10160
+10161
+10175
+12288
+12344
+12351
+12352
+12353
+12437
+12441
+12447
+12449
+12543
+12549
+12589
+12593
+12687
+12688
+12704
+12800
+12829
+12832
+12868
+12896
+12924
+12927
+12977
+12992
+13004
+13008
+13055
+13056
+13175
+13179
+13278
+13280
+13311
+19968
+40870
+57344
+64046
+64256
+64263
+64275
+64280
+64286
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64434
+64467
+64832
+64848
+64912
+64914
+64968
+65008
+65020
+65056
+65060
+65072
+65093
+65097
+65107
+65108
+65127
+65128
+65132
+65136
+65139
+65140
+65141
+65142
+65277
+65279
+65280
+65281
+65375
+65377
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+65533
+65536
+END
diff --git a/lib/5.24.1/unicore/lib/Age/V20.pl b/lib/5.24.1/unicore/lib/Age/V20.pl
new file mode 100644
index 00000000..fc48f876
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Age/V20.pl
@@ -0,0 +1,72 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V58
+1425
+1442
+1443
+1456
+1476
+1477
+3840
+3912
+3913
+3946
+3953
+3980
+3984
+3990
+3991
+3992
+3993
+4014
+4017
+4024
+4025
+4026
+7835
+7836
+8363
+8364
+44032
+55204
+55296
+57344
+131070
+131072
+196606
+196608
+262142
+262144
+327678
+327680
+393214
+393216
+458750
+458752
+524286
+524288
+589822
+589824
+655358
+655360
+720894
+720896
+786430
+786432
+851966
+851968
+917502
+917504
+983038
+1114112
+END
diff --git a/lib/5.24.1/unicore/lib/Age/V30.pl b/lib/5.24.1/unicore/lib/Age/V30.pl
new file mode 100644
index 00000000..cb1cbce5
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Age/V30.pl
@@ -0,0 +1,256 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V242
+502
+506
+536
+544
+546
+564
+681
+686
+735
+736
+746
+751
+838
+847
+866
+867
+983
+984
+987
+988
+989
+990
+991
+992
+993
+994
+1024
+1025
+1037
+1038
+1104
+1105
+1117
+1118
+1160
+1162
+1164
+1168
+1260
+1262
+1418
+1419
+1619
+1622
+1720
+1722
+1727
+1728
+1743
+1744
+1786
+1791
+1792
+1806
+1807
+1837
+1840
+1867
+1920
+1969
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3570
+3573
+3946
+3947
+3990
+3991
+4014
+4017
+4024
+4025
+4026
+4029
+4030
+4045
+4047
+4048
+4096
+4130
+4131
+4136
+4137
+4139
+4140
+4147
+4150
+4154
+4160
+4186
+4608
+4615
+4616
+4679
+4680
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4743
+4744
+4745
+4746
+4750
+4752
+4783
+4784
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4815
+4816
+4823
+4824
+4847
+4848
+4879
+4880
+4881
+4882
+4886
+4888
+4895
+4896
+4935
+4936
+4955
+4961
+4989
+5024
+5109
+5121
+5751
+5760
+5789
+5792
+5873
+6016
+6109
+6112
+6122
+6144
+6159
+6160
+6170
+6176
+6264
+6272
+6314
+8239
+8240
+8264
+8270
+8365
+8368
+8418
+8420
+8505
+8507
+8579
+8580
+8683
+8692
+8961
+8962
+9083
+9084
+9085
+9115
+9253
+9255
+9712
+9720
+9753
+9754
+9840
+9842
+10240
+10496
+11904
+11930
+11931
+12020
+12032
+12246
+12272
+12284
+12344
+12347
+12350
+12351
+12704
+12728
+13312
+19894
+40960
+42125
+42128
+42146
+42148
+42164
+42165
+42177
+42178
+42181
+42182
+42183
+64285
+64286
+65529
+65532
+END
diff --git a/lib/5.24.1/unicore/lib/Age/V31.pl b/lib/5.24.1/unicore/lib/Age/V31.pl
new file mode 100644
index 00000000..b23a2b42
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Age/V31.pl
@@ -0,0 +1,86 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V72
+1012
+1014
+64976
+65008
+66304
+66335
+66336
+66340
+66352
+66379
+66560
+66598
+66600
+66638
+118784
+119030
+119040
+119079
+119082
+119262
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120001
+120002
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120484
+120488
+120778
+120782
+120832
+131072
+173783
+194560
+195102
+917505
+917506
+917536
+917632
+END
diff --git a/lib/5.24.1/unicore/lib/Age/V32.pl b/lib/5.24.1/unicore/lib/Age/V32.pl
new file mode 100644
index 00000000..50fdb807
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Age/V32.pl
@@ -0,0 +1,132 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V118
+544
+545
+847
+848
+867
+880
+984
+986
+1014
+1015
+1162
+1164
+1221
+1223
+1225
+1227
+1229
+1231
+1280
+1296
+1646
+1648
+1969
+1970
+4343
+4345
+5888
+5901
+5902
+5909
+5920
+5943
+5952
+5972
+5984
+5997
+5998
+6001
+6002
+6004
+8263
+8264
+8270
+8275
+8279
+8280
+8287
+8292
+8305
+8306
+8368
+8370
+8420
+8427
+8509
+8524
+8692
+8704
+8946
+8960
+9084
+9085
+9115
+9167
+9451
+9471
+9622
+9632
+9720
+9728
+9750
+9752
+9842
+9854
+9856
+9866
+10088
+10102
+10192
+10220
+10224
+10240
+10496
+11008
+12347
+12350
+12437
+12439
+12447
+12449
+12543
+12544
+12784
+12800
+12881
+12896
+12977
+12992
+42146
+42148
+42164
+42165
+42177
+42178
+42181
+42182
+64048
+64107
+65020
+65021
+65024
+65040
+65093
+65095
+65139
+65140
+65375
+65377
+END
diff --git a/lib/5.24.1/unicore/lib/Age/V40.pl b/lib/5.24.1/unicore/lib/Age/V40.pl
new file mode 100644
index 00000000..ebe95ad5
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Age/V40.pl
@@ -0,0 +1,168 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V154
+545
+546
+564
+567
+686
+688
+751
+768
+848
+856
+861
+864
+1015
+1020
+1536
+1540
+1549
+1558
+1622
+1625
+1774
+1776
+1791
+1792
+1837
+1840
+1869
+1872
+2308
+2309
+2493
+2494
+2561
+2562
+2563
+2564
+2700
+2701
+2785
+2788
+2801
+2802
+2869
+2870
+2929
+2930
+3059
+3067
+3260
+3262
+6109
+6110
+6128
+6138
+6400
+6429
+6432
+6444
+6448
+6460
+6464
+6465
+6468
+6510
+6512
+6517
+6624
+6656
+7424
+7532
+8275
+8277
+8507
+8508
+9167
+9169
+9471
+9472
+9748
+9750
+9866
+9874
+9888
+9890
+11008
+11022
+12829
+12831
+12880
+12881
+12924
+12926
+13004
+13008
+13175
+13179
+13278
+13280
+13311
+13312
+19904
+19968
+65021
+65022
+65095
+65097
+65536
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65792
+65795
+65799
+65844
+65847
+65856
+66432
+66462
+66463
+66464
+66598
+66600
+66638
+66718
+66720
+66730
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67648
+119552
+119639
+120001
+120002
+917760
+918000
+END
diff --git a/lib/5.24.1/unicore/lib/Age/V41.pl b/lib/5.24.1/unicore/lib/Age/V41.pl
new file mode 100644
index 00000000..704e7663
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Age/V41.pl
@@ -0,0 +1,186 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V172
+567
+578
+856
+861
+1020
+1024
+1270
+1272
+1442
+1443
+1477
+1480
+1547
+1548
+1566
+1567
+1625
+1631
+1872
+1902
+2429
+2430
+2510
+2511
+2998
+2999
+3046
+3047
+4048
+4050
+4345
+4347
+4348
+4349
+4615
+4616
+4679
+4680
+4743
+4744
+4783
+4784
+4815
+4816
+4847
+4848
+4879
+4880
+4895
+4896
+4935
+4936
+4959
+4961
+4992
+5018
+6528
+6570
+6576
+6602
+6608
+6618
+6622
+6624
+6656
+6684
+6686
+6688
+7532
+7620
+8277
+8279
+8280
+8287
+8336
+8341
+8370
+8374
+8427
+8428
+8508
+8509
+8524
+8525
+9169
+9180
+9752
+9753
+9854
+9856
+9874
+9885
+9890
+9906
+10176
+10183
+11022
+11028
+11264
+11311
+11312
+11359
+11392
+11499
+11513
+11558
+11568
+11622
+11631
+11632
+11648
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11776
+11800
+11804
+11806
+12736
+12752
+12926
+12927
+40870
+40892
+42752
+42775
+43008
+43052
+64112
+64218
+65040
+65050
+65856
+65931
+66464
+66500
+66504
+66518
+68096
+68100
+68101
+68103
+68108
+68116
+68117
+68120
+68121
+68148
+68152
+68155
+68159
+68168
+68176
+68185
+119296
+119366
+120484
+120486
+END
diff --git a/lib/5.24.1/unicore/lib/Age/V50.pl b/lib/5.24.1/unicore/lib/Age/V50.pl
new file mode 100644
index 00000000..51258e9a
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Age/V50.pl
@@ -0,0 +1,84 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V70
+578
+592
+891
+894
+1231
+1232
+1274
+1280
+1296
+1300
+1466
+1467
+1984
+2043
+2427
+2429
+2430
+2432
+3298
+3300
+3313
+3315
+6912
+6988
+6992
+7037
+7620
+7627
+7678
+7680
+8428
+8432
+8525
+8527
+8580
+8581
+9180
+9192
+9906
+9907
+10183
+10187
+11028
+11035
+11040
+11044
+11360
+11373
+11380
+11384
+42775
+42779
+42784
+42786
+43072
+43128
+67840
+67866
+67871
+67872
+73728
+74607
+74752
+74851
+74864
+74868
+119648
+119666
+120778
+120780
+END
diff --git a/lib/5.24.1/unicore/lib/Age/V51.pl b/lib/5.24.1/unicore/lib/Age/V51.pl
new file mode 100644
index 00000000..255058c5
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Age/V51.pl
@@ -0,0 +1,192 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V178
+880
+884
+886
+888
+975
+976
+1159
+1160
+1300
+1316
+1542
+1547
+1558
+1563
+1595
+1600
+1902
+1920
+2417
+2419
+2641
+2642
+2677
+2678
+2884
+2885
+2914
+2916
+3024
+3025
+3133
+3134
+3160
+3162
+3170
+3172
+3192
+3200
+3389
+3390
+3396
+3397
+3426
+3428
+3440
+3446
+3449
+3456
+3947
+3949
+4046
+4047
+4050
+4053
+4130
+4131
+4136
+4137
+4139
+4140
+4147
+4150
+4154
+4160
+4186
+4250
+4254
+4256
+6314
+6315
+7040
+7083
+7086
+7098
+7168
+7224
+7227
+7242
+7245
+7296
+7627
+7655
+7836
+7840
+7930
+7936
+8292
+8293
+8432
+8433
+8527
+8528
+8581
+8585
+9885
+9886
+9907
+9917
+9920
+9924
+10188
+10189
+10220
+10224
+11035
+11040
+11044
+11085
+11088
+11093
+11373
+11376
+11377
+11380
+11384
+11390
+11744
+11776
+11800
+11804
+11806
+11825
+12589
+12590
+12752
+12772
+40892
+40900
+42240
+42540
+42560
+42592
+42594
+42612
+42620
+42648
+42779
+42784
+42786
+42893
+43003
+43008
+43136
+43205
+43214
+43226
+43264
+43348
+43359
+43360
+43520
+43575
+43584
+43598
+43600
+43610
+43612
+43616
+65060
+65063
+65936
+65948
+66000
+66046
+66176
+66205
+66208
+66257
+67872
+67898
+67903
+67904
+119081
+119082
+126976
+127020
+127024
+127124
+END
diff --git a/lib/5.24.1/unicore/lib/Age/V52.pl b/lib/5.24.1/unicore/lib/Age/V52.pl
new file mode 100644
index 00000000..a0a2ef10
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Age/V52.pl
@@ -0,0 +1,194 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V180
+1316
+1318
+2048
+2094
+2096
+2111
+2304
+2305
+2382
+2383
+2389
+2390
+2425
+2427
+2555
+2556
+4053
+4057
+4250
+4254
+4442
+4447
+4515
+4520
+4602
+4608
+5120
+5121
+5751
+5760
+6320
+6390
+6570
+6572
+6618
+6619
+6688
+6751
+6752
+6781
+6783
+6794
+6800
+6810
+6816
+6830
+7376
+7411
+7677
+7678
+8374
+8377
+8528
+8531
+8585
+8586
+9192
+9193
+9886
+9888
+9917
+9920
+9924
+9934
+9935
+9954
+9955
+9956
+9960
+9984
+10071
+10072
+11093
+11098
+11376
+11377
+11390
+11392
+11499
+11506
+11825
+11826
+12868
+12880
+40900
+40908
+42192
+42240
+42656
+42744
+43056
+43066
+43232
+43260
+43360
+43389
+43392
+43470
+43471
+43482
+43486
+43488
+43616
+43644
+43648
+43715
+43739
+43744
+43968
+44014
+44016
+44026
+55216
+55239
+55243
+55292
+64107
+64110
+67648
+67670
+67671
+67680
+67866
+67868
+68192
+68224
+68352
+68406
+68409
+68438
+68440
+68467
+68472
+68480
+68608
+68681
+69216
+69247
+69760
+69826
+77824
+78895
+127232
+127243
+127248
+127279
+127281
+127282
+127293
+127294
+127295
+127296
+127298
+127299
+127302
+127303
+127306
+127311
+127319
+127320
+127327
+127328
+127353
+127354
+127355
+127357
+127359
+127360
+127370
+127374
+127376
+127377
+127488
+127489
+127504
+127538
+127552
+127561
+173824
+177973
+END
diff --git a/lib/5.24.1/unicore/lib/Age/V60.pl b/lib/5.24.1/unicore/lib/Age/V60.pl
new file mode 100644
index 00000000..f90e8b6f
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Age/V60.pl
@@ -0,0 +1,226 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V212
+1318
+1320
+1568
+1569
+1631
+1632
+2112
+2140
+2142
+2143
+2362
+2364
+2383
+2384
+2390
+2392
+2419
+2424
+2930
+2936
+3369
+3370
+3386
+3387
+3406
+3407
+3980
+3984
+4057
+4059
+4957
+4959
+7104
+7156
+7164
+7168
+7676
+7677
+8341
+8349
+8377
+8378
+9193
+9204
+9934
+9935
+9954
+9955
+9956
+9960
+9989
+9990
+9994
+9996
+10024
+10025
+10060
+10061
+10062
+10063
+10067
+10070
+10079
+10081
+10133
+10136
+10160
+10161
+10175
+10176
+10190
+10192
+11632
+11633
+11647
+11648
+12728
+12731
+42592
+42594
+42893
+42895
+42896
+42898
+42912
+42922
+43002
+43003
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+64434
+64450
+69632
+69710
+69714
+69744
+92160
+92729
+110592
+110594
+127136
+127151
+127153
+127167
+127169
+127184
+127185
+127200
+127280
+127281
+127282
+127293
+127294
+127295
+127296
+127298
+127299
+127302
+127303
+127306
+127311
+127319
+127320
+127327
+127328
+127338
+127344
+127353
+127354
+127355
+127357
+127359
+127360
+127370
+127374
+127376
+127377
+127387
+127462
+127488
+127489
+127491
+127538
+127547
+127568
+127570
+127744
+127777
+127792
+127798
+127799
+127869
+127872
+127892
+127904
+127941
+127942
+127947
+127968
+127985
+128000
+128063
+128064
+128065
+128066
+128248
+128249
+128253
+128256
+128318
+128336
+128360
+128507
+128512
+128513
+128529
+128530
+128533
+128534
+128535
+128536
+128537
+128538
+128539
+128540
+128543
+128544
+128550
+128552
+128556
+128557
+128558
+128560
+128564
+128565
+128577
+128581
+128592
+128640
+128710
+128768
+128884
+177984
+178206
+END
diff --git a/lib/5.24.1/unicore/lib/Age/V61.pl b/lib/5.24.1/unicore/lib/Age/V61.pl
new file mode 100644
index 00000000..ffc8de50
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Age/V61.pl
@@ -0,0 +1,192 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V178
+1423
+1424
+1540
+1541
+2208
+2209
+2210
+2221
+2276
+2303
+2800
+2801
+3806
+3808
+4295
+4296
+4301
+4302
+4349
+4352
+7083
+7086
+7098
+7104
+7360
+7368
+7411
+7415
+10187
+10188
+10189
+10190
+11506
+11508
+11559
+11560
+11565
+11566
+11622
+11624
+11826
+11836
+40908
+40909
+42612
+42620
+42655
+42656
+42898
+42900
+42922
+42923
+43000
+43002
+43744
+43767
+64046
+64048
+67968
+68024
+68030
+68032
+69840
+69865
+69872
+69882
+69888
+69941
+69942
+69956
+70016
+70089
+70096
+70106
+71296
+71352
+71360
+71370
+93952
+94021
+94032
+94079
+94095
+94112
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+126704
+126706
+127338
+127340
+128320
+128324
+128512
+128513
+128529
+128530
+128533
+128534
+128535
+128536
+128537
+128538
+128539
+128540
+128543
+128544
+128550
+128552
+128556
+128557
+128558
+128560
+128564
+128565
+END
diff --git a/lib/5.24.1/unicore/lib/Age/V70.pl b/lib/5.24.1/unicore/lib/Age/V70.pl
new file mode 100644
index 00000000..7e61780e
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Age/V70.pl
@@ -0,0 +1,296 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V282
+895
+896
+1320
+1328
+1421
+1423
+1541
+1542
+2209
+2210
+2221
+2227
+2303
+2304
+2424
+2425
+2432
+2433
+3072
+3073
+3124
+3125
+3201
+3202
+3329
+3330
+3558
+3568
+5873
+5881
+6429
+6431
+6832
+6847
+7416
+7418
+7655
+7670
+8379
+8382
+9204
+9211
+9984
+9985
+11085
+11088
+11098
+11124
+11126
+11158
+11160
+11194
+11197
+11209
+11210
+11218
+11836
+11843
+42648
+42654
+42900
+42912
+42923
+42926
+42928
+42930
+42999
+43000
+43488
+43519
+43644
+43648
+43824
+43872
+43876
+43878
+65063
+65070
+65931
+65933
+65952
+65953
+66272
+66300
+66335
+66336
+66384
+66427
+66816
+66856
+66864
+66916
+66927
+66928
+67072
+67383
+67392
+67414
+67424
+67432
+67680
+67743
+67751
+67760
+68224
+68256
+68288
+68327
+68331
+68343
+68480
+68498
+68505
+68509
+68521
+68528
+69759
+69760
+69968
+70007
+70093
+70094
+70106
+70107
+70113
+70133
+70144
+70162
+70163
+70206
+70320
+70379
+70384
+70394
+70401
+70404
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70460
+70469
+70471
+70473
+70475
+70478
+70487
+70488
+70493
+70500
+70502
+70509
+70512
+70517
+70784
+70856
+70864
+70874
+71040
+71094
+71096
+71114
+71168
+71237
+71248
+71258
+71840
+71923
+71935
+71936
+72384
+72441
+74607
+74649
+74851
+74863
+74868
+74869
+92736
+92767
+92768
+92778
+92782
+92784
+92880
+92910
+92912
+92918
+92928
+92998
+93008
+93018
+93019
+93026
+93027
+93048
+93053
+93072
+113664
+113771
+113776
+113789
+113792
+113801
+113808
+113818
+113820
+113828
+124928
+125125
+125127
+125143
+127167
+127168
+127200
+127222
+127243
+127245
+127777
+127789
+127798
+127799
+127869
+127870
+127892
+127904
+127941
+127942
+127947
+127951
+127956
+127968
+127985
+127992
+128063
+128064
+128065
+128066
+128248
+128249
+128253
+128255
+128318
+128320
+128324
+128331
+128360
+128378
+128379
+128420
+128421
+128507
+128577
+128579
+128592
+128640
+128710
+128720
+128736
+128749
+128752
+128756
+128896
+128981
+129024
+129036
+129040
+129096
+129104
+129114
+129120
+129160
+129168
+129198
+END
diff --git a/lib/5.24.1/unicore/lib/Age/V80.pl b/lib/5.24.1/unicore/lib/Age/V80.pl
new file mode 100644
index 00000000..54a0feab
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Age/V80.pl
@@ -0,0 +1,132 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V118
+2227
+2229
+2275
+2276
+2809
+2810
+3162
+3163
+3423
+3424
+5109
+5110
+5112
+5118
+8382
+8383
+8586
+8588
+11244
+11248
+40909
+40918
+42654
+42655
+42895
+42896
+42930
+42936
+43260
+43262
+43872
+43876
+43888
+43968
+65070
+65072
+67808
+67827
+67828
+67830
+67835
+67840
+68028
+68030
+68032
+68048
+68050
+68096
+68736
+68787
+68800
+68851
+68858
+68864
+70089
+70093
+70107
+70112
+70272
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70314
+70400
+70401
+70480
+70481
+71114
+71134
+71424
+71450
+71453
+71468
+71472
+71488
+74649
+74650
+74880
+75076
+82944
+83527
+119262
+119273
+120832
+121484
+121499
+121504
+121505
+121520
+127789
+127792
+127870
+127872
+127951
+127956
+127992
+128000
+128255
+128256
+128331
+128336
+128579
+128581
+128720
+128721
+129296
+129305
+129408
+129413
+129472
+129473
+178208
+183970
+END
diff --git a/lib/5.24.1/unicore/lib/Alpha/Y.pl b/lib/5.24.1/unicore/lib/Alpha/Y.pl
new file mode 100644
index 00000000..6eef74e6
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Alpha/Y.pl
@@ -0,0 +1,1248 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1234
+65
+91
+97
+123
+170
+171
+181
+182
+186
+187
+192
+215
+216
+247
+248
+706
+710
+722
+736
+741
+748
+749
+750
+751
+837
+838
+880
+885
+886
+888
+890
+894
+895
+896
+902
+903
+904
+907
+908
+909
+910
+930
+931
+1014
+1015
+1154
+1162
+1328
+1329
+1367
+1369
+1370
+1377
+1416
+1456
+1470
+1471
+1472
+1473
+1475
+1476
+1478
+1479
+1480
+1488
+1515
+1520
+1523
+1552
+1563
+1568
+1624
+1625
+1632
+1646
+1748
+1749
+1757
+1761
+1769
+1773
+1776
+1786
+1789
+1791
+1792
+1808
+1856
+1869
+1970
+1994
+2027
+2036
+2038
+2042
+2043
+2048
+2072
+2074
+2093
+2112
+2137
+2208
+2229
+2275
+2282
+2288
+2364
+2365
+2381
+2382
+2385
+2389
+2404
+2417
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2493
+2501
+2503
+2505
+2507
+2509
+2510
+2511
+2519
+2520
+2524
+2526
+2527
+2532
+2544
+2546
+2561
+2564
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2622
+2627
+2631
+2633
+2635
+2637
+2641
+2642
+2649
+2653
+2654
+2655
+2672
+2678
+2689
+2692
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2749
+2758
+2759
+2762
+2763
+2765
+2768
+2769
+2784
+2788
+2809
+2810
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2877
+2885
+2887
+2889
+2891
+2893
+2902
+2904
+2908
+2910
+2911
+2916
+2929
+2930
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3006
+3011
+3014
+3017
+3018
+3021
+3024
+3025
+3031
+3032
+3072
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3130
+3133
+3141
+3142
+3145
+3146
+3149
+3157
+3159
+3160
+3163
+3168
+3172
+3201
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3261
+3269
+3270
+3273
+3274
+3277
+3285
+3287
+3294
+3295
+3296
+3300
+3313
+3315
+3329
+3332
+3333
+3341
+3342
+3345
+3346
+3387
+3389
+3397
+3398
+3401
+3402
+3405
+3406
+3407
+3415
+3416
+3423
+3428
+3450
+3456
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3535
+3541
+3542
+3543
+3544
+3552
+3570
+3572
+3585
+3643
+3648
+3655
+3661
+3662
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3789
+3790
+3804
+3808
+3840
+3841
+3904
+3912
+3913
+3949
+3953
+3970
+3976
+3992
+3993
+4029
+4096
+4151
+4152
+4153
+4155
+4160
+4176
+4195
+4197
+4201
+4206
+4231
+4238
+4239
+4252
+4254
+4256
+4294
+4295
+4296
+4301
+4302
+4304
+4347
+4348
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4959
+4960
+4992
+5008
+5024
+5110
+5112
+5118
+5121
+5741
+5743
+5760
+5761
+5787
+5792
+5867
+5870
+5881
+5888
+5901
+5902
+5908
+5920
+5940
+5952
+5972
+5984
+5997
+5998
+6001
+6002
+6004
+6016
+6068
+6070
+6089
+6103
+6104
+6108
+6109
+6176
+6264
+6272
+6315
+6320
+6390
+6400
+6431
+6432
+6444
+6448
+6457
+6480
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6656
+6684
+6688
+6751
+6753
+6773
+6823
+6824
+6912
+6964
+6965
+6980
+6981
+6988
+7040
+7082
+7084
+7088
+7098
+7142
+7143
+7154
+7168
+7222
+7245
+7248
+7258
+7294
+7401
+7405
+7406
+7412
+7413
+7415
+7424
+7616
+7655
+7669
+7680
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8125
+8126
+8127
+8130
+8133
+8134
+8141
+8144
+8148
+8150
+8156
+8160
+8173
+8178
+8181
+8182
+8189
+8305
+8306
+8319
+8320
+8336
+8349
+8450
+8451
+8455
+8456
+8458
+8468
+8469
+8470
+8473
+8478
+8484
+8485
+8486
+8487
+8488
+8489
+8490
+8494
+8495
+8506
+8508
+8512
+8517
+8522
+8526
+8527
+8544
+8585
+9398
+9450
+11264
+11311
+11312
+11359
+11360
+11493
+11499
+11503
+11506
+11508
+11520
+11558
+11559
+11560
+11565
+11566
+11568
+11624
+11631
+11632
+11648
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11744
+11776
+11823
+11824
+12293
+12296
+12321
+12330
+12337
+12342
+12344
+12349
+12353
+12439
+12445
+12448
+12449
+12539
+12540
+12544
+12549
+12590
+12593
+12687
+12704
+12731
+12784
+12800
+13312
+19894
+19968
+40918
+40960
+42125
+42192
+42238
+42240
+42509
+42512
+42528
+42538
+42540
+42560
+42607
+42612
+42620
+42623
+42736
+42775
+42784
+42786
+42889
+42891
+42926
+42928
+42936
+42999
+43010
+43011
+43014
+43015
+43019
+43020
+43048
+43072
+43124
+43136
+43204
+43250
+43256
+43259
+43260
+43261
+43262
+43274
+43307
+43312
+43347
+43360
+43389
+43392
+43443
+43444
+43456
+43471
+43472
+43488
+43493
+43494
+43504
+43514
+43519
+43520
+43575
+43584
+43598
+43616
+43639
+43642
+43643
+43646
+43711
+43712
+43713
+43714
+43715
+43739
+43742
+43744
+43760
+43762
+43766
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43824
+43867
+43868
+43878
+43888
+44011
+44032
+55204
+55216
+55239
+55243
+55292
+63744
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64297
+64298
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64434
+64467
+64830
+64848
+64912
+64914
+64968
+65008
+65020
+65136
+65141
+65142
+65277
+65313
+65339
+65345
+65371
+65382
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65536
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65856
+65909
+66176
+66205
+66208
+66257
+66304
+66336
+66352
+66379
+66384
+66427
+66432
+66462
+66464
+66500
+66504
+66512
+66513
+66518
+66560
+66718
+66816
+66856
+66864
+66916
+67072
+67383
+67392
+67414
+67424
+67432
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67680
+67703
+67712
+67743
+67808
+67827
+67828
+67830
+67840
+67862
+67872
+67898
+67968
+68024
+68030
+68032
+68096
+68100
+68101
+68103
+68108
+68116
+68117
+68120
+68121
+68148
+68192
+68221
+68224
+68253
+68288
+68296
+68297
+68325
+68352
+68406
+68416
+68438
+68448
+68467
+68480
+68498
+68608
+68681
+68736
+68787
+68800
+68851
+69632
+69702
+69762
+69817
+69840
+69865
+69888
+69939
+69968
+70003
+70006
+70007
+70016
+70080
+70081
+70085
+70106
+70107
+70108
+70109
+70144
+70162
+70163
+70197
+70199
+70200
+70272
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70313
+70320
+70377
+70400
+70404
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70461
+70469
+70471
+70473
+70475
+70477
+70480
+70481
+70487
+70488
+70493
+70500
+70784
+70850
+70852
+70854
+70855
+70856
+71040
+71094
+71096
+71103
+71128
+71134
+71168
+71231
+71232
+71233
+71236
+71237
+71296
+71350
+71424
+71450
+71453
+71467
+71840
+71904
+71935
+71936
+72384
+72441
+73728
+74650
+74752
+74863
+74880
+75076
+77824
+78895
+82944
+83527
+92160
+92729
+92736
+92767
+92880
+92910
+92928
+92983
+92992
+92996
+93027
+93048
+93053
+93072
+93952
+94021
+94032
+94079
+94099
+94112
+110592
+110594
+113664
+113771
+113776
+113789
+113792
+113801
+113808
+113818
+113822
+113823
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120513
+120514
+120539
+120540
+120571
+120572
+120597
+120598
+120629
+120630
+120655
+120656
+120687
+120688
+120713
+120714
+120745
+120746
+120771
+120772
+120780
+124928
+125125
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+127280
+127306
+127312
+127338
+127344
+127370
+131072
+173783
+173824
+177973
+177984
+178206
+178208
+183970
+194560
+195102
+END
diff --git a/lib/5.24.1/unicore/lib/Bc/AL.pl b/lib/5.24.1/unicore/lib/Bc/AL.pl
new file mode 100644
index 00000000..197e1d4f
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Bc/AL.pl
@@ -0,0 +1,54 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V40
+1544
+1545
+1547
+1548
+1549
+1550
+1563
+1611
+1645
+1648
+1649
+1750
+1765
+1767
+1774
+1776
+1786
+1809
+1810
+1840
+1867
+1958
+1969
+1984
+2208
+2275
+64336
+64830
+64832
+64976
+65008
+65021
+65022
+65024
+65136
+65279
+126464
+126704
+126706
+126720
+END
diff --git a/lib/5.24.1/unicore/lib/Bc/AN.pl b/lib/5.24.1/unicore/lib/Bc/AN.pl
new file mode 100644
index 00000000..23ed73cf
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Bc/AN.pl
@@ -0,0 +1,24 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V10
+1536
+1542
+1632
+1642
+1643
+1645
+1757
+1758
+69216
+69247
+END
diff --git a/lib/5.24.1/unicore/lib/Bc/B.pl b/lib/5.24.1/unicore/lib/Bc/B.pl
new file mode 100644
index 00000000..c48ca352
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Bc/B.pl
@@ -0,0 +1,24 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V10
+10
+11
+13
+14
+28
+31
+133
+134
+8233
+8234
+END
diff --git a/lib/5.24.1/unicore/lib/Bc/BN.pl b/lib/5.24.1/unicore/lib/Bc/BN.pl
new file mode 100644
index 00000000..9e40c3e8
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Bc/BN.pl
@@ -0,0 +1,78 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V64
+0
+9
+14
+28
+127
+133
+134
+160
+173
+174
+6158
+6159
+8203
+8206
+8288
+8294
+8298
+8304
+64976
+65008
+65279
+65280
+65520
+65529
+65534
+65536
+113824
+113828
+119155
+119163
+131070
+131072
+196606
+196608
+262142
+262144
+327678
+327680
+393214
+393216
+458750
+458752
+524286
+524288
+589822
+589824
+655358
+655360
+720894
+720896
+786430
+786432
+851966
+851968
+917502
+917760
+918000
+921600
+983038
+983040
+1048574
+1048576
+1114110
+1114112
+END
diff --git a/lib/5.24.1/unicore/lib/Bc/CS.pl b/lib/5.24.1/unicore/lib/Bc/CS.pl
new file mode 100644
index 00000000..adb7efa1
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Bc/CS.pl
@@ -0,0 +1,40 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V26
+44
+45
+46
+48
+58
+59
+160
+161
+1548
+1549
+8239
+8240
+8260
+8261
+65104
+65105
+65106
+65107
+65109
+65110
+65292
+65293
+65294
+65296
+65306
+65307
+END
diff --git a/lib/5.24.1/unicore/lib/Bc/EN.pl b/lib/5.24.1/unicore/lib/Bc/EN.pl
new file mode 100644
index 00000000..0ee0037c
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Bc/EN.pl
@@ -0,0 +1,38 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V24
+48
+58
+178
+180
+185
+186
+1776
+1786
+8304
+8305
+8308
+8314
+8320
+8330
+9352
+9372
+65296
+65306
+66273
+66300
+120782
+120832
+127232
+127243
+END
diff --git a/lib/5.24.1/unicore/lib/Bc/ES.pl b/lib/5.24.1/unicore/lib/Bc/ES.pl
new file mode 100644
index 00000000..74e17628
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Bc/ES.pl
@@ -0,0 +1,32 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V18
+43
+44
+45
+46
+8314
+8316
+8330
+8332
+8722
+8723
+64297
+64298
+65122
+65124
+65291
+65292
+65293
+65294
+END
diff --git a/lib/5.24.1/unicore/lib/Bc/ET.pl b/lib/5.24.1/unicore/lib/Bc/ET.pl
new file mode 100644
index 00000000..0e49f086
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Bc/ET.pl
@@ -0,0 +1,58 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V44
+35
+38
+162
+166
+176
+178
+1423
+1424
+1545
+1547
+1642
+1643
+2546
+2548
+2555
+2556
+2801
+2802
+3065
+3066
+3647
+3648
+6107
+6108
+8240
+8245
+8352
+8400
+8494
+8495
+8723
+8724
+43064
+43066
+65119
+65120
+65129
+65131
+65283
+65286
+65504
+65506
+65509
+65511
+END
diff --git a/lib/5.24.1/unicore/lib/Bc/L.pl b/lib/5.24.1/unicore/lib/Bc/L.pl
new file mode 100644
index 00000000..751e1ec7
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Bc/L.pl
@@ -0,0 +1,803 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V789
+65
+91
+97
+123
+170
+171
+181
+182
+186
+187
+192
+215
+216
+247
+248
+697
+699
+706
+720
+722
+736
+741
+750
+751
+880
+884
+886
+894
+895
+900
+902
+903
+904
+1014
+1015
+1155
+1162
+1418
+1419
+1421
+2307
+2362
+2363
+2364
+2365
+2369
+2377
+2381
+2382
+2385
+2392
+2402
+2404
+2433
+2434
+2492
+2493
+2497
+2501
+2509
+2510
+2530
+2532
+2546
+2548
+2555
+2556
+2561
+2563
+2620
+2621
+2625
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2672
+2674
+2677
+2678
+2689
+2691
+2748
+2749
+2753
+2758
+2759
+2761
+2765
+2766
+2786
+2788
+2801
+2802
+2817
+2818
+2876
+2877
+2879
+2880
+2881
+2885
+2893
+2894
+2902
+2903
+2914
+2916
+2946
+2947
+3008
+3009
+3021
+3022
+3059
+3067
+3072
+3073
+3134
+3137
+3142
+3145
+3146
+3150
+3157
+3159
+3170
+3172
+3192
+3199
+3201
+3202
+3260
+3261
+3276
+3278
+3298
+3300
+3329
+3330
+3393
+3397
+3405
+3406
+3426
+3428
+3530
+3531
+3538
+3541
+3542
+3543
+3633
+3634
+3636
+3643
+3647
+3648
+3655
+3663
+3761
+3762
+3764
+3770
+3771
+3773
+3784
+3790
+3864
+3866
+3893
+3894
+3895
+3896
+3897
+3902
+3953
+3967
+3968
+3973
+3974
+3976
+3981
+3992
+3993
+4029
+4038
+4039
+4141
+4145
+4146
+4152
+4153
+4155
+4157
+4159
+4184
+4186
+4190
+4193
+4209
+4213
+4226
+4227
+4229
+4231
+4237
+4238
+4253
+4254
+4957
+4960
+5008
+5018
+5120
+5121
+5760
+5761
+5787
+5789
+5906
+5909
+5938
+5941
+5970
+5972
+6002
+6004
+6068
+6070
+6071
+6078
+6086
+6087
+6089
+6100
+6107
+6108
+6109
+6110
+6128
+6138
+6144
+6159
+6313
+6314
+6432
+6435
+6439
+6441
+6450
+6451
+6457
+6460
+6464
+6465
+6468
+6470
+6622
+6656
+6679
+6681
+6683
+6684
+6742
+6743
+6744
+6751
+6752
+6753
+6754
+6755
+6757
+6765
+6771
+6781
+6783
+6784
+6832
+6847
+6912
+6916
+6964
+6965
+6966
+6971
+6972
+6973
+6978
+6979
+7019
+7028
+7040
+7042
+7074
+7078
+7080
+7082
+7083
+7086
+7142
+7143
+7144
+7146
+7149
+7150
+7151
+7154
+7212
+7220
+7222
+7224
+7376
+7379
+7380
+7393
+7394
+7401
+7405
+7406
+7412
+7413
+7416
+7418
+7616
+7670
+7676
+7680
+8125
+8126
+8127
+8130
+8141
+8144
+8157
+8160
+8173
+8176
+8189
+8191
+8192
+8206
+8207
+8305
+8308
+8319
+8320
+8335
+8352
+8433
+8448
+8450
+8451
+8455
+8456
+8458
+8468
+8469
+8470
+8473
+8478
+8484
+8485
+8486
+8487
+8488
+8489
+8490
+8494
+8495
+8506
+8508
+8512
+8517
+8522
+8526
+8528
+8544
+8585
+8588
+8592
+9014
+9083
+9109
+9110
+9211
+9216
+9255
+9280
+9291
+9312
+9372
+9450
+9900
+9901
+10240
+10496
+11124
+11126
+11158
+11160
+11194
+11197
+11209
+11210
+11218
+11244
+11248
+11493
+11499
+11503
+11506
+11513
+11520
+11647
+11648
+11744
+11843
+11904
+11930
+11931
+12020
+12032
+12246
+12272
+12284
+12288
+12293
+12296
+12321
+12330
+12334
+12336
+12337
+12342
+12344
+12349
+12352
+12441
+12445
+12448
+12449
+12539
+12540
+12736
+12772
+12829
+12831
+12880
+12896
+12924
+12927
+12977
+12992
+13004
+13008
+13175
+13179
+13278
+13280
+13311
+13312
+19904
+19968
+42128
+42183
+42509
+42512
+42607
+42624
+42654
+42656
+42736
+42738
+42752
+42786
+42888
+42889
+43010
+43011
+43014
+43015
+43019
+43020
+43045
+43047
+43048
+43052
+43064
+43066
+43124
+43128
+43204
+43205
+43232
+43250
+43302
+43310
+43335
+43346
+43392
+43395
+43443
+43444
+43446
+43450
+43452
+43453
+43493
+43494
+43561
+43567
+43569
+43571
+43573
+43575
+43587
+43588
+43596
+43597
+43644
+43645
+43696
+43697
+43698
+43701
+43703
+43705
+43710
+43712
+43713
+43714
+43756
+43758
+43766
+43767
+44005
+44006
+44008
+44009
+44013
+44014
+64285
+65050
+65056
+65107
+65108
+65127
+65128
+65132
+65136
+65280
+65281
+65313
+65339
+65345
+65371
+65382
+65504
+65511
+65512
+65519
+65520
+65536
+65793
+65794
+65856
+65933
+65936
+65948
+65952
+65953
+66045
+66046
+66272
+66300
+66422
+66427
+67584
+69632
+69633
+69634
+69688
+69703
+69714
+69734
+69759
+69762
+69811
+69815
+69817
+69819
+69888
+69891
+69927
+69932
+69933
+69941
+70003
+70004
+70016
+70018
+70070
+70079
+70090
+70093
+70191
+70194
+70196
+70197
+70198
+70200
+70367
+70368
+70371
+70379
+70400
+70402
+70460
+70461
+70464
+70465
+70502
+70509
+70512
+70517
+70835
+70841
+70842
+70843
+70847
+70849
+70850
+70852
+71090
+71094
+71100
+71102
+71103
+71105
+71132
+71134
+71219
+71227
+71229
+71230
+71231
+71233
+71339
+71340
+71341
+71342
+71344
+71350
+71351
+71352
+71453
+71456
+71458
+71462
+71463
+71468
+92912
+92917
+92976
+92983
+94095
+94099
+113821
+113823
+113824
+113828
+119143
+119146
+119155
+119171
+119173
+119180
+119210
+119214
+119296
+119366
+119552
+119639
+120539
+120540
+120597
+120598
+120655
+120656
+120713
+120714
+120771
+120772
+120782
+120832
+121344
+121399
+121403
+121453
+121461
+121462
+121476
+121477
+121499
+121504
+121505
+121520
+124928
+127020
+127024
+127124
+127136
+127151
+127153
+127168
+127169
+127184
+127185
+127222
+127232
+127245
+127338
+127340
+127744
+128378
+128379
+128420
+128421
+128721
+128736
+128749
+128752
+128756
+128768
+128884
+128896
+128981
+129024
+129036
+129040
+129096
+129104
+129114
+129120
+129160
+129168
+129198
+129296
+129305
+129408
+129413
+129472
+129473
+131070
+131072
+196606
+196608
+262142
+262144
+327678
+327680
+393214
+393216
+458750
+458752
+524286
+524288
+589822
+589824
+655358
+655360
+720894
+720896
+786430
+786432
+851966
+851968
+917502
+921600
+983038
+983040
+1048574
+1048576
+1114110
+1114112
+END
diff --git a/lib/5.24.1/unicore/lib/Bc/NSM.pl b/lib/5.24.1/unicore/lib/Bc/NSM.pl
new file mode 100644
index 00000000..1d31445d
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Bc/NSM.pl
@@ -0,0 +1,538 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V524
+768
+880
+1155
+1162
+1425
+1470
+1471
+1472
+1473
+1475
+1476
+1478
+1479
+1480
+1552
+1563
+1611
+1632
+1648
+1649
+1750
+1757
+1759
+1765
+1767
+1769
+1770
+1774
+1809
+1810
+1840
+1867
+1958
+1969
+2027
+2036
+2070
+2074
+2075
+2084
+2085
+2088
+2089
+2094
+2137
+2140
+2275
+2307
+2362
+2363
+2364
+2365
+2369
+2377
+2381
+2382
+2385
+2392
+2402
+2404
+2433
+2434
+2492
+2493
+2497
+2501
+2509
+2510
+2530
+2532
+2561
+2563
+2620
+2621
+2625
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2672
+2674
+2677
+2678
+2689
+2691
+2748
+2749
+2753
+2758
+2759
+2761
+2765
+2766
+2786
+2788
+2817
+2818
+2876
+2877
+2879
+2880
+2881
+2885
+2893
+2894
+2902
+2903
+2914
+2916
+2946
+2947
+3008
+3009
+3021
+3022
+3072
+3073
+3134
+3137
+3142
+3145
+3146
+3150
+3157
+3159
+3170
+3172
+3201
+3202
+3260
+3261
+3276
+3278
+3298
+3300
+3329
+3330
+3393
+3397
+3405
+3406
+3426
+3428
+3530
+3531
+3538
+3541
+3542
+3543
+3633
+3634
+3636
+3643
+3655
+3663
+3761
+3762
+3764
+3770
+3771
+3773
+3784
+3790
+3864
+3866
+3893
+3894
+3895
+3896
+3897
+3898
+3953
+3967
+3968
+3973
+3974
+3976
+3981
+3992
+3993
+4029
+4038
+4039
+4141
+4145
+4146
+4152
+4153
+4155
+4157
+4159
+4184
+4186
+4190
+4193
+4209
+4213
+4226
+4227
+4229
+4231
+4237
+4238
+4253
+4254
+4957
+4960
+5906
+5909
+5938
+5941
+5970
+5972
+6002
+6004
+6068
+6070
+6071
+6078
+6086
+6087
+6089
+6100
+6109
+6110
+6155
+6158
+6313
+6314
+6432
+6435
+6439
+6441
+6450
+6451
+6457
+6460
+6679
+6681
+6683
+6684
+6742
+6743
+6744
+6751
+6752
+6753
+6754
+6755
+6757
+6765
+6771
+6781
+6783
+6784
+6832
+6847
+6912
+6916
+6964
+6965
+6966
+6971
+6972
+6973
+6978
+6979
+7019
+7028
+7040
+7042
+7074
+7078
+7080
+7082
+7083
+7086
+7142
+7143
+7144
+7146
+7149
+7150
+7151
+7154
+7212
+7220
+7222
+7224
+7376
+7379
+7380
+7393
+7394
+7401
+7405
+7406
+7412
+7413
+7416
+7418
+7616
+7670
+7676
+7680
+8400
+8433
+11503
+11506
+11647
+11648
+11744
+11776
+12330
+12334
+12441
+12443
+42607
+42611
+42612
+42622
+42654
+42656
+42736
+42738
+43010
+43011
+43014
+43015
+43019
+43020
+43045
+43047
+43204
+43205
+43232
+43250
+43302
+43310
+43335
+43346
+43392
+43395
+43443
+43444
+43446
+43450
+43452
+43453
+43493
+43494
+43561
+43567
+43569
+43571
+43573
+43575
+43587
+43588
+43596
+43597
+43644
+43645
+43696
+43697
+43698
+43701
+43703
+43705
+43710
+43712
+43713
+43714
+43756
+43758
+43766
+43767
+44005
+44006
+44008
+44009
+44013
+44014
+64286
+64287
+65024
+65040
+65056
+65072
+66045
+66046
+66272
+66273
+66422
+66427
+68097
+68100
+68101
+68103
+68108
+68112
+68152
+68155
+68159
+68160
+68325
+68327
+69633
+69634
+69688
+69703
+69759
+69762
+69811
+69815
+69817
+69819
+69888
+69891
+69927
+69932
+69933
+69941
+70003
+70004
+70016
+70018
+70070
+70079
+70090
+70093
+70191
+70194
+70196
+70197
+70198
+70200
+70367
+70368
+70371
+70379
+70400
+70402
+70460
+70461
+70464
+70465
+70502
+70509
+70512
+70517
+70835
+70841
+70842
+70843
+70847
+70849
+70850
+70852
+71090
+71094
+71100
+71102
+71103
+71105
+71132
+71134
+71219
+71227
+71229
+71230
+71231
+71233
+71339
+71340
+71341
+71342
+71344
+71350
+71351
+71352
+71453
+71456
+71458
+71462
+71463
+71468
+92912
+92917
+92976
+92983
+94095
+94099
+113821
+113823
+119143
+119146
+119163
+119171
+119173
+119180
+119210
+119214
+119362
+119365
+121344
+121399
+121403
+121453
+121461
+121462
+121476
+121477
+121499
+121504
+121505
+121520
+125136
+125143
+917760
+918000
+END
diff --git a/lib/5.24.1/unicore/lib/Bc/ON.pl b/lib/5.24.1/unicore/lib/Bc/ON.pl
new file mode 100644
index 00000000..8805e358
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Bc/ON.pl
@@ -0,0 +1,362 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V348
+33
+35
+38
+43
+59
+65
+91
+97
+123
+127
+161
+162
+166
+170
+171
+173
+174
+176
+180
+181
+182
+185
+187
+192
+215
+216
+247
+248
+697
+699
+706
+720
+722
+736
+741
+750
+751
+768
+884
+886
+894
+895
+900
+902
+903
+904
+1014
+1015
+1418
+1419
+1421
+1423
+1542
+1544
+1550
+1552
+1758
+1759
+1769
+1770
+2038
+2042
+3059
+3065
+3066
+3067
+3192
+3199
+3898
+3902
+5008
+5018
+5120
+5121
+5787
+5789
+6128
+6138
+6144
+6155
+6464
+6465
+6468
+6470
+6622
+6656
+8125
+8126
+8127
+8130
+8141
+8144
+8157
+8160
+8173
+8176
+8189
+8191
+8208
+8232
+8245
+8260
+8261
+8287
+8316
+8319
+8332
+8335
+8448
+8450
+8451
+8455
+8456
+8458
+8468
+8469
+8470
+8473
+8478
+8484
+8485
+8486
+8487
+8488
+8489
+8490
+8506
+8508
+8512
+8517
+8522
+8526
+8528
+8544
+8585
+8588
+8592
+8722
+8724
+9014
+9083
+9109
+9110
+9211
+9216
+9255
+9280
+9291
+9312
+9352
+9450
+9900
+9901
+10240
+10496
+11124
+11126
+11158
+11160
+11194
+11197
+11209
+11210
+11218
+11244
+11248
+11493
+11499
+11513
+11520
+11776
+11843
+11904
+11930
+11931
+12020
+12032
+12246
+12272
+12284
+12289
+12293
+12296
+12321
+12336
+12337
+12342
+12344
+12349
+12352
+12443
+12445
+12448
+12449
+12539
+12540
+12736
+12772
+12829
+12831
+12880
+12896
+12924
+12927
+12977
+12992
+13004
+13008
+13175
+13179
+13278
+13280
+13311
+13312
+19904
+19968
+42128
+42183
+42509
+42512
+42611
+42612
+42622
+42624
+42752
+42786
+42888
+42889
+43048
+43052
+43124
+43128
+64830
+64832
+65021
+65022
+65040
+65050
+65072
+65104
+65105
+65106
+65108
+65109
+65110
+65119
+65120
+65122
+65124
+65127
+65128
+65129
+65131
+65132
+65281
+65283
+65286
+65291
+65307
+65313
+65339
+65345
+65371
+65382
+65506
+65509
+65512
+65519
+65529
+65534
+65793
+65794
+65856
+65933
+65936
+65948
+65952
+65953
+67871
+67872
+68409
+68416
+69714
+69734
+119296
+119362
+119365
+119366
+119552
+119639
+120539
+120540
+120597
+120598
+120655
+120656
+120713
+120714
+120771
+120772
+126704
+126706
+126976
+127020
+127024
+127124
+127136
+127151
+127153
+127168
+127169
+127184
+127185
+127222
+127243
+127245
+127338
+127340
+127744
+128378
+128379
+128420
+128421
+128721
+128736
+128749
+128752
+128756
+128768
+128884
+128896
+128981
+129024
+129036
+129040
+129096
+129104
+129114
+129120
+129160
+129168
+129198
+129296
+129305
+129408
+129413
+129472
+129473
+END
diff --git a/lib/5.24.1/unicore/lib/Bc/R.pl b/lib/5.24.1/unicore/lib/Bc/R.pl
new file mode 100644
index 00000000..e6db1ff2
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Bc/R.pl
@@ -0,0 +1,76 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V62
+1424
+1425
+1470
+1471
+1472
+1473
+1475
+1476
+1478
+1479
+1480
+1536
+1984
+2027
+2036
+2038
+2042
+2070
+2074
+2075
+2084
+2085
+2088
+2089
+2094
+2137
+2140
+2208
+8207
+8208
+64285
+64286
+64287
+64297
+64298
+64336
+67584
+67871
+67872
+68097
+68100
+68101
+68103
+68108
+68112
+68152
+68155
+68159
+68160
+68325
+68327
+68409
+68416
+69216
+69247
+69632
+124928
+125136
+125143
+126464
+126720
+126976
+END
diff --git a/lib/5.24.1/unicore/lib/Bc/WS.pl b/lib/5.24.1/unicore/lib/Bc/WS.pl
new file mode 100644
index 00000000..49c16fcf
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Bc/WS.pl
@@ -0,0 +1,28 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V14
+12
+13
+32
+33
+5760
+5761
+8192
+8203
+8232
+8233
+8287
+8288
+12288
+12289
+END
diff --git a/lib/5.24.1/unicore/lib/BidiC/Y.pl b/lib/5.24.1/unicore/lib/BidiC/Y.pl
new file mode 100644
index 00000000..5497943a
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/BidiC/Y.pl
@@ -0,0 +1,22 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+1564
+1565
+8206
+8208
+8234
+8239
+8294
+8298
+END
diff --git a/lib/5.24.1/unicore/lib/BidiM/Y.pl b/lib/5.24.1/unicore/lib/BidiM/Y.pl
new file mode 100644
index 00000000..273c52e8
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/BidiM/Y.pl
@@ -0,0 +1,236 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V222
+40
+42
+60
+61
+62
+63
+91
+92
+93
+94
+123
+124
+125
+126
+171
+172
+187
+188
+3898
+3902
+5787
+5789
+8249
+8251
+8261
+8263
+8317
+8319
+8333
+8335
+8512
+8513
+8705
+8709
+8712
+8718
+8721
+8722
+8725
+8727
+8730
+8734
+8735
+8739
+8740
+8741
+8742
+8743
+8747
+8756
+8761
+8762
+8763
+8781
+8786
+8790
+8799
+8801
+8802
+8803
+8804
+8812
+8814
+8845
+8847
+8851
+8856
+8857
+8866
+8868
+8870
+8889
+8894
+8896
+8905
+8910
+8912
+8914
+8918
+8942
+8944
+8960
+8968
+8972
+8992
+8994
+9001
+9003
+10088
+10102
+10176
+10177
+10179
+10183
+10184
+10186
+10187
+10190
+10195
+10199
+10204
+10207
+10210
+10224
+10627
+10649
+10651
+10672
+10680
+10681
+10688
+10694
+10697
+10698
+10702
+10707
+10708
+10710
+10712
+10717
+10721
+10722
+10723
+10726
+10728
+10730
+10740
+10746
+10748
+10750
+10762
+10781
+10782
+10786
+10788
+10789
+10790
+10791
+10793
+10794
+10795
+10799
+10804
+10806
+10812
+10815
+10839
+10841
+10852
+10854
+10858
+10862
+10863
+10865
+10867
+10869
+10873
+10916
+10918
+10926
+10927
+10967
+10972
+10973
+10974
+10975
+10978
+10983
+10988
+10991
+10995
+10996
+10999
+11004
+11005
+11006
+11778
+11782
+11785
+11787
+11788
+11790
+11804
+11806
+11808
+11818
+12296
+12306
+12308
+12316
+65113
+65119
+65124
+65126
+65288
+65290
+65308
+65309
+65310
+65311
+65339
+65340
+65341
+65342
+65371
+65372
+65373
+65374
+65375
+65377
+65378
+65380
+120539
+120540
+120597
+120598
+120655
+120656
+120713
+120714
+120771
+120772
+END
diff --git a/lib/5.24.1/unicore/lib/Blk/NB.pl b/lib/5.24.1/unicore/lib/Blk/NB.pl
new file mode 100644
index 00000000..7d261e62
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Blk/NB.pl
@@ -0,0 +1,99 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V85
+2144
+2208
+7296
+7360
+12256
+12272
+66048
+66176
+66528
+66560
+66736
+66816
+66928
+67072
+67456
+67584
+67760
+67808
+67904
+67968
+68256
+68288
+68528
+68608
+68688
+68736
+68864
+69216
+69248
+69632
+70224
+70272
+70528
+70784
+70880
+71040
+71264
+71296
+71376
+71424
+71488
+71840
+71936
+72384
+72448
+73728
+75088
+77824
+78896
+82944
+83584
+92160
+92784
+92880
+93072
+93952
+94112
+110592
+110848
+113664
+113840
+118784
+119376
+119552
+119680
+119808
+121520
+124928
+125152
+126464
+126720
+126976
+129536
+131072
+173792
+173824
+183984
+194560
+195104
+917504
+917632
+917760
+918000
+983040
+1114112
+END
diff --git a/lib/5.24.1/unicore/lib/Bpt/C.pl b/lib/5.24.1/unicore/lib/Bpt/C.pl
new file mode 100644
index 00000000..58058442
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Bpt/C.pl
@@ -0,0 +1,134 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V120
+41
+42
+93
+94
+125
+126
+3899
+3900
+3901
+3902
+5788
+5789
+8262
+8263
+8318
+8319
+8334
+8335
+8969
+8970
+8971
+8972
+9002
+9003
+10089
+10090
+10091
+10092
+10093
+10094
+10095
+10096
+10097
+10098
+10099
+10100
+10101
+10102
+10182
+10183
+10215
+10216
+10217
+10218
+10219
+10220
+10221
+10222
+10223
+10224
+10628
+10629
+10630
+10631
+10632
+10633
+10634
+10635
+10636
+10637
+10638
+10639
+10640
+10641
+10642
+10643
+10644
+10645
+10646
+10647
+10648
+10649
+10713
+10714
+10715
+10716
+10749
+10750
+11811
+11812
+11813
+11814
+11815
+11816
+11817
+11818
+12297
+12298
+12299
+12300
+12301
+12302
+12303
+12304
+12305
+12306
+12309
+12310
+12311
+12312
+12313
+12314
+12315
+12316
+65114
+65115
+65116
+65117
+65118
+65119
+65289
+65290
+65341
+65342
+65373
+65374
+65376
+65377
+65379
+65380
+END
diff --git a/lib/5.24.1/unicore/lib/Bpt/N.pl b/lib/5.24.1/unicore/lib/Bpt/N.pl
new file mode 100644
index 00000000..20e14829
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Bpt/N.pl
@@ -0,0 +1,73 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V59
+0
+40
+42
+91
+92
+93
+94
+123
+124
+125
+126
+3898
+3902
+5787
+5789
+8261
+8263
+8317
+8319
+8333
+8335
+8968
+8972
+9001
+9003
+10088
+10102
+10181
+10183
+10214
+10224
+10627
+10649
+10712
+10716
+10748
+10750
+11810
+11818
+12296
+12306
+12308
+12316
+65113
+65119
+65288
+65290
+65339
+65340
+65341
+65342
+65371
+65372
+65373
+65374
+65375
+65377
+65378
+65380
+END
diff --git a/lib/5.24.1/unicore/lib/Bpt/O.pl b/lib/5.24.1/unicore/lib/Bpt/O.pl
new file mode 100644
index 00000000..2d39f994
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Bpt/O.pl
@@ -0,0 +1,134 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V120
+40
+41
+91
+92
+123
+124
+3898
+3899
+3900
+3901
+5787
+5788
+8261
+8262
+8317
+8318
+8333
+8334
+8968
+8969
+8970
+8971
+9001
+9002
+10088
+10089
+10090
+10091
+10092
+10093
+10094
+10095
+10096
+10097
+10098
+10099
+10100
+10101
+10181
+10182
+10214
+10215
+10216
+10217
+10218
+10219
+10220
+10221
+10222
+10223
+10627
+10628
+10629
+10630
+10631
+10632
+10633
+10634
+10635
+10636
+10637
+10638
+10639
+10640
+10641
+10642
+10643
+10644
+10645
+10646
+10647
+10648
+10712
+10713
+10714
+10715
+10748
+10749
+11810
+11811
+11812
+11813
+11814
+11815
+11816
+11817
+12296
+12297
+12298
+12299
+12300
+12301
+12302
+12303
+12304
+12305
+12308
+12309
+12310
+12311
+12312
+12313
+12314
+12315
+65113
+65114
+65115
+65116
+65117
+65118
+65288
+65289
+65339
+65340
+65371
+65372
+65375
+65376
+65378
+65379
+END
diff --git a/lib/5.24.1/unicore/lib/CE/Y.pl b/lib/5.24.1/unicore/lib/CE/Y.pl
new file mode 100644
index 00000000..5fb8e856
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/CE/Y.pl
@@ -0,0 +1,80 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V66
+2392
+2400
+2524
+2526
+2527
+2528
+2611
+2612
+2614
+2615
+2649
+2652
+2654
+2655
+2908
+2910
+3907
+3908
+3917
+3918
+3922
+3923
+3927
+3928
+3932
+3933
+3945
+3946
+3958
+3959
+3960
+3961
+3987
+3988
+3997
+3998
+4002
+4003
+4007
+4008
+4012
+4013
+4025
+4026
+10972
+10973
+64285
+64286
+64287
+64288
+64298
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64335
+119134
+119141
+119227
+119233
+END
diff --git a/lib/5.24.1/unicore/lib/CI/Y.pl b/lib/5.24.1/unicore/lib/CI/Y.pl
new file mode 100644
index 00000000..1426e41e
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/CI/Y.pl
@@ -0,0 +1,706 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V692
+39
+40
+46
+47
+58
+59
+94
+95
+96
+97
+168
+169
+173
+174
+175
+176
+180
+181
+183
+185
+688
+880
+884
+886
+890
+891
+900
+902
+903
+904
+1155
+1162
+1369
+1370
+1425
+1470
+1471
+1472
+1473
+1475
+1476
+1478
+1479
+1480
+1524
+1525
+1536
+1542
+1552
+1563
+1564
+1565
+1600
+1601
+1611
+1632
+1648
+1649
+1750
+1758
+1759
+1769
+1770
+1774
+1807
+1808
+1809
+1810
+1840
+1867
+1958
+1969
+2027
+2038
+2042
+2043
+2070
+2094
+2137
+2140
+2275
+2307
+2362
+2363
+2364
+2365
+2369
+2377
+2381
+2382
+2385
+2392
+2402
+2404
+2417
+2418
+2433
+2434
+2492
+2493
+2497
+2501
+2509
+2510
+2530
+2532
+2561
+2563
+2620
+2621
+2625
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2672
+2674
+2677
+2678
+2689
+2691
+2748
+2749
+2753
+2758
+2759
+2761
+2765
+2766
+2786
+2788
+2817
+2818
+2876
+2877
+2879
+2880
+2881
+2885
+2893
+2894
+2902
+2903
+2914
+2916
+2946
+2947
+3008
+3009
+3021
+3022
+3072
+3073
+3134
+3137
+3142
+3145
+3146
+3150
+3157
+3159
+3170
+3172
+3201
+3202
+3260
+3261
+3263
+3264
+3270
+3271
+3276
+3278
+3298
+3300
+3329
+3330
+3393
+3397
+3405
+3406
+3426
+3428
+3530
+3531
+3538
+3541
+3542
+3543
+3633
+3634
+3636
+3643
+3654
+3663
+3761
+3762
+3764
+3770
+3771
+3773
+3782
+3783
+3784
+3790
+3864
+3866
+3893
+3894
+3895
+3896
+3897
+3898
+3953
+3967
+3968
+3973
+3974
+3976
+3981
+3992
+3993
+4029
+4038
+4039
+4141
+4145
+4146
+4152
+4153
+4155
+4157
+4159
+4184
+4186
+4190
+4193
+4209
+4213
+4226
+4227
+4229
+4231
+4237
+4238
+4253
+4254
+4348
+4349
+4957
+4960
+5906
+5909
+5938
+5941
+5970
+5972
+6002
+6004
+6068
+6070
+6071
+6078
+6086
+6087
+6089
+6100
+6103
+6104
+6109
+6110
+6155
+6159
+6211
+6212
+6313
+6314
+6432
+6435
+6439
+6441
+6450
+6451
+6457
+6460
+6679
+6681
+6683
+6684
+6742
+6743
+6744
+6751
+6752
+6753
+6754
+6755
+6757
+6765
+6771
+6781
+6783
+6784
+6823
+6824
+6832
+6847
+6912
+6916
+6964
+6965
+6966
+6971
+6972
+6973
+6978
+6979
+7019
+7028
+7040
+7042
+7074
+7078
+7080
+7082
+7083
+7086
+7142
+7143
+7144
+7146
+7149
+7150
+7151
+7154
+7212
+7220
+7222
+7224
+7288
+7294
+7376
+7379
+7380
+7393
+7394
+7401
+7405
+7406
+7412
+7413
+7416
+7418
+7468
+7531
+7544
+7545
+7579
+7670
+7676
+7680
+8125
+8126
+8127
+8130
+8141
+8144
+8157
+8160
+8173
+8176
+8189
+8191
+8203
+8208
+8216
+8218
+8228
+8229
+8231
+8232
+8234
+8239
+8288
+8293
+8294
+8304
+8305
+8306
+8319
+8320
+8336
+8349
+8400
+8433
+11388
+11390
+11503
+11506
+11631
+11632
+11647
+11648
+11744
+11776
+11823
+11824
+12293
+12294
+12330
+12334
+12337
+12342
+12347
+12348
+12441
+12447
+12540
+12543
+40981
+40982
+42232
+42238
+42508
+42509
+42607
+42611
+42612
+42622
+42623
+42624
+42652
+42656
+42736
+42738
+42752
+42786
+42864
+42865
+42888
+42891
+43000
+43002
+43010
+43011
+43014
+43015
+43019
+43020
+43045
+43047
+43204
+43205
+43232
+43250
+43302
+43310
+43335
+43346
+43392
+43395
+43443
+43444
+43446
+43450
+43452
+43453
+43471
+43472
+43493
+43495
+43561
+43567
+43569
+43571
+43573
+43575
+43587
+43588
+43596
+43597
+43632
+43633
+43644
+43645
+43696
+43697
+43698
+43701
+43703
+43705
+43710
+43712
+43713
+43714
+43741
+43742
+43756
+43758
+43763
+43765
+43766
+43767
+43867
+43872
+44005
+44006
+44008
+44009
+44013
+44014
+64286
+64287
+64434
+64450
+65024
+65040
+65043
+65044
+65056
+65072
+65106
+65107
+65109
+65110
+65279
+65280
+65287
+65288
+65294
+65295
+65306
+65307
+65342
+65343
+65344
+65345
+65392
+65393
+65438
+65440
+65507
+65508
+65529
+65532
+66045
+66046
+66272
+66273
+66422
+66427
+68097
+68100
+68101
+68103
+68108
+68112
+68152
+68155
+68159
+68160
+68325
+68327
+69633
+69634
+69688
+69703
+69759
+69762
+69811
+69815
+69817
+69819
+69821
+69822
+69888
+69891
+69927
+69932
+69933
+69941
+70003
+70004
+70016
+70018
+70070
+70079
+70090
+70093
+70191
+70194
+70196
+70197
+70198
+70200
+70367
+70368
+70371
+70379
+70400
+70402
+70460
+70461
+70464
+70465
+70502
+70509
+70512
+70517
+70835
+70841
+70842
+70843
+70847
+70849
+70850
+70852
+71090
+71094
+71100
+71102
+71103
+71105
+71132
+71134
+71219
+71227
+71229
+71230
+71231
+71233
+71339
+71340
+71341
+71342
+71344
+71350
+71351
+71352
+71453
+71456
+71458
+71462
+71463
+71468
+92912
+92917
+92976
+92983
+92992
+92996
+94095
+94112
+113821
+113823
+113824
+113828
+119143
+119146
+119155
+119171
+119173
+119180
+119210
+119214
+119362
+119365
+121344
+121399
+121403
+121453
+121461
+121462
+121476
+121477
+121499
+121504
+121505
+121520
+125136
+125143
+127995
+128000
+917505
+917506
+917536
+917632
+917760
+918000
+END
diff --git a/lib/5.24.1/unicore/lib/CWCF/Y.pl b/lib/5.24.1/unicore/lib/CWCF/Y.pl
new file mode 100644
index 00000000..2df90f25
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/CWCF/Y.pl
@@ -0,0 +1,1214 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1200
+65
+91
+181
+182
+192
+215
+216
+224
+256
+257
+258
+259
+260
+261
+262
+263
+264
+265
+266
+267
+268
+269
+270
+271
+272
+273
+274
+275
+276
+277
+278
+279
+280
+281
+282
+283
+284
+285
+286
+287
+288
+289
+290
+291
+292
+293
+294
+295
+296
+297
+298
+299
+300
+301
+302
+303
+304
+305
+306
+307
+308
+309
+310
+311
+313
+314
+315
+316
+317
+318
+319
+320
+321
+322
+323
+324
+325
+326
+327
+328
+329
+331
+332
+333
+334
+335
+336
+337
+338
+339
+340
+341
+342
+343
+344
+345
+346
+347
+348
+349
+350
+351
+352
+353
+354
+355
+356
+357
+358
+359
+360
+361
+362
+363
+364
+365
+366
+367
+368
+369
+370
+371
+372
+373
+374
+375
+376
+378
+379
+380
+381
+382
+383
+384
+385
+387
+388
+389
+390
+392
+393
+396
+398
+402
+403
+405
+406
+409
+412
+414
+415
+417
+418
+419
+420
+421
+422
+424
+425
+426
+428
+429
+430
+432
+433
+436
+437
+438
+439
+441
+444
+445
+452
+454
+455
+457
+458
+460
+461
+462
+463
+464
+465
+466
+467
+468
+469
+470
+471
+472
+473
+474
+475
+476
+478
+479
+480
+481
+482
+483
+484
+485
+486
+487
+488
+489
+490
+491
+492
+493
+494
+495
+497
+499
+500
+501
+502
+505
+506
+507
+508
+509
+510
+511
+512
+513
+514
+515
+516
+517
+518
+519
+520
+521
+522
+523
+524
+525
+526
+527
+528
+529
+530
+531
+532
+533
+534
+535
+536
+537
+538
+539
+540
+541
+542
+543
+544
+545
+546
+547
+548
+549
+550
+551
+552
+553
+554
+555
+556
+557
+558
+559
+560
+561
+562
+563
+570
+572
+573
+575
+577
+578
+579
+583
+584
+585
+586
+587
+588
+589
+590
+591
+837
+838
+880
+881
+882
+883
+886
+887
+895
+896
+902
+903
+904
+907
+908
+909
+910
+912
+913
+930
+931
+940
+962
+963
+975
+978
+981
+983
+984
+985
+986
+987
+988
+989
+990
+991
+992
+993
+994
+995
+996
+997
+998
+999
+1000
+1001
+1002
+1003
+1004
+1005
+1006
+1007
+1008
+1010
+1012
+1014
+1015
+1016
+1017
+1019
+1021
+1072
+1120
+1121
+1122
+1123
+1124
+1125
+1126
+1127
+1128
+1129
+1130
+1131
+1132
+1133
+1134
+1135
+1136
+1137
+1138
+1139
+1140
+1141
+1142
+1143
+1144
+1145
+1146
+1147
+1148
+1149
+1150
+1151
+1152
+1153
+1162
+1163
+1164
+1165
+1166
+1167
+1168
+1169
+1170
+1171
+1172
+1173
+1174
+1175
+1176
+1177
+1178
+1179
+1180
+1181
+1182
+1183
+1184
+1185
+1186
+1187
+1188
+1189
+1190
+1191
+1192
+1193
+1194
+1195
+1196
+1197
+1198
+1199
+1200
+1201
+1202
+1203
+1204
+1205
+1206
+1207
+1208
+1209
+1210
+1211
+1212
+1213
+1214
+1215
+1216
+1218
+1219
+1220
+1221
+1222
+1223
+1224
+1225
+1226
+1227
+1228
+1229
+1230
+1232
+1233
+1234
+1235
+1236
+1237
+1238
+1239
+1240
+1241
+1242
+1243
+1244
+1245
+1246
+1247
+1248
+1249
+1250
+1251
+1252
+1253
+1254
+1255
+1256
+1257
+1258
+1259
+1260
+1261
+1262
+1263
+1264
+1265
+1266
+1267
+1268
+1269
+1270
+1271
+1272
+1273
+1274
+1275
+1276
+1277
+1278
+1279
+1280
+1281
+1282
+1283
+1284
+1285
+1286
+1287
+1288
+1289
+1290
+1291
+1292
+1293
+1294
+1295
+1296
+1297
+1298
+1299
+1300
+1301
+1302
+1303
+1304
+1305
+1306
+1307
+1308
+1309
+1310
+1311
+1312
+1313
+1314
+1315
+1316
+1317
+1318
+1319
+1320
+1321
+1322
+1323
+1324
+1325
+1326
+1327
+1329
+1367
+1415
+1416
+4256
+4294
+4295
+4296
+4301
+4302
+5112
+5118
+7680
+7681
+7682
+7683
+7684
+7685
+7686
+7687
+7688
+7689
+7690
+7691
+7692
+7693
+7694
+7695
+7696
+7697
+7698
+7699
+7700
+7701
+7702
+7703
+7704
+7705
+7706
+7707
+7708
+7709
+7710
+7711
+7712
+7713
+7714
+7715
+7716
+7717
+7718
+7719
+7720
+7721
+7722
+7723
+7724
+7725
+7726
+7727
+7728
+7729
+7730
+7731
+7732
+7733
+7734
+7735
+7736
+7737
+7738
+7739
+7740
+7741
+7742
+7743
+7744
+7745
+7746
+7747
+7748
+7749
+7750
+7751
+7752
+7753
+7754
+7755
+7756
+7757
+7758
+7759
+7760
+7761
+7762
+7763
+7764
+7765
+7766
+7767
+7768
+7769
+7770
+7771
+7772
+7773
+7774
+7775
+7776
+7777
+7778
+7779
+7780
+7781
+7782
+7783
+7784
+7785
+7786
+7787
+7788
+7789
+7790
+7791
+7792
+7793
+7794
+7795
+7796
+7797
+7798
+7799
+7800
+7801
+7802
+7803
+7804
+7805
+7806
+7807
+7808
+7809
+7810
+7811
+7812
+7813
+7814
+7815
+7816
+7817
+7818
+7819
+7820
+7821
+7822
+7823
+7824
+7825
+7826
+7827
+7828
+7829
+7834
+7836
+7838
+7839
+7840
+7841
+7842
+7843
+7844
+7845
+7846
+7847
+7848
+7849
+7850
+7851
+7852
+7853
+7854
+7855
+7856
+7857
+7858
+7859
+7860
+7861
+7862
+7863
+7864
+7865
+7866
+7867
+7868
+7869
+7870
+7871
+7872
+7873
+7874
+7875
+7876
+7877
+7878
+7879
+7880
+7881
+7882
+7883
+7884
+7885
+7886
+7887
+7888
+7889
+7890
+7891
+7892
+7893
+7894
+7895
+7896
+7897
+7898
+7899
+7900
+7901
+7902
+7903
+7904
+7905
+7906
+7907
+7908
+7909
+7910
+7911
+7912
+7913
+7914
+7915
+7916
+7917
+7918
+7919
+7920
+7921
+7922
+7923
+7924
+7925
+7926
+7927
+7928
+7929
+7930
+7931
+7932
+7933
+7934
+7935
+7944
+7952
+7960
+7966
+7976
+7984
+7992
+8000
+8008
+8014
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8032
+8040
+8048
+8064
+8112
+8114
+8117
+8119
+8125
+8130
+8133
+8135
+8141
+8152
+8156
+8168
+8173
+8178
+8181
+8183
+8189
+8486
+8487
+8490
+8492
+8498
+8499
+8544
+8560
+8579
+8580
+9398
+9424
+11264
+11311
+11360
+11361
+11362
+11365
+11367
+11368
+11369
+11370
+11371
+11372
+11373
+11377
+11378
+11379
+11381
+11382
+11390
+11393
+11394
+11395
+11396
+11397
+11398
+11399
+11400
+11401
+11402
+11403
+11404
+11405
+11406
+11407
+11408
+11409
+11410
+11411
+11412
+11413
+11414
+11415
+11416
+11417
+11418
+11419
+11420
+11421
+11422
+11423
+11424
+11425
+11426
+11427
+11428
+11429
+11430
+11431
+11432
+11433
+11434
+11435
+11436
+11437
+11438
+11439
+11440
+11441
+11442
+11443
+11444
+11445
+11446
+11447
+11448
+11449
+11450
+11451
+11452
+11453
+11454
+11455
+11456
+11457
+11458
+11459
+11460
+11461
+11462
+11463
+11464
+11465
+11466
+11467
+11468
+11469
+11470
+11471
+11472
+11473
+11474
+11475
+11476
+11477
+11478
+11479
+11480
+11481
+11482
+11483
+11484
+11485
+11486
+11487
+11488
+11489
+11490
+11491
+11499
+11500
+11501
+11502
+11506
+11507
+42560
+42561
+42562
+42563
+42564
+42565
+42566
+42567
+42568
+42569
+42570
+42571
+42572
+42573
+42574
+42575
+42576
+42577
+42578
+42579
+42580
+42581
+42582
+42583
+42584
+42585
+42586
+42587
+42588
+42589
+42590
+42591
+42592
+42593
+42594
+42595
+42596
+42597
+42598
+42599
+42600
+42601
+42602
+42603
+42604
+42605
+42624
+42625
+42626
+42627
+42628
+42629
+42630
+42631
+42632
+42633
+42634
+42635
+42636
+42637
+42638
+42639
+42640
+42641
+42642
+42643
+42644
+42645
+42646
+42647
+42648
+42649
+42650
+42651
+42786
+42787
+42788
+42789
+42790
+42791
+42792
+42793
+42794
+42795
+42796
+42797
+42798
+42799
+42802
+42803
+42804
+42805
+42806
+42807
+42808
+42809
+42810
+42811
+42812
+42813
+42814
+42815
+42816
+42817
+42818
+42819
+42820
+42821
+42822
+42823
+42824
+42825
+42826
+42827
+42828
+42829
+42830
+42831
+42832
+42833
+42834
+42835
+42836
+42837
+42838
+42839
+42840
+42841
+42842
+42843
+42844
+42845
+42846
+42847
+42848
+42849
+42850
+42851
+42852
+42853
+42854
+42855
+42856
+42857
+42858
+42859
+42860
+42861
+42862
+42863
+42873
+42874
+42875
+42876
+42877
+42879
+42880
+42881
+42882
+42883
+42884
+42885
+42886
+42887
+42891
+42892
+42893
+42894
+42896
+42897
+42898
+42899
+42902
+42903
+42904
+42905
+42906
+42907
+42908
+42909
+42910
+42911
+42912
+42913
+42914
+42915
+42916
+42917
+42918
+42919
+42920
+42921
+42922
+42926
+42928
+42933
+42934
+42935
+43888
+43968
+64256
+64263
+64275
+64280
+65313
+65339
+66560
+66600
+68736
+68787
+71840
+71872
+END
diff --git a/lib/5.24.1/unicore/lib/CWCM/Y.pl b/lib/5.24.1/unicore/lib/CWCM/Y.pl
new file mode 100644
index 00000000..eb26fbc9
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/CWCM/Y.pl
@@ -0,0 +1,240 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V226
+65
+91
+97
+123
+181
+182
+192
+215
+216
+247
+248
+312
+313
+397
+398
+411
+412
+426
+428
+442
+444
+446
+447
+448
+452
+545
+546
+564
+570
+597
+598
+600
+601
+602
+603
+605
+608
+610
+611
+612
+613
+615
+616
+618
+619
+621
+623
+624
+625
+627
+629
+630
+637
+638
+640
+641
+643
+644
+647
+653
+658
+659
+669
+671
+837
+838
+880
+884
+886
+888
+891
+894
+895
+896
+902
+903
+904
+907
+908
+909
+910
+930
+931
+978
+981
+1014
+1015
+1020
+1021
+1154
+1162
+1328
+1329
+1367
+1377
+1416
+4256
+4294
+4295
+4296
+4301
+4302
+5024
+5110
+5112
+5118
+7545
+7546
+7549
+7550
+7680
+7836
+7838
+7839
+7840
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8125
+8126
+8127
+8130
+8133
+8134
+8141
+8144
+8148
+8150
+8156
+8160
+8173
+8178
+8181
+8182
+8189
+8486
+8487
+8490
+8492
+8498
+8499
+8526
+8527
+8544
+8576
+8579
+8581
+9398
+9450
+11264
+11311
+11312
+11359
+11360
+11377
+11378
+11380
+11381
+11383
+11390
+11492
+11499
+11503
+11506
+11508
+11520
+11558
+11559
+11560
+11565
+11566
+42560
+42606
+42624
+42652
+42786
+42800
+42802
+42864
+42873
+42888
+42891
+42894
+42896
+42900
+42902
+42926
+42928
+42936
+43859
+43860
+43888
+43968
+64256
+64263
+64275
+64280
+65313
+65339
+65345
+65371
+66560
+66640
+68736
+68787
+68800
+68851
+71840
+71904
+END
diff --git a/lib/5.24.1/unicore/lib/CWKCF/Y.pl b/lib/5.24.1/unicore/lib/CWKCF/Y.pl
new file mode 100644
index 00000000..758b6e00
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/CWKCF/Y.pl
@@ -0,0 +1,1638 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1624
+65
+91
+160
+161
+168
+169
+170
+171
+173
+174
+175
+176
+178
+182
+184
+187
+188
+191
+192
+215
+216
+224
+256
+257
+258
+259
+260
+261
+262
+263
+264
+265
+266
+267
+268
+269
+270
+271
+272
+273
+274
+275
+276
+277
+278
+279
+280
+281
+282
+283
+284
+285
+286
+287
+288
+289
+290
+291
+292
+293
+294
+295
+296
+297
+298
+299
+300
+301
+302
+303
+304
+305
+306
+309
+310
+311
+313
+314
+315
+316
+317
+318
+319
+322
+323
+324
+325
+326
+327
+328
+329
+331
+332
+333
+334
+335
+336
+337
+338
+339
+340
+341
+342
+343
+344
+345
+346
+347
+348
+349
+350
+351
+352
+353
+354
+355
+356
+357
+358
+359
+360
+361
+362
+363
+364
+365
+366
+367
+368
+369
+370
+371
+372
+373
+374
+375
+376
+378
+379
+380
+381
+382
+383
+384
+385
+387
+388
+389
+390
+392
+393
+396
+398
+402
+403
+405
+406
+409
+412
+414
+415
+417
+418
+419
+420
+421
+422
+424
+425
+426
+428
+429
+430
+432
+433
+436
+437
+438
+439
+441
+444
+445
+452
+462
+463
+464
+465
+466
+467
+468
+469
+470
+471
+472
+473
+474
+475
+476
+478
+479
+480
+481
+482
+483
+484
+485
+486
+487
+488
+489
+490
+491
+492
+493
+494
+495
+497
+501
+502
+505
+506
+507
+508
+509
+510
+511
+512
+513
+514
+515
+516
+517
+518
+519
+520
+521
+522
+523
+524
+525
+526
+527
+528
+529
+530
+531
+532
+533
+534
+535
+536
+537
+538
+539
+540
+541
+542
+543
+544
+545
+546
+547
+548
+549
+550
+551
+552
+553
+554
+555
+556
+557
+558
+559
+560
+561
+562
+563
+570
+572
+573
+575
+577
+578
+579
+583
+584
+585
+586
+587
+588
+589
+590
+591
+688
+697
+728
+734
+736
+741
+832
+834
+835
+838
+847
+848
+880
+881
+882
+883
+884
+885
+886
+887
+890
+891
+894
+896
+900
+907
+908
+909
+910
+912
+913
+930
+931
+940
+962
+963
+975
+983
+984
+985
+986
+987
+988
+989
+990
+991
+992
+993
+994
+995
+996
+997
+998
+999
+1000
+1001
+1002
+1003
+1004
+1005
+1006
+1007
+1008
+1011
+1012
+1014
+1015
+1016
+1017
+1019
+1021
+1072
+1120
+1121
+1122
+1123
+1124
+1125
+1126
+1127
+1128
+1129
+1130
+1131
+1132
+1133
+1134
+1135
+1136
+1137
+1138
+1139
+1140
+1141
+1142
+1143
+1144
+1145
+1146
+1147
+1148
+1149
+1150
+1151
+1152
+1153
+1162
+1163
+1164
+1165
+1166
+1167
+1168
+1169
+1170
+1171
+1172
+1173
+1174
+1175
+1176
+1177
+1178
+1179
+1180
+1181
+1182
+1183
+1184
+1185
+1186
+1187
+1188
+1189
+1190
+1191
+1192
+1193
+1194
+1195
+1196
+1197
+1198
+1199
+1200
+1201
+1202
+1203
+1204
+1205
+1206
+1207
+1208
+1209
+1210
+1211
+1212
+1213
+1214
+1215
+1216
+1218
+1219
+1220
+1221
+1222
+1223
+1224
+1225
+1226
+1227
+1228
+1229
+1230
+1232
+1233
+1234
+1235
+1236
+1237
+1238
+1239
+1240
+1241
+1242
+1243
+1244
+1245
+1246
+1247
+1248
+1249
+1250
+1251
+1252
+1253
+1254
+1255
+1256
+1257
+1258
+1259
+1260
+1261
+1262
+1263
+1264
+1265
+1266
+1267
+1268
+1269
+1270
+1271
+1272
+1273
+1274
+1275
+1276
+1277
+1278
+1279
+1280
+1281
+1282
+1283
+1284
+1285
+1286
+1287
+1288
+1289
+1290
+1291
+1292
+1293
+1294
+1295
+1296
+1297
+1298
+1299
+1300
+1301
+1302
+1303
+1304
+1305
+1306
+1307
+1308
+1309
+1310
+1311
+1312
+1313
+1314
+1315
+1316
+1317
+1318
+1319
+1320
+1321
+1322
+1323
+1324
+1325
+1326
+1327
+1329
+1367
+1415
+1416
+1564
+1565
+1653
+1657
+2392
+2400
+2524
+2526
+2527
+2528
+2611
+2612
+2614
+2615
+2649
+2652
+2654
+2655
+2908
+2910
+3635
+3636
+3763
+3764
+3804
+3806
+3852
+3853
+3907
+3908
+3917
+3918
+3922
+3923
+3927
+3928
+3932
+3933
+3945
+3946
+3955
+3956
+3957
+3962
+3969
+3970
+3987
+3988
+3997
+3998
+4002
+4003
+4007
+4008
+4012
+4013
+4025
+4026
+4256
+4294
+4295
+4296
+4301
+4302
+4348
+4349
+4447
+4449
+5112
+5118
+6068
+6070
+6155
+6159
+7468
+7471
+7472
+7483
+7484
+7502
+7503
+7531
+7544
+7545
+7579
+7616
+7680
+7681
+7682
+7683
+7684
+7685
+7686
+7687
+7688
+7689
+7690
+7691
+7692
+7693
+7694
+7695
+7696
+7697
+7698
+7699
+7700
+7701
+7702
+7703
+7704
+7705
+7706
+7707
+7708
+7709
+7710
+7711
+7712
+7713
+7714
+7715
+7716
+7717
+7718
+7719
+7720
+7721
+7722
+7723
+7724
+7725
+7726
+7727
+7728
+7729
+7730
+7731
+7732
+7733
+7734
+7735
+7736
+7737
+7738
+7739
+7740
+7741
+7742
+7743
+7744
+7745
+7746
+7747
+7748
+7749
+7750
+7751
+7752
+7753
+7754
+7755
+7756
+7757
+7758
+7759
+7760
+7761
+7762
+7763
+7764
+7765
+7766
+7767
+7768
+7769
+7770
+7771
+7772
+7773
+7774
+7775
+7776
+7777
+7778
+7779
+7780
+7781
+7782
+7783
+7784
+7785
+7786
+7787
+7788
+7789
+7790
+7791
+7792
+7793
+7794
+7795
+7796
+7797
+7798
+7799
+7800
+7801
+7802
+7803
+7804
+7805
+7806
+7807
+7808
+7809
+7810
+7811
+7812
+7813
+7814
+7815
+7816
+7817
+7818
+7819
+7820
+7821
+7822
+7823
+7824
+7825
+7826
+7827
+7828
+7829
+7834
+7836
+7838
+7839
+7840
+7841
+7842
+7843
+7844
+7845
+7846
+7847
+7848
+7849
+7850
+7851
+7852
+7853
+7854
+7855
+7856
+7857
+7858
+7859
+7860
+7861
+7862
+7863
+7864
+7865
+7866
+7867
+7868
+7869
+7870
+7871
+7872
+7873
+7874
+7875
+7876
+7877
+7878
+7879
+7880
+7881
+7882
+7883
+7884
+7885
+7886
+7887
+7888
+7889
+7890
+7891
+7892
+7893
+7894
+7895
+7896
+7897
+7898
+7899
+7900
+7901
+7902
+7903
+7904
+7905
+7906
+7907
+7908
+7909
+7910
+7911
+7912
+7913
+7914
+7915
+7916
+7917
+7918
+7919
+7920
+7921
+7922
+7923
+7924
+7925
+7926
+7927
+7928
+7929
+7930
+7931
+7932
+7933
+7934
+7935
+7944
+7952
+7960
+7966
+7976
+7984
+7992
+8000
+8008
+8014
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8032
+8040
+8048
+8049
+8050
+8051
+8052
+8053
+8054
+8055
+8056
+8057
+8058
+8059
+8060
+8061
+8062
+8064
+8112
+8114
+8117
+8119
+8133
+8135
+8144
+8147
+8148
+8152
+8156
+8157
+8160
+8163
+8164
+8168
+8176
+8178
+8181
+8183
+8191
+8192
+8208
+8209
+8210
+8215
+8216
+8228
+8231
+8234
+8240
+8243
+8245
+8246
+8248
+8252
+8253
+8254
+8255
+8263
+8266
+8279
+8280
+8287
+8306
+8308
+8335
+8336
+8349
+8360
+8361
+8448
+8452
+8453
+8456
+8457
+8468
+8469
+8471
+8473
+8478
+8480
+8483
+8484
+8485
+8486
+8487
+8488
+8489
+8490
+8494
+8495
+8506
+8507
+8513
+8517
+8522
+8528
+8576
+8579
+8580
+8585
+8586
+8748
+8750
+8751
+8753
+9001
+9003
+9312
+9451
+10764
+10765
+10868
+10871
+10972
+10973
+11264
+11311
+11360
+11361
+11362
+11365
+11367
+11368
+11369
+11370
+11371
+11372
+11373
+11377
+11378
+11379
+11381
+11382
+11388
+11393
+11394
+11395
+11396
+11397
+11398
+11399
+11400
+11401
+11402
+11403
+11404
+11405
+11406
+11407
+11408
+11409
+11410
+11411
+11412
+11413
+11414
+11415
+11416
+11417
+11418
+11419
+11420
+11421
+11422
+11423
+11424
+11425
+11426
+11427
+11428
+11429
+11430
+11431
+11432
+11433
+11434
+11435
+11436
+11437
+11438
+11439
+11440
+11441
+11442
+11443
+11444
+11445
+11446
+11447
+11448
+11449
+11450
+11451
+11452
+11453
+11454
+11455
+11456
+11457
+11458
+11459
+11460
+11461
+11462
+11463
+11464
+11465
+11466
+11467
+11468
+11469
+11470
+11471
+11472
+11473
+11474
+11475
+11476
+11477
+11478
+11479
+11480
+11481
+11482
+11483
+11484
+11485
+11486
+11487
+11488
+11489
+11490
+11491
+11499
+11500
+11501
+11502
+11506
+11507
+11631
+11632
+11935
+11936
+12019
+12020
+12032
+12246
+12288
+12289
+12342
+12343
+12344
+12347
+12443
+12445
+12447
+12448
+12543
+12544
+12593
+12687
+12690
+12704
+12800
+12831
+12832
+12872
+12880
+12927
+12928
+13055
+13056
+13312
+42560
+42561
+42562
+42563
+42564
+42565
+42566
+42567
+42568
+42569
+42570
+42571
+42572
+42573
+42574
+42575
+42576
+42577
+42578
+42579
+42580
+42581
+42582
+42583
+42584
+42585
+42586
+42587
+42588
+42589
+42590
+42591
+42592
+42593
+42594
+42595
+42596
+42597
+42598
+42599
+42600
+42601
+42602
+42603
+42604
+42605
+42624
+42625
+42626
+42627
+42628
+42629
+42630
+42631
+42632
+42633
+42634
+42635
+42636
+42637
+42638
+42639
+42640
+42641
+42642
+42643
+42644
+42645
+42646
+42647
+42648
+42649
+42650
+42651
+42652
+42654
+42786
+42787
+42788
+42789
+42790
+42791
+42792
+42793
+42794
+42795
+42796
+42797
+42798
+42799
+42802
+42803
+42804
+42805
+42806
+42807
+42808
+42809
+42810
+42811
+42812
+42813
+42814
+42815
+42816
+42817
+42818
+42819
+42820
+42821
+42822
+42823
+42824
+42825
+42826
+42827
+42828
+42829
+42830
+42831
+42832
+42833
+42834
+42835
+42836
+42837
+42838
+42839
+42840
+42841
+42842
+42843
+42844
+42845
+42846
+42847
+42848
+42849
+42850
+42851
+42852
+42853
+42854
+42855
+42856
+42857
+42858
+42859
+42860
+42861
+42862
+42863
+42864
+42865
+42873
+42874
+42875
+42876
+42877
+42879
+42880
+42881
+42882
+42883
+42884
+42885
+42886
+42887
+42891
+42892
+42893
+42894
+42896
+42897
+42898
+42899
+42902
+42903
+42904
+42905
+42906
+42907
+42908
+42909
+42910
+42911
+42912
+42913
+42914
+42915
+42916
+42917
+42918
+42919
+42920
+42921
+42922
+42926
+42928
+42933
+42934
+42935
+43000
+43002
+43868
+43872
+43888
+43968
+63744
+64014
+64016
+64017
+64018
+64019
+64021
+64031
+64032
+64033
+64034
+64035
+64037
+64039
+64042
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64286
+64287
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64434
+64467
+64830
+64848
+64912
+64914
+64968
+65008
+65021
+65024
+65050
+65072
+65093
+65095
+65107
+65108
+65127
+65128
+65132
+65136
+65139
+65140
+65141
+65142
+65277
+65279
+65280
+65281
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+65520
+65529
+66560
+66600
+68736
+68787
+71840
+71872
+113824
+113828
+119134
+119141
+119155
+119163
+119227
+119233
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120780
+120782
+120832
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+127232
+127243
+127248
+127279
+127280
+127312
+127338
+127340
+127376
+127377
+127488
+127491
+127504
+127547
+127552
+127561
+127568
+127570
+194560
+195102
+917504
+921600
+END
diff --git a/lib/5.24.1/unicore/lib/CWL/Y.pl b/lib/5.24.1/unicore/lib/CWL/Y.pl
new file mode 100644
index 00000000..00cfc2b8
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/CWL/Y.pl
@@ -0,0 +1,1190 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1176
+65
+91
+192
+215
+216
+223
+256
+257
+258
+259
+260
+261
+262
+263
+264
+265
+266
+267
+268
+269
+270
+271
+272
+273
+274
+275
+276
+277
+278
+279
+280
+281
+282
+283
+284
+285
+286
+287
+288
+289
+290
+291
+292
+293
+294
+295
+296
+297
+298
+299
+300
+301
+302
+303
+304
+305
+306
+307
+308
+309
+310
+311
+313
+314
+315
+316
+317
+318
+319
+320
+321
+322
+323
+324
+325
+326
+327
+328
+330
+331
+332
+333
+334
+335
+336
+337
+338
+339
+340
+341
+342
+343
+344
+345
+346
+347
+348
+349
+350
+351
+352
+353
+354
+355
+356
+357
+358
+359
+360
+361
+362
+363
+364
+365
+366
+367
+368
+369
+370
+371
+372
+373
+374
+375
+376
+378
+379
+380
+381
+382
+385
+387
+388
+389
+390
+392
+393
+396
+398
+402
+403
+405
+406
+409
+412
+414
+415
+417
+418
+419
+420
+421
+422
+424
+425
+426
+428
+429
+430
+432
+433
+436
+437
+438
+439
+441
+444
+445
+452
+454
+455
+457
+458
+460
+461
+462
+463
+464
+465
+466
+467
+468
+469
+470
+471
+472
+473
+474
+475
+476
+478
+479
+480
+481
+482
+483
+484
+485
+486
+487
+488
+489
+490
+491
+492
+493
+494
+495
+497
+499
+500
+501
+502
+505
+506
+507
+508
+509
+510
+511
+512
+513
+514
+515
+516
+517
+518
+519
+520
+521
+522
+523
+524
+525
+526
+527
+528
+529
+530
+531
+532
+533
+534
+535
+536
+537
+538
+539
+540
+541
+542
+543
+544
+545
+546
+547
+548
+549
+550
+551
+552
+553
+554
+555
+556
+557
+558
+559
+560
+561
+562
+563
+570
+572
+573
+575
+577
+578
+579
+583
+584
+585
+586
+587
+588
+589
+590
+591
+880
+881
+882
+883
+886
+887
+895
+896
+902
+903
+904
+907
+908
+909
+910
+912
+913
+930
+931
+940
+975
+976
+984
+985
+986
+987
+988
+989
+990
+991
+992
+993
+994
+995
+996
+997
+998
+999
+1000
+1001
+1002
+1003
+1004
+1005
+1006
+1007
+1012
+1013
+1015
+1016
+1017
+1019
+1021
+1072
+1120
+1121
+1122
+1123
+1124
+1125
+1126
+1127
+1128
+1129
+1130
+1131
+1132
+1133
+1134
+1135
+1136
+1137
+1138
+1139
+1140
+1141
+1142
+1143
+1144
+1145
+1146
+1147
+1148
+1149
+1150
+1151
+1152
+1153
+1162
+1163
+1164
+1165
+1166
+1167
+1168
+1169
+1170
+1171
+1172
+1173
+1174
+1175
+1176
+1177
+1178
+1179
+1180
+1181
+1182
+1183
+1184
+1185
+1186
+1187
+1188
+1189
+1190
+1191
+1192
+1193
+1194
+1195
+1196
+1197
+1198
+1199
+1200
+1201
+1202
+1203
+1204
+1205
+1206
+1207
+1208
+1209
+1210
+1211
+1212
+1213
+1214
+1215
+1216
+1218
+1219
+1220
+1221
+1222
+1223
+1224
+1225
+1226
+1227
+1228
+1229
+1230
+1232
+1233
+1234
+1235
+1236
+1237
+1238
+1239
+1240
+1241
+1242
+1243
+1244
+1245
+1246
+1247
+1248
+1249
+1250
+1251
+1252
+1253
+1254
+1255
+1256
+1257
+1258
+1259
+1260
+1261
+1262
+1263
+1264
+1265
+1266
+1267
+1268
+1269
+1270
+1271
+1272
+1273
+1274
+1275
+1276
+1277
+1278
+1279
+1280
+1281
+1282
+1283
+1284
+1285
+1286
+1287
+1288
+1289
+1290
+1291
+1292
+1293
+1294
+1295
+1296
+1297
+1298
+1299
+1300
+1301
+1302
+1303
+1304
+1305
+1306
+1307
+1308
+1309
+1310
+1311
+1312
+1313
+1314
+1315
+1316
+1317
+1318
+1319
+1320
+1321
+1322
+1323
+1324
+1325
+1326
+1327
+1329
+1367
+4256
+4294
+4295
+4296
+4301
+4302
+5024
+5110
+7680
+7681
+7682
+7683
+7684
+7685
+7686
+7687
+7688
+7689
+7690
+7691
+7692
+7693
+7694
+7695
+7696
+7697
+7698
+7699
+7700
+7701
+7702
+7703
+7704
+7705
+7706
+7707
+7708
+7709
+7710
+7711
+7712
+7713
+7714
+7715
+7716
+7717
+7718
+7719
+7720
+7721
+7722
+7723
+7724
+7725
+7726
+7727
+7728
+7729
+7730
+7731
+7732
+7733
+7734
+7735
+7736
+7737
+7738
+7739
+7740
+7741
+7742
+7743
+7744
+7745
+7746
+7747
+7748
+7749
+7750
+7751
+7752
+7753
+7754
+7755
+7756
+7757
+7758
+7759
+7760
+7761
+7762
+7763
+7764
+7765
+7766
+7767
+7768
+7769
+7770
+7771
+7772
+7773
+7774
+7775
+7776
+7777
+7778
+7779
+7780
+7781
+7782
+7783
+7784
+7785
+7786
+7787
+7788
+7789
+7790
+7791
+7792
+7793
+7794
+7795
+7796
+7797
+7798
+7799
+7800
+7801
+7802
+7803
+7804
+7805
+7806
+7807
+7808
+7809
+7810
+7811
+7812
+7813
+7814
+7815
+7816
+7817
+7818
+7819
+7820
+7821
+7822
+7823
+7824
+7825
+7826
+7827
+7828
+7829
+7838
+7839
+7840
+7841
+7842
+7843
+7844
+7845
+7846
+7847
+7848
+7849
+7850
+7851
+7852
+7853
+7854
+7855
+7856
+7857
+7858
+7859
+7860
+7861
+7862
+7863
+7864
+7865
+7866
+7867
+7868
+7869
+7870
+7871
+7872
+7873
+7874
+7875
+7876
+7877
+7878
+7879
+7880
+7881
+7882
+7883
+7884
+7885
+7886
+7887
+7888
+7889
+7890
+7891
+7892
+7893
+7894
+7895
+7896
+7897
+7898
+7899
+7900
+7901
+7902
+7903
+7904
+7905
+7906
+7907
+7908
+7909
+7910
+7911
+7912
+7913
+7914
+7915
+7916
+7917
+7918
+7919
+7920
+7921
+7922
+7923
+7924
+7925
+7926
+7927
+7928
+7929
+7930
+7931
+7932
+7933
+7934
+7935
+7944
+7952
+7960
+7966
+7976
+7984
+7992
+8000
+8008
+8014
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8032
+8040
+8048
+8072
+8080
+8088
+8096
+8104
+8112
+8120
+8125
+8136
+8141
+8152
+8156
+8168
+8173
+8184
+8189
+8486
+8487
+8490
+8492
+8498
+8499
+8544
+8560
+8579
+8580
+9398
+9424
+11264
+11311
+11360
+11361
+11362
+11365
+11367
+11368
+11369
+11370
+11371
+11372
+11373
+11377
+11378
+11379
+11381
+11382
+11390
+11393
+11394
+11395
+11396
+11397
+11398
+11399
+11400
+11401
+11402
+11403
+11404
+11405
+11406
+11407
+11408
+11409
+11410
+11411
+11412
+11413
+11414
+11415
+11416
+11417
+11418
+11419
+11420
+11421
+11422
+11423
+11424
+11425
+11426
+11427
+11428
+11429
+11430
+11431
+11432
+11433
+11434
+11435
+11436
+11437
+11438
+11439
+11440
+11441
+11442
+11443
+11444
+11445
+11446
+11447
+11448
+11449
+11450
+11451
+11452
+11453
+11454
+11455
+11456
+11457
+11458
+11459
+11460
+11461
+11462
+11463
+11464
+11465
+11466
+11467
+11468
+11469
+11470
+11471
+11472
+11473
+11474
+11475
+11476
+11477
+11478
+11479
+11480
+11481
+11482
+11483
+11484
+11485
+11486
+11487
+11488
+11489
+11490
+11491
+11499
+11500
+11501
+11502
+11506
+11507
+42560
+42561
+42562
+42563
+42564
+42565
+42566
+42567
+42568
+42569
+42570
+42571
+42572
+42573
+42574
+42575
+42576
+42577
+42578
+42579
+42580
+42581
+42582
+42583
+42584
+42585
+42586
+42587
+42588
+42589
+42590
+42591
+42592
+42593
+42594
+42595
+42596
+42597
+42598
+42599
+42600
+42601
+42602
+42603
+42604
+42605
+42624
+42625
+42626
+42627
+42628
+42629
+42630
+42631
+42632
+42633
+42634
+42635
+42636
+42637
+42638
+42639
+42640
+42641
+42642
+42643
+42644
+42645
+42646
+42647
+42648
+42649
+42650
+42651
+42786
+42787
+42788
+42789
+42790
+42791
+42792
+42793
+42794
+42795
+42796
+42797
+42798
+42799
+42802
+42803
+42804
+42805
+42806
+42807
+42808
+42809
+42810
+42811
+42812
+42813
+42814
+42815
+42816
+42817
+42818
+42819
+42820
+42821
+42822
+42823
+42824
+42825
+42826
+42827
+42828
+42829
+42830
+42831
+42832
+42833
+42834
+42835
+42836
+42837
+42838
+42839
+42840
+42841
+42842
+42843
+42844
+42845
+42846
+42847
+42848
+42849
+42850
+42851
+42852
+42853
+42854
+42855
+42856
+42857
+42858
+42859
+42860
+42861
+42862
+42863
+42873
+42874
+42875
+42876
+42877
+42879
+42880
+42881
+42882
+42883
+42884
+42885
+42886
+42887
+42891
+42892
+42893
+42894
+42896
+42897
+42898
+42899
+42902
+42903
+42904
+42905
+42906
+42907
+42908
+42909
+42910
+42911
+42912
+42913
+42914
+42915
+42916
+42917
+42918
+42919
+42920
+42921
+42922
+42926
+42928
+42933
+42934
+42935
+65313
+65339
+66560
+66600
+68736
+68787
+71840
+71872
+END
diff --git a/lib/5.24.1/unicore/lib/CWT/Y.pl b/lib/5.24.1/unicore/lib/CWT/Y.pl
new file mode 100644
index 00000000..9a43c475
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/CWT/Y.pl
@@ -0,0 +1,1226 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1212
+97
+123
+181
+182
+223
+247
+248
+256
+257
+258
+259
+260
+261
+262
+263
+264
+265
+266
+267
+268
+269
+270
+271
+272
+273
+274
+275
+276
+277
+278
+279
+280
+281
+282
+283
+284
+285
+286
+287
+288
+289
+290
+291
+292
+293
+294
+295
+296
+297
+298
+299
+300
+301
+302
+303
+304
+305
+306
+307
+308
+309
+310
+311
+312
+314
+315
+316
+317
+318
+319
+320
+321
+322
+323
+324
+325
+326
+327
+328
+330
+331
+332
+333
+334
+335
+336
+337
+338
+339
+340
+341
+342
+343
+344
+345
+346
+347
+348
+349
+350
+351
+352
+353
+354
+355
+356
+357
+358
+359
+360
+361
+362
+363
+364
+365
+366
+367
+368
+369
+370
+371
+372
+373
+374
+375
+376
+378
+379
+380
+381
+382
+385
+387
+388
+389
+390
+392
+393
+396
+397
+402
+403
+405
+406
+409
+411
+414
+415
+417
+418
+419
+420
+421
+422
+424
+425
+429
+430
+432
+433
+436
+437
+438
+439
+441
+442
+445
+446
+447
+448
+452
+453
+454
+456
+457
+459
+460
+461
+462
+463
+464
+465
+466
+467
+468
+469
+470
+471
+472
+473
+474
+475
+476
+478
+479
+480
+481
+482
+483
+484
+485
+486
+487
+488
+489
+490
+491
+492
+493
+494
+495
+498
+499
+500
+501
+502
+505
+506
+507
+508
+509
+510
+511
+512
+513
+514
+515
+516
+517
+518
+519
+520
+521
+522
+523
+524
+525
+526
+527
+528
+529
+530
+531
+532
+533
+534
+535
+536
+537
+538
+539
+540
+541
+542
+543
+544
+547
+548
+549
+550
+551
+552
+553
+554
+555
+556
+557
+558
+559
+560
+561
+562
+563
+564
+572
+573
+575
+577
+578
+579
+583
+584
+585
+586
+587
+588
+589
+590
+591
+597
+598
+600
+601
+602
+603
+605
+608
+610
+611
+612
+613
+615
+616
+618
+619
+621
+623
+624
+625
+627
+629
+630
+637
+638
+640
+641
+643
+644
+647
+653
+658
+659
+669
+671
+837
+838
+881
+882
+883
+884
+887
+888
+891
+894
+912
+913
+940
+975
+976
+978
+981
+984
+985
+986
+987
+988
+989
+990
+991
+992
+993
+994
+995
+996
+997
+998
+999
+1000
+1001
+1002
+1003
+1004
+1005
+1006
+1007
+1012
+1013
+1014
+1016
+1017
+1019
+1020
+1072
+1120
+1121
+1122
+1123
+1124
+1125
+1126
+1127
+1128
+1129
+1130
+1131
+1132
+1133
+1134
+1135
+1136
+1137
+1138
+1139
+1140
+1141
+1142
+1143
+1144
+1145
+1146
+1147
+1148
+1149
+1150
+1151
+1152
+1153
+1154
+1163
+1164
+1165
+1166
+1167
+1168
+1169
+1170
+1171
+1172
+1173
+1174
+1175
+1176
+1177
+1178
+1179
+1180
+1181
+1182
+1183
+1184
+1185
+1186
+1187
+1188
+1189
+1190
+1191
+1192
+1193
+1194
+1195
+1196
+1197
+1198
+1199
+1200
+1201
+1202
+1203
+1204
+1205
+1206
+1207
+1208
+1209
+1210
+1211
+1212
+1213
+1214
+1215
+1216
+1218
+1219
+1220
+1221
+1222
+1223
+1224
+1225
+1226
+1227
+1228
+1229
+1230
+1232
+1233
+1234
+1235
+1236
+1237
+1238
+1239
+1240
+1241
+1242
+1243
+1244
+1245
+1246
+1247
+1248
+1249
+1250
+1251
+1252
+1253
+1254
+1255
+1256
+1257
+1258
+1259
+1260
+1261
+1262
+1263
+1264
+1265
+1266
+1267
+1268
+1269
+1270
+1271
+1272
+1273
+1274
+1275
+1276
+1277
+1278
+1279
+1280
+1281
+1282
+1283
+1284
+1285
+1286
+1287
+1288
+1289
+1290
+1291
+1292
+1293
+1294
+1295
+1296
+1297
+1298
+1299
+1300
+1301
+1302
+1303
+1304
+1305
+1306
+1307
+1308
+1309
+1310
+1311
+1312
+1313
+1314
+1315
+1316
+1317
+1318
+1319
+1320
+1321
+1322
+1323
+1324
+1325
+1326
+1327
+1328
+1377
+1416
+5112
+5118
+7545
+7546
+7549
+7550
+7681
+7682
+7683
+7684
+7685
+7686
+7687
+7688
+7689
+7690
+7691
+7692
+7693
+7694
+7695
+7696
+7697
+7698
+7699
+7700
+7701
+7702
+7703
+7704
+7705
+7706
+7707
+7708
+7709
+7710
+7711
+7712
+7713
+7714
+7715
+7716
+7717
+7718
+7719
+7720
+7721
+7722
+7723
+7724
+7725
+7726
+7727
+7728
+7729
+7730
+7731
+7732
+7733
+7734
+7735
+7736
+7737
+7738
+7739
+7740
+7741
+7742
+7743
+7744
+7745
+7746
+7747
+7748
+7749
+7750
+7751
+7752
+7753
+7754
+7755
+7756
+7757
+7758
+7759
+7760
+7761
+7762
+7763
+7764
+7765
+7766
+7767
+7768
+7769
+7770
+7771
+7772
+7773
+7774
+7775
+7776
+7777
+7778
+7779
+7780
+7781
+7782
+7783
+7784
+7785
+7786
+7787
+7788
+7789
+7790
+7791
+7792
+7793
+7794
+7795
+7796
+7797
+7798
+7799
+7800
+7801
+7802
+7803
+7804
+7805
+7806
+7807
+7808
+7809
+7810
+7811
+7812
+7813
+7814
+7815
+7816
+7817
+7818
+7819
+7820
+7821
+7822
+7823
+7824
+7825
+7826
+7827
+7828
+7829
+7836
+7841
+7842
+7843
+7844
+7845
+7846
+7847
+7848
+7849
+7850
+7851
+7852
+7853
+7854
+7855
+7856
+7857
+7858
+7859
+7860
+7861
+7862
+7863
+7864
+7865
+7866
+7867
+7868
+7869
+7870
+7871
+7872
+7873
+7874
+7875
+7876
+7877
+7878
+7879
+7880
+7881
+7882
+7883
+7884
+7885
+7886
+7887
+7888
+7889
+7890
+7891
+7892
+7893
+7894
+7895
+7896
+7897
+7898
+7899
+7900
+7901
+7902
+7903
+7904
+7905
+7906
+7907
+7908
+7909
+7910
+7911
+7912
+7913
+7914
+7915
+7916
+7917
+7918
+7919
+7920
+7921
+7922
+7923
+7924
+7925
+7926
+7927
+7928
+7929
+7930
+7931
+7932
+7933
+7934
+7935
+7944
+7952
+7958
+7968
+7976
+7984
+7992
+8000
+8006
+8016
+8024
+8032
+8040
+8048
+8062
+8064
+8072
+8080
+8088
+8096
+8104
+8112
+8117
+8118
+8120
+8126
+8127
+8130
+8133
+8134
+8136
+8144
+8148
+8150
+8152
+8160
+8168
+8178
+8181
+8182
+8184
+8526
+8527
+8560
+8576
+8580
+8581
+9424
+9450
+11312
+11359
+11361
+11362
+11365
+11367
+11368
+11369
+11370
+11371
+11372
+11373
+11379
+11380
+11382
+11383
+11393
+11394
+11395
+11396
+11397
+11398
+11399
+11400
+11401
+11402
+11403
+11404
+11405
+11406
+11407
+11408
+11409
+11410
+11411
+11412
+11413
+11414
+11415
+11416
+11417
+11418
+11419
+11420
+11421
+11422
+11423
+11424
+11425
+11426
+11427
+11428
+11429
+11430
+11431
+11432
+11433
+11434
+11435
+11436
+11437
+11438
+11439
+11440
+11441
+11442
+11443
+11444
+11445
+11446
+11447
+11448
+11449
+11450
+11451
+11452
+11453
+11454
+11455
+11456
+11457
+11458
+11459
+11460
+11461
+11462
+11463
+11464
+11465
+11466
+11467
+11468
+11469
+11470
+11471
+11472
+11473
+11474
+11475
+11476
+11477
+11478
+11479
+11480
+11481
+11482
+11483
+11484
+11485
+11486
+11487
+11488
+11489
+11490
+11491
+11492
+11500
+11501
+11502
+11503
+11507
+11508
+11520
+11558
+11559
+11560
+11565
+11566
+42561
+42562
+42563
+42564
+42565
+42566
+42567
+42568
+42569
+42570
+42571
+42572
+42573
+42574
+42575
+42576
+42577
+42578
+42579
+42580
+42581
+42582
+42583
+42584
+42585
+42586
+42587
+42588
+42589
+42590
+42591
+42592
+42593
+42594
+42595
+42596
+42597
+42598
+42599
+42600
+42601
+42602
+42603
+42604
+42605
+42606
+42625
+42626
+42627
+42628
+42629
+42630
+42631
+42632
+42633
+42634
+42635
+42636
+42637
+42638
+42639
+42640
+42641
+42642
+42643
+42644
+42645
+42646
+42647
+42648
+42649
+42650
+42651
+42652
+42787
+42788
+42789
+42790
+42791
+42792
+42793
+42794
+42795
+42796
+42797
+42798
+42799
+42800
+42803
+42804
+42805
+42806
+42807
+42808
+42809
+42810
+42811
+42812
+42813
+42814
+42815
+42816
+42817
+42818
+42819
+42820
+42821
+42822
+42823
+42824
+42825
+42826
+42827
+42828
+42829
+42830
+42831
+42832
+42833
+42834
+42835
+42836
+42837
+42838
+42839
+42840
+42841
+42842
+42843
+42844
+42845
+42846
+42847
+42848
+42849
+42850
+42851
+42852
+42853
+42854
+42855
+42856
+42857
+42858
+42859
+42860
+42861
+42862
+42863
+42864
+42874
+42875
+42876
+42877
+42879
+42880
+42881
+42882
+42883
+42884
+42885
+42886
+42887
+42888
+42892
+42893
+42897
+42898
+42899
+42900
+42903
+42904
+42905
+42906
+42907
+42908
+42909
+42910
+42911
+42912
+42913
+42914
+42915
+42916
+42917
+42918
+42919
+42920
+42921
+42922
+42933
+42934
+42935
+42936
+43859
+43860
+43888
+43968
+64256
+64263
+64275
+64280
+65345
+65371
+66600
+66640
+68800
+68851
+71872
+71904
+END
diff --git a/lib/5.24.1/unicore/lib/CWU/Y.pl b/lib/5.24.1/unicore/lib/CWU/Y.pl
new file mode 100644
index 00000000..2a54e0a2
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/CWU/Y.pl
@@ -0,0 +1,1224 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1210
+97
+123
+181
+182
+223
+247
+248
+256
+257
+258
+259
+260
+261
+262
+263
+264
+265
+266
+267
+268
+269
+270
+271
+272
+273
+274
+275
+276
+277
+278
+279
+280
+281
+282
+283
+284
+285
+286
+287
+288
+289
+290
+291
+292
+293
+294
+295
+296
+297
+298
+299
+300
+301
+302
+303
+304
+305
+306
+307
+308
+309
+310
+311
+312
+314
+315
+316
+317
+318
+319
+320
+321
+322
+323
+324
+325
+326
+327
+328
+330
+331
+332
+333
+334
+335
+336
+337
+338
+339
+340
+341
+342
+343
+344
+345
+346
+347
+348
+349
+350
+351
+352
+353
+354
+355
+356
+357
+358
+359
+360
+361
+362
+363
+364
+365
+366
+367
+368
+369
+370
+371
+372
+373
+374
+375
+376
+378
+379
+380
+381
+382
+385
+387
+388
+389
+390
+392
+393
+396
+397
+402
+403
+405
+406
+409
+411
+414
+415
+417
+418
+419
+420
+421
+422
+424
+425
+429
+430
+432
+433
+436
+437
+438
+439
+441
+442
+445
+446
+447
+448
+453
+455
+456
+458
+459
+461
+462
+463
+464
+465
+466
+467
+468
+469
+470
+471
+472
+473
+474
+475
+476
+478
+479
+480
+481
+482
+483
+484
+485
+486
+487
+488
+489
+490
+491
+492
+493
+494
+495
+497
+498
+500
+501
+502
+505
+506
+507
+508
+509
+510
+511
+512
+513
+514
+515
+516
+517
+518
+519
+520
+521
+522
+523
+524
+525
+526
+527
+528
+529
+530
+531
+532
+533
+534
+535
+536
+537
+538
+539
+540
+541
+542
+543
+544
+547
+548
+549
+550
+551
+552
+553
+554
+555
+556
+557
+558
+559
+560
+561
+562
+563
+564
+572
+573
+575
+577
+578
+579
+583
+584
+585
+586
+587
+588
+589
+590
+591
+597
+598
+600
+601
+602
+603
+605
+608
+610
+611
+612
+613
+615
+616
+618
+619
+621
+623
+624
+625
+627
+629
+630
+637
+638
+640
+641
+643
+644
+647
+653
+658
+659
+669
+671
+837
+838
+881
+882
+883
+884
+887
+888
+891
+894
+912
+913
+940
+975
+976
+978
+981
+984
+985
+986
+987
+988
+989
+990
+991
+992
+993
+994
+995
+996
+997
+998
+999
+1000
+1001
+1002
+1003
+1004
+1005
+1006
+1007
+1012
+1013
+1014
+1016
+1017
+1019
+1020
+1072
+1120
+1121
+1122
+1123
+1124
+1125
+1126
+1127
+1128
+1129
+1130
+1131
+1132
+1133
+1134
+1135
+1136
+1137
+1138
+1139
+1140
+1141
+1142
+1143
+1144
+1145
+1146
+1147
+1148
+1149
+1150
+1151
+1152
+1153
+1154
+1163
+1164
+1165
+1166
+1167
+1168
+1169
+1170
+1171
+1172
+1173
+1174
+1175
+1176
+1177
+1178
+1179
+1180
+1181
+1182
+1183
+1184
+1185
+1186
+1187
+1188
+1189
+1190
+1191
+1192
+1193
+1194
+1195
+1196
+1197
+1198
+1199
+1200
+1201
+1202
+1203
+1204
+1205
+1206
+1207
+1208
+1209
+1210
+1211
+1212
+1213
+1214
+1215
+1216
+1218
+1219
+1220
+1221
+1222
+1223
+1224
+1225
+1226
+1227
+1228
+1229
+1230
+1232
+1233
+1234
+1235
+1236
+1237
+1238
+1239
+1240
+1241
+1242
+1243
+1244
+1245
+1246
+1247
+1248
+1249
+1250
+1251
+1252
+1253
+1254
+1255
+1256
+1257
+1258
+1259
+1260
+1261
+1262
+1263
+1264
+1265
+1266
+1267
+1268
+1269
+1270
+1271
+1272
+1273
+1274
+1275
+1276
+1277
+1278
+1279
+1280
+1281
+1282
+1283
+1284
+1285
+1286
+1287
+1288
+1289
+1290
+1291
+1292
+1293
+1294
+1295
+1296
+1297
+1298
+1299
+1300
+1301
+1302
+1303
+1304
+1305
+1306
+1307
+1308
+1309
+1310
+1311
+1312
+1313
+1314
+1315
+1316
+1317
+1318
+1319
+1320
+1321
+1322
+1323
+1324
+1325
+1326
+1327
+1328
+1377
+1416
+5112
+5118
+7545
+7546
+7549
+7550
+7681
+7682
+7683
+7684
+7685
+7686
+7687
+7688
+7689
+7690
+7691
+7692
+7693
+7694
+7695
+7696
+7697
+7698
+7699
+7700
+7701
+7702
+7703
+7704
+7705
+7706
+7707
+7708
+7709
+7710
+7711
+7712
+7713
+7714
+7715
+7716
+7717
+7718
+7719
+7720
+7721
+7722
+7723
+7724
+7725
+7726
+7727
+7728
+7729
+7730
+7731
+7732
+7733
+7734
+7735
+7736
+7737
+7738
+7739
+7740
+7741
+7742
+7743
+7744
+7745
+7746
+7747
+7748
+7749
+7750
+7751
+7752
+7753
+7754
+7755
+7756
+7757
+7758
+7759
+7760
+7761
+7762
+7763
+7764
+7765
+7766
+7767
+7768
+7769
+7770
+7771
+7772
+7773
+7774
+7775
+7776
+7777
+7778
+7779
+7780
+7781
+7782
+7783
+7784
+7785
+7786
+7787
+7788
+7789
+7790
+7791
+7792
+7793
+7794
+7795
+7796
+7797
+7798
+7799
+7800
+7801
+7802
+7803
+7804
+7805
+7806
+7807
+7808
+7809
+7810
+7811
+7812
+7813
+7814
+7815
+7816
+7817
+7818
+7819
+7820
+7821
+7822
+7823
+7824
+7825
+7826
+7827
+7828
+7829
+7836
+7841
+7842
+7843
+7844
+7845
+7846
+7847
+7848
+7849
+7850
+7851
+7852
+7853
+7854
+7855
+7856
+7857
+7858
+7859
+7860
+7861
+7862
+7863
+7864
+7865
+7866
+7867
+7868
+7869
+7870
+7871
+7872
+7873
+7874
+7875
+7876
+7877
+7878
+7879
+7880
+7881
+7882
+7883
+7884
+7885
+7886
+7887
+7888
+7889
+7890
+7891
+7892
+7893
+7894
+7895
+7896
+7897
+7898
+7899
+7900
+7901
+7902
+7903
+7904
+7905
+7906
+7907
+7908
+7909
+7910
+7911
+7912
+7913
+7914
+7915
+7916
+7917
+7918
+7919
+7920
+7921
+7922
+7923
+7924
+7925
+7926
+7927
+7928
+7929
+7930
+7931
+7932
+7933
+7934
+7935
+7944
+7952
+7958
+7968
+7976
+7984
+7992
+8000
+8006
+8016
+8024
+8032
+8040
+8048
+8062
+8064
+8117
+8118
+8120
+8124
+8125
+8126
+8127
+8130
+8133
+8134
+8136
+8140
+8141
+8144
+8148
+8150
+8152
+8160
+8168
+8178
+8181
+8182
+8184
+8188
+8189
+8526
+8527
+8560
+8576
+8580
+8581
+9424
+9450
+11312
+11359
+11361
+11362
+11365
+11367
+11368
+11369
+11370
+11371
+11372
+11373
+11379
+11380
+11382
+11383
+11393
+11394
+11395
+11396
+11397
+11398
+11399
+11400
+11401
+11402
+11403
+11404
+11405
+11406
+11407
+11408
+11409
+11410
+11411
+11412
+11413
+11414
+11415
+11416
+11417
+11418
+11419
+11420
+11421
+11422
+11423
+11424
+11425
+11426
+11427
+11428
+11429
+11430
+11431
+11432
+11433
+11434
+11435
+11436
+11437
+11438
+11439
+11440
+11441
+11442
+11443
+11444
+11445
+11446
+11447
+11448
+11449
+11450
+11451
+11452
+11453
+11454
+11455
+11456
+11457
+11458
+11459
+11460
+11461
+11462
+11463
+11464
+11465
+11466
+11467
+11468
+11469
+11470
+11471
+11472
+11473
+11474
+11475
+11476
+11477
+11478
+11479
+11480
+11481
+11482
+11483
+11484
+11485
+11486
+11487
+11488
+11489
+11490
+11491
+11492
+11500
+11501
+11502
+11503
+11507
+11508
+11520
+11558
+11559
+11560
+11565
+11566
+42561
+42562
+42563
+42564
+42565
+42566
+42567
+42568
+42569
+42570
+42571
+42572
+42573
+42574
+42575
+42576
+42577
+42578
+42579
+42580
+42581
+42582
+42583
+42584
+42585
+42586
+42587
+42588
+42589
+42590
+42591
+42592
+42593
+42594
+42595
+42596
+42597
+42598
+42599
+42600
+42601
+42602
+42603
+42604
+42605
+42606
+42625
+42626
+42627
+42628
+42629
+42630
+42631
+42632
+42633
+42634
+42635
+42636
+42637
+42638
+42639
+42640
+42641
+42642
+42643
+42644
+42645
+42646
+42647
+42648
+42649
+42650
+42651
+42652
+42787
+42788
+42789
+42790
+42791
+42792
+42793
+42794
+42795
+42796
+42797
+42798
+42799
+42800
+42803
+42804
+42805
+42806
+42807
+42808
+42809
+42810
+42811
+42812
+42813
+42814
+42815
+42816
+42817
+42818
+42819
+42820
+42821
+42822
+42823
+42824
+42825
+42826
+42827
+42828
+42829
+42830
+42831
+42832
+42833
+42834
+42835
+42836
+42837
+42838
+42839
+42840
+42841
+42842
+42843
+42844
+42845
+42846
+42847
+42848
+42849
+42850
+42851
+42852
+42853
+42854
+42855
+42856
+42857
+42858
+42859
+42860
+42861
+42862
+42863
+42864
+42874
+42875
+42876
+42877
+42879
+42880
+42881
+42882
+42883
+42884
+42885
+42886
+42887
+42888
+42892
+42893
+42897
+42898
+42899
+42900
+42903
+42904
+42905
+42906
+42907
+42908
+42909
+42910
+42911
+42912
+42913
+42914
+42915
+42916
+42917
+42918
+42919
+42920
+42921
+42922
+42933
+42934
+42935
+42936
+43859
+43860
+43888
+43968
+64256
+64263
+64275
+64280
+65345
+65371
+66600
+66640
+68800
+68851
+71872
+71904
+END
diff --git a/lib/5.24.1/unicore/lib/Cased/Y.pl b/lib/5.24.1/unicore/lib/Cased/Y.pl
new file mode 100644
index 00000000..1798f291
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Cased/Y.pl
@@ -0,0 +1,276 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V262
+65
+91
+97
+123
+170
+171
+181
+182
+186
+187
+192
+215
+216
+247
+248
+443
+444
+448
+452
+660
+661
+697
+704
+706
+736
+741
+837
+838
+880
+884
+886
+888
+890
+894
+895
+896
+902
+903
+904
+907
+908
+909
+910
+930
+931
+1014
+1015
+1154
+1162
+1328
+1329
+1367
+1377
+1416
+4256
+4294
+4295
+4296
+4301
+4302
+5024
+5110
+5112
+5118
+7424
+7616
+7680
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8125
+8126
+8127
+8130
+8133
+8134
+8141
+8144
+8148
+8150
+8156
+8160
+8173
+8178
+8181
+8182
+8189
+8305
+8306
+8319
+8320
+8336
+8349
+8450
+8451
+8455
+8456
+8458
+8468
+8469
+8470
+8473
+8478
+8484
+8485
+8486
+8487
+8488
+8489
+8490
+8494
+8495
+8501
+8505
+8506
+8508
+8512
+8517
+8522
+8526
+8527
+8544
+8576
+8579
+8581
+9398
+9450
+11264
+11311
+11312
+11359
+11360
+11493
+11499
+11503
+11506
+11508
+11520
+11558
+11559
+11560
+11565
+11566
+42560
+42606
+42624
+42654
+42786
+42888
+42891
+42895
+42896
+42926
+42928
+42936
+43000
+43003
+43824
+43867
+43868
+43878
+43888
+43968
+64256
+64263
+64275
+64280
+65313
+65339
+65345
+65371
+66560
+66640
+68736
+68787
+68800
+68851
+71840
+71904
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120513
+120514
+120539
+120540
+120571
+120572
+120597
+120598
+120629
+120630
+120655
+120656
+120687
+120688
+120713
+120714
+120745
+120746
+120771
+120772
+120780
+127280
+127306
+127312
+127338
+127344
+127370
+END
diff --git a/lib/5.24.1/unicore/lib/Ccc/A.pl b/lib/5.24.1/unicore/lib/Ccc/A.pl
new file mode 100644
index 00000000..67a7f856
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Ccc/A.pl
@@ -0,0 +1,218 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V204
+768
+789
+829
+837
+838
+839
+842
+845
+848
+851
+855
+856
+859
+860
+867
+880
+1155
+1160
+1426
+1430
+1431
+1434
+1436
+1442
+1448
+1450
+1451
+1453
+1455
+1456
+1476
+1477
+1552
+1560
+1619
+1621
+1623
+1628
+1629
+1631
+1750
+1757
+1759
+1763
+1764
+1765
+1767
+1769
+1771
+1773
+1840
+1841
+1842
+1844
+1845
+1847
+1850
+1851
+1853
+1854
+1855
+1858
+1859
+1860
+1861
+1862
+1863
+1864
+1865
+1867
+2027
+2034
+2035
+2036
+2070
+2074
+2075
+2084
+2085
+2088
+2089
+2094
+2276
+2278
+2279
+2281
+2282
+2285
+2291
+2294
+2295
+2297
+2299
+2304
+2385
+2386
+2387
+2389
+3970
+3972
+3974
+3976
+4957
+4960
+6109
+6110
+6458
+6459
+6679
+6680
+6773
+6781
+6832
+6837
+6843
+6845
+7019
+7020
+7021
+7028
+7376
+7379
+7386
+7388
+7392
+7393
+7412
+7413
+7416
+7418
+7616
+7618
+7619
+7626
+7627
+7629
+7633
+7670
+7678
+7679
+8400
+8402
+8404
+8408
+8411
+8413
+8417
+8418
+8423
+8424
+8425
+8426
+8432
+8433
+11503
+11506
+11744
+11776
+42607
+42608
+42612
+42622
+42654
+42656
+42736
+42738
+43232
+43250
+43696
+43697
+43698
+43700
+43703
+43705
+43710
+43712
+43713
+43714
+65056
+65063
+65070
+65072
+66422
+66427
+68111
+68112
+68152
+68153
+68325
+68326
+69888
+69891
+70502
+70509
+70512
+70517
+92976
+92983
+119173
+119178
+119210
+119214
+119362
+119365
+END
diff --git a/lib/5.24.1/unicore/lib/Ccc/AR.pl b/lib/5.24.1/unicore/lib/Ccc/AR.pl
new file mode 100644
index 00000000..bc28faf1
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Ccc/AR.pl
@@ -0,0 +1,22 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+789
+790
+794
+795
+856
+857
+12332
+12333
+END
diff --git a/lib/5.24.1/unicore/lib/Ccc/ATAR.pl b/lib/5.24.1/unicore/lib/Ccc/ATAR.pl
new file mode 100644
index 00000000..d2399f2b
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Ccc/ATAR.pl
@@ -0,0 +1,22 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+795
+796
+3897
+3898
+119141
+119143
+119150
+119155
+END
diff --git a/lib/5.24.1/unicore/lib/Ccc/B.pl b/lib/5.24.1/unicore/lib/Ccc/B.pl
new file mode 100644
index 00000000..e862a1b9
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Ccc/B.pl
@@ -0,0 +1,156 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V142
+790
+794
+796
+801
+803
+807
+809
+820
+825
+829
+839
+842
+845
+847
+851
+855
+857
+859
+1425
+1426
+1430
+1431
+1435
+1436
+1442
+1448
+1450
+1451
+1477
+1478
+1621
+1623
+1628
+1629
+1631
+1632
+1763
+1764
+1770
+1771
+1773
+1774
+1841
+1842
+1844
+1845
+1847
+1850
+1851
+1853
+1854
+1855
+1858
+1859
+1860
+1861
+1862
+1863
+1864
+1865
+2034
+2035
+2137
+2140
+2275
+2276
+2278
+2279
+2281
+2282
+2285
+2288
+2294
+2295
+2297
+2299
+2386
+2387
+3864
+3866
+3893
+3894
+3895
+3896
+4038
+4039
+4237
+4238
+6459
+6460
+6680
+6681
+6783
+6784
+6837
+6843
+6845
+6846
+7020
+7021
+7381
+7386
+7388
+7392
+7405
+7406
+7618
+7619
+7626
+7627
+7631
+7632
+7677
+7678
+7679
+7680
+8424
+8425
+8428
+8432
+43307
+43310
+43700
+43701
+65063
+65070
+66045
+66046
+66272
+66273
+68109
+68110
+68154
+68155
+68326
+68327
+119163
+119171
+119178
+119180
+125136
+125143
+END
diff --git a/lib/5.24.1/unicore/lib/Ccc/BR.pl b/lib/5.24.1/unicore/lib/Ccc/BR.pl
new file mode 100644
index 00000000..ed8c5502
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Ccc/BR.pl
@@ -0,0 +1,22 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+1434
+1435
+1453
+1454
+6457
+6458
+12333
+12334
+END
diff --git a/lib/5.24.1/unicore/lib/Ccc/DB.pl b/lib/5.24.1/unicore/lib/Ccc/DB.pl
new file mode 100644
index 00000000..24f1dcad
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Ccc/DB.pl
@@ -0,0 +1,22 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+860
+861
+863
+864
+866
+867
+7676
+7677
+END
diff --git a/lib/5.24.1/unicore/lib/Ccc/NK.pl b/lib/5.24.1/unicore/lib/Ccc/NK.pl
new file mode 100644
index 00000000..ff4615cd
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Ccc/NK.pl
@@ -0,0 +1,54 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V40
+2364
+2365
+2492
+2493
+2620
+2621
+2748
+2749
+2876
+2877
+3260
+3261
+4151
+4152
+6964
+6965
+7142
+7143
+7223
+7224
+43443
+43444
+69818
+69819
+70003
+70004
+70090
+70091
+70198
+70199
+70377
+70378
+70460
+70461
+70851
+70852
+71104
+71105
+71351
+71352
+END
diff --git a/lib/5.24.1/unicore/lib/Ccc/NR.pl b/lib/5.24.1/unicore/lib/Ccc/NR.pl
new file mode 100644
index 00000000..03b18b6f
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Ccc/NR.pl
@@ -0,0 +1,319 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V305
+0
+768
+847
+848
+880
+1155
+1160
+1425
+1470
+1471
+1472
+1473
+1475
+1476
+1478
+1479
+1480
+1552
+1563
+1611
+1632
+1648
+1649
+1750
+1757
+1759
+1765
+1767
+1769
+1770
+1774
+1809
+1810
+1840
+1867
+2027
+2036
+2070
+2074
+2075
+2084
+2085
+2088
+2089
+2094
+2137
+2140
+2275
+2304
+2364
+2365
+2381
+2382
+2385
+2389
+2492
+2493
+2509
+2510
+2620
+2621
+2637
+2638
+2748
+2749
+2765
+2766
+2876
+2877
+2893
+2894
+3021
+3022
+3149
+3150
+3157
+3159
+3260
+3261
+3277
+3278
+3405
+3406
+3530
+3531
+3640
+3643
+3656
+3660
+3768
+3770
+3784
+3788
+3864
+3866
+3893
+3894
+3895
+3896
+3897
+3898
+3953
+3955
+3956
+3957
+3962
+3966
+3968
+3969
+3970
+3973
+3974
+3976
+4038
+4039
+4151
+4152
+4153
+4155
+4237
+4238
+4957
+4960
+5908
+5909
+5940
+5941
+6098
+6099
+6109
+6110
+6313
+6314
+6457
+6460
+6679
+6681
+6752
+6753
+6773
+6781
+6783
+6784
+6832
+6846
+6964
+6965
+6980
+6981
+7019
+7028
+7082
+7084
+7142
+7143
+7154
+7156
+7223
+7224
+7376
+7379
+7380
+7393
+7394
+7401
+7405
+7406
+7412
+7413
+7416
+7418
+7616
+7670
+7676
+7680
+8400
+8413
+8417
+8418
+8421
+8433
+11503
+11506
+11647
+11648
+11744
+11776
+12330
+12336
+12441
+12443
+42607
+42608
+42612
+42622
+42654
+42656
+42736
+42738
+43014
+43015
+43204
+43205
+43232
+43250
+43307
+43310
+43347
+43348
+43443
+43444
+43456
+43457
+43696
+43697
+43698
+43701
+43703
+43705
+43710
+43712
+43713
+43714
+43766
+43767
+44013
+44014
+64286
+64287
+65056
+65072
+66045
+66046
+66272
+66273
+66422
+66427
+68109
+68110
+68111
+68112
+68152
+68155
+68159
+68160
+68325
+68327
+69702
+69703
+69759
+69760
+69817
+69819
+69888
+69891
+69939
+69941
+70003
+70004
+70080
+70081
+70090
+70091
+70197
+70199
+70377
+70379
+70460
+70461
+70477
+70478
+70502
+70509
+70512
+70517
+70850
+70852
+71103
+71105
+71231
+71232
+71350
+71352
+71467
+71468
+92912
+92917
+92976
+92983
+113822
+113823
+119141
+119146
+119149
+119155
+119163
+119171
+119173
+119180
+119210
+119214
+119362
+119365
+125136
+125143
+END
diff --git a/lib/5.24.1/unicore/lib/Ccc/OV.pl b/lib/5.24.1/unicore/lib/Ccc/OV.pl
new file mode 100644
index 00000000..d0eae80e
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Ccc/OV.pl
@@ -0,0 +1,36 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V22
+820
+825
+7380
+7381
+7394
+7401
+8402
+8404
+8408
+8411
+8421
+8423
+8426
+8428
+68153
+68154
+92912
+92917
+113822
+113823
+119143
+119146
+END
diff --git a/lib/5.24.1/unicore/lib/Ccc/VR.pl b/lib/5.24.1/unicore/lib/Ccc/VR.pl
new file mode 100644
index 00000000..3b6cba31
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Ccc/VR.pl
@@ -0,0 +1,96 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V82
+2381
+2382
+2509
+2510
+2637
+2638
+2765
+2766
+2893
+2894
+3021
+3022
+3149
+3150
+3277
+3278
+3405
+3406
+3530
+3531
+3642
+3643
+3972
+3973
+4153
+4155
+5908
+5909
+5940
+5941
+6098
+6099
+6752
+6753
+6980
+6981
+7082
+7084
+7154
+7156
+11647
+11648
+43014
+43015
+43204
+43205
+43347
+43348
+43456
+43457
+43766
+43767
+44013
+44014
+68159
+68160
+69702
+69703
+69759
+69760
+69817
+69818
+69939
+69941
+70080
+70081
+70197
+70198
+70378
+70379
+70477
+70478
+70850
+70851
+71103
+71104
+71231
+71232
+71350
+71351
+71467
+71468
+END
diff --git a/lib/5.24.1/unicore/lib/CompEx/Y.pl b/lib/5.24.1/unicore/lib/CompEx/Y.pl
new file mode 100644
index 00000000..22269938
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/CompEx/Y.pl
@@ -0,0 +1,160 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V146
+832
+834
+835
+837
+884
+885
+894
+895
+903
+904
+2392
+2400
+2524
+2526
+2527
+2528
+2611
+2612
+2614
+2615
+2649
+2652
+2654
+2655
+2908
+2910
+3907
+3908
+3917
+3918
+3922
+3923
+3927
+3928
+3932
+3933
+3945
+3946
+3955
+3956
+3957
+3959
+3960
+3961
+3969
+3970
+3987
+3988
+3997
+3998
+4002
+4003
+4007
+4008
+4012
+4013
+4025
+4026
+8049
+8050
+8051
+8052
+8053
+8054
+8055
+8056
+8057
+8058
+8059
+8060
+8061
+8062
+8123
+8124
+8126
+8127
+8137
+8138
+8139
+8140
+8147
+8148
+8155
+8156
+8163
+8164
+8171
+8172
+8174
+8176
+8185
+8186
+8187
+8188
+8189
+8190
+8192
+8194
+8486
+8487
+8490
+8492
+9001
+9003
+10972
+10973
+63744
+64014
+64016
+64017
+64018
+64019
+64021
+64031
+64032
+64033
+64034
+64035
+64037
+64039
+64042
+64110
+64112
+64218
+64285
+64286
+64287
+64288
+64298
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64335
+119134
+119141
+119227
+119233
+194560
+195102
+END
diff --git a/lib/5.24.1/unicore/lib/DI/Y.pl b/lib/5.24.1/unicore/lib/DI/Y.pl
new file mode 100644
index 00000000..5faa449d
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/DI/Y.pl
@@ -0,0 +1,48 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V34
+173
+174
+847
+848
+1564
+1565
+4447
+4449
+6068
+6070
+6155
+6159
+8203
+8208
+8234
+8239
+8288
+8304
+12644
+12645
+65024
+65040
+65279
+65280
+65440
+65441
+65520
+65529
+113824
+113828
+119155
+119163
+917504
+921600
+END
diff --git a/lib/5.24.1/unicore/lib/Dash/Y.pl b/lib/5.24.1/unicore/lib/Dash/Y.pl
new file mode 100644
index 00000000..448e0c56
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Dash/Y.pl
@@ -0,0 +1,56 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V42
+45
+46
+1418
+1419
+1470
+1471
+5120
+5121
+6150
+6151
+8208
+8214
+8275
+8276
+8315
+8316
+8331
+8332
+8722
+8723
+11799
+11800
+11802
+11803
+11834
+11836
+11840
+11841
+12316
+12317
+12336
+12337
+12448
+12449
+65073
+65075
+65112
+65113
+65123
+65124
+65293
+65294
+END
diff --git a/lib/5.24.1/unicore/lib/Dep/Y.pl b/lib/5.24.1/unicore/lib/Dep/Y.pl
new file mode 100644
index 00000000..5ce1db21
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Dep/Y.pl
@@ -0,0 +1,32 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V18
+329
+330
+1651
+1652
+3959
+3960
+3961
+3962
+6051
+6053
+8298
+8304
+9001
+9003
+917505
+917506
+917631
+917632
+END
diff --git a/lib/5.24.1/unicore/lib/Dia/Y.pl b/lib/5.24.1/unicore/lib/Dia/Y.pl
new file mode 100644
index 00000000..5567d56c
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Dia/Y.pl
@@ -0,0 +1,308 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V294
+94
+95
+96
+97
+168
+169
+175
+176
+180
+181
+183
+185
+688
+847
+848
+856
+861
+867
+884
+886
+890
+891
+900
+902
+1155
+1160
+1369
+1370
+1425
+1442
+1443
+1470
+1471
+1472
+1473
+1475
+1476
+1477
+1611
+1619
+1623
+1625
+1759
+1761
+1765
+1767
+1770
+1773
+1840
+1867
+1958
+1969
+2027
+2038
+2072
+2074
+2275
+2303
+2364
+2365
+2381
+2382
+2385
+2389
+2417
+2418
+2492
+2493
+2509
+2510
+2620
+2621
+2637
+2638
+2748
+2749
+2765
+2766
+2876
+2877
+2893
+2894
+3021
+3022
+3149
+3150
+3260
+3261
+3277
+3278
+3405
+3406
+3530
+3531
+3655
+3661
+3662
+3663
+3784
+3789
+3864
+3866
+3893
+3894
+3895
+3896
+3897
+3898
+3902
+3904
+3970
+3973
+3974
+3976
+4038
+4039
+4151
+4152
+4153
+4155
+4231
+4238
+4239
+4240
+4250
+4252
+6089
+6100
+6109
+6110
+6457
+6460
+6773
+6781
+6783
+6784
+6832
+6846
+6964
+6965
+6980
+6981
+7019
+7028
+7082
+7084
+7222
+7224
+7288
+7294
+7376
+7401
+7405
+7406
+7412
+7413
+7416
+7418
+7468
+7531
+7620
+7632
+7669
+7670
+7677
+7680
+8125
+8126
+8127
+8130
+8141
+8144
+8157
+8160
+8173
+8176
+8189
+8191
+11503
+11506
+11823
+11824
+12330
+12336
+12441
+12445
+12540
+12541
+42607
+42608
+42620
+42622
+42623
+42624
+42652
+42654
+42736
+42738
+42775
+42786
+42888
+42889
+43000
+43002
+43204
+43205
+43232
+43250
+43307
+43311
+43347
+43348
+43443
+43444
+43456
+43457
+43493
+43494
+43643
+43646
+43711
+43715
+43766
+43767
+43867
+43872
+44012
+44014
+64286
+64287
+65056
+65072
+65342
+65343
+65344
+65345
+65392
+65393
+65438
+65440
+65507
+65508
+66272
+66273
+68325
+68327
+69817
+69819
+69939
+69941
+70003
+70004
+70080
+70081
+70090
+70093
+70197
+70199
+70377
+70379
+70460
+70461
+70477
+70478
+70502
+70509
+70512
+70517
+70850
+70852
+71103
+71105
+71231
+71232
+71350
+71352
+71467
+71468
+92912
+92917
+94095
+94112
+119143
+119146
+119149
+119155
+119163
+119171
+119173
+119180
+119210
+119214
+125136
+125143
+END
diff --git a/lib/5.24.1/unicore/lib/Dt/Com.pl b/lib/5.24.1/unicore/lib/Dt/Com.pl
new file mode 100644
index 00000000..844591d9
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Dt/Com.pl
@@ -0,0 +1,162 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V148
+168
+169
+175
+176
+180
+182
+184
+185
+306
+308
+319
+321
+329
+330
+383
+384
+452
+461
+497
+500
+728
+734
+890
+891
+900
+901
+976
+979
+981
+983
+1008
+1011
+1012
+1014
+1017
+1018
+1415
+1416
+1653
+1657
+3635
+3636
+3763
+3764
+3804
+3806
+3959
+3960
+3961
+3962
+7834
+7835
+8125
+8126
+8127
+8129
+8190
+8191
+8194
+8199
+8200
+8203
+8215
+8216
+8228
+8231
+8243
+8245
+8246
+8248
+8252
+8253
+8254
+8255
+8263
+8266
+8279
+8280
+8287
+8288
+8360
+8361
+8448
+8450
+8451
+8452
+8453
+8456
+8457
+8458
+8470
+8471
+8481
+8482
+8501
+8505
+8507
+8508
+8544
+8576
+8748
+8750
+8751
+8753
+9332
+9398
+10764
+10765
+10868
+10871
+11935
+11936
+12019
+12020
+12032
+12246
+12342
+12343
+12344
+12347
+12443
+12445
+12593
+12687
+12800
+12831
+12832
+12868
+12992
+13004
+13144
+13169
+13280
+13311
+64256
+64263
+64275
+64280
+64335
+64336
+65097
+65104
+127232
+127243
+127248
+127275
+127552
+127561
+END
diff --git a/lib/5.24.1/unicore/lib/Dt/Enc.pl b/lib/5.24.1/unicore/lib/Dt/Enc.pl
new file mode 100644
index 00000000..e0c8dc3e
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Dt/Enc.pl
@@ -0,0 +1,30 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V16
+9312
+9332
+9398
+9451
+12868
+12872
+12881
+12927
+12928
+12992
+13008
+13055
+127275
+127279
+127568
+127570
+END
diff --git a/lib/5.24.1/unicore/lib/Dt/Fin.pl b/lib/5.24.1/unicore/lib/Dt/Fin.pl
new file mode 100644
index 00000000..e8242fa7
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Dt/Fin.pl
@@ -0,0 +1,240 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V226
+64337
+64338
+64339
+64340
+64343
+64344
+64347
+64348
+64351
+64352
+64355
+64356
+64359
+64360
+64363
+64364
+64367
+64368
+64371
+64372
+64375
+64376
+64379
+64380
+64383
+64384
+64387
+64388
+64389
+64390
+64391
+64392
+64393
+64394
+64395
+64396
+64397
+64398
+64399
+64400
+64403
+64404
+64407
+64408
+64411
+64412
+64415
+64416
+64417
+64418
+64421
+64422
+64423
+64424
+64427
+64428
+64431
+64432
+64433
+64434
+64468
+64469
+64472
+64473
+64474
+64475
+64476
+64477
+64479
+64480
+64481
+64482
+64483
+64484
+64485
+64486
+64491
+64492
+64493
+64494
+64495
+64496
+64497
+64498
+64499
+64500
+64501
+64502
+64503
+64504
+64506
+64507
+64509
+64510
+64612
+64663
+64785
+64813
+64828
+64829
+64849
+64850
+64856
+64857
+64858
+64860
+64862
+64864
+64866
+64867
+64868
+64869
+64870
+64872
+64873
+64875
+64876
+64877
+64878
+64880
+64881
+64882
+64884
+64887
+64888
+64893
+64894
+64899
+64900
+64902
+64903
+64904
+64907
+64908
+64918
+64920
+64921
+64925
+64926
+64948
+64950
+64952
+64953
+64954
+64955
+64963
+64966
+64968
+65154
+65155
+65156
+65157
+65158
+65159
+65160
+65161
+65162
+65163
+65166
+65167
+65168
+65169
+65172
+65173
+65174
+65175
+65178
+65179
+65182
+65183
+65186
+65187
+65190
+65191
+65194
+65195
+65196
+65197
+65198
+65199
+65200
+65201
+65202
+65203
+65206
+65207
+65210
+65211
+65214
+65215
+65218
+65219
+65222
+65223
+65226
+65227
+65230
+65231
+65234
+65235
+65238
+65239
+65242
+65243
+65246
+65247
+65250
+65251
+65254
+65255
+65258
+65259
+65262
+65263
+65264
+65265
+65266
+65267
+65270
+65271
+65272
+65273
+65274
+65275
+65276
+65277
+END
diff --git a/lib/5.24.1/unicore/lib/Dt/Font.pl b/lib/5.24.1/unicore/lib/Dt/Font.pl
new file mode 100644
index 00000000..176b4253
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Dt/Font.pl
@@ -0,0 +1,148 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V134
+8450
+8451
+8458
+8468
+8469
+8470
+8473
+8478
+8484
+8485
+8488
+8489
+8492
+8494
+8495
+8498
+8499
+8501
+8505
+8506
+8508
+8513
+8517
+8522
+64288
+64298
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120780
+120782
+120832
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+END
diff --git a/lib/5.24.1/unicore/lib/Dt/Init.pl b/lib/5.24.1/unicore/lib/Dt/Init.pl
new file mode 100644
index 00000000..14c6308a
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Dt/Init.pl
@@ -0,0 +1,164 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V150
+64340
+64341
+64344
+64345
+64348
+64349
+64352
+64353
+64356
+64357
+64360
+64361
+64364
+64365
+64368
+64369
+64372
+64373
+64376
+64377
+64380
+64381
+64384
+64385
+64400
+64401
+64404
+64405
+64408
+64409
+64412
+64413
+64418
+64419
+64424
+64425
+64428
+64429
+64469
+64470
+64486
+64487
+64488
+64489
+64504
+64505
+64507
+64508
+64510
+64511
+64663
+64735
+64813
+64820
+64848
+64849
+64850
+64856
+64857
+64858
+64860
+64862
+64864
+64866
+64867
+64868
+64869
+64870
+64872
+64873
+64875
+64876
+64877
+64878
+64880
+64881
+64882
+64884
+64887
+64888
+64893
+64894
+64899
+64900
+64902
+64903
+64904
+64907
+64908
+64912
+64914
+64918
+64920
+64921
+64925
+64926
+64948
+64950
+64952
+64953
+64954
+64955
+64963
+64966
+65163
+65164
+65169
+65170
+65175
+65176
+65179
+65180
+65183
+65184
+65187
+65188
+65191
+65192
+65203
+65204
+65207
+65208
+65211
+65212
+65215
+65216
+65219
+65220
+65223
+65224
+65227
+65228
+65231
+65232
+65235
+65236
+65239
+65240
+65243
+65244
+65247
+65248
+65251
+65252
+65255
+65256
+65259
+65260
+65267
+65268
+END
diff --git a/lib/5.24.1/unicore/lib/Dt/Iso.pl b/lib/5.24.1/unicore/lib/Dt/Iso.pl
new file mode 100644
index 00000000..b2ed6e9f
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Dt/Iso.pl
@@ -0,0 +1,210 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V196
+64336
+64337
+64338
+64339
+64342
+64343
+64346
+64347
+64350
+64351
+64354
+64355
+64358
+64359
+64362
+64363
+64366
+64367
+64370
+64371
+64374
+64375
+64378
+64379
+64382
+64383
+64386
+64387
+64388
+64389
+64390
+64391
+64392
+64393
+64394
+64395
+64396
+64397
+64398
+64399
+64402
+64403
+64406
+64407
+64410
+64411
+64414
+64415
+64416
+64417
+64420
+64421
+64422
+64423
+64426
+64427
+64430
+64431
+64432
+64433
+64467
+64468
+64471
+64472
+64473
+64474
+64475
+64476
+64477
+64479
+64480
+64481
+64482
+64483
+64484
+64485
+64490
+64491
+64492
+64493
+64494
+64495
+64496
+64497
+64498
+64499
+64500
+64501
+64502
+64503
+64505
+64506
+64508
+64509
+64512
+64612
+64757
+64785
+64829
+64830
+65008
+65021
+65136
+65137
+65138
+65139
+65140
+65141
+65142
+65143
+65144
+65145
+65146
+65147
+65148
+65149
+65150
+65151
+65152
+65154
+65155
+65156
+65157
+65158
+65159
+65160
+65161
+65162
+65165
+65166
+65167
+65168
+65171
+65172
+65173
+65174
+65177
+65178
+65181
+65182
+65185
+65186
+65189
+65190
+65193
+65194
+65195
+65196
+65197
+65198
+65199
+65200
+65201
+65202
+65205
+65206
+65209
+65210
+65213
+65214
+65217
+65218
+65221
+65222
+65225
+65226
+65229
+65230
+65233
+65234
+65237
+65238
+65241
+65242
+65245
+65246
+65249
+65250
+65253
+65254
+65257
+65258
+65261
+65262
+65263
+65264
+65265
+65266
+65269
+65270
+65271
+65272
+65273
+65274
+65275
+65276
+END
diff --git a/lib/5.24.1/unicore/lib/Dt/Med.pl b/lib/5.24.1/unicore/lib/Dt/Med.pl
new file mode 100644
index 00000000..0e987bc8
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Dt/Med.pl
@@ -0,0 +1,122 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V108
+64341
+64342
+64345
+64346
+64349
+64350
+64353
+64354
+64357
+64358
+64361
+64362
+64365
+64366
+64369
+64370
+64373
+64374
+64377
+64378
+64381
+64382
+64385
+64386
+64401
+64402
+64405
+64406
+64409
+64410
+64413
+64414
+64419
+64420
+64425
+64426
+64429
+64430
+64470
+64471
+64487
+64488
+64489
+64490
+64511
+64512
+64735
+64757
+64820
+64828
+65137
+65138
+65143
+65144
+65145
+65146
+65147
+65148
+65149
+65150
+65151
+65152
+65164
+65165
+65170
+65171
+65176
+65177
+65180
+65181
+65184
+65185
+65188
+65189
+65192
+65193
+65204
+65205
+65208
+65209
+65212
+65213
+65216
+65217
+65220
+65221
+65224
+65225
+65228
+65229
+65232
+65233
+65236
+65237
+65240
+65241
+65244
+65245
+65248
+65249
+65252
+65253
+65256
+65257
+65260
+65261
+65268
+65269
+END
diff --git a/lib/5.24.1/unicore/lib/Dt/Nar.pl b/lib/5.24.1/unicore/lib/Dt/Nar.pl
new file mode 100644
index 00000000..02386a87
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Dt/Nar.pl
@@ -0,0 +1,26 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V12
+65377
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65512
+65519
+END
diff --git a/lib/5.24.1/unicore/lib/Dt/Nb.pl b/lib/5.24.1/unicore/lib/Dt/Nb.pl
new file mode 100644
index 00000000..9e99c543
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Dt/Nb.pl
@@ -0,0 +1,24 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V10
+160
+161
+3852
+3853
+8199
+8200
+8209
+8210
+8239
+8240
+END
diff --git a/lib/5.24.1/unicore/lib/Dt/NonCanon.pl b/lib/5.24.1/unicore/lib/Dt/NonCanon.pl
new file mode 100644
index 00000000..5f8d10e3
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Dt/NonCanon.pl
@@ -0,0 +1,386 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V372
+160
+161
+168
+169
+170
+171
+175
+176
+178
+182
+184
+187
+188
+191
+306
+308
+319
+321
+329
+330
+383
+384
+452
+461
+497
+500
+688
+697
+728
+734
+736
+741
+890
+891
+900
+901
+976
+979
+981
+983
+1008
+1011
+1012
+1014
+1017
+1018
+1415
+1416
+1653
+1657
+3635
+3636
+3763
+3764
+3804
+3806
+3852
+3853
+3959
+3960
+3961
+3962
+4348
+4349
+7468
+7471
+7472
+7483
+7484
+7502
+7503
+7531
+7544
+7545
+7579
+7616
+7834
+7835
+8125
+8126
+8127
+8129
+8190
+8191
+8194
+8203
+8209
+8210
+8215
+8216
+8228
+8231
+8239
+8240
+8243
+8245
+8246
+8248
+8252
+8253
+8254
+8255
+8263
+8266
+8279
+8280
+8287
+8288
+8304
+8306
+8308
+8335
+8336
+8349
+8360
+8361
+8448
+8452
+8453
+8456
+8457
+8468
+8469
+8471
+8473
+8478
+8480
+8483
+8484
+8485
+8488
+8489
+8492
+8494
+8495
+8498
+8499
+8506
+8507
+8513
+8517
+8522
+8528
+8576
+8585
+8586
+8748
+8750
+8751
+8753
+9312
+9451
+10764
+10765
+10868
+10871
+11388
+11390
+11631
+11632
+11935
+11936
+12019
+12020
+12032
+12246
+12288
+12289
+12342
+12343
+12344
+12347
+12443
+12445
+12447
+12448
+12543
+12544
+12593
+12687
+12690
+12704
+12800
+12831
+12832
+12872
+12880
+12927
+12928
+13055
+13056
+13312
+42652
+42654
+42864
+42865
+43000
+43002
+43868
+43872
+64256
+64263
+64275
+64280
+64288
+64298
+64335
+64434
+64467
+64830
+64848
+64912
+64914
+64968
+65008
+65021
+65040
+65050
+65072
+65093
+65095
+65107
+65108
+65127
+65128
+65132
+65136
+65139
+65140
+65141
+65142
+65277
+65281
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120780
+120782
+120832
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+127232
+127243
+127248
+127279
+127280
+127312
+127338
+127340
+127376
+127377
+127488
+127491
+127504
+127547
+127552
+127561
+127568
+127570
+END
diff --git a/lib/5.24.1/unicore/lib/Dt/Sqr.pl b/lib/5.24.1/unicore/lib/Dt/Sqr.pl
new file mode 100644
index 00000000..825127e0
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Dt/Sqr.pl
@@ -0,0 +1,32 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V18
+12880
+12881
+13004
+13008
+13056
+13144
+13169
+13280
+13311
+13312
+127280
+127312
+127376
+127377
+127488
+127491
+127504
+127547
+END
diff --git a/lib/5.24.1/unicore/lib/Dt/Sub.pl b/lib/5.24.1/unicore/lib/Dt/Sub.pl
new file mode 100644
index 00000000..b49bb4a6
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Dt/Sub.pl
@@ -0,0 +1,22 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+7522
+7531
+8320
+8335
+8336
+8349
+11388
+11389
+END
diff --git a/lib/5.24.1/unicore/lib/Dt/Sup.pl b/lib/5.24.1/unicore/lib/Dt/Sup.pl
new file mode 100644
index 00000000..4f07b1b2
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Dt/Sup.pl
@@ -0,0 +1,62 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V48
+170
+171
+178
+180
+185
+187
+688
+697
+736
+741
+4348
+4349
+7468
+7471
+7472
+7483
+7484
+7502
+7503
+7522
+7544
+7545
+7579
+7616
+8304
+8306
+8308
+8320
+8480
+8481
+8482
+8483
+11389
+11390
+11631
+11632
+12690
+12704
+42652
+42654
+42864
+42865
+43000
+43002
+43868
+43872
+127338
+127340
+END
diff --git a/lib/5.24.1/unicore/lib/Dt/Vert.pl b/lib/5.24.1/unicore/lib/Dt/Vert.pl
new file mode 100644
index 00000000..7fe8ad35
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Dt/Vert.pl
@@ -0,0 +1,24 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V10
+12447
+12448
+12543
+12544
+65040
+65050
+65072
+65093
+65095
+65097
+END
diff --git a/lib/5.24.1/unicore/lib/Ea/A.pl b/lib/5.24.1/unicore/lib/Ea/A.pl
new file mode 100644
index 00000000..a7a0c456
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Ea/A.pl
@@ -0,0 +1,360 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V346
+161
+162
+164
+165
+167
+169
+170
+171
+173
+175
+176
+181
+182
+187
+188
+192
+198
+199
+208
+209
+215
+217
+222
+226
+230
+231
+232
+235
+236
+238
+240
+241
+242
+244
+247
+251
+252
+253
+254
+255
+257
+258
+273
+274
+275
+276
+283
+284
+294
+296
+299
+300
+305
+308
+312
+313
+319
+323
+324
+325
+328
+332
+333
+334
+338
+340
+358
+360
+363
+364
+462
+463
+464
+465
+466
+467
+468
+469
+470
+471
+472
+473
+474
+475
+476
+477
+593
+594
+609
+610
+708
+709
+711
+712
+713
+716
+717
+718
+720
+721
+728
+732
+733
+734
+735
+736
+768
+880
+913
+930
+931
+938
+945
+962
+963
+970
+1025
+1026
+1040
+1104
+1105
+1106
+8208
+8209
+8211
+8215
+8216
+8218
+8220
+8222
+8224
+8227
+8228
+8232
+8240
+8241
+8242
+8244
+8245
+8246
+8251
+8252
+8254
+8255
+8308
+8309
+8319
+8320
+8321
+8325
+8364
+8365
+8451
+8452
+8453
+8454
+8457
+8458
+8467
+8468
+8470
+8471
+8481
+8483
+8486
+8487
+8491
+8492
+8531
+8533
+8539
+8543
+8544
+8556
+8560
+8570
+8585
+8586
+8592
+8602
+8632
+8634
+8658
+8659
+8660
+8661
+8679
+8680
+8704
+8705
+8706
+8708
+8711
+8713
+8715
+8716
+8719
+8720
+8721
+8722
+8725
+8726
+8730
+8731
+8733
+8737
+8739
+8740
+8741
+8742
+8743
+8749
+8750
+8751
+8756
+8760
+8764
+8766
+8776
+8777
+8780
+8781
+8786
+8787
+8800
+8802
+8804
+8808
+8810
+8812
+8814
+8816
+8834
+8836
+8838
+8840
+8853
+8854
+8857
+8858
+8869
+8870
+8895
+8896
+8978
+8979
+9312
+9450
+9451
+9548
+9552
+9588
+9600
+9616
+9618
+9622
+9632
+9634
+9635
+9642
+9650
+9652
+9654
+9656
+9660
+9662
+9664
+9666
+9670
+9673
+9675
+9676
+9678
+9682
+9698
+9702
+9711
+9712
+9733
+9735
+9737
+9738
+9742
+9744
+9748
+9750
+9756
+9757
+9758
+9759
+9792
+9793
+9794
+9795
+9824
+9826
+9827
+9830
+9831
+9835
+9836
+9838
+9839
+9840
+9886
+9888
+9918
+9920
+9924
+9934
+9935
+9954
+9955
+9956
+9960
+9984
+10045
+10046
+10071
+10072
+10102
+10112
+11093
+11098
+12872
+12880
+57344
+63744
+65024
+65040
+65533
+65534
+127232
+127243
+127248
+127278
+127280
+127338
+127344
+127387
+917760
+918000
+983040
+1048574
+1048576
+1114110
+END
diff --git a/lib/5.24.1/unicore/lib/Ea/H.pl b/lib/5.24.1/unicore/lib/Ea/H.pl
new file mode 100644
index 00000000..8903bcdb
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Ea/H.pl
@@ -0,0 +1,28 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V14
+8361
+8362
+65377
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65512
+65519
+END
diff --git a/lib/5.24.1/unicore/lib/Ea/N.pl b/lib/5.24.1/unicore/lib/Ea/N.pl
new file mode 100644
index 00000000..28116634
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Ea/N.pl
@@ -0,0 +1,435 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V421
+0
+32
+127
+161
+169
+170
+171
+172
+181
+182
+187
+188
+192
+198
+199
+208
+209
+215
+217
+222
+226
+230
+231
+232
+235
+236
+238
+240
+241
+242
+244
+247
+251
+252
+253
+254
+255
+257
+258
+273
+274
+275
+276
+283
+284
+294
+296
+299
+300
+305
+308
+312
+313
+319
+323
+324
+325
+328
+332
+333
+334
+338
+340
+358
+360
+363
+364
+462
+463
+464
+465
+466
+467
+468
+469
+470
+471
+472
+473
+474
+475
+476
+477
+593
+594
+609
+610
+708
+709
+711
+712
+713
+716
+717
+718
+720
+721
+728
+732
+733
+734
+735
+736
+768
+880
+913
+930
+931
+938
+945
+962
+963
+970
+1025
+1026
+1040
+1104
+1105
+1106
+4352
+4448
+8208
+8209
+8211
+8215
+8216
+8218
+8220
+8222
+8224
+8227
+8228
+8232
+8240
+8241
+8242
+8244
+8245
+8246
+8251
+8252
+8254
+8255
+8308
+8309
+8319
+8320
+8321
+8325
+8361
+8362
+8364
+8365
+8451
+8452
+8453
+8454
+8457
+8458
+8467
+8468
+8470
+8471
+8481
+8483
+8486
+8487
+8491
+8492
+8531
+8533
+8539
+8543
+8544
+8556
+8560
+8570
+8585
+8586
+8592
+8602
+8632
+8634
+8658
+8659
+8660
+8661
+8679
+8680
+8704
+8705
+8706
+8708
+8711
+8713
+8715
+8716
+8719
+8720
+8721
+8722
+8725
+8726
+8730
+8731
+8733
+8737
+8739
+8740
+8741
+8742
+8743
+8749
+8750
+8751
+8756
+8760
+8764
+8766
+8776
+8777
+8780
+8781
+8786
+8787
+8800
+8802
+8804
+8808
+8810
+8812
+8814
+8816
+8834
+8836
+8838
+8840
+8853
+8854
+8857
+8858
+8869
+8870
+8895
+8896
+8978
+8979
+9001
+9003
+9312
+9450
+9451
+9548
+9552
+9588
+9600
+9616
+9618
+9622
+9632
+9634
+9635
+9642
+9650
+9652
+9654
+9656
+9660
+9662
+9664
+9666
+9670
+9673
+9675
+9676
+9678
+9682
+9698
+9702
+9711
+9712
+9733
+9735
+9737
+9738
+9742
+9744
+9748
+9750
+9756
+9757
+9758
+9759
+9792
+9793
+9794
+9795
+9824
+9826
+9827
+9830
+9831
+9835
+9836
+9838
+9839
+9840
+9886
+9888
+9918
+9920
+9924
+9934
+9935
+9954
+9955
+9956
+9960
+9984
+10045
+10046
+10071
+10072
+10102
+10112
+10214
+10222
+10629
+10631
+11093
+11098
+11904
+11930
+11931
+12020
+12032
+12246
+12272
+12284
+12288
+12351
+12353
+12439
+12441
+12544
+12549
+12590
+12593
+12687
+12688
+12731
+12736
+12772
+12784
+12831
+12832
+13055
+13056
+19904
+19968
+42125
+42128
+42183
+43360
+43389
+44032
+55204
+57344
+64256
+65024
+65050
+65072
+65107
+65108
+65127
+65128
+65132
+65281
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+65533
+65534
+110592
+110594
+127232
+127243
+127248
+127278
+127280
+127338
+127344
+127387
+127488
+127491
+127504
+127547
+127552
+127561
+127568
+127570
+131072
+196606
+196608
+262142
+917760
+918000
+983040
+1048574
+1048576
+1114110
+END
diff --git a/lib/5.24.1/unicore/lib/Ea/Na.pl b/lib/5.24.1/unicore/lib/Ea/Na.pl
new file mode 100644
index 00000000..5fb342d4
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Ea/Na.pl
@@ -0,0 +1,28 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V14
+32
+127
+162
+164
+165
+167
+172
+173
+175
+176
+10214
+10222
+10629
+10631
+END
diff --git a/lib/5.24.1/unicore/lib/Ea/W.pl b/lib/5.24.1/unicore/lib/Ea/W.pl
new file mode 100644
index 00000000..7f51b1f7
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Ea/W.pl
@@ -0,0 +1,80 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V66
+4352
+4448
+9001
+9003
+11904
+11930
+11931
+12020
+12032
+12246
+12272
+12284
+12289
+12351
+12353
+12439
+12441
+12544
+12549
+12590
+12593
+12687
+12688
+12731
+12736
+12772
+12784
+12831
+12832
+12872
+12880
+13055
+13056
+19904
+19968
+42125
+42128
+42183
+43360
+43389
+44032
+55204
+63744
+64256
+65040
+65050
+65072
+65107
+65108
+65127
+65128
+65132
+110592
+110594
+127488
+127491
+127504
+127547
+127552
+127561
+127568
+127570
+131072
+196606
+196608
+262142
+END
diff --git a/lib/5.24.1/unicore/lib/Ext/Y.pl b/lib/5.24.1/unicore/lib/Ext/Y.pl
new file mode 100644
index 00000000..28f5f719
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Ext/Y.pl
@@ -0,0 +1,66 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V52
+183
+184
+720
+722
+1600
+1601
+2042
+2043
+3654
+3655
+3782
+3783
+6154
+6155
+6211
+6212
+6823
+6824
+7222
+7223
+7291
+7292
+12293
+12294
+12337
+12342
+12445
+12447
+12540
+12543
+40981
+40982
+42508
+42509
+43471
+43472
+43494
+43495
+43632
+43633
+43741
+43742
+43763
+43765
+65392
+65393
+70493
+70494
+71110
+71113
+92994
+92996
+END
diff --git a/lib/5.24.1/unicore/lib/GCB/CN.pl b/lib/5.24.1/unicore/lib/GCB/CN.pl
new file mode 100644
index 00000000..a108a645
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/GCB/CN.pl
@@ -0,0 +1,58 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V44
+0
+10
+11
+13
+14
+32
+127
+160
+173
+174
+1536
+1542
+1564
+1565
+1757
+1758
+1807
+1808
+6158
+6159
+8203
+8204
+8206
+8208
+8232
+8239
+8288
+8304
+55296
+57344
+65279
+65280
+65520
+65532
+69821
+69822
+113824
+113828
+119155
+119163
+917504
+917760
+918000
+921600
+END
diff --git a/lib/5.24.1/unicore/lib/GCB/EX.pl b/lib/5.24.1/unicore/lib/GCB/EX.pl
new file mode 100644
index 00000000..99145e89
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/GCB/EX.pl
@@ -0,0 +1,580 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V566
+768
+880
+1155
+1162
+1425
+1470
+1471
+1472
+1473
+1475
+1476
+1478
+1479
+1480
+1552
+1563
+1611
+1632
+1648
+1649
+1750
+1757
+1759
+1765
+1767
+1769
+1770
+1774
+1809
+1810
+1840
+1867
+1958
+1969
+2027
+2036
+2070
+2074
+2075
+2084
+2085
+2088
+2089
+2094
+2137
+2140
+2275
+2307
+2362
+2363
+2364
+2365
+2369
+2377
+2381
+2382
+2385
+2392
+2402
+2404
+2433
+2434
+2492
+2493
+2494
+2495
+2497
+2501
+2509
+2510
+2519
+2520
+2530
+2532
+2561
+2563
+2620
+2621
+2625
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2672
+2674
+2677
+2678
+2689
+2691
+2748
+2749
+2753
+2758
+2759
+2761
+2765
+2766
+2786
+2788
+2817
+2818
+2876
+2877
+2878
+2880
+2881
+2885
+2893
+2894
+2902
+2904
+2914
+2916
+2946
+2947
+3006
+3007
+3008
+3009
+3021
+3022
+3031
+3032
+3072
+3073
+3134
+3137
+3142
+3145
+3146
+3150
+3157
+3159
+3170
+3172
+3201
+3202
+3260
+3261
+3263
+3264
+3266
+3267
+3270
+3271
+3276
+3278
+3285
+3287
+3298
+3300
+3329
+3330
+3390
+3391
+3393
+3397
+3405
+3406
+3415
+3416
+3426
+3428
+3530
+3531
+3535
+3536
+3538
+3541
+3542
+3543
+3551
+3552
+3633
+3634
+3636
+3643
+3655
+3663
+3761
+3762
+3764
+3770
+3771
+3773
+3784
+3790
+3864
+3866
+3893
+3894
+3895
+3896
+3897
+3898
+3953
+3967
+3968
+3973
+3974
+3976
+3981
+3992
+3993
+4029
+4038
+4039
+4141
+4145
+4146
+4152
+4153
+4155
+4157
+4159
+4184
+4186
+4190
+4193
+4209
+4213
+4226
+4227
+4229
+4231
+4237
+4238
+4253
+4254
+4957
+4960
+5906
+5909
+5938
+5941
+5970
+5972
+6002
+6004
+6068
+6070
+6071
+6078
+6086
+6087
+6089
+6100
+6109
+6110
+6155
+6158
+6313
+6314
+6432
+6435
+6439
+6441
+6450
+6451
+6457
+6460
+6679
+6681
+6683
+6684
+6742
+6743
+6744
+6751
+6752
+6753
+6754
+6755
+6757
+6765
+6771
+6781
+6783
+6784
+6832
+6847
+6912
+6916
+6964
+6965
+6966
+6971
+6972
+6973
+6978
+6979
+7019
+7028
+7040
+7042
+7074
+7078
+7080
+7082
+7083
+7086
+7142
+7143
+7144
+7146
+7149
+7150
+7151
+7154
+7212
+7220
+7222
+7224
+7376
+7379
+7380
+7393
+7394
+7401
+7405
+7406
+7412
+7413
+7416
+7418
+7616
+7670
+7676
+7680
+8204
+8206
+8400
+8433
+11503
+11506
+11647
+11648
+11744
+11776
+12330
+12336
+12441
+12443
+42607
+42611
+42612
+42622
+42654
+42656
+42736
+42738
+43010
+43011
+43014
+43015
+43019
+43020
+43045
+43047
+43204
+43205
+43232
+43250
+43302
+43310
+43335
+43346
+43392
+43395
+43443
+43444
+43446
+43450
+43452
+43453
+43493
+43494
+43561
+43567
+43569
+43571
+43573
+43575
+43587
+43588
+43596
+43597
+43644
+43645
+43696
+43697
+43698
+43701
+43703
+43705
+43710
+43712
+43713
+43714
+43756
+43758
+43766
+43767
+44005
+44006
+44008
+44009
+44013
+44014
+64286
+64287
+65024
+65040
+65056
+65072
+65438
+65440
+66045
+66046
+66272
+66273
+66422
+66427
+68097
+68100
+68101
+68103
+68108
+68112
+68152
+68155
+68159
+68160
+68325
+68327
+69633
+69634
+69688
+69703
+69759
+69762
+69811
+69815
+69817
+69819
+69888
+69891
+69927
+69932
+69933
+69941
+70003
+70004
+70016
+70018
+70070
+70079
+70090
+70093
+70191
+70194
+70196
+70197
+70198
+70200
+70367
+70368
+70371
+70379
+70400
+70402
+70460
+70461
+70462
+70463
+70464
+70465
+70487
+70488
+70502
+70509
+70512
+70517
+70832
+70833
+70835
+70841
+70842
+70843
+70845
+70846
+70847
+70849
+70850
+70852
+71087
+71088
+71090
+71094
+71100
+71102
+71103
+71105
+71132
+71134
+71219
+71227
+71229
+71230
+71231
+71233
+71339
+71340
+71341
+71342
+71344
+71350
+71351
+71352
+71453
+71456
+71458
+71462
+71463
+71468
+92912
+92917
+92976
+92983
+94095
+94099
+113821
+113823
+119141
+119142
+119143
+119146
+119150
+119155
+119163
+119171
+119173
+119180
+119210
+119214
+119362
+119365
+121344
+121399
+121403
+121453
+121461
+121462
+121476
+121477
+121499
+121504
+121505
+121520
+125136
+125143
+917760
+918000
+END
diff --git a/lib/5.24.1/unicore/lib/GCB/LV.pl b/lib/5.24.1/unicore/lib/GCB/LV.pl
new file mode 100644
index 00000000..2f3f3cdf
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/GCB/LV.pl
@@ -0,0 +1,812 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V798
+44032
+44033
+44060
+44061
+44088
+44089
+44116
+44117
+44144
+44145
+44172
+44173
+44200
+44201
+44228
+44229
+44256
+44257
+44284
+44285
+44312
+44313
+44340
+44341
+44368
+44369
+44396
+44397
+44424
+44425
+44452
+44453
+44480
+44481
+44508
+44509
+44536
+44537
+44564
+44565
+44592
+44593
+44620
+44621
+44648
+44649
+44676
+44677
+44704
+44705
+44732
+44733
+44760
+44761
+44788
+44789
+44816
+44817
+44844
+44845
+44872
+44873
+44900
+44901
+44928
+44929
+44956
+44957
+44984
+44985
+45012
+45013
+45040
+45041
+45068
+45069
+45096
+45097
+45124
+45125
+45152
+45153
+45180
+45181
+45208
+45209
+45236
+45237
+45264
+45265
+45292
+45293
+45320
+45321
+45348
+45349
+45376
+45377
+45404
+45405
+45432
+45433
+45460
+45461
+45488
+45489
+45516
+45517
+45544
+45545
+45572
+45573
+45600
+45601
+45628
+45629
+45656
+45657
+45684
+45685
+45712
+45713
+45740
+45741
+45768
+45769
+45796
+45797
+45824
+45825
+45852
+45853
+45880
+45881
+45908
+45909
+45936
+45937
+45964
+45965
+45992
+45993
+46020
+46021
+46048
+46049
+46076
+46077
+46104
+46105
+46132
+46133
+46160
+46161
+46188
+46189
+46216
+46217
+46244
+46245
+46272
+46273
+46300
+46301
+46328
+46329
+46356
+46357
+46384
+46385
+46412
+46413
+46440
+46441
+46468
+46469
+46496
+46497
+46524
+46525
+46552
+46553
+46580
+46581
+46608
+46609
+46636
+46637
+46664
+46665
+46692
+46693
+46720
+46721
+46748
+46749
+46776
+46777
+46804
+46805
+46832
+46833
+46860
+46861
+46888
+46889
+46916
+46917
+46944
+46945
+46972
+46973
+47000
+47001
+47028
+47029
+47056
+47057
+47084
+47085
+47112
+47113
+47140
+47141
+47168
+47169
+47196
+47197
+47224
+47225
+47252
+47253
+47280
+47281
+47308
+47309
+47336
+47337
+47364
+47365
+47392
+47393
+47420
+47421
+47448
+47449
+47476
+47477
+47504
+47505
+47532
+47533
+47560
+47561
+47588
+47589
+47616
+47617
+47644
+47645
+47672
+47673
+47700
+47701
+47728
+47729
+47756
+47757
+47784
+47785
+47812
+47813
+47840
+47841
+47868
+47869
+47896
+47897
+47924
+47925
+47952
+47953
+47980
+47981
+48008
+48009
+48036
+48037
+48064
+48065
+48092
+48093
+48120
+48121
+48148
+48149
+48176
+48177
+48204
+48205
+48232
+48233
+48260
+48261
+48288
+48289
+48316
+48317
+48344
+48345
+48372
+48373
+48400
+48401
+48428
+48429
+48456
+48457
+48484
+48485
+48512
+48513
+48540
+48541
+48568
+48569
+48596
+48597
+48624
+48625
+48652
+48653
+48680
+48681
+48708
+48709
+48736
+48737
+48764
+48765
+48792
+48793
+48820
+48821
+48848
+48849
+48876
+48877
+48904
+48905
+48932
+48933
+48960
+48961
+48988
+48989
+49016
+49017
+49044
+49045
+49072
+49073
+49100
+49101
+49128
+49129
+49156
+49157
+49184
+49185
+49212
+49213
+49240
+49241
+49268
+49269
+49296
+49297
+49324
+49325
+49352
+49353
+49380
+49381
+49408
+49409
+49436
+49437
+49464
+49465
+49492
+49493
+49520
+49521
+49548
+49549
+49576
+49577
+49604
+49605
+49632
+49633
+49660
+49661
+49688
+49689
+49716
+49717
+49744
+49745
+49772
+49773
+49800
+49801
+49828
+49829
+49856
+49857
+49884
+49885
+49912
+49913
+49940
+49941
+49968
+49969
+49996
+49997
+50024
+50025
+50052
+50053
+50080
+50081
+50108
+50109
+50136
+50137
+50164
+50165
+50192
+50193
+50220
+50221
+50248
+50249
+50276
+50277
+50304
+50305
+50332
+50333
+50360
+50361
+50388
+50389
+50416
+50417
+50444
+50445
+50472
+50473
+50500
+50501
+50528
+50529
+50556
+50557
+50584
+50585
+50612
+50613
+50640
+50641
+50668
+50669
+50696
+50697
+50724
+50725
+50752
+50753
+50780
+50781
+50808
+50809
+50836
+50837
+50864
+50865
+50892
+50893
+50920
+50921
+50948
+50949
+50976
+50977
+51004
+51005
+51032
+51033
+51060
+51061
+51088
+51089
+51116
+51117
+51144
+51145
+51172
+51173
+51200
+51201
+51228
+51229
+51256
+51257
+51284
+51285
+51312
+51313
+51340
+51341
+51368
+51369
+51396
+51397
+51424
+51425
+51452
+51453
+51480
+51481
+51508
+51509
+51536
+51537
+51564
+51565
+51592
+51593
+51620
+51621
+51648
+51649
+51676
+51677
+51704
+51705
+51732
+51733
+51760
+51761
+51788
+51789
+51816
+51817
+51844
+51845
+51872
+51873
+51900
+51901
+51928
+51929
+51956
+51957
+51984
+51985
+52012
+52013
+52040
+52041
+52068
+52069
+52096
+52097
+52124
+52125
+52152
+52153
+52180
+52181
+52208
+52209
+52236
+52237
+52264
+52265
+52292
+52293
+52320
+52321
+52348
+52349
+52376
+52377
+52404
+52405
+52432
+52433
+52460
+52461
+52488
+52489
+52516
+52517
+52544
+52545
+52572
+52573
+52600
+52601
+52628
+52629
+52656
+52657
+52684
+52685
+52712
+52713
+52740
+52741
+52768
+52769
+52796
+52797
+52824
+52825
+52852
+52853
+52880
+52881
+52908
+52909
+52936
+52937
+52964
+52965
+52992
+52993
+53020
+53021
+53048
+53049
+53076
+53077
+53104
+53105
+53132
+53133
+53160
+53161
+53188
+53189
+53216
+53217
+53244
+53245
+53272
+53273
+53300
+53301
+53328
+53329
+53356
+53357
+53384
+53385
+53412
+53413
+53440
+53441
+53468
+53469
+53496
+53497
+53524
+53525
+53552
+53553
+53580
+53581
+53608
+53609
+53636
+53637
+53664
+53665
+53692
+53693
+53720
+53721
+53748
+53749
+53776
+53777
+53804
+53805
+53832
+53833
+53860
+53861
+53888
+53889
+53916
+53917
+53944
+53945
+53972
+53973
+54000
+54001
+54028
+54029
+54056
+54057
+54084
+54085
+54112
+54113
+54140
+54141
+54168
+54169
+54196
+54197
+54224
+54225
+54252
+54253
+54280
+54281
+54308
+54309
+54336
+54337
+54364
+54365
+54392
+54393
+54420
+54421
+54448
+54449
+54476
+54477
+54504
+54505
+54532
+54533
+54560
+54561
+54588
+54589
+54616
+54617
+54644
+54645
+54672
+54673
+54700
+54701
+54728
+54729
+54756
+54757
+54784
+54785
+54812
+54813
+54840
+54841
+54868
+54869
+54896
+54897
+54924
+54925
+54952
+54953
+54980
+54981
+55008
+55009
+55036
+55037
+55064
+55065
+55092
+55093
+55120
+55121
+55148
+55149
+55176
+55177
+END
diff --git a/lib/5.24.1/unicore/lib/GCB/LVT.pl b/lib/5.24.1/unicore/lib/GCB/LVT.pl
new file mode 100644
index 00000000..1e571324
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/GCB/LVT.pl
@@ -0,0 +1,812 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V798
+44033
+44060
+44061
+44088
+44089
+44116
+44117
+44144
+44145
+44172
+44173
+44200
+44201
+44228
+44229
+44256
+44257
+44284
+44285
+44312
+44313
+44340
+44341
+44368
+44369
+44396
+44397
+44424
+44425
+44452
+44453
+44480
+44481
+44508
+44509
+44536
+44537
+44564
+44565
+44592
+44593
+44620
+44621
+44648
+44649
+44676
+44677
+44704
+44705
+44732
+44733
+44760
+44761
+44788
+44789
+44816
+44817
+44844
+44845
+44872
+44873
+44900
+44901
+44928
+44929
+44956
+44957
+44984
+44985
+45012
+45013
+45040
+45041
+45068
+45069
+45096
+45097
+45124
+45125
+45152
+45153
+45180
+45181
+45208
+45209
+45236
+45237
+45264
+45265
+45292
+45293
+45320
+45321
+45348
+45349
+45376
+45377
+45404
+45405
+45432
+45433
+45460
+45461
+45488
+45489
+45516
+45517
+45544
+45545
+45572
+45573
+45600
+45601
+45628
+45629
+45656
+45657
+45684
+45685
+45712
+45713
+45740
+45741
+45768
+45769
+45796
+45797
+45824
+45825
+45852
+45853
+45880
+45881
+45908
+45909
+45936
+45937
+45964
+45965
+45992
+45993
+46020
+46021
+46048
+46049
+46076
+46077
+46104
+46105
+46132
+46133
+46160
+46161
+46188
+46189
+46216
+46217
+46244
+46245
+46272
+46273
+46300
+46301
+46328
+46329
+46356
+46357
+46384
+46385
+46412
+46413
+46440
+46441
+46468
+46469
+46496
+46497
+46524
+46525
+46552
+46553
+46580
+46581
+46608
+46609
+46636
+46637
+46664
+46665
+46692
+46693
+46720
+46721
+46748
+46749
+46776
+46777
+46804
+46805
+46832
+46833
+46860
+46861
+46888
+46889
+46916
+46917
+46944
+46945
+46972
+46973
+47000
+47001
+47028
+47029
+47056
+47057
+47084
+47085
+47112
+47113
+47140
+47141
+47168
+47169
+47196
+47197
+47224
+47225
+47252
+47253
+47280
+47281
+47308
+47309
+47336
+47337
+47364
+47365
+47392
+47393
+47420
+47421
+47448
+47449
+47476
+47477
+47504
+47505
+47532
+47533
+47560
+47561
+47588
+47589
+47616
+47617
+47644
+47645
+47672
+47673
+47700
+47701
+47728
+47729
+47756
+47757
+47784
+47785
+47812
+47813
+47840
+47841
+47868
+47869
+47896
+47897
+47924
+47925
+47952
+47953
+47980
+47981
+48008
+48009
+48036
+48037
+48064
+48065
+48092
+48093
+48120
+48121
+48148
+48149
+48176
+48177
+48204
+48205
+48232
+48233
+48260
+48261
+48288
+48289
+48316
+48317
+48344
+48345
+48372
+48373
+48400
+48401
+48428
+48429
+48456
+48457
+48484
+48485
+48512
+48513
+48540
+48541
+48568
+48569
+48596
+48597
+48624
+48625
+48652
+48653
+48680
+48681
+48708
+48709
+48736
+48737
+48764
+48765
+48792
+48793
+48820
+48821
+48848
+48849
+48876
+48877
+48904
+48905
+48932
+48933
+48960
+48961
+48988
+48989
+49016
+49017
+49044
+49045
+49072
+49073
+49100
+49101
+49128
+49129
+49156
+49157
+49184
+49185
+49212
+49213
+49240
+49241
+49268
+49269
+49296
+49297
+49324
+49325
+49352
+49353
+49380
+49381
+49408
+49409
+49436
+49437
+49464
+49465
+49492
+49493
+49520
+49521
+49548
+49549
+49576
+49577
+49604
+49605
+49632
+49633
+49660
+49661
+49688
+49689
+49716
+49717
+49744
+49745
+49772
+49773
+49800
+49801
+49828
+49829
+49856
+49857
+49884
+49885
+49912
+49913
+49940
+49941
+49968
+49969
+49996
+49997
+50024
+50025
+50052
+50053
+50080
+50081
+50108
+50109
+50136
+50137
+50164
+50165
+50192
+50193
+50220
+50221
+50248
+50249
+50276
+50277
+50304
+50305
+50332
+50333
+50360
+50361
+50388
+50389
+50416
+50417
+50444
+50445
+50472
+50473
+50500
+50501
+50528
+50529
+50556
+50557
+50584
+50585
+50612
+50613
+50640
+50641
+50668
+50669
+50696
+50697
+50724
+50725
+50752
+50753
+50780
+50781
+50808
+50809
+50836
+50837
+50864
+50865
+50892
+50893
+50920
+50921
+50948
+50949
+50976
+50977
+51004
+51005
+51032
+51033
+51060
+51061
+51088
+51089
+51116
+51117
+51144
+51145
+51172
+51173
+51200
+51201
+51228
+51229
+51256
+51257
+51284
+51285
+51312
+51313
+51340
+51341
+51368
+51369
+51396
+51397
+51424
+51425
+51452
+51453
+51480
+51481
+51508
+51509
+51536
+51537
+51564
+51565
+51592
+51593
+51620
+51621
+51648
+51649
+51676
+51677
+51704
+51705
+51732
+51733
+51760
+51761
+51788
+51789
+51816
+51817
+51844
+51845
+51872
+51873
+51900
+51901
+51928
+51929
+51956
+51957
+51984
+51985
+52012
+52013
+52040
+52041
+52068
+52069
+52096
+52097
+52124
+52125
+52152
+52153
+52180
+52181
+52208
+52209
+52236
+52237
+52264
+52265
+52292
+52293
+52320
+52321
+52348
+52349
+52376
+52377
+52404
+52405
+52432
+52433
+52460
+52461
+52488
+52489
+52516
+52517
+52544
+52545
+52572
+52573
+52600
+52601
+52628
+52629
+52656
+52657
+52684
+52685
+52712
+52713
+52740
+52741
+52768
+52769
+52796
+52797
+52824
+52825
+52852
+52853
+52880
+52881
+52908
+52909
+52936
+52937
+52964
+52965
+52992
+52993
+53020
+53021
+53048
+53049
+53076
+53077
+53104
+53105
+53132
+53133
+53160
+53161
+53188
+53189
+53216
+53217
+53244
+53245
+53272
+53273
+53300
+53301
+53328
+53329
+53356
+53357
+53384
+53385
+53412
+53413
+53440
+53441
+53468
+53469
+53496
+53497
+53524
+53525
+53552
+53553
+53580
+53581
+53608
+53609
+53636
+53637
+53664
+53665
+53692
+53693
+53720
+53721
+53748
+53749
+53776
+53777
+53804
+53805
+53832
+53833
+53860
+53861
+53888
+53889
+53916
+53917
+53944
+53945
+53972
+53973
+54000
+54001
+54028
+54029
+54056
+54057
+54084
+54085
+54112
+54113
+54140
+54141
+54168
+54169
+54196
+54197
+54224
+54225
+54252
+54253
+54280
+54281
+54308
+54309
+54336
+54337
+54364
+54365
+54392
+54393
+54420
+54421
+54448
+54449
+54476
+54477
+54504
+54505
+54532
+54533
+54560
+54561
+54588
+54589
+54616
+54617
+54644
+54645
+54672
+54673
+54700
+54701
+54728
+54729
+54756
+54757
+54784
+54785
+54812
+54813
+54840
+54841
+54868
+54869
+54896
+54897
+54924
+54925
+54952
+54953
+54980
+54981
+55008
+55009
+55036
+55037
+55064
+55065
+55092
+55093
+55120
+55121
+55148
+55149
+55176
+55177
+55204
+END
diff --git a/lib/5.24.1/unicore/lib/GCB/SM.pl b/lib/5.24.1/unicore/lib/GCB/SM.pl
new file mode 100644
index 00000000..e3a7f07b
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/GCB/SM.pl
@@ -0,0 +1,278 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V264
+2307
+2308
+2363
+2364
+2366
+2369
+2377
+2381
+2382
+2384
+2434
+2436
+2495
+2497
+2503
+2505
+2507
+2509
+2563
+2564
+2622
+2625
+2691
+2692
+2750
+2753
+2761
+2762
+2763
+2765
+2818
+2820
+2880
+2881
+2887
+2889
+2891
+2893
+3007
+3008
+3009
+3011
+3014
+3017
+3018
+3021
+3073
+3076
+3137
+3141
+3202
+3204
+3262
+3263
+3264
+3266
+3267
+3269
+3271
+3273
+3274
+3276
+3330
+3332
+3391
+3393
+3398
+3401
+3402
+3405
+3458
+3460
+3536
+3538
+3544
+3551
+3570
+3572
+3635
+3636
+3763
+3764
+3902
+3904
+3967
+3968
+4145
+4146
+4155
+4157
+4182
+4184
+4228
+4229
+6070
+6071
+6078
+6086
+6087
+6089
+6435
+6439
+6441
+6444
+6448
+6450
+6451
+6457
+6681
+6683
+6741
+6742
+6743
+6744
+6765
+6771
+6916
+6917
+6965
+6966
+6971
+6972
+6973
+6978
+6979
+6981
+7042
+7043
+7073
+7074
+7078
+7080
+7082
+7083
+7143
+7144
+7146
+7149
+7150
+7151
+7154
+7156
+7204
+7212
+7220
+7222
+7393
+7394
+7410
+7412
+43043
+43045
+43047
+43048
+43136
+43138
+43188
+43204
+43346
+43348
+43395
+43396
+43444
+43446
+43450
+43452
+43453
+43457
+43567
+43569
+43571
+43573
+43597
+43598
+43755
+43756
+43758
+43760
+43765
+43766
+44003
+44005
+44006
+44008
+44009
+44011
+44012
+44013
+69632
+69633
+69634
+69635
+69762
+69763
+69808
+69811
+69815
+69817
+69932
+69933
+70018
+70019
+70067
+70070
+70079
+70081
+70188
+70191
+70194
+70196
+70197
+70198
+70368
+70371
+70402
+70404
+70463
+70464
+70465
+70469
+70471
+70473
+70475
+70478
+70498
+70500
+70833
+70835
+70841
+70842
+70843
+70845
+70846
+70847
+70849
+70850
+71088
+71090
+71096
+71100
+71102
+71103
+71216
+71219
+71227
+71229
+71230
+71231
+71340
+71341
+71342
+71344
+71350
+71351
+71456
+71458
+71462
+71463
+94033
+94079
+119142
+119143
+119149
+119150
+END
diff --git a/lib/5.24.1/unicore/lib/GCB/XX.pl b/lib/5.24.1/unicore/lib/GCB/XX.pl
new file mode 100644
index 00000000..7b56ae2a
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/GCB/XX.pl
@@ -0,0 +1,529 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V515
+32
+127
+160
+173
+174
+768
+880
+1155
+1162
+1425
+1470
+1471
+1472
+1473
+1475
+1476
+1478
+1479
+1480
+1536
+1542
+1552
+1563
+1564
+1565
+1611
+1632
+1648
+1649
+1750
+1758
+1759
+1765
+1767
+1769
+1770
+1774
+1807
+1808
+1809
+1810
+1840
+1867
+1958
+1969
+2027
+2036
+2070
+2074
+2075
+2084
+2085
+2088
+2089
+2094
+2137
+2140
+2275
+2308
+2362
+2365
+2366
+2384
+2385
+2392
+2402
+2404
+2433
+2436
+2492
+2493
+2494
+2501
+2503
+2505
+2507
+2510
+2519
+2520
+2530
+2532
+2561
+2564
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2672
+2674
+2677
+2678
+2689
+2692
+2748
+2749
+2750
+2758
+2759
+2762
+2763
+2766
+2786
+2788
+2817
+2820
+2876
+2877
+2878
+2885
+2887
+2889
+2891
+2894
+2902
+2904
+2914
+2916
+2946
+2947
+3006
+3011
+3014
+3017
+3018
+3022
+3031
+3032
+3072
+3076
+3134
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3170
+3172
+3201
+3204
+3260
+3261
+3262
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3298
+3300
+3329
+3332
+3390
+3397
+3398
+3401
+3402
+3406
+3415
+3416
+3426
+3428
+3458
+3460
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3570
+3572
+3633
+3634
+3635
+3643
+3655
+3663
+3761
+3762
+3763
+3770
+3771
+3773
+3784
+3790
+3864
+3866
+3893
+3894
+3895
+3896
+3897
+3898
+3902
+3904
+3953
+3973
+3974
+3976
+3981
+3992
+3993
+4029
+4038
+4039
+4141
+4152
+4153
+4159
+4182
+4186
+4190
+4193
+4209
+4213
+4226
+4227
+4228
+4231
+4237
+4238
+4253
+4254
+4352
+4608
+4957
+4960
+5906
+5909
+5938
+5941
+5970
+5972
+6002
+6004
+6068
+6100
+6109
+6110
+6155
+6159
+6313
+6314
+6432
+6444
+6448
+6460
+6679
+6684
+6741
+6751
+6752
+6753
+6754
+6755
+6757
+6781
+6783
+6784
+6832
+6847
+6912
+6917
+6964
+6981
+7019
+7028
+7040
+7043
+7073
+7086
+7142
+7156
+7204
+7224
+7376
+7379
+7380
+7401
+7405
+7406
+7410
+7413
+7416
+7418
+7616
+7670
+7676
+7680
+8203
+8208
+8232
+8239
+8288
+8304
+8400
+8433
+11503
+11506
+11647
+11648
+11744
+11776
+12330
+12336
+12441
+12443
+42607
+42611
+42612
+42622
+42654
+42656
+42736
+42738
+43010
+43011
+43014
+43015
+43019
+43020
+43043
+43048
+43136
+43138
+43188
+43205
+43232
+43250
+43302
+43310
+43335
+43348
+43360
+43389
+43392
+43396
+43443
+43457
+43493
+43494
+43561
+43575
+43587
+43588
+43596
+43598
+43644
+43645
+43696
+43697
+43698
+43701
+43703
+43705
+43710
+43712
+43713
+43714
+43755
+43760
+43765
+43767
+44003
+44011
+44012
+44014
+44032
+55204
+55216
+55239
+55243
+55292
+55296
+57344
+64286
+64287
+65024
+65040
+65056
+65072
+65279
+65280
+65438
+65440
+65520
+65532
+66045
+66046
+66272
+66273
+66422
+66427
+68097
+68100
+68101
+68103
+68108
+68112
+68152
+68155
+68159
+68160
+68325
+68327
+69632
+69635
+69688
+69703
+69759
+69763
+69808
+69819
+69821
+69822
+69888
+69891
+69927
+69941
+70003
+70004
+70016
+70019
+70067
+70081
+70090
+70093
+70188
+70200
+70367
+70379
+70400
+70404
+70460
+70461
+70462
+70469
+70471
+70473
+70475
+70478
+70487
+70488
+70498
+70500
+70502
+70509
+70512
+70517
+70832
+70852
+71087
+71094
+71096
+71105
+71132
+71134
+71216
+71233
+71339
+71352
+71453
+71468
+92912
+92917
+92976
+92983
+94033
+94079
+94095
+94099
+113821
+113823
+113824
+113828
+119141
+119146
+119149
+119171
+119173
+119180
+119210
+119214
+119362
+119365
+121344
+121399
+121403
+121453
+121461
+121462
+121476
+121477
+121499
+121504
+121505
+121520
+125136
+125143
+127462
+127488
+917504
+921600
+END
diff --git a/lib/5.24.1/unicore/lib/Gc/C.pl b/lib/5.24.1/unicore/lib/Gc/C.pl
new file mode 100644
index 00000000..56973d7d
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Gc/C.pl
@@ -0,0 +1,1245 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1231
+0
+32
+127
+160
+173
+174
+888
+890
+896
+900
+907
+908
+909
+910
+930
+931
+1328
+1329
+1367
+1369
+1376
+1377
+1416
+1417
+1419
+1421
+1424
+1425
+1480
+1488
+1515
+1520
+1525
+1542
+1564
+1566
+1757
+1758
+1806
+1808
+1867
+1869
+1970
+1984
+2043
+2048
+2094
+2096
+2111
+2112
+2140
+2142
+2143
+2208
+2229
+2275
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2501
+2503
+2505
+2507
+2511
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2556
+2561
+2564
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2649
+2653
+2654
+2655
+2662
+2678
+2689
+2692
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2788
+2790
+2802
+2809
+2810
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2876
+2885
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2916
+2918
+2936
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3024
+3025
+3031
+3032
+3046
+3067
+3072
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3130
+3133
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3160
+3163
+3168
+3172
+3174
+3184
+3192
+3200
+3201
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3260
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3300
+3302
+3312
+3313
+3315
+3329
+3332
+3333
+3341
+3342
+3345
+3346
+3387
+3389
+3397
+3398
+3401
+3402
+3407
+3415
+3416
+3423
+3428
+3430
+3446
+3449
+3456
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3558
+3568
+3570
+3573
+3585
+3643
+3647
+3676
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3792
+3802
+3804
+3808
+3840
+3912
+3913
+3949
+3953
+3992
+3993
+4029
+4030
+4045
+4046
+4059
+4096
+4294
+4295
+4296
+4301
+4302
+4304
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4957
+4989
+4992
+5018
+5024
+5110
+5112
+5118
+5120
+5789
+5792
+5881
+5888
+5901
+5902
+5909
+5920
+5943
+5952
+5972
+5984
+5997
+5998
+6001
+6002
+6004
+6016
+6110
+6112
+6122
+6128
+6138
+6144
+6158
+6160
+6170
+6176
+6264
+6272
+6315
+6320
+6390
+6400
+6431
+6432
+6444
+6448
+6460
+6464
+6465
+6468
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6608
+6619
+6622
+6684
+6686
+6751
+6752
+6781
+6783
+6794
+6800
+6810
+6816
+6830
+6832
+6847
+6912
+6988
+6992
+7037
+7040
+7156
+7164
+7224
+7227
+7242
+7245
+7296
+7360
+7368
+7376
+7415
+7416
+7418
+7424
+7670
+7676
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8191
+8192
+8203
+8208
+8234
+8239
+8288
+8304
+8306
+8308
+8335
+8336
+8349
+8352
+8383
+8400
+8433
+8448
+8588
+8592
+9211
+9216
+9255
+9280
+9291
+9312
+11124
+11126
+11158
+11160
+11194
+11197
+11209
+11210
+11218
+11244
+11248
+11264
+11311
+11312
+11359
+11360
+11508
+11513
+11558
+11559
+11560
+11565
+11566
+11568
+11624
+11631
+11633
+11647
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11744
+11843
+11904
+11930
+11931
+12020
+12032
+12246
+12272
+12284
+12288
+12352
+12353
+12439
+12441
+12544
+12549
+12590
+12593
+12687
+12688
+12731
+12736
+12772
+12784
+12831
+12832
+13055
+13056
+19894
+19904
+40918
+40960
+42125
+42128
+42183
+42192
+42540
+42560
+42744
+42752
+42926
+42928
+42936
+42999
+43052
+43056
+43066
+43072
+43128
+43136
+43205
+43214
+43226
+43232
+43262
+43264
+43348
+43359
+43389
+43392
+43470
+43471
+43482
+43486
+43519
+43520
+43575
+43584
+43598
+43600
+43610
+43612
+43715
+43739
+43767
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43824
+43878
+43888
+44014
+44016
+44026
+44032
+55204
+55216
+55239
+55243
+55292
+63744
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64450
+64467
+64832
+64848
+64912
+64914
+64968
+65008
+65022
+65024
+65050
+65056
+65107
+65108
+65127
+65128
+65132
+65136
+65141
+65142
+65277
+65281
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+65532
+65534
+65536
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65792
+65795
+65799
+65844
+65847
+65933
+65936
+65948
+65952
+65953
+66000
+66046
+66176
+66205
+66208
+66257
+66272
+66300
+66304
+66340
+66352
+66379
+66384
+66427
+66432
+66462
+66463
+66500
+66504
+66518
+66560
+66718
+66720
+66730
+66816
+66856
+66864
+66916
+66927
+66928
+67072
+67383
+67392
+67414
+67424
+67432
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67671
+67743
+67751
+67760
+67808
+67827
+67828
+67830
+67835
+67868
+67871
+67898
+67903
+67904
+67968
+68024
+68028
+68048
+68050
+68100
+68101
+68103
+68108
+68116
+68117
+68120
+68121
+68148
+68152
+68155
+68159
+68168
+68176
+68185
+68192
+68256
+68288
+68327
+68331
+68343
+68352
+68406
+68409
+68438
+68440
+68467
+68472
+68498
+68505
+68509
+68521
+68528
+68608
+68681
+68736
+68787
+68800
+68851
+68858
+68864
+69216
+69247
+69632
+69710
+69714
+69744
+69759
+69821
+69822
+69826
+69840
+69865
+69872
+69882
+69888
+69941
+69942
+69956
+69968
+70007
+70016
+70094
+70096
+70112
+70113
+70133
+70144
+70162
+70163
+70206
+70272
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70314
+70320
+70379
+70384
+70394
+70400
+70404
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70460
+70469
+70471
+70473
+70475
+70478
+70480
+70481
+70487
+70488
+70493
+70500
+70502
+70509
+70512
+70517
+70784
+70856
+70864
+70874
+71040
+71094
+71096
+71134
+71168
+71237
+71248
+71258
+71296
+71352
+71360
+71370
+71424
+71450
+71453
+71468
+71472
+71488
+71840
+71923
+71935
+71936
+72384
+72441
+73728
+74650
+74752
+74863
+74864
+74869
+74880
+75076
+77824
+78895
+82944
+83527
+92160
+92729
+92736
+92767
+92768
+92778
+92782
+92784
+92880
+92910
+92912
+92918
+92928
+92998
+93008
+93018
+93019
+93026
+93027
+93048
+93053
+93072
+93952
+94021
+94032
+94079
+94095
+94112
+110592
+110594
+113664
+113771
+113776
+113789
+113792
+113801
+113808
+113818
+113820
+113824
+118784
+119030
+119040
+119079
+119081
+119155
+119163
+119273
+119296
+119366
+119552
+119639
+119648
+119666
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120780
+120782
+121484
+121499
+121504
+121505
+121520
+124928
+125125
+125127
+125143
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+126704
+126706
+126976
+127020
+127024
+127124
+127136
+127151
+127153
+127168
+127169
+127184
+127185
+127222
+127232
+127245
+127248
+127279
+127280
+127340
+127344
+127387
+127462
+127491
+127504
+127547
+127552
+127561
+127568
+127570
+127744
+128378
+128379
+128420
+128421
+128721
+128736
+128749
+128752
+128756
+128768
+128884
+128896
+128981
+129024
+129036
+129040
+129096
+129104
+129114
+129120
+129160
+129168
+129198
+129296
+129305
+129408
+129413
+129472
+129473
+131072
+173783
+173824
+177973
+177984
+178206
+178208
+183970
+194560
+195102
+917760
+918000
+END
diff --git a/lib/5.24.1/unicore/lib/Gc/Cf.pl b/lib/5.24.1/unicore/lib/Gc/Cf.pl
new file mode 100644
index 00000000..7104b0f2
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Gc/Cf.pl
@@ -0,0 +1,48 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V34
+173
+174
+1536
+1542
+1564
+1565
+1757
+1758
+1807
+1808
+6158
+6159
+8203
+8208
+8234
+8239
+8288
+8293
+8294
+8304
+65279
+65280
+65529
+65532
+69821
+69822
+113824
+113828
+119155
+119163
+917505
+917506
+917536
+917632
+END
diff --git a/lib/5.24.1/unicore/lib/Gc/Cn.pl b/lib/5.24.1/unicore/lib/Gc/Cn.pl
new file mode 100644
index 00000000..5787fe5a
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Gc/Cn.pl
@@ -0,0 +1,1239 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1225
+888
+890
+896
+900
+907
+908
+909
+910
+930
+931
+1328
+1329
+1367
+1369
+1376
+1377
+1416
+1417
+1419
+1421
+1424
+1425
+1480
+1488
+1515
+1520
+1525
+1536
+1565
+1566
+1806
+1807
+1867
+1869
+1970
+1984
+2043
+2048
+2094
+2096
+2111
+2112
+2140
+2142
+2143
+2208
+2229
+2275
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2501
+2503
+2505
+2507
+2511
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2556
+2561
+2564
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2649
+2653
+2654
+2655
+2662
+2678
+2689
+2692
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2788
+2790
+2802
+2809
+2810
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2876
+2885
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2916
+2918
+2936
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3024
+3025
+3031
+3032
+3046
+3067
+3072
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3130
+3133
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3160
+3163
+3168
+3172
+3174
+3184
+3192
+3200
+3201
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3260
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3300
+3302
+3312
+3313
+3315
+3329
+3332
+3333
+3341
+3342
+3345
+3346
+3387
+3389
+3397
+3398
+3401
+3402
+3407
+3415
+3416
+3423
+3428
+3430
+3446
+3449
+3456
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3558
+3568
+3570
+3573
+3585
+3643
+3647
+3676
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3792
+3802
+3804
+3808
+3840
+3912
+3913
+3949
+3953
+3992
+3993
+4029
+4030
+4045
+4046
+4059
+4096
+4294
+4295
+4296
+4301
+4302
+4304
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4957
+4989
+4992
+5018
+5024
+5110
+5112
+5118
+5120
+5789
+5792
+5881
+5888
+5901
+5902
+5909
+5920
+5943
+5952
+5972
+5984
+5997
+5998
+6001
+6002
+6004
+6016
+6110
+6112
+6122
+6128
+6138
+6144
+6159
+6160
+6170
+6176
+6264
+6272
+6315
+6320
+6390
+6400
+6431
+6432
+6444
+6448
+6460
+6464
+6465
+6468
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6608
+6619
+6622
+6684
+6686
+6751
+6752
+6781
+6783
+6794
+6800
+6810
+6816
+6830
+6832
+6847
+6912
+6988
+6992
+7037
+7040
+7156
+7164
+7224
+7227
+7242
+7245
+7296
+7360
+7368
+7376
+7415
+7416
+7418
+7424
+7670
+7676
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8191
+8192
+8293
+8294
+8306
+8308
+8335
+8336
+8349
+8352
+8383
+8400
+8433
+8448
+8588
+8592
+9211
+9216
+9255
+9280
+9291
+9312
+11124
+11126
+11158
+11160
+11194
+11197
+11209
+11210
+11218
+11244
+11248
+11264
+11311
+11312
+11359
+11360
+11508
+11513
+11558
+11559
+11560
+11565
+11566
+11568
+11624
+11631
+11633
+11647
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11744
+11843
+11904
+11930
+11931
+12020
+12032
+12246
+12272
+12284
+12288
+12352
+12353
+12439
+12441
+12544
+12549
+12590
+12593
+12687
+12688
+12731
+12736
+12772
+12784
+12831
+12832
+13055
+13056
+19894
+19904
+40918
+40960
+42125
+42128
+42183
+42192
+42540
+42560
+42744
+42752
+42926
+42928
+42936
+42999
+43052
+43056
+43066
+43072
+43128
+43136
+43205
+43214
+43226
+43232
+43262
+43264
+43348
+43359
+43389
+43392
+43470
+43471
+43482
+43486
+43519
+43520
+43575
+43584
+43598
+43600
+43610
+43612
+43715
+43739
+43767
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43824
+43878
+43888
+44014
+44016
+44026
+44032
+55204
+55216
+55239
+55243
+55292
+55296
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64450
+64467
+64832
+64848
+64912
+64914
+64968
+65008
+65022
+65024
+65050
+65056
+65107
+65108
+65127
+65128
+65132
+65136
+65141
+65142
+65277
+65279
+65280
+65281
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+65529
+65534
+65536
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65792
+65795
+65799
+65844
+65847
+65933
+65936
+65948
+65952
+65953
+66000
+66046
+66176
+66205
+66208
+66257
+66272
+66300
+66304
+66340
+66352
+66379
+66384
+66427
+66432
+66462
+66463
+66500
+66504
+66518
+66560
+66718
+66720
+66730
+66816
+66856
+66864
+66916
+66927
+66928
+67072
+67383
+67392
+67414
+67424
+67432
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67671
+67743
+67751
+67760
+67808
+67827
+67828
+67830
+67835
+67868
+67871
+67898
+67903
+67904
+67968
+68024
+68028
+68048
+68050
+68100
+68101
+68103
+68108
+68116
+68117
+68120
+68121
+68148
+68152
+68155
+68159
+68168
+68176
+68185
+68192
+68256
+68288
+68327
+68331
+68343
+68352
+68406
+68409
+68438
+68440
+68467
+68472
+68498
+68505
+68509
+68521
+68528
+68608
+68681
+68736
+68787
+68800
+68851
+68858
+68864
+69216
+69247
+69632
+69710
+69714
+69744
+69759
+69826
+69840
+69865
+69872
+69882
+69888
+69941
+69942
+69956
+69968
+70007
+70016
+70094
+70096
+70112
+70113
+70133
+70144
+70162
+70163
+70206
+70272
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70314
+70320
+70379
+70384
+70394
+70400
+70404
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70460
+70469
+70471
+70473
+70475
+70478
+70480
+70481
+70487
+70488
+70493
+70500
+70502
+70509
+70512
+70517
+70784
+70856
+70864
+70874
+71040
+71094
+71096
+71134
+71168
+71237
+71248
+71258
+71296
+71352
+71360
+71370
+71424
+71450
+71453
+71468
+71472
+71488
+71840
+71923
+71935
+71936
+72384
+72441
+73728
+74650
+74752
+74863
+74864
+74869
+74880
+75076
+77824
+78895
+82944
+83527
+92160
+92729
+92736
+92767
+92768
+92778
+92782
+92784
+92880
+92910
+92912
+92918
+92928
+92998
+93008
+93018
+93019
+93026
+93027
+93048
+93053
+93072
+93952
+94021
+94032
+94079
+94095
+94112
+110592
+110594
+113664
+113771
+113776
+113789
+113792
+113801
+113808
+113818
+113820
+113828
+118784
+119030
+119040
+119079
+119081
+119273
+119296
+119366
+119552
+119639
+119648
+119666
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120780
+120782
+121484
+121499
+121504
+121505
+121520
+124928
+125125
+125127
+125143
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+126704
+126706
+126976
+127020
+127024
+127124
+127136
+127151
+127153
+127168
+127169
+127184
+127185
+127222
+127232
+127245
+127248
+127279
+127280
+127340
+127344
+127387
+127462
+127491
+127504
+127547
+127552
+127561
+127568
+127570
+127744
+128378
+128379
+128420
+128421
+128721
+128736
+128749
+128752
+128756
+128768
+128884
+128896
+128981
+129024
+129036
+129040
+129096
+129104
+129114
+129120
+129160
+129168
+129198
+129296
+129305
+129408
+129413
+129472
+129473
+131072
+173783
+173824
+177973
+177984
+178206
+178208
+183970
+194560
+195102
+917505
+917506
+917536
+917632
+917760
+918000
+983040
+1048574
+1048576
+1114110
+END
diff --git a/lib/5.24.1/unicore/lib/Gc/L.pl b/lib/5.24.1/unicore/lib/Gc/L.pl
new file mode 100644
index 00000000..35cd10e9
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Gc/L.pl
@@ -0,0 +1,1122 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1108
+65
+91
+97
+123
+170
+171
+181
+182
+186
+187
+192
+215
+216
+247
+248
+706
+710
+722
+736
+741
+748
+749
+750
+751
+880
+885
+886
+888
+890
+894
+895
+896
+902
+903
+904
+907
+908
+909
+910
+930
+931
+1014
+1015
+1154
+1162
+1328
+1329
+1367
+1369
+1370
+1377
+1416
+1488
+1515
+1520
+1523
+1568
+1611
+1646
+1648
+1649
+1748
+1749
+1750
+1765
+1767
+1774
+1776
+1786
+1789
+1791
+1792
+1808
+1809
+1810
+1840
+1869
+1958
+1969
+1970
+1994
+2027
+2036
+2038
+2042
+2043
+2048
+2070
+2074
+2075
+2084
+2085
+2088
+2089
+2112
+2137
+2208
+2229
+2308
+2362
+2365
+2366
+2384
+2385
+2392
+2402
+2417
+2433
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2493
+2494
+2510
+2511
+2524
+2526
+2527
+2530
+2544
+2546
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2649
+2653
+2654
+2655
+2674
+2677
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2749
+2750
+2768
+2769
+2784
+2786
+2809
+2810
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2877
+2878
+2908
+2910
+2911
+2914
+2929
+2930
+2947
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3024
+3025
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3130
+3133
+3134
+3160
+3163
+3168
+3170
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3261
+3262
+3294
+3295
+3296
+3298
+3313
+3315
+3333
+3341
+3342
+3345
+3346
+3387
+3389
+3390
+3406
+3407
+3423
+3426
+3450
+3456
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3585
+3633
+3634
+3636
+3648
+3655
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3761
+3762
+3764
+3773
+3774
+3776
+3781
+3782
+3783
+3804
+3808
+3840
+3841
+3904
+3912
+3913
+3949
+3976
+3981
+4096
+4139
+4159
+4160
+4176
+4182
+4186
+4190
+4193
+4194
+4197
+4199
+4206
+4209
+4213
+4226
+4238
+4239
+4256
+4294
+4295
+4296
+4301
+4302
+4304
+4347
+4348
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4992
+5008
+5024
+5110
+5112
+5118
+5121
+5741
+5743
+5760
+5761
+5787
+5792
+5867
+5873
+5881
+5888
+5901
+5902
+5906
+5920
+5938
+5952
+5970
+5984
+5997
+5998
+6001
+6016
+6068
+6103
+6104
+6108
+6109
+6176
+6264
+6272
+6313
+6314
+6315
+6320
+6390
+6400
+6431
+6480
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6656
+6679
+6688
+6741
+6823
+6824
+6917
+6964
+6981
+6988
+7043
+7073
+7086
+7088
+7098
+7142
+7168
+7204
+7245
+7248
+7258
+7294
+7401
+7405
+7406
+7410
+7413
+7415
+7424
+7616
+7680
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8125
+8126
+8127
+8130
+8133
+8134
+8141
+8144
+8148
+8150
+8156
+8160
+8173
+8178
+8181
+8182
+8189
+8305
+8306
+8319
+8320
+8336
+8349
+8450
+8451
+8455
+8456
+8458
+8468
+8469
+8470
+8473
+8478
+8484
+8485
+8486
+8487
+8488
+8489
+8490
+8494
+8495
+8506
+8508
+8512
+8517
+8522
+8526
+8527
+8579
+8581
+11264
+11311
+11312
+11359
+11360
+11493
+11499
+11503
+11506
+11508
+11520
+11558
+11559
+11560
+11565
+11566
+11568
+11624
+11631
+11632
+11648
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11823
+11824
+12293
+12295
+12337
+12342
+12347
+12349
+12353
+12439
+12445
+12448
+12449
+12539
+12540
+12544
+12549
+12590
+12593
+12687
+12704
+12731
+12784
+12800
+13312
+19894
+19968
+40918
+40960
+42125
+42192
+42238
+42240
+42509
+42512
+42528
+42538
+42540
+42560
+42607
+42623
+42654
+42656
+42726
+42775
+42784
+42786
+42889
+42891
+42926
+42928
+42936
+42999
+43010
+43011
+43014
+43015
+43019
+43020
+43043
+43072
+43124
+43138
+43188
+43250
+43256
+43259
+43260
+43261
+43262
+43274
+43302
+43312
+43335
+43360
+43389
+43396
+43443
+43471
+43472
+43488
+43493
+43494
+43504
+43514
+43519
+43520
+43561
+43584
+43587
+43588
+43596
+43616
+43639
+43642
+43643
+43646
+43696
+43697
+43698
+43701
+43703
+43705
+43710
+43712
+43713
+43714
+43715
+43739
+43742
+43744
+43755
+43762
+43765
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43824
+43867
+43868
+43878
+43888
+44003
+44032
+55204
+55216
+55239
+55243
+55292
+63744
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64286
+64287
+64297
+64298
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64434
+64467
+64830
+64848
+64912
+64914
+64968
+65008
+65020
+65136
+65141
+65142
+65277
+65313
+65339
+65345
+65371
+65382
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65536
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+66176
+66205
+66208
+66257
+66304
+66336
+66352
+66369
+66370
+66378
+66384
+66422
+66432
+66462
+66464
+66500
+66504
+66512
+66560
+66718
+66816
+66856
+66864
+66916
+67072
+67383
+67392
+67414
+67424
+67432
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67680
+67703
+67712
+67743
+67808
+67827
+67828
+67830
+67840
+67862
+67872
+67898
+67968
+68024
+68030
+68032
+68096
+68097
+68112
+68116
+68117
+68120
+68121
+68148
+68192
+68221
+68224
+68253
+68288
+68296
+68297
+68325
+68352
+68406
+68416
+68438
+68448
+68467
+68480
+68498
+68608
+68681
+68736
+68787
+68800
+68851
+69635
+69688
+69763
+69808
+69840
+69865
+69891
+69927
+69968
+70003
+70006
+70007
+70019
+70067
+70081
+70085
+70106
+70107
+70108
+70109
+70144
+70162
+70163
+70188
+70272
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70313
+70320
+70367
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70461
+70462
+70480
+70481
+70493
+70498
+70784
+70832
+70852
+70854
+70855
+70856
+71040
+71087
+71128
+71132
+71168
+71216
+71236
+71237
+71296
+71339
+71424
+71450
+71840
+71904
+71935
+71936
+72384
+72441
+73728
+74650
+74880
+75076
+77824
+78895
+82944
+83527
+92160
+92729
+92736
+92767
+92880
+92910
+92928
+92976
+92992
+92996
+93027
+93048
+93053
+93072
+93952
+94021
+94032
+94033
+94099
+94112
+110592
+110594
+113664
+113771
+113776
+113789
+113792
+113801
+113808
+113818
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120513
+120514
+120539
+120540
+120571
+120572
+120597
+120598
+120629
+120630
+120655
+120656
+120687
+120688
+120713
+120714
+120745
+120746
+120771
+120772
+120780
+124928
+125125
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+131072
+173783
+173824
+177973
+177984
+178206
+178208
+183970
+194560
+195102
+END
diff --git a/lib/5.24.1/unicore/lib/Gc/LC.pl b/lib/5.24.1/unicore/lib/Gc/LC.pl
new file mode 100644
index 00000000..4ac3ef64
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Gc/LC.pl
@@ -0,0 +1,258 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V244
+65
+91
+97
+123
+181
+182
+192
+215
+216
+247
+248
+443
+444
+448
+452
+660
+661
+688
+880
+884
+886
+888
+891
+894
+895
+896
+902
+903
+904
+907
+908
+909
+910
+930
+931
+1014
+1015
+1154
+1162
+1328
+1329
+1367
+1377
+1416
+4256
+4294
+4295
+4296
+4301
+4302
+5024
+5110
+5112
+5118
+7424
+7468
+7531
+7544
+7545
+7579
+7680
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8125
+8126
+8127
+8130
+8133
+8134
+8141
+8144
+8148
+8150
+8156
+8160
+8173
+8178
+8181
+8182
+8189
+8450
+8451
+8455
+8456
+8458
+8468
+8469
+8470
+8473
+8478
+8484
+8485
+8486
+8487
+8488
+8489
+8490
+8494
+8495
+8501
+8505
+8506
+8508
+8512
+8517
+8522
+8526
+8527
+8579
+8581
+11264
+11311
+11312
+11359
+11360
+11388
+11390
+11493
+11499
+11503
+11506
+11508
+11520
+11558
+11559
+11560
+11565
+11566
+42560
+42606
+42624
+42652
+42786
+42864
+42865
+42888
+42891
+42895
+42896
+42926
+42928
+42936
+43002
+43003
+43824
+43867
+43872
+43878
+43888
+43968
+64256
+64263
+64275
+64280
+65313
+65339
+65345
+65371
+66560
+66640
+68736
+68787
+68800
+68851
+71840
+71904
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120513
+120514
+120539
+120540
+120571
+120572
+120597
+120598
+120629
+120630
+120655
+120656
+120687
+120688
+120713
+120714
+120745
+120746
+120771
+120772
+120780
+END
diff --git a/lib/5.24.1/unicore/lib/Gc/Ll.pl b/lib/5.24.1/unicore/lib/Gc/Ll.pl
new file mode 100644
index 00000000..4e064c21
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Gc/Ll.pl
@@ -0,0 +1,1274 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1260
+97
+123
+181
+182
+223
+247
+248
+256
+257
+258
+259
+260
+261
+262
+263
+264
+265
+266
+267
+268
+269
+270
+271
+272
+273
+274
+275
+276
+277
+278
+279
+280
+281
+282
+283
+284
+285
+286
+287
+288
+289
+290
+291
+292
+293
+294
+295
+296
+297
+298
+299
+300
+301
+302
+303
+304
+305
+306
+307
+308
+309
+310
+311
+313
+314
+315
+316
+317
+318
+319
+320
+321
+322
+323
+324
+325
+326
+327
+328
+330
+331
+332
+333
+334
+335
+336
+337
+338
+339
+340
+341
+342
+343
+344
+345
+346
+347
+348
+349
+350
+351
+352
+353
+354
+355
+356
+357
+358
+359
+360
+361
+362
+363
+364
+365
+366
+367
+368
+369
+370
+371
+372
+373
+374
+375
+376
+378
+379
+380
+381
+382
+385
+387
+388
+389
+390
+392
+393
+396
+398
+402
+403
+405
+406
+409
+412
+414
+415
+417
+418
+419
+420
+421
+422
+424
+425
+426
+428
+429
+430
+432
+433
+436
+437
+438
+439
+441
+443
+445
+448
+454
+455
+457
+458
+460
+461
+462
+463
+464
+465
+466
+467
+468
+469
+470
+471
+472
+473
+474
+475
+476
+478
+479
+480
+481
+482
+483
+484
+485
+486
+487
+488
+489
+490
+491
+492
+493
+494
+495
+497
+499
+500
+501
+502
+505
+506
+507
+508
+509
+510
+511
+512
+513
+514
+515
+516
+517
+518
+519
+520
+521
+522
+523
+524
+525
+526
+527
+528
+529
+530
+531
+532
+533
+534
+535
+536
+537
+538
+539
+540
+541
+542
+543
+544
+545
+546
+547
+548
+549
+550
+551
+552
+553
+554
+555
+556
+557
+558
+559
+560
+561
+562
+563
+570
+572
+573
+575
+577
+578
+579
+583
+584
+585
+586
+587
+588
+589
+590
+591
+660
+661
+688
+881
+882
+883
+884
+887
+888
+891
+894
+912
+913
+940
+975
+976
+978
+981
+984
+985
+986
+987
+988
+989
+990
+991
+992
+993
+994
+995
+996
+997
+998
+999
+1000
+1001
+1002
+1003
+1004
+1005
+1006
+1007
+1012
+1013
+1014
+1016
+1017
+1019
+1021
+1072
+1120
+1121
+1122
+1123
+1124
+1125
+1126
+1127
+1128
+1129
+1130
+1131
+1132
+1133
+1134
+1135
+1136
+1137
+1138
+1139
+1140
+1141
+1142
+1143
+1144
+1145
+1146
+1147
+1148
+1149
+1150
+1151
+1152
+1153
+1154
+1163
+1164
+1165
+1166
+1167
+1168
+1169
+1170
+1171
+1172
+1173
+1174
+1175
+1176
+1177
+1178
+1179
+1180
+1181
+1182
+1183
+1184
+1185
+1186
+1187
+1188
+1189
+1190
+1191
+1192
+1193
+1194
+1195
+1196
+1197
+1198
+1199
+1200
+1201
+1202
+1203
+1204
+1205
+1206
+1207
+1208
+1209
+1210
+1211
+1212
+1213
+1214
+1215
+1216
+1218
+1219
+1220
+1221
+1222
+1223
+1224
+1225
+1226
+1227
+1228
+1229
+1230
+1232
+1233
+1234
+1235
+1236
+1237
+1238
+1239
+1240
+1241
+1242
+1243
+1244
+1245
+1246
+1247
+1248
+1249
+1250
+1251
+1252
+1253
+1254
+1255
+1256
+1257
+1258
+1259
+1260
+1261
+1262
+1263
+1264
+1265
+1266
+1267
+1268
+1269
+1270
+1271
+1272
+1273
+1274
+1275
+1276
+1277
+1278
+1279
+1280
+1281
+1282
+1283
+1284
+1285
+1286
+1287
+1288
+1289
+1290
+1291
+1292
+1293
+1294
+1295
+1296
+1297
+1298
+1299
+1300
+1301
+1302
+1303
+1304
+1305
+1306
+1307
+1308
+1309
+1310
+1311
+1312
+1313
+1314
+1315
+1316
+1317
+1318
+1319
+1320
+1321
+1322
+1323
+1324
+1325
+1326
+1327
+1328
+1377
+1416
+5112
+5118
+7424
+7468
+7531
+7544
+7545
+7579
+7681
+7682
+7683
+7684
+7685
+7686
+7687
+7688
+7689
+7690
+7691
+7692
+7693
+7694
+7695
+7696
+7697
+7698
+7699
+7700
+7701
+7702
+7703
+7704
+7705
+7706
+7707
+7708
+7709
+7710
+7711
+7712
+7713
+7714
+7715
+7716
+7717
+7718
+7719
+7720
+7721
+7722
+7723
+7724
+7725
+7726
+7727
+7728
+7729
+7730
+7731
+7732
+7733
+7734
+7735
+7736
+7737
+7738
+7739
+7740
+7741
+7742
+7743
+7744
+7745
+7746
+7747
+7748
+7749
+7750
+7751
+7752
+7753
+7754
+7755
+7756
+7757
+7758
+7759
+7760
+7761
+7762
+7763
+7764
+7765
+7766
+7767
+7768
+7769
+7770
+7771
+7772
+7773
+7774
+7775
+7776
+7777
+7778
+7779
+7780
+7781
+7782
+7783
+7784
+7785
+7786
+7787
+7788
+7789
+7790
+7791
+7792
+7793
+7794
+7795
+7796
+7797
+7798
+7799
+7800
+7801
+7802
+7803
+7804
+7805
+7806
+7807
+7808
+7809
+7810
+7811
+7812
+7813
+7814
+7815
+7816
+7817
+7818
+7819
+7820
+7821
+7822
+7823
+7824
+7825
+7826
+7827
+7828
+7829
+7838
+7839
+7840
+7841
+7842
+7843
+7844
+7845
+7846
+7847
+7848
+7849
+7850
+7851
+7852
+7853
+7854
+7855
+7856
+7857
+7858
+7859
+7860
+7861
+7862
+7863
+7864
+7865
+7866
+7867
+7868
+7869
+7870
+7871
+7872
+7873
+7874
+7875
+7876
+7877
+7878
+7879
+7880
+7881
+7882
+7883
+7884
+7885
+7886
+7887
+7888
+7889
+7890
+7891
+7892
+7893
+7894
+7895
+7896
+7897
+7898
+7899
+7900
+7901
+7902
+7903
+7904
+7905
+7906
+7907
+7908
+7909
+7910
+7911
+7912
+7913
+7914
+7915
+7916
+7917
+7918
+7919
+7920
+7921
+7922
+7923
+7924
+7925
+7926
+7927
+7928
+7929
+7930
+7931
+7932
+7933
+7934
+7935
+7944
+7952
+7958
+7968
+7976
+7984
+7992
+8000
+8006
+8016
+8024
+8032
+8040
+8048
+8062
+8064
+8072
+8080
+8088
+8096
+8104
+8112
+8117
+8118
+8120
+8126
+8127
+8130
+8133
+8134
+8136
+8144
+8148
+8150
+8152
+8160
+8168
+8178
+8181
+8182
+8184
+8458
+8459
+8462
+8464
+8467
+8468
+8495
+8496
+8500
+8501
+8505
+8506
+8508
+8510
+8518
+8522
+8526
+8527
+8580
+8581
+11312
+11359
+11361
+11362
+11365
+11367
+11368
+11369
+11370
+11371
+11372
+11373
+11377
+11378
+11379
+11381
+11382
+11388
+11393
+11394
+11395
+11396
+11397
+11398
+11399
+11400
+11401
+11402
+11403
+11404
+11405
+11406
+11407
+11408
+11409
+11410
+11411
+11412
+11413
+11414
+11415
+11416
+11417
+11418
+11419
+11420
+11421
+11422
+11423
+11424
+11425
+11426
+11427
+11428
+11429
+11430
+11431
+11432
+11433
+11434
+11435
+11436
+11437
+11438
+11439
+11440
+11441
+11442
+11443
+11444
+11445
+11446
+11447
+11448
+11449
+11450
+11451
+11452
+11453
+11454
+11455
+11456
+11457
+11458
+11459
+11460
+11461
+11462
+11463
+11464
+11465
+11466
+11467
+11468
+11469
+11470
+11471
+11472
+11473
+11474
+11475
+11476
+11477
+11478
+11479
+11480
+11481
+11482
+11483
+11484
+11485
+11486
+11487
+11488
+11489
+11490
+11491
+11493
+11500
+11501
+11502
+11503
+11507
+11508
+11520
+11558
+11559
+11560
+11565
+11566
+42561
+42562
+42563
+42564
+42565
+42566
+42567
+42568
+42569
+42570
+42571
+42572
+42573
+42574
+42575
+42576
+42577
+42578
+42579
+42580
+42581
+42582
+42583
+42584
+42585
+42586
+42587
+42588
+42589
+42590
+42591
+42592
+42593
+42594
+42595
+42596
+42597
+42598
+42599
+42600
+42601
+42602
+42603
+42604
+42605
+42606
+42625
+42626
+42627
+42628
+42629
+42630
+42631
+42632
+42633
+42634
+42635
+42636
+42637
+42638
+42639
+42640
+42641
+42642
+42643
+42644
+42645
+42646
+42647
+42648
+42649
+42650
+42651
+42652
+42787
+42788
+42789
+42790
+42791
+42792
+42793
+42794
+42795
+42796
+42797
+42798
+42799
+42802
+42803
+42804
+42805
+42806
+42807
+42808
+42809
+42810
+42811
+42812
+42813
+42814
+42815
+42816
+42817
+42818
+42819
+42820
+42821
+42822
+42823
+42824
+42825
+42826
+42827
+42828
+42829
+42830
+42831
+42832
+42833
+42834
+42835
+42836
+42837
+42838
+42839
+42840
+42841
+42842
+42843
+42844
+42845
+42846
+42847
+42848
+42849
+42850
+42851
+42852
+42853
+42854
+42855
+42856
+42857
+42858
+42859
+42860
+42861
+42862
+42863
+42864
+42865
+42873
+42874
+42875
+42876
+42877
+42879
+42880
+42881
+42882
+42883
+42884
+42885
+42886
+42887
+42888
+42892
+42893
+42894
+42895
+42897
+42898
+42899
+42902
+42903
+42904
+42905
+42906
+42907
+42908
+42909
+42910
+42911
+42912
+42913
+42914
+42915
+42916
+42917
+42918
+42919
+42920
+42921
+42922
+42933
+42934
+42935
+42936
+43002
+43003
+43824
+43867
+43872
+43878
+43888
+43968
+64256
+64263
+64275
+64280
+65345
+65371
+66600
+66640
+68800
+68851
+71872
+71904
+119834
+119860
+119886
+119893
+119894
+119912
+119938
+119964
+119990
+119994
+119995
+119996
+119997
+120004
+120005
+120016
+120042
+120068
+120094
+120120
+120146
+120172
+120198
+120224
+120250
+120276
+120302
+120328
+120354
+120380
+120406
+120432
+120458
+120486
+120514
+120539
+120540
+120546
+120572
+120597
+120598
+120604
+120630
+120655
+120656
+120662
+120688
+120713
+120714
+120720
+120746
+120771
+120772
+120778
+120779
+120780
+END
diff --git a/lib/5.24.1/unicore/lib/Gc/Lm.pl b/lib/5.24.1/unicore/lib/Gc/Lm.pl
new file mode 100644
index 00000000..f2c9f2de
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Gc/Lm.pl
@@ -0,0 +1,126 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V112
+688
+706
+710
+722
+736
+741
+748
+749
+750
+751
+884
+885
+890
+891
+1369
+1370
+1600
+1601
+1765
+1767
+2036
+2038
+2042
+2043
+2074
+2075
+2084
+2085
+2088
+2089
+2417
+2418
+3654
+3655
+3782
+3783
+4348
+4349
+6103
+6104
+6211
+6212
+6823
+6824
+7288
+7294
+7468
+7531
+7544
+7545
+7579
+7616
+8305
+8306
+8319
+8320
+8336
+8349
+11388
+11390
+11631
+11632
+11823
+11824
+12293
+12294
+12337
+12342
+12347
+12348
+12445
+12447
+12540
+12543
+40981
+40982
+42232
+42238
+42508
+42509
+42623
+42624
+42652
+42654
+42775
+42784
+42864
+42865
+42888
+42889
+43000
+43002
+43471
+43472
+43494
+43495
+43632
+43633
+43741
+43742
+43763
+43765
+43868
+43872
+65392
+65393
+65438
+65440
+92992
+92996
+94099
+94112
+END
diff --git a/lib/5.24.1/unicore/lib/Gc/Lo.pl b/lib/5.24.1/unicore/lib/Gc/Lo.pl
new file mode 100644
index 00000000..e7617b14
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Gc/Lo.pl
@@ -0,0 +1,880 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V866
+170
+171
+186
+187
+443
+444
+448
+452
+660
+661
+1488
+1515
+1520
+1523
+1568
+1600
+1601
+1611
+1646
+1648
+1649
+1748
+1749
+1750
+1774
+1776
+1786
+1789
+1791
+1792
+1808
+1809
+1810
+1840
+1869
+1958
+1969
+1970
+1994
+2027
+2048
+2070
+2112
+2137
+2208
+2229
+2308
+2362
+2365
+2366
+2384
+2385
+2392
+2402
+2418
+2433
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2493
+2494
+2510
+2511
+2524
+2526
+2527
+2530
+2544
+2546
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2649
+2653
+2654
+2655
+2674
+2677
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2749
+2750
+2768
+2769
+2784
+2786
+2809
+2810
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2877
+2878
+2908
+2910
+2911
+2914
+2929
+2930
+2947
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3024
+3025
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3130
+3133
+3134
+3160
+3163
+3168
+3170
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3261
+3262
+3294
+3295
+3296
+3298
+3313
+3315
+3333
+3341
+3342
+3345
+3346
+3387
+3389
+3390
+3406
+3407
+3423
+3426
+3450
+3456
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3585
+3633
+3634
+3636
+3648
+3654
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3761
+3762
+3764
+3773
+3774
+3776
+3781
+3804
+3808
+3840
+3841
+3904
+3912
+3913
+3949
+3976
+3981
+4096
+4139
+4159
+4160
+4176
+4182
+4186
+4190
+4193
+4194
+4197
+4199
+4206
+4209
+4213
+4226
+4238
+4239
+4304
+4347
+4349
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4992
+5008
+5121
+5741
+5743
+5760
+5761
+5787
+5792
+5867
+5873
+5881
+5888
+5901
+5902
+5906
+5920
+5938
+5952
+5970
+5984
+5997
+5998
+6001
+6016
+6068
+6108
+6109
+6176
+6211
+6212
+6264
+6272
+6313
+6314
+6315
+6320
+6390
+6400
+6431
+6480
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6656
+6679
+6688
+6741
+6917
+6964
+6981
+6988
+7043
+7073
+7086
+7088
+7098
+7142
+7168
+7204
+7245
+7248
+7258
+7288
+7401
+7405
+7406
+7410
+7413
+7415
+8501
+8505
+11568
+11624
+11648
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+12294
+12295
+12348
+12349
+12353
+12439
+12447
+12448
+12449
+12539
+12543
+12544
+12549
+12590
+12593
+12687
+12704
+12731
+12784
+12800
+13312
+19894
+19968
+40918
+40960
+40981
+40982
+42125
+42192
+42232
+42240
+42508
+42512
+42528
+42538
+42540
+42606
+42607
+42656
+42726
+42895
+42896
+42999
+43000
+43003
+43010
+43011
+43014
+43015
+43019
+43020
+43043
+43072
+43124
+43138
+43188
+43250
+43256
+43259
+43260
+43261
+43262
+43274
+43302
+43312
+43335
+43360
+43389
+43396
+43443
+43488
+43493
+43495
+43504
+43514
+43519
+43520
+43561
+43584
+43587
+43588
+43596
+43616
+43632
+43633
+43639
+43642
+43643
+43646
+43696
+43697
+43698
+43701
+43703
+43705
+43710
+43712
+43713
+43714
+43715
+43739
+43741
+43744
+43755
+43762
+43763
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43968
+44003
+44032
+55204
+55216
+55239
+55243
+55292
+63744
+64110
+64112
+64218
+64285
+64286
+64287
+64297
+64298
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64434
+64467
+64830
+64848
+64912
+64914
+64968
+65008
+65020
+65136
+65141
+65142
+65277
+65382
+65392
+65393
+65438
+65440
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65536
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+66176
+66205
+66208
+66257
+66304
+66336
+66352
+66369
+66370
+66378
+66384
+66422
+66432
+66462
+66464
+66500
+66504
+66512
+66640
+66718
+66816
+66856
+66864
+66916
+67072
+67383
+67392
+67414
+67424
+67432
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67680
+67703
+67712
+67743
+67808
+67827
+67828
+67830
+67840
+67862
+67872
+67898
+67968
+68024
+68030
+68032
+68096
+68097
+68112
+68116
+68117
+68120
+68121
+68148
+68192
+68221
+68224
+68253
+68288
+68296
+68297
+68325
+68352
+68406
+68416
+68438
+68448
+68467
+68480
+68498
+68608
+68681
+69635
+69688
+69763
+69808
+69840
+69865
+69891
+69927
+69968
+70003
+70006
+70007
+70019
+70067
+70081
+70085
+70106
+70107
+70108
+70109
+70144
+70162
+70163
+70188
+70272
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70313
+70320
+70367
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70461
+70462
+70480
+70481
+70493
+70498
+70784
+70832
+70852
+70854
+70855
+70856
+71040
+71087
+71128
+71132
+71168
+71216
+71236
+71237
+71296
+71339
+71424
+71450
+71935
+71936
+72384
+72441
+73728
+74650
+74880
+75076
+77824
+78895
+82944
+83527
+92160
+92729
+92736
+92767
+92880
+92910
+92928
+92976
+93027
+93048
+93053
+93072
+93952
+94021
+94032
+94033
+110592
+110594
+113664
+113771
+113776
+113789
+113792
+113801
+113808
+113818
+124928
+125125
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+131072
+173783
+173824
+177973
+177984
+178206
+178208
+183970
+194560
+195102
+END
diff --git a/lib/5.24.1/unicore/lib/Gc/Lu.pl b/lib/5.24.1/unicore/lib/Gc/Lu.pl
new file mode 100644
index 00000000..77bbb586
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Gc/Lu.pl
@@ -0,0 +1,1264 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1250
+65
+91
+192
+215
+216
+223
+256
+257
+258
+259
+260
+261
+262
+263
+264
+265
+266
+267
+268
+269
+270
+271
+272
+273
+274
+275
+276
+277
+278
+279
+280
+281
+282
+283
+284
+285
+286
+287
+288
+289
+290
+291
+292
+293
+294
+295
+296
+297
+298
+299
+300
+301
+302
+303
+304
+305
+306
+307
+308
+309
+310
+311
+313
+314
+315
+316
+317
+318
+319
+320
+321
+322
+323
+324
+325
+326
+327
+328
+330
+331
+332
+333
+334
+335
+336
+337
+338
+339
+340
+341
+342
+343
+344
+345
+346
+347
+348
+349
+350
+351
+352
+353
+354
+355
+356
+357
+358
+359
+360
+361
+362
+363
+364
+365
+366
+367
+368
+369
+370
+371
+372
+373
+374
+375
+376
+378
+379
+380
+381
+382
+385
+387
+388
+389
+390
+392
+393
+396
+398
+402
+403
+405
+406
+409
+412
+414
+415
+417
+418
+419
+420
+421
+422
+424
+425
+426
+428
+429
+430
+432
+433
+436
+437
+438
+439
+441
+444
+445
+452
+453
+455
+456
+458
+459
+461
+462
+463
+464
+465
+466
+467
+468
+469
+470
+471
+472
+473
+474
+475
+476
+478
+479
+480
+481
+482
+483
+484
+485
+486
+487
+488
+489
+490
+491
+492
+493
+494
+495
+497
+498
+500
+501
+502
+505
+506
+507
+508
+509
+510
+511
+512
+513
+514
+515
+516
+517
+518
+519
+520
+521
+522
+523
+524
+525
+526
+527
+528
+529
+530
+531
+532
+533
+534
+535
+536
+537
+538
+539
+540
+541
+542
+543
+544
+545
+546
+547
+548
+549
+550
+551
+552
+553
+554
+555
+556
+557
+558
+559
+560
+561
+562
+563
+570
+572
+573
+575
+577
+578
+579
+583
+584
+585
+586
+587
+588
+589
+590
+591
+880
+881
+882
+883
+886
+887
+895
+896
+902
+903
+904
+907
+908
+909
+910
+912
+913
+930
+931
+940
+975
+976
+978
+981
+984
+985
+986
+987
+988
+989
+990
+991
+992
+993
+994
+995
+996
+997
+998
+999
+1000
+1001
+1002
+1003
+1004
+1005
+1006
+1007
+1012
+1013
+1015
+1016
+1017
+1019
+1021
+1072
+1120
+1121
+1122
+1123
+1124
+1125
+1126
+1127
+1128
+1129
+1130
+1131
+1132
+1133
+1134
+1135
+1136
+1137
+1138
+1139
+1140
+1141
+1142
+1143
+1144
+1145
+1146
+1147
+1148
+1149
+1150
+1151
+1152
+1153
+1162
+1163
+1164
+1165
+1166
+1167
+1168
+1169
+1170
+1171
+1172
+1173
+1174
+1175
+1176
+1177
+1178
+1179
+1180
+1181
+1182
+1183
+1184
+1185
+1186
+1187
+1188
+1189
+1190
+1191
+1192
+1193
+1194
+1195
+1196
+1197
+1198
+1199
+1200
+1201
+1202
+1203
+1204
+1205
+1206
+1207
+1208
+1209
+1210
+1211
+1212
+1213
+1214
+1215
+1216
+1218
+1219
+1220
+1221
+1222
+1223
+1224
+1225
+1226
+1227
+1228
+1229
+1230
+1232
+1233
+1234
+1235
+1236
+1237
+1238
+1239
+1240
+1241
+1242
+1243
+1244
+1245
+1246
+1247
+1248
+1249
+1250
+1251
+1252
+1253
+1254
+1255
+1256
+1257
+1258
+1259
+1260
+1261
+1262
+1263
+1264
+1265
+1266
+1267
+1268
+1269
+1270
+1271
+1272
+1273
+1274
+1275
+1276
+1277
+1278
+1279
+1280
+1281
+1282
+1283
+1284
+1285
+1286
+1287
+1288
+1289
+1290
+1291
+1292
+1293
+1294
+1295
+1296
+1297
+1298
+1299
+1300
+1301
+1302
+1303
+1304
+1305
+1306
+1307
+1308
+1309
+1310
+1311
+1312
+1313
+1314
+1315
+1316
+1317
+1318
+1319
+1320
+1321
+1322
+1323
+1324
+1325
+1326
+1327
+1329
+1367
+4256
+4294
+4295
+4296
+4301
+4302
+5024
+5110
+7680
+7681
+7682
+7683
+7684
+7685
+7686
+7687
+7688
+7689
+7690
+7691
+7692
+7693
+7694
+7695
+7696
+7697
+7698
+7699
+7700
+7701
+7702
+7703
+7704
+7705
+7706
+7707
+7708
+7709
+7710
+7711
+7712
+7713
+7714
+7715
+7716
+7717
+7718
+7719
+7720
+7721
+7722
+7723
+7724
+7725
+7726
+7727
+7728
+7729
+7730
+7731
+7732
+7733
+7734
+7735
+7736
+7737
+7738
+7739
+7740
+7741
+7742
+7743
+7744
+7745
+7746
+7747
+7748
+7749
+7750
+7751
+7752
+7753
+7754
+7755
+7756
+7757
+7758
+7759
+7760
+7761
+7762
+7763
+7764
+7765
+7766
+7767
+7768
+7769
+7770
+7771
+7772
+7773
+7774
+7775
+7776
+7777
+7778
+7779
+7780
+7781
+7782
+7783
+7784
+7785
+7786
+7787
+7788
+7789
+7790
+7791
+7792
+7793
+7794
+7795
+7796
+7797
+7798
+7799
+7800
+7801
+7802
+7803
+7804
+7805
+7806
+7807
+7808
+7809
+7810
+7811
+7812
+7813
+7814
+7815
+7816
+7817
+7818
+7819
+7820
+7821
+7822
+7823
+7824
+7825
+7826
+7827
+7828
+7829
+7838
+7839
+7840
+7841
+7842
+7843
+7844
+7845
+7846
+7847
+7848
+7849
+7850
+7851
+7852
+7853
+7854
+7855
+7856
+7857
+7858
+7859
+7860
+7861
+7862
+7863
+7864
+7865
+7866
+7867
+7868
+7869
+7870
+7871
+7872
+7873
+7874
+7875
+7876
+7877
+7878
+7879
+7880
+7881
+7882
+7883
+7884
+7885
+7886
+7887
+7888
+7889
+7890
+7891
+7892
+7893
+7894
+7895
+7896
+7897
+7898
+7899
+7900
+7901
+7902
+7903
+7904
+7905
+7906
+7907
+7908
+7909
+7910
+7911
+7912
+7913
+7914
+7915
+7916
+7917
+7918
+7919
+7920
+7921
+7922
+7923
+7924
+7925
+7926
+7927
+7928
+7929
+7930
+7931
+7932
+7933
+7934
+7935
+7944
+7952
+7960
+7966
+7976
+7984
+7992
+8000
+8008
+8014
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8032
+8040
+8048
+8120
+8124
+8136
+8140
+8152
+8156
+8168
+8173
+8184
+8188
+8450
+8451
+8455
+8456
+8459
+8462
+8464
+8467
+8469
+8470
+8473
+8478
+8484
+8485
+8486
+8487
+8488
+8489
+8490
+8494
+8496
+8500
+8510
+8512
+8517
+8518
+8579
+8580
+11264
+11311
+11360
+11361
+11362
+11365
+11367
+11368
+11369
+11370
+11371
+11372
+11373
+11377
+11378
+11379
+11381
+11382
+11390
+11393
+11394
+11395
+11396
+11397
+11398
+11399
+11400
+11401
+11402
+11403
+11404
+11405
+11406
+11407
+11408
+11409
+11410
+11411
+11412
+11413
+11414
+11415
+11416
+11417
+11418
+11419
+11420
+11421
+11422
+11423
+11424
+11425
+11426
+11427
+11428
+11429
+11430
+11431
+11432
+11433
+11434
+11435
+11436
+11437
+11438
+11439
+11440
+11441
+11442
+11443
+11444
+11445
+11446
+11447
+11448
+11449
+11450
+11451
+11452
+11453
+11454
+11455
+11456
+11457
+11458
+11459
+11460
+11461
+11462
+11463
+11464
+11465
+11466
+11467
+11468
+11469
+11470
+11471
+11472
+11473
+11474
+11475
+11476
+11477
+11478
+11479
+11480
+11481
+11482
+11483
+11484
+11485
+11486
+11487
+11488
+11489
+11490
+11491
+11499
+11500
+11501
+11502
+11506
+11507
+42560
+42561
+42562
+42563
+42564
+42565
+42566
+42567
+42568
+42569
+42570
+42571
+42572
+42573
+42574
+42575
+42576
+42577
+42578
+42579
+42580
+42581
+42582
+42583
+42584
+42585
+42586
+42587
+42588
+42589
+42590
+42591
+42592
+42593
+42594
+42595
+42596
+42597
+42598
+42599
+42600
+42601
+42602
+42603
+42604
+42605
+42624
+42625
+42626
+42627
+42628
+42629
+42630
+42631
+42632
+42633
+42634
+42635
+42636
+42637
+42638
+42639
+42640
+42641
+42642
+42643
+42644
+42645
+42646
+42647
+42648
+42649
+42650
+42651
+42786
+42787
+42788
+42789
+42790
+42791
+42792
+42793
+42794
+42795
+42796
+42797
+42798
+42799
+42802
+42803
+42804
+42805
+42806
+42807
+42808
+42809
+42810
+42811
+42812
+42813
+42814
+42815
+42816
+42817
+42818
+42819
+42820
+42821
+42822
+42823
+42824
+42825
+42826
+42827
+42828
+42829
+42830
+42831
+42832
+42833
+42834
+42835
+42836
+42837
+42838
+42839
+42840
+42841
+42842
+42843
+42844
+42845
+42846
+42847
+42848
+42849
+42850
+42851
+42852
+42853
+42854
+42855
+42856
+42857
+42858
+42859
+42860
+42861
+42862
+42863
+42873
+42874
+42875
+42876
+42877
+42879
+42880
+42881
+42882
+42883
+42884
+42885
+42886
+42887
+42891
+42892
+42893
+42894
+42896
+42897
+42898
+42899
+42902
+42903
+42904
+42905
+42906
+42907
+42908
+42909
+42910
+42911
+42912
+42913
+42914
+42915
+42916
+42917
+42918
+42919
+42920
+42921
+42922
+42926
+42928
+42933
+42934
+42935
+65313
+65339
+66560
+66600
+68736
+68787
+71840
+71872
+119808
+119834
+119860
+119886
+119912
+119938
+119964
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119990
+120016
+120042
+120068
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120120
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120172
+120198
+120224
+120250
+120276
+120302
+120328
+120354
+120380
+120406
+120432
+120458
+120488
+120513
+120546
+120571
+120604
+120629
+120662
+120687
+120720
+120745
+120778
+120779
+END
diff --git a/lib/5.24.1/unicore/lib/Gc/M.pl b/lib/5.24.1/unicore/lib/Gc/M.pl
new file mode 100644
index 00000000..feedab92
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Gc/M.pl
@@ -0,0 +1,486 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V472
+768
+880
+1155
+1162
+1425
+1470
+1471
+1472
+1473
+1475
+1476
+1478
+1479
+1480
+1552
+1563
+1611
+1632
+1648
+1649
+1750
+1757
+1759
+1765
+1767
+1769
+1770
+1774
+1809
+1810
+1840
+1867
+1958
+1969
+2027
+2036
+2070
+2074
+2075
+2084
+2085
+2088
+2089
+2094
+2137
+2140
+2275
+2308
+2362
+2365
+2366
+2384
+2385
+2392
+2402
+2404
+2433
+2436
+2492
+2493
+2494
+2501
+2503
+2505
+2507
+2510
+2519
+2520
+2530
+2532
+2561
+2564
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2672
+2674
+2677
+2678
+2689
+2692
+2748
+2749
+2750
+2758
+2759
+2762
+2763
+2766
+2786
+2788
+2817
+2820
+2876
+2877
+2878
+2885
+2887
+2889
+2891
+2894
+2902
+2904
+2914
+2916
+2946
+2947
+3006
+3011
+3014
+3017
+3018
+3022
+3031
+3032
+3072
+3076
+3134
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3170
+3172
+3201
+3204
+3260
+3261
+3262
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3298
+3300
+3329
+3332
+3390
+3397
+3398
+3401
+3402
+3406
+3415
+3416
+3426
+3428
+3458
+3460
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3570
+3572
+3633
+3634
+3636
+3643
+3655
+3663
+3761
+3762
+3764
+3770
+3771
+3773
+3784
+3790
+3864
+3866
+3893
+3894
+3895
+3896
+3897
+3898
+3902
+3904
+3953
+3973
+3974
+3976
+3981
+3992
+3993
+4029
+4038
+4039
+4139
+4159
+4182
+4186
+4190
+4193
+4194
+4197
+4199
+4206
+4209
+4213
+4226
+4238
+4239
+4240
+4250
+4254
+4957
+4960
+5906
+5909
+5938
+5941
+5970
+5972
+6002
+6004
+6068
+6100
+6109
+6110
+6155
+6158
+6313
+6314
+6432
+6444
+6448
+6460
+6679
+6684
+6741
+6751
+6752
+6781
+6783
+6784
+6832
+6847
+6912
+6917
+6964
+6981
+7019
+7028
+7040
+7043
+7073
+7086
+7142
+7156
+7204
+7224
+7376
+7379
+7380
+7401
+7405
+7406
+7410
+7413
+7416
+7418
+7616
+7670
+7676
+7680
+8400
+8433
+11503
+11506
+11647
+11648
+11744
+11776
+12330
+12336
+12441
+12443
+42607
+42611
+42612
+42622
+42654
+42656
+42736
+42738
+43010
+43011
+43014
+43015
+43019
+43020
+43043
+43048
+43136
+43138
+43188
+43205
+43232
+43250
+43302
+43310
+43335
+43348
+43392
+43396
+43443
+43457
+43493
+43494
+43561
+43575
+43587
+43588
+43596
+43598
+43643
+43646
+43696
+43697
+43698
+43701
+43703
+43705
+43710
+43712
+43713
+43714
+43755
+43760
+43765
+43767
+44003
+44011
+44012
+44014
+64286
+64287
+65024
+65040
+65056
+65072
+66045
+66046
+66272
+66273
+66422
+66427
+68097
+68100
+68101
+68103
+68108
+68112
+68152
+68155
+68159
+68160
+68325
+68327
+69632
+69635
+69688
+69703
+69759
+69763
+69808
+69819
+69888
+69891
+69927
+69941
+70003
+70004
+70016
+70019
+70067
+70081
+70090
+70093
+70188
+70200
+70367
+70379
+70400
+70404
+70460
+70461
+70462
+70469
+70471
+70473
+70475
+70478
+70487
+70488
+70498
+70500
+70502
+70509
+70512
+70517
+70832
+70852
+71087
+71094
+71096
+71105
+71132
+71134
+71216
+71233
+71339
+71352
+71453
+71468
+92912
+92917
+92976
+92983
+94033
+94079
+94095
+94099
+113821
+113823
+119141
+119146
+119149
+119155
+119163
+119171
+119173
+119180
+119210
+119214
+119362
+119365
+121344
+121399
+121403
+121453
+121461
+121462
+121476
+121477
+121499
+121504
+121505
+121520
+125136
+125143
+917760
+918000
+END
diff --git a/lib/5.24.1/unicore/lib/Gc/Mc.pl b/lib/5.24.1/unicore/lib/Gc/Mc.pl
new file mode 100644
index 00000000..fd962d98
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Gc/Mc.pl
@@ -0,0 +1,308 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V294
+2307
+2308
+2363
+2364
+2366
+2369
+2377
+2381
+2382
+2384
+2434
+2436
+2494
+2497
+2503
+2505
+2507
+2509
+2519
+2520
+2563
+2564
+2622
+2625
+2691
+2692
+2750
+2753
+2761
+2762
+2763
+2765
+2818
+2820
+2878
+2879
+2880
+2881
+2887
+2889
+2891
+2893
+2903
+2904
+3006
+3008
+3009
+3011
+3014
+3017
+3018
+3021
+3031
+3032
+3073
+3076
+3137
+3141
+3202
+3204
+3262
+3263
+3264
+3269
+3271
+3273
+3274
+3276
+3285
+3287
+3330
+3332
+3390
+3393
+3398
+3401
+3402
+3405
+3415
+3416
+3458
+3460
+3535
+3538
+3544
+3552
+3570
+3572
+3902
+3904
+3967
+3968
+4139
+4141
+4145
+4146
+4152
+4153
+4155
+4157
+4182
+4184
+4194
+4197
+4199
+4206
+4227
+4229
+4231
+4237
+4239
+4240
+4250
+4253
+6070
+6071
+6078
+6086
+6087
+6089
+6435
+6439
+6441
+6444
+6448
+6450
+6451
+6457
+6681
+6683
+6741
+6742
+6743
+6744
+6753
+6754
+6755
+6757
+6765
+6771
+6916
+6917
+6965
+6966
+6971
+6972
+6973
+6978
+6979
+6981
+7042
+7043
+7073
+7074
+7078
+7080
+7082
+7083
+7143
+7144
+7146
+7149
+7150
+7151
+7154
+7156
+7204
+7212
+7220
+7222
+7393
+7394
+7410
+7412
+12334
+12336
+43043
+43045
+43047
+43048
+43136
+43138
+43188
+43204
+43346
+43348
+43395
+43396
+43444
+43446
+43450
+43452
+43453
+43457
+43567
+43569
+43571
+43573
+43597
+43598
+43643
+43644
+43645
+43646
+43755
+43756
+43758
+43760
+43765
+43766
+44003
+44005
+44006
+44008
+44009
+44011
+44012
+44013
+69632
+69633
+69634
+69635
+69762
+69763
+69808
+69811
+69815
+69817
+69932
+69933
+70018
+70019
+70067
+70070
+70079
+70081
+70188
+70191
+70194
+70196
+70197
+70198
+70368
+70371
+70402
+70404
+70462
+70464
+70465
+70469
+70471
+70473
+70475
+70478
+70487
+70488
+70498
+70500
+70832
+70835
+70841
+70842
+70843
+70847
+70849
+70850
+71087
+71090
+71096
+71100
+71102
+71103
+71216
+71219
+71227
+71229
+71230
+71231
+71340
+71341
+71342
+71344
+71350
+71351
+71456
+71458
+71462
+71463
+94033
+94079
+119141
+119143
+119149
+119155
+END
diff --git a/lib/5.24.1/unicore/lib/Gc/Me.pl b/lib/5.24.1/unicore/lib/Gc/Me.pl
new file mode 100644
index 00000000..f9580173
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Gc/Me.pl
@@ -0,0 +1,24 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V10
+1160
+1162
+6846
+6847
+8413
+8417
+8418
+8421
+42608
+42611
+END
diff --git a/lib/5.24.1/unicore/lib/Gc/Mn.pl b/lib/5.24.1/unicore/lib/Gc/Mn.pl
new file mode 100644
index 00000000..8dd9e243
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Gc/Mn.pl
@@ -0,0 +1,546 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V532
+768
+880
+1155
+1160
+1425
+1470
+1471
+1472
+1473
+1475
+1476
+1478
+1479
+1480
+1552
+1563
+1611
+1632
+1648
+1649
+1750
+1757
+1759
+1765
+1767
+1769
+1770
+1774
+1809
+1810
+1840
+1867
+1958
+1969
+2027
+2036
+2070
+2074
+2075
+2084
+2085
+2088
+2089
+2094
+2137
+2140
+2275
+2307
+2362
+2363
+2364
+2365
+2369
+2377
+2381
+2382
+2385
+2392
+2402
+2404
+2433
+2434
+2492
+2493
+2497
+2501
+2509
+2510
+2530
+2532
+2561
+2563
+2620
+2621
+2625
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2672
+2674
+2677
+2678
+2689
+2691
+2748
+2749
+2753
+2758
+2759
+2761
+2765
+2766
+2786
+2788
+2817
+2818
+2876
+2877
+2879
+2880
+2881
+2885
+2893
+2894
+2902
+2903
+2914
+2916
+2946
+2947
+3008
+3009
+3021
+3022
+3072
+3073
+3134
+3137
+3142
+3145
+3146
+3150
+3157
+3159
+3170
+3172
+3201
+3202
+3260
+3261
+3263
+3264
+3270
+3271
+3276
+3278
+3298
+3300
+3329
+3330
+3393
+3397
+3405
+3406
+3426
+3428
+3530
+3531
+3538
+3541
+3542
+3543
+3633
+3634
+3636
+3643
+3655
+3663
+3761
+3762
+3764
+3770
+3771
+3773
+3784
+3790
+3864
+3866
+3893
+3894
+3895
+3896
+3897
+3898
+3953
+3967
+3968
+3973
+3974
+3976
+3981
+3992
+3993
+4029
+4038
+4039
+4141
+4145
+4146
+4152
+4153
+4155
+4157
+4159
+4184
+4186
+4190
+4193
+4209
+4213
+4226
+4227
+4229
+4231
+4237
+4238
+4253
+4254
+4957
+4960
+5906
+5909
+5938
+5941
+5970
+5972
+6002
+6004
+6068
+6070
+6071
+6078
+6086
+6087
+6089
+6100
+6109
+6110
+6155
+6158
+6313
+6314
+6432
+6435
+6439
+6441
+6450
+6451
+6457
+6460
+6679
+6681
+6683
+6684
+6742
+6743
+6744
+6751
+6752
+6753
+6754
+6755
+6757
+6765
+6771
+6781
+6783
+6784
+6832
+6846
+6912
+6916
+6964
+6965
+6966
+6971
+6972
+6973
+6978
+6979
+7019
+7028
+7040
+7042
+7074
+7078
+7080
+7082
+7083
+7086
+7142
+7143
+7144
+7146
+7149
+7150
+7151
+7154
+7212
+7220
+7222
+7224
+7376
+7379
+7380
+7393
+7394
+7401
+7405
+7406
+7412
+7413
+7416
+7418
+7616
+7670
+7676
+7680
+8400
+8413
+8417
+8418
+8421
+8433
+11503
+11506
+11647
+11648
+11744
+11776
+12330
+12334
+12441
+12443
+42607
+42608
+42612
+42622
+42654
+42656
+42736
+42738
+43010
+43011
+43014
+43015
+43019
+43020
+43045
+43047
+43204
+43205
+43232
+43250
+43302
+43310
+43335
+43346
+43392
+43395
+43443
+43444
+43446
+43450
+43452
+43453
+43493
+43494
+43561
+43567
+43569
+43571
+43573
+43575
+43587
+43588
+43596
+43597
+43644
+43645
+43696
+43697
+43698
+43701
+43703
+43705
+43710
+43712
+43713
+43714
+43756
+43758
+43766
+43767
+44005
+44006
+44008
+44009
+44013
+44014
+64286
+64287
+65024
+65040
+65056
+65072
+66045
+66046
+66272
+66273
+66422
+66427
+68097
+68100
+68101
+68103
+68108
+68112
+68152
+68155
+68159
+68160
+68325
+68327
+69633
+69634
+69688
+69703
+69759
+69762
+69811
+69815
+69817
+69819
+69888
+69891
+69927
+69932
+69933
+69941
+70003
+70004
+70016
+70018
+70070
+70079
+70090
+70093
+70191
+70194
+70196
+70197
+70198
+70200
+70367
+70368
+70371
+70379
+70400
+70402
+70460
+70461
+70464
+70465
+70502
+70509
+70512
+70517
+70835
+70841
+70842
+70843
+70847
+70849
+70850
+70852
+71090
+71094
+71100
+71102
+71103
+71105
+71132
+71134
+71219
+71227
+71229
+71230
+71231
+71233
+71339
+71340
+71341
+71342
+71344
+71350
+71351
+71352
+71453
+71456
+71458
+71462
+71463
+71468
+92912
+92917
+92976
+92983
+94095
+94099
+113821
+113823
+119143
+119146
+119163
+119171
+119173
+119180
+119210
+119214
+119362
+119365
+121344
+121399
+121403
+121453
+121461
+121462
+121476
+121477
+121499
+121504
+121505
+121520
+125136
+125143
+917760
+918000
+END
diff --git a/lib/5.24.1/unicore/lib/Gc/N.pl b/lib/5.24.1/unicore/lib/Gc/N.pl
new file mode 100644
index 00000000..08214410
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Gc/N.pl
@@ -0,0 +1,236 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V222
+48
+58
+178
+180
+185
+186
+188
+191
+1632
+1642
+1776
+1786
+1984
+1994
+2406
+2416
+2534
+2544
+2548
+2554
+2662
+2672
+2790
+2800
+2918
+2928
+2930
+2936
+3046
+3059
+3174
+3184
+3192
+3199
+3302
+3312
+3430
+3446
+3558
+3568
+3664
+3674
+3792
+3802
+3872
+3892
+4160
+4170
+4240
+4250
+4969
+4989
+5870
+5873
+6112
+6122
+6128
+6138
+6160
+6170
+6470
+6480
+6608
+6619
+6784
+6794
+6800
+6810
+6992
+7002
+7088
+7098
+7232
+7242
+7248
+7258
+8304
+8305
+8308
+8314
+8320
+8330
+8528
+8579
+8581
+8586
+9312
+9372
+9450
+9472
+10102
+10132
+11517
+11518
+12295
+12296
+12321
+12330
+12344
+12347
+12690
+12694
+12832
+12842
+12872
+12880
+12881
+12896
+12928
+12938
+12977
+12992
+42528
+42538
+42726
+42736
+43056
+43062
+43216
+43226
+43264
+43274
+43472
+43482
+43504
+43514
+43600
+43610
+44016
+44026
+65296
+65306
+65799
+65844
+65856
+65913
+65930
+65932
+66273
+66300
+66336
+66340
+66369
+66370
+66378
+66379
+66513
+66518
+66720
+66730
+67672
+67680
+67705
+67712
+67751
+67760
+67835
+67840
+67862
+67868
+68028
+68030
+68032
+68048
+68050
+68096
+68160
+68168
+68221
+68223
+68253
+68256
+68331
+68336
+68440
+68448
+68472
+68480
+68521
+68528
+68858
+68864
+69216
+69247
+69714
+69744
+69872
+69882
+69942
+69952
+70096
+70106
+70113
+70133
+70384
+70394
+70864
+70874
+71248
+71258
+71360
+71370
+71472
+71484
+71904
+71923
+74752
+74863
+92768
+92778
+93008
+93018
+93019
+93026
+119648
+119666
+120782
+120832
+125127
+125136
+127232
+127245
+END
diff --git a/lib/5.24.1/unicore/lib/Gc/Nd.pl b/lib/5.24.1/unicore/lib/Gc/Nd.pl
new file mode 100644
index 00000000..5666adf1
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Gc/Nd.pl
@@ -0,0 +1,116 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V102
+48
+58
+1632
+1642
+1776
+1786
+1984
+1994
+2406
+2416
+2534
+2544
+2662
+2672
+2790
+2800
+2918
+2928
+3046
+3056
+3174
+3184
+3302
+3312
+3430
+3440
+3558
+3568
+3664
+3674
+3792
+3802
+3872
+3882
+4160
+4170
+4240
+4250
+6112
+6122
+6160
+6170
+6470
+6480
+6608
+6618
+6784
+6794
+6800
+6810
+6992
+7002
+7088
+7098
+7232
+7242
+7248
+7258
+42528
+42538
+43216
+43226
+43264
+43274
+43472
+43482
+43504
+43514
+43600
+43610
+44016
+44026
+65296
+65306
+66720
+66730
+69734
+69744
+69872
+69882
+69942
+69952
+70096
+70106
+70384
+70394
+70864
+70874
+71248
+71258
+71360
+71370
+71472
+71482
+71904
+71914
+92768
+92778
+93008
+93018
+120782
+120832
+END
diff --git a/lib/5.24.1/unicore/lib/Gc/Nl.pl b/lib/5.24.1/unicore/lib/Gc/Nl.pl
new file mode 100644
index 00000000..ce94e475
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Gc/Nl.pl
@@ -0,0 +1,38 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V24
+5870
+5873
+8544
+8579
+8581
+8585
+12295
+12296
+12321
+12330
+12344
+12347
+42726
+42736
+65856
+65909
+66369
+66370
+66378
+66379
+66513
+66518
+74752
+74863
+END
diff --git a/lib/5.24.1/unicore/lib/Gc/No.pl b/lib/5.24.1/unicore/lib/Gc/No.pl
new file mode 100644
index 00000000..673decc0
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Gc/No.pl
@@ -0,0 +1,130 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V116
+178
+180
+185
+186
+188
+191
+2548
+2554
+2930
+2936
+3056
+3059
+3192
+3199
+3440
+3446
+3882
+3892
+4969
+4989
+6128
+6138
+6618
+6619
+8304
+8305
+8308
+8314
+8320
+8330
+8528
+8544
+8585
+8586
+9312
+9372
+9450
+9472
+10102
+10132
+11517
+11518
+12690
+12694
+12832
+12842
+12872
+12880
+12881
+12896
+12928
+12938
+12977
+12992
+43056
+43062
+65799
+65844
+65909
+65913
+65930
+65932
+66273
+66300
+66336
+66340
+67672
+67680
+67705
+67712
+67751
+67760
+67835
+67840
+67862
+67868
+68028
+68030
+68032
+68048
+68050
+68096
+68160
+68168
+68221
+68223
+68253
+68256
+68331
+68336
+68440
+68448
+68472
+68480
+68521
+68528
+68858
+68864
+69216
+69247
+69714
+69734
+70113
+70133
+71482
+71484
+71914
+71923
+93019
+93026
+119648
+119666
+125127
+125136
+127232
+127245
+END
diff --git a/lib/5.24.1/unicore/lib/Gc/P.pl b/lib/5.24.1/unicore/lib/Gc/P.pl
new file mode 100644
index 00000000..2c641b6f
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Gc/P.pl
@@ -0,0 +1,336 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V322
+33
+36
+37
+43
+44
+48
+58
+60
+63
+65
+91
+94
+95
+96
+123
+124
+125
+126
+161
+162
+167
+168
+171
+172
+182
+184
+187
+188
+191
+192
+894
+895
+903
+904
+1370
+1376
+1417
+1419
+1470
+1471
+1472
+1473
+1475
+1476
+1478
+1479
+1523
+1525
+1545
+1547
+1548
+1550
+1563
+1564
+1566
+1568
+1642
+1646
+1748
+1749
+1792
+1806
+2039
+2042
+2096
+2111
+2142
+2143
+2404
+2406
+2416
+2417
+2800
+2801
+3572
+3573
+3663
+3664
+3674
+3676
+3844
+3859
+3860
+3861
+3898
+3902
+3973
+3974
+4048
+4053
+4057
+4059
+4170
+4176
+4347
+4348
+4960
+4969
+5120
+5121
+5741
+5743
+5787
+5789
+5867
+5870
+5941
+5943
+6100
+6103
+6104
+6107
+6144
+6155
+6468
+6470
+6686
+6688
+6816
+6823
+6824
+6830
+7002
+7009
+7164
+7168
+7227
+7232
+7294
+7296
+7360
+7368
+7379
+7380
+8208
+8232
+8240
+8260
+8261
+8274
+8275
+8287
+8317
+8319
+8333
+8335
+8968
+8972
+9001
+9003
+10088
+10102
+10181
+10183
+10214
+10224
+10627
+10649
+10712
+10716
+10748
+10750
+11513
+11517
+11518
+11520
+11632
+11633
+11776
+11823
+11824
+11843
+12289
+12292
+12296
+12306
+12308
+12320
+12336
+12337
+12349
+12350
+12448
+12449
+12539
+12540
+42238
+42240
+42509
+42512
+42611
+42612
+42622
+42623
+42738
+42744
+43124
+43128
+43214
+43216
+43256
+43259
+43260
+43261
+43310
+43312
+43359
+43360
+43457
+43470
+43486
+43488
+43612
+43616
+43742
+43744
+43760
+43762
+44011
+44012
+64830
+64832
+65040
+65050
+65072
+65107
+65108
+65122
+65123
+65124
+65128
+65129
+65130
+65132
+65281
+65284
+65285
+65291
+65292
+65296
+65306
+65308
+65311
+65313
+65339
+65342
+65343
+65344
+65371
+65372
+65373
+65374
+65375
+65382
+65792
+65795
+66463
+66464
+66512
+66513
+66927
+66928
+67671
+67672
+67871
+67872
+67903
+67904
+68176
+68185
+68223
+68224
+68336
+68343
+68409
+68416
+68505
+68509
+69703
+69710
+69819
+69821
+69822
+69826
+69952
+69956
+70004
+70006
+70085
+70090
+70093
+70094
+70107
+70108
+70109
+70112
+70200
+70206
+70313
+70314
+70854
+70855
+71105
+71128
+71233
+71236
+71484
+71487
+74864
+74869
+92782
+92784
+92917
+92918
+92983
+92988
+92996
+92997
+113823
+113824
+121479
+121484
+END
diff --git a/lib/5.24.1/unicore/lib/Gc/Pd.pl b/lib/5.24.1/unicore/lib/Gc/Pd.pl
new file mode 100644
index 00000000..34de74e9
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Gc/Pd.pl
@@ -0,0 +1,48 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V34
+45
+46
+1418
+1419
+1470
+1471
+5120
+5121
+6150
+6151
+8208
+8214
+11799
+11800
+11802
+11803
+11834
+11836
+11840
+11841
+12316
+12317
+12336
+12337
+12448
+12449
+65073
+65075
+65112
+65113
+65123
+65124
+65293
+65294
+END
diff --git a/lib/5.24.1/unicore/lib/Gc/Pe.pl b/lib/5.24.1/unicore/lib/Gc/Pe.pl
new file mode 100644
index 00000000..de0369d4
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Gc/Pe.pl
@@ -0,0 +1,158 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V144
+41
+42
+93
+94
+125
+126
+3899
+3900
+3901
+3902
+5788
+5789
+8262
+8263
+8318
+8319
+8334
+8335
+8969
+8970
+8971
+8972
+9002
+9003
+10089
+10090
+10091
+10092
+10093
+10094
+10095
+10096
+10097
+10098
+10099
+10100
+10101
+10102
+10182
+10183
+10215
+10216
+10217
+10218
+10219
+10220
+10221
+10222
+10223
+10224
+10628
+10629
+10630
+10631
+10632
+10633
+10634
+10635
+10636
+10637
+10638
+10639
+10640
+10641
+10642
+10643
+10644
+10645
+10646
+10647
+10648
+10649
+10713
+10714
+10715
+10716
+10749
+10750
+11811
+11812
+11813
+11814
+11815
+11816
+11817
+11818
+12297
+12298
+12299
+12300
+12301
+12302
+12303
+12304
+12305
+12306
+12309
+12310
+12311
+12312
+12313
+12314
+12315
+12316
+12318
+12320
+64830
+64831
+65048
+65049
+65078
+65079
+65080
+65081
+65082
+65083
+65084
+65085
+65086
+65087
+65088
+65089
+65090
+65091
+65092
+65093
+65096
+65097
+65114
+65115
+65116
+65117
+65118
+65119
+65289
+65290
+65341
+65342
+65373
+65374
+65376
+65377
+65379
+65380
+END
diff --git a/lib/5.24.1/unicore/lib/Gc/Pf.pl b/lib/5.24.1/unicore/lib/Gc/Pf.pl
new file mode 100644
index 00000000..89ef8182
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Gc/Pf.pl
@@ -0,0 +1,34 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V20
+187
+188
+8217
+8218
+8221
+8222
+8250
+8251
+11779
+11780
+11781
+11782
+11786
+11787
+11789
+11790
+11805
+11806
+11809
+11810
+END
diff --git a/lib/5.24.1/unicore/lib/Gc/Pi.pl b/lib/5.24.1/unicore/lib/Gc/Pi.pl
new file mode 100644
index 00000000..ad700c8c
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Gc/Pi.pl
@@ -0,0 +1,36 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V22
+171
+172
+8216
+8217
+8219
+8221
+8223
+8224
+8249
+8250
+11778
+11779
+11780
+11781
+11785
+11786
+11788
+11789
+11804
+11805
+11808
+11809
+END
diff --git a/lib/5.24.1/unicore/lib/Gc/Po.pl b/lib/5.24.1/unicore/lib/Gc/Po.pl
new file mode 100644
index 00000000..6ec8d262
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Gc/Po.pl
@@ -0,0 +1,328 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V314
+33
+36
+37
+40
+42
+43
+44
+45
+46
+48
+58
+60
+63
+65
+92
+93
+161
+162
+167
+168
+182
+184
+191
+192
+894
+895
+903
+904
+1370
+1376
+1417
+1418
+1472
+1473
+1475
+1476
+1478
+1479
+1523
+1525
+1545
+1547
+1548
+1550
+1563
+1564
+1566
+1568
+1642
+1646
+1748
+1749
+1792
+1806
+2039
+2042
+2096
+2111
+2142
+2143
+2404
+2406
+2416
+2417
+2800
+2801
+3572
+3573
+3663
+3664
+3674
+3676
+3844
+3859
+3860
+3861
+3973
+3974
+4048
+4053
+4057
+4059
+4170
+4176
+4347
+4348
+4960
+4969
+5741
+5743
+5867
+5870
+5941
+5943
+6100
+6103
+6104
+6107
+6144
+6150
+6151
+6155
+6468
+6470
+6686
+6688
+6816
+6823
+6824
+6830
+7002
+7009
+7164
+7168
+7227
+7232
+7294
+7296
+7360
+7368
+7379
+7380
+8214
+8216
+8224
+8232
+8240
+8249
+8251
+8255
+8257
+8260
+8263
+8274
+8275
+8276
+8277
+8287
+11513
+11517
+11518
+11520
+11632
+11633
+11776
+11778
+11782
+11785
+11787
+11788
+11790
+11799
+11800
+11802
+11803
+11804
+11806
+11808
+11818
+11823
+11824
+11834
+11836
+11840
+11841
+11842
+12289
+12292
+12349
+12350
+12539
+12540
+42238
+42240
+42509
+42512
+42611
+42612
+42622
+42623
+42738
+42744
+43124
+43128
+43214
+43216
+43256
+43259
+43260
+43261
+43310
+43312
+43359
+43360
+43457
+43470
+43486
+43488
+43612
+43616
+43742
+43744
+43760
+43762
+44011
+44012
+65040
+65047
+65049
+65050
+65072
+65073
+65093
+65095
+65097
+65101
+65104
+65107
+65108
+65112
+65119
+65122
+65128
+65129
+65130
+65132
+65281
+65284
+65285
+65288
+65290
+65291
+65292
+65293
+65294
+65296
+65306
+65308
+65311
+65313
+65340
+65341
+65377
+65378
+65380
+65382
+65792
+65795
+66463
+66464
+66512
+66513
+66927
+66928
+67671
+67672
+67871
+67872
+67903
+67904
+68176
+68185
+68223
+68224
+68336
+68343
+68409
+68416
+68505
+68509
+69703
+69710
+69819
+69821
+69822
+69826
+69952
+69956
+70004
+70006
+70085
+70090
+70093
+70094
+70107
+70108
+70109
+70112
+70200
+70206
+70313
+70314
+70854
+70855
+71105
+71128
+71233
+71236
+71484
+71487
+74864
+74869
+92782
+92784
+92917
+92918
+92983
+92988
+92996
+92997
+113823
+113824
+121479
+121484
+END
diff --git a/lib/5.24.1/unicore/lib/Gc/Ps.pl b/lib/5.24.1/unicore/lib/Gc/Ps.pl
new file mode 100644
index 00000000..85d47b52
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Gc/Ps.pl
@@ -0,0 +1,164 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V150
+40
+41
+91
+92
+123
+124
+3898
+3899
+3900
+3901
+5787
+5788
+8218
+8219
+8222
+8223
+8261
+8262
+8317
+8318
+8333
+8334
+8968
+8969
+8970
+8971
+9001
+9002
+10088
+10089
+10090
+10091
+10092
+10093
+10094
+10095
+10096
+10097
+10098
+10099
+10100
+10101
+10181
+10182
+10214
+10215
+10216
+10217
+10218
+10219
+10220
+10221
+10222
+10223
+10627
+10628
+10629
+10630
+10631
+10632
+10633
+10634
+10635
+10636
+10637
+10638
+10639
+10640
+10641
+10642
+10643
+10644
+10645
+10646
+10647
+10648
+10712
+10713
+10714
+10715
+10748
+10749
+11810
+11811
+11812
+11813
+11814
+11815
+11816
+11817
+11842
+11843
+12296
+12297
+12298
+12299
+12300
+12301
+12302
+12303
+12304
+12305
+12308
+12309
+12310
+12311
+12312
+12313
+12314
+12315
+12317
+12318
+64831
+64832
+65047
+65048
+65077
+65078
+65079
+65080
+65081
+65082
+65083
+65084
+65085
+65086
+65087
+65088
+65089
+65090
+65091
+65092
+65095
+65096
+65113
+65114
+65115
+65116
+65117
+65118
+65288
+65289
+65339
+65340
+65371
+65372
+65375
+65376
+65378
+65379
+END
diff --git a/lib/5.24.1/unicore/lib/Gc/S.pl b/lib/5.24.1/unicore/lib/Gc/S.pl
new file mode 100644
index 00000000..f73a095f
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Gc/S.pl
@@ -0,0 +1,442 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V428
+36
+37
+43
+44
+60
+63
+94
+95
+96
+97
+124
+125
+126
+127
+162
+167
+168
+170
+172
+173
+174
+178
+180
+181
+184
+185
+215
+216
+247
+248
+706
+710
+722
+736
+741
+748
+749
+750
+751
+768
+885
+886
+900
+902
+1014
+1015
+1154
+1155
+1421
+1424
+1542
+1545
+1547
+1548
+1550
+1552
+1758
+1759
+1769
+1770
+1789
+1791
+2038
+2039
+2546
+2548
+2554
+2556
+2801
+2802
+2928
+2929
+3059
+3067
+3199
+3200
+3449
+3450
+3647
+3648
+3841
+3844
+3859
+3860
+3861
+3864
+3866
+3872
+3892
+3893
+3894
+3895
+3896
+3897
+4030
+4038
+4039
+4045
+4046
+4048
+4053
+4057
+4254
+4256
+5008
+5018
+6107
+6108
+6464
+6465
+6622
+6656
+7009
+7019
+7028
+7037
+8125
+8126
+8127
+8130
+8141
+8144
+8157
+8160
+8173
+8176
+8189
+8191
+8260
+8261
+8274
+8275
+8314
+8317
+8330
+8333
+8352
+8383
+8448
+8450
+8451
+8455
+8456
+8458
+8468
+8469
+8470
+8473
+8478
+8484
+8485
+8486
+8487
+8488
+8489
+8490
+8494
+8495
+8506
+8508
+8512
+8517
+8522
+8526
+8527
+8528
+8586
+8588
+8592
+8968
+8972
+9001
+9003
+9211
+9216
+9255
+9280
+9291
+9372
+9450
+9472
+10088
+10132
+10181
+10183
+10214
+10224
+10627
+10649
+10712
+10716
+10748
+10750
+11124
+11126
+11158
+11160
+11194
+11197
+11209
+11210
+11218
+11244
+11248
+11493
+11499
+11904
+11930
+11931
+12020
+12032
+12246
+12272
+12284
+12292
+12293
+12306
+12308
+12320
+12321
+12342
+12344
+12350
+12352
+12443
+12445
+12688
+12690
+12694
+12704
+12736
+12772
+12800
+12831
+12842
+12872
+12880
+12881
+12896
+12928
+12938
+12977
+12992
+13055
+13056
+13312
+19904
+19968
+42128
+42183
+42752
+42775
+42784
+42786
+42889
+42891
+43048
+43052
+43062
+43066
+43639
+43642
+43867
+43868
+64297
+64298
+64434
+64450
+65020
+65022
+65122
+65123
+65124
+65127
+65129
+65130
+65284
+65285
+65291
+65292
+65308
+65311
+65342
+65343
+65344
+65345
+65372
+65373
+65374
+65375
+65504
+65511
+65512
+65519
+65532
+65534
+65847
+65856
+65913
+65930
+65932
+65933
+65936
+65948
+65952
+65953
+66000
+66045
+67703
+67705
+68296
+68297
+71487
+71488
+92988
+92992
+92997
+92998
+113820
+113821
+118784
+119030
+119040
+119079
+119081
+119141
+119146
+119149
+119171
+119173
+119180
+119210
+119214
+119273
+119296
+119362
+119365
+119366
+119552
+119639
+120513
+120514
+120539
+120540
+120571
+120572
+120597
+120598
+120629
+120630
+120655
+120656
+120687
+120688
+120713
+120714
+120745
+120746
+120771
+120772
+120832
+121344
+121399
+121403
+121453
+121461
+121462
+121476
+121477
+121479
+126704
+126706
+126976
+127020
+127024
+127124
+127136
+127151
+127153
+127168
+127169
+127184
+127185
+127222
+127248
+127279
+127280
+127340
+127344
+127387
+127462
+127491
+127504
+127547
+127552
+127561
+127568
+127570
+127744
+128378
+128379
+128420
+128421
+128721
+128736
+128749
+128752
+128756
+128768
+128884
+128896
+128981
+129024
+129036
+129040
+129096
+129104
+129114
+129120
+129160
+129168
+129198
+129296
+129305
+129408
+129413
+129472
+129473
+END
diff --git a/lib/5.24.1/unicore/lib/Gc/Sc.pl b/lib/5.24.1/unicore/lib/Gc/Sc.pl
new file mode 100644
index 00000000..45db02ed
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Gc/Sc.pl
@@ -0,0 +1,48 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V34
+36
+37
+162
+166
+1423
+1424
+1547
+1548
+2546
+2548
+2555
+2556
+2801
+2802
+3065
+3066
+3647
+3648
+6107
+6108
+8352
+8383
+43064
+43065
+65020
+65021
+65129
+65130
+65284
+65285
+65504
+65506
+65509
+65511
+END
diff --git a/lib/5.24.1/unicore/lib/Gc/Sk.pl b/lib/5.24.1/unicore/lib/Gc/Sk.pl
new file mode 100644
index 00000000..25ed2481
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Gc/Sk.pl
@@ -0,0 +1,72 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V58
+94
+95
+96
+97
+168
+169
+175
+176
+180
+181
+184
+185
+706
+710
+722
+736
+741
+748
+749
+750
+751
+768
+885
+886
+900
+902
+8125
+8126
+8127
+8130
+8141
+8144
+8157
+8160
+8173
+8176
+8189
+8191
+12443
+12445
+42752
+42775
+42784
+42786
+42889
+42891
+43867
+43868
+64434
+64450
+65342
+65343
+65344
+65345
+65507
+65508
+127995
+128000
+END
diff --git a/lib/5.24.1/unicore/lib/Gc/Sm.pl b/lib/5.24.1/unicore/lib/Gc/Sm.pl
new file mode 100644
index 00000000..633c44cc
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Gc/Sm.pl
@@ -0,0 +1,142 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V128
+43
+44
+60
+63
+124
+125
+126
+127
+172
+173
+177
+178
+215
+216
+247
+248
+1014
+1015
+1542
+1545
+8260
+8261
+8274
+8275
+8314
+8317
+8330
+8333
+8472
+8473
+8512
+8517
+8523
+8524
+8592
+8597
+8602
+8604
+8608
+8609
+8611
+8612
+8614
+8615
+8622
+8623
+8654
+8656
+8658
+8659
+8660
+8661
+8692
+8960
+8992
+8994
+9084
+9085
+9115
+9140
+9180
+9186
+9655
+9656
+9665
+9666
+9720
+9728
+9839
+9840
+10176
+10181
+10183
+10214
+10224
+10240
+10496
+10627
+10649
+10712
+10716
+10748
+10750
+11008
+11056
+11077
+11079
+11085
+64297
+64298
+65122
+65123
+65124
+65127
+65291
+65292
+65308
+65311
+65372
+65373
+65374
+65375
+65506
+65507
+65513
+65517
+120513
+120514
+120539
+120540
+120571
+120572
+120597
+120598
+120629
+120630
+120655
+120656
+120687
+120688
+120713
+120714
+120745
+120746
+120771
+120772
+126704
+126706
+END
diff --git a/lib/5.24.1/unicore/lib/Gc/So.pl b/lib/5.24.1/unicore/lib/Gc/So.pl
new file mode 100644
index 00000000..8cf17aab
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Gc/So.pl
@@ -0,0 +1,354 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V340
+166
+167
+169
+170
+174
+175
+176
+177
+1154
+1155
+1421
+1423
+1550
+1552
+1758
+1759
+1769
+1770
+1789
+1791
+2038
+2039
+2554
+2555
+2928
+2929
+3059
+3065
+3066
+3067
+3199
+3200
+3449
+3450
+3841
+3844
+3859
+3860
+3861
+3864
+3866
+3872
+3892
+3893
+3894
+3895
+3896
+3897
+4030
+4038
+4039
+4045
+4046
+4048
+4053
+4057
+4254
+4256
+5008
+5018
+6464
+6465
+6622
+6656
+7009
+7019
+7028
+7037
+8448
+8450
+8451
+8455
+8456
+8458
+8468
+8469
+8470
+8472
+8478
+8484
+8485
+8486
+8487
+8488
+8489
+8490
+8494
+8495
+8506
+8508
+8522
+8523
+8524
+8526
+8527
+8528
+8586
+8588
+8597
+8602
+8604
+8608
+8609
+8611
+8612
+8614
+8615
+8622
+8623
+8654
+8656
+8658
+8659
+8660
+8661
+8692
+8960
+8968
+8972
+8992
+8994
+9001
+9003
+9084
+9085
+9115
+9140
+9180
+9186
+9211
+9216
+9255
+9280
+9291
+9372
+9450
+9472
+9655
+9656
+9665
+9666
+9720
+9728
+9839
+9840
+10088
+10132
+10176
+10240
+10496
+11008
+11056
+11077
+11079
+11085
+11124
+11126
+11158
+11160
+11194
+11197
+11209
+11210
+11218
+11244
+11248
+11493
+11499
+11904
+11930
+11931
+12020
+12032
+12246
+12272
+12284
+12292
+12293
+12306
+12308
+12320
+12321
+12342
+12344
+12350
+12352
+12688
+12690
+12694
+12704
+12736
+12772
+12800
+12831
+12842
+12872
+12880
+12881
+12896
+12928
+12938
+12977
+12992
+13055
+13056
+13312
+19904
+19968
+42128
+42183
+43048
+43052
+43062
+43064
+43065
+43066
+43639
+43642
+65021
+65022
+65508
+65509
+65512
+65513
+65517
+65519
+65532
+65534
+65847
+65856
+65913
+65930
+65932
+65933
+65936
+65948
+65952
+65953
+66000
+66045
+67703
+67705
+68296
+68297
+71487
+71488
+92988
+92992
+92997
+92998
+113820
+113821
+118784
+119030
+119040
+119079
+119081
+119141
+119146
+119149
+119171
+119173
+119180
+119210
+119214
+119273
+119296
+119362
+119365
+119366
+119552
+119639
+120832
+121344
+121399
+121403
+121453
+121461
+121462
+121476
+121477
+121479
+126976
+127020
+127024
+127124
+127136
+127151
+127153
+127168
+127169
+127184
+127185
+127222
+127248
+127279
+127280
+127340
+127344
+127387
+127462
+127491
+127504
+127547
+127552
+127561
+127568
+127570
+127744
+127995
+128000
+128378
+128379
+128420
+128421
+128721
+128736
+128749
+128752
+128756
+128768
+128884
+128896
+128981
+129024
+129036
+129040
+129096
+129104
+129114
+129120
+129160
+129168
+129198
+129296
+129305
+129408
+129413
+129472
+129473
+END
diff --git a/lib/5.24.1/unicore/lib/Gc/Z.pl b/lib/5.24.1/unicore/lib/Gc/Z.pl
new file mode 100644
index 00000000..9dfb18d8
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Gc/Z.pl
@@ -0,0 +1,30 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V16
+32
+33
+160
+161
+5760
+5761
+8192
+8203
+8232
+8234
+8239
+8240
+8287
+8288
+12288
+12289
+END
diff --git a/lib/5.24.1/unicore/lib/Gc/Zs.pl b/lib/5.24.1/unicore/lib/Gc/Zs.pl
new file mode 100644
index 00000000..bd263f41
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Gc/Zs.pl
@@ -0,0 +1,28 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V14
+32
+33
+160
+161
+5760
+5761
+8192
+8203
+8239
+8240
+8287
+8288
+12288
+12289
+END
diff --git a/lib/5.24.1/unicore/lib/GrBase/Y.pl b/lib/5.24.1/unicore/lib/GrBase/Y.pl
new file mode 100644
index 00000000..1c1a0e84
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/GrBase/Y.pl
@@ -0,0 +1,1500 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1486
+32
+127
+160
+173
+174
+768
+880
+888
+890
+896
+900
+907
+908
+909
+910
+930
+931
+1155
+1162
+1328
+1329
+1367
+1369
+1376
+1377
+1416
+1417
+1419
+1421
+1424
+1470
+1471
+1472
+1473
+1475
+1476
+1478
+1479
+1488
+1515
+1520
+1525
+1542
+1552
+1563
+1564
+1566
+1611
+1632
+1648
+1649
+1750
+1758
+1759
+1765
+1767
+1769
+1770
+1774
+1806
+1808
+1809
+1810
+1840
+1869
+1958
+1969
+1970
+1984
+2027
+2036
+2043
+2048
+2070
+2074
+2075
+2084
+2085
+2088
+2089
+2096
+2111
+2112
+2137
+2142
+2143
+2208
+2229
+2307
+2362
+2363
+2364
+2365
+2369
+2377
+2381
+2382
+2385
+2392
+2402
+2404
+2433
+2434
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2493
+2494
+2495
+2497
+2503
+2505
+2507
+2509
+2510
+2511
+2524
+2526
+2527
+2530
+2534
+2556
+2563
+2564
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2622
+2625
+2649
+2653
+2654
+2655
+2662
+2672
+2674
+2677
+2691
+2692
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2749
+2753
+2761
+2762
+2763
+2765
+2768
+2769
+2784
+2786
+2790
+2802
+2809
+2810
+2818
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2877
+2878
+2880
+2881
+2887
+2889
+2891
+2893
+2908
+2910
+2911
+2914
+2918
+2936
+2947
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3007
+3008
+3009
+3011
+3014
+3017
+3018
+3021
+3024
+3025
+3046
+3067
+3073
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3130
+3133
+3134
+3137
+3141
+3160
+3163
+3168
+3170
+3174
+3184
+3192
+3200
+3202
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3261
+3263
+3264
+3266
+3267
+3269
+3271
+3273
+3274
+3276
+3294
+3295
+3296
+3298
+3302
+3312
+3313
+3315
+3330
+3332
+3333
+3341
+3342
+3345
+3346
+3387
+3389
+3390
+3391
+3393
+3398
+3401
+3402
+3405
+3406
+3407
+3423
+3426
+3430
+3446
+3449
+3456
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3536
+3538
+3544
+3551
+3558
+3568
+3570
+3573
+3585
+3633
+3634
+3636
+3647
+3655
+3663
+3676
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3761
+3762
+3764
+3773
+3774
+3776
+3781
+3782
+3783
+3792
+3802
+3804
+3808
+3840
+3864
+3866
+3893
+3894
+3895
+3896
+3897
+3898
+3912
+3913
+3949
+3967
+3968
+3973
+3974
+3976
+3981
+4030
+4038
+4039
+4045
+4046
+4059
+4096
+4141
+4145
+4146
+4152
+4153
+4155
+4157
+4159
+4184
+4186
+4190
+4193
+4209
+4213
+4226
+4227
+4229
+4231
+4237
+4238
+4253
+4254
+4294
+4295
+4296
+4301
+4302
+4304
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4960
+4989
+4992
+5018
+5024
+5110
+5112
+5118
+5120
+5789
+5792
+5881
+5888
+5901
+5902
+5906
+5920
+5938
+5941
+5943
+5952
+5970
+5984
+5997
+5998
+6001
+6016
+6068
+6070
+6071
+6078
+6086
+6087
+6089
+6100
+6109
+6112
+6122
+6128
+6138
+6144
+6155
+6160
+6170
+6176
+6264
+6272
+6313
+6314
+6315
+6320
+6390
+6400
+6431
+6435
+6439
+6441
+6444
+6448
+6450
+6451
+6457
+6464
+6465
+6468
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6608
+6619
+6622
+6679
+6681
+6683
+6686
+6742
+6743
+6744
+6753
+6754
+6755
+6757
+6765
+6771
+6784
+6794
+6800
+6810
+6816
+6830
+6916
+6964
+6965
+6966
+6971
+6972
+6973
+6978
+6979
+6988
+6992
+7019
+7028
+7037
+7042
+7074
+7078
+7080
+7082
+7083
+7086
+7142
+7143
+7144
+7146
+7149
+7150
+7151
+7154
+7156
+7164
+7212
+7220
+7222
+7227
+7242
+7245
+7296
+7360
+7368
+7379
+7380
+7393
+7394
+7401
+7405
+7406
+7412
+7413
+7415
+7424
+7616
+7680
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8191
+8192
+8203
+8208
+8232
+8239
+8288
+8304
+8306
+8308
+8335
+8336
+8349
+8352
+8383
+8448
+8588
+8592
+9211
+9216
+9255
+9280
+9291
+9312
+11124
+11126
+11158
+11160
+11194
+11197
+11209
+11210
+11218
+11244
+11248
+11264
+11311
+11312
+11359
+11360
+11503
+11506
+11508
+11513
+11558
+11559
+11560
+11565
+11566
+11568
+11624
+11631
+11633
+11648
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11776
+11843
+11904
+11930
+11931
+12020
+12032
+12246
+12272
+12284
+12288
+12330
+12336
+12352
+12353
+12439
+12443
+12544
+12549
+12590
+12593
+12687
+12688
+12731
+12736
+12772
+12784
+12831
+12832
+13055
+13056
+19894
+19904
+40918
+40960
+42125
+42128
+42183
+42192
+42540
+42560
+42607
+42611
+42612
+42622
+42654
+42656
+42736
+42738
+42744
+42752
+42926
+42928
+42936
+42999
+43010
+43011
+43014
+43015
+43019
+43020
+43045
+43047
+43052
+43056
+43066
+43072
+43128
+43136
+43204
+43214
+43226
+43250
+43262
+43264
+43302
+43310
+43335
+43346
+43348
+43359
+43389
+43395
+43443
+43444
+43446
+43450
+43452
+43453
+43470
+43471
+43482
+43486
+43493
+43494
+43519
+43520
+43561
+43567
+43569
+43571
+43573
+43584
+43587
+43588
+43596
+43597
+43598
+43600
+43610
+43612
+43644
+43645
+43696
+43697
+43698
+43701
+43703
+43705
+43710
+43712
+43713
+43714
+43715
+43739
+43756
+43758
+43766
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43824
+43878
+43888
+44005
+44006
+44008
+44009
+44013
+44016
+44026
+44032
+55204
+55216
+55239
+55243
+55292
+63744
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64286
+64287
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64450
+64467
+64832
+64848
+64912
+64914
+64968
+65008
+65022
+65040
+65050
+65072
+65107
+65108
+65127
+65128
+65132
+65136
+65141
+65142
+65277
+65281
+65438
+65440
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+65532
+65534
+65536
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65792
+65795
+65799
+65844
+65847
+65933
+65936
+65948
+65952
+65953
+66000
+66045
+66176
+66205
+66208
+66257
+66273
+66300
+66304
+66340
+66352
+66379
+66384
+66422
+66432
+66462
+66463
+66500
+66504
+66518
+66560
+66718
+66720
+66730
+66816
+66856
+66864
+66916
+66927
+66928
+67072
+67383
+67392
+67414
+67424
+67432
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67671
+67743
+67751
+67760
+67808
+67827
+67828
+67830
+67835
+67868
+67871
+67898
+67903
+67904
+67968
+68024
+68028
+68048
+68050
+68097
+68112
+68116
+68117
+68120
+68121
+68148
+68160
+68168
+68176
+68185
+68192
+68256
+68288
+68325
+68331
+68343
+68352
+68406
+68409
+68438
+68440
+68467
+68472
+68498
+68505
+68509
+68521
+68528
+68608
+68681
+68736
+68787
+68800
+68851
+68858
+68864
+69216
+69247
+69632
+69633
+69634
+69688
+69703
+69710
+69714
+69744
+69762
+69811
+69815
+69817
+69819
+69821
+69822
+69826
+69840
+69865
+69872
+69882
+69891
+69927
+69932
+69933
+69942
+69956
+69968
+70003
+70004
+70007
+70018
+70070
+70079
+70090
+70093
+70094
+70096
+70112
+70113
+70133
+70144
+70162
+70163
+70191
+70194
+70196
+70197
+70198
+70200
+70206
+70272
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70314
+70320
+70367
+70368
+70371
+70384
+70394
+70402
+70404
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70461
+70462
+70463
+70464
+70465
+70469
+70471
+70473
+70475
+70478
+70480
+70481
+70493
+70500
+70784
+70832
+70833
+70835
+70841
+70842
+70843
+70845
+70846
+70847
+70849
+70850
+70852
+70856
+70864
+70874
+71040
+71087
+71088
+71090
+71096
+71100
+71102
+71103
+71105
+71132
+71168
+71219
+71227
+71229
+71230
+71231
+71233
+71237
+71248
+71258
+71296
+71339
+71340
+71341
+71342
+71344
+71350
+71351
+71360
+71370
+71424
+71450
+71456
+71458
+71462
+71463
+71472
+71488
+71840
+71923
+71935
+71936
+72384
+72441
+73728
+74650
+74752
+74863
+74864
+74869
+74880
+75076
+77824
+78895
+82944
+83527
+92160
+92729
+92736
+92767
+92768
+92778
+92782
+92784
+92880
+92910
+92917
+92918
+92928
+92976
+92983
+92998
+93008
+93018
+93019
+93026
+93027
+93048
+93053
+93072
+93952
+94021
+94032
+94079
+94099
+94112
+110592
+110594
+113664
+113771
+113776
+113789
+113792
+113801
+113808
+113818
+113820
+113821
+113823
+113824
+118784
+119030
+119040
+119079
+119081
+119141
+119142
+119143
+119146
+119150
+119171
+119173
+119180
+119210
+119214
+119273
+119296
+119362
+119365
+119366
+119552
+119639
+119648
+119666
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120780
+120782
+121344
+121399
+121403
+121453
+121461
+121462
+121476
+121477
+121484
+124928
+125125
+125127
+125136
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+126704
+126706
+126976
+127020
+127024
+127124
+127136
+127151
+127153
+127168
+127169
+127184
+127185
+127222
+127232
+127245
+127248
+127279
+127280
+127340
+127344
+127387
+127462
+127491
+127504
+127547
+127552
+127561
+127568
+127570
+127744
+128378
+128379
+128420
+128421
+128721
+128736
+128749
+128752
+128756
+128768
+128884
+128896
+128981
+129024
+129036
+129040
+129096
+129104
+129114
+129120
+129160
+129168
+129198
+129296
+129305
+129408
+129413
+129472
+129473
+131072
+173783
+173824
+177973
+177984
+178206
+178208
+183970
+194560
+195102
+END
diff --git a/lib/5.24.1/unicore/lib/Hex/Y.pl b/lib/5.24.1/unicore/lib/Hex/Y.pl
new file mode 100644
index 00000000..fbf47720
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Hex/Y.pl
@@ -0,0 +1,26 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V12
+48
+58
+65
+71
+97
+103
+65296
+65306
+65313
+65319
+65345
+65351
+END
diff --git a/lib/5.24.1/unicore/lib/Hst/NA.pl b/lib/5.24.1/unicore/lib/Hst/NA.pl
new file mode 100644
index 00000000..0a522325
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Hst/NA.pl
@@ -0,0 +1,25 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V11
+0
+4352
+4608
+43360
+43389
+44032
+55204
+55216
+55239
+55243
+55292
+END
diff --git a/lib/5.24.1/unicore/lib/Hyphen/T.pl b/lib/5.24.1/unicore/lib/Hyphen/T.pl
new file mode 100644
index 00000000..35545325
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Hyphen/T.pl
@@ -0,0 +1,34 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V20
+45
+46
+173
+174
+1418
+1419
+6150
+6151
+8208
+8210
+11799
+11800
+12539
+12540
+65123
+65124
+65293
+65294
+65381
+65382
+END
diff --git a/lib/5.24.1/unicore/lib/IDC/Y.pl b/lib/5.24.1/unicore/lib/IDC/Y.pl
new file mode 100644
index 00000000..958cf16e
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/IDC/Y.pl
@@ -0,0 +1,1316 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1302
+48
+58
+65
+91
+95
+96
+97
+123
+170
+171
+181
+182
+183
+184
+186
+187
+192
+215
+216
+247
+248
+706
+710
+722
+736
+741
+748
+749
+750
+751
+768
+885
+886
+888
+890
+894
+895
+896
+902
+907
+908
+909
+910
+930
+931
+1014
+1015
+1154
+1155
+1160
+1162
+1328
+1329
+1367
+1369
+1370
+1377
+1416
+1425
+1470
+1471
+1472
+1473
+1475
+1476
+1478
+1479
+1480
+1488
+1515
+1520
+1523
+1552
+1563
+1568
+1642
+1646
+1748
+1749
+1757
+1759
+1769
+1770
+1789
+1791
+1792
+1808
+1867
+1869
+1970
+1984
+2038
+2042
+2043
+2048
+2094
+2112
+2140
+2208
+2229
+2275
+2404
+2406
+2416
+2417
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2501
+2503
+2505
+2507
+2511
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2546
+2561
+2564
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2649
+2653
+2654
+2655
+2662
+2678
+2689
+2692
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2788
+2790
+2800
+2809
+2810
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2876
+2885
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2916
+2918
+2928
+2929
+2930
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3024
+3025
+3031
+3032
+3046
+3056
+3072
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3130
+3133
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3160
+3163
+3168
+3172
+3174
+3184
+3201
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3260
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3300
+3302
+3312
+3313
+3315
+3329
+3332
+3333
+3341
+3342
+3345
+3346
+3387
+3389
+3397
+3398
+3401
+3402
+3407
+3415
+3416
+3423
+3428
+3430
+3440
+3450
+3456
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3558
+3568
+3570
+3572
+3585
+3643
+3648
+3663
+3664
+3674
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3792
+3802
+3804
+3808
+3840
+3841
+3864
+3866
+3872
+3882
+3893
+3894
+3895
+3896
+3897
+3898
+3902
+3912
+3913
+3949
+3953
+3973
+3974
+3992
+3993
+4029
+4038
+4039
+4096
+4170
+4176
+4254
+4256
+4294
+4295
+4296
+4301
+4302
+4304
+4347
+4348
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4957
+4960
+4969
+4978
+4992
+5008
+5024
+5110
+5112
+5118
+5121
+5741
+5743
+5760
+5761
+5787
+5792
+5867
+5870
+5881
+5888
+5901
+5902
+5909
+5920
+5941
+5952
+5972
+5984
+5997
+5998
+6001
+6002
+6004
+6016
+6100
+6103
+6104
+6108
+6110
+6112
+6122
+6155
+6158
+6160
+6170
+6176
+6264
+6272
+6315
+6320
+6390
+6400
+6431
+6432
+6444
+6448
+6460
+6470
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6608
+6619
+6656
+6684
+6688
+6751
+6752
+6781
+6783
+6794
+6800
+6810
+6823
+6824
+6832
+6846
+6912
+6988
+6992
+7002
+7019
+7028
+7040
+7156
+7168
+7224
+7232
+7242
+7245
+7294
+7376
+7379
+7380
+7415
+7416
+7418
+7424
+7670
+7676
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8125
+8126
+8127
+8130
+8133
+8134
+8141
+8144
+8148
+8150
+8156
+8160
+8173
+8178
+8181
+8182
+8189
+8255
+8257
+8276
+8277
+8305
+8306
+8319
+8320
+8336
+8349
+8400
+8413
+8417
+8418
+8421
+8433
+8450
+8451
+8455
+8456
+8458
+8468
+8469
+8470
+8472
+8478
+8484
+8485
+8486
+8487
+8488
+8489
+8490
+8506
+8508
+8512
+8517
+8522
+8526
+8527
+8544
+8585
+11264
+11311
+11312
+11359
+11360
+11493
+11499
+11508
+11520
+11558
+11559
+11560
+11565
+11566
+11568
+11624
+11631
+11632
+11647
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11744
+11776
+12293
+12296
+12321
+12336
+12337
+12342
+12344
+12349
+12353
+12439
+12441
+12448
+12449
+12539
+12540
+12544
+12549
+12590
+12593
+12687
+12704
+12731
+12784
+12800
+13312
+19894
+19968
+40918
+40960
+42125
+42192
+42238
+42240
+42509
+42512
+42540
+42560
+42608
+42612
+42622
+42623
+42738
+42775
+42784
+42786
+42889
+42891
+42926
+42928
+42936
+42999
+43048
+43072
+43124
+43136
+43205
+43216
+43226
+43232
+43256
+43259
+43260
+43261
+43262
+43264
+43310
+43312
+43348
+43360
+43389
+43392
+43457
+43471
+43482
+43488
+43519
+43520
+43575
+43584
+43598
+43600
+43610
+43616
+43639
+43642
+43715
+43739
+43742
+43744
+43760
+43762
+43767
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43824
+43867
+43868
+43878
+43888
+44011
+44012
+44014
+44016
+44026
+44032
+55204
+55216
+55239
+55243
+55292
+63744
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64297
+64298
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64434
+64467
+64830
+64848
+64912
+64914
+64968
+65008
+65020
+65024
+65040
+65056
+65072
+65075
+65077
+65101
+65104
+65136
+65141
+65142
+65277
+65296
+65306
+65313
+65339
+65343
+65344
+65345
+65371
+65382
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65536
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65856
+65909
+66045
+66046
+66176
+66205
+66208
+66257
+66272
+66273
+66304
+66336
+66352
+66379
+66384
+66427
+66432
+66462
+66464
+66500
+66504
+66512
+66513
+66518
+66560
+66718
+66720
+66730
+66816
+66856
+66864
+66916
+67072
+67383
+67392
+67414
+67424
+67432
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67680
+67703
+67712
+67743
+67808
+67827
+67828
+67830
+67840
+67862
+67872
+67898
+67968
+68024
+68030
+68032
+68096
+68100
+68101
+68103
+68108
+68116
+68117
+68120
+68121
+68148
+68152
+68155
+68159
+68160
+68192
+68221
+68224
+68253
+68288
+68296
+68297
+68327
+68352
+68406
+68416
+68438
+68448
+68467
+68480
+68498
+68608
+68681
+68736
+68787
+68800
+68851
+69632
+69703
+69734
+69744
+69759
+69819
+69840
+69865
+69872
+69882
+69888
+69941
+69942
+69952
+69968
+70004
+70006
+70007
+70016
+70085
+70090
+70093
+70096
+70107
+70108
+70109
+70144
+70162
+70163
+70200
+70272
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70313
+70320
+70379
+70384
+70394
+70400
+70404
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70460
+70469
+70471
+70473
+70475
+70478
+70480
+70481
+70487
+70488
+70493
+70500
+70502
+70509
+70512
+70517
+70784
+70854
+70855
+70856
+70864
+70874
+71040
+71094
+71096
+71105
+71128
+71134
+71168
+71233
+71236
+71237
+71248
+71258
+71296
+71352
+71360
+71370
+71424
+71450
+71453
+71468
+71472
+71482
+71840
+71914
+71935
+71936
+72384
+72441
+73728
+74650
+74752
+74863
+74880
+75076
+77824
+78895
+82944
+83527
+92160
+92729
+92736
+92767
+92768
+92778
+92880
+92910
+92912
+92917
+92928
+92983
+92992
+92996
+93008
+93018
+93027
+93048
+93053
+93072
+93952
+94021
+94032
+94079
+94095
+94112
+110592
+110594
+113664
+113771
+113776
+113789
+113792
+113801
+113808
+113818
+113821
+113823
+119141
+119146
+119149
+119155
+119163
+119171
+119173
+119180
+119210
+119214
+119362
+119365
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120513
+120514
+120539
+120540
+120571
+120572
+120597
+120598
+120629
+120630
+120655
+120656
+120687
+120688
+120713
+120714
+120745
+120746
+120771
+120772
+120780
+120782
+120832
+121344
+121399
+121403
+121453
+121461
+121462
+121476
+121477
+121499
+121504
+121505
+121520
+124928
+125125
+125136
+125143
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+131072
+173783
+173824
+177973
+177984
+178206
+178208
+183970
+194560
+195102
+917760
+918000
+END
diff --git a/lib/5.24.1/unicore/lib/IDS/Y.pl b/lib/5.24.1/unicore/lib/IDS/Y.pl
new file mode 100644
index 00000000..89c7631b
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/IDS/Y.pl
@@ -0,0 +1,1124 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1110
+65
+91
+97
+123
+170
+171
+181
+182
+186
+187
+192
+215
+216
+247
+248
+706
+710
+722
+736
+741
+748
+749
+750
+751
+880
+885
+886
+888
+890
+894
+895
+896
+902
+903
+904
+907
+908
+909
+910
+930
+931
+1014
+1015
+1154
+1162
+1328
+1329
+1367
+1369
+1370
+1377
+1416
+1488
+1515
+1520
+1523
+1568
+1611
+1646
+1648
+1649
+1748
+1749
+1750
+1765
+1767
+1774
+1776
+1786
+1789
+1791
+1792
+1808
+1809
+1810
+1840
+1869
+1958
+1969
+1970
+1994
+2027
+2036
+2038
+2042
+2043
+2048
+2070
+2074
+2075
+2084
+2085
+2088
+2089
+2112
+2137
+2208
+2229
+2308
+2362
+2365
+2366
+2384
+2385
+2392
+2402
+2417
+2433
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2493
+2494
+2510
+2511
+2524
+2526
+2527
+2530
+2544
+2546
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2649
+2653
+2654
+2655
+2674
+2677
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2749
+2750
+2768
+2769
+2784
+2786
+2809
+2810
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2877
+2878
+2908
+2910
+2911
+2914
+2929
+2930
+2947
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3024
+3025
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3130
+3133
+3134
+3160
+3163
+3168
+3170
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3261
+3262
+3294
+3295
+3296
+3298
+3313
+3315
+3333
+3341
+3342
+3345
+3346
+3387
+3389
+3390
+3406
+3407
+3423
+3426
+3450
+3456
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3585
+3633
+3634
+3636
+3648
+3655
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3761
+3762
+3764
+3773
+3774
+3776
+3781
+3782
+3783
+3804
+3808
+3840
+3841
+3904
+3912
+3913
+3949
+3976
+3981
+4096
+4139
+4159
+4160
+4176
+4182
+4186
+4190
+4193
+4194
+4197
+4199
+4206
+4209
+4213
+4226
+4238
+4239
+4256
+4294
+4295
+4296
+4301
+4302
+4304
+4347
+4348
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4992
+5008
+5024
+5110
+5112
+5118
+5121
+5741
+5743
+5760
+5761
+5787
+5792
+5867
+5870
+5881
+5888
+5901
+5902
+5906
+5920
+5938
+5952
+5970
+5984
+5997
+5998
+6001
+6016
+6068
+6103
+6104
+6108
+6109
+6176
+6264
+6272
+6313
+6314
+6315
+6320
+6390
+6400
+6431
+6480
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6656
+6679
+6688
+6741
+6823
+6824
+6917
+6964
+6981
+6988
+7043
+7073
+7086
+7088
+7098
+7142
+7168
+7204
+7245
+7248
+7258
+7294
+7401
+7405
+7406
+7410
+7413
+7415
+7424
+7616
+7680
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8125
+8126
+8127
+8130
+8133
+8134
+8141
+8144
+8148
+8150
+8156
+8160
+8173
+8178
+8181
+8182
+8189
+8305
+8306
+8319
+8320
+8336
+8349
+8450
+8451
+8455
+8456
+8458
+8468
+8469
+8470
+8472
+8478
+8484
+8485
+8486
+8487
+8488
+8489
+8490
+8506
+8508
+8512
+8517
+8522
+8526
+8527
+8544
+8585
+11264
+11311
+11312
+11359
+11360
+11493
+11499
+11503
+11506
+11508
+11520
+11558
+11559
+11560
+11565
+11566
+11568
+11624
+11631
+11632
+11648
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+12293
+12296
+12321
+12330
+12337
+12342
+12344
+12349
+12353
+12439
+12443
+12448
+12449
+12539
+12540
+12544
+12549
+12590
+12593
+12687
+12704
+12731
+12784
+12800
+13312
+19894
+19968
+40918
+40960
+42125
+42192
+42238
+42240
+42509
+42512
+42528
+42538
+42540
+42560
+42607
+42623
+42654
+42656
+42736
+42775
+42784
+42786
+42889
+42891
+42926
+42928
+42936
+42999
+43010
+43011
+43014
+43015
+43019
+43020
+43043
+43072
+43124
+43138
+43188
+43250
+43256
+43259
+43260
+43261
+43262
+43274
+43302
+43312
+43335
+43360
+43389
+43396
+43443
+43471
+43472
+43488
+43493
+43494
+43504
+43514
+43519
+43520
+43561
+43584
+43587
+43588
+43596
+43616
+43639
+43642
+43643
+43646
+43696
+43697
+43698
+43701
+43703
+43705
+43710
+43712
+43713
+43714
+43715
+43739
+43742
+43744
+43755
+43762
+43765
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43824
+43867
+43868
+43878
+43888
+44003
+44032
+55204
+55216
+55239
+55243
+55292
+63744
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64286
+64287
+64297
+64298
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64434
+64467
+64830
+64848
+64912
+64914
+64968
+65008
+65020
+65136
+65141
+65142
+65277
+65313
+65339
+65345
+65371
+65382
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65536
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65856
+65909
+66176
+66205
+66208
+66257
+66304
+66336
+66352
+66379
+66384
+66422
+66432
+66462
+66464
+66500
+66504
+66512
+66513
+66518
+66560
+66718
+66816
+66856
+66864
+66916
+67072
+67383
+67392
+67414
+67424
+67432
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67680
+67703
+67712
+67743
+67808
+67827
+67828
+67830
+67840
+67862
+67872
+67898
+67968
+68024
+68030
+68032
+68096
+68097
+68112
+68116
+68117
+68120
+68121
+68148
+68192
+68221
+68224
+68253
+68288
+68296
+68297
+68325
+68352
+68406
+68416
+68438
+68448
+68467
+68480
+68498
+68608
+68681
+68736
+68787
+68800
+68851
+69635
+69688
+69763
+69808
+69840
+69865
+69891
+69927
+69968
+70003
+70006
+70007
+70019
+70067
+70081
+70085
+70106
+70107
+70108
+70109
+70144
+70162
+70163
+70188
+70272
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70313
+70320
+70367
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70461
+70462
+70480
+70481
+70493
+70498
+70784
+70832
+70852
+70854
+70855
+70856
+71040
+71087
+71128
+71132
+71168
+71216
+71236
+71237
+71296
+71339
+71424
+71450
+71840
+71904
+71935
+71936
+72384
+72441
+73728
+74650
+74752
+74863
+74880
+75076
+77824
+78895
+82944
+83527
+92160
+92729
+92736
+92767
+92880
+92910
+92928
+92976
+92992
+92996
+93027
+93048
+93053
+93072
+93952
+94021
+94032
+94033
+94099
+94112
+110592
+110594
+113664
+113771
+113776
+113789
+113792
+113801
+113808
+113818
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120513
+120514
+120539
+120540
+120571
+120572
+120597
+120598
+120629
+120630
+120655
+120656
+120687
+120688
+120713
+120714
+120745
+120746
+120771
+120772
+120780
+124928
+125125
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+131072
+173783
+173824
+177973
+177984
+178206
+178208
+183970
+194560
+195102
+END
diff --git a/lib/5.24.1/unicore/lib/Ideo/Y.pl b/lib/5.24.1/unicore/lib/Ideo/Y.pl
new file mode 100644
index 00000000..68c7010e
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Ideo/Y.pl
@@ -0,0 +1,38 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V24
+12294
+12296
+12321
+12330
+12344
+12347
+13312
+19894
+19968
+40918
+63744
+64110
+64112
+64218
+131072
+173783
+173824
+177973
+177984
+178206
+178208
+183970
+194560
+195102
+END
diff --git a/lib/5.24.1/unicore/lib/In/2_0.pl b/lib/5.24.1/unicore/lib/In/2_0.pl
new file mode 100644
index 00000000..ac72f872
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/In/2_0.pl
@@ -0,0 +1,638 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V624
+0
+502
+506
+536
+592
+681
+688
+735
+736
+746
+768
+838
+864
+866
+884
+886
+890
+891
+894
+895
+900
+907
+908
+909
+910
+930
+931
+975
+976
+983
+986
+987
+988
+989
+990
+991
+992
+993
+994
+1012
+1025
+1037
+1038
+1104
+1105
+1117
+1118
+1159
+1168
+1221
+1223
+1225
+1227
+1229
+1232
+1260
+1262
+1270
+1272
+1274
+1329
+1367
+1369
+1376
+1377
+1416
+1417
+1418
+1425
+1442
+1443
+1466
+1467
+1477
+1488
+1515
+1520
+1525
+1548
+1549
+1563
+1564
+1567
+1568
+1569
+1595
+1600
+1619
+1632
+1646
+1648
+1720
+1722
+1727
+1728
+1743
+1744
+1774
+1776
+1786
+2305
+2308
+2309
+2362
+2364
+2382
+2384
+2389
+2392
+2417
+2433
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2493
+2494
+2501
+2503
+2505
+2507
+2510
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2555
+2562
+2563
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2649
+2653
+2654
+2655
+2662
+2677
+2689
+2692
+2693
+2700
+2701
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2785
+2790
+2800
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2870
+2874
+2876
+2884
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2914
+2918
+2929
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+2998
+2999
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3031
+3032
+3047
+3059
+3073
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3124
+3125
+3130
+3134
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3168
+3170
+3174
+3184
+3202
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3262
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3298
+3302
+3312
+3330
+3332
+3333
+3341
+3342
+3345
+3346
+3369
+3370
+3386
+3390
+3396
+3398
+3401
+3402
+3406
+3415
+3416
+3424
+3426
+3430
+3440
+3585
+3643
+3647
+3676
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3792
+3802
+3804
+3806
+3840
+3912
+3913
+3946
+3953
+3980
+3984
+3990
+3991
+3992
+3993
+4014
+4017
+4024
+4025
+4026
+4256
+4294
+4304
+4343
+4347
+4348
+4352
+4442
+4447
+4515
+4520
+4602
+7680
+7836
+7840
+7930
+7936
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8191
+8192
+8239
+8240
+8263
+8298
+8305
+8308
+8335
+8352
+8364
+8400
+8418
+8448
+8505
+8531
+8579
+8592
+8683
+8704
+8946
+8960
+8961
+8962
+9083
+9216
+9253
+9280
+9291
+9312
+9451
+9472
+9622
+9632
+9712
+9728
+9748
+9754
+9840
+9985
+9989
+9990
+9994
+9996
+10024
+10025
+10060
+10061
+10062
+10063
+10067
+10070
+10071
+10072
+10079
+10081
+10088
+10102
+10133
+10136
+10160
+10161
+10175
+12288
+12344
+12351
+12352
+12353
+12437
+12441
+12447
+12449
+12543
+12549
+12589
+12593
+12687
+12688
+12704
+12800
+12829
+12832
+12868
+12896
+12924
+12927
+12977
+12992
+13004
+13008
+13055
+13056
+13175
+13179
+13278
+13280
+13311
+19968
+40870
+44032
+55204
+55296
+64046
+64256
+64263
+64275
+64280
+64286
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64434
+64467
+64832
+64848
+64912
+64914
+64968
+65008
+65020
+65056
+65060
+65072
+65093
+65097
+65107
+65108
+65127
+65128
+65132
+65136
+65139
+65140
+65141
+65142
+65277
+65279
+65280
+65281
+65375
+65377
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+65533
+65536
+131070
+131072
+196606
+196608
+262142
+262144
+327678
+327680
+393214
+393216
+458750
+458752
+524286
+524288
+589822
+589824
+655358
+655360
+720894
+720896
+786430
+786432
+851966
+851968
+917502
+917504
+983038
+1114112
+END
diff --git a/lib/5.24.1/unicore/lib/In/2_1.pl b/lib/5.24.1/unicore/lib/In/2_1.pl
new file mode 100644
index 00000000..79be34b5
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/In/2_1.pl
@@ -0,0 +1,638 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V624
+0
+502
+506
+536
+592
+681
+688
+735
+736
+746
+768
+838
+864
+866
+884
+886
+890
+891
+894
+895
+900
+907
+908
+909
+910
+930
+931
+975
+976
+983
+986
+987
+988
+989
+990
+991
+992
+993
+994
+1012
+1025
+1037
+1038
+1104
+1105
+1117
+1118
+1159
+1168
+1221
+1223
+1225
+1227
+1229
+1232
+1260
+1262
+1270
+1272
+1274
+1329
+1367
+1369
+1376
+1377
+1416
+1417
+1418
+1425
+1442
+1443
+1466
+1467
+1477
+1488
+1515
+1520
+1525
+1548
+1549
+1563
+1564
+1567
+1568
+1569
+1595
+1600
+1619
+1632
+1646
+1648
+1720
+1722
+1727
+1728
+1743
+1744
+1774
+1776
+1786
+2305
+2308
+2309
+2362
+2364
+2382
+2384
+2389
+2392
+2417
+2433
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2493
+2494
+2501
+2503
+2505
+2507
+2510
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2555
+2562
+2563
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2649
+2653
+2654
+2655
+2662
+2677
+2689
+2692
+2693
+2700
+2701
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2785
+2790
+2800
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2870
+2874
+2876
+2884
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2914
+2918
+2929
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+2998
+2999
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3031
+3032
+3047
+3059
+3073
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3124
+3125
+3130
+3134
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3168
+3170
+3174
+3184
+3202
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3262
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3298
+3302
+3312
+3330
+3332
+3333
+3341
+3342
+3345
+3346
+3369
+3370
+3386
+3390
+3396
+3398
+3401
+3402
+3406
+3415
+3416
+3424
+3426
+3430
+3440
+3585
+3643
+3647
+3676
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3792
+3802
+3804
+3806
+3840
+3912
+3913
+3946
+3953
+3980
+3984
+3990
+3991
+3992
+3993
+4014
+4017
+4024
+4025
+4026
+4256
+4294
+4304
+4343
+4347
+4348
+4352
+4442
+4447
+4515
+4520
+4602
+7680
+7836
+7840
+7930
+7936
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8191
+8192
+8239
+8240
+8263
+8298
+8305
+8308
+8335
+8352
+8365
+8400
+8418
+8448
+8505
+8531
+8579
+8592
+8683
+8704
+8946
+8960
+8961
+8962
+9083
+9216
+9253
+9280
+9291
+9312
+9451
+9472
+9622
+9632
+9712
+9728
+9748
+9754
+9840
+9985
+9989
+9990
+9994
+9996
+10024
+10025
+10060
+10061
+10062
+10063
+10067
+10070
+10071
+10072
+10079
+10081
+10088
+10102
+10133
+10136
+10160
+10161
+10175
+12288
+12344
+12351
+12352
+12353
+12437
+12441
+12447
+12449
+12543
+12549
+12589
+12593
+12687
+12688
+12704
+12800
+12829
+12832
+12868
+12896
+12924
+12927
+12977
+12992
+13004
+13008
+13055
+13056
+13175
+13179
+13278
+13280
+13311
+19968
+40870
+44032
+55204
+55296
+64046
+64256
+64263
+64275
+64280
+64286
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64434
+64467
+64832
+64848
+64912
+64914
+64968
+65008
+65020
+65056
+65060
+65072
+65093
+65097
+65107
+65108
+65127
+65128
+65132
+65136
+65139
+65140
+65141
+65142
+65277
+65279
+65280
+65281
+65375
+65377
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+65532
+65536
+131070
+131072
+196606
+196608
+262142
+262144
+327678
+327680
+393214
+393216
+458750
+458752
+524286
+524288
+589822
+589824
+655358
+655360
+720894
+720896
+786430
+786432
+851966
+851968
+917502
+917504
+983038
+1114112
+END
diff --git a/lib/5.24.1/unicore/lib/In/3_0.pl b/lib/5.24.1/unicore/lib/In/3_0.pl
new file mode 100644
index 00000000..522caea8
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/In/3_0.pl
@@ -0,0 +1,752 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V738
+0
+544
+546
+564
+592
+686
+688
+751
+768
+847
+864
+867
+884
+886
+890
+891
+894
+895
+900
+907
+908
+909
+910
+930
+931
+975
+976
+984
+986
+1012
+1024
+1159
+1160
+1162
+1164
+1221
+1223
+1225
+1227
+1229
+1232
+1270
+1272
+1274
+1329
+1367
+1369
+1376
+1377
+1416
+1417
+1419
+1425
+1442
+1443
+1466
+1467
+1477
+1488
+1515
+1520
+1525
+1548
+1549
+1563
+1564
+1567
+1568
+1569
+1595
+1600
+1622
+1632
+1646
+1648
+1774
+1776
+1791
+1792
+1806
+1807
+1837
+1840
+1867
+1920
+1969
+2305
+2308
+2309
+2362
+2364
+2382
+2384
+2389
+2392
+2417
+2433
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2493
+2494
+2501
+2503
+2505
+2507
+2510
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2555
+2562
+2563
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2649
+2653
+2654
+2655
+2662
+2677
+2689
+2692
+2693
+2700
+2701
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2785
+2790
+2800
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2870
+2874
+2876
+2884
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2914
+2918
+2929
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+2998
+2999
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3031
+3032
+3047
+3059
+3073
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3124
+3125
+3130
+3134
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3168
+3170
+3174
+3184
+3202
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3262
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3298
+3302
+3312
+3330
+3332
+3333
+3341
+3342
+3345
+3346
+3369
+3370
+3386
+3390
+3396
+3398
+3401
+3402
+3406
+3415
+3416
+3424
+3426
+3430
+3440
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3570
+3573
+3585
+3643
+3647
+3676
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3792
+3802
+3804
+3806
+3840
+3912
+3913
+3947
+3953
+3980
+3984
+3992
+3993
+4029
+4030
+4045
+4047
+4048
+4096
+4130
+4131
+4136
+4137
+4139
+4140
+4147
+4150
+4154
+4160
+4186
+4256
+4294
+4304
+4343
+4347
+4348
+4352
+4442
+4447
+4515
+4520
+4602
+4608
+4615
+4616
+4679
+4680
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4743
+4744
+4745
+4746
+4750
+4752
+4783
+4784
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4815
+4816
+4823
+4824
+4847
+4848
+4879
+4880
+4881
+4882
+4886
+4888
+4895
+4896
+4935
+4936
+4955
+4961
+4989
+5024
+5109
+5121
+5751
+5760
+5789
+5792
+5873
+6016
+6109
+6112
+6122
+6144
+6159
+6160
+6170
+6176
+6264
+6272
+6314
+7680
+7836
+7840
+7930
+7936
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8191
+8192
+8263
+8264
+8270
+8298
+8305
+8308
+8335
+8352
+8368
+8400
+8420
+8448
+8507
+8531
+8580
+8592
+8692
+8704
+8946
+8960
+9084
+9085
+9115
+9216
+9255
+9280
+9291
+9312
+9451
+9472
+9622
+9632
+9720
+9728
+9748
+9753
+9842
+9985
+9989
+9990
+9994
+9996
+10024
+10025
+10060
+10061
+10062
+10063
+10067
+10070
+10071
+10072
+10079
+10081
+10088
+10102
+10133
+10136
+10160
+10161
+10175
+10240
+10496
+11904
+11930
+11931
+12020
+12032
+12246
+12272
+12284
+12288
+12347
+12350
+12352
+12353
+12437
+12441
+12447
+12449
+12543
+12549
+12589
+12593
+12687
+12688
+12728
+12800
+12829
+12832
+12868
+12896
+12924
+12927
+12977
+12992
+13004
+13008
+13055
+13056
+13175
+13179
+13278
+13280
+13311
+13312
+19894
+19968
+40870
+40960
+42125
+42128
+42146
+42148
+42164
+42165
+42177
+42178
+42181
+42182
+42183
+44032
+55204
+55296
+64046
+64256
+64263
+64275
+64280
+64285
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64434
+64467
+64832
+64848
+64912
+64914
+64968
+65008
+65020
+65056
+65060
+65072
+65093
+65097
+65107
+65108
+65127
+65128
+65132
+65136
+65139
+65140
+65141
+65142
+65277
+65279
+65280
+65281
+65375
+65377
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+65529
+65536
+131070
+131072
+196606
+196608
+262142
+262144
+327678
+327680
+393214
+393216
+458750
+458752
+524286
+524288
+589822
+589824
+655358
+655360
+720894
+720896
+786430
+786432
+851966
+851968
+917502
+917504
+983038
+1114112
+END
diff --git a/lib/5.24.1/unicore/lib/In/3_1.pl b/lib/5.24.1/unicore/lib/In/3_1.pl
new file mode 100644
index 00000000..87358015
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/In/3_1.pl
@@ -0,0 +1,818 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V804
+0
+544
+546
+564
+592
+686
+688
+751
+768
+847
+864
+867
+884
+886
+890
+891
+894
+895
+900
+907
+908
+909
+910
+930
+931
+975
+976
+984
+986
+1014
+1024
+1159
+1160
+1162
+1164
+1221
+1223
+1225
+1227
+1229
+1232
+1270
+1272
+1274
+1329
+1367
+1369
+1376
+1377
+1416
+1417
+1419
+1425
+1442
+1443
+1466
+1467
+1477
+1488
+1515
+1520
+1525
+1548
+1549
+1563
+1564
+1567
+1568
+1569
+1595
+1600
+1622
+1632
+1646
+1648
+1774
+1776
+1791
+1792
+1806
+1807
+1837
+1840
+1867
+1920
+1969
+2305
+2308
+2309
+2362
+2364
+2382
+2384
+2389
+2392
+2417
+2433
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2493
+2494
+2501
+2503
+2505
+2507
+2510
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2555
+2562
+2563
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2649
+2653
+2654
+2655
+2662
+2677
+2689
+2692
+2693
+2700
+2701
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2785
+2790
+2800
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2870
+2874
+2876
+2884
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2914
+2918
+2929
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+2998
+2999
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3031
+3032
+3047
+3059
+3073
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3124
+3125
+3130
+3134
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3168
+3170
+3174
+3184
+3202
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3262
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3298
+3302
+3312
+3330
+3332
+3333
+3341
+3342
+3345
+3346
+3369
+3370
+3386
+3390
+3396
+3398
+3401
+3402
+3406
+3415
+3416
+3424
+3426
+3430
+3440
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3570
+3573
+3585
+3643
+3647
+3676
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3792
+3802
+3804
+3806
+3840
+3912
+3913
+3947
+3953
+3980
+3984
+3992
+3993
+4029
+4030
+4045
+4047
+4048
+4096
+4130
+4131
+4136
+4137
+4139
+4140
+4147
+4150
+4154
+4160
+4186
+4256
+4294
+4304
+4343
+4347
+4348
+4352
+4442
+4447
+4515
+4520
+4602
+4608
+4615
+4616
+4679
+4680
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4743
+4744
+4745
+4746
+4750
+4752
+4783
+4784
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4815
+4816
+4823
+4824
+4847
+4848
+4879
+4880
+4881
+4882
+4886
+4888
+4895
+4896
+4935
+4936
+4955
+4961
+4989
+5024
+5109
+5121
+5751
+5760
+5789
+5792
+5873
+6016
+6109
+6112
+6122
+6144
+6159
+6160
+6170
+6176
+6264
+6272
+6314
+7680
+7836
+7840
+7930
+7936
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8191
+8192
+8263
+8264
+8270
+8298
+8305
+8308
+8335
+8352
+8368
+8400
+8420
+8448
+8507
+8531
+8580
+8592
+8692
+8704
+8946
+8960
+9084
+9085
+9115
+9216
+9255
+9280
+9291
+9312
+9451
+9472
+9622
+9632
+9720
+9728
+9748
+9753
+9842
+9985
+9989
+9990
+9994
+9996
+10024
+10025
+10060
+10061
+10062
+10063
+10067
+10070
+10071
+10072
+10079
+10081
+10088
+10102
+10133
+10136
+10160
+10161
+10175
+10240
+10496
+11904
+11930
+11931
+12020
+12032
+12246
+12272
+12284
+12288
+12347
+12350
+12352
+12353
+12437
+12441
+12447
+12449
+12543
+12549
+12589
+12593
+12687
+12688
+12728
+12800
+12829
+12832
+12868
+12896
+12924
+12927
+12977
+12992
+13004
+13008
+13055
+13056
+13175
+13179
+13278
+13280
+13311
+13312
+19894
+19968
+40870
+40960
+42125
+42128
+42146
+42148
+42164
+42165
+42177
+42178
+42181
+42182
+42183
+44032
+55204
+55296
+64046
+64256
+64263
+64275
+64280
+64285
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64434
+64467
+64832
+64848
+64912
+64914
+64968
+64976
+65020
+65056
+65060
+65072
+65093
+65097
+65107
+65108
+65127
+65128
+65132
+65136
+65139
+65140
+65141
+65142
+65277
+65279
+65280
+65281
+65375
+65377
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+65529
+65536
+66304
+66335
+66336
+66340
+66352
+66379
+66560
+66598
+66600
+66638
+118784
+119030
+119040
+119079
+119082
+119262
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120001
+120002
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120484
+120488
+120778
+120782
+120832
+131070
+173783
+194560
+195102
+196606
+196608
+262142
+262144
+327678
+327680
+393214
+393216
+458750
+458752
+524286
+524288
+589822
+589824
+655358
+655360
+720894
+720896
+786430
+786432
+851966
+851968
+917502
+917504
+917505
+917506
+917536
+917632
+983038
+1114112
+END
diff --git a/lib/5.24.1/unicore/lib/In/3_2.pl b/lib/5.24.1/unicore/lib/In/3_2.pl
new file mode 100644
index 00000000..fd741e32
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/In/3_2.pl
@@ -0,0 +1,808 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V794
+0
+545
+546
+564
+592
+686
+688
+751
+768
+848
+864
+880
+884
+886
+890
+891
+894
+895
+900
+907
+908
+909
+910
+930
+931
+975
+976
+1015
+1024
+1159
+1160
+1231
+1232
+1270
+1272
+1274
+1280
+1296
+1329
+1367
+1369
+1376
+1377
+1416
+1417
+1419
+1425
+1442
+1443
+1466
+1467
+1477
+1488
+1515
+1520
+1525
+1548
+1549
+1563
+1564
+1567
+1568
+1569
+1595
+1600
+1622
+1632
+1774
+1776
+1791
+1792
+1806
+1807
+1837
+1840
+1867
+1920
+1970
+2305
+2308
+2309
+2362
+2364
+2382
+2384
+2389
+2392
+2417
+2433
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2493
+2494
+2501
+2503
+2505
+2507
+2510
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2555
+2562
+2563
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2649
+2653
+2654
+2655
+2662
+2677
+2689
+2692
+2693
+2700
+2701
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2785
+2790
+2800
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2870
+2874
+2876
+2884
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2914
+2918
+2929
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+2998
+2999
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3031
+3032
+3047
+3059
+3073
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3124
+3125
+3130
+3134
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3168
+3170
+3174
+3184
+3202
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3262
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3298
+3302
+3312
+3330
+3332
+3333
+3341
+3342
+3345
+3346
+3369
+3370
+3386
+3390
+3396
+3398
+3401
+3402
+3406
+3415
+3416
+3424
+3426
+3430
+3440
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3570
+3573
+3585
+3643
+3647
+3676
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3792
+3802
+3804
+3806
+3840
+3912
+3913
+3947
+3953
+3980
+3984
+3992
+3993
+4029
+4030
+4045
+4047
+4048
+4096
+4130
+4131
+4136
+4137
+4139
+4140
+4147
+4150
+4154
+4160
+4186
+4256
+4294
+4304
+4345
+4347
+4348
+4352
+4442
+4447
+4515
+4520
+4602
+4608
+4615
+4616
+4679
+4680
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4743
+4744
+4745
+4746
+4750
+4752
+4783
+4784
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4815
+4816
+4823
+4824
+4847
+4848
+4879
+4880
+4881
+4882
+4886
+4888
+4895
+4896
+4935
+4936
+4955
+4961
+4989
+5024
+5109
+5121
+5751
+5760
+5789
+5792
+5873
+5888
+5901
+5902
+5909
+5920
+5943
+5952
+5972
+5984
+5997
+5998
+6001
+6002
+6004
+6016
+6109
+6112
+6122
+6144
+6159
+6160
+6170
+6176
+6264
+6272
+6314
+7680
+7836
+7840
+7930
+7936
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8191
+8192
+8275
+8279
+8280
+8287
+8292
+8298
+8306
+8308
+8335
+8352
+8370
+8400
+8427
+8448
+8507
+8509
+8524
+8531
+8580
+8592
+9167
+9216
+9255
+9280
+9291
+9312
+9471
+9472
+9748
+9750
+9752
+9753
+9854
+9856
+9866
+9985
+9989
+9990
+9994
+9996
+10024
+10025
+10060
+10061
+10062
+10063
+10067
+10070
+10071
+10072
+10079
+10081
+10133
+10136
+10160
+10161
+10175
+10192
+10220
+10224
+11008
+11904
+11930
+11931
+12020
+12032
+12246
+12272
+12284
+12288
+12352
+12353
+12439
+12441
+12544
+12549
+12589
+12593
+12687
+12688
+12728
+12784
+12829
+12832
+12868
+12881
+12924
+12927
+13004
+13008
+13055
+13056
+13175
+13179
+13278
+13280
+13311
+13312
+19894
+19968
+40870
+40960
+42125
+42128
+42183
+44032
+55204
+55296
+64046
+64048
+64107
+64256
+64263
+64275
+64280
+64285
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64434
+64467
+64832
+64848
+64912
+64914
+64968
+64976
+65021
+65024
+65040
+65056
+65060
+65072
+65095
+65097
+65107
+65108
+65127
+65128
+65132
+65136
+65141
+65142
+65277
+65279
+65280
+65281
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+65529
+65536
+66304
+66335
+66336
+66340
+66352
+66379
+66560
+66598
+66600
+66638
+118784
+119030
+119040
+119079
+119082
+119262
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120001
+120002
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120484
+120488
+120778
+120782
+120832
+131070
+173783
+194560
+195102
+196606
+196608
+262142
+262144
+327678
+327680
+393214
+393216
+458750
+458752
+524286
+524288
+589822
+589824
+655358
+655360
+720894
+720896
+786430
+786432
+851966
+851968
+917502
+917504
+917505
+917506
+917536
+917632
+983038
+1114112
+END
diff --git a/lib/5.24.1/unicore/lib/In/4_0.pl b/lib/5.24.1/unicore/lib/In/4_0.pl
new file mode 100644
index 00000000..32e64f7d
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/In/4_0.pl
@@ -0,0 +1,838 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V824
+0
+567
+592
+856
+861
+880
+884
+886
+890
+891
+894
+895
+900
+907
+908
+909
+910
+930
+931
+975
+976
+1020
+1024
+1159
+1160
+1231
+1232
+1270
+1272
+1274
+1280
+1296
+1329
+1367
+1369
+1376
+1377
+1416
+1417
+1419
+1425
+1442
+1443
+1466
+1467
+1477
+1488
+1515
+1520
+1525
+1536
+1540
+1548
+1558
+1563
+1564
+1567
+1568
+1569
+1595
+1600
+1625
+1632
+1806
+1807
+1867
+1869
+1872
+1920
+1970
+2305
+2362
+2364
+2382
+2384
+2389
+2392
+2417
+2433
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2501
+2503
+2505
+2507
+2510
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2555
+2561
+2564
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2649
+2653
+2654
+2655
+2662
+2677
+2689
+2692
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2788
+2790
+2800
+2801
+2802
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2876
+2884
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2914
+2918
+2930
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+2998
+2999
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3031
+3032
+3047
+3067
+3073
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3124
+3125
+3130
+3134
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3168
+3170
+3174
+3184
+3202
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3260
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3298
+3302
+3312
+3330
+3332
+3333
+3341
+3342
+3345
+3346
+3369
+3370
+3386
+3390
+3396
+3398
+3401
+3402
+3406
+3415
+3416
+3424
+3426
+3430
+3440
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3570
+3573
+3585
+3643
+3647
+3676
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3792
+3802
+3804
+3806
+3840
+3912
+3913
+3947
+3953
+3980
+3984
+3992
+3993
+4029
+4030
+4045
+4047
+4048
+4096
+4130
+4131
+4136
+4137
+4139
+4140
+4147
+4150
+4154
+4160
+4186
+4256
+4294
+4304
+4345
+4347
+4348
+4352
+4442
+4447
+4515
+4520
+4602
+4608
+4615
+4616
+4679
+4680
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4743
+4744
+4745
+4746
+4750
+4752
+4783
+4784
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4815
+4816
+4823
+4824
+4847
+4848
+4879
+4880
+4881
+4882
+4886
+4888
+4895
+4896
+4935
+4936
+4955
+4961
+4989
+5024
+5109
+5121
+5751
+5760
+5789
+5792
+5873
+5888
+5901
+5902
+5909
+5920
+5943
+5952
+5972
+5984
+5997
+5998
+6001
+6002
+6004
+6016
+6110
+6112
+6122
+6128
+6138
+6144
+6159
+6160
+6170
+6176
+6264
+6272
+6314
+6400
+6429
+6432
+6444
+6448
+6460
+6464
+6465
+6468
+6510
+6512
+6517
+6624
+6656
+7424
+7532
+7680
+7836
+7840
+7930
+7936
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8191
+8192
+8277
+8279
+8280
+8287
+8292
+8298
+8306
+8308
+8335
+8352
+8370
+8400
+8427
+8448
+8508
+8509
+8524
+8531
+8580
+8592
+9169
+9216
+9255
+9280
+9291
+9312
+9752
+9753
+9854
+9856
+9874
+9888
+9890
+9985
+9989
+9990
+9994
+9996
+10024
+10025
+10060
+10061
+10062
+10063
+10067
+10070
+10071
+10072
+10079
+10081
+10133
+10136
+10160
+10161
+10175
+10192
+10220
+10224
+11022
+11904
+11930
+11931
+12020
+12032
+12246
+12272
+12284
+12288
+12352
+12353
+12439
+12441
+12544
+12549
+12589
+12593
+12687
+12688
+12728
+12784
+12831
+12832
+12868
+12880
+12926
+12927
+13055
+13056
+19894
+19904
+40870
+40960
+42125
+42128
+42183
+44032
+55204
+55296
+64046
+64048
+64107
+64256
+64263
+64275
+64280
+64285
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64434
+64467
+64832
+64848
+64912
+64914
+64968
+64976
+65022
+65024
+65040
+65056
+65060
+65072
+65107
+65108
+65127
+65128
+65132
+65136
+65141
+65142
+65277
+65279
+65280
+65281
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+65529
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65792
+65795
+65799
+65844
+65847
+65856
+66304
+66335
+66336
+66340
+66352
+66379
+66432
+66462
+66463
+66464
+66560
+66718
+66720
+66730
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67648
+118784
+119030
+119040
+119079
+119082
+119262
+119552
+119639
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120484
+120488
+120778
+120782
+120832
+131070
+173783
+194560
+195102
+196606
+196608
+262142
+262144
+327678
+327680
+393214
+393216
+458750
+458752
+524286
+524288
+589822
+589824
+655358
+655360
+720894
+720896
+786430
+786432
+851966
+851968
+917502
+917504
+917505
+917506
+917536
+917632
+917760
+918000
+983038
+1114112
+END
diff --git a/lib/5.24.1/unicore/lib/In/4_1.pl b/lib/5.24.1/unicore/lib/In/4_1.pl
new file mode 100644
index 00000000..35864015
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/In/4_1.pl
@@ -0,0 +1,874 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V860
+0
+578
+592
+880
+884
+886
+890
+891
+894
+895
+900
+907
+908
+909
+910
+930
+931
+975
+976
+1159
+1160
+1231
+1232
+1274
+1280
+1296
+1329
+1367
+1369
+1376
+1377
+1416
+1417
+1419
+1425
+1466
+1467
+1480
+1488
+1515
+1520
+1525
+1536
+1540
+1547
+1558
+1563
+1564
+1566
+1568
+1569
+1595
+1600
+1631
+1632
+1806
+1807
+1867
+1869
+1902
+1920
+1970
+2305
+2362
+2364
+2382
+2384
+2389
+2392
+2417
+2429
+2430
+2433
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2501
+2503
+2505
+2507
+2511
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2555
+2561
+2564
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2649
+2653
+2654
+2655
+2662
+2677
+2689
+2692
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2788
+2790
+2800
+2801
+2802
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2876
+2884
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2914
+2918
+2930
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3031
+3032
+3046
+3067
+3073
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3124
+3125
+3130
+3134
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3168
+3170
+3174
+3184
+3202
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3260
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3298
+3302
+3312
+3330
+3332
+3333
+3341
+3342
+3345
+3346
+3369
+3370
+3386
+3390
+3396
+3398
+3401
+3402
+3406
+3415
+3416
+3424
+3426
+3430
+3440
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3570
+3573
+3585
+3643
+3647
+3676
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3792
+3802
+3804
+3806
+3840
+3912
+3913
+3947
+3953
+3980
+3984
+3992
+3993
+4029
+4030
+4045
+4047
+4050
+4096
+4130
+4131
+4136
+4137
+4139
+4140
+4147
+4150
+4154
+4160
+4186
+4256
+4294
+4304
+4349
+4352
+4442
+4447
+4515
+4520
+4602
+4608
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4959
+4989
+4992
+5018
+5024
+5109
+5121
+5751
+5760
+5789
+5792
+5873
+5888
+5901
+5902
+5909
+5920
+5943
+5952
+5972
+5984
+5997
+5998
+6001
+6002
+6004
+6016
+6110
+6112
+6122
+6128
+6138
+6144
+6159
+6160
+6170
+6176
+6264
+6272
+6314
+6400
+6429
+6432
+6444
+6448
+6460
+6464
+6465
+6468
+6510
+6512
+6517
+6528
+6570
+6576
+6602
+6608
+6618
+6622
+6684
+6686
+6688
+7424
+7620
+7680
+7836
+7840
+7930
+7936
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8191
+8192
+8292
+8298
+8306
+8308
+8335
+8336
+8341
+8352
+8374
+8400
+8428
+8448
+8525
+8531
+8580
+8592
+9180
+9216
+9255
+9280
+9291
+9312
+9885
+9888
+9906
+9985
+9989
+9990
+9994
+9996
+10024
+10025
+10060
+10061
+10062
+10063
+10067
+10070
+10071
+10072
+10079
+10081
+10133
+10136
+10160
+10161
+10175
+10176
+10183
+10192
+10220
+10224
+11028
+11264
+11311
+11312
+11359
+11392
+11499
+11513
+11558
+11568
+11622
+11631
+11632
+11648
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11776
+11800
+11804
+11806
+11904
+11930
+11931
+12020
+12032
+12246
+12272
+12284
+12288
+12352
+12353
+12439
+12441
+12544
+12549
+12589
+12593
+12687
+12688
+12728
+12736
+12752
+12784
+12831
+12832
+12868
+12880
+13055
+13056
+19894
+19904
+40892
+40960
+42125
+42128
+42183
+42752
+42775
+43008
+43052
+44032
+55204
+55296
+64046
+64048
+64107
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64434
+64467
+64832
+64848
+64912
+64914
+64968
+64976
+65022
+65024
+65050
+65056
+65060
+65072
+65107
+65108
+65127
+65128
+65132
+65136
+65141
+65142
+65277
+65279
+65280
+65281
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+65529
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65792
+65795
+65799
+65844
+65847
+65931
+66304
+66335
+66336
+66340
+66352
+66379
+66432
+66462
+66463
+66500
+66504
+66518
+66560
+66718
+66720
+66730
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67648
+68096
+68100
+68101
+68103
+68108
+68116
+68117
+68120
+68121
+68148
+68152
+68155
+68159
+68168
+68176
+68185
+118784
+119030
+119040
+119079
+119082
+119262
+119296
+119366
+119552
+119639
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120778
+120782
+120832
+131070
+173783
+194560
+195102
+196606
+196608
+262142
+262144
+327678
+327680
+393214
+393216
+458750
+458752
+524286
+524288
+589822
+589824
+655358
+655360
+720894
+720896
+786430
+786432
+851966
+851968
+917502
+917504
+917505
+917506
+917536
+917632
+917760
+918000
+983038
+1114112
+END
diff --git a/lib/5.24.1/unicore/lib/In/5_0.pl b/lib/5.24.1/unicore/lib/In/5_0.pl
new file mode 100644
index 00000000..5e680b72
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/In/5_0.pl
@@ -0,0 +1,894 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V880
+0
+880
+884
+886
+890
+895
+900
+907
+908
+909
+910
+930
+931
+975
+976
+1159
+1160
+1300
+1329
+1367
+1369
+1376
+1377
+1416
+1417
+1419
+1425
+1480
+1488
+1515
+1520
+1525
+1536
+1540
+1547
+1558
+1563
+1564
+1566
+1568
+1569
+1595
+1600
+1631
+1632
+1806
+1807
+1867
+1869
+1902
+1920
+1970
+1984
+2043
+2305
+2362
+2364
+2382
+2384
+2389
+2392
+2417
+2427
+2432
+2433
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2501
+2503
+2505
+2507
+2511
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2555
+2561
+2564
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2649
+2653
+2654
+2655
+2662
+2677
+2689
+2692
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2788
+2790
+2800
+2801
+2802
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2876
+2884
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2914
+2918
+2930
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3031
+3032
+3046
+3067
+3073
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3124
+3125
+3130
+3134
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3168
+3170
+3174
+3184
+3202
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3260
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3300
+3302
+3312
+3313
+3315
+3330
+3332
+3333
+3341
+3342
+3345
+3346
+3369
+3370
+3386
+3390
+3396
+3398
+3401
+3402
+3406
+3415
+3416
+3424
+3426
+3430
+3440
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3570
+3573
+3585
+3643
+3647
+3676
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3792
+3802
+3804
+3806
+3840
+3912
+3913
+3947
+3953
+3980
+3984
+3992
+3993
+4029
+4030
+4045
+4047
+4050
+4096
+4130
+4131
+4136
+4137
+4139
+4140
+4147
+4150
+4154
+4160
+4186
+4256
+4294
+4304
+4349
+4352
+4442
+4447
+4515
+4520
+4602
+4608
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4959
+4989
+4992
+5018
+5024
+5109
+5121
+5751
+5760
+5789
+5792
+5873
+5888
+5901
+5902
+5909
+5920
+5943
+5952
+5972
+5984
+5997
+5998
+6001
+6002
+6004
+6016
+6110
+6112
+6122
+6128
+6138
+6144
+6159
+6160
+6170
+6176
+6264
+6272
+6314
+6400
+6429
+6432
+6444
+6448
+6460
+6464
+6465
+6468
+6510
+6512
+6517
+6528
+6570
+6576
+6602
+6608
+6618
+6622
+6684
+6686
+6688
+6912
+6988
+6992
+7037
+7424
+7627
+7678
+7836
+7840
+7930
+7936
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8191
+8192
+8292
+8298
+8306
+8308
+8335
+8336
+8341
+8352
+8374
+8400
+8432
+8448
+8527
+8531
+8581
+8592
+9192
+9216
+9255
+9280
+9291
+9312
+9885
+9888
+9907
+9985
+9989
+9990
+9994
+9996
+10024
+10025
+10060
+10061
+10062
+10063
+10067
+10070
+10071
+10072
+10079
+10081
+10133
+10136
+10160
+10161
+10175
+10176
+10187
+10192
+10220
+10224
+11035
+11040
+11044
+11264
+11311
+11312
+11359
+11360
+11373
+11380
+11384
+11392
+11499
+11513
+11558
+11568
+11622
+11631
+11632
+11648
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11776
+11800
+11804
+11806
+11904
+11930
+11931
+12020
+12032
+12246
+12272
+12284
+12288
+12352
+12353
+12439
+12441
+12544
+12549
+12589
+12593
+12687
+12688
+12728
+12736
+12752
+12784
+12831
+12832
+12868
+12880
+13055
+13056
+19894
+19904
+40892
+40960
+42125
+42128
+42183
+42752
+42779
+42784
+42786
+43008
+43052
+43072
+43128
+44032
+55204
+55296
+64046
+64048
+64107
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64434
+64467
+64832
+64848
+64912
+64914
+64968
+64976
+65022
+65024
+65050
+65056
+65060
+65072
+65107
+65108
+65127
+65128
+65132
+65136
+65141
+65142
+65277
+65279
+65280
+65281
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+65529
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65792
+65795
+65799
+65844
+65847
+65931
+66304
+66335
+66336
+66340
+66352
+66379
+66432
+66462
+66463
+66500
+66504
+66518
+66560
+66718
+66720
+66730
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67648
+67840
+67866
+67871
+67872
+68096
+68100
+68101
+68103
+68108
+68116
+68117
+68120
+68121
+68148
+68152
+68155
+68159
+68168
+68176
+68185
+73728
+74607
+74752
+74851
+74864
+74868
+118784
+119030
+119040
+119079
+119082
+119262
+119296
+119366
+119552
+119639
+119648
+119666
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120780
+120782
+120832
+131070
+173783
+194560
+195102
+196606
+196608
+262142
+262144
+327678
+327680
+393214
+393216
+458750
+458752
+524286
+524288
+589822
+589824
+655358
+655360
+720894
+720896
+786430
+786432
+851966
+851968
+917502
+917504
+917505
+917506
+917536
+917632
+917760
+918000
+983038
+1114112
+END
diff --git a/lib/5.24.1/unicore/lib/In/5_1.pl b/lib/5.24.1/unicore/lib/In/5_1.pl
new file mode 100644
index 00000000..cb1e073b
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/In/5_1.pl
@@ -0,0 +1,924 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V910
+0
+888
+890
+895
+900
+907
+908
+909
+910
+930
+931
+1316
+1329
+1367
+1369
+1376
+1377
+1416
+1417
+1419
+1425
+1480
+1488
+1515
+1520
+1525
+1536
+1540
+1542
+1564
+1566
+1568
+1569
+1631
+1632
+1806
+1807
+1867
+1869
+1970
+1984
+2043
+2305
+2362
+2364
+2382
+2384
+2389
+2392
+2419
+2427
+2432
+2433
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2501
+2503
+2505
+2507
+2511
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2555
+2561
+2564
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2649
+2653
+2654
+2655
+2662
+2678
+2689
+2692
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2788
+2790
+2800
+2801
+2802
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2876
+2885
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2916
+2918
+2930
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3024
+3025
+3031
+3032
+3046
+3067
+3073
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3124
+3125
+3130
+3133
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3160
+3162
+3168
+3172
+3174
+3184
+3192
+3200
+3202
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3260
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3300
+3302
+3312
+3313
+3315
+3330
+3332
+3333
+3341
+3342
+3345
+3346
+3369
+3370
+3386
+3389
+3397
+3398
+3401
+3402
+3406
+3415
+3416
+3424
+3428
+3430
+3446
+3449
+3456
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3570
+3573
+3585
+3643
+3647
+3676
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3792
+3802
+3804
+3806
+3840
+3912
+3913
+3949
+3953
+3980
+3984
+3992
+3993
+4029
+4030
+4045
+4046
+4053
+4096
+4250
+4254
+4294
+4304
+4349
+4352
+4442
+4447
+4515
+4520
+4602
+4608
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4959
+4989
+4992
+5018
+5024
+5109
+5121
+5751
+5760
+5789
+5792
+5873
+5888
+5901
+5902
+5909
+5920
+5943
+5952
+5972
+5984
+5997
+5998
+6001
+6002
+6004
+6016
+6110
+6112
+6122
+6128
+6138
+6144
+6159
+6160
+6170
+6176
+6264
+6272
+6315
+6400
+6429
+6432
+6444
+6448
+6460
+6464
+6465
+6468
+6510
+6512
+6517
+6528
+6570
+6576
+6602
+6608
+6618
+6622
+6684
+6686
+6688
+6912
+6988
+6992
+7037
+7040
+7083
+7086
+7098
+7168
+7224
+7227
+7242
+7245
+7296
+7424
+7655
+7678
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8191
+8192
+8293
+8298
+8306
+8308
+8335
+8336
+8341
+8352
+8374
+8400
+8433
+8448
+8528
+8531
+8585
+8592
+9192
+9216
+9255
+9280
+9291
+9312
+9886
+9888
+9917
+9920
+9924
+9985
+9989
+9990
+9994
+9996
+10024
+10025
+10060
+10061
+10062
+10063
+10067
+10070
+10071
+10072
+10079
+10081
+10133
+10136
+10160
+10161
+10175
+10176
+10187
+10188
+10189
+10192
+11085
+11088
+11093
+11264
+11311
+11312
+11359
+11360
+11376
+11377
+11390
+11392
+11499
+11513
+11558
+11568
+11622
+11631
+11632
+11648
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11744
+11825
+11904
+11930
+11931
+12020
+12032
+12246
+12272
+12284
+12288
+12352
+12353
+12439
+12441
+12544
+12549
+12590
+12593
+12687
+12688
+12728
+12736
+12772
+12784
+12831
+12832
+12868
+12880
+13055
+13056
+19894
+19904
+40900
+40960
+42125
+42128
+42183
+42240
+42540
+42560
+42592
+42594
+42612
+42620
+42648
+42752
+42893
+43003
+43052
+43072
+43128
+43136
+43205
+43214
+43226
+43264
+43348
+43359
+43360
+43520
+43575
+43584
+43598
+43600
+43610
+43612
+43616
+44032
+55204
+55296
+64046
+64048
+64107
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64434
+64467
+64832
+64848
+64912
+64914
+64968
+64976
+65022
+65024
+65050
+65056
+65063
+65072
+65107
+65108
+65127
+65128
+65132
+65136
+65141
+65142
+65277
+65279
+65280
+65281
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+65529
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65792
+65795
+65799
+65844
+65847
+65931
+65936
+65948
+66000
+66046
+66176
+66205
+66208
+66257
+66304
+66335
+66336
+66340
+66352
+66379
+66432
+66462
+66463
+66500
+66504
+66518
+66560
+66718
+66720
+66730
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67648
+67840
+67866
+67871
+67898
+67903
+67904
+68096
+68100
+68101
+68103
+68108
+68116
+68117
+68120
+68121
+68148
+68152
+68155
+68159
+68168
+68176
+68185
+73728
+74607
+74752
+74851
+74864
+74868
+118784
+119030
+119040
+119079
+119081
+119262
+119296
+119366
+119552
+119639
+119648
+119666
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120780
+120782
+120832
+126976
+127020
+127024
+127124
+131070
+173783
+194560
+195102
+196606
+196608
+262142
+262144
+327678
+327680
+393214
+393216
+458750
+458752
+524286
+524288
+589822
+589824
+655358
+655360
+720894
+720896
+786430
+786432
+851966
+851968
+917502
+917504
+917505
+917506
+917536
+917632
+917760
+918000
+983038
+1114112
+END
diff --git a/lib/5.24.1/unicore/lib/In/5_2.pl b/lib/5.24.1/unicore/lib/In/5_2.pl
new file mode 100644
index 00000000..73d59594
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/In/5_2.pl
@@ -0,0 +1,1004 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V990
+0
+888
+890
+895
+900
+907
+908
+909
+910
+930
+931
+1318
+1329
+1367
+1369
+1376
+1377
+1416
+1417
+1419
+1425
+1480
+1488
+1515
+1520
+1525
+1536
+1540
+1542
+1564
+1566
+1568
+1569
+1631
+1632
+1806
+1807
+1867
+1869
+1970
+1984
+2043
+2048
+2094
+2096
+2111
+2304
+2362
+2364
+2383
+2384
+2390
+2392
+2419
+2425
+2432
+2433
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2501
+2503
+2505
+2507
+2511
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2556
+2561
+2564
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2649
+2653
+2654
+2655
+2662
+2678
+2689
+2692
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2788
+2790
+2800
+2801
+2802
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2876
+2885
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2916
+2918
+2930
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3024
+3025
+3031
+3032
+3046
+3067
+3073
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3124
+3125
+3130
+3133
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3160
+3162
+3168
+3172
+3174
+3184
+3192
+3200
+3202
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3260
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3300
+3302
+3312
+3313
+3315
+3330
+3332
+3333
+3341
+3342
+3345
+3346
+3369
+3370
+3386
+3389
+3397
+3398
+3401
+3402
+3406
+3415
+3416
+3424
+3428
+3430
+3446
+3449
+3456
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3570
+3573
+3585
+3643
+3647
+3676
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3792
+3802
+3804
+3806
+3840
+3912
+3913
+3949
+3953
+3980
+3984
+3992
+3993
+4029
+4030
+4045
+4046
+4057
+4096
+4294
+4304
+4349
+4352
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4959
+4989
+4992
+5018
+5024
+5109
+5120
+5789
+5792
+5873
+5888
+5901
+5902
+5909
+5920
+5943
+5952
+5972
+5984
+5997
+5998
+6001
+6002
+6004
+6016
+6110
+6112
+6122
+6128
+6138
+6144
+6159
+6160
+6170
+6176
+6264
+6272
+6315
+6320
+6390
+6400
+6429
+6432
+6444
+6448
+6460
+6464
+6465
+6468
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6608
+6619
+6622
+6684
+6686
+6751
+6752
+6781
+6783
+6794
+6800
+6810
+6816
+6830
+6912
+6988
+6992
+7037
+7040
+7083
+7086
+7098
+7168
+7224
+7227
+7242
+7245
+7296
+7376
+7411
+7424
+7655
+7677
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8191
+8192
+8293
+8298
+8306
+8308
+8335
+8336
+8341
+8352
+8377
+8400
+8433
+8448
+8586
+8592
+9193
+9216
+9255
+9280
+9291
+9312
+9934
+9935
+9954
+9955
+9956
+9960
+9984
+9985
+9989
+9990
+9994
+9996
+10024
+10025
+10060
+10061
+10062
+10063
+10067
+10070
+10079
+10081
+10133
+10136
+10160
+10161
+10175
+10176
+10187
+10188
+10189
+10192
+11085
+11088
+11098
+11264
+11311
+11312
+11359
+11360
+11506
+11513
+11558
+11568
+11622
+11631
+11632
+11648
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11744
+11826
+11904
+11930
+11931
+12020
+12032
+12246
+12272
+12284
+12288
+12352
+12353
+12439
+12441
+12544
+12549
+12590
+12593
+12687
+12688
+12728
+12736
+12772
+12784
+12831
+12832
+13055
+13056
+19894
+19904
+40908
+40960
+42125
+42128
+42183
+42192
+42540
+42560
+42592
+42594
+42612
+42620
+42648
+42656
+42744
+42752
+42893
+43003
+43052
+43056
+43066
+43072
+43128
+43136
+43205
+43214
+43226
+43232
+43260
+43264
+43348
+43359
+43389
+43392
+43470
+43471
+43482
+43486
+43488
+43520
+43575
+43584
+43598
+43600
+43610
+43612
+43644
+43648
+43715
+43739
+43744
+43968
+44014
+44016
+44026
+44032
+55204
+55216
+55239
+55243
+55292
+55296
+64046
+64048
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64434
+64467
+64832
+64848
+64912
+64914
+64968
+64976
+65022
+65024
+65050
+65056
+65063
+65072
+65107
+65108
+65127
+65128
+65132
+65136
+65141
+65142
+65277
+65279
+65280
+65281
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+65529
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65792
+65795
+65799
+65844
+65847
+65931
+65936
+65948
+66000
+66046
+66176
+66205
+66208
+66257
+66304
+66335
+66336
+66340
+66352
+66379
+66432
+66462
+66463
+66500
+66504
+66518
+66560
+66718
+66720
+66730
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67671
+67680
+67840
+67868
+67871
+67898
+67903
+67904
+68096
+68100
+68101
+68103
+68108
+68116
+68117
+68120
+68121
+68148
+68152
+68155
+68159
+68168
+68176
+68185
+68192
+68224
+68352
+68406
+68409
+68438
+68440
+68467
+68472
+68480
+68608
+68681
+69216
+69247
+69760
+69826
+73728
+74607
+74752
+74851
+74864
+74868
+77824
+78895
+118784
+119030
+119040
+119079
+119081
+119262
+119296
+119366
+119552
+119639
+119648
+119666
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120780
+120782
+120832
+126976
+127020
+127024
+127124
+127232
+127243
+127248
+127279
+127281
+127282
+127293
+127294
+127295
+127296
+127298
+127299
+127302
+127303
+127306
+127311
+127319
+127320
+127327
+127328
+127353
+127354
+127355
+127357
+127359
+127360
+127370
+127374
+127376
+127377
+127488
+127489
+127504
+127538
+127552
+127561
+131070
+173783
+173824
+177973
+194560
+195102
+196606
+196608
+262142
+262144
+327678
+327680
+393214
+393216
+458750
+458752
+524286
+524288
+589822
+589824
+655358
+655360
+720894
+720896
+786430
+786432
+851966
+851968
+917502
+917504
+917505
+917506
+917536
+917632
+917760
+918000
+983038
+1114112
+END
diff --git a/lib/5.24.1/unicore/lib/In/6_0.pl b/lib/5.24.1/unicore/lib/In/6_0.pl
new file mode 100644
index 00000000..2313b76e
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/In/6_0.pl
@@ -0,0 +1,1036 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1022
+0
+888
+890
+895
+900
+907
+908
+909
+910
+930
+931
+1320
+1329
+1367
+1369
+1376
+1377
+1416
+1417
+1419
+1425
+1480
+1488
+1515
+1520
+1525
+1536
+1540
+1542
+1564
+1566
+1806
+1807
+1867
+1869
+1970
+1984
+2043
+2048
+2094
+2096
+2111
+2112
+2140
+2142
+2143
+2304
+2424
+2425
+2432
+2433
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2501
+2503
+2505
+2507
+2511
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2556
+2561
+2564
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2649
+2653
+2654
+2655
+2662
+2678
+2689
+2692
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2788
+2790
+2800
+2801
+2802
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2876
+2885
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2916
+2918
+2936
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3024
+3025
+3031
+3032
+3046
+3067
+3073
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3124
+3125
+3130
+3133
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3160
+3162
+3168
+3172
+3174
+3184
+3192
+3200
+3202
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3260
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3300
+3302
+3312
+3313
+3315
+3330
+3332
+3333
+3341
+3342
+3345
+3346
+3387
+3389
+3397
+3398
+3401
+3402
+3407
+3415
+3416
+3424
+3428
+3430
+3446
+3449
+3456
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3570
+3573
+3585
+3643
+3647
+3676
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3792
+3802
+3804
+3806
+3840
+3912
+3913
+3949
+3953
+3992
+3993
+4029
+4030
+4045
+4046
+4059
+4096
+4294
+4304
+4349
+4352
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4957
+4989
+4992
+5018
+5024
+5109
+5120
+5789
+5792
+5873
+5888
+5901
+5902
+5909
+5920
+5943
+5952
+5972
+5984
+5997
+5998
+6001
+6002
+6004
+6016
+6110
+6112
+6122
+6128
+6138
+6144
+6159
+6160
+6170
+6176
+6264
+6272
+6315
+6320
+6390
+6400
+6429
+6432
+6444
+6448
+6460
+6464
+6465
+6468
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6608
+6619
+6622
+6684
+6686
+6751
+6752
+6781
+6783
+6794
+6800
+6810
+6816
+6830
+6912
+6988
+6992
+7037
+7040
+7083
+7086
+7098
+7104
+7156
+7164
+7224
+7227
+7242
+7245
+7296
+7376
+7411
+7424
+7655
+7676
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8191
+8192
+8293
+8298
+8306
+8308
+8335
+8336
+8349
+8352
+8378
+8400
+8433
+8448
+8586
+8592
+9204
+9216
+9255
+9280
+9291
+9312
+9984
+9985
+10187
+10188
+10189
+10190
+11085
+11088
+11098
+11264
+11311
+11312
+11359
+11360
+11506
+11513
+11558
+11568
+11622
+11631
+11633
+11647
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11744
+11826
+11904
+11930
+11931
+12020
+12032
+12246
+12272
+12284
+12288
+12352
+12353
+12439
+12441
+12544
+12549
+12590
+12593
+12687
+12688
+12731
+12736
+12772
+12784
+12831
+12832
+13055
+13056
+19894
+19904
+40908
+40960
+42125
+42128
+42183
+42192
+42540
+42560
+42612
+42620
+42648
+42656
+42744
+42752
+42895
+42896
+42898
+42912
+42922
+43002
+43052
+43056
+43066
+43072
+43128
+43136
+43205
+43214
+43226
+43232
+43260
+43264
+43348
+43359
+43389
+43392
+43470
+43471
+43482
+43486
+43488
+43520
+43575
+43584
+43598
+43600
+43610
+43612
+43644
+43648
+43715
+43739
+43744
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43968
+44014
+44016
+44026
+44032
+55204
+55216
+55239
+55243
+55292
+55296
+64046
+64048
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64450
+64467
+64832
+64848
+64912
+64914
+64968
+64976
+65022
+65024
+65050
+65056
+65063
+65072
+65107
+65108
+65127
+65128
+65132
+65136
+65141
+65142
+65277
+65279
+65280
+65281
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+65529
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65792
+65795
+65799
+65844
+65847
+65931
+65936
+65948
+66000
+66046
+66176
+66205
+66208
+66257
+66304
+66335
+66336
+66340
+66352
+66379
+66432
+66462
+66463
+66500
+66504
+66518
+66560
+66718
+66720
+66730
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67671
+67680
+67840
+67868
+67871
+67898
+67903
+67904
+68096
+68100
+68101
+68103
+68108
+68116
+68117
+68120
+68121
+68148
+68152
+68155
+68159
+68168
+68176
+68185
+68192
+68224
+68352
+68406
+68409
+68438
+68440
+68467
+68472
+68480
+68608
+68681
+69216
+69247
+69632
+69710
+69714
+69744
+69760
+69826
+73728
+74607
+74752
+74851
+74864
+74868
+77824
+78895
+92160
+92729
+110592
+110594
+118784
+119030
+119040
+119079
+119081
+119262
+119296
+119366
+119552
+119639
+119648
+119666
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120780
+120782
+120832
+126976
+127020
+127024
+127124
+127136
+127151
+127153
+127167
+127169
+127184
+127185
+127200
+127232
+127243
+127248
+127279
+127280
+127338
+127344
+127387
+127462
+127491
+127504
+127547
+127552
+127561
+127568
+127570
+127744
+127777
+127792
+127798
+127799
+127869
+127872
+127892
+127904
+127941
+127942
+127947
+127968
+127985
+128000
+128063
+128064
+128065
+128066
+128248
+128249
+128253
+128256
+128318
+128336
+128360
+128507
+128512
+128513
+128529
+128530
+128533
+128534
+128535
+128536
+128537
+128538
+128539
+128540
+128543
+128544
+128550
+128552
+128556
+128557
+128558
+128560
+128564
+128565
+128577
+128581
+128592
+128640
+128710
+128768
+128884
+131070
+173783
+173824
+177973
+177984
+178206
+194560
+195102
+196606
+196608
+262142
+262144
+327678
+327680
+393214
+393216
+458750
+458752
+524286
+524288
+589822
+589824
+655358
+655360
+720894
+720896
+786430
+786432
+851966
+851968
+917502
+917504
+917505
+917506
+917536
+917632
+917760
+918000
+983038
+1114112
+END
diff --git a/lib/5.24.1/unicore/lib/In/6_1.pl b/lib/5.24.1/unicore/lib/In/6_1.pl
new file mode 100644
index 00000000..fa919af4
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/In/6_1.pl
@@ -0,0 +1,1112 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1098
+0
+888
+890
+895
+900
+907
+908
+909
+910
+930
+931
+1320
+1329
+1367
+1369
+1376
+1377
+1416
+1417
+1419
+1423
+1424
+1425
+1480
+1488
+1515
+1520
+1525
+1536
+1541
+1542
+1564
+1566
+1806
+1807
+1867
+1869
+1970
+1984
+2043
+2048
+2094
+2096
+2111
+2112
+2140
+2142
+2143
+2208
+2209
+2210
+2221
+2276
+2303
+2304
+2424
+2425
+2432
+2433
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2501
+2503
+2505
+2507
+2511
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2556
+2561
+2564
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2649
+2653
+2654
+2655
+2662
+2678
+2689
+2692
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2788
+2790
+2802
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2876
+2885
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2916
+2918
+2936
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3024
+3025
+3031
+3032
+3046
+3067
+3073
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3124
+3125
+3130
+3133
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3160
+3162
+3168
+3172
+3174
+3184
+3192
+3200
+3202
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3260
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3300
+3302
+3312
+3313
+3315
+3330
+3332
+3333
+3341
+3342
+3345
+3346
+3387
+3389
+3397
+3398
+3401
+3402
+3407
+3415
+3416
+3424
+3428
+3430
+3446
+3449
+3456
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3570
+3573
+3585
+3643
+3647
+3676
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3792
+3802
+3804
+3808
+3840
+3912
+3913
+3949
+3953
+3992
+3993
+4029
+4030
+4045
+4046
+4059
+4096
+4294
+4295
+4296
+4301
+4302
+4304
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4957
+4989
+4992
+5018
+5024
+5109
+5120
+5789
+5792
+5873
+5888
+5901
+5902
+5909
+5920
+5943
+5952
+5972
+5984
+5997
+5998
+6001
+6002
+6004
+6016
+6110
+6112
+6122
+6128
+6138
+6144
+6159
+6160
+6170
+6176
+6264
+6272
+6315
+6320
+6390
+6400
+6429
+6432
+6444
+6448
+6460
+6464
+6465
+6468
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6608
+6619
+6622
+6684
+6686
+6751
+6752
+6781
+6783
+6794
+6800
+6810
+6816
+6830
+6912
+6988
+6992
+7037
+7040
+7156
+7164
+7224
+7227
+7242
+7245
+7296
+7360
+7368
+7376
+7415
+7424
+7655
+7676
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8191
+8192
+8293
+8298
+8306
+8308
+8335
+8336
+8349
+8352
+8378
+8400
+8433
+8448
+8586
+8592
+9204
+9216
+9255
+9280
+9291
+9312
+9984
+9985
+11085
+11088
+11098
+11264
+11311
+11312
+11359
+11360
+11508
+11513
+11558
+11559
+11560
+11565
+11566
+11568
+11624
+11631
+11633
+11647
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11744
+11836
+11904
+11930
+11931
+12020
+12032
+12246
+12272
+12284
+12288
+12352
+12353
+12439
+12441
+12544
+12549
+12590
+12593
+12687
+12688
+12731
+12736
+12772
+12784
+12831
+12832
+13055
+13056
+19894
+19904
+40909
+40960
+42125
+42128
+42183
+42192
+42540
+42560
+42648
+42655
+42744
+42752
+42895
+42896
+42900
+42912
+42923
+43000
+43052
+43056
+43066
+43072
+43128
+43136
+43205
+43214
+43226
+43232
+43260
+43264
+43348
+43359
+43389
+43392
+43470
+43471
+43482
+43486
+43488
+43520
+43575
+43584
+43598
+43600
+43610
+43612
+43644
+43648
+43715
+43739
+43767
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43968
+44014
+44016
+44026
+44032
+55204
+55216
+55239
+55243
+55292
+55296
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64450
+64467
+64832
+64848
+64912
+64914
+64968
+64976
+65022
+65024
+65050
+65056
+65063
+65072
+65107
+65108
+65127
+65128
+65132
+65136
+65141
+65142
+65277
+65279
+65280
+65281
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+65529
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65792
+65795
+65799
+65844
+65847
+65931
+65936
+65948
+66000
+66046
+66176
+66205
+66208
+66257
+66304
+66335
+66336
+66340
+66352
+66379
+66432
+66462
+66463
+66500
+66504
+66518
+66560
+66718
+66720
+66730
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67671
+67680
+67840
+67868
+67871
+67898
+67903
+67904
+67968
+68024
+68030
+68032
+68096
+68100
+68101
+68103
+68108
+68116
+68117
+68120
+68121
+68148
+68152
+68155
+68159
+68168
+68176
+68185
+68192
+68224
+68352
+68406
+68409
+68438
+68440
+68467
+68472
+68480
+68608
+68681
+69216
+69247
+69632
+69710
+69714
+69744
+69760
+69826
+69840
+69865
+69872
+69882
+69888
+69941
+69942
+69956
+70016
+70089
+70096
+70106
+71296
+71352
+71360
+71370
+73728
+74607
+74752
+74851
+74864
+74868
+77824
+78895
+92160
+92729
+93952
+94021
+94032
+94079
+94095
+94112
+110592
+110594
+118784
+119030
+119040
+119079
+119081
+119262
+119296
+119366
+119552
+119639
+119648
+119666
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120780
+120782
+120832
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+126704
+126706
+126976
+127020
+127024
+127124
+127136
+127151
+127153
+127167
+127169
+127184
+127185
+127200
+127232
+127243
+127248
+127279
+127280
+127340
+127344
+127387
+127462
+127491
+127504
+127547
+127552
+127561
+127568
+127570
+127744
+127777
+127792
+127798
+127799
+127869
+127872
+127892
+127904
+127941
+127942
+127947
+127968
+127985
+128000
+128063
+128064
+128065
+128066
+128248
+128249
+128253
+128256
+128318
+128320
+128324
+128336
+128360
+128507
+128577
+128581
+128592
+128640
+128710
+128768
+128884
+131070
+173783
+173824
+177973
+177984
+178206
+194560
+195102
+196606
+196608
+262142
+262144
+327678
+327680
+393214
+393216
+458750
+458752
+524286
+524288
+589822
+589824
+655358
+655360
+720894
+720896
+786430
+786432
+851966
+851968
+917502
+917504
+917505
+917506
+917536
+917632
+917760
+918000
+983038
+1114112
+END
diff --git a/lib/5.24.1/unicore/lib/In/6_2.pl b/lib/5.24.1/unicore/lib/In/6_2.pl
new file mode 100644
index 00000000..b285501f
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/In/6_2.pl
@@ -0,0 +1,1112 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1098
+0
+888
+890
+895
+900
+907
+908
+909
+910
+930
+931
+1320
+1329
+1367
+1369
+1376
+1377
+1416
+1417
+1419
+1423
+1424
+1425
+1480
+1488
+1515
+1520
+1525
+1536
+1541
+1542
+1564
+1566
+1806
+1807
+1867
+1869
+1970
+1984
+2043
+2048
+2094
+2096
+2111
+2112
+2140
+2142
+2143
+2208
+2209
+2210
+2221
+2276
+2303
+2304
+2424
+2425
+2432
+2433
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2501
+2503
+2505
+2507
+2511
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2556
+2561
+2564
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2649
+2653
+2654
+2655
+2662
+2678
+2689
+2692
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2788
+2790
+2802
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2876
+2885
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2916
+2918
+2936
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3024
+3025
+3031
+3032
+3046
+3067
+3073
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3124
+3125
+3130
+3133
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3160
+3162
+3168
+3172
+3174
+3184
+3192
+3200
+3202
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3260
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3300
+3302
+3312
+3313
+3315
+3330
+3332
+3333
+3341
+3342
+3345
+3346
+3387
+3389
+3397
+3398
+3401
+3402
+3407
+3415
+3416
+3424
+3428
+3430
+3446
+3449
+3456
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3570
+3573
+3585
+3643
+3647
+3676
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3792
+3802
+3804
+3808
+3840
+3912
+3913
+3949
+3953
+3992
+3993
+4029
+4030
+4045
+4046
+4059
+4096
+4294
+4295
+4296
+4301
+4302
+4304
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4957
+4989
+4992
+5018
+5024
+5109
+5120
+5789
+5792
+5873
+5888
+5901
+5902
+5909
+5920
+5943
+5952
+5972
+5984
+5997
+5998
+6001
+6002
+6004
+6016
+6110
+6112
+6122
+6128
+6138
+6144
+6159
+6160
+6170
+6176
+6264
+6272
+6315
+6320
+6390
+6400
+6429
+6432
+6444
+6448
+6460
+6464
+6465
+6468
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6608
+6619
+6622
+6684
+6686
+6751
+6752
+6781
+6783
+6794
+6800
+6810
+6816
+6830
+6912
+6988
+6992
+7037
+7040
+7156
+7164
+7224
+7227
+7242
+7245
+7296
+7360
+7368
+7376
+7415
+7424
+7655
+7676
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8191
+8192
+8293
+8298
+8306
+8308
+8335
+8336
+8349
+8352
+8379
+8400
+8433
+8448
+8586
+8592
+9204
+9216
+9255
+9280
+9291
+9312
+9984
+9985
+11085
+11088
+11098
+11264
+11311
+11312
+11359
+11360
+11508
+11513
+11558
+11559
+11560
+11565
+11566
+11568
+11624
+11631
+11633
+11647
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11744
+11836
+11904
+11930
+11931
+12020
+12032
+12246
+12272
+12284
+12288
+12352
+12353
+12439
+12441
+12544
+12549
+12590
+12593
+12687
+12688
+12731
+12736
+12772
+12784
+12831
+12832
+13055
+13056
+19894
+19904
+40909
+40960
+42125
+42128
+42183
+42192
+42540
+42560
+42648
+42655
+42744
+42752
+42895
+42896
+42900
+42912
+42923
+43000
+43052
+43056
+43066
+43072
+43128
+43136
+43205
+43214
+43226
+43232
+43260
+43264
+43348
+43359
+43389
+43392
+43470
+43471
+43482
+43486
+43488
+43520
+43575
+43584
+43598
+43600
+43610
+43612
+43644
+43648
+43715
+43739
+43767
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43968
+44014
+44016
+44026
+44032
+55204
+55216
+55239
+55243
+55292
+55296
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64450
+64467
+64832
+64848
+64912
+64914
+64968
+64976
+65022
+65024
+65050
+65056
+65063
+65072
+65107
+65108
+65127
+65128
+65132
+65136
+65141
+65142
+65277
+65279
+65280
+65281
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+65529
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65792
+65795
+65799
+65844
+65847
+65931
+65936
+65948
+66000
+66046
+66176
+66205
+66208
+66257
+66304
+66335
+66336
+66340
+66352
+66379
+66432
+66462
+66463
+66500
+66504
+66518
+66560
+66718
+66720
+66730
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67671
+67680
+67840
+67868
+67871
+67898
+67903
+67904
+67968
+68024
+68030
+68032
+68096
+68100
+68101
+68103
+68108
+68116
+68117
+68120
+68121
+68148
+68152
+68155
+68159
+68168
+68176
+68185
+68192
+68224
+68352
+68406
+68409
+68438
+68440
+68467
+68472
+68480
+68608
+68681
+69216
+69247
+69632
+69710
+69714
+69744
+69760
+69826
+69840
+69865
+69872
+69882
+69888
+69941
+69942
+69956
+70016
+70089
+70096
+70106
+71296
+71352
+71360
+71370
+73728
+74607
+74752
+74851
+74864
+74868
+77824
+78895
+92160
+92729
+93952
+94021
+94032
+94079
+94095
+94112
+110592
+110594
+118784
+119030
+119040
+119079
+119081
+119262
+119296
+119366
+119552
+119639
+119648
+119666
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120780
+120782
+120832
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+126704
+126706
+126976
+127020
+127024
+127124
+127136
+127151
+127153
+127167
+127169
+127184
+127185
+127200
+127232
+127243
+127248
+127279
+127280
+127340
+127344
+127387
+127462
+127491
+127504
+127547
+127552
+127561
+127568
+127570
+127744
+127777
+127792
+127798
+127799
+127869
+127872
+127892
+127904
+127941
+127942
+127947
+127968
+127985
+128000
+128063
+128064
+128065
+128066
+128248
+128249
+128253
+128256
+128318
+128320
+128324
+128336
+128360
+128507
+128577
+128581
+128592
+128640
+128710
+128768
+128884
+131070
+173783
+173824
+177973
+177984
+178206
+194560
+195102
+196606
+196608
+262142
+262144
+327678
+327680
+393214
+393216
+458750
+458752
+524286
+524288
+589822
+589824
+655358
+655360
+720894
+720896
+786430
+786432
+851966
+851968
+917502
+917504
+917505
+917506
+917536
+917632
+917760
+918000
+983038
+1114112
+END
diff --git a/lib/5.24.1/unicore/lib/In/6_3.pl b/lib/5.24.1/unicore/lib/In/6_3.pl
new file mode 100644
index 00000000..39f12548
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/In/6_3.pl
@@ -0,0 +1,1112 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1098
+0
+888
+890
+895
+900
+907
+908
+909
+910
+930
+931
+1320
+1329
+1367
+1369
+1376
+1377
+1416
+1417
+1419
+1423
+1424
+1425
+1480
+1488
+1515
+1520
+1525
+1536
+1541
+1542
+1565
+1566
+1806
+1807
+1867
+1869
+1970
+1984
+2043
+2048
+2094
+2096
+2111
+2112
+2140
+2142
+2143
+2208
+2209
+2210
+2221
+2276
+2303
+2304
+2424
+2425
+2432
+2433
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2501
+2503
+2505
+2507
+2511
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2556
+2561
+2564
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2649
+2653
+2654
+2655
+2662
+2678
+2689
+2692
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2788
+2790
+2802
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2876
+2885
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2916
+2918
+2936
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3024
+3025
+3031
+3032
+3046
+3067
+3073
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3124
+3125
+3130
+3133
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3160
+3162
+3168
+3172
+3174
+3184
+3192
+3200
+3202
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3260
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3300
+3302
+3312
+3313
+3315
+3330
+3332
+3333
+3341
+3342
+3345
+3346
+3387
+3389
+3397
+3398
+3401
+3402
+3407
+3415
+3416
+3424
+3428
+3430
+3446
+3449
+3456
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3570
+3573
+3585
+3643
+3647
+3676
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3792
+3802
+3804
+3808
+3840
+3912
+3913
+3949
+3953
+3992
+3993
+4029
+4030
+4045
+4046
+4059
+4096
+4294
+4295
+4296
+4301
+4302
+4304
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4957
+4989
+4992
+5018
+5024
+5109
+5120
+5789
+5792
+5873
+5888
+5901
+5902
+5909
+5920
+5943
+5952
+5972
+5984
+5997
+5998
+6001
+6002
+6004
+6016
+6110
+6112
+6122
+6128
+6138
+6144
+6159
+6160
+6170
+6176
+6264
+6272
+6315
+6320
+6390
+6400
+6429
+6432
+6444
+6448
+6460
+6464
+6465
+6468
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6608
+6619
+6622
+6684
+6686
+6751
+6752
+6781
+6783
+6794
+6800
+6810
+6816
+6830
+6912
+6988
+6992
+7037
+7040
+7156
+7164
+7224
+7227
+7242
+7245
+7296
+7360
+7368
+7376
+7415
+7424
+7655
+7676
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8191
+8192
+8293
+8294
+8306
+8308
+8335
+8336
+8349
+8352
+8379
+8400
+8433
+8448
+8586
+8592
+9204
+9216
+9255
+9280
+9291
+9312
+9984
+9985
+11085
+11088
+11098
+11264
+11311
+11312
+11359
+11360
+11508
+11513
+11558
+11559
+11560
+11565
+11566
+11568
+11624
+11631
+11633
+11647
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11744
+11836
+11904
+11930
+11931
+12020
+12032
+12246
+12272
+12284
+12288
+12352
+12353
+12439
+12441
+12544
+12549
+12590
+12593
+12687
+12688
+12731
+12736
+12772
+12784
+12831
+12832
+13055
+13056
+19894
+19904
+40909
+40960
+42125
+42128
+42183
+42192
+42540
+42560
+42648
+42655
+42744
+42752
+42895
+42896
+42900
+42912
+42923
+43000
+43052
+43056
+43066
+43072
+43128
+43136
+43205
+43214
+43226
+43232
+43260
+43264
+43348
+43359
+43389
+43392
+43470
+43471
+43482
+43486
+43488
+43520
+43575
+43584
+43598
+43600
+43610
+43612
+43644
+43648
+43715
+43739
+43767
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43968
+44014
+44016
+44026
+44032
+55204
+55216
+55239
+55243
+55292
+55296
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64450
+64467
+64832
+64848
+64912
+64914
+64968
+64976
+65022
+65024
+65050
+65056
+65063
+65072
+65107
+65108
+65127
+65128
+65132
+65136
+65141
+65142
+65277
+65279
+65280
+65281
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+65529
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65792
+65795
+65799
+65844
+65847
+65931
+65936
+65948
+66000
+66046
+66176
+66205
+66208
+66257
+66304
+66335
+66336
+66340
+66352
+66379
+66432
+66462
+66463
+66500
+66504
+66518
+66560
+66718
+66720
+66730
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67671
+67680
+67840
+67868
+67871
+67898
+67903
+67904
+67968
+68024
+68030
+68032
+68096
+68100
+68101
+68103
+68108
+68116
+68117
+68120
+68121
+68148
+68152
+68155
+68159
+68168
+68176
+68185
+68192
+68224
+68352
+68406
+68409
+68438
+68440
+68467
+68472
+68480
+68608
+68681
+69216
+69247
+69632
+69710
+69714
+69744
+69760
+69826
+69840
+69865
+69872
+69882
+69888
+69941
+69942
+69956
+70016
+70089
+70096
+70106
+71296
+71352
+71360
+71370
+73728
+74607
+74752
+74851
+74864
+74868
+77824
+78895
+92160
+92729
+93952
+94021
+94032
+94079
+94095
+94112
+110592
+110594
+118784
+119030
+119040
+119079
+119081
+119262
+119296
+119366
+119552
+119639
+119648
+119666
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120780
+120782
+120832
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+126704
+126706
+126976
+127020
+127024
+127124
+127136
+127151
+127153
+127167
+127169
+127184
+127185
+127200
+127232
+127243
+127248
+127279
+127280
+127340
+127344
+127387
+127462
+127491
+127504
+127547
+127552
+127561
+127568
+127570
+127744
+127777
+127792
+127798
+127799
+127869
+127872
+127892
+127904
+127941
+127942
+127947
+127968
+127985
+128000
+128063
+128064
+128065
+128066
+128248
+128249
+128253
+128256
+128318
+128320
+128324
+128336
+128360
+128507
+128577
+128581
+128592
+128640
+128710
+128768
+128884
+131070
+173783
+173824
+177973
+177984
+178206
+194560
+195102
+196606
+196608
+262142
+262144
+327678
+327680
+393214
+393216
+458750
+458752
+524286
+524288
+589822
+589824
+655358
+655360
+720894
+720896
+786430
+786432
+851966
+851968
+917502
+917504
+917505
+917506
+917536
+917632
+917760
+918000
+983038
+1114112
+END
diff --git a/lib/5.24.1/unicore/lib/In/7_0.pl b/lib/5.24.1/unicore/lib/In/7_0.pl
new file mode 100644
index 00000000..5028c434
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/In/7_0.pl
@@ -0,0 +1,1234 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1220
+0
+888
+890
+896
+900
+907
+908
+909
+910
+930
+931
+1328
+1329
+1367
+1369
+1376
+1377
+1416
+1417
+1419
+1421
+1424
+1425
+1480
+1488
+1515
+1520
+1525
+1536
+1565
+1566
+1806
+1807
+1867
+1869
+1970
+1984
+2043
+2048
+2094
+2096
+2111
+2112
+2140
+2142
+2143
+2208
+2227
+2276
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2501
+2503
+2505
+2507
+2511
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2556
+2561
+2564
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2649
+2653
+2654
+2655
+2662
+2678
+2689
+2692
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2788
+2790
+2802
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2876
+2885
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2916
+2918
+2936
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3024
+3025
+3031
+3032
+3046
+3067
+3072
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3130
+3133
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3160
+3162
+3168
+3172
+3174
+3184
+3192
+3200
+3201
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3260
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3300
+3302
+3312
+3313
+3315
+3329
+3332
+3333
+3341
+3342
+3345
+3346
+3387
+3389
+3397
+3398
+3401
+3402
+3407
+3415
+3416
+3424
+3428
+3430
+3446
+3449
+3456
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3558
+3568
+3570
+3573
+3585
+3643
+3647
+3676
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3792
+3802
+3804
+3808
+3840
+3912
+3913
+3949
+3953
+3992
+3993
+4029
+4030
+4045
+4046
+4059
+4096
+4294
+4295
+4296
+4301
+4302
+4304
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4957
+4989
+4992
+5018
+5024
+5109
+5120
+5789
+5792
+5881
+5888
+5901
+5902
+5909
+5920
+5943
+5952
+5972
+5984
+5997
+5998
+6001
+6002
+6004
+6016
+6110
+6112
+6122
+6128
+6138
+6144
+6159
+6160
+6170
+6176
+6264
+6272
+6315
+6320
+6390
+6400
+6431
+6432
+6444
+6448
+6460
+6464
+6465
+6468
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6608
+6619
+6622
+6684
+6686
+6751
+6752
+6781
+6783
+6794
+6800
+6810
+6816
+6830
+6832
+6847
+6912
+6988
+6992
+7037
+7040
+7156
+7164
+7224
+7227
+7242
+7245
+7296
+7360
+7368
+7376
+7415
+7416
+7418
+7424
+7670
+7676
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8191
+8192
+8293
+8294
+8306
+8308
+8335
+8336
+8349
+8352
+8382
+8400
+8433
+8448
+8586
+8592
+9211
+9216
+9255
+9280
+9291
+9312
+11124
+11126
+11158
+11160
+11194
+11197
+11209
+11210
+11218
+11264
+11311
+11312
+11359
+11360
+11508
+11513
+11558
+11559
+11560
+11565
+11566
+11568
+11624
+11631
+11633
+11647
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11744
+11843
+11904
+11930
+11931
+12020
+12032
+12246
+12272
+12284
+12288
+12352
+12353
+12439
+12441
+12544
+12549
+12590
+12593
+12687
+12688
+12731
+12736
+12772
+12784
+12831
+12832
+13055
+13056
+19894
+19904
+40909
+40960
+42125
+42128
+42183
+42192
+42540
+42560
+42654
+42655
+42744
+42752
+42895
+42896
+42926
+42928
+42930
+42999
+43052
+43056
+43066
+43072
+43128
+43136
+43205
+43214
+43226
+43232
+43260
+43264
+43348
+43359
+43389
+43392
+43470
+43471
+43482
+43486
+43519
+43520
+43575
+43584
+43598
+43600
+43610
+43612
+43715
+43739
+43767
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43824
+43872
+43876
+43878
+43968
+44014
+44016
+44026
+44032
+55204
+55216
+55239
+55243
+55292
+55296
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64450
+64467
+64832
+64848
+64912
+64914
+64968
+64976
+65022
+65024
+65050
+65056
+65070
+65072
+65107
+65108
+65127
+65128
+65132
+65136
+65141
+65142
+65277
+65279
+65280
+65281
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+65529
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65792
+65795
+65799
+65844
+65847
+65933
+65936
+65948
+65952
+65953
+66000
+66046
+66176
+66205
+66208
+66257
+66272
+66300
+66304
+66340
+66352
+66379
+66384
+66427
+66432
+66462
+66463
+66500
+66504
+66518
+66560
+66718
+66720
+66730
+66816
+66856
+66864
+66916
+66927
+66928
+67072
+67383
+67392
+67414
+67424
+67432
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67671
+67743
+67751
+67760
+67840
+67868
+67871
+67898
+67903
+67904
+67968
+68024
+68030
+68032
+68096
+68100
+68101
+68103
+68108
+68116
+68117
+68120
+68121
+68148
+68152
+68155
+68159
+68168
+68176
+68185
+68192
+68256
+68288
+68327
+68331
+68343
+68352
+68406
+68409
+68438
+68440
+68467
+68472
+68498
+68505
+68509
+68521
+68528
+68608
+68681
+69216
+69247
+69632
+69710
+69714
+69744
+69759
+69826
+69840
+69865
+69872
+69882
+69888
+69941
+69942
+69956
+69968
+70007
+70016
+70089
+70093
+70094
+70096
+70107
+70113
+70133
+70144
+70162
+70163
+70206
+70320
+70379
+70384
+70394
+70401
+70404
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70460
+70469
+70471
+70473
+70475
+70478
+70487
+70488
+70493
+70500
+70502
+70509
+70512
+70517
+70784
+70856
+70864
+70874
+71040
+71094
+71096
+71114
+71168
+71237
+71248
+71258
+71296
+71352
+71360
+71370
+71840
+71923
+71935
+71936
+72384
+72441
+73728
+74649
+74752
+74863
+74864
+74869
+77824
+78895
+92160
+92729
+92736
+92767
+92768
+92778
+92782
+92784
+92880
+92910
+92912
+92918
+92928
+92998
+93008
+93018
+93019
+93026
+93027
+93048
+93053
+93072
+93952
+94021
+94032
+94079
+94095
+94112
+110592
+110594
+113664
+113771
+113776
+113789
+113792
+113801
+113808
+113818
+113820
+113828
+118784
+119030
+119040
+119079
+119081
+119262
+119296
+119366
+119552
+119639
+119648
+119666
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120780
+120782
+120832
+124928
+125125
+125127
+125143
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+126704
+126706
+126976
+127020
+127024
+127124
+127136
+127151
+127153
+127168
+127169
+127184
+127185
+127222
+127232
+127245
+127248
+127279
+127280
+127340
+127344
+127387
+127462
+127491
+127504
+127547
+127552
+127561
+127568
+127570
+127744
+127789
+127792
+127870
+127872
+127951
+127956
+127992
+128000
+128255
+128256
+128331
+128336
+128378
+128379
+128420
+128421
+128579
+128581
+128720
+128736
+128749
+128752
+128756
+128768
+128884
+128896
+128981
+129024
+129036
+129040
+129096
+129104
+129114
+129120
+129160
+129168
+129198
+131070
+173783
+173824
+177973
+177984
+178206
+194560
+195102
+196606
+196608
+262142
+262144
+327678
+327680
+393214
+393216
+458750
+458752
+524286
+524288
+589822
+589824
+655358
+655360
+720894
+720896
+786430
+786432
+851966
+851968
+917502
+917504
+917505
+917506
+917536
+917632
+917760
+918000
+983038
+1114112
+END
diff --git a/lib/5.24.1/unicore/lib/In/8_0.pl b/lib/5.24.1/unicore/lib/In/8_0.pl
new file mode 100644
index 00000000..06200826
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/In/8_0.pl
@@ -0,0 +1,1260 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1246
+0
+888
+890
+896
+900
+907
+908
+909
+910
+930
+931
+1328
+1329
+1367
+1369
+1376
+1377
+1416
+1417
+1419
+1421
+1424
+1425
+1480
+1488
+1515
+1520
+1525
+1536
+1565
+1566
+1806
+1807
+1867
+1869
+1970
+1984
+2043
+2048
+2094
+2096
+2111
+2112
+2140
+2142
+2143
+2208
+2229
+2275
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2501
+2503
+2505
+2507
+2511
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2556
+2561
+2564
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2649
+2653
+2654
+2655
+2662
+2678
+2689
+2692
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2788
+2790
+2802
+2809
+2810
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2876
+2885
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2916
+2918
+2936
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3024
+3025
+3031
+3032
+3046
+3067
+3072
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3130
+3133
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3160
+3163
+3168
+3172
+3174
+3184
+3192
+3200
+3201
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3260
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3300
+3302
+3312
+3313
+3315
+3329
+3332
+3333
+3341
+3342
+3345
+3346
+3387
+3389
+3397
+3398
+3401
+3402
+3407
+3415
+3416
+3423
+3428
+3430
+3446
+3449
+3456
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3558
+3568
+3570
+3573
+3585
+3643
+3647
+3676
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3792
+3802
+3804
+3808
+3840
+3912
+3913
+3949
+3953
+3992
+3993
+4029
+4030
+4045
+4046
+4059
+4096
+4294
+4295
+4296
+4301
+4302
+4304
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4957
+4989
+4992
+5018
+5024
+5110
+5112
+5118
+5120
+5789
+5792
+5881
+5888
+5901
+5902
+5909
+5920
+5943
+5952
+5972
+5984
+5997
+5998
+6001
+6002
+6004
+6016
+6110
+6112
+6122
+6128
+6138
+6144
+6159
+6160
+6170
+6176
+6264
+6272
+6315
+6320
+6390
+6400
+6431
+6432
+6444
+6448
+6460
+6464
+6465
+6468
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6608
+6619
+6622
+6684
+6686
+6751
+6752
+6781
+6783
+6794
+6800
+6810
+6816
+6830
+6832
+6847
+6912
+6988
+6992
+7037
+7040
+7156
+7164
+7224
+7227
+7242
+7245
+7296
+7360
+7368
+7376
+7415
+7416
+7418
+7424
+7670
+7676
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8191
+8192
+8293
+8294
+8306
+8308
+8335
+8336
+8349
+8352
+8383
+8400
+8433
+8448
+8588
+8592
+9211
+9216
+9255
+9280
+9291
+9312
+11124
+11126
+11158
+11160
+11194
+11197
+11209
+11210
+11218
+11244
+11248
+11264
+11311
+11312
+11359
+11360
+11508
+11513
+11558
+11559
+11560
+11565
+11566
+11568
+11624
+11631
+11633
+11647
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11744
+11843
+11904
+11930
+11931
+12020
+12032
+12246
+12272
+12284
+12288
+12352
+12353
+12439
+12441
+12544
+12549
+12590
+12593
+12687
+12688
+12731
+12736
+12772
+12784
+12831
+12832
+13055
+13056
+19894
+19904
+40918
+40960
+42125
+42128
+42183
+42192
+42540
+42560
+42744
+42752
+42926
+42928
+42936
+42999
+43052
+43056
+43066
+43072
+43128
+43136
+43205
+43214
+43226
+43232
+43262
+43264
+43348
+43359
+43389
+43392
+43470
+43471
+43482
+43486
+43519
+43520
+43575
+43584
+43598
+43600
+43610
+43612
+43715
+43739
+43767
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43824
+43878
+43888
+44014
+44016
+44026
+44032
+55204
+55216
+55239
+55243
+55292
+55296
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64450
+64467
+64832
+64848
+64912
+64914
+64968
+64976
+65022
+65024
+65050
+65056
+65107
+65108
+65127
+65128
+65132
+65136
+65141
+65142
+65277
+65279
+65280
+65281
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+65529
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65792
+65795
+65799
+65844
+65847
+65933
+65936
+65948
+65952
+65953
+66000
+66046
+66176
+66205
+66208
+66257
+66272
+66300
+66304
+66340
+66352
+66379
+66384
+66427
+66432
+66462
+66463
+66500
+66504
+66518
+66560
+66718
+66720
+66730
+66816
+66856
+66864
+66916
+66927
+66928
+67072
+67383
+67392
+67414
+67424
+67432
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67671
+67743
+67751
+67760
+67808
+67827
+67828
+67830
+67835
+67868
+67871
+67898
+67903
+67904
+67968
+68024
+68028
+68048
+68050
+68100
+68101
+68103
+68108
+68116
+68117
+68120
+68121
+68148
+68152
+68155
+68159
+68168
+68176
+68185
+68192
+68256
+68288
+68327
+68331
+68343
+68352
+68406
+68409
+68438
+68440
+68467
+68472
+68498
+68505
+68509
+68521
+68528
+68608
+68681
+68736
+68787
+68800
+68851
+68858
+68864
+69216
+69247
+69632
+69710
+69714
+69744
+69759
+69826
+69840
+69865
+69872
+69882
+69888
+69941
+69942
+69956
+69968
+70007
+70016
+70094
+70096
+70112
+70113
+70133
+70144
+70162
+70163
+70206
+70272
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70314
+70320
+70379
+70384
+70394
+70400
+70404
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70460
+70469
+70471
+70473
+70475
+70478
+70480
+70481
+70487
+70488
+70493
+70500
+70502
+70509
+70512
+70517
+70784
+70856
+70864
+70874
+71040
+71094
+71096
+71134
+71168
+71237
+71248
+71258
+71296
+71352
+71360
+71370
+71424
+71450
+71453
+71468
+71472
+71488
+71840
+71923
+71935
+71936
+72384
+72441
+73728
+74650
+74752
+74863
+74864
+74869
+74880
+75076
+77824
+78895
+82944
+83527
+92160
+92729
+92736
+92767
+92768
+92778
+92782
+92784
+92880
+92910
+92912
+92918
+92928
+92998
+93008
+93018
+93019
+93026
+93027
+93048
+93053
+93072
+93952
+94021
+94032
+94079
+94095
+94112
+110592
+110594
+113664
+113771
+113776
+113789
+113792
+113801
+113808
+113818
+113820
+113828
+118784
+119030
+119040
+119079
+119081
+119273
+119296
+119366
+119552
+119639
+119648
+119666
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120780
+120782
+121484
+121499
+121504
+121505
+121520
+124928
+125125
+125127
+125143
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+126704
+126706
+126976
+127020
+127024
+127124
+127136
+127151
+127153
+127168
+127169
+127184
+127185
+127222
+127232
+127245
+127248
+127279
+127280
+127340
+127344
+127387
+127462
+127491
+127504
+127547
+127552
+127561
+127568
+127570
+127744
+128378
+128379
+128420
+128421
+128721
+128736
+128749
+128752
+128756
+128768
+128884
+128896
+128981
+129024
+129036
+129040
+129096
+129104
+129114
+129120
+129160
+129168
+129198
+129296
+129305
+129408
+129413
+129472
+129473
+131070
+173783
+173824
+177973
+177984
+178206
+178208
+183970
+194560
+195102
+196606
+196608
+262142
+262144
+327678
+327680
+393214
+393216
+458750
+458752
+524286
+524288
+589822
+589824
+655358
+655360
+720894
+720896
+786430
+786432
+851966
+851968
+917502
+917504
+917505
+917506
+917536
+917632
+917760
+918000
+983038
+1114112
+END
diff --git a/lib/5.24.1/unicore/lib/InPC/Bottom.pl b/lib/5.24.1/unicore/lib/InPC/Bottom.pl
new file mode 100644
index 00000000..0383d6c2
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/InPC/Bottom.pl
@@ -0,0 +1,240 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V226
+2364
+2365
+2369
+2373
+2381
+2382
+2386
+2387
+2390
+2392
+2402
+2404
+2492
+2493
+2497
+2501
+2509
+2510
+2530
+2532
+2620
+2621
+2625
+2627
+2637
+2638
+2677
+2678
+2748
+2749
+2753
+2757
+2765
+2766
+2786
+2788
+2876
+2877
+2881
+2885
+2893
+2894
+2914
+2916
+3158
+3159
+3170
+3172
+3260
+3261
+3298
+3300
+3395
+3397
+3426
+3428
+3540
+3541
+3542
+3543
+3640
+3643
+3768
+3770
+3772
+3773
+3864
+3866
+3893
+3894
+3895
+3896
+3953
+3954
+3956
+3958
+3972
+3973
+3981
+3992
+3993
+4029
+4038
+4039
+4143
+4145
+4151
+4152
+4157
+4159
+4184
+4186
+4190
+4193
+4226
+4227
+4237
+4238
+5907
+5909
+5939
+5941
+5971
+5972
+6003
+6004
+6075
+6078
+6434
+6435
+6450
+6451
+6457
+6458
+6459
+6460
+6680
+6681
+6742
+6743
+6747
+6751
+6761
+6763
+6764
+6765
+6783
+6784
+6968
+6971
+7020
+7021
+7074
+7076
+7077
+7078
+7084
+7086
+7212
+7213
+7223
+7224
+7381
+7386
+7388
+7392
+7405
+7406
+43045
+43046
+43204
+43205
+43307
+43310
+43335
+43338
+43339
+43343
+43448
+43450
+43565
+43566
+43570
+43571
+43573
+43575
+43700
+43701
+43756
+43757
+44008
+44009
+44013
+44014
+68098
+68100
+68108
+68111
+68153
+68155
+69692
+69698
+69811
+69813
+69817
+69819
+69930
+69932
+69937
+69939
+70003
+70004
+70070
+70076
+70092
+70093
+70191
+70192
+70371
+70373
+70377
+70379
+70835
+70841
+70850
+70852
+71090
+71094
+71103
+71105
+71132
+71134
+71219
+71225
+71231
+71232
+71344
+71346
+71351
+71352
+71453
+71454
+71460
+71462
+71464
+71465
+END
diff --git a/lib/5.24.1/unicore/lib/InPC/Left.pl b/lib/5.24.1/unicore/lib/InPC/Left.pl
new file mode 100644
index 00000000..4437c9a8
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/InPC/Left.pl
@@ -0,0 +1,90 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V76
+2367
+2368
+2382
+2383
+2495
+2496
+2503
+2505
+2623
+2624
+2751
+2752
+2887
+2888
+3014
+3017
+3398
+3401
+3545
+3546
+3547
+3548
+3903
+3904
+4145
+4146
+4228
+4229
+6081
+6084
+6681
+6682
+6741
+6742
+6766
+6771
+6974
+6976
+7078
+7079
+7207
+7209
+7220
+7222
+43450
+43452
+43567
+43569
+43572
+43573
+43755
+43756
+43758
+43759
+69809
+69810
+69932
+69933
+70068
+70069
+70369
+70370
+70471
+70473
+70833
+70834
+70841
+70842
+71088
+71089
+71096
+71097
+71342
+71343
+71462
+71463
+END
diff --git a/lib/5.24.1/unicore/lib/InPC/LeftAndR.pl b/lib/5.24.1/unicore/lib/InPC/LeftAndR.pl
new file mode 100644
index 00000000..a0ff24c9
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/InPC/LeftAndR.pl
@@ -0,0 +1,40 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V26
+2507
+2509
+2891
+2892
+3018
+3021
+3402
+3405
+3548
+3549
+3550
+3551
+6080
+6081
+6084
+6086
+6976
+6978
+70475
+70477
+70844
+70845
+70846
+70847
+71098
+71099
+END
diff --git a/lib/5.24.1/unicore/lib/InPC/NA.pl b/lib/5.24.1/unicore/lib/InPC/NA.pl
new file mode 100644
index 00000000..d1fd25cc
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/InPC/NA.pl
@@ -0,0 +1,357 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V343
+0
+2304
+2308
+2362
+2365
+2366
+2384
+2385
+2392
+2402
+2404
+2433
+2436
+2492
+2493
+2494
+2501
+2503
+2505
+2507
+2510
+2519
+2520
+2530
+2532
+2561
+2564
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2672
+2674
+2677
+2678
+2689
+2692
+2748
+2749
+2750
+2758
+2759
+2762
+2763
+2766
+2786
+2788
+2817
+2820
+2876
+2877
+2878
+2885
+2887
+2889
+2891
+2894
+2902
+2904
+2914
+2916
+2946
+2947
+3006
+3011
+3014
+3017
+3018
+3022
+3031
+3032
+3072
+3076
+3134
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3170
+3172
+3201
+3204
+3260
+3261
+3262
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3298
+3300
+3329
+3332
+3390
+3397
+3398
+3401
+3402
+3406
+3415
+3416
+3426
+3428
+3458
+3460
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3570
+3572
+3632
+3643
+3648
+3654
+3655
+3663
+3760
+3770
+3771
+3773
+3776
+3781
+3784
+3790
+3864
+3866
+3893
+3894
+3895
+3896
+3897
+3898
+3902
+3904
+3953
+3973
+3974
+3976
+3981
+3992
+3993
+4029
+4038
+4039
+4139
+4153
+4154
+4156
+4157
+4159
+4182
+4186
+4190
+4193
+4194
+4197
+4199
+4206
+4209
+4213
+4226
+4238
+4239
+4240
+4250
+4254
+5906
+5909
+5938
+5941
+5970
+5972
+6002
+6004
+6070
+6098
+6099
+6100
+6109
+6110
+6432
+6444
+6448
+6460
+6576
+6593
+6600
+6602
+6679
+6684
+6741
+6751
+6753
+6781
+6783
+6784
+6912
+6917
+6964
+6981
+7019
+7028
+7040
+7043
+7073
+7083
+7084
+7086
+7142
+7156
+7204
+7224
+7376
+7379
+7380
+7401
+7405
+7406
+7412
+7413
+43014
+43015
+43019
+43020
+43043
+43048
+43136
+43138
+43188
+43205
+43232
+43250
+43307
+43310
+43335
+43348
+43392
+43396
+43443
+43457
+43493
+43494
+43561
+43575
+43587
+43588
+43596
+43598
+43643
+43646
+43696
+43712
+43713
+43714
+43755
+43760
+43765
+43766
+44003
+44011
+44012
+44014
+68097
+68100
+68101
+68103
+68108
+68112
+68152
+68155
+69632
+69635
+69688
+69703
+69760
+69763
+69808
+69819
+69888
+69891
+69927
+69939
+69940
+69941
+70003
+70004
+70016
+70019
+70067
+70081
+70091
+70093
+70188
+70200
+70367
+70379
+70401
+70404
+70462
+70469
+70471
+70473
+70475
+70478
+70487
+70488
+70498
+70500
+70502
+70509
+70512
+70517
+70832
+70852
+71087
+71094
+71096
+71105
+71132
+71134
+71216
+71233
+71339
+71352
+71453
+71454
+71455
+71468
+END
diff --git a/lib/5.24.1/unicore/lib/InPC/Overstru.pl b/lib/5.24.1/unicore/lib/InPC/Overstru.pl
new file mode 100644
index 00000000..2a9920cb
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/InPC/Overstru.pl
@@ -0,0 +1,22 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+7380
+7381
+7394
+7401
+68097
+68098
+68102
+68103
+END
diff --git a/lib/5.24.1/unicore/lib/InPC/Right.pl b/lib/5.24.1/unicore/lib/InPC/Right.pl
new file mode 100644
index 00000000..cbfc8b16
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/InPC/Right.pl
@@ -0,0 +1,290 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V276
+2307
+2308
+2363
+2364
+2366
+2367
+2368
+2369
+2377
+2381
+2383
+2384
+2434
+2436
+2494
+2495
+2496
+2497
+2519
+2520
+2563
+2564
+2622
+2623
+2624
+2625
+2691
+2692
+2750
+2751
+2752
+2753
+2763
+2765
+2818
+2820
+2878
+2879
+2880
+2881
+3006
+3008
+3009
+3011
+3031
+3032
+3073
+3076
+3137
+3141
+3202
+3204
+3262
+3263
+3265
+3269
+3285
+3287
+3330
+3332
+3390
+3395
+3415
+3416
+3458
+3460
+3535
+3538
+3544
+3545
+3551
+3552
+3570
+3572
+3632
+3633
+3634
+3636
+3653
+3654
+3760
+3761
+3762
+3764
+3902
+3903
+3967
+3968
+4139
+4141
+4152
+4153
+4155
+4156
+4182
+4184
+4194
+4197
+4199
+4206
+4227
+4228
+4231
+4237
+4239
+4240
+4250
+4253
+6070
+6071
+6087
+6089
+6435
+6437
+6441
+6444
+6448
+6450
+6451
+6457
+6576
+6581
+6584
+6586
+6587
+6593
+6600
+6602
+6682
+6683
+6743
+6744
+6753
+6754
+6755
+6757
+6765
+6766
+6916
+6917
+6965
+6966
+6980
+6981
+7042
+7043
+7073
+7074
+7079
+7080
+7082
+7083
+7143
+7144
+7146
+7149
+7150
+7151
+7154
+7156
+7204
+7207
+7210
+7212
+7393
+7394
+43043
+43045
+43047
+43048
+43136
+43138
+43188
+43204
+43346
+43348
+43395
+43396
+43444
+43446
+43453
+43456
+43571
+43572
+43597
+43598
+43643
+43644
+43645
+43646
+43697
+43698
+43706
+43707
+43709
+43710
+43759
+43760
+43765
+43766
+44003
+44005
+44006
+44008
+44009
+44011
+44012
+44013
+69632
+69633
+69634
+69635
+69762
+69763
+69808
+69809
+69810
+69811
+69815
+69817
+70018
+70019
+70067
+70068
+70069
+70070
+70080
+70081
+70188
+70191
+70197
+70198
+70368
+70369
+70370
+70371
+70402
+70404
+70462
+70464
+70465
+70469
+70477
+70478
+70487
+70488
+70498
+70500
+70832
+70833
+70834
+70835
+70845
+70846
+70849
+70850
+71087
+71088
+71089
+71090
+71102
+71103
+71216
+71219
+71227
+71229
+71230
+71231
+71340
+71341
+71343
+71344
+71350
+71351
+71456
+71458
+END
diff --git a/lib/5.24.1/unicore/lib/InPC/Top.pl b/lib/5.24.1/unicore/lib/InPC/Top.pl
new file mode 100644
index 00000000..4bc6b0a5
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/InPC/Top.pl
@@ -0,0 +1,316 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V302
+2304
+2307
+2362
+2363
+2373
+2377
+2385
+2386
+2387
+2390
+2433
+2434
+2561
+2563
+2631
+2633
+2635
+2637
+2672
+2674
+2689
+2691
+2757
+2758
+2759
+2761
+2817
+2818
+2879
+2880
+2902
+2903
+2946
+2947
+3008
+3009
+3021
+3022
+3072
+3073
+3134
+3137
+3142
+3144
+3146
+3150
+3157
+3158
+3201
+3202
+3263
+3264
+3270
+3271
+3276
+3278
+3329
+3330
+3405
+3406
+3530
+3531
+3538
+3540
+3633
+3634
+3636
+3640
+3655
+3663
+3761
+3762
+3764
+3768
+3771
+3772
+3784
+3790
+3897
+3898
+3954
+3955
+3962
+3967
+3968
+3969
+3970
+3972
+3974
+3976
+4141
+4143
+4146
+4151
+4154
+4155
+4209
+4213
+4229
+4231
+4253
+4254
+5906
+5907
+5938
+5939
+5970
+5971
+6002
+6003
+6071
+6075
+6086
+6087
+6089
+6098
+6099
+6100
+6109
+6110
+6432
+6434
+6439
+6441
+6458
+6459
+6679
+6680
+6683
+6684
+6744
+6747
+6754
+6755
+6757
+6761
+6763
+6764
+6771
+6781
+6912
+6916
+6964
+6965
+6966
+6968
+6978
+6979
+7019
+7020
+7021
+7028
+7040
+7042
+7076
+7077
+7080
+7082
+7142
+7143
+7144
+7146
+7149
+7150
+7151
+7154
+7213
+7220
+7222
+7223
+7376
+7379
+7386
+7388
+7392
+7393
+7412
+7413
+43014
+43015
+43019
+43020
+43046
+43047
+43232
+43250
+43338
+43339
+43343
+43346
+43392
+43395
+43443
+43444
+43446
+43448
+43452
+43453
+43493
+43494
+43561
+43565
+43566
+43567
+43569
+43570
+43587
+43588
+43596
+43597
+43644
+43645
+43696
+43697
+43698
+43700
+43703
+43705
+43710
+43712
+43713
+43714
+43757
+43758
+44005
+44006
+68101
+68102
+68111
+68112
+68152
+68153
+69633
+69634
+69688
+69692
+69698
+69703
+69760
+69762
+69813
+69815
+69888
+69891
+69927
+69930
+69933
+69934
+69936
+69937
+69940
+69941
+70016
+70018
+70076
+70079
+70091
+70092
+70192
+70194
+70196
+70197
+70198
+70200
+70367
+70368
+70373
+70377
+70401
+70402
+70464
+70465
+70502
+70509
+70512
+70517
+70842
+70843
+70847
+70849
+71100
+71102
+71225
+71227
+71229
+71230
+71232
+71233
+71339
+71340
+71341
+71342
+71346
+71350
+71455
+71456
+71458
+71460
+71463
+71464
+71465
+71468
+END
diff --git a/lib/5.24.1/unicore/lib/InPC/TopAndBo.pl b/lib/5.24.1/unicore/lib/InPC/TopAndBo.pl
new file mode 100644
index 00000000..f892e3b4
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/InPC/TopAndBo.pl
@@ -0,0 +1,26 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V12
+3144
+3145
+3955
+3956
+3958
+3962
+3969
+3970
+6972
+6973
+69934
+69936
+END
diff --git a/lib/5.24.1/unicore/lib/InPC/TopAndL2.pl b/lib/5.24.1/unicore/lib/InPC/TopAndL2.pl
new file mode 100644
index 00000000..81ecf1ee
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/InPC/TopAndL2.pl
@@ -0,0 +1,22 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+2892
+2893
+3549
+3550
+6079
+6080
+71099
+71100
+END
diff --git a/lib/5.24.1/unicore/lib/InPC/TopAndLe.pl b/lib/5.24.1/unicore/lib/InPC/TopAndLe.pl
new file mode 100644
index 00000000..76d862b5
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/InPC/TopAndLe.pl
@@ -0,0 +1,26 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V12
+2888
+2889
+3546
+3547
+6078
+6079
+7209
+7210
+70843
+70844
+71097
+71098
+END
diff --git a/lib/5.24.1/unicore/lib/InPC/TopAndRi.pl b/lib/5.24.1/unicore/lib/InPC/TopAndRi.pl
new file mode 100644
index 00000000..7c5d264a
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/InPC/TopAndRi.pl
@@ -0,0 +1,32 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V18
+2761
+2762
+2903
+2904
+3264
+3265
+3271
+3273
+3274
+3276
+6437
+6439
+6979
+6980
+70079
+70080
+70194
+70196
+END
diff --git a/lib/5.24.1/unicore/lib/InPC/VisualOr.pl b/lib/5.24.1/unicore/lib/InPC/VisualOr.pl
new file mode 100644
index 00000000..0a97741c
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/InPC/VisualOr.pl
@@ -0,0 +1,28 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V14
+3648
+3653
+3776
+3781
+6581
+6584
+6586
+6587
+43701
+43703
+43705
+43706
+43707
+43709
+END
diff --git a/lib/5.24.1/unicore/lib/InSC/Avagraha.pl b/lib/5.24.1/unicore/lib/InSC/Avagraha.pl
new file mode 100644
index 00000000..94afce8b
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/InSC/Avagraha.pl
@@ -0,0 +1,40 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V26
+2365
+2366
+2493
+2494
+2749
+2750
+2877
+2878
+3133
+3134
+3261
+3262
+3389
+3390
+3973
+3974
+6108
+6109
+7098
+7099
+70081
+70082
+70461
+70462
+70852
+70853
+END
diff --git a/lib/5.24.1/unicore/lib/InSC/Bindu.pl b/lib/5.24.1/unicore/lib/InSC/Bindu.pl
new file mode 100644
index 00000000..b8531daf
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/InSC/Bindu.pl
@@ -0,0 +1,88 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V74
+2304
+2307
+2433
+2435
+2561
+2563
+2672
+2673
+2689
+2691
+2817
+2819
+2946
+2947
+3072
+3075
+3201
+3203
+3329
+3331
+3458
+3459
+3661
+3662
+3789
+3790
+3966
+3967
+3970
+3972
+4150
+4151
+6086
+6087
+6450
+6451
+6912
+6915
+7040
+7041
+7220
+7222
+43019
+43020
+43123
+43124
+43136
+43137
+43392
+43394
+68110
+68111
+69632
+69634
+69760
+69762
+69888
+69890
+70016
+70018
+70196
+70197
+70367
+70368
+70400
+70403
+70847
+70849
+71100
+71102
+71229
+71230
+71339
+71340
+END
diff --git a/lib/5.24.1/unicore/lib/InSC/Cantilla.pl b/lib/5.24.1/unicore/lib/InSC/Cantilla.pl
new file mode 100644
index 00000000..6c8084f8
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/InSC/Cantilla.pl
@@ -0,0 +1,30 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V16
+2385
+2387
+7376
+7379
+7380
+7394
+7412
+7413
+7416
+7418
+43232
+43250
+70502
+70509
+70512
+70517
+END
diff --git a/lib/5.24.1/unicore/lib/InSC/Consona2.pl b/lib/5.24.1/unicore/lib/InSC/Consona2.pl
new file mode 100644
index 00000000..2c011dfc
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/InSC/Consona2.pl
@@ -0,0 +1,36 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V22
+6448
+6450
+6451
+6458
+6593
+6600
+6743
+6751
+7102
+7104
+7152
+7154
+7213
+7220
+43188
+43189
+43343
+43347
+43584
+43598
+43995
+44003
+END
diff --git a/lib/5.24.1/unicore/lib/InSC/Consona3.pl b/lib/5.24.1/unicore/lib/InSC/Consona3.pl
new file mode 100644
index 00000000..0b410b12
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/InSC/Consona3.pl
@@ -0,0 +1,32 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V18
+2677
+2678
+3772
+3774
+4155
+4159
+4190
+4193
+4226
+4227
+6741
+6743
+43454
+43456
+43571
+43575
+71453
+71456
+END
diff --git a/lib/5.24.1/unicore/lib/InSC/Consona4.pl b/lib/5.24.1/unicore/lib/InSC/Consona4.pl
new file mode 100644
index 00000000..fccdc31d
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/InSC/Consona4.pl
@@ -0,0 +1,32 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V18
+3981
+3992
+3993
+4029
+6441
+6444
+7073
+7076
+7084
+7086
+7204
+7206
+43111
+43113
+43121
+43122
+43453
+43454
+END
diff --git a/lib/5.24.1/unicore/lib/InSC/Consona5.pl b/lib/5.24.1/unicore/lib/InSC/Consona5.pl
new file mode 100644
index 00000000..91eee299
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/InSC/Consona5.pl
@@ -0,0 +1,30 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V16
+45
+46
+160
+161
+215
+216
+2674
+2676
+4174
+4175
+6400
+6401
+8208
+8213
+9676
+9677
+END
diff --git a/lib/5.24.1/unicore/lib/InSC/Consona6.pl b/lib/5.24.1/unicore/lib/InSC/Consona6.pl
new file mode 100644
index 00000000..58ae9d75
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/InSC/Consona6.pl
@@ -0,0 +1,22 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+6092
+6093
+6915
+6916
+7041
+7042
+43394
+43395
+END
diff --git a/lib/5.24.1/unicore/lib/InSC/Consonan.pl b/lib/5.24.1/unicore/lib/InSC/Consonan.pl
new file mode 100644
index 00000000..7f3925d7
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/InSC/Consonan.pl
@@ -0,0 +1,300 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V286
+2325
+2362
+2392
+2400
+2424
+2432
+2453
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2524
+2526
+2527
+2528
+2544
+2546
+2581
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2649
+2653
+2654
+2655
+2709
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2809
+2810
+2837
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2908
+2910
+2911
+2912
+2929
+2930
+2965
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3093
+3113
+3114
+3130
+3160
+3163
+3221
+3241
+3242
+3252
+3253
+3258
+3294
+3295
+3349
+3387
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3585
+3631
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3759
+3804
+3808
+3904
+3912
+3913
+3949
+4096
+4129
+4159
+4160
+4176
+4178
+4186
+4190
+4193
+4194
+4197
+4199
+4206
+4209
+4213
+4226
+4238
+4239
+5891
+5901
+5902
+5906
+5923
+5938
+5955
+5970
+5987
+5997
+5998
+6001
+6016
+6051
+6401
+6431
+6480
+6499
+6528
+6572
+6656
+6679
+6688
+6733
+6739
+6741
+6931
+6964
+6981
+6988
+7050
+7073
+7086
+7088
+7099
+7102
+7104
+7140
+7168
+7204
+7245
+7248
+43015
+43019
+43020
+43043
+43072
+43102
+43106
+43110
+43113
+43121
+43122
+43123
+43154
+43188
+43274
+43298
+43312
+43335
+43401
+43404
+43407
+43443
+43488
+43493
+43495
+43504
+43514
+43519
+43526
+43561
+43616
+43632
+43633
+43636
+43642
+43643
+43646
+43696
+43746
+43755
+43968
+43982
+43984
+43985
+43986
+43995
+68096
+68097
+68112
+68116
+68117
+68120
+68121
+68148
+69651
+69688
+69773
+69808
+69895
+69927
+69973
+70003
+70033
+70067
+70152
+70162
+70163
+70188
+70276
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70313
+70330
+70367
+70421
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70799
+70832
+71054
+71087
+71182
+71216
+71306
+71339
+71424
+71450
+END
diff --git a/lib/5.24.1/unicore/lib/InSC/Invisibl.pl b/lib/5.24.1/unicore/lib/InSC/Invisibl.pl
new file mode 100644
index 00000000..3a438b2c
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/InSC/Invisibl.pl
@@ -0,0 +1,28 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V14
+4153
+4154
+6098
+6099
+6752
+6753
+7083
+7084
+43766
+43767
+68159
+68160
+69939
+69940
+END
diff --git a/lib/5.24.1/unicore/lib/InSC/Nukta.pl b/lib/5.24.1/unicore/lib/InSC/Nukta.pl
new file mode 100644
index 00000000..e46dd275
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/InSC/Nukta.pl
@@ -0,0 +1,56 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V42
+2364
+2365
+2492
+2493
+2620
+2621
+2748
+2749
+2876
+2877
+3260
+3261
+3897
+3898
+6964
+6965
+7142
+7143
+7223
+7224
+43443
+43444
+68152
+68155
+69818
+69819
+70003
+70004
+70090
+70091
+70198
+70199
+70377
+70378
+70460
+70461
+70851
+70852
+71104
+71105
+71351
+71352
+END
diff --git a/lib/5.24.1/unicore/lib/InSC/Number.pl b/lib/5.24.1/unicore/lib/InSC/Number.pl
new file mode 100644
index 00000000..5fd91f25
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/InSC/Number.pl
@@ -0,0 +1,94 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V80
+48
+58
+2406
+2416
+2534
+2544
+2662
+2672
+2790
+2800
+2918
+2928
+3046
+3056
+3174
+3184
+3302
+3312
+3430
+3440
+3558
+3568
+3664
+3674
+3792
+3802
+3872
+3892
+4160
+4170
+4240
+4250
+6112
+6122
+6470
+6480
+6608
+6618
+6784
+6794
+6800
+6810
+6992
+7002
+7088
+7098
+7232
+7242
+43216
+43226
+43264
+43274
+43472
+43482
+43504
+43514
+43600
+43610
+44016
+44026
+68160
+68168
+69734
+69744
+69942
+69952
+70096
+70106
+70113
+70133
+70384
+70394
+70864
+70874
+71248
+71258
+71360
+71370
+71472
+71484
+END
diff --git a/lib/5.24.1/unicore/lib/InSC/Other.pl b/lib/5.24.1/unicore/lib/InSC/Other.pl
new file mode 100644
index 00000000..aa4c4052
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/InSC/Other.pl
@@ -0,0 +1,581 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V567
+0
+45
+46
+48
+58
+160
+161
+178
+180
+215
+216
+2304
+2384
+2385
+2387
+2389
+2404
+2406
+2416
+2418
+2432
+2433
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2501
+2503
+2505
+2507
+2511
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2546
+2561
+2564
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2649
+2653
+2654
+2655
+2662
+2676
+2677
+2678
+2689
+2692
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2784
+2788
+2790
+2800
+2809
+2810
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2876
+2885
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2916
+2918
+2928
+2929
+2930
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3031
+3032
+3046
+3056
+3072
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3130
+3133
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3160
+3163
+3168
+3172
+3174
+3184
+3201
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3260
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3300
+3302
+3312
+3313
+3315
+3329
+3332
+3333
+3341
+3342
+3345
+3346
+3387
+3389
+3397
+3398
+3401
+3402
+3407
+3415
+3416
+3423
+3428
+3430
+3440
+3450
+3456
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3558
+3568
+3570
+3572
+3585
+3631
+3632
+3643
+3648
+3654
+3655
+3663
+3664
+3674
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3759
+3760
+3770
+3771
+3774
+3776
+3781
+3784
+3788
+3789
+3790
+3792
+3802
+3804
+3808
+3872
+3892
+3893
+3894
+3895
+3896
+3897
+3898
+3904
+3912
+3913
+3949
+3953
+3974
+3976
+3992
+3993
+4029
+4038
+4039
+4096
+4170
+4174
+4175
+4176
+4254
+5888
+5901
+5902
+5909
+5920
+5941
+5952
+5972
+5984
+5997
+5998
+6001
+6002
+6004
+6016
+6068
+6070
+6100
+6108
+6109
+6112
+6122
+6400
+6431
+6432
+6444
+6448
+6460
+6470
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6608
+6618
+6656
+6684
+6688
+6751
+6752
+6781
+6783
+6794
+6800
+6810
+6912
+6988
+6992
+7002
+7040
+7156
+7168
+7224
+7232
+7242
+7245
+7248
+7376
+7379
+7380
+7394
+7410
+7413
+7416
+7418
+8204
+8206
+8208
+8213
+8308
+8309
+8322
+8325
+9676
+9677
+43008
+43010
+43011
+43048
+43072
+43124
+43136
+43205
+43216
+43226
+43232
+43250
+43264
+43310
+43312
+43348
+43392
+43457
+43472
+43482
+43488
+43494
+43495
+43519
+43520
+43575
+43584
+43598
+43600
+43610
+43616
+43632
+43633
+43636
+43642
+43715
+43744
+43760
+43765
+43767
+43968
+44011
+44012
+44014
+44016
+44026
+68096
+68100
+68101
+68103
+68108
+68116
+68117
+68120
+68121
+68148
+68152
+68155
+68159
+68168
+69632
+69703
+69714
+69744
+69759
+69819
+69888
+69941
+69942
+69952
+69968
+70004
+70016
+70084
+70090
+70093
+70096
+70106
+70113
+70133
+70144
+70162
+70163
+70200
+70272
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70313
+70320
+70379
+70384
+70394
+70400
+70404
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70460
+70469
+70471
+70473
+70475
+70478
+70487
+70488
+70496
+70500
+70502
+70509
+70512
+70517
+70785
+70853
+70864
+70874
+71040
+71094
+71096
+71105
+71128
+71134
+71168
+71233
+71248
+71258
+71296
+71352
+71360
+71370
+71424
+71450
+71453
+71468
+71472
+71484
+END
diff --git a/lib/5.24.1/unicore/lib/InSC/PureKill.pl b/lib/5.24.1/unicore/lib/InSC/PureKill.pl
new file mode 100644
index 00000000..653df2b1
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/InSC/PureKill.pl
@@ -0,0 +1,44 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V30
+3642
+3643
+3662
+3663
+3972
+3973
+4154
+4155
+5908
+5909
+5940
+5941
+6097
+6098
+7082
+7083
+7154
+7156
+43014
+43015
+43347
+43348
+44013
+44014
+69940
+69941
+70378
+70379
+71467
+71468
+END
diff --git a/lib/5.24.1/unicore/lib/InSC/Syllable.pl b/lib/5.24.1/unicore/lib/InSC/Syllable.pl
new file mode 100644
index 00000000..207bfcb8
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/InSC/Syllable.pl
@@ -0,0 +1,40 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V26
+178
+180
+3893
+3894
+3895
+3896
+4038
+4039
+6091
+6092
+6094
+6097
+6099
+6100
+6459
+6460
+6778
+6781
+6783
+6784
+7222
+7223
+8308
+8309
+8322
+8325
+END
diff --git a/lib/5.24.1/unicore/lib/InSC/ToneMark.pl b/lib/5.24.1/unicore/lib/InSC/ToneMark.pl
new file mode 100644
index 00000000..5ffc8bcd
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/InSC/ToneMark.pl
@@ -0,0 +1,44 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V30
+3656
+3660
+3784
+3788
+4151
+4152
+4195
+4197
+4201
+4206
+4231
+4238
+4239
+4240
+4250
+4252
+6600
+6602
+6773
+6778
+43307
+43310
+43643
+43646
+43711
+43712
+43713
+43714
+44012
+44013
+END
diff --git a/lib/5.24.1/unicore/lib/InSC/Virama.pl b/lib/5.24.1/unicore/lib/InSC/Virama.pl
new file mode 100644
index 00000000..efff9c8d
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/InSC/Virama.pl
@@ -0,0 +1,58 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V44
+2381
+2382
+2509
+2510
+2637
+2638
+2765
+2766
+2893
+2894
+3021
+3022
+3149
+3150
+3277
+3278
+3405
+3406
+3530
+3531
+6980
+6981
+43204
+43205
+43456
+43457
+69702
+69703
+69817
+69818
+70080
+70081
+70197
+70198
+70477
+70478
+70850
+70851
+71103
+71104
+71231
+71232
+71350
+71351
+END
diff --git a/lib/5.24.1/unicore/lib/InSC/Visarga.pl b/lib/5.24.1/unicore/lib/InSC/Visarga.pl
new file mode 100644
index 00000000..2d157909
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/InSC/Visarga.pl
@@ -0,0 +1,70 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V56
+2307
+2308
+2435
+2436
+2563
+2564
+2691
+2692
+2819
+2820
+3075
+3076
+3203
+3204
+3331
+3332
+3459
+3460
+3967
+3968
+4152
+4153
+6087
+6088
+6916
+6917
+7042
+7043
+7410
+7412
+43137
+43138
+43395
+43396
+43765
+43766
+68111
+68112
+69634
+69635
+69762
+69763
+69890
+69891
+70018
+70019
+70403
+70404
+70849
+70850
+71102
+71103
+71230
+71231
+71340
+71341
+END
diff --git a/lib/5.24.1/unicore/lib/InSC/Vowel.pl b/lib/5.24.1/unicore/lib/InSC/Vowel.pl
new file mode 100644
index 00000000..4c04353f
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/InSC/Vowel.pl
@@ -0,0 +1,24 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V10
+6499
+6510
+43102
+43106
+43110
+43111
+43298
+43307
+69968
+69973
+END
diff --git a/lib/5.24.1/unicore/lib/InSC/VowelDep.pl b/lib/5.24.1/unicore/lib/InSC/VowelDep.pl
new file mode 100644
index 00000000..1fc1b6ee
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/InSC/VowelDep.pl
@@ -0,0 +1,228 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V214
+2362
+2364
+2366
+2381
+2382
+2384
+2389
+2392
+2402
+2404
+2494
+2501
+2503
+2505
+2507
+2509
+2519
+2520
+2530
+2532
+2622
+2627
+2631
+2633
+2635
+2637
+2750
+2758
+2759
+2762
+2763
+2765
+2786
+2788
+2878
+2885
+2887
+2889
+2891
+2893
+2902
+2904
+2914
+2916
+3006
+3011
+3014
+3017
+3018
+3021
+3031
+3032
+3134
+3141
+3142
+3145
+3146
+3149
+3157
+3159
+3170
+3172
+3262
+3269
+3270
+3273
+3274
+3277
+3285
+3287
+3298
+3300
+3390
+3397
+3398
+3401
+3402
+3405
+3415
+3416
+3426
+3428
+3535
+3541
+3542
+3543
+3544
+3552
+3570
+3572
+3632
+3642
+3648
+3654
+3655
+3656
+3760
+3770
+3771
+3772
+3776
+3781
+3953
+3966
+3968
+3970
+4139
+4150
+4182
+4186
+4194
+4195
+4199
+4201
+4209
+4213
+4227
+4231
+4252
+4254
+5906
+5908
+5938
+5940
+5970
+5972
+6002
+6004
+6070
+6086
+6088
+6089
+6432
+6441
+6458
+6459
+6576
+6593
+6679
+6684
+6753
+6773
+6965
+6980
+7076
+7082
+7143
+7152
+7206
+7213
+43043
+43048
+43189
+43204
+43335
+43343
+43444
+43453
+43493
+43494
+43561
+43571
+43696
+43711
+43755
+43760
+44003
+44011
+68097
+68100
+68101
+68103
+68108
+68110
+69688
+69702
+69808
+69817
+69927
+69939
+70067
+70080
+70091
+70093
+70188
+70196
+70368
+70377
+70462
+70469
+70471
+70473
+70475
+70477
+70487
+70488
+70498
+70500
+70832
+70847
+71087
+71094
+71096
+71100
+71132
+71134
+71216
+71229
+71232
+71233
+71341
+71350
+71456
+71467
+END
diff --git a/lib/5.24.1/unicore/lib/InSC/VowelInd.pl b/lib/5.24.1/unicore/lib/InSC/VowelInd.pl
new file mode 100644
index 00000000..a069fd12
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/InSC/VowelInd.pl
@@ -0,0 +1,154 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V140
+2308
+2325
+2400
+2402
+2418
+2424
+2437
+2445
+2447
+2449
+2451
+2453
+2528
+2530
+2565
+2571
+2575
+2577
+2579
+2581
+2693
+2702
+2703
+2706
+2707
+2709
+2784
+2786
+2821
+2829
+2831
+2833
+2835
+2837
+2912
+2914
+2949
+2955
+2958
+2961
+2962
+2965
+3077
+3085
+3086
+3089
+3090
+3093
+3168
+3170
+3205
+3213
+3214
+3217
+3218
+3221
+3296
+3298
+3333
+3341
+3342
+3345
+3346
+3349
+3423
+3426
+3461
+3479
+4129
+4139
+4178
+4182
+5888
+5891
+5920
+5923
+5952
+5955
+5984
+5987
+6051
+6068
+6733
+6739
+6917
+6931
+7043
+7050
+7140
+7142
+43008
+43010
+43011
+43014
+43138
+43154
+43396
+43401
+43404
+43407
+43520
+43526
+43744
+43746
+43982
+43984
+43985
+43986
+69637
+69651
+69763
+69773
+69891
+69895
+70019
+70033
+70144
+70152
+70272
+70276
+70320
+70330
+70405
+70413
+70415
+70417
+70419
+70421
+70496
+70498
+70785
+70799
+71040
+71054
+71128
+71132
+71168
+71182
+71296
+71306
+END
diff --git a/lib/5.24.1/unicore/lib/Jg/Ain.pl b/lib/5.24.1/unicore/lib/Jg/Ain.pl
new file mode 100644
index 00000000..8930608f
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Jg/Ain.pl
@@ -0,0 +1,24 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V10
+1593
+1595
+1696
+1697
+1788
+1789
+1885
+1888
+2227
+2228
+END
diff --git a/lib/5.24.1/unicore/lib/Jg/Alef.pl b/lib/5.24.1/unicore/lib/Jg/Alef.pl
new file mode 100644
index 00000000..7def0de2
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Jg/Alef.pl
@@ -0,0 +1,26 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V12
+1570
+1572
+1573
+1574
+1575
+1576
+1649
+1652
+1653
+1654
+1907
+1909
+END
diff --git a/lib/5.24.1/unicore/lib/Jg/Beh.pl b/lib/5.24.1/unicore/lib/Jg/Beh.pl
new file mode 100644
index 00000000..c771aa61
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Jg/Beh.pl
@@ -0,0 +1,26 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V12
+1576
+1577
+1578
+1580
+1646
+1647
+1657
+1665
+1872
+1879
+2208
+2210
+END
diff --git a/lib/5.24.1/unicore/lib/Jg/Dal.pl b/lib/5.24.1/unicore/lib/Jg/Dal.pl
new file mode 100644
index 00000000..657e08f6
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Jg/Dal.pl
@@ -0,0 +1,24 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V10
+1583
+1585
+1672
+1681
+1774
+1775
+1881
+1883
+2222
+2223
+END
diff --git a/lib/5.24.1/unicore/lib/Jg/FarsiYeh.pl b/lib/5.24.1/unicore/lib/Jg/FarsiYeh.pl
new file mode 100644
index 00000000..69f2165e
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Jg/FarsiYeh.pl
@@ -0,0 +1,22 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+1597
+1600
+1740
+1741
+1742
+1743
+1909
+1911
+END
diff --git a/lib/5.24.1/unicore/lib/Jg/Feh.pl b/lib/5.24.1/unicore/lib/Jg/Feh.pl
new file mode 100644
index 00000000..65671eb8
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Jg/Feh.pl
@@ -0,0 +1,22 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+1601
+1602
+1697
+1703
+1888
+1890
+2212
+2213
+END
diff --git a/lib/5.24.1/unicore/lib/Jg/Gaf.pl b/lib/5.24.1/unicore/lib/Jg/Gaf.pl
new file mode 100644
index 00000000..10df2549
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Jg/Gaf.pl
@@ -0,0 +1,26 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V12
+1595
+1597
+1705
+1706
+1707
+1708
+1711
+1717
+1890
+1893
+2224
+2225
+END
diff --git a/lib/5.24.1/unicore/lib/Jg/Hah.pl b/lib/5.24.1/unicore/lib/Jg/Hah.pl
new file mode 100644
index 00000000..5d1e1b13
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Jg/Hah.pl
@@ -0,0 +1,30 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V16
+1580
+1583
+1665
+1672
+1727
+1728
+1879
+1881
+1902
+1904
+1906
+1907
+1916
+1917
+2210
+2211
+END
diff --git a/lib/5.24.1/unicore/lib/Jg/Kaf.pl b/lib/5.24.1/unicore/lib/Jg/Kaf.pl
new file mode 100644
index 00000000..f0b445a7
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Jg/Kaf.pl
@@ -0,0 +1,22 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+1603
+1604
+1708
+1711
+1919
+1920
+2228
+2229
+END
diff --git a/lib/5.24.1/unicore/lib/Jg/Lam.pl b/lib/5.24.1/unicore/lib/Jg/Lam.pl
new file mode 100644
index 00000000..e5566f26
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Jg/Lam.pl
@@ -0,0 +1,22 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+1604
+1605
+1717
+1721
+1898
+1899
+2214
+2215
+END
diff --git a/lib/5.24.1/unicore/lib/Jg/NoJoinin.pl b/lib/5.24.1/unicore/lib/Jg/NoJoinin.pl
new file mode 100644
index 00000000..1f3df84f
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Jg/NoJoinin.pl
@@ -0,0 +1,57 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V43
+0
+1568
+1569
+1570
+1600
+1601
+1611
+1646
+1648
+1649
+1652
+1653
+1748
+1749
+1750
+1774
+1776
+1786
+1789
+1791
+1792
+1808
+1809
+1810
+1840
+1869
+1920
+2208
+2221
+2222
+2229
+68288
+68294
+68295
+68296
+68297
+68299
+68301
+68322
+68324
+68325
+68331
+68336
+END
diff --git a/lib/5.24.1/unicore/lib/Jg/Qaf.pl b/lib/5.24.1/unicore/lib/Jg/Qaf.pl
new file mode 100644
index 00000000..53b3a663
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Jg/Qaf.pl
@@ -0,0 +1,22 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+1602
+1603
+1647
+1648
+1703
+1705
+2213
+2214
+END
diff --git a/lib/5.24.1/unicore/lib/Jg/Reh.pl b/lib/5.24.1/unicore/lib/Jg/Reh.pl
new file mode 100644
index 00000000..af31f17f
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Jg/Reh.pl
@@ -0,0 +1,30 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V16
+1585
+1587
+1681
+1690
+1775
+1776
+1883
+1884
+1899
+1901
+1905
+1906
+2218
+2219
+2226
+2227
+END
diff --git a/lib/5.24.1/unicore/lib/Jg/Sad.pl b/lib/5.24.1/unicore/lib/Jg/Sad.pl
new file mode 100644
index 00000000..c01e54d5
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Jg/Sad.pl
@@ -0,0 +1,22 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+1589
+1591
+1693
+1695
+1787
+1788
+2223
+2224
+END
diff --git a/lib/5.24.1/unicore/lib/Jg/Seen.pl b/lib/5.24.1/unicore/lib/Jg/Seen.pl
new file mode 100644
index 00000000..57a85e01
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Jg/Seen.pl
@@ -0,0 +1,28 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V14
+1587
+1589
+1690
+1693
+1786
+1787
+1884
+1885
+1901
+1902
+1904
+1905
+1917
+1919
+END
diff --git a/lib/5.24.1/unicore/lib/Jg/Waw.pl b/lib/5.24.1/unicore/lib/Jg/Waw.pl
new file mode 100644
index 00000000..d35909dd
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Jg/Waw.pl
@@ -0,0 +1,28 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V14
+1572
+1573
+1608
+1609
+1654
+1656
+1732
+1740
+1743
+1744
+1912
+1914
+2219
+2220
+END
diff --git a/lib/5.24.1/unicore/lib/Jg/Yeh.pl b/lib/5.24.1/unicore/lib/Jg/Yeh.pl
new file mode 100644
index 00000000..728dc3e9
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Jg/Yeh.pl
@@ -0,0 +1,28 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V14
+1568
+1569
+1574
+1575
+1609
+1611
+1656
+1657
+1744
+1746
+1911
+1912
+2216
+2218
+END
diff --git a/lib/5.24.1/unicore/lib/Jt/C.pl b/lib/5.24.1/unicore/lib/Jt/C.pl
new file mode 100644
index 00000000..518e983f
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Jt/C.pl
@@ -0,0 +1,22 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+1600
+1601
+2042
+2043
+6154
+6155
+8205
+8206
+END
diff --git a/lib/5.24.1/unicore/lib/Jt/D.pl b/lib/5.24.1/unicore/lib/Jt/D.pl
new file mode 100644
index 00000000..6b7a0bc3
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Jt/D.pl
@@ -0,0 +1,120 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V106
+1568
+1569
+1574
+1575
+1576
+1577
+1578
+1583
+1587
+1600
+1601
+1608
+1609
+1611
+1646
+1648
+1656
+1672
+1690
+1728
+1729
+1731
+1740
+1741
+1742
+1743
+1744
+1746
+1786
+1789
+1791
+1792
+1810
+1813
+1818
+1822
+1823
+1832
+1833
+1834
+1835
+1836
+1837
+1839
+1870
+1881
+1884
+1899
+1901
+1905
+1906
+1907
+1909
+1912
+1914
+1920
+1994
+2027
+2113
+2118
+2120
+2121
+2122
+2132
+2133
+2134
+2208
+2218
+2223
+2225
+2227
+2229
+6151
+6152
+6176
+6264
+6279
+6313
+6314
+6315
+43072
+43122
+68288
+68293
+68307
+68311
+68312
+68317
+68318
+68321
+68331
+68335
+68480
+68481
+68482
+68483
+68486
+68489
+68490
+68492
+68493
+68494
+68496
+68497
+68525
+68527
+END
diff --git a/lib/5.24.1/unicore/lib/Jt/R.pl b/lib/5.24.1/unicore/lib/Jt/R.pl
new file mode 100644
index 00000000..4f73e241
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Jt/R.pl
@@ -0,0 +1,114 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V100
+1570
+1574
+1575
+1576
+1577
+1578
+1583
+1587
+1608
+1609
+1649
+1652
+1653
+1656
+1672
+1690
+1728
+1729
+1731
+1740
+1741
+1742
+1743
+1744
+1746
+1748
+1749
+1750
+1774
+1776
+1808
+1809
+1813
+1818
+1822
+1823
+1832
+1833
+1834
+1835
+1836
+1837
+1839
+1840
+1869
+1870
+1881
+1884
+1899
+1901
+1905
+1906
+1907
+1909
+1912
+1914
+2112
+2113
+2118
+2120
+2121
+2122
+2132
+2133
+2218
+2221
+2222
+2223
+2225
+2227
+68293
+68294
+68295
+68296
+68297
+68299
+68302
+68307
+68317
+68318
+68321
+68322
+68324
+68325
+68335
+68336
+68481
+68482
+68483
+68486
+68489
+68490
+68492
+68493
+68494
+68496
+68497
+68498
+68521
+68525
+END
diff --git a/lib/5.24.1/unicore/lib/Jt/T.pl b/lib/5.24.1/unicore/lib/Jt/T.pl
new file mode 100644
index 00000000..5a75afbc
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Jt/T.pl
@@ -0,0 +1,570 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V556
+173
+174
+768
+880
+1155
+1162
+1425
+1470
+1471
+1472
+1473
+1475
+1476
+1478
+1479
+1480
+1552
+1563
+1564
+1565
+1611
+1632
+1648
+1649
+1750
+1757
+1759
+1765
+1767
+1769
+1770
+1774
+1807
+1808
+1809
+1810
+1840
+1867
+1958
+1969
+2027
+2036
+2070
+2074
+2075
+2084
+2085
+2088
+2089
+2094
+2137
+2140
+2275
+2307
+2362
+2363
+2364
+2365
+2369
+2377
+2381
+2382
+2385
+2392
+2402
+2404
+2433
+2434
+2492
+2493
+2497
+2501
+2509
+2510
+2530
+2532
+2561
+2563
+2620
+2621
+2625
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2672
+2674
+2677
+2678
+2689
+2691
+2748
+2749
+2753
+2758
+2759
+2761
+2765
+2766
+2786
+2788
+2817
+2818
+2876
+2877
+2879
+2880
+2881
+2885
+2893
+2894
+2902
+2903
+2914
+2916
+2946
+2947
+3008
+3009
+3021
+3022
+3072
+3073
+3134
+3137
+3142
+3145
+3146
+3150
+3157
+3159
+3170
+3172
+3201
+3202
+3260
+3261
+3263
+3264
+3270
+3271
+3276
+3278
+3298
+3300
+3329
+3330
+3393
+3397
+3405
+3406
+3426
+3428
+3530
+3531
+3538
+3541
+3542
+3543
+3633
+3634
+3636
+3643
+3655
+3663
+3761
+3762
+3764
+3770
+3771
+3773
+3784
+3790
+3864
+3866
+3893
+3894
+3895
+3896
+3897
+3898
+3953
+3967
+3968
+3973
+3974
+3976
+3981
+3992
+3993
+4029
+4038
+4039
+4141
+4145
+4146
+4152
+4153
+4155
+4157
+4159
+4184
+4186
+4190
+4193
+4209
+4213
+4226
+4227
+4229
+4231
+4237
+4238
+4253
+4254
+4957
+4960
+5906
+5909
+5938
+5941
+5970
+5972
+6002
+6004
+6068
+6070
+6071
+6078
+6086
+6087
+6089
+6100
+6109
+6110
+6155
+6158
+6313
+6314
+6432
+6435
+6439
+6441
+6450
+6451
+6457
+6460
+6679
+6681
+6683
+6684
+6742
+6743
+6744
+6751
+6752
+6753
+6754
+6755
+6757
+6765
+6771
+6781
+6783
+6784
+6832
+6847
+6912
+6916
+6964
+6965
+6966
+6971
+6972
+6973
+6978
+6979
+7019
+7028
+7040
+7042
+7074
+7078
+7080
+7082
+7083
+7086
+7142
+7143
+7144
+7146
+7149
+7150
+7151
+7154
+7212
+7220
+7222
+7224
+7376
+7379
+7380
+7393
+7394
+7401
+7405
+7406
+7412
+7413
+7416
+7418
+7616
+7670
+7676
+7680
+8203
+8204
+8206
+8208
+8234
+8239
+8288
+8293
+8298
+8304
+8400
+8433
+11503
+11506
+11647
+11648
+11744
+11776
+12330
+12334
+12441
+12443
+42607
+42611
+42612
+42622
+42654
+42656
+42736
+42738
+43010
+43011
+43014
+43015
+43019
+43020
+43045
+43047
+43204
+43205
+43232
+43250
+43302
+43310
+43335
+43346
+43392
+43395
+43443
+43444
+43446
+43450
+43452
+43453
+43493
+43494
+43561
+43567
+43569
+43571
+43573
+43575
+43587
+43588
+43596
+43597
+43644
+43645
+43696
+43697
+43698
+43701
+43703
+43705
+43710
+43712
+43713
+43714
+43756
+43758
+43766
+43767
+44005
+44006
+44008
+44009
+44013
+44014
+64286
+64287
+65024
+65040
+65056
+65072
+65279
+65280
+65529
+65532
+66045
+66046
+66272
+66273
+66422
+66427
+68097
+68100
+68101
+68103
+68108
+68112
+68152
+68155
+68159
+68160
+68325
+68327
+69633
+69634
+69688
+69703
+69759
+69762
+69811
+69815
+69817
+69819
+69821
+69822
+69888
+69891
+69927
+69932
+69933
+69941
+70003
+70004
+70016
+70018
+70070
+70079
+70090
+70093
+70191
+70194
+70196
+70197
+70198
+70200
+70367
+70368
+70371
+70379
+70400
+70402
+70460
+70461
+70464
+70465
+70502
+70509
+70512
+70517
+70835
+70841
+70842
+70843
+70847
+70849
+70850
+70852
+71090
+71094
+71100
+71102
+71103
+71105
+71132
+71134
+71219
+71227
+71229
+71230
+71231
+71233
+71339
+71340
+71341
+71342
+71344
+71350
+71351
+71352
+71453
+71456
+71458
+71462
+71463
+71468
+92912
+92917
+92976
+92983
+94095
+94099
+113821
+113823
+113824
+113828
+119143
+119146
+119155
+119171
+119173
+119180
+119210
+119214
+119362
+119365
+121344
+121399
+121403
+121453
+121461
+121462
+121476
+121477
+121499
+121504
+121505
+121520
+125136
+125143
+917505
+917506
+917536
+917632
+917760
+918000
+END
diff --git a/lib/5.24.1/unicore/lib/Jt/U.pl b/lib/5.24.1/unicore/lib/Jt/U.pl
new file mode 100644
index 00000000..d11318ae
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Jt/U.pl
@@ -0,0 +1,605 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V591
+0
+173
+174
+768
+880
+1155
+1162
+1425
+1470
+1471
+1472
+1473
+1475
+1476
+1478
+1479
+1480
+1552
+1563
+1564
+1565
+1568
+1569
+1570
+1632
+1646
+1652
+1653
+1748
+1749
+1757
+1759
+1765
+1767
+1769
+1770
+1776
+1786
+1789
+1791
+1792
+1807
+1867
+1869
+1920
+1958
+1969
+1994
+2036
+2042
+2043
+2070
+2074
+2075
+2084
+2085
+2088
+2089
+2094
+2112
+2134
+2137
+2140
+2208
+2221
+2222
+2229
+2275
+2307
+2362
+2363
+2364
+2365
+2369
+2377
+2381
+2382
+2385
+2392
+2402
+2404
+2433
+2434
+2492
+2493
+2497
+2501
+2509
+2510
+2530
+2532
+2561
+2563
+2620
+2621
+2625
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2672
+2674
+2677
+2678
+2689
+2691
+2748
+2749
+2753
+2758
+2759
+2761
+2765
+2766
+2786
+2788
+2817
+2818
+2876
+2877
+2879
+2880
+2881
+2885
+2893
+2894
+2902
+2903
+2914
+2916
+2946
+2947
+3008
+3009
+3021
+3022
+3072
+3073
+3134
+3137
+3142
+3145
+3146
+3150
+3157
+3159
+3170
+3172
+3201
+3202
+3260
+3261
+3263
+3264
+3270
+3271
+3276
+3278
+3298
+3300
+3329
+3330
+3393
+3397
+3405
+3406
+3426
+3428
+3530
+3531
+3538
+3541
+3542
+3543
+3633
+3634
+3636
+3643
+3655
+3663
+3761
+3762
+3764
+3770
+3771
+3773
+3784
+3790
+3864
+3866
+3893
+3894
+3895
+3896
+3897
+3898
+3953
+3967
+3968
+3973
+3974
+3976
+3981
+3992
+3993
+4029
+4038
+4039
+4141
+4145
+4146
+4152
+4153
+4155
+4157
+4159
+4184
+4186
+4190
+4193
+4209
+4213
+4226
+4227
+4229
+4231
+4237
+4238
+4253
+4254
+4957
+4960
+5906
+5909
+5938
+5941
+5970
+5972
+6002
+6004
+6068
+6070
+6071
+6078
+6086
+6087
+6089
+6100
+6109
+6110
+6151
+6152
+6154
+6158
+6176
+6264
+6279
+6315
+6432
+6435
+6439
+6441
+6450
+6451
+6457
+6460
+6679
+6681
+6683
+6684
+6742
+6743
+6744
+6751
+6752
+6753
+6754
+6755
+6757
+6765
+6771
+6781
+6783
+6784
+6832
+6847
+6912
+6916
+6964
+6965
+6966
+6971
+6972
+6973
+6978
+6979
+7019
+7028
+7040
+7042
+7074
+7078
+7080
+7082
+7083
+7086
+7142
+7143
+7144
+7146
+7149
+7150
+7151
+7154
+7212
+7220
+7222
+7224
+7376
+7379
+7380
+7393
+7394
+7401
+7405
+7406
+7412
+7413
+7416
+7418
+7616
+7670
+7676
+7680
+8203
+8204
+8205
+8208
+8234
+8239
+8288
+8293
+8298
+8304
+8400
+8433
+11503
+11506
+11647
+11648
+11744
+11776
+12330
+12334
+12441
+12443
+42607
+42611
+42612
+42622
+42654
+42656
+42736
+42738
+43010
+43011
+43014
+43015
+43019
+43020
+43045
+43047
+43072
+43123
+43204
+43205
+43232
+43250
+43302
+43310
+43335
+43346
+43392
+43395
+43443
+43444
+43446
+43450
+43452
+43453
+43493
+43494
+43561
+43567
+43569
+43571
+43573
+43575
+43587
+43588
+43596
+43597
+43644
+43645
+43696
+43697
+43698
+43701
+43703
+43705
+43710
+43712
+43713
+43714
+43756
+43758
+43766
+43767
+44005
+44006
+44008
+44009
+44013
+44014
+64286
+64287
+65024
+65040
+65056
+65072
+65279
+65280
+65529
+65532
+66045
+66046
+66272
+66273
+66422
+66427
+68097
+68100
+68101
+68103
+68108
+68112
+68152
+68155
+68159
+68160
+68288
+68294
+68295
+68296
+68297
+68299
+68301
+68322
+68324
+68327
+68331
+68336
+68480
+68498
+68521
+68527
+69633
+69634
+69688
+69703
+69759
+69762
+69811
+69815
+69817
+69819
+69821
+69822
+69888
+69891
+69927
+69932
+69933
+69941
+70003
+70004
+70016
+70018
+70070
+70079
+70090
+70093
+70191
+70194
+70196
+70197
+70198
+70200
+70367
+70368
+70371
+70379
+70400
+70402
+70460
+70461
+70464
+70465
+70502
+70509
+70512
+70517
+70835
+70841
+70842
+70843
+70847
+70849
+70850
+70852
+71090
+71094
+71100
+71102
+71103
+71105
+71132
+71134
+71219
+71227
+71229
+71230
+71231
+71233
+71339
+71340
+71341
+71342
+71344
+71350
+71351
+71352
+71453
+71456
+71458
+71462
+71463
+71468
+92912
+92917
+92976
+92983
+94095
+94099
+113821
+113823
+113824
+113828
+119143
+119146
+119155
+119171
+119173
+119180
+119210
+119214
+119362
+119365
+121344
+121399
+121403
+121453
+121461
+121462
+121476
+121477
+121499
+121504
+121505
+121520
+125136
+125143
+917505
+917506
+917536
+917632
+917760
+918000
+END
diff --git a/lib/5.24.1/unicore/lib/Lb/AI.pl b/lib/5.24.1/unicore/lib/Lb/AI.pl
new file mode 100644
index 00000000..4bb5b777
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Lb/AI.pl
@@ -0,0 +1,232 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V218
+167
+169
+170
+171
+178
+180
+182
+187
+188
+191
+215
+216
+247
+248
+711
+712
+713
+716
+717
+718
+720
+721
+728
+732
+733
+734
+8213
+8215
+8224
+8226
+8251
+8252
+8308
+8309
+8319
+8320
+8321
+8325
+8453
+8454
+8467
+8468
+8481
+8483
+8491
+8492
+8532
+8534
+8539
+8540
+8542
+8543
+8544
+8556
+8560
+8570
+8585
+8586
+8592
+8602
+8658
+8659
+8660
+8661
+8704
+8705
+8706
+8708
+8711
+8713
+8715
+8716
+8719
+8720
+8721
+8722
+8725
+8726
+8730
+8731
+8733
+8737
+8739
+8740
+8741
+8742
+8743
+8749
+8750
+8751
+8756
+8760
+8764
+8766
+8776
+8777
+8780
+8781
+8786
+8787
+8800
+8802
+8804
+8808
+8810
+8812
+8814
+8816
+8834
+8836
+8838
+8840
+8853
+8854
+8857
+8858
+8869
+8870
+8895
+8896
+8978
+8979
+9312
+9471
+9472
+9548
+9552
+9589
+9600
+9616
+9618
+9622
+9632
+9634
+9635
+9642
+9650
+9652
+9654
+9656
+9660
+9662
+9664
+9666
+9670
+9673
+9675
+9676
+9678
+9682
+9698
+9702
+9711
+9712
+9733
+9735
+9737
+9738
+9742
+9744
+9750
+9752
+9792
+9793
+9794
+9795
+9824
+9826
+9827
+9830
+9831
+9832
+9833
+9835
+9836
+9838
+9839
+9840
+9886
+9888
+9929
+9933
+9938
+9939
+9941
+9944
+9946
+9948
+9949
+9951
+9955
+9956
+9960
+9962
+9963
+9969
+9974
+9975
+9979
+9981
+10071
+10072
+10102
+10132
+11093
+11098
+12872
+12880
+65533
+65534
+127232
+127245
+127248
+127278
+127280
+127338
+127344
+127387
+END
diff --git a/lib/5.24.1/unicore/lib/Lb/AL.pl b/lib/5.24.1/unicore/lib/Lb/AL.pl
new file mode 100644
index 00000000..21322785
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Lb/AL.pl
@@ -0,0 +1,1410 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1396
+35
+36
+38
+39
+42
+43
+60
+63
+64
+91
+94
+123
+126
+127
+166
+167
+169
+170
+172
+173
+174
+176
+181
+182
+192
+215
+216
+247
+248
+711
+718
+720
+721
+728
+732
+733
+734
+735
+736
+768
+880
+888
+890
+894
+895
+896
+900
+907
+908
+909
+910
+930
+931
+1155
+1162
+1328
+1329
+1367
+1369
+1376
+1377
+1416
+1421
+1423
+1472
+1473
+1475
+1476
+1523
+1525
+1536
+1545
+1550
+1552
+1568
+1611
+1645
+1648
+1649
+1748
+1749
+1750
+1757
+1759
+1765
+1767
+1769
+1770
+1774
+1776
+1786
+1806
+1807
+1809
+1810
+1840
+1869
+1958
+1969
+1970
+1994
+2027
+2036
+2040
+2042
+2043
+2048
+2070
+2074
+2075
+2084
+2085
+2088
+2089
+2096
+2111
+2112
+2137
+2142
+2143
+2208
+2229
+2308
+2362
+2365
+2366
+2384
+2385
+2392
+2402
+2416
+2433
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2493
+2494
+2510
+2511
+2524
+2526
+2527
+2530
+2544
+2546
+2548
+2553
+2554
+2555
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2649
+2653
+2654
+2655
+2674
+2677
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2749
+2750
+2768
+2769
+2784
+2786
+2800
+2801
+2809
+2810
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2877
+2878
+2908
+2910
+2911
+2914
+2928
+2936
+2947
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3024
+3025
+3056
+3065
+3066
+3067
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3130
+3133
+3134
+3160
+3163
+3168
+3170
+3192
+3200
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3261
+3262
+3294
+3295
+3296
+3298
+3313
+3315
+3333
+3341
+3342
+3345
+3346
+3387
+3389
+3390
+3406
+3407
+3423
+3426
+3440
+3446
+3450
+3456
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3572
+3573
+3663
+3664
+3840
+3841
+3845
+3846
+3859
+3860
+3861
+3864
+3866
+3872
+3882
+3892
+3894
+3895
+3896
+3897
+3904
+3912
+3913
+3949
+3976
+3981
+4032
+4038
+4039
+4045
+4046
+4048
+4052
+4057
+4172
+4176
+4256
+4294
+4295
+4296
+4301
+4302
+4304
+4352
+4608
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4960
+4961
+4962
+4989
+4992
+5018
+5024
+5110
+5112
+5118
+5121
+5760
+5761
+5787
+5792
+5867
+5870
+5881
+5888
+5901
+5902
+5906
+5920
+5938
+5952
+5970
+5984
+5997
+5998
+6001
+6105
+6106
+6128
+6138
+6144
+6146
+6151
+6152
+6154
+6155
+6176
+6264
+6272
+6313
+6314
+6315
+6320
+6390
+6400
+6431
+6464
+6465
+6624
+6679
+6686
+6688
+6917
+6964
+6981
+6988
+7004
+7005
+7009
+7019
+7028
+7037
+7043
+7073
+7086
+7088
+7098
+7142
+7164
+7204
+7245
+7248
+7258
+7294
+7360
+7368
+7379
+7380
+7401
+7405
+7406
+7410
+7413
+7415
+7424
+7616
+7680
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8189
+8190
+8191
+8215
+8216
+8226
+8228
+8248
+8249
+8254
+8260
+8266
+8278
+8279
+8280
+8284
+8285
+8289
+8293
+8304
+8306
+8309
+8317
+8320
+8321
+8325
+8333
+8336
+8349
+8448
+8451
+8452
+8453
+8454
+8457
+8458
+8467
+8468
+8470
+8471
+8481
+8483
+8491
+8492
+8532
+8534
+8539
+8540
+8542
+8543
+8544
+8556
+8560
+8570
+8585
+8586
+8588
+8602
+8658
+8659
+8660
+8661
+8704
+8705
+8706
+8708
+8711
+8713
+8715
+8716
+8719
+8720
+8721
+8724
+8725
+8726
+8730
+8731
+8733
+8737
+8739
+8740
+8741
+8742
+8743
+8749
+8750
+8751
+8756
+8760
+8764
+8766
+8776
+8777
+8780
+8781
+8786
+8787
+8800
+8802
+8804
+8808
+8810
+8812
+8814
+8816
+8834
+8836
+8838
+8840
+8853
+8854
+8857
+8858
+8869
+8870
+8895
+8896
+8943
+8944
+8968
+8972
+8978
+8979
+8986
+8988
+9001
+9003
+9200
+9204
+9211
+9216
+9255
+9280
+9291
+9471
+9472
+9548
+9552
+9589
+9600
+9616
+9618
+9622
+9632
+9634
+9635
+9642
+9650
+9652
+9654
+9656
+9660
+9662
+9664
+9666
+9670
+9673
+9675
+9676
+9678
+9682
+9698
+9702
+9711
+9712
+9728
+9732
+9733
+9735
+9737
+9738
+9742
+9744
+9748
+9753
+9754
+9760
+9785
+9788
+9792
+9793
+9794
+9795
+9824
+9826
+9827
+9830
+9831
+9835
+9836
+9838
+9839
+9840
+9855
+9856
+9886
+9888
+9917
+9934
+9935
+9954
+9955
+9956
+9960
+9989
+9992
+9998
+10071
+10072
+10075
+10081
+10082
+10084
+10088
+10132
+10181
+10183
+10214
+10224
+10627
+10649
+10712
+10716
+10748
+10750
+11093
+11098
+11124
+11126
+11158
+11160
+11194
+11197
+11209
+11210
+11218
+11244
+11248
+11264
+11311
+11312
+11359
+11360
+11503
+11506
+11508
+11517
+11518
+11520
+11558
+11559
+11560
+11565
+11566
+11568
+11624
+11631
+11632
+11648
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11798
+11799
+11802
+11804
+11806
+11808
+11823
+11824
+11826
+11827
+11829
+11834
+11839
+11840
+19904
+19968
+42192
+42238
+42240
+42509
+42512
+42528
+42538
+42540
+42560
+42607
+42611
+42612
+42622
+42654
+42656
+42736
+42738
+42739
+42752
+42926
+42928
+42936
+42999
+43010
+43011
+43014
+43015
+43019
+43020
+43043
+43048
+43052
+43056
+43064
+43065
+43066
+43072
+43124
+43138
+43188
+43250
+43260
+43261
+43262
+43274
+43302
+43312
+43335
+43359
+43360
+43396
+43443
+43457
+43463
+43466
+43470
+43471
+43472
+43486
+43488
+43520
+43561
+43584
+43587
+43588
+43596
+43612
+43613
+43744
+43755
+43762
+43765
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43824
+43878
+43888
+44003
+64256
+64263
+64275
+64280
+64297
+64298
+64336
+64450
+64467
+64830
+64848
+64912
+64914
+64968
+65008
+65020
+65021
+65022
+65136
+65141
+65142
+65277
+65382
+65383
+65393
+65438
+65440
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65512
+65519
+65536
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65799
+65844
+65847
+65933
+65936
+65948
+65952
+65953
+66000
+66045
+66176
+66205
+66208
+66257
+66273
+66300
+66304
+66340
+66352
+66379
+66384
+66422
+66432
+66462
+66464
+66500
+66504
+66512
+66513
+66518
+66560
+66718
+66816
+66856
+66864
+66916
+66927
+66928
+67072
+67383
+67392
+67414
+67424
+67432
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67672
+67743
+67751
+67760
+67808
+67827
+67828
+67830
+67835
+67868
+67872
+67898
+67903
+67904
+67968
+68024
+68028
+68048
+68050
+68097
+68112
+68116
+68117
+68120
+68121
+68148
+68160
+68168
+68184
+68185
+68192
+68256
+68288
+68325
+68331
+68336
+68352
+68406
+68416
+68438
+68440
+68467
+68472
+68498
+68505
+68509
+68521
+68528
+68608
+68681
+68736
+68787
+68800
+68851
+68858
+68864
+69216
+69247
+69635
+69688
+69705
+69710
+69714
+69734
+69763
+69808
+69819
+69822
+69840
+69865
+69891
+69927
+69968
+70003
+70004
+70005
+70006
+70007
+70019
+70067
+70081
+70085
+70087
+70088
+70089
+70090
+70093
+70094
+70106
+70107
+70108
+70109
+70113
+70133
+70144
+70162
+70163
+70188
+70202
+70203
+70205
+70206
+70272
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70313
+70320
+70367
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70461
+70462
+70480
+70481
+70493
+70498
+70784
+70832
+70852
+70856
+71040
+71087
+71110
+71113
+71128
+71132
+71168
+71216
+71235
+71237
+71296
+71339
+71840
+71904
+71914
+71923
+71935
+71936
+72384
+72441
+73728
+74650
+74752
+74863
+74880
+75076
+77824
+78424
+78430
+78466
+78467
+78470
+78474
+78713
+78716
+78895
+82944
+83406
+83408
+83527
+92160
+92729
+92736
+92767
+92880
+92910
+92928
+92976
+92986
+92996
+92997
+92998
+93019
+93026
+93027
+93048
+93053
+93072
+93952
+94021
+94032
+94033
+94099
+94112
+113664
+113771
+113776
+113789
+113792
+113801
+113808
+113818
+113820
+113821
+118784
+119030
+119040
+119079
+119081
+119141
+119146
+119149
+119171
+119173
+119180
+119210
+119214
+119273
+119296
+119362
+119365
+119366
+119552
+119639
+119648
+119666
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120780
+120832
+121344
+121399
+121403
+121453
+121461
+121462
+121476
+121477
+121479
+121483
+121484
+124928
+125125
+125127
+125136
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+126704
+126706
+127278
+127279
+127338
+127340
+127900
+127902
+127925
+127927
+127932
+127933
+127995
+128000
+128160
+128161
+128162
+128163
+128164
+128165
+128175
+128176
+128177
+128179
+128256
+128263
+128279
+128293
+128306
+128330
+128468
+128476
+128500
+128506
+128592
+128630
+128636
+128640
+128768
+128884
+128896
+128981
+129024
+129036
+129040
+129096
+129104
+129114
+129120
+129160
+129168
+129198
+END
diff --git a/lib/5.24.1/unicore/lib/Lb/BA.pl b/lib/5.24.1/unicore/lib/Lb/BA.pl
new file mode 100644
index 00000000..9580e83a
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Lb/BA.pl
@@ -0,0 +1,184 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V170
+9
+10
+124
+125
+173
+174
+1418
+1419
+1470
+1471
+2404
+2406
+3674
+3676
+3851
+3852
+3892
+3893
+3967
+3968
+3973
+3974
+4030
+4032
+4050
+4051
+4170
+4172
+4961
+4962
+5120
+5121
+5760
+5761
+5867
+5870
+5941
+5943
+6100
+6102
+6104
+6105
+6106
+6107
+6148
+6150
+7002
+7004
+7005
+7009
+7227
+7232
+7294
+7296
+8192
+8199
+8200
+8203
+8208
+8209
+8210
+8212
+8231
+8232
+8278
+8279
+8280
+8284
+8285
+8288
+11514
+11517
+11519
+11520
+11632
+11633
+11790
+11798
+11799
+11800
+11801
+11802
+11818
+11822
+11824
+11826
+11827
+11829
+11836
+11839
+11840
+11842
+12288
+12289
+42238
+42240
+42509
+42510
+42511
+42512
+42739
+42744
+43214
+43216
+43310
+43312
+43463
+43466
+43613
+43616
+43760
+43762
+44011
+44012
+65792
+65795
+66463
+66464
+66512
+66513
+67671
+67672
+67871
+67872
+68176
+68184
+68336
+68342
+68409
+68416
+69703
+69705
+69822
+69826
+69952
+69956
+70085
+70087
+70088
+70089
+70109
+70112
+70200
+70202
+70203
+70205
+70313
+70314
+71106
+71108
+71113
+71128
+71233
+71235
+71484
+71487
+74864
+74869
+92782
+92784
+92917
+92918
+92983
+92986
+92996
+92997
+113823
+113824
+121479
+121483
+END
diff --git a/lib/5.24.1/unicore/lib/Lb/BB.pl b/lib/5.24.1/unicore/lib/Lb/BB.pl
new file mode 100644
index 00000000..7fd9096b
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Lb/BB.pl
@@ -0,0 +1,46 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V32
+180
+181
+712
+713
+716
+717
+735
+736
+3841
+3845
+3846
+3848
+3849
+3851
+4048
+4050
+4051
+4052
+6150
+6151
+8189
+8190
+43124
+43126
+43260
+43261
+70005
+70006
+70107
+70108
+71105
+71106
+END
diff --git a/lib/5.24.1/unicore/lib/Lb/CJ.pl b/lib/5.24.1/unicore/lib/Lb/CJ.pl
new file mode 100644
index 00000000..efe53de3
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Lb/CJ.pl
@@ -0,0 +1,64 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V50
+12353
+12354
+12355
+12356
+12357
+12358
+12359
+12360
+12361
+12362
+12387
+12388
+12419
+12420
+12421
+12422
+12423
+12424
+12430
+12431
+12437
+12439
+12449
+12450
+12451
+12452
+12453
+12454
+12455
+12456
+12457
+12458
+12483
+12484
+12515
+12516
+12517
+12518
+12519
+12520
+12526
+12527
+12533
+12535
+12540
+12541
+12784
+12800
+65383
+65393
+END
diff --git a/lib/5.24.1/unicore/lib/Lb/CL.pl b/lib/5.24.1/unicore/lib/Lb/CL.pl
new file mode 100644
index 00000000..5c8656df
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Lb/CL.pl
@@ -0,0 +1,178 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V164
+125
+126
+3899
+3900
+3901
+3902
+5788
+5789
+8262
+8263
+8318
+8319
+8334
+8335
+8969
+8970
+8971
+8972
+9002
+9003
+10089
+10090
+10091
+10092
+10093
+10094
+10095
+10096
+10097
+10098
+10099
+10100
+10101
+10102
+10182
+10183
+10215
+10216
+10217
+10218
+10219
+10220
+10221
+10222
+10223
+10224
+10628
+10629
+10630
+10631
+10632
+10633
+10634
+10635
+10636
+10637
+10638
+10639
+10640
+10641
+10642
+10643
+10644
+10645
+10646
+10647
+10648
+10649
+10713
+10714
+10715
+10716
+10749
+10750
+11811
+11812
+11813
+11814
+11815
+11816
+11817
+11818
+12289
+12291
+12297
+12298
+12299
+12300
+12301
+12302
+12303
+12304
+12305
+12306
+12309
+12310
+12311
+12312
+12313
+12314
+12315
+12316
+12318
+12320
+64830
+64831
+65041
+65043
+65048
+65049
+65078
+65079
+65080
+65081
+65082
+65083
+65084
+65085
+65086
+65087
+65088
+65089
+65090
+65091
+65092
+65093
+65096
+65097
+65104
+65105
+65106
+65107
+65114
+65115
+65116
+65117
+65118
+65119
+65289
+65290
+65292
+65293
+65294
+65295
+65341
+65342
+65373
+65374
+65376
+65378
+65379
+65381
+78427
+78430
+78466
+78467
+78471
+78472
+78473
+78474
+78714
+78716
+83407
+83408
+END
diff --git a/lib/5.24.1/unicore/lib/Lb/CM.pl b/lib/5.24.1/unicore/lib/Lb/CM.pl
new file mode 100644
index 00000000..0873bf6c
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Lb/CM.pl
@@ -0,0 +1,460 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V446
+0
+9
+14
+32
+127
+133
+134
+160
+768
+847
+848
+860
+867
+880
+1155
+1162
+1425
+1470
+1471
+1472
+1473
+1475
+1476
+1478
+1479
+1480
+1552
+1563
+1564
+1565
+1611
+1632
+1648
+1649
+1750
+1757
+1759
+1765
+1767
+1769
+1770
+1774
+1809
+1810
+1840
+1867
+1958
+1969
+2027
+2036
+2070
+2074
+2075
+2084
+2085
+2088
+2089
+2094
+2137
+2140
+2275
+2308
+2362
+2365
+2366
+2384
+2385
+2392
+2402
+2404
+2433
+2436
+2492
+2493
+2494
+2501
+2503
+2505
+2507
+2510
+2519
+2520
+2530
+2532
+2561
+2564
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2672
+2674
+2677
+2678
+2689
+2692
+2748
+2749
+2750
+2758
+2759
+2762
+2763
+2766
+2786
+2788
+2817
+2820
+2876
+2877
+2878
+2885
+2887
+2889
+2891
+2894
+2902
+2904
+2914
+2916
+2946
+2947
+3006
+3011
+3014
+3017
+3018
+3022
+3031
+3032
+3072
+3076
+3134
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3170
+3172
+3201
+3204
+3260
+3261
+3262
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3298
+3300
+3329
+3332
+3390
+3397
+3398
+3401
+3402
+3406
+3415
+3416
+3426
+3428
+3458
+3460
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3570
+3572
+3864
+3866
+3893
+3894
+3895
+3896
+3897
+3898
+3902
+3904
+3953
+3967
+3968
+3973
+3974
+3976
+3981
+3992
+3993
+4029
+4038
+4039
+4957
+4960
+5906
+5909
+5938
+5941
+5970
+5972
+6002
+6004
+6155
+6158
+6313
+6314
+6432
+6444
+6448
+6460
+6679
+6684
+6783
+6784
+6832
+6847
+6912
+6917
+6964
+6981
+7019
+7028
+7040
+7043
+7073
+7086
+7142
+7156
+7204
+7224
+7376
+7379
+7380
+7401
+7405
+7406
+7410
+7413
+7416
+7418
+7616
+7670
+7676
+7680
+8204
+8208
+8234
+8239
+8294
+8304
+8400
+8433
+11503
+11506
+11647
+11648
+11744
+11776
+12330
+12336
+12341
+12342
+12441
+12443
+42607
+42611
+42612
+42622
+42654
+42656
+42736
+42738
+43010
+43011
+43014
+43015
+43019
+43020
+43043
+43048
+43136
+43138
+43188
+43205
+43232
+43250
+43302
+43310
+43335
+43348
+43392
+43396
+43443
+43457
+43561
+43575
+43587
+43588
+43596
+43598
+43755
+43760
+43765
+43767
+44003
+44011
+44012
+44014
+64286
+64287
+65024
+65040
+65056
+65072
+65529
+65532
+66045
+66046
+66272
+66273
+66422
+66427
+68097
+68100
+68101
+68103
+68108
+68112
+68152
+68155
+68159
+68160
+68325
+68327
+69632
+69635
+69688
+69703
+69759
+69763
+69808
+69819
+69888
+69891
+69927
+69941
+70003
+70004
+70016
+70019
+70067
+70081
+70090
+70093
+70188
+70200
+70367
+70379
+70400
+70404
+70460
+70461
+70462
+70469
+70471
+70473
+70475
+70478
+70487
+70488
+70498
+70500
+70502
+70509
+70512
+70517
+70832
+70852
+71087
+71094
+71096
+71105
+71132
+71134
+71216
+71233
+71339
+71352
+92912
+92917
+92976
+92983
+94033
+94079
+94095
+94099
+113821
+113823
+113824
+113828
+119141
+119146
+119149
+119171
+119173
+119180
+119210
+119214
+119362
+119365
+121344
+121399
+121403
+121453
+121461
+121462
+121476
+121477
+121499
+121504
+121505
+121520
+125136
+125143
+917505
+917506
+917536
+917632
+917760
+918000
+END
diff --git a/lib/5.24.1/unicore/lib/Lb/EX.pl b/lib/5.24.1/unicore/lib/Lb/EX.pl
new file mode 100644
index 00000000..e4142d50
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Lb/EX.pl
@@ -0,0 +1,60 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V46
+33
+34
+63
+64
+1478
+1479
+1563
+1564
+1566
+1568
+1748
+1749
+2041
+2042
+3853
+3858
+3860
+3861
+6146
+6148
+6152
+6154
+6468
+6470
+10082
+10084
+11513
+11514
+11518
+11519
+11822
+11823
+42510
+42511
+43126
+43128
+65045
+65047
+65110
+65112
+65281
+65282
+65311
+65312
+71108
+71110
+END
diff --git a/lib/5.24.1/unicore/lib/Lb/GL.pl b/lib/5.24.1/unicore/lib/Lb/GL.pl
new file mode 100644
index 00000000..df0b0243
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Lb/GL.pl
@@ -0,0 +1,36 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V22
+160
+161
+847
+848
+860
+867
+3848
+3849
+3852
+3853
+3858
+3859
+4057
+4059
+6158
+6159
+8199
+8200
+8209
+8210
+8239
+8240
+END
diff --git a/lib/5.24.1/unicore/lib/Lb/ID.pl b/lib/5.24.1/unicore/lib/Lb/ID.pl
new file mode 100644
index 00000000..cb852562
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Lb/ID.pl
@@ -0,0 +1,260 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V246
+8986
+8988
+9200
+9204
+9728
+9732
+9748
+9750
+9752
+9753
+9754
+9760
+9785
+9788
+9832
+9833
+9855
+9856
+9917
+9929
+9933
+9934
+9935
+9938
+9939
+9941
+9944
+9946
+9948
+9949
+9951
+9954
+9962
+9963
+9969
+9974
+9975
+9979
+9981
+9989
+9992
+9998
+11904
+11930
+11931
+12020
+12032
+12246
+12272
+12284
+12291
+12293
+12294
+12296
+12306
+12308
+12320
+12330
+12336
+12341
+12342
+12347
+12349
+12352
+12354
+12355
+12356
+12357
+12358
+12359
+12360
+12361
+12362
+12387
+12388
+12419
+12420
+12421
+12422
+12423
+12424
+12430
+12431
+12437
+12447
+12448
+12450
+12451
+12452
+12453
+12454
+12455
+12456
+12457
+12458
+12483
+12484
+12515
+12516
+12517
+12518
+12519
+12520
+12526
+12527
+12533
+12535
+12539
+12543
+12544
+12549
+12590
+12593
+12687
+12688
+12731
+12736
+12772
+12800
+12831
+12832
+12872
+12880
+13055
+13056
+19904
+19968
+40981
+40982
+42125
+42128
+42183
+63744
+64256
+65072
+65077
+65093
+65095
+65097
+65104
+65105
+65106
+65112
+65113
+65119
+65127
+65128
+65129
+65131
+65132
+65282
+65284
+65286
+65288
+65290
+65292
+65293
+65294
+65295
+65306
+65308
+65311
+65312
+65339
+65340
+65341
+65342
+65371
+65372
+65373
+65374
+65375
+65506
+65509
+110592
+110594
+126976
+127020
+127024
+127124
+127136
+127151
+127153
+127168
+127169
+127184
+127185
+127222
+127488
+127491
+127504
+127547
+127552
+127561
+127568
+127570
+127744
+127900
+127902
+127925
+127927
+127932
+127933
+127995
+128000
+128160
+128161
+128162
+128163
+128164
+128165
+128175
+128176
+128177
+128179
+128256
+128263
+128279
+128293
+128306
+128330
+128378
+128379
+128420
+128421
+128468
+128476
+128500
+128506
+128592
+128640
+128721
+128736
+128749
+128752
+128756
+129296
+129305
+129408
+129413
+129472
+129473
+131072
+196606
+196608
+262142
+END
diff --git a/lib/5.24.1/unicore/lib/Lb/IN.pl b/lib/5.24.1/unicore/lib/Lb/IN.pl
new file mode 100644
index 00000000..9c94f5b0
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Lb/IN.pl
@@ -0,0 +1,22 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+8228
+8231
+8943
+8944
+65049
+65050
+68342
+68343
+END
diff --git a/lib/5.24.1/unicore/lib/Lb/IS.pl b/lib/5.24.1/unicore/lib/Lb/IS.pl
new file mode 100644
index 00000000..166a87f5
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Lb/IS.pl
@@ -0,0 +1,34 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V20
+44
+45
+46
+47
+58
+60
+894
+895
+1417
+1418
+1548
+1550
+2040
+2041
+8260
+8261
+65040
+65041
+65043
+65045
+END
diff --git a/lib/5.24.1/unicore/lib/Lb/NS.pl b/lib/5.24.1/unicore/lib/Lb/NS.pl
new file mode 100644
index 00000000..637f8d1d
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Lb/NS.pl
@@ -0,0 +1,46 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V32
+6102
+6103
+8252
+8254
+8263
+8266
+12293
+12294
+12316
+12317
+12347
+12349
+12443
+12447
+12448
+12449
+12539
+12540
+12541
+12543
+40981
+40982
+65108
+65110
+65306
+65308
+65381
+65382
+65438
+65440
+128633
+128636
+END
diff --git a/lib/5.24.1/unicore/lib/Lb/OP.pl b/lib/5.24.1/unicore/lib/Lb/OP.pl
new file mode 100644
index 00000000..ff3b3bab
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Lb/OP.pl
@@ -0,0 +1,180 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V166
+40
+41
+91
+92
+123
+124
+161
+162
+191
+192
+3898
+3899
+3900
+3901
+5787
+5788
+8218
+8219
+8222
+8223
+8261
+8262
+8317
+8318
+8333
+8334
+8968
+8969
+8970
+8971
+9001
+9002
+10088
+10089
+10090
+10091
+10092
+10093
+10094
+10095
+10096
+10097
+10098
+10099
+10100
+10101
+10181
+10182
+10214
+10215
+10216
+10217
+10218
+10219
+10220
+10221
+10222
+10223
+10627
+10628
+10629
+10630
+10631
+10632
+10633
+10634
+10635
+10636
+10637
+10638
+10639
+10640
+10641
+10642
+10643
+10644
+10645
+10646
+10647
+10648
+10712
+10713
+10714
+10715
+10748
+10749
+11800
+11801
+11810
+11811
+11812
+11813
+11814
+11815
+11816
+11817
+11842
+11843
+12296
+12297
+12298
+12299
+12300
+12301
+12302
+12303
+12304
+12305
+12308
+12309
+12310
+12311
+12312
+12313
+12314
+12315
+12317
+12318
+64831
+64832
+65047
+65048
+65077
+65078
+65079
+65080
+65081
+65082
+65083
+65084
+65085
+65086
+65087
+65088
+65089
+65090
+65091
+65092
+65095
+65096
+65113
+65114
+65115
+65116
+65117
+65118
+65288
+65289
+65339
+65340
+65371
+65372
+65375
+65376
+65378
+65379
+78424
+78427
+78470
+78471
+78472
+78473
+78713
+78714
+83406
+83407
+END
diff --git a/lib/5.24.1/unicore/lib/Lb/PO.pl b/lib/5.24.1/unicore/lib/Lb/PO.pl
new file mode 100644
index 00000000..bb259dad
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Lb/PO.pl
@@ -0,0 +1,54 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V40
+37
+38
+162
+163
+176
+177
+1545
+1548
+1642
+1643
+2546
+2548
+2553
+2554
+3449
+3450
+8240
+8248
+8359
+8360
+8374
+8375
+8379
+8380
+8382
+8383
+8451
+8452
+8457
+8458
+43064
+43065
+65020
+65021
+65130
+65131
+65285
+65286
+65504
+65505
+END
diff --git a/lib/5.24.1/unicore/lib/Lb/PR.pl b/lib/5.24.1/unicore/lib/Lb/PR.pl
new file mode 100644
index 00000000..fc12204d
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Lb/PR.pl
@@ -0,0 +1,58 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V44
+36
+37
+43
+44
+92
+93
+163
+166
+177
+178
+1423
+1424
+2555
+2556
+2801
+2802
+3065
+3066
+3647
+3648
+6107
+6108
+8352
+8359
+8360
+8374
+8375
+8379
+8380
+8382
+8383
+8400
+8470
+8471
+8722
+8724
+65129
+65130
+65284
+65285
+65505
+65506
+65509
+65511
+END
diff --git a/lib/5.24.1/unicore/lib/Lb/QU.pl b/lib/5.24.1/unicore/lib/Lb/QU.pl
new file mode 100644
index 00000000..a2801586
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Lb/QU.pl
@@ -0,0 +1,40 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V26
+34
+35
+39
+40
+171
+172
+187
+188
+8216
+8218
+8219
+8222
+8223
+8224
+8249
+8251
+10075
+10081
+11776
+11790
+11804
+11806
+11808
+11810
+128630
+128633
+END
diff --git a/lib/5.24.1/unicore/lib/Lb/SA.pl b/lib/5.24.1/unicore/lib/Lb/SA.pl
new file mode 100644
index 00000000..a624c967
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Lb/SA.pl
@@ -0,0 +1,98 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V84
+3585
+3643
+3648
+3663
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3804
+3808
+4096
+4160
+4176
+4240
+4250
+4256
+6016
+6100
+6103
+6104
+6108
+6110
+6480
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6618
+6619
+6622
+6624
+6688
+6751
+6752
+6781
+6816
+6830
+43488
+43504
+43514
+43519
+43616
+43715
+43739
+43744
+71424
+71450
+71453
+71468
+71482
+71484
+71487
+71488
+END
diff --git a/lib/5.24.1/unicore/lib/Lb/XX.pl b/lib/5.24.1/unicore/lib/Lb/XX.pl
new file mode 100644
index 00000000..679aef27
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Lb/XX.pl
@@ -0,0 +1,1221 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1207
+888
+890
+896
+900
+907
+908
+909
+910
+930
+931
+1328
+1329
+1367
+1369
+1376
+1377
+1416
+1417
+1419
+1421
+1424
+1425
+1480
+1488
+1515
+1520
+1525
+1536
+1565
+1566
+1806
+1807
+1867
+1869
+1970
+1984
+2043
+2048
+2094
+2096
+2111
+2112
+2140
+2142
+2143
+2208
+2229
+2275
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2501
+2503
+2505
+2507
+2511
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2556
+2561
+2564
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2649
+2653
+2654
+2655
+2662
+2678
+2689
+2692
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2788
+2790
+2802
+2809
+2810
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2876
+2885
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2916
+2918
+2936
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3024
+3025
+3031
+3032
+3046
+3067
+3072
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3130
+3133
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3160
+3163
+3168
+3172
+3174
+3184
+3192
+3200
+3201
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3260
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3300
+3302
+3312
+3313
+3315
+3329
+3332
+3333
+3341
+3342
+3345
+3346
+3387
+3389
+3397
+3398
+3401
+3402
+3407
+3415
+3416
+3423
+3428
+3430
+3446
+3449
+3456
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3558
+3568
+3570
+3573
+3585
+3643
+3647
+3676
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3792
+3802
+3804
+3808
+3840
+3912
+3913
+3949
+3953
+3992
+3993
+4029
+4030
+4045
+4046
+4059
+4096
+4294
+4295
+4296
+4301
+4302
+4304
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4957
+4989
+4992
+5018
+5024
+5110
+5112
+5118
+5120
+5789
+5792
+5881
+5888
+5901
+5902
+5909
+5920
+5943
+5952
+5972
+5984
+5997
+5998
+6001
+6002
+6004
+6016
+6110
+6112
+6122
+6128
+6138
+6144
+6159
+6160
+6170
+6176
+6264
+6272
+6315
+6320
+6390
+6400
+6431
+6432
+6444
+6448
+6460
+6464
+6465
+6468
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6608
+6619
+6622
+6684
+6686
+6751
+6752
+6781
+6783
+6794
+6800
+6810
+6816
+6830
+6832
+6847
+6912
+6988
+6992
+7037
+7040
+7156
+7164
+7224
+7227
+7242
+7245
+7296
+7360
+7368
+7376
+7415
+7416
+7418
+7424
+7670
+7676
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8191
+8192
+8293
+8294
+8306
+8308
+8335
+8336
+8349
+8352
+8433
+8448
+8588
+8592
+9211
+9216
+9255
+9280
+9291
+9312
+11124
+11126
+11158
+11160
+11194
+11197
+11209
+11210
+11218
+11244
+11248
+11264
+11311
+11312
+11359
+11360
+11508
+11513
+11558
+11559
+11560
+11565
+11566
+11568
+11624
+11631
+11633
+11647
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11744
+11843
+11904
+11930
+11931
+12020
+12032
+12246
+12272
+12284
+12288
+12352
+12353
+12439
+12441
+12544
+12549
+12590
+12593
+12687
+12688
+12731
+12736
+12772
+12784
+12831
+12832
+13055
+13056
+42125
+42128
+42183
+42192
+42540
+42560
+42744
+42752
+42926
+42928
+42936
+42999
+43052
+43056
+43066
+43072
+43128
+43136
+43205
+43214
+43226
+43232
+43262
+43264
+43348
+43359
+43389
+43392
+43470
+43471
+43482
+43486
+43519
+43520
+43575
+43584
+43598
+43600
+43610
+43612
+43715
+43739
+43767
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43824
+43878
+43888
+44014
+44016
+44026
+44032
+55204
+55216
+55239
+55243
+55292
+55296
+57344
+63744
+64263
+64275
+64280
+64285
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64450
+64467
+64832
+64848
+64912
+64914
+64968
+65008
+65022
+65024
+65050
+65056
+65107
+65108
+65127
+65128
+65132
+65136
+65141
+65142
+65277
+65279
+65280
+65281
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+65529
+65534
+65536
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65792
+65795
+65799
+65844
+65847
+65933
+65936
+65948
+65952
+65953
+66000
+66046
+66176
+66205
+66208
+66257
+66272
+66300
+66304
+66340
+66352
+66379
+66384
+66427
+66432
+66462
+66463
+66500
+66504
+66518
+66560
+66718
+66720
+66730
+66816
+66856
+66864
+66916
+66927
+66928
+67072
+67383
+67392
+67414
+67424
+67432
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67671
+67743
+67751
+67760
+67808
+67827
+67828
+67830
+67835
+67868
+67871
+67898
+67903
+67904
+67968
+68024
+68028
+68048
+68050
+68100
+68101
+68103
+68108
+68116
+68117
+68120
+68121
+68148
+68152
+68155
+68159
+68168
+68176
+68185
+68192
+68256
+68288
+68327
+68331
+68343
+68352
+68406
+68409
+68438
+68440
+68467
+68472
+68498
+68505
+68509
+68521
+68528
+68608
+68681
+68736
+68787
+68800
+68851
+68858
+68864
+69216
+69247
+69632
+69710
+69714
+69744
+69759
+69826
+69840
+69865
+69872
+69882
+69888
+69941
+69942
+69956
+69968
+70007
+70016
+70094
+70096
+70112
+70113
+70133
+70144
+70162
+70163
+70206
+70272
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70314
+70320
+70379
+70384
+70394
+70400
+70404
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70460
+70469
+70471
+70473
+70475
+70478
+70480
+70481
+70487
+70488
+70493
+70500
+70502
+70509
+70512
+70517
+70784
+70856
+70864
+70874
+71040
+71094
+71096
+71134
+71168
+71237
+71248
+71258
+71296
+71352
+71360
+71370
+71424
+71450
+71453
+71468
+71472
+71488
+71840
+71923
+71935
+71936
+72384
+72441
+73728
+74650
+74752
+74863
+74864
+74869
+74880
+75076
+77824
+78895
+82944
+83527
+92160
+92729
+92736
+92767
+92768
+92778
+92782
+92784
+92880
+92910
+92912
+92918
+92928
+92998
+93008
+93018
+93019
+93026
+93027
+93048
+93053
+93072
+93952
+94021
+94032
+94079
+94095
+94112
+110592
+110594
+113664
+113771
+113776
+113789
+113792
+113801
+113808
+113818
+113820
+113828
+118784
+119030
+119040
+119079
+119081
+119273
+119296
+119366
+119552
+119639
+119648
+119666
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120780
+120782
+121484
+121499
+121504
+121505
+121520
+124928
+125125
+125127
+125143
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+126704
+126706
+126976
+127020
+127024
+127124
+127136
+127151
+127153
+127168
+127169
+127184
+127185
+127222
+127232
+127245
+127248
+127279
+127280
+127340
+127344
+127387
+127462
+127491
+127504
+127547
+127552
+127561
+127568
+127570
+127744
+128378
+128379
+128420
+128421
+128721
+128736
+128749
+128752
+128756
+128768
+128884
+128896
+128981
+129024
+129036
+129040
+129096
+129104
+129114
+129120
+129160
+129168
+129198
+129296
+129305
+129408
+129413
+129472
+129473
+131072
+196606
+196608
+262142
+917505
+917506
+917536
+917632
+917760
+918000
+END
diff --git a/lib/5.24.1/unicore/lib/Lower/Y.pl b/lib/5.24.1/unicore/lib/Lower/Y.pl
new file mode 100644
index 00000000..6250c287
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Lower/Y.pl
@@ -0,0 +1,1288 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1274
+97
+123
+170
+171
+181
+182
+186
+187
+223
+247
+248
+256
+257
+258
+259
+260
+261
+262
+263
+264
+265
+266
+267
+268
+269
+270
+271
+272
+273
+274
+275
+276
+277
+278
+279
+280
+281
+282
+283
+284
+285
+286
+287
+288
+289
+290
+291
+292
+293
+294
+295
+296
+297
+298
+299
+300
+301
+302
+303
+304
+305
+306
+307
+308
+309
+310
+311
+313
+314
+315
+316
+317
+318
+319
+320
+321
+322
+323
+324
+325
+326
+327
+328
+330
+331
+332
+333
+334
+335
+336
+337
+338
+339
+340
+341
+342
+343
+344
+345
+346
+347
+348
+349
+350
+351
+352
+353
+354
+355
+356
+357
+358
+359
+360
+361
+362
+363
+364
+365
+366
+367
+368
+369
+370
+371
+372
+373
+374
+375
+376
+378
+379
+380
+381
+382
+385
+387
+388
+389
+390
+392
+393
+396
+398
+402
+403
+405
+406
+409
+412
+414
+415
+417
+418
+419
+420
+421
+422
+424
+425
+426
+428
+429
+430
+432
+433
+436
+437
+438
+439
+441
+443
+445
+448
+454
+455
+457
+458
+460
+461
+462
+463
+464
+465
+466
+467
+468
+469
+470
+471
+472
+473
+474
+475
+476
+478
+479
+480
+481
+482
+483
+484
+485
+486
+487
+488
+489
+490
+491
+492
+493
+494
+495
+497
+499
+500
+501
+502
+505
+506
+507
+508
+509
+510
+511
+512
+513
+514
+515
+516
+517
+518
+519
+520
+521
+522
+523
+524
+525
+526
+527
+528
+529
+530
+531
+532
+533
+534
+535
+536
+537
+538
+539
+540
+541
+542
+543
+544
+545
+546
+547
+548
+549
+550
+551
+552
+553
+554
+555
+556
+557
+558
+559
+560
+561
+562
+563
+570
+572
+573
+575
+577
+578
+579
+583
+584
+585
+586
+587
+588
+589
+590
+591
+660
+661
+697
+704
+706
+736
+741
+837
+838
+881
+882
+883
+884
+887
+888
+890
+894
+912
+913
+940
+975
+976
+978
+981
+984
+985
+986
+987
+988
+989
+990
+991
+992
+993
+994
+995
+996
+997
+998
+999
+1000
+1001
+1002
+1003
+1004
+1005
+1006
+1007
+1012
+1013
+1014
+1016
+1017
+1019
+1021
+1072
+1120
+1121
+1122
+1123
+1124
+1125
+1126
+1127
+1128
+1129
+1130
+1131
+1132
+1133
+1134
+1135
+1136
+1137
+1138
+1139
+1140
+1141
+1142
+1143
+1144
+1145
+1146
+1147
+1148
+1149
+1150
+1151
+1152
+1153
+1154
+1163
+1164
+1165
+1166
+1167
+1168
+1169
+1170
+1171
+1172
+1173
+1174
+1175
+1176
+1177
+1178
+1179
+1180
+1181
+1182
+1183
+1184
+1185
+1186
+1187
+1188
+1189
+1190
+1191
+1192
+1193
+1194
+1195
+1196
+1197
+1198
+1199
+1200
+1201
+1202
+1203
+1204
+1205
+1206
+1207
+1208
+1209
+1210
+1211
+1212
+1213
+1214
+1215
+1216
+1218
+1219
+1220
+1221
+1222
+1223
+1224
+1225
+1226
+1227
+1228
+1229
+1230
+1232
+1233
+1234
+1235
+1236
+1237
+1238
+1239
+1240
+1241
+1242
+1243
+1244
+1245
+1246
+1247
+1248
+1249
+1250
+1251
+1252
+1253
+1254
+1255
+1256
+1257
+1258
+1259
+1260
+1261
+1262
+1263
+1264
+1265
+1266
+1267
+1268
+1269
+1270
+1271
+1272
+1273
+1274
+1275
+1276
+1277
+1278
+1279
+1280
+1281
+1282
+1283
+1284
+1285
+1286
+1287
+1288
+1289
+1290
+1291
+1292
+1293
+1294
+1295
+1296
+1297
+1298
+1299
+1300
+1301
+1302
+1303
+1304
+1305
+1306
+1307
+1308
+1309
+1310
+1311
+1312
+1313
+1314
+1315
+1316
+1317
+1318
+1319
+1320
+1321
+1322
+1323
+1324
+1325
+1326
+1327
+1328
+1377
+1416
+5112
+5118
+7424
+7616
+7681
+7682
+7683
+7684
+7685
+7686
+7687
+7688
+7689
+7690
+7691
+7692
+7693
+7694
+7695
+7696
+7697
+7698
+7699
+7700
+7701
+7702
+7703
+7704
+7705
+7706
+7707
+7708
+7709
+7710
+7711
+7712
+7713
+7714
+7715
+7716
+7717
+7718
+7719
+7720
+7721
+7722
+7723
+7724
+7725
+7726
+7727
+7728
+7729
+7730
+7731
+7732
+7733
+7734
+7735
+7736
+7737
+7738
+7739
+7740
+7741
+7742
+7743
+7744
+7745
+7746
+7747
+7748
+7749
+7750
+7751
+7752
+7753
+7754
+7755
+7756
+7757
+7758
+7759
+7760
+7761
+7762
+7763
+7764
+7765
+7766
+7767
+7768
+7769
+7770
+7771
+7772
+7773
+7774
+7775
+7776
+7777
+7778
+7779
+7780
+7781
+7782
+7783
+7784
+7785
+7786
+7787
+7788
+7789
+7790
+7791
+7792
+7793
+7794
+7795
+7796
+7797
+7798
+7799
+7800
+7801
+7802
+7803
+7804
+7805
+7806
+7807
+7808
+7809
+7810
+7811
+7812
+7813
+7814
+7815
+7816
+7817
+7818
+7819
+7820
+7821
+7822
+7823
+7824
+7825
+7826
+7827
+7828
+7829
+7838
+7839
+7840
+7841
+7842
+7843
+7844
+7845
+7846
+7847
+7848
+7849
+7850
+7851
+7852
+7853
+7854
+7855
+7856
+7857
+7858
+7859
+7860
+7861
+7862
+7863
+7864
+7865
+7866
+7867
+7868
+7869
+7870
+7871
+7872
+7873
+7874
+7875
+7876
+7877
+7878
+7879
+7880
+7881
+7882
+7883
+7884
+7885
+7886
+7887
+7888
+7889
+7890
+7891
+7892
+7893
+7894
+7895
+7896
+7897
+7898
+7899
+7900
+7901
+7902
+7903
+7904
+7905
+7906
+7907
+7908
+7909
+7910
+7911
+7912
+7913
+7914
+7915
+7916
+7917
+7918
+7919
+7920
+7921
+7922
+7923
+7924
+7925
+7926
+7927
+7928
+7929
+7930
+7931
+7932
+7933
+7934
+7935
+7944
+7952
+7958
+7968
+7976
+7984
+7992
+8000
+8006
+8016
+8024
+8032
+8040
+8048
+8062
+8064
+8072
+8080
+8088
+8096
+8104
+8112
+8117
+8118
+8120
+8126
+8127
+8130
+8133
+8134
+8136
+8144
+8148
+8150
+8152
+8160
+8168
+8178
+8181
+8182
+8184
+8305
+8306
+8319
+8320
+8336
+8349
+8458
+8459
+8462
+8464
+8467
+8468
+8495
+8496
+8500
+8501
+8505
+8506
+8508
+8510
+8518
+8522
+8526
+8527
+8560
+8576
+8580
+8581
+9424
+9450
+11312
+11359
+11361
+11362
+11365
+11367
+11368
+11369
+11370
+11371
+11372
+11373
+11377
+11378
+11379
+11381
+11382
+11390
+11393
+11394
+11395
+11396
+11397
+11398
+11399
+11400
+11401
+11402
+11403
+11404
+11405
+11406
+11407
+11408
+11409
+11410
+11411
+11412
+11413
+11414
+11415
+11416
+11417
+11418
+11419
+11420
+11421
+11422
+11423
+11424
+11425
+11426
+11427
+11428
+11429
+11430
+11431
+11432
+11433
+11434
+11435
+11436
+11437
+11438
+11439
+11440
+11441
+11442
+11443
+11444
+11445
+11446
+11447
+11448
+11449
+11450
+11451
+11452
+11453
+11454
+11455
+11456
+11457
+11458
+11459
+11460
+11461
+11462
+11463
+11464
+11465
+11466
+11467
+11468
+11469
+11470
+11471
+11472
+11473
+11474
+11475
+11476
+11477
+11478
+11479
+11480
+11481
+11482
+11483
+11484
+11485
+11486
+11487
+11488
+11489
+11490
+11491
+11493
+11500
+11501
+11502
+11503
+11507
+11508
+11520
+11558
+11559
+11560
+11565
+11566
+42561
+42562
+42563
+42564
+42565
+42566
+42567
+42568
+42569
+42570
+42571
+42572
+42573
+42574
+42575
+42576
+42577
+42578
+42579
+42580
+42581
+42582
+42583
+42584
+42585
+42586
+42587
+42588
+42589
+42590
+42591
+42592
+42593
+42594
+42595
+42596
+42597
+42598
+42599
+42600
+42601
+42602
+42603
+42604
+42605
+42606
+42625
+42626
+42627
+42628
+42629
+42630
+42631
+42632
+42633
+42634
+42635
+42636
+42637
+42638
+42639
+42640
+42641
+42642
+42643
+42644
+42645
+42646
+42647
+42648
+42649
+42650
+42651
+42654
+42787
+42788
+42789
+42790
+42791
+42792
+42793
+42794
+42795
+42796
+42797
+42798
+42799
+42802
+42803
+42804
+42805
+42806
+42807
+42808
+42809
+42810
+42811
+42812
+42813
+42814
+42815
+42816
+42817
+42818
+42819
+42820
+42821
+42822
+42823
+42824
+42825
+42826
+42827
+42828
+42829
+42830
+42831
+42832
+42833
+42834
+42835
+42836
+42837
+42838
+42839
+42840
+42841
+42842
+42843
+42844
+42845
+42846
+42847
+42848
+42849
+42850
+42851
+42852
+42853
+42854
+42855
+42856
+42857
+42858
+42859
+42860
+42861
+42862
+42863
+42873
+42874
+42875
+42876
+42877
+42879
+42880
+42881
+42882
+42883
+42884
+42885
+42886
+42887
+42888
+42892
+42893
+42894
+42895
+42897
+42898
+42899
+42902
+42903
+42904
+42905
+42906
+42907
+42908
+42909
+42910
+42911
+42912
+42913
+42914
+42915
+42916
+42917
+42918
+42919
+42920
+42921
+42922
+42933
+42934
+42935
+42936
+43000
+43003
+43824
+43867
+43868
+43878
+43888
+43968
+64256
+64263
+64275
+64280
+65345
+65371
+66600
+66640
+68800
+68851
+71872
+71904
+119834
+119860
+119886
+119893
+119894
+119912
+119938
+119964
+119990
+119994
+119995
+119996
+119997
+120004
+120005
+120016
+120042
+120068
+120094
+120120
+120146
+120172
+120198
+120224
+120250
+120276
+120302
+120328
+120354
+120380
+120406
+120432
+120458
+120486
+120514
+120539
+120540
+120546
+120572
+120597
+120598
+120604
+120630
+120655
+120656
+120662
+120688
+120713
+120714
+120720
+120746
+120771
+120772
+120778
+120779
+120780
+END
diff --git a/lib/5.24.1/unicore/lib/Math/Y.pl b/lib/5.24.1/unicore/lib/Math/Y.pl
new file mode 100644
index 00000000..7ad39c14
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Math/Y.pl
@@ -0,0 +1,290 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V276
+43
+44
+60
+63
+94
+95
+124
+125
+126
+127
+172
+173
+177
+178
+215
+216
+247
+248
+976
+979
+981
+982
+1008
+1010
+1012
+1015
+1542
+1545
+8214
+8215
+8242
+8245
+8256
+8257
+8260
+8261
+8274
+8275
+8289
+8293
+8314
+8319
+8330
+8335
+8400
+8413
+8417
+8418
+8421
+8423
+8427
+8432
+8450
+8451
+8455
+8456
+8458
+8468
+8469
+8470
+8472
+8478
+8484
+8485
+8488
+8490
+8492
+8494
+8495
+8498
+8499
+8505
+8508
+8522
+8523
+8524
+8592
+8616
+8617
+8623
+8624
+8626
+8630
+8632
+8636
+8668
+8669
+8670
+8676
+8678
+8692
+8960
+8968
+8972
+8992
+8994
+9084
+9085
+9115
+9142
+9143
+9144
+9168
+9169
+9180
+9187
+9632
+9634
+9646
+9656
+9660
+9666
+9670
+9672
+9674
+9676
+9679
+9684
+9698
+9699
+9700
+9701
+9703
+9709
+9720
+9728
+9733
+9735
+9792
+9793
+9794
+9795
+9824
+9828
+9837
+9840
+10176
+10240
+10496
+11008
+11056
+11077
+11079
+11085
+64297
+64298
+65121
+65127
+65128
+65129
+65291
+65292
+65308
+65311
+65340
+65341
+65342
+65343
+65372
+65373
+65374
+65375
+65506
+65507
+65513
+65517
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120780
+120782
+120832
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+126704
+126706
+END
diff --git a/lib/5.24.1/unicore/lib/NFCQC/M.pl b/lib/5.24.1/unicore/lib/NFCQC/M.pl
new file mode 100644
index 00000000..7aa485a2
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/NFCQC/M.pl
@@ -0,0 +1,96 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V82
+768
+773
+774
+781
+783
+784
+785
+786
+787
+789
+795
+796
+803
+809
+813
+815
+816
+818
+824
+825
+834
+835
+837
+838
+1619
+1622
+2364
+2365
+2494
+2495
+2519
+2520
+2878
+2879
+2902
+2904
+3006
+3007
+3031
+3032
+3158
+3159
+3266
+3267
+3285
+3287
+3390
+3391
+3415
+3416
+3530
+3531
+3535
+3536
+3551
+3552
+4142
+4143
+4449
+4470
+4520
+4547
+6965
+6966
+12441
+12443
+69818
+69819
+69927
+69928
+70462
+70463
+70487
+70488
+70832
+70833
+70842
+70843
+70845
+70846
+71087
+71088
+END
diff --git a/lib/5.24.1/unicore/lib/NFCQC/Y.pl b/lib/5.24.1/unicore/lib/NFCQC/Y.pl
new file mode 100644
index 00000000..5128241f
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/NFCQC/Y.pl
@@ -0,0 +1,237 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V223
+0
+768
+773
+774
+781
+783
+784
+785
+786
+787
+789
+795
+796
+803
+809
+813
+815
+816
+818
+824
+825
+832
+838
+884
+885
+894
+895
+903
+904
+1619
+1622
+2364
+2365
+2392
+2400
+2494
+2495
+2519
+2520
+2524
+2526
+2527
+2528
+2611
+2612
+2614
+2615
+2649
+2652
+2654
+2655
+2878
+2879
+2902
+2904
+2908
+2910
+3006
+3007
+3031
+3032
+3158
+3159
+3266
+3267
+3285
+3287
+3390
+3391
+3415
+3416
+3530
+3531
+3535
+3536
+3551
+3552
+3907
+3908
+3917
+3918
+3922
+3923
+3927
+3928
+3932
+3933
+3945
+3946
+3955
+3956
+3957
+3959
+3960
+3961
+3969
+3970
+3987
+3988
+3997
+3998
+4002
+4003
+4007
+4008
+4012
+4013
+4025
+4026
+4142
+4143
+4449
+4470
+4520
+4547
+6965
+6966
+8049
+8050
+8051
+8052
+8053
+8054
+8055
+8056
+8057
+8058
+8059
+8060
+8061
+8062
+8123
+8124
+8126
+8127
+8137
+8138
+8139
+8140
+8147
+8148
+8155
+8156
+8163
+8164
+8171
+8172
+8174
+8176
+8185
+8186
+8187
+8188
+8189
+8190
+8192
+8194
+8486
+8487
+8490
+8492
+9001
+9003
+10972
+10973
+12441
+12443
+63744
+64014
+64016
+64017
+64018
+64019
+64021
+64031
+64032
+64033
+64034
+64035
+64037
+64039
+64042
+64110
+64112
+64218
+64285
+64286
+64287
+64288
+64298
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64335
+69818
+69819
+69927
+69928
+70462
+70463
+70487
+70488
+70832
+70833
+70842
+70843
+70845
+70846
+71087
+71088
+119134
+119141
+119227
+119233
+194560
+195102
+END
diff --git a/lib/5.24.1/unicore/lib/NFDQC/N.pl b/lib/5.24.1/unicore/lib/NFDQC/N.pl
new file mode 100644
index 00000000..d6abde87
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/NFDQC/N.pl
@@ -0,0 +1,476 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V462
+192
+198
+199
+208
+209
+215
+217
+222
+224
+230
+231
+240
+241
+247
+249
+254
+255
+272
+274
+294
+296
+305
+308
+312
+313
+319
+323
+329
+332
+338
+340
+358
+360
+383
+416
+418
+431
+433
+461
+477
+478
+484
+486
+497
+500
+502
+504
+540
+542
+544
+550
+564
+832
+834
+835
+837
+884
+885
+894
+895
+901
+907
+908
+909
+910
+913
+938
+945
+970
+975
+979
+981
+1024
+1026
+1027
+1028
+1031
+1032
+1036
+1039
+1049
+1050
+1081
+1082
+1104
+1106
+1107
+1108
+1111
+1112
+1116
+1119
+1142
+1144
+1217
+1219
+1232
+1236
+1238
+1240
+1242
+1248
+1250
+1256
+1258
+1270
+1272
+1274
+1570
+1575
+1728
+1729
+1730
+1731
+1747
+1748
+2345
+2346
+2353
+2354
+2356
+2357
+2392
+2400
+2507
+2509
+2524
+2526
+2527
+2528
+2611
+2612
+2614
+2615
+2649
+2652
+2654
+2655
+2888
+2889
+2891
+2893
+2908
+2910
+2964
+2965
+3018
+3021
+3144
+3145
+3264
+3265
+3271
+3273
+3274
+3276
+3402
+3405
+3546
+3547
+3548
+3551
+3907
+3908
+3917
+3918
+3922
+3923
+3927
+3928
+3932
+3933
+3945
+3946
+3955
+3956
+3957
+3959
+3960
+3961
+3969
+3970
+3987
+3988
+3997
+3998
+4002
+4003
+4007
+4008
+4012
+4013
+4025
+4026
+4134
+4135
+6918
+6919
+6920
+6921
+6922
+6923
+6924
+6925
+6926
+6927
+6930
+6931
+6971
+6972
+6973
+6974
+6976
+6978
+6979
+6980
+7680
+7834
+7835
+7836
+7840
+7930
+7936
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8125
+8126
+8127
+8129
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8190
+8192
+8194
+8486
+8487
+8490
+8492
+8602
+8604
+8622
+8623
+8653
+8656
+8708
+8709
+8713
+8714
+8716
+8717
+8740
+8741
+8742
+8743
+8769
+8770
+8772
+8773
+8775
+8776
+8777
+8778
+8800
+8801
+8802
+8803
+8813
+8818
+8820
+8822
+8824
+8826
+8832
+8834
+8836
+8838
+8840
+8842
+8876
+8880
+8928
+8932
+8938
+8942
+9001
+9003
+10972
+10973
+12364
+12365
+12366
+12367
+12368
+12369
+12370
+12371
+12372
+12373
+12374
+12375
+12376
+12377
+12378
+12379
+12380
+12381
+12382
+12383
+12384
+12385
+12386
+12387
+12389
+12390
+12391
+12392
+12393
+12394
+12400
+12402
+12403
+12405
+12406
+12408
+12409
+12411
+12412
+12414
+12436
+12437
+12446
+12447
+12460
+12461
+12462
+12463
+12464
+12465
+12466
+12467
+12468
+12469
+12470
+12471
+12472
+12473
+12474
+12475
+12476
+12477
+12478
+12479
+12480
+12481
+12482
+12483
+12485
+12486
+12487
+12488
+12489
+12490
+12496
+12498
+12499
+12501
+12502
+12504
+12505
+12507
+12508
+12510
+12532
+12533
+12535
+12539
+12542
+12543
+44032
+55204
+63744
+64014
+64016
+64017
+64018
+64019
+64021
+64031
+64032
+64033
+64034
+64035
+64037
+64039
+64042
+64110
+64112
+64218
+64285
+64286
+64287
+64288
+64298
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64335
+69786
+69787
+69788
+69789
+69803
+69804
+69934
+69936
+70475
+70477
+70843
+70845
+70846
+70847
+71098
+71100
+119134
+119141
+119227
+119233
+194560
+195102
+END
diff --git a/lib/5.24.1/unicore/lib/NFDQC/Y.pl b/lib/5.24.1/unicore/lib/NFDQC/Y.pl
new file mode 100644
index 00000000..4ce75183
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/NFDQC/Y.pl
@@ -0,0 +1,477 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V463
+0
+192
+198
+199
+208
+209
+215
+217
+222
+224
+230
+231
+240
+241
+247
+249
+254
+255
+272
+274
+294
+296
+305
+308
+312
+313
+319
+323
+329
+332
+338
+340
+358
+360
+383
+416
+418
+431
+433
+461
+477
+478
+484
+486
+497
+500
+502
+504
+540
+542
+544
+550
+564
+832
+834
+835
+837
+884
+885
+894
+895
+901
+907
+908
+909
+910
+913
+938
+945
+970
+975
+979
+981
+1024
+1026
+1027
+1028
+1031
+1032
+1036
+1039
+1049
+1050
+1081
+1082
+1104
+1106
+1107
+1108
+1111
+1112
+1116
+1119
+1142
+1144
+1217
+1219
+1232
+1236
+1238
+1240
+1242
+1248
+1250
+1256
+1258
+1270
+1272
+1274
+1570
+1575
+1728
+1729
+1730
+1731
+1747
+1748
+2345
+2346
+2353
+2354
+2356
+2357
+2392
+2400
+2507
+2509
+2524
+2526
+2527
+2528
+2611
+2612
+2614
+2615
+2649
+2652
+2654
+2655
+2888
+2889
+2891
+2893
+2908
+2910
+2964
+2965
+3018
+3021
+3144
+3145
+3264
+3265
+3271
+3273
+3274
+3276
+3402
+3405
+3546
+3547
+3548
+3551
+3907
+3908
+3917
+3918
+3922
+3923
+3927
+3928
+3932
+3933
+3945
+3946
+3955
+3956
+3957
+3959
+3960
+3961
+3969
+3970
+3987
+3988
+3997
+3998
+4002
+4003
+4007
+4008
+4012
+4013
+4025
+4026
+4134
+4135
+6918
+6919
+6920
+6921
+6922
+6923
+6924
+6925
+6926
+6927
+6930
+6931
+6971
+6972
+6973
+6974
+6976
+6978
+6979
+6980
+7680
+7834
+7835
+7836
+7840
+7930
+7936
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8125
+8126
+8127
+8129
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8190
+8192
+8194
+8486
+8487
+8490
+8492
+8602
+8604
+8622
+8623
+8653
+8656
+8708
+8709
+8713
+8714
+8716
+8717
+8740
+8741
+8742
+8743
+8769
+8770
+8772
+8773
+8775
+8776
+8777
+8778
+8800
+8801
+8802
+8803
+8813
+8818
+8820
+8822
+8824
+8826
+8832
+8834
+8836
+8838
+8840
+8842
+8876
+8880
+8928
+8932
+8938
+8942
+9001
+9003
+10972
+10973
+12364
+12365
+12366
+12367
+12368
+12369
+12370
+12371
+12372
+12373
+12374
+12375
+12376
+12377
+12378
+12379
+12380
+12381
+12382
+12383
+12384
+12385
+12386
+12387
+12389
+12390
+12391
+12392
+12393
+12394
+12400
+12402
+12403
+12405
+12406
+12408
+12409
+12411
+12412
+12414
+12436
+12437
+12446
+12447
+12460
+12461
+12462
+12463
+12464
+12465
+12466
+12467
+12468
+12469
+12470
+12471
+12472
+12473
+12474
+12475
+12476
+12477
+12478
+12479
+12480
+12481
+12482
+12483
+12485
+12486
+12487
+12488
+12489
+12490
+12496
+12498
+12499
+12501
+12502
+12504
+12505
+12507
+12508
+12510
+12532
+12533
+12535
+12539
+12542
+12543
+44032
+55204
+63744
+64014
+64016
+64017
+64018
+64019
+64021
+64031
+64032
+64033
+64034
+64035
+64037
+64039
+64042
+64110
+64112
+64218
+64285
+64286
+64287
+64288
+64298
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64335
+69786
+69787
+69788
+69789
+69803
+69804
+69934
+69936
+70475
+70477
+70843
+70845
+70846
+70847
+71098
+71100
+119134
+119141
+119227
+119233
+194560
+195102
+END
diff --git a/lib/5.24.1/unicore/lib/NFKCQC/N.pl b/lib/5.24.1/unicore/lib/NFKCQC/N.pl
new file mode 100644
index 00000000..c4cec8f0
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/NFKCQC/N.pl
@@ -0,0 +1,512 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V498
+160
+161
+168
+169
+170
+171
+175
+176
+178
+182
+184
+187
+188
+191
+306
+308
+319
+321
+329
+330
+383
+384
+452
+461
+497
+500
+688
+697
+728
+734
+736
+741
+832
+834
+835
+837
+884
+885
+890
+891
+894
+895
+900
+902
+903
+904
+976
+983
+1008
+1011
+1012
+1014
+1017
+1018
+1415
+1416
+1653
+1657
+2392
+2400
+2524
+2526
+2527
+2528
+2611
+2612
+2614
+2615
+2649
+2652
+2654
+2655
+2908
+2910
+3635
+3636
+3763
+3764
+3804
+3806
+3852
+3853
+3907
+3908
+3917
+3918
+3922
+3923
+3927
+3928
+3932
+3933
+3945
+3946
+3955
+3956
+3957
+3962
+3969
+3970
+3987
+3988
+3997
+3998
+4002
+4003
+4007
+4008
+4012
+4013
+4025
+4026
+4348
+4349
+7468
+7471
+7472
+7483
+7484
+7502
+7503
+7531
+7544
+7545
+7579
+7616
+7834
+7836
+8049
+8050
+8051
+8052
+8053
+8054
+8055
+8056
+8057
+8058
+8059
+8060
+8061
+8062
+8123
+8124
+8125
+8130
+8137
+8138
+8139
+8140
+8141
+8144
+8147
+8148
+8155
+8156
+8157
+8160
+8163
+8164
+8171
+8172
+8173
+8176
+8185
+8186
+8187
+8188
+8189
+8191
+8192
+8203
+8209
+8210
+8215
+8216
+8228
+8231
+8239
+8240
+8243
+8245
+8246
+8248
+8252
+8253
+8254
+8255
+8263
+8266
+8279
+8280
+8287
+8288
+8304
+8306
+8308
+8335
+8336
+8349
+8360
+8361
+8448
+8452
+8453
+8456
+8457
+8468
+8469
+8471
+8473
+8478
+8480
+8483
+8484
+8485
+8486
+8487
+8488
+8489
+8490
+8494
+8495
+8498
+8499
+8506
+8507
+8513
+8517
+8522
+8528
+8576
+8585
+8586
+8748
+8750
+8751
+8753
+9001
+9003
+9312
+9451
+10764
+10765
+10868
+10871
+10972
+10973
+11388
+11390
+11631
+11632
+11935
+11936
+12019
+12020
+12032
+12246
+12288
+12289
+12342
+12343
+12344
+12347
+12443
+12445
+12447
+12448
+12543
+12544
+12593
+12687
+12690
+12704
+12800
+12831
+12832
+12872
+12880
+12927
+12928
+13055
+13056
+13312
+42652
+42654
+42864
+42865
+43000
+43002
+43868
+43872
+63744
+64014
+64016
+64017
+64018
+64019
+64021
+64031
+64032
+64033
+64034
+64035
+64037
+64039
+64042
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64286
+64287
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64434
+64467
+64830
+64848
+64912
+64914
+64968
+65008
+65021
+65040
+65050
+65072
+65093
+65095
+65107
+65108
+65127
+65128
+65132
+65136
+65139
+65140
+65141
+65142
+65277
+65281
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+119134
+119141
+119227
+119233
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120780
+120782
+120832
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+127232
+127243
+127248
+127279
+127280
+127312
+127338
+127340
+127376
+127377
+127488
+127491
+127504
+127547
+127552
+127561
+127568
+127570
+194560
+195102
+END
diff --git a/lib/5.24.1/unicore/lib/NFKCQC/Y.pl b/lib/5.24.1/unicore/lib/NFKCQC/Y.pl
new file mode 100644
index 00000000..c3671e6e
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/NFKCQC/Y.pl
@@ -0,0 +1,587 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V573
+0
+160
+161
+168
+169
+170
+171
+175
+176
+178
+182
+184
+187
+188
+191
+306
+308
+319
+321
+329
+330
+383
+384
+452
+461
+497
+500
+688
+697
+728
+734
+736
+741
+768
+773
+774
+781
+783
+784
+785
+786
+787
+789
+795
+796
+803
+809
+813
+815
+816
+818
+824
+825
+832
+838
+884
+885
+890
+891
+894
+895
+900
+902
+903
+904
+976
+983
+1008
+1011
+1012
+1014
+1017
+1018
+1415
+1416
+1619
+1622
+1653
+1657
+2364
+2365
+2392
+2400
+2494
+2495
+2519
+2520
+2524
+2526
+2527
+2528
+2611
+2612
+2614
+2615
+2649
+2652
+2654
+2655
+2878
+2879
+2902
+2904
+2908
+2910
+3006
+3007
+3031
+3032
+3158
+3159
+3266
+3267
+3285
+3287
+3390
+3391
+3415
+3416
+3530
+3531
+3535
+3536
+3551
+3552
+3635
+3636
+3763
+3764
+3804
+3806
+3852
+3853
+3907
+3908
+3917
+3918
+3922
+3923
+3927
+3928
+3932
+3933
+3945
+3946
+3955
+3956
+3957
+3962
+3969
+3970
+3987
+3988
+3997
+3998
+4002
+4003
+4007
+4008
+4012
+4013
+4025
+4026
+4142
+4143
+4348
+4349
+4449
+4470
+4520
+4547
+6965
+6966
+7468
+7471
+7472
+7483
+7484
+7502
+7503
+7531
+7544
+7545
+7579
+7616
+7834
+7836
+8049
+8050
+8051
+8052
+8053
+8054
+8055
+8056
+8057
+8058
+8059
+8060
+8061
+8062
+8123
+8124
+8125
+8130
+8137
+8138
+8139
+8140
+8141
+8144
+8147
+8148
+8155
+8156
+8157
+8160
+8163
+8164
+8171
+8172
+8173
+8176
+8185
+8186
+8187
+8188
+8189
+8191
+8192
+8203
+8209
+8210
+8215
+8216
+8228
+8231
+8239
+8240
+8243
+8245
+8246
+8248
+8252
+8253
+8254
+8255
+8263
+8266
+8279
+8280
+8287
+8288
+8304
+8306
+8308
+8335
+8336
+8349
+8360
+8361
+8448
+8452
+8453
+8456
+8457
+8468
+8469
+8471
+8473
+8478
+8480
+8483
+8484
+8485
+8486
+8487
+8488
+8489
+8490
+8494
+8495
+8498
+8499
+8506
+8507
+8513
+8517
+8522
+8528
+8576
+8585
+8586
+8748
+8750
+8751
+8753
+9001
+9003
+9312
+9451
+10764
+10765
+10868
+10871
+10972
+10973
+11388
+11390
+11631
+11632
+11935
+11936
+12019
+12020
+12032
+12246
+12288
+12289
+12342
+12343
+12344
+12347
+12441
+12445
+12447
+12448
+12543
+12544
+12593
+12687
+12690
+12704
+12800
+12831
+12832
+12872
+12880
+12927
+12928
+13055
+13056
+13312
+42652
+42654
+42864
+42865
+43000
+43002
+43868
+43872
+63744
+64014
+64016
+64017
+64018
+64019
+64021
+64031
+64032
+64033
+64034
+64035
+64037
+64039
+64042
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64286
+64287
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64434
+64467
+64830
+64848
+64912
+64914
+64968
+65008
+65021
+65040
+65050
+65072
+65093
+65095
+65107
+65108
+65127
+65128
+65132
+65136
+65139
+65140
+65141
+65142
+65277
+65281
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+69818
+69819
+69927
+69928
+70462
+70463
+70487
+70488
+70832
+70833
+70842
+70843
+70845
+70846
+71087
+71088
+119134
+119141
+119227
+119233
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120780
+120782
+120832
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+127232
+127243
+127248
+127279
+127280
+127312
+127338
+127340
+127376
+127377
+127488
+127491
+127504
+127547
+127552
+127561
+127568
+127570
+194560
+195102
+END
diff --git a/lib/5.24.1/unicore/lib/NFKDQC/N.pl b/lib/5.24.1/unicore/lib/NFKDQC/N.pl
new file mode 100644
index 00000000..d889765a
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/NFKDQC/N.pl
@@ -0,0 +1,794 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V780
+160
+161
+168
+169
+170
+171
+175
+176
+178
+182
+184
+187
+188
+191
+192
+198
+199
+208
+209
+215
+217
+222
+224
+230
+231
+240
+241
+247
+249
+254
+255
+272
+274
+294
+296
+305
+306
+312
+313
+321
+323
+330
+332
+338
+340
+358
+360
+384
+416
+418
+431
+433
+452
+477
+478
+484
+486
+502
+504
+540
+542
+544
+550
+564
+688
+697
+728
+734
+736
+741
+832
+834
+835
+837
+884
+885
+890
+891
+894
+895
+900
+907
+908
+909
+910
+913
+938
+945
+970
+975
+976
+983
+1008
+1011
+1012
+1014
+1017
+1018
+1024
+1026
+1027
+1028
+1031
+1032
+1036
+1039
+1049
+1050
+1081
+1082
+1104
+1106
+1107
+1108
+1111
+1112
+1116
+1119
+1142
+1144
+1217
+1219
+1232
+1236
+1238
+1240
+1242
+1248
+1250
+1256
+1258
+1270
+1272
+1274
+1415
+1416
+1570
+1575
+1653
+1657
+1728
+1729
+1730
+1731
+1747
+1748
+2345
+2346
+2353
+2354
+2356
+2357
+2392
+2400
+2507
+2509
+2524
+2526
+2527
+2528
+2611
+2612
+2614
+2615
+2649
+2652
+2654
+2655
+2888
+2889
+2891
+2893
+2908
+2910
+2964
+2965
+3018
+3021
+3144
+3145
+3264
+3265
+3271
+3273
+3274
+3276
+3402
+3405
+3546
+3547
+3548
+3551
+3635
+3636
+3763
+3764
+3804
+3806
+3852
+3853
+3907
+3908
+3917
+3918
+3922
+3923
+3927
+3928
+3932
+3933
+3945
+3946
+3955
+3956
+3957
+3962
+3969
+3970
+3987
+3988
+3997
+3998
+4002
+4003
+4007
+4008
+4012
+4013
+4025
+4026
+4134
+4135
+4348
+4349
+6918
+6919
+6920
+6921
+6922
+6923
+6924
+6925
+6926
+6927
+6930
+6931
+6971
+6972
+6973
+6974
+6976
+6978
+6979
+6980
+7468
+7471
+7472
+7483
+7484
+7502
+7503
+7531
+7544
+7545
+7579
+7616
+7680
+7836
+7840
+7930
+7936
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8191
+8192
+8203
+8209
+8210
+8215
+8216
+8228
+8231
+8239
+8240
+8243
+8245
+8246
+8248
+8252
+8253
+8254
+8255
+8263
+8266
+8279
+8280
+8287
+8288
+8304
+8306
+8308
+8335
+8336
+8349
+8360
+8361
+8448
+8452
+8453
+8456
+8457
+8468
+8469
+8471
+8473
+8478
+8480
+8483
+8484
+8485
+8486
+8487
+8488
+8489
+8490
+8494
+8495
+8498
+8499
+8506
+8507
+8513
+8517
+8522
+8528
+8576
+8585
+8586
+8602
+8604
+8622
+8623
+8653
+8656
+8708
+8709
+8713
+8714
+8716
+8717
+8740
+8741
+8742
+8743
+8748
+8750
+8751
+8753
+8769
+8770
+8772
+8773
+8775
+8776
+8777
+8778
+8800
+8801
+8802
+8803
+8813
+8818
+8820
+8822
+8824
+8826
+8832
+8834
+8836
+8838
+8840
+8842
+8876
+8880
+8928
+8932
+8938
+8942
+9001
+9003
+9312
+9451
+10764
+10765
+10868
+10871
+10972
+10973
+11388
+11390
+11631
+11632
+11935
+11936
+12019
+12020
+12032
+12246
+12288
+12289
+12342
+12343
+12344
+12347
+12364
+12365
+12366
+12367
+12368
+12369
+12370
+12371
+12372
+12373
+12374
+12375
+12376
+12377
+12378
+12379
+12380
+12381
+12382
+12383
+12384
+12385
+12386
+12387
+12389
+12390
+12391
+12392
+12393
+12394
+12400
+12402
+12403
+12405
+12406
+12408
+12409
+12411
+12412
+12414
+12436
+12437
+12443
+12445
+12446
+12448
+12460
+12461
+12462
+12463
+12464
+12465
+12466
+12467
+12468
+12469
+12470
+12471
+12472
+12473
+12474
+12475
+12476
+12477
+12478
+12479
+12480
+12481
+12482
+12483
+12485
+12486
+12487
+12488
+12489
+12490
+12496
+12498
+12499
+12501
+12502
+12504
+12505
+12507
+12508
+12510
+12532
+12533
+12535
+12539
+12542
+12544
+12593
+12687
+12690
+12704
+12800
+12831
+12832
+12872
+12880
+12927
+12928
+13055
+13056
+13312
+42652
+42654
+42864
+42865
+43000
+43002
+43868
+43872
+44032
+55204
+63744
+64014
+64016
+64017
+64018
+64019
+64021
+64031
+64032
+64033
+64034
+64035
+64037
+64039
+64042
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64286
+64287
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64434
+64467
+64830
+64848
+64912
+64914
+64968
+65008
+65021
+65040
+65050
+65072
+65093
+65095
+65107
+65108
+65127
+65128
+65132
+65136
+65139
+65140
+65141
+65142
+65277
+65281
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+69786
+69787
+69788
+69789
+69803
+69804
+69934
+69936
+70475
+70477
+70843
+70845
+70846
+70847
+71098
+71100
+119134
+119141
+119227
+119233
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120780
+120782
+120832
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+127232
+127243
+127248
+127279
+127280
+127312
+127338
+127340
+127376
+127377
+127488
+127491
+127504
+127547
+127552
+127561
+127568
+127570
+194560
+195102
+END
diff --git a/lib/5.24.1/unicore/lib/NFKDQC/Y.pl b/lib/5.24.1/unicore/lib/NFKDQC/Y.pl
new file mode 100644
index 00000000..01a88766
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/NFKDQC/Y.pl
@@ -0,0 +1,795 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V781
+0
+160
+161
+168
+169
+170
+171
+175
+176
+178
+182
+184
+187
+188
+191
+192
+198
+199
+208
+209
+215
+217
+222
+224
+230
+231
+240
+241
+247
+249
+254
+255
+272
+274
+294
+296
+305
+306
+312
+313
+321
+323
+330
+332
+338
+340
+358
+360
+384
+416
+418
+431
+433
+452
+477
+478
+484
+486
+502
+504
+540
+542
+544
+550
+564
+688
+697
+728
+734
+736
+741
+832
+834
+835
+837
+884
+885
+890
+891
+894
+895
+900
+907
+908
+909
+910
+913
+938
+945
+970
+975
+976
+983
+1008
+1011
+1012
+1014
+1017
+1018
+1024
+1026
+1027
+1028
+1031
+1032
+1036
+1039
+1049
+1050
+1081
+1082
+1104
+1106
+1107
+1108
+1111
+1112
+1116
+1119
+1142
+1144
+1217
+1219
+1232
+1236
+1238
+1240
+1242
+1248
+1250
+1256
+1258
+1270
+1272
+1274
+1415
+1416
+1570
+1575
+1653
+1657
+1728
+1729
+1730
+1731
+1747
+1748
+2345
+2346
+2353
+2354
+2356
+2357
+2392
+2400
+2507
+2509
+2524
+2526
+2527
+2528
+2611
+2612
+2614
+2615
+2649
+2652
+2654
+2655
+2888
+2889
+2891
+2893
+2908
+2910
+2964
+2965
+3018
+3021
+3144
+3145
+3264
+3265
+3271
+3273
+3274
+3276
+3402
+3405
+3546
+3547
+3548
+3551
+3635
+3636
+3763
+3764
+3804
+3806
+3852
+3853
+3907
+3908
+3917
+3918
+3922
+3923
+3927
+3928
+3932
+3933
+3945
+3946
+3955
+3956
+3957
+3962
+3969
+3970
+3987
+3988
+3997
+3998
+4002
+4003
+4007
+4008
+4012
+4013
+4025
+4026
+4134
+4135
+4348
+4349
+6918
+6919
+6920
+6921
+6922
+6923
+6924
+6925
+6926
+6927
+6930
+6931
+6971
+6972
+6973
+6974
+6976
+6978
+6979
+6980
+7468
+7471
+7472
+7483
+7484
+7502
+7503
+7531
+7544
+7545
+7579
+7616
+7680
+7836
+7840
+7930
+7936
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8191
+8192
+8203
+8209
+8210
+8215
+8216
+8228
+8231
+8239
+8240
+8243
+8245
+8246
+8248
+8252
+8253
+8254
+8255
+8263
+8266
+8279
+8280
+8287
+8288
+8304
+8306
+8308
+8335
+8336
+8349
+8360
+8361
+8448
+8452
+8453
+8456
+8457
+8468
+8469
+8471
+8473
+8478
+8480
+8483
+8484
+8485
+8486
+8487
+8488
+8489
+8490
+8494
+8495
+8498
+8499
+8506
+8507
+8513
+8517
+8522
+8528
+8576
+8585
+8586
+8602
+8604
+8622
+8623
+8653
+8656
+8708
+8709
+8713
+8714
+8716
+8717
+8740
+8741
+8742
+8743
+8748
+8750
+8751
+8753
+8769
+8770
+8772
+8773
+8775
+8776
+8777
+8778
+8800
+8801
+8802
+8803
+8813
+8818
+8820
+8822
+8824
+8826
+8832
+8834
+8836
+8838
+8840
+8842
+8876
+8880
+8928
+8932
+8938
+8942
+9001
+9003
+9312
+9451
+10764
+10765
+10868
+10871
+10972
+10973
+11388
+11390
+11631
+11632
+11935
+11936
+12019
+12020
+12032
+12246
+12288
+12289
+12342
+12343
+12344
+12347
+12364
+12365
+12366
+12367
+12368
+12369
+12370
+12371
+12372
+12373
+12374
+12375
+12376
+12377
+12378
+12379
+12380
+12381
+12382
+12383
+12384
+12385
+12386
+12387
+12389
+12390
+12391
+12392
+12393
+12394
+12400
+12402
+12403
+12405
+12406
+12408
+12409
+12411
+12412
+12414
+12436
+12437
+12443
+12445
+12446
+12448
+12460
+12461
+12462
+12463
+12464
+12465
+12466
+12467
+12468
+12469
+12470
+12471
+12472
+12473
+12474
+12475
+12476
+12477
+12478
+12479
+12480
+12481
+12482
+12483
+12485
+12486
+12487
+12488
+12489
+12490
+12496
+12498
+12499
+12501
+12502
+12504
+12505
+12507
+12508
+12510
+12532
+12533
+12535
+12539
+12542
+12544
+12593
+12687
+12690
+12704
+12800
+12831
+12832
+12872
+12880
+12927
+12928
+13055
+13056
+13312
+42652
+42654
+42864
+42865
+43000
+43002
+43868
+43872
+44032
+55204
+63744
+64014
+64016
+64017
+64018
+64019
+64021
+64031
+64032
+64033
+64034
+64035
+64037
+64039
+64042
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64286
+64287
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64434
+64467
+64830
+64848
+64912
+64914
+64968
+65008
+65021
+65040
+65050
+65072
+65093
+65095
+65107
+65108
+65127
+65128
+65132
+65136
+65139
+65140
+65141
+65142
+65277
+65281
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+69786
+69787
+69788
+69789
+69803
+69804
+69934
+69936
+70475
+70477
+70843
+70845
+70846
+70847
+71098
+71100
+119134
+119141
+119227
+119233
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120780
+120782
+120832
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+127232
+127243
+127248
+127279
+127280
+127312
+127338
+127340
+127376
+127377
+127488
+127491
+127504
+127547
+127552
+127561
+127568
+127570
+194560
+195102
+END
diff --git a/lib/5.24.1/unicore/lib/Nt/Di.pl b/lib/5.24.1/unicore/lib/Nt/Di.pl
new file mode 100644
index 00000000..c49e9a1f
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Nt/Di.pl
@@ -0,0 +1,54 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V40
+178
+180
+185
+186
+4969
+4978
+6618
+6619
+8304
+8305
+8308
+8314
+8320
+8330
+9312
+9321
+9332
+9341
+9352
+9361
+9450
+9451
+9461
+9470
+9471
+9472
+10102
+10111
+10112
+10121
+10122
+10131
+68160
+68164
+69216
+69225
+69714
+69723
+127232
+127243
+END
diff --git a/lib/5.24.1/unicore/lib/Nt/None.pl b/lib/5.24.1/unicore/lib/Nt/None.pl
new file mode 100644
index 00000000..76846242
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Nt/None.pl
@@ -0,0 +1,381 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V367
+0
+48
+58
+178
+180
+185
+186
+188
+191
+1632
+1642
+1776
+1786
+1984
+1994
+2406
+2416
+2534
+2544
+2548
+2554
+2662
+2672
+2790
+2800
+2918
+2928
+2930
+2936
+3046
+3059
+3174
+3184
+3192
+3199
+3302
+3312
+3430
+3446
+3558
+3568
+3664
+3674
+3792
+3802
+3872
+3892
+4160
+4170
+4240
+4250
+4969
+4989
+5870
+5873
+6112
+6122
+6128
+6138
+6160
+6170
+6470
+6480
+6608
+6619
+6784
+6794
+6800
+6810
+6992
+7002
+7088
+7098
+7232
+7242
+7248
+7258
+8304
+8305
+8308
+8314
+8320
+8330
+8528
+8579
+8581
+8586
+9312
+9372
+9450
+9472
+10102
+10132
+11517
+11518
+12295
+12296
+12321
+12330
+12344
+12347
+12690
+12694
+12832
+12842
+12872
+12880
+12881
+12896
+12928
+12938
+12977
+12992
+13317
+13318
+13443
+13444
+14378
+14379
+15181
+15182
+19968
+19969
+19971
+19972
+19975
+19976
+19977
+19978
+20061
+20062
+20108
+20109
+20116
+20117
+20118
+20119
+20159
+20161
+20191
+20192
+20200
+20201
+20237
+20238
+20336
+20337
+20740
+20741
+20806
+20807
+20841
+20842
+20843
+20844
+20845
+20846
+21313
+21314
+21315
+21318
+21324
+21325
+21441
+21445
+22235
+22236
+22769
+22770
+22777
+22778
+24186
+24187
+24318
+24320
+24332
+24335
+24336
+24337
+25342
+25343
+25420
+25421
+26578
+26579
+28422
+28423
+29590
+29591
+30334
+30335
+32902
+32903
+33836
+33837
+36014
+36015
+36019
+36020
+36144
+36145
+38433
+38434
+38470
+38471
+38476
+38477
+38520
+38521
+38646
+38647
+42528
+42538
+42726
+42736
+43056
+43062
+43216
+43226
+43264
+43274
+43472
+43482
+43504
+43514
+43600
+43610
+44016
+44026
+63851
+63852
+63859
+63860
+63864
+63865
+63922
+63923
+63953
+63954
+63955
+63956
+63997
+63998
+65296
+65306
+65799
+65844
+65856
+65913
+65930
+65932
+66273
+66300
+66336
+66340
+66369
+66370
+66378
+66379
+66513
+66518
+66720
+66730
+67672
+67680
+67705
+67712
+67751
+67760
+67835
+67840
+67862
+67868
+68028
+68030
+68032
+68048
+68050
+68096
+68160
+68168
+68221
+68223
+68253
+68256
+68331
+68336
+68440
+68448
+68472
+68480
+68521
+68528
+68858
+68864
+69216
+69247
+69714
+69744
+69872
+69882
+69942
+69952
+70096
+70106
+70113
+70133
+70384
+70394
+70864
+70874
+71248
+71258
+71360
+71370
+71472
+71484
+71904
+71923
+74752
+74863
+92768
+92778
+93008
+93018
+93019
+93026
+119648
+119666
+120782
+120832
+125127
+125136
+127232
+127245
+131073
+131074
+131172
+131173
+131298
+131299
+131361
+131362
+133418
+133419
+133507
+133508
+133516
+133517
+133532
+133533
+133866
+133867
+133885
+133886
+133913
+133914
+140176
+140177
+141720
+141721
+146203
+146204
+156269
+156270
+194704
+194705
+END
diff --git a/lib/5.24.1/unicore/lib/Nt/Nu.pl b/lib/5.24.1/unicore/lib/Nt/Nu.pl
new file mode 100644
index 00000000..46c48551
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Nt/Nu.pl
@@ -0,0 +1,290 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V276
+188
+191
+2548
+2554
+2930
+2936
+3056
+3059
+3192
+3199
+3440
+3446
+3882
+3892
+4978
+4989
+5870
+5873
+6128
+6138
+8528
+8579
+8581
+8586
+9321
+9332
+9341
+9352
+9361
+9372
+9451
+9461
+9470
+9471
+10111
+10112
+10121
+10122
+10131
+10132
+11517
+11518
+12295
+12296
+12321
+12330
+12344
+12347
+12690
+12694
+12832
+12842
+12872
+12880
+12881
+12896
+12928
+12938
+12977
+12992
+13317
+13318
+13443
+13444
+14378
+14379
+15181
+15182
+19968
+19969
+19971
+19972
+19975
+19976
+19977
+19978
+20061
+20062
+20108
+20109
+20116
+20117
+20118
+20119
+20159
+20161
+20191
+20192
+20200
+20201
+20237
+20238
+20336
+20337
+20740
+20741
+20806
+20807
+20841
+20842
+20843
+20844
+20845
+20846
+21313
+21314
+21315
+21318
+21324
+21325
+21441
+21445
+22235
+22236
+22769
+22770
+22777
+22778
+24186
+24187
+24318
+24320
+24332
+24335
+24336
+24337
+25342
+25343
+25420
+25421
+26578
+26579
+28422
+28423
+29590
+29591
+30334
+30335
+32902
+32903
+33836
+33837
+36014
+36015
+36019
+36020
+36144
+36145
+38433
+38434
+38470
+38471
+38476
+38477
+38520
+38521
+38646
+38647
+42726
+42736
+43056
+43062
+63851
+63852
+63859
+63860
+63864
+63865
+63922
+63923
+63953
+63954
+63955
+63956
+63997
+63998
+65799
+65844
+65856
+65913
+65930
+65932
+66273
+66300
+66336
+66340
+66369
+66370
+66378
+66379
+66513
+66518
+67672
+67680
+67705
+67712
+67751
+67760
+67835
+67840
+67862
+67868
+68028
+68030
+68032
+68048
+68050
+68096
+68164
+68168
+68221
+68223
+68253
+68256
+68331
+68336
+68440
+68448
+68472
+68480
+68521
+68528
+68858
+68864
+69225
+69247
+69723
+69734
+70113
+70133
+71482
+71484
+71914
+71923
+74752
+74863
+93019
+93026
+119648
+119666
+125127
+125136
+127243
+127245
+131073
+131074
+131172
+131173
+131298
+131299
+131361
+131362
+133418
+133419
+133507
+133508
+133516
+133517
+133532
+133533
+133866
+133867
+133885
+133886
+133913
+133914
+140176
+140177
+141720
+141721
+146203
+146204
+156269
+156270
+194704
+194705
+END
diff --git a/lib/5.24.1/unicore/lib/Nv/0.pl b/lib/5.24.1/unicore/lib/Nv/0.pl
new file mode 100644
index 00000000..4695f8c8
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Nv/0.pl
@@ -0,0 +1,152 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V138
+48
+49
+1632
+1633
+1776
+1777
+1984
+1985
+2406
+2407
+2534
+2535
+2662
+2663
+2790
+2791
+2918
+2919
+3046
+3047
+3174
+3175
+3192
+3193
+3302
+3303
+3430
+3431
+3558
+3559
+3664
+3665
+3792
+3793
+3872
+3873
+4160
+4161
+4240
+4241
+6112
+6113
+6128
+6129
+6160
+6161
+6470
+6471
+6608
+6609
+6784
+6785
+6800
+6801
+6992
+6993
+7088
+7089
+7232
+7233
+7248
+7249
+8304
+8305
+8320
+8321
+8585
+8586
+9450
+9451
+9471
+9472
+12295
+12296
+38646
+38647
+42528
+42529
+42735
+42736
+43216
+43217
+43264
+43265
+43472
+43473
+43504
+43505
+43600
+43601
+44016
+44017
+63922
+63923
+65296
+65297
+65930
+65931
+66720
+66721
+69734
+69735
+69872
+69873
+69942
+69943
+70096
+70097
+70384
+70385
+70864
+70865
+71248
+71249
+71360
+71361
+71472
+71473
+71904
+71905
+92768
+92769
+93008
+93009
+120782
+120783
+120792
+120793
+120802
+120803
+120812
+120813
+120822
+120823
+127232
+127234
+127243
+127245
+END
diff --git a/lib/5.24.1/unicore/lib/Nv/1.pl b/lib/5.24.1/unicore/lib/Nv/1.pl
new file mode 100644
index 00000000..8f4c9cf9
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Nv/1.pl
@@ -0,0 +1,242 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V228
+49
+50
+185
+186
+1633
+1634
+1777
+1778
+1985
+1986
+2407
+2408
+2535
+2536
+2663
+2664
+2791
+2792
+2919
+2920
+3047
+3048
+3175
+3176
+3193
+3194
+3196
+3197
+3303
+3304
+3431
+3432
+3559
+3560
+3665
+3666
+3793
+3794
+3873
+3874
+4161
+4162
+4241
+4242
+4969
+4970
+6113
+6114
+6129
+6130
+6161
+6162
+6471
+6472
+6609
+6610
+6618
+6619
+6785
+6786
+6801
+6802
+6993
+6994
+7089
+7090
+7233
+7234
+7249
+7250
+8321
+8322
+8543
+8545
+8560
+8561
+9312
+9313
+9332
+9333
+9352
+9353
+9461
+9462
+10102
+10103
+10112
+10113
+10122
+10123
+12321
+12322
+12690
+12691
+12832
+12833
+12928
+12929
+19968
+19969
+22769
+22770
+22777
+22778
+24186
+24187
+24332
+24333
+42529
+42530
+42726
+42727
+43217
+43218
+43265
+43266
+43473
+43474
+43505
+43506
+43601
+43602
+44017
+44018
+65297
+65298
+65799
+65800
+65858
+65859
+65880
+65883
+66273
+66274
+66336
+66337
+66513
+66514
+66721
+66722
+67672
+67673
+67705
+67706
+67751
+67752
+67835
+67836
+67862
+67863
+68032
+68033
+68160
+68161
+68221
+68222
+68253
+68254
+68331
+68332
+68440
+68441
+68472
+68473
+68521
+68522
+68858
+68859
+69216
+69217
+69714
+69715
+69735
+69736
+69873
+69874
+69943
+69944
+70097
+70098
+70113
+70114
+70385
+70386
+70865
+70866
+71249
+71250
+71361
+71362
+71473
+71474
+71905
+71906
+74773
+74774
+74782
+74783
+74796
+74797
+74804
+74805
+74831
+74832
+74840
+74841
+92769
+92770
+93009
+93010
+119648
+119649
+120783
+120784
+120793
+120794
+120803
+120804
+120813
+120814
+120823
+120824
+125127
+125128
+127234
+127235
+133418
+133419
+END
diff --git a/lib/5.24.1/unicore/lib/Nv/10.pl b/lib/5.24.1/unicore/lib/Nv/10.pl
new file mode 100644
index 00000000..8e46488e
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Nv/10.pl
@@ -0,0 +1,112 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V98
+3056
+3057
+3440
+3441
+4978
+4979
+8553
+8554
+8569
+8570
+9321
+9322
+9341
+9342
+9361
+9362
+9470
+9471
+10111
+10112
+10121
+10122
+10131
+10132
+12344
+12345
+12841
+12842
+12872
+12873
+12937
+12938
+20160
+20161
+21313
+21314
+25342
+25343
+63859
+63860
+63997
+63998
+65808
+65809
+65865
+65866
+65872
+65873
+65879
+65880
+65888
+65893
+66282
+66283
+66338
+66339
+66515
+66516
+67675
+67676
+67710
+67711
+67757
+67758
+67837
+67838
+67863
+67864
+68041
+68042
+68164
+68165
+68254
+68255
+68333
+68334
+68444
+68445
+68476
+68477
+68525
+68526
+68860
+68861
+69225
+69226
+69723
+69724
+70122
+70123
+71482
+71483
+71914
+71915
+93019
+93020
+119657
+119658
+END
diff --git a/lib/5.24.1/unicore/lib/Nv/100.pl b/lib/5.24.1/unicore/lib/Nv/100.pl
new file mode 100644
index 00000000..9176daa6
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Nv/100.pl
@@ -0,0 +1,72 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V58
+3057
+3058
+3441
+3442
+4987
+4988
+8557
+8558
+8573
+8574
+20336
+20337
+30334
+30335
+38476
+38477
+65817
+65818
+65867
+65868
+65874
+65875
+65898
+65899
+66291
+66292
+66517
+66518
+67677
+67678
+67759
+67760
+67839
+67840
+67865
+67866
+68050
+68051
+68166
+68167
+68335
+68336
+68446
+68447
+68478
+68479
+68527
+68528
+68862
+68863
+69234
+69235
+69732
+69733
+70131
+70132
+93020
+93021
+END
diff --git a/lib/5.24.1/unicore/lib/Nv/1000.pl b/lib/5.24.1/unicore/lib/Nv/1000.pl
new file mode 100644
index 00000000..da728ed7
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Nv/1000.pl
@@ -0,0 +1,52 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V38
+3058
+3059
+3442
+3443
+8559
+8560
+8575
+8577
+20191
+20192
+21315
+21316
+38433
+38434
+65826
+65827
+65869
+65870
+65876
+65877
+65905
+65906
+67678
+67679
+68059
+68060
+68167
+68168
+68447
+68448
+68479
+68480
+68863
+68864
+69733
+69734
+70132
+70133
+END
diff --git a/lib/5.24.1/unicore/lib/Nv/10000.pl b/lib/5.24.1/unicore/lib/Nv/10000.pl
new file mode 100644
index 00000000..97fc32ce
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Nv/10000.pl
@@ -0,0 +1,32 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V18
+4988
+4989
+8578
+8579
+19975
+19976
+33836
+33837
+65835
+65836
+65877
+65878
+67679
+67680
+68068
+68069
+93021
+93022
+END
diff --git a/lib/5.24.1/unicore/lib/Nv/11.pl b/lib/5.24.1/unicore/lib/Nv/11.pl
new file mode 100644
index 00000000..32b7c973
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Nv/11.pl
@@ -0,0 +1,26 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V12
+8554
+8555
+8570
+8571
+9322
+9323
+9342
+9343
+9362
+9363
+9451
+9452
+END
diff --git a/lib/5.24.1/unicore/lib/Nv/12.pl b/lib/5.24.1/unicore/lib/Nv/12.pl
new file mode 100644
index 00000000..6807d49e
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Nv/12.pl
@@ -0,0 +1,26 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V12
+8555
+8556
+8571
+8572
+9323
+9324
+9343
+9344
+9363
+9364
+9452
+9453
+END
diff --git a/lib/5.24.1/unicore/lib/Nv/13.pl b/lib/5.24.1/unicore/lib/Nv/13.pl
new file mode 100644
index 00000000..c073c681
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Nv/13.pl
@@ -0,0 +1,22 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+9324
+9325
+9344
+9345
+9364
+9365
+9453
+9454
+END
diff --git a/lib/5.24.1/unicore/lib/Nv/14.pl b/lib/5.24.1/unicore/lib/Nv/14.pl
new file mode 100644
index 00000000..15aa8b95
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Nv/14.pl
@@ -0,0 +1,22 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+9325
+9326
+9345
+9346
+9365
+9366
+9454
+9455
+END
diff --git a/lib/5.24.1/unicore/lib/Nv/15.pl b/lib/5.24.1/unicore/lib/Nv/15.pl
new file mode 100644
index 00000000..a28f54eb
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Nv/15.pl
@@ -0,0 +1,22 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+9326
+9327
+9346
+9347
+9366
+9367
+9455
+9456
+END
diff --git a/lib/5.24.1/unicore/lib/Nv/16.pl b/lib/5.24.1/unicore/lib/Nv/16.pl
new file mode 100644
index 00000000..64bdc11f
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Nv/16.pl
@@ -0,0 +1,24 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V10
+2553
+2554
+9327
+9328
+9347
+9348
+9367
+9368
+9456
+9457
+END
diff --git a/lib/5.24.1/unicore/lib/Nv/17.pl b/lib/5.24.1/unicore/lib/Nv/17.pl
new file mode 100644
index 00000000..e89757d3
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Nv/17.pl
@@ -0,0 +1,24 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V10
+5870
+5871
+9328
+9329
+9348
+9349
+9368
+9369
+9457
+9458
+END
diff --git a/lib/5.24.1/unicore/lib/Nv/18.pl b/lib/5.24.1/unicore/lib/Nv/18.pl
new file mode 100644
index 00000000..12efcea0
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Nv/18.pl
@@ -0,0 +1,24 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V10
+5871
+5872
+9329
+9330
+9349
+9350
+9369
+9370
+9458
+9459
+END
diff --git a/lib/5.24.1/unicore/lib/Nv/19.pl b/lib/5.24.1/unicore/lib/Nv/19.pl
new file mode 100644
index 00000000..18849ad7
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Nv/19.pl
@@ -0,0 +1,24 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V10
+5872
+5873
+9330
+9331
+9350
+9351
+9370
+9371
+9459
+9460
+END
diff --git a/lib/5.24.1/unicore/lib/Nv/1_2.pl b/lib/5.24.1/unicore/lib/Nv/1_2.pl
new file mode 100644
index 00000000..27373f8c
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Nv/1_2.pl
@@ -0,0 +1,38 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V24
+189
+190
+2931
+2932
+3444
+3445
+3882
+3883
+11517
+11518
+43057
+43058
+65857
+65858
+65909
+65911
+68029
+68030
+68091
+68092
+69243
+69244
+74852
+74853
+END
diff --git a/lib/5.24.1/unicore/lib/Nv/1_3.pl b/lib/5.24.1/unicore/lib/Nv/1_3.pl
new file mode 100644
index 00000000..4df44dfc
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Nv/1_3.pl
@@ -0,0 +1,26 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V12
+8531
+8532
+68089
+68090
+69245
+69246
+74842
+74843
+74845
+74846
+74853
+74854
+END
diff --git a/lib/5.24.1/unicore/lib/Nv/1_4.pl b/lib/5.24.1/unicore/lib/Nv/1_4.pl
new file mode 100644
index 00000000..54f6d865
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Nv/1_4.pl
@@ -0,0 +1,36 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V22
+188
+189
+2551
+2552
+2930
+2931
+3443
+3444
+43056
+43057
+65856
+65857
+65931
+65932
+68088
+68089
+69244
+69245
+74848
+74849
+74850
+74852
+END
diff --git a/lib/5.24.1/unicore/lib/Nv/1_8.pl b/lib/5.24.1/unicore/lib/Nv/1_8.pl
new file mode 100644
index 00000000..7e19596d
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Nv/1_8.pl
@@ -0,0 +1,24 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V10
+2549
+2550
+2934
+2935
+8539
+8540
+43060
+43061
+74847
+74848
+END
diff --git a/lib/5.24.1/unicore/lib/Nv/2.pl b/lib/5.24.1/unicore/lib/Nv/2.pl
new file mode 100644
index 00000000..c5dd9b18
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Nv/2.pl
@@ -0,0 +1,242 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V228
+50
+51
+178
+179
+1634
+1635
+1778
+1779
+1986
+1987
+2408
+2409
+2536
+2537
+2664
+2665
+2792
+2793
+2920
+2921
+3048
+3049
+3176
+3177
+3194
+3195
+3197
+3198
+3304
+3305
+3432
+3433
+3560
+3561
+3666
+3667
+3794
+3795
+3874
+3875
+4162
+4163
+4242
+4243
+4970
+4971
+6114
+6115
+6130
+6131
+6162
+6163
+6472
+6473
+6610
+6611
+6786
+6787
+6802
+6803
+6994
+6995
+7090
+7091
+7234
+7235
+7250
+7251
+8322
+8323
+8545
+8546
+8561
+8562
+9313
+9314
+9333
+9334
+9353
+9354
+9462
+9463
+10103
+10104
+10113
+10114
+10123
+10124
+12322
+12323
+12691
+12692
+12833
+12834
+12929
+12930
+13443
+13444
+20108
+20109
+20841
+20842
+24333
+24334
+24336
+24337
+36014
+36015
+36019
+36020
+36144
+36145
+42530
+42531
+42727
+42728
+43218
+43219
+43266
+43267
+43474
+43475
+43506
+43507
+43602
+43603
+44018
+44019
+63864
+63865
+65298
+65299
+65800
+65801
+65883
+65887
+66274
+66275
+66514
+66515
+66722
+66723
+67673
+67674
+67706
+67707
+67752
+67753
+67866
+67867
+68033
+68034
+68161
+68162
+68441
+68442
+68473
+68474
+68522
+68523
+69217
+69218
+69715
+69716
+69736
+69737
+69874
+69875
+69944
+69945
+70098
+70099
+70114
+70115
+70386
+70387
+70866
+70867
+71250
+71251
+71362
+71363
+71474
+71475
+71906
+71907
+74752
+74753
+74774
+74775
+74783
+74784
+74787
+74788
+74797
+74798
+74805
+74806
+74826
+74827
+74832
+74833
+74838
+74839
+74841
+74842
+92770
+92771
+93010
+93011
+119649
+119650
+120784
+120785
+120794
+120795
+120804
+120805
+120814
+120815
+120824
+120825
+125128
+125129
+127235
+127236
+140176
+140177
+END
diff --git a/lib/5.24.1/unicore/lib/Nv/20.pl b/lib/5.24.1/unicore/lib/Nv/20.pl
new file mode 100644
index 00000000..894838a5
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Nv/20.pl
@@ -0,0 +1,74 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V60
+4979
+4980
+9331
+9332
+9351
+9352
+9371
+9372
+9460
+9461
+12345
+12346
+12873
+12874
+21316
+21317
+24319
+24320
+65809
+65810
+66283
+66284
+66516
+66517
+67676
+67677
+67711
+67712
+67758
+67759
+67838
+67839
+67864
+67865
+68042
+68043
+68165
+68166
+68255
+68256
+68334
+68335
+68445
+68446
+68477
+68478
+68526
+68527
+69226
+69227
+69724
+69725
+70123
+70124
+71483
+71484
+71915
+71916
+119658
+119659
+END
diff --git a/lib/5.24.1/unicore/lib/Nv/200.pl b/lib/5.24.1/unicore/lib/Nv/200.pl
new file mode 100644
index 00000000..54382195
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Nv/200.pl
@@ -0,0 +1,22 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+65818
+65819
+66292
+66293
+68051
+68052
+69235
+69236
+END
diff --git a/lib/5.24.1/unicore/lib/Nv/2_3.pl b/lib/5.24.1/unicore/lib/Nv/2_3.pl
new file mode 100644
index 00000000..0be82497
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Nv/2_3.pl
@@ -0,0 +1,28 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V14
+8532
+8533
+65911
+65912
+68093
+68094
+69246
+69247
+74843
+74844
+74846
+74847
+74854
+74855
+END
diff --git a/lib/5.24.1/unicore/lib/Nv/3.pl b/lib/5.24.1/unicore/lib/Nv/3.pl
new file mode 100644
index 00000000..d24f91dc
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Nv/3.pl
@@ -0,0 +1,238 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V224
+51
+52
+179
+180
+1635
+1636
+1779
+1780
+1987
+1988
+2409
+2410
+2537
+2538
+2665
+2666
+2793
+2794
+2921
+2922
+3049
+3050
+3177
+3178
+3195
+3196
+3198
+3199
+3305
+3306
+3433
+3434
+3561
+3562
+3667
+3668
+3795
+3796
+3875
+3876
+4163
+4164
+4243
+4244
+4971
+4972
+6115
+6116
+6131
+6132
+6163
+6164
+6473
+6474
+6611
+6612
+6787
+6788
+6803
+6804
+6995
+6996
+7091
+7092
+7235
+7236
+7251
+7252
+8323
+8324
+8546
+8547
+8562
+8563
+9314
+9315
+9334
+9335
+9354
+9355
+9463
+9464
+10104
+10105
+10114
+10115
+10124
+10125
+12323
+12324
+12692
+12693
+12834
+12835
+12930
+12931
+19977
+19978
+20200
+20201
+21441
+21445
+24334
+24335
+42531
+42532
+42728
+42729
+43219
+43220
+43267
+43268
+43475
+43476
+43507
+43508
+43603
+43604
+44019
+44020
+63851
+63852
+65299
+65300
+65801
+65802
+66275
+66276
+66723
+66724
+67674
+67675
+67707
+67708
+67753
+67754
+67867
+67868
+68034
+68035
+68162
+68163
+68442
+68443
+68474
+68475
+68523
+68524
+69218
+69219
+69716
+69717
+69737
+69738
+69875
+69876
+69945
+69946
+70099
+70100
+70115
+70116
+70387
+70388
+70867
+70868
+71251
+71252
+71363
+71364
+71475
+71476
+71907
+71908
+74753
+74754
+74760
+74761
+74775
+74776
+74784
+74785
+74788
+74790
+74798
+74800
+74806
+74808
+74810
+74812
+74827
+74828
+74833
+74834
+74839
+74840
+92771
+92772
+93011
+93012
+119650
+119651
+120785
+120786
+120795
+120796
+120805
+120806
+120815
+120816
+120825
+120826
+125129
+125130
+127236
+127237
+133885
+133886
+133913
+133914
+141720
+141721
+146203
+146204
+END
diff --git a/lib/5.24.1/unicore/lib/Nv/30.pl b/lib/5.24.1/unicore/lib/Nv/30.pl
new file mode 100644
index 00000000..e7868032
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Nv/30.pl
@@ -0,0 +1,44 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V30
+4980
+4981
+12346
+12347
+12874
+12875
+12890
+12891
+21317
+21318
+65810
+65811
+65893
+65894
+66284
+66285
+68043
+68044
+69227
+69228
+69725
+69726
+70124
+70125
+71916
+71917
+119659
+119660
+133507
+133508
+END
diff --git a/lib/5.24.1/unicore/lib/Nv/300.pl b/lib/5.24.1/unicore/lib/Nv/300.pl
new file mode 100644
index 00000000..d2ff4ea9
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Nv/300.pl
@@ -0,0 +1,24 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V10
+65819
+65820
+65899
+65900
+66293
+66294
+68052
+68053
+69236
+69237
+END
diff --git a/lib/5.24.1/unicore/lib/Nv/3_4.pl b/lib/5.24.1/unicore/lib/Nv/3_4.pl
new file mode 100644
index 00000000..4dd0a357
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Nv/3_4.pl
@@ -0,0 +1,28 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V14
+190
+191
+2552
+2553
+2932
+2933
+3445
+3446
+43058
+43059
+65912
+65913
+68094
+68095
+END
diff --git a/lib/5.24.1/unicore/lib/Nv/4.pl b/lib/5.24.1/unicore/lib/Nv/4.pl
new file mode 100644
index 00000000..ecc54f3e
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Nv/4.pl
@@ -0,0 +1,226 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V212
+52
+53
+1636
+1637
+1780
+1781
+1988
+1989
+2410
+2411
+2538
+2539
+2666
+2667
+2794
+2795
+2922
+2923
+3050
+3051
+3178
+3179
+3306
+3307
+3434
+3435
+3562
+3563
+3668
+3669
+3796
+3797
+3876
+3877
+4164
+4165
+4244
+4245
+4972
+4973
+6116
+6117
+6132
+6133
+6164
+6165
+6474
+6475
+6612
+6613
+6788
+6789
+6804
+6805
+6996
+6997
+7092
+7093
+7236
+7237
+7252
+7253
+8308
+8309
+8324
+8325
+8547
+8548
+8563
+8564
+9315
+9316
+9335
+9336
+9355
+9356
+9464
+9465
+10105
+10106
+10115
+10116
+10125
+10126
+12324
+12325
+12693
+12694
+12835
+12836
+12931
+12932
+20118
+20119
+22235
+22236
+32902
+32903
+42532
+42533
+42729
+42730
+43220
+43221
+43268
+43269
+43476
+43477
+43508
+43509
+43604
+43605
+44020
+44021
+65300
+65301
+65802
+65803
+66276
+66277
+66724
+66725
+67708
+67709
+67754
+67756
+68035
+68036
+68163
+68164
+68443
+68444
+68475
+68476
+68524
+68525
+69219
+69220
+69717
+69718
+69738
+69739
+69876
+69877
+69946
+69947
+70100
+70101
+70116
+70117
+70388
+70389
+70868
+70869
+71252
+71253
+71364
+71365
+71476
+71477
+71908
+71909
+74754
+74755
+74761
+74762
+74767
+74768
+74776
+74777
+74785
+74786
+74790
+74791
+74800
+74801
+74808
+74809
+74812
+74816
+74828
+74829
+74834
+74836
+74857
+74858
+92772
+92773
+93012
+93013
+119651
+119652
+120786
+120787
+120796
+120797
+120806
+120807
+120816
+120817
+120826
+120827
+125130
+125131
+127237
+127238
+131172
+131173
+131298
+131299
+156269
+156270
+END
diff --git a/lib/5.24.1/unicore/lib/Nv/40.pl b/lib/5.24.1/unicore/lib/Nv/40.pl
new file mode 100644
index 00000000..d5383ecc
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Nv/40.pl
@@ -0,0 +1,44 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V30
+4981
+4982
+12875
+12876
+12981
+12982
+21324
+21325
+65811
+65812
+66285
+66286
+68044
+68045
+69228
+69229
+69726
+69727
+70125
+70126
+71917
+71918
+74855
+74856
+119660
+119661
+133516
+133517
+133532
+133533
+END
diff --git a/lib/5.24.1/unicore/lib/Nv/400.pl b/lib/5.24.1/unicore/lib/Nv/400.pl
new file mode 100644
index 00000000..1095bb12
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Nv/400.pl
@@ -0,0 +1,22 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+65820
+65821
+66294
+66295
+68053
+68054
+69237
+69238
+END
diff --git a/lib/5.24.1/unicore/lib/Nv/5.pl b/lib/5.24.1/unicore/lib/Nv/5.pl
new file mode 100644
index 00000000..530606b0
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Nv/5.pl
@@ -0,0 +1,230 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V216
+53
+54
+1637
+1638
+1781
+1782
+1989
+1990
+2411
+2412
+2539
+2540
+2667
+2668
+2795
+2796
+2923
+2924
+3051
+3052
+3179
+3180
+3307
+3308
+3435
+3436
+3563
+3564
+3669
+3670
+3797
+3798
+3877
+3878
+4165
+4166
+4245
+4246
+4973
+4974
+6117
+6118
+6133
+6134
+6165
+6166
+6475
+6476
+6613
+6614
+6789
+6790
+6805
+6806
+6997
+6998
+7093
+7094
+7237
+7238
+7253
+7254
+8309
+8310
+8325
+8326
+8548
+8549
+8564
+8565
+9316
+9317
+9336
+9337
+9356
+9357
+9465
+9466
+10106
+10107
+10116
+10117
+10126
+10127
+12325
+12326
+12836
+12837
+12932
+12933
+13317
+13318
+14378
+14379
+20116
+20117
+20237
+20238
+42533
+42534
+42730
+42731
+43221
+43222
+43269
+43270
+43477
+43478
+43509
+43510
+43605
+43606
+44021
+44022
+65301
+65302
+65803
+65804
+65859
+65860
+65864
+65865
+65871
+65872
+65887
+65888
+65907
+65908
+66277
+66278
+66337
+66338
+66725
+66726
+67709
+67710
+67756
+67757
+67836
+67837
+68036
+68037
+68332
+68333
+68859
+68860
+69220
+69221
+69718
+69719
+69739
+69740
+69877
+69878
+69947
+69948
+70101
+70102
+70117
+70118
+70389
+70390
+70869
+70870
+71253
+71254
+71365
+71366
+71477
+71478
+71909
+71910
+74755
+74756
+74762
+74763
+74768
+74769
+74777
+74778
+74786
+74787
+74791
+74792
+74801
+74802
+74809
+74810
+74829
+74830
+74836
+74838
+74858
+74859
+92773
+92774
+93013
+93014
+119652
+119653
+120787
+120788
+120797
+120798
+120807
+120808
+120817
+120818
+120827
+120828
+125131
+125132
+127238
+127239
+131361
+131362
+END
diff --git a/lib/5.24.1/unicore/lib/Nv/50.pl b/lib/5.24.1/unicore/lib/Nv/50.pl
new file mode 100644
index 00000000..3af66e24
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Nv/50.pl
@@ -0,0 +1,60 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V46
+4982
+4983
+8556
+8557
+8572
+8573
+8582
+8583
+12876
+12877
+12991
+12992
+65812
+65813
+65860
+65861
+65866
+65867
+65873
+65874
+65894
+65898
+65908
+65909
+66286
+66287
+66339
+66340
+68045
+68046
+68222
+68223
+68861
+68862
+69229
+69230
+69727
+69728
+70126
+70127
+71918
+71919
+74856
+74857
+119661
+119662
+END
diff --git a/lib/5.24.1/unicore/lib/Nv/500.pl b/lib/5.24.1/unicore/lib/Nv/500.pl
new file mode 100644
index 00000000..187f512e
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Nv/500.pl
@@ -0,0 +1,34 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V20
+8558
+8559
+8574
+8575
+65821
+65822
+65861
+65862
+65868
+65869
+65875
+65876
+65900
+65905
+66295
+66296
+68054
+68055
+69238
+69239
+END
diff --git a/lib/5.24.1/unicore/lib/Nv/5000.pl b/lib/5.24.1/unicore/lib/Nv/5000.pl
new file mode 100644
index 00000000..7e6b419e
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Nv/5000.pl
@@ -0,0 +1,26 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V12
+8577
+8578
+65830
+65831
+65862
+65863
+65870
+65871
+65906
+65907
+68063
+68064
+END
diff --git a/lib/5.24.1/unicore/lib/Nv/50000.pl b/lib/5.24.1/unicore/lib/Nv/50000.pl
new file mode 100644
index 00000000..efeabaef
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Nv/50000.pl
@@ -0,0 +1,24 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V10
+8583
+8584
+65839
+65840
+65863
+65864
+65878
+65879
+68072
+68073
+END
diff --git a/lib/5.24.1/unicore/lib/Nv/6.pl b/lib/5.24.1/unicore/lib/Nv/6.pl
new file mode 100644
index 00000000..1eae413c
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Nv/6.pl
@@ -0,0 +1,206 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V192
+54
+55
+1638
+1639
+1782
+1783
+1990
+1991
+2412
+2413
+2540
+2541
+2668
+2669
+2796
+2797
+2924
+2925
+3052
+3053
+3180
+3181
+3308
+3309
+3436
+3437
+3564
+3565
+3670
+3671
+3798
+3799
+3878
+3879
+4166
+4167
+4246
+4247
+4974
+4975
+6118
+6119
+6134
+6135
+6166
+6167
+6476
+6477
+6614
+6615
+6790
+6791
+6806
+6807
+6998
+6999
+7094
+7095
+7238
+7239
+7254
+7255
+8310
+8311
+8326
+8327
+8549
+8550
+8565
+8566
+8581
+8582
+9317
+9318
+9337
+9338
+9357
+9358
+9466
+9467
+10107
+10108
+10117
+10118
+10127
+10128
+12326
+12327
+12837
+12838
+12933
+12934
+20845
+20846
+38470
+38471
+38520
+38521
+42534
+42535
+42731
+42732
+43222
+43223
+43270
+43271
+43478
+43479
+43510
+43511
+43606
+43607
+44022
+44023
+63953
+63954
+63955
+63956
+65302
+65303
+65804
+65805
+66278
+66279
+66726
+66727
+68037
+68038
+69221
+69222
+69719
+69720
+69740
+69741
+69878
+69879
+69948
+69949
+70102
+70103
+70118
+70119
+70390
+70391
+70870
+70871
+71254
+71255
+71366
+71367
+71478
+71479
+71910
+71911
+74756
+74757
+74763
+74764
+74769
+74770
+74778
+74779
+74792
+74793
+74816
+74817
+74830
+74831
+74859
+74860
+92774
+92775
+93014
+93015
+119653
+119654
+120788
+120789
+120798
+120799
+120808
+120809
+120818
+120819
+120828
+120829
+125132
+125133
+127239
+127240
+133866
+133867
+END
diff --git a/lib/5.24.1/unicore/lib/Nv/60.pl b/lib/5.24.1/unicore/lib/Nv/60.pl
new file mode 100644
index 00000000..804e9f06
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Nv/60.pl
@@ -0,0 +1,34 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V20
+4983
+4984
+12877
+12878
+65813
+65814
+66287
+66288
+68046
+68047
+69230
+69231
+69728
+69729
+70127
+70128
+71919
+71920
+119662
+119663
+END
diff --git a/lib/5.24.1/unicore/lib/Nv/600.pl b/lib/5.24.1/unicore/lib/Nv/600.pl
new file mode 100644
index 00000000..749ac6a6
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Nv/600.pl
@@ -0,0 +1,22 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+65822
+65823
+66296
+66297
+68055
+68056
+69239
+69240
+END
diff --git a/lib/5.24.1/unicore/lib/Nv/7.pl b/lib/5.24.1/unicore/lib/Nv/7.pl
new file mode 100644
index 00000000..68349b12
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Nv/7.pl
@@ -0,0 +1,200 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V186
+55
+56
+1639
+1640
+1783
+1784
+1991
+1992
+2413
+2414
+2541
+2542
+2669
+2670
+2797
+2798
+2925
+2926
+3053
+3054
+3181
+3182
+3309
+3310
+3437
+3438
+3565
+3566
+3671
+3672
+3799
+3800
+3879
+3880
+4167
+4168
+4247
+4248
+4975
+4976
+6119
+6120
+6135
+6136
+6167
+6168
+6477
+6478
+6615
+6616
+6791
+6792
+6807
+6808
+6999
+7000
+7095
+7096
+7239
+7240
+7255
+7256
+8311
+8312
+8327
+8328
+8550
+8551
+8566
+8567
+9318
+9319
+9338
+9339
+9358
+9359
+9467
+9468
+10108
+10109
+10118
+10119
+10128
+10129
+12327
+12328
+12838
+12839
+12934
+12935
+15181
+15182
+19971
+19972
+26578
+26579
+28422
+28423
+42535
+42536
+42732
+42733
+43223
+43224
+43271
+43272
+43479
+43480
+43511
+43512
+43607
+43608
+44023
+44024
+65303
+65304
+65805
+65806
+66279
+66280
+66727
+66728
+68038
+68039
+69222
+69223
+69720
+69721
+69741
+69742
+69879
+69880
+69949
+69950
+70103
+70104
+70119
+70120
+70391
+70392
+70871
+70872
+71255
+71256
+71367
+71368
+71479
+71480
+71911
+71912
+74757
+74758
+74764
+74765
+74770
+74771
+74779
+74780
+74793
+74794
+74817
+74820
+74860
+74861
+92775
+92776
+93015
+93016
+119654
+119655
+120789
+120790
+120799
+120800
+120809
+120810
+120819
+120820
+120829
+120830
+125133
+125134
+127240
+127241
+131073
+131074
+END
diff --git a/lib/5.24.1/unicore/lib/Nv/70.pl b/lib/5.24.1/unicore/lib/Nv/70.pl
new file mode 100644
index 00000000..07e297d9
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Nv/70.pl
@@ -0,0 +1,34 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V20
+4984
+4985
+12878
+12879
+65814
+65815
+66288
+66289
+68047
+68048
+69231
+69232
+69729
+69730
+70128
+70129
+71920
+71921
+119663
+119664
+END
diff --git a/lib/5.24.1/unicore/lib/Nv/700.pl b/lib/5.24.1/unicore/lib/Nv/700.pl
new file mode 100644
index 00000000..46bab470
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Nv/700.pl
@@ -0,0 +1,22 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+65823
+65824
+66297
+66298
+68056
+68057
+69240
+69241
+END
diff --git a/lib/5.24.1/unicore/lib/Nv/8.pl b/lib/5.24.1/unicore/lib/Nv/8.pl
new file mode 100644
index 00000000..9fab14d5
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Nv/8.pl
@@ -0,0 +1,194 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V180
+56
+57
+1640
+1641
+1784
+1785
+1992
+1993
+2414
+2415
+2542
+2543
+2670
+2671
+2798
+2799
+2926
+2927
+3054
+3055
+3182
+3183
+3310
+3311
+3438
+3439
+3566
+3567
+3672
+3673
+3800
+3801
+3880
+3881
+4168
+4169
+4248
+4249
+4976
+4977
+6120
+6121
+6136
+6137
+6168
+6169
+6478
+6479
+6616
+6617
+6792
+6793
+6808
+6809
+7000
+7001
+7096
+7097
+7240
+7241
+7256
+7257
+8312
+8313
+8328
+8329
+8551
+8552
+8567
+8568
+9319
+9320
+9339
+9340
+9359
+9360
+9468
+9469
+10109
+10110
+10119
+10120
+10129
+10130
+12328
+12329
+12839
+12840
+12935
+12936
+20843
+20844
+25420
+25421
+42536
+42537
+42733
+42734
+43224
+43225
+43272
+43273
+43480
+43481
+43512
+43513
+43608
+43609
+44024
+44025
+65304
+65305
+65806
+65807
+66280
+66281
+66728
+66729
+68039
+68040
+69223
+69224
+69721
+69722
+69742
+69743
+69880
+69881
+69950
+69951
+70104
+70105
+70120
+70121
+70392
+70393
+70872
+70873
+71256
+71257
+71368
+71369
+71480
+71481
+71912
+71913
+74758
+74759
+74765
+74766
+74771
+74772
+74780
+74781
+74794
+74795
+74820
+74822
+74861
+74862
+92776
+92777
+93016
+93017
+119655
+119656
+120790
+120791
+120800
+120801
+120810
+120811
+120820
+120821
+120830
+120831
+125134
+125135
+127241
+127242
+END
diff --git a/lib/5.24.1/unicore/lib/Nv/80.pl b/lib/5.24.1/unicore/lib/Nv/80.pl
new file mode 100644
index 00000000..377f07ff
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Nv/80.pl
@@ -0,0 +1,32 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V18
+4985
+4986
+12879
+12880
+65815
+65816
+66289
+66290
+69232
+69233
+69730
+69731
+70129
+70130
+71921
+71922
+119664
+119665
+END
diff --git a/lib/5.24.1/unicore/lib/Nv/800.pl b/lib/5.24.1/unicore/lib/Nv/800.pl
new file mode 100644
index 00000000..d0ff3331
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Nv/800.pl
@@ -0,0 +1,22 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+65824
+65825
+66298
+66299
+68057
+68058
+69241
+69242
+END
diff --git a/lib/5.24.1/unicore/lib/Nv/9.pl b/lib/5.24.1/unicore/lib/Nv/9.pl
new file mode 100644
index 00000000..a7e80fba
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Nv/9.pl
@@ -0,0 +1,198 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V184
+57
+58
+1641
+1642
+1785
+1786
+1993
+1994
+2415
+2416
+2543
+2544
+2671
+2672
+2799
+2800
+2927
+2928
+3055
+3056
+3183
+3184
+3311
+3312
+3439
+3440
+3567
+3568
+3673
+3674
+3801
+3802
+3881
+3882
+4169
+4170
+4249
+4250
+4977
+4978
+6121
+6122
+6137
+6138
+6169
+6170
+6479
+6480
+6617
+6618
+6793
+6794
+6809
+6810
+7001
+7002
+7097
+7098
+7241
+7242
+7257
+7258
+8313
+8314
+8329
+8330
+8552
+8553
+8568
+8569
+9320
+9321
+9340
+9341
+9360
+9361
+9469
+9470
+10110
+10111
+10120
+10121
+10130
+10131
+12329
+12330
+12840
+12841
+12936
+12937
+20061
+20062
+24318
+24319
+29590
+29591
+42537
+42538
+42734
+42735
+43225
+43226
+43273
+43274
+43481
+43482
+43513
+43514
+43609
+43610
+44025
+44026
+65305
+65306
+65807
+65808
+66281
+66282
+66729
+66730
+68040
+68041
+69224
+69225
+69722
+69723
+69743
+69744
+69881
+69882
+69951
+69952
+70105
+70106
+70121
+70122
+70393
+70394
+70873
+70874
+71257
+71258
+71369
+71370
+71481
+71482
+71913
+71914
+74759
+74760
+74766
+74767
+74772
+74773
+74781
+74782
+74795
+74796
+74822
+74826
+74862
+74863
+92777
+92778
+93017
+93018
+119656
+119657
+120791
+120792
+120801
+120802
+120811
+120812
+120821
+120822
+120831
+120832
+125135
+125136
+127242
+127243
+194704
+194705
+END
diff --git a/lib/5.24.1/unicore/lib/Nv/90.pl b/lib/5.24.1/unicore/lib/Nv/90.pl
new file mode 100644
index 00000000..86edcf82
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Nv/90.pl
@@ -0,0 +1,32 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V18
+4986
+4987
+65816
+65817
+66290
+66291
+66369
+66370
+69233
+69234
+69731
+69732
+70130
+70131
+71922
+71923
+119665
+119666
+END
diff --git a/lib/5.24.1/unicore/lib/Nv/900.pl b/lib/5.24.1/unicore/lib/Nv/900.pl
new file mode 100644
index 00000000..720dc21b
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Nv/900.pl
@@ -0,0 +1,24 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V10
+65825
+65826
+66299
+66300
+66378
+66379
+68058
+68059
+69242
+69243
+END
diff --git a/lib/5.24.1/unicore/lib/PatSyn/Y.pl b/lib/5.24.1/unicore/lib/PatSyn/Y.pl
new file mode 100644
index 00000000..03b305e7
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/PatSyn/Y.pl
@@ -0,0 +1,70 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V56
+33
+48
+58
+65
+91
+95
+96
+97
+123
+127
+161
+168
+169
+170
+171
+173
+174
+175
+176
+178
+182
+183
+187
+188
+191
+192
+215
+216
+247
+248
+8208
+8232
+8240
+8255
+8257
+8276
+8277
+8287
+8592
+9312
+9472
+10102
+10132
+11264
+11776
+11904
+12289
+12292
+12296
+12321
+12336
+12337
+64830
+64832
+65093
+65095
+END
diff --git a/lib/5.24.1/unicore/lib/Perl/Alnum.pl b/lib/5.24.1/unicore/lib/Perl/Alnum.pl
new file mode 100644
index 00000000..6984ec10
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Perl/Alnum.pl
@@ -0,0 +1,1310 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1296
+48
+58
+65
+91
+97
+123
+170
+171
+181
+182
+186
+187
+192
+215
+216
+247
+248
+706
+710
+722
+736
+741
+748
+749
+750
+751
+837
+838
+880
+885
+886
+888
+890
+894
+895
+896
+902
+903
+904
+907
+908
+909
+910
+930
+931
+1014
+1015
+1154
+1162
+1328
+1329
+1367
+1369
+1370
+1377
+1416
+1456
+1470
+1471
+1472
+1473
+1475
+1476
+1478
+1479
+1480
+1488
+1515
+1520
+1523
+1552
+1563
+1568
+1624
+1625
+1642
+1646
+1748
+1749
+1757
+1761
+1769
+1773
+1789
+1791
+1792
+1808
+1856
+1869
+1970
+1984
+2027
+2036
+2038
+2042
+2043
+2048
+2072
+2074
+2093
+2112
+2137
+2208
+2229
+2275
+2282
+2288
+2364
+2365
+2381
+2382
+2385
+2389
+2404
+2406
+2416
+2417
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2493
+2501
+2503
+2505
+2507
+2509
+2510
+2511
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2546
+2561
+2564
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2622
+2627
+2631
+2633
+2635
+2637
+2641
+2642
+2649
+2653
+2654
+2655
+2662
+2678
+2689
+2692
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2749
+2758
+2759
+2762
+2763
+2765
+2768
+2769
+2784
+2788
+2790
+2800
+2809
+2810
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2877
+2885
+2887
+2889
+2891
+2893
+2902
+2904
+2908
+2910
+2911
+2916
+2918
+2928
+2929
+2930
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3006
+3011
+3014
+3017
+3018
+3021
+3024
+3025
+3031
+3032
+3046
+3056
+3072
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3130
+3133
+3141
+3142
+3145
+3146
+3149
+3157
+3159
+3160
+3163
+3168
+3172
+3174
+3184
+3201
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3261
+3269
+3270
+3273
+3274
+3277
+3285
+3287
+3294
+3295
+3296
+3300
+3302
+3312
+3313
+3315
+3329
+3332
+3333
+3341
+3342
+3345
+3346
+3387
+3389
+3397
+3398
+3401
+3402
+3405
+3406
+3407
+3415
+3416
+3423
+3428
+3430
+3440
+3450
+3456
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3535
+3541
+3542
+3543
+3544
+3552
+3558
+3568
+3570
+3572
+3585
+3643
+3648
+3655
+3661
+3662
+3664
+3674
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3789
+3790
+3792
+3802
+3804
+3808
+3840
+3841
+3872
+3882
+3904
+3912
+3913
+3949
+3953
+3970
+3976
+3992
+3993
+4029
+4096
+4151
+4152
+4153
+4155
+4170
+4176
+4195
+4197
+4201
+4206
+4231
+4238
+4239
+4240
+4250
+4252
+4254
+4256
+4294
+4295
+4296
+4301
+4302
+4304
+4347
+4348
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4959
+4960
+4992
+5008
+5024
+5110
+5112
+5118
+5121
+5741
+5743
+5760
+5761
+5787
+5792
+5867
+5870
+5881
+5888
+5901
+5902
+5908
+5920
+5940
+5952
+5972
+5984
+5997
+5998
+6001
+6002
+6004
+6016
+6068
+6070
+6089
+6103
+6104
+6108
+6109
+6112
+6122
+6160
+6170
+6176
+6264
+6272
+6315
+6320
+6390
+6400
+6431
+6432
+6444
+6448
+6457
+6470
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6608
+6618
+6656
+6684
+6688
+6751
+6753
+6773
+6784
+6794
+6800
+6810
+6823
+6824
+6912
+6964
+6965
+6980
+6981
+6988
+6992
+7002
+7040
+7082
+7084
+7142
+7143
+7154
+7168
+7222
+7232
+7242
+7245
+7294
+7401
+7405
+7406
+7412
+7413
+7415
+7424
+7616
+7655
+7669
+7680
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8125
+8126
+8127
+8130
+8133
+8134
+8141
+8144
+8148
+8150
+8156
+8160
+8173
+8178
+8181
+8182
+8189
+8305
+8306
+8319
+8320
+8336
+8349
+8450
+8451
+8455
+8456
+8458
+8468
+8469
+8470
+8473
+8478
+8484
+8485
+8486
+8487
+8488
+8489
+8490
+8494
+8495
+8506
+8508
+8512
+8517
+8522
+8526
+8527
+8544
+8585
+9398
+9450
+11264
+11311
+11312
+11359
+11360
+11493
+11499
+11503
+11506
+11508
+11520
+11558
+11559
+11560
+11565
+11566
+11568
+11624
+11631
+11632
+11648
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11744
+11776
+11823
+11824
+12293
+12296
+12321
+12330
+12337
+12342
+12344
+12349
+12353
+12439
+12445
+12448
+12449
+12539
+12540
+12544
+12549
+12590
+12593
+12687
+12704
+12731
+12784
+12800
+13312
+19894
+19968
+40918
+40960
+42125
+42192
+42238
+42240
+42509
+42512
+42540
+42560
+42607
+42612
+42620
+42623
+42736
+42775
+42784
+42786
+42889
+42891
+42926
+42928
+42936
+42999
+43010
+43011
+43014
+43015
+43019
+43020
+43048
+43072
+43124
+43136
+43204
+43216
+43226
+43250
+43256
+43259
+43260
+43261
+43262
+43264
+43307
+43312
+43347
+43360
+43389
+43392
+43443
+43444
+43456
+43471
+43482
+43488
+43493
+43494
+43519
+43520
+43575
+43584
+43598
+43600
+43610
+43616
+43639
+43642
+43643
+43646
+43711
+43712
+43713
+43714
+43715
+43739
+43742
+43744
+43760
+43762
+43766
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43824
+43867
+43868
+43878
+43888
+44011
+44016
+44026
+44032
+55204
+55216
+55239
+55243
+55292
+63744
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64297
+64298
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64434
+64467
+64830
+64848
+64912
+64914
+64968
+65008
+65020
+65136
+65141
+65142
+65277
+65296
+65306
+65313
+65339
+65345
+65371
+65382
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65536
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65856
+65909
+66176
+66205
+66208
+66257
+66304
+66336
+66352
+66379
+66384
+66427
+66432
+66462
+66464
+66500
+66504
+66512
+66513
+66518
+66560
+66718
+66720
+66730
+66816
+66856
+66864
+66916
+67072
+67383
+67392
+67414
+67424
+67432
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67680
+67703
+67712
+67743
+67808
+67827
+67828
+67830
+67840
+67862
+67872
+67898
+67968
+68024
+68030
+68032
+68096
+68100
+68101
+68103
+68108
+68116
+68117
+68120
+68121
+68148
+68192
+68221
+68224
+68253
+68288
+68296
+68297
+68325
+68352
+68406
+68416
+68438
+68448
+68467
+68480
+68498
+68608
+68681
+68736
+68787
+68800
+68851
+69632
+69702
+69734
+69744
+69762
+69817
+69840
+69865
+69872
+69882
+69888
+69939
+69942
+69952
+69968
+70003
+70006
+70007
+70016
+70080
+70081
+70085
+70096
+70107
+70108
+70109
+70144
+70162
+70163
+70197
+70199
+70200
+70272
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70313
+70320
+70377
+70384
+70394
+70400
+70404
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70461
+70469
+70471
+70473
+70475
+70477
+70480
+70481
+70487
+70488
+70493
+70500
+70784
+70850
+70852
+70854
+70855
+70856
+70864
+70874
+71040
+71094
+71096
+71103
+71128
+71134
+71168
+71231
+71232
+71233
+71236
+71237
+71248
+71258
+71296
+71350
+71360
+71370
+71424
+71450
+71453
+71467
+71472
+71482
+71840
+71914
+71935
+71936
+72384
+72441
+73728
+74650
+74752
+74863
+74880
+75076
+77824
+78895
+82944
+83527
+92160
+92729
+92736
+92767
+92768
+92778
+92880
+92910
+92928
+92983
+92992
+92996
+93008
+93018
+93027
+93048
+93053
+93072
+93952
+94021
+94032
+94079
+94099
+94112
+110592
+110594
+113664
+113771
+113776
+113789
+113792
+113801
+113808
+113818
+113822
+113823
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120513
+120514
+120539
+120540
+120571
+120572
+120597
+120598
+120629
+120630
+120655
+120656
+120687
+120688
+120713
+120714
+120745
+120746
+120771
+120772
+120780
+120782
+120832
+124928
+125125
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+127280
+127306
+127312
+127338
+127344
+127370
+131072
+173783
+173824
+177973
+177984
+178206
+178208
+183970
+194560
+195102
+END
diff --git a/lib/5.24.1/unicore/lib/Perl/Assigned.pl b/lib/5.24.1/unicore/lib/Perl/Assigned.pl
new file mode 100644
index 00000000..46577a4c
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Perl/Assigned.pl
@@ -0,0 +1,1240 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1226
+0
+888
+890
+896
+900
+907
+908
+909
+910
+930
+931
+1328
+1329
+1367
+1369
+1376
+1377
+1416
+1417
+1419
+1421
+1424
+1425
+1480
+1488
+1515
+1520
+1525
+1536
+1565
+1566
+1806
+1807
+1867
+1869
+1970
+1984
+2043
+2048
+2094
+2096
+2111
+2112
+2140
+2142
+2143
+2208
+2229
+2275
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2501
+2503
+2505
+2507
+2511
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2556
+2561
+2564
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2649
+2653
+2654
+2655
+2662
+2678
+2689
+2692
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2788
+2790
+2802
+2809
+2810
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2876
+2885
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2916
+2918
+2936
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3024
+3025
+3031
+3032
+3046
+3067
+3072
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3130
+3133
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3160
+3163
+3168
+3172
+3174
+3184
+3192
+3200
+3201
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3260
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3300
+3302
+3312
+3313
+3315
+3329
+3332
+3333
+3341
+3342
+3345
+3346
+3387
+3389
+3397
+3398
+3401
+3402
+3407
+3415
+3416
+3423
+3428
+3430
+3446
+3449
+3456
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3558
+3568
+3570
+3573
+3585
+3643
+3647
+3676
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3792
+3802
+3804
+3808
+3840
+3912
+3913
+3949
+3953
+3992
+3993
+4029
+4030
+4045
+4046
+4059
+4096
+4294
+4295
+4296
+4301
+4302
+4304
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4957
+4989
+4992
+5018
+5024
+5110
+5112
+5118
+5120
+5789
+5792
+5881
+5888
+5901
+5902
+5909
+5920
+5943
+5952
+5972
+5984
+5997
+5998
+6001
+6002
+6004
+6016
+6110
+6112
+6122
+6128
+6138
+6144
+6159
+6160
+6170
+6176
+6264
+6272
+6315
+6320
+6390
+6400
+6431
+6432
+6444
+6448
+6460
+6464
+6465
+6468
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6608
+6619
+6622
+6684
+6686
+6751
+6752
+6781
+6783
+6794
+6800
+6810
+6816
+6830
+6832
+6847
+6912
+6988
+6992
+7037
+7040
+7156
+7164
+7224
+7227
+7242
+7245
+7296
+7360
+7368
+7376
+7415
+7416
+7418
+7424
+7670
+7676
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8191
+8192
+8293
+8294
+8306
+8308
+8335
+8336
+8349
+8352
+8383
+8400
+8433
+8448
+8588
+8592
+9211
+9216
+9255
+9280
+9291
+9312
+11124
+11126
+11158
+11160
+11194
+11197
+11209
+11210
+11218
+11244
+11248
+11264
+11311
+11312
+11359
+11360
+11508
+11513
+11558
+11559
+11560
+11565
+11566
+11568
+11624
+11631
+11633
+11647
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11744
+11843
+11904
+11930
+11931
+12020
+12032
+12246
+12272
+12284
+12288
+12352
+12353
+12439
+12441
+12544
+12549
+12590
+12593
+12687
+12688
+12731
+12736
+12772
+12784
+12831
+12832
+13055
+13056
+19894
+19904
+40918
+40960
+42125
+42128
+42183
+42192
+42540
+42560
+42744
+42752
+42926
+42928
+42936
+42999
+43052
+43056
+43066
+43072
+43128
+43136
+43205
+43214
+43226
+43232
+43262
+43264
+43348
+43359
+43389
+43392
+43470
+43471
+43482
+43486
+43519
+43520
+43575
+43584
+43598
+43600
+43610
+43612
+43715
+43739
+43767
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43824
+43878
+43888
+44014
+44016
+44026
+44032
+55204
+55216
+55239
+55243
+55292
+55296
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64450
+64467
+64832
+64848
+64912
+64914
+64968
+65008
+65022
+65024
+65050
+65056
+65107
+65108
+65127
+65128
+65132
+65136
+65141
+65142
+65277
+65279
+65280
+65281
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+65529
+65534
+65536
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65792
+65795
+65799
+65844
+65847
+65933
+65936
+65948
+65952
+65953
+66000
+66046
+66176
+66205
+66208
+66257
+66272
+66300
+66304
+66340
+66352
+66379
+66384
+66427
+66432
+66462
+66463
+66500
+66504
+66518
+66560
+66718
+66720
+66730
+66816
+66856
+66864
+66916
+66927
+66928
+67072
+67383
+67392
+67414
+67424
+67432
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67671
+67743
+67751
+67760
+67808
+67827
+67828
+67830
+67835
+67868
+67871
+67898
+67903
+67904
+67968
+68024
+68028
+68048
+68050
+68100
+68101
+68103
+68108
+68116
+68117
+68120
+68121
+68148
+68152
+68155
+68159
+68168
+68176
+68185
+68192
+68256
+68288
+68327
+68331
+68343
+68352
+68406
+68409
+68438
+68440
+68467
+68472
+68498
+68505
+68509
+68521
+68528
+68608
+68681
+68736
+68787
+68800
+68851
+68858
+68864
+69216
+69247
+69632
+69710
+69714
+69744
+69759
+69826
+69840
+69865
+69872
+69882
+69888
+69941
+69942
+69956
+69968
+70007
+70016
+70094
+70096
+70112
+70113
+70133
+70144
+70162
+70163
+70206
+70272
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70314
+70320
+70379
+70384
+70394
+70400
+70404
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70460
+70469
+70471
+70473
+70475
+70478
+70480
+70481
+70487
+70488
+70493
+70500
+70502
+70509
+70512
+70517
+70784
+70856
+70864
+70874
+71040
+71094
+71096
+71134
+71168
+71237
+71248
+71258
+71296
+71352
+71360
+71370
+71424
+71450
+71453
+71468
+71472
+71488
+71840
+71923
+71935
+71936
+72384
+72441
+73728
+74650
+74752
+74863
+74864
+74869
+74880
+75076
+77824
+78895
+82944
+83527
+92160
+92729
+92736
+92767
+92768
+92778
+92782
+92784
+92880
+92910
+92912
+92918
+92928
+92998
+93008
+93018
+93019
+93026
+93027
+93048
+93053
+93072
+93952
+94021
+94032
+94079
+94095
+94112
+110592
+110594
+113664
+113771
+113776
+113789
+113792
+113801
+113808
+113818
+113820
+113828
+118784
+119030
+119040
+119079
+119081
+119273
+119296
+119366
+119552
+119639
+119648
+119666
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120780
+120782
+121484
+121499
+121504
+121505
+121520
+124928
+125125
+125127
+125143
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+126704
+126706
+126976
+127020
+127024
+127124
+127136
+127151
+127153
+127168
+127169
+127184
+127185
+127222
+127232
+127245
+127248
+127279
+127280
+127340
+127344
+127387
+127462
+127491
+127504
+127547
+127552
+127561
+127568
+127570
+127744
+128378
+128379
+128420
+128421
+128721
+128736
+128749
+128752
+128756
+128768
+128884
+128896
+128981
+129024
+129036
+129040
+129096
+129104
+129114
+129120
+129160
+129168
+129198
+129296
+129305
+129408
+129413
+129472
+129473
+131072
+173783
+173824
+177973
+177984
+178206
+178208
+183970
+194560
+195102
+917505
+917506
+917536
+917632
+917760
+918000
+983040
+1048574
+1048576
+1114110
+END
diff --git a/lib/5.24.1/unicore/lib/Perl/Blank.pl b/lib/5.24.1/unicore/lib/Perl/Blank.pl
new file mode 100644
index 00000000..4b425952
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Perl/Blank.pl
@@ -0,0 +1,30 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V16
+9
+10
+32
+33
+160
+161
+5760
+5761
+8192
+8203
+8239
+8240
+8287
+8288
+12288
+12289
+END
diff --git a/lib/5.24.1/unicore/lib/Perl/Graph.pl b/lib/5.24.1/unicore/lib/Perl/Graph.pl
new file mode 100644
index 00000000..105e9b62
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Perl/Graph.pl
@@ -0,0 +1,1250 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1236
+33
+127
+161
+888
+890
+896
+900
+907
+908
+909
+910
+930
+931
+1328
+1329
+1367
+1369
+1376
+1377
+1416
+1417
+1419
+1421
+1424
+1425
+1480
+1488
+1515
+1520
+1525
+1536
+1565
+1566
+1806
+1807
+1867
+1869
+1970
+1984
+2043
+2048
+2094
+2096
+2111
+2112
+2140
+2142
+2143
+2208
+2229
+2275
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2501
+2503
+2505
+2507
+2511
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2556
+2561
+2564
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2649
+2653
+2654
+2655
+2662
+2678
+2689
+2692
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2788
+2790
+2802
+2809
+2810
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2876
+2885
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2916
+2918
+2936
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3024
+3025
+3031
+3032
+3046
+3067
+3072
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3130
+3133
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3160
+3163
+3168
+3172
+3174
+3184
+3192
+3200
+3201
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3260
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3300
+3302
+3312
+3313
+3315
+3329
+3332
+3333
+3341
+3342
+3345
+3346
+3387
+3389
+3397
+3398
+3401
+3402
+3407
+3415
+3416
+3423
+3428
+3430
+3446
+3449
+3456
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3558
+3568
+3570
+3573
+3585
+3643
+3647
+3676
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3792
+3802
+3804
+3808
+3840
+3912
+3913
+3949
+3953
+3992
+3993
+4029
+4030
+4045
+4046
+4059
+4096
+4294
+4295
+4296
+4301
+4302
+4304
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4957
+4989
+4992
+5018
+5024
+5110
+5112
+5118
+5120
+5760
+5761
+5789
+5792
+5881
+5888
+5901
+5902
+5909
+5920
+5943
+5952
+5972
+5984
+5997
+5998
+6001
+6002
+6004
+6016
+6110
+6112
+6122
+6128
+6138
+6144
+6159
+6160
+6170
+6176
+6264
+6272
+6315
+6320
+6390
+6400
+6431
+6432
+6444
+6448
+6460
+6464
+6465
+6468
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6608
+6619
+6622
+6684
+6686
+6751
+6752
+6781
+6783
+6794
+6800
+6810
+6816
+6830
+6832
+6847
+6912
+6988
+6992
+7037
+7040
+7156
+7164
+7224
+7227
+7242
+7245
+7296
+7360
+7368
+7376
+7415
+7416
+7418
+7424
+7670
+7676
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8191
+8203
+8232
+8234
+8239
+8240
+8287
+8288
+8293
+8294
+8306
+8308
+8335
+8336
+8349
+8352
+8383
+8400
+8433
+8448
+8588
+8592
+9211
+9216
+9255
+9280
+9291
+9312
+11124
+11126
+11158
+11160
+11194
+11197
+11209
+11210
+11218
+11244
+11248
+11264
+11311
+11312
+11359
+11360
+11508
+11513
+11558
+11559
+11560
+11565
+11566
+11568
+11624
+11631
+11633
+11647
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11744
+11843
+11904
+11930
+11931
+12020
+12032
+12246
+12272
+12284
+12289
+12352
+12353
+12439
+12441
+12544
+12549
+12590
+12593
+12687
+12688
+12731
+12736
+12772
+12784
+12831
+12832
+13055
+13056
+19894
+19904
+40918
+40960
+42125
+42128
+42183
+42192
+42540
+42560
+42744
+42752
+42926
+42928
+42936
+42999
+43052
+43056
+43066
+43072
+43128
+43136
+43205
+43214
+43226
+43232
+43262
+43264
+43348
+43359
+43389
+43392
+43470
+43471
+43482
+43486
+43519
+43520
+43575
+43584
+43598
+43600
+43610
+43612
+43715
+43739
+43767
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43824
+43878
+43888
+44014
+44016
+44026
+44032
+55204
+55216
+55239
+55243
+55292
+57344
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64450
+64467
+64832
+64848
+64912
+64914
+64968
+65008
+65022
+65024
+65050
+65056
+65107
+65108
+65127
+65128
+65132
+65136
+65141
+65142
+65277
+65279
+65280
+65281
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+65529
+65534
+65536
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65792
+65795
+65799
+65844
+65847
+65933
+65936
+65948
+65952
+65953
+66000
+66046
+66176
+66205
+66208
+66257
+66272
+66300
+66304
+66340
+66352
+66379
+66384
+66427
+66432
+66462
+66463
+66500
+66504
+66518
+66560
+66718
+66720
+66730
+66816
+66856
+66864
+66916
+66927
+66928
+67072
+67383
+67392
+67414
+67424
+67432
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67671
+67743
+67751
+67760
+67808
+67827
+67828
+67830
+67835
+67868
+67871
+67898
+67903
+67904
+67968
+68024
+68028
+68048
+68050
+68100
+68101
+68103
+68108
+68116
+68117
+68120
+68121
+68148
+68152
+68155
+68159
+68168
+68176
+68185
+68192
+68256
+68288
+68327
+68331
+68343
+68352
+68406
+68409
+68438
+68440
+68467
+68472
+68498
+68505
+68509
+68521
+68528
+68608
+68681
+68736
+68787
+68800
+68851
+68858
+68864
+69216
+69247
+69632
+69710
+69714
+69744
+69759
+69826
+69840
+69865
+69872
+69882
+69888
+69941
+69942
+69956
+69968
+70007
+70016
+70094
+70096
+70112
+70113
+70133
+70144
+70162
+70163
+70206
+70272
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70314
+70320
+70379
+70384
+70394
+70400
+70404
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70460
+70469
+70471
+70473
+70475
+70478
+70480
+70481
+70487
+70488
+70493
+70500
+70502
+70509
+70512
+70517
+70784
+70856
+70864
+70874
+71040
+71094
+71096
+71134
+71168
+71237
+71248
+71258
+71296
+71352
+71360
+71370
+71424
+71450
+71453
+71468
+71472
+71488
+71840
+71923
+71935
+71936
+72384
+72441
+73728
+74650
+74752
+74863
+74864
+74869
+74880
+75076
+77824
+78895
+82944
+83527
+92160
+92729
+92736
+92767
+92768
+92778
+92782
+92784
+92880
+92910
+92912
+92918
+92928
+92998
+93008
+93018
+93019
+93026
+93027
+93048
+93053
+93072
+93952
+94021
+94032
+94079
+94095
+94112
+110592
+110594
+113664
+113771
+113776
+113789
+113792
+113801
+113808
+113818
+113820
+113828
+118784
+119030
+119040
+119079
+119081
+119273
+119296
+119366
+119552
+119639
+119648
+119666
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120780
+120782
+121484
+121499
+121504
+121505
+121520
+124928
+125125
+125127
+125143
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+126704
+126706
+126976
+127020
+127024
+127124
+127136
+127151
+127153
+127168
+127169
+127184
+127185
+127222
+127232
+127245
+127248
+127279
+127280
+127340
+127344
+127387
+127462
+127491
+127504
+127547
+127552
+127561
+127568
+127570
+127744
+128378
+128379
+128420
+128421
+128721
+128736
+128749
+128752
+128756
+128768
+128884
+128896
+128981
+129024
+129036
+129040
+129096
+129104
+129114
+129120
+129160
+129168
+129198
+129296
+129305
+129408
+129413
+129472
+129473
+131072
+173783
+173824
+177973
+177984
+178206
+178208
+183970
+194560
+195102
+917505
+917506
+917536
+917632
+917760
+918000
+983040
+1048574
+1048576
+1114110
+END
diff --git a/lib/5.24.1/unicore/lib/Perl/PerlWord.pl b/lib/5.24.1/unicore/lib/Perl/PerlWord.pl
new file mode 100644
index 00000000..249753ad
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Perl/PerlWord.pl
@@ -0,0 +1,22 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+48
+58
+65
+91
+95
+96
+97
+123
+END
diff --git a/lib/5.24.1/unicore/lib/Perl/PosixPun.pl b/lib/5.24.1/unicore/lib/Perl/PosixPun.pl
new file mode 100644
index 00000000..7205719b
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Perl/PosixPun.pl
@@ -0,0 +1,22 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+33
+48
+58
+65
+91
+97
+123
+127
+END
diff --git a/lib/5.24.1/unicore/lib/Perl/Print.pl b/lib/5.24.1/unicore/lib/Perl/Print.pl
new file mode 100644
index 00000000..fbec6c29
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Perl/Print.pl
@@ -0,0 +1,1244 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1230
+32
+127
+160
+888
+890
+896
+900
+907
+908
+909
+910
+930
+931
+1328
+1329
+1367
+1369
+1376
+1377
+1416
+1417
+1419
+1421
+1424
+1425
+1480
+1488
+1515
+1520
+1525
+1536
+1565
+1566
+1806
+1807
+1867
+1869
+1970
+1984
+2043
+2048
+2094
+2096
+2111
+2112
+2140
+2142
+2143
+2208
+2229
+2275
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2501
+2503
+2505
+2507
+2511
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2556
+2561
+2564
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2649
+2653
+2654
+2655
+2662
+2678
+2689
+2692
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2788
+2790
+2802
+2809
+2810
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2876
+2885
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2916
+2918
+2936
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3024
+3025
+3031
+3032
+3046
+3067
+3072
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3130
+3133
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3160
+3163
+3168
+3172
+3174
+3184
+3192
+3200
+3201
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3260
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3300
+3302
+3312
+3313
+3315
+3329
+3332
+3333
+3341
+3342
+3345
+3346
+3387
+3389
+3397
+3398
+3401
+3402
+3407
+3415
+3416
+3423
+3428
+3430
+3446
+3449
+3456
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3558
+3568
+3570
+3573
+3585
+3643
+3647
+3676
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3792
+3802
+3804
+3808
+3840
+3912
+3913
+3949
+3953
+3992
+3993
+4029
+4030
+4045
+4046
+4059
+4096
+4294
+4295
+4296
+4301
+4302
+4304
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4957
+4989
+4992
+5018
+5024
+5110
+5112
+5118
+5120
+5789
+5792
+5881
+5888
+5901
+5902
+5909
+5920
+5943
+5952
+5972
+5984
+5997
+5998
+6001
+6002
+6004
+6016
+6110
+6112
+6122
+6128
+6138
+6144
+6159
+6160
+6170
+6176
+6264
+6272
+6315
+6320
+6390
+6400
+6431
+6432
+6444
+6448
+6460
+6464
+6465
+6468
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6608
+6619
+6622
+6684
+6686
+6751
+6752
+6781
+6783
+6794
+6800
+6810
+6816
+6830
+6832
+6847
+6912
+6988
+6992
+7037
+7040
+7156
+7164
+7224
+7227
+7242
+7245
+7296
+7360
+7368
+7376
+7415
+7416
+7418
+7424
+7670
+7676
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8191
+8192
+8232
+8234
+8293
+8294
+8306
+8308
+8335
+8336
+8349
+8352
+8383
+8400
+8433
+8448
+8588
+8592
+9211
+9216
+9255
+9280
+9291
+9312
+11124
+11126
+11158
+11160
+11194
+11197
+11209
+11210
+11218
+11244
+11248
+11264
+11311
+11312
+11359
+11360
+11508
+11513
+11558
+11559
+11560
+11565
+11566
+11568
+11624
+11631
+11633
+11647
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11744
+11843
+11904
+11930
+11931
+12020
+12032
+12246
+12272
+12284
+12288
+12352
+12353
+12439
+12441
+12544
+12549
+12590
+12593
+12687
+12688
+12731
+12736
+12772
+12784
+12831
+12832
+13055
+13056
+19894
+19904
+40918
+40960
+42125
+42128
+42183
+42192
+42540
+42560
+42744
+42752
+42926
+42928
+42936
+42999
+43052
+43056
+43066
+43072
+43128
+43136
+43205
+43214
+43226
+43232
+43262
+43264
+43348
+43359
+43389
+43392
+43470
+43471
+43482
+43486
+43519
+43520
+43575
+43584
+43598
+43600
+43610
+43612
+43715
+43739
+43767
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43824
+43878
+43888
+44014
+44016
+44026
+44032
+55204
+55216
+55239
+55243
+55292
+57344
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64450
+64467
+64832
+64848
+64912
+64914
+64968
+65008
+65022
+65024
+65050
+65056
+65107
+65108
+65127
+65128
+65132
+65136
+65141
+65142
+65277
+65279
+65280
+65281
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+65529
+65534
+65536
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65792
+65795
+65799
+65844
+65847
+65933
+65936
+65948
+65952
+65953
+66000
+66046
+66176
+66205
+66208
+66257
+66272
+66300
+66304
+66340
+66352
+66379
+66384
+66427
+66432
+66462
+66463
+66500
+66504
+66518
+66560
+66718
+66720
+66730
+66816
+66856
+66864
+66916
+66927
+66928
+67072
+67383
+67392
+67414
+67424
+67432
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67671
+67743
+67751
+67760
+67808
+67827
+67828
+67830
+67835
+67868
+67871
+67898
+67903
+67904
+67968
+68024
+68028
+68048
+68050
+68100
+68101
+68103
+68108
+68116
+68117
+68120
+68121
+68148
+68152
+68155
+68159
+68168
+68176
+68185
+68192
+68256
+68288
+68327
+68331
+68343
+68352
+68406
+68409
+68438
+68440
+68467
+68472
+68498
+68505
+68509
+68521
+68528
+68608
+68681
+68736
+68787
+68800
+68851
+68858
+68864
+69216
+69247
+69632
+69710
+69714
+69744
+69759
+69826
+69840
+69865
+69872
+69882
+69888
+69941
+69942
+69956
+69968
+70007
+70016
+70094
+70096
+70112
+70113
+70133
+70144
+70162
+70163
+70206
+70272
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70314
+70320
+70379
+70384
+70394
+70400
+70404
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70460
+70469
+70471
+70473
+70475
+70478
+70480
+70481
+70487
+70488
+70493
+70500
+70502
+70509
+70512
+70517
+70784
+70856
+70864
+70874
+71040
+71094
+71096
+71134
+71168
+71237
+71248
+71258
+71296
+71352
+71360
+71370
+71424
+71450
+71453
+71468
+71472
+71488
+71840
+71923
+71935
+71936
+72384
+72441
+73728
+74650
+74752
+74863
+74864
+74869
+74880
+75076
+77824
+78895
+82944
+83527
+92160
+92729
+92736
+92767
+92768
+92778
+92782
+92784
+92880
+92910
+92912
+92918
+92928
+92998
+93008
+93018
+93019
+93026
+93027
+93048
+93053
+93072
+93952
+94021
+94032
+94079
+94095
+94112
+110592
+110594
+113664
+113771
+113776
+113789
+113792
+113801
+113808
+113818
+113820
+113828
+118784
+119030
+119040
+119079
+119081
+119273
+119296
+119366
+119552
+119639
+119648
+119666
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120780
+120782
+121484
+121499
+121504
+121505
+121520
+124928
+125125
+125127
+125143
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+126704
+126706
+126976
+127020
+127024
+127124
+127136
+127151
+127153
+127168
+127169
+127184
+127185
+127222
+127232
+127245
+127248
+127279
+127280
+127340
+127344
+127387
+127462
+127491
+127504
+127547
+127552
+127561
+127568
+127570
+127744
+128378
+128379
+128420
+128421
+128721
+128736
+128749
+128752
+128756
+128768
+128884
+128896
+128981
+129024
+129036
+129040
+129096
+129104
+129114
+129120
+129160
+129168
+129198
+129296
+129305
+129408
+129413
+129472
+129473
+131072
+173783
+173824
+177973
+177984
+178206
+178208
+183970
+194560
+195102
+917505
+917506
+917536
+917632
+917760
+918000
+983040
+1048574
+1048576
+1114110
+END
diff --git a/lib/5.24.1/unicore/lib/Perl/SpacePer.pl b/lib/5.24.1/unicore/lib/Perl/SpacePer.pl
new file mode 100644
index 00000000..8976d153
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Perl/SpacePer.pl
@@ -0,0 +1,34 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V20
+9
+14
+32
+33
+133
+134
+160
+161
+5760
+5761
+8192
+8203
+8232
+8234
+8239
+8240
+8287
+8288
+12288
+12289
+END
diff --git a/lib/5.24.1/unicore/lib/Perl/Title.pl b/lib/5.24.1/unicore/lib/Perl/Title.pl
new file mode 100644
index 00000000..a3e42af9
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Perl/Title.pl
@@ -0,0 +1,34 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V20
+453
+454
+456
+457
+459
+460
+498
+499
+8072
+8080
+8088
+8096
+8104
+8112
+8124
+8125
+8140
+8141
+8188
+8189
+END
diff --git a/lib/5.24.1/unicore/lib/Perl/Word.pl b/lib/5.24.1/unicore/lib/Perl/Word.pl
new file mode 100644
index 00000000..3ecff58d
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Perl/Word.pl
@@ -0,0 +1,1324 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1310
+48
+58
+65
+91
+95
+96
+97
+123
+170
+171
+181
+182
+186
+187
+192
+215
+216
+247
+248
+706
+710
+722
+736
+741
+748
+749
+750
+751
+768
+885
+886
+888
+890
+894
+895
+896
+902
+903
+904
+907
+908
+909
+910
+930
+931
+1014
+1015
+1154
+1155
+1328
+1329
+1367
+1369
+1370
+1377
+1416
+1425
+1470
+1471
+1472
+1473
+1475
+1476
+1478
+1479
+1480
+1488
+1515
+1520
+1523
+1552
+1563
+1568
+1642
+1646
+1748
+1749
+1757
+1759
+1769
+1770
+1789
+1791
+1792
+1808
+1867
+1869
+1970
+1984
+2038
+2042
+2043
+2048
+2094
+2112
+2140
+2208
+2229
+2275
+2404
+2406
+2416
+2417
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2501
+2503
+2505
+2507
+2511
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2546
+2561
+2564
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2649
+2653
+2654
+2655
+2662
+2678
+2689
+2692
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2788
+2790
+2800
+2809
+2810
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2876
+2885
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2916
+2918
+2928
+2929
+2930
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3024
+3025
+3031
+3032
+3046
+3056
+3072
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3130
+3133
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3160
+3163
+3168
+3172
+3174
+3184
+3201
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3260
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3300
+3302
+3312
+3313
+3315
+3329
+3332
+3333
+3341
+3342
+3345
+3346
+3387
+3389
+3397
+3398
+3401
+3402
+3407
+3415
+3416
+3423
+3428
+3430
+3440
+3450
+3456
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3558
+3568
+3570
+3572
+3585
+3643
+3648
+3663
+3664
+3674
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3792
+3802
+3804
+3808
+3840
+3841
+3864
+3866
+3872
+3882
+3893
+3894
+3895
+3896
+3897
+3898
+3902
+3912
+3913
+3949
+3953
+3973
+3974
+3992
+3993
+4029
+4038
+4039
+4096
+4170
+4176
+4254
+4256
+4294
+4295
+4296
+4301
+4302
+4304
+4347
+4348
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4957
+4960
+4992
+5008
+5024
+5110
+5112
+5118
+5121
+5741
+5743
+5760
+5761
+5787
+5792
+5867
+5870
+5881
+5888
+5901
+5902
+5909
+5920
+5941
+5952
+5972
+5984
+5997
+5998
+6001
+6002
+6004
+6016
+6100
+6103
+6104
+6108
+6110
+6112
+6122
+6155
+6158
+6160
+6170
+6176
+6264
+6272
+6315
+6320
+6390
+6400
+6431
+6432
+6444
+6448
+6460
+6470
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6608
+6618
+6656
+6684
+6688
+6751
+6752
+6781
+6783
+6794
+6800
+6810
+6823
+6824
+6832
+6847
+6912
+6988
+6992
+7002
+7019
+7028
+7040
+7156
+7168
+7224
+7232
+7242
+7245
+7294
+7376
+7379
+7380
+7415
+7416
+7418
+7424
+7670
+7676
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8125
+8126
+8127
+8130
+8133
+8134
+8141
+8144
+8148
+8150
+8156
+8160
+8173
+8178
+8181
+8182
+8189
+8204
+8206
+8255
+8257
+8276
+8277
+8305
+8306
+8319
+8320
+8336
+8349
+8400
+8433
+8450
+8451
+8455
+8456
+8458
+8468
+8469
+8470
+8473
+8478
+8484
+8485
+8486
+8487
+8488
+8489
+8490
+8494
+8495
+8506
+8508
+8512
+8517
+8522
+8526
+8527
+8544
+8585
+9398
+9450
+11264
+11311
+11312
+11359
+11360
+11493
+11499
+11508
+11520
+11558
+11559
+11560
+11565
+11566
+11568
+11624
+11631
+11632
+11647
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11744
+11776
+11823
+11824
+12293
+12296
+12321
+12336
+12337
+12342
+12344
+12349
+12353
+12439
+12441
+12443
+12445
+12448
+12449
+12539
+12540
+12544
+12549
+12590
+12593
+12687
+12704
+12731
+12784
+12800
+13312
+19894
+19968
+40918
+40960
+42125
+42192
+42238
+42240
+42509
+42512
+42540
+42560
+42611
+42612
+42622
+42623
+42738
+42775
+42784
+42786
+42889
+42891
+42926
+42928
+42936
+42999
+43048
+43072
+43124
+43136
+43205
+43216
+43226
+43232
+43256
+43259
+43260
+43261
+43262
+43264
+43310
+43312
+43348
+43360
+43389
+43392
+43457
+43471
+43482
+43488
+43519
+43520
+43575
+43584
+43598
+43600
+43610
+43616
+43639
+43642
+43715
+43739
+43742
+43744
+43760
+43762
+43767
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43824
+43867
+43868
+43878
+43888
+44011
+44012
+44014
+44016
+44026
+44032
+55204
+55216
+55239
+55243
+55292
+63744
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64297
+64298
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64434
+64467
+64830
+64848
+64912
+64914
+64968
+65008
+65020
+65024
+65040
+65056
+65072
+65075
+65077
+65101
+65104
+65136
+65141
+65142
+65277
+65296
+65306
+65313
+65339
+65343
+65344
+65345
+65371
+65382
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65536
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65856
+65909
+66045
+66046
+66176
+66205
+66208
+66257
+66272
+66273
+66304
+66336
+66352
+66379
+66384
+66427
+66432
+66462
+66464
+66500
+66504
+66512
+66513
+66518
+66560
+66718
+66720
+66730
+66816
+66856
+66864
+66916
+67072
+67383
+67392
+67414
+67424
+67432
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67680
+67703
+67712
+67743
+67808
+67827
+67828
+67830
+67840
+67862
+67872
+67898
+67968
+68024
+68030
+68032
+68096
+68100
+68101
+68103
+68108
+68116
+68117
+68120
+68121
+68148
+68152
+68155
+68159
+68160
+68192
+68221
+68224
+68253
+68288
+68296
+68297
+68327
+68352
+68406
+68416
+68438
+68448
+68467
+68480
+68498
+68608
+68681
+68736
+68787
+68800
+68851
+69632
+69703
+69734
+69744
+69759
+69819
+69840
+69865
+69872
+69882
+69888
+69941
+69942
+69952
+69968
+70004
+70006
+70007
+70016
+70085
+70090
+70093
+70096
+70107
+70108
+70109
+70144
+70162
+70163
+70200
+70272
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70313
+70320
+70379
+70384
+70394
+70400
+70404
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70460
+70469
+70471
+70473
+70475
+70478
+70480
+70481
+70487
+70488
+70493
+70500
+70502
+70509
+70512
+70517
+70784
+70854
+70855
+70856
+70864
+70874
+71040
+71094
+71096
+71105
+71128
+71134
+71168
+71233
+71236
+71237
+71248
+71258
+71296
+71352
+71360
+71370
+71424
+71450
+71453
+71468
+71472
+71482
+71840
+71914
+71935
+71936
+72384
+72441
+73728
+74650
+74752
+74863
+74880
+75076
+77824
+78895
+82944
+83527
+92160
+92729
+92736
+92767
+92768
+92778
+92880
+92910
+92912
+92917
+92928
+92983
+92992
+92996
+93008
+93018
+93027
+93048
+93053
+93072
+93952
+94021
+94032
+94079
+94095
+94112
+110592
+110594
+113664
+113771
+113776
+113789
+113792
+113801
+113808
+113818
+113821
+113823
+119141
+119146
+119149
+119155
+119163
+119171
+119173
+119180
+119210
+119214
+119362
+119365
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120513
+120514
+120539
+120540
+120571
+120572
+120597
+120598
+120629
+120630
+120655
+120656
+120687
+120688
+120713
+120714
+120745
+120746
+120771
+120772
+120780
+120782
+120832
+121344
+121399
+121403
+121453
+121461
+121462
+121476
+121477
+121499
+121504
+121505
+121520
+124928
+125125
+125136
+125143
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+127280
+127306
+127312
+127338
+127344
+127370
+131072
+173783
+173824
+177973
+177984
+178206
+178208
+183970
+194560
+195102
+917760
+918000
+END
diff --git a/lib/5.24.1/unicore/lib/Perl/XPosixPu.pl b/lib/5.24.1/unicore/lib/Perl/XPosixPu.pl
new file mode 100644
index 00000000..766c45e2
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Perl/XPosixPu.pl
@@ -0,0 +1,326 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V312
+33
+48
+58
+65
+91
+97
+123
+127
+161
+162
+167
+168
+171
+172
+182
+184
+187
+188
+191
+192
+894
+895
+903
+904
+1370
+1376
+1417
+1419
+1470
+1471
+1472
+1473
+1475
+1476
+1478
+1479
+1523
+1525
+1545
+1547
+1548
+1550
+1563
+1564
+1566
+1568
+1642
+1646
+1748
+1749
+1792
+1806
+2039
+2042
+2096
+2111
+2142
+2143
+2404
+2406
+2416
+2417
+2800
+2801
+3572
+3573
+3663
+3664
+3674
+3676
+3844
+3859
+3860
+3861
+3898
+3902
+3973
+3974
+4048
+4053
+4057
+4059
+4170
+4176
+4347
+4348
+4960
+4969
+5120
+5121
+5741
+5743
+5787
+5789
+5867
+5870
+5941
+5943
+6100
+6103
+6104
+6107
+6144
+6155
+6468
+6470
+6686
+6688
+6816
+6823
+6824
+6830
+7002
+7009
+7164
+7168
+7227
+7232
+7294
+7296
+7360
+7368
+7379
+7380
+8208
+8232
+8240
+8260
+8261
+8274
+8275
+8287
+8317
+8319
+8333
+8335
+8968
+8972
+9001
+9003
+10088
+10102
+10181
+10183
+10214
+10224
+10627
+10649
+10712
+10716
+10748
+10750
+11513
+11517
+11518
+11520
+11632
+11633
+11776
+11823
+11824
+11843
+12289
+12292
+12296
+12306
+12308
+12320
+12336
+12337
+12349
+12350
+12448
+12449
+12539
+12540
+42238
+42240
+42509
+42512
+42611
+42612
+42622
+42623
+42738
+42744
+43124
+43128
+43214
+43216
+43256
+43259
+43260
+43261
+43310
+43312
+43359
+43360
+43457
+43470
+43486
+43488
+43612
+43616
+43742
+43744
+43760
+43762
+44011
+44012
+64830
+64832
+65040
+65050
+65072
+65107
+65108
+65122
+65123
+65124
+65128
+65129
+65130
+65132
+65281
+65284
+65285
+65291
+65292
+65296
+65306
+65308
+65311
+65313
+65339
+65342
+65343
+65344
+65371
+65372
+65373
+65374
+65375
+65382
+65792
+65795
+66463
+66464
+66512
+66513
+66927
+66928
+67671
+67672
+67871
+67872
+67903
+67904
+68176
+68185
+68223
+68224
+68336
+68343
+68409
+68416
+68505
+68509
+69703
+69710
+69819
+69821
+69822
+69826
+69952
+69956
+70004
+70006
+70085
+70090
+70093
+70094
+70107
+70108
+70109
+70112
+70200
+70206
+70313
+70314
+70854
+70855
+71105
+71128
+71233
+71236
+71484
+71487
+74864
+74869
+92782
+92784
+92917
+92918
+92983
+92988
+92996
+92997
+113823
+113824
+121479
+121484
+END
diff --git a/lib/5.24.1/unicore/lib/Perl/_PerlAny.pl b/lib/5.24.1/unicore/lib/Perl/_PerlAny.pl
new file mode 100644
index 00000000..7d788c3b
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Perl/_PerlAny.pl
@@ -0,0 +1,260 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V246
+65
+91
+97
+123
+181
+182
+192
+215
+216
+247
+248
+305
+306
+312
+313
+397
+398
+411
+412
+426
+428
+442
+444
+446
+447
+448
+452
+545
+546
+564
+570
+597
+598
+600
+601
+602
+603
+605
+608
+610
+611
+612
+613
+615
+616
+618
+619
+621
+623
+624
+625
+627
+629
+630
+637
+638
+640
+641
+643
+644
+647
+653
+658
+659
+669
+671
+700
+701
+702
+703
+768
+770
+775
+777
+778
+779
+780
+781
+787
+788
+817
+818
+834
+835
+837
+838
+880
+884
+886
+888
+891
+894
+895
+896
+902
+903
+904
+907
+908
+909
+910
+930
+931
+978
+981
+1014
+1015
+1020
+1021
+1154
+1162
+1328
+1329
+1367
+1377
+1416
+4256
+4294
+4295
+4296
+4301
+4302
+5024
+5110
+5112
+5118
+7545
+7546
+7549
+7550
+7680
+7836
+7838
+7839
+7840
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8125
+8126
+8127
+8130
+8133
+8134
+8141
+8144
+8148
+8150
+8156
+8160
+8173
+8178
+8181
+8182
+8189
+8486
+8487
+8490
+8492
+8498
+8499
+8526
+8527
+8544
+8576
+8579
+8581
+9398
+9450
+11264
+11311
+11312
+11359
+11360
+11377
+11378
+11380
+11381
+11383
+11390
+11492
+11499
+11503
+11506
+11508
+11520
+11558
+11559
+11560
+11565
+11566
+42560
+42606
+42624
+42652
+42786
+42800
+42802
+42864
+42873
+42888
+42891
+42894
+42896
+42900
+42902
+42926
+42928
+42936
+43859
+43860
+43888
+43968
+64256
+64263
+64275
+64280
+65313
+65339
+65345
+65371
+66560
+66640
+68736
+68787
+68800
+68851
+71840
+71904
+END
diff --git a/lib/5.24.1/unicore/lib/Perl/_PerlCh2.pl b/lib/5.24.1/unicore/lib/Perl/_PerlCh2.pl
new file mode 100644
index 00000000..44cf952d
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Perl/_PerlCh2.pl
@@ -0,0 +1,1338 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1324
+32
+33
+40
+42
+45
+46
+48
+58
+65
+91
+95
+96
+97
+123
+160
+161
+170
+171
+181
+182
+186
+187
+192
+215
+216
+247
+248
+706
+710
+722
+736
+741
+748
+749
+750
+751
+768
+885
+886
+888
+891
+894
+895
+896
+902
+903
+904
+907
+908
+909
+910
+930
+931
+1014
+1015
+1154
+1155
+1160
+1162
+1328
+1329
+1367
+1369
+1370
+1377
+1416
+1425
+1470
+1471
+1472
+1473
+1475
+1476
+1478
+1479
+1480
+1488
+1515
+1520
+1523
+1552
+1563
+1568
+1642
+1646
+1748
+1749
+1757
+1759
+1769
+1770
+1789
+1791
+1792
+1808
+1867
+1869
+1970
+1984
+2038
+2042
+2043
+2048
+2094
+2112
+2140
+2208
+2229
+2275
+2404
+2406
+2416
+2417
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2501
+2503
+2505
+2507
+2511
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2546
+2561
+2564
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2649
+2653
+2654
+2655
+2662
+2678
+2689
+2692
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2788
+2790
+2800
+2809
+2810
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2876
+2885
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2916
+2918
+2928
+2929
+2930
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3024
+3025
+3031
+3032
+3046
+3056
+3072
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3130
+3133
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3160
+3163
+3168
+3172
+3174
+3184
+3201
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3260
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3300
+3302
+3312
+3313
+3315
+3329
+3332
+3333
+3341
+3342
+3345
+3346
+3387
+3389
+3397
+3398
+3401
+3402
+3407
+3415
+3416
+3423
+3428
+3430
+3440
+3450
+3456
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3558
+3568
+3570
+3572
+3585
+3643
+3648
+3663
+3664
+3674
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3792
+3802
+3804
+3808
+3840
+3841
+3864
+3866
+3872
+3882
+3893
+3894
+3895
+3896
+3897
+3898
+3902
+3912
+3913
+3949
+3953
+3973
+3974
+3992
+3993
+4029
+4038
+4039
+4096
+4170
+4176
+4254
+4256
+4294
+4295
+4296
+4301
+4302
+4304
+4347
+4348
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4957
+4960
+4992
+5008
+5024
+5110
+5112
+5118
+5121
+5741
+5743
+5760
+5761
+5787
+5792
+5867
+5870
+5881
+5888
+5901
+5902
+5909
+5920
+5941
+5952
+5972
+5984
+5997
+5998
+6001
+6002
+6004
+6016
+6100
+6103
+6104
+6108
+6110
+6112
+6122
+6155
+6158
+6160
+6170
+6176
+6264
+6272
+6315
+6320
+6390
+6400
+6431
+6432
+6444
+6448
+6460
+6470
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6608
+6618
+6656
+6684
+6688
+6751
+6752
+6781
+6783
+6794
+6800
+6810
+6823
+6824
+6832
+6846
+6912
+6988
+6992
+7002
+7019
+7028
+7040
+7156
+7168
+7224
+7232
+7242
+7245
+7294
+7376
+7379
+7380
+7415
+7416
+7418
+7424
+7670
+7676
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8125
+8126
+8127
+8130
+8133
+8134
+8141
+8144
+8148
+8150
+8156
+8160
+8173
+8178
+8181
+8182
+8189
+8255
+8257
+8276
+8277
+8305
+8306
+8319
+8320
+8336
+8349
+8400
+8413
+8417
+8418
+8421
+8433
+8450
+8451
+8455
+8456
+8458
+8468
+8469
+8470
+8473
+8478
+8484
+8485
+8486
+8487
+8488
+8489
+8490
+8494
+8495
+8506
+8508
+8512
+8517
+8522
+8526
+8527
+8544
+8585
+11264
+11311
+11312
+11359
+11360
+11493
+11499
+11508
+11520
+11558
+11559
+11560
+11565
+11566
+11568
+11624
+11631
+11632
+11647
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11744
+11776
+12293
+12296
+12321
+12336
+12337
+12342
+12344
+12349
+12353
+12439
+12441
+12443
+12445
+12448
+12449
+12539
+12540
+12544
+12549
+12590
+12593
+12687
+12704
+12731
+12784
+12800
+13312
+19894
+19968
+40918
+40960
+42125
+42192
+42238
+42240
+42509
+42512
+42540
+42560
+42608
+42612
+42622
+42623
+42738
+42775
+42784
+42786
+42889
+42891
+42926
+42928
+42936
+42999
+43048
+43072
+43124
+43136
+43205
+43216
+43226
+43232
+43256
+43259
+43260
+43261
+43262
+43264
+43310
+43312
+43348
+43360
+43389
+43392
+43457
+43471
+43482
+43488
+43519
+43520
+43575
+43584
+43598
+43600
+43610
+43616
+43639
+43642
+43715
+43739
+43742
+43744
+43760
+43762
+43767
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43824
+43867
+43868
+43878
+43888
+44011
+44012
+44014
+44016
+44026
+44032
+55204
+55216
+55239
+55243
+55292
+63744
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64297
+64298
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64434
+64467
+64606
+64612
+64830
+64848
+64912
+64914
+64968
+65008
+65018
+65024
+65040
+65056
+65072
+65075
+65077
+65101
+65104
+65137
+65138
+65139
+65140
+65143
+65144
+65145
+65146
+65147
+65148
+65149
+65150
+65151
+65277
+65296
+65306
+65313
+65339
+65343
+65344
+65345
+65371
+65382
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65536
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65856
+65909
+66045
+66046
+66176
+66205
+66208
+66257
+66272
+66273
+66304
+66336
+66352
+66379
+66384
+66427
+66432
+66462
+66464
+66500
+66504
+66512
+66513
+66518
+66560
+66718
+66720
+66730
+66816
+66856
+66864
+66916
+67072
+67383
+67392
+67414
+67424
+67432
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67680
+67703
+67712
+67743
+67808
+67827
+67828
+67830
+67840
+67862
+67872
+67898
+67968
+68024
+68030
+68032
+68096
+68100
+68101
+68103
+68108
+68116
+68117
+68120
+68121
+68148
+68152
+68155
+68159
+68160
+68192
+68221
+68224
+68253
+68288
+68296
+68297
+68327
+68352
+68406
+68416
+68438
+68448
+68467
+68480
+68498
+68608
+68681
+68736
+68787
+68800
+68851
+69632
+69703
+69734
+69744
+69759
+69819
+69840
+69865
+69872
+69882
+69888
+69941
+69942
+69952
+69968
+70004
+70006
+70007
+70016
+70085
+70090
+70093
+70096
+70107
+70108
+70109
+70144
+70162
+70163
+70200
+70272
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70313
+70320
+70379
+70384
+70394
+70400
+70404
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70460
+70469
+70471
+70473
+70475
+70478
+70480
+70481
+70487
+70488
+70493
+70500
+70502
+70509
+70512
+70517
+70784
+70854
+70855
+70856
+70864
+70874
+71040
+71094
+71096
+71105
+71128
+71134
+71168
+71233
+71236
+71237
+71248
+71258
+71296
+71352
+71360
+71370
+71424
+71450
+71453
+71468
+71472
+71482
+71840
+71914
+71935
+71936
+72384
+72441
+73728
+74650
+74752
+74863
+74880
+75076
+77824
+78895
+82944
+83527
+92160
+92729
+92736
+92767
+92768
+92778
+92880
+92910
+92912
+92917
+92928
+92983
+92992
+92996
+93008
+93018
+93027
+93048
+93053
+93072
+93952
+94021
+94032
+94079
+94095
+94112
+110592
+110594
+113664
+113771
+113776
+113789
+113792
+113801
+113808
+113818
+113821
+113823
+119141
+119146
+119149
+119155
+119163
+119171
+119173
+119180
+119210
+119214
+119362
+119365
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120513
+120514
+120539
+120540
+120571
+120572
+120597
+120598
+120629
+120630
+120655
+120656
+120687
+120688
+120713
+120714
+120745
+120746
+120771
+120772
+120780
+120782
+120832
+121344
+121399
+121403
+121453
+121461
+121462
+121476
+121477
+121499
+121504
+121505
+121520
+124928
+125125
+125136
+125143
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+131072
+173783
+173824
+177973
+177984
+178206
+178208
+183970
+194560
+195102
+917760
+918000
+END
diff --git a/lib/5.24.1/unicore/lib/Perl/_PerlCha.pl b/lib/5.24.1/unicore/lib/Perl/_PerlCha.pl
new file mode 100644
index 00000000..f5e62836
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Perl/_PerlCha.pl
@@ -0,0 +1,1134 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1120
+65
+91
+97
+123
+170
+171
+181
+182
+186
+187
+192
+215
+216
+247
+248
+706
+710
+722
+736
+741
+748
+749
+750
+751
+880
+885
+886
+888
+891
+894
+895
+896
+902
+903
+904
+907
+908
+909
+910
+930
+931
+1014
+1015
+1154
+1162
+1328
+1329
+1367
+1369
+1370
+1377
+1416
+1488
+1515
+1520
+1523
+1568
+1611
+1646
+1648
+1649
+1748
+1749
+1750
+1765
+1767
+1774
+1776
+1786
+1789
+1791
+1792
+1808
+1809
+1810
+1840
+1869
+1958
+1969
+1970
+1994
+2027
+2036
+2038
+2042
+2043
+2048
+2070
+2074
+2075
+2084
+2085
+2088
+2089
+2112
+2137
+2208
+2229
+2308
+2362
+2365
+2366
+2384
+2385
+2392
+2402
+2417
+2433
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2493
+2494
+2510
+2511
+2524
+2526
+2527
+2530
+2544
+2546
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2649
+2653
+2654
+2655
+2674
+2677
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2749
+2750
+2768
+2769
+2784
+2786
+2809
+2810
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2877
+2878
+2908
+2910
+2911
+2914
+2929
+2930
+2947
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3024
+3025
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3130
+3133
+3134
+3160
+3163
+3168
+3170
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3261
+3262
+3294
+3295
+3296
+3298
+3313
+3315
+3333
+3341
+3342
+3345
+3346
+3387
+3389
+3390
+3406
+3407
+3423
+3426
+3450
+3456
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3585
+3633
+3634
+3635
+3648
+3655
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3761
+3762
+3763
+3773
+3774
+3776
+3781
+3782
+3783
+3804
+3808
+3840
+3841
+3904
+3912
+3913
+3949
+3976
+3981
+4096
+4139
+4159
+4160
+4176
+4182
+4186
+4190
+4193
+4194
+4197
+4199
+4206
+4209
+4213
+4226
+4238
+4239
+4256
+4294
+4295
+4296
+4301
+4302
+4304
+4347
+4348
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4992
+5008
+5024
+5110
+5112
+5118
+5121
+5741
+5743
+5760
+5761
+5787
+5792
+5867
+5873
+5881
+5888
+5901
+5902
+5906
+5920
+5938
+5952
+5970
+5984
+5997
+5998
+6001
+6016
+6068
+6103
+6104
+6108
+6109
+6176
+6264
+6272
+6313
+6314
+6315
+6320
+6390
+6400
+6431
+6480
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6656
+6679
+6688
+6741
+6823
+6824
+6917
+6964
+6981
+6988
+7043
+7073
+7086
+7088
+7098
+7142
+7168
+7204
+7245
+7248
+7258
+7294
+7401
+7405
+7406
+7410
+7413
+7415
+7424
+7616
+7680
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8125
+8126
+8127
+8130
+8133
+8134
+8141
+8144
+8148
+8150
+8156
+8160
+8173
+8178
+8181
+8182
+8189
+8305
+8306
+8319
+8320
+8336
+8349
+8450
+8451
+8455
+8456
+8458
+8468
+8469
+8470
+8473
+8478
+8484
+8485
+8486
+8487
+8488
+8489
+8490
+8494
+8495
+8506
+8508
+8512
+8517
+8522
+8526
+8527
+8579
+8581
+11264
+11311
+11312
+11359
+11360
+11493
+11499
+11503
+11506
+11508
+11520
+11558
+11559
+11560
+11565
+11566
+11568
+11624
+11631
+11632
+11648
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+12293
+12295
+12337
+12342
+12347
+12349
+12353
+12439
+12445
+12448
+12449
+12539
+12540
+12544
+12549
+12590
+12593
+12687
+12704
+12731
+12784
+12800
+13312
+19894
+19968
+40918
+40960
+42125
+42192
+42238
+42240
+42509
+42512
+42528
+42538
+42540
+42560
+42607
+42623
+42654
+42656
+42726
+42775
+42784
+42786
+42889
+42891
+42926
+42928
+42936
+42999
+43010
+43011
+43014
+43015
+43019
+43020
+43043
+43072
+43124
+43138
+43188
+43250
+43256
+43259
+43260
+43261
+43262
+43274
+43302
+43312
+43335
+43360
+43389
+43396
+43443
+43471
+43472
+43488
+43493
+43494
+43504
+43514
+43519
+43520
+43561
+43584
+43587
+43588
+43596
+43616
+43639
+43642
+43643
+43646
+43696
+43697
+43698
+43701
+43703
+43705
+43710
+43712
+43713
+43714
+43715
+43739
+43742
+43744
+43755
+43762
+43765
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43824
+43867
+43868
+43878
+43888
+44003
+44032
+55204
+55216
+55239
+55243
+55292
+63744
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64286
+64287
+64297
+64298
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64434
+64467
+64606
+64612
+64830
+64848
+64912
+64914
+64968
+65008
+65018
+65137
+65138
+65139
+65140
+65143
+65144
+65145
+65146
+65147
+65148
+65149
+65150
+65151
+65277
+65313
+65339
+65345
+65371
+65382
+65438
+65440
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65536
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+66176
+66205
+66208
+66257
+66304
+66336
+66352
+66369
+66370
+66378
+66384
+66422
+66432
+66462
+66464
+66500
+66504
+66512
+66560
+66718
+66816
+66856
+66864
+66916
+67072
+67383
+67392
+67414
+67424
+67432
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67680
+67703
+67712
+67743
+67808
+67827
+67828
+67830
+67840
+67862
+67872
+67898
+67968
+68024
+68030
+68032
+68096
+68097
+68112
+68116
+68117
+68120
+68121
+68148
+68192
+68221
+68224
+68253
+68288
+68296
+68297
+68325
+68352
+68406
+68416
+68438
+68448
+68467
+68480
+68498
+68608
+68681
+68736
+68787
+68800
+68851
+69635
+69688
+69763
+69808
+69840
+69865
+69891
+69927
+69968
+70003
+70006
+70007
+70019
+70067
+70081
+70085
+70106
+70107
+70108
+70109
+70144
+70162
+70163
+70188
+70272
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70313
+70320
+70367
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70461
+70462
+70480
+70481
+70493
+70498
+70784
+70832
+70852
+70854
+70855
+70856
+71040
+71087
+71128
+71132
+71168
+71216
+71236
+71237
+71296
+71339
+71424
+71450
+71840
+71904
+71935
+71936
+72384
+72441
+73728
+74650
+74880
+75076
+77824
+78895
+82944
+83527
+92160
+92729
+92736
+92767
+92880
+92910
+92928
+92976
+92992
+92996
+93027
+93048
+93053
+93072
+93952
+94021
+94032
+94033
+94099
+94112
+110592
+110594
+113664
+113771
+113776
+113789
+113792
+113801
+113808
+113818
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120513
+120514
+120539
+120540
+120571
+120572
+120597
+120598
+120629
+120630
+120655
+120656
+120687
+120688
+120713
+120714
+120745
+120746
+120771
+120772
+120780
+124928
+125125
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+131072
+173783
+173824
+177973
+177984
+178206
+178208
+183970
+194560
+195102
+END
diff --git a/lib/5.24.1/unicore/lib/Perl/_PerlFol.pl b/lib/5.24.1/unicore/lib/Perl/_PerlFol.pl
new file mode 100644
index 00000000..c6fc4b22
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Perl/_PerlFol.pl
@@ -0,0 +1,72 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V58
+223
+224
+304
+305
+329
+330
+496
+497
+912
+913
+944
+945
+1415
+1416
+7830
+7835
+7838
+7839
+8016
+8017
+8018
+8019
+8020
+8021
+8022
+8023
+8064
+8112
+8114
+8117
+8118
+8120
+8124
+8125
+8130
+8133
+8134
+8136
+8140
+8141
+8146
+8148
+8150
+8152
+8162
+8165
+8166
+8168
+8178
+8181
+8182
+8184
+8188
+8189
+64256
+64263
+64275
+64280
+END
diff --git a/lib/5.24.1/unicore/lib/Perl/_PerlIDC.pl b/lib/5.24.1/unicore/lib/Perl/_PerlIDC.pl
new file mode 100644
index 00000000..a6e997ca
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Perl/_PerlIDC.pl
@@ -0,0 +1,1330 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1316
+48
+58
+65
+91
+95
+96
+97
+123
+170
+171
+181
+182
+186
+187
+192
+215
+216
+247
+248
+706
+710
+722
+736
+741
+748
+749
+750
+751
+768
+885
+886
+888
+891
+894
+895
+896
+902
+903
+904
+907
+908
+909
+910
+930
+931
+1014
+1015
+1154
+1155
+1160
+1162
+1328
+1329
+1367
+1369
+1370
+1377
+1416
+1425
+1470
+1471
+1472
+1473
+1475
+1476
+1478
+1479
+1480
+1488
+1515
+1520
+1523
+1552
+1563
+1568
+1642
+1646
+1748
+1749
+1757
+1759
+1769
+1770
+1789
+1791
+1792
+1808
+1867
+1869
+1970
+1984
+2038
+2042
+2043
+2048
+2094
+2112
+2140
+2208
+2229
+2275
+2404
+2406
+2416
+2417
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2501
+2503
+2505
+2507
+2511
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2546
+2561
+2564
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2649
+2653
+2654
+2655
+2662
+2678
+2689
+2692
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2788
+2790
+2800
+2809
+2810
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2876
+2885
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2916
+2918
+2928
+2929
+2930
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3024
+3025
+3031
+3032
+3046
+3056
+3072
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3130
+3133
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3160
+3163
+3168
+3172
+3174
+3184
+3201
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3260
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3300
+3302
+3312
+3313
+3315
+3329
+3332
+3333
+3341
+3342
+3345
+3346
+3387
+3389
+3397
+3398
+3401
+3402
+3407
+3415
+3416
+3423
+3428
+3430
+3440
+3450
+3456
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3558
+3568
+3570
+3572
+3585
+3643
+3648
+3663
+3664
+3674
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3792
+3802
+3804
+3808
+3840
+3841
+3864
+3866
+3872
+3882
+3893
+3894
+3895
+3896
+3897
+3898
+3902
+3912
+3913
+3949
+3953
+3973
+3974
+3992
+3993
+4029
+4038
+4039
+4096
+4170
+4176
+4254
+4256
+4294
+4295
+4296
+4301
+4302
+4304
+4347
+4348
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4957
+4960
+4992
+5008
+5024
+5110
+5112
+5118
+5121
+5741
+5743
+5760
+5761
+5787
+5792
+5867
+5870
+5881
+5888
+5901
+5902
+5909
+5920
+5941
+5952
+5972
+5984
+5997
+5998
+6001
+6002
+6004
+6016
+6100
+6103
+6104
+6108
+6110
+6112
+6122
+6155
+6158
+6160
+6170
+6176
+6264
+6272
+6315
+6320
+6390
+6400
+6431
+6432
+6444
+6448
+6460
+6470
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6608
+6618
+6656
+6684
+6688
+6751
+6752
+6781
+6783
+6794
+6800
+6810
+6823
+6824
+6832
+6846
+6912
+6988
+6992
+7002
+7019
+7028
+7040
+7156
+7168
+7224
+7232
+7242
+7245
+7294
+7376
+7379
+7380
+7415
+7416
+7418
+7424
+7670
+7676
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8125
+8126
+8127
+8130
+8133
+8134
+8141
+8144
+8148
+8150
+8156
+8160
+8173
+8178
+8181
+8182
+8189
+8255
+8257
+8276
+8277
+8305
+8306
+8319
+8320
+8336
+8349
+8400
+8413
+8417
+8418
+8421
+8433
+8450
+8451
+8455
+8456
+8458
+8468
+8469
+8470
+8473
+8478
+8484
+8485
+8486
+8487
+8488
+8489
+8490
+8494
+8495
+8506
+8508
+8512
+8517
+8522
+8526
+8527
+8544
+8585
+11264
+11311
+11312
+11359
+11360
+11493
+11499
+11508
+11520
+11558
+11559
+11560
+11565
+11566
+11568
+11624
+11631
+11632
+11647
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11744
+11776
+12293
+12296
+12321
+12336
+12337
+12342
+12344
+12349
+12353
+12439
+12441
+12443
+12445
+12448
+12449
+12539
+12540
+12544
+12549
+12590
+12593
+12687
+12704
+12731
+12784
+12800
+13312
+19894
+19968
+40918
+40960
+42125
+42192
+42238
+42240
+42509
+42512
+42540
+42560
+42608
+42612
+42622
+42623
+42738
+42775
+42784
+42786
+42889
+42891
+42926
+42928
+42936
+42999
+43048
+43072
+43124
+43136
+43205
+43216
+43226
+43232
+43256
+43259
+43260
+43261
+43262
+43264
+43310
+43312
+43348
+43360
+43389
+43392
+43457
+43471
+43482
+43488
+43519
+43520
+43575
+43584
+43598
+43600
+43610
+43616
+43639
+43642
+43715
+43739
+43742
+43744
+43760
+43762
+43767
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43824
+43867
+43868
+43878
+43888
+44011
+44012
+44014
+44016
+44026
+44032
+55204
+55216
+55239
+55243
+55292
+63744
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64297
+64298
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64434
+64467
+64606
+64612
+64830
+64848
+64912
+64914
+64968
+65008
+65018
+65024
+65040
+65056
+65072
+65075
+65077
+65101
+65104
+65137
+65138
+65139
+65140
+65143
+65144
+65145
+65146
+65147
+65148
+65149
+65150
+65151
+65277
+65296
+65306
+65313
+65339
+65343
+65344
+65345
+65371
+65382
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65536
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65856
+65909
+66045
+66046
+66176
+66205
+66208
+66257
+66272
+66273
+66304
+66336
+66352
+66379
+66384
+66427
+66432
+66462
+66464
+66500
+66504
+66512
+66513
+66518
+66560
+66718
+66720
+66730
+66816
+66856
+66864
+66916
+67072
+67383
+67392
+67414
+67424
+67432
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67680
+67703
+67712
+67743
+67808
+67827
+67828
+67830
+67840
+67862
+67872
+67898
+67968
+68024
+68030
+68032
+68096
+68100
+68101
+68103
+68108
+68116
+68117
+68120
+68121
+68148
+68152
+68155
+68159
+68160
+68192
+68221
+68224
+68253
+68288
+68296
+68297
+68327
+68352
+68406
+68416
+68438
+68448
+68467
+68480
+68498
+68608
+68681
+68736
+68787
+68800
+68851
+69632
+69703
+69734
+69744
+69759
+69819
+69840
+69865
+69872
+69882
+69888
+69941
+69942
+69952
+69968
+70004
+70006
+70007
+70016
+70085
+70090
+70093
+70096
+70107
+70108
+70109
+70144
+70162
+70163
+70200
+70272
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70313
+70320
+70379
+70384
+70394
+70400
+70404
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70460
+70469
+70471
+70473
+70475
+70478
+70480
+70481
+70487
+70488
+70493
+70500
+70502
+70509
+70512
+70517
+70784
+70854
+70855
+70856
+70864
+70874
+71040
+71094
+71096
+71105
+71128
+71134
+71168
+71233
+71236
+71237
+71248
+71258
+71296
+71352
+71360
+71370
+71424
+71450
+71453
+71468
+71472
+71482
+71840
+71914
+71935
+71936
+72384
+72441
+73728
+74650
+74752
+74863
+74880
+75076
+77824
+78895
+82944
+83527
+92160
+92729
+92736
+92767
+92768
+92778
+92880
+92910
+92912
+92917
+92928
+92983
+92992
+92996
+93008
+93018
+93027
+93048
+93053
+93072
+93952
+94021
+94032
+94079
+94095
+94112
+110592
+110594
+113664
+113771
+113776
+113789
+113792
+113801
+113808
+113818
+113821
+113823
+119141
+119146
+119149
+119155
+119163
+119171
+119173
+119180
+119210
+119214
+119362
+119365
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120513
+120514
+120539
+120540
+120571
+120572
+120597
+120598
+120629
+120630
+120655
+120656
+120687
+120688
+120713
+120714
+120745
+120746
+120771
+120772
+120780
+120782
+120832
+121344
+121399
+121403
+121453
+121461
+121462
+121476
+121477
+121499
+121504
+121505
+121520
+124928
+125125
+125136
+125143
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+131072
+173783
+173824
+177973
+177984
+178206
+178208
+183970
+194560
+195102
+917760
+918000
+END
diff --git a/lib/5.24.1/unicore/lib/Perl/_PerlIDS.pl b/lib/5.24.1/unicore/lib/Perl/_PerlIDS.pl
new file mode 100644
index 00000000..064974bc
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Perl/_PerlIDS.pl
@@ -0,0 +1,1142 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1128
+65
+91
+95
+96
+97
+123
+170
+171
+181
+182
+186
+187
+192
+215
+216
+247
+248
+706
+710
+722
+736
+741
+748
+749
+750
+751
+880
+885
+886
+888
+891
+894
+895
+896
+902
+903
+904
+907
+908
+909
+910
+930
+931
+1014
+1015
+1154
+1162
+1328
+1329
+1367
+1369
+1370
+1377
+1416
+1488
+1515
+1520
+1523
+1568
+1611
+1646
+1648
+1649
+1748
+1749
+1750
+1765
+1767
+1774
+1776
+1786
+1789
+1791
+1792
+1808
+1809
+1810
+1840
+1869
+1958
+1969
+1970
+1994
+2027
+2036
+2038
+2042
+2043
+2048
+2070
+2074
+2075
+2084
+2085
+2088
+2089
+2112
+2137
+2208
+2229
+2308
+2362
+2365
+2366
+2384
+2385
+2392
+2402
+2417
+2433
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2493
+2494
+2510
+2511
+2524
+2526
+2527
+2530
+2544
+2546
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2649
+2653
+2654
+2655
+2674
+2677
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2749
+2750
+2768
+2769
+2784
+2786
+2809
+2810
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2877
+2878
+2908
+2910
+2911
+2914
+2929
+2930
+2947
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3024
+3025
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3130
+3133
+3134
+3160
+3163
+3168
+3170
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3261
+3262
+3294
+3295
+3296
+3298
+3313
+3315
+3333
+3341
+3342
+3345
+3346
+3387
+3389
+3390
+3406
+3407
+3423
+3426
+3450
+3456
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3585
+3633
+3634
+3635
+3648
+3655
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3761
+3762
+3763
+3773
+3774
+3776
+3781
+3782
+3783
+3804
+3808
+3840
+3841
+3904
+3912
+3913
+3949
+3976
+3981
+4096
+4139
+4159
+4160
+4176
+4182
+4186
+4190
+4193
+4194
+4197
+4199
+4206
+4209
+4213
+4226
+4238
+4239
+4256
+4294
+4295
+4296
+4301
+4302
+4304
+4347
+4348
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4992
+5008
+5024
+5110
+5112
+5118
+5121
+5741
+5743
+5760
+5761
+5787
+5792
+5867
+5870
+5881
+5888
+5901
+5902
+5906
+5920
+5938
+5952
+5970
+5984
+5997
+5998
+6001
+6016
+6068
+6103
+6104
+6108
+6109
+6176
+6264
+6272
+6313
+6314
+6315
+6320
+6390
+6400
+6431
+6480
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6656
+6679
+6688
+6741
+6823
+6824
+6917
+6964
+6981
+6988
+7043
+7073
+7086
+7088
+7098
+7142
+7168
+7204
+7245
+7248
+7258
+7294
+7401
+7405
+7406
+7410
+7413
+7415
+7424
+7616
+7680
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8125
+8126
+8127
+8130
+8133
+8134
+8141
+8144
+8148
+8150
+8156
+8160
+8173
+8178
+8181
+8182
+8189
+8305
+8306
+8319
+8320
+8336
+8349
+8450
+8451
+8455
+8456
+8458
+8468
+8469
+8470
+8473
+8478
+8484
+8485
+8486
+8487
+8488
+8489
+8490
+8494
+8495
+8506
+8508
+8512
+8517
+8522
+8526
+8527
+8544
+8585
+11264
+11311
+11312
+11359
+11360
+11493
+11499
+11503
+11506
+11508
+11520
+11558
+11559
+11560
+11565
+11566
+11568
+11624
+11631
+11632
+11648
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+12293
+12296
+12321
+12330
+12337
+12342
+12344
+12349
+12353
+12439
+12445
+12448
+12449
+12539
+12540
+12544
+12549
+12590
+12593
+12687
+12704
+12731
+12784
+12800
+13312
+19894
+19968
+40918
+40960
+42125
+42192
+42238
+42240
+42509
+42512
+42528
+42538
+42540
+42560
+42607
+42623
+42654
+42656
+42736
+42775
+42784
+42786
+42889
+42891
+42926
+42928
+42936
+42999
+43010
+43011
+43014
+43015
+43019
+43020
+43043
+43072
+43124
+43138
+43188
+43250
+43256
+43259
+43260
+43261
+43262
+43274
+43302
+43312
+43335
+43360
+43389
+43396
+43443
+43471
+43472
+43488
+43493
+43494
+43504
+43514
+43519
+43520
+43561
+43584
+43587
+43588
+43596
+43616
+43639
+43642
+43643
+43646
+43696
+43697
+43698
+43701
+43703
+43705
+43710
+43712
+43713
+43714
+43715
+43739
+43742
+43744
+43755
+43762
+43765
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43824
+43867
+43868
+43878
+43888
+44003
+44032
+55204
+55216
+55239
+55243
+55292
+63744
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64286
+64287
+64297
+64298
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64434
+64467
+64606
+64612
+64830
+64848
+64912
+64914
+64968
+65008
+65018
+65137
+65138
+65139
+65140
+65143
+65144
+65145
+65146
+65147
+65148
+65149
+65150
+65151
+65277
+65313
+65339
+65345
+65371
+65382
+65438
+65440
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65536
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65856
+65909
+66176
+66205
+66208
+66257
+66304
+66336
+66352
+66379
+66384
+66422
+66432
+66462
+66464
+66500
+66504
+66512
+66513
+66518
+66560
+66718
+66816
+66856
+66864
+66916
+67072
+67383
+67392
+67414
+67424
+67432
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67680
+67703
+67712
+67743
+67808
+67827
+67828
+67830
+67840
+67862
+67872
+67898
+67968
+68024
+68030
+68032
+68096
+68097
+68112
+68116
+68117
+68120
+68121
+68148
+68192
+68221
+68224
+68253
+68288
+68296
+68297
+68325
+68352
+68406
+68416
+68438
+68448
+68467
+68480
+68498
+68608
+68681
+68736
+68787
+68800
+68851
+69635
+69688
+69763
+69808
+69840
+69865
+69891
+69927
+69968
+70003
+70006
+70007
+70019
+70067
+70081
+70085
+70106
+70107
+70108
+70109
+70144
+70162
+70163
+70188
+70272
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70313
+70320
+70367
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70461
+70462
+70480
+70481
+70493
+70498
+70784
+70832
+70852
+70854
+70855
+70856
+71040
+71087
+71128
+71132
+71168
+71216
+71236
+71237
+71296
+71339
+71424
+71450
+71840
+71904
+71935
+71936
+72384
+72441
+73728
+74650
+74752
+74863
+74880
+75076
+77824
+78895
+82944
+83527
+92160
+92729
+92736
+92767
+92880
+92910
+92928
+92976
+92992
+92996
+93027
+93048
+93053
+93072
+93952
+94021
+94032
+94033
+94099
+94112
+110592
+110594
+113664
+113771
+113776
+113789
+113792
+113801
+113808
+113818
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120513
+120514
+120539
+120540
+120571
+120572
+120597
+120598
+120629
+120630
+120655
+120656
+120687
+120688
+120713
+120714
+120745
+120746
+120771
+120772
+120780
+124928
+125125
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+131072
+173783
+173824
+177973
+177984
+178206
+178208
+183970
+194560
+195102
+END
diff --git a/lib/5.24.1/unicore/lib/Perl/_PerlNch.pl b/lib/5.24.1/unicore/lib/Perl/_PerlNch.pl
new file mode 100644
index 00000000..cae8f1e1
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Perl/_PerlNch.pl
@@ -0,0 +1,50 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V36
+64976
+65008
+65534
+65536
+131070
+131072
+196606
+196608
+262142
+262144
+327678
+327680
+393214
+393216
+458750
+458752
+524286
+524288
+589822
+589824
+655358
+655360
+720894
+720896
+786430
+786432
+851966
+851968
+917502
+917504
+983038
+983040
+1048574
+1048576
+1114110
+1114112
+END
diff --git a/lib/5.24.1/unicore/lib/Perl/_PerlPat.pl b/lib/5.24.1/unicore/lib/Perl/_PerlPat.pl
new file mode 100644
index 00000000..8e69f5b6
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Perl/_PerlPat.pl
@@ -0,0 +1,24 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V10
+9
+14
+32
+33
+133
+134
+8206
+8208
+8232
+8234
+END
diff --git a/lib/5.24.1/unicore/lib/Perl/_PerlPr2.pl b/lib/5.24.1/unicore/lib/Perl/_PerlPr2.pl
new file mode 100644
index 00000000..5cf4324c
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Perl/_PerlPr2.pl
@@ -0,0 +1,40 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V26
+0
+256
+304
+305
+329
+330
+376
+377
+383
+384
+496
+497
+700
+701
+924
+925
+956
+957
+7830
+7835
+7838
+7839
+8490
+8492
+64256
+64263
+END
diff --git a/lib/5.24.1/unicore/lib/Perl/_PerlPro.pl b/lib/5.24.1/unicore/lib/Perl/_PerlPro.pl
new file mode 100644
index 00000000..d9a6801b
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Perl/_PerlPro.pl
@@ -0,0 +1,38 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V24
+0
+256
+304
+305
+329
+330
+376
+377
+383
+384
+496
+497
+924
+925
+956
+957
+7830
+7835
+7838
+7839
+8490
+8492
+64256
+64263
+END
diff --git a/lib/5.24.1/unicore/lib/Perl/_PerlQuo.pl b/lib/5.24.1/unicore/lib/Perl/_PerlQuo.pl
new file mode 100644
index 00000000..50c42e9d
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Perl/_PerlQuo.pl
@@ -0,0 +1,92 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V78
+0
+48
+58
+65
+91
+95
+96
+97
+123
+168
+169
+170
+171
+175
+176
+178
+182
+183
+187
+188
+191
+192
+215
+216
+247
+248
+847
+848
+1564
+1565
+4447
+4449
+5760
+5761
+6068
+6070
+6155
+6159
+8192
+8255
+8257
+8276
+8277
+8304
+8592
+9312
+9472
+10102
+10132
+11264
+11776
+11904
+12288
+12292
+12296
+12321
+12336
+12337
+12644
+12645
+64830
+64832
+65024
+65040
+65093
+65095
+65279
+65280
+65440
+65441
+65520
+65529
+113824
+113828
+119155
+119163
+917504
+921600
+END
diff --git a/lib/5.24.1/unicore/lib/QMark/Y.pl b/lib/5.24.1/unicore/lib/QMark/Y.pl
new file mode 100644
index 00000000..0ce9a4e7
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/QMark/Y.pl
@@ -0,0 +1,40 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V26
+34
+35
+39
+40
+171
+172
+187
+188
+8216
+8224
+8249
+8251
+11842
+11843
+12300
+12304
+12317
+12320
+65089
+65093
+65282
+65283
+65287
+65288
+65378
+65380
+END
diff --git a/lib/5.24.1/unicore/lib/SB/AT.pl b/lib/5.24.1/unicore/lib/SB/AT.pl
new file mode 100644
index 00000000..cbff02b1
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/SB/AT.pl
@@ -0,0 +1,22 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+46
+47
+8228
+8229
+65106
+65107
+65294
+65295
+END
diff --git a/lib/5.24.1/unicore/lib/SB/CL.pl b/lib/5.24.1/unicore/lib/SB/CL.pl
new file mode 100644
index 00000000..07c494e0
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/SB/CL.pl
@@ -0,0 +1,102 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V88
+34
+35
+39
+42
+91
+92
+93
+94
+123
+124
+125
+126
+171
+172
+187
+188
+3898
+3902
+5787
+5789
+8216
+8224
+8249
+8251
+8261
+8263
+8317
+8319
+8333
+8335
+8968
+8972
+9001
+9003
+10075
+10081
+10088
+10102
+10181
+10183
+10214
+10224
+10627
+10649
+10712
+10716
+10748
+10750
+11776
+11790
+11804
+11806
+11808
+11818
+11842
+11843
+12296
+12306
+12308
+12316
+12317
+12320
+64830
+64832
+65047
+65049
+65077
+65093
+65095
+65097
+65113
+65119
+65288
+65290
+65339
+65340
+65341
+65342
+65371
+65372
+65373
+65374
+65375
+65377
+65378
+65380
+128630
+128633
+END
diff --git a/lib/5.24.1/unicore/lib/SB/EX.pl b/lib/5.24.1/unicore/lib/SB/EX.pl
new file mode 100644
index 00000000..7e233e53
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/SB/EX.pl
@@ -0,0 +1,490 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V476
+768
+880
+1155
+1162
+1425
+1470
+1471
+1472
+1473
+1475
+1476
+1478
+1479
+1480
+1552
+1563
+1611
+1632
+1648
+1649
+1750
+1757
+1759
+1765
+1767
+1769
+1770
+1774
+1809
+1810
+1840
+1867
+1958
+1969
+2027
+2036
+2070
+2074
+2075
+2084
+2085
+2088
+2089
+2094
+2137
+2140
+2275
+2308
+2362
+2365
+2366
+2384
+2385
+2392
+2402
+2404
+2433
+2436
+2492
+2493
+2494
+2501
+2503
+2505
+2507
+2510
+2519
+2520
+2530
+2532
+2561
+2564
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2672
+2674
+2677
+2678
+2689
+2692
+2748
+2749
+2750
+2758
+2759
+2762
+2763
+2766
+2786
+2788
+2817
+2820
+2876
+2877
+2878
+2885
+2887
+2889
+2891
+2894
+2902
+2904
+2914
+2916
+2946
+2947
+3006
+3011
+3014
+3017
+3018
+3022
+3031
+3032
+3072
+3076
+3134
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3170
+3172
+3201
+3204
+3260
+3261
+3262
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3298
+3300
+3329
+3332
+3390
+3397
+3398
+3401
+3402
+3406
+3415
+3416
+3426
+3428
+3458
+3460
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3570
+3572
+3633
+3634
+3636
+3643
+3655
+3663
+3761
+3762
+3764
+3770
+3771
+3773
+3784
+3790
+3864
+3866
+3893
+3894
+3895
+3896
+3897
+3898
+3902
+3904
+3953
+3973
+3974
+3976
+3981
+3992
+3993
+4029
+4038
+4039
+4139
+4159
+4182
+4186
+4190
+4193
+4194
+4197
+4199
+4206
+4209
+4213
+4226
+4238
+4239
+4240
+4250
+4254
+4957
+4960
+5906
+5909
+5938
+5941
+5970
+5972
+6002
+6004
+6068
+6100
+6109
+6110
+6155
+6158
+6313
+6314
+6432
+6444
+6448
+6460
+6679
+6684
+6741
+6751
+6752
+6781
+6783
+6784
+6832
+6847
+6912
+6917
+6964
+6981
+7019
+7028
+7040
+7043
+7073
+7086
+7142
+7156
+7204
+7224
+7376
+7379
+7380
+7401
+7405
+7406
+7410
+7413
+7416
+7418
+7616
+7670
+7676
+7680
+8204
+8206
+8400
+8433
+11503
+11506
+11647
+11648
+11744
+11776
+12330
+12336
+12441
+12443
+42607
+42611
+42612
+42622
+42654
+42656
+42736
+42738
+43010
+43011
+43014
+43015
+43019
+43020
+43043
+43048
+43136
+43138
+43188
+43205
+43232
+43250
+43302
+43310
+43335
+43348
+43392
+43396
+43443
+43457
+43493
+43494
+43561
+43575
+43587
+43588
+43596
+43598
+43643
+43646
+43696
+43697
+43698
+43701
+43703
+43705
+43710
+43712
+43713
+43714
+43755
+43760
+43765
+43767
+44003
+44011
+44012
+44014
+64286
+64287
+65024
+65040
+65056
+65072
+65438
+65440
+66045
+66046
+66272
+66273
+66422
+66427
+68097
+68100
+68101
+68103
+68108
+68112
+68152
+68155
+68159
+68160
+68325
+68327
+69632
+69635
+69688
+69703
+69759
+69763
+69808
+69819
+69888
+69891
+69927
+69941
+70003
+70004
+70016
+70019
+70067
+70081
+70090
+70093
+70188
+70200
+70367
+70379
+70400
+70404
+70460
+70461
+70462
+70469
+70471
+70473
+70475
+70478
+70487
+70488
+70498
+70500
+70502
+70509
+70512
+70517
+70832
+70852
+71087
+71094
+71096
+71105
+71132
+71134
+71216
+71233
+71339
+71352
+71453
+71468
+92912
+92917
+92976
+92983
+94033
+94079
+94095
+94099
+113821
+113823
+119141
+119146
+119149
+119155
+119163
+119171
+119173
+119180
+119210
+119214
+119362
+119365
+121344
+121399
+121403
+121453
+121461
+121462
+121476
+121477
+121499
+121504
+121505
+121520
+125136
+125143
+917760
+918000
+END
diff --git a/lib/5.24.1/unicore/lib/SB/FO.pl b/lib/5.24.1/unicore/lib/SB/FO.pl
new file mode 100644
index 00000000..d785cdfd
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/SB/FO.pl
@@ -0,0 +1,50 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V36
+173
+174
+1536
+1542
+1564
+1565
+1757
+1758
+1807
+1808
+6158
+6159
+8203
+8204
+8206
+8208
+8234
+8239
+8288
+8293
+8294
+8304
+65279
+65280
+65529
+65532
+69821
+69822
+113824
+113828
+119155
+119163
+917505
+917506
+917536
+917632
+END
diff --git a/lib/5.24.1/unicore/lib/SB/LE.pl b/lib/5.24.1/unicore/lib/SB/LE.pl
new file mode 100644
index 00000000..8d242673
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/SB/LE.pl
@@ -0,0 +1,924 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V910
+443
+444
+448
+452
+660
+661
+697
+704
+710
+722
+748
+749
+750
+751
+884
+885
+1369
+1370
+1488
+1515
+1520
+1524
+1568
+1611
+1646
+1648
+1649
+1748
+1749
+1750
+1765
+1767
+1774
+1776
+1786
+1789
+1791
+1792
+1808
+1809
+1810
+1840
+1869
+1958
+1969
+1970
+1994
+2027
+2036
+2038
+2042
+2043
+2048
+2070
+2074
+2075
+2084
+2085
+2088
+2089
+2112
+2137
+2208
+2229
+2308
+2362
+2365
+2366
+2384
+2385
+2392
+2402
+2417
+2433
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2493
+2494
+2510
+2511
+2524
+2526
+2527
+2530
+2544
+2546
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2649
+2653
+2654
+2655
+2674
+2677
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2749
+2750
+2768
+2769
+2784
+2786
+2809
+2810
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2877
+2878
+2908
+2910
+2911
+2914
+2929
+2930
+2947
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3024
+3025
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3130
+3133
+3134
+3160
+3163
+3168
+3170
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3261
+3262
+3294
+3295
+3296
+3298
+3313
+3315
+3333
+3341
+3342
+3345
+3346
+3387
+3389
+3390
+3406
+3407
+3423
+3426
+3450
+3456
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3585
+3633
+3634
+3636
+3648
+3655
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3761
+3762
+3764
+3773
+3774
+3776
+3781
+3782
+3783
+3804
+3808
+3840
+3841
+3904
+3912
+3913
+3949
+3976
+3981
+4096
+4139
+4159
+4160
+4176
+4182
+4186
+4190
+4193
+4194
+4197
+4199
+4206
+4209
+4213
+4226
+4238
+4239
+4304
+4347
+4348
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4992
+5008
+5121
+5741
+5743
+5760
+5761
+5787
+5792
+5867
+5870
+5881
+5888
+5901
+5902
+5906
+5920
+5938
+5952
+5970
+5984
+5997
+5998
+6001
+6016
+6068
+6103
+6104
+6108
+6109
+6176
+6264
+6272
+6313
+6314
+6315
+6320
+6390
+6400
+6431
+6480
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6656
+6679
+6688
+6741
+6823
+6824
+6917
+6964
+6981
+6988
+7043
+7073
+7086
+7088
+7098
+7142
+7168
+7204
+7245
+7248
+7258
+7294
+7401
+7405
+7406
+7410
+7413
+7415
+8501
+8505
+8576
+8579
+8581
+8585
+11568
+11624
+11631
+11632
+11648
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11823
+11824
+12293
+12296
+12321
+12330
+12337
+12342
+12344
+12349
+12353
+12439
+12445
+12448
+12449
+12539
+12540
+12544
+12549
+12590
+12593
+12687
+12704
+12731
+12784
+12800
+13312
+19894
+19968
+40918
+40960
+42125
+42192
+42238
+42240
+42509
+42512
+42528
+42538
+42540
+42606
+42607
+42623
+42624
+42656
+42736
+42775
+42784
+42888
+42889
+42895
+42896
+42999
+43000
+43003
+43010
+43011
+43014
+43015
+43019
+43020
+43043
+43072
+43124
+43138
+43188
+43250
+43256
+43259
+43260
+43261
+43262
+43274
+43302
+43312
+43335
+43360
+43389
+43396
+43443
+43471
+43472
+43488
+43493
+43494
+43504
+43514
+43519
+43520
+43561
+43584
+43587
+43588
+43596
+43616
+43639
+43642
+43643
+43646
+43696
+43697
+43698
+43701
+43703
+43705
+43710
+43712
+43713
+43714
+43715
+43739
+43742
+43744
+43755
+43762
+43765
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43968
+44003
+44032
+55204
+55216
+55239
+55243
+55292
+63744
+64110
+64112
+64218
+64285
+64286
+64287
+64297
+64298
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64434
+64467
+64830
+64848
+64912
+64914
+64968
+65008
+65020
+65136
+65141
+65142
+65277
+65382
+65438
+65440
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65536
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65856
+65909
+66176
+66205
+66208
+66257
+66304
+66336
+66352
+66379
+66384
+66422
+66432
+66462
+66464
+66500
+66504
+66512
+66513
+66518
+66640
+66718
+66816
+66856
+66864
+66916
+67072
+67383
+67392
+67414
+67424
+67432
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67680
+67703
+67712
+67743
+67808
+67827
+67828
+67830
+67840
+67862
+67872
+67898
+67968
+68024
+68030
+68032
+68096
+68097
+68112
+68116
+68117
+68120
+68121
+68148
+68192
+68221
+68224
+68253
+68288
+68296
+68297
+68325
+68352
+68406
+68416
+68438
+68448
+68467
+68480
+68498
+68608
+68681
+69635
+69688
+69763
+69808
+69840
+69865
+69891
+69927
+69968
+70003
+70006
+70007
+70019
+70067
+70081
+70085
+70106
+70107
+70108
+70109
+70144
+70162
+70163
+70188
+70272
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70313
+70320
+70367
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70461
+70462
+70480
+70481
+70493
+70498
+70784
+70832
+70852
+70854
+70855
+70856
+71040
+71087
+71128
+71132
+71168
+71216
+71236
+71237
+71296
+71339
+71424
+71450
+71935
+71936
+72384
+72441
+73728
+74650
+74752
+74863
+74880
+75076
+77824
+78895
+82944
+83527
+92160
+92729
+92736
+92767
+92880
+92910
+92928
+92976
+92992
+92996
+93027
+93048
+93053
+93072
+93952
+94021
+94032
+94033
+94099
+94112
+110592
+110594
+113664
+113771
+113776
+113789
+113792
+113801
+113808
+113818
+124928
+125125
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+131072
+173783
+173824
+177973
+177984
+178206
+178208
+183970
+194560
+195102
+END
diff --git a/lib/5.24.1/unicore/lib/SB/LO.pl b/lib/5.24.1/unicore/lib/SB/LO.pl
new file mode 100644
index 00000000..35c476fa
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/SB/LO.pl
@@ -0,0 +1,1286 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1272
+97
+123
+170
+171
+181
+182
+186
+187
+223
+247
+248
+256
+257
+258
+259
+260
+261
+262
+263
+264
+265
+266
+267
+268
+269
+270
+271
+272
+273
+274
+275
+276
+277
+278
+279
+280
+281
+282
+283
+284
+285
+286
+287
+288
+289
+290
+291
+292
+293
+294
+295
+296
+297
+298
+299
+300
+301
+302
+303
+304
+305
+306
+307
+308
+309
+310
+311
+313
+314
+315
+316
+317
+318
+319
+320
+321
+322
+323
+324
+325
+326
+327
+328
+330
+331
+332
+333
+334
+335
+336
+337
+338
+339
+340
+341
+342
+343
+344
+345
+346
+347
+348
+349
+350
+351
+352
+353
+354
+355
+356
+357
+358
+359
+360
+361
+362
+363
+364
+365
+366
+367
+368
+369
+370
+371
+372
+373
+374
+375
+376
+378
+379
+380
+381
+382
+385
+387
+388
+389
+390
+392
+393
+396
+398
+402
+403
+405
+406
+409
+412
+414
+415
+417
+418
+419
+420
+421
+422
+424
+425
+426
+428
+429
+430
+432
+433
+436
+437
+438
+439
+441
+443
+445
+448
+454
+455
+457
+458
+460
+461
+462
+463
+464
+465
+466
+467
+468
+469
+470
+471
+472
+473
+474
+475
+476
+478
+479
+480
+481
+482
+483
+484
+485
+486
+487
+488
+489
+490
+491
+492
+493
+494
+495
+497
+499
+500
+501
+502
+505
+506
+507
+508
+509
+510
+511
+512
+513
+514
+515
+516
+517
+518
+519
+520
+521
+522
+523
+524
+525
+526
+527
+528
+529
+530
+531
+532
+533
+534
+535
+536
+537
+538
+539
+540
+541
+542
+543
+544
+545
+546
+547
+548
+549
+550
+551
+552
+553
+554
+555
+556
+557
+558
+559
+560
+561
+562
+563
+570
+572
+573
+575
+577
+578
+579
+583
+584
+585
+586
+587
+588
+589
+590
+591
+660
+661
+697
+704
+706
+736
+741
+881
+882
+883
+884
+887
+888
+890
+894
+912
+913
+940
+975
+976
+978
+981
+984
+985
+986
+987
+988
+989
+990
+991
+992
+993
+994
+995
+996
+997
+998
+999
+1000
+1001
+1002
+1003
+1004
+1005
+1006
+1007
+1012
+1013
+1014
+1016
+1017
+1019
+1021
+1072
+1120
+1121
+1122
+1123
+1124
+1125
+1126
+1127
+1128
+1129
+1130
+1131
+1132
+1133
+1134
+1135
+1136
+1137
+1138
+1139
+1140
+1141
+1142
+1143
+1144
+1145
+1146
+1147
+1148
+1149
+1150
+1151
+1152
+1153
+1154
+1163
+1164
+1165
+1166
+1167
+1168
+1169
+1170
+1171
+1172
+1173
+1174
+1175
+1176
+1177
+1178
+1179
+1180
+1181
+1182
+1183
+1184
+1185
+1186
+1187
+1188
+1189
+1190
+1191
+1192
+1193
+1194
+1195
+1196
+1197
+1198
+1199
+1200
+1201
+1202
+1203
+1204
+1205
+1206
+1207
+1208
+1209
+1210
+1211
+1212
+1213
+1214
+1215
+1216
+1218
+1219
+1220
+1221
+1222
+1223
+1224
+1225
+1226
+1227
+1228
+1229
+1230
+1232
+1233
+1234
+1235
+1236
+1237
+1238
+1239
+1240
+1241
+1242
+1243
+1244
+1245
+1246
+1247
+1248
+1249
+1250
+1251
+1252
+1253
+1254
+1255
+1256
+1257
+1258
+1259
+1260
+1261
+1262
+1263
+1264
+1265
+1266
+1267
+1268
+1269
+1270
+1271
+1272
+1273
+1274
+1275
+1276
+1277
+1278
+1279
+1280
+1281
+1282
+1283
+1284
+1285
+1286
+1287
+1288
+1289
+1290
+1291
+1292
+1293
+1294
+1295
+1296
+1297
+1298
+1299
+1300
+1301
+1302
+1303
+1304
+1305
+1306
+1307
+1308
+1309
+1310
+1311
+1312
+1313
+1314
+1315
+1316
+1317
+1318
+1319
+1320
+1321
+1322
+1323
+1324
+1325
+1326
+1327
+1328
+1377
+1416
+5112
+5118
+7424
+7616
+7681
+7682
+7683
+7684
+7685
+7686
+7687
+7688
+7689
+7690
+7691
+7692
+7693
+7694
+7695
+7696
+7697
+7698
+7699
+7700
+7701
+7702
+7703
+7704
+7705
+7706
+7707
+7708
+7709
+7710
+7711
+7712
+7713
+7714
+7715
+7716
+7717
+7718
+7719
+7720
+7721
+7722
+7723
+7724
+7725
+7726
+7727
+7728
+7729
+7730
+7731
+7732
+7733
+7734
+7735
+7736
+7737
+7738
+7739
+7740
+7741
+7742
+7743
+7744
+7745
+7746
+7747
+7748
+7749
+7750
+7751
+7752
+7753
+7754
+7755
+7756
+7757
+7758
+7759
+7760
+7761
+7762
+7763
+7764
+7765
+7766
+7767
+7768
+7769
+7770
+7771
+7772
+7773
+7774
+7775
+7776
+7777
+7778
+7779
+7780
+7781
+7782
+7783
+7784
+7785
+7786
+7787
+7788
+7789
+7790
+7791
+7792
+7793
+7794
+7795
+7796
+7797
+7798
+7799
+7800
+7801
+7802
+7803
+7804
+7805
+7806
+7807
+7808
+7809
+7810
+7811
+7812
+7813
+7814
+7815
+7816
+7817
+7818
+7819
+7820
+7821
+7822
+7823
+7824
+7825
+7826
+7827
+7828
+7829
+7838
+7839
+7840
+7841
+7842
+7843
+7844
+7845
+7846
+7847
+7848
+7849
+7850
+7851
+7852
+7853
+7854
+7855
+7856
+7857
+7858
+7859
+7860
+7861
+7862
+7863
+7864
+7865
+7866
+7867
+7868
+7869
+7870
+7871
+7872
+7873
+7874
+7875
+7876
+7877
+7878
+7879
+7880
+7881
+7882
+7883
+7884
+7885
+7886
+7887
+7888
+7889
+7890
+7891
+7892
+7893
+7894
+7895
+7896
+7897
+7898
+7899
+7900
+7901
+7902
+7903
+7904
+7905
+7906
+7907
+7908
+7909
+7910
+7911
+7912
+7913
+7914
+7915
+7916
+7917
+7918
+7919
+7920
+7921
+7922
+7923
+7924
+7925
+7926
+7927
+7928
+7929
+7930
+7931
+7932
+7933
+7934
+7935
+7944
+7952
+7958
+7968
+7976
+7984
+7992
+8000
+8006
+8016
+8024
+8032
+8040
+8048
+8062
+8064
+8072
+8080
+8088
+8096
+8104
+8112
+8117
+8118
+8120
+8126
+8127
+8130
+8133
+8134
+8136
+8144
+8148
+8150
+8152
+8160
+8168
+8178
+8181
+8182
+8184
+8305
+8306
+8319
+8320
+8336
+8349
+8458
+8459
+8462
+8464
+8467
+8468
+8495
+8496
+8500
+8501
+8505
+8506
+8508
+8510
+8518
+8522
+8526
+8527
+8560
+8576
+8580
+8581
+9424
+9450
+11312
+11359
+11361
+11362
+11365
+11367
+11368
+11369
+11370
+11371
+11372
+11373
+11377
+11378
+11379
+11381
+11382
+11390
+11393
+11394
+11395
+11396
+11397
+11398
+11399
+11400
+11401
+11402
+11403
+11404
+11405
+11406
+11407
+11408
+11409
+11410
+11411
+11412
+11413
+11414
+11415
+11416
+11417
+11418
+11419
+11420
+11421
+11422
+11423
+11424
+11425
+11426
+11427
+11428
+11429
+11430
+11431
+11432
+11433
+11434
+11435
+11436
+11437
+11438
+11439
+11440
+11441
+11442
+11443
+11444
+11445
+11446
+11447
+11448
+11449
+11450
+11451
+11452
+11453
+11454
+11455
+11456
+11457
+11458
+11459
+11460
+11461
+11462
+11463
+11464
+11465
+11466
+11467
+11468
+11469
+11470
+11471
+11472
+11473
+11474
+11475
+11476
+11477
+11478
+11479
+11480
+11481
+11482
+11483
+11484
+11485
+11486
+11487
+11488
+11489
+11490
+11491
+11493
+11500
+11501
+11502
+11503
+11507
+11508
+11520
+11558
+11559
+11560
+11565
+11566
+42561
+42562
+42563
+42564
+42565
+42566
+42567
+42568
+42569
+42570
+42571
+42572
+42573
+42574
+42575
+42576
+42577
+42578
+42579
+42580
+42581
+42582
+42583
+42584
+42585
+42586
+42587
+42588
+42589
+42590
+42591
+42592
+42593
+42594
+42595
+42596
+42597
+42598
+42599
+42600
+42601
+42602
+42603
+42604
+42605
+42606
+42625
+42626
+42627
+42628
+42629
+42630
+42631
+42632
+42633
+42634
+42635
+42636
+42637
+42638
+42639
+42640
+42641
+42642
+42643
+42644
+42645
+42646
+42647
+42648
+42649
+42650
+42651
+42654
+42787
+42788
+42789
+42790
+42791
+42792
+42793
+42794
+42795
+42796
+42797
+42798
+42799
+42802
+42803
+42804
+42805
+42806
+42807
+42808
+42809
+42810
+42811
+42812
+42813
+42814
+42815
+42816
+42817
+42818
+42819
+42820
+42821
+42822
+42823
+42824
+42825
+42826
+42827
+42828
+42829
+42830
+42831
+42832
+42833
+42834
+42835
+42836
+42837
+42838
+42839
+42840
+42841
+42842
+42843
+42844
+42845
+42846
+42847
+42848
+42849
+42850
+42851
+42852
+42853
+42854
+42855
+42856
+42857
+42858
+42859
+42860
+42861
+42862
+42863
+42873
+42874
+42875
+42876
+42877
+42879
+42880
+42881
+42882
+42883
+42884
+42885
+42886
+42887
+42888
+42892
+42893
+42894
+42895
+42897
+42898
+42899
+42902
+42903
+42904
+42905
+42906
+42907
+42908
+42909
+42910
+42911
+42912
+42913
+42914
+42915
+42916
+42917
+42918
+42919
+42920
+42921
+42922
+42933
+42934
+42935
+42936
+43000
+43003
+43824
+43867
+43868
+43878
+43888
+43968
+64256
+64263
+64275
+64280
+65345
+65371
+66600
+66640
+68800
+68851
+71872
+71904
+119834
+119860
+119886
+119893
+119894
+119912
+119938
+119964
+119990
+119994
+119995
+119996
+119997
+120004
+120005
+120016
+120042
+120068
+120094
+120120
+120146
+120172
+120198
+120224
+120250
+120276
+120302
+120328
+120354
+120380
+120406
+120432
+120458
+120486
+120514
+120539
+120540
+120546
+120572
+120597
+120598
+120604
+120630
+120655
+120656
+120662
+120688
+120713
+120714
+120720
+120746
+120771
+120772
+120778
+120779
+120780
+END
diff --git a/lib/5.24.1/unicore/lib/SB/NU.pl b/lib/5.24.1/unicore/lib/SB/NU.pl
new file mode 100644
index 00000000..bf4f8931
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/SB/NU.pl
@@ -0,0 +1,116 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V102
+48
+58
+1632
+1642
+1643
+1645
+1776
+1786
+1984
+1994
+2406
+2416
+2534
+2544
+2662
+2672
+2790
+2800
+2918
+2928
+3046
+3056
+3174
+3184
+3302
+3312
+3430
+3440
+3558
+3568
+3664
+3674
+3792
+3802
+3872
+3882
+4160
+4170
+4240
+4250
+6112
+6122
+6160
+6170
+6470
+6480
+6608
+6618
+6784
+6794
+6800
+6810
+6992
+7002
+7088
+7098
+7232
+7242
+7248
+7258
+42528
+42538
+43216
+43226
+43264
+43274
+43472
+43482
+43504
+43514
+43600
+43610
+44016
+44026
+66720
+66730
+69734
+69744
+69872
+69882
+69942
+69952
+70096
+70106
+70384
+70394
+70864
+70874
+71248
+71258
+71360
+71370
+71472
+71482
+71904
+71914
+92768
+92778
+93008
+93018
+120782
+120832
+END
diff --git a/lib/5.24.1/unicore/lib/SB/SC.pl b/lib/5.24.1/unicore/lib/SB/SC.pl
new file mode 100644
index 00000000..4d2c7abe
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/SB/SC.pl
@@ -0,0 +1,52 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V38
+44
+46
+58
+59
+1373
+1374
+1548
+1550
+2040
+2041
+6146
+6147
+6152
+6153
+8211
+8213
+12289
+12290
+65040
+65042
+65043
+65044
+65073
+65075
+65104
+65106
+65109
+65110
+65112
+65113
+65123
+65124
+65292
+65294
+65306
+65307
+65380
+65381
+END
diff --git a/lib/5.24.1/unicore/lib/SB/ST.pl b/lib/5.24.1/unicore/lib/SB/ST.pl
new file mode 100644
index 00000000..cbd4e78f
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/SB/ST.pl
@@ -0,0 +1,136 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V122
+33
+34
+63
+64
+1417
+1418
+1567
+1568
+1748
+1749
+1792
+1795
+2041
+2042
+2404
+2406
+4170
+4172
+4962
+4963
+4967
+4969
+5742
+5743
+5941
+5943
+6147
+6148
+6153
+6154
+6468
+6470
+6824
+6828
+7002
+7004
+7006
+7008
+7227
+7229
+7294
+7296
+8252
+8254
+8263
+8266
+11822
+11823
+11836
+11837
+12290
+12291
+42239
+42240
+42510
+42512
+42739
+42740
+42743
+42744
+43126
+43128
+43214
+43216
+43311
+43312
+43464
+43466
+43613
+43616
+43760
+43762
+44011
+44012
+65110
+65112
+65281
+65282
+65311
+65312
+65377
+65378
+68182
+68184
+69703
+69705
+69822
+69826
+69953
+69956
+70085
+70087
+70093
+70094
+70110
+70112
+70200
+70202
+70203
+70205
+70313
+70314
+71106
+71108
+71113
+71128
+71233
+71235
+71484
+71487
+92782
+92784
+92917
+92918
+92983
+92985
+92996
+92997
+113823
+113824
+121480
+121481
+END
diff --git a/lib/5.24.1/unicore/lib/SB/Sp.pl b/lib/5.24.1/unicore/lib/SB/Sp.pl
new file mode 100644
index 00000000..3e0ae68e
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/SB/Sp.pl
@@ -0,0 +1,32 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V18
+9
+10
+11
+13
+32
+33
+160
+161
+5760
+5761
+8192
+8203
+8239
+8240
+8287
+8288
+12288
+12289
+END
diff --git a/lib/5.24.1/unicore/lib/SB/UP.pl b/lib/5.24.1/unicore/lib/SB/UP.pl
new file mode 100644
index 00000000..d95e4347
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/SB/UP.pl
@@ -0,0 +1,1280 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1266
+65
+91
+192
+215
+216
+223
+256
+257
+258
+259
+260
+261
+262
+263
+264
+265
+266
+267
+268
+269
+270
+271
+272
+273
+274
+275
+276
+277
+278
+279
+280
+281
+282
+283
+284
+285
+286
+287
+288
+289
+290
+291
+292
+293
+294
+295
+296
+297
+298
+299
+300
+301
+302
+303
+304
+305
+306
+307
+308
+309
+310
+311
+313
+314
+315
+316
+317
+318
+319
+320
+321
+322
+323
+324
+325
+326
+327
+328
+330
+331
+332
+333
+334
+335
+336
+337
+338
+339
+340
+341
+342
+343
+344
+345
+346
+347
+348
+349
+350
+351
+352
+353
+354
+355
+356
+357
+358
+359
+360
+361
+362
+363
+364
+365
+366
+367
+368
+369
+370
+371
+372
+373
+374
+375
+376
+378
+379
+380
+381
+382
+385
+387
+388
+389
+390
+392
+393
+396
+398
+402
+403
+405
+406
+409
+412
+414
+415
+417
+418
+419
+420
+421
+422
+424
+425
+426
+428
+429
+430
+432
+433
+436
+437
+438
+439
+441
+444
+445
+452
+454
+455
+457
+458
+460
+461
+462
+463
+464
+465
+466
+467
+468
+469
+470
+471
+472
+473
+474
+475
+476
+478
+479
+480
+481
+482
+483
+484
+485
+486
+487
+488
+489
+490
+491
+492
+493
+494
+495
+497
+499
+500
+501
+502
+505
+506
+507
+508
+509
+510
+511
+512
+513
+514
+515
+516
+517
+518
+519
+520
+521
+522
+523
+524
+525
+526
+527
+528
+529
+530
+531
+532
+533
+534
+535
+536
+537
+538
+539
+540
+541
+542
+543
+544
+545
+546
+547
+548
+549
+550
+551
+552
+553
+554
+555
+556
+557
+558
+559
+560
+561
+562
+563
+570
+572
+573
+575
+577
+578
+579
+583
+584
+585
+586
+587
+588
+589
+590
+591
+880
+881
+882
+883
+886
+887
+895
+896
+902
+903
+904
+907
+908
+909
+910
+912
+913
+930
+931
+940
+975
+976
+978
+981
+984
+985
+986
+987
+988
+989
+990
+991
+992
+993
+994
+995
+996
+997
+998
+999
+1000
+1001
+1002
+1003
+1004
+1005
+1006
+1007
+1012
+1013
+1015
+1016
+1017
+1019
+1021
+1072
+1120
+1121
+1122
+1123
+1124
+1125
+1126
+1127
+1128
+1129
+1130
+1131
+1132
+1133
+1134
+1135
+1136
+1137
+1138
+1139
+1140
+1141
+1142
+1143
+1144
+1145
+1146
+1147
+1148
+1149
+1150
+1151
+1152
+1153
+1162
+1163
+1164
+1165
+1166
+1167
+1168
+1169
+1170
+1171
+1172
+1173
+1174
+1175
+1176
+1177
+1178
+1179
+1180
+1181
+1182
+1183
+1184
+1185
+1186
+1187
+1188
+1189
+1190
+1191
+1192
+1193
+1194
+1195
+1196
+1197
+1198
+1199
+1200
+1201
+1202
+1203
+1204
+1205
+1206
+1207
+1208
+1209
+1210
+1211
+1212
+1213
+1214
+1215
+1216
+1218
+1219
+1220
+1221
+1222
+1223
+1224
+1225
+1226
+1227
+1228
+1229
+1230
+1232
+1233
+1234
+1235
+1236
+1237
+1238
+1239
+1240
+1241
+1242
+1243
+1244
+1245
+1246
+1247
+1248
+1249
+1250
+1251
+1252
+1253
+1254
+1255
+1256
+1257
+1258
+1259
+1260
+1261
+1262
+1263
+1264
+1265
+1266
+1267
+1268
+1269
+1270
+1271
+1272
+1273
+1274
+1275
+1276
+1277
+1278
+1279
+1280
+1281
+1282
+1283
+1284
+1285
+1286
+1287
+1288
+1289
+1290
+1291
+1292
+1293
+1294
+1295
+1296
+1297
+1298
+1299
+1300
+1301
+1302
+1303
+1304
+1305
+1306
+1307
+1308
+1309
+1310
+1311
+1312
+1313
+1314
+1315
+1316
+1317
+1318
+1319
+1320
+1321
+1322
+1323
+1324
+1325
+1326
+1327
+1329
+1367
+4256
+4294
+4295
+4296
+4301
+4302
+5024
+5110
+7680
+7681
+7682
+7683
+7684
+7685
+7686
+7687
+7688
+7689
+7690
+7691
+7692
+7693
+7694
+7695
+7696
+7697
+7698
+7699
+7700
+7701
+7702
+7703
+7704
+7705
+7706
+7707
+7708
+7709
+7710
+7711
+7712
+7713
+7714
+7715
+7716
+7717
+7718
+7719
+7720
+7721
+7722
+7723
+7724
+7725
+7726
+7727
+7728
+7729
+7730
+7731
+7732
+7733
+7734
+7735
+7736
+7737
+7738
+7739
+7740
+7741
+7742
+7743
+7744
+7745
+7746
+7747
+7748
+7749
+7750
+7751
+7752
+7753
+7754
+7755
+7756
+7757
+7758
+7759
+7760
+7761
+7762
+7763
+7764
+7765
+7766
+7767
+7768
+7769
+7770
+7771
+7772
+7773
+7774
+7775
+7776
+7777
+7778
+7779
+7780
+7781
+7782
+7783
+7784
+7785
+7786
+7787
+7788
+7789
+7790
+7791
+7792
+7793
+7794
+7795
+7796
+7797
+7798
+7799
+7800
+7801
+7802
+7803
+7804
+7805
+7806
+7807
+7808
+7809
+7810
+7811
+7812
+7813
+7814
+7815
+7816
+7817
+7818
+7819
+7820
+7821
+7822
+7823
+7824
+7825
+7826
+7827
+7828
+7829
+7838
+7839
+7840
+7841
+7842
+7843
+7844
+7845
+7846
+7847
+7848
+7849
+7850
+7851
+7852
+7853
+7854
+7855
+7856
+7857
+7858
+7859
+7860
+7861
+7862
+7863
+7864
+7865
+7866
+7867
+7868
+7869
+7870
+7871
+7872
+7873
+7874
+7875
+7876
+7877
+7878
+7879
+7880
+7881
+7882
+7883
+7884
+7885
+7886
+7887
+7888
+7889
+7890
+7891
+7892
+7893
+7894
+7895
+7896
+7897
+7898
+7899
+7900
+7901
+7902
+7903
+7904
+7905
+7906
+7907
+7908
+7909
+7910
+7911
+7912
+7913
+7914
+7915
+7916
+7917
+7918
+7919
+7920
+7921
+7922
+7923
+7924
+7925
+7926
+7927
+7928
+7929
+7930
+7931
+7932
+7933
+7934
+7935
+7944
+7952
+7960
+7966
+7976
+7984
+7992
+8000
+8008
+8014
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8032
+8040
+8048
+8072
+8080
+8088
+8096
+8104
+8112
+8120
+8125
+8136
+8141
+8152
+8156
+8168
+8173
+8184
+8189
+8450
+8451
+8455
+8456
+8459
+8462
+8464
+8467
+8469
+8470
+8473
+8478
+8484
+8485
+8486
+8487
+8488
+8489
+8490
+8494
+8496
+8500
+8510
+8512
+8517
+8518
+8544
+8560
+8579
+8580
+9398
+9424
+11264
+11311
+11360
+11361
+11362
+11365
+11367
+11368
+11369
+11370
+11371
+11372
+11373
+11377
+11378
+11379
+11381
+11382
+11390
+11393
+11394
+11395
+11396
+11397
+11398
+11399
+11400
+11401
+11402
+11403
+11404
+11405
+11406
+11407
+11408
+11409
+11410
+11411
+11412
+11413
+11414
+11415
+11416
+11417
+11418
+11419
+11420
+11421
+11422
+11423
+11424
+11425
+11426
+11427
+11428
+11429
+11430
+11431
+11432
+11433
+11434
+11435
+11436
+11437
+11438
+11439
+11440
+11441
+11442
+11443
+11444
+11445
+11446
+11447
+11448
+11449
+11450
+11451
+11452
+11453
+11454
+11455
+11456
+11457
+11458
+11459
+11460
+11461
+11462
+11463
+11464
+11465
+11466
+11467
+11468
+11469
+11470
+11471
+11472
+11473
+11474
+11475
+11476
+11477
+11478
+11479
+11480
+11481
+11482
+11483
+11484
+11485
+11486
+11487
+11488
+11489
+11490
+11491
+11499
+11500
+11501
+11502
+11506
+11507
+42560
+42561
+42562
+42563
+42564
+42565
+42566
+42567
+42568
+42569
+42570
+42571
+42572
+42573
+42574
+42575
+42576
+42577
+42578
+42579
+42580
+42581
+42582
+42583
+42584
+42585
+42586
+42587
+42588
+42589
+42590
+42591
+42592
+42593
+42594
+42595
+42596
+42597
+42598
+42599
+42600
+42601
+42602
+42603
+42604
+42605
+42624
+42625
+42626
+42627
+42628
+42629
+42630
+42631
+42632
+42633
+42634
+42635
+42636
+42637
+42638
+42639
+42640
+42641
+42642
+42643
+42644
+42645
+42646
+42647
+42648
+42649
+42650
+42651
+42786
+42787
+42788
+42789
+42790
+42791
+42792
+42793
+42794
+42795
+42796
+42797
+42798
+42799
+42802
+42803
+42804
+42805
+42806
+42807
+42808
+42809
+42810
+42811
+42812
+42813
+42814
+42815
+42816
+42817
+42818
+42819
+42820
+42821
+42822
+42823
+42824
+42825
+42826
+42827
+42828
+42829
+42830
+42831
+42832
+42833
+42834
+42835
+42836
+42837
+42838
+42839
+42840
+42841
+42842
+42843
+42844
+42845
+42846
+42847
+42848
+42849
+42850
+42851
+42852
+42853
+42854
+42855
+42856
+42857
+42858
+42859
+42860
+42861
+42862
+42863
+42873
+42874
+42875
+42876
+42877
+42879
+42880
+42881
+42882
+42883
+42884
+42885
+42886
+42887
+42891
+42892
+42893
+42894
+42896
+42897
+42898
+42899
+42902
+42903
+42904
+42905
+42906
+42907
+42908
+42909
+42910
+42911
+42912
+42913
+42914
+42915
+42916
+42917
+42918
+42919
+42920
+42921
+42922
+42926
+42928
+42933
+42934
+42935
+65313
+65339
+66560
+66600
+68736
+68787
+71840
+71872
+119808
+119834
+119860
+119886
+119912
+119938
+119964
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119990
+120016
+120042
+120068
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120120
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120172
+120198
+120224
+120250
+120276
+120302
+120328
+120354
+120380
+120406
+120432
+120458
+120488
+120513
+120546
+120571
+120604
+120629
+120662
+120687
+120720
+120745
+120778
+120779
+127280
+127306
+127312
+127338
+127344
+127370
+END
diff --git a/lib/5.24.1/unicore/lib/SB/XX.pl b/lib/5.24.1/unicore/lib/SB/XX.pl
new file mode 100644
index 00000000..34a9d52e
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/SB/XX.pl
@@ -0,0 +1,1461 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1447
+0
+9
+14
+32
+35
+39
+42
+44
+47
+48
+59
+63
+64
+65
+92
+93
+94
+97
+124
+125
+126
+133
+134
+160
+161
+170
+172
+173
+174
+181
+182
+186
+188
+192
+215
+216
+247
+248
+706
+710
+722
+736
+741
+748
+749
+750
+751
+768
+885
+886
+888
+890
+894
+895
+896
+902
+903
+904
+907
+908
+909
+910
+930
+931
+1014
+1015
+1154
+1155
+1328
+1329
+1367
+1369
+1370
+1373
+1374
+1377
+1416
+1417
+1418
+1425
+1470
+1471
+1472
+1473
+1475
+1476
+1478
+1479
+1480
+1488
+1515
+1520
+1524
+1536
+1542
+1548
+1550
+1552
+1563
+1564
+1565
+1567
+1642
+1643
+1645
+1646
+1758
+1759
+1769
+1770
+1789
+1791
+1795
+1807
+1867
+1869
+1970
+1984
+2038
+2040
+2043
+2048
+2094
+2112
+2140
+2208
+2229
+2275
+2416
+2417
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2501
+2503
+2505
+2507
+2511
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2546
+2561
+2564
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2649
+2653
+2654
+2655
+2662
+2678
+2689
+2692
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2788
+2790
+2800
+2809
+2810
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2876
+2885
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2916
+2918
+2928
+2929
+2930
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3024
+3025
+3031
+3032
+3046
+3056
+3072
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3130
+3133
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3160
+3163
+3168
+3172
+3174
+3184
+3201
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3260
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3300
+3302
+3312
+3313
+3315
+3329
+3332
+3333
+3341
+3342
+3345
+3346
+3387
+3389
+3397
+3398
+3401
+3402
+3407
+3415
+3416
+3423
+3428
+3430
+3440
+3450
+3456
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3558
+3568
+3570
+3572
+3585
+3643
+3648
+3663
+3664
+3674
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3792
+3802
+3804
+3808
+3840
+3841
+3864
+3866
+3872
+3882
+3893
+3894
+3895
+3896
+3897
+3912
+3913
+3949
+3953
+3973
+3974
+3992
+3993
+4029
+4038
+4039
+4096
+4172
+4176
+4254
+4256
+4294
+4295
+4296
+4301
+4302
+4304
+4347
+4348
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4957
+4960
+4962
+4963
+4967
+4969
+4992
+5008
+5024
+5110
+5112
+5118
+5121
+5741
+5742
+5789
+5792
+5867
+5870
+5881
+5888
+5901
+5902
+5909
+5920
+5943
+5952
+5972
+5984
+5997
+5998
+6001
+6002
+6004
+6016
+6100
+6103
+6104
+6108
+6110
+6112
+6122
+6146
+6148
+6152
+6154
+6155
+6159
+6160
+6170
+6176
+6264
+6272
+6315
+6320
+6390
+6400
+6431
+6432
+6444
+6448
+6460
+6468
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6608
+6618
+6656
+6684
+6688
+6751
+6752
+6781
+6783
+6794
+6800
+6810
+6823
+6828
+6832
+6847
+6912
+6988
+6992
+7004
+7006
+7008
+7019
+7028
+7040
+7156
+7168
+7224
+7227
+7229
+7232
+7242
+7245
+7296
+7376
+7379
+7380
+7415
+7416
+7418
+7424
+7670
+7676
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8125
+8126
+8127
+8130
+8133
+8134
+8141
+8144
+8148
+8150
+8156
+8160
+8173
+8178
+8181
+8182
+8189
+8192
+8208
+8211
+8213
+8216
+8224
+8228
+8229
+8232
+8240
+8249
+8251
+8252
+8254
+8261
+8266
+8287
+8293
+8294
+8304
+8305
+8306
+8317
+8320
+8333
+8335
+8336
+8349
+8400
+8433
+8450
+8451
+8455
+8456
+8458
+8468
+8469
+8470
+8473
+8478
+8484
+8485
+8486
+8487
+8488
+8489
+8490
+8494
+8495
+8506
+8508
+8512
+8517
+8522
+8526
+8527
+8544
+8585
+8968
+8972
+9001
+9003
+9398
+9450
+10075
+10081
+10088
+10102
+10181
+10183
+10214
+10224
+10627
+10649
+10712
+10716
+10748
+10750
+11264
+11311
+11312
+11359
+11360
+11493
+11499
+11508
+11520
+11558
+11559
+11560
+11565
+11566
+11568
+11624
+11631
+11632
+11647
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11744
+11790
+11804
+11806
+11808
+11818
+11822
+11824
+11836
+11837
+11842
+11843
+12288
+12291
+12293
+12306
+12308
+12316
+12317
+12320
+12321
+12336
+12337
+12342
+12344
+12349
+12353
+12439
+12441
+12443
+12445
+12448
+12449
+12539
+12540
+12544
+12549
+12590
+12593
+12687
+12704
+12731
+12784
+12800
+13312
+19894
+19968
+40918
+40960
+42125
+42192
+42238
+42239
+42509
+42510
+42540
+42560
+42611
+42612
+42622
+42623
+42738
+42739
+42740
+42743
+42744
+42775
+42784
+42786
+42889
+42891
+42926
+42928
+42936
+42999
+43048
+43072
+43124
+43126
+43128
+43136
+43205
+43214
+43226
+43232
+43256
+43259
+43260
+43261
+43262
+43264
+43310
+43311
+43348
+43360
+43389
+43392
+43457
+43464
+43466
+43471
+43482
+43488
+43519
+43520
+43575
+43584
+43598
+43600
+43610
+43613
+43639
+43642
+43715
+43739
+43742
+43744
+43767
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43824
+43867
+43868
+43878
+43888
+44014
+44016
+44026
+44032
+55204
+55216
+55239
+55243
+55292
+63744
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64297
+64298
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64434
+64467
+64832
+64848
+64912
+64914
+64968
+65008
+65020
+65024
+65042
+65043
+65044
+65047
+65049
+65056
+65072
+65073
+65075
+65077
+65093
+65095
+65097
+65104
+65107
+65109
+65119
+65123
+65124
+65136
+65141
+65142
+65277
+65279
+65280
+65281
+65282
+65288
+65290
+65292
+65295
+65306
+65307
+65311
+65312
+65313
+65340
+65341
+65342
+65345
+65372
+65373
+65374
+65375
+65381
+65382
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65529
+65532
+65536
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65856
+65909
+66045
+66046
+66176
+66205
+66208
+66257
+66272
+66273
+66304
+66336
+66352
+66379
+66384
+66427
+66432
+66462
+66464
+66500
+66504
+66512
+66513
+66518
+66560
+66718
+66720
+66730
+66816
+66856
+66864
+66916
+67072
+67383
+67392
+67414
+67424
+67432
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67680
+67703
+67712
+67743
+67808
+67827
+67828
+67830
+67840
+67862
+67872
+67898
+67968
+68024
+68030
+68032
+68096
+68100
+68101
+68103
+68108
+68116
+68117
+68120
+68121
+68148
+68152
+68155
+68159
+68160
+68182
+68184
+68192
+68221
+68224
+68253
+68288
+68296
+68297
+68327
+68352
+68406
+68416
+68438
+68448
+68467
+68480
+68498
+68608
+68681
+68736
+68787
+68800
+68851
+69632
+69705
+69734
+69744
+69759
+69819
+69821
+69826
+69840
+69865
+69872
+69882
+69888
+69941
+69942
+69952
+69953
+69956
+69968
+70004
+70006
+70007
+70016
+70087
+70090
+70094
+70096
+70107
+70108
+70109
+70110
+70112
+70144
+70162
+70163
+70202
+70203
+70205
+70272
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70314
+70320
+70379
+70384
+70394
+70400
+70404
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70460
+70469
+70471
+70473
+70475
+70478
+70480
+70481
+70487
+70488
+70493
+70500
+70502
+70509
+70512
+70517
+70784
+70854
+70855
+70856
+70864
+70874
+71040
+71094
+71096
+71105
+71106
+71108
+71113
+71134
+71168
+71235
+71236
+71237
+71248
+71258
+71296
+71352
+71360
+71370
+71424
+71450
+71453
+71468
+71472
+71482
+71484
+71487
+71840
+71914
+71935
+71936
+72384
+72441
+73728
+74650
+74752
+74863
+74880
+75076
+77824
+78895
+82944
+83527
+92160
+92729
+92736
+92767
+92768
+92778
+92782
+92784
+92880
+92910
+92912
+92918
+92928
+92985
+92992
+92997
+93008
+93018
+93027
+93048
+93053
+93072
+93952
+94021
+94032
+94079
+94095
+94112
+110592
+110594
+113664
+113771
+113776
+113789
+113792
+113801
+113808
+113818
+113821
+113828
+119141
+119146
+119149
+119171
+119173
+119180
+119210
+119214
+119362
+119365
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120513
+120514
+120539
+120540
+120571
+120572
+120597
+120598
+120629
+120630
+120655
+120656
+120687
+120688
+120713
+120714
+120745
+120746
+120771
+120772
+120780
+120782
+120832
+121344
+121399
+121403
+121453
+121461
+121462
+121476
+121477
+121480
+121481
+121499
+121504
+121505
+121520
+124928
+125125
+125136
+125143
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+127280
+127306
+127312
+127338
+127344
+127370
+128630
+128633
+131072
+173783
+173824
+177973
+177984
+178206
+178208
+183970
+194560
+195102
+917505
+917506
+917536
+917632
+917760
+918000
+END
diff --git a/lib/5.24.1/unicore/lib/SD/Y.pl b/lib/5.24.1/unicore/lib/SD/Y.pl
new file mode 100644
index 00000000..958cc4f6
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/SD/Y.pl
@@ -0,0 +1,76 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V62
+105
+107
+303
+304
+585
+586
+616
+617
+669
+670
+690
+691
+1011
+1012
+1110
+1111
+1112
+1113
+7522
+7523
+7574
+7575
+7588
+7589
+7592
+7593
+7725
+7726
+7883
+7884
+8305
+8306
+8520
+8522
+11388
+11389
+119842
+119844
+119894
+119896
+119946
+119948
+119998
+120000
+120050
+120052
+120102
+120104
+120154
+120156
+120206
+120208
+120258
+120260
+120310
+120312
+120362
+120364
+120414
+120416
+120466
+120468
+END
diff --git a/lib/5.24.1/unicore/lib/STerm/Y.pl b/lib/5.24.1/unicore/lib/STerm/Y.pl
new file mode 100644
index 00000000..d74e321f
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/STerm/Y.pl
@@ -0,0 +1,142 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V128
+33
+34
+46
+47
+63
+64
+1417
+1418
+1567
+1568
+1748
+1749
+1792
+1795
+2041
+2042
+2404
+2406
+4170
+4172
+4962
+4963
+4967
+4969
+5742
+5743
+5941
+5943
+6147
+6148
+6153
+6154
+6468
+6470
+6824
+6828
+7002
+7004
+7006
+7008
+7227
+7229
+7294
+7296
+8252
+8254
+8263
+8266
+11822
+11823
+11836
+11837
+12290
+12291
+42239
+42240
+42510
+42512
+42739
+42740
+42743
+42744
+43126
+43128
+43214
+43216
+43311
+43312
+43464
+43466
+43613
+43616
+43760
+43762
+44011
+44012
+65106
+65107
+65110
+65112
+65281
+65282
+65294
+65295
+65311
+65312
+65377
+65378
+68182
+68184
+69703
+69705
+69822
+69826
+69953
+69956
+70085
+70087
+70093
+70094
+70110
+70112
+70200
+70202
+70203
+70205
+70313
+70314
+71106
+71108
+71113
+71128
+71233
+71235
+71484
+71487
+92782
+92784
+92917
+92918
+92983
+92985
+92996
+92997
+113823
+113824
+121480
+121481
+END
diff --git a/lib/5.24.1/unicore/lib/Sc/Arab.pl b/lib/5.24.1/unicore/lib/Sc/Arab.pl
new file mode 100644
index 00000000..5041288d
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Sc/Arab.pl
@@ -0,0 +1,122 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V108
+1536
+1541
+1542
+1548
+1549
+1563
+1566
+1567
+1568
+1600
+1601
+1611
+1622
+1648
+1649
+1757
+1758
+1792
+1872
+1920
+2208
+2229
+2275
+2304
+64336
+64450
+64467
+64830
+64848
+64912
+64914
+64968
+65008
+65022
+65136
+65141
+65142
+65277
+69216
+69247
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+126704
+126706
+END
diff --git a/lib/5.24.1/unicore/lib/Sc/Armn.pl b/lib/5.24.1/unicore/lib/Sc/Armn.pl
new file mode 100644
index 00000000..0111a457
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Sc/Armn.pl
@@ -0,0 +1,26 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V12
+1329
+1367
+1369
+1376
+1377
+1416
+1418
+1419
+1421
+1424
+64275
+64280
+END
diff --git a/lib/5.24.1/unicore/lib/Sc/Beng.pl b/lib/5.24.1/unicore/lib/Sc/Beng.pl
new file mode 100644
index 00000000..18ea6e76
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Sc/Beng.pl
@@ -0,0 +1,42 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V28
+2432
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2501
+2503
+2505
+2507
+2511
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2556
+END
diff --git a/lib/5.24.1/unicore/lib/Sc/Cham.pl b/lib/5.24.1/unicore/lib/Sc/Cham.pl
new file mode 100644
index 00000000..37b952ad
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Sc/Cham.pl
@@ -0,0 +1,22 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+43520
+43575
+43584
+43598
+43600
+43610
+43612
+43616
+END
diff --git a/lib/5.24.1/unicore/lib/Sc/Cprt.pl b/lib/5.24.1/unicore/lib/Sc/Cprt.pl
new file mode 100644
index 00000000..5e92de8f
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Sc/Cprt.pl
@@ -0,0 +1,26 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V12
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67648
+END
diff --git a/lib/5.24.1/unicore/lib/Sc/Cyrl.pl b/lib/5.24.1/unicore/lib/Sc/Cyrl.pl
new file mode 100644
index 00000000..125d6f0d
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Sc/Cyrl.pl
@@ -0,0 +1,28 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V14
+1024
+1157
+1159
+1328
+7467
+7468
+7544
+7545
+11744
+11776
+42560
+42656
+65070
+65072
+END
diff --git a/lib/5.24.1/unicore/lib/Sc/Deva.pl b/lib/5.24.1/unicore/lib/Sc/Deva.pl
new file mode 100644
index 00000000..7b5860ff
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Sc/Deva.pl
@@ -0,0 +1,22 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+2304
+2385
+2387
+2404
+2406
+2432
+43232
+43262
+END
diff --git a/lib/5.24.1/unicore/lib/Sc/Dupl.pl b/lib/5.24.1/unicore/lib/Sc/Dupl.pl
new file mode 100644
index 00000000..9a50da67
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Sc/Dupl.pl
@@ -0,0 +1,24 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V10
+113664
+113771
+113776
+113789
+113792
+113801
+113808
+113818
+113820
+113824
+END
diff --git a/lib/5.24.1/unicore/lib/Sc/Ethi.pl b/lib/5.24.1/unicore/lib/Sc/Ethi.pl
new file mode 100644
index 00000000..2edc3929
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Sc/Ethi.pl
@@ -0,0 +1,78 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V64
+4608
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4957
+4989
+4992
+5018
+11648
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+END
diff --git a/lib/5.24.1/unicore/lib/Sc/Geor.pl b/lib/5.24.1/unicore/lib/Sc/Geor.pl
new file mode 100644
index 00000000..255e7e35
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Sc/Geor.pl
@@ -0,0 +1,30 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V16
+4256
+4294
+4295
+4296
+4301
+4302
+4304
+4347
+4348
+4352
+11520
+11558
+11559
+11560
+11565
+11566
+END
diff --git a/lib/5.24.1/unicore/lib/Sc/Gran.pl b/lib/5.24.1/unicore/lib/Sc/Gran.pl
new file mode 100644
index 00000000..cc3e8781
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Sc/Gran.pl
@@ -0,0 +1,44 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V30
+70400
+70404
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70460
+70469
+70471
+70473
+70475
+70478
+70480
+70481
+70487
+70488
+70493
+70500
+70502
+70509
+70512
+70517
+END
diff --git a/lib/5.24.1/unicore/lib/Sc/Grek.pl b/lib/5.24.1/unicore/lib/Sc/Grek.pl
new file mode 100644
index 00000000..abbda6f4
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Sc/Grek.pl
@@ -0,0 +1,86 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V72
+880
+884
+885
+888
+890
+894
+895
+896
+900
+901
+902
+903
+904
+907
+908
+909
+910
+930
+931
+994
+1008
+1024
+7462
+7467
+7517
+7522
+7526
+7531
+7615
+7616
+7936
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8191
+8486
+8487
+43877
+43878
+65856
+65933
+65952
+65953
+119296
+119366
+END
diff --git a/lib/5.24.1/unicore/lib/Sc/Gujr.pl b/lib/5.24.1/unicore/lib/Sc/Gujr.pl
new file mode 100644
index 00000000..8d993516
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Sc/Gujr.pl
@@ -0,0 +1,42 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V28
+2689
+2692
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2788
+2790
+2802
+2809
+2810
+END
diff --git a/lib/5.24.1/unicore/lib/Sc/Guru.pl b/lib/5.24.1/unicore/lib/Sc/Guru.pl
new file mode 100644
index 00000000..8539554b
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Sc/Guru.pl
@@ -0,0 +1,46 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V32
+2561
+2564
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2649
+2653
+2654
+2655
+2662
+2678
+END
diff --git a/lib/5.24.1/unicore/lib/Sc/Han.pl b/lib/5.24.1/unicore/lib/Sc/Han.pl
new file mode 100644
index 00000000..c6292edc
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Sc/Han.pl
@@ -0,0 +1,46 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V32
+11904
+11930
+11931
+12020
+12032
+12246
+12293
+12294
+12295
+12296
+12321
+12330
+12344
+12348
+13312
+19894
+19968
+40918
+63744
+64110
+64112
+64218
+131072
+173783
+173824
+177973
+177984
+178206
+178208
+183970
+194560
+195102
+END
diff --git a/lib/5.24.1/unicore/lib/Sc/Hang.pl b/lib/5.24.1/unicore/lib/Sc/Hang.pl
new file mode 100644
index 00000000..daec3df5
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Sc/Hang.pl
@@ -0,0 +1,42 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V28
+4352
+4608
+12334
+12336
+12593
+12687
+12800
+12831
+12896
+12927
+43360
+43389
+44032
+55204
+55216
+55239
+55243
+55292
+65440
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+END
diff --git a/lib/5.24.1/unicore/lib/Sc/Hebr.pl b/lib/5.24.1/unicore/lib/Sc/Hebr.pl
new file mode 100644
index 00000000..5bb2a44d
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Sc/Hebr.pl
@@ -0,0 +1,32 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V18
+1425
+1480
+1488
+1515
+1520
+1525
+64285
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64336
+END
diff --git a/lib/5.24.1/unicore/lib/Sc/Hira.pl b/lib/5.24.1/unicore/lib/Sc/Hira.pl
new file mode 100644
index 00000000..a00995e3
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Sc/Hira.pl
@@ -0,0 +1,22 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+12353
+12439
+12445
+12448
+110593
+110594
+127488
+127489
+END
diff --git a/lib/5.24.1/unicore/lib/Sc/Hmng.pl b/lib/5.24.1/unicore/lib/Sc/Hmng.pl
new file mode 100644
index 00000000..0ebf81ea
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Sc/Hmng.pl
@@ -0,0 +1,24 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V10
+92928
+92998
+93008
+93018
+93019
+93026
+93027
+93048
+93053
+93072
+END
diff --git a/lib/5.24.1/unicore/lib/Sc/Kana.pl b/lib/5.24.1/unicore/lib/Sc/Kana.pl
new file mode 100644
index 00000000..031e8581
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Sc/Kana.pl
@@ -0,0 +1,30 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V16
+12449
+12539
+12541
+12544
+12784
+12800
+13008
+13055
+13056
+13144
+65382
+65392
+65393
+65438
+110592
+110593
+END
diff --git a/lib/5.24.1/unicore/lib/Sc/Khar.pl b/lib/5.24.1/unicore/lib/Sc/Khar.pl
new file mode 100644
index 00000000..73bcc8f8
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Sc/Khar.pl
@@ -0,0 +1,30 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V16
+68096
+68100
+68101
+68103
+68108
+68116
+68117
+68120
+68121
+68148
+68152
+68155
+68159
+68168
+68176
+68185
+END
diff --git a/lib/5.24.1/unicore/lib/Sc/Khmr.pl b/lib/5.24.1/unicore/lib/Sc/Khmr.pl
new file mode 100644
index 00000000..da7325da
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Sc/Khmr.pl
@@ -0,0 +1,22 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+6016
+6110
+6112
+6122
+6128
+6138
+6624
+6656
+END
diff --git a/lib/5.24.1/unicore/lib/Sc/Knda.pl b/lib/5.24.1/unicore/lib/Sc/Knda.pl
new file mode 100644
index 00000000..4ec7e141
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Sc/Knda.pl
@@ -0,0 +1,42 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V28
+3201
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3260
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3300
+3302
+3312
+3313
+3315
+END
diff --git a/lib/5.24.1/unicore/lib/Sc/Lana.pl b/lib/5.24.1/unicore/lib/Sc/Lana.pl
new file mode 100644
index 00000000..3285c50d
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Sc/Lana.pl
@@ -0,0 +1,24 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V10
+6688
+6751
+6752
+6781
+6783
+6794
+6800
+6810
+6816
+6830
+END
diff --git a/lib/5.24.1/unicore/lib/Sc/Lao.pl b/lib/5.24.1/unicore/lib/Sc/Lao.pl
new file mode 100644
index 00000000..d194ec26
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Sc/Lao.pl
@@ -0,0 +1,50 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V36
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3792
+3802
+3804
+3808
+END
diff --git a/lib/5.24.1/unicore/lib/Sc/Latn.pl b/lib/5.24.1/unicore/lib/Sc/Latn.pl
new file mode 100644
index 00000000..5a0aea58
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Sc/Latn.pl
@@ -0,0 +1,76 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V62
+65
+91
+97
+123
+170
+171
+186
+187
+192
+215
+216
+247
+248
+697
+736
+741
+7424
+7462
+7468
+7517
+7522
+7526
+7531
+7544
+7545
+7615
+7680
+7936
+8305
+8306
+8319
+8320
+8336
+8349
+8490
+8492
+8498
+8499
+8526
+8527
+8544
+8585
+11360
+11392
+42786
+42888
+42891
+42926
+42928
+42936
+42999
+43008
+43824
+43867
+43868
+43877
+64256
+64263
+65313
+65339
+65345
+65371
+END
diff --git a/lib/5.24.1/unicore/lib/Sc/Limb.pl b/lib/5.24.1/unicore/lib/Sc/Limb.pl
new file mode 100644
index 00000000..2d1dbf5d
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Sc/Limb.pl
@@ -0,0 +1,24 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V10
+6400
+6431
+6432
+6444
+6448
+6460
+6464
+6465
+6468
+6480
+END
diff --git a/lib/5.24.1/unicore/lib/Sc/Linb.pl b/lib/5.24.1/unicore/lib/Sc/Linb.pl
new file mode 100644
index 00000000..29396745
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Sc/Linb.pl
@@ -0,0 +1,28 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V14
+65536
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+END
diff --git a/lib/5.24.1/unicore/lib/Sc/Mlym.pl b/lib/5.24.1/unicore/lib/Sc/Mlym.pl
new file mode 100644
index 00000000..a491b4c1
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Sc/Mlym.pl
@@ -0,0 +1,36 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V22
+3329
+3332
+3333
+3341
+3342
+3345
+3346
+3387
+3389
+3397
+3398
+3401
+3402
+3407
+3415
+3416
+3423
+3428
+3430
+3446
+3449
+3456
+END
diff --git a/lib/5.24.1/unicore/lib/Sc/Mong.pl b/lib/5.24.1/unicore/lib/Sc/Mong.pl
new file mode 100644
index 00000000..e2ff8cff
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Sc/Mong.pl
@@ -0,0 +1,26 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V12
+6144
+6146
+6148
+6149
+6150
+6159
+6160
+6170
+6176
+6264
+6272
+6315
+END
diff --git a/lib/5.24.1/unicore/lib/Sc/Mult.pl b/lib/5.24.1/unicore/lib/Sc/Mult.pl
new file mode 100644
index 00000000..4af80012
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Sc/Mult.pl
@@ -0,0 +1,24 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V10
+70272
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70314
+END
diff --git a/lib/5.24.1/unicore/lib/Sc/Orya.pl b/lib/5.24.1/unicore/lib/Sc/Orya.pl
new file mode 100644
index 00000000..0ce2c44f
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Sc/Orya.pl
@@ -0,0 +1,42 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V28
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2876
+2885
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2916
+2918
+2936
+END
diff --git a/lib/5.24.1/unicore/lib/Sc/Sinh.pl b/lib/5.24.1/unicore/lib/Sc/Sinh.pl
new file mode 100644
index 00000000..050a6bc9
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Sc/Sinh.pl
@@ -0,0 +1,40 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V26
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3558
+3568
+3570
+3573
+70113
+70133
+END
diff --git a/lib/5.24.1/unicore/lib/Sc/Talu.pl b/lib/5.24.1/unicore/lib/Sc/Talu.pl
new file mode 100644
index 00000000..2f52b88c
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Sc/Talu.pl
@@ -0,0 +1,22 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+6528
+6572
+6576
+6602
+6608
+6619
+6622
+6624
+END
diff --git a/lib/5.24.1/unicore/lib/Sc/Taml.pl b/lib/5.24.1/unicore/lib/Sc/Taml.pl
new file mode 100644
index 00000000..feaa2701
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Sc/Taml.pl
@@ -0,0 +1,46 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V32
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3024
+3025
+3031
+3032
+3046
+3067
+END
diff --git a/lib/5.24.1/unicore/lib/Sc/Telu.pl b/lib/5.24.1/unicore/lib/Sc/Telu.pl
new file mode 100644
index 00000000..721b84d4
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Sc/Telu.pl
@@ -0,0 +1,40 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V26
+3072
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3130
+3133
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3160
+3163
+3168
+3172
+3174
+3184
+3192
+3200
+END
diff --git a/lib/5.24.1/unicore/lib/Sc/Tibt.pl b/lib/5.24.1/unicore/lib/Sc/Tibt.pl
new file mode 100644
index 00000000..956c74cf
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Sc/Tibt.pl
@@ -0,0 +1,28 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V14
+3840
+3912
+3913
+3949
+3953
+3992
+3993
+4029
+4030
+4045
+4046
+4053
+4057
+4059
+END
diff --git a/lib/5.24.1/unicore/lib/Sc/Xsux.pl b/lib/5.24.1/unicore/lib/Sc/Xsux.pl
new file mode 100644
index 00000000..41db2750
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Sc/Xsux.pl
@@ -0,0 +1,22 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+73728
+74650
+74752
+74863
+74864
+74869
+74880
+75076
+END
diff --git a/lib/5.24.1/unicore/lib/Sc/Zinh.pl b/lib/5.24.1/unicore/lib/Sc/Zinh.pl
new file mode 100644
index 00000000..30da3568
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Sc/Zinh.pl
@@ -0,0 +1,68 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V54
+768
+880
+1157
+1159
+1611
+1622
+1648
+1649
+2385
+2387
+6832
+6847
+7376
+7379
+7380
+7393
+7394
+7401
+7405
+7406
+7412
+7413
+7416
+7418
+7616
+7670
+7676
+7680
+8204
+8206
+8400
+8433
+12330
+12334
+12441
+12443
+65024
+65040
+65056
+65070
+66045
+66046
+66272
+66273
+119143
+119146
+119163
+119171
+119173
+119180
+119210
+119214
+917760
+918000
+END
diff --git a/lib/5.24.1/unicore/lib/Sc/Zyyy.pl b/lib/5.24.1/unicore/lib/Sc/Zyyy.pl
new file mode 100644
index 00000000..cb6fe869
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Sc/Zyyy.pl
@@ -0,0 +1,336 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V322
+0
+65
+91
+97
+123
+170
+171
+186
+187
+192
+215
+216
+247
+248
+697
+736
+741
+746
+748
+768
+884
+885
+894
+895
+901
+902
+903
+904
+1417
+1418
+1541
+1542
+1548
+1549
+1563
+1565
+1567
+1568
+1600
+1601
+1757
+1758
+2404
+2406
+3647
+3648
+4053
+4057
+4347
+4348
+5867
+5870
+5941
+5943
+6146
+6148
+6149
+6150
+7379
+7380
+7393
+7394
+7401
+7405
+7406
+7412
+7413
+7415
+8192
+8204
+8206
+8293
+8294
+8305
+8308
+8319
+8320
+8335
+8352
+8383
+8448
+8486
+8487
+8490
+8492
+8498
+8499
+8526
+8527
+8544
+8585
+8588
+8592
+9211
+9216
+9255
+9280
+9291
+9312
+10240
+10496
+11124
+11126
+11158
+11160
+11194
+11197
+11209
+11210
+11218
+11244
+11248
+11776
+11843
+12272
+12284
+12288
+12293
+12294
+12295
+12296
+12321
+12336
+12344
+12348
+12352
+12443
+12445
+12448
+12449
+12539
+12541
+12688
+12704
+12736
+12772
+12832
+12896
+12927
+13008
+13144
+13312
+19904
+19968
+42752
+42786
+42888
+42891
+43056
+43066
+43310
+43311
+43471
+43472
+43867
+43868
+64830
+64832
+65040
+65050
+65072
+65107
+65108
+65127
+65128
+65132
+65279
+65280
+65281
+65313
+65339
+65345
+65371
+65382
+65392
+65393
+65438
+65440
+65504
+65511
+65512
+65519
+65529
+65534
+65792
+65795
+65799
+65844
+65847
+65856
+65936
+65948
+66000
+66045
+66273
+66300
+113824
+113828
+118784
+119030
+119040
+119079
+119081
+119143
+119146
+119163
+119171
+119173
+119180
+119210
+119214
+119273
+119552
+119639
+119648
+119666
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120780
+120782
+120832
+126976
+127020
+127024
+127124
+127136
+127151
+127153
+127168
+127169
+127184
+127185
+127222
+127232
+127245
+127248
+127279
+127280
+127340
+127344
+127387
+127462
+127488
+127489
+127491
+127504
+127547
+127552
+127561
+127568
+127570
+127744
+128378
+128379
+128420
+128421
+128721
+128736
+128749
+128752
+128756
+128768
+128884
+128896
+128981
+129024
+129036
+129040
+129096
+129104
+129114
+129120
+129160
+129168
+129198
+129296
+129305
+129408
+129413
+129472
+129473
+917505
+917506
+917536
+917632
+END
diff --git a/lib/5.24.1/unicore/lib/Sc/Zzzz.pl b/lib/5.24.1/unicore/lib/Sc/Zzzz.pl
new file mode 100644
index 00000000..a6dd196b
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Sc/Zzzz.pl
@@ -0,0 +1,1235 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1221
+888
+890
+896
+900
+907
+908
+909
+910
+930
+931
+1328
+1329
+1367
+1369
+1376
+1377
+1416
+1417
+1419
+1421
+1424
+1425
+1480
+1488
+1515
+1520
+1525
+1536
+1565
+1566
+1806
+1807
+1867
+1869
+1970
+1984
+2043
+2048
+2094
+2096
+2111
+2112
+2140
+2142
+2143
+2208
+2229
+2275
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2501
+2503
+2505
+2507
+2511
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2556
+2561
+2564
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2649
+2653
+2654
+2655
+2662
+2678
+2689
+2692
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2788
+2790
+2802
+2809
+2810
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2876
+2885
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2916
+2918
+2936
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3024
+3025
+3031
+3032
+3046
+3067
+3072
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3130
+3133
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3160
+3163
+3168
+3172
+3174
+3184
+3192
+3200
+3201
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3260
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3300
+3302
+3312
+3313
+3315
+3329
+3332
+3333
+3341
+3342
+3345
+3346
+3387
+3389
+3397
+3398
+3401
+3402
+3407
+3415
+3416
+3423
+3428
+3430
+3446
+3449
+3456
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3558
+3568
+3570
+3573
+3585
+3643
+3647
+3676
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3792
+3802
+3804
+3808
+3840
+3912
+3913
+3949
+3953
+3992
+3993
+4029
+4030
+4045
+4046
+4059
+4096
+4294
+4295
+4296
+4301
+4302
+4304
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4957
+4989
+4992
+5018
+5024
+5110
+5112
+5118
+5120
+5789
+5792
+5881
+5888
+5901
+5902
+5909
+5920
+5943
+5952
+5972
+5984
+5997
+5998
+6001
+6002
+6004
+6016
+6110
+6112
+6122
+6128
+6138
+6144
+6159
+6160
+6170
+6176
+6264
+6272
+6315
+6320
+6390
+6400
+6431
+6432
+6444
+6448
+6460
+6464
+6465
+6468
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6608
+6619
+6622
+6684
+6686
+6751
+6752
+6781
+6783
+6794
+6800
+6810
+6816
+6830
+6832
+6847
+6912
+6988
+6992
+7037
+7040
+7156
+7164
+7224
+7227
+7242
+7245
+7296
+7360
+7368
+7376
+7415
+7416
+7418
+7424
+7670
+7676
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8191
+8192
+8293
+8294
+8306
+8308
+8335
+8336
+8349
+8352
+8383
+8400
+8433
+8448
+8588
+8592
+9211
+9216
+9255
+9280
+9291
+9312
+11124
+11126
+11158
+11160
+11194
+11197
+11209
+11210
+11218
+11244
+11248
+11264
+11311
+11312
+11359
+11360
+11508
+11513
+11558
+11559
+11560
+11565
+11566
+11568
+11624
+11631
+11633
+11647
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11744
+11843
+11904
+11930
+11931
+12020
+12032
+12246
+12272
+12284
+12288
+12352
+12353
+12439
+12441
+12544
+12549
+12590
+12593
+12687
+12688
+12731
+12736
+12772
+12784
+12831
+12832
+13055
+13056
+19894
+19904
+40918
+40960
+42125
+42128
+42183
+42192
+42540
+42560
+42744
+42752
+42926
+42928
+42936
+42999
+43052
+43056
+43066
+43072
+43128
+43136
+43205
+43214
+43226
+43232
+43262
+43264
+43348
+43359
+43389
+43392
+43470
+43471
+43482
+43486
+43519
+43520
+43575
+43584
+43598
+43600
+43610
+43612
+43715
+43739
+43767
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43824
+43878
+43888
+44014
+44016
+44026
+44032
+55204
+55216
+55239
+55243
+55292
+63744
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64450
+64467
+64832
+64848
+64912
+64914
+64968
+65008
+65022
+65024
+65050
+65056
+65107
+65108
+65127
+65128
+65132
+65136
+65141
+65142
+65277
+65279
+65280
+65281
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65504
+65511
+65512
+65519
+65529
+65534
+65536
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65792
+65795
+65799
+65844
+65847
+65933
+65936
+65948
+65952
+65953
+66000
+66046
+66176
+66205
+66208
+66257
+66272
+66300
+66304
+66340
+66352
+66379
+66384
+66427
+66432
+66462
+66463
+66500
+66504
+66518
+66560
+66718
+66720
+66730
+66816
+66856
+66864
+66916
+66927
+66928
+67072
+67383
+67392
+67414
+67424
+67432
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67671
+67743
+67751
+67760
+67808
+67827
+67828
+67830
+67835
+67868
+67871
+67898
+67903
+67904
+67968
+68024
+68028
+68048
+68050
+68100
+68101
+68103
+68108
+68116
+68117
+68120
+68121
+68148
+68152
+68155
+68159
+68168
+68176
+68185
+68192
+68256
+68288
+68327
+68331
+68343
+68352
+68406
+68409
+68438
+68440
+68467
+68472
+68498
+68505
+68509
+68521
+68528
+68608
+68681
+68736
+68787
+68800
+68851
+68858
+68864
+69216
+69247
+69632
+69710
+69714
+69744
+69759
+69826
+69840
+69865
+69872
+69882
+69888
+69941
+69942
+69956
+69968
+70007
+70016
+70094
+70096
+70112
+70113
+70133
+70144
+70162
+70163
+70206
+70272
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70314
+70320
+70379
+70384
+70394
+70400
+70404
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70460
+70469
+70471
+70473
+70475
+70478
+70480
+70481
+70487
+70488
+70493
+70500
+70502
+70509
+70512
+70517
+70784
+70856
+70864
+70874
+71040
+71094
+71096
+71134
+71168
+71237
+71248
+71258
+71296
+71352
+71360
+71370
+71424
+71450
+71453
+71468
+71472
+71488
+71840
+71923
+71935
+71936
+72384
+72441
+73728
+74650
+74752
+74863
+74864
+74869
+74880
+75076
+77824
+78895
+82944
+83527
+92160
+92729
+92736
+92767
+92768
+92778
+92782
+92784
+92880
+92910
+92912
+92918
+92928
+92998
+93008
+93018
+93019
+93026
+93027
+93048
+93053
+93072
+93952
+94021
+94032
+94079
+94095
+94112
+110592
+110594
+113664
+113771
+113776
+113789
+113792
+113801
+113808
+113818
+113820
+113828
+118784
+119030
+119040
+119079
+119081
+119273
+119296
+119366
+119552
+119639
+119648
+119666
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120780
+120782
+121484
+121499
+121504
+121505
+121520
+124928
+125125
+125127
+125143
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+126704
+126706
+126976
+127020
+127024
+127124
+127136
+127151
+127153
+127168
+127169
+127184
+127185
+127222
+127232
+127245
+127248
+127279
+127280
+127340
+127344
+127387
+127462
+127491
+127504
+127547
+127552
+127561
+127568
+127570
+127744
+128378
+128379
+128420
+128421
+128721
+128736
+128749
+128752
+128756
+128768
+128884
+128896
+128981
+129024
+129036
+129040
+129096
+129104
+129114
+129120
+129160
+129168
+129198
+129296
+129305
+129408
+129413
+129472
+129473
+131072
+173783
+173824
+177973
+177984
+178206
+178208
+183970
+194560
+195102
+917505
+917506
+917536
+917632
+917760
+918000
+END
diff --git a/lib/5.24.1/unicore/lib/Scx/Arab.pl b/lib/5.24.1/unicore/lib/Scx/Arab.pl
new file mode 100644
index 00000000..019fac5c
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Scx/Arab.pl
@@ -0,0 +1,114 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V100
+1536
+1541
+1542
+1564
+1566
+1757
+1758
+1792
+1872
+1920
+2208
+2229
+2275
+2304
+64336
+64450
+64467
+64830
+64848
+64912
+64914
+64968
+65008
+65022
+65136
+65141
+65142
+65277
+66272
+66300
+69216
+69247
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+126704
+126706
+END
diff --git a/lib/5.24.1/unicore/lib/Scx/Armn.pl b/lib/5.24.1/unicore/lib/Scx/Armn.pl
new file mode 100644
index 00000000..0f4a8ef1
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Scx/Armn.pl
@@ -0,0 +1,26 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V12
+1329
+1367
+1369
+1376
+1377
+1416
+1417
+1419
+1421
+1424
+64275
+64280
+END
diff --git a/lib/5.24.1/unicore/lib/Scx/Beng.pl b/lib/5.24.1/unicore/lib/Scx/Beng.pl
new file mode 100644
index 00000000..a3420f5a
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Scx/Beng.pl
@@ -0,0 +1,46 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V32
+2385
+2387
+2404
+2406
+2432
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2501
+2503
+2505
+2507
+2511
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2556
+END
diff --git a/lib/5.24.1/unicore/lib/Scx/Bopo.pl b/lib/5.24.1/unicore/lib/Scx/Bopo.pl
new file mode 100644
index 00000000..28d76005
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Scx/Bopo.pl
@@ -0,0 +1,54 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V40
+746
+748
+12289
+12292
+12296
+12306
+12307
+12320
+12330
+12334
+12336
+12337
+12343
+12344
+12350
+12352
+12539
+12540
+12549
+12590
+12704
+12731
+12736
+12772
+12832
+12868
+12928
+12977
+12992
+13004
+13144
+13169
+13179
+13184
+13280
+13311
+65093
+65095
+65377
+65382
+END
diff --git a/lib/5.24.1/unicore/lib/Scx/Cakm.pl b/lib/5.24.1/unicore/lib/Scx/Cakm.pl
new file mode 100644
index 00000000..2bcef0c8
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Scx/Cakm.pl
@@ -0,0 +1,22 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+2534
+2544
+4160
+4170
+69888
+69941
+69942
+69956
+END
diff --git a/lib/5.24.1/unicore/lib/Scx/Copt.pl b/lib/5.24.1/unicore/lib/Scx/Copt.pl
new file mode 100644
index 00000000..63582ea9
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Scx/Copt.pl
@@ -0,0 +1,22 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+994
+1008
+11392
+11508
+11513
+11520
+66272
+66300
+END
diff --git a/lib/5.24.1/unicore/lib/Scx/Cprt.pl b/lib/5.24.1/unicore/lib/Scx/Cprt.pl
new file mode 100644
index 00000000..c2d32bcc
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Scx/Cprt.pl
@@ -0,0 +1,32 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V18
+65792
+65795
+65799
+65844
+65847
+65856
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67648
+END
diff --git a/lib/5.24.1/unicore/lib/Scx/Cyrl.pl b/lib/5.24.1/unicore/lib/Scx/Cyrl.pl
new file mode 100644
index 00000000..d9f9d68e
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Scx/Cyrl.pl
@@ -0,0 +1,26 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V12
+1024
+1328
+7467
+7468
+7544
+7545
+11744
+11776
+42560
+42656
+65070
+65072
+END
diff --git a/lib/5.24.1/unicore/lib/Scx/Deva.pl b/lib/5.24.1/unicore/lib/Scx/Deva.pl
new file mode 100644
index 00000000..7c6d28f9
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Scx/Deva.pl
@@ -0,0 +1,26 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V12
+2304
+2432
+7376
+7415
+7416
+7418
+8432
+8433
+43056
+43066
+43232
+43262
+END
diff --git a/lib/5.24.1/unicore/lib/Scx/Dupl.pl b/lib/5.24.1/unicore/lib/Scx/Dupl.pl
new file mode 100644
index 00000000..174a5898
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Scx/Dupl.pl
@@ -0,0 +1,24 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V10
+113664
+113771
+113776
+113789
+113792
+113801
+113808
+113818
+113820
+113828
+END
diff --git a/lib/5.24.1/unicore/lib/Scx/Geor.pl b/lib/5.24.1/unicore/lib/Scx/Geor.pl
new file mode 100644
index 00000000..813a5c56
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Scx/Geor.pl
@@ -0,0 +1,32 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V18
+1417
+1418
+4256
+4294
+4295
+4296
+4301
+4302
+4304
+4347
+4348
+4352
+11520
+11558
+11559
+11560
+11565
+11566
+END
diff --git a/lib/5.24.1/unicore/lib/Scx/Glag.pl b/lib/5.24.1/unicore/lib/Scx/Glag.pl
new file mode 100644
index 00000000..7b71ad91
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Scx/Glag.pl
@@ -0,0 +1,22 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+1159
+1160
+11264
+11311
+11312
+11359
+42607
+42608
+END
diff --git a/lib/5.24.1/unicore/lib/Scx/Gran.pl b/lib/5.24.1/unicore/lib/Scx/Gran.pl
new file mode 100644
index 00000000..9b43f50c
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Scx/Gran.pl
@@ -0,0 +1,64 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V50
+2385
+2387
+2404
+2406
+2986
+2987
+2997
+2998
+3046
+3059
+7376
+7377
+7378
+7380
+7410
+7413
+7416
+7418
+8432
+8433
+70400
+70404
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70460
+70469
+70471
+70473
+70475
+70478
+70480
+70481
+70487
+70488
+70493
+70500
+70502
+70509
+70512
+70517
+END
diff --git a/lib/5.24.1/unicore/lib/Scx/Grek.pl b/lib/5.24.1/unicore/lib/Scx/Grek.pl
new file mode 100644
index 00000000..8aaf98ef
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Scx/Grek.pl
@@ -0,0 +1,90 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V76
+834
+835
+837
+838
+880
+884
+885
+888
+890
+894
+895
+896
+900
+901
+902
+903
+904
+907
+908
+909
+910
+930
+931
+994
+1008
+1024
+7462
+7467
+7517
+7522
+7526
+7531
+7615
+7618
+7936
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8133
+8134
+8148
+8150
+8156
+8157
+8176
+8178
+8181
+8182
+8191
+8486
+8487
+43877
+43878
+65856
+65933
+65952
+65953
+119296
+119366
+END
diff --git a/lib/5.24.1/unicore/lib/Scx/Gujr.pl b/lib/5.24.1/unicore/lib/Scx/Gujr.pl
new file mode 100644
index 00000000..07e613f3
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Scx/Gujr.pl
@@ -0,0 +1,48 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V34
+2385
+2387
+2404
+2406
+2689
+2692
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2788
+2790
+2802
+2809
+2810
+43056
+43066
+END
diff --git a/lib/5.24.1/unicore/lib/Scx/Guru.pl b/lib/5.24.1/unicore/lib/Scx/Guru.pl
new file mode 100644
index 00000000..acb664e6
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Scx/Guru.pl
@@ -0,0 +1,52 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V38
+2385
+2387
+2404
+2406
+2561
+2564
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2649
+2653
+2654
+2655
+2662
+2678
+43056
+43066
+END
diff --git a/lib/5.24.1/unicore/lib/Scx/Han.pl b/lib/5.24.1/unicore/lib/Scx/Han.pl
new file mode 100644
index 00000000..e0b3ab43
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Scx/Han.pl
@@ -0,0 +1,74 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V60
+11904
+11930
+11931
+12020
+12032
+12246
+12289
+12292
+12293
+12306
+12307
+12320
+12321
+12334
+12336
+12337
+12343
+12352
+12539
+12540
+12688
+12704
+12736
+12772
+12832
+12868
+12928
+12977
+12992
+13004
+13144
+13169
+13179
+13184
+13280
+13311
+13312
+19894
+19968
+40918
+63744
+64110
+64112
+64218
+65093
+65095
+65377
+65382
+119648
+119666
+131072
+173783
+173824
+177973
+177984
+178206
+178208
+183970
+194560
+195102
+END
diff --git a/lib/5.24.1/unicore/lib/Scx/Hang.pl b/lib/5.24.1/unicore/lib/Scx/Hang.pl
new file mode 100644
index 00000000..04cbeb40
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Scx/Hang.pl
@@ -0,0 +1,72 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V58
+4352
+4608
+12289
+12292
+12296
+12306
+12307
+12320
+12334
+12337
+12343
+12344
+12350
+12352
+12539
+12540
+12593
+12687
+12736
+12772
+12800
+12831
+12832
+12868
+12896
+12927
+12928
+12977
+12992
+13004
+13144
+13169
+13179
+13184
+13280
+13311
+43360
+43389
+44032
+55204
+55216
+55239
+55243
+55292
+65093
+65095
+65377
+65382
+65440
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+END
diff --git a/lib/5.24.1/unicore/lib/Scx/Hira.pl b/lib/5.24.1/unicore/lib/Scx/Hira.pl
new file mode 100644
index 00000000..f2b1bc7e
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Scx/Hira.pl
@@ -0,0 +1,62 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V48
+12289
+12292
+12294
+12295
+12296
+12306
+12307
+12320
+12336
+12342
+12343
+12344
+12348
+12352
+12353
+12439
+12441
+12449
+12539
+12541
+12688
+12704
+12736
+12772
+12832
+12868
+12928
+12977
+12992
+13004
+13144
+13169
+13179
+13184
+13280
+13311
+65093
+65095
+65377
+65382
+65392
+65393
+65438
+65440
+110593
+110594
+127488
+127489
+END
diff --git a/lib/5.24.1/unicore/lib/Scx/Kana.pl b/lib/5.24.1/unicore/lib/Scx/Kana.pl
new file mode 100644
index 00000000..63781ffc
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Scx/Kana.pl
@@ -0,0 +1,58 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V44
+12289
+12292
+12294
+12295
+12296
+12306
+12307
+12320
+12336
+12342
+12343
+12344
+12348
+12352
+12441
+12445
+12448
+12544
+12688
+12704
+12736
+12772
+12784
+12800
+12832
+12868
+12928
+12977
+12992
+13004
+13008
+13055
+13056
+13169
+13179
+13184
+13280
+13311
+65093
+65095
+65377
+65440
+110592
+110593
+END
diff --git a/lib/5.24.1/unicore/lib/Scx/Knda.pl b/lib/5.24.1/unicore/lib/Scx/Knda.pl
new file mode 100644
index 00000000..74e03d7e
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Scx/Knda.pl
@@ -0,0 +1,50 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V36
+2385
+2387
+2404
+2406
+3201
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3260
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3300
+3302
+3312
+3313
+3315
+7386
+7387
+7413
+7414
+END
diff --git a/lib/5.24.1/unicore/lib/Scx/Latn.pl b/lib/5.24.1/unicore/lib/Scx/Latn.pl
new file mode 100644
index 00000000..2804dee4
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Scx/Latn.pl
@@ -0,0 +1,86 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V72
+65
+91
+97
+123
+170
+171
+186
+187
+192
+215
+216
+247
+248
+697
+736
+741
+867
+880
+1157
+1159
+2385
+2387
+7424
+7462
+7468
+7517
+7522
+7526
+7531
+7544
+7545
+7615
+7680
+7936
+8305
+8306
+8319
+8320
+8336
+8349
+8432
+8433
+8490
+8492
+8498
+8499
+8526
+8527
+8544
+8585
+11360
+11392
+42786
+42888
+42891
+42926
+42928
+42936
+42999
+43008
+43310
+43311
+43824
+43867
+43868
+43877
+64256
+64263
+65313
+65339
+65345
+65371
+END
diff --git a/lib/5.24.1/unicore/lib/Scx/Limb.pl b/lib/5.24.1/unicore/lib/Scx/Limb.pl
new file mode 100644
index 00000000..85cb1876
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Scx/Limb.pl
@@ -0,0 +1,26 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V12
+2405
+2406
+6400
+6431
+6432
+6444
+6448
+6460
+6464
+6465
+6468
+6480
+END
diff --git a/lib/5.24.1/unicore/lib/Scx/Linb.pl b/lib/5.24.1/unicore/lib/Scx/Linb.pl
new file mode 100644
index 00000000..abd16a2c
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Scx/Linb.pl
@@ -0,0 +1,34 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V20
+65536
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65792
+65795
+65799
+65844
+65847
+65856
+END
diff --git a/lib/5.24.1/unicore/lib/Scx/Mlym.pl b/lib/5.24.1/unicore/lib/Scx/Mlym.pl
new file mode 100644
index 00000000..a4964563
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Scx/Mlym.pl
@@ -0,0 +1,42 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V28
+2385
+2387
+2404
+2406
+3329
+3332
+3333
+3341
+3342
+3345
+3346
+3387
+3389
+3397
+3398
+3401
+3402
+3407
+3415
+3416
+3423
+3428
+3430
+3446
+3449
+3456
+7386
+7387
+END
diff --git a/lib/5.24.1/unicore/lib/Scx/Mong.pl b/lib/5.24.1/unicore/lib/Scx/Mong.pl
new file mode 100644
index 00000000..c55c61a8
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Scx/Mong.pl
@@ -0,0 +1,22 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+6144
+6159
+6160
+6170
+6176
+6264
+6272
+6315
+END
diff --git a/lib/5.24.1/unicore/lib/Scx/Mult.pl b/lib/5.24.1/unicore/lib/Scx/Mult.pl
new file mode 100644
index 00000000..e33c7047
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Scx/Mult.pl
@@ -0,0 +1,26 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V12
+2662
+2672
+70272
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70314
+END
diff --git a/lib/5.24.1/unicore/lib/Scx/Mymr.pl b/lib/5.24.1/unicore/lib/Scx/Mymr.pl
new file mode 100644
index 00000000..82639991
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Scx/Mymr.pl
@@ -0,0 +1,22 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+4096
+4256
+43310
+43311
+43488
+43519
+43616
+43648
+END
diff --git a/lib/5.24.1/unicore/lib/Scx/Orya.pl b/lib/5.24.1/unicore/lib/Scx/Orya.pl
new file mode 100644
index 00000000..49c0e35d
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Scx/Orya.pl
@@ -0,0 +1,46 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V32
+2385
+2387
+2404
+2406
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2876
+2885
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2916
+2918
+2936
+END
diff --git a/lib/5.24.1/unicore/lib/Scx/Phlp.pl b/lib/5.24.1/unicore/lib/Scx/Phlp.pl
new file mode 100644
index 00000000..992d0066
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Scx/Phlp.pl
@@ -0,0 +1,22 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+1600
+1601
+68480
+68498
+68505
+68509
+68521
+68528
+END
diff --git a/lib/5.24.1/unicore/lib/Scx/Shrd.pl b/lib/5.24.1/unicore/lib/Scx/Shrd.pl
new file mode 100644
index 00000000..14721f22
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Scx/Shrd.pl
@@ -0,0 +1,28 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V14
+2385
+2386
+7383
+7384
+7385
+7386
+7388
+7390
+7392
+7393
+70016
+70094
+70096
+70112
+END
diff --git a/lib/5.24.1/unicore/lib/Scx/Sind.pl b/lib/5.24.1/unicore/lib/Scx/Sind.pl
new file mode 100644
index 00000000..587980c0
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Scx/Sind.pl
@@ -0,0 +1,22 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+2404
+2406
+43056
+43066
+70320
+70379
+70384
+70394
+END
diff --git a/lib/5.24.1/unicore/lib/Scx/Sinh.pl b/lib/5.24.1/unicore/lib/Scx/Sinh.pl
new file mode 100644
index 00000000..798a6461
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Scx/Sinh.pl
@@ -0,0 +1,42 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V28
+2404
+2406
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3558
+3568
+3570
+3573
+70113
+70133
+END
diff --git a/lib/5.24.1/unicore/lib/Scx/Syrc.pl b/lib/5.24.1/unicore/lib/Scx/Syrc.pl
new file mode 100644
index 00000000..f84e8bdd
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Scx/Syrc.pl
@@ -0,0 +1,32 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V18
+1548
+1549
+1563
+1564
+1567
+1568
+1600
+1601
+1611
+1622
+1648
+1649
+1792
+1806
+1807
+1867
+1869
+1872
+END
diff --git a/lib/5.24.1/unicore/lib/Scx/Tagb.pl b/lib/5.24.1/unicore/lib/Scx/Tagb.pl
new file mode 100644
index 00000000..a2b282a7
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Scx/Tagb.pl
@@ -0,0 +1,22 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+5941
+5943
+5984
+5997
+5998
+6001
+6002
+6004
+END
diff --git a/lib/5.24.1/unicore/lib/Scx/Takr.pl b/lib/5.24.1/unicore/lib/Scx/Takr.pl
new file mode 100644
index 00000000..d36a2fa8
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Scx/Takr.pl
@@ -0,0 +1,22 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+2404
+2406
+43056
+43066
+71296
+71352
+71360
+71370
+END
diff --git a/lib/5.24.1/unicore/lib/Scx/Taml.pl b/lib/5.24.1/unicore/lib/Scx/Taml.pl
new file mode 100644
index 00000000..fd1f8498
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Scx/Taml.pl
@@ -0,0 +1,54 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V40
+2385
+2387
+2404
+2406
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3024
+3025
+3031
+3032
+3046
+3067
+7386
+7387
+43251
+43252
+END
diff --git a/lib/5.24.1/unicore/lib/Scx/Telu.pl b/lib/5.24.1/unicore/lib/Scx/Telu.pl
new file mode 100644
index 00000000..c96bf336
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Scx/Telu.pl
@@ -0,0 +1,46 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V32
+2385
+2387
+2404
+2406
+3072
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3130
+3133
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3160
+3163
+3168
+3172
+3174
+3184
+3192
+3200
+7386
+7387
+END
diff --git a/lib/5.24.1/unicore/lib/Scx/Thaa.pl b/lib/5.24.1/unicore/lib/Scx/Thaa.pl
new file mode 100644
index 00000000..457e5258
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Scx/Thaa.pl
@@ -0,0 +1,28 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V14
+1548
+1549
+1563
+1564
+1567
+1568
+1632
+1642
+1920
+1970
+65010
+65011
+65021
+65022
+END
diff --git a/lib/5.24.1/unicore/lib/Scx/Tirh.pl b/lib/5.24.1/unicore/lib/Scx/Tirh.pl
new file mode 100644
index 00000000..b6d1f573
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Scx/Tirh.pl
@@ -0,0 +1,22 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V8
+2404
+2406
+43056
+43066
+70784
+70856
+70864
+70874
+END
diff --git a/lib/5.24.1/unicore/lib/Scx/Yi.pl b/lib/5.24.1/unicore/lib/Scx/Yi.pl
new file mode 100644
index 00000000..34f7b9e3
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Scx/Yi.pl
@@ -0,0 +1,28 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V14
+12289
+12291
+12296
+12306
+12308
+12316
+12539
+12540
+40960
+42125
+42128
+42183
+65377
+65382
+END
diff --git a/lib/5.24.1/unicore/lib/Scx/Zinh.pl b/lib/5.24.1/unicore/lib/Scx/Zinh.pl
new file mode 100644
index 00000000..0165d853
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Scx/Zinh.pl
@@ -0,0 +1,46 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V32
+768
+834
+835
+837
+838
+867
+6832
+6847
+7618
+7670
+7676
+7680
+8204
+8206
+8400
+8432
+65024
+65040
+65056
+65070
+66045
+66046
+119143
+119146
+119163
+119171
+119173
+119180
+119210
+119214
+917760
+918000
+END
diff --git a/lib/5.24.1/unicore/lib/Scx/Zyyy.pl b/lib/5.24.1/unicore/lib/Scx/Zyyy.pl
new file mode 100644
index 00000000..95911dcc
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Scx/Zyyy.pl
@@ -0,0 +1,288 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V274
+0
+65
+91
+97
+123
+170
+171
+186
+187
+192
+215
+216
+247
+248
+697
+736
+741
+746
+748
+768
+884
+885
+894
+895
+901
+902
+903
+904
+1541
+1542
+1564
+1565
+1757
+1758
+3647
+3648
+4053
+4057
+4347
+4348
+5867
+5870
+8192
+8204
+8206
+8293
+8294
+8305
+8308
+8319
+8320
+8335
+8352
+8383
+8448
+8486
+8487
+8490
+8492
+8498
+8499
+8526
+8527
+8544
+8585
+8588
+8592
+9211
+9216
+9255
+9280
+9291
+9312
+10240
+10496
+11124
+11126
+11158
+11160
+11194
+11197
+11209
+11210
+11218
+11244
+11248
+11776
+11843
+12272
+12284
+12288
+12289
+12292
+12293
+12306
+12307
+12320
+12321
+12342
+12343
+12868
+12896
+12927
+12928
+12977
+12992
+13004
+13008
+13169
+13179
+13184
+13280
+13311
+13312
+19904
+19968
+42752
+42786
+42888
+42891
+43867
+43868
+64830
+64832
+65040
+65050
+65072
+65093
+65095
+65107
+65108
+65127
+65128
+65132
+65279
+65280
+65281
+65313
+65339
+65345
+65371
+65377
+65504
+65511
+65512
+65519
+65529
+65534
+65936
+65948
+66000
+66045
+118784
+119030
+119040
+119079
+119081
+119143
+119146
+119163
+119171
+119173
+119180
+119210
+119214
+119273
+119552
+119639
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120780
+120782
+120832
+126976
+127020
+127024
+127124
+127136
+127151
+127153
+127168
+127169
+127184
+127185
+127222
+127232
+127245
+127248
+127279
+127280
+127340
+127344
+127387
+127462
+127488
+127489
+127491
+127504
+127547
+127552
+127561
+127568
+127570
+127744
+128378
+128379
+128420
+128421
+128721
+128736
+128749
+128752
+128756
+128768
+128884
+128896
+128981
+129024
+129036
+129040
+129096
+129104
+129114
+129120
+129160
+129168
+129198
+129296
+129305
+129408
+129413
+129472
+129473
+917505
+917506
+917536
+917632
+END
diff --git a/lib/5.24.1/unicore/lib/Term/Y.pl b/lib/5.24.1/unicore/lib/Term/Y.pl
new file mode 100644
index 00000000..a05ce121
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Term/Y.pl
@@ -0,0 +1,194 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V180
+33
+34
+44
+45
+46
+47
+58
+60
+63
+64
+894
+895
+903
+904
+1417
+1418
+1475
+1476
+1548
+1549
+1563
+1564
+1567
+1568
+1748
+1749
+1792
+1803
+1804
+1805
+2040
+2042
+2096
+2111
+2142
+2143
+2404
+2406
+3674
+3676
+3848
+3849
+3853
+3859
+4170
+4172
+4961
+4969
+5741
+5743
+5867
+5870
+5941
+5943
+6100
+6103
+6106
+6107
+6146
+6150
+6152
+6154
+6468
+6470
+6824
+6828
+7002
+7004
+7005
+7008
+7227
+7232
+7294
+7296
+8252
+8254
+8263
+8266
+11822
+11823
+11836
+11837
+11841
+11842
+12289
+12291
+42238
+42240
+42509
+42512
+42739
+42744
+43126
+43128
+43214
+43216
+43311
+43312
+43463
+43466
+43613
+43616
+43743
+43744
+43760
+43762
+44011
+44012
+65104
+65107
+65108
+65112
+65281
+65282
+65292
+65293
+65294
+65295
+65306
+65308
+65311
+65312
+65377
+65378
+65380
+65381
+66463
+66464
+66512
+66513
+67671
+67672
+67871
+67872
+68182
+68184
+68336
+68342
+68410
+68416
+68505
+68509
+69703
+69710
+69822
+69826
+69953
+69956
+70085
+70087
+70093
+70094
+70110
+70112
+70200
+70205
+70313
+70314
+71106
+71110
+71113
+71128
+71233
+71235
+71484
+71487
+74864
+74869
+92782
+92784
+92917
+92918
+92983
+92986
+92996
+92997
+113823
+113824
+121479
+121483
+END
diff --git a/lib/5.24.1/unicore/lib/UIdeo/Y.pl b/lib/5.24.1/unicore/lib/UIdeo/Y.pl
new file mode 100644
index 00000000..d709f5e6
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/UIdeo/Y.pl
@@ -0,0 +1,40 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V26
+13312
+19894
+19968
+40918
+64014
+64016
+64017
+64018
+64019
+64021
+64031
+64032
+64033
+64034
+64035
+64037
+64039
+64042
+131072
+173783
+173824
+177973
+177984
+178206
+178208
+183970
+END
diff --git a/lib/5.24.1/unicore/lib/Upper/Y.pl b/lib/5.24.1/unicore/lib/Upper/Y.pl
new file mode 100644
index 00000000..853e6b11
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/Upper/Y.pl
@@ -0,0 +1,1274 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1260
+65
+91
+192
+215
+216
+223
+256
+257
+258
+259
+260
+261
+262
+263
+264
+265
+266
+267
+268
+269
+270
+271
+272
+273
+274
+275
+276
+277
+278
+279
+280
+281
+282
+283
+284
+285
+286
+287
+288
+289
+290
+291
+292
+293
+294
+295
+296
+297
+298
+299
+300
+301
+302
+303
+304
+305
+306
+307
+308
+309
+310
+311
+313
+314
+315
+316
+317
+318
+319
+320
+321
+322
+323
+324
+325
+326
+327
+328
+330
+331
+332
+333
+334
+335
+336
+337
+338
+339
+340
+341
+342
+343
+344
+345
+346
+347
+348
+349
+350
+351
+352
+353
+354
+355
+356
+357
+358
+359
+360
+361
+362
+363
+364
+365
+366
+367
+368
+369
+370
+371
+372
+373
+374
+375
+376
+378
+379
+380
+381
+382
+385
+387
+388
+389
+390
+392
+393
+396
+398
+402
+403
+405
+406
+409
+412
+414
+415
+417
+418
+419
+420
+421
+422
+424
+425
+426
+428
+429
+430
+432
+433
+436
+437
+438
+439
+441
+444
+445
+452
+453
+455
+456
+458
+459
+461
+462
+463
+464
+465
+466
+467
+468
+469
+470
+471
+472
+473
+474
+475
+476
+478
+479
+480
+481
+482
+483
+484
+485
+486
+487
+488
+489
+490
+491
+492
+493
+494
+495
+497
+498
+500
+501
+502
+505
+506
+507
+508
+509
+510
+511
+512
+513
+514
+515
+516
+517
+518
+519
+520
+521
+522
+523
+524
+525
+526
+527
+528
+529
+530
+531
+532
+533
+534
+535
+536
+537
+538
+539
+540
+541
+542
+543
+544
+545
+546
+547
+548
+549
+550
+551
+552
+553
+554
+555
+556
+557
+558
+559
+560
+561
+562
+563
+570
+572
+573
+575
+577
+578
+579
+583
+584
+585
+586
+587
+588
+589
+590
+591
+880
+881
+882
+883
+886
+887
+895
+896
+902
+903
+904
+907
+908
+909
+910
+912
+913
+930
+931
+940
+975
+976
+978
+981
+984
+985
+986
+987
+988
+989
+990
+991
+992
+993
+994
+995
+996
+997
+998
+999
+1000
+1001
+1002
+1003
+1004
+1005
+1006
+1007
+1012
+1013
+1015
+1016
+1017
+1019
+1021
+1072
+1120
+1121
+1122
+1123
+1124
+1125
+1126
+1127
+1128
+1129
+1130
+1131
+1132
+1133
+1134
+1135
+1136
+1137
+1138
+1139
+1140
+1141
+1142
+1143
+1144
+1145
+1146
+1147
+1148
+1149
+1150
+1151
+1152
+1153
+1162
+1163
+1164
+1165
+1166
+1167
+1168
+1169
+1170
+1171
+1172
+1173
+1174
+1175
+1176
+1177
+1178
+1179
+1180
+1181
+1182
+1183
+1184
+1185
+1186
+1187
+1188
+1189
+1190
+1191
+1192
+1193
+1194
+1195
+1196
+1197
+1198
+1199
+1200
+1201
+1202
+1203
+1204
+1205
+1206
+1207
+1208
+1209
+1210
+1211
+1212
+1213
+1214
+1215
+1216
+1218
+1219
+1220
+1221
+1222
+1223
+1224
+1225
+1226
+1227
+1228
+1229
+1230
+1232
+1233
+1234
+1235
+1236
+1237
+1238
+1239
+1240
+1241
+1242
+1243
+1244
+1245
+1246
+1247
+1248
+1249
+1250
+1251
+1252
+1253
+1254
+1255
+1256
+1257
+1258
+1259
+1260
+1261
+1262
+1263
+1264
+1265
+1266
+1267
+1268
+1269
+1270
+1271
+1272
+1273
+1274
+1275
+1276
+1277
+1278
+1279
+1280
+1281
+1282
+1283
+1284
+1285
+1286
+1287
+1288
+1289
+1290
+1291
+1292
+1293
+1294
+1295
+1296
+1297
+1298
+1299
+1300
+1301
+1302
+1303
+1304
+1305
+1306
+1307
+1308
+1309
+1310
+1311
+1312
+1313
+1314
+1315
+1316
+1317
+1318
+1319
+1320
+1321
+1322
+1323
+1324
+1325
+1326
+1327
+1329
+1367
+4256
+4294
+4295
+4296
+4301
+4302
+5024
+5110
+7680
+7681
+7682
+7683
+7684
+7685
+7686
+7687
+7688
+7689
+7690
+7691
+7692
+7693
+7694
+7695
+7696
+7697
+7698
+7699
+7700
+7701
+7702
+7703
+7704
+7705
+7706
+7707
+7708
+7709
+7710
+7711
+7712
+7713
+7714
+7715
+7716
+7717
+7718
+7719
+7720
+7721
+7722
+7723
+7724
+7725
+7726
+7727
+7728
+7729
+7730
+7731
+7732
+7733
+7734
+7735
+7736
+7737
+7738
+7739
+7740
+7741
+7742
+7743
+7744
+7745
+7746
+7747
+7748
+7749
+7750
+7751
+7752
+7753
+7754
+7755
+7756
+7757
+7758
+7759
+7760
+7761
+7762
+7763
+7764
+7765
+7766
+7767
+7768
+7769
+7770
+7771
+7772
+7773
+7774
+7775
+7776
+7777
+7778
+7779
+7780
+7781
+7782
+7783
+7784
+7785
+7786
+7787
+7788
+7789
+7790
+7791
+7792
+7793
+7794
+7795
+7796
+7797
+7798
+7799
+7800
+7801
+7802
+7803
+7804
+7805
+7806
+7807
+7808
+7809
+7810
+7811
+7812
+7813
+7814
+7815
+7816
+7817
+7818
+7819
+7820
+7821
+7822
+7823
+7824
+7825
+7826
+7827
+7828
+7829
+7838
+7839
+7840
+7841
+7842
+7843
+7844
+7845
+7846
+7847
+7848
+7849
+7850
+7851
+7852
+7853
+7854
+7855
+7856
+7857
+7858
+7859
+7860
+7861
+7862
+7863
+7864
+7865
+7866
+7867
+7868
+7869
+7870
+7871
+7872
+7873
+7874
+7875
+7876
+7877
+7878
+7879
+7880
+7881
+7882
+7883
+7884
+7885
+7886
+7887
+7888
+7889
+7890
+7891
+7892
+7893
+7894
+7895
+7896
+7897
+7898
+7899
+7900
+7901
+7902
+7903
+7904
+7905
+7906
+7907
+7908
+7909
+7910
+7911
+7912
+7913
+7914
+7915
+7916
+7917
+7918
+7919
+7920
+7921
+7922
+7923
+7924
+7925
+7926
+7927
+7928
+7929
+7930
+7931
+7932
+7933
+7934
+7935
+7944
+7952
+7960
+7966
+7976
+7984
+7992
+8000
+8008
+8014
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8032
+8040
+8048
+8120
+8124
+8136
+8140
+8152
+8156
+8168
+8173
+8184
+8188
+8450
+8451
+8455
+8456
+8459
+8462
+8464
+8467
+8469
+8470
+8473
+8478
+8484
+8485
+8486
+8487
+8488
+8489
+8490
+8494
+8496
+8500
+8510
+8512
+8517
+8518
+8544
+8560
+8579
+8580
+9398
+9424
+11264
+11311
+11360
+11361
+11362
+11365
+11367
+11368
+11369
+11370
+11371
+11372
+11373
+11377
+11378
+11379
+11381
+11382
+11390
+11393
+11394
+11395
+11396
+11397
+11398
+11399
+11400
+11401
+11402
+11403
+11404
+11405
+11406
+11407
+11408
+11409
+11410
+11411
+11412
+11413
+11414
+11415
+11416
+11417
+11418
+11419
+11420
+11421
+11422
+11423
+11424
+11425
+11426
+11427
+11428
+11429
+11430
+11431
+11432
+11433
+11434
+11435
+11436
+11437
+11438
+11439
+11440
+11441
+11442
+11443
+11444
+11445
+11446
+11447
+11448
+11449
+11450
+11451
+11452
+11453
+11454
+11455
+11456
+11457
+11458
+11459
+11460
+11461
+11462
+11463
+11464
+11465
+11466
+11467
+11468
+11469
+11470
+11471
+11472
+11473
+11474
+11475
+11476
+11477
+11478
+11479
+11480
+11481
+11482
+11483
+11484
+11485
+11486
+11487
+11488
+11489
+11490
+11491
+11499
+11500
+11501
+11502
+11506
+11507
+42560
+42561
+42562
+42563
+42564
+42565
+42566
+42567
+42568
+42569
+42570
+42571
+42572
+42573
+42574
+42575
+42576
+42577
+42578
+42579
+42580
+42581
+42582
+42583
+42584
+42585
+42586
+42587
+42588
+42589
+42590
+42591
+42592
+42593
+42594
+42595
+42596
+42597
+42598
+42599
+42600
+42601
+42602
+42603
+42604
+42605
+42624
+42625
+42626
+42627
+42628
+42629
+42630
+42631
+42632
+42633
+42634
+42635
+42636
+42637
+42638
+42639
+42640
+42641
+42642
+42643
+42644
+42645
+42646
+42647
+42648
+42649
+42650
+42651
+42786
+42787
+42788
+42789
+42790
+42791
+42792
+42793
+42794
+42795
+42796
+42797
+42798
+42799
+42802
+42803
+42804
+42805
+42806
+42807
+42808
+42809
+42810
+42811
+42812
+42813
+42814
+42815
+42816
+42817
+42818
+42819
+42820
+42821
+42822
+42823
+42824
+42825
+42826
+42827
+42828
+42829
+42830
+42831
+42832
+42833
+42834
+42835
+42836
+42837
+42838
+42839
+42840
+42841
+42842
+42843
+42844
+42845
+42846
+42847
+42848
+42849
+42850
+42851
+42852
+42853
+42854
+42855
+42856
+42857
+42858
+42859
+42860
+42861
+42862
+42863
+42873
+42874
+42875
+42876
+42877
+42879
+42880
+42881
+42882
+42883
+42884
+42885
+42886
+42887
+42891
+42892
+42893
+42894
+42896
+42897
+42898
+42899
+42902
+42903
+42904
+42905
+42906
+42907
+42908
+42909
+42910
+42911
+42912
+42913
+42914
+42915
+42916
+42917
+42918
+42919
+42920
+42921
+42922
+42926
+42928
+42933
+42934
+42935
+65313
+65339
+66560
+66600
+68736
+68787
+71840
+71872
+119808
+119834
+119860
+119886
+119912
+119938
+119964
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119990
+120016
+120042
+120068
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120120
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120172
+120198
+120224
+120250
+120276
+120302
+120328
+120354
+120380
+120406
+120432
+120458
+120488
+120513
+120546
+120571
+120604
+120629
+120662
+120687
+120720
+120745
+120778
+120779
+127280
+127306
+127312
+127338
+127344
+127370
+END
diff --git a/lib/5.24.1/unicore/lib/WB/EX.pl b/lib/5.24.1/unicore/lib/WB/EX.pl
new file mode 100644
index 00000000..fc985c17
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/WB/EX.pl
@@ -0,0 +1,26 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V12
+95
+96
+8255
+8257
+8276
+8277
+65075
+65077
+65101
+65104
+65343
+65344
+END
diff --git a/lib/5.24.1/unicore/lib/WB/FO.pl b/lib/5.24.1/unicore/lib/WB/FO.pl
new file mode 100644
index 00000000..e3c37768
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/WB/FO.pl
@@ -0,0 +1,48 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V34
+173
+174
+1536
+1542
+1564
+1565
+1757
+1758
+1807
+1808
+6158
+6159
+8206
+8208
+8234
+8239
+8288
+8293
+8294
+8304
+65279
+65280
+65529
+65532
+69821
+69822
+113824
+113828
+119155
+119163
+917505
+917506
+917536
+917632
+END
diff --git a/lib/5.24.1/unicore/lib/WB/HL.pl b/lib/5.24.1/unicore/lib/WB/HL.pl
new file mode 100644
index 00000000..41cef9f4
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/WB/HL.pl
@@ -0,0 +1,34 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V20
+1488
+1515
+1520
+1523
+64285
+64286
+64287
+64297
+64298
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64336
+END
diff --git a/lib/5.24.1/unicore/lib/WB/KA.pl b/lib/5.24.1/unicore/lib/WB/KA.pl
new file mode 100644
index 00000000..111f5783
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/WB/KA.pl
@@ -0,0 +1,32 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V18
+12337
+12342
+12443
+12445
+12448
+12539
+12540
+12544
+12784
+12800
+13008
+13055
+13056
+13144
+65382
+65438
+110592
+110593
+END
diff --git a/lib/5.24.1/unicore/lib/WB/LE.pl b/lib/5.24.1/unicore/lib/WB/LE.pl
new file mode 100644
index 00000000..19161475
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/WB/LE.pl
@@ -0,0 +1,984 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V970
+65
+91
+97
+123
+170
+171
+181
+182
+186
+187
+192
+215
+216
+247
+248
+706
+710
+722
+736
+741
+748
+749
+750
+751
+880
+885
+886
+888
+890
+894
+895
+896
+902
+903
+904
+907
+908
+909
+910
+930
+931
+1014
+1015
+1154
+1162
+1328
+1329
+1367
+1369
+1370
+1377
+1416
+1523
+1524
+1568
+1611
+1646
+1648
+1649
+1748
+1749
+1750
+1765
+1767
+1774
+1776
+1786
+1789
+1791
+1792
+1808
+1809
+1810
+1840
+1869
+1958
+1969
+1970
+1994
+2027
+2036
+2038
+2042
+2043
+2048
+2070
+2074
+2075
+2084
+2085
+2088
+2089
+2112
+2137
+2208
+2229
+2308
+2362
+2365
+2366
+2384
+2385
+2392
+2402
+2417
+2433
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2493
+2494
+2510
+2511
+2524
+2526
+2527
+2530
+2544
+2546
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2649
+2653
+2654
+2655
+2674
+2677
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2749
+2750
+2768
+2769
+2784
+2786
+2809
+2810
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2877
+2878
+2908
+2910
+2911
+2914
+2929
+2930
+2947
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3024
+3025
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3130
+3133
+3134
+3160
+3163
+3168
+3170
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3261
+3262
+3294
+3295
+3296
+3298
+3313
+3315
+3333
+3341
+3342
+3345
+3346
+3387
+3389
+3390
+3406
+3407
+3423
+3426
+3450
+3456
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3840
+3841
+3904
+3912
+3913
+3949
+3976
+3981
+4256
+4294
+4295
+4296
+4301
+4302
+4304
+4347
+4348
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4992
+5008
+5024
+5110
+5112
+5118
+5121
+5741
+5743
+5760
+5761
+5787
+5792
+5867
+5870
+5881
+5888
+5901
+5902
+5906
+5920
+5938
+5952
+5970
+5984
+5997
+5998
+6001
+6176
+6264
+6272
+6313
+6314
+6315
+6320
+6390
+6400
+6431
+6656
+6679
+6917
+6964
+6981
+6988
+7043
+7073
+7086
+7088
+7098
+7142
+7168
+7204
+7245
+7248
+7258
+7294
+7401
+7405
+7406
+7410
+7413
+7415
+7424
+7616
+7680
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8125
+8126
+8127
+8130
+8133
+8134
+8141
+8144
+8148
+8150
+8156
+8160
+8173
+8178
+8181
+8182
+8189
+8305
+8306
+8319
+8320
+8336
+8349
+8450
+8451
+8455
+8456
+8458
+8468
+8469
+8470
+8473
+8478
+8484
+8485
+8486
+8487
+8488
+8489
+8490
+8494
+8495
+8506
+8508
+8512
+8517
+8522
+8526
+8527
+8544
+8585
+9398
+9450
+11264
+11311
+11312
+11359
+11360
+11493
+11499
+11503
+11506
+11508
+11520
+11558
+11559
+11560
+11565
+11566
+11568
+11624
+11631
+11632
+11648
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11823
+11824
+12293
+12294
+12347
+12349
+12549
+12590
+12593
+12687
+12704
+12731
+40960
+42125
+42192
+42238
+42240
+42509
+42512
+42528
+42538
+42540
+42560
+42607
+42623
+42654
+42656
+42736
+42775
+42784
+42786
+42889
+42891
+42926
+42928
+42936
+42999
+43010
+43011
+43014
+43015
+43019
+43020
+43043
+43072
+43124
+43138
+43188
+43250
+43256
+43259
+43260
+43261
+43262
+43274
+43302
+43312
+43335
+43360
+43389
+43396
+43443
+43471
+43472
+43520
+43561
+43584
+43587
+43588
+43596
+43744
+43755
+43762
+43765
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43824
+43867
+43868
+43878
+43888
+44003
+44032
+55204
+55216
+55239
+55243
+55292
+64256
+64263
+64275
+64280
+64336
+64434
+64467
+64830
+64848
+64912
+64914
+64968
+65008
+65020
+65136
+65141
+65142
+65277
+65313
+65339
+65345
+65371
+65440
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65536
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65856
+65909
+66176
+66205
+66208
+66257
+66304
+66336
+66352
+66379
+66384
+66422
+66432
+66462
+66464
+66500
+66504
+66512
+66513
+66518
+66560
+66718
+66816
+66856
+66864
+66916
+67072
+67383
+67392
+67414
+67424
+67432
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67680
+67703
+67712
+67743
+67808
+67827
+67828
+67830
+67840
+67862
+67872
+67898
+67968
+68024
+68030
+68032
+68096
+68097
+68112
+68116
+68117
+68120
+68121
+68148
+68192
+68221
+68224
+68253
+68288
+68296
+68297
+68325
+68352
+68406
+68416
+68438
+68448
+68467
+68480
+68498
+68608
+68681
+68736
+68787
+68800
+68851
+69635
+69688
+69763
+69808
+69840
+69865
+69891
+69927
+69968
+70003
+70006
+70007
+70019
+70067
+70081
+70085
+70106
+70107
+70108
+70109
+70144
+70162
+70163
+70188
+70272
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70313
+70320
+70367
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70461
+70462
+70480
+70481
+70493
+70498
+70784
+70832
+70852
+70854
+70855
+70856
+71040
+71087
+71128
+71132
+71168
+71216
+71236
+71237
+71296
+71339
+71840
+71904
+71935
+71936
+72384
+72441
+73728
+74650
+74752
+74863
+74880
+75076
+77824
+78895
+82944
+83527
+92160
+92729
+92736
+92767
+92880
+92910
+92928
+92976
+92992
+92996
+93027
+93048
+93053
+93072
+93952
+94021
+94032
+94033
+94099
+94112
+113664
+113771
+113776
+113789
+113792
+113801
+113808
+113818
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120513
+120514
+120539
+120540
+120571
+120572
+120597
+120598
+120629
+120630
+120655
+120656
+120687
+120688
+120713
+120714
+120745
+120746
+120771
+120772
+120780
+124928
+125125
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+127280
+127306
+127312
+127338
+127344
+127370
+END
diff --git a/lib/5.24.1/unicore/lib/WB/MB.pl b/lib/5.24.1/unicore/lib/WB/MB.pl
new file mode 100644
index 00000000..0efe4ad4
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/WB/MB.pl
@@ -0,0 +1,26 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V12
+46
+47
+8216
+8218
+8228
+8229
+65106
+65107
+65287
+65288
+65294
+65295
+END
diff --git a/lib/5.24.1/unicore/lib/WB/ML.pl b/lib/5.24.1/unicore/lib/WB/ML.pl
new file mode 100644
index 00000000..34b88f3a
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/WB/ML.pl
@@ -0,0 +1,32 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V18
+58
+59
+183
+184
+727
+728
+903
+904
+1524
+1525
+8231
+8232
+65043
+65044
+65109
+65110
+65306
+65307
+END
diff --git a/lib/5.24.1/unicore/lib/WB/MN.pl b/lib/5.24.1/unicore/lib/WB/MN.pl
new file mode 100644
index 00000000..cf0b0790
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/WB/MN.pl
@@ -0,0 +1,42 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V28
+44
+45
+59
+60
+894
+895
+1417
+1418
+1548
+1550
+1644
+1645
+2040
+2041
+8260
+8261
+65040
+65041
+65044
+65045
+65104
+65105
+65108
+65109
+65292
+65293
+65307
+65308
+END
diff --git a/lib/5.24.1/unicore/lib/WB/NU.pl b/lib/5.24.1/unicore/lib/WB/NU.pl
new file mode 100644
index 00000000..85dc3e99
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/WB/NU.pl
@@ -0,0 +1,116 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V102
+48
+58
+1632
+1642
+1643
+1644
+1776
+1786
+1984
+1994
+2406
+2416
+2534
+2544
+2662
+2672
+2790
+2800
+2918
+2928
+3046
+3056
+3174
+3184
+3302
+3312
+3430
+3440
+3558
+3568
+3664
+3674
+3792
+3802
+3872
+3882
+4160
+4170
+4240
+4250
+6112
+6122
+6160
+6170
+6470
+6480
+6608
+6618
+6784
+6794
+6800
+6810
+6992
+7002
+7088
+7098
+7232
+7242
+7248
+7258
+42528
+42538
+43216
+43226
+43264
+43274
+43472
+43482
+43504
+43514
+43600
+43610
+44016
+44026
+66720
+66730
+69734
+69744
+69872
+69882
+69942
+69952
+70096
+70106
+70384
+70394
+70864
+70874
+71248
+71258
+71360
+71370
+71472
+71482
+71904
+71914
+92768
+92778
+93008
+93018
+120782
+120832
+END
diff --git a/lib/5.24.1/unicore/lib/WB/XX.pl b/lib/5.24.1/unicore/lib/WB/XX.pl
new file mode 100644
index 00000000..ef119d06
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/WB/XX.pl
@@ -0,0 +1,1355 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1341
+0
+10
+14
+34
+35
+39
+40
+44
+45
+46
+47
+48
+60
+65
+91
+95
+96
+97
+123
+133
+134
+170
+171
+173
+174
+181
+182
+183
+184
+186
+187
+192
+215
+216
+247
+248
+706
+710
+722
+727
+728
+736
+741
+748
+749
+750
+751
+768
+885
+886
+888
+890
+896
+902
+907
+908
+909
+910
+930
+931
+1014
+1015
+1154
+1155
+1328
+1329
+1367
+1369
+1370
+1377
+1416
+1417
+1418
+1425
+1470
+1471
+1472
+1473
+1475
+1476
+1478
+1479
+1480
+1488
+1515
+1520
+1525
+1536
+1542
+1548
+1550
+1552
+1563
+1564
+1565
+1568
+1642
+1643
+1645
+1646
+1748
+1749
+1758
+1759
+1769
+1770
+1789
+1791
+1792
+1807
+1867
+1869
+1970
+1984
+2038
+2040
+2041
+2042
+2043
+2048
+2094
+2112
+2140
+2208
+2229
+2275
+2404
+2406
+2416
+2417
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2501
+2503
+2505
+2507
+2511
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2546
+2561
+2564
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2649
+2653
+2654
+2655
+2662
+2678
+2689
+2692
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2788
+2790
+2800
+2809
+2810
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2876
+2885
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2916
+2918
+2928
+2929
+2930
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3024
+3025
+3031
+3032
+3046
+3056
+3072
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3130
+3133
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3160
+3163
+3168
+3172
+3174
+3184
+3201
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3260
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3300
+3302
+3312
+3313
+3315
+3329
+3332
+3333
+3341
+3342
+3345
+3346
+3387
+3389
+3397
+3398
+3401
+3402
+3407
+3415
+3416
+3423
+3428
+3430
+3440
+3450
+3456
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3558
+3568
+3570
+3572
+3633
+3634
+3636
+3643
+3655
+3663
+3664
+3674
+3761
+3762
+3764
+3770
+3771
+3773
+3784
+3790
+3792
+3802
+3840
+3841
+3864
+3866
+3872
+3882
+3893
+3894
+3895
+3896
+3897
+3898
+3902
+3912
+3913
+3949
+3953
+3973
+3974
+3992
+3993
+4029
+4038
+4039
+4139
+4159
+4160
+4170
+4182
+4186
+4190
+4193
+4194
+4197
+4199
+4206
+4209
+4213
+4226
+4238
+4239
+4254
+4256
+4294
+4295
+4296
+4301
+4302
+4304
+4347
+4348
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4957
+4960
+4992
+5008
+5024
+5110
+5112
+5118
+5121
+5741
+5743
+5760
+5761
+5787
+5792
+5867
+5870
+5881
+5888
+5901
+5902
+5909
+5920
+5941
+5952
+5972
+5984
+5997
+5998
+6001
+6002
+6004
+6068
+6100
+6109
+6110
+6112
+6122
+6155
+6159
+6160
+6170
+6176
+6264
+6272
+6315
+6320
+6390
+6400
+6431
+6432
+6444
+6448
+6460
+6470
+6480
+6608
+6618
+6656
+6684
+6741
+6751
+6752
+6781
+6783
+6794
+6800
+6810
+6832
+6847
+6912
+6988
+6992
+7002
+7019
+7028
+7040
+7156
+7168
+7224
+7232
+7242
+7245
+7294
+7376
+7379
+7380
+7415
+7416
+7418
+7424
+7670
+7676
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8125
+8126
+8127
+8130
+8133
+8134
+8141
+8144
+8148
+8150
+8156
+8160
+8173
+8178
+8181
+8182
+8189
+8204
+8208
+8216
+8218
+8228
+8229
+8231
+8239
+8255
+8257
+8260
+8261
+8276
+8277
+8288
+8293
+8294
+8304
+8305
+8306
+8319
+8320
+8336
+8349
+8400
+8433
+8450
+8451
+8455
+8456
+8458
+8468
+8469
+8470
+8473
+8478
+8484
+8485
+8486
+8487
+8488
+8489
+8490
+8494
+8495
+8506
+8508
+8512
+8517
+8522
+8526
+8527
+8544
+8585
+9398
+9450
+11264
+11311
+11312
+11359
+11360
+11493
+11499
+11508
+11520
+11558
+11559
+11560
+11565
+11566
+11568
+11624
+11631
+11632
+11647
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11744
+11776
+11823
+11824
+12293
+12294
+12330
+12336
+12337
+12342
+12347
+12349
+12441
+12445
+12448
+12539
+12540
+12544
+12549
+12590
+12593
+12687
+12704
+12731
+12784
+12800
+13008
+13055
+13056
+13144
+40960
+42125
+42192
+42238
+42240
+42509
+42512
+42540
+42560
+42611
+42612
+42622
+42623
+42738
+42775
+42784
+42786
+42889
+42891
+42926
+42928
+42936
+42999
+43048
+43072
+43124
+43136
+43205
+43216
+43226
+43232
+43256
+43259
+43260
+43261
+43262
+43264
+43310
+43312
+43348
+43360
+43389
+43392
+43457
+43471
+43482
+43493
+43494
+43504
+43514
+43520
+43575
+43584
+43598
+43600
+43610
+43643
+43646
+43696
+43697
+43698
+43701
+43703
+43705
+43710
+43712
+43713
+43714
+43744
+43760
+43762
+43767
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43824
+43867
+43868
+43878
+43888
+44011
+44012
+44014
+44016
+44026
+44032
+55204
+55216
+55239
+55243
+55292
+64256
+64263
+64275
+64280
+64285
+64297
+64298
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64434
+64467
+64830
+64848
+64912
+64914
+64968
+65008
+65020
+65024
+65041
+65043
+65045
+65056
+65072
+65075
+65077
+65101
+65105
+65106
+65107
+65108
+65110
+65136
+65141
+65142
+65277
+65279
+65280
+65287
+65288
+65292
+65293
+65294
+65295
+65306
+65308
+65313
+65339
+65343
+65344
+65345
+65371
+65382
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65529
+65532
+65536
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65856
+65909
+66045
+66046
+66176
+66205
+66208
+66257
+66272
+66273
+66304
+66336
+66352
+66379
+66384
+66427
+66432
+66462
+66464
+66500
+66504
+66512
+66513
+66518
+66560
+66718
+66720
+66730
+66816
+66856
+66864
+66916
+67072
+67383
+67392
+67414
+67424
+67432
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67680
+67703
+67712
+67743
+67808
+67827
+67828
+67830
+67840
+67862
+67872
+67898
+67968
+68024
+68030
+68032
+68096
+68100
+68101
+68103
+68108
+68116
+68117
+68120
+68121
+68148
+68152
+68155
+68159
+68160
+68192
+68221
+68224
+68253
+68288
+68296
+68297
+68327
+68352
+68406
+68416
+68438
+68448
+68467
+68480
+68498
+68608
+68681
+68736
+68787
+68800
+68851
+69632
+69703
+69734
+69744
+69759
+69819
+69821
+69822
+69840
+69865
+69872
+69882
+69888
+69941
+69942
+69952
+69968
+70004
+70006
+70007
+70016
+70085
+70090
+70093
+70096
+70107
+70108
+70109
+70144
+70162
+70163
+70200
+70272
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70313
+70320
+70379
+70384
+70394
+70400
+70404
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70460
+70469
+70471
+70473
+70475
+70478
+70480
+70481
+70487
+70488
+70493
+70500
+70502
+70509
+70512
+70517
+70784
+70854
+70855
+70856
+70864
+70874
+71040
+71094
+71096
+71105
+71128
+71134
+71168
+71233
+71236
+71237
+71248
+71258
+71296
+71352
+71360
+71370
+71453
+71468
+71472
+71482
+71840
+71914
+71935
+71936
+72384
+72441
+73728
+74650
+74752
+74863
+74880
+75076
+77824
+78895
+82944
+83527
+92160
+92729
+92736
+92767
+92768
+92778
+92880
+92910
+92912
+92917
+92928
+92983
+92992
+92996
+93008
+93018
+93027
+93048
+93053
+93072
+93952
+94021
+94032
+94079
+94095
+94112
+110592
+110593
+113664
+113771
+113776
+113789
+113792
+113801
+113808
+113818
+113821
+113823
+113824
+113828
+119141
+119146
+119149
+119171
+119173
+119180
+119210
+119214
+119362
+119365
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120513
+120514
+120539
+120540
+120571
+120572
+120597
+120598
+120629
+120630
+120655
+120656
+120687
+120688
+120713
+120714
+120745
+120746
+120771
+120772
+120780
+120782
+120832
+121344
+121399
+121403
+121453
+121461
+121462
+121476
+121477
+121499
+121504
+121505
+121520
+124928
+125125
+125136
+125143
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+127280
+127306
+127312
+127338
+127344
+127370
+127462
+127488
+917505
+917506
+917536
+917632
+917760
+918000
+END
diff --git a/lib/5.24.1/unicore/lib/XIDC/Y.pl b/lib/5.24.1/unicore/lib/XIDC/Y.pl
new file mode 100644
index 00000000..d6174fc2
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/XIDC/Y.pl
@@ -0,0 +1,1330 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1316
+48
+58
+65
+91
+95
+96
+97
+123
+170
+171
+181
+182
+183
+184
+186
+187
+192
+215
+216
+247
+248
+706
+710
+722
+736
+741
+748
+749
+750
+751
+768
+885
+886
+888
+891
+894
+895
+896
+902
+907
+908
+909
+910
+930
+931
+1014
+1015
+1154
+1155
+1160
+1162
+1328
+1329
+1367
+1369
+1370
+1377
+1416
+1425
+1470
+1471
+1472
+1473
+1475
+1476
+1478
+1479
+1480
+1488
+1515
+1520
+1523
+1552
+1563
+1568
+1642
+1646
+1748
+1749
+1757
+1759
+1769
+1770
+1789
+1791
+1792
+1808
+1867
+1869
+1970
+1984
+2038
+2042
+2043
+2048
+2094
+2112
+2140
+2208
+2229
+2275
+2404
+2406
+2416
+2417
+2436
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2492
+2501
+2503
+2505
+2507
+2511
+2519
+2520
+2524
+2526
+2527
+2532
+2534
+2546
+2561
+2564
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2620
+2621
+2622
+2627
+2631
+2633
+2635
+2638
+2641
+2642
+2649
+2653
+2654
+2655
+2662
+2678
+2689
+2692
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2748
+2758
+2759
+2762
+2763
+2766
+2768
+2769
+2784
+2788
+2790
+2800
+2809
+2810
+2817
+2820
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2876
+2885
+2887
+2889
+2891
+2894
+2902
+2904
+2908
+2910
+2911
+2916
+2918
+2928
+2929
+2930
+2946
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3006
+3011
+3014
+3017
+3018
+3022
+3024
+3025
+3031
+3032
+3046
+3056
+3072
+3076
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3130
+3133
+3141
+3142
+3145
+3146
+3150
+3157
+3159
+3160
+3163
+3168
+3172
+3174
+3184
+3201
+3204
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3260
+3269
+3270
+3273
+3274
+3278
+3285
+3287
+3294
+3295
+3296
+3300
+3302
+3312
+3313
+3315
+3329
+3332
+3333
+3341
+3342
+3345
+3346
+3387
+3389
+3397
+3398
+3401
+3402
+3407
+3415
+3416
+3423
+3428
+3430
+3440
+3450
+3456
+3458
+3460
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3530
+3531
+3535
+3541
+3542
+3543
+3544
+3552
+3558
+3568
+3570
+3572
+3585
+3643
+3648
+3663
+3664
+3674
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3770
+3771
+3774
+3776
+3781
+3782
+3783
+3784
+3790
+3792
+3802
+3804
+3808
+3840
+3841
+3864
+3866
+3872
+3882
+3893
+3894
+3895
+3896
+3897
+3898
+3902
+3912
+3913
+3949
+3953
+3973
+3974
+3992
+3993
+4029
+4038
+4039
+4096
+4170
+4176
+4254
+4256
+4294
+4295
+4296
+4301
+4302
+4304
+4347
+4348
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4957
+4960
+4969
+4978
+4992
+5008
+5024
+5110
+5112
+5118
+5121
+5741
+5743
+5760
+5761
+5787
+5792
+5867
+5870
+5881
+5888
+5901
+5902
+5909
+5920
+5941
+5952
+5972
+5984
+5997
+5998
+6001
+6002
+6004
+6016
+6100
+6103
+6104
+6108
+6110
+6112
+6122
+6155
+6158
+6160
+6170
+6176
+6264
+6272
+6315
+6320
+6390
+6400
+6431
+6432
+6444
+6448
+6460
+6470
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6608
+6619
+6656
+6684
+6688
+6751
+6752
+6781
+6783
+6794
+6800
+6810
+6823
+6824
+6832
+6846
+6912
+6988
+6992
+7002
+7019
+7028
+7040
+7156
+7168
+7224
+7232
+7242
+7245
+7294
+7376
+7379
+7380
+7415
+7416
+7418
+7424
+7670
+7676
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8125
+8126
+8127
+8130
+8133
+8134
+8141
+8144
+8148
+8150
+8156
+8160
+8173
+8178
+8181
+8182
+8189
+8255
+8257
+8276
+8277
+8305
+8306
+8319
+8320
+8336
+8349
+8400
+8413
+8417
+8418
+8421
+8433
+8450
+8451
+8455
+8456
+8458
+8468
+8469
+8470
+8472
+8478
+8484
+8485
+8486
+8487
+8488
+8489
+8490
+8506
+8508
+8512
+8517
+8522
+8526
+8527
+8544
+8585
+11264
+11311
+11312
+11359
+11360
+11493
+11499
+11508
+11520
+11558
+11559
+11560
+11565
+11566
+11568
+11624
+11631
+11632
+11647
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+11744
+11776
+12293
+12296
+12321
+12336
+12337
+12342
+12344
+12349
+12353
+12439
+12441
+12443
+12445
+12448
+12449
+12539
+12540
+12544
+12549
+12590
+12593
+12687
+12704
+12731
+12784
+12800
+13312
+19894
+19968
+40918
+40960
+42125
+42192
+42238
+42240
+42509
+42512
+42540
+42560
+42608
+42612
+42622
+42623
+42738
+42775
+42784
+42786
+42889
+42891
+42926
+42928
+42936
+42999
+43048
+43072
+43124
+43136
+43205
+43216
+43226
+43232
+43256
+43259
+43260
+43261
+43262
+43264
+43310
+43312
+43348
+43360
+43389
+43392
+43457
+43471
+43482
+43488
+43519
+43520
+43575
+43584
+43598
+43600
+43610
+43616
+43639
+43642
+43715
+43739
+43742
+43744
+43760
+43762
+43767
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43824
+43867
+43868
+43878
+43888
+44011
+44012
+44014
+44016
+44026
+44032
+55204
+55216
+55239
+55243
+55292
+63744
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64297
+64298
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64434
+64467
+64606
+64612
+64830
+64848
+64912
+64914
+64968
+65008
+65018
+65024
+65040
+65056
+65072
+65075
+65077
+65101
+65104
+65137
+65138
+65139
+65140
+65143
+65144
+65145
+65146
+65147
+65148
+65149
+65150
+65151
+65277
+65296
+65306
+65313
+65339
+65343
+65344
+65345
+65371
+65382
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65536
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65856
+65909
+66045
+66046
+66176
+66205
+66208
+66257
+66272
+66273
+66304
+66336
+66352
+66379
+66384
+66427
+66432
+66462
+66464
+66500
+66504
+66512
+66513
+66518
+66560
+66718
+66720
+66730
+66816
+66856
+66864
+66916
+67072
+67383
+67392
+67414
+67424
+67432
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67680
+67703
+67712
+67743
+67808
+67827
+67828
+67830
+67840
+67862
+67872
+67898
+67968
+68024
+68030
+68032
+68096
+68100
+68101
+68103
+68108
+68116
+68117
+68120
+68121
+68148
+68152
+68155
+68159
+68160
+68192
+68221
+68224
+68253
+68288
+68296
+68297
+68327
+68352
+68406
+68416
+68438
+68448
+68467
+68480
+68498
+68608
+68681
+68736
+68787
+68800
+68851
+69632
+69703
+69734
+69744
+69759
+69819
+69840
+69865
+69872
+69882
+69888
+69941
+69942
+69952
+69968
+70004
+70006
+70007
+70016
+70085
+70090
+70093
+70096
+70107
+70108
+70109
+70144
+70162
+70163
+70200
+70272
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70313
+70320
+70379
+70384
+70394
+70400
+70404
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70460
+70469
+70471
+70473
+70475
+70478
+70480
+70481
+70487
+70488
+70493
+70500
+70502
+70509
+70512
+70517
+70784
+70854
+70855
+70856
+70864
+70874
+71040
+71094
+71096
+71105
+71128
+71134
+71168
+71233
+71236
+71237
+71248
+71258
+71296
+71352
+71360
+71370
+71424
+71450
+71453
+71468
+71472
+71482
+71840
+71914
+71935
+71936
+72384
+72441
+73728
+74650
+74752
+74863
+74880
+75076
+77824
+78895
+82944
+83527
+92160
+92729
+92736
+92767
+92768
+92778
+92880
+92910
+92912
+92917
+92928
+92983
+92992
+92996
+93008
+93018
+93027
+93048
+93053
+93072
+93952
+94021
+94032
+94079
+94095
+94112
+110592
+110594
+113664
+113771
+113776
+113789
+113792
+113801
+113808
+113818
+113821
+113823
+119141
+119146
+119149
+119155
+119163
+119171
+119173
+119180
+119210
+119214
+119362
+119365
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120513
+120514
+120539
+120540
+120571
+120572
+120597
+120598
+120629
+120630
+120655
+120656
+120687
+120688
+120713
+120714
+120745
+120746
+120771
+120772
+120780
+120782
+120832
+121344
+121399
+121403
+121453
+121461
+121462
+121476
+121477
+121499
+121504
+121505
+121520
+124928
+125125
+125136
+125143
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+131072
+173783
+173824
+177973
+177984
+178206
+178208
+183970
+194560
+195102
+917760
+918000
+END
diff --git a/lib/5.24.1/unicore/lib/XIDS/Y.pl b/lib/5.24.1/unicore/lib/XIDS/Y.pl
new file mode 100644
index 00000000..26950b3e
--- /dev/null
+++ b/lib/5.24.1/unicore/lib/XIDS/Y.pl
@@ -0,0 +1,1138 @@
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is machine-generated by lib/unicore/mktables from the Unicode
+# database, Version 8.0.0.  Any changes made here will be lost!
+
+# !!!!!!!   INTERNAL PERL USE ONLY   !!!!!!!
+# This file is for internal use by core Perl only.  The format and even the
+# name or existence of this file are subject to change without notice.  Don't
+# use it directly.  Use Unicode::UCD to access the Unicode character data
+# base.
+
+
+return <<'END';
+V1124
+65
+91
+97
+123
+170
+171
+181
+182
+186
+187
+192
+215
+216
+247
+248
+706
+710
+722
+736
+741
+748
+749
+750
+751
+880
+885
+886
+888
+891
+894
+895
+896
+902
+903
+904
+907
+908
+909
+910
+930
+931
+1014
+1015
+1154
+1162
+1328
+1329
+1367
+1369
+1370
+1377
+1416
+1488
+1515
+1520
+1523
+1568
+1611
+1646
+1648
+1649
+1748
+1749
+1750
+1765
+1767
+1774
+1776
+1786
+1789
+1791
+1792
+1808
+1809
+1810
+1840
+1869
+1958
+1969
+1970
+1994
+2027
+2036
+2038
+2042
+2043
+2048
+2070
+2074
+2075
+2084
+2085
+2088
+2089
+2112
+2137
+2208
+2229
+2308
+2362
+2365
+2366
+2384
+2385
+2392
+2402
+2417
+2433
+2437
+2445
+2447
+2449
+2451
+2473
+2474
+2481
+2482
+2483
+2486
+2490
+2493
+2494
+2510
+2511
+2524
+2526
+2527
+2530
+2544
+2546
+2565
+2571
+2575
+2577
+2579
+2601
+2602
+2609
+2610
+2612
+2613
+2615
+2616
+2618
+2649
+2653
+2654
+2655
+2674
+2677
+2693
+2702
+2703
+2706
+2707
+2729
+2730
+2737
+2738
+2740
+2741
+2746
+2749
+2750
+2768
+2769
+2784
+2786
+2809
+2810
+2821
+2829
+2831
+2833
+2835
+2857
+2858
+2865
+2866
+2868
+2869
+2874
+2877
+2878
+2908
+2910
+2911
+2914
+2929
+2930
+2947
+2948
+2949
+2955
+2958
+2961
+2962
+2966
+2969
+2971
+2972
+2973
+2974
+2976
+2979
+2981
+2984
+2987
+2990
+3002
+3024
+3025
+3077
+3085
+3086
+3089
+3090
+3113
+3114
+3130
+3133
+3134
+3160
+3163
+3168
+3170
+3205
+3213
+3214
+3217
+3218
+3241
+3242
+3252
+3253
+3258
+3261
+3262
+3294
+3295
+3296
+3298
+3313
+3315
+3333
+3341
+3342
+3345
+3346
+3387
+3389
+3390
+3406
+3407
+3423
+3426
+3450
+3456
+3461
+3479
+3482
+3506
+3507
+3516
+3517
+3518
+3520
+3527
+3585
+3633
+3634
+3635
+3648
+3655
+3713
+3715
+3716
+3717
+3719
+3721
+3722
+3723
+3725
+3726
+3732
+3736
+3737
+3744
+3745
+3748
+3749
+3750
+3751
+3752
+3754
+3756
+3757
+3761
+3762
+3763
+3773
+3774
+3776
+3781
+3782
+3783
+3804
+3808
+3840
+3841
+3904
+3912
+3913
+3949
+3976
+3981
+4096
+4139
+4159
+4160
+4176
+4182
+4186
+4190
+4193
+4194
+4197
+4199
+4206
+4209
+4213
+4226
+4238
+4239
+4256
+4294
+4295
+4296
+4301
+4302
+4304
+4347
+4348
+4681
+4682
+4686
+4688
+4695
+4696
+4697
+4698
+4702
+4704
+4745
+4746
+4750
+4752
+4785
+4786
+4790
+4792
+4799
+4800
+4801
+4802
+4806
+4808
+4823
+4824
+4881
+4882
+4886
+4888
+4955
+4992
+5008
+5024
+5110
+5112
+5118
+5121
+5741
+5743
+5760
+5761
+5787
+5792
+5867
+5870
+5881
+5888
+5901
+5902
+5906
+5920
+5938
+5952
+5970
+5984
+5997
+5998
+6001
+6016
+6068
+6103
+6104
+6108
+6109
+6176
+6264
+6272
+6313
+6314
+6315
+6320
+6390
+6400
+6431
+6480
+6510
+6512
+6517
+6528
+6572
+6576
+6602
+6656
+6679
+6688
+6741
+6823
+6824
+6917
+6964
+6981
+6988
+7043
+7073
+7086
+7088
+7098
+7142
+7168
+7204
+7245
+7248
+7258
+7294
+7401
+7405
+7406
+7410
+7413
+7415
+7424
+7616
+7680
+7958
+7960
+7966
+7968
+8006
+8008
+8014
+8016
+8024
+8025
+8026
+8027
+8028
+8029
+8030
+8031
+8062
+8064
+8117
+8118
+8125
+8126
+8127
+8130
+8133
+8134
+8141
+8144
+8148
+8150
+8156
+8160
+8173
+8178
+8181
+8182
+8189
+8305
+8306
+8319
+8320
+8336
+8349
+8450
+8451
+8455
+8456
+8458
+8468
+8469
+8470
+8472
+8478
+8484
+8485
+8486
+8487
+8488
+8489
+8490
+8506
+8508
+8512
+8517
+8522
+8526
+8527
+8544
+8585
+11264
+11311
+11312
+11359
+11360
+11493
+11499
+11503
+11506
+11508
+11520
+11558
+11559
+11560
+11565
+11566
+11568
+11624
+11631
+11632
+11648
+11671
+11680
+11687
+11688
+11695
+11696
+11703
+11704
+11711
+11712
+11719
+11720
+11727
+11728
+11735
+11736
+11743
+12293
+12296
+12321
+12330
+12337
+12342
+12344
+12349
+12353
+12439
+12445
+12448
+12449
+12539
+12540
+12544
+12549
+12590
+12593
+12687
+12704
+12731
+12784
+12800
+13312
+19894
+19968
+40918
+40960
+42125
+42192
+42238
+42240
+42509
+42512
+42528
+42538
+42540
+42560
+42607
+42623
+42654
+42656
+42736
+42775
+42784
+42786
+42889
+42891
+42926
+42928
+42936
+42999
+43010
+43011
+43014
+43015
+43019
+43020
+43043
+43072
+43124
+43138
+43188
+43250
+43256
+43259
+43260
+43261
+43262
+43274
+43302
+43312
+43335
+43360
+43389
+43396
+43443
+43471
+43472
+43488
+43493
+43494
+43504
+43514
+43519
+43520
+43561
+43584
+43587
+43588
+43596
+43616
+43639
+43642
+43643
+43646
+43696
+43697
+43698
+43701
+43703
+43705
+43710
+43712
+43713
+43714
+43715
+43739
+43742
+43744
+43755
+43762
+43765
+43777
+43783
+43785
+43791
+43793
+43799
+43808
+43815
+43816
+43823
+43824
+43867
+43868
+43878
+43888
+44003
+44032
+55204
+55216
+55239
+55243
+55292
+63744
+64110
+64112
+64218
+64256
+64263
+64275
+64280
+64285
+64286
+64287
+64297
+64298
+64311
+64312
+64317
+64318
+64319
+64320
+64322
+64323
+64325
+64326
+64434
+64467
+64606
+64612
+64830
+64848
+64912
+64914
+64968
+65008
+65018
+65137
+65138
+65139
+65140
+65143
+65144
+65145
+65146
+65147
+65148
+65149
+65150
+65151
+65277
+65313
+65339
+65345
+65371
+65382
+65438
+65440
+65471
+65474
+65480
+65482
+65488
+65490
+65496
+65498
+65501
+65536
+65548
+65549
+65575
+65576
+65595
+65596
+65598
+65599
+65614
+65616
+65630
+65664
+65787
+65856
+65909
+66176
+66205
+66208
+66257
+66304
+66336
+66352
+66379
+66384
+66422
+66432
+66462
+66464
+66500
+66504
+66512
+66513
+66518
+66560
+66718
+66816
+66856
+66864
+66916
+67072
+67383
+67392
+67414
+67424
+67432
+67584
+67590
+67592
+67593
+67594
+67638
+67639
+67641
+67644
+67645
+67647
+67670
+67680
+67703
+67712
+67743
+67808
+67827
+67828
+67830
+67840
+67862
+67872
+67898
+67968
+68024
+68030
+68032
+68096
+68097
+68112
+68116
+68117
+68120
+68121
+68148
+68192
+68221
+68224
+68253
+68288
+68296
+68297
+68325
+68352
+68406
+68416
+68438
+68448
+68467
+68480
+68498
+68608
+68681
+68736
+68787
+68800
+68851
+69635
+69688
+69763
+69808
+69840
+69865
+69891
+69927
+69968
+70003
+70006
+70007
+70019
+70067
+70081
+70085
+70106
+70107
+70108
+70109
+70144
+70162
+70163
+70188
+70272
+70279
+70280
+70281
+70282
+70286
+70287
+70302
+70303
+70313
+70320
+70367
+70405
+70413
+70415
+70417
+70419
+70441
+70442
+70449
+70450
+70452
+70453
+70458
+70461
+70462
+70480
+70481
+70493
+70498
+70784
+70832
+70852
+70854
+70855
+70856
+71040
+71087
+71128
+71132
+71168
+71216
+71236
+71237
+71296
+71339
+71424
+71450
+71840
+71904
+71935
+71936
+72384
+72441
+73728
+74650
+74752
+74863
+74880
+75076
+77824
+78895
+82944
+83527
+92160
+92729
+92736
+92767
+92880
+92910
+92928
+92976
+92992
+92996
+93027
+93048
+93053
+93072
+93952
+94021
+94032
+94033
+94099
+94112
+110592
+110594
+113664
+113771
+113776
+113789
+113792
+113801
+113808
+113818
+119808
+119893
+119894
+119965
+119966
+119968
+119970
+119971
+119973
+119975
+119977
+119981
+119982
+119994
+119995
+119996
+119997
+120004
+120005
+120070
+120071
+120075
+120077
+120085
+120086
+120093
+120094
+120122
+120123
+120127
+120128
+120133
+120134
+120135
+120138
+120145
+120146
+120486
+120488
+120513
+120514
+120539
+120540
+120571
+120572
+120597
+120598
+120629
+120630
+120655
+120656
+120687
+120688
+120713
+120714
+120745
+120746
+120771
+120772
+120780
+124928
+125125
+126464
+126468
+126469
+126496
+126497
+126499
+126500
+126501
+126503
+126504
+126505
+126515
+126516
+126520
+126521
+126522
+126523
+126524
+126530
+126531
+126535
+126536
+126537
+126538
+126539
+126540
+126541
+126544
+126545
+126547
+126548
+126549
+126551
+126552
+126553
+126554
+126555
+126556
+126557
+126558
+126559
+126560
+126561
+126563
+126564
+126565
+126567
+126571
+126572
+126579
+126580
+126584
+126585
+126589
+126590
+126591
+126592
+126602
+126603
+126620
+126625
+126628
+126629
+126634
+126635
+126652
+131072
+173783
+173824
+177973
+177984
+178206
+178208
+183970
+194560
+195102
+END
diff --git a/lib/5.24.1/unicore/version b/lib/5.24.1/unicore/version
new file mode 100644
index 00000000..ae9a76b9
--- /dev/null
+++ b/lib/5.24.1/unicore/version
@@ -0,0 +1 @@
+8.0.0
diff --git a/lib/5.24.1/utf8.pm b/lib/5.24.1/utf8.pm
new file mode 100644
index 00000000..324cb87c
--- /dev/null
+++ b/lib/5.24.1/utf8.pm
@@ -0,0 +1,245 @@
+package utf8;
+
+$utf8::hint_bits = 0x00800000;
+
+our $VERSION = '1.19';
+
+sub import {
+    $^H |= $utf8::hint_bits;
+}
+
+sub unimport {
+    $^H &= ~$utf8::hint_bits;
+}
+
+sub AUTOLOAD {
+    require "utf8_heavy.pl";
+    goto &$AUTOLOAD if defined &$AUTOLOAD;
+    require Carp;
+    Carp::croak("Undefined subroutine $AUTOLOAD called");
+}
+
+1;
+__END__
+
+=head1 NAME
+
+utf8 - Perl pragma to enable/disable UTF-8 (or UTF-EBCDIC) in source code
+
+=head1 SYNOPSIS
+
+ use utf8;
+ no utf8;
+
+ # Convert the internal representation of a Perl scalar to/from UTF-8.
+
+ $num_octets = utf8::upgrade($string);
+ $success    = utf8::downgrade($string[, $fail_ok]);
+
+ # Change each character of a Perl scalar to/from a series of
+ # characters that represent the UTF-8 bytes of each original character.
+
+ utf8::encode($string);  # "\x{100}"  becomes "\xc4\x80"
+ utf8::decode($string);  # "\xc4\x80" becomes "\x{100}"
+
+ # Convert a code point from the platform native character set to
+ # Unicode, and vice-versa.
+ $unicode = utf8::native_to_unicode(ord('A')); # returns 65 on both
+                                               # ASCII and EBCDIC
+                                               # platforms
+ $native = utf8::unicode_to_native(65);        # returns 65 on ASCII
+                                               # platforms; 193 on
+                                               # EBCDIC
+
+ $flag = utf8::is_utf8($string); # since Perl 5.8.1
+ $flag = utf8::valid($string);
+
+=head1 DESCRIPTION
+
+The C<use utf8> pragma tells the Perl parser to allow UTF-8 in the
+program text in the current lexical scope.  The C<no utf8> pragma tells Perl
+to switch back to treating the source text as literal bytes in the current
+lexical scope.  (On EBCDIC platforms, technically it is allowing UTF-EBCDIC,
+and not UTF-8, but this distinction is academic, so in this document the term
+UTF-8 is used to mean both).
+
+B<Do not use this pragma for anything else than telling Perl that your
+script is written in UTF-8.> The utility functions described below are
+directly usable without C<use utf8;>.
+
+Because it is not possible to reliably tell UTF-8 from native 8 bit
+encodings, you need either a Byte Order Mark at the beginning of your
+source code, or C<use utf8;>, to instruct perl.
+
+When UTF-8 becomes the standard source format, this pragma will
+effectively become a no-op.
+
+See also the effects of the C<-C> switch and its cousin, the
+C<PERL_UNICODE> environment variable, in L<perlrun>.
+
+Enabling the C<utf8> pragma has the following effect:
+
+=over 4
+
+=item *
+
+Bytes in the source text that are not in the ASCII character set will be
+treated as being part of a literal UTF-8 sequence.  This includes most
+literals such as identifier names, string constants, and constant
+regular expression patterns.
+
+=back
+
+Note that if you have non-ASCII, non-UTF-8 bytes in your script (for example
+embedded Latin-1 in your string literals), C<use utf8> will be unhappy.  If
+you want to have such bytes under C<use utf8>, you can disable this pragma
+until the end the block (or file, if at top level) by C<no utf8;>.
+
+=head2 Utility functions
+
+The following functions are defined in the C<utf8::> package by the
+Perl core.  You do not need to say C<use utf8> to use these and in fact
+you should not say that unless you really want to have UTF-8 source code.
+
+=over 4
+
+=item * C<$num_octets = utf8::upgrade($string)>
+
+(Since Perl v5.8.0)
+Converts in-place the internal representation of the string from an octet
+sequence in the native encoding (Latin-1 or EBCDIC) to UTF-8. The
+logical character sequence itself is unchanged.  If I<$string> is already
+stored as UTF-8, then this is a no-op. Returns the
+number of octets necessary to represent the string as UTF-8.  Can be
+used to make sure that the UTF-8 flag is on, so that C<\w> or C<lc()>
+work as Unicode on strings containing non-ASCII characters whose code points
+are below 256.
+
+B<Note that this function does not handle arbitrary encodings>;
+use L<Encode> instead.
+
+=item * C<$success = utf8::downgrade($string[, $fail_ok])>
+
+(Since Perl v5.8.0)
+Converts in-place the internal representation of the string from
+UTF-8 to the equivalent octet sequence in the native encoding (Latin-1
+or EBCDIC). The logical character sequence itself is unchanged. If
+I<$string> is already stored as native 8 bit, then this is a no-op.  Can
+be used to
+make sure that the UTF-8 flag is off, e.g. when you want to make sure
+that the substr() or length() function works with the usually faster
+byte algorithm.
+
+Fails if the original UTF-8 sequence cannot be represented in the
+native 8 bit encoding. On failure dies or, if the value of I<$fail_ok> is
+true, returns false. 
+
+Returns true on success.
+
+B<Note that this function does not handle arbitrary encodings>;
+use L<Encode> instead.
+
+=item * C<utf8::encode($string)>
+
+(Since Perl v5.8.0)
+Converts in-place the character sequence to the corresponding octet
+sequence in UTF-8. That is, every (possibly wide) character gets
+replaced with a sequence of one or more characters that represent the
+individual UTF-8 bytes of the character.  The UTF8 flag is turned off.
+Returns nothing.
+
+ my $a = "\x{100}"; # $a contains one character, with ord 0x100
+ utf8::encode($a);  # $a contains two characters, with ords (on
+                    # ASCII platforms) 0xc4 and 0x80.  On EBCDIC
+                    # 1047, this would instead be 0x8C and 0x41.
+
+B<Note that this function does not handle arbitrary encodings>;
+use L<Encode> instead.
+
+=item * C<$success = utf8::decode($string)>
+
+(Since Perl v5.8.0)
+Attempts to convert in-place the octet sequence encoded as UTF-8 to the
+corresponding character sequence. That is, it replaces each sequence of
+characters in the string whose ords represent a valid UTF-8 byte
+sequence, with the corresponding single character.  The UTF-8 flag is
+turned on only if the source string contains multiple-byte UTF-8
+characters.  If I<$string> is invalid as UTF-8, returns false;
+otherwise returns true.
+
+ my $a = "\xc4\x80"; # $a contains two characters, with ords
+                     # 0xc4 and 0x80
+ utf8::decode($a);   # On ASCII platforms, $a contains one char,
+                     # with ord 0x100.   Since these bytes aren't
+                     # legal UTF-EBCDIC, on EBCDIC platforms, $a is
+                     # unchanged and the function returns FALSE.
+
+B<Note that this function does not handle arbitrary encodings>;
+use L<Encode> instead.
+
+=item * C<$unicode = utf8::native_to_unicode($code_point)>
+
+(Since Perl v5.8.0)
+This takes an unsigned integer (which represents the ordinal number of a
+character (or a code point) on the platform the program is being run on) and
+returns its Unicode equivalent value.  Since ASCII platforms natively use the
+Unicode code points, this function returns its input on them.  On EBCDIC
+platforms it converts from EBCDIC to Unicode.
+
+A meaningless value will currently be returned if the input is not an unsigned
+integer.
+
+Since Perl v5.22.0, calls to this function are optimized out on ASCII
+platforms, so there is no performance hit in using it there.
+
+=item * C<$native = utf8::unicode_to_native($code_point)>
+
+(Since Perl v5.8.0)
+This is the inverse of C<utf8::native_to_unicode()>, converting the other
+direction.  Again, on ASCII platforms, this returns its input, but on EBCDIC
+platforms it will find the native platform code point, given any Unicode one.
+
+A meaningless value will currently be returned if the input is not an unsigned
+integer.
+
+Since Perl v5.22.0, calls to this function are optimized out on ASCII
+platforms, so there is no performance hit in using it there.
+
+=item * C<$flag = utf8::is_utf8($string)>
+
+(Since Perl 5.8.1)  Test whether I<$string> is marked internally as encoded in
+UTF-8.  Functionally the same as C<Encode::is_utf8()>.
+
+=item * C<$flag = utf8::valid($string)>
+
+[INTERNAL] Test whether I<$string> is in a consistent state regarding
+UTF-8.  Will return true if it is well-formed UTF-8 and has the UTF-8 flag
+on B<or> if I<$string> is held as bytes (both these states are 'consistent').
+Main reason for this routine is to allow Perl's test suite to check
+that operations have left strings in a consistent state.  You most
+probably want to use C<utf8::is_utf8()> instead.
+
+=back
+
+C<utf8::encode> is like C<utf8::upgrade>, but the UTF8 flag is
+cleared.  See L<perlunicode>, and the C API
+functions C<L<sv_utf8_upgrade|perlapi/sv_utf8_upgrade>>,
+C<L<perlapi/sv_utf8_downgrade>>, C<L<perlapi/sv_utf8_encode>>,
+and C<L<perlapi/sv_utf8_decode>>, which are wrapped by the Perl functions
+C<utf8::upgrade>, C<utf8::downgrade>, C<utf8::encode> and
+C<utf8::decode>.  Also, the functions C<utf8::is_utf8>, C<utf8::valid>,
+C<utf8::encode>, C<utf8::decode>, C<utf8::upgrade>, and C<utf8::downgrade> are
+actually internal, and thus always available, without a C<require utf8>
+statement.
+
+=head1 BUGS
+
+Some filesystems may not support UTF-8 file names, or they may be supported
+incompatibly with Perl.  Therefore UTF-8 names that are visible to the
+filesystem, such as module names may not work.
+
+=head1 SEE ALSO
+
+L<perlunitut>, L<perluniintro>, L<perlrun>, L<bytes>, L<perlunicode>
+
+=cut
diff --git a/lib/5.24.1/utf8_heavy.pl b/lib/5.24.1/utf8_heavy.pl
new file mode 100644
index 00000000..66c968aa
--- /dev/null
+++ b/lib/5.24.1/utf8_heavy.pl
@@ -0,0 +1,687 @@
+package utf8;
+use strict;
+use warnings;
+use re "/aa";  # So we won't even try to look at above Latin1, potentially
+               # resulting in a recursive call
+
+sub DEBUG () { 0 }
+$|=1 if DEBUG;
+
+sub DESTROY {}
+
+my %Cache;
+
+sub croak { require Carp; Carp::croak(@_) }
+
+sub _loose_name ($) {
+    # Given a lowercase property or property-value name, return its
+    # standardized version that is expected for look-up in the 'loose' hashes
+    # in Heavy.pl (hence, this depends on what mktables does).  This squeezes
+    # out blanks, underscores and dashes.  The complication stems from the
+    # grandfathered-in 'L_', which retains a single trailing underscore.
+
+    (my $loose = $_[0]) =~ s/[-_ \t]//g;
+
+    return $loose if $loose !~ / ^ (?: is | to )? l $/x;
+    return 'l_' if $_[0] =~ / l .* _ /x;    # If original had a trailing '_'
+    return $loose;
+}
+
+##
+## "SWASH" == "SWATCH HASH". A "swatch" is a swatch of the Unicode landscape.
+## It's a data structure that encodes a set of Unicode characters.
+##
+
+{
+    # If a floating point number is within this distance from the value of a
+    # fraction, it is considered to be that fraction, even if many more digits
+    # are specified that don't exactly match.
+    my $min_floating_slop;
+
+    # To guard against this program calling something that in turn ends up
+    # calling this program with the same inputs, and hence infinitely
+    # recursing, we keep a stack of the properties that are currently in
+    # progress, pushed upon entry, popped upon return.
+    my @recursed;
+
+    sub SWASHNEW {
+        my ($class, $type, $list, $minbits, $none) = @_;
+        my $user_defined = 0;
+        local $^D = 0 if $^D;
+
+        $class = "" unless defined $class;
+        print STDERR __LINE__, ": class=$class, type=$type, list=",
+                                (defined $list) ? $list : ':undef:',
+                                ", minbits=$minbits, none=$none\n" if DEBUG;
+
+        ##
+        ## Get the list of codepoints for the type.
+        ## Called from swash_init (see utf8.c) or SWASHNEW itself.
+        ##
+        ## Callers of swash_init:
+        ##     op.c:pmtrans             -- for tr/// and y///
+        ##     regexec.c:regclass_swash -- for /[]/, \p, and \P
+        ##     utf8.c:is_utf8_common    -- for common Unicode properties
+        ##     utf8.c:S__to_utf8_case   -- for lc, uc, ucfirst, etc. and //i
+        ##     Unicode::UCD::prop_invlist
+        ##     Unicode::UCD::prop_invmap
+        ##
+        ## Given a $type, our goal is to fill $list with the set of codepoint
+        ## ranges. If $type is false, $list passed is used.
+        ##
+        ## $minbits:
+        ##     For binary properties, $minbits must be 1.
+        ##     For character mappings (case and transliteration), $minbits must
+        ##     be a number except 1.
+        ##
+        ## $list (or that filled according to $type):
+        ##     Refer to perlunicode.pod, "User-Defined Character Properties."
+        ##     
+        ##     For binary properties, only characters with the property value
+        ##     of True should be listed. The 3rd column, if any, will be ignored
+        ##
+        ## $none is undocumented, so I'm (khw) trying to do some documentation
+        ## of it now.  It appears to be if there is a mapping in an input file
+        ## that maps to 'XXXX', then that is replaced by $none+1, expressed in
+        ## hexadecimal.  It is used somehow in tr///.
+        ##
+        ## To make the parsing of $type clear, this code takes the a rather
+        ## unorthodox approach of last'ing out of the block once we have the
+        ## info we need. Were this to be a subroutine, the 'last' would just
+        ## be a 'return'.
+        ##
+        #   If a problem is found $type is returned;
+        #   Upon success, a new (or cached) blessed object is returned with
+        #   keys TYPE, BITS, EXTRAS, LIST, and NONE with values having the
+        #   same meanings as the input parameters.
+        #   SPECIALS contains a reference to any special-treatment hash in the
+        #       property.
+        #   INVERT_IT is non-zero if the result should be inverted before use
+        #   USER_DEFINED is non-zero if the result came from a user-defined
+        my $file; ## file to load data from, and also part of the %Cache key.
+
+        # Change this to get a different set of Unicode tables
+        my $unicore_dir = 'unicore';
+        my $invert_it = 0;
+        my $list_is_from_mktables = 0;  # Is $list returned from a mktables
+                                        # generated file?  If so, we know it's
+                                        # well behaved.
+
+        if ($type)
+        {
+            # Verify that this isn't a recursive call for this property.
+            # Can't use croak, as it may try to recurse to here itself.
+            my $class_type = $class . "::$type";
+            if (grep { $_ eq $class_type } @recursed) {
+                CORE::die "panic: Infinite recursion in SWASHNEW for '$type'\n";
+            }
+            push @recursed, $class_type;
+
+            $type =~ s/^\s+//;
+            $type =~ s/\s+$//;
+
+            # regcomp.c surrounds the property name with '__" and '_i' if this
+            # is to be caseless matching.
+            my $caseless = $type =~ s/^(.*)__(.*)_i$/$1$2/;
+
+            print STDERR __LINE__, ": type=$type, caseless=$caseless\n" if DEBUG;
+
+        GETFILE:
+            {
+                ##
+                ## It could be a user-defined property.  Look in current
+                ## package if no package given
+                ##
+
+
+                my $caller0 = caller(0);
+                my $caller1 = $type =~ s/(.+):://
+                              ? $1
+                              : $caller0 eq 'main'
+                                ? 'main'
+                                : caller(1);
+
+                if (defined $caller1 && $type =~ /^I[ns]\w+$/) {
+                    my $prop = "${caller1}::$type";
+                    if (exists &{$prop}) {
+                        # stolen from Scalar::Util::PP::tainted()
+                        my $tainted;
+                        {
+                            local($@, $SIG{__DIE__}, $SIG{__WARN__});
+                            local $^W = 0;
+                            no warnings;
+                            eval { kill 0 * $prop };
+                            $tainted = 1 if $@ =~ /^Insecure/;
+                        }
+                        die "Insecure user-defined property \\p{$prop}\n"
+                            if $tainted;
+                        no strict 'refs';
+                        $list = &{$prop}($caseless);
+                        $user_defined = 1;
+                        last GETFILE;
+                    }
+                }
+
+                # During Perl's compilation, this routine may be called before
+                # the tables are constructed.  If so, we have a chicken/egg
+                # problem.  If we die, the tables never get constructed, so
+                # keep going, but return an empty table so only what the code
+                # has compiled in internally (currently ASCII/Latin1 range
+                # matching) will work.
+                BEGIN {
+                    # Poor man's constant, to avoid a run-time check.
+                    $utf8::{miniperl}
+                        = \! defined &DynaLoader::boot_DynaLoader;
+                }
+                if (miniperl) {
+                    eval "require '$unicore_dir/Heavy.pl'";
+                    if ($@) {
+                        print STDERR __LINE__, ": '$@'\n" if DEBUG;
+                        pop @recursed if @recursed;
+                        return $type;
+                    }
+                }
+                else {
+                    require "$unicore_dir/Heavy.pl";
+                }
+                BEGIN { delete $utf8::{miniperl} }
+
+                # All property names are matched caselessly
+                my $property_and_table = CORE::lc $type;
+                print STDERR __LINE__, ": $property_and_table\n" if DEBUG;
+
+                # See if is of the compound form 'property=value', where the
+                # value indicates the table we should use.
+                my ($property, $table, @remainder) =
+                                    split /\s*[:=]\s*/, $property_and_table, -1;
+                if (@remainder) {
+                    pop @recursed if @recursed;
+                    return $type;
+                }
+
+                my $prefix;
+                if (! defined $table) {
+                        
+                    # Here, is the single form.  The property becomes empty, and
+                    # the whole value is the table.
+                    $table = $property;
+                    $prefix = $property = "";
+                } else {
+                    print STDERR __LINE__, ": $property\n" if DEBUG;
+
+                    # Here it is the compound property=table form.  The property
+                    # name is always loosely matched, and always can have an
+                    # optional 'is' prefix (which isn't true in the single
+                    # form).
+                    $property = _loose_name($property) =~ s/^is//r;
+
+                    # And convert to canonical form.  Quit if not valid.
+                    $property = $utf8::loose_property_name_of{$property};
+                    if (! defined $property) {
+                        pop @recursed if @recursed;
+                        return $type;
+                    }
+
+                    $prefix = "$property=";
+
+                    # If the rhs looks like it is a number...
+                    print STDERR __LINE__, ": table=$table\n" if DEBUG;
+                    if ($table =~ m{ ^ [ \s 0-9 _  + / . -]+ $ }x) {
+                        print STDERR __LINE__, ": table=$table\n" if DEBUG;
+
+                        # Don't allow leading nor trailing slashes 
+                        if ($table =~ / ^ \/ | \/ $ /x) {
+                            pop @recursed if @recursed;
+                            return $type;
+                        }
+
+                        # Split on slash, in case it is a rational, like \p{1/5}
+                        my @parts = split m{ \s* / \s* }x, $table, -1;
+                        print __LINE__, ": $type\n" if @parts > 2 && DEBUG;
+
+                        # Can have maximum of one slash
+                        if (@parts > 2) {
+                            pop @recursed if @recursed;
+                            return $type;
+                        }
+
+                        foreach my $part (@parts) {
+                            print __LINE__, ": part=$part\n" if DEBUG;
+
+                            $part =~ s/^\+\s*//;    # Remove leading plus
+                            $part =~ s/^-\s*/-/;    # Remove blanks after unary
+                                                    # minus
+
+                            # Remove underscores between digits.
+                            $part =~ s/(?<= [0-9] ) _ (?= [0-9] ) //xg;
+
+                            # No leading zeros (but don't make a single '0'
+                            # into a null string)
+                            $part =~ s/ ^ ( -? ) 0+ /$1/x;
+                            $part .= '0' if $part eq '-' || $part eq "";
+
+                            # No trailing zeros after a decimal point
+                            $part =~ s/ ( \. .*? ) 0+ $ /$1/x;
+
+                            # Begin with a 0 if a leading decimal point
+                            $part =~ s/ ^ ( -? ) \. /${1}0./x;
+
+                            # Ensure not a trailing decimal point: turn into an
+                            # integer
+                            $part =~ s/ \. $ //x;
+
+                            print STDERR __LINE__, ": part=$part\n" if DEBUG;
+                            #return $type if $part eq "";
+                            
+                            # Result better look like a number.  (This test is
+                            # needed because, for example could have a plus in
+                            # the middle.)
+                            if ($part !~ / ^ -? [0-9]+ ( \. [0-9]+)? $ /x) {
+                                pop @recursed if @recursed;
+                                return $type;
+                            }
+                        }
+
+                        #  If a rational...
+                        if (@parts == 2) {
+
+                            # If denominator is negative, get rid of it, and ...
+                            if ($parts[1] =~ s/^-//) {
+
+                                # If numerator is also negative, convert the
+                                # whole thing to positive, else move the minus
+                                # to the numerator
+                                if ($parts[0] !~ s/^-//) {
+                                    $parts[0] = '-' . $parts[0];
+                                }
+                            }
+                            $table = join '/', @parts;
+                        }
+                        elsif ($property ne 'nv' || $parts[0] !~ /\./) {
+
+                            # Here is not numeric value, or doesn't have a
+                            # decimal point.  No further manipulation is
+                            # necessary.  (Note the hard-coded property name.
+                            # This could fail if other properties eventually
+                            # had fractions as well; perhaps the cjk ones
+                            # could evolve to do that.  This hard-coding could
+                            # be fixed by mktables generating a list of
+                            # properties that could have fractions.)
+                            $table = $parts[0];
+                        } else {
+
+                            # Here is a floating point numeric_value.  Try to
+                            # convert to rational.  First see if is in the list
+                            # of known ones.
+                            if (exists $utf8::nv_floating_to_rational{$parts[0]}) {
+                                $table = $utf8::nv_floating_to_rational{$parts[0]};
+                            } else {
+
+                                # Here not in the list.  See if is close
+                                # enough to something in the list.  First
+                                # determine what 'close enough' means.  It has
+                                # to be as tight as what mktables says is the
+                                # maximum slop, and as tight as how many
+                                # digits we were passed.  That is, if the user
+                                # said .667, .6667, .66667, etc.  we match as
+                                # many digits as they passed until get to
+                                # where it doesn't matter any more due to the
+                                # machine's precision.  If they said .6666668,
+                                # we fail.
+                                (my $fraction = $parts[0]) =~ s/^.*\.//;
+                                my $epsilon = 10 ** - (length($fraction));
+                                if ($epsilon > $utf8::max_floating_slop) {
+                                    $epsilon = $utf8::max_floating_slop;
+                                }
+
+                                # But it can't be tighter than the minimum
+                                # precision for this machine.  If haven't
+                                # already calculated that minimum, do so now.
+                                if (! defined $min_floating_slop) {
+
+                                    # Keep going down an order of magnitude
+                                    # until find that adding this quantity to
+                                    # 1 remains 1; but put an upper limit on
+                                    # this so in case this algorithm doesn't
+                                    # work properly on some platform, that we
+                                    # won't loop forever.
+                                    my $count = 0;
+                                    $min_floating_slop = 1;
+                                    while (1+ $min_floating_slop != 1
+                                           && $count++ < 50)
+                                    {
+                                        my $next = $min_floating_slop / 10;
+                                        last if $next == 0; # If underflows,
+                                                            # use previous one
+                                        $min_floating_slop = $next;
+                                        print STDERR __LINE__, ": min_float_slop=$min_floating_slop\n" if DEBUG;
+                                    }
+
+                                    # Back off a couple orders of magnitude,
+                                    # just to be safe.
+                                    $min_floating_slop *= 100;
+                                }
+                                    
+                                if ($epsilon < $min_floating_slop) {
+                                    $epsilon = $min_floating_slop;
+                                }
+                                print STDERR __LINE__, ": fraction=.$fraction; epsilon=$epsilon\n" if DEBUG;
+
+                                undef $table;
+
+                                # And for each possible rational in the table,
+                                # see if it is within epsilon of the input.
+                                foreach my $official
+                                        (keys %utf8::nv_floating_to_rational)
+                                {
+                                    print STDERR __LINE__, ": epsilon=$epsilon, official=$official, diff=", abs($parts[0] - $official), "\n" if DEBUG;
+                                    if (abs($parts[0] - $official) < $epsilon) {
+                                      $table =
+                                      $utf8::nv_floating_to_rational{$official};
+                                        last;
+                                    }
+                                }
+
+                                # Quit if didn't find one.
+                                if (! defined $table) {
+                                    pop @recursed if @recursed;
+                                    return $type;
+                                }
+                            }
+                        }
+                        print STDERR __LINE__, ": $property=$table\n" if DEBUG;
+                    }
+                }
+
+                # Combine lhs (if any) and rhs to get something that matches
+                # the syntax of the lookups.
+                $property_and_table = "$prefix$table";
+                print STDERR __LINE__, ": $property_and_table\n" if DEBUG;
+
+                # First try stricter matching.
+                $file = $utf8::stricter_to_file_of{$property_and_table};
+
+                # If didn't find it, try again with looser matching by editing
+                # out the applicable characters on the rhs and looking up
+                # again.
+                my $strict_property_and_table;
+                if (! defined $file) {
+
+                    # This isn't used unless the name begins with 'to'
+                    $strict_property_and_table = $property_and_table =~  s/^to//r;
+                    $table = _loose_name($table);
+                    $property_and_table = "$prefix$table";
+                    print STDERR __LINE__, ": $property_and_table\n" if DEBUG;
+                    $file = $utf8::loose_to_file_of{$property_and_table};
+                }
+
+                # Add the constant and go fetch it in.
+                if (defined $file) {
+
+                    # If the file name contains a !, it means to invert.  The
+                    # 0+ makes sure result is numeric
+                    $invert_it = 0 + $file =~ s/!//;
+
+                    if ($utf8::why_deprecated{$file}) {
+                        warnings::warnif('deprecated', "Use of '$type' in \\p{} or \\P{} is deprecated because: $utf8::why_deprecated{$file};");
+                    }
+
+                    if ($caseless
+                        && exists $utf8::caseless_equivalent{$property_and_table})
+                    {
+                        $file = $utf8::caseless_equivalent{$property_and_table};
+                    }
+
+                    # The pseudo-directory '#' means that there really isn't a
+                    # file to read, the data is in-line as part of the string;
+                    # we extract it below.
+                    $file = "$unicore_dir/lib/$file.pl" unless $file =~ m!^#/!;
+                    last GETFILE;
+                }
+                print STDERR __LINE__, ": didn't find $property_and_table\n" if DEBUG;
+
+                ##
+                ## Last attempt -- see if it's a standard "To" name
+                ## (e.g. "ToLower")  ToTitle is used by ucfirst().
+                ## The user-level way to access ToDigit() and ToFold()
+                ## is to use Unicode::UCD.
+                ##
+                # Only check if caller wants non-binary
+                if ($minbits != 1) {
+                    if ($property_and_table =~ s/^to//) {
+                    # Look input up in list of properties for which we have
+                    # mapping files.  First do it with the strict approach
+                        if (defined ($file = $utf8::strict_property_to_file_of{
+                                                    $strict_property_and_table}))
+                        {
+                            $type = $utf8::file_to_swash_name{$file};
+                            print STDERR __LINE__, ": type set to $type\n"
+                                                                        if DEBUG;
+                            $file = "$unicore_dir/$file.pl";
+                            last GETFILE;
+                        }
+                        elsif (defined ($file =
+                          $utf8::loose_property_to_file_of{$property_and_table}))
+                        {
+                            $type = $utf8::file_to_swash_name{$file};
+                            print STDERR __LINE__, ": type set to $type\n"
+                                                                        if DEBUG;
+                            $file = "$unicore_dir/$file.pl";
+                            last GETFILE;
+                        }   # If that fails see if there is a corresponding binary
+                            # property file
+                        elsif (defined ($file =
+                                    $utf8::loose_to_file_of{$property_and_table}))
+                        {
+
+                            # Here, there is no map file for the property we
+                            # are trying to get the map of, but this is a
+                            # binary property, and there is a file for it that
+                            # can easily be translated to a mapping, so use
+                            # that, treating this as a binary property.
+                            # Setting 'minbits' here causes it to be stored as
+                            # such in the cache, so if someone comes along
+                            # later looking for just a binary, they get it.
+                            $minbits = 1;
+
+                            # The 0+ makes sure is numeric
+                            $invert_it = 0 + $file =~ s/!//;
+                            $file = "$unicore_dir/lib/$file.pl"
+                                                         unless $file =~ m!^#/!;
+                            last GETFILE;
+                        }
+                    }
+                }
+
+                ##
+                ## If we reach this line, it's because we couldn't figure
+                ## out what to do with $type. Ouch.
+                ##
+
+                pop @recursed if @recursed;
+                return $type;
+            } # end of GETFILE block
+
+            if (defined $file) {
+                print STDERR __LINE__, ": found it (file='$file')\n" if DEBUG;
+
+                ##
+                ## If we reach here, it was due to a 'last GETFILE' above
+                ## (exception: user-defined properties and mappings), so we
+                ## have a filename, so now we load it if we haven't already.
+
+                # The pseudo-directory '#' means the result isn't really a
+                # file, but is in-line, with semi-colons to be turned into
+                # new-lines.  Since it is in-line there is no advantage to
+                # caching the result
+                if ($file =~ s!^#/!!) {
+                    $list = $utf8::inline_definitions[$file];
+                }
+                else {
+                    # Here, we have an actual file to read in and load, but it
+                    # may already have been read-in and cached.  The cache key
+                    # is the class and file to load, and whether the results
+                    # need to be inverted.
+                    my $found = $Cache{$class, $file, $invert_it};
+                    if ($found and ref($found) eq $class) {
+                        print STDERR __LINE__, ": Returning cached swash for '$class,$file,$invert_it' for \\p{$type}\n" if DEBUG;
+                        pop @recursed if @recursed;
+                        return $found;
+                    }
+
+                    local $@;
+                    local $!;
+                    $list = do $file; die $@ if $@;
+                }
+
+                $list_is_from_mktables = 1;
+            }
+        } # End of $type is non-null
+
+        # Here, either $type was null, or we found the requested property and
+        # read it into $list
+
+        my $extras = "";
+
+        my $bits = $minbits;
+
+        # mktables lists don't have extras, like '&utf8::prop', so don't need
+        # to separate them; also lists are already sorted, so don't need to do
+        # that.
+        if ($list && ! $list_is_from_mktables) {
+            my $taint = substr($list,0,0); # maintain taint
+
+            # Separate the extras from the code point list, and make sure
+            # user-defined properties and tr/// are well-behaved for
+            # downstream code.
+            if ($user_defined || $none) {
+                my @tmp = split(/^/m, $list);
+                my %seen;
+                no warnings;
+
+                # The extras are anything that doesn't begin with a hex digit.
+                $extras = join '', $taint, grep /^[^0-9a-fA-F]/, @tmp;
+
+                # Remove the extras, and sort the remaining entries by the
+                # numeric value of their beginning hex digits, removing any
+                # duplicates.
+                $list = join '', $taint,
+                        map  { $_->[1] }
+                        sort { $a->[0] <=> $b->[0] }
+                        map  { /^([0-9a-fA-F]+)/ && !$seen{$1}++ ? [ CORE::hex($1), $_ ] : () }
+                        @tmp; # XXX doesn't do ranges right
+            }
+            else {
+                # mktables has gone to some trouble to make non-user defined
+                # properties well-behaved, so we can skip the effort we do for
+                # user-defined ones.  Any extras are at the very beginning of
+                # the string.
+
+                # This regex splits out the first lines of $list into $1 and
+                # strips them off from $list, until we get one that begins
+                # with a hex number, alone on the line, or followed by a tab.
+                # Either portion may be empty.
+                $list =~ s/ \A ( .*? )
+                            (?: \z | (?= ^ [0-9a-fA-F]+ (?: \t | $) ) )
+                          //msx;
+
+                $extras = "$taint$1";
+            }
+        }
+
+        if ($none) {
+            my $hextra = sprintf "%04x", $none + 1;
+            $list =~ s/\tXXXX$/\t$hextra/mg;
+        }
+
+        if ($minbits != 1 && $minbits < 32) { # not binary property
+            my $top = 0;
+            while ($list =~ /^([0-9a-fA-F]+)(?:[\t]([0-9a-fA-F]+)?)(?:[ \t]([0-9a-fA-F]+))?/mg) {
+                my $min = CORE::hex $1;
+                my $max = defined $2 ? CORE::hex $2 : $min;
+                my $val = defined $3 ? CORE::hex $3 : 0;
+                $val += $max - $min if defined $3;
+                $top = $val if $val > $top;
+            }
+            my $topbits =
+                $top > 0xffff ? 32 :
+                $top > 0xff ? 16 : 8;
+            $bits = $topbits if $bits < $topbits;
+        }
+
+        my @extras;
+        if ($extras) {
+            for my $x ($extras) {
+                my $taint = substr($x,0,0); # maintain taint
+                pos $x = 0;
+                while ($x =~ /^([^0-9a-fA-F\n])(.*)/mg) {
+                    my $char = "$1$taint";
+                    my $name = "$2$taint";
+                    print STDERR __LINE__, ": char [$char] => name [$name]\n"
+                        if DEBUG;
+                    if ($char =~ /[-+!&]/) {
+                        my ($c,$t) = split(/::/, $name, 2);	# bogus use of ::, really
+                        my $subobj;
+                        if ($c eq 'utf8') {
+                            $subobj = utf8->SWASHNEW($t, "", $minbits, 0);
+                        }
+                        elsif (exists &$name) {
+                            $subobj = utf8->SWASHNEW($name, "", $minbits, 0);
+                        }
+                        elsif ($c =~ /^([0-9a-fA-F]+)/) {
+                            $subobj = utf8->SWASHNEW("", $c, $minbits, 0);
+                        }
+                        print STDERR __LINE__, ": returned from getting sub object for $name\n" if DEBUG;
+                        if (! ref $subobj) {
+                            pop @recursed if @recursed && $type;
+                            return $subobj;
+                        }
+                        push @extras, $name => $subobj;
+                        $bits = $subobj->{BITS} if $bits < $subobj->{BITS};
+                        $user_defined = $subobj->{USER_DEFINED}
+                                              if $subobj->{USER_DEFINED};
+                    }
+                }
+            }
+        }
+
+        if (DEBUG) {
+            print STDERR __LINE__, ": CLASS = $class, TYPE => $type, BITS => $bits, NONE => $none, INVERT_IT => $invert_it, USER_DEFINED => $user_defined";
+            print STDERR "\nLIST =>\n$list" if defined $list;
+            print STDERR "\nEXTRAS =>\n$extras" if defined $extras;
+            print STDERR "\n";
+        }
+
+        my $SWASH = bless {
+            TYPE => $type,
+            BITS => $bits,
+            EXTRAS => $extras,
+            LIST => $list,
+            NONE => $none,
+            USER_DEFINED => $user_defined,
+            @extras,
+        } => $class;
+
+        if ($file) {
+            $Cache{$class, $file, $invert_it} = $SWASH;
+            if ($type
+                && exists $utf8::SwashInfo{$type}
+                && exists $utf8::SwashInfo{$type}{'specials_name'})
+            {
+                my $specials_name = $utf8::SwashInfo{$type}{'specials_name'};
+                no strict "refs";
+                print STDERR "\nspecials_name => $specials_name\n" if DEBUG;
+                $SWASH->{'SPECIALS'} = \%$specials_name;
+            }
+            $SWASH->{'INVERT_IT'} = $invert_it;
+        }
+
+        pop @recursed if @recursed && $type;
+
+        return $SWASH;
+    }
+}
+
+# Now SWASHGET is recasted into a C function S_swatch_get (see utf8.c).
+
+1;
diff --git a/lib/5.24.1/vars.pm b/lib/5.24.1/vars.pm
new file mode 100644
index 00000000..6ca6bb4d
--- /dev/null
+++ b/lib/5.24.1/vars.pm
@@ -0,0 +1,83 @@
+package vars;
+
+use 5.006;
+
+our $VERSION = '1.03';
+
+use warnings::register;
+use strict qw(vars subs);
+
+sub import {
+    my $callpack = caller;
+    my (undef, @imports) = @_;
+    my ($sym, $ch);
+    foreach (@imports) {
+        if (($ch, $sym) = /^([\$\@\%\*\&])(.+)/) {
+	    if ($sym =~ /\W/) {
+		# time for a more-detailed check-up
+		if ($sym =~ /^\w+[[{].*[]}]$/) {
+		    require Carp;
+		    Carp::croak("Can't declare individual elements of hash or array");
+		} elsif (warnings::enabled() and length($sym) == 1 and $sym !~ tr/a-zA-Z//) {
+		    warnings::warn("No need to declare built-in vars");
+		} elsif  (($^H &= strict::bits('vars'))) {
+		    require Carp;
+		    Carp::croak("'$_' is not a valid variable name under strict vars");
+		}
+	    }
+	    $sym = "${callpack}::$sym" unless $sym =~ /::/;
+	    *$sym =
+		(  $ch eq "\$" ? \$$sym
+		 : $ch eq "\@" ? \@$sym
+		 : $ch eq "\%" ? \%$sym
+		 : $ch eq "\*" ? \*$sym
+		 : $ch eq "\&" ? \&$sym 
+		 : do {
+		     require Carp;
+		     Carp::croak("'$_' is not a valid variable name");
+		 });
+	} else {
+	    require Carp;
+	    Carp::croak("'$_' is not a valid variable name");
+	}
+    }
+};
+
+1;
+__END__
+
+=head1 NAME
+
+vars - Perl pragma to predeclare global variable names
+
+=head1 SYNOPSIS
+
+    use vars qw($frob @mung %seen);
+
+=head1 DESCRIPTION
+
+NOTE: For use with variables in the current package for a single scope, the
+functionality provided by this pragma has been superseded by C<our>
+declarations, available in Perl v5.6.0 or later, and use of this pragma is
+discouraged.  See L<perlfunc/our>.
+
+This will predeclare all the variables whose names are 
+in the list, allowing you to use them under "use strict", and
+disabling any typo warnings.
+
+Unlike pragmas that affect the C<$^H> hints variable, the C<use vars> and
+C<use subs> declarations are not BLOCK-scoped.  They are thus effective
+for the entire file in which they appear.  You may not rescind such
+declarations with C<no vars> or C<no subs>.
+
+Packages such as the B<AutoLoader> and B<SelfLoader> that delay
+loading of subroutines within packages can create problems with
+package lexicals defined using C<my()>. While the B<vars> pragma
+cannot duplicate the effect of package lexicals (total transparency
+outside of the package), it can act as an acceptable substitute by
+pre-declaring global symbols, ensuring their availability to the
+later-loaded routines.
+
+See L<perlmodlib/Pragmatic Modules>.
+
+=cut
diff --git a/lib/5.24.1/version.pm b/lib/5.24.1/version.pm
new file mode 100644
index 00000000..20156187
--- /dev/null
+++ b/lib/5.24.1/version.pm
@@ -0,0 +1,82 @@
+#!perl -w
+package version;
+
+use 5.006002;
+use strict;
+use warnings::register;
+if ($] >= 5.015) {
+    warnings::register_categories(qw/version/);
+}
+
+use vars qw(@ISA $VERSION $CLASS $STRICT $LAX *declare *qv);
+
+$VERSION = 0.9916;
+$CLASS = 'version';
+
+# avoid using Exporter
+require version::regex;
+*version::is_lax = \&version::regex::is_lax;
+*version::is_strict = \&version::regex::is_strict;
+*LAX = \$version::regex::LAX;
+*STRICT = \$version::regex::STRICT;
+
+sub import {
+    no strict 'refs';
+    my ($class) = shift;
+
+    # Set up any derived class
+    unless ($class eq $CLASS) {
+	local $^W;
+	*{$class.'::declare'} =  \&{$CLASS.'::declare'};
+	*{$class.'::qv'} = \&{$CLASS.'::qv'};
+    }
+
+    my %args;
+    if (@_) { # any remaining terms are arguments
+	map { $args{$_} = 1 } @_
+    }
+    else { # no parameters at all on use line
+	%args =
+	(
+	    qv => 1,
+	    'UNIVERSAL::VERSION' => 1,
+	);
+    }
+
+    my $callpkg = caller();
+
+    if (exists($args{declare})) {
+	*{$callpkg.'::declare'} =
+	    sub {return $class->declare(shift) }
+	  unless defined(&{$callpkg.'::declare'});
+    }
+
+    if (exists($args{qv})) {
+	*{$callpkg.'::qv'} =
+	    sub {return $class->qv(shift) }
+	  unless defined(&{$callpkg.'::qv'});
+    }
+
+    if (exists($args{'UNIVERSAL::VERSION'})) {
+	local $^W;
+	*UNIVERSAL::VERSION
+		= \&{$CLASS.'::_VERSION'};
+    }
+
+    if (exists($args{'VERSION'})) {
+	*{$callpkg.'::VERSION'} = \&{$CLASS.'::_VERSION'};
+    }
+
+    if (exists($args{'is_strict'})) {
+	*{$callpkg.'::is_strict'} = \&{$CLASS.'::is_strict'}
+	  unless defined(&{$callpkg.'::is_strict'});
+    }
+
+    if (exists($args{'is_lax'})) {
+	*{$callpkg.'::is_lax'} = \&{$CLASS.'::is_lax'}
+	  unless defined(&{$callpkg.'::is_lax'});
+    }
+}
+
+
+1;
diff --git a/lib/5.24.1/version.pod b/lib/5.24.1/version.pod
new file mode 100644
index 00000000..42691b1e
--- /dev/null
+++ b/lib/5.24.1/version.pod
@@ -0,0 +1,322 @@
+=head1 NAME
+
+version - Perl extension for Version Objects
+
+=head1 SYNOPSIS
+
+  # Parsing version strings (decimal or dotted-decimal)
+
+  use version 0.77; # get latest bug-fixes and API
+  $ver = version->parse($string)
+
+  # Declaring a dotted-decimal $VERSION (keep on one line!)
+
+  use version; our $VERSION = version->declare("v1.2.3"); # formal
+  use version; our $VERSION = qv("v1.2.3");               # deprecated
+  use version; our $VERSION = qv("v1.2_3");               # deprecated
+
+  # Declaring an old-style decimal $VERSION (use quotes!)
+
+  our $VERSION = "1.0203";                                # recommended
+  use version; our $VERSION = version->parse("1.0203");   # formal
+  use version; our $VERSION = version->parse("1.02_03");  # alpha
+
+  # Comparing mixed version styles (decimals, dotted-decimals, objects)
+
+  if ( version->parse($v1) == version->parse($v2) ) {
+    # do stuff
+  }
+
+  # Sorting mixed version styles
+
+  @ordered = sort { version->parse($a) <=> version->parse($b) } @list;
+
+=head1 DESCRIPTION
+
+Version objects were added to Perl in 5.10.  This module implements version
+objects for older version of Perl and provides the version object API for all
+versions of Perl.  All previous releases before 0.74 are deprecated and should
+not be used due to incompatible API changes.  Version 0.77 introduces the new
+'parse' and 'declare' methods to standardize usage.  You are strongly urged to
+set 0.77 as a minimum in your code, e.g.
+
+  use version 0.77; # even for Perl v.5.10.0
+
+=head1 TYPES OF VERSION OBJECTS
+
+There are two different types of version objects, corresponding to the two
+different styles of versions in use:
+
+=over 2
+
+=item Decimal Versions
+
+The classic floating-point number $VERSION.  The advantage to this style is
+that you don't need to do anything special, just type a number into your
+source file.  Quoting is recommended, as it ensures that trailing zeroes
+("1.50") are preserved in any warnings or other output.
+
+=item Dotted Decimal Versions
+
+The more modern form of version assignment, with 3 (or potentially more)
+integers separated by decimal points (e.g. v1.2.3).  This is the form that
+Perl itself has used since 5.6.0 was released.  The leading 'v' is now
+strongly recommended for clarity, and will throw a warning in a future
+release if omitted.  A leading 'v' character is required to pass the
+L</is_strict()> test.
+
+=back
+
+=head1 DECLARING VERSIONS
+
+If you have a module that uses a decimal $VERSION (floating point), and you
+do not intend to ever change that, this module is not for you.  There is
+nothing that version.pm gains you over a simple $VERSION assignment:
+
+  our $VERSION = "1.02";
+
+Since Perl v5.10.0 includes the version.pm comparison logic anyways,
+you don't need to do anything at all.
+
+=head2 How to convert a module from decimal to dotted-decimal
+
+If you have used a decimal $VERSION in the past and wish to switch to a
+dotted-decimal $VERSION, then you need to make a one-time conversion to
+the new format.
+
+B<Important Note>: you must ensure that your new $VERSION is numerically
+greater than your current decimal $VERSION; this is not always obvious. First,
+convert your old decimal version (e.g. 1.02) to a normalized dotted-decimal
+form:
+
+  $ perl -Mversion -e 'print version->parse("1.02")->normal'
+  v1.20.0
+
+Then increment any of the dotted-decimal components (v1.20.1 or v1.21.0).
+
+=head2 How to C<declare()> a dotted-decimal version
+
+  use version; our $VERSION = version->declare("v1.2.3");
+
+The C<declare()> method always creates dotted-decimal version objects.  When
+used in a module, you B<must> put it on the same line as "use version" to
+ensure that $VERSION is read correctly by PAUSE and installer tools.  You
+should also add 'version' to the 'configure_requires' section of your
+module metadata file.  See instructions in L<ExtUtils::MakeMaker> or
+L<Module::Build> for details.
+
+B<Important Note>: Even if you pass in what looks like a decimal number
+("1.2"), a dotted-decimal will be created ("v1.200.0"). To avoid confusion
+or unintentional errors on older Perls, follow these guidelines:
+
+=over 2
+
+=item *
+
+Always use a dotted-decimal with (at least) three components
+
+=item *
+
+Always use a leading-v
+
+=item *
+
+Always quote the version
+
+=back
+
+If you really insist on using version.pm with an ordinary decimal version,
+use C<parse()> instead of declare.  See the L<PARSING AND COMPARING VERSIONS>
+for details.
+
+See also L<version::Internals> for more on version number conversion,
+quoting, calculated version numbers and declaring developer or "alpha" version
+numbers.
+
+=head1 PARSING AND COMPARING VERSIONS
+
+If you need to compare version numbers, but can't be sure whether they are
+expressed as numbers, strings, v-strings or version objects,  then you should
+use version.pm to parse them all into objects for comparison.
+
+=head2 How to C<parse()> a version
+
+The C<parse()> method takes in anything that might be a version and returns
+a corresponding version object, doing any necessary conversion along the way.
+
+=over 2
+
+=item *
+
+Dotted-decimal: bare v-strings (v1.2.3) and strings with more than one
+decimal point and a leading 'v' ("v1.2.3"); NOTE you can technically use a
+v-string or strings with a leading-v and only one decimal point (v1.2 or
+"v1.2"), but you will confuse both yourself and others.
+
+=item *
+
+Decimal: regular decimal numbers (literal or in a string)
+
+=back
+
+Some examples:
+
+  $variable   version->parse($variable)
+  ---------   -------------------------
+  1.23        v1.230.0
+  "1.23"      v1.230.0
+  v1.23       v1.23.0
+  "v1.23"     v1.23.0
+  "1.2.3"     v1.2.3
+  "v1.2.3"    v1.2.3
+
+See L<version::Internals> for more on version number conversion.
+
+=head2 How to check for a legal version string
+
+If you do not want to actually create a full blown version object, but
+would still like to verify that a given string meets the criteria to
+be parsed as a version, there are two helper functions that can be
+employed directly:
+
+=over 4
+
+=item C<is_lax()>
+
+The lax criteria corresponds to what is currently allowed by the
+version parser.  All of the following formats are acceptable
+for dotted-decimal formats strings:
+
+    v1.2
+    1.2345.6
+    v1.23_4
+    1.2345
+    1.2345_01
+
+=item C<is_strict()>
+
+If you want to limit yourself to a much more narrow definition of what
+a version string constitutes, C<is_strict()> is limited to version
+strings like the following list:
+
+    v1.234.5
+    2.3456
+
+=back
+
+See L<version::Internals> for details of the regular expressions
+that define the legal version string forms, as well as how to use
+those regular expressions in your own code if C<is_lax()> and
+C<is_strict()> are not sufficient for your needs.
+
+=head2 How to compare version objects
+
+Version objects overload the C<cmp> and C<< <=> >> operators.  Perl
+automatically generates all of the other comparison operators based on those
+two so all the normal logical comparisons will work.
+
+  if ( version->parse($v1) == version->parse($v2) ) {
+    # do stuff
+  }
+
+If a version object is compared against a non-version object, the non-object
+term will be converted to a version object using C<parse()>.  This may give
+surprising results:
+
+  $v1 = version->parse("v0.95.0");
+  $bool = $v1 < 0.96; # FALSE since 0.96 is v0.960.0
+
+Always comparing to a version object will help avoid surprises:
+
+  $bool = $v1 < version->parse("v0.96.0"); # TRUE
+
+Note that "alpha" version objects (where the version string contains
+a trailing underscore segment) compare as less than the equivalent
+version without an underscore:
+
+  $bool = version->parse("1.23_45") < version->parse("1.2345"); # TRUE
+
+See L<version::Internals> for more details on "alpha" versions.
+
+=head1 OBJECT METHODS
+
+=head2 is_alpha()
+
+True if and only if the version object was created with a underscore, e.g.
+
+  version->parse('1.002_03')->is_alpha;  # TRUE
+  version->declare('1.2.3_4')->is_alpha; # TRUE
+
+=head2 is_qv()
+
+True only if the version object is a dotted-decimal version, e.g.
+
+  version->parse('v1.2.0')->is_qv;       # TRUE
+  version->declare('v1.2')->is_qv;       # TRUE
+  qv('1.2')->is_qv;                      # TRUE
+  version->parse('1.2')->is_qv;          # FALSE
+
+=head2 normal()
+
+Returns a string with a standard 'normalized' dotted-decimal form with a
+leading-v and at least 3 components.
+
+ version->declare('v1.2')->normal;  # v1.2.0
+ version->parse('1.2')->normal;     # v1.200.0
+
+=head2 numify()
+
+Returns a value representing the object in a pure decimal form without
+trailing zeroes.
+
+ version->declare('v1.2')->numify;  # 1.002
+ version->parse('1.2')->numify;     # 1.200
+
+=head2 stringify()
+
+Returns a string that is as close to the original representation as possible.
+If the original representation was a numeric literal, it will be returned the
+way perl would normally represent it in a string.  This method is used whenever
+a version object is interpolated into a string.
+
+ version->declare('v1.2')->stringify;    # v1.2
+ version->parse('1.200')->stringify;     # 1.200
+ version->parse(1.02_30)->stringify;     # 1.023
+
+=head1 EXPORTED FUNCTIONS
+
+=head2 qv()
+
+This function is no longer recommended for use, but is maintained for
+compatibility with existing code.  If you do not want to have it exported
+to your namespace, use this form:
+
+  use version 0.77 ();
+
+=head2 is_lax()
+
+(Not exported by default)
+
+This function takes a scalar argument and returns a boolean value indicating
+whether the argument meets the "lax" rules for a version number.  Leading and
+trailing spaces are not allowed.
+
+=head2 is_strict()
+
+(Not exported by default)
+
+This function takes a scalar argument and returns a boolean value indicating
+whether the argument meets the "strict" rules for a version number.  Leading
+and trailing spaces are not allowed.
+
+=head1 AUTHOR
+
+John Peacock E<lt>jpeacock@cpan.orgE<gt>
+
+=head1 SEE ALSO
+
+L<version::Internals>.
+
+L<perl>.
+
+=cut
diff --git a/lib/5.24.1/version/Internals.pod b/lib/5.24.1/version/Internals.pod
new file mode 100644
index 00000000..dd784fe4
--- /dev/null
+++ b/lib/5.24.1/version/Internals.pod
@@ -0,0 +1,699 @@
+=head1 NAME
+
+version::Internals - Perl extension for Version Objects
+
+=head1 DESCRIPTION
+
+Overloaded version objects for all modern versions of Perl.  This documents
+the internal data representation and underlying code for version.pm.  See
+F<version.pod> for daily usage.  This document is only useful for users
+interested in the gory details.
+
+=head1 WHAT IS A VERSION?
+
+For the purposes of this module, a version "number" is a sequence of
+positive integer values separated by one or more decimal points and
+optionally a single underscore.  This corresponds to what Perl itself
+uses for a version, as well as extending the "version as number" that
+is discussed in the various editions of the Camel book.
+
+There are actually two distinct kinds of version objects:
+
+=over 4
+
+=item Decimal versions
+
+Any version which "looks like a number", see L<Decimal Versions>.  This
+also includes versions with a single decimal point and a single embedded
+underscore, see L<Alpha Versions>, even though these must be quoted
+to preserve the underscore formatting.
+
+=item Dotted-Decimal versions
+
+Also referred to as "Dotted-Integer", these contains more than one decimal
+point and may have an optional embedded underscore, see L<Dotted-Decimal
+Versions>.  This is what is commonly used in most open source software as
+the "external" version (the one used as part of the tag or tarfile name).
+A leading 'v' character is now required and will warn if it missing.
+
+=back
+
+Both of these methods will produce similar version objects, in that
+the default stringification will yield the version L<Normal Form> only
+if required:
+
+  $v  = version->new(1.002);     # 1.002, but compares like 1.2.0
+  $v  = version->new(1.002003);  # 1.002003
+  $v2 = version->new("v1.2.3");  # v1.2.3
+
+In specific, version numbers initialized as L<Decimal Versions> will
+stringify as they were originally created (i.e. the same string that was
+passed to C<new()>.  Version numbers initialized as L<Dotted-Decimal Versions>
+will be stringified as L<Normal Form>.
+
+=head2 Decimal Versions
+
+These correspond to historical versions of Perl itself prior to 5.6.0,
+as well as all other modules which follow the Camel rules for the
+$VERSION scalar.  A Decimal version is initialized with what looks like
+a floating point number.  Leading zeros B<are> significant and trailing
+zeros are implied so that a minimum of three places is maintained
+between subversions.  What this means is that any subversion (digits
+to the right of the decimal place) that contains less than three digits
+will have trailing zeros added to make up the difference, but only for
+purposes of comparison with other version objects.  For example:
+
+                                   # Prints     Equivalent to
+  $v = version->new(      1.2);    # 1.2        v1.200.0
+  $v = version->new(     1.02);    # 1.02       v1.20.0
+  $v = version->new(    1.002);    # 1.002      v1.2.0
+  $v = version->new(   1.0023);    # 1.0023     v1.2.300
+  $v = version->new(  1.00203);    # 1.00203    v1.2.30
+  $v = version->new( 1.002003);    # 1.002003   v1.2.3
+
+All of the preceding examples are true whether or not the input value is
+quoted.  The important feature is that the input value contains only a
+single decimal.  See also L<Alpha Versions>.
+
+IMPORTANT NOTE: As shown above, if your Decimal version contains more
+than 3 significant digits after the decimal place, it will be split on
+each multiple of 3, so 1.0003 is equivalent to v1.0.300, due to the need
+to remain compatible with Perl's own 5.005_03 == 5.5.30 interpretation.
+Any trailing zeros are ignored for mathematical comparison purposes.
+
+=head2 Dotted-Decimal Versions
+
+These are the newest form of versions, and correspond to Perl's own
+version style beginning with 5.6.0.  Starting with Perl 5.10.0,
+and most likely Perl 6, this is likely to be the preferred form.  This
+method normally requires that the input parameter be quoted, although
+Perl's after 5.8.1 can use v-strings as a special form of quoting, but
+this is highly discouraged.
+
+Unlike L<Decimal Versions>, Dotted-Decimal Versions have more than
+a single decimal point, e.g.:
+
+                                   # Prints
+  $v = version->new( "v1.200");    # v1.200.0
+  $v = version->new("v1.20.0");    # v1.20.0
+  $v = qv("v1.2.3");               # v1.2.3
+  $v = qv("1.2.3");                # v1.2.3
+  $v = qv("1.20");                 # v1.20.0
+
+In general, Dotted-Decimal Versions permit the greatest amount of freedom
+to specify a version, whereas Decimal Versions enforce a certain
+uniformity.  
+
+Just like L</Decimal Versions>, Dotted-Decimal Versions can be used as
+L</Alpha Versions>.
+
+=head2 Alpha Versions
+
+For module authors using CPAN, the convention has been to note unstable
+releases with an underscore in the version string. (See L<CPAN>.)  version.pm
+follows this convention and alpha releases will test as being newer than the
+more recent stable release, and less than the next stable release.  Only the
+last element may be separated by an underscore:
+
+  # Declaring
+  use version 0.77; our $VERSION = version->declare("v1.2_3");
+
+  # Parsing
+  $v1 = version->parse("v1.2_3");
+  $v1 = version->parse("1.002_003");
+
+Note that you B<must> quote the version when writing an alpha Decimal version.
+The stringified form of Decimal versions will always be the same string that
+was used to initialize the version object.
+
+=head2 Regular Expressions for Version Parsing
+
+A formalized definition of the legal forms for version strings is
+included in the C<version::regex> class.  Primitives are included for
+common elements, although they are scoped to the file so they are useful
+for reference purposes only.  There are two publicly accessible scalars
+that can be used in other code (not exported):
+
+=over 4
+
+=item C<$version::LAX>
+
+This regexp covers all of the legal forms allowed under the current
+version string parser.  This is not to say that all of these forms
+are recommended, and some of them can only be used when quoted.
+
+For dotted decimals:
+
+    v1.2
+    1.2345.6
+    v1.23_4
+
+The leading 'v' is optional if two or more decimals appear.  If only
+a single decimal is included, then the leading 'v' is required to
+trigger the dotted-decimal parsing.  A leading zero is permitted,
+though not recommended except when quoted, because of the risk that
+Perl will treat the number as octal.  A trailing underscore plus one
+or more digits denotes an alpha or development release (and must be
+quoted to be parsed properly).
+
+For decimal versions:
+
+    1
+    1.2345
+    1.2345_01
+
+an integer portion, an optional decimal point, and optionally one or
+more digits to the right of the decimal are all required.  A trailing
+underscore is permitted and a leading zero is permitted.  Just like
+the lax dotted-decimal version, quoting the values is required for
+alpha/development forms to be parsed correctly.
+
+=item C<$version::STRICT>
+
+This regexp covers a much more limited set of formats and constitutes
+the best practices for initializing version objects.  Whether you choose
+to employ decimal or dotted-decimal for is a personal preference however.
+
+=over 4
+
+=item v1.234.5
+
+For dotted-decimal versions, a leading 'v' is required, with three or
+more sub-versions of no more than three digits.  A leading 0 (zero)
+before the first sub-version (in the above example, '1') is also
+prohibited.
+
+=item 2.3456
+
+For decimal versions, an integer portion (no leading 0), a decimal point,
+and one or more digits to the right of the decimal are all required.
+
+=back
+
+=back
+
+Both of the provided scalars are already compiled as regular expressions
+and do not contain either anchors or implicit groupings, so they can be
+included in your own regular expressions freely.  For example, consider
+the following code:
+
+	($pkg, $ver) =~ /
+		^[ \t]*
+		use [ \t]+($PKGNAME)
+		(?:[ \t]+($version::STRICT))?
+		[ \t]*;
+	/x;
+
+This would match a line of the form:
+
+	use Foo::Bar::Baz v1.2.3;	# legal only in Perl 5.8.1+
+
+where C<$PKGNAME> is another regular expression that defines the legal
+forms for package names.
+
+=head1 IMPLEMENTATION DETAILS
+
+=head2 Equivalence between Decimal and Dotted-Decimal Versions
+
+When Perl 5.6.0 was released, the decision was made to provide a
+transformation between the old-style decimal versions and new-style
+dotted-decimal versions:
+
+  5.6.0    == 5.006000
+  5.005_04 == 5.5.40
+
+The floating point number is taken and split first on the single decimal
+place, then each group of three digits to the right of the decimal makes up
+the next digit, and so on until the number of significant digits is exhausted,
+B<plus> enough trailing zeros to reach the next multiple of three.
+
+This was the method that version.pm adopted as well.  Some examples may be
+helpful:
+
+                            equivalent
+  decimal    zero-padded    dotted-decimal
+  -------    -----------    --------------
+  1.2        1.200          v1.200.0
+  1.02       1.020          v1.20.0
+  1.002      1.002          v1.2.0
+  1.0023     1.002300       v1.2.300
+  1.00203    1.002030       v1.2.30
+  1.002003   1.002003       v1.2.3
+
+=head2 Quoting Rules
+
+Because of the nature of the Perl parsing and tokenizing routines,
+certain initialization values B<must> be quoted in order to correctly
+parse as the intended version, especially when using the C<declare> or
+L</qv()> methods.  While you do not have to quote decimal numbers when
+creating version objects, it is always safe to quote B<all> initial values
+when using version.pm methods, as this will ensure that what you type is
+what is used.
+
+Additionally, if you quote your initializer, then the quoted value that goes
+B<in> will be exactly what comes B<out> when your $VERSION is printed
+(stringified).  If you do not quote your value, Perl's normal numeric handling
+comes into play and you may not get back what you were expecting.
+
+If you use a mathematic formula that resolves to a floating point number,
+you are dependent on Perl's conversion routines to yield the version you
+expect.  You are pretty safe by dividing by a power of 10, for example,
+but other operations are not likely to be what you intend.  For example:
+
+  $VERSION = version->new((qw$Revision: 1.4)[1]/10);
+  print $VERSION;          # yields 0.14
+  $V2 = version->new(100/9); # Integer overflow in decimal number
+  print $V2;               # yields something like 11.111.111.100
+
+Perl 5.8.1 and beyond are able to automatically quote v-strings but
+that is not possible in earlier versions of Perl.  In other words:
+
+  $version = version->new("v2.5.4");  # legal in all versions of Perl
+  $newvers = version->new(v2.5.4);    # legal only in Perl >= 5.8.1
+
+=head2 What about v-strings?
+
+There are two ways to enter v-strings: a bare number with two or more
+decimal points, or a bare number with one or more decimal points and a
+leading 'v' character (also bare).  For example:
+
+  $vs1 = 1.2.3; # encoded as \1\2\3
+  $vs2 = v1.2;  # encoded as \1\2
+
+However, the use of bare v-strings to initialize version objects is
+B<strongly> discouraged in all circumstances.  Also, bare
+v-strings are not completely supported in any version of Perl prior to
+5.8.1.
+
+If you insist on using bare v-strings with Perl > 5.6.0, be aware of the
+following limitations:
+
+1) For Perl releases 5.6.0 through 5.8.0, the v-string code merely guesses,
+based on some characteristics of v-strings.  You B<must> use a three part
+version, e.g. 1.2.3 or v1.2.3 in order for this heuristic to be successful.
+
+2) For Perl releases 5.8.1 and later, v-strings have changed in the Perl
+core to be magical, which means that the version.pm code can automatically
+determine whether the v-string encoding was used.
+
+3) In all cases, a version created using v-strings will have a stringified
+form that has a leading 'v' character, for the simple reason that sometimes
+it is impossible to tell whether one was present initially.
+
+=head2 Version Object Internals
+
+version.pm provides an overloaded version object that is designed to both
+encapsulate the author's intended $VERSION assignment as well as make it
+completely natural to use those objects as if they were numbers (e.g. for
+comparisons).  To do this, a version object contains both the original
+representation as typed by the author, as well as a parsed representation
+to ease comparisons.  Version objects employ L<overload> methods to
+simplify code that needs to compare, print, etc the objects.
+
+The internal structure of version objects is a blessed hash with several
+components:
+
+    bless( {
+      'original' => 'v1.2.3_4',
+      'alpha' => 1,
+      'qv' => 1,
+      'version' => [
+	1,
+	2,
+	3,
+	4
+      ]
+    }, 'version' );
+
+=over 4
+
+=item original
+
+A faithful representation of the value used to initialize this version
+object.  The only time this will not be precisely the same characters
+that exist in the source file is if a short dotted-decimal version like
+v1.2 was used (in which case it will contain 'v1.2').  This form is
+B<STRONGLY> discouraged, in that it will confuse you and your users.
+
+=item qv
+
+A boolean that denotes whether this is a decimal or dotted-decimal version.
+See L<version/is_qv()>.
+
+=item alpha
+
+A boolean that denotes whether this is an alpha version.  NOTE: that the
+underscore can only appear in the last position.  See L<version/is_alpha()>.
+
+=item version
+
+An array of non-negative integers that is used for comparison purposes with
+other version objects.
+
+=back
+
+=head2 Replacement UNIVERSAL::VERSION
+
+In addition to the version objects, this modules also replaces the core
+UNIVERSAL::VERSION function with one that uses version objects for its
+comparisons.  The return from this operator is always the stringified form
+as a simple scalar (i.e. not an object), but the warning message generated
+includes either the stringified form or the normal form, depending on how
+it was called.
+
+For example:
+
+  package Foo;
+  $VERSION = 1.2;
+
+  package Bar;
+  $VERSION = "v1.3.5"; # works with all Perl's (since it is quoted)
+
+  package main;
+  use version;
+
+  print $Foo::VERSION; # prints 1.2
+
+  print $Bar::VERSION; # prints 1.003005
+
+  eval "use foo 10";
+  print $@; # prints "foo version 10 required..."
+  eval "use foo 1.3.5; # work in Perl 5.6.1 or better
+  print $@; # prints "foo version 1.3.5 required..."
+
+  eval "use bar 1.3.6";
+  print $@; # prints "bar version 1.3.6 required..."
+  eval "use bar 1.004"; # note Decimal version
+  print $@; # prints "bar version 1.004 required..."
+
+
+IMPORTANT NOTE: This may mean that code which searches for a specific
+string (to determine whether a given module is available) may need to be
+changed.  It is always better to use the built-in comparison implicit in
+C<use> or C<require>, rather than manually poking at C<< class->VERSION >>
+and then doing a comparison yourself.
+
+The replacement UNIVERSAL::VERSION, when used as a function, like this:
+
+  print $module->VERSION;
+
+will also exclusively return the stringified form.  See L</Stringification>
+for more details.
+
+=head1 USAGE DETAILS
+
+=head2 Using modules that use version.pm
+
+As much as possible, the version.pm module remains compatible with all
+current code.  However, if your module is using a module that has defined
+C<$VERSION> using the version class, there are a couple of things to be
+aware of.  For purposes of discussion, we will assume that we have the
+following module installed:
+
+  package Example;
+  use version;  $VERSION = qv('1.2.2');
+  ...module code here...
+  1;
+
+=over 4
+
+=item Decimal versions always work
+
+Code of the form:
+
+  use Example 1.002003;
+
+will always work correctly.  The C<use> will perform an automatic
+C<$VERSION> comparison using the floating point number given as the first
+term after the module name (e.g. above 1.002.003).  In this case, the
+installed module is too old for the requested line, so you would see an
+error like:
+
+  Example version 1.002003 (v1.2.3) required--this is only version 1.002002 (v1.2.2)...
+
+=item Dotted-Decimal version work sometimes
+
+With Perl >= 5.6.2, you can also use a line like this:
+
+  use Example 1.2.3;
+
+and it will again work (i.e. give the error message as above), even with
+releases of Perl which do not normally support v-strings (see L<What about v-strings?> above).  This has to do with that fact that C<use> only checks
+to see if the second term I<looks like a number> and passes that to the
+replacement L<UNIVERSAL::VERSION|UNIVERSAL/VERSION>.  This is not true in Perl 5.005_04,
+however, so you are B<strongly encouraged> to always use a Decimal version
+in your code, even for those versions of Perl which support the Dotted-Decimal
+version.
+
+=back
+
+=head2 Object Methods
+
+=over 4
+
+=item new()
+
+Like many OO interfaces, the new() method is used to initialize version
+objects.  If two arguments are passed to C<new()>, the B<second> one will be
+used as if it were prefixed with "v".  This is to support historical use of the
+C<qw> operator with the CVS variable $Revision, which is automatically
+incremented by CVS every time the file is committed to the repository.
+
+In order to facilitate this feature, the following
+code can be employed:
+
+  $VERSION = version->new(qw$Revision: 2.7 $);
+
+and the version object will be created as if the following code
+were used:
+
+  $VERSION = version->new("v2.7");
+
+In other words, the version will be automatically parsed out of the
+string, and it will be quoted to preserve the meaning CVS normally
+carries for versions.  The CVS $Revision$ increments differently from
+Decimal versions (i.e. 1.10 follows 1.9), so it must be handled as if
+it were a Dotted-Decimal Version.
+
+A new version object can be created as a copy of an existing version
+object, either as a class method:
+
+  $v1 = version->new(12.3);
+  $v2 = version->new($v1);
+
+or as an object method:
+
+  $v1 = version->new(12.3);
+  $v2 = $v1->new(12.3);
+
+and in each case, $v1 and $v2 will be identical.  NOTE: if you create
+a new object using an existing object like this:
+
+  $v2 = $v1->new();
+
+the new object B<will not> be a clone of the existing object.  In the
+example case, $v2 will be an empty object of the same type as $v1.
+
+=back
+
+=over 4
+
+=item qv()
+
+An alternate way to create a new version object is through the exported
+qv() sub.  This is not strictly like other q? operators (like qq, qw),
+in that the only delimiters supported are parentheses (or spaces).  It is
+the best way to initialize a short version without triggering the floating
+point interpretation.  For example:
+
+  $v1 = qv(1.2);         # v1.2.0
+  $v2 = qv("1.2");       # also v1.2.0
+
+As you can see, either a bare number or a quoted string can usually
+be used interchangeably, except in the case of a trailing zero, which
+must be quoted to be converted properly.  For this reason, it is strongly
+recommended that all initializers to qv() be quoted strings instead of
+bare numbers.
+
+To prevent the C<qv()> function from being exported to the caller's namespace,
+either use version with a null parameter:
+
+  use version ();
+
+or just require version, like this:
+
+  require version;
+
+Both methods will prevent the import() method from firing and exporting the
+C<qv()> sub.
+
+=back
+
+For the subsequent examples, the following three objects will be used:
+
+  $ver   = version->new("1.2.3.4"); # see "Quoting Rules"
+  $alpha = version->new("1.2.3_4"); # see "Alpha Versions"
+  $nver  = version->new(1.002);     # see "Decimal Versions"
+
+=over 4
+
+=item Normal Form
+
+For any version object which is initialized with multiple decimal
+places (either quoted or if possible v-string), or initialized using
+the L<qv()|version/qv()> operator, the stringified representation is returned in
+a normalized or reduced form (no extraneous zeros), and with a leading 'v':
+
+  print $ver->normal;         # prints as v1.2.3.4
+  print $ver->stringify;      # ditto
+  print $ver;                 # ditto
+  print $nver->normal;        # prints as v1.2.0
+  print $nver->stringify;     # prints as 1.002,
+                              # see "Stringification"
+
+In order to preserve the meaning of the processed version, the
+normalized representation will always contain at least three sub terms.
+In other words, the following is guaranteed to always be true:
+
+  my $newver = version->new($ver->stringify);
+  if ($newver eq $ver ) # always true
+    {...}
+
+=back
+
+=over 4
+
+=item Numification
+
+Although all mathematical operations on version objects are forbidden
+by default, it is possible to retrieve a number which corresponds
+to the version object through the use of the $obj->numify
+method.  For formatting purposes, when displaying a number which
+corresponds a version object, all sub versions are assumed to have
+three decimal places.  So for example:
+
+  print $ver->numify;         # prints 1.002003004
+  print $nver->numify;        # prints 1.002
+
+Unlike the stringification operator, there is never any need to append
+trailing zeros to preserve the correct version value.
+
+=back
+
+=over 4
+
+=item Stringification
+
+The default stringification for version objects returns exactly the same
+string as was used to create it, whether you used C<new()> or C<qv()>,
+with one exception.  The sole exception is if the object was created using
+C<qv()> and the initializer did not have two decimal places or a leading
+'v' (both optional), then the stringified form will have a leading 'v'
+prepended, in order to support round-trip processing.
+
+For example:
+
+  Initialized as          Stringifies to
+  ==============          ==============
+  version->new("1.2")       1.2
+  version->new("v1.2")     v1.2
+  qv("1.2.3")               1.2.3
+  qv("v1.3.5")             v1.3.5
+  qv("1.2")                v1.2   ### exceptional case
+
+See also L<UNIVERSAL::VERSION|UNIVERSAL/VERSION>, as this also returns the stringified form
+when used as a class method.
+
+IMPORTANT NOTE: There is one exceptional cases shown in the above table
+where the "initializer" is not stringwise equivalent to the stringified
+representation.  If you use the C<qv>() operator on a version without a
+leading 'v' B<and> with only a single decimal place, the stringified output
+will have a leading 'v', to preserve the sense.  See the L</qv()> operator
+for more details.
+
+IMPORTANT NOTE 2: Attempting to bypass the normal stringification rules by
+manually applying L<numify()|version/numify()> and L<normal()|version/normal()>  will sometimes yield
+surprising results:
+
+  print version->new(version->new("v1.0")->numify)->normal; # v1.0.0
+
+The reason for this is that the L<numify()|version/numify()> operator will turn "v1.0"
+into the equivalent string "1.000000".  Forcing the outer version object
+to L<normal()|version/normal()> form will display the mathematically equivalent "v1.0.0".
+
+As the example in L</new()> shows, you can always create a copy of an
+existing version object with the same value by the very compact:
+
+  $v2 = $v1->new($v1);
+
+and be assured that both C<$v1> and C<$v2> will be completely equivalent,
+down to the same internal representation as well as stringification.
+
+=back
+
+=over 4
+
+=item Comparison operators
+
+Both C<cmp> and C<E<lt>=E<gt>> operators perform the same comparison between
+terms (upgrading to a version object automatically).  Perl automatically
+generates all of the other comparison operators based on those two.
+In addition to the obvious equalities listed below, appending a single
+trailing 0 term does not change the value of a version for comparison
+purposes.  In other words "v1.2" and "1.2.0" will compare as identical.
+
+For example, the following relations hold:
+
+  As Number        As String           Truth Value
+  -------------    ----------------    -----------
+  $ver >  1.0      $ver gt "1.0"       true
+  $ver <  2.5      $ver lt             true
+  $ver != 1.3      $ver ne "1.3"       true
+  $ver == 1.2      $ver eq "1.2"       false
+  $ver == 1.2.3.4  $ver eq "1.2.3.4"   see discussion below
+
+It is probably best to chose either the Decimal notation or the string
+notation and stick with it, to reduce confusion.  Perl6 version objects
+B<may> only support Decimal comparisons.  See also L<Quoting Rules>.
+
+WARNING: Comparing version with unequal numbers of decimal points (whether
+explicitly or implicitly initialized), may yield unexpected results at
+first glance.  For example, the following inequalities hold:
+
+  version->new(0.96)     > version->new(0.95); # 0.960.0 > 0.950.0
+  version->new("0.96.1") < version->new(0.95); # 0.096.1 < 0.950.0
+
+For this reason, it is best to use either exclusively L<Decimal Versions> or
+L<Dotted-Decimal Versions> with multiple decimal points.
+
+=back
+
+=over 4
+
+=item Logical Operators
+
+If you need to test whether a version object
+has been initialized, you can simply test it directly:
+
+  $vobj = version->new($something);
+  if ( $vobj )   # true only if $something was non-blank
+
+You can also test whether a version object is an alpha version, for
+example to prevent the use of some feature not present in the main
+release:
+
+  $vobj = version->new("1.2_3"); # MUST QUOTE
+  ...later...
+  if ( $vobj->is_alpha )       # True
+
+=back
+
+=head1 AUTHOR
+
+John Peacock E<lt>jpeacock@cpan.orgE<gt>
+
+=head1 SEE ALSO
+
+L<perl>.
+
+=cut
diff --git a/lib/5.24.1/version/regex.pm b/lib/5.24.1/version/regex.pm
new file mode 100644
index 00000000..62c1f227
--- /dev/null
+++ b/lib/5.24.1/version/regex.pm
@@ -0,0 +1,117 @@
+package version::regex;
+
+use strict;
+
+use vars qw($VERSION $CLASS $STRICT $LAX);
+
+$VERSION = 0.9916;
+
+#--------------------------------------------------------------------------#
+# Version regexp components
+#--------------------------------------------------------------------------#
+
+# Fraction part of a decimal version number.  This is a common part of
+# both strict and lax decimal versions
+
+my $FRACTION_PART = qr/\.[0-9]+/;
+
+# First part of either decimal or dotted-decimal strict version number.
+# Unsigned integer with no leading zeroes (except for zero itself) to
+# avoid confusion with octal.
+
+my $STRICT_INTEGER_PART = qr/0|[1-9][0-9]*/;
+
+# First part of either decimal or dotted-decimal lax version number.
+# Unsigned integer, but allowing leading zeros.  Always interpreted
+# as decimal.  However, some forms of the resulting syntax give odd
+# results if used as ordinary Perl expressions, due to how perl treats
+# octals.  E.g.
+#   version->new("010" ) == 10
+#   version->new( 010  ) == 8
+#   version->new( 010.2) == 82  # "8" . "2"
+
+my $LAX_INTEGER_PART = qr/[0-9]+/;
+
+# Second and subsequent part of a strict dotted-decimal version number.
+# Leading zeroes are permitted, and the number is always decimal.
+# Limited to three digits to avoid overflow when converting to decimal
+# form and also avoid problematic style with excessive leading zeroes.
+
+my $STRICT_DOTTED_DECIMAL_PART = qr/\.[0-9]{1,3}/;
+
+# Second and subsequent part of a lax dotted-decimal version number.
+# Leading zeroes are permitted, and the number is always decimal.  No
+# limit on the numerical value or number of digits, so there is the
+# possibility of overflow when converting to decimal form.
+
+my $LAX_DOTTED_DECIMAL_PART = qr/\.[0-9]+/;
+
+# Alpha suffix part of lax version number syntax.  Acts like a
+# dotted-decimal part.
+
+my $LAX_ALPHA_PART = qr/_[0-9]+/;
+
+#--------------------------------------------------------------------------#
+# Strict version regexp definitions
+#--------------------------------------------------------------------------#
+
+# Strict decimal version number.
+
+my $STRICT_DECIMAL_VERSION =
+    qr/ $STRICT_INTEGER_PART $FRACTION_PART? /x;
+
+# Strict dotted-decimal version number.  Must have both leading "v" and
+# at least three parts, to avoid confusion with decimal syntax.
+
+my $STRICT_DOTTED_DECIMAL_VERSION =
+    qr/ v $STRICT_INTEGER_PART $STRICT_DOTTED_DECIMAL_PART{2,} /x;
+
+# Complete strict version number syntax -- should generally be used
+# anchored: qr/ \A $STRICT \z /x
+
+$STRICT =
+    qr/ $STRICT_DECIMAL_VERSION | $STRICT_DOTTED_DECIMAL_VERSION /x;
+
+#--------------------------------------------------------------------------#
+# Lax version regexp definitions
+#--------------------------------------------------------------------------#
+
+# Lax decimal version number.  Just like the strict one except for
+# allowing an alpha suffix or allowing a leading or trailing
+# decimal-point
+
+my $LAX_DECIMAL_VERSION =
+    qr/ $LAX_INTEGER_PART (?: \. | $FRACTION_PART $LAX_ALPHA_PART? )?
+	|
+	$FRACTION_PART $LAX_ALPHA_PART?
+    /x;
+
+# Lax dotted-decimal version number.  Distinguished by having either
+# leading "v" or at least three non-alpha parts.  Alpha part is only
+# permitted if there are at least two non-alpha parts. Strangely
+# enough, without the leading "v", Perl takes .1.2 to mean v0.1.2,
+# so when there is no "v", the leading part is optional
+
+my $LAX_DOTTED_DECIMAL_VERSION =
+    qr/
+	v $LAX_INTEGER_PART (?: $LAX_DOTTED_DECIMAL_PART+ $LAX_ALPHA_PART? )?
+	|
+	$LAX_INTEGER_PART? $LAX_DOTTED_DECIMAL_PART{2,} $LAX_ALPHA_PART?
+    /x;
+
+# Complete lax version number syntax -- should generally be used
+# anchored: qr/ \A $LAX \z /x
+#
+# The string 'undef' is a special case to make for easier handling
+# of return values from ExtUtils::MM->parse_version
+
+$LAX =
+    qr/ undef | $LAX_DECIMAL_VERSION | $LAX_DOTTED_DECIMAL_VERSION /x;
+
+#--------------------------------------------------------------------------#
+
+# Preloaded methods go here.
+sub is_strict	{ defined $_[0] && $_[0] =~ qr/ \A $STRICT \z /x }
+sub is_lax	{ defined $_[0] && $_[0] =~ qr/ \A $LAX \z /x }
+
+1;
diff --git a/lib/5.24.1/vmsish.pm b/lib/5.24.1/vmsish.pm
new file mode 100644
index 00000000..d7686a2f
--- /dev/null
+++ b/lib/5.24.1/vmsish.pm
@@ -0,0 +1,154 @@
+package vmsish;
+
+our $VERSION = '1.04';
+
+=head1 NAME
+
+vmsish - Perl pragma to control VMS-specific language features
+
+=head1 SYNOPSIS
+
+    use vmsish;
+
+    use vmsish 'status';	# or '$?'
+    use vmsish 'exit';
+    use vmsish 'time';
+
+    use vmsish 'hushed';
+    no vmsish 'hushed';
+    vmsish::hushed($hush);
+
+    use vmsish;
+    no vmsish 'time';
+
+=head1 DESCRIPTION
+
+If no import list is supplied, all possible VMS-specific features are
+assumed.  Currently, there are four VMS-specific features available:
+'status' (a.k.a '$?'), 'exit', 'time' and 'hushed'.
+
+If you're not running VMS, this module does nothing.
+
+=over 6
+
+=item C<vmsish status>
+
+This makes C<$?> and C<system> return the native VMS exit status
+instead of emulating the POSIX exit status.
+
+=item C<vmsish exit>
+
+This makes C<exit 1> produce a successful exit (with status SS$_NORMAL),
+instead of emulating UNIX exit(), which considers C<exit 1> to indicate
+an error.  As with the CRTL's exit() function, C<exit 0> is also mapped
+to an exit status of SS$_NORMAL, and any other argument to exit() is
+used directly as Perl's exit status.
+
+=item C<vmsish time>
+
+This makes all times relative to the local time zone, instead of the
+default of Universal Time (a.k.a Greenwich Mean Time, or GMT).
+
+=item C<vmsish hushed>
+
+This suppresses printing of VMS status messages to SYS$OUTPUT and
+SYS$ERROR if Perl terminates with an error status, and allows
+programs that are expecting "unix-style" Perl to avoid having to parse
+VMS error messages.  It does not suppress any messages from Perl
+itself, just the messages generated by DCL after Perl exits.  The DCL
+symbol $STATUS will still have the termination status, but with a
+high-order bit set:
+
+EXAMPLE:
+    $ perl -e"exit 44;"                          Non-hushed error exit
+    %SYSTEM-F-ABORT, abort                       DCL message
+    $ show sym $STATUS
+      $STATUS == "%X0000002C"
+
+    $ perl -e"use vmsish qw(hushed); exit 44;"   Hushed error exit
+    $ show sym $STATUS
+      $STATUS == "%X1000002C"
+
+The 'hushed' flag has a global scope during compilation: the exit() or
+die() commands that are compiled after 'vmsish hushed' will be hushed
+when they are executed.  Doing a "no vmsish 'hushed'" turns off the
+hushed flag.
+
+The status of the hushed flag also affects output of VMS error
+messages from compilation errors.   Again, you still get the Perl
+error message (and the code in $STATUS)
+
+EXAMPLE:
+    use vmsish 'hushed';    # turn on hushed flag
+    use Carp;          # Carp compiled hushed
+    exit 44;           # will be hushed
+    croak('I die');    # will be hushed
+    no vmsish 'hushed';     # turn off hushed flag
+    exit 44;           # will not be hushed
+    croak('I die2'):   # WILL be hushed, croak was compiled hushed
+
+You can also control the 'hushed' flag at run-time, using the built-in
+routine vmsish::hushed().  Without argument, it returns the hushed status.
+Since vmsish::hushed is built-in, you do not need to "use vmsish" to call
+it.
+
+EXAMPLE:
+    if ($quiet_exit) {
+        vmsish::hushed(1);
+    } 
+    print "Sssshhhh...I'm hushed...\n" if vmsish::hushed();
+    exit 44;
+
+Note that an exit() or die() that is compiled 'hushed' because of "use
+vmsish" is not un-hushed by calling vmsish::hushed(0) at runtime.
+
+The messages from error exits from inside the Perl core are generally
+more serious, and are not suppressed.
+
+=back
+
+See L<perlmod/Perl Modules>.
+
+=cut
+
+my $IsVMS = $^O eq 'VMS';
+
+sub bits {
+    my $bits = 0;
+    my $sememe;
+    foreach $sememe (@_) {
+	# Those hints are defined in vms/vmsish.h :
+	# HINT_M_VMSISH_STATUS and HINT_M_VMSISH_TIME
+        $bits |= 0x40000000, next if $sememe eq 'status' || $sememe eq '$?';
+	$bits |= 0x80000000, next if $sememe eq 'time';
+    }
+    $bits;
+}
+
+sub import {
+    return unless $IsVMS;
+
+    shift;
+    $^H |= bits(@_ ? @_ : qw(status time));
+    my $sememe;
+
+    foreach $sememe (@_ ? @_ : qw(exit hushed)) {
+        $^H{'vmsish_exit'}   = 1 if $sememe eq 'exit';
+        vmsish::hushed(1) if $sememe eq 'hushed';
+    }
+}
+
+sub unimport {
+    return unless $IsVMS;
+
+    shift;
+    $^H &= ~ bits(@_ ? @_ : qw(status time));
+    my $sememe;
+
+    foreach $sememe (@_ ? @_ : qw(exit hushed)) {
+        $^H{'vmsish_exit'}   = 0 if $sememe eq 'exit';
+        vmsish::hushed(0) if $sememe eq 'hushed';
+    }
+}
+
+1;
diff --git a/lib/5.24.1/warnings.pm b/lib/5.24.1/warnings.pm
new file mode 100644
index 00000000..ddb0c35e
--- /dev/null
+++ b/lib/5.24.1/warnings.pm
@@ -0,0 +1,1243 @@
+# -*- buffer-read-only: t -*-
+# !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+# This file is built by regen/warnings.pl.
+# Any changes made here will be lost!
+
+package warnings;
+
+our $VERSION = "1.36";
+
+# Verify that we're called correctly so that warnings will work.
+# Can't use Carp, since Carp uses us!
+# String regexps because constant folding = smaller optree = less memory vs regexp literal
+# see also strict.pm.
+die sprintf "Incorrect use of pragma '%s' at %s line %d.\n", __PACKAGE__, +(caller)[1,2]
+    if __FILE__ !~ ( '(?x) \b     '.__PACKAGE__.'  \.pmc? \z' )
+    && __FILE__ =~ ( '(?x) \b (?i:'.__PACKAGE__.') \.pmc? \z' );
+
+our %Offsets = (
+    # Warnings Categories added in Perl 5.008
+    'all'				=> 0,
+    'closure'				=> 2,
+    'deprecated'			=> 4,
+    'exiting'				=> 6,
+    'glob'				=> 8,
+    'io'				=> 10,
+    'closed'				=> 12,
+    'exec'				=> 14,
+    'layer'				=> 16,
+    'newline'				=> 18,
+    'pipe'				=> 20,
+    'unopened'				=> 22,
+    'misc'				=> 24,
+    'numeric'				=> 26,
+    'once'				=> 28,
+    'overflow'				=> 30,
+    'pack'				=> 32,
+    'portable'				=> 34,
+    'recursion'				=> 36,
+    'redefine'				=> 38,
+    'regexp'				=> 40,
+    'severe'				=> 42,
+    'debugging'				=> 44,
+    'inplace'				=> 46,
+    'internal'				=> 48,
+    'malloc'				=> 50,
+    'signal'				=> 52,
+    'substr'				=> 54,
+    'syntax'				=> 56,
+    'ambiguous'				=> 58,
+    'bareword'				=> 60,
+    'digit'				=> 62,
+    'parenthesis'			=> 64,
+    'precedence'			=> 66,
+    'printf'				=> 68,
+    'prototype'				=> 70,
+    'qw'				=> 72,
+    'reserved'				=> 74,
+    'semicolon'				=> 76,
+    'taint'				=> 78,
+    'threads'				=> 80,
+    'uninitialized'			=> 82,
+    'unpack'				=> 84,
+    'untie'				=> 86,
+    'utf8'				=> 88,
+    'void'				=> 90,
+
+    # Warnings Categories added in Perl 5.011
+    'imprecision'			=> 92,
+    'illegalproto'			=> 94,
+
+    # Warnings Categories added in Perl 5.013
+    'non_unicode'			=> 96,
+    'nonchar'				=> 98,
+    'surrogate'				=> 100,
+
+    # Warnings Categories added in Perl 5.017
+    'experimental'			=> 102,
+    'experimental::lexical_subs'	=> 104,
+    'experimental::regex_sets'		=> 106,
+    'experimental::smartmatch'		=> 108,
+
+    # Warnings Categories added in Perl 5.019
+    'experimental::postderef'		=> 110,
+    'experimental::signatures'		=> 112,
+    'syscalls'				=> 114,
+
+    # Warnings Categories added in Perl 5.021
+    'experimental::bitwise'		=> 116,
+    'experimental::const_attr'		=> 118,
+    'experimental::re_strict'		=> 120,
+    'experimental::refaliasing'		=> 122,
+    'experimental::win32_perlio'	=> 124,
+    'locale'				=> 126,
+    'missing'				=> 128,
+    'redundant'				=> 130,
+);
+
+our %Bits = (
+    'all'				=> "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x05", # [0..65]
+    'ambiguous'				=> "\x00\x00\x00\x00\x00\x00\x00\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [29]
+    'bareword'				=> "\x00\x00\x00\x00\x00\x00\x00\x10\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [30]
+    'closed'				=> "\x00\x10\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [6]
+    'closure'				=> "\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [1]
+    'debugging'				=> "\x00\x00\x00\x00\x00\x10\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [22]
+    'deprecated'			=> "\x10\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [2]
+    'digit'				=> "\x00\x00\x00\x00\x00\x00\x00\x40\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [31]
+    'exec'				=> "\x00\x40\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [7]
+    'exiting'				=> "\x40\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [3]
+    'experimental'			=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x40\x55\x51\x15\x00", # [51..56,58..62]
+    'experimental::bitwise'		=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10\x00\x00", # [58]
+    'experimental::const_attr'		=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x40\x00\x00", # [59]
+    'experimental::lexical_subs'	=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00\x00\x00", # [52]
+    'experimental::postderef'		=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x40\x00\x00\x00", # [55]
+    'experimental::re_strict'		=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00", # [60]
+    'experimental::refaliasing'		=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x04\x00", # [61]
+    'experimental::regex_sets'		=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x04\x00\x00\x00", # [53]
+    'experimental::signatures'		=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00\x00", # [56]
+    'experimental::smartmatch'		=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10\x00\x00\x00", # [54]
+    'experimental::win32_perlio'	=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10\x00", # [62]
+    'glob'				=> "\x00\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [4]
+    'illegalproto'			=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x40\x00\x00\x00\x00\x00", # [47]
+    'imprecision'			=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10\x00\x00\x00\x00\x00", # [46]
+    'inplace'				=> "\x00\x00\x00\x00\x00\x40\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [23]
+    'internal'				=> "\x00\x00\x00\x00\x00\x00\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [24]
+    'io'				=> "\x00\x54\x55\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x04\x00\x00", # [5..11,57]
+    'layer'				=> "\x00\x00\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [8]
+    'locale'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x40\x00", # [63]
+    'malloc'				=> "\x00\x00\x00\x00\x00\x00\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [25]
+    'misc'				=> "\x00\x00\x00\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [12]
+    'missing'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01", # [64]
+    'newline'				=> "\x00\x00\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [9]
+    'non_unicode'			=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00\x00\x00\x00", # [48]
+    'nonchar'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x04\x00\x00\x00\x00", # [49]
+    'numeric'				=> "\x00\x00\x00\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [13]
+    'once'				=> "\x00\x00\x00\x10\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [14]
+    'overflow'				=> "\x00\x00\x00\x40\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [15]
+    'pack'				=> "\x00\x00\x00\x00\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [16]
+    'parenthesis'			=> "\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00\x00\x00\x00\x00\x00\x00\x00", # [32]
+    'pipe'				=> "\x00\x00\x10\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [10]
+    'portable'				=> "\x00\x00\x00\x00\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [17]
+    'precedence'			=> "\x00\x00\x00\x00\x00\x00\x00\x00\x04\x00\x00\x00\x00\x00\x00\x00\x00", # [33]
+    'printf'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x10\x00\x00\x00\x00\x00\x00\x00\x00", # [34]
+    'prototype'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x40\x00\x00\x00\x00\x00\x00\x00\x00", # [35]
+    'qw'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00\x00\x00\x00\x00\x00\x00", # [36]
+    'recursion'				=> "\x00\x00\x00\x00\x10\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [18]
+    'redefine'				=> "\x00\x00\x00\x00\x40\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [19]
+    'redundant'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x04", # [65]
+    'regexp'				=> "\x00\x00\x00\x00\x00\x01\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [20]
+    'reserved'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x04\x00\x00\x00\x00\x00\x00\x00", # [37]
+    'semicolon'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10\x00\x00\x00\x00\x00\x00\x00", # [38]
+    'severe'				=> "\x00\x00\x00\x00\x00\x54\x05\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [21..25]
+    'signal'				=> "\x00\x00\x00\x00\x00\x00\x10\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [26]
+    'substr'				=> "\x00\x00\x00\x00\x00\x00\x40\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [27]
+    'surrogate'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10\x00\x00\x00\x00", # [50]
+    'syntax'				=> "\x00\x00\x00\x00\x00\x00\x00\x55\x55\x15\x00\x40\x00\x00\x00\x00\x00", # [28..38,47]
+    'syscalls'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x04\x00\x00", # [57]
+    'taint'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x40\x00\x00\x00\x00\x00\x00\x00", # [39]
+    'threads'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00\x00\x00\x00\x00\x00", # [40]
+    'uninitialized'			=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x04\x00\x00\x00\x00\x00\x00", # [41]
+    'unopened'				=> "\x00\x00\x40\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [11]
+    'unpack'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10\x00\x00\x00\x00\x00\x00", # [42]
+    'untie'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x40\x00\x00\x00\x00\x00\x00", # [43]
+    'utf8'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01\x15\x00\x00\x00\x00", # [44,48..50]
+    'void'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x04\x00\x00\x00\x00\x00", # [45]
+);
+
+our %DeadBits = (
+    'all'				=> "\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\x0a", # [0..65]
+    'ambiguous'				=> "\x00\x00\x00\x00\x00\x00\x00\x08\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [29]
+    'bareword'				=> "\x00\x00\x00\x00\x00\x00\x00\x20\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [30]
+    'closed'				=> "\x00\x20\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [6]
+    'closure'				=> "\x08\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [1]
+    'debugging'				=> "\x00\x00\x00\x00\x00\x20\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [22]
+    'deprecated'			=> "\x20\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [2]
+    'digit'				=> "\x00\x00\x00\x00\x00\x00\x00\x80\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [31]
+    'exec'				=> "\x00\x80\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [7]
+    'exiting'				=> "\x80\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [3]
+    'experimental'			=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x80\xaa\xa2\x2a\x00", # [51..56,58..62]
+    'experimental::bitwise'		=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x20\x00\x00", # [58]
+    'experimental::const_attr'		=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x80\x00\x00", # [59]
+    'experimental::lexical_subs'	=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x02\x00\x00\x00", # [52]
+    'experimental::postderef'		=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x80\x00\x00\x00", # [55]
+    'experimental::re_strict'		=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x02\x00", # [60]
+    'experimental::refaliasing'		=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08\x00", # [61]
+    'experimental::regex_sets'		=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08\x00\x00\x00", # [53]
+    'experimental::signatures'		=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x02\x00\x00", # [56]
+    'experimental::smartmatch'		=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x20\x00\x00\x00", # [54]
+    'experimental::win32_perlio'	=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x20\x00", # [62]
+    'glob'				=> "\x00\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [4]
+    'illegalproto'			=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x80\x00\x00\x00\x00\x00", # [47]
+    'imprecision'			=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x20\x00\x00\x00\x00\x00", # [46]
+    'inplace'				=> "\x00\x00\x00\x00\x00\x80\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [23]
+    'internal'				=> "\x00\x00\x00\x00\x00\x00\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [24]
+    'io'				=> "\x00\xa8\xaa\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08\x00\x00", # [5..11,57]
+    'layer'				=> "\x00\x00\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [8]
+    'locale'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x80\x00", # [63]
+    'malloc'				=> "\x00\x00\x00\x00\x00\x00\x08\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [25]
+    'misc'				=> "\x00\x00\x00\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [12]
+    'missing'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x02", # [64]
+    'newline'				=> "\x00\x00\x08\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [9]
+    'non_unicode'			=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x02\x00\x00\x00\x00", # [48]
+    'nonchar'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08\x00\x00\x00\x00", # [49]
+    'numeric'				=> "\x00\x00\x00\x08\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [13]
+    'once'				=> "\x00\x00\x00\x20\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [14]
+    'overflow'				=> "\x00\x00\x00\x80\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [15]
+    'pack'				=> "\x00\x00\x00\x00\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [16]
+    'parenthesis'			=> "\x00\x00\x00\x00\x00\x00\x00\x00\x02\x00\x00\x00\x00\x00\x00\x00\x00", # [32]
+    'pipe'				=> "\x00\x00\x20\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [10]
+    'portable'				=> "\x00\x00\x00\x00\x08\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [17]
+    'precedence'			=> "\x00\x00\x00\x00\x00\x00\x00\x00\x08\x00\x00\x00\x00\x00\x00\x00\x00", # [33]
+    'printf'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x20\x00\x00\x00\x00\x00\x00\x00\x00", # [34]
+    'prototype'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x80\x00\x00\x00\x00\x00\x00\x00\x00", # [35]
+    'qw'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x02\x00\x00\x00\x00\x00\x00\x00", # [36]
+    'recursion'				=> "\x00\x00\x00\x00\x20\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [18]
+    'redefine'				=> "\x00\x00\x00\x00\x80\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [19]
+    'redundant'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08", # [65]
+    'regexp'				=> "\x00\x00\x00\x00\x00\x02\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [20]
+    'reserved'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08\x00\x00\x00\x00\x00\x00\x00", # [37]
+    'semicolon'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x20\x00\x00\x00\x00\x00\x00\x00", # [38]
+    'severe'				=> "\x00\x00\x00\x00\x00\xa8\x0a\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [21..25]
+    'signal'				=> "\x00\x00\x00\x00\x00\x00\x20\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [26]
+    'substr'				=> "\x00\x00\x00\x00\x00\x00\x80\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [27]
+    'surrogate'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x20\x00\x00\x00\x00", # [50]
+    'syntax'				=> "\x00\x00\x00\x00\x00\x00\x00\xaa\xaa\x2a\x00\x80\x00\x00\x00\x00\x00", # [28..38,47]
+    'syscalls'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08\x00\x00", # [57]
+    'taint'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x80\x00\x00\x00\x00\x00\x00\x00", # [39]
+    'threads'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x02\x00\x00\x00\x00\x00\x00", # [40]
+    'uninitialized'			=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08\x00\x00\x00\x00\x00\x00", # [41]
+    'unopened'				=> "\x00\x00\x80\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [11]
+    'unpack'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x20\x00\x00\x00\x00\x00\x00", # [42]
+    'untie'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x80\x00\x00\x00\x00\x00\x00", # [43]
+    'utf8'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x02\x2a\x00\x00\x00\x00", # [44,48..50]
+    'void'				=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08\x00\x00\x00\x00\x00", # [45]
+);
+
+# These are used by various things, including our own tests
+our $NONE				=  "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0";
+our $DEFAULT				=  "\x10\x01\x00\x00\x00\x50\x04\x00\x00\x00\x00\x00\x00\x55\x51\x55\x00", # [2,58,59,52,55,60,61,53,56,54,62,4,63,22,23,25]
+our $LAST_BIT				=  132 ;
+our $BYTES				=  17 ;
+
+our $All = "" ; vec($All, $Offsets{'all'}, 2) = 3 ;
+
+sub Croaker
+{
+    require Carp; # this initializes %CarpInternal
+    local $Carp::CarpInternal{'warnings'};
+    delete $Carp::CarpInternal{'warnings'};
+    Carp::croak(@_);
+}
+
+sub _bits {
+    my $mask = shift ;
+    my $catmask ;
+    my $fatal = 0 ;
+    my $no_fatal = 0 ;
+
+    foreach my $word ( @_ ) {
+	if ($word eq 'FATAL') {
+	    $fatal = 1;
+	    $no_fatal = 0;
+	}
+	elsif ($word eq 'NONFATAL') {
+	    $fatal = 0;
+	    $no_fatal = 1;
+	}
+	elsif ($catmask = $Bits{$word}) {
+	    $mask |= $catmask ;
+	    $mask |= $DeadBits{$word} if $fatal ;
+	    $mask &= ~($DeadBits{$word}|$All) if $no_fatal ;
+	}
+	else
+	  { Croaker("Unknown warnings category '$word'")}
+    }
+
+    return $mask ;
+}
+
+sub bits
+{
+    # called from B::Deparse.pm
+    push @_, 'all' unless @_ ;
+    return _bits(undef, @_) ;
+}
+
+sub import
+{
+    shift;
+
+    my $mask = ${^WARNING_BITS} // ($^W ? $Bits{all} : $DEFAULT) ;
+
+    if (vec($mask, $Offsets{'all'}, 1)) {
+	$mask |= $Bits{'all'} ;
+	$mask |= $DeadBits{'all'} if vec($mask, $Offsets{'all'}+1, 1);
+    }
+
+    # append 'all' when implied (after a lone "FATAL" or "NONFATAL")
+    push @_, 'all' if @_==1 && ( $_[0] eq 'FATAL' || $_[0] eq 'NONFATAL' );
+
+    # Empty @_ is equivalent to @_ = 'all' ;
+    ${^WARNING_BITS} = @_ ? _bits($mask, @_) : $mask | $Bits{all} ;
+}
+
+sub unimport
+{
+    shift;
+
+    my $catmask ;
+    my $mask = ${^WARNING_BITS} // ($^W ? $Bits{all} : $DEFAULT) ;
+
+    if (vec($mask, $Offsets{'all'}, 1)) {
+	$mask |= $Bits{'all'} ;
+	$mask |= $DeadBits{'all'} if vec($mask, $Offsets{'all'}+1, 1);
+    }
+
+    # append 'all' when implied (empty import list or after a lone "FATAL")
+    push @_, 'all' if !@_ || @_==1 && $_[0] eq 'FATAL';
+
+    foreach my $word ( @_ ) {
+	if ($word eq 'FATAL') {
+	    next;
+	}
+	elsif ($catmask = $Bits{$word}) {
+	    $mask &= ~($catmask | $DeadBits{$word} | $All);
+	}
+	else
+	  { Croaker("Unknown warnings category '$word'")}
+    }
+
+    ${^WARNING_BITS} = $mask ;
+}
+
+my %builtin_type; @builtin_type{qw(SCALAR ARRAY HASH CODE REF GLOB LVALUE Regexp)} = ();
+
+sub MESSAGE () { 4 };
+sub FATAL () { 2 };
+sub NORMAL () { 1 };
+
+sub __chk
+{
+    my $category ;
+    my $offset ;
+    my $isobj = 0 ;
+    my $wanted = shift;
+    my $has_message = $wanted & MESSAGE;
+
+    unless (@_ == 1 || @_ == ($has_message ? 2 : 0)) {
+	my $sub = (caller 1)[3];
+	my $syntax = $has_message ? "[category,] 'message'" : '[category]';
+	Croaker("Usage: $sub($syntax)");
+    }
+
+    my $message = pop if $has_message;
+
+    if (@_) {
+	# check the category supplied.
+	$category = shift ;
+	if (my $type = ref $category) {
+	    Croaker("not an object")
+		if exists $builtin_type{$type};
+	    $category = $type;
+	    $isobj = 1 ;
+	}
+	$offset = $Offsets{$category};
+	Croaker("Unknown warnings category '$category'")
+	    unless defined $offset;
+    }
+    else {
+	$category = (caller(1))[0] ;
+	$offset = $Offsets{$category};
+	Croaker("package '$category' not registered for warnings")
+	    unless defined $offset ;
+    }
+
+    my $i;
+
+    if ($isobj) {
+	my $pkg;
+	$i = 2;
+	while (do { { package DB; $pkg = (caller($i++))[0] } } ) {
+	    last unless @DB::args && $DB::args[0] =~ /^$category=/ ;
+	}
+	$i -= 2 ;
+    }
+    else {
+	$i = _error_loc(); # see where Carp will allocate the error
+    }
+
+    # Default to 0 if caller returns nothing.  Default to $DEFAULT if it
+    # explicitly returns undef.
+    my(@callers_bitmask) = (caller($i))[9] ;
+    my $callers_bitmask =
+	 @callers_bitmask ? $callers_bitmask[0] // $DEFAULT : 0 ;
+
+    my @results;
+    foreach my $type (FATAL, NORMAL) {
+	next unless $wanted & $type;
+
+	push @results, (vec($callers_bitmask, $offset + $type - 1, 1) ||
+			vec($callers_bitmask, $Offsets{'all'} + $type - 1, 1));
+    }
+
+    # &enabled and &fatal_enabled
+    return $results[0] unless $has_message;
+
+    # &warnif, and the category is neither enabled as warning nor as fatal
+    return if $wanted == (NORMAL | FATAL | MESSAGE)
+	&& !($results[0] || $results[1]);
+
+    require Carp;
+    Carp::croak($message) if $results[0];
+    # will always get here for &warn. will only get here for &warnif if the
+    # category is enabled
+    Carp::carp($message);
+}
+
+sub _mkMask
+{
+    my ($bit) = @_;
+    my $mask = "";
+
+    vec($mask, $bit, 1) = 1;
+    return $mask;
+}
+
+sub register_categories
+{
+    my @names = @_;
+
+    for my $name (@names) {
+	if (! defined $Bits{$name}) {
+	    $Bits{$name}     = _mkMask($LAST_BIT);
+	    vec($Bits{'all'}, $LAST_BIT, 1) = 1;
+	    $Offsets{$name}  = $LAST_BIT ++;
+	    foreach my $k (keys %Bits) {
+		vec($Bits{$k}, $LAST_BIT, 1) = 0;
+	    }
+	    $DeadBits{$name} = _mkMask($LAST_BIT);
+	    vec($DeadBits{'all'}, $LAST_BIT++, 1) = 1;
+	}
+    }
+}
+
+sub _error_loc {
+    require Carp;
+    goto &Carp::short_error_loc; # don't introduce another stack frame
+}
+
+sub enabled
+{
+    return __chk(NORMAL, @_);
+}
+
+sub fatal_enabled
+{
+    return __chk(FATAL, @_);
+}
+
+sub warn
+{
+    return __chk(FATAL | MESSAGE, @_);
+}
+
+sub warnif
+{
+    return __chk(NORMAL | FATAL | MESSAGE, @_);
+}
+
+# These are not part of any public interface, so we can delete them to save
+# space.
+delete @warnings::{qw(NORMAL FATAL MESSAGE)};
+
+1;
+__END__
+=head1 NAME
+
+warnings - Perl pragma to control optional warnings
+
+=head1 SYNOPSIS
+
+    use warnings;
+    no warnings;
+
+    use warnings "all";
+    no warnings "all";
+
+    use warnings::register;
+    if (warnings::enabled()) {
+        warnings::warn("some warning");
+    }
+
+    if (warnings::enabled("void")) {
+        warnings::warn("void", "some warning");
+    }
+
+    if (warnings::enabled($object)) {
+        warnings::warn($object, "some warning");
+    }
+
+    warnings::warnif("some warning");
+    warnings::warnif("void", "some warning");
+    warnings::warnif($object, "some warning");
+
+=head1 DESCRIPTION
+
+The C<warnings> pragma gives control over which warnings are enabled in
+which parts of a Perl program.  It's a more flexible alternative for
+both the command line flag B<-w> and the equivalent Perl variable,
+C<$^W>.
+
+This pragma works just like the C<strict> pragma.
+This means that the scope of the warning pragma is limited to the
+enclosing block.  It also means that the pragma setting will not
+leak across files (via C<use>, C<require> or C<do>).  This allows
+authors to independently define the degree of warning checks that will
+be applied to their module.
+
+By default, optional warnings are disabled, so any legacy code that
+doesn't attempt to control the warnings will work unchanged.
+
+All warnings are enabled in a block by either of these:
+
+    use warnings;
+    use warnings 'all';
+
+Similarly all warnings are disabled in a block by either of these:
+
+    no warnings;
+    no warnings 'all';
+
+For example, consider the code below:
+
+    use warnings;
+    my @a;
+    {
+        no warnings;
+	my $b = @a[0];
+    }
+    my $c = @a[0];
+
+The code in the enclosing block has warnings enabled, but the inner
+block has them disabled.  In this case that means the assignment to the
+scalar C<$c> will trip the C<"Scalar value @a[0] better written as $a[0]">
+warning, but the assignment to the scalar C<$b> will not.
+
+=head2 Default Warnings and Optional Warnings
+
+Before the introduction of lexical warnings, Perl had two classes of
+warnings: mandatory and optional.
+
+As its name suggests, if your code tripped a mandatory warning, you
+would get a warning whether you wanted it or not.
+For example, the code below would always produce an C<"isn't numeric">
+warning about the "2:".
+
+    my $a = "2:" + 3;
+
+With the introduction of lexical warnings, mandatory warnings now become
+I<default> warnings.  The difference is that although the previously
+mandatory warnings are still enabled by default, they can then be
+subsequently enabled or disabled with the lexical warning pragma.  For
+example, in the code below, an C<"isn't numeric"> warning will only
+be reported for the C<$a> variable.
+
+    my $a = "2:" + 3;
+    no warnings;
+    my $b = "2:" + 3;
+
+Note that neither the B<-w> flag or the C<$^W> can be used to
+disable/enable default warnings.  They are still mandatory in this case.
+
+=head2 What's wrong with B<-w> and C<$^W>
+
+Although very useful, the big problem with using B<-w> on the command
+line to enable warnings is that it is all or nothing.  Take the typical
+scenario when you are writing a Perl program.  Parts of the code you
+will write yourself, but it's very likely that you will make use of
+pre-written Perl modules.  If you use the B<-w> flag in this case, you
+end up enabling warnings in pieces of code that you haven't written.
+
+Similarly, using C<$^W> to either disable or enable blocks of code is
+fundamentally flawed.  For a start, say you want to disable warnings in
+a block of code.  You might expect this to be enough to do the trick:
+
+     {
+         local ($^W) = 0;
+	 my $a =+ 2;
+	 my $b; chop $b;
+     }
+
+When this code is run with the B<-w> flag, a warning will be produced
+for the C<$a> line:  C<"Reversed += operator">.
+
+The problem is that Perl has both compile-time and run-time warnings.  To
+disable compile-time warnings you need to rewrite the code like this:
+
+     {
+         BEGIN { $^W = 0 }
+	 my $a =+ 2;
+	 my $b; chop $b;
+     }
+
+The other big problem with C<$^W> is the way you can inadvertently
+change the warning setting in unexpected places in your code.  For example,
+when the code below is run (without the B<-w> flag), the second call
+to C<doit> will trip a C<"Use of uninitialized value"> warning, whereas
+the first will not.
+
+    sub doit
+    {
+        my $b; chop $b;
+    }
+
+    doit();
+
+    {
+        local ($^W) = 1;
+        doit()
+    }
+
+This is a side-effect of C<$^W> being dynamically scoped.
+
+Lexical warnings get around these limitations by allowing finer control
+over where warnings can or can't be tripped.
+
+=head2 Controlling Warnings from the Command Line
+
+There are three Command Line flags that can be used to control when
+warnings are (or aren't) produced:
+
+=over 5
+
+=item B<-w>
+X<-w>
+
+This is  the existing flag.  If the lexical warnings pragma is B<not>
+used in any of you code, or any of the modules that you use, this flag
+will enable warnings everywhere.  See L<Backward Compatibility> for
+details of how this flag interacts with lexical warnings.
+
+=item B<-W>
+X<-W>
+
+If the B<-W> flag is used on the command line, it will enable all warnings
+throughout the program regardless of whether warnings were disabled
+locally using C<no warnings> or C<$^W =0>.
+This includes all files that get
+included via C<use>, C<require> or C<do>.
+Think of it as the Perl equivalent of the "lint" command.
+
+=item B<-X>
+X<-X>
+
+Does the exact opposite to the B<-W> flag, i.e. it disables all warnings.
+
+=back
+
+=head2 Backward Compatibility
+
+If you are used to working with a version of Perl prior to the
+introduction of lexically scoped warnings, or have code that uses both
+lexical warnings and C<$^W>, this section will describe how they interact.
+
+How Lexical Warnings interact with B<-w>/C<$^W>:
+
+=over 5
+
+=item 1.
+
+If none of the three command line flags (B<-w>, B<-W> or B<-X>) that
+control warnings is used and neither C<$^W> nor the C<warnings> pragma
+are used, then default warnings will be enabled and optional warnings
+disabled.
+This means that legacy code that doesn't attempt to control the warnings
+will work unchanged.
+
+=item 2.
+
+The B<-w> flag just sets the global C<$^W> variable as in 5.005.  This
+means that any legacy code that currently relies on manipulating C<$^W>
+to control warning behavior will still work as is.
+
+=item 3.
+
+Apart from now being a boolean, the C<$^W> variable operates in exactly
+the same horrible uncontrolled global way, except that it cannot
+disable/enable default warnings.
+
+=item 4.
+
+If a piece of code is under the control of the C<warnings> pragma,
+both the C<$^W> variable and the B<-w> flag will be ignored for the
+scope of the lexical warning.
+
+=item 5.
+
+The only way to override a lexical warnings setting is with the B<-W>
+or B<-X> command line flags.
+
+=back
+
+The combined effect of 3 & 4 is that it will allow code which uses
+the C<warnings> pragma to control the warning behavior of $^W-type
+code (using a C<local $^W=0>) if it really wants to, but not vice-versa.
+
+=head2 Category Hierarchy
+X<warning, categories>
+
+A hierarchy of "categories" have been defined to allow groups of warnings
+to be enabled/disabled in isolation.
+
+The current hierarchy is:
+
+    all -+
+         |
+         +- closure
+         |
+         +- deprecated
+         |
+         +- exiting
+         |
+         +- experimental --+
+         |                 |
+         |                 +- experimental::bitwise
+         |                 |
+         |                 +- experimental::const_attr
+         |                 |
+         |                 +- experimental::lexical_subs
+         |                 |
+         |                 +- experimental::postderef
+         |                 |
+         |                 +- experimental::re_strict
+         |                 |
+         |                 +- experimental::refaliasing
+         |                 |
+         |                 +- experimental::regex_sets
+         |                 |
+         |                 +- experimental::signatures
+         |                 |
+         |                 +- experimental::smartmatch
+         |                 |
+         |                 +- experimental::win32_perlio
+         |
+         +- glob
+         |
+         +- imprecision
+         |
+         +- io ------------+
+         |                 |
+         |                 +- closed
+         |                 |
+         |                 +- exec
+         |                 |
+         |                 +- layer
+         |                 |
+         |                 +- newline
+         |                 |
+         |                 +- pipe
+         |                 |
+         |                 +- syscalls
+         |                 |
+         |                 +- unopened
+         |
+         +- locale
+         |
+         +- misc
+         |
+         +- missing
+         |
+         +- numeric
+         |
+         +- once
+         |
+         +- overflow
+         |
+         +- pack
+         |
+         +- portable
+         |
+         +- recursion
+         |
+         +- redefine
+         |
+         +- redundant
+         |
+         +- regexp
+         |
+         +- severe --------+
+         |                 |
+         |                 +- debugging
+         |                 |
+         |                 +- inplace
+         |                 |
+         |                 +- internal
+         |                 |
+         |                 +- malloc
+         |
+         +- signal
+         |
+         +- substr
+         |
+         +- syntax --------+
+         |                 |
+         |                 +- ambiguous
+         |                 |
+         |                 +- bareword
+         |                 |
+         |                 +- digit
+         |                 |
+         |                 +- illegalproto
+         |                 |
+         |                 +- parenthesis
+         |                 |
+         |                 +- precedence
+         |                 |
+         |                 +- printf
+         |                 |
+         |                 +- prototype
+         |                 |
+         |                 +- qw
+         |                 |
+         |                 +- reserved
+         |                 |
+         |                 +- semicolon
+         |
+         +- taint
+         |
+         +- threads
+         |
+         +- uninitialized
+         |
+         +- unpack
+         |
+         +- untie
+         |
+         +- utf8 ----------+
+         |                 |
+         |                 +- non_unicode
+         |                 |
+         |                 +- nonchar
+         |                 |
+         |                 +- surrogate
+         |
+         +- void
+
+Just like the "strict" pragma any of these categories can be combined
+
+    use warnings qw(void redefine);
+    no warnings qw(io syntax untie);
+
+Also like the "strict" pragma, if there is more than one instance of the
+C<warnings> pragma in a given scope the cumulative effect is additive.
+
+    use warnings qw(void); # only "void" warnings enabled
+    ...
+    use warnings qw(io);   # only "void" & "io" warnings enabled
+    ...
+    no warnings qw(void);  # only "io" warnings enabled
+
+To determine which category a specific warning has been assigned to see
+L<perldiag>.
+
+Note: Before Perl 5.8.0, the lexical warnings category "deprecated" was a
+sub-category of the "syntax" category.  It is now a top-level category
+in its own right.
+
+Note: Before 5.21.0, the "missing" lexical warnings category was
+internally defined to be the same as the "uninitialized" category. It
+is now a top-level category in its own right.
+
+=head2 Fatal Warnings
+X<warning, fatal>
+
+The presence of the word "FATAL" in the category list will escalate
+warnings in those categories into fatal errors in that lexical scope.
+
+B<NOTE:> FATAL warnings should be used with care, particularly
+C<< FATAL => 'all' >>.
+
+Libraries using L<warnings::warn|/FUNCTIONS> for custom warning categories
+generally don't expect L<warnings::warn|/FUNCTIONS> to be fatal and can wind up
+in an unexpected state as a result.  For XS modules issuing categorized
+warnings, such unanticipated exceptions could also expose memory leak bugs.
+
+Moreover, the Perl interpreter itself has had serious bugs involving
+fatalized warnings.  For a summary of resolved and unresolved problems as
+of January 2015, please see
+L<this perl5-porters post|http://www.nntp.perl.org/group/perl.perl5.porters/2015/01/msg225235.html>.
+
+While some developers find fatalizing some warnings to be a useful
+defensive programming technique, using C<< FATAL => 'all' >> to fatalize
+all possible warning categories -- including custom ones -- is particularly
+risky.  Therefore, the use of C<< FATAL => 'all' >> is
+L<discouraged|perlpolicy/discouraged>.
+
+The L<strictures|strictures/VERSION-2> module on CPAN offers one example of
+a warnings subset that the module's authors believe is relatively safe to
+fatalize.
+
+B<NOTE:> users of FATAL warnings, especially those using
+C<< FATAL => 'all' >>, should be fully aware that they are risking future
+portability of their programs by doing so.  Perl makes absolutely no
+commitments to not introduce new warnings or warnings categories in the
+future; indeed, we explicitly reserve the right to do so.  Code that may
+not warn now may warn in a future release of Perl if the Perl5 development
+team deems it in the best interests of the community to do so.  Should code
+using FATAL warnings break due to the introduction of a new warning we will
+NOT consider it an incompatible change.  Users of FATAL warnings should
+take special caution during upgrades to check to see if their code triggers
+any new warnings and should pay particular attention to the fine print of
+the documentation of the features they use to ensure they do not exploit
+features that are documented as risky, deprecated, or unspecified, or where
+the documentation says "so don't do that", or anything with the same sense
+and spirit.  Use of such features in combination with FATAL warnings is
+ENTIRELY AT THE USER'S RISK.
+
+The following documentation describes how to use FATAL warnings but the
+perl5 porters strongly recommend that you understand the risks before doing
+so, especially for library code intended for use by others, as there is no
+way for downstream users to change the choice of fatal categories.
+
+In the code below, the use of C<time>, C<length>
+and C<join> can all produce a C<"Useless use of xxx in void context">
+warning.
+
+    use warnings;
+
+    time;
+
+    {
+        use warnings FATAL => qw(void);
+        length "abc";
+    }
+
+    join "", 1,2,3;
+
+    print "done\n";
+
+When run it produces this output
+
+    Useless use of time in void context at fatal line 3.
+    Useless use of length in void context at fatal line 7.
+
+The scope where C<length> is used has escalated the C<void> warnings
+category into a fatal error, so the program terminates immediately when it
+encounters the warning.
+
+To explicitly turn off a "FATAL" warning you just disable the warning
+it is associated with.  So, for example, to disable the "void" warning
+in the example above, either of these will do the trick:
+
+    no warnings qw(void);
+    no warnings FATAL => qw(void);
+
+If you want to downgrade a warning that has been escalated into a fatal
+error back to a normal warning, you can use the "NONFATAL" keyword.  For
+example, the code below will promote all warnings into fatal errors,
+except for those in the "syntax" category.
+
+    use warnings FATAL => 'all', NONFATAL => 'syntax';
+
+As of Perl 5.20, instead of C<< use warnings FATAL => 'all'; >> you can
+use:
+
+   use v5.20;       # Perl 5.20 or greater is required for the following
+   use warnings 'FATAL';  # short form of "use warnings FATAL => 'all';"
+
+If you want your program to be compatible with versions of Perl before
+5.20, you must use C<< use warnings FATAL => 'all'; >> instead.  (In
+previous versions of Perl, the behavior of the statements
+C<< use warnings 'FATAL'; >>, C<< use warnings 'NONFATAL'; >> and
+C<< no warnings 'FATAL'; >> was unspecified; they did not behave as if
+they included the C<< => 'all' >> portion.  As of 5.20, they do.)
+
+=head2 Reporting Warnings from a Module
+X<warning, reporting> X<warning, registering>
+
+The C<warnings> pragma provides a number of functions that are useful for
+module authors.  These are used when you want to report a module-specific
+warning to a calling module has enabled warnings via the C<warnings>
+pragma.
+
+Consider the module C<MyMod::Abc> below.
+
+    package MyMod::Abc;
+
+    use warnings::register;
+
+    sub open {
+        my $path = shift;
+        if ($path !~ m#^/#) {
+            warnings::warn("changing relative path to /var/abc")
+                if warnings::enabled();
+            $path = "/var/abc/$path";
+        }
+    }
+
+    1;
+
+The call to C<warnings::register> will create a new warnings category
+called "MyMod::Abc", i.e. the new category name matches the current
+package name.  The C<open> function in the module will display a warning
+message if it gets given a relative path as a parameter.  This warnings
+will only be displayed if the code that uses C<MyMod::Abc> has actually
+enabled them with the C<warnings> pragma like below.
+
+    use MyMod::Abc;
+    use warnings 'MyMod::Abc';
+    ...
+    abc::open("../fred.txt");
+
+It is also possible to test whether the pre-defined warnings categories are
+set in the calling module with the C<warnings::enabled> function.  Consider
+this snippet of code:
+
+    package MyMod::Abc;
+
+    sub open {
+        if (warnings::enabled("deprecated")) {
+            warnings::warn("deprecated",
+                           "open is deprecated, use new instead");
+        }
+        new(@_);
+    }
+
+    sub new
+    ...
+    1;
+
+The function C<open> has been deprecated, so code has been included to
+display a warning message whenever the calling module has (at least) the
+"deprecated" warnings category enabled.  Something like this, say.
+
+    use warnings 'deprecated';
+    use MyMod::Abc;
+    ...
+    MyMod::Abc::open($filename);
+
+Either the C<warnings::warn> or C<warnings::warnif> function should be
+used to actually display the warnings message.  This is because they can
+make use of the feature that allows warnings to be escalated into fatal
+errors.  So in this case
+
+    use MyMod::Abc;
+    use warnings FATAL => 'MyMod::Abc';
+    ...
+    MyMod::Abc::open('../fred.txt');
+
+the C<warnings::warnif> function will detect this and die after
+displaying the warning message.
+
+The three warnings functions, C<warnings::warn>, C<warnings::warnif>
+and C<warnings::enabled> can optionally take an object reference in place
+of a category name.  In this case the functions will use the class name
+of the object as the warnings category.
+
+Consider this example:
+
+    package Original;
+
+    no warnings;
+    use warnings::register;
+
+    sub new
+    {
+        my $class = shift;
+        bless [], $class;
+    }
+
+    sub check
+    {
+        my $self = shift;
+        my $value = shift;
+
+        if ($value % 2 && warnings::enabled($self))
+          { warnings::warn($self, "Odd numbers are unsafe") }
+    }
+
+    sub doit
+    {
+        my $self = shift;
+        my $value = shift;
+        $self->check($value);
+        # ...
+    }
+
+    1;
+
+    package Derived;
+
+    use warnings::register;
+    use Original;
+    our @ISA = qw( Original );
+    sub new
+    {
+        my $class = shift;
+        bless [], $class;
+    }
+
+
+    1;
+
+The code below makes use of both modules, but it only enables warnings from
+C<Derived>.
+
+    use Original;
+    use Derived;
+    use warnings 'Derived';
+    my $a = Original->new();
+    $a->doit(1);
+    my $b = Derived->new();
+    $a->doit(1);
+
+When this code is run only the C<Derived> object, C<$b>, will generate
+a warning.
+
+    Odd numbers are unsafe at main.pl line 7
+
+Notice also that the warning is reported at the line where the object is first
+used.
+
+When registering new categories of warning, you can supply more names to
+warnings::register like this:
+
+    package MyModule;
+    use warnings::register qw(format precision);
+
+    ...
+
+    warnings::warnif('MyModule::format', '...');
+
+=head1 FUNCTIONS
+
+=over 4
+
+=item use warnings::register
+
+Creates a new warnings category with the same name as the package where
+the call to the pragma is used.
+
+=item warnings::enabled()
+
+Use the warnings category with the same name as the current package.
+
+Return TRUE if that warnings category is enabled in the calling module.
+Otherwise returns FALSE.
+
+=item warnings::enabled($category)
+
+Return TRUE if the warnings category, C<$category>, is enabled in the
+calling module.
+Otherwise returns FALSE.
+
+=item warnings::enabled($object)
+
+Use the name of the class for the object reference, C<$object>, as the
+warnings category.
+
+Return TRUE if that warnings category is enabled in the first scope
+where the object is used.
+Otherwise returns FALSE.
+
+=item warnings::fatal_enabled()
+
+Return TRUE if the warnings category with the same name as the current
+package has been set to FATAL in the calling module.
+Otherwise returns FALSE.
+
+=item warnings::fatal_enabled($category)
+
+Return TRUE if the warnings category C<$category> has been set to FATAL in
+the calling module.
+Otherwise returns FALSE.
+
+=item warnings::fatal_enabled($object)
+
+Use the name of the class for the object reference, C<$object>, as the
+warnings category.
+
+Return TRUE if that warnings category has been set to FATAL in the first
+scope where the object is used.
+Otherwise returns FALSE.
+
+=item warnings::warn($message)
+
+Print C<$message> to STDERR.
+
+Use the warnings category with the same name as the current package.
+
+If that warnings category has been set to "FATAL" in the calling module
+then die. Otherwise return.
+
+=item warnings::warn($category, $message)
+
+Print C<$message> to STDERR.
+
+If the warnings category, C<$category>, has been set to "FATAL" in the
+calling module then die. Otherwise return.
+
+=item warnings::warn($object, $message)
+
+Print C<$message> to STDERR.
+
+Use the name of the class for the object reference, C<$object>, as the
+warnings category.
+
+If that warnings category has been set to "FATAL" in the scope where C<$object>
+is first used then die. Otherwise return.
+
+
+=item warnings::warnif($message)
+
+Equivalent to:
+
+    if (warnings::enabled())
+      { warnings::warn($message) }
+
+=item warnings::warnif($category, $message)
+
+Equivalent to:
+
+    if (warnings::enabled($category))
+      { warnings::warn($category, $message) }
+
+=item warnings::warnif($object, $message)
+
+Equivalent to:
+
+    if (warnings::enabled($object))
+      { warnings::warn($object, $message) }
+
+=item warnings::register_categories(@names)
+
+This registers warning categories for the given names and is primarily for
+use by the warnings::register pragma.
+
+=back
+
+See also L<perlmodlib/Pragmatic Modules> and L<perldiag>.
+
+=cut
+
+# ex: set ro:
diff --git a/lib/5.24.1/warnings/register.pm b/lib/5.24.1/warnings/register.pm
new file mode 100644
index 00000000..0adf104a
--- /dev/null
+++ b/lib/5.24.1/warnings/register.pm
@@ -0,0 +1,46 @@
+package warnings::register;
+
+our $VERSION = '1.04';
+require warnings;
+
+# left here as cruft in case other users were using this undocumented routine
+# -- rjbs, 2010-09-08
+sub mkMask
+{
+    my ($bit) = @_;
+    my $mask = "";
+
+    vec($mask, $bit, 1) = 1;
+    return $mask;
+}
+
+sub import
+{
+    shift;
+    my @categories = @_;
+
+    my $package = (caller(0))[0];
+    warnings::register_categories($package);
+
+    warnings::register_categories($package . "::$_") for @categories;
+}
+1;
+__END__
+
+=pod
+
+=head1 NAME
+
+warnings::register - warnings import function
+
+=head1 SYNOPSIS
+
+    use warnings::register;
+
+=head1 DESCRIPTION
+
+Creates a warnings category with the same name as the current package.
+
+See L<warnings> for more information on this module's usage.
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/.packlist b/lib/5.24.1/x86_64-linux/.packlist
new file mode 100644
index 00000000..ca26d81b
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/.packlist
@@ -0,0 +1,1539 @@
+/home/git/binary-com/perl/bin/c2ph type=file
+/home/git/binary-com/perl/bin/corelist type=file
+/home/git/binary-com/perl/bin/cpan type=file
+/home/git/binary-com/perl/bin/enc2xs type=file
+/home/git/binary-com/perl/bin/encguess type=file
+/home/git/binary-com/perl/bin/h2ph type=file
+/home/git/binary-com/perl/bin/h2xs type=file
+/home/git/binary-com/perl/bin/instmodsh type=file
+/home/git/binary-com/perl/bin/json_pp type=file
+/home/git/binary-com/perl/bin/libnetcfg type=file
+/home/git/binary-com/perl/bin/perl from=/home/git/binary-com/perl/bin/perl5.24.1 type=link
+/home/git/binary-com/perl/bin/perl5.24.1 type=file
+/home/git/binary-com/perl/bin/perlbug type=file
+/home/git/binary-com/perl/bin/perldoc type=file
+/home/git/binary-com/perl/bin/perlivp type=file
+/home/git/binary-com/perl/bin/perlthanks from=/home/git/binary-com/perl/bin/perlbug type=link
+/home/git/binary-com/perl/bin/piconv type=file
+/home/git/binary-com/perl/bin/pl2pm type=file
+/home/git/binary-com/perl/bin/pod2html type=file
+/home/git/binary-com/perl/bin/pod2man type=file
+/home/git/binary-com/perl/bin/pod2text type=file
+/home/git/binary-com/perl/bin/pod2usage type=file
+/home/git/binary-com/perl/bin/podchecker type=file
+/home/git/binary-com/perl/bin/podselect type=file
+/home/git/binary-com/perl/bin/prove type=file
+/home/git/binary-com/perl/bin/pstruct from=/home/git/binary-com/perl/bin/c2ph type=link
+/home/git/binary-com/perl/bin/ptar type=file
+/home/git/binary-com/perl/bin/ptardiff type=file
+/home/git/binary-com/perl/bin/ptargrep type=file
+/home/git/binary-com/perl/bin/shasum type=file
+/home/git/binary-com/perl/bin/splain type=file
+/home/git/binary-com/perl/bin/xsubpp type=file
+/home/git/binary-com/perl/bin/zipdetails type=file
+/home/git/binary-com/perl/lib/5.24.1/AnyDBM_File.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/App/Cpan.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/App/Prove.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/App/Prove/State.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/App/Prove/State/Result.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/App/Prove/State/Result/Test.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Archive/Tar.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Archive/Tar/Constant.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Archive/Tar/File.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Attribute/Handlers.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/AutoLoader.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/AutoSplit.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/B/Debug.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/B/Deparse.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/B/Op_private.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Benchmark.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/CORE.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/CPAN.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/CPAN/API/HOWTO.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/CPAN/Author.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/CPAN/Bundle.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/CPAN/CacheMgr.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/CPAN/Complete.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/CPAN/Debug.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/CPAN/DeferredCode.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/CPAN/Distribution.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/CPAN/Distroprefs.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/CPAN/Distrostatus.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/CPAN/Exception/RecursiveDependency.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/CPAN/Exception/blocked_urllist.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/CPAN/Exception/yaml_not_installed.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/CPAN/Exception/yaml_process_error.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/CPAN/FTP.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/CPAN/FTP/netrc.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/CPAN/FirstTime.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/CPAN/HTTP/Client.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/CPAN/HTTP/Credentials.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/CPAN/HandleConfig.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/CPAN/Index.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/CPAN/InfoObj.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/CPAN/Kwalify.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/CPAN/Kwalify/distroprefs.dd type=file
+/home/git/binary-com/perl/lib/5.24.1/CPAN/Kwalify/distroprefs.yml type=file
+/home/git/binary-com/perl/lib/5.24.1/CPAN/LWP/UserAgent.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/CPAN/Meta.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/CPAN/Meta/Converter.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/CPAN/Meta/Feature.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/CPAN/Meta/History.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/CPAN/Meta/History/Meta_1_0.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/CPAN/Meta/History/Meta_1_1.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/CPAN/Meta/History/Meta_1_2.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/CPAN/Meta/History/Meta_1_3.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/CPAN/Meta/History/Meta_1_4.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/CPAN/Meta/Merge.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/CPAN/Meta/Prereqs.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/CPAN/Meta/Requirements.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/CPAN/Meta/Spec.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/CPAN/Meta/Validator.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/CPAN/Meta/YAML.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/CPAN/Mirrors.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/CPAN/Module.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/CPAN/Nox.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/CPAN/Plugin.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/CPAN/Plugin/Specfile.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/CPAN/Prompt.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/CPAN/Queue.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/CPAN/Shell.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/CPAN/Tarzip.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/CPAN/URL.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/CPAN/Version.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Carp.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Carp/Heavy.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Class/Struct.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Compress/Zlib.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Config/Extensions.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Config/Perl/V.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/DB.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/DBM_Filter.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/DBM_Filter/compress.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/DBM_Filter/encode.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/DBM_Filter/int32.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/DBM_Filter/null.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/DBM_Filter/utf8.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Devel/SelfStubber.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Digest.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Digest/base.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Digest/file.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/DirHandle.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Dumpvalue.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Encode/Changes.e2x type=file
+/home/git/binary-com/perl/lib/5.24.1/Encode/ConfigLocal_PM.e2x type=file
+/home/git/binary-com/perl/lib/5.24.1/Encode/Makefile_PL.e2x type=file
+/home/git/binary-com/perl/lib/5.24.1/Encode/PerlIO.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/Encode/README.e2x type=file
+/home/git/binary-com/perl/lib/5.24.1/Encode/Supported.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/Encode/_PM.e2x type=file
+/home/git/binary-com/perl/lib/5.24.1/Encode/_T.e2x type=file
+/home/git/binary-com/perl/lib/5.24.1/Encode/encode.h type=file
+/home/git/binary-com/perl/lib/5.24.1/English.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Env.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Exporter.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Exporter/Heavy.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/CBuilder.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/CBuilder/Base.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/CBuilder/Platform/Unix.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/CBuilder/Platform/VMS.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/CBuilder/Platform/Windows.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/CBuilder/Platform/Windows/BCC.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/CBuilder/Platform/Windows/GCC.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/CBuilder/Platform/Windows/MSVC.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/CBuilder/Platform/aix.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/CBuilder/Platform/android.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/CBuilder/Platform/cygwin.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/CBuilder/Platform/darwin.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/CBuilder/Platform/dec_osf.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/CBuilder/Platform/os2.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/Command.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/Command/MM.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/Constant.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/Constant/Base.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/Constant/ProxySubs.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/Constant/Utils.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/Constant/XS.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/Embed.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/Install.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/Installed.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/Liblist.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/Liblist/Kid.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/MANIFEST.SKIP type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/MM.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/MM_AIX.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/MM_Any.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/MM_BeOS.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/MM_Cygwin.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/MM_DOS.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/MM_Darwin.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/MM_MacOS.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/MM_NW5.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/MM_OS2.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/MM_QNX.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/MM_UWIN.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/MM_Unix.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/MM_VMS.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/MM_VOS.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/MM_Win32.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/MM_Win95.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/MY.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/MakeMaker.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/MakeMaker/Config.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/MakeMaker/FAQ.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/MakeMaker/Locale.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/MakeMaker/Tutorial.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/MakeMaker/version.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/Manifest.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/Miniperl.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/Mkbootstrap.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/Mksymlists.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/Packlist.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/ParseXS.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/ParseXS.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/ParseXS/Constants.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/ParseXS/CountLines.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/ParseXS/Eval.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/ParseXS/Utilities.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/Typemaps.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/Typemaps/Cmd.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/Typemaps/InputMap.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/Typemaps/OutputMap.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/Typemaps/Type.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/testlib.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/typemap type=file
+/home/git/binary-com/perl/lib/5.24.1/ExtUtils/xsubpp type=file
+/home/git/binary-com/perl/lib/5.24.1/Fatal.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/File/Basename.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/File/Compare.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/File/Copy.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/File/Fetch.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/File/Find.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/File/GlobMapper.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/File/Path.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/File/Temp.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/File/stat.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/FileCache.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/FileHandle.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Filter/Simple.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/FindBin.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Getopt/Long.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Getopt/Std.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/HTTP/Tiny.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/I18N/Collate.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/I18N/LangTags.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/I18N/LangTags/Detect.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/I18N/LangTags/List.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/IO/Compress/Adapter/Bzip2.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/IO/Compress/Adapter/Deflate.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/IO/Compress/Adapter/Identity.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/IO/Compress/Base.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/IO/Compress/Base/Common.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/IO/Compress/Bzip2.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/IO/Compress/Deflate.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/IO/Compress/FAQ.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/IO/Compress/Gzip.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/IO/Compress/Gzip/Constants.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/IO/Compress/RawDeflate.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/IO/Compress/Zip.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/IO/Compress/Zip/Constants.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/IO/Compress/Zlib/Constants.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/IO/Compress/Zlib/Extra.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/IO/Socket/IP.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/IO/Uncompress/Adapter/Bunzip2.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/IO/Uncompress/Adapter/Identity.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/IO/Uncompress/Adapter/Inflate.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/IO/Uncompress/AnyInflate.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/IO/Uncompress/AnyUncompress.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/IO/Uncompress/Base.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/IO/Uncompress/Bunzip2.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/IO/Uncompress/Gunzip.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/IO/Uncompress/Inflate.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/IO/Uncompress/RawInflate.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/IO/Uncompress/Unzip.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/IO/Zlib.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/IPC/Cmd.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/IPC/Open2.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/IPC/Open3.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/JSON/PP.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/JSON/PP/Boolean.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Locale/Codes.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Locale/Codes.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/Locale/Codes/API.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/Locale/Codes/Changes.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/Locale/Codes/Constants.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Locale/Codes/Country.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Locale/Codes/Country.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/Locale/Codes/Country_Codes.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Locale/Codes/Country_Retired.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Locale/Codes/Currency.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Locale/Codes/Currency.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/Locale/Codes/Currency_Codes.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Locale/Codes/Currency_Retired.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Locale/Codes/LangExt.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Locale/Codes/LangExt.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/Locale/Codes/LangExt_Codes.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Locale/Codes/LangExt_Retired.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Locale/Codes/LangFam.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Locale/Codes/LangFam.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/Locale/Codes/LangFam_Codes.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Locale/Codes/LangFam_Retired.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Locale/Codes/LangVar.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Locale/Codes/LangVar.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/Locale/Codes/LangVar_Codes.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Locale/Codes/LangVar_Retired.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Locale/Codes/Language.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Locale/Codes/Language.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/Locale/Codes/Language_Codes.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Locale/Codes/Language_Retired.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Locale/Codes/Script.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Locale/Codes/Script.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/Locale/Codes/Script_Codes.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Locale/Codes/Script_Retired.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Locale/Country.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Locale/Country.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/Locale/Currency.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Locale/Currency.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/Locale/Language.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Locale/Language.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/Locale/Maketext.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Locale/Maketext.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/Locale/Maketext/Cookbook.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/Locale/Maketext/Guts.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Locale/Maketext/GutsLoader.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Locale/Maketext/Simple.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Locale/Maketext/TPJ13.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/Locale/Script.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Locale/Script.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/Math/BigFloat.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Math/BigFloat/Trace.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Math/BigInt.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Math/BigInt/Calc.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Math/BigInt/CalcEmu.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Math/BigInt/Trace.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Math/BigRat.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Math/Complex.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Math/Trig.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Memoize.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Memoize/AnyDBM_File.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Memoize/Expire.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Memoize/ExpireFile.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Memoize/ExpireTest.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Memoize/NDBM_File.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Memoize/SDBM_File.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Memoize/Storable.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Module/CoreList.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Module/CoreList.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/Module/CoreList/TieHashDelta.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Module/CoreList/Utils.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Module/Load.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Module/Load/Conditional.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Module/Loaded.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Module/Metadata.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/NEXT.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Net/Cmd.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Net/Config.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Net/Domain.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Net/FTP.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Net/FTP/A.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Net/FTP/E.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Net/FTP/I.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Net/FTP/L.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Net/FTP/dataconn.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Net/NNTP.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Net/Netrc.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Net/POP3.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Net/Ping.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Net/SMTP.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Net/Time.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Net/hostent.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Net/libnetFAQ.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/Net/netent.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Net/protoent.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Net/servent.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Params/Check.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Parse/CPAN/Meta.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Perl/OSType.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/PerlIO.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/PerlIO/via/QuotedPrint.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Pod/Checker.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Pod/Escapes.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Pod/Find.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Pod/Functions.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Pod/Html.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Pod/InputObjects.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Pod/Man.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Pod/ParseLink.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Pod/ParseUtils.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Pod/Parser.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Pod/Perldoc.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Pod/Perldoc/BaseTo.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Pod/Perldoc/GetOptsOO.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Pod/Perldoc/ToANSI.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Pod/Perldoc/ToChecker.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Pod/Perldoc/ToMan.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Pod/Perldoc/ToNroff.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Pod/Perldoc/ToPod.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Pod/Perldoc/ToRtf.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Pod/Perldoc/ToTerm.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Pod/Perldoc/ToText.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Pod/Perldoc/ToTk.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Pod/Perldoc/ToXml.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Pod/PlainText.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Pod/Select.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Pod/Simple.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Pod/Simple.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/Pod/Simple/BlackBox.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Pod/Simple/Checker.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Pod/Simple/Debug.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Pod/Simple/DumpAsText.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Pod/Simple/DumpAsXML.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Pod/Simple/HTML.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Pod/Simple/HTMLBatch.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Pod/Simple/HTMLLegacy.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Pod/Simple/LinkSection.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Pod/Simple/Methody.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Pod/Simple/Progress.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Pod/Simple/PullParser.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Pod/Simple/PullParserEndToken.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Pod/Simple/PullParserStartToken.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Pod/Simple/PullParserTextToken.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Pod/Simple/PullParserToken.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Pod/Simple/RTF.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Pod/Simple/Search.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Pod/Simple/SimpleTree.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Pod/Simple/Subclassing.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/Pod/Simple/Text.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Pod/Simple/TextContent.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Pod/Simple/TiedOutFH.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Pod/Simple/Transcode.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Pod/Simple/TranscodeDumb.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Pod/Simple/TranscodeSmart.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Pod/Simple/XHTML.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Pod/Simple/XMLOutStream.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Pod/Text.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Pod/Text/Color.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Pod/Text/Overstrike.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Pod/Text/Termcap.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Pod/Usage.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Safe.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Search/Dict.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/SelectSaver.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/SelfLoader.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Symbol.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/TAP/Base.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/TAP/Formatter/Base.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/TAP/Formatter/Color.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/TAP/Formatter/Console.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/TAP/Formatter/Console/ParallelSession.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/TAP/Formatter/Console/Session.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/TAP/Formatter/File.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/TAP/Formatter/File/Session.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/TAP/Formatter/Session.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/TAP/Harness.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/TAP/Harness/Beyond.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/TAP/Harness/Env.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/TAP/Object.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/TAP/Parser.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/TAP/Parser/Aggregator.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/TAP/Parser/Grammar.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/TAP/Parser/Iterator.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/TAP/Parser/Iterator/Array.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/TAP/Parser/Iterator/Process.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/TAP/Parser/Iterator/Stream.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/TAP/Parser/IteratorFactory.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/TAP/Parser/Multiplexer.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/TAP/Parser/Result.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/TAP/Parser/Result/Bailout.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/TAP/Parser/Result/Comment.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/TAP/Parser/Result/Plan.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/TAP/Parser/Result/Pragma.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/TAP/Parser/Result/Test.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/TAP/Parser/Result/Unknown.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/TAP/Parser/Result/Version.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/TAP/Parser/Result/YAML.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/TAP/Parser/ResultFactory.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/TAP/Parser/Scheduler.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/TAP/Parser/Scheduler/Job.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/TAP/Parser/Scheduler/Spinner.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/TAP/Parser/Source.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/TAP/Parser/SourceHandler.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/TAP/Parser/SourceHandler/Executable.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/TAP/Parser/SourceHandler/File.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/TAP/Parser/SourceHandler/Handle.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/TAP/Parser/SourceHandler/Perl.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/TAP/Parser/SourceHandler/RawTAP.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/TAP/Parser/YAMLish/Reader.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/TAP/Parser/YAMLish/Writer.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Term/ANSIColor.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Term/Cap.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Term/Complete.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Term/ReadLine.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Test.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Test/Builder.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Test/Builder/IO/Scalar.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Test/Builder/Module.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Test/Builder/Tester.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Test/Builder/Tester/Color.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Test/Harness.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Test/More.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Test/Simple.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Test/Tester.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Test/Tester/Capture.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Test/Tester/CaptureRunner.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Test/Tester/Delegate.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Test/Tutorial.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/Test/use/ok.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Text/Abbrev.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Text/Balanced.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Text/ParseWords.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Text/Tabs.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Text/Wrap.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Thread.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Thread/Queue.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Thread/Semaphore.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Tie/Array.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Tie/File.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Tie/Handle.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Tie/Hash.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Tie/Memoize.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Tie/RefHash.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Tie/Scalar.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Tie/StdHandle.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Tie/SubstrHash.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Time/Local.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Time/gmtime.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Time/localtime.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Time/tm.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/UNIVERSAL.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/CJK/Big5.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/CJK/GB2312.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/CJK/JISX0208.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/CJK/Korean.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/CJK/Pinyin.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/CJK/Stroke.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/CJK/Zhuyin.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/af.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/ar.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/as.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/az.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/be.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/bg.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/bn.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/ca.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/cs.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/cy.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/da.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/de_phone.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/ee.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/eo.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/es.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/es_trad.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/et.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/fa.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/fi.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/fi_phone.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/fil.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/fo.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/fr.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/gu.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/ha.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/haw.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/hi.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/hr.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/hu.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/hy.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/ig.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/is.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/ja.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/kk.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/kl.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/kn.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/ko.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/kok.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/ln.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/lt.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/lv.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/mk.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/ml.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/mr.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/mt.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/nb.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/nn.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/nso.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/om.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/or.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/pa.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/pl.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/ro.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/ru.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/sa.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/se.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/si.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/si_dict.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/sk.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/sl.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/sq.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/sr.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/sv.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/sv_refo.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/ta.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/te.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/th.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/tn.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/to.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/tr.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/uk.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/ur.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/vi.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/wae.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/wo.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/yo.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/zh.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/zh_big5.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/zh_gb.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/zh_pin.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/zh_strk.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/Locale/zh_zhu.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/allkeys.txt type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/Collate/keys.txt type=file
+/home/git/binary-com/perl/lib/5.24.1/Unicode/UCD.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/User/grent.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/User/pwent.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/XSLoader.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/_charnames.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/autodie.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/autodie/Scope/Guard.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/autodie/Scope/GuardStack.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/autodie/Util.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/autodie/exception.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/autodie/exception/system.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/autodie/hints.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/autodie/skip.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/autouse.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/base.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/bigint.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/bignum.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/bigrat.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/blib.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/bytes.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/bytes_heavy.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/charnames.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/constant.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/deprecate.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/diagnostics.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/dumpvar.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/encoding/warnings.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/experimental.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/feature.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/fields.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/filetest.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/if.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/integer.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/less.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/locale.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/meta_notation.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/ok.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/open.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/overload.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/overload/numbers.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/overloading.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/parent.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/perl5db.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/perlfaq.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perl.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perl5004delta.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perl5005delta.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perl5100delta.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perl5101delta.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perl5120delta.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perl5121delta.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perl5122delta.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perl5123delta.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perl5124delta.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perl5125delta.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perl5140delta.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perl5141delta.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perl5142delta.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perl5143delta.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perl5144delta.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perl5160delta.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perl5161delta.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perl5162delta.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perl5163delta.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perl5180delta.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perl5181delta.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perl5182delta.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perl5184delta.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perl5200delta.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perl5201delta.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perl5202delta.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perl5203delta.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perl5220delta.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perl5221delta.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perl5222delta.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perl5240delta.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perl5241delta.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perl561delta.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perl56delta.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perl581delta.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perl582delta.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perl583delta.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perl584delta.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perl585delta.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perl586delta.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perl587delta.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perl588delta.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perl589delta.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perl58delta.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlaix.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlamiga.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlandroid.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlapi.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlapio.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlartistic.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlbook.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlboot.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlbot.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlbs2000.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlcall.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlce.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlcheat.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlclib.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlcn.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlcommunity.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlcygwin.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perldata.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perldbmfilter.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perldebguts.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perldebtut.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perldebug.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perldelta.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perldiag.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perldoc.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perldos.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perldsc.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perldtrace.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlebcdic.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlembed.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlexperiment.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlfaq.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlfaq1.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlfaq2.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlfaq3.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlfaq4.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlfaq5.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlfaq6.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlfaq7.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlfaq8.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlfaq9.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlfilter.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlfork.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlform.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlfreebsd.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlfunc.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlgit.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlglossary.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlgpl.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlguts.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlhack.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlhacktips.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlhacktut.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlhaiku.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlhist.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlhpux.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlhurd.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlintern.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlinterp.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlintro.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perliol.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlipc.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlirix.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perljp.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlko.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perllexwarn.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perllinux.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perllocale.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perllol.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlmacos.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlmacosx.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlmod.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlmodinstall.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlmodlib.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlmodstyle.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlmroapi.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlnetware.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlnewmod.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlnumber.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlobj.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlootut.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlop.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlopenbsd.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlopentut.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlos2.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlos390.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlos400.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlpacktut.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlperf.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlplan9.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlpod.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlpodspec.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlpodstyle.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlpolicy.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlport.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlpragma.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlqnx.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlre.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlreapi.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlrebackslash.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlrecharclass.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlref.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlreftut.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlreguts.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlrepository.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlrequick.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlreref.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlretut.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlriscos.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlrun.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlsec.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlsolaris.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlsource.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlstyle.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlsub.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlsymbian.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlsyn.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlsynology.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlthrtut.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perltie.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perltoc.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perltodo.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perltooc.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perltoot.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perltrap.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perltru64.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perltw.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlunicode.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlunicook.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlunifaq.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perluniintro.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perluniprops.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlunitut.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlutil.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlvar.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlvms.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlvos.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlwin32.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlxs.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlxstut.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/pod/perlxstypemap.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/sigtrap.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/sort.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/strict.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/subs.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/Blocks.txt type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/CombiningClass.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/Decomposition.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/Heavy.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/Name.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/Name.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/NamedSequences.txt type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/SpecialCasing.txt type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/To/Age.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/To/Bc.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/To/Bmg.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/To/Bpb.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/To/Bpt.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/To/Cf.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/To/Digit.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/To/Ea.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/To/Fold.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/To/GCB.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/To/Gc.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/To/Hst.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/To/InPC.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/To/InSC.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/To/Isc.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/To/Jg.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/To/Jt.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/To/Lb.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/To/Lc.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/To/Lower.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/To/NFCQC.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/To/NFDQC.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/To/NFKCCF.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/To/NFKCQC.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/To/NFKDQC.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/To/Na1.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/To/NameAlia.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/To/Nt.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/To/Nv.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/To/PerlDeci.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/To/SB.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/To/Sc.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/To/Scx.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/To/Tc.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/To/Title.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/To/Uc.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/To/Upper.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/To/WB.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/To/_PerlLB.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/To/_PerlWB.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/UCD.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Age/NA.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Age/V11.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Age/V20.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Age/V30.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Age/V31.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Age/V32.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Age/V40.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Age/V41.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Age/V50.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Age/V51.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Age/V52.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Age/V60.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Age/V61.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Age/V70.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Age/V80.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Alpha/Y.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Bc/AL.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Bc/AN.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Bc/B.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Bc/BN.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Bc/CS.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Bc/EN.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Bc/ES.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Bc/ET.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Bc/L.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Bc/NSM.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Bc/ON.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Bc/R.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Bc/WS.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/BidiC/Y.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/BidiM/Y.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Blk/NB.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Bpt/C.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Bpt/N.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Bpt/O.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/CE/Y.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/CI/Y.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/CWCF/Y.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/CWCM/Y.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/CWKCF/Y.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/CWL/Y.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/CWT/Y.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/CWU/Y.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Cased/Y.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Ccc/A.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Ccc/AR.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Ccc/ATAR.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Ccc/B.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Ccc/BR.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Ccc/DB.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Ccc/NK.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Ccc/NR.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Ccc/OV.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Ccc/VR.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/CompEx/Y.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/DI/Y.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Dash/Y.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Dep/Y.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Dia/Y.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Dt/Com.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Dt/Enc.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Dt/Fin.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Dt/Font.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Dt/Init.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Dt/Iso.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Dt/Med.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Dt/Nar.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Dt/Nb.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Dt/NonCanon.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Dt/Sqr.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Dt/Sub.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Dt/Sup.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Dt/Vert.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Ea/A.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Ea/H.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Ea/N.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Ea/Na.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Ea/W.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Ext/Y.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/GCB/CN.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/GCB/EX.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/GCB/LV.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/GCB/LVT.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/GCB/SM.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/GCB/XX.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Gc/C.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Gc/Cf.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Gc/Cn.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Gc/L.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Gc/LC.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Gc/Ll.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Gc/Lm.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Gc/Lo.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Gc/Lu.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Gc/M.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Gc/Mc.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Gc/Me.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Gc/Mn.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Gc/N.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Gc/Nd.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Gc/Nl.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Gc/No.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Gc/P.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Gc/Pd.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Gc/Pe.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Gc/Pf.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Gc/Pi.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Gc/Po.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Gc/Ps.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Gc/S.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Gc/Sc.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Gc/Sk.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Gc/Sm.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Gc/So.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Gc/Z.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Gc/Zs.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/GrBase/Y.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Hex/Y.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Hst/NA.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Hyphen/T.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/IDC/Y.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/IDS/Y.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Ideo/Y.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/In/2_0.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/In/2_1.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/In/3_0.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/In/3_1.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/In/3_2.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/In/4_0.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/In/4_1.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/In/5_0.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/In/5_1.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/In/5_2.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/In/6_0.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/In/6_1.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/In/6_2.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/In/6_3.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/In/7_0.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/In/8_0.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/InPC/Bottom.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/InPC/Left.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/InPC/LeftAndR.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/InPC/NA.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/InPC/Overstru.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/InPC/Right.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/InPC/Top.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/InPC/TopAndBo.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/InPC/TopAndL2.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/InPC/TopAndLe.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/InPC/TopAndRi.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/InPC/VisualOr.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/InSC/Avagraha.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/InSC/Bindu.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/InSC/Cantilla.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/InSC/Consona2.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/InSC/Consona3.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/InSC/Consona4.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/InSC/Consona5.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/InSC/Consona6.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/InSC/Consonan.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/InSC/Invisibl.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/InSC/Nukta.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/InSC/Number.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/InSC/Other.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/InSC/PureKill.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/InSC/Syllable.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/InSC/ToneMark.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/InSC/Virama.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/InSC/Visarga.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/InSC/Vowel.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/InSC/VowelDep.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/InSC/VowelInd.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Jg/Ain.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Jg/Alef.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Jg/Beh.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Jg/Dal.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Jg/FarsiYeh.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Jg/Feh.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Jg/Gaf.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Jg/Hah.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Jg/Kaf.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Jg/Lam.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Jg/NoJoinin.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Jg/Qaf.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Jg/Reh.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Jg/Sad.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Jg/Seen.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Jg/Waw.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Jg/Yeh.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Jt/C.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Jt/D.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Jt/R.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Jt/T.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Jt/U.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Lb/AI.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Lb/AL.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Lb/BA.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Lb/BB.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Lb/CJ.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Lb/CL.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Lb/CM.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Lb/EX.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Lb/GL.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Lb/ID.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Lb/IN.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Lb/IS.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Lb/NS.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Lb/OP.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Lb/PO.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Lb/PR.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Lb/QU.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Lb/SA.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Lb/XX.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Lower/Y.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Math/Y.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/NFCQC/M.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/NFCQC/Y.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/NFDQC/N.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/NFDQC/Y.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/NFKCQC/N.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/NFKCQC/Y.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/NFKDQC/N.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/NFKDQC/Y.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Nt/Di.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Nt/None.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Nt/Nu.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Nv/0.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Nv/1.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Nv/10.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Nv/100.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Nv/1000.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Nv/10000.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Nv/11.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Nv/12.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Nv/13.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Nv/14.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Nv/15.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Nv/16.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Nv/17.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Nv/18.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Nv/19.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Nv/1_2.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Nv/1_3.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Nv/1_4.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Nv/1_8.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Nv/2.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Nv/20.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Nv/200.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Nv/2_3.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Nv/3.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Nv/30.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Nv/300.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Nv/3_4.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Nv/4.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Nv/40.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Nv/400.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Nv/5.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Nv/50.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Nv/500.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Nv/5000.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Nv/50000.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Nv/6.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Nv/60.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Nv/600.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Nv/7.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Nv/70.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Nv/700.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Nv/8.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Nv/80.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Nv/800.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Nv/9.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Nv/90.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Nv/900.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/PatSyn/Y.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Perl/Alnum.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Perl/Assigned.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Perl/Blank.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Perl/Graph.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Perl/PerlWord.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Perl/PosixPun.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Perl/Print.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Perl/SpacePer.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Perl/Title.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Perl/Word.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Perl/XPosixPu.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Perl/_PerlAny.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Perl/_PerlCh2.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Perl/_PerlCha.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Perl/_PerlFol.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Perl/_PerlIDC.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Perl/_PerlIDS.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Perl/_PerlNch.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Perl/_PerlPat.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Perl/_PerlPr2.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Perl/_PerlPro.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Perl/_PerlQuo.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/QMark/Y.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/SB/AT.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/SB/CL.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/SB/EX.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/SB/FO.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/SB/LE.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/SB/LO.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/SB/NU.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/SB/SC.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/SB/ST.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/SB/Sp.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/SB/UP.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/SB/XX.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/SD/Y.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/STerm/Y.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Sc/Arab.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Sc/Armn.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Sc/Beng.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Sc/Cham.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Sc/Cprt.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Sc/Cyrl.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Sc/Deva.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Sc/Dupl.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Sc/Ethi.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Sc/Geor.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Sc/Gran.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Sc/Grek.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Sc/Gujr.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Sc/Guru.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Sc/Han.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Sc/Hang.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Sc/Hebr.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Sc/Hira.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Sc/Hmng.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Sc/Kana.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Sc/Khar.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Sc/Khmr.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Sc/Knda.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Sc/Lana.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Sc/Lao.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Sc/Latn.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Sc/Limb.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Sc/Linb.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Sc/Mlym.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Sc/Mong.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Sc/Mult.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Sc/Orya.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Sc/Sinh.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Sc/Talu.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Sc/Taml.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Sc/Telu.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Sc/Tibt.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Sc/Xsux.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Sc/Zinh.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Sc/Zyyy.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Sc/Zzzz.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Scx/Arab.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Scx/Armn.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Scx/Beng.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Scx/Bopo.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Scx/Cakm.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Scx/Copt.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Scx/Cprt.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Scx/Cyrl.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Scx/Deva.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Scx/Dupl.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Scx/Geor.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Scx/Glag.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Scx/Gran.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Scx/Grek.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Scx/Gujr.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Scx/Guru.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Scx/Han.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Scx/Hang.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Scx/Hira.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Scx/Kana.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Scx/Knda.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Scx/Latn.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Scx/Limb.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Scx/Linb.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Scx/Mlym.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Scx/Mong.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Scx/Mult.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Scx/Mymr.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Scx/Orya.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Scx/Phlp.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Scx/Shrd.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Scx/Sind.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Scx/Sinh.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Scx/Syrc.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Scx/Tagb.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Scx/Takr.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Scx/Taml.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Scx/Telu.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Scx/Thaa.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Scx/Tirh.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Scx/Yi.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Scx/Zinh.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Scx/Zyyy.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Term/Y.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/UIdeo/Y.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/Upper/Y.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/WB/EX.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/WB/FO.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/WB/HL.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/WB/KA.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/WB/LE.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/WB/MB.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/WB/ML.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/WB/MN.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/WB/NU.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/WB/XX.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/XIDC/Y.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/lib/XIDS/Y.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/unicore/version type=file
+/home/git/binary-com/perl/lib/5.24.1/utf8.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/utf8_heavy.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/vars.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/version.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/version.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/version/Internals.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/version/regex.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/vmsish.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/warnings.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/warnings/register.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/B.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/B/Concise.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/B/Showlex.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/B/Terse.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/B/Xref.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/EXTERN.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/INTERN.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/XSUB.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/av.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/bitcount.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/charclass_invlists.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/config.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/cop.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/cv.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/dosish.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/dquote_inline.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/ebcdic_tables.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/embed.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/embedvar.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/fakesdio.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/feature.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/form.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/git_version.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/gv.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/handy.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/hv.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/hv_func.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/inline.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/intrpvar.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/invlist_inline.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/iperlsys.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/keywords.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/l1_char_class_tab.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/libperl.so type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/malloc_ctl.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/metaconfig.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/mg.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/mg_data.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/mg_raw.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/mg_vtable.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/mydtrace.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/nostdio.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/op.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/op_reg_common.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/opcode.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/opnames.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/overload.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/pad.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/parser.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/patchlevel.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/perl.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/perlapi.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/perlio.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/perliol.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/perlsdio.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/perlvars.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/perly.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/pp.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/pp_proto.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/proto.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/reentr.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/regcharclass.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/regcomp.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/regexp.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/regnodes.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/scope.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/sv.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/thread.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/time64.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/time64_config.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/uconfig.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/unicode_constants.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/unixish.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/utf8.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/utfebcdic.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/util.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/uudmap.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/vutil.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE/warnings.h type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/Compress/Raw/Bzip2.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/Compress/Raw/Zlib.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/Config.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/Config.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/Config_git.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/Config_heavy.pl type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/Cwd.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/Data/Dumper.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/Devel/PPPort.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/Devel/Peek.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/Digest/MD5.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/Digest/SHA.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/DynaLoader.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/Encode.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/Encode/Alias.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/Encode/Byte.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/Encode/CJKConstants.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/Encode/CN.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/Encode/CN/HZ.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/Encode/Config.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/Encode/EBCDIC.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/Encode/Encoder.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/Encode/Encoding.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/Encode/GSM0338.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/Encode/Guess.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/Encode/JP.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/Encode/JP/H2Z.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/Encode/JP/JIS7.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/Encode/KR.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/Encode/KR/2022_KR.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/Encode/MIME/Header.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/Encode/MIME/Header/ISO_2022_JP.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/Encode/MIME/Name.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/Encode/Symbol.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/Encode/TW.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/Encode/Unicode.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/Encode/Unicode/UTF7.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/Errno.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/Fcntl.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/File/DosGlob.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/File/Glob.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/File/Spec.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/File/Spec/AmigaOS.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/File/Spec/Cygwin.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/File/Spec/Epoc.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/File/Spec/Functions.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/File/Spec/Mac.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/File/Spec/OS2.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/File/Spec/Unix.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/File/Spec/VMS.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/File/Spec/Win32.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/Filter/Util/Call.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/Hash/Util.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/Hash/Util/FieldHash.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/I18N/Langinfo.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/IO.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/IO/Dir.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/IO/File.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/IO/Handle.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/IO/Pipe.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/IO/Poll.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/IO/Seekable.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/IO/Select.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/IO/Socket.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/IO/Socket/INET.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/IO/Socket/UNIX.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/IPC/Msg.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/IPC/Semaphore.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/IPC/SharedMem.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/IPC/SysV.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/List/Util.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/List/Util/XS.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/MIME/Base64.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/MIME/QuotedPrint.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/Math/BigInt/FastCalc.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/O.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/Opcode.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/POSIX.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/POSIX.pod type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/PerlIO/encoding.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/PerlIO/mmap.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/PerlIO/scalar.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/PerlIO/via.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/SDBM_File.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/Scalar/Util.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/Socket.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/Storable.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/Sub/Util.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/Sys/Hostname.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/Sys/Syslog.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/Tie/Hash/NamedCapture.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/Time/HiRes.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/Time/Piece.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/Time/Seconds.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/Unicode/Collate.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/Unicode/Collate/Locale.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/Unicode/Normalize.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/arybase.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/attributes.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/auto/B/B.so type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/auto/Compress/Raw/Bzip2/Bzip2.so type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/auto/Compress/Raw/Zlib/Zlib.so type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/auto/Cwd/Cwd.so type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/auto/Data/Dumper/Dumper.so type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/auto/Devel/Peek/Peek.so type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/auto/Digest/MD5/MD5.so type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/auto/Digest/SHA/SHA.so type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/auto/Encode/Byte/Byte.so type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/auto/Encode/CN/CN.so type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/auto/Encode/EBCDIC/EBCDIC.so type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/auto/Encode/Encode.so type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/auto/Encode/JP/JP.so type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/auto/Encode/KR/KR.so type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/auto/Encode/Symbol/Symbol.so type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/auto/Encode/TW/TW.so type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/auto/Encode/Unicode/Unicode.so type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/auto/Fcntl/Fcntl.so type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/auto/File/DosGlob/DosGlob.so type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/auto/File/Glob/Glob.so type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/auto/Filter/Util/Call/Call.so type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/auto/Hash/Util/FieldHash/FieldHash.so type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/auto/Hash/Util/Util.so type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/auto/I18N/Langinfo/Langinfo.so type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/auto/IO/IO.so type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/auto/IPC/SysV/SysV.so type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/auto/List/Util/Util.so type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/auto/MIME/Base64/Base64.so type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/auto/Math/BigInt/FastCalc/FastCalc.so type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/auto/Opcode/Opcode.so type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/auto/POSIX/POSIX.so type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/auto/PerlIO/encoding/encoding.so type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/auto/PerlIO/mmap/mmap.so type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/auto/PerlIO/scalar/scalar.so type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/auto/PerlIO/via/via.so type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/auto/SDBM_File/SDBM_File.so type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/auto/Socket/Socket.so type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/auto/Storable/Storable.so type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/auto/Sys/Hostname/Hostname.so type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/auto/Sys/Syslog/Syslog.so type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/auto/Tie/Hash/NamedCapture/NamedCapture.so type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/auto/Time/HiRes/HiRes.so type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/auto/Time/Piece/Piece.so type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/auto/Unicode/Collate/Collate.so type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/auto/Unicode/Normalize/Normalize.so type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/auto/arybase/arybase.so type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/auto/attributes/attributes.so type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/auto/mro/mro.so type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/auto/re/re.so type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/auto/threads/shared/shared.so type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/auto/threads/threads.so type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/encoding.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/lib.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/mro.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/ops.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/re.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/threads.pm type=file
+/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/threads/shared.pm type=file
diff --git a/lib/5.24.1/x86_64-linux/B.pm b/lib/5.24.1/x86_64-linux/B.pm
new file mode 100644
index 00000000..5c1e5997
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/B.pm
@@ -0,0 +1,1418 @@
+#      B.pm
+#
+#      Copyright (c) 1996, 1997, 1998 Malcolm Beattie
+#
+#      You may distribute under the terms of either the GNU General Public
+#      License or the Artistic License, as specified in the README file.
+#
+package B;
+use strict;
+
+require Exporter;
+@B::ISA = qw(Exporter);
+
+# walkoptree_slow comes from B.pm (you are there),
+# walkoptree comes from B.xs
+
+BEGIN {
+    $B::VERSION = '1.62';
+    @B::EXPORT_OK = ();
+
+    # Our BOOT code needs $VERSION set, and will append to @EXPORT_OK.
+    # Want our constants loaded before the compiler meets OPf_KIDS below, as
+    # the combination of having the constant stay a Proxy Constant Subroutine
+    # and its value being inlined saves a little over .5K
+
+    require XSLoader;
+    XSLoader::load();
+}
+
+push @B::EXPORT_OK, (qw(minus_c ppname save_BEGINs
+			class peekop cast_I32 cstring cchar hash threadsv_names
+			main_root main_start main_cv svref_2object opnumber
+			sub_generation amagic_generation perlstring
+			walkoptree_slow walkoptree walkoptree_exec walksymtable
+			parents comppadlist sv_undef compile_stats timing_info
+			begin_av init_av check_av end_av regex_padav dowarn
+			defstash curstash warnhook diehook inc_gv @optype
+			@specialsv_name unitcheck_av safename));
+
+@B::SV::ISA = 'B::OBJECT';
+@B::NULL::ISA = 'B::SV';
+@B::PV::ISA = 'B::SV';
+@B::IV::ISA = 'B::SV';
+@B::NV::ISA = 'B::SV';
+# RV is eliminated with 5.11.0, but effectively is a specialisation of IV now.
+@B::RV::ISA = $] >= 5.011 ? 'B::IV' : 'B::SV';
+@B::PVIV::ISA = qw(B::PV B::IV);
+@B::PVNV::ISA = qw(B::PVIV B::NV);
+@B::PVMG::ISA = 'B::PVNV';
+@B::REGEXP::ISA = 'B::PVMG' if $] >= 5.011;
+@B::INVLIST::ISA = 'B::PV'  if $] >= 5.019;
+@B::PVLV::ISA = 'B::GV';
+@B::BM::ISA = 'B::GV';
+@B::AV::ISA = 'B::PVMG';
+@B::GV::ISA = 'B::PVMG';
+@B::HV::ISA = 'B::PVMG';
+@B::CV::ISA = 'B::PVMG';
+@B::IO::ISA = 'B::PVMG';
+@B::FM::ISA = 'B::CV';
+
+@B::OP::ISA = 'B::OBJECT';
+@B::UNOP::ISA = 'B::OP';
+@B::UNOP_AUX::ISA = 'B::UNOP';
+@B::BINOP::ISA = 'B::UNOP';
+@B::LOGOP::ISA = 'B::UNOP';
+@B::LISTOP::ISA = 'B::BINOP';
+@B::SVOP::ISA = 'B::OP';
+@B::PADOP::ISA = 'B::OP';
+@B::PVOP::ISA = 'B::OP';
+@B::LOOP::ISA = 'B::LISTOP';
+@B::PMOP::ISA = 'B::LISTOP';
+@B::COP::ISA = 'B::OP';
+@B::METHOP::ISA = 'B::OP';
+
+@B::SPECIAL::ISA = 'B::OBJECT';
+
+@B::optype = qw(OP UNOP BINOP LOGOP LISTOP PMOP SVOP PADOP PVOP LOOP COP
+                METHOP UNOP_AUX);
+# bytecode.pl contained the following comment:
+# Nullsv *must* come first in the following so that the condition
+# ($$sv == 0) can continue to be used to test (sv == Nullsv).
+@B::specialsv_name = qw(Nullsv &PL_sv_undef &PL_sv_yes &PL_sv_no
+			(SV*)pWARN_ALL (SV*)pWARN_NONE (SV*)pWARN_STD);
+
+{
+    # Stop "-w" from complaining about the lack of a real B::OBJECT class
+    package B::OBJECT;
+}
+
+sub B::GV::SAFENAME {
+  safename(shift()->NAME);
+}
+
+sub safename {
+  my $name = shift;
+
+  # The regex below corresponds to the isCONTROLVAR macro
+  # from toke.c
+
+  $name =~ s/^\c?/^?/
+    or $name =~ s/^([\cA-\cZ\c\\c[\c]\c_\c^])/
+                "^" .  chr( utf8::unicode_to_native( 64 ^ ord($1) ))/e;
+
+  # When we say unicode_to_native we really mean ascii_to_native,
+  # which matters iff this is a non-ASCII platform (EBCDIC).  '\c?' would
+  # not have to be special cased, except for non-ASCII.
+
+  return $name;
+}
+
+sub B::IV::int_value {
+  my ($self) = @_;
+  return (($self->FLAGS() & SVf_IVisUV()) ? $self->UVX : $self->IV);
+}
+
+sub B::NULL::as_string() {""}
+*B::IV::as_string = \*B::IV::int_value;
+*B::PV::as_string = \*B::PV::PV;
+
+#  The input typemap checking makes no distinction between different SV types,
+#  so the XS body will generate the same C code, despite the different XS
+#  "types". So there is no change in behaviour from doing "newXS" like this,
+#  compared with the old approach of having a (near) duplicate XS body.
+#  We should fix the typemap checking.
+*B::IV::RV = \*B::PV::RV if $] > 5.012;
+
+my $debug;
+my $op_count = 0;
+my @parents = ();
+
+sub debug {
+    my ($class, $value) = @_;
+    $debug = $value;
+    walkoptree_debug($value);
+}
+
+sub class {
+    my $obj = shift;
+    my $name = ref $obj;
+    $name =~ s/^.*:://;
+    return $name;
+}
+
+sub parents { \@parents }
+
+# For debugging
+sub peekop {
+    my $op = shift;
+    return sprintf("%s (0x%x) %s", class($op), $$op, $op->name);
+}
+
+sub walkoptree_slow {
+    my($op, $method, $level) = @_;
+    $op_count++; # just for statistics
+    $level ||= 0;
+    warn(sprintf("walkoptree: %d. %s\n", $level, peekop($op))) if $debug;
+    $op->$method($level) if $op->can($method);
+    if ($$op && ($op->flags & OPf_KIDS)) {
+	my $kid;
+	unshift(@parents, $op);
+	for ($kid = $op->first; $$kid; $kid = $kid->sibling) {
+	    walkoptree_slow($kid, $method, $level + 1);
+	}
+	shift @parents;
+    }
+    if (class($op) eq 'PMOP'
+	&& ref($op->pmreplroot)
+	&& ${$op->pmreplroot}
+	&& $op->pmreplroot->isa( 'B::OP' ))
+    {
+	unshift(@parents, $op);
+	walkoptree_slow($op->pmreplroot, $method, $level + 1);
+	shift @parents;
+    }
+}
+
+sub compile_stats {
+    return "Total number of OPs processed: $op_count\n";
+}
+
+sub timing_info {
+    my ($sec, $min, $hr) = localtime;
+    my ($user, $sys) = times;
+    sprintf("%02d:%02d:%02d user=$user sys=$sys",
+	    $hr, $min, $sec, $user, $sys);
+}
+
+my %symtable;
+
+sub clearsym {
+    %symtable = ();
+}
+
+sub savesym {
+    my ($obj, $value) = @_;
+#    warn(sprintf("savesym: sym_%x => %s\n", $$obj, $value)); # debug
+    $symtable{sprintf("sym_%x", $$obj)} = $value;
+}
+
+sub objsym {
+    my $obj = shift;
+    return $symtable{sprintf("sym_%x", $$obj)};
+}
+
+sub walkoptree_exec {
+    my ($op, $method, $level) = @_;
+    $level ||= 0;
+    my ($sym, $ppname);
+    my $prefix = "    " x $level;
+    for (; $$op; $op = $op->next) {
+	$sym = objsym($op);
+	if (defined($sym)) {
+	    print $prefix, "goto $sym\n";
+	    return;
+	}
+	savesym($op, sprintf("%s (0x%lx)", class($op), $$op));
+	$op->$method($level);
+	$ppname = $op->name;
+	if ($ppname =~
+	    /^(d?or(assign)?|and(assign)?|mapwhile|grepwhile|entertry|range|cond_expr)$/)
+	{
+	    print $prefix, uc($1), " => {\n";
+	    walkoptree_exec($op->other, $method, $level + 1);
+	    print $prefix, "}\n";
+	} elsif ($ppname eq "match" || $ppname eq "subst") {
+	    my $pmreplstart = $op->pmreplstart;
+	    if ($$pmreplstart) {
+		print $prefix, "PMREPLSTART => {\n";
+		walkoptree_exec($pmreplstart, $method, $level + 1);
+		print $prefix, "}\n";
+	    }
+	} elsif ($ppname eq "substcont") {
+	    print $prefix, "SUBSTCONT => {\n";
+	    walkoptree_exec($op->other->pmreplstart, $method, $level + 1);
+	    print $prefix, "}\n";
+	    $op = $op->other;
+	} elsif ($ppname eq "enterloop") {
+	    print $prefix, "REDO => {\n";
+	    walkoptree_exec($op->redoop, $method, $level + 1);
+	    print $prefix, "}\n", $prefix, "NEXT => {\n";
+	    walkoptree_exec($op->nextop, $method, $level + 1);
+	    print $prefix, "}\n", $prefix, "LAST => {\n";
+	    walkoptree_exec($op->lastop,  $method, $level + 1);
+	    print $prefix, "}\n";
+	} elsif ($ppname eq "subst") {
+	    my $replstart = $op->pmreplstart;
+	    if ($$replstart) {
+		print $prefix, "SUBST => {\n";
+		walkoptree_exec($replstart, $method, $level + 1);
+		print $prefix, "}\n";
+	    }
+	}
+    }
+}
+
+sub walksymtable {
+    my ($symref, $method, $recurse, $prefix) = @_;
+    my $sym;
+    my $ref;
+    my $fullname;
+    no strict 'refs';
+    $prefix = '' unless defined $prefix;
+    foreach my $sym ( sort keys %$symref ) {
+        $ref= $symref->{$sym};
+        $fullname = "*main::".$prefix.$sym;
+	if ($sym =~ /::$/) {
+	    $sym = $prefix . $sym;
+	    if (svref_2object(\*$sym)->NAME ne "main::" && $sym ne "<none>::" && &$recurse($sym)) {
+               walksymtable(\%$fullname, $method, $recurse, $sym);
+	    }
+	} else {
+           svref_2object(\*$fullname)->$method();
+	}
+    }
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+B - The Perl Compiler Backend
+
+=head1 SYNOPSIS
+
+	use B;
+
+=head1 DESCRIPTION
+
+The C<B> module supplies classes which allow a Perl program to delve
+into its own innards.  It is the module used to implement the
+"backends" of the Perl compiler.  Usage of the compiler does not
+require knowledge of this module: see the F<O> module for the
+user-visible part.  The C<B> module is of use to those who want to
+write new compiler backends.  This documentation assumes that the
+reader knows a fair amount about perl's internals including such
+things as SVs, OPs and the internal symbol table and syntax tree
+of a program.
+
+=head1 OVERVIEW
+
+The C<B> module contains a set of utility functions for querying the
+current state of the Perl interpreter; typically these functions
+return objects from the B::SV and B::OP classes, or their derived
+classes.  These classes in turn define methods for querying the
+resulting objects about their own internal state.
+
+=head1 Utility Functions
+
+The C<B> module exports a variety of functions: some are simple
+utility functions, others provide a Perl program with a way to
+get an initial "handle" on an internal object.
+
+=head2 Functions Returning C<B::SV>, C<B::AV>, C<B::HV>, and C<B::CV> objects
+
+For descriptions of the class hierarchy of these objects and the
+methods that can be called on them, see below, L<"OVERVIEW OF
+CLASSES"> and L<"SV-RELATED CLASSES">.
+
+=over 4
+
+=item sv_undef
+
+Returns the SV object corresponding to the C variable C<sv_undef>.
+
+=item sv_yes
+
+Returns the SV object corresponding to the C variable C<sv_yes>.
+
+=item sv_no
+
+Returns the SV object corresponding to the C variable C<sv_no>.
+
+=item svref_2object(SVREF)
+
+Takes a reference to any Perl value, and turns the referred-to value
+into an object in the appropriate B::OP-derived or B::SV-derived
+class.  Apart from functions such as C<main_root>, this is the primary
+way to get an initial "handle" on an internal perl data structure
+which can then be followed with the other access methods.
+
+The returned object will only be valid as long as the underlying OPs
+and SVs continue to exist.  Do not attempt to use the object after the
+underlying structures are freed.
+
+=item amagic_generation
+
+Returns the SV object corresponding to the C variable C<amagic_generation>.
+As of Perl 5.18, this is just an alias to C<PL_na>, so its value is
+meaningless.
+
+=item init_av
+
+Returns the AV object (i.e. in class B::AV) representing INIT blocks.
+
+=item check_av
+
+Returns the AV object (i.e. in class B::AV) representing CHECK blocks.
+
+=item unitcheck_av
+
+Returns the AV object (i.e. in class B::AV) representing UNITCHECK blocks.
+
+=item begin_av
+
+Returns the AV object (i.e. in class B::AV) representing BEGIN blocks.
+
+=item end_av
+
+Returns the AV object (i.e. in class B::AV) representing END blocks.
+
+=item comppadlist
+
+Returns the PADLIST object (i.e. in class B::PADLIST) of the global
+comppadlist.  In Perl 5.16 and earlier it returns an AV object (class
+B::AV).
+
+=item regex_padav
+
+Only when perl was compiled with ithreads.
+
+=item main_cv
+
+Return the (faked) CV corresponding to the main part of the Perl
+program.
+
+=back
+
+=head2 Functions for Examining the Symbol Table
+
+=over 4
+
+=item walksymtable(SYMREF, METHOD, RECURSE, PREFIX)
+
+Walk the symbol table starting at SYMREF and call METHOD on each
+symbol (a B::GV object) visited.  When the walk reaches package
+symbols (such as "Foo::") it invokes RECURSE, passing in the symbol
+name, and only recurses into the package if that sub returns true.
+
+PREFIX is the name of the SYMREF you're walking.
+
+For example:
+
+  # Walk CGI's symbol table calling print_subs on each symbol.
+  # Recurse only into CGI::Util::
+  walksymtable(\%CGI::, 'print_subs',
+               sub { $_[0] eq 'CGI::Util::' }, 'CGI::');
+
+print_subs() is a B::GV method you have declared.  Also see L<"B::GV
+Methods">, below.
+
+=back
+
+=head2 Functions Returning C<B::OP> objects or for walking op trees
+
+For descriptions of the class hierarchy of these objects and the
+methods that can be called on them, see below, L<"OVERVIEW OF
+CLASSES"> and L<"OP-RELATED CLASSES">.
+
+=over 4
+
+=item main_root
+
+Returns the root op (i.e. an object in the appropriate B::OP-derived
+class) of the main part of the Perl program.
+
+=item main_start
+
+Returns the starting op of the main part of the Perl program.
+
+=item walkoptree(OP, METHOD)
+
+Does a tree-walk of the syntax tree based at OP and calls METHOD on
+each op it visits.  Each node is visited before its children.  If
+C<walkoptree_debug> (see below) has been called to turn debugging on then
+the method C<walkoptree_debug> is called on each op before METHOD is
+called.
+
+=item walkoptree_debug(DEBUG)
+
+Returns the current debugging flag for C<walkoptree>.  If the optional
+DEBUG argument is non-zero, it sets the debugging flag to that.  See
+the description of C<walkoptree> above for what the debugging flag
+does.
+
+=back
+
+=head2 Miscellaneous Utility Functions
+
+=over 4
+
+=item ppname(OPNUM)
+
+Return the PP function name (e.g. "pp_add") of op number OPNUM.
+
+=item hash(STR)
+
+Returns a string in the form "0x..." representing the value of the
+internal hash function used by perl on string STR.
+
+=item cast_I32(I)
+
+Casts I to the internal I32 type used by that perl.
+
+=item minus_c
+
+Does the equivalent of the C<-c> command-line option.  Obviously, this
+is only useful in a BEGIN block or else the flag is set too late.
+
+=item cstring(STR)
+
+Returns a double-quote-surrounded escaped version of STR which can
+be used as a string in C source code.
+
+=item perlstring(STR)
+
+Returns a double-quote-surrounded escaped version of STR which can
+be used as a string in Perl source code.
+
+=item safename(STR)
+
+This function returns the string with the first character modified if it
+is a control character.  It converts it to ^X format first, so that "\cG"
+becomes "^G".  This is used internally by L<B::GV::SAFENAME|/SAFENAME>, but
+you can call it directly.
+
+=item class(OBJ)
+
+Returns the class of an object without the part of the classname
+preceding the first C<"::">.  This is used to turn C<"B::UNOP"> into
+C<"UNOP"> for example.
+
+=item threadsv_names
+
+This used to provide support for the old 5.005 threading module. It now
+does nothing.
+
+=back
+
+=head2 Exported utility variables
+
+=over 4
+
+=item @optype
+
+  my $op_type = $optype[$op_type_num];
+
+A simple mapping of the op type number to its type (like 'COP' or 'BINOP').
+
+=item @specialsv_name
+
+  my $sv_name = $specialsv_name[$sv_index];
+
+Certain SV types are considered 'special'.  They're represented by
+B::SPECIAL and are referred to by a number from the specialsv_list.
+This array maps that number back to the name of the SV (like 'Nullsv'
+or '&PL_sv_undef').
+
+=back
+
+
+=head1 OVERVIEW OF CLASSES
+
+The C structures used by Perl's internals to hold SV and OP
+information (PVIV, AV, HV, ..., OP, SVOP, UNOP, ...) are modelled on a
+class hierarchy and the C<B> module gives access to them via a true
+object hierarchy.  Structure fields which point to other objects
+(whether types of SV or types of OP) are represented by the C<B>
+module as Perl objects of the appropriate class.
+
+The bulk of the C<B> module is the methods for accessing fields of
+these structures.
+
+Note that all access is read-only.  You cannot modify the internals by
+using this module.  Also, note that the B::OP and B::SV objects created
+by this module are only valid for as long as the underlying objects
+exist; their creation doesn't increase the reference counts of the
+underlying objects.  Trying to access the fields of a freed object will
+give incomprehensible results, or worse.
+
+=head2 SV-RELATED CLASSES
+
+B::IV, B::NV, B::RV, B::PV, B::PVIV, B::PVNV, B::PVMG, B::BM (5.9.5 and
+earlier), B::PVLV, B::AV, B::HV, B::CV, B::GV, B::FM, B::IO.  These classes
+correspond in the obvious way to the underlying C structures of similar names.
+The inheritance hierarchy mimics the underlying C "inheritance".  For the
+5.10.x branch, (I<ie> 5.10.0, 5.10.1 I<etc>) this is:
+
+                           B::SV
+                             |
+                +------------+------------+------------+
+                |            |            |            |
+              B::PV        B::IV        B::NV        B::RV
+                  \         /           /
+                   \       /           /
+                    B::PVIV           /
+                         \           /
+                          \         /
+                           \       /
+                            B::PVNV
+                               |
+                               |
+                            B::PVMG
+                               |
+                   +-----+-----+-----+-----+
+                   |     |     |     |     |
+                 B::AV B::GV B::HV B::CV B::IO
+                         |           |
+                         |           |
+                      B::PVLV      B::FM
+
+For 5.9.0 and earlier, PVLV is a direct subclass of PVMG, and BM is still
+present as a distinct type, so the base of this diagram is
+
+
+                               |
+                               |
+                            B::PVMG
+                               |
+            +------+-----+-----+-----+-----+-----+
+            |      |     |     |     |     |     |
+         B::PVLV B::BM B::AV B::GV B::HV B::CV B::IO
+                                           |
+                                           |
+                                         B::FM
+
+For 5.11.0 and later, B::RV is abolished, and IVs can be used to store
+references, and a new type B::REGEXP is introduced, giving this structure:
+
+                           B::SV
+                             |
+                +------------+------------+
+                |            |            |
+              B::PV        B::IV        B::NV
+                  \         /           /
+                   \       /           /
+                    B::PVIV           /
+                         \           /
+                          \         /
+                           \       /
+                            B::PVNV
+                               |
+                               |
+                            B::PVMG
+                               |
+           +-------+-------+---+---+-------+-------+
+           |       |       |       |       |       |
+         B::AV   B::GV   B::HV   B::CV   B::IO B::REGEXP
+                   |               |
+                   |               |
+                B::PVLV          B::FM
+
+
+Access methods correspond to the underlying C macros for field access,
+usually with the leading "class indication" prefix removed (Sv, Av,
+Hv, ...).  The leading prefix is only left in cases where its removal
+would cause a clash in method name.  For example, C<GvREFCNT> stays
+as-is since its abbreviation would clash with the "superclass" method
+C<REFCNT> (corresponding to the C function C<SvREFCNT>).
+
+=head2 B::SV Methods
+
+=over 4
+
+=item REFCNT
+
+=item FLAGS
+
+=item object_2svref
+
+Returns a reference to the regular scalar corresponding to this
+B::SV object.  In other words, this method is the inverse operation
+to the svref_2object() subroutine.  This scalar and other data it points
+at should be considered read-only: modifying them is neither safe nor
+guaranteed to have a sensible effect.
+
+=back
+
+=head2 B::IV Methods
+
+=over 4
+
+=item IV
+
+Returns the value of the IV, I<interpreted as
+a signed integer>.  This will be misleading
+if C<FLAGS & SVf_IVisUV>.  Perhaps you want the
+C<int_value> method instead?
+
+=item IVX
+
+=item UVX
+
+=item int_value
+
+This method returns the value of the IV as an integer.
+It differs from C<IV> in that it returns the correct
+value regardless of whether it's stored signed or
+unsigned.
+
+=item needs64bits
+
+=item packiv
+
+=back
+
+=head2 B::NV Methods
+
+=over 4
+
+=item NV
+
+=item NVX
+
+=item COP_SEQ_RANGE_LOW
+
+=item COP_SEQ_RANGE_HIGH
+
+These last two are only valid for pad name SVs.  They only existed in the
+B::NV class before Perl 5.22.  In 5.22 they were moved to the B::PADNAME
+class.
+
+=back
+
+=head2 B::RV Methods
+
+=over 4
+
+=item RV
+
+=back
+
+=head2 B::PV Methods
+
+=over 4
+
+=item PV
+
+This method is the one you usually want.  It constructs a
+string using the length and offset information in the struct:
+for ordinary scalars it will return the string that you'd see
+from Perl, even if it contains null characters.
+
+=item RV
+
+Same as B::RV::RV, except that it will die() if the PV isn't
+a reference.
+
+=item PVX
+
+This method is less often useful.  It assumes that the string
+stored in the struct is null-terminated, and disregards the
+length information.
+
+It is the appropriate method to use if you need to get the name
+of a lexical variable from a padname array.  Lexical variable names
+are always stored with a null terminator, and the length field
+(CUR) is overloaded for other purposes and can't be relied on here.
+
+=item CUR
+
+This method returns the internal length field, which consists of the number
+of internal bytes, not necessarily the number of logical characters.
+
+=item LEN
+
+This method returns the number of bytes allocated (via malloc) for storing
+the string.  This is 0 if the scalar does not "own" the string.
+
+=back
+
+=head2 B::PVMG Methods
+
+=over 4
+
+=item MAGIC
+
+=item SvSTASH
+
+=back
+
+=head2 B::MAGIC Methods
+
+=over 4
+
+=item MOREMAGIC
+
+=item precomp
+
+Only valid on r-magic, returns the string that generated the regexp.
+
+=item PRIVATE
+
+=item TYPE
+
+=item FLAGS
+
+=item OBJ
+
+Will die() if called on r-magic.
+
+=item PTR
+
+=item REGEX
+
+Only valid on r-magic, returns the integer value of the REGEX stored
+in the MAGIC.
+
+=back
+
+=head2 B::PVLV Methods
+
+=over 4
+
+=item TARGOFF
+
+=item TARGLEN
+
+=item TYPE
+
+=item TARG
+
+=back
+
+=head2 B::BM Methods
+
+=over 4
+
+=item USEFUL
+
+=item PREVIOUS
+
+=item RARE
+
+=item TABLE
+
+=back
+
+=head2 B::REGEXP Methods
+
+=over 4
+
+=item REGEX
+
+=item precomp
+
+=item qr_anoncv
+
+=item compflags
+
+The last two were added in Perl 5.22.
+
+=back
+
+=head2 B::GV Methods
+
+=over 4
+
+=item is_empty
+
+This method returns TRUE if the GP field of the GV is NULL.
+
+=item NAME
+
+=item SAFENAME
+
+This method returns the name of the glob, but if the first
+character of the name is a control character, then it converts
+it to ^X first, so that *^G would return "^G" rather than "\cG".
+
+It's useful if you want to print out the name of a variable.
+If you restrict yourself to globs which exist at compile-time
+then the result ought to be unambiguous, because code like
+C<${"^G"} = 1> is compiled as two ops - a constant string and
+a dereference (rv2gv) - so that the glob is created at runtime.
+
+If you're working with globs at runtime, and need to disambiguate
+*^G from *{"^G"}, then you should use the raw NAME method.
+
+=item STASH
+
+=item SV
+
+=item IO
+
+=item FORM
+
+=item AV
+
+=item HV
+
+=item EGV
+
+=item CV
+
+=item CVGEN
+
+=item LINE
+
+=item FILE
+
+=item FILEGV
+
+=item GvREFCNT
+
+=item FLAGS
+
+=item GPFLAGS
+
+This last one is present only in perl 5.22.0 and higher.
+
+=back
+
+=head2 B::IO Methods
+
+B::IO objects derive from IO objects and you will get more information from
+the IO object itself.
+
+For example:
+
+  $gvio = B::svref_2object(\*main::stdin)->IO;
+  $IO = $gvio->object_2svref();
+  $fd = $IO->fileno();
+
+=over 4
+
+=item LINES
+
+=item PAGE
+
+=item PAGE_LEN
+
+=item LINES_LEFT
+
+=item TOP_NAME
+
+=item TOP_GV
+
+=item FMT_NAME
+
+=item FMT_GV
+
+=item BOTTOM_NAME
+
+=item BOTTOM_GV
+
+=item SUBPROCESS
+
+=item IoTYPE
+
+A character symbolizing the type of IO Handle.
+
+  -     STDIN/OUT
+  I     STDIN/OUT/ERR
+  <     read-only
+  >     write-only
+  a     append
+  +     read and write
+  s     socket
+  |     pipe
+  I     IMPLICIT
+  #     NUMERIC
+  space closed handle
+  \0    closed internal handle
+
+=item IoFLAGS
+
+=item IsSTD
+
+Takes one argument ( 'stdin' | 'stdout' | 'stderr' ) and returns true
+if the IoIFP of the object is equal to the handle whose name was
+passed as argument; i.e., $io->IsSTD('stderr') is true if
+IoIFP($io) == PerlIO_stderr().
+
+=back
+
+=head2 B::AV Methods
+
+=over 4
+
+=item FILL
+
+=item MAX
+
+=item ARRAY
+
+=item ARRAYelt
+
+Like C<ARRAY>, but takes an index as an argument to get only one element,
+rather than a list of all of them.
+
+=item OFF
+
+This method is deprecated if running under Perl 5.8, and is no longer present
+if running under Perl 5.9
+
+=item AvFLAGS
+
+This method returns the AV specific
+flags.  In Perl 5.9 these are now stored
+in with the main SV flags, so this method is no longer present.
+
+=back
+
+=head2 B::CV Methods
+
+=over 4
+
+=item STASH
+
+=item START
+
+=item ROOT
+
+=item GV
+
+=item FILE
+
+=item DEPTH
+
+=item PADLIST
+
+Returns a B::PADLIST object under Perl 5.18 or higher, or a B::AV in
+earlier versions.
+
+=item OUTSIDE
+
+=item OUTSIDE_SEQ
+
+=item XSUB
+
+=item XSUBANY
+
+For constant subroutines, returns the constant SV returned by the subroutine.
+
+=item CvFLAGS
+
+=item const_sv
+
+=item NAME_HEK
+
+Returns the name of a lexical sub, otherwise C<undef>.
+
+=back
+
+=head2 B::HV Methods
+
+=over 4
+
+=item FILL
+
+=item MAX
+
+=item KEYS
+
+=item RITER
+
+=item NAME
+
+=item ARRAY
+
+=item PMROOT
+
+This method is not present if running under Perl 5.9, as the PMROOT
+information is no longer stored directly in the hash.
+
+=back
+
+=head2 OP-RELATED CLASSES
+
+C<B::OP>, C<B::UNOP>, C<B::UNOP_AUX>, C<B::BINOP>, C<B::LOGOP>,
+C<B::LISTOP>, C<B::PMOP>, C<B::SVOP>, C<B::PADOP>, C<B::PVOP>, C<B::LOOP>,
+C<B::COP>, C<B::METHOP>.
+
+These classes correspond in the obvious way to the underlying C
+structures of similar names.  The inheritance hierarchy mimics the
+underlying C "inheritance":
+
+                                 B::OP
+                                   |
+                   +----------+---------+--------+-------+---------+
+                   |          |         |        |       |         |
+                B::UNOP    B::SVOP  B::PADOP  B::COP  B::PVOP  B::METHOP
+                   |
+               +---+---+---------+
+               |       |         |
+           B::BINOP  B::LOGOP  B::UNOP_AUX
+               |
+               |
+           B::LISTOP
+               |
+           +---+---+
+           |       |
+        B::LOOP   B::PMOP
+
+Access methods correspond to the underlying C structure field names,
+with the leading "class indication" prefix (C<"op_">) removed.
+
+=head2 B::OP Methods
+
+These methods get the values of similarly named fields within the OP
+data structure.  See top of C<op.h> for more info.
+
+=over 4
+
+=item next
+
+=item sibling
+
+=item parent
+
+Returns the OP's parent. If it has no parent, or if your perl wasn't built
+with C<-DPERL_OP_PARENT>, returns NULL.
+
+Note that the global variable C<$B::OP::does_parent> is undefined on older
+perls that don't support the C<parent> method, is defined but false on
+perls that support the method but were built without  C<-DPERL_OP_PARENT>,
+and is true otherwise.
+
+=item name
+
+This returns the op name as a string (e.g. "add", "rv2av").
+
+=item ppaddr
+
+This returns the function name as a string (e.g. "PL_ppaddr[OP_ADD]",
+"PL_ppaddr[OP_RV2AV]").
+
+=item desc
+
+This returns the op description from the global C PL_op_desc array
+(e.g. "addition" "array deref").
+
+=item targ
+
+=item type
+
+=item opt
+
+=item flags
+
+=item private
+
+=item spare
+
+=back
+
+=head2 B::UNOP Method
+
+=over 4
+
+=item first
+
+=back
+
+=head2 B::UNOP_AUX Methods (since 5.22)
+
+=over 4
+
+=item aux_list(cv)
+
+This returns a list of the elements of the op's aux data structure,
+or a null list if there is no aux. What will be returned depends on the
+object's type, but will typically be a collection of C<B::IV>, C<B::GV>,
+etc. objects. C<cv> is the C<B::CV> object representing the sub that the
+op is contained within.
+
+=item string(cv)
+
+This returns a textual representation of the object (likely to b useful
+for deparsing and debugging), or an empty string if the op type doesn't
+support this. C<cv> is the C<B::CV> object representing the sub that the
+op is contained within.
+
+=back
+
+=head2 B::BINOP Method
+
+=over 4
+
+=item last
+
+=back
+
+=head2 B::LOGOP Method
+
+=over 4
+
+=item other
+
+=back
+
+=head2 B::LISTOP Method
+
+=over 4
+
+=item children
+
+=back
+
+=head2 B::PMOP Methods
+
+=over 4
+
+=item pmreplroot
+
+=item pmreplstart
+
+=item pmnext
+
+Only up to Perl 5.9.4
+
+=item pmflags
+
+=item extflags
+
+Since Perl 5.9.5
+
+=item precomp
+
+=item pmoffset
+
+Only when perl was compiled with ithreads.
+
+=item code_list
+
+Since perl 5.17.1
+
+=item pmregexp
+
+Added in perl 5.22, this method returns the B::REGEXP associated with the
+op.  While PMOPs do not actually have C<pmregexp> fields under threaded
+builds, this method returns the regexp under threads nonetheless, for
+convenience.
+
+=back
+
+=head2 B::SVOP Methods
+
+=over 4
+
+=item sv
+
+=item gv
+
+=back
+
+=head2 B::PADOP Method
+
+=over 4
+
+=item padix
+
+=back
+
+=head2 B::PVOP Method
+
+=over 4
+
+=item pv
+
+=back
+
+=head2 B::LOOP Methods
+
+=over 4
+
+=item redoop
+
+=item nextop
+
+=item lastop
+
+=back
+
+=head2 B::COP Methods
+
+The C<B::COP> class is used for "nextstate" and "dbstate" ops.  As of Perl
+5.22, it is also used for "null" ops that started out as COPs.
+
+=over 4
+
+=item label
+
+=item stash
+
+=item stashpv
+
+=item stashoff (threaded only)
+
+=item file
+
+=item cop_seq
+
+=item arybase
+
+=item line
+
+=item warnings
+
+=item io
+
+=item hints
+
+=item hints_hash
+
+=back
+
+=head2 B::METHOP Methods (Since Perl 5.22)
+
+=over 4
+
+=item first
+
+=item meth_sv
+
+=back
+
+=head2 PAD-RELATED CLASSES
+
+Perl 5.18 introduced a new class, B::PADLIST, returned by B::CV's
+C<PADLIST> method.
+
+Perl 5.22 introduced the B::PADNAMELIST and B::PADNAME classes.
+
+=head2 B::PADLIST Methods
+
+=over 4
+
+=item MAX
+
+=item ARRAY
+
+A list of pads.  The first one contains the names.
+
+The first one is a B::PADNAMELIST under Perl 5.22, and a B::AV under
+earlier versions.  The rest are currently B::AV objects, but that could
+change in future versions.
+
+=item ARRAYelt
+
+Like C<ARRAY>, but takes an index as an argument to get only one element,
+rather than a list of all of them.
+
+=item NAMES
+
+This method, introduced in 5.22, returns the B::PADNAMELIST.  It is
+equivalent to C<ARRAYelt> with a 0 argument.
+
+=item REFCNT
+
+=item id
+
+This method, introduced in 5.22, returns an ID shared by clones of the same
+padlist.
+
+=item outid
+
+This method, also added in 5.22, returns the ID of the outer padlist.
+
+=back
+
+=head2 B::PADNAMELIST Methods
+
+=over 4
+
+=item MAX
+
+=item ARRAY
+
+=item ARRAYelt
+
+These two methods return the pad names, using B::SPECIAL objects for null
+pointers and B::PADNAME objects otherwise.
+
+=item REFCNT
+
+=back
+
+=head2 B::PADNAME Methods
+
+=over 4
+
+=item PV
+
+=item PVX
+
+=item LEN
+
+=item REFCNT
+
+=item FLAGS
+
+For backward-compatibility, if the PADNAMEt_OUTER flag is set, the FLAGS
+method adds the SVf_FAKE flag, too.
+
+=item TYPE
+
+A B::HV object representing the stash for a typed lexical.
+
+=item SvSTASH
+
+A backward-compatibility alias for TYPE.
+
+=item OURSTASH
+
+A B::HV object representing the stash for 'our' variables.
+
+=item PROTOCV
+
+The prototype CV for a 'my' sub.
+
+=item COP_SEQ_RANGE_LOW
+
+=item COP_SEQ_RANGE_HIGH
+
+Sequence numbers representing the scope within which a lexical is visible.
+Meaningless if PADNAMEt_OUTER is set.
+
+=item PARENT_PAD_INDEX
+
+Only meaningful if PADNAMEt_OUTER is set.
+
+=item PARENT_FAKELEX_FLAGS
+
+Only meaningful if PADNAMEt_OUTER is set.
+
+=back
+
+=head2 $B::overlay
+
+Although the optree is read-only, there is an overlay facility that allows
+you to override what values the various B::*OP methods return for a
+particular op. C<$B::overlay> should be set to reference a two-deep hash:
+indexed by OP address, then method name. Whenever a an op method is
+called, the value in the hash is returned if it exists. This facility is
+used by B::Deparse to "undo" some optimisations. For example:
+
+
+    local $B::overlay = {};
+    ...
+    if ($op->name eq "foo") {
+        $B::overlay->{$$op} = {
+                name => 'bar',
+                next => $op->next->next,
+        };
+    }
+    ...
+    $op->name # returns "bar"
+    $op->next # returns the next op but one
+
+
+=head1 AUTHOR
+
+Malcolm Beattie, C<mbeattie@sable.ox.ac.uk>
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/B/Concise.pm b/lib/5.24.1/x86_64-linux/B/Concise.pm
new file mode 100644
index 00000000..311e0e73
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/B/Concise.pm
@@ -0,0 +1,1870 @@
+package B::Concise;
+# Copyright (C) 2000-2003 Stephen McCamant. All rights reserved.
+# This program is free software; you can redistribute and/or modify it
+# under the same terms as Perl itself.
+
+# Note: we need to keep track of how many use declarations/BEGIN
+# blocks this module uses, so we can avoid printing them when user
+# asks for the BEGIN blocks in her program. Update the comments and
+# the count in concise_specials if you add or delete one. The
+# -MO=Concise counts as use #1.
+
+use strict; # use #2
+use warnings; # uses #3 and #4, since warnings uses Carp
+
+use Exporter (); # use #5
+
+our $VERSION   = "0.996";
+our @ISA       = qw(Exporter);
+our @EXPORT_OK = qw( set_style set_style_standard add_callback
+		     concise_subref concise_cv concise_main
+		     add_style walk_output compile reset_sequence );
+our %EXPORT_TAGS =
+    ( io	=> [qw( walk_output compile reset_sequence )],
+      style	=> [qw( add_style set_style_standard )],
+      cb	=> [qw( add_callback )],
+      mech	=> [qw( concise_subref concise_cv concise_main )],  );
+
+# use #6
+use B qw(class ppname main_start main_root main_cv cstring svref_2object
+	 SVf_IOK SVf_NOK SVf_POK SVf_IVisUV SVf_FAKE OPf_KIDS OPf_SPECIAL
+	 CVf_ANON PAD_FAKELEX_ANON PAD_FAKELEX_MULTI SVf_ROK);
+
+my %style =
+  ("terse" =>
+   ["(?(#label =>\n)?)(*(    )*)#class (#addr) #name (?([#targ])?) "
+    . "#svclass~(?((#svaddr))?)~#svval~(?(label \"#coplabel\")?)\n",
+    "(*(    )*)goto #class (#addr)\n",
+    "#class pp_#name"],
+   "concise" =>
+   ["#hyphseq2 (*(   (x( ;)x))*)<#classsym> #exname#arg(?([#targarglife])?)"
+    . "~#flags(?(/#private)?)(?(:#hints)?)(x(;~->#next)x)\n"
+    , "  (*(    )*)     goto #seq\n",
+    "(?(<#seq>)?)#exname#arg(?([#targarglife])?)"],
+   "linenoise" =>
+   ["(x(;(*( )*))x)#noise#arg(?([#targarg])?)(x( ;\n)x)",
+    "gt_#seq ",
+    "(?(#seq)?)#noise#arg(?([#targarg])?)"],
+   "debug" =>
+   ["#class (#addr)\n\top_next\t\t#nextaddr\n\t(?(op_other\t#otheraddr\n\t)?)"
+    . "op_sibling\t#sibaddr\n\t"
+    . "op_ppaddr\tPL_ppaddr[OP_#NAME]\n\top_type\t\t#typenum\n"
+    . "\top_flags\t#flagval\n\top_private\t#privval\t#hintsval\n"
+    . "(?(\top_first\t#firstaddr\n)?)(?(\top_last\t\t#lastaddr\n)?)"
+    . "(?(\top_sv\t\t#svaddr\n)?)",
+    "    GOTO #addr\n",
+    "#addr"],
+   "env" => [$ENV{B_CONCISE_FORMAT}, $ENV{B_CONCISE_GOTO_FORMAT},
+	     $ENV{B_CONCISE_TREE_FORMAT}],
+  );
+
+# Renderings, ie how Concise prints, is controlled by these vars
+# primary:
+our $stylename;		# selects current style from %style
+my $order = "basic";	# how optree is walked & printed: basic, exec, tree
+
+# rendering mechanics:
+# these 'formats' are the line-rendering templates
+# they're updated from %style when $stylename changes
+my ($format, $gotofmt, $treefmt);
+
+# lesser players:
+my $base = 36;		# how <sequence#> is displayed
+my $big_endian = 1;	# more <sequence#> display
+my $tree_style = 0;	# tree-order details
+my $banner = 1;		# print banner before optree is traversed
+my $do_main = 0;	# force printing of main routine
+my $show_src;		# show source code
+
+# another factor: can affect all styles!
+our @callbacks;		# allow external management
+
+set_style_standard("concise");
+
+my $curcv;
+my $cop_seq_base;
+
+sub set_style {
+    ($format, $gotofmt, $treefmt) = @_;
+    #warn "set_style: deprecated, use set_style_standard instead\n"; # someday
+    die "expecting 3 style-format args\n" unless @_ == 3;
+}
+
+sub add_style {
+    my ($newstyle,@args) = @_;
+    die "style '$newstyle' already exists, choose a new name\n"
+	if exists $style{$newstyle};
+    die "expecting 3 style-format args\n" unless @args == 3;
+    $style{$newstyle} = [@args];
+    $stylename = $newstyle; # update rendering state
+}
+
+sub set_style_standard {
+    ($stylename) = @_; # update rendering state
+    die "err: style '$stylename' unknown\n" unless exists $style{$stylename};
+    set_style(@{$style{$stylename}});
+}
+
+sub add_callback {
+    push @callbacks, @_;
+}
+
+# output handle, used with all Concise-output printing
+our $walkHandle;	# public for your convenience
+BEGIN { $walkHandle = \*STDOUT }
+
+sub walk_output { # updates $walkHandle
+    my $handle = shift;
+    return $walkHandle unless $handle; # allow use as accessor
+
+    if (ref $handle eq 'SCALAR') {
+	require Config;
+	die "no perlio in this build, can't call walk_output (\\\$scalar)\n"
+	    unless $Config::Config{useperlio};
+	# in 5.8+, open(FILEHANDLE,MODE,REFERENCE) writes to string
+	open my $tmp, '>', $handle;	# but cant re-set existing STDOUT
+	$walkHandle = $tmp;		# so use my $tmp as intermediate var
+	return $walkHandle;
+    }
+    my $iotype = ref $handle;
+    die "expecting argument/object that can print\n"
+	unless $iotype eq 'GLOB' or $iotype and $handle->can('print');
+    $walkHandle = $handle;
+}
+
+sub concise_subref {
+    my($order, $coderef, $name) = @_;
+    my $codeobj = svref_2object($coderef);
+
+    return concise_stashref(@_)
+	unless ref($codeobj) =~ '^B::(?:CV|FM)\z';
+    concise_cv_obj($order, $codeobj, $name);
+}
+
+sub concise_stashref {
+    my($order, $h) = @_;
+    local *s;
+    foreach my $k (sort keys %$h) {
+	next unless defined $h->{$k};
+	*s = $h->{$k};
+	my $coderef = *s{CODE} or next;
+	reset_sequence();
+	print "FUNC: ", *s, "\n";
+	my $codeobj = svref_2object($coderef);
+	next unless ref $codeobj eq 'B::CV';
+	eval { concise_cv_obj($order, $codeobj, $k) };
+	warn "err $@ on $codeobj" if $@;
+    }
+}
+
+# This should have been called concise_subref, but it was exported
+# under this name in versions before 0.56
+*concise_cv = \&concise_subref;
+
+sub concise_cv_obj {
+    my ($order, $cv, $name) = @_;
+    # name is either a string, or a CODE ref (copy of $cv arg??)
+
+    $curcv = $cv;
+
+    if (ref($cv->XSUBANY) =~ /B::(\w+)/) {
+	print $walkHandle "$name is a constant sub, optimized to a $1\n";
+	return;
+    }
+    if ($cv->XSUB) {
+	print $walkHandle "$name is XS code\n";
+	return;
+    }
+    if (class($cv->START) eq "NULL") {
+	no strict 'refs';
+	if (ref $name eq 'CODE') {
+	    print $walkHandle "coderef $name has no START\n";
+	}
+	elsif (exists &$name) {
+	    print $walkHandle "$name exists in stash, but has no START\n";
+	}
+	else {
+	    print $walkHandle "$name not in symbol table\n";
+	}
+	return;
+    }
+    sequence($cv->START);
+    if ($order eq "exec") {
+	walk_exec($cv->START);
+    }
+    elsif ($order eq "basic") {
+	# walk_topdown($cv->ROOT, sub { $_[0]->concise($_[1]) }, 0);
+	my $root = $cv->ROOT;
+	unless (ref $root eq 'B::NULL') {
+	    walk_topdown($root, sub { $_[0]->concise($_[1]) }, 0);
+	} else {
+	    print $walkHandle "B::NULL encountered doing ROOT on $cv. avoiding disaster\n";
+	}
+    } else {
+	print $walkHandle tree($cv->ROOT, 0);
+    }
+}
+
+sub concise_main {
+    my($order) = @_;
+    sequence(main_start);
+    $curcv = main_cv;
+    if ($order eq "exec") {
+	return if class(main_start) eq "NULL";
+	walk_exec(main_start);
+    } elsif ($order eq "tree") {
+	return if class(main_root) eq "NULL";
+	print $walkHandle tree(main_root, 0);
+    } elsif ($order eq "basic") {
+	return if class(main_root) eq "NULL";
+	walk_topdown(main_root,
+		     sub { $_[0]->concise($_[1]) }, 0);
+    }
+}
+
+sub concise_specials {
+    my($name, $order, @cv_s) = @_;
+    my $i = 1;
+    if ($name eq "BEGIN") {
+	splice(@cv_s, 0, 8); # skip 7 BEGIN blocks in this file. NOW 8 ??
+    } elsif ($name eq "CHECK") {
+	pop @cv_s; # skip the CHECK block that calls us
+    }
+    for my $cv (@cv_s) {
+	print $walkHandle "$name $i:\n";
+	$i++;
+	concise_cv_obj($order, $cv, $name);
+    }
+}
+
+my $start_sym = "\e(0"; # "\cN" sometimes also works
+my $end_sym   = "\e(B"; # "\cO" respectively
+
+my @tree_decorations =
+  (["  ", "--", "+-", "|-", "| ", "`-", "-", 1],
+   [" ", "-", "+", "+", "|", "`", "", 0],
+   ["  ", map("$start_sym$_$end_sym", "qq", "wq", "tq", "x ", "mq", "q"), 1],
+   [" ", map("$start_sym$_$end_sym", "q", "w", "t", "x", "m"), "", 0],
+  );
+
+my @render_packs; # collect -stash=<packages>
+
+sub compileOpts {
+    # set rendering state from options and args
+    my (@options,@args);
+    if (@_) {
+	@options = grep(/^-/, @_);
+	@args = grep(!/^-/, @_);
+    }
+    for my $o (@options) {
+	# mode/order
+	if ($o eq "-basic") {
+	    $order = "basic";
+	} elsif ($o eq "-exec") {
+	    $order = "exec";
+	} elsif ($o eq "-tree") {
+	    $order = "tree";
+	}
+	# tree-specific
+	elsif ($o eq "-compact") {
+	    $tree_style |= 1;
+	} elsif ($o eq "-loose") {
+	    $tree_style &= ~1;
+	} elsif ($o eq "-vt") {
+	    $tree_style |= 2;
+	} elsif ($o eq "-ascii") {
+	    $tree_style &= ~2;
+	}
+	# sequence numbering
+	elsif ($o =~ /^-base(\d+)$/) {
+	    $base = $1;
+	} elsif ($o eq "-bigendian") {
+	    $big_endian = 1;
+	} elsif ($o eq "-littleendian") {
+	    $big_endian = 0;
+	}
+	# miscellaneous, presentation
+	elsif ($o eq "-nobanner") {
+	    $banner = 0;
+	} elsif ($o eq "-banner") {
+	    $banner = 1;
+	}
+	elsif ($o eq "-main") {
+	    $do_main = 1;
+	} elsif ($o eq "-nomain") {
+	    $do_main = 0;
+	} elsif ($o eq "-src") {
+	    $show_src = 1;
+	}
+	elsif ($o =~ /^-stash=(.*)/) {
+	    my $pkg = $1;
+	    no strict 'refs';
+	    if (! %{$pkg.'::'}) {
+		eval "require $pkg";
+	    } else {
+		require Config;
+		if (!$Config::Config{usedl}
+		    && keys %{$pkg.'::'} == 1
+		    && $pkg->can('bootstrap')) {
+		    # It is something that we're statically linked to, but hasn't
+		    # yet been used.
+		    eval "require $pkg";
+		}
+	    }
+	    push @render_packs, $pkg;
+	}
+	# line-style options
+	elsif (exists $style{substr($o, 1)}) {
+	    $stylename = substr($o, 1);
+	    set_style_standard($stylename);
+	} else {
+	    warn "Option $o unrecognized";
+	}
+    }
+    return (@args);
+}
+
+sub compile {
+    my (@args) = compileOpts(@_);
+    return sub {
+	my @newargs = compileOpts(@_); # accept new rendering options
+	warn "disregarding non-options: @newargs\n" if @newargs;
+
+	for my $objname (@args) {
+	    next unless $objname; # skip null args to avoid noisy responses
+
+	    if ($objname eq "BEGIN") {
+		concise_specials("BEGIN", $order,
+				 B::begin_av->isa("B::AV") ?
+				 B::begin_av->ARRAY : ());
+	    } elsif ($objname eq "INIT") {
+		concise_specials("INIT", $order,
+				 B::init_av->isa("B::AV") ?
+				 B::init_av->ARRAY : ());
+	    } elsif ($objname eq "CHECK") {
+		concise_specials("CHECK", $order,
+				 B::check_av->isa("B::AV") ?
+				 B::check_av->ARRAY : ());
+	    } elsif ($objname eq "UNITCHECK") {
+		concise_specials("UNITCHECK", $order,
+				 B::unitcheck_av->isa("B::AV") ?
+				 B::unitcheck_av->ARRAY : ());
+	    } elsif ($objname eq "END") {
+		concise_specials("END", $order,
+				 B::end_av->isa("B::AV") ?
+				 B::end_av->ARRAY : ());
+	    }
+	    else {
+		# convert function names to subrefs
+		if (ref $objname) {
+		    print $walkHandle "B::Concise::compile($objname)\n"
+			if $banner;
+		    concise_subref($order, ($objname)x2);
+		    next;
+		} else {
+		    $objname = "main::" . $objname unless $objname =~ /::/;
+		    no strict 'refs';
+		    my $glob = \*$objname;
+		    unless (*$glob{CODE} || *$glob{FORMAT}) {
+			print $walkHandle "$objname:\n" if $banner;
+			print $walkHandle "err: unknown function ($objname)\n";
+			return;
+		    }
+		    if (my $objref = *$glob{CODE}) {
+			print $walkHandle "$objname:\n" if $banner;
+			concise_subref($order, $objref, $objname);
+		    }
+		    if (my $objref = *$glob{FORMAT}) {
+			print $walkHandle "$objname (FORMAT):\n"
+			    if $banner;
+			concise_subref($order, $objref, $objname);
+		    }
+		}
+	    }
+	}
+	for my $pkg (@render_packs) {
+	    no strict 'refs';
+	    concise_stashref($order, \%{$pkg.'::'});
+	}
+
+	if (!@args or $do_main or @render_packs) {
+	    print $walkHandle "main program:\n" if $do_main;
+	    concise_main($order);
+	}
+	return @args;	# something
+    }
+}
+
+my %labels;
+my $lastnext;	# remembers op-chain, used to insert gotos
+
+my %opclass = ('OP' => "0", 'UNOP' => "1", 'BINOP' => "2", 'LOGOP' => "|",
+	       'LISTOP' => "@", 'PMOP' => "/", 'SVOP' => "\$", 'GVOP' => "*",
+	       'PVOP' => '"', 'LOOP' => "{", 'COP' => ";", 'PADOP' => "#",
+	       'METHOP' => '.', UNOP_AUX => '+');
+
+no warnings 'qw'; # "Possible attempt to put comments..."; use #7
+my @linenoise =
+  qw'#  () sc (  @? 1  $* gv *{ m$ m@ m% m? p/ *$ $  $# & a& pt \\ s\\ rf bl
+     `  *? <> ?? ?/ r/ c/ // qr s/ /c y/ =  @= C  sC Cp sp df un BM po +1 +I
+     -1 -I 1+ I+ 1- I- ** *  i* /  i/ %$ i% x  +  i+ -  i- .  "  << >> <  i<
+     >  i> <= i, >= i. == i= != i! <? i? s< s> s, s. s= s! s? b& b^ b| -0 -i
+     !  ~  a2 si cs rd sr e^ lg sq in %x %o ab le ss ve ix ri sf FL od ch cy
+     uf lf uc lc qm @  [f [  @[ eh vl ky dl ex %  ${ @{ uk pk st jn )  )[ a@
+     a% sl +] -] [- [+ so rv GS GW MS MW .. f. .f && || ^^ ?: &= |= -> s{ s}
+     v} ca wa di rs ;; ;  ;d }{ {  }  {} f{ it {l l} rt }l }n }r dm }g }e ^o
+     ^c ^| ^# um bm t~ u~ ~d DB db ^s se ^g ^r {w }w pf pr ^O ^K ^R ^W ^d ^v
+     ^e ^t ^k t. fc ic fl .s .p .b .c .l .a .h g1 s1 g2 s2 ?. l? -R -W -X -r
+     -w -x -e -o -O -z -s -M -A -C -S -c -b -f -d -p -l -u -g -k -t -T -B cd
+     co cr u. cm ut r. l@ s@ r@ mD uD oD rD tD sD wD cD f$ w$ p$ sh e$ k$ g3
+     g4 s4 g5 s5 T@ C@ L@ G@ A@ S@ Hg Hc Hr Hw Mg Mc Ms Mr Sg Sc So rq do {e
+     e} {t t} g6 G6 6e g7 G7 7e g8 G8 8e g9 G9 9e 6s 7s 8s 9s 6E 7E 8E 9E Pn
+     Pu GP SP EP Gn Gg GG SG EG g0 c$ lk t$ ;s n> // /= CO';
+
+my $chars = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ";
+
+sub op_flags { # common flags (see BASOP.op_flags in op.h)
+    my($x) = @_;
+    my(@v);
+    push @v, "v" if ($x & 3) == 1;
+    push @v, "s" if ($x & 3) == 2;
+    push @v, "l" if ($x & 3) == 3;
+    push @v, "K" if $x & 4;
+    push @v, "P" if $x & 8;
+    push @v, "R" if $x & 16;
+    push @v, "M" if $x & 32;
+    push @v, "S" if $x & 64;
+    push @v, "*" if $x & 128;
+    return join("", @v);
+}
+
+sub base_n {
+    my $x = shift;
+    return "-" . base_n(-$x) if $x < 0;
+    my $str = "";
+    do { $str .= substr($chars, $x % $base, 1) } while $x = int($x / $base);
+    $str = reverse $str if $big_endian;
+    return $str;
+}
+
+my %sequence_num;
+my $seq_max = 1;
+
+sub reset_sequence {
+    # reset the sequence
+    %sequence_num = ();
+    $seq_max = 1;
+    $lastnext = 0;
+}
+
+sub seq {
+    my($op) = @_;
+    return "-" if not exists $sequence_num{$$op};
+    return base_n($sequence_num{$$op});
+}
+
+sub walk_topdown {
+    my($op, $sub, $level) = @_;
+    $sub->($op, $level);
+    if ($op->flags & OPf_KIDS) {
+	for (my $kid = $op->first; $$kid; $kid = $kid->sibling) {
+	    walk_topdown($kid, $sub, $level + 1);
+	}
+    }
+    if (class($op) eq "PMOP") {
+	my $maybe_root = $op->code_list;
+	if ( ref($maybe_root) and $maybe_root->isa("B::OP")
+	 and not $op->flags & OPf_KIDS) {
+	    walk_topdown($maybe_root, $sub, $level + 1);
+	}
+	$maybe_root = $op->pmreplroot;
+	if (ref($maybe_root) and $maybe_root->isa("B::OP")) {
+	    # It really is the root of the replacement, not something
+	    # else stored here for lack of space elsewhere
+	    walk_topdown($maybe_root, $sub, $level + 1);
+	}
+    }
+}
+
+sub walklines {
+    my($ar, $level) = @_;
+    for my $l (@$ar) {
+	if (ref($l) eq "ARRAY") {
+	    walklines($l, $level + 1);
+	} else {
+	    $l->concise($level);
+	}
+    }
+}
+
+sub walk_exec {
+    my($top, $level) = @_;
+    my %opsseen;
+    my @lines;
+    my @todo = ([$top, \@lines]);
+    while (@todo and my($op, $targ) = @{shift @todo}) {
+	for (; $$op; $op = $op->next) {
+	    last if $opsseen{$$op}++;
+	    push @$targ, $op;
+	    my $name = $op->name;
+	    if (class($op) eq "LOGOP") {
+		my $ar = [];
+		push @$targ, $ar;
+		push @todo, [$op->other, $ar];
+	    } elsif ($name eq "subst" and $ {$op->pmreplstart}) {
+		my $ar = [];
+		push @$targ, $ar;
+		push @todo, [$op->pmreplstart, $ar];
+	    } elsif ($name =~ /^enter(loop|iter)$/) {
+		$labels{${$op->nextop}} = "NEXT";
+		$labels{${$op->lastop}} = "LAST";
+		$labels{${$op->redoop}} = "REDO";
+	    }
+	}
+    }
+    walklines(\@lines, 0);
+}
+
+# The structure of this routine is purposely modeled after op.c's peep()
+sub sequence {
+    my($op) = @_;
+    my $oldop = 0;
+    return if class($op) eq "NULL" or exists $sequence_num{$$op};
+    for (; $$op; $op = $op->next) {
+	last if exists $sequence_num{$$op};
+	my $name = $op->name;
+	$sequence_num{$$op} = $seq_max++;
+	if (class($op) eq "LOGOP") {
+	    sequence($op->other);
+	} elsif (class($op) eq "LOOP") {
+	    sequence($op->redoop);
+	    sequence( $op->nextop);
+	    sequence($op->lastop);
+	} elsif ($name eq "subst" and $ {$op->pmreplstart}) {
+	    sequence($op->pmreplstart);
+	}
+	$oldop = $op;
+    }
+}
+
+sub fmt_line {    # generate text-line for op.
+    my($hr, $op, $text, $level) = @_;
+
+    $_->($hr, $op, \$text, \$level, $stylename) for @callbacks;
+
+    return '' if $hr->{SKIP};	# suppress line if a callback said so
+    return '' if $hr->{goto} and $hr->{goto} eq '-';	# no goto nowhere
+
+    # spec: (?(text1#varText2)?)
+    $text =~ s/\(\?\(([^\#]*?)\#(\w+)([^\#]*?)\)\?\)/
+	$hr->{$2} ? $1.$hr->{$2}.$3 : ""/eg;
+
+    # spec: (x(exec_text;basic_text)x)
+    $text =~ s/\(x\((.*?);(.*?)\)x\)/$order eq "exec" ? $1 : $2/egs;
+
+    # spec: (*(text)*)
+    $text =~ s/\(\*\(([^;]*?)\)\*\)/$1 x $level/egs;
+
+    # spec: (*(text1;text2)*)
+    $text =~ s/\(\*\((.*?);(.*?)\)\*\)/$1 x ($level - 1) . $2 x ($level>0)/egs;
+
+    # convert #Var to tag=>val form: Var\t#var
+    $text =~ s/\#([A-Z][a-z]+)(\d+)?/\t\u$1\t\L#$1$2/gs;
+
+    # spec: #varN
+    $text =~ s/\#([a-zA-Z]+)(\d+)/sprintf("%-$2s", $hr->{$1})/eg;
+
+    $text =~ s/\#([a-zA-Z]+)/$hr->{$1}/eg;	# populate #var's
+    $text =~ s/[ \t]*~+[ \t]*/ /g;		# squeeze tildes
+
+    $text = "# $hr->{src}\n$text" if $show_src and $hr->{src};
+
+    chomp $text;
+    return "$text\n" if $text ne "" and $order ne "tree";
+    return $text; # suppress empty lines
+}
+
+
+
+# use require rather than use here to avoid disturbing tests that dump
+# BEGIN blocks
+require B::Op_private;
+
+
+
+our %hints; # used to display each COP's op_hints values
+
+# strict refs, subs, vars
+@hints{2,512,1024,32,64,128} = ('$', '&', '*', 'x$', 'x&', 'x*');
+# integers, locale, bytes
+@hints{1,4,8,16} = ('i', 'l', 'b');
+# block scope, localise %^H, $^OPEN (in), $^OPEN (out)
+@hints{256,131072,262144,524288} = ('{','%','<','>');
+# overload new integer, float, binary, string, re
+@hints{4096,8192,16384,32768,65536} = ('I', 'F', 'B', 'S', 'R');
+# taint and eval
+@hints{1048576,2097152} = ('T', 'E');
+# filetest access, UTF-8
+@hints{4194304,8388608} = ('X', 'U');
+
+sub _flags {
+    my($hash, $x) = @_;
+    my @s;
+    for my $flag (sort {$b <=> $a} keys %$hash) {
+	if ($hash->{$flag} and $x & $flag and $x >= $flag) {
+	    $x -= $flag;
+	    push @s, $hash->{$flag};
+	}
+    }
+    push @s, $x if $x;
+    return join(",", @s);
+}
+
+# return a string like 'LVINTRO,1' for the op $name with op_private
+# value $x
+
+sub private_flags {
+    my($name, $x) = @_;
+    my $entry = $B::Op_private::bits{$name};
+    return $x ? "$x" : '' unless $entry;
+
+    my @flags;
+    my $bit;
+    for ($bit = 7; $bit >= 0; $bit--) {
+        next unless exists $entry->{$bit};
+        my $e = $entry->{$bit};
+        if (ref($e) eq 'HASH') {
+            # bit field
+
+            my ($bitmin, $bitmax, $bitmask, $enum, $label) =
+                    @{$e}{qw(bitmin bitmax bitmask enum label)};
+            $bit = $bitmin;
+            next if defined $label && $label eq '-'; # display as raw number
+
+            my $val = $x & $bitmask;
+            $x &= ~$bitmask;
+            $val >>= $bitmin;
+
+            if (defined $enum) {
+                # try to convert numeric $val into symbolic
+                my @enum = @$enum;
+                while (@enum) {
+                    my $ix    = shift @enum;
+                    my $name  = shift @enum;
+                    my $label = shift @enum;
+                    if ($val == $ix) {
+                        $val = $label;
+                        last;
+                    }
+                }
+            }
+            next if $val eq '0'; # don't display anonymous zero values
+            push @flags, defined $label ? "$label=$val" : $val;
+
+        }
+        else {
+            # flag bit
+            my $label = $B::Op_private::labels{$e};
+            next if defined $label && $label eq '-'; # display as raw number
+            if ($x & (1<<$bit)) {
+                $x -= (1<<$bit);
+                push @flags, $label;
+            }
+        }
+    }
+
+    push @flags, $x if $x; # display unknown bits numerically
+    return join ",", @flags;
+}
+
+sub hints_flags {
+    my($x) = @_;
+    _flags(\%hints, $x);
+}
+
+sub concise_sv {
+    my($sv, $hr, $preferpv) = @_;
+    $hr->{svclass} = class($sv);
+    $hr->{svclass} = "UV"
+      if $hr->{svclass} eq "IV" and $sv->FLAGS & SVf_IVisUV;
+    Carp::cluck("bad concise_sv: $sv") unless $sv and $$sv;
+    $hr->{svaddr} = sprintf("%#x", $$sv);
+    if ($hr->{svclass} eq "GV" && $sv->isGV_with_GP()) {
+	my $gv = $sv;
+	my $stash = $gv->STASH;
+	if (class($stash) eq "SPECIAL") {
+	    $stash = "<none>";
+	}
+	else {
+	    $stash = $stash->NAME;
+	}
+	if ($stash eq "main") {
+	    $stash = "";
+	} else {
+	    $stash = $stash . "::";
+	}
+	$hr->{svval} = "*$stash" . $gv->SAFENAME;
+	return "*$stash" . $gv->SAFENAME;
+    } else {
+	if ($] >= 5.011) {
+	    while (class($sv) eq "IV" && $sv->FLAGS & SVf_ROK) {
+		$hr->{svval} .= "\\";
+		$sv = $sv->RV;
+	    }
+	} else {
+	    while (class($sv) eq "RV") {
+		$hr->{svval} .= "\\";
+		$sv = $sv->RV;
+	    }
+	}
+	if (class($sv) eq "SPECIAL") {
+	    $hr->{svval} .= ["Null", "sv_undef", "sv_yes", "sv_no"]->[$$sv];
+	} elsif ($preferpv
+	      && ($sv->FLAGS & SVf_POK || class($sv) eq "REGEXP")) {
+	    $hr->{svval} .= cstring($sv->PV);
+	} elsif ($sv->FLAGS & SVf_NOK) {
+	    $hr->{svval} .= $sv->NV;
+	} elsif ($sv->FLAGS & SVf_IOK) {
+	    $hr->{svval} .= $sv->int_value;
+	} elsif ($sv->FLAGS & SVf_POK || class($sv) eq "REGEXP") {
+	    $hr->{svval} .= cstring($sv->PV);
+	} elsif (class($sv) eq "HV") {
+	    $hr->{svval} .= 'HASH';
+	}
+
+	$hr->{svval} = 'undef' unless defined $hr->{svval};
+	my $out = $hr->{svclass};
+	return $out .= " $hr->{svval}" ; 
+    }
+}
+
+my %srclines;
+
+sub fill_srclines {
+    my $fullnm = shift;
+    if ($fullnm eq '-e') {
+	$srclines{$fullnm} = [ $fullnm, "-src not supported for -e" ];
+	return;
+    }
+    open (my $fh, '<', $fullnm)
+	or warn "# $fullnm: $!, (chdirs not supported by this feature yet)\n"
+	and return;
+    my @l = <$fh>;
+    chomp @l;
+    unshift @l, $fullnm; # like @{_<$fullnm} in debug, array starts at 1
+    $srclines{$fullnm} = \@l;
+}
+
+sub concise_op {
+    my ($op, $level, $format) = @_;
+    my %h;
+    $h{exname} = $h{name} = $op->name;
+    $h{NAME} = uc $h{name};
+    $h{class} = class($op);
+    $h{extarg} = $h{targ} = $op->targ;
+    $h{extarg} = "" unless $h{extarg};
+    $h{privval} = $op->private;
+    # for null ops, targ holds the old type
+    my $origname = $h{name} eq "null" && $h{targ}
+      ? substr(ppname($h{targ}), 3)
+      : $h{name};
+    $h{private} = private_flags($origname, $op->private);
+    if ($op->folded) {
+      $h{private} &&= "$h{private},";
+      $h{private} .= "FOLD";
+    }
+
+    if ($h{name} ne $origname) { # a null op
+	$h{exname} = "ex-$origname";
+	$h{extarg} = "";
+    } elsif ($h{private} =~ /\bREFC\b/) {
+	# targ holds a reference count
+        my $refs = "ref" . ($h{targ} != 1 ? "s" : "");
+        $h{targarglife} = $h{targarg} = "$h{targ} $refs";
+    } elsif ($h{targ}) {
+	my $count = $h{name} eq 'padrange'
+            ? ($op->private & $B::Op_private::defines{'OPpPADRANGE_COUNTMASK'})
+            : 1;
+	my (@targarg, @targarglife);
+	for my $i (0..$count-1) {
+	    my ($targarg, $targarglife);
+	    my $padname = (($curcv->PADLIST->ARRAY)[0]->ARRAY)[$h{targ}+$i];
+	    if (defined $padname and class($padname) ne "SPECIAL" and
+		$padname->LEN)
+	    {
+		$targarg  = $padname->PVX;
+		if ($padname->FLAGS & SVf_FAKE) {
+		    # These changes relate to the jumbo closure fix.
+		    # See changes 19939 and 20005
+		    my $fake = '';
+		    $fake .= 'a'
+			if $padname->PARENT_FAKELEX_FLAGS & PAD_FAKELEX_ANON;
+		    $fake .= 'm'
+			if $padname->PARENT_FAKELEX_FLAGS & PAD_FAKELEX_MULTI;
+		    $fake .= ':' . $padname->PARENT_PAD_INDEX
+			if $curcv->CvFLAGS & CVf_ANON;
+		    $targarglife = "$targarg:FAKE:$fake";
+		}
+		else {
+		    my $intro = $padname->COP_SEQ_RANGE_LOW - $cop_seq_base;
+		    my $finish = int($padname->COP_SEQ_RANGE_HIGH) - $cop_seq_base;
+		    $finish = "end" if $finish == 999999999 - $cop_seq_base;
+		    $targarglife = "$targarg:$intro,$finish";
+		}
+	    } else {
+		$targarglife = $targarg = "t" . ($h{targ}+$i);
+	    }
+	    push @targarg,     $targarg;
+	    push @targarglife, $targarglife;
+	}
+	$h{targarg}     = join '; ', @targarg;
+	$h{targarglife} = join '; ', @targarglife;
+    }
+    $h{arg} = "";
+    $h{svclass} = $h{svaddr} = $h{svval} = "";
+    if ($h{class} eq "PMOP") {
+	my $extra = '';
+	my $precomp = $op->precomp;
+	if (defined $precomp) {
+	    $precomp = cstring($precomp); # Escape literal control sequences
+ 	    $precomp = "/$precomp/";
+	} else {
+	    $precomp = "";
+	}
+	if ($op->name eq 'subst') {
+	    if (class($op->pmreplstart) ne "NULL") {
+		undef $lastnext;
+		$extra = " replstart->" . seq($op->pmreplstart);
+	    }
+	}
+	elsif ($op->name eq 'pushre') {
+	    # with C<@stash_array = split(/pat/, str);>,
+	    #  *stash_array is stored in /pat/'s pmreplroot.
+	    my $gv = $op->pmreplroot;
+	    if (!ref($gv)) {
+		# threaded: the value is actually a pad offset for where
+		# the GV is kept (op_pmtargetoff)
+		if ($gv) {
+		    $gv = (($curcv->PADLIST->ARRAY)[1]->ARRAY)[$gv]->NAME;
+		}
+	    }
+	    else {
+		# unthreaded: its a GV (if it exists)
+		$gv = (ref($gv) eq "B::GV") ? $gv->NAME : undef;
+	    }
+	    $extra = " => \@$gv" if $gv;
+	}
+	$h{arg} = "($precomp$extra)";
+    } elsif ($h{class} eq "PVOP" and $h{name} !~ '^transr?\z') {
+	$h{arg} = '("' . $op->pv . '")';
+	$h{svval} = '"' . $op->pv . '"';
+    } elsif ($h{class} eq "COP") {
+	my $label = $op->label;
+	$h{coplabel} = $label;
+	$label = $label ? "$label: " : "";
+	my $loc = $op->file;
+	my $pathnm = $loc;
+	$loc =~ s[.*/][];
+	my $ln = $op->line;
+	$loc .= ":$ln";
+	my($stash, $cseq) = ($op->stash->NAME, $op->cop_seq - $cop_seq_base);
+	$h{arg} = "($label$stash $cseq $loc)";
+	if ($show_src) {
+	    fill_srclines($pathnm) unless exists $srclines{$pathnm};
+	    # Would love to retain Jim's use of // but this code needs to be
+	    # portable to 5.8.x
+	    my $line = $srclines{$pathnm}[$ln];
+	    $line = "-src unavailable under -e" unless defined $line;
+	    $h{src} = "$ln: $line";
+	}
+    } elsif ($h{class} eq "LOOP") {
+	$h{arg} = "(next->" . seq($op->nextop) . " last->" . seq($op->lastop)
+	  . " redo->" . seq($op->redoop) . ")";
+    } elsif ($h{class} eq "LOGOP") {
+	undef $lastnext;
+	$h{arg} = "(other->" . seq($op->other) . ")";
+	$h{otheraddr} = sprintf("%#x", $ {$op->other});
+    }
+    elsif ($h{class} eq "SVOP" or $h{class} eq "PADOP") {
+	unless ($h{name} eq 'aelemfast' and $op->flags & OPf_SPECIAL) {
+	    my $idx = ($h{class} eq "SVOP") ? $op->targ : $op->padix;
+	    if ($h{class} eq "PADOP" or !${$op->sv}) {
+		my $sv = (($curcv->PADLIST->ARRAY)[1]->ARRAY)[$idx];
+		$h{arg} = "[" . concise_sv($sv, \%h, 0) . "]";
+		$h{targarglife} = $h{targarg} = "";
+	    } else {
+		$h{arg} = "(" . concise_sv($op->sv, \%h, 0) . ")";
+	    }
+	}
+    }
+    elsif ($h{class} eq "METHOP") {
+        my $prefix = '';
+        if ($h{name} eq 'method_redir' or $h{name} eq 'method_redir_super') {
+            my $rclass_sv = $op->rclass;
+            $rclass_sv = (($curcv->PADLIST->ARRAY)[1]->ARRAY)[$rclass_sv]
+                unless ref $rclass_sv;
+            $prefix .= 'PACKAGE "'.$rclass_sv->PV.'", ';
+        }
+        if ($h{name} ne "method") {
+            if (${$op->meth_sv}) {
+                $h{arg} = "($prefix" . concise_sv($op->meth_sv, \%h, 1) . ")";
+            } else {
+                my $sv = (($curcv->PADLIST->ARRAY)[1]->ARRAY)[$op->targ];
+                $h{arg} = "[$prefix" . concise_sv($sv, \%h, 1) . "]";
+                $h{targarglife} = $h{targarg} = "";
+            }
+        }
+    }
+    elsif ($h{class} eq "UNOP_AUX") {
+        $h{arg} = "(" . $op->string($curcv) . ")";
+    }
+
+    $h{seq} = $h{hyphseq} = seq($op);
+    $h{seq} = "" if $h{seq} eq "-";
+    $h{opt} = $op->opt;
+    $h{label} = $labels{$$op};
+    $h{next} = $op->next;
+    $h{next} = (class($h{next}) eq "NULL") ? "(end)" : seq($h{next});
+    $h{nextaddr} = sprintf("%#x", $ {$op->next});
+    $h{sibaddr} = sprintf("%#x", $ {$op->sibling});
+    $h{firstaddr} = sprintf("%#x", $ {$op->first}) if $op->can("first");
+    $h{lastaddr} = sprintf("%#x", $ {$op->last}) if $op->can("last");
+
+    $h{classsym} = $opclass{$h{class}};
+    $h{flagval} = $op->flags;
+    $h{flags} = op_flags($op->flags);
+    if ($op->can("hints")) {
+      $h{hintsval} = $op->hints;
+      $h{hints} = hints_flags($h{hintsval});
+    } else {
+      $h{hintsval} = $h{hints} = '';
+    }
+    $h{addr} = sprintf("%#x", $$op);
+    $h{typenum} = $op->type;
+    $h{noise} = $linenoise[$op->type];
+
+    return fmt_line(\%h, $op, $format, $level);
+}
+
+sub B::OP::concise {
+    my($op, $level) = @_;
+    if ($order eq "exec" and $lastnext and $$lastnext != $$op) {
+	# insert a 'goto' line
+	my $synth = {"seq" => seq($lastnext), "class" => class($lastnext),
+		     "addr" => sprintf("%#x", $$lastnext),
+		     "goto" => seq($lastnext), # simplify goto '-' removal
+	     };
+	print $walkHandle fmt_line($synth, $op, $gotofmt, $level+1);
+    }
+    $lastnext = $op->next;
+    print $walkHandle concise_op($op, $level, $format);
+}
+
+# B::OP::terse (see Terse.pm) now just calls this
+sub b_terse {
+    my($op, $level) = @_;
+
+    # This isn't necessarily right, but there's no easy way to get
+    # from an OP to the right CV. This is a limitation of the
+    # ->terse() interface style, and there isn't much to do about
+    # it. In particular, we can die in concise_op if the main pad
+    # isn't long enough, or has the wrong kind of entries, compared to
+    # the pad a sub was compiled with. The fix for that would be to
+    # make a backwards compatible "terse" format that never even
+    # looked at the pad, just like the old B::Terse. I don't think
+    # that's worth the effort, though.
+    $curcv = main_cv unless $curcv;
+
+    if ($order eq "exec" and $lastnext and $$lastnext != $$op) {
+	# insert a 'goto'
+	my $h = {"seq" => seq($lastnext), "class" => class($lastnext),
+		 "addr" => sprintf("%#x", $$lastnext)};
+	print # $walkHandle
+	    fmt_line($h, $op, $style{"terse"}[1], $level+1);
+    }
+    $lastnext = $op->next;
+    print # $walkHandle 
+	concise_op($op, $level, $style{"terse"}[0]);
+}
+
+sub tree {
+    my $op = shift;
+    my $level = shift;
+    my $style = $tree_decorations[$tree_style];
+    my($space, $single, $kids, $kid, $nokid, $last, $lead, $size) = @$style;
+    my $name = concise_op($op, $level, $treefmt);
+    if (not $op->flags & OPf_KIDS) {
+	return $name . "\n";
+    }
+    my @lines;
+    for (my $kid = $op->first; $$kid; $kid = $kid->sibling) {
+	push @lines, tree($kid, $level+1);
+    }
+    my $i;
+    for ($i = $#lines; substr($lines[$i], 0, 1) eq " "; $i--) {
+	$lines[$i] = $space . $lines[$i];
+    }
+    if ($i > 0) {
+	$lines[$i] = $last . $lines[$i];
+	while ($i-- > 1) {
+	    if (substr($lines[$i], 0, 1) eq " ") {
+		$lines[$i] = $nokid . $lines[$i];
+	    } else {
+		$lines[$i] = $kid . $lines[$i];
+	    }
+	}
+	$lines[$i] = $kids . $lines[$i];
+    } else {
+	$lines[0] = $single . $lines[0];
+    }
+    return("$name$lead" . shift @lines,
+           map(" " x (length($name)+$size) . $_, @lines));
+}
+
+# *** Warning: fragile kludge ahead ***
+# Because the B::* modules run in the same interpreter as the code
+# they're compiling, their presence tends to distort the view we have of
+# the code we're looking at. In particular, perl gives sequence numbers
+# to COPs. If the program we're looking at were run on its own, this
+# would start at 1. Because all of B::Concise and all the modules it
+# uses are compiled first, though, by the time we get to the user's
+# program the sequence number is already pretty high, which could be
+# distracting if you're trying to tell OPs apart. Therefore we'd like to
+# subtract an offset from all the sequence numbers we display, to
+# restore the simpler view of the world. The trick is to know what that
+# offset will be, when we're still compiling B::Concise!  If we
+# hardcoded a value, it would have to change every time B::Concise or
+# other modules we use do. To help a little, what we do here is compile
+# a little code at the end of the module, and compute the base sequence
+# number for the user's program as being a small offset later, so all we
+# have to worry about are changes in the offset.
+
+# [For 5.8.x and earlier perl is generating sequence numbers for all ops,
+#  and using them to reference labels]
+
+
+# When you say "perl -MO=Concise -e '$a'", the output should look like:
+
+# 4  <@> leave[t1] vKP/REFC ->(end)
+# 1     <0> enter ->2
+ #^ smallest OP sequence number should be 1
+# 2     <;> nextstate(main 1 -e:1) v ->3
+ #                         ^ smallest COP sequence number should be 1
+# -     <1> ex-rv2sv vK/1 ->4
+# 3        <$> gvsv(*a) s ->4
+
+# If the second of the marked numbers there isn't 1, it means you need
+# to update the corresponding magic number in the next line.
+# Remember, this needs to stay the last things in the module.
+
+my $cop_seq_mnum = 16;
+$cop_seq_base = svref_2object(eval 'sub{0;}')->START->cop_seq + $cop_seq_mnum;
+
+1;
+
+__END__
+
+=head1 NAME
+
+B::Concise - Walk Perl syntax tree, printing concise info about ops
+
+=head1 SYNOPSIS
+
+    perl -MO=Concise[,OPTIONS] foo.pl
+
+    use B::Concise qw(set_style add_callback);
+
+=head1 DESCRIPTION
+
+This compiler backend prints the internal OPs of a Perl program's syntax
+tree in one of several space-efficient text formats suitable for debugging
+the inner workings of perl or other compiler backends. It can print OPs in
+the order they appear in the OP tree, in the order they will execute, or
+in a text approximation to their tree structure, and the format of the
+information displayed is customizable. Its function is similar to that of
+perl's B<-Dx> debugging flag or the B<B::Terse> module, but it is more
+sophisticated and flexible.
+
+=head1 EXAMPLE
+
+Here's two outputs (or 'renderings'), using the -exec and -basic
+(i.e. default) formatting conventions on the same code snippet.
+
+    % perl -MO=Concise,-exec -e '$a = $b + 42'
+    1  <0> enter
+    2  <;> nextstate(main 1 -e:1) v
+    3  <#> gvsv[*b] s
+    4  <$> const[IV 42] s
+ *  5  <2> add[t3] sK/2
+    6  <#> gvsv[*a] s
+    7  <2> sassign vKS/2
+    8  <@> leave[1 ref] vKP/REFC
+
+In this -exec rendering, each opcode is executed in the order shown.
+The add opcode, marked with '*', is discussed in more detail.
+
+The 1st column is the op's sequence number, starting at 1, and is
+displayed in base 36 by default.  Here they're purely linear; the
+sequences are very helpful when looking at code with loops and
+branches.
+
+The symbol between angle brackets indicates the op's type, for
+example; <2> is a BINOP, <@> a LISTOP, and <#> is a PADOP, which is
+used in threaded perls. (see L</"OP class abbreviations">).
+
+The opname, as in B<'add[t1]'>, may be followed by op-specific
+information in parentheses or brackets (ex B<'[t1]'>).
+
+The op-flags (ex B<'sK/2'>) are described in (L</"OP flags
+abbreviations">).
+
+    % perl -MO=Concise -e '$a = $b + 42'
+    8  <@> leave[1 ref] vKP/REFC ->(end)
+    1     <0> enter ->2
+    2     <;> nextstate(main 1 -e:1) v ->3
+    7     <2> sassign vKS/2 ->8
+ *  5        <2> add[t1] sK/2 ->6
+    -           <1> ex-rv2sv sK/1 ->4
+    3              <$> gvsv(*b) s ->4
+    4           <$> const(IV 42) s ->5
+    -        <1> ex-rv2sv sKRM*/1 ->7
+    6           <$> gvsv(*a) s ->7
+
+The default rendering is top-down, so they're not in execution order.
+This form reflects the way the stack is used to parse and evaluate
+expressions; the add operates on the two terms below it in the tree.
+
+Nullops appear as C<ex-opname>, where I<opname> is an op that has been
+optimized away by perl.  They're displayed with a sequence-number of
+'-', because they are not executed (they don't appear in previous
+example), they're printed here because they reflect the parse.
+
+The arrow points to the sequence number of the next op; they're not
+displayed in -exec mode, for obvious reasons.
+
+Note that because this rendering was done on a non-threaded perl, the
+PADOPs in the previous examples are now SVOPs, and some (but not all)
+of the square brackets have been replaced by round ones.  This is a
+subtle feature to provide some visual distinction between renderings
+on threaded and un-threaded perls.
+
+
+=head1 OPTIONS
+
+Arguments that don't start with a hyphen are taken to be the names of
+subroutines or formats to render; if no
+such functions are specified, the main
+body of the program (outside any subroutines, and not including use'd
+or require'd files) is rendered.  Passing C<BEGIN>, C<UNITCHECK>,
+C<CHECK>, C<INIT>, or C<END> will cause all of the corresponding
+special blocks to be printed.  Arguments must follow options.
+
+Options affect how things are rendered (ie printed).  They're presented
+here by their visual effect, 1st being strongest.  They're grouped
+according to how they interrelate; within each group the options are
+mutually exclusive (unless otherwise stated).
+
+=head2 Options for Opcode Ordering
+
+These options control the 'vertical display' of opcodes.  The display
+'order' is also called 'mode' elsewhere in this document.
+
+=over 4
+
+=item B<-basic>
+
+Print OPs in the order they appear in the OP tree (a preorder
+traversal, starting at the root). The indentation of each OP shows its
+level in the tree, and the '->' at the end of the line indicates the
+next opcode in execution order.  This mode is the default, so the flag
+is included simply for completeness.
+
+=item B<-exec>
+
+Print OPs in the order they would normally execute (for the majority
+of constructs this is a postorder traversal of the tree, ending at the
+root). In most cases the OP that usually follows a given OP will
+appear directly below it; alternate paths are shown by indentation. In
+cases like loops when control jumps out of a linear path, a 'goto'
+line is generated.
+
+=item B<-tree>
+
+Print OPs in a text approximation of a tree, with the root of the tree
+at the left and 'left-to-right' order of children transformed into
+'top-to-bottom'. Because this mode grows both to the right and down,
+it isn't suitable for large programs (unless you have a very wide
+terminal).
+
+=back
+
+=head2 Options for Line-Style
+
+These options select the line-style (or just style) used to render
+each opcode, and dictates what info is actually printed into each line.
+
+=over 4
+
+=item B<-concise>
+
+Use the author's favorite set of formatting conventions. This is the
+default, of course.
+
+=item B<-terse>
+
+Use formatting conventions that emulate the output of B<B::Terse>. The
+basic mode is almost indistinguishable from the real B<B::Terse>, and the
+exec mode looks very similar, but is in a more logical order and lacks
+curly brackets. B<B::Terse> doesn't have a tree mode, so the tree mode
+is only vaguely reminiscent of B<B::Terse>.
+
+=item B<-linenoise>
+
+Use formatting conventions in which the name of each OP, rather than being
+written out in full, is represented by a one- or two-character abbreviation.
+This is mainly a joke.
+
+=item B<-debug>
+
+Use formatting conventions reminiscent of B<B::Debug>; these aren't
+very concise at all.
+
+=item B<-env>
+
+Use formatting conventions read from the environment variables
+C<B_CONCISE_FORMAT>, C<B_CONCISE_GOTO_FORMAT>, and C<B_CONCISE_TREE_FORMAT>.
+
+=back
+
+=head2 Options for tree-specific formatting
+
+=over 4
+
+=item B<-compact>
+
+Use a tree format in which the minimum amount of space is used for the
+lines connecting nodes (one character in most cases). This squeezes out
+a few precious columns of screen real estate.
+
+=item B<-loose>
+
+Use a tree format that uses longer edges to separate OP nodes. This format
+tends to look better than the compact one, especially in ASCII, and is
+the default.
+
+=item B<-vt>
+
+Use tree connecting characters drawn from the VT100 line-drawing set.
+This looks better if your terminal supports it.
+
+=item B<-ascii>
+
+Draw the tree with standard ASCII characters like C<+> and C<|>. These don't
+look as clean as the VT100 characters, but they'll work with almost any
+terminal (or the horizontal scrolling mode of less(1)) and are suitable
+for text documentation or email. This is the default.
+
+=back
+
+These are pairwise exclusive, i.e. compact or loose, vt or ascii.
+
+=head2 Options controlling sequence numbering
+
+=over 4
+
+=item B<-base>I<n>
+
+Print OP sequence numbers in base I<n>. If I<n> is greater than 10, the
+digit for 11 will be 'a', and so on. If I<n> is greater than 36, the digit
+for 37 will be 'A', and so on until 62. Values greater than 62 are not
+currently supported. The default is 36.
+
+=item B<-bigendian>
+
+Print sequence numbers with the most significant digit first. This is the
+usual convention for Arabic numerals, and the default.
+
+=item B<-littleendian>
+
+Print sequence numbers with the least significant digit first.  This is
+obviously mutually exclusive with bigendian.
+
+=back
+
+=head2 Other options
+
+=over 4
+
+=item B<-src>
+
+With this option, the rendering of each statement (starting with the
+nextstate OP) will be preceded by the 1st line of source code that
+generates it.  For example:
+
+    1  <0> enter
+    # 1: my $i;
+    2  <;> nextstate(main 1 junk.pl:1) v:{
+    3  <0> padsv[$i:1,10] vM/LVINTRO
+    # 3: for $i (0..9) {
+    4  <;> nextstate(main 3 junk.pl:3) v:{
+    5  <0> pushmark s
+    6  <$> const[IV 0] s
+    7  <$> const[IV 9] s
+    8  <{> enteriter(next->j last->m redo->9)[$i:1,10] lKS
+    k  <0> iter s
+    l  <|> and(other->9) vK/1
+    # 4:     print "line ";
+    9      <;> nextstate(main 2 junk.pl:4) v
+    a      <0> pushmark s
+    b      <$> const[PV "line "] s
+    c      <@> print vK
+    # 5:     print "$i\n";
+    ...
+
+=item B<-stash="somepackage">
+
+With this, "somepackage" will be required, then the stash is
+inspected, and each function is rendered.
+
+=back
+
+The following options are pairwise exclusive.
+
+=over 4
+
+=item B<-main>
+
+Include the main program in the output, even if subroutines were also
+specified.  This rendering is normally suppressed when a subroutine
+name or reference is given.
+
+=item B<-nomain>
+
+This restores the default behavior after you've changed it with '-main'
+(it's not normally needed).  If no subroutine name/ref is given, main is
+rendered, regardless of this flag.
+
+=item B<-nobanner>
+
+Renderings usually include a banner line identifying the function name
+or stringified subref.  This suppresses the printing of the banner.
+
+TBC: Remove the stringified coderef; while it provides a 'cookie' for
+each function rendered, the cookies used should be 1,2,3.. not a
+random hex-address.  It also complicates string comparison of two
+different trees.
+
+=item B<-banner>
+
+restores default banner behavior.
+
+=item B<-banneris> => subref
+
+TBC: a hookpoint (and an option to set it) for a user-supplied
+function to produce a banner appropriate for users needs.  It's not
+ideal, because the rendering-state variables, which are a natural
+candidate for use in concise.t, are unavailable to the user.
+
+=back
+
+=head2 Option Stickiness
+
+If you invoke Concise more than once in a program, you should know that
+the options are 'sticky'.  This means that the options you provide in
+the first call will be remembered for the 2nd call, unless you
+re-specify or change them.
+
+=head1 ABBREVIATIONS
+
+The concise style uses symbols to convey maximum info with minimal
+clutter (like hex addresses).  With just a little practice, you can
+start to see the flowers, not just the branches, in the trees.
+
+=head2 OP class abbreviations
+
+These symbols appear before the op-name, and indicate the
+B:: namespace that represents the ops in your Perl code.
+
+    0      OP (aka BASEOP)  An OP with no children
+    1      UNOP             An OP with one child
+    +      UNOP_AUX         A UNOP with auxillary fields
+    2      BINOP            An OP with two children
+    |      LOGOP            A control branch OP
+    @      LISTOP           An OP that could have lots of children
+    /      PMOP             An OP with a regular expression
+    $      SVOP             An OP with an SV
+    "      PVOP             An OP with a string
+    {      LOOP             An OP that holds pointers for a loop
+    ;      COP              An OP that marks the start of a statement
+    #      PADOP            An OP with a GV on the pad
+    .      METHOP           An OP with method call info
+
+=head2 OP flags abbreviations
+
+OP flags are either public or private.  The public flags alter the
+behavior of each opcode in consistent ways, and are represented by 0
+or more single characters.
+
+    v      OPf_WANT_VOID    Want nothing (void context)
+    s      OPf_WANT_SCALAR  Want single value (scalar context)
+    l      OPf_WANT_LIST    Want list of any length (list context)
+                            Want is unknown
+    K      OPf_KIDS         There is a firstborn child.
+    P      OPf_PARENS       This operator was parenthesized.
+                             (Or block needs explicit scope entry.)
+    R      OPf_REF          Certified reference.
+                             (Return container, not containee).
+    M      OPf_MOD          Will modify (lvalue).
+    S      OPf_STACKED      Some arg is arriving on the stack.
+    *      OPf_SPECIAL      Do something weird for this op (see op.h)
+
+Private flags, if any are set for an opcode, are displayed after a '/'
+
+    8  <@> leave[1 ref] vKP/REFC ->(end)
+    7     <2> sassign vKS/2 ->8
+
+They're opcode specific, and occur less often than the public ones, so
+they're represented by short mnemonics instead of single-chars; see
+B::Op_private and F<regen/op_private> for more details.
+
+=head1 FORMATTING SPECIFICATIONS
+
+For each line-style ('concise', 'terse', 'linenoise', etc.) there are
+3 format-specs which control how OPs are rendered.
+
+The first is the 'default' format, which is used in both basic and exec
+modes to print all opcodes.  The 2nd, goto-format, is used in exec
+mode when branches are encountered.  They're not real opcodes, and are
+inserted to look like a closing curly brace.  The tree-format is tree
+specific.
+
+When a line is rendered, the correct format-spec is copied and scanned
+for the following items; data is substituted in, and other
+manipulations like basic indenting are done, for each opcode rendered.
+
+There are 3 kinds of items that may be populated; special patterns,
+#vars, and literal text, which is copied verbatim.  (Yes, it's a set
+of s///g steps.)
+
+=head2 Special Patterns
+
+These items are the primitives used to perform indenting, and to
+select text from amongst alternatives.
+
+=over 4
+
+=item B<(x(>I<exec_text>B<;>I<basic_text>B<)x)>
+
+Generates I<exec_text> in exec mode, or I<basic_text> in basic mode.
+
+=item B<(*(>I<text>B<)*)>
+
+Generates one copy of I<text> for each indentation level.
+
+=item B<(*(>I<text1>B<;>I<text2>B<)*)>
+
+Generates one fewer copies of I<text1> than the indentation level, followed
+by one copy of I<text2> if the indentation level is more than 0.
+
+=item B<(?(>I<text1>B<#>I<var>I<Text2>B<)?)>
+
+If the value of I<var> is true (not empty or zero), generates the
+value of I<var> surrounded by I<text1> and I<Text2>, otherwise
+nothing.
+
+=item B<~>
+
+Any number of tildes and surrounding whitespace will be collapsed to
+a single space.
+
+=back
+
+=head2 # Variables
+
+These #vars represent opcode properties that you may want as part of
+your rendering.  The '#' is intended as a private sigil; a #var's
+value is interpolated into the style-line, much like "read $this".
+
+These vars take 3 forms:
+
+=over 4
+
+=item B<#>I<var>
+
+A property named 'var' is assumed to exist for the opcodes, and is
+interpolated into the rendering.
+
+=item B<#>I<var>I<N>
+
+Generates the value of I<var>, left justified to fill I<N> spaces.
+Note that this means while you can have properties 'foo' and 'foo2',
+you cannot render 'foo2', but you could with 'foo2a'.  You would be
+wise not to rely on this behavior going forward ;-)
+
+=item B<#>I<Var>
+
+This ucfirst form of #var generates a tag-value form of itself for
+display; it converts '#Var' into a 'Var => #var' style, which is then
+handled as described above.  (Imp-note: #Vars cannot be used for
+conditional-fills, because the => #var transform is done after the check
+for #Var's value).
+
+=back
+
+The following variables are 'defined' by B::Concise; when they are
+used in a style, their respective values are plugged into the
+rendering of each opcode.
+
+Only some of these are used by the standard styles, the others are
+provided for you to delve into optree mechanics, should you wish to
+add a new style (see L</add_style> below) that uses them.  You can
+also add new ones using L</add_callback>.
+
+=over 4
+
+=item B<#addr>
+
+The address of the OP, in hexadecimal.
+
+=item B<#arg>
+
+The OP-specific information of the OP (such as the SV for an SVOP, the
+non-local exit pointers for a LOOP, etc.) enclosed in parentheses.
+
+=item B<#class>
+
+The B-determined class of the OP, in all caps.
+
+=item B<#classsym>
+
+A single symbol abbreviating the class of the OP.
+
+=item B<#coplabel>
+
+The label of the statement or block the OP is the start of, if any.
+
+=item B<#exname>
+
+The name of the OP, or 'ex-foo' if the OP is a null that used to be a foo.
+
+=item B<#extarg>
+
+The target of the OP, or nothing for a nulled OP.
+
+=item B<#firstaddr>
+
+The address of the OP's first child, in hexadecimal.
+
+=item B<#flags>
+
+The OP's flags, abbreviated as a series of symbols.
+
+=item B<#flagval>
+
+The numeric value of the OP's flags.
+
+=item B<#hints>
+
+The COP's hint flags, rendered with abbreviated names if possible. An empty
+string if this is not a COP. Here are the symbols used:
+
+    $ strict refs
+    & strict subs
+    * strict vars
+   x$ explicit use/no strict refs
+   x& explicit use/no strict subs
+   x* explicit use/no strict vars
+    i integers
+    l locale
+    b bytes
+    { block scope
+    % localise %^H
+    < open in
+    > open out
+    I overload int
+    F overload float
+    B overload binary
+    S overload string
+    R overload re
+    T taint
+    E eval
+    X filetest access
+    U utf-8
+
+=item B<#hintsval>
+
+The numeric value of the COP's hint flags, or an empty string if this is not
+a COP.
+
+=item B<#hyphseq>
+
+The sequence number of the OP, or a hyphen if it doesn't have one.
+
+=item B<#label>
+
+'NEXT', 'LAST', or 'REDO' if the OP is a target of one of those in exec
+mode, or empty otherwise.
+
+=item B<#lastaddr>
+
+The address of the OP's last child, in hexadecimal.
+
+=item B<#name>
+
+The OP's name.
+
+=item B<#NAME>
+
+The OP's name, in all caps.
+
+=item B<#next>
+
+The sequence number of the OP's next OP.
+
+=item B<#nextaddr>
+
+The address of the OP's next OP, in hexadecimal.
+
+=item B<#noise>
+
+A one- or two-character abbreviation for the OP's name.
+
+=item B<#private>
+
+The OP's private flags, rendered with abbreviated names if possible.
+
+=item B<#privval>
+
+The numeric value of the OP's private flags.
+
+=item B<#seq>
+
+The sequence number of the OP. Note that this is a sequence number
+generated by B::Concise.
+
+=item B<#seqnum>
+
+5.8.x and earlier only. 5.9 and later do not provide this.
+
+The real sequence number of the OP, as a regular number and not adjusted
+to be relative to the start of the real program. (This will generally be
+a fairly large number because all of B<B::Concise> is compiled before
+your program is).
+
+=item B<#opt>
+
+Whether or not the op has been optimized by the peephole optimizer.
+
+Only available in 5.9 and later.
+
+=item B<#sibaddr>
+
+The address of the OP's next youngest sibling, in hexadecimal.
+
+=item B<#svaddr>
+
+The address of the OP's SV, if it has an SV, in hexadecimal.
+
+=item B<#svclass>
+
+The class of the OP's SV, if it has one, in all caps (e.g., 'IV').
+
+=item B<#svval>
+
+The value of the OP's SV, if it has one, in a short human-readable format.
+
+=item B<#targ>
+
+The numeric value of the OP's targ.
+
+=item B<#targarg>
+
+The name of the variable the OP's targ refers to, if any, otherwise the
+letter t followed by the OP's targ in decimal.
+
+=item B<#targarglife>
+
+Same as B<#targarg>, but followed by the COP sequence numbers that delimit
+the variable's lifetime (or 'end' for a variable in an open scope) for a
+variable.
+
+=item B<#typenum>
+
+The numeric value of the OP's type, in decimal.
+
+=back
+
+=head1 One-Liner Command tips
+
+=over 4
+
+=item perl -MO=Concise,bar foo.pl
+
+Renders only bar() from foo.pl.  To see main, drop the ',bar'.  To see
+both, add ',-main'
+
+=item perl -MDigest::MD5=md5 -MO=Concise,md5 -e1
+
+Identifies md5 as an XS function.  The export is needed so that BC can
+find it in main.
+
+=item perl -MPOSIX -MO=Concise,_POSIX_ARG_MAX -e1
+
+Identifies _POSIX_ARG_MAX as a constant sub, optimized to an IV.
+Although POSIX isn't entirely consistent across platforms, this is
+likely to be present in virtually all of them.
+
+=item perl -MPOSIX -MO=Concise,a -e 'print _POSIX_SAVED_IDS'
+
+This renders a print statement, which includes a call to the function.
+It's identical to rendering a file with a use call and that single
+statement, except for the filename which appears in the nextstate ops.
+
+=item perl -MPOSIX -MO=Concise,a -e 'sub a{_POSIX_SAVED_IDS}'
+
+This is B<very> similar to previous, only the first two ops differ.  This
+subroutine rendering is more representative, insofar as a single main
+program will have many subs.
+
+=item perl -MB::Concise -e 'B::Concise::compile("-exec","-src", \%B::Concise::)->()'
+
+This renders all functions in the B::Concise package with the source
+lines.  It eschews the O framework so that the stashref can be passed
+directly to B::Concise::compile().  See -stash option for a more
+convenient way to render a package.
+
+=back
+
+=head1 Using B::Concise outside of the O framework
+
+The common (and original) usage of B::Concise was for command-line
+renderings of simple code, as given in EXAMPLE.  But you can also use
+B<B::Concise> from your code, and call compile() directly, and
+repeatedly.  By doing so, you can avoid the compile-time only
+operation of O.pm, and even use the debugger to step through
+B::Concise::compile() itself.
+
+Once you're doing this, you may alter Concise output by adding new
+rendering styles, and by optionally adding callback routines which
+populate new variables, if such were referenced from those (just
+added) styles.  
+
+=head2 Example: Altering Concise Renderings
+
+    use B::Concise qw(set_style add_callback);
+    add_style($yourStyleName => $defaultfmt, $gotofmt, $treefmt);
+    add_callback
+      ( sub {
+            my ($h, $op, $format, $level, $stylename) = @_;
+            $h->{variable} = some_func($op);
+        });
+    $walker = B::Concise::compile(@options,@subnames,@subrefs);
+    $walker->();
+
+=head2 set_style()
+
+B<set_style> accepts 3 arguments, and updates the three format-specs
+comprising a line-style (basic-exec, goto, tree).  It has one minor
+drawback though; it doesn't register the style under a new name.  This
+can become an issue if you render more than once and switch styles.
+Thus you may prefer to use add_style() and/or set_style_standard()
+instead.
+
+=head2 set_style_standard($name)
+
+This restores one of the standard line-styles: C<terse>, C<concise>,
+C<linenoise>, C<debug>, C<env>, into effect.  It also accepts style
+names previously defined with add_style().
+
+=head2 add_style ()
+
+This subroutine accepts a new style name and three style arguments as
+above, and creates, registers, and selects the newly named style.  It is
+an error to re-add a style; call set_style_standard() to switch between
+several styles.
+
+=head2 add_callback ()
+
+If your newly minted styles refer to any new #variables, you'll need
+to define a callback subroutine that will populate (or modify) those
+variables.  They are then available for use in the style you've
+chosen.
+
+The callbacks are called for each opcode visited by Concise, in the
+same order as they are added.  Each subroutine is passed five
+parameters.
+
+  1. A hashref, containing the variable names and values which are
+     populated into the report-line for the op
+  2. the op, as a B<B::OP> object
+  3. a reference to the format string
+  4. the formatting (indent) level
+  5. the selected stylename
+
+To define your own variables, simply add them to the hash, or change
+existing values if you need to.  The level and format are passed in as
+references to scalars, but it is unlikely that they will need to be
+changed or even used.
+
+=head2 Running B::Concise::compile()
+
+B<compile> accepts options as described above in L</OPTIONS>, and
+arguments, which are either coderefs, or subroutine names.
+
+It constructs and returns a $treewalker coderef, which when invoked,
+traverses, or walks, and renders the optrees of the given arguments to
+STDOUT.  You can reuse this, and can change the rendering style used
+each time; thereafter the coderef renders in the new style.
+
+B<walk_output> lets you change the print destination from STDOUT to
+another open filehandle, or into a string passed as a ref (unless
+you've built perl with -Uuseperlio).
+
+  my $walker = B::Concise::compile('-terse','aFuncName', \&aSubRef); # 1
+  walk_output(\my $buf);
+  $walker->();			        # 1 renders -terse
+  set_style_standard('concise');	# 2
+  $walker->();  		        # 2 renders -concise
+  $walker->(@new);			# 3 renders whatever
+  print "3 different renderings: terse, concise, and @new: $buf\n";
+
+When $walker is called, it traverses the subroutines supplied when it
+was created, and renders them using the current style.  You can change
+the style afterwards in several different ways:
+
+  1. call C<compile>, altering style or mode/order
+  2. call C<set_style_standard>
+  3. call $walker, passing @new options
+
+Passing new options to the $walker is the easiest way to change
+amongst any pre-defined styles (the ones you add are automatically
+recognized as options), and is the only way to alter rendering order
+without calling compile again.  Note however that rendering state is
+still shared amongst multiple $walker objects, so they must still be
+used in a coordinated manner.
+
+=head2 B::Concise::reset_sequence()
+
+This function (not exported) lets you reset the sequence numbers (note
+that they're numbered arbitrarily, their goal being to be human
+readable).  Its purpose is mostly to support testing, i.e. to compare
+the concise output from two identical anonymous subroutines (but
+different instances).  Without the reset, B::Concise, seeing that
+they're separate optrees, generates different sequence numbers in
+the output.
+
+=head2 Errors
+
+Errors in rendering (non-existent function-name, non-existent coderef)
+are written to the STDOUT, or wherever you've set it via
+walk_output().
+
+Errors using the various *style* calls, and bad args to walk_output(),
+result in die().  Use an eval if you wish to catch these errors and
+continue processing.
+
+=head1 AUTHOR
+
+Stephen McCamant, E<lt>smcc@CSUA.Berkeley.EDUE<gt>.
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/B/Showlex.pm b/lib/5.24.1/x86_64-linux/B/Showlex.pm
new file mode 100644
index 00000000..1ad230e7
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/B/Showlex.pm
@@ -0,0 +1,217 @@
+package B::Showlex;
+
+our $VERSION = '1.05';
+
+use strict;
+use B qw(svref_2object comppadlist class);
+use B::Terse ();
+use B::Concise ();
+
+#
+# Invoke as
+#     perl -MO=Showlex,foo bar.pl
+# to see the names of lexical variables used by &foo
+# or as
+#     perl -MO=Showlex bar.pl
+# to see the names of file scope lexicals used by bar.pl
+#
+
+
+# borrowed from B::Concise
+our $walkHandle = \*STDOUT;
+
+sub walk_output { # updates $walkHandle
+    $walkHandle = B::Concise::walk_output(@_);
+    #print "got $walkHandle";
+    #print $walkHandle "using it";
+    $walkHandle;
+}
+
+sub shownamearray {
+    my ($name, $av) = @_;
+    my @els = $av->ARRAY;
+    my $count = @els;
+    my $i;
+    print $walkHandle "$name has $count entries\n";
+    for ($i = 0; $i < $count; $i++) {
+	my $sv = $els[$i];
+	if (class($sv) ne "SPECIAL") {
+	    printf $walkHandle "$i: (0x%lx) %s\n",
+				$$sv, $sv->PVX // "undef" || "const";
+	} else {
+	    printf $walkHandle "$i: %s\n", $sv->terse;
+	    #printf $walkHandle "$i: %s\n", B::Concise::concise_sv($sv);
+	}
+    }
+}
+
+sub showvaluearray {
+    my ($name, $av) = @_;
+    my @els = $av->ARRAY;
+    my $count = @els;
+    my $i;
+    print $walkHandle "$name has $count entries\n";
+    for ($i = 0; $i < $count; $i++) {
+	printf $walkHandle "$i: %s\n", $els[$i]->terse;
+	#print $walkHandle "$i: %s\n", B::Concise::concise_sv($els[$i]);
+    }
+}
+
+sub showlex {
+    my ($objname, $namesav, $valsav) = @_;
+    shownamearray("Pad of lexical names for $objname", $namesav);
+    showvaluearray("Pad of lexical values for $objname", $valsav);
+}
+
+my ($newlex, $nosp1); # rendering state vars
+
+sub padname_terse {
+    my $name = shift;
+    return $name->terse if class($name) eq 'SPECIAL';
+    my $str = $name->PVX;
+    return sprintf "(0x%lx) %s",
+	       $$name,
+	       length $str ? qq'"$str"' : defined $str ? "const" : 'undef';
+}
+
+sub newlex { # drop-in for showlex
+    my ($objname, $names, $vals) = @_;
+    my @names = $names->ARRAY;
+    my @vals  = $vals->ARRAY;
+    my $count = @names;
+    print $walkHandle "$objname Pad has $count entries\n";
+    printf $walkHandle "0: %s\n", padname_terse($names[0]) unless $nosp1;
+    for (my $i = 1; $i < $count; $i++) {
+	printf $walkHandle "$i: %s = %s\n", padname_terse($names[$i]),
+					    $vals[$i]->terse,
+	    unless $nosp1
+	       and class($names[$i]) eq 'SPECIAL' || !$names[$i]->LEN;
+    }
+}
+
+sub showlex_obj {
+    my ($objname, $obj) = @_;
+    $objname =~ s/^&main::/&/;
+    showlex($objname, svref_2object($obj)->PADLIST->ARRAY) if !$newlex;
+    newlex ($objname, svref_2object($obj)->PADLIST->ARRAY) if  $newlex;
+}
+
+sub showlex_main {
+    showlex("comppadlist", comppadlist->ARRAY)	if !$newlex;
+    newlex ("main", comppadlist->ARRAY)		if  $newlex;
+}
+
+sub compile {
+    my @options = grep(/^-/, @_);
+    my @args = grep(!/^-/, @_);
+    for my $o (@options) {
+	$newlex = 1 if $o eq "-newlex";
+	$nosp1  = 1 if $o eq "-nosp";
+    }
+
+    return \&showlex_main unless @args;
+    return sub {
+	my $objref;
+	foreach my $objname (@args) {
+	    next unless $objname;	# skip nulls w/o carping
+
+	    if (ref $objname) {
+		print $walkHandle "B::Showlex::compile($objname)\n";
+		$objref = $objname;
+	    } else {
+		$objname = "main::$objname" unless $objname =~ /::/;
+		print $walkHandle "$objname:\n";
+		no strict 'refs';
+		die "err: unknown function ($objname)\n"
+		    unless *{$objname}{CODE};
+		$objref = \&$objname;
+	    }
+	    showlex_obj($objname, $objref);
+	}
+    }
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+B::Showlex - Show lexical variables used in functions or files
+
+=head1 SYNOPSIS
+
+	perl -MO=Showlex[,-OPTIONS][,SUBROUTINE] foo.pl
+
+=head1 DESCRIPTION
+
+When a comma-separated list of subroutine names is given as options, Showlex
+prints the lexical variables used in those subroutines.  Otherwise, it prints
+the file-scope lexicals in the file.
+
+=head1 EXAMPLES
+
+Traditional form:
+
+ $ perl -MO=Showlex -e 'my ($i,$j,$k)=(1,"foo")'
+ Pad of lexical names for comppadlist has 4 entries
+ 0: (0x8caea4) undef
+ 1: (0x9db0fb0) $i
+ 2: (0x9db0f38) $j
+ 3: (0x9db0f50) $k
+ Pad of lexical values for comppadlist has 5 entries
+ 0: SPECIAL #1 &PL_sv_undef
+ 1: NULL (0x9da4234)
+ 2: NULL (0x9db0f2c)
+ 3: NULL (0x9db0f44)
+ 4: NULL (0x9da4264)
+ -e syntax OK
+
+New-style form:
+
+ $ perl -MO=Showlex,-newlex -e 'my ($i,$j,$k)=(1,"foo")'
+ main Pad has 4 entries
+ 0: (0x8caea4) undef
+ 1: (0xa0c4fb8) "$i" = NULL (0xa0b8234)
+ 2: (0xa0c4f40) "$j" = NULL (0xa0c4f34)
+ 3: (0xa0c4f58) "$k" = NULL (0xa0c4f4c)
+ -e syntax OK
+
+New form, no specials, outside O framework:
+
+ $ perl -MB::Showlex -e \
+    'my ($i,$j,$k)=(1,"foo"); B::Showlex::compile(-newlex,-nosp)->()'
+ main Pad has 4 entries
+ 1: (0x998ffb0) "$i" = IV (0x9983234) 1
+ 2: (0x998ff68) "$j" = PV (0x998ff5c) "foo"
+ 3: (0x998ff80) "$k" = NULL (0x998ff74)
+
+Note that this example shows the values of the lexicals, whereas the other
+examples did not (as they're compile-time only).
+
+=head2 OPTIONS
+
+The C<-newlex> option produces a more readable C<< name => value >> format,
+and is shown in the second example above.
+
+The C<-nosp> option eliminates reporting of SPECIALs, such as C<0: SPECIAL
+#1 &PL_sv_undef> above.  Reporting of SPECIALs can sometimes overwhelm
+your declared lexicals.
+
+=head1 SEE ALSO
+
+L<B::Showlex> can also be used outside of the O framework, as in the third
+example.  See L<B::Concise> for a fuller explanation of reasons.
+
+=head1 TODO
+
+Some of the reported info, such as hex addresses, is not particularly
+valuable.  Other information would be more useful for the typical
+programmer, such as line-numbers, pad-slot reuses, etc..  Given this,
+-newlex is not a particularly good flag-name.
+
+=head1 AUTHOR
+
+Malcolm Beattie, C<mbeattie@sable.ox.ac.uk>
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/B/Terse.pm b/lib/5.24.1/x86_64-linux/B/Terse.pm
new file mode 100644
index 00000000..8e551c5a
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/B/Terse.pm
@@ -0,0 +1,110 @@
+package B::Terse;
+
+our $VERSION = '1.06';
+
+use strict;
+use B qw(class @specialsv_name);
+use B::Concise qw(concise_subref set_style_standard);
+use Carp;
+
+sub terse {
+    my ($order, $subref) = @_;
+    set_style_standard("terse");
+    if ($order eq "exec") {
+	concise_subref('exec', $subref);
+    } else {
+	concise_subref('basic', $subref);
+    }
+}
+
+sub compile {
+    my @args = @_;
+    my $order = @args ? shift(@args) : "";
+    $order = "-exec" if $order eq "exec";
+    unshift @args, $order if $order ne "";
+    B::Concise::compile("-terse", @args);
+}
+
+sub indent {
+    my ($level) = @_ ? shift : 0;
+    return "    " x $level;
+}
+
+# Don't use this, at least on OPs in subroutines: it has no way of
+# getting to the pad, and will give wrong answers or crash.
+sub B::OP::terse {
+    carp "B::OP::terse is deprecated; use B::Concise instead";
+    B::Concise::b_terse(@_);
+}
+
+sub B::SV::terse {
+    my($sv, $level) = (@_, 0);
+    my %info;
+    B::Concise::concise_sv($sv, \%info);
+    my $s = indent($level)
+	. B::Concise::fmt_line(\%info, $sv,
+				 "#svclass~(?((#svaddr))?)~#svval", 0);
+    chomp $s;
+    print "$s\n" unless defined wantarray;
+    $s;
+}
+
+sub B::NULL::terse {
+    my ($sv, $level) = (@_, 0);
+    my $s = indent($level) . sprintf "%s (0x%lx)", class($sv), $$sv;
+    print "$s\n" unless defined wantarray;
+    $s;
+}
+
+sub B::SPECIAL::terse {
+    my ($sv, $level) = (@_, 0);
+    my $s = indent($level)
+	. sprintf( "%s #%d %s", class($sv), $$sv, $specialsv_name[$$sv]);
+    print "$s\n" unless defined wantarray;
+    $s;
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+B::Terse - Walk Perl syntax tree, printing terse info about ops
+
+=head1 SYNOPSIS
+
+	perl -MO=Terse[,OPTIONS] foo.pl
+
+=head1 DESCRIPTION
+
+This module prints the contents of the parse tree, but without as much
+information as L<B::Debug>.  For comparison, C<print "Hello, world.">
+produced 96 lines of output from B::Debug, but only 6 from B::Terse.
+
+This module is useful for people who are writing their own back end,
+or who are learning about the Perl internals.  It's not useful to the
+average programmer.
+
+This version of B::Terse is really just a wrapper that calls L<B::Concise>
+with the B<-terse> option. It is provided for compatibility with old scripts
+(and habits) but using B::Concise directly is now recommended instead.
+
+For compatibility with the old B::Terse, this module also adds a
+method named C<terse> to B::OP and B::SV objects. The B::SV method is
+largely compatible with the old one, though authors of new software
+might be advised to choose a more user-friendly output format. The
+B::OP C<terse> method, however, doesn't work well. Since B::Terse was
+first written, much more information in OPs has migrated to the
+scratchpad datastructure, but the C<terse> interface doesn't have any
+way of getting to the correct pad. As a kludge, the new version will
+always use the pad for the main program, but for OPs in subroutines
+this will give the wrong answer or crash.
+
+=head1 AUTHOR
+
+The original version of B::Terse was written by Malcolm Beattie,
+E<lt>mbeattie@sable.ox.ac.ukE<gt>. This wrapper was written by Stephen
+McCamant, E<lt>smcc@MIT.EDUE<gt>.
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/B/Xref.pm b/lib/5.24.1/x86_64-linux/B/Xref.pm
new file mode 100644
index 00000000..8beb243f
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/B/Xref.pm
@@ -0,0 +1,490 @@
+package B::Xref;
+
+our $VERSION = '1.05';
+
+=head1 NAME
+
+B::Xref - Generates cross reference reports for Perl programs
+
+=head1 SYNOPSIS
+
+perl -MO=Xref[,OPTIONS] foo.pl
+
+=head1 DESCRIPTION
+
+The B::Xref module is used to generate a cross reference listing of all
+definitions and uses of variables, subroutines and formats in a Perl program.
+It is implemented as a backend for the Perl compiler.
+
+The report generated is in the following format:
+
+    File filename1
+      Subroutine subname1
+	Package package1
+	  object1        line numbers
+	  object2        line numbers
+	  ...
+	Package package2
+	...
+
+Each B<File> section reports on a single file. Each B<Subroutine> section
+reports on a single subroutine apart from the special cases
+"(definitions)" and "(main)". These report, respectively, on subroutine
+definitions found by the initial symbol table walk and on the main part of
+the program or module external to all subroutines.
+
+The report is then grouped by the B<Package> of each variable,
+subroutine or format with the special case "(lexicals)" meaning
+lexical variables. Each B<object> name (implicitly qualified by its
+containing B<Package>) includes its type character(s) at the beginning
+where possible. Lexical variables are easier to track and even
+included dereferencing information where possible.
+
+The C<line numbers> are a comma separated list of line numbers (some
+preceded by code letters) where that object is used in some way.
+Simple uses aren't preceded by a code letter. Introductions (such as
+where a lexical is first defined with C<my>) are indicated with the
+letter "i". Subroutine and method calls are indicated by the character
+"&".  Subroutine definitions are indicated by "s" and format
+definitions by "f".
+
+For instance, here's part of the report from the I<pod2man> program that
+comes with Perl:
+
+  Subroutine clear_noremap
+    Package (lexical)
+      $ready_to_print   i1069, 1079
+    Package main
+      $&                1086
+      $.                1086
+      $0                1086
+      $1                1087
+      $2                1085, 1085
+      $3                1085, 1085
+      $ARGV             1086
+      %HTML_Escapes     1085, 1085
+
+This shows the variables used in the subroutine C<clear_noremap>.  The
+variable C<$ready_to_print> is a my() (lexical) variable,
+B<i>ntroduced (first declared with my()) on line 1069, and used on
+line 1079.  The variable C<$&> from the main package is used on 1086,
+and so on.
+
+A line number may be prefixed by a single letter:
+
+=over 4
+
+=item i
+
+Lexical variable introduced (declared with my()) for the first time.
+
+=item &
+
+Subroutine or method call.
+
+=item s
+
+Subroutine defined.
+
+=item r
+
+Format defined.
+
+=back
+
+The most useful option the cross referencer has is to save the report
+to a separate file.  For instance, to save the report on
+I<myperlprogram> to the file I<report>:
+
+  $ perl -MO=Xref,-oreport myperlprogram
+
+=head1 OPTIONS
+
+Option words are separated by commas (not whitespace) and follow the
+usual conventions of compiler backend options.
+
+=over 8
+
+=item C<-oFILENAME>
+
+Directs output to C<FILENAME> instead of standard output.
+
+=item C<-r>
+
+Raw output. Instead of producing a human-readable report, outputs a line
+in machine-readable form for each definition/use of a variable/sub/format.
+
+=item C<-d>
+
+Don't output the "(definitions)" sections.
+
+=item C<-D[tO]>
+
+(Internal) debug options, probably only useful if C<-r> included.
+The C<t> option prints the object on the top of the stack as it's
+being tracked. The C<O> option prints each operator as it's being
+processed in the execution order of the program.
+
+=back
+
+=head1 BUGS
+
+Non-lexical variables are quite difficult to track through a program.
+Sometimes the type of a non-lexical variable's use is impossible to
+determine. Introductions of non-lexical non-scalars don't seem to be
+reported properly.
+
+=head1 AUTHOR
+
+Malcolm Beattie, mbeattie@sable.ox.ac.uk.
+
+=cut
+
+use strict;
+use Config;
+use B qw(peekop class comppadlist main_start svref_2object walksymtable
+         OPpLVAL_INTRO SVf_POK OPpOUR_INTRO cstring
+        );
+
+sub UNKNOWN { ["?", "?", "?"] }
+
+my @pad;			# lexicals in current pad
+				# as ["(lexical)", type, name]
+my %done;			# keyed by $$op: set when each $op is done
+my $top = UNKNOWN;		# shadows top element of stack as
+				# [pack, type, name] (pack can be "(lexical)")
+my $file;			# shadows current filename
+my $line;			# shadows current line number
+my $subname;			# shadows current sub name
+my %table;			# Multi-level hash to record all uses etc.
+my @todo = ();			# List of CVs that need processing
+
+my %code = (intro => "i", used => "",
+	    subdef => "s", subused => "&",
+	    formdef => "f", meth => "->");
+
+
+# Options
+my ($debug_op, $debug_top, $nodefs, $raw);
+
+sub process {
+    my ($var, $event) = @_;
+    my ($pack, $type, $name) = @$var;
+    if ($type eq "*") {
+	if ($event eq "used") {
+	    return;
+	} elsif ($event eq "subused") {
+	    $type = "&";
+	}
+    }
+    $type =~ s/(.)\*$/$1/g;
+    if ($raw) {
+	printf "%-16s %-12s %5d %-12s %4s %-16s %s\n",
+	    $file, $subname, $line, $pack, $type, $name, $event;
+    } else {
+	# Wheee
+	push(@{$table{$file}->{$subname}->{$pack}->{$type.$name}->{$event}},
+	    $line);
+    }
+}
+
+sub load_pad {
+    my $padlist = shift;
+    my ($namelistav, $vallistav, @namelist, $ix);
+    @pad = ();
+    return if class($padlist) =~ '^(?:SPECIAL|NULL)\z';
+    ($namelistav,$vallistav) = $padlist->ARRAY;
+    @namelist = $namelistav->ARRAY;
+    for ($ix = 1; $ix < @namelist; $ix++) {
+	my $namesv = $namelist[$ix];
+	next if class($namesv) eq "SPECIAL";
+	my ($type, $name) = $namesv->PV =~ /^(.)([^\0]*)(\0.*)?$/;
+	$pad[$ix] = ["(lexical)", $type || '?', $name || '?'];
+    }
+    if ($Config{useithreads}) {
+	my (@vallist);
+	@vallist = $vallistav->ARRAY;
+	for ($ix = 1; $ix < @vallist; $ix++) {
+	    my $valsv = $vallist[$ix];
+	    next unless class($valsv) eq "GV";
+            next if class($valsv->STASH) eq 'SPECIAL';
+	    # these pad GVs don't have corresponding names, so same @pad
+	    # array can be used without collisions
+	    $pad[$ix] = [$valsv->STASH->NAME, "*", $valsv->NAME];
+	}
+    }
+}
+
+sub xref {
+    my $start = shift;
+    my $op;
+    for ($op = $start; $$op; $op = $op->next) {
+	last if $done{$$op}++;
+	warn sprintf("top = [%s, %s, %s]\n", @$top) if $debug_top;
+	warn peekop($op), "\n" if $debug_op;
+	my $opname = $op->name;
+	if ($opname =~ /^(or|and|mapwhile|grepwhile|range|cond_expr)$/) {
+	    xref($op->other);
+	} elsif ($opname eq "match" || $opname eq "subst") {
+	    xref($op->pmreplstart);
+	} elsif ($opname eq "substcont") {
+	    xref($op->other->pmreplstart);
+	    $op = $op->other;
+	    redo;
+	} elsif ($opname eq "enterloop") {
+	    xref($op->redoop);
+	    xref($op->nextop);
+	    xref($op->lastop);
+	} elsif ($opname eq "subst") {
+	    xref($op->pmreplstart);
+	} else {
+	    no strict 'refs';
+	    my $ppname = "pp_$opname";
+	    &$ppname($op) if defined(&$ppname);
+	}
+    }
+}
+
+sub xref_cv {
+    my $cv = shift;
+    my $pack = $cv->GV->STASH->NAME;
+    $subname = ($pack eq "main" ? "" : "$pack\::") . $cv->GV->NAME;
+    load_pad($cv->PADLIST);
+    xref($cv->START);
+    $subname = "(main)";
+}
+
+sub xref_object {
+    my $cvref = shift;
+    xref_cv(svref_2object($cvref));
+}
+
+sub xref_main {
+    $subname = "(main)";
+    load_pad(comppadlist);
+    xref(main_start);
+    while (@todo) {
+	xref_cv(shift @todo);
+    }
+}
+
+sub pp_nextstate {
+    my $op = shift;
+    $file = $op->file;
+    $line = $op->line;
+    $top = UNKNOWN;
+}
+
+sub pp_padrange {
+    my $op = shift;
+    my $count = $op->private & 127;
+    for my $i (0..$count-1) {
+	$top = $pad[$op->targ + $i];
+	process($top, $op->private & OPpLVAL_INTRO ? "intro" : "used");
+    }
+}
+
+sub pp_padsv {
+    my $op = shift;
+    $top = $pad[$op->targ];
+    process($top, $op->private & OPpLVAL_INTRO ? "intro" : "used");
+}
+
+sub pp_padav { pp_padsv(@_) }
+sub pp_padhv { pp_padsv(@_) }
+
+sub deref {
+    my ($op, $var, $as) = @_;
+    $var->[1] = $as . $var->[1];
+    process($var, $op->private & OPpOUR_INTRO ? "intro" : "used");
+}
+
+sub pp_rv2cv { deref(shift, $top, "&"); }
+sub pp_rv2hv { deref(shift, $top, "%"); }
+sub pp_rv2sv { deref(shift, $top, "\$"); }
+sub pp_rv2av { deref(shift, $top, "\@"); }
+sub pp_rv2gv { deref(shift, $top, "*"); }
+
+sub pp_gvsv {
+    my $op = shift;
+    my $gv;
+    if ($Config{useithreads}) {
+	$top = $pad[$op->padix];
+	$top = UNKNOWN unless $top;
+	$top->[1] = '$';
+    }
+    else {
+	$gv = $op->gv;
+	$top = [$gv->STASH->NAME, '$', $gv->SAFENAME];
+    }
+    process($top, $op->private & OPpLVAL_INTRO ||
+                  $op->private & OPpOUR_INTRO   ? "intro" : "used");
+}
+
+sub pp_gv {
+    my $op = shift;
+    my $gv;
+    if ($Config{useithreads}) {
+	$top = $pad[$op->padix];
+	$top = UNKNOWN unless $top;
+	$top->[1] = '*';
+    }
+    else {
+	$gv = $op->gv;
+	$top = [$gv->STASH->NAME, "*", $gv->SAFENAME];
+    }
+    process($top, $op->private & OPpLVAL_INTRO ? "intro" : "used");
+}
+
+sub pp_const {
+    my $op = shift;
+    my $sv = $op->sv;
+    # constant could be in the pad (under useithreads)
+    if ($$sv) {
+	$top = ["?", "",
+		(class($sv) ne "SPECIAL" && $sv->FLAGS & SVf_POK)
+		? cstring($sv->PV) : "?"];
+    }
+    else {
+	$top = $pad[$op->targ];
+	$top = UNKNOWN unless $top;
+    }
+}
+
+sub pp_method {
+    my $op = shift;
+    $top = ["(method)", "->".$top->[1], $top->[2]];
+}
+
+sub pp_entersub {
+    my $op = shift;
+    if ($top->[1] eq "m") {
+	process($top, "meth");
+    } else {
+	process($top, "subused");
+    }
+    $top = UNKNOWN;
+}
+
+#
+# Stuff for cross referencing definitions of variables and subs
+#
+
+sub B::GV::xref {
+    my $gv = shift;
+    my $cv = $gv->CV;
+    if ($$cv) {
+	#return if $done{$$cv}++;
+	$file = $gv->FILE;
+	$line = $gv->LINE;
+	process([$gv->STASH->NAME, "&", $gv->NAME], "subdef");
+	push(@todo, $cv);
+    }
+    my $form = $gv->FORM;
+    if ($$form) {
+	return if $done{$$form}++;
+	$file = $gv->FILE;
+	$line = $gv->LINE;
+	process([$gv->STASH->NAME, "", $gv->NAME], "formdef");
+    }
+}
+
+sub xref_definitions {
+    my ($pack, %exclude);
+    return if $nodefs;
+    $subname = "(definitions)";
+    foreach $pack (qw(B O AutoLoader DynaLoader XSLoader Config DB VMS
+		      strict vars FileHandle Exporter Carp PerlIO::Layer
+		      attributes utf8 warnings)) {
+        $exclude{$pack."::"} = 1;
+    }
+    no strict qw(vars refs);
+    walksymtable(\%{"main::"}, "xref", sub { !defined($exclude{$_[0]}) });
+}
+
+sub output {
+    return if $raw;
+    my ($file, $subname, $pack, $name, $ev, $perfile, $persubname,
+	$perpack, $pername, $perev);
+    foreach $file (sort(keys(%table))) {
+	$perfile = $table{$file};
+	print "File $file\n";
+	foreach $subname (sort(keys(%$perfile))) {
+	    $persubname = $perfile->{$subname};
+	    print "  Subroutine $subname\n";
+	    foreach $pack (sort(keys(%$persubname))) {
+		$perpack = $persubname->{$pack};
+		print "    Package $pack\n";
+		foreach $name (sort(keys(%$perpack))) {
+		    $pername = $perpack->{$name};
+		    my @lines;
+		    foreach $ev (qw(intro formdef subdef meth subused used)) {
+			$perev = $pername->{$ev};
+			if (defined($perev) && @$perev) {
+			    my $code = $code{$ev};
+			    push(@lines, map("$code$_", @$perev));
+			}
+		    }
+		    printf "      %-16s  %s\n", $name, join(", ", @lines);
+		}
+	    }
+	}
+    }
+}
+
+sub compile {
+    my @options = @_;
+    my ($option, $opt, $arg);
+  OPTION:
+    while ($option = shift @options) {
+	if ($option =~ /^-(.)(.*)/) {
+	    $opt = $1;
+	    $arg = $2;
+	} else {
+	    unshift @options, $option;
+	    last OPTION;
+	}
+	if ($opt eq "-" && $arg eq "-") {
+	    shift @options;
+	    last OPTION;
+	} elsif ($opt eq "o") {
+	    $arg ||= shift @options;
+	    open(STDOUT, ">$arg") or return "$arg: $!\n";
+	} elsif ($opt eq "d") {
+	    $nodefs = 1;
+	} elsif ($opt eq "r") {
+	    $raw = 1;
+	} elsif ($opt eq "D") {
+            $arg ||= shift @options;
+	    foreach $arg (split(//, $arg)) {
+		if ($arg eq "o") {
+		    B->debug(1);
+		} elsif ($arg eq "O") {
+		    $debug_op = 1;
+		} elsif ($arg eq "t") {
+		    $debug_top = 1;
+		}
+	    }
+	}
+    }
+    if (@options) {
+	return sub {
+	    my $objname;
+	    xref_definitions();
+	    foreach $objname (@options) {
+		$objname = "main::$objname" unless $objname =~ /::/;
+		eval "xref_object(\\&$objname)";
+		die "xref_object(\\&$objname) failed: $@" if $@;
+	    }
+	    output();
+	}
+    } else {
+	return sub {
+	    xref_definitions();
+	    xref_main();
+	    output();
+	}
+    }
+}
+
+1;
diff --git a/lib/5.24.1/x86_64-linux/CORE/EXTERN.h b/lib/5.24.1/x86_64-linux/CORE/EXTERN.h
new file mode 100644
index 00000000..db8db2b2
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/EXTERN.h
@@ -0,0 +1,59 @@
+/*    EXTERN.h
+ *
+ *    Copyright (C) 1991, 1992, 1993, 1995, 1996, 1997, 1998, 1999,
+ *    2000, 2001, by Larry Wall and others
+ *
+ *    You may distribute under the terms of either the GNU General Public
+ *    License or the Artistic License, as specified in the README file.
+ *
+ */
+
+/*
+ * EXT  designates a global var which is defined in perl.h
+ * dEXT designates a global var which is defined in another
+ *      file, so we can't count on finding it in perl.h
+ *      (this practice should be avoided).
+ */
+#undef EXT
+#undef dEXT
+#undef EXTCONST
+#undef dEXTCONST
+
+#  if (defined(WIN32) || defined(__SYMBIAN32__)) && !defined(PERL_STATIC_SYMS)
+    /* miniperl should not export anything */
+#    if defined(PERL_IS_MINIPERL) && !defined(UNDER_CE) && defined(_MSC_VER)
+#      define EXT extern
+#      define dEXT 
+#      define EXTCONST extern const
+#      define dEXTCONST const
+#    else
+#      if defined(PERLDLL) || defined(__SYMBIAN32__)
+#        define EXT EXTERN_C __declspec(dllexport)
+#        define dEXT 
+#        define EXTCONST EXTERN_C __declspec(dllexport) const
+#        define dEXTCONST const
+#      else
+#        define EXT EXTERN_C __declspec(dllimport)
+#        define dEXT 
+#        define EXTCONST EXTERN_C __declspec(dllimport) const
+#        define dEXTCONST const
+#      endif
+#    endif
+#  else
+#    if defined(__CYGWIN__) && defined(USEIMPORTLIB)
+#      define EXT extern __declspec(dllimport)
+#      define dEXT 
+#      define EXTCONST extern __declspec(dllimport) const
+#      define dEXTCONST const
+#    else
+#      define EXT extern
+#      define dEXT
+#      define EXTCONST extern const
+#      define dEXTCONST const
+#    endif
+#  endif
+
+#undef INIT
+#define INIT(x)
+
+#undef DOINIT
diff --git a/lib/5.24.1/x86_64-linux/CORE/INTERN.h b/lib/5.24.1/x86_64-linux/CORE/INTERN.h
new file mode 100644
index 00000000..eaaf6b2c
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/INTERN.h
@@ -0,0 +1,51 @@
+/*    INTERN.h
+ *
+ *    Copyright (C) 1991, 1992, 1993, 1995, 1996, 1998, 2000, 2001,
+ *    by Larry Wall and others
+ *
+ *    You may distribute under the terms of either the GNU General Public
+ *    License or the Artistic License, as specified in the README file.
+ *
+ */
+
+/*
+ * EXT  designates a global var which is defined in perl.h
+ * dEXT designates a global var which is defined in another
+ *      file, so we can't count on finding it in perl.h
+ *      (this practice should be avoided).
+ */
+#undef EXT
+#undef dEXT
+#undef EXTCONST
+#undef dEXTCONST
+
+#  if (defined(WIN32) && defined(__MINGW32__)) || defined(__SYMBIAN32__)
+#    ifdef __cplusplus
+#      define EXT	__declspec(dllexport)
+#      define dEXT
+#      define EXTCONST	__declspec(dllexport) extern const
+#      define dEXTCONST	const
+#    else
+#      define EXT	__declspec(dllexport)
+#      define dEXT
+#      define EXTCONST	__declspec(dllexport) const
+#      define dEXTCONST	const
+#    endif
+#  else
+#    ifdef __cplusplus
+#      define EXT
+#      define dEXT
+#      define EXTCONST EXTERN_C const
+#      define dEXTCONST const
+#    else
+#      define EXT
+#      define dEXT
+#      define EXTCONST const
+#      define dEXTCONST const
+#    endif
+#  endif
+
+#undef INIT
+#define INIT(x) = x
+
+#define DOINIT
diff --git a/lib/5.24.1/x86_64-linux/CORE/XSUB.h b/lib/5.24.1/x86_64-linux/CORE/XSUB.h
new file mode 100644
index 00000000..e64bc83b
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/XSUB.h
@@ -0,0 +1,721 @@
+/*    XSUB.h
+ *
+ *    Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002,
+ *    2003, 2004, 2005, 2006, 2007, 2008 by Larry Wall and others
+ *
+ *    You may distribute under the terms of either the GNU General Public
+ *    License or the Artistic License, as specified in the README file.
+ *
+ */
+
+#ifndef _INC_PERL_XSUB_H
+#define _INC_PERL_XSUB_H 1
+
+/* first, some documentation for xsubpp-generated items */
+
+/*
+=head1 C<xsubpp> variables and internal functions
+
+=for apidoc Amn|char*|CLASS
+Variable which is setup by C<xsubpp> to indicate the 
+class name for a C++ XS constructor.  This is always a C<char*>.  See
+C<L</THIS>>.
+
+=for apidoc Amn|(whatever)|RETVAL
+Variable which is setup by C<xsubpp> to hold the return value for an 
+XSUB.  This is always the proper type for the XSUB.  See 
+L<perlxs/"The RETVAL Variable">.
+
+=for apidoc Amn|(whatever)|THIS
+Variable which is setup by C<xsubpp> to designate the object in a C++ 
+XSUB.  This is always the proper type for the C++ object.  See C<L</CLASS>> and
+L<perlxs/"Using XS With C++">.
+
+=for apidoc Amn|I32|ax
+Variable which is setup by C<xsubpp> to indicate the stack base offset,
+used by the C<ST>, C<XSprePUSH> and C<XSRETURN> macros.  The C<dMARK> macro
+must be called prior to setup the C<MARK> variable.
+
+=for apidoc Amn|I32|items
+Variable which is setup by C<xsubpp> to indicate the number of 
+items on the stack.  See L<perlxs/"Variable-length Parameter Lists">.
+
+=for apidoc Amn|I32|ix
+Variable which is setup by C<xsubpp> to indicate which of an 
+XSUB's aliases was used to invoke it.  See L<perlxs/"The ALIAS: Keyword">.
+
+=for apidoc Am|SV*|ST|int ix
+Used to access elements on the XSUB's stack.
+
+=for apidoc AmU||XS
+Macro to declare an XSUB and its C parameter list.  This is handled by
+C<xsubpp>.  It is the same as using the more explicit C<XS_EXTERNAL> macro.
+
+=for apidoc AmU||XS_INTERNAL
+Macro to declare an XSUB and its C parameter list without exporting the symbols.
+This is handled by C<xsubpp> and generally preferable over exporting the XSUB
+symbols unnecessarily.
+
+=for apidoc AmU||XS_EXTERNAL
+Macro to declare an XSUB and its C parameter list explicitly exporting the symbols.
+
+=for apidoc Ams||dAX
+Sets up the C<ax> variable.
+This is usually handled automatically by C<xsubpp> by calling C<dXSARGS>.
+
+=for apidoc Ams||dAXMARK
+Sets up the C<ax> variable and stack marker variable C<mark>.
+This is usually handled automatically by C<xsubpp> by calling C<dXSARGS>.
+
+=for apidoc Ams||dITEMS
+Sets up the C<items> variable.
+This is usually handled automatically by C<xsubpp> by calling C<dXSARGS>.
+
+=for apidoc Ams||dXSARGS
+Sets up stack and mark pointers for an XSUB, calling C<dSP> and C<dMARK>.
+Sets up the C<ax> and C<items> variables by calling C<dAX> and C<dITEMS>.
+This is usually handled automatically by C<xsubpp>.
+
+=for apidoc Ams||dXSI32
+Sets up the C<ix> variable for an XSUB which has aliases.  This is usually
+handled automatically by C<xsubpp>.
+
+=for apidoc Ams||dUNDERBAR
+Sets up any variable needed by the C<UNDERBAR> macro.  It used to define
+C<padoff_du>, but it is currently a noop.  However, it is strongly advised
+to still use it for ensuring past and future compatibility.
+
+=for apidoc AmU||UNDERBAR
+The SV* corresponding to the C<$_> variable.  Works even if there
+is a lexical C<$_> in scope.
+
+=cut
+*/
+
+#ifndef PERL_UNUSED_ARG
+#  if defined(lint) && defined(S_SPLINT_S) /* www.splint.org */
+#    include <note.h>
+#    define PERL_UNUSED_ARG(x) NOTE(ARGUNUSED(x))
+#  else
+#    define PERL_UNUSED_ARG(x) ((void)x)
+#  endif
+#endif
+#ifndef PERL_UNUSED_VAR
+#  define PERL_UNUSED_VAR(x) ((void)x)
+#endif
+
+#define ST(off) PL_stack_base[ax + (off)]
+
+/* XSPROTO() is also used by SWIG like this:
+ *
+ *     typedef XSPROTO(SwigPerlWrapper);
+ *     typedef SwigPerlWrapper *SwigPerlWrapperPtr;
+ *
+ * This code needs to be compilable under both C and C++.
+ *
+ * Don't forget to change the __attribute__unused__ version of XS()
+ * below too if you change XSPROTO() here.
+ */
+
+/* XS_INTERNAL is the explicit static-linkage variant of the default
+ * XS macro.
+ *
+ * XS_EXTERNAL is the same as XS_INTERNAL except it does not include
+ * "STATIC", ie. it exports XSUB symbols. You probably don't want that.
+ */
+
+#define XSPROTO(name) void name(pTHX_ CV* cv)
+
+#undef XS
+#undef XS_EXTERNAL
+#undef XS_INTERNAL
+#if defined(__CYGWIN__) && defined(USE_DYNAMIC_LOADING)
+#  define XS_EXTERNAL(name) __declspec(dllexport) XSPROTO(name)
+#  define XS_INTERNAL(name) STATIC XSPROTO(name)
+#endif
+#if defined(__SYMBIAN32__)
+#  define XS_EXTERNAL(name) EXPORT_C XSPROTO(name)
+#  define XS_INTERNAL(name) EXPORT_C STATIC XSPROTO(name)
+#endif
+#ifndef XS_EXTERNAL
+#  if defined(HASATTRIBUTE_UNUSED) && !defined(__cplusplus)
+#    define XS_EXTERNAL(name) void name(pTHX_ CV* cv __attribute__unused__)
+#    define XS_INTERNAL(name) STATIC void name(pTHX_ CV* cv __attribute__unused__)
+#  else
+#    ifdef __cplusplus
+#      define XS_EXTERNAL(name) extern "C" XSPROTO(name)
+#      define XS_INTERNAL(name) static XSPROTO(name)
+#    else
+#      define XS_EXTERNAL(name) XSPROTO(name)
+#      define XS_INTERNAL(name) STATIC XSPROTO(name)
+#    endif
+#  endif
+#endif
+
+/* We do export xsub symbols by default for the public XS macro.
+ * Try explicitly using XS_INTERNAL/XS_EXTERNAL instead, please. */
+#define XS(name) XS_EXTERNAL(name)
+
+#define dAX const I32 ax = (I32)(MARK - PL_stack_base + 1)
+
+#define dAXMARK				\
+	I32 ax = POPMARK;	\
+	SV **mark = PL_stack_base + ax++
+
+#define dITEMS I32 items = (I32)(SP - MARK)
+
+#if defined(lint) && defined(S_SPLINT_S) /* www.splint.org */
+#  define dXSARGS \
+	NOTE(ARGUNUSED(cv)) \
+	dSP; dAXMARK; dITEMS
+#else
+#  define dXSARGS \
+	dSP; dAXMARK; dITEMS
+/* These 3 macros are replacements for dXSARGS macro only in bootstrap.
+   They factor out common code in every BOOT XSUB. Computation of vars mark
+   and items will optimize away in most BOOT functions. Var ax can never be
+   optimized away since BOOT must return &PL_sv_yes by default from xsubpp.
+   Note these macros are not drop in replacements for dXSARGS since they set
+   PL_xsubfilename. */
+#  define dXSBOOTARGSXSAPIVERCHK  \
+	I32 ax = XS_BOTHVERSION_SETXSUBFN_POPMARK_BOOTCHECK;	\
+	SV **mark = PL_stack_base + ax; dSP; dITEMS
+#  define dXSBOOTARGSAPIVERCHK  \
+	I32 ax = XS_APIVERSION_SETXSUBFN_POPMARK_BOOTCHECK;	\
+	SV **mark = PL_stack_base + ax; dSP; dITEMS
+/* dXSBOOTARGSNOVERCHK has no API in xsubpp to choose it so do
+#undef dXSBOOTARGSXSAPIVERCHK
+#define dXSBOOTARGSXSAPIVERCHK dXSBOOTARGSNOVERCHK */
+#  define dXSBOOTARGSNOVERCHK  \
+	I32 ax = XS_SETXSUBFN_POPMARK;  \
+	SV **mark = PL_stack_base + ax; dSP; dITEMS
+#endif
+
+#define dXSTARG SV * const targ = ((PL_op->op_private & OPpENTERSUB_HASTARG) \
+			     ? PAD_SV(PL_op->op_targ) : sv_newmortal())
+
+/* Should be used before final PUSHi etc. if not in PPCODE section. */
+#define XSprePUSH (sp = PL_stack_base + ax - 1)
+
+#define XSANY CvXSUBANY(cv)
+
+#define dXSI32 I32 ix = XSANY.any_i32
+
+#ifdef __cplusplus
+#  define XSINTERFACE_CVT(ret,name) ret (*name)(...)
+#  define XSINTERFACE_CVT_ANON(ret) ret (*)(...)
+#else
+#  define XSINTERFACE_CVT(ret,name) ret (*name)()
+#  define XSINTERFACE_CVT_ANON(ret) ret (*)()
+#endif
+#define dXSFUNCTION(ret)		XSINTERFACE_CVT(ret,XSFUNCTION)
+#define XSINTERFACE_FUNC(ret,cv,f)     ((XSINTERFACE_CVT_ANON(ret))(f))
+#define XSINTERFACE_FUNC_SET(cv,f)	\
+		CvXSUBANY(cv).any_dxptr = (void (*) (pTHX_ void*))(f)
+
+#define dUNDERBAR dNOOP
+#define UNDERBAR  find_rundefsv()
+
+/* Simple macros to put new mortal values onto the stack.   */
+/* Typically used to return values from XS functions.       */
+
+/*
+=head1 Stack Manipulation Macros
+
+=for apidoc Am|void|XST_mIV|int pos|IV iv
+Place an integer into the specified position C<pos> on the stack.  The
+value is stored in a new mortal SV.
+
+=for apidoc Am|void|XST_mNV|int pos|NV nv
+Place a double into the specified position C<pos> on the stack.  The value
+is stored in a new mortal SV.
+
+=for apidoc Am|void|XST_mPV|int pos|char* str
+Place a copy of a string into the specified position C<pos> on the stack. 
+The value is stored in a new mortal SV.
+
+=for apidoc Am|void|XST_mNO|int pos
+Place C<&PL_sv_no> into the specified position C<pos> on the
+stack.
+
+=for apidoc Am|void|XST_mYES|int pos
+Place C<&PL_sv_yes> into the specified position C<pos> on the
+stack.
+
+=for apidoc Am|void|XST_mUNDEF|int pos
+Place C<&PL_sv_undef> into the specified position C<pos> on the
+stack.
+
+=for apidoc Am|void|XSRETURN|int nitems
+Return from XSUB, indicating number of items on the stack.  This is usually
+handled by C<xsubpp>.
+
+=for apidoc Am|void|XSRETURN_IV|IV iv
+Return an integer from an XSUB immediately.  Uses C<XST_mIV>.
+
+=for apidoc Am|void|XSRETURN_UV|IV uv
+Return an integer from an XSUB immediately.  Uses C<XST_mUV>.
+
+=for apidoc Am|void|XSRETURN_NV|NV nv
+Return a double from an XSUB immediately.  Uses C<XST_mNV>.
+
+=for apidoc Am|void|XSRETURN_PV|char* str
+Return a copy of a string from an XSUB immediately.  Uses C<XST_mPV>.
+
+=for apidoc Ams||XSRETURN_NO
+Return C<&PL_sv_no> from an XSUB immediately.  Uses C<XST_mNO>.
+
+=for apidoc Ams||XSRETURN_YES
+Return C<&PL_sv_yes> from an XSUB immediately.  Uses C<XST_mYES>.
+
+=for apidoc Ams||XSRETURN_UNDEF
+Return C<&PL_sv_undef> from an XSUB immediately.  Uses C<XST_mUNDEF>.
+
+=for apidoc Ams||XSRETURN_EMPTY
+Return an empty list from an XSUB immediately.
+
+=head1 Variables created by C<xsubpp> and C<xsubpp> internal functions
+
+=for apidoc AmU||newXSproto|char* name|XSUBADDR_t f|char* filename|const char *proto
+Used by C<xsubpp> to hook up XSUBs as Perl subs.  Adds Perl prototypes to
+the subs.
+
+=for apidoc AmU||XS_VERSION
+The version identifier for an XS module.  This is usually
+handled automatically by C<ExtUtils::MakeMaker>.  See
+C<L</XS_VERSION_BOOTCHECK>>.
+
+=for apidoc Ams||XS_VERSION_BOOTCHECK
+Macro to verify that a PM module's C<$VERSION> variable matches the XS
+module's C<XS_VERSION> variable.  This is usually handled automatically by
+C<xsubpp>.  See L<perlxs/"The VERSIONCHECK: Keyword">.
+
+=for apidoc Ams||XS_APIVERSION_BOOTCHECK
+Macro to verify that the perl api version an XS module has been compiled against
+matches the api version of the perl interpreter it's being loaded into.
+
+=head1 Exception Handling (simple) Macros
+
+=for apidoc Ams||dXCPT
+Set up necessary local variables for exception handling.
+See L<perlguts/"Exception Handling">.
+
+=for apidoc AmU||XCPT_TRY_START
+Starts a try block.  See L<perlguts/"Exception Handling">.
+
+=for apidoc AmU||XCPT_TRY_END
+Ends a try block.  See L<perlguts/"Exception Handling">.
+
+=for apidoc AmU||XCPT_CATCH
+Introduces a catch block.  See L<perlguts/"Exception Handling">.
+
+=for apidoc Ams||XCPT_RETHROW
+Rethrows a previously caught exception.  See L<perlguts/"Exception Handling">.
+
+=cut
+*/
+
+#define XST_mIV(i,v)  (ST(i) = sv_2mortal(newSViv(v))  )
+#define XST_mUV(i,v)  (ST(i) = sv_2mortal(newSVuv(v))  )
+#define XST_mNV(i,v)  (ST(i) = sv_2mortal(newSVnv(v))  )
+#define XST_mPV(i,v)  (ST(i) = sv_2mortal(newSVpv(v,0)))
+#define XST_mPVN(i,v,n)  (ST(i) = newSVpvn_flags(v,n, SVs_TEMP))
+#define XST_mNO(i)    (ST(i) = &PL_sv_no   )
+#define XST_mYES(i)   (ST(i) = &PL_sv_yes  )
+#define XST_mUNDEF(i) (ST(i) = &PL_sv_undef)
+
+#define XSRETURN(off)					\
+    STMT_START {					\
+	const IV tmpXSoff = (off);			\
+	assert(tmpXSoff >= 0);\
+	PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1);	\
+	return;						\
+    } STMT_END
+
+#define XSRETURN_IV(v) STMT_START { XST_mIV(0,v);  XSRETURN(1); } STMT_END
+#define XSRETURN_UV(v) STMT_START { XST_mUV(0,v);  XSRETURN(1); } STMT_END
+#define XSRETURN_NV(v) STMT_START { XST_mNV(0,v);  XSRETURN(1); } STMT_END
+#define XSRETURN_PV(v) STMT_START { XST_mPV(0,v);  XSRETURN(1); } STMT_END
+#define XSRETURN_PVN(v,n) STMT_START { XST_mPVN(0,v,n);  XSRETURN(1); } STMT_END
+#define XSRETURN_NO    STMT_START { XST_mNO(0);    XSRETURN(1); } STMT_END
+#define XSRETURN_YES   STMT_START { XST_mYES(0);   XSRETURN(1); } STMT_END
+#define XSRETURN_UNDEF STMT_START { XST_mUNDEF(0); XSRETURN(1); } STMT_END
+#define XSRETURN_EMPTY STMT_START {                XSRETURN(0); } STMT_END
+
+#define newXSproto(a,b,c,d)	newXS_flags(a,b,c,d,0)
+
+#ifdef XS_VERSION
+#  define XS_VERSION_BOOTCHECK						\
+    Perl_xs_handshake(HS_KEY(FALSE, FALSE, "", XS_VERSION), HS_CXT, __FILE__,	\
+        items, ax, XS_VERSION)
+#else
+#  define XS_VERSION_BOOTCHECK
+#endif
+
+#define XS_APIVERSION_BOOTCHECK						\
+    Perl_xs_handshake(HS_KEY(FALSE, FALSE, "v" PERL_API_VERSION_STRING, ""),	\
+        HS_CXT, __FILE__, items, ax, "v" PERL_API_VERSION_STRING)
+/* public API, this is a combination of XS_VERSION_BOOTCHECK and
+   XS_APIVERSION_BOOTCHECK in 1, and is backportable */
+#ifdef XS_VERSION
+#  define XS_BOTHVERSION_BOOTCHECK						\
+    Perl_xs_handshake(HS_KEY(FALSE, FALSE, "v" PERL_API_VERSION_STRING, XS_VERSION),	\
+        HS_CXT, __FILE__, items, ax, "v" PERL_API_VERSION_STRING, XS_VERSION)
+#else
+/* should this be a #error? if you want both checked, you better supply XS_VERSION right? */
+#  define XS_BOTHVERSION_BOOTCHECK XS_APIVERSION_BOOTCHECK
+#endif
+
+/* private API */
+#define XS_APIVERSION_POPMARK_BOOTCHECK					\
+    Perl_xs_handshake(HS_KEY(FALSE, TRUE, "v" PERL_API_VERSION_STRING, ""),	\
+        HS_CXT, __FILE__, "v" PERL_API_VERSION_STRING)
+#ifdef XS_VERSION
+#  define XS_BOTHVERSION_POPMARK_BOOTCHECK					\
+    Perl_xs_handshake(HS_KEY(FALSE, TRUE, "v" PERL_API_VERSION_STRING, XS_VERSION),	\
+        HS_CXT, __FILE__, "v" PERL_API_VERSION_STRING, XS_VERSION)
+#else
+/* should this be a #error? if you want both checked, you better supply XS_VERSION right? */
+#  define XS_BOTHVERSION_POPMARK_BOOTCHECK XS_APIVERSION_POPMARK_BOOTCHECK
+#endif
+
+#define XS_APIVERSION_SETXSUBFN_POPMARK_BOOTCHECK				\
+    Perl_xs_handshake(HS_KEY(TRUE, TRUE, "v" PERL_API_VERSION_STRING, ""),	\
+        HS_CXT, __FILE__, "v" PERL_API_VERSION_STRING)
+#ifdef XS_VERSION
+#  define XS_BOTHVERSION_SETXSUBFN_POPMARK_BOOTCHECK				  \
+    Perl_xs_handshake(HS_KEY(TRUE, TRUE, "v" PERL_API_VERSION_STRING, XS_VERSION),\
+        HS_CXT, __FILE__, "v" PERL_API_VERSION_STRING, XS_VERSION)
+#else
+/* should this be a #error? if you want both checked, you better supply XS_VERSION right? */
+#  define XS_BOTHVERSION_SETXSUBFN_POPMARK_BOOTCHECK XS_APIVERSION_SETXSUBFN_POPMARK_BOOTCHECK
+#endif
+
+/* For a normal bootstrap without API or XS version checking.
+   Useful for static XS modules or debugging/testing scenarios.
+   If this macro gets heavily used in the future, it should separated into
+   a separate function independent of Perl_xs_handshake for efficiency */
+#define XS_SETXSUBFN_POPMARK \
+    Perl_xs_handshake(HS_KEY(TRUE, TRUE, "", "") | HSf_NOCHK, HS_CXT, __FILE__)
+
+#ifdef NO_XSLOCKS
+#  define dXCPT             dJMPENV; int rEtV = 0
+#  define XCPT_TRY_START    JMPENV_PUSH(rEtV); if (rEtV == 0)
+#  define XCPT_TRY_END      JMPENV_POP;
+#  define XCPT_CATCH        if (rEtV != 0)
+#  define XCPT_RETHROW      JMPENV_JUMP(rEtV)
+#endif
+
+/*
+   The DBM_setFilter & DBM_ckFilter macros are only used by
+   the *DB*_File modules
+*/
+
+#define DBM_setFilter(db_type,code)				\
+	STMT_START {						\
+	    if (db_type)					\
+	        RETVAL = sv_mortalcopy(db_type) ;		\
+	    ST(0) = RETVAL ;					\
+	    if (db_type && (code == &PL_sv_undef)) {		\
+	        SvREFCNT_dec_NN(db_type) ;			\
+	        db_type = NULL ;				\
+	    }							\
+	    else if (code) {					\
+	        if (db_type)					\
+	            sv_setsv(db_type, code) ;			\
+	        else						\
+	            db_type = newSVsv(code) ;			\
+	    }	    						\
+	} STMT_END
+
+#define DBM_ckFilter(arg,type,name)				\
+        STMT_START {						\
+	if (db->type) {						\
+	    if (db->filtering) {				\
+	        croak("recursion detected in %s", name) ;	\
+	    }                     				\
+	    ENTER ;						\
+	    SAVETMPS ;						\
+	    SAVEINT(db->filtering) ;				\
+	    db->filtering = TRUE ;				\
+	    SAVE_DEFSV ;					\
+            if (name[7] == 's')                                 \
+                arg = newSVsv(arg);                             \
+	    DEFSV_set(arg) ;					\
+	    SvTEMP_off(arg) ;					\
+	    PUSHMARK(SP) ;					\
+	    PUTBACK ;						\
+	    (void) perl_call_sv(db->type, G_DISCARD); 		\
+	    SPAGAIN ;						\
+	    PUTBACK ;						\
+	    FREETMPS ;						\
+	    LEAVE ;						\
+            if (name[7] == 's'){                                \
+                arg = sv_2mortal(arg);                          \
+            }                                                   \
+	} } STMT_END                                                     
+
+#if 1		/* for compatibility */
+#  define VTBL_sv		&PL_vtbl_sv
+#  define VTBL_env		&PL_vtbl_env
+#  define VTBL_envelem		&PL_vtbl_envelem
+#  define VTBL_sigelem		&PL_vtbl_sigelem
+#  define VTBL_pack		&PL_vtbl_pack
+#  define VTBL_packelem		&PL_vtbl_packelem
+#  define VTBL_dbline		&PL_vtbl_dbline
+#  define VTBL_isa		&PL_vtbl_isa
+#  define VTBL_isaelem		&PL_vtbl_isaelem
+#  define VTBL_arylen		&PL_vtbl_arylen
+#  define VTBL_glob		&PL_vtbl_glob
+#  define VTBL_mglob		&PL_vtbl_mglob
+#  define VTBL_nkeys		&PL_vtbl_nkeys
+#  define VTBL_taint		&PL_vtbl_taint
+#  define VTBL_substr		&PL_vtbl_substr
+#  define VTBL_vec		&PL_vtbl_vec
+#  define VTBL_pos		&PL_vtbl_pos
+#  define VTBL_bm		&PL_vtbl_bm
+#  define VTBL_fm		&PL_vtbl_fm
+#  define VTBL_uvar		&PL_vtbl_uvar
+#  define VTBL_defelem		&PL_vtbl_defelem
+#  define VTBL_regexp		&PL_vtbl_regexp
+#  define VTBL_regdata		&PL_vtbl_regdata
+#  define VTBL_regdatum		&PL_vtbl_regdatum
+#  ifdef USE_LOCALE_COLLATE
+#    define VTBL_collxfrm	&PL_vtbl_collxfrm
+#  endif
+#  define VTBL_amagic		&PL_vtbl_amagic
+#  define VTBL_amagicelem	&PL_vtbl_amagicelem
+#endif
+
+#include "perlapi.h"
+
+#if defined(PERL_IMPLICIT_CONTEXT) && !defined(PERL_NO_GET_CONTEXT) && !defined(PERL_CORE)
+#  undef aTHX
+#  undef aTHX_
+#  define aTHX		PERL_GET_THX
+#  define aTHX_		aTHX,
+#endif
+
+#if defined(PERL_IMPLICIT_SYS) && !defined(PERL_CORE)
+#  ifndef NO_XSLOCKS
+# if defined (NETWARE) && defined (USE_STDIO)
+#    define times		PerlProc_times
+#    define setuid		PerlProc_setuid
+#    define setgid		PerlProc_setgid
+#    define getpid		PerlProc_getpid
+#    define pause		PerlProc_pause
+#    define exit		PerlProc_exit
+#    define _exit		PerlProc__exit
+# else
+#    undef closedir
+#    undef opendir
+#    undef stdin
+#    undef stdout
+#    undef stderr
+#    undef feof
+#    undef ferror
+#    undef fgetpos
+#    undef ioctl
+#    undef getlogin
+#    undef setjmp
+#    undef getc
+#    undef ungetc
+#    undef fileno
+
+/* Following symbols were giving redefinition errors while building extensions - sgp 17th Oct 2000 */
+#ifdef NETWARE
+#	undef readdir
+#	undef fstat
+#	undef stat
+#	undef longjmp
+#	undef endhostent
+#	undef endnetent
+#	undef endprotoent
+#	undef endservent
+#	undef gethostbyaddr
+#	undef gethostbyname
+#	undef gethostent
+#	undef getnetbyaddr
+#	undef getnetbyname
+#	undef getnetent
+#	undef getprotobyname
+#	undef getprotobynumber
+#	undef getprotoent
+#	undef getservbyname
+#	undef getservbyport
+#	undef getservent
+#	undef inet_ntoa
+#	undef sethostent
+#	undef setnetent
+#	undef setprotoent
+#	undef setservent
+#endif	/* NETWARE */
+
+/* to avoid warnings: "xyz" redefined */
+#ifdef WIN32
+#    undef  popen
+#    undef  pclose
+#endif /* WIN32 */
+
+#    undef  socketpair
+
+#    define mkdir		PerlDir_mkdir
+#    define chdir		PerlDir_chdir
+#    define rmdir		PerlDir_rmdir
+#    define closedir		PerlDir_close
+#    define opendir		PerlDir_open
+#    define readdir		PerlDir_read
+#    define rewinddir		PerlDir_rewind
+#    define seekdir		PerlDir_seek
+#    define telldir		PerlDir_tell
+#    define putenv		PerlEnv_putenv
+#    define getenv		PerlEnv_getenv
+#    define uname		PerlEnv_uname
+#    define stdin		PerlSIO_stdin
+#    define stdout		PerlSIO_stdout
+#    define stderr		PerlSIO_stderr
+#    define fopen		PerlSIO_fopen
+#    define fclose		PerlSIO_fclose
+#    define feof		PerlSIO_feof
+#    define ferror		PerlSIO_ferror
+#    define clearerr		PerlSIO_clearerr
+#    define getc		PerlSIO_getc
+#    define fgets		PerlSIO_fgets
+#    define fputc		PerlSIO_fputc
+#    define fputs		PerlSIO_fputs
+#    define fflush		PerlSIO_fflush
+#    define ungetc		PerlSIO_ungetc
+#    define fileno		PerlSIO_fileno
+#    define fdopen		PerlSIO_fdopen
+#    define freopen		PerlSIO_freopen
+#    define fread		PerlSIO_fread
+#    define fwrite		PerlSIO_fwrite
+#    define setbuf		PerlSIO_setbuf
+#    define setvbuf		PerlSIO_setvbuf
+#    define setlinebuf		PerlSIO_setlinebuf
+#    define stdoutf		PerlSIO_stdoutf
+#    define vfprintf		PerlSIO_vprintf
+#    define ftell		PerlSIO_ftell
+#    define fseek		PerlSIO_fseek
+#    define fgetpos		PerlSIO_fgetpos
+#    define fsetpos		PerlSIO_fsetpos
+#    define frewind		PerlSIO_rewind
+#    define tmpfile		PerlSIO_tmpfile
+#    define access		PerlLIO_access
+#    define chmod		PerlLIO_chmod
+#    define chsize		PerlLIO_chsize
+#    define close		PerlLIO_close
+#    define dup			PerlLIO_dup
+#    define dup2		PerlLIO_dup2
+#    define flock		PerlLIO_flock
+#    define fstat		PerlLIO_fstat
+#    define ioctl		PerlLIO_ioctl
+#    define isatty		PerlLIO_isatty
+#    define link                PerlLIO_link
+#    define lseek		PerlLIO_lseek
+#    define lstat		PerlLIO_lstat
+#    define mktemp		PerlLIO_mktemp
+#    define open		PerlLIO_open
+#    define read		PerlLIO_read
+#    define rename		PerlLIO_rename
+#    define setmode		PerlLIO_setmode
+#    define stat(buf,sb)	PerlLIO_stat(buf,sb)
+#    define tmpnam		PerlLIO_tmpnam
+#    define umask		PerlLIO_umask
+#    define unlink		PerlLIO_unlink
+#    define utime		PerlLIO_utime
+#    define write		PerlLIO_write
+#    define malloc		PerlMem_malloc
+#    define realloc		PerlMem_realloc
+#    define free		PerlMem_free
+#    define abort		PerlProc_abort
+#    define exit		PerlProc_exit
+#    define _exit		PerlProc__exit
+#    define execl		PerlProc_execl
+#    define execv		PerlProc_execv
+#    define execvp		PerlProc_execvp
+#    define getuid		PerlProc_getuid
+#    define geteuid		PerlProc_geteuid
+#    define getgid		PerlProc_getgid
+#    define getegid		PerlProc_getegid
+#    define getlogin		PerlProc_getlogin
+#    define kill		PerlProc_kill
+#    define killpg		PerlProc_killpg
+#    define pause		PerlProc_pause
+#    define popen		PerlProc_popen
+#    define pclose		PerlProc_pclose
+#    define pipe		PerlProc_pipe
+#    define setuid		PerlProc_setuid
+#    define setgid		PerlProc_setgid
+#    define sleep		PerlProc_sleep
+#    define times		PerlProc_times
+#    define wait		PerlProc_wait
+#    define setjmp		PerlProc_setjmp
+#    define longjmp		PerlProc_longjmp
+#    define signal		PerlProc_signal
+#    define getpid		PerlProc_getpid
+#    define gettimeofday	PerlProc_gettimeofday
+#    define htonl		PerlSock_htonl
+#    define htons		PerlSock_htons
+#    define ntohl		PerlSock_ntohl
+#    define ntohs		PerlSock_ntohs
+#    define accept		PerlSock_accept
+#    define bind		PerlSock_bind
+#    define connect		PerlSock_connect
+#    define endhostent		PerlSock_endhostent
+#    define endnetent		PerlSock_endnetent
+#    define endprotoent		PerlSock_endprotoent
+#    define endservent		PerlSock_endservent
+#    define gethostbyaddr	PerlSock_gethostbyaddr
+#    define gethostbyname	PerlSock_gethostbyname
+#    define gethostent		PerlSock_gethostent
+#    define gethostname		PerlSock_gethostname
+#    define getnetbyaddr	PerlSock_getnetbyaddr
+#    define getnetbyname	PerlSock_getnetbyname
+#    define getnetent		PerlSock_getnetent
+#    define getpeername		PerlSock_getpeername
+#    define getprotobyname	PerlSock_getprotobyname
+#    define getprotobynumber	PerlSock_getprotobynumber
+#    define getprotoent		PerlSock_getprotoent
+#    define getservbyname	PerlSock_getservbyname
+#    define getservbyport	PerlSock_getservbyport
+#    define getservent		PerlSock_getservent
+#    define getsockname		PerlSock_getsockname
+#    define getsockopt		PerlSock_getsockopt
+#    define inet_addr		PerlSock_inet_addr
+#    define inet_ntoa		PerlSock_inet_ntoa
+#    define listen		PerlSock_listen
+#    define recv		PerlSock_recv
+#    define recvfrom		PerlSock_recvfrom
+#    define select		PerlSock_select
+#    define send		PerlSock_send
+#    define sendto		PerlSock_sendto
+#    define sethostent		PerlSock_sethostent
+#    define setnetent		PerlSock_setnetent
+#    define setprotoent		PerlSock_setprotoent
+#    define setservent		PerlSock_setservent
+#    define setsockopt		PerlSock_setsockopt
+#    define shutdown		PerlSock_shutdown
+#    define socket		PerlSock_socket
+#    define socketpair		PerlSock_socketpair
+#	endif	/* NETWARE && USE_STDIO */
+
+#    undef fd_set
+#    undef FD_SET
+#    undef FD_CLR
+#    undef FD_ISSET
+#    undef FD_ZERO
+#    define fd_set		Perl_fd_set
+#    define FD_SET(n,p)		PERL_FD_SET(n,p)
+#    define FD_CLR(n,p)		PERL_FD_CLR(n,p)
+#    define FD_ISSET(n,p)	PERL_FD_ISSET(n,p)
+#    define FD_ZERO(p)		PERL_FD_ZERO(p)
+
+#  endif  /* NO_XSLOCKS */
+#endif  /* PERL_IMPLICIT_SYS && !PERL_CORE */
+
+#endif /* _INC_PERL_XSUB_H */		/* include guard */
+
+/*
+ * ex: set ts=8 sts=4 sw=4 et:
+ */
diff --git a/lib/5.24.1/x86_64-linux/CORE/av.h b/lib/5.24.1/x86_64-linux/CORE/av.h
new file mode 100644
index 00000000..d6d21378
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/av.h
@@ -0,0 +1,109 @@
+/*    av.h
+ *
+ *    Copyright (C) 1991, 1992, 1993, 1995, 1996, 1997, 1998, 1999, 2000,
+ *    2001, 2002, 2005, 2006, 2007, 2008, by Larry Wall and others
+ *
+ *    You may distribute under the terms of either the GNU General Public
+ *    License or the Artistic License, as specified in the README file.
+ *
+ */
+
+struct xpvav {
+    HV*		xmg_stash;	/* class package */
+    union _xmgu	xmg_u;
+    SSize_t	xav_fill;       /* Index of last element present */
+    SSize_t	xav_max;        /* max index for which array has space */
+    SV**	xav_alloc;	/* pointer to beginning of C array of SVs */
+};
+
+/* SV*	xav_arylen; */
+
+/* SVpav_REAL is set for all AVs whose xav_array contents are refcounted.
+ * Some things like "@_" and the scratchpad list do not set this, to
+ * indicate that they are cheating (for efficiency) by not refcounting
+ * the AV's contents.
+ * 
+ * SVpav_REIFY is only meaningful on such "fake" AVs (i.e. where SVpav_REAL
+ * is not set).  It indicates that the fake AV is capable of becoming
+ * real if the array needs to be modified in some way.  Functions that
+ * modify fake AVs check both flags to call av_reify() as appropriate.
+ *
+ * Note that the Perl stack has neither flag set. (Thus,
+ * items that go on the stack are never refcounted.)
+ *
+ * These internal details are subject to change any time.  AV
+ * manipulations external to perl should not care about any of this.
+ * GSAR 1999-09-10
+ */
+
+/*
+=head1 Handy Values
+
+=for apidoc AmU||Nullav
+Null AV pointer.
+
+(deprecated - use C<(AV *)NULL> instead)
+
+=head1 Array Manipulation Functions
+
+=for apidoc Am|int|AvFILL|AV* av
+Same as C<av_top_index()>.  Deprecated, use C<av_top_index()> instead.
+
+=for apidoc Am|int|av_tindex|AV* av
+Same as C<av_top_index()>.
+
+=cut
+*/
+
+#ifndef PERL_CORE
+#  define Nullav Null(AV*)
+#endif
+
+#define AvARRAY(av)	((av)->sv_u.svu_array)
+#define AvALLOC(av)	((XPVAV*)  SvANY(av))->xav_alloc
+#define AvMAX(av)	((XPVAV*)  SvANY(av))->xav_max
+#define AvFILLp(av)	((XPVAV*)  SvANY(av))->xav_fill
+#define AvARYLEN(av)	(*Perl_av_arylen_p(aTHX_ MUTABLE_AV(av)))
+
+#define AvREAL(av)	(SvFLAGS(av) & SVpav_REAL)
+#define AvREAL_on(av)	(SvFLAGS(av) |= SVpav_REAL)
+#define AvREAL_off(av)	(SvFLAGS(av) &= ~SVpav_REAL)
+#define AvREAL_only(av)	(AvREIFY_off(av), SvFLAGS(av) |= SVpav_REAL)
+#define AvREIFY(av)	(SvFLAGS(av) & SVpav_REIFY)
+#define AvREIFY_on(av)	(SvFLAGS(av) |= SVpav_REIFY)
+#define AvREIFY_off(av)	(SvFLAGS(av) &= ~SVpav_REIFY)
+#define AvREIFY_only(av)	(AvREAL_off(av), SvFLAGS(av) |= SVpav_REIFY)
+
+
+#define AvREALISH(av)	(SvFLAGS(av) & (SVpav_REAL|SVpav_REIFY))
+                                          
+#define AvFILL(av)	((SvRMAGICAL((const SV *) (av))) \
+			 ? mg_size(MUTABLE_SV(av)) : AvFILLp(av))
+#define av_tindex(av)   av_top_index(av)
+
+#if defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_REGEXEC_C) || defined(PERL_IN_UTF8_C)
+/* Note that it doesn't make sense to do this:
+ *      SvGETMAGIC(av); IV x = av_tindex_nomg(av);
+ * This name is controversial, and so is restricted by the #ifdef to the places
+ * it already occurs
+ */
+#   define av_tindex_nomg(av)  (__ASSERT_(SvTYPE(av) == SVt_PVAV) AvFILLp(av))
+#endif
+
+#define NEGATIVE_INDICES_VAR "NEGATIVE_INDICES"
+
+/*
+=for apidoc newAV
+
+Creates a new AV.  The reference count is set to 1.
+
+Perl equivalent: C<my @array;>.
+
+=cut
+*/
+
+#define newAV()	MUTABLE_AV(newSV_type(SVt_PVAV))
+
+/*
+ * ex: set ts=8 sts=4 sw=4 et:
+ */
diff --git a/lib/5.24.1/x86_64-linux/CORE/bitcount.h b/lib/5.24.1/x86_64-linux/CORE/bitcount.h
new file mode 100644
index 00000000..9f2be615
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/bitcount.h
@@ -0,0 +1,18 @@
+{
+    0, 1, 1, 2, 1, 2, 2, 3, 1, 2, 2, 3, 2, 3, 3, 4, 
+    1, 2, 2, 3, 2, 3, 3, 4, 2, 3, 3, 4, 3, 4, 4, 5, 
+    1, 2, 2, 3, 2, 3, 3, 4, 2, 3, 3, 4, 3, 4, 4, 5, 
+    2, 3, 3, 4, 3, 4, 4, 5, 3, 4, 4, 5, 4, 5, 5, 6, 
+    1, 2, 2, 3, 2, 3, 3, 4, 2, 3, 3, 4, 3, 4, 4, 5, 
+    2, 3, 3, 4, 3, 4, 4, 5, 3, 4, 4, 5, 4, 5, 5, 6, 
+    2, 3, 3, 4, 3, 4, 4, 5, 3, 4, 4, 5, 4, 5, 5, 6, 
+    3, 4, 4, 5, 4, 5, 5, 6, 4, 5, 5, 6, 5, 6, 6, 7, 
+    1, 2, 2, 3, 2, 3, 3, 4, 2, 3, 3, 4, 3, 4, 4, 5, 
+    2, 3, 3, 4, 3, 4, 4, 5, 3, 4, 4, 5, 4, 5, 5, 6, 
+    2, 3, 3, 4, 3, 4, 4, 5, 3, 4, 4, 5, 4, 5, 5, 6, 
+    3, 4, 4, 5, 4, 5, 5, 6, 4, 5, 5, 6, 5, 6, 6, 7, 
+    2, 3, 3, 4, 3, 4, 4, 5, 3, 4, 4, 5, 4, 5, 5, 6, 
+    3, 4, 4, 5, 4, 5, 5, 6, 4, 5, 5, 6, 5, 6, 6, 7, 
+    3, 4, 4, 5, 4, 5, 5, 6, 4, 5, 5, 6, 5, 6, 6, 7, 
+    4, 5, 5, 6, 5, 6, 6, 7, 5, 6, 6, 7, 6, 7, 7, 8
+}
diff --git a/lib/5.24.1/x86_64-linux/CORE/charclass_invlists.h b/lib/5.24.1/x86_64-linux/CORE/charclass_invlists.h
new file mode 100644
index 00000000..6abd3254
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/charclass_invlists.h
@@ -0,0 +1,87894 @@
+/* -*- buffer-read-only: t -*-
+ * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+ * This file is built by regen/mk_invlists.pl from Unicode::UCD.
+ * Any changes made here will be lost!
+ */
+
+/* See the generating file for comments */
+
+
+#if defined(PERL_IN_REGCOMP_C)
+
+static const UV Latin1_invlist[] = {
+	2,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	0,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x100
+};
+
+static const UV AboveLatin1_invlist[] = {
+	2,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	1,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x100
+};
+
+#endif	/* defined(PERL_IN_REGCOMP_C) */
+
+#if 'A' == 65 /* ASCII/Latin1 */
+
+#if defined(PERL_IN_PERL_C)
+
+static const UV ASCII_invlist[] = { /* for ASCII/Latin1 */
+	2,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	0,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x80
+};
+
+static const UV Cased_invlist[] = { /* for ASCII/Latin1 */
+	263,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	1,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x41,
+	0x5B,
+	0x61,
+	0x7B,
+	0xAA,
+	0xAB,
+	0xB5,
+	0xB6,
+	0xBA,
+	0xBB,
+	0xC0,
+	0xD7,
+	0xD8,
+	0xF7,
+	0xF8,
+	0x1BB,
+	0x1BC,
+	0x1C0,
+	0x1C4,
+	0x294,
+	0x295,
+	0x2B9,
+	0x2C0,
+	0x2C2,
+	0x2E0,
+	0x2E5,
+	0x345,
+	0x346,
+	0x370,
+	0x374,
+	0x376,
+	0x378,
+	0x37A,
+	0x37E,
+	0x37F,
+	0x380,
+	0x386,
+	0x387,
+	0x388,
+	0x38B,
+	0x38C,
+	0x38D,
+	0x38E,
+	0x3A2,
+	0x3A3,
+	0x3F6,
+	0x3F7,
+	0x482,
+	0x48A,
+	0x530,
+	0x531,
+	0x557,
+	0x561,
+	0x588,
+	0x10A0,
+	0x10C6,
+	0x10C7,
+	0x10C8,
+	0x10CD,
+	0x10CE,
+	0x13A0,
+	0x13F6,
+	0x13F8,
+	0x13FE,
+	0x1D00,
+	0x1DC0,
+	0x1E00,
+	0x1F16,
+	0x1F18,
+	0x1F1E,
+	0x1F20,
+	0x1F46,
+	0x1F48,
+	0x1F4E,
+	0x1F50,
+	0x1F58,
+	0x1F59,
+	0x1F5A,
+	0x1F5B,
+	0x1F5C,
+	0x1F5D,
+	0x1F5E,
+	0x1F5F,
+	0x1F7E,
+	0x1F80,
+	0x1FB5,
+	0x1FB6,
+	0x1FBD,
+	0x1FBE,
+	0x1FBF,
+	0x1FC2,
+	0x1FC5,
+	0x1FC6,
+	0x1FCD,
+	0x1FD0,
+	0x1FD4,
+	0x1FD6,
+	0x1FDC,
+	0x1FE0,
+	0x1FED,
+	0x1FF2,
+	0x1FF5,
+	0x1FF6,
+	0x1FFD,
+	0x2071,
+	0x2072,
+	0x207F,
+	0x2080,
+	0x2090,
+	0x209D,
+	0x2102,
+	0x2103,
+	0x2107,
+	0x2108,
+	0x210A,
+	0x2114,
+	0x2115,
+	0x2116,
+	0x2119,
+	0x211E,
+	0x2124,
+	0x2125,
+	0x2126,
+	0x2127,
+	0x2128,
+	0x2129,
+	0x212A,
+	0x212E,
+	0x212F,
+	0x2135,
+	0x2139,
+	0x213A,
+	0x213C,
+	0x2140,
+	0x2145,
+	0x214A,
+	0x214E,
+	0x214F,
+	0x2160,
+	0x2180,
+	0x2183,
+	0x2185,
+	0x24B6,
+	0x24EA,
+	0x2C00,
+	0x2C2F,
+	0x2C30,
+	0x2C5F,
+	0x2C60,
+	0x2CE5,
+	0x2CEB,
+	0x2CEF,
+	0x2CF2,
+	0x2CF4,
+	0x2D00,
+	0x2D26,
+	0x2D27,
+	0x2D28,
+	0x2D2D,
+	0x2D2E,
+	0xA640,
+	0xA66E,
+	0xA680,
+	0xA69E,
+	0xA722,
+	0xA788,
+	0xA78B,
+	0xA78F,
+	0xA790,
+	0xA7AE,
+	0xA7B0,
+	0xA7B8,
+	0xA7F8,
+	0xA7FB,
+	0xAB30,
+	0xAB5B,
+	0xAB5C,
+	0xAB66,
+	0xAB70,
+	0xABC0,
+	0xFB00,
+	0xFB07,
+	0xFB13,
+	0xFB18,
+	0xFF21,
+	0xFF3B,
+	0xFF41,
+	0xFF5B,
+	0x10400,
+	0x10450,
+	0x10C80,
+	0x10CB3,
+	0x10CC0,
+	0x10CF3,
+	0x118A0,
+	0x118E0,
+	0x1D400,
+	0x1D455,
+	0x1D456,
+	0x1D49D,
+	0x1D49E,
+	0x1D4A0,
+	0x1D4A2,
+	0x1D4A3,
+	0x1D4A5,
+	0x1D4A7,
+	0x1D4A9,
+	0x1D4AD,
+	0x1D4AE,
+	0x1D4BA,
+	0x1D4BB,
+	0x1D4BC,
+	0x1D4BD,
+	0x1D4C4,
+	0x1D4C5,
+	0x1D506,
+	0x1D507,
+	0x1D50B,
+	0x1D50D,
+	0x1D515,
+	0x1D516,
+	0x1D51D,
+	0x1D51E,
+	0x1D53A,
+	0x1D53B,
+	0x1D53F,
+	0x1D540,
+	0x1D545,
+	0x1D546,
+	0x1D547,
+	0x1D54A,
+	0x1D551,
+	0x1D552,
+	0x1D6A6,
+	0x1D6A8,
+	0x1D6C1,
+	0x1D6C2,
+	0x1D6DB,
+	0x1D6DC,
+	0x1D6FB,
+	0x1D6FC,
+	0x1D715,
+	0x1D716,
+	0x1D735,
+	0x1D736,
+	0x1D74F,
+	0x1D750,
+	0x1D76F,
+	0x1D770,
+	0x1D789,
+	0x1D78A,
+	0x1D7A9,
+	0x1D7AA,
+	0x1D7C3,
+	0x1D7C4,
+	0x1D7CC,
+	0x1F130,
+	0x1F14A,
+	0x1F150,
+	0x1F16A,
+	0x1F170,
+	0x1F18A
+};
+
+#endif	/* defined(PERL_IN_PERL_C) */
+
+#if defined(PERL_IN_REGCOMP_C)
+
+static const UV NonL1_Perl_Non_Final_Folds_invlist[] = { /* for ASCII/Latin1 */
+	45,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	1,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x2BC,
+	0x2BD,
+	0x308,
+	0x309,
+	0x313,
+	0x314,
+	0x342,
+	0x343,
+	0x3AC,
+	0x3AD,
+	0x3AE,
+	0x3AF,
+	0x3B1,
+	0x3B2,
+	0x3B7,
+	0x3B8,
+	0x3B9,
+	0x3BA,
+	0x3C1,
+	0x3C2,
+	0x3C5,
+	0x3C6,
+	0x3C9,
+	0x3CA,
+	0x3CE,
+	0x3CF,
+	0x565,
+	0x566,
+	0x574,
+	0x575,
+	0x57E,
+	0x57F,
+	0x1F00,
+	0x1F08,
+	0x1F20,
+	0x1F28,
+	0x1F60,
+	0x1F68,
+	0x1F70,
+	0x1F71,
+	0x1F74,
+	0x1F75,
+	0x1F7C,
+	0x1F7D
+};
+
+static const UV _Perl_Any_Folds_invlist[] = { /* for ASCII/Latin1 */
+	247,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	1,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x41,
+	0x5B,
+	0x61,
+	0x7B,
+	0xB5,
+	0xB6,
+	0xC0,
+	0xD7,
+	0xD8,
+	0xF7,
+	0xF8,
+	0x131,
+	0x132,
+	0x138,
+	0x139,
+	0x18D,
+	0x18E,
+	0x19B,
+	0x19C,
+	0x1AA,
+	0x1AC,
+	0x1BA,
+	0x1BC,
+	0x1BE,
+	0x1BF,
+	0x1C0,
+	0x1C4,
+	0x221,
+	0x222,
+	0x234,
+	0x23A,
+	0x255,
+	0x256,
+	0x258,
+	0x259,
+	0x25A,
+	0x25B,
+	0x25D,
+	0x260,
+	0x262,
+	0x263,
+	0x264,
+	0x265,
+	0x267,
+	0x268,
+	0x26A,
+	0x26B,
+	0x26D,
+	0x26F,
+	0x270,
+	0x271,
+	0x273,
+	0x275,
+	0x276,
+	0x27D,
+	0x27E,
+	0x280,
+	0x281,
+	0x283,
+	0x284,
+	0x287,
+	0x28D,
+	0x292,
+	0x293,
+	0x29D,
+	0x29F,
+	0x2BC,
+	0x2BD,
+	0x2BE,
+	0x2BF,
+	0x300,
+	0x302,
+	0x307,
+	0x309,
+	0x30A,
+	0x30B,
+	0x30C,
+	0x30D,
+	0x313,
+	0x314,
+	0x331,
+	0x332,
+	0x342,
+	0x343,
+	0x345,
+	0x346,
+	0x370,
+	0x374,
+	0x376,
+	0x378,
+	0x37B,
+	0x37E,
+	0x37F,
+	0x380,
+	0x386,
+	0x387,
+	0x388,
+	0x38B,
+	0x38C,
+	0x38D,
+	0x38E,
+	0x3A2,
+	0x3A3,
+	0x3D2,
+	0x3D5,
+	0x3F6,
+	0x3F7,
+	0x3FC,
+	0x3FD,
+	0x482,
+	0x48A,
+	0x530,
+	0x531,
+	0x557,
+	0x561,
+	0x588,
+	0x10A0,
+	0x10C6,
+	0x10C7,
+	0x10C8,
+	0x10CD,
+	0x10CE,
+	0x13A0,
+	0x13F6,
+	0x13F8,
+	0x13FE,
+	0x1D79,
+	0x1D7A,
+	0x1D7D,
+	0x1D7E,
+	0x1E00,
+	0x1E9C,
+	0x1E9E,
+	0x1E9F,
+	0x1EA0,
+	0x1F16,
+	0x1F18,
+	0x1F1E,
+	0x1F20,
+	0x1F46,
+	0x1F48,
+	0x1F4E,
+	0x1F50,
+	0x1F58,
+	0x1F59,
+	0x1F5A,
+	0x1F5B,
+	0x1F5C,
+	0x1F5D,
+	0x1F5E,
+	0x1F5F,
+	0x1F7E,
+	0x1F80,
+	0x1FB5,
+	0x1FB6,
+	0x1FBD,
+	0x1FBE,
+	0x1FBF,
+	0x1FC2,
+	0x1FC5,
+	0x1FC6,
+	0x1FCD,
+	0x1FD0,
+	0x1FD4,
+	0x1FD6,
+	0x1FDC,
+	0x1FE0,
+	0x1FED,
+	0x1FF2,
+	0x1FF5,
+	0x1FF6,
+	0x1FFD,
+	0x2126,
+	0x2127,
+	0x212A,
+	0x212C,
+	0x2132,
+	0x2133,
+	0x214E,
+	0x214F,
+	0x2160,
+	0x2180,
+	0x2183,
+	0x2185,
+	0x24B6,
+	0x24EA,
+	0x2C00,
+	0x2C2F,
+	0x2C30,
+	0x2C5F,
+	0x2C60,
+	0x2C71,
+	0x2C72,
+	0x2C74,
+	0x2C75,
+	0x2C77,
+	0x2C7E,
+	0x2CE4,
+	0x2CEB,
+	0x2CEF,
+	0x2CF2,
+	0x2CF4,
+	0x2D00,
+	0x2D26,
+	0x2D27,
+	0x2D28,
+	0x2D2D,
+	0x2D2E,
+	0xA640,
+	0xA66E,
+	0xA680,
+	0xA69C,
+	0xA722,
+	0xA730,
+	0xA732,
+	0xA770,
+	0xA779,
+	0xA788,
+	0xA78B,
+	0xA78E,
+	0xA790,
+	0xA794,
+	0xA796,
+	0xA7AE,
+	0xA7B0,
+	0xA7B8,
+	0xAB53,
+	0xAB54,
+	0xAB70,
+	0xABC0,
+	0xFB00,
+	0xFB07,
+	0xFB13,
+	0xFB18,
+	0xFF21,
+	0xFF3B,
+	0xFF41,
+	0xFF5B,
+	0x10400,
+	0x10450,
+	0x10C80,
+	0x10CB3,
+	0x10CC0,
+	0x10CF3,
+	0x118A0,
+	0x118E0
+};
+
+static const UV _Perl_Folds_To_Multi_Char_invlist[] = { /* for ASCII/Latin1 */
+	59,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	1,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0xDF,
+	0xE0,
+	0x130,
+	0x131,
+	0x149,
+	0x14A,
+	0x1F0,
+	0x1F1,
+	0x390,
+	0x391,
+	0x3B0,
+	0x3B1,
+	0x587,
+	0x588,
+	0x1E96,
+	0x1E9B,
+	0x1E9E,
+	0x1E9F,
+	0x1F50,
+	0x1F51,
+	0x1F52,
+	0x1F53,
+	0x1F54,
+	0x1F55,
+	0x1F56,
+	0x1F57,
+	0x1F80,
+	0x1FB0,
+	0x1FB2,
+	0x1FB5,
+	0x1FB6,
+	0x1FB8,
+	0x1FBC,
+	0x1FBD,
+	0x1FC2,
+	0x1FC5,
+	0x1FC6,
+	0x1FC8,
+	0x1FCC,
+	0x1FCD,
+	0x1FD2,
+	0x1FD4,
+	0x1FD6,
+	0x1FD8,
+	0x1FE2,
+	0x1FE5,
+	0x1FE6,
+	0x1FE8,
+	0x1FF2,
+	0x1FF5,
+	0x1FF6,
+	0x1FF8,
+	0x1FFC,
+	0x1FFD,
+	0xFB00,
+	0xFB07,
+	0xFB13,
+	0xFB18
+};
+
+#endif	/* defined(PERL_IN_REGCOMP_C) */
+
+#if defined(PERL_IN_PERL_C)
+
+static const UV _Perl_GCB_invlist[] = { /* for ASCII/Latin1 */
+	1502,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	0,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0xA,
+	0xB,
+	0xD,
+	0xE,
+	0x20,
+	0x7F,
+	0xA0,
+	0xAD,
+	0xAE,
+	0x300,
+	0x370,
+	0x483,
+	0x48A,
+	0x591,
+	0x5BE,
+	0x5BF,
+	0x5C0,
+	0x5C1,
+	0x5C3,
+	0x5C4,
+	0x5C6,
+	0x5C7,
+	0x5C8,
+	0x600,
+	0x606,
+	0x610,
+	0x61B,
+	0x61C,
+	0x61D,
+	0x64B,
+	0x660,
+	0x670,
+	0x671,
+	0x6D6,
+	0x6DD,
+	0x6DE,
+	0x6DF,
+	0x6E5,
+	0x6E7,
+	0x6E9,
+	0x6EA,
+	0x6EE,
+	0x70F,
+	0x710,
+	0x711,
+	0x712,
+	0x730,
+	0x74B,
+	0x7A6,
+	0x7B1,
+	0x7EB,
+	0x7F4,
+	0x816,
+	0x81A,
+	0x81B,
+	0x824,
+	0x825,
+	0x828,
+	0x829,
+	0x82E,
+	0x859,
+	0x85C,
+	0x8E3,
+	0x903,
+	0x904,
+	0x93A,
+	0x93B,
+	0x93C,
+	0x93D,
+	0x93E,
+	0x941,
+	0x949,
+	0x94D,
+	0x94E,
+	0x950,
+	0x951,
+	0x958,
+	0x962,
+	0x964,
+	0x981,
+	0x982,
+	0x984,
+	0x9BC,
+	0x9BD,
+	0x9BE,
+	0x9BF,
+	0x9C1,
+	0x9C5,
+	0x9C7,
+	0x9C9,
+	0x9CB,
+	0x9CD,
+	0x9CE,
+	0x9D7,
+	0x9D8,
+	0x9E2,
+	0x9E4,
+	0xA01,
+	0xA03,
+	0xA04,
+	0xA3C,
+	0xA3D,
+	0xA3E,
+	0xA41,
+	0xA43,
+	0xA47,
+	0xA49,
+	0xA4B,
+	0xA4E,
+	0xA51,
+	0xA52,
+	0xA70,
+	0xA72,
+	0xA75,
+	0xA76,
+	0xA81,
+	0xA83,
+	0xA84,
+	0xABC,
+	0xABD,
+	0xABE,
+	0xAC1,
+	0xAC6,
+	0xAC7,
+	0xAC9,
+	0xACA,
+	0xACB,
+	0xACD,
+	0xACE,
+	0xAE2,
+	0xAE4,
+	0xB01,
+	0xB02,
+	0xB04,
+	0xB3C,
+	0xB3D,
+	0xB3E,
+	0xB40,
+	0xB41,
+	0xB45,
+	0xB47,
+	0xB49,
+	0xB4B,
+	0xB4D,
+	0xB4E,
+	0xB56,
+	0xB58,
+	0xB62,
+	0xB64,
+	0xB82,
+	0xB83,
+	0xBBE,
+	0xBBF,
+	0xBC0,
+	0xBC1,
+	0xBC3,
+	0xBC6,
+	0xBC9,
+	0xBCA,
+	0xBCD,
+	0xBCE,
+	0xBD7,
+	0xBD8,
+	0xC00,
+	0xC01,
+	0xC04,
+	0xC3E,
+	0xC41,
+	0xC45,
+	0xC46,
+	0xC49,
+	0xC4A,
+	0xC4E,
+	0xC55,
+	0xC57,
+	0xC62,
+	0xC64,
+	0xC81,
+	0xC82,
+	0xC84,
+	0xCBC,
+	0xCBD,
+	0xCBE,
+	0xCBF,
+	0xCC0,
+	0xCC2,
+	0xCC3,
+	0xCC5,
+	0xCC6,
+	0xCC7,
+	0xCC9,
+	0xCCA,
+	0xCCC,
+	0xCCE,
+	0xCD5,
+	0xCD7,
+	0xCE2,
+	0xCE4,
+	0xD01,
+	0xD02,
+	0xD04,
+	0xD3E,
+	0xD3F,
+	0xD41,
+	0xD45,
+	0xD46,
+	0xD49,
+	0xD4A,
+	0xD4D,
+	0xD4E,
+	0xD57,
+	0xD58,
+	0xD62,
+	0xD64,
+	0xD82,
+	0xD84,
+	0xDCA,
+	0xDCB,
+	0xDCF,
+	0xDD0,
+	0xDD2,
+	0xDD5,
+	0xDD6,
+	0xDD7,
+	0xDD8,
+	0xDDF,
+	0xDE0,
+	0xDF2,
+	0xDF4,
+	0xE31,
+	0xE32,
+	0xE33,
+	0xE34,
+	0xE3B,
+	0xE47,
+	0xE4F,
+	0xEB1,
+	0xEB2,
+	0xEB3,
+	0xEB4,
+	0xEBA,
+	0xEBB,
+	0xEBD,
+	0xEC8,
+	0xECE,
+	0xF18,
+	0xF1A,
+	0xF35,
+	0xF36,
+	0xF37,
+	0xF38,
+	0xF39,
+	0xF3A,
+	0xF3E,
+	0xF40,
+	0xF71,
+	0xF7F,
+	0xF80,
+	0xF85,
+	0xF86,
+	0xF88,
+	0xF8D,
+	0xF98,
+	0xF99,
+	0xFBD,
+	0xFC6,
+	0xFC7,
+	0x102D,
+	0x1031,
+	0x1032,
+	0x1038,
+	0x1039,
+	0x103B,
+	0x103D,
+	0x103F,
+	0x1056,
+	0x1058,
+	0x105A,
+	0x105E,
+	0x1061,
+	0x1071,
+	0x1075,
+	0x1082,
+	0x1083,
+	0x1084,
+	0x1085,
+	0x1087,
+	0x108D,
+	0x108E,
+	0x109D,
+	0x109E,
+	0x1100,
+	0x1160,
+	0x11A8,
+	0x1200,
+	0x135D,
+	0x1360,
+	0x1712,
+	0x1715,
+	0x1732,
+	0x1735,
+	0x1752,
+	0x1754,
+	0x1772,
+	0x1774,
+	0x17B4,
+	0x17B6,
+	0x17B7,
+	0x17BE,
+	0x17C6,
+	0x17C7,
+	0x17C9,
+	0x17D4,
+	0x17DD,
+	0x17DE,
+	0x180B,
+	0x180E,
+	0x180F,
+	0x18A9,
+	0x18AA,
+	0x1920,
+	0x1923,
+	0x1927,
+	0x1929,
+	0x192C,
+	0x1930,
+	0x1932,
+	0x1933,
+	0x1939,
+	0x193C,
+	0x1A17,
+	0x1A19,
+	0x1A1B,
+	0x1A1C,
+	0x1A55,
+	0x1A56,
+	0x1A57,
+	0x1A58,
+	0x1A5F,
+	0x1A60,
+	0x1A61,
+	0x1A62,
+	0x1A63,
+	0x1A65,
+	0x1A6D,
+	0x1A73,
+	0x1A7D,
+	0x1A7F,
+	0x1A80,
+	0x1AB0,
+	0x1ABF,
+	0x1B00,
+	0x1B04,
+	0x1B05,
+	0x1B34,
+	0x1B35,
+	0x1B36,
+	0x1B3B,
+	0x1B3C,
+	0x1B3D,
+	0x1B42,
+	0x1B43,
+	0x1B45,
+	0x1B6B,
+	0x1B74,
+	0x1B80,
+	0x1B82,
+	0x1B83,
+	0x1BA1,
+	0x1BA2,
+	0x1BA6,
+	0x1BA8,
+	0x1BAA,
+	0x1BAB,
+	0x1BAE,
+	0x1BE6,
+	0x1BE7,
+	0x1BE8,
+	0x1BEA,
+	0x1BED,
+	0x1BEE,
+	0x1BEF,
+	0x1BF2,
+	0x1BF4,
+	0x1C24,
+	0x1C2C,
+	0x1C34,
+	0x1C36,
+	0x1C38,
+	0x1CD0,
+	0x1CD3,
+	0x1CD4,
+	0x1CE1,
+	0x1CE2,
+	0x1CE9,
+	0x1CED,
+	0x1CEE,
+	0x1CF2,
+	0x1CF4,
+	0x1CF5,
+	0x1CF8,
+	0x1CFA,
+	0x1DC0,
+	0x1DF6,
+	0x1DFC,
+	0x1E00,
+	0x200B,
+	0x200C,
+	0x200E,
+	0x2010,
+	0x2028,
+	0x202F,
+	0x2060,
+	0x2070,
+	0x20D0,
+	0x20F1,
+	0x2CEF,
+	0x2CF2,
+	0x2D7F,
+	0x2D80,
+	0x2DE0,
+	0x2E00,
+	0x302A,
+	0x3030,
+	0x3099,
+	0x309B,
+	0xA66F,
+	0xA673,
+	0xA674,
+	0xA67E,
+	0xA69E,
+	0xA6A0,
+	0xA6F0,
+	0xA6F2,
+	0xA802,
+	0xA803,
+	0xA806,
+	0xA807,
+	0xA80B,
+	0xA80C,
+	0xA823,
+	0xA825,
+	0xA827,
+	0xA828,
+	0xA880,
+	0xA882,
+	0xA8B4,
+	0xA8C4,
+	0xA8C5,
+	0xA8E0,
+	0xA8F2,
+	0xA926,
+	0xA92E,
+	0xA947,
+	0xA952,
+	0xA954,
+	0xA960,
+	0xA97D,
+	0xA980,
+	0xA983,
+	0xA984,
+	0xA9B3,
+	0xA9B4,
+	0xA9B6,
+	0xA9BA,
+	0xA9BC,
+	0xA9BD,
+	0xA9C1,
+	0xA9E5,
+	0xA9E6,
+	0xAA29,
+	0xAA2F,
+	0xAA31,
+	0xAA33,
+	0xAA35,
+	0xAA37,
+	0xAA43,
+	0xAA44,
+	0xAA4C,
+	0xAA4D,
+	0xAA4E,
+	0xAA7C,
+	0xAA7D,
+	0xAAB0,
+	0xAAB1,
+	0xAAB2,
+	0xAAB5,
+	0xAAB7,
+	0xAAB9,
+	0xAABE,
+	0xAAC0,
+	0xAAC1,
+	0xAAC2,
+	0xAAEB,
+	0xAAEC,
+	0xAAEE,
+	0xAAF0,
+	0xAAF5,
+	0xAAF6,
+	0xAAF7,
+	0xABE3,
+	0xABE5,
+	0xABE6,
+	0xABE8,
+	0xABE9,
+	0xABEB,
+	0xABEC,
+	0xABED,
+	0xABEE,
+	0xAC00,
+	0xAC01,
+	0xAC1C,
+	0xAC1D,
+	0xAC38,
+	0xAC39,
+	0xAC54,
+	0xAC55,
+	0xAC70,
+	0xAC71,
+	0xAC8C,
+	0xAC8D,
+	0xACA8,
+	0xACA9,
+	0xACC4,
+	0xACC5,
+	0xACE0,
+	0xACE1,
+	0xACFC,
+	0xACFD,
+	0xAD18,
+	0xAD19,
+	0xAD34,
+	0xAD35,
+	0xAD50,
+	0xAD51,
+	0xAD6C,
+	0xAD6D,
+	0xAD88,
+	0xAD89,
+	0xADA4,
+	0xADA5,
+	0xADC0,
+	0xADC1,
+	0xADDC,
+	0xADDD,
+	0xADF8,
+	0xADF9,
+	0xAE14,
+	0xAE15,
+	0xAE30,
+	0xAE31,
+	0xAE4C,
+	0xAE4D,
+	0xAE68,
+	0xAE69,
+	0xAE84,
+	0xAE85,
+	0xAEA0,
+	0xAEA1,
+	0xAEBC,
+	0xAEBD,
+	0xAED8,
+	0xAED9,
+	0xAEF4,
+	0xAEF5,
+	0xAF10,
+	0xAF11,
+	0xAF2C,
+	0xAF2D,
+	0xAF48,
+	0xAF49,
+	0xAF64,
+	0xAF65,
+	0xAF80,
+	0xAF81,
+	0xAF9C,
+	0xAF9D,
+	0xAFB8,
+	0xAFB9,
+	0xAFD4,
+	0xAFD5,
+	0xAFF0,
+	0xAFF1,
+	0xB00C,
+	0xB00D,
+	0xB028,
+	0xB029,
+	0xB044,
+	0xB045,
+	0xB060,
+	0xB061,
+	0xB07C,
+	0xB07D,
+	0xB098,
+	0xB099,
+	0xB0B4,
+	0xB0B5,
+	0xB0D0,
+	0xB0D1,
+	0xB0EC,
+	0xB0ED,
+	0xB108,
+	0xB109,
+	0xB124,
+	0xB125,
+	0xB140,
+	0xB141,
+	0xB15C,
+	0xB15D,
+	0xB178,
+	0xB179,
+	0xB194,
+	0xB195,
+	0xB1B0,
+	0xB1B1,
+	0xB1CC,
+	0xB1CD,
+	0xB1E8,
+	0xB1E9,
+	0xB204,
+	0xB205,
+	0xB220,
+	0xB221,
+	0xB23C,
+	0xB23D,
+	0xB258,
+	0xB259,
+	0xB274,
+	0xB275,
+	0xB290,
+	0xB291,
+	0xB2AC,
+	0xB2AD,
+	0xB2C8,
+	0xB2C9,
+	0xB2E4,
+	0xB2E5,
+	0xB300,
+	0xB301,
+	0xB31C,
+	0xB31D,
+	0xB338,
+	0xB339,
+	0xB354,
+	0xB355,
+	0xB370,
+	0xB371,
+	0xB38C,
+	0xB38D,
+	0xB3A8,
+	0xB3A9,
+	0xB3C4,
+	0xB3C5,
+	0xB3E0,
+	0xB3E1,
+	0xB3FC,
+	0xB3FD,
+	0xB418,
+	0xB419,
+	0xB434,
+	0xB435,
+	0xB450,
+	0xB451,
+	0xB46C,
+	0xB46D,
+	0xB488,
+	0xB489,
+	0xB4A4,
+	0xB4A5,
+	0xB4C0,
+	0xB4C1,
+	0xB4DC,
+	0xB4DD,
+	0xB4F8,
+	0xB4F9,
+	0xB514,
+	0xB515,
+	0xB530,
+	0xB531,
+	0xB54C,
+	0xB54D,
+	0xB568,
+	0xB569,
+	0xB584,
+	0xB585,
+	0xB5A0,
+	0xB5A1,
+	0xB5BC,
+	0xB5BD,
+	0xB5D8,
+	0xB5D9,
+	0xB5F4,
+	0xB5F5,
+	0xB610,
+	0xB611,
+	0xB62C,
+	0xB62D,
+	0xB648,
+	0xB649,
+	0xB664,
+	0xB665,
+	0xB680,
+	0xB681,
+	0xB69C,
+	0xB69D,
+	0xB6B8,
+	0xB6B9,
+	0xB6D4,
+	0xB6D5,
+	0xB6F0,
+	0xB6F1,
+	0xB70C,
+	0xB70D,
+	0xB728,
+	0xB729,
+	0xB744,
+	0xB745,
+	0xB760,
+	0xB761,
+	0xB77C,
+	0xB77D,
+	0xB798,
+	0xB799,
+	0xB7B4,
+	0xB7B5,
+	0xB7D0,
+	0xB7D1,
+	0xB7EC,
+	0xB7ED,
+	0xB808,
+	0xB809,
+	0xB824,
+	0xB825,
+	0xB840,
+	0xB841,
+	0xB85C,
+	0xB85D,
+	0xB878,
+	0xB879,
+	0xB894,
+	0xB895,
+	0xB8B0,
+	0xB8B1,
+	0xB8CC,
+	0xB8CD,
+	0xB8E8,
+	0xB8E9,
+	0xB904,
+	0xB905,
+	0xB920,
+	0xB921,
+	0xB93C,
+	0xB93D,
+	0xB958,
+	0xB959,
+	0xB974,
+	0xB975,
+	0xB990,
+	0xB991,
+	0xB9AC,
+	0xB9AD,
+	0xB9C8,
+	0xB9C9,
+	0xB9E4,
+	0xB9E5,
+	0xBA00,
+	0xBA01,
+	0xBA1C,
+	0xBA1D,
+	0xBA38,
+	0xBA39,
+	0xBA54,
+	0xBA55,
+	0xBA70,
+	0xBA71,
+	0xBA8C,
+	0xBA8D,
+	0xBAA8,
+	0xBAA9,
+	0xBAC4,
+	0xBAC5,
+	0xBAE0,
+	0xBAE1,
+	0xBAFC,
+	0xBAFD,
+	0xBB18,
+	0xBB19,
+	0xBB34,
+	0xBB35,
+	0xBB50,
+	0xBB51,
+	0xBB6C,
+	0xBB6D,
+	0xBB88,
+	0xBB89,
+	0xBBA4,
+	0xBBA5,
+	0xBBC0,
+	0xBBC1,
+	0xBBDC,
+	0xBBDD,
+	0xBBF8,
+	0xBBF9,
+	0xBC14,
+	0xBC15,
+	0xBC30,
+	0xBC31,
+	0xBC4C,
+	0xBC4D,
+	0xBC68,
+	0xBC69,
+	0xBC84,
+	0xBC85,
+	0xBCA0,
+	0xBCA1,
+	0xBCBC,
+	0xBCBD,
+	0xBCD8,
+	0xBCD9,
+	0xBCF4,
+	0xBCF5,
+	0xBD10,
+	0xBD11,
+	0xBD2C,
+	0xBD2D,
+	0xBD48,
+	0xBD49,
+	0xBD64,
+	0xBD65,
+	0xBD80,
+	0xBD81,
+	0xBD9C,
+	0xBD9D,
+	0xBDB8,
+	0xBDB9,
+	0xBDD4,
+	0xBDD5,
+	0xBDF0,
+	0xBDF1,
+	0xBE0C,
+	0xBE0D,
+	0xBE28,
+	0xBE29,
+	0xBE44,
+	0xBE45,
+	0xBE60,
+	0xBE61,
+	0xBE7C,
+	0xBE7D,
+	0xBE98,
+	0xBE99,
+	0xBEB4,
+	0xBEB5,
+	0xBED0,
+	0xBED1,
+	0xBEEC,
+	0xBEED,
+	0xBF08,
+	0xBF09,
+	0xBF24,
+	0xBF25,
+	0xBF40,
+	0xBF41,
+	0xBF5C,
+	0xBF5D,
+	0xBF78,
+	0xBF79,
+	0xBF94,
+	0xBF95,
+	0xBFB0,
+	0xBFB1,
+	0xBFCC,
+	0xBFCD,
+	0xBFE8,
+	0xBFE9,
+	0xC004,
+	0xC005,
+	0xC020,
+	0xC021,
+	0xC03C,
+	0xC03D,
+	0xC058,
+	0xC059,
+	0xC074,
+	0xC075,
+	0xC090,
+	0xC091,
+	0xC0AC,
+	0xC0AD,
+	0xC0C8,
+	0xC0C9,
+	0xC0E4,
+	0xC0E5,
+	0xC100,
+	0xC101,
+	0xC11C,
+	0xC11D,
+	0xC138,
+	0xC139,
+	0xC154,
+	0xC155,
+	0xC170,
+	0xC171,
+	0xC18C,
+	0xC18D,
+	0xC1A8,
+	0xC1A9,
+	0xC1C4,
+	0xC1C5,
+	0xC1E0,
+	0xC1E1,
+	0xC1FC,
+	0xC1FD,
+	0xC218,
+	0xC219,
+	0xC234,
+	0xC235,
+	0xC250,
+	0xC251,
+	0xC26C,
+	0xC26D,
+	0xC288,
+	0xC289,
+	0xC2A4,
+	0xC2A5,
+	0xC2C0,
+	0xC2C1,
+	0xC2DC,
+	0xC2DD,
+	0xC2F8,
+	0xC2F9,
+	0xC314,
+	0xC315,
+	0xC330,
+	0xC331,
+	0xC34C,
+	0xC34D,
+	0xC368,
+	0xC369,
+	0xC384,
+	0xC385,
+	0xC3A0,
+	0xC3A1,
+	0xC3BC,
+	0xC3BD,
+	0xC3D8,
+	0xC3D9,
+	0xC3F4,
+	0xC3F5,
+	0xC410,
+	0xC411,
+	0xC42C,
+	0xC42D,
+	0xC448,
+	0xC449,
+	0xC464,
+	0xC465,
+	0xC480,
+	0xC481,
+	0xC49C,
+	0xC49D,
+	0xC4B8,
+	0xC4B9,
+	0xC4D4,
+	0xC4D5,
+	0xC4F0,
+	0xC4F1,
+	0xC50C,
+	0xC50D,
+	0xC528,
+	0xC529,
+	0xC544,
+	0xC545,
+	0xC560,
+	0xC561,
+	0xC57C,
+	0xC57D,
+	0xC598,
+	0xC599,
+	0xC5B4,
+	0xC5B5,
+	0xC5D0,
+	0xC5D1,
+	0xC5EC,
+	0xC5ED,
+	0xC608,
+	0xC609,
+	0xC624,
+	0xC625,
+	0xC640,
+	0xC641,
+	0xC65C,
+	0xC65D,
+	0xC678,
+	0xC679,
+	0xC694,
+	0xC695,
+	0xC6B0,
+	0xC6B1,
+	0xC6CC,
+	0xC6CD,
+	0xC6E8,
+	0xC6E9,
+	0xC704,
+	0xC705,
+	0xC720,
+	0xC721,
+	0xC73C,
+	0xC73D,
+	0xC758,
+	0xC759,
+	0xC774,
+	0xC775,
+	0xC790,
+	0xC791,
+	0xC7AC,
+	0xC7AD,
+	0xC7C8,
+	0xC7C9,
+	0xC7E4,
+	0xC7E5,
+	0xC800,
+	0xC801,
+	0xC81C,
+	0xC81D,
+	0xC838,
+	0xC839,
+	0xC854,
+	0xC855,
+	0xC870,
+	0xC871,
+	0xC88C,
+	0xC88D,
+	0xC8A8,
+	0xC8A9,
+	0xC8C4,
+	0xC8C5,
+	0xC8E0,
+	0xC8E1,
+	0xC8FC,
+	0xC8FD,
+	0xC918,
+	0xC919,
+	0xC934,
+	0xC935,
+	0xC950,
+	0xC951,
+	0xC96C,
+	0xC96D,
+	0xC988,
+	0xC989,
+	0xC9A4,
+	0xC9A5,
+	0xC9C0,
+	0xC9C1,
+	0xC9DC,
+	0xC9DD,
+	0xC9F8,
+	0xC9F9,
+	0xCA14,
+	0xCA15,
+	0xCA30,
+	0xCA31,
+	0xCA4C,
+	0xCA4D,
+	0xCA68,
+	0xCA69,
+	0xCA84,
+	0xCA85,
+	0xCAA0,
+	0xCAA1,
+	0xCABC,
+	0xCABD,
+	0xCAD8,
+	0xCAD9,
+	0xCAF4,
+	0xCAF5,
+	0xCB10,
+	0xCB11,
+	0xCB2C,
+	0xCB2D,
+	0xCB48,
+	0xCB49,
+	0xCB64,
+	0xCB65,
+	0xCB80,
+	0xCB81,
+	0xCB9C,
+	0xCB9D,
+	0xCBB8,
+	0xCBB9,
+	0xCBD4,
+	0xCBD5,
+	0xCBF0,
+	0xCBF1,
+	0xCC0C,
+	0xCC0D,
+	0xCC28,
+	0xCC29,
+	0xCC44,
+	0xCC45,
+	0xCC60,
+	0xCC61,
+	0xCC7C,
+	0xCC7D,
+	0xCC98,
+	0xCC99,
+	0xCCB4,
+	0xCCB5,
+	0xCCD0,
+	0xCCD1,
+	0xCCEC,
+	0xCCED,
+	0xCD08,
+	0xCD09,
+	0xCD24,
+	0xCD25,
+	0xCD40,
+	0xCD41,
+	0xCD5C,
+	0xCD5D,
+	0xCD78,
+	0xCD79,
+	0xCD94,
+	0xCD95,
+	0xCDB0,
+	0xCDB1,
+	0xCDCC,
+	0xCDCD,
+	0xCDE8,
+	0xCDE9,
+	0xCE04,
+	0xCE05,
+	0xCE20,
+	0xCE21,
+	0xCE3C,
+	0xCE3D,
+	0xCE58,
+	0xCE59,
+	0xCE74,
+	0xCE75,
+	0xCE90,
+	0xCE91,
+	0xCEAC,
+	0xCEAD,
+	0xCEC8,
+	0xCEC9,
+	0xCEE4,
+	0xCEE5,
+	0xCF00,
+	0xCF01,
+	0xCF1C,
+	0xCF1D,
+	0xCF38,
+	0xCF39,
+	0xCF54,
+	0xCF55,
+	0xCF70,
+	0xCF71,
+	0xCF8C,
+	0xCF8D,
+	0xCFA8,
+	0xCFA9,
+	0xCFC4,
+	0xCFC5,
+	0xCFE0,
+	0xCFE1,
+	0xCFFC,
+	0xCFFD,
+	0xD018,
+	0xD019,
+	0xD034,
+	0xD035,
+	0xD050,
+	0xD051,
+	0xD06C,
+	0xD06D,
+	0xD088,
+	0xD089,
+	0xD0A4,
+	0xD0A5,
+	0xD0C0,
+	0xD0C1,
+	0xD0DC,
+	0xD0DD,
+	0xD0F8,
+	0xD0F9,
+	0xD114,
+	0xD115,
+	0xD130,
+	0xD131,
+	0xD14C,
+	0xD14D,
+	0xD168,
+	0xD169,
+	0xD184,
+	0xD185,
+	0xD1A0,
+	0xD1A1,
+	0xD1BC,
+	0xD1BD,
+	0xD1D8,
+	0xD1D9,
+	0xD1F4,
+	0xD1F5,
+	0xD210,
+	0xD211,
+	0xD22C,
+	0xD22D,
+	0xD248,
+	0xD249,
+	0xD264,
+	0xD265,
+	0xD280,
+	0xD281,
+	0xD29C,
+	0xD29D,
+	0xD2B8,
+	0xD2B9,
+	0xD2D4,
+	0xD2D5,
+	0xD2F0,
+	0xD2F1,
+	0xD30C,
+	0xD30D,
+	0xD328,
+	0xD329,
+	0xD344,
+	0xD345,
+	0xD360,
+	0xD361,
+	0xD37C,
+	0xD37D,
+	0xD398,
+	0xD399,
+	0xD3B4,
+	0xD3B5,
+	0xD3D0,
+	0xD3D1,
+	0xD3EC,
+	0xD3ED,
+	0xD408,
+	0xD409,
+	0xD424,
+	0xD425,
+	0xD440,
+	0xD441,
+	0xD45C,
+	0xD45D,
+	0xD478,
+	0xD479,
+	0xD494,
+	0xD495,
+	0xD4B0,
+	0xD4B1,
+	0xD4CC,
+	0xD4CD,
+	0xD4E8,
+	0xD4E9,
+	0xD504,
+	0xD505,
+	0xD520,
+	0xD521,
+	0xD53C,
+	0xD53D,
+	0xD558,
+	0xD559,
+	0xD574,
+	0xD575,
+	0xD590,
+	0xD591,
+	0xD5AC,
+	0xD5AD,
+	0xD5C8,
+	0xD5C9,
+	0xD5E4,
+	0xD5E5,
+	0xD600,
+	0xD601,
+	0xD61C,
+	0xD61D,
+	0xD638,
+	0xD639,
+	0xD654,
+	0xD655,
+	0xD670,
+	0xD671,
+	0xD68C,
+	0xD68D,
+	0xD6A8,
+	0xD6A9,
+	0xD6C4,
+	0xD6C5,
+	0xD6E0,
+	0xD6E1,
+	0xD6FC,
+	0xD6FD,
+	0xD718,
+	0xD719,
+	0xD734,
+	0xD735,
+	0xD750,
+	0xD751,
+	0xD76C,
+	0xD76D,
+	0xD788,
+	0xD789,
+	0xD7A4,
+	0xD7B0,
+	0xD7C7,
+	0xD7CB,
+	0xD7FC,
+	0xD800,
+	0xE000,
+	0xFB1E,
+	0xFB1F,
+	0xFE00,
+	0xFE10,
+	0xFE20,
+	0xFE30,
+	0xFEFF,
+	0xFF00,
+	0xFF9E,
+	0xFFA0,
+	0xFFF0,
+	0xFFFC,
+	0x101FD,
+	0x101FE,
+	0x102E0,
+	0x102E1,
+	0x10376,
+	0x1037B,
+	0x10A01,
+	0x10A04,
+	0x10A05,
+	0x10A07,
+	0x10A0C,
+	0x10A10,
+	0x10A38,
+	0x10A3B,
+	0x10A3F,
+	0x10A40,
+	0x10AE5,
+	0x10AE7,
+	0x11000,
+	0x11001,
+	0x11002,
+	0x11003,
+	0x11038,
+	0x11047,
+	0x1107F,
+	0x11082,
+	0x11083,
+	0x110B0,
+	0x110B3,
+	0x110B7,
+	0x110B9,
+	0x110BB,
+	0x110BD,
+	0x110BE,
+	0x11100,
+	0x11103,
+	0x11127,
+	0x1112C,
+	0x1112D,
+	0x11135,
+	0x11173,
+	0x11174,
+	0x11180,
+	0x11182,
+	0x11183,
+	0x111B3,
+	0x111B6,
+	0x111BF,
+	0x111C1,
+	0x111CA,
+	0x111CD,
+	0x1122C,
+	0x1122F,
+	0x11232,
+	0x11234,
+	0x11235,
+	0x11236,
+	0x11238,
+	0x112DF,
+	0x112E0,
+	0x112E3,
+	0x112EB,
+	0x11300,
+	0x11302,
+	0x11304,
+	0x1133C,
+	0x1133D,
+	0x1133E,
+	0x1133F,
+	0x11340,
+	0x11341,
+	0x11345,
+	0x11347,
+	0x11349,
+	0x1134B,
+	0x1134E,
+	0x11357,
+	0x11358,
+	0x11362,
+	0x11364,
+	0x11366,
+	0x1136D,
+	0x11370,
+	0x11375,
+	0x114B0,
+	0x114B1,
+	0x114B3,
+	0x114B9,
+	0x114BA,
+	0x114BB,
+	0x114BD,
+	0x114BE,
+	0x114BF,
+	0x114C1,
+	0x114C2,
+	0x114C4,
+	0x115AF,
+	0x115B0,
+	0x115B2,
+	0x115B6,
+	0x115B8,
+	0x115BC,
+	0x115BE,
+	0x115BF,
+	0x115C1,
+	0x115DC,
+	0x115DE,
+	0x11630,
+	0x11633,
+	0x1163B,
+	0x1163D,
+	0x1163E,
+	0x1163F,
+	0x11641,
+	0x116AB,
+	0x116AC,
+	0x116AD,
+	0x116AE,
+	0x116B0,
+	0x116B6,
+	0x116B7,
+	0x116B8,
+	0x1171D,
+	0x11720,
+	0x11722,
+	0x11726,
+	0x11727,
+	0x1172C,
+	0x16AF0,
+	0x16AF5,
+	0x16B30,
+	0x16B37,
+	0x16F51,
+	0x16F7F,
+	0x16F8F,
+	0x16F93,
+	0x1BC9D,
+	0x1BC9F,
+	0x1BCA0,
+	0x1BCA4,
+	0x1D165,
+	0x1D166,
+	0x1D167,
+	0x1D16A,
+	0x1D16D,
+	0x1D16E,
+	0x1D173,
+	0x1D17B,
+	0x1D183,
+	0x1D185,
+	0x1D18C,
+	0x1D1AA,
+	0x1D1AE,
+	0x1D242,
+	0x1D245,
+	0x1DA00,
+	0x1DA37,
+	0x1DA3B,
+	0x1DA6D,
+	0x1DA75,
+	0x1DA76,
+	0x1DA84,
+	0x1DA85,
+	0x1DA9B,
+	0x1DAA0,
+	0x1DAA1,
+	0x1DAB0,
+	0x1E8D0,
+	0x1E8D7,
+	0x1F1E6,
+	0x1F200,
+	0xE0000,
+	0xE0100,
+	0xE01F0,
+	0xE1000
+};
+
+#endif	/* defined(PERL_IN_PERL_C) */
+
+#if defined(PERL_IN_REGEXEC_C)
+
+#define GCB_ENUM_COUNT 14
+
+typedef enum {
+	GCB_Other = 0,
+	GCB_CR = 1,
+	GCB_Control = 2,
+	GCB_Extend = 3,
+	GCB_L = 4,
+	GCB_LF = 5,
+	GCB_LV = 6,
+	GCB_LVT = 7,
+	GCB_Prepend = 8,
+	GCB_Regional_Indicator = 9,
+	GCB_SpacingMark = 10,
+	GCB_T = 11,
+	GCB_V = 12,
+	GCB_EDGE = 13
+} GCB_enum;
+
+static const GCB_enum _Perl_GCB_invmap[] = { /* for ASCII/Latin1 */
+	GCB_Control,
+	GCB_LF,
+	GCB_Control,
+	GCB_CR,
+	GCB_Control,
+	GCB_Other,
+	GCB_Control,
+	GCB_Other,
+	GCB_Control,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Control,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Control,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Control,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Control,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_L,
+	GCB_V,
+	GCB_T,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Control,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Control,
+	GCB_Extend,
+	GCB_Control,
+	GCB_Other,
+	GCB_Control,
+	GCB_Other,
+	GCB_Control,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_L,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_Other,
+	GCB_V,
+	GCB_Other,
+	GCB_T,
+	GCB_Other,
+	GCB_Control,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Control,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Control,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Control,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Control,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Control,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Regional_Indicator,
+	GCB_Other,
+	GCB_Control,
+	GCB_Extend,
+	GCB_Control,
+	GCB_Other
+};
+
+#endif	/* defined(PERL_IN_REGEXEC_C) */
+
+#if defined(PERL_IN_UTF8_C)
+
+static const UV _Perl_IDCont_invlist[] = { /* for ASCII/Latin1 */
+	1317,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	1,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x30,
+	0x3A,
+	0x41,
+	0x5B,
+	0x5F,
+	0x60,
+	0x61,
+	0x7B,
+	0xAA,
+	0xAB,
+	0xB5,
+	0xB6,
+	0xBA,
+	0xBB,
+	0xC0,
+	0xD7,
+	0xD8,
+	0xF7,
+	0xF8,
+	0x2C2,
+	0x2C6,
+	0x2D2,
+	0x2E0,
+	0x2E5,
+	0x2EC,
+	0x2ED,
+	0x2EE,
+	0x2EF,
+	0x300,
+	0x375,
+	0x376,
+	0x378,
+	0x37B,
+	0x37E,
+	0x37F,
+	0x380,
+	0x386,
+	0x387,
+	0x388,
+	0x38B,
+	0x38C,
+	0x38D,
+	0x38E,
+	0x3A2,
+	0x3A3,
+	0x3F6,
+	0x3F7,
+	0x482,
+	0x483,
+	0x488,
+	0x48A,
+	0x530,
+	0x531,
+	0x557,
+	0x559,
+	0x55A,
+	0x561,
+	0x588,
+	0x591,
+	0x5BE,
+	0x5BF,
+	0x5C0,
+	0x5C1,
+	0x5C3,
+	0x5C4,
+	0x5C6,
+	0x5C7,
+	0x5C8,
+	0x5D0,
+	0x5EB,
+	0x5F0,
+	0x5F3,
+	0x610,
+	0x61B,
+	0x620,
+	0x66A,
+	0x66E,
+	0x6D4,
+	0x6D5,
+	0x6DD,
+	0x6DF,
+	0x6E9,
+	0x6EA,
+	0x6FD,
+	0x6FF,
+	0x700,
+	0x710,
+	0x74B,
+	0x74D,
+	0x7B2,
+	0x7C0,
+	0x7F6,
+	0x7FA,
+	0x7FB,
+	0x800,
+	0x82E,
+	0x840,
+	0x85C,
+	0x8A0,
+	0x8B5,
+	0x8E3,
+	0x964,
+	0x966,
+	0x970,
+	0x971,
+	0x984,
+	0x985,
+	0x98D,
+	0x98F,
+	0x991,
+	0x993,
+	0x9A9,
+	0x9AA,
+	0x9B1,
+	0x9B2,
+	0x9B3,
+	0x9B6,
+	0x9BA,
+	0x9BC,
+	0x9C5,
+	0x9C7,
+	0x9C9,
+	0x9CB,
+	0x9CF,
+	0x9D7,
+	0x9D8,
+	0x9DC,
+	0x9DE,
+	0x9DF,
+	0x9E4,
+	0x9E6,
+	0x9F2,
+	0xA01,
+	0xA04,
+	0xA05,
+	0xA0B,
+	0xA0F,
+	0xA11,
+	0xA13,
+	0xA29,
+	0xA2A,
+	0xA31,
+	0xA32,
+	0xA34,
+	0xA35,
+	0xA37,
+	0xA38,
+	0xA3A,
+	0xA3C,
+	0xA3D,
+	0xA3E,
+	0xA43,
+	0xA47,
+	0xA49,
+	0xA4B,
+	0xA4E,
+	0xA51,
+	0xA52,
+	0xA59,
+	0xA5D,
+	0xA5E,
+	0xA5F,
+	0xA66,
+	0xA76,
+	0xA81,
+	0xA84,
+	0xA85,
+	0xA8E,
+	0xA8F,
+	0xA92,
+	0xA93,
+	0xAA9,
+	0xAAA,
+	0xAB1,
+	0xAB2,
+	0xAB4,
+	0xAB5,
+	0xABA,
+	0xABC,
+	0xAC6,
+	0xAC7,
+	0xACA,
+	0xACB,
+	0xACE,
+	0xAD0,
+	0xAD1,
+	0xAE0,
+	0xAE4,
+	0xAE6,
+	0xAF0,
+	0xAF9,
+	0xAFA,
+	0xB01,
+	0xB04,
+	0xB05,
+	0xB0D,
+	0xB0F,
+	0xB11,
+	0xB13,
+	0xB29,
+	0xB2A,
+	0xB31,
+	0xB32,
+	0xB34,
+	0xB35,
+	0xB3A,
+	0xB3C,
+	0xB45,
+	0xB47,
+	0xB49,
+	0xB4B,
+	0xB4E,
+	0xB56,
+	0xB58,
+	0xB5C,
+	0xB5E,
+	0xB5F,
+	0xB64,
+	0xB66,
+	0xB70,
+	0xB71,
+	0xB72,
+	0xB82,
+	0xB84,
+	0xB85,
+	0xB8B,
+	0xB8E,
+	0xB91,
+	0xB92,
+	0xB96,
+	0xB99,
+	0xB9B,
+	0xB9C,
+	0xB9D,
+	0xB9E,
+	0xBA0,
+	0xBA3,
+	0xBA5,
+	0xBA8,
+	0xBAB,
+	0xBAE,
+	0xBBA,
+	0xBBE,
+	0xBC3,
+	0xBC6,
+	0xBC9,
+	0xBCA,
+	0xBCE,
+	0xBD0,
+	0xBD1,
+	0xBD7,
+	0xBD8,
+	0xBE6,
+	0xBF0,
+	0xC00,
+	0xC04,
+	0xC05,
+	0xC0D,
+	0xC0E,
+	0xC11,
+	0xC12,
+	0xC29,
+	0xC2A,
+	0xC3A,
+	0xC3D,
+	0xC45,
+	0xC46,
+	0xC49,
+	0xC4A,
+	0xC4E,
+	0xC55,
+	0xC57,
+	0xC58,
+	0xC5B,
+	0xC60,
+	0xC64,
+	0xC66,
+	0xC70,
+	0xC81,
+	0xC84,
+	0xC85,
+	0xC8D,
+	0xC8E,
+	0xC91,
+	0xC92,
+	0xCA9,
+	0xCAA,
+	0xCB4,
+	0xCB5,
+	0xCBA,
+	0xCBC,
+	0xCC5,
+	0xCC6,
+	0xCC9,
+	0xCCA,
+	0xCCE,
+	0xCD5,
+	0xCD7,
+	0xCDE,
+	0xCDF,
+	0xCE0,
+	0xCE4,
+	0xCE6,
+	0xCF0,
+	0xCF1,
+	0xCF3,
+	0xD01,
+	0xD04,
+	0xD05,
+	0xD0D,
+	0xD0E,
+	0xD11,
+	0xD12,
+	0xD3B,
+	0xD3D,
+	0xD45,
+	0xD46,
+	0xD49,
+	0xD4A,
+	0xD4F,
+	0xD57,
+	0xD58,
+	0xD5F,
+	0xD64,
+	0xD66,
+	0xD70,
+	0xD7A,
+	0xD80,
+	0xD82,
+	0xD84,
+	0xD85,
+	0xD97,
+	0xD9A,
+	0xDB2,
+	0xDB3,
+	0xDBC,
+	0xDBD,
+	0xDBE,
+	0xDC0,
+	0xDC7,
+	0xDCA,
+	0xDCB,
+	0xDCF,
+	0xDD5,
+	0xDD6,
+	0xDD7,
+	0xDD8,
+	0xDE0,
+	0xDE6,
+	0xDF0,
+	0xDF2,
+	0xDF4,
+	0xE01,
+	0xE3B,
+	0xE40,
+	0xE4F,
+	0xE50,
+	0xE5A,
+	0xE81,
+	0xE83,
+	0xE84,
+	0xE85,
+	0xE87,
+	0xE89,
+	0xE8A,
+	0xE8B,
+	0xE8D,
+	0xE8E,
+	0xE94,
+	0xE98,
+	0xE99,
+	0xEA0,
+	0xEA1,
+	0xEA4,
+	0xEA5,
+	0xEA6,
+	0xEA7,
+	0xEA8,
+	0xEAA,
+	0xEAC,
+	0xEAD,
+	0xEBA,
+	0xEBB,
+	0xEBE,
+	0xEC0,
+	0xEC5,
+	0xEC6,
+	0xEC7,
+	0xEC8,
+	0xECE,
+	0xED0,
+	0xEDA,
+	0xEDC,
+	0xEE0,
+	0xF00,
+	0xF01,
+	0xF18,
+	0xF1A,
+	0xF20,
+	0xF2A,
+	0xF35,
+	0xF36,
+	0xF37,
+	0xF38,
+	0xF39,
+	0xF3A,
+	0xF3E,
+	0xF48,
+	0xF49,
+	0xF6D,
+	0xF71,
+	0xF85,
+	0xF86,
+	0xF98,
+	0xF99,
+	0xFBD,
+	0xFC6,
+	0xFC7,
+	0x1000,
+	0x104A,
+	0x1050,
+	0x109E,
+	0x10A0,
+	0x10C6,
+	0x10C7,
+	0x10C8,
+	0x10CD,
+	0x10CE,
+	0x10D0,
+	0x10FB,
+	0x10FC,
+	0x1249,
+	0x124A,
+	0x124E,
+	0x1250,
+	0x1257,
+	0x1258,
+	0x1259,
+	0x125A,
+	0x125E,
+	0x1260,
+	0x1289,
+	0x128A,
+	0x128E,
+	0x1290,
+	0x12B1,
+	0x12B2,
+	0x12B6,
+	0x12B8,
+	0x12BF,
+	0x12C0,
+	0x12C1,
+	0x12C2,
+	0x12C6,
+	0x12C8,
+	0x12D7,
+	0x12D8,
+	0x1311,
+	0x1312,
+	0x1316,
+	0x1318,
+	0x135B,
+	0x135D,
+	0x1360,
+	0x1380,
+	0x1390,
+	0x13A0,
+	0x13F6,
+	0x13F8,
+	0x13FE,
+	0x1401,
+	0x166D,
+	0x166F,
+	0x1680,
+	0x1681,
+	0x169B,
+	0x16A0,
+	0x16EB,
+	0x16EE,
+	0x16F9,
+	0x1700,
+	0x170D,
+	0x170E,
+	0x1715,
+	0x1720,
+	0x1735,
+	0x1740,
+	0x1754,
+	0x1760,
+	0x176D,
+	0x176E,
+	0x1771,
+	0x1772,
+	0x1774,
+	0x1780,
+	0x17D4,
+	0x17D7,
+	0x17D8,
+	0x17DC,
+	0x17DE,
+	0x17E0,
+	0x17EA,
+	0x180B,
+	0x180E,
+	0x1810,
+	0x181A,
+	0x1820,
+	0x1878,
+	0x1880,
+	0x18AB,
+	0x18B0,
+	0x18F6,
+	0x1900,
+	0x191F,
+	0x1920,
+	0x192C,
+	0x1930,
+	0x193C,
+	0x1946,
+	0x196E,
+	0x1970,
+	0x1975,
+	0x1980,
+	0x19AC,
+	0x19B0,
+	0x19CA,
+	0x19D0,
+	0x19DA,
+	0x1A00,
+	0x1A1C,
+	0x1A20,
+	0x1A5F,
+	0x1A60,
+	0x1A7D,
+	0x1A7F,
+	0x1A8A,
+	0x1A90,
+	0x1A9A,
+	0x1AA7,
+	0x1AA8,
+	0x1AB0,
+	0x1ABE,
+	0x1B00,
+	0x1B4C,
+	0x1B50,
+	0x1B5A,
+	0x1B6B,
+	0x1B74,
+	0x1B80,
+	0x1BF4,
+	0x1C00,
+	0x1C38,
+	0x1C40,
+	0x1C4A,
+	0x1C4D,
+	0x1C7E,
+	0x1CD0,
+	0x1CD3,
+	0x1CD4,
+	0x1CF7,
+	0x1CF8,
+	0x1CFA,
+	0x1D00,
+	0x1DF6,
+	0x1DFC,
+	0x1F16,
+	0x1F18,
+	0x1F1E,
+	0x1F20,
+	0x1F46,
+	0x1F48,
+	0x1F4E,
+	0x1F50,
+	0x1F58,
+	0x1F59,
+	0x1F5A,
+	0x1F5B,
+	0x1F5C,
+	0x1F5D,
+	0x1F5E,
+	0x1F5F,
+	0x1F7E,
+	0x1F80,
+	0x1FB5,
+	0x1FB6,
+	0x1FBD,
+	0x1FBE,
+	0x1FBF,
+	0x1FC2,
+	0x1FC5,
+	0x1FC6,
+	0x1FCD,
+	0x1FD0,
+	0x1FD4,
+	0x1FD6,
+	0x1FDC,
+	0x1FE0,
+	0x1FED,
+	0x1FF2,
+	0x1FF5,
+	0x1FF6,
+	0x1FFD,
+	0x203F,
+	0x2041,
+	0x2054,
+	0x2055,
+	0x2071,
+	0x2072,
+	0x207F,
+	0x2080,
+	0x2090,
+	0x209D,
+	0x20D0,
+	0x20DD,
+	0x20E1,
+	0x20E2,
+	0x20E5,
+	0x20F1,
+	0x2102,
+	0x2103,
+	0x2107,
+	0x2108,
+	0x210A,
+	0x2114,
+	0x2115,
+	0x2116,
+	0x2119,
+	0x211E,
+	0x2124,
+	0x2125,
+	0x2126,
+	0x2127,
+	0x2128,
+	0x2129,
+	0x212A,
+	0x212E,
+	0x212F,
+	0x213A,
+	0x213C,
+	0x2140,
+	0x2145,
+	0x214A,
+	0x214E,
+	0x214F,
+	0x2160,
+	0x2189,
+	0x2C00,
+	0x2C2F,
+	0x2C30,
+	0x2C5F,
+	0x2C60,
+	0x2CE5,
+	0x2CEB,
+	0x2CF4,
+	0x2D00,
+	0x2D26,
+	0x2D27,
+	0x2D28,
+	0x2D2D,
+	0x2D2E,
+	0x2D30,
+	0x2D68,
+	0x2D6F,
+	0x2D70,
+	0x2D7F,
+	0x2D97,
+	0x2DA0,
+	0x2DA7,
+	0x2DA8,
+	0x2DAF,
+	0x2DB0,
+	0x2DB7,
+	0x2DB8,
+	0x2DBF,
+	0x2DC0,
+	0x2DC7,
+	0x2DC8,
+	0x2DCF,
+	0x2DD0,
+	0x2DD7,
+	0x2DD8,
+	0x2DDF,
+	0x2DE0,
+	0x2E00,
+	0x3005,
+	0x3008,
+	0x3021,
+	0x3030,
+	0x3031,
+	0x3036,
+	0x3038,
+	0x303D,
+	0x3041,
+	0x3097,
+	0x3099,
+	0x309B,
+	0x309D,
+	0x30A0,
+	0x30A1,
+	0x30FB,
+	0x30FC,
+	0x3100,
+	0x3105,
+	0x312E,
+	0x3131,
+	0x318F,
+	0x31A0,
+	0x31BB,
+	0x31F0,
+	0x3200,
+	0x3400,
+	0x4DB6,
+	0x4E00,
+	0x9FD6,
+	0xA000,
+	0xA48D,
+	0xA4D0,
+	0xA4FE,
+	0xA500,
+	0xA60D,
+	0xA610,
+	0xA62C,
+	0xA640,
+	0xA670,
+	0xA674,
+	0xA67E,
+	0xA67F,
+	0xA6F2,
+	0xA717,
+	0xA720,
+	0xA722,
+	0xA789,
+	0xA78B,
+	0xA7AE,
+	0xA7B0,
+	0xA7B8,
+	0xA7F7,
+	0xA828,
+	0xA840,
+	0xA874,
+	0xA880,
+	0xA8C5,
+	0xA8D0,
+	0xA8DA,
+	0xA8E0,
+	0xA8F8,
+	0xA8FB,
+	0xA8FC,
+	0xA8FD,
+	0xA8FE,
+	0xA900,
+	0xA92E,
+	0xA930,
+	0xA954,
+	0xA960,
+	0xA97D,
+	0xA980,
+	0xA9C1,
+	0xA9CF,
+	0xA9DA,
+	0xA9E0,
+	0xA9FF,
+	0xAA00,
+	0xAA37,
+	0xAA40,
+	0xAA4E,
+	0xAA50,
+	0xAA5A,
+	0xAA60,
+	0xAA77,
+	0xAA7A,
+	0xAAC3,
+	0xAADB,
+	0xAADE,
+	0xAAE0,
+	0xAAF0,
+	0xAAF2,
+	0xAAF7,
+	0xAB01,
+	0xAB07,
+	0xAB09,
+	0xAB0F,
+	0xAB11,
+	0xAB17,
+	0xAB20,
+	0xAB27,
+	0xAB28,
+	0xAB2F,
+	0xAB30,
+	0xAB5B,
+	0xAB5C,
+	0xAB66,
+	0xAB70,
+	0xABEB,
+	0xABEC,
+	0xABEE,
+	0xABF0,
+	0xABFA,
+	0xAC00,
+	0xD7A4,
+	0xD7B0,
+	0xD7C7,
+	0xD7CB,
+	0xD7FC,
+	0xF900,
+	0xFA6E,
+	0xFA70,
+	0xFADA,
+	0xFB00,
+	0xFB07,
+	0xFB13,
+	0xFB18,
+	0xFB1D,
+	0xFB29,
+	0xFB2A,
+	0xFB37,
+	0xFB38,
+	0xFB3D,
+	0xFB3E,
+	0xFB3F,
+	0xFB40,
+	0xFB42,
+	0xFB43,
+	0xFB45,
+	0xFB46,
+	0xFBB2,
+	0xFBD3,
+	0xFC5E,
+	0xFC64,
+	0xFD3E,
+	0xFD50,
+	0xFD90,
+	0xFD92,
+	0xFDC8,
+	0xFDF0,
+	0xFDFA,
+	0xFE00,
+	0xFE10,
+	0xFE20,
+	0xFE30,
+	0xFE33,
+	0xFE35,
+	0xFE4D,
+	0xFE50,
+	0xFE71,
+	0xFE72,
+	0xFE73,
+	0xFE74,
+	0xFE77,
+	0xFE78,
+	0xFE79,
+	0xFE7A,
+	0xFE7B,
+	0xFE7C,
+	0xFE7D,
+	0xFE7E,
+	0xFE7F,
+	0xFEFD,
+	0xFF10,
+	0xFF1A,
+	0xFF21,
+	0xFF3B,
+	0xFF3F,
+	0xFF40,
+	0xFF41,
+	0xFF5B,
+	0xFF66,
+	0xFFBF,
+	0xFFC2,
+	0xFFC8,
+	0xFFCA,
+	0xFFD0,
+	0xFFD2,
+	0xFFD8,
+	0xFFDA,
+	0xFFDD,
+	0x10000,
+	0x1000C,
+	0x1000D,
+	0x10027,
+	0x10028,
+	0x1003B,
+	0x1003C,
+	0x1003E,
+	0x1003F,
+	0x1004E,
+	0x10050,
+	0x1005E,
+	0x10080,
+	0x100FB,
+	0x10140,
+	0x10175,
+	0x101FD,
+	0x101FE,
+	0x10280,
+	0x1029D,
+	0x102A0,
+	0x102D1,
+	0x102E0,
+	0x102E1,
+	0x10300,
+	0x10320,
+	0x10330,
+	0x1034B,
+	0x10350,
+	0x1037B,
+	0x10380,
+	0x1039E,
+	0x103A0,
+	0x103C4,
+	0x103C8,
+	0x103D0,
+	0x103D1,
+	0x103D6,
+	0x10400,
+	0x1049E,
+	0x104A0,
+	0x104AA,
+	0x10500,
+	0x10528,
+	0x10530,
+	0x10564,
+	0x10600,
+	0x10737,
+	0x10740,
+	0x10756,
+	0x10760,
+	0x10768,
+	0x10800,
+	0x10806,
+	0x10808,
+	0x10809,
+	0x1080A,
+	0x10836,
+	0x10837,
+	0x10839,
+	0x1083C,
+	0x1083D,
+	0x1083F,
+	0x10856,
+	0x10860,
+	0x10877,
+	0x10880,
+	0x1089F,
+	0x108E0,
+	0x108F3,
+	0x108F4,
+	0x108F6,
+	0x10900,
+	0x10916,
+	0x10920,
+	0x1093A,
+	0x10980,
+	0x109B8,
+	0x109BE,
+	0x109C0,
+	0x10A00,
+	0x10A04,
+	0x10A05,
+	0x10A07,
+	0x10A0C,
+	0x10A14,
+	0x10A15,
+	0x10A18,
+	0x10A19,
+	0x10A34,
+	0x10A38,
+	0x10A3B,
+	0x10A3F,
+	0x10A40,
+	0x10A60,
+	0x10A7D,
+	0x10A80,
+	0x10A9D,
+	0x10AC0,
+	0x10AC8,
+	0x10AC9,
+	0x10AE7,
+	0x10B00,
+	0x10B36,
+	0x10B40,
+	0x10B56,
+	0x10B60,
+	0x10B73,
+	0x10B80,
+	0x10B92,
+	0x10C00,
+	0x10C49,
+	0x10C80,
+	0x10CB3,
+	0x10CC0,
+	0x10CF3,
+	0x11000,
+	0x11047,
+	0x11066,
+	0x11070,
+	0x1107F,
+	0x110BB,
+	0x110D0,
+	0x110E9,
+	0x110F0,
+	0x110FA,
+	0x11100,
+	0x11135,
+	0x11136,
+	0x11140,
+	0x11150,
+	0x11174,
+	0x11176,
+	0x11177,
+	0x11180,
+	0x111C5,
+	0x111CA,
+	0x111CD,
+	0x111D0,
+	0x111DB,
+	0x111DC,
+	0x111DD,
+	0x11200,
+	0x11212,
+	0x11213,
+	0x11238,
+	0x11280,
+	0x11287,
+	0x11288,
+	0x11289,
+	0x1128A,
+	0x1128E,
+	0x1128F,
+	0x1129E,
+	0x1129F,
+	0x112A9,
+	0x112B0,
+	0x112EB,
+	0x112F0,
+	0x112FA,
+	0x11300,
+	0x11304,
+	0x11305,
+	0x1130D,
+	0x1130F,
+	0x11311,
+	0x11313,
+	0x11329,
+	0x1132A,
+	0x11331,
+	0x11332,
+	0x11334,
+	0x11335,
+	0x1133A,
+	0x1133C,
+	0x11345,
+	0x11347,
+	0x11349,
+	0x1134B,
+	0x1134E,
+	0x11350,
+	0x11351,
+	0x11357,
+	0x11358,
+	0x1135D,
+	0x11364,
+	0x11366,
+	0x1136D,
+	0x11370,
+	0x11375,
+	0x11480,
+	0x114C6,
+	0x114C7,
+	0x114C8,
+	0x114D0,
+	0x114DA,
+	0x11580,
+	0x115B6,
+	0x115B8,
+	0x115C1,
+	0x115D8,
+	0x115DE,
+	0x11600,
+	0x11641,
+	0x11644,
+	0x11645,
+	0x11650,
+	0x1165A,
+	0x11680,
+	0x116B8,
+	0x116C0,
+	0x116CA,
+	0x11700,
+	0x1171A,
+	0x1171D,
+	0x1172C,
+	0x11730,
+	0x1173A,
+	0x118A0,
+	0x118EA,
+	0x118FF,
+	0x11900,
+	0x11AC0,
+	0x11AF9,
+	0x12000,
+	0x1239A,
+	0x12400,
+	0x1246F,
+	0x12480,
+	0x12544,
+	0x13000,
+	0x1342F,
+	0x14400,
+	0x14647,
+	0x16800,
+	0x16A39,
+	0x16A40,
+	0x16A5F,
+	0x16A60,
+	0x16A6A,
+	0x16AD0,
+	0x16AEE,
+	0x16AF0,
+	0x16AF5,
+	0x16B00,
+	0x16B37,
+	0x16B40,
+	0x16B44,
+	0x16B50,
+	0x16B5A,
+	0x16B63,
+	0x16B78,
+	0x16B7D,
+	0x16B90,
+	0x16F00,
+	0x16F45,
+	0x16F50,
+	0x16F7F,
+	0x16F8F,
+	0x16FA0,
+	0x1B000,
+	0x1B002,
+	0x1BC00,
+	0x1BC6B,
+	0x1BC70,
+	0x1BC7D,
+	0x1BC80,
+	0x1BC89,
+	0x1BC90,
+	0x1BC9A,
+	0x1BC9D,
+	0x1BC9F,
+	0x1D165,
+	0x1D16A,
+	0x1D16D,
+	0x1D173,
+	0x1D17B,
+	0x1D183,
+	0x1D185,
+	0x1D18C,
+	0x1D1AA,
+	0x1D1AE,
+	0x1D242,
+	0x1D245,
+	0x1D400,
+	0x1D455,
+	0x1D456,
+	0x1D49D,
+	0x1D49E,
+	0x1D4A0,
+	0x1D4A2,
+	0x1D4A3,
+	0x1D4A5,
+	0x1D4A7,
+	0x1D4A9,
+	0x1D4AD,
+	0x1D4AE,
+	0x1D4BA,
+	0x1D4BB,
+	0x1D4BC,
+	0x1D4BD,
+	0x1D4C4,
+	0x1D4C5,
+	0x1D506,
+	0x1D507,
+	0x1D50B,
+	0x1D50D,
+	0x1D515,
+	0x1D516,
+	0x1D51D,
+	0x1D51E,
+	0x1D53A,
+	0x1D53B,
+	0x1D53F,
+	0x1D540,
+	0x1D545,
+	0x1D546,
+	0x1D547,
+	0x1D54A,
+	0x1D551,
+	0x1D552,
+	0x1D6A6,
+	0x1D6A8,
+	0x1D6C1,
+	0x1D6C2,
+	0x1D6DB,
+	0x1D6DC,
+	0x1D6FB,
+	0x1D6FC,
+	0x1D715,
+	0x1D716,
+	0x1D735,
+	0x1D736,
+	0x1D74F,
+	0x1D750,
+	0x1D76F,
+	0x1D770,
+	0x1D789,
+	0x1D78A,
+	0x1D7A9,
+	0x1D7AA,
+	0x1D7C3,
+	0x1D7C4,
+	0x1D7CC,
+	0x1D7CE,
+	0x1D800,
+	0x1DA00,
+	0x1DA37,
+	0x1DA3B,
+	0x1DA6D,
+	0x1DA75,
+	0x1DA76,
+	0x1DA84,
+	0x1DA85,
+	0x1DA9B,
+	0x1DAA0,
+	0x1DAA1,
+	0x1DAB0,
+	0x1E800,
+	0x1E8C5,
+	0x1E8D0,
+	0x1E8D7,
+	0x1EE00,
+	0x1EE04,
+	0x1EE05,
+	0x1EE20,
+	0x1EE21,
+	0x1EE23,
+	0x1EE24,
+	0x1EE25,
+	0x1EE27,
+	0x1EE28,
+	0x1EE29,
+	0x1EE33,
+	0x1EE34,
+	0x1EE38,
+	0x1EE39,
+	0x1EE3A,
+	0x1EE3B,
+	0x1EE3C,
+	0x1EE42,
+	0x1EE43,
+	0x1EE47,
+	0x1EE48,
+	0x1EE49,
+	0x1EE4A,
+	0x1EE4B,
+	0x1EE4C,
+	0x1EE4D,
+	0x1EE50,
+	0x1EE51,
+	0x1EE53,
+	0x1EE54,
+	0x1EE55,
+	0x1EE57,
+	0x1EE58,
+	0x1EE59,
+	0x1EE5A,
+	0x1EE5B,
+	0x1EE5C,
+	0x1EE5D,
+	0x1EE5E,
+	0x1EE5F,
+	0x1EE60,
+	0x1EE61,
+	0x1EE63,
+	0x1EE64,
+	0x1EE65,
+	0x1EE67,
+	0x1EE6B,
+	0x1EE6C,
+	0x1EE73,
+	0x1EE74,
+	0x1EE78,
+	0x1EE79,
+	0x1EE7D,
+	0x1EE7E,
+	0x1EE7F,
+	0x1EE80,
+	0x1EE8A,
+	0x1EE8B,
+	0x1EE9C,
+	0x1EEA1,
+	0x1EEA4,
+	0x1EEA5,
+	0x1EEAA,
+	0x1EEAB,
+	0x1EEBC,
+	0x20000,
+	0x2A6D7,
+	0x2A700,
+	0x2B735,
+	0x2B740,
+	0x2B81E,
+	0x2B820,
+	0x2CEA2,
+	0x2F800,
+	0x2FA1E,
+	0xE0100,
+	0xE01F0
+};
+
+static const UV _Perl_IDStart_invlist[] = { /* for ASCII/Latin1 */
+	1129,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	1,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x41,
+	0x5B,
+	0x5F,
+	0x60,
+	0x61,
+	0x7B,
+	0xAA,
+	0xAB,
+	0xB5,
+	0xB6,
+	0xBA,
+	0xBB,
+	0xC0,
+	0xD7,
+	0xD8,
+	0xF7,
+	0xF8,
+	0x2C2,
+	0x2C6,
+	0x2D2,
+	0x2E0,
+	0x2E5,
+	0x2EC,
+	0x2ED,
+	0x2EE,
+	0x2EF,
+	0x370,
+	0x375,
+	0x376,
+	0x378,
+	0x37B,
+	0x37E,
+	0x37F,
+	0x380,
+	0x386,
+	0x387,
+	0x388,
+	0x38B,
+	0x38C,
+	0x38D,
+	0x38E,
+	0x3A2,
+	0x3A3,
+	0x3F6,
+	0x3F7,
+	0x482,
+	0x48A,
+	0x530,
+	0x531,
+	0x557,
+	0x559,
+	0x55A,
+	0x561,
+	0x588,
+	0x5D0,
+	0x5EB,
+	0x5F0,
+	0x5F3,
+	0x620,
+	0x64B,
+	0x66E,
+	0x670,
+	0x671,
+	0x6D4,
+	0x6D5,
+	0x6D6,
+	0x6E5,
+	0x6E7,
+	0x6EE,
+	0x6F0,
+	0x6FA,
+	0x6FD,
+	0x6FF,
+	0x700,
+	0x710,
+	0x711,
+	0x712,
+	0x730,
+	0x74D,
+	0x7A6,
+	0x7B1,
+	0x7B2,
+	0x7CA,
+	0x7EB,
+	0x7F4,
+	0x7F6,
+	0x7FA,
+	0x7FB,
+	0x800,
+	0x816,
+	0x81A,
+	0x81B,
+	0x824,
+	0x825,
+	0x828,
+	0x829,
+	0x840,
+	0x859,
+	0x8A0,
+	0x8B5,
+	0x904,
+	0x93A,
+	0x93D,
+	0x93E,
+	0x950,
+	0x951,
+	0x958,
+	0x962,
+	0x971,
+	0x981,
+	0x985,
+	0x98D,
+	0x98F,
+	0x991,
+	0x993,
+	0x9A9,
+	0x9AA,
+	0x9B1,
+	0x9B2,
+	0x9B3,
+	0x9B6,
+	0x9BA,
+	0x9BD,
+	0x9BE,
+	0x9CE,
+	0x9CF,
+	0x9DC,
+	0x9DE,
+	0x9DF,
+	0x9E2,
+	0x9F0,
+	0x9F2,
+	0xA05,
+	0xA0B,
+	0xA0F,
+	0xA11,
+	0xA13,
+	0xA29,
+	0xA2A,
+	0xA31,
+	0xA32,
+	0xA34,
+	0xA35,
+	0xA37,
+	0xA38,
+	0xA3A,
+	0xA59,
+	0xA5D,
+	0xA5E,
+	0xA5F,
+	0xA72,
+	0xA75,
+	0xA85,
+	0xA8E,
+	0xA8F,
+	0xA92,
+	0xA93,
+	0xAA9,
+	0xAAA,
+	0xAB1,
+	0xAB2,
+	0xAB4,
+	0xAB5,
+	0xABA,
+	0xABD,
+	0xABE,
+	0xAD0,
+	0xAD1,
+	0xAE0,
+	0xAE2,
+	0xAF9,
+	0xAFA,
+	0xB05,
+	0xB0D,
+	0xB0F,
+	0xB11,
+	0xB13,
+	0xB29,
+	0xB2A,
+	0xB31,
+	0xB32,
+	0xB34,
+	0xB35,
+	0xB3A,
+	0xB3D,
+	0xB3E,
+	0xB5C,
+	0xB5E,
+	0xB5F,
+	0xB62,
+	0xB71,
+	0xB72,
+	0xB83,
+	0xB84,
+	0xB85,
+	0xB8B,
+	0xB8E,
+	0xB91,
+	0xB92,
+	0xB96,
+	0xB99,
+	0xB9B,
+	0xB9C,
+	0xB9D,
+	0xB9E,
+	0xBA0,
+	0xBA3,
+	0xBA5,
+	0xBA8,
+	0xBAB,
+	0xBAE,
+	0xBBA,
+	0xBD0,
+	0xBD1,
+	0xC05,
+	0xC0D,
+	0xC0E,
+	0xC11,
+	0xC12,
+	0xC29,
+	0xC2A,
+	0xC3A,
+	0xC3D,
+	0xC3E,
+	0xC58,
+	0xC5B,
+	0xC60,
+	0xC62,
+	0xC85,
+	0xC8D,
+	0xC8E,
+	0xC91,
+	0xC92,
+	0xCA9,
+	0xCAA,
+	0xCB4,
+	0xCB5,
+	0xCBA,
+	0xCBD,
+	0xCBE,
+	0xCDE,
+	0xCDF,
+	0xCE0,
+	0xCE2,
+	0xCF1,
+	0xCF3,
+	0xD05,
+	0xD0D,
+	0xD0E,
+	0xD11,
+	0xD12,
+	0xD3B,
+	0xD3D,
+	0xD3E,
+	0xD4E,
+	0xD4F,
+	0xD5F,
+	0xD62,
+	0xD7A,
+	0xD80,
+	0xD85,
+	0xD97,
+	0xD9A,
+	0xDB2,
+	0xDB3,
+	0xDBC,
+	0xDBD,
+	0xDBE,
+	0xDC0,
+	0xDC7,
+	0xE01,
+	0xE31,
+	0xE32,
+	0xE33,
+	0xE40,
+	0xE47,
+	0xE81,
+	0xE83,
+	0xE84,
+	0xE85,
+	0xE87,
+	0xE89,
+	0xE8A,
+	0xE8B,
+	0xE8D,
+	0xE8E,
+	0xE94,
+	0xE98,
+	0xE99,
+	0xEA0,
+	0xEA1,
+	0xEA4,
+	0xEA5,
+	0xEA6,
+	0xEA7,
+	0xEA8,
+	0xEAA,
+	0xEAC,
+	0xEAD,
+	0xEB1,
+	0xEB2,
+	0xEB3,
+	0xEBD,
+	0xEBE,
+	0xEC0,
+	0xEC5,
+	0xEC6,
+	0xEC7,
+	0xEDC,
+	0xEE0,
+	0xF00,
+	0xF01,
+	0xF40,
+	0xF48,
+	0xF49,
+	0xF6D,
+	0xF88,
+	0xF8D,
+	0x1000,
+	0x102B,
+	0x103F,
+	0x1040,
+	0x1050,
+	0x1056,
+	0x105A,
+	0x105E,
+	0x1061,
+	0x1062,
+	0x1065,
+	0x1067,
+	0x106E,
+	0x1071,
+	0x1075,
+	0x1082,
+	0x108E,
+	0x108F,
+	0x10A0,
+	0x10C6,
+	0x10C7,
+	0x10C8,
+	0x10CD,
+	0x10CE,
+	0x10D0,
+	0x10FB,
+	0x10FC,
+	0x1249,
+	0x124A,
+	0x124E,
+	0x1250,
+	0x1257,
+	0x1258,
+	0x1259,
+	0x125A,
+	0x125E,
+	0x1260,
+	0x1289,
+	0x128A,
+	0x128E,
+	0x1290,
+	0x12B1,
+	0x12B2,
+	0x12B6,
+	0x12B8,
+	0x12BF,
+	0x12C0,
+	0x12C1,
+	0x12C2,
+	0x12C6,
+	0x12C8,
+	0x12D7,
+	0x12D8,
+	0x1311,
+	0x1312,
+	0x1316,
+	0x1318,
+	0x135B,
+	0x1380,
+	0x1390,
+	0x13A0,
+	0x13F6,
+	0x13F8,
+	0x13FE,
+	0x1401,
+	0x166D,
+	0x166F,
+	0x1680,
+	0x1681,
+	0x169B,
+	0x16A0,
+	0x16EB,
+	0x16EE,
+	0x16F9,
+	0x1700,
+	0x170D,
+	0x170E,
+	0x1712,
+	0x1720,
+	0x1732,
+	0x1740,
+	0x1752,
+	0x1760,
+	0x176D,
+	0x176E,
+	0x1771,
+	0x1780,
+	0x17B4,
+	0x17D7,
+	0x17D8,
+	0x17DC,
+	0x17DD,
+	0x1820,
+	0x1878,
+	0x1880,
+	0x18A9,
+	0x18AA,
+	0x18AB,
+	0x18B0,
+	0x18F6,
+	0x1900,
+	0x191F,
+	0x1950,
+	0x196E,
+	0x1970,
+	0x1975,
+	0x1980,
+	0x19AC,
+	0x19B0,
+	0x19CA,
+	0x1A00,
+	0x1A17,
+	0x1A20,
+	0x1A55,
+	0x1AA7,
+	0x1AA8,
+	0x1B05,
+	0x1B34,
+	0x1B45,
+	0x1B4C,
+	0x1B83,
+	0x1BA1,
+	0x1BAE,
+	0x1BB0,
+	0x1BBA,
+	0x1BE6,
+	0x1C00,
+	0x1C24,
+	0x1C4D,
+	0x1C50,
+	0x1C5A,
+	0x1C7E,
+	0x1CE9,
+	0x1CED,
+	0x1CEE,
+	0x1CF2,
+	0x1CF5,
+	0x1CF7,
+	0x1D00,
+	0x1DC0,
+	0x1E00,
+	0x1F16,
+	0x1F18,
+	0x1F1E,
+	0x1F20,
+	0x1F46,
+	0x1F48,
+	0x1F4E,
+	0x1F50,
+	0x1F58,
+	0x1F59,
+	0x1F5A,
+	0x1F5B,
+	0x1F5C,
+	0x1F5D,
+	0x1F5E,
+	0x1F5F,
+	0x1F7E,
+	0x1F80,
+	0x1FB5,
+	0x1FB6,
+	0x1FBD,
+	0x1FBE,
+	0x1FBF,
+	0x1FC2,
+	0x1FC5,
+	0x1FC6,
+	0x1FCD,
+	0x1FD0,
+	0x1FD4,
+	0x1FD6,
+	0x1FDC,
+	0x1FE0,
+	0x1FED,
+	0x1FF2,
+	0x1FF5,
+	0x1FF6,
+	0x1FFD,
+	0x2071,
+	0x2072,
+	0x207F,
+	0x2080,
+	0x2090,
+	0x209D,
+	0x2102,
+	0x2103,
+	0x2107,
+	0x2108,
+	0x210A,
+	0x2114,
+	0x2115,
+	0x2116,
+	0x2119,
+	0x211E,
+	0x2124,
+	0x2125,
+	0x2126,
+	0x2127,
+	0x2128,
+	0x2129,
+	0x212A,
+	0x212E,
+	0x212F,
+	0x213A,
+	0x213C,
+	0x2140,
+	0x2145,
+	0x214A,
+	0x214E,
+	0x214F,
+	0x2160,
+	0x2189,
+	0x2C00,
+	0x2C2F,
+	0x2C30,
+	0x2C5F,
+	0x2C60,
+	0x2CE5,
+	0x2CEB,
+	0x2CEF,
+	0x2CF2,
+	0x2CF4,
+	0x2D00,
+	0x2D26,
+	0x2D27,
+	0x2D28,
+	0x2D2D,
+	0x2D2E,
+	0x2D30,
+	0x2D68,
+	0x2D6F,
+	0x2D70,
+	0x2D80,
+	0x2D97,
+	0x2DA0,
+	0x2DA7,
+	0x2DA8,
+	0x2DAF,
+	0x2DB0,
+	0x2DB7,
+	0x2DB8,
+	0x2DBF,
+	0x2DC0,
+	0x2DC7,
+	0x2DC8,
+	0x2DCF,
+	0x2DD0,
+	0x2DD7,
+	0x2DD8,
+	0x2DDF,
+	0x3005,
+	0x3008,
+	0x3021,
+	0x302A,
+	0x3031,
+	0x3036,
+	0x3038,
+	0x303D,
+	0x3041,
+	0x3097,
+	0x309D,
+	0x30A0,
+	0x30A1,
+	0x30FB,
+	0x30FC,
+	0x3100,
+	0x3105,
+	0x312E,
+	0x3131,
+	0x318F,
+	0x31A0,
+	0x31BB,
+	0x31F0,
+	0x3200,
+	0x3400,
+	0x4DB6,
+	0x4E00,
+	0x9FD6,
+	0xA000,
+	0xA48D,
+	0xA4D0,
+	0xA4FE,
+	0xA500,
+	0xA60D,
+	0xA610,
+	0xA620,
+	0xA62A,
+	0xA62C,
+	0xA640,
+	0xA66F,
+	0xA67F,
+	0xA69E,
+	0xA6A0,
+	0xA6F0,
+	0xA717,
+	0xA720,
+	0xA722,
+	0xA789,
+	0xA78B,
+	0xA7AE,
+	0xA7B0,
+	0xA7B8,
+	0xA7F7,
+	0xA802,
+	0xA803,
+	0xA806,
+	0xA807,
+	0xA80B,
+	0xA80C,
+	0xA823,
+	0xA840,
+	0xA874,
+	0xA882,
+	0xA8B4,
+	0xA8F2,
+	0xA8F8,
+	0xA8FB,
+	0xA8FC,
+	0xA8FD,
+	0xA8FE,
+	0xA90A,
+	0xA926,
+	0xA930,
+	0xA947,
+	0xA960,
+	0xA97D,
+	0xA984,
+	0xA9B3,
+	0xA9CF,
+	0xA9D0,
+	0xA9E0,
+	0xA9E5,
+	0xA9E6,
+	0xA9F0,
+	0xA9FA,
+	0xA9FF,
+	0xAA00,
+	0xAA29,
+	0xAA40,
+	0xAA43,
+	0xAA44,
+	0xAA4C,
+	0xAA60,
+	0xAA77,
+	0xAA7A,
+	0xAA7B,
+	0xAA7E,
+	0xAAB0,
+	0xAAB1,
+	0xAAB2,
+	0xAAB5,
+	0xAAB7,
+	0xAAB9,
+	0xAABE,
+	0xAAC0,
+	0xAAC1,
+	0xAAC2,
+	0xAAC3,
+	0xAADB,
+	0xAADE,
+	0xAAE0,
+	0xAAEB,
+	0xAAF2,
+	0xAAF5,
+	0xAB01,
+	0xAB07,
+	0xAB09,
+	0xAB0F,
+	0xAB11,
+	0xAB17,
+	0xAB20,
+	0xAB27,
+	0xAB28,
+	0xAB2F,
+	0xAB30,
+	0xAB5B,
+	0xAB5C,
+	0xAB66,
+	0xAB70,
+	0xABE3,
+	0xAC00,
+	0xD7A4,
+	0xD7B0,
+	0xD7C7,
+	0xD7CB,
+	0xD7FC,
+	0xF900,
+	0xFA6E,
+	0xFA70,
+	0xFADA,
+	0xFB00,
+	0xFB07,
+	0xFB13,
+	0xFB18,
+	0xFB1D,
+	0xFB1E,
+	0xFB1F,
+	0xFB29,
+	0xFB2A,
+	0xFB37,
+	0xFB38,
+	0xFB3D,
+	0xFB3E,
+	0xFB3F,
+	0xFB40,
+	0xFB42,
+	0xFB43,
+	0xFB45,
+	0xFB46,
+	0xFBB2,
+	0xFBD3,
+	0xFC5E,
+	0xFC64,
+	0xFD3E,
+	0xFD50,
+	0xFD90,
+	0xFD92,
+	0xFDC8,
+	0xFDF0,
+	0xFDFA,
+	0xFE71,
+	0xFE72,
+	0xFE73,
+	0xFE74,
+	0xFE77,
+	0xFE78,
+	0xFE79,
+	0xFE7A,
+	0xFE7B,
+	0xFE7C,
+	0xFE7D,
+	0xFE7E,
+	0xFE7F,
+	0xFEFD,
+	0xFF21,
+	0xFF3B,
+	0xFF41,
+	0xFF5B,
+	0xFF66,
+	0xFF9E,
+	0xFFA0,
+	0xFFBF,
+	0xFFC2,
+	0xFFC8,
+	0xFFCA,
+	0xFFD0,
+	0xFFD2,
+	0xFFD8,
+	0xFFDA,
+	0xFFDD,
+	0x10000,
+	0x1000C,
+	0x1000D,
+	0x10027,
+	0x10028,
+	0x1003B,
+	0x1003C,
+	0x1003E,
+	0x1003F,
+	0x1004E,
+	0x10050,
+	0x1005E,
+	0x10080,
+	0x100FB,
+	0x10140,
+	0x10175,
+	0x10280,
+	0x1029D,
+	0x102A0,
+	0x102D1,
+	0x10300,
+	0x10320,
+	0x10330,
+	0x1034B,
+	0x10350,
+	0x10376,
+	0x10380,
+	0x1039E,
+	0x103A0,
+	0x103C4,
+	0x103C8,
+	0x103D0,
+	0x103D1,
+	0x103D6,
+	0x10400,
+	0x1049E,
+	0x10500,
+	0x10528,
+	0x10530,
+	0x10564,
+	0x10600,
+	0x10737,
+	0x10740,
+	0x10756,
+	0x10760,
+	0x10768,
+	0x10800,
+	0x10806,
+	0x10808,
+	0x10809,
+	0x1080A,
+	0x10836,
+	0x10837,
+	0x10839,
+	0x1083C,
+	0x1083D,
+	0x1083F,
+	0x10856,
+	0x10860,
+	0x10877,
+	0x10880,
+	0x1089F,
+	0x108E0,
+	0x108F3,
+	0x108F4,
+	0x108F6,
+	0x10900,
+	0x10916,
+	0x10920,
+	0x1093A,
+	0x10980,
+	0x109B8,
+	0x109BE,
+	0x109C0,
+	0x10A00,
+	0x10A01,
+	0x10A10,
+	0x10A14,
+	0x10A15,
+	0x10A18,
+	0x10A19,
+	0x10A34,
+	0x10A60,
+	0x10A7D,
+	0x10A80,
+	0x10A9D,
+	0x10AC0,
+	0x10AC8,
+	0x10AC9,
+	0x10AE5,
+	0x10B00,
+	0x10B36,
+	0x10B40,
+	0x10B56,
+	0x10B60,
+	0x10B73,
+	0x10B80,
+	0x10B92,
+	0x10C00,
+	0x10C49,
+	0x10C80,
+	0x10CB3,
+	0x10CC0,
+	0x10CF3,
+	0x11003,
+	0x11038,
+	0x11083,
+	0x110B0,
+	0x110D0,
+	0x110E9,
+	0x11103,
+	0x11127,
+	0x11150,
+	0x11173,
+	0x11176,
+	0x11177,
+	0x11183,
+	0x111B3,
+	0x111C1,
+	0x111C5,
+	0x111DA,
+	0x111DB,
+	0x111DC,
+	0x111DD,
+	0x11200,
+	0x11212,
+	0x11213,
+	0x1122C,
+	0x11280,
+	0x11287,
+	0x11288,
+	0x11289,
+	0x1128A,
+	0x1128E,
+	0x1128F,
+	0x1129E,
+	0x1129F,
+	0x112A9,
+	0x112B0,
+	0x112DF,
+	0x11305,
+	0x1130D,
+	0x1130F,
+	0x11311,
+	0x11313,
+	0x11329,
+	0x1132A,
+	0x11331,
+	0x11332,
+	0x11334,
+	0x11335,
+	0x1133A,
+	0x1133D,
+	0x1133E,
+	0x11350,
+	0x11351,
+	0x1135D,
+	0x11362,
+	0x11480,
+	0x114B0,
+	0x114C4,
+	0x114C6,
+	0x114C7,
+	0x114C8,
+	0x11580,
+	0x115AF,
+	0x115D8,
+	0x115DC,
+	0x11600,
+	0x11630,
+	0x11644,
+	0x11645,
+	0x11680,
+	0x116AB,
+	0x11700,
+	0x1171A,
+	0x118A0,
+	0x118E0,
+	0x118FF,
+	0x11900,
+	0x11AC0,
+	0x11AF9,
+	0x12000,
+	0x1239A,
+	0x12400,
+	0x1246F,
+	0x12480,
+	0x12544,
+	0x13000,
+	0x1342F,
+	0x14400,
+	0x14647,
+	0x16800,
+	0x16A39,
+	0x16A40,
+	0x16A5F,
+	0x16AD0,
+	0x16AEE,
+	0x16B00,
+	0x16B30,
+	0x16B40,
+	0x16B44,
+	0x16B63,
+	0x16B78,
+	0x16B7D,
+	0x16B90,
+	0x16F00,
+	0x16F45,
+	0x16F50,
+	0x16F51,
+	0x16F93,
+	0x16FA0,
+	0x1B000,
+	0x1B002,
+	0x1BC00,
+	0x1BC6B,
+	0x1BC70,
+	0x1BC7D,
+	0x1BC80,
+	0x1BC89,
+	0x1BC90,
+	0x1BC9A,
+	0x1D400,
+	0x1D455,
+	0x1D456,
+	0x1D49D,
+	0x1D49E,
+	0x1D4A0,
+	0x1D4A2,
+	0x1D4A3,
+	0x1D4A5,
+	0x1D4A7,
+	0x1D4A9,
+	0x1D4AD,
+	0x1D4AE,
+	0x1D4BA,
+	0x1D4BB,
+	0x1D4BC,
+	0x1D4BD,
+	0x1D4C4,
+	0x1D4C5,
+	0x1D506,
+	0x1D507,
+	0x1D50B,
+	0x1D50D,
+	0x1D515,
+	0x1D516,
+	0x1D51D,
+	0x1D51E,
+	0x1D53A,
+	0x1D53B,
+	0x1D53F,
+	0x1D540,
+	0x1D545,
+	0x1D546,
+	0x1D547,
+	0x1D54A,
+	0x1D551,
+	0x1D552,
+	0x1D6A6,
+	0x1D6A8,
+	0x1D6C1,
+	0x1D6C2,
+	0x1D6DB,
+	0x1D6DC,
+	0x1D6FB,
+	0x1D6FC,
+	0x1D715,
+	0x1D716,
+	0x1D735,
+	0x1D736,
+	0x1D74F,
+	0x1D750,
+	0x1D76F,
+	0x1D770,
+	0x1D789,
+	0x1D78A,
+	0x1D7A9,
+	0x1D7AA,
+	0x1D7C3,
+	0x1D7C4,
+	0x1D7CC,
+	0x1E800,
+	0x1E8C5,
+	0x1EE00,
+	0x1EE04,
+	0x1EE05,
+	0x1EE20,
+	0x1EE21,
+	0x1EE23,
+	0x1EE24,
+	0x1EE25,
+	0x1EE27,
+	0x1EE28,
+	0x1EE29,
+	0x1EE33,
+	0x1EE34,
+	0x1EE38,
+	0x1EE39,
+	0x1EE3A,
+	0x1EE3B,
+	0x1EE3C,
+	0x1EE42,
+	0x1EE43,
+	0x1EE47,
+	0x1EE48,
+	0x1EE49,
+	0x1EE4A,
+	0x1EE4B,
+	0x1EE4C,
+	0x1EE4D,
+	0x1EE50,
+	0x1EE51,
+	0x1EE53,
+	0x1EE54,
+	0x1EE55,
+	0x1EE57,
+	0x1EE58,
+	0x1EE59,
+	0x1EE5A,
+	0x1EE5B,
+	0x1EE5C,
+	0x1EE5D,
+	0x1EE5E,
+	0x1EE5F,
+	0x1EE60,
+	0x1EE61,
+	0x1EE63,
+	0x1EE64,
+	0x1EE65,
+	0x1EE67,
+	0x1EE6B,
+	0x1EE6C,
+	0x1EE73,
+	0x1EE74,
+	0x1EE78,
+	0x1EE79,
+	0x1EE7D,
+	0x1EE7E,
+	0x1EE7F,
+	0x1EE80,
+	0x1EE8A,
+	0x1EE8B,
+	0x1EE9C,
+	0x1EEA1,
+	0x1EEA4,
+	0x1EEA5,
+	0x1EEAA,
+	0x1EEAB,
+	0x1EEBC,
+	0x20000,
+	0x2A6D7,
+	0x2A700,
+	0x2B735,
+	0x2B740,
+	0x2B81E,
+	0x2B820,
+	0x2CEA2,
+	0x2F800,
+	0x2FA1E
+};
+
+#endif	/* defined(PERL_IN_UTF8_C) */
+
+#if defined(PERL_IN_PERL_C)
+
+static const UV _Perl_LB_invlist[] = { /* for ASCII/Latin1 */
+	2156,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	0,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x9,
+	0xA,
+	0xB,
+	0xD,
+	0xE,
+	0x20,
+	0x21,
+	0x22,
+	0x23,
+	0x24,
+	0x25,
+	0x26,
+	0x27,
+	0x28,
+	0x29,
+	0x2A,
+	0x2B,
+	0x2C,
+	0x2D,
+	0x2E,
+	0x2F,
+	0x30,
+	0x3A,
+	0x3C,
+	0x3F,
+	0x40,
+	0x5B,
+	0x5C,
+	0x5D,
+	0x5E,
+	0x7B,
+	0x7C,
+	0x7D,
+	0x7E,
+	0x7F,
+	0x85,
+	0x86,
+	0xA0,
+	0xA1,
+	0xA2,
+	0xA3,
+	0xA6,
+	0xAB,
+	0xAC,
+	0xAD,
+	0xAE,
+	0xB0,
+	0xB1,
+	0xB2,
+	0xB4,
+	0xB5,
+	0xBB,
+	0xBC,
+	0xBF,
+	0xC0,
+	0x2C8,
+	0x2C9,
+	0x2CC,
+	0x2CD,
+	0x2DF,
+	0x2E0,
+	0x300,
+	0x34F,
+	0x350,
+	0x35C,
+	0x363,
+	0x370,
+	0x37E,
+	0x37F,
+	0x483,
+	0x48A,
+	0x589,
+	0x58A,
+	0x58B,
+	0x58F,
+	0x590,
+	0x591,
+	0x5BE,
+	0x5BF,
+	0x5C0,
+	0x5C1,
+	0x5C3,
+	0x5C4,
+	0x5C6,
+	0x5C7,
+	0x5C8,
+	0x5D0,
+	0x5EB,
+	0x5F0,
+	0x5F3,
+	0x609,
+	0x60C,
+	0x60E,
+	0x610,
+	0x61B,
+	0x61C,
+	0x61D,
+	0x61E,
+	0x620,
+	0x64B,
+	0x660,
+	0x66A,
+	0x66B,
+	0x66D,
+	0x670,
+	0x671,
+	0x6D4,
+	0x6D5,
+	0x6D6,
+	0x6DD,
+	0x6DF,
+	0x6E5,
+	0x6E7,
+	0x6E9,
+	0x6EA,
+	0x6EE,
+	0x6F0,
+	0x6FA,
+	0x711,
+	0x712,
+	0x730,
+	0x74B,
+	0x7A6,
+	0x7B1,
+	0x7C0,
+	0x7CA,
+	0x7EB,
+	0x7F4,
+	0x7F8,
+	0x7F9,
+	0x7FA,
+	0x816,
+	0x81A,
+	0x81B,
+	0x824,
+	0x825,
+	0x828,
+	0x829,
+	0x82E,
+	0x859,
+	0x85C,
+	0x8E3,
+	0x904,
+	0x93A,
+	0x93D,
+	0x93E,
+	0x950,
+	0x951,
+	0x958,
+	0x962,
+	0x964,
+	0x966,
+	0x970,
+	0x981,
+	0x984,
+	0x9BC,
+	0x9BD,
+	0x9BE,
+	0x9C5,
+	0x9C7,
+	0x9C9,
+	0x9CB,
+	0x9CE,
+	0x9D7,
+	0x9D8,
+	0x9E2,
+	0x9E4,
+	0x9E6,
+	0x9F0,
+	0x9F2,
+	0x9F4,
+	0x9F9,
+	0x9FA,
+	0x9FB,
+	0x9FC,
+	0xA01,
+	0xA04,
+	0xA3C,
+	0xA3D,
+	0xA3E,
+	0xA43,
+	0xA47,
+	0xA49,
+	0xA4B,
+	0xA4E,
+	0xA51,
+	0xA52,
+	0xA66,
+	0xA70,
+	0xA72,
+	0xA75,
+	0xA76,
+	0xA81,
+	0xA84,
+	0xABC,
+	0xABD,
+	0xABE,
+	0xAC6,
+	0xAC7,
+	0xACA,
+	0xACB,
+	0xACE,
+	0xAE2,
+	0xAE4,
+	0xAE6,
+	0xAF0,
+	0xAF1,
+	0xAF2,
+	0xB01,
+	0xB04,
+	0xB3C,
+	0xB3D,
+	0xB3E,
+	0xB45,
+	0xB47,
+	0xB49,
+	0xB4B,
+	0xB4E,
+	0xB56,
+	0xB58,
+	0xB62,
+	0xB64,
+	0xB66,
+	0xB70,
+	0xB82,
+	0xB83,
+	0xBBE,
+	0xBC3,
+	0xBC6,
+	0xBC9,
+	0xBCA,
+	0xBCE,
+	0xBD7,
+	0xBD8,
+	0xBE6,
+	0xBF0,
+	0xBF9,
+	0xBFA,
+	0xC00,
+	0xC04,
+	0xC3E,
+	0xC45,
+	0xC46,
+	0xC49,
+	0xC4A,
+	0xC4E,
+	0xC55,
+	0xC57,
+	0xC62,
+	0xC64,
+	0xC66,
+	0xC70,
+	0xC81,
+	0xC84,
+	0xCBC,
+	0xCBD,
+	0xCBE,
+	0xCC5,
+	0xCC6,
+	0xCC9,
+	0xCCA,
+	0xCCE,
+	0xCD5,
+	0xCD7,
+	0xCE2,
+	0xCE4,
+	0xCE6,
+	0xCF0,
+	0xD01,
+	0xD04,
+	0xD3E,
+	0xD45,
+	0xD46,
+	0xD49,
+	0xD4A,
+	0xD4E,
+	0xD57,
+	0xD58,
+	0xD62,
+	0xD64,
+	0xD66,
+	0xD70,
+	0xD79,
+	0xD7A,
+	0xD82,
+	0xD84,
+	0xDCA,
+	0xDCB,
+	0xDCF,
+	0xDD5,
+	0xDD6,
+	0xDD7,
+	0xDD8,
+	0xDE0,
+	0xDE6,
+	0xDF0,
+	0xDF2,
+	0xDF4,
+	0xE31,
+	0xE32,
+	0xE34,
+	0xE3B,
+	0xE3F,
+	0xE40,
+	0xE47,
+	0xE4F,
+	0xE50,
+	0xE5A,
+	0xE5C,
+	0xEB1,
+	0xEB2,
+	0xEB4,
+	0xEBA,
+	0xEBB,
+	0xEBD,
+	0xEC8,
+	0xECE,
+	0xED0,
+	0xEDA,
+	0xF01,
+	0xF05,
+	0xF06,
+	0xF08,
+	0xF09,
+	0xF0B,
+	0xF0C,
+	0xF0D,
+	0xF12,
+	0xF13,
+	0xF14,
+	0xF15,
+	0xF18,
+	0xF1A,
+	0xF20,
+	0xF2A,
+	0xF34,
+	0xF35,
+	0xF36,
+	0xF37,
+	0xF38,
+	0xF39,
+	0xF3A,
+	0xF3B,
+	0xF3C,
+	0xF3D,
+	0xF3E,
+	0xF40,
+	0xF71,
+	0xF7F,
+	0xF80,
+	0xF85,
+	0xF86,
+	0xF88,
+	0xF8D,
+	0xF98,
+	0xF99,
+	0xFBD,
+	0xFBE,
+	0xFC0,
+	0xFC6,
+	0xFC7,
+	0xFD0,
+	0xFD2,
+	0xFD3,
+	0xFD4,
+	0xFD9,
+	0xFDB,
+	0x102B,
+	0x103F,
+	0x1040,
+	0x104A,
+	0x104C,
+	0x1056,
+	0x105A,
+	0x105E,
+	0x1061,
+	0x1062,
+	0x1065,
+	0x1067,
+	0x106E,
+	0x1071,
+	0x1075,
+	0x1082,
+	0x108E,
+	0x108F,
+	0x1090,
+	0x109A,
+	0x109E,
+	0x1100,
+	0x1160,
+	0x11A8,
+	0x1200,
+	0x135D,
+	0x1360,
+	0x1361,
+	0x1362,
+	0x1400,
+	0x1401,
+	0x1680,
+	0x1681,
+	0x169B,
+	0x169C,
+	0x169D,
+	0x16EB,
+	0x16EE,
+	0x1712,
+	0x1715,
+	0x1732,
+	0x1735,
+	0x1737,
+	0x1752,
+	0x1754,
+	0x1772,
+	0x1774,
+	0x17B4,
+	0x17D4,
+	0x17D6,
+	0x17D7,
+	0x17D8,
+	0x17D9,
+	0x17DA,
+	0x17DB,
+	0x17DC,
+	0x17DD,
+	0x17DE,
+	0x17E0,
+	0x17EA,
+	0x1802,
+	0x1804,
+	0x1806,
+	0x1807,
+	0x1808,
+	0x180A,
+	0x180B,
+	0x180E,
+	0x180F,
+	0x1810,
+	0x181A,
+	0x18A9,
+	0x18AA,
+	0x1920,
+	0x192C,
+	0x1930,
+	0x193C,
+	0x1944,
+	0x1946,
+	0x1950,
+	0x19D0,
+	0x19DA,
+	0x1A17,
+	0x1A1C,
+	0x1A55,
+	0x1A5F,
+	0x1A60,
+	0x1A7D,
+	0x1A7F,
+	0x1A80,
+	0x1A8A,
+	0x1A90,
+	0x1A9A,
+	0x1AB0,
+	0x1ABF,
+	0x1B00,
+	0x1B05,
+	0x1B34,
+	0x1B45,
+	0x1B50,
+	0x1B5A,
+	0x1B5C,
+	0x1B5D,
+	0x1B61,
+	0x1B6B,
+	0x1B74,
+	0x1B80,
+	0x1B83,
+	0x1BA1,
+	0x1BAE,
+	0x1BB0,
+	0x1BBA,
+	0x1BE6,
+	0x1BF4,
+	0x1C24,
+	0x1C38,
+	0x1C3B,
+	0x1C40,
+	0x1C4A,
+	0x1C50,
+	0x1C5A,
+	0x1C7E,
+	0x1C80,
+	0x1CD0,
+	0x1CD3,
+	0x1CD4,
+	0x1CE9,
+	0x1CED,
+	0x1CEE,
+	0x1CF2,
+	0x1CF5,
+	0x1CF8,
+	0x1CFA,
+	0x1DC0,
+	0x1DF6,
+	0x1DFC,
+	0x1E00,
+	0x1FFD,
+	0x1FFE,
+	0x2000,
+	0x2007,
+	0x2008,
+	0x200B,
+	0x200C,
+	0x2010,
+	0x2011,
+	0x2012,
+	0x2014,
+	0x2015,
+	0x2018,
+	0x201A,
+	0x201B,
+	0x201E,
+	0x201F,
+	0x2020,
+	0x2024,
+	0x2027,
+	0x2028,
+	0x202A,
+	0x202F,
+	0x2030,
+	0x2038,
+	0x2039,
+	0x203B,
+	0x203C,
+	0x203E,
+	0x2044,
+	0x2045,
+	0x2046,
+	0x2047,
+	0x204A,
+	0x2056,
+	0x2057,
+	0x2058,
+	0x205C,
+	0x205D,
+	0x2060,
+	0x2061,
+	0x2066,
+	0x2070,
+	0x207D,
+	0x207E,
+	0x207F,
+	0x208D,
+	0x208E,
+	0x208F,
+	0x20A0,
+	0x20A7,
+	0x20A8,
+	0x20B6,
+	0x20B7,
+	0x20BB,
+	0x20BC,
+	0x20BE,
+	0x20BF,
+	0x20D0,
+	0x20F1,
+	0x2103,
+	0x2104,
+	0x2109,
+	0x210A,
+	0x2116,
+	0x2117,
+	0x2212,
+	0x2214,
+	0x22EF,
+	0x22F0,
+	0x2308,
+	0x2309,
+	0x230A,
+	0x230B,
+	0x230C,
+	0x231A,
+	0x231C,
+	0x2329,
+	0x232A,
+	0x232B,
+	0x23F0,
+	0x23F4,
+	0x2600,
+	0x2604,
+	0x2614,
+	0x2616,
+	0x2618,
+	0x2619,
+	0x261A,
+	0x2620,
+	0x2639,
+	0x263C,
+	0x2668,
+	0x2669,
+	0x267F,
+	0x2680,
+	0x26BD,
+	0x26C9,
+	0x26CD,
+	0x26CE,
+	0x26CF,
+	0x26D2,
+	0x26D3,
+	0x26D5,
+	0x26D8,
+	0x26DA,
+	0x26DC,
+	0x26DD,
+	0x26DF,
+	0x26E2,
+	0x26EA,
+	0x26EB,
+	0x26F1,
+	0x26F6,
+	0x26F7,
+	0x26FB,
+	0x26FD,
+	0x2705,
+	0x2708,
+	0x270E,
+	0x275B,
+	0x2761,
+	0x2762,
+	0x2764,
+	0x2768,
+	0x2769,
+	0x276A,
+	0x276B,
+	0x276C,
+	0x276D,
+	0x276E,
+	0x276F,
+	0x2770,
+	0x2771,
+	0x2772,
+	0x2773,
+	0x2774,
+	0x2775,
+	0x2776,
+	0x27C5,
+	0x27C6,
+	0x27C7,
+	0x27E6,
+	0x27E7,
+	0x27E8,
+	0x27E9,
+	0x27EA,
+	0x27EB,
+	0x27EC,
+	0x27ED,
+	0x27EE,
+	0x27EF,
+	0x27F0,
+	0x2983,
+	0x2984,
+	0x2985,
+	0x2986,
+	0x2987,
+	0x2988,
+	0x2989,
+	0x298A,
+	0x298B,
+	0x298C,
+	0x298D,
+	0x298E,
+	0x298F,
+	0x2990,
+	0x2991,
+	0x2992,
+	0x2993,
+	0x2994,
+	0x2995,
+	0x2996,
+	0x2997,
+	0x2998,
+	0x2999,
+	0x29D8,
+	0x29D9,
+	0x29DA,
+	0x29DB,
+	0x29DC,
+	0x29FC,
+	0x29FD,
+	0x29FE,
+	0x2CEF,
+	0x2CF2,
+	0x2CF9,
+	0x2CFA,
+	0x2CFD,
+	0x2CFE,
+	0x2CFF,
+	0x2D00,
+	0x2D70,
+	0x2D71,
+	0x2D7F,
+	0x2D80,
+	0x2DE0,
+	0x2E00,
+	0x2E0E,
+	0x2E16,
+	0x2E17,
+	0x2E18,
+	0x2E19,
+	0x2E1A,
+	0x2E1C,
+	0x2E1E,
+	0x2E20,
+	0x2E22,
+	0x2E23,
+	0x2E24,
+	0x2E25,
+	0x2E26,
+	0x2E27,
+	0x2E28,
+	0x2E29,
+	0x2E2A,
+	0x2E2E,
+	0x2E2F,
+	0x2E30,
+	0x2E32,
+	0x2E33,
+	0x2E35,
+	0x2E3A,
+	0x2E3C,
+	0x2E3F,
+	0x2E40,
+	0x2E42,
+	0x2E43,
+	0x2E80,
+	0x2E9A,
+	0x2E9B,
+	0x2EF4,
+	0x2F00,
+	0x2FD6,
+	0x2FF0,
+	0x2FFC,
+	0x3000,
+	0x3001,
+	0x3003,
+	0x3005,
+	0x3006,
+	0x3008,
+	0x3009,
+	0x300A,
+	0x300B,
+	0x300C,
+	0x300D,
+	0x300E,
+	0x300F,
+	0x3010,
+	0x3011,
+	0x3012,
+	0x3014,
+	0x3015,
+	0x3016,
+	0x3017,
+	0x3018,
+	0x3019,
+	0x301A,
+	0x301B,
+	0x301C,
+	0x301D,
+	0x301E,
+	0x3020,
+	0x302A,
+	0x3030,
+	0x3035,
+	0x3036,
+	0x303B,
+	0x303D,
+	0x3040,
+	0x3041,
+	0x3042,
+	0x3043,
+	0x3044,
+	0x3045,
+	0x3046,
+	0x3047,
+	0x3048,
+	0x3049,
+	0x304A,
+	0x3063,
+	0x3064,
+	0x3083,
+	0x3084,
+	0x3085,
+	0x3086,
+	0x3087,
+	0x3088,
+	0x308E,
+	0x308F,
+	0x3095,
+	0x3097,
+	0x3099,
+	0x309B,
+	0x309F,
+	0x30A0,
+	0x30A2,
+	0x30A3,
+	0x30A4,
+	0x30A5,
+	0x30A6,
+	0x30A7,
+	0x30A8,
+	0x30A9,
+	0x30AA,
+	0x30C3,
+	0x30C4,
+	0x30E3,
+	0x30E4,
+	0x30E5,
+	0x30E6,
+	0x30E7,
+	0x30E8,
+	0x30EE,
+	0x30EF,
+	0x30F5,
+	0x30F7,
+	0x30FB,
+	0x30FF,
+	0x3100,
+	0x3105,
+	0x312E,
+	0x3131,
+	0x318F,
+	0x3190,
+	0x31BB,
+	0x31C0,
+	0x31E4,
+	0x31F0,
+	0x3200,
+	0x321F,
+	0x3220,
+	0x3248,
+	0x3250,
+	0x32FF,
+	0x3300,
+	0x4DC0,
+	0x4E00,
+	0xA015,
+	0xA016,
+	0xA48D,
+	0xA490,
+	0xA4C7,
+	0xA4FE,
+	0xA500,
+	0xA60D,
+	0xA60E,
+	0xA60F,
+	0xA610,
+	0xA620,
+	0xA62A,
+	0xA66F,
+	0xA673,
+	0xA674,
+	0xA67E,
+	0xA69E,
+	0xA6A0,
+	0xA6F0,
+	0xA6F2,
+	0xA6F3,
+	0xA6F8,
+	0xA802,
+	0xA803,
+	0xA806,
+	0xA807,
+	0xA80B,
+	0xA80C,
+	0xA823,
+	0xA828,
+	0xA838,
+	0xA839,
+	0xA874,
+	0xA876,
+	0xA878,
+	0xA880,
+	0xA882,
+	0xA8B4,
+	0xA8C5,
+	0xA8CE,
+	0xA8D0,
+	0xA8DA,
+	0xA8E0,
+	0xA8F2,
+	0xA8FC,
+	0xA8FD,
+	0xA900,
+	0xA90A,
+	0xA926,
+	0xA92E,
+	0xA930,
+	0xA947,
+	0xA954,
+	0xA960,
+	0xA97D,
+	0xA980,
+	0xA984,
+	0xA9B3,
+	0xA9C1,
+	0xA9C7,
+	0xA9CA,
+	0xA9D0,
+	0xA9DA,
+	0xA9E5,
+	0xA9E6,
+	0xA9F0,
+	0xA9FA,
+	0xAA29,
+	0xAA37,
+	0xAA43,
+	0xAA44,
+	0xAA4C,
+	0xAA4E,
+	0xAA50,
+	0xAA5A,
+	0xAA5D,
+	0xAA60,
+	0xAA7B,
+	0xAA7E,
+	0xAAB0,
+	0xAAB1,
+	0xAAB2,
+	0xAAB5,
+	0xAAB7,
+	0xAAB9,
+	0xAABE,
+	0xAAC0,
+	0xAAC1,
+	0xAAC2,
+	0xAAEB,
+	0xAAF0,
+	0xAAF2,
+	0xAAF5,
+	0xAAF7,
+	0xABE3,
+	0xABEB,
+	0xABEC,
+	0xABEE,
+	0xABF0,
+	0xABFA,
+	0xAC00,
+	0xAC01,
+	0xAC1C,
+	0xAC1D,
+	0xAC38,
+	0xAC39,
+	0xAC54,
+	0xAC55,
+	0xAC70,
+	0xAC71,
+	0xAC8C,
+	0xAC8D,
+	0xACA8,
+	0xACA9,
+	0xACC4,
+	0xACC5,
+	0xACE0,
+	0xACE1,
+	0xACFC,
+	0xACFD,
+	0xAD18,
+	0xAD19,
+	0xAD34,
+	0xAD35,
+	0xAD50,
+	0xAD51,
+	0xAD6C,
+	0xAD6D,
+	0xAD88,
+	0xAD89,
+	0xADA4,
+	0xADA5,
+	0xADC0,
+	0xADC1,
+	0xADDC,
+	0xADDD,
+	0xADF8,
+	0xADF9,
+	0xAE14,
+	0xAE15,
+	0xAE30,
+	0xAE31,
+	0xAE4C,
+	0xAE4D,
+	0xAE68,
+	0xAE69,
+	0xAE84,
+	0xAE85,
+	0xAEA0,
+	0xAEA1,
+	0xAEBC,
+	0xAEBD,
+	0xAED8,
+	0xAED9,
+	0xAEF4,
+	0xAEF5,
+	0xAF10,
+	0xAF11,
+	0xAF2C,
+	0xAF2D,
+	0xAF48,
+	0xAF49,
+	0xAF64,
+	0xAF65,
+	0xAF80,
+	0xAF81,
+	0xAF9C,
+	0xAF9D,
+	0xAFB8,
+	0xAFB9,
+	0xAFD4,
+	0xAFD5,
+	0xAFF0,
+	0xAFF1,
+	0xB00C,
+	0xB00D,
+	0xB028,
+	0xB029,
+	0xB044,
+	0xB045,
+	0xB060,
+	0xB061,
+	0xB07C,
+	0xB07D,
+	0xB098,
+	0xB099,
+	0xB0B4,
+	0xB0B5,
+	0xB0D0,
+	0xB0D1,
+	0xB0EC,
+	0xB0ED,
+	0xB108,
+	0xB109,
+	0xB124,
+	0xB125,
+	0xB140,
+	0xB141,
+	0xB15C,
+	0xB15D,
+	0xB178,
+	0xB179,
+	0xB194,
+	0xB195,
+	0xB1B0,
+	0xB1B1,
+	0xB1CC,
+	0xB1CD,
+	0xB1E8,
+	0xB1E9,
+	0xB204,
+	0xB205,
+	0xB220,
+	0xB221,
+	0xB23C,
+	0xB23D,
+	0xB258,
+	0xB259,
+	0xB274,
+	0xB275,
+	0xB290,
+	0xB291,
+	0xB2AC,
+	0xB2AD,
+	0xB2C8,
+	0xB2C9,
+	0xB2E4,
+	0xB2E5,
+	0xB300,
+	0xB301,
+	0xB31C,
+	0xB31D,
+	0xB338,
+	0xB339,
+	0xB354,
+	0xB355,
+	0xB370,
+	0xB371,
+	0xB38C,
+	0xB38D,
+	0xB3A8,
+	0xB3A9,
+	0xB3C4,
+	0xB3C5,
+	0xB3E0,
+	0xB3E1,
+	0xB3FC,
+	0xB3FD,
+	0xB418,
+	0xB419,
+	0xB434,
+	0xB435,
+	0xB450,
+	0xB451,
+	0xB46C,
+	0xB46D,
+	0xB488,
+	0xB489,
+	0xB4A4,
+	0xB4A5,
+	0xB4C0,
+	0xB4C1,
+	0xB4DC,
+	0xB4DD,
+	0xB4F8,
+	0xB4F9,
+	0xB514,
+	0xB515,
+	0xB530,
+	0xB531,
+	0xB54C,
+	0xB54D,
+	0xB568,
+	0xB569,
+	0xB584,
+	0xB585,
+	0xB5A0,
+	0xB5A1,
+	0xB5BC,
+	0xB5BD,
+	0xB5D8,
+	0xB5D9,
+	0xB5F4,
+	0xB5F5,
+	0xB610,
+	0xB611,
+	0xB62C,
+	0xB62D,
+	0xB648,
+	0xB649,
+	0xB664,
+	0xB665,
+	0xB680,
+	0xB681,
+	0xB69C,
+	0xB69D,
+	0xB6B8,
+	0xB6B9,
+	0xB6D4,
+	0xB6D5,
+	0xB6F0,
+	0xB6F1,
+	0xB70C,
+	0xB70D,
+	0xB728,
+	0xB729,
+	0xB744,
+	0xB745,
+	0xB760,
+	0xB761,
+	0xB77C,
+	0xB77D,
+	0xB798,
+	0xB799,
+	0xB7B4,
+	0xB7B5,
+	0xB7D0,
+	0xB7D1,
+	0xB7EC,
+	0xB7ED,
+	0xB808,
+	0xB809,
+	0xB824,
+	0xB825,
+	0xB840,
+	0xB841,
+	0xB85C,
+	0xB85D,
+	0xB878,
+	0xB879,
+	0xB894,
+	0xB895,
+	0xB8B0,
+	0xB8B1,
+	0xB8CC,
+	0xB8CD,
+	0xB8E8,
+	0xB8E9,
+	0xB904,
+	0xB905,
+	0xB920,
+	0xB921,
+	0xB93C,
+	0xB93D,
+	0xB958,
+	0xB959,
+	0xB974,
+	0xB975,
+	0xB990,
+	0xB991,
+	0xB9AC,
+	0xB9AD,
+	0xB9C8,
+	0xB9C9,
+	0xB9E4,
+	0xB9E5,
+	0xBA00,
+	0xBA01,
+	0xBA1C,
+	0xBA1D,
+	0xBA38,
+	0xBA39,
+	0xBA54,
+	0xBA55,
+	0xBA70,
+	0xBA71,
+	0xBA8C,
+	0xBA8D,
+	0xBAA8,
+	0xBAA9,
+	0xBAC4,
+	0xBAC5,
+	0xBAE0,
+	0xBAE1,
+	0xBAFC,
+	0xBAFD,
+	0xBB18,
+	0xBB19,
+	0xBB34,
+	0xBB35,
+	0xBB50,
+	0xBB51,
+	0xBB6C,
+	0xBB6D,
+	0xBB88,
+	0xBB89,
+	0xBBA4,
+	0xBBA5,
+	0xBBC0,
+	0xBBC1,
+	0xBBDC,
+	0xBBDD,
+	0xBBF8,
+	0xBBF9,
+	0xBC14,
+	0xBC15,
+	0xBC30,
+	0xBC31,
+	0xBC4C,
+	0xBC4D,
+	0xBC68,
+	0xBC69,
+	0xBC84,
+	0xBC85,
+	0xBCA0,
+	0xBCA1,
+	0xBCBC,
+	0xBCBD,
+	0xBCD8,
+	0xBCD9,
+	0xBCF4,
+	0xBCF5,
+	0xBD10,
+	0xBD11,
+	0xBD2C,
+	0xBD2D,
+	0xBD48,
+	0xBD49,
+	0xBD64,
+	0xBD65,
+	0xBD80,
+	0xBD81,
+	0xBD9C,
+	0xBD9D,
+	0xBDB8,
+	0xBDB9,
+	0xBDD4,
+	0xBDD5,
+	0xBDF0,
+	0xBDF1,
+	0xBE0C,
+	0xBE0D,
+	0xBE28,
+	0xBE29,
+	0xBE44,
+	0xBE45,
+	0xBE60,
+	0xBE61,
+	0xBE7C,
+	0xBE7D,
+	0xBE98,
+	0xBE99,
+	0xBEB4,
+	0xBEB5,
+	0xBED0,
+	0xBED1,
+	0xBEEC,
+	0xBEED,
+	0xBF08,
+	0xBF09,
+	0xBF24,
+	0xBF25,
+	0xBF40,
+	0xBF41,
+	0xBF5C,
+	0xBF5D,
+	0xBF78,
+	0xBF79,
+	0xBF94,
+	0xBF95,
+	0xBFB0,
+	0xBFB1,
+	0xBFCC,
+	0xBFCD,
+	0xBFE8,
+	0xBFE9,
+	0xC004,
+	0xC005,
+	0xC020,
+	0xC021,
+	0xC03C,
+	0xC03D,
+	0xC058,
+	0xC059,
+	0xC074,
+	0xC075,
+	0xC090,
+	0xC091,
+	0xC0AC,
+	0xC0AD,
+	0xC0C8,
+	0xC0C9,
+	0xC0E4,
+	0xC0E5,
+	0xC100,
+	0xC101,
+	0xC11C,
+	0xC11D,
+	0xC138,
+	0xC139,
+	0xC154,
+	0xC155,
+	0xC170,
+	0xC171,
+	0xC18C,
+	0xC18D,
+	0xC1A8,
+	0xC1A9,
+	0xC1C4,
+	0xC1C5,
+	0xC1E0,
+	0xC1E1,
+	0xC1FC,
+	0xC1FD,
+	0xC218,
+	0xC219,
+	0xC234,
+	0xC235,
+	0xC250,
+	0xC251,
+	0xC26C,
+	0xC26D,
+	0xC288,
+	0xC289,
+	0xC2A4,
+	0xC2A5,
+	0xC2C0,
+	0xC2C1,
+	0xC2DC,
+	0xC2DD,
+	0xC2F8,
+	0xC2F9,
+	0xC314,
+	0xC315,
+	0xC330,
+	0xC331,
+	0xC34C,
+	0xC34D,
+	0xC368,
+	0xC369,
+	0xC384,
+	0xC385,
+	0xC3A0,
+	0xC3A1,
+	0xC3BC,
+	0xC3BD,
+	0xC3D8,
+	0xC3D9,
+	0xC3F4,
+	0xC3F5,
+	0xC410,
+	0xC411,
+	0xC42C,
+	0xC42D,
+	0xC448,
+	0xC449,
+	0xC464,
+	0xC465,
+	0xC480,
+	0xC481,
+	0xC49C,
+	0xC49D,
+	0xC4B8,
+	0xC4B9,
+	0xC4D4,
+	0xC4D5,
+	0xC4F0,
+	0xC4F1,
+	0xC50C,
+	0xC50D,
+	0xC528,
+	0xC529,
+	0xC544,
+	0xC545,
+	0xC560,
+	0xC561,
+	0xC57C,
+	0xC57D,
+	0xC598,
+	0xC599,
+	0xC5B4,
+	0xC5B5,
+	0xC5D0,
+	0xC5D1,
+	0xC5EC,
+	0xC5ED,
+	0xC608,
+	0xC609,
+	0xC624,
+	0xC625,
+	0xC640,
+	0xC641,
+	0xC65C,
+	0xC65D,
+	0xC678,
+	0xC679,
+	0xC694,
+	0xC695,
+	0xC6B0,
+	0xC6B1,
+	0xC6CC,
+	0xC6CD,
+	0xC6E8,
+	0xC6E9,
+	0xC704,
+	0xC705,
+	0xC720,
+	0xC721,
+	0xC73C,
+	0xC73D,
+	0xC758,
+	0xC759,
+	0xC774,
+	0xC775,
+	0xC790,
+	0xC791,
+	0xC7AC,
+	0xC7AD,
+	0xC7C8,
+	0xC7C9,
+	0xC7E4,
+	0xC7E5,
+	0xC800,
+	0xC801,
+	0xC81C,
+	0xC81D,
+	0xC838,
+	0xC839,
+	0xC854,
+	0xC855,
+	0xC870,
+	0xC871,
+	0xC88C,
+	0xC88D,
+	0xC8A8,
+	0xC8A9,
+	0xC8C4,
+	0xC8C5,
+	0xC8E0,
+	0xC8E1,
+	0xC8FC,
+	0xC8FD,
+	0xC918,
+	0xC919,
+	0xC934,
+	0xC935,
+	0xC950,
+	0xC951,
+	0xC96C,
+	0xC96D,
+	0xC988,
+	0xC989,
+	0xC9A4,
+	0xC9A5,
+	0xC9C0,
+	0xC9C1,
+	0xC9DC,
+	0xC9DD,
+	0xC9F8,
+	0xC9F9,
+	0xCA14,
+	0xCA15,
+	0xCA30,
+	0xCA31,
+	0xCA4C,
+	0xCA4D,
+	0xCA68,
+	0xCA69,
+	0xCA84,
+	0xCA85,
+	0xCAA0,
+	0xCAA1,
+	0xCABC,
+	0xCABD,
+	0xCAD8,
+	0xCAD9,
+	0xCAF4,
+	0xCAF5,
+	0xCB10,
+	0xCB11,
+	0xCB2C,
+	0xCB2D,
+	0xCB48,
+	0xCB49,
+	0xCB64,
+	0xCB65,
+	0xCB80,
+	0xCB81,
+	0xCB9C,
+	0xCB9D,
+	0xCBB8,
+	0xCBB9,
+	0xCBD4,
+	0xCBD5,
+	0xCBF0,
+	0xCBF1,
+	0xCC0C,
+	0xCC0D,
+	0xCC28,
+	0xCC29,
+	0xCC44,
+	0xCC45,
+	0xCC60,
+	0xCC61,
+	0xCC7C,
+	0xCC7D,
+	0xCC98,
+	0xCC99,
+	0xCCB4,
+	0xCCB5,
+	0xCCD0,
+	0xCCD1,
+	0xCCEC,
+	0xCCED,
+	0xCD08,
+	0xCD09,
+	0xCD24,
+	0xCD25,
+	0xCD40,
+	0xCD41,
+	0xCD5C,
+	0xCD5D,
+	0xCD78,
+	0xCD79,
+	0xCD94,
+	0xCD95,
+	0xCDB0,
+	0xCDB1,
+	0xCDCC,
+	0xCDCD,
+	0xCDE8,
+	0xCDE9,
+	0xCE04,
+	0xCE05,
+	0xCE20,
+	0xCE21,
+	0xCE3C,
+	0xCE3D,
+	0xCE58,
+	0xCE59,
+	0xCE74,
+	0xCE75,
+	0xCE90,
+	0xCE91,
+	0xCEAC,
+	0xCEAD,
+	0xCEC8,
+	0xCEC9,
+	0xCEE4,
+	0xCEE5,
+	0xCF00,
+	0xCF01,
+	0xCF1C,
+	0xCF1D,
+	0xCF38,
+	0xCF39,
+	0xCF54,
+	0xCF55,
+	0xCF70,
+	0xCF71,
+	0xCF8C,
+	0xCF8D,
+	0xCFA8,
+	0xCFA9,
+	0xCFC4,
+	0xCFC5,
+	0xCFE0,
+	0xCFE1,
+	0xCFFC,
+	0xCFFD,
+	0xD018,
+	0xD019,
+	0xD034,
+	0xD035,
+	0xD050,
+	0xD051,
+	0xD06C,
+	0xD06D,
+	0xD088,
+	0xD089,
+	0xD0A4,
+	0xD0A5,
+	0xD0C0,
+	0xD0C1,
+	0xD0DC,
+	0xD0DD,
+	0xD0F8,
+	0xD0F9,
+	0xD114,
+	0xD115,
+	0xD130,
+	0xD131,
+	0xD14C,
+	0xD14D,
+	0xD168,
+	0xD169,
+	0xD184,
+	0xD185,
+	0xD1A0,
+	0xD1A1,
+	0xD1BC,
+	0xD1BD,
+	0xD1D8,
+	0xD1D9,
+	0xD1F4,
+	0xD1F5,
+	0xD210,
+	0xD211,
+	0xD22C,
+	0xD22D,
+	0xD248,
+	0xD249,
+	0xD264,
+	0xD265,
+	0xD280,
+	0xD281,
+	0xD29C,
+	0xD29D,
+	0xD2B8,
+	0xD2B9,
+	0xD2D4,
+	0xD2D5,
+	0xD2F0,
+	0xD2F1,
+	0xD30C,
+	0xD30D,
+	0xD328,
+	0xD329,
+	0xD344,
+	0xD345,
+	0xD360,
+	0xD361,
+	0xD37C,
+	0xD37D,
+	0xD398,
+	0xD399,
+	0xD3B4,
+	0xD3B5,
+	0xD3D0,
+	0xD3D1,
+	0xD3EC,
+	0xD3ED,
+	0xD408,
+	0xD409,
+	0xD424,
+	0xD425,
+	0xD440,
+	0xD441,
+	0xD45C,
+	0xD45D,
+	0xD478,
+	0xD479,
+	0xD494,
+	0xD495,
+	0xD4B0,
+	0xD4B1,
+	0xD4CC,
+	0xD4CD,
+	0xD4E8,
+	0xD4E9,
+	0xD504,
+	0xD505,
+	0xD520,
+	0xD521,
+	0xD53C,
+	0xD53D,
+	0xD558,
+	0xD559,
+	0xD574,
+	0xD575,
+	0xD590,
+	0xD591,
+	0xD5AC,
+	0xD5AD,
+	0xD5C8,
+	0xD5C9,
+	0xD5E4,
+	0xD5E5,
+	0xD600,
+	0xD601,
+	0xD61C,
+	0xD61D,
+	0xD638,
+	0xD639,
+	0xD654,
+	0xD655,
+	0xD670,
+	0xD671,
+	0xD68C,
+	0xD68D,
+	0xD6A8,
+	0xD6A9,
+	0xD6C4,
+	0xD6C5,
+	0xD6E0,
+	0xD6E1,
+	0xD6FC,
+	0xD6FD,
+	0xD718,
+	0xD719,
+	0xD734,
+	0xD735,
+	0xD750,
+	0xD751,
+	0xD76C,
+	0xD76D,
+	0xD788,
+	0xD789,
+	0xD7A4,
+	0xD7B0,
+	0xD7C7,
+	0xD7CB,
+	0xD7FC,
+	0xF900,
+	0xFB00,
+	0xFB1D,
+	0xFB1E,
+	0xFB1F,
+	0xFB29,
+	0xFB2A,
+	0xFB37,
+	0xFB38,
+	0xFB3D,
+	0xFB3E,
+	0xFB3F,
+	0xFB40,
+	0xFB42,
+	0xFB43,
+	0xFB45,
+	0xFB46,
+	0xFB50,
+	0xFD3E,
+	0xFD3F,
+	0xFD40,
+	0xFDFC,
+	0xFDFD,
+	0xFE00,
+	0xFE10,
+	0xFE11,
+	0xFE13,
+	0xFE15,
+	0xFE17,
+	0xFE18,
+	0xFE19,
+	0xFE1A,
+	0xFE20,
+	0xFE30,
+	0xFE35,
+	0xFE36,
+	0xFE37,
+	0xFE38,
+	0xFE39,
+	0xFE3A,
+	0xFE3B,
+	0xFE3C,
+	0xFE3D,
+	0xFE3E,
+	0xFE3F,
+	0xFE40,
+	0xFE41,
+	0xFE42,
+	0xFE43,
+	0xFE44,
+	0xFE45,
+	0xFE47,
+	0xFE48,
+	0xFE49,
+	0xFE50,
+	0xFE51,
+	0xFE52,
+	0xFE53,
+	0xFE54,
+	0xFE56,
+	0xFE58,
+	0xFE59,
+	0xFE5A,
+	0xFE5B,
+	0xFE5C,
+	0xFE5D,
+	0xFE5E,
+	0xFE5F,
+	0xFE67,
+	0xFE68,
+	0xFE69,
+	0xFE6A,
+	0xFE6B,
+	0xFE6C,
+	0xFEFF,
+	0xFF00,
+	0xFF01,
+	0xFF02,
+	0xFF04,
+	0xFF05,
+	0xFF06,
+	0xFF08,
+	0xFF09,
+	0xFF0A,
+	0xFF0C,
+	0xFF0D,
+	0xFF0E,
+	0xFF0F,
+	0xFF1A,
+	0xFF1C,
+	0xFF1F,
+	0xFF20,
+	0xFF3B,
+	0xFF3C,
+	0xFF3D,
+	0xFF3E,
+	0xFF5B,
+	0xFF5C,
+	0xFF5D,
+	0xFF5E,
+	0xFF5F,
+	0xFF60,
+	0xFF62,
+	0xFF63,
+	0xFF65,
+	0xFF66,
+	0xFF67,
+	0xFF71,
+	0xFF9E,
+	0xFFA0,
+	0xFFE0,
+	0xFFE1,
+	0xFFE2,
+	0xFFE5,
+	0xFFE7,
+	0xFFF9,
+	0xFFFC,
+	0xFFFD,
+	0x10100,
+	0x10103,
+	0x101FD,
+	0x101FE,
+	0x102E0,
+	0x102E1,
+	0x10376,
+	0x1037B,
+	0x1039F,
+	0x103A0,
+	0x103D0,
+	0x103D1,
+	0x104A0,
+	0x104AA,
+	0x10857,
+	0x10858,
+	0x1091F,
+	0x10920,
+	0x10A01,
+	0x10A04,
+	0x10A05,
+	0x10A07,
+	0x10A0C,
+	0x10A10,
+	0x10A38,
+	0x10A3B,
+	0x10A3F,
+	0x10A40,
+	0x10A50,
+	0x10A58,
+	0x10AE5,
+	0x10AE7,
+	0x10AF0,
+	0x10AF6,
+	0x10AF7,
+	0x10B39,
+	0x10B40,
+	0x11000,
+	0x11003,
+	0x11038,
+	0x11047,
+	0x11049,
+	0x11066,
+	0x11070,
+	0x1107F,
+	0x11083,
+	0x110B0,
+	0x110BB,
+	0x110BE,
+	0x110C2,
+	0x110F0,
+	0x110FA,
+	0x11100,
+	0x11103,
+	0x11127,
+	0x11135,
+	0x11136,
+	0x11140,
+	0x11144,
+	0x11173,
+	0x11174,
+	0x11175,
+	0x11176,
+	0x11180,
+	0x11183,
+	0x111B3,
+	0x111C1,
+	0x111C5,
+	0x111C7,
+	0x111C8,
+	0x111C9,
+	0x111CA,
+	0x111CD,
+	0x111D0,
+	0x111DA,
+	0x111DB,
+	0x111DC,
+	0x111DD,
+	0x111E0,
+	0x1122C,
+	0x11238,
+	0x1123A,
+	0x1123B,
+	0x1123D,
+	0x112A9,
+	0x112AA,
+	0x112DF,
+	0x112EB,
+	0x112F0,
+	0x112FA,
+	0x11300,
+	0x11304,
+	0x1133C,
+	0x1133D,
+	0x1133E,
+	0x11345,
+	0x11347,
+	0x11349,
+	0x1134B,
+	0x1134E,
+	0x11357,
+	0x11358,
+	0x11362,
+	0x11364,
+	0x11366,
+	0x1136D,
+	0x11370,
+	0x11375,
+	0x114B0,
+	0x114C4,
+	0x114D0,
+	0x114DA,
+	0x115AF,
+	0x115B6,
+	0x115B8,
+	0x115C1,
+	0x115C2,
+	0x115C4,
+	0x115C6,
+	0x115C9,
+	0x115D8,
+	0x115DC,
+	0x115DE,
+	0x11630,
+	0x11641,
+	0x11643,
+	0x11650,
+	0x1165A,
+	0x116AB,
+	0x116B8,
+	0x116C0,
+	0x116CA,
+	0x1171D,
+	0x1172C,
+	0x11730,
+	0x1173A,
+	0x1173C,
+	0x1173F,
+	0x118E0,
+	0x118EA,
+	0x12470,
+	0x12475,
+	0x13258,
+	0x1325B,
+	0x1325E,
+	0x13282,
+	0x13283,
+	0x13286,
+	0x13287,
+	0x13288,
+	0x13289,
+	0x1328A,
+	0x13379,
+	0x1337A,
+	0x1337C,
+	0x145CE,
+	0x145CF,
+	0x145D0,
+	0x16A60,
+	0x16A6A,
+	0x16A6E,
+	0x16A70,
+	0x16AF0,
+	0x16AF5,
+	0x16AF6,
+	0x16B30,
+	0x16B37,
+	0x16B3A,
+	0x16B44,
+	0x16B45,
+	0x16B50,
+	0x16B5A,
+	0x16F51,
+	0x16F7F,
+	0x16F8F,
+	0x16F93,
+	0x1B000,
+	0x1B002,
+	0x1BC9D,
+	0x1BC9F,
+	0x1BCA0,
+	0x1BCA4,
+	0x1D165,
+	0x1D16A,
+	0x1D16D,
+	0x1D183,
+	0x1D185,
+	0x1D18C,
+	0x1D1AA,
+	0x1D1AE,
+	0x1D242,
+	0x1D245,
+	0x1D7CE,
+	0x1D800,
+	0x1DA00,
+	0x1DA37,
+	0x1DA3B,
+	0x1DA6D,
+	0x1DA75,
+	0x1DA76,
+	0x1DA84,
+	0x1DA85,
+	0x1DA87,
+	0x1DA8B,
+	0x1DA9B,
+	0x1DAA0,
+	0x1DAA1,
+	0x1DAB0,
+	0x1E8D0,
+	0x1E8D7,
+	0x1F000,
+	0x1F02C,
+	0x1F030,
+	0x1F094,
+	0x1F0A0,
+	0x1F0AF,
+	0x1F0B1,
+	0x1F0C0,
+	0x1F0C1,
+	0x1F0D0,
+	0x1F0D1,
+	0x1F0F6,
+	0x1F1E6,
+	0x1F200,
+	0x1F203,
+	0x1F210,
+	0x1F23B,
+	0x1F240,
+	0x1F249,
+	0x1F250,
+	0x1F252,
+	0x1F300,
+	0x1F39C,
+	0x1F39E,
+	0x1F3B5,
+	0x1F3B7,
+	0x1F3BC,
+	0x1F3BD,
+	0x1F3FB,
+	0x1F400,
+	0x1F4A0,
+	0x1F4A1,
+	0x1F4A2,
+	0x1F4A3,
+	0x1F4A4,
+	0x1F4A5,
+	0x1F4AF,
+	0x1F4B0,
+	0x1F4B1,
+	0x1F4B3,
+	0x1F500,
+	0x1F507,
+	0x1F517,
+	0x1F525,
+	0x1F532,
+	0x1F54A,
+	0x1F57A,
+	0x1F57B,
+	0x1F5A4,
+	0x1F5A5,
+	0x1F5D4,
+	0x1F5DC,
+	0x1F5F4,
+	0x1F5FA,
+	0x1F650,
+	0x1F676,
+	0x1F679,
+	0x1F67C,
+	0x1F680,
+	0x1F6D1,
+	0x1F6E0,
+	0x1F6ED,
+	0x1F6F0,
+	0x1F6F4,
+	0x1F910,
+	0x1F919,
+	0x1F980,
+	0x1F985,
+	0x1F9C0,
+	0x1F9C1,
+	0x20000,
+	0x2FFFE,
+	0x30000,
+	0x3FFFE,
+	0xE0001,
+	0xE0002,
+	0xE0020,
+	0xE0080,
+	0xE0100,
+	0xE01F0
+};
+
+#endif	/* defined(PERL_IN_PERL_C) */
+
+#if defined(PERL_IN_REGEXEC_C)
+
+#define LB_ENUM_COUNT 36
+
+typedef enum {
+	LB_Alphabetic = 0,
+	LB_Break_After = 1,
+	LB_Break_Before = 2,
+	LB_Break_Both = 3,
+	LB_Break_Symbols = 4,
+	LB_Carriage_Return = 5,
+	LB_Close_Parenthesis = 6,
+	LB_Close_Punctuation = 7,
+	LB_Combining_Mark = 8,
+	LB_Contingent_Break = 9,
+	LB_Exclamation = 10,
+	LB_Glue = 11,
+	LB_H2 = 12,
+	LB_H3 = 13,
+	LB_Hebrew_Letter = 14,
+	LB_Hyphen = 15,
+	LB_Ideographic = 16,
+	LB_Infix_Numeric = 17,
+	LB_Inseparable = 18,
+	LB_JL = 19,
+	LB_JT = 20,
+	LB_JV = 21,
+	LB_Line_Feed = 22,
+	LB_Mandatory_Break = 23,
+	LB_Next_Line = 24,
+	LB_Nonstarter = 25,
+	LB_Numeric = 26,
+	LB_Open_Punctuation = 27,
+	LB_Postfix_Numeric = 28,
+	LB_Prefix_Numeric = 29,
+	LB_Quotation = 30,
+	LB_Regional_Indicator = 31,
+	LB_Space = 32,
+	LB_Word_Joiner = 33,
+	LB_ZWSpace = 34,
+	LB_EDGE = 35
+} LB_enum;
+
+static const LB_enum _Perl_LB_invmap[] = { /* for ASCII/Latin1 */
+	LB_Combining_Mark,
+	LB_Break_After,
+	LB_Line_Feed,
+	LB_Mandatory_Break,
+	LB_Carriage_Return,
+	LB_Combining_Mark,
+	LB_Space,
+	LB_Exclamation,
+	LB_Quotation,
+	LB_Alphabetic,
+	LB_Prefix_Numeric,
+	LB_Postfix_Numeric,
+	LB_Alphabetic,
+	LB_Quotation,
+	LB_Open_Punctuation,
+	LB_Close_Parenthesis,
+	LB_Alphabetic,
+	LB_Prefix_Numeric,
+	LB_Infix_Numeric,
+	LB_Hyphen,
+	LB_Infix_Numeric,
+	LB_Break_Symbols,
+	LB_Numeric,
+	LB_Infix_Numeric,
+	LB_Alphabetic,
+	LB_Exclamation,
+	LB_Alphabetic,
+	LB_Open_Punctuation,
+	LB_Prefix_Numeric,
+	LB_Close_Parenthesis,
+	LB_Alphabetic,
+	LB_Open_Punctuation,
+	LB_Break_After,
+	LB_Close_Punctuation,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Next_Line,
+	LB_Combining_Mark,
+	LB_Glue,
+	LB_Open_Punctuation,
+	LB_Postfix_Numeric,
+	LB_Prefix_Numeric,
+	LB_Alphabetic,
+	LB_Quotation,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Postfix_Numeric,
+	LB_Prefix_Numeric,
+	LB_Alphabetic,
+	LB_Break_Before,
+	LB_Alphabetic,
+	LB_Quotation,
+	LB_Alphabetic,
+	LB_Open_Punctuation,
+	LB_Alphabetic,
+	LB_Break_Before,
+	LB_Alphabetic,
+	LB_Break_Before,
+	LB_Alphabetic,
+	LB_Break_Before,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Glue,
+	LB_Combining_Mark,
+	LB_Glue,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Infix_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Infix_Numeric,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Prefix_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Break_After,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Exclamation,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Hebrew_Letter,
+	LB_Alphabetic,
+	LB_Hebrew_Letter,
+	LB_Alphabetic,
+	LB_Postfix_Numeric,
+	LB_Infix_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Exclamation,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Exclamation,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Numeric,
+	LB_Postfix_Numeric,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Exclamation,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Infix_Numeric,
+	LB_Exclamation,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Break_After,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Postfix_Numeric,
+	LB_Alphabetic,
+	LB_Postfix_Numeric,
+	LB_Alphabetic,
+	LB_Prefix_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Prefix_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Prefix_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Postfix_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Prefix_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Break_Before,
+	LB_Alphabetic,
+	LB_Break_Before,
+	LB_Glue,
+	LB_Break_Before,
+	LB_Break_After,
+	LB_Glue,
+	LB_Exclamation,
+	LB_Glue,
+	LB_Alphabetic,
+	LB_Exclamation,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Break_After,
+	LB_Combining_Mark,
+	LB_Break_After,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Break_Before,
+	LB_Break_After,
+	LB_Break_Before,
+	LB_Alphabetic,
+	LB_Glue,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Numeric,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_JL,
+	LB_JV,
+	LB_JT,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Break_After,
+	LB_Nonstarter,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Prefix_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Exclamation,
+	LB_Break_After,
+	LB_Break_Before,
+	LB_Alphabetic,
+	LB_Exclamation,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Glue,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Exclamation,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Break_Before,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Glue,
+	LB_Break_After,
+	LB_ZWSpace,
+	LB_Combining_Mark,
+	LB_Break_After,
+	LB_Glue,
+	LB_Break_After,
+	LB_Break_Both,
+	LB_Alphabetic,
+	LB_Quotation,
+	LB_Open_Punctuation,
+	LB_Quotation,
+	LB_Open_Punctuation,
+	LB_Quotation,
+	LB_Alphabetic,
+	LB_Inseparable,
+	LB_Break_After,
+	LB_Mandatory_Break,
+	LB_Combining_Mark,
+	LB_Glue,
+	LB_Postfix_Numeric,
+	LB_Alphabetic,
+	LB_Quotation,
+	LB_Alphabetic,
+	LB_Nonstarter,
+	LB_Alphabetic,
+	LB_Infix_Numeric,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Nonstarter,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Word_Joiner,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Alphabetic,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Alphabetic,
+	LB_Prefix_Numeric,
+	LB_Postfix_Numeric,
+	LB_Prefix_Numeric,
+	LB_Postfix_Numeric,
+	LB_Prefix_Numeric,
+	LB_Postfix_Numeric,
+	LB_Prefix_Numeric,
+	LB_Postfix_Numeric,
+	LB_Prefix_Numeric,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Postfix_Numeric,
+	LB_Alphabetic,
+	LB_Postfix_Numeric,
+	LB_Alphabetic,
+	LB_Prefix_Numeric,
+	LB_Alphabetic,
+	LB_Prefix_Numeric,
+	LB_Alphabetic,
+	LB_Inseparable,
+	LB_Alphabetic,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Quotation,
+	LB_Alphabetic,
+	LB_Exclamation,
+	LB_Alphabetic,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Alphabetic,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Alphabetic,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Alphabetic,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Alphabetic,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Alphabetic,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Exclamation,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Exclamation,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Quotation,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Open_Punctuation,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Quotation,
+	LB_Alphabetic,
+	LB_Quotation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Break_After,
+	LB_Exclamation,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Break_Both,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Open_Punctuation,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Close_Punctuation,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Ideographic,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Nonstarter,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Ideographic,
+	LB_Combining_Mark,
+	LB_Ideographic,
+	LB_Combining_Mark,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Exclamation,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Postfix_Numeric,
+	LB_Alphabetic,
+	LB_Break_Before,
+	LB_Exclamation,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Break_Before,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_JL,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Break_After,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_Alphabetic,
+	LB_JV,
+	LB_Alphabetic,
+	LB_JT,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Hebrew_Letter,
+	LB_Combining_Mark,
+	LB_Hebrew_Letter,
+	LB_Alphabetic,
+	LB_Hebrew_Letter,
+	LB_Alphabetic,
+	LB_Hebrew_Letter,
+	LB_Alphabetic,
+	LB_Hebrew_Letter,
+	LB_Alphabetic,
+	LB_Hebrew_Letter,
+	LB_Alphabetic,
+	LB_Hebrew_Letter,
+	LB_Alphabetic,
+	LB_Hebrew_Letter,
+	LB_Alphabetic,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Alphabetic,
+	LB_Postfix_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Infix_Numeric,
+	LB_Close_Punctuation,
+	LB_Infix_Numeric,
+	LB_Exclamation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Inseparable,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Ideographic,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Ideographic,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Ideographic,
+	LB_Close_Punctuation,
+	LB_Ideographic,
+	LB_Close_Punctuation,
+	LB_Alphabetic,
+	LB_Nonstarter,
+	LB_Exclamation,
+	LB_Ideographic,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Prefix_Numeric,
+	LB_Postfix_Numeric,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Word_Joiner,
+	LB_Alphabetic,
+	LB_Exclamation,
+	LB_Ideographic,
+	LB_Prefix_Numeric,
+	LB_Postfix_Numeric,
+	LB_Ideographic,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Ideographic,
+	LB_Close_Punctuation,
+	LB_Ideographic,
+	LB_Close_Punctuation,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Exclamation,
+	LB_Ideographic,
+	LB_Open_Punctuation,
+	LB_Ideographic,
+	LB_Close_Punctuation,
+	LB_Ideographic,
+	LB_Open_Punctuation,
+	LB_Ideographic,
+	LB_Close_Punctuation,
+	LB_Ideographic,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Nonstarter,
+	LB_Alphabetic,
+	LB_Nonstarter,
+	LB_Alphabetic,
+	LB_Nonstarter,
+	LB_Alphabetic,
+	LB_Postfix_Numeric,
+	LB_Prefix_Numeric,
+	LB_Ideographic,
+	LB_Prefix_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Contingent_Break,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Inseparable,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Break_Before,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Break_Before,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Break_Before,
+	LB_Break_After,
+	LB_Exclamation,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Alphabetic,
+	LB_Close_Punctuation,
+	LB_Alphabetic,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Alphabetic,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Alphabetic,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Break_After,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Regional_Indicator,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Quotation,
+	LB_Nonstarter,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic
+};
+
+#endif	/* defined(PERL_IN_REGEXEC_C) */
+
+#if defined(PERL_IN_PERL_C)
+
+static const UV _Perl_SB_invlist[] = { /* for ASCII/Latin1 */
+	2896,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	0,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x9,
+	0xA,
+	0xB,
+	0xD,
+	0xE,
+	0x20,
+	0x21,
+	0x22,
+	0x23,
+	0x27,
+	0x2A,
+	0x2C,
+	0x2E,
+	0x2F,
+	0x30,
+	0x3A,
+	0x3B,
+	0x3F,
+	0x40,
+	0x41,
+	0x5B,
+	0x5C,
+	0x5D,
+	0x5E,
+	0x61,
+	0x7B,
+	0x7C,
+	0x7D,
+	0x7E,
+	0x85,
+	0x86,
+	0xA0,
+	0xA1,
+	0xAA,
+	0xAB,
+	0xAC,
+	0xAD,
+	0xAE,
+	0xB5,
+	0xB6,
+	0xBA,
+	0xBB,
+	0xBC,
+	0xC0,
+	0xD7,
+	0xD8,
+	0xDF,
+	0xF7,
+	0xF8,
+	0x100,
+	0x101,
+	0x102,
+	0x103,
+	0x104,
+	0x105,
+	0x106,
+	0x107,
+	0x108,
+	0x109,
+	0x10A,
+	0x10B,
+	0x10C,
+	0x10D,
+	0x10E,
+	0x10F,
+	0x110,
+	0x111,
+	0x112,
+	0x113,
+	0x114,
+	0x115,
+	0x116,
+	0x117,
+	0x118,
+	0x119,
+	0x11A,
+	0x11B,
+	0x11C,
+	0x11D,
+	0x11E,
+	0x11F,
+	0x120,
+	0x121,
+	0x122,
+	0x123,
+	0x124,
+	0x125,
+	0x126,
+	0x127,
+	0x128,
+	0x129,
+	0x12A,
+	0x12B,
+	0x12C,
+	0x12D,
+	0x12E,
+	0x12F,
+	0x130,
+	0x131,
+	0x132,
+	0x133,
+	0x134,
+	0x135,
+	0x136,
+	0x137,
+	0x139,
+	0x13A,
+	0x13B,
+	0x13C,
+	0x13D,
+	0x13E,
+	0x13F,
+	0x140,
+	0x141,
+	0x142,
+	0x143,
+	0x144,
+	0x145,
+	0x146,
+	0x147,
+	0x148,
+	0x14A,
+	0x14B,
+	0x14C,
+	0x14D,
+	0x14E,
+	0x14F,
+	0x150,
+	0x151,
+	0x152,
+	0x153,
+	0x154,
+	0x155,
+	0x156,
+	0x157,
+	0x158,
+	0x159,
+	0x15A,
+	0x15B,
+	0x15C,
+	0x15D,
+	0x15E,
+	0x15F,
+	0x160,
+	0x161,
+	0x162,
+	0x163,
+	0x164,
+	0x165,
+	0x166,
+	0x167,
+	0x168,
+	0x169,
+	0x16A,
+	0x16B,
+	0x16C,
+	0x16D,
+	0x16E,
+	0x16F,
+	0x170,
+	0x171,
+	0x172,
+	0x173,
+	0x174,
+	0x175,
+	0x176,
+	0x177,
+	0x178,
+	0x17A,
+	0x17B,
+	0x17C,
+	0x17D,
+	0x17E,
+	0x181,
+	0x183,
+	0x184,
+	0x185,
+	0x186,
+	0x188,
+	0x189,
+	0x18C,
+	0x18E,
+	0x192,
+	0x193,
+	0x195,
+	0x196,
+	0x199,
+	0x19C,
+	0x19E,
+	0x19F,
+	0x1A1,
+	0x1A2,
+	0x1A3,
+	0x1A4,
+	0x1A5,
+	0x1A6,
+	0x1A8,
+	0x1A9,
+	0x1AA,
+	0x1AC,
+	0x1AD,
+	0x1AE,
+	0x1B0,
+	0x1B1,
+	0x1B4,
+	0x1B5,
+	0x1B6,
+	0x1B7,
+	0x1B9,
+	0x1BB,
+	0x1BC,
+	0x1BD,
+	0x1C0,
+	0x1C4,
+	0x1C6,
+	0x1C7,
+	0x1C9,
+	0x1CA,
+	0x1CC,
+	0x1CD,
+	0x1CE,
+	0x1CF,
+	0x1D0,
+	0x1D1,
+	0x1D2,
+	0x1D3,
+	0x1D4,
+	0x1D5,
+	0x1D6,
+	0x1D7,
+	0x1D8,
+	0x1D9,
+	0x1DA,
+	0x1DB,
+	0x1DC,
+	0x1DE,
+	0x1DF,
+	0x1E0,
+	0x1E1,
+	0x1E2,
+	0x1E3,
+	0x1E4,
+	0x1E5,
+	0x1E6,
+	0x1E7,
+	0x1E8,
+	0x1E9,
+	0x1EA,
+	0x1EB,
+	0x1EC,
+	0x1ED,
+	0x1EE,
+	0x1EF,
+	0x1F1,
+	0x1F3,
+	0x1F4,
+	0x1F5,
+	0x1F6,
+	0x1F9,
+	0x1FA,
+	0x1FB,
+	0x1FC,
+	0x1FD,
+	0x1FE,
+	0x1FF,
+	0x200,
+	0x201,
+	0x202,
+	0x203,
+	0x204,
+	0x205,
+	0x206,
+	0x207,
+	0x208,
+	0x209,
+	0x20A,
+	0x20B,
+	0x20C,
+	0x20D,
+	0x20E,
+	0x20F,
+	0x210,
+	0x211,
+	0x212,
+	0x213,
+	0x214,
+	0x215,
+	0x216,
+	0x217,
+	0x218,
+	0x219,
+	0x21A,
+	0x21B,
+	0x21C,
+	0x21D,
+	0x21E,
+	0x21F,
+	0x220,
+	0x221,
+	0x222,
+	0x223,
+	0x224,
+	0x225,
+	0x226,
+	0x227,
+	0x228,
+	0x229,
+	0x22A,
+	0x22B,
+	0x22C,
+	0x22D,
+	0x22E,
+	0x22F,
+	0x230,
+	0x231,
+	0x232,
+	0x233,
+	0x23A,
+	0x23C,
+	0x23D,
+	0x23F,
+	0x241,
+	0x242,
+	0x243,
+	0x247,
+	0x248,
+	0x249,
+	0x24A,
+	0x24B,
+	0x24C,
+	0x24D,
+	0x24E,
+	0x24F,
+	0x294,
+	0x295,
+	0x2B9,
+	0x2C0,
+	0x2C2,
+	0x2C6,
+	0x2D2,
+	0x2E0,
+	0x2E5,
+	0x2EC,
+	0x2ED,
+	0x2EE,
+	0x2EF,
+	0x300,
+	0x370,
+	0x371,
+	0x372,
+	0x373,
+	0x374,
+	0x375,
+	0x376,
+	0x377,
+	0x378,
+	0x37A,
+	0x37E,
+	0x37F,
+	0x380,
+	0x386,
+	0x387,
+	0x388,
+	0x38B,
+	0x38C,
+	0x38D,
+	0x38E,
+	0x390,
+	0x391,
+	0x3A2,
+	0x3A3,
+	0x3AC,
+	0x3CF,
+	0x3D0,
+	0x3D2,
+	0x3D5,
+	0x3D8,
+	0x3D9,
+	0x3DA,
+	0x3DB,
+	0x3DC,
+	0x3DD,
+	0x3DE,
+	0x3DF,
+	0x3E0,
+	0x3E1,
+	0x3E2,
+	0x3E3,
+	0x3E4,
+	0x3E5,
+	0x3E6,
+	0x3E7,
+	0x3E8,
+	0x3E9,
+	0x3EA,
+	0x3EB,
+	0x3EC,
+	0x3ED,
+	0x3EE,
+	0x3EF,
+	0x3F4,
+	0x3F5,
+	0x3F6,
+	0x3F7,
+	0x3F8,
+	0x3F9,
+	0x3FB,
+	0x3FD,
+	0x430,
+	0x460,
+	0x461,
+	0x462,
+	0x463,
+	0x464,
+	0x465,
+	0x466,
+	0x467,
+	0x468,
+	0x469,
+	0x46A,
+	0x46B,
+	0x46C,
+	0x46D,
+	0x46E,
+	0x46F,
+	0x470,
+	0x471,
+	0x472,
+	0x473,
+	0x474,
+	0x475,
+	0x476,
+	0x477,
+	0x478,
+	0x479,
+	0x47A,
+	0x47B,
+	0x47C,
+	0x47D,
+	0x47E,
+	0x47F,
+	0x480,
+	0x481,
+	0x482,
+	0x483,
+	0x48A,
+	0x48B,
+	0x48C,
+	0x48D,
+	0x48E,
+	0x48F,
+	0x490,
+	0x491,
+	0x492,
+	0x493,
+	0x494,
+	0x495,
+	0x496,
+	0x497,
+	0x498,
+	0x499,
+	0x49A,
+	0x49B,
+	0x49C,
+	0x49D,
+	0x49E,
+	0x49F,
+	0x4A0,
+	0x4A1,
+	0x4A2,
+	0x4A3,
+	0x4A4,
+	0x4A5,
+	0x4A6,
+	0x4A7,
+	0x4A8,
+	0x4A9,
+	0x4AA,
+	0x4AB,
+	0x4AC,
+	0x4AD,
+	0x4AE,
+	0x4AF,
+	0x4B0,
+	0x4B1,
+	0x4B2,
+	0x4B3,
+	0x4B4,
+	0x4B5,
+	0x4B6,
+	0x4B7,
+	0x4B8,
+	0x4B9,
+	0x4BA,
+	0x4BB,
+	0x4BC,
+	0x4BD,
+	0x4BE,
+	0x4BF,
+	0x4C0,
+	0x4C2,
+	0x4C3,
+	0x4C4,
+	0x4C5,
+	0x4C6,
+	0x4C7,
+	0x4C8,
+	0x4C9,
+	0x4CA,
+	0x4CB,
+	0x4CC,
+	0x4CD,
+	0x4CE,
+	0x4D0,
+	0x4D1,
+	0x4D2,
+	0x4D3,
+	0x4D4,
+	0x4D5,
+	0x4D6,
+	0x4D7,
+	0x4D8,
+	0x4D9,
+	0x4DA,
+	0x4DB,
+	0x4DC,
+	0x4DD,
+	0x4DE,
+	0x4DF,
+	0x4E0,
+	0x4E1,
+	0x4E2,
+	0x4E3,
+	0x4E4,
+	0x4E5,
+	0x4E6,
+	0x4E7,
+	0x4E8,
+	0x4E9,
+	0x4EA,
+	0x4EB,
+	0x4EC,
+	0x4ED,
+	0x4EE,
+	0x4EF,
+	0x4F0,
+	0x4F1,
+	0x4F2,
+	0x4F3,
+	0x4F4,
+	0x4F5,
+	0x4F6,
+	0x4F7,
+	0x4F8,
+	0x4F9,
+	0x4FA,
+	0x4FB,
+	0x4FC,
+	0x4FD,
+	0x4FE,
+	0x4FF,
+	0x500,
+	0x501,
+	0x502,
+	0x503,
+	0x504,
+	0x505,
+	0x506,
+	0x507,
+	0x508,
+	0x509,
+	0x50A,
+	0x50B,
+	0x50C,
+	0x50D,
+	0x50E,
+	0x50F,
+	0x510,
+	0x511,
+	0x512,
+	0x513,
+	0x514,
+	0x515,
+	0x516,
+	0x517,
+	0x518,
+	0x519,
+	0x51A,
+	0x51B,
+	0x51C,
+	0x51D,
+	0x51E,
+	0x51F,
+	0x520,
+	0x521,
+	0x522,
+	0x523,
+	0x524,
+	0x525,
+	0x526,
+	0x527,
+	0x528,
+	0x529,
+	0x52A,
+	0x52B,
+	0x52C,
+	0x52D,
+	0x52E,
+	0x52F,
+	0x530,
+	0x531,
+	0x557,
+	0x559,
+	0x55A,
+	0x55D,
+	0x55E,
+	0x561,
+	0x588,
+	0x589,
+	0x58A,
+	0x591,
+	0x5BE,
+	0x5BF,
+	0x5C0,
+	0x5C1,
+	0x5C3,
+	0x5C4,
+	0x5C6,
+	0x5C7,
+	0x5C8,
+	0x5D0,
+	0x5EB,
+	0x5F0,
+	0x5F4,
+	0x600,
+	0x606,
+	0x60C,
+	0x60E,
+	0x610,
+	0x61B,
+	0x61C,
+	0x61D,
+	0x61F,
+	0x620,
+	0x64B,
+	0x660,
+	0x66A,
+	0x66B,
+	0x66D,
+	0x66E,
+	0x670,
+	0x671,
+	0x6D4,
+	0x6D5,
+	0x6D6,
+	0x6DD,
+	0x6DE,
+	0x6DF,
+	0x6E5,
+	0x6E7,
+	0x6E9,
+	0x6EA,
+	0x6EE,
+	0x6F0,
+	0x6FA,
+	0x6FD,
+	0x6FF,
+	0x700,
+	0x703,
+	0x70F,
+	0x710,
+	0x711,
+	0x712,
+	0x730,
+	0x74B,
+	0x74D,
+	0x7A6,
+	0x7B1,
+	0x7B2,
+	0x7C0,
+	0x7CA,
+	0x7EB,
+	0x7F4,
+	0x7F6,
+	0x7F8,
+	0x7F9,
+	0x7FA,
+	0x7FB,
+	0x800,
+	0x816,
+	0x81A,
+	0x81B,
+	0x824,
+	0x825,
+	0x828,
+	0x829,
+	0x82E,
+	0x840,
+	0x859,
+	0x85C,
+	0x8A0,
+	0x8B5,
+	0x8E3,
+	0x904,
+	0x93A,
+	0x93D,
+	0x93E,
+	0x950,
+	0x951,
+	0x958,
+	0x962,
+	0x964,
+	0x966,
+	0x970,
+	0x971,
+	0x981,
+	0x984,
+	0x985,
+	0x98D,
+	0x98F,
+	0x991,
+	0x993,
+	0x9A9,
+	0x9AA,
+	0x9B1,
+	0x9B2,
+	0x9B3,
+	0x9B6,
+	0x9BA,
+	0x9BC,
+	0x9BD,
+	0x9BE,
+	0x9C5,
+	0x9C7,
+	0x9C9,
+	0x9CB,
+	0x9CE,
+	0x9CF,
+	0x9D7,
+	0x9D8,
+	0x9DC,
+	0x9DE,
+	0x9DF,
+	0x9E2,
+	0x9E4,
+	0x9E6,
+	0x9F0,
+	0x9F2,
+	0xA01,
+	0xA04,
+	0xA05,
+	0xA0B,
+	0xA0F,
+	0xA11,
+	0xA13,
+	0xA29,
+	0xA2A,
+	0xA31,
+	0xA32,
+	0xA34,
+	0xA35,
+	0xA37,
+	0xA38,
+	0xA3A,
+	0xA3C,
+	0xA3D,
+	0xA3E,
+	0xA43,
+	0xA47,
+	0xA49,
+	0xA4B,
+	0xA4E,
+	0xA51,
+	0xA52,
+	0xA59,
+	0xA5D,
+	0xA5E,
+	0xA5F,
+	0xA66,
+	0xA70,
+	0xA72,
+	0xA75,
+	0xA76,
+	0xA81,
+	0xA84,
+	0xA85,
+	0xA8E,
+	0xA8F,
+	0xA92,
+	0xA93,
+	0xAA9,
+	0xAAA,
+	0xAB1,
+	0xAB2,
+	0xAB4,
+	0xAB5,
+	0xABA,
+	0xABC,
+	0xABD,
+	0xABE,
+	0xAC6,
+	0xAC7,
+	0xACA,
+	0xACB,
+	0xACE,
+	0xAD0,
+	0xAD1,
+	0xAE0,
+	0xAE2,
+	0xAE4,
+	0xAE6,
+	0xAF0,
+	0xAF9,
+	0xAFA,
+	0xB01,
+	0xB04,
+	0xB05,
+	0xB0D,
+	0xB0F,
+	0xB11,
+	0xB13,
+	0xB29,
+	0xB2A,
+	0xB31,
+	0xB32,
+	0xB34,
+	0xB35,
+	0xB3A,
+	0xB3C,
+	0xB3D,
+	0xB3E,
+	0xB45,
+	0xB47,
+	0xB49,
+	0xB4B,
+	0xB4E,
+	0xB56,
+	0xB58,
+	0xB5C,
+	0xB5E,
+	0xB5F,
+	0xB62,
+	0xB64,
+	0xB66,
+	0xB70,
+	0xB71,
+	0xB72,
+	0xB82,
+	0xB83,
+	0xB84,
+	0xB85,
+	0xB8B,
+	0xB8E,
+	0xB91,
+	0xB92,
+	0xB96,
+	0xB99,
+	0xB9B,
+	0xB9C,
+	0xB9D,
+	0xB9E,
+	0xBA0,
+	0xBA3,
+	0xBA5,
+	0xBA8,
+	0xBAB,
+	0xBAE,
+	0xBBA,
+	0xBBE,
+	0xBC3,
+	0xBC6,
+	0xBC9,
+	0xBCA,
+	0xBCE,
+	0xBD0,
+	0xBD1,
+	0xBD7,
+	0xBD8,
+	0xBE6,
+	0xBF0,
+	0xC00,
+	0xC04,
+	0xC05,
+	0xC0D,
+	0xC0E,
+	0xC11,
+	0xC12,
+	0xC29,
+	0xC2A,
+	0xC3A,
+	0xC3D,
+	0xC3E,
+	0xC45,
+	0xC46,
+	0xC49,
+	0xC4A,
+	0xC4E,
+	0xC55,
+	0xC57,
+	0xC58,
+	0xC5B,
+	0xC60,
+	0xC62,
+	0xC64,
+	0xC66,
+	0xC70,
+	0xC81,
+	0xC84,
+	0xC85,
+	0xC8D,
+	0xC8E,
+	0xC91,
+	0xC92,
+	0xCA9,
+	0xCAA,
+	0xCB4,
+	0xCB5,
+	0xCBA,
+	0xCBC,
+	0xCBD,
+	0xCBE,
+	0xCC5,
+	0xCC6,
+	0xCC9,
+	0xCCA,
+	0xCCE,
+	0xCD5,
+	0xCD7,
+	0xCDE,
+	0xCDF,
+	0xCE0,
+	0xCE2,
+	0xCE4,
+	0xCE6,
+	0xCF0,
+	0xCF1,
+	0xCF3,
+	0xD01,
+	0xD04,
+	0xD05,
+	0xD0D,
+	0xD0E,
+	0xD11,
+	0xD12,
+	0xD3B,
+	0xD3D,
+	0xD3E,
+	0xD45,
+	0xD46,
+	0xD49,
+	0xD4A,
+	0xD4E,
+	0xD4F,
+	0xD57,
+	0xD58,
+	0xD5F,
+	0xD62,
+	0xD64,
+	0xD66,
+	0xD70,
+	0xD7A,
+	0xD80,
+	0xD82,
+	0xD84,
+	0xD85,
+	0xD97,
+	0xD9A,
+	0xDB2,
+	0xDB3,
+	0xDBC,
+	0xDBD,
+	0xDBE,
+	0xDC0,
+	0xDC7,
+	0xDCA,
+	0xDCB,
+	0xDCF,
+	0xDD5,
+	0xDD6,
+	0xDD7,
+	0xDD8,
+	0xDE0,
+	0xDE6,
+	0xDF0,
+	0xDF2,
+	0xDF4,
+	0xE01,
+	0xE31,
+	0xE32,
+	0xE34,
+	0xE3B,
+	0xE40,
+	0xE47,
+	0xE4F,
+	0xE50,
+	0xE5A,
+	0xE81,
+	0xE83,
+	0xE84,
+	0xE85,
+	0xE87,
+	0xE89,
+	0xE8A,
+	0xE8B,
+	0xE8D,
+	0xE8E,
+	0xE94,
+	0xE98,
+	0xE99,
+	0xEA0,
+	0xEA1,
+	0xEA4,
+	0xEA5,
+	0xEA6,
+	0xEA7,
+	0xEA8,
+	0xEAA,
+	0xEAC,
+	0xEAD,
+	0xEB1,
+	0xEB2,
+	0xEB4,
+	0xEBA,
+	0xEBB,
+	0xEBD,
+	0xEBE,
+	0xEC0,
+	0xEC5,
+	0xEC6,
+	0xEC7,
+	0xEC8,
+	0xECE,
+	0xED0,
+	0xEDA,
+	0xEDC,
+	0xEE0,
+	0xF00,
+	0xF01,
+	0xF18,
+	0xF1A,
+	0xF20,
+	0xF2A,
+	0xF35,
+	0xF36,
+	0xF37,
+	0xF38,
+	0xF39,
+	0xF3A,
+	0xF3E,
+	0xF40,
+	0xF48,
+	0xF49,
+	0xF6D,
+	0xF71,
+	0xF85,
+	0xF86,
+	0xF88,
+	0xF8D,
+	0xF98,
+	0xF99,
+	0xFBD,
+	0xFC6,
+	0xFC7,
+	0x1000,
+	0x102B,
+	0x103F,
+	0x1040,
+	0x104A,
+	0x104C,
+	0x1050,
+	0x1056,
+	0x105A,
+	0x105E,
+	0x1061,
+	0x1062,
+	0x1065,
+	0x1067,
+	0x106E,
+	0x1071,
+	0x1075,
+	0x1082,
+	0x108E,
+	0x108F,
+	0x1090,
+	0x109A,
+	0x109E,
+	0x10A0,
+	0x10C6,
+	0x10C7,
+	0x10C8,
+	0x10CD,
+	0x10CE,
+	0x10D0,
+	0x10FB,
+	0x10FC,
+	0x1249,
+	0x124A,
+	0x124E,
+	0x1250,
+	0x1257,
+	0x1258,
+	0x1259,
+	0x125A,
+	0x125E,
+	0x1260,
+	0x1289,
+	0x128A,
+	0x128E,
+	0x1290,
+	0x12B1,
+	0x12B2,
+	0x12B6,
+	0x12B8,
+	0x12BF,
+	0x12C0,
+	0x12C1,
+	0x12C2,
+	0x12C6,
+	0x12C8,
+	0x12D7,
+	0x12D8,
+	0x1311,
+	0x1312,
+	0x1316,
+	0x1318,
+	0x135B,
+	0x135D,
+	0x1360,
+	0x1362,
+	0x1363,
+	0x1367,
+	0x1369,
+	0x1380,
+	0x1390,
+	0x13A0,
+	0x13F6,
+	0x13F8,
+	0x13FE,
+	0x1401,
+	0x166D,
+	0x166E,
+	0x166F,
+	0x1680,
+	0x1681,
+	0x169B,
+	0x169D,
+	0x16A0,
+	0x16EB,
+	0x16EE,
+	0x16F9,
+	0x1700,
+	0x170D,
+	0x170E,
+	0x1712,
+	0x1715,
+	0x1720,
+	0x1732,
+	0x1735,
+	0x1737,
+	0x1740,
+	0x1752,
+	0x1754,
+	0x1760,
+	0x176D,
+	0x176E,
+	0x1771,
+	0x1772,
+	0x1774,
+	0x1780,
+	0x17B4,
+	0x17D4,
+	0x17D7,
+	0x17D8,
+	0x17DC,
+	0x17DD,
+	0x17DE,
+	0x17E0,
+	0x17EA,
+	0x1802,
+	0x1803,
+	0x1804,
+	0x1808,
+	0x1809,
+	0x180A,
+	0x180B,
+	0x180E,
+	0x180F,
+	0x1810,
+	0x181A,
+	0x1820,
+	0x1878,
+	0x1880,
+	0x18A9,
+	0x18AA,
+	0x18AB,
+	0x18B0,
+	0x18F6,
+	0x1900,
+	0x191F,
+	0x1920,
+	0x192C,
+	0x1930,
+	0x193C,
+	0x1944,
+	0x1946,
+	0x1950,
+	0x196E,
+	0x1970,
+	0x1975,
+	0x1980,
+	0x19AC,
+	0x19B0,
+	0x19CA,
+	0x19D0,
+	0x19DA,
+	0x1A00,
+	0x1A17,
+	0x1A1C,
+	0x1A20,
+	0x1A55,
+	0x1A5F,
+	0x1A60,
+	0x1A7D,
+	0x1A7F,
+	0x1A80,
+	0x1A8A,
+	0x1A90,
+	0x1A9A,
+	0x1AA7,
+	0x1AA8,
+	0x1AAC,
+	0x1AB0,
+	0x1ABF,
+	0x1B00,
+	0x1B05,
+	0x1B34,
+	0x1B45,
+	0x1B4C,
+	0x1B50,
+	0x1B5A,
+	0x1B5C,
+	0x1B5E,
+	0x1B60,
+	0x1B6B,
+	0x1B74,
+	0x1B80,
+	0x1B83,
+	0x1BA1,
+	0x1BAE,
+	0x1BB0,
+	0x1BBA,
+	0x1BE6,
+	0x1BF4,
+	0x1C00,
+	0x1C24,
+	0x1C38,
+	0x1C3B,
+	0x1C3D,
+	0x1C40,
+	0x1C4A,
+	0x1C4D,
+	0x1C50,
+	0x1C5A,
+	0x1C7E,
+	0x1C80,
+	0x1CD0,
+	0x1CD3,
+	0x1CD4,
+	0x1CE9,
+	0x1CED,
+	0x1CEE,
+	0x1CF2,
+	0x1CF5,
+	0x1CF7,
+	0x1CF8,
+	0x1CFA,
+	0x1D00,
+	0x1DC0,
+	0x1DF6,
+	0x1DFC,
+	0x1E00,
+	0x1E01,
+	0x1E02,
+	0x1E03,
+	0x1E04,
+	0x1E05,
+	0x1E06,
+	0x1E07,
+	0x1E08,
+	0x1E09,
+	0x1E0A,
+	0x1E0B,
+	0x1E0C,
+	0x1E0D,
+	0x1E0E,
+	0x1E0F,
+	0x1E10,
+	0x1E11,
+	0x1E12,
+	0x1E13,
+	0x1E14,
+	0x1E15,
+	0x1E16,
+	0x1E17,
+	0x1E18,
+	0x1E19,
+	0x1E1A,
+	0x1E1B,
+	0x1E1C,
+	0x1E1D,
+	0x1E1E,
+	0x1E1F,
+	0x1E20,
+	0x1E21,
+	0x1E22,
+	0x1E23,
+	0x1E24,
+	0x1E25,
+	0x1E26,
+	0x1E27,
+	0x1E28,
+	0x1E29,
+	0x1E2A,
+	0x1E2B,
+	0x1E2C,
+	0x1E2D,
+	0x1E2E,
+	0x1E2F,
+	0x1E30,
+	0x1E31,
+	0x1E32,
+	0x1E33,
+	0x1E34,
+	0x1E35,
+	0x1E36,
+	0x1E37,
+	0x1E38,
+	0x1E39,
+	0x1E3A,
+	0x1E3B,
+	0x1E3C,
+	0x1E3D,
+	0x1E3E,
+	0x1E3F,
+	0x1E40,
+	0x1E41,
+	0x1E42,
+	0x1E43,
+	0x1E44,
+	0x1E45,
+	0x1E46,
+	0x1E47,
+	0x1E48,
+	0x1E49,
+	0x1E4A,
+	0x1E4B,
+	0x1E4C,
+	0x1E4D,
+	0x1E4E,
+	0x1E4F,
+	0x1E50,
+	0x1E51,
+	0x1E52,
+	0x1E53,
+	0x1E54,
+	0x1E55,
+	0x1E56,
+	0x1E57,
+	0x1E58,
+	0x1E59,
+	0x1E5A,
+	0x1E5B,
+	0x1E5C,
+	0x1E5D,
+	0x1E5E,
+	0x1E5F,
+	0x1E60,
+	0x1E61,
+	0x1E62,
+	0x1E63,
+	0x1E64,
+	0x1E65,
+	0x1E66,
+	0x1E67,
+	0x1E68,
+	0x1E69,
+	0x1E6A,
+	0x1E6B,
+	0x1E6C,
+	0x1E6D,
+	0x1E6E,
+	0x1E6F,
+	0x1E70,
+	0x1E71,
+	0x1E72,
+	0x1E73,
+	0x1E74,
+	0x1E75,
+	0x1E76,
+	0x1E77,
+	0x1E78,
+	0x1E79,
+	0x1E7A,
+	0x1E7B,
+	0x1E7C,
+	0x1E7D,
+	0x1E7E,
+	0x1E7F,
+	0x1E80,
+	0x1E81,
+	0x1E82,
+	0x1E83,
+	0x1E84,
+	0x1E85,
+	0x1E86,
+	0x1E87,
+	0x1E88,
+	0x1E89,
+	0x1E8A,
+	0x1E8B,
+	0x1E8C,
+	0x1E8D,
+	0x1E8E,
+	0x1E8F,
+	0x1E90,
+	0x1E91,
+	0x1E92,
+	0x1E93,
+	0x1E94,
+	0x1E95,
+	0x1E9E,
+	0x1E9F,
+	0x1EA0,
+	0x1EA1,
+	0x1EA2,
+	0x1EA3,
+	0x1EA4,
+	0x1EA5,
+	0x1EA6,
+	0x1EA7,
+	0x1EA8,
+	0x1EA9,
+	0x1EAA,
+	0x1EAB,
+	0x1EAC,
+	0x1EAD,
+	0x1EAE,
+	0x1EAF,
+	0x1EB0,
+	0x1EB1,
+	0x1EB2,
+	0x1EB3,
+	0x1EB4,
+	0x1EB5,
+	0x1EB6,
+	0x1EB7,
+	0x1EB8,
+	0x1EB9,
+	0x1EBA,
+	0x1EBB,
+	0x1EBC,
+	0x1EBD,
+	0x1EBE,
+	0x1EBF,
+	0x1EC0,
+	0x1EC1,
+	0x1EC2,
+	0x1EC3,
+	0x1EC4,
+	0x1EC5,
+	0x1EC6,
+	0x1EC7,
+	0x1EC8,
+	0x1EC9,
+	0x1ECA,
+	0x1ECB,
+	0x1ECC,
+	0x1ECD,
+	0x1ECE,
+	0x1ECF,
+	0x1ED0,
+	0x1ED1,
+	0x1ED2,
+	0x1ED3,
+	0x1ED4,
+	0x1ED5,
+	0x1ED6,
+	0x1ED7,
+	0x1ED8,
+	0x1ED9,
+	0x1EDA,
+	0x1EDB,
+	0x1EDC,
+	0x1EDD,
+	0x1EDE,
+	0x1EDF,
+	0x1EE0,
+	0x1EE1,
+	0x1EE2,
+	0x1EE3,
+	0x1EE4,
+	0x1EE5,
+	0x1EE6,
+	0x1EE7,
+	0x1EE8,
+	0x1EE9,
+	0x1EEA,
+	0x1EEB,
+	0x1EEC,
+	0x1EED,
+	0x1EEE,
+	0x1EEF,
+	0x1EF0,
+	0x1EF1,
+	0x1EF2,
+	0x1EF3,
+	0x1EF4,
+	0x1EF5,
+	0x1EF6,
+	0x1EF7,
+	0x1EF8,
+	0x1EF9,
+	0x1EFA,
+	0x1EFB,
+	0x1EFC,
+	0x1EFD,
+	0x1EFE,
+	0x1EFF,
+	0x1F08,
+	0x1F10,
+	0x1F16,
+	0x1F18,
+	0x1F1E,
+	0x1F20,
+	0x1F28,
+	0x1F30,
+	0x1F38,
+	0x1F40,
+	0x1F46,
+	0x1F48,
+	0x1F4E,
+	0x1F50,
+	0x1F58,
+	0x1F59,
+	0x1F5A,
+	0x1F5B,
+	0x1F5C,
+	0x1F5D,
+	0x1F5E,
+	0x1F5F,
+	0x1F60,
+	0x1F68,
+	0x1F70,
+	0x1F7E,
+	0x1F80,
+	0x1F88,
+	0x1F90,
+	0x1F98,
+	0x1FA0,
+	0x1FA8,
+	0x1FB0,
+	0x1FB5,
+	0x1FB6,
+	0x1FB8,
+	0x1FBD,
+	0x1FBE,
+	0x1FBF,
+	0x1FC2,
+	0x1FC5,
+	0x1FC6,
+	0x1FC8,
+	0x1FCD,
+	0x1FD0,
+	0x1FD4,
+	0x1FD6,
+	0x1FD8,
+	0x1FDC,
+	0x1FE0,
+	0x1FE8,
+	0x1FED,
+	0x1FF2,
+	0x1FF5,
+	0x1FF6,
+	0x1FF8,
+	0x1FFD,
+	0x2000,
+	0x200B,
+	0x200C,
+	0x200E,
+	0x2010,
+	0x2013,
+	0x2015,
+	0x2018,
+	0x2020,
+	0x2024,
+	0x2025,
+	0x2028,
+	0x202A,
+	0x202F,
+	0x2030,
+	0x2039,
+	0x203B,
+	0x203C,
+	0x203E,
+	0x2045,
+	0x2047,
+	0x204A,
+	0x205F,
+	0x2060,
+	0x2065,
+	0x2066,
+	0x2070,
+	0x2071,
+	0x2072,
+	0x207D,
+	0x207F,
+	0x2080,
+	0x208D,
+	0x208F,
+	0x2090,
+	0x209D,
+	0x20D0,
+	0x20F1,
+	0x2102,
+	0x2103,
+	0x2107,
+	0x2108,
+	0x210A,
+	0x210B,
+	0x210E,
+	0x2110,
+	0x2113,
+	0x2114,
+	0x2115,
+	0x2116,
+	0x2119,
+	0x211E,
+	0x2124,
+	0x2125,
+	0x2126,
+	0x2127,
+	0x2128,
+	0x2129,
+	0x212A,
+	0x212E,
+	0x212F,
+	0x2130,
+	0x2134,
+	0x2135,
+	0x2139,
+	0x213A,
+	0x213C,
+	0x213E,
+	0x2140,
+	0x2145,
+	0x2146,
+	0x214A,
+	0x214E,
+	0x214F,
+	0x2160,
+	0x2170,
+	0x2180,
+	0x2183,
+	0x2184,
+	0x2185,
+	0x2189,
+	0x2308,
+	0x230C,
+	0x2329,
+	0x232B,
+	0x24B6,
+	0x24D0,
+	0x24EA,
+	0x275B,
+	0x2761,
+	0x2768,
+	0x2776,
+	0x27C5,
+	0x27C7,
+	0x27E6,
+	0x27F0,
+	0x2983,
+	0x2999,
+	0x29D8,
+	0x29DC,
+	0x29FC,
+	0x29FE,
+	0x2C00,
+	0x2C2F,
+	0x2C30,
+	0x2C5F,
+	0x2C60,
+	0x2C61,
+	0x2C62,
+	0x2C65,
+	0x2C67,
+	0x2C68,
+	0x2C69,
+	0x2C6A,
+	0x2C6B,
+	0x2C6C,
+	0x2C6D,
+	0x2C71,
+	0x2C72,
+	0x2C73,
+	0x2C75,
+	0x2C76,
+	0x2C7E,
+	0x2C81,
+	0x2C82,
+	0x2C83,
+	0x2C84,
+	0x2C85,
+	0x2C86,
+	0x2C87,
+	0x2C88,
+	0x2C89,
+	0x2C8A,
+	0x2C8B,
+	0x2C8C,
+	0x2C8D,
+	0x2C8E,
+	0x2C8F,
+	0x2C90,
+	0x2C91,
+	0x2C92,
+	0x2C93,
+	0x2C94,
+	0x2C95,
+	0x2C96,
+	0x2C97,
+	0x2C98,
+	0x2C99,
+	0x2C9A,
+	0x2C9B,
+	0x2C9C,
+	0x2C9D,
+	0x2C9E,
+	0x2C9F,
+	0x2CA0,
+	0x2CA1,
+	0x2CA2,
+	0x2CA3,
+	0x2CA4,
+	0x2CA5,
+	0x2CA6,
+	0x2CA7,
+	0x2CA8,
+	0x2CA9,
+	0x2CAA,
+	0x2CAB,
+	0x2CAC,
+	0x2CAD,
+	0x2CAE,
+	0x2CAF,
+	0x2CB0,
+	0x2CB1,
+	0x2CB2,
+	0x2CB3,
+	0x2CB4,
+	0x2CB5,
+	0x2CB6,
+	0x2CB7,
+	0x2CB8,
+	0x2CB9,
+	0x2CBA,
+	0x2CBB,
+	0x2CBC,
+	0x2CBD,
+	0x2CBE,
+	0x2CBF,
+	0x2CC0,
+	0x2CC1,
+	0x2CC2,
+	0x2CC3,
+	0x2CC4,
+	0x2CC5,
+	0x2CC6,
+	0x2CC7,
+	0x2CC8,
+	0x2CC9,
+	0x2CCA,
+	0x2CCB,
+	0x2CCC,
+	0x2CCD,
+	0x2CCE,
+	0x2CCF,
+	0x2CD0,
+	0x2CD1,
+	0x2CD2,
+	0x2CD3,
+	0x2CD4,
+	0x2CD5,
+	0x2CD6,
+	0x2CD7,
+	0x2CD8,
+	0x2CD9,
+	0x2CDA,
+	0x2CDB,
+	0x2CDC,
+	0x2CDD,
+	0x2CDE,
+	0x2CDF,
+	0x2CE0,
+	0x2CE1,
+	0x2CE2,
+	0x2CE3,
+	0x2CE5,
+	0x2CEB,
+	0x2CEC,
+	0x2CED,
+	0x2CEE,
+	0x2CEF,
+	0x2CF2,
+	0x2CF3,
+	0x2CF4,
+	0x2D00,
+	0x2D26,
+	0x2D27,
+	0x2D28,
+	0x2D2D,
+	0x2D2E,
+	0x2D30,
+	0x2D68,
+	0x2D6F,
+	0x2D70,
+	0x2D7F,
+	0x2D80,
+	0x2D97,
+	0x2DA0,
+	0x2DA7,
+	0x2DA8,
+	0x2DAF,
+	0x2DB0,
+	0x2DB7,
+	0x2DB8,
+	0x2DBF,
+	0x2DC0,
+	0x2DC7,
+	0x2DC8,
+	0x2DCF,
+	0x2DD0,
+	0x2DD7,
+	0x2DD8,
+	0x2DDF,
+	0x2DE0,
+	0x2E00,
+	0x2E0E,
+	0x2E1C,
+	0x2E1E,
+	0x2E20,
+	0x2E2A,
+	0x2E2E,
+	0x2E2F,
+	0x2E30,
+	0x2E3C,
+	0x2E3D,
+	0x2E42,
+	0x2E43,
+	0x3000,
+	0x3001,
+	0x3002,
+	0x3003,
+	0x3005,
+	0x3008,
+	0x3012,
+	0x3014,
+	0x301C,
+	0x301D,
+	0x3020,
+	0x3021,
+	0x302A,
+	0x3030,
+	0x3031,
+	0x3036,
+	0x3038,
+	0x303D,
+	0x3041,
+	0x3097,
+	0x3099,
+	0x309B,
+	0x309D,
+	0x30A0,
+	0x30A1,
+	0x30FB,
+	0x30FC,
+	0x3100,
+	0x3105,
+	0x312E,
+	0x3131,
+	0x318F,
+	0x31A0,
+	0x31BB,
+	0x31F0,
+	0x3200,
+	0x3400,
+	0x4DB6,
+	0x4E00,
+	0x9FD6,
+	0xA000,
+	0xA48D,
+	0xA4D0,
+	0xA4FE,
+	0xA4FF,
+	0xA500,
+	0xA60D,
+	0xA60E,
+	0xA610,
+	0xA620,
+	0xA62A,
+	0xA62C,
+	0xA640,
+	0xA641,
+	0xA642,
+	0xA643,
+	0xA644,
+	0xA645,
+	0xA646,
+	0xA647,
+	0xA648,
+	0xA649,
+	0xA64A,
+	0xA64B,
+	0xA64C,
+	0xA64D,
+	0xA64E,
+	0xA64F,
+	0xA650,
+	0xA651,
+	0xA652,
+	0xA653,
+	0xA654,
+	0xA655,
+	0xA656,
+	0xA657,
+	0xA658,
+	0xA659,
+	0xA65A,
+	0xA65B,
+	0xA65C,
+	0xA65D,
+	0xA65E,
+	0xA65F,
+	0xA660,
+	0xA661,
+	0xA662,
+	0xA663,
+	0xA664,
+	0xA665,
+	0xA666,
+	0xA667,
+	0xA668,
+	0xA669,
+	0xA66A,
+	0xA66B,
+	0xA66C,
+	0xA66D,
+	0xA66E,
+	0xA66F,
+	0xA673,
+	0xA674,
+	0xA67E,
+	0xA67F,
+	0xA680,
+	0xA681,
+	0xA682,
+	0xA683,
+	0xA684,
+	0xA685,
+	0xA686,
+	0xA687,
+	0xA688,
+	0xA689,
+	0xA68A,
+	0xA68B,
+	0xA68C,
+	0xA68D,
+	0xA68E,
+	0xA68F,
+	0xA690,
+	0xA691,
+	0xA692,
+	0xA693,
+	0xA694,
+	0xA695,
+	0xA696,
+	0xA697,
+	0xA698,
+	0xA699,
+	0xA69A,
+	0xA69B,
+	0xA69E,
+	0xA6A0,
+	0xA6F0,
+	0xA6F2,
+	0xA6F3,
+	0xA6F4,
+	0xA6F7,
+	0xA6F8,
+	0xA717,
+	0xA720,
+	0xA722,
+	0xA723,
+	0xA724,
+	0xA725,
+	0xA726,
+	0xA727,
+	0xA728,
+	0xA729,
+	0xA72A,
+	0xA72B,
+	0xA72C,
+	0xA72D,
+	0xA72E,
+	0xA72F,
+	0xA732,
+	0xA733,
+	0xA734,
+	0xA735,
+	0xA736,
+	0xA737,
+	0xA738,
+	0xA739,
+	0xA73A,
+	0xA73B,
+	0xA73C,
+	0xA73D,
+	0xA73E,
+	0xA73F,
+	0xA740,
+	0xA741,
+	0xA742,
+	0xA743,
+	0xA744,
+	0xA745,
+	0xA746,
+	0xA747,
+	0xA748,
+	0xA749,
+	0xA74A,
+	0xA74B,
+	0xA74C,
+	0xA74D,
+	0xA74E,
+	0xA74F,
+	0xA750,
+	0xA751,
+	0xA752,
+	0xA753,
+	0xA754,
+	0xA755,
+	0xA756,
+	0xA757,
+	0xA758,
+	0xA759,
+	0xA75A,
+	0xA75B,
+	0xA75C,
+	0xA75D,
+	0xA75E,
+	0xA75F,
+	0xA760,
+	0xA761,
+	0xA762,
+	0xA763,
+	0xA764,
+	0xA765,
+	0xA766,
+	0xA767,
+	0xA768,
+	0xA769,
+	0xA76A,
+	0xA76B,
+	0xA76C,
+	0xA76D,
+	0xA76E,
+	0xA76F,
+	0xA779,
+	0xA77A,
+	0xA77B,
+	0xA77C,
+	0xA77D,
+	0xA77F,
+	0xA780,
+	0xA781,
+	0xA782,
+	0xA783,
+	0xA784,
+	0xA785,
+	0xA786,
+	0xA787,
+	0xA788,
+	0xA789,
+	0xA78B,
+	0xA78C,
+	0xA78D,
+	0xA78E,
+	0xA78F,
+	0xA790,
+	0xA791,
+	0xA792,
+	0xA793,
+	0xA796,
+	0xA797,
+	0xA798,
+	0xA799,
+	0xA79A,
+	0xA79B,
+	0xA79C,
+	0xA79D,
+	0xA79E,
+	0xA79F,
+	0xA7A0,
+	0xA7A1,
+	0xA7A2,
+	0xA7A3,
+	0xA7A4,
+	0xA7A5,
+	0xA7A6,
+	0xA7A7,
+	0xA7A8,
+	0xA7A9,
+	0xA7AA,
+	0xA7AE,
+	0xA7B0,
+	0xA7B5,
+	0xA7B6,
+	0xA7B7,
+	0xA7B8,
+	0xA7F7,
+	0xA7F8,
+	0xA7FB,
+	0xA802,
+	0xA803,
+	0xA806,
+	0xA807,
+	0xA80B,
+	0xA80C,
+	0xA823,
+	0xA828,
+	0xA840,
+	0xA874,
+	0xA876,
+	0xA878,
+	0xA880,
+	0xA882,
+	0xA8B4,
+	0xA8C5,
+	0xA8CE,
+	0xA8D0,
+	0xA8DA,
+	0xA8E0,
+	0xA8F2,
+	0xA8F8,
+	0xA8FB,
+	0xA8FC,
+	0xA8FD,
+	0xA8FE,
+	0xA900,
+	0xA90A,
+	0xA926,
+	0xA92E,
+	0xA92F,
+	0xA930,
+	0xA947,
+	0xA954,
+	0xA960,
+	0xA97D,
+	0xA980,
+	0xA984,
+	0xA9B3,
+	0xA9C1,
+	0xA9C8,
+	0xA9CA,
+	0xA9CF,
+	0xA9D0,
+	0xA9DA,
+	0xA9E0,
+	0xA9E5,
+	0xA9E6,
+	0xA9F0,
+	0xA9FA,
+	0xA9FF,
+	0xAA00,
+	0xAA29,
+	0xAA37,
+	0xAA40,
+	0xAA43,
+	0xAA44,
+	0xAA4C,
+	0xAA4E,
+	0xAA50,
+	0xAA5A,
+	0xAA5D,
+	0xAA60,
+	0xAA77,
+	0xAA7A,
+	0xAA7B,
+	0xAA7E,
+	0xAAB0,
+	0xAAB1,
+	0xAAB2,
+	0xAAB5,
+	0xAAB7,
+	0xAAB9,
+	0xAABE,
+	0xAAC0,
+	0xAAC1,
+	0xAAC2,
+	0xAAC3,
+	0xAADB,
+	0xAADE,
+	0xAAE0,
+	0xAAEB,
+	0xAAF0,
+	0xAAF2,
+	0xAAF5,
+	0xAAF7,
+	0xAB01,
+	0xAB07,
+	0xAB09,
+	0xAB0F,
+	0xAB11,
+	0xAB17,
+	0xAB20,
+	0xAB27,
+	0xAB28,
+	0xAB2F,
+	0xAB30,
+	0xAB5B,
+	0xAB5C,
+	0xAB66,
+	0xAB70,
+	0xABC0,
+	0xABE3,
+	0xABEB,
+	0xABEC,
+	0xABEE,
+	0xABF0,
+	0xABFA,
+	0xAC00,
+	0xD7A4,
+	0xD7B0,
+	0xD7C7,
+	0xD7CB,
+	0xD7FC,
+	0xF900,
+	0xFA6E,
+	0xFA70,
+	0xFADA,
+	0xFB00,
+	0xFB07,
+	0xFB13,
+	0xFB18,
+	0xFB1D,
+	0xFB1E,
+	0xFB1F,
+	0xFB29,
+	0xFB2A,
+	0xFB37,
+	0xFB38,
+	0xFB3D,
+	0xFB3E,
+	0xFB3F,
+	0xFB40,
+	0xFB42,
+	0xFB43,
+	0xFB45,
+	0xFB46,
+	0xFBB2,
+	0xFBD3,
+	0xFD3E,
+	0xFD40,
+	0xFD50,
+	0xFD90,
+	0xFD92,
+	0xFDC8,
+	0xFDF0,
+	0xFDFC,
+	0xFE00,
+	0xFE10,
+	0xFE12,
+	0xFE13,
+	0xFE14,
+	0xFE17,
+	0xFE19,
+	0xFE20,
+	0xFE30,
+	0xFE31,
+	0xFE33,
+	0xFE35,
+	0xFE45,
+	0xFE47,
+	0xFE49,
+	0xFE50,
+	0xFE52,
+	0xFE53,
+	0xFE55,
+	0xFE56,
+	0xFE58,
+	0xFE59,
+	0xFE5F,
+	0xFE63,
+	0xFE64,
+	0xFE70,
+	0xFE75,
+	0xFE76,
+	0xFEFD,
+	0xFEFF,
+	0xFF00,
+	0xFF01,
+	0xFF02,
+	0xFF08,
+	0xFF0A,
+	0xFF0C,
+	0xFF0E,
+	0xFF0F,
+	0xFF1A,
+	0xFF1B,
+	0xFF1F,
+	0xFF20,
+	0xFF21,
+	0xFF3B,
+	0xFF3C,
+	0xFF3D,
+	0xFF3E,
+	0xFF41,
+	0xFF5B,
+	0xFF5C,
+	0xFF5D,
+	0xFF5E,
+	0xFF5F,
+	0xFF61,
+	0xFF62,
+	0xFF64,
+	0xFF65,
+	0xFF66,
+	0xFF9E,
+	0xFFA0,
+	0xFFBF,
+	0xFFC2,
+	0xFFC8,
+	0xFFCA,
+	0xFFD0,
+	0xFFD2,
+	0xFFD8,
+	0xFFDA,
+	0xFFDD,
+	0xFFF9,
+	0xFFFC,
+	0x10000,
+	0x1000C,
+	0x1000D,
+	0x10027,
+	0x10028,
+	0x1003B,
+	0x1003C,
+	0x1003E,
+	0x1003F,
+	0x1004E,
+	0x10050,
+	0x1005E,
+	0x10080,
+	0x100FB,
+	0x10140,
+	0x10175,
+	0x101FD,
+	0x101FE,
+	0x10280,
+	0x1029D,
+	0x102A0,
+	0x102D1,
+	0x102E0,
+	0x102E1,
+	0x10300,
+	0x10320,
+	0x10330,
+	0x1034B,
+	0x10350,
+	0x10376,
+	0x1037B,
+	0x10380,
+	0x1039E,
+	0x103A0,
+	0x103C4,
+	0x103C8,
+	0x103D0,
+	0x103D1,
+	0x103D6,
+	0x10400,
+	0x10428,
+	0x10450,
+	0x1049E,
+	0x104A0,
+	0x104AA,
+	0x10500,
+	0x10528,
+	0x10530,
+	0x10564,
+	0x10600,
+	0x10737,
+	0x10740,
+	0x10756,
+	0x10760,
+	0x10768,
+	0x10800,
+	0x10806,
+	0x10808,
+	0x10809,
+	0x1080A,
+	0x10836,
+	0x10837,
+	0x10839,
+	0x1083C,
+	0x1083D,
+	0x1083F,
+	0x10856,
+	0x10860,
+	0x10877,
+	0x10880,
+	0x1089F,
+	0x108E0,
+	0x108F3,
+	0x108F4,
+	0x108F6,
+	0x10900,
+	0x10916,
+	0x10920,
+	0x1093A,
+	0x10980,
+	0x109B8,
+	0x109BE,
+	0x109C0,
+	0x10A00,
+	0x10A01,
+	0x10A04,
+	0x10A05,
+	0x10A07,
+	0x10A0C,
+	0x10A10,
+	0x10A14,
+	0x10A15,
+	0x10A18,
+	0x10A19,
+	0x10A34,
+	0x10A38,
+	0x10A3B,
+	0x10A3F,
+	0x10A40,
+	0x10A56,
+	0x10A58,
+	0x10A60,
+	0x10A7D,
+	0x10A80,
+	0x10A9D,
+	0x10AC0,
+	0x10AC8,
+	0x10AC9,
+	0x10AE5,
+	0x10AE7,
+	0x10B00,
+	0x10B36,
+	0x10B40,
+	0x10B56,
+	0x10B60,
+	0x10B73,
+	0x10B80,
+	0x10B92,
+	0x10C00,
+	0x10C49,
+	0x10C80,
+	0x10CB3,
+	0x10CC0,
+	0x10CF3,
+	0x11000,
+	0x11003,
+	0x11038,
+	0x11047,
+	0x11049,
+	0x11066,
+	0x11070,
+	0x1107F,
+	0x11083,
+	0x110B0,
+	0x110BB,
+	0x110BD,
+	0x110BE,
+	0x110C2,
+	0x110D0,
+	0x110E9,
+	0x110F0,
+	0x110FA,
+	0x11100,
+	0x11103,
+	0x11127,
+	0x11135,
+	0x11136,
+	0x11140,
+	0x11141,
+	0x11144,
+	0x11150,
+	0x11173,
+	0x11174,
+	0x11176,
+	0x11177,
+	0x11180,
+	0x11183,
+	0x111B3,
+	0x111C1,
+	0x111C5,
+	0x111C7,
+	0x111CA,
+	0x111CD,
+	0x111CE,
+	0x111D0,
+	0x111DA,
+	0x111DB,
+	0x111DC,
+	0x111DD,
+	0x111DE,
+	0x111E0,
+	0x11200,
+	0x11212,
+	0x11213,
+	0x1122C,
+	0x11238,
+	0x1123A,
+	0x1123B,
+	0x1123D,
+	0x11280,
+	0x11287,
+	0x11288,
+	0x11289,
+	0x1128A,
+	0x1128E,
+	0x1128F,
+	0x1129E,
+	0x1129F,
+	0x112A9,
+	0x112AA,
+	0x112B0,
+	0x112DF,
+	0x112EB,
+	0x112F0,
+	0x112FA,
+	0x11300,
+	0x11304,
+	0x11305,
+	0x1130D,
+	0x1130F,
+	0x11311,
+	0x11313,
+	0x11329,
+	0x1132A,
+	0x11331,
+	0x11332,
+	0x11334,
+	0x11335,
+	0x1133A,
+	0x1133C,
+	0x1133D,
+	0x1133E,
+	0x11345,
+	0x11347,
+	0x11349,
+	0x1134B,
+	0x1134E,
+	0x11350,
+	0x11351,
+	0x11357,
+	0x11358,
+	0x1135D,
+	0x11362,
+	0x11364,
+	0x11366,
+	0x1136D,
+	0x11370,
+	0x11375,
+	0x11480,
+	0x114B0,
+	0x114C4,
+	0x114C6,
+	0x114C7,
+	0x114C8,
+	0x114D0,
+	0x114DA,
+	0x11580,
+	0x115AF,
+	0x115B6,
+	0x115B8,
+	0x115C1,
+	0x115C2,
+	0x115C4,
+	0x115C9,
+	0x115D8,
+	0x115DC,
+	0x115DE,
+	0x11600,
+	0x11630,
+	0x11641,
+	0x11643,
+	0x11644,
+	0x11645,
+	0x11650,
+	0x1165A,
+	0x11680,
+	0x116AB,
+	0x116B8,
+	0x116C0,
+	0x116CA,
+	0x11700,
+	0x1171A,
+	0x1171D,
+	0x1172C,
+	0x11730,
+	0x1173A,
+	0x1173C,
+	0x1173F,
+	0x118A0,
+	0x118C0,
+	0x118E0,
+	0x118EA,
+	0x118FF,
+	0x11900,
+	0x11AC0,
+	0x11AF9,
+	0x12000,
+	0x1239A,
+	0x12400,
+	0x1246F,
+	0x12480,
+	0x12544,
+	0x13000,
+	0x1342F,
+	0x14400,
+	0x14647,
+	0x16800,
+	0x16A39,
+	0x16A40,
+	0x16A5F,
+	0x16A60,
+	0x16A6A,
+	0x16A6E,
+	0x16A70,
+	0x16AD0,
+	0x16AEE,
+	0x16AF0,
+	0x16AF5,
+	0x16AF6,
+	0x16B00,
+	0x16B30,
+	0x16B37,
+	0x16B39,
+	0x16B40,
+	0x16B44,
+	0x16B45,
+	0x16B50,
+	0x16B5A,
+	0x16B63,
+	0x16B78,
+	0x16B7D,
+	0x16B90,
+	0x16F00,
+	0x16F45,
+	0x16F50,
+	0x16F51,
+	0x16F7F,
+	0x16F8F,
+	0x16F93,
+	0x16FA0,
+	0x1B000,
+	0x1B002,
+	0x1BC00,
+	0x1BC6B,
+	0x1BC70,
+	0x1BC7D,
+	0x1BC80,
+	0x1BC89,
+	0x1BC90,
+	0x1BC9A,
+	0x1BC9D,
+	0x1BC9F,
+	0x1BCA0,
+	0x1BCA4,
+	0x1D165,
+	0x1D16A,
+	0x1D16D,
+	0x1D173,
+	0x1D17B,
+	0x1D183,
+	0x1D185,
+	0x1D18C,
+	0x1D1AA,
+	0x1D1AE,
+	0x1D242,
+	0x1D245,
+	0x1D400,
+	0x1D41A,
+	0x1D434,
+	0x1D44E,
+	0x1D455,
+	0x1D456,
+	0x1D468,
+	0x1D482,
+	0x1D49C,
+	0x1D49D,
+	0x1D49E,
+	0x1D4A0,
+	0x1D4A2,
+	0x1D4A3,
+	0x1D4A5,
+	0x1D4A7,
+	0x1D4A9,
+	0x1D4AD,
+	0x1D4AE,
+	0x1D4B6,
+	0x1D4BA,
+	0x1D4BB,
+	0x1D4BC,
+	0x1D4BD,
+	0x1D4C4,
+	0x1D4C5,
+	0x1D4D0,
+	0x1D4EA,
+	0x1D504,
+	0x1D506,
+	0x1D507,
+	0x1D50B,
+	0x1D50D,
+	0x1D515,
+	0x1D516,
+	0x1D51D,
+	0x1D51E,
+	0x1D538,
+	0x1D53A,
+	0x1D53B,
+	0x1D53F,
+	0x1D540,
+	0x1D545,
+	0x1D546,
+	0x1D547,
+	0x1D54A,
+	0x1D551,
+	0x1D552,
+	0x1D56C,
+	0x1D586,
+	0x1D5A0,
+	0x1D5BA,
+	0x1D5D4,
+	0x1D5EE,
+	0x1D608,
+	0x1D622,
+	0x1D63C,
+	0x1D656,
+	0x1D670,
+	0x1D68A,
+	0x1D6A6,
+	0x1D6A8,
+	0x1D6C1,
+	0x1D6C2,
+	0x1D6DB,
+	0x1D6DC,
+	0x1D6E2,
+	0x1D6FB,
+	0x1D6FC,
+	0x1D715,
+	0x1D716,
+	0x1D71C,
+	0x1D735,
+	0x1D736,
+	0x1D74F,
+	0x1D750,
+	0x1D756,
+	0x1D76F,
+	0x1D770,
+	0x1D789,
+	0x1D78A,
+	0x1D790,
+	0x1D7A9,
+	0x1D7AA,
+	0x1D7C3,
+	0x1D7C4,
+	0x1D7CA,
+	0x1D7CB,
+	0x1D7CC,
+	0x1D7CE,
+	0x1D800,
+	0x1DA00,
+	0x1DA37,
+	0x1DA3B,
+	0x1DA6D,
+	0x1DA75,
+	0x1DA76,
+	0x1DA84,
+	0x1DA85,
+	0x1DA88,
+	0x1DA89,
+	0x1DA9B,
+	0x1DAA0,
+	0x1DAA1,
+	0x1DAB0,
+	0x1E800,
+	0x1E8C5,
+	0x1E8D0,
+	0x1E8D7,
+	0x1EE00,
+	0x1EE04,
+	0x1EE05,
+	0x1EE20,
+	0x1EE21,
+	0x1EE23,
+	0x1EE24,
+	0x1EE25,
+	0x1EE27,
+	0x1EE28,
+	0x1EE29,
+	0x1EE33,
+	0x1EE34,
+	0x1EE38,
+	0x1EE39,
+	0x1EE3A,
+	0x1EE3B,
+	0x1EE3C,
+	0x1EE42,
+	0x1EE43,
+	0x1EE47,
+	0x1EE48,
+	0x1EE49,
+	0x1EE4A,
+	0x1EE4B,
+	0x1EE4C,
+	0x1EE4D,
+	0x1EE50,
+	0x1EE51,
+	0x1EE53,
+	0x1EE54,
+	0x1EE55,
+	0x1EE57,
+	0x1EE58,
+	0x1EE59,
+	0x1EE5A,
+	0x1EE5B,
+	0x1EE5C,
+	0x1EE5D,
+	0x1EE5E,
+	0x1EE5F,
+	0x1EE60,
+	0x1EE61,
+	0x1EE63,
+	0x1EE64,
+	0x1EE65,
+	0x1EE67,
+	0x1EE6B,
+	0x1EE6C,
+	0x1EE73,
+	0x1EE74,
+	0x1EE78,
+	0x1EE79,
+	0x1EE7D,
+	0x1EE7E,
+	0x1EE7F,
+	0x1EE80,
+	0x1EE8A,
+	0x1EE8B,
+	0x1EE9C,
+	0x1EEA1,
+	0x1EEA4,
+	0x1EEA5,
+	0x1EEAA,
+	0x1EEAB,
+	0x1EEBC,
+	0x1F130,
+	0x1F14A,
+	0x1F150,
+	0x1F16A,
+	0x1F170,
+	0x1F18A,
+	0x1F676,
+	0x1F679,
+	0x20000,
+	0x2A6D7,
+	0x2A700,
+	0x2B735,
+	0x2B740,
+	0x2B81E,
+	0x2B820,
+	0x2CEA2,
+	0x2F800,
+	0x2FA1E,
+	0xE0001,
+	0xE0002,
+	0xE0020,
+	0xE0080,
+	0xE0100,
+	0xE01F0
+};
+
+#endif	/* defined(PERL_IN_PERL_C) */
+
+#if defined(PERL_IN_REGEXEC_C)
+
+#define SB_ENUM_COUNT 16
+
+typedef enum {
+	SB_Other = 0,
+	SB_ATerm = 1,
+	SB_CR = 2,
+	SB_Close = 3,
+	SB_Extend = 4,
+	SB_Format = 5,
+	SB_LF = 6,
+	SB_Lower = 7,
+	SB_Numeric = 8,
+	SB_OLetter = 9,
+	SB_SContinue = 10,
+	SB_STerm = 11,
+	SB_Sep = 12,
+	SB_Sp = 13,
+	SB_Upper = 14,
+	SB_EDGE = 15
+} SB_enum;
+
+static const SB_enum _Perl_SB_invmap[] = { /* for ASCII/Latin1 */
+	SB_Other,
+	SB_Sp,
+	SB_LF,
+	SB_Sp,
+	SB_CR,
+	SB_Other,
+	SB_Sp,
+	SB_STerm,
+	SB_Close,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_SContinue,
+	SB_ATerm,
+	SB_Other,
+	SB_Numeric,
+	SB_SContinue,
+	SB_Other,
+	SB_STerm,
+	SB_Other,
+	SB_Upper,
+	SB_Close,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_Lower,
+	SB_Close,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_Sep,
+	SB_Other,
+	SB_Sp,
+	SB_Other,
+	SB_Lower,
+	SB_Close,
+	SB_Other,
+	SB_Format,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Close,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_OLetter,
+	SB_Upper,
+	SB_Lower,
+	SB_OLetter,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_OLetter,
+	SB_Lower,
+	SB_OLetter,
+	SB_Lower,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_OLetter,
+	SB_Other,
+	SB_Upper,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Other,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Other,
+	SB_Extend,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_SContinue,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_STerm,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Format,
+	SB_Other,
+	SB_SContinue,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Format,
+	SB_Other,
+	SB_STerm,
+	SB_OLetter,
+	SB_Extend,
+	SB_Numeric,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_STerm,
+	SB_OLetter,
+	SB_Extend,
+	SB_Format,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Numeric,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_STerm,
+	SB_Other,
+	SB_Format,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Other,
+	SB_Numeric,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Other,
+	SB_SContinue,
+	SB_STerm,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_STerm,
+	SB_Numeric,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Numeric,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Numeric,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Close,
+	SB_Extend,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Numeric,
+	SB_STerm,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_Numeric,
+	SB_Extend,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_STerm,
+	SB_Other,
+	SB_STerm,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_STerm,
+	SB_OLetter,
+	SB_Sp,
+	SB_OLetter,
+	SB_Close,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_STerm,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_SContinue,
+	SB_STerm,
+	SB_Other,
+	SB_SContinue,
+	SB_STerm,
+	SB_Other,
+	SB_Extend,
+	SB_Format,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_STerm,
+	SB_Numeric,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Numeric,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_OLetter,
+	SB_STerm,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Other,
+	SB_Numeric,
+	SB_STerm,
+	SB_Other,
+	SB_STerm,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Numeric,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_STerm,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_OLetter,
+	SB_Numeric,
+	SB_OLetter,
+	SB_STerm,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Lower,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Upper,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Upper,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Upper,
+	SB_Other,
+	SB_Lower,
+	SB_Upper,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Upper,
+	SB_Other,
+	SB_Sp,
+	SB_Format,
+	SB_Extend,
+	SB_Format,
+	SB_Other,
+	SB_SContinue,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_ATerm,
+	SB_Other,
+	SB_Sep,
+	SB_Format,
+	SB_Sp,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_STerm,
+	SB_Other,
+	SB_Close,
+	SB_STerm,
+	SB_Other,
+	SB_Sp,
+	SB_Format,
+	SB_Other,
+	SB_Format,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Close,
+	SB_Lower,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_OLetter,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Upper,
+	SB_Lower,
+	SB_OLetter,
+	SB_Upper,
+	SB_Lower,
+	SB_OLetter,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_Upper,
+	SB_Lower,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Other,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Extend,
+	SB_Upper,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Close,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_STerm,
+	SB_OLetter,
+	SB_Other,
+	SB_STerm,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_Sp,
+	SB_SContinue,
+	SB_STerm,
+	SB_Other,
+	SB_OLetter,
+	SB_Close,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_STerm,
+	SB_OLetter,
+	SB_Other,
+	SB_STerm,
+	SB_OLetter,
+	SB_Numeric,
+	SB_OLetter,
+	SB_Other,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_STerm,
+	SB_Other,
+	SB_STerm,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_OLetter,
+	SB_Other,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_OLetter,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Other,
+	SB_OLetter,
+	SB_Lower,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_STerm,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_STerm,
+	SB_Numeric,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Numeric,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_STerm,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_STerm,
+	SB_Other,
+	SB_OLetter,
+	SB_Numeric,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Numeric,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_STerm,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_STerm,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_OLetter,
+	SB_Extend,
+	SB_STerm,
+	SB_Extend,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Close,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_SContinue,
+	SB_Other,
+	SB_SContinue,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_SContinue,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_SContinue,
+	SB_ATerm,
+	SB_Other,
+	SB_SContinue,
+	SB_STerm,
+	SB_SContinue,
+	SB_Close,
+	SB_Other,
+	SB_SContinue,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Format,
+	SB_Other,
+	SB_STerm,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_SContinue,
+	SB_ATerm,
+	SB_Other,
+	SB_SContinue,
+	SB_Other,
+	SB_STerm,
+	SB_Other,
+	SB_Upper,
+	SB_Close,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_Lower,
+	SB_Close,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_Close,
+	SB_STerm,
+	SB_Close,
+	SB_SContinue,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Format,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Upper,
+	SB_Lower,
+	SB_OLetter,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_STerm,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_STerm,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Format,
+	SB_STerm,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_STerm,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_STerm,
+	SB_Other,
+	SB_Extend,
+	SB_STerm,
+	SB_Other,
+	SB_Numeric,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_STerm,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_STerm,
+	SB_Other,
+	SB_STerm,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_STerm,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_STerm,
+	SB_Other,
+	SB_STerm,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_STerm,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_STerm,
+	SB_Other,
+	SB_Upper,
+	SB_Lower,
+	SB_Numeric,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_STerm,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_STerm,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_STerm,
+	SB_Other,
+	SB_OLetter,
+	SB_STerm,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_STerm,
+	SB_Format,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Format,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Lower,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Upper,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Upper,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Upper,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Upper,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_STerm,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Format,
+	SB_Other,
+	SB_Format,
+	SB_Other,
+	SB_Extend,
+	SB_Other
+};
+
+#endif	/* defined(PERL_IN_REGEXEC_C) */
+
+#if defined(PERL_IN_PERL_C)
+
+static const UV _Perl_WB_invlist[] = { /* for ASCII/Latin1 */
+	1535,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	0,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x9,
+	0xA,
+	0xB,
+	0xD,
+	0xE,
+	0x20,
+	0x21,
+	0x22,
+	0x23,
+	0x27,
+	0x28,
+	0x2C,
+	0x2D,
+	0x2E,
+	0x2F,
+	0x30,
+	0x3A,
+	0x3B,
+	0x3C,
+	0x41,
+	0x5B,
+	0x5F,
+	0x60,
+	0x61,
+	0x7B,
+	0x85,
+	0x86,
+	0xA0,
+	0xA1,
+	0xAA,
+	0xAB,
+	0xAD,
+	0xAE,
+	0xB5,
+	0xB6,
+	0xB7,
+	0xB8,
+	0xBA,
+	0xBB,
+	0xC0,
+	0xD7,
+	0xD8,
+	0xF7,
+	0xF8,
+	0x2C2,
+	0x2C6,
+	0x2D2,
+	0x2D7,
+	0x2D8,
+	0x2E0,
+	0x2E5,
+	0x2EC,
+	0x2ED,
+	0x2EE,
+	0x2EF,
+	0x300,
+	0x370,
+	0x375,
+	0x376,
+	0x378,
+	0x37A,
+	0x37E,
+	0x37F,
+	0x380,
+	0x386,
+	0x387,
+	0x388,
+	0x38B,
+	0x38C,
+	0x38D,
+	0x38E,
+	0x3A2,
+	0x3A3,
+	0x3F6,
+	0x3F7,
+	0x482,
+	0x483,
+	0x48A,
+	0x530,
+	0x531,
+	0x557,
+	0x559,
+	0x55A,
+	0x561,
+	0x588,
+	0x589,
+	0x58A,
+	0x591,
+	0x5BE,
+	0x5BF,
+	0x5C0,
+	0x5C1,
+	0x5C3,
+	0x5C4,
+	0x5C6,
+	0x5C7,
+	0x5C8,
+	0x5D0,
+	0x5EB,
+	0x5F0,
+	0x5F3,
+	0x5F4,
+	0x5F5,
+	0x600,
+	0x606,
+	0x60C,
+	0x60E,
+	0x610,
+	0x61B,
+	0x61C,
+	0x61D,
+	0x620,
+	0x64B,
+	0x660,
+	0x66A,
+	0x66B,
+	0x66C,
+	0x66D,
+	0x66E,
+	0x670,
+	0x671,
+	0x6D4,
+	0x6D5,
+	0x6D6,
+	0x6DD,
+	0x6DE,
+	0x6DF,
+	0x6E5,
+	0x6E7,
+	0x6E9,
+	0x6EA,
+	0x6EE,
+	0x6F0,
+	0x6FA,
+	0x6FD,
+	0x6FF,
+	0x700,
+	0x70F,
+	0x710,
+	0x711,
+	0x712,
+	0x730,
+	0x74B,
+	0x74D,
+	0x7A6,
+	0x7B1,
+	0x7B2,
+	0x7C0,
+	0x7CA,
+	0x7EB,
+	0x7F4,
+	0x7F6,
+	0x7F8,
+	0x7F9,
+	0x7FA,
+	0x7FB,
+	0x800,
+	0x816,
+	0x81A,
+	0x81B,
+	0x824,
+	0x825,
+	0x828,
+	0x829,
+	0x82E,
+	0x840,
+	0x859,
+	0x85C,
+	0x8A0,
+	0x8B5,
+	0x8E3,
+	0x904,
+	0x93A,
+	0x93D,
+	0x93E,
+	0x950,
+	0x951,
+	0x958,
+	0x962,
+	0x964,
+	0x966,
+	0x970,
+	0x971,
+	0x981,
+	0x984,
+	0x985,
+	0x98D,
+	0x98F,
+	0x991,
+	0x993,
+	0x9A9,
+	0x9AA,
+	0x9B1,
+	0x9B2,
+	0x9B3,
+	0x9B6,
+	0x9BA,
+	0x9BC,
+	0x9BD,
+	0x9BE,
+	0x9C5,
+	0x9C7,
+	0x9C9,
+	0x9CB,
+	0x9CE,
+	0x9CF,
+	0x9D7,
+	0x9D8,
+	0x9DC,
+	0x9DE,
+	0x9DF,
+	0x9E2,
+	0x9E4,
+	0x9E6,
+	0x9F0,
+	0x9F2,
+	0xA01,
+	0xA04,
+	0xA05,
+	0xA0B,
+	0xA0F,
+	0xA11,
+	0xA13,
+	0xA29,
+	0xA2A,
+	0xA31,
+	0xA32,
+	0xA34,
+	0xA35,
+	0xA37,
+	0xA38,
+	0xA3A,
+	0xA3C,
+	0xA3D,
+	0xA3E,
+	0xA43,
+	0xA47,
+	0xA49,
+	0xA4B,
+	0xA4E,
+	0xA51,
+	0xA52,
+	0xA59,
+	0xA5D,
+	0xA5E,
+	0xA5F,
+	0xA66,
+	0xA70,
+	0xA72,
+	0xA75,
+	0xA76,
+	0xA81,
+	0xA84,
+	0xA85,
+	0xA8E,
+	0xA8F,
+	0xA92,
+	0xA93,
+	0xAA9,
+	0xAAA,
+	0xAB1,
+	0xAB2,
+	0xAB4,
+	0xAB5,
+	0xABA,
+	0xABC,
+	0xABD,
+	0xABE,
+	0xAC6,
+	0xAC7,
+	0xACA,
+	0xACB,
+	0xACE,
+	0xAD0,
+	0xAD1,
+	0xAE0,
+	0xAE2,
+	0xAE4,
+	0xAE6,
+	0xAF0,
+	0xAF9,
+	0xAFA,
+	0xB01,
+	0xB04,
+	0xB05,
+	0xB0D,
+	0xB0F,
+	0xB11,
+	0xB13,
+	0xB29,
+	0xB2A,
+	0xB31,
+	0xB32,
+	0xB34,
+	0xB35,
+	0xB3A,
+	0xB3C,
+	0xB3D,
+	0xB3E,
+	0xB45,
+	0xB47,
+	0xB49,
+	0xB4B,
+	0xB4E,
+	0xB56,
+	0xB58,
+	0xB5C,
+	0xB5E,
+	0xB5F,
+	0xB62,
+	0xB64,
+	0xB66,
+	0xB70,
+	0xB71,
+	0xB72,
+	0xB82,
+	0xB83,
+	0xB84,
+	0xB85,
+	0xB8B,
+	0xB8E,
+	0xB91,
+	0xB92,
+	0xB96,
+	0xB99,
+	0xB9B,
+	0xB9C,
+	0xB9D,
+	0xB9E,
+	0xBA0,
+	0xBA3,
+	0xBA5,
+	0xBA8,
+	0xBAB,
+	0xBAE,
+	0xBBA,
+	0xBBE,
+	0xBC3,
+	0xBC6,
+	0xBC9,
+	0xBCA,
+	0xBCE,
+	0xBD0,
+	0xBD1,
+	0xBD7,
+	0xBD8,
+	0xBE6,
+	0xBF0,
+	0xC00,
+	0xC04,
+	0xC05,
+	0xC0D,
+	0xC0E,
+	0xC11,
+	0xC12,
+	0xC29,
+	0xC2A,
+	0xC3A,
+	0xC3D,
+	0xC3E,
+	0xC45,
+	0xC46,
+	0xC49,
+	0xC4A,
+	0xC4E,
+	0xC55,
+	0xC57,
+	0xC58,
+	0xC5B,
+	0xC60,
+	0xC62,
+	0xC64,
+	0xC66,
+	0xC70,
+	0xC81,
+	0xC84,
+	0xC85,
+	0xC8D,
+	0xC8E,
+	0xC91,
+	0xC92,
+	0xCA9,
+	0xCAA,
+	0xCB4,
+	0xCB5,
+	0xCBA,
+	0xCBC,
+	0xCBD,
+	0xCBE,
+	0xCC5,
+	0xCC6,
+	0xCC9,
+	0xCCA,
+	0xCCE,
+	0xCD5,
+	0xCD7,
+	0xCDE,
+	0xCDF,
+	0xCE0,
+	0xCE2,
+	0xCE4,
+	0xCE6,
+	0xCF0,
+	0xCF1,
+	0xCF3,
+	0xD01,
+	0xD04,
+	0xD05,
+	0xD0D,
+	0xD0E,
+	0xD11,
+	0xD12,
+	0xD3B,
+	0xD3D,
+	0xD3E,
+	0xD45,
+	0xD46,
+	0xD49,
+	0xD4A,
+	0xD4E,
+	0xD4F,
+	0xD57,
+	0xD58,
+	0xD5F,
+	0xD62,
+	0xD64,
+	0xD66,
+	0xD70,
+	0xD7A,
+	0xD80,
+	0xD82,
+	0xD84,
+	0xD85,
+	0xD97,
+	0xD9A,
+	0xDB2,
+	0xDB3,
+	0xDBC,
+	0xDBD,
+	0xDBE,
+	0xDC0,
+	0xDC7,
+	0xDCA,
+	0xDCB,
+	0xDCF,
+	0xDD5,
+	0xDD6,
+	0xDD7,
+	0xDD8,
+	0xDE0,
+	0xDE6,
+	0xDF0,
+	0xDF2,
+	0xDF4,
+	0xE31,
+	0xE32,
+	0xE34,
+	0xE3B,
+	0xE47,
+	0xE4F,
+	0xE50,
+	0xE5A,
+	0xEB1,
+	0xEB2,
+	0xEB4,
+	0xEBA,
+	0xEBB,
+	0xEBD,
+	0xEC8,
+	0xECE,
+	0xED0,
+	0xEDA,
+	0xF00,
+	0xF01,
+	0xF18,
+	0xF1A,
+	0xF20,
+	0xF2A,
+	0xF35,
+	0xF36,
+	0xF37,
+	0xF38,
+	0xF39,
+	0xF3A,
+	0xF3E,
+	0xF40,
+	0xF48,
+	0xF49,
+	0xF6D,
+	0xF71,
+	0xF85,
+	0xF86,
+	0xF88,
+	0xF8D,
+	0xF98,
+	0xF99,
+	0xFBD,
+	0xFC6,
+	0xFC7,
+	0x102B,
+	0x103F,
+	0x1040,
+	0x104A,
+	0x1056,
+	0x105A,
+	0x105E,
+	0x1061,
+	0x1062,
+	0x1065,
+	0x1067,
+	0x106E,
+	0x1071,
+	0x1075,
+	0x1082,
+	0x108E,
+	0x108F,
+	0x1090,
+	0x109A,
+	0x109E,
+	0x10A0,
+	0x10C6,
+	0x10C7,
+	0x10C8,
+	0x10CD,
+	0x10CE,
+	0x10D0,
+	0x10FB,
+	0x10FC,
+	0x1249,
+	0x124A,
+	0x124E,
+	0x1250,
+	0x1257,
+	0x1258,
+	0x1259,
+	0x125A,
+	0x125E,
+	0x1260,
+	0x1289,
+	0x128A,
+	0x128E,
+	0x1290,
+	0x12B1,
+	0x12B2,
+	0x12B6,
+	0x12B8,
+	0x12BF,
+	0x12C0,
+	0x12C1,
+	0x12C2,
+	0x12C6,
+	0x12C8,
+	0x12D7,
+	0x12D8,
+	0x1311,
+	0x1312,
+	0x1316,
+	0x1318,
+	0x135B,
+	0x135D,
+	0x1360,
+	0x1380,
+	0x1390,
+	0x13A0,
+	0x13F6,
+	0x13F8,
+	0x13FE,
+	0x1401,
+	0x166D,
+	0x166F,
+	0x1680,
+	0x1681,
+	0x169B,
+	0x16A0,
+	0x16EB,
+	0x16EE,
+	0x16F9,
+	0x1700,
+	0x170D,
+	0x170E,
+	0x1712,
+	0x1715,
+	0x1720,
+	0x1732,
+	0x1735,
+	0x1740,
+	0x1752,
+	0x1754,
+	0x1760,
+	0x176D,
+	0x176E,
+	0x1771,
+	0x1772,
+	0x1774,
+	0x17B4,
+	0x17D4,
+	0x17DD,
+	0x17DE,
+	0x17E0,
+	0x17EA,
+	0x180B,
+	0x180E,
+	0x180F,
+	0x1810,
+	0x181A,
+	0x1820,
+	0x1878,
+	0x1880,
+	0x18A9,
+	0x18AA,
+	0x18AB,
+	0x18B0,
+	0x18F6,
+	0x1900,
+	0x191F,
+	0x1920,
+	0x192C,
+	0x1930,
+	0x193C,
+	0x1946,
+	0x1950,
+	0x19D0,
+	0x19DA,
+	0x1A00,
+	0x1A17,
+	0x1A1C,
+	0x1A55,
+	0x1A5F,
+	0x1A60,
+	0x1A7D,
+	0x1A7F,
+	0x1A80,
+	0x1A8A,
+	0x1A90,
+	0x1A9A,
+	0x1AB0,
+	0x1ABF,
+	0x1B00,
+	0x1B05,
+	0x1B34,
+	0x1B45,
+	0x1B4C,
+	0x1B50,
+	0x1B5A,
+	0x1B6B,
+	0x1B74,
+	0x1B80,
+	0x1B83,
+	0x1BA1,
+	0x1BAE,
+	0x1BB0,
+	0x1BBA,
+	0x1BE6,
+	0x1BF4,
+	0x1C00,
+	0x1C24,
+	0x1C38,
+	0x1C40,
+	0x1C4A,
+	0x1C4D,
+	0x1C50,
+	0x1C5A,
+	0x1C7E,
+	0x1CD0,
+	0x1CD3,
+	0x1CD4,
+	0x1CE9,
+	0x1CED,
+	0x1CEE,
+	0x1CF2,
+	0x1CF5,
+	0x1CF7,
+	0x1CF8,
+	0x1CFA,
+	0x1D00,
+	0x1DC0,
+	0x1DF6,
+	0x1DFC,
+	0x1E00,
+	0x1F16,
+	0x1F18,
+	0x1F1E,
+	0x1F20,
+	0x1F46,
+	0x1F48,
+	0x1F4E,
+	0x1F50,
+	0x1F58,
+	0x1F59,
+	0x1F5A,
+	0x1F5B,
+	0x1F5C,
+	0x1F5D,
+	0x1F5E,
+	0x1F5F,
+	0x1F7E,
+	0x1F80,
+	0x1FB5,
+	0x1FB6,
+	0x1FBD,
+	0x1FBE,
+	0x1FBF,
+	0x1FC2,
+	0x1FC5,
+	0x1FC6,
+	0x1FCD,
+	0x1FD0,
+	0x1FD4,
+	0x1FD6,
+	0x1FDC,
+	0x1FE0,
+	0x1FED,
+	0x1FF2,
+	0x1FF5,
+	0x1FF6,
+	0x1FFD,
+	0x2000,
+	0x200B,
+	0x200C,
+	0x200E,
+	0x2010,
+	0x2018,
+	0x201A,
+	0x2024,
+	0x2025,
+	0x2027,
+	0x2028,
+	0x202A,
+	0x202F,
+	0x2030,
+	0x203F,
+	0x2041,
+	0x2044,
+	0x2045,
+	0x2054,
+	0x2055,
+	0x205F,
+	0x2060,
+	0x2065,
+	0x2066,
+	0x2070,
+	0x2071,
+	0x2072,
+	0x207F,
+	0x2080,
+	0x2090,
+	0x209D,
+	0x20D0,
+	0x20F1,
+	0x2102,
+	0x2103,
+	0x2107,
+	0x2108,
+	0x210A,
+	0x2114,
+	0x2115,
+	0x2116,
+	0x2119,
+	0x211E,
+	0x2124,
+	0x2125,
+	0x2126,
+	0x2127,
+	0x2128,
+	0x2129,
+	0x212A,
+	0x212E,
+	0x212F,
+	0x213A,
+	0x213C,
+	0x2140,
+	0x2145,
+	0x214A,
+	0x214E,
+	0x214F,
+	0x2160,
+	0x2189,
+	0x24B6,
+	0x24EA,
+	0x2C00,
+	0x2C2F,
+	0x2C30,
+	0x2C5F,
+	0x2C60,
+	0x2CE5,
+	0x2CEB,
+	0x2CEF,
+	0x2CF2,
+	0x2CF4,
+	0x2D00,
+	0x2D26,
+	0x2D27,
+	0x2D28,
+	0x2D2D,
+	0x2D2E,
+	0x2D30,
+	0x2D68,
+	0x2D6F,
+	0x2D70,
+	0x2D7F,
+	0x2D80,
+	0x2D97,
+	0x2DA0,
+	0x2DA7,
+	0x2DA8,
+	0x2DAF,
+	0x2DB0,
+	0x2DB7,
+	0x2DB8,
+	0x2DBF,
+	0x2DC0,
+	0x2DC7,
+	0x2DC8,
+	0x2DCF,
+	0x2DD0,
+	0x2DD7,
+	0x2DD8,
+	0x2DDF,
+	0x2DE0,
+	0x2E00,
+	0x2E2F,
+	0x2E30,
+	0x3000,
+	0x3001,
+	0x3005,
+	0x3006,
+	0x302A,
+	0x3030,
+	0x3031,
+	0x3036,
+	0x303B,
+	0x303D,
+	0x3099,
+	0x309B,
+	0x309D,
+	0x30A0,
+	0x30FB,
+	0x30FC,
+	0x3100,
+	0x3105,
+	0x312E,
+	0x3131,
+	0x318F,
+	0x31A0,
+	0x31BB,
+	0x31F0,
+	0x3200,
+	0x32D0,
+	0x32FF,
+	0x3300,
+	0x3358,
+	0xA000,
+	0xA48D,
+	0xA4D0,
+	0xA4FE,
+	0xA500,
+	0xA60D,
+	0xA610,
+	0xA620,
+	0xA62A,
+	0xA62C,
+	0xA640,
+	0xA66F,
+	0xA673,
+	0xA674,
+	0xA67E,
+	0xA67F,
+	0xA69E,
+	0xA6A0,
+	0xA6F0,
+	0xA6F2,
+	0xA717,
+	0xA720,
+	0xA722,
+	0xA789,
+	0xA78B,
+	0xA7AE,
+	0xA7B0,
+	0xA7B8,
+	0xA7F7,
+	0xA802,
+	0xA803,
+	0xA806,
+	0xA807,
+	0xA80B,
+	0xA80C,
+	0xA823,
+	0xA828,
+	0xA840,
+	0xA874,
+	0xA880,
+	0xA882,
+	0xA8B4,
+	0xA8C5,
+	0xA8D0,
+	0xA8DA,
+	0xA8E0,
+	0xA8F2,
+	0xA8F8,
+	0xA8FB,
+	0xA8FC,
+	0xA8FD,
+	0xA8FE,
+	0xA900,
+	0xA90A,
+	0xA926,
+	0xA92E,
+	0xA930,
+	0xA947,
+	0xA954,
+	0xA960,
+	0xA97D,
+	0xA980,
+	0xA984,
+	0xA9B3,
+	0xA9C1,
+	0xA9CF,
+	0xA9D0,
+	0xA9DA,
+	0xA9E5,
+	0xA9E6,
+	0xA9F0,
+	0xA9FA,
+	0xAA00,
+	0xAA29,
+	0xAA37,
+	0xAA40,
+	0xAA43,
+	0xAA44,
+	0xAA4C,
+	0xAA4E,
+	0xAA50,
+	0xAA5A,
+	0xAA7B,
+	0xAA7E,
+	0xAAB0,
+	0xAAB1,
+	0xAAB2,
+	0xAAB5,
+	0xAAB7,
+	0xAAB9,
+	0xAABE,
+	0xAAC0,
+	0xAAC1,
+	0xAAC2,
+	0xAAE0,
+	0xAAEB,
+	0xAAF0,
+	0xAAF2,
+	0xAAF5,
+	0xAAF7,
+	0xAB01,
+	0xAB07,
+	0xAB09,
+	0xAB0F,
+	0xAB11,
+	0xAB17,
+	0xAB20,
+	0xAB27,
+	0xAB28,
+	0xAB2F,
+	0xAB30,
+	0xAB5B,
+	0xAB5C,
+	0xAB66,
+	0xAB70,
+	0xABE3,
+	0xABEB,
+	0xABEC,
+	0xABEE,
+	0xABF0,
+	0xABFA,
+	0xAC00,
+	0xD7A4,
+	0xD7B0,
+	0xD7C7,
+	0xD7CB,
+	0xD7FC,
+	0xFB00,
+	0xFB07,
+	0xFB13,
+	0xFB18,
+	0xFB1D,
+	0xFB1E,
+	0xFB1F,
+	0xFB29,
+	0xFB2A,
+	0xFB37,
+	0xFB38,
+	0xFB3D,
+	0xFB3E,
+	0xFB3F,
+	0xFB40,
+	0xFB42,
+	0xFB43,
+	0xFB45,
+	0xFB46,
+	0xFB50,
+	0xFBB2,
+	0xFBD3,
+	0xFD3E,
+	0xFD50,
+	0xFD90,
+	0xFD92,
+	0xFDC8,
+	0xFDF0,
+	0xFDFC,
+	0xFE00,
+	0xFE10,
+	0xFE11,
+	0xFE13,
+	0xFE14,
+	0xFE15,
+	0xFE20,
+	0xFE30,
+	0xFE33,
+	0xFE35,
+	0xFE4D,
+	0xFE50,
+	0xFE51,
+	0xFE52,
+	0xFE53,
+	0xFE54,
+	0xFE55,
+	0xFE56,
+	0xFE70,
+	0xFE75,
+	0xFE76,
+	0xFEFD,
+	0xFEFF,
+	0xFF00,
+	0xFF07,
+	0xFF08,
+	0xFF0C,
+	0xFF0D,
+	0xFF0E,
+	0xFF0F,
+	0xFF1A,
+	0xFF1B,
+	0xFF1C,
+	0xFF21,
+	0xFF3B,
+	0xFF3F,
+	0xFF40,
+	0xFF41,
+	0xFF5B,
+	0xFF66,
+	0xFF9E,
+	0xFFA0,
+	0xFFBF,
+	0xFFC2,
+	0xFFC8,
+	0xFFCA,
+	0xFFD0,
+	0xFFD2,
+	0xFFD8,
+	0xFFDA,
+	0xFFDD,
+	0xFFF9,
+	0xFFFC,
+	0x10000,
+	0x1000C,
+	0x1000D,
+	0x10027,
+	0x10028,
+	0x1003B,
+	0x1003C,
+	0x1003E,
+	0x1003F,
+	0x1004E,
+	0x10050,
+	0x1005E,
+	0x10080,
+	0x100FB,
+	0x10140,
+	0x10175,
+	0x101FD,
+	0x101FE,
+	0x10280,
+	0x1029D,
+	0x102A0,
+	0x102D1,
+	0x102E0,
+	0x102E1,
+	0x10300,
+	0x10320,
+	0x10330,
+	0x1034B,
+	0x10350,
+	0x10376,
+	0x1037B,
+	0x10380,
+	0x1039E,
+	0x103A0,
+	0x103C4,
+	0x103C8,
+	0x103D0,
+	0x103D1,
+	0x103D6,
+	0x10400,
+	0x1049E,
+	0x104A0,
+	0x104AA,
+	0x10500,
+	0x10528,
+	0x10530,
+	0x10564,
+	0x10600,
+	0x10737,
+	0x10740,
+	0x10756,
+	0x10760,
+	0x10768,
+	0x10800,
+	0x10806,
+	0x10808,
+	0x10809,
+	0x1080A,
+	0x10836,
+	0x10837,
+	0x10839,
+	0x1083C,
+	0x1083D,
+	0x1083F,
+	0x10856,
+	0x10860,
+	0x10877,
+	0x10880,
+	0x1089F,
+	0x108E0,
+	0x108F3,
+	0x108F4,
+	0x108F6,
+	0x10900,
+	0x10916,
+	0x10920,
+	0x1093A,
+	0x10980,
+	0x109B8,
+	0x109BE,
+	0x109C0,
+	0x10A00,
+	0x10A01,
+	0x10A04,
+	0x10A05,
+	0x10A07,
+	0x10A0C,
+	0x10A10,
+	0x10A14,
+	0x10A15,
+	0x10A18,
+	0x10A19,
+	0x10A34,
+	0x10A38,
+	0x10A3B,
+	0x10A3F,
+	0x10A40,
+	0x10A60,
+	0x10A7D,
+	0x10A80,
+	0x10A9D,
+	0x10AC0,
+	0x10AC8,
+	0x10AC9,
+	0x10AE5,
+	0x10AE7,
+	0x10B00,
+	0x10B36,
+	0x10B40,
+	0x10B56,
+	0x10B60,
+	0x10B73,
+	0x10B80,
+	0x10B92,
+	0x10C00,
+	0x10C49,
+	0x10C80,
+	0x10CB3,
+	0x10CC0,
+	0x10CF3,
+	0x11000,
+	0x11003,
+	0x11038,
+	0x11047,
+	0x11066,
+	0x11070,
+	0x1107F,
+	0x11083,
+	0x110B0,
+	0x110BB,
+	0x110BD,
+	0x110BE,
+	0x110D0,
+	0x110E9,
+	0x110F0,
+	0x110FA,
+	0x11100,
+	0x11103,
+	0x11127,
+	0x11135,
+	0x11136,
+	0x11140,
+	0x11150,
+	0x11173,
+	0x11174,
+	0x11176,
+	0x11177,
+	0x11180,
+	0x11183,
+	0x111B3,
+	0x111C1,
+	0x111C5,
+	0x111CA,
+	0x111CD,
+	0x111D0,
+	0x111DA,
+	0x111DB,
+	0x111DC,
+	0x111DD,
+	0x11200,
+	0x11212,
+	0x11213,
+	0x1122C,
+	0x11238,
+	0x11280,
+	0x11287,
+	0x11288,
+	0x11289,
+	0x1128A,
+	0x1128E,
+	0x1128F,
+	0x1129E,
+	0x1129F,
+	0x112A9,
+	0x112B0,
+	0x112DF,
+	0x112EB,
+	0x112F0,
+	0x112FA,
+	0x11300,
+	0x11304,
+	0x11305,
+	0x1130D,
+	0x1130F,
+	0x11311,
+	0x11313,
+	0x11329,
+	0x1132A,
+	0x11331,
+	0x11332,
+	0x11334,
+	0x11335,
+	0x1133A,
+	0x1133C,
+	0x1133D,
+	0x1133E,
+	0x11345,
+	0x11347,
+	0x11349,
+	0x1134B,
+	0x1134E,
+	0x11350,
+	0x11351,
+	0x11357,
+	0x11358,
+	0x1135D,
+	0x11362,
+	0x11364,
+	0x11366,
+	0x1136D,
+	0x11370,
+	0x11375,
+	0x11480,
+	0x114B0,
+	0x114C4,
+	0x114C6,
+	0x114C7,
+	0x114C8,
+	0x114D0,
+	0x114DA,
+	0x11580,
+	0x115AF,
+	0x115B6,
+	0x115B8,
+	0x115C1,
+	0x115D8,
+	0x115DC,
+	0x115DE,
+	0x11600,
+	0x11630,
+	0x11641,
+	0x11644,
+	0x11645,
+	0x11650,
+	0x1165A,
+	0x11680,
+	0x116AB,
+	0x116B8,
+	0x116C0,
+	0x116CA,
+	0x1171D,
+	0x1172C,
+	0x11730,
+	0x1173A,
+	0x118A0,
+	0x118E0,
+	0x118EA,
+	0x118FF,
+	0x11900,
+	0x11AC0,
+	0x11AF9,
+	0x12000,
+	0x1239A,
+	0x12400,
+	0x1246F,
+	0x12480,
+	0x12544,
+	0x13000,
+	0x1342F,
+	0x14400,
+	0x14647,
+	0x16800,
+	0x16A39,
+	0x16A40,
+	0x16A5F,
+	0x16A60,
+	0x16A6A,
+	0x16AD0,
+	0x16AEE,
+	0x16AF0,
+	0x16AF5,
+	0x16B00,
+	0x16B30,
+	0x16B37,
+	0x16B40,
+	0x16B44,
+	0x16B50,
+	0x16B5A,
+	0x16B63,
+	0x16B78,
+	0x16B7D,
+	0x16B90,
+	0x16F00,
+	0x16F45,
+	0x16F50,
+	0x16F51,
+	0x16F7F,
+	0x16F8F,
+	0x16F93,
+	0x16FA0,
+	0x1B000,
+	0x1B001,
+	0x1BC00,
+	0x1BC6B,
+	0x1BC70,
+	0x1BC7D,
+	0x1BC80,
+	0x1BC89,
+	0x1BC90,
+	0x1BC9A,
+	0x1BC9D,
+	0x1BC9F,
+	0x1BCA0,
+	0x1BCA4,
+	0x1D165,
+	0x1D16A,
+	0x1D16D,
+	0x1D173,
+	0x1D17B,
+	0x1D183,
+	0x1D185,
+	0x1D18C,
+	0x1D1AA,
+	0x1D1AE,
+	0x1D242,
+	0x1D245,
+	0x1D400,
+	0x1D455,
+	0x1D456,
+	0x1D49D,
+	0x1D49E,
+	0x1D4A0,
+	0x1D4A2,
+	0x1D4A3,
+	0x1D4A5,
+	0x1D4A7,
+	0x1D4A9,
+	0x1D4AD,
+	0x1D4AE,
+	0x1D4BA,
+	0x1D4BB,
+	0x1D4BC,
+	0x1D4BD,
+	0x1D4C4,
+	0x1D4C5,
+	0x1D506,
+	0x1D507,
+	0x1D50B,
+	0x1D50D,
+	0x1D515,
+	0x1D516,
+	0x1D51D,
+	0x1D51E,
+	0x1D53A,
+	0x1D53B,
+	0x1D53F,
+	0x1D540,
+	0x1D545,
+	0x1D546,
+	0x1D547,
+	0x1D54A,
+	0x1D551,
+	0x1D552,
+	0x1D6A6,
+	0x1D6A8,
+	0x1D6C1,
+	0x1D6C2,
+	0x1D6DB,
+	0x1D6DC,
+	0x1D6FB,
+	0x1D6FC,
+	0x1D715,
+	0x1D716,
+	0x1D735,
+	0x1D736,
+	0x1D74F,
+	0x1D750,
+	0x1D76F,
+	0x1D770,
+	0x1D789,
+	0x1D78A,
+	0x1D7A9,
+	0x1D7AA,
+	0x1D7C3,
+	0x1D7C4,
+	0x1D7CC,
+	0x1D7CE,
+	0x1D800,
+	0x1DA00,
+	0x1DA37,
+	0x1DA3B,
+	0x1DA6D,
+	0x1DA75,
+	0x1DA76,
+	0x1DA84,
+	0x1DA85,
+	0x1DA9B,
+	0x1DAA0,
+	0x1DAA1,
+	0x1DAB0,
+	0x1E800,
+	0x1E8C5,
+	0x1E8D0,
+	0x1E8D7,
+	0x1EE00,
+	0x1EE04,
+	0x1EE05,
+	0x1EE20,
+	0x1EE21,
+	0x1EE23,
+	0x1EE24,
+	0x1EE25,
+	0x1EE27,
+	0x1EE28,
+	0x1EE29,
+	0x1EE33,
+	0x1EE34,
+	0x1EE38,
+	0x1EE39,
+	0x1EE3A,
+	0x1EE3B,
+	0x1EE3C,
+	0x1EE42,
+	0x1EE43,
+	0x1EE47,
+	0x1EE48,
+	0x1EE49,
+	0x1EE4A,
+	0x1EE4B,
+	0x1EE4C,
+	0x1EE4D,
+	0x1EE50,
+	0x1EE51,
+	0x1EE53,
+	0x1EE54,
+	0x1EE55,
+	0x1EE57,
+	0x1EE58,
+	0x1EE59,
+	0x1EE5A,
+	0x1EE5B,
+	0x1EE5C,
+	0x1EE5D,
+	0x1EE5E,
+	0x1EE5F,
+	0x1EE60,
+	0x1EE61,
+	0x1EE63,
+	0x1EE64,
+	0x1EE65,
+	0x1EE67,
+	0x1EE6B,
+	0x1EE6C,
+	0x1EE73,
+	0x1EE74,
+	0x1EE78,
+	0x1EE79,
+	0x1EE7D,
+	0x1EE7E,
+	0x1EE7F,
+	0x1EE80,
+	0x1EE8A,
+	0x1EE8B,
+	0x1EE9C,
+	0x1EEA1,
+	0x1EEA4,
+	0x1EEA5,
+	0x1EEAA,
+	0x1EEAB,
+	0x1EEBC,
+	0x1F130,
+	0x1F14A,
+	0x1F150,
+	0x1F16A,
+	0x1F170,
+	0x1F18A,
+	0x1F1E6,
+	0x1F200,
+	0xE0001,
+	0xE0002,
+	0xE0020,
+	0xE0080,
+	0xE0100,
+	0xE01F0
+};
+
+#endif	/* defined(PERL_IN_PERL_C) */
+
+#if defined(PERL_IN_REGEXEC_C)
+
+#define WB_ENUM_COUNT 20
+
+typedef enum {
+	WB_Other = 0,
+	WB_ALetter = 1,
+	WB_CR = 2,
+	WB_Double_Quote = 3,
+	WB_Extend = 4,
+	WB_ExtendNumLet = 5,
+	WB_Format = 6,
+	WB_Hebrew_Letter = 7,
+	WB_Katakana = 8,
+	WB_LF = 9,
+	WB_MidLetter = 10,
+	WB_MidNum = 11,
+	WB_MidNumLet = 12,
+	WB_Newline = 13,
+	WB_Numeric = 14,
+	WB_Perl_Tailored_HSpace = 15,
+	WB_Regional_Indicator = 16,
+	WB_Single_Quote = 17,
+	WB_EDGE = 18,
+	WB_UNKNOWN = 19
+} WB_enum;
+
+static const WB_enum _Perl_WB_invmap[] = { /* for ASCII/Latin1 */
+	WB_Other,
+	WB_Perl_Tailored_HSpace,
+	WB_LF,
+	WB_Newline,
+	WB_CR,
+	WB_Other,
+	WB_Perl_Tailored_HSpace,
+	WB_Other,
+	WB_Double_Quote,
+	WB_Other,
+	WB_Single_Quote,
+	WB_Other,
+	WB_MidNum,
+	WB_Other,
+	WB_MidNumLet,
+	WB_Other,
+	WB_Numeric,
+	WB_MidLetter,
+	WB_MidNum,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ExtendNumLet,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Newline,
+	WB_Other,
+	WB_Perl_Tailored_HSpace,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Format,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_MidLetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_MidLetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_MidNum,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_MidLetter,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_MidNum,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Hebrew_Letter,
+	WB_Other,
+	WB_Hebrew_Letter,
+	WB_ALetter,
+	WB_MidLetter,
+	WB_Other,
+	WB_Format,
+	WB_Other,
+	WB_MidNum,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Format,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Numeric,
+	WB_Other,
+	WB_Numeric,
+	WB_MidNum,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Format,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Numeric,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Format,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Other,
+	WB_Numeric,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Other,
+	WB_MidNum,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Numeric,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Numeric,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Perl_Tailored_HSpace,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_Extend,
+	WB_Format,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Numeric,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Numeric,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_ALetter,
+	WB_Numeric,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Perl_Tailored_HSpace,
+	WB_Other,
+	WB_Extend,
+	WB_Format,
+	WB_Other,
+	WB_MidNumLet,
+	WB_Other,
+	WB_MidNumLet,
+	WB_Other,
+	WB_MidLetter,
+	WB_Newline,
+	WB_Format,
+	WB_Perl_Tailored_HSpace,
+	WB_Other,
+	WB_ExtendNumLet,
+	WB_Other,
+	WB_MidNum,
+	WB_Other,
+	WB_ExtendNumLet,
+	WB_Other,
+	WB_Perl_Tailored_HSpace,
+	WB_Format,
+	WB_Other,
+	WB_Format,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Perl_Tailored_HSpace,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Katakana,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Katakana,
+	WB_Other,
+	WB_Katakana,
+	WB_Other,
+	WB_Katakana,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Katakana,
+	WB_Other,
+	WB_Katakana,
+	WB_Other,
+	WB_Katakana,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Numeric,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Numeric,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Numeric,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Hebrew_Letter,
+	WB_Extend,
+	WB_Hebrew_Letter,
+	WB_Other,
+	WB_Hebrew_Letter,
+	WB_Other,
+	WB_Hebrew_Letter,
+	WB_Other,
+	WB_Hebrew_Letter,
+	WB_Other,
+	WB_Hebrew_Letter,
+	WB_Other,
+	WB_Hebrew_Letter,
+	WB_Other,
+	WB_Hebrew_Letter,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_MidNum,
+	WB_Other,
+	WB_MidLetter,
+	WB_MidNum,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ExtendNumLet,
+	WB_Other,
+	WB_ExtendNumLet,
+	WB_MidNum,
+	WB_Other,
+	WB_MidNumLet,
+	WB_Other,
+	WB_MidNum,
+	WB_MidLetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Format,
+	WB_Other,
+	WB_MidNumLet,
+	WB_Other,
+	WB_MidNum,
+	WB_Other,
+	WB_MidNumLet,
+	WB_Other,
+	WB_MidLetter,
+	WB_MidNum,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ExtendNumLet,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Katakana,
+	WB_Extend,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Format,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Format,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_ALetter,
+	WB_Numeric,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Other,
+	WB_Katakana,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Format,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Format,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Regional_Indicator,
+	WB_Other,
+	WB_Format,
+	WB_Other,
+	WB_Format,
+	WB_Other,
+	WB_Extend,
+	WB_Other
+};
+
+#endif	/* defined(PERL_IN_REGEXEC_C) */
+
+#if defined(PERL_IN_REGCOMP_C)
+
+static const UV UpperLatin1_invlist[] = { /* for ASCII/Latin1 */
+	3,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	1,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x80,
+	0x100
+};
+
+#endif	/* defined(PERL_IN_REGCOMP_C) */
+
+#if defined(PERL_IN_PERL_C)
+
+static const UV VertSpace_invlist[] = { /* for ASCII/Latin1 */
+	7,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	1,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0xA,
+	0xE,
+	0x85,
+	0x86,
+	0x2028,
+	0x202A
+};
+
+static const UV XPerlSpace_invlist[] = { /* for ASCII/Latin1 */
+	21,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	1,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x9,
+	0xE,
+	0x20,
+	0x21,
+	0x85,
+	0x86,
+	0xA0,
+	0xA1,
+	0x1680,
+	0x1681,
+	0x2000,
+	0x200B,
+	0x2028,
+	0x202A,
+	0x202F,
+	0x2030,
+	0x205F,
+	0x2060,
+	0x3000,
+	0x3001
+};
+
+static const UV XPosixAlnum_invlist[] = { /* for ASCII/Latin1 */
+	1297,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	1,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x30,
+	0x3A,
+	0x41,
+	0x5B,
+	0x61,
+	0x7B,
+	0xAA,
+	0xAB,
+	0xB5,
+	0xB6,
+	0xBA,
+	0xBB,
+	0xC0,
+	0xD7,
+	0xD8,
+	0xF7,
+	0xF8,
+	0x2C2,
+	0x2C6,
+	0x2D2,
+	0x2E0,
+	0x2E5,
+	0x2EC,
+	0x2ED,
+	0x2EE,
+	0x2EF,
+	0x345,
+	0x346,
+	0x370,
+	0x375,
+	0x376,
+	0x378,
+	0x37A,
+	0x37E,
+	0x37F,
+	0x380,
+	0x386,
+	0x387,
+	0x388,
+	0x38B,
+	0x38C,
+	0x38D,
+	0x38E,
+	0x3A2,
+	0x3A3,
+	0x3F6,
+	0x3F7,
+	0x482,
+	0x48A,
+	0x530,
+	0x531,
+	0x557,
+	0x559,
+	0x55A,
+	0x561,
+	0x588,
+	0x5B0,
+	0x5BE,
+	0x5BF,
+	0x5C0,
+	0x5C1,
+	0x5C3,
+	0x5C4,
+	0x5C6,
+	0x5C7,
+	0x5C8,
+	0x5D0,
+	0x5EB,
+	0x5F0,
+	0x5F3,
+	0x610,
+	0x61B,
+	0x620,
+	0x658,
+	0x659,
+	0x66A,
+	0x66E,
+	0x6D4,
+	0x6D5,
+	0x6DD,
+	0x6E1,
+	0x6E9,
+	0x6ED,
+	0x6FD,
+	0x6FF,
+	0x700,
+	0x710,
+	0x740,
+	0x74D,
+	0x7B2,
+	0x7C0,
+	0x7EB,
+	0x7F4,
+	0x7F6,
+	0x7FA,
+	0x7FB,
+	0x800,
+	0x818,
+	0x81A,
+	0x82D,
+	0x840,
+	0x859,
+	0x8A0,
+	0x8B5,
+	0x8E3,
+	0x8EA,
+	0x8F0,
+	0x93C,
+	0x93D,
+	0x94D,
+	0x94E,
+	0x951,
+	0x955,
+	0x964,
+	0x966,
+	0x970,
+	0x971,
+	0x984,
+	0x985,
+	0x98D,
+	0x98F,
+	0x991,
+	0x993,
+	0x9A9,
+	0x9AA,
+	0x9B1,
+	0x9B2,
+	0x9B3,
+	0x9B6,
+	0x9BA,
+	0x9BD,
+	0x9C5,
+	0x9C7,
+	0x9C9,
+	0x9CB,
+	0x9CD,
+	0x9CE,
+	0x9CF,
+	0x9D7,
+	0x9D8,
+	0x9DC,
+	0x9DE,
+	0x9DF,
+	0x9E4,
+	0x9E6,
+	0x9F2,
+	0xA01,
+	0xA04,
+	0xA05,
+	0xA0B,
+	0xA0F,
+	0xA11,
+	0xA13,
+	0xA29,
+	0xA2A,
+	0xA31,
+	0xA32,
+	0xA34,
+	0xA35,
+	0xA37,
+	0xA38,
+	0xA3A,
+	0xA3E,
+	0xA43,
+	0xA47,
+	0xA49,
+	0xA4B,
+	0xA4D,
+	0xA51,
+	0xA52,
+	0xA59,
+	0xA5D,
+	0xA5E,
+	0xA5F,
+	0xA66,
+	0xA76,
+	0xA81,
+	0xA84,
+	0xA85,
+	0xA8E,
+	0xA8F,
+	0xA92,
+	0xA93,
+	0xAA9,
+	0xAAA,
+	0xAB1,
+	0xAB2,
+	0xAB4,
+	0xAB5,
+	0xABA,
+	0xABD,
+	0xAC6,
+	0xAC7,
+	0xACA,
+	0xACB,
+	0xACD,
+	0xAD0,
+	0xAD1,
+	0xAE0,
+	0xAE4,
+	0xAE6,
+	0xAF0,
+	0xAF9,
+	0xAFA,
+	0xB01,
+	0xB04,
+	0xB05,
+	0xB0D,
+	0xB0F,
+	0xB11,
+	0xB13,
+	0xB29,
+	0xB2A,
+	0xB31,
+	0xB32,
+	0xB34,
+	0xB35,
+	0xB3A,
+	0xB3D,
+	0xB45,
+	0xB47,
+	0xB49,
+	0xB4B,
+	0xB4D,
+	0xB56,
+	0xB58,
+	0xB5C,
+	0xB5E,
+	0xB5F,
+	0xB64,
+	0xB66,
+	0xB70,
+	0xB71,
+	0xB72,
+	0xB82,
+	0xB84,
+	0xB85,
+	0xB8B,
+	0xB8E,
+	0xB91,
+	0xB92,
+	0xB96,
+	0xB99,
+	0xB9B,
+	0xB9C,
+	0xB9D,
+	0xB9E,
+	0xBA0,
+	0xBA3,
+	0xBA5,
+	0xBA8,
+	0xBAB,
+	0xBAE,
+	0xBBA,
+	0xBBE,
+	0xBC3,
+	0xBC6,
+	0xBC9,
+	0xBCA,
+	0xBCD,
+	0xBD0,
+	0xBD1,
+	0xBD7,
+	0xBD8,
+	0xBE6,
+	0xBF0,
+	0xC00,
+	0xC04,
+	0xC05,
+	0xC0D,
+	0xC0E,
+	0xC11,
+	0xC12,
+	0xC29,
+	0xC2A,
+	0xC3A,
+	0xC3D,
+	0xC45,
+	0xC46,
+	0xC49,
+	0xC4A,
+	0xC4D,
+	0xC55,
+	0xC57,
+	0xC58,
+	0xC5B,
+	0xC60,
+	0xC64,
+	0xC66,
+	0xC70,
+	0xC81,
+	0xC84,
+	0xC85,
+	0xC8D,
+	0xC8E,
+	0xC91,
+	0xC92,
+	0xCA9,
+	0xCAA,
+	0xCB4,
+	0xCB5,
+	0xCBA,
+	0xCBD,
+	0xCC5,
+	0xCC6,
+	0xCC9,
+	0xCCA,
+	0xCCD,
+	0xCD5,
+	0xCD7,
+	0xCDE,
+	0xCDF,
+	0xCE0,
+	0xCE4,
+	0xCE6,
+	0xCF0,
+	0xCF1,
+	0xCF3,
+	0xD01,
+	0xD04,
+	0xD05,
+	0xD0D,
+	0xD0E,
+	0xD11,
+	0xD12,
+	0xD3B,
+	0xD3D,
+	0xD45,
+	0xD46,
+	0xD49,
+	0xD4A,
+	0xD4D,
+	0xD4E,
+	0xD4F,
+	0xD57,
+	0xD58,
+	0xD5F,
+	0xD64,
+	0xD66,
+	0xD70,
+	0xD7A,
+	0xD80,
+	0xD82,
+	0xD84,
+	0xD85,
+	0xD97,
+	0xD9A,
+	0xDB2,
+	0xDB3,
+	0xDBC,
+	0xDBD,
+	0xDBE,
+	0xDC0,
+	0xDC7,
+	0xDCF,
+	0xDD5,
+	0xDD6,
+	0xDD7,
+	0xDD8,
+	0xDE0,
+	0xDE6,
+	0xDF0,
+	0xDF2,
+	0xDF4,
+	0xE01,
+	0xE3B,
+	0xE40,
+	0xE47,
+	0xE4D,
+	0xE4E,
+	0xE50,
+	0xE5A,
+	0xE81,
+	0xE83,
+	0xE84,
+	0xE85,
+	0xE87,
+	0xE89,
+	0xE8A,
+	0xE8B,
+	0xE8D,
+	0xE8E,
+	0xE94,
+	0xE98,
+	0xE99,
+	0xEA0,
+	0xEA1,
+	0xEA4,
+	0xEA5,
+	0xEA6,
+	0xEA7,
+	0xEA8,
+	0xEAA,
+	0xEAC,
+	0xEAD,
+	0xEBA,
+	0xEBB,
+	0xEBE,
+	0xEC0,
+	0xEC5,
+	0xEC6,
+	0xEC7,
+	0xECD,
+	0xECE,
+	0xED0,
+	0xEDA,
+	0xEDC,
+	0xEE0,
+	0xF00,
+	0xF01,
+	0xF20,
+	0xF2A,
+	0xF40,
+	0xF48,
+	0xF49,
+	0xF6D,
+	0xF71,
+	0xF82,
+	0xF88,
+	0xF98,
+	0xF99,
+	0xFBD,
+	0x1000,
+	0x1037,
+	0x1038,
+	0x1039,
+	0x103B,
+	0x104A,
+	0x1050,
+	0x1063,
+	0x1065,
+	0x1069,
+	0x106E,
+	0x1087,
+	0x108E,
+	0x108F,
+	0x1090,
+	0x109A,
+	0x109C,
+	0x109E,
+	0x10A0,
+	0x10C6,
+	0x10C7,
+	0x10C8,
+	0x10CD,
+	0x10CE,
+	0x10D0,
+	0x10FB,
+	0x10FC,
+	0x1249,
+	0x124A,
+	0x124E,
+	0x1250,
+	0x1257,
+	0x1258,
+	0x1259,
+	0x125A,
+	0x125E,
+	0x1260,
+	0x1289,
+	0x128A,
+	0x128E,
+	0x1290,
+	0x12B1,
+	0x12B2,
+	0x12B6,
+	0x12B8,
+	0x12BF,
+	0x12C0,
+	0x12C1,
+	0x12C2,
+	0x12C6,
+	0x12C8,
+	0x12D7,
+	0x12D8,
+	0x1311,
+	0x1312,
+	0x1316,
+	0x1318,
+	0x135B,
+	0x135F,
+	0x1360,
+	0x1380,
+	0x1390,
+	0x13A0,
+	0x13F6,
+	0x13F8,
+	0x13FE,
+	0x1401,
+	0x166D,
+	0x166F,
+	0x1680,
+	0x1681,
+	0x169B,
+	0x16A0,
+	0x16EB,
+	0x16EE,
+	0x16F9,
+	0x1700,
+	0x170D,
+	0x170E,
+	0x1714,
+	0x1720,
+	0x1734,
+	0x1740,
+	0x1754,
+	0x1760,
+	0x176D,
+	0x176E,
+	0x1771,
+	0x1772,
+	0x1774,
+	0x1780,
+	0x17B4,
+	0x17B6,
+	0x17C9,
+	0x17D7,
+	0x17D8,
+	0x17DC,
+	0x17DD,
+	0x17E0,
+	0x17EA,
+	0x1810,
+	0x181A,
+	0x1820,
+	0x1878,
+	0x1880,
+	0x18AB,
+	0x18B0,
+	0x18F6,
+	0x1900,
+	0x191F,
+	0x1920,
+	0x192C,
+	0x1930,
+	0x1939,
+	0x1946,
+	0x196E,
+	0x1970,
+	0x1975,
+	0x1980,
+	0x19AC,
+	0x19B0,
+	0x19CA,
+	0x19D0,
+	0x19DA,
+	0x1A00,
+	0x1A1C,
+	0x1A20,
+	0x1A5F,
+	0x1A61,
+	0x1A75,
+	0x1A80,
+	0x1A8A,
+	0x1A90,
+	0x1A9A,
+	0x1AA7,
+	0x1AA8,
+	0x1B00,
+	0x1B34,
+	0x1B35,
+	0x1B44,
+	0x1B45,
+	0x1B4C,
+	0x1B50,
+	0x1B5A,
+	0x1B80,
+	0x1BAA,
+	0x1BAC,
+	0x1BE6,
+	0x1BE7,
+	0x1BF2,
+	0x1C00,
+	0x1C36,
+	0x1C40,
+	0x1C4A,
+	0x1C4D,
+	0x1C7E,
+	0x1CE9,
+	0x1CED,
+	0x1CEE,
+	0x1CF4,
+	0x1CF5,
+	0x1CF7,
+	0x1D00,
+	0x1DC0,
+	0x1DE7,
+	0x1DF5,
+	0x1E00,
+	0x1F16,
+	0x1F18,
+	0x1F1E,
+	0x1F20,
+	0x1F46,
+	0x1F48,
+	0x1F4E,
+	0x1F50,
+	0x1F58,
+	0x1F59,
+	0x1F5A,
+	0x1F5B,
+	0x1F5C,
+	0x1F5D,
+	0x1F5E,
+	0x1F5F,
+	0x1F7E,
+	0x1F80,
+	0x1FB5,
+	0x1FB6,
+	0x1FBD,
+	0x1FBE,
+	0x1FBF,
+	0x1FC2,
+	0x1FC5,
+	0x1FC6,
+	0x1FCD,
+	0x1FD0,
+	0x1FD4,
+	0x1FD6,
+	0x1FDC,
+	0x1FE0,
+	0x1FED,
+	0x1FF2,
+	0x1FF5,
+	0x1FF6,
+	0x1FFD,
+	0x2071,
+	0x2072,
+	0x207F,
+	0x2080,
+	0x2090,
+	0x209D,
+	0x2102,
+	0x2103,
+	0x2107,
+	0x2108,
+	0x210A,
+	0x2114,
+	0x2115,
+	0x2116,
+	0x2119,
+	0x211E,
+	0x2124,
+	0x2125,
+	0x2126,
+	0x2127,
+	0x2128,
+	0x2129,
+	0x212A,
+	0x212E,
+	0x212F,
+	0x213A,
+	0x213C,
+	0x2140,
+	0x2145,
+	0x214A,
+	0x214E,
+	0x214F,
+	0x2160,
+	0x2189,
+	0x24B6,
+	0x24EA,
+	0x2C00,
+	0x2C2F,
+	0x2C30,
+	0x2C5F,
+	0x2C60,
+	0x2CE5,
+	0x2CEB,
+	0x2CEF,
+	0x2CF2,
+	0x2CF4,
+	0x2D00,
+	0x2D26,
+	0x2D27,
+	0x2D28,
+	0x2D2D,
+	0x2D2E,
+	0x2D30,
+	0x2D68,
+	0x2D6F,
+	0x2D70,
+	0x2D80,
+	0x2D97,
+	0x2DA0,
+	0x2DA7,
+	0x2DA8,
+	0x2DAF,
+	0x2DB0,
+	0x2DB7,
+	0x2DB8,
+	0x2DBF,
+	0x2DC0,
+	0x2DC7,
+	0x2DC8,
+	0x2DCF,
+	0x2DD0,
+	0x2DD7,
+	0x2DD8,
+	0x2DDF,
+	0x2DE0,
+	0x2E00,
+	0x2E2F,
+	0x2E30,
+	0x3005,
+	0x3008,
+	0x3021,
+	0x302A,
+	0x3031,
+	0x3036,
+	0x3038,
+	0x303D,
+	0x3041,
+	0x3097,
+	0x309D,
+	0x30A0,
+	0x30A1,
+	0x30FB,
+	0x30FC,
+	0x3100,
+	0x3105,
+	0x312E,
+	0x3131,
+	0x318F,
+	0x31A0,
+	0x31BB,
+	0x31F0,
+	0x3200,
+	0x3400,
+	0x4DB6,
+	0x4E00,
+	0x9FD6,
+	0xA000,
+	0xA48D,
+	0xA4D0,
+	0xA4FE,
+	0xA500,
+	0xA60D,
+	0xA610,
+	0xA62C,
+	0xA640,
+	0xA66F,
+	0xA674,
+	0xA67C,
+	0xA67F,
+	0xA6F0,
+	0xA717,
+	0xA720,
+	0xA722,
+	0xA789,
+	0xA78B,
+	0xA7AE,
+	0xA7B0,
+	0xA7B8,
+	0xA7F7,
+	0xA802,
+	0xA803,
+	0xA806,
+	0xA807,
+	0xA80B,
+	0xA80C,
+	0xA828,
+	0xA840,
+	0xA874,
+	0xA880,
+	0xA8C4,
+	0xA8D0,
+	0xA8DA,
+	0xA8F2,
+	0xA8F8,
+	0xA8FB,
+	0xA8FC,
+	0xA8FD,
+	0xA8FE,
+	0xA900,
+	0xA92B,
+	0xA930,
+	0xA953,
+	0xA960,
+	0xA97D,
+	0xA980,
+	0xA9B3,
+	0xA9B4,
+	0xA9C0,
+	0xA9CF,
+	0xA9DA,
+	0xA9E0,
+	0xA9E5,
+	0xA9E6,
+	0xA9FF,
+	0xAA00,
+	0xAA37,
+	0xAA40,
+	0xAA4E,
+	0xAA50,
+	0xAA5A,
+	0xAA60,
+	0xAA77,
+	0xAA7A,
+	0xAA7B,
+	0xAA7E,
+	0xAABF,
+	0xAAC0,
+	0xAAC1,
+	0xAAC2,
+	0xAAC3,
+	0xAADB,
+	0xAADE,
+	0xAAE0,
+	0xAAF0,
+	0xAAF2,
+	0xAAF6,
+	0xAB01,
+	0xAB07,
+	0xAB09,
+	0xAB0F,
+	0xAB11,
+	0xAB17,
+	0xAB20,
+	0xAB27,
+	0xAB28,
+	0xAB2F,
+	0xAB30,
+	0xAB5B,
+	0xAB5C,
+	0xAB66,
+	0xAB70,
+	0xABEB,
+	0xABF0,
+	0xABFA,
+	0xAC00,
+	0xD7A4,
+	0xD7B0,
+	0xD7C7,
+	0xD7CB,
+	0xD7FC,
+	0xF900,
+	0xFA6E,
+	0xFA70,
+	0xFADA,
+	0xFB00,
+	0xFB07,
+	0xFB13,
+	0xFB18,
+	0xFB1D,
+	0xFB29,
+	0xFB2A,
+	0xFB37,
+	0xFB38,
+	0xFB3D,
+	0xFB3E,
+	0xFB3F,
+	0xFB40,
+	0xFB42,
+	0xFB43,
+	0xFB45,
+	0xFB46,
+	0xFBB2,
+	0xFBD3,
+	0xFD3E,
+	0xFD50,
+	0xFD90,
+	0xFD92,
+	0xFDC8,
+	0xFDF0,
+	0xFDFC,
+	0xFE70,
+	0xFE75,
+	0xFE76,
+	0xFEFD,
+	0xFF10,
+	0xFF1A,
+	0xFF21,
+	0xFF3B,
+	0xFF41,
+	0xFF5B,
+	0xFF66,
+	0xFFBF,
+	0xFFC2,
+	0xFFC8,
+	0xFFCA,
+	0xFFD0,
+	0xFFD2,
+	0xFFD8,
+	0xFFDA,
+	0xFFDD,
+	0x10000,
+	0x1000C,
+	0x1000D,
+	0x10027,
+	0x10028,
+	0x1003B,
+	0x1003C,
+	0x1003E,
+	0x1003F,
+	0x1004E,
+	0x10050,
+	0x1005E,
+	0x10080,
+	0x100FB,
+	0x10140,
+	0x10175,
+	0x10280,
+	0x1029D,
+	0x102A0,
+	0x102D1,
+	0x10300,
+	0x10320,
+	0x10330,
+	0x1034B,
+	0x10350,
+	0x1037B,
+	0x10380,
+	0x1039E,
+	0x103A0,
+	0x103C4,
+	0x103C8,
+	0x103D0,
+	0x103D1,
+	0x103D6,
+	0x10400,
+	0x1049E,
+	0x104A0,
+	0x104AA,
+	0x10500,
+	0x10528,
+	0x10530,
+	0x10564,
+	0x10600,
+	0x10737,
+	0x10740,
+	0x10756,
+	0x10760,
+	0x10768,
+	0x10800,
+	0x10806,
+	0x10808,
+	0x10809,
+	0x1080A,
+	0x10836,
+	0x10837,
+	0x10839,
+	0x1083C,
+	0x1083D,
+	0x1083F,
+	0x10856,
+	0x10860,
+	0x10877,
+	0x10880,
+	0x1089F,
+	0x108E0,
+	0x108F3,
+	0x108F4,
+	0x108F6,
+	0x10900,
+	0x10916,
+	0x10920,
+	0x1093A,
+	0x10980,
+	0x109B8,
+	0x109BE,
+	0x109C0,
+	0x10A00,
+	0x10A04,
+	0x10A05,
+	0x10A07,
+	0x10A0C,
+	0x10A14,
+	0x10A15,
+	0x10A18,
+	0x10A19,
+	0x10A34,
+	0x10A60,
+	0x10A7D,
+	0x10A80,
+	0x10A9D,
+	0x10AC0,
+	0x10AC8,
+	0x10AC9,
+	0x10AE5,
+	0x10B00,
+	0x10B36,
+	0x10B40,
+	0x10B56,
+	0x10B60,
+	0x10B73,
+	0x10B80,
+	0x10B92,
+	0x10C00,
+	0x10C49,
+	0x10C80,
+	0x10CB3,
+	0x10CC0,
+	0x10CF3,
+	0x11000,
+	0x11046,
+	0x11066,
+	0x11070,
+	0x11082,
+	0x110B9,
+	0x110D0,
+	0x110E9,
+	0x110F0,
+	0x110FA,
+	0x11100,
+	0x11133,
+	0x11136,
+	0x11140,
+	0x11150,
+	0x11173,
+	0x11176,
+	0x11177,
+	0x11180,
+	0x111C0,
+	0x111C1,
+	0x111C5,
+	0x111D0,
+	0x111DB,
+	0x111DC,
+	0x111DD,
+	0x11200,
+	0x11212,
+	0x11213,
+	0x11235,
+	0x11237,
+	0x11238,
+	0x11280,
+	0x11287,
+	0x11288,
+	0x11289,
+	0x1128A,
+	0x1128E,
+	0x1128F,
+	0x1129E,
+	0x1129F,
+	0x112A9,
+	0x112B0,
+	0x112E9,
+	0x112F0,
+	0x112FA,
+	0x11300,
+	0x11304,
+	0x11305,
+	0x1130D,
+	0x1130F,
+	0x11311,
+	0x11313,
+	0x11329,
+	0x1132A,
+	0x11331,
+	0x11332,
+	0x11334,
+	0x11335,
+	0x1133A,
+	0x1133D,
+	0x11345,
+	0x11347,
+	0x11349,
+	0x1134B,
+	0x1134D,
+	0x11350,
+	0x11351,
+	0x11357,
+	0x11358,
+	0x1135D,
+	0x11364,
+	0x11480,
+	0x114C2,
+	0x114C4,
+	0x114C6,
+	0x114C7,
+	0x114C8,
+	0x114D0,
+	0x114DA,
+	0x11580,
+	0x115B6,
+	0x115B8,
+	0x115BF,
+	0x115D8,
+	0x115DE,
+	0x11600,
+	0x1163F,
+	0x11640,
+	0x11641,
+	0x11644,
+	0x11645,
+	0x11650,
+	0x1165A,
+	0x11680,
+	0x116B6,
+	0x116C0,
+	0x116CA,
+	0x11700,
+	0x1171A,
+	0x1171D,
+	0x1172B,
+	0x11730,
+	0x1173A,
+	0x118A0,
+	0x118EA,
+	0x118FF,
+	0x11900,
+	0x11AC0,
+	0x11AF9,
+	0x12000,
+	0x1239A,
+	0x12400,
+	0x1246F,
+	0x12480,
+	0x12544,
+	0x13000,
+	0x1342F,
+	0x14400,
+	0x14647,
+	0x16800,
+	0x16A39,
+	0x16A40,
+	0x16A5F,
+	0x16A60,
+	0x16A6A,
+	0x16AD0,
+	0x16AEE,
+	0x16B00,
+	0x16B37,
+	0x16B40,
+	0x16B44,
+	0x16B50,
+	0x16B5A,
+	0x16B63,
+	0x16B78,
+	0x16B7D,
+	0x16B90,
+	0x16F00,
+	0x16F45,
+	0x16F50,
+	0x16F7F,
+	0x16F93,
+	0x16FA0,
+	0x1B000,
+	0x1B002,
+	0x1BC00,
+	0x1BC6B,
+	0x1BC70,
+	0x1BC7D,
+	0x1BC80,
+	0x1BC89,
+	0x1BC90,
+	0x1BC9A,
+	0x1BC9E,
+	0x1BC9F,
+	0x1D400,
+	0x1D455,
+	0x1D456,
+	0x1D49D,
+	0x1D49E,
+	0x1D4A0,
+	0x1D4A2,
+	0x1D4A3,
+	0x1D4A5,
+	0x1D4A7,
+	0x1D4A9,
+	0x1D4AD,
+	0x1D4AE,
+	0x1D4BA,
+	0x1D4BB,
+	0x1D4BC,
+	0x1D4BD,
+	0x1D4C4,
+	0x1D4C5,
+	0x1D506,
+	0x1D507,
+	0x1D50B,
+	0x1D50D,
+	0x1D515,
+	0x1D516,
+	0x1D51D,
+	0x1D51E,
+	0x1D53A,
+	0x1D53B,
+	0x1D53F,
+	0x1D540,
+	0x1D545,
+	0x1D546,
+	0x1D547,
+	0x1D54A,
+	0x1D551,
+	0x1D552,
+	0x1D6A6,
+	0x1D6A8,
+	0x1D6C1,
+	0x1D6C2,
+	0x1D6DB,
+	0x1D6DC,
+	0x1D6FB,
+	0x1D6FC,
+	0x1D715,
+	0x1D716,
+	0x1D735,
+	0x1D736,
+	0x1D74F,
+	0x1D750,
+	0x1D76F,
+	0x1D770,
+	0x1D789,
+	0x1D78A,
+	0x1D7A9,
+	0x1D7AA,
+	0x1D7C3,
+	0x1D7C4,
+	0x1D7CC,
+	0x1D7CE,
+	0x1D800,
+	0x1E800,
+	0x1E8C5,
+	0x1EE00,
+	0x1EE04,
+	0x1EE05,
+	0x1EE20,
+	0x1EE21,
+	0x1EE23,
+	0x1EE24,
+	0x1EE25,
+	0x1EE27,
+	0x1EE28,
+	0x1EE29,
+	0x1EE33,
+	0x1EE34,
+	0x1EE38,
+	0x1EE39,
+	0x1EE3A,
+	0x1EE3B,
+	0x1EE3C,
+	0x1EE42,
+	0x1EE43,
+	0x1EE47,
+	0x1EE48,
+	0x1EE49,
+	0x1EE4A,
+	0x1EE4B,
+	0x1EE4C,
+	0x1EE4D,
+	0x1EE50,
+	0x1EE51,
+	0x1EE53,
+	0x1EE54,
+	0x1EE55,
+	0x1EE57,
+	0x1EE58,
+	0x1EE59,
+	0x1EE5A,
+	0x1EE5B,
+	0x1EE5C,
+	0x1EE5D,
+	0x1EE5E,
+	0x1EE5F,
+	0x1EE60,
+	0x1EE61,
+	0x1EE63,
+	0x1EE64,
+	0x1EE65,
+	0x1EE67,
+	0x1EE6B,
+	0x1EE6C,
+	0x1EE73,
+	0x1EE74,
+	0x1EE78,
+	0x1EE79,
+	0x1EE7D,
+	0x1EE7E,
+	0x1EE7F,
+	0x1EE80,
+	0x1EE8A,
+	0x1EE8B,
+	0x1EE9C,
+	0x1EEA1,
+	0x1EEA4,
+	0x1EEA5,
+	0x1EEAA,
+	0x1EEAB,
+	0x1EEBC,
+	0x1F130,
+	0x1F14A,
+	0x1F150,
+	0x1F16A,
+	0x1F170,
+	0x1F18A,
+	0x20000,
+	0x2A6D7,
+	0x2A700,
+	0x2B735,
+	0x2B740,
+	0x2B81E,
+	0x2B820,
+	0x2CEA2,
+	0x2F800,
+	0x2FA1E
+};
+
+static const UV XPosixAlpha_invlist[] = { /* for ASCII/Latin1 */
+	1235,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	1,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x41,
+	0x5B,
+	0x61,
+	0x7B,
+	0xAA,
+	0xAB,
+	0xB5,
+	0xB6,
+	0xBA,
+	0xBB,
+	0xC0,
+	0xD7,
+	0xD8,
+	0xF7,
+	0xF8,
+	0x2C2,
+	0x2C6,
+	0x2D2,
+	0x2E0,
+	0x2E5,
+	0x2EC,
+	0x2ED,
+	0x2EE,
+	0x2EF,
+	0x345,
+	0x346,
+	0x370,
+	0x375,
+	0x376,
+	0x378,
+	0x37A,
+	0x37E,
+	0x37F,
+	0x380,
+	0x386,
+	0x387,
+	0x388,
+	0x38B,
+	0x38C,
+	0x38D,
+	0x38E,
+	0x3A2,
+	0x3A3,
+	0x3F6,
+	0x3F7,
+	0x482,
+	0x48A,
+	0x530,
+	0x531,
+	0x557,
+	0x559,
+	0x55A,
+	0x561,
+	0x588,
+	0x5B0,
+	0x5BE,
+	0x5BF,
+	0x5C0,
+	0x5C1,
+	0x5C3,
+	0x5C4,
+	0x5C6,
+	0x5C7,
+	0x5C8,
+	0x5D0,
+	0x5EB,
+	0x5F0,
+	0x5F3,
+	0x610,
+	0x61B,
+	0x620,
+	0x658,
+	0x659,
+	0x660,
+	0x66E,
+	0x6D4,
+	0x6D5,
+	0x6DD,
+	0x6E1,
+	0x6E9,
+	0x6ED,
+	0x6F0,
+	0x6FA,
+	0x6FD,
+	0x6FF,
+	0x700,
+	0x710,
+	0x740,
+	0x74D,
+	0x7B2,
+	0x7CA,
+	0x7EB,
+	0x7F4,
+	0x7F6,
+	0x7FA,
+	0x7FB,
+	0x800,
+	0x818,
+	0x81A,
+	0x82D,
+	0x840,
+	0x859,
+	0x8A0,
+	0x8B5,
+	0x8E3,
+	0x8EA,
+	0x8F0,
+	0x93C,
+	0x93D,
+	0x94D,
+	0x94E,
+	0x951,
+	0x955,
+	0x964,
+	0x971,
+	0x984,
+	0x985,
+	0x98D,
+	0x98F,
+	0x991,
+	0x993,
+	0x9A9,
+	0x9AA,
+	0x9B1,
+	0x9B2,
+	0x9B3,
+	0x9B6,
+	0x9BA,
+	0x9BD,
+	0x9C5,
+	0x9C7,
+	0x9C9,
+	0x9CB,
+	0x9CD,
+	0x9CE,
+	0x9CF,
+	0x9D7,
+	0x9D8,
+	0x9DC,
+	0x9DE,
+	0x9DF,
+	0x9E4,
+	0x9F0,
+	0x9F2,
+	0xA01,
+	0xA04,
+	0xA05,
+	0xA0B,
+	0xA0F,
+	0xA11,
+	0xA13,
+	0xA29,
+	0xA2A,
+	0xA31,
+	0xA32,
+	0xA34,
+	0xA35,
+	0xA37,
+	0xA38,
+	0xA3A,
+	0xA3E,
+	0xA43,
+	0xA47,
+	0xA49,
+	0xA4B,
+	0xA4D,
+	0xA51,
+	0xA52,
+	0xA59,
+	0xA5D,
+	0xA5E,
+	0xA5F,
+	0xA70,
+	0xA76,
+	0xA81,
+	0xA84,
+	0xA85,
+	0xA8E,
+	0xA8F,
+	0xA92,
+	0xA93,
+	0xAA9,
+	0xAAA,
+	0xAB1,
+	0xAB2,
+	0xAB4,
+	0xAB5,
+	0xABA,
+	0xABD,
+	0xAC6,
+	0xAC7,
+	0xACA,
+	0xACB,
+	0xACD,
+	0xAD0,
+	0xAD1,
+	0xAE0,
+	0xAE4,
+	0xAF9,
+	0xAFA,
+	0xB01,
+	0xB04,
+	0xB05,
+	0xB0D,
+	0xB0F,
+	0xB11,
+	0xB13,
+	0xB29,
+	0xB2A,
+	0xB31,
+	0xB32,
+	0xB34,
+	0xB35,
+	0xB3A,
+	0xB3D,
+	0xB45,
+	0xB47,
+	0xB49,
+	0xB4B,
+	0xB4D,
+	0xB56,
+	0xB58,
+	0xB5C,
+	0xB5E,
+	0xB5F,
+	0xB64,
+	0xB71,
+	0xB72,
+	0xB82,
+	0xB84,
+	0xB85,
+	0xB8B,
+	0xB8E,
+	0xB91,
+	0xB92,
+	0xB96,
+	0xB99,
+	0xB9B,
+	0xB9C,
+	0xB9D,
+	0xB9E,
+	0xBA0,
+	0xBA3,
+	0xBA5,
+	0xBA8,
+	0xBAB,
+	0xBAE,
+	0xBBA,
+	0xBBE,
+	0xBC3,
+	0xBC6,
+	0xBC9,
+	0xBCA,
+	0xBCD,
+	0xBD0,
+	0xBD1,
+	0xBD7,
+	0xBD8,
+	0xC00,
+	0xC04,
+	0xC05,
+	0xC0D,
+	0xC0E,
+	0xC11,
+	0xC12,
+	0xC29,
+	0xC2A,
+	0xC3A,
+	0xC3D,
+	0xC45,
+	0xC46,
+	0xC49,
+	0xC4A,
+	0xC4D,
+	0xC55,
+	0xC57,
+	0xC58,
+	0xC5B,
+	0xC60,
+	0xC64,
+	0xC81,
+	0xC84,
+	0xC85,
+	0xC8D,
+	0xC8E,
+	0xC91,
+	0xC92,
+	0xCA9,
+	0xCAA,
+	0xCB4,
+	0xCB5,
+	0xCBA,
+	0xCBD,
+	0xCC5,
+	0xCC6,
+	0xCC9,
+	0xCCA,
+	0xCCD,
+	0xCD5,
+	0xCD7,
+	0xCDE,
+	0xCDF,
+	0xCE0,
+	0xCE4,
+	0xCF1,
+	0xCF3,
+	0xD01,
+	0xD04,
+	0xD05,
+	0xD0D,
+	0xD0E,
+	0xD11,
+	0xD12,
+	0xD3B,
+	0xD3D,
+	0xD45,
+	0xD46,
+	0xD49,
+	0xD4A,
+	0xD4D,
+	0xD4E,
+	0xD4F,
+	0xD57,
+	0xD58,
+	0xD5F,
+	0xD64,
+	0xD7A,
+	0xD80,
+	0xD82,
+	0xD84,
+	0xD85,
+	0xD97,
+	0xD9A,
+	0xDB2,
+	0xDB3,
+	0xDBC,
+	0xDBD,
+	0xDBE,
+	0xDC0,
+	0xDC7,
+	0xDCF,
+	0xDD5,
+	0xDD6,
+	0xDD7,
+	0xDD8,
+	0xDE0,
+	0xDF2,
+	0xDF4,
+	0xE01,
+	0xE3B,
+	0xE40,
+	0xE47,
+	0xE4D,
+	0xE4E,
+	0xE81,
+	0xE83,
+	0xE84,
+	0xE85,
+	0xE87,
+	0xE89,
+	0xE8A,
+	0xE8B,
+	0xE8D,
+	0xE8E,
+	0xE94,
+	0xE98,
+	0xE99,
+	0xEA0,
+	0xEA1,
+	0xEA4,
+	0xEA5,
+	0xEA6,
+	0xEA7,
+	0xEA8,
+	0xEAA,
+	0xEAC,
+	0xEAD,
+	0xEBA,
+	0xEBB,
+	0xEBE,
+	0xEC0,
+	0xEC5,
+	0xEC6,
+	0xEC7,
+	0xECD,
+	0xECE,
+	0xEDC,
+	0xEE0,
+	0xF00,
+	0xF01,
+	0xF40,
+	0xF48,
+	0xF49,
+	0xF6D,
+	0xF71,
+	0xF82,
+	0xF88,
+	0xF98,
+	0xF99,
+	0xFBD,
+	0x1000,
+	0x1037,
+	0x1038,
+	0x1039,
+	0x103B,
+	0x1040,
+	0x1050,
+	0x1063,
+	0x1065,
+	0x1069,
+	0x106E,
+	0x1087,
+	0x108E,
+	0x108F,
+	0x109C,
+	0x109E,
+	0x10A0,
+	0x10C6,
+	0x10C7,
+	0x10C8,
+	0x10CD,
+	0x10CE,
+	0x10D0,
+	0x10FB,
+	0x10FC,
+	0x1249,
+	0x124A,
+	0x124E,
+	0x1250,
+	0x1257,
+	0x1258,
+	0x1259,
+	0x125A,
+	0x125E,
+	0x1260,
+	0x1289,
+	0x128A,
+	0x128E,
+	0x1290,
+	0x12B1,
+	0x12B2,
+	0x12B6,
+	0x12B8,
+	0x12BF,
+	0x12C0,
+	0x12C1,
+	0x12C2,
+	0x12C6,
+	0x12C8,
+	0x12D7,
+	0x12D8,
+	0x1311,
+	0x1312,
+	0x1316,
+	0x1318,
+	0x135B,
+	0x135F,
+	0x1360,
+	0x1380,
+	0x1390,
+	0x13A0,
+	0x13F6,
+	0x13F8,
+	0x13FE,
+	0x1401,
+	0x166D,
+	0x166F,
+	0x1680,
+	0x1681,
+	0x169B,
+	0x16A0,
+	0x16EB,
+	0x16EE,
+	0x16F9,
+	0x1700,
+	0x170D,
+	0x170E,
+	0x1714,
+	0x1720,
+	0x1734,
+	0x1740,
+	0x1754,
+	0x1760,
+	0x176D,
+	0x176E,
+	0x1771,
+	0x1772,
+	0x1774,
+	0x1780,
+	0x17B4,
+	0x17B6,
+	0x17C9,
+	0x17D7,
+	0x17D8,
+	0x17DC,
+	0x17DD,
+	0x1820,
+	0x1878,
+	0x1880,
+	0x18AB,
+	0x18B0,
+	0x18F6,
+	0x1900,
+	0x191F,
+	0x1920,
+	0x192C,
+	0x1930,
+	0x1939,
+	0x1950,
+	0x196E,
+	0x1970,
+	0x1975,
+	0x1980,
+	0x19AC,
+	0x19B0,
+	0x19CA,
+	0x1A00,
+	0x1A1C,
+	0x1A20,
+	0x1A5F,
+	0x1A61,
+	0x1A75,
+	0x1AA7,
+	0x1AA8,
+	0x1B00,
+	0x1B34,
+	0x1B35,
+	0x1B44,
+	0x1B45,
+	0x1B4C,
+	0x1B80,
+	0x1BAA,
+	0x1BAC,
+	0x1BB0,
+	0x1BBA,
+	0x1BE6,
+	0x1BE7,
+	0x1BF2,
+	0x1C00,
+	0x1C36,
+	0x1C4D,
+	0x1C50,
+	0x1C5A,
+	0x1C7E,
+	0x1CE9,
+	0x1CED,
+	0x1CEE,
+	0x1CF4,
+	0x1CF5,
+	0x1CF7,
+	0x1D00,
+	0x1DC0,
+	0x1DE7,
+	0x1DF5,
+	0x1E00,
+	0x1F16,
+	0x1F18,
+	0x1F1E,
+	0x1F20,
+	0x1F46,
+	0x1F48,
+	0x1F4E,
+	0x1F50,
+	0x1F58,
+	0x1F59,
+	0x1F5A,
+	0x1F5B,
+	0x1F5C,
+	0x1F5D,
+	0x1F5E,
+	0x1F5F,
+	0x1F7E,
+	0x1F80,
+	0x1FB5,
+	0x1FB6,
+	0x1FBD,
+	0x1FBE,
+	0x1FBF,
+	0x1FC2,
+	0x1FC5,
+	0x1FC6,
+	0x1FCD,
+	0x1FD0,
+	0x1FD4,
+	0x1FD6,
+	0x1FDC,
+	0x1FE0,
+	0x1FED,
+	0x1FF2,
+	0x1FF5,
+	0x1FF6,
+	0x1FFD,
+	0x2071,
+	0x2072,
+	0x207F,
+	0x2080,
+	0x2090,
+	0x209D,
+	0x2102,
+	0x2103,
+	0x2107,
+	0x2108,
+	0x210A,
+	0x2114,
+	0x2115,
+	0x2116,
+	0x2119,
+	0x211E,
+	0x2124,
+	0x2125,
+	0x2126,
+	0x2127,
+	0x2128,
+	0x2129,
+	0x212A,
+	0x212E,
+	0x212F,
+	0x213A,
+	0x213C,
+	0x2140,
+	0x2145,
+	0x214A,
+	0x214E,
+	0x214F,
+	0x2160,
+	0x2189,
+	0x24B6,
+	0x24EA,
+	0x2C00,
+	0x2C2F,
+	0x2C30,
+	0x2C5F,
+	0x2C60,
+	0x2CE5,
+	0x2CEB,
+	0x2CEF,
+	0x2CF2,
+	0x2CF4,
+	0x2D00,
+	0x2D26,
+	0x2D27,
+	0x2D28,
+	0x2D2D,
+	0x2D2E,
+	0x2D30,
+	0x2D68,
+	0x2D6F,
+	0x2D70,
+	0x2D80,
+	0x2D97,
+	0x2DA0,
+	0x2DA7,
+	0x2DA8,
+	0x2DAF,
+	0x2DB0,
+	0x2DB7,
+	0x2DB8,
+	0x2DBF,
+	0x2DC0,
+	0x2DC7,
+	0x2DC8,
+	0x2DCF,
+	0x2DD0,
+	0x2DD7,
+	0x2DD8,
+	0x2DDF,
+	0x2DE0,
+	0x2E00,
+	0x2E2F,
+	0x2E30,
+	0x3005,
+	0x3008,
+	0x3021,
+	0x302A,
+	0x3031,
+	0x3036,
+	0x3038,
+	0x303D,
+	0x3041,
+	0x3097,
+	0x309D,
+	0x30A0,
+	0x30A1,
+	0x30FB,
+	0x30FC,
+	0x3100,
+	0x3105,
+	0x312E,
+	0x3131,
+	0x318F,
+	0x31A0,
+	0x31BB,
+	0x31F0,
+	0x3200,
+	0x3400,
+	0x4DB6,
+	0x4E00,
+	0x9FD6,
+	0xA000,
+	0xA48D,
+	0xA4D0,
+	0xA4FE,
+	0xA500,
+	0xA60D,
+	0xA610,
+	0xA620,
+	0xA62A,
+	0xA62C,
+	0xA640,
+	0xA66F,
+	0xA674,
+	0xA67C,
+	0xA67F,
+	0xA6F0,
+	0xA717,
+	0xA720,
+	0xA722,
+	0xA789,
+	0xA78B,
+	0xA7AE,
+	0xA7B0,
+	0xA7B8,
+	0xA7F7,
+	0xA802,
+	0xA803,
+	0xA806,
+	0xA807,
+	0xA80B,
+	0xA80C,
+	0xA828,
+	0xA840,
+	0xA874,
+	0xA880,
+	0xA8C4,
+	0xA8F2,
+	0xA8F8,
+	0xA8FB,
+	0xA8FC,
+	0xA8FD,
+	0xA8FE,
+	0xA90A,
+	0xA92B,
+	0xA930,
+	0xA953,
+	0xA960,
+	0xA97D,
+	0xA980,
+	0xA9B3,
+	0xA9B4,
+	0xA9C0,
+	0xA9CF,
+	0xA9D0,
+	0xA9E0,
+	0xA9E5,
+	0xA9E6,
+	0xA9F0,
+	0xA9FA,
+	0xA9FF,
+	0xAA00,
+	0xAA37,
+	0xAA40,
+	0xAA4E,
+	0xAA60,
+	0xAA77,
+	0xAA7A,
+	0xAA7B,
+	0xAA7E,
+	0xAABF,
+	0xAAC0,
+	0xAAC1,
+	0xAAC2,
+	0xAAC3,
+	0xAADB,
+	0xAADE,
+	0xAAE0,
+	0xAAF0,
+	0xAAF2,
+	0xAAF6,
+	0xAB01,
+	0xAB07,
+	0xAB09,
+	0xAB0F,
+	0xAB11,
+	0xAB17,
+	0xAB20,
+	0xAB27,
+	0xAB28,
+	0xAB2F,
+	0xAB30,
+	0xAB5B,
+	0xAB5C,
+	0xAB66,
+	0xAB70,
+	0xABEB,
+	0xAC00,
+	0xD7A4,
+	0xD7B0,
+	0xD7C7,
+	0xD7CB,
+	0xD7FC,
+	0xF900,
+	0xFA6E,
+	0xFA70,
+	0xFADA,
+	0xFB00,
+	0xFB07,
+	0xFB13,
+	0xFB18,
+	0xFB1D,
+	0xFB29,
+	0xFB2A,
+	0xFB37,
+	0xFB38,
+	0xFB3D,
+	0xFB3E,
+	0xFB3F,
+	0xFB40,
+	0xFB42,
+	0xFB43,
+	0xFB45,
+	0xFB46,
+	0xFBB2,
+	0xFBD3,
+	0xFD3E,
+	0xFD50,
+	0xFD90,
+	0xFD92,
+	0xFDC8,
+	0xFDF0,
+	0xFDFC,
+	0xFE70,
+	0xFE75,
+	0xFE76,
+	0xFEFD,
+	0xFF21,
+	0xFF3B,
+	0xFF41,
+	0xFF5B,
+	0xFF66,
+	0xFFBF,
+	0xFFC2,
+	0xFFC8,
+	0xFFCA,
+	0xFFD0,
+	0xFFD2,
+	0xFFD8,
+	0xFFDA,
+	0xFFDD,
+	0x10000,
+	0x1000C,
+	0x1000D,
+	0x10027,
+	0x10028,
+	0x1003B,
+	0x1003C,
+	0x1003E,
+	0x1003F,
+	0x1004E,
+	0x10050,
+	0x1005E,
+	0x10080,
+	0x100FB,
+	0x10140,
+	0x10175,
+	0x10280,
+	0x1029D,
+	0x102A0,
+	0x102D1,
+	0x10300,
+	0x10320,
+	0x10330,
+	0x1034B,
+	0x10350,
+	0x1037B,
+	0x10380,
+	0x1039E,
+	0x103A0,
+	0x103C4,
+	0x103C8,
+	0x103D0,
+	0x103D1,
+	0x103D6,
+	0x10400,
+	0x1049E,
+	0x10500,
+	0x10528,
+	0x10530,
+	0x10564,
+	0x10600,
+	0x10737,
+	0x10740,
+	0x10756,
+	0x10760,
+	0x10768,
+	0x10800,
+	0x10806,
+	0x10808,
+	0x10809,
+	0x1080A,
+	0x10836,
+	0x10837,
+	0x10839,
+	0x1083C,
+	0x1083D,
+	0x1083F,
+	0x10856,
+	0x10860,
+	0x10877,
+	0x10880,
+	0x1089F,
+	0x108E0,
+	0x108F3,
+	0x108F4,
+	0x108F6,
+	0x10900,
+	0x10916,
+	0x10920,
+	0x1093A,
+	0x10980,
+	0x109B8,
+	0x109BE,
+	0x109C0,
+	0x10A00,
+	0x10A04,
+	0x10A05,
+	0x10A07,
+	0x10A0C,
+	0x10A14,
+	0x10A15,
+	0x10A18,
+	0x10A19,
+	0x10A34,
+	0x10A60,
+	0x10A7D,
+	0x10A80,
+	0x10A9D,
+	0x10AC0,
+	0x10AC8,
+	0x10AC9,
+	0x10AE5,
+	0x10B00,
+	0x10B36,
+	0x10B40,
+	0x10B56,
+	0x10B60,
+	0x10B73,
+	0x10B80,
+	0x10B92,
+	0x10C00,
+	0x10C49,
+	0x10C80,
+	0x10CB3,
+	0x10CC0,
+	0x10CF3,
+	0x11000,
+	0x11046,
+	0x11082,
+	0x110B9,
+	0x110D0,
+	0x110E9,
+	0x11100,
+	0x11133,
+	0x11150,
+	0x11173,
+	0x11176,
+	0x11177,
+	0x11180,
+	0x111C0,
+	0x111C1,
+	0x111C5,
+	0x111DA,
+	0x111DB,
+	0x111DC,
+	0x111DD,
+	0x11200,
+	0x11212,
+	0x11213,
+	0x11235,
+	0x11237,
+	0x11238,
+	0x11280,
+	0x11287,
+	0x11288,
+	0x11289,
+	0x1128A,
+	0x1128E,
+	0x1128F,
+	0x1129E,
+	0x1129F,
+	0x112A9,
+	0x112B0,
+	0x112E9,
+	0x11300,
+	0x11304,
+	0x11305,
+	0x1130D,
+	0x1130F,
+	0x11311,
+	0x11313,
+	0x11329,
+	0x1132A,
+	0x11331,
+	0x11332,
+	0x11334,
+	0x11335,
+	0x1133A,
+	0x1133D,
+	0x11345,
+	0x11347,
+	0x11349,
+	0x1134B,
+	0x1134D,
+	0x11350,
+	0x11351,
+	0x11357,
+	0x11358,
+	0x1135D,
+	0x11364,
+	0x11480,
+	0x114C2,
+	0x114C4,
+	0x114C6,
+	0x114C7,
+	0x114C8,
+	0x11580,
+	0x115B6,
+	0x115B8,
+	0x115BF,
+	0x115D8,
+	0x115DE,
+	0x11600,
+	0x1163F,
+	0x11640,
+	0x11641,
+	0x11644,
+	0x11645,
+	0x11680,
+	0x116B6,
+	0x11700,
+	0x1171A,
+	0x1171D,
+	0x1172B,
+	0x118A0,
+	0x118E0,
+	0x118FF,
+	0x11900,
+	0x11AC0,
+	0x11AF9,
+	0x12000,
+	0x1239A,
+	0x12400,
+	0x1246F,
+	0x12480,
+	0x12544,
+	0x13000,
+	0x1342F,
+	0x14400,
+	0x14647,
+	0x16800,
+	0x16A39,
+	0x16A40,
+	0x16A5F,
+	0x16AD0,
+	0x16AEE,
+	0x16B00,
+	0x16B37,
+	0x16B40,
+	0x16B44,
+	0x16B63,
+	0x16B78,
+	0x16B7D,
+	0x16B90,
+	0x16F00,
+	0x16F45,
+	0x16F50,
+	0x16F7F,
+	0x16F93,
+	0x16FA0,
+	0x1B000,
+	0x1B002,
+	0x1BC00,
+	0x1BC6B,
+	0x1BC70,
+	0x1BC7D,
+	0x1BC80,
+	0x1BC89,
+	0x1BC90,
+	0x1BC9A,
+	0x1BC9E,
+	0x1BC9F,
+	0x1D400,
+	0x1D455,
+	0x1D456,
+	0x1D49D,
+	0x1D49E,
+	0x1D4A0,
+	0x1D4A2,
+	0x1D4A3,
+	0x1D4A5,
+	0x1D4A7,
+	0x1D4A9,
+	0x1D4AD,
+	0x1D4AE,
+	0x1D4BA,
+	0x1D4BB,
+	0x1D4BC,
+	0x1D4BD,
+	0x1D4C4,
+	0x1D4C5,
+	0x1D506,
+	0x1D507,
+	0x1D50B,
+	0x1D50D,
+	0x1D515,
+	0x1D516,
+	0x1D51D,
+	0x1D51E,
+	0x1D53A,
+	0x1D53B,
+	0x1D53F,
+	0x1D540,
+	0x1D545,
+	0x1D546,
+	0x1D547,
+	0x1D54A,
+	0x1D551,
+	0x1D552,
+	0x1D6A6,
+	0x1D6A8,
+	0x1D6C1,
+	0x1D6C2,
+	0x1D6DB,
+	0x1D6DC,
+	0x1D6FB,
+	0x1D6FC,
+	0x1D715,
+	0x1D716,
+	0x1D735,
+	0x1D736,
+	0x1D74F,
+	0x1D750,
+	0x1D76F,
+	0x1D770,
+	0x1D789,
+	0x1D78A,
+	0x1D7A9,
+	0x1D7AA,
+	0x1D7C3,
+	0x1D7C4,
+	0x1D7CC,
+	0x1E800,
+	0x1E8C5,
+	0x1EE00,
+	0x1EE04,
+	0x1EE05,
+	0x1EE20,
+	0x1EE21,
+	0x1EE23,
+	0x1EE24,
+	0x1EE25,
+	0x1EE27,
+	0x1EE28,
+	0x1EE29,
+	0x1EE33,
+	0x1EE34,
+	0x1EE38,
+	0x1EE39,
+	0x1EE3A,
+	0x1EE3B,
+	0x1EE3C,
+	0x1EE42,
+	0x1EE43,
+	0x1EE47,
+	0x1EE48,
+	0x1EE49,
+	0x1EE4A,
+	0x1EE4B,
+	0x1EE4C,
+	0x1EE4D,
+	0x1EE50,
+	0x1EE51,
+	0x1EE53,
+	0x1EE54,
+	0x1EE55,
+	0x1EE57,
+	0x1EE58,
+	0x1EE59,
+	0x1EE5A,
+	0x1EE5B,
+	0x1EE5C,
+	0x1EE5D,
+	0x1EE5E,
+	0x1EE5F,
+	0x1EE60,
+	0x1EE61,
+	0x1EE63,
+	0x1EE64,
+	0x1EE65,
+	0x1EE67,
+	0x1EE6B,
+	0x1EE6C,
+	0x1EE73,
+	0x1EE74,
+	0x1EE78,
+	0x1EE79,
+	0x1EE7D,
+	0x1EE7E,
+	0x1EE7F,
+	0x1EE80,
+	0x1EE8A,
+	0x1EE8B,
+	0x1EE9C,
+	0x1EEA1,
+	0x1EEA4,
+	0x1EEA5,
+	0x1EEAA,
+	0x1EEAB,
+	0x1EEBC,
+	0x1F130,
+	0x1F14A,
+	0x1F150,
+	0x1F16A,
+	0x1F170,
+	0x1F18A,
+	0x20000,
+	0x2A6D7,
+	0x2A700,
+	0x2B735,
+	0x2B740,
+	0x2B81E,
+	0x2B820,
+	0x2CEA2,
+	0x2F800,
+	0x2FA1E
+};
+
+static const UV XPosixBlank_invlist[] = { /* for ASCII/Latin1 */
+	17,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	1,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x9,
+	0xA,
+	0x20,
+	0x21,
+	0xA0,
+	0xA1,
+	0x1680,
+	0x1681,
+	0x2000,
+	0x200B,
+	0x202F,
+	0x2030,
+	0x205F,
+	0x2060,
+	0x3000,
+	0x3001
+};
+
+static const UV XPosixCntrl_invlist[] = { /* for ASCII/Latin1 */
+	4,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	0,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x20,
+	0x7F,
+	0xA0
+};
+
+static const UV XPosixDigit_invlist[] = { /* for ASCII/Latin1 */
+	103,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	1,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x30,
+	0x3A,
+	0x660,
+	0x66A,
+	0x6F0,
+	0x6FA,
+	0x7C0,
+	0x7CA,
+	0x966,
+	0x970,
+	0x9E6,
+	0x9F0,
+	0xA66,
+	0xA70,
+	0xAE6,
+	0xAF0,
+	0xB66,
+	0xB70,
+	0xBE6,
+	0xBF0,
+	0xC66,
+	0xC70,
+	0xCE6,
+	0xCF0,
+	0xD66,
+	0xD70,
+	0xDE6,
+	0xDF0,
+	0xE50,
+	0xE5A,
+	0xED0,
+	0xEDA,
+	0xF20,
+	0xF2A,
+	0x1040,
+	0x104A,
+	0x1090,
+	0x109A,
+	0x17E0,
+	0x17EA,
+	0x1810,
+	0x181A,
+	0x1946,
+	0x1950,
+	0x19D0,
+	0x19DA,
+	0x1A80,
+	0x1A8A,
+	0x1A90,
+	0x1A9A,
+	0x1B50,
+	0x1B5A,
+	0x1BB0,
+	0x1BBA,
+	0x1C40,
+	0x1C4A,
+	0x1C50,
+	0x1C5A,
+	0xA620,
+	0xA62A,
+	0xA8D0,
+	0xA8DA,
+	0xA900,
+	0xA90A,
+	0xA9D0,
+	0xA9DA,
+	0xA9F0,
+	0xA9FA,
+	0xAA50,
+	0xAA5A,
+	0xABF0,
+	0xABFA,
+	0xFF10,
+	0xFF1A,
+	0x104A0,
+	0x104AA,
+	0x11066,
+	0x11070,
+	0x110F0,
+	0x110FA,
+	0x11136,
+	0x11140,
+	0x111D0,
+	0x111DA,
+	0x112F0,
+	0x112FA,
+	0x114D0,
+	0x114DA,
+	0x11650,
+	0x1165A,
+	0x116C0,
+	0x116CA,
+	0x11730,
+	0x1173A,
+	0x118E0,
+	0x118EA,
+	0x16A60,
+	0x16A6A,
+	0x16B50,
+	0x16B5A,
+	0x1D7CE,
+	0x1D800
+};
+
+static const UV XPosixGraph_invlist[] = { /* for ASCII/Latin1 */
+	1237,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	1,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x21,
+	0x7F,
+	0xA1,
+	0x378,
+	0x37A,
+	0x380,
+	0x384,
+	0x38B,
+	0x38C,
+	0x38D,
+	0x38E,
+	0x3A2,
+	0x3A3,
+	0x530,
+	0x531,
+	0x557,
+	0x559,
+	0x560,
+	0x561,
+	0x588,
+	0x589,
+	0x58B,
+	0x58D,
+	0x590,
+	0x591,
+	0x5C8,
+	0x5D0,
+	0x5EB,
+	0x5F0,
+	0x5F5,
+	0x600,
+	0x61D,
+	0x61E,
+	0x70E,
+	0x70F,
+	0x74B,
+	0x74D,
+	0x7B2,
+	0x7C0,
+	0x7FB,
+	0x800,
+	0x82E,
+	0x830,
+	0x83F,
+	0x840,
+	0x85C,
+	0x85E,
+	0x85F,
+	0x8A0,
+	0x8B5,
+	0x8E3,
+	0x984,
+	0x985,
+	0x98D,
+	0x98F,
+	0x991,
+	0x993,
+	0x9A9,
+	0x9AA,
+	0x9B1,
+	0x9B2,
+	0x9B3,
+	0x9B6,
+	0x9BA,
+	0x9BC,
+	0x9C5,
+	0x9C7,
+	0x9C9,
+	0x9CB,
+	0x9CF,
+	0x9D7,
+	0x9D8,
+	0x9DC,
+	0x9DE,
+	0x9DF,
+	0x9E4,
+	0x9E6,
+	0x9FC,
+	0xA01,
+	0xA04,
+	0xA05,
+	0xA0B,
+	0xA0F,
+	0xA11,
+	0xA13,
+	0xA29,
+	0xA2A,
+	0xA31,
+	0xA32,
+	0xA34,
+	0xA35,
+	0xA37,
+	0xA38,
+	0xA3A,
+	0xA3C,
+	0xA3D,
+	0xA3E,
+	0xA43,
+	0xA47,
+	0xA49,
+	0xA4B,
+	0xA4E,
+	0xA51,
+	0xA52,
+	0xA59,
+	0xA5D,
+	0xA5E,
+	0xA5F,
+	0xA66,
+	0xA76,
+	0xA81,
+	0xA84,
+	0xA85,
+	0xA8E,
+	0xA8F,
+	0xA92,
+	0xA93,
+	0xAA9,
+	0xAAA,
+	0xAB1,
+	0xAB2,
+	0xAB4,
+	0xAB5,
+	0xABA,
+	0xABC,
+	0xAC6,
+	0xAC7,
+	0xACA,
+	0xACB,
+	0xACE,
+	0xAD0,
+	0xAD1,
+	0xAE0,
+	0xAE4,
+	0xAE6,
+	0xAF2,
+	0xAF9,
+	0xAFA,
+	0xB01,
+	0xB04,
+	0xB05,
+	0xB0D,
+	0xB0F,
+	0xB11,
+	0xB13,
+	0xB29,
+	0xB2A,
+	0xB31,
+	0xB32,
+	0xB34,
+	0xB35,
+	0xB3A,
+	0xB3C,
+	0xB45,
+	0xB47,
+	0xB49,
+	0xB4B,
+	0xB4E,
+	0xB56,
+	0xB58,
+	0xB5C,
+	0xB5E,
+	0xB5F,
+	0xB64,
+	0xB66,
+	0xB78,
+	0xB82,
+	0xB84,
+	0xB85,
+	0xB8B,
+	0xB8E,
+	0xB91,
+	0xB92,
+	0xB96,
+	0xB99,
+	0xB9B,
+	0xB9C,
+	0xB9D,
+	0xB9E,
+	0xBA0,
+	0xBA3,
+	0xBA5,
+	0xBA8,
+	0xBAB,
+	0xBAE,
+	0xBBA,
+	0xBBE,
+	0xBC3,
+	0xBC6,
+	0xBC9,
+	0xBCA,
+	0xBCE,
+	0xBD0,
+	0xBD1,
+	0xBD7,
+	0xBD8,
+	0xBE6,
+	0xBFB,
+	0xC00,
+	0xC04,
+	0xC05,
+	0xC0D,
+	0xC0E,
+	0xC11,
+	0xC12,
+	0xC29,
+	0xC2A,
+	0xC3A,
+	0xC3D,
+	0xC45,
+	0xC46,
+	0xC49,
+	0xC4A,
+	0xC4E,
+	0xC55,
+	0xC57,
+	0xC58,
+	0xC5B,
+	0xC60,
+	0xC64,
+	0xC66,
+	0xC70,
+	0xC78,
+	0xC80,
+	0xC81,
+	0xC84,
+	0xC85,
+	0xC8D,
+	0xC8E,
+	0xC91,
+	0xC92,
+	0xCA9,
+	0xCAA,
+	0xCB4,
+	0xCB5,
+	0xCBA,
+	0xCBC,
+	0xCC5,
+	0xCC6,
+	0xCC9,
+	0xCCA,
+	0xCCE,
+	0xCD5,
+	0xCD7,
+	0xCDE,
+	0xCDF,
+	0xCE0,
+	0xCE4,
+	0xCE6,
+	0xCF0,
+	0xCF1,
+	0xCF3,
+	0xD01,
+	0xD04,
+	0xD05,
+	0xD0D,
+	0xD0E,
+	0xD11,
+	0xD12,
+	0xD3B,
+	0xD3D,
+	0xD45,
+	0xD46,
+	0xD49,
+	0xD4A,
+	0xD4F,
+	0xD57,
+	0xD58,
+	0xD5F,
+	0xD64,
+	0xD66,
+	0xD76,
+	0xD79,
+	0xD80,
+	0xD82,
+	0xD84,
+	0xD85,
+	0xD97,
+	0xD9A,
+	0xDB2,
+	0xDB3,
+	0xDBC,
+	0xDBD,
+	0xDBE,
+	0xDC0,
+	0xDC7,
+	0xDCA,
+	0xDCB,
+	0xDCF,
+	0xDD5,
+	0xDD6,
+	0xDD7,
+	0xDD8,
+	0xDE0,
+	0xDE6,
+	0xDF0,
+	0xDF2,
+	0xDF5,
+	0xE01,
+	0xE3B,
+	0xE3F,
+	0xE5C,
+	0xE81,
+	0xE83,
+	0xE84,
+	0xE85,
+	0xE87,
+	0xE89,
+	0xE8A,
+	0xE8B,
+	0xE8D,
+	0xE8E,
+	0xE94,
+	0xE98,
+	0xE99,
+	0xEA0,
+	0xEA1,
+	0xEA4,
+	0xEA5,
+	0xEA6,
+	0xEA7,
+	0xEA8,
+	0xEAA,
+	0xEAC,
+	0xEAD,
+	0xEBA,
+	0xEBB,
+	0xEBE,
+	0xEC0,
+	0xEC5,
+	0xEC6,
+	0xEC7,
+	0xEC8,
+	0xECE,
+	0xED0,
+	0xEDA,
+	0xEDC,
+	0xEE0,
+	0xF00,
+	0xF48,
+	0xF49,
+	0xF6D,
+	0xF71,
+	0xF98,
+	0xF99,
+	0xFBD,
+	0xFBE,
+	0xFCD,
+	0xFCE,
+	0xFDB,
+	0x1000,
+	0x10C6,
+	0x10C7,
+	0x10C8,
+	0x10CD,
+	0x10CE,
+	0x10D0,
+	0x1249,
+	0x124A,
+	0x124E,
+	0x1250,
+	0x1257,
+	0x1258,
+	0x1259,
+	0x125A,
+	0x125E,
+	0x1260,
+	0x1289,
+	0x128A,
+	0x128E,
+	0x1290,
+	0x12B1,
+	0x12B2,
+	0x12B6,
+	0x12B8,
+	0x12BF,
+	0x12C0,
+	0x12C1,
+	0x12C2,
+	0x12C6,
+	0x12C8,
+	0x12D7,
+	0x12D8,
+	0x1311,
+	0x1312,
+	0x1316,
+	0x1318,
+	0x135B,
+	0x135D,
+	0x137D,
+	0x1380,
+	0x139A,
+	0x13A0,
+	0x13F6,
+	0x13F8,
+	0x13FE,
+	0x1400,
+	0x1680,
+	0x1681,
+	0x169D,
+	0x16A0,
+	0x16F9,
+	0x1700,
+	0x170D,
+	0x170E,
+	0x1715,
+	0x1720,
+	0x1737,
+	0x1740,
+	0x1754,
+	0x1760,
+	0x176D,
+	0x176E,
+	0x1771,
+	0x1772,
+	0x1774,
+	0x1780,
+	0x17DE,
+	0x17E0,
+	0x17EA,
+	0x17F0,
+	0x17FA,
+	0x1800,
+	0x180F,
+	0x1810,
+	0x181A,
+	0x1820,
+	0x1878,
+	0x1880,
+	0x18AB,
+	0x18B0,
+	0x18F6,
+	0x1900,
+	0x191F,
+	0x1920,
+	0x192C,
+	0x1930,
+	0x193C,
+	0x1940,
+	0x1941,
+	0x1944,
+	0x196E,
+	0x1970,
+	0x1975,
+	0x1980,
+	0x19AC,
+	0x19B0,
+	0x19CA,
+	0x19D0,
+	0x19DB,
+	0x19DE,
+	0x1A1C,
+	0x1A1E,
+	0x1A5F,
+	0x1A60,
+	0x1A7D,
+	0x1A7F,
+	0x1A8A,
+	0x1A90,
+	0x1A9A,
+	0x1AA0,
+	0x1AAE,
+	0x1AB0,
+	0x1ABF,
+	0x1B00,
+	0x1B4C,
+	0x1B50,
+	0x1B7D,
+	0x1B80,
+	0x1BF4,
+	0x1BFC,
+	0x1C38,
+	0x1C3B,
+	0x1C4A,
+	0x1C4D,
+	0x1C80,
+	0x1CC0,
+	0x1CC8,
+	0x1CD0,
+	0x1CF7,
+	0x1CF8,
+	0x1CFA,
+	0x1D00,
+	0x1DF6,
+	0x1DFC,
+	0x1F16,
+	0x1F18,
+	0x1F1E,
+	0x1F20,
+	0x1F46,
+	0x1F48,
+	0x1F4E,
+	0x1F50,
+	0x1F58,
+	0x1F59,
+	0x1F5A,
+	0x1F5B,
+	0x1F5C,
+	0x1F5D,
+	0x1F5E,
+	0x1F5F,
+	0x1F7E,
+	0x1F80,
+	0x1FB5,
+	0x1FB6,
+	0x1FC5,
+	0x1FC6,
+	0x1FD4,
+	0x1FD6,
+	0x1FDC,
+	0x1FDD,
+	0x1FF0,
+	0x1FF2,
+	0x1FF5,
+	0x1FF6,
+	0x1FFF,
+	0x200B,
+	0x2028,
+	0x202A,
+	0x202F,
+	0x2030,
+	0x205F,
+	0x2060,
+	0x2065,
+	0x2066,
+	0x2072,
+	0x2074,
+	0x208F,
+	0x2090,
+	0x209D,
+	0x20A0,
+	0x20BF,
+	0x20D0,
+	0x20F1,
+	0x2100,
+	0x218C,
+	0x2190,
+	0x23FB,
+	0x2400,
+	0x2427,
+	0x2440,
+	0x244B,
+	0x2460,
+	0x2B74,
+	0x2B76,
+	0x2B96,
+	0x2B98,
+	0x2BBA,
+	0x2BBD,
+	0x2BC9,
+	0x2BCA,
+	0x2BD2,
+	0x2BEC,
+	0x2BF0,
+	0x2C00,
+	0x2C2F,
+	0x2C30,
+	0x2C5F,
+	0x2C60,
+	0x2CF4,
+	0x2CF9,
+	0x2D26,
+	0x2D27,
+	0x2D28,
+	0x2D2D,
+	0x2D2E,
+	0x2D30,
+	0x2D68,
+	0x2D6F,
+	0x2D71,
+	0x2D7F,
+	0x2D97,
+	0x2DA0,
+	0x2DA7,
+	0x2DA8,
+	0x2DAF,
+	0x2DB0,
+	0x2DB7,
+	0x2DB8,
+	0x2DBF,
+	0x2DC0,
+	0x2DC7,
+	0x2DC8,
+	0x2DCF,
+	0x2DD0,
+	0x2DD7,
+	0x2DD8,
+	0x2DDF,
+	0x2DE0,
+	0x2E43,
+	0x2E80,
+	0x2E9A,
+	0x2E9B,
+	0x2EF4,
+	0x2F00,
+	0x2FD6,
+	0x2FF0,
+	0x2FFC,
+	0x3001,
+	0x3040,
+	0x3041,
+	0x3097,
+	0x3099,
+	0x3100,
+	0x3105,
+	0x312E,
+	0x3131,
+	0x318F,
+	0x3190,
+	0x31BB,
+	0x31C0,
+	0x31E4,
+	0x31F0,
+	0x321F,
+	0x3220,
+	0x32FF,
+	0x3300,
+	0x4DB6,
+	0x4DC0,
+	0x9FD6,
+	0xA000,
+	0xA48D,
+	0xA490,
+	0xA4C7,
+	0xA4D0,
+	0xA62C,
+	0xA640,
+	0xA6F8,
+	0xA700,
+	0xA7AE,
+	0xA7B0,
+	0xA7B8,
+	0xA7F7,
+	0xA82C,
+	0xA830,
+	0xA83A,
+	0xA840,
+	0xA878,
+	0xA880,
+	0xA8C5,
+	0xA8CE,
+	0xA8DA,
+	0xA8E0,
+	0xA8FE,
+	0xA900,
+	0xA954,
+	0xA95F,
+	0xA97D,
+	0xA980,
+	0xA9CE,
+	0xA9CF,
+	0xA9DA,
+	0xA9DE,
+	0xA9FF,
+	0xAA00,
+	0xAA37,
+	0xAA40,
+	0xAA4E,
+	0xAA50,
+	0xAA5A,
+	0xAA5C,
+	0xAAC3,
+	0xAADB,
+	0xAAF7,
+	0xAB01,
+	0xAB07,
+	0xAB09,
+	0xAB0F,
+	0xAB11,
+	0xAB17,
+	0xAB20,
+	0xAB27,
+	0xAB28,
+	0xAB2F,
+	0xAB30,
+	0xAB66,
+	0xAB70,
+	0xABEE,
+	0xABF0,
+	0xABFA,
+	0xAC00,
+	0xD7A4,
+	0xD7B0,
+	0xD7C7,
+	0xD7CB,
+	0xD7FC,
+	0xE000,
+	0xFA6E,
+	0xFA70,
+	0xFADA,
+	0xFB00,
+	0xFB07,
+	0xFB13,
+	0xFB18,
+	0xFB1D,
+	0xFB37,
+	0xFB38,
+	0xFB3D,
+	0xFB3E,
+	0xFB3F,
+	0xFB40,
+	0xFB42,
+	0xFB43,
+	0xFB45,
+	0xFB46,
+	0xFBC2,
+	0xFBD3,
+	0xFD40,
+	0xFD50,
+	0xFD90,
+	0xFD92,
+	0xFDC8,
+	0xFDF0,
+	0xFDFE,
+	0xFE00,
+	0xFE1A,
+	0xFE20,
+	0xFE53,
+	0xFE54,
+	0xFE67,
+	0xFE68,
+	0xFE6C,
+	0xFE70,
+	0xFE75,
+	0xFE76,
+	0xFEFD,
+	0xFEFF,
+	0xFF00,
+	0xFF01,
+	0xFFBF,
+	0xFFC2,
+	0xFFC8,
+	0xFFCA,
+	0xFFD0,
+	0xFFD2,
+	0xFFD8,
+	0xFFDA,
+	0xFFDD,
+	0xFFE0,
+	0xFFE7,
+	0xFFE8,
+	0xFFEF,
+	0xFFF9,
+	0xFFFE,
+	0x10000,
+	0x1000C,
+	0x1000D,
+	0x10027,
+	0x10028,
+	0x1003B,
+	0x1003C,
+	0x1003E,
+	0x1003F,
+	0x1004E,
+	0x10050,
+	0x1005E,
+	0x10080,
+	0x100FB,
+	0x10100,
+	0x10103,
+	0x10107,
+	0x10134,
+	0x10137,
+	0x1018D,
+	0x10190,
+	0x1019C,
+	0x101A0,
+	0x101A1,
+	0x101D0,
+	0x101FE,
+	0x10280,
+	0x1029D,
+	0x102A0,
+	0x102D1,
+	0x102E0,
+	0x102FC,
+	0x10300,
+	0x10324,
+	0x10330,
+	0x1034B,
+	0x10350,
+	0x1037B,
+	0x10380,
+	0x1039E,
+	0x1039F,
+	0x103C4,
+	0x103C8,
+	0x103D6,
+	0x10400,
+	0x1049E,
+	0x104A0,
+	0x104AA,
+	0x10500,
+	0x10528,
+	0x10530,
+	0x10564,
+	0x1056F,
+	0x10570,
+	0x10600,
+	0x10737,
+	0x10740,
+	0x10756,
+	0x10760,
+	0x10768,
+	0x10800,
+	0x10806,
+	0x10808,
+	0x10809,
+	0x1080A,
+	0x10836,
+	0x10837,
+	0x10839,
+	0x1083C,
+	0x1083D,
+	0x1083F,
+	0x10856,
+	0x10857,
+	0x1089F,
+	0x108A7,
+	0x108B0,
+	0x108E0,
+	0x108F3,
+	0x108F4,
+	0x108F6,
+	0x108FB,
+	0x1091C,
+	0x1091F,
+	0x1093A,
+	0x1093F,
+	0x10940,
+	0x10980,
+	0x109B8,
+	0x109BC,
+	0x109D0,
+	0x109D2,
+	0x10A04,
+	0x10A05,
+	0x10A07,
+	0x10A0C,
+	0x10A14,
+	0x10A15,
+	0x10A18,
+	0x10A19,
+	0x10A34,
+	0x10A38,
+	0x10A3B,
+	0x10A3F,
+	0x10A48,
+	0x10A50,
+	0x10A59,
+	0x10A60,
+	0x10AA0,
+	0x10AC0,
+	0x10AE7,
+	0x10AEB,
+	0x10AF7,
+	0x10B00,
+	0x10B36,
+	0x10B39,
+	0x10B56,
+	0x10B58,
+	0x10B73,
+	0x10B78,
+	0x10B92,
+	0x10B99,
+	0x10B9D,
+	0x10BA9,
+	0x10BB0,
+	0x10C00,
+	0x10C49,
+	0x10C80,
+	0x10CB3,
+	0x10CC0,
+	0x10CF3,
+	0x10CFA,
+	0x10D00,
+	0x10E60,
+	0x10E7F,
+	0x11000,
+	0x1104E,
+	0x11052,
+	0x11070,
+	0x1107F,
+	0x110C2,
+	0x110D0,
+	0x110E9,
+	0x110F0,
+	0x110FA,
+	0x11100,
+	0x11135,
+	0x11136,
+	0x11144,
+	0x11150,
+	0x11177,
+	0x11180,
+	0x111CE,
+	0x111D0,
+	0x111E0,
+	0x111E1,
+	0x111F5,
+	0x11200,
+	0x11212,
+	0x11213,
+	0x1123E,
+	0x11280,
+	0x11287,
+	0x11288,
+	0x11289,
+	0x1128A,
+	0x1128E,
+	0x1128F,
+	0x1129E,
+	0x1129F,
+	0x112AA,
+	0x112B0,
+	0x112EB,
+	0x112F0,
+	0x112FA,
+	0x11300,
+	0x11304,
+	0x11305,
+	0x1130D,
+	0x1130F,
+	0x11311,
+	0x11313,
+	0x11329,
+	0x1132A,
+	0x11331,
+	0x11332,
+	0x11334,
+	0x11335,
+	0x1133A,
+	0x1133C,
+	0x11345,
+	0x11347,
+	0x11349,
+	0x1134B,
+	0x1134E,
+	0x11350,
+	0x11351,
+	0x11357,
+	0x11358,
+	0x1135D,
+	0x11364,
+	0x11366,
+	0x1136D,
+	0x11370,
+	0x11375,
+	0x11480,
+	0x114C8,
+	0x114D0,
+	0x114DA,
+	0x11580,
+	0x115B6,
+	0x115B8,
+	0x115DE,
+	0x11600,
+	0x11645,
+	0x11650,
+	0x1165A,
+	0x11680,
+	0x116B8,
+	0x116C0,
+	0x116CA,
+	0x11700,
+	0x1171A,
+	0x1171D,
+	0x1172C,
+	0x11730,
+	0x11740,
+	0x118A0,
+	0x118F3,
+	0x118FF,
+	0x11900,
+	0x11AC0,
+	0x11AF9,
+	0x12000,
+	0x1239A,
+	0x12400,
+	0x1246F,
+	0x12470,
+	0x12475,
+	0x12480,
+	0x12544,
+	0x13000,
+	0x1342F,
+	0x14400,
+	0x14647,
+	0x16800,
+	0x16A39,
+	0x16A40,
+	0x16A5F,
+	0x16A60,
+	0x16A6A,
+	0x16A6E,
+	0x16A70,
+	0x16AD0,
+	0x16AEE,
+	0x16AF0,
+	0x16AF6,
+	0x16B00,
+	0x16B46,
+	0x16B50,
+	0x16B5A,
+	0x16B5B,
+	0x16B62,
+	0x16B63,
+	0x16B78,
+	0x16B7D,
+	0x16B90,
+	0x16F00,
+	0x16F45,
+	0x16F50,
+	0x16F7F,
+	0x16F8F,
+	0x16FA0,
+	0x1B000,
+	0x1B002,
+	0x1BC00,
+	0x1BC6B,
+	0x1BC70,
+	0x1BC7D,
+	0x1BC80,
+	0x1BC89,
+	0x1BC90,
+	0x1BC9A,
+	0x1BC9C,
+	0x1BCA4,
+	0x1D000,
+	0x1D0F6,
+	0x1D100,
+	0x1D127,
+	0x1D129,
+	0x1D1E9,
+	0x1D200,
+	0x1D246,
+	0x1D300,
+	0x1D357,
+	0x1D360,
+	0x1D372,
+	0x1D400,
+	0x1D455,
+	0x1D456,
+	0x1D49D,
+	0x1D49E,
+	0x1D4A0,
+	0x1D4A2,
+	0x1D4A3,
+	0x1D4A5,
+	0x1D4A7,
+	0x1D4A9,
+	0x1D4AD,
+	0x1D4AE,
+	0x1D4BA,
+	0x1D4BB,
+	0x1D4BC,
+	0x1D4BD,
+	0x1D4C4,
+	0x1D4C5,
+	0x1D506,
+	0x1D507,
+	0x1D50B,
+	0x1D50D,
+	0x1D515,
+	0x1D516,
+	0x1D51D,
+	0x1D51E,
+	0x1D53A,
+	0x1D53B,
+	0x1D53F,
+	0x1D540,
+	0x1D545,
+	0x1D546,
+	0x1D547,
+	0x1D54A,
+	0x1D551,
+	0x1D552,
+	0x1D6A6,
+	0x1D6A8,
+	0x1D7CC,
+	0x1D7CE,
+	0x1DA8C,
+	0x1DA9B,
+	0x1DAA0,
+	0x1DAA1,
+	0x1DAB0,
+	0x1E800,
+	0x1E8C5,
+	0x1E8C7,
+	0x1E8D7,
+	0x1EE00,
+	0x1EE04,
+	0x1EE05,
+	0x1EE20,
+	0x1EE21,
+	0x1EE23,
+	0x1EE24,
+	0x1EE25,
+	0x1EE27,
+	0x1EE28,
+	0x1EE29,
+	0x1EE33,
+	0x1EE34,
+	0x1EE38,
+	0x1EE39,
+	0x1EE3A,
+	0x1EE3B,
+	0x1EE3C,
+	0x1EE42,
+	0x1EE43,
+	0x1EE47,
+	0x1EE48,
+	0x1EE49,
+	0x1EE4A,
+	0x1EE4B,
+	0x1EE4C,
+	0x1EE4D,
+	0x1EE50,
+	0x1EE51,
+	0x1EE53,
+	0x1EE54,
+	0x1EE55,
+	0x1EE57,
+	0x1EE58,
+	0x1EE59,
+	0x1EE5A,
+	0x1EE5B,
+	0x1EE5C,
+	0x1EE5D,
+	0x1EE5E,
+	0x1EE5F,
+	0x1EE60,
+	0x1EE61,
+	0x1EE63,
+	0x1EE64,
+	0x1EE65,
+	0x1EE67,
+	0x1EE6B,
+	0x1EE6C,
+	0x1EE73,
+	0x1EE74,
+	0x1EE78,
+	0x1EE79,
+	0x1EE7D,
+	0x1EE7E,
+	0x1EE7F,
+	0x1EE80,
+	0x1EE8A,
+	0x1EE8B,
+	0x1EE9C,
+	0x1EEA1,
+	0x1EEA4,
+	0x1EEA5,
+	0x1EEAA,
+	0x1EEAB,
+	0x1EEBC,
+	0x1EEF0,
+	0x1EEF2,
+	0x1F000,
+	0x1F02C,
+	0x1F030,
+	0x1F094,
+	0x1F0A0,
+	0x1F0AF,
+	0x1F0B1,
+	0x1F0C0,
+	0x1F0C1,
+	0x1F0D0,
+	0x1F0D1,
+	0x1F0F6,
+	0x1F100,
+	0x1F10D,
+	0x1F110,
+	0x1F12F,
+	0x1F130,
+	0x1F16C,
+	0x1F170,
+	0x1F19B,
+	0x1F1E6,
+	0x1F203,
+	0x1F210,
+	0x1F23B,
+	0x1F240,
+	0x1F249,
+	0x1F250,
+	0x1F252,
+	0x1F300,
+	0x1F57A,
+	0x1F57B,
+	0x1F5A4,
+	0x1F5A5,
+	0x1F6D1,
+	0x1F6E0,
+	0x1F6ED,
+	0x1F6F0,
+	0x1F6F4,
+	0x1F700,
+	0x1F774,
+	0x1F780,
+	0x1F7D5,
+	0x1F800,
+	0x1F80C,
+	0x1F810,
+	0x1F848,
+	0x1F850,
+	0x1F85A,
+	0x1F860,
+	0x1F888,
+	0x1F890,
+	0x1F8AE,
+	0x1F910,
+	0x1F919,
+	0x1F980,
+	0x1F985,
+	0x1F9C0,
+	0x1F9C1,
+	0x20000,
+	0x2A6D7,
+	0x2A700,
+	0x2B735,
+	0x2B740,
+	0x2B81E,
+	0x2B820,
+	0x2CEA2,
+	0x2F800,
+	0x2FA1E,
+	0xE0001,
+	0xE0002,
+	0xE0020,
+	0xE0080,
+	0xE0100,
+	0xE01F0,
+	0xF0000,
+	0xFFFFE,
+	0x100000,
+	0x10FFFE
+};
+
+static const UV XPosixLower_invlist[] = { /* for ASCII/Latin1 */
+	1275,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	1,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x61,
+	0x7B,
+	0xAA,
+	0xAB,
+	0xB5,
+	0xB6,
+	0xBA,
+	0xBB,
+	0xDF,
+	0xF7,
+	0xF8,
+	0x100,
+	0x101,
+	0x102,
+	0x103,
+	0x104,
+	0x105,
+	0x106,
+	0x107,
+	0x108,
+	0x109,
+	0x10A,
+	0x10B,
+	0x10C,
+	0x10D,
+	0x10E,
+	0x10F,
+	0x110,
+	0x111,
+	0x112,
+	0x113,
+	0x114,
+	0x115,
+	0x116,
+	0x117,
+	0x118,
+	0x119,
+	0x11A,
+	0x11B,
+	0x11C,
+	0x11D,
+	0x11E,
+	0x11F,
+	0x120,
+	0x121,
+	0x122,
+	0x123,
+	0x124,
+	0x125,
+	0x126,
+	0x127,
+	0x128,
+	0x129,
+	0x12A,
+	0x12B,
+	0x12C,
+	0x12D,
+	0x12E,
+	0x12F,
+	0x130,
+	0x131,
+	0x132,
+	0x133,
+	0x134,
+	0x135,
+	0x136,
+	0x137,
+	0x139,
+	0x13A,
+	0x13B,
+	0x13C,
+	0x13D,
+	0x13E,
+	0x13F,
+	0x140,
+	0x141,
+	0x142,
+	0x143,
+	0x144,
+	0x145,
+	0x146,
+	0x147,
+	0x148,
+	0x14A,
+	0x14B,
+	0x14C,
+	0x14D,
+	0x14E,
+	0x14F,
+	0x150,
+	0x151,
+	0x152,
+	0x153,
+	0x154,
+	0x155,
+	0x156,
+	0x157,
+	0x158,
+	0x159,
+	0x15A,
+	0x15B,
+	0x15C,
+	0x15D,
+	0x15E,
+	0x15F,
+	0x160,
+	0x161,
+	0x162,
+	0x163,
+	0x164,
+	0x165,
+	0x166,
+	0x167,
+	0x168,
+	0x169,
+	0x16A,
+	0x16B,
+	0x16C,
+	0x16D,
+	0x16E,
+	0x16F,
+	0x170,
+	0x171,
+	0x172,
+	0x173,
+	0x174,
+	0x175,
+	0x176,
+	0x177,
+	0x178,
+	0x17A,
+	0x17B,
+	0x17C,
+	0x17D,
+	0x17E,
+	0x181,
+	0x183,
+	0x184,
+	0x185,
+	0x186,
+	0x188,
+	0x189,
+	0x18C,
+	0x18E,
+	0x192,
+	0x193,
+	0x195,
+	0x196,
+	0x199,
+	0x19C,
+	0x19E,
+	0x19F,
+	0x1A1,
+	0x1A2,
+	0x1A3,
+	0x1A4,
+	0x1A5,
+	0x1A6,
+	0x1A8,
+	0x1A9,
+	0x1AA,
+	0x1AC,
+	0x1AD,
+	0x1AE,
+	0x1B0,
+	0x1B1,
+	0x1B4,
+	0x1B5,
+	0x1B6,
+	0x1B7,
+	0x1B9,
+	0x1BB,
+	0x1BD,
+	0x1C0,
+	0x1C6,
+	0x1C7,
+	0x1C9,
+	0x1CA,
+	0x1CC,
+	0x1CD,
+	0x1CE,
+	0x1CF,
+	0x1D0,
+	0x1D1,
+	0x1D2,
+	0x1D3,
+	0x1D4,
+	0x1D5,
+	0x1D6,
+	0x1D7,
+	0x1D8,
+	0x1D9,
+	0x1DA,
+	0x1DB,
+	0x1DC,
+	0x1DE,
+	0x1DF,
+	0x1E0,
+	0x1E1,
+	0x1E2,
+	0x1E3,
+	0x1E4,
+	0x1E5,
+	0x1E6,
+	0x1E7,
+	0x1E8,
+	0x1E9,
+	0x1EA,
+	0x1EB,
+	0x1EC,
+	0x1ED,
+	0x1EE,
+	0x1EF,
+	0x1F1,
+	0x1F3,
+	0x1F4,
+	0x1F5,
+	0x1F6,
+	0x1F9,
+	0x1FA,
+	0x1FB,
+	0x1FC,
+	0x1FD,
+	0x1FE,
+	0x1FF,
+	0x200,
+	0x201,
+	0x202,
+	0x203,
+	0x204,
+	0x205,
+	0x206,
+	0x207,
+	0x208,
+	0x209,
+	0x20A,
+	0x20B,
+	0x20C,
+	0x20D,
+	0x20E,
+	0x20F,
+	0x210,
+	0x211,
+	0x212,
+	0x213,
+	0x214,
+	0x215,
+	0x216,
+	0x217,
+	0x218,
+	0x219,
+	0x21A,
+	0x21B,
+	0x21C,
+	0x21D,
+	0x21E,
+	0x21F,
+	0x220,
+	0x221,
+	0x222,
+	0x223,
+	0x224,
+	0x225,
+	0x226,
+	0x227,
+	0x228,
+	0x229,
+	0x22A,
+	0x22B,
+	0x22C,
+	0x22D,
+	0x22E,
+	0x22F,
+	0x230,
+	0x231,
+	0x232,
+	0x233,
+	0x23A,
+	0x23C,
+	0x23D,
+	0x23F,
+	0x241,
+	0x242,
+	0x243,
+	0x247,
+	0x248,
+	0x249,
+	0x24A,
+	0x24B,
+	0x24C,
+	0x24D,
+	0x24E,
+	0x24F,
+	0x294,
+	0x295,
+	0x2B9,
+	0x2C0,
+	0x2C2,
+	0x2E0,
+	0x2E5,
+	0x345,
+	0x346,
+	0x371,
+	0x372,
+	0x373,
+	0x374,
+	0x377,
+	0x378,
+	0x37A,
+	0x37E,
+	0x390,
+	0x391,
+	0x3AC,
+	0x3CF,
+	0x3D0,
+	0x3D2,
+	0x3D5,
+	0x3D8,
+	0x3D9,
+	0x3DA,
+	0x3DB,
+	0x3DC,
+	0x3DD,
+	0x3DE,
+	0x3DF,
+	0x3E0,
+	0x3E1,
+	0x3E2,
+	0x3E3,
+	0x3E4,
+	0x3E5,
+	0x3E6,
+	0x3E7,
+	0x3E8,
+	0x3E9,
+	0x3EA,
+	0x3EB,
+	0x3EC,
+	0x3ED,
+	0x3EE,
+	0x3EF,
+	0x3F4,
+	0x3F5,
+	0x3F6,
+	0x3F8,
+	0x3F9,
+	0x3FB,
+	0x3FD,
+	0x430,
+	0x460,
+	0x461,
+	0x462,
+	0x463,
+	0x464,
+	0x465,
+	0x466,
+	0x467,
+	0x468,
+	0x469,
+	0x46A,
+	0x46B,
+	0x46C,
+	0x46D,
+	0x46E,
+	0x46F,
+	0x470,
+	0x471,
+	0x472,
+	0x473,
+	0x474,
+	0x475,
+	0x476,
+	0x477,
+	0x478,
+	0x479,
+	0x47A,
+	0x47B,
+	0x47C,
+	0x47D,
+	0x47E,
+	0x47F,
+	0x480,
+	0x481,
+	0x482,
+	0x48B,
+	0x48C,
+	0x48D,
+	0x48E,
+	0x48F,
+	0x490,
+	0x491,
+	0x492,
+	0x493,
+	0x494,
+	0x495,
+	0x496,
+	0x497,
+	0x498,
+	0x499,
+	0x49A,
+	0x49B,
+	0x49C,
+	0x49D,
+	0x49E,
+	0x49F,
+	0x4A0,
+	0x4A1,
+	0x4A2,
+	0x4A3,
+	0x4A4,
+	0x4A5,
+	0x4A6,
+	0x4A7,
+	0x4A8,
+	0x4A9,
+	0x4AA,
+	0x4AB,
+	0x4AC,
+	0x4AD,
+	0x4AE,
+	0x4AF,
+	0x4B0,
+	0x4B1,
+	0x4B2,
+	0x4B3,
+	0x4B4,
+	0x4B5,
+	0x4B6,
+	0x4B7,
+	0x4B8,
+	0x4B9,
+	0x4BA,
+	0x4BB,
+	0x4BC,
+	0x4BD,
+	0x4BE,
+	0x4BF,
+	0x4C0,
+	0x4C2,
+	0x4C3,
+	0x4C4,
+	0x4C5,
+	0x4C6,
+	0x4C7,
+	0x4C8,
+	0x4C9,
+	0x4CA,
+	0x4CB,
+	0x4CC,
+	0x4CD,
+	0x4CE,
+	0x4D0,
+	0x4D1,
+	0x4D2,
+	0x4D3,
+	0x4D4,
+	0x4D5,
+	0x4D6,
+	0x4D7,
+	0x4D8,
+	0x4D9,
+	0x4DA,
+	0x4DB,
+	0x4DC,
+	0x4DD,
+	0x4DE,
+	0x4DF,
+	0x4E0,
+	0x4E1,
+	0x4E2,
+	0x4E3,
+	0x4E4,
+	0x4E5,
+	0x4E6,
+	0x4E7,
+	0x4E8,
+	0x4E9,
+	0x4EA,
+	0x4EB,
+	0x4EC,
+	0x4ED,
+	0x4EE,
+	0x4EF,
+	0x4F0,
+	0x4F1,
+	0x4F2,
+	0x4F3,
+	0x4F4,
+	0x4F5,
+	0x4F6,
+	0x4F7,
+	0x4F8,
+	0x4F9,
+	0x4FA,
+	0x4FB,
+	0x4FC,
+	0x4FD,
+	0x4FE,
+	0x4FF,
+	0x500,
+	0x501,
+	0x502,
+	0x503,
+	0x504,
+	0x505,
+	0x506,
+	0x507,
+	0x508,
+	0x509,
+	0x50A,
+	0x50B,
+	0x50C,
+	0x50D,
+	0x50E,
+	0x50F,
+	0x510,
+	0x511,
+	0x512,
+	0x513,
+	0x514,
+	0x515,
+	0x516,
+	0x517,
+	0x518,
+	0x519,
+	0x51A,
+	0x51B,
+	0x51C,
+	0x51D,
+	0x51E,
+	0x51F,
+	0x520,
+	0x521,
+	0x522,
+	0x523,
+	0x524,
+	0x525,
+	0x526,
+	0x527,
+	0x528,
+	0x529,
+	0x52A,
+	0x52B,
+	0x52C,
+	0x52D,
+	0x52E,
+	0x52F,
+	0x530,
+	0x561,
+	0x588,
+	0x13F8,
+	0x13FE,
+	0x1D00,
+	0x1DC0,
+	0x1E01,
+	0x1E02,
+	0x1E03,
+	0x1E04,
+	0x1E05,
+	0x1E06,
+	0x1E07,
+	0x1E08,
+	0x1E09,
+	0x1E0A,
+	0x1E0B,
+	0x1E0C,
+	0x1E0D,
+	0x1E0E,
+	0x1E0F,
+	0x1E10,
+	0x1E11,
+	0x1E12,
+	0x1E13,
+	0x1E14,
+	0x1E15,
+	0x1E16,
+	0x1E17,
+	0x1E18,
+	0x1E19,
+	0x1E1A,
+	0x1E1B,
+	0x1E1C,
+	0x1E1D,
+	0x1E1E,
+	0x1E1F,
+	0x1E20,
+	0x1E21,
+	0x1E22,
+	0x1E23,
+	0x1E24,
+	0x1E25,
+	0x1E26,
+	0x1E27,
+	0x1E28,
+	0x1E29,
+	0x1E2A,
+	0x1E2B,
+	0x1E2C,
+	0x1E2D,
+	0x1E2E,
+	0x1E2F,
+	0x1E30,
+	0x1E31,
+	0x1E32,
+	0x1E33,
+	0x1E34,
+	0x1E35,
+	0x1E36,
+	0x1E37,
+	0x1E38,
+	0x1E39,
+	0x1E3A,
+	0x1E3B,
+	0x1E3C,
+	0x1E3D,
+	0x1E3E,
+	0x1E3F,
+	0x1E40,
+	0x1E41,
+	0x1E42,
+	0x1E43,
+	0x1E44,
+	0x1E45,
+	0x1E46,
+	0x1E47,
+	0x1E48,
+	0x1E49,
+	0x1E4A,
+	0x1E4B,
+	0x1E4C,
+	0x1E4D,
+	0x1E4E,
+	0x1E4F,
+	0x1E50,
+	0x1E51,
+	0x1E52,
+	0x1E53,
+	0x1E54,
+	0x1E55,
+	0x1E56,
+	0x1E57,
+	0x1E58,
+	0x1E59,
+	0x1E5A,
+	0x1E5B,
+	0x1E5C,
+	0x1E5D,
+	0x1E5E,
+	0x1E5F,
+	0x1E60,
+	0x1E61,
+	0x1E62,
+	0x1E63,
+	0x1E64,
+	0x1E65,
+	0x1E66,
+	0x1E67,
+	0x1E68,
+	0x1E69,
+	0x1E6A,
+	0x1E6B,
+	0x1E6C,
+	0x1E6D,
+	0x1E6E,
+	0x1E6F,
+	0x1E70,
+	0x1E71,
+	0x1E72,
+	0x1E73,
+	0x1E74,
+	0x1E75,
+	0x1E76,
+	0x1E77,
+	0x1E78,
+	0x1E79,
+	0x1E7A,
+	0x1E7B,
+	0x1E7C,
+	0x1E7D,
+	0x1E7E,
+	0x1E7F,
+	0x1E80,
+	0x1E81,
+	0x1E82,
+	0x1E83,
+	0x1E84,
+	0x1E85,
+	0x1E86,
+	0x1E87,
+	0x1E88,
+	0x1E89,
+	0x1E8A,
+	0x1E8B,
+	0x1E8C,
+	0x1E8D,
+	0x1E8E,
+	0x1E8F,
+	0x1E90,
+	0x1E91,
+	0x1E92,
+	0x1E93,
+	0x1E94,
+	0x1E95,
+	0x1E9E,
+	0x1E9F,
+	0x1EA0,
+	0x1EA1,
+	0x1EA2,
+	0x1EA3,
+	0x1EA4,
+	0x1EA5,
+	0x1EA6,
+	0x1EA7,
+	0x1EA8,
+	0x1EA9,
+	0x1EAA,
+	0x1EAB,
+	0x1EAC,
+	0x1EAD,
+	0x1EAE,
+	0x1EAF,
+	0x1EB0,
+	0x1EB1,
+	0x1EB2,
+	0x1EB3,
+	0x1EB4,
+	0x1EB5,
+	0x1EB6,
+	0x1EB7,
+	0x1EB8,
+	0x1EB9,
+	0x1EBA,
+	0x1EBB,
+	0x1EBC,
+	0x1EBD,
+	0x1EBE,
+	0x1EBF,
+	0x1EC0,
+	0x1EC1,
+	0x1EC2,
+	0x1EC3,
+	0x1EC4,
+	0x1EC5,
+	0x1EC6,
+	0x1EC7,
+	0x1EC8,
+	0x1EC9,
+	0x1ECA,
+	0x1ECB,
+	0x1ECC,
+	0x1ECD,
+	0x1ECE,
+	0x1ECF,
+	0x1ED0,
+	0x1ED1,
+	0x1ED2,
+	0x1ED3,
+	0x1ED4,
+	0x1ED5,
+	0x1ED6,
+	0x1ED7,
+	0x1ED8,
+	0x1ED9,
+	0x1EDA,
+	0x1EDB,
+	0x1EDC,
+	0x1EDD,
+	0x1EDE,
+	0x1EDF,
+	0x1EE0,
+	0x1EE1,
+	0x1EE2,
+	0x1EE3,
+	0x1EE4,
+	0x1EE5,
+	0x1EE6,
+	0x1EE7,
+	0x1EE8,
+	0x1EE9,
+	0x1EEA,
+	0x1EEB,
+	0x1EEC,
+	0x1EED,
+	0x1EEE,
+	0x1EEF,
+	0x1EF0,
+	0x1EF1,
+	0x1EF2,
+	0x1EF3,
+	0x1EF4,
+	0x1EF5,
+	0x1EF6,
+	0x1EF7,
+	0x1EF8,
+	0x1EF9,
+	0x1EFA,
+	0x1EFB,
+	0x1EFC,
+	0x1EFD,
+	0x1EFE,
+	0x1EFF,
+	0x1F08,
+	0x1F10,
+	0x1F16,
+	0x1F20,
+	0x1F28,
+	0x1F30,
+	0x1F38,
+	0x1F40,
+	0x1F46,
+	0x1F50,
+	0x1F58,
+	0x1F60,
+	0x1F68,
+	0x1F70,
+	0x1F7E,
+	0x1F80,
+	0x1F88,
+	0x1F90,
+	0x1F98,
+	0x1FA0,
+	0x1FA8,
+	0x1FB0,
+	0x1FB5,
+	0x1FB6,
+	0x1FB8,
+	0x1FBE,
+	0x1FBF,
+	0x1FC2,
+	0x1FC5,
+	0x1FC6,
+	0x1FC8,
+	0x1FD0,
+	0x1FD4,
+	0x1FD6,
+	0x1FD8,
+	0x1FE0,
+	0x1FE8,
+	0x1FF2,
+	0x1FF5,
+	0x1FF6,
+	0x1FF8,
+	0x2071,
+	0x2072,
+	0x207F,
+	0x2080,
+	0x2090,
+	0x209D,
+	0x210A,
+	0x210B,
+	0x210E,
+	0x2110,
+	0x2113,
+	0x2114,
+	0x212F,
+	0x2130,
+	0x2134,
+	0x2135,
+	0x2139,
+	0x213A,
+	0x213C,
+	0x213E,
+	0x2146,
+	0x214A,
+	0x214E,
+	0x214F,
+	0x2170,
+	0x2180,
+	0x2184,
+	0x2185,
+	0x24D0,
+	0x24EA,
+	0x2C30,
+	0x2C5F,
+	0x2C61,
+	0x2C62,
+	0x2C65,
+	0x2C67,
+	0x2C68,
+	0x2C69,
+	0x2C6A,
+	0x2C6B,
+	0x2C6C,
+	0x2C6D,
+	0x2C71,
+	0x2C72,
+	0x2C73,
+	0x2C75,
+	0x2C76,
+	0x2C7E,
+	0x2C81,
+	0x2C82,
+	0x2C83,
+	0x2C84,
+	0x2C85,
+	0x2C86,
+	0x2C87,
+	0x2C88,
+	0x2C89,
+	0x2C8A,
+	0x2C8B,
+	0x2C8C,
+	0x2C8D,
+	0x2C8E,
+	0x2C8F,
+	0x2C90,
+	0x2C91,
+	0x2C92,
+	0x2C93,
+	0x2C94,
+	0x2C95,
+	0x2C96,
+	0x2C97,
+	0x2C98,
+	0x2C99,
+	0x2C9A,
+	0x2C9B,
+	0x2C9C,
+	0x2C9D,
+	0x2C9E,
+	0x2C9F,
+	0x2CA0,
+	0x2CA1,
+	0x2CA2,
+	0x2CA3,
+	0x2CA4,
+	0x2CA5,
+	0x2CA6,
+	0x2CA7,
+	0x2CA8,
+	0x2CA9,
+	0x2CAA,
+	0x2CAB,
+	0x2CAC,
+	0x2CAD,
+	0x2CAE,
+	0x2CAF,
+	0x2CB0,
+	0x2CB1,
+	0x2CB2,
+	0x2CB3,
+	0x2CB4,
+	0x2CB5,
+	0x2CB6,
+	0x2CB7,
+	0x2CB8,
+	0x2CB9,
+	0x2CBA,
+	0x2CBB,
+	0x2CBC,
+	0x2CBD,
+	0x2CBE,
+	0x2CBF,
+	0x2CC0,
+	0x2CC1,
+	0x2CC2,
+	0x2CC3,
+	0x2CC4,
+	0x2CC5,
+	0x2CC6,
+	0x2CC7,
+	0x2CC8,
+	0x2CC9,
+	0x2CCA,
+	0x2CCB,
+	0x2CCC,
+	0x2CCD,
+	0x2CCE,
+	0x2CCF,
+	0x2CD0,
+	0x2CD1,
+	0x2CD2,
+	0x2CD3,
+	0x2CD4,
+	0x2CD5,
+	0x2CD6,
+	0x2CD7,
+	0x2CD8,
+	0x2CD9,
+	0x2CDA,
+	0x2CDB,
+	0x2CDC,
+	0x2CDD,
+	0x2CDE,
+	0x2CDF,
+	0x2CE0,
+	0x2CE1,
+	0x2CE2,
+	0x2CE3,
+	0x2CE5,
+	0x2CEC,
+	0x2CED,
+	0x2CEE,
+	0x2CEF,
+	0x2CF3,
+	0x2CF4,
+	0x2D00,
+	0x2D26,
+	0x2D27,
+	0x2D28,
+	0x2D2D,
+	0x2D2E,
+	0xA641,
+	0xA642,
+	0xA643,
+	0xA644,
+	0xA645,
+	0xA646,
+	0xA647,
+	0xA648,
+	0xA649,
+	0xA64A,
+	0xA64B,
+	0xA64C,
+	0xA64D,
+	0xA64E,
+	0xA64F,
+	0xA650,
+	0xA651,
+	0xA652,
+	0xA653,
+	0xA654,
+	0xA655,
+	0xA656,
+	0xA657,
+	0xA658,
+	0xA659,
+	0xA65A,
+	0xA65B,
+	0xA65C,
+	0xA65D,
+	0xA65E,
+	0xA65F,
+	0xA660,
+	0xA661,
+	0xA662,
+	0xA663,
+	0xA664,
+	0xA665,
+	0xA666,
+	0xA667,
+	0xA668,
+	0xA669,
+	0xA66A,
+	0xA66B,
+	0xA66C,
+	0xA66D,
+	0xA66E,
+	0xA681,
+	0xA682,
+	0xA683,
+	0xA684,
+	0xA685,
+	0xA686,
+	0xA687,
+	0xA688,
+	0xA689,
+	0xA68A,
+	0xA68B,
+	0xA68C,
+	0xA68D,
+	0xA68E,
+	0xA68F,
+	0xA690,
+	0xA691,
+	0xA692,
+	0xA693,
+	0xA694,
+	0xA695,
+	0xA696,
+	0xA697,
+	0xA698,
+	0xA699,
+	0xA69A,
+	0xA69B,
+	0xA69E,
+	0xA723,
+	0xA724,
+	0xA725,
+	0xA726,
+	0xA727,
+	0xA728,
+	0xA729,
+	0xA72A,
+	0xA72B,
+	0xA72C,
+	0xA72D,
+	0xA72E,
+	0xA72F,
+	0xA732,
+	0xA733,
+	0xA734,
+	0xA735,
+	0xA736,
+	0xA737,
+	0xA738,
+	0xA739,
+	0xA73A,
+	0xA73B,
+	0xA73C,
+	0xA73D,
+	0xA73E,
+	0xA73F,
+	0xA740,
+	0xA741,
+	0xA742,
+	0xA743,
+	0xA744,
+	0xA745,
+	0xA746,
+	0xA747,
+	0xA748,
+	0xA749,
+	0xA74A,
+	0xA74B,
+	0xA74C,
+	0xA74D,
+	0xA74E,
+	0xA74F,
+	0xA750,
+	0xA751,
+	0xA752,
+	0xA753,
+	0xA754,
+	0xA755,
+	0xA756,
+	0xA757,
+	0xA758,
+	0xA759,
+	0xA75A,
+	0xA75B,
+	0xA75C,
+	0xA75D,
+	0xA75E,
+	0xA75F,
+	0xA760,
+	0xA761,
+	0xA762,
+	0xA763,
+	0xA764,
+	0xA765,
+	0xA766,
+	0xA767,
+	0xA768,
+	0xA769,
+	0xA76A,
+	0xA76B,
+	0xA76C,
+	0xA76D,
+	0xA76E,
+	0xA76F,
+	0xA779,
+	0xA77A,
+	0xA77B,
+	0xA77C,
+	0xA77D,
+	0xA77F,
+	0xA780,
+	0xA781,
+	0xA782,
+	0xA783,
+	0xA784,
+	0xA785,
+	0xA786,
+	0xA787,
+	0xA788,
+	0xA78C,
+	0xA78D,
+	0xA78E,
+	0xA78F,
+	0xA791,
+	0xA792,
+	0xA793,
+	0xA796,
+	0xA797,
+	0xA798,
+	0xA799,
+	0xA79A,
+	0xA79B,
+	0xA79C,
+	0xA79D,
+	0xA79E,
+	0xA79F,
+	0xA7A0,
+	0xA7A1,
+	0xA7A2,
+	0xA7A3,
+	0xA7A4,
+	0xA7A5,
+	0xA7A6,
+	0xA7A7,
+	0xA7A8,
+	0xA7A9,
+	0xA7AA,
+	0xA7B5,
+	0xA7B6,
+	0xA7B7,
+	0xA7B8,
+	0xA7F8,
+	0xA7FB,
+	0xAB30,
+	0xAB5B,
+	0xAB5C,
+	0xAB66,
+	0xAB70,
+	0xABC0,
+	0xFB00,
+	0xFB07,
+	0xFB13,
+	0xFB18,
+	0xFF41,
+	0xFF5B,
+	0x10428,
+	0x10450,
+	0x10CC0,
+	0x10CF3,
+	0x118C0,
+	0x118E0,
+	0x1D41A,
+	0x1D434,
+	0x1D44E,
+	0x1D455,
+	0x1D456,
+	0x1D468,
+	0x1D482,
+	0x1D49C,
+	0x1D4B6,
+	0x1D4BA,
+	0x1D4BB,
+	0x1D4BC,
+	0x1D4BD,
+	0x1D4C4,
+	0x1D4C5,
+	0x1D4D0,
+	0x1D4EA,
+	0x1D504,
+	0x1D51E,
+	0x1D538,
+	0x1D552,
+	0x1D56C,
+	0x1D586,
+	0x1D5A0,
+	0x1D5BA,
+	0x1D5D4,
+	0x1D5EE,
+	0x1D608,
+	0x1D622,
+	0x1D63C,
+	0x1D656,
+	0x1D670,
+	0x1D68A,
+	0x1D6A6,
+	0x1D6C2,
+	0x1D6DB,
+	0x1D6DC,
+	0x1D6E2,
+	0x1D6FC,
+	0x1D715,
+	0x1D716,
+	0x1D71C,
+	0x1D736,
+	0x1D74F,
+	0x1D750,
+	0x1D756,
+	0x1D770,
+	0x1D789,
+	0x1D78A,
+	0x1D790,
+	0x1D7AA,
+	0x1D7C3,
+	0x1D7C4,
+	0x1D7CA,
+	0x1D7CB,
+	0x1D7CC
+};
+
+static const UV XPosixPrint_invlist[] = { /* for ASCII/Latin1 */
+	1231,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	1,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x20,
+	0x7F,
+	0xA0,
+	0x378,
+	0x37A,
+	0x380,
+	0x384,
+	0x38B,
+	0x38C,
+	0x38D,
+	0x38E,
+	0x3A2,
+	0x3A3,
+	0x530,
+	0x531,
+	0x557,
+	0x559,
+	0x560,
+	0x561,
+	0x588,
+	0x589,
+	0x58B,
+	0x58D,
+	0x590,
+	0x591,
+	0x5C8,
+	0x5D0,
+	0x5EB,
+	0x5F0,
+	0x5F5,
+	0x600,
+	0x61D,
+	0x61E,
+	0x70E,
+	0x70F,
+	0x74B,
+	0x74D,
+	0x7B2,
+	0x7C0,
+	0x7FB,
+	0x800,
+	0x82E,
+	0x830,
+	0x83F,
+	0x840,
+	0x85C,
+	0x85E,
+	0x85F,
+	0x8A0,
+	0x8B5,
+	0x8E3,
+	0x984,
+	0x985,
+	0x98D,
+	0x98F,
+	0x991,
+	0x993,
+	0x9A9,
+	0x9AA,
+	0x9B1,
+	0x9B2,
+	0x9B3,
+	0x9B6,
+	0x9BA,
+	0x9BC,
+	0x9C5,
+	0x9C7,
+	0x9C9,
+	0x9CB,
+	0x9CF,
+	0x9D7,
+	0x9D8,
+	0x9DC,
+	0x9DE,
+	0x9DF,
+	0x9E4,
+	0x9E6,
+	0x9FC,
+	0xA01,
+	0xA04,
+	0xA05,
+	0xA0B,
+	0xA0F,
+	0xA11,
+	0xA13,
+	0xA29,
+	0xA2A,
+	0xA31,
+	0xA32,
+	0xA34,
+	0xA35,
+	0xA37,
+	0xA38,
+	0xA3A,
+	0xA3C,
+	0xA3D,
+	0xA3E,
+	0xA43,
+	0xA47,
+	0xA49,
+	0xA4B,
+	0xA4E,
+	0xA51,
+	0xA52,
+	0xA59,
+	0xA5D,
+	0xA5E,
+	0xA5F,
+	0xA66,
+	0xA76,
+	0xA81,
+	0xA84,
+	0xA85,
+	0xA8E,
+	0xA8F,
+	0xA92,
+	0xA93,
+	0xAA9,
+	0xAAA,
+	0xAB1,
+	0xAB2,
+	0xAB4,
+	0xAB5,
+	0xABA,
+	0xABC,
+	0xAC6,
+	0xAC7,
+	0xACA,
+	0xACB,
+	0xACE,
+	0xAD0,
+	0xAD1,
+	0xAE0,
+	0xAE4,
+	0xAE6,
+	0xAF2,
+	0xAF9,
+	0xAFA,
+	0xB01,
+	0xB04,
+	0xB05,
+	0xB0D,
+	0xB0F,
+	0xB11,
+	0xB13,
+	0xB29,
+	0xB2A,
+	0xB31,
+	0xB32,
+	0xB34,
+	0xB35,
+	0xB3A,
+	0xB3C,
+	0xB45,
+	0xB47,
+	0xB49,
+	0xB4B,
+	0xB4E,
+	0xB56,
+	0xB58,
+	0xB5C,
+	0xB5E,
+	0xB5F,
+	0xB64,
+	0xB66,
+	0xB78,
+	0xB82,
+	0xB84,
+	0xB85,
+	0xB8B,
+	0xB8E,
+	0xB91,
+	0xB92,
+	0xB96,
+	0xB99,
+	0xB9B,
+	0xB9C,
+	0xB9D,
+	0xB9E,
+	0xBA0,
+	0xBA3,
+	0xBA5,
+	0xBA8,
+	0xBAB,
+	0xBAE,
+	0xBBA,
+	0xBBE,
+	0xBC3,
+	0xBC6,
+	0xBC9,
+	0xBCA,
+	0xBCE,
+	0xBD0,
+	0xBD1,
+	0xBD7,
+	0xBD8,
+	0xBE6,
+	0xBFB,
+	0xC00,
+	0xC04,
+	0xC05,
+	0xC0D,
+	0xC0E,
+	0xC11,
+	0xC12,
+	0xC29,
+	0xC2A,
+	0xC3A,
+	0xC3D,
+	0xC45,
+	0xC46,
+	0xC49,
+	0xC4A,
+	0xC4E,
+	0xC55,
+	0xC57,
+	0xC58,
+	0xC5B,
+	0xC60,
+	0xC64,
+	0xC66,
+	0xC70,
+	0xC78,
+	0xC80,
+	0xC81,
+	0xC84,
+	0xC85,
+	0xC8D,
+	0xC8E,
+	0xC91,
+	0xC92,
+	0xCA9,
+	0xCAA,
+	0xCB4,
+	0xCB5,
+	0xCBA,
+	0xCBC,
+	0xCC5,
+	0xCC6,
+	0xCC9,
+	0xCCA,
+	0xCCE,
+	0xCD5,
+	0xCD7,
+	0xCDE,
+	0xCDF,
+	0xCE0,
+	0xCE4,
+	0xCE6,
+	0xCF0,
+	0xCF1,
+	0xCF3,
+	0xD01,
+	0xD04,
+	0xD05,
+	0xD0D,
+	0xD0E,
+	0xD11,
+	0xD12,
+	0xD3B,
+	0xD3D,
+	0xD45,
+	0xD46,
+	0xD49,
+	0xD4A,
+	0xD4F,
+	0xD57,
+	0xD58,
+	0xD5F,
+	0xD64,
+	0xD66,
+	0xD76,
+	0xD79,
+	0xD80,
+	0xD82,
+	0xD84,
+	0xD85,
+	0xD97,
+	0xD9A,
+	0xDB2,
+	0xDB3,
+	0xDBC,
+	0xDBD,
+	0xDBE,
+	0xDC0,
+	0xDC7,
+	0xDCA,
+	0xDCB,
+	0xDCF,
+	0xDD5,
+	0xDD6,
+	0xDD7,
+	0xDD8,
+	0xDE0,
+	0xDE6,
+	0xDF0,
+	0xDF2,
+	0xDF5,
+	0xE01,
+	0xE3B,
+	0xE3F,
+	0xE5C,
+	0xE81,
+	0xE83,
+	0xE84,
+	0xE85,
+	0xE87,
+	0xE89,
+	0xE8A,
+	0xE8B,
+	0xE8D,
+	0xE8E,
+	0xE94,
+	0xE98,
+	0xE99,
+	0xEA0,
+	0xEA1,
+	0xEA4,
+	0xEA5,
+	0xEA6,
+	0xEA7,
+	0xEA8,
+	0xEAA,
+	0xEAC,
+	0xEAD,
+	0xEBA,
+	0xEBB,
+	0xEBE,
+	0xEC0,
+	0xEC5,
+	0xEC6,
+	0xEC7,
+	0xEC8,
+	0xECE,
+	0xED0,
+	0xEDA,
+	0xEDC,
+	0xEE0,
+	0xF00,
+	0xF48,
+	0xF49,
+	0xF6D,
+	0xF71,
+	0xF98,
+	0xF99,
+	0xFBD,
+	0xFBE,
+	0xFCD,
+	0xFCE,
+	0xFDB,
+	0x1000,
+	0x10C6,
+	0x10C7,
+	0x10C8,
+	0x10CD,
+	0x10CE,
+	0x10D0,
+	0x1249,
+	0x124A,
+	0x124E,
+	0x1250,
+	0x1257,
+	0x1258,
+	0x1259,
+	0x125A,
+	0x125E,
+	0x1260,
+	0x1289,
+	0x128A,
+	0x128E,
+	0x1290,
+	0x12B1,
+	0x12B2,
+	0x12B6,
+	0x12B8,
+	0x12BF,
+	0x12C0,
+	0x12C1,
+	0x12C2,
+	0x12C6,
+	0x12C8,
+	0x12D7,
+	0x12D8,
+	0x1311,
+	0x1312,
+	0x1316,
+	0x1318,
+	0x135B,
+	0x135D,
+	0x137D,
+	0x1380,
+	0x139A,
+	0x13A0,
+	0x13F6,
+	0x13F8,
+	0x13FE,
+	0x1400,
+	0x169D,
+	0x16A0,
+	0x16F9,
+	0x1700,
+	0x170D,
+	0x170E,
+	0x1715,
+	0x1720,
+	0x1737,
+	0x1740,
+	0x1754,
+	0x1760,
+	0x176D,
+	0x176E,
+	0x1771,
+	0x1772,
+	0x1774,
+	0x1780,
+	0x17DE,
+	0x17E0,
+	0x17EA,
+	0x17F0,
+	0x17FA,
+	0x1800,
+	0x180F,
+	0x1810,
+	0x181A,
+	0x1820,
+	0x1878,
+	0x1880,
+	0x18AB,
+	0x18B0,
+	0x18F6,
+	0x1900,
+	0x191F,
+	0x1920,
+	0x192C,
+	0x1930,
+	0x193C,
+	0x1940,
+	0x1941,
+	0x1944,
+	0x196E,
+	0x1970,
+	0x1975,
+	0x1980,
+	0x19AC,
+	0x19B0,
+	0x19CA,
+	0x19D0,
+	0x19DB,
+	0x19DE,
+	0x1A1C,
+	0x1A1E,
+	0x1A5F,
+	0x1A60,
+	0x1A7D,
+	0x1A7F,
+	0x1A8A,
+	0x1A90,
+	0x1A9A,
+	0x1AA0,
+	0x1AAE,
+	0x1AB0,
+	0x1ABF,
+	0x1B00,
+	0x1B4C,
+	0x1B50,
+	0x1B7D,
+	0x1B80,
+	0x1BF4,
+	0x1BFC,
+	0x1C38,
+	0x1C3B,
+	0x1C4A,
+	0x1C4D,
+	0x1C80,
+	0x1CC0,
+	0x1CC8,
+	0x1CD0,
+	0x1CF7,
+	0x1CF8,
+	0x1CFA,
+	0x1D00,
+	0x1DF6,
+	0x1DFC,
+	0x1F16,
+	0x1F18,
+	0x1F1E,
+	0x1F20,
+	0x1F46,
+	0x1F48,
+	0x1F4E,
+	0x1F50,
+	0x1F58,
+	0x1F59,
+	0x1F5A,
+	0x1F5B,
+	0x1F5C,
+	0x1F5D,
+	0x1F5E,
+	0x1F5F,
+	0x1F7E,
+	0x1F80,
+	0x1FB5,
+	0x1FB6,
+	0x1FC5,
+	0x1FC6,
+	0x1FD4,
+	0x1FD6,
+	0x1FDC,
+	0x1FDD,
+	0x1FF0,
+	0x1FF2,
+	0x1FF5,
+	0x1FF6,
+	0x1FFF,
+	0x2000,
+	0x2028,
+	0x202A,
+	0x2065,
+	0x2066,
+	0x2072,
+	0x2074,
+	0x208F,
+	0x2090,
+	0x209D,
+	0x20A0,
+	0x20BF,
+	0x20D0,
+	0x20F1,
+	0x2100,
+	0x218C,
+	0x2190,
+	0x23FB,
+	0x2400,
+	0x2427,
+	0x2440,
+	0x244B,
+	0x2460,
+	0x2B74,
+	0x2B76,
+	0x2B96,
+	0x2B98,
+	0x2BBA,
+	0x2BBD,
+	0x2BC9,
+	0x2BCA,
+	0x2BD2,
+	0x2BEC,
+	0x2BF0,
+	0x2C00,
+	0x2C2F,
+	0x2C30,
+	0x2C5F,
+	0x2C60,
+	0x2CF4,
+	0x2CF9,
+	0x2D26,
+	0x2D27,
+	0x2D28,
+	0x2D2D,
+	0x2D2E,
+	0x2D30,
+	0x2D68,
+	0x2D6F,
+	0x2D71,
+	0x2D7F,
+	0x2D97,
+	0x2DA0,
+	0x2DA7,
+	0x2DA8,
+	0x2DAF,
+	0x2DB0,
+	0x2DB7,
+	0x2DB8,
+	0x2DBF,
+	0x2DC0,
+	0x2DC7,
+	0x2DC8,
+	0x2DCF,
+	0x2DD0,
+	0x2DD7,
+	0x2DD8,
+	0x2DDF,
+	0x2DE0,
+	0x2E43,
+	0x2E80,
+	0x2E9A,
+	0x2E9B,
+	0x2EF4,
+	0x2F00,
+	0x2FD6,
+	0x2FF0,
+	0x2FFC,
+	0x3000,
+	0x3040,
+	0x3041,
+	0x3097,
+	0x3099,
+	0x3100,
+	0x3105,
+	0x312E,
+	0x3131,
+	0x318F,
+	0x3190,
+	0x31BB,
+	0x31C0,
+	0x31E4,
+	0x31F0,
+	0x321F,
+	0x3220,
+	0x32FF,
+	0x3300,
+	0x4DB6,
+	0x4DC0,
+	0x9FD6,
+	0xA000,
+	0xA48D,
+	0xA490,
+	0xA4C7,
+	0xA4D0,
+	0xA62C,
+	0xA640,
+	0xA6F8,
+	0xA700,
+	0xA7AE,
+	0xA7B0,
+	0xA7B8,
+	0xA7F7,
+	0xA82C,
+	0xA830,
+	0xA83A,
+	0xA840,
+	0xA878,
+	0xA880,
+	0xA8C5,
+	0xA8CE,
+	0xA8DA,
+	0xA8E0,
+	0xA8FE,
+	0xA900,
+	0xA954,
+	0xA95F,
+	0xA97D,
+	0xA980,
+	0xA9CE,
+	0xA9CF,
+	0xA9DA,
+	0xA9DE,
+	0xA9FF,
+	0xAA00,
+	0xAA37,
+	0xAA40,
+	0xAA4E,
+	0xAA50,
+	0xAA5A,
+	0xAA5C,
+	0xAAC3,
+	0xAADB,
+	0xAAF7,
+	0xAB01,
+	0xAB07,
+	0xAB09,
+	0xAB0F,
+	0xAB11,
+	0xAB17,
+	0xAB20,
+	0xAB27,
+	0xAB28,
+	0xAB2F,
+	0xAB30,
+	0xAB66,
+	0xAB70,
+	0xABEE,
+	0xABF0,
+	0xABFA,
+	0xAC00,
+	0xD7A4,
+	0xD7B0,
+	0xD7C7,
+	0xD7CB,
+	0xD7FC,
+	0xE000,
+	0xFA6E,
+	0xFA70,
+	0xFADA,
+	0xFB00,
+	0xFB07,
+	0xFB13,
+	0xFB18,
+	0xFB1D,
+	0xFB37,
+	0xFB38,
+	0xFB3D,
+	0xFB3E,
+	0xFB3F,
+	0xFB40,
+	0xFB42,
+	0xFB43,
+	0xFB45,
+	0xFB46,
+	0xFBC2,
+	0xFBD3,
+	0xFD40,
+	0xFD50,
+	0xFD90,
+	0xFD92,
+	0xFDC8,
+	0xFDF0,
+	0xFDFE,
+	0xFE00,
+	0xFE1A,
+	0xFE20,
+	0xFE53,
+	0xFE54,
+	0xFE67,
+	0xFE68,
+	0xFE6C,
+	0xFE70,
+	0xFE75,
+	0xFE76,
+	0xFEFD,
+	0xFEFF,
+	0xFF00,
+	0xFF01,
+	0xFFBF,
+	0xFFC2,
+	0xFFC8,
+	0xFFCA,
+	0xFFD0,
+	0xFFD2,
+	0xFFD8,
+	0xFFDA,
+	0xFFDD,
+	0xFFE0,
+	0xFFE7,
+	0xFFE8,
+	0xFFEF,
+	0xFFF9,
+	0xFFFE,
+	0x10000,
+	0x1000C,
+	0x1000D,
+	0x10027,
+	0x10028,
+	0x1003B,
+	0x1003C,
+	0x1003E,
+	0x1003F,
+	0x1004E,
+	0x10050,
+	0x1005E,
+	0x10080,
+	0x100FB,
+	0x10100,
+	0x10103,
+	0x10107,
+	0x10134,
+	0x10137,
+	0x1018D,
+	0x10190,
+	0x1019C,
+	0x101A0,
+	0x101A1,
+	0x101D0,
+	0x101FE,
+	0x10280,
+	0x1029D,
+	0x102A0,
+	0x102D1,
+	0x102E0,
+	0x102FC,
+	0x10300,
+	0x10324,
+	0x10330,
+	0x1034B,
+	0x10350,
+	0x1037B,
+	0x10380,
+	0x1039E,
+	0x1039F,
+	0x103C4,
+	0x103C8,
+	0x103D6,
+	0x10400,
+	0x1049E,
+	0x104A0,
+	0x104AA,
+	0x10500,
+	0x10528,
+	0x10530,
+	0x10564,
+	0x1056F,
+	0x10570,
+	0x10600,
+	0x10737,
+	0x10740,
+	0x10756,
+	0x10760,
+	0x10768,
+	0x10800,
+	0x10806,
+	0x10808,
+	0x10809,
+	0x1080A,
+	0x10836,
+	0x10837,
+	0x10839,
+	0x1083C,
+	0x1083D,
+	0x1083F,
+	0x10856,
+	0x10857,
+	0x1089F,
+	0x108A7,
+	0x108B0,
+	0x108E0,
+	0x108F3,
+	0x108F4,
+	0x108F6,
+	0x108FB,
+	0x1091C,
+	0x1091F,
+	0x1093A,
+	0x1093F,
+	0x10940,
+	0x10980,
+	0x109B8,
+	0x109BC,
+	0x109D0,
+	0x109D2,
+	0x10A04,
+	0x10A05,
+	0x10A07,
+	0x10A0C,
+	0x10A14,
+	0x10A15,
+	0x10A18,
+	0x10A19,
+	0x10A34,
+	0x10A38,
+	0x10A3B,
+	0x10A3F,
+	0x10A48,
+	0x10A50,
+	0x10A59,
+	0x10A60,
+	0x10AA0,
+	0x10AC0,
+	0x10AE7,
+	0x10AEB,
+	0x10AF7,
+	0x10B00,
+	0x10B36,
+	0x10B39,
+	0x10B56,
+	0x10B58,
+	0x10B73,
+	0x10B78,
+	0x10B92,
+	0x10B99,
+	0x10B9D,
+	0x10BA9,
+	0x10BB0,
+	0x10C00,
+	0x10C49,
+	0x10C80,
+	0x10CB3,
+	0x10CC0,
+	0x10CF3,
+	0x10CFA,
+	0x10D00,
+	0x10E60,
+	0x10E7F,
+	0x11000,
+	0x1104E,
+	0x11052,
+	0x11070,
+	0x1107F,
+	0x110C2,
+	0x110D0,
+	0x110E9,
+	0x110F0,
+	0x110FA,
+	0x11100,
+	0x11135,
+	0x11136,
+	0x11144,
+	0x11150,
+	0x11177,
+	0x11180,
+	0x111CE,
+	0x111D0,
+	0x111E0,
+	0x111E1,
+	0x111F5,
+	0x11200,
+	0x11212,
+	0x11213,
+	0x1123E,
+	0x11280,
+	0x11287,
+	0x11288,
+	0x11289,
+	0x1128A,
+	0x1128E,
+	0x1128F,
+	0x1129E,
+	0x1129F,
+	0x112AA,
+	0x112B0,
+	0x112EB,
+	0x112F0,
+	0x112FA,
+	0x11300,
+	0x11304,
+	0x11305,
+	0x1130D,
+	0x1130F,
+	0x11311,
+	0x11313,
+	0x11329,
+	0x1132A,
+	0x11331,
+	0x11332,
+	0x11334,
+	0x11335,
+	0x1133A,
+	0x1133C,
+	0x11345,
+	0x11347,
+	0x11349,
+	0x1134B,
+	0x1134E,
+	0x11350,
+	0x11351,
+	0x11357,
+	0x11358,
+	0x1135D,
+	0x11364,
+	0x11366,
+	0x1136D,
+	0x11370,
+	0x11375,
+	0x11480,
+	0x114C8,
+	0x114D0,
+	0x114DA,
+	0x11580,
+	0x115B6,
+	0x115B8,
+	0x115DE,
+	0x11600,
+	0x11645,
+	0x11650,
+	0x1165A,
+	0x11680,
+	0x116B8,
+	0x116C0,
+	0x116CA,
+	0x11700,
+	0x1171A,
+	0x1171D,
+	0x1172C,
+	0x11730,
+	0x11740,
+	0x118A0,
+	0x118F3,
+	0x118FF,
+	0x11900,
+	0x11AC0,
+	0x11AF9,
+	0x12000,
+	0x1239A,
+	0x12400,
+	0x1246F,
+	0x12470,
+	0x12475,
+	0x12480,
+	0x12544,
+	0x13000,
+	0x1342F,
+	0x14400,
+	0x14647,
+	0x16800,
+	0x16A39,
+	0x16A40,
+	0x16A5F,
+	0x16A60,
+	0x16A6A,
+	0x16A6E,
+	0x16A70,
+	0x16AD0,
+	0x16AEE,
+	0x16AF0,
+	0x16AF6,
+	0x16B00,
+	0x16B46,
+	0x16B50,
+	0x16B5A,
+	0x16B5B,
+	0x16B62,
+	0x16B63,
+	0x16B78,
+	0x16B7D,
+	0x16B90,
+	0x16F00,
+	0x16F45,
+	0x16F50,
+	0x16F7F,
+	0x16F8F,
+	0x16FA0,
+	0x1B000,
+	0x1B002,
+	0x1BC00,
+	0x1BC6B,
+	0x1BC70,
+	0x1BC7D,
+	0x1BC80,
+	0x1BC89,
+	0x1BC90,
+	0x1BC9A,
+	0x1BC9C,
+	0x1BCA4,
+	0x1D000,
+	0x1D0F6,
+	0x1D100,
+	0x1D127,
+	0x1D129,
+	0x1D1E9,
+	0x1D200,
+	0x1D246,
+	0x1D300,
+	0x1D357,
+	0x1D360,
+	0x1D372,
+	0x1D400,
+	0x1D455,
+	0x1D456,
+	0x1D49D,
+	0x1D49E,
+	0x1D4A0,
+	0x1D4A2,
+	0x1D4A3,
+	0x1D4A5,
+	0x1D4A7,
+	0x1D4A9,
+	0x1D4AD,
+	0x1D4AE,
+	0x1D4BA,
+	0x1D4BB,
+	0x1D4BC,
+	0x1D4BD,
+	0x1D4C4,
+	0x1D4C5,
+	0x1D506,
+	0x1D507,
+	0x1D50B,
+	0x1D50D,
+	0x1D515,
+	0x1D516,
+	0x1D51D,
+	0x1D51E,
+	0x1D53A,
+	0x1D53B,
+	0x1D53F,
+	0x1D540,
+	0x1D545,
+	0x1D546,
+	0x1D547,
+	0x1D54A,
+	0x1D551,
+	0x1D552,
+	0x1D6A6,
+	0x1D6A8,
+	0x1D7CC,
+	0x1D7CE,
+	0x1DA8C,
+	0x1DA9B,
+	0x1DAA0,
+	0x1DAA1,
+	0x1DAB0,
+	0x1E800,
+	0x1E8C5,
+	0x1E8C7,
+	0x1E8D7,
+	0x1EE00,
+	0x1EE04,
+	0x1EE05,
+	0x1EE20,
+	0x1EE21,
+	0x1EE23,
+	0x1EE24,
+	0x1EE25,
+	0x1EE27,
+	0x1EE28,
+	0x1EE29,
+	0x1EE33,
+	0x1EE34,
+	0x1EE38,
+	0x1EE39,
+	0x1EE3A,
+	0x1EE3B,
+	0x1EE3C,
+	0x1EE42,
+	0x1EE43,
+	0x1EE47,
+	0x1EE48,
+	0x1EE49,
+	0x1EE4A,
+	0x1EE4B,
+	0x1EE4C,
+	0x1EE4D,
+	0x1EE50,
+	0x1EE51,
+	0x1EE53,
+	0x1EE54,
+	0x1EE55,
+	0x1EE57,
+	0x1EE58,
+	0x1EE59,
+	0x1EE5A,
+	0x1EE5B,
+	0x1EE5C,
+	0x1EE5D,
+	0x1EE5E,
+	0x1EE5F,
+	0x1EE60,
+	0x1EE61,
+	0x1EE63,
+	0x1EE64,
+	0x1EE65,
+	0x1EE67,
+	0x1EE6B,
+	0x1EE6C,
+	0x1EE73,
+	0x1EE74,
+	0x1EE78,
+	0x1EE79,
+	0x1EE7D,
+	0x1EE7E,
+	0x1EE7F,
+	0x1EE80,
+	0x1EE8A,
+	0x1EE8B,
+	0x1EE9C,
+	0x1EEA1,
+	0x1EEA4,
+	0x1EEA5,
+	0x1EEAA,
+	0x1EEAB,
+	0x1EEBC,
+	0x1EEF0,
+	0x1EEF2,
+	0x1F000,
+	0x1F02C,
+	0x1F030,
+	0x1F094,
+	0x1F0A0,
+	0x1F0AF,
+	0x1F0B1,
+	0x1F0C0,
+	0x1F0C1,
+	0x1F0D0,
+	0x1F0D1,
+	0x1F0F6,
+	0x1F100,
+	0x1F10D,
+	0x1F110,
+	0x1F12F,
+	0x1F130,
+	0x1F16C,
+	0x1F170,
+	0x1F19B,
+	0x1F1E6,
+	0x1F203,
+	0x1F210,
+	0x1F23B,
+	0x1F240,
+	0x1F249,
+	0x1F250,
+	0x1F252,
+	0x1F300,
+	0x1F57A,
+	0x1F57B,
+	0x1F5A4,
+	0x1F5A5,
+	0x1F6D1,
+	0x1F6E0,
+	0x1F6ED,
+	0x1F6F0,
+	0x1F6F4,
+	0x1F700,
+	0x1F774,
+	0x1F780,
+	0x1F7D5,
+	0x1F800,
+	0x1F80C,
+	0x1F810,
+	0x1F848,
+	0x1F850,
+	0x1F85A,
+	0x1F860,
+	0x1F888,
+	0x1F890,
+	0x1F8AE,
+	0x1F910,
+	0x1F919,
+	0x1F980,
+	0x1F985,
+	0x1F9C0,
+	0x1F9C1,
+	0x20000,
+	0x2A6D7,
+	0x2A700,
+	0x2B735,
+	0x2B740,
+	0x2B81E,
+	0x2B820,
+	0x2CEA2,
+	0x2F800,
+	0x2FA1E,
+	0xE0001,
+	0xE0002,
+	0xE0020,
+	0xE0080,
+	0xE0100,
+	0xE01F0,
+	0xF0000,
+	0xFFFFE,
+	0x100000,
+	0x10FFFE
+};
+
+static const UV XPosixPunct_invlist[] = { /* for ASCII/Latin1 */
+	313,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	1,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x21,
+	0x30,
+	0x3A,
+	0x41,
+	0x5B,
+	0x61,
+	0x7B,
+	0x7F,
+	0xA1,
+	0xA2,
+	0xA7,
+	0xA8,
+	0xAB,
+	0xAC,
+	0xB6,
+	0xB8,
+	0xBB,
+	0xBC,
+	0xBF,
+	0xC0,
+	0x37E,
+	0x37F,
+	0x387,
+	0x388,
+	0x55A,
+	0x560,
+	0x589,
+	0x58B,
+	0x5BE,
+	0x5BF,
+	0x5C0,
+	0x5C1,
+	0x5C3,
+	0x5C4,
+	0x5C6,
+	0x5C7,
+	0x5F3,
+	0x5F5,
+	0x609,
+	0x60B,
+	0x60C,
+	0x60E,
+	0x61B,
+	0x61C,
+	0x61E,
+	0x620,
+	0x66A,
+	0x66E,
+	0x6D4,
+	0x6D5,
+	0x700,
+	0x70E,
+	0x7F7,
+	0x7FA,
+	0x830,
+	0x83F,
+	0x85E,
+	0x85F,
+	0x964,
+	0x966,
+	0x970,
+	0x971,
+	0xAF0,
+	0xAF1,
+	0xDF4,
+	0xDF5,
+	0xE4F,
+	0xE50,
+	0xE5A,
+	0xE5C,
+	0xF04,
+	0xF13,
+	0xF14,
+	0xF15,
+	0xF3A,
+	0xF3E,
+	0xF85,
+	0xF86,
+	0xFD0,
+	0xFD5,
+	0xFD9,
+	0xFDB,
+	0x104A,
+	0x1050,
+	0x10FB,
+	0x10FC,
+	0x1360,
+	0x1369,
+	0x1400,
+	0x1401,
+	0x166D,
+	0x166F,
+	0x169B,
+	0x169D,
+	0x16EB,
+	0x16EE,
+	0x1735,
+	0x1737,
+	0x17D4,
+	0x17D7,
+	0x17D8,
+	0x17DB,
+	0x1800,
+	0x180B,
+	0x1944,
+	0x1946,
+	0x1A1E,
+	0x1A20,
+	0x1AA0,
+	0x1AA7,
+	0x1AA8,
+	0x1AAE,
+	0x1B5A,
+	0x1B61,
+	0x1BFC,
+	0x1C00,
+	0x1C3B,
+	0x1C40,
+	0x1C7E,
+	0x1C80,
+	0x1CC0,
+	0x1CC8,
+	0x1CD3,
+	0x1CD4,
+	0x2010,
+	0x2028,
+	0x2030,
+	0x2044,
+	0x2045,
+	0x2052,
+	0x2053,
+	0x205F,
+	0x207D,
+	0x207F,
+	0x208D,
+	0x208F,
+	0x2308,
+	0x230C,
+	0x2329,
+	0x232B,
+	0x2768,
+	0x2776,
+	0x27C5,
+	0x27C7,
+	0x27E6,
+	0x27F0,
+	0x2983,
+	0x2999,
+	0x29D8,
+	0x29DC,
+	0x29FC,
+	0x29FE,
+	0x2CF9,
+	0x2CFD,
+	0x2CFE,
+	0x2D00,
+	0x2D70,
+	0x2D71,
+	0x2E00,
+	0x2E2F,
+	0x2E30,
+	0x2E43,
+	0x3001,
+	0x3004,
+	0x3008,
+	0x3012,
+	0x3014,
+	0x3020,
+	0x3030,
+	0x3031,
+	0x303D,
+	0x303E,
+	0x30A0,
+	0x30A1,
+	0x30FB,
+	0x30FC,
+	0xA4FE,
+	0xA500,
+	0xA60D,
+	0xA610,
+	0xA673,
+	0xA674,
+	0xA67E,
+	0xA67F,
+	0xA6F2,
+	0xA6F8,
+	0xA874,
+	0xA878,
+	0xA8CE,
+	0xA8D0,
+	0xA8F8,
+	0xA8FB,
+	0xA8FC,
+	0xA8FD,
+	0xA92E,
+	0xA930,
+	0xA95F,
+	0xA960,
+	0xA9C1,
+	0xA9CE,
+	0xA9DE,
+	0xA9E0,
+	0xAA5C,
+	0xAA60,
+	0xAADE,
+	0xAAE0,
+	0xAAF0,
+	0xAAF2,
+	0xABEB,
+	0xABEC,
+	0xFD3E,
+	0xFD40,
+	0xFE10,
+	0xFE1A,
+	0xFE30,
+	0xFE53,
+	0xFE54,
+	0xFE62,
+	0xFE63,
+	0xFE64,
+	0xFE68,
+	0xFE69,
+	0xFE6A,
+	0xFE6C,
+	0xFF01,
+	0xFF04,
+	0xFF05,
+	0xFF0B,
+	0xFF0C,
+	0xFF10,
+	0xFF1A,
+	0xFF1C,
+	0xFF1F,
+	0xFF21,
+	0xFF3B,
+	0xFF3E,
+	0xFF3F,
+	0xFF40,
+	0xFF5B,
+	0xFF5C,
+	0xFF5D,
+	0xFF5E,
+	0xFF5F,
+	0xFF66,
+	0x10100,
+	0x10103,
+	0x1039F,
+	0x103A0,
+	0x103D0,
+	0x103D1,
+	0x1056F,
+	0x10570,
+	0x10857,
+	0x10858,
+	0x1091F,
+	0x10920,
+	0x1093F,
+	0x10940,
+	0x10A50,
+	0x10A59,
+	0x10A7F,
+	0x10A80,
+	0x10AF0,
+	0x10AF7,
+	0x10B39,
+	0x10B40,
+	0x10B99,
+	0x10B9D,
+	0x11047,
+	0x1104E,
+	0x110BB,
+	0x110BD,
+	0x110BE,
+	0x110C2,
+	0x11140,
+	0x11144,
+	0x11174,
+	0x11176,
+	0x111C5,
+	0x111CA,
+	0x111CD,
+	0x111CE,
+	0x111DB,
+	0x111DC,
+	0x111DD,
+	0x111E0,
+	0x11238,
+	0x1123E,
+	0x112A9,
+	0x112AA,
+	0x114C6,
+	0x114C7,
+	0x115C1,
+	0x115D8,
+	0x11641,
+	0x11644,
+	0x1173C,
+	0x1173F,
+	0x12470,
+	0x12475,
+	0x16A6E,
+	0x16A70,
+	0x16AF5,
+	0x16AF6,
+	0x16B37,
+	0x16B3C,
+	0x16B44,
+	0x16B45,
+	0x1BC9F,
+	0x1BCA0,
+	0x1DA87,
+	0x1DA8C
+};
+
+static const UV XPosixSpace_invlist[] = { /* for ASCII/Latin1 */
+	21,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	1,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x9,
+	0xE,
+	0x20,
+	0x21,
+	0x85,
+	0x86,
+	0xA0,
+	0xA1,
+	0x1680,
+	0x1681,
+	0x2000,
+	0x200B,
+	0x2028,
+	0x202A,
+	0x202F,
+	0x2030,
+	0x205F,
+	0x2060,
+	0x3000,
+	0x3001
+};
+
+static const UV XPosixUpper_invlist[] = { /* for ASCII/Latin1 */
+	1261,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	1,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x41,
+	0x5B,
+	0xC0,
+	0xD7,
+	0xD8,
+	0xDF,
+	0x100,
+	0x101,
+	0x102,
+	0x103,
+	0x104,
+	0x105,
+	0x106,
+	0x107,
+	0x108,
+	0x109,
+	0x10A,
+	0x10B,
+	0x10C,
+	0x10D,
+	0x10E,
+	0x10F,
+	0x110,
+	0x111,
+	0x112,
+	0x113,
+	0x114,
+	0x115,
+	0x116,
+	0x117,
+	0x118,
+	0x119,
+	0x11A,
+	0x11B,
+	0x11C,
+	0x11D,
+	0x11E,
+	0x11F,
+	0x120,
+	0x121,
+	0x122,
+	0x123,
+	0x124,
+	0x125,
+	0x126,
+	0x127,
+	0x128,
+	0x129,
+	0x12A,
+	0x12B,
+	0x12C,
+	0x12D,
+	0x12E,
+	0x12F,
+	0x130,
+	0x131,
+	0x132,
+	0x133,
+	0x134,
+	0x135,
+	0x136,
+	0x137,
+	0x139,
+	0x13A,
+	0x13B,
+	0x13C,
+	0x13D,
+	0x13E,
+	0x13F,
+	0x140,
+	0x141,
+	0x142,
+	0x143,
+	0x144,
+	0x145,
+	0x146,
+	0x147,
+	0x148,
+	0x14A,
+	0x14B,
+	0x14C,
+	0x14D,
+	0x14E,
+	0x14F,
+	0x150,
+	0x151,
+	0x152,
+	0x153,
+	0x154,
+	0x155,
+	0x156,
+	0x157,
+	0x158,
+	0x159,
+	0x15A,
+	0x15B,
+	0x15C,
+	0x15D,
+	0x15E,
+	0x15F,
+	0x160,
+	0x161,
+	0x162,
+	0x163,
+	0x164,
+	0x165,
+	0x166,
+	0x167,
+	0x168,
+	0x169,
+	0x16A,
+	0x16B,
+	0x16C,
+	0x16D,
+	0x16E,
+	0x16F,
+	0x170,
+	0x171,
+	0x172,
+	0x173,
+	0x174,
+	0x175,
+	0x176,
+	0x177,
+	0x178,
+	0x17A,
+	0x17B,
+	0x17C,
+	0x17D,
+	0x17E,
+	0x181,
+	0x183,
+	0x184,
+	0x185,
+	0x186,
+	0x188,
+	0x189,
+	0x18C,
+	0x18E,
+	0x192,
+	0x193,
+	0x195,
+	0x196,
+	0x199,
+	0x19C,
+	0x19E,
+	0x19F,
+	0x1A1,
+	0x1A2,
+	0x1A3,
+	0x1A4,
+	0x1A5,
+	0x1A6,
+	0x1A8,
+	0x1A9,
+	0x1AA,
+	0x1AC,
+	0x1AD,
+	0x1AE,
+	0x1B0,
+	0x1B1,
+	0x1B4,
+	0x1B5,
+	0x1B6,
+	0x1B7,
+	0x1B9,
+	0x1BC,
+	0x1BD,
+	0x1C4,
+	0x1C5,
+	0x1C7,
+	0x1C8,
+	0x1CA,
+	0x1CB,
+	0x1CD,
+	0x1CE,
+	0x1CF,
+	0x1D0,
+	0x1D1,
+	0x1D2,
+	0x1D3,
+	0x1D4,
+	0x1D5,
+	0x1D6,
+	0x1D7,
+	0x1D8,
+	0x1D9,
+	0x1DA,
+	0x1DB,
+	0x1DC,
+	0x1DE,
+	0x1DF,
+	0x1E0,
+	0x1E1,
+	0x1E2,
+	0x1E3,
+	0x1E4,
+	0x1E5,
+	0x1E6,
+	0x1E7,
+	0x1E8,
+	0x1E9,
+	0x1EA,
+	0x1EB,
+	0x1EC,
+	0x1ED,
+	0x1EE,
+	0x1EF,
+	0x1F1,
+	0x1F2,
+	0x1F4,
+	0x1F5,
+	0x1F6,
+	0x1F9,
+	0x1FA,
+	0x1FB,
+	0x1FC,
+	0x1FD,
+	0x1FE,
+	0x1FF,
+	0x200,
+	0x201,
+	0x202,
+	0x203,
+	0x204,
+	0x205,
+	0x206,
+	0x207,
+	0x208,
+	0x209,
+	0x20A,
+	0x20B,
+	0x20C,
+	0x20D,
+	0x20E,
+	0x20F,
+	0x210,
+	0x211,
+	0x212,
+	0x213,
+	0x214,
+	0x215,
+	0x216,
+	0x217,
+	0x218,
+	0x219,
+	0x21A,
+	0x21B,
+	0x21C,
+	0x21D,
+	0x21E,
+	0x21F,
+	0x220,
+	0x221,
+	0x222,
+	0x223,
+	0x224,
+	0x225,
+	0x226,
+	0x227,
+	0x228,
+	0x229,
+	0x22A,
+	0x22B,
+	0x22C,
+	0x22D,
+	0x22E,
+	0x22F,
+	0x230,
+	0x231,
+	0x232,
+	0x233,
+	0x23A,
+	0x23C,
+	0x23D,
+	0x23F,
+	0x241,
+	0x242,
+	0x243,
+	0x247,
+	0x248,
+	0x249,
+	0x24A,
+	0x24B,
+	0x24C,
+	0x24D,
+	0x24E,
+	0x24F,
+	0x370,
+	0x371,
+	0x372,
+	0x373,
+	0x376,
+	0x377,
+	0x37F,
+	0x380,
+	0x386,
+	0x387,
+	0x388,
+	0x38B,
+	0x38C,
+	0x38D,
+	0x38E,
+	0x390,
+	0x391,
+	0x3A2,
+	0x3A3,
+	0x3AC,
+	0x3CF,
+	0x3D0,
+	0x3D2,
+	0x3D5,
+	0x3D8,
+	0x3D9,
+	0x3DA,
+	0x3DB,
+	0x3DC,
+	0x3DD,
+	0x3DE,
+	0x3DF,
+	0x3E0,
+	0x3E1,
+	0x3E2,
+	0x3E3,
+	0x3E4,
+	0x3E5,
+	0x3E6,
+	0x3E7,
+	0x3E8,
+	0x3E9,
+	0x3EA,
+	0x3EB,
+	0x3EC,
+	0x3ED,
+	0x3EE,
+	0x3EF,
+	0x3F4,
+	0x3F5,
+	0x3F7,
+	0x3F8,
+	0x3F9,
+	0x3FB,
+	0x3FD,
+	0x430,
+	0x460,
+	0x461,
+	0x462,
+	0x463,
+	0x464,
+	0x465,
+	0x466,
+	0x467,
+	0x468,
+	0x469,
+	0x46A,
+	0x46B,
+	0x46C,
+	0x46D,
+	0x46E,
+	0x46F,
+	0x470,
+	0x471,
+	0x472,
+	0x473,
+	0x474,
+	0x475,
+	0x476,
+	0x477,
+	0x478,
+	0x479,
+	0x47A,
+	0x47B,
+	0x47C,
+	0x47D,
+	0x47E,
+	0x47F,
+	0x480,
+	0x481,
+	0x48A,
+	0x48B,
+	0x48C,
+	0x48D,
+	0x48E,
+	0x48F,
+	0x490,
+	0x491,
+	0x492,
+	0x493,
+	0x494,
+	0x495,
+	0x496,
+	0x497,
+	0x498,
+	0x499,
+	0x49A,
+	0x49B,
+	0x49C,
+	0x49D,
+	0x49E,
+	0x49F,
+	0x4A0,
+	0x4A1,
+	0x4A2,
+	0x4A3,
+	0x4A4,
+	0x4A5,
+	0x4A6,
+	0x4A7,
+	0x4A8,
+	0x4A9,
+	0x4AA,
+	0x4AB,
+	0x4AC,
+	0x4AD,
+	0x4AE,
+	0x4AF,
+	0x4B0,
+	0x4B1,
+	0x4B2,
+	0x4B3,
+	0x4B4,
+	0x4B5,
+	0x4B6,
+	0x4B7,
+	0x4B8,
+	0x4B9,
+	0x4BA,
+	0x4BB,
+	0x4BC,
+	0x4BD,
+	0x4BE,
+	0x4BF,
+	0x4C0,
+	0x4C2,
+	0x4C3,
+	0x4C4,
+	0x4C5,
+	0x4C6,
+	0x4C7,
+	0x4C8,
+	0x4C9,
+	0x4CA,
+	0x4CB,
+	0x4CC,
+	0x4CD,
+	0x4CE,
+	0x4D0,
+	0x4D1,
+	0x4D2,
+	0x4D3,
+	0x4D4,
+	0x4D5,
+	0x4D6,
+	0x4D7,
+	0x4D8,
+	0x4D9,
+	0x4DA,
+	0x4DB,
+	0x4DC,
+	0x4DD,
+	0x4DE,
+	0x4DF,
+	0x4E0,
+	0x4E1,
+	0x4E2,
+	0x4E3,
+	0x4E4,
+	0x4E5,
+	0x4E6,
+	0x4E7,
+	0x4E8,
+	0x4E9,
+	0x4EA,
+	0x4EB,
+	0x4EC,
+	0x4ED,
+	0x4EE,
+	0x4EF,
+	0x4F0,
+	0x4F1,
+	0x4F2,
+	0x4F3,
+	0x4F4,
+	0x4F5,
+	0x4F6,
+	0x4F7,
+	0x4F8,
+	0x4F9,
+	0x4FA,
+	0x4FB,
+	0x4FC,
+	0x4FD,
+	0x4FE,
+	0x4FF,
+	0x500,
+	0x501,
+	0x502,
+	0x503,
+	0x504,
+	0x505,
+	0x506,
+	0x507,
+	0x508,
+	0x509,
+	0x50A,
+	0x50B,
+	0x50C,
+	0x50D,
+	0x50E,
+	0x50F,
+	0x510,
+	0x511,
+	0x512,
+	0x513,
+	0x514,
+	0x515,
+	0x516,
+	0x517,
+	0x518,
+	0x519,
+	0x51A,
+	0x51B,
+	0x51C,
+	0x51D,
+	0x51E,
+	0x51F,
+	0x520,
+	0x521,
+	0x522,
+	0x523,
+	0x524,
+	0x525,
+	0x526,
+	0x527,
+	0x528,
+	0x529,
+	0x52A,
+	0x52B,
+	0x52C,
+	0x52D,
+	0x52E,
+	0x52F,
+	0x531,
+	0x557,
+	0x10A0,
+	0x10C6,
+	0x10C7,
+	0x10C8,
+	0x10CD,
+	0x10CE,
+	0x13A0,
+	0x13F6,
+	0x1E00,
+	0x1E01,
+	0x1E02,
+	0x1E03,
+	0x1E04,
+	0x1E05,
+	0x1E06,
+	0x1E07,
+	0x1E08,
+	0x1E09,
+	0x1E0A,
+	0x1E0B,
+	0x1E0C,
+	0x1E0D,
+	0x1E0E,
+	0x1E0F,
+	0x1E10,
+	0x1E11,
+	0x1E12,
+	0x1E13,
+	0x1E14,
+	0x1E15,
+	0x1E16,
+	0x1E17,
+	0x1E18,
+	0x1E19,
+	0x1E1A,
+	0x1E1B,
+	0x1E1C,
+	0x1E1D,
+	0x1E1E,
+	0x1E1F,
+	0x1E20,
+	0x1E21,
+	0x1E22,
+	0x1E23,
+	0x1E24,
+	0x1E25,
+	0x1E26,
+	0x1E27,
+	0x1E28,
+	0x1E29,
+	0x1E2A,
+	0x1E2B,
+	0x1E2C,
+	0x1E2D,
+	0x1E2E,
+	0x1E2F,
+	0x1E30,
+	0x1E31,
+	0x1E32,
+	0x1E33,
+	0x1E34,
+	0x1E35,
+	0x1E36,
+	0x1E37,
+	0x1E38,
+	0x1E39,
+	0x1E3A,
+	0x1E3B,
+	0x1E3C,
+	0x1E3D,
+	0x1E3E,
+	0x1E3F,
+	0x1E40,
+	0x1E41,
+	0x1E42,
+	0x1E43,
+	0x1E44,
+	0x1E45,
+	0x1E46,
+	0x1E47,
+	0x1E48,
+	0x1E49,
+	0x1E4A,
+	0x1E4B,
+	0x1E4C,
+	0x1E4D,
+	0x1E4E,
+	0x1E4F,
+	0x1E50,
+	0x1E51,
+	0x1E52,
+	0x1E53,
+	0x1E54,
+	0x1E55,
+	0x1E56,
+	0x1E57,
+	0x1E58,
+	0x1E59,
+	0x1E5A,
+	0x1E5B,
+	0x1E5C,
+	0x1E5D,
+	0x1E5E,
+	0x1E5F,
+	0x1E60,
+	0x1E61,
+	0x1E62,
+	0x1E63,
+	0x1E64,
+	0x1E65,
+	0x1E66,
+	0x1E67,
+	0x1E68,
+	0x1E69,
+	0x1E6A,
+	0x1E6B,
+	0x1E6C,
+	0x1E6D,
+	0x1E6E,
+	0x1E6F,
+	0x1E70,
+	0x1E71,
+	0x1E72,
+	0x1E73,
+	0x1E74,
+	0x1E75,
+	0x1E76,
+	0x1E77,
+	0x1E78,
+	0x1E79,
+	0x1E7A,
+	0x1E7B,
+	0x1E7C,
+	0x1E7D,
+	0x1E7E,
+	0x1E7F,
+	0x1E80,
+	0x1E81,
+	0x1E82,
+	0x1E83,
+	0x1E84,
+	0x1E85,
+	0x1E86,
+	0x1E87,
+	0x1E88,
+	0x1E89,
+	0x1E8A,
+	0x1E8B,
+	0x1E8C,
+	0x1E8D,
+	0x1E8E,
+	0x1E8F,
+	0x1E90,
+	0x1E91,
+	0x1E92,
+	0x1E93,
+	0x1E94,
+	0x1E95,
+	0x1E9E,
+	0x1E9F,
+	0x1EA0,
+	0x1EA1,
+	0x1EA2,
+	0x1EA3,
+	0x1EA4,
+	0x1EA5,
+	0x1EA6,
+	0x1EA7,
+	0x1EA8,
+	0x1EA9,
+	0x1EAA,
+	0x1EAB,
+	0x1EAC,
+	0x1EAD,
+	0x1EAE,
+	0x1EAF,
+	0x1EB0,
+	0x1EB1,
+	0x1EB2,
+	0x1EB3,
+	0x1EB4,
+	0x1EB5,
+	0x1EB6,
+	0x1EB7,
+	0x1EB8,
+	0x1EB9,
+	0x1EBA,
+	0x1EBB,
+	0x1EBC,
+	0x1EBD,
+	0x1EBE,
+	0x1EBF,
+	0x1EC0,
+	0x1EC1,
+	0x1EC2,
+	0x1EC3,
+	0x1EC4,
+	0x1EC5,
+	0x1EC6,
+	0x1EC7,
+	0x1EC8,
+	0x1EC9,
+	0x1ECA,
+	0x1ECB,
+	0x1ECC,
+	0x1ECD,
+	0x1ECE,
+	0x1ECF,
+	0x1ED0,
+	0x1ED1,
+	0x1ED2,
+	0x1ED3,
+	0x1ED4,
+	0x1ED5,
+	0x1ED6,
+	0x1ED7,
+	0x1ED8,
+	0x1ED9,
+	0x1EDA,
+	0x1EDB,
+	0x1EDC,
+	0x1EDD,
+	0x1EDE,
+	0x1EDF,
+	0x1EE0,
+	0x1EE1,
+	0x1EE2,
+	0x1EE3,
+	0x1EE4,
+	0x1EE5,
+	0x1EE6,
+	0x1EE7,
+	0x1EE8,
+	0x1EE9,
+	0x1EEA,
+	0x1EEB,
+	0x1EEC,
+	0x1EED,
+	0x1EEE,
+	0x1EEF,
+	0x1EF0,
+	0x1EF1,
+	0x1EF2,
+	0x1EF3,
+	0x1EF4,
+	0x1EF5,
+	0x1EF6,
+	0x1EF7,
+	0x1EF8,
+	0x1EF9,
+	0x1EFA,
+	0x1EFB,
+	0x1EFC,
+	0x1EFD,
+	0x1EFE,
+	0x1EFF,
+	0x1F08,
+	0x1F10,
+	0x1F18,
+	0x1F1E,
+	0x1F28,
+	0x1F30,
+	0x1F38,
+	0x1F40,
+	0x1F48,
+	0x1F4E,
+	0x1F59,
+	0x1F5A,
+	0x1F5B,
+	0x1F5C,
+	0x1F5D,
+	0x1F5E,
+	0x1F5F,
+	0x1F60,
+	0x1F68,
+	0x1F70,
+	0x1FB8,
+	0x1FBC,
+	0x1FC8,
+	0x1FCC,
+	0x1FD8,
+	0x1FDC,
+	0x1FE8,
+	0x1FED,
+	0x1FF8,
+	0x1FFC,
+	0x2102,
+	0x2103,
+	0x2107,
+	0x2108,
+	0x210B,
+	0x210E,
+	0x2110,
+	0x2113,
+	0x2115,
+	0x2116,
+	0x2119,
+	0x211E,
+	0x2124,
+	0x2125,
+	0x2126,
+	0x2127,
+	0x2128,
+	0x2129,
+	0x212A,
+	0x212E,
+	0x2130,
+	0x2134,
+	0x213E,
+	0x2140,
+	0x2145,
+	0x2146,
+	0x2160,
+	0x2170,
+	0x2183,
+	0x2184,
+	0x24B6,
+	0x24D0,
+	0x2C00,
+	0x2C2F,
+	0x2C60,
+	0x2C61,
+	0x2C62,
+	0x2C65,
+	0x2C67,
+	0x2C68,
+	0x2C69,
+	0x2C6A,
+	0x2C6B,
+	0x2C6C,
+	0x2C6D,
+	0x2C71,
+	0x2C72,
+	0x2C73,
+	0x2C75,
+	0x2C76,
+	0x2C7E,
+	0x2C81,
+	0x2C82,
+	0x2C83,
+	0x2C84,
+	0x2C85,
+	0x2C86,
+	0x2C87,
+	0x2C88,
+	0x2C89,
+	0x2C8A,
+	0x2C8B,
+	0x2C8C,
+	0x2C8D,
+	0x2C8E,
+	0x2C8F,
+	0x2C90,
+	0x2C91,
+	0x2C92,
+	0x2C93,
+	0x2C94,
+	0x2C95,
+	0x2C96,
+	0x2C97,
+	0x2C98,
+	0x2C99,
+	0x2C9A,
+	0x2C9B,
+	0x2C9C,
+	0x2C9D,
+	0x2C9E,
+	0x2C9F,
+	0x2CA0,
+	0x2CA1,
+	0x2CA2,
+	0x2CA3,
+	0x2CA4,
+	0x2CA5,
+	0x2CA6,
+	0x2CA7,
+	0x2CA8,
+	0x2CA9,
+	0x2CAA,
+	0x2CAB,
+	0x2CAC,
+	0x2CAD,
+	0x2CAE,
+	0x2CAF,
+	0x2CB0,
+	0x2CB1,
+	0x2CB2,
+	0x2CB3,
+	0x2CB4,
+	0x2CB5,
+	0x2CB6,
+	0x2CB7,
+	0x2CB8,
+	0x2CB9,
+	0x2CBA,
+	0x2CBB,
+	0x2CBC,
+	0x2CBD,
+	0x2CBE,
+	0x2CBF,
+	0x2CC0,
+	0x2CC1,
+	0x2CC2,
+	0x2CC3,
+	0x2CC4,
+	0x2CC5,
+	0x2CC6,
+	0x2CC7,
+	0x2CC8,
+	0x2CC9,
+	0x2CCA,
+	0x2CCB,
+	0x2CCC,
+	0x2CCD,
+	0x2CCE,
+	0x2CCF,
+	0x2CD0,
+	0x2CD1,
+	0x2CD2,
+	0x2CD3,
+	0x2CD4,
+	0x2CD5,
+	0x2CD6,
+	0x2CD7,
+	0x2CD8,
+	0x2CD9,
+	0x2CDA,
+	0x2CDB,
+	0x2CDC,
+	0x2CDD,
+	0x2CDE,
+	0x2CDF,
+	0x2CE0,
+	0x2CE1,
+	0x2CE2,
+	0x2CE3,
+	0x2CEB,
+	0x2CEC,
+	0x2CED,
+	0x2CEE,
+	0x2CF2,
+	0x2CF3,
+	0xA640,
+	0xA641,
+	0xA642,
+	0xA643,
+	0xA644,
+	0xA645,
+	0xA646,
+	0xA647,
+	0xA648,
+	0xA649,
+	0xA64A,
+	0xA64B,
+	0xA64C,
+	0xA64D,
+	0xA64E,
+	0xA64F,
+	0xA650,
+	0xA651,
+	0xA652,
+	0xA653,
+	0xA654,
+	0xA655,
+	0xA656,
+	0xA657,
+	0xA658,
+	0xA659,
+	0xA65A,
+	0xA65B,
+	0xA65C,
+	0xA65D,
+	0xA65E,
+	0xA65F,
+	0xA660,
+	0xA661,
+	0xA662,
+	0xA663,
+	0xA664,
+	0xA665,
+	0xA666,
+	0xA667,
+	0xA668,
+	0xA669,
+	0xA66A,
+	0xA66B,
+	0xA66C,
+	0xA66D,
+	0xA680,
+	0xA681,
+	0xA682,
+	0xA683,
+	0xA684,
+	0xA685,
+	0xA686,
+	0xA687,
+	0xA688,
+	0xA689,
+	0xA68A,
+	0xA68B,
+	0xA68C,
+	0xA68D,
+	0xA68E,
+	0xA68F,
+	0xA690,
+	0xA691,
+	0xA692,
+	0xA693,
+	0xA694,
+	0xA695,
+	0xA696,
+	0xA697,
+	0xA698,
+	0xA699,
+	0xA69A,
+	0xA69B,
+	0xA722,
+	0xA723,
+	0xA724,
+	0xA725,
+	0xA726,
+	0xA727,
+	0xA728,
+	0xA729,
+	0xA72A,
+	0xA72B,
+	0xA72C,
+	0xA72D,
+	0xA72E,
+	0xA72F,
+	0xA732,
+	0xA733,
+	0xA734,
+	0xA735,
+	0xA736,
+	0xA737,
+	0xA738,
+	0xA739,
+	0xA73A,
+	0xA73B,
+	0xA73C,
+	0xA73D,
+	0xA73E,
+	0xA73F,
+	0xA740,
+	0xA741,
+	0xA742,
+	0xA743,
+	0xA744,
+	0xA745,
+	0xA746,
+	0xA747,
+	0xA748,
+	0xA749,
+	0xA74A,
+	0xA74B,
+	0xA74C,
+	0xA74D,
+	0xA74E,
+	0xA74F,
+	0xA750,
+	0xA751,
+	0xA752,
+	0xA753,
+	0xA754,
+	0xA755,
+	0xA756,
+	0xA757,
+	0xA758,
+	0xA759,
+	0xA75A,
+	0xA75B,
+	0xA75C,
+	0xA75D,
+	0xA75E,
+	0xA75F,
+	0xA760,
+	0xA761,
+	0xA762,
+	0xA763,
+	0xA764,
+	0xA765,
+	0xA766,
+	0xA767,
+	0xA768,
+	0xA769,
+	0xA76A,
+	0xA76B,
+	0xA76C,
+	0xA76D,
+	0xA76E,
+	0xA76F,
+	0xA779,
+	0xA77A,
+	0xA77B,
+	0xA77C,
+	0xA77D,
+	0xA77F,
+	0xA780,
+	0xA781,
+	0xA782,
+	0xA783,
+	0xA784,
+	0xA785,
+	0xA786,
+	0xA787,
+	0xA78B,
+	0xA78C,
+	0xA78D,
+	0xA78E,
+	0xA790,
+	0xA791,
+	0xA792,
+	0xA793,
+	0xA796,
+	0xA797,
+	0xA798,
+	0xA799,
+	0xA79A,
+	0xA79B,
+	0xA79C,
+	0xA79D,
+	0xA79E,
+	0xA79F,
+	0xA7A0,
+	0xA7A1,
+	0xA7A2,
+	0xA7A3,
+	0xA7A4,
+	0xA7A5,
+	0xA7A6,
+	0xA7A7,
+	0xA7A8,
+	0xA7A9,
+	0xA7AA,
+	0xA7AE,
+	0xA7B0,
+	0xA7B5,
+	0xA7B6,
+	0xA7B7,
+	0xFF21,
+	0xFF3B,
+	0x10400,
+	0x10428,
+	0x10C80,
+	0x10CB3,
+	0x118A0,
+	0x118C0,
+	0x1D400,
+	0x1D41A,
+	0x1D434,
+	0x1D44E,
+	0x1D468,
+	0x1D482,
+	0x1D49C,
+	0x1D49D,
+	0x1D49E,
+	0x1D4A0,
+	0x1D4A2,
+	0x1D4A3,
+	0x1D4A5,
+	0x1D4A7,
+	0x1D4A9,
+	0x1D4AD,
+	0x1D4AE,
+	0x1D4B6,
+	0x1D4D0,
+	0x1D4EA,
+	0x1D504,
+	0x1D506,
+	0x1D507,
+	0x1D50B,
+	0x1D50D,
+	0x1D515,
+	0x1D516,
+	0x1D51D,
+	0x1D538,
+	0x1D53A,
+	0x1D53B,
+	0x1D53F,
+	0x1D540,
+	0x1D545,
+	0x1D546,
+	0x1D547,
+	0x1D54A,
+	0x1D551,
+	0x1D56C,
+	0x1D586,
+	0x1D5A0,
+	0x1D5BA,
+	0x1D5D4,
+	0x1D5EE,
+	0x1D608,
+	0x1D622,
+	0x1D63C,
+	0x1D656,
+	0x1D670,
+	0x1D68A,
+	0x1D6A8,
+	0x1D6C1,
+	0x1D6E2,
+	0x1D6FB,
+	0x1D71C,
+	0x1D735,
+	0x1D756,
+	0x1D76F,
+	0x1D790,
+	0x1D7A9,
+	0x1D7CA,
+	0x1D7CB,
+	0x1F130,
+	0x1F14A,
+	0x1F150,
+	0x1F16A,
+	0x1F170,
+	0x1F18A
+};
+
+static const UV XPosixWord_invlist[] = { /* for ASCII/Latin1 */
+	1311,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	1,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x30,
+	0x3A,
+	0x41,
+	0x5B,
+	0x5F,
+	0x60,
+	0x61,
+	0x7B,
+	0xAA,
+	0xAB,
+	0xB5,
+	0xB6,
+	0xBA,
+	0xBB,
+	0xC0,
+	0xD7,
+	0xD8,
+	0xF7,
+	0xF8,
+	0x2C2,
+	0x2C6,
+	0x2D2,
+	0x2E0,
+	0x2E5,
+	0x2EC,
+	0x2ED,
+	0x2EE,
+	0x2EF,
+	0x300,
+	0x375,
+	0x376,
+	0x378,
+	0x37A,
+	0x37E,
+	0x37F,
+	0x380,
+	0x386,
+	0x387,
+	0x388,
+	0x38B,
+	0x38C,
+	0x38D,
+	0x38E,
+	0x3A2,
+	0x3A3,
+	0x3F6,
+	0x3F7,
+	0x482,
+	0x483,
+	0x530,
+	0x531,
+	0x557,
+	0x559,
+	0x55A,
+	0x561,
+	0x588,
+	0x591,
+	0x5BE,
+	0x5BF,
+	0x5C0,
+	0x5C1,
+	0x5C3,
+	0x5C4,
+	0x5C6,
+	0x5C7,
+	0x5C8,
+	0x5D0,
+	0x5EB,
+	0x5F0,
+	0x5F3,
+	0x610,
+	0x61B,
+	0x620,
+	0x66A,
+	0x66E,
+	0x6D4,
+	0x6D5,
+	0x6DD,
+	0x6DF,
+	0x6E9,
+	0x6EA,
+	0x6FD,
+	0x6FF,
+	0x700,
+	0x710,
+	0x74B,
+	0x74D,
+	0x7B2,
+	0x7C0,
+	0x7F6,
+	0x7FA,
+	0x7FB,
+	0x800,
+	0x82E,
+	0x840,
+	0x85C,
+	0x8A0,
+	0x8B5,
+	0x8E3,
+	0x964,
+	0x966,
+	0x970,
+	0x971,
+	0x984,
+	0x985,
+	0x98D,
+	0x98F,
+	0x991,
+	0x993,
+	0x9A9,
+	0x9AA,
+	0x9B1,
+	0x9B2,
+	0x9B3,
+	0x9B6,
+	0x9BA,
+	0x9BC,
+	0x9C5,
+	0x9C7,
+	0x9C9,
+	0x9CB,
+	0x9CF,
+	0x9D7,
+	0x9D8,
+	0x9DC,
+	0x9DE,
+	0x9DF,
+	0x9E4,
+	0x9E6,
+	0x9F2,
+	0xA01,
+	0xA04,
+	0xA05,
+	0xA0B,
+	0xA0F,
+	0xA11,
+	0xA13,
+	0xA29,
+	0xA2A,
+	0xA31,
+	0xA32,
+	0xA34,
+	0xA35,
+	0xA37,
+	0xA38,
+	0xA3A,
+	0xA3C,
+	0xA3D,
+	0xA3E,
+	0xA43,
+	0xA47,
+	0xA49,
+	0xA4B,
+	0xA4E,
+	0xA51,
+	0xA52,
+	0xA59,
+	0xA5D,
+	0xA5E,
+	0xA5F,
+	0xA66,
+	0xA76,
+	0xA81,
+	0xA84,
+	0xA85,
+	0xA8E,
+	0xA8F,
+	0xA92,
+	0xA93,
+	0xAA9,
+	0xAAA,
+	0xAB1,
+	0xAB2,
+	0xAB4,
+	0xAB5,
+	0xABA,
+	0xABC,
+	0xAC6,
+	0xAC7,
+	0xACA,
+	0xACB,
+	0xACE,
+	0xAD0,
+	0xAD1,
+	0xAE0,
+	0xAE4,
+	0xAE6,
+	0xAF0,
+	0xAF9,
+	0xAFA,
+	0xB01,
+	0xB04,
+	0xB05,
+	0xB0D,
+	0xB0F,
+	0xB11,
+	0xB13,
+	0xB29,
+	0xB2A,
+	0xB31,
+	0xB32,
+	0xB34,
+	0xB35,
+	0xB3A,
+	0xB3C,
+	0xB45,
+	0xB47,
+	0xB49,
+	0xB4B,
+	0xB4E,
+	0xB56,
+	0xB58,
+	0xB5C,
+	0xB5E,
+	0xB5F,
+	0xB64,
+	0xB66,
+	0xB70,
+	0xB71,
+	0xB72,
+	0xB82,
+	0xB84,
+	0xB85,
+	0xB8B,
+	0xB8E,
+	0xB91,
+	0xB92,
+	0xB96,
+	0xB99,
+	0xB9B,
+	0xB9C,
+	0xB9D,
+	0xB9E,
+	0xBA0,
+	0xBA3,
+	0xBA5,
+	0xBA8,
+	0xBAB,
+	0xBAE,
+	0xBBA,
+	0xBBE,
+	0xBC3,
+	0xBC6,
+	0xBC9,
+	0xBCA,
+	0xBCE,
+	0xBD0,
+	0xBD1,
+	0xBD7,
+	0xBD8,
+	0xBE6,
+	0xBF0,
+	0xC00,
+	0xC04,
+	0xC05,
+	0xC0D,
+	0xC0E,
+	0xC11,
+	0xC12,
+	0xC29,
+	0xC2A,
+	0xC3A,
+	0xC3D,
+	0xC45,
+	0xC46,
+	0xC49,
+	0xC4A,
+	0xC4E,
+	0xC55,
+	0xC57,
+	0xC58,
+	0xC5B,
+	0xC60,
+	0xC64,
+	0xC66,
+	0xC70,
+	0xC81,
+	0xC84,
+	0xC85,
+	0xC8D,
+	0xC8E,
+	0xC91,
+	0xC92,
+	0xCA9,
+	0xCAA,
+	0xCB4,
+	0xCB5,
+	0xCBA,
+	0xCBC,
+	0xCC5,
+	0xCC6,
+	0xCC9,
+	0xCCA,
+	0xCCE,
+	0xCD5,
+	0xCD7,
+	0xCDE,
+	0xCDF,
+	0xCE0,
+	0xCE4,
+	0xCE6,
+	0xCF0,
+	0xCF1,
+	0xCF3,
+	0xD01,
+	0xD04,
+	0xD05,
+	0xD0D,
+	0xD0E,
+	0xD11,
+	0xD12,
+	0xD3B,
+	0xD3D,
+	0xD45,
+	0xD46,
+	0xD49,
+	0xD4A,
+	0xD4F,
+	0xD57,
+	0xD58,
+	0xD5F,
+	0xD64,
+	0xD66,
+	0xD70,
+	0xD7A,
+	0xD80,
+	0xD82,
+	0xD84,
+	0xD85,
+	0xD97,
+	0xD9A,
+	0xDB2,
+	0xDB3,
+	0xDBC,
+	0xDBD,
+	0xDBE,
+	0xDC0,
+	0xDC7,
+	0xDCA,
+	0xDCB,
+	0xDCF,
+	0xDD5,
+	0xDD6,
+	0xDD7,
+	0xDD8,
+	0xDE0,
+	0xDE6,
+	0xDF0,
+	0xDF2,
+	0xDF4,
+	0xE01,
+	0xE3B,
+	0xE40,
+	0xE4F,
+	0xE50,
+	0xE5A,
+	0xE81,
+	0xE83,
+	0xE84,
+	0xE85,
+	0xE87,
+	0xE89,
+	0xE8A,
+	0xE8B,
+	0xE8D,
+	0xE8E,
+	0xE94,
+	0xE98,
+	0xE99,
+	0xEA0,
+	0xEA1,
+	0xEA4,
+	0xEA5,
+	0xEA6,
+	0xEA7,
+	0xEA8,
+	0xEAA,
+	0xEAC,
+	0xEAD,
+	0xEBA,
+	0xEBB,
+	0xEBE,
+	0xEC0,
+	0xEC5,
+	0xEC6,
+	0xEC7,
+	0xEC8,
+	0xECE,
+	0xED0,
+	0xEDA,
+	0xEDC,
+	0xEE0,
+	0xF00,
+	0xF01,
+	0xF18,
+	0xF1A,
+	0xF20,
+	0xF2A,
+	0xF35,
+	0xF36,
+	0xF37,
+	0xF38,
+	0xF39,
+	0xF3A,
+	0xF3E,
+	0xF48,
+	0xF49,
+	0xF6D,
+	0xF71,
+	0xF85,
+	0xF86,
+	0xF98,
+	0xF99,
+	0xFBD,
+	0xFC6,
+	0xFC7,
+	0x1000,
+	0x104A,
+	0x1050,
+	0x109E,
+	0x10A0,
+	0x10C6,
+	0x10C7,
+	0x10C8,
+	0x10CD,
+	0x10CE,
+	0x10D0,
+	0x10FB,
+	0x10FC,
+	0x1249,
+	0x124A,
+	0x124E,
+	0x1250,
+	0x1257,
+	0x1258,
+	0x1259,
+	0x125A,
+	0x125E,
+	0x1260,
+	0x1289,
+	0x128A,
+	0x128E,
+	0x1290,
+	0x12B1,
+	0x12B2,
+	0x12B6,
+	0x12B8,
+	0x12BF,
+	0x12C0,
+	0x12C1,
+	0x12C2,
+	0x12C6,
+	0x12C8,
+	0x12D7,
+	0x12D8,
+	0x1311,
+	0x1312,
+	0x1316,
+	0x1318,
+	0x135B,
+	0x135D,
+	0x1360,
+	0x1380,
+	0x1390,
+	0x13A0,
+	0x13F6,
+	0x13F8,
+	0x13FE,
+	0x1401,
+	0x166D,
+	0x166F,
+	0x1680,
+	0x1681,
+	0x169B,
+	0x16A0,
+	0x16EB,
+	0x16EE,
+	0x16F9,
+	0x1700,
+	0x170D,
+	0x170E,
+	0x1715,
+	0x1720,
+	0x1735,
+	0x1740,
+	0x1754,
+	0x1760,
+	0x176D,
+	0x176E,
+	0x1771,
+	0x1772,
+	0x1774,
+	0x1780,
+	0x17D4,
+	0x17D7,
+	0x17D8,
+	0x17DC,
+	0x17DE,
+	0x17E0,
+	0x17EA,
+	0x180B,
+	0x180E,
+	0x1810,
+	0x181A,
+	0x1820,
+	0x1878,
+	0x1880,
+	0x18AB,
+	0x18B0,
+	0x18F6,
+	0x1900,
+	0x191F,
+	0x1920,
+	0x192C,
+	0x1930,
+	0x193C,
+	0x1946,
+	0x196E,
+	0x1970,
+	0x1975,
+	0x1980,
+	0x19AC,
+	0x19B0,
+	0x19CA,
+	0x19D0,
+	0x19DA,
+	0x1A00,
+	0x1A1C,
+	0x1A20,
+	0x1A5F,
+	0x1A60,
+	0x1A7D,
+	0x1A7F,
+	0x1A8A,
+	0x1A90,
+	0x1A9A,
+	0x1AA7,
+	0x1AA8,
+	0x1AB0,
+	0x1ABF,
+	0x1B00,
+	0x1B4C,
+	0x1B50,
+	0x1B5A,
+	0x1B6B,
+	0x1B74,
+	0x1B80,
+	0x1BF4,
+	0x1C00,
+	0x1C38,
+	0x1C40,
+	0x1C4A,
+	0x1C4D,
+	0x1C7E,
+	0x1CD0,
+	0x1CD3,
+	0x1CD4,
+	0x1CF7,
+	0x1CF8,
+	0x1CFA,
+	0x1D00,
+	0x1DF6,
+	0x1DFC,
+	0x1F16,
+	0x1F18,
+	0x1F1E,
+	0x1F20,
+	0x1F46,
+	0x1F48,
+	0x1F4E,
+	0x1F50,
+	0x1F58,
+	0x1F59,
+	0x1F5A,
+	0x1F5B,
+	0x1F5C,
+	0x1F5D,
+	0x1F5E,
+	0x1F5F,
+	0x1F7E,
+	0x1F80,
+	0x1FB5,
+	0x1FB6,
+	0x1FBD,
+	0x1FBE,
+	0x1FBF,
+	0x1FC2,
+	0x1FC5,
+	0x1FC6,
+	0x1FCD,
+	0x1FD0,
+	0x1FD4,
+	0x1FD6,
+	0x1FDC,
+	0x1FE0,
+	0x1FED,
+	0x1FF2,
+	0x1FF5,
+	0x1FF6,
+	0x1FFD,
+	0x200C,
+	0x200E,
+	0x203F,
+	0x2041,
+	0x2054,
+	0x2055,
+	0x2071,
+	0x2072,
+	0x207F,
+	0x2080,
+	0x2090,
+	0x209D,
+	0x20D0,
+	0x20F1,
+	0x2102,
+	0x2103,
+	0x2107,
+	0x2108,
+	0x210A,
+	0x2114,
+	0x2115,
+	0x2116,
+	0x2119,
+	0x211E,
+	0x2124,
+	0x2125,
+	0x2126,
+	0x2127,
+	0x2128,
+	0x2129,
+	0x212A,
+	0x212E,
+	0x212F,
+	0x213A,
+	0x213C,
+	0x2140,
+	0x2145,
+	0x214A,
+	0x214E,
+	0x214F,
+	0x2160,
+	0x2189,
+	0x24B6,
+	0x24EA,
+	0x2C00,
+	0x2C2F,
+	0x2C30,
+	0x2C5F,
+	0x2C60,
+	0x2CE5,
+	0x2CEB,
+	0x2CF4,
+	0x2D00,
+	0x2D26,
+	0x2D27,
+	0x2D28,
+	0x2D2D,
+	0x2D2E,
+	0x2D30,
+	0x2D68,
+	0x2D6F,
+	0x2D70,
+	0x2D7F,
+	0x2D97,
+	0x2DA0,
+	0x2DA7,
+	0x2DA8,
+	0x2DAF,
+	0x2DB0,
+	0x2DB7,
+	0x2DB8,
+	0x2DBF,
+	0x2DC0,
+	0x2DC7,
+	0x2DC8,
+	0x2DCF,
+	0x2DD0,
+	0x2DD7,
+	0x2DD8,
+	0x2DDF,
+	0x2DE0,
+	0x2E00,
+	0x2E2F,
+	0x2E30,
+	0x3005,
+	0x3008,
+	0x3021,
+	0x3030,
+	0x3031,
+	0x3036,
+	0x3038,
+	0x303D,
+	0x3041,
+	0x3097,
+	0x3099,
+	0x309B,
+	0x309D,
+	0x30A0,
+	0x30A1,
+	0x30FB,
+	0x30FC,
+	0x3100,
+	0x3105,
+	0x312E,
+	0x3131,
+	0x318F,
+	0x31A0,
+	0x31BB,
+	0x31F0,
+	0x3200,
+	0x3400,
+	0x4DB6,
+	0x4E00,
+	0x9FD6,
+	0xA000,
+	0xA48D,
+	0xA4D0,
+	0xA4FE,
+	0xA500,
+	0xA60D,
+	0xA610,
+	0xA62C,
+	0xA640,
+	0xA673,
+	0xA674,
+	0xA67E,
+	0xA67F,
+	0xA6F2,
+	0xA717,
+	0xA720,
+	0xA722,
+	0xA789,
+	0xA78B,
+	0xA7AE,
+	0xA7B0,
+	0xA7B8,
+	0xA7F7,
+	0xA828,
+	0xA840,
+	0xA874,
+	0xA880,
+	0xA8C5,
+	0xA8D0,
+	0xA8DA,
+	0xA8E0,
+	0xA8F8,
+	0xA8FB,
+	0xA8FC,
+	0xA8FD,
+	0xA8FE,
+	0xA900,
+	0xA92E,
+	0xA930,
+	0xA954,
+	0xA960,
+	0xA97D,
+	0xA980,
+	0xA9C1,
+	0xA9CF,
+	0xA9DA,
+	0xA9E0,
+	0xA9FF,
+	0xAA00,
+	0xAA37,
+	0xAA40,
+	0xAA4E,
+	0xAA50,
+	0xAA5A,
+	0xAA60,
+	0xAA77,
+	0xAA7A,
+	0xAAC3,
+	0xAADB,
+	0xAADE,
+	0xAAE0,
+	0xAAF0,
+	0xAAF2,
+	0xAAF7,
+	0xAB01,
+	0xAB07,
+	0xAB09,
+	0xAB0F,
+	0xAB11,
+	0xAB17,
+	0xAB20,
+	0xAB27,
+	0xAB28,
+	0xAB2F,
+	0xAB30,
+	0xAB5B,
+	0xAB5C,
+	0xAB66,
+	0xAB70,
+	0xABEB,
+	0xABEC,
+	0xABEE,
+	0xABF0,
+	0xABFA,
+	0xAC00,
+	0xD7A4,
+	0xD7B0,
+	0xD7C7,
+	0xD7CB,
+	0xD7FC,
+	0xF900,
+	0xFA6E,
+	0xFA70,
+	0xFADA,
+	0xFB00,
+	0xFB07,
+	0xFB13,
+	0xFB18,
+	0xFB1D,
+	0xFB29,
+	0xFB2A,
+	0xFB37,
+	0xFB38,
+	0xFB3D,
+	0xFB3E,
+	0xFB3F,
+	0xFB40,
+	0xFB42,
+	0xFB43,
+	0xFB45,
+	0xFB46,
+	0xFBB2,
+	0xFBD3,
+	0xFD3E,
+	0xFD50,
+	0xFD90,
+	0xFD92,
+	0xFDC8,
+	0xFDF0,
+	0xFDFC,
+	0xFE00,
+	0xFE10,
+	0xFE20,
+	0xFE30,
+	0xFE33,
+	0xFE35,
+	0xFE4D,
+	0xFE50,
+	0xFE70,
+	0xFE75,
+	0xFE76,
+	0xFEFD,
+	0xFF10,
+	0xFF1A,
+	0xFF21,
+	0xFF3B,
+	0xFF3F,
+	0xFF40,
+	0xFF41,
+	0xFF5B,
+	0xFF66,
+	0xFFBF,
+	0xFFC2,
+	0xFFC8,
+	0xFFCA,
+	0xFFD0,
+	0xFFD2,
+	0xFFD8,
+	0xFFDA,
+	0xFFDD,
+	0x10000,
+	0x1000C,
+	0x1000D,
+	0x10027,
+	0x10028,
+	0x1003B,
+	0x1003C,
+	0x1003E,
+	0x1003F,
+	0x1004E,
+	0x10050,
+	0x1005E,
+	0x10080,
+	0x100FB,
+	0x10140,
+	0x10175,
+	0x101FD,
+	0x101FE,
+	0x10280,
+	0x1029D,
+	0x102A0,
+	0x102D1,
+	0x102E0,
+	0x102E1,
+	0x10300,
+	0x10320,
+	0x10330,
+	0x1034B,
+	0x10350,
+	0x1037B,
+	0x10380,
+	0x1039E,
+	0x103A0,
+	0x103C4,
+	0x103C8,
+	0x103D0,
+	0x103D1,
+	0x103D6,
+	0x10400,
+	0x1049E,
+	0x104A0,
+	0x104AA,
+	0x10500,
+	0x10528,
+	0x10530,
+	0x10564,
+	0x10600,
+	0x10737,
+	0x10740,
+	0x10756,
+	0x10760,
+	0x10768,
+	0x10800,
+	0x10806,
+	0x10808,
+	0x10809,
+	0x1080A,
+	0x10836,
+	0x10837,
+	0x10839,
+	0x1083C,
+	0x1083D,
+	0x1083F,
+	0x10856,
+	0x10860,
+	0x10877,
+	0x10880,
+	0x1089F,
+	0x108E0,
+	0x108F3,
+	0x108F4,
+	0x108F6,
+	0x10900,
+	0x10916,
+	0x10920,
+	0x1093A,
+	0x10980,
+	0x109B8,
+	0x109BE,
+	0x109C0,
+	0x10A00,
+	0x10A04,
+	0x10A05,
+	0x10A07,
+	0x10A0C,
+	0x10A14,
+	0x10A15,
+	0x10A18,
+	0x10A19,
+	0x10A34,
+	0x10A38,
+	0x10A3B,
+	0x10A3F,
+	0x10A40,
+	0x10A60,
+	0x10A7D,
+	0x10A80,
+	0x10A9D,
+	0x10AC0,
+	0x10AC8,
+	0x10AC9,
+	0x10AE7,
+	0x10B00,
+	0x10B36,
+	0x10B40,
+	0x10B56,
+	0x10B60,
+	0x10B73,
+	0x10B80,
+	0x10B92,
+	0x10C00,
+	0x10C49,
+	0x10C80,
+	0x10CB3,
+	0x10CC0,
+	0x10CF3,
+	0x11000,
+	0x11047,
+	0x11066,
+	0x11070,
+	0x1107F,
+	0x110BB,
+	0x110D0,
+	0x110E9,
+	0x110F0,
+	0x110FA,
+	0x11100,
+	0x11135,
+	0x11136,
+	0x11140,
+	0x11150,
+	0x11174,
+	0x11176,
+	0x11177,
+	0x11180,
+	0x111C5,
+	0x111CA,
+	0x111CD,
+	0x111D0,
+	0x111DB,
+	0x111DC,
+	0x111DD,
+	0x11200,
+	0x11212,
+	0x11213,
+	0x11238,
+	0x11280,
+	0x11287,
+	0x11288,
+	0x11289,
+	0x1128A,
+	0x1128E,
+	0x1128F,
+	0x1129E,
+	0x1129F,
+	0x112A9,
+	0x112B0,
+	0x112EB,
+	0x112F0,
+	0x112FA,
+	0x11300,
+	0x11304,
+	0x11305,
+	0x1130D,
+	0x1130F,
+	0x11311,
+	0x11313,
+	0x11329,
+	0x1132A,
+	0x11331,
+	0x11332,
+	0x11334,
+	0x11335,
+	0x1133A,
+	0x1133C,
+	0x11345,
+	0x11347,
+	0x11349,
+	0x1134B,
+	0x1134E,
+	0x11350,
+	0x11351,
+	0x11357,
+	0x11358,
+	0x1135D,
+	0x11364,
+	0x11366,
+	0x1136D,
+	0x11370,
+	0x11375,
+	0x11480,
+	0x114C6,
+	0x114C7,
+	0x114C8,
+	0x114D0,
+	0x114DA,
+	0x11580,
+	0x115B6,
+	0x115B8,
+	0x115C1,
+	0x115D8,
+	0x115DE,
+	0x11600,
+	0x11641,
+	0x11644,
+	0x11645,
+	0x11650,
+	0x1165A,
+	0x11680,
+	0x116B8,
+	0x116C0,
+	0x116CA,
+	0x11700,
+	0x1171A,
+	0x1171D,
+	0x1172C,
+	0x11730,
+	0x1173A,
+	0x118A0,
+	0x118EA,
+	0x118FF,
+	0x11900,
+	0x11AC0,
+	0x11AF9,
+	0x12000,
+	0x1239A,
+	0x12400,
+	0x1246F,
+	0x12480,
+	0x12544,
+	0x13000,
+	0x1342F,
+	0x14400,
+	0x14647,
+	0x16800,
+	0x16A39,
+	0x16A40,
+	0x16A5F,
+	0x16A60,
+	0x16A6A,
+	0x16AD0,
+	0x16AEE,
+	0x16AF0,
+	0x16AF5,
+	0x16B00,
+	0x16B37,
+	0x16B40,
+	0x16B44,
+	0x16B50,
+	0x16B5A,
+	0x16B63,
+	0x16B78,
+	0x16B7D,
+	0x16B90,
+	0x16F00,
+	0x16F45,
+	0x16F50,
+	0x16F7F,
+	0x16F8F,
+	0x16FA0,
+	0x1B000,
+	0x1B002,
+	0x1BC00,
+	0x1BC6B,
+	0x1BC70,
+	0x1BC7D,
+	0x1BC80,
+	0x1BC89,
+	0x1BC90,
+	0x1BC9A,
+	0x1BC9D,
+	0x1BC9F,
+	0x1D165,
+	0x1D16A,
+	0x1D16D,
+	0x1D173,
+	0x1D17B,
+	0x1D183,
+	0x1D185,
+	0x1D18C,
+	0x1D1AA,
+	0x1D1AE,
+	0x1D242,
+	0x1D245,
+	0x1D400,
+	0x1D455,
+	0x1D456,
+	0x1D49D,
+	0x1D49E,
+	0x1D4A0,
+	0x1D4A2,
+	0x1D4A3,
+	0x1D4A5,
+	0x1D4A7,
+	0x1D4A9,
+	0x1D4AD,
+	0x1D4AE,
+	0x1D4BA,
+	0x1D4BB,
+	0x1D4BC,
+	0x1D4BD,
+	0x1D4C4,
+	0x1D4C5,
+	0x1D506,
+	0x1D507,
+	0x1D50B,
+	0x1D50D,
+	0x1D515,
+	0x1D516,
+	0x1D51D,
+	0x1D51E,
+	0x1D53A,
+	0x1D53B,
+	0x1D53F,
+	0x1D540,
+	0x1D545,
+	0x1D546,
+	0x1D547,
+	0x1D54A,
+	0x1D551,
+	0x1D552,
+	0x1D6A6,
+	0x1D6A8,
+	0x1D6C1,
+	0x1D6C2,
+	0x1D6DB,
+	0x1D6DC,
+	0x1D6FB,
+	0x1D6FC,
+	0x1D715,
+	0x1D716,
+	0x1D735,
+	0x1D736,
+	0x1D74F,
+	0x1D750,
+	0x1D76F,
+	0x1D770,
+	0x1D789,
+	0x1D78A,
+	0x1D7A9,
+	0x1D7AA,
+	0x1D7C3,
+	0x1D7C4,
+	0x1D7CC,
+	0x1D7CE,
+	0x1D800,
+	0x1DA00,
+	0x1DA37,
+	0x1DA3B,
+	0x1DA6D,
+	0x1DA75,
+	0x1DA76,
+	0x1DA84,
+	0x1DA85,
+	0x1DA9B,
+	0x1DAA0,
+	0x1DAA1,
+	0x1DAB0,
+	0x1E800,
+	0x1E8C5,
+	0x1E8D0,
+	0x1E8D7,
+	0x1EE00,
+	0x1EE04,
+	0x1EE05,
+	0x1EE20,
+	0x1EE21,
+	0x1EE23,
+	0x1EE24,
+	0x1EE25,
+	0x1EE27,
+	0x1EE28,
+	0x1EE29,
+	0x1EE33,
+	0x1EE34,
+	0x1EE38,
+	0x1EE39,
+	0x1EE3A,
+	0x1EE3B,
+	0x1EE3C,
+	0x1EE42,
+	0x1EE43,
+	0x1EE47,
+	0x1EE48,
+	0x1EE49,
+	0x1EE4A,
+	0x1EE4B,
+	0x1EE4C,
+	0x1EE4D,
+	0x1EE50,
+	0x1EE51,
+	0x1EE53,
+	0x1EE54,
+	0x1EE55,
+	0x1EE57,
+	0x1EE58,
+	0x1EE59,
+	0x1EE5A,
+	0x1EE5B,
+	0x1EE5C,
+	0x1EE5D,
+	0x1EE5E,
+	0x1EE5F,
+	0x1EE60,
+	0x1EE61,
+	0x1EE63,
+	0x1EE64,
+	0x1EE65,
+	0x1EE67,
+	0x1EE6B,
+	0x1EE6C,
+	0x1EE73,
+	0x1EE74,
+	0x1EE78,
+	0x1EE79,
+	0x1EE7D,
+	0x1EE7E,
+	0x1EE7F,
+	0x1EE80,
+	0x1EE8A,
+	0x1EE8B,
+	0x1EE9C,
+	0x1EEA1,
+	0x1EEA4,
+	0x1EEA5,
+	0x1EEAA,
+	0x1EEAB,
+	0x1EEBC,
+	0x1F130,
+	0x1F14A,
+	0x1F150,
+	0x1F16A,
+	0x1F170,
+	0x1F18A,
+	0x20000,
+	0x2A6D7,
+	0x2A700,
+	0x2B735,
+	0x2B740,
+	0x2B81E,
+	0x2B820,
+	0x2CEA2,
+	0x2F800,
+	0x2FA1E,
+	0xE0100,
+	0xE01F0
+};
+
+static const UV XPosixXDigit_invlist[] = { /* for ASCII/Latin1 */
+	13,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	1,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x30,
+	0x3A,
+	0x41,
+	0x47,
+	0x61,
+	0x67,
+	0xFF10,
+	0xFF1A,
+	0xFF21,
+	0xFF27,
+	0xFF41,
+	0xFF47
+};
+
+#endif	/* defined(PERL_IN_PERL_C) */
+
+#endif	/* ASCII/Latin1 */
+
+#if 'A' == 193 /* EBCDIC 1047 */ \
+     && '\\' == 224 && '[' == 173 && ']' == 189 && '{' == 192 && '}' == 208 \
+     && '^' == 95 && '~' == 161 && '!' == 90 && '#' == 123 && '|' == 79 \
+     && '$' == 91 && '@' == 124 && '`' == 121
+
+#if defined(PERL_IN_PERL_C)
+
+static const UV ASCII_invlist[] = { /* for EBCDIC 1047 */
+	54,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	0,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x4,
+	0x5,
+	0x6,
+	0x7,
+	0x8,
+	0xB,
+	0x14,
+	0x15,
+	0x17,
+	0x18,
+	0x1A,
+	0x1C,
+	0x20,
+	0x26,
+	0x28,
+	0x2D,
+	0x30,
+	0x32,
+	0x33,
+	0x37,
+	0x38,
+	0x3C,
+	0x3E,
+	0x3F,
+	0x41,
+	0x4B,
+	0x51,
+	0x5A,
+	0x62,
+	0x6B,
+	0x70,
+	0x79,
+	0x80,
+	0x81,
+	0x8A,
+	0x91,
+	0x9A,
+	0xA1,
+	0xAA,
+	0xAD,
+	0xAE,
+	0xBD,
+	0xBE,
+	0xC0,
+	0xCA,
+	0xD0,
+	0xDA,
+	0xE0,
+	0xE1,
+	0xE2,
+	0xEA,
+	0xF0,
+	0xFA
+};
+
+static const UV Cased_invlist[] = { /* for EBCDIC 1047 */
+	289,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	1,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x42,
+	0x4A,
+	0x51,
+	0x5A,
+	0x62,
+	0x6A,
+	0x70,
+	0x79,
+	0x80,
+	0x8A,
+	0x8C,
+	0x8F,
+	0x91,
+	0x9D,
+	0x9E,
+	0x9F,
+	0xA0,
+	0xA1,
+	0xA2,
+	0xAA,
+	0xAC,
+	0xAD,
+	0xAE,
+	0xAF,
+	0xBA,
+	0xBB,
+	0xC1,
+	0xCA,
+	0xCB,
+	0xD0,
+	0xD1,
+	0xDA,
+	0xDB,
+	0xE0,
+	0xE2,
+	0xEA,
+	0xEB,
+	0xF0,
+	0xFB,
+	0xFF,
+	0x100,
+	0x1BB,
+	0x1BC,
+	0x1C0,
+	0x1C4,
+	0x294,
+	0x295,
+	0x2B9,
+	0x2C0,
+	0x2C2,
+	0x2E0,
+	0x2E5,
+	0x345,
+	0x346,
+	0x370,
+	0x374,
+	0x376,
+	0x378,
+	0x37A,
+	0x37E,
+	0x37F,
+	0x380,
+	0x386,
+	0x387,
+	0x388,
+	0x38B,
+	0x38C,
+	0x38D,
+	0x38E,
+	0x3A2,
+	0x3A3,
+	0x3F6,
+	0x3F7,
+	0x482,
+	0x48A,
+	0x530,
+	0x531,
+	0x557,
+	0x561,
+	0x588,
+	0x10A0,
+	0x10C6,
+	0x10C7,
+	0x10C8,
+	0x10CD,
+	0x10CE,
+	0x13A0,
+	0x13F6,
+	0x13F8,
+	0x13FE,
+	0x1D00,
+	0x1DC0,
+	0x1E00,
+	0x1F16,
+	0x1F18,
+	0x1F1E,
+	0x1F20,
+	0x1F46,
+	0x1F48,
+	0x1F4E,
+	0x1F50,
+	0x1F58,
+	0x1F59,
+	0x1F5A,
+	0x1F5B,
+	0x1F5C,
+	0x1F5D,
+	0x1F5E,
+	0x1F5F,
+	0x1F7E,
+	0x1F80,
+	0x1FB5,
+	0x1FB6,
+	0x1FBD,
+	0x1FBE,
+	0x1FBF,
+	0x1FC2,
+	0x1FC5,
+	0x1FC6,
+	0x1FCD,
+	0x1FD0,
+	0x1FD4,
+	0x1FD6,
+	0x1FDC,
+	0x1FE0,
+	0x1FED,
+	0x1FF2,
+	0x1FF5,
+	0x1FF6,
+	0x1FFD,
+	0x2071,
+	0x2072,
+	0x207F,
+	0x2080,
+	0x2090,
+	0x209D,
+	0x2102,
+	0x2103,
+	0x2107,
+	0x2108,
+	0x210A,
+	0x2114,
+	0x2115,
+	0x2116,
+	0x2119,
+	0x211E,
+	0x2124,
+	0x2125,
+	0x2126,
+	0x2127,
+	0x2128,
+	0x2129,
+	0x212A,
+	0x212E,
+	0x212F,
+	0x2135,
+	0x2139,
+	0x213A,
+	0x213C,
+	0x2140,
+	0x2145,
+	0x214A,
+	0x214E,
+	0x214F,
+	0x2160,
+	0x2180,
+	0x2183,
+	0x2185,
+	0x24B6,
+	0x24EA,
+	0x2C00,
+	0x2C2F,
+	0x2C30,
+	0x2C5F,
+	0x2C60,
+	0x2CE5,
+	0x2CEB,
+	0x2CEF,
+	0x2CF2,
+	0x2CF4,
+	0x2D00,
+	0x2D26,
+	0x2D27,
+	0x2D28,
+	0x2D2D,
+	0x2D2E,
+	0xA640,
+	0xA66E,
+	0xA680,
+	0xA69E,
+	0xA722,
+	0xA788,
+	0xA78B,
+	0xA78F,
+	0xA790,
+	0xA7AE,
+	0xA7B0,
+	0xA7B8,
+	0xA7F8,
+	0xA7FB,
+	0xAB30,
+	0xAB5B,
+	0xAB5C,
+	0xAB66,
+	0xAB70,
+	0xABC0,
+	0xFB00,
+	0xFB07,
+	0xFB13,
+	0xFB18,
+	0xFF21,
+	0xFF3B,
+	0xFF41,
+	0xFF5B,
+	0x10400,
+	0x10450,
+	0x10C80,
+	0x10CB3,
+	0x10CC0,
+	0x10CF3,
+	0x118A0,
+	0x118E0,
+	0x1D400,
+	0x1D455,
+	0x1D456,
+	0x1D49D,
+	0x1D49E,
+	0x1D4A0,
+	0x1D4A2,
+	0x1D4A3,
+	0x1D4A5,
+	0x1D4A7,
+	0x1D4A9,
+	0x1D4AD,
+	0x1D4AE,
+	0x1D4BA,
+	0x1D4BB,
+	0x1D4BC,
+	0x1D4BD,
+	0x1D4C4,
+	0x1D4C5,
+	0x1D506,
+	0x1D507,
+	0x1D50B,
+	0x1D50D,
+	0x1D515,
+	0x1D516,
+	0x1D51D,
+	0x1D51E,
+	0x1D53A,
+	0x1D53B,
+	0x1D53F,
+	0x1D540,
+	0x1D545,
+	0x1D546,
+	0x1D547,
+	0x1D54A,
+	0x1D551,
+	0x1D552,
+	0x1D6A6,
+	0x1D6A8,
+	0x1D6C1,
+	0x1D6C2,
+	0x1D6DB,
+	0x1D6DC,
+	0x1D6FB,
+	0x1D6FC,
+	0x1D715,
+	0x1D716,
+	0x1D735,
+	0x1D736,
+	0x1D74F,
+	0x1D750,
+	0x1D76F,
+	0x1D770,
+	0x1D789,
+	0x1D78A,
+	0x1D7A9,
+	0x1D7AA,
+	0x1D7C3,
+	0x1D7C4,
+	0x1D7CC,
+	0x1F130,
+	0x1F14A,
+	0x1F150,
+	0x1F16A,
+	0x1F170,
+	0x1F18A
+};
+
+#endif	/* defined(PERL_IN_PERL_C) */
+
+#if defined(PERL_IN_REGCOMP_C)
+
+static const UV NonL1_Perl_Non_Final_Folds_invlist[] = { /* for EBCDIC 1047 */
+	45,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	1,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x2BC,
+	0x2BD,
+	0x308,
+	0x309,
+	0x313,
+	0x314,
+	0x342,
+	0x343,
+	0x3AC,
+	0x3AD,
+	0x3AE,
+	0x3AF,
+	0x3B1,
+	0x3B2,
+	0x3B7,
+	0x3B8,
+	0x3B9,
+	0x3BA,
+	0x3C1,
+	0x3C2,
+	0x3C5,
+	0x3C6,
+	0x3C9,
+	0x3CA,
+	0x3CE,
+	0x3CF,
+	0x565,
+	0x566,
+	0x574,
+	0x575,
+	0x57E,
+	0x57F,
+	0x1F00,
+	0x1F08,
+	0x1F20,
+	0x1F28,
+	0x1F60,
+	0x1F68,
+	0x1F70,
+	0x1F71,
+	0x1F74,
+	0x1F75,
+	0x1F7C,
+	0x1F7D
+};
+
+static const UV _Perl_Any_Folds_invlist[] = { /* for EBCDIC 1047 */
+	279,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	1,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x42,
+	0x4A,
+	0x51,
+	0x5A,
+	0x62,
+	0x6A,
+	0x70,
+	0x79,
+	0x80,
+	0x8A,
+	0x8C,
+	0x8F,
+	0x91,
+	0x9A,
+	0x9C,
+	0x9D,
+	0x9E,
+	0x9F,
+	0xA0,
+	0xA1,
+	0xA2,
+	0xAA,
+	0xAC,
+	0xAD,
+	0xAE,
+	0xAF,
+	0xBA,
+	0xBB,
+	0xC1,
+	0xCA,
+	0xCB,
+	0xD0,
+	0xD1,
+	0xDA,
+	0xDB,
+	0xE0,
+	0xE2,
+	0xEA,
+	0xEB,
+	0xF0,
+	0xFB,
+	0xFF,
+	0x100,
+	0x131,
+	0x132,
+	0x138,
+	0x139,
+	0x18D,
+	0x18E,
+	0x19B,
+	0x19C,
+	0x1AA,
+	0x1AC,
+	0x1BA,
+	0x1BC,
+	0x1BE,
+	0x1BF,
+	0x1C0,
+	0x1C4,
+	0x221,
+	0x222,
+	0x234,
+	0x23A,
+	0x255,
+	0x256,
+	0x258,
+	0x259,
+	0x25A,
+	0x25B,
+	0x25D,
+	0x260,
+	0x262,
+	0x263,
+	0x264,
+	0x265,
+	0x267,
+	0x268,
+	0x26A,
+	0x26B,
+	0x26D,
+	0x26F,
+	0x270,
+	0x271,
+	0x273,
+	0x275,
+	0x276,
+	0x27D,
+	0x27E,
+	0x280,
+	0x281,
+	0x283,
+	0x284,
+	0x287,
+	0x28D,
+	0x292,
+	0x293,
+	0x29D,
+	0x29F,
+	0x2BC,
+	0x2BD,
+	0x2BE,
+	0x2BF,
+	0x300,
+	0x302,
+	0x307,
+	0x309,
+	0x30A,
+	0x30B,
+	0x30C,
+	0x30D,
+	0x313,
+	0x314,
+	0x331,
+	0x332,
+	0x342,
+	0x343,
+	0x345,
+	0x346,
+	0x370,
+	0x374,
+	0x376,
+	0x378,
+	0x37B,
+	0x37E,
+	0x37F,
+	0x380,
+	0x386,
+	0x387,
+	0x388,
+	0x38B,
+	0x38C,
+	0x38D,
+	0x38E,
+	0x3A2,
+	0x3A3,
+	0x3D2,
+	0x3D5,
+	0x3F6,
+	0x3F7,
+	0x3FC,
+	0x3FD,
+	0x482,
+	0x48A,
+	0x530,
+	0x531,
+	0x557,
+	0x561,
+	0x588,
+	0x10A0,
+	0x10C6,
+	0x10C7,
+	0x10C8,
+	0x10CD,
+	0x10CE,
+	0x13A0,
+	0x13F6,
+	0x13F8,
+	0x13FE,
+	0x1D79,
+	0x1D7A,
+	0x1D7D,
+	0x1D7E,
+	0x1E00,
+	0x1E9C,
+	0x1E9E,
+	0x1E9F,
+	0x1EA0,
+	0x1F16,
+	0x1F18,
+	0x1F1E,
+	0x1F20,
+	0x1F46,
+	0x1F48,
+	0x1F4E,
+	0x1F50,
+	0x1F58,
+	0x1F59,
+	0x1F5A,
+	0x1F5B,
+	0x1F5C,
+	0x1F5D,
+	0x1F5E,
+	0x1F5F,
+	0x1F7E,
+	0x1F80,
+	0x1FB5,
+	0x1FB6,
+	0x1FBD,
+	0x1FBE,
+	0x1FBF,
+	0x1FC2,
+	0x1FC5,
+	0x1FC6,
+	0x1FCD,
+	0x1FD0,
+	0x1FD4,
+	0x1FD6,
+	0x1FDC,
+	0x1FE0,
+	0x1FED,
+	0x1FF2,
+	0x1FF5,
+	0x1FF6,
+	0x1FFD,
+	0x2126,
+	0x2127,
+	0x212A,
+	0x212C,
+	0x2132,
+	0x2133,
+	0x214E,
+	0x214F,
+	0x2160,
+	0x2180,
+	0x2183,
+	0x2185,
+	0x24B6,
+	0x24EA,
+	0x2C00,
+	0x2C2F,
+	0x2C30,
+	0x2C5F,
+	0x2C60,
+	0x2C71,
+	0x2C72,
+	0x2C74,
+	0x2C75,
+	0x2C77,
+	0x2C7E,
+	0x2CE4,
+	0x2CEB,
+	0x2CEF,
+	0x2CF2,
+	0x2CF4,
+	0x2D00,
+	0x2D26,
+	0x2D27,
+	0x2D28,
+	0x2D2D,
+	0x2D2E,
+	0xA640,
+	0xA66E,
+	0xA680,
+	0xA69C,
+	0xA722,
+	0xA730,
+	0xA732,
+	0xA770,
+	0xA779,
+	0xA788,
+	0xA78B,
+	0xA78E,
+	0xA790,
+	0xA794,
+	0xA796,
+	0xA7AE,
+	0xA7B0,
+	0xA7B8,
+	0xAB53,
+	0xAB54,
+	0xAB70,
+	0xABC0,
+	0xFB00,
+	0xFB07,
+	0xFB13,
+	0xFB18,
+	0xFF21,
+	0xFF3B,
+	0xFF41,
+	0xFF5B,
+	0x10400,
+	0x10450,
+	0x10C80,
+	0x10CB3,
+	0x10CC0,
+	0x10CF3,
+	0x118A0,
+	0x118E0
+};
+
+static const UV _Perl_Folds_To_Multi_Char_invlist[] = { /* for EBCDIC 1047 */
+	59,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	1,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x59,
+	0x5A,
+	0x130,
+	0x131,
+	0x149,
+	0x14A,
+	0x1F0,
+	0x1F1,
+	0x390,
+	0x391,
+	0x3B0,
+	0x3B1,
+	0x587,
+	0x588,
+	0x1E96,
+	0x1E9B,
+	0x1E9E,
+	0x1E9F,
+	0x1F50,
+	0x1F51,
+	0x1F52,
+	0x1F53,
+	0x1F54,
+	0x1F55,
+	0x1F56,
+	0x1F57,
+	0x1F80,
+	0x1FB0,
+	0x1FB2,
+	0x1FB5,
+	0x1FB6,
+	0x1FB8,
+	0x1FBC,
+	0x1FBD,
+	0x1FC2,
+	0x1FC5,
+	0x1FC6,
+	0x1FC8,
+	0x1FCC,
+	0x1FCD,
+	0x1FD2,
+	0x1FD4,
+	0x1FD6,
+	0x1FD8,
+	0x1FE2,
+	0x1FE5,
+	0x1FE6,
+	0x1FE8,
+	0x1FF2,
+	0x1FF5,
+	0x1FF6,
+	0x1FF8,
+	0x1FFC,
+	0x1FFD,
+	0xFB00,
+	0xFB07,
+	0xFB13,
+	0xFB18
+};
+
+#endif	/* defined(PERL_IN_REGCOMP_C) */
+
+#if defined(PERL_IN_PERL_C)
+
+static const UV _Perl_GCB_invlist[] = { /* for EBCDIC 1047 */
+	1502,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	0,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0xD,
+	0xE,
+	0x15,
+	0x16,
+	0x40,
+	0xCA,
+	0xCB,
+	0xFF,
+	0x100,
+	0x300,
+	0x370,
+	0x483,
+	0x48A,
+	0x591,
+	0x5BE,
+	0x5BF,
+	0x5C0,
+	0x5C1,
+	0x5C3,
+	0x5C4,
+	0x5C6,
+	0x5C7,
+	0x5C8,
+	0x600,
+	0x606,
+	0x610,
+	0x61B,
+	0x61C,
+	0x61D,
+	0x64B,
+	0x660,
+	0x670,
+	0x671,
+	0x6D6,
+	0x6DD,
+	0x6DE,
+	0x6DF,
+	0x6E5,
+	0x6E7,
+	0x6E9,
+	0x6EA,
+	0x6EE,
+	0x70F,
+	0x710,
+	0x711,
+	0x712,
+	0x730,
+	0x74B,
+	0x7A6,
+	0x7B1,
+	0x7EB,
+	0x7F4,
+	0x816,
+	0x81A,
+	0x81B,
+	0x824,
+	0x825,
+	0x828,
+	0x829,
+	0x82E,
+	0x859,
+	0x85C,
+	0x8E3,
+	0x903,
+	0x904,
+	0x93A,
+	0x93B,
+	0x93C,
+	0x93D,
+	0x93E,
+	0x941,
+	0x949,
+	0x94D,
+	0x94E,
+	0x950,
+	0x951,
+	0x958,
+	0x962,
+	0x964,
+	0x981,
+	0x982,
+	0x984,
+	0x9BC,
+	0x9BD,
+	0x9BE,
+	0x9BF,
+	0x9C1,
+	0x9C5,
+	0x9C7,
+	0x9C9,
+	0x9CB,
+	0x9CD,
+	0x9CE,
+	0x9D7,
+	0x9D8,
+	0x9E2,
+	0x9E4,
+	0xA01,
+	0xA03,
+	0xA04,
+	0xA3C,
+	0xA3D,
+	0xA3E,
+	0xA41,
+	0xA43,
+	0xA47,
+	0xA49,
+	0xA4B,
+	0xA4E,
+	0xA51,
+	0xA52,
+	0xA70,
+	0xA72,
+	0xA75,
+	0xA76,
+	0xA81,
+	0xA83,
+	0xA84,
+	0xABC,
+	0xABD,
+	0xABE,
+	0xAC1,
+	0xAC6,
+	0xAC7,
+	0xAC9,
+	0xACA,
+	0xACB,
+	0xACD,
+	0xACE,
+	0xAE2,
+	0xAE4,
+	0xB01,
+	0xB02,
+	0xB04,
+	0xB3C,
+	0xB3D,
+	0xB3E,
+	0xB40,
+	0xB41,
+	0xB45,
+	0xB47,
+	0xB49,
+	0xB4B,
+	0xB4D,
+	0xB4E,
+	0xB56,
+	0xB58,
+	0xB62,
+	0xB64,
+	0xB82,
+	0xB83,
+	0xBBE,
+	0xBBF,
+	0xBC0,
+	0xBC1,
+	0xBC3,
+	0xBC6,
+	0xBC9,
+	0xBCA,
+	0xBCD,
+	0xBCE,
+	0xBD7,
+	0xBD8,
+	0xC00,
+	0xC01,
+	0xC04,
+	0xC3E,
+	0xC41,
+	0xC45,
+	0xC46,
+	0xC49,
+	0xC4A,
+	0xC4E,
+	0xC55,
+	0xC57,
+	0xC62,
+	0xC64,
+	0xC81,
+	0xC82,
+	0xC84,
+	0xCBC,
+	0xCBD,
+	0xCBE,
+	0xCBF,
+	0xCC0,
+	0xCC2,
+	0xCC3,
+	0xCC5,
+	0xCC6,
+	0xCC7,
+	0xCC9,
+	0xCCA,
+	0xCCC,
+	0xCCE,
+	0xCD5,
+	0xCD7,
+	0xCE2,
+	0xCE4,
+	0xD01,
+	0xD02,
+	0xD04,
+	0xD3E,
+	0xD3F,
+	0xD41,
+	0xD45,
+	0xD46,
+	0xD49,
+	0xD4A,
+	0xD4D,
+	0xD4E,
+	0xD57,
+	0xD58,
+	0xD62,
+	0xD64,
+	0xD82,
+	0xD84,
+	0xDCA,
+	0xDCB,
+	0xDCF,
+	0xDD0,
+	0xDD2,
+	0xDD5,
+	0xDD6,
+	0xDD7,
+	0xDD8,
+	0xDDF,
+	0xDE0,
+	0xDF2,
+	0xDF4,
+	0xE31,
+	0xE32,
+	0xE33,
+	0xE34,
+	0xE3B,
+	0xE47,
+	0xE4F,
+	0xEB1,
+	0xEB2,
+	0xEB3,
+	0xEB4,
+	0xEBA,
+	0xEBB,
+	0xEBD,
+	0xEC8,
+	0xECE,
+	0xF18,
+	0xF1A,
+	0xF35,
+	0xF36,
+	0xF37,
+	0xF38,
+	0xF39,
+	0xF3A,
+	0xF3E,
+	0xF40,
+	0xF71,
+	0xF7F,
+	0xF80,
+	0xF85,
+	0xF86,
+	0xF88,
+	0xF8D,
+	0xF98,
+	0xF99,
+	0xFBD,
+	0xFC6,
+	0xFC7,
+	0x102D,
+	0x1031,
+	0x1032,
+	0x1038,
+	0x1039,
+	0x103B,
+	0x103D,
+	0x103F,
+	0x1056,
+	0x1058,
+	0x105A,
+	0x105E,
+	0x1061,
+	0x1071,
+	0x1075,
+	0x1082,
+	0x1083,
+	0x1084,
+	0x1085,
+	0x1087,
+	0x108D,
+	0x108E,
+	0x109D,
+	0x109E,
+	0x1100,
+	0x1160,
+	0x11A8,
+	0x1200,
+	0x135D,
+	0x1360,
+	0x1712,
+	0x1715,
+	0x1732,
+	0x1735,
+	0x1752,
+	0x1754,
+	0x1772,
+	0x1774,
+	0x17B4,
+	0x17B6,
+	0x17B7,
+	0x17BE,
+	0x17C6,
+	0x17C7,
+	0x17C9,
+	0x17D4,
+	0x17DD,
+	0x17DE,
+	0x180B,
+	0x180E,
+	0x180F,
+	0x18A9,
+	0x18AA,
+	0x1920,
+	0x1923,
+	0x1927,
+	0x1929,
+	0x192C,
+	0x1930,
+	0x1932,
+	0x1933,
+	0x1939,
+	0x193C,
+	0x1A17,
+	0x1A19,
+	0x1A1B,
+	0x1A1C,
+	0x1A55,
+	0x1A56,
+	0x1A57,
+	0x1A58,
+	0x1A5F,
+	0x1A60,
+	0x1A61,
+	0x1A62,
+	0x1A63,
+	0x1A65,
+	0x1A6D,
+	0x1A73,
+	0x1A7D,
+	0x1A7F,
+	0x1A80,
+	0x1AB0,
+	0x1ABF,
+	0x1B00,
+	0x1B04,
+	0x1B05,
+	0x1B34,
+	0x1B35,
+	0x1B36,
+	0x1B3B,
+	0x1B3C,
+	0x1B3D,
+	0x1B42,
+	0x1B43,
+	0x1B45,
+	0x1B6B,
+	0x1B74,
+	0x1B80,
+	0x1B82,
+	0x1B83,
+	0x1BA1,
+	0x1BA2,
+	0x1BA6,
+	0x1BA8,
+	0x1BAA,
+	0x1BAB,
+	0x1BAE,
+	0x1BE6,
+	0x1BE7,
+	0x1BE8,
+	0x1BEA,
+	0x1BED,
+	0x1BEE,
+	0x1BEF,
+	0x1BF2,
+	0x1BF4,
+	0x1C24,
+	0x1C2C,
+	0x1C34,
+	0x1C36,
+	0x1C38,
+	0x1CD0,
+	0x1CD3,
+	0x1CD4,
+	0x1CE1,
+	0x1CE2,
+	0x1CE9,
+	0x1CED,
+	0x1CEE,
+	0x1CF2,
+	0x1CF4,
+	0x1CF5,
+	0x1CF8,
+	0x1CFA,
+	0x1DC0,
+	0x1DF6,
+	0x1DFC,
+	0x1E00,
+	0x200B,
+	0x200C,
+	0x200E,
+	0x2010,
+	0x2028,
+	0x202F,
+	0x2060,
+	0x2070,
+	0x20D0,
+	0x20F1,
+	0x2CEF,
+	0x2CF2,
+	0x2D7F,
+	0x2D80,
+	0x2DE0,
+	0x2E00,
+	0x302A,
+	0x3030,
+	0x3099,
+	0x309B,
+	0xA66F,
+	0xA673,
+	0xA674,
+	0xA67E,
+	0xA69E,
+	0xA6A0,
+	0xA6F0,
+	0xA6F2,
+	0xA802,
+	0xA803,
+	0xA806,
+	0xA807,
+	0xA80B,
+	0xA80C,
+	0xA823,
+	0xA825,
+	0xA827,
+	0xA828,
+	0xA880,
+	0xA882,
+	0xA8B4,
+	0xA8C4,
+	0xA8C5,
+	0xA8E0,
+	0xA8F2,
+	0xA926,
+	0xA92E,
+	0xA947,
+	0xA952,
+	0xA954,
+	0xA960,
+	0xA97D,
+	0xA980,
+	0xA983,
+	0xA984,
+	0xA9B3,
+	0xA9B4,
+	0xA9B6,
+	0xA9BA,
+	0xA9BC,
+	0xA9BD,
+	0xA9C1,
+	0xA9E5,
+	0xA9E6,
+	0xAA29,
+	0xAA2F,
+	0xAA31,
+	0xAA33,
+	0xAA35,
+	0xAA37,
+	0xAA43,
+	0xAA44,
+	0xAA4C,
+	0xAA4D,
+	0xAA4E,
+	0xAA7C,
+	0xAA7D,
+	0xAAB0,
+	0xAAB1,
+	0xAAB2,
+	0xAAB5,
+	0xAAB7,
+	0xAAB9,
+	0xAABE,
+	0xAAC0,
+	0xAAC1,
+	0xAAC2,
+	0xAAEB,
+	0xAAEC,
+	0xAAEE,
+	0xAAF0,
+	0xAAF5,
+	0xAAF6,
+	0xAAF7,
+	0xABE3,
+	0xABE5,
+	0xABE6,
+	0xABE8,
+	0xABE9,
+	0xABEB,
+	0xABEC,
+	0xABED,
+	0xABEE,
+	0xAC00,
+	0xAC01,
+	0xAC1C,
+	0xAC1D,
+	0xAC38,
+	0xAC39,
+	0xAC54,
+	0xAC55,
+	0xAC70,
+	0xAC71,
+	0xAC8C,
+	0xAC8D,
+	0xACA8,
+	0xACA9,
+	0xACC4,
+	0xACC5,
+	0xACE0,
+	0xACE1,
+	0xACFC,
+	0xACFD,
+	0xAD18,
+	0xAD19,
+	0xAD34,
+	0xAD35,
+	0xAD50,
+	0xAD51,
+	0xAD6C,
+	0xAD6D,
+	0xAD88,
+	0xAD89,
+	0xADA4,
+	0xADA5,
+	0xADC0,
+	0xADC1,
+	0xADDC,
+	0xADDD,
+	0xADF8,
+	0xADF9,
+	0xAE14,
+	0xAE15,
+	0xAE30,
+	0xAE31,
+	0xAE4C,
+	0xAE4D,
+	0xAE68,
+	0xAE69,
+	0xAE84,
+	0xAE85,
+	0xAEA0,
+	0xAEA1,
+	0xAEBC,
+	0xAEBD,
+	0xAED8,
+	0xAED9,
+	0xAEF4,
+	0xAEF5,
+	0xAF10,
+	0xAF11,
+	0xAF2C,
+	0xAF2D,
+	0xAF48,
+	0xAF49,
+	0xAF64,
+	0xAF65,
+	0xAF80,
+	0xAF81,
+	0xAF9C,
+	0xAF9D,
+	0xAFB8,
+	0xAFB9,
+	0xAFD4,
+	0xAFD5,
+	0xAFF0,
+	0xAFF1,
+	0xB00C,
+	0xB00D,
+	0xB028,
+	0xB029,
+	0xB044,
+	0xB045,
+	0xB060,
+	0xB061,
+	0xB07C,
+	0xB07D,
+	0xB098,
+	0xB099,
+	0xB0B4,
+	0xB0B5,
+	0xB0D0,
+	0xB0D1,
+	0xB0EC,
+	0xB0ED,
+	0xB108,
+	0xB109,
+	0xB124,
+	0xB125,
+	0xB140,
+	0xB141,
+	0xB15C,
+	0xB15D,
+	0xB178,
+	0xB179,
+	0xB194,
+	0xB195,
+	0xB1B0,
+	0xB1B1,
+	0xB1CC,
+	0xB1CD,
+	0xB1E8,
+	0xB1E9,
+	0xB204,
+	0xB205,
+	0xB220,
+	0xB221,
+	0xB23C,
+	0xB23D,
+	0xB258,
+	0xB259,
+	0xB274,
+	0xB275,
+	0xB290,
+	0xB291,
+	0xB2AC,
+	0xB2AD,
+	0xB2C8,
+	0xB2C9,
+	0xB2E4,
+	0xB2E5,
+	0xB300,
+	0xB301,
+	0xB31C,
+	0xB31D,
+	0xB338,
+	0xB339,
+	0xB354,
+	0xB355,
+	0xB370,
+	0xB371,
+	0xB38C,
+	0xB38D,
+	0xB3A8,
+	0xB3A9,
+	0xB3C4,
+	0xB3C5,
+	0xB3E0,
+	0xB3E1,
+	0xB3FC,
+	0xB3FD,
+	0xB418,
+	0xB419,
+	0xB434,
+	0xB435,
+	0xB450,
+	0xB451,
+	0xB46C,
+	0xB46D,
+	0xB488,
+	0xB489,
+	0xB4A4,
+	0xB4A5,
+	0xB4C0,
+	0xB4C1,
+	0xB4DC,
+	0xB4DD,
+	0xB4F8,
+	0xB4F9,
+	0xB514,
+	0xB515,
+	0xB530,
+	0xB531,
+	0xB54C,
+	0xB54D,
+	0xB568,
+	0xB569,
+	0xB584,
+	0xB585,
+	0xB5A0,
+	0xB5A1,
+	0xB5BC,
+	0xB5BD,
+	0xB5D8,
+	0xB5D9,
+	0xB5F4,
+	0xB5F5,
+	0xB610,
+	0xB611,
+	0xB62C,
+	0xB62D,
+	0xB648,
+	0xB649,
+	0xB664,
+	0xB665,
+	0xB680,
+	0xB681,
+	0xB69C,
+	0xB69D,
+	0xB6B8,
+	0xB6B9,
+	0xB6D4,
+	0xB6D5,
+	0xB6F0,
+	0xB6F1,
+	0xB70C,
+	0xB70D,
+	0xB728,
+	0xB729,
+	0xB744,
+	0xB745,
+	0xB760,
+	0xB761,
+	0xB77C,
+	0xB77D,
+	0xB798,
+	0xB799,
+	0xB7B4,
+	0xB7B5,
+	0xB7D0,
+	0xB7D1,
+	0xB7EC,
+	0xB7ED,
+	0xB808,
+	0xB809,
+	0xB824,
+	0xB825,
+	0xB840,
+	0xB841,
+	0xB85C,
+	0xB85D,
+	0xB878,
+	0xB879,
+	0xB894,
+	0xB895,
+	0xB8B0,
+	0xB8B1,
+	0xB8CC,
+	0xB8CD,
+	0xB8E8,
+	0xB8E9,
+	0xB904,
+	0xB905,
+	0xB920,
+	0xB921,
+	0xB93C,
+	0xB93D,
+	0xB958,
+	0xB959,
+	0xB974,
+	0xB975,
+	0xB990,
+	0xB991,
+	0xB9AC,
+	0xB9AD,
+	0xB9C8,
+	0xB9C9,
+	0xB9E4,
+	0xB9E5,
+	0xBA00,
+	0xBA01,
+	0xBA1C,
+	0xBA1D,
+	0xBA38,
+	0xBA39,
+	0xBA54,
+	0xBA55,
+	0xBA70,
+	0xBA71,
+	0xBA8C,
+	0xBA8D,
+	0xBAA8,
+	0xBAA9,
+	0xBAC4,
+	0xBAC5,
+	0xBAE0,
+	0xBAE1,
+	0xBAFC,
+	0xBAFD,
+	0xBB18,
+	0xBB19,
+	0xBB34,
+	0xBB35,
+	0xBB50,
+	0xBB51,
+	0xBB6C,
+	0xBB6D,
+	0xBB88,
+	0xBB89,
+	0xBBA4,
+	0xBBA5,
+	0xBBC0,
+	0xBBC1,
+	0xBBDC,
+	0xBBDD,
+	0xBBF8,
+	0xBBF9,
+	0xBC14,
+	0xBC15,
+	0xBC30,
+	0xBC31,
+	0xBC4C,
+	0xBC4D,
+	0xBC68,
+	0xBC69,
+	0xBC84,
+	0xBC85,
+	0xBCA0,
+	0xBCA1,
+	0xBCBC,
+	0xBCBD,
+	0xBCD8,
+	0xBCD9,
+	0xBCF4,
+	0xBCF5,
+	0xBD10,
+	0xBD11,
+	0xBD2C,
+	0xBD2D,
+	0xBD48,
+	0xBD49,
+	0xBD64,
+	0xBD65,
+	0xBD80,
+	0xBD81,
+	0xBD9C,
+	0xBD9D,
+	0xBDB8,
+	0xBDB9,
+	0xBDD4,
+	0xBDD5,
+	0xBDF0,
+	0xBDF1,
+	0xBE0C,
+	0xBE0D,
+	0xBE28,
+	0xBE29,
+	0xBE44,
+	0xBE45,
+	0xBE60,
+	0xBE61,
+	0xBE7C,
+	0xBE7D,
+	0xBE98,
+	0xBE99,
+	0xBEB4,
+	0xBEB5,
+	0xBED0,
+	0xBED1,
+	0xBEEC,
+	0xBEED,
+	0xBF08,
+	0xBF09,
+	0xBF24,
+	0xBF25,
+	0xBF40,
+	0xBF41,
+	0xBF5C,
+	0xBF5D,
+	0xBF78,
+	0xBF79,
+	0xBF94,
+	0xBF95,
+	0xBFB0,
+	0xBFB1,
+	0xBFCC,
+	0xBFCD,
+	0xBFE8,
+	0xBFE9,
+	0xC004,
+	0xC005,
+	0xC020,
+	0xC021,
+	0xC03C,
+	0xC03D,
+	0xC058,
+	0xC059,
+	0xC074,
+	0xC075,
+	0xC090,
+	0xC091,
+	0xC0AC,
+	0xC0AD,
+	0xC0C8,
+	0xC0C9,
+	0xC0E4,
+	0xC0E5,
+	0xC100,
+	0xC101,
+	0xC11C,
+	0xC11D,
+	0xC138,
+	0xC139,
+	0xC154,
+	0xC155,
+	0xC170,
+	0xC171,
+	0xC18C,
+	0xC18D,
+	0xC1A8,
+	0xC1A9,
+	0xC1C4,
+	0xC1C5,
+	0xC1E0,
+	0xC1E1,
+	0xC1FC,
+	0xC1FD,
+	0xC218,
+	0xC219,
+	0xC234,
+	0xC235,
+	0xC250,
+	0xC251,
+	0xC26C,
+	0xC26D,
+	0xC288,
+	0xC289,
+	0xC2A4,
+	0xC2A5,
+	0xC2C0,
+	0xC2C1,
+	0xC2DC,
+	0xC2DD,
+	0xC2F8,
+	0xC2F9,
+	0xC314,
+	0xC315,
+	0xC330,
+	0xC331,
+	0xC34C,
+	0xC34D,
+	0xC368,
+	0xC369,
+	0xC384,
+	0xC385,
+	0xC3A0,
+	0xC3A1,
+	0xC3BC,
+	0xC3BD,
+	0xC3D8,
+	0xC3D9,
+	0xC3F4,
+	0xC3F5,
+	0xC410,
+	0xC411,
+	0xC42C,
+	0xC42D,
+	0xC448,
+	0xC449,
+	0xC464,
+	0xC465,
+	0xC480,
+	0xC481,
+	0xC49C,
+	0xC49D,
+	0xC4B8,
+	0xC4B9,
+	0xC4D4,
+	0xC4D5,
+	0xC4F0,
+	0xC4F1,
+	0xC50C,
+	0xC50D,
+	0xC528,
+	0xC529,
+	0xC544,
+	0xC545,
+	0xC560,
+	0xC561,
+	0xC57C,
+	0xC57D,
+	0xC598,
+	0xC599,
+	0xC5B4,
+	0xC5B5,
+	0xC5D0,
+	0xC5D1,
+	0xC5EC,
+	0xC5ED,
+	0xC608,
+	0xC609,
+	0xC624,
+	0xC625,
+	0xC640,
+	0xC641,
+	0xC65C,
+	0xC65D,
+	0xC678,
+	0xC679,
+	0xC694,
+	0xC695,
+	0xC6B0,
+	0xC6B1,
+	0xC6CC,
+	0xC6CD,
+	0xC6E8,
+	0xC6E9,
+	0xC704,
+	0xC705,
+	0xC720,
+	0xC721,
+	0xC73C,
+	0xC73D,
+	0xC758,
+	0xC759,
+	0xC774,
+	0xC775,
+	0xC790,
+	0xC791,
+	0xC7AC,
+	0xC7AD,
+	0xC7C8,
+	0xC7C9,
+	0xC7E4,
+	0xC7E5,
+	0xC800,
+	0xC801,
+	0xC81C,
+	0xC81D,
+	0xC838,
+	0xC839,
+	0xC854,
+	0xC855,
+	0xC870,
+	0xC871,
+	0xC88C,
+	0xC88D,
+	0xC8A8,
+	0xC8A9,
+	0xC8C4,
+	0xC8C5,
+	0xC8E0,
+	0xC8E1,
+	0xC8FC,
+	0xC8FD,
+	0xC918,
+	0xC919,
+	0xC934,
+	0xC935,
+	0xC950,
+	0xC951,
+	0xC96C,
+	0xC96D,
+	0xC988,
+	0xC989,
+	0xC9A4,
+	0xC9A5,
+	0xC9C0,
+	0xC9C1,
+	0xC9DC,
+	0xC9DD,
+	0xC9F8,
+	0xC9F9,
+	0xCA14,
+	0xCA15,
+	0xCA30,
+	0xCA31,
+	0xCA4C,
+	0xCA4D,
+	0xCA68,
+	0xCA69,
+	0xCA84,
+	0xCA85,
+	0xCAA0,
+	0xCAA1,
+	0xCABC,
+	0xCABD,
+	0xCAD8,
+	0xCAD9,
+	0xCAF4,
+	0xCAF5,
+	0xCB10,
+	0xCB11,
+	0xCB2C,
+	0xCB2D,
+	0xCB48,
+	0xCB49,
+	0xCB64,
+	0xCB65,
+	0xCB80,
+	0xCB81,
+	0xCB9C,
+	0xCB9D,
+	0xCBB8,
+	0xCBB9,
+	0xCBD4,
+	0xCBD5,
+	0xCBF0,
+	0xCBF1,
+	0xCC0C,
+	0xCC0D,
+	0xCC28,
+	0xCC29,
+	0xCC44,
+	0xCC45,
+	0xCC60,
+	0xCC61,
+	0xCC7C,
+	0xCC7D,
+	0xCC98,
+	0xCC99,
+	0xCCB4,
+	0xCCB5,
+	0xCCD0,
+	0xCCD1,
+	0xCCEC,
+	0xCCED,
+	0xCD08,
+	0xCD09,
+	0xCD24,
+	0xCD25,
+	0xCD40,
+	0xCD41,
+	0xCD5C,
+	0xCD5D,
+	0xCD78,
+	0xCD79,
+	0xCD94,
+	0xCD95,
+	0xCDB0,
+	0xCDB1,
+	0xCDCC,
+	0xCDCD,
+	0xCDE8,
+	0xCDE9,
+	0xCE04,
+	0xCE05,
+	0xCE20,
+	0xCE21,
+	0xCE3C,
+	0xCE3D,
+	0xCE58,
+	0xCE59,
+	0xCE74,
+	0xCE75,
+	0xCE90,
+	0xCE91,
+	0xCEAC,
+	0xCEAD,
+	0xCEC8,
+	0xCEC9,
+	0xCEE4,
+	0xCEE5,
+	0xCF00,
+	0xCF01,
+	0xCF1C,
+	0xCF1D,
+	0xCF38,
+	0xCF39,
+	0xCF54,
+	0xCF55,
+	0xCF70,
+	0xCF71,
+	0xCF8C,
+	0xCF8D,
+	0xCFA8,
+	0xCFA9,
+	0xCFC4,
+	0xCFC5,
+	0xCFE0,
+	0xCFE1,
+	0xCFFC,
+	0xCFFD,
+	0xD018,
+	0xD019,
+	0xD034,
+	0xD035,
+	0xD050,
+	0xD051,
+	0xD06C,
+	0xD06D,
+	0xD088,
+	0xD089,
+	0xD0A4,
+	0xD0A5,
+	0xD0C0,
+	0xD0C1,
+	0xD0DC,
+	0xD0DD,
+	0xD0F8,
+	0xD0F9,
+	0xD114,
+	0xD115,
+	0xD130,
+	0xD131,
+	0xD14C,
+	0xD14D,
+	0xD168,
+	0xD169,
+	0xD184,
+	0xD185,
+	0xD1A0,
+	0xD1A1,
+	0xD1BC,
+	0xD1BD,
+	0xD1D8,
+	0xD1D9,
+	0xD1F4,
+	0xD1F5,
+	0xD210,
+	0xD211,
+	0xD22C,
+	0xD22D,
+	0xD248,
+	0xD249,
+	0xD264,
+	0xD265,
+	0xD280,
+	0xD281,
+	0xD29C,
+	0xD29D,
+	0xD2B8,
+	0xD2B9,
+	0xD2D4,
+	0xD2D5,
+	0xD2F0,
+	0xD2F1,
+	0xD30C,
+	0xD30D,
+	0xD328,
+	0xD329,
+	0xD344,
+	0xD345,
+	0xD360,
+	0xD361,
+	0xD37C,
+	0xD37D,
+	0xD398,
+	0xD399,
+	0xD3B4,
+	0xD3B5,
+	0xD3D0,
+	0xD3D1,
+	0xD3EC,
+	0xD3ED,
+	0xD408,
+	0xD409,
+	0xD424,
+	0xD425,
+	0xD440,
+	0xD441,
+	0xD45C,
+	0xD45D,
+	0xD478,
+	0xD479,
+	0xD494,
+	0xD495,
+	0xD4B0,
+	0xD4B1,
+	0xD4CC,
+	0xD4CD,
+	0xD4E8,
+	0xD4E9,
+	0xD504,
+	0xD505,
+	0xD520,
+	0xD521,
+	0xD53C,
+	0xD53D,
+	0xD558,
+	0xD559,
+	0xD574,
+	0xD575,
+	0xD590,
+	0xD591,
+	0xD5AC,
+	0xD5AD,
+	0xD5C8,
+	0xD5C9,
+	0xD5E4,
+	0xD5E5,
+	0xD600,
+	0xD601,
+	0xD61C,
+	0xD61D,
+	0xD638,
+	0xD639,
+	0xD654,
+	0xD655,
+	0xD670,
+	0xD671,
+	0xD68C,
+	0xD68D,
+	0xD6A8,
+	0xD6A9,
+	0xD6C4,
+	0xD6C5,
+	0xD6E0,
+	0xD6E1,
+	0xD6FC,
+	0xD6FD,
+	0xD718,
+	0xD719,
+	0xD734,
+	0xD735,
+	0xD750,
+	0xD751,
+	0xD76C,
+	0xD76D,
+	0xD788,
+	0xD789,
+	0xD7A4,
+	0xD7B0,
+	0xD7C7,
+	0xD7CB,
+	0xD7FC,
+	0xD800,
+	0xE000,
+	0xFB1E,
+	0xFB1F,
+	0xFE00,
+	0xFE10,
+	0xFE20,
+	0xFE30,
+	0xFEFF,
+	0xFF00,
+	0xFF9E,
+	0xFFA0,
+	0xFFF0,
+	0xFFFC,
+	0x101FD,
+	0x101FE,
+	0x102E0,
+	0x102E1,
+	0x10376,
+	0x1037B,
+	0x10A01,
+	0x10A04,
+	0x10A05,
+	0x10A07,
+	0x10A0C,
+	0x10A10,
+	0x10A38,
+	0x10A3B,
+	0x10A3F,
+	0x10A40,
+	0x10AE5,
+	0x10AE7,
+	0x11000,
+	0x11001,
+	0x11002,
+	0x11003,
+	0x11038,
+	0x11047,
+	0x1107F,
+	0x11082,
+	0x11083,
+	0x110B0,
+	0x110B3,
+	0x110B7,
+	0x110B9,
+	0x110BB,
+	0x110BD,
+	0x110BE,
+	0x11100,
+	0x11103,
+	0x11127,
+	0x1112C,
+	0x1112D,
+	0x11135,
+	0x11173,
+	0x11174,
+	0x11180,
+	0x11182,
+	0x11183,
+	0x111B3,
+	0x111B6,
+	0x111BF,
+	0x111C1,
+	0x111CA,
+	0x111CD,
+	0x1122C,
+	0x1122F,
+	0x11232,
+	0x11234,
+	0x11235,
+	0x11236,
+	0x11238,
+	0x112DF,
+	0x112E0,
+	0x112E3,
+	0x112EB,
+	0x11300,
+	0x11302,
+	0x11304,
+	0x1133C,
+	0x1133D,
+	0x1133E,
+	0x1133F,
+	0x11340,
+	0x11341,
+	0x11345,
+	0x11347,
+	0x11349,
+	0x1134B,
+	0x1134E,
+	0x11357,
+	0x11358,
+	0x11362,
+	0x11364,
+	0x11366,
+	0x1136D,
+	0x11370,
+	0x11375,
+	0x114B0,
+	0x114B1,
+	0x114B3,
+	0x114B9,
+	0x114BA,
+	0x114BB,
+	0x114BD,
+	0x114BE,
+	0x114BF,
+	0x114C1,
+	0x114C2,
+	0x114C4,
+	0x115AF,
+	0x115B0,
+	0x115B2,
+	0x115B6,
+	0x115B8,
+	0x115BC,
+	0x115BE,
+	0x115BF,
+	0x115C1,
+	0x115DC,
+	0x115DE,
+	0x11630,
+	0x11633,
+	0x1163B,
+	0x1163D,
+	0x1163E,
+	0x1163F,
+	0x11641,
+	0x116AB,
+	0x116AC,
+	0x116AD,
+	0x116AE,
+	0x116B0,
+	0x116B6,
+	0x116B7,
+	0x116B8,
+	0x1171D,
+	0x11720,
+	0x11722,
+	0x11726,
+	0x11727,
+	0x1172C,
+	0x16AF0,
+	0x16AF5,
+	0x16B30,
+	0x16B37,
+	0x16F51,
+	0x16F7F,
+	0x16F8F,
+	0x16F93,
+	0x1BC9D,
+	0x1BC9F,
+	0x1BCA0,
+	0x1BCA4,
+	0x1D165,
+	0x1D166,
+	0x1D167,
+	0x1D16A,
+	0x1D16D,
+	0x1D16E,
+	0x1D173,
+	0x1D17B,
+	0x1D183,
+	0x1D185,
+	0x1D18C,
+	0x1D1AA,
+	0x1D1AE,
+	0x1D242,
+	0x1D245,
+	0x1DA00,
+	0x1DA37,
+	0x1DA3B,
+	0x1DA6D,
+	0x1DA75,
+	0x1DA76,
+	0x1DA84,
+	0x1DA85,
+	0x1DA9B,
+	0x1DAA0,
+	0x1DAA1,
+	0x1DAB0,
+	0x1E8D0,
+	0x1E8D7,
+	0x1F1E6,
+	0x1F200,
+	0xE0000,
+	0xE0100,
+	0xE01F0,
+	0xE1000
+};
+
+#endif	/* defined(PERL_IN_PERL_C) */
+
+#if defined(PERL_IN_REGEXEC_C)
+
+#define GCB_ENUM_COUNT 14
+
+typedef enum {
+	GCB_Other = 0,
+	GCB_CR = 1,
+	GCB_Control = 2,
+	GCB_Extend = 3,
+	GCB_L = 4,
+	GCB_LF = 5,
+	GCB_LV = 6,
+	GCB_LVT = 7,
+	GCB_Prepend = 8,
+	GCB_Regional_Indicator = 9,
+	GCB_SpacingMark = 10,
+	GCB_T = 11,
+	GCB_V = 12,
+	GCB_EDGE = 13
+} GCB_enum;
+
+static const GCB_enum _Perl_GCB_invmap[] = { /* for EBCDIC 1047 */
+	GCB_Control,
+	GCB_CR,
+	GCB_Control,
+	GCB_LF,
+	GCB_Control,
+	GCB_Other,
+	GCB_Control,
+	GCB_Other,
+	GCB_Control,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Control,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Control,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Control,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Control,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_L,
+	GCB_V,
+	GCB_T,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Control,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Control,
+	GCB_Extend,
+	GCB_Control,
+	GCB_Other,
+	GCB_Control,
+	GCB_Other,
+	GCB_Control,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_L,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_Other,
+	GCB_V,
+	GCB_Other,
+	GCB_T,
+	GCB_Other,
+	GCB_Control,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Control,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Control,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Control,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Control,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Control,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Regional_Indicator,
+	GCB_Other,
+	GCB_Control,
+	GCB_Extend,
+	GCB_Control,
+	GCB_Other
+};
+
+#endif	/* defined(PERL_IN_REGEXEC_C) */
+
+#if defined(PERL_IN_UTF8_C)
+
+static const UV _Perl_IDCont_invlist[] = { /* for EBCDIC 1047 */
+	1341,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	1,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x42,
+	0x4A,
+	0x51,
+	0x5A,
+	0x62,
+	0x6A,
+	0x6D,
+	0x6E,
+	0x70,
+	0x79,
+	0x80,
+	0x8A,
+	0x8C,
+	0x8F,
+	0x91,
+	0x9D,
+	0x9E,
+	0x9F,
+	0xA0,
+	0xA1,
+	0xA2,
+	0xAA,
+	0xAC,
+	0xAD,
+	0xAE,
+	0xAF,
+	0xBA,
+	0xBB,
+	0xC1,
+	0xCA,
+	0xCB,
+	0xD0,
+	0xD1,
+	0xDA,
+	0xDB,
+	0xE0,
+	0xE2,
+	0xEA,
+	0xEB,
+	0xFA,
+	0xFB,
+	0xFF,
+	0x100,
+	0x2C2,
+	0x2C6,
+	0x2D2,
+	0x2E0,
+	0x2E5,
+	0x2EC,
+	0x2ED,
+	0x2EE,
+	0x2EF,
+	0x300,
+	0x375,
+	0x376,
+	0x378,
+	0x37B,
+	0x37E,
+	0x37F,
+	0x380,
+	0x386,
+	0x387,
+	0x388,
+	0x38B,
+	0x38C,
+	0x38D,
+	0x38E,
+	0x3A2,
+	0x3A3,
+	0x3F6,
+	0x3F7,
+	0x482,
+	0x483,
+	0x488,
+	0x48A,
+	0x530,
+	0x531,
+	0x557,
+	0x559,
+	0x55A,
+	0x561,
+	0x588,
+	0x591,
+	0x5BE,
+	0x5BF,
+	0x5C0,
+	0x5C1,
+	0x5C3,
+	0x5C4,
+	0x5C6,
+	0x5C7,
+	0x5C8,
+	0x5D0,
+	0x5EB,
+	0x5F0,
+	0x5F3,
+	0x610,
+	0x61B,
+	0x620,
+	0x66A,
+	0x66E,
+	0x6D4,
+	0x6D5,
+	0x6DD,
+	0x6DF,
+	0x6E9,
+	0x6EA,
+	0x6FD,
+	0x6FF,
+	0x700,
+	0x710,
+	0x74B,
+	0x74D,
+	0x7B2,
+	0x7C0,
+	0x7F6,
+	0x7FA,
+	0x7FB,
+	0x800,
+	0x82E,
+	0x840,
+	0x85C,
+	0x8A0,
+	0x8B5,
+	0x8E3,
+	0x964,
+	0x966,
+	0x970,
+	0x971,
+	0x984,
+	0x985,
+	0x98D,
+	0x98F,
+	0x991,
+	0x993,
+	0x9A9,
+	0x9AA,
+	0x9B1,
+	0x9B2,
+	0x9B3,
+	0x9B6,
+	0x9BA,
+	0x9BC,
+	0x9C5,
+	0x9C7,
+	0x9C9,
+	0x9CB,
+	0x9CF,
+	0x9D7,
+	0x9D8,
+	0x9DC,
+	0x9DE,
+	0x9DF,
+	0x9E4,
+	0x9E6,
+	0x9F2,
+	0xA01,
+	0xA04,
+	0xA05,
+	0xA0B,
+	0xA0F,
+	0xA11,
+	0xA13,
+	0xA29,
+	0xA2A,
+	0xA31,
+	0xA32,
+	0xA34,
+	0xA35,
+	0xA37,
+	0xA38,
+	0xA3A,
+	0xA3C,
+	0xA3D,
+	0xA3E,
+	0xA43,
+	0xA47,
+	0xA49,
+	0xA4B,
+	0xA4E,
+	0xA51,
+	0xA52,
+	0xA59,
+	0xA5D,
+	0xA5E,
+	0xA5F,
+	0xA66,
+	0xA76,
+	0xA81,
+	0xA84,
+	0xA85,
+	0xA8E,
+	0xA8F,
+	0xA92,
+	0xA93,
+	0xAA9,
+	0xAAA,
+	0xAB1,
+	0xAB2,
+	0xAB4,
+	0xAB5,
+	0xABA,
+	0xABC,
+	0xAC6,
+	0xAC7,
+	0xACA,
+	0xACB,
+	0xACE,
+	0xAD0,
+	0xAD1,
+	0xAE0,
+	0xAE4,
+	0xAE6,
+	0xAF0,
+	0xAF9,
+	0xAFA,
+	0xB01,
+	0xB04,
+	0xB05,
+	0xB0D,
+	0xB0F,
+	0xB11,
+	0xB13,
+	0xB29,
+	0xB2A,
+	0xB31,
+	0xB32,
+	0xB34,
+	0xB35,
+	0xB3A,
+	0xB3C,
+	0xB45,
+	0xB47,
+	0xB49,
+	0xB4B,
+	0xB4E,
+	0xB56,
+	0xB58,
+	0xB5C,
+	0xB5E,
+	0xB5F,
+	0xB64,
+	0xB66,
+	0xB70,
+	0xB71,
+	0xB72,
+	0xB82,
+	0xB84,
+	0xB85,
+	0xB8B,
+	0xB8E,
+	0xB91,
+	0xB92,
+	0xB96,
+	0xB99,
+	0xB9B,
+	0xB9C,
+	0xB9D,
+	0xB9E,
+	0xBA0,
+	0xBA3,
+	0xBA5,
+	0xBA8,
+	0xBAB,
+	0xBAE,
+	0xBBA,
+	0xBBE,
+	0xBC3,
+	0xBC6,
+	0xBC9,
+	0xBCA,
+	0xBCE,
+	0xBD0,
+	0xBD1,
+	0xBD7,
+	0xBD8,
+	0xBE6,
+	0xBF0,
+	0xC00,
+	0xC04,
+	0xC05,
+	0xC0D,
+	0xC0E,
+	0xC11,
+	0xC12,
+	0xC29,
+	0xC2A,
+	0xC3A,
+	0xC3D,
+	0xC45,
+	0xC46,
+	0xC49,
+	0xC4A,
+	0xC4E,
+	0xC55,
+	0xC57,
+	0xC58,
+	0xC5B,
+	0xC60,
+	0xC64,
+	0xC66,
+	0xC70,
+	0xC81,
+	0xC84,
+	0xC85,
+	0xC8D,
+	0xC8E,
+	0xC91,
+	0xC92,
+	0xCA9,
+	0xCAA,
+	0xCB4,
+	0xCB5,
+	0xCBA,
+	0xCBC,
+	0xCC5,
+	0xCC6,
+	0xCC9,
+	0xCCA,
+	0xCCE,
+	0xCD5,
+	0xCD7,
+	0xCDE,
+	0xCDF,
+	0xCE0,
+	0xCE4,
+	0xCE6,
+	0xCF0,
+	0xCF1,
+	0xCF3,
+	0xD01,
+	0xD04,
+	0xD05,
+	0xD0D,
+	0xD0E,
+	0xD11,
+	0xD12,
+	0xD3B,
+	0xD3D,
+	0xD45,
+	0xD46,
+	0xD49,
+	0xD4A,
+	0xD4F,
+	0xD57,
+	0xD58,
+	0xD5F,
+	0xD64,
+	0xD66,
+	0xD70,
+	0xD7A,
+	0xD80,
+	0xD82,
+	0xD84,
+	0xD85,
+	0xD97,
+	0xD9A,
+	0xDB2,
+	0xDB3,
+	0xDBC,
+	0xDBD,
+	0xDBE,
+	0xDC0,
+	0xDC7,
+	0xDCA,
+	0xDCB,
+	0xDCF,
+	0xDD5,
+	0xDD6,
+	0xDD7,
+	0xDD8,
+	0xDE0,
+	0xDE6,
+	0xDF0,
+	0xDF2,
+	0xDF4,
+	0xE01,
+	0xE3B,
+	0xE40,
+	0xE4F,
+	0xE50,
+	0xE5A,
+	0xE81,
+	0xE83,
+	0xE84,
+	0xE85,
+	0xE87,
+	0xE89,
+	0xE8A,
+	0xE8B,
+	0xE8D,
+	0xE8E,
+	0xE94,
+	0xE98,
+	0xE99,
+	0xEA0,
+	0xEA1,
+	0xEA4,
+	0xEA5,
+	0xEA6,
+	0xEA7,
+	0xEA8,
+	0xEAA,
+	0xEAC,
+	0xEAD,
+	0xEBA,
+	0xEBB,
+	0xEBE,
+	0xEC0,
+	0xEC5,
+	0xEC6,
+	0xEC7,
+	0xEC8,
+	0xECE,
+	0xED0,
+	0xEDA,
+	0xEDC,
+	0xEE0,
+	0xF00,
+	0xF01,
+	0xF18,
+	0xF1A,
+	0xF20,
+	0xF2A,
+	0xF35,
+	0xF36,
+	0xF37,
+	0xF38,
+	0xF39,
+	0xF3A,
+	0xF3E,
+	0xF48,
+	0xF49,
+	0xF6D,
+	0xF71,
+	0xF85,
+	0xF86,
+	0xF98,
+	0xF99,
+	0xFBD,
+	0xFC6,
+	0xFC7,
+	0x1000,
+	0x104A,
+	0x1050,
+	0x109E,
+	0x10A0,
+	0x10C6,
+	0x10C7,
+	0x10C8,
+	0x10CD,
+	0x10CE,
+	0x10D0,
+	0x10FB,
+	0x10FC,
+	0x1249,
+	0x124A,
+	0x124E,
+	0x1250,
+	0x1257,
+	0x1258,
+	0x1259,
+	0x125A,
+	0x125E,
+	0x1260,
+	0x1289,
+	0x128A,
+	0x128E,
+	0x1290,
+	0x12B1,
+	0x12B2,
+	0x12B6,
+	0x12B8,
+	0x12BF,
+	0x12C0,
+	0x12C1,
+	0x12C2,
+	0x12C6,
+	0x12C8,
+	0x12D7,
+	0x12D8,
+	0x1311,
+	0x1312,
+	0x1316,
+	0x1318,
+	0x135B,
+	0x135D,
+	0x1360,
+	0x1380,
+	0x1390,
+	0x13A0,
+	0x13F6,
+	0x13F8,
+	0x13FE,
+	0x1401,
+	0x166D,
+	0x166F,
+	0x1680,
+	0x1681,
+	0x169B,
+	0x16A0,
+	0x16EB,
+	0x16EE,
+	0x16F9,
+	0x1700,
+	0x170D,
+	0x170E,
+	0x1715,
+	0x1720,
+	0x1735,
+	0x1740,
+	0x1754,
+	0x1760,
+	0x176D,
+	0x176E,
+	0x1771,
+	0x1772,
+	0x1774,
+	0x1780,
+	0x17D4,
+	0x17D7,
+	0x17D8,
+	0x17DC,
+	0x17DE,
+	0x17E0,
+	0x17EA,
+	0x180B,
+	0x180E,
+	0x1810,
+	0x181A,
+	0x1820,
+	0x1878,
+	0x1880,
+	0x18AB,
+	0x18B0,
+	0x18F6,
+	0x1900,
+	0x191F,
+	0x1920,
+	0x192C,
+	0x1930,
+	0x193C,
+	0x1946,
+	0x196E,
+	0x1970,
+	0x1975,
+	0x1980,
+	0x19AC,
+	0x19B0,
+	0x19CA,
+	0x19D0,
+	0x19DA,
+	0x1A00,
+	0x1A1C,
+	0x1A20,
+	0x1A5F,
+	0x1A60,
+	0x1A7D,
+	0x1A7F,
+	0x1A8A,
+	0x1A90,
+	0x1A9A,
+	0x1AA7,
+	0x1AA8,
+	0x1AB0,
+	0x1ABE,
+	0x1B00,
+	0x1B4C,
+	0x1B50,
+	0x1B5A,
+	0x1B6B,
+	0x1B74,
+	0x1B80,
+	0x1BF4,
+	0x1C00,
+	0x1C38,
+	0x1C40,
+	0x1C4A,
+	0x1C4D,
+	0x1C7E,
+	0x1CD0,
+	0x1CD3,
+	0x1CD4,
+	0x1CF7,
+	0x1CF8,
+	0x1CFA,
+	0x1D00,
+	0x1DF6,
+	0x1DFC,
+	0x1F16,
+	0x1F18,
+	0x1F1E,
+	0x1F20,
+	0x1F46,
+	0x1F48,
+	0x1F4E,
+	0x1F50,
+	0x1F58,
+	0x1F59,
+	0x1F5A,
+	0x1F5B,
+	0x1F5C,
+	0x1F5D,
+	0x1F5E,
+	0x1F5F,
+	0x1F7E,
+	0x1F80,
+	0x1FB5,
+	0x1FB6,
+	0x1FBD,
+	0x1FBE,
+	0x1FBF,
+	0x1FC2,
+	0x1FC5,
+	0x1FC6,
+	0x1FCD,
+	0x1FD0,
+	0x1FD4,
+	0x1FD6,
+	0x1FDC,
+	0x1FE0,
+	0x1FED,
+	0x1FF2,
+	0x1FF5,
+	0x1FF6,
+	0x1FFD,
+	0x203F,
+	0x2041,
+	0x2054,
+	0x2055,
+	0x2071,
+	0x2072,
+	0x207F,
+	0x2080,
+	0x2090,
+	0x209D,
+	0x20D0,
+	0x20DD,
+	0x20E1,
+	0x20E2,
+	0x20E5,
+	0x20F1,
+	0x2102,
+	0x2103,
+	0x2107,
+	0x2108,
+	0x210A,
+	0x2114,
+	0x2115,
+	0x2116,
+	0x2119,
+	0x211E,
+	0x2124,
+	0x2125,
+	0x2126,
+	0x2127,
+	0x2128,
+	0x2129,
+	0x212A,
+	0x212E,
+	0x212F,
+	0x213A,
+	0x213C,
+	0x2140,
+	0x2145,
+	0x214A,
+	0x214E,
+	0x214F,
+	0x2160,
+	0x2189,
+	0x2C00,
+	0x2C2F,
+	0x2C30,
+	0x2C5F,
+	0x2C60,
+	0x2CE5,
+	0x2CEB,
+	0x2CF4,
+	0x2D00,
+	0x2D26,
+	0x2D27,
+	0x2D28,
+	0x2D2D,
+	0x2D2E,
+	0x2D30,
+	0x2D68,
+	0x2D6F,
+	0x2D70,
+	0x2D7F,
+	0x2D97,
+	0x2DA0,
+	0x2DA7,
+	0x2DA8,
+	0x2DAF,
+	0x2DB0,
+	0x2DB7,
+	0x2DB8,
+	0x2DBF,
+	0x2DC0,
+	0x2DC7,
+	0x2DC8,
+	0x2DCF,
+	0x2DD0,
+	0x2DD7,
+	0x2DD8,
+	0x2DDF,
+	0x2DE0,
+	0x2E00,
+	0x3005,
+	0x3008,
+	0x3021,
+	0x3030,
+	0x3031,
+	0x3036,
+	0x3038,
+	0x303D,
+	0x3041,
+	0x3097,
+	0x3099,
+	0x309B,
+	0x309D,
+	0x30A0,
+	0x30A1,
+	0x30FB,
+	0x30FC,
+	0x3100,
+	0x3105,
+	0x312E,
+	0x3131,
+	0x318F,
+	0x31A0,
+	0x31BB,
+	0x31F0,
+	0x3200,
+	0x3400,
+	0x4DB6,
+	0x4E00,
+	0x9FD6,
+	0xA000,
+	0xA48D,
+	0xA4D0,
+	0xA4FE,
+	0xA500,
+	0xA60D,
+	0xA610,
+	0xA62C,
+	0xA640,
+	0xA670,
+	0xA674,
+	0xA67E,
+	0xA67F,
+	0xA6F2,
+	0xA717,
+	0xA720,
+	0xA722,
+	0xA789,
+	0xA78B,
+	0xA7AE,
+	0xA7B0,
+	0xA7B8,
+	0xA7F7,
+	0xA828,
+	0xA840,
+	0xA874,
+	0xA880,
+	0xA8C5,
+	0xA8D0,
+	0xA8DA,
+	0xA8E0,
+	0xA8F8,
+	0xA8FB,
+	0xA8FC,
+	0xA8FD,
+	0xA8FE,
+	0xA900,
+	0xA92E,
+	0xA930,
+	0xA954,
+	0xA960,
+	0xA97D,
+	0xA980,
+	0xA9C1,
+	0xA9CF,
+	0xA9DA,
+	0xA9E0,
+	0xA9FF,
+	0xAA00,
+	0xAA37,
+	0xAA40,
+	0xAA4E,
+	0xAA50,
+	0xAA5A,
+	0xAA60,
+	0xAA77,
+	0xAA7A,
+	0xAAC3,
+	0xAADB,
+	0xAADE,
+	0xAAE0,
+	0xAAF0,
+	0xAAF2,
+	0xAAF7,
+	0xAB01,
+	0xAB07,
+	0xAB09,
+	0xAB0F,
+	0xAB11,
+	0xAB17,
+	0xAB20,
+	0xAB27,
+	0xAB28,
+	0xAB2F,
+	0xAB30,
+	0xAB5B,
+	0xAB5C,
+	0xAB66,
+	0xAB70,
+	0xABEB,
+	0xABEC,
+	0xABEE,
+	0xABF0,
+	0xABFA,
+	0xAC00,
+	0xD7A4,
+	0xD7B0,
+	0xD7C7,
+	0xD7CB,
+	0xD7FC,
+	0xF900,
+	0xFA6E,
+	0xFA70,
+	0xFADA,
+	0xFB00,
+	0xFB07,
+	0xFB13,
+	0xFB18,
+	0xFB1D,
+	0xFB29,
+	0xFB2A,
+	0xFB37,
+	0xFB38,
+	0xFB3D,
+	0xFB3E,
+	0xFB3F,
+	0xFB40,
+	0xFB42,
+	0xFB43,
+	0xFB45,
+	0xFB46,
+	0xFBB2,
+	0xFBD3,
+	0xFC5E,
+	0xFC64,
+	0xFD3E,
+	0xFD50,
+	0xFD90,
+	0xFD92,
+	0xFDC8,
+	0xFDF0,
+	0xFDFA,
+	0xFE00,
+	0xFE10,
+	0xFE20,
+	0xFE30,
+	0xFE33,
+	0xFE35,
+	0xFE4D,
+	0xFE50,
+	0xFE71,
+	0xFE72,
+	0xFE73,
+	0xFE74,
+	0xFE77,
+	0xFE78,
+	0xFE79,
+	0xFE7A,
+	0xFE7B,
+	0xFE7C,
+	0xFE7D,
+	0xFE7E,
+	0xFE7F,
+	0xFEFD,
+	0xFF10,
+	0xFF1A,
+	0xFF21,
+	0xFF3B,
+	0xFF3F,
+	0xFF40,
+	0xFF41,
+	0xFF5B,
+	0xFF66,
+	0xFFBF,
+	0xFFC2,
+	0xFFC8,
+	0xFFCA,
+	0xFFD0,
+	0xFFD2,
+	0xFFD8,
+	0xFFDA,
+	0xFFDD,
+	0x10000,
+	0x1000C,
+	0x1000D,
+	0x10027,
+	0x10028,
+	0x1003B,
+	0x1003C,
+	0x1003E,
+	0x1003F,
+	0x1004E,
+	0x10050,
+	0x1005E,
+	0x10080,
+	0x100FB,
+	0x10140,
+	0x10175,
+	0x101FD,
+	0x101FE,
+	0x10280,
+	0x1029D,
+	0x102A0,
+	0x102D1,
+	0x102E0,
+	0x102E1,
+	0x10300,
+	0x10320,
+	0x10330,
+	0x1034B,
+	0x10350,
+	0x1037B,
+	0x10380,
+	0x1039E,
+	0x103A0,
+	0x103C4,
+	0x103C8,
+	0x103D0,
+	0x103D1,
+	0x103D6,
+	0x10400,
+	0x1049E,
+	0x104A0,
+	0x104AA,
+	0x10500,
+	0x10528,
+	0x10530,
+	0x10564,
+	0x10600,
+	0x10737,
+	0x10740,
+	0x10756,
+	0x10760,
+	0x10768,
+	0x10800,
+	0x10806,
+	0x10808,
+	0x10809,
+	0x1080A,
+	0x10836,
+	0x10837,
+	0x10839,
+	0x1083C,
+	0x1083D,
+	0x1083F,
+	0x10856,
+	0x10860,
+	0x10877,
+	0x10880,
+	0x1089F,
+	0x108E0,
+	0x108F3,
+	0x108F4,
+	0x108F6,
+	0x10900,
+	0x10916,
+	0x10920,
+	0x1093A,
+	0x10980,
+	0x109B8,
+	0x109BE,
+	0x109C0,
+	0x10A00,
+	0x10A04,
+	0x10A05,
+	0x10A07,
+	0x10A0C,
+	0x10A14,
+	0x10A15,
+	0x10A18,
+	0x10A19,
+	0x10A34,
+	0x10A38,
+	0x10A3B,
+	0x10A3F,
+	0x10A40,
+	0x10A60,
+	0x10A7D,
+	0x10A80,
+	0x10A9D,
+	0x10AC0,
+	0x10AC8,
+	0x10AC9,
+	0x10AE7,
+	0x10B00,
+	0x10B36,
+	0x10B40,
+	0x10B56,
+	0x10B60,
+	0x10B73,
+	0x10B80,
+	0x10B92,
+	0x10C00,
+	0x10C49,
+	0x10C80,
+	0x10CB3,
+	0x10CC0,
+	0x10CF3,
+	0x11000,
+	0x11047,
+	0x11066,
+	0x11070,
+	0x1107F,
+	0x110BB,
+	0x110D0,
+	0x110E9,
+	0x110F0,
+	0x110FA,
+	0x11100,
+	0x11135,
+	0x11136,
+	0x11140,
+	0x11150,
+	0x11174,
+	0x11176,
+	0x11177,
+	0x11180,
+	0x111C5,
+	0x111CA,
+	0x111CD,
+	0x111D0,
+	0x111DB,
+	0x111DC,
+	0x111DD,
+	0x11200,
+	0x11212,
+	0x11213,
+	0x11238,
+	0x11280,
+	0x11287,
+	0x11288,
+	0x11289,
+	0x1128A,
+	0x1128E,
+	0x1128F,
+	0x1129E,
+	0x1129F,
+	0x112A9,
+	0x112B0,
+	0x112EB,
+	0x112F0,
+	0x112FA,
+	0x11300,
+	0x11304,
+	0x11305,
+	0x1130D,
+	0x1130F,
+	0x11311,
+	0x11313,
+	0x11329,
+	0x1132A,
+	0x11331,
+	0x11332,
+	0x11334,
+	0x11335,
+	0x1133A,
+	0x1133C,
+	0x11345,
+	0x11347,
+	0x11349,
+	0x1134B,
+	0x1134E,
+	0x11350,
+	0x11351,
+	0x11357,
+	0x11358,
+	0x1135D,
+	0x11364,
+	0x11366,
+	0x1136D,
+	0x11370,
+	0x11375,
+	0x11480,
+	0x114C6,
+	0x114C7,
+	0x114C8,
+	0x114D0,
+	0x114DA,
+	0x11580,
+	0x115B6,
+	0x115B8,
+	0x115C1,
+	0x115D8,
+	0x115DE,
+	0x11600,
+	0x11641,
+	0x11644,
+	0x11645,
+	0x11650,
+	0x1165A,
+	0x11680,
+	0x116B8,
+	0x116C0,
+	0x116CA,
+	0x11700,
+	0x1171A,
+	0x1171D,
+	0x1172C,
+	0x11730,
+	0x1173A,
+	0x118A0,
+	0x118EA,
+	0x118FF,
+	0x11900,
+	0x11AC0,
+	0x11AF9,
+	0x12000,
+	0x1239A,
+	0x12400,
+	0x1246F,
+	0x12480,
+	0x12544,
+	0x13000,
+	0x1342F,
+	0x14400,
+	0x14647,
+	0x16800,
+	0x16A39,
+	0x16A40,
+	0x16A5F,
+	0x16A60,
+	0x16A6A,
+	0x16AD0,
+	0x16AEE,
+	0x16AF0,
+	0x16AF5,
+	0x16B00,
+	0x16B37,
+	0x16B40,
+	0x16B44,
+	0x16B50,
+	0x16B5A,
+	0x16B63,
+	0x16B78,
+	0x16B7D,
+	0x16B90,
+	0x16F00,
+	0x16F45,
+	0x16F50,
+	0x16F7F,
+	0x16F8F,
+	0x16FA0,
+	0x1B000,
+	0x1B002,
+	0x1BC00,
+	0x1BC6B,
+	0x1BC70,
+	0x1BC7D,
+	0x1BC80,
+	0x1BC89,
+	0x1BC90,
+	0x1BC9A,
+	0x1BC9D,
+	0x1BC9F,
+	0x1D165,
+	0x1D16A,
+	0x1D16D,
+	0x1D173,
+	0x1D17B,
+	0x1D183,
+	0x1D185,
+	0x1D18C,
+	0x1D1AA,
+	0x1D1AE,
+	0x1D242,
+	0x1D245,
+	0x1D400,
+	0x1D455,
+	0x1D456,
+	0x1D49D,
+	0x1D49E,
+	0x1D4A0,
+	0x1D4A2,
+	0x1D4A3,
+	0x1D4A5,
+	0x1D4A7,
+	0x1D4A9,
+	0x1D4AD,
+	0x1D4AE,
+	0x1D4BA,
+	0x1D4BB,
+	0x1D4BC,
+	0x1D4BD,
+	0x1D4C4,
+	0x1D4C5,
+	0x1D506,
+	0x1D507,
+	0x1D50B,
+	0x1D50D,
+	0x1D515,
+	0x1D516,
+	0x1D51D,
+	0x1D51E,
+	0x1D53A,
+	0x1D53B,
+	0x1D53F,
+	0x1D540,
+	0x1D545,
+	0x1D546,
+	0x1D547,
+	0x1D54A,
+	0x1D551,
+	0x1D552,
+	0x1D6A6,
+	0x1D6A8,
+	0x1D6C1,
+	0x1D6C2,
+	0x1D6DB,
+	0x1D6DC,
+	0x1D6FB,
+	0x1D6FC,
+	0x1D715,
+	0x1D716,
+	0x1D735,
+	0x1D736,
+	0x1D74F,
+	0x1D750,
+	0x1D76F,
+	0x1D770,
+	0x1D789,
+	0x1D78A,
+	0x1D7A9,
+	0x1D7AA,
+	0x1D7C3,
+	0x1D7C4,
+	0x1D7CC,
+	0x1D7CE,
+	0x1D800,
+	0x1DA00,
+	0x1DA37,
+	0x1DA3B,
+	0x1DA6D,
+	0x1DA75,
+	0x1DA76,
+	0x1DA84,
+	0x1DA85,
+	0x1DA9B,
+	0x1DAA0,
+	0x1DAA1,
+	0x1DAB0,
+	0x1E800,
+	0x1E8C5,
+	0x1E8D0,
+	0x1E8D7,
+	0x1EE00,
+	0x1EE04,
+	0x1EE05,
+	0x1EE20,
+	0x1EE21,
+	0x1EE23,
+	0x1EE24,
+	0x1EE25,
+	0x1EE27,
+	0x1EE28,
+	0x1EE29,
+	0x1EE33,
+	0x1EE34,
+	0x1EE38,
+	0x1EE39,
+	0x1EE3A,
+	0x1EE3B,
+	0x1EE3C,
+	0x1EE42,
+	0x1EE43,
+	0x1EE47,
+	0x1EE48,
+	0x1EE49,
+	0x1EE4A,
+	0x1EE4B,
+	0x1EE4C,
+	0x1EE4D,
+	0x1EE50,
+	0x1EE51,
+	0x1EE53,
+	0x1EE54,
+	0x1EE55,
+	0x1EE57,
+	0x1EE58,
+	0x1EE59,
+	0x1EE5A,
+	0x1EE5B,
+	0x1EE5C,
+	0x1EE5D,
+	0x1EE5E,
+	0x1EE5F,
+	0x1EE60,
+	0x1EE61,
+	0x1EE63,
+	0x1EE64,
+	0x1EE65,
+	0x1EE67,
+	0x1EE6B,
+	0x1EE6C,
+	0x1EE73,
+	0x1EE74,
+	0x1EE78,
+	0x1EE79,
+	0x1EE7D,
+	0x1EE7E,
+	0x1EE7F,
+	0x1EE80,
+	0x1EE8A,
+	0x1EE8B,
+	0x1EE9C,
+	0x1EEA1,
+	0x1EEA4,
+	0x1EEA5,
+	0x1EEAA,
+	0x1EEAB,
+	0x1EEBC,
+	0x20000,
+	0x2A6D7,
+	0x2A700,
+	0x2B735,
+	0x2B740,
+	0x2B81E,
+	0x2B820,
+	0x2CEA2,
+	0x2F800,
+	0x2FA1E,
+	0xE0100,
+	0xE01F0
+};
+
+static const UV _Perl_IDStart_invlist[] = { /* for EBCDIC 1047 */
+	1155,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	1,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x42,
+	0x4A,
+	0x51,
+	0x5A,
+	0x62,
+	0x6A,
+	0x6D,
+	0x6E,
+	0x70,
+	0x79,
+	0x80,
+	0x8A,
+	0x8C,
+	0x8F,
+	0x91,
+	0x9D,
+	0x9E,
+	0x9F,
+	0xA0,
+	0xA1,
+	0xA2,
+	0xAA,
+	0xAC,
+	0xAD,
+	0xAE,
+	0xAF,
+	0xBA,
+	0xBB,
+	0xC1,
+	0xCA,
+	0xCB,
+	0xD0,
+	0xD1,
+	0xDA,
+	0xDB,
+	0xE0,
+	0xE2,
+	0xEA,
+	0xEB,
+	0xF0,
+	0xFB,
+	0xFF,
+	0x100,
+	0x2C2,
+	0x2C6,
+	0x2D2,
+	0x2E0,
+	0x2E5,
+	0x2EC,
+	0x2ED,
+	0x2EE,
+	0x2EF,
+	0x370,
+	0x375,
+	0x376,
+	0x378,
+	0x37B,
+	0x37E,
+	0x37F,
+	0x380,
+	0x386,
+	0x387,
+	0x388,
+	0x38B,
+	0x38C,
+	0x38D,
+	0x38E,
+	0x3A2,
+	0x3A3,
+	0x3F6,
+	0x3F7,
+	0x482,
+	0x48A,
+	0x530,
+	0x531,
+	0x557,
+	0x559,
+	0x55A,
+	0x561,
+	0x588,
+	0x5D0,
+	0x5EB,
+	0x5F0,
+	0x5F3,
+	0x620,
+	0x64B,
+	0x66E,
+	0x670,
+	0x671,
+	0x6D4,
+	0x6D5,
+	0x6D6,
+	0x6E5,
+	0x6E7,
+	0x6EE,
+	0x6F0,
+	0x6FA,
+	0x6FD,
+	0x6FF,
+	0x700,
+	0x710,
+	0x711,
+	0x712,
+	0x730,
+	0x74D,
+	0x7A6,
+	0x7B1,
+	0x7B2,
+	0x7CA,
+	0x7EB,
+	0x7F4,
+	0x7F6,
+	0x7FA,
+	0x7FB,
+	0x800,
+	0x816,
+	0x81A,
+	0x81B,
+	0x824,
+	0x825,
+	0x828,
+	0x829,
+	0x840,
+	0x859,
+	0x8A0,
+	0x8B5,
+	0x904,
+	0x93A,
+	0x93D,
+	0x93E,
+	0x950,
+	0x951,
+	0x958,
+	0x962,
+	0x971,
+	0x981,
+	0x985,
+	0x98D,
+	0x98F,
+	0x991,
+	0x993,
+	0x9A9,
+	0x9AA,
+	0x9B1,
+	0x9B2,
+	0x9B3,
+	0x9B6,
+	0x9BA,
+	0x9BD,
+	0x9BE,
+	0x9CE,
+	0x9CF,
+	0x9DC,
+	0x9DE,
+	0x9DF,
+	0x9E2,
+	0x9F0,
+	0x9F2,
+	0xA05,
+	0xA0B,
+	0xA0F,
+	0xA11,
+	0xA13,
+	0xA29,
+	0xA2A,
+	0xA31,
+	0xA32,
+	0xA34,
+	0xA35,
+	0xA37,
+	0xA38,
+	0xA3A,
+	0xA59,
+	0xA5D,
+	0xA5E,
+	0xA5F,
+	0xA72,
+	0xA75,
+	0xA85,
+	0xA8E,
+	0xA8F,
+	0xA92,
+	0xA93,
+	0xAA9,
+	0xAAA,
+	0xAB1,
+	0xAB2,
+	0xAB4,
+	0xAB5,
+	0xABA,
+	0xABD,
+	0xABE,
+	0xAD0,
+	0xAD1,
+	0xAE0,
+	0xAE2,
+	0xAF9,
+	0xAFA,
+	0xB05,
+	0xB0D,
+	0xB0F,
+	0xB11,
+	0xB13,
+	0xB29,
+	0xB2A,
+	0xB31,
+	0xB32,
+	0xB34,
+	0xB35,
+	0xB3A,
+	0xB3D,
+	0xB3E,
+	0xB5C,
+	0xB5E,
+	0xB5F,
+	0xB62,
+	0xB71,
+	0xB72,
+	0xB83,
+	0xB84,
+	0xB85,
+	0xB8B,
+	0xB8E,
+	0xB91,
+	0xB92,
+	0xB96,
+	0xB99,
+	0xB9B,
+	0xB9C,
+	0xB9D,
+	0xB9E,
+	0xBA0,
+	0xBA3,
+	0xBA5,
+	0xBA8,
+	0xBAB,
+	0xBAE,
+	0xBBA,
+	0xBD0,
+	0xBD1,
+	0xC05,
+	0xC0D,
+	0xC0E,
+	0xC11,
+	0xC12,
+	0xC29,
+	0xC2A,
+	0xC3A,
+	0xC3D,
+	0xC3E,
+	0xC58,
+	0xC5B,
+	0xC60,
+	0xC62,
+	0xC85,
+	0xC8D,
+	0xC8E,
+	0xC91,
+	0xC92,
+	0xCA9,
+	0xCAA,
+	0xCB4,
+	0xCB5,
+	0xCBA,
+	0xCBD,
+	0xCBE,
+	0xCDE,
+	0xCDF,
+	0xCE0,
+	0xCE2,
+	0xCF1,
+	0xCF3,
+	0xD05,
+	0xD0D,
+	0xD0E,
+	0xD11,
+	0xD12,
+	0xD3B,
+	0xD3D,
+	0xD3E,
+	0xD4E,
+	0xD4F,
+	0xD5F,
+	0xD62,
+	0xD7A,
+	0xD80,
+	0xD85,
+	0xD97,
+	0xD9A,
+	0xDB2,
+	0xDB3,
+	0xDBC,
+	0xDBD,
+	0xDBE,
+	0xDC0,
+	0xDC7,
+	0xE01,
+	0xE31,
+	0xE32,
+	0xE33,
+	0xE40,
+	0xE47,
+	0xE81,
+	0xE83,
+	0xE84,
+	0xE85,
+	0xE87,
+	0xE89,
+	0xE8A,
+	0xE8B,
+	0xE8D,
+	0xE8E,
+	0xE94,
+	0xE98,
+	0xE99,
+	0xEA0,
+	0xEA1,
+	0xEA4,
+	0xEA5,
+	0xEA6,
+	0xEA7,
+	0xEA8,
+	0xEAA,
+	0xEAC,
+	0xEAD,
+	0xEB1,
+	0xEB2,
+	0xEB3,
+	0xEBD,
+	0xEBE,
+	0xEC0,
+	0xEC5,
+	0xEC6,
+	0xEC7,
+	0xEDC,
+	0xEE0,
+	0xF00,
+	0xF01,
+	0xF40,
+	0xF48,
+	0xF49,
+	0xF6D,
+	0xF88,
+	0xF8D,
+	0x1000,
+	0x102B,
+	0x103F,
+	0x1040,
+	0x1050,
+	0x1056,
+	0x105A,
+	0x105E,
+	0x1061,
+	0x1062,
+	0x1065,
+	0x1067,
+	0x106E,
+	0x1071,
+	0x1075,
+	0x1082,
+	0x108E,
+	0x108F,
+	0x10A0,
+	0x10C6,
+	0x10C7,
+	0x10C8,
+	0x10CD,
+	0x10CE,
+	0x10D0,
+	0x10FB,
+	0x10FC,
+	0x1249,
+	0x124A,
+	0x124E,
+	0x1250,
+	0x1257,
+	0x1258,
+	0x1259,
+	0x125A,
+	0x125E,
+	0x1260,
+	0x1289,
+	0x128A,
+	0x128E,
+	0x1290,
+	0x12B1,
+	0x12B2,
+	0x12B6,
+	0x12B8,
+	0x12BF,
+	0x12C0,
+	0x12C1,
+	0x12C2,
+	0x12C6,
+	0x12C8,
+	0x12D7,
+	0x12D8,
+	0x1311,
+	0x1312,
+	0x1316,
+	0x1318,
+	0x135B,
+	0x1380,
+	0x1390,
+	0x13A0,
+	0x13F6,
+	0x13F8,
+	0x13FE,
+	0x1401,
+	0x166D,
+	0x166F,
+	0x1680,
+	0x1681,
+	0x169B,
+	0x16A0,
+	0x16EB,
+	0x16EE,
+	0x16F9,
+	0x1700,
+	0x170D,
+	0x170E,
+	0x1712,
+	0x1720,
+	0x1732,
+	0x1740,
+	0x1752,
+	0x1760,
+	0x176D,
+	0x176E,
+	0x1771,
+	0x1780,
+	0x17B4,
+	0x17D7,
+	0x17D8,
+	0x17DC,
+	0x17DD,
+	0x1820,
+	0x1878,
+	0x1880,
+	0x18A9,
+	0x18AA,
+	0x18AB,
+	0x18B0,
+	0x18F6,
+	0x1900,
+	0x191F,
+	0x1950,
+	0x196E,
+	0x1970,
+	0x1975,
+	0x1980,
+	0x19AC,
+	0x19B0,
+	0x19CA,
+	0x1A00,
+	0x1A17,
+	0x1A20,
+	0x1A55,
+	0x1AA7,
+	0x1AA8,
+	0x1B05,
+	0x1B34,
+	0x1B45,
+	0x1B4C,
+	0x1B83,
+	0x1BA1,
+	0x1BAE,
+	0x1BB0,
+	0x1BBA,
+	0x1BE6,
+	0x1C00,
+	0x1C24,
+	0x1C4D,
+	0x1C50,
+	0x1C5A,
+	0x1C7E,
+	0x1CE9,
+	0x1CED,
+	0x1CEE,
+	0x1CF2,
+	0x1CF5,
+	0x1CF7,
+	0x1D00,
+	0x1DC0,
+	0x1E00,
+	0x1F16,
+	0x1F18,
+	0x1F1E,
+	0x1F20,
+	0x1F46,
+	0x1F48,
+	0x1F4E,
+	0x1F50,
+	0x1F58,
+	0x1F59,
+	0x1F5A,
+	0x1F5B,
+	0x1F5C,
+	0x1F5D,
+	0x1F5E,
+	0x1F5F,
+	0x1F7E,
+	0x1F80,
+	0x1FB5,
+	0x1FB6,
+	0x1FBD,
+	0x1FBE,
+	0x1FBF,
+	0x1FC2,
+	0x1FC5,
+	0x1FC6,
+	0x1FCD,
+	0x1FD0,
+	0x1FD4,
+	0x1FD6,
+	0x1FDC,
+	0x1FE0,
+	0x1FED,
+	0x1FF2,
+	0x1FF5,
+	0x1FF6,
+	0x1FFD,
+	0x2071,
+	0x2072,
+	0x207F,
+	0x2080,
+	0x2090,
+	0x209D,
+	0x2102,
+	0x2103,
+	0x2107,
+	0x2108,
+	0x210A,
+	0x2114,
+	0x2115,
+	0x2116,
+	0x2119,
+	0x211E,
+	0x2124,
+	0x2125,
+	0x2126,
+	0x2127,
+	0x2128,
+	0x2129,
+	0x212A,
+	0x212E,
+	0x212F,
+	0x213A,
+	0x213C,
+	0x2140,
+	0x2145,
+	0x214A,
+	0x214E,
+	0x214F,
+	0x2160,
+	0x2189,
+	0x2C00,
+	0x2C2F,
+	0x2C30,
+	0x2C5F,
+	0x2C60,
+	0x2CE5,
+	0x2CEB,
+	0x2CEF,
+	0x2CF2,
+	0x2CF4,
+	0x2D00,
+	0x2D26,
+	0x2D27,
+	0x2D28,
+	0x2D2D,
+	0x2D2E,
+	0x2D30,
+	0x2D68,
+	0x2D6F,
+	0x2D70,
+	0x2D80,
+	0x2D97,
+	0x2DA0,
+	0x2DA7,
+	0x2DA8,
+	0x2DAF,
+	0x2DB0,
+	0x2DB7,
+	0x2DB8,
+	0x2DBF,
+	0x2DC0,
+	0x2DC7,
+	0x2DC8,
+	0x2DCF,
+	0x2DD0,
+	0x2DD7,
+	0x2DD8,
+	0x2DDF,
+	0x3005,
+	0x3008,
+	0x3021,
+	0x302A,
+	0x3031,
+	0x3036,
+	0x3038,
+	0x303D,
+	0x3041,
+	0x3097,
+	0x309D,
+	0x30A0,
+	0x30A1,
+	0x30FB,
+	0x30FC,
+	0x3100,
+	0x3105,
+	0x312E,
+	0x3131,
+	0x318F,
+	0x31A0,
+	0x31BB,
+	0x31F0,
+	0x3200,
+	0x3400,
+	0x4DB6,
+	0x4E00,
+	0x9FD6,
+	0xA000,
+	0xA48D,
+	0xA4D0,
+	0xA4FE,
+	0xA500,
+	0xA60D,
+	0xA610,
+	0xA620,
+	0xA62A,
+	0xA62C,
+	0xA640,
+	0xA66F,
+	0xA67F,
+	0xA69E,
+	0xA6A0,
+	0xA6F0,
+	0xA717,
+	0xA720,
+	0xA722,
+	0xA789,
+	0xA78B,
+	0xA7AE,
+	0xA7B0,
+	0xA7B8,
+	0xA7F7,
+	0xA802,
+	0xA803,
+	0xA806,
+	0xA807,
+	0xA80B,
+	0xA80C,
+	0xA823,
+	0xA840,
+	0xA874,
+	0xA882,
+	0xA8B4,
+	0xA8F2,
+	0xA8F8,
+	0xA8FB,
+	0xA8FC,
+	0xA8FD,
+	0xA8FE,
+	0xA90A,
+	0xA926,
+	0xA930,
+	0xA947,
+	0xA960,
+	0xA97D,
+	0xA984,
+	0xA9B3,
+	0xA9CF,
+	0xA9D0,
+	0xA9E0,
+	0xA9E5,
+	0xA9E6,
+	0xA9F0,
+	0xA9FA,
+	0xA9FF,
+	0xAA00,
+	0xAA29,
+	0xAA40,
+	0xAA43,
+	0xAA44,
+	0xAA4C,
+	0xAA60,
+	0xAA77,
+	0xAA7A,
+	0xAA7B,
+	0xAA7E,
+	0xAAB0,
+	0xAAB1,
+	0xAAB2,
+	0xAAB5,
+	0xAAB7,
+	0xAAB9,
+	0xAABE,
+	0xAAC0,
+	0xAAC1,
+	0xAAC2,
+	0xAAC3,
+	0xAADB,
+	0xAADE,
+	0xAAE0,
+	0xAAEB,
+	0xAAF2,
+	0xAAF5,
+	0xAB01,
+	0xAB07,
+	0xAB09,
+	0xAB0F,
+	0xAB11,
+	0xAB17,
+	0xAB20,
+	0xAB27,
+	0xAB28,
+	0xAB2F,
+	0xAB30,
+	0xAB5B,
+	0xAB5C,
+	0xAB66,
+	0xAB70,
+	0xABE3,
+	0xAC00,
+	0xD7A4,
+	0xD7B0,
+	0xD7C7,
+	0xD7CB,
+	0xD7FC,
+	0xF900,
+	0xFA6E,
+	0xFA70,
+	0xFADA,
+	0xFB00,
+	0xFB07,
+	0xFB13,
+	0xFB18,
+	0xFB1D,
+	0xFB1E,
+	0xFB1F,
+	0xFB29,
+	0xFB2A,
+	0xFB37,
+	0xFB38,
+	0xFB3D,
+	0xFB3E,
+	0xFB3F,
+	0xFB40,
+	0xFB42,
+	0xFB43,
+	0xFB45,
+	0xFB46,
+	0xFBB2,
+	0xFBD3,
+	0xFC5E,
+	0xFC64,
+	0xFD3E,
+	0xFD50,
+	0xFD90,
+	0xFD92,
+	0xFDC8,
+	0xFDF0,
+	0xFDFA,
+	0xFE71,
+	0xFE72,
+	0xFE73,
+	0xFE74,
+	0xFE77,
+	0xFE78,
+	0xFE79,
+	0xFE7A,
+	0xFE7B,
+	0xFE7C,
+	0xFE7D,
+	0xFE7E,
+	0xFE7F,
+	0xFEFD,
+	0xFF21,
+	0xFF3B,
+	0xFF41,
+	0xFF5B,
+	0xFF66,
+	0xFF9E,
+	0xFFA0,
+	0xFFBF,
+	0xFFC2,
+	0xFFC8,
+	0xFFCA,
+	0xFFD0,
+	0xFFD2,
+	0xFFD8,
+	0xFFDA,
+	0xFFDD,
+	0x10000,
+	0x1000C,
+	0x1000D,
+	0x10027,
+	0x10028,
+	0x1003B,
+	0x1003C,
+	0x1003E,
+	0x1003F,
+	0x1004E,
+	0x10050,
+	0x1005E,
+	0x10080,
+	0x100FB,
+	0x10140,
+	0x10175,
+	0x10280,
+	0x1029D,
+	0x102A0,
+	0x102D1,
+	0x10300,
+	0x10320,
+	0x10330,
+	0x1034B,
+	0x10350,
+	0x10376,
+	0x10380,
+	0x1039E,
+	0x103A0,
+	0x103C4,
+	0x103C8,
+	0x103D0,
+	0x103D1,
+	0x103D6,
+	0x10400,
+	0x1049E,
+	0x10500,
+	0x10528,
+	0x10530,
+	0x10564,
+	0x10600,
+	0x10737,
+	0x10740,
+	0x10756,
+	0x10760,
+	0x10768,
+	0x10800,
+	0x10806,
+	0x10808,
+	0x10809,
+	0x1080A,
+	0x10836,
+	0x10837,
+	0x10839,
+	0x1083C,
+	0x1083D,
+	0x1083F,
+	0x10856,
+	0x10860,
+	0x10877,
+	0x10880,
+	0x1089F,
+	0x108E0,
+	0x108F3,
+	0x108F4,
+	0x108F6,
+	0x10900,
+	0x10916,
+	0x10920,
+	0x1093A,
+	0x10980,
+	0x109B8,
+	0x109BE,
+	0x109C0,
+	0x10A00,
+	0x10A01,
+	0x10A10,
+	0x10A14,
+	0x10A15,
+	0x10A18,
+	0x10A19,
+	0x10A34,
+	0x10A60,
+	0x10A7D,
+	0x10A80,
+	0x10A9D,
+	0x10AC0,
+	0x10AC8,
+	0x10AC9,
+	0x10AE5,
+	0x10B00,
+	0x10B36,
+	0x10B40,
+	0x10B56,
+	0x10B60,
+	0x10B73,
+	0x10B80,
+	0x10B92,
+	0x10C00,
+	0x10C49,
+	0x10C80,
+	0x10CB3,
+	0x10CC0,
+	0x10CF3,
+	0x11003,
+	0x11038,
+	0x11083,
+	0x110B0,
+	0x110D0,
+	0x110E9,
+	0x11103,
+	0x11127,
+	0x11150,
+	0x11173,
+	0x11176,
+	0x11177,
+	0x11183,
+	0x111B3,
+	0x111C1,
+	0x111C5,
+	0x111DA,
+	0x111DB,
+	0x111DC,
+	0x111DD,
+	0x11200,
+	0x11212,
+	0x11213,
+	0x1122C,
+	0x11280,
+	0x11287,
+	0x11288,
+	0x11289,
+	0x1128A,
+	0x1128E,
+	0x1128F,
+	0x1129E,
+	0x1129F,
+	0x112A9,
+	0x112B0,
+	0x112DF,
+	0x11305,
+	0x1130D,
+	0x1130F,
+	0x11311,
+	0x11313,
+	0x11329,
+	0x1132A,
+	0x11331,
+	0x11332,
+	0x11334,
+	0x11335,
+	0x1133A,
+	0x1133D,
+	0x1133E,
+	0x11350,
+	0x11351,
+	0x1135D,
+	0x11362,
+	0x11480,
+	0x114B0,
+	0x114C4,
+	0x114C6,
+	0x114C7,
+	0x114C8,
+	0x11580,
+	0x115AF,
+	0x115D8,
+	0x115DC,
+	0x11600,
+	0x11630,
+	0x11644,
+	0x11645,
+	0x11680,
+	0x116AB,
+	0x11700,
+	0x1171A,
+	0x118A0,
+	0x118E0,
+	0x118FF,
+	0x11900,
+	0x11AC0,
+	0x11AF9,
+	0x12000,
+	0x1239A,
+	0x12400,
+	0x1246F,
+	0x12480,
+	0x12544,
+	0x13000,
+	0x1342F,
+	0x14400,
+	0x14647,
+	0x16800,
+	0x16A39,
+	0x16A40,
+	0x16A5F,
+	0x16AD0,
+	0x16AEE,
+	0x16B00,
+	0x16B30,
+	0x16B40,
+	0x16B44,
+	0x16B63,
+	0x16B78,
+	0x16B7D,
+	0x16B90,
+	0x16F00,
+	0x16F45,
+	0x16F50,
+	0x16F51,
+	0x16F93,
+	0x16FA0,
+	0x1B000,
+	0x1B002,
+	0x1BC00,
+	0x1BC6B,
+	0x1BC70,
+	0x1BC7D,
+	0x1BC80,
+	0x1BC89,
+	0x1BC90,
+	0x1BC9A,
+	0x1D400,
+	0x1D455,
+	0x1D456,
+	0x1D49D,
+	0x1D49E,
+	0x1D4A0,
+	0x1D4A2,
+	0x1D4A3,
+	0x1D4A5,
+	0x1D4A7,
+	0x1D4A9,
+	0x1D4AD,
+	0x1D4AE,
+	0x1D4BA,
+	0x1D4BB,
+	0x1D4BC,
+	0x1D4BD,
+	0x1D4C4,
+	0x1D4C5,
+	0x1D506,
+	0x1D507,
+	0x1D50B,
+	0x1D50D,
+	0x1D515,
+	0x1D516,
+	0x1D51D,
+	0x1D51E,
+	0x1D53A,
+	0x1D53B,
+	0x1D53F,
+	0x1D540,
+	0x1D545,
+	0x1D546,
+	0x1D547,
+	0x1D54A,
+	0x1D551,
+	0x1D552,
+	0x1D6A6,
+	0x1D6A8,
+	0x1D6C1,
+	0x1D6C2,
+	0x1D6DB,
+	0x1D6DC,
+	0x1D6FB,
+	0x1D6FC,
+	0x1D715,
+	0x1D716,
+	0x1D735,
+	0x1D736,
+	0x1D74F,
+	0x1D750,
+	0x1D76F,
+	0x1D770,
+	0x1D789,
+	0x1D78A,
+	0x1D7A9,
+	0x1D7AA,
+	0x1D7C3,
+	0x1D7C4,
+	0x1D7CC,
+	0x1E800,
+	0x1E8C5,
+	0x1EE00,
+	0x1EE04,
+	0x1EE05,
+	0x1EE20,
+	0x1EE21,
+	0x1EE23,
+	0x1EE24,
+	0x1EE25,
+	0x1EE27,
+	0x1EE28,
+	0x1EE29,
+	0x1EE33,
+	0x1EE34,
+	0x1EE38,
+	0x1EE39,
+	0x1EE3A,
+	0x1EE3B,
+	0x1EE3C,
+	0x1EE42,
+	0x1EE43,
+	0x1EE47,
+	0x1EE48,
+	0x1EE49,
+	0x1EE4A,
+	0x1EE4B,
+	0x1EE4C,
+	0x1EE4D,
+	0x1EE50,
+	0x1EE51,
+	0x1EE53,
+	0x1EE54,
+	0x1EE55,
+	0x1EE57,
+	0x1EE58,
+	0x1EE59,
+	0x1EE5A,
+	0x1EE5B,
+	0x1EE5C,
+	0x1EE5D,
+	0x1EE5E,
+	0x1EE5F,
+	0x1EE60,
+	0x1EE61,
+	0x1EE63,
+	0x1EE64,
+	0x1EE65,
+	0x1EE67,
+	0x1EE6B,
+	0x1EE6C,
+	0x1EE73,
+	0x1EE74,
+	0x1EE78,
+	0x1EE79,
+	0x1EE7D,
+	0x1EE7E,
+	0x1EE7F,
+	0x1EE80,
+	0x1EE8A,
+	0x1EE8B,
+	0x1EE9C,
+	0x1EEA1,
+	0x1EEA4,
+	0x1EEA5,
+	0x1EEAA,
+	0x1EEAB,
+	0x1EEBC,
+	0x20000,
+	0x2A6D7,
+	0x2A700,
+	0x2B735,
+	0x2B740,
+	0x2B81E,
+	0x2B820,
+	0x2CEA2,
+	0x2F800,
+	0x2FA1E
+};
+
+#endif	/* defined(PERL_IN_UTF8_C) */
+
+#if defined(PERL_IN_PERL_C)
+
+static const UV _Perl_LB_invlist[] = { /* for EBCDIC 1047 */
+	2168,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	0,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x5,
+	0x6,
+	0xB,
+	0xD,
+	0xE,
+	0x15,
+	0x16,
+	0x25,
+	0x26,
+	0x40,
+	0x41,
+	0x42,
+	0x4A,
+	0x4B,
+	0x4C,
+	0x4D,
+	0x4E,
+	0x4F,
+	0x50,
+	0x5A,
+	0x5B,
+	0x5C,
+	0x5D,
+	0x5E,
+	0x5F,
+	0x60,
+	0x61,
+	0x62,
+	0x6B,
+	0x6C,
+	0x6D,
+	0x6F,
+	0x70,
+	0x7A,
+	0x7B,
+	0x7D,
+	0x7E,
+	0x7F,
+	0x80,
+	0x8A,
+	0x8C,
+	0x8F,
+	0x90,
+	0x91,
+	0x9F,
+	0xA0,
+	0xAA,
+	0xAC,
+	0xAD,
+	0xAE,
+	0xB1,
+	0xB3,
+	0xBD,
+	0xBE,
+	0xBF,
+	0xC0,
+	0xC1,
+	0xCA,
+	0xCB,
+	0xD0,
+	0xD1,
+	0xE0,
+	0xE1,
+	0xF0,
+	0xFA,
+	0xFF,
+	0x100,
+	0x2C8,
+	0x2C9,
+	0x2CC,
+	0x2CD,
+	0x2DF,
+	0x2E0,
+	0x300,
+	0x34F,
+	0x350,
+	0x35C,
+	0x363,
+	0x370,
+	0x37E,
+	0x37F,
+	0x483,
+	0x48A,
+	0x589,
+	0x58A,
+	0x58B,
+	0x58F,
+	0x590,
+	0x591,
+	0x5BE,
+	0x5BF,
+	0x5C0,
+	0x5C1,
+	0x5C3,
+	0x5C4,
+	0x5C6,
+	0x5C7,
+	0x5C8,
+	0x5D0,
+	0x5EB,
+	0x5F0,
+	0x5F3,
+	0x609,
+	0x60C,
+	0x60E,
+	0x610,
+	0x61B,
+	0x61C,
+	0x61D,
+	0x61E,
+	0x620,
+	0x64B,
+	0x660,
+	0x66A,
+	0x66B,
+	0x66D,
+	0x670,
+	0x671,
+	0x6D4,
+	0x6D5,
+	0x6D6,
+	0x6DD,
+	0x6DF,
+	0x6E5,
+	0x6E7,
+	0x6E9,
+	0x6EA,
+	0x6EE,
+	0x6F0,
+	0x6FA,
+	0x711,
+	0x712,
+	0x730,
+	0x74B,
+	0x7A6,
+	0x7B1,
+	0x7C0,
+	0x7CA,
+	0x7EB,
+	0x7F4,
+	0x7F8,
+	0x7F9,
+	0x7FA,
+	0x816,
+	0x81A,
+	0x81B,
+	0x824,
+	0x825,
+	0x828,
+	0x829,
+	0x82E,
+	0x859,
+	0x85C,
+	0x8E3,
+	0x904,
+	0x93A,
+	0x93D,
+	0x93E,
+	0x950,
+	0x951,
+	0x958,
+	0x962,
+	0x964,
+	0x966,
+	0x970,
+	0x981,
+	0x984,
+	0x9BC,
+	0x9BD,
+	0x9BE,
+	0x9C5,
+	0x9C7,
+	0x9C9,
+	0x9CB,
+	0x9CE,
+	0x9D7,
+	0x9D8,
+	0x9E2,
+	0x9E4,
+	0x9E6,
+	0x9F0,
+	0x9F2,
+	0x9F4,
+	0x9F9,
+	0x9FA,
+	0x9FB,
+	0x9FC,
+	0xA01,
+	0xA04,
+	0xA3C,
+	0xA3D,
+	0xA3E,
+	0xA43,
+	0xA47,
+	0xA49,
+	0xA4B,
+	0xA4E,
+	0xA51,
+	0xA52,
+	0xA66,
+	0xA70,
+	0xA72,
+	0xA75,
+	0xA76,
+	0xA81,
+	0xA84,
+	0xABC,
+	0xABD,
+	0xABE,
+	0xAC6,
+	0xAC7,
+	0xACA,
+	0xACB,
+	0xACE,
+	0xAE2,
+	0xAE4,
+	0xAE6,
+	0xAF0,
+	0xAF1,
+	0xAF2,
+	0xB01,
+	0xB04,
+	0xB3C,
+	0xB3D,
+	0xB3E,
+	0xB45,
+	0xB47,
+	0xB49,
+	0xB4B,
+	0xB4E,
+	0xB56,
+	0xB58,
+	0xB62,
+	0xB64,
+	0xB66,
+	0xB70,
+	0xB82,
+	0xB83,
+	0xBBE,
+	0xBC3,
+	0xBC6,
+	0xBC9,
+	0xBCA,
+	0xBCE,
+	0xBD7,
+	0xBD8,
+	0xBE6,
+	0xBF0,
+	0xBF9,
+	0xBFA,
+	0xC00,
+	0xC04,
+	0xC3E,
+	0xC45,
+	0xC46,
+	0xC49,
+	0xC4A,
+	0xC4E,
+	0xC55,
+	0xC57,
+	0xC62,
+	0xC64,
+	0xC66,
+	0xC70,
+	0xC81,
+	0xC84,
+	0xCBC,
+	0xCBD,
+	0xCBE,
+	0xCC5,
+	0xCC6,
+	0xCC9,
+	0xCCA,
+	0xCCE,
+	0xCD5,
+	0xCD7,
+	0xCE2,
+	0xCE4,
+	0xCE6,
+	0xCF0,
+	0xD01,
+	0xD04,
+	0xD3E,
+	0xD45,
+	0xD46,
+	0xD49,
+	0xD4A,
+	0xD4E,
+	0xD57,
+	0xD58,
+	0xD62,
+	0xD64,
+	0xD66,
+	0xD70,
+	0xD79,
+	0xD7A,
+	0xD82,
+	0xD84,
+	0xDCA,
+	0xDCB,
+	0xDCF,
+	0xDD5,
+	0xDD6,
+	0xDD7,
+	0xDD8,
+	0xDE0,
+	0xDE6,
+	0xDF0,
+	0xDF2,
+	0xDF4,
+	0xE31,
+	0xE32,
+	0xE34,
+	0xE3B,
+	0xE3F,
+	0xE40,
+	0xE47,
+	0xE4F,
+	0xE50,
+	0xE5A,
+	0xE5C,
+	0xEB1,
+	0xEB2,
+	0xEB4,
+	0xEBA,
+	0xEBB,
+	0xEBD,
+	0xEC8,
+	0xECE,
+	0xED0,
+	0xEDA,
+	0xF01,
+	0xF05,
+	0xF06,
+	0xF08,
+	0xF09,
+	0xF0B,
+	0xF0C,
+	0xF0D,
+	0xF12,
+	0xF13,
+	0xF14,
+	0xF15,
+	0xF18,
+	0xF1A,
+	0xF20,
+	0xF2A,
+	0xF34,
+	0xF35,
+	0xF36,
+	0xF37,
+	0xF38,
+	0xF39,
+	0xF3A,
+	0xF3B,
+	0xF3C,
+	0xF3D,
+	0xF3E,
+	0xF40,
+	0xF71,
+	0xF7F,
+	0xF80,
+	0xF85,
+	0xF86,
+	0xF88,
+	0xF8D,
+	0xF98,
+	0xF99,
+	0xFBD,
+	0xFBE,
+	0xFC0,
+	0xFC6,
+	0xFC7,
+	0xFD0,
+	0xFD2,
+	0xFD3,
+	0xFD4,
+	0xFD9,
+	0xFDB,
+	0x102B,
+	0x103F,
+	0x1040,
+	0x104A,
+	0x104C,
+	0x1056,
+	0x105A,
+	0x105E,
+	0x1061,
+	0x1062,
+	0x1065,
+	0x1067,
+	0x106E,
+	0x1071,
+	0x1075,
+	0x1082,
+	0x108E,
+	0x108F,
+	0x1090,
+	0x109A,
+	0x109E,
+	0x1100,
+	0x1160,
+	0x11A8,
+	0x1200,
+	0x135D,
+	0x1360,
+	0x1361,
+	0x1362,
+	0x1400,
+	0x1401,
+	0x1680,
+	0x1681,
+	0x169B,
+	0x169C,
+	0x169D,
+	0x16EB,
+	0x16EE,
+	0x1712,
+	0x1715,
+	0x1732,
+	0x1735,
+	0x1737,
+	0x1752,
+	0x1754,
+	0x1772,
+	0x1774,
+	0x17B4,
+	0x17D4,
+	0x17D6,
+	0x17D7,
+	0x17D8,
+	0x17D9,
+	0x17DA,
+	0x17DB,
+	0x17DC,
+	0x17DD,
+	0x17DE,
+	0x17E0,
+	0x17EA,
+	0x1802,
+	0x1804,
+	0x1806,
+	0x1807,
+	0x1808,
+	0x180A,
+	0x180B,
+	0x180E,
+	0x180F,
+	0x1810,
+	0x181A,
+	0x18A9,
+	0x18AA,
+	0x1920,
+	0x192C,
+	0x1930,
+	0x193C,
+	0x1944,
+	0x1946,
+	0x1950,
+	0x19D0,
+	0x19DA,
+	0x1A17,
+	0x1A1C,
+	0x1A55,
+	0x1A5F,
+	0x1A60,
+	0x1A7D,
+	0x1A7F,
+	0x1A80,
+	0x1A8A,
+	0x1A90,
+	0x1A9A,
+	0x1AB0,
+	0x1ABF,
+	0x1B00,
+	0x1B05,
+	0x1B34,
+	0x1B45,
+	0x1B50,
+	0x1B5A,
+	0x1B5C,
+	0x1B5D,
+	0x1B61,
+	0x1B6B,
+	0x1B74,
+	0x1B80,
+	0x1B83,
+	0x1BA1,
+	0x1BAE,
+	0x1BB0,
+	0x1BBA,
+	0x1BE6,
+	0x1BF4,
+	0x1C24,
+	0x1C38,
+	0x1C3B,
+	0x1C40,
+	0x1C4A,
+	0x1C50,
+	0x1C5A,
+	0x1C7E,
+	0x1C80,
+	0x1CD0,
+	0x1CD3,
+	0x1CD4,
+	0x1CE9,
+	0x1CED,
+	0x1CEE,
+	0x1CF2,
+	0x1CF5,
+	0x1CF8,
+	0x1CFA,
+	0x1DC0,
+	0x1DF6,
+	0x1DFC,
+	0x1E00,
+	0x1FFD,
+	0x1FFE,
+	0x2000,
+	0x2007,
+	0x2008,
+	0x200B,
+	0x200C,
+	0x2010,
+	0x2011,
+	0x2012,
+	0x2014,
+	0x2015,
+	0x2018,
+	0x201A,
+	0x201B,
+	0x201E,
+	0x201F,
+	0x2020,
+	0x2024,
+	0x2027,
+	0x2028,
+	0x202A,
+	0x202F,
+	0x2030,
+	0x2038,
+	0x2039,
+	0x203B,
+	0x203C,
+	0x203E,
+	0x2044,
+	0x2045,
+	0x2046,
+	0x2047,
+	0x204A,
+	0x2056,
+	0x2057,
+	0x2058,
+	0x205C,
+	0x205D,
+	0x2060,
+	0x2061,
+	0x2066,
+	0x2070,
+	0x207D,
+	0x207E,
+	0x207F,
+	0x208D,
+	0x208E,
+	0x208F,
+	0x20A0,
+	0x20A7,
+	0x20A8,
+	0x20B6,
+	0x20B7,
+	0x20BB,
+	0x20BC,
+	0x20BE,
+	0x20BF,
+	0x20D0,
+	0x20F1,
+	0x2103,
+	0x2104,
+	0x2109,
+	0x210A,
+	0x2116,
+	0x2117,
+	0x2212,
+	0x2214,
+	0x22EF,
+	0x22F0,
+	0x2308,
+	0x2309,
+	0x230A,
+	0x230B,
+	0x230C,
+	0x231A,
+	0x231C,
+	0x2329,
+	0x232A,
+	0x232B,
+	0x23F0,
+	0x23F4,
+	0x2600,
+	0x2604,
+	0x2614,
+	0x2616,
+	0x2618,
+	0x2619,
+	0x261A,
+	0x2620,
+	0x2639,
+	0x263C,
+	0x2668,
+	0x2669,
+	0x267F,
+	0x2680,
+	0x26BD,
+	0x26C9,
+	0x26CD,
+	0x26CE,
+	0x26CF,
+	0x26D2,
+	0x26D3,
+	0x26D5,
+	0x26D8,
+	0x26DA,
+	0x26DC,
+	0x26DD,
+	0x26DF,
+	0x26E2,
+	0x26EA,
+	0x26EB,
+	0x26F1,
+	0x26F6,
+	0x26F7,
+	0x26FB,
+	0x26FD,
+	0x2705,
+	0x2708,
+	0x270E,
+	0x275B,
+	0x2761,
+	0x2762,
+	0x2764,
+	0x2768,
+	0x2769,
+	0x276A,
+	0x276B,
+	0x276C,
+	0x276D,
+	0x276E,
+	0x276F,
+	0x2770,
+	0x2771,
+	0x2772,
+	0x2773,
+	0x2774,
+	0x2775,
+	0x2776,
+	0x27C5,
+	0x27C6,
+	0x27C7,
+	0x27E6,
+	0x27E7,
+	0x27E8,
+	0x27E9,
+	0x27EA,
+	0x27EB,
+	0x27EC,
+	0x27ED,
+	0x27EE,
+	0x27EF,
+	0x27F0,
+	0x2983,
+	0x2984,
+	0x2985,
+	0x2986,
+	0x2987,
+	0x2988,
+	0x2989,
+	0x298A,
+	0x298B,
+	0x298C,
+	0x298D,
+	0x298E,
+	0x298F,
+	0x2990,
+	0x2991,
+	0x2992,
+	0x2993,
+	0x2994,
+	0x2995,
+	0x2996,
+	0x2997,
+	0x2998,
+	0x2999,
+	0x29D8,
+	0x29D9,
+	0x29DA,
+	0x29DB,
+	0x29DC,
+	0x29FC,
+	0x29FD,
+	0x29FE,
+	0x2CEF,
+	0x2CF2,
+	0x2CF9,
+	0x2CFA,
+	0x2CFD,
+	0x2CFE,
+	0x2CFF,
+	0x2D00,
+	0x2D70,
+	0x2D71,
+	0x2D7F,
+	0x2D80,
+	0x2DE0,
+	0x2E00,
+	0x2E0E,
+	0x2E16,
+	0x2E17,
+	0x2E18,
+	0x2E19,
+	0x2E1A,
+	0x2E1C,
+	0x2E1E,
+	0x2E20,
+	0x2E22,
+	0x2E23,
+	0x2E24,
+	0x2E25,
+	0x2E26,
+	0x2E27,
+	0x2E28,
+	0x2E29,
+	0x2E2A,
+	0x2E2E,
+	0x2E2F,
+	0x2E30,
+	0x2E32,
+	0x2E33,
+	0x2E35,
+	0x2E3A,
+	0x2E3C,
+	0x2E3F,
+	0x2E40,
+	0x2E42,
+	0x2E43,
+	0x2E80,
+	0x2E9A,
+	0x2E9B,
+	0x2EF4,
+	0x2F00,
+	0x2FD6,
+	0x2FF0,
+	0x2FFC,
+	0x3000,
+	0x3001,
+	0x3003,
+	0x3005,
+	0x3006,
+	0x3008,
+	0x3009,
+	0x300A,
+	0x300B,
+	0x300C,
+	0x300D,
+	0x300E,
+	0x300F,
+	0x3010,
+	0x3011,
+	0x3012,
+	0x3014,
+	0x3015,
+	0x3016,
+	0x3017,
+	0x3018,
+	0x3019,
+	0x301A,
+	0x301B,
+	0x301C,
+	0x301D,
+	0x301E,
+	0x3020,
+	0x302A,
+	0x3030,
+	0x3035,
+	0x3036,
+	0x303B,
+	0x303D,
+	0x3040,
+	0x3041,
+	0x3042,
+	0x3043,
+	0x3044,
+	0x3045,
+	0x3046,
+	0x3047,
+	0x3048,
+	0x3049,
+	0x304A,
+	0x3063,
+	0x3064,
+	0x3083,
+	0x3084,
+	0x3085,
+	0x3086,
+	0x3087,
+	0x3088,
+	0x308E,
+	0x308F,
+	0x3095,
+	0x3097,
+	0x3099,
+	0x309B,
+	0x309F,
+	0x30A0,
+	0x30A2,
+	0x30A3,
+	0x30A4,
+	0x30A5,
+	0x30A6,
+	0x30A7,
+	0x30A8,
+	0x30A9,
+	0x30AA,
+	0x30C3,
+	0x30C4,
+	0x30E3,
+	0x30E4,
+	0x30E5,
+	0x30E6,
+	0x30E7,
+	0x30E8,
+	0x30EE,
+	0x30EF,
+	0x30F5,
+	0x30F7,
+	0x30FB,
+	0x30FF,
+	0x3100,
+	0x3105,
+	0x312E,
+	0x3131,
+	0x318F,
+	0x3190,
+	0x31BB,
+	0x31C0,
+	0x31E4,
+	0x31F0,
+	0x3200,
+	0x321F,
+	0x3220,
+	0x3248,
+	0x3250,
+	0x32FF,
+	0x3300,
+	0x4DC0,
+	0x4E00,
+	0xA015,
+	0xA016,
+	0xA48D,
+	0xA490,
+	0xA4C7,
+	0xA4FE,
+	0xA500,
+	0xA60D,
+	0xA60E,
+	0xA60F,
+	0xA610,
+	0xA620,
+	0xA62A,
+	0xA66F,
+	0xA673,
+	0xA674,
+	0xA67E,
+	0xA69E,
+	0xA6A0,
+	0xA6F0,
+	0xA6F2,
+	0xA6F3,
+	0xA6F8,
+	0xA802,
+	0xA803,
+	0xA806,
+	0xA807,
+	0xA80B,
+	0xA80C,
+	0xA823,
+	0xA828,
+	0xA838,
+	0xA839,
+	0xA874,
+	0xA876,
+	0xA878,
+	0xA880,
+	0xA882,
+	0xA8B4,
+	0xA8C5,
+	0xA8CE,
+	0xA8D0,
+	0xA8DA,
+	0xA8E0,
+	0xA8F2,
+	0xA8FC,
+	0xA8FD,
+	0xA900,
+	0xA90A,
+	0xA926,
+	0xA92E,
+	0xA930,
+	0xA947,
+	0xA954,
+	0xA960,
+	0xA97D,
+	0xA980,
+	0xA984,
+	0xA9B3,
+	0xA9C1,
+	0xA9C7,
+	0xA9CA,
+	0xA9D0,
+	0xA9DA,
+	0xA9E5,
+	0xA9E6,
+	0xA9F0,
+	0xA9FA,
+	0xAA29,
+	0xAA37,
+	0xAA43,
+	0xAA44,
+	0xAA4C,
+	0xAA4E,
+	0xAA50,
+	0xAA5A,
+	0xAA5D,
+	0xAA60,
+	0xAA7B,
+	0xAA7E,
+	0xAAB0,
+	0xAAB1,
+	0xAAB2,
+	0xAAB5,
+	0xAAB7,
+	0xAAB9,
+	0xAABE,
+	0xAAC0,
+	0xAAC1,
+	0xAAC2,
+	0xAAEB,
+	0xAAF0,
+	0xAAF2,
+	0xAAF5,
+	0xAAF7,
+	0xABE3,
+	0xABEB,
+	0xABEC,
+	0xABEE,
+	0xABF0,
+	0xABFA,
+	0xAC00,
+	0xAC01,
+	0xAC1C,
+	0xAC1D,
+	0xAC38,
+	0xAC39,
+	0xAC54,
+	0xAC55,
+	0xAC70,
+	0xAC71,
+	0xAC8C,
+	0xAC8D,
+	0xACA8,
+	0xACA9,
+	0xACC4,
+	0xACC5,
+	0xACE0,
+	0xACE1,
+	0xACFC,
+	0xACFD,
+	0xAD18,
+	0xAD19,
+	0xAD34,
+	0xAD35,
+	0xAD50,
+	0xAD51,
+	0xAD6C,
+	0xAD6D,
+	0xAD88,
+	0xAD89,
+	0xADA4,
+	0xADA5,
+	0xADC0,
+	0xADC1,
+	0xADDC,
+	0xADDD,
+	0xADF8,
+	0xADF9,
+	0xAE14,
+	0xAE15,
+	0xAE30,
+	0xAE31,
+	0xAE4C,
+	0xAE4D,
+	0xAE68,
+	0xAE69,
+	0xAE84,
+	0xAE85,
+	0xAEA0,
+	0xAEA1,
+	0xAEBC,
+	0xAEBD,
+	0xAED8,
+	0xAED9,
+	0xAEF4,
+	0xAEF5,
+	0xAF10,
+	0xAF11,
+	0xAF2C,
+	0xAF2D,
+	0xAF48,
+	0xAF49,
+	0xAF64,
+	0xAF65,
+	0xAF80,
+	0xAF81,
+	0xAF9C,
+	0xAF9D,
+	0xAFB8,
+	0xAFB9,
+	0xAFD4,
+	0xAFD5,
+	0xAFF0,
+	0xAFF1,
+	0xB00C,
+	0xB00D,
+	0xB028,
+	0xB029,
+	0xB044,
+	0xB045,
+	0xB060,
+	0xB061,
+	0xB07C,
+	0xB07D,
+	0xB098,
+	0xB099,
+	0xB0B4,
+	0xB0B5,
+	0xB0D0,
+	0xB0D1,
+	0xB0EC,
+	0xB0ED,
+	0xB108,
+	0xB109,
+	0xB124,
+	0xB125,
+	0xB140,
+	0xB141,
+	0xB15C,
+	0xB15D,
+	0xB178,
+	0xB179,
+	0xB194,
+	0xB195,
+	0xB1B0,
+	0xB1B1,
+	0xB1CC,
+	0xB1CD,
+	0xB1E8,
+	0xB1E9,
+	0xB204,
+	0xB205,
+	0xB220,
+	0xB221,
+	0xB23C,
+	0xB23D,
+	0xB258,
+	0xB259,
+	0xB274,
+	0xB275,
+	0xB290,
+	0xB291,
+	0xB2AC,
+	0xB2AD,
+	0xB2C8,
+	0xB2C9,
+	0xB2E4,
+	0xB2E5,
+	0xB300,
+	0xB301,
+	0xB31C,
+	0xB31D,
+	0xB338,
+	0xB339,
+	0xB354,
+	0xB355,
+	0xB370,
+	0xB371,
+	0xB38C,
+	0xB38D,
+	0xB3A8,
+	0xB3A9,
+	0xB3C4,
+	0xB3C5,
+	0xB3E0,
+	0xB3E1,
+	0xB3FC,
+	0xB3FD,
+	0xB418,
+	0xB419,
+	0xB434,
+	0xB435,
+	0xB450,
+	0xB451,
+	0xB46C,
+	0xB46D,
+	0xB488,
+	0xB489,
+	0xB4A4,
+	0xB4A5,
+	0xB4C0,
+	0xB4C1,
+	0xB4DC,
+	0xB4DD,
+	0xB4F8,
+	0xB4F9,
+	0xB514,
+	0xB515,
+	0xB530,
+	0xB531,
+	0xB54C,
+	0xB54D,
+	0xB568,
+	0xB569,
+	0xB584,
+	0xB585,
+	0xB5A0,
+	0xB5A1,
+	0xB5BC,
+	0xB5BD,
+	0xB5D8,
+	0xB5D9,
+	0xB5F4,
+	0xB5F5,
+	0xB610,
+	0xB611,
+	0xB62C,
+	0xB62D,
+	0xB648,
+	0xB649,
+	0xB664,
+	0xB665,
+	0xB680,
+	0xB681,
+	0xB69C,
+	0xB69D,
+	0xB6B8,
+	0xB6B9,
+	0xB6D4,
+	0xB6D5,
+	0xB6F0,
+	0xB6F1,
+	0xB70C,
+	0xB70D,
+	0xB728,
+	0xB729,
+	0xB744,
+	0xB745,
+	0xB760,
+	0xB761,
+	0xB77C,
+	0xB77D,
+	0xB798,
+	0xB799,
+	0xB7B4,
+	0xB7B5,
+	0xB7D0,
+	0xB7D1,
+	0xB7EC,
+	0xB7ED,
+	0xB808,
+	0xB809,
+	0xB824,
+	0xB825,
+	0xB840,
+	0xB841,
+	0xB85C,
+	0xB85D,
+	0xB878,
+	0xB879,
+	0xB894,
+	0xB895,
+	0xB8B0,
+	0xB8B1,
+	0xB8CC,
+	0xB8CD,
+	0xB8E8,
+	0xB8E9,
+	0xB904,
+	0xB905,
+	0xB920,
+	0xB921,
+	0xB93C,
+	0xB93D,
+	0xB958,
+	0xB959,
+	0xB974,
+	0xB975,
+	0xB990,
+	0xB991,
+	0xB9AC,
+	0xB9AD,
+	0xB9C8,
+	0xB9C9,
+	0xB9E4,
+	0xB9E5,
+	0xBA00,
+	0xBA01,
+	0xBA1C,
+	0xBA1D,
+	0xBA38,
+	0xBA39,
+	0xBA54,
+	0xBA55,
+	0xBA70,
+	0xBA71,
+	0xBA8C,
+	0xBA8D,
+	0xBAA8,
+	0xBAA9,
+	0xBAC4,
+	0xBAC5,
+	0xBAE0,
+	0xBAE1,
+	0xBAFC,
+	0xBAFD,
+	0xBB18,
+	0xBB19,
+	0xBB34,
+	0xBB35,
+	0xBB50,
+	0xBB51,
+	0xBB6C,
+	0xBB6D,
+	0xBB88,
+	0xBB89,
+	0xBBA4,
+	0xBBA5,
+	0xBBC0,
+	0xBBC1,
+	0xBBDC,
+	0xBBDD,
+	0xBBF8,
+	0xBBF9,
+	0xBC14,
+	0xBC15,
+	0xBC30,
+	0xBC31,
+	0xBC4C,
+	0xBC4D,
+	0xBC68,
+	0xBC69,
+	0xBC84,
+	0xBC85,
+	0xBCA0,
+	0xBCA1,
+	0xBCBC,
+	0xBCBD,
+	0xBCD8,
+	0xBCD9,
+	0xBCF4,
+	0xBCF5,
+	0xBD10,
+	0xBD11,
+	0xBD2C,
+	0xBD2D,
+	0xBD48,
+	0xBD49,
+	0xBD64,
+	0xBD65,
+	0xBD80,
+	0xBD81,
+	0xBD9C,
+	0xBD9D,
+	0xBDB8,
+	0xBDB9,
+	0xBDD4,
+	0xBDD5,
+	0xBDF0,
+	0xBDF1,
+	0xBE0C,
+	0xBE0D,
+	0xBE28,
+	0xBE29,
+	0xBE44,
+	0xBE45,
+	0xBE60,
+	0xBE61,
+	0xBE7C,
+	0xBE7D,
+	0xBE98,
+	0xBE99,
+	0xBEB4,
+	0xBEB5,
+	0xBED0,
+	0xBED1,
+	0xBEEC,
+	0xBEED,
+	0xBF08,
+	0xBF09,
+	0xBF24,
+	0xBF25,
+	0xBF40,
+	0xBF41,
+	0xBF5C,
+	0xBF5D,
+	0xBF78,
+	0xBF79,
+	0xBF94,
+	0xBF95,
+	0xBFB0,
+	0xBFB1,
+	0xBFCC,
+	0xBFCD,
+	0xBFE8,
+	0xBFE9,
+	0xC004,
+	0xC005,
+	0xC020,
+	0xC021,
+	0xC03C,
+	0xC03D,
+	0xC058,
+	0xC059,
+	0xC074,
+	0xC075,
+	0xC090,
+	0xC091,
+	0xC0AC,
+	0xC0AD,
+	0xC0C8,
+	0xC0C9,
+	0xC0E4,
+	0xC0E5,
+	0xC100,
+	0xC101,
+	0xC11C,
+	0xC11D,
+	0xC138,
+	0xC139,
+	0xC154,
+	0xC155,
+	0xC170,
+	0xC171,
+	0xC18C,
+	0xC18D,
+	0xC1A8,
+	0xC1A9,
+	0xC1C4,
+	0xC1C5,
+	0xC1E0,
+	0xC1E1,
+	0xC1FC,
+	0xC1FD,
+	0xC218,
+	0xC219,
+	0xC234,
+	0xC235,
+	0xC250,
+	0xC251,
+	0xC26C,
+	0xC26D,
+	0xC288,
+	0xC289,
+	0xC2A4,
+	0xC2A5,
+	0xC2C0,
+	0xC2C1,
+	0xC2DC,
+	0xC2DD,
+	0xC2F8,
+	0xC2F9,
+	0xC314,
+	0xC315,
+	0xC330,
+	0xC331,
+	0xC34C,
+	0xC34D,
+	0xC368,
+	0xC369,
+	0xC384,
+	0xC385,
+	0xC3A0,
+	0xC3A1,
+	0xC3BC,
+	0xC3BD,
+	0xC3D8,
+	0xC3D9,
+	0xC3F4,
+	0xC3F5,
+	0xC410,
+	0xC411,
+	0xC42C,
+	0xC42D,
+	0xC448,
+	0xC449,
+	0xC464,
+	0xC465,
+	0xC480,
+	0xC481,
+	0xC49C,
+	0xC49D,
+	0xC4B8,
+	0xC4B9,
+	0xC4D4,
+	0xC4D5,
+	0xC4F0,
+	0xC4F1,
+	0xC50C,
+	0xC50D,
+	0xC528,
+	0xC529,
+	0xC544,
+	0xC545,
+	0xC560,
+	0xC561,
+	0xC57C,
+	0xC57D,
+	0xC598,
+	0xC599,
+	0xC5B4,
+	0xC5B5,
+	0xC5D0,
+	0xC5D1,
+	0xC5EC,
+	0xC5ED,
+	0xC608,
+	0xC609,
+	0xC624,
+	0xC625,
+	0xC640,
+	0xC641,
+	0xC65C,
+	0xC65D,
+	0xC678,
+	0xC679,
+	0xC694,
+	0xC695,
+	0xC6B0,
+	0xC6B1,
+	0xC6CC,
+	0xC6CD,
+	0xC6E8,
+	0xC6E9,
+	0xC704,
+	0xC705,
+	0xC720,
+	0xC721,
+	0xC73C,
+	0xC73D,
+	0xC758,
+	0xC759,
+	0xC774,
+	0xC775,
+	0xC790,
+	0xC791,
+	0xC7AC,
+	0xC7AD,
+	0xC7C8,
+	0xC7C9,
+	0xC7E4,
+	0xC7E5,
+	0xC800,
+	0xC801,
+	0xC81C,
+	0xC81D,
+	0xC838,
+	0xC839,
+	0xC854,
+	0xC855,
+	0xC870,
+	0xC871,
+	0xC88C,
+	0xC88D,
+	0xC8A8,
+	0xC8A9,
+	0xC8C4,
+	0xC8C5,
+	0xC8E0,
+	0xC8E1,
+	0xC8FC,
+	0xC8FD,
+	0xC918,
+	0xC919,
+	0xC934,
+	0xC935,
+	0xC950,
+	0xC951,
+	0xC96C,
+	0xC96D,
+	0xC988,
+	0xC989,
+	0xC9A4,
+	0xC9A5,
+	0xC9C0,
+	0xC9C1,
+	0xC9DC,
+	0xC9DD,
+	0xC9F8,
+	0xC9F9,
+	0xCA14,
+	0xCA15,
+	0xCA30,
+	0xCA31,
+	0xCA4C,
+	0xCA4D,
+	0xCA68,
+	0xCA69,
+	0xCA84,
+	0xCA85,
+	0xCAA0,
+	0xCAA1,
+	0xCABC,
+	0xCABD,
+	0xCAD8,
+	0xCAD9,
+	0xCAF4,
+	0xCAF5,
+	0xCB10,
+	0xCB11,
+	0xCB2C,
+	0xCB2D,
+	0xCB48,
+	0xCB49,
+	0xCB64,
+	0xCB65,
+	0xCB80,
+	0xCB81,
+	0xCB9C,
+	0xCB9D,
+	0xCBB8,
+	0xCBB9,
+	0xCBD4,
+	0xCBD5,
+	0xCBF0,
+	0xCBF1,
+	0xCC0C,
+	0xCC0D,
+	0xCC28,
+	0xCC29,
+	0xCC44,
+	0xCC45,
+	0xCC60,
+	0xCC61,
+	0xCC7C,
+	0xCC7D,
+	0xCC98,
+	0xCC99,
+	0xCCB4,
+	0xCCB5,
+	0xCCD0,
+	0xCCD1,
+	0xCCEC,
+	0xCCED,
+	0xCD08,
+	0xCD09,
+	0xCD24,
+	0xCD25,
+	0xCD40,
+	0xCD41,
+	0xCD5C,
+	0xCD5D,
+	0xCD78,
+	0xCD79,
+	0xCD94,
+	0xCD95,
+	0xCDB0,
+	0xCDB1,
+	0xCDCC,
+	0xCDCD,
+	0xCDE8,
+	0xCDE9,
+	0xCE04,
+	0xCE05,
+	0xCE20,
+	0xCE21,
+	0xCE3C,
+	0xCE3D,
+	0xCE58,
+	0xCE59,
+	0xCE74,
+	0xCE75,
+	0xCE90,
+	0xCE91,
+	0xCEAC,
+	0xCEAD,
+	0xCEC8,
+	0xCEC9,
+	0xCEE4,
+	0xCEE5,
+	0xCF00,
+	0xCF01,
+	0xCF1C,
+	0xCF1D,
+	0xCF38,
+	0xCF39,
+	0xCF54,
+	0xCF55,
+	0xCF70,
+	0xCF71,
+	0xCF8C,
+	0xCF8D,
+	0xCFA8,
+	0xCFA9,
+	0xCFC4,
+	0xCFC5,
+	0xCFE0,
+	0xCFE1,
+	0xCFFC,
+	0xCFFD,
+	0xD018,
+	0xD019,
+	0xD034,
+	0xD035,
+	0xD050,
+	0xD051,
+	0xD06C,
+	0xD06D,
+	0xD088,
+	0xD089,
+	0xD0A4,
+	0xD0A5,
+	0xD0C0,
+	0xD0C1,
+	0xD0DC,
+	0xD0DD,
+	0xD0F8,
+	0xD0F9,
+	0xD114,
+	0xD115,
+	0xD130,
+	0xD131,
+	0xD14C,
+	0xD14D,
+	0xD168,
+	0xD169,
+	0xD184,
+	0xD185,
+	0xD1A0,
+	0xD1A1,
+	0xD1BC,
+	0xD1BD,
+	0xD1D8,
+	0xD1D9,
+	0xD1F4,
+	0xD1F5,
+	0xD210,
+	0xD211,
+	0xD22C,
+	0xD22D,
+	0xD248,
+	0xD249,
+	0xD264,
+	0xD265,
+	0xD280,
+	0xD281,
+	0xD29C,
+	0xD29D,
+	0xD2B8,
+	0xD2B9,
+	0xD2D4,
+	0xD2D5,
+	0xD2F0,
+	0xD2F1,
+	0xD30C,
+	0xD30D,
+	0xD328,
+	0xD329,
+	0xD344,
+	0xD345,
+	0xD360,
+	0xD361,
+	0xD37C,
+	0xD37D,
+	0xD398,
+	0xD399,
+	0xD3B4,
+	0xD3B5,
+	0xD3D0,
+	0xD3D1,
+	0xD3EC,
+	0xD3ED,
+	0xD408,
+	0xD409,
+	0xD424,
+	0xD425,
+	0xD440,
+	0xD441,
+	0xD45C,
+	0xD45D,
+	0xD478,
+	0xD479,
+	0xD494,
+	0xD495,
+	0xD4B0,
+	0xD4B1,
+	0xD4CC,
+	0xD4CD,
+	0xD4E8,
+	0xD4E9,
+	0xD504,
+	0xD505,
+	0xD520,
+	0xD521,
+	0xD53C,
+	0xD53D,
+	0xD558,
+	0xD559,
+	0xD574,
+	0xD575,
+	0xD590,
+	0xD591,
+	0xD5AC,
+	0xD5AD,
+	0xD5C8,
+	0xD5C9,
+	0xD5E4,
+	0xD5E5,
+	0xD600,
+	0xD601,
+	0xD61C,
+	0xD61D,
+	0xD638,
+	0xD639,
+	0xD654,
+	0xD655,
+	0xD670,
+	0xD671,
+	0xD68C,
+	0xD68D,
+	0xD6A8,
+	0xD6A9,
+	0xD6C4,
+	0xD6C5,
+	0xD6E0,
+	0xD6E1,
+	0xD6FC,
+	0xD6FD,
+	0xD718,
+	0xD719,
+	0xD734,
+	0xD735,
+	0xD750,
+	0xD751,
+	0xD76C,
+	0xD76D,
+	0xD788,
+	0xD789,
+	0xD7A4,
+	0xD7B0,
+	0xD7C7,
+	0xD7CB,
+	0xD7FC,
+	0xF900,
+	0xFB00,
+	0xFB1D,
+	0xFB1E,
+	0xFB1F,
+	0xFB29,
+	0xFB2A,
+	0xFB37,
+	0xFB38,
+	0xFB3D,
+	0xFB3E,
+	0xFB3F,
+	0xFB40,
+	0xFB42,
+	0xFB43,
+	0xFB45,
+	0xFB46,
+	0xFB50,
+	0xFD3E,
+	0xFD3F,
+	0xFD40,
+	0xFDFC,
+	0xFDFD,
+	0xFE00,
+	0xFE10,
+	0xFE11,
+	0xFE13,
+	0xFE15,
+	0xFE17,
+	0xFE18,
+	0xFE19,
+	0xFE1A,
+	0xFE20,
+	0xFE30,
+	0xFE35,
+	0xFE36,
+	0xFE37,
+	0xFE38,
+	0xFE39,
+	0xFE3A,
+	0xFE3B,
+	0xFE3C,
+	0xFE3D,
+	0xFE3E,
+	0xFE3F,
+	0xFE40,
+	0xFE41,
+	0xFE42,
+	0xFE43,
+	0xFE44,
+	0xFE45,
+	0xFE47,
+	0xFE48,
+	0xFE49,
+	0xFE50,
+	0xFE51,
+	0xFE52,
+	0xFE53,
+	0xFE54,
+	0xFE56,
+	0xFE58,
+	0xFE59,
+	0xFE5A,
+	0xFE5B,
+	0xFE5C,
+	0xFE5D,
+	0xFE5E,
+	0xFE5F,
+	0xFE67,
+	0xFE68,
+	0xFE69,
+	0xFE6A,
+	0xFE6B,
+	0xFE6C,
+	0xFEFF,
+	0xFF00,
+	0xFF01,
+	0xFF02,
+	0xFF04,
+	0xFF05,
+	0xFF06,
+	0xFF08,
+	0xFF09,
+	0xFF0A,
+	0xFF0C,
+	0xFF0D,
+	0xFF0E,
+	0xFF0F,
+	0xFF1A,
+	0xFF1C,
+	0xFF1F,
+	0xFF20,
+	0xFF3B,
+	0xFF3C,
+	0xFF3D,
+	0xFF3E,
+	0xFF5B,
+	0xFF5C,
+	0xFF5D,
+	0xFF5E,
+	0xFF5F,
+	0xFF60,
+	0xFF62,
+	0xFF63,
+	0xFF65,
+	0xFF66,
+	0xFF67,
+	0xFF71,
+	0xFF9E,
+	0xFFA0,
+	0xFFE0,
+	0xFFE1,
+	0xFFE2,
+	0xFFE5,
+	0xFFE7,
+	0xFFF9,
+	0xFFFC,
+	0xFFFD,
+	0x10100,
+	0x10103,
+	0x101FD,
+	0x101FE,
+	0x102E0,
+	0x102E1,
+	0x10376,
+	0x1037B,
+	0x1039F,
+	0x103A0,
+	0x103D0,
+	0x103D1,
+	0x104A0,
+	0x104AA,
+	0x10857,
+	0x10858,
+	0x1091F,
+	0x10920,
+	0x10A01,
+	0x10A04,
+	0x10A05,
+	0x10A07,
+	0x10A0C,
+	0x10A10,
+	0x10A38,
+	0x10A3B,
+	0x10A3F,
+	0x10A40,
+	0x10A50,
+	0x10A58,
+	0x10AE5,
+	0x10AE7,
+	0x10AF0,
+	0x10AF6,
+	0x10AF7,
+	0x10B39,
+	0x10B40,
+	0x11000,
+	0x11003,
+	0x11038,
+	0x11047,
+	0x11049,
+	0x11066,
+	0x11070,
+	0x1107F,
+	0x11083,
+	0x110B0,
+	0x110BB,
+	0x110BE,
+	0x110C2,
+	0x110F0,
+	0x110FA,
+	0x11100,
+	0x11103,
+	0x11127,
+	0x11135,
+	0x11136,
+	0x11140,
+	0x11144,
+	0x11173,
+	0x11174,
+	0x11175,
+	0x11176,
+	0x11180,
+	0x11183,
+	0x111B3,
+	0x111C1,
+	0x111C5,
+	0x111C7,
+	0x111C8,
+	0x111C9,
+	0x111CA,
+	0x111CD,
+	0x111D0,
+	0x111DA,
+	0x111DB,
+	0x111DC,
+	0x111DD,
+	0x111E0,
+	0x1122C,
+	0x11238,
+	0x1123A,
+	0x1123B,
+	0x1123D,
+	0x112A9,
+	0x112AA,
+	0x112DF,
+	0x112EB,
+	0x112F0,
+	0x112FA,
+	0x11300,
+	0x11304,
+	0x1133C,
+	0x1133D,
+	0x1133E,
+	0x11345,
+	0x11347,
+	0x11349,
+	0x1134B,
+	0x1134E,
+	0x11357,
+	0x11358,
+	0x11362,
+	0x11364,
+	0x11366,
+	0x1136D,
+	0x11370,
+	0x11375,
+	0x114B0,
+	0x114C4,
+	0x114D0,
+	0x114DA,
+	0x115AF,
+	0x115B6,
+	0x115B8,
+	0x115C1,
+	0x115C2,
+	0x115C4,
+	0x115C6,
+	0x115C9,
+	0x115D8,
+	0x115DC,
+	0x115DE,
+	0x11630,
+	0x11641,
+	0x11643,
+	0x11650,
+	0x1165A,
+	0x116AB,
+	0x116B8,
+	0x116C0,
+	0x116CA,
+	0x1171D,
+	0x1172C,
+	0x11730,
+	0x1173A,
+	0x1173C,
+	0x1173F,
+	0x118E0,
+	0x118EA,
+	0x12470,
+	0x12475,
+	0x13258,
+	0x1325B,
+	0x1325E,
+	0x13282,
+	0x13283,
+	0x13286,
+	0x13287,
+	0x13288,
+	0x13289,
+	0x1328A,
+	0x13379,
+	0x1337A,
+	0x1337C,
+	0x145CE,
+	0x145CF,
+	0x145D0,
+	0x16A60,
+	0x16A6A,
+	0x16A6E,
+	0x16A70,
+	0x16AF0,
+	0x16AF5,
+	0x16AF6,
+	0x16B30,
+	0x16B37,
+	0x16B3A,
+	0x16B44,
+	0x16B45,
+	0x16B50,
+	0x16B5A,
+	0x16F51,
+	0x16F7F,
+	0x16F8F,
+	0x16F93,
+	0x1B000,
+	0x1B002,
+	0x1BC9D,
+	0x1BC9F,
+	0x1BCA0,
+	0x1BCA4,
+	0x1D165,
+	0x1D16A,
+	0x1D16D,
+	0x1D183,
+	0x1D185,
+	0x1D18C,
+	0x1D1AA,
+	0x1D1AE,
+	0x1D242,
+	0x1D245,
+	0x1D7CE,
+	0x1D800,
+	0x1DA00,
+	0x1DA37,
+	0x1DA3B,
+	0x1DA6D,
+	0x1DA75,
+	0x1DA76,
+	0x1DA84,
+	0x1DA85,
+	0x1DA87,
+	0x1DA8B,
+	0x1DA9B,
+	0x1DAA0,
+	0x1DAA1,
+	0x1DAB0,
+	0x1E8D0,
+	0x1E8D7,
+	0x1F000,
+	0x1F02C,
+	0x1F030,
+	0x1F094,
+	0x1F0A0,
+	0x1F0AF,
+	0x1F0B1,
+	0x1F0C0,
+	0x1F0C1,
+	0x1F0D0,
+	0x1F0D1,
+	0x1F0F6,
+	0x1F1E6,
+	0x1F200,
+	0x1F203,
+	0x1F210,
+	0x1F23B,
+	0x1F240,
+	0x1F249,
+	0x1F250,
+	0x1F252,
+	0x1F300,
+	0x1F39C,
+	0x1F39E,
+	0x1F3B5,
+	0x1F3B7,
+	0x1F3BC,
+	0x1F3BD,
+	0x1F3FB,
+	0x1F400,
+	0x1F4A0,
+	0x1F4A1,
+	0x1F4A2,
+	0x1F4A3,
+	0x1F4A4,
+	0x1F4A5,
+	0x1F4AF,
+	0x1F4B0,
+	0x1F4B1,
+	0x1F4B3,
+	0x1F500,
+	0x1F507,
+	0x1F517,
+	0x1F525,
+	0x1F532,
+	0x1F54A,
+	0x1F57A,
+	0x1F57B,
+	0x1F5A4,
+	0x1F5A5,
+	0x1F5D4,
+	0x1F5DC,
+	0x1F5F4,
+	0x1F5FA,
+	0x1F650,
+	0x1F676,
+	0x1F679,
+	0x1F67C,
+	0x1F680,
+	0x1F6D1,
+	0x1F6E0,
+	0x1F6ED,
+	0x1F6F0,
+	0x1F6F4,
+	0x1F910,
+	0x1F919,
+	0x1F980,
+	0x1F985,
+	0x1F9C0,
+	0x1F9C1,
+	0x20000,
+	0x2FFFE,
+	0x30000,
+	0x3FFFE,
+	0xE0001,
+	0xE0002,
+	0xE0020,
+	0xE0080,
+	0xE0100,
+	0xE01F0
+};
+
+#endif	/* defined(PERL_IN_PERL_C) */
+
+#if defined(PERL_IN_REGEXEC_C)
+
+#define LB_ENUM_COUNT 36
+
+typedef enum {
+	LB_Alphabetic = 0,
+	LB_Break_After = 1,
+	LB_Break_Before = 2,
+	LB_Break_Both = 3,
+	LB_Break_Symbols = 4,
+	LB_Carriage_Return = 5,
+	LB_Close_Parenthesis = 6,
+	LB_Close_Punctuation = 7,
+	LB_Combining_Mark = 8,
+	LB_Contingent_Break = 9,
+	LB_Exclamation = 10,
+	LB_Glue = 11,
+	LB_H2 = 12,
+	LB_H3 = 13,
+	LB_Hebrew_Letter = 14,
+	LB_Hyphen = 15,
+	LB_Ideographic = 16,
+	LB_Infix_Numeric = 17,
+	LB_Inseparable = 18,
+	LB_JL = 19,
+	LB_JT = 20,
+	LB_JV = 21,
+	LB_Line_Feed = 22,
+	LB_Mandatory_Break = 23,
+	LB_Next_Line = 24,
+	LB_Nonstarter = 25,
+	LB_Numeric = 26,
+	LB_Open_Punctuation = 27,
+	LB_Postfix_Numeric = 28,
+	LB_Prefix_Numeric = 29,
+	LB_Quotation = 30,
+	LB_Regional_Indicator = 31,
+	LB_Space = 32,
+	LB_Word_Joiner = 33,
+	LB_ZWSpace = 34,
+	LB_EDGE = 35
+} LB_enum;
+
+static const LB_enum _Perl_LB_invmap[] = { /* for EBCDIC 1047 */
+	LB_Combining_Mark,
+	LB_Break_After,
+	LB_Combining_Mark,
+	LB_Mandatory_Break,
+	LB_Carriage_Return,
+	LB_Combining_Mark,
+	LB_Line_Feed,
+	LB_Combining_Mark,
+	LB_Next_Line,
+	LB_Combining_Mark,
+	LB_Space,
+	LB_Glue,
+	LB_Alphabetic,
+	LB_Postfix_Numeric,
+	LB_Infix_Numeric,
+	LB_Alphabetic,
+	LB_Open_Punctuation,
+	LB_Prefix_Numeric,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Exclamation,
+	LB_Prefix_Numeric,
+	LB_Alphabetic,
+	LB_Close_Parenthesis,
+	LB_Infix_Numeric,
+	LB_Alphabetic,
+	LB_Hyphen,
+	LB_Break_Symbols,
+	LB_Alphabetic,
+	LB_Infix_Numeric,
+	LB_Postfix_Numeric,
+	LB_Alphabetic,
+	LB_Exclamation,
+	LB_Alphabetic,
+	LB_Infix_Numeric,
+	LB_Alphabetic,
+	LB_Quotation,
+	LB_Alphabetic,
+	LB_Quotation,
+	LB_Alphabetic,
+	LB_Quotation,
+	LB_Alphabetic,
+	LB_Prefix_Numeric,
+	LB_Postfix_Numeric,
+	LB_Alphabetic,
+	LB_Prefix_Numeric,
+	LB_Alphabetic,
+	LB_Open_Punctuation,
+	LB_Alphabetic,
+	LB_Open_Punctuation,
+	LB_Alphabetic,
+	LB_Prefix_Numeric,
+	LB_Alphabetic,
+	LB_Close_Parenthesis,
+	LB_Break_Before,
+	LB_Alphabetic,
+	LB_Open_Punctuation,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Close_Punctuation,
+	LB_Alphabetic,
+	LB_Prefix_Numeric,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Break_Before,
+	LB_Alphabetic,
+	LB_Break_Before,
+	LB_Alphabetic,
+	LB_Break_Before,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Glue,
+	LB_Combining_Mark,
+	LB_Glue,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Infix_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Infix_Numeric,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Prefix_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Break_After,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Exclamation,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Hebrew_Letter,
+	LB_Alphabetic,
+	LB_Hebrew_Letter,
+	LB_Alphabetic,
+	LB_Postfix_Numeric,
+	LB_Infix_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Exclamation,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Exclamation,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Numeric,
+	LB_Postfix_Numeric,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Exclamation,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Infix_Numeric,
+	LB_Exclamation,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Break_After,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Postfix_Numeric,
+	LB_Alphabetic,
+	LB_Postfix_Numeric,
+	LB_Alphabetic,
+	LB_Prefix_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Prefix_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Prefix_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Postfix_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Prefix_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Break_Before,
+	LB_Alphabetic,
+	LB_Break_Before,
+	LB_Glue,
+	LB_Break_Before,
+	LB_Break_After,
+	LB_Glue,
+	LB_Exclamation,
+	LB_Glue,
+	LB_Alphabetic,
+	LB_Exclamation,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Break_After,
+	LB_Combining_Mark,
+	LB_Break_After,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Break_Before,
+	LB_Break_After,
+	LB_Break_Before,
+	LB_Alphabetic,
+	LB_Glue,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Numeric,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_JL,
+	LB_JV,
+	LB_JT,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Break_After,
+	LB_Nonstarter,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Prefix_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Exclamation,
+	LB_Break_After,
+	LB_Break_Before,
+	LB_Alphabetic,
+	LB_Exclamation,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Glue,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Exclamation,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Break_Before,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Glue,
+	LB_Break_After,
+	LB_ZWSpace,
+	LB_Combining_Mark,
+	LB_Break_After,
+	LB_Glue,
+	LB_Break_After,
+	LB_Break_Both,
+	LB_Alphabetic,
+	LB_Quotation,
+	LB_Open_Punctuation,
+	LB_Quotation,
+	LB_Open_Punctuation,
+	LB_Quotation,
+	LB_Alphabetic,
+	LB_Inseparable,
+	LB_Break_After,
+	LB_Mandatory_Break,
+	LB_Combining_Mark,
+	LB_Glue,
+	LB_Postfix_Numeric,
+	LB_Alphabetic,
+	LB_Quotation,
+	LB_Alphabetic,
+	LB_Nonstarter,
+	LB_Alphabetic,
+	LB_Infix_Numeric,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Nonstarter,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Word_Joiner,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Alphabetic,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Alphabetic,
+	LB_Prefix_Numeric,
+	LB_Postfix_Numeric,
+	LB_Prefix_Numeric,
+	LB_Postfix_Numeric,
+	LB_Prefix_Numeric,
+	LB_Postfix_Numeric,
+	LB_Prefix_Numeric,
+	LB_Postfix_Numeric,
+	LB_Prefix_Numeric,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Postfix_Numeric,
+	LB_Alphabetic,
+	LB_Postfix_Numeric,
+	LB_Alphabetic,
+	LB_Prefix_Numeric,
+	LB_Alphabetic,
+	LB_Prefix_Numeric,
+	LB_Alphabetic,
+	LB_Inseparable,
+	LB_Alphabetic,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Quotation,
+	LB_Alphabetic,
+	LB_Exclamation,
+	LB_Alphabetic,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Alphabetic,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Alphabetic,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Alphabetic,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Alphabetic,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Alphabetic,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Exclamation,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Exclamation,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Quotation,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Open_Punctuation,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Quotation,
+	LB_Alphabetic,
+	LB_Quotation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Break_After,
+	LB_Exclamation,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Break_Both,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Open_Punctuation,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Close_Punctuation,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Ideographic,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Nonstarter,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Ideographic,
+	LB_Combining_Mark,
+	LB_Ideographic,
+	LB_Combining_Mark,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Exclamation,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Postfix_Numeric,
+	LB_Alphabetic,
+	LB_Break_Before,
+	LB_Exclamation,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Break_Before,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_JL,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Break_After,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_Alphabetic,
+	LB_JV,
+	LB_Alphabetic,
+	LB_JT,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Hebrew_Letter,
+	LB_Combining_Mark,
+	LB_Hebrew_Letter,
+	LB_Alphabetic,
+	LB_Hebrew_Letter,
+	LB_Alphabetic,
+	LB_Hebrew_Letter,
+	LB_Alphabetic,
+	LB_Hebrew_Letter,
+	LB_Alphabetic,
+	LB_Hebrew_Letter,
+	LB_Alphabetic,
+	LB_Hebrew_Letter,
+	LB_Alphabetic,
+	LB_Hebrew_Letter,
+	LB_Alphabetic,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Alphabetic,
+	LB_Postfix_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Infix_Numeric,
+	LB_Close_Punctuation,
+	LB_Infix_Numeric,
+	LB_Exclamation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Inseparable,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Ideographic,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Ideographic,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Ideographic,
+	LB_Close_Punctuation,
+	LB_Ideographic,
+	LB_Close_Punctuation,
+	LB_Alphabetic,
+	LB_Nonstarter,
+	LB_Exclamation,
+	LB_Ideographic,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Prefix_Numeric,
+	LB_Postfix_Numeric,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Word_Joiner,
+	LB_Alphabetic,
+	LB_Exclamation,
+	LB_Ideographic,
+	LB_Prefix_Numeric,
+	LB_Postfix_Numeric,
+	LB_Ideographic,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Ideographic,
+	LB_Close_Punctuation,
+	LB_Ideographic,
+	LB_Close_Punctuation,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Exclamation,
+	LB_Ideographic,
+	LB_Open_Punctuation,
+	LB_Ideographic,
+	LB_Close_Punctuation,
+	LB_Ideographic,
+	LB_Open_Punctuation,
+	LB_Ideographic,
+	LB_Close_Punctuation,
+	LB_Ideographic,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Nonstarter,
+	LB_Alphabetic,
+	LB_Nonstarter,
+	LB_Alphabetic,
+	LB_Nonstarter,
+	LB_Alphabetic,
+	LB_Postfix_Numeric,
+	LB_Prefix_Numeric,
+	LB_Ideographic,
+	LB_Prefix_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Contingent_Break,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Inseparable,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Break_Before,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Break_Before,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Break_Before,
+	LB_Break_After,
+	LB_Exclamation,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Alphabetic,
+	LB_Close_Punctuation,
+	LB_Alphabetic,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Alphabetic,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Alphabetic,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Break_After,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Regional_Indicator,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Quotation,
+	LB_Nonstarter,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic
+};
+
+#endif	/* defined(PERL_IN_REGEXEC_C) */
+
+#if defined(PERL_IN_PERL_C)
+
+static const UV _Perl_SB_invlist[] = { /* for EBCDIC 1047 */
+	2920,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	0,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x5,
+	0x6,
+	0xB,
+	0xD,
+	0xE,
+	0x15,
+	0x16,
+	0x25,
+	0x26,
+	0x40,
+	0x42,
+	0x4A,
+	0x4B,
+	0x4C,
+	0x4D,
+	0x4E,
+	0x51,
+	0x5A,
+	0x5B,
+	0x5D,
+	0x5E,
+	0x60,
+	0x61,
+	0x62,
+	0x6A,
+	0x6B,
+	0x6C,
+	0x6F,
+	0x70,
+	0x71,
+	0x79,
+	0x7A,
+	0x7B,
+	0x7D,
+	0x7E,
+	0x7F,
+	0x80,
+	0x81,
+	0x8A,
+	0x8C,
+	0x8F,
+	0x91,
+	0x9D,
+	0x9E,
+	0x9F,
+	0xA0,
+	0xA1,
+	0xA2,
+	0xAA,
+	0xAC,
+	0xAD,
+	0xAE,
+	0xAF,
+	0xBA,
+	0xBB,
+	0xBD,
+	0xBE,
+	0xC0,
+	0xC1,
+	0xCA,
+	0xCB,
+	0xD0,
+	0xD1,
+	0xDA,
+	0xDB,
+	0xE0,
+	0xE2,
+	0xEA,
+	0xEB,
+	0xF0,
+	0xFA,
+	0xFB,
+	0xFF,
+	0x100,
+	0x101,
+	0x102,
+	0x103,
+	0x104,
+	0x105,
+	0x106,
+	0x107,
+	0x108,
+	0x109,
+	0x10A,
+	0x10B,
+	0x10C,
+	0x10D,
+	0x10E,
+	0x10F,
+	0x110,
+	0x111,
+	0x112,
+	0x113,
+	0x114,
+	0x115,
+	0x116,
+	0x117,
+	0x118,
+	0x119,
+	0x11A,
+	0x11B,
+	0x11C,
+	0x11D,
+	0x11E,
+	0x11F,
+	0x120,
+	0x121,
+	0x122,
+	0x123,
+	0x124,
+	0x125,
+	0x126,
+	0x127,
+	0x128,
+	0x129,
+	0x12A,
+	0x12B,
+	0x12C,
+	0x12D,
+	0x12E,
+	0x12F,
+	0x130,
+	0x131,
+	0x132,
+	0x133,
+	0x134,
+	0x135,
+	0x136,
+	0x137,
+	0x139,
+	0x13A,
+	0x13B,
+	0x13C,
+	0x13D,
+	0x13E,
+	0x13F,
+	0x140,
+	0x141,
+	0x142,
+	0x143,
+	0x144,
+	0x145,
+	0x146,
+	0x147,
+	0x148,
+	0x14A,
+	0x14B,
+	0x14C,
+	0x14D,
+	0x14E,
+	0x14F,
+	0x150,
+	0x151,
+	0x152,
+	0x153,
+	0x154,
+	0x155,
+	0x156,
+	0x157,
+	0x158,
+	0x159,
+	0x15A,
+	0x15B,
+	0x15C,
+	0x15D,
+	0x15E,
+	0x15F,
+	0x160,
+	0x161,
+	0x162,
+	0x163,
+	0x164,
+	0x165,
+	0x166,
+	0x167,
+	0x168,
+	0x169,
+	0x16A,
+	0x16B,
+	0x16C,
+	0x16D,
+	0x16E,
+	0x16F,
+	0x170,
+	0x171,
+	0x172,
+	0x173,
+	0x174,
+	0x175,
+	0x176,
+	0x177,
+	0x178,
+	0x17A,
+	0x17B,
+	0x17C,
+	0x17D,
+	0x17E,
+	0x181,
+	0x183,
+	0x184,
+	0x185,
+	0x186,
+	0x188,
+	0x189,
+	0x18C,
+	0x18E,
+	0x192,
+	0x193,
+	0x195,
+	0x196,
+	0x199,
+	0x19C,
+	0x19E,
+	0x19F,
+	0x1A1,
+	0x1A2,
+	0x1A3,
+	0x1A4,
+	0x1A5,
+	0x1A6,
+	0x1A8,
+	0x1A9,
+	0x1AA,
+	0x1AC,
+	0x1AD,
+	0x1AE,
+	0x1B0,
+	0x1B1,
+	0x1B4,
+	0x1B5,
+	0x1B6,
+	0x1B7,
+	0x1B9,
+	0x1BB,
+	0x1BC,
+	0x1BD,
+	0x1C0,
+	0x1C4,
+	0x1C6,
+	0x1C7,
+	0x1C9,
+	0x1CA,
+	0x1CC,
+	0x1CD,
+	0x1CE,
+	0x1CF,
+	0x1D0,
+	0x1D1,
+	0x1D2,
+	0x1D3,
+	0x1D4,
+	0x1D5,
+	0x1D6,
+	0x1D7,
+	0x1D8,
+	0x1D9,
+	0x1DA,
+	0x1DB,
+	0x1DC,
+	0x1DE,
+	0x1DF,
+	0x1E0,
+	0x1E1,
+	0x1E2,
+	0x1E3,
+	0x1E4,
+	0x1E5,
+	0x1E6,
+	0x1E7,
+	0x1E8,
+	0x1E9,
+	0x1EA,
+	0x1EB,
+	0x1EC,
+	0x1ED,
+	0x1EE,
+	0x1EF,
+	0x1F1,
+	0x1F3,
+	0x1F4,
+	0x1F5,
+	0x1F6,
+	0x1F9,
+	0x1FA,
+	0x1FB,
+	0x1FC,
+	0x1FD,
+	0x1FE,
+	0x1FF,
+	0x200,
+	0x201,
+	0x202,
+	0x203,
+	0x204,
+	0x205,
+	0x206,
+	0x207,
+	0x208,
+	0x209,
+	0x20A,
+	0x20B,
+	0x20C,
+	0x20D,
+	0x20E,
+	0x20F,
+	0x210,
+	0x211,
+	0x212,
+	0x213,
+	0x214,
+	0x215,
+	0x216,
+	0x217,
+	0x218,
+	0x219,
+	0x21A,
+	0x21B,
+	0x21C,
+	0x21D,
+	0x21E,
+	0x21F,
+	0x220,
+	0x221,
+	0x222,
+	0x223,
+	0x224,
+	0x225,
+	0x226,
+	0x227,
+	0x228,
+	0x229,
+	0x22A,
+	0x22B,
+	0x22C,
+	0x22D,
+	0x22E,
+	0x22F,
+	0x230,
+	0x231,
+	0x232,
+	0x233,
+	0x23A,
+	0x23C,
+	0x23D,
+	0x23F,
+	0x241,
+	0x242,
+	0x243,
+	0x247,
+	0x248,
+	0x249,
+	0x24A,
+	0x24B,
+	0x24C,
+	0x24D,
+	0x24E,
+	0x24F,
+	0x294,
+	0x295,
+	0x2B9,
+	0x2C0,
+	0x2C2,
+	0x2C6,
+	0x2D2,
+	0x2E0,
+	0x2E5,
+	0x2EC,
+	0x2ED,
+	0x2EE,
+	0x2EF,
+	0x300,
+	0x370,
+	0x371,
+	0x372,
+	0x373,
+	0x374,
+	0x375,
+	0x376,
+	0x377,
+	0x378,
+	0x37A,
+	0x37E,
+	0x37F,
+	0x380,
+	0x386,
+	0x387,
+	0x388,
+	0x38B,
+	0x38C,
+	0x38D,
+	0x38E,
+	0x390,
+	0x391,
+	0x3A2,
+	0x3A3,
+	0x3AC,
+	0x3CF,
+	0x3D0,
+	0x3D2,
+	0x3D5,
+	0x3D8,
+	0x3D9,
+	0x3DA,
+	0x3DB,
+	0x3DC,
+	0x3DD,
+	0x3DE,
+	0x3DF,
+	0x3E0,
+	0x3E1,
+	0x3E2,
+	0x3E3,
+	0x3E4,
+	0x3E5,
+	0x3E6,
+	0x3E7,
+	0x3E8,
+	0x3E9,
+	0x3EA,
+	0x3EB,
+	0x3EC,
+	0x3ED,
+	0x3EE,
+	0x3EF,
+	0x3F4,
+	0x3F5,
+	0x3F6,
+	0x3F7,
+	0x3F8,
+	0x3F9,
+	0x3FB,
+	0x3FD,
+	0x430,
+	0x460,
+	0x461,
+	0x462,
+	0x463,
+	0x464,
+	0x465,
+	0x466,
+	0x467,
+	0x468,
+	0x469,
+	0x46A,
+	0x46B,
+	0x46C,
+	0x46D,
+	0x46E,
+	0x46F,
+	0x470,
+	0x471,
+	0x472,
+	0x473,
+	0x474,
+	0x475,
+	0x476,
+	0x477,
+	0x478,
+	0x479,
+	0x47A,
+	0x47B,
+	0x47C,
+	0x47D,
+	0x47E,
+	0x47F,
+	0x480,
+	0x481,
+	0x482,
+	0x483,
+	0x48A,
+	0x48B,
+	0x48C,
+	0x48D,
+	0x48E,
+	0x48F,
+	0x490,
+	0x491,
+	0x492,
+	0x493,
+	0x494,
+	0x495,
+	0x496,
+	0x497,
+	0x498,
+	0x499,
+	0x49A,
+	0x49B,
+	0x49C,
+	0x49D,
+	0x49E,
+	0x49F,
+	0x4A0,
+	0x4A1,
+	0x4A2,
+	0x4A3,
+	0x4A4,
+	0x4A5,
+	0x4A6,
+	0x4A7,
+	0x4A8,
+	0x4A9,
+	0x4AA,
+	0x4AB,
+	0x4AC,
+	0x4AD,
+	0x4AE,
+	0x4AF,
+	0x4B0,
+	0x4B1,
+	0x4B2,
+	0x4B3,
+	0x4B4,
+	0x4B5,
+	0x4B6,
+	0x4B7,
+	0x4B8,
+	0x4B9,
+	0x4BA,
+	0x4BB,
+	0x4BC,
+	0x4BD,
+	0x4BE,
+	0x4BF,
+	0x4C0,
+	0x4C2,
+	0x4C3,
+	0x4C4,
+	0x4C5,
+	0x4C6,
+	0x4C7,
+	0x4C8,
+	0x4C9,
+	0x4CA,
+	0x4CB,
+	0x4CC,
+	0x4CD,
+	0x4CE,
+	0x4D0,
+	0x4D1,
+	0x4D2,
+	0x4D3,
+	0x4D4,
+	0x4D5,
+	0x4D6,
+	0x4D7,
+	0x4D8,
+	0x4D9,
+	0x4DA,
+	0x4DB,
+	0x4DC,
+	0x4DD,
+	0x4DE,
+	0x4DF,
+	0x4E0,
+	0x4E1,
+	0x4E2,
+	0x4E3,
+	0x4E4,
+	0x4E5,
+	0x4E6,
+	0x4E7,
+	0x4E8,
+	0x4E9,
+	0x4EA,
+	0x4EB,
+	0x4EC,
+	0x4ED,
+	0x4EE,
+	0x4EF,
+	0x4F0,
+	0x4F1,
+	0x4F2,
+	0x4F3,
+	0x4F4,
+	0x4F5,
+	0x4F6,
+	0x4F7,
+	0x4F8,
+	0x4F9,
+	0x4FA,
+	0x4FB,
+	0x4FC,
+	0x4FD,
+	0x4FE,
+	0x4FF,
+	0x500,
+	0x501,
+	0x502,
+	0x503,
+	0x504,
+	0x505,
+	0x506,
+	0x507,
+	0x508,
+	0x509,
+	0x50A,
+	0x50B,
+	0x50C,
+	0x50D,
+	0x50E,
+	0x50F,
+	0x510,
+	0x511,
+	0x512,
+	0x513,
+	0x514,
+	0x515,
+	0x516,
+	0x517,
+	0x518,
+	0x519,
+	0x51A,
+	0x51B,
+	0x51C,
+	0x51D,
+	0x51E,
+	0x51F,
+	0x520,
+	0x521,
+	0x522,
+	0x523,
+	0x524,
+	0x525,
+	0x526,
+	0x527,
+	0x528,
+	0x529,
+	0x52A,
+	0x52B,
+	0x52C,
+	0x52D,
+	0x52E,
+	0x52F,
+	0x530,
+	0x531,
+	0x557,
+	0x559,
+	0x55A,
+	0x55D,
+	0x55E,
+	0x561,
+	0x588,
+	0x589,
+	0x58A,
+	0x591,
+	0x5BE,
+	0x5BF,
+	0x5C0,
+	0x5C1,
+	0x5C3,
+	0x5C4,
+	0x5C6,
+	0x5C7,
+	0x5C8,
+	0x5D0,
+	0x5EB,
+	0x5F0,
+	0x5F4,
+	0x600,
+	0x606,
+	0x60C,
+	0x60E,
+	0x610,
+	0x61B,
+	0x61C,
+	0x61D,
+	0x61F,
+	0x620,
+	0x64B,
+	0x660,
+	0x66A,
+	0x66B,
+	0x66D,
+	0x66E,
+	0x670,
+	0x671,
+	0x6D4,
+	0x6D5,
+	0x6D6,
+	0x6DD,
+	0x6DE,
+	0x6DF,
+	0x6E5,
+	0x6E7,
+	0x6E9,
+	0x6EA,
+	0x6EE,
+	0x6F0,
+	0x6FA,
+	0x6FD,
+	0x6FF,
+	0x700,
+	0x703,
+	0x70F,
+	0x710,
+	0x711,
+	0x712,
+	0x730,
+	0x74B,
+	0x74D,
+	0x7A6,
+	0x7B1,
+	0x7B2,
+	0x7C0,
+	0x7CA,
+	0x7EB,
+	0x7F4,
+	0x7F6,
+	0x7F8,
+	0x7F9,
+	0x7FA,
+	0x7FB,
+	0x800,
+	0x816,
+	0x81A,
+	0x81B,
+	0x824,
+	0x825,
+	0x828,
+	0x829,
+	0x82E,
+	0x840,
+	0x859,
+	0x85C,
+	0x8A0,
+	0x8B5,
+	0x8E3,
+	0x904,
+	0x93A,
+	0x93D,
+	0x93E,
+	0x950,
+	0x951,
+	0x958,
+	0x962,
+	0x964,
+	0x966,
+	0x970,
+	0x971,
+	0x981,
+	0x984,
+	0x985,
+	0x98D,
+	0x98F,
+	0x991,
+	0x993,
+	0x9A9,
+	0x9AA,
+	0x9B1,
+	0x9B2,
+	0x9B3,
+	0x9B6,
+	0x9BA,
+	0x9BC,
+	0x9BD,
+	0x9BE,
+	0x9C5,
+	0x9C7,
+	0x9C9,
+	0x9CB,
+	0x9CE,
+	0x9CF,
+	0x9D7,
+	0x9D8,
+	0x9DC,
+	0x9DE,
+	0x9DF,
+	0x9E2,
+	0x9E4,
+	0x9E6,
+	0x9F0,
+	0x9F2,
+	0xA01,
+	0xA04,
+	0xA05,
+	0xA0B,
+	0xA0F,
+	0xA11,
+	0xA13,
+	0xA29,
+	0xA2A,
+	0xA31,
+	0xA32,
+	0xA34,
+	0xA35,
+	0xA37,
+	0xA38,
+	0xA3A,
+	0xA3C,
+	0xA3D,
+	0xA3E,
+	0xA43,
+	0xA47,
+	0xA49,
+	0xA4B,
+	0xA4E,
+	0xA51,
+	0xA52,
+	0xA59,
+	0xA5D,
+	0xA5E,
+	0xA5F,
+	0xA66,
+	0xA70,
+	0xA72,
+	0xA75,
+	0xA76,
+	0xA81,
+	0xA84,
+	0xA85,
+	0xA8E,
+	0xA8F,
+	0xA92,
+	0xA93,
+	0xAA9,
+	0xAAA,
+	0xAB1,
+	0xAB2,
+	0xAB4,
+	0xAB5,
+	0xABA,
+	0xABC,
+	0xABD,
+	0xABE,
+	0xAC6,
+	0xAC7,
+	0xACA,
+	0xACB,
+	0xACE,
+	0xAD0,
+	0xAD1,
+	0xAE0,
+	0xAE2,
+	0xAE4,
+	0xAE6,
+	0xAF0,
+	0xAF9,
+	0xAFA,
+	0xB01,
+	0xB04,
+	0xB05,
+	0xB0D,
+	0xB0F,
+	0xB11,
+	0xB13,
+	0xB29,
+	0xB2A,
+	0xB31,
+	0xB32,
+	0xB34,
+	0xB35,
+	0xB3A,
+	0xB3C,
+	0xB3D,
+	0xB3E,
+	0xB45,
+	0xB47,
+	0xB49,
+	0xB4B,
+	0xB4E,
+	0xB56,
+	0xB58,
+	0xB5C,
+	0xB5E,
+	0xB5F,
+	0xB62,
+	0xB64,
+	0xB66,
+	0xB70,
+	0xB71,
+	0xB72,
+	0xB82,
+	0xB83,
+	0xB84,
+	0xB85,
+	0xB8B,
+	0xB8E,
+	0xB91,
+	0xB92,
+	0xB96,
+	0xB99,
+	0xB9B,
+	0xB9C,
+	0xB9D,
+	0xB9E,
+	0xBA0,
+	0xBA3,
+	0xBA5,
+	0xBA8,
+	0xBAB,
+	0xBAE,
+	0xBBA,
+	0xBBE,
+	0xBC3,
+	0xBC6,
+	0xBC9,
+	0xBCA,
+	0xBCE,
+	0xBD0,
+	0xBD1,
+	0xBD7,
+	0xBD8,
+	0xBE6,
+	0xBF0,
+	0xC00,
+	0xC04,
+	0xC05,
+	0xC0D,
+	0xC0E,
+	0xC11,
+	0xC12,
+	0xC29,
+	0xC2A,
+	0xC3A,
+	0xC3D,
+	0xC3E,
+	0xC45,
+	0xC46,
+	0xC49,
+	0xC4A,
+	0xC4E,
+	0xC55,
+	0xC57,
+	0xC58,
+	0xC5B,
+	0xC60,
+	0xC62,
+	0xC64,
+	0xC66,
+	0xC70,
+	0xC81,
+	0xC84,
+	0xC85,
+	0xC8D,
+	0xC8E,
+	0xC91,
+	0xC92,
+	0xCA9,
+	0xCAA,
+	0xCB4,
+	0xCB5,
+	0xCBA,
+	0xCBC,
+	0xCBD,
+	0xCBE,
+	0xCC5,
+	0xCC6,
+	0xCC9,
+	0xCCA,
+	0xCCE,
+	0xCD5,
+	0xCD7,
+	0xCDE,
+	0xCDF,
+	0xCE0,
+	0xCE2,
+	0xCE4,
+	0xCE6,
+	0xCF0,
+	0xCF1,
+	0xCF3,
+	0xD01,
+	0xD04,
+	0xD05,
+	0xD0D,
+	0xD0E,
+	0xD11,
+	0xD12,
+	0xD3B,
+	0xD3D,
+	0xD3E,
+	0xD45,
+	0xD46,
+	0xD49,
+	0xD4A,
+	0xD4E,
+	0xD4F,
+	0xD57,
+	0xD58,
+	0xD5F,
+	0xD62,
+	0xD64,
+	0xD66,
+	0xD70,
+	0xD7A,
+	0xD80,
+	0xD82,
+	0xD84,
+	0xD85,
+	0xD97,
+	0xD9A,
+	0xDB2,
+	0xDB3,
+	0xDBC,
+	0xDBD,
+	0xDBE,
+	0xDC0,
+	0xDC7,
+	0xDCA,
+	0xDCB,
+	0xDCF,
+	0xDD5,
+	0xDD6,
+	0xDD7,
+	0xDD8,
+	0xDE0,
+	0xDE6,
+	0xDF0,
+	0xDF2,
+	0xDF4,
+	0xE01,
+	0xE31,
+	0xE32,
+	0xE34,
+	0xE3B,
+	0xE40,
+	0xE47,
+	0xE4F,
+	0xE50,
+	0xE5A,
+	0xE81,
+	0xE83,
+	0xE84,
+	0xE85,
+	0xE87,
+	0xE89,
+	0xE8A,
+	0xE8B,
+	0xE8D,
+	0xE8E,
+	0xE94,
+	0xE98,
+	0xE99,
+	0xEA0,
+	0xEA1,
+	0xEA4,
+	0xEA5,
+	0xEA6,
+	0xEA7,
+	0xEA8,
+	0xEAA,
+	0xEAC,
+	0xEAD,
+	0xEB1,
+	0xEB2,
+	0xEB4,
+	0xEBA,
+	0xEBB,
+	0xEBD,
+	0xEBE,
+	0xEC0,
+	0xEC5,
+	0xEC6,
+	0xEC7,
+	0xEC8,
+	0xECE,
+	0xED0,
+	0xEDA,
+	0xEDC,
+	0xEE0,
+	0xF00,
+	0xF01,
+	0xF18,
+	0xF1A,
+	0xF20,
+	0xF2A,
+	0xF35,
+	0xF36,
+	0xF37,
+	0xF38,
+	0xF39,
+	0xF3A,
+	0xF3E,
+	0xF40,
+	0xF48,
+	0xF49,
+	0xF6D,
+	0xF71,
+	0xF85,
+	0xF86,
+	0xF88,
+	0xF8D,
+	0xF98,
+	0xF99,
+	0xFBD,
+	0xFC6,
+	0xFC7,
+	0x1000,
+	0x102B,
+	0x103F,
+	0x1040,
+	0x104A,
+	0x104C,
+	0x1050,
+	0x1056,
+	0x105A,
+	0x105E,
+	0x1061,
+	0x1062,
+	0x1065,
+	0x1067,
+	0x106E,
+	0x1071,
+	0x1075,
+	0x1082,
+	0x108E,
+	0x108F,
+	0x1090,
+	0x109A,
+	0x109E,
+	0x10A0,
+	0x10C6,
+	0x10C7,
+	0x10C8,
+	0x10CD,
+	0x10CE,
+	0x10D0,
+	0x10FB,
+	0x10FC,
+	0x1249,
+	0x124A,
+	0x124E,
+	0x1250,
+	0x1257,
+	0x1258,
+	0x1259,
+	0x125A,
+	0x125E,
+	0x1260,
+	0x1289,
+	0x128A,
+	0x128E,
+	0x1290,
+	0x12B1,
+	0x12B2,
+	0x12B6,
+	0x12B8,
+	0x12BF,
+	0x12C0,
+	0x12C1,
+	0x12C2,
+	0x12C6,
+	0x12C8,
+	0x12D7,
+	0x12D8,
+	0x1311,
+	0x1312,
+	0x1316,
+	0x1318,
+	0x135B,
+	0x135D,
+	0x1360,
+	0x1362,
+	0x1363,
+	0x1367,
+	0x1369,
+	0x1380,
+	0x1390,
+	0x13A0,
+	0x13F6,
+	0x13F8,
+	0x13FE,
+	0x1401,
+	0x166D,
+	0x166E,
+	0x166F,
+	0x1680,
+	0x1681,
+	0x169B,
+	0x169D,
+	0x16A0,
+	0x16EB,
+	0x16EE,
+	0x16F9,
+	0x1700,
+	0x170D,
+	0x170E,
+	0x1712,
+	0x1715,
+	0x1720,
+	0x1732,
+	0x1735,
+	0x1737,
+	0x1740,
+	0x1752,
+	0x1754,
+	0x1760,
+	0x176D,
+	0x176E,
+	0x1771,
+	0x1772,
+	0x1774,
+	0x1780,
+	0x17B4,
+	0x17D4,
+	0x17D7,
+	0x17D8,
+	0x17DC,
+	0x17DD,
+	0x17DE,
+	0x17E0,
+	0x17EA,
+	0x1802,
+	0x1803,
+	0x1804,
+	0x1808,
+	0x1809,
+	0x180A,
+	0x180B,
+	0x180E,
+	0x180F,
+	0x1810,
+	0x181A,
+	0x1820,
+	0x1878,
+	0x1880,
+	0x18A9,
+	0x18AA,
+	0x18AB,
+	0x18B0,
+	0x18F6,
+	0x1900,
+	0x191F,
+	0x1920,
+	0x192C,
+	0x1930,
+	0x193C,
+	0x1944,
+	0x1946,
+	0x1950,
+	0x196E,
+	0x1970,
+	0x1975,
+	0x1980,
+	0x19AC,
+	0x19B0,
+	0x19CA,
+	0x19D0,
+	0x19DA,
+	0x1A00,
+	0x1A17,
+	0x1A1C,
+	0x1A20,
+	0x1A55,
+	0x1A5F,
+	0x1A60,
+	0x1A7D,
+	0x1A7F,
+	0x1A80,
+	0x1A8A,
+	0x1A90,
+	0x1A9A,
+	0x1AA7,
+	0x1AA8,
+	0x1AAC,
+	0x1AB0,
+	0x1ABF,
+	0x1B00,
+	0x1B05,
+	0x1B34,
+	0x1B45,
+	0x1B4C,
+	0x1B50,
+	0x1B5A,
+	0x1B5C,
+	0x1B5E,
+	0x1B60,
+	0x1B6B,
+	0x1B74,
+	0x1B80,
+	0x1B83,
+	0x1BA1,
+	0x1BAE,
+	0x1BB0,
+	0x1BBA,
+	0x1BE6,
+	0x1BF4,
+	0x1C00,
+	0x1C24,
+	0x1C38,
+	0x1C3B,
+	0x1C3D,
+	0x1C40,
+	0x1C4A,
+	0x1C4D,
+	0x1C50,
+	0x1C5A,
+	0x1C7E,
+	0x1C80,
+	0x1CD0,
+	0x1CD3,
+	0x1CD4,
+	0x1CE9,
+	0x1CED,
+	0x1CEE,
+	0x1CF2,
+	0x1CF5,
+	0x1CF7,
+	0x1CF8,
+	0x1CFA,
+	0x1D00,
+	0x1DC0,
+	0x1DF6,
+	0x1DFC,
+	0x1E00,
+	0x1E01,
+	0x1E02,
+	0x1E03,
+	0x1E04,
+	0x1E05,
+	0x1E06,
+	0x1E07,
+	0x1E08,
+	0x1E09,
+	0x1E0A,
+	0x1E0B,
+	0x1E0C,
+	0x1E0D,
+	0x1E0E,
+	0x1E0F,
+	0x1E10,
+	0x1E11,
+	0x1E12,
+	0x1E13,
+	0x1E14,
+	0x1E15,
+	0x1E16,
+	0x1E17,
+	0x1E18,
+	0x1E19,
+	0x1E1A,
+	0x1E1B,
+	0x1E1C,
+	0x1E1D,
+	0x1E1E,
+	0x1E1F,
+	0x1E20,
+	0x1E21,
+	0x1E22,
+	0x1E23,
+	0x1E24,
+	0x1E25,
+	0x1E26,
+	0x1E27,
+	0x1E28,
+	0x1E29,
+	0x1E2A,
+	0x1E2B,
+	0x1E2C,
+	0x1E2D,
+	0x1E2E,
+	0x1E2F,
+	0x1E30,
+	0x1E31,
+	0x1E32,
+	0x1E33,
+	0x1E34,
+	0x1E35,
+	0x1E36,
+	0x1E37,
+	0x1E38,
+	0x1E39,
+	0x1E3A,
+	0x1E3B,
+	0x1E3C,
+	0x1E3D,
+	0x1E3E,
+	0x1E3F,
+	0x1E40,
+	0x1E41,
+	0x1E42,
+	0x1E43,
+	0x1E44,
+	0x1E45,
+	0x1E46,
+	0x1E47,
+	0x1E48,
+	0x1E49,
+	0x1E4A,
+	0x1E4B,
+	0x1E4C,
+	0x1E4D,
+	0x1E4E,
+	0x1E4F,
+	0x1E50,
+	0x1E51,
+	0x1E52,
+	0x1E53,
+	0x1E54,
+	0x1E55,
+	0x1E56,
+	0x1E57,
+	0x1E58,
+	0x1E59,
+	0x1E5A,
+	0x1E5B,
+	0x1E5C,
+	0x1E5D,
+	0x1E5E,
+	0x1E5F,
+	0x1E60,
+	0x1E61,
+	0x1E62,
+	0x1E63,
+	0x1E64,
+	0x1E65,
+	0x1E66,
+	0x1E67,
+	0x1E68,
+	0x1E69,
+	0x1E6A,
+	0x1E6B,
+	0x1E6C,
+	0x1E6D,
+	0x1E6E,
+	0x1E6F,
+	0x1E70,
+	0x1E71,
+	0x1E72,
+	0x1E73,
+	0x1E74,
+	0x1E75,
+	0x1E76,
+	0x1E77,
+	0x1E78,
+	0x1E79,
+	0x1E7A,
+	0x1E7B,
+	0x1E7C,
+	0x1E7D,
+	0x1E7E,
+	0x1E7F,
+	0x1E80,
+	0x1E81,
+	0x1E82,
+	0x1E83,
+	0x1E84,
+	0x1E85,
+	0x1E86,
+	0x1E87,
+	0x1E88,
+	0x1E89,
+	0x1E8A,
+	0x1E8B,
+	0x1E8C,
+	0x1E8D,
+	0x1E8E,
+	0x1E8F,
+	0x1E90,
+	0x1E91,
+	0x1E92,
+	0x1E93,
+	0x1E94,
+	0x1E95,
+	0x1E9E,
+	0x1E9F,
+	0x1EA0,
+	0x1EA1,
+	0x1EA2,
+	0x1EA3,
+	0x1EA4,
+	0x1EA5,
+	0x1EA6,
+	0x1EA7,
+	0x1EA8,
+	0x1EA9,
+	0x1EAA,
+	0x1EAB,
+	0x1EAC,
+	0x1EAD,
+	0x1EAE,
+	0x1EAF,
+	0x1EB0,
+	0x1EB1,
+	0x1EB2,
+	0x1EB3,
+	0x1EB4,
+	0x1EB5,
+	0x1EB6,
+	0x1EB7,
+	0x1EB8,
+	0x1EB9,
+	0x1EBA,
+	0x1EBB,
+	0x1EBC,
+	0x1EBD,
+	0x1EBE,
+	0x1EBF,
+	0x1EC0,
+	0x1EC1,
+	0x1EC2,
+	0x1EC3,
+	0x1EC4,
+	0x1EC5,
+	0x1EC6,
+	0x1EC7,
+	0x1EC8,
+	0x1EC9,
+	0x1ECA,
+	0x1ECB,
+	0x1ECC,
+	0x1ECD,
+	0x1ECE,
+	0x1ECF,
+	0x1ED0,
+	0x1ED1,
+	0x1ED2,
+	0x1ED3,
+	0x1ED4,
+	0x1ED5,
+	0x1ED6,
+	0x1ED7,
+	0x1ED8,
+	0x1ED9,
+	0x1EDA,
+	0x1EDB,
+	0x1EDC,
+	0x1EDD,
+	0x1EDE,
+	0x1EDF,
+	0x1EE0,
+	0x1EE1,
+	0x1EE2,
+	0x1EE3,
+	0x1EE4,
+	0x1EE5,
+	0x1EE6,
+	0x1EE7,
+	0x1EE8,
+	0x1EE9,
+	0x1EEA,
+	0x1EEB,
+	0x1EEC,
+	0x1EED,
+	0x1EEE,
+	0x1EEF,
+	0x1EF0,
+	0x1EF1,
+	0x1EF2,
+	0x1EF3,
+	0x1EF4,
+	0x1EF5,
+	0x1EF6,
+	0x1EF7,
+	0x1EF8,
+	0x1EF9,
+	0x1EFA,
+	0x1EFB,
+	0x1EFC,
+	0x1EFD,
+	0x1EFE,
+	0x1EFF,
+	0x1F08,
+	0x1F10,
+	0x1F16,
+	0x1F18,
+	0x1F1E,
+	0x1F20,
+	0x1F28,
+	0x1F30,
+	0x1F38,
+	0x1F40,
+	0x1F46,
+	0x1F48,
+	0x1F4E,
+	0x1F50,
+	0x1F58,
+	0x1F59,
+	0x1F5A,
+	0x1F5B,
+	0x1F5C,
+	0x1F5D,
+	0x1F5E,
+	0x1F5F,
+	0x1F60,
+	0x1F68,
+	0x1F70,
+	0x1F7E,
+	0x1F80,
+	0x1F88,
+	0x1F90,
+	0x1F98,
+	0x1FA0,
+	0x1FA8,
+	0x1FB0,
+	0x1FB5,
+	0x1FB6,
+	0x1FB8,
+	0x1FBD,
+	0x1FBE,
+	0x1FBF,
+	0x1FC2,
+	0x1FC5,
+	0x1FC6,
+	0x1FC8,
+	0x1FCD,
+	0x1FD0,
+	0x1FD4,
+	0x1FD6,
+	0x1FD8,
+	0x1FDC,
+	0x1FE0,
+	0x1FE8,
+	0x1FED,
+	0x1FF2,
+	0x1FF5,
+	0x1FF6,
+	0x1FF8,
+	0x1FFD,
+	0x2000,
+	0x200B,
+	0x200C,
+	0x200E,
+	0x2010,
+	0x2013,
+	0x2015,
+	0x2018,
+	0x2020,
+	0x2024,
+	0x2025,
+	0x2028,
+	0x202A,
+	0x202F,
+	0x2030,
+	0x2039,
+	0x203B,
+	0x203C,
+	0x203E,
+	0x2045,
+	0x2047,
+	0x204A,
+	0x205F,
+	0x2060,
+	0x2065,
+	0x2066,
+	0x2070,
+	0x2071,
+	0x2072,
+	0x207D,
+	0x207F,
+	0x2080,
+	0x208D,
+	0x208F,
+	0x2090,
+	0x209D,
+	0x20D0,
+	0x20F1,
+	0x2102,
+	0x2103,
+	0x2107,
+	0x2108,
+	0x210A,
+	0x210B,
+	0x210E,
+	0x2110,
+	0x2113,
+	0x2114,
+	0x2115,
+	0x2116,
+	0x2119,
+	0x211E,
+	0x2124,
+	0x2125,
+	0x2126,
+	0x2127,
+	0x2128,
+	0x2129,
+	0x212A,
+	0x212E,
+	0x212F,
+	0x2130,
+	0x2134,
+	0x2135,
+	0x2139,
+	0x213A,
+	0x213C,
+	0x213E,
+	0x2140,
+	0x2145,
+	0x2146,
+	0x214A,
+	0x214E,
+	0x214F,
+	0x2160,
+	0x2170,
+	0x2180,
+	0x2183,
+	0x2184,
+	0x2185,
+	0x2189,
+	0x2308,
+	0x230C,
+	0x2329,
+	0x232B,
+	0x24B6,
+	0x24D0,
+	0x24EA,
+	0x275B,
+	0x2761,
+	0x2768,
+	0x2776,
+	0x27C5,
+	0x27C7,
+	0x27E6,
+	0x27F0,
+	0x2983,
+	0x2999,
+	0x29D8,
+	0x29DC,
+	0x29FC,
+	0x29FE,
+	0x2C00,
+	0x2C2F,
+	0x2C30,
+	0x2C5F,
+	0x2C60,
+	0x2C61,
+	0x2C62,
+	0x2C65,
+	0x2C67,
+	0x2C68,
+	0x2C69,
+	0x2C6A,
+	0x2C6B,
+	0x2C6C,
+	0x2C6D,
+	0x2C71,
+	0x2C72,
+	0x2C73,
+	0x2C75,
+	0x2C76,
+	0x2C7E,
+	0x2C81,
+	0x2C82,
+	0x2C83,
+	0x2C84,
+	0x2C85,
+	0x2C86,
+	0x2C87,
+	0x2C88,
+	0x2C89,
+	0x2C8A,
+	0x2C8B,
+	0x2C8C,
+	0x2C8D,
+	0x2C8E,
+	0x2C8F,
+	0x2C90,
+	0x2C91,
+	0x2C92,
+	0x2C93,
+	0x2C94,
+	0x2C95,
+	0x2C96,
+	0x2C97,
+	0x2C98,
+	0x2C99,
+	0x2C9A,
+	0x2C9B,
+	0x2C9C,
+	0x2C9D,
+	0x2C9E,
+	0x2C9F,
+	0x2CA0,
+	0x2CA1,
+	0x2CA2,
+	0x2CA3,
+	0x2CA4,
+	0x2CA5,
+	0x2CA6,
+	0x2CA7,
+	0x2CA8,
+	0x2CA9,
+	0x2CAA,
+	0x2CAB,
+	0x2CAC,
+	0x2CAD,
+	0x2CAE,
+	0x2CAF,
+	0x2CB0,
+	0x2CB1,
+	0x2CB2,
+	0x2CB3,
+	0x2CB4,
+	0x2CB5,
+	0x2CB6,
+	0x2CB7,
+	0x2CB8,
+	0x2CB9,
+	0x2CBA,
+	0x2CBB,
+	0x2CBC,
+	0x2CBD,
+	0x2CBE,
+	0x2CBF,
+	0x2CC0,
+	0x2CC1,
+	0x2CC2,
+	0x2CC3,
+	0x2CC4,
+	0x2CC5,
+	0x2CC6,
+	0x2CC7,
+	0x2CC8,
+	0x2CC9,
+	0x2CCA,
+	0x2CCB,
+	0x2CCC,
+	0x2CCD,
+	0x2CCE,
+	0x2CCF,
+	0x2CD0,
+	0x2CD1,
+	0x2CD2,
+	0x2CD3,
+	0x2CD4,
+	0x2CD5,
+	0x2CD6,
+	0x2CD7,
+	0x2CD8,
+	0x2CD9,
+	0x2CDA,
+	0x2CDB,
+	0x2CDC,
+	0x2CDD,
+	0x2CDE,
+	0x2CDF,
+	0x2CE0,
+	0x2CE1,
+	0x2CE2,
+	0x2CE3,
+	0x2CE5,
+	0x2CEB,
+	0x2CEC,
+	0x2CED,
+	0x2CEE,
+	0x2CEF,
+	0x2CF2,
+	0x2CF3,
+	0x2CF4,
+	0x2D00,
+	0x2D26,
+	0x2D27,
+	0x2D28,
+	0x2D2D,
+	0x2D2E,
+	0x2D30,
+	0x2D68,
+	0x2D6F,
+	0x2D70,
+	0x2D7F,
+	0x2D80,
+	0x2D97,
+	0x2DA0,
+	0x2DA7,
+	0x2DA8,
+	0x2DAF,
+	0x2DB0,
+	0x2DB7,
+	0x2DB8,
+	0x2DBF,
+	0x2DC0,
+	0x2DC7,
+	0x2DC8,
+	0x2DCF,
+	0x2DD0,
+	0x2DD7,
+	0x2DD8,
+	0x2DDF,
+	0x2DE0,
+	0x2E00,
+	0x2E0E,
+	0x2E1C,
+	0x2E1E,
+	0x2E20,
+	0x2E2A,
+	0x2E2E,
+	0x2E2F,
+	0x2E30,
+	0x2E3C,
+	0x2E3D,
+	0x2E42,
+	0x2E43,
+	0x3000,
+	0x3001,
+	0x3002,
+	0x3003,
+	0x3005,
+	0x3008,
+	0x3012,
+	0x3014,
+	0x301C,
+	0x301D,
+	0x3020,
+	0x3021,
+	0x302A,
+	0x3030,
+	0x3031,
+	0x3036,
+	0x3038,
+	0x303D,
+	0x3041,
+	0x3097,
+	0x3099,
+	0x309B,
+	0x309D,
+	0x30A0,
+	0x30A1,
+	0x30FB,
+	0x30FC,
+	0x3100,
+	0x3105,
+	0x312E,
+	0x3131,
+	0x318F,
+	0x31A0,
+	0x31BB,
+	0x31F0,
+	0x3200,
+	0x3400,
+	0x4DB6,
+	0x4E00,
+	0x9FD6,
+	0xA000,
+	0xA48D,
+	0xA4D0,
+	0xA4FE,
+	0xA4FF,
+	0xA500,
+	0xA60D,
+	0xA60E,
+	0xA610,
+	0xA620,
+	0xA62A,
+	0xA62C,
+	0xA640,
+	0xA641,
+	0xA642,
+	0xA643,
+	0xA644,
+	0xA645,
+	0xA646,
+	0xA647,
+	0xA648,
+	0xA649,
+	0xA64A,
+	0xA64B,
+	0xA64C,
+	0xA64D,
+	0xA64E,
+	0xA64F,
+	0xA650,
+	0xA651,
+	0xA652,
+	0xA653,
+	0xA654,
+	0xA655,
+	0xA656,
+	0xA657,
+	0xA658,
+	0xA659,
+	0xA65A,
+	0xA65B,
+	0xA65C,
+	0xA65D,
+	0xA65E,
+	0xA65F,
+	0xA660,
+	0xA661,
+	0xA662,
+	0xA663,
+	0xA664,
+	0xA665,
+	0xA666,
+	0xA667,
+	0xA668,
+	0xA669,
+	0xA66A,
+	0xA66B,
+	0xA66C,
+	0xA66D,
+	0xA66E,
+	0xA66F,
+	0xA673,
+	0xA674,
+	0xA67E,
+	0xA67F,
+	0xA680,
+	0xA681,
+	0xA682,
+	0xA683,
+	0xA684,
+	0xA685,
+	0xA686,
+	0xA687,
+	0xA688,
+	0xA689,
+	0xA68A,
+	0xA68B,
+	0xA68C,
+	0xA68D,
+	0xA68E,
+	0xA68F,
+	0xA690,
+	0xA691,
+	0xA692,
+	0xA693,
+	0xA694,
+	0xA695,
+	0xA696,
+	0xA697,
+	0xA698,
+	0xA699,
+	0xA69A,
+	0xA69B,
+	0xA69E,
+	0xA6A0,
+	0xA6F0,
+	0xA6F2,
+	0xA6F3,
+	0xA6F4,
+	0xA6F7,
+	0xA6F8,
+	0xA717,
+	0xA720,
+	0xA722,
+	0xA723,
+	0xA724,
+	0xA725,
+	0xA726,
+	0xA727,
+	0xA728,
+	0xA729,
+	0xA72A,
+	0xA72B,
+	0xA72C,
+	0xA72D,
+	0xA72E,
+	0xA72F,
+	0xA732,
+	0xA733,
+	0xA734,
+	0xA735,
+	0xA736,
+	0xA737,
+	0xA738,
+	0xA739,
+	0xA73A,
+	0xA73B,
+	0xA73C,
+	0xA73D,
+	0xA73E,
+	0xA73F,
+	0xA740,
+	0xA741,
+	0xA742,
+	0xA743,
+	0xA744,
+	0xA745,
+	0xA746,
+	0xA747,
+	0xA748,
+	0xA749,
+	0xA74A,
+	0xA74B,
+	0xA74C,
+	0xA74D,
+	0xA74E,
+	0xA74F,
+	0xA750,
+	0xA751,
+	0xA752,
+	0xA753,
+	0xA754,
+	0xA755,
+	0xA756,
+	0xA757,
+	0xA758,
+	0xA759,
+	0xA75A,
+	0xA75B,
+	0xA75C,
+	0xA75D,
+	0xA75E,
+	0xA75F,
+	0xA760,
+	0xA761,
+	0xA762,
+	0xA763,
+	0xA764,
+	0xA765,
+	0xA766,
+	0xA767,
+	0xA768,
+	0xA769,
+	0xA76A,
+	0xA76B,
+	0xA76C,
+	0xA76D,
+	0xA76E,
+	0xA76F,
+	0xA779,
+	0xA77A,
+	0xA77B,
+	0xA77C,
+	0xA77D,
+	0xA77F,
+	0xA780,
+	0xA781,
+	0xA782,
+	0xA783,
+	0xA784,
+	0xA785,
+	0xA786,
+	0xA787,
+	0xA788,
+	0xA789,
+	0xA78B,
+	0xA78C,
+	0xA78D,
+	0xA78E,
+	0xA78F,
+	0xA790,
+	0xA791,
+	0xA792,
+	0xA793,
+	0xA796,
+	0xA797,
+	0xA798,
+	0xA799,
+	0xA79A,
+	0xA79B,
+	0xA79C,
+	0xA79D,
+	0xA79E,
+	0xA79F,
+	0xA7A0,
+	0xA7A1,
+	0xA7A2,
+	0xA7A3,
+	0xA7A4,
+	0xA7A5,
+	0xA7A6,
+	0xA7A7,
+	0xA7A8,
+	0xA7A9,
+	0xA7AA,
+	0xA7AE,
+	0xA7B0,
+	0xA7B5,
+	0xA7B6,
+	0xA7B7,
+	0xA7B8,
+	0xA7F7,
+	0xA7F8,
+	0xA7FB,
+	0xA802,
+	0xA803,
+	0xA806,
+	0xA807,
+	0xA80B,
+	0xA80C,
+	0xA823,
+	0xA828,
+	0xA840,
+	0xA874,
+	0xA876,
+	0xA878,
+	0xA880,
+	0xA882,
+	0xA8B4,
+	0xA8C5,
+	0xA8CE,
+	0xA8D0,
+	0xA8DA,
+	0xA8E0,
+	0xA8F2,
+	0xA8F8,
+	0xA8FB,
+	0xA8FC,
+	0xA8FD,
+	0xA8FE,
+	0xA900,
+	0xA90A,
+	0xA926,
+	0xA92E,
+	0xA92F,
+	0xA930,
+	0xA947,
+	0xA954,
+	0xA960,
+	0xA97D,
+	0xA980,
+	0xA984,
+	0xA9B3,
+	0xA9C1,
+	0xA9C8,
+	0xA9CA,
+	0xA9CF,
+	0xA9D0,
+	0xA9DA,
+	0xA9E0,
+	0xA9E5,
+	0xA9E6,
+	0xA9F0,
+	0xA9FA,
+	0xA9FF,
+	0xAA00,
+	0xAA29,
+	0xAA37,
+	0xAA40,
+	0xAA43,
+	0xAA44,
+	0xAA4C,
+	0xAA4E,
+	0xAA50,
+	0xAA5A,
+	0xAA5D,
+	0xAA60,
+	0xAA77,
+	0xAA7A,
+	0xAA7B,
+	0xAA7E,
+	0xAAB0,
+	0xAAB1,
+	0xAAB2,
+	0xAAB5,
+	0xAAB7,
+	0xAAB9,
+	0xAABE,
+	0xAAC0,
+	0xAAC1,
+	0xAAC2,
+	0xAAC3,
+	0xAADB,
+	0xAADE,
+	0xAAE0,
+	0xAAEB,
+	0xAAF0,
+	0xAAF2,
+	0xAAF5,
+	0xAAF7,
+	0xAB01,
+	0xAB07,
+	0xAB09,
+	0xAB0F,
+	0xAB11,
+	0xAB17,
+	0xAB20,
+	0xAB27,
+	0xAB28,
+	0xAB2F,
+	0xAB30,
+	0xAB5B,
+	0xAB5C,
+	0xAB66,
+	0xAB70,
+	0xABC0,
+	0xABE3,
+	0xABEB,
+	0xABEC,
+	0xABEE,
+	0xABF0,
+	0xABFA,
+	0xAC00,
+	0xD7A4,
+	0xD7B0,
+	0xD7C7,
+	0xD7CB,
+	0xD7FC,
+	0xF900,
+	0xFA6E,
+	0xFA70,
+	0xFADA,
+	0xFB00,
+	0xFB07,
+	0xFB13,
+	0xFB18,
+	0xFB1D,
+	0xFB1E,
+	0xFB1F,
+	0xFB29,
+	0xFB2A,
+	0xFB37,
+	0xFB38,
+	0xFB3D,
+	0xFB3E,
+	0xFB3F,
+	0xFB40,
+	0xFB42,
+	0xFB43,
+	0xFB45,
+	0xFB46,
+	0xFBB2,
+	0xFBD3,
+	0xFD3E,
+	0xFD40,
+	0xFD50,
+	0xFD90,
+	0xFD92,
+	0xFDC8,
+	0xFDF0,
+	0xFDFC,
+	0xFE00,
+	0xFE10,
+	0xFE12,
+	0xFE13,
+	0xFE14,
+	0xFE17,
+	0xFE19,
+	0xFE20,
+	0xFE30,
+	0xFE31,
+	0xFE33,
+	0xFE35,
+	0xFE45,
+	0xFE47,
+	0xFE49,
+	0xFE50,
+	0xFE52,
+	0xFE53,
+	0xFE55,
+	0xFE56,
+	0xFE58,
+	0xFE59,
+	0xFE5F,
+	0xFE63,
+	0xFE64,
+	0xFE70,
+	0xFE75,
+	0xFE76,
+	0xFEFD,
+	0xFEFF,
+	0xFF00,
+	0xFF01,
+	0xFF02,
+	0xFF08,
+	0xFF0A,
+	0xFF0C,
+	0xFF0E,
+	0xFF0F,
+	0xFF1A,
+	0xFF1B,
+	0xFF1F,
+	0xFF20,
+	0xFF21,
+	0xFF3B,
+	0xFF3C,
+	0xFF3D,
+	0xFF3E,
+	0xFF41,
+	0xFF5B,
+	0xFF5C,
+	0xFF5D,
+	0xFF5E,
+	0xFF5F,
+	0xFF61,
+	0xFF62,
+	0xFF64,
+	0xFF65,
+	0xFF66,
+	0xFF9E,
+	0xFFA0,
+	0xFFBF,
+	0xFFC2,
+	0xFFC8,
+	0xFFCA,
+	0xFFD0,
+	0xFFD2,
+	0xFFD8,
+	0xFFDA,
+	0xFFDD,
+	0xFFF9,
+	0xFFFC,
+	0x10000,
+	0x1000C,
+	0x1000D,
+	0x10027,
+	0x10028,
+	0x1003B,
+	0x1003C,
+	0x1003E,
+	0x1003F,
+	0x1004E,
+	0x10050,
+	0x1005E,
+	0x10080,
+	0x100FB,
+	0x10140,
+	0x10175,
+	0x101FD,
+	0x101FE,
+	0x10280,
+	0x1029D,
+	0x102A0,
+	0x102D1,
+	0x102E0,
+	0x102E1,
+	0x10300,
+	0x10320,
+	0x10330,
+	0x1034B,
+	0x10350,
+	0x10376,
+	0x1037B,
+	0x10380,
+	0x1039E,
+	0x103A0,
+	0x103C4,
+	0x103C8,
+	0x103D0,
+	0x103D1,
+	0x103D6,
+	0x10400,
+	0x10428,
+	0x10450,
+	0x1049E,
+	0x104A0,
+	0x104AA,
+	0x10500,
+	0x10528,
+	0x10530,
+	0x10564,
+	0x10600,
+	0x10737,
+	0x10740,
+	0x10756,
+	0x10760,
+	0x10768,
+	0x10800,
+	0x10806,
+	0x10808,
+	0x10809,
+	0x1080A,
+	0x10836,
+	0x10837,
+	0x10839,
+	0x1083C,
+	0x1083D,
+	0x1083F,
+	0x10856,
+	0x10860,
+	0x10877,
+	0x10880,
+	0x1089F,
+	0x108E0,
+	0x108F3,
+	0x108F4,
+	0x108F6,
+	0x10900,
+	0x10916,
+	0x10920,
+	0x1093A,
+	0x10980,
+	0x109B8,
+	0x109BE,
+	0x109C0,
+	0x10A00,
+	0x10A01,
+	0x10A04,
+	0x10A05,
+	0x10A07,
+	0x10A0C,
+	0x10A10,
+	0x10A14,
+	0x10A15,
+	0x10A18,
+	0x10A19,
+	0x10A34,
+	0x10A38,
+	0x10A3B,
+	0x10A3F,
+	0x10A40,
+	0x10A56,
+	0x10A58,
+	0x10A60,
+	0x10A7D,
+	0x10A80,
+	0x10A9D,
+	0x10AC0,
+	0x10AC8,
+	0x10AC9,
+	0x10AE5,
+	0x10AE7,
+	0x10B00,
+	0x10B36,
+	0x10B40,
+	0x10B56,
+	0x10B60,
+	0x10B73,
+	0x10B80,
+	0x10B92,
+	0x10C00,
+	0x10C49,
+	0x10C80,
+	0x10CB3,
+	0x10CC0,
+	0x10CF3,
+	0x11000,
+	0x11003,
+	0x11038,
+	0x11047,
+	0x11049,
+	0x11066,
+	0x11070,
+	0x1107F,
+	0x11083,
+	0x110B0,
+	0x110BB,
+	0x110BD,
+	0x110BE,
+	0x110C2,
+	0x110D0,
+	0x110E9,
+	0x110F0,
+	0x110FA,
+	0x11100,
+	0x11103,
+	0x11127,
+	0x11135,
+	0x11136,
+	0x11140,
+	0x11141,
+	0x11144,
+	0x11150,
+	0x11173,
+	0x11174,
+	0x11176,
+	0x11177,
+	0x11180,
+	0x11183,
+	0x111B3,
+	0x111C1,
+	0x111C5,
+	0x111C7,
+	0x111CA,
+	0x111CD,
+	0x111CE,
+	0x111D0,
+	0x111DA,
+	0x111DB,
+	0x111DC,
+	0x111DD,
+	0x111DE,
+	0x111E0,
+	0x11200,
+	0x11212,
+	0x11213,
+	0x1122C,
+	0x11238,
+	0x1123A,
+	0x1123B,
+	0x1123D,
+	0x11280,
+	0x11287,
+	0x11288,
+	0x11289,
+	0x1128A,
+	0x1128E,
+	0x1128F,
+	0x1129E,
+	0x1129F,
+	0x112A9,
+	0x112AA,
+	0x112B0,
+	0x112DF,
+	0x112EB,
+	0x112F0,
+	0x112FA,
+	0x11300,
+	0x11304,
+	0x11305,
+	0x1130D,
+	0x1130F,
+	0x11311,
+	0x11313,
+	0x11329,
+	0x1132A,
+	0x11331,
+	0x11332,
+	0x11334,
+	0x11335,
+	0x1133A,
+	0x1133C,
+	0x1133D,
+	0x1133E,
+	0x11345,
+	0x11347,
+	0x11349,
+	0x1134B,
+	0x1134E,
+	0x11350,
+	0x11351,
+	0x11357,
+	0x11358,
+	0x1135D,
+	0x11362,
+	0x11364,
+	0x11366,
+	0x1136D,
+	0x11370,
+	0x11375,
+	0x11480,
+	0x114B0,
+	0x114C4,
+	0x114C6,
+	0x114C7,
+	0x114C8,
+	0x114D0,
+	0x114DA,
+	0x11580,
+	0x115AF,
+	0x115B6,
+	0x115B8,
+	0x115C1,
+	0x115C2,
+	0x115C4,
+	0x115C9,
+	0x115D8,
+	0x115DC,
+	0x115DE,
+	0x11600,
+	0x11630,
+	0x11641,
+	0x11643,
+	0x11644,
+	0x11645,
+	0x11650,
+	0x1165A,
+	0x11680,
+	0x116AB,
+	0x116B8,
+	0x116C0,
+	0x116CA,
+	0x11700,
+	0x1171A,
+	0x1171D,
+	0x1172C,
+	0x11730,
+	0x1173A,
+	0x1173C,
+	0x1173F,
+	0x118A0,
+	0x118C0,
+	0x118E0,
+	0x118EA,
+	0x118FF,
+	0x11900,
+	0x11AC0,
+	0x11AF9,
+	0x12000,
+	0x1239A,
+	0x12400,
+	0x1246F,
+	0x12480,
+	0x12544,
+	0x13000,
+	0x1342F,
+	0x14400,
+	0x14647,
+	0x16800,
+	0x16A39,
+	0x16A40,
+	0x16A5F,
+	0x16A60,
+	0x16A6A,
+	0x16A6E,
+	0x16A70,
+	0x16AD0,
+	0x16AEE,
+	0x16AF0,
+	0x16AF5,
+	0x16AF6,
+	0x16B00,
+	0x16B30,
+	0x16B37,
+	0x16B39,
+	0x16B40,
+	0x16B44,
+	0x16B45,
+	0x16B50,
+	0x16B5A,
+	0x16B63,
+	0x16B78,
+	0x16B7D,
+	0x16B90,
+	0x16F00,
+	0x16F45,
+	0x16F50,
+	0x16F51,
+	0x16F7F,
+	0x16F8F,
+	0x16F93,
+	0x16FA0,
+	0x1B000,
+	0x1B002,
+	0x1BC00,
+	0x1BC6B,
+	0x1BC70,
+	0x1BC7D,
+	0x1BC80,
+	0x1BC89,
+	0x1BC90,
+	0x1BC9A,
+	0x1BC9D,
+	0x1BC9F,
+	0x1BCA0,
+	0x1BCA4,
+	0x1D165,
+	0x1D16A,
+	0x1D16D,
+	0x1D173,
+	0x1D17B,
+	0x1D183,
+	0x1D185,
+	0x1D18C,
+	0x1D1AA,
+	0x1D1AE,
+	0x1D242,
+	0x1D245,
+	0x1D400,
+	0x1D41A,
+	0x1D434,
+	0x1D44E,
+	0x1D455,
+	0x1D456,
+	0x1D468,
+	0x1D482,
+	0x1D49C,
+	0x1D49D,
+	0x1D49E,
+	0x1D4A0,
+	0x1D4A2,
+	0x1D4A3,
+	0x1D4A5,
+	0x1D4A7,
+	0x1D4A9,
+	0x1D4AD,
+	0x1D4AE,
+	0x1D4B6,
+	0x1D4BA,
+	0x1D4BB,
+	0x1D4BC,
+	0x1D4BD,
+	0x1D4C4,
+	0x1D4C5,
+	0x1D4D0,
+	0x1D4EA,
+	0x1D504,
+	0x1D506,
+	0x1D507,
+	0x1D50B,
+	0x1D50D,
+	0x1D515,
+	0x1D516,
+	0x1D51D,
+	0x1D51E,
+	0x1D538,
+	0x1D53A,
+	0x1D53B,
+	0x1D53F,
+	0x1D540,
+	0x1D545,
+	0x1D546,
+	0x1D547,
+	0x1D54A,
+	0x1D551,
+	0x1D552,
+	0x1D56C,
+	0x1D586,
+	0x1D5A0,
+	0x1D5BA,
+	0x1D5D4,
+	0x1D5EE,
+	0x1D608,
+	0x1D622,
+	0x1D63C,
+	0x1D656,
+	0x1D670,
+	0x1D68A,
+	0x1D6A6,
+	0x1D6A8,
+	0x1D6C1,
+	0x1D6C2,
+	0x1D6DB,
+	0x1D6DC,
+	0x1D6E2,
+	0x1D6FB,
+	0x1D6FC,
+	0x1D715,
+	0x1D716,
+	0x1D71C,
+	0x1D735,
+	0x1D736,
+	0x1D74F,
+	0x1D750,
+	0x1D756,
+	0x1D76F,
+	0x1D770,
+	0x1D789,
+	0x1D78A,
+	0x1D790,
+	0x1D7A9,
+	0x1D7AA,
+	0x1D7C3,
+	0x1D7C4,
+	0x1D7CA,
+	0x1D7CB,
+	0x1D7CC,
+	0x1D7CE,
+	0x1D800,
+	0x1DA00,
+	0x1DA37,
+	0x1DA3B,
+	0x1DA6D,
+	0x1DA75,
+	0x1DA76,
+	0x1DA84,
+	0x1DA85,
+	0x1DA88,
+	0x1DA89,
+	0x1DA9B,
+	0x1DAA0,
+	0x1DAA1,
+	0x1DAB0,
+	0x1E800,
+	0x1E8C5,
+	0x1E8D0,
+	0x1E8D7,
+	0x1EE00,
+	0x1EE04,
+	0x1EE05,
+	0x1EE20,
+	0x1EE21,
+	0x1EE23,
+	0x1EE24,
+	0x1EE25,
+	0x1EE27,
+	0x1EE28,
+	0x1EE29,
+	0x1EE33,
+	0x1EE34,
+	0x1EE38,
+	0x1EE39,
+	0x1EE3A,
+	0x1EE3B,
+	0x1EE3C,
+	0x1EE42,
+	0x1EE43,
+	0x1EE47,
+	0x1EE48,
+	0x1EE49,
+	0x1EE4A,
+	0x1EE4B,
+	0x1EE4C,
+	0x1EE4D,
+	0x1EE50,
+	0x1EE51,
+	0x1EE53,
+	0x1EE54,
+	0x1EE55,
+	0x1EE57,
+	0x1EE58,
+	0x1EE59,
+	0x1EE5A,
+	0x1EE5B,
+	0x1EE5C,
+	0x1EE5D,
+	0x1EE5E,
+	0x1EE5F,
+	0x1EE60,
+	0x1EE61,
+	0x1EE63,
+	0x1EE64,
+	0x1EE65,
+	0x1EE67,
+	0x1EE6B,
+	0x1EE6C,
+	0x1EE73,
+	0x1EE74,
+	0x1EE78,
+	0x1EE79,
+	0x1EE7D,
+	0x1EE7E,
+	0x1EE7F,
+	0x1EE80,
+	0x1EE8A,
+	0x1EE8B,
+	0x1EE9C,
+	0x1EEA1,
+	0x1EEA4,
+	0x1EEA5,
+	0x1EEAA,
+	0x1EEAB,
+	0x1EEBC,
+	0x1F130,
+	0x1F14A,
+	0x1F150,
+	0x1F16A,
+	0x1F170,
+	0x1F18A,
+	0x1F676,
+	0x1F679,
+	0x20000,
+	0x2A6D7,
+	0x2A700,
+	0x2B735,
+	0x2B740,
+	0x2B81E,
+	0x2B820,
+	0x2CEA2,
+	0x2F800,
+	0x2FA1E,
+	0xE0001,
+	0xE0002,
+	0xE0020,
+	0xE0080,
+	0xE0100,
+	0xE01F0
+};
+
+#endif	/* defined(PERL_IN_PERL_C) */
+
+#if defined(PERL_IN_REGEXEC_C)
+
+#define SB_ENUM_COUNT 16
+
+typedef enum {
+	SB_Other = 0,
+	SB_ATerm = 1,
+	SB_CR = 2,
+	SB_Close = 3,
+	SB_Extend = 4,
+	SB_Format = 5,
+	SB_LF = 6,
+	SB_Lower = 7,
+	SB_Numeric = 8,
+	SB_OLetter = 9,
+	SB_SContinue = 10,
+	SB_STerm = 11,
+	SB_Sep = 12,
+	SB_Sp = 13,
+	SB_Upper = 14,
+	SB_EDGE = 15
+} SB_enum;
+
+static const SB_enum _Perl_SB_invmap[] = { /* for EBCDIC 1047 */
+	SB_Other,
+	SB_Sp,
+	SB_Other,
+	SB_Sp,
+	SB_CR,
+	SB_Other,
+	SB_LF,
+	SB_Other,
+	SB_Sep,
+	SB_Other,
+	SB_Sp,
+	SB_Lower,
+	SB_Other,
+	SB_ATerm,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_Lower,
+	SB_STerm,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_SContinue,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_SContinue,
+	SB_Other,
+	SB_STerm,
+	SB_Lower,
+	SB_Upper,
+	SB_Other,
+	SB_SContinue,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_Close,
+	SB_Upper,
+	SB_Lower,
+	SB_Close,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Upper,
+	SB_Close,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_Close,
+	SB_Upper,
+	SB_Format,
+	SB_Lower,
+	SB_Close,
+	SB_Upper,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Numeric,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_OLetter,
+	SB_Upper,
+	SB_Lower,
+	SB_OLetter,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_OLetter,
+	SB_Lower,
+	SB_OLetter,
+	SB_Lower,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_OLetter,
+	SB_Other,
+	SB_Upper,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Other,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Other,
+	SB_Extend,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_SContinue,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_STerm,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Format,
+	SB_Other,
+	SB_SContinue,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Format,
+	SB_Other,
+	SB_STerm,
+	SB_OLetter,
+	SB_Extend,
+	SB_Numeric,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_STerm,
+	SB_OLetter,
+	SB_Extend,
+	SB_Format,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Numeric,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_STerm,
+	SB_Other,
+	SB_Format,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Other,
+	SB_Numeric,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Other,
+	SB_SContinue,
+	SB_STerm,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_STerm,
+	SB_Numeric,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Numeric,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Numeric,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Close,
+	SB_Extend,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Numeric,
+	SB_STerm,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_Numeric,
+	SB_Extend,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_STerm,
+	SB_Other,
+	SB_STerm,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_STerm,
+	SB_OLetter,
+	SB_Sp,
+	SB_OLetter,
+	SB_Close,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_STerm,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_SContinue,
+	SB_STerm,
+	SB_Other,
+	SB_SContinue,
+	SB_STerm,
+	SB_Other,
+	SB_Extend,
+	SB_Format,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_STerm,
+	SB_Numeric,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Numeric,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_OLetter,
+	SB_STerm,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Other,
+	SB_Numeric,
+	SB_STerm,
+	SB_Other,
+	SB_STerm,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Numeric,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_STerm,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_OLetter,
+	SB_Numeric,
+	SB_OLetter,
+	SB_STerm,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Lower,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Upper,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Upper,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Upper,
+	SB_Other,
+	SB_Lower,
+	SB_Upper,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Upper,
+	SB_Other,
+	SB_Sp,
+	SB_Format,
+	SB_Extend,
+	SB_Format,
+	SB_Other,
+	SB_SContinue,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_ATerm,
+	SB_Other,
+	SB_Sep,
+	SB_Format,
+	SB_Sp,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_STerm,
+	SB_Other,
+	SB_Close,
+	SB_STerm,
+	SB_Other,
+	SB_Sp,
+	SB_Format,
+	SB_Other,
+	SB_Format,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Close,
+	SB_Lower,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_OLetter,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Upper,
+	SB_Lower,
+	SB_OLetter,
+	SB_Upper,
+	SB_Lower,
+	SB_OLetter,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_Upper,
+	SB_Lower,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Other,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Extend,
+	SB_Upper,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Close,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_STerm,
+	SB_OLetter,
+	SB_Other,
+	SB_STerm,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_Sp,
+	SB_SContinue,
+	SB_STerm,
+	SB_Other,
+	SB_OLetter,
+	SB_Close,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_STerm,
+	SB_OLetter,
+	SB_Other,
+	SB_STerm,
+	SB_OLetter,
+	SB_Numeric,
+	SB_OLetter,
+	SB_Other,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_STerm,
+	SB_Other,
+	SB_STerm,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_OLetter,
+	SB_Other,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_OLetter,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Other,
+	SB_OLetter,
+	SB_Lower,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_STerm,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_STerm,
+	SB_Numeric,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Numeric,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_STerm,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_STerm,
+	SB_Other,
+	SB_OLetter,
+	SB_Numeric,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Numeric,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_STerm,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_STerm,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_OLetter,
+	SB_Extend,
+	SB_STerm,
+	SB_Extend,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Close,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_SContinue,
+	SB_Other,
+	SB_SContinue,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_SContinue,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_SContinue,
+	SB_ATerm,
+	SB_Other,
+	SB_SContinue,
+	SB_STerm,
+	SB_SContinue,
+	SB_Close,
+	SB_Other,
+	SB_SContinue,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Format,
+	SB_Other,
+	SB_STerm,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_SContinue,
+	SB_ATerm,
+	SB_Other,
+	SB_SContinue,
+	SB_Other,
+	SB_STerm,
+	SB_Other,
+	SB_Upper,
+	SB_Close,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_Lower,
+	SB_Close,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_Close,
+	SB_STerm,
+	SB_Close,
+	SB_SContinue,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Format,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Upper,
+	SB_Lower,
+	SB_OLetter,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_STerm,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_STerm,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Format,
+	SB_STerm,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_STerm,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_STerm,
+	SB_Other,
+	SB_Extend,
+	SB_STerm,
+	SB_Other,
+	SB_Numeric,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_STerm,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_STerm,
+	SB_Other,
+	SB_STerm,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_STerm,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_STerm,
+	SB_Other,
+	SB_STerm,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_STerm,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_STerm,
+	SB_Other,
+	SB_Upper,
+	SB_Lower,
+	SB_Numeric,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_STerm,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_STerm,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_STerm,
+	SB_Other,
+	SB_OLetter,
+	SB_STerm,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_STerm,
+	SB_Format,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Format,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Lower,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Upper,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Upper,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Upper,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Upper,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_STerm,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Format,
+	SB_Other,
+	SB_Format,
+	SB_Other,
+	SB_Extend,
+	SB_Other
+};
+
+#endif	/* defined(PERL_IN_REGEXEC_C) */
+
+#if defined(PERL_IN_PERL_C)
+
+static const UV _Perl_WB_invlist[] = { /* for EBCDIC 1047 */
+	1558,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	0,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x5,
+	0x6,
+	0xB,
+	0xD,
+	0xE,
+	0x15,
+	0x16,
+	0x25,
+	0x26,
+	0x40,
+	0x42,
+	0x4A,
+	0x4B,
+	0x4C,
+	0x51,
+	0x5A,
+	0x5E,
+	0x5F,
+	0x62,
+	0x6A,
+	0x6B,
+	0x6C,
+	0x6D,
+	0x6E,
+	0x70,
+	0x79,
+	0x7A,
+	0x7B,
+	0x7D,
+	0x7E,
+	0x7F,
+	0x80,
+	0x8A,
+	0x8C,
+	0x8F,
+	0x91,
+	0x9D,
+	0x9E,
+	0x9F,
+	0xA0,
+	0xA1,
+	0xA2,
+	0xAA,
+	0xAC,
+	0xAD,
+	0xAE,
+	0xAF,
+	0xB3,
+	0xB4,
+	0xBA,
+	0xBB,
+	0xC1,
+	0xCA,
+	0xCB,
+	0xD0,
+	0xD1,
+	0xDA,
+	0xDB,
+	0xE0,
+	0xE2,
+	0xEA,
+	0xEB,
+	0xF0,
+	0xFA,
+	0xFB,
+	0xFF,
+	0x100,
+	0x2C2,
+	0x2C6,
+	0x2D2,
+	0x2D7,
+	0x2D8,
+	0x2E0,
+	0x2E5,
+	0x2EC,
+	0x2ED,
+	0x2EE,
+	0x2EF,
+	0x300,
+	0x370,
+	0x375,
+	0x376,
+	0x378,
+	0x37A,
+	0x37E,
+	0x37F,
+	0x380,
+	0x386,
+	0x387,
+	0x388,
+	0x38B,
+	0x38C,
+	0x38D,
+	0x38E,
+	0x3A2,
+	0x3A3,
+	0x3F6,
+	0x3F7,
+	0x482,
+	0x483,
+	0x48A,
+	0x530,
+	0x531,
+	0x557,
+	0x559,
+	0x55A,
+	0x561,
+	0x588,
+	0x589,
+	0x58A,
+	0x591,
+	0x5BE,
+	0x5BF,
+	0x5C0,
+	0x5C1,
+	0x5C3,
+	0x5C4,
+	0x5C6,
+	0x5C7,
+	0x5C8,
+	0x5D0,
+	0x5EB,
+	0x5F0,
+	0x5F3,
+	0x5F4,
+	0x5F5,
+	0x600,
+	0x606,
+	0x60C,
+	0x60E,
+	0x610,
+	0x61B,
+	0x61C,
+	0x61D,
+	0x620,
+	0x64B,
+	0x660,
+	0x66A,
+	0x66B,
+	0x66C,
+	0x66D,
+	0x66E,
+	0x670,
+	0x671,
+	0x6D4,
+	0x6D5,
+	0x6D6,
+	0x6DD,
+	0x6DE,
+	0x6DF,
+	0x6E5,
+	0x6E7,
+	0x6E9,
+	0x6EA,
+	0x6EE,
+	0x6F0,
+	0x6FA,
+	0x6FD,
+	0x6FF,
+	0x700,
+	0x70F,
+	0x710,
+	0x711,
+	0x712,
+	0x730,
+	0x74B,
+	0x74D,
+	0x7A6,
+	0x7B1,
+	0x7B2,
+	0x7C0,
+	0x7CA,
+	0x7EB,
+	0x7F4,
+	0x7F6,
+	0x7F8,
+	0x7F9,
+	0x7FA,
+	0x7FB,
+	0x800,
+	0x816,
+	0x81A,
+	0x81B,
+	0x824,
+	0x825,
+	0x828,
+	0x829,
+	0x82E,
+	0x840,
+	0x859,
+	0x85C,
+	0x8A0,
+	0x8B5,
+	0x8E3,
+	0x904,
+	0x93A,
+	0x93D,
+	0x93E,
+	0x950,
+	0x951,
+	0x958,
+	0x962,
+	0x964,
+	0x966,
+	0x970,
+	0x971,
+	0x981,
+	0x984,
+	0x985,
+	0x98D,
+	0x98F,
+	0x991,
+	0x993,
+	0x9A9,
+	0x9AA,
+	0x9B1,
+	0x9B2,
+	0x9B3,
+	0x9B6,
+	0x9BA,
+	0x9BC,
+	0x9BD,
+	0x9BE,
+	0x9C5,
+	0x9C7,
+	0x9C9,
+	0x9CB,
+	0x9CE,
+	0x9CF,
+	0x9D7,
+	0x9D8,
+	0x9DC,
+	0x9DE,
+	0x9DF,
+	0x9E2,
+	0x9E4,
+	0x9E6,
+	0x9F0,
+	0x9F2,
+	0xA01,
+	0xA04,
+	0xA05,
+	0xA0B,
+	0xA0F,
+	0xA11,
+	0xA13,
+	0xA29,
+	0xA2A,
+	0xA31,
+	0xA32,
+	0xA34,
+	0xA35,
+	0xA37,
+	0xA38,
+	0xA3A,
+	0xA3C,
+	0xA3D,
+	0xA3E,
+	0xA43,
+	0xA47,
+	0xA49,
+	0xA4B,
+	0xA4E,
+	0xA51,
+	0xA52,
+	0xA59,
+	0xA5D,
+	0xA5E,
+	0xA5F,
+	0xA66,
+	0xA70,
+	0xA72,
+	0xA75,
+	0xA76,
+	0xA81,
+	0xA84,
+	0xA85,
+	0xA8E,
+	0xA8F,
+	0xA92,
+	0xA93,
+	0xAA9,
+	0xAAA,
+	0xAB1,
+	0xAB2,
+	0xAB4,
+	0xAB5,
+	0xABA,
+	0xABC,
+	0xABD,
+	0xABE,
+	0xAC6,
+	0xAC7,
+	0xACA,
+	0xACB,
+	0xACE,
+	0xAD0,
+	0xAD1,
+	0xAE0,
+	0xAE2,
+	0xAE4,
+	0xAE6,
+	0xAF0,
+	0xAF9,
+	0xAFA,
+	0xB01,
+	0xB04,
+	0xB05,
+	0xB0D,
+	0xB0F,
+	0xB11,
+	0xB13,
+	0xB29,
+	0xB2A,
+	0xB31,
+	0xB32,
+	0xB34,
+	0xB35,
+	0xB3A,
+	0xB3C,
+	0xB3D,
+	0xB3E,
+	0xB45,
+	0xB47,
+	0xB49,
+	0xB4B,
+	0xB4E,
+	0xB56,
+	0xB58,
+	0xB5C,
+	0xB5E,
+	0xB5F,
+	0xB62,
+	0xB64,
+	0xB66,
+	0xB70,
+	0xB71,
+	0xB72,
+	0xB82,
+	0xB83,
+	0xB84,
+	0xB85,
+	0xB8B,
+	0xB8E,
+	0xB91,
+	0xB92,
+	0xB96,
+	0xB99,
+	0xB9B,
+	0xB9C,
+	0xB9D,
+	0xB9E,
+	0xBA0,
+	0xBA3,
+	0xBA5,
+	0xBA8,
+	0xBAB,
+	0xBAE,
+	0xBBA,
+	0xBBE,
+	0xBC3,
+	0xBC6,
+	0xBC9,
+	0xBCA,
+	0xBCE,
+	0xBD0,
+	0xBD1,
+	0xBD7,
+	0xBD8,
+	0xBE6,
+	0xBF0,
+	0xC00,
+	0xC04,
+	0xC05,
+	0xC0D,
+	0xC0E,
+	0xC11,
+	0xC12,
+	0xC29,
+	0xC2A,
+	0xC3A,
+	0xC3D,
+	0xC3E,
+	0xC45,
+	0xC46,
+	0xC49,
+	0xC4A,
+	0xC4E,
+	0xC55,
+	0xC57,
+	0xC58,
+	0xC5B,
+	0xC60,
+	0xC62,
+	0xC64,
+	0xC66,
+	0xC70,
+	0xC81,
+	0xC84,
+	0xC85,
+	0xC8D,
+	0xC8E,
+	0xC91,
+	0xC92,
+	0xCA9,
+	0xCAA,
+	0xCB4,
+	0xCB5,
+	0xCBA,
+	0xCBC,
+	0xCBD,
+	0xCBE,
+	0xCC5,
+	0xCC6,
+	0xCC9,
+	0xCCA,
+	0xCCE,
+	0xCD5,
+	0xCD7,
+	0xCDE,
+	0xCDF,
+	0xCE0,
+	0xCE2,
+	0xCE4,
+	0xCE6,
+	0xCF0,
+	0xCF1,
+	0xCF3,
+	0xD01,
+	0xD04,
+	0xD05,
+	0xD0D,
+	0xD0E,
+	0xD11,
+	0xD12,
+	0xD3B,
+	0xD3D,
+	0xD3E,
+	0xD45,
+	0xD46,
+	0xD49,
+	0xD4A,
+	0xD4E,
+	0xD4F,
+	0xD57,
+	0xD58,
+	0xD5F,
+	0xD62,
+	0xD64,
+	0xD66,
+	0xD70,
+	0xD7A,
+	0xD80,
+	0xD82,
+	0xD84,
+	0xD85,
+	0xD97,
+	0xD9A,
+	0xDB2,
+	0xDB3,
+	0xDBC,
+	0xDBD,
+	0xDBE,
+	0xDC0,
+	0xDC7,
+	0xDCA,
+	0xDCB,
+	0xDCF,
+	0xDD5,
+	0xDD6,
+	0xDD7,
+	0xDD8,
+	0xDE0,
+	0xDE6,
+	0xDF0,
+	0xDF2,
+	0xDF4,
+	0xE31,
+	0xE32,
+	0xE34,
+	0xE3B,
+	0xE47,
+	0xE4F,
+	0xE50,
+	0xE5A,
+	0xEB1,
+	0xEB2,
+	0xEB4,
+	0xEBA,
+	0xEBB,
+	0xEBD,
+	0xEC8,
+	0xECE,
+	0xED0,
+	0xEDA,
+	0xF00,
+	0xF01,
+	0xF18,
+	0xF1A,
+	0xF20,
+	0xF2A,
+	0xF35,
+	0xF36,
+	0xF37,
+	0xF38,
+	0xF39,
+	0xF3A,
+	0xF3E,
+	0xF40,
+	0xF48,
+	0xF49,
+	0xF6D,
+	0xF71,
+	0xF85,
+	0xF86,
+	0xF88,
+	0xF8D,
+	0xF98,
+	0xF99,
+	0xFBD,
+	0xFC6,
+	0xFC7,
+	0x102B,
+	0x103F,
+	0x1040,
+	0x104A,
+	0x1056,
+	0x105A,
+	0x105E,
+	0x1061,
+	0x1062,
+	0x1065,
+	0x1067,
+	0x106E,
+	0x1071,
+	0x1075,
+	0x1082,
+	0x108E,
+	0x108F,
+	0x1090,
+	0x109A,
+	0x109E,
+	0x10A0,
+	0x10C6,
+	0x10C7,
+	0x10C8,
+	0x10CD,
+	0x10CE,
+	0x10D0,
+	0x10FB,
+	0x10FC,
+	0x1249,
+	0x124A,
+	0x124E,
+	0x1250,
+	0x1257,
+	0x1258,
+	0x1259,
+	0x125A,
+	0x125E,
+	0x1260,
+	0x1289,
+	0x128A,
+	0x128E,
+	0x1290,
+	0x12B1,
+	0x12B2,
+	0x12B6,
+	0x12B8,
+	0x12BF,
+	0x12C0,
+	0x12C1,
+	0x12C2,
+	0x12C6,
+	0x12C8,
+	0x12D7,
+	0x12D8,
+	0x1311,
+	0x1312,
+	0x1316,
+	0x1318,
+	0x135B,
+	0x135D,
+	0x1360,
+	0x1380,
+	0x1390,
+	0x13A0,
+	0x13F6,
+	0x13F8,
+	0x13FE,
+	0x1401,
+	0x166D,
+	0x166F,
+	0x1680,
+	0x1681,
+	0x169B,
+	0x16A0,
+	0x16EB,
+	0x16EE,
+	0x16F9,
+	0x1700,
+	0x170D,
+	0x170E,
+	0x1712,
+	0x1715,
+	0x1720,
+	0x1732,
+	0x1735,
+	0x1740,
+	0x1752,
+	0x1754,
+	0x1760,
+	0x176D,
+	0x176E,
+	0x1771,
+	0x1772,
+	0x1774,
+	0x17B4,
+	0x17D4,
+	0x17DD,
+	0x17DE,
+	0x17E0,
+	0x17EA,
+	0x180B,
+	0x180E,
+	0x180F,
+	0x1810,
+	0x181A,
+	0x1820,
+	0x1878,
+	0x1880,
+	0x18A9,
+	0x18AA,
+	0x18AB,
+	0x18B0,
+	0x18F6,
+	0x1900,
+	0x191F,
+	0x1920,
+	0x192C,
+	0x1930,
+	0x193C,
+	0x1946,
+	0x1950,
+	0x19D0,
+	0x19DA,
+	0x1A00,
+	0x1A17,
+	0x1A1C,
+	0x1A55,
+	0x1A5F,
+	0x1A60,
+	0x1A7D,
+	0x1A7F,
+	0x1A80,
+	0x1A8A,
+	0x1A90,
+	0x1A9A,
+	0x1AB0,
+	0x1ABF,
+	0x1B00,
+	0x1B05,
+	0x1B34,
+	0x1B45,
+	0x1B4C,
+	0x1B50,
+	0x1B5A,
+	0x1B6B,
+	0x1B74,
+	0x1B80,
+	0x1B83,
+	0x1BA1,
+	0x1BAE,
+	0x1BB0,
+	0x1BBA,
+	0x1BE6,
+	0x1BF4,
+	0x1C00,
+	0x1C24,
+	0x1C38,
+	0x1C40,
+	0x1C4A,
+	0x1C4D,
+	0x1C50,
+	0x1C5A,
+	0x1C7E,
+	0x1CD0,
+	0x1CD3,
+	0x1CD4,
+	0x1CE9,
+	0x1CED,
+	0x1CEE,
+	0x1CF2,
+	0x1CF5,
+	0x1CF7,
+	0x1CF8,
+	0x1CFA,
+	0x1D00,
+	0x1DC0,
+	0x1DF6,
+	0x1DFC,
+	0x1E00,
+	0x1F16,
+	0x1F18,
+	0x1F1E,
+	0x1F20,
+	0x1F46,
+	0x1F48,
+	0x1F4E,
+	0x1F50,
+	0x1F58,
+	0x1F59,
+	0x1F5A,
+	0x1F5B,
+	0x1F5C,
+	0x1F5D,
+	0x1F5E,
+	0x1F5F,
+	0x1F7E,
+	0x1F80,
+	0x1FB5,
+	0x1FB6,
+	0x1FBD,
+	0x1FBE,
+	0x1FBF,
+	0x1FC2,
+	0x1FC5,
+	0x1FC6,
+	0x1FCD,
+	0x1FD0,
+	0x1FD4,
+	0x1FD6,
+	0x1FDC,
+	0x1FE0,
+	0x1FED,
+	0x1FF2,
+	0x1FF5,
+	0x1FF6,
+	0x1FFD,
+	0x2000,
+	0x200B,
+	0x200C,
+	0x200E,
+	0x2010,
+	0x2018,
+	0x201A,
+	0x2024,
+	0x2025,
+	0x2027,
+	0x2028,
+	0x202A,
+	0x202F,
+	0x2030,
+	0x203F,
+	0x2041,
+	0x2044,
+	0x2045,
+	0x2054,
+	0x2055,
+	0x205F,
+	0x2060,
+	0x2065,
+	0x2066,
+	0x2070,
+	0x2071,
+	0x2072,
+	0x207F,
+	0x2080,
+	0x2090,
+	0x209D,
+	0x20D0,
+	0x20F1,
+	0x2102,
+	0x2103,
+	0x2107,
+	0x2108,
+	0x210A,
+	0x2114,
+	0x2115,
+	0x2116,
+	0x2119,
+	0x211E,
+	0x2124,
+	0x2125,
+	0x2126,
+	0x2127,
+	0x2128,
+	0x2129,
+	0x212A,
+	0x212E,
+	0x212F,
+	0x213A,
+	0x213C,
+	0x2140,
+	0x2145,
+	0x214A,
+	0x214E,
+	0x214F,
+	0x2160,
+	0x2189,
+	0x24B6,
+	0x24EA,
+	0x2C00,
+	0x2C2F,
+	0x2C30,
+	0x2C5F,
+	0x2C60,
+	0x2CE5,
+	0x2CEB,
+	0x2CEF,
+	0x2CF2,
+	0x2CF4,
+	0x2D00,
+	0x2D26,
+	0x2D27,
+	0x2D28,
+	0x2D2D,
+	0x2D2E,
+	0x2D30,
+	0x2D68,
+	0x2D6F,
+	0x2D70,
+	0x2D7F,
+	0x2D80,
+	0x2D97,
+	0x2DA0,
+	0x2DA7,
+	0x2DA8,
+	0x2DAF,
+	0x2DB0,
+	0x2DB7,
+	0x2DB8,
+	0x2DBF,
+	0x2DC0,
+	0x2DC7,
+	0x2DC8,
+	0x2DCF,
+	0x2DD0,
+	0x2DD7,
+	0x2DD8,
+	0x2DDF,
+	0x2DE0,
+	0x2E00,
+	0x2E2F,
+	0x2E30,
+	0x3000,
+	0x3001,
+	0x3005,
+	0x3006,
+	0x302A,
+	0x3030,
+	0x3031,
+	0x3036,
+	0x303B,
+	0x303D,
+	0x3099,
+	0x309B,
+	0x309D,
+	0x30A0,
+	0x30FB,
+	0x30FC,
+	0x3100,
+	0x3105,
+	0x312E,
+	0x3131,
+	0x318F,
+	0x31A0,
+	0x31BB,
+	0x31F0,
+	0x3200,
+	0x32D0,
+	0x32FF,
+	0x3300,
+	0x3358,
+	0xA000,
+	0xA48D,
+	0xA4D0,
+	0xA4FE,
+	0xA500,
+	0xA60D,
+	0xA610,
+	0xA620,
+	0xA62A,
+	0xA62C,
+	0xA640,
+	0xA66F,
+	0xA673,
+	0xA674,
+	0xA67E,
+	0xA67F,
+	0xA69E,
+	0xA6A0,
+	0xA6F0,
+	0xA6F2,
+	0xA717,
+	0xA720,
+	0xA722,
+	0xA789,
+	0xA78B,
+	0xA7AE,
+	0xA7B0,
+	0xA7B8,
+	0xA7F7,
+	0xA802,
+	0xA803,
+	0xA806,
+	0xA807,
+	0xA80B,
+	0xA80C,
+	0xA823,
+	0xA828,
+	0xA840,
+	0xA874,
+	0xA880,
+	0xA882,
+	0xA8B4,
+	0xA8C5,
+	0xA8D0,
+	0xA8DA,
+	0xA8E0,
+	0xA8F2,
+	0xA8F8,
+	0xA8FB,
+	0xA8FC,
+	0xA8FD,
+	0xA8FE,
+	0xA900,
+	0xA90A,
+	0xA926,
+	0xA92E,
+	0xA930,
+	0xA947,
+	0xA954,
+	0xA960,
+	0xA97D,
+	0xA980,
+	0xA984,
+	0xA9B3,
+	0xA9C1,
+	0xA9CF,
+	0xA9D0,
+	0xA9DA,
+	0xA9E5,
+	0xA9E6,
+	0xA9F0,
+	0xA9FA,
+	0xAA00,
+	0xAA29,
+	0xAA37,
+	0xAA40,
+	0xAA43,
+	0xAA44,
+	0xAA4C,
+	0xAA4E,
+	0xAA50,
+	0xAA5A,
+	0xAA7B,
+	0xAA7E,
+	0xAAB0,
+	0xAAB1,
+	0xAAB2,
+	0xAAB5,
+	0xAAB7,
+	0xAAB9,
+	0xAABE,
+	0xAAC0,
+	0xAAC1,
+	0xAAC2,
+	0xAAE0,
+	0xAAEB,
+	0xAAF0,
+	0xAAF2,
+	0xAAF5,
+	0xAAF7,
+	0xAB01,
+	0xAB07,
+	0xAB09,
+	0xAB0F,
+	0xAB11,
+	0xAB17,
+	0xAB20,
+	0xAB27,
+	0xAB28,
+	0xAB2F,
+	0xAB30,
+	0xAB5B,
+	0xAB5C,
+	0xAB66,
+	0xAB70,
+	0xABE3,
+	0xABEB,
+	0xABEC,
+	0xABEE,
+	0xABF0,
+	0xABFA,
+	0xAC00,
+	0xD7A4,
+	0xD7B0,
+	0xD7C7,
+	0xD7CB,
+	0xD7FC,
+	0xFB00,
+	0xFB07,
+	0xFB13,
+	0xFB18,
+	0xFB1D,
+	0xFB1E,
+	0xFB1F,
+	0xFB29,
+	0xFB2A,
+	0xFB37,
+	0xFB38,
+	0xFB3D,
+	0xFB3E,
+	0xFB3F,
+	0xFB40,
+	0xFB42,
+	0xFB43,
+	0xFB45,
+	0xFB46,
+	0xFB50,
+	0xFBB2,
+	0xFBD3,
+	0xFD3E,
+	0xFD50,
+	0xFD90,
+	0xFD92,
+	0xFDC8,
+	0xFDF0,
+	0xFDFC,
+	0xFE00,
+	0xFE10,
+	0xFE11,
+	0xFE13,
+	0xFE14,
+	0xFE15,
+	0xFE20,
+	0xFE30,
+	0xFE33,
+	0xFE35,
+	0xFE4D,
+	0xFE50,
+	0xFE51,
+	0xFE52,
+	0xFE53,
+	0xFE54,
+	0xFE55,
+	0xFE56,
+	0xFE70,
+	0xFE75,
+	0xFE76,
+	0xFEFD,
+	0xFEFF,
+	0xFF00,
+	0xFF07,
+	0xFF08,
+	0xFF0C,
+	0xFF0D,
+	0xFF0E,
+	0xFF0F,
+	0xFF1A,
+	0xFF1B,
+	0xFF1C,
+	0xFF21,
+	0xFF3B,
+	0xFF3F,
+	0xFF40,
+	0xFF41,
+	0xFF5B,
+	0xFF66,
+	0xFF9E,
+	0xFFA0,
+	0xFFBF,
+	0xFFC2,
+	0xFFC8,
+	0xFFCA,
+	0xFFD0,
+	0xFFD2,
+	0xFFD8,
+	0xFFDA,
+	0xFFDD,
+	0xFFF9,
+	0xFFFC,
+	0x10000,
+	0x1000C,
+	0x1000D,
+	0x10027,
+	0x10028,
+	0x1003B,
+	0x1003C,
+	0x1003E,
+	0x1003F,
+	0x1004E,
+	0x10050,
+	0x1005E,
+	0x10080,
+	0x100FB,
+	0x10140,
+	0x10175,
+	0x101FD,
+	0x101FE,
+	0x10280,
+	0x1029D,
+	0x102A0,
+	0x102D1,
+	0x102E0,
+	0x102E1,
+	0x10300,
+	0x10320,
+	0x10330,
+	0x1034B,
+	0x10350,
+	0x10376,
+	0x1037B,
+	0x10380,
+	0x1039E,
+	0x103A0,
+	0x103C4,
+	0x103C8,
+	0x103D0,
+	0x103D1,
+	0x103D6,
+	0x10400,
+	0x1049E,
+	0x104A0,
+	0x104AA,
+	0x10500,
+	0x10528,
+	0x10530,
+	0x10564,
+	0x10600,
+	0x10737,
+	0x10740,
+	0x10756,
+	0x10760,
+	0x10768,
+	0x10800,
+	0x10806,
+	0x10808,
+	0x10809,
+	0x1080A,
+	0x10836,
+	0x10837,
+	0x10839,
+	0x1083C,
+	0x1083D,
+	0x1083F,
+	0x10856,
+	0x10860,
+	0x10877,
+	0x10880,
+	0x1089F,
+	0x108E0,
+	0x108F3,
+	0x108F4,
+	0x108F6,
+	0x10900,
+	0x10916,
+	0x10920,
+	0x1093A,
+	0x10980,
+	0x109B8,
+	0x109BE,
+	0x109C0,
+	0x10A00,
+	0x10A01,
+	0x10A04,
+	0x10A05,
+	0x10A07,
+	0x10A0C,
+	0x10A10,
+	0x10A14,
+	0x10A15,
+	0x10A18,
+	0x10A19,
+	0x10A34,
+	0x10A38,
+	0x10A3B,
+	0x10A3F,
+	0x10A40,
+	0x10A60,
+	0x10A7D,
+	0x10A80,
+	0x10A9D,
+	0x10AC0,
+	0x10AC8,
+	0x10AC9,
+	0x10AE5,
+	0x10AE7,
+	0x10B00,
+	0x10B36,
+	0x10B40,
+	0x10B56,
+	0x10B60,
+	0x10B73,
+	0x10B80,
+	0x10B92,
+	0x10C00,
+	0x10C49,
+	0x10C80,
+	0x10CB3,
+	0x10CC0,
+	0x10CF3,
+	0x11000,
+	0x11003,
+	0x11038,
+	0x11047,
+	0x11066,
+	0x11070,
+	0x1107F,
+	0x11083,
+	0x110B0,
+	0x110BB,
+	0x110BD,
+	0x110BE,
+	0x110D0,
+	0x110E9,
+	0x110F0,
+	0x110FA,
+	0x11100,
+	0x11103,
+	0x11127,
+	0x11135,
+	0x11136,
+	0x11140,
+	0x11150,
+	0x11173,
+	0x11174,
+	0x11176,
+	0x11177,
+	0x11180,
+	0x11183,
+	0x111B3,
+	0x111C1,
+	0x111C5,
+	0x111CA,
+	0x111CD,
+	0x111D0,
+	0x111DA,
+	0x111DB,
+	0x111DC,
+	0x111DD,
+	0x11200,
+	0x11212,
+	0x11213,
+	0x1122C,
+	0x11238,
+	0x11280,
+	0x11287,
+	0x11288,
+	0x11289,
+	0x1128A,
+	0x1128E,
+	0x1128F,
+	0x1129E,
+	0x1129F,
+	0x112A9,
+	0x112B0,
+	0x112DF,
+	0x112EB,
+	0x112F0,
+	0x112FA,
+	0x11300,
+	0x11304,
+	0x11305,
+	0x1130D,
+	0x1130F,
+	0x11311,
+	0x11313,
+	0x11329,
+	0x1132A,
+	0x11331,
+	0x11332,
+	0x11334,
+	0x11335,
+	0x1133A,
+	0x1133C,
+	0x1133D,
+	0x1133E,
+	0x11345,
+	0x11347,
+	0x11349,
+	0x1134B,
+	0x1134E,
+	0x11350,
+	0x11351,
+	0x11357,
+	0x11358,
+	0x1135D,
+	0x11362,
+	0x11364,
+	0x11366,
+	0x1136D,
+	0x11370,
+	0x11375,
+	0x11480,
+	0x114B0,
+	0x114C4,
+	0x114C6,
+	0x114C7,
+	0x114C8,
+	0x114D0,
+	0x114DA,
+	0x11580,
+	0x115AF,
+	0x115B6,
+	0x115B8,
+	0x115C1,
+	0x115D8,
+	0x115DC,
+	0x115DE,
+	0x11600,
+	0x11630,
+	0x11641,
+	0x11644,
+	0x11645,
+	0x11650,
+	0x1165A,
+	0x11680,
+	0x116AB,
+	0x116B8,
+	0x116C0,
+	0x116CA,
+	0x1171D,
+	0x1172C,
+	0x11730,
+	0x1173A,
+	0x118A0,
+	0x118E0,
+	0x118EA,
+	0x118FF,
+	0x11900,
+	0x11AC0,
+	0x11AF9,
+	0x12000,
+	0x1239A,
+	0x12400,
+	0x1246F,
+	0x12480,
+	0x12544,
+	0x13000,
+	0x1342F,
+	0x14400,
+	0x14647,
+	0x16800,
+	0x16A39,
+	0x16A40,
+	0x16A5F,
+	0x16A60,
+	0x16A6A,
+	0x16AD0,
+	0x16AEE,
+	0x16AF0,
+	0x16AF5,
+	0x16B00,
+	0x16B30,
+	0x16B37,
+	0x16B40,
+	0x16B44,
+	0x16B50,
+	0x16B5A,
+	0x16B63,
+	0x16B78,
+	0x16B7D,
+	0x16B90,
+	0x16F00,
+	0x16F45,
+	0x16F50,
+	0x16F51,
+	0x16F7F,
+	0x16F8F,
+	0x16F93,
+	0x16FA0,
+	0x1B000,
+	0x1B001,
+	0x1BC00,
+	0x1BC6B,
+	0x1BC70,
+	0x1BC7D,
+	0x1BC80,
+	0x1BC89,
+	0x1BC90,
+	0x1BC9A,
+	0x1BC9D,
+	0x1BC9F,
+	0x1BCA0,
+	0x1BCA4,
+	0x1D165,
+	0x1D16A,
+	0x1D16D,
+	0x1D173,
+	0x1D17B,
+	0x1D183,
+	0x1D185,
+	0x1D18C,
+	0x1D1AA,
+	0x1D1AE,
+	0x1D242,
+	0x1D245,
+	0x1D400,
+	0x1D455,
+	0x1D456,
+	0x1D49D,
+	0x1D49E,
+	0x1D4A0,
+	0x1D4A2,
+	0x1D4A3,
+	0x1D4A5,
+	0x1D4A7,
+	0x1D4A9,
+	0x1D4AD,
+	0x1D4AE,
+	0x1D4BA,
+	0x1D4BB,
+	0x1D4BC,
+	0x1D4BD,
+	0x1D4C4,
+	0x1D4C5,
+	0x1D506,
+	0x1D507,
+	0x1D50B,
+	0x1D50D,
+	0x1D515,
+	0x1D516,
+	0x1D51D,
+	0x1D51E,
+	0x1D53A,
+	0x1D53B,
+	0x1D53F,
+	0x1D540,
+	0x1D545,
+	0x1D546,
+	0x1D547,
+	0x1D54A,
+	0x1D551,
+	0x1D552,
+	0x1D6A6,
+	0x1D6A8,
+	0x1D6C1,
+	0x1D6C2,
+	0x1D6DB,
+	0x1D6DC,
+	0x1D6FB,
+	0x1D6FC,
+	0x1D715,
+	0x1D716,
+	0x1D735,
+	0x1D736,
+	0x1D74F,
+	0x1D750,
+	0x1D76F,
+	0x1D770,
+	0x1D789,
+	0x1D78A,
+	0x1D7A9,
+	0x1D7AA,
+	0x1D7C3,
+	0x1D7C4,
+	0x1D7CC,
+	0x1D7CE,
+	0x1D800,
+	0x1DA00,
+	0x1DA37,
+	0x1DA3B,
+	0x1DA6D,
+	0x1DA75,
+	0x1DA76,
+	0x1DA84,
+	0x1DA85,
+	0x1DA9B,
+	0x1DAA0,
+	0x1DAA1,
+	0x1DAB0,
+	0x1E800,
+	0x1E8C5,
+	0x1E8D0,
+	0x1E8D7,
+	0x1EE00,
+	0x1EE04,
+	0x1EE05,
+	0x1EE20,
+	0x1EE21,
+	0x1EE23,
+	0x1EE24,
+	0x1EE25,
+	0x1EE27,
+	0x1EE28,
+	0x1EE29,
+	0x1EE33,
+	0x1EE34,
+	0x1EE38,
+	0x1EE39,
+	0x1EE3A,
+	0x1EE3B,
+	0x1EE3C,
+	0x1EE42,
+	0x1EE43,
+	0x1EE47,
+	0x1EE48,
+	0x1EE49,
+	0x1EE4A,
+	0x1EE4B,
+	0x1EE4C,
+	0x1EE4D,
+	0x1EE50,
+	0x1EE51,
+	0x1EE53,
+	0x1EE54,
+	0x1EE55,
+	0x1EE57,
+	0x1EE58,
+	0x1EE59,
+	0x1EE5A,
+	0x1EE5B,
+	0x1EE5C,
+	0x1EE5D,
+	0x1EE5E,
+	0x1EE5F,
+	0x1EE60,
+	0x1EE61,
+	0x1EE63,
+	0x1EE64,
+	0x1EE65,
+	0x1EE67,
+	0x1EE6B,
+	0x1EE6C,
+	0x1EE73,
+	0x1EE74,
+	0x1EE78,
+	0x1EE79,
+	0x1EE7D,
+	0x1EE7E,
+	0x1EE7F,
+	0x1EE80,
+	0x1EE8A,
+	0x1EE8B,
+	0x1EE9C,
+	0x1EEA1,
+	0x1EEA4,
+	0x1EEA5,
+	0x1EEAA,
+	0x1EEAB,
+	0x1EEBC,
+	0x1F130,
+	0x1F14A,
+	0x1F150,
+	0x1F16A,
+	0x1F170,
+	0x1F18A,
+	0x1F1E6,
+	0x1F200,
+	0xE0001,
+	0xE0002,
+	0xE0020,
+	0xE0080,
+	0xE0100,
+	0xE01F0
+};
+
+#endif	/* defined(PERL_IN_PERL_C) */
+
+#if defined(PERL_IN_REGEXEC_C)
+
+#define WB_ENUM_COUNT 20
+
+typedef enum {
+	WB_Other = 0,
+	WB_ALetter = 1,
+	WB_CR = 2,
+	WB_Double_Quote = 3,
+	WB_Extend = 4,
+	WB_ExtendNumLet = 5,
+	WB_Format = 6,
+	WB_Hebrew_Letter = 7,
+	WB_Katakana = 8,
+	WB_LF = 9,
+	WB_MidLetter = 10,
+	WB_MidNum = 11,
+	WB_MidNumLet = 12,
+	WB_Newline = 13,
+	WB_Numeric = 14,
+	WB_Perl_Tailored_HSpace = 15,
+	WB_Regional_Indicator = 16,
+	WB_Single_Quote = 17,
+	WB_EDGE = 18,
+	WB_UNKNOWN = 19
+} WB_enum;
+
+static const WB_enum _Perl_WB_invmap[] = { /* for EBCDIC 1047 */
+	WB_Other,
+	WB_Perl_Tailored_HSpace,
+	WB_Other,
+	WB_Newline,
+	WB_CR,
+	WB_Other,
+	WB_LF,
+	WB_Other,
+	WB_Newline,
+	WB_Other,
+	WB_Perl_Tailored_HSpace,
+	WB_ALetter,
+	WB_Other,
+	WB_MidNumLet,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_MidNum,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_MidNum,
+	WB_Other,
+	WB_ExtendNumLet,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_MidLetter,
+	WB_Other,
+	WB_Single_Quote,
+	WB_Other,
+	WB_Double_Quote,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_MidLetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Format,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Numeric,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_MidLetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_MidNum,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_MidLetter,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_MidNum,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Hebrew_Letter,
+	WB_Other,
+	WB_Hebrew_Letter,
+	WB_ALetter,
+	WB_MidLetter,
+	WB_Other,
+	WB_Format,
+	WB_Other,
+	WB_MidNum,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Format,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Numeric,
+	WB_Other,
+	WB_Numeric,
+	WB_MidNum,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Format,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Numeric,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Format,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Other,
+	WB_Numeric,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Other,
+	WB_MidNum,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Numeric,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Numeric,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Perl_Tailored_HSpace,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_Extend,
+	WB_Format,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Numeric,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Numeric,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_ALetter,
+	WB_Numeric,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Perl_Tailored_HSpace,
+	WB_Other,
+	WB_Extend,
+	WB_Format,
+	WB_Other,
+	WB_MidNumLet,
+	WB_Other,
+	WB_MidNumLet,
+	WB_Other,
+	WB_MidLetter,
+	WB_Newline,
+	WB_Format,
+	WB_Perl_Tailored_HSpace,
+	WB_Other,
+	WB_ExtendNumLet,
+	WB_Other,
+	WB_MidNum,
+	WB_Other,
+	WB_ExtendNumLet,
+	WB_Other,
+	WB_Perl_Tailored_HSpace,
+	WB_Format,
+	WB_Other,
+	WB_Format,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Perl_Tailored_HSpace,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Katakana,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Katakana,
+	WB_Other,
+	WB_Katakana,
+	WB_Other,
+	WB_Katakana,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Katakana,
+	WB_Other,
+	WB_Katakana,
+	WB_Other,
+	WB_Katakana,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Numeric,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Numeric,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Numeric,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Hebrew_Letter,
+	WB_Extend,
+	WB_Hebrew_Letter,
+	WB_Other,
+	WB_Hebrew_Letter,
+	WB_Other,
+	WB_Hebrew_Letter,
+	WB_Other,
+	WB_Hebrew_Letter,
+	WB_Other,
+	WB_Hebrew_Letter,
+	WB_Other,
+	WB_Hebrew_Letter,
+	WB_Other,
+	WB_Hebrew_Letter,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_MidNum,
+	WB_Other,
+	WB_MidLetter,
+	WB_MidNum,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ExtendNumLet,
+	WB_Other,
+	WB_ExtendNumLet,
+	WB_MidNum,
+	WB_Other,
+	WB_MidNumLet,
+	WB_Other,
+	WB_MidNum,
+	WB_MidLetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Format,
+	WB_Other,
+	WB_MidNumLet,
+	WB_Other,
+	WB_MidNum,
+	WB_Other,
+	WB_MidNumLet,
+	WB_Other,
+	WB_MidLetter,
+	WB_MidNum,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ExtendNumLet,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Katakana,
+	WB_Extend,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Format,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Format,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_ALetter,
+	WB_Numeric,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Other,
+	WB_Katakana,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Format,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Format,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Regional_Indicator,
+	WB_Other,
+	WB_Format,
+	WB_Other,
+	WB_Format,
+	WB_Other,
+	WB_Extend,
+	WB_Other
+};
+
+#endif	/* defined(PERL_IN_REGEXEC_C) */
+
+#if defined(PERL_IN_REGCOMP_C)
+
+static const UV UpperLatin1_invlist[] = { /* for EBCDIC 1047 */
+	55,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	1,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x4,
+	0x5,
+	0x6,
+	0x7,
+	0x8,
+	0xB,
+	0x14,
+	0x15,
+	0x17,
+	0x18,
+	0x1A,
+	0x1C,
+	0x20,
+	0x26,
+	0x28,
+	0x2D,
+	0x30,
+	0x32,
+	0x33,
+	0x37,
+	0x38,
+	0x3C,
+	0x3E,
+	0x3F,
+	0x41,
+	0x4B,
+	0x51,
+	0x5A,
+	0x62,
+	0x6B,
+	0x70,
+	0x79,
+	0x80,
+	0x81,
+	0x8A,
+	0x91,
+	0x9A,
+	0xA1,
+	0xAA,
+	0xAD,
+	0xAE,
+	0xBD,
+	0xBE,
+	0xC0,
+	0xCA,
+	0xD0,
+	0xDA,
+	0xE0,
+	0xE1,
+	0xE2,
+	0xEA,
+	0xF0,
+	0xFA,
+	0x100
+};
+
+#endif	/* defined(PERL_IN_REGCOMP_C) */
+
+#if defined(PERL_IN_PERL_C)
+
+static const UV VertSpace_invlist[] = { /* for EBCDIC 1047 */
+	9,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	1,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0xB,
+	0xE,
+	0x15,
+	0x16,
+	0x25,
+	0x26,
+	0x2028,
+	0x202A
+};
+
+static const UV XPerlSpace_invlist[] = { /* for EBCDIC 1047 */
+	23,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	1,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x5,
+	0x6,
+	0xB,
+	0xE,
+	0x15,
+	0x16,
+	0x25,
+	0x26,
+	0x40,
+	0x42,
+	0x1680,
+	0x1681,
+	0x2000,
+	0x200B,
+	0x2028,
+	0x202A,
+	0x202F,
+	0x2030,
+	0x205F,
+	0x2060,
+	0x3000,
+	0x3001
+};
+
+static const UV XPosixAlnum_invlist[] = { /* for EBCDIC 1047 */
+	1321,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	1,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x42,
+	0x4A,
+	0x51,
+	0x5A,
+	0x62,
+	0x6A,
+	0x70,
+	0x79,
+	0x80,
+	0x8A,
+	0x8C,
+	0x8F,
+	0x91,
+	0x9D,
+	0x9E,
+	0x9F,
+	0xA0,
+	0xA1,
+	0xA2,
+	0xAA,
+	0xAC,
+	0xAD,
+	0xAE,
+	0xAF,
+	0xBA,
+	0xBB,
+	0xC1,
+	0xCA,
+	0xCB,
+	0xD0,
+	0xD1,
+	0xDA,
+	0xDB,
+	0xE0,
+	0xE2,
+	0xEA,
+	0xEB,
+	0xFA,
+	0xFB,
+	0xFF,
+	0x100,
+	0x2C2,
+	0x2C6,
+	0x2D2,
+	0x2E0,
+	0x2E5,
+	0x2EC,
+	0x2ED,
+	0x2EE,
+	0x2EF,
+	0x345,
+	0x346,
+	0x370,
+	0x375,
+	0x376,
+	0x378,
+	0x37A,
+	0x37E,
+	0x37F,
+	0x380,
+	0x386,
+	0x387,
+	0x388,
+	0x38B,
+	0x38C,
+	0x38D,
+	0x38E,
+	0x3A2,
+	0x3A3,
+	0x3F6,
+	0x3F7,
+	0x482,
+	0x48A,
+	0x530,
+	0x531,
+	0x557,
+	0x559,
+	0x55A,
+	0x561,
+	0x588,
+	0x5B0,
+	0x5BE,
+	0x5BF,
+	0x5C0,
+	0x5C1,
+	0x5C3,
+	0x5C4,
+	0x5C6,
+	0x5C7,
+	0x5C8,
+	0x5D0,
+	0x5EB,
+	0x5F0,
+	0x5F3,
+	0x610,
+	0x61B,
+	0x620,
+	0x658,
+	0x659,
+	0x66A,
+	0x66E,
+	0x6D4,
+	0x6D5,
+	0x6DD,
+	0x6E1,
+	0x6E9,
+	0x6ED,
+	0x6FD,
+	0x6FF,
+	0x700,
+	0x710,
+	0x740,
+	0x74D,
+	0x7B2,
+	0x7C0,
+	0x7EB,
+	0x7F4,
+	0x7F6,
+	0x7FA,
+	0x7FB,
+	0x800,
+	0x818,
+	0x81A,
+	0x82D,
+	0x840,
+	0x859,
+	0x8A0,
+	0x8B5,
+	0x8E3,
+	0x8EA,
+	0x8F0,
+	0x93C,
+	0x93D,
+	0x94D,
+	0x94E,
+	0x951,
+	0x955,
+	0x964,
+	0x966,
+	0x970,
+	0x971,
+	0x984,
+	0x985,
+	0x98D,
+	0x98F,
+	0x991,
+	0x993,
+	0x9A9,
+	0x9AA,
+	0x9B1,
+	0x9B2,
+	0x9B3,
+	0x9B6,
+	0x9BA,
+	0x9BD,
+	0x9C5,
+	0x9C7,
+	0x9C9,
+	0x9CB,
+	0x9CD,
+	0x9CE,
+	0x9CF,
+	0x9D7,
+	0x9D8,
+	0x9DC,
+	0x9DE,
+	0x9DF,
+	0x9E4,
+	0x9E6,
+	0x9F2,
+	0xA01,
+	0xA04,
+	0xA05,
+	0xA0B,
+	0xA0F,
+	0xA11,
+	0xA13,
+	0xA29,
+	0xA2A,
+	0xA31,
+	0xA32,
+	0xA34,
+	0xA35,
+	0xA37,
+	0xA38,
+	0xA3A,
+	0xA3E,
+	0xA43,
+	0xA47,
+	0xA49,
+	0xA4B,
+	0xA4D,
+	0xA51,
+	0xA52,
+	0xA59,
+	0xA5D,
+	0xA5E,
+	0xA5F,
+	0xA66,
+	0xA76,
+	0xA81,
+	0xA84,
+	0xA85,
+	0xA8E,
+	0xA8F,
+	0xA92,
+	0xA93,
+	0xAA9,
+	0xAAA,
+	0xAB1,
+	0xAB2,
+	0xAB4,
+	0xAB5,
+	0xABA,
+	0xABD,
+	0xAC6,
+	0xAC7,
+	0xACA,
+	0xACB,
+	0xACD,
+	0xAD0,
+	0xAD1,
+	0xAE0,
+	0xAE4,
+	0xAE6,
+	0xAF0,
+	0xAF9,
+	0xAFA,
+	0xB01,
+	0xB04,
+	0xB05,
+	0xB0D,
+	0xB0F,
+	0xB11,
+	0xB13,
+	0xB29,
+	0xB2A,
+	0xB31,
+	0xB32,
+	0xB34,
+	0xB35,
+	0xB3A,
+	0xB3D,
+	0xB45,
+	0xB47,
+	0xB49,
+	0xB4B,
+	0xB4D,
+	0xB56,
+	0xB58,
+	0xB5C,
+	0xB5E,
+	0xB5F,
+	0xB64,
+	0xB66,
+	0xB70,
+	0xB71,
+	0xB72,
+	0xB82,
+	0xB84,
+	0xB85,
+	0xB8B,
+	0xB8E,
+	0xB91,
+	0xB92,
+	0xB96,
+	0xB99,
+	0xB9B,
+	0xB9C,
+	0xB9D,
+	0xB9E,
+	0xBA0,
+	0xBA3,
+	0xBA5,
+	0xBA8,
+	0xBAB,
+	0xBAE,
+	0xBBA,
+	0xBBE,
+	0xBC3,
+	0xBC6,
+	0xBC9,
+	0xBCA,
+	0xBCD,
+	0xBD0,
+	0xBD1,
+	0xBD7,
+	0xBD8,
+	0xBE6,
+	0xBF0,
+	0xC00,
+	0xC04,
+	0xC05,
+	0xC0D,
+	0xC0E,
+	0xC11,
+	0xC12,
+	0xC29,
+	0xC2A,
+	0xC3A,
+	0xC3D,
+	0xC45,
+	0xC46,
+	0xC49,
+	0xC4A,
+	0xC4D,
+	0xC55,
+	0xC57,
+	0xC58,
+	0xC5B,
+	0xC60,
+	0xC64,
+	0xC66,
+	0xC70,
+	0xC81,
+	0xC84,
+	0xC85,
+	0xC8D,
+	0xC8E,
+	0xC91,
+	0xC92,
+	0xCA9,
+	0xCAA,
+	0xCB4,
+	0xCB5,
+	0xCBA,
+	0xCBD,
+	0xCC5,
+	0xCC6,
+	0xCC9,
+	0xCCA,
+	0xCCD,
+	0xCD5,
+	0xCD7,
+	0xCDE,
+	0xCDF,
+	0xCE0,
+	0xCE4,
+	0xCE6,
+	0xCF0,
+	0xCF1,
+	0xCF3,
+	0xD01,
+	0xD04,
+	0xD05,
+	0xD0D,
+	0xD0E,
+	0xD11,
+	0xD12,
+	0xD3B,
+	0xD3D,
+	0xD45,
+	0xD46,
+	0xD49,
+	0xD4A,
+	0xD4D,
+	0xD4E,
+	0xD4F,
+	0xD57,
+	0xD58,
+	0xD5F,
+	0xD64,
+	0xD66,
+	0xD70,
+	0xD7A,
+	0xD80,
+	0xD82,
+	0xD84,
+	0xD85,
+	0xD97,
+	0xD9A,
+	0xDB2,
+	0xDB3,
+	0xDBC,
+	0xDBD,
+	0xDBE,
+	0xDC0,
+	0xDC7,
+	0xDCF,
+	0xDD5,
+	0xDD6,
+	0xDD7,
+	0xDD8,
+	0xDE0,
+	0xDE6,
+	0xDF0,
+	0xDF2,
+	0xDF4,
+	0xE01,
+	0xE3B,
+	0xE40,
+	0xE47,
+	0xE4D,
+	0xE4E,
+	0xE50,
+	0xE5A,
+	0xE81,
+	0xE83,
+	0xE84,
+	0xE85,
+	0xE87,
+	0xE89,
+	0xE8A,
+	0xE8B,
+	0xE8D,
+	0xE8E,
+	0xE94,
+	0xE98,
+	0xE99,
+	0xEA0,
+	0xEA1,
+	0xEA4,
+	0xEA5,
+	0xEA6,
+	0xEA7,
+	0xEA8,
+	0xEAA,
+	0xEAC,
+	0xEAD,
+	0xEBA,
+	0xEBB,
+	0xEBE,
+	0xEC0,
+	0xEC5,
+	0xEC6,
+	0xEC7,
+	0xECD,
+	0xECE,
+	0xED0,
+	0xEDA,
+	0xEDC,
+	0xEE0,
+	0xF00,
+	0xF01,
+	0xF20,
+	0xF2A,
+	0xF40,
+	0xF48,
+	0xF49,
+	0xF6D,
+	0xF71,
+	0xF82,
+	0xF88,
+	0xF98,
+	0xF99,
+	0xFBD,
+	0x1000,
+	0x1037,
+	0x1038,
+	0x1039,
+	0x103B,
+	0x104A,
+	0x1050,
+	0x1063,
+	0x1065,
+	0x1069,
+	0x106E,
+	0x1087,
+	0x108E,
+	0x108F,
+	0x1090,
+	0x109A,
+	0x109C,
+	0x109E,
+	0x10A0,
+	0x10C6,
+	0x10C7,
+	0x10C8,
+	0x10CD,
+	0x10CE,
+	0x10D0,
+	0x10FB,
+	0x10FC,
+	0x1249,
+	0x124A,
+	0x124E,
+	0x1250,
+	0x1257,
+	0x1258,
+	0x1259,
+	0x125A,
+	0x125E,
+	0x1260,
+	0x1289,
+	0x128A,
+	0x128E,
+	0x1290,
+	0x12B1,
+	0x12B2,
+	0x12B6,
+	0x12B8,
+	0x12BF,
+	0x12C0,
+	0x12C1,
+	0x12C2,
+	0x12C6,
+	0x12C8,
+	0x12D7,
+	0x12D8,
+	0x1311,
+	0x1312,
+	0x1316,
+	0x1318,
+	0x135B,
+	0x135F,
+	0x1360,
+	0x1380,
+	0x1390,
+	0x13A0,
+	0x13F6,
+	0x13F8,
+	0x13FE,
+	0x1401,
+	0x166D,
+	0x166F,
+	0x1680,
+	0x1681,
+	0x169B,
+	0x16A0,
+	0x16EB,
+	0x16EE,
+	0x16F9,
+	0x1700,
+	0x170D,
+	0x170E,
+	0x1714,
+	0x1720,
+	0x1734,
+	0x1740,
+	0x1754,
+	0x1760,
+	0x176D,
+	0x176E,
+	0x1771,
+	0x1772,
+	0x1774,
+	0x1780,
+	0x17B4,
+	0x17B6,
+	0x17C9,
+	0x17D7,
+	0x17D8,
+	0x17DC,
+	0x17DD,
+	0x17E0,
+	0x17EA,
+	0x1810,
+	0x181A,
+	0x1820,
+	0x1878,
+	0x1880,
+	0x18AB,
+	0x18B0,
+	0x18F6,
+	0x1900,
+	0x191F,
+	0x1920,
+	0x192C,
+	0x1930,
+	0x1939,
+	0x1946,
+	0x196E,
+	0x1970,
+	0x1975,
+	0x1980,
+	0x19AC,
+	0x19B0,
+	0x19CA,
+	0x19D0,
+	0x19DA,
+	0x1A00,
+	0x1A1C,
+	0x1A20,
+	0x1A5F,
+	0x1A61,
+	0x1A75,
+	0x1A80,
+	0x1A8A,
+	0x1A90,
+	0x1A9A,
+	0x1AA7,
+	0x1AA8,
+	0x1B00,
+	0x1B34,
+	0x1B35,
+	0x1B44,
+	0x1B45,
+	0x1B4C,
+	0x1B50,
+	0x1B5A,
+	0x1B80,
+	0x1BAA,
+	0x1BAC,
+	0x1BE6,
+	0x1BE7,
+	0x1BF2,
+	0x1C00,
+	0x1C36,
+	0x1C40,
+	0x1C4A,
+	0x1C4D,
+	0x1C7E,
+	0x1CE9,
+	0x1CED,
+	0x1CEE,
+	0x1CF4,
+	0x1CF5,
+	0x1CF7,
+	0x1D00,
+	0x1DC0,
+	0x1DE7,
+	0x1DF5,
+	0x1E00,
+	0x1F16,
+	0x1F18,
+	0x1F1E,
+	0x1F20,
+	0x1F46,
+	0x1F48,
+	0x1F4E,
+	0x1F50,
+	0x1F58,
+	0x1F59,
+	0x1F5A,
+	0x1F5B,
+	0x1F5C,
+	0x1F5D,
+	0x1F5E,
+	0x1F5F,
+	0x1F7E,
+	0x1F80,
+	0x1FB5,
+	0x1FB6,
+	0x1FBD,
+	0x1FBE,
+	0x1FBF,
+	0x1FC2,
+	0x1FC5,
+	0x1FC6,
+	0x1FCD,
+	0x1FD0,
+	0x1FD4,
+	0x1FD6,
+	0x1FDC,
+	0x1FE0,
+	0x1FED,
+	0x1FF2,
+	0x1FF5,
+	0x1FF6,
+	0x1FFD,
+	0x2071,
+	0x2072,
+	0x207F,
+	0x2080,
+	0x2090,
+	0x209D,
+	0x2102,
+	0x2103,
+	0x2107,
+	0x2108,
+	0x210A,
+	0x2114,
+	0x2115,
+	0x2116,
+	0x2119,
+	0x211E,
+	0x2124,
+	0x2125,
+	0x2126,
+	0x2127,
+	0x2128,
+	0x2129,
+	0x212A,
+	0x212E,
+	0x212F,
+	0x213A,
+	0x213C,
+	0x2140,
+	0x2145,
+	0x214A,
+	0x214E,
+	0x214F,
+	0x2160,
+	0x2189,
+	0x24B6,
+	0x24EA,
+	0x2C00,
+	0x2C2F,
+	0x2C30,
+	0x2C5F,
+	0x2C60,
+	0x2CE5,
+	0x2CEB,
+	0x2CEF,
+	0x2CF2,
+	0x2CF4,
+	0x2D00,
+	0x2D26,
+	0x2D27,
+	0x2D28,
+	0x2D2D,
+	0x2D2E,
+	0x2D30,
+	0x2D68,
+	0x2D6F,
+	0x2D70,
+	0x2D80,
+	0x2D97,
+	0x2DA0,
+	0x2DA7,
+	0x2DA8,
+	0x2DAF,
+	0x2DB0,
+	0x2DB7,
+	0x2DB8,
+	0x2DBF,
+	0x2DC0,
+	0x2DC7,
+	0x2DC8,
+	0x2DCF,
+	0x2DD0,
+	0x2DD7,
+	0x2DD8,
+	0x2DDF,
+	0x2DE0,
+	0x2E00,
+	0x2E2F,
+	0x2E30,
+	0x3005,
+	0x3008,
+	0x3021,
+	0x302A,
+	0x3031,
+	0x3036,
+	0x3038,
+	0x303D,
+	0x3041,
+	0x3097,
+	0x309D,
+	0x30A0,
+	0x30A1,
+	0x30FB,
+	0x30FC,
+	0x3100,
+	0x3105,
+	0x312E,
+	0x3131,
+	0x318F,
+	0x31A0,
+	0x31BB,
+	0x31F0,
+	0x3200,
+	0x3400,
+	0x4DB6,
+	0x4E00,
+	0x9FD6,
+	0xA000,
+	0xA48D,
+	0xA4D0,
+	0xA4FE,
+	0xA500,
+	0xA60D,
+	0xA610,
+	0xA62C,
+	0xA640,
+	0xA66F,
+	0xA674,
+	0xA67C,
+	0xA67F,
+	0xA6F0,
+	0xA717,
+	0xA720,
+	0xA722,
+	0xA789,
+	0xA78B,
+	0xA7AE,
+	0xA7B0,
+	0xA7B8,
+	0xA7F7,
+	0xA802,
+	0xA803,
+	0xA806,
+	0xA807,
+	0xA80B,
+	0xA80C,
+	0xA828,
+	0xA840,
+	0xA874,
+	0xA880,
+	0xA8C4,
+	0xA8D0,
+	0xA8DA,
+	0xA8F2,
+	0xA8F8,
+	0xA8FB,
+	0xA8FC,
+	0xA8FD,
+	0xA8FE,
+	0xA900,
+	0xA92B,
+	0xA930,
+	0xA953,
+	0xA960,
+	0xA97D,
+	0xA980,
+	0xA9B3,
+	0xA9B4,
+	0xA9C0,
+	0xA9CF,
+	0xA9DA,
+	0xA9E0,
+	0xA9E5,
+	0xA9E6,
+	0xA9FF,
+	0xAA00,
+	0xAA37,
+	0xAA40,
+	0xAA4E,
+	0xAA50,
+	0xAA5A,
+	0xAA60,
+	0xAA77,
+	0xAA7A,
+	0xAA7B,
+	0xAA7E,
+	0xAABF,
+	0xAAC0,
+	0xAAC1,
+	0xAAC2,
+	0xAAC3,
+	0xAADB,
+	0xAADE,
+	0xAAE0,
+	0xAAF0,
+	0xAAF2,
+	0xAAF6,
+	0xAB01,
+	0xAB07,
+	0xAB09,
+	0xAB0F,
+	0xAB11,
+	0xAB17,
+	0xAB20,
+	0xAB27,
+	0xAB28,
+	0xAB2F,
+	0xAB30,
+	0xAB5B,
+	0xAB5C,
+	0xAB66,
+	0xAB70,
+	0xABEB,
+	0xABF0,
+	0xABFA,
+	0xAC00,
+	0xD7A4,
+	0xD7B0,
+	0xD7C7,
+	0xD7CB,
+	0xD7FC,
+	0xF900,
+	0xFA6E,
+	0xFA70,
+	0xFADA,
+	0xFB00,
+	0xFB07,
+	0xFB13,
+	0xFB18,
+	0xFB1D,
+	0xFB29,
+	0xFB2A,
+	0xFB37,
+	0xFB38,
+	0xFB3D,
+	0xFB3E,
+	0xFB3F,
+	0xFB40,
+	0xFB42,
+	0xFB43,
+	0xFB45,
+	0xFB46,
+	0xFBB2,
+	0xFBD3,
+	0xFD3E,
+	0xFD50,
+	0xFD90,
+	0xFD92,
+	0xFDC8,
+	0xFDF0,
+	0xFDFC,
+	0xFE70,
+	0xFE75,
+	0xFE76,
+	0xFEFD,
+	0xFF10,
+	0xFF1A,
+	0xFF21,
+	0xFF3B,
+	0xFF41,
+	0xFF5B,
+	0xFF66,
+	0xFFBF,
+	0xFFC2,
+	0xFFC8,
+	0xFFCA,
+	0xFFD0,
+	0xFFD2,
+	0xFFD8,
+	0xFFDA,
+	0xFFDD,
+	0x10000,
+	0x1000C,
+	0x1000D,
+	0x10027,
+	0x10028,
+	0x1003B,
+	0x1003C,
+	0x1003E,
+	0x1003F,
+	0x1004E,
+	0x10050,
+	0x1005E,
+	0x10080,
+	0x100FB,
+	0x10140,
+	0x10175,
+	0x10280,
+	0x1029D,
+	0x102A0,
+	0x102D1,
+	0x10300,
+	0x10320,
+	0x10330,
+	0x1034B,
+	0x10350,
+	0x1037B,
+	0x10380,
+	0x1039E,
+	0x103A0,
+	0x103C4,
+	0x103C8,
+	0x103D0,
+	0x103D1,
+	0x103D6,
+	0x10400,
+	0x1049E,
+	0x104A0,
+	0x104AA,
+	0x10500,
+	0x10528,
+	0x10530,
+	0x10564,
+	0x10600,
+	0x10737,
+	0x10740,
+	0x10756,
+	0x10760,
+	0x10768,
+	0x10800,
+	0x10806,
+	0x10808,
+	0x10809,
+	0x1080A,
+	0x10836,
+	0x10837,
+	0x10839,
+	0x1083C,
+	0x1083D,
+	0x1083F,
+	0x10856,
+	0x10860,
+	0x10877,
+	0x10880,
+	0x1089F,
+	0x108E0,
+	0x108F3,
+	0x108F4,
+	0x108F6,
+	0x10900,
+	0x10916,
+	0x10920,
+	0x1093A,
+	0x10980,
+	0x109B8,
+	0x109BE,
+	0x109C0,
+	0x10A00,
+	0x10A04,
+	0x10A05,
+	0x10A07,
+	0x10A0C,
+	0x10A14,
+	0x10A15,
+	0x10A18,
+	0x10A19,
+	0x10A34,
+	0x10A60,
+	0x10A7D,
+	0x10A80,
+	0x10A9D,
+	0x10AC0,
+	0x10AC8,
+	0x10AC9,
+	0x10AE5,
+	0x10B00,
+	0x10B36,
+	0x10B40,
+	0x10B56,
+	0x10B60,
+	0x10B73,
+	0x10B80,
+	0x10B92,
+	0x10C00,
+	0x10C49,
+	0x10C80,
+	0x10CB3,
+	0x10CC0,
+	0x10CF3,
+	0x11000,
+	0x11046,
+	0x11066,
+	0x11070,
+	0x11082,
+	0x110B9,
+	0x110D0,
+	0x110E9,
+	0x110F0,
+	0x110FA,
+	0x11100,
+	0x11133,
+	0x11136,
+	0x11140,
+	0x11150,
+	0x11173,
+	0x11176,
+	0x11177,
+	0x11180,
+	0x111C0,
+	0x111C1,
+	0x111C5,
+	0x111D0,
+	0x111DB,
+	0x111DC,
+	0x111DD,
+	0x11200,
+	0x11212,
+	0x11213,
+	0x11235,
+	0x11237,
+	0x11238,
+	0x11280,
+	0x11287,
+	0x11288,
+	0x11289,
+	0x1128A,
+	0x1128E,
+	0x1128F,
+	0x1129E,
+	0x1129F,
+	0x112A9,
+	0x112B0,
+	0x112E9,
+	0x112F0,
+	0x112FA,
+	0x11300,
+	0x11304,
+	0x11305,
+	0x1130D,
+	0x1130F,
+	0x11311,
+	0x11313,
+	0x11329,
+	0x1132A,
+	0x11331,
+	0x11332,
+	0x11334,
+	0x11335,
+	0x1133A,
+	0x1133D,
+	0x11345,
+	0x11347,
+	0x11349,
+	0x1134B,
+	0x1134D,
+	0x11350,
+	0x11351,
+	0x11357,
+	0x11358,
+	0x1135D,
+	0x11364,
+	0x11480,
+	0x114C2,
+	0x114C4,
+	0x114C6,
+	0x114C7,
+	0x114C8,
+	0x114D0,
+	0x114DA,
+	0x11580,
+	0x115B6,
+	0x115B8,
+	0x115BF,
+	0x115D8,
+	0x115DE,
+	0x11600,
+	0x1163F,
+	0x11640,
+	0x11641,
+	0x11644,
+	0x11645,
+	0x11650,
+	0x1165A,
+	0x11680,
+	0x116B6,
+	0x116C0,
+	0x116CA,
+	0x11700,
+	0x1171A,
+	0x1171D,
+	0x1172B,
+	0x11730,
+	0x1173A,
+	0x118A0,
+	0x118EA,
+	0x118FF,
+	0x11900,
+	0x11AC0,
+	0x11AF9,
+	0x12000,
+	0x1239A,
+	0x12400,
+	0x1246F,
+	0x12480,
+	0x12544,
+	0x13000,
+	0x1342F,
+	0x14400,
+	0x14647,
+	0x16800,
+	0x16A39,
+	0x16A40,
+	0x16A5F,
+	0x16A60,
+	0x16A6A,
+	0x16AD0,
+	0x16AEE,
+	0x16B00,
+	0x16B37,
+	0x16B40,
+	0x16B44,
+	0x16B50,
+	0x16B5A,
+	0x16B63,
+	0x16B78,
+	0x16B7D,
+	0x16B90,
+	0x16F00,
+	0x16F45,
+	0x16F50,
+	0x16F7F,
+	0x16F93,
+	0x16FA0,
+	0x1B000,
+	0x1B002,
+	0x1BC00,
+	0x1BC6B,
+	0x1BC70,
+	0x1BC7D,
+	0x1BC80,
+	0x1BC89,
+	0x1BC90,
+	0x1BC9A,
+	0x1BC9E,
+	0x1BC9F,
+	0x1D400,
+	0x1D455,
+	0x1D456,
+	0x1D49D,
+	0x1D49E,
+	0x1D4A0,
+	0x1D4A2,
+	0x1D4A3,
+	0x1D4A5,
+	0x1D4A7,
+	0x1D4A9,
+	0x1D4AD,
+	0x1D4AE,
+	0x1D4BA,
+	0x1D4BB,
+	0x1D4BC,
+	0x1D4BD,
+	0x1D4C4,
+	0x1D4C5,
+	0x1D506,
+	0x1D507,
+	0x1D50B,
+	0x1D50D,
+	0x1D515,
+	0x1D516,
+	0x1D51D,
+	0x1D51E,
+	0x1D53A,
+	0x1D53B,
+	0x1D53F,
+	0x1D540,
+	0x1D545,
+	0x1D546,
+	0x1D547,
+	0x1D54A,
+	0x1D551,
+	0x1D552,
+	0x1D6A6,
+	0x1D6A8,
+	0x1D6C1,
+	0x1D6C2,
+	0x1D6DB,
+	0x1D6DC,
+	0x1D6FB,
+	0x1D6FC,
+	0x1D715,
+	0x1D716,
+	0x1D735,
+	0x1D736,
+	0x1D74F,
+	0x1D750,
+	0x1D76F,
+	0x1D770,
+	0x1D789,
+	0x1D78A,
+	0x1D7A9,
+	0x1D7AA,
+	0x1D7C3,
+	0x1D7C4,
+	0x1D7CC,
+	0x1D7CE,
+	0x1D800,
+	0x1E800,
+	0x1E8C5,
+	0x1EE00,
+	0x1EE04,
+	0x1EE05,
+	0x1EE20,
+	0x1EE21,
+	0x1EE23,
+	0x1EE24,
+	0x1EE25,
+	0x1EE27,
+	0x1EE28,
+	0x1EE29,
+	0x1EE33,
+	0x1EE34,
+	0x1EE38,
+	0x1EE39,
+	0x1EE3A,
+	0x1EE3B,
+	0x1EE3C,
+	0x1EE42,
+	0x1EE43,
+	0x1EE47,
+	0x1EE48,
+	0x1EE49,
+	0x1EE4A,
+	0x1EE4B,
+	0x1EE4C,
+	0x1EE4D,
+	0x1EE50,
+	0x1EE51,
+	0x1EE53,
+	0x1EE54,
+	0x1EE55,
+	0x1EE57,
+	0x1EE58,
+	0x1EE59,
+	0x1EE5A,
+	0x1EE5B,
+	0x1EE5C,
+	0x1EE5D,
+	0x1EE5E,
+	0x1EE5F,
+	0x1EE60,
+	0x1EE61,
+	0x1EE63,
+	0x1EE64,
+	0x1EE65,
+	0x1EE67,
+	0x1EE6B,
+	0x1EE6C,
+	0x1EE73,
+	0x1EE74,
+	0x1EE78,
+	0x1EE79,
+	0x1EE7D,
+	0x1EE7E,
+	0x1EE7F,
+	0x1EE80,
+	0x1EE8A,
+	0x1EE8B,
+	0x1EE9C,
+	0x1EEA1,
+	0x1EEA4,
+	0x1EEA5,
+	0x1EEAA,
+	0x1EEAB,
+	0x1EEBC,
+	0x1F130,
+	0x1F14A,
+	0x1F150,
+	0x1F16A,
+	0x1F170,
+	0x1F18A,
+	0x20000,
+	0x2A6D7,
+	0x2A700,
+	0x2B735,
+	0x2B740,
+	0x2B81E,
+	0x2B820,
+	0x2CEA2,
+	0x2F800,
+	0x2FA1E
+};
+
+static const UV XPosixAlpha_invlist[] = { /* for EBCDIC 1047 */
+	1261,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	1,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x42,
+	0x4A,
+	0x51,
+	0x5A,
+	0x62,
+	0x6A,
+	0x70,
+	0x79,
+	0x80,
+	0x8A,
+	0x8C,
+	0x8F,
+	0x91,
+	0x9D,
+	0x9E,
+	0x9F,
+	0xA0,
+	0xA1,
+	0xA2,
+	0xAA,
+	0xAC,
+	0xAD,
+	0xAE,
+	0xAF,
+	0xBA,
+	0xBB,
+	0xC1,
+	0xCA,
+	0xCB,
+	0xD0,
+	0xD1,
+	0xDA,
+	0xDB,
+	0xE0,
+	0xE2,
+	0xEA,
+	0xEB,
+	0xF0,
+	0xFB,
+	0xFF,
+	0x100,
+	0x2C2,
+	0x2C6,
+	0x2D2,
+	0x2E0,
+	0x2E5,
+	0x2EC,
+	0x2ED,
+	0x2EE,
+	0x2EF,
+	0x345,
+	0x346,
+	0x370,
+	0x375,
+	0x376,
+	0x378,
+	0x37A,
+	0x37E,
+	0x37F,
+	0x380,
+	0x386,
+	0x387,
+	0x388,
+	0x38B,
+	0x38C,
+	0x38D,
+	0x38E,
+	0x3A2,
+	0x3A3,
+	0x3F6,
+	0x3F7,
+	0x482,
+	0x48A,
+	0x530,
+	0x531,
+	0x557,
+	0x559,
+	0x55A,
+	0x561,
+	0x588,
+	0x5B0,
+	0x5BE,
+	0x5BF,
+	0x5C0,
+	0x5C1,
+	0x5C3,
+	0x5C4,
+	0x5C6,
+	0x5C7,
+	0x5C8,
+	0x5D0,
+	0x5EB,
+	0x5F0,
+	0x5F3,
+	0x610,
+	0x61B,
+	0x620,
+	0x658,
+	0x659,
+	0x660,
+	0x66E,
+	0x6D4,
+	0x6D5,
+	0x6DD,
+	0x6E1,
+	0x6E9,
+	0x6ED,
+	0x6F0,
+	0x6FA,
+	0x6FD,
+	0x6FF,
+	0x700,
+	0x710,
+	0x740,
+	0x74D,
+	0x7B2,
+	0x7CA,
+	0x7EB,
+	0x7F4,
+	0x7F6,
+	0x7FA,
+	0x7FB,
+	0x800,
+	0x818,
+	0x81A,
+	0x82D,
+	0x840,
+	0x859,
+	0x8A0,
+	0x8B5,
+	0x8E3,
+	0x8EA,
+	0x8F0,
+	0x93C,
+	0x93D,
+	0x94D,
+	0x94E,
+	0x951,
+	0x955,
+	0x964,
+	0x971,
+	0x984,
+	0x985,
+	0x98D,
+	0x98F,
+	0x991,
+	0x993,
+	0x9A9,
+	0x9AA,
+	0x9B1,
+	0x9B2,
+	0x9B3,
+	0x9B6,
+	0x9BA,
+	0x9BD,
+	0x9C5,
+	0x9C7,
+	0x9C9,
+	0x9CB,
+	0x9CD,
+	0x9CE,
+	0x9CF,
+	0x9D7,
+	0x9D8,
+	0x9DC,
+	0x9DE,
+	0x9DF,
+	0x9E4,
+	0x9F0,
+	0x9F2,
+	0xA01,
+	0xA04,
+	0xA05,
+	0xA0B,
+	0xA0F,
+	0xA11,
+	0xA13,
+	0xA29,
+	0xA2A,
+	0xA31,
+	0xA32,
+	0xA34,
+	0xA35,
+	0xA37,
+	0xA38,
+	0xA3A,
+	0xA3E,
+	0xA43,
+	0xA47,
+	0xA49,
+	0xA4B,
+	0xA4D,
+	0xA51,
+	0xA52,
+	0xA59,
+	0xA5D,
+	0xA5E,
+	0xA5F,
+	0xA70,
+	0xA76,
+	0xA81,
+	0xA84,
+	0xA85,
+	0xA8E,
+	0xA8F,
+	0xA92,
+	0xA93,
+	0xAA9,
+	0xAAA,
+	0xAB1,
+	0xAB2,
+	0xAB4,
+	0xAB5,
+	0xABA,
+	0xABD,
+	0xAC6,
+	0xAC7,
+	0xACA,
+	0xACB,
+	0xACD,
+	0xAD0,
+	0xAD1,
+	0xAE0,
+	0xAE4,
+	0xAF9,
+	0xAFA,
+	0xB01,
+	0xB04,
+	0xB05,
+	0xB0D,
+	0xB0F,
+	0xB11,
+	0xB13,
+	0xB29,
+	0xB2A,
+	0xB31,
+	0xB32,
+	0xB34,
+	0xB35,
+	0xB3A,
+	0xB3D,
+	0xB45,
+	0xB47,
+	0xB49,
+	0xB4B,
+	0xB4D,
+	0xB56,
+	0xB58,
+	0xB5C,
+	0xB5E,
+	0xB5F,
+	0xB64,
+	0xB71,
+	0xB72,
+	0xB82,
+	0xB84,
+	0xB85,
+	0xB8B,
+	0xB8E,
+	0xB91,
+	0xB92,
+	0xB96,
+	0xB99,
+	0xB9B,
+	0xB9C,
+	0xB9D,
+	0xB9E,
+	0xBA0,
+	0xBA3,
+	0xBA5,
+	0xBA8,
+	0xBAB,
+	0xBAE,
+	0xBBA,
+	0xBBE,
+	0xBC3,
+	0xBC6,
+	0xBC9,
+	0xBCA,
+	0xBCD,
+	0xBD0,
+	0xBD1,
+	0xBD7,
+	0xBD8,
+	0xC00,
+	0xC04,
+	0xC05,
+	0xC0D,
+	0xC0E,
+	0xC11,
+	0xC12,
+	0xC29,
+	0xC2A,
+	0xC3A,
+	0xC3D,
+	0xC45,
+	0xC46,
+	0xC49,
+	0xC4A,
+	0xC4D,
+	0xC55,
+	0xC57,
+	0xC58,
+	0xC5B,
+	0xC60,
+	0xC64,
+	0xC81,
+	0xC84,
+	0xC85,
+	0xC8D,
+	0xC8E,
+	0xC91,
+	0xC92,
+	0xCA9,
+	0xCAA,
+	0xCB4,
+	0xCB5,
+	0xCBA,
+	0xCBD,
+	0xCC5,
+	0xCC6,
+	0xCC9,
+	0xCCA,
+	0xCCD,
+	0xCD5,
+	0xCD7,
+	0xCDE,
+	0xCDF,
+	0xCE0,
+	0xCE4,
+	0xCF1,
+	0xCF3,
+	0xD01,
+	0xD04,
+	0xD05,
+	0xD0D,
+	0xD0E,
+	0xD11,
+	0xD12,
+	0xD3B,
+	0xD3D,
+	0xD45,
+	0xD46,
+	0xD49,
+	0xD4A,
+	0xD4D,
+	0xD4E,
+	0xD4F,
+	0xD57,
+	0xD58,
+	0xD5F,
+	0xD64,
+	0xD7A,
+	0xD80,
+	0xD82,
+	0xD84,
+	0xD85,
+	0xD97,
+	0xD9A,
+	0xDB2,
+	0xDB3,
+	0xDBC,
+	0xDBD,
+	0xDBE,
+	0xDC0,
+	0xDC7,
+	0xDCF,
+	0xDD5,
+	0xDD6,
+	0xDD7,
+	0xDD8,
+	0xDE0,
+	0xDF2,
+	0xDF4,
+	0xE01,
+	0xE3B,
+	0xE40,
+	0xE47,
+	0xE4D,
+	0xE4E,
+	0xE81,
+	0xE83,
+	0xE84,
+	0xE85,
+	0xE87,
+	0xE89,
+	0xE8A,
+	0xE8B,
+	0xE8D,
+	0xE8E,
+	0xE94,
+	0xE98,
+	0xE99,
+	0xEA0,
+	0xEA1,
+	0xEA4,
+	0xEA5,
+	0xEA6,
+	0xEA7,
+	0xEA8,
+	0xEAA,
+	0xEAC,
+	0xEAD,
+	0xEBA,
+	0xEBB,
+	0xEBE,
+	0xEC0,
+	0xEC5,
+	0xEC6,
+	0xEC7,
+	0xECD,
+	0xECE,
+	0xEDC,
+	0xEE0,
+	0xF00,
+	0xF01,
+	0xF40,
+	0xF48,
+	0xF49,
+	0xF6D,
+	0xF71,
+	0xF82,
+	0xF88,
+	0xF98,
+	0xF99,
+	0xFBD,
+	0x1000,
+	0x1037,
+	0x1038,
+	0x1039,
+	0x103B,
+	0x1040,
+	0x1050,
+	0x1063,
+	0x1065,
+	0x1069,
+	0x106E,
+	0x1087,
+	0x108E,
+	0x108F,
+	0x109C,
+	0x109E,
+	0x10A0,
+	0x10C6,
+	0x10C7,
+	0x10C8,
+	0x10CD,
+	0x10CE,
+	0x10D0,
+	0x10FB,
+	0x10FC,
+	0x1249,
+	0x124A,
+	0x124E,
+	0x1250,
+	0x1257,
+	0x1258,
+	0x1259,
+	0x125A,
+	0x125E,
+	0x1260,
+	0x1289,
+	0x128A,
+	0x128E,
+	0x1290,
+	0x12B1,
+	0x12B2,
+	0x12B6,
+	0x12B8,
+	0x12BF,
+	0x12C0,
+	0x12C1,
+	0x12C2,
+	0x12C6,
+	0x12C8,
+	0x12D7,
+	0x12D8,
+	0x1311,
+	0x1312,
+	0x1316,
+	0x1318,
+	0x135B,
+	0x135F,
+	0x1360,
+	0x1380,
+	0x1390,
+	0x13A0,
+	0x13F6,
+	0x13F8,
+	0x13FE,
+	0x1401,
+	0x166D,
+	0x166F,
+	0x1680,
+	0x1681,
+	0x169B,
+	0x16A0,
+	0x16EB,
+	0x16EE,
+	0x16F9,
+	0x1700,
+	0x170D,
+	0x170E,
+	0x1714,
+	0x1720,
+	0x1734,
+	0x1740,
+	0x1754,
+	0x1760,
+	0x176D,
+	0x176E,
+	0x1771,
+	0x1772,
+	0x1774,
+	0x1780,
+	0x17B4,
+	0x17B6,
+	0x17C9,
+	0x17D7,
+	0x17D8,
+	0x17DC,
+	0x17DD,
+	0x1820,
+	0x1878,
+	0x1880,
+	0x18AB,
+	0x18B0,
+	0x18F6,
+	0x1900,
+	0x191F,
+	0x1920,
+	0x192C,
+	0x1930,
+	0x1939,
+	0x1950,
+	0x196E,
+	0x1970,
+	0x1975,
+	0x1980,
+	0x19AC,
+	0x19B0,
+	0x19CA,
+	0x1A00,
+	0x1A1C,
+	0x1A20,
+	0x1A5F,
+	0x1A61,
+	0x1A75,
+	0x1AA7,
+	0x1AA8,
+	0x1B00,
+	0x1B34,
+	0x1B35,
+	0x1B44,
+	0x1B45,
+	0x1B4C,
+	0x1B80,
+	0x1BAA,
+	0x1BAC,
+	0x1BB0,
+	0x1BBA,
+	0x1BE6,
+	0x1BE7,
+	0x1BF2,
+	0x1C00,
+	0x1C36,
+	0x1C4D,
+	0x1C50,
+	0x1C5A,
+	0x1C7E,
+	0x1CE9,
+	0x1CED,
+	0x1CEE,
+	0x1CF4,
+	0x1CF5,
+	0x1CF7,
+	0x1D00,
+	0x1DC0,
+	0x1DE7,
+	0x1DF5,
+	0x1E00,
+	0x1F16,
+	0x1F18,
+	0x1F1E,
+	0x1F20,
+	0x1F46,
+	0x1F48,
+	0x1F4E,
+	0x1F50,
+	0x1F58,
+	0x1F59,
+	0x1F5A,
+	0x1F5B,
+	0x1F5C,
+	0x1F5D,
+	0x1F5E,
+	0x1F5F,
+	0x1F7E,
+	0x1F80,
+	0x1FB5,
+	0x1FB6,
+	0x1FBD,
+	0x1FBE,
+	0x1FBF,
+	0x1FC2,
+	0x1FC5,
+	0x1FC6,
+	0x1FCD,
+	0x1FD0,
+	0x1FD4,
+	0x1FD6,
+	0x1FDC,
+	0x1FE0,
+	0x1FED,
+	0x1FF2,
+	0x1FF5,
+	0x1FF6,
+	0x1FFD,
+	0x2071,
+	0x2072,
+	0x207F,
+	0x2080,
+	0x2090,
+	0x209D,
+	0x2102,
+	0x2103,
+	0x2107,
+	0x2108,
+	0x210A,
+	0x2114,
+	0x2115,
+	0x2116,
+	0x2119,
+	0x211E,
+	0x2124,
+	0x2125,
+	0x2126,
+	0x2127,
+	0x2128,
+	0x2129,
+	0x212A,
+	0x212E,
+	0x212F,
+	0x213A,
+	0x213C,
+	0x2140,
+	0x2145,
+	0x214A,
+	0x214E,
+	0x214F,
+	0x2160,
+	0x2189,
+	0x24B6,
+	0x24EA,
+	0x2C00,
+	0x2C2F,
+	0x2C30,
+	0x2C5F,
+	0x2C60,
+	0x2CE5,
+	0x2CEB,
+	0x2CEF,
+	0x2CF2,
+	0x2CF4,
+	0x2D00,
+	0x2D26,
+	0x2D27,
+	0x2D28,
+	0x2D2D,
+	0x2D2E,
+	0x2D30,
+	0x2D68,
+	0x2D6F,
+	0x2D70,
+	0x2D80,
+	0x2D97,
+	0x2DA0,
+	0x2DA7,
+	0x2DA8,
+	0x2DAF,
+	0x2DB0,
+	0x2DB7,
+	0x2DB8,
+	0x2DBF,
+	0x2DC0,
+	0x2DC7,
+	0x2DC8,
+	0x2DCF,
+	0x2DD0,
+	0x2DD7,
+	0x2DD8,
+	0x2DDF,
+	0x2DE0,
+	0x2E00,
+	0x2E2F,
+	0x2E30,
+	0x3005,
+	0x3008,
+	0x3021,
+	0x302A,
+	0x3031,
+	0x3036,
+	0x3038,
+	0x303D,
+	0x3041,
+	0x3097,
+	0x309D,
+	0x30A0,
+	0x30A1,
+	0x30FB,
+	0x30FC,
+	0x3100,
+	0x3105,
+	0x312E,
+	0x3131,
+	0x318F,
+	0x31A0,
+	0x31BB,
+	0x31F0,
+	0x3200,
+	0x3400,
+	0x4DB6,
+	0x4E00,
+	0x9FD6,
+	0xA000,
+	0xA48D,
+	0xA4D0,
+	0xA4FE,
+	0xA500,
+	0xA60D,
+	0xA610,
+	0xA620,
+	0xA62A,
+	0xA62C,
+	0xA640,
+	0xA66F,
+	0xA674,
+	0xA67C,
+	0xA67F,
+	0xA6F0,
+	0xA717,
+	0xA720,
+	0xA722,
+	0xA789,
+	0xA78B,
+	0xA7AE,
+	0xA7B0,
+	0xA7B8,
+	0xA7F7,
+	0xA802,
+	0xA803,
+	0xA806,
+	0xA807,
+	0xA80B,
+	0xA80C,
+	0xA828,
+	0xA840,
+	0xA874,
+	0xA880,
+	0xA8C4,
+	0xA8F2,
+	0xA8F8,
+	0xA8FB,
+	0xA8FC,
+	0xA8FD,
+	0xA8FE,
+	0xA90A,
+	0xA92B,
+	0xA930,
+	0xA953,
+	0xA960,
+	0xA97D,
+	0xA980,
+	0xA9B3,
+	0xA9B4,
+	0xA9C0,
+	0xA9CF,
+	0xA9D0,
+	0xA9E0,
+	0xA9E5,
+	0xA9E6,
+	0xA9F0,
+	0xA9FA,
+	0xA9FF,
+	0xAA00,
+	0xAA37,
+	0xAA40,
+	0xAA4E,
+	0xAA60,
+	0xAA77,
+	0xAA7A,
+	0xAA7B,
+	0xAA7E,
+	0xAABF,
+	0xAAC0,
+	0xAAC1,
+	0xAAC2,
+	0xAAC3,
+	0xAADB,
+	0xAADE,
+	0xAAE0,
+	0xAAF0,
+	0xAAF2,
+	0xAAF6,
+	0xAB01,
+	0xAB07,
+	0xAB09,
+	0xAB0F,
+	0xAB11,
+	0xAB17,
+	0xAB20,
+	0xAB27,
+	0xAB28,
+	0xAB2F,
+	0xAB30,
+	0xAB5B,
+	0xAB5C,
+	0xAB66,
+	0xAB70,
+	0xABEB,
+	0xAC00,
+	0xD7A4,
+	0xD7B0,
+	0xD7C7,
+	0xD7CB,
+	0xD7FC,
+	0xF900,
+	0xFA6E,
+	0xFA70,
+	0xFADA,
+	0xFB00,
+	0xFB07,
+	0xFB13,
+	0xFB18,
+	0xFB1D,
+	0xFB29,
+	0xFB2A,
+	0xFB37,
+	0xFB38,
+	0xFB3D,
+	0xFB3E,
+	0xFB3F,
+	0xFB40,
+	0xFB42,
+	0xFB43,
+	0xFB45,
+	0xFB46,
+	0xFBB2,
+	0xFBD3,
+	0xFD3E,
+	0xFD50,
+	0xFD90,
+	0xFD92,
+	0xFDC8,
+	0xFDF0,
+	0xFDFC,
+	0xFE70,
+	0xFE75,
+	0xFE76,
+	0xFEFD,
+	0xFF21,
+	0xFF3B,
+	0xFF41,
+	0xFF5B,
+	0xFF66,
+	0xFFBF,
+	0xFFC2,
+	0xFFC8,
+	0xFFCA,
+	0xFFD0,
+	0xFFD2,
+	0xFFD8,
+	0xFFDA,
+	0xFFDD,
+	0x10000,
+	0x1000C,
+	0x1000D,
+	0x10027,
+	0x10028,
+	0x1003B,
+	0x1003C,
+	0x1003E,
+	0x1003F,
+	0x1004E,
+	0x10050,
+	0x1005E,
+	0x10080,
+	0x100FB,
+	0x10140,
+	0x10175,
+	0x10280,
+	0x1029D,
+	0x102A0,
+	0x102D1,
+	0x10300,
+	0x10320,
+	0x10330,
+	0x1034B,
+	0x10350,
+	0x1037B,
+	0x10380,
+	0x1039E,
+	0x103A0,
+	0x103C4,
+	0x103C8,
+	0x103D0,
+	0x103D1,
+	0x103D6,
+	0x10400,
+	0x1049E,
+	0x10500,
+	0x10528,
+	0x10530,
+	0x10564,
+	0x10600,
+	0x10737,
+	0x10740,
+	0x10756,
+	0x10760,
+	0x10768,
+	0x10800,
+	0x10806,
+	0x10808,
+	0x10809,
+	0x1080A,
+	0x10836,
+	0x10837,
+	0x10839,
+	0x1083C,
+	0x1083D,
+	0x1083F,
+	0x10856,
+	0x10860,
+	0x10877,
+	0x10880,
+	0x1089F,
+	0x108E0,
+	0x108F3,
+	0x108F4,
+	0x108F6,
+	0x10900,
+	0x10916,
+	0x10920,
+	0x1093A,
+	0x10980,
+	0x109B8,
+	0x109BE,
+	0x109C0,
+	0x10A00,
+	0x10A04,
+	0x10A05,
+	0x10A07,
+	0x10A0C,
+	0x10A14,
+	0x10A15,
+	0x10A18,
+	0x10A19,
+	0x10A34,
+	0x10A60,
+	0x10A7D,
+	0x10A80,
+	0x10A9D,
+	0x10AC0,
+	0x10AC8,
+	0x10AC9,
+	0x10AE5,
+	0x10B00,
+	0x10B36,
+	0x10B40,
+	0x10B56,
+	0x10B60,
+	0x10B73,
+	0x10B80,
+	0x10B92,
+	0x10C00,
+	0x10C49,
+	0x10C80,
+	0x10CB3,
+	0x10CC0,
+	0x10CF3,
+	0x11000,
+	0x11046,
+	0x11082,
+	0x110B9,
+	0x110D0,
+	0x110E9,
+	0x11100,
+	0x11133,
+	0x11150,
+	0x11173,
+	0x11176,
+	0x11177,
+	0x11180,
+	0x111C0,
+	0x111C1,
+	0x111C5,
+	0x111DA,
+	0x111DB,
+	0x111DC,
+	0x111DD,
+	0x11200,
+	0x11212,
+	0x11213,
+	0x11235,
+	0x11237,
+	0x11238,
+	0x11280,
+	0x11287,
+	0x11288,
+	0x11289,
+	0x1128A,
+	0x1128E,
+	0x1128F,
+	0x1129E,
+	0x1129F,
+	0x112A9,
+	0x112B0,
+	0x112E9,
+	0x11300,
+	0x11304,
+	0x11305,
+	0x1130D,
+	0x1130F,
+	0x11311,
+	0x11313,
+	0x11329,
+	0x1132A,
+	0x11331,
+	0x11332,
+	0x11334,
+	0x11335,
+	0x1133A,
+	0x1133D,
+	0x11345,
+	0x11347,
+	0x11349,
+	0x1134B,
+	0x1134D,
+	0x11350,
+	0x11351,
+	0x11357,
+	0x11358,
+	0x1135D,
+	0x11364,
+	0x11480,
+	0x114C2,
+	0x114C4,
+	0x114C6,
+	0x114C7,
+	0x114C8,
+	0x11580,
+	0x115B6,
+	0x115B8,
+	0x115BF,
+	0x115D8,
+	0x115DE,
+	0x11600,
+	0x1163F,
+	0x11640,
+	0x11641,
+	0x11644,
+	0x11645,
+	0x11680,
+	0x116B6,
+	0x11700,
+	0x1171A,
+	0x1171D,
+	0x1172B,
+	0x118A0,
+	0x118E0,
+	0x118FF,
+	0x11900,
+	0x11AC0,
+	0x11AF9,
+	0x12000,
+	0x1239A,
+	0x12400,
+	0x1246F,
+	0x12480,
+	0x12544,
+	0x13000,
+	0x1342F,
+	0x14400,
+	0x14647,
+	0x16800,
+	0x16A39,
+	0x16A40,
+	0x16A5F,
+	0x16AD0,
+	0x16AEE,
+	0x16B00,
+	0x16B37,
+	0x16B40,
+	0x16B44,
+	0x16B63,
+	0x16B78,
+	0x16B7D,
+	0x16B90,
+	0x16F00,
+	0x16F45,
+	0x16F50,
+	0x16F7F,
+	0x16F93,
+	0x16FA0,
+	0x1B000,
+	0x1B002,
+	0x1BC00,
+	0x1BC6B,
+	0x1BC70,
+	0x1BC7D,
+	0x1BC80,
+	0x1BC89,
+	0x1BC90,
+	0x1BC9A,
+	0x1BC9E,
+	0x1BC9F,
+	0x1D400,
+	0x1D455,
+	0x1D456,
+	0x1D49D,
+	0x1D49E,
+	0x1D4A0,
+	0x1D4A2,
+	0x1D4A3,
+	0x1D4A5,
+	0x1D4A7,
+	0x1D4A9,
+	0x1D4AD,
+	0x1D4AE,
+	0x1D4BA,
+	0x1D4BB,
+	0x1D4BC,
+	0x1D4BD,
+	0x1D4C4,
+	0x1D4C5,
+	0x1D506,
+	0x1D507,
+	0x1D50B,
+	0x1D50D,
+	0x1D515,
+	0x1D516,
+	0x1D51D,
+	0x1D51E,
+	0x1D53A,
+	0x1D53B,
+	0x1D53F,
+	0x1D540,
+	0x1D545,
+	0x1D546,
+	0x1D547,
+	0x1D54A,
+	0x1D551,
+	0x1D552,
+	0x1D6A6,
+	0x1D6A8,
+	0x1D6C1,
+	0x1D6C2,
+	0x1D6DB,
+	0x1D6DC,
+	0x1D6FB,
+	0x1D6FC,
+	0x1D715,
+	0x1D716,
+	0x1D735,
+	0x1D736,
+	0x1D74F,
+	0x1D750,
+	0x1D76F,
+	0x1D770,
+	0x1D789,
+	0x1D78A,
+	0x1D7A9,
+	0x1D7AA,
+	0x1D7C3,
+	0x1D7C4,
+	0x1D7CC,
+	0x1E800,
+	0x1E8C5,
+	0x1EE00,
+	0x1EE04,
+	0x1EE05,
+	0x1EE20,
+	0x1EE21,
+	0x1EE23,
+	0x1EE24,
+	0x1EE25,
+	0x1EE27,
+	0x1EE28,
+	0x1EE29,
+	0x1EE33,
+	0x1EE34,
+	0x1EE38,
+	0x1EE39,
+	0x1EE3A,
+	0x1EE3B,
+	0x1EE3C,
+	0x1EE42,
+	0x1EE43,
+	0x1EE47,
+	0x1EE48,
+	0x1EE49,
+	0x1EE4A,
+	0x1EE4B,
+	0x1EE4C,
+	0x1EE4D,
+	0x1EE50,
+	0x1EE51,
+	0x1EE53,
+	0x1EE54,
+	0x1EE55,
+	0x1EE57,
+	0x1EE58,
+	0x1EE59,
+	0x1EE5A,
+	0x1EE5B,
+	0x1EE5C,
+	0x1EE5D,
+	0x1EE5E,
+	0x1EE5F,
+	0x1EE60,
+	0x1EE61,
+	0x1EE63,
+	0x1EE64,
+	0x1EE65,
+	0x1EE67,
+	0x1EE6B,
+	0x1EE6C,
+	0x1EE73,
+	0x1EE74,
+	0x1EE78,
+	0x1EE79,
+	0x1EE7D,
+	0x1EE7E,
+	0x1EE7F,
+	0x1EE80,
+	0x1EE8A,
+	0x1EE8B,
+	0x1EE9C,
+	0x1EEA1,
+	0x1EEA4,
+	0x1EEA5,
+	0x1EEAA,
+	0x1EEAB,
+	0x1EEBC,
+	0x1F130,
+	0x1F14A,
+	0x1F150,
+	0x1F16A,
+	0x1F170,
+	0x1F18A,
+	0x20000,
+	0x2A6D7,
+	0x2A700,
+	0x2B735,
+	0x2B740,
+	0x2B81E,
+	0x2B820,
+	0x2CEA2,
+	0x2F800,
+	0x2FA1E
+};
+
+static const UV XPosixBlank_invlist[] = { /* for EBCDIC 1047 */
+	15,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	1,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x5,
+	0x6,
+	0x40,
+	0x42,
+	0x1680,
+	0x1681,
+	0x2000,
+	0x200B,
+	0x202F,
+	0x2030,
+	0x205F,
+	0x2060,
+	0x3000,
+	0x3001
+};
+
+static const UV XPosixCntrl_invlist[] = { /* for EBCDIC 1047 */
+	4,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	0,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x40,
+	0xFF,
+	0x100
+};
+
+static const UV XPosixDigit_invlist[] = { /* for EBCDIC 1047 */
+	103,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	1,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0xF0,
+	0xFA,
+	0x660,
+	0x66A,
+	0x6F0,
+	0x6FA,
+	0x7C0,
+	0x7CA,
+	0x966,
+	0x970,
+	0x9E6,
+	0x9F0,
+	0xA66,
+	0xA70,
+	0xAE6,
+	0xAF0,
+	0xB66,
+	0xB70,
+	0xBE6,
+	0xBF0,
+	0xC66,
+	0xC70,
+	0xCE6,
+	0xCF0,
+	0xD66,
+	0xD70,
+	0xDE6,
+	0xDF0,
+	0xE50,
+	0xE5A,
+	0xED0,
+	0xEDA,
+	0xF20,
+	0xF2A,
+	0x1040,
+	0x104A,
+	0x1090,
+	0x109A,
+	0x17E0,
+	0x17EA,
+	0x1810,
+	0x181A,
+	0x1946,
+	0x1950,
+	0x19D0,
+	0x19DA,
+	0x1A80,
+	0x1A8A,
+	0x1A90,
+	0x1A9A,
+	0x1B50,
+	0x1B5A,
+	0x1BB0,
+	0x1BBA,
+	0x1C40,
+	0x1C4A,
+	0x1C50,
+	0x1C5A,
+	0xA620,
+	0xA62A,
+	0xA8D0,
+	0xA8DA,
+	0xA900,
+	0xA90A,
+	0xA9D0,
+	0xA9DA,
+	0xA9F0,
+	0xA9FA,
+	0xAA50,
+	0xAA5A,
+	0xABF0,
+	0xABFA,
+	0xFF10,
+	0xFF1A,
+	0x104A0,
+	0x104AA,
+	0x11066,
+	0x11070,
+	0x110F0,
+	0x110FA,
+	0x11136,
+	0x11140,
+	0x111D0,
+	0x111DA,
+	0x112F0,
+	0x112FA,
+	0x114D0,
+	0x114DA,
+	0x11650,
+	0x1165A,
+	0x116C0,
+	0x116CA,
+	0x11730,
+	0x1173A,
+	0x118E0,
+	0x118EA,
+	0x16A60,
+	0x16A6A,
+	0x16B50,
+	0x16B5A,
+	0x1D7CE,
+	0x1D800
+};
+
+static const UV XPosixGraph_invlist[] = { /* for EBCDIC 1047 */
+	1237,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	1,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x42,
+	0xFF,
+	0x100,
+	0x378,
+	0x37A,
+	0x380,
+	0x384,
+	0x38B,
+	0x38C,
+	0x38D,
+	0x38E,
+	0x3A2,
+	0x3A3,
+	0x530,
+	0x531,
+	0x557,
+	0x559,
+	0x560,
+	0x561,
+	0x588,
+	0x589,
+	0x58B,
+	0x58D,
+	0x590,
+	0x591,
+	0x5C8,
+	0x5D0,
+	0x5EB,
+	0x5F0,
+	0x5F5,
+	0x600,
+	0x61D,
+	0x61E,
+	0x70E,
+	0x70F,
+	0x74B,
+	0x74D,
+	0x7B2,
+	0x7C0,
+	0x7FB,
+	0x800,
+	0x82E,
+	0x830,
+	0x83F,
+	0x840,
+	0x85C,
+	0x85E,
+	0x85F,
+	0x8A0,
+	0x8B5,
+	0x8E3,
+	0x984,
+	0x985,
+	0x98D,
+	0x98F,
+	0x991,
+	0x993,
+	0x9A9,
+	0x9AA,
+	0x9B1,
+	0x9B2,
+	0x9B3,
+	0x9B6,
+	0x9BA,
+	0x9BC,
+	0x9C5,
+	0x9C7,
+	0x9C9,
+	0x9CB,
+	0x9CF,
+	0x9D7,
+	0x9D8,
+	0x9DC,
+	0x9DE,
+	0x9DF,
+	0x9E4,
+	0x9E6,
+	0x9FC,
+	0xA01,
+	0xA04,
+	0xA05,
+	0xA0B,
+	0xA0F,
+	0xA11,
+	0xA13,
+	0xA29,
+	0xA2A,
+	0xA31,
+	0xA32,
+	0xA34,
+	0xA35,
+	0xA37,
+	0xA38,
+	0xA3A,
+	0xA3C,
+	0xA3D,
+	0xA3E,
+	0xA43,
+	0xA47,
+	0xA49,
+	0xA4B,
+	0xA4E,
+	0xA51,
+	0xA52,
+	0xA59,
+	0xA5D,
+	0xA5E,
+	0xA5F,
+	0xA66,
+	0xA76,
+	0xA81,
+	0xA84,
+	0xA85,
+	0xA8E,
+	0xA8F,
+	0xA92,
+	0xA93,
+	0xAA9,
+	0xAAA,
+	0xAB1,
+	0xAB2,
+	0xAB4,
+	0xAB5,
+	0xABA,
+	0xABC,
+	0xAC6,
+	0xAC7,
+	0xACA,
+	0xACB,
+	0xACE,
+	0xAD0,
+	0xAD1,
+	0xAE0,
+	0xAE4,
+	0xAE6,
+	0xAF2,
+	0xAF9,
+	0xAFA,
+	0xB01,
+	0xB04,
+	0xB05,
+	0xB0D,
+	0xB0F,
+	0xB11,
+	0xB13,
+	0xB29,
+	0xB2A,
+	0xB31,
+	0xB32,
+	0xB34,
+	0xB35,
+	0xB3A,
+	0xB3C,
+	0xB45,
+	0xB47,
+	0xB49,
+	0xB4B,
+	0xB4E,
+	0xB56,
+	0xB58,
+	0xB5C,
+	0xB5E,
+	0xB5F,
+	0xB64,
+	0xB66,
+	0xB78,
+	0xB82,
+	0xB84,
+	0xB85,
+	0xB8B,
+	0xB8E,
+	0xB91,
+	0xB92,
+	0xB96,
+	0xB99,
+	0xB9B,
+	0xB9C,
+	0xB9D,
+	0xB9E,
+	0xBA0,
+	0xBA3,
+	0xBA5,
+	0xBA8,
+	0xBAB,
+	0xBAE,
+	0xBBA,
+	0xBBE,
+	0xBC3,
+	0xBC6,
+	0xBC9,
+	0xBCA,
+	0xBCE,
+	0xBD0,
+	0xBD1,
+	0xBD7,
+	0xBD8,
+	0xBE6,
+	0xBFB,
+	0xC00,
+	0xC04,
+	0xC05,
+	0xC0D,
+	0xC0E,
+	0xC11,
+	0xC12,
+	0xC29,
+	0xC2A,
+	0xC3A,
+	0xC3D,
+	0xC45,
+	0xC46,
+	0xC49,
+	0xC4A,
+	0xC4E,
+	0xC55,
+	0xC57,
+	0xC58,
+	0xC5B,
+	0xC60,
+	0xC64,
+	0xC66,
+	0xC70,
+	0xC78,
+	0xC80,
+	0xC81,
+	0xC84,
+	0xC85,
+	0xC8D,
+	0xC8E,
+	0xC91,
+	0xC92,
+	0xCA9,
+	0xCAA,
+	0xCB4,
+	0xCB5,
+	0xCBA,
+	0xCBC,
+	0xCC5,
+	0xCC6,
+	0xCC9,
+	0xCCA,
+	0xCCE,
+	0xCD5,
+	0xCD7,
+	0xCDE,
+	0xCDF,
+	0xCE0,
+	0xCE4,
+	0xCE6,
+	0xCF0,
+	0xCF1,
+	0xCF3,
+	0xD01,
+	0xD04,
+	0xD05,
+	0xD0D,
+	0xD0E,
+	0xD11,
+	0xD12,
+	0xD3B,
+	0xD3D,
+	0xD45,
+	0xD46,
+	0xD49,
+	0xD4A,
+	0xD4F,
+	0xD57,
+	0xD58,
+	0xD5F,
+	0xD64,
+	0xD66,
+	0xD76,
+	0xD79,
+	0xD80,
+	0xD82,
+	0xD84,
+	0xD85,
+	0xD97,
+	0xD9A,
+	0xDB2,
+	0xDB3,
+	0xDBC,
+	0xDBD,
+	0xDBE,
+	0xDC0,
+	0xDC7,
+	0xDCA,
+	0xDCB,
+	0xDCF,
+	0xDD5,
+	0xDD6,
+	0xDD7,
+	0xDD8,
+	0xDE0,
+	0xDE6,
+	0xDF0,
+	0xDF2,
+	0xDF5,
+	0xE01,
+	0xE3B,
+	0xE3F,
+	0xE5C,
+	0xE81,
+	0xE83,
+	0xE84,
+	0xE85,
+	0xE87,
+	0xE89,
+	0xE8A,
+	0xE8B,
+	0xE8D,
+	0xE8E,
+	0xE94,
+	0xE98,
+	0xE99,
+	0xEA0,
+	0xEA1,
+	0xEA4,
+	0xEA5,
+	0xEA6,
+	0xEA7,
+	0xEA8,
+	0xEAA,
+	0xEAC,
+	0xEAD,
+	0xEBA,
+	0xEBB,
+	0xEBE,
+	0xEC0,
+	0xEC5,
+	0xEC6,
+	0xEC7,
+	0xEC8,
+	0xECE,
+	0xED0,
+	0xEDA,
+	0xEDC,
+	0xEE0,
+	0xF00,
+	0xF48,
+	0xF49,
+	0xF6D,
+	0xF71,
+	0xF98,
+	0xF99,
+	0xFBD,
+	0xFBE,
+	0xFCD,
+	0xFCE,
+	0xFDB,
+	0x1000,
+	0x10C6,
+	0x10C7,
+	0x10C8,
+	0x10CD,
+	0x10CE,
+	0x10D0,
+	0x1249,
+	0x124A,
+	0x124E,
+	0x1250,
+	0x1257,
+	0x1258,
+	0x1259,
+	0x125A,
+	0x125E,
+	0x1260,
+	0x1289,
+	0x128A,
+	0x128E,
+	0x1290,
+	0x12B1,
+	0x12B2,
+	0x12B6,
+	0x12B8,
+	0x12BF,
+	0x12C0,
+	0x12C1,
+	0x12C2,
+	0x12C6,
+	0x12C8,
+	0x12D7,
+	0x12D8,
+	0x1311,
+	0x1312,
+	0x1316,
+	0x1318,
+	0x135B,
+	0x135D,
+	0x137D,
+	0x1380,
+	0x139A,
+	0x13A0,
+	0x13F6,
+	0x13F8,
+	0x13FE,
+	0x1400,
+	0x1680,
+	0x1681,
+	0x169D,
+	0x16A0,
+	0x16F9,
+	0x1700,
+	0x170D,
+	0x170E,
+	0x1715,
+	0x1720,
+	0x1737,
+	0x1740,
+	0x1754,
+	0x1760,
+	0x176D,
+	0x176E,
+	0x1771,
+	0x1772,
+	0x1774,
+	0x1780,
+	0x17DE,
+	0x17E0,
+	0x17EA,
+	0x17F0,
+	0x17FA,
+	0x1800,
+	0x180F,
+	0x1810,
+	0x181A,
+	0x1820,
+	0x1878,
+	0x1880,
+	0x18AB,
+	0x18B0,
+	0x18F6,
+	0x1900,
+	0x191F,
+	0x1920,
+	0x192C,
+	0x1930,
+	0x193C,
+	0x1940,
+	0x1941,
+	0x1944,
+	0x196E,
+	0x1970,
+	0x1975,
+	0x1980,
+	0x19AC,
+	0x19B0,
+	0x19CA,
+	0x19D0,
+	0x19DB,
+	0x19DE,
+	0x1A1C,
+	0x1A1E,
+	0x1A5F,
+	0x1A60,
+	0x1A7D,
+	0x1A7F,
+	0x1A8A,
+	0x1A90,
+	0x1A9A,
+	0x1AA0,
+	0x1AAE,
+	0x1AB0,
+	0x1ABF,
+	0x1B00,
+	0x1B4C,
+	0x1B50,
+	0x1B7D,
+	0x1B80,
+	0x1BF4,
+	0x1BFC,
+	0x1C38,
+	0x1C3B,
+	0x1C4A,
+	0x1C4D,
+	0x1C80,
+	0x1CC0,
+	0x1CC8,
+	0x1CD0,
+	0x1CF7,
+	0x1CF8,
+	0x1CFA,
+	0x1D00,
+	0x1DF6,
+	0x1DFC,
+	0x1F16,
+	0x1F18,
+	0x1F1E,
+	0x1F20,
+	0x1F46,
+	0x1F48,
+	0x1F4E,
+	0x1F50,
+	0x1F58,
+	0x1F59,
+	0x1F5A,
+	0x1F5B,
+	0x1F5C,
+	0x1F5D,
+	0x1F5E,
+	0x1F5F,
+	0x1F7E,
+	0x1F80,
+	0x1FB5,
+	0x1FB6,
+	0x1FC5,
+	0x1FC6,
+	0x1FD4,
+	0x1FD6,
+	0x1FDC,
+	0x1FDD,
+	0x1FF0,
+	0x1FF2,
+	0x1FF5,
+	0x1FF6,
+	0x1FFF,
+	0x200B,
+	0x2028,
+	0x202A,
+	0x202F,
+	0x2030,
+	0x205F,
+	0x2060,
+	0x2065,
+	0x2066,
+	0x2072,
+	0x2074,
+	0x208F,
+	0x2090,
+	0x209D,
+	0x20A0,
+	0x20BF,
+	0x20D0,
+	0x20F1,
+	0x2100,
+	0x218C,
+	0x2190,
+	0x23FB,
+	0x2400,
+	0x2427,
+	0x2440,
+	0x244B,
+	0x2460,
+	0x2B74,
+	0x2B76,
+	0x2B96,
+	0x2B98,
+	0x2BBA,
+	0x2BBD,
+	0x2BC9,
+	0x2BCA,
+	0x2BD2,
+	0x2BEC,
+	0x2BF0,
+	0x2C00,
+	0x2C2F,
+	0x2C30,
+	0x2C5F,
+	0x2C60,
+	0x2CF4,
+	0x2CF9,
+	0x2D26,
+	0x2D27,
+	0x2D28,
+	0x2D2D,
+	0x2D2E,
+	0x2D30,
+	0x2D68,
+	0x2D6F,
+	0x2D71,
+	0x2D7F,
+	0x2D97,
+	0x2DA0,
+	0x2DA7,
+	0x2DA8,
+	0x2DAF,
+	0x2DB0,
+	0x2DB7,
+	0x2DB8,
+	0x2DBF,
+	0x2DC0,
+	0x2DC7,
+	0x2DC8,
+	0x2DCF,
+	0x2DD0,
+	0x2DD7,
+	0x2DD8,
+	0x2DDF,
+	0x2DE0,
+	0x2E43,
+	0x2E80,
+	0x2E9A,
+	0x2E9B,
+	0x2EF4,
+	0x2F00,
+	0x2FD6,
+	0x2FF0,
+	0x2FFC,
+	0x3001,
+	0x3040,
+	0x3041,
+	0x3097,
+	0x3099,
+	0x3100,
+	0x3105,
+	0x312E,
+	0x3131,
+	0x318F,
+	0x3190,
+	0x31BB,
+	0x31C0,
+	0x31E4,
+	0x31F0,
+	0x321F,
+	0x3220,
+	0x32FF,
+	0x3300,
+	0x4DB6,
+	0x4DC0,
+	0x9FD6,
+	0xA000,
+	0xA48D,
+	0xA490,
+	0xA4C7,
+	0xA4D0,
+	0xA62C,
+	0xA640,
+	0xA6F8,
+	0xA700,
+	0xA7AE,
+	0xA7B0,
+	0xA7B8,
+	0xA7F7,
+	0xA82C,
+	0xA830,
+	0xA83A,
+	0xA840,
+	0xA878,
+	0xA880,
+	0xA8C5,
+	0xA8CE,
+	0xA8DA,
+	0xA8E0,
+	0xA8FE,
+	0xA900,
+	0xA954,
+	0xA95F,
+	0xA97D,
+	0xA980,
+	0xA9CE,
+	0xA9CF,
+	0xA9DA,
+	0xA9DE,
+	0xA9FF,
+	0xAA00,
+	0xAA37,
+	0xAA40,
+	0xAA4E,
+	0xAA50,
+	0xAA5A,
+	0xAA5C,
+	0xAAC3,
+	0xAADB,
+	0xAAF7,
+	0xAB01,
+	0xAB07,
+	0xAB09,
+	0xAB0F,
+	0xAB11,
+	0xAB17,
+	0xAB20,
+	0xAB27,
+	0xAB28,
+	0xAB2F,
+	0xAB30,
+	0xAB66,
+	0xAB70,
+	0xABEE,
+	0xABF0,
+	0xABFA,
+	0xAC00,
+	0xD7A4,
+	0xD7B0,
+	0xD7C7,
+	0xD7CB,
+	0xD7FC,
+	0xE000,
+	0xFA6E,
+	0xFA70,
+	0xFADA,
+	0xFB00,
+	0xFB07,
+	0xFB13,
+	0xFB18,
+	0xFB1D,
+	0xFB37,
+	0xFB38,
+	0xFB3D,
+	0xFB3E,
+	0xFB3F,
+	0xFB40,
+	0xFB42,
+	0xFB43,
+	0xFB45,
+	0xFB46,
+	0xFBC2,
+	0xFBD3,
+	0xFD40,
+	0xFD50,
+	0xFD90,
+	0xFD92,
+	0xFDC8,
+	0xFDF0,
+	0xFDFE,
+	0xFE00,
+	0xFE1A,
+	0xFE20,
+	0xFE53,
+	0xFE54,
+	0xFE67,
+	0xFE68,
+	0xFE6C,
+	0xFE70,
+	0xFE75,
+	0xFE76,
+	0xFEFD,
+	0xFEFF,
+	0xFF00,
+	0xFF01,
+	0xFFBF,
+	0xFFC2,
+	0xFFC8,
+	0xFFCA,
+	0xFFD0,
+	0xFFD2,
+	0xFFD8,
+	0xFFDA,
+	0xFFDD,
+	0xFFE0,
+	0xFFE7,
+	0xFFE8,
+	0xFFEF,
+	0xFFF9,
+	0xFFFE,
+	0x10000,
+	0x1000C,
+	0x1000D,
+	0x10027,
+	0x10028,
+	0x1003B,
+	0x1003C,
+	0x1003E,
+	0x1003F,
+	0x1004E,
+	0x10050,
+	0x1005E,
+	0x10080,
+	0x100FB,
+	0x10100,
+	0x10103,
+	0x10107,
+	0x10134,
+	0x10137,
+	0x1018D,
+	0x10190,
+	0x1019C,
+	0x101A0,
+	0x101A1,
+	0x101D0,
+	0x101FE,
+	0x10280,
+	0x1029D,
+	0x102A0,
+	0x102D1,
+	0x102E0,
+	0x102FC,
+	0x10300,
+	0x10324,
+	0x10330,
+	0x1034B,
+	0x10350,
+	0x1037B,
+	0x10380,
+	0x1039E,
+	0x1039F,
+	0x103C4,
+	0x103C8,
+	0x103D6,
+	0x10400,
+	0x1049E,
+	0x104A0,
+	0x104AA,
+	0x10500,
+	0x10528,
+	0x10530,
+	0x10564,
+	0x1056F,
+	0x10570,
+	0x10600,
+	0x10737,
+	0x10740,
+	0x10756,
+	0x10760,
+	0x10768,
+	0x10800,
+	0x10806,
+	0x10808,
+	0x10809,
+	0x1080A,
+	0x10836,
+	0x10837,
+	0x10839,
+	0x1083C,
+	0x1083D,
+	0x1083F,
+	0x10856,
+	0x10857,
+	0x1089F,
+	0x108A7,
+	0x108B0,
+	0x108E0,
+	0x108F3,
+	0x108F4,
+	0x108F6,
+	0x108FB,
+	0x1091C,
+	0x1091F,
+	0x1093A,
+	0x1093F,
+	0x10940,
+	0x10980,
+	0x109B8,
+	0x109BC,
+	0x109D0,
+	0x109D2,
+	0x10A04,
+	0x10A05,
+	0x10A07,
+	0x10A0C,
+	0x10A14,
+	0x10A15,
+	0x10A18,
+	0x10A19,
+	0x10A34,
+	0x10A38,
+	0x10A3B,
+	0x10A3F,
+	0x10A48,
+	0x10A50,
+	0x10A59,
+	0x10A60,
+	0x10AA0,
+	0x10AC0,
+	0x10AE7,
+	0x10AEB,
+	0x10AF7,
+	0x10B00,
+	0x10B36,
+	0x10B39,
+	0x10B56,
+	0x10B58,
+	0x10B73,
+	0x10B78,
+	0x10B92,
+	0x10B99,
+	0x10B9D,
+	0x10BA9,
+	0x10BB0,
+	0x10C00,
+	0x10C49,
+	0x10C80,
+	0x10CB3,
+	0x10CC0,
+	0x10CF3,
+	0x10CFA,
+	0x10D00,
+	0x10E60,
+	0x10E7F,
+	0x11000,
+	0x1104E,
+	0x11052,
+	0x11070,
+	0x1107F,
+	0x110C2,
+	0x110D0,
+	0x110E9,
+	0x110F0,
+	0x110FA,
+	0x11100,
+	0x11135,
+	0x11136,
+	0x11144,
+	0x11150,
+	0x11177,
+	0x11180,
+	0x111CE,
+	0x111D0,
+	0x111E0,
+	0x111E1,
+	0x111F5,
+	0x11200,
+	0x11212,
+	0x11213,
+	0x1123E,
+	0x11280,
+	0x11287,
+	0x11288,
+	0x11289,
+	0x1128A,
+	0x1128E,
+	0x1128F,
+	0x1129E,
+	0x1129F,
+	0x112AA,
+	0x112B0,
+	0x112EB,
+	0x112F0,
+	0x112FA,
+	0x11300,
+	0x11304,
+	0x11305,
+	0x1130D,
+	0x1130F,
+	0x11311,
+	0x11313,
+	0x11329,
+	0x1132A,
+	0x11331,
+	0x11332,
+	0x11334,
+	0x11335,
+	0x1133A,
+	0x1133C,
+	0x11345,
+	0x11347,
+	0x11349,
+	0x1134B,
+	0x1134E,
+	0x11350,
+	0x11351,
+	0x11357,
+	0x11358,
+	0x1135D,
+	0x11364,
+	0x11366,
+	0x1136D,
+	0x11370,
+	0x11375,
+	0x11480,
+	0x114C8,
+	0x114D0,
+	0x114DA,
+	0x11580,
+	0x115B6,
+	0x115B8,
+	0x115DE,
+	0x11600,
+	0x11645,
+	0x11650,
+	0x1165A,
+	0x11680,
+	0x116B8,
+	0x116C0,
+	0x116CA,
+	0x11700,
+	0x1171A,
+	0x1171D,
+	0x1172C,
+	0x11730,
+	0x11740,
+	0x118A0,
+	0x118F3,
+	0x118FF,
+	0x11900,
+	0x11AC0,
+	0x11AF9,
+	0x12000,
+	0x1239A,
+	0x12400,
+	0x1246F,
+	0x12470,
+	0x12475,
+	0x12480,
+	0x12544,
+	0x13000,
+	0x1342F,
+	0x14400,
+	0x14647,
+	0x16800,
+	0x16A39,
+	0x16A40,
+	0x16A5F,
+	0x16A60,
+	0x16A6A,
+	0x16A6E,
+	0x16A70,
+	0x16AD0,
+	0x16AEE,
+	0x16AF0,
+	0x16AF6,
+	0x16B00,
+	0x16B46,
+	0x16B50,
+	0x16B5A,
+	0x16B5B,
+	0x16B62,
+	0x16B63,
+	0x16B78,
+	0x16B7D,
+	0x16B90,
+	0x16F00,
+	0x16F45,
+	0x16F50,
+	0x16F7F,
+	0x16F8F,
+	0x16FA0,
+	0x1B000,
+	0x1B002,
+	0x1BC00,
+	0x1BC6B,
+	0x1BC70,
+	0x1BC7D,
+	0x1BC80,
+	0x1BC89,
+	0x1BC90,
+	0x1BC9A,
+	0x1BC9C,
+	0x1BCA4,
+	0x1D000,
+	0x1D0F6,
+	0x1D100,
+	0x1D127,
+	0x1D129,
+	0x1D1E9,
+	0x1D200,
+	0x1D246,
+	0x1D300,
+	0x1D357,
+	0x1D360,
+	0x1D372,
+	0x1D400,
+	0x1D455,
+	0x1D456,
+	0x1D49D,
+	0x1D49E,
+	0x1D4A0,
+	0x1D4A2,
+	0x1D4A3,
+	0x1D4A5,
+	0x1D4A7,
+	0x1D4A9,
+	0x1D4AD,
+	0x1D4AE,
+	0x1D4BA,
+	0x1D4BB,
+	0x1D4BC,
+	0x1D4BD,
+	0x1D4C4,
+	0x1D4C5,
+	0x1D506,
+	0x1D507,
+	0x1D50B,
+	0x1D50D,
+	0x1D515,
+	0x1D516,
+	0x1D51D,
+	0x1D51E,
+	0x1D53A,
+	0x1D53B,
+	0x1D53F,
+	0x1D540,
+	0x1D545,
+	0x1D546,
+	0x1D547,
+	0x1D54A,
+	0x1D551,
+	0x1D552,
+	0x1D6A6,
+	0x1D6A8,
+	0x1D7CC,
+	0x1D7CE,
+	0x1DA8C,
+	0x1DA9B,
+	0x1DAA0,
+	0x1DAA1,
+	0x1DAB0,
+	0x1E800,
+	0x1E8C5,
+	0x1E8C7,
+	0x1E8D7,
+	0x1EE00,
+	0x1EE04,
+	0x1EE05,
+	0x1EE20,
+	0x1EE21,
+	0x1EE23,
+	0x1EE24,
+	0x1EE25,
+	0x1EE27,
+	0x1EE28,
+	0x1EE29,
+	0x1EE33,
+	0x1EE34,
+	0x1EE38,
+	0x1EE39,
+	0x1EE3A,
+	0x1EE3B,
+	0x1EE3C,
+	0x1EE42,
+	0x1EE43,
+	0x1EE47,
+	0x1EE48,
+	0x1EE49,
+	0x1EE4A,
+	0x1EE4B,
+	0x1EE4C,
+	0x1EE4D,
+	0x1EE50,
+	0x1EE51,
+	0x1EE53,
+	0x1EE54,
+	0x1EE55,
+	0x1EE57,
+	0x1EE58,
+	0x1EE59,
+	0x1EE5A,
+	0x1EE5B,
+	0x1EE5C,
+	0x1EE5D,
+	0x1EE5E,
+	0x1EE5F,
+	0x1EE60,
+	0x1EE61,
+	0x1EE63,
+	0x1EE64,
+	0x1EE65,
+	0x1EE67,
+	0x1EE6B,
+	0x1EE6C,
+	0x1EE73,
+	0x1EE74,
+	0x1EE78,
+	0x1EE79,
+	0x1EE7D,
+	0x1EE7E,
+	0x1EE7F,
+	0x1EE80,
+	0x1EE8A,
+	0x1EE8B,
+	0x1EE9C,
+	0x1EEA1,
+	0x1EEA4,
+	0x1EEA5,
+	0x1EEAA,
+	0x1EEAB,
+	0x1EEBC,
+	0x1EEF0,
+	0x1EEF2,
+	0x1F000,
+	0x1F02C,
+	0x1F030,
+	0x1F094,
+	0x1F0A0,
+	0x1F0AF,
+	0x1F0B1,
+	0x1F0C0,
+	0x1F0C1,
+	0x1F0D0,
+	0x1F0D1,
+	0x1F0F6,
+	0x1F100,
+	0x1F10D,
+	0x1F110,
+	0x1F12F,
+	0x1F130,
+	0x1F16C,
+	0x1F170,
+	0x1F19B,
+	0x1F1E6,
+	0x1F203,
+	0x1F210,
+	0x1F23B,
+	0x1F240,
+	0x1F249,
+	0x1F250,
+	0x1F252,
+	0x1F300,
+	0x1F57A,
+	0x1F57B,
+	0x1F5A4,
+	0x1F5A5,
+	0x1F6D1,
+	0x1F6E0,
+	0x1F6ED,
+	0x1F6F0,
+	0x1F6F4,
+	0x1F700,
+	0x1F774,
+	0x1F780,
+	0x1F7D5,
+	0x1F800,
+	0x1F80C,
+	0x1F810,
+	0x1F848,
+	0x1F850,
+	0x1F85A,
+	0x1F860,
+	0x1F888,
+	0x1F890,
+	0x1F8AE,
+	0x1F910,
+	0x1F919,
+	0x1F980,
+	0x1F985,
+	0x1F9C0,
+	0x1F9C1,
+	0x20000,
+	0x2A6D7,
+	0x2A700,
+	0x2B735,
+	0x2B740,
+	0x2B81E,
+	0x2B820,
+	0x2CEA2,
+	0x2F800,
+	0x2FA1E,
+	0xE0001,
+	0xE0002,
+	0xE0020,
+	0xE0080,
+	0xE0100,
+	0xE01F0,
+	0xF0000,
+	0xFFFFE,
+	0x100000,
+	0x10FFFE
+};
+
+static const UV XPosixLower_invlist[] = { /* for EBCDIC 1047 */
+	1283,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	1,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x42,
+	0x4A,
+	0x51,
+	0x5A,
+	0x70,
+	0x71,
+	0x81,
+	0x8A,
+	0x8C,
+	0x8F,
+	0x91,
+	0x9D,
+	0xA0,
+	0xA1,
+	0xA2,
+	0xAA,
+	0xCB,
+	0xD0,
+	0xDB,
+	0xE0,
+	0x101,
+	0x102,
+	0x103,
+	0x104,
+	0x105,
+	0x106,
+	0x107,
+	0x108,
+	0x109,
+	0x10A,
+	0x10B,
+	0x10C,
+	0x10D,
+	0x10E,
+	0x10F,
+	0x110,
+	0x111,
+	0x112,
+	0x113,
+	0x114,
+	0x115,
+	0x116,
+	0x117,
+	0x118,
+	0x119,
+	0x11A,
+	0x11B,
+	0x11C,
+	0x11D,
+	0x11E,
+	0x11F,
+	0x120,
+	0x121,
+	0x122,
+	0x123,
+	0x124,
+	0x125,
+	0x126,
+	0x127,
+	0x128,
+	0x129,
+	0x12A,
+	0x12B,
+	0x12C,
+	0x12D,
+	0x12E,
+	0x12F,
+	0x130,
+	0x131,
+	0x132,
+	0x133,
+	0x134,
+	0x135,
+	0x136,
+	0x137,
+	0x139,
+	0x13A,
+	0x13B,
+	0x13C,
+	0x13D,
+	0x13E,
+	0x13F,
+	0x140,
+	0x141,
+	0x142,
+	0x143,
+	0x144,
+	0x145,
+	0x146,
+	0x147,
+	0x148,
+	0x14A,
+	0x14B,
+	0x14C,
+	0x14D,
+	0x14E,
+	0x14F,
+	0x150,
+	0x151,
+	0x152,
+	0x153,
+	0x154,
+	0x155,
+	0x156,
+	0x157,
+	0x158,
+	0x159,
+	0x15A,
+	0x15B,
+	0x15C,
+	0x15D,
+	0x15E,
+	0x15F,
+	0x160,
+	0x161,
+	0x162,
+	0x163,
+	0x164,
+	0x165,
+	0x166,
+	0x167,
+	0x168,
+	0x169,
+	0x16A,
+	0x16B,
+	0x16C,
+	0x16D,
+	0x16E,
+	0x16F,
+	0x170,
+	0x171,
+	0x172,
+	0x173,
+	0x174,
+	0x175,
+	0x176,
+	0x177,
+	0x178,
+	0x17A,
+	0x17B,
+	0x17C,
+	0x17D,
+	0x17E,
+	0x181,
+	0x183,
+	0x184,
+	0x185,
+	0x186,
+	0x188,
+	0x189,
+	0x18C,
+	0x18E,
+	0x192,
+	0x193,
+	0x195,
+	0x196,
+	0x199,
+	0x19C,
+	0x19E,
+	0x19F,
+	0x1A1,
+	0x1A2,
+	0x1A3,
+	0x1A4,
+	0x1A5,
+	0x1A6,
+	0x1A8,
+	0x1A9,
+	0x1AA,
+	0x1AC,
+	0x1AD,
+	0x1AE,
+	0x1B0,
+	0x1B1,
+	0x1B4,
+	0x1B5,
+	0x1B6,
+	0x1B7,
+	0x1B9,
+	0x1BB,
+	0x1BD,
+	0x1C0,
+	0x1C6,
+	0x1C7,
+	0x1C9,
+	0x1CA,
+	0x1CC,
+	0x1CD,
+	0x1CE,
+	0x1CF,
+	0x1D0,
+	0x1D1,
+	0x1D2,
+	0x1D3,
+	0x1D4,
+	0x1D5,
+	0x1D6,
+	0x1D7,
+	0x1D8,
+	0x1D9,
+	0x1DA,
+	0x1DB,
+	0x1DC,
+	0x1DE,
+	0x1DF,
+	0x1E0,
+	0x1E1,
+	0x1E2,
+	0x1E3,
+	0x1E4,
+	0x1E5,
+	0x1E6,
+	0x1E7,
+	0x1E8,
+	0x1E9,
+	0x1EA,
+	0x1EB,
+	0x1EC,
+	0x1ED,
+	0x1EE,
+	0x1EF,
+	0x1F1,
+	0x1F3,
+	0x1F4,
+	0x1F5,
+	0x1F6,
+	0x1F9,
+	0x1FA,
+	0x1FB,
+	0x1FC,
+	0x1FD,
+	0x1FE,
+	0x1FF,
+	0x200,
+	0x201,
+	0x202,
+	0x203,
+	0x204,
+	0x205,
+	0x206,
+	0x207,
+	0x208,
+	0x209,
+	0x20A,
+	0x20B,
+	0x20C,
+	0x20D,
+	0x20E,
+	0x20F,
+	0x210,
+	0x211,
+	0x212,
+	0x213,
+	0x214,
+	0x215,
+	0x216,
+	0x217,
+	0x218,
+	0x219,
+	0x21A,
+	0x21B,
+	0x21C,
+	0x21D,
+	0x21E,
+	0x21F,
+	0x220,
+	0x221,
+	0x222,
+	0x223,
+	0x224,
+	0x225,
+	0x226,
+	0x227,
+	0x228,
+	0x229,
+	0x22A,
+	0x22B,
+	0x22C,
+	0x22D,
+	0x22E,
+	0x22F,
+	0x230,
+	0x231,
+	0x232,
+	0x233,
+	0x23A,
+	0x23C,
+	0x23D,
+	0x23F,
+	0x241,
+	0x242,
+	0x243,
+	0x247,
+	0x248,
+	0x249,
+	0x24A,
+	0x24B,
+	0x24C,
+	0x24D,
+	0x24E,
+	0x24F,
+	0x294,
+	0x295,
+	0x2B9,
+	0x2C0,
+	0x2C2,
+	0x2E0,
+	0x2E5,
+	0x345,
+	0x346,
+	0x371,
+	0x372,
+	0x373,
+	0x374,
+	0x377,
+	0x378,
+	0x37A,
+	0x37E,
+	0x390,
+	0x391,
+	0x3AC,
+	0x3CF,
+	0x3D0,
+	0x3D2,
+	0x3D5,
+	0x3D8,
+	0x3D9,
+	0x3DA,
+	0x3DB,
+	0x3DC,
+	0x3DD,
+	0x3DE,
+	0x3DF,
+	0x3E0,
+	0x3E1,
+	0x3E2,
+	0x3E3,
+	0x3E4,
+	0x3E5,
+	0x3E6,
+	0x3E7,
+	0x3E8,
+	0x3E9,
+	0x3EA,
+	0x3EB,
+	0x3EC,
+	0x3ED,
+	0x3EE,
+	0x3EF,
+	0x3F4,
+	0x3F5,
+	0x3F6,
+	0x3F8,
+	0x3F9,
+	0x3FB,
+	0x3FD,
+	0x430,
+	0x460,
+	0x461,
+	0x462,
+	0x463,
+	0x464,
+	0x465,
+	0x466,
+	0x467,
+	0x468,
+	0x469,
+	0x46A,
+	0x46B,
+	0x46C,
+	0x46D,
+	0x46E,
+	0x46F,
+	0x470,
+	0x471,
+	0x472,
+	0x473,
+	0x474,
+	0x475,
+	0x476,
+	0x477,
+	0x478,
+	0x479,
+	0x47A,
+	0x47B,
+	0x47C,
+	0x47D,
+	0x47E,
+	0x47F,
+	0x480,
+	0x481,
+	0x482,
+	0x48B,
+	0x48C,
+	0x48D,
+	0x48E,
+	0x48F,
+	0x490,
+	0x491,
+	0x492,
+	0x493,
+	0x494,
+	0x495,
+	0x496,
+	0x497,
+	0x498,
+	0x499,
+	0x49A,
+	0x49B,
+	0x49C,
+	0x49D,
+	0x49E,
+	0x49F,
+	0x4A0,
+	0x4A1,
+	0x4A2,
+	0x4A3,
+	0x4A4,
+	0x4A5,
+	0x4A6,
+	0x4A7,
+	0x4A8,
+	0x4A9,
+	0x4AA,
+	0x4AB,
+	0x4AC,
+	0x4AD,
+	0x4AE,
+	0x4AF,
+	0x4B0,
+	0x4B1,
+	0x4B2,
+	0x4B3,
+	0x4B4,
+	0x4B5,
+	0x4B6,
+	0x4B7,
+	0x4B8,
+	0x4B9,
+	0x4BA,
+	0x4BB,
+	0x4BC,
+	0x4BD,
+	0x4BE,
+	0x4BF,
+	0x4C0,
+	0x4C2,
+	0x4C3,
+	0x4C4,
+	0x4C5,
+	0x4C6,
+	0x4C7,
+	0x4C8,
+	0x4C9,
+	0x4CA,
+	0x4CB,
+	0x4CC,
+	0x4CD,
+	0x4CE,
+	0x4D0,
+	0x4D1,
+	0x4D2,
+	0x4D3,
+	0x4D4,
+	0x4D5,
+	0x4D6,
+	0x4D7,
+	0x4D8,
+	0x4D9,
+	0x4DA,
+	0x4DB,
+	0x4DC,
+	0x4DD,
+	0x4DE,
+	0x4DF,
+	0x4E0,
+	0x4E1,
+	0x4E2,
+	0x4E3,
+	0x4E4,
+	0x4E5,
+	0x4E6,
+	0x4E7,
+	0x4E8,
+	0x4E9,
+	0x4EA,
+	0x4EB,
+	0x4EC,
+	0x4ED,
+	0x4EE,
+	0x4EF,
+	0x4F0,
+	0x4F1,
+	0x4F2,
+	0x4F3,
+	0x4F4,
+	0x4F5,
+	0x4F6,
+	0x4F7,
+	0x4F8,
+	0x4F9,
+	0x4FA,
+	0x4FB,
+	0x4FC,
+	0x4FD,
+	0x4FE,
+	0x4FF,
+	0x500,
+	0x501,
+	0x502,
+	0x503,
+	0x504,
+	0x505,
+	0x506,
+	0x507,
+	0x508,
+	0x509,
+	0x50A,
+	0x50B,
+	0x50C,
+	0x50D,
+	0x50E,
+	0x50F,
+	0x510,
+	0x511,
+	0x512,
+	0x513,
+	0x514,
+	0x515,
+	0x516,
+	0x517,
+	0x518,
+	0x519,
+	0x51A,
+	0x51B,
+	0x51C,
+	0x51D,
+	0x51E,
+	0x51F,
+	0x520,
+	0x521,
+	0x522,
+	0x523,
+	0x524,
+	0x525,
+	0x526,
+	0x527,
+	0x528,
+	0x529,
+	0x52A,
+	0x52B,
+	0x52C,
+	0x52D,
+	0x52E,
+	0x52F,
+	0x530,
+	0x561,
+	0x588,
+	0x13F8,
+	0x13FE,
+	0x1D00,
+	0x1DC0,
+	0x1E01,
+	0x1E02,
+	0x1E03,
+	0x1E04,
+	0x1E05,
+	0x1E06,
+	0x1E07,
+	0x1E08,
+	0x1E09,
+	0x1E0A,
+	0x1E0B,
+	0x1E0C,
+	0x1E0D,
+	0x1E0E,
+	0x1E0F,
+	0x1E10,
+	0x1E11,
+	0x1E12,
+	0x1E13,
+	0x1E14,
+	0x1E15,
+	0x1E16,
+	0x1E17,
+	0x1E18,
+	0x1E19,
+	0x1E1A,
+	0x1E1B,
+	0x1E1C,
+	0x1E1D,
+	0x1E1E,
+	0x1E1F,
+	0x1E20,
+	0x1E21,
+	0x1E22,
+	0x1E23,
+	0x1E24,
+	0x1E25,
+	0x1E26,
+	0x1E27,
+	0x1E28,
+	0x1E29,
+	0x1E2A,
+	0x1E2B,
+	0x1E2C,
+	0x1E2D,
+	0x1E2E,
+	0x1E2F,
+	0x1E30,
+	0x1E31,
+	0x1E32,
+	0x1E33,
+	0x1E34,
+	0x1E35,
+	0x1E36,
+	0x1E37,
+	0x1E38,
+	0x1E39,
+	0x1E3A,
+	0x1E3B,
+	0x1E3C,
+	0x1E3D,
+	0x1E3E,
+	0x1E3F,
+	0x1E40,
+	0x1E41,
+	0x1E42,
+	0x1E43,
+	0x1E44,
+	0x1E45,
+	0x1E46,
+	0x1E47,
+	0x1E48,
+	0x1E49,
+	0x1E4A,
+	0x1E4B,
+	0x1E4C,
+	0x1E4D,
+	0x1E4E,
+	0x1E4F,
+	0x1E50,
+	0x1E51,
+	0x1E52,
+	0x1E53,
+	0x1E54,
+	0x1E55,
+	0x1E56,
+	0x1E57,
+	0x1E58,
+	0x1E59,
+	0x1E5A,
+	0x1E5B,
+	0x1E5C,
+	0x1E5D,
+	0x1E5E,
+	0x1E5F,
+	0x1E60,
+	0x1E61,
+	0x1E62,
+	0x1E63,
+	0x1E64,
+	0x1E65,
+	0x1E66,
+	0x1E67,
+	0x1E68,
+	0x1E69,
+	0x1E6A,
+	0x1E6B,
+	0x1E6C,
+	0x1E6D,
+	0x1E6E,
+	0x1E6F,
+	0x1E70,
+	0x1E71,
+	0x1E72,
+	0x1E73,
+	0x1E74,
+	0x1E75,
+	0x1E76,
+	0x1E77,
+	0x1E78,
+	0x1E79,
+	0x1E7A,
+	0x1E7B,
+	0x1E7C,
+	0x1E7D,
+	0x1E7E,
+	0x1E7F,
+	0x1E80,
+	0x1E81,
+	0x1E82,
+	0x1E83,
+	0x1E84,
+	0x1E85,
+	0x1E86,
+	0x1E87,
+	0x1E88,
+	0x1E89,
+	0x1E8A,
+	0x1E8B,
+	0x1E8C,
+	0x1E8D,
+	0x1E8E,
+	0x1E8F,
+	0x1E90,
+	0x1E91,
+	0x1E92,
+	0x1E93,
+	0x1E94,
+	0x1E95,
+	0x1E9E,
+	0x1E9F,
+	0x1EA0,
+	0x1EA1,
+	0x1EA2,
+	0x1EA3,
+	0x1EA4,
+	0x1EA5,
+	0x1EA6,
+	0x1EA7,
+	0x1EA8,
+	0x1EA9,
+	0x1EAA,
+	0x1EAB,
+	0x1EAC,
+	0x1EAD,
+	0x1EAE,
+	0x1EAF,
+	0x1EB0,
+	0x1EB1,
+	0x1EB2,
+	0x1EB3,
+	0x1EB4,
+	0x1EB5,
+	0x1EB6,
+	0x1EB7,
+	0x1EB8,
+	0x1EB9,
+	0x1EBA,
+	0x1EBB,
+	0x1EBC,
+	0x1EBD,
+	0x1EBE,
+	0x1EBF,
+	0x1EC0,
+	0x1EC1,
+	0x1EC2,
+	0x1EC3,
+	0x1EC4,
+	0x1EC5,
+	0x1EC6,
+	0x1EC7,
+	0x1EC8,
+	0x1EC9,
+	0x1ECA,
+	0x1ECB,
+	0x1ECC,
+	0x1ECD,
+	0x1ECE,
+	0x1ECF,
+	0x1ED0,
+	0x1ED1,
+	0x1ED2,
+	0x1ED3,
+	0x1ED4,
+	0x1ED5,
+	0x1ED6,
+	0x1ED7,
+	0x1ED8,
+	0x1ED9,
+	0x1EDA,
+	0x1EDB,
+	0x1EDC,
+	0x1EDD,
+	0x1EDE,
+	0x1EDF,
+	0x1EE0,
+	0x1EE1,
+	0x1EE2,
+	0x1EE3,
+	0x1EE4,
+	0x1EE5,
+	0x1EE6,
+	0x1EE7,
+	0x1EE8,
+	0x1EE9,
+	0x1EEA,
+	0x1EEB,
+	0x1EEC,
+	0x1EED,
+	0x1EEE,
+	0x1EEF,
+	0x1EF0,
+	0x1EF1,
+	0x1EF2,
+	0x1EF3,
+	0x1EF4,
+	0x1EF5,
+	0x1EF6,
+	0x1EF7,
+	0x1EF8,
+	0x1EF9,
+	0x1EFA,
+	0x1EFB,
+	0x1EFC,
+	0x1EFD,
+	0x1EFE,
+	0x1EFF,
+	0x1F08,
+	0x1F10,
+	0x1F16,
+	0x1F20,
+	0x1F28,
+	0x1F30,
+	0x1F38,
+	0x1F40,
+	0x1F46,
+	0x1F50,
+	0x1F58,
+	0x1F60,
+	0x1F68,
+	0x1F70,
+	0x1F7E,
+	0x1F80,
+	0x1F88,
+	0x1F90,
+	0x1F98,
+	0x1FA0,
+	0x1FA8,
+	0x1FB0,
+	0x1FB5,
+	0x1FB6,
+	0x1FB8,
+	0x1FBE,
+	0x1FBF,
+	0x1FC2,
+	0x1FC5,
+	0x1FC6,
+	0x1FC8,
+	0x1FD0,
+	0x1FD4,
+	0x1FD6,
+	0x1FD8,
+	0x1FE0,
+	0x1FE8,
+	0x1FF2,
+	0x1FF5,
+	0x1FF6,
+	0x1FF8,
+	0x2071,
+	0x2072,
+	0x207F,
+	0x2080,
+	0x2090,
+	0x209D,
+	0x210A,
+	0x210B,
+	0x210E,
+	0x2110,
+	0x2113,
+	0x2114,
+	0x212F,
+	0x2130,
+	0x2134,
+	0x2135,
+	0x2139,
+	0x213A,
+	0x213C,
+	0x213E,
+	0x2146,
+	0x214A,
+	0x214E,
+	0x214F,
+	0x2170,
+	0x2180,
+	0x2184,
+	0x2185,
+	0x24D0,
+	0x24EA,
+	0x2C30,
+	0x2C5F,
+	0x2C61,
+	0x2C62,
+	0x2C65,
+	0x2C67,
+	0x2C68,
+	0x2C69,
+	0x2C6A,
+	0x2C6B,
+	0x2C6C,
+	0x2C6D,
+	0x2C71,
+	0x2C72,
+	0x2C73,
+	0x2C75,
+	0x2C76,
+	0x2C7E,
+	0x2C81,
+	0x2C82,
+	0x2C83,
+	0x2C84,
+	0x2C85,
+	0x2C86,
+	0x2C87,
+	0x2C88,
+	0x2C89,
+	0x2C8A,
+	0x2C8B,
+	0x2C8C,
+	0x2C8D,
+	0x2C8E,
+	0x2C8F,
+	0x2C90,
+	0x2C91,
+	0x2C92,
+	0x2C93,
+	0x2C94,
+	0x2C95,
+	0x2C96,
+	0x2C97,
+	0x2C98,
+	0x2C99,
+	0x2C9A,
+	0x2C9B,
+	0x2C9C,
+	0x2C9D,
+	0x2C9E,
+	0x2C9F,
+	0x2CA0,
+	0x2CA1,
+	0x2CA2,
+	0x2CA3,
+	0x2CA4,
+	0x2CA5,
+	0x2CA6,
+	0x2CA7,
+	0x2CA8,
+	0x2CA9,
+	0x2CAA,
+	0x2CAB,
+	0x2CAC,
+	0x2CAD,
+	0x2CAE,
+	0x2CAF,
+	0x2CB0,
+	0x2CB1,
+	0x2CB2,
+	0x2CB3,
+	0x2CB4,
+	0x2CB5,
+	0x2CB6,
+	0x2CB7,
+	0x2CB8,
+	0x2CB9,
+	0x2CBA,
+	0x2CBB,
+	0x2CBC,
+	0x2CBD,
+	0x2CBE,
+	0x2CBF,
+	0x2CC0,
+	0x2CC1,
+	0x2CC2,
+	0x2CC3,
+	0x2CC4,
+	0x2CC5,
+	0x2CC6,
+	0x2CC7,
+	0x2CC8,
+	0x2CC9,
+	0x2CCA,
+	0x2CCB,
+	0x2CCC,
+	0x2CCD,
+	0x2CCE,
+	0x2CCF,
+	0x2CD0,
+	0x2CD1,
+	0x2CD2,
+	0x2CD3,
+	0x2CD4,
+	0x2CD5,
+	0x2CD6,
+	0x2CD7,
+	0x2CD8,
+	0x2CD9,
+	0x2CDA,
+	0x2CDB,
+	0x2CDC,
+	0x2CDD,
+	0x2CDE,
+	0x2CDF,
+	0x2CE0,
+	0x2CE1,
+	0x2CE2,
+	0x2CE3,
+	0x2CE5,
+	0x2CEC,
+	0x2CED,
+	0x2CEE,
+	0x2CEF,
+	0x2CF3,
+	0x2CF4,
+	0x2D00,
+	0x2D26,
+	0x2D27,
+	0x2D28,
+	0x2D2D,
+	0x2D2E,
+	0xA641,
+	0xA642,
+	0xA643,
+	0xA644,
+	0xA645,
+	0xA646,
+	0xA647,
+	0xA648,
+	0xA649,
+	0xA64A,
+	0xA64B,
+	0xA64C,
+	0xA64D,
+	0xA64E,
+	0xA64F,
+	0xA650,
+	0xA651,
+	0xA652,
+	0xA653,
+	0xA654,
+	0xA655,
+	0xA656,
+	0xA657,
+	0xA658,
+	0xA659,
+	0xA65A,
+	0xA65B,
+	0xA65C,
+	0xA65D,
+	0xA65E,
+	0xA65F,
+	0xA660,
+	0xA661,
+	0xA662,
+	0xA663,
+	0xA664,
+	0xA665,
+	0xA666,
+	0xA667,
+	0xA668,
+	0xA669,
+	0xA66A,
+	0xA66B,
+	0xA66C,
+	0xA66D,
+	0xA66E,
+	0xA681,
+	0xA682,
+	0xA683,
+	0xA684,
+	0xA685,
+	0xA686,
+	0xA687,
+	0xA688,
+	0xA689,
+	0xA68A,
+	0xA68B,
+	0xA68C,
+	0xA68D,
+	0xA68E,
+	0xA68F,
+	0xA690,
+	0xA691,
+	0xA692,
+	0xA693,
+	0xA694,
+	0xA695,
+	0xA696,
+	0xA697,
+	0xA698,
+	0xA699,
+	0xA69A,
+	0xA69B,
+	0xA69E,
+	0xA723,
+	0xA724,
+	0xA725,
+	0xA726,
+	0xA727,
+	0xA728,
+	0xA729,
+	0xA72A,
+	0xA72B,
+	0xA72C,
+	0xA72D,
+	0xA72E,
+	0xA72F,
+	0xA732,
+	0xA733,
+	0xA734,
+	0xA735,
+	0xA736,
+	0xA737,
+	0xA738,
+	0xA739,
+	0xA73A,
+	0xA73B,
+	0xA73C,
+	0xA73D,
+	0xA73E,
+	0xA73F,
+	0xA740,
+	0xA741,
+	0xA742,
+	0xA743,
+	0xA744,
+	0xA745,
+	0xA746,
+	0xA747,
+	0xA748,
+	0xA749,
+	0xA74A,
+	0xA74B,
+	0xA74C,
+	0xA74D,
+	0xA74E,
+	0xA74F,
+	0xA750,
+	0xA751,
+	0xA752,
+	0xA753,
+	0xA754,
+	0xA755,
+	0xA756,
+	0xA757,
+	0xA758,
+	0xA759,
+	0xA75A,
+	0xA75B,
+	0xA75C,
+	0xA75D,
+	0xA75E,
+	0xA75F,
+	0xA760,
+	0xA761,
+	0xA762,
+	0xA763,
+	0xA764,
+	0xA765,
+	0xA766,
+	0xA767,
+	0xA768,
+	0xA769,
+	0xA76A,
+	0xA76B,
+	0xA76C,
+	0xA76D,
+	0xA76E,
+	0xA76F,
+	0xA779,
+	0xA77A,
+	0xA77B,
+	0xA77C,
+	0xA77D,
+	0xA77F,
+	0xA780,
+	0xA781,
+	0xA782,
+	0xA783,
+	0xA784,
+	0xA785,
+	0xA786,
+	0xA787,
+	0xA788,
+	0xA78C,
+	0xA78D,
+	0xA78E,
+	0xA78F,
+	0xA791,
+	0xA792,
+	0xA793,
+	0xA796,
+	0xA797,
+	0xA798,
+	0xA799,
+	0xA79A,
+	0xA79B,
+	0xA79C,
+	0xA79D,
+	0xA79E,
+	0xA79F,
+	0xA7A0,
+	0xA7A1,
+	0xA7A2,
+	0xA7A3,
+	0xA7A4,
+	0xA7A5,
+	0xA7A6,
+	0xA7A7,
+	0xA7A8,
+	0xA7A9,
+	0xA7AA,
+	0xA7B5,
+	0xA7B6,
+	0xA7B7,
+	0xA7B8,
+	0xA7F8,
+	0xA7FB,
+	0xAB30,
+	0xAB5B,
+	0xAB5C,
+	0xAB66,
+	0xAB70,
+	0xABC0,
+	0xFB00,
+	0xFB07,
+	0xFB13,
+	0xFB18,
+	0xFF41,
+	0xFF5B,
+	0x10428,
+	0x10450,
+	0x10CC0,
+	0x10CF3,
+	0x118C0,
+	0x118E0,
+	0x1D41A,
+	0x1D434,
+	0x1D44E,
+	0x1D455,
+	0x1D456,
+	0x1D468,
+	0x1D482,
+	0x1D49C,
+	0x1D4B6,
+	0x1D4BA,
+	0x1D4BB,
+	0x1D4BC,
+	0x1D4BD,
+	0x1D4C4,
+	0x1D4C5,
+	0x1D4D0,
+	0x1D4EA,
+	0x1D504,
+	0x1D51E,
+	0x1D538,
+	0x1D552,
+	0x1D56C,
+	0x1D586,
+	0x1D5A0,
+	0x1D5BA,
+	0x1D5D4,
+	0x1D5EE,
+	0x1D608,
+	0x1D622,
+	0x1D63C,
+	0x1D656,
+	0x1D670,
+	0x1D68A,
+	0x1D6A6,
+	0x1D6C2,
+	0x1D6DB,
+	0x1D6DC,
+	0x1D6E2,
+	0x1D6FC,
+	0x1D715,
+	0x1D716,
+	0x1D71C,
+	0x1D736,
+	0x1D74F,
+	0x1D750,
+	0x1D756,
+	0x1D770,
+	0x1D789,
+	0x1D78A,
+	0x1D790,
+	0x1D7AA,
+	0x1D7C3,
+	0x1D7C4,
+	0x1D7CA,
+	0x1D7CB,
+	0x1D7CC
+};
+
+static const UV XPosixPrint_invlist[] = { /* for EBCDIC 1047 */
+	1231,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	1,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x40,
+	0xFF,
+	0x100,
+	0x378,
+	0x37A,
+	0x380,
+	0x384,
+	0x38B,
+	0x38C,
+	0x38D,
+	0x38E,
+	0x3A2,
+	0x3A3,
+	0x530,
+	0x531,
+	0x557,
+	0x559,
+	0x560,
+	0x561,
+	0x588,
+	0x589,
+	0x58B,
+	0x58D,
+	0x590,
+	0x591,
+	0x5C8,
+	0x5D0,
+	0x5EB,
+	0x5F0,
+	0x5F5,
+	0x600,
+	0x61D,
+	0x61E,
+	0x70E,
+	0x70F,
+	0x74B,
+	0x74D,
+	0x7B2,
+	0x7C0,
+	0x7FB,
+	0x800,
+	0x82E,
+	0x830,
+	0x83F,
+	0x840,
+	0x85C,
+	0x85E,
+	0x85F,
+	0x8A0,
+	0x8B5,
+	0x8E3,
+	0x984,
+	0x985,
+	0x98D,
+	0x98F,
+	0x991,
+	0x993,
+	0x9A9,
+	0x9AA,
+	0x9B1,
+	0x9B2,
+	0x9B3,
+	0x9B6,
+	0x9BA,
+	0x9BC,
+	0x9C5,
+	0x9C7,
+	0x9C9,
+	0x9CB,
+	0x9CF,
+	0x9D7,
+	0x9D8,
+	0x9DC,
+	0x9DE,
+	0x9DF,
+	0x9E4,
+	0x9E6,
+	0x9FC,
+	0xA01,
+	0xA04,
+	0xA05,
+	0xA0B,
+	0xA0F,
+	0xA11,
+	0xA13,
+	0xA29,
+	0xA2A,
+	0xA31,
+	0xA32,
+	0xA34,
+	0xA35,
+	0xA37,
+	0xA38,
+	0xA3A,
+	0xA3C,
+	0xA3D,
+	0xA3E,
+	0xA43,
+	0xA47,
+	0xA49,
+	0xA4B,
+	0xA4E,
+	0xA51,
+	0xA52,
+	0xA59,
+	0xA5D,
+	0xA5E,
+	0xA5F,
+	0xA66,
+	0xA76,
+	0xA81,
+	0xA84,
+	0xA85,
+	0xA8E,
+	0xA8F,
+	0xA92,
+	0xA93,
+	0xAA9,
+	0xAAA,
+	0xAB1,
+	0xAB2,
+	0xAB4,
+	0xAB5,
+	0xABA,
+	0xABC,
+	0xAC6,
+	0xAC7,
+	0xACA,
+	0xACB,
+	0xACE,
+	0xAD0,
+	0xAD1,
+	0xAE0,
+	0xAE4,
+	0xAE6,
+	0xAF2,
+	0xAF9,
+	0xAFA,
+	0xB01,
+	0xB04,
+	0xB05,
+	0xB0D,
+	0xB0F,
+	0xB11,
+	0xB13,
+	0xB29,
+	0xB2A,
+	0xB31,
+	0xB32,
+	0xB34,
+	0xB35,
+	0xB3A,
+	0xB3C,
+	0xB45,
+	0xB47,
+	0xB49,
+	0xB4B,
+	0xB4E,
+	0xB56,
+	0xB58,
+	0xB5C,
+	0xB5E,
+	0xB5F,
+	0xB64,
+	0xB66,
+	0xB78,
+	0xB82,
+	0xB84,
+	0xB85,
+	0xB8B,
+	0xB8E,
+	0xB91,
+	0xB92,
+	0xB96,
+	0xB99,
+	0xB9B,
+	0xB9C,
+	0xB9D,
+	0xB9E,
+	0xBA0,
+	0xBA3,
+	0xBA5,
+	0xBA8,
+	0xBAB,
+	0xBAE,
+	0xBBA,
+	0xBBE,
+	0xBC3,
+	0xBC6,
+	0xBC9,
+	0xBCA,
+	0xBCE,
+	0xBD0,
+	0xBD1,
+	0xBD7,
+	0xBD8,
+	0xBE6,
+	0xBFB,
+	0xC00,
+	0xC04,
+	0xC05,
+	0xC0D,
+	0xC0E,
+	0xC11,
+	0xC12,
+	0xC29,
+	0xC2A,
+	0xC3A,
+	0xC3D,
+	0xC45,
+	0xC46,
+	0xC49,
+	0xC4A,
+	0xC4E,
+	0xC55,
+	0xC57,
+	0xC58,
+	0xC5B,
+	0xC60,
+	0xC64,
+	0xC66,
+	0xC70,
+	0xC78,
+	0xC80,
+	0xC81,
+	0xC84,
+	0xC85,
+	0xC8D,
+	0xC8E,
+	0xC91,
+	0xC92,
+	0xCA9,
+	0xCAA,
+	0xCB4,
+	0xCB5,
+	0xCBA,
+	0xCBC,
+	0xCC5,
+	0xCC6,
+	0xCC9,
+	0xCCA,
+	0xCCE,
+	0xCD5,
+	0xCD7,
+	0xCDE,
+	0xCDF,
+	0xCE0,
+	0xCE4,
+	0xCE6,
+	0xCF0,
+	0xCF1,
+	0xCF3,
+	0xD01,
+	0xD04,
+	0xD05,
+	0xD0D,
+	0xD0E,
+	0xD11,
+	0xD12,
+	0xD3B,
+	0xD3D,
+	0xD45,
+	0xD46,
+	0xD49,
+	0xD4A,
+	0xD4F,
+	0xD57,
+	0xD58,
+	0xD5F,
+	0xD64,
+	0xD66,
+	0xD76,
+	0xD79,
+	0xD80,
+	0xD82,
+	0xD84,
+	0xD85,
+	0xD97,
+	0xD9A,
+	0xDB2,
+	0xDB3,
+	0xDBC,
+	0xDBD,
+	0xDBE,
+	0xDC0,
+	0xDC7,
+	0xDCA,
+	0xDCB,
+	0xDCF,
+	0xDD5,
+	0xDD6,
+	0xDD7,
+	0xDD8,
+	0xDE0,
+	0xDE6,
+	0xDF0,
+	0xDF2,
+	0xDF5,
+	0xE01,
+	0xE3B,
+	0xE3F,
+	0xE5C,
+	0xE81,
+	0xE83,
+	0xE84,
+	0xE85,
+	0xE87,
+	0xE89,
+	0xE8A,
+	0xE8B,
+	0xE8D,
+	0xE8E,
+	0xE94,
+	0xE98,
+	0xE99,
+	0xEA0,
+	0xEA1,
+	0xEA4,
+	0xEA5,
+	0xEA6,
+	0xEA7,
+	0xEA8,
+	0xEAA,
+	0xEAC,
+	0xEAD,
+	0xEBA,
+	0xEBB,
+	0xEBE,
+	0xEC0,
+	0xEC5,
+	0xEC6,
+	0xEC7,
+	0xEC8,
+	0xECE,
+	0xED0,
+	0xEDA,
+	0xEDC,
+	0xEE0,
+	0xF00,
+	0xF48,
+	0xF49,
+	0xF6D,
+	0xF71,
+	0xF98,
+	0xF99,
+	0xFBD,
+	0xFBE,
+	0xFCD,
+	0xFCE,
+	0xFDB,
+	0x1000,
+	0x10C6,
+	0x10C7,
+	0x10C8,
+	0x10CD,
+	0x10CE,
+	0x10D0,
+	0x1249,
+	0x124A,
+	0x124E,
+	0x1250,
+	0x1257,
+	0x1258,
+	0x1259,
+	0x125A,
+	0x125E,
+	0x1260,
+	0x1289,
+	0x128A,
+	0x128E,
+	0x1290,
+	0x12B1,
+	0x12B2,
+	0x12B6,
+	0x12B8,
+	0x12BF,
+	0x12C0,
+	0x12C1,
+	0x12C2,
+	0x12C6,
+	0x12C8,
+	0x12D7,
+	0x12D8,
+	0x1311,
+	0x1312,
+	0x1316,
+	0x1318,
+	0x135B,
+	0x135D,
+	0x137D,
+	0x1380,
+	0x139A,
+	0x13A0,
+	0x13F6,
+	0x13F8,
+	0x13FE,
+	0x1400,
+	0x169D,
+	0x16A0,
+	0x16F9,
+	0x1700,
+	0x170D,
+	0x170E,
+	0x1715,
+	0x1720,
+	0x1737,
+	0x1740,
+	0x1754,
+	0x1760,
+	0x176D,
+	0x176E,
+	0x1771,
+	0x1772,
+	0x1774,
+	0x1780,
+	0x17DE,
+	0x17E0,
+	0x17EA,
+	0x17F0,
+	0x17FA,
+	0x1800,
+	0x180F,
+	0x1810,
+	0x181A,
+	0x1820,
+	0x1878,
+	0x1880,
+	0x18AB,
+	0x18B0,
+	0x18F6,
+	0x1900,
+	0x191F,
+	0x1920,
+	0x192C,
+	0x1930,
+	0x193C,
+	0x1940,
+	0x1941,
+	0x1944,
+	0x196E,
+	0x1970,
+	0x1975,
+	0x1980,
+	0x19AC,
+	0x19B0,
+	0x19CA,
+	0x19D0,
+	0x19DB,
+	0x19DE,
+	0x1A1C,
+	0x1A1E,
+	0x1A5F,
+	0x1A60,
+	0x1A7D,
+	0x1A7F,
+	0x1A8A,
+	0x1A90,
+	0x1A9A,
+	0x1AA0,
+	0x1AAE,
+	0x1AB0,
+	0x1ABF,
+	0x1B00,
+	0x1B4C,
+	0x1B50,
+	0x1B7D,
+	0x1B80,
+	0x1BF4,
+	0x1BFC,
+	0x1C38,
+	0x1C3B,
+	0x1C4A,
+	0x1C4D,
+	0x1C80,
+	0x1CC0,
+	0x1CC8,
+	0x1CD0,
+	0x1CF7,
+	0x1CF8,
+	0x1CFA,
+	0x1D00,
+	0x1DF6,
+	0x1DFC,
+	0x1F16,
+	0x1F18,
+	0x1F1E,
+	0x1F20,
+	0x1F46,
+	0x1F48,
+	0x1F4E,
+	0x1F50,
+	0x1F58,
+	0x1F59,
+	0x1F5A,
+	0x1F5B,
+	0x1F5C,
+	0x1F5D,
+	0x1F5E,
+	0x1F5F,
+	0x1F7E,
+	0x1F80,
+	0x1FB5,
+	0x1FB6,
+	0x1FC5,
+	0x1FC6,
+	0x1FD4,
+	0x1FD6,
+	0x1FDC,
+	0x1FDD,
+	0x1FF0,
+	0x1FF2,
+	0x1FF5,
+	0x1FF6,
+	0x1FFF,
+	0x2000,
+	0x2028,
+	0x202A,
+	0x2065,
+	0x2066,
+	0x2072,
+	0x2074,
+	0x208F,
+	0x2090,
+	0x209D,
+	0x20A0,
+	0x20BF,
+	0x20D0,
+	0x20F1,
+	0x2100,
+	0x218C,
+	0x2190,
+	0x23FB,
+	0x2400,
+	0x2427,
+	0x2440,
+	0x244B,
+	0x2460,
+	0x2B74,
+	0x2B76,
+	0x2B96,
+	0x2B98,
+	0x2BBA,
+	0x2BBD,
+	0x2BC9,
+	0x2BCA,
+	0x2BD2,
+	0x2BEC,
+	0x2BF0,
+	0x2C00,
+	0x2C2F,
+	0x2C30,
+	0x2C5F,
+	0x2C60,
+	0x2CF4,
+	0x2CF9,
+	0x2D26,
+	0x2D27,
+	0x2D28,
+	0x2D2D,
+	0x2D2E,
+	0x2D30,
+	0x2D68,
+	0x2D6F,
+	0x2D71,
+	0x2D7F,
+	0x2D97,
+	0x2DA0,
+	0x2DA7,
+	0x2DA8,
+	0x2DAF,
+	0x2DB0,
+	0x2DB7,
+	0x2DB8,
+	0x2DBF,
+	0x2DC0,
+	0x2DC7,
+	0x2DC8,
+	0x2DCF,
+	0x2DD0,
+	0x2DD7,
+	0x2DD8,
+	0x2DDF,
+	0x2DE0,
+	0x2E43,
+	0x2E80,
+	0x2E9A,
+	0x2E9B,
+	0x2EF4,
+	0x2F00,
+	0x2FD6,
+	0x2FF0,
+	0x2FFC,
+	0x3000,
+	0x3040,
+	0x3041,
+	0x3097,
+	0x3099,
+	0x3100,
+	0x3105,
+	0x312E,
+	0x3131,
+	0x318F,
+	0x3190,
+	0x31BB,
+	0x31C0,
+	0x31E4,
+	0x31F0,
+	0x321F,
+	0x3220,
+	0x32FF,
+	0x3300,
+	0x4DB6,
+	0x4DC0,
+	0x9FD6,
+	0xA000,
+	0xA48D,
+	0xA490,
+	0xA4C7,
+	0xA4D0,
+	0xA62C,
+	0xA640,
+	0xA6F8,
+	0xA700,
+	0xA7AE,
+	0xA7B0,
+	0xA7B8,
+	0xA7F7,
+	0xA82C,
+	0xA830,
+	0xA83A,
+	0xA840,
+	0xA878,
+	0xA880,
+	0xA8C5,
+	0xA8CE,
+	0xA8DA,
+	0xA8E0,
+	0xA8FE,
+	0xA900,
+	0xA954,
+	0xA95F,
+	0xA97D,
+	0xA980,
+	0xA9CE,
+	0xA9CF,
+	0xA9DA,
+	0xA9DE,
+	0xA9FF,
+	0xAA00,
+	0xAA37,
+	0xAA40,
+	0xAA4E,
+	0xAA50,
+	0xAA5A,
+	0xAA5C,
+	0xAAC3,
+	0xAADB,
+	0xAAF7,
+	0xAB01,
+	0xAB07,
+	0xAB09,
+	0xAB0F,
+	0xAB11,
+	0xAB17,
+	0xAB20,
+	0xAB27,
+	0xAB28,
+	0xAB2F,
+	0xAB30,
+	0xAB66,
+	0xAB70,
+	0xABEE,
+	0xABF0,
+	0xABFA,
+	0xAC00,
+	0xD7A4,
+	0xD7B0,
+	0xD7C7,
+	0xD7CB,
+	0xD7FC,
+	0xE000,
+	0xFA6E,
+	0xFA70,
+	0xFADA,
+	0xFB00,
+	0xFB07,
+	0xFB13,
+	0xFB18,
+	0xFB1D,
+	0xFB37,
+	0xFB38,
+	0xFB3D,
+	0xFB3E,
+	0xFB3F,
+	0xFB40,
+	0xFB42,
+	0xFB43,
+	0xFB45,
+	0xFB46,
+	0xFBC2,
+	0xFBD3,
+	0xFD40,
+	0xFD50,
+	0xFD90,
+	0xFD92,
+	0xFDC8,
+	0xFDF0,
+	0xFDFE,
+	0xFE00,
+	0xFE1A,
+	0xFE20,
+	0xFE53,
+	0xFE54,
+	0xFE67,
+	0xFE68,
+	0xFE6C,
+	0xFE70,
+	0xFE75,
+	0xFE76,
+	0xFEFD,
+	0xFEFF,
+	0xFF00,
+	0xFF01,
+	0xFFBF,
+	0xFFC2,
+	0xFFC8,
+	0xFFCA,
+	0xFFD0,
+	0xFFD2,
+	0xFFD8,
+	0xFFDA,
+	0xFFDD,
+	0xFFE0,
+	0xFFE7,
+	0xFFE8,
+	0xFFEF,
+	0xFFF9,
+	0xFFFE,
+	0x10000,
+	0x1000C,
+	0x1000D,
+	0x10027,
+	0x10028,
+	0x1003B,
+	0x1003C,
+	0x1003E,
+	0x1003F,
+	0x1004E,
+	0x10050,
+	0x1005E,
+	0x10080,
+	0x100FB,
+	0x10100,
+	0x10103,
+	0x10107,
+	0x10134,
+	0x10137,
+	0x1018D,
+	0x10190,
+	0x1019C,
+	0x101A0,
+	0x101A1,
+	0x101D0,
+	0x101FE,
+	0x10280,
+	0x1029D,
+	0x102A0,
+	0x102D1,
+	0x102E0,
+	0x102FC,
+	0x10300,
+	0x10324,
+	0x10330,
+	0x1034B,
+	0x10350,
+	0x1037B,
+	0x10380,
+	0x1039E,
+	0x1039F,
+	0x103C4,
+	0x103C8,
+	0x103D6,
+	0x10400,
+	0x1049E,
+	0x104A0,
+	0x104AA,
+	0x10500,
+	0x10528,
+	0x10530,
+	0x10564,
+	0x1056F,
+	0x10570,
+	0x10600,
+	0x10737,
+	0x10740,
+	0x10756,
+	0x10760,
+	0x10768,
+	0x10800,
+	0x10806,
+	0x10808,
+	0x10809,
+	0x1080A,
+	0x10836,
+	0x10837,
+	0x10839,
+	0x1083C,
+	0x1083D,
+	0x1083F,
+	0x10856,
+	0x10857,
+	0x1089F,
+	0x108A7,
+	0x108B0,
+	0x108E0,
+	0x108F3,
+	0x108F4,
+	0x108F6,
+	0x108FB,
+	0x1091C,
+	0x1091F,
+	0x1093A,
+	0x1093F,
+	0x10940,
+	0x10980,
+	0x109B8,
+	0x109BC,
+	0x109D0,
+	0x109D2,
+	0x10A04,
+	0x10A05,
+	0x10A07,
+	0x10A0C,
+	0x10A14,
+	0x10A15,
+	0x10A18,
+	0x10A19,
+	0x10A34,
+	0x10A38,
+	0x10A3B,
+	0x10A3F,
+	0x10A48,
+	0x10A50,
+	0x10A59,
+	0x10A60,
+	0x10AA0,
+	0x10AC0,
+	0x10AE7,
+	0x10AEB,
+	0x10AF7,
+	0x10B00,
+	0x10B36,
+	0x10B39,
+	0x10B56,
+	0x10B58,
+	0x10B73,
+	0x10B78,
+	0x10B92,
+	0x10B99,
+	0x10B9D,
+	0x10BA9,
+	0x10BB0,
+	0x10C00,
+	0x10C49,
+	0x10C80,
+	0x10CB3,
+	0x10CC0,
+	0x10CF3,
+	0x10CFA,
+	0x10D00,
+	0x10E60,
+	0x10E7F,
+	0x11000,
+	0x1104E,
+	0x11052,
+	0x11070,
+	0x1107F,
+	0x110C2,
+	0x110D0,
+	0x110E9,
+	0x110F0,
+	0x110FA,
+	0x11100,
+	0x11135,
+	0x11136,
+	0x11144,
+	0x11150,
+	0x11177,
+	0x11180,
+	0x111CE,
+	0x111D0,
+	0x111E0,
+	0x111E1,
+	0x111F5,
+	0x11200,
+	0x11212,
+	0x11213,
+	0x1123E,
+	0x11280,
+	0x11287,
+	0x11288,
+	0x11289,
+	0x1128A,
+	0x1128E,
+	0x1128F,
+	0x1129E,
+	0x1129F,
+	0x112AA,
+	0x112B0,
+	0x112EB,
+	0x112F0,
+	0x112FA,
+	0x11300,
+	0x11304,
+	0x11305,
+	0x1130D,
+	0x1130F,
+	0x11311,
+	0x11313,
+	0x11329,
+	0x1132A,
+	0x11331,
+	0x11332,
+	0x11334,
+	0x11335,
+	0x1133A,
+	0x1133C,
+	0x11345,
+	0x11347,
+	0x11349,
+	0x1134B,
+	0x1134E,
+	0x11350,
+	0x11351,
+	0x11357,
+	0x11358,
+	0x1135D,
+	0x11364,
+	0x11366,
+	0x1136D,
+	0x11370,
+	0x11375,
+	0x11480,
+	0x114C8,
+	0x114D0,
+	0x114DA,
+	0x11580,
+	0x115B6,
+	0x115B8,
+	0x115DE,
+	0x11600,
+	0x11645,
+	0x11650,
+	0x1165A,
+	0x11680,
+	0x116B8,
+	0x116C0,
+	0x116CA,
+	0x11700,
+	0x1171A,
+	0x1171D,
+	0x1172C,
+	0x11730,
+	0x11740,
+	0x118A0,
+	0x118F3,
+	0x118FF,
+	0x11900,
+	0x11AC0,
+	0x11AF9,
+	0x12000,
+	0x1239A,
+	0x12400,
+	0x1246F,
+	0x12470,
+	0x12475,
+	0x12480,
+	0x12544,
+	0x13000,
+	0x1342F,
+	0x14400,
+	0x14647,
+	0x16800,
+	0x16A39,
+	0x16A40,
+	0x16A5F,
+	0x16A60,
+	0x16A6A,
+	0x16A6E,
+	0x16A70,
+	0x16AD0,
+	0x16AEE,
+	0x16AF0,
+	0x16AF6,
+	0x16B00,
+	0x16B46,
+	0x16B50,
+	0x16B5A,
+	0x16B5B,
+	0x16B62,
+	0x16B63,
+	0x16B78,
+	0x16B7D,
+	0x16B90,
+	0x16F00,
+	0x16F45,
+	0x16F50,
+	0x16F7F,
+	0x16F8F,
+	0x16FA0,
+	0x1B000,
+	0x1B002,
+	0x1BC00,
+	0x1BC6B,
+	0x1BC70,
+	0x1BC7D,
+	0x1BC80,
+	0x1BC89,
+	0x1BC90,
+	0x1BC9A,
+	0x1BC9C,
+	0x1BCA4,
+	0x1D000,
+	0x1D0F6,
+	0x1D100,
+	0x1D127,
+	0x1D129,
+	0x1D1E9,
+	0x1D200,
+	0x1D246,
+	0x1D300,
+	0x1D357,
+	0x1D360,
+	0x1D372,
+	0x1D400,
+	0x1D455,
+	0x1D456,
+	0x1D49D,
+	0x1D49E,
+	0x1D4A0,
+	0x1D4A2,
+	0x1D4A3,
+	0x1D4A5,
+	0x1D4A7,
+	0x1D4A9,
+	0x1D4AD,
+	0x1D4AE,
+	0x1D4BA,
+	0x1D4BB,
+	0x1D4BC,
+	0x1D4BD,
+	0x1D4C4,
+	0x1D4C5,
+	0x1D506,
+	0x1D507,
+	0x1D50B,
+	0x1D50D,
+	0x1D515,
+	0x1D516,
+	0x1D51D,
+	0x1D51E,
+	0x1D53A,
+	0x1D53B,
+	0x1D53F,
+	0x1D540,
+	0x1D545,
+	0x1D546,
+	0x1D547,
+	0x1D54A,
+	0x1D551,
+	0x1D552,
+	0x1D6A6,
+	0x1D6A8,
+	0x1D7CC,
+	0x1D7CE,
+	0x1DA8C,
+	0x1DA9B,
+	0x1DAA0,
+	0x1DAA1,
+	0x1DAB0,
+	0x1E800,
+	0x1E8C5,
+	0x1E8C7,
+	0x1E8D7,
+	0x1EE00,
+	0x1EE04,
+	0x1EE05,
+	0x1EE20,
+	0x1EE21,
+	0x1EE23,
+	0x1EE24,
+	0x1EE25,
+	0x1EE27,
+	0x1EE28,
+	0x1EE29,
+	0x1EE33,
+	0x1EE34,
+	0x1EE38,
+	0x1EE39,
+	0x1EE3A,
+	0x1EE3B,
+	0x1EE3C,
+	0x1EE42,
+	0x1EE43,
+	0x1EE47,
+	0x1EE48,
+	0x1EE49,
+	0x1EE4A,
+	0x1EE4B,
+	0x1EE4C,
+	0x1EE4D,
+	0x1EE50,
+	0x1EE51,
+	0x1EE53,
+	0x1EE54,
+	0x1EE55,
+	0x1EE57,
+	0x1EE58,
+	0x1EE59,
+	0x1EE5A,
+	0x1EE5B,
+	0x1EE5C,
+	0x1EE5D,
+	0x1EE5E,
+	0x1EE5F,
+	0x1EE60,
+	0x1EE61,
+	0x1EE63,
+	0x1EE64,
+	0x1EE65,
+	0x1EE67,
+	0x1EE6B,
+	0x1EE6C,
+	0x1EE73,
+	0x1EE74,
+	0x1EE78,
+	0x1EE79,
+	0x1EE7D,
+	0x1EE7E,
+	0x1EE7F,
+	0x1EE80,
+	0x1EE8A,
+	0x1EE8B,
+	0x1EE9C,
+	0x1EEA1,
+	0x1EEA4,
+	0x1EEA5,
+	0x1EEAA,
+	0x1EEAB,
+	0x1EEBC,
+	0x1EEF0,
+	0x1EEF2,
+	0x1F000,
+	0x1F02C,
+	0x1F030,
+	0x1F094,
+	0x1F0A0,
+	0x1F0AF,
+	0x1F0B1,
+	0x1F0C0,
+	0x1F0C1,
+	0x1F0D0,
+	0x1F0D1,
+	0x1F0F6,
+	0x1F100,
+	0x1F10D,
+	0x1F110,
+	0x1F12F,
+	0x1F130,
+	0x1F16C,
+	0x1F170,
+	0x1F19B,
+	0x1F1E6,
+	0x1F203,
+	0x1F210,
+	0x1F23B,
+	0x1F240,
+	0x1F249,
+	0x1F250,
+	0x1F252,
+	0x1F300,
+	0x1F57A,
+	0x1F57B,
+	0x1F5A4,
+	0x1F5A5,
+	0x1F6D1,
+	0x1F6E0,
+	0x1F6ED,
+	0x1F6F0,
+	0x1F6F4,
+	0x1F700,
+	0x1F774,
+	0x1F780,
+	0x1F7D5,
+	0x1F800,
+	0x1F80C,
+	0x1F810,
+	0x1F848,
+	0x1F850,
+	0x1F85A,
+	0x1F860,
+	0x1F888,
+	0x1F890,
+	0x1F8AE,
+	0x1F910,
+	0x1F919,
+	0x1F980,
+	0x1F985,
+	0x1F9C0,
+	0x1F9C1,
+	0x20000,
+	0x2A6D7,
+	0x2A700,
+	0x2B735,
+	0x2B740,
+	0x2B81E,
+	0x2B820,
+	0x2CEA2,
+	0x2F800,
+	0x2FA1E,
+	0xE0001,
+	0xE0002,
+	0xE0020,
+	0xE0080,
+	0xE0100,
+	0xE01F0,
+	0xF0000,
+	0xFFFFE,
+	0x100000,
+	0x10FFFE
+};
+
+static const UV XPosixPunct_invlist[] = { /* for EBCDIC 1047 */
+	321,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	1,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x4B,
+	0x51,
+	0x5A,
+	0x62,
+	0x6B,
+	0x70,
+	0x79,
+	0x80,
+	0x8A,
+	0x8C,
+	0xA1,
+	0xA2,
+	0xAA,
+	0xAC,
+	0xAD,
+	0xAE,
+	0xB3,
+	0xB4,
+	0xB5,
+	0xB7,
+	0xBD,
+	0xBE,
+	0xC0,
+	0xC1,
+	0xD0,
+	0xD1,
+	0xE0,
+	0xE1,
+	0x37E,
+	0x37F,
+	0x387,
+	0x388,
+	0x55A,
+	0x560,
+	0x589,
+	0x58B,
+	0x5BE,
+	0x5BF,
+	0x5C0,
+	0x5C1,
+	0x5C3,
+	0x5C4,
+	0x5C6,
+	0x5C7,
+	0x5F3,
+	0x5F5,
+	0x609,
+	0x60B,
+	0x60C,
+	0x60E,
+	0x61B,
+	0x61C,
+	0x61E,
+	0x620,
+	0x66A,
+	0x66E,
+	0x6D4,
+	0x6D5,
+	0x700,
+	0x70E,
+	0x7F7,
+	0x7FA,
+	0x830,
+	0x83F,
+	0x85E,
+	0x85F,
+	0x964,
+	0x966,
+	0x970,
+	0x971,
+	0xAF0,
+	0xAF1,
+	0xDF4,
+	0xDF5,
+	0xE4F,
+	0xE50,
+	0xE5A,
+	0xE5C,
+	0xF04,
+	0xF13,
+	0xF14,
+	0xF15,
+	0xF3A,
+	0xF3E,
+	0xF85,
+	0xF86,
+	0xFD0,
+	0xFD5,
+	0xFD9,
+	0xFDB,
+	0x104A,
+	0x1050,
+	0x10FB,
+	0x10FC,
+	0x1360,
+	0x1369,
+	0x1400,
+	0x1401,
+	0x166D,
+	0x166F,
+	0x169B,
+	0x169D,
+	0x16EB,
+	0x16EE,
+	0x1735,
+	0x1737,
+	0x17D4,
+	0x17D7,
+	0x17D8,
+	0x17DB,
+	0x1800,
+	0x180B,
+	0x1944,
+	0x1946,
+	0x1A1E,
+	0x1A20,
+	0x1AA0,
+	0x1AA7,
+	0x1AA8,
+	0x1AAE,
+	0x1B5A,
+	0x1B61,
+	0x1BFC,
+	0x1C00,
+	0x1C3B,
+	0x1C40,
+	0x1C7E,
+	0x1C80,
+	0x1CC0,
+	0x1CC8,
+	0x1CD3,
+	0x1CD4,
+	0x2010,
+	0x2028,
+	0x2030,
+	0x2044,
+	0x2045,
+	0x2052,
+	0x2053,
+	0x205F,
+	0x207D,
+	0x207F,
+	0x208D,
+	0x208F,
+	0x2308,
+	0x230C,
+	0x2329,
+	0x232B,
+	0x2768,
+	0x2776,
+	0x27C5,
+	0x27C7,
+	0x27E6,
+	0x27F0,
+	0x2983,
+	0x2999,
+	0x29D8,
+	0x29DC,
+	0x29FC,
+	0x29FE,
+	0x2CF9,
+	0x2CFD,
+	0x2CFE,
+	0x2D00,
+	0x2D70,
+	0x2D71,
+	0x2E00,
+	0x2E2F,
+	0x2E30,
+	0x2E43,
+	0x3001,
+	0x3004,
+	0x3008,
+	0x3012,
+	0x3014,
+	0x3020,
+	0x3030,
+	0x3031,
+	0x303D,
+	0x303E,
+	0x30A0,
+	0x30A1,
+	0x30FB,
+	0x30FC,
+	0xA4FE,
+	0xA500,
+	0xA60D,
+	0xA610,
+	0xA673,
+	0xA674,
+	0xA67E,
+	0xA67F,
+	0xA6F2,
+	0xA6F8,
+	0xA874,
+	0xA878,
+	0xA8CE,
+	0xA8D0,
+	0xA8F8,
+	0xA8FB,
+	0xA8FC,
+	0xA8FD,
+	0xA92E,
+	0xA930,
+	0xA95F,
+	0xA960,
+	0xA9C1,
+	0xA9CE,
+	0xA9DE,
+	0xA9E0,
+	0xAA5C,
+	0xAA60,
+	0xAADE,
+	0xAAE0,
+	0xAAF0,
+	0xAAF2,
+	0xABEB,
+	0xABEC,
+	0xFD3E,
+	0xFD40,
+	0xFE10,
+	0xFE1A,
+	0xFE30,
+	0xFE53,
+	0xFE54,
+	0xFE62,
+	0xFE63,
+	0xFE64,
+	0xFE68,
+	0xFE69,
+	0xFE6A,
+	0xFE6C,
+	0xFF01,
+	0xFF04,
+	0xFF05,
+	0xFF0B,
+	0xFF0C,
+	0xFF10,
+	0xFF1A,
+	0xFF1C,
+	0xFF1F,
+	0xFF21,
+	0xFF3B,
+	0xFF3E,
+	0xFF3F,
+	0xFF40,
+	0xFF5B,
+	0xFF5C,
+	0xFF5D,
+	0xFF5E,
+	0xFF5F,
+	0xFF66,
+	0x10100,
+	0x10103,
+	0x1039F,
+	0x103A0,
+	0x103D0,
+	0x103D1,
+	0x1056F,
+	0x10570,
+	0x10857,
+	0x10858,
+	0x1091F,
+	0x10920,
+	0x1093F,
+	0x10940,
+	0x10A50,
+	0x10A59,
+	0x10A7F,
+	0x10A80,
+	0x10AF0,
+	0x10AF7,
+	0x10B39,
+	0x10B40,
+	0x10B99,
+	0x10B9D,
+	0x11047,
+	0x1104E,
+	0x110BB,
+	0x110BD,
+	0x110BE,
+	0x110C2,
+	0x11140,
+	0x11144,
+	0x11174,
+	0x11176,
+	0x111C5,
+	0x111CA,
+	0x111CD,
+	0x111CE,
+	0x111DB,
+	0x111DC,
+	0x111DD,
+	0x111E0,
+	0x11238,
+	0x1123E,
+	0x112A9,
+	0x112AA,
+	0x114C6,
+	0x114C7,
+	0x115C1,
+	0x115D8,
+	0x11641,
+	0x11644,
+	0x1173C,
+	0x1173F,
+	0x12470,
+	0x12475,
+	0x16A6E,
+	0x16A70,
+	0x16AF5,
+	0x16AF6,
+	0x16B37,
+	0x16B3C,
+	0x16B44,
+	0x16B45,
+	0x1BC9F,
+	0x1BCA0,
+	0x1DA87,
+	0x1DA8C
+};
+
+static const UV XPosixSpace_invlist[] = { /* for EBCDIC 1047 */
+	23,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	1,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x5,
+	0x6,
+	0xB,
+	0xE,
+	0x15,
+	0x16,
+	0x25,
+	0x26,
+	0x40,
+	0x42,
+	0x1680,
+	0x1681,
+	0x2000,
+	0x200B,
+	0x2028,
+	0x202A,
+	0x202F,
+	0x2030,
+	0x205F,
+	0x2060,
+	0x3000,
+	0x3001
+};
+
+static const UV XPosixUpper_invlist[] = { /* for EBCDIC 1047 */
+	1279,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	1,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x62,
+	0x6A,
+	0x71,
+	0x79,
+	0x80,
+	0x81,
+	0x9E,
+	0x9F,
+	0xAC,
+	0xAD,
+	0xAE,
+	0xAF,
+	0xBA,
+	0xBB,
+	0xC1,
+	0xCA,
+	0xD1,
+	0xDA,
+	0xE2,
+	0xEA,
+	0xEB,
+	0xF0,
+	0xFB,
+	0xFF,
+	0x100,
+	0x101,
+	0x102,
+	0x103,
+	0x104,
+	0x105,
+	0x106,
+	0x107,
+	0x108,
+	0x109,
+	0x10A,
+	0x10B,
+	0x10C,
+	0x10D,
+	0x10E,
+	0x10F,
+	0x110,
+	0x111,
+	0x112,
+	0x113,
+	0x114,
+	0x115,
+	0x116,
+	0x117,
+	0x118,
+	0x119,
+	0x11A,
+	0x11B,
+	0x11C,
+	0x11D,
+	0x11E,
+	0x11F,
+	0x120,
+	0x121,
+	0x122,
+	0x123,
+	0x124,
+	0x125,
+	0x126,
+	0x127,
+	0x128,
+	0x129,
+	0x12A,
+	0x12B,
+	0x12C,
+	0x12D,
+	0x12E,
+	0x12F,
+	0x130,
+	0x131,
+	0x132,
+	0x133,
+	0x134,
+	0x135,
+	0x136,
+	0x137,
+	0x139,
+	0x13A,
+	0x13B,
+	0x13C,
+	0x13D,
+	0x13E,
+	0x13F,
+	0x140,
+	0x141,
+	0x142,
+	0x143,
+	0x144,
+	0x145,
+	0x146,
+	0x147,
+	0x148,
+	0x14A,
+	0x14B,
+	0x14C,
+	0x14D,
+	0x14E,
+	0x14F,
+	0x150,
+	0x151,
+	0x152,
+	0x153,
+	0x154,
+	0x155,
+	0x156,
+	0x157,
+	0x158,
+	0x159,
+	0x15A,
+	0x15B,
+	0x15C,
+	0x15D,
+	0x15E,
+	0x15F,
+	0x160,
+	0x161,
+	0x162,
+	0x163,
+	0x164,
+	0x165,
+	0x166,
+	0x167,
+	0x168,
+	0x169,
+	0x16A,
+	0x16B,
+	0x16C,
+	0x16D,
+	0x16E,
+	0x16F,
+	0x170,
+	0x171,
+	0x172,
+	0x173,
+	0x174,
+	0x175,
+	0x176,
+	0x177,
+	0x178,
+	0x17A,
+	0x17B,
+	0x17C,
+	0x17D,
+	0x17E,
+	0x181,
+	0x183,
+	0x184,
+	0x185,
+	0x186,
+	0x188,
+	0x189,
+	0x18C,
+	0x18E,
+	0x192,
+	0x193,
+	0x195,
+	0x196,
+	0x199,
+	0x19C,
+	0x19E,
+	0x19F,
+	0x1A1,
+	0x1A2,
+	0x1A3,
+	0x1A4,
+	0x1A5,
+	0x1A6,
+	0x1A8,
+	0x1A9,
+	0x1AA,
+	0x1AC,
+	0x1AD,
+	0x1AE,
+	0x1B0,
+	0x1B1,
+	0x1B4,
+	0x1B5,
+	0x1B6,
+	0x1B7,
+	0x1B9,
+	0x1BC,
+	0x1BD,
+	0x1C4,
+	0x1C5,
+	0x1C7,
+	0x1C8,
+	0x1CA,
+	0x1CB,
+	0x1CD,
+	0x1CE,
+	0x1CF,
+	0x1D0,
+	0x1D1,
+	0x1D2,
+	0x1D3,
+	0x1D4,
+	0x1D5,
+	0x1D6,
+	0x1D7,
+	0x1D8,
+	0x1D9,
+	0x1DA,
+	0x1DB,
+	0x1DC,
+	0x1DE,
+	0x1DF,
+	0x1E0,
+	0x1E1,
+	0x1E2,
+	0x1E3,
+	0x1E4,
+	0x1E5,
+	0x1E6,
+	0x1E7,
+	0x1E8,
+	0x1E9,
+	0x1EA,
+	0x1EB,
+	0x1EC,
+	0x1ED,
+	0x1EE,
+	0x1EF,
+	0x1F1,
+	0x1F2,
+	0x1F4,
+	0x1F5,
+	0x1F6,
+	0x1F9,
+	0x1FA,
+	0x1FB,
+	0x1FC,
+	0x1FD,
+	0x1FE,
+	0x1FF,
+	0x200,
+	0x201,
+	0x202,
+	0x203,
+	0x204,
+	0x205,
+	0x206,
+	0x207,
+	0x208,
+	0x209,
+	0x20A,
+	0x20B,
+	0x20C,
+	0x20D,
+	0x20E,
+	0x20F,
+	0x210,
+	0x211,
+	0x212,
+	0x213,
+	0x214,
+	0x215,
+	0x216,
+	0x217,
+	0x218,
+	0x219,
+	0x21A,
+	0x21B,
+	0x21C,
+	0x21D,
+	0x21E,
+	0x21F,
+	0x220,
+	0x221,
+	0x222,
+	0x223,
+	0x224,
+	0x225,
+	0x226,
+	0x227,
+	0x228,
+	0x229,
+	0x22A,
+	0x22B,
+	0x22C,
+	0x22D,
+	0x22E,
+	0x22F,
+	0x230,
+	0x231,
+	0x232,
+	0x233,
+	0x23A,
+	0x23C,
+	0x23D,
+	0x23F,
+	0x241,
+	0x242,
+	0x243,
+	0x247,
+	0x248,
+	0x249,
+	0x24A,
+	0x24B,
+	0x24C,
+	0x24D,
+	0x24E,
+	0x24F,
+	0x370,
+	0x371,
+	0x372,
+	0x373,
+	0x376,
+	0x377,
+	0x37F,
+	0x380,
+	0x386,
+	0x387,
+	0x388,
+	0x38B,
+	0x38C,
+	0x38D,
+	0x38E,
+	0x390,
+	0x391,
+	0x3A2,
+	0x3A3,
+	0x3AC,
+	0x3CF,
+	0x3D0,
+	0x3D2,
+	0x3D5,
+	0x3D8,
+	0x3D9,
+	0x3DA,
+	0x3DB,
+	0x3DC,
+	0x3DD,
+	0x3DE,
+	0x3DF,
+	0x3E0,
+	0x3E1,
+	0x3E2,
+	0x3E3,
+	0x3E4,
+	0x3E5,
+	0x3E6,
+	0x3E7,
+	0x3E8,
+	0x3E9,
+	0x3EA,
+	0x3EB,
+	0x3EC,
+	0x3ED,
+	0x3EE,
+	0x3EF,
+	0x3F4,
+	0x3F5,
+	0x3F7,
+	0x3F8,
+	0x3F9,
+	0x3FB,
+	0x3FD,
+	0x430,
+	0x460,
+	0x461,
+	0x462,
+	0x463,
+	0x464,
+	0x465,
+	0x466,
+	0x467,
+	0x468,
+	0x469,
+	0x46A,
+	0x46B,
+	0x46C,
+	0x46D,
+	0x46E,
+	0x46F,
+	0x470,
+	0x471,
+	0x472,
+	0x473,
+	0x474,
+	0x475,
+	0x476,
+	0x477,
+	0x478,
+	0x479,
+	0x47A,
+	0x47B,
+	0x47C,
+	0x47D,
+	0x47E,
+	0x47F,
+	0x480,
+	0x481,
+	0x48A,
+	0x48B,
+	0x48C,
+	0x48D,
+	0x48E,
+	0x48F,
+	0x490,
+	0x491,
+	0x492,
+	0x493,
+	0x494,
+	0x495,
+	0x496,
+	0x497,
+	0x498,
+	0x499,
+	0x49A,
+	0x49B,
+	0x49C,
+	0x49D,
+	0x49E,
+	0x49F,
+	0x4A0,
+	0x4A1,
+	0x4A2,
+	0x4A3,
+	0x4A4,
+	0x4A5,
+	0x4A6,
+	0x4A7,
+	0x4A8,
+	0x4A9,
+	0x4AA,
+	0x4AB,
+	0x4AC,
+	0x4AD,
+	0x4AE,
+	0x4AF,
+	0x4B0,
+	0x4B1,
+	0x4B2,
+	0x4B3,
+	0x4B4,
+	0x4B5,
+	0x4B6,
+	0x4B7,
+	0x4B8,
+	0x4B9,
+	0x4BA,
+	0x4BB,
+	0x4BC,
+	0x4BD,
+	0x4BE,
+	0x4BF,
+	0x4C0,
+	0x4C2,
+	0x4C3,
+	0x4C4,
+	0x4C5,
+	0x4C6,
+	0x4C7,
+	0x4C8,
+	0x4C9,
+	0x4CA,
+	0x4CB,
+	0x4CC,
+	0x4CD,
+	0x4CE,
+	0x4D0,
+	0x4D1,
+	0x4D2,
+	0x4D3,
+	0x4D4,
+	0x4D5,
+	0x4D6,
+	0x4D7,
+	0x4D8,
+	0x4D9,
+	0x4DA,
+	0x4DB,
+	0x4DC,
+	0x4DD,
+	0x4DE,
+	0x4DF,
+	0x4E0,
+	0x4E1,
+	0x4E2,
+	0x4E3,
+	0x4E4,
+	0x4E5,
+	0x4E6,
+	0x4E7,
+	0x4E8,
+	0x4E9,
+	0x4EA,
+	0x4EB,
+	0x4EC,
+	0x4ED,
+	0x4EE,
+	0x4EF,
+	0x4F0,
+	0x4F1,
+	0x4F2,
+	0x4F3,
+	0x4F4,
+	0x4F5,
+	0x4F6,
+	0x4F7,
+	0x4F8,
+	0x4F9,
+	0x4FA,
+	0x4FB,
+	0x4FC,
+	0x4FD,
+	0x4FE,
+	0x4FF,
+	0x500,
+	0x501,
+	0x502,
+	0x503,
+	0x504,
+	0x505,
+	0x506,
+	0x507,
+	0x508,
+	0x509,
+	0x50A,
+	0x50B,
+	0x50C,
+	0x50D,
+	0x50E,
+	0x50F,
+	0x510,
+	0x511,
+	0x512,
+	0x513,
+	0x514,
+	0x515,
+	0x516,
+	0x517,
+	0x518,
+	0x519,
+	0x51A,
+	0x51B,
+	0x51C,
+	0x51D,
+	0x51E,
+	0x51F,
+	0x520,
+	0x521,
+	0x522,
+	0x523,
+	0x524,
+	0x525,
+	0x526,
+	0x527,
+	0x528,
+	0x529,
+	0x52A,
+	0x52B,
+	0x52C,
+	0x52D,
+	0x52E,
+	0x52F,
+	0x531,
+	0x557,
+	0x10A0,
+	0x10C6,
+	0x10C7,
+	0x10C8,
+	0x10CD,
+	0x10CE,
+	0x13A0,
+	0x13F6,
+	0x1E00,
+	0x1E01,
+	0x1E02,
+	0x1E03,
+	0x1E04,
+	0x1E05,
+	0x1E06,
+	0x1E07,
+	0x1E08,
+	0x1E09,
+	0x1E0A,
+	0x1E0B,
+	0x1E0C,
+	0x1E0D,
+	0x1E0E,
+	0x1E0F,
+	0x1E10,
+	0x1E11,
+	0x1E12,
+	0x1E13,
+	0x1E14,
+	0x1E15,
+	0x1E16,
+	0x1E17,
+	0x1E18,
+	0x1E19,
+	0x1E1A,
+	0x1E1B,
+	0x1E1C,
+	0x1E1D,
+	0x1E1E,
+	0x1E1F,
+	0x1E20,
+	0x1E21,
+	0x1E22,
+	0x1E23,
+	0x1E24,
+	0x1E25,
+	0x1E26,
+	0x1E27,
+	0x1E28,
+	0x1E29,
+	0x1E2A,
+	0x1E2B,
+	0x1E2C,
+	0x1E2D,
+	0x1E2E,
+	0x1E2F,
+	0x1E30,
+	0x1E31,
+	0x1E32,
+	0x1E33,
+	0x1E34,
+	0x1E35,
+	0x1E36,
+	0x1E37,
+	0x1E38,
+	0x1E39,
+	0x1E3A,
+	0x1E3B,
+	0x1E3C,
+	0x1E3D,
+	0x1E3E,
+	0x1E3F,
+	0x1E40,
+	0x1E41,
+	0x1E42,
+	0x1E43,
+	0x1E44,
+	0x1E45,
+	0x1E46,
+	0x1E47,
+	0x1E48,
+	0x1E49,
+	0x1E4A,
+	0x1E4B,
+	0x1E4C,
+	0x1E4D,
+	0x1E4E,
+	0x1E4F,
+	0x1E50,
+	0x1E51,
+	0x1E52,
+	0x1E53,
+	0x1E54,
+	0x1E55,
+	0x1E56,
+	0x1E57,
+	0x1E58,
+	0x1E59,
+	0x1E5A,
+	0x1E5B,
+	0x1E5C,
+	0x1E5D,
+	0x1E5E,
+	0x1E5F,
+	0x1E60,
+	0x1E61,
+	0x1E62,
+	0x1E63,
+	0x1E64,
+	0x1E65,
+	0x1E66,
+	0x1E67,
+	0x1E68,
+	0x1E69,
+	0x1E6A,
+	0x1E6B,
+	0x1E6C,
+	0x1E6D,
+	0x1E6E,
+	0x1E6F,
+	0x1E70,
+	0x1E71,
+	0x1E72,
+	0x1E73,
+	0x1E74,
+	0x1E75,
+	0x1E76,
+	0x1E77,
+	0x1E78,
+	0x1E79,
+	0x1E7A,
+	0x1E7B,
+	0x1E7C,
+	0x1E7D,
+	0x1E7E,
+	0x1E7F,
+	0x1E80,
+	0x1E81,
+	0x1E82,
+	0x1E83,
+	0x1E84,
+	0x1E85,
+	0x1E86,
+	0x1E87,
+	0x1E88,
+	0x1E89,
+	0x1E8A,
+	0x1E8B,
+	0x1E8C,
+	0x1E8D,
+	0x1E8E,
+	0x1E8F,
+	0x1E90,
+	0x1E91,
+	0x1E92,
+	0x1E93,
+	0x1E94,
+	0x1E95,
+	0x1E9E,
+	0x1E9F,
+	0x1EA0,
+	0x1EA1,
+	0x1EA2,
+	0x1EA3,
+	0x1EA4,
+	0x1EA5,
+	0x1EA6,
+	0x1EA7,
+	0x1EA8,
+	0x1EA9,
+	0x1EAA,
+	0x1EAB,
+	0x1EAC,
+	0x1EAD,
+	0x1EAE,
+	0x1EAF,
+	0x1EB0,
+	0x1EB1,
+	0x1EB2,
+	0x1EB3,
+	0x1EB4,
+	0x1EB5,
+	0x1EB6,
+	0x1EB7,
+	0x1EB8,
+	0x1EB9,
+	0x1EBA,
+	0x1EBB,
+	0x1EBC,
+	0x1EBD,
+	0x1EBE,
+	0x1EBF,
+	0x1EC0,
+	0x1EC1,
+	0x1EC2,
+	0x1EC3,
+	0x1EC4,
+	0x1EC5,
+	0x1EC6,
+	0x1EC7,
+	0x1EC8,
+	0x1EC9,
+	0x1ECA,
+	0x1ECB,
+	0x1ECC,
+	0x1ECD,
+	0x1ECE,
+	0x1ECF,
+	0x1ED0,
+	0x1ED1,
+	0x1ED2,
+	0x1ED3,
+	0x1ED4,
+	0x1ED5,
+	0x1ED6,
+	0x1ED7,
+	0x1ED8,
+	0x1ED9,
+	0x1EDA,
+	0x1EDB,
+	0x1EDC,
+	0x1EDD,
+	0x1EDE,
+	0x1EDF,
+	0x1EE0,
+	0x1EE1,
+	0x1EE2,
+	0x1EE3,
+	0x1EE4,
+	0x1EE5,
+	0x1EE6,
+	0x1EE7,
+	0x1EE8,
+	0x1EE9,
+	0x1EEA,
+	0x1EEB,
+	0x1EEC,
+	0x1EED,
+	0x1EEE,
+	0x1EEF,
+	0x1EF0,
+	0x1EF1,
+	0x1EF2,
+	0x1EF3,
+	0x1EF4,
+	0x1EF5,
+	0x1EF6,
+	0x1EF7,
+	0x1EF8,
+	0x1EF9,
+	0x1EFA,
+	0x1EFB,
+	0x1EFC,
+	0x1EFD,
+	0x1EFE,
+	0x1EFF,
+	0x1F08,
+	0x1F10,
+	0x1F18,
+	0x1F1E,
+	0x1F28,
+	0x1F30,
+	0x1F38,
+	0x1F40,
+	0x1F48,
+	0x1F4E,
+	0x1F59,
+	0x1F5A,
+	0x1F5B,
+	0x1F5C,
+	0x1F5D,
+	0x1F5E,
+	0x1F5F,
+	0x1F60,
+	0x1F68,
+	0x1F70,
+	0x1FB8,
+	0x1FBC,
+	0x1FC8,
+	0x1FCC,
+	0x1FD8,
+	0x1FDC,
+	0x1FE8,
+	0x1FED,
+	0x1FF8,
+	0x1FFC,
+	0x2102,
+	0x2103,
+	0x2107,
+	0x2108,
+	0x210B,
+	0x210E,
+	0x2110,
+	0x2113,
+	0x2115,
+	0x2116,
+	0x2119,
+	0x211E,
+	0x2124,
+	0x2125,
+	0x2126,
+	0x2127,
+	0x2128,
+	0x2129,
+	0x212A,
+	0x212E,
+	0x2130,
+	0x2134,
+	0x213E,
+	0x2140,
+	0x2145,
+	0x2146,
+	0x2160,
+	0x2170,
+	0x2183,
+	0x2184,
+	0x24B6,
+	0x24D0,
+	0x2C00,
+	0x2C2F,
+	0x2C60,
+	0x2C61,
+	0x2C62,
+	0x2C65,
+	0x2C67,
+	0x2C68,
+	0x2C69,
+	0x2C6A,
+	0x2C6B,
+	0x2C6C,
+	0x2C6D,
+	0x2C71,
+	0x2C72,
+	0x2C73,
+	0x2C75,
+	0x2C76,
+	0x2C7E,
+	0x2C81,
+	0x2C82,
+	0x2C83,
+	0x2C84,
+	0x2C85,
+	0x2C86,
+	0x2C87,
+	0x2C88,
+	0x2C89,
+	0x2C8A,
+	0x2C8B,
+	0x2C8C,
+	0x2C8D,
+	0x2C8E,
+	0x2C8F,
+	0x2C90,
+	0x2C91,
+	0x2C92,
+	0x2C93,
+	0x2C94,
+	0x2C95,
+	0x2C96,
+	0x2C97,
+	0x2C98,
+	0x2C99,
+	0x2C9A,
+	0x2C9B,
+	0x2C9C,
+	0x2C9D,
+	0x2C9E,
+	0x2C9F,
+	0x2CA0,
+	0x2CA1,
+	0x2CA2,
+	0x2CA3,
+	0x2CA4,
+	0x2CA5,
+	0x2CA6,
+	0x2CA7,
+	0x2CA8,
+	0x2CA9,
+	0x2CAA,
+	0x2CAB,
+	0x2CAC,
+	0x2CAD,
+	0x2CAE,
+	0x2CAF,
+	0x2CB0,
+	0x2CB1,
+	0x2CB2,
+	0x2CB3,
+	0x2CB4,
+	0x2CB5,
+	0x2CB6,
+	0x2CB7,
+	0x2CB8,
+	0x2CB9,
+	0x2CBA,
+	0x2CBB,
+	0x2CBC,
+	0x2CBD,
+	0x2CBE,
+	0x2CBF,
+	0x2CC0,
+	0x2CC1,
+	0x2CC2,
+	0x2CC3,
+	0x2CC4,
+	0x2CC5,
+	0x2CC6,
+	0x2CC7,
+	0x2CC8,
+	0x2CC9,
+	0x2CCA,
+	0x2CCB,
+	0x2CCC,
+	0x2CCD,
+	0x2CCE,
+	0x2CCF,
+	0x2CD0,
+	0x2CD1,
+	0x2CD2,
+	0x2CD3,
+	0x2CD4,
+	0x2CD5,
+	0x2CD6,
+	0x2CD7,
+	0x2CD8,
+	0x2CD9,
+	0x2CDA,
+	0x2CDB,
+	0x2CDC,
+	0x2CDD,
+	0x2CDE,
+	0x2CDF,
+	0x2CE0,
+	0x2CE1,
+	0x2CE2,
+	0x2CE3,
+	0x2CEB,
+	0x2CEC,
+	0x2CED,
+	0x2CEE,
+	0x2CF2,
+	0x2CF3,
+	0xA640,
+	0xA641,
+	0xA642,
+	0xA643,
+	0xA644,
+	0xA645,
+	0xA646,
+	0xA647,
+	0xA648,
+	0xA649,
+	0xA64A,
+	0xA64B,
+	0xA64C,
+	0xA64D,
+	0xA64E,
+	0xA64F,
+	0xA650,
+	0xA651,
+	0xA652,
+	0xA653,
+	0xA654,
+	0xA655,
+	0xA656,
+	0xA657,
+	0xA658,
+	0xA659,
+	0xA65A,
+	0xA65B,
+	0xA65C,
+	0xA65D,
+	0xA65E,
+	0xA65F,
+	0xA660,
+	0xA661,
+	0xA662,
+	0xA663,
+	0xA664,
+	0xA665,
+	0xA666,
+	0xA667,
+	0xA668,
+	0xA669,
+	0xA66A,
+	0xA66B,
+	0xA66C,
+	0xA66D,
+	0xA680,
+	0xA681,
+	0xA682,
+	0xA683,
+	0xA684,
+	0xA685,
+	0xA686,
+	0xA687,
+	0xA688,
+	0xA689,
+	0xA68A,
+	0xA68B,
+	0xA68C,
+	0xA68D,
+	0xA68E,
+	0xA68F,
+	0xA690,
+	0xA691,
+	0xA692,
+	0xA693,
+	0xA694,
+	0xA695,
+	0xA696,
+	0xA697,
+	0xA698,
+	0xA699,
+	0xA69A,
+	0xA69B,
+	0xA722,
+	0xA723,
+	0xA724,
+	0xA725,
+	0xA726,
+	0xA727,
+	0xA728,
+	0xA729,
+	0xA72A,
+	0xA72B,
+	0xA72C,
+	0xA72D,
+	0xA72E,
+	0xA72F,
+	0xA732,
+	0xA733,
+	0xA734,
+	0xA735,
+	0xA736,
+	0xA737,
+	0xA738,
+	0xA739,
+	0xA73A,
+	0xA73B,
+	0xA73C,
+	0xA73D,
+	0xA73E,
+	0xA73F,
+	0xA740,
+	0xA741,
+	0xA742,
+	0xA743,
+	0xA744,
+	0xA745,
+	0xA746,
+	0xA747,
+	0xA748,
+	0xA749,
+	0xA74A,
+	0xA74B,
+	0xA74C,
+	0xA74D,
+	0xA74E,
+	0xA74F,
+	0xA750,
+	0xA751,
+	0xA752,
+	0xA753,
+	0xA754,
+	0xA755,
+	0xA756,
+	0xA757,
+	0xA758,
+	0xA759,
+	0xA75A,
+	0xA75B,
+	0xA75C,
+	0xA75D,
+	0xA75E,
+	0xA75F,
+	0xA760,
+	0xA761,
+	0xA762,
+	0xA763,
+	0xA764,
+	0xA765,
+	0xA766,
+	0xA767,
+	0xA768,
+	0xA769,
+	0xA76A,
+	0xA76B,
+	0xA76C,
+	0xA76D,
+	0xA76E,
+	0xA76F,
+	0xA779,
+	0xA77A,
+	0xA77B,
+	0xA77C,
+	0xA77D,
+	0xA77F,
+	0xA780,
+	0xA781,
+	0xA782,
+	0xA783,
+	0xA784,
+	0xA785,
+	0xA786,
+	0xA787,
+	0xA78B,
+	0xA78C,
+	0xA78D,
+	0xA78E,
+	0xA790,
+	0xA791,
+	0xA792,
+	0xA793,
+	0xA796,
+	0xA797,
+	0xA798,
+	0xA799,
+	0xA79A,
+	0xA79B,
+	0xA79C,
+	0xA79D,
+	0xA79E,
+	0xA79F,
+	0xA7A0,
+	0xA7A1,
+	0xA7A2,
+	0xA7A3,
+	0xA7A4,
+	0xA7A5,
+	0xA7A6,
+	0xA7A7,
+	0xA7A8,
+	0xA7A9,
+	0xA7AA,
+	0xA7AE,
+	0xA7B0,
+	0xA7B5,
+	0xA7B6,
+	0xA7B7,
+	0xFF21,
+	0xFF3B,
+	0x10400,
+	0x10428,
+	0x10C80,
+	0x10CB3,
+	0x118A0,
+	0x118C0,
+	0x1D400,
+	0x1D41A,
+	0x1D434,
+	0x1D44E,
+	0x1D468,
+	0x1D482,
+	0x1D49C,
+	0x1D49D,
+	0x1D49E,
+	0x1D4A0,
+	0x1D4A2,
+	0x1D4A3,
+	0x1D4A5,
+	0x1D4A7,
+	0x1D4A9,
+	0x1D4AD,
+	0x1D4AE,
+	0x1D4B6,
+	0x1D4D0,
+	0x1D4EA,
+	0x1D504,
+	0x1D506,
+	0x1D507,
+	0x1D50B,
+	0x1D50D,
+	0x1D515,
+	0x1D516,
+	0x1D51D,
+	0x1D538,
+	0x1D53A,
+	0x1D53B,
+	0x1D53F,
+	0x1D540,
+	0x1D545,
+	0x1D546,
+	0x1D547,
+	0x1D54A,
+	0x1D551,
+	0x1D56C,
+	0x1D586,
+	0x1D5A0,
+	0x1D5BA,
+	0x1D5D4,
+	0x1D5EE,
+	0x1D608,
+	0x1D622,
+	0x1D63C,
+	0x1D656,
+	0x1D670,
+	0x1D68A,
+	0x1D6A8,
+	0x1D6C1,
+	0x1D6E2,
+	0x1D6FB,
+	0x1D71C,
+	0x1D735,
+	0x1D756,
+	0x1D76F,
+	0x1D790,
+	0x1D7A9,
+	0x1D7CA,
+	0x1D7CB,
+	0x1F130,
+	0x1F14A,
+	0x1F150,
+	0x1F16A,
+	0x1F170,
+	0x1F18A
+};
+
+static const UV XPosixWord_invlist[] = { /* for EBCDIC 1047 */
+	1335,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	1,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x42,
+	0x4A,
+	0x51,
+	0x5A,
+	0x62,
+	0x6A,
+	0x6D,
+	0x6E,
+	0x70,
+	0x79,
+	0x80,
+	0x8A,
+	0x8C,
+	0x8F,
+	0x91,
+	0x9D,
+	0x9E,
+	0x9F,
+	0xA0,
+	0xA1,
+	0xA2,
+	0xAA,
+	0xAC,
+	0xAD,
+	0xAE,
+	0xAF,
+	0xBA,
+	0xBB,
+	0xC1,
+	0xCA,
+	0xCB,
+	0xD0,
+	0xD1,
+	0xDA,
+	0xDB,
+	0xE0,
+	0xE2,
+	0xEA,
+	0xEB,
+	0xFA,
+	0xFB,
+	0xFF,
+	0x100,
+	0x2C2,
+	0x2C6,
+	0x2D2,
+	0x2E0,
+	0x2E5,
+	0x2EC,
+	0x2ED,
+	0x2EE,
+	0x2EF,
+	0x300,
+	0x375,
+	0x376,
+	0x378,
+	0x37A,
+	0x37E,
+	0x37F,
+	0x380,
+	0x386,
+	0x387,
+	0x388,
+	0x38B,
+	0x38C,
+	0x38D,
+	0x38E,
+	0x3A2,
+	0x3A3,
+	0x3F6,
+	0x3F7,
+	0x482,
+	0x483,
+	0x530,
+	0x531,
+	0x557,
+	0x559,
+	0x55A,
+	0x561,
+	0x588,
+	0x591,
+	0x5BE,
+	0x5BF,
+	0x5C0,
+	0x5C1,
+	0x5C3,
+	0x5C4,
+	0x5C6,
+	0x5C7,
+	0x5C8,
+	0x5D0,
+	0x5EB,
+	0x5F0,
+	0x5F3,
+	0x610,
+	0x61B,
+	0x620,
+	0x66A,
+	0x66E,
+	0x6D4,
+	0x6D5,
+	0x6DD,
+	0x6DF,
+	0x6E9,
+	0x6EA,
+	0x6FD,
+	0x6FF,
+	0x700,
+	0x710,
+	0x74B,
+	0x74D,
+	0x7B2,
+	0x7C0,
+	0x7F6,
+	0x7FA,
+	0x7FB,
+	0x800,
+	0x82E,
+	0x840,
+	0x85C,
+	0x8A0,
+	0x8B5,
+	0x8E3,
+	0x964,
+	0x966,
+	0x970,
+	0x971,
+	0x984,
+	0x985,
+	0x98D,
+	0x98F,
+	0x991,
+	0x993,
+	0x9A9,
+	0x9AA,
+	0x9B1,
+	0x9B2,
+	0x9B3,
+	0x9B6,
+	0x9BA,
+	0x9BC,
+	0x9C5,
+	0x9C7,
+	0x9C9,
+	0x9CB,
+	0x9CF,
+	0x9D7,
+	0x9D8,
+	0x9DC,
+	0x9DE,
+	0x9DF,
+	0x9E4,
+	0x9E6,
+	0x9F2,
+	0xA01,
+	0xA04,
+	0xA05,
+	0xA0B,
+	0xA0F,
+	0xA11,
+	0xA13,
+	0xA29,
+	0xA2A,
+	0xA31,
+	0xA32,
+	0xA34,
+	0xA35,
+	0xA37,
+	0xA38,
+	0xA3A,
+	0xA3C,
+	0xA3D,
+	0xA3E,
+	0xA43,
+	0xA47,
+	0xA49,
+	0xA4B,
+	0xA4E,
+	0xA51,
+	0xA52,
+	0xA59,
+	0xA5D,
+	0xA5E,
+	0xA5F,
+	0xA66,
+	0xA76,
+	0xA81,
+	0xA84,
+	0xA85,
+	0xA8E,
+	0xA8F,
+	0xA92,
+	0xA93,
+	0xAA9,
+	0xAAA,
+	0xAB1,
+	0xAB2,
+	0xAB4,
+	0xAB5,
+	0xABA,
+	0xABC,
+	0xAC6,
+	0xAC7,
+	0xACA,
+	0xACB,
+	0xACE,
+	0xAD0,
+	0xAD1,
+	0xAE0,
+	0xAE4,
+	0xAE6,
+	0xAF0,
+	0xAF9,
+	0xAFA,
+	0xB01,
+	0xB04,
+	0xB05,
+	0xB0D,
+	0xB0F,
+	0xB11,
+	0xB13,
+	0xB29,
+	0xB2A,
+	0xB31,
+	0xB32,
+	0xB34,
+	0xB35,
+	0xB3A,
+	0xB3C,
+	0xB45,
+	0xB47,
+	0xB49,
+	0xB4B,
+	0xB4E,
+	0xB56,
+	0xB58,
+	0xB5C,
+	0xB5E,
+	0xB5F,
+	0xB64,
+	0xB66,
+	0xB70,
+	0xB71,
+	0xB72,
+	0xB82,
+	0xB84,
+	0xB85,
+	0xB8B,
+	0xB8E,
+	0xB91,
+	0xB92,
+	0xB96,
+	0xB99,
+	0xB9B,
+	0xB9C,
+	0xB9D,
+	0xB9E,
+	0xBA0,
+	0xBA3,
+	0xBA5,
+	0xBA8,
+	0xBAB,
+	0xBAE,
+	0xBBA,
+	0xBBE,
+	0xBC3,
+	0xBC6,
+	0xBC9,
+	0xBCA,
+	0xBCE,
+	0xBD0,
+	0xBD1,
+	0xBD7,
+	0xBD8,
+	0xBE6,
+	0xBF0,
+	0xC00,
+	0xC04,
+	0xC05,
+	0xC0D,
+	0xC0E,
+	0xC11,
+	0xC12,
+	0xC29,
+	0xC2A,
+	0xC3A,
+	0xC3D,
+	0xC45,
+	0xC46,
+	0xC49,
+	0xC4A,
+	0xC4E,
+	0xC55,
+	0xC57,
+	0xC58,
+	0xC5B,
+	0xC60,
+	0xC64,
+	0xC66,
+	0xC70,
+	0xC81,
+	0xC84,
+	0xC85,
+	0xC8D,
+	0xC8E,
+	0xC91,
+	0xC92,
+	0xCA9,
+	0xCAA,
+	0xCB4,
+	0xCB5,
+	0xCBA,
+	0xCBC,
+	0xCC5,
+	0xCC6,
+	0xCC9,
+	0xCCA,
+	0xCCE,
+	0xCD5,
+	0xCD7,
+	0xCDE,
+	0xCDF,
+	0xCE0,
+	0xCE4,
+	0xCE6,
+	0xCF0,
+	0xCF1,
+	0xCF3,
+	0xD01,
+	0xD04,
+	0xD05,
+	0xD0D,
+	0xD0E,
+	0xD11,
+	0xD12,
+	0xD3B,
+	0xD3D,
+	0xD45,
+	0xD46,
+	0xD49,
+	0xD4A,
+	0xD4F,
+	0xD57,
+	0xD58,
+	0xD5F,
+	0xD64,
+	0xD66,
+	0xD70,
+	0xD7A,
+	0xD80,
+	0xD82,
+	0xD84,
+	0xD85,
+	0xD97,
+	0xD9A,
+	0xDB2,
+	0xDB3,
+	0xDBC,
+	0xDBD,
+	0xDBE,
+	0xDC0,
+	0xDC7,
+	0xDCA,
+	0xDCB,
+	0xDCF,
+	0xDD5,
+	0xDD6,
+	0xDD7,
+	0xDD8,
+	0xDE0,
+	0xDE6,
+	0xDF0,
+	0xDF2,
+	0xDF4,
+	0xE01,
+	0xE3B,
+	0xE40,
+	0xE4F,
+	0xE50,
+	0xE5A,
+	0xE81,
+	0xE83,
+	0xE84,
+	0xE85,
+	0xE87,
+	0xE89,
+	0xE8A,
+	0xE8B,
+	0xE8D,
+	0xE8E,
+	0xE94,
+	0xE98,
+	0xE99,
+	0xEA0,
+	0xEA1,
+	0xEA4,
+	0xEA5,
+	0xEA6,
+	0xEA7,
+	0xEA8,
+	0xEAA,
+	0xEAC,
+	0xEAD,
+	0xEBA,
+	0xEBB,
+	0xEBE,
+	0xEC0,
+	0xEC5,
+	0xEC6,
+	0xEC7,
+	0xEC8,
+	0xECE,
+	0xED0,
+	0xEDA,
+	0xEDC,
+	0xEE0,
+	0xF00,
+	0xF01,
+	0xF18,
+	0xF1A,
+	0xF20,
+	0xF2A,
+	0xF35,
+	0xF36,
+	0xF37,
+	0xF38,
+	0xF39,
+	0xF3A,
+	0xF3E,
+	0xF48,
+	0xF49,
+	0xF6D,
+	0xF71,
+	0xF85,
+	0xF86,
+	0xF98,
+	0xF99,
+	0xFBD,
+	0xFC6,
+	0xFC7,
+	0x1000,
+	0x104A,
+	0x1050,
+	0x109E,
+	0x10A0,
+	0x10C6,
+	0x10C7,
+	0x10C8,
+	0x10CD,
+	0x10CE,
+	0x10D0,
+	0x10FB,
+	0x10FC,
+	0x1249,
+	0x124A,
+	0x124E,
+	0x1250,
+	0x1257,
+	0x1258,
+	0x1259,
+	0x125A,
+	0x125E,
+	0x1260,
+	0x1289,
+	0x128A,
+	0x128E,
+	0x1290,
+	0x12B1,
+	0x12B2,
+	0x12B6,
+	0x12B8,
+	0x12BF,
+	0x12C0,
+	0x12C1,
+	0x12C2,
+	0x12C6,
+	0x12C8,
+	0x12D7,
+	0x12D8,
+	0x1311,
+	0x1312,
+	0x1316,
+	0x1318,
+	0x135B,
+	0x135D,
+	0x1360,
+	0x1380,
+	0x1390,
+	0x13A0,
+	0x13F6,
+	0x13F8,
+	0x13FE,
+	0x1401,
+	0x166D,
+	0x166F,
+	0x1680,
+	0x1681,
+	0x169B,
+	0x16A0,
+	0x16EB,
+	0x16EE,
+	0x16F9,
+	0x1700,
+	0x170D,
+	0x170E,
+	0x1715,
+	0x1720,
+	0x1735,
+	0x1740,
+	0x1754,
+	0x1760,
+	0x176D,
+	0x176E,
+	0x1771,
+	0x1772,
+	0x1774,
+	0x1780,
+	0x17D4,
+	0x17D7,
+	0x17D8,
+	0x17DC,
+	0x17DE,
+	0x17E0,
+	0x17EA,
+	0x180B,
+	0x180E,
+	0x1810,
+	0x181A,
+	0x1820,
+	0x1878,
+	0x1880,
+	0x18AB,
+	0x18B0,
+	0x18F6,
+	0x1900,
+	0x191F,
+	0x1920,
+	0x192C,
+	0x1930,
+	0x193C,
+	0x1946,
+	0x196E,
+	0x1970,
+	0x1975,
+	0x1980,
+	0x19AC,
+	0x19B0,
+	0x19CA,
+	0x19D0,
+	0x19DA,
+	0x1A00,
+	0x1A1C,
+	0x1A20,
+	0x1A5F,
+	0x1A60,
+	0x1A7D,
+	0x1A7F,
+	0x1A8A,
+	0x1A90,
+	0x1A9A,
+	0x1AA7,
+	0x1AA8,
+	0x1AB0,
+	0x1ABF,
+	0x1B00,
+	0x1B4C,
+	0x1B50,
+	0x1B5A,
+	0x1B6B,
+	0x1B74,
+	0x1B80,
+	0x1BF4,
+	0x1C00,
+	0x1C38,
+	0x1C40,
+	0x1C4A,
+	0x1C4D,
+	0x1C7E,
+	0x1CD0,
+	0x1CD3,
+	0x1CD4,
+	0x1CF7,
+	0x1CF8,
+	0x1CFA,
+	0x1D00,
+	0x1DF6,
+	0x1DFC,
+	0x1F16,
+	0x1F18,
+	0x1F1E,
+	0x1F20,
+	0x1F46,
+	0x1F48,
+	0x1F4E,
+	0x1F50,
+	0x1F58,
+	0x1F59,
+	0x1F5A,
+	0x1F5B,
+	0x1F5C,
+	0x1F5D,
+	0x1F5E,
+	0x1F5F,
+	0x1F7E,
+	0x1F80,
+	0x1FB5,
+	0x1FB6,
+	0x1FBD,
+	0x1FBE,
+	0x1FBF,
+	0x1FC2,
+	0x1FC5,
+	0x1FC6,
+	0x1FCD,
+	0x1FD0,
+	0x1FD4,
+	0x1FD6,
+	0x1FDC,
+	0x1FE0,
+	0x1FED,
+	0x1FF2,
+	0x1FF5,
+	0x1FF6,
+	0x1FFD,
+	0x200C,
+	0x200E,
+	0x203F,
+	0x2041,
+	0x2054,
+	0x2055,
+	0x2071,
+	0x2072,
+	0x207F,
+	0x2080,
+	0x2090,
+	0x209D,
+	0x20D0,
+	0x20F1,
+	0x2102,
+	0x2103,
+	0x2107,
+	0x2108,
+	0x210A,
+	0x2114,
+	0x2115,
+	0x2116,
+	0x2119,
+	0x211E,
+	0x2124,
+	0x2125,
+	0x2126,
+	0x2127,
+	0x2128,
+	0x2129,
+	0x212A,
+	0x212E,
+	0x212F,
+	0x213A,
+	0x213C,
+	0x2140,
+	0x2145,
+	0x214A,
+	0x214E,
+	0x214F,
+	0x2160,
+	0x2189,
+	0x24B6,
+	0x24EA,
+	0x2C00,
+	0x2C2F,
+	0x2C30,
+	0x2C5F,
+	0x2C60,
+	0x2CE5,
+	0x2CEB,
+	0x2CF4,
+	0x2D00,
+	0x2D26,
+	0x2D27,
+	0x2D28,
+	0x2D2D,
+	0x2D2E,
+	0x2D30,
+	0x2D68,
+	0x2D6F,
+	0x2D70,
+	0x2D7F,
+	0x2D97,
+	0x2DA0,
+	0x2DA7,
+	0x2DA8,
+	0x2DAF,
+	0x2DB0,
+	0x2DB7,
+	0x2DB8,
+	0x2DBF,
+	0x2DC0,
+	0x2DC7,
+	0x2DC8,
+	0x2DCF,
+	0x2DD0,
+	0x2DD7,
+	0x2DD8,
+	0x2DDF,
+	0x2DE0,
+	0x2E00,
+	0x2E2F,
+	0x2E30,
+	0x3005,
+	0x3008,
+	0x3021,
+	0x3030,
+	0x3031,
+	0x3036,
+	0x3038,
+	0x303D,
+	0x3041,
+	0x3097,
+	0x3099,
+	0x309B,
+	0x309D,
+	0x30A0,
+	0x30A1,
+	0x30FB,
+	0x30FC,
+	0x3100,
+	0x3105,
+	0x312E,
+	0x3131,
+	0x318F,
+	0x31A0,
+	0x31BB,
+	0x31F0,
+	0x3200,
+	0x3400,
+	0x4DB6,
+	0x4E00,
+	0x9FD6,
+	0xA000,
+	0xA48D,
+	0xA4D0,
+	0xA4FE,
+	0xA500,
+	0xA60D,
+	0xA610,
+	0xA62C,
+	0xA640,
+	0xA673,
+	0xA674,
+	0xA67E,
+	0xA67F,
+	0xA6F2,
+	0xA717,
+	0xA720,
+	0xA722,
+	0xA789,
+	0xA78B,
+	0xA7AE,
+	0xA7B0,
+	0xA7B8,
+	0xA7F7,
+	0xA828,
+	0xA840,
+	0xA874,
+	0xA880,
+	0xA8C5,
+	0xA8D0,
+	0xA8DA,
+	0xA8E0,
+	0xA8F8,
+	0xA8FB,
+	0xA8FC,
+	0xA8FD,
+	0xA8FE,
+	0xA900,
+	0xA92E,
+	0xA930,
+	0xA954,
+	0xA960,
+	0xA97D,
+	0xA980,
+	0xA9C1,
+	0xA9CF,
+	0xA9DA,
+	0xA9E0,
+	0xA9FF,
+	0xAA00,
+	0xAA37,
+	0xAA40,
+	0xAA4E,
+	0xAA50,
+	0xAA5A,
+	0xAA60,
+	0xAA77,
+	0xAA7A,
+	0xAAC3,
+	0xAADB,
+	0xAADE,
+	0xAAE0,
+	0xAAF0,
+	0xAAF2,
+	0xAAF7,
+	0xAB01,
+	0xAB07,
+	0xAB09,
+	0xAB0F,
+	0xAB11,
+	0xAB17,
+	0xAB20,
+	0xAB27,
+	0xAB28,
+	0xAB2F,
+	0xAB30,
+	0xAB5B,
+	0xAB5C,
+	0xAB66,
+	0xAB70,
+	0xABEB,
+	0xABEC,
+	0xABEE,
+	0xABF0,
+	0xABFA,
+	0xAC00,
+	0xD7A4,
+	0xD7B0,
+	0xD7C7,
+	0xD7CB,
+	0xD7FC,
+	0xF900,
+	0xFA6E,
+	0xFA70,
+	0xFADA,
+	0xFB00,
+	0xFB07,
+	0xFB13,
+	0xFB18,
+	0xFB1D,
+	0xFB29,
+	0xFB2A,
+	0xFB37,
+	0xFB38,
+	0xFB3D,
+	0xFB3E,
+	0xFB3F,
+	0xFB40,
+	0xFB42,
+	0xFB43,
+	0xFB45,
+	0xFB46,
+	0xFBB2,
+	0xFBD3,
+	0xFD3E,
+	0xFD50,
+	0xFD90,
+	0xFD92,
+	0xFDC8,
+	0xFDF0,
+	0xFDFC,
+	0xFE00,
+	0xFE10,
+	0xFE20,
+	0xFE30,
+	0xFE33,
+	0xFE35,
+	0xFE4D,
+	0xFE50,
+	0xFE70,
+	0xFE75,
+	0xFE76,
+	0xFEFD,
+	0xFF10,
+	0xFF1A,
+	0xFF21,
+	0xFF3B,
+	0xFF3F,
+	0xFF40,
+	0xFF41,
+	0xFF5B,
+	0xFF66,
+	0xFFBF,
+	0xFFC2,
+	0xFFC8,
+	0xFFCA,
+	0xFFD0,
+	0xFFD2,
+	0xFFD8,
+	0xFFDA,
+	0xFFDD,
+	0x10000,
+	0x1000C,
+	0x1000D,
+	0x10027,
+	0x10028,
+	0x1003B,
+	0x1003C,
+	0x1003E,
+	0x1003F,
+	0x1004E,
+	0x10050,
+	0x1005E,
+	0x10080,
+	0x100FB,
+	0x10140,
+	0x10175,
+	0x101FD,
+	0x101FE,
+	0x10280,
+	0x1029D,
+	0x102A0,
+	0x102D1,
+	0x102E0,
+	0x102E1,
+	0x10300,
+	0x10320,
+	0x10330,
+	0x1034B,
+	0x10350,
+	0x1037B,
+	0x10380,
+	0x1039E,
+	0x103A0,
+	0x103C4,
+	0x103C8,
+	0x103D0,
+	0x103D1,
+	0x103D6,
+	0x10400,
+	0x1049E,
+	0x104A0,
+	0x104AA,
+	0x10500,
+	0x10528,
+	0x10530,
+	0x10564,
+	0x10600,
+	0x10737,
+	0x10740,
+	0x10756,
+	0x10760,
+	0x10768,
+	0x10800,
+	0x10806,
+	0x10808,
+	0x10809,
+	0x1080A,
+	0x10836,
+	0x10837,
+	0x10839,
+	0x1083C,
+	0x1083D,
+	0x1083F,
+	0x10856,
+	0x10860,
+	0x10877,
+	0x10880,
+	0x1089F,
+	0x108E0,
+	0x108F3,
+	0x108F4,
+	0x108F6,
+	0x10900,
+	0x10916,
+	0x10920,
+	0x1093A,
+	0x10980,
+	0x109B8,
+	0x109BE,
+	0x109C0,
+	0x10A00,
+	0x10A04,
+	0x10A05,
+	0x10A07,
+	0x10A0C,
+	0x10A14,
+	0x10A15,
+	0x10A18,
+	0x10A19,
+	0x10A34,
+	0x10A38,
+	0x10A3B,
+	0x10A3F,
+	0x10A40,
+	0x10A60,
+	0x10A7D,
+	0x10A80,
+	0x10A9D,
+	0x10AC0,
+	0x10AC8,
+	0x10AC9,
+	0x10AE7,
+	0x10B00,
+	0x10B36,
+	0x10B40,
+	0x10B56,
+	0x10B60,
+	0x10B73,
+	0x10B80,
+	0x10B92,
+	0x10C00,
+	0x10C49,
+	0x10C80,
+	0x10CB3,
+	0x10CC0,
+	0x10CF3,
+	0x11000,
+	0x11047,
+	0x11066,
+	0x11070,
+	0x1107F,
+	0x110BB,
+	0x110D0,
+	0x110E9,
+	0x110F0,
+	0x110FA,
+	0x11100,
+	0x11135,
+	0x11136,
+	0x11140,
+	0x11150,
+	0x11174,
+	0x11176,
+	0x11177,
+	0x11180,
+	0x111C5,
+	0x111CA,
+	0x111CD,
+	0x111D0,
+	0x111DB,
+	0x111DC,
+	0x111DD,
+	0x11200,
+	0x11212,
+	0x11213,
+	0x11238,
+	0x11280,
+	0x11287,
+	0x11288,
+	0x11289,
+	0x1128A,
+	0x1128E,
+	0x1128F,
+	0x1129E,
+	0x1129F,
+	0x112A9,
+	0x112B0,
+	0x112EB,
+	0x112F0,
+	0x112FA,
+	0x11300,
+	0x11304,
+	0x11305,
+	0x1130D,
+	0x1130F,
+	0x11311,
+	0x11313,
+	0x11329,
+	0x1132A,
+	0x11331,
+	0x11332,
+	0x11334,
+	0x11335,
+	0x1133A,
+	0x1133C,
+	0x11345,
+	0x11347,
+	0x11349,
+	0x1134B,
+	0x1134E,
+	0x11350,
+	0x11351,
+	0x11357,
+	0x11358,
+	0x1135D,
+	0x11364,
+	0x11366,
+	0x1136D,
+	0x11370,
+	0x11375,
+	0x11480,
+	0x114C6,
+	0x114C7,
+	0x114C8,
+	0x114D0,
+	0x114DA,
+	0x11580,
+	0x115B6,
+	0x115B8,
+	0x115C1,
+	0x115D8,
+	0x115DE,
+	0x11600,
+	0x11641,
+	0x11644,
+	0x11645,
+	0x11650,
+	0x1165A,
+	0x11680,
+	0x116B8,
+	0x116C0,
+	0x116CA,
+	0x11700,
+	0x1171A,
+	0x1171D,
+	0x1172C,
+	0x11730,
+	0x1173A,
+	0x118A0,
+	0x118EA,
+	0x118FF,
+	0x11900,
+	0x11AC0,
+	0x11AF9,
+	0x12000,
+	0x1239A,
+	0x12400,
+	0x1246F,
+	0x12480,
+	0x12544,
+	0x13000,
+	0x1342F,
+	0x14400,
+	0x14647,
+	0x16800,
+	0x16A39,
+	0x16A40,
+	0x16A5F,
+	0x16A60,
+	0x16A6A,
+	0x16AD0,
+	0x16AEE,
+	0x16AF0,
+	0x16AF5,
+	0x16B00,
+	0x16B37,
+	0x16B40,
+	0x16B44,
+	0x16B50,
+	0x16B5A,
+	0x16B63,
+	0x16B78,
+	0x16B7D,
+	0x16B90,
+	0x16F00,
+	0x16F45,
+	0x16F50,
+	0x16F7F,
+	0x16F8F,
+	0x16FA0,
+	0x1B000,
+	0x1B002,
+	0x1BC00,
+	0x1BC6B,
+	0x1BC70,
+	0x1BC7D,
+	0x1BC80,
+	0x1BC89,
+	0x1BC90,
+	0x1BC9A,
+	0x1BC9D,
+	0x1BC9F,
+	0x1D165,
+	0x1D16A,
+	0x1D16D,
+	0x1D173,
+	0x1D17B,
+	0x1D183,
+	0x1D185,
+	0x1D18C,
+	0x1D1AA,
+	0x1D1AE,
+	0x1D242,
+	0x1D245,
+	0x1D400,
+	0x1D455,
+	0x1D456,
+	0x1D49D,
+	0x1D49E,
+	0x1D4A0,
+	0x1D4A2,
+	0x1D4A3,
+	0x1D4A5,
+	0x1D4A7,
+	0x1D4A9,
+	0x1D4AD,
+	0x1D4AE,
+	0x1D4BA,
+	0x1D4BB,
+	0x1D4BC,
+	0x1D4BD,
+	0x1D4C4,
+	0x1D4C5,
+	0x1D506,
+	0x1D507,
+	0x1D50B,
+	0x1D50D,
+	0x1D515,
+	0x1D516,
+	0x1D51D,
+	0x1D51E,
+	0x1D53A,
+	0x1D53B,
+	0x1D53F,
+	0x1D540,
+	0x1D545,
+	0x1D546,
+	0x1D547,
+	0x1D54A,
+	0x1D551,
+	0x1D552,
+	0x1D6A6,
+	0x1D6A8,
+	0x1D6C1,
+	0x1D6C2,
+	0x1D6DB,
+	0x1D6DC,
+	0x1D6FB,
+	0x1D6FC,
+	0x1D715,
+	0x1D716,
+	0x1D735,
+	0x1D736,
+	0x1D74F,
+	0x1D750,
+	0x1D76F,
+	0x1D770,
+	0x1D789,
+	0x1D78A,
+	0x1D7A9,
+	0x1D7AA,
+	0x1D7C3,
+	0x1D7C4,
+	0x1D7CC,
+	0x1D7CE,
+	0x1D800,
+	0x1DA00,
+	0x1DA37,
+	0x1DA3B,
+	0x1DA6D,
+	0x1DA75,
+	0x1DA76,
+	0x1DA84,
+	0x1DA85,
+	0x1DA9B,
+	0x1DAA0,
+	0x1DAA1,
+	0x1DAB0,
+	0x1E800,
+	0x1E8C5,
+	0x1E8D0,
+	0x1E8D7,
+	0x1EE00,
+	0x1EE04,
+	0x1EE05,
+	0x1EE20,
+	0x1EE21,
+	0x1EE23,
+	0x1EE24,
+	0x1EE25,
+	0x1EE27,
+	0x1EE28,
+	0x1EE29,
+	0x1EE33,
+	0x1EE34,
+	0x1EE38,
+	0x1EE39,
+	0x1EE3A,
+	0x1EE3B,
+	0x1EE3C,
+	0x1EE42,
+	0x1EE43,
+	0x1EE47,
+	0x1EE48,
+	0x1EE49,
+	0x1EE4A,
+	0x1EE4B,
+	0x1EE4C,
+	0x1EE4D,
+	0x1EE50,
+	0x1EE51,
+	0x1EE53,
+	0x1EE54,
+	0x1EE55,
+	0x1EE57,
+	0x1EE58,
+	0x1EE59,
+	0x1EE5A,
+	0x1EE5B,
+	0x1EE5C,
+	0x1EE5D,
+	0x1EE5E,
+	0x1EE5F,
+	0x1EE60,
+	0x1EE61,
+	0x1EE63,
+	0x1EE64,
+	0x1EE65,
+	0x1EE67,
+	0x1EE6B,
+	0x1EE6C,
+	0x1EE73,
+	0x1EE74,
+	0x1EE78,
+	0x1EE79,
+	0x1EE7D,
+	0x1EE7E,
+	0x1EE7F,
+	0x1EE80,
+	0x1EE8A,
+	0x1EE8B,
+	0x1EE9C,
+	0x1EEA1,
+	0x1EEA4,
+	0x1EEA5,
+	0x1EEAA,
+	0x1EEAB,
+	0x1EEBC,
+	0x1F130,
+	0x1F14A,
+	0x1F150,
+	0x1F16A,
+	0x1F170,
+	0x1F18A,
+	0x20000,
+	0x2A6D7,
+	0x2A700,
+	0x2B735,
+	0x2B740,
+	0x2B81E,
+	0x2B820,
+	0x2CEA2,
+	0x2F800,
+	0x2FA1E,
+	0xE0100,
+	0xE01F0
+};
+
+static const UV XPosixXDigit_invlist[] = { /* for EBCDIC 1047 */
+	13,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	1,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x81,
+	0x87,
+	0xC1,
+	0xC7,
+	0xF0,
+	0xFA,
+	0xFF10,
+	0xFF1A,
+	0xFF21,
+	0xFF27,
+	0xFF41,
+	0xFF47
+};
+
+#endif	/* defined(PERL_IN_PERL_C) */
+
+#endif	/* EBCDIC 1047 */
+
+#if 'A' == 193 /* EBCDIC 037 */ \
+     && '\\' == 224 && '[' == 186 && ']' == 187 && '{' == 192 && '}' == 208 \
+     && '^' == 176 && '~' == 161 && '!' == 90 && '#' == 123 && '|' == 79 \
+     && '$' == 91 && '@' == 124 && '`' == 121
+
+#if defined(PERL_IN_PERL_C)
+
+static const UV ASCII_invlist[] = { /* for EBCDIC 037 */
+	56,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	0,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x4,
+	0x5,
+	0x6,
+	0x7,
+	0x8,
+	0xB,
+	0x14,
+	0x16,
+	0x17,
+	0x18,
+	0x1A,
+	0x1C,
+	0x20,
+	0x25,
+	0x28,
+	0x2D,
+	0x30,
+	0x32,
+	0x33,
+	0x37,
+	0x38,
+	0x3C,
+	0x3E,
+	0x3F,
+	0x41,
+	0x4B,
+	0x51,
+	0x5A,
+	0x5F,
+	0x60,
+	0x62,
+	0x6B,
+	0x70,
+	0x79,
+	0x80,
+	0x81,
+	0x8A,
+	0x91,
+	0x9A,
+	0xA1,
+	0xAA,
+	0xB0,
+	0xB1,
+	0xBA,
+	0xBC,
+	0xC0,
+	0xCA,
+	0xD0,
+	0xDA,
+	0xE0,
+	0xE1,
+	0xE2,
+	0xEA,
+	0xF0,
+	0xFA
+};
+
+static const UV Cased_invlist[] = { /* for EBCDIC 037 */
+	285,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	1,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x42,
+	0x4A,
+	0x51,
+	0x5A,
+	0x62,
+	0x6A,
+	0x70,
+	0x79,
+	0x80,
+	0x8A,
+	0x8C,
+	0x8F,
+	0x91,
+	0x9D,
+	0x9E,
+	0x9F,
+	0xA0,
+	0xA1,
+	0xA2,
+	0xAA,
+	0xAC,
+	0xAF,
+	0xC1,
+	0xCA,
+	0xCB,
+	0xD0,
+	0xD1,
+	0xDA,
+	0xDB,
+	0xE0,
+	0xE2,
+	0xEA,
+	0xEB,
+	0xF0,
+	0xFB,
+	0xFF,
+	0x100,
+	0x1BB,
+	0x1BC,
+	0x1C0,
+	0x1C4,
+	0x294,
+	0x295,
+	0x2B9,
+	0x2C0,
+	0x2C2,
+	0x2E0,
+	0x2E5,
+	0x345,
+	0x346,
+	0x370,
+	0x374,
+	0x376,
+	0x378,
+	0x37A,
+	0x37E,
+	0x37F,
+	0x380,
+	0x386,
+	0x387,
+	0x388,
+	0x38B,
+	0x38C,
+	0x38D,
+	0x38E,
+	0x3A2,
+	0x3A3,
+	0x3F6,
+	0x3F7,
+	0x482,
+	0x48A,
+	0x530,
+	0x531,
+	0x557,
+	0x561,
+	0x588,
+	0x10A0,
+	0x10C6,
+	0x10C7,
+	0x10C8,
+	0x10CD,
+	0x10CE,
+	0x13A0,
+	0x13F6,
+	0x13F8,
+	0x13FE,
+	0x1D00,
+	0x1DC0,
+	0x1E00,
+	0x1F16,
+	0x1F18,
+	0x1F1E,
+	0x1F20,
+	0x1F46,
+	0x1F48,
+	0x1F4E,
+	0x1F50,
+	0x1F58,
+	0x1F59,
+	0x1F5A,
+	0x1F5B,
+	0x1F5C,
+	0x1F5D,
+	0x1F5E,
+	0x1F5F,
+	0x1F7E,
+	0x1F80,
+	0x1FB5,
+	0x1FB6,
+	0x1FBD,
+	0x1FBE,
+	0x1FBF,
+	0x1FC2,
+	0x1FC5,
+	0x1FC6,
+	0x1FCD,
+	0x1FD0,
+	0x1FD4,
+	0x1FD6,
+	0x1FDC,
+	0x1FE0,
+	0x1FED,
+	0x1FF2,
+	0x1FF5,
+	0x1FF6,
+	0x1FFD,
+	0x2071,
+	0x2072,
+	0x207F,
+	0x2080,
+	0x2090,
+	0x209D,
+	0x2102,
+	0x2103,
+	0x2107,
+	0x2108,
+	0x210A,
+	0x2114,
+	0x2115,
+	0x2116,
+	0x2119,
+	0x211E,
+	0x2124,
+	0x2125,
+	0x2126,
+	0x2127,
+	0x2128,
+	0x2129,
+	0x212A,
+	0x212E,
+	0x212F,
+	0x2135,
+	0x2139,
+	0x213A,
+	0x213C,
+	0x2140,
+	0x2145,
+	0x214A,
+	0x214E,
+	0x214F,
+	0x2160,
+	0x2180,
+	0x2183,
+	0x2185,
+	0x24B6,
+	0x24EA,
+	0x2C00,
+	0x2C2F,
+	0x2C30,
+	0x2C5F,
+	0x2C60,
+	0x2CE5,
+	0x2CEB,
+	0x2CEF,
+	0x2CF2,
+	0x2CF4,
+	0x2D00,
+	0x2D26,
+	0x2D27,
+	0x2D28,
+	0x2D2D,
+	0x2D2E,
+	0xA640,
+	0xA66E,
+	0xA680,
+	0xA69E,
+	0xA722,
+	0xA788,
+	0xA78B,
+	0xA78F,
+	0xA790,
+	0xA7AE,
+	0xA7B0,
+	0xA7B8,
+	0xA7F8,
+	0xA7FB,
+	0xAB30,
+	0xAB5B,
+	0xAB5C,
+	0xAB66,
+	0xAB70,
+	0xABC0,
+	0xFB00,
+	0xFB07,
+	0xFB13,
+	0xFB18,
+	0xFF21,
+	0xFF3B,
+	0xFF41,
+	0xFF5B,
+	0x10400,
+	0x10450,
+	0x10C80,
+	0x10CB3,
+	0x10CC0,
+	0x10CF3,
+	0x118A0,
+	0x118E0,
+	0x1D400,
+	0x1D455,
+	0x1D456,
+	0x1D49D,
+	0x1D49E,
+	0x1D4A0,
+	0x1D4A2,
+	0x1D4A3,
+	0x1D4A5,
+	0x1D4A7,
+	0x1D4A9,
+	0x1D4AD,
+	0x1D4AE,
+	0x1D4BA,
+	0x1D4BB,
+	0x1D4BC,
+	0x1D4BD,
+	0x1D4C4,
+	0x1D4C5,
+	0x1D506,
+	0x1D507,
+	0x1D50B,
+	0x1D50D,
+	0x1D515,
+	0x1D516,
+	0x1D51D,
+	0x1D51E,
+	0x1D53A,
+	0x1D53B,
+	0x1D53F,
+	0x1D540,
+	0x1D545,
+	0x1D546,
+	0x1D547,
+	0x1D54A,
+	0x1D551,
+	0x1D552,
+	0x1D6A6,
+	0x1D6A8,
+	0x1D6C1,
+	0x1D6C2,
+	0x1D6DB,
+	0x1D6DC,
+	0x1D6FB,
+	0x1D6FC,
+	0x1D715,
+	0x1D716,
+	0x1D735,
+	0x1D736,
+	0x1D74F,
+	0x1D750,
+	0x1D76F,
+	0x1D770,
+	0x1D789,
+	0x1D78A,
+	0x1D7A9,
+	0x1D7AA,
+	0x1D7C3,
+	0x1D7C4,
+	0x1D7CC,
+	0x1F130,
+	0x1F14A,
+	0x1F150,
+	0x1F16A,
+	0x1F170,
+	0x1F18A
+};
+
+#endif	/* defined(PERL_IN_PERL_C) */
+
+#if defined(PERL_IN_REGCOMP_C)
+
+static const UV NonL1_Perl_Non_Final_Folds_invlist[] = { /* for EBCDIC 037 */
+	45,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	1,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x2BC,
+	0x2BD,
+	0x308,
+	0x309,
+	0x313,
+	0x314,
+	0x342,
+	0x343,
+	0x3AC,
+	0x3AD,
+	0x3AE,
+	0x3AF,
+	0x3B1,
+	0x3B2,
+	0x3B7,
+	0x3B8,
+	0x3B9,
+	0x3BA,
+	0x3C1,
+	0x3C2,
+	0x3C5,
+	0x3C6,
+	0x3C9,
+	0x3CA,
+	0x3CE,
+	0x3CF,
+	0x565,
+	0x566,
+	0x574,
+	0x575,
+	0x57E,
+	0x57F,
+	0x1F00,
+	0x1F08,
+	0x1F20,
+	0x1F28,
+	0x1F60,
+	0x1F68,
+	0x1F70,
+	0x1F71,
+	0x1F74,
+	0x1F75,
+	0x1F7C,
+	0x1F7D
+};
+
+static const UV _Perl_Any_Folds_invlist[] = { /* for EBCDIC 037 */
+	275,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	1,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x42,
+	0x4A,
+	0x51,
+	0x5A,
+	0x62,
+	0x6A,
+	0x70,
+	0x79,
+	0x80,
+	0x8A,
+	0x8C,
+	0x8F,
+	0x91,
+	0x9A,
+	0x9C,
+	0x9D,
+	0x9E,
+	0x9F,
+	0xA0,
+	0xA1,
+	0xA2,
+	0xAA,
+	0xAC,
+	0xAF,
+	0xC1,
+	0xCA,
+	0xCB,
+	0xD0,
+	0xD1,
+	0xDA,
+	0xDB,
+	0xE0,
+	0xE2,
+	0xEA,
+	0xEB,
+	0xF0,
+	0xFB,
+	0xFF,
+	0x100,
+	0x131,
+	0x132,
+	0x138,
+	0x139,
+	0x18D,
+	0x18E,
+	0x19B,
+	0x19C,
+	0x1AA,
+	0x1AC,
+	0x1BA,
+	0x1BC,
+	0x1BE,
+	0x1BF,
+	0x1C0,
+	0x1C4,
+	0x221,
+	0x222,
+	0x234,
+	0x23A,
+	0x255,
+	0x256,
+	0x258,
+	0x259,
+	0x25A,
+	0x25B,
+	0x25D,
+	0x260,
+	0x262,
+	0x263,
+	0x264,
+	0x265,
+	0x267,
+	0x268,
+	0x26A,
+	0x26B,
+	0x26D,
+	0x26F,
+	0x270,
+	0x271,
+	0x273,
+	0x275,
+	0x276,
+	0x27D,
+	0x27E,
+	0x280,
+	0x281,
+	0x283,
+	0x284,
+	0x287,
+	0x28D,
+	0x292,
+	0x293,
+	0x29D,
+	0x29F,
+	0x2BC,
+	0x2BD,
+	0x2BE,
+	0x2BF,
+	0x300,
+	0x302,
+	0x307,
+	0x309,
+	0x30A,
+	0x30B,
+	0x30C,
+	0x30D,
+	0x313,
+	0x314,
+	0x331,
+	0x332,
+	0x342,
+	0x343,
+	0x345,
+	0x346,
+	0x370,
+	0x374,
+	0x376,
+	0x378,
+	0x37B,
+	0x37E,
+	0x37F,
+	0x380,
+	0x386,
+	0x387,
+	0x388,
+	0x38B,
+	0x38C,
+	0x38D,
+	0x38E,
+	0x3A2,
+	0x3A3,
+	0x3D2,
+	0x3D5,
+	0x3F6,
+	0x3F7,
+	0x3FC,
+	0x3FD,
+	0x482,
+	0x48A,
+	0x530,
+	0x531,
+	0x557,
+	0x561,
+	0x588,
+	0x10A0,
+	0x10C6,
+	0x10C7,
+	0x10C8,
+	0x10CD,
+	0x10CE,
+	0x13A0,
+	0x13F6,
+	0x13F8,
+	0x13FE,
+	0x1D79,
+	0x1D7A,
+	0x1D7D,
+	0x1D7E,
+	0x1E00,
+	0x1E9C,
+	0x1E9E,
+	0x1E9F,
+	0x1EA0,
+	0x1F16,
+	0x1F18,
+	0x1F1E,
+	0x1F20,
+	0x1F46,
+	0x1F48,
+	0x1F4E,
+	0x1F50,
+	0x1F58,
+	0x1F59,
+	0x1F5A,
+	0x1F5B,
+	0x1F5C,
+	0x1F5D,
+	0x1F5E,
+	0x1F5F,
+	0x1F7E,
+	0x1F80,
+	0x1FB5,
+	0x1FB6,
+	0x1FBD,
+	0x1FBE,
+	0x1FBF,
+	0x1FC2,
+	0x1FC5,
+	0x1FC6,
+	0x1FCD,
+	0x1FD0,
+	0x1FD4,
+	0x1FD6,
+	0x1FDC,
+	0x1FE0,
+	0x1FED,
+	0x1FF2,
+	0x1FF5,
+	0x1FF6,
+	0x1FFD,
+	0x2126,
+	0x2127,
+	0x212A,
+	0x212C,
+	0x2132,
+	0x2133,
+	0x214E,
+	0x214F,
+	0x2160,
+	0x2180,
+	0x2183,
+	0x2185,
+	0x24B6,
+	0x24EA,
+	0x2C00,
+	0x2C2F,
+	0x2C30,
+	0x2C5F,
+	0x2C60,
+	0x2C71,
+	0x2C72,
+	0x2C74,
+	0x2C75,
+	0x2C77,
+	0x2C7E,
+	0x2CE4,
+	0x2CEB,
+	0x2CEF,
+	0x2CF2,
+	0x2CF4,
+	0x2D00,
+	0x2D26,
+	0x2D27,
+	0x2D28,
+	0x2D2D,
+	0x2D2E,
+	0xA640,
+	0xA66E,
+	0xA680,
+	0xA69C,
+	0xA722,
+	0xA730,
+	0xA732,
+	0xA770,
+	0xA779,
+	0xA788,
+	0xA78B,
+	0xA78E,
+	0xA790,
+	0xA794,
+	0xA796,
+	0xA7AE,
+	0xA7B0,
+	0xA7B8,
+	0xAB53,
+	0xAB54,
+	0xAB70,
+	0xABC0,
+	0xFB00,
+	0xFB07,
+	0xFB13,
+	0xFB18,
+	0xFF21,
+	0xFF3B,
+	0xFF41,
+	0xFF5B,
+	0x10400,
+	0x10450,
+	0x10C80,
+	0x10CB3,
+	0x10CC0,
+	0x10CF3,
+	0x118A0,
+	0x118E0
+};
+
+static const UV _Perl_Folds_To_Multi_Char_invlist[] = { /* for EBCDIC 037 */
+	59,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	1,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x59,
+	0x5A,
+	0x130,
+	0x131,
+	0x149,
+	0x14A,
+	0x1F0,
+	0x1F1,
+	0x390,
+	0x391,
+	0x3B0,
+	0x3B1,
+	0x587,
+	0x588,
+	0x1E96,
+	0x1E9B,
+	0x1E9E,
+	0x1E9F,
+	0x1F50,
+	0x1F51,
+	0x1F52,
+	0x1F53,
+	0x1F54,
+	0x1F55,
+	0x1F56,
+	0x1F57,
+	0x1F80,
+	0x1FB0,
+	0x1FB2,
+	0x1FB5,
+	0x1FB6,
+	0x1FB8,
+	0x1FBC,
+	0x1FBD,
+	0x1FC2,
+	0x1FC5,
+	0x1FC6,
+	0x1FC8,
+	0x1FCC,
+	0x1FCD,
+	0x1FD2,
+	0x1FD4,
+	0x1FD6,
+	0x1FD8,
+	0x1FE2,
+	0x1FE5,
+	0x1FE6,
+	0x1FE8,
+	0x1FF2,
+	0x1FF5,
+	0x1FF6,
+	0x1FF8,
+	0x1FFC,
+	0x1FFD,
+	0xFB00,
+	0xFB07,
+	0xFB13,
+	0xFB18
+};
+
+#endif	/* defined(PERL_IN_REGCOMP_C) */
+
+#if defined(PERL_IN_PERL_C)
+
+static const UV _Perl_GCB_invlist[] = { /* for EBCDIC 037 */
+	1502,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	0,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0xD,
+	0xE,
+	0x25,
+	0x26,
+	0x40,
+	0xCA,
+	0xCB,
+	0xFF,
+	0x100,
+	0x300,
+	0x370,
+	0x483,
+	0x48A,
+	0x591,
+	0x5BE,
+	0x5BF,
+	0x5C0,
+	0x5C1,
+	0x5C3,
+	0x5C4,
+	0x5C6,
+	0x5C7,
+	0x5C8,
+	0x600,
+	0x606,
+	0x610,
+	0x61B,
+	0x61C,
+	0x61D,
+	0x64B,
+	0x660,
+	0x670,
+	0x671,
+	0x6D6,
+	0x6DD,
+	0x6DE,
+	0x6DF,
+	0x6E5,
+	0x6E7,
+	0x6E9,
+	0x6EA,
+	0x6EE,
+	0x70F,
+	0x710,
+	0x711,
+	0x712,
+	0x730,
+	0x74B,
+	0x7A6,
+	0x7B1,
+	0x7EB,
+	0x7F4,
+	0x816,
+	0x81A,
+	0x81B,
+	0x824,
+	0x825,
+	0x828,
+	0x829,
+	0x82E,
+	0x859,
+	0x85C,
+	0x8E3,
+	0x903,
+	0x904,
+	0x93A,
+	0x93B,
+	0x93C,
+	0x93D,
+	0x93E,
+	0x941,
+	0x949,
+	0x94D,
+	0x94E,
+	0x950,
+	0x951,
+	0x958,
+	0x962,
+	0x964,
+	0x981,
+	0x982,
+	0x984,
+	0x9BC,
+	0x9BD,
+	0x9BE,
+	0x9BF,
+	0x9C1,
+	0x9C5,
+	0x9C7,
+	0x9C9,
+	0x9CB,
+	0x9CD,
+	0x9CE,
+	0x9D7,
+	0x9D8,
+	0x9E2,
+	0x9E4,
+	0xA01,
+	0xA03,
+	0xA04,
+	0xA3C,
+	0xA3D,
+	0xA3E,
+	0xA41,
+	0xA43,
+	0xA47,
+	0xA49,
+	0xA4B,
+	0xA4E,
+	0xA51,
+	0xA52,
+	0xA70,
+	0xA72,
+	0xA75,
+	0xA76,
+	0xA81,
+	0xA83,
+	0xA84,
+	0xABC,
+	0xABD,
+	0xABE,
+	0xAC1,
+	0xAC6,
+	0xAC7,
+	0xAC9,
+	0xACA,
+	0xACB,
+	0xACD,
+	0xACE,
+	0xAE2,
+	0xAE4,
+	0xB01,
+	0xB02,
+	0xB04,
+	0xB3C,
+	0xB3D,
+	0xB3E,
+	0xB40,
+	0xB41,
+	0xB45,
+	0xB47,
+	0xB49,
+	0xB4B,
+	0xB4D,
+	0xB4E,
+	0xB56,
+	0xB58,
+	0xB62,
+	0xB64,
+	0xB82,
+	0xB83,
+	0xBBE,
+	0xBBF,
+	0xBC0,
+	0xBC1,
+	0xBC3,
+	0xBC6,
+	0xBC9,
+	0xBCA,
+	0xBCD,
+	0xBCE,
+	0xBD7,
+	0xBD8,
+	0xC00,
+	0xC01,
+	0xC04,
+	0xC3E,
+	0xC41,
+	0xC45,
+	0xC46,
+	0xC49,
+	0xC4A,
+	0xC4E,
+	0xC55,
+	0xC57,
+	0xC62,
+	0xC64,
+	0xC81,
+	0xC82,
+	0xC84,
+	0xCBC,
+	0xCBD,
+	0xCBE,
+	0xCBF,
+	0xCC0,
+	0xCC2,
+	0xCC3,
+	0xCC5,
+	0xCC6,
+	0xCC7,
+	0xCC9,
+	0xCCA,
+	0xCCC,
+	0xCCE,
+	0xCD5,
+	0xCD7,
+	0xCE2,
+	0xCE4,
+	0xD01,
+	0xD02,
+	0xD04,
+	0xD3E,
+	0xD3F,
+	0xD41,
+	0xD45,
+	0xD46,
+	0xD49,
+	0xD4A,
+	0xD4D,
+	0xD4E,
+	0xD57,
+	0xD58,
+	0xD62,
+	0xD64,
+	0xD82,
+	0xD84,
+	0xDCA,
+	0xDCB,
+	0xDCF,
+	0xDD0,
+	0xDD2,
+	0xDD5,
+	0xDD6,
+	0xDD7,
+	0xDD8,
+	0xDDF,
+	0xDE0,
+	0xDF2,
+	0xDF4,
+	0xE31,
+	0xE32,
+	0xE33,
+	0xE34,
+	0xE3B,
+	0xE47,
+	0xE4F,
+	0xEB1,
+	0xEB2,
+	0xEB3,
+	0xEB4,
+	0xEBA,
+	0xEBB,
+	0xEBD,
+	0xEC8,
+	0xECE,
+	0xF18,
+	0xF1A,
+	0xF35,
+	0xF36,
+	0xF37,
+	0xF38,
+	0xF39,
+	0xF3A,
+	0xF3E,
+	0xF40,
+	0xF71,
+	0xF7F,
+	0xF80,
+	0xF85,
+	0xF86,
+	0xF88,
+	0xF8D,
+	0xF98,
+	0xF99,
+	0xFBD,
+	0xFC6,
+	0xFC7,
+	0x102D,
+	0x1031,
+	0x1032,
+	0x1038,
+	0x1039,
+	0x103B,
+	0x103D,
+	0x103F,
+	0x1056,
+	0x1058,
+	0x105A,
+	0x105E,
+	0x1061,
+	0x1071,
+	0x1075,
+	0x1082,
+	0x1083,
+	0x1084,
+	0x1085,
+	0x1087,
+	0x108D,
+	0x108E,
+	0x109D,
+	0x109E,
+	0x1100,
+	0x1160,
+	0x11A8,
+	0x1200,
+	0x135D,
+	0x1360,
+	0x1712,
+	0x1715,
+	0x1732,
+	0x1735,
+	0x1752,
+	0x1754,
+	0x1772,
+	0x1774,
+	0x17B4,
+	0x17B6,
+	0x17B7,
+	0x17BE,
+	0x17C6,
+	0x17C7,
+	0x17C9,
+	0x17D4,
+	0x17DD,
+	0x17DE,
+	0x180B,
+	0x180E,
+	0x180F,
+	0x18A9,
+	0x18AA,
+	0x1920,
+	0x1923,
+	0x1927,
+	0x1929,
+	0x192C,
+	0x1930,
+	0x1932,
+	0x1933,
+	0x1939,
+	0x193C,
+	0x1A17,
+	0x1A19,
+	0x1A1B,
+	0x1A1C,
+	0x1A55,
+	0x1A56,
+	0x1A57,
+	0x1A58,
+	0x1A5F,
+	0x1A60,
+	0x1A61,
+	0x1A62,
+	0x1A63,
+	0x1A65,
+	0x1A6D,
+	0x1A73,
+	0x1A7D,
+	0x1A7F,
+	0x1A80,
+	0x1AB0,
+	0x1ABF,
+	0x1B00,
+	0x1B04,
+	0x1B05,
+	0x1B34,
+	0x1B35,
+	0x1B36,
+	0x1B3B,
+	0x1B3C,
+	0x1B3D,
+	0x1B42,
+	0x1B43,
+	0x1B45,
+	0x1B6B,
+	0x1B74,
+	0x1B80,
+	0x1B82,
+	0x1B83,
+	0x1BA1,
+	0x1BA2,
+	0x1BA6,
+	0x1BA8,
+	0x1BAA,
+	0x1BAB,
+	0x1BAE,
+	0x1BE6,
+	0x1BE7,
+	0x1BE8,
+	0x1BEA,
+	0x1BED,
+	0x1BEE,
+	0x1BEF,
+	0x1BF2,
+	0x1BF4,
+	0x1C24,
+	0x1C2C,
+	0x1C34,
+	0x1C36,
+	0x1C38,
+	0x1CD0,
+	0x1CD3,
+	0x1CD4,
+	0x1CE1,
+	0x1CE2,
+	0x1CE9,
+	0x1CED,
+	0x1CEE,
+	0x1CF2,
+	0x1CF4,
+	0x1CF5,
+	0x1CF8,
+	0x1CFA,
+	0x1DC0,
+	0x1DF6,
+	0x1DFC,
+	0x1E00,
+	0x200B,
+	0x200C,
+	0x200E,
+	0x2010,
+	0x2028,
+	0x202F,
+	0x2060,
+	0x2070,
+	0x20D0,
+	0x20F1,
+	0x2CEF,
+	0x2CF2,
+	0x2D7F,
+	0x2D80,
+	0x2DE0,
+	0x2E00,
+	0x302A,
+	0x3030,
+	0x3099,
+	0x309B,
+	0xA66F,
+	0xA673,
+	0xA674,
+	0xA67E,
+	0xA69E,
+	0xA6A0,
+	0xA6F0,
+	0xA6F2,
+	0xA802,
+	0xA803,
+	0xA806,
+	0xA807,
+	0xA80B,
+	0xA80C,
+	0xA823,
+	0xA825,
+	0xA827,
+	0xA828,
+	0xA880,
+	0xA882,
+	0xA8B4,
+	0xA8C4,
+	0xA8C5,
+	0xA8E0,
+	0xA8F2,
+	0xA926,
+	0xA92E,
+	0xA947,
+	0xA952,
+	0xA954,
+	0xA960,
+	0xA97D,
+	0xA980,
+	0xA983,
+	0xA984,
+	0xA9B3,
+	0xA9B4,
+	0xA9B6,
+	0xA9BA,
+	0xA9BC,
+	0xA9BD,
+	0xA9C1,
+	0xA9E5,
+	0xA9E6,
+	0xAA29,
+	0xAA2F,
+	0xAA31,
+	0xAA33,
+	0xAA35,
+	0xAA37,
+	0xAA43,
+	0xAA44,
+	0xAA4C,
+	0xAA4D,
+	0xAA4E,
+	0xAA7C,
+	0xAA7D,
+	0xAAB0,
+	0xAAB1,
+	0xAAB2,
+	0xAAB5,
+	0xAAB7,
+	0xAAB9,
+	0xAABE,
+	0xAAC0,
+	0xAAC1,
+	0xAAC2,
+	0xAAEB,
+	0xAAEC,
+	0xAAEE,
+	0xAAF0,
+	0xAAF5,
+	0xAAF6,
+	0xAAF7,
+	0xABE3,
+	0xABE5,
+	0xABE6,
+	0xABE8,
+	0xABE9,
+	0xABEB,
+	0xABEC,
+	0xABED,
+	0xABEE,
+	0xAC00,
+	0xAC01,
+	0xAC1C,
+	0xAC1D,
+	0xAC38,
+	0xAC39,
+	0xAC54,
+	0xAC55,
+	0xAC70,
+	0xAC71,
+	0xAC8C,
+	0xAC8D,
+	0xACA8,
+	0xACA9,
+	0xACC4,
+	0xACC5,
+	0xACE0,
+	0xACE1,
+	0xACFC,
+	0xACFD,
+	0xAD18,
+	0xAD19,
+	0xAD34,
+	0xAD35,
+	0xAD50,
+	0xAD51,
+	0xAD6C,
+	0xAD6D,
+	0xAD88,
+	0xAD89,
+	0xADA4,
+	0xADA5,
+	0xADC0,
+	0xADC1,
+	0xADDC,
+	0xADDD,
+	0xADF8,
+	0xADF9,
+	0xAE14,
+	0xAE15,
+	0xAE30,
+	0xAE31,
+	0xAE4C,
+	0xAE4D,
+	0xAE68,
+	0xAE69,
+	0xAE84,
+	0xAE85,
+	0xAEA0,
+	0xAEA1,
+	0xAEBC,
+	0xAEBD,
+	0xAED8,
+	0xAED9,
+	0xAEF4,
+	0xAEF5,
+	0xAF10,
+	0xAF11,
+	0xAF2C,
+	0xAF2D,
+	0xAF48,
+	0xAF49,
+	0xAF64,
+	0xAF65,
+	0xAF80,
+	0xAF81,
+	0xAF9C,
+	0xAF9D,
+	0xAFB8,
+	0xAFB9,
+	0xAFD4,
+	0xAFD5,
+	0xAFF0,
+	0xAFF1,
+	0xB00C,
+	0xB00D,
+	0xB028,
+	0xB029,
+	0xB044,
+	0xB045,
+	0xB060,
+	0xB061,
+	0xB07C,
+	0xB07D,
+	0xB098,
+	0xB099,
+	0xB0B4,
+	0xB0B5,
+	0xB0D0,
+	0xB0D1,
+	0xB0EC,
+	0xB0ED,
+	0xB108,
+	0xB109,
+	0xB124,
+	0xB125,
+	0xB140,
+	0xB141,
+	0xB15C,
+	0xB15D,
+	0xB178,
+	0xB179,
+	0xB194,
+	0xB195,
+	0xB1B0,
+	0xB1B1,
+	0xB1CC,
+	0xB1CD,
+	0xB1E8,
+	0xB1E9,
+	0xB204,
+	0xB205,
+	0xB220,
+	0xB221,
+	0xB23C,
+	0xB23D,
+	0xB258,
+	0xB259,
+	0xB274,
+	0xB275,
+	0xB290,
+	0xB291,
+	0xB2AC,
+	0xB2AD,
+	0xB2C8,
+	0xB2C9,
+	0xB2E4,
+	0xB2E5,
+	0xB300,
+	0xB301,
+	0xB31C,
+	0xB31D,
+	0xB338,
+	0xB339,
+	0xB354,
+	0xB355,
+	0xB370,
+	0xB371,
+	0xB38C,
+	0xB38D,
+	0xB3A8,
+	0xB3A9,
+	0xB3C4,
+	0xB3C5,
+	0xB3E0,
+	0xB3E1,
+	0xB3FC,
+	0xB3FD,
+	0xB418,
+	0xB419,
+	0xB434,
+	0xB435,
+	0xB450,
+	0xB451,
+	0xB46C,
+	0xB46D,
+	0xB488,
+	0xB489,
+	0xB4A4,
+	0xB4A5,
+	0xB4C0,
+	0xB4C1,
+	0xB4DC,
+	0xB4DD,
+	0xB4F8,
+	0xB4F9,
+	0xB514,
+	0xB515,
+	0xB530,
+	0xB531,
+	0xB54C,
+	0xB54D,
+	0xB568,
+	0xB569,
+	0xB584,
+	0xB585,
+	0xB5A0,
+	0xB5A1,
+	0xB5BC,
+	0xB5BD,
+	0xB5D8,
+	0xB5D9,
+	0xB5F4,
+	0xB5F5,
+	0xB610,
+	0xB611,
+	0xB62C,
+	0xB62D,
+	0xB648,
+	0xB649,
+	0xB664,
+	0xB665,
+	0xB680,
+	0xB681,
+	0xB69C,
+	0xB69D,
+	0xB6B8,
+	0xB6B9,
+	0xB6D4,
+	0xB6D5,
+	0xB6F0,
+	0xB6F1,
+	0xB70C,
+	0xB70D,
+	0xB728,
+	0xB729,
+	0xB744,
+	0xB745,
+	0xB760,
+	0xB761,
+	0xB77C,
+	0xB77D,
+	0xB798,
+	0xB799,
+	0xB7B4,
+	0xB7B5,
+	0xB7D0,
+	0xB7D1,
+	0xB7EC,
+	0xB7ED,
+	0xB808,
+	0xB809,
+	0xB824,
+	0xB825,
+	0xB840,
+	0xB841,
+	0xB85C,
+	0xB85D,
+	0xB878,
+	0xB879,
+	0xB894,
+	0xB895,
+	0xB8B0,
+	0xB8B1,
+	0xB8CC,
+	0xB8CD,
+	0xB8E8,
+	0xB8E9,
+	0xB904,
+	0xB905,
+	0xB920,
+	0xB921,
+	0xB93C,
+	0xB93D,
+	0xB958,
+	0xB959,
+	0xB974,
+	0xB975,
+	0xB990,
+	0xB991,
+	0xB9AC,
+	0xB9AD,
+	0xB9C8,
+	0xB9C9,
+	0xB9E4,
+	0xB9E5,
+	0xBA00,
+	0xBA01,
+	0xBA1C,
+	0xBA1D,
+	0xBA38,
+	0xBA39,
+	0xBA54,
+	0xBA55,
+	0xBA70,
+	0xBA71,
+	0xBA8C,
+	0xBA8D,
+	0xBAA8,
+	0xBAA9,
+	0xBAC4,
+	0xBAC5,
+	0xBAE0,
+	0xBAE1,
+	0xBAFC,
+	0xBAFD,
+	0xBB18,
+	0xBB19,
+	0xBB34,
+	0xBB35,
+	0xBB50,
+	0xBB51,
+	0xBB6C,
+	0xBB6D,
+	0xBB88,
+	0xBB89,
+	0xBBA4,
+	0xBBA5,
+	0xBBC0,
+	0xBBC1,
+	0xBBDC,
+	0xBBDD,
+	0xBBF8,
+	0xBBF9,
+	0xBC14,
+	0xBC15,
+	0xBC30,
+	0xBC31,
+	0xBC4C,
+	0xBC4D,
+	0xBC68,
+	0xBC69,
+	0xBC84,
+	0xBC85,
+	0xBCA0,
+	0xBCA1,
+	0xBCBC,
+	0xBCBD,
+	0xBCD8,
+	0xBCD9,
+	0xBCF4,
+	0xBCF5,
+	0xBD10,
+	0xBD11,
+	0xBD2C,
+	0xBD2D,
+	0xBD48,
+	0xBD49,
+	0xBD64,
+	0xBD65,
+	0xBD80,
+	0xBD81,
+	0xBD9C,
+	0xBD9D,
+	0xBDB8,
+	0xBDB9,
+	0xBDD4,
+	0xBDD5,
+	0xBDF0,
+	0xBDF1,
+	0xBE0C,
+	0xBE0D,
+	0xBE28,
+	0xBE29,
+	0xBE44,
+	0xBE45,
+	0xBE60,
+	0xBE61,
+	0xBE7C,
+	0xBE7D,
+	0xBE98,
+	0xBE99,
+	0xBEB4,
+	0xBEB5,
+	0xBED0,
+	0xBED1,
+	0xBEEC,
+	0xBEED,
+	0xBF08,
+	0xBF09,
+	0xBF24,
+	0xBF25,
+	0xBF40,
+	0xBF41,
+	0xBF5C,
+	0xBF5D,
+	0xBF78,
+	0xBF79,
+	0xBF94,
+	0xBF95,
+	0xBFB0,
+	0xBFB1,
+	0xBFCC,
+	0xBFCD,
+	0xBFE8,
+	0xBFE9,
+	0xC004,
+	0xC005,
+	0xC020,
+	0xC021,
+	0xC03C,
+	0xC03D,
+	0xC058,
+	0xC059,
+	0xC074,
+	0xC075,
+	0xC090,
+	0xC091,
+	0xC0AC,
+	0xC0AD,
+	0xC0C8,
+	0xC0C9,
+	0xC0E4,
+	0xC0E5,
+	0xC100,
+	0xC101,
+	0xC11C,
+	0xC11D,
+	0xC138,
+	0xC139,
+	0xC154,
+	0xC155,
+	0xC170,
+	0xC171,
+	0xC18C,
+	0xC18D,
+	0xC1A8,
+	0xC1A9,
+	0xC1C4,
+	0xC1C5,
+	0xC1E0,
+	0xC1E1,
+	0xC1FC,
+	0xC1FD,
+	0xC218,
+	0xC219,
+	0xC234,
+	0xC235,
+	0xC250,
+	0xC251,
+	0xC26C,
+	0xC26D,
+	0xC288,
+	0xC289,
+	0xC2A4,
+	0xC2A5,
+	0xC2C0,
+	0xC2C1,
+	0xC2DC,
+	0xC2DD,
+	0xC2F8,
+	0xC2F9,
+	0xC314,
+	0xC315,
+	0xC330,
+	0xC331,
+	0xC34C,
+	0xC34D,
+	0xC368,
+	0xC369,
+	0xC384,
+	0xC385,
+	0xC3A0,
+	0xC3A1,
+	0xC3BC,
+	0xC3BD,
+	0xC3D8,
+	0xC3D9,
+	0xC3F4,
+	0xC3F5,
+	0xC410,
+	0xC411,
+	0xC42C,
+	0xC42D,
+	0xC448,
+	0xC449,
+	0xC464,
+	0xC465,
+	0xC480,
+	0xC481,
+	0xC49C,
+	0xC49D,
+	0xC4B8,
+	0xC4B9,
+	0xC4D4,
+	0xC4D5,
+	0xC4F0,
+	0xC4F1,
+	0xC50C,
+	0xC50D,
+	0xC528,
+	0xC529,
+	0xC544,
+	0xC545,
+	0xC560,
+	0xC561,
+	0xC57C,
+	0xC57D,
+	0xC598,
+	0xC599,
+	0xC5B4,
+	0xC5B5,
+	0xC5D0,
+	0xC5D1,
+	0xC5EC,
+	0xC5ED,
+	0xC608,
+	0xC609,
+	0xC624,
+	0xC625,
+	0xC640,
+	0xC641,
+	0xC65C,
+	0xC65D,
+	0xC678,
+	0xC679,
+	0xC694,
+	0xC695,
+	0xC6B0,
+	0xC6B1,
+	0xC6CC,
+	0xC6CD,
+	0xC6E8,
+	0xC6E9,
+	0xC704,
+	0xC705,
+	0xC720,
+	0xC721,
+	0xC73C,
+	0xC73D,
+	0xC758,
+	0xC759,
+	0xC774,
+	0xC775,
+	0xC790,
+	0xC791,
+	0xC7AC,
+	0xC7AD,
+	0xC7C8,
+	0xC7C9,
+	0xC7E4,
+	0xC7E5,
+	0xC800,
+	0xC801,
+	0xC81C,
+	0xC81D,
+	0xC838,
+	0xC839,
+	0xC854,
+	0xC855,
+	0xC870,
+	0xC871,
+	0xC88C,
+	0xC88D,
+	0xC8A8,
+	0xC8A9,
+	0xC8C4,
+	0xC8C5,
+	0xC8E0,
+	0xC8E1,
+	0xC8FC,
+	0xC8FD,
+	0xC918,
+	0xC919,
+	0xC934,
+	0xC935,
+	0xC950,
+	0xC951,
+	0xC96C,
+	0xC96D,
+	0xC988,
+	0xC989,
+	0xC9A4,
+	0xC9A5,
+	0xC9C0,
+	0xC9C1,
+	0xC9DC,
+	0xC9DD,
+	0xC9F8,
+	0xC9F9,
+	0xCA14,
+	0xCA15,
+	0xCA30,
+	0xCA31,
+	0xCA4C,
+	0xCA4D,
+	0xCA68,
+	0xCA69,
+	0xCA84,
+	0xCA85,
+	0xCAA0,
+	0xCAA1,
+	0xCABC,
+	0xCABD,
+	0xCAD8,
+	0xCAD9,
+	0xCAF4,
+	0xCAF5,
+	0xCB10,
+	0xCB11,
+	0xCB2C,
+	0xCB2D,
+	0xCB48,
+	0xCB49,
+	0xCB64,
+	0xCB65,
+	0xCB80,
+	0xCB81,
+	0xCB9C,
+	0xCB9D,
+	0xCBB8,
+	0xCBB9,
+	0xCBD4,
+	0xCBD5,
+	0xCBF0,
+	0xCBF1,
+	0xCC0C,
+	0xCC0D,
+	0xCC28,
+	0xCC29,
+	0xCC44,
+	0xCC45,
+	0xCC60,
+	0xCC61,
+	0xCC7C,
+	0xCC7D,
+	0xCC98,
+	0xCC99,
+	0xCCB4,
+	0xCCB5,
+	0xCCD0,
+	0xCCD1,
+	0xCCEC,
+	0xCCED,
+	0xCD08,
+	0xCD09,
+	0xCD24,
+	0xCD25,
+	0xCD40,
+	0xCD41,
+	0xCD5C,
+	0xCD5D,
+	0xCD78,
+	0xCD79,
+	0xCD94,
+	0xCD95,
+	0xCDB0,
+	0xCDB1,
+	0xCDCC,
+	0xCDCD,
+	0xCDE8,
+	0xCDE9,
+	0xCE04,
+	0xCE05,
+	0xCE20,
+	0xCE21,
+	0xCE3C,
+	0xCE3D,
+	0xCE58,
+	0xCE59,
+	0xCE74,
+	0xCE75,
+	0xCE90,
+	0xCE91,
+	0xCEAC,
+	0xCEAD,
+	0xCEC8,
+	0xCEC9,
+	0xCEE4,
+	0xCEE5,
+	0xCF00,
+	0xCF01,
+	0xCF1C,
+	0xCF1D,
+	0xCF38,
+	0xCF39,
+	0xCF54,
+	0xCF55,
+	0xCF70,
+	0xCF71,
+	0xCF8C,
+	0xCF8D,
+	0xCFA8,
+	0xCFA9,
+	0xCFC4,
+	0xCFC5,
+	0xCFE0,
+	0xCFE1,
+	0xCFFC,
+	0xCFFD,
+	0xD018,
+	0xD019,
+	0xD034,
+	0xD035,
+	0xD050,
+	0xD051,
+	0xD06C,
+	0xD06D,
+	0xD088,
+	0xD089,
+	0xD0A4,
+	0xD0A5,
+	0xD0C0,
+	0xD0C1,
+	0xD0DC,
+	0xD0DD,
+	0xD0F8,
+	0xD0F9,
+	0xD114,
+	0xD115,
+	0xD130,
+	0xD131,
+	0xD14C,
+	0xD14D,
+	0xD168,
+	0xD169,
+	0xD184,
+	0xD185,
+	0xD1A0,
+	0xD1A1,
+	0xD1BC,
+	0xD1BD,
+	0xD1D8,
+	0xD1D9,
+	0xD1F4,
+	0xD1F5,
+	0xD210,
+	0xD211,
+	0xD22C,
+	0xD22D,
+	0xD248,
+	0xD249,
+	0xD264,
+	0xD265,
+	0xD280,
+	0xD281,
+	0xD29C,
+	0xD29D,
+	0xD2B8,
+	0xD2B9,
+	0xD2D4,
+	0xD2D5,
+	0xD2F0,
+	0xD2F1,
+	0xD30C,
+	0xD30D,
+	0xD328,
+	0xD329,
+	0xD344,
+	0xD345,
+	0xD360,
+	0xD361,
+	0xD37C,
+	0xD37D,
+	0xD398,
+	0xD399,
+	0xD3B4,
+	0xD3B5,
+	0xD3D0,
+	0xD3D1,
+	0xD3EC,
+	0xD3ED,
+	0xD408,
+	0xD409,
+	0xD424,
+	0xD425,
+	0xD440,
+	0xD441,
+	0xD45C,
+	0xD45D,
+	0xD478,
+	0xD479,
+	0xD494,
+	0xD495,
+	0xD4B0,
+	0xD4B1,
+	0xD4CC,
+	0xD4CD,
+	0xD4E8,
+	0xD4E9,
+	0xD504,
+	0xD505,
+	0xD520,
+	0xD521,
+	0xD53C,
+	0xD53D,
+	0xD558,
+	0xD559,
+	0xD574,
+	0xD575,
+	0xD590,
+	0xD591,
+	0xD5AC,
+	0xD5AD,
+	0xD5C8,
+	0xD5C9,
+	0xD5E4,
+	0xD5E5,
+	0xD600,
+	0xD601,
+	0xD61C,
+	0xD61D,
+	0xD638,
+	0xD639,
+	0xD654,
+	0xD655,
+	0xD670,
+	0xD671,
+	0xD68C,
+	0xD68D,
+	0xD6A8,
+	0xD6A9,
+	0xD6C4,
+	0xD6C5,
+	0xD6E0,
+	0xD6E1,
+	0xD6FC,
+	0xD6FD,
+	0xD718,
+	0xD719,
+	0xD734,
+	0xD735,
+	0xD750,
+	0xD751,
+	0xD76C,
+	0xD76D,
+	0xD788,
+	0xD789,
+	0xD7A4,
+	0xD7B0,
+	0xD7C7,
+	0xD7CB,
+	0xD7FC,
+	0xD800,
+	0xE000,
+	0xFB1E,
+	0xFB1F,
+	0xFE00,
+	0xFE10,
+	0xFE20,
+	0xFE30,
+	0xFEFF,
+	0xFF00,
+	0xFF9E,
+	0xFFA0,
+	0xFFF0,
+	0xFFFC,
+	0x101FD,
+	0x101FE,
+	0x102E0,
+	0x102E1,
+	0x10376,
+	0x1037B,
+	0x10A01,
+	0x10A04,
+	0x10A05,
+	0x10A07,
+	0x10A0C,
+	0x10A10,
+	0x10A38,
+	0x10A3B,
+	0x10A3F,
+	0x10A40,
+	0x10AE5,
+	0x10AE7,
+	0x11000,
+	0x11001,
+	0x11002,
+	0x11003,
+	0x11038,
+	0x11047,
+	0x1107F,
+	0x11082,
+	0x11083,
+	0x110B0,
+	0x110B3,
+	0x110B7,
+	0x110B9,
+	0x110BB,
+	0x110BD,
+	0x110BE,
+	0x11100,
+	0x11103,
+	0x11127,
+	0x1112C,
+	0x1112D,
+	0x11135,
+	0x11173,
+	0x11174,
+	0x11180,
+	0x11182,
+	0x11183,
+	0x111B3,
+	0x111B6,
+	0x111BF,
+	0x111C1,
+	0x111CA,
+	0x111CD,
+	0x1122C,
+	0x1122F,
+	0x11232,
+	0x11234,
+	0x11235,
+	0x11236,
+	0x11238,
+	0x112DF,
+	0x112E0,
+	0x112E3,
+	0x112EB,
+	0x11300,
+	0x11302,
+	0x11304,
+	0x1133C,
+	0x1133D,
+	0x1133E,
+	0x1133F,
+	0x11340,
+	0x11341,
+	0x11345,
+	0x11347,
+	0x11349,
+	0x1134B,
+	0x1134E,
+	0x11357,
+	0x11358,
+	0x11362,
+	0x11364,
+	0x11366,
+	0x1136D,
+	0x11370,
+	0x11375,
+	0x114B0,
+	0x114B1,
+	0x114B3,
+	0x114B9,
+	0x114BA,
+	0x114BB,
+	0x114BD,
+	0x114BE,
+	0x114BF,
+	0x114C1,
+	0x114C2,
+	0x114C4,
+	0x115AF,
+	0x115B0,
+	0x115B2,
+	0x115B6,
+	0x115B8,
+	0x115BC,
+	0x115BE,
+	0x115BF,
+	0x115C1,
+	0x115DC,
+	0x115DE,
+	0x11630,
+	0x11633,
+	0x1163B,
+	0x1163D,
+	0x1163E,
+	0x1163F,
+	0x11641,
+	0x116AB,
+	0x116AC,
+	0x116AD,
+	0x116AE,
+	0x116B0,
+	0x116B6,
+	0x116B7,
+	0x116B8,
+	0x1171D,
+	0x11720,
+	0x11722,
+	0x11726,
+	0x11727,
+	0x1172C,
+	0x16AF0,
+	0x16AF5,
+	0x16B30,
+	0x16B37,
+	0x16F51,
+	0x16F7F,
+	0x16F8F,
+	0x16F93,
+	0x1BC9D,
+	0x1BC9F,
+	0x1BCA0,
+	0x1BCA4,
+	0x1D165,
+	0x1D166,
+	0x1D167,
+	0x1D16A,
+	0x1D16D,
+	0x1D16E,
+	0x1D173,
+	0x1D17B,
+	0x1D183,
+	0x1D185,
+	0x1D18C,
+	0x1D1AA,
+	0x1D1AE,
+	0x1D242,
+	0x1D245,
+	0x1DA00,
+	0x1DA37,
+	0x1DA3B,
+	0x1DA6D,
+	0x1DA75,
+	0x1DA76,
+	0x1DA84,
+	0x1DA85,
+	0x1DA9B,
+	0x1DAA0,
+	0x1DAA1,
+	0x1DAB0,
+	0x1E8D0,
+	0x1E8D7,
+	0x1F1E6,
+	0x1F200,
+	0xE0000,
+	0xE0100,
+	0xE01F0,
+	0xE1000
+};
+
+#endif	/* defined(PERL_IN_PERL_C) */
+
+#if defined(PERL_IN_REGEXEC_C)
+
+#define GCB_ENUM_COUNT 14
+
+typedef enum {
+	GCB_Other = 0,
+	GCB_CR = 1,
+	GCB_Control = 2,
+	GCB_Extend = 3,
+	GCB_L = 4,
+	GCB_LF = 5,
+	GCB_LV = 6,
+	GCB_LVT = 7,
+	GCB_Prepend = 8,
+	GCB_Regional_Indicator = 9,
+	GCB_SpacingMark = 10,
+	GCB_T = 11,
+	GCB_V = 12,
+	GCB_EDGE = 13
+} GCB_enum;
+
+static const GCB_enum _Perl_GCB_invmap[] = { /* for EBCDIC 037 */
+	GCB_Control,
+	GCB_CR,
+	GCB_Control,
+	GCB_LF,
+	GCB_Control,
+	GCB_Other,
+	GCB_Control,
+	GCB_Other,
+	GCB_Control,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Control,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Control,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Control,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Control,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_L,
+	GCB_V,
+	GCB_T,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Control,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Control,
+	GCB_Extend,
+	GCB_Control,
+	GCB_Other,
+	GCB_Control,
+	GCB_Other,
+	GCB_Control,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_L,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_LV,
+	GCB_LVT,
+	GCB_Other,
+	GCB_V,
+	GCB_Other,
+	GCB_T,
+	GCB_Other,
+	GCB_Control,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Control,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Control,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Control,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Control,
+	GCB_Other,
+	GCB_Extend,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Other,
+	GCB_SpacingMark,
+	GCB_Extend,
+	GCB_Control,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Extend,
+	GCB_Other,
+	GCB_Regional_Indicator,
+	GCB_Other,
+	GCB_Control,
+	GCB_Extend,
+	GCB_Control,
+	GCB_Other
+};
+
+#endif	/* defined(PERL_IN_REGEXEC_C) */
+
+#if defined(PERL_IN_UTF8_C)
+
+static const UV _Perl_IDCont_invlist[] = { /* for EBCDIC 037 */
+	1337,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	1,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x42,
+	0x4A,
+	0x51,
+	0x5A,
+	0x62,
+	0x6A,
+	0x6D,
+	0x6E,
+	0x70,
+	0x79,
+	0x80,
+	0x8A,
+	0x8C,
+	0x8F,
+	0x91,
+	0x9D,
+	0x9E,
+	0x9F,
+	0xA0,
+	0xA1,
+	0xA2,
+	0xAA,
+	0xAC,
+	0xAF,
+	0xC1,
+	0xCA,
+	0xCB,
+	0xD0,
+	0xD1,
+	0xDA,
+	0xDB,
+	0xE0,
+	0xE2,
+	0xEA,
+	0xEB,
+	0xFA,
+	0xFB,
+	0xFF,
+	0x100,
+	0x2C2,
+	0x2C6,
+	0x2D2,
+	0x2E0,
+	0x2E5,
+	0x2EC,
+	0x2ED,
+	0x2EE,
+	0x2EF,
+	0x300,
+	0x375,
+	0x376,
+	0x378,
+	0x37B,
+	0x37E,
+	0x37F,
+	0x380,
+	0x386,
+	0x387,
+	0x388,
+	0x38B,
+	0x38C,
+	0x38D,
+	0x38E,
+	0x3A2,
+	0x3A3,
+	0x3F6,
+	0x3F7,
+	0x482,
+	0x483,
+	0x488,
+	0x48A,
+	0x530,
+	0x531,
+	0x557,
+	0x559,
+	0x55A,
+	0x561,
+	0x588,
+	0x591,
+	0x5BE,
+	0x5BF,
+	0x5C0,
+	0x5C1,
+	0x5C3,
+	0x5C4,
+	0x5C6,
+	0x5C7,
+	0x5C8,
+	0x5D0,
+	0x5EB,
+	0x5F0,
+	0x5F3,
+	0x610,
+	0x61B,
+	0x620,
+	0x66A,
+	0x66E,
+	0x6D4,
+	0x6D5,
+	0x6DD,
+	0x6DF,
+	0x6E9,
+	0x6EA,
+	0x6FD,
+	0x6FF,
+	0x700,
+	0x710,
+	0x74B,
+	0x74D,
+	0x7B2,
+	0x7C0,
+	0x7F6,
+	0x7FA,
+	0x7FB,
+	0x800,
+	0x82E,
+	0x840,
+	0x85C,
+	0x8A0,
+	0x8B5,
+	0x8E3,
+	0x964,
+	0x966,
+	0x970,
+	0x971,
+	0x984,
+	0x985,
+	0x98D,
+	0x98F,
+	0x991,
+	0x993,
+	0x9A9,
+	0x9AA,
+	0x9B1,
+	0x9B2,
+	0x9B3,
+	0x9B6,
+	0x9BA,
+	0x9BC,
+	0x9C5,
+	0x9C7,
+	0x9C9,
+	0x9CB,
+	0x9CF,
+	0x9D7,
+	0x9D8,
+	0x9DC,
+	0x9DE,
+	0x9DF,
+	0x9E4,
+	0x9E6,
+	0x9F2,
+	0xA01,
+	0xA04,
+	0xA05,
+	0xA0B,
+	0xA0F,
+	0xA11,
+	0xA13,
+	0xA29,
+	0xA2A,
+	0xA31,
+	0xA32,
+	0xA34,
+	0xA35,
+	0xA37,
+	0xA38,
+	0xA3A,
+	0xA3C,
+	0xA3D,
+	0xA3E,
+	0xA43,
+	0xA47,
+	0xA49,
+	0xA4B,
+	0xA4E,
+	0xA51,
+	0xA52,
+	0xA59,
+	0xA5D,
+	0xA5E,
+	0xA5F,
+	0xA66,
+	0xA76,
+	0xA81,
+	0xA84,
+	0xA85,
+	0xA8E,
+	0xA8F,
+	0xA92,
+	0xA93,
+	0xAA9,
+	0xAAA,
+	0xAB1,
+	0xAB2,
+	0xAB4,
+	0xAB5,
+	0xABA,
+	0xABC,
+	0xAC6,
+	0xAC7,
+	0xACA,
+	0xACB,
+	0xACE,
+	0xAD0,
+	0xAD1,
+	0xAE0,
+	0xAE4,
+	0xAE6,
+	0xAF0,
+	0xAF9,
+	0xAFA,
+	0xB01,
+	0xB04,
+	0xB05,
+	0xB0D,
+	0xB0F,
+	0xB11,
+	0xB13,
+	0xB29,
+	0xB2A,
+	0xB31,
+	0xB32,
+	0xB34,
+	0xB35,
+	0xB3A,
+	0xB3C,
+	0xB45,
+	0xB47,
+	0xB49,
+	0xB4B,
+	0xB4E,
+	0xB56,
+	0xB58,
+	0xB5C,
+	0xB5E,
+	0xB5F,
+	0xB64,
+	0xB66,
+	0xB70,
+	0xB71,
+	0xB72,
+	0xB82,
+	0xB84,
+	0xB85,
+	0xB8B,
+	0xB8E,
+	0xB91,
+	0xB92,
+	0xB96,
+	0xB99,
+	0xB9B,
+	0xB9C,
+	0xB9D,
+	0xB9E,
+	0xBA0,
+	0xBA3,
+	0xBA5,
+	0xBA8,
+	0xBAB,
+	0xBAE,
+	0xBBA,
+	0xBBE,
+	0xBC3,
+	0xBC6,
+	0xBC9,
+	0xBCA,
+	0xBCE,
+	0xBD0,
+	0xBD1,
+	0xBD7,
+	0xBD8,
+	0xBE6,
+	0xBF0,
+	0xC00,
+	0xC04,
+	0xC05,
+	0xC0D,
+	0xC0E,
+	0xC11,
+	0xC12,
+	0xC29,
+	0xC2A,
+	0xC3A,
+	0xC3D,
+	0xC45,
+	0xC46,
+	0xC49,
+	0xC4A,
+	0xC4E,
+	0xC55,
+	0xC57,
+	0xC58,
+	0xC5B,
+	0xC60,
+	0xC64,
+	0xC66,
+	0xC70,
+	0xC81,
+	0xC84,
+	0xC85,
+	0xC8D,
+	0xC8E,
+	0xC91,
+	0xC92,
+	0xCA9,
+	0xCAA,
+	0xCB4,
+	0xCB5,
+	0xCBA,
+	0xCBC,
+	0xCC5,
+	0xCC6,
+	0xCC9,
+	0xCCA,
+	0xCCE,
+	0xCD5,
+	0xCD7,
+	0xCDE,
+	0xCDF,
+	0xCE0,
+	0xCE4,
+	0xCE6,
+	0xCF0,
+	0xCF1,
+	0xCF3,
+	0xD01,
+	0xD04,
+	0xD05,
+	0xD0D,
+	0xD0E,
+	0xD11,
+	0xD12,
+	0xD3B,
+	0xD3D,
+	0xD45,
+	0xD46,
+	0xD49,
+	0xD4A,
+	0xD4F,
+	0xD57,
+	0xD58,
+	0xD5F,
+	0xD64,
+	0xD66,
+	0xD70,
+	0xD7A,
+	0xD80,
+	0xD82,
+	0xD84,
+	0xD85,
+	0xD97,
+	0xD9A,
+	0xDB2,
+	0xDB3,
+	0xDBC,
+	0xDBD,
+	0xDBE,
+	0xDC0,
+	0xDC7,
+	0xDCA,
+	0xDCB,
+	0xDCF,
+	0xDD5,
+	0xDD6,
+	0xDD7,
+	0xDD8,
+	0xDE0,
+	0xDE6,
+	0xDF0,
+	0xDF2,
+	0xDF4,
+	0xE01,
+	0xE3B,
+	0xE40,
+	0xE4F,
+	0xE50,
+	0xE5A,
+	0xE81,
+	0xE83,
+	0xE84,
+	0xE85,
+	0xE87,
+	0xE89,
+	0xE8A,
+	0xE8B,
+	0xE8D,
+	0xE8E,
+	0xE94,
+	0xE98,
+	0xE99,
+	0xEA0,
+	0xEA1,
+	0xEA4,
+	0xEA5,
+	0xEA6,
+	0xEA7,
+	0xEA8,
+	0xEAA,
+	0xEAC,
+	0xEAD,
+	0xEBA,
+	0xEBB,
+	0xEBE,
+	0xEC0,
+	0xEC5,
+	0xEC6,
+	0xEC7,
+	0xEC8,
+	0xECE,
+	0xED0,
+	0xEDA,
+	0xEDC,
+	0xEE0,
+	0xF00,
+	0xF01,
+	0xF18,
+	0xF1A,
+	0xF20,
+	0xF2A,
+	0xF35,
+	0xF36,
+	0xF37,
+	0xF38,
+	0xF39,
+	0xF3A,
+	0xF3E,
+	0xF48,
+	0xF49,
+	0xF6D,
+	0xF71,
+	0xF85,
+	0xF86,
+	0xF98,
+	0xF99,
+	0xFBD,
+	0xFC6,
+	0xFC7,
+	0x1000,
+	0x104A,
+	0x1050,
+	0x109E,
+	0x10A0,
+	0x10C6,
+	0x10C7,
+	0x10C8,
+	0x10CD,
+	0x10CE,
+	0x10D0,
+	0x10FB,
+	0x10FC,
+	0x1249,
+	0x124A,
+	0x124E,
+	0x1250,
+	0x1257,
+	0x1258,
+	0x1259,
+	0x125A,
+	0x125E,
+	0x1260,
+	0x1289,
+	0x128A,
+	0x128E,
+	0x1290,
+	0x12B1,
+	0x12B2,
+	0x12B6,
+	0x12B8,
+	0x12BF,
+	0x12C0,
+	0x12C1,
+	0x12C2,
+	0x12C6,
+	0x12C8,
+	0x12D7,
+	0x12D8,
+	0x1311,
+	0x1312,
+	0x1316,
+	0x1318,
+	0x135B,
+	0x135D,
+	0x1360,
+	0x1380,
+	0x1390,
+	0x13A0,
+	0x13F6,
+	0x13F8,
+	0x13FE,
+	0x1401,
+	0x166D,
+	0x166F,
+	0x1680,
+	0x1681,
+	0x169B,
+	0x16A0,
+	0x16EB,
+	0x16EE,
+	0x16F9,
+	0x1700,
+	0x170D,
+	0x170E,
+	0x1715,
+	0x1720,
+	0x1735,
+	0x1740,
+	0x1754,
+	0x1760,
+	0x176D,
+	0x176E,
+	0x1771,
+	0x1772,
+	0x1774,
+	0x1780,
+	0x17D4,
+	0x17D7,
+	0x17D8,
+	0x17DC,
+	0x17DE,
+	0x17E0,
+	0x17EA,
+	0x180B,
+	0x180E,
+	0x1810,
+	0x181A,
+	0x1820,
+	0x1878,
+	0x1880,
+	0x18AB,
+	0x18B0,
+	0x18F6,
+	0x1900,
+	0x191F,
+	0x1920,
+	0x192C,
+	0x1930,
+	0x193C,
+	0x1946,
+	0x196E,
+	0x1970,
+	0x1975,
+	0x1980,
+	0x19AC,
+	0x19B0,
+	0x19CA,
+	0x19D0,
+	0x19DA,
+	0x1A00,
+	0x1A1C,
+	0x1A20,
+	0x1A5F,
+	0x1A60,
+	0x1A7D,
+	0x1A7F,
+	0x1A8A,
+	0x1A90,
+	0x1A9A,
+	0x1AA7,
+	0x1AA8,
+	0x1AB0,
+	0x1ABE,
+	0x1B00,
+	0x1B4C,
+	0x1B50,
+	0x1B5A,
+	0x1B6B,
+	0x1B74,
+	0x1B80,
+	0x1BF4,
+	0x1C00,
+	0x1C38,
+	0x1C40,
+	0x1C4A,
+	0x1C4D,
+	0x1C7E,
+	0x1CD0,
+	0x1CD3,
+	0x1CD4,
+	0x1CF7,
+	0x1CF8,
+	0x1CFA,
+	0x1D00,
+	0x1DF6,
+	0x1DFC,
+	0x1F16,
+	0x1F18,
+	0x1F1E,
+	0x1F20,
+	0x1F46,
+	0x1F48,
+	0x1F4E,
+	0x1F50,
+	0x1F58,
+	0x1F59,
+	0x1F5A,
+	0x1F5B,
+	0x1F5C,
+	0x1F5D,
+	0x1F5E,
+	0x1F5F,
+	0x1F7E,
+	0x1F80,
+	0x1FB5,
+	0x1FB6,
+	0x1FBD,
+	0x1FBE,
+	0x1FBF,
+	0x1FC2,
+	0x1FC5,
+	0x1FC6,
+	0x1FCD,
+	0x1FD0,
+	0x1FD4,
+	0x1FD6,
+	0x1FDC,
+	0x1FE0,
+	0x1FED,
+	0x1FF2,
+	0x1FF5,
+	0x1FF6,
+	0x1FFD,
+	0x203F,
+	0x2041,
+	0x2054,
+	0x2055,
+	0x2071,
+	0x2072,
+	0x207F,
+	0x2080,
+	0x2090,
+	0x209D,
+	0x20D0,
+	0x20DD,
+	0x20E1,
+	0x20E2,
+	0x20E5,
+	0x20F1,
+	0x2102,
+	0x2103,
+	0x2107,
+	0x2108,
+	0x210A,
+	0x2114,
+	0x2115,
+	0x2116,
+	0x2119,
+	0x211E,
+	0x2124,
+	0x2125,
+	0x2126,
+	0x2127,
+	0x2128,
+	0x2129,
+	0x212A,
+	0x212E,
+	0x212F,
+	0x213A,
+	0x213C,
+	0x2140,
+	0x2145,
+	0x214A,
+	0x214E,
+	0x214F,
+	0x2160,
+	0x2189,
+	0x2C00,
+	0x2C2F,
+	0x2C30,
+	0x2C5F,
+	0x2C60,
+	0x2CE5,
+	0x2CEB,
+	0x2CF4,
+	0x2D00,
+	0x2D26,
+	0x2D27,
+	0x2D28,
+	0x2D2D,
+	0x2D2E,
+	0x2D30,
+	0x2D68,
+	0x2D6F,
+	0x2D70,
+	0x2D7F,
+	0x2D97,
+	0x2DA0,
+	0x2DA7,
+	0x2DA8,
+	0x2DAF,
+	0x2DB0,
+	0x2DB7,
+	0x2DB8,
+	0x2DBF,
+	0x2DC0,
+	0x2DC7,
+	0x2DC8,
+	0x2DCF,
+	0x2DD0,
+	0x2DD7,
+	0x2DD8,
+	0x2DDF,
+	0x2DE0,
+	0x2E00,
+	0x3005,
+	0x3008,
+	0x3021,
+	0x3030,
+	0x3031,
+	0x3036,
+	0x3038,
+	0x303D,
+	0x3041,
+	0x3097,
+	0x3099,
+	0x309B,
+	0x309D,
+	0x30A0,
+	0x30A1,
+	0x30FB,
+	0x30FC,
+	0x3100,
+	0x3105,
+	0x312E,
+	0x3131,
+	0x318F,
+	0x31A0,
+	0x31BB,
+	0x31F0,
+	0x3200,
+	0x3400,
+	0x4DB6,
+	0x4E00,
+	0x9FD6,
+	0xA000,
+	0xA48D,
+	0xA4D0,
+	0xA4FE,
+	0xA500,
+	0xA60D,
+	0xA610,
+	0xA62C,
+	0xA640,
+	0xA670,
+	0xA674,
+	0xA67E,
+	0xA67F,
+	0xA6F2,
+	0xA717,
+	0xA720,
+	0xA722,
+	0xA789,
+	0xA78B,
+	0xA7AE,
+	0xA7B0,
+	0xA7B8,
+	0xA7F7,
+	0xA828,
+	0xA840,
+	0xA874,
+	0xA880,
+	0xA8C5,
+	0xA8D0,
+	0xA8DA,
+	0xA8E0,
+	0xA8F8,
+	0xA8FB,
+	0xA8FC,
+	0xA8FD,
+	0xA8FE,
+	0xA900,
+	0xA92E,
+	0xA930,
+	0xA954,
+	0xA960,
+	0xA97D,
+	0xA980,
+	0xA9C1,
+	0xA9CF,
+	0xA9DA,
+	0xA9E0,
+	0xA9FF,
+	0xAA00,
+	0xAA37,
+	0xAA40,
+	0xAA4E,
+	0xAA50,
+	0xAA5A,
+	0xAA60,
+	0xAA77,
+	0xAA7A,
+	0xAAC3,
+	0xAADB,
+	0xAADE,
+	0xAAE0,
+	0xAAF0,
+	0xAAF2,
+	0xAAF7,
+	0xAB01,
+	0xAB07,
+	0xAB09,
+	0xAB0F,
+	0xAB11,
+	0xAB17,
+	0xAB20,
+	0xAB27,
+	0xAB28,
+	0xAB2F,
+	0xAB30,
+	0xAB5B,
+	0xAB5C,
+	0xAB66,
+	0xAB70,
+	0xABEB,
+	0xABEC,
+	0xABEE,
+	0xABF0,
+	0xABFA,
+	0xAC00,
+	0xD7A4,
+	0xD7B0,
+	0xD7C7,
+	0xD7CB,
+	0xD7FC,
+	0xF900,
+	0xFA6E,
+	0xFA70,
+	0xFADA,
+	0xFB00,
+	0xFB07,
+	0xFB13,
+	0xFB18,
+	0xFB1D,
+	0xFB29,
+	0xFB2A,
+	0xFB37,
+	0xFB38,
+	0xFB3D,
+	0xFB3E,
+	0xFB3F,
+	0xFB40,
+	0xFB42,
+	0xFB43,
+	0xFB45,
+	0xFB46,
+	0xFBB2,
+	0xFBD3,
+	0xFC5E,
+	0xFC64,
+	0xFD3E,
+	0xFD50,
+	0xFD90,
+	0xFD92,
+	0xFDC8,
+	0xFDF0,
+	0xFDFA,
+	0xFE00,
+	0xFE10,
+	0xFE20,
+	0xFE30,
+	0xFE33,
+	0xFE35,
+	0xFE4D,
+	0xFE50,
+	0xFE71,
+	0xFE72,
+	0xFE73,
+	0xFE74,
+	0xFE77,
+	0xFE78,
+	0xFE79,
+	0xFE7A,
+	0xFE7B,
+	0xFE7C,
+	0xFE7D,
+	0xFE7E,
+	0xFE7F,
+	0xFEFD,
+	0xFF10,
+	0xFF1A,
+	0xFF21,
+	0xFF3B,
+	0xFF3F,
+	0xFF40,
+	0xFF41,
+	0xFF5B,
+	0xFF66,
+	0xFFBF,
+	0xFFC2,
+	0xFFC8,
+	0xFFCA,
+	0xFFD0,
+	0xFFD2,
+	0xFFD8,
+	0xFFDA,
+	0xFFDD,
+	0x10000,
+	0x1000C,
+	0x1000D,
+	0x10027,
+	0x10028,
+	0x1003B,
+	0x1003C,
+	0x1003E,
+	0x1003F,
+	0x1004E,
+	0x10050,
+	0x1005E,
+	0x10080,
+	0x100FB,
+	0x10140,
+	0x10175,
+	0x101FD,
+	0x101FE,
+	0x10280,
+	0x1029D,
+	0x102A0,
+	0x102D1,
+	0x102E0,
+	0x102E1,
+	0x10300,
+	0x10320,
+	0x10330,
+	0x1034B,
+	0x10350,
+	0x1037B,
+	0x10380,
+	0x1039E,
+	0x103A0,
+	0x103C4,
+	0x103C8,
+	0x103D0,
+	0x103D1,
+	0x103D6,
+	0x10400,
+	0x1049E,
+	0x104A0,
+	0x104AA,
+	0x10500,
+	0x10528,
+	0x10530,
+	0x10564,
+	0x10600,
+	0x10737,
+	0x10740,
+	0x10756,
+	0x10760,
+	0x10768,
+	0x10800,
+	0x10806,
+	0x10808,
+	0x10809,
+	0x1080A,
+	0x10836,
+	0x10837,
+	0x10839,
+	0x1083C,
+	0x1083D,
+	0x1083F,
+	0x10856,
+	0x10860,
+	0x10877,
+	0x10880,
+	0x1089F,
+	0x108E0,
+	0x108F3,
+	0x108F4,
+	0x108F6,
+	0x10900,
+	0x10916,
+	0x10920,
+	0x1093A,
+	0x10980,
+	0x109B8,
+	0x109BE,
+	0x109C0,
+	0x10A00,
+	0x10A04,
+	0x10A05,
+	0x10A07,
+	0x10A0C,
+	0x10A14,
+	0x10A15,
+	0x10A18,
+	0x10A19,
+	0x10A34,
+	0x10A38,
+	0x10A3B,
+	0x10A3F,
+	0x10A40,
+	0x10A60,
+	0x10A7D,
+	0x10A80,
+	0x10A9D,
+	0x10AC0,
+	0x10AC8,
+	0x10AC9,
+	0x10AE7,
+	0x10B00,
+	0x10B36,
+	0x10B40,
+	0x10B56,
+	0x10B60,
+	0x10B73,
+	0x10B80,
+	0x10B92,
+	0x10C00,
+	0x10C49,
+	0x10C80,
+	0x10CB3,
+	0x10CC0,
+	0x10CF3,
+	0x11000,
+	0x11047,
+	0x11066,
+	0x11070,
+	0x1107F,
+	0x110BB,
+	0x110D0,
+	0x110E9,
+	0x110F0,
+	0x110FA,
+	0x11100,
+	0x11135,
+	0x11136,
+	0x11140,
+	0x11150,
+	0x11174,
+	0x11176,
+	0x11177,
+	0x11180,
+	0x111C5,
+	0x111CA,
+	0x111CD,
+	0x111D0,
+	0x111DB,
+	0x111DC,
+	0x111DD,
+	0x11200,
+	0x11212,
+	0x11213,
+	0x11238,
+	0x11280,
+	0x11287,
+	0x11288,
+	0x11289,
+	0x1128A,
+	0x1128E,
+	0x1128F,
+	0x1129E,
+	0x1129F,
+	0x112A9,
+	0x112B0,
+	0x112EB,
+	0x112F0,
+	0x112FA,
+	0x11300,
+	0x11304,
+	0x11305,
+	0x1130D,
+	0x1130F,
+	0x11311,
+	0x11313,
+	0x11329,
+	0x1132A,
+	0x11331,
+	0x11332,
+	0x11334,
+	0x11335,
+	0x1133A,
+	0x1133C,
+	0x11345,
+	0x11347,
+	0x11349,
+	0x1134B,
+	0x1134E,
+	0x11350,
+	0x11351,
+	0x11357,
+	0x11358,
+	0x1135D,
+	0x11364,
+	0x11366,
+	0x1136D,
+	0x11370,
+	0x11375,
+	0x11480,
+	0x114C6,
+	0x114C7,
+	0x114C8,
+	0x114D0,
+	0x114DA,
+	0x11580,
+	0x115B6,
+	0x115B8,
+	0x115C1,
+	0x115D8,
+	0x115DE,
+	0x11600,
+	0x11641,
+	0x11644,
+	0x11645,
+	0x11650,
+	0x1165A,
+	0x11680,
+	0x116B8,
+	0x116C0,
+	0x116CA,
+	0x11700,
+	0x1171A,
+	0x1171D,
+	0x1172C,
+	0x11730,
+	0x1173A,
+	0x118A0,
+	0x118EA,
+	0x118FF,
+	0x11900,
+	0x11AC0,
+	0x11AF9,
+	0x12000,
+	0x1239A,
+	0x12400,
+	0x1246F,
+	0x12480,
+	0x12544,
+	0x13000,
+	0x1342F,
+	0x14400,
+	0x14647,
+	0x16800,
+	0x16A39,
+	0x16A40,
+	0x16A5F,
+	0x16A60,
+	0x16A6A,
+	0x16AD0,
+	0x16AEE,
+	0x16AF0,
+	0x16AF5,
+	0x16B00,
+	0x16B37,
+	0x16B40,
+	0x16B44,
+	0x16B50,
+	0x16B5A,
+	0x16B63,
+	0x16B78,
+	0x16B7D,
+	0x16B90,
+	0x16F00,
+	0x16F45,
+	0x16F50,
+	0x16F7F,
+	0x16F8F,
+	0x16FA0,
+	0x1B000,
+	0x1B002,
+	0x1BC00,
+	0x1BC6B,
+	0x1BC70,
+	0x1BC7D,
+	0x1BC80,
+	0x1BC89,
+	0x1BC90,
+	0x1BC9A,
+	0x1BC9D,
+	0x1BC9F,
+	0x1D165,
+	0x1D16A,
+	0x1D16D,
+	0x1D173,
+	0x1D17B,
+	0x1D183,
+	0x1D185,
+	0x1D18C,
+	0x1D1AA,
+	0x1D1AE,
+	0x1D242,
+	0x1D245,
+	0x1D400,
+	0x1D455,
+	0x1D456,
+	0x1D49D,
+	0x1D49E,
+	0x1D4A0,
+	0x1D4A2,
+	0x1D4A3,
+	0x1D4A5,
+	0x1D4A7,
+	0x1D4A9,
+	0x1D4AD,
+	0x1D4AE,
+	0x1D4BA,
+	0x1D4BB,
+	0x1D4BC,
+	0x1D4BD,
+	0x1D4C4,
+	0x1D4C5,
+	0x1D506,
+	0x1D507,
+	0x1D50B,
+	0x1D50D,
+	0x1D515,
+	0x1D516,
+	0x1D51D,
+	0x1D51E,
+	0x1D53A,
+	0x1D53B,
+	0x1D53F,
+	0x1D540,
+	0x1D545,
+	0x1D546,
+	0x1D547,
+	0x1D54A,
+	0x1D551,
+	0x1D552,
+	0x1D6A6,
+	0x1D6A8,
+	0x1D6C1,
+	0x1D6C2,
+	0x1D6DB,
+	0x1D6DC,
+	0x1D6FB,
+	0x1D6FC,
+	0x1D715,
+	0x1D716,
+	0x1D735,
+	0x1D736,
+	0x1D74F,
+	0x1D750,
+	0x1D76F,
+	0x1D770,
+	0x1D789,
+	0x1D78A,
+	0x1D7A9,
+	0x1D7AA,
+	0x1D7C3,
+	0x1D7C4,
+	0x1D7CC,
+	0x1D7CE,
+	0x1D800,
+	0x1DA00,
+	0x1DA37,
+	0x1DA3B,
+	0x1DA6D,
+	0x1DA75,
+	0x1DA76,
+	0x1DA84,
+	0x1DA85,
+	0x1DA9B,
+	0x1DAA0,
+	0x1DAA1,
+	0x1DAB0,
+	0x1E800,
+	0x1E8C5,
+	0x1E8D0,
+	0x1E8D7,
+	0x1EE00,
+	0x1EE04,
+	0x1EE05,
+	0x1EE20,
+	0x1EE21,
+	0x1EE23,
+	0x1EE24,
+	0x1EE25,
+	0x1EE27,
+	0x1EE28,
+	0x1EE29,
+	0x1EE33,
+	0x1EE34,
+	0x1EE38,
+	0x1EE39,
+	0x1EE3A,
+	0x1EE3B,
+	0x1EE3C,
+	0x1EE42,
+	0x1EE43,
+	0x1EE47,
+	0x1EE48,
+	0x1EE49,
+	0x1EE4A,
+	0x1EE4B,
+	0x1EE4C,
+	0x1EE4D,
+	0x1EE50,
+	0x1EE51,
+	0x1EE53,
+	0x1EE54,
+	0x1EE55,
+	0x1EE57,
+	0x1EE58,
+	0x1EE59,
+	0x1EE5A,
+	0x1EE5B,
+	0x1EE5C,
+	0x1EE5D,
+	0x1EE5E,
+	0x1EE5F,
+	0x1EE60,
+	0x1EE61,
+	0x1EE63,
+	0x1EE64,
+	0x1EE65,
+	0x1EE67,
+	0x1EE6B,
+	0x1EE6C,
+	0x1EE73,
+	0x1EE74,
+	0x1EE78,
+	0x1EE79,
+	0x1EE7D,
+	0x1EE7E,
+	0x1EE7F,
+	0x1EE80,
+	0x1EE8A,
+	0x1EE8B,
+	0x1EE9C,
+	0x1EEA1,
+	0x1EEA4,
+	0x1EEA5,
+	0x1EEAA,
+	0x1EEAB,
+	0x1EEBC,
+	0x20000,
+	0x2A6D7,
+	0x2A700,
+	0x2B735,
+	0x2B740,
+	0x2B81E,
+	0x2B820,
+	0x2CEA2,
+	0x2F800,
+	0x2FA1E,
+	0xE0100,
+	0xE01F0
+};
+
+static const UV _Perl_IDStart_invlist[] = { /* for EBCDIC 037 */
+	1151,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	1,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x42,
+	0x4A,
+	0x51,
+	0x5A,
+	0x62,
+	0x6A,
+	0x6D,
+	0x6E,
+	0x70,
+	0x79,
+	0x80,
+	0x8A,
+	0x8C,
+	0x8F,
+	0x91,
+	0x9D,
+	0x9E,
+	0x9F,
+	0xA0,
+	0xA1,
+	0xA2,
+	0xAA,
+	0xAC,
+	0xAF,
+	0xC1,
+	0xCA,
+	0xCB,
+	0xD0,
+	0xD1,
+	0xDA,
+	0xDB,
+	0xE0,
+	0xE2,
+	0xEA,
+	0xEB,
+	0xF0,
+	0xFB,
+	0xFF,
+	0x100,
+	0x2C2,
+	0x2C6,
+	0x2D2,
+	0x2E0,
+	0x2E5,
+	0x2EC,
+	0x2ED,
+	0x2EE,
+	0x2EF,
+	0x370,
+	0x375,
+	0x376,
+	0x378,
+	0x37B,
+	0x37E,
+	0x37F,
+	0x380,
+	0x386,
+	0x387,
+	0x388,
+	0x38B,
+	0x38C,
+	0x38D,
+	0x38E,
+	0x3A2,
+	0x3A3,
+	0x3F6,
+	0x3F7,
+	0x482,
+	0x48A,
+	0x530,
+	0x531,
+	0x557,
+	0x559,
+	0x55A,
+	0x561,
+	0x588,
+	0x5D0,
+	0x5EB,
+	0x5F0,
+	0x5F3,
+	0x620,
+	0x64B,
+	0x66E,
+	0x670,
+	0x671,
+	0x6D4,
+	0x6D5,
+	0x6D6,
+	0x6E5,
+	0x6E7,
+	0x6EE,
+	0x6F0,
+	0x6FA,
+	0x6FD,
+	0x6FF,
+	0x700,
+	0x710,
+	0x711,
+	0x712,
+	0x730,
+	0x74D,
+	0x7A6,
+	0x7B1,
+	0x7B2,
+	0x7CA,
+	0x7EB,
+	0x7F4,
+	0x7F6,
+	0x7FA,
+	0x7FB,
+	0x800,
+	0x816,
+	0x81A,
+	0x81B,
+	0x824,
+	0x825,
+	0x828,
+	0x829,
+	0x840,
+	0x859,
+	0x8A0,
+	0x8B5,
+	0x904,
+	0x93A,
+	0x93D,
+	0x93E,
+	0x950,
+	0x951,
+	0x958,
+	0x962,
+	0x971,
+	0x981,
+	0x985,
+	0x98D,
+	0x98F,
+	0x991,
+	0x993,
+	0x9A9,
+	0x9AA,
+	0x9B1,
+	0x9B2,
+	0x9B3,
+	0x9B6,
+	0x9BA,
+	0x9BD,
+	0x9BE,
+	0x9CE,
+	0x9CF,
+	0x9DC,
+	0x9DE,
+	0x9DF,
+	0x9E2,
+	0x9F0,
+	0x9F2,
+	0xA05,
+	0xA0B,
+	0xA0F,
+	0xA11,
+	0xA13,
+	0xA29,
+	0xA2A,
+	0xA31,
+	0xA32,
+	0xA34,
+	0xA35,
+	0xA37,
+	0xA38,
+	0xA3A,
+	0xA59,
+	0xA5D,
+	0xA5E,
+	0xA5F,
+	0xA72,
+	0xA75,
+	0xA85,
+	0xA8E,
+	0xA8F,
+	0xA92,
+	0xA93,
+	0xAA9,
+	0xAAA,
+	0xAB1,
+	0xAB2,
+	0xAB4,
+	0xAB5,
+	0xABA,
+	0xABD,
+	0xABE,
+	0xAD0,
+	0xAD1,
+	0xAE0,
+	0xAE2,
+	0xAF9,
+	0xAFA,
+	0xB05,
+	0xB0D,
+	0xB0F,
+	0xB11,
+	0xB13,
+	0xB29,
+	0xB2A,
+	0xB31,
+	0xB32,
+	0xB34,
+	0xB35,
+	0xB3A,
+	0xB3D,
+	0xB3E,
+	0xB5C,
+	0xB5E,
+	0xB5F,
+	0xB62,
+	0xB71,
+	0xB72,
+	0xB83,
+	0xB84,
+	0xB85,
+	0xB8B,
+	0xB8E,
+	0xB91,
+	0xB92,
+	0xB96,
+	0xB99,
+	0xB9B,
+	0xB9C,
+	0xB9D,
+	0xB9E,
+	0xBA0,
+	0xBA3,
+	0xBA5,
+	0xBA8,
+	0xBAB,
+	0xBAE,
+	0xBBA,
+	0xBD0,
+	0xBD1,
+	0xC05,
+	0xC0D,
+	0xC0E,
+	0xC11,
+	0xC12,
+	0xC29,
+	0xC2A,
+	0xC3A,
+	0xC3D,
+	0xC3E,
+	0xC58,
+	0xC5B,
+	0xC60,
+	0xC62,
+	0xC85,
+	0xC8D,
+	0xC8E,
+	0xC91,
+	0xC92,
+	0xCA9,
+	0xCAA,
+	0xCB4,
+	0xCB5,
+	0xCBA,
+	0xCBD,
+	0xCBE,
+	0xCDE,
+	0xCDF,
+	0xCE0,
+	0xCE2,
+	0xCF1,
+	0xCF3,
+	0xD05,
+	0xD0D,
+	0xD0E,
+	0xD11,
+	0xD12,
+	0xD3B,
+	0xD3D,
+	0xD3E,
+	0xD4E,
+	0xD4F,
+	0xD5F,
+	0xD62,
+	0xD7A,
+	0xD80,
+	0xD85,
+	0xD97,
+	0xD9A,
+	0xDB2,
+	0xDB3,
+	0xDBC,
+	0xDBD,
+	0xDBE,
+	0xDC0,
+	0xDC7,
+	0xE01,
+	0xE31,
+	0xE32,
+	0xE33,
+	0xE40,
+	0xE47,
+	0xE81,
+	0xE83,
+	0xE84,
+	0xE85,
+	0xE87,
+	0xE89,
+	0xE8A,
+	0xE8B,
+	0xE8D,
+	0xE8E,
+	0xE94,
+	0xE98,
+	0xE99,
+	0xEA0,
+	0xEA1,
+	0xEA4,
+	0xEA5,
+	0xEA6,
+	0xEA7,
+	0xEA8,
+	0xEAA,
+	0xEAC,
+	0xEAD,
+	0xEB1,
+	0xEB2,
+	0xEB3,
+	0xEBD,
+	0xEBE,
+	0xEC0,
+	0xEC5,
+	0xEC6,
+	0xEC7,
+	0xEDC,
+	0xEE0,
+	0xF00,
+	0xF01,
+	0xF40,
+	0xF48,
+	0xF49,
+	0xF6D,
+	0xF88,
+	0xF8D,
+	0x1000,
+	0x102B,
+	0x103F,
+	0x1040,
+	0x1050,
+	0x1056,
+	0x105A,
+	0x105E,
+	0x1061,
+	0x1062,
+	0x1065,
+	0x1067,
+	0x106E,
+	0x1071,
+	0x1075,
+	0x1082,
+	0x108E,
+	0x108F,
+	0x10A0,
+	0x10C6,
+	0x10C7,
+	0x10C8,
+	0x10CD,
+	0x10CE,
+	0x10D0,
+	0x10FB,
+	0x10FC,
+	0x1249,
+	0x124A,
+	0x124E,
+	0x1250,
+	0x1257,
+	0x1258,
+	0x1259,
+	0x125A,
+	0x125E,
+	0x1260,
+	0x1289,
+	0x128A,
+	0x128E,
+	0x1290,
+	0x12B1,
+	0x12B2,
+	0x12B6,
+	0x12B8,
+	0x12BF,
+	0x12C0,
+	0x12C1,
+	0x12C2,
+	0x12C6,
+	0x12C8,
+	0x12D7,
+	0x12D8,
+	0x1311,
+	0x1312,
+	0x1316,
+	0x1318,
+	0x135B,
+	0x1380,
+	0x1390,
+	0x13A0,
+	0x13F6,
+	0x13F8,
+	0x13FE,
+	0x1401,
+	0x166D,
+	0x166F,
+	0x1680,
+	0x1681,
+	0x169B,
+	0x16A0,
+	0x16EB,
+	0x16EE,
+	0x16F9,
+	0x1700,
+	0x170D,
+	0x170E,
+	0x1712,
+	0x1720,
+	0x1732,
+	0x1740,
+	0x1752,
+	0x1760,
+	0x176D,
+	0x176E,
+	0x1771,
+	0x1780,
+	0x17B4,
+	0x17D7,
+	0x17D8,
+	0x17DC,
+	0x17DD,
+	0x1820,
+	0x1878,
+	0x1880,
+	0x18A9,
+	0x18AA,
+	0x18AB,
+	0x18B0,
+	0x18F6,
+	0x1900,
+	0x191F,
+	0x1950,
+	0x196E,
+	0x1970,
+	0x1975,
+	0x1980,
+	0x19AC,
+	0x19B0,
+	0x19CA,
+	0x1A00,
+	0x1A17,
+	0x1A20,
+	0x1A55,
+	0x1AA7,
+	0x1AA8,
+	0x1B05,
+	0x1B34,
+	0x1B45,
+	0x1B4C,
+	0x1B83,
+	0x1BA1,
+	0x1BAE,
+	0x1BB0,
+	0x1BBA,
+	0x1BE6,
+	0x1C00,
+	0x1C24,
+	0x1C4D,
+	0x1C50,
+	0x1C5A,
+	0x1C7E,
+	0x1CE9,
+	0x1CED,
+	0x1CEE,
+	0x1CF2,
+	0x1CF5,
+	0x1CF7,
+	0x1D00,
+	0x1DC0,
+	0x1E00,
+	0x1F16,
+	0x1F18,
+	0x1F1E,
+	0x1F20,
+	0x1F46,
+	0x1F48,
+	0x1F4E,
+	0x1F50,
+	0x1F58,
+	0x1F59,
+	0x1F5A,
+	0x1F5B,
+	0x1F5C,
+	0x1F5D,
+	0x1F5E,
+	0x1F5F,
+	0x1F7E,
+	0x1F80,
+	0x1FB5,
+	0x1FB6,
+	0x1FBD,
+	0x1FBE,
+	0x1FBF,
+	0x1FC2,
+	0x1FC5,
+	0x1FC6,
+	0x1FCD,
+	0x1FD0,
+	0x1FD4,
+	0x1FD6,
+	0x1FDC,
+	0x1FE0,
+	0x1FED,
+	0x1FF2,
+	0x1FF5,
+	0x1FF6,
+	0x1FFD,
+	0x2071,
+	0x2072,
+	0x207F,
+	0x2080,
+	0x2090,
+	0x209D,
+	0x2102,
+	0x2103,
+	0x2107,
+	0x2108,
+	0x210A,
+	0x2114,
+	0x2115,
+	0x2116,
+	0x2119,
+	0x211E,
+	0x2124,
+	0x2125,
+	0x2126,
+	0x2127,
+	0x2128,
+	0x2129,
+	0x212A,
+	0x212E,
+	0x212F,
+	0x213A,
+	0x213C,
+	0x2140,
+	0x2145,
+	0x214A,
+	0x214E,
+	0x214F,
+	0x2160,
+	0x2189,
+	0x2C00,
+	0x2C2F,
+	0x2C30,
+	0x2C5F,
+	0x2C60,
+	0x2CE5,
+	0x2CEB,
+	0x2CEF,
+	0x2CF2,
+	0x2CF4,
+	0x2D00,
+	0x2D26,
+	0x2D27,
+	0x2D28,
+	0x2D2D,
+	0x2D2E,
+	0x2D30,
+	0x2D68,
+	0x2D6F,
+	0x2D70,
+	0x2D80,
+	0x2D97,
+	0x2DA0,
+	0x2DA7,
+	0x2DA8,
+	0x2DAF,
+	0x2DB0,
+	0x2DB7,
+	0x2DB8,
+	0x2DBF,
+	0x2DC0,
+	0x2DC7,
+	0x2DC8,
+	0x2DCF,
+	0x2DD0,
+	0x2DD7,
+	0x2DD8,
+	0x2DDF,
+	0x3005,
+	0x3008,
+	0x3021,
+	0x302A,
+	0x3031,
+	0x3036,
+	0x3038,
+	0x303D,
+	0x3041,
+	0x3097,
+	0x309D,
+	0x30A0,
+	0x30A1,
+	0x30FB,
+	0x30FC,
+	0x3100,
+	0x3105,
+	0x312E,
+	0x3131,
+	0x318F,
+	0x31A0,
+	0x31BB,
+	0x31F0,
+	0x3200,
+	0x3400,
+	0x4DB6,
+	0x4E00,
+	0x9FD6,
+	0xA000,
+	0xA48D,
+	0xA4D0,
+	0xA4FE,
+	0xA500,
+	0xA60D,
+	0xA610,
+	0xA620,
+	0xA62A,
+	0xA62C,
+	0xA640,
+	0xA66F,
+	0xA67F,
+	0xA69E,
+	0xA6A0,
+	0xA6F0,
+	0xA717,
+	0xA720,
+	0xA722,
+	0xA789,
+	0xA78B,
+	0xA7AE,
+	0xA7B0,
+	0xA7B8,
+	0xA7F7,
+	0xA802,
+	0xA803,
+	0xA806,
+	0xA807,
+	0xA80B,
+	0xA80C,
+	0xA823,
+	0xA840,
+	0xA874,
+	0xA882,
+	0xA8B4,
+	0xA8F2,
+	0xA8F8,
+	0xA8FB,
+	0xA8FC,
+	0xA8FD,
+	0xA8FE,
+	0xA90A,
+	0xA926,
+	0xA930,
+	0xA947,
+	0xA960,
+	0xA97D,
+	0xA984,
+	0xA9B3,
+	0xA9CF,
+	0xA9D0,
+	0xA9E0,
+	0xA9E5,
+	0xA9E6,
+	0xA9F0,
+	0xA9FA,
+	0xA9FF,
+	0xAA00,
+	0xAA29,
+	0xAA40,
+	0xAA43,
+	0xAA44,
+	0xAA4C,
+	0xAA60,
+	0xAA77,
+	0xAA7A,
+	0xAA7B,
+	0xAA7E,
+	0xAAB0,
+	0xAAB1,
+	0xAAB2,
+	0xAAB5,
+	0xAAB7,
+	0xAAB9,
+	0xAABE,
+	0xAAC0,
+	0xAAC1,
+	0xAAC2,
+	0xAAC3,
+	0xAADB,
+	0xAADE,
+	0xAAE0,
+	0xAAEB,
+	0xAAF2,
+	0xAAF5,
+	0xAB01,
+	0xAB07,
+	0xAB09,
+	0xAB0F,
+	0xAB11,
+	0xAB17,
+	0xAB20,
+	0xAB27,
+	0xAB28,
+	0xAB2F,
+	0xAB30,
+	0xAB5B,
+	0xAB5C,
+	0xAB66,
+	0xAB70,
+	0xABE3,
+	0xAC00,
+	0xD7A4,
+	0xD7B0,
+	0xD7C7,
+	0xD7CB,
+	0xD7FC,
+	0xF900,
+	0xFA6E,
+	0xFA70,
+	0xFADA,
+	0xFB00,
+	0xFB07,
+	0xFB13,
+	0xFB18,
+	0xFB1D,
+	0xFB1E,
+	0xFB1F,
+	0xFB29,
+	0xFB2A,
+	0xFB37,
+	0xFB38,
+	0xFB3D,
+	0xFB3E,
+	0xFB3F,
+	0xFB40,
+	0xFB42,
+	0xFB43,
+	0xFB45,
+	0xFB46,
+	0xFBB2,
+	0xFBD3,
+	0xFC5E,
+	0xFC64,
+	0xFD3E,
+	0xFD50,
+	0xFD90,
+	0xFD92,
+	0xFDC8,
+	0xFDF0,
+	0xFDFA,
+	0xFE71,
+	0xFE72,
+	0xFE73,
+	0xFE74,
+	0xFE77,
+	0xFE78,
+	0xFE79,
+	0xFE7A,
+	0xFE7B,
+	0xFE7C,
+	0xFE7D,
+	0xFE7E,
+	0xFE7F,
+	0xFEFD,
+	0xFF21,
+	0xFF3B,
+	0xFF41,
+	0xFF5B,
+	0xFF66,
+	0xFF9E,
+	0xFFA0,
+	0xFFBF,
+	0xFFC2,
+	0xFFC8,
+	0xFFCA,
+	0xFFD0,
+	0xFFD2,
+	0xFFD8,
+	0xFFDA,
+	0xFFDD,
+	0x10000,
+	0x1000C,
+	0x1000D,
+	0x10027,
+	0x10028,
+	0x1003B,
+	0x1003C,
+	0x1003E,
+	0x1003F,
+	0x1004E,
+	0x10050,
+	0x1005E,
+	0x10080,
+	0x100FB,
+	0x10140,
+	0x10175,
+	0x10280,
+	0x1029D,
+	0x102A0,
+	0x102D1,
+	0x10300,
+	0x10320,
+	0x10330,
+	0x1034B,
+	0x10350,
+	0x10376,
+	0x10380,
+	0x1039E,
+	0x103A0,
+	0x103C4,
+	0x103C8,
+	0x103D0,
+	0x103D1,
+	0x103D6,
+	0x10400,
+	0x1049E,
+	0x10500,
+	0x10528,
+	0x10530,
+	0x10564,
+	0x10600,
+	0x10737,
+	0x10740,
+	0x10756,
+	0x10760,
+	0x10768,
+	0x10800,
+	0x10806,
+	0x10808,
+	0x10809,
+	0x1080A,
+	0x10836,
+	0x10837,
+	0x10839,
+	0x1083C,
+	0x1083D,
+	0x1083F,
+	0x10856,
+	0x10860,
+	0x10877,
+	0x10880,
+	0x1089F,
+	0x108E0,
+	0x108F3,
+	0x108F4,
+	0x108F6,
+	0x10900,
+	0x10916,
+	0x10920,
+	0x1093A,
+	0x10980,
+	0x109B8,
+	0x109BE,
+	0x109C0,
+	0x10A00,
+	0x10A01,
+	0x10A10,
+	0x10A14,
+	0x10A15,
+	0x10A18,
+	0x10A19,
+	0x10A34,
+	0x10A60,
+	0x10A7D,
+	0x10A80,
+	0x10A9D,
+	0x10AC0,
+	0x10AC8,
+	0x10AC9,
+	0x10AE5,
+	0x10B00,
+	0x10B36,
+	0x10B40,
+	0x10B56,
+	0x10B60,
+	0x10B73,
+	0x10B80,
+	0x10B92,
+	0x10C00,
+	0x10C49,
+	0x10C80,
+	0x10CB3,
+	0x10CC0,
+	0x10CF3,
+	0x11003,
+	0x11038,
+	0x11083,
+	0x110B0,
+	0x110D0,
+	0x110E9,
+	0x11103,
+	0x11127,
+	0x11150,
+	0x11173,
+	0x11176,
+	0x11177,
+	0x11183,
+	0x111B3,
+	0x111C1,
+	0x111C5,
+	0x111DA,
+	0x111DB,
+	0x111DC,
+	0x111DD,
+	0x11200,
+	0x11212,
+	0x11213,
+	0x1122C,
+	0x11280,
+	0x11287,
+	0x11288,
+	0x11289,
+	0x1128A,
+	0x1128E,
+	0x1128F,
+	0x1129E,
+	0x1129F,
+	0x112A9,
+	0x112B0,
+	0x112DF,
+	0x11305,
+	0x1130D,
+	0x1130F,
+	0x11311,
+	0x11313,
+	0x11329,
+	0x1132A,
+	0x11331,
+	0x11332,
+	0x11334,
+	0x11335,
+	0x1133A,
+	0x1133D,
+	0x1133E,
+	0x11350,
+	0x11351,
+	0x1135D,
+	0x11362,
+	0x11480,
+	0x114B0,
+	0x114C4,
+	0x114C6,
+	0x114C7,
+	0x114C8,
+	0x11580,
+	0x115AF,
+	0x115D8,
+	0x115DC,
+	0x11600,
+	0x11630,
+	0x11644,
+	0x11645,
+	0x11680,
+	0x116AB,
+	0x11700,
+	0x1171A,
+	0x118A0,
+	0x118E0,
+	0x118FF,
+	0x11900,
+	0x11AC0,
+	0x11AF9,
+	0x12000,
+	0x1239A,
+	0x12400,
+	0x1246F,
+	0x12480,
+	0x12544,
+	0x13000,
+	0x1342F,
+	0x14400,
+	0x14647,
+	0x16800,
+	0x16A39,
+	0x16A40,
+	0x16A5F,
+	0x16AD0,
+	0x16AEE,
+	0x16B00,
+	0x16B30,
+	0x16B40,
+	0x16B44,
+	0x16B63,
+	0x16B78,
+	0x16B7D,
+	0x16B90,
+	0x16F00,
+	0x16F45,
+	0x16F50,
+	0x16F51,
+	0x16F93,
+	0x16FA0,
+	0x1B000,
+	0x1B002,
+	0x1BC00,
+	0x1BC6B,
+	0x1BC70,
+	0x1BC7D,
+	0x1BC80,
+	0x1BC89,
+	0x1BC90,
+	0x1BC9A,
+	0x1D400,
+	0x1D455,
+	0x1D456,
+	0x1D49D,
+	0x1D49E,
+	0x1D4A0,
+	0x1D4A2,
+	0x1D4A3,
+	0x1D4A5,
+	0x1D4A7,
+	0x1D4A9,
+	0x1D4AD,
+	0x1D4AE,
+	0x1D4BA,
+	0x1D4BB,
+	0x1D4BC,
+	0x1D4BD,
+	0x1D4C4,
+	0x1D4C5,
+	0x1D506,
+	0x1D507,
+	0x1D50B,
+	0x1D50D,
+	0x1D515,
+	0x1D516,
+	0x1D51D,
+	0x1D51E,
+	0x1D53A,
+	0x1D53B,
+	0x1D53F,
+	0x1D540,
+	0x1D545,
+	0x1D546,
+	0x1D547,
+	0x1D54A,
+	0x1D551,
+	0x1D552,
+	0x1D6A6,
+	0x1D6A8,
+	0x1D6C1,
+	0x1D6C2,
+	0x1D6DB,
+	0x1D6DC,
+	0x1D6FB,
+	0x1D6FC,
+	0x1D715,
+	0x1D716,
+	0x1D735,
+	0x1D736,
+	0x1D74F,
+	0x1D750,
+	0x1D76F,
+	0x1D770,
+	0x1D789,
+	0x1D78A,
+	0x1D7A9,
+	0x1D7AA,
+	0x1D7C3,
+	0x1D7C4,
+	0x1D7CC,
+	0x1E800,
+	0x1E8C5,
+	0x1EE00,
+	0x1EE04,
+	0x1EE05,
+	0x1EE20,
+	0x1EE21,
+	0x1EE23,
+	0x1EE24,
+	0x1EE25,
+	0x1EE27,
+	0x1EE28,
+	0x1EE29,
+	0x1EE33,
+	0x1EE34,
+	0x1EE38,
+	0x1EE39,
+	0x1EE3A,
+	0x1EE3B,
+	0x1EE3C,
+	0x1EE42,
+	0x1EE43,
+	0x1EE47,
+	0x1EE48,
+	0x1EE49,
+	0x1EE4A,
+	0x1EE4B,
+	0x1EE4C,
+	0x1EE4D,
+	0x1EE50,
+	0x1EE51,
+	0x1EE53,
+	0x1EE54,
+	0x1EE55,
+	0x1EE57,
+	0x1EE58,
+	0x1EE59,
+	0x1EE5A,
+	0x1EE5B,
+	0x1EE5C,
+	0x1EE5D,
+	0x1EE5E,
+	0x1EE5F,
+	0x1EE60,
+	0x1EE61,
+	0x1EE63,
+	0x1EE64,
+	0x1EE65,
+	0x1EE67,
+	0x1EE6B,
+	0x1EE6C,
+	0x1EE73,
+	0x1EE74,
+	0x1EE78,
+	0x1EE79,
+	0x1EE7D,
+	0x1EE7E,
+	0x1EE7F,
+	0x1EE80,
+	0x1EE8A,
+	0x1EE8B,
+	0x1EE9C,
+	0x1EEA1,
+	0x1EEA4,
+	0x1EEA5,
+	0x1EEAA,
+	0x1EEAB,
+	0x1EEBC,
+	0x20000,
+	0x2A6D7,
+	0x2A700,
+	0x2B735,
+	0x2B740,
+	0x2B81E,
+	0x2B820,
+	0x2CEA2,
+	0x2F800,
+	0x2FA1E
+};
+
+#endif	/* defined(PERL_IN_UTF8_C) */
+
+#if defined(PERL_IN_PERL_C)
+
+static const UV _Perl_LB_invlist[] = { /* for EBCDIC 037 */
+	2168,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	0,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x5,
+	0x6,
+	0xB,
+	0xD,
+	0xE,
+	0x15,
+	0x16,
+	0x25,
+	0x26,
+	0x40,
+	0x41,
+	0x42,
+	0x4A,
+	0x4B,
+	0x4C,
+	0x4D,
+	0x4E,
+	0x4F,
+	0x50,
+	0x5A,
+	0x5B,
+	0x5C,
+	0x5D,
+	0x5E,
+	0x5F,
+	0x60,
+	0x61,
+	0x62,
+	0x6B,
+	0x6C,
+	0x6D,
+	0x6F,
+	0x70,
+	0x7A,
+	0x7B,
+	0x7D,
+	0x7E,
+	0x7F,
+	0x80,
+	0x8A,
+	0x8C,
+	0x8F,
+	0x90,
+	0x91,
+	0x9F,
+	0xA0,
+	0xAA,
+	0xAC,
+	0xB1,
+	0xB3,
+	0xBA,
+	0xBB,
+	0xBC,
+	0xBE,
+	0xBF,
+	0xC0,
+	0xC1,
+	0xCA,
+	0xCB,
+	0xD0,
+	0xD1,
+	0xE0,
+	0xE1,
+	0xF0,
+	0xFA,
+	0xFF,
+	0x100,
+	0x2C8,
+	0x2C9,
+	0x2CC,
+	0x2CD,
+	0x2DF,
+	0x2E0,
+	0x300,
+	0x34F,
+	0x350,
+	0x35C,
+	0x363,
+	0x370,
+	0x37E,
+	0x37F,
+	0x483,
+	0x48A,
+	0x589,
+	0x58A,
+	0x58B,
+	0x58F,
+	0x590,
+	0x591,
+	0x5BE,
+	0x5BF,
+	0x5C0,
+	0x5C1,
+	0x5C3,
+	0x5C4,
+	0x5C6,
+	0x5C7,
+	0x5C8,
+	0x5D0,
+	0x5EB,
+	0x5F0,
+	0x5F3,
+	0x609,
+	0x60C,
+	0x60E,
+	0x610,
+	0x61B,
+	0x61C,
+	0x61D,
+	0x61E,
+	0x620,
+	0x64B,
+	0x660,
+	0x66A,
+	0x66B,
+	0x66D,
+	0x670,
+	0x671,
+	0x6D4,
+	0x6D5,
+	0x6D6,
+	0x6DD,
+	0x6DF,
+	0x6E5,
+	0x6E7,
+	0x6E9,
+	0x6EA,
+	0x6EE,
+	0x6F0,
+	0x6FA,
+	0x711,
+	0x712,
+	0x730,
+	0x74B,
+	0x7A6,
+	0x7B1,
+	0x7C0,
+	0x7CA,
+	0x7EB,
+	0x7F4,
+	0x7F8,
+	0x7F9,
+	0x7FA,
+	0x816,
+	0x81A,
+	0x81B,
+	0x824,
+	0x825,
+	0x828,
+	0x829,
+	0x82E,
+	0x859,
+	0x85C,
+	0x8E3,
+	0x904,
+	0x93A,
+	0x93D,
+	0x93E,
+	0x950,
+	0x951,
+	0x958,
+	0x962,
+	0x964,
+	0x966,
+	0x970,
+	0x981,
+	0x984,
+	0x9BC,
+	0x9BD,
+	0x9BE,
+	0x9C5,
+	0x9C7,
+	0x9C9,
+	0x9CB,
+	0x9CE,
+	0x9D7,
+	0x9D8,
+	0x9E2,
+	0x9E4,
+	0x9E6,
+	0x9F0,
+	0x9F2,
+	0x9F4,
+	0x9F9,
+	0x9FA,
+	0x9FB,
+	0x9FC,
+	0xA01,
+	0xA04,
+	0xA3C,
+	0xA3D,
+	0xA3E,
+	0xA43,
+	0xA47,
+	0xA49,
+	0xA4B,
+	0xA4E,
+	0xA51,
+	0xA52,
+	0xA66,
+	0xA70,
+	0xA72,
+	0xA75,
+	0xA76,
+	0xA81,
+	0xA84,
+	0xABC,
+	0xABD,
+	0xABE,
+	0xAC6,
+	0xAC7,
+	0xACA,
+	0xACB,
+	0xACE,
+	0xAE2,
+	0xAE4,
+	0xAE6,
+	0xAF0,
+	0xAF1,
+	0xAF2,
+	0xB01,
+	0xB04,
+	0xB3C,
+	0xB3D,
+	0xB3E,
+	0xB45,
+	0xB47,
+	0xB49,
+	0xB4B,
+	0xB4E,
+	0xB56,
+	0xB58,
+	0xB62,
+	0xB64,
+	0xB66,
+	0xB70,
+	0xB82,
+	0xB83,
+	0xBBE,
+	0xBC3,
+	0xBC6,
+	0xBC9,
+	0xBCA,
+	0xBCE,
+	0xBD7,
+	0xBD8,
+	0xBE6,
+	0xBF0,
+	0xBF9,
+	0xBFA,
+	0xC00,
+	0xC04,
+	0xC3E,
+	0xC45,
+	0xC46,
+	0xC49,
+	0xC4A,
+	0xC4E,
+	0xC55,
+	0xC57,
+	0xC62,
+	0xC64,
+	0xC66,
+	0xC70,
+	0xC81,
+	0xC84,
+	0xCBC,
+	0xCBD,
+	0xCBE,
+	0xCC5,
+	0xCC6,
+	0xCC9,
+	0xCCA,
+	0xCCE,
+	0xCD5,
+	0xCD7,
+	0xCE2,
+	0xCE4,
+	0xCE6,
+	0xCF0,
+	0xD01,
+	0xD04,
+	0xD3E,
+	0xD45,
+	0xD46,
+	0xD49,
+	0xD4A,
+	0xD4E,
+	0xD57,
+	0xD58,
+	0xD62,
+	0xD64,
+	0xD66,
+	0xD70,
+	0xD79,
+	0xD7A,
+	0xD82,
+	0xD84,
+	0xDCA,
+	0xDCB,
+	0xDCF,
+	0xDD5,
+	0xDD6,
+	0xDD7,
+	0xDD8,
+	0xDE0,
+	0xDE6,
+	0xDF0,
+	0xDF2,
+	0xDF4,
+	0xE31,
+	0xE32,
+	0xE34,
+	0xE3B,
+	0xE3F,
+	0xE40,
+	0xE47,
+	0xE4F,
+	0xE50,
+	0xE5A,
+	0xE5C,
+	0xEB1,
+	0xEB2,
+	0xEB4,
+	0xEBA,
+	0xEBB,
+	0xEBD,
+	0xEC8,
+	0xECE,
+	0xED0,
+	0xEDA,
+	0xF01,
+	0xF05,
+	0xF06,
+	0xF08,
+	0xF09,
+	0xF0B,
+	0xF0C,
+	0xF0D,
+	0xF12,
+	0xF13,
+	0xF14,
+	0xF15,
+	0xF18,
+	0xF1A,
+	0xF20,
+	0xF2A,
+	0xF34,
+	0xF35,
+	0xF36,
+	0xF37,
+	0xF38,
+	0xF39,
+	0xF3A,
+	0xF3B,
+	0xF3C,
+	0xF3D,
+	0xF3E,
+	0xF40,
+	0xF71,
+	0xF7F,
+	0xF80,
+	0xF85,
+	0xF86,
+	0xF88,
+	0xF8D,
+	0xF98,
+	0xF99,
+	0xFBD,
+	0xFBE,
+	0xFC0,
+	0xFC6,
+	0xFC7,
+	0xFD0,
+	0xFD2,
+	0xFD3,
+	0xFD4,
+	0xFD9,
+	0xFDB,
+	0x102B,
+	0x103F,
+	0x1040,
+	0x104A,
+	0x104C,
+	0x1056,
+	0x105A,
+	0x105E,
+	0x1061,
+	0x1062,
+	0x1065,
+	0x1067,
+	0x106E,
+	0x1071,
+	0x1075,
+	0x1082,
+	0x108E,
+	0x108F,
+	0x1090,
+	0x109A,
+	0x109E,
+	0x1100,
+	0x1160,
+	0x11A8,
+	0x1200,
+	0x135D,
+	0x1360,
+	0x1361,
+	0x1362,
+	0x1400,
+	0x1401,
+	0x1680,
+	0x1681,
+	0x169B,
+	0x169C,
+	0x169D,
+	0x16EB,
+	0x16EE,
+	0x1712,
+	0x1715,
+	0x1732,
+	0x1735,
+	0x1737,
+	0x1752,
+	0x1754,
+	0x1772,
+	0x1774,
+	0x17B4,
+	0x17D4,
+	0x17D6,
+	0x17D7,
+	0x17D8,
+	0x17D9,
+	0x17DA,
+	0x17DB,
+	0x17DC,
+	0x17DD,
+	0x17DE,
+	0x17E0,
+	0x17EA,
+	0x1802,
+	0x1804,
+	0x1806,
+	0x1807,
+	0x1808,
+	0x180A,
+	0x180B,
+	0x180E,
+	0x180F,
+	0x1810,
+	0x181A,
+	0x18A9,
+	0x18AA,
+	0x1920,
+	0x192C,
+	0x1930,
+	0x193C,
+	0x1944,
+	0x1946,
+	0x1950,
+	0x19D0,
+	0x19DA,
+	0x1A17,
+	0x1A1C,
+	0x1A55,
+	0x1A5F,
+	0x1A60,
+	0x1A7D,
+	0x1A7F,
+	0x1A80,
+	0x1A8A,
+	0x1A90,
+	0x1A9A,
+	0x1AB0,
+	0x1ABF,
+	0x1B00,
+	0x1B05,
+	0x1B34,
+	0x1B45,
+	0x1B50,
+	0x1B5A,
+	0x1B5C,
+	0x1B5D,
+	0x1B61,
+	0x1B6B,
+	0x1B74,
+	0x1B80,
+	0x1B83,
+	0x1BA1,
+	0x1BAE,
+	0x1BB0,
+	0x1BBA,
+	0x1BE6,
+	0x1BF4,
+	0x1C24,
+	0x1C38,
+	0x1C3B,
+	0x1C40,
+	0x1C4A,
+	0x1C50,
+	0x1C5A,
+	0x1C7E,
+	0x1C80,
+	0x1CD0,
+	0x1CD3,
+	0x1CD4,
+	0x1CE9,
+	0x1CED,
+	0x1CEE,
+	0x1CF2,
+	0x1CF5,
+	0x1CF8,
+	0x1CFA,
+	0x1DC0,
+	0x1DF6,
+	0x1DFC,
+	0x1E00,
+	0x1FFD,
+	0x1FFE,
+	0x2000,
+	0x2007,
+	0x2008,
+	0x200B,
+	0x200C,
+	0x2010,
+	0x2011,
+	0x2012,
+	0x2014,
+	0x2015,
+	0x2018,
+	0x201A,
+	0x201B,
+	0x201E,
+	0x201F,
+	0x2020,
+	0x2024,
+	0x2027,
+	0x2028,
+	0x202A,
+	0x202F,
+	0x2030,
+	0x2038,
+	0x2039,
+	0x203B,
+	0x203C,
+	0x203E,
+	0x2044,
+	0x2045,
+	0x2046,
+	0x2047,
+	0x204A,
+	0x2056,
+	0x2057,
+	0x2058,
+	0x205C,
+	0x205D,
+	0x2060,
+	0x2061,
+	0x2066,
+	0x2070,
+	0x207D,
+	0x207E,
+	0x207F,
+	0x208D,
+	0x208E,
+	0x208F,
+	0x20A0,
+	0x20A7,
+	0x20A8,
+	0x20B6,
+	0x20B7,
+	0x20BB,
+	0x20BC,
+	0x20BE,
+	0x20BF,
+	0x20D0,
+	0x20F1,
+	0x2103,
+	0x2104,
+	0x2109,
+	0x210A,
+	0x2116,
+	0x2117,
+	0x2212,
+	0x2214,
+	0x22EF,
+	0x22F0,
+	0x2308,
+	0x2309,
+	0x230A,
+	0x230B,
+	0x230C,
+	0x231A,
+	0x231C,
+	0x2329,
+	0x232A,
+	0x232B,
+	0x23F0,
+	0x23F4,
+	0x2600,
+	0x2604,
+	0x2614,
+	0x2616,
+	0x2618,
+	0x2619,
+	0x261A,
+	0x2620,
+	0x2639,
+	0x263C,
+	0x2668,
+	0x2669,
+	0x267F,
+	0x2680,
+	0x26BD,
+	0x26C9,
+	0x26CD,
+	0x26CE,
+	0x26CF,
+	0x26D2,
+	0x26D3,
+	0x26D5,
+	0x26D8,
+	0x26DA,
+	0x26DC,
+	0x26DD,
+	0x26DF,
+	0x26E2,
+	0x26EA,
+	0x26EB,
+	0x26F1,
+	0x26F6,
+	0x26F7,
+	0x26FB,
+	0x26FD,
+	0x2705,
+	0x2708,
+	0x270E,
+	0x275B,
+	0x2761,
+	0x2762,
+	0x2764,
+	0x2768,
+	0x2769,
+	0x276A,
+	0x276B,
+	0x276C,
+	0x276D,
+	0x276E,
+	0x276F,
+	0x2770,
+	0x2771,
+	0x2772,
+	0x2773,
+	0x2774,
+	0x2775,
+	0x2776,
+	0x27C5,
+	0x27C6,
+	0x27C7,
+	0x27E6,
+	0x27E7,
+	0x27E8,
+	0x27E9,
+	0x27EA,
+	0x27EB,
+	0x27EC,
+	0x27ED,
+	0x27EE,
+	0x27EF,
+	0x27F0,
+	0x2983,
+	0x2984,
+	0x2985,
+	0x2986,
+	0x2987,
+	0x2988,
+	0x2989,
+	0x298A,
+	0x298B,
+	0x298C,
+	0x298D,
+	0x298E,
+	0x298F,
+	0x2990,
+	0x2991,
+	0x2992,
+	0x2993,
+	0x2994,
+	0x2995,
+	0x2996,
+	0x2997,
+	0x2998,
+	0x2999,
+	0x29D8,
+	0x29D9,
+	0x29DA,
+	0x29DB,
+	0x29DC,
+	0x29FC,
+	0x29FD,
+	0x29FE,
+	0x2CEF,
+	0x2CF2,
+	0x2CF9,
+	0x2CFA,
+	0x2CFD,
+	0x2CFE,
+	0x2CFF,
+	0x2D00,
+	0x2D70,
+	0x2D71,
+	0x2D7F,
+	0x2D80,
+	0x2DE0,
+	0x2E00,
+	0x2E0E,
+	0x2E16,
+	0x2E17,
+	0x2E18,
+	0x2E19,
+	0x2E1A,
+	0x2E1C,
+	0x2E1E,
+	0x2E20,
+	0x2E22,
+	0x2E23,
+	0x2E24,
+	0x2E25,
+	0x2E26,
+	0x2E27,
+	0x2E28,
+	0x2E29,
+	0x2E2A,
+	0x2E2E,
+	0x2E2F,
+	0x2E30,
+	0x2E32,
+	0x2E33,
+	0x2E35,
+	0x2E3A,
+	0x2E3C,
+	0x2E3F,
+	0x2E40,
+	0x2E42,
+	0x2E43,
+	0x2E80,
+	0x2E9A,
+	0x2E9B,
+	0x2EF4,
+	0x2F00,
+	0x2FD6,
+	0x2FF0,
+	0x2FFC,
+	0x3000,
+	0x3001,
+	0x3003,
+	0x3005,
+	0x3006,
+	0x3008,
+	0x3009,
+	0x300A,
+	0x300B,
+	0x300C,
+	0x300D,
+	0x300E,
+	0x300F,
+	0x3010,
+	0x3011,
+	0x3012,
+	0x3014,
+	0x3015,
+	0x3016,
+	0x3017,
+	0x3018,
+	0x3019,
+	0x301A,
+	0x301B,
+	0x301C,
+	0x301D,
+	0x301E,
+	0x3020,
+	0x302A,
+	0x3030,
+	0x3035,
+	0x3036,
+	0x303B,
+	0x303D,
+	0x3040,
+	0x3041,
+	0x3042,
+	0x3043,
+	0x3044,
+	0x3045,
+	0x3046,
+	0x3047,
+	0x3048,
+	0x3049,
+	0x304A,
+	0x3063,
+	0x3064,
+	0x3083,
+	0x3084,
+	0x3085,
+	0x3086,
+	0x3087,
+	0x3088,
+	0x308E,
+	0x308F,
+	0x3095,
+	0x3097,
+	0x3099,
+	0x309B,
+	0x309F,
+	0x30A0,
+	0x30A2,
+	0x30A3,
+	0x30A4,
+	0x30A5,
+	0x30A6,
+	0x30A7,
+	0x30A8,
+	0x30A9,
+	0x30AA,
+	0x30C3,
+	0x30C4,
+	0x30E3,
+	0x30E4,
+	0x30E5,
+	0x30E6,
+	0x30E7,
+	0x30E8,
+	0x30EE,
+	0x30EF,
+	0x30F5,
+	0x30F7,
+	0x30FB,
+	0x30FF,
+	0x3100,
+	0x3105,
+	0x312E,
+	0x3131,
+	0x318F,
+	0x3190,
+	0x31BB,
+	0x31C0,
+	0x31E4,
+	0x31F0,
+	0x3200,
+	0x321F,
+	0x3220,
+	0x3248,
+	0x3250,
+	0x32FF,
+	0x3300,
+	0x4DC0,
+	0x4E00,
+	0xA015,
+	0xA016,
+	0xA48D,
+	0xA490,
+	0xA4C7,
+	0xA4FE,
+	0xA500,
+	0xA60D,
+	0xA60E,
+	0xA60F,
+	0xA610,
+	0xA620,
+	0xA62A,
+	0xA66F,
+	0xA673,
+	0xA674,
+	0xA67E,
+	0xA69E,
+	0xA6A0,
+	0xA6F0,
+	0xA6F2,
+	0xA6F3,
+	0xA6F8,
+	0xA802,
+	0xA803,
+	0xA806,
+	0xA807,
+	0xA80B,
+	0xA80C,
+	0xA823,
+	0xA828,
+	0xA838,
+	0xA839,
+	0xA874,
+	0xA876,
+	0xA878,
+	0xA880,
+	0xA882,
+	0xA8B4,
+	0xA8C5,
+	0xA8CE,
+	0xA8D0,
+	0xA8DA,
+	0xA8E0,
+	0xA8F2,
+	0xA8FC,
+	0xA8FD,
+	0xA900,
+	0xA90A,
+	0xA926,
+	0xA92E,
+	0xA930,
+	0xA947,
+	0xA954,
+	0xA960,
+	0xA97D,
+	0xA980,
+	0xA984,
+	0xA9B3,
+	0xA9C1,
+	0xA9C7,
+	0xA9CA,
+	0xA9D0,
+	0xA9DA,
+	0xA9E5,
+	0xA9E6,
+	0xA9F0,
+	0xA9FA,
+	0xAA29,
+	0xAA37,
+	0xAA43,
+	0xAA44,
+	0xAA4C,
+	0xAA4E,
+	0xAA50,
+	0xAA5A,
+	0xAA5D,
+	0xAA60,
+	0xAA7B,
+	0xAA7E,
+	0xAAB0,
+	0xAAB1,
+	0xAAB2,
+	0xAAB5,
+	0xAAB7,
+	0xAAB9,
+	0xAABE,
+	0xAAC0,
+	0xAAC1,
+	0xAAC2,
+	0xAAEB,
+	0xAAF0,
+	0xAAF2,
+	0xAAF5,
+	0xAAF7,
+	0xABE3,
+	0xABEB,
+	0xABEC,
+	0xABEE,
+	0xABF0,
+	0xABFA,
+	0xAC00,
+	0xAC01,
+	0xAC1C,
+	0xAC1D,
+	0xAC38,
+	0xAC39,
+	0xAC54,
+	0xAC55,
+	0xAC70,
+	0xAC71,
+	0xAC8C,
+	0xAC8D,
+	0xACA8,
+	0xACA9,
+	0xACC4,
+	0xACC5,
+	0xACE0,
+	0xACE1,
+	0xACFC,
+	0xACFD,
+	0xAD18,
+	0xAD19,
+	0xAD34,
+	0xAD35,
+	0xAD50,
+	0xAD51,
+	0xAD6C,
+	0xAD6D,
+	0xAD88,
+	0xAD89,
+	0xADA4,
+	0xADA5,
+	0xADC0,
+	0xADC1,
+	0xADDC,
+	0xADDD,
+	0xADF8,
+	0xADF9,
+	0xAE14,
+	0xAE15,
+	0xAE30,
+	0xAE31,
+	0xAE4C,
+	0xAE4D,
+	0xAE68,
+	0xAE69,
+	0xAE84,
+	0xAE85,
+	0xAEA0,
+	0xAEA1,
+	0xAEBC,
+	0xAEBD,
+	0xAED8,
+	0xAED9,
+	0xAEF4,
+	0xAEF5,
+	0xAF10,
+	0xAF11,
+	0xAF2C,
+	0xAF2D,
+	0xAF48,
+	0xAF49,
+	0xAF64,
+	0xAF65,
+	0xAF80,
+	0xAF81,
+	0xAF9C,
+	0xAF9D,
+	0xAFB8,
+	0xAFB9,
+	0xAFD4,
+	0xAFD5,
+	0xAFF0,
+	0xAFF1,
+	0xB00C,
+	0xB00D,
+	0xB028,
+	0xB029,
+	0xB044,
+	0xB045,
+	0xB060,
+	0xB061,
+	0xB07C,
+	0xB07D,
+	0xB098,
+	0xB099,
+	0xB0B4,
+	0xB0B5,
+	0xB0D0,
+	0xB0D1,
+	0xB0EC,
+	0xB0ED,
+	0xB108,
+	0xB109,
+	0xB124,
+	0xB125,
+	0xB140,
+	0xB141,
+	0xB15C,
+	0xB15D,
+	0xB178,
+	0xB179,
+	0xB194,
+	0xB195,
+	0xB1B0,
+	0xB1B1,
+	0xB1CC,
+	0xB1CD,
+	0xB1E8,
+	0xB1E9,
+	0xB204,
+	0xB205,
+	0xB220,
+	0xB221,
+	0xB23C,
+	0xB23D,
+	0xB258,
+	0xB259,
+	0xB274,
+	0xB275,
+	0xB290,
+	0xB291,
+	0xB2AC,
+	0xB2AD,
+	0xB2C8,
+	0xB2C9,
+	0xB2E4,
+	0xB2E5,
+	0xB300,
+	0xB301,
+	0xB31C,
+	0xB31D,
+	0xB338,
+	0xB339,
+	0xB354,
+	0xB355,
+	0xB370,
+	0xB371,
+	0xB38C,
+	0xB38D,
+	0xB3A8,
+	0xB3A9,
+	0xB3C4,
+	0xB3C5,
+	0xB3E0,
+	0xB3E1,
+	0xB3FC,
+	0xB3FD,
+	0xB418,
+	0xB419,
+	0xB434,
+	0xB435,
+	0xB450,
+	0xB451,
+	0xB46C,
+	0xB46D,
+	0xB488,
+	0xB489,
+	0xB4A4,
+	0xB4A5,
+	0xB4C0,
+	0xB4C1,
+	0xB4DC,
+	0xB4DD,
+	0xB4F8,
+	0xB4F9,
+	0xB514,
+	0xB515,
+	0xB530,
+	0xB531,
+	0xB54C,
+	0xB54D,
+	0xB568,
+	0xB569,
+	0xB584,
+	0xB585,
+	0xB5A0,
+	0xB5A1,
+	0xB5BC,
+	0xB5BD,
+	0xB5D8,
+	0xB5D9,
+	0xB5F4,
+	0xB5F5,
+	0xB610,
+	0xB611,
+	0xB62C,
+	0xB62D,
+	0xB648,
+	0xB649,
+	0xB664,
+	0xB665,
+	0xB680,
+	0xB681,
+	0xB69C,
+	0xB69D,
+	0xB6B8,
+	0xB6B9,
+	0xB6D4,
+	0xB6D5,
+	0xB6F0,
+	0xB6F1,
+	0xB70C,
+	0xB70D,
+	0xB728,
+	0xB729,
+	0xB744,
+	0xB745,
+	0xB760,
+	0xB761,
+	0xB77C,
+	0xB77D,
+	0xB798,
+	0xB799,
+	0xB7B4,
+	0xB7B5,
+	0xB7D0,
+	0xB7D1,
+	0xB7EC,
+	0xB7ED,
+	0xB808,
+	0xB809,
+	0xB824,
+	0xB825,
+	0xB840,
+	0xB841,
+	0xB85C,
+	0xB85D,
+	0xB878,
+	0xB879,
+	0xB894,
+	0xB895,
+	0xB8B0,
+	0xB8B1,
+	0xB8CC,
+	0xB8CD,
+	0xB8E8,
+	0xB8E9,
+	0xB904,
+	0xB905,
+	0xB920,
+	0xB921,
+	0xB93C,
+	0xB93D,
+	0xB958,
+	0xB959,
+	0xB974,
+	0xB975,
+	0xB990,
+	0xB991,
+	0xB9AC,
+	0xB9AD,
+	0xB9C8,
+	0xB9C9,
+	0xB9E4,
+	0xB9E5,
+	0xBA00,
+	0xBA01,
+	0xBA1C,
+	0xBA1D,
+	0xBA38,
+	0xBA39,
+	0xBA54,
+	0xBA55,
+	0xBA70,
+	0xBA71,
+	0xBA8C,
+	0xBA8D,
+	0xBAA8,
+	0xBAA9,
+	0xBAC4,
+	0xBAC5,
+	0xBAE0,
+	0xBAE1,
+	0xBAFC,
+	0xBAFD,
+	0xBB18,
+	0xBB19,
+	0xBB34,
+	0xBB35,
+	0xBB50,
+	0xBB51,
+	0xBB6C,
+	0xBB6D,
+	0xBB88,
+	0xBB89,
+	0xBBA4,
+	0xBBA5,
+	0xBBC0,
+	0xBBC1,
+	0xBBDC,
+	0xBBDD,
+	0xBBF8,
+	0xBBF9,
+	0xBC14,
+	0xBC15,
+	0xBC30,
+	0xBC31,
+	0xBC4C,
+	0xBC4D,
+	0xBC68,
+	0xBC69,
+	0xBC84,
+	0xBC85,
+	0xBCA0,
+	0xBCA1,
+	0xBCBC,
+	0xBCBD,
+	0xBCD8,
+	0xBCD9,
+	0xBCF4,
+	0xBCF5,
+	0xBD10,
+	0xBD11,
+	0xBD2C,
+	0xBD2D,
+	0xBD48,
+	0xBD49,
+	0xBD64,
+	0xBD65,
+	0xBD80,
+	0xBD81,
+	0xBD9C,
+	0xBD9D,
+	0xBDB8,
+	0xBDB9,
+	0xBDD4,
+	0xBDD5,
+	0xBDF0,
+	0xBDF1,
+	0xBE0C,
+	0xBE0D,
+	0xBE28,
+	0xBE29,
+	0xBE44,
+	0xBE45,
+	0xBE60,
+	0xBE61,
+	0xBE7C,
+	0xBE7D,
+	0xBE98,
+	0xBE99,
+	0xBEB4,
+	0xBEB5,
+	0xBED0,
+	0xBED1,
+	0xBEEC,
+	0xBEED,
+	0xBF08,
+	0xBF09,
+	0xBF24,
+	0xBF25,
+	0xBF40,
+	0xBF41,
+	0xBF5C,
+	0xBF5D,
+	0xBF78,
+	0xBF79,
+	0xBF94,
+	0xBF95,
+	0xBFB0,
+	0xBFB1,
+	0xBFCC,
+	0xBFCD,
+	0xBFE8,
+	0xBFE9,
+	0xC004,
+	0xC005,
+	0xC020,
+	0xC021,
+	0xC03C,
+	0xC03D,
+	0xC058,
+	0xC059,
+	0xC074,
+	0xC075,
+	0xC090,
+	0xC091,
+	0xC0AC,
+	0xC0AD,
+	0xC0C8,
+	0xC0C9,
+	0xC0E4,
+	0xC0E5,
+	0xC100,
+	0xC101,
+	0xC11C,
+	0xC11D,
+	0xC138,
+	0xC139,
+	0xC154,
+	0xC155,
+	0xC170,
+	0xC171,
+	0xC18C,
+	0xC18D,
+	0xC1A8,
+	0xC1A9,
+	0xC1C4,
+	0xC1C5,
+	0xC1E0,
+	0xC1E1,
+	0xC1FC,
+	0xC1FD,
+	0xC218,
+	0xC219,
+	0xC234,
+	0xC235,
+	0xC250,
+	0xC251,
+	0xC26C,
+	0xC26D,
+	0xC288,
+	0xC289,
+	0xC2A4,
+	0xC2A5,
+	0xC2C0,
+	0xC2C1,
+	0xC2DC,
+	0xC2DD,
+	0xC2F8,
+	0xC2F9,
+	0xC314,
+	0xC315,
+	0xC330,
+	0xC331,
+	0xC34C,
+	0xC34D,
+	0xC368,
+	0xC369,
+	0xC384,
+	0xC385,
+	0xC3A0,
+	0xC3A1,
+	0xC3BC,
+	0xC3BD,
+	0xC3D8,
+	0xC3D9,
+	0xC3F4,
+	0xC3F5,
+	0xC410,
+	0xC411,
+	0xC42C,
+	0xC42D,
+	0xC448,
+	0xC449,
+	0xC464,
+	0xC465,
+	0xC480,
+	0xC481,
+	0xC49C,
+	0xC49D,
+	0xC4B8,
+	0xC4B9,
+	0xC4D4,
+	0xC4D5,
+	0xC4F0,
+	0xC4F1,
+	0xC50C,
+	0xC50D,
+	0xC528,
+	0xC529,
+	0xC544,
+	0xC545,
+	0xC560,
+	0xC561,
+	0xC57C,
+	0xC57D,
+	0xC598,
+	0xC599,
+	0xC5B4,
+	0xC5B5,
+	0xC5D0,
+	0xC5D1,
+	0xC5EC,
+	0xC5ED,
+	0xC608,
+	0xC609,
+	0xC624,
+	0xC625,
+	0xC640,
+	0xC641,
+	0xC65C,
+	0xC65D,
+	0xC678,
+	0xC679,
+	0xC694,
+	0xC695,
+	0xC6B0,
+	0xC6B1,
+	0xC6CC,
+	0xC6CD,
+	0xC6E8,
+	0xC6E9,
+	0xC704,
+	0xC705,
+	0xC720,
+	0xC721,
+	0xC73C,
+	0xC73D,
+	0xC758,
+	0xC759,
+	0xC774,
+	0xC775,
+	0xC790,
+	0xC791,
+	0xC7AC,
+	0xC7AD,
+	0xC7C8,
+	0xC7C9,
+	0xC7E4,
+	0xC7E5,
+	0xC800,
+	0xC801,
+	0xC81C,
+	0xC81D,
+	0xC838,
+	0xC839,
+	0xC854,
+	0xC855,
+	0xC870,
+	0xC871,
+	0xC88C,
+	0xC88D,
+	0xC8A8,
+	0xC8A9,
+	0xC8C4,
+	0xC8C5,
+	0xC8E0,
+	0xC8E1,
+	0xC8FC,
+	0xC8FD,
+	0xC918,
+	0xC919,
+	0xC934,
+	0xC935,
+	0xC950,
+	0xC951,
+	0xC96C,
+	0xC96D,
+	0xC988,
+	0xC989,
+	0xC9A4,
+	0xC9A5,
+	0xC9C0,
+	0xC9C1,
+	0xC9DC,
+	0xC9DD,
+	0xC9F8,
+	0xC9F9,
+	0xCA14,
+	0xCA15,
+	0xCA30,
+	0xCA31,
+	0xCA4C,
+	0xCA4D,
+	0xCA68,
+	0xCA69,
+	0xCA84,
+	0xCA85,
+	0xCAA0,
+	0xCAA1,
+	0xCABC,
+	0xCABD,
+	0xCAD8,
+	0xCAD9,
+	0xCAF4,
+	0xCAF5,
+	0xCB10,
+	0xCB11,
+	0xCB2C,
+	0xCB2D,
+	0xCB48,
+	0xCB49,
+	0xCB64,
+	0xCB65,
+	0xCB80,
+	0xCB81,
+	0xCB9C,
+	0xCB9D,
+	0xCBB8,
+	0xCBB9,
+	0xCBD4,
+	0xCBD5,
+	0xCBF0,
+	0xCBF1,
+	0xCC0C,
+	0xCC0D,
+	0xCC28,
+	0xCC29,
+	0xCC44,
+	0xCC45,
+	0xCC60,
+	0xCC61,
+	0xCC7C,
+	0xCC7D,
+	0xCC98,
+	0xCC99,
+	0xCCB4,
+	0xCCB5,
+	0xCCD0,
+	0xCCD1,
+	0xCCEC,
+	0xCCED,
+	0xCD08,
+	0xCD09,
+	0xCD24,
+	0xCD25,
+	0xCD40,
+	0xCD41,
+	0xCD5C,
+	0xCD5D,
+	0xCD78,
+	0xCD79,
+	0xCD94,
+	0xCD95,
+	0xCDB0,
+	0xCDB1,
+	0xCDCC,
+	0xCDCD,
+	0xCDE8,
+	0xCDE9,
+	0xCE04,
+	0xCE05,
+	0xCE20,
+	0xCE21,
+	0xCE3C,
+	0xCE3D,
+	0xCE58,
+	0xCE59,
+	0xCE74,
+	0xCE75,
+	0xCE90,
+	0xCE91,
+	0xCEAC,
+	0xCEAD,
+	0xCEC8,
+	0xCEC9,
+	0xCEE4,
+	0xCEE5,
+	0xCF00,
+	0xCF01,
+	0xCF1C,
+	0xCF1D,
+	0xCF38,
+	0xCF39,
+	0xCF54,
+	0xCF55,
+	0xCF70,
+	0xCF71,
+	0xCF8C,
+	0xCF8D,
+	0xCFA8,
+	0xCFA9,
+	0xCFC4,
+	0xCFC5,
+	0xCFE0,
+	0xCFE1,
+	0xCFFC,
+	0xCFFD,
+	0xD018,
+	0xD019,
+	0xD034,
+	0xD035,
+	0xD050,
+	0xD051,
+	0xD06C,
+	0xD06D,
+	0xD088,
+	0xD089,
+	0xD0A4,
+	0xD0A5,
+	0xD0C0,
+	0xD0C1,
+	0xD0DC,
+	0xD0DD,
+	0xD0F8,
+	0xD0F9,
+	0xD114,
+	0xD115,
+	0xD130,
+	0xD131,
+	0xD14C,
+	0xD14D,
+	0xD168,
+	0xD169,
+	0xD184,
+	0xD185,
+	0xD1A0,
+	0xD1A1,
+	0xD1BC,
+	0xD1BD,
+	0xD1D8,
+	0xD1D9,
+	0xD1F4,
+	0xD1F5,
+	0xD210,
+	0xD211,
+	0xD22C,
+	0xD22D,
+	0xD248,
+	0xD249,
+	0xD264,
+	0xD265,
+	0xD280,
+	0xD281,
+	0xD29C,
+	0xD29D,
+	0xD2B8,
+	0xD2B9,
+	0xD2D4,
+	0xD2D5,
+	0xD2F0,
+	0xD2F1,
+	0xD30C,
+	0xD30D,
+	0xD328,
+	0xD329,
+	0xD344,
+	0xD345,
+	0xD360,
+	0xD361,
+	0xD37C,
+	0xD37D,
+	0xD398,
+	0xD399,
+	0xD3B4,
+	0xD3B5,
+	0xD3D0,
+	0xD3D1,
+	0xD3EC,
+	0xD3ED,
+	0xD408,
+	0xD409,
+	0xD424,
+	0xD425,
+	0xD440,
+	0xD441,
+	0xD45C,
+	0xD45D,
+	0xD478,
+	0xD479,
+	0xD494,
+	0xD495,
+	0xD4B0,
+	0xD4B1,
+	0xD4CC,
+	0xD4CD,
+	0xD4E8,
+	0xD4E9,
+	0xD504,
+	0xD505,
+	0xD520,
+	0xD521,
+	0xD53C,
+	0xD53D,
+	0xD558,
+	0xD559,
+	0xD574,
+	0xD575,
+	0xD590,
+	0xD591,
+	0xD5AC,
+	0xD5AD,
+	0xD5C8,
+	0xD5C9,
+	0xD5E4,
+	0xD5E5,
+	0xD600,
+	0xD601,
+	0xD61C,
+	0xD61D,
+	0xD638,
+	0xD639,
+	0xD654,
+	0xD655,
+	0xD670,
+	0xD671,
+	0xD68C,
+	0xD68D,
+	0xD6A8,
+	0xD6A9,
+	0xD6C4,
+	0xD6C5,
+	0xD6E0,
+	0xD6E1,
+	0xD6FC,
+	0xD6FD,
+	0xD718,
+	0xD719,
+	0xD734,
+	0xD735,
+	0xD750,
+	0xD751,
+	0xD76C,
+	0xD76D,
+	0xD788,
+	0xD789,
+	0xD7A4,
+	0xD7B0,
+	0xD7C7,
+	0xD7CB,
+	0xD7FC,
+	0xF900,
+	0xFB00,
+	0xFB1D,
+	0xFB1E,
+	0xFB1F,
+	0xFB29,
+	0xFB2A,
+	0xFB37,
+	0xFB38,
+	0xFB3D,
+	0xFB3E,
+	0xFB3F,
+	0xFB40,
+	0xFB42,
+	0xFB43,
+	0xFB45,
+	0xFB46,
+	0xFB50,
+	0xFD3E,
+	0xFD3F,
+	0xFD40,
+	0xFDFC,
+	0xFDFD,
+	0xFE00,
+	0xFE10,
+	0xFE11,
+	0xFE13,
+	0xFE15,
+	0xFE17,
+	0xFE18,
+	0xFE19,
+	0xFE1A,
+	0xFE20,
+	0xFE30,
+	0xFE35,
+	0xFE36,
+	0xFE37,
+	0xFE38,
+	0xFE39,
+	0xFE3A,
+	0xFE3B,
+	0xFE3C,
+	0xFE3D,
+	0xFE3E,
+	0xFE3F,
+	0xFE40,
+	0xFE41,
+	0xFE42,
+	0xFE43,
+	0xFE44,
+	0xFE45,
+	0xFE47,
+	0xFE48,
+	0xFE49,
+	0xFE50,
+	0xFE51,
+	0xFE52,
+	0xFE53,
+	0xFE54,
+	0xFE56,
+	0xFE58,
+	0xFE59,
+	0xFE5A,
+	0xFE5B,
+	0xFE5C,
+	0xFE5D,
+	0xFE5E,
+	0xFE5F,
+	0xFE67,
+	0xFE68,
+	0xFE69,
+	0xFE6A,
+	0xFE6B,
+	0xFE6C,
+	0xFEFF,
+	0xFF00,
+	0xFF01,
+	0xFF02,
+	0xFF04,
+	0xFF05,
+	0xFF06,
+	0xFF08,
+	0xFF09,
+	0xFF0A,
+	0xFF0C,
+	0xFF0D,
+	0xFF0E,
+	0xFF0F,
+	0xFF1A,
+	0xFF1C,
+	0xFF1F,
+	0xFF20,
+	0xFF3B,
+	0xFF3C,
+	0xFF3D,
+	0xFF3E,
+	0xFF5B,
+	0xFF5C,
+	0xFF5D,
+	0xFF5E,
+	0xFF5F,
+	0xFF60,
+	0xFF62,
+	0xFF63,
+	0xFF65,
+	0xFF66,
+	0xFF67,
+	0xFF71,
+	0xFF9E,
+	0xFFA0,
+	0xFFE0,
+	0xFFE1,
+	0xFFE2,
+	0xFFE5,
+	0xFFE7,
+	0xFFF9,
+	0xFFFC,
+	0xFFFD,
+	0x10100,
+	0x10103,
+	0x101FD,
+	0x101FE,
+	0x102E0,
+	0x102E1,
+	0x10376,
+	0x1037B,
+	0x1039F,
+	0x103A0,
+	0x103D0,
+	0x103D1,
+	0x104A0,
+	0x104AA,
+	0x10857,
+	0x10858,
+	0x1091F,
+	0x10920,
+	0x10A01,
+	0x10A04,
+	0x10A05,
+	0x10A07,
+	0x10A0C,
+	0x10A10,
+	0x10A38,
+	0x10A3B,
+	0x10A3F,
+	0x10A40,
+	0x10A50,
+	0x10A58,
+	0x10AE5,
+	0x10AE7,
+	0x10AF0,
+	0x10AF6,
+	0x10AF7,
+	0x10B39,
+	0x10B40,
+	0x11000,
+	0x11003,
+	0x11038,
+	0x11047,
+	0x11049,
+	0x11066,
+	0x11070,
+	0x1107F,
+	0x11083,
+	0x110B0,
+	0x110BB,
+	0x110BE,
+	0x110C2,
+	0x110F0,
+	0x110FA,
+	0x11100,
+	0x11103,
+	0x11127,
+	0x11135,
+	0x11136,
+	0x11140,
+	0x11144,
+	0x11173,
+	0x11174,
+	0x11175,
+	0x11176,
+	0x11180,
+	0x11183,
+	0x111B3,
+	0x111C1,
+	0x111C5,
+	0x111C7,
+	0x111C8,
+	0x111C9,
+	0x111CA,
+	0x111CD,
+	0x111D0,
+	0x111DA,
+	0x111DB,
+	0x111DC,
+	0x111DD,
+	0x111E0,
+	0x1122C,
+	0x11238,
+	0x1123A,
+	0x1123B,
+	0x1123D,
+	0x112A9,
+	0x112AA,
+	0x112DF,
+	0x112EB,
+	0x112F0,
+	0x112FA,
+	0x11300,
+	0x11304,
+	0x1133C,
+	0x1133D,
+	0x1133E,
+	0x11345,
+	0x11347,
+	0x11349,
+	0x1134B,
+	0x1134E,
+	0x11357,
+	0x11358,
+	0x11362,
+	0x11364,
+	0x11366,
+	0x1136D,
+	0x11370,
+	0x11375,
+	0x114B0,
+	0x114C4,
+	0x114D0,
+	0x114DA,
+	0x115AF,
+	0x115B6,
+	0x115B8,
+	0x115C1,
+	0x115C2,
+	0x115C4,
+	0x115C6,
+	0x115C9,
+	0x115D8,
+	0x115DC,
+	0x115DE,
+	0x11630,
+	0x11641,
+	0x11643,
+	0x11650,
+	0x1165A,
+	0x116AB,
+	0x116B8,
+	0x116C0,
+	0x116CA,
+	0x1171D,
+	0x1172C,
+	0x11730,
+	0x1173A,
+	0x1173C,
+	0x1173F,
+	0x118E0,
+	0x118EA,
+	0x12470,
+	0x12475,
+	0x13258,
+	0x1325B,
+	0x1325E,
+	0x13282,
+	0x13283,
+	0x13286,
+	0x13287,
+	0x13288,
+	0x13289,
+	0x1328A,
+	0x13379,
+	0x1337A,
+	0x1337C,
+	0x145CE,
+	0x145CF,
+	0x145D0,
+	0x16A60,
+	0x16A6A,
+	0x16A6E,
+	0x16A70,
+	0x16AF0,
+	0x16AF5,
+	0x16AF6,
+	0x16B30,
+	0x16B37,
+	0x16B3A,
+	0x16B44,
+	0x16B45,
+	0x16B50,
+	0x16B5A,
+	0x16F51,
+	0x16F7F,
+	0x16F8F,
+	0x16F93,
+	0x1B000,
+	0x1B002,
+	0x1BC9D,
+	0x1BC9F,
+	0x1BCA0,
+	0x1BCA4,
+	0x1D165,
+	0x1D16A,
+	0x1D16D,
+	0x1D183,
+	0x1D185,
+	0x1D18C,
+	0x1D1AA,
+	0x1D1AE,
+	0x1D242,
+	0x1D245,
+	0x1D7CE,
+	0x1D800,
+	0x1DA00,
+	0x1DA37,
+	0x1DA3B,
+	0x1DA6D,
+	0x1DA75,
+	0x1DA76,
+	0x1DA84,
+	0x1DA85,
+	0x1DA87,
+	0x1DA8B,
+	0x1DA9B,
+	0x1DAA0,
+	0x1DAA1,
+	0x1DAB0,
+	0x1E8D0,
+	0x1E8D7,
+	0x1F000,
+	0x1F02C,
+	0x1F030,
+	0x1F094,
+	0x1F0A0,
+	0x1F0AF,
+	0x1F0B1,
+	0x1F0C0,
+	0x1F0C1,
+	0x1F0D0,
+	0x1F0D1,
+	0x1F0F6,
+	0x1F1E6,
+	0x1F200,
+	0x1F203,
+	0x1F210,
+	0x1F23B,
+	0x1F240,
+	0x1F249,
+	0x1F250,
+	0x1F252,
+	0x1F300,
+	0x1F39C,
+	0x1F39E,
+	0x1F3B5,
+	0x1F3B7,
+	0x1F3BC,
+	0x1F3BD,
+	0x1F3FB,
+	0x1F400,
+	0x1F4A0,
+	0x1F4A1,
+	0x1F4A2,
+	0x1F4A3,
+	0x1F4A4,
+	0x1F4A5,
+	0x1F4AF,
+	0x1F4B0,
+	0x1F4B1,
+	0x1F4B3,
+	0x1F500,
+	0x1F507,
+	0x1F517,
+	0x1F525,
+	0x1F532,
+	0x1F54A,
+	0x1F57A,
+	0x1F57B,
+	0x1F5A4,
+	0x1F5A5,
+	0x1F5D4,
+	0x1F5DC,
+	0x1F5F4,
+	0x1F5FA,
+	0x1F650,
+	0x1F676,
+	0x1F679,
+	0x1F67C,
+	0x1F680,
+	0x1F6D1,
+	0x1F6E0,
+	0x1F6ED,
+	0x1F6F0,
+	0x1F6F4,
+	0x1F910,
+	0x1F919,
+	0x1F980,
+	0x1F985,
+	0x1F9C0,
+	0x1F9C1,
+	0x20000,
+	0x2FFFE,
+	0x30000,
+	0x3FFFE,
+	0xE0001,
+	0xE0002,
+	0xE0020,
+	0xE0080,
+	0xE0100,
+	0xE01F0
+};
+
+#endif	/* defined(PERL_IN_PERL_C) */
+
+#if defined(PERL_IN_REGEXEC_C)
+
+#define LB_ENUM_COUNT 36
+
+typedef enum {
+	LB_Alphabetic = 0,
+	LB_Break_After = 1,
+	LB_Break_Before = 2,
+	LB_Break_Both = 3,
+	LB_Break_Symbols = 4,
+	LB_Carriage_Return = 5,
+	LB_Close_Parenthesis = 6,
+	LB_Close_Punctuation = 7,
+	LB_Combining_Mark = 8,
+	LB_Contingent_Break = 9,
+	LB_Exclamation = 10,
+	LB_Glue = 11,
+	LB_H2 = 12,
+	LB_H3 = 13,
+	LB_Hebrew_Letter = 14,
+	LB_Hyphen = 15,
+	LB_Ideographic = 16,
+	LB_Infix_Numeric = 17,
+	LB_Inseparable = 18,
+	LB_JL = 19,
+	LB_JT = 20,
+	LB_JV = 21,
+	LB_Line_Feed = 22,
+	LB_Mandatory_Break = 23,
+	LB_Next_Line = 24,
+	LB_Nonstarter = 25,
+	LB_Numeric = 26,
+	LB_Open_Punctuation = 27,
+	LB_Postfix_Numeric = 28,
+	LB_Prefix_Numeric = 29,
+	LB_Quotation = 30,
+	LB_Regional_Indicator = 31,
+	LB_Space = 32,
+	LB_Word_Joiner = 33,
+	LB_ZWSpace = 34,
+	LB_EDGE = 35
+} LB_enum;
+
+static const LB_enum _Perl_LB_invmap[] = { /* for EBCDIC 037 */
+	LB_Combining_Mark,
+	LB_Break_After,
+	LB_Combining_Mark,
+	LB_Mandatory_Break,
+	LB_Carriage_Return,
+	LB_Combining_Mark,
+	LB_Next_Line,
+	LB_Combining_Mark,
+	LB_Line_Feed,
+	LB_Combining_Mark,
+	LB_Space,
+	LB_Glue,
+	LB_Alphabetic,
+	LB_Postfix_Numeric,
+	LB_Infix_Numeric,
+	LB_Alphabetic,
+	LB_Open_Punctuation,
+	LB_Prefix_Numeric,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Exclamation,
+	LB_Prefix_Numeric,
+	LB_Alphabetic,
+	LB_Close_Parenthesis,
+	LB_Infix_Numeric,
+	LB_Alphabetic,
+	LB_Hyphen,
+	LB_Break_Symbols,
+	LB_Alphabetic,
+	LB_Infix_Numeric,
+	LB_Postfix_Numeric,
+	LB_Alphabetic,
+	LB_Exclamation,
+	LB_Alphabetic,
+	LB_Infix_Numeric,
+	LB_Alphabetic,
+	LB_Quotation,
+	LB_Alphabetic,
+	LB_Quotation,
+	LB_Alphabetic,
+	LB_Quotation,
+	LB_Alphabetic,
+	LB_Prefix_Numeric,
+	LB_Postfix_Numeric,
+	LB_Alphabetic,
+	LB_Prefix_Numeric,
+	LB_Alphabetic,
+	LB_Open_Punctuation,
+	LB_Alphabetic,
+	LB_Prefix_Numeric,
+	LB_Alphabetic,
+	LB_Open_Punctuation,
+	LB_Close_Parenthesis,
+	LB_Alphabetic,
+	LB_Break_Before,
+	LB_Alphabetic,
+	LB_Open_Punctuation,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Close_Punctuation,
+	LB_Alphabetic,
+	LB_Prefix_Numeric,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Break_Before,
+	LB_Alphabetic,
+	LB_Break_Before,
+	LB_Alphabetic,
+	LB_Break_Before,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Glue,
+	LB_Combining_Mark,
+	LB_Glue,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Infix_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Infix_Numeric,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Prefix_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Break_After,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Exclamation,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Hebrew_Letter,
+	LB_Alphabetic,
+	LB_Hebrew_Letter,
+	LB_Alphabetic,
+	LB_Postfix_Numeric,
+	LB_Infix_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Exclamation,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Exclamation,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Numeric,
+	LB_Postfix_Numeric,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Exclamation,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Infix_Numeric,
+	LB_Exclamation,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Break_After,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Postfix_Numeric,
+	LB_Alphabetic,
+	LB_Postfix_Numeric,
+	LB_Alphabetic,
+	LB_Prefix_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Prefix_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Prefix_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Postfix_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Prefix_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Break_Before,
+	LB_Alphabetic,
+	LB_Break_Before,
+	LB_Glue,
+	LB_Break_Before,
+	LB_Break_After,
+	LB_Glue,
+	LB_Exclamation,
+	LB_Glue,
+	LB_Alphabetic,
+	LB_Exclamation,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Break_After,
+	LB_Combining_Mark,
+	LB_Break_After,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Break_Before,
+	LB_Break_After,
+	LB_Break_Before,
+	LB_Alphabetic,
+	LB_Glue,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Numeric,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_JL,
+	LB_JV,
+	LB_JT,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Break_After,
+	LB_Nonstarter,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Prefix_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Exclamation,
+	LB_Break_After,
+	LB_Break_Before,
+	LB_Alphabetic,
+	LB_Exclamation,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Glue,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Exclamation,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Break_Before,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Glue,
+	LB_Break_After,
+	LB_ZWSpace,
+	LB_Combining_Mark,
+	LB_Break_After,
+	LB_Glue,
+	LB_Break_After,
+	LB_Break_Both,
+	LB_Alphabetic,
+	LB_Quotation,
+	LB_Open_Punctuation,
+	LB_Quotation,
+	LB_Open_Punctuation,
+	LB_Quotation,
+	LB_Alphabetic,
+	LB_Inseparable,
+	LB_Break_After,
+	LB_Mandatory_Break,
+	LB_Combining_Mark,
+	LB_Glue,
+	LB_Postfix_Numeric,
+	LB_Alphabetic,
+	LB_Quotation,
+	LB_Alphabetic,
+	LB_Nonstarter,
+	LB_Alphabetic,
+	LB_Infix_Numeric,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Nonstarter,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Word_Joiner,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Alphabetic,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Alphabetic,
+	LB_Prefix_Numeric,
+	LB_Postfix_Numeric,
+	LB_Prefix_Numeric,
+	LB_Postfix_Numeric,
+	LB_Prefix_Numeric,
+	LB_Postfix_Numeric,
+	LB_Prefix_Numeric,
+	LB_Postfix_Numeric,
+	LB_Prefix_Numeric,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Postfix_Numeric,
+	LB_Alphabetic,
+	LB_Postfix_Numeric,
+	LB_Alphabetic,
+	LB_Prefix_Numeric,
+	LB_Alphabetic,
+	LB_Prefix_Numeric,
+	LB_Alphabetic,
+	LB_Inseparable,
+	LB_Alphabetic,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Quotation,
+	LB_Alphabetic,
+	LB_Exclamation,
+	LB_Alphabetic,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Alphabetic,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Alphabetic,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Alphabetic,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Alphabetic,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Alphabetic,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Exclamation,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Exclamation,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Quotation,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Open_Punctuation,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Quotation,
+	LB_Alphabetic,
+	LB_Quotation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Break_After,
+	LB_Exclamation,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Break_Both,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Open_Punctuation,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Close_Punctuation,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Ideographic,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Nonstarter,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Ideographic,
+	LB_Combining_Mark,
+	LB_Ideographic,
+	LB_Combining_Mark,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Exclamation,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Postfix_Numeric,
+	LB_Alphabetic,
+	LB_Break_Before,
+	LB_Exclamation,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Break_Before,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_JL,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Break_After,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_H2,
+	LB_H3,
+	LB_Alphabetic,
+	LB_JV,
+	LB_Alphabetic,
+	LB_JT,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Hebrew_Letter,
+	LB_Combining_Mark,
+	LB_Hebrew_Letter,
+	LB_Alphabetic,
+	LB_Hebrew_Letter,
+	LB_Alphabetic,
+	LB_Hebrew_Letter,
+	LB_Alphabetic,
+	LB_Hebrew_Letter,
+	LB_Alphabetic,
+	LB_Hebrew_Letter,
+	LB_Alphabetic,
+	LB_Hebrew_Letter,
+	LB_Alphabetic,
+	LB_Hebrew_Letter,
+	LB_Alphabetic,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Alphabetic,
+	LB_Postfix_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Infix_Numeric,
+	LB_Close_Punctuation,
+	LB_Infix_Numeric,
+	LB_Exclamation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Inseparable,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Ideographic,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Ideographic,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Ideographic,
+	LB_Close_Punctuation,
+	LB_Ideographic,
+	LB_Close_Punctuation,
+	LB_Alphabetic,
+	LB_Nonstarter,
+	LB_Exclamation,
+	LB_Ideographic,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Prefix_Numeric,
+	LB_Postfix_Numeric,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Word_Joiner,
+	LB_Alphabetic,
+	LB_Exclamation,
+	LB_Ideographic,
+	LB_Prefix_Numeric,
+	LB_Postfix_Numeric,
+	LB_Ideographic,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Ideographic,
+	LB_Close_Punctuation,
+	LB_Ideographic,
+	LB_Close_Punctuation,
+	LB_Ideographic,
+	LB_Nonstarter,
+	LB_Ideographic,
+	LB_Exclamation,
+	LB_Ideographic,
+	LB_Open_Punctuation,
+	LB_Ideographic,
+	LB_Close_Punctuation,
+	LB_Ideographic,
+	LB_Open_Punctuation,
+	LB_Ideographic,
+	LB_Close_Punctuation,
+	LB_Ideographic,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Nonstarter,
+	LB_Alphabetic,
+	LB_Nonstarter,
+	LB_Alphabetic,
+	LB_Nonstarter,
+	LB_Alphabetic,
+	LB_Postfix_Numeric,
+	LB_Prefix_Numeric,
+	LB_Ideographic,
+	LB_Prefix_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Contingent_Break,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Inseparable,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Break_Before,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Break_Before,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Break_Before,
+	LB_Break_After,
+	LB_Exclamation,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Alphabetic,
+	LB_Close_Punctuation,
+	LB_Alphabetic,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Alphabetic,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Alphabetic,
+	LB_Open_Punctuation,
+	LB_Close_Punctuation,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Break_After,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Numeric,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Break_After,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Regional_Indicator,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Quotation,
+	LB_Nonstarter,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Ideographic,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic,
+	LB_Combining_Mark,
+	LB_Alphabetic
+};
+
+#endif	/* defined(PERL_IN_REGEXEC_C) */
+
+#if defined(PERL_IN_PERL_C)
+
+static const UV _Perl_SB_invlist[] = { /* for EBCDIC 037 */
+	2916,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	0,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x5,
+	0x6,
+	0xB,
+	0xD,
+	0xE,
+	0x15,
+	0x16,
+	0x25,
+	0x26,
+	0x40,
+	0x42,
+	0x4A,
+	0x4B,
+	0x4C,
+	0x4D,
+	0x4E,
+	0x51,
+	0x5A,
+	0x5B,
+	0x5D,
+	0x5E,
+	0x60,
+	0x61,
+	0x62,
+	0x6A,
+	0x6B,
+	0x6C,
+	0x6F,
+	0x70,
+	0x71,
+	0x79,
+	0x7A,
+	0x7B,
+	0x7D,
+	0x7E,
+	0x7F,
+	0x80,
+	0x81,
+	0x8A,
+	0x8C,
+	0x8F,
+	0x91,
+	0x9D,
+	0x9E,
+	0x9F,
+	0xA0,
+	0xA1,
+	0xA2,
+	0xAA,
+	0xAC,
+	0xAF,
+	0xBA,
+	0xBC,
+	0xC0,
+	0xC1,
+	0xCA,
+	0xCB,
+	0xD0,
+	0xD1,
+	0xDA,
+	0xDB,
+	0xE0,
+	0xE2,
+	0xEA,
+	0xEB,
+	0xF0,
+	0xFA,
+	0xFB,
+	0xFF,
+	0x100,
+	0x101,
+	0x102,
+	0x103,
+	0x104,
+	0x105,
+	0x106,
+	0x107,
+	0x108,
+	0x109,
+	0x10A,
+	0x10B,
+	0x10C,
+	0x10D,
+	0x10E,
+	0x10F,
+	0x110,
+	0x111,
+	0x112,
+	0x113,
+	0x114,
+	0x115,
+	0x116,
+	0x117,
+	0x118,
+	0x119,
+	0x11A,
+	0x11B,
+	0x11C,
+	0x11D,
+	0x11E,
+	0x11F,
+	0x120,
+	0x121,
+	0x122,
+	0x123,
+	0x124,
+	0x125,
+	0x126,
+	0x127,
+	0x128,
+	0x129,
+	0x12A,
+	0x12B,
+	0x12C,
+	0x12D,
+	0x12E,
+	0x12F,
+	0x130,
+	0x131,
+	0x132,
+	0x133,
+	0x134,
+	0x135,
+	0x136,
+	0x137,
+	0x139,
+	0x13A,
+	0x13B,
+	0x13C,
+	0x13D,
+	0x13E,
+	0x13F,
+	0x140,
+	0x141,
+	0x142,
+	0x143,
+	0x144,
+	0x145,
+	0x146,
+	0x147,
+	0x148,
+	0x14A,
+	0x14B,
+	0x14C,
+	0x14D,
+	0x14E,
+	0x14F,
+	0x150,
+	0x151,
+	0x152,
+	0x153,
+	0x154,
+	0x155,
+	0x156,
+	0x157,
+	0x158,
+	0x159,
+	0x15A,
+	0x15B,
+	0x15C,
+	0x15D,
+	0x15E,
+	0x15F,
+	0x160,
+	0x161,
+	0x162,
+	0x163,
+	0x164,
+	0x165,
+	0x166,
+	0x167,
+	0x168,
+	0x169,
+	0x16A,
+	0x16B,
+	0x16C,
+	0x16D,
+	0x16E,
+	0x16F,
+	0x170,
+	0x171,
+	0x172,
+	0x173,
+	0x174,
+	0x175,
+	0x176,
+	0x177,
+	0x178,
+	0x17A,
+	0x17B,
+	0x17C,
+	0x17D,
+	0x17E,
+	0x181,
+	0x183,
+	0x184,
+	0x185,
+	0x186,
+	0x188,
+	0x189,
+	0x18C,
+	0x18E,
+	0x192,
+	0x193,
+	0x195,
+	0x196,
+	0x199,
+	0x19C,
+	0x19E,
+	0x19F,
+	0x1A1,
+	0x1A2,
+	0x1A3,
+	0x1A4,
+	0x1A5,
+	0x1A6,
+	0x1A8,
+	0x1A9,
+	0x1AA,
+	0x1AC,
+	0x1AD,
+	0x1AE,
+	0x1B0,
+	0x1B1,
+	0x1B4,
+	0x1B5,
+	0x1B6,
+	0x1B7,
+	0x1B9,
+	0x1BB,
+	0x1BC,
+	0x1BD,
+	0x1C0,
+	0x1C4,
+	0x1C6,
+	0x1C7,
+	0x1C9,
+	0x1CA,
+	0x1CC,
+	0x1CD,
+	0x1CE,
+	0x1CF,
+	0x1D0,
+	0x1D1,
+	0x1D2,
+	0x1D3,
+	0x1D4,
+	0x1D5,
+	0x1D6,
+	0x1D7,
+	0x1D8,
+	0x1D9,
+	0x1DA,
+	0x1DB,
+	0x1DC,
+	0x1DE,
+	0x1DF,
+	0x1E0,
+	0x1E1,
+	0x1E2,
+	0x1E3,
+	0x1E4,
+	0x1E5,
+	0x1E6,
+	0x1E7,
+	0x1E8,
+	0x1E9,
+	0x1EA,
+	0x1EB,
+	0x1EC,
+	0x1ED,
+	0x1EE,
+	0x1EF,
+	0x1F1,
+	0x1F3,
+	0x1F4,
+	0x1F5,
+	0x1F6,
+	0x1F9,
+	0x1FA,
+	0x1FB,
+	0x1FC,
+	0x1FD,
+	0x1FE,
+	0x1FF,
+	0x200,
+	0x201,
+	0x202,
+	0x203,
+	0x204,
+	0x205,
+	0x206,
+	0x207,
+	0x208,
+	0x209,
+	0x20A,
+	0x20B,
+	0x20C,
+	0x20D,
+	0x20E,
+	0x20F,
+	0x210,
+	0x211,
+	0x212,
+	0x213,
+	0x214,
+	0x215,
+	0x216,
+	0x217,
+	0x218,
+	0x219,
+	0x21A,
+	0x21B,
+	0x21C,
+	0x21D,
+	0x21E,
+	0x21F,
+	0x220,
+	0x221,
+	0x222,
+	0x223,
+	0x224,
+	0x225,
+	0x226,
+	0x227,
+	0x228,
+	0x229,
+	0x22A,
+	0x22B,
+	0x22C,
+	0x22D,
+	0x22E,
+	0x22F,
+	0x230,
+	0x231,
+	0x232,
+	0x233,
+	0x23A,
+	0x23C,
+	0x23D,
+	0x23F,
+	0x241,
+	0x242,
+	0x243,
+	0x247,
+	0x248,
+	0x249,
+	0x24A,
+	0x24B,
+	0x24C,
+	0x24D,
+	0x24E,
+	0x24F,
+	0x294,
+	0x295,
+	0x2B9,
+	0x2C0,
+	0x2C2,
+	0x2C6,
+	0x2D2,
+	0x2E0,
+	0x2E5,
+	0x2EC,
+	0x2ED,
+	0x2EE,
+	0x2EF,
+	0x300,
+	0x370,
+	0x371,
+	0x372,
+	0x373,
+	0x374,
+	0x375,
+	0x376,
+	0x377,
+	0x378,
+	0x37A,
+	0x37E,
+	0x37F,
+	0x380,
+	0x386,
+	0x387,
+	0x388,
+	0x38B,
+	0x38C,
+	0x38D,
+	0x38E,
+	0x390,
+	0x391,
+	0x3A2,
+	0x3A3,
+	0x3AC,
+	0x3CF,
+	0x3D0,
+	0x3D2,
+	0x3D5,
+	0x3D8,
+	0x3D9,
+	0x3DA,
+	0x3DB,
+	0x3DC,
+	0x3DD,
+	0x3DE,
+	0x3DF,
+	0x3E0,
+	0x3E1,
+	0x3E2,
+	0x3E3,
+	0x3E4,
+	0x3E5,
+	0x3E6,
+	0x3E7,
+	0x3E8,
+	0x3E9,
+	0x3EA,
+	0x3EB,
+	0x3EC,
+	0x3ED,
+	0x3EE,
+	0x3EF,
+	0x3F4,
+	0x3F5,
+	0x3F6,
+	0x3F7,
+	0x3F8,
+	0x3F9,
+	0x3FB,
+	0x3FD,
+	0x430,
+	0x460,
+	0x461,
+	0x462,
+	0x463,
+	0x464,
+	0x465,
+	0x466,
+	0x467,
+	0x468,
+	0x469,
+	0x46A,
+	0x46B,
+	0x46C,
+	0x46D,
+	0x46E,
+	0x46F,
+	0x470,
+	0x471,
+	0x472,
+	0x473,
+	0x474,
+	0x475,
+	0x476,
+	0x477,
+	0x478,
+	0x479,
+	0x47A,
+	0x47B,
+	0x47C,
+	0x47D,
+	0x47E,
+	0x47F,
+	0x480,
+	0x481,
+	0x482,
+	0x483,
+	0x48A,
+	0x48B,
+	0x48C,
+	0x48D,
+	0x48E,
+	0x48F,
+	0x490,
+	0x491,
+	0x492,
+	0x493,
+	0x494,
+	0x495,
+	0x496,
+	0x497,
+	0x498,
+	0x499,
+	0x49A,
+	0x49B,
+	0x49C,
+	0x49D,
+	0x49E,
+	0x49F,
+	0x4A0,
+	0x4A1,
+	0x4A2,
+	0x4A3,
+	0x4A4,
+	0x4A5,
+	0x4A6,
+	0x4A7,
+	0x4A8,
+	0x4A9,
+	0x4AA,
+	0x4AB,
+	0x4AC,
+	0x4AD,
+	0x4AE,
+	0x4AF,
+	0x4B0,
+	0x4B1,
+	0x4B2,
+	0x4B3,
+	0x4B4,
+	0x4B5,
+	0x4B6,
+	0x4B7,
+	0x4B8,
+	0x4B9,
+	0x4BA,
+	0x4BB,
+	0x4BC,
+	0x4BD,
+	0x4BE,
+	0x4BF,
+	0x4C0,
+	0x4C2,
+	0x4C3,
+	0x4C4,
+	0x4C5,
+	0x4C6,
+	0x4C7,
+	0x4C8,
+	0x4C9,
+	0x4CA,
+	0x4CB,
+	0x4CC,
+	0x4CD,
+	0x4CE,
+	0x4D0,
+	0x4D1,
+	0x4D2,
+	0x4D3,
+	0x4D4,
+	0x4D5,
+	0x4D6,
+	0x4D7,
+	0x4D8,
+	0x4D9,
+	0x4DA,
+	0x4DB,
+	0x4DC,
+	0x4DD,
+	0x4DE,
+	0x4DF,
+	0x4E0,
+	0x4E1,
+	0x4E2,
+	0x4E3,
+	0x4E4,
+	0x4E5,
+	0x4E6,
+	0x4E7,
+	0x4E8,
+	0x4E9,
+	0x4EA,
+	0x4EB,
+	0x4EC,
+	0x4ED,
+	0x4EE,
+	0x4EF,
+	0x4F0,
+	0x4F1,
+	0x4F2,
+	0x4F3,
+	0x4F4,
+	0x4F5,
+	0x4F6,
+	0x4F7,
+	0x4F8,
+	0x4F9,
+	0x4FA,
+	0x4FB,
+	0x4FC,
+	0x4FD,
+	0x4FE,
+	0x4FF,
+	0x500,
+	0x501,
+	0x502,
+	0x503,
+	0x504,
+	0x505,
+	0x506,
+	0x507,
+	0x508,
+	0x509,
+	0x50A,
+	0x50B,
+	0x50C,
+	0x50D,
+	0x50E,
+	0x50F,
+	0x510,
+	0x511,
+	0x512,
+	0x513,
+	0x514,
+	0x515,
+	0x516,
+	0x517,
+	0x518,
+	0x519,
+	0x51A,
+	0x51B,
+	0x51C,
+	0x51D,
+	0x51E,
+	0x51F,
+	0x520,
+	0x521,
+	0x522,
+	0x523,
+	0x524,
+	0x525,
+	0x526,
+	0x527,
+	0x528,
+	0x529,
+	0x52A,
+	0x52B,
+	0x52C,
+	0x52D,
+	0x52E,
+	0x52F,
+	0x530,
+	0x531,
+	0x557,
+	0x559,
+	0x55A,
+	0x55D,
+	0x55E,
+	0x561,
+	0x588,
+	0x589,
+	0x58A,
+	0x591,
+	0x5BE,
+	0x5BF,
+	0x5C0,
+	0x5C1,
+	0x5C3,
+	0x5C4,
+	0x5C6,
+	0x5C7,
+	0x5C8,
+	0x5D0,
+	0x5EB,
+	0x5F0,
+	0x5F4,
+	0x600,
+	0x606,
+	0x60C,
+	0x60E,
+	0x610,
+	0x61B,
+	0x61C,
+	0x61D,
+	0x61F,
+	0x620,
+	0x64B,
+	0x660,
+	0x66A,
+	0x66B,
+	0x66D,
+	0x66E,
+	0x670,
+	0x671,
+	0x6D4,
+	0x6D5,
+	0x6D6,
+	0x6DD,
+	0x6DE,
+	0x6DF,
+	0x6E5,
+	0x6E7,
+	0x6E9,
+	0x6EA,
+	0x6EE,
+	0x6F0,
+	0x6FA,
+	0x6FD,
+	0x6FF,
+	0x700,
+	0x703,
+	0x70F,
+	0x710,
+	0x711,
+	0x712,
+	0x730,
+	0x74B,
+	0x74D,
+	0x7A6,
+	0x7B1,
+	0x7B2,
+	0x7C0,
+	0x7CA,
+	0x7EB,
+	0x7F4,
+	0x7F6,
+	0x7F8,
+	0x7F9,
+	0x7FA,
+	0x7FB,
+	0x800,
+	0x816,
+	0x81A,
+	0x81B,
+	0x824,
+	0x825,
+	0x828,
+	0x829,
+	0x82E,
+	0x840,
+	0x859,
+	0x85C,
+	0x8A0,
+	0x8B5,
+	0x8E3,
+	0x904,
+	0x93A,
+	0x93D,
+	0x93E,
+	0x950,
+	0x951,
+	0x958,
+	0x962,
+	0x964,
+	0x966,
+	0x970,
+	0x971,
+	0x981,
+	0x984,
+	0x985,
+	0x98D,
+	0x98F,
+	0x991,
+	0x993,
+	0x9A9,
+	0x9AA,
+	0x9B1,
+	0x9B2,
+	0x9B3,
+	0x9B6,
+	0x9BA,
+	0x9BC,
+	0x9BD,
+	0x9BE,
+	0x9C5,
+	0x9C7,
+	0x9C9,
+	0x9CB,
+	0x9CE,
+	0x9CF,
+	0x9D7,
+	0x9D8,
+	0x9DC,
+	0x9DE,
+	0x9DF,
+	0x9E2,
+	0x9E4,
+	0x9E6,
+	0x9F0,
+	0x9F2,
+	0xA01,
+	0xA04,
+	0xA05,
+	0xA0B,
+	0xA0F,
+	0xA11,
+	0xA13,
+	0xA29,
+	0xA2A,
+	0xA31,
+	0xA32,
+	0xA34,
+	0xA35,
+	0xA37,
+	0xA38,
+	0xA3A,
+	0xA3C,
+	0xA3D,
+	0xA3E,
+	0xA43,
+	0xA47,
+	0xA49,
+	0xA4B,
+	0xA4E,
+	0xA51,
+	0xA52,
+	0xA59,
+	0xA5D,
+	0xA5E,
+	0xA5F,
+	0xA66,
+	0xA70,
+	0xA72,
+	0xA75,
+	0xA76,
+	0xA81,
+	0xA84,
+	0xA85,
+	0xA8E,
+	0xA8F,
+	0xA92,
+	0xA93,
+	0xAA9,
+	0xAAA,
+	0xAB1,
+	0xAB2,
+	0xAB4,
+	0xAB5,
+	0xABA,
+	0xABC,
+	0xABD,
+	0xABE,
+	0xAC6,
+	0xAC7,
+	0xACA,
+	0xACB,
+	0xACE,
+	0xAD0,
+	0xAD1,
+	0xAE0,
+	0xAE2,
+	0xAE4,
+	0xAE6,
+	0xAF0,
+	0xAF9,
+	0xAFA,
+	0xB01,
+	0xB04,
+	0xB05,
+	0xB0D,
+	0xB0F,
+	0xB11,
+	0xB13,
+	0xB29,
+	0xB2A,
+	0xB31,
+	0xB32,
+	0xB34,
+	0xB35,
+	0xB3A,
+	0xB3C,
+	0xB3D,
+	0xB3E,
+	0xB45,
+	0xB47,
+	0xB49,
+	0xB4B,
+	0xB4E,
+	0xB56,
+	0xB58,
+	0xB5C,
+	0xB5E,
+	0xB5F,
+	0xB62,
+	0xB64,
+	0xB66,
+	0xB70,
+	0xB71,
+	0xB72,
+	0xB82,
+	0xB83,
+	0xB84,
+	0xB85,
+	0xB8B,
+	0xB8E,
+	0xB91,
+	0xB92,
+	0xB96,
+	0xB99,
+	0xB9B,
+	0xB9C,
+	0xB9D,
+	0xB9E,
+	0xBA0,
+	0xBA3,
+	0xBA5,
+	0xBA8,
+	0xBAB,
+	0xBAE,
+	0xBBA,
+	0xBBE,
+	0xBC3,
+	0xBC6,
+	0xBC9,
+	0xBCA,
+	0xBCE,
+	0xBD0,
+	0xBD1,
+	0xBD7,
+	0xBD8,
+	0xBE6,
+	0xBF0,
+	0xC00,
+	0xC04,
+	0xC05,
+	0xC0D,
+	0xC0E,
+	0xC11,
+	0xC12,
+	0xC29,
+	0xC2A,
+	0xC3A,
+	0xC3D,
+	0xC3E,
+	0xC45,
+	0xC46,
+	0xC49,
+	0xC4A,
+	0xC4E,
+	0xC55,
+	0xC57,
+	0xC58,
+	0xC5B,
+	0xC60,
+	0xC62,
+	0xC64,
+	0xC66,
+	0xC70,
+	0xC81,
+	0xC84,
+	0xC85,
+	0xC8D,
+	0xC8E,
+	0xC91,
+	0xC92,
+	0xCA9,
+	0xCAA,
+	0xCB4,
+	0xCB5,
+	0xCBA,
+	0xCBC,
+	0xCBD,
+	0xCBE,
+	0xCC5,
+	0xCC6,
+	0xCC9,
+	0xCCA,
+	0xCCE,
+	0xCD5,
+	0xCD7,
+	0xCDE,
+	0xCDF,
+	0xCE0,
+	0xCE2,
+	0xCE4,
+	0xCE6,
+	0xCF0,
+	0xCF1,
+	0xCF3,
+	0xD01,
+	0xD04,
+	0xD05,
+	0xD0D,
+	0xD0E,
+	0xD11,
+	0xD12,
+	0xD3B,
+	0xD3D,
+	0xD3E,
+	0xD45,
+	0xD46,
+	0xD49,
+	0xD4A,
+	0xD4E,
+	0xD4F,
+	0xD57,
+	0xD58,
+	0xD5F,
+	0xD62,
+	0xD64,
+	0xD66,
+	0xD70,
+	0xD7A,
+	0xD80,
+	0xD82,
+	0xD84,
+	0xD85,
+	0xD97,
+	0xD9A,
+	0xDB2,
+	0xDB3,
+	0xDBC,
+	0xDBD,
+	0xDBE,
+	0xDC0,
+	0xDC7,
+	0xDCA,
+	0xDCB,
+	0xDCF,
+	0xDD5,
+	0xDD6,
+	0xDD7,
+	0xDD8,
+	0xDE0,
+	0xDE6,
+	0xDF0,
+	0xDF2,
+	0xDF4,
+	0xE01,
+	0xE31,
+	0xE32,
+	0xE34,
+	0xE3B,
+	0xE40,
+	0xE47,
+	0xE4F,
+	0xE50,
+	0xE5A,
+	0xE81,
+	0xE83,
+	0xE84,
+	0xE85,
+	0xE87,
+	0xE89,
+	0xE8A,
+	0xE8B,
+	0xE8D,
+	0xE8E,
+	0xE94,
+	0xE98,
+	0xE99,
+	0xEA0,
+	0xEA1,
+	0xEA4,
+	0xEA5,
+	0xEA6,
+	0xEA7,
+	0xEA8,
+	0xEAA,
+	0xEAC,
+	0xEAD,
+	0xEB1,
+	0xEB2,
+	0xEB4,
+	0xEBA,
+	0xEBB,
+	0xEBD,
+	0xEBE,
+	0xEC0,
+	0xEC5,
+	0xEC6,
+	0xEC7,
+	0xEC8,
+	0xECE,
+	0xED0,
+	0xEDA,
+	0xEDC,
+	0xEE0,
+	0xF00,
+	0xF01,
+	0xF18,
+	0xF1A,
+	0xF20,
+	0xF2A,
+	0xF35,
+	0xF36,
+	0xF37,
+	0xF38,
+	0xF39,
+	0xF3A,
+	0xF3E,
+	0xF40,
+	0xF48,
+	0xF49,
+	0xF6D,
+	0xF71,
+	0xF85,
+	0xF86,
+	0xF88,
+	0xF8D,
+	0xF98,
+	0xF99,
+	0xFBD,
+	0xFC6,
+	0xFC7,
+	0x1000,
+	0x102B,
+	0x103F,
+	0x1040,
+	0x104A,
+	0x104C,
+	0x1050,
+	0x1056,
+	0x105A,
+	0x105E,
+	0x1061,
+	0x1062,
+	0x1065,
+	0x1067,
+	0x106E,
+	0x1071,
+	0x1075,
+	0x1082,
+	0x108E,
+	0x108F,
+	0x1090,
+	0x109A,
+	0x109E,
+	0x10A0,
+	0x10C6,
+	0x10C7,
+	0x10C8,
+	0x10CD,
+	0x10CE,
+	0x10D0,
+	0x10FB,
+	0x10FC,
+	0x1249,
+	0x124A,
+	0x124E,
+	0x1250,
+	0x1257,
+	0x1258,
+	0x1259,
+	0x125A,
+	0x125E,
+	0x1260,
+	0x1289,
+	0x128A,
+	0x128E,
+	0x1290,
+	0x12B1,
+	0x12B2,
+	0x12B6,
+	0x12B8,
+	0x12BF,
+	0x12C0,
+	0x12C1,
+	0x12C2,
+	0x12C6,
+	0x12C8,
+	0x12D7,
+	0x12D8,
+	0x1311,
+	0x1312,
+	0x1316,
+	0x1318,
+	0x135B,
+	0x135D,
+	0x1360,
+	0x1362,
+	0x1363,
+	0x1367,
+	0x1369,
+	0x1380,
+	0x1390,
+	0x13A0,
+	0x13F6,
+	0x13F8,
+	0x13FE,
+	0x1401,
+	0x166D,
+	0x166E,
+	0x166F,
+	0x1680,
+	0x1681,
+	0x169B,
+	0x169D,
+	0x16A0,
+	0x16EB,
+	0x16EE,
+	0x16F9,
+	0x1700,
+	0x170D,
+	0x170E,
+	0x1712,
+	0x1715,
+	0x1720,
+	0x1732,
+	0x1735,
+	0x1737,
+	0x1740,
+	0x1752,
+	0x1754,
+	0x1760,
+	0x176D,
+	0x176E,
+	0x1771,
+	0x1772,
+	0x1774,
+	0x1780,
+	0x17B4,
+	0x17D4,
+	0x17D7,
+	0x17D8,
+	0x17DC,
+	0x17DD,
+	0x17DE,
+	0x17E0,
+	0x17EA,
+	0x1802,
+	0x1803,
+	0x1804,
+	0x1808,
+	0x1809,
+	0x180A,
+	0x180B,
+	0x180E,
+	0x180F,
+	0x1810,
+	0x181A,
+	0x1820,
+	0x1878,
+	0x1880,
+	0x18A9,
+	0x18AA,
+	0x18AB,
+	0x18B0,
+	0x18F6,
+	0x1900,
+	0x191F,
+	0x1920,
+	0x192C,
+	0x1930,
+	0x193C,
+	0x1944,
+	0x1946,
+	0x1950,
+	0x196E,
+	0x1970,
+	0x1975,
+	0x1980,
+	0x19AC,
+	0x19B0,
+	0x19CA,
+	0x19D0,
+	0x19DA,
+	0x1A00,
+	0x1A17,
+	0x1A1C,
+	0x1A20,
+	0x1A55,
+	0x1A5F,
+	0x1A60,
+	0x1A7D,
+	0x1A7F,
+	0x1A80,
+	0x1A8A,
+	0x1A90,
+	0x1A9A,
+	0x1AA7,
+	0x1AA8,
+	0x1AAC,
+	0x1AB0,
+	0x1ABF,
+	0x1B00,
+	0x1B05,
+	0x1B34,
+	0x1B45,
+	0x1B4C,
+	0x1B50,
+	0x1B5A,
+	0x1B5C,
+	0x1B5E,
+	0x1B60,
+	0x1B6B,
+	0x1B74,
+	0x1B80,
+	0x1B83,
+	0x1BA1,
+	0x1BAE,
+	0x1BB0,
+	0x1BBA,
+	0x1BE6,
+	0x1BF4,
+	0x1C00,
+	0x1C24,
+	0x1C38,
+	0x1C3B,
+	0x1C3D,
+	0x1C40,
+	0x1C4A,
+	0x1C4D,
+	0x1C50,
+	0x1C5A,
+	0x1C7E,
+	0x1C80,
+	0x1CD0,
+	0x1CD3,
+	0x1CD4,
+	0x1CE9,
+	0x1CED,
+	0x1CEE,
+	0x1CF2,
+	0x1CF5,
+	0x1CF7,
+	0x1CF8,
+	0x1CFA,
+	0x1D00,
+	0x1DC0,
+	0x1DF6,
+	0x1DFC,
+	0x1E00,
+	0x1E01,
+	0x1E02,
+	0x1E03,
+	0x1E04,
+	0x1E05,
+	0x1E06,
+	0x1E07,
+	0x1E08,
+	0x1E09,
+	0x1E0A,
+	0x1E0B,
+	0x1E0C,
+	0x1E0D,
+	0x1E0E,
+	0x1E0F,
+	0x1E10,
+	0x1E11,
+	0x1E12,
+	0x1E13,
+	0x1E14,
+	0x1E15,
+	0x1E16,
+	0x1E17,
+	0x1E18,
+	0x1E19,
+	0x1E1A,
+	0x1E1B,
+	0x1E1C,
+	0x1E1D,
+	0x1E1E,
+	0x1E1F,
+	0x1E20,
+	0x1E21,
+	0x1E22,
+	0x1E23,
+	0x1E24,
+	0x1E25,
+	0x1E26,
+	0x1E27,
+	0x1E28,
+	0x1E29,
+	0x1E2A,
+	0x1E2B,
+	0x1E2C,
+	0x1E2D,
+	0x1E2E,
+	0x1E2F,
+	0x1E30,
+	0x1E31,
+	0x1E32,
+	0x1E33,
+	0x1E34,
+	0x1E35,
+	0x1E36,
+	0x1E37,
+	0x1E38,
+	0x1E39,
+	0x1E3A,
+	0x1E3B,
+	0x1E3C,
+	0x1E3D,
+	0x1E3E,
+	0x1E3F,
+	0x1E40,
+	0x1E41,
+	0x1E42,
+	0x1E43,
+	0x1E44,
+	0x1E45,
+	0x1E46,
+	0x1E47,
+	0x1E48,
+	0x1E49,
+	0x1E4A,
+	0x1E4B,
+	0x1E4C,
+	0x1E4D,
+	0x1E4E,
+	0x1E4F,
+	0x1E50,
+	0x1E51,
+	0x1E52,
+	0x1E53,
+	0x1E54,
+	0x1E55,
+	0x1E56,
+	0x1E57,
+	0x1E58,
+	0x1E59,
+	0x1E5A,
+	0x1E5B,
+	0x1E5C,
+	0x1E5D,
+	0x1E5E,
+	0x1E5F,
+	0x1E60,
+	0x1E61,
+	0x1E62,
+	0x1E63,
+	0x1E64,
+	0x1E65,
+	0x1E66,
+	0x1E67,
+	0x1E68,
+	0x1E69,
+	0x1E6A,
+	0x1E6B,
+	0x1E6C,
+	0x1E6D,
+	0x1E6E,
+	0x1E6F,
+	0x1E70,
+	0x1E71,
+	0x1E72,
+	0x1E73,
+	0x1E74,
+	0x1E75,
+	0x1E76,
+	0x1E77,
+	0x1E78,
+	0x1E79,
+	0x1E7A,
+	0x1E7B,
+	0x1E7C,
+	0x1E7D,
+	0x1E7E,
+	0x1E7F,
+	0x1E80,
+	0x1E81,
+	0x1E82,
+	0x1E83,
+	0x1E84,
+	0x1E85,
+	0x1E86,
+	0x1E87,
+	0x1E88,
+	0x1E89,
+	0x1E8A,
+	0x1E8B,
+	0x1E8C,
+	0x1E8D,
+	0x1E8E,
+	0x1E8F,
+	0x1E90,
+	0x1E91,
+	0x1E92,
+	0x1E93,
+	0x1E94,
+	0x1E95,
+	0x1E9E,
+	0x1E9F,
+	0x1EA0,
+	0x1EA1,
+	0x1EA2,
+	0x1EA3,
+	0x1EA4,
+	0x1EA5,
+	0x1EA6,
+	0x1EA7,
+	0x1EA8,
+	0x1EA9,
+	0x1EAA,
+	0x1EAB,
+	0x1EAC,
+	0x1EAD,
+	0x1EAE,
+	0x1EAF,
+	0x1EB0,
+	0x1EB1,
+	0x1EB2,
+	0x1EB3,
+	0x1EB4,
+	0x1EB5,
+	0x1EB6,
+	0x1EB7,
+	0x1EB8,
+	0x1EB9,
+	0x1EBA,
+	0x1EBB,
+	0x1EBC,
+	0x1EBD,
+	0x1EBE,
+	0x1EBF,
+	0x1EC0,
+	0x1EC1,
+	0x1EC2,
+	0x1EC3,
+	0x1EC4,
+	0x1EC5,
+	0x1EC6,
+	0x1EC7,
+	0x1EC8,
+	0x1EC9,
+	0x1ECA,
+	0x1ECB,
+	0x1ECC,
+	0x1ECD,
+	0x1ECE,
+	0x1ECF,
+	0x1ED0,
+	0x1ED1,
+	0x1ED2,
+	0x1ED3,
+	0x1ED4,
+	0x1ED5,
+	0x1ED6,
+	0x1ED7,
+	0x1ED8,
+	0x1ED9,
+	0x1EDA,
+	0x1EDB,
+	0x1EDC,
+	0x1EDD,
+	0x1EDE,
+	0x1EDF,
+	0x1EE0,
+	0x1EE1,
+	0x1EE2,
+	0x1EE3,
+	0x1EE4,
+	0x1EE5,
+	0x1EE6,
+	0x1EE7,
+	0x1EE8,
+	0x1EE9,
+	0x1EEA,
+	0x1EEB,
+	0x1EEC,
+	0x1EED,
+	0x1EEE,
+	0x1EEF,
+	0x1EF0,
+	0x1EF1,
+	0x1EF2,
+	0x1EF3,
+	0x1EF4,
+	0x1EF5,
+	0x1EF6,
+	0x1EF7,
+	0x1EF8,
+	0x1EF9,
+	0x1EFA,
+	0x1EFB,
+	0x1EFC,
+	0x1EFD,
+	0x1EFE,
+	0x1EFF,
+	0x1F08,
+	0x1F10,
+	0x1F16,
+	0x1F18,
+	0x1F1E,
+	0x1F20,
+	0x1F28,
+	0x1F30,
+	0x1F38,
+	0x1F40,
+	0x1F46,
+	0x1F48,
+	0x1F4E,
+	0x1F50,
+	0x1F58,
+	0x1F59,
+	0x1F5A,
+	0x1F5B,
+	0x1F5C,
+	0x1F5D,
+	0x1F5E,
+	0x1F5F,
+	0x1F60,
+	0x1F68,
+	0x1F70,
+	0x1F7E,
+	0x1F80,
+	0x1F88,
+	0x1F90,
+	0x1F98,
+	0x1FA0,
+	0x1FA8,
+	0x1FB0,
+	0x1FB5,
+	0x1FB6,
+	0x1FB8,
+	0x1FBD,
+	0x1FBE,
+	0x1FBF,
+	0x1FC2,
+	0x1FC5,
+	0x1FC6,
+	0x1FC8,
+	0x1FCD,
+	0x1FD0,
+	0x1FD4,
+	0x1FD6,
+	0x1FD8,
+	0x1FDC,
+	0x1FE0,
+	0x1FE8,
+	0x1FED,
+	0x1FF2,
+	0x1FF5,
+	0x1FF6,
+	0x1FF8,
+	0x1FFD,
+	0x2000,
+	0x200B,
+	0x200C,
+	0x200E,
+	0x2010,
+	0x2013,
+	0x2015,
+	0x2018,
+	0x2020,
+	0x2024,
+	0x2025,
+	0x2028,
+	0x202A,
+	0x202F,
+	0x2030,
+	0x2039,
+	0x203B,
+	0x203C,
+	0x203E,
+	0x2045,
+	0x2047,
+	0x204A,
+	0x205F,
+	0x2060,
+	0x2065,
+	0x2066,
+	0x2070,
+	0x2071,
+	0x2072,
+	0x207D,
+	0x207F,
+	0x2080,
+	0x208D,
+	0x208F,
+	0x2090,
+	0x209D,
+	0x20D0,
+	0x20F1,
+	0x2102,
+	0x2103,
+	0x2107,
+	0x2108,
+	0x210A,
+	0x210B,
+	0x210E,
+	0x2110,
+	0x2113,
+	0x2114,
+	0x2115,
+	0x2116,
+	0x2119,
+	0x211E,
+	0x2124,
+	0x2125,
+	0x2126,
+	0x2127,
+	0x2128,
+	0x2129,
+	0x212A,
+	0x212E,
+	0x212F,
+	0x2130,
+	0x2134,
+	0x2135,
+	0x2139,
+	0x213A,
+	0x213C,
+	0x213E,
+	0x2140,
+	0x2145,
+	0x2146,
+	0x214A,
+	0x214E,
+	0x214F,
+	0x2160,
+	0x2170,
+	0x2180,
+	0x2183,
+	0x2184,
+	0x2185,
+	0x2189,
+	0x2308,
+	0x230C,
+	0x2329,
+	0x232B,
+	0x24B6,
+	0x24D0,
+	0x24EA,
+	0x275B,
+	0x2761,
+	0x2768,
+	0x2776,
+	0x27C5,
+	0x27C7,
+	0x27E6,
+	0x27F0,
+	0x2983,
+	0x2999,
+	0x29D8,
+	0x29DC,
+	0x29FC,
+	0x29FE,
+	0x2C00,
+	0x2C2F,
+	0x2C30,
+	0x2C5F,
+	0x2C60,
+	0x2C61,
+	0x2C62,
+	0x2C65,
+	0x2C67,
+	0x2C68,
+	0x2C69,
+	0x2C6A,
+	0x2C6B,
+	0x2C6C,
+	0x2C6D,
+	0x2C71,
+	0x2C72,
+	0x2C73,
+	0x2C75,
+	0x2C76,
+	0x2C7E,
+	0x2C81,
+	0x2C82,
+	0x2C83,
+	0x2C84,
+	0x2C85,
+	0x2C86,
+	0x2C87,
+	0x2C88,
+	0x2C89,
+	0x2C8A,
+	0x2C8B,
+	0x2C8C,
+	0x2C8D,
+	0x2C8E,
+	0x2C8F,
+	0x2C90,
+	0x2C91,
+	0x2C92,
+	0x2C93,
+	0x2C94,
+	0x2C95,
+	0x2C96,
+	0x2C97,
+	0x2C98,
+	0x2C99,
+	0x2C9A,
+	0x2C9B,
+	0x2C9C,
+	0x2C9D,
+	0x2C9E,
+	0x2C9F,
+	0x2CA0,
+	0x2CA1,
+	0x2CA2,
+	0x2CA3,
+	0x2CA4,
+	0x2CA5,
+	0x2CA6,
+	0x2CA7,
+	0x2CA8,
+	0x2CA9,
+	0x2CAA,
+	0x2CAB,
+	0x2CAC,
+	0x2CAD,
+	0x2CAE,
+	0x2CAF,
+	0x2CB0,
+	0x2CB1,
+	0x2CB2,
+	0x2CB3,
+	0x2CB4,
+	0x2CB5,
+	0x2CB6,
+	0x2CB7,
+	0x2CB8,
+	0x2CB9,
+	0x2CBA,
+	0x2CBB,
+	0x2CBC,
+	0x2CBD,
+	0x2CBE,
+	0x2CBF,
+	0x2CC0,
+	0x2CC1,
+	0x2CC2,
+	0x2CC3,
+	0x2CC4,
+	0x2CC5,
+	0x2CC6,
+	0x2CC7,
+	0x2CC8,
+	0x2CC9,
+	0x2CCA,
+	0x2CCB,
+	0x2CCC,
+	0x2CCD,
+	0x2CCE,
+	0x2CCF,
+	0x2CD0,
+	0x2CD1,
+	0x2CD2,
+	0x2CD3,
+	0x2CD4,
+	0x2CD5,
+	0x2CD6,
+	0x2CD7,
+	0x2CD8,
+	0x2CD9,
+	0x2CDA,
+	0x2CDB,
+	0x2CDC,
+	0x2CDD,
+	0x2CDE,
+	0x2CDF,
+	0x2CE0,
+	0x2CE1,
+	0x2CE2,
+	0x2CE3,
+	0x2CE5,
+	0x2CEB,
+	0x2CEC,
+	0x2CED,
+	0x2CEE,
+	0x2CEF,
+	0x2CF2,
+	0x2CF3,
+	0x2CF4,
+	0x2D00,
+	0x2D26,
+	0x2D27,
+	0x2D28,
+	0x2D2D,
+	0x2D2E,
+	0x2D30,
+	0x2D68,
+	0x2D6F,
+	0x2D70,
+	0x2D7F,
+	0x2D80,
+	0x2D97,
+	0x2DA0,
+	0x2DA7,
+	0x2DA8,
+	0x2DAF,
+	0x2DB0,
+	0x2DB7,
+	0x2DB8,
+	0x2DBF,
+	0x2DC0,
+	0x2DC7,
+	0x2DC8,
+	0x2DCF,
+	0x2DD0,
+	0x2DD7,
+	0x2DD8,
+	0x2DDF,
+	0x2DE0,
+	0x2E00,
+	0x2E0E,
+	0x2E1C,
+	0x2E1E,
+	0x2E20,
+	0x2E2A,
+	0x2E2E,
+	0x2E2F,
+	0x2E30,
+	0x2E3C,
+	0x2E3D,
+	0x2E42,
+	0x2E43,
+	0x3000,
+	0x3001,
+	0x3002,
+	0x3003,
+	0x3005,
+	0x3008,
+	0x3012,
+	0x3014,
+	0x301C,
+	0x301D,
+	0x3020,
+	0x3021,
+	0x302A,
+	0x3030,
+	0x3031,
+	0x3036,
+	0x3038,
+	0x303D,
+	0x3041,
+	0x3097,
+	0x3099,
+	0x309B,
+	0x309D,
+	0x30A0,
+	0x30A1,
+	0x30FB,
+	0x30FC,
+	0x3100,
+	0x3105,
+	0x312E,
+	0x3131,
+	0x318F,
+	0x31A0,
+	0x31BB,
+	0x31F0,
+	0x3200,
+	0x3400,
+	0x4DB6,
+	0x4E00,
+	0x9FD6,
+	0xA000,
+	0xA48D,
+	0xA4D0,
+	0xA4FE,
+	0xA4FF,
+	0xA500,
+	0xA60D,
+	0xA60E,
+	0xA610,
+	0xA620,
+	0xA62A,
+	0xA62C,
+	0xA640,
+	0xA641,
+	0xA642,
+	0xA643,
+	0xA644,
+	0xA645,
+	0xA646,
+	0xA647,
+	0xA648,
+	0xA649,
+	0xA64A,
+	0xA64B,
+	0xA64C,
+	0xA64D,
+	0xA64E,
+	0xA64F,
+	0xA650,
+	0xA651,
+	0xA652,
+	0xA653,
+	0xA654,
+	0xA655,
+	0xA656,
+	0xA657,
+	0xA658,
+	0xA659,
+	0xA65A,
+	0xA65B,
+	0xA65C,
+	0xA65D,
+	0xA65E,
+	0xA65F,
+	0xA660,
+	0xA661,
+	0xA662,
+	0xA663,
+	0xA664,
+	0xA665,
+	0xA666,
+	0xA667,
+	0xA668,
+	0xA669,
+	0xA66A,
+	0xA66B,
+	0xA66C,
+	0xA66D,
+	0xA66E,
+	0xA66F,
+	0xA673,
+	0xA674,
+	0xA67E,
+	0xA67F,
+	0xA680,
+	0xA681,
+	0xA682,
+	0xA683,
+	0xA684,
+	0xA685,
+	0xA686,
+	0xA687,
+	0xA688,
+	0xA689,
+	0xA68A,
+	0xA68B,
+	0xA68C,
+	0xA68D,
+	0xA68E,
+	0xA68F,
+	0xA690,
+	0xA691,
+	0xA692,
+	0xA693,
+	0xA694,
+	0xA695,
+	0xA696,
+	0xA697,
+	0xA698,
+	0xA699,
+	0xA69A,
+	0xA69B,
+	0xA69E,
+	0xA6A0,
+	0xA6F0,
+	0xA6F2,
+	0xA6F3,
+	0xA6F4,
+	0xA6F7,
+	0xA6F8,
+	0xA717,
+	0xA720,
+	0xA722,
+	0xA723,
+	0xA724,
+	0xA725,
+	0xA726,
+	0xA727,
+	0xA728,
+	0xA729,
+	0xA72A,
+	0xA72B,
+	0xA72C,
+	0xA72D,
+	0xA72E,
+	0xA72F,
+	0xA732,
+	0xA733,
+	0xA734,
+	0xA735,
+	0xA736,
+	0xA737,
+	0xA738,
+	0xA739,
+	0xA73A,
+	0xA73B,
+	0xA73C,
+	0xA73D,
+	0xA73E,
+	0xA73F,
+	0xA740,
+	0xA741,
+	0xA742,
+	0xA743,
+	0xA744,
+	0xA745,
+	0xA746,
+	0xA747,
+	0xA748,
+	0xA749,
+	0xA74A,
+	0xA74B,
+	0xA74C,
+	0xA74D,
+	0xA74E,
+	0xA74F,
+	0xA750,
+	0xA751,
+	0xA752,
+	0xA753,
+	0xA754,
+	0xA755,
+	0xA756,
+	0xA757,
+	0xA758,
+	0xA759,
+	0xA75A,
+	0xA75B,
+	0xA75C,
+	0xA75D,
+	0xA75E,
+	0xA75F,
+	0xA760,
+	0xA761,
+	0xA762,
+	0xA763,
+	0xA764,
+	0xA765,
+	0xA766,
+	0xA767,
+	0xA768,
+	0xA769,
+	0xA76A,
+	0xA76B,
+	0xA76C,
+	0xA76D,
+	0xA76E,
+	0xA76F,
+	0xA779,
+	0xA77A,
+	0xA77B,
+	0xA77C,
+	0xA77D,
+	0xA77F,
+	0xA780,
+	0xA781,
+	0xA782,
+	0xA783,
+	0xA784,
+	0xA785,
+	0xA786,
+	0xA787,
+	0xA788,
+	0xA789,
+	0xA78B,
+	0xA78C,
+	0xA78D,
+	0xA78E,
+	0xA78F,
+	0xA790,
+	0xA791,
+	0xA792,
+	0xA793,
+	0xA796,
+	0xA797,
+	0xA798,
+	0xA799,
+	0xA79A,
+	0xA79B,
+	0xA79C,
+	0xA79D,
+	0xA79E,
+	0xA79F,
+	0xA7A0,
+	0xA7A1,
+	0xA7A2,
+	0xA7A3,
+	0xA7A4,
+	0xA7A5,
+	0xA7A6,
+	0xA7A7,
+	0xA7A8,
+	0xA7A9,
+	0xA7AA,
+	0xA7AE,
+	0xA7B0,
+	0xA7B5,
+	0xA7B6,
+	0xA7B7,
+	0xA7B8,
+	0xA7F7,
+	0xA7F8,
+	0xA7FB,
+	0xA802,
+	0xA803,
+	0xA806,
+	0xA807,
+	0xA80B,
+	0xA80C,
+	0xA823,
+	0xA828,
+	0xA840,
+	0xA874,
+	0xA876,
+	0xA878,
+	0xA880,
+	0xA882,
+	0xA8B4,
+	0xA8C5,
+	0xA8CE,
+	0xA8D0,
+	0xA8DA,
+	0xA8E0,
+	0xA8F2,
+	0xA8F8,
+	0xA8FB,
+	0xA8FC,
+	0xA8FD,
+	0xA8FE,
+	0xA900,
+	0xA90A,
+	0xA926,
+	0xA92E,
+	0xA92F,
+	0xA930,
+	0xA947,
+	0xA954,
+	0xA960,
+	0xA97D,
+	0xA980,
+	0xA984,
+	0xA9B3,
+	0xA9C1,
+	0xA9C8,
+	0xA9CA,
+	0xA9CF,
+	0xA9D0,
+	0xA9DA,
+	0xA9E0,
+	0xA9E5,
+	0xA9E6,
+	0xA9F0,
+	0xA9FA,
+	0xA9FF,
+	0xAA00,
+	0xAA29,
+	0xAA37,
+	0xAA40,
+	0xAA43,
+	0xAA44,
+	0xAA4C,
+	0xAA4E,
+	0xAA50,
+	0xAA5A,
+	0xAA5D,
+	0xAA60,
+	0xAA77,
+	0xAA7A,
+	0xAA7B,
+	0xAA7E,
+	0xAAB0,
+	0xAAB1,
+	0xAAB2,
+	0xAAB5,
+	0xAAB7,
+	0xAAB9,
+	0xAABE,
+	0xAAC0,
+	0xAAC1,
+	0xAAC2,
+	0xAAC3,
+	0xAADB,
+	0xAADE,
+	0xAAE0,
+	0xAAEB,
+	0xAAF0,
+	0xAAF2,
+	0xAAF5,
+	0xAAF7,
+	0xAB01,
+	0xAB07,
+	0xAB09,
+	0xAB0F,
+	0xAB11,
+	0xAB17,
+	0xAB20,
+	0xAB27,
+	0xAB28,
+	0xAB2F,
+	0xAB30,
+	0xAB5B,
+	0xAB5C,
+	0xAB66,
+	0xAB70,
+	0xABC0,
+	0xABE3,
+	0xABEB,
+	0xABEC,
+	0xABEE,
+	0xABF0,
+	0xABFA,
+	0xAC00,
+	0xD7A4,
+	0xD7B0,
+	0xD7C7,
+	0xD7CB,
+	0xD7FC,
+	0xF900,
+	0xFA6E,
+	0xFA70,
+	0xFADA,
+	0xFB00,
+	0xFB07,
+	0xFB13,
+	0xFB18,
+	0xFB1D,
+	0xFB1E,
+	0xFB1F,
+	0xFB29,
+	0xFB2A,
+	0xFB37,
+	0xFB38,
+	0xFB3D,
+	0xFB3E,
+	0xFB3F,
+	0xFB40,
+	0xFB42,
+	0xFB43,
+	0xFB45,
+	0xFB46,
+	0xFBB2,
+	0xFBD3,
+	0xFD3E,
+	0xFD40,
+	0xFD50,
+	0xFD90,
+	0xFD92,
+	0xFDC8,
+	0xFDF0,
+	0xFDFC,
+	0xFE00,
+	0xFE10,
+	0xFE12,
+	0xFE13,
+	0xFE14,
+	0xFE17,
+	0xFE19,
+	0xFE20,
+	0xFE30,
+	0xFE31,
+	0xFE33,
+	0xFE35,
+	0xFE45,
+	0xFE47,
+	0xFE49,
+	0xFE50,
+	0xFE52,
+	0xFE53,
+	0xFE55,
+	0xFE56,
+	0xFE58,
+	0xFE59,
+	0xFE5F,
+	0xFE63,
+	0xFE64,
+	0xFE70,
+	0xFE75,
+	0xFE76,
+	0xFEFD,
+	0xFEFF,
+	0xFF00,
+	0xFF01,
+	0xFF02,
+	0xFF08,
+	0xFF0A,
+	0xFF0C,
+	0xFF0E,
+	0xFF0F,
+	0xFF1A,
+	0xFF1B,
+	0xFF1F,
+	0xFF20,
+	0xFF21,
+	0xFF3B,
+	0xFF3C,
+	0xFF3D,
+	0xFF3E,
+	0xFF41,
+	0xFF5B,
+	0xFF5C,
+	0xFF5D,
+	0xFF5E,
+	0xFF5F,
+	0xFF61,
+	0xFF62,
+	0xFF64,
+	0xFF65,
+	0xFF66,
+	0xFF9E,
+	0xFFA0,
+	0xFFBF,
+	0xFFC2,
+	0xFFC8,
+	0xFFCA,
+	0xFFD0,
+	0xFFD2,
+	0xFFD8,
+	0xFFDA,
+	0xFFDD,
+	0xFFF9,
+	0xFFFC,
+	0x10000,
+	0x1000C,
+	0x1000D,
+	0x10027,
+	0x10028,
+	0x1003B,
+	0x1003C,
+	0x1003E,
+	0x1003F,
+	0x1004E,
+	0x10050,
+	0x1005E,
+	0x10080,
+	0x100FB,
+	0x10140,
+	0x10175,
+	0x101FD,
+	0x101FE,
+	0x10280,
+	0x1029D,
+	0x102A0,
+	0x102D1,
+	0x102E0,
+	0x102E1,
+	0x10300,
+	0x10320,
+	0x10330,
+	0x1034B,
+	0x10350,
+	0x10376,
+	0x1037B,
+	0x10380,
+	0x1039E,
+	0x103A0,
+	0x103C4,
+	0x103C8,
+	0x103D0,
+	0x103D1,
+	0x103D6,
+	0x10400,
+	0x10428,
+	0x10450,
+	0x1049E,
+	0x104A0,
+	0x104AA,
+	0x10500,
+	0x10528,
+	0x10530,
+	0x10564,
+	0x10600,
+	0x10737,
+	0x10740,
+	0x10756,
+	0x10760,
+	0x10768,
+	0x10800,
+	0x10806,
+	0x10808,
+	0x10809,
+	0x1080A,
+	0x10836,
+	0x10837,
+	0x10839,
+	0x1083C,
+	0x1083D,
+	0x1083F,
+	0x10856,
+	0x10860,
+	0x10877,
+	0x10880,
+	0x1089F,
+	0x108E0,
+	0x108F3,
+	0x108F4,
+	0x108F6,
+	0x10900,
+	0x10916,
+	0x10920,
+	0x1093A,
+	0x10980,
+	0x109B8,
+	0x109BE,
+	0x109C0,
+	0x10A00,
+	0x10A01,
+	0x10A04,
+	0x10A05,
+	0x10A07,
+	0x10A0C,
+	0x10A10,
+	0x10A14,
+	0x10A15,
+	0x10A18,
+	0x10A19,
+	0x10A34,
+	0x10A38,
+	0x10A3B,
+	0x10A3F,
+	0x10A40,
+	0x10A56,
+	0x10A58,
+	0x10A60,
+	0x10A7D,
+	0x10A80,
+	0x10A9D,
+	0x10AC0,
+	0x10AC8,
+	0x10AC9,
+	0x10AE5,
+	0x10AE7,
+	0x10B00,
+	0x10B36,
+	0x10B40,
+	0x10B56,
+	0x10B60,
+	0x10B73,
+	0x10B80,
+	0x10B92,
+	0x10C00,
+	0x10C49,
+	0x10C80,
+	0x10CB3,
+	0x10CC0,
+	0x10CF3,
+	0x11000,
+	0x11003,
+	0x11038,
+	0x11047,
+	0x11049,
+	0x11066,
+	0x11070,
+	0x1107F,
+	0x11083,
+	0x110B0,
+	0x110BB,
+	0x110BD,
+	0x110BE,
+	0x110C2,
+	0x110D0,
+	0x110E9,
+	0x110F0,
+	0x110FA,
+	0x11100,
+	0x11103,
+	0x11127,
+	0x11135,
+	0x11136,
+	0x11140,
+	0x11141,
+	0x11144,
+	0x11150,
+	0x11173,
+	0x11174,
+	0x11176,
+	0x11177,
+	0x11180,
+	0x11183,
+	0x111B3,
+	0x111C1,
+	0x111C5,
+	0x111C7,
+	0x111CA,
+	0x111CD,
+	0x111CE,
+	0x111D0,
+	0x111DA,
+	0x111DB,
+	0x111DC,
+	0x111DD,
+	0x111DE,
+	0x111E0,
+	0x11200,
+	0x11212,
+	0x11213,
+	0x1122C,
+	0x11238,
+	0x1123A,
+	0x1123B,
+	0x1123D,
+	0x11280,
+	0x11287,
+	0x11288,
+	0x11289,
+	0x1128A,
+	0x1128E,
+	0x1128F,
+	0x1129E,
+	0x1129F,
+	0x112A9,
+	0x112AA,
+	0x112B0,
+	0x112DF,
+	0x112EB,
+	0x112F0,
+	0x112FA,
+	0x11300,
+	0x11304,
+	0x11305,
+	0x1130D,
+	0x1130F,
+	0x11311,
+	0x11313,
+	0x11329,
+	0x1132A,
+	0x11331,
+	0x11332,
+	0x11334,
+	0x11335,
+	0x1133A,
+	0x1133C,
+	0x1133D,
+	0x1133E,
+	0x11345,
+	0x11347,
+	0x11349,
+	0x1134B,
+	0x1134E,
+	0x11350,
+	0x11351,
+	0x11357,
+	0x11358,
+	0x1135D,
+	0x11362,
+	0x11364,
+	0x11366,
+	0x1136D,
+	0x11370,
+	0x11375,
+	0x11480,
+	0x114B0,
+	0x114C4,
+	0x114C6,
+	0x114C7,
+	0x114C8,
+	0x114D0,
+	0x114DA,
+	0x11580,
+	0x115AF,
+	0x115B6,
+	0x115B8,
+	0x115C1,
+	0x115C2,
+	0x115C4,
+	0x115C9,
+	0x115D8,
+	0x115DC,
+	0x115DE,
+	0x11600,
+	0x11630,
+	0x11641,
+	0x11643,
+	0x11644,
+	0x11645,
+	0x11650,
+	0x1165A,
+	0x11680,
+	0x116AB,
+	0x116B8,
+	0x116C0,
+	0x116CA,
+	0x11700,
+	0x1171A,
+	0x1171D,
+	0x1172C,
+	0x11730,
+	0x1173A,
+	0x1173C,
+	0x1173F,
+	0x118A0,
+	0x118C0,
+	0x118E0,
+	0x118EA,
+	0x118FF,
+	0x11900,
+	0x11AC0,
+	0x11AF9,
+	0x12000,
+	0x1239A,
+	0x12400,
+	0x1246F,
+	0x12480,
+	0x12544,
+	0x13000,
+	0x1342F,
+	0x14400,
+	0x14647,
+	0x16800,
+	0x16A39,
+	0x16A40,
+	0x16A5F,
+	0x16A60,
+	0x16A6A,
+	0x16A6E,
+	0x16A70,
+	0x16AD0,
+	0x16AEE,
+	0x16AF0,
+	0x16AF5,
+	0x16AF6,
+	0x16B00,
+	0x16B30,
+	0x16B37,
+	0x16B39,
+	0x16B40,
+	0x16B44,
+	0x16B45,
+	0x16B50,
+	0x16B5A,
+	0x16B63,
+	0x16B78,
+	0x16B7D,
+	0x16B90,
+	0x16F00,
+	0x16F45,
+	0x16F50,
+	0x16F51,
+	0x16F7F,
+	0x16F8F,
+	0x16F93,
+	0x16FA0,
+	0x1B000,
+	0x1B002,
+	0x1BC00,
+	0x1BC6B,
+	0x1BC70,
+	0x1BC7D,
+	0x1BC80,
+	0x1BC89,
+	0x1BC90,
+	0x1BC9A,
+	0x1BC9D,
+	0x1BC9F,
+	0x1BCA0,
+	0x1BCA4,
+	0x1D165,
+	0x1D16A,
+	0x1D16D,
+	0x1D173,
+	0x1D17B,
+	0x1D183,
+	0x1D185,
+	0x1D18C,
+	0x1D1AA,
+	0x1D1AE,
+	0x1D242,
+	0x1D245,
+	0x1D400,
+	0x1D41A,
+	0x1D434,
+	0x1D44E,
+	0x1D455,
+	0x1D456,
+	0x1D468,
+	0x1D482,
+	0x1D49C,
+	0x1D49D,
+	0x1D49E,
+	0x1D4A0,
+	0x1D4A2,
+	0x1D4A3,
+	0x1D4A5,
+	0x1D4A7,
+	0x1D4A9,
+	0x1D4AD,
+	0x1D4AE,
+	0x1D4B6,
+	0x1D4BA,
+	0x1D4BB,
+	0x1D4BC,
+	0x1D4BD,
+	0x1D4C4,
+	0x1D4C5,
+	0x1D4D0,
+	0x1D4EA,
+	0x1D504,
+	0x1D506,
+	0x1D507,
+	0x1D50B,
+	0x1D50D,
+	0x1D515,
+	0x1D516,
+	0x1D51D,
+	0x1D51E,
+	0x1D538,
+	0x1D53A,
+	0x1D53B,
+	0x1D53F,
+	0x1D540,
+	0x1D545,
+	0x1D546,
+	0x1D547,
+	0x1D54A,
+	0x1D551,
+	0x1D552,
+	0x1D56C,
+	0x1D586,
+	0x1D5A0,
+	0x1D5BA,
+	0x1D5D4,
+	0x1D5EE,
+	0x1D608,
+	0x1D622,
+	0x1D63C,
+	0x1D656,
+	0x1D670,
+	0x1D68A,
+	0x1D6A6,
+	0x1D6A8,
+	0x1D6C1,
+	0x1D6C2,
+	0x1D6DB,
+	0x1D6DC,
+	0x1D6E2,
+	0x1D6FB,
+	0x1D6FC,
+	0x1D715,
+	0x1D716,
+	0x1D71C,
+	0x1D735,
+	0x1D736,
+	0x1D74F,
+	0x1D750,
+	0x1D756,
+	0x1D76F,
+	0x1D770,
+	0x1D789,
+	0x1D78A,
+	0x1D790,
+	0x1D7A9,
+	0x1D7AA,
+	0x1D7C3,
+	0x1D7C4,
+	0x1D7CA,
+	0x1D7CB,
+	0x1D7CC,
+	0x1D7CE,
+	0x1D800,
+	0x1DA00,
+	0x1DA37,
+	0x1DA3B,
+	0x1DA6D,
+	0x1DA75,
+	0x1DA76,
+	0x1DA84,
+	0x1DA85,
+	0x1DA88,
+	0x1DA89,
+	0x1DA9B,
+	0x1DAA0,
+	0x1DAA1,
+	0x1DAB0,
+	0x1E800,
+	0x1E8C5,
+	0x1E8D0,
+	0x1E8D7,
+	0x1EE00,
+	0x1EE04,
+	0x1EE05,
+	0x1EE20,
+	0x1EE21,
+	0x1EE23,
+	0x1EE24,
+	0x1EE25,
+	0x1EE27,
+	0x1EE28,
+	0x1EE29,
+	0x1EE33,
+	0x1EE34,
+	0x1EE38,
+	0x1EE39,
+	0x1EE3A,
+	0x1EE3B,
+	0x1EE3C,
+	0x1EE42,
+	0x1EE43,
+	0x1EE47,
+	0x1EE48,
+	0x1EE49,
+	0x1EE4A,
+	0x1EE4B,
+	0x1EE4C,
+	0x1EE4D,
+	0x1EE50,
+	0x1EE51,
+	0x1EE53,
+	0x1EE54,
+	0x1EE55,
+	0x1EE57,
+	0x1EE58,
+	0x1EE59,
+	0x1EE5A,
+	0x1EE5B,
+	0x1EE5C,
+	0x1EE5D,
+	0x1EE5E,
+	0x1EE5F,
+	0x1EE60,
+	0x1EE61,
+	0x1EE63,
+	0x1EE64,
+	0x1EE65,
+	0x1EE67,
+	0x1EE6B,
+	0x1EE6C,
+	0x1EE73,
+	0x1EE74,
+	0x1EE78,
+	0x1EE79,
+	0x1EE7D,
+	0x1EE7E,
+	0x1EE7F,
+	0x1EE80,
+	0x1EE8A,
+	0x1EE8B,
+	0x1EE9C,
+	0x1EEA1,
+	0x1EEA4,
+	0x1EEA5,
+	0x1EEAA,
+	0x1EEAB,
+	0x1EEBC,
+	0x1F130,
+	0x1F14A,
+	0x1F150,
+	0x1F16A,
+	0x1F170,
+	0x1F18A,
+	0x1F676,
+	0x1F679,
+	0x20000,
+	0x2A6D7,
+	0x2A700,
+	0x2B735,
+	0x2B740,
+	0x2B81E,
+	0x2B820,
+	0x2CEA2,
+	0x2F800,
+	0x2FA1E,
+	0xE0001,
+	0xE0002,
+	0xE0020,
+	0xE0080,
+	0xE0100,
+	0xE01F0
+};
+
+#endif	/* defined(PERL_IN_PERL_C) */
+
+#if defined(PERL_IN_REGEXEC_C)
+
+#define SB_ENUM_COUNT 16
+
+typedef enum {
+	SB_Other = 0,
+	SB_ATerm = 1,
+	SB_CR = 2,
+	SB_Close = 3,
+	SB_Extend = 4,
+	SB_Format = 5,
+	SB_LF = 6,
+	SB_Lower = 7,
+	SB_Numeric = 8,
+	SB_OLetter = 9,
+	SB_SContinue = 10,
+	SB_STerm = 11,
+	SB_Sep = 12,
+	SB_Sp = 13,
+	SB_Upper = 14,
+	SB_EDGE = 15
+} SB_enum;
+
+static const SB_enum _Perl_SB_invmap[] = { /* for EBCDIC 037 */
+	SB_Other,
+	SB_Sp,
+	SB_Other,
+	SB_Sp,
+	SB_CR,
+	SB_Other,
+	SB_Sep,
+	SB_Other,
+	SB_LF,
+	SB_Other,
+	SB_Sp,
+	SB_Lower,
+	SB_Other,
+	SB_ATerm,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_Lower,
+	SB_STerm,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_SContinue,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_SContinue,
+	SB_Other,
+	SB_STerm,
+	SB_Lower,
+	SB_Upper,
+	SB_Other,
+	SB_SContinue,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_Close,
+	SB_Upper,
+	SB_Lower,
+	SB_Close,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_Close,
+	SB_Upper,
+	SB_Format,
+	SB_Lower,
+	SB_Close,
+	SB_Upper,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Numeric,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_OLetter,
+	SB_Upper,
+	SB_Lower,
+	SB_OLetter,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_OLetter,
+	SB_Lower,
+	SB_OLetter,
+	SB_Lower,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_OLetter,
+	SB_Other,
+	SB_Upper,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Other,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Other,
+	SB_Extend,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_SContinue,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_STerm,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Format,
+	SB_Other,
+	SB_SContinue,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Format,
+	SB_Other,
+	SB_STerm,
+	SB_OLetter,
+	SB_Extend,
+	SB_Numeric,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_STerm,
+	SB_OLetter,
+	SB_Extend,
+	SB_Format,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Numeric,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_STerm,
+	SB_Other,
+	SB_Format,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Other,
+	SB_Numeric,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Other,
+	SB_SContinue,
+	SB_STerm,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_STerm,
+	SB_Numeric,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Numeric,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Numeric,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Close,
+	SB_Extend,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Numeric,
+	SB_STerm,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_Numeric,
+	SB_Extend,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_STerm,
+	SB_Other,
+	SB_STerm,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_STerm,
+	SB_OLetter,
+	SB_Sp,
+	SB_OLetter,
+	SB_Close,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_STerm,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_SContinue,
+	SB_STerm,
+	SB_Other,
+	SB_SContinue,
+	SB_STerm,
+	SB_Other,
+	SB_Extend,
+	SB_Format,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_STerm,
+	SB_Numeric,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Numeric,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_OLetter,
+	SB_STerm,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Other,
+	SB_Numeric,
+	SB_STerm,
+	SB_Other,
+	SB_STerm,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Numeric,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_STerm,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_OLetter,
+	SB_Numeric,
+	SB_OLetter,
+	SB_STerm,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Lower,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Upper,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Upper,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Upper,
+	SB_Other,
+	SB_Lower,
+	SB_Upper,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Upper,
+	SB_Other,
+	SB_Sp,
+	SB_Format,
+	SB_Extend,
+	SB_Format,
+	SB_Other,
+	SB_SContinue,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_ATerm,
+	SB_Other,
+	SB_Sep,
+	SB_Format,
+	SB_Sp,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_STerm,
+	SB_Other,
+	SB_Close,
+	SB_STerm,
+	SB_Other,
+	SB_Sp,
+	SB_Format,
+	SB_Other,
+	SB_Format,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Close,
+	SB_Lower,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_OLetter,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Upper,
+	SB_Lower,
+	SB_OLetter,
+	SB_Upper,
+	SB_Lower,
+	SB_OLetter,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_Upper,
+	SB_Lower,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Other,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Extend,
+	SB_Upper,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Close,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_STerm,
+	SB_OLetter,
+	SB_Other,
+	SB_STerm,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_Sp,
+	SB_SContinue,
+	SB_STerm,
+	SB_Other,
+	SB_OLetter,
+	SB_Close,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_STerm,
+	SB_OLetter,
+	SB_Other,
+	SB_STerm,
+	SB_OLetter,
+	SB_Numeric,
+	SB_OLetter,
+	SB_Other,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_STerm,
+	SB_Other,
+	SB_STerm,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_OLetter,
+	SB_Other,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_OLetter,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Other,
+	SB_OLetter,
+	SB_Lower,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_STerm,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_STerm,
+	SB_Numeric,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Numeric,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_STerm,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_STerm,
+	SB_Other,
+	SB_OLetter,
+	SB_Numeric,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Numeric,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_STerm,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_STerm,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_OLetter,
+	SB_Extend,
+	SB_STerm,
+	SB_Extend,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Close,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_SContinue,
+	SB_Other,
+	SB_SContinue,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_SContinue,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_SContinue,
+	SB_ATerm,
+	SB_Other,
+	SB_SContinue,
+	SB_STerm,
+	SB_SContinue,
+	SB_Close,
+	SB_Other,
+	SB_SContinue,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Format,
+	SB_Other,
+	SB_STerm,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_SContinue,
+	SB_ATerm,
+	SB_Other,
+	SB_SContinue,
+	SB_Other,
+	SB_STerm,
+	SB_Other,
+	SB_Upper,
+	SB_Close,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_Lower,
+	SB_Close,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_Close,
+	SB_STerm,
+	SB_Close,
+	SB_SContinue,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Format,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Upper,
+	SB_Lower,
+	SB_OLetter,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_STerm,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_STerm,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Format,
+	SB_STerm,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_STerm,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_STerm,
+	SB_Other,
+	SB_Extend,
+	SB_STerm,
+	SB_Other,
+	SB_Numeric,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_STerm,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_STerm,
+	SB_Other,
+	SB_STerm,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_STerm,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_STerm,
+	SB_Other,
+	SB_STerm,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_STerm,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_STerm,
+	SB_Other,
+	SB_Upper,
+	SB_Lower,
+	SB_Numeric,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_STerm,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_STerm,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_STerm,
+	SB_Other,
+	SB_OLetter,
+	SB_STerm,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_STerm,
+	SB_Format,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Format,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Lower,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Upper,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Upper,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Upper,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Upper,
+	SB_Other,
+	SB_Lower,
+	SB_Other,
+	SB_Lower,
+	SB_Upper,
+	SB_Lower,
+	SB_Other,
+	SB_Numeric,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_STerm,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Extend,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Upper,
+	SB_Other,
+	SB_Close,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_OLetter,
+	SB_Other,
+	SB_Format,
+	SB_Other,
+	SB_Format,
+	SB_Other,
+	SB_Extend,
+	SB_Other
+};
+
+#endif	/* defined(PERL_IN_REGEXEC_C) */
+
+#if defined(PERL_IN_PERL_C)
+
+static const UV _Perl_WB_invlist[] = { /* for EBCDIC 037 */
+	1554,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	0,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x5,
+	0x6,
+	0xB,
+	0xD,
+	0xE,
+	0x15,
+	0x16,
+	0x25,
+	0x26,
+	0x40,
+	0x42,
+	0x4A,
+	0x4B,
+	0x4C,
+	0x51,
+	0x5A,
+	0x5E,
+	0x5F,
+	0x62,
+	0x6A,
+	0x6B,
+	0x6C,
+	0x6D,
+	0x6E,
+	0x70,
+	0x79,
+	0x7A,
+	0x7B,
+	0x7D,
+	0x7E,
+	0x7F,
+	0x80,
+	0x8A,
+	0x8C,
+	0x8F,
+	0x91,
+	0x9D,
+	0x9E,
+	0x9F,
+	0xA0,
+	0xA1,
+	0xA2,
+	0xAA,
+	0xAC,
+	0xAF,
+	0xB3,
+	0xB4,
+	0xC1,
+	0xCA,
+	0xCB,
+	0xD0,
+	0xD1,
+	0xDA,
+	0xDB,
+	0xE0,
+	0xE2,
+	0xEA,
+	0xEB,
+	0xF0,
+	0xFA,
+	0xFB,
+	0xFF,
+	0x100,
+	0x2C2,
+	0x2C6,
+	0x2D2,
+	0x2D7,
+	0x2D8,
+	0x2E0,
+	0x2E5,
+	0x2EC,
+	0x2ED,
+	0x2EE,
+	0x2EF,
+	0x300,
+	0x370,
+	0x375,
+	0x376,
+	0x378,
+	0x37A,
+	0x37E,
+	0x37F,
+	0x380,
+	0x386,
+	0x387,
+	0x388,
+	0x38B,
+	0x38C,
+	0x38D,
+	0x38E,
+	0x3A2,
+	0x3A3,
+	0x3F6,
+	0x3F7,
+	0x482,
+	0x483,
+	0x48A,
+	0x530,
+	0x531,
+	0x557,
+	0x559,
+	0x55A,
+	0x561,
+	0x588,
+	0x589,
+	0x58A,
+	0x591,
+	0x5BE,
+	0x5BF,
+	0x5C0,
+	0x5C1,
+	0x5C3,
+	0x5C4,
+	0x5C6,
+	0x5C7,
+	0x5C8,
+	0x5D0,
+	0x5EB,
+	0x5F0,
+	0x5F3,
+	0x5F4,
+	0x5F5,
+	0x600,
+	0x606,
+	0x60C,
+	0x60E,
+	0x610,
+	0x61B,
+	0x61C,
+	0x61D,
+	0x620,
+	0x64B,
+	0x660,
+	0x66A,
+	0x66B,
+	0x66C,
+	0x66D,
+	0x66E,
+	0x670,
+	0x671,
+	0x6D4,
+	0x6D5,
+	0x6D6,
+	0x6DD,
+	0x6DE,
+	0x6DF,
+	0x6E5,
+	0x6E7,
+	0x6E9,
+	0x6EA,
+	0x6EE,
+	0x6F0,
+	0x6FA,
+	0x6FD,
+	0x6FF,
+	0x700,
+	0x70F,
+	0x710,
+	0x711,
+	0x712,
+	0x730,
+	0x74B,
+	0x74D,
+	0x7A6,
+	0x7B1,
+	0x7B2,
+	0x7C0,
+	0x7CA,
+	0x7EB,
+	0x7F4,
+	0x7F6,
+	0x7F8,
+	0x7F9,
+	0x7FA,
+	0x7FB,
+	0x800,
+	0x816,
+	0x81A,
+	0x81B,
+	0x824,
+	0x825,
+	0x828,
+	0x829,
+	0x82E,
+	0x840,
+	0x859,
+	0x85C,
+	0x8A0,
+	0x8B5,
+	0x8E3,
+	0x904,
+	0x93A,
+	0x93D,
+	0x93E,
+	0x950,
+	0x951,
+	0x958,
+	0x962,
+	0x964,
+	0x966,
+	0x970,
+	0x971,
+	0x981,
+	0x984,
+	0x985,
+	0x98D,
+	0x98F,
+	0x991,
+	0x993,
+	0x9A9,
+	0x9AA,
+	0x9B1,
+	0x9B2,
+	0x9B3,
+	0x9B6,
+	0x9BA,
+	0x9BC,
+	0x9BD,
+	0x9BE,
+	0x9C5,
+	0x9C7,
+	0x9C9,
+	0x9CB,
+	0x9CE,
+	0x9CF,
+	0x9D7,
+	0x9D8,
+	0x9DC,
+	0x9DE,
+	0x9DF,
+	0x9E2,
+	0x9E4,
+	0x9E6,
+	0x9F0,
+	0x9F2,
+	0xA01,
+	0xA04,
+	0xA05,
+	0xA0B,
+	0xA0F,
+	0xA11,
+	0xA13,
+	0xA29,
+	0xA2A,
+	0xA31,
+	0xA32,
+	0xA34,
+	0xA35,
+	0xA37,
+	0xA38,
+	0xA3A,
+	0xA3C,
+	0xA3D,
+	0xA3E,
+	0xA43,
+	0xA47,
+	0xA49,
+	0xA4B,
+	0xA4E,
+	0xA51,
+	0xA52,
+	0xA59,
+	0xA5D,
+	0xA5E,
+	0xA5F,
+	0xA66,
+	0xA70,
+	0xA72,
+	0xA75,
+	0xA76,
+	0xA81,
+	0xA84,
+	0xA85,
+	0xA8E,
+	0xA8F,
+	0xA92,
+	0xA93,
+	0xAA9,
+	0xAAA,
+	0xAB1,
+	0xAB2,
+	0xAB4,
+	0xAB5,
+	0xABA,
+	0xABC,
+	0xABD,
+	0xABE,
+	0xAC6,
+	0xAC7,
+	0xACA,
+	0xACB,
+	0xACE,
+	0xAD0,
+	0xAD1,
+	0xAE0,
+	0xAE2,
+	0xAE4,
+	0xAE6,
+	0xAF0,
+	0xAF9,
+	0xAFA,
+	0xB01,
+	0xB04,
+	0xB05,
+	0xB0D,
+	0xB0F,
+	0xB11,
+	0xB13,
+	0xB29,
+	0xB2A,
+	0xB31,
+	0xB32,
+	0xB34,
+	0xB35,
+	0xB3A,
+	0xB3C,
+	0xB3D,
+	0xB3E,
+	0xB45,
+	0xB47,
+	0xB49,
+	0xB4B,
+	0xB4E,
+	0xB56,
+	0xB58,
+	0xB5C,
+	0xB5E,
+	0xB5F,
+	0xB62,
+	0xB64,
+	0xB66,
+	0xB70,
+	0xB71,
+	0xB72,
+	0xB82,
+	0xB83,
+	0xB84,
+	0xB85,
+	0xB8B,
+	0xB8E,
+	0xB91,
+	0xB92,
+	0xB96,
+	0xB99,
+	0xB9B,
+	0xB9C,
+	0xB9D,
+	0xB9E,
+	0xBA0,
+	0xBA3,
+	0xBA5,
+	0xBA8,
+	0xBAB,
+	0xBAE,
+	0xBBA,
+	0xBBE,
+	0xBC3,
+	0xBC6,
+	0xBC9,
+	0xBCA,
+	0xBCE,
+	0xBD0,
+	0xBD1,
+	0xBD7,
+	0xBD8,
+	0xBE6,
+	0xBF0,
+	0xC00,
+	0xC04,
+	0xC05,
+	0xC0D,
+	0xC0E,
+	0xC11,
+	0xC12,
+	0xC29,
+	0xC2A,
+	0xC3A,
+	0xC3D,
+	0xC3E,
+	0xC45,
+	0xC46,
+	0xC49,
+	0xC4A,
+	0xC4E,
+	0xC55,
+	0xC57,
+	0xC58,
+	0xC5B,
+	0xC60,
+	0xC62,
+	0xC64,
+	0xC66,
+	0xC70,
+	0xC81,
+	0xC84,
+	0xC85,
+	0xC8D,
+	0xC8E,
+	0xC91,
+	0xC92,
+	0xCA9,
+	0xCAA,
+	0xCB4,
+	0xCB5,
+	0xCBA,
+	0xCBC,
+	0xCBD,
+	0xCBE,
+	0xCC5,
+	0xCC6,
+	0xCC9,
+	0xCCA,
+	0xCCE,
+	0xCD5,
+	0xCD7,
+	0xCDE,
+	0xCDF,
+	0xCE0,
+	0xCE2,
+	0xCE4,
+	0xCE6,
+	0xCF0,
+	0xCF1,
+	0xCF3,
+	0xD01,
+	0xD04,
+	0xD05,
+	0xD0D,
+	0xD0E,
+	0xD11,
+	0xD12,
+	0xD3B,
+	0xD3D,
+	0xD3E,
+	0xD45,
+	0xD46,
+	0xD49,
+	0xD4A,
+	0xD4E,
+	0xD4F,
+	0xD57,
+	0xD58,
+	0xD5F,
+	0xD62,
+	0xD64,
+	0xD66,
+	0xD70,
+	0xD7A,
+	0xD80,
+	0xD82,
+	0xD84,
+	0xD85,
+	0xD97,
+	0xD9A,
+	0xDB2,
+	0xDB3,
+	0xDBC,
+	0xDBD,
+	0xDBE,
+	0xDC0,
+	0xDC7,
+	0xDCA,
+	0xDCB,
+	0xDCF,
+	0xDD5,
+	0xDD6,
+	0xDD7,
+	0xDD8,
+	0xDE0,
+	0xDE6,
+	0xDF0,
+	0xDF2,
+	0xDF4,
+	0xE31,
+	0xE32,
+	0xE34,
+	0xE3B,
+	0xE47,
+	0xE4F,
+	0xE50,
+	0xE5A,
+	0xEB1,
+	0xEB2,
+	0xEB4,
+	0xEBA,
+	0xEBB,
+	0xEBD,
+	0xEC8,
+	0xECE,
+	0xED0,
+	0xEDA,
+	0xF00,
+	0xF01,
+	0xF18,
+	0xF1A,
+	0xF20,
+	0xF2A,
+	0xF35,
+	0xF36,
+	0xF37,
+	0xF38,
+	0xF39,
+	0xF3A,
+	0xF3E,
+	0xF40,
+	0xF48,
+	0xF49,
+	0xF6D,
+	0xF71,
+	0xF85,
+	0xF86,
+	0xF88,
+	0xF8D,
+	0xF98,
+	0xF99,
+	0xFBD,
+	0xFC6,
+	0xFC7,
+	0x102B,
+	0x103F,
+	0x1040,
+	0x104A,
+	0x1056,
+	0x105A,
+	0x105E,
+	0x1061,
+	0x1062,
+	0x1065,
+	0x1067,
+	0x106E,
+	0x1071,
+	0x1075,
+	0x1082,
+	0x108E,
+	0x108F,
+	0x1090,
+	0x109A,
+	0x109E,
+	0x10A0,
+	0x10C6,
+	0x10C7,
+	0x10C8,
+	0x10CD,
+	0x10CE,
+	0x10D0,
+	0x10FB,
+	0x10FC,
+	0x1249,
+	0x124A,
+	0x124E,
+	0x1250,
+	0x1257,
+	0x1258,
+	0x1259,
+	0x125A,
+	0x125E,
+	0x1260,
+	0x1289,
+	0x128A,
+	0x128E,
+	0x1290,
+	0x12B1,
+	0x12B2,
+	0x12B6,
+	0x12B8,
+	0x12BF,
+	0x12C0,
+	0x12C1,
+	0x12C2,
+	0x12C6,
+	0x12C8,
+	0x12D7,
+	0x12D8,
+	0x1311,
+	0x1312,
+	0x1316,
+	0x1318,
+	0x135B,
+	0x135D,
+	0x1360,
+	0x1380,
+	0x1390,
+	0x13A0,
+	0x13F6,
+	0x13F8,
+	0x13FE,
+	0x1401,
+	0x166D,
+	0x166F,
+	0x1680,
+	0x1681,
+	0x169B,
+	0x16A0,
+	0x16EB,
+	0x16EE,
+	0x16F9,
+	0x1700,
+	0x170D,
+	0x170E,
+	0x1712,
+	0x1715,
+	0x1720,
+	0x1732,
+	0x1735,
+	0x1740,
+	0x1752,
+	0x1754,
+	0x1760,
+	0x176D,
+	0x176E,
+	0x1771,
+	0x1772,
+	0x1774,
+	0x17B4,
+	0x17D4,
+	0x17DD,
+	0x17DE,
+	0x17E0,
+	0x17EA,
+	0x180B,
+	0x180E,
+	0x180F,
+	0x1810,
+	0x181A,
+	0x1820,
+	0x1878,
+	0x1880,
+	0x18A9,
+	0x18AA,
+	0x18AB,
+	0x18B0,
+	0x18F6,
+	0x1900,
+	0x191F,
+	0x1920,
+	0x192C,
+	0x1930,
+	0x193C,
+	0x1946,
+	0x1950,
+	0x19D0,
+	0x19DA,
+	0x1A00,
+	0x1A17,
+	0x1A1C,
+	0x1A55,
+	0x1A5F,
+	0x1A60,
+	0x1A7D,
+	0x1A7F,
+	0x1A80,
+	0x1A8A,
+	0x1A90,
+	0x1A9A,
+	0x1AB0,
+	0x1ABF,
+	0x1B00,
+	0x1B05,
+	0x1B34,
+	0x1B45,
+	0x1B4C,
+	0x1B50,
+	0x1B5A,
+	0x1B6B,
+	0x1B74,
+	0x1B80,
+	0x1B83,
+	0x1BA1,
+	0x1BAE,
+	0x1BB0,
+	0x1BBA,
+	0x1BE6,
+	0x1BF4,
+	0x1C00,
+	0x1C24,
+	0x1C38,
+	0x1C40,
+	0x1C4A,
+	0x1C4D,
+	0x1C50,
+	0x1C5A,
+	0x1C7E,
+	0x1CD0,
+	0x1CD3,
+	0x1CD4,
+	0x1CE9,
+	0x1CED,
+	0x1CEE,
+	0x1CF2,
+	0x1CF5,
+	0x1CF7,
+	0x1CF8,
+	0x1CFA,
+	0x1D00,
+	0x1DC0,
+	0x1DF6,
+	0x1DFC,
+	0x1E00,
+	0x1F16,
+	0x1F18,
+	0x1F1E,
+	0x1F20,
+	0x1F46,
+	0x1F48,
+	0x1F4E,
+	0x1F50,
+	0x1F58,
+	0x1F59,
+	0x1F5A,
+	0x1F5B,
+	0x1F5C,
+	0x1F5D,
+	0x1F5E,
+	0x1F5F,
+	0x1F7E,
+	0x1F80,
+	0x1FB5,
+	0x1FB6,
+	0x1FBD,
+	0x1FBE,
+	0x1FBF,
+	0x1FC2,
+	0x1FC5,
+	0x1FC6,
+	0x1FCD,
+	0x1FD0,
+	0x1FD4,
+	0x1FD6,
+	0x1FDC,
+	0x1FE0,
+	0x1FED,
+	0x1FF2,
+	0x1FF5,
+	0x1FF6,
+	0x1FFD,
+	0x2000,
+	0x200B,
+	0x200C,
+	0x200E,
+	0x2010,
+	0x2018,
+	0x201A,
+	0x2024,
+	0x2025,
+	0x2027,
+	0x2028,
+	0x202A,
+	0x202F,
+	0x2030,
+	0x203F,
+	0x2041,
+	0x2044,
+	0x2045,
+	0x2054,
+	0x2055,
+	0x205F,
+	0x2060,
+	0x2065,
+	0x2066,
+	0x2070,
+	0x2071,
+	0x2072,
+	0x207F,
+	0x2080,
+	0x2090,
+	0x209D,
+	0x20D0,
+	0x20F1,
+	0x2102,
+	0x2103,
+	0x2107,
+	0x2108,
+	0x210A,
+	0x2114,
+	0x2115,
+	0x2116,
+	0x2119,
+	0x211E,
+	0x2124,
+	0x2125,
+	0x2126,
+	0x2127,
+	0x2128,
+	0x2129,
+	0x212A,
+	0x212E,
+	0x212F,
+	0x213A,
+	0x213C,
+	0x2140,
+	0x2145,
+	0x214A,
+	0x214E,
+	0x214F,
+	0x2160,
+	0x2189,
+	0x24B6,
+	0x24EA,
+	0x2C00,
+	0x2C2F,
+	0x2C30,
+	0x2C5F,
+	0x2C60,
+	0x2CE5,
+	0x2CEB,
+	0x2CEF,
+	0x2CF2,
+	0x2CF4,
+	0x2D00,
+	0x2D26,
+	0x2D27,
+	0x2D28,
+	0x2D2D,
+	0x2D2E,
+	0x2D30,
+	0x2D68,
+	0x2D6F,
+	0x2D70,
+	0x2D7F,
+	0x2D80,
+	0x2D97,
+	0x2DA0,
+	0x2DA7,
+	0x2DA8,
+	0x2DAF,
+	0x2DB0,
+	0x2DB7,
+	0x2DB8,
+	0x2DBF,
+	0x2DC0,
+	0x2DC7,
+	0x2DC8,
+	0x2DCF,
+	0x2DD0,
+	0x2DD7,
+	0x2DD8,
+	0x2DDF,
+	0x2DE0,
+	0x2E00,
+	0x2E2F,
+	0x2E30,
+	0x3000,
+	0x3001,
+	0x3005,
+	0x3006,
+	0x302A,
+	0x3030,
+	0x3031,
+	0x3036,
+	0x303B,
+	0x303D,
+	0x3099,
+	0x309B,
+	0x309D,
+	0x30A0,
+	0x30FB,
+	0x30FC,
+	0x3100,
+	0x3105,
+	0x312E,
+	0x3131,
+	0x318F,
+	0x31A0,
+	0x31BB,
+	0x31F0,
+	0x3200,
+	0x32D0,
+	0x32FF,
+	0x3300,
+	0x3358,
+	0xA000,
+	0xA48D,
+	0xA4D0,
+	0xA4FE,
+	0xA500,
+	0xA60D,
+	0xA610,
+	0xA620,
+	0xA62A,
+	0xA62C,
+	0xA640,
+	0xA66F,
+	0xA673,
+	0xA674,
+	0xA67E,
+	0xA67F,
+	0xA69E,
+	0xA6A0,
+	0xA6F0,
+	0xA6F2,
+	0xA717,
+	0xA720,
+	0xA722,
+	0xA789,
+	0xA78B,
+	0xA7AE,
+	0xA7B0,
+	0xA7B8,
+	0xA7F7,
+	0xA802,
+	0xA803,
+	0xA806,
+	0xA807,
+	0xA80B,
+	0xA80C,
+	0xA823,
+	0xA828,
+	0xA840,
+	0xA874,
+	0xA880,
+	0xA882,
+	0xA8B4,
+	0xA8C5,
+	0xA8D0,
+	0xA8DA,
+	0xA8E0,
+	0xA8F2,
+	0xA8F8,
+	0xA8FB,
+	0xA8FC,
+	0xA8FD,
+	0xA8FE,
+	0xA900,
+	0xA90A,
+	0xA926,
+	0xA92E,
+	0xA930,
+	0xA947,
+	0xA954,
+	0xA960,
+	0xA97D,
+	0xA980,
+	0xA984,
+	0xA9B3,
+	0xA9C1,
+	0xA9CF,
+	0xA9D0,
+	0xA9DA,
+	0xA9E5,
+	0xA9E6,
+	0xA9F0,
+	0xA9FA,
+	0xAA00,
+	0xAA29,
+	0xAA37,
+	0xAA40,
+	0xAA43,
+	0xAA44,
+	0xAA4C,
+	0xAA4E,
+	0xAA50,
+	0xAA5A,
+	0xAA7B,
+	0xAA7E,
+	0xAAB0,
+	0xAAB1,
+	0xAAB2,
+	0xAAB5,
+	0xAAB7,
+	0xAAB9,
+	0xAABE,
+	0xAAC0,
+	0xAAC1,
+	0xAAC2,
+	0xAAE0,
+	0xAAEB,
+	0xAAF0,
+	0xAAF2,
+	0xAAF5,
+	0xAAF7,
+	0xAB01,
+	0xAB07,
+	0xAB09,
+	0xAB0F,
+	0xAB11,
+	0xAB17,
+	0xAB20,
+	0xAB27,
+	0xAB28,
+	0xAB2F,
+	0xAB30,
+	0xAB5B,
+	0xAB5C,
+	0xAB66,
+	0xAB70,
+	0xABE3,
+	0xABEB,
+	0xABEC,
+	0xABEE,
+	0xABF0,
+	0xABFA,
+	0xAC00,
+	0xD7A4,
+	0xD7B0,
+	0xD7C7,
+	0xD7CB,
+	0xD7FC,
+	0xFB00,
+	0xFB07,
+	0xFB13,
+	0xFB18,
+	0xFB1D,
+	0xFB1E,
+	0xFB1F,
+	0xFB29,
+	0xFB2A,
+	0xFB37,
+	0xFB38,
+	0xFB3D,
+	0xFB3E,
+	0xFB3F,
+	0xFB40,
+	0xFB42,
+	0xFB43,
+	0xFB45,
+	0xFB46,
+	0xFB50,
+	0xFBB2,
+	0xFBD3,
+	0xFD3E,
+	0xFD50,
+	0xFD90,
+	0xFD92,
+	0xFDC8,
+	0xFDF0,
+	0xFDFC,
+	0xFE00,
+	0xFE10,
+	0xFE11,
+	0xFE13,
+	0xFE14,
+	0xFE15,
+	0xFE20,
+	0xFE30,
+	0xFE33,
+	0xFE35,
+	0xFE4D,
+	0xFE50,
+	0xFE51,
+	0xFE52,
+	0xFE53,
+	0xFE54,
+	0xFE55,
+	0xFE56,
+	0xFE70,
+	0xFE75,
+	0xFE76,
+	0xFEFD,
+	0xFEFF,
+	0xFF00,
+	0xFF07,
+	0xFF08,
+	0xFF0C,
+	0xFF0D,
+	0xFF0E,
+	0xFF0F,
+	0xFF1A,
+	0xFF1B,
+	0xFF1C,
+	0xFF21,
+	0xFF3B,
+	0xFF3F,
+	0xFF40,
+	0xFF41,
+	0xFF5B,
+	0xFF66,
+	0xFF9E,
+	0xFFA0,
+	0xFFBF,
+	0xFFC2,
+	0xFFC8,
+	0xFFCA,
+	0xFFD0,
+	0xFFD2,
+	0xFFD8,
+	0xFFDA,
+	0xFFDD,
+	0xFFF9,
+	0xFFFC,
+	0x10000,
+	0x1000C,
+	0x1000D,
+	0x10027,
+	0x10028,
+	0x1003B,
+	0x1003C,
+	0x1003E,
+	0x1003F,
+	0x1004E,
+	0x10050,
+	0x1005E,
+	0x10080,
+	0x100FB,
+	0x10140,
+	0x10175,
+	0x101FD,
+	0x101FE,
+	0x10280,
+	0x1029D,
+	0x102A0,
+	0x102D1,
+	0x102E0,
+	0x102E1,
+	0x10300,
+	0x10320,
+	0x10330,
+	0x1034B,
+	0x10350,
+	0x10376,
+	0x1037B,
+	0x10380,
+	0x1039E,
+	0x103A0,
+	0x103C4,
+	0x103C8,
+	0x103D0,
+	0x103D1,
+	0x103D6,
+	0x10400,
+	0x1049E,
+	0x104A0,
+	0x104AA,
+	0x10500,
+	0x10528,
+	0x10530,
+	0x10564,
+	0x10600,
+	0x10737,
+	0x10740,
+	0x10756,
+	0x10760,
+	0x10768,
+	0x10800,
+	0x10806,
+	0x10808,
+	0x10809,
+	0x1080A,
+	0x10836,
+	0x10837,
+	0x10839,
+	0x1083C,
+	0x1083D,
+	0x1083F,
+	0x10856,
+	0x10860,
+	0x10877,
+	0x10880,
+	0x1089F,
+	0x108E0,
+	0x108F3,
+	0x108F4,
+	0x108F6,
+	0x10900,
+	0x10916,
+	0x10920,
+	0x1093A,
+	0x10980,
+	0x109B8,
+	0x109BE,
+	0x109C0,
+	0x10A00,
+	0x10A01,
+	0x10A04,
+	0x10A05,
+	0x10A07,
+	0x10A0C,
+	0x10A10,
+	0x10A14,
+	0x10A15,
+	0x10A18,
+	0x10A19,
+	0x10A34,
+	0x10A38,
+	0x10A3B,
+	0x10A3F,
+	0x10A40,
+	0x10A60,
+	0x10A7D,
+	0x10A80,
+	0x10A9D,
+	0x10AC0,
+	0x10AC8,
+	0x10AC9,
+	0x10AE5,
+	0x10AE7,
+	0x10B00,
+	0x10B36,
+	0x10B40,
+	0x10B56,
+	0x10B60,
+	0x10B73,
+	0x10B80,
+	0x10B92,
+	0x10C00,
+	0x10C49,
+	0x10C80,
+	0x10CB3,
+	0x10CC0,
+	0x10CF3,
+	0x11000,
+	0x11003,
+	0x11038,
+	0x11047,
+	0x11066,
+	0x11070,
+	0x1107F,
+	0x11083,
+	0x110B0,
+	0x110BB,
+	0x110BD,
+	0x110BE,
+	0x110D0,
+	0x110E9,
+	0x110F0,
+	0x110FA,
+	0x11100,
+	0x11103,
+	0x11127,
+	0x11135,
+	0x11136,
+	0x11140,
+	0x11150,
+	0x11173,
+	0x11174,
+	0x11176,
+	0x11177,
+	0x11180,
+	0x11183,
+	0x111B3,
+	0x111C1,
+	0x111C5,
+	0x111CA,
+	0x111CD,
+	0x111D0,
+	0x111DA,
+	0x111DB,
+	0x111DC,
+	0x111DD,
+	0x11200,
+	0x11212,
+	0x11213,
+	0x1122C,
+	0x11238,
+	0x11280,
+	0x11287,
+	0x11288,
+	0x11289,
+	0x1128A,
+	0x1128E,
+	0x1128F,
+	0x1129E,
+	0x1129F,
+	0x112A9,
+	0x112B0,
+	0x112DF,
+	0x112EB,
+	0x112F0,
+	0x112FA,
+	0x11300,
+	0x11304,
+	0x11305,
+	0x1130D,
+	0x1130F,
+	0x11311,
+	0x11313,
+	0x11329,
+	0x1132A,
+	0x11331,
+	0x11332,
+	0x11334,
+	0x11335,
+	0x1133A,
+	0x1133C,
+	0x1133D,
+	0x1133E,
+	0x11345,
+	0x11347,
+	0x11349,
+	0x1134B,
+	0x1134E,
+	0x11350,
+	0x11351,
+	0x11357,
+	0x11358,
+	0x1135D,
+	0x11362,
+	0x11364,
+	0x11366,
+	0x1136D,
+	0x11370,
+	0x11375,
+	0x11480,
+	0x114B0,
+	0x114C4,
+	0x114C6,
+	0x114C7,
+	0x114C8,
+	0x114D0,
+	0x114DA,
+	0x11580,
+	0x115AF,
+	0x115B6,
+	0x115B8,
+	0x115C1,
+	0x115D8,
+	0x115DC,
+	0x115DE,
+	0x11600,
+	0x11630,
+	0x11641,
+	0x11644,
+	0x11645,
+	0x11650,
+	0x1165A,
+	0x11680,
+	0x116AB,
+	0x116B8,
+	0x116C0,
+	0x116CA,
+	0x1171D,
+	0x1172C,
+	0x11730,
+	0x1173A,
+	0x118A0,
+	0x118E0,
+	0x118EA,
+	0x118FF,
+	0x11900,
+	0x11AC0,
+	0x11AF9,
+	0x12000,
+	0x1239A,
+	0x12400,
+	0x1246F,
+	0x12480,
+	0x12544,
+	0x13000,
+	0x1342F,
+	0x14400,
+	0x14647,
+	0x16800,
+	0x16A39,
+	0x16A40,
+	0x16A5F,
+	0x16A60,
+	0x16A6A,
+	0x16AD0,
+	0x16AEE,
+	0x16AF0,
+	0x16AF5,
+	0x16B00,
+	0x16B30,
+	0x16B37,
+	0x16B40,
+	0x16B44,
+	0x16B50,
+	0x16B5A,
+	0x16B63,
+	0x16B78,
+	0x16B7D,
+	0x16B90,
+	0x16F00,
+	0x16F45,
+	0x16F50,
+	0x16F51,
+	0x16F7F,
+	0x16F8F,
+	0x16F93,
+	0x16FA0,
+	0x1B000,
+	0x1B001,
+	0x1BC00,
+	0x1BC6B,
+	0x1BC70,
+	0x1BC7D,
+	0x1BC80,
+	0x1BC89,
+	0x1BC90,
+	0x1BC9A,
+	0x1BC9D,
+	0x1BC9F,
+	0x1BCA0,
+	0x1BCA4,
+	0x1D165,
+	0x1D16A,
+	0x1D16D,
+	0x1D173,
+	0x1D17B,
+	0x1D183,
+	0x1D185,
+	0x1D18C,
+	0x1D1AA,
+	0x1D1AE,
+	0x1D242,
+	0x1D245,
+	0x1D400,
+	0x1D455,
+	0x1D456,
+	0x1D49D,
+	0x1D49E,
+	0x1D4A0,
+	0x1D4A2,
+	0x1D4A3,
+	0x1D4A5,
+	0x1D4A7,
+	0x1D4A9,
+	0x1D4AD,
+	0x1D4AE,
+	0x1D4BA,
+	0x1D4BB,
+	0x1D4BC,
+	0x1D4BD,
+	0x1D4C4,
+	0x1D4C5,
+	0x1D506,
+	0x1D507,
+	0x1D50B,
+	0x1D50D,
+	0x1D515,
+	0x1D516,
+	0x1D51D,
+	0x1D51E,
+	0x1D53A,
+	0x1D53B,
+	0x1D53F,
+	0x1D540,
+	0x1D545,
+	0x1D546,
+	0x1D547,
+	0x1D54A,
+	0x1D551,
+	0x1D552,
+	0x1D6A6,
+	0x1D6A8,
+	0x1D6C1,
+	0x1D6C2,
+	0x1D6DB,
+	0x1D6DC,
+	0x1D6FB,
+	0x1D6FC,
+	0x1D715,
+	0x1D716,
+	0x1D735,
+	0x1D736,
+	0x1D74F,
+	0x1D750,
+	0x1D76F,
+	0x1D770,
+	0x1D789,
+	0x1D78A,
+	0x1D7A9,
+	0x1D7AA,
+	0x1D7C3,
+	0x1D7C4,
+	0x1D7CC,
+	0x1D7CE,
+	0x1D800,
+	0x1DA00,
+	0x1DA37,
+	0x1DA3B,
+	0x1DA6D,
+	0x1DA75,
+	0x1DA76,
+	0x1DA84,
+	0x1DA85,
+	0x1DA9B,
+	0x1DAA0,
+	0x1DAA1,
+	0x1DAB0,
+	0x1E800,
+	0x1E8C5,
+	0x1E8D0,
+	0x1E8D7,
+	0x1EE00,
+	0x1EE04,
+	0x1EE05,
+	0x1EE20,
+	0x1EE21,
+	0x1EE23,
+	0x1EE24,
+	0x1EE25,
+	0x1EE27,
+	0x1EE28,
+	0x1EE29,
+	0x1EE33,
+	0x1EE34,
+	0x1EE38,
+	0x1EE39,
+	0x1EE3A,
+	0x1EE3B,
+	0x1EE3C,
+	0x1EE42,
+	0x1EE43,
+	0x1EE47,
+	0x1EE48,
+	0x1EE49,
+	0x1EE4A,
+	0x1EE4B,
+	0x1EE4C,
+	0x1EE4D,
+	0x1EE50,
+	0x1EE51,
+	0x1EE53,
+	0x1EE54,
+	0x1EE55,
+	0x1EE57,
+	0x1EE58,
+	0x1EE59,
+	0x1EE5A,
+	0x1EE5B,
+	0x1EE5C,
+	0x1EE5D,
+	0x1EE5E,
+	0x1EE5F,
+	0x1EE60,
+	0x1EE61,
+	0x1EE63,
+	0x1EE64,
+	0x1EE65,
+	0x1EE67,
+	0x1EE6B,
+	0x1EE6C,
+	0x1EE73,
+	0x1EE74,
+	0x1EE78,
+	0x1EE79,
+	0x1EE7D,
+	0x1EE7E,
+	0x1EE7F,
+	0x1EE80,
+	0x1EE8A,
+	0x1EE8B,
+	0x1EE9C,
+	0x1EEA1,
+	0x1EEA4,
+	0x1EEA5,
+	0x1EEAA,
+	0x1EEAB,
+	0x1EEBC,
+	0x1F130,
+	0x1F14A,
+	0x1F150,
+	0x1F16A,
+	0x1F170,
+	0x1F18A,
+	0x1F1E6,
+	0x1F200,
+	0xE0001,
+	0xE0002,
+	0xE0020,
+	0xE0080,
+	0xE0100,
+	0xE01F0
+};
+
+#endif	/* defined(PERL_IN_PERL_C) */
+
+#if defined(PERL_IN_REGEXEC_C)
+
+#define WB_ENUM_COUNT 20
+
+typedef enum {
+	WB_Other = 0,
+	WB_ALetter = 1,
+	WB_CR = 2,
+	WB_Double_Quote = 3,
+	WB_Extend = 4,
+	WB_ExtendNumLet = 5,
+	WB_Format = 6,
+	WB_Hebrew_Letter = 7,
+	WB_Katakana = 8,
+	WB_LF = 9,
+	WB_MidLetter = 10,
+	WB_MidNum = 11,
+	WB_MidNumLet = 12,
+	WB_Newline = 13,
+	WB_Numeric = 14,
+	WB_Perl_Tailored_HSpace = 15,
+	WB_Regional_Indicator = 16,
+	WB_Single_Quote = 17,
+	WB_EDGE = 18,
+	WB_UNKNOWN = 19
+} WB_enum;
+
+static const WB_enum _Perl_WB_invmap[] = { /* for EBCDIC 037 */
+	WB_Other,
+	WB_Perl_Tailored_HSpace,
+	WB_Other,
+	WB_Newline,
+	WB_CR,
+	WB_Other,
+	WB_Newline,
+	WB_Other,
+	WB_LF,
+	WB_Other,
+	WB_Perl_Tailored_HSpace,
+	WB_ALetter,
+	WB_Other,
+	WB_MidNumLet,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_MidNum,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_MidNum,
+	WB_Other,
+	WB_ExtendNumLet,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_MidLetter,
+	WB_Other,
+	WB_Single_Quote,
+	WB_Other,
+	WB_Double_Quote,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_MidLetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Format,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Numeric,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_MidLetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_MidNum,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_MidLetter,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_MidNum,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Hebrew_Letter,
+	WB_Other,
+	WB_Hebrew_Letter,
+	WB_ALetter,
+	WB_MidLetter,
+	WB_Other,
+	WB_Format,
+	WB_Other,
+	WB_MidNum,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Format,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Numeric,
+	WB_Other,
+	WB_Numeric,
+	WB_MidNum,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Format,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Numeric,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Format,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Other,
+	WB_Numeric,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Other,
+	WB_MidNum,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Numeric,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Numeric,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Perl_Tailored_HSpace,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_Extend,
+	WB_Format,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Numeric,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Numeric,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_ALetter,
+	WB_Numeric,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Perl_Tailored_HSpace,
+	WB_Other,
+	WB_Extend,
+	WB_Format,
+	WB_Other,
+	WB_MidNumLet,
+	WB_Other,
+	WB_MidNumLet,
+	WB_Other,
+	WB_MidLetter,
+	WB_Newline,
+	WB_Format,
+	WB_Perl_Tailored_HSpace,
+	WB_Other,
+	WB_ExtendNumLet,
+	WB_Other,
+	WB_MidNum,
+	WB_Other,
+	WB_ExtendNumLet,
+	WB_Other,
+	WB_Perl_Tailored_HSpace,
+	WB_Format,
+	WB_Other,
+	WB_Format,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Perl_Tailored_HSpace,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Katakana,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Katakana,
+	WB_Other,
+	WB_Katakana,
+	WB_Other,
+	WB_Katakana,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Katakana,
+	WB_Other,
+	WB_Katakana,
+	WB_Other,
+	WB_Katakana,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Numeric,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Numeric,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Numeric,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Hebrew_Letter,
+	WB_Extend,
+	WB_Hebrew_Letter,
+	WB_Other,
+	WB_Hebrew_Letter,
+	WB_Other,
+	WB_Hebrew_Letter,
+	WB_Other,
+	WB_Hebrew_Letter,
+	WB_Other,
+	WB_Hebrew_Letter,
+	WB_Other,
+	WB_Hebrew_Letter,
+	WB_Other,
+	WB_Hebrew_Letter,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_MidNum,
+	WB_Other,
+	WB_MidLetter,
+	WB_MidNum,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ExtendNumLet,
+	WB_Other,
+	WB_ExtendNumLet,
+	WB_MidNum,
+	WB_Other,
+	WB_MidNumLet,
+	WB_Other,
+	WB_MidNum,
+	WB_MidLetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Format,
+	WB_Other,
+	WB_MidNumLet,
+	WB_Other,
+	WB_MidNum,
+	WB_Other,
+	WB_MidNumLet,
+	WB_Other,
+	WB_MidLetter,
+	WB_MidNum,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ExtendNumLet,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Katakana,
+	WB_Extend,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Format,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Format,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_ALetter,
+	WB_Numeric,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_ALetter,
+	WB_Other,
+	WB_Katakana,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Format,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Format,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Numeric,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Extend,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_ALetter,
+	WB_Other,
+	WB_Regional_Indicator,
+	WB_Other,
+	WB_Format,
+	WB_Other,
+	WB_Format,
+	WB_Other,
+	WB_Extend,
+	WB_Other
+};
+
+#endif	/* defined(PERL_IN_REGEXEC_C) */
+
+#if defined(PERL_IN_REGCOMP_C)
+
+static const UV UpperLatin1_invlist[] = { /* for EBCDIC 037 */
+	57,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	1,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x4,
+	0x5,
+	0x6,
+	0x7,
+	0x8,
+	0xB,
+	0x14,
+	0x16,
+	0x17,
+	0x18,
+	0x1A,
+	0x1C,
+	0x20,
+	0x25,
+	0x28,
+	0x2D,
+	0x30,
+	0x32,
+	0x33,
+	0x37,
+	0x38,
+	0x3C,
+	0x3E,
+	0x3F,
+	0x41,
+	0x4B,
+	0x51,
+	0x5A,
+	0x5F,
+	0x60,
+	0x62,
+	0x6B,
+	0x70,
+	0x79,
+	0x80,
+	0x81,
+	0x8A,
+	0x91,
+	0x9A,
+	0xA1,
+	0xAA,
+	0xB0,
+	0xB1,
+	0xBA,
+	0xBC,
+	0xC0,
+	0xCA,
+	0xD0,
+	0xDA,
+	0xE0,
+	0xE1,
+	0xE2,
+	0xEA,
+	0xF0,
+	0xFA,
+	0x100
+};
+
+#endif	/* defined(PERL_IN_REGCOMP_C) */
+
+#if defined(PERL_IN_PERL_C)
+
+static const UV VertSpace_invlist[] = { /* for EBCDIC 037 */
+	9,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	1,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0xB,
+	0xE,
+	0x15,
+	0x16,
+	0x25,
+	0x26,
+	0x2028,
+	0x202A
+};
+
+static const UV XPerlSpace_invlist[] = { /* for EBCDIC 037 */
+	23,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	1,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x5,
+	0x6,
+	0xB,
+	0xE,
+	0x15,
+	0x16,
+	0x25,
+	0x26,
+	0x40,
+	0x42,
+	0x1680,
+	0x1681,
+	0x2000,
+	0x200B,
+	0x2028,
+	0x202A,
+	0x202F,
+	0x2030,
+	0x205F,
+	0x2060,
+	0x3000,
+	0x3001
+};
+
+static const UV XPosixAlnum_invlist[] = { /* for EBCDIC 037 */
+	1317,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	1,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x42,
+	0x4A,
+	0x51,
+	0x5A,
+	0x62,
+	0x6A,
+	0x70,
+	0x79,
+	0x80,
+	0x8A,
+	0x8C,
+	0x8F,
+	0x91,
+	0x9D,
+	0x9E,
+	0x9F,
+	0xA0,
+	0xA1,
+	0xA2,
+	0xAA,
+	0xAC,
+	0xAF,
+	0xC1,
+	0xCA,
+	0xCB,
+	0xD0,
+	0xD1,
+	0xDA,
+	0xDB,
+	0xE0,
+	0xE2,
+	0xEA,
+	0xEB,
+	0xFA,
+	0xFB,
+	0xFF,
+	0x100,
+	0x2C2,
+	0x2C6,
+	0x2D2,
+	0x2E0,
+	0x2E5,
+	0x2EC,
+	0x2ED,
+	0x2EE,
+	0x2EF,
+	0x345,
+	0x346,
+	0x370,
+	0x375,
+	0x376,
+	0x378,
+	0x37A,
+	0x37E,
+	0x37F,
+	0x380,
+	0x386,
+	0x387,
+	0x388,
+	0x38B,
+	0x38C,
+	0x38D,
+	0x38E,
+	0x3A2,
+	0x3A3,
+	0x3F6,
+	0x3F7,
+	0x482,
+	0x48A,
+	0x530,
+	0x531,
+	0x557,
+	0x559,
+	0x55A,
+	0x561,
+	0x588,
+	0x5B0,
+	0x5BE,
+	0x5BF,
+	0x5C0,
+	0x5C1,
+	0x5C3,
+	0x5C4,
+	0x5C6,
+	0x5C7,
+	0x5C8,
+	0x5D0,
+	0x5EB,
+	0x5F0,
+	0x5F3,
+	0x610,
+	0x61B,
+	0x620,
+	0x658,
+	0x659,
+	0x66A,
+	0x66E,
+	0x6D4,
+	0x6D5,
+	0x6DD,
+	0x6E1,
+	0x6E9,
+	0x6ED,
+	0x6FD,
+	0x6FF,
+	0x700,
+	0x710,
+	0x740,
+	0x74D,
+	0x7B2,
+	0x7C0,
+	0x7EB,
+	0x7F4,
+	0x7F6,
+	0x7FA,
+	0x7FB,
+	0x800,
+	0x818,
+	0x81A,
+	0x82D,
+	0x840,
+	0x859,
+	0x8A0,
+	0x8B5,
+	0x8E3,
+	0x8EA,
+	0x8F0,
+	0x93C,
+	0x93D,
+	0x94D,
+	0x94E,
+	0x951,
+	0x955,
+	0x964,
+	0x966,
+	0x970,
+	0x971,
+	0x984,
+	0x985,
+	0x98D,
+	0x98F,
+	0x991,
+	0x993,
+	0x9A9,
+	0x9AA,
+	0x9B1,
+	0x9B2,
+	0x9B3,
+	0x9B6,
+	0x9BA,
+	0x9BD,
+	0x9C5,
+	0x9C7,
+	0x9C9,
+	0x9CB,
+	0x9CD,
+	0x9CE,
+	0x9CF,
+	0x9D7,
+	0x9D8,
+	0x9DC,
+	0x9DE,
+	0x9DF,
+	0x9E4,
+	0x9E6,
+	0x9F2,
+	0xA01,
+	0xA04,
+	0xA05,
+	0xA0B,
+	0xA0F,
+	0xA11,
+	0xA13,
+	0xA29,
+	0xA2A,
+	0xA31,
+	0xA32,
+	0xA34,
+	0xA35,
+	0xA37,
+	0xA38,
+	0xA3A,
+	0xA3E,
+	0xA43,
+	0xA47,
+	0xA49,
+	0xA4B,
+	0xA4D,
+	0xA51,
+	0xA52,
+	0xA59,
+	0xA5D,
+	0xA5E,
+	0xA5F,
+	0xA66,
+	0xA76,
+	0xA81,
+	0xA84,
+	0xA85,
+	0xA8E,
+	0xA8F,
+	0xA92,
+	0xA93,
+	0xAA9,
+	0xAAA,
+	0xAB1,
+	0xAB2,
+	0xAB4,
+	0xAB5,
+	0xABA,
+	0xABD,
+	0xAC6,
+	0xAC7,
+	0xACA,
+	0xACB,
+	0xACD,
+	0xAD0,
+	0xAD1,
+	0xAE0,
+	0xAE4,
+	0xAE6,
+	0xAF0,
+	0xAF9,
+	0xAFA,
+	0xB01,
+	0xB04,
+	0xB05,
+	0xB0D,
+	0xB0F,
+	0xB11,
+	0xB13,
+	0xB29,
+	0xB2A,
+	0xB31,
+	0xB32,
+	0xB34,
+	0xB35,
+	0xB3A,
+	0xB3D,
+	0xB45,
+	0xB47,
+	0xB49,
+	0xB4B,
+	0xB4D,
+	0xB56,
+	0xB58,
+	0xB5C,
+	0xB5E,
+	0xB5F,
+	0xB64,
+	0xB66,
+	0xB70,
+	0xB71,
+	0xB72,
+	0xB82,
+	0xB84,
+	0xB85,
+	0xB8B,
+	0xB8E,
+	0xB91,
+	0xB92,
+	0xB96,
+	0xB99,
+	0xB9B,
+	0xB9C,
+	0xB9D,
+	0xB9E,
+	0xBA0,
+	0xBA3,
+	0xBA5,
+	0xBA8,
+	0xBAB,
+	0xBAE,
+	0xBBA,
+	0xBBE,
+	0xBC3,
+	0xBC6,
+	0xBC9,
+	0xBCA,
+	0xBCD,
+	0xBD0,
+	0xBD1,
+	0xBD7,
+	0xBD8,
+	0xBE6,
+	0xBF0,
+	0xC00,
+	0xC04,
+	0xC05,
+	0xC0D,
+	0xC0E,
+	0xC11,
+	0xC12,
+	0xC29,
+	0xC2A,
+	0xC3A,
+	0xC3D,
+	0xC45,
+	0xC46,
+	0xC49,
+	0xC4A,
+	0xC4D,
+	0xC55,
+	0xC57,
+	0xC58,
+	0xC5B,
+	0xC60,
+	0xC64,
+	0xC66,
+	0xC70,
+	0xC81,
+	0xC84,
+	0xC85,
+	0xC8D,
+	0xC8E,
+	0xC91,
+	0xC92,
+	0xCA9,
+	0xCAA,
+	0xCB4,
+	0xCB5,
+	0xCBA,
+	0xCBD,
+	0xCC5,
+	0xCC6,
+	0xCC9,
+	0xCCA,
+	0xCCD,
+	0xCD5,
+	0xCD7,
+	0xCDE,
+	0xCDF,
+	0xCE0,
+	0xCE4,
+	0xCE6,
+	0xCF0,
+	0xCF1,
+	0xCF3,
+	0xD01,
+	0xD04,
+	0xD05,
+	0xD0D,
+	0xD0E,
+	0xD11,
+	0xD12,
+	0xD3B,
+	0xD3D,
+	0xD45,
+	0xD46,
+	0xD49,
+	0xD4A,
+	0xD4D,
+	0xD4E,
+	0xD4F,
+	0xD57,
+	0xD58,
+	0xD5F,
+	0xD64,
+	0xD66,
+	0xD70,
+	0xD7A,
+	0xD80,
+	0xD82,
+	0xD84,
+	0xD85,
+	0xD97,
+	0xD9A,
+	0xDB2,
+	0xDB3,
+	0xDBC,
+	0xDBD,
+	0xDBE,
+	0xDC0,
+	0xDC7,
+	0xDCF,
+	0xDD5,
+	0xDD6,
+	0xDD7,
+	0xDD8,
+	0xDE0,
+	0xDE6,
+	0xDF0,
+	0xDF2,
+	0xDF4,
+	0xE01,
+	0xE3B,
+	0xE40,
+	0xE47,
+	0xE4D,
+	0xE4E,
+	0xE50,
+	0xE5A,
+	0xE81,
+	0xE83,
+	0xE84,
+	0xE85,
+	0xE87,
+	0xE89,
+	0xE8A,
+	0xE8B,
+	0xE8D,
+	0xE8E,
+	0xE94,
+	0xE98,
+	0xE99,
+	0xEA0,
+	0xEA1,
+	0xEA4,
+	0xEA5,
+	0xEA6,
+	0xEA7,
+	0xEA8,
+	0xEAA,
+	0xEAC,
+	0xEAD,
+	0xEBA,
+	0xEBB,
+	0xEBE,
+	0xEC0,
+	0xEC5,
+	0xEC6,
+	0xEC7,
+	0xECD,
+	0xECE,
+	0xED0,
+	0xEDA,
+	0xEDC,
+	0xEE0,
+	0xF00,
+	0xF01,
+	0xF20,
+	0xF2A,
+	0xF40,
+	0xF48,
+	0xF49,
+	0xF6D,
+	0xF71,
+	0xF82,
+	0xF88,
+	0xF98,
+	0xF99,
+	0xFBD,
+	0x1000,
+	0x1037,
+	0x1038,
+	0x1039,
+	0x103B,
+	0x104A,
+	0x1050,
+	0x1063,
+	0x1065,
+	0x1069,
+	0x106E,
+	0x1087,
+	0x108E,
+	0x108F,
+	0x1090,
+	0x109A,
+	0x109C,
+	0x109E,
+	0x10A0,
+	0x10C6,
+	0x10C7,
+	0x10C8,
+	0x10CD,
+	0x10CE,
+	0x10D0,
+	0x10FB,
+	0x10FC,
+	0x1249,
+	0x124A,
+	0x124E,
+	0x1250,
+	0x1257,
+	0x1258,
+	0x1259,
+	0x125A,
+	0x125E,
+	0x1260,
+	0x1289,
+	0x128A,
+	0x128E,
+	0x1290,
+	0x12B1,
+	0x12B2,
+	0x12B6,
+	0x12B8,
+	0x12BF,
+	0x12C0,
+	0x12C1,
+	0x12C2,
+	0x12C6,
+	0x12C8,
+	0x12D7,
+	0x12D8,
+	0x1311,
+	0x1312,
+	0x1316,
+	0x1318,
+	0x135B,
+	0x135F,
+	0x1360,
+	0x1380,
+	0x1390,
+	0x13A0,
+	0x13F6,
+	0x13F8,
+	0x13FE,
+	0x1401,
+	0x166D,
+	0x166F,
+	0x1680,
+	0x1681,
+	0x169B,
+	0x16A0,
+	0x16EB,
+	0x16EE,
+	0x16F9,
+	0x1700,
+	0x170D,
+	0x170E,
+	0x1714,
+	0x1720,
+	0x1734,
+	0x1740,
+	0x1754,
+	0x1760,
+	0x176D,
+	0x176E,
+	0x1771,
+	0x1772,
+	0x1774,
+	0x1780,
+	0x17B4,
+	0x17B6,
+	0x17C9,
+	0x17D7,
+	0x17D8,
+	0x17DC,
+	0x17DD,
+	0x17E0,
+	0x17EA,
+	0x1810,
+	0x181A,
+	0x1820,
+	0x1878,
+	0x1880,
+	0x18AB,
+	0x18B0,
+	0x18F6,
+	0x1900,
+	0x191F,
+	0x1920,
+	0x192C,
+	0x1930,
+	0x1939,
+	0x1946,
+	0x196E,
+	0x1970,
+	0x1975,
+	0x1980,
+	0x19AC,
+	0x19B0,
+	0x19CA,
+	0x19D0,
+	0x19DA,
+	0x1A00,
+	0x1A1C,
+	0x1A20,
+	0x1A5F,
+	0x1A61,
+	0x1A75,
+	0x1A80,
+	0x1A8A,
+	0x1A90,
+	0x1A9A,
+	0x1AA7,
+	0x1AA8,
+	0x1B00,
+	0x1B34,
+	0x1B35,
+	0x1B44,
+	0x1B45,
+	0x1B4C,
+	0x1B50,
+	0x1B5A,
+	0x1B80,
+	0x1BAA,
+	0x1BAC,
+	0x1BE6,
+	0x1BE7,
+	0x1BF2,
+	0x1C00,
+	0x1C36,
+	0x1C40,
+	0x1C4A,
+	0x1C4D,
+	0x1C7E,
+	0x1CE9,
+	0x1CED,
+	0x1CEE,
+	0x1CF4,
+	0x1CF5,
+	0x1CF7,
+	0x1D00,
+	0x1DC0,
+	0x1DE7,
+	0x1DF5,
+	0x1E00,
+	0x1F16,
+	0x1F18,
+	0x1F1E,
+	0x1F20,
+	0x1F46,
+	0x1F48,
+	0x1F4E,
+	0x1F50,
+	0x1F58,
+	0x1F59,
+	0x1F5A,
+	0x1F5B,
+	0x1F5C,
+	0x1F5D,
+	0x1F5E,
+	0x1F5F,
+	0x1F7E,
+	0x1F80,
+	0x1FB5,
+	0x1FB6,
+	0x1FBD,
+	0x1FBE,
+	0x1FBF,
+	0x1FC2,
+	0x1FC5,
+	0x1FC6,
+	0x1FCD,
+	0x1FD0,
+	0x1FD4,
+	0x1FD6,
+	0x1FDC,
+	0x1FE0,
+	0x1FED,
+	0x1FF2,
+	0x1FF5,
+	0x1FF6,
+	0x1FFD,
+	0x2071,
+	0x2072,
+	0x207F,
+	0x2080,
+	0x2090,
+	0x209D,
+	0x2102,
+	0x2103,
+	0x2107,
+	0x2108,
+	0x210A,
+	0x2114,
+	0x2115,
+	0x2116,
+	0x2119,
+	0x211E,
+	0x2124,
+	0x2125,
+	0x2126,
+	0x2127,
+	0x2128,
+	0x2129,
+	0x212A,
+	0x212E,
+	0x212F,
+	0x213A,
+	0x213C,
+	0x2140,
+	0x2145,
+	0x214A,
+	0x214E,
+	0x214F,
+	0x2160,
+	0x2189,
+	0x24B6,
+	0x24EA,
+	0x2C00,
+	0x2C2F,
+	0x2C30,
+	0x2C5F,
+	0x2C60,
+	0x2CE5,
+	0x2CEB,
+	0x2CEF,
+	0x2CF2,
+	0x2CF4,
+	0x2D00,
+	0x2D26,
+	0x2D27,
+	0x2D28,
+	0x2D2D,
+	0x2D2E,
+	0x2D30,
+	0x2D68,
+	0x2D6F,
+	0x2D70,
+	0x2D80,
+	0x2D97,
+	0x2DA0,
+	0x2DA7,
+	0x2DA8,
+	0x2DAF,
+	0x2DB0,
+	0x2DB7,
+	0x2DB8,
+	0x2DBF,
+	0x2DC0,
+	0x2DC7,
+	0x2DC8,
+	0x2DCF,
+	0x2DD0,
+	0x2DD7,
+	0x2DD8,
+	0x2DDF,
+	0x2DE0,
+	0x2E00,
+	0x2E2F,
+	0x2E30,
+	0x3005,
+	0x3008,
+	0x3021,
+	0x302A,
+	0x3031,
+	0x3036,
+	0x3038,
+	0x303D,
+	0x3041,
+	0x3097,
+	0x309D,
+	0x30A0,
+	0x30A1,
+	0x30FB,
+	0x30FC,
+	0x3100,
+	0x3105,
+	0x312E,
+	0x3131,
+	0x318F,
+	0x31A0,
+	0x31BB,
+	0x31F0,
+	0x3200,
+	0x3400,
+	0x4DB6,
+	0x4E00,
+	0x9FD6,
+	0xA000,
+	0xA48D,
+	0xA4D0,
+	0xA4FE,
+	0xA500,
+	0xA60D,
+	0xA610,
+	0xA62C,
+	0xA640,
+	0xA66F,
+	0xA674,
+	0xA67C,
+	0xA67F,
+	0xA6F0,
+	0xA717,
+	0xA720,
+	0xA722,
+	0xA789,
+	0xA78B,
+	0xA7AE,
+	0xA7B0,
+	0xA7B8,
+	0xA7F7,
+	0xA802,
+	0xA803,
+	0xA806,
+	0xA807,
+	0xA80B,
+	0xA80C,
+	0xA828,
+	0xA840,
+	0xA874,
+	0xA880,
+	0xA8C4,
+	0xA8D0,
+	0xA8DA,
+	0xA8F2,
+	0xA8F8,
+	0xA8FB,
+	0xA8FC,
+	0xA8FD,
+	0xA8FE,
+	0xA900,
+	0xA92B,
+	0xA930,
+	0xA953,
+	0xA960,
+	0xA97D,
+	0xA980,
+	0xA9B3,
+	0xA9B4,
+	0xA9C0,
+	0xA9CF,
+	0xA9DA,
+	0xA9E0,
+	0xA9E5,
+	0xA9E6,
+	0xA9FF,
+	0xAA00,
+	0xAA37,
+	0xAA40,
+	0xAA4E,
+	0xAA50,
+	0xAA5A,
+	0xAA60,
+	0xAA77,
+	0xAA7A,
+	0xAA7B,
+	0xAA7E,
+	0xAABF,
+	0xAAC0,
+	0xAAC1,
+	0xAAC2,
+	0xAAC3,
+	0xAADB,
+	0xAADE,
+	0xAAE0,
+	0xAAF0,
+	0xAAF2,
+	0xAAF6,
+	0xAB01,
+	0xAB07,
+	0xAB09,
+	0xAB0F,
+	0xAB11,
+	0xAB17,
+	0xAB20,
+	0xAB27,
+	0xAB28,
+	0xAB2F,
+	0xAB30,
+	0xAB5B,
+	0xAB5C,
+	0xAB66,
+	0xAB70,
+	0xABEB,
+	0xABF0,
+	0xABFA,
+	0xAC00,
+	0xD7A4,
+	0xD7B0,
+	0xD7C7,
+	0xD7CB,
+	0xD7FC,
+	0xF900,
+	0xFA6E,
+	0xFA70,
+	0xFADA,
+	0xFB00,
+	0xFB07,
+	0xFB13,
+	0xFB18,
+	0xFB1D,
+	0xFB29,
+	0xFB2A,
+	0xFB37,
+	0xFB38,
+	0xFB3D,
+	0xFB3E,
+	0xFB3F,
+	0xFB40,
+	0xFB42,
+	0xFB43,
+	0xFB45,
+	0xFB46,
+	0xFBB2,
+	0xFBD3,
+	0xFD3E,
+	0xFD50,
+	0xFD90,
+	0xFD92,
+	0xFDC8,
+	0xFDF0,
+	0xFDFC,
+	0xFE70,
+	0xFE75,
+	0xFE76,
+	0xFEFD,
+	0xFF10,
+	0xFF1A,
+	0xFF21,
+	0xFF3B,
+	0xFF41,
+	0xFF5B,
+	0xFF66,
+	0xFFBF,
+	0xFFC2,
+	0xFFC8,
+	0xFFCA,
+	0xFFD0,
+	0xFFD2,
+	0xFFD8,
+	0xFFDA,
+	0xFFDD,
+	0x10000,
+	0x1000C,
+	0x1000D,
+	0x10027,
+	0x10028,
+	0x1003B,
+	0x1003C,
+	0x1003E,
+	0x1003F,
+	0x1004E,
+	0x10050,
+	0x1005E,
+	0x10080,
+	0x100FB,
+	0x10140,
+	0x10175,
+	0x10280,
+	0x1029D,
+	0x102A0,
+	0x102D1,
+	0x10300,
+	0x10320,
+	0x10330,
+	0x1034B,
+	0x10350,
+	0x1037B,
+	0x10380,
+	0x1039E,
+	0x103A0,
+	0x103C4,
+	0x103C8,
+	0x103D0,
+	0x103D1,
+	0x103D6,
+	0x10400,
+	0x1049E,
+	0x104A0,
+	0x104AA,
+	0x10500,
+	0x10528,
+	0x10530,
+	0x10564,
+	0x10600,
+	0x10737,
+	0x10740,
+	0x10756,
+	0x10760,
+	0x10768,
+	0x10800,
+	0x10806,
+	0x10808,
+	0x10809,
+	0x1080A,
+	0x10836,
+	0x10837,
+	0x10839,
+	0x1083C,
+	0x1083D,
+	0x1083F,
+	0x10856,
+	0x10860,
+	0x10877,
+	0x10880,
+	0x1089F,
+	0x108E0,
+	0x108F3,
+	0x108F4,
+	0x108F6,
+	0x10900,
+	0x10916,
+	0x10920,
+	0x1093A,
+	0x10980,
+	0x109B8,
+	0x109BE,
+	0x109C0,
+	0x10A00,
+	0x10A04,
+	0x10A05,
+	0x10A07,
+	0x10A0C,
+	0x10A14,
+	0x10A15,
+	0x10A18,
+	0x10A19,
+	0x10A34,
+	0x10A60,
+	0x10A7D,
+	0x10A80,
+	0x10A9D,
+	0x10AC0,
+	0x10AC8,
+	0x10AC9,
+	0x10AE5,
+	0x10B00,
+	0x10B36,
+	0x10B40,
+	0x10B56,
+	0x10B60,
+	0x10B73,
+	0x10B80,
+	0x10B92,
+	0x10C00,
+	0x10C49,
+	0x10C80,
+	0x10CB3,
+	0x10CC0,
+	0x10CF3,
+	0x11000,
+	0x11046,
+	0x11066,
+	0x11070,
+	0x11082,
+	0x110B9,
+	0x110D0,
+	0x110E9,
+	0x110F0,
+	0x110FA,
+	0x11100,
+	0x11133,
+	0x11136,
+	0x11140,
+	0x11150,
+	0x11173,
+	0x11176,
+	0x11177,
+	0x11180,
+	0x111C0,
+	0x111C1,
+	0x111C5,
+	0x111D0,
+	0x111DB,
+	0x111DC,
+	0x111DD,
+	0x11200,
+	0x11212,
+	0x11213,
+	0x11235,
+	0x11237,
+	0x11238,
+	0x11280,
+	0x11287,
+	0x11288,
+	0x11289,
+	0x1128A,
+	0x1128E,
+	0x1128F,
+	0x1129E,
+	0x1129F,
+	0x112A9,
+	0x112B0,
+	0x112E9,
+	0x112F0,
+	0x112FA,
+	0x11300,
+	0x11304,
+	0x11305,
+	0x1130D,
+	0x1130F,
+	0x11311,
+	0x11313,
+	0x11329,
+	0x1132A,
+	0x11331,
+	0x11332,
+	0x11334,
+	0x11335,
+	0x1133A,
+	0x1133D,
+	0x11345,
+	0x11347,
+	0x11349,
+	0x1134B,
+	0x1134D,
+	0x11350,
+	0x11351,
+	0x11357,
+	0x11358,
+	0x1135D,
+	0x11364,
+	0x11480,
+	0x114C2,
+	0x114C4,
+	0x114C6,
+	0x114C7,
+	0x114C8,
+	0x114D0,
+	0x114DA,
+	0x11580,
+	0x115B6,
+	0x115B8,
+	0x115BF,
+	0x115D8,
+	0x115DE,
+	0x11600,
+	0x1163F,
+	0x11640,
+	0x11641,
+	0x11644,
+	0x11645,
+	0x11650,
+	0x1165A,
+	0x11680,
+	0x116B6,
+	0x116C0,
+	0x116CA,
+	0x11700,
+	0x1171A,
+	0x1171D,
+	0x1172B,
+	0x11730,
+	0x1173A,
+	0x118A0,
+	0x118EA,
+	0x118FF,
+	0x11900,
+	0x11AC0,
+	0x11AF9,
+	0x12000,
+	0x1239A,
+	0x12400,
+	0x1246F,
+	0x12480,
+	0x12544,
+	0x13000,
+	0x1342F,
+	0x14400,
+	0x14647,
+	0x16800,
+	0x16A39,
+	0x16A40,
+	0x16A5F,
+	0x16A60,
+	0x16A6A,
+	0x16AD0,
+	0x16AEE,
+	0x16B00,
+	0x16B37,
+	0x16B40,
+	0x16B44,
+	0x16B50,
+	0x16B5A,
+	0x16B63,
+	0x16B78,
+	0x16B7D,
+	0x16B90,
+	0x16F00,
+	0x16F45,
+	0x16F50,
+	0x16F7F,
+	0x16F93,
+	0x16FA0,
+	0x1B000,
+	0x1B002,
+	0x1BC00,
+	0x1BC6B,
+	0x1BC70,
+	0x1BC7D,
+	0x1BC80,
+	0x1BC89,
+	0x1BC90,
+	0x1BC9A,
+	0x1BC9E,
+	0x1BC9F,
+	0x1D400,
+	0x1D455,
+	0x1D456,
+	0x1D49D,
+	0x1D49E,
+	0x1D4A0,
+	0x1D4A2,
+	0x1D4A3,
+	0x1D4A5,
+	0x1D4A7,
+	0x1D4A9,
+	0x1D4AD,
+	0x1D4AE,
+	0x1D4BA,
+	0x1D4BB,
+	0x1D4BC,
+	0x1D4BD,
+	0x1D4C4,
+	0x1D4C5,
+	0x1D506,
+	0x1D507,
+	0x1D50B,
+	0x1D50D,
+	0x1D515,
+	0x1D516,
+	0x1D51D,
+	0x1D51E,
+	0x1D53A,
+	0x1D53B,
+	0x1D53F,
+	0x1D540,
+	0x1D545,
+	0x1D546,
+	0x1D547,
+	0x1D54A,
+	0x1D551,
+	0x1D552,
+	0x1D6A6,
+	0x1D6A8,
+	0x1D6C1,
+	0x1D6C2,
+	0x1D6DB,
+	0x1D6DC,
+	0x1D6FB,
+	0x1D6FC,
+	0x1D715,
+	0x1D716,
+	0x1D735,
+	0x1D736,
+	0x1D74F,
+	0x1D750,
+	0x1D76F,
+	0x1D770,
+	0x1D789,
+	0x1D78A,
+	0x1D7A9,
+	0x1D7AA,
+	0x1D7C3,
+	0x1D7C4,
+	0x1D7CC,
+	0x1D7CE,
+	0x1D800,
+	0x1E800,
+	0x1E8C5,
+	0x1EE00,
+	0x1EE04,
+	0x1EE05,
+	0x1EE20,
+	0x1EE21,
+	0x1EE23,
+	0x1EE24,
+	0x1EE25,
+	0x1EE27,
+	0x1EE28,
+	0x1EE29,
+	0x1EE33,
+	0x1EE34,
+	0x1EE38,
+	0x1EE39,
+	0x1EE3A,
+	0x1EE3B,
+	0x1EE3C,
+	0x1EE42,
+	0x1EE43,
+	0x1EE47,
+	0x1EE48,
+	0x1EE49,
+	0x1EE4A,
+	0x1EE4B,
+	0x1EE4C,
+	0x1EE4D,
+	0x1EE50,
+	0x1EE51,
+	0x1EE53,
+	0x1EE54,
+	0x1EE55,
+	0x1EE57,
+	0x1EE58,
+	0x1EE59,
+	0x1EE5A,
+	0x1EE5B,
+	0x1EE5C,
+	0x1EE5D,
+	0x1EE5E,
+	0x1EE5F,
+	0x1EE60,
+	0x1EE61,
+	0x1EE63,
+	0x1EE64,
+	0x1EE65,
+	0x1EE67,
+	0x1EE6B,
+	0x1EE6C,
+	0x1EE73,
+	0x1EE74,
+	0x1EE78,
+	0x1EE79,
+	0x1EE7D,
+	0x1EE7E,
+	0x1EE7F,
+	0x1EE80,
+	0x1EE8A,
+	0x1EE8B,
+	0x1EE9C,
+	0x1EEA1,
+	0x1EEA4,
+	0x1EEA5,
+	0x1EEAA,
+	0x1EEAB,
+	0x1EEBC,
+	0x1F130,
+	0x1F14A,
+	0x1F150,
+	0x1F16A,
+	0x1F170,
+	0x1F18A,
+	0x20000,
+	0x2A6D7,
+	0x2A700,
+	0x2B735,
+	0x2B740,
+	0x2B81E,
+	0x2B820,
+	0x2CEA2,
+	0x2F800,
+	0x2FA1E
+};
+
+static const UV XPosixAlpha_invlist[] = { /* for EBCDIC 037 */
+	1257,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	1,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x42,
+	0x4A,
+	0x51,
+	0x5A,
+	0x62,
+	0x6A,
+	0x70,
+	0x79,
+	0x80,
+	0x8A,
+	0x8C,
+	0x8F,
+	0x91,
+	0x9D,
+	0x9E,
+	0x9F,
+	0xA0,
+	0xA1,
+	0xA2,
+	0xAA,
+	0xAC,
+	0xAF,
+	0xC1,
+	0xCA,
+	0xCB,
+	0xD0,
+	0xD1,
+	0xDA,
+	0xDB,
+	0xE0,
+	0xE2,
+	0xEA,
+	0xEB,
+	0xF0,
+	0xFB,
+	0xFF,
+	0x100,
+	0x2C2,
+	0x2C6,
+	0x2D2,
+	0x2E0,
+	0x2E5,
+	0x2EC,
+	0x2ED,
+	0x2EE,
+	0x2EF,
+	0x345,
+	0x346,
+	0x370,
+	0x375,
+	0x376,
+	0x378,
+	0x37A,
+	0x37E,
+	0x37F,
+	0x380,
+	0x386,
+	0x387,
+	0x388,
+	0x38B,
+	0x38C,
+	0x38D,
+	0x38E,
+	0x3A2,
+	0x3A3,
+	0x3F6,
+	0x3F7,
+	0x482,
+	0x48A,
+	0x530,
+	0x531,
+	0x557,
+	0x559,
+	0x55A,
+	0x561,
+	0x588,
+	0x5B0,
+	0x5BE,
+	0x5BF,
+	0x5C0,
+	0x5C1,
+	0x5C3,
+	0x5C4,
+	0x5C6,
+	0x5C7,
+	0x5C8,
+	0x5D0,
+	0x5EB,
+	0x5F0,
+	0x5F3,
+	0x610,
+	0x61B,
+	0x620,
+	0x658,
+	0x659,
+	0x660,
+	0x66E,
+	0x6D4,
+	0x6D5,
+	0x6DD,
+	0x6E1,
+	0x6E9,
+	0x6ED,
+	0x6F0,
+	0x6FA,
+	0x6FD,
+	0x6FF,
+	0x700,
+	0x710,
+	0x740,
+	0x74D,
+	0x7B2,
+	0x7CA,
+	0x7EB,
+	0x7F4,
+	0x7F6,
+	0x7FA,
+	0x7FB,
+	0x800,
+	0x818,
+	0x81A,
+	0x82D,
+	0x840,
+	0x859,
+	0x8A0,
+	0x8B5,
+	0x8E3,
+	0x8EA,
+	0x8F0,
+	0x93C,
+	0x93D,
+	0x94D,
+	0x94E,
+	0x951,
+	0x955,
+	0x964,
+	0x971,
+	0x984,
+	0x985,
+	0x98D,
+	0x98F,
+	0x991,
+	0x993,
+	0x9A9,
+	0x9AA,
+	0x9B1,
+	0x9B2,
+	0x9B3,
+	0x9B6,
+	0x9BA,
+	0x9BD,
+	0x9C5,
+	0x9C7,
+	0x9C9,
+	0x9CB,
+	0x9CD,
+	0x9CE,
+	0x9CF,
+	0x9D7,
+	0x9D8,
+	0x9DC,
+	0x9DE,
+	0x9DF,
+	0x9E4,
+	0x9F0,
+	0x9F2,
+	0xA01,
+	0xA04,
+	0xA05,
+	0xA0B,
+	0xA0F,
+	0xA11,
+	0xA13,
+	0xA29,
+	0xA2A,
+	0xA31,
+	0xA32,
+	0xA34,
+	0xA35,
+	0xA37,
+	0xA38,
+	0xA3A,
+	0xA3E,
+	0xA43,
+	0xA47,
+	0xA49,
+	0xA4B,
+	0xA4D,
+	0xA51,
+	0xA52,
+	0xA59,
+	0xA5D,
+	0xA5E,
+	0xA5F,
+	0xA70,
+	0xA76,
+	0xA81,
+	0xA84,
+	0xA85,
+	0xA8E,
+	0xA8F,
+	0xA92,
+	0xA93,
+	0xAA9,
+	0xAAA,
+	0xAB1,
+	0xAB2,
+	0xAB4,
+	0xAB5,
+	0xABA,
+	0xABD,
+	0xAC6,
+	0xAC7,
+	0xACA,
+	0xACB,
+	0xACD,
+	0xAD0,
+	0xAD1,
+	0xAE0,
+	0xAE4,
+	0xAF9,
+	0xAFA,
+	0xB01,
+	0xB04,
+	0xB05,
+	0xB0D,
+	0xB0F,
+	0xB11,
+	0xB13,
+	0xB29,
+	0xB2A,
+	0xB31,
+	0xB32,
+	0xB34,
+	0xB35,
+	0xB3A,
+	0xB3D,
+	0xB45,
+	0xB47,
+	0xB49,
+	0xB4B,
+	0xB4D,
+	0xB56,
+	0xB58,
+	0xB5C,
+	0xB5E,
+	0xB5F,
+	0xB64,
+	0xB71,
+	0xB72,
+	0xB82,
+	0xB84,
+	0xB85,
+	0xB8B,
+	0xB8E,
+	0xB91,
+	0xB92,
+	0xB96,
+	0xB99,
+	0xB9B,
+	0xB9C,
+	0xB9D,
+	0xB9E,
+	0xBA0,
+	0xBA3,
+	0xBA5,
+	0xBA8,
+	0xBAB,
+	0xBAE,
+	0xBBA,
+	0xBBE,
+	0xBC3,
+	0xBC6,
+	0xBC9,
+	0xBCA,
+	0xBCD,
+	0xBD0,
+	0xBD1,
+	0xBD7,
+	0xBD8,
+	0xC00,
+	0xC04,
+	0xC05,
+	0xC0D,
+	0xC0E,
+	0xC11,
+	0xC12,
+	0xC29,
+	0xC2A,
+	0xC3A,
+	0xC3D,
+	0xC45,
+	0xC46,
+	0xC49,
+	0xC4A,
+	0xC4D,
+	0xC55,
+	0xC57,
+	0xC58,
+	0xC5B,
+	0xC60,
+	0xC64,
+	0xC81,
+	0xC84,
+	0xC85,
+	0xC8D,
+	0xC8E,
+	0xC91,
+	0xC92,
+	0xCA9,
+	0xCAA,
+	0xCB4,
+	0xCB5,
+	0xCBA,
+	0xCBD,
+	0xCC5,
+	0xCC6,
+	0xCC9,
+	0xCCA,
+	0xCCD,
+	0xCD5,
+	0xCD7,
+	0xCDE,
+	0xCDF,
+	0xCE0,
+	0xCE4,
+	0xCF1,
+	0xCF3,
+	0xD01,
+	0xD04,
+	0xD05,
+	0xD0D,
+	0xD0E,
+	0xD11,
+	0xD12,
+	0xD3B,
+	0xD3D,
+	0xD45,
+	0xD46,
+	0xD49,
+	0xD4A,
+	0xD4D,
+	0xD4E,
+	0xD4F,
+	0xD57,
+	0xD58,
+	0xD5F,
+	0xD64,
+	0xD7A,
+	0xD80,
+	0xD82,
+	0xD84,
+	0xD85,
+	0xD97,
+	0xD9A,
+	0xDB2,
+	0xDB3,
+	0xDBC,
+	0xDBD,
+	0xDBE,
+	0xDC0,
+	0xDC7,
+	0xDCF,
+	0xDD5,
+	0xDD6,
+	0xDD7,
+	0xDD8,
+	0xDE0,
+	0xDF2,
+	0xDF4,
+	0xE01,
+	0xE3B,
+	0xE40,
+	0xE47,
+	0xE4D,
+	0xE4E,
+	0xE81,
+	0xE83,
+	0xE84,
+	0xE85,
+	0xE87,
+	0xE89,
+	0xE8A,
+	0xE8B,
+	0xE8D,
+	0xE8E,
+	0xE94,
+	0xE98,
+	0xE99,
+	0xEA0,
+	0xEA1,
+	0xEA4,
+	0xEA5,
+	0xEA6,
+	0xEA7,
+	0xEA8,
+	0xEAA,
+	0xEAC,
+	0xEAD,
+	0xEBA,
+	0xEBB,
+	0xEBE,
+	0xEC0,
+	0xEC5,
+	0xEC6,
+	0xEC7,
+	0xECD,
+	0xECE,
+	0xEDC,
+	0xEE0,
+	0xF00,
+	0xF01,
+	0xF40,
+	0xF48,
+	0xF49,
+	0xF6D,
+	0xF71,
+	0xF82,
+	0xF88,
+	0xF98,
+	0xF99,
+	0xFBD,
+	0x1000,
+	0x1037,
+	0x1038,
+	0x1039,
+	0x103B,
+	0x1040,
+	0x1050,
+	0x1063,
+	0x1065,
+	0x1069,
+	0x106E,
+	0x1087,
+	0x108E,
+	0x108F,
+	0x109C,
+	0x109E,
+	0x10A0,
+	0x10C6,
+	0x10C7,
+	0x10C8,
+	0x10CD,
+	0x10CE,
+	0x10D0,
+	0x10FB,
+	0x10FC,
+	0x1249,
+	0x124A,
+	0x124E,
+	0x1250,
+	0x1257,
+	0x1258,
+	0x1259,
+	0x125A,
+	0x125E,
+	0x1260,
+	0x1289,
+	0x128A,
+	0x128E,
+	0x1290,
+	0x12B1,
+	0x12B2,
+	0x12B6,
+	0x12B8,
+	0x12BF,
+	0x12C0,
+	0x12C1,
+	0x12C2,
+	0x12C6,
+	0x12C8,
+	0x12D7,
+	0x12D8,
+	0x1311,
+	0x1312,
+	0x1316,
+	0x1318,
+	0x135B,
+	0x135F,
+	0x1360,
+	0x1380,
+	0x1390,
+	0x13A0,
+	0x13F6,
+	0x13F8,
+	0x13FE,
+	0x1401,
+	0x166D,
+	0x166F,
+	0x1680,
+	0x1681,
+	0x169B,
+	0x16A0,
+	0x16EB,
+	0x16EE,
+	0x16F9,
+	0x1700,
+	0x170D,
+	0x170E,
+	0x1714,
+	0x1720,
+	0x1734,
+	0x1740,
+	0x1754,
+	0x1760,
+	0x176D,
+	0x176E,
+	0x1771,
+	0x1772,
+	0x1774,
+	0x1780,
+	0x17B4,
+	0x17B6,
+	0x17C9,
+	0x17D7,
+	0x17D8,
+	0x17DC,
+	0x17DD,
+	0x1820,
+	0x1878,
+	0x1880,
+	0x18AB,
+	0x18B0,
+	0x18F6,
+	0x1900,
+	0x191F,
+	0x1920,
+	0x192C,
+	0x1930,
+	0x1939,
+	0x1950,
+	0x196E,
+	0x1970,
+	0x1975,
+	0x1980,
+	0x19AC,
+	0x19B0,
+	0x19CA,
+	0x1A00,
+	0x1A1C,
+	0x1A20,
+	0x1A5F,
+	0x1A61,
+	0x1A75,
+	0x1AA7,
+	0x1AA8,
+	0x1B00,
+	0x1B34,
+	0x1B35,
+	0x1B44,
+	0x1B45,
+	0x1B4C,
+	0x1B80,
+	0x1BAA,
+	0x1BAC,
+	0x1BB0,
+	0x1BBA,
+	0x1BE6,
+	0x1BE7,
+	0x1BF2,
+	0x1C00,
+	0x1C36,
+	0x1C4D,
+	0x1C50,
+	0x1C5A,
+	0x1C7E,
+	0x1CE9,
+	0x1CED,
+	0x1CEE,
+	0x1CF4,
+	0x1CF5,
+	0x1CF7,
+	0x1D00,
+	0x1DC0,
+	0x1DE7,
+	0x1DF5,
+	0x1E00,
+	0x1F16,
+	0x1F18,
+	0x1F1E,
+	0x1F20,
+	0x1F46,
+	0x1F48,
+	0x1F4E,
+	0x1F50,
+	0x1F58,
+	0x1F59,
+	0x1F5A,
+	0x1F5B,
+	0x1F5C,
+	0x1F5D,
+	0x1F5E,
+	0x1F5F,
+	0x1F7E,
+	0x1F80,
+	0x1FB5,
+	0x1FB6,
+	0x1FBD,
+	0x1FBE,
+	0x1FBF,
+	0x1FC2,
+	0x1FC5,
+	0x1FC6,
+	0x1FCD,
+	0x1FD0,
+	0x1FD4,
+	0x1FD6,
+	0x1FDC,
+	0x1FE0,
+	0x1FED,
+	0x1FF2,
+	0x1FF5,
+	0x1FF6,
+	0x1FFD,
+	0x2071,
+	0x2072,
+	0x207F,
+	0x2080,
+	0x2090,
+	0x209D,
+	0x2102,
+	0x2103,
+	0x2107,
+	0x2108,
+	0x210A,
+	0x2114,
+	0x2115,
+	0x2116,
+	0x2119,
+	0x211E,
+	0x2124,
+	0x2125,
+	0x2126,
+	0x2127,
+	0x2128,
+	0x2129,
+	0x212A,
+	0x212E,
+	0x212F,
+	0x213A,
+	0x213C,
+	0x2140,
+	0x2145,
+	0x214A,
+	0x214E,
+	0x214F,
+	0x2160,
+	0x2189,
+	0x24B6,
+	0x24EA,
+	0x2C00,
+	0x2C2F,
+	0x2C30,
+	0x2C5F,
+	0x2C60,
+	0x2CE5,
+	0x2CEB,
+	0x2CEF,
+	0x2CF2,
+	0x2CF4,
+	0x2D00,
+	0x2D26,
+	0x2D27,
+	0x2D28,
+	0x2D2D,
+	0x2D2E,
+	0x2D30,
+	0x2D68,
+	0x2D6F,
+	0x2D70,
+	0x2D80,
+	0x2D97,
+	0x2DA0,
+	0x2DA7,
+	0x2DA8,
+	0x2DAF,
+	0x2DB0,
+	0x2DB7,
+	0x2DB8,
+	0x2DBF,
+	0x2DC0,
+	0x2DC7,
+	0x2DC8,
+	0x2DCF,
+	0x2DD0,
+	0x2DD7,
+	0x2DD8,
+	0x2DDF,
+	0x2DE0,
+	0x2E00,
+	0x2E2F,
+	0x2E30,
+	0x3005,
+	0x3008,
+	0x3021,
+	0x302A,
+	0x3031,
+	0x3036,
+	0x3038,
+	0x303D,
+	0x3041,
+	0x3097,
+	0x309D,
+	0x30A0,
+	0x30A1,
+	0x30FB,
+	0x30FC,
+	0x3100,
+	0x3105,
+	0x312E,
+	0x3131,
+	0x318F,
+	0x31A0,
+	0x31BB,
+	0x31F0,
+	0x3200,
+	0x3400,
+	0x4DB6,
+	0x4E00,
+	0x9FD6,
+	0xA000,
+	0xA48D,
+	0xA4D0,
+	0xA4FE,
+	0xA500,
+	0xA60D,
+	0xA610,
+	0xA620,
+	0xA62A,
+	0xA62C,
+	0xA640,
+	0xA66F,
+	0xA674,
+	0xA67C,
+	0xA67F,
+	0xA6F0,
+	0xA717,
+	0xA720,
+	0xA722,
+	0xA789,
+	0xA78B,
+	0xA7AE,
+	0xA7B0,
+	0xA7B8,
+	0xA7F7,
+	0xA802,
+	0xA803,
+	0xA806,
+	0xA807,
+	0xA80B,
+	0xA80C,
+	0xA828,
+	0xA840,
+	0xA874,
+	0xA880,
+	0xA8C4,
+	0xA8F2,
+	0xA8F8,
+	0xA8FB,
+	0xA8FC,
+	0xA8FD,
+	0xA8FE,
+	0xA90A,
+	0xA92B,
+	0xA930,
+	0xA953,
+	0xA960,
+	0xA97D,
+	0xA980,
+	0xA9B3,
+	0xA9B4,
+	0xA9C0,
+	0xA9CF,
+	0xA9D0,
+	0xA9E0,
+	0xA9E5,
+	0xA9E6,
+	0xA9F0,
+	0xA9FA,
+	0xA9FF,
+	0xAA00,
+	0xAA37,
+	0xAA40,
+	0xAA4E,
+	0xAA60,
+	0xAA77,
+	0xAA7A,
+	0xAA7B,
+	0xAA7E,
+	0xAABF,
+	0xAAC0,
+	0xAAC1,
+	0xAAC2,
+	0xAAC3,
+	0xAADB,
+	0xAADE,
+	0xAAE0,
+	0xAAF0,
+	0xAAF2,
+	0xAAF6,
+	0xAB01,
+	0xAB07,
+	0xAB09,
+	0xAB0F,
+	0xAB11,
+	0xAB17,
+	0xAB20,
+	0xAB27,
+	0xAB28,
+	0xAB2F,
+	0xAB30,
+	0xAB5B,
+	0xAB5C,
+	0xAB66,
+	0xAB70,
+	0xABEB,
+	0xAC00,
+	0xD7A4,
+	0xD7B0,
+	0xD7C7,
+	0xD7CB,
+	0xD7FC,
+	0xF900,
+	0xFA6E,
+	0xFA70,
+	0xFADA,
+	0xFB00,
+	0xFB07,
+	0xFB13,
+	0xFB18,
+	0xFB1D,
+	0xFB29,
+	0xFB2A,
+	0xFB37,
+	0xFB38,
+	0xFB3D,
+	0xFB3E,
+	0xFB3F,
+	0xFB40,
+	0xFB42,
+	0xFB43,
+	0xFB45,
+	0xFB46,
+	0xFBB2,
+	0xFBD3,
+	0xFD3E,
+	0xFD50,
+	0xFD90,
+	0xFD92,
+	0xFDC8,
+	0xFDF0,
+	0xFDFC,
+	0xFE70,
+	0xFE75,
+	0xFE76,
+	0xFEFD,
+	0xFF21,
+	0xFF3B,
+	0xFF41,
+	0xFF5B,
+	0xFF66,
+	0xFFBF,
+	0xFFC2,
+	0xFFC8,
+	0xFFCA,
+	0xFFD0,
+	0xFFD2,
+	0xFFD8,
+	0xFFDA,
+	0xFFDD,
+	0x10000,
+	0x1000C,
+	0x1000D,
+	0x10027,
+	0x10028,
+	0x1003B,
+	0x1003C,
+	0x1003E,
+	0x1003F,
+	0x1004E,
+	0x10050,
+	0x1005E,
+	0x10080,
+	0x100FB,
+	0x10140,
+	0x10175,
+	0x10280,
+	0x1029D,
+	0x102A0,
+	0x102D1,
+	0x10300,
+	0x10320,
+	0x10330,
+	0x1034B,
+	0x10350,
+	0x1037B,
+	0x10380,
+	0x1039E,
+	0x103A0,
+	0x103C4,
+	0x103C8,
+	0x103D0,
+	0x103D1,
+	0x103D6,
+	0x10400,
+	0x1049E,
+	0x10500,
+	0x10528,
+	0x10530,
+	0x10564,
+	0x10600,
+	0x10737,
+	0x10740,
+	0x10756,
+	0x10760,
+	0x10768,
+	0x10800,
+	0x10806,
+	0x10808,
+	0x10809,
+	0x1080A,
+	0x10836,
+	0x10837,
+	0x10839,
+	0x1083C,
+	0x1083D,
+	0x1083F,
+	0x10856,
+	0x10860,
+	0x10877,
+	0x10880,
+	0x1089F,
+	0x108E0,
+	0x108F3,
+	0x108F4,
+	0x108F6,
+	0x10900,
+	0x10916,
+	0x10920,
+	0x1093A,
+	0x10980,
+	0x109B8,
+	0x109BE,
+	0x109C0,
+	0x10A00,
+	0x10A04,
+	0x10A05,
+	0x10A07,
+	0x10A0C,
+	0x10A14,
+	0x10A15,
+	0x10A18,
+	0x10A19,
+	0x10A34,
+	0x10A60,
+	0x10A7D,
+	0x10A80,
+	0x10A9D,
+	0x10AC0,
+	0x10AC8,
+	0x10AC9,
+	0x10AE5,
+	0x10B00,
+	0x10B36,
+	0x10B40,
+	0x10B56,
+	0x10B60,
+	0x10B73,
+	0x10B80,
+	0x10B92,
+	0x10C00,
+	0x10C49,
+	0x10C80,
+	0x10CB3,
+	0x10CC0,
+	0x10CF3,
+	0x11000,
+	0x11046,
+	0x11082,
+	0x110B9,
+	0x110D0,
+	0x110E9,
+	0x11100,
+	0x11133,
+	0x11150,
+	0x11173,
+	0x11176,
+	0x11177,
+	0x11180,
+	0x111C0,
+	0x111C1,
+	0x111C5,
+	0x111DA,
+	0x111DB,
+	0x111DC,
+	0x111DD,
+	0x11200,
+	0x11212,
+	0x11213,
+	0x11235,
+	0x11237,
+	0x11238,
+	0x11280,
+	0x11287,
+	0x11288,
+	0x11289,
+	0x1128A,
+	0x1128E,
+	0x1128F,
+	0x1129E,
+	0x1129F,
+	0x112A9,
+	0x112B0,
+	0x112E9,
+	0x11300,
+	0x11304,
+	0x11305,
+	0x1130D,
+	0x1130F,
+	0x11311,
+	0x11313,
+	0x11329,
+	0x1132A,
+	0x11331,
+	0x11332,
+	0x11334,
+	0x11335,
+	0x1133A,
+	0x1133D,
+	0x11345,
+	0x11347,
+	0x11349,
+	0x1134B,
+	0x1134D,
+	0x11350,
+	0x11351,
+	0x11357,
+	0x11358,
+	0x1135D,
+	0x11364,
+	0x11480,
+	0x114C2,
+	0x114C4,
+	0x114C6,
+	0x114C7,
+	0x114C8,
+	0x11580,
+	0x115B6,
+	0x115B8,
+	0x115BF,
+	0x115D8,
+	0x115DE,
+	0x11600,
+	0x1163F,
+	0x11640,
+	0x11641,
+	0x11644,
+	0x11645,
+	0x11680,
+	0x116B6,
+	0x11700,
+	0x1171A,
+	0x1171D,
+	0x1172B,
+	0x118A0,
+	0x118E0,
+	0x118FF,
+	0x11900,
+	0x11AC0,
+	0x11AF9,
+	0x12000,
+	0x1239A,
+	0x12400,
+	0x1246F,
+	0x12480,
+	0x12544,
+	0x13000,
+	0x1342F,
+	0x14400,
+	0x14647,
+	0x16800,
+	0x16A39,
+	0x16A40,
+	0x16A5F,
+	0x16AD0,
+	0x16AEE,
+	0x16B00,
+	0x16B37,
+	0x16B40,
+	0x16B44,
+	0x16B63,
+	0x16B78,
+	0x16B7D,
+	0x16B90,
+	0x16F00,
+	0x16F45,
+	0x16F50,
+	0x16F7F,
+	0x16F93,
+	0x16FA0,
+	0x1B000,
+	0x1B002,
+	0x1BC00,
+	0x1BC6B,
+	0x1BC70,
+	0x1BC7D,
+	0x1BC80,
+	0x1BC89,
+	0x1BC90,
+	0x1BC9A,
+	0x1BC9E,
+	0x1BC9F,
+	0x1D400,
+	0x1D455,
+	0x1D456,
+	0x1D49D,
+	0x1D49E,
+	0x1D4A0,
+	0x1D4A2,
+	0x1D4A3,
+	0x1D4A5,
+	0x1D4A7,
+	0x1D4A9,
+	0x1D4AD,
+	0x1D4AE,
+	0x1D4BA,
+	0x1D4BB,
+	0x1D4BC,
+	0x1D4BD,
+	0x1D4C4,
+	0x1D4C5,
+	0x1D506,
+	0x1D507,
+	0x1D50B,
+	0x1D50D,
+	0x1D515,
+	0x1D516,
+	0x1D51D,
+	0x1D51E,
+	0x1D53A,
+	0x1D53B,
+	0x1D53F,
+	0x1D540,
+	0x1D545,
+	0x1D546,
+	0x1D547,
+	0x1D54A,
+	0x1D551,
+	0x1D552,
+	0x1D6A6,
+	0x1D6A8,
+	0x1D6C1,
+	0x1D6C2,
+	0x1D6DB,
+	0x1D6DC,
+	0x1D6FB,
+	0x1D6FC,
+	0x1D715,
+	0x1D716,
+	0x1D735,
+	0x1D736,
+	0x1D74F,
+	0x1D750,
+	0x1D76F,
+	0x1D770,
+	0x1D789,
+	0x1D78A,
+	0x1D7A9,
+	0x1D7AA,
+	0x1D7C3,
+	0x1D7C4,
+	0x1D7CC,
+	0x1E800,
+	0x1E8C5,
+	0x1EE00,
+	0x1EE04,
+	0x1EE05,
+	0x1EE20,
+	0x1EE21,
+	0x1EE23,
+	0x1EE24,
+	0x1EE25,
+	0x1EE27,
+	0x1EE28,
+	0x1EE29,
+	0x1EE33,
+	0x1EE34,
+	0x1EE38,
+	0x1EE39,
+	0x1EE3A,
+	0x1EE3B,
+	0x1EE3C,
+	0x1EE42,
+	0x1EE43,
+	0x1EE47,
+	0x1EE48,
+	0x1EE49,
+	0x1EE4A,
+	0x1EE4B,
+	0x1EE4C,
+	0x1EE4D,
+	0x1EE50,
+	0x1EE51,
+	0x1EE53,
+	0x1EE54,
+	0x1EE55,
+	0x1EE57,
+	0x1EE58,
+	0x1EE59,
+	0x1EE5A,
+	0x1EE5B,
+	0x1EE5C,
+	0x1EE5D,
+	0x1EE5E,
+	0x1EE5F,
+	0x1EE60,
+	0x1EE61,
+	0x1EE63,
+	0x1EE64,
+	0x1EE65,
+	0x1EE67,
+	0x1EE6B,
+	0x1EE6C,
+	0x1EE73,
+	0x1EE74,
+	0x1EE78,
+	0x1EE79,
+	0x1EE7D,
+	0x1EE7E,
+	0x1EE7F,
+	0x1EE80,
+	0x1EE8A,
+	0x1EE8B,
+	0x1EE9C,
+	0x1EEA1,
+	0x1EEA4,
+	0x1EEA5,
+	0x1EEAA,
+	0x1EEAB,
+	0x1EEBC,
+	0x1F130,
+	0x1F14A,
+	0x1F150,
+	0x1F16A,
+	0x1F170,
+	0x1F18A,
+	0x20000,
+	0x2A6D7,
+	0x2A700,
+	0x2B735,
+	0x2B740,
+	0x2B81E,
+	0x2B820,
+	0x2CEA2,
+	0x2F800,
+	0x2FA1E
+};
+
+static const UV XPosixBlank_invlist[] = { /* for EBCDIC 037 */
+	15,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	1,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x5,
+	0x6,
+	0x40,
+	0x42,
+	0x1680,
+	0x1681,
+	0x2000,
+	0x200B,
+	0x202F,
+	0x2030,
+	0x205F,
+	0x2060,
+	0x3000,
+	0x3001
+};
+
+static const UV XPosixCntrl_invlist[] = { /* for EBCDIC 037 */
+	4,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	0,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x40,
+	0xFF,
+	0x100
+};
+
+static const UV XPosixDigit_invlist[] = { /* for EBCDIC 037 */
+	103,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	1,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0xF0,
+	0xFA,
+	0x660,
+	0x66A,
+	0x6F0,
+	0x6FA,
+	0x7C0,
+	0x7CA,
+	0x966,
+	0x970,
+	0x9E6,
+	0x9F0,
+	0xA66,
+	0xA70,
+	0xAE6,
+	0xAF0,
+	0xB66,
+	0xB70,
+	0xBE6,
+	0xBF0,
+	0xC66,
+	0xC70,
+	0xCE6,
+	0xCF0,
+	0xD66,
+	0xD70,
+	0xDE6,
+	0xDF0,
+	0xE50,
+	0xE5A,
+	0xED0,
+	0xEDA,
+	0xF20,
+	0xF2A,
+	0x1040,
+	0x104A,
+	0x1090,
+	0x109A,
+	0x17E0,
+	0x17EA,
+	0x1810,
+	0x181A,
+	0x1946,
+	0x1950,
+	0x19D0,
+	0x19DA,
+	0x1A80,
+	0x1A8A,
+	0x1A90,
+	0x1A9A,
+	0x1B50,
+	0x1B5A,
+	0x1BB0,
+	0x1BBA,
+	0x1C40,
+	0x1C4A,
+	0x1C50,
+	0x1C5A,
+	0xA620,
+	0xA62A,
+	0xA8D0,
+	0xA8DA,
+	0xA900,
+	0xA90A,
+	0xA9D0,
+	0xA9DA,
+	0xA9F0,
+	0xA9FA,
+	0xAA50,
+	0xAA5A,
+	0xABF0,
+	0xABFA,
+	0xFF10,
+	0xFF1A,
+	0x104A0,
+	0x104AA,
+	0x11066,
+	0x11070,
+	0x110F0,
+	0x110FA,
+	0x11136,
+	0x11140,
+	0x111D0,
+	0x111DA,
+	0x112F0,
+	0x112FA,
+	0x114D0,
+	0x114DA,
+	0x11650,
+	0x1165A,
+	0x116C0,
+	0x116CA,
+	0x11730,
+	0x1173A,
+	0x118E0,
+	0x118EA,
+	0x16A60,
+	0x16A6A,
+	0x16B50,
+	0x16B5A,
+	0x1D7CE,
+	0x1D800
+};
+
+static const UV XPosixGraph_invlist[] = { /* for EBCDIC 037 */
+	1237,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	1,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x42,
+	0xFF,
+	0x100,
+	0x378,
+	0x37A,
+	0x380,
+	0x384,
+	0x38B,
+	0x38C,
+	0x38D,
+	0x38E,
+	0x3A2,
+	0x3A3,
+	0x530,
+	0x531,
+	0x557,
+	0x559,
+	0x560,
+	0x561,
+	0x588,
+	0x589,
+	0x58B,
+	0x58D,
+	0x590,
+	0x591,
+	0x5C8,
+	0x5D0,
+	0x5EB,
+	0x5F0,
+	0x5F5,
+	0x600,
+	0x61D,
+	0x61E,
+	0x70E,
+	0x70F,
+	0x74B,
+	0x74D,
+	0x7B2,
+	0x7C0,
+	0x7FB,
+	0x800,
+	0x82E,
+	0x830,
+	0x83F,
+	0x840,
+	0x85C,
+	0x85E,
+	0x85F,
+	0x8A0,
+	0x8B5,
+	0x8E3,
+	0x984,
+	0x985,
+	0x98D,
+	0x98F,
+	0x991,
+	0x993,
+	0x9A9,
+	0x9AA,
+	0x9B1,
+	0x9B2,
+	0x9B3,
+	0x9B6,
+	0x9BA,
+	0x9BC,
+	0x9C5,
+	0x9C7,
+	0x9C9,
+	0x9CB,
+	0x9CF,
+	0x9D7,
+	0x9D8,
+	0x9DC,
+	0x9DE,
+	0x9DF,
+	0x9E4,
+	0x9E6,
+	0x9FC,
+	0xA01,
+	0xA04,
+	0xA05,
+	0xA0B,
+	0xA0F,
+	0xA11,
+	0xA13,
+	0xA29,
+	0xA2A,
+	0xA31,
+	0xA32,
+	0xA34,
+	0xA35,
+	0xA37,
+	0xA38,
+	0xA3A,
+	0xA3C,
+	0xA3D,
+	0xA3E,
+	0xA43,
+	0xA47,
+	0xA49,
+	0xA4B,
+	0xA4E,
+	0xA51,
+	0xA52,
+	0xA59,
+	0xA5D,
+	0xA5E,
+	0xA5F,
+	0xA66,
+	0xA76,
+	0xA81,
+	0xA84,
+	0xA85,
+	0xA8E,
+	0xA8F,
+	0xA92,
+	0xA93,
+	0xAA9,
+	0xAAA,
+	0xAB1,
+	0xAB2,
+	0xAB4,
+	0xAB5,
+	0xABA,
+	0xABC,
+	0xAC6,
+	0xAC7,
+	0xACA,
+	0xACB,
+	0xACE,
+	0xAD0,
+	0xAD1,
+	0xAE0,
+	0xAE4,
+	0xAE6,
+	0xAF2,
+	0xAF9,
+	0xAFA,
+	0xB01,
+	0xB04,
+	0xB05,
+	0xB0D,
+	0xB0F,
+	0xB11,
+	0xB13,
+	0xB29,
+	0xB2A,
+	0xB31,
+	0xB32,
+	0xB34,
+	0xB35,
+	0xB3A,
+	0xB3C,
+	0xB45,
+	0xB47,
+	0xB49,
+	0xB4B,
+	0xB4E,
+	0xB56,
+	0xB58,
+	0xB5C,
+	0xB5E,
+	0xB5F,
+	0xB64,
+	0xB66,
+	0xB78,
+	0xB82,
+	0xB84,
+	0xB85,
+	0xB8B,
+	0xB8E,
+	0xB91,
+	0xB92,
+	0xB96,
+	0xB99,
+	0xB9B,
+	0xB9C,
+	0xB9D,
+	0xB9E,
+	0xBA0,
+	0xBA3,
+	0xBA5,
+	0xBA8,
+	0xBAB,
+	0xBAE,
+	0xBBA,
+	0xBBE,
+	0xBC3,
+	0xBC6,
+	0xBC9,
+	0xBCA,
+	0xBCE,
+	0xBD0,
+	0xBD1,
+	0xBD7,
+	0xBD8,
+	0xBE6,
+	0xBFB,
+	0xC00,
+	0xC04,
+	0xC05,
+	0xC0D,
+	0xC0E,
+	0xC11,
+	0xC12,
+	0xC29,
+	0xC2A,
+	0xC3A,
+	0xC3D,
+	0xC45,
+	0xC46,
+	0xC49,
+	0xC4A,
+	0xC4E,
+	0xC55,
+	0xC57,
+	0xC58,
+	0xC5B,
+	0xC60,
+	0xC64,
+	0xC66,
+	0xC70,
+	0xC78,
+	0xC80,
+	0xC81,
+	0xC84,
+	0xC85,
+	0xC8D,
+	0xC8E,
+	0xC91,
+	0xC92,
+	0xCA9,
+	0xCAA,
+	0xCB4,
+	0xCB5,
+	0xCBA,
+	0xCBC,
+	0xCC5,
+	0xCC6,
+	0xCC9,
+	0xCCA,
+	0xCCE,
+	0xCD5,
+	0xCD7,
+	0xCDE,
+	0xCDF,
+	0xCE0,
+	0xCE4,
+	0xCE6,
+	0xCF0,
+	0xCF1,
+	0xCF3,
+	0xD01,
+	0xD04,
+	0xD05,
+	0xD0D,
+	0xD0E,
+	0xD11,
+	0xD12,
+	0xD3B,
+	0xD3D,
+	0xD45,
+	0xD46,
+	0xD49,
+	0xD4A,
+	0xD4F,
+	0xD57,
+	0xD58,
+	0xD5F,
+	0xD64,
+	0xD66,
+	0xD76,
+	0xD79,
+	0xD80,
+	0xD82,
+	0xD84,
+	0xD85,
+	0xD97,
+	0xD9A,
+	0xDB2,
+	0xDB3,
+	0xDBC,
+	0xDBD,
+	0xDBE,
+	0xDC0,
+	0xDC7,
+	0xDCA,
+	0xDCB,
+	0xDCF,
+	0xDD5,
+	0xDD6,
+	0xDD7,
+	0xDD8,
+	0xDE0,
+	0xDE6,
+	0xDF0,
+	0xDF2,
+	0xDF5,
+	0xE01,
+	0xE3B,
+	0xE3F,
+	0xE5C,
+	0xE81,
+	0xE83,
+	0xE84,
+	0xE85,
+	0xE87,
+	0xE89,
+	0xE8A,
+	0xE8B,
+	0xE8D,
+	0xE8E,
+	0xE94,
+	0xE98,
+	0xE99,
+	0xEA0,
+	0xEA1,
+	0xEA4,
+	0xEA5,
+	0xEA6,
+	0xEA7,
+	0xEA8,
+	0xEAA,
+	0xEAC,
+	0xEAD,
+	0xEBA,
+	0xEBB,
+	0xEBE,
+	0xEC0,
+	0xEC5,
+	0xEC6,
+	0xEC7,
+	0xEC8,
+	0xECE,
+	0xED0,
+	0xEDA,
+	0xEDC,
+	0xEE0,
+	0xF00,
+	0xF48,
+	0xF49,
+	0xF6D,
+	0xF71,
+	0xF98,
+	0xF99,
+	0xFBD,
+	0xFBE,
+	0xFCD,
+	0xFCE,
+	0xFDB,
+	0x1000,
+	0x10C6,
+	0x10C7,
+	0x10C8,
+	0x10CD,
+	0x10CE,
+	0x10D0,
+	0x1249,
+	0x124A,
+	0x124E,
+	0x1250,
+	0x1257,
+	0x1258,
+	0x1259,
+	0x125A,
+	0x125E,
+	0x1260,
+	0x1289,
+	0x128A,
+	0x128E,
+	0x1290,
+	0x12B1,
+	0x12B2,
+	0x12B6,
+	0x12B8,
+	0x12BF,
+	0x12C0,
+	0x12C1,
+	0x12C2,
+	0x12C6,
+	0x12C8,
+	0x12D7,
+	0x12D8,
+	0x1311,
+	0x1312,
+	0x1316,
+	0x1318,
+	0x135B,
+	0x135D,
+	0x137D,
+	0x1380,
+	0x139A,
+	0x13A0,
+	0x13F6,
+	0x13F8,
+	0x13FE,
+	0x1400,
+	0x1680,
+	0x1681,
+	0x169D,
+	0x16A0,
+	0x16F9,
+	0x1700,
+	0x170D,
+	0x170E,
+	0x1715,
+	0x1720,
+	0x1737,
+	0x1740,
+	0x1754,
+	0x1760,
+	0x176D,
+	0x176E,
+	0x1771,
+	0x1772,
+	0x1774,
+	0x1780,
+	0x17DE,
+	0x17E0,
+	0x17EA,
+	0x17F0,
+	0x17FA,
+	0x1800,
+	0x180F,
+	0x1810,
+	0x181A,
+	0x1820,
+	0x1878,
+	0x1880,
+	0x18AB,
+	0x18B0,
+	0x18F6,
+	0x1900,
+	0x191F,
+	0x1920,
+	0x192C,
+	0x1930,
+	0x193C,
+	0x1940,
+	0x1941,
+	0x1944,
+	0x196E,
+	0x1970,
+	0x1975,
+	0x1980,
+	0x19AC,
+	0x19B0,
+	0x19CA,
+	0x19D0,
+	0x19DB,
+	0x19DE,
+	0x1A1C,
+	0x1A1E,
+	0x1A5F,
+	0x1A60,
+	0x1A7D,
+	0x1A7F,
+	0x1A8A,
+	0x1A90,
+	0x1A9A,
+	0x1AA0,
+	0x1AAE,
+	0x1AB0,
+	0x1ABF,
+	0x1B00,
+	0x1B4C,
+	0x1B50,
+	0x1B7D,
+	0x1B80,
+	0x1BF4,
+	0x1BFC,
+	0x1C38,
+	0x1C3B,
+	0x1C4A,
+	0x1C4D,
+	0x1C80,
+	0x1CC0,
+	0x1CC8,
+	0x1CD0,
+	0x1CF7,
+	0x1CF8,
+	0x1CFA,
+	0x1D00,
+	0x1DF6,
+	0x1DFC,
+	0x1F16,
+	0x1F18,
+	0x1F1E,
+	0x1F20,
+	0x1F46,
+	0x1F48,
+	0x1F4E,
+	0x1F50,
+	0x1F58,
+	0x1F59,
+	0x1F5A,
+	0x1F5B,
+	0x1F5C,
+	0x1F5D,
+	0x1F5E,
+	0x1F5F,
+	0x1F7E,
+	0x1F80,
+	0x1FB5,
+	0x1FB6,
+	0x1FC5,
+	0x1FC6,
+	0x1FD4,
+	0x1FD6,
+	0x1FDC,
+	0x1FDD,
+	0x1FF0,
+	0x1FF2,
+	0x1FF5,
+	0x1FF6,
+	0x1FFF,
+	0x200B,
+	0x2028,
+	0x202A,
+	0x202F,
+	0x2030,
+	0x205F,
+	0x2060,
+	0x2065,
+	0x2066,
+	0x2072,
+	0x2074,
+	0x208F,
+	0x2090,
+	0x209D,
+	0x20A0,
+	0x20BF,
+	0x20D0,
+	0x20F1,
+	0x2100,
+	0x218C,
+	0x2190,
+	0x23FB,
+	0x2400,
+	0x2427,
+	0x2440,
+	0x244B,
+	0x2460,
+	0x2B74,
+	0x2B76,
+	0x2B96,
+	0x2B98,
+	0x2BBA,
+	0x2BBD,
+	0x2BC9,
+	0x2BCA,
+	0x2BD2,
+	0x2BEC,
+	0x2BF0,
+	0x2C00,
+	0x2C2F,
+	0x2C30,
+	0x2C5F,
+	0x2C60,
+	0x2CF4,
+	0x2CF9,
+	0x2D26,
+	0x2D27,
+	0x2D28,
+	0x2D2D,
+	0x2D2E,
+	0x2D30,
+	0x2D68,
+	0x2D6F,
+	0x2D71,
+	0x2D7F,
+	0x2D97,
+	0x2DA0,
+	0x2DA7,
+	0x2DA8,
+	0x2DAF,
+	0x2DB0,
+	0x2DB7,
+	0x2DB8,
+	0x2DBF,
+	0x2DC0,
+	0x2DC7,
+	0x2DC8,
+	0x2DCF,
+	0x2DD0,
+	0x2DD7,
+	0x2DD8,
+	0x2DDF,
+	0x2DE0,
+	0x2E43,
+	0x2E80,
+	0x2E9A,
+	0x2E9B,
+	0x2EF4,
+	0x2F00,
+	0x2FD6,
+	0x2FF0,
+	0x2FFC,
+	0x3001,
+	0x3040,
+	0x3041,
+	0x3097,
+	0x3099,
+	0x3100,
+	0x3105,
+	0x312E,
+	0x3131,
+	0x318F,
+	0x3190,
+	0x31BB,
+	0x31C0,
+	0x31E4,
+	0x31F0,
+	0x321F,
+	0x3220,
+	0x32FF,
+	0x3300,
+	0x4DB6,
+	0x4DC0,
+	0x9FD6,
+	0xA000,
+	0xA48D,
+	0xA490,
+	0xA4C7,
+	0xA4D0,
+	0xA62C,
+	0xA640,
+	0xA6F8,
+	0xA700,
+	0xA7AE,
+	0xA7B0,
+	0xA7B8,
+	0xA7F7,
+	0xA82C,
+	0xA830,
+	0xA83A,
+	0xA840,
+	0xA878,
+	0xA880,
+	0xA8C5,
+	0xA8CE,
+	0xA8DA,
+	0xA8E0,
+	0xA8FE,
+	0xA900,
+	0xA954,
+	0xA95F,
+	0xA97D,
+	0xA980,
+	0xA9CE,
+	0xA9CF,
+	0xA9DA,
+	0xA9DE,
+	0xA9FF,
+	0xAA00,
+	0xAA37,
+	0xAA40,
+	0xAA4E,
+	0xAA50,
+	0xAA5A,
+	0xAA5C,
+	0xAAC3,
+	0xAADB,
+	0xAAF7,
+	0xAB01,
+	0xAB07,
+	0xAB09,
+	0xAB0F,
+	0xAB11,
+	0xAB17,
+	0xAB20,
+	0xAB27,
+	0xAB28,
+	0xAB2F,
+	0xAB30,
+	0xAB66,
+	0xAB70,
+	0xABEE,
+	0xABF0,
+	0xABFA,
+	0xAC00,
+	0xD7A4,
+	0xD7B0,
+	0xD7C7,
+	0xD7CB,
+	0xD7FC,
+	0xE000,
+	0xFA6E,
+	0xFA70,
+	0xFADA,
+	0xFB00,
+	0xFB07,
+	0xFB13,
+	0xFB18,
+	0xFB1D,
+	0xFB37,
+	0xFB38,
+	0xFB3D,
+	0xFB3E,
+	0xFB3F,
+	0xFB40,
+	0xFB42,
+	0xFB43,
+	0xFB45,
+	0xFB46,
+	0xFBC2,
+	0xFBD3,
+	0xFD40,
+	0xFD50,
+	0xFD90,
+	0xFD92,
+	0xFDC8,
+	0xFDF0,
+	0xFDFE,
+	0xFE00,
+	0xFE1A,
+	0xFE20,
+	0xFE53,
+	0xFE54,
+	0xFE67,
+	0xFE68,
+	0xFE6C,
+	0xFE70,
+	0xFE75,
+	0xFE76,
+	0xFEFD,
+	0xFEFF,
+	0xFF00,
+	0xFF01,
+	0xFFBF,
+	0xFFC2,
+	0xFFC8,
+	0xFFCA,
+	0xFFD0,
+	0xFFD2,
+	0xFFD8,
+	0xFFDA,
+	0xFFDD,
+	0xFFE0,
+	0xFFE7,
+	0xFFE8,
+	0xFFEF,
+	0xFFF9,
+	0xFFFE,
+	0x10000,
+	0x1000C,
+	0x1000D,
+	0x10027,
+	0x10028,
+	0x1003B,
+	0x1003C,
+	0x1003E,
+	0x1003F,
+	0x1004E,
+	0x10050,
+	0x1005E,
+	0x10080,
+	0x100FB,
+	0x10100,
+	0x10103,
+	0x10107,
+	0x10134,
+	0x10137,
+	0x1018D,
+	0x10190,
+	0x1019C,
+	0x101A0,
+	0x101A1,
+	0x101D0,
+	0x101FE,
+	0x10280,
+	0x1029D,
+	0x102A0,
+	0x102D1,
+	0x102E0,
+	0x102FC,
+	0x10300,
+	0x10324,
+	0x10330,
+	0x1034B,
+	0x10350,
+	0x1037B,
+	0x10380,
+	0x1039E,
+	0x1039F,
+	0x103C4,
+	0x103C8,
+	0x103D6,
+	0x10400,
+	0x1049E,
+	0x104A0,
+	0x104AA,
+	0x10500,
+	0x10528,
+	0x10530,
+	0x10564,
+	0x1056F,
+	0x10570,
+	0x10600,
+	0x10737,
+	0x10740,
+	0x10756,
+	0x10760,
+	0x10768,
+	0x10800,
+	0x10806,
+	0x10808,
+	0x10809,
+	0x1080A,
+	0x10836,
+	0x10837,
+	0x10839,
+	0x1083C,
+	0x1083D,
+	0x1083F,
+	0x10856,
+	0x10857,
+	0x1089F,
+	0x108A7,
+	0x108B0,
+	0x108E0,
+	0x108F3,
+	0x108F4,
+	0x108F6,
+	0x108FB,
+	0x1091C,
+	0x1091F,
+	0x1093A,
+	0x1093F,
+	0x10940,
+	0x10980,
+	0x109B8,
+	0x109BC,
+	0x109D0,
+	0x109D2,
+	0x10A04,
+	0x10A05,
+	0x10A07,
+	0x10A0C,
+	0x10A14,
+	0x10A15,
+	0x10A18,
+	0x10A19,
+	0x10A34,
+	0x10A38,
+	0x10A3B,
+	0x10A3F,
+	0x10A48,
+	0x10A50,
+	0x10A59,
+	0x10A60,
+	0x10AA0,
+	0x10AC0,
+	0x10AE7,
+	0x10AEB,
+	0x10AF7,
+	0x10B00,
+	0x10B36,
+	0x10B39,
+	0x10B56,
+	0x10B58,
+	0x10B73,
+	0x10B78,
+	0x10B92,
+	0x10B99,
+	0x10B9D,
+	0x10BA9,
+	0x10BB0,
+	0x10C00,
+	0x10C49,
+	0x10C80,
+	0x10CB3,
+	0x10CC0,
+	0x10CF3,
+	0x10CFA,
+	0x10D00,
+	0x10E60,
+	0x10E7F,
+	0x11000,
+	0x1104E,
+	0x11052,
+	0x11070,
+	0x1107F,
+	0x110C2,
+	0x110D0,
+	0x110E9,
+	0x110F0,
+	0x110FA,
+	0x11100,
+	0x11135,
+	0x11136,
+	0x11144,
+	0x11150,
+	0x11177,
+	0x11180,
+	0x111CE,
+	0x111D0,
+	0x111E0,
+	0x111E1,
+	0x111F5,
+	0x11200,
+	0x11212,
+	0x11213,
+	0x1123E,
+	0x11280,
+	0x11287,
+	0x11288,
+	0x11289,
+	0x1128A,
+	0x1128E,
+	0x1128F,
+	0x1129E,
+	0x1129F,
+	0x112AA,
+	0x112B0,
+	0x112EB,
+	0x112F0,
+	0x112FA,
+	0x11300,
+	0x11304,
+	0x11305,
+	0x1130D,
+	0x1130F,
+	0x11311,
+	0x11313,
+	0x11329,
+	0x1132A,
+	0x11331,
+	0x11332,
+	0x11334,
+	0x11335,
+	0x1133A,
+	0x1133C,
+	0x11345,
+	0x11347,
+	0x11349,
+	0x1134B,
+	0x1134E,
+	0x11350,
+	0x11351,
+	0x11357,
+	0x11358,
+	0x1135D,
+	0x11364,
+	0x11366,
+	0x1136D,
+	0x11370,
+	0x11375,
+	0x11480,
+	0x114C8,
+	0x114D0,
+	0x114DA,
+	0x11580,
+	0x115B6,
+	0x115B8,
+	0x115DE,
+	0x11600,
+	0x11645,
+	0x11650,
+	0x1165A,
+	0x11680,
+	0x116B8,
+	0x116C0,
+	0x116CA,
+	0x11700,
+	0x1171A,
+	0x1171D,
+	0x1172C,
+	0x11730,
+	0x11740,
+	0x118A0,
+	0x118F3,
+	0x118FF,
+	0x11900,
+	0x11AC0,
+	0x11AF9,
+	0x12000,
+	0x1239A,
+	0x12400,
+	0x1246F,
+	0x12470,
+	0x12475,
+	0x12480,
+	0x12544,
+	0x13000,
+	0x1342F,
+	0x14400,
+	0x14647,
+	0x16800,
+	0x16A39,
+	0x16A40,
+	0x16A5F,
+	0x16A60,
+	0x16A6A,
+	0x16A6E,
+	0x16A70,
+	0x16AD0,
+	0x16AEE,
+	0x16AF0,
+	0x16AF6,
+	0x16B00,
+	0x16B46,
+	0x16B50,
+	0x16B5A,
+	0x16B5B,
+	0x16B62,
+	0x16B63,
+	0x16B78,
+	0x16B7D,
+	0x16B90,
+	0x16F00,
+	0x16F45,
+	0x16F50,
+	0x16F7F,
+	0x16F8F,
+	0x16FA0,
+	0x1B000,
+	0x1B002,
+	0x1BC00,
+	0x1BC6B,
+	0x1BC70,
+	0x1BC7D,
+	0x1BC80,
+	0x1BC89,
+	0x1BC90,
+	0x1BC9A,
+	0x1BC9C,
+	0x1BCA4,
+	0x1D000,
+	0x1D0F6,
+	0x1D100,
+	0x1D127,
+	0x1D129,
+	0x1D1E9,
+	0x1D200,
+	0x1D246,
+	0x1D300,
+	0x1D357,
+	0x1D360,
+	0x1D372,
+	0x1D400,
+	0x1D455,
+	0x1D456,
+	0x1D49D,
+	0x1D49E,
+	0x1D4A0,
+	0x1D4A2,
+	0x1D4A3,
+	0x1D4A5,
+	0x1D4A7,
+	0x1D4A9,
+	0x1D4AD,
+	0x1D4AE,
+	0x1D4BA,
+	0x1D4BB,
+	0x1D4BC,
+	0x1D4BD,
+	0x1D4C4,
+	0x1D4C5,
+	0x1D506,
+	0x1D507,
+	0x1D50B,
+	0x1D50D,
+	0x1D515,
+	0x1D516,
+	0x1D51D,
+	0x1D51E,
+	0x1D53A,
+	0x1D53B,
+	0x1D53F,
+	0x1D540,
+	0x1D545,
+	0x1D546,
+	0x1D547,
+	0x1D54A,
+	0x1D551,
+	0x1D552,
+	0x1D6A6,
+	0x1D6A8,
+	0x1D7CC,
+	0x1D7CE,
+	0x1DA8C,
+	0x1DA9B,
+	0x1DAA0,
+	0x1DAA1,
+	0x1DAB0,
+	0x1E800,
+	0x1E8C5,
+	0x1E8C7,
+	0x1E8D7,
+	0x1EE00,
+	0x1EE04,
+	0x1EE05,
+	0x1EE20,
+	0x1EE21,
+	0x1EE23,
+	0x1EE24,
+	0x1EE25,
+	0x1EE27,
+	0x1EE28,
+	0x1EE29,
+	0x1EE33,
+	0x1EE34,
+	0x1EE38,
+	0x1EE39,
+	0x1EE3A,
+	0x1EE3B,
+	0x1EE3C,
+	0x1EE42,
+	0x1EE43,
+	0x1EE47,
+	0x1EE48,
+	0x1EE49,
+	0x1EE4A,
+	0x1EE4B,
+	0x1EE4C,
+	0x1EE4D,
+	0x1EE50,
+	0x1EE51,
+	0x1EE53,
+	0x1EE54,
+	0x1EE55,
+	0x1EE57,
+	0x1EE58,
+	0x1EE59,
+	0x1EE5A,
+	0x1EE5B,
+	0x1EE5C,
+	0x1EE5D,
+	0x1EE5E,
+	0x1EE5F,
+	0x1EE60,
+	0x1EE61,
+	0x1EE63,
+	0x1EE64,
+	0x1EE65,
+	0x1EE67,
+	0x1EE6B,
+	0x1EE6C,
+	0x1EE73,
+	0x1EE74,
+	0x1EE78,
+	0x1EE79,
+	0x1EE7D,
+	0x1EE7E,
+	0x1EE7F,
+	0x1EE80,
+	0x1EE8A,
+	0x1EE8B,
+	0x1EE9C,
+	0x1EEA1,
+	0x1EEA4,
+	0x1EEA5,
+	0x1EEAA,
+	0x1EEAB,
+	0x1EEBC,
+	0x1EEF0,
+	0x1EEF2,
+	0x1F000,
+	0x1F02C,
+	0x1F030,
+	0x1F094,
+	0x1F0A0,
+	0x1F0AF,
+	0x1F0B1,
+	0x1F0C0,
+	0x1F0C1,
+	0x1F0D0,
+	0x1F0D1,
+	0x1F0F6,
+	0x1F100,
+	0x1F10D,
+	0x1F110,
+	0x1F12F,
+	0x1F130,
+	0x1F16C,
+	0x1F170,
+	0x1F19B,
+	0x1F1E6,
+	0x1F203,
+	0x1F210,
+	0x1F23B,
+	0x1F240,
+	0x1F249,
+	0x1F250,
+	0x1F252,
+	0x1F300,
+	0x1F57A,
+	0x1F57B,
+	0x1F5A4,
+	0x1F5A5,
+	0x1F6D1,
+	0x1F6E0,
+	0x1F6ED,
+	0x1F6F0,
+	0x1F6F4,
+	0x1F700,
+	0x1F774,
+	0x1F780,
+	0x1F7D5,
+	0x1F800,
+	0x1F80C,
+	0x1F810,
+	0x1F848,
+	0x1F850,
+	0x1F85A,
+	0x1F860,
+	0x1F888,
+	0x1F890,
+	0x1F8AE,
+	0x1F910,
+	0x1F919,
+	0x1F980,
+	0x1F985,
+	0x1F9C0,
+	0x1F9C1,
+	0x20000,
+	0x2A6D7,
+	0x2A700,
+	0x2B735,
+	0x2B740,
+	0x2B81E,
+	0x2B820,
+	0x2CEA2,
+	0x2F800,
+	0x2FA1E,
+	0xE0001,
+	0xE0002,
+	0xE0020,
+	0xE0080,
+	0xE0100,
+	0xE01F0,
+	0xF0000,
+	0xFFFFE,
+	0x100000,
+	0x10FFFE
+};
+
+static const UV XPosixLower_invlist[] = { /* for EBCDIC 037 */
+	1283,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	1,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x42,
+	0x4A,
+	0x51,
+	0x5A,
+	0x70,
+	0x71,
+	0x81,
+	0x8A,
+	0x8C,
+	0x8F,
+	0x91,
+	0x9D,
+	0xA0,
+	0xA1,
+	0xA2,
+	0xAA,
+	0xCB,
+	0xD0,
+	0xDB,
+	0xE0,
+	0x101,
+	0x102,
+	0x103,
+	0x104,
+	0x105,
+	0x106,
+	0x107,
+	0x108,
+	0x109,
+	0x10A,
+	0x10B,
+	0x10C,
+	0x10D,
+	0x10E,
+	0x10F,
+	0x110,
+	0x111,
+	0x112,
+	0x113,
+	0x114,
+	0x115,
+	0x116,
+	0x117,
+	0x118,
+	0x119,
+	0x11A,
+	0x11B,
+	0x11C,
+	0x11D,
+	0x11E,
+	0x11F,
+	0x120,
+	0x121,
+	0x122,
+	0x123,
+	0x124,
+	0x125,
+	0x126,
+	0x127,
+	0x128,
+	0x129,
+	0x12A,
+	0x12B,
+	0x12C,
+	0x12D,
+	0x12E,
+	0x12F,
+	0x130,
+	0x131,
+	0x132,
+	0x133,
+	0x134,
+	0x135,
+	0x136,
+	0x137,
+	0x139,
+	0x13A,
+	0x13B,
+	0x13C,
+	0x13D,
+	0x13E,
+	0x13F,
+	0x140,
+	0x141,
+	0x142,
+	0x143,
+	0x144,
+	0x145,
+	0x146,
+	0x147,
+	0x148,
+	0x14A,
+	0x14B,
+	0x14C,
+	0x14D,
+	0x14E,
+	0x14F,
+	0x150,
+	0x151,
+	0x152,
+	0x153,
+	0x154,
+	0x155,
+	0x156,
+	0x157,
+	0x158,
+	0x159,
+	0x15A,
+	0x15B,
+	0x15C,
+	0x15D,
+	0x15E,
+	0x15F,
+	0x160,
+	0x161,
+	0x162,
+	0x163,
+	0x164,
+	0x165,
+	0x166,
+	0x167,
+	0x168,
+	0x169,
+	0x16A,
+	0x16B,
+	0x16C,
+	0x16D,
+	0x16E,
+	0x16F,
+	0x170,
+	0x171,
+	0x172,
+	0x173,
+	0x174,
+	0x175,
+	0x176,
+	0x177,
+	0x178,
+	0x17A,
+	0x17B,
+	0x17C,
+	0x17D,
+	0x17E,
+	0x181,
+	0x183,
+	0x184,
+	0x185,
+	0x186,
+	0x188,
+	0x189,
+	0x18C,
+	0x18E,
+	0x192,
+	0x193,
+	0x195,
+	0x196,
+	0x199,
+	0x19C,
+	0x19E,
+	0x19F,
+	0x1A1,
+	0x1A2,
+	0x1A3,
+	0x1A4,
+	0x1A5,
+	0x1A6,
+	0x1A8,
+	0x1A9,
+	0x1AA,
+	0x1AC,
+	0x1AD,
+	0x1AE,
+	0x1B0,
+	0x1B1,
+	0x1B4,
+	0x1B5,
+	0x1B6,
+	0x1B7,
+	0x1B9,
+	0x1BB,
+	0x1BD,
+	0x1C0,
+	0x1C6,
+	0x1C7,
+	0x1C9,
+	0x1CA,
+	0x1CC,
+	0x1CD,
+	0x1CE,
+	0x1CF,
+	0x1D0,
+	0x1D1,
+	0x1D2,
+	0x1D3,
+	0x1D4,
+	0x1D5,
+	0x1D6,
+	0x1D7,
+	0x1D8,
+	0x1D9,
+	0x1DA,
+	0x1DB,
+	0x1DC,
+	0x1DE,
+	0x1DF,
+	0x1E0,
+	0x1E1,
+	0x1E2,
+	0x1E3,
+	0x1E4,
+	0x1E5,
+	0x1E6,
+	0x1E7,
+	0x1E8,
+	0x1E9,
+	0x1EA,
+	0x1EB,
+	0x1EC,
+	0x1ED,
+	0x1EE,
+	0x1EF,
+	0x1F1,
+	0x1F3,
+	0x1F4,
+	0x1F5,
+	0x1F6,
+	0x1F9,
+	0x1FA,
+	0x1FB,
+	0x1FC,
+	0x1FD,
+	0x1FE,
+	0x1FF,
+	0x200,
+	0x201,
+	0x202,
+	0x203,
+	0x204,
+	0x205,
+	0x206,
+	0x207,
+	0x208,
+	0x209,
+	0x20A,
+	0x20B,
+	0x20C,
+	0x20D,
+	0x20E,
+	0x20F,
+	0x210,
+	0x211,
+	0x212,
+	0x213,
+	0x214,
+	0x215,
+	0x216,
+	0x217,
+	0x218,
+	0x219,
+	0x21A,
+	0x21B,
+	0x21C,
+	0x21D,
+	0x21E,
+	0x21F,
+	0x220,
+	0x221,
+	0x222,
+	0x223,
+	0x224,
+	0x225,
+	0x226,
+	0x227,
+	0x228,
+	0x229,
+	0x22A,
+	0x22B,
+	0x22C,
+	0x22D,
+	0x22E,
+	0x22F,
+	0x230,
+	0x231,
+	0x232,
+	0x233,
+	0x23A,
+	0x23C,
+	0x23D,
+	0x23F,
+	0x241,
+	0x242,
+	0x243,
+	0x247,
+	0x248,
+	0x249,
+	0x24A,
+	0x24B,
+	0x24C,
+	0x24D,
+	0x24E,
+	0x24F,
+	0x294,
+	0x295,
+	0x2B9,
+	0x2C0,
+	0x2C2,
+	0x2E0,
+	0x2E5,
+	0x345,
+	0x346,
+	0x371,
+	0x372,
+	0x373,
+	0x374,
+	0x377,
+	0x378,
+	0x37A,
+	0x37E,
+	0x390,
+	0x391,
+	0x3AC,
+	0x3CF,
+	0x3D0,
+	0x3D2,
+	0x3D5,
+	0x3D8,
+	0x3D9,
+	0x3DA,
+	0x3DB,
+	0x3DC,
+	0x3DD,
+	0x3DE,
+	0x3DF,
+	0x3E0,
+	0x3E1,
+	0x3E2,
+	0x3E3,
+	0x3E4,
+	0x3E5,
+	0x3E6,
+	0x3E7,
+	0x3E8,
+	0x3E9,
+	0x3EA,
+	0x3EB,
+	0x3EC,
+	0x3ED,
+	0x3EE,
+	0x3EF,
+	0x3F4,
+	0x3F5,
+	0x3F6,
+	0x3F8,
+	0x3F9,
+	0x3FB,
+	0x3FD,
+	0x430,
+	0x460,
+	0x461,
+	0x462,
+	0x463,
+	0x464,
+	0x465,
+	0x466,
+	0x467,
+	0x468,
+	0x469,
+	0x46A,
+	0x46B,
+	0x46C,
+	0x46D,
+	0x46E,
+	0x46F,
+	0x470,
+	0x471,
+	0x472,
+	0x473,
+	0x474,
+	0x475,
+	0x476,
+	0x477,
+	0x478,
+	0x479,
+	0x47A,
+	0x47B,
+	0x47C,
+	0x47D,
+	0x47E,
+	0x47F,
+	0x480,
+	0x481,
+	0x482,
+	0x48B,
+	0x48C,
+	0x48D,
+	0x48E,
+	0x48F,
+	0x490,
+	0x491,
+	0x492,
+	0x493,
+	0x494,
+	0x495,
+	0x496,
+	0x497,
+	0x498,
+	0x499,
+	0x49A,
+	0x49B,
+	0x49C,
+	0x49D,
+	0x49E,
+	0x49F,
+	0x4A0,
+	0x4A1,
+	0x4A2,
+	0x4A3,
+	0x4A4,
+	0x4A5,
+	0x4A6,
+	0x4A7,
+	0x4A8,
+	0x4A9,
+	0x4AA,
+	0x4AB,
+	0x4AC,
+	0x4AD,
+	0x4AE,
+	0x4AF,
+	0x4B0,
+	0x4B1,
+	0x4B2,
+	0x4B3,
+	0x4B4,
+	0x4B5,
+	0x4B6,
+	0x4B7,
+	0x4B8,
+	0x4B9,
+	0x4BA,
+	0x4BB,
+	0x4BC,
+	0x4BD,
+	0x4BE,
+	0x4BF,
+	0x4C0,
+	0x4C2,
+	0x4C3,
+	0x4C4,
+	0x4C5,
+	0x4C6,
+	0x4C7,
+	0x4C8,
+	0x4C9,
+	0x4CA,
+	0x4CB,
+	0x4CC,
+	0x4CD,
+	0x4CE,
+	0x4D0,
+	0x4D1,
+	0x4D2,
+	0x4D3,
+	0x4D4,
+	0x4D5,
+	0x4D6,
+	0x4D7,
+	0x4D8,
+	0x4D9,
+	0x4DA,
+	0x4DB,
+	0x4DC,
+	0x4DD,
+	0x4DE,
+	0x4DF,
+	0x4E0,
+	0x4E1,
+	0x4E2,
+	0x4E3,
+	0x4E4,
+	0x4E5,
+	0x4E6,
+	0x4E7,
+	0x4E8,
+	0x4E9,
+	0x4EA,
+	0x4EB,
+	0x4EC,
+	0x4ED,
+	0x4EE,
+	0x4EF,
+	0x4F0,
+	0x4F1,
+	0x4F2,
+	0x4F3,
+	0x4F4,
+	0x4F5,
+	0x4F6,
+	0x4F7,
+	0x4F8,
+	0x4F9,
+	0x4FA,
+	0x4FB,
+	0x4FC,
+	0x4FD,
+	0x4FE,
+	0x4FF,
+	0x500,
+	0x501,
+	0x502,
+	0x503,
+	0x504,
+	0x505,
+	0x506,
+	0x507,
+	0x508,
+	0x509,
+	0x50A,
+	0x50B,
+	0x50C,
+	0x50D,
+	0x50E,
+	0x50F,
+	0x510,
+	0x511,
+	0x512,
+	0x513,
+	0x514,
+	0x515,
+	0x516,
+	0x517,
+	0x518,
+	0x519,
+	0x51A,
+	0x51B,
+	0x51C,
+	0x51D,
+	0x51E,
+	0x51F,
+	0x520,
+	0x521,
+	0x522,
+	0x523,
+	0x524,
+	0x525,
+	0x526,
+	0x527,
+	0x528,
+	0x529,
+	0x52A,
+	0x52B,
+	0x52C,
+	0x52D,
+	0x52E,
+	0x52F,
+	0x530,
+	0x561,
+	0x588,
+	0x13F8,
+	0x13FE,
+	0x1D00,
+	0x1DC0,
+	0x1E01,
+	0x1E02,
+	0x1E03,
+	0x1E04,
+	0x1E05,
+	0x1E06,
+	0x1E07,
+	0x1E08,
+	0x1E09,
+	0x1E0A,
+	0x1E0B,
+	0x1E0C,
+	0x1E0D,
+	0x1E0E,
+	0x1E0F,
+	0x1E10,
+	0x1E11,
+	0x1E12,
+	0x1E13,
+	0x1E14,
+	0x1E15,
+	0x1E16,
+	0x1E17,
+	0x1E18,
+	0x1E19,
+	0x1E1A,
+	0x1E1B,
+	0x1E1C,
+	0x1E1D,
+	0x1E1E,
+	0x1E1F,
+	0x1E20,
+	0x1E21,
+	0x1E22,
+	0x1E23,
+	0x1E24,
+	0x1E25,
+	0x1E26,
+	0x1E27,
+	0x1E28,
+	0x1E29,
+	0x1E2A,
+	0x1E2B,
+	0x1E2C,
+	0x1E2D,
+	0x1E2E,
+	0x1E2F,
+	0x1E30,
+	0x1E31,
+	0x1E32,
+	0x1E33,
+	0x1E34,
+	0x1E35,
+	0x1E36,
+	0x1E37,
+	0x1E38,
+	0x1E39,
+	0x1E3A,
+	0x1E3B,
+	0x1E3C,
+	0x1E3D,
+	0x1E3E,
+	0x1E3F,
+	0x1E40,
+	0x1E41,
+	0x1E42,
+	0x1E43,
+	0x1E44,
+	0x1E45,
+	0x1E46,
+	0x1E47,
+	0x1E48,
+	0x1E49,
+	0x1E4A,
+	0x1E4B,
+	0x1E4C,
+	0x1E4D,
+	0x1E4E,
+	0x1E4F,
+	0x1E50,
+	0x1E51,
+	0x1E52,
+	0x1E53,
+	0x1E54,
+	0x1E55,
+	0x1E56,
+	0x1E57,
+	0x1E58,
+	0x1E59,
+	0x1E5A,
+	0x1E5B,
+	0x1E5C,
+	0x1E5D,
+	0x1E5E,
+	0x1E5F,
+	0x1E60,
+	0x1E61,
+	0x1E62,
+	0x1E63,
+	0x1E64,
+	0x1E65,
+	0x1E66,
+	0x1E67,
+	0x1E68,
+	0x1E69,
+	0x1E6A,
+	0x1E6B,
+	0x1E6C,
+	0x1E6D,
+	0x1E6E,
+	0x1E6F,
+	0x1E70,
+	0x1E71,
+	0x1E72,
+	0x1E73,
+	0x1E74,
+	0x1E75,
+	0x1E76,
+	0x1E77,
+	0x1E78,
+	0x1E79,
+	0x1E7A,
+	0x1E7B,
+	0x1E7C,
+	0x1E7D,
+	0x1E7E,
+	0x1E7F,
+	0x1E80,
+	0x1E81,
+	0x1E82,
+	0x1E83,
+	0x1E84,
+	0x1E85,
+	0x1E86,
+	0x1E87,
+	0x1E88,
+	0x1E89,
+	0x1E8A,
+	0x1E8B,
+	0x1E8C,
+	0x1E8D,
+	0x1E8E,
+	0x1E8F,
+	0x1E90,
+	0x1E91,
+	0x1E92,
+	0x1E93,
+	0x1E94,
+	0x1E95,
+	0x1E9E,
+	0x1E9F,
+	0x1EA0,
+	0x1EA1,
+	0x1EA2,
+	0x1EA3,
+	0x1EA4,
+	0x1EA5,
+	0x1EA6,
+	0x1EA7,
+	0x1EA8,
+	0x1EA9,
+	0x1EAA,
+	0x1EAB,
+	0x1EAC,
+	0x1EAD,
+	0x1EAE,
+	0x1EAF,
+	0x1EB0,
+	0x1EB1,
+	0x1EB2,
+	0x1EB3,
+	0x1EB4,
+	0x1EB5,
+	0x1EB6,
+	0x1EB7,
+	0x1EB8,
+	0x1EB9,
+	0x1EBA,
+	0x1EBB,
+	0x1EBC,
+	0x1EBD,
+	0x1EBE,
+	0x1EBF,
+	0x1EC0,
+	0x1EC1,
+	0x1EC2,
+	0x1EC3,
+	0x1EC4,
+	0x1EC5,
+	0x1EC6,
+	0x1EC7,
+	0x1EC8,
+	0x1EC9,
+	0x1ECA,
+	0x1ECB,
+	0x1ECC,
+	0x1ECD,
+	0x1ECE,
+	0x1ECF,
+	0x1ED0,
+	0x1ED1,
+	0x1ED2,
+	0x1ED3,
+	0x1ED4,
+	0x1ED5,
+	0x1ED6,
+	0x1ED7,
+	0x1ED8,
+	0x1ED9,
+	0x1EDA,
+	0x1EDB,
+	0x1EDC,
+	0x1EDD,
+	0x1EDE,
+	0x1EDF,
+	0x1EE0,
+	0x1EE1,
+	0x1EE2,
+	0x1EE3,
+	0x1EE4,
+	0x1EE5,
+	0x1EE6,
+	0x1EE7,
+	0x1EE8,
+	0x1EE9,
+	0x1EEA,
+	0x1EEB,
+	0x1EEC,
+	0x1EED,
+	0x1EEE,
+	0x1EEF,
+	0x1EF0,
+	0x1EF1,
+	0x1EF2,
+	0x1EF3,
+	0x1EF4,
+	0x1EF5,
+	0x1EF6,
+	0x1EF7,
+	0x1EF8,
+	0x1EF9,
+	0x1EFA,
+	0x1EFB,
+	0x1EFC,
+	0x1EFD,
+	0x1EFE,
+	0x1EFF,
+	0x1F08,
+	0x1F10,
+	0x1F16,
+	0x1F20,
+	0x1F28,
+	0x1F30,
+	0x1F38,
+	0x1F40,
+	0x1F46,
+	0x1F50,
+	0x1F58,
+	0x1F60,
+	0x1F68,
+	0x1F70,
+	0x1F7E,
+	0x1F80,
+	0x1F88,
+	0x1F90,
+	0x1F98,
+	0x1FA0,
+	0x1FA8,
+	0x1FB0,
+	0x1FB5,
+	0x1FB6,
+	0x1FB8,
+	0x1FBE,
+	0x1FBF,
+	0x1FC2,
+	0x1FC5,
+	0x1FC6,
+	0x1FC8,
+	0x1FD0,
+	0x1FD4,
+	0x1FD6,
+	0x1FD8,
+	0x1FE0,
+	0x1FE8,
+	0x1FF2,
+	0x1FF5,
+	0x1FF6,
+	0x1FF8,
+	0x2071,
+	0x2072,
+	0x207F,
+	0x2080,
+	0x2090,
+	0x209D,
+	0x210A,
+	0x210B,
+	0x210E,
+	0x2110,
+	0x2113,
+	0x2114,
+	0x212F,
+	0x2130,
+	0x2134,
+	0x2135,
+	0x2139,
+	0x213A,
+	0x213C,
+	0x213E,
+	0x2146,
+	0x214A,
+	0x214E,
+	0x214F,
+	0x2170,
+	0x2180,
+	0x2184,
+	0x2185,
+	0x24D0,
+	0x24EA,
+	0x2C30,
+	0x2C5F,
+	0x2C61,
+	0x2C62,
+	0x2C65,
+	0x2C67,
+	0x2C68,
+	0x2C69,
+	0x2C6A,
+	0x2C6B,
+	0x2C6C,
+	0x2C6D,
+	0x2C71,
+	0x2C72,
+	0x2C73,
+	0x2C75,
+	0x2C76,
+	0x2C7E,
+	0x2C81,
+	0x2C82,
+	0x2C83,
+	0x2C84,
+	0x2C85,
+	0x2C86,
+	0x2C87,
+	0x2C88,
+	0x2C89,
+	0x2C8A,
+	0x2C8B,
+	0x2C8C,
+	0x2C8D,
+	0x2C8E,
+	0x2C8F,
+	0x2C90,
+	0x2C91,
+	0x2C92,
+	0x2C93,
+	0x2C94,
+	0x2C95,
+	0x2C96,
+	0x2C97,
+	0x2C98,
+	0x2C99,
+	0x2C9A,
+	0x2C9B,
+	0x2C9C,
+	0x2C9D,
+	0x2C9E,
+	0x2C9F,
+	0x2CA0,
+	0x2CA1,
+	0x2CA2,
+	0x2CA3,
+	0x2CA4,
+	0x2CA5,
+	0x2CA6,
+	0x2CA7,
+	0x2CA8,
+	0x2CA9,
+	0x2CAA,
+	0x2CAB,
+	0x2CAC,
+	0x2CAD,
+	0x2CAE,
+	0x2CAF,
+	0x2CB0,
+	0x2CB1,
+	0x2CB2,
+	0x2CB3,
+	0x2CB4,
+	0x2CB5,
+	0x2CB6,
+	0x2CB7,
+	0x2CB8,
+	0x2CB9,
+	0x2CBA,
+	0x2CBB,
+	0x2CBC,
+	0x2CBD,
+	0x2CBE,
+	0x2CBF,
+	0x2CC0,
+	0x2CC1,
+	0x2CC2,
+	0x2CC3,
+	0x2CC4,
+	0x2CC5,
+	0x2CC6,
+	0x2CC7,
+	0x2CC8,
+	0x2CC9,
+	0x2CCA,
+	0x2CCB,
+	0x2CCC,
+	0x2CCD,
+	0x2CCE,
+	0x2CCF,
+	0x2CD0,
+	0x2CD1,
+	0x2CD2,
+	0x2CD3,
+	0x2CD4,
+	0x2CD5,
+	0x2CD6,
+	0x2CD7,
+	0x2CD8,
+	0x2CD9,
+	0x2CDA,
+	0x2CDB,
+	0x2CDC,
+	0x2CDD,
+	0x2CDE,
+	0x2CDF,
+	0x2CE0,
+	0x2CE1,
+	0x2CE2,
+	0x2CE3,
+	0x2CE5,
+	0x2CEC,
+	0x2CED,
+	0x2CEE,
+	0x2CEF,
+	0x2CF3,
+	0x2CF4,
+	0x2D00,
+	0x2D26,
+	0x2D27,
+	0x2D28,
+	0x2D2D,
+	0x2D2E,
+	0xA641,
+	0xA642,
+	0xA643,
+	0xA644,
+	0xA645,
+	0xA646,
+	0xA647,
+	0xA648,
+	0xA649,
+	0xA64A,
+	0xA64B,
+	0xA64C,
+	0xA64D,
+	0xA64E,
+	0xA64F,
+	0xA650,
+	0xA651,
+	0xA652,
+	0xA653,
+	0xA654,
+	0xA655,
+	0xA656,
+	0xA657,
+	0xA658,
+	0xA659,
+	0xA65A,
+	0xA65B,
+	0xA65C,
+	0xA65D,
+	0xA65E,
+	0xA65F,
+	0xA660,
+	0xA661,
+	0xA662,
+	0xA663,
+	0xA664,
+	0xA665,
+	0xA666,
+	0xA667,
+	0xA668,
+	0xA669,
+	0xA66A,
+	0xA66B,
+	0xA66C,
+	0xA66D,
+	0xA66E,
+	0xA681,
+	0xA682,
+	0xA683,
+	0xA684,
+	0xA685,
+	0xA686,
+	0xA687,
+	0xA688,
+	0xA689,
+	0xA68A,
+	0xA68B,
+	0xA68C,
+	0xA68D,
+	0xA68E,
+	0xA68F,
+	0xA690,
+	0xA691,
+	0xA692,
+	0xA693,
+	0xA694,
+	0xA695,
+	0xA696,
+	0xA697,
+	0xA698,
+	0xA699,
+	0xA69A,
+	0xA69B,
+	0xA69E,
+	0xA723,
+	0xA724,
+	0xA725,
+	0xA726,
+	0xA727,
+	0xA728,
+	0xA729,
+	0xA72A,
+	0xA72B,
+	0xA72C,
+	0xA72D,
+	0xA72E,
+	0xA72F,
+	0xA732,
+	0xA733,
+	0xA734,
+	0xA735,
+	0xA736,
+	0xA737,
+	0xA738,
+	0xA739,
+	0xA73A,
+	0xA73B,
+	0xA73C,
+	0xA73D,
+	0xA73E,
+	0xA73F,
+	0xA740,
+	0xA741,
+	0xA742,
+	0xA743,
+	0xA744,
+	0xA745,
+	0xA746,
+	0xA747,
+	0xA748,
+	0xA749,
+	0xA74A,
+	0xA74B,
+	0xA74C,
+	0xA74D,
+	0xA74E,
+	0xA74F,
+	0xA750,
+	0xA751,
+	0xA752,
+	0xA753,
+	0xA754,
+	0xA755,
+	0xA756,
+	0xA757,
+	0xA758,
+	0xA759,
+	0xA75A,
+	0xA75B,
+	0xA75C,
+	0xA75D,
+	0xA75E,
+	0xA75F,
+	0xA760,
+	0xA761,
+	0xA762,
+	0xA763,
+	0xA764,
+	0xA765,
+	0xA766,
+	0xA767,
+	0xA768,
+	0xA769,
+	0xA76A,
+	0xA76B,
+	0xA76C,
+	0xA76D,
+	0xA76E,
+	0xA76F,
+	0xA779,
+	0xA77A,
+	0xA77B,
+	0xA77C,
+	0xA77D,
+	0xA77F,
+	0xA780,
+	0xA781,
+	0xA782,
+	0xA783,
+	0xA784,
+	0xA785,
+	0xA786,
+	0xA787,
+	0xA788,
+	0xA78C,
+	0xA78D,
+	0xA78E,
+	0xA78F,
+	0xA791,
+	0xA792,
+	0xA793,
+	0xA796,
+	0xA797,
+	0xA798,
+	0xA799,
+	0xA79A,
+	0xA79B,
+	0xA79C,
+	0xA79D,
+	0xA79E,
+	0xA79F,
+	0xA7A0,
+	0xA7A1,
+	0xA7A2,
+	0xA7A3,
+	0xA7A4,
+	0xA7A5,
+	0xA7A6,
+	0xA7A7,
+	0xA7A8,
+	0xA7A9,
+	0xA7AA,
+	0xA7B5,
+	0xA7B6,
+	0xA7B7,
+	0xA7B8,
+	0xA7F8,
+	0xA7FB,
+	0xAB30,
+	0xAB5B,
+	0xAB5C,
+	0xAB66,
+	0xAB70,
+	0xABC0,
+	0xFB00,
+	0xFB07,
+	0xFB13,
+	0xFB18,
+	0xFF41,
+	0xFF5B,
+	0x10428,
+	0x10450,
+	0x10CC0,
+	0x10CF3,
+	0x118C0,
+	0x118E0,
+	0x1D41A,
+	0x1D434,
+	0x1D44E,
+	0x1D455,
+	0x1D456,
+	0x1D468,
+	0x1D482,
+	0x1D49C,
+	0x1D4B6,
+	0x1D4BA,
+	0x1D4BB,
+	0x1D4BC,
+	0x1D4BD,
+	0x1D4C4,
+	0x1D4C5,
+	0x1D4D0,
+	0x1D4EA,
+	0x1D504,
+	0x1D51E,
+	0x1D538,
+	0x1D552,
+	0x1D56C,
+	0x1D586,
+	0x1D5A0,
+	0x1D5BA,
+	0x1D5D4,
+	0x1D5EE,
+	0x1D608,
+	0x1D622,
+	0x1D63C,
+	0x1D656,
+	0x1D670,
+	0x1D68A,
+	0x1D6A6,
+	0x1D6C2,
+	0x1D6DB,
+	0x1D6DC,
+	0x1D6E2,
+	0x1D6FC,
+	0x1D715,
+	0x1D716,
+	0x1D71C,
+	0x1D736,
+	0x1D74F,
+	0x1D750,
+	0x1D756,
+	0x1D770,
+	0x1D789,
+	0x1D78A,
+	0x1D790,
+	0x1D7AA,
+	0x1D7C3,
+	0x1D7C4,
+	0x1D7CA,
+	0x1D7CB,
+	0x1D7CC
+};
+
+static const UV XPosixPrint_invlist[] = { /* for EBCDIC 037 */
+	1231,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	1,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x40,
+	0xFF,
+	0x100,
+	0x378,
+	0x37A,
+	0x380,
+	0x384,
+	0x38B,
+	0x38C,
+	0x38D,
+	0x38E,
+	0x3A2,
+	0x3A3,
+	0x530,
+	0x531,
+	0x557,
+	0x559,
+	0x560,
+	0x561,
+	0x588,
+	0x589,
+	0x58B,
+	0x58D,
+	0x590,
+	0x591,
+	0x5C8,
+	0x5D0,
+	0x5EB,
+	0x5F0,
+	0x5F5,
+	0x600,
+	0x61D,
+	0x61E,
+	0x70E,
+	0x70F,
+	0x74B,
+	0x74D,
+	0x7B2,
+	0x7C0,
+	0x7FB,
+	0x800,
+	0x82E,
+	0x830,
+	0x83F,
+	0x840,
+	0x85C,
+	0x85E,
+	0x85F,
+	0x8A0,
+	0x8B5,
+	0x8E3,
+	0x984,
+	0x985,
+	0x98D,
+	0x98F,
+	0x991,
+	0x993,
+	0x9A9,
+	0x9AA,
+	0x9B1,
+	0x9B2,
+	0x9B3,
+	0x9B6,
+	0x9BA,
+	0x9BC,
+	0x9C5,
+	0x9C7,
+	0x9C9,
+	0x9CB,
+	0x9CF,
+	0x9D7,
+	0x9D8,
+	0x9DC,
+	0x9DE,
+	0x9DF,
+	0x9E4,
+	0x9E6,
+	0x9FC,
+	0xA01,
+	0xA04,
+	0xA05,
+	0xA0B,
+	0xA0F,
+	0xA11,
+	0xA13,
+	0xA29,
+	0xA2A,
+	0xA31,
+	0xA32,
+	0xA34,
+	0xA35,
+	0xA37,
+	0xA38,
+	0xA3A,
+	0xA3C,
+	0xA3D,
+	0xA3E,
+	0xA43,
+	0xA47,
+	0xA49,
+	0xA4B,
+	0xA4E,
+	0xA51,
+	0xA52,
+	0xA59,
+	0xA5D,
+	0xA5E,
+	0xA5F,
+	0xA66,
+	0xA76,
+	0xA81,
+	0xA84,
+	0xA85,
+	0xA8E,
+	0xA8F,
+	0xA92,
+	0xA93,
+	0xAA9,
+	0xAAA,
+	0xAB1,
+	0xAB2,
+	0xAB4,
+	0xAB5,
+	0xABA,
+	0xABC,
+	0xAC6,
+	0xAC7,
+	0xACA,
+	0xACB,
+	0xACE,
+	0xAD0,
+	0xAD1,
+	0xAE0,
+	0xAE4,
+	0xAE6,
+	0xAF2,
+	0xAF9,
+	0xAFA,
+	0xB01,
+	0xB04,
+	0xB05,
+	0xB0D,
+	0xB0F,
+	0xB11,
+	0xB13,
+	0xB29,
+	0xB2A,
+	0xB31,
+	0xB32,
+	0xB34,
+	0xB35,
+	0xB3A,
+	0xB3C,
+	0xB45,
+	0xB47,
+	0xB49,
+	0xB4B,
+	0xB4E,
+	0xB56,
+	0xB58,
+	0xB5C,
+	0xB5E,
+	0xB5F,
+	0xB64,
+	0xB66,
+	0xB78,
+	0xB82,
+	0xB84,
+	0xB85,
+	0xB8B,
+	0xB8E,
+	0xB91,
+	0xB92,
+	0xB96,
+	0xB99,
+	0xB9B,
+	0xB9C,
+	0xB9D,
+	0xB9E,
+	0xBA0,
+	0xBA3,
+	0xBA5,
+	0xBA8,
+	0xBAB,
+	0xBAE,
+	0xBBA,
+	0xBBE,
+	0xBC3,
+	0xBC6,
+	0xBC9,
+	0xBCA,
+	0xBCE,
+	0xBD0,
+	0xBD1,
+	0xBD7,
+	0xBD8,
+	0xBE6,
+	0xBFB,
+	0xC00,
+	0xC04,
+	0xC05,
+	0xC0D,
+	0xC0E,
+	0xC11,
+	0xC12,
+	0xC29,
+	0xC2A,
+	0xC3A,
+	0xC3D,
+	0xC45,
+	0xC46,
+	0xC49,
+	0xC4A,
+	0xC4E,
+	0xC55,
+	0xC57,
+	0xC58,
+	0xC5B,
+	0xC60,
+	0xC64,
+	0xC66,
+	0xC70,
+	0xC78,
+	0xC80,
+	0xC81,
+	0xC84,
+	0xC85,
+	0xC8D,
+	0xC8E,
+	0xC91,
+	0xC92,
+	0xCA9,
+	0xCAA,
+	0xCB4,
+	0xCB5,
+	0xCBA,
+	0xCBC,
+	0xCC5,
+	0xCC6,
+	0xCC9,
+	0xCCA,
+	0xCCE,
+	0xCD5,
+	0xCD7,
+	0xCDE,
+	0xCDF,
+	0xCE0,
+	0xCE4,
+	0xCE6,
+	0xCF0,
+	0xCF1,
+	0xCF3,
+	0xD01,
+	0xD04,
+	0xD05,
+	0xD0D,
+	0xD0E,
+	0xD11,
+	0xD12,
+	0xD3B,
+	0xD3D,
+	0xD45,
+	0xD46,
+	0xD49,
+	0xD4A,
+	0xD4F,
+	0xD57,
+	0xD58,
+	0xD5F,
+	0xD64,
+	0xD66,
+	0xD76,
+	0xD79,
+	0xD80,
+	0xD82,
+	0xD84,
+	0xD85,
+	0xD97,
+	0xD9A,
+	0xDB2,
+	0xDB3,
+	0xDBC,
+	0xDBD,
+	0xDBE,
+	0xDC0,
+	0xDC7,
+	0xDCA,
+	0xDCB,
+	0xDCF,
+	0xDD5,
+	0xDD6,
+	0xDD7,
+	0xDD8,
+	0xDE0,
+	0xDE6,
+	0xDF0,
+	0xDF2,
+	0xDF5,
+	0xE01,
+	0xE3B,
+	0xE3F,
+	0xE5C,
+	0xE81,
+	0xE83,
+	0xE84,
+	0xE85,
+	0xE87,
+	0xE89,
+	0xE8A,
+	0xE8B,
+	0xE8D,
+	0xE8E,
+	0xE94,
+	0xE98,
+	0xE99,
+	0xEA0,
+	0xEA1,
+	0xEA4,
+	0xEA5,
+	0xEA6,
+	0xEA7,
+	0xEA8,
+	0xEAA,
+	0xEAC,
+	0xEAD,
+	0xEBA,
+	0xEBB,
+	0xEBE,
+	0xEC0,
+	0xEC5,
+	0xEC6,
+	0xEC7,
+	0xEC8,
+	0xECE,
+	0xED0,
+	0xEDA,
+	0xEDC,
+	0xEE0,
+	0xF00,
+	0xF48,
+	0xF49,
+	0xF6D,
+	0xF71,
+	0xF98,
+	0xF99,
+	0xFBD,
+	0xFBE,
+	0xFCD,
+	0xFCE,
+	0xFDB,
+	0x1000,
+	0x10C6,
+	0x10C7,
+	0x10C8,
+	0x10CD,
+	0x10CE,
+	0x10D0,
+	0x1249,
+	0x124A,
+	0x124E,
+	0x1250,
+	0x1257,
+	0x1258,
+	0x1259,
+	0x125A,
+	0x125E,
+	0x1260,
+	0x1289,
+	0x128A,
+	0x128E,
+	0x1290,
+	0x12B1,
+	0x12B2,
+	0x12B6,
+	0x12B8,
+	0x12BF,
+	0x12C0,
+	0x12C1,
+	0x12C2,
+	0x12C6,
+	0x12C8,
+	0x12D7,
+	0x12D8,
+	0x1311,
+	0x1312,
+	0x1316,
+	0x1318,
+	0x135B,
+	0x135D,
+	0x137D,
+	0x1380,
+	0x139A,
+	0x13A0,
+	0x13F6,
+	0x13F8,
+	0x13FE,
+	0x1400,
+	0x169D,
+	0x16A0,
+	0x16F9,
+	0x1700,
+	0x170D,
+	0x170E,
+	0x1715,
+	0x1720,
+	0x1737,
+	0x1740,
+	0x1754,
+	0x1760,
+	0x176D,
+	0x176E,
+	0x1771,
+	0x1772,
+	0x1774,
+	0x1780,
+	0x17DE,
+	0x17E0,
+	0x17EA,
+	0x17F0,
+	0x17FA,
+	0x1800,
+	0x180F,
+	0x1810,
+	0x181A,
+	0x1820,
+	0x1878,
+	0x1880,
+	0x18AB,
+	0x18B0,
+	0x18F6,
+	0x1900,
+	0x191F,
+	0x1920,
+	0x192C,
+	0x1930,
+	0x193C,
+	0x1940,
+	0x1941,
+	0x1944,
+	0x196E,
+	0x1970,
+	0x1975,
+	0x1980,
+	0x19AC,
+	0x19B0,
+	0x19CA,
+	0x19D0,
+	0x19DB,
+	0x19DE,
+	0x1A1C,
+	0x1A1E,
+	0x1A5F,
+	0x1A60,
+	0x1A7D,
+	0x1A7F,
+	0x1A8A,
+	0x1A90,
+	0x1A9A,
+	0x1AA0,
+	0x1AAE,
+	0x1AB0,
+	0x1ABF,
+	0x1B00,
+	0x1B4C,
+	0x1B50,
+	0x1B7D,
+	0x1B80,
+	0x1BF4,
+	0x1BFC,
+	0x1C38,
+	0x1C3B,
+	0x1C4A,
+	0x1C4D,
+	0x1C80,
+	0x1CC0,
+	0x1CC8,
+	0x1CD0,
+	0x1CF7,
+	0x1CF8,
+	0x1CFA,
+	0x1D00,
+	0x1DF6,
+	0x1DFC,
+	0x1F16,
+	0x1F18,
+	0x1F1E,
+	0x1F20,
+	0x1F46,
+	0x1F48,
+	0x1F4E,
+	0x1F50,
+	0x1F58,
+	0x1F59,
+	0x1F5A,
+	0x1F5B,
+	0x1F5C,
+	0x1F5D,
+	0x1F5E,
+	0x1F5F,
+	0x1F7E,
+	0x1F80,
+	0x1FB5,
+	0x1FB6,
+	0x1FC5,
+	0x1FC6,
+	0x1FD4,
+	0x1FD6,
+	0x1FDC,
+	0x1FDD,
+	0x1FF0,
+	0x1FF2,
+	0x1FF5,
+	0x1FF6,
+	0x1FFF,
+	0x2000,
+	0x2028,
+	0x202A,
+	0x2065,
+	0x2066,
+	0x2072,
+	0x2074,
+	0x208F,
+	0x2090,
+	0x209D,
+	0x20A0,
+	0x20BF,
+	0x20D0,
+	0x20F1,
+	0x2100,
+	0x218C,
+	0x2190,
+	0x23FB,
+	0x2400,
+	0x2427,
+	0x2440,
+	0x244B,
+	0x2460,
+	0x2B74,
+	0x2B76,
+	0x2B96,
+	0x2B98,
+	0x2BBA,
+	0x2BBD,
+	0x2BC9,
+	0x2BCA,
+	0x2BD2,
+	0x2BEC,
+	0x2BF0,
+	0x2C00,
+	0x2C2F,
+	0x2C30,
+	0x2C5F,
+	0x2C60,
+	0x2CF4,
+	0x2CF9,
+	0x2D26,
+	0x2D27,
+	0x2D28,
+	0x2D2D,
+	0x2D2E,
+	0x2D30,
+	0x2D68,
+	0x2D6F,
+	0x2D71,
+	0x2D7F,
+	0x2D97,
+	0x2DA0,
+	0x2DA7,
+	0x2DA8,
+	0x2DAF,
+	0x2DB0,
+	0x2DB7,
+	0x2DB8,
+	0x2DBF,
+	0x2DC0,
+	0x2DC7,
+	0x2DC8,
+	0x2DCF,
+	0x2DD0,
+	0x2DD7,
+	0x2DD8,
+	0x2DDF,
+	0x2DE0,
+	0x2E43,
+	0x2E80,
+	0x2E9A,
+	0x2E9B,
+	0x2EF4,
+	0x2F00,
+	0x2FD6,
+	0x2FF0,
+	0x2FFC,
+	0x3000,
+	0x3040,
+	0x3041,
+	0x3097,
+	0x3099,
+	0x3100,
+	0x3105,
+	0x312E,
+	0x3131,
+	0x318F,
+	0x3190,
+	0x31BB,
+	0x31C0,
+	0x31E4,
+	0x31F0,
+	0x321F,
+	0x3220,
+	0x32FF,
+	0x3300,
+	0x4DB6,
+	0x4DC0,
+	0x9FD6,
+	0xA000,
+	0xA48D,
+	0xA490,
+	0xA4C7,
+	0xA4D0,
+	0xA62C,
+	0xA640,
+	0xA6F8,
+	0xA700,
+	0xA7AE,
+	0xA7B0,
+	0xA7B8,
+	0xA7F7,
+	0xA82C,
+	0xA830,
+	0xA83A,
+	0xA840,
+	0xA878,
+	0xA880,
+	0xA8C5,
+	0xA8CE,
+	0xA8DA,
+	0xA8E0,
+	0xA8FE,
+	0xA900,
+	0xA954,
+	0xA95F,
+	0xA97D,
+	0xA980,
+	0xA9CE,
+	0xA9CF,
+	0xA9DA,
+	0xA9DE,
+	0xA9FF,
+	0xAA00,
+	0xAA37,
+	0xAA40,
+	0xAA4E,
+	0xAA50,
+	0xAA5A,
+	0xAA5C,
+	0xAAC3,
+	0xAADB,
+	0xAAF7,
+	0xAB01,
+	0xAB07,
+	0xAB09,
+	0xAB0F,
+	0xAB11,
+	0xAB17,
+	0xAB20,
+	0xAB27,
+	0xAB28,
+	0xAB2F,
+	0xAB30,
+	0xAB66,
+	0xAB70,
+	0xABEE,
+	0xABF0,
+	0xABFA,
+	0xAC00,
+	0xD7A4,
+	0xD7B0,
+	0xD7C7,
+	0xD7CB,
+	0xD7FC,
+	0xE000,
+	0xFA6E,
+	0xFA70,
+	0xFADA,
+	0xFB00,
+	0xFB07,
+	0xFB13,
+	0xFB18,
+	0xFB1D,
+	0xFB37,
+	0xFB38,
+	0xFB3D,
+	0xFB3E,
+	0xFB3F,
+	0xFB40,
+	0xFB42,
+	0xFB43,
+	0xFB45,
+	0xFB46,
+	0xFBC2,
+	0xFBD3,
+	0xFD40,
+	0xFD50,
+	0xFD90,
+	0xFD92,
+	0xFDC8,
+	0xFDF0,
+	0xFDFE,
+	0xFE00,
+	0xFE1A,
+	0xFE20,
+	0xFE53,
+	0xFE54,
+	0xFE67,
+	0xFE68,
+	0xFE6C,
+	0xFE70,
+	0xFE75,
+	0xFE76,
+	0xFEFD,
+	0xFEFF,
+	0xFF00,
+	0xFF01,
+	0xFFBF,
+	0xFFC2,
+	0xFFC8,
+	0xFFCA,
+	0xFFD0,
+	0xFFD2,
+	0xFFD8,
+	0xFFDA,
+	0xFFDD,
+	0xFFE0,
+	0xFFE7,
+	0xFFE8,
+	0xFFEF,
+	0xFFF9,
+	0xFFFE,
+	0x10000,
+	0x1000C,
+	0x1000D,
+	0x10027,
+	0x10028,
+	0x1003B,
+	0x1003C,
+	0x1003E,
+	0x1003F,
+	0x1004E,
+	0x10050,
+	0x1005E,
+	0x10080,
+	0x100FB,
+	0x10100,
+	0x10103,
+	0x10107,
+	0x10134,
+	0x10137,
+	0x1018D,
+	0x10190,
+	0x1019C,
+	0x101A0,
+	0x101A1,
+	0x101D0,
+	0x101FE,
+	0x10280,
+	0x1029D,
+	0x102A0,
+	0x102D1,
+	0x102E0,
+	0x102FC,
+	0x10300,
+	0x10324,
+	0x10330,
+	0x1034B,
+	0x10350,
+	0x1037B,
+	0x10380,
+	0x1039E,
+	0x1039F,
+	0x103C4,
+	0x103C8,
+	0x103D6,
+	0x10400,
+	0x1049E,
+	0x104A0,
+	0x104AA,
+	0x10500,
+	0x10528,
+	0x10530,
+	0x10564,
+	0x1056F,
+	0x10570,
+	0x10600,
+	0x10737,
+	0x10740,
+	0x10756,
+	0x10760,
+	0x10768,
+	0x10800,
+	0x10806,
+	0x10808,
+	0x10809,
+	0x1080A,
+	0x10836,
+	0x10837,
+	0x10839,
+	0x1083C,
+	0x1083D,
+	0x1083F,
+	0x10856,
+	0x10857,
+	0x1089F,
+	0x108A7,
+	0x108B0,
+	0x108E0,
+	0x108F3,
+	0x108F4,
+	0x108F6,
+	0x108FB,
+	0x1091C,
+	0x1091F,
+	0x1093A,
+	0x1093F,
+	0x10940,
+	0x10980,
+	0x109B8,
+	0x109BC,
+	0x109D0,
+	0x109D2,
+	0x10A04,
+	0x10A05,
+	0x10A07,
+	0x10A0C,
+	0x10A14,
+	0x10A15,
+	0x10A18,
+	0x10A19,
+	0x10A34,
+	0x10A38,
+	0x10A3B,
+	0x10A3F,
+	0x10A48,
+	0x10A50,
+	0x10A59,
+	0x10A60,
+	0x10AA0,
+	0x10AC0,
+	0x10AE7,
+	0x10AEB,
+	0x10AF7,
+	0x10B00,
+	0x10B36,
+	0x10B39,
+	0x10B56,
+	0x10B58,
+	0x10B73,
+	0x10B78,
+	0x10B92,
+	0x10B99,
+	0x10B9D,
+	0x10BA9,
+	0x10BB0,
+	0x10C00,
+	0x10C49,
+	0x10C80,
+	0x10CB3,
+	0x10CC0,
+	0x10CF3,
+	0x10CFA,
+	0x10D00,
+	0x10E60,
+	0x10E7F,
+	0x11000,
+	0x1104E,
+	0x11052,
+	0x11070,
+	0x1107F,
+	0x110C2,
+	0x110D0,
+	0x110E9,
+	0x110F0,
+	0x110FA,
+	0x11100,
+	0x11135,
+	0x11136,
+	0x11144,
+	0x11150,
+	0x11177,
+	0x11180,
+	0x111CE,
+	0x111D0,
+	0x111E0,
+	0x111E1,
+	0x111F5,
+	0x11200,
+	0x11212,
+	0x11213,
+	0x1123E,
+	0x11280,
+	0x11287,
+	0x11288,
+	0x11289,
+	0x1128A,
+	0x1128E,
+	0x1128F,
+	0x1129E,
+	0x1129F,
+	0x112AA,
+	0x112B0,
+	0x112EB,
+	0x112F0,
+	0x112FA,
+	0x11300,
+	0x11304,
+	0x11305,
+	0x1130D,
+	0x1130F,
+	0x11311,
+	0x11313,
+	0x11329,
+	0x1132A,
+	0x11331,
+	0x11332,
+	0x11334,
+	0x11335,
+	0x1133A,
+	0x1133C,
+	0x11345,
+	0x11347,
+	0x11349,
+	0x1134B,
+	0x1134E,
+	0x11350,
+	0x11351,
+	0x11357,
+	0x11358,
+	0x1135D,
+	0x11364,
+	0x11366,
+	0x1136D,
+	0x11370,
+	0x11375,
+	0x11480,
+	0x114C8,
+	0x114D0,
+	0x114DA,
+	0x11580,
+	0x115B6,
+	0x115B8,
+	0x115DE,
+	0x11600,
+	0x11645,
+	0x11650,
+	0x1165A,
+	0x11680,
+	0x116B8,
+	0x116C0,
+	0x116CA,
+	0x11700,
+	0x1171A,
+	0x1171D,
+	0x1172C,
+	0x11730,
+	0x11740,
+	0x118A0,
+	0x118F3,
+	0x118FF,
+	0x11900,
+	0x11AC0,
+	0x11AF9,
+	0x12000,
+	0x1239A,
+	0x12400,
+	0x1246F,
+	0x12470,
+	0x12475,
+	0x12480,
+	0x12544,
+	0x13000,
+	0x1342F,
+	0x14400,
+	0x14647,
+	0x16800,
+	0x16A39,
+	0x16A40,
+	0x16A5F,
+	0x16A60,
+	0x16A6A,
+	0x16A6E,
+	0x16A70,
+	0x16AD0,
+	0x16AEE,
+	0x16AF0,
+	0x16AF6,
+	0x16B00,
+	0x16B46,
+	0x16B50,
+	0x16B5A,
+	0x16B5B,
+	0x16B62,
+	0x16B63,
+	0x16B78,
+	0x16B7D,
+	0x16B90,
+	0x16F00,
+	0x16F45,
+	0x16F50,
+	0x16F7F,
+	0x16F8F,
+	0x16FA0,
+	0x1B000,
+	0x1B002,
+	0x1BC00,
+	0x1BC6B,
+	0x1BC70,
+	0x1BC7D,
+	0x1BC80,
+	0x1BC89,
+	0x1BC90,
+	0x1BC9A,
+	0x1BC9C,
+	0x1BCA4,
+	0x1D000,
+	0x1D0F6,
+	0x1D100,
+	0x1D127,
+	0x1D129,
+	0x1D1E9,
+	0x1D200,
+	0x1D246,
+	0x1D300,
+	0x1D357,
+	0x1D360,
+	0x1D372,
+	0x1D400,
+	0x1D455,
+	0x1D456,
+	0x1D49D,
+	0x1D49E,
+	0x1D4A0,
+	0x1D4A2,
+	0x1D4A3,
+	0x1D4A5,
+	0x1D4A7,
+	0x1D4A9,
+	0x1D4AD,
+	0x1D4AE,
+	0x1D4BA,
+	0x1D4BB,
+	0x1D4BC,
+	0x1D4BD,
+	0x1D4C4,
+	0x1D4C5,
+	0x1D506,
+	0x1D507,
+	0x1D50B,
+	0x1D50D,
+	0x1D515,
+	0x1D516,
+	0x1D51D,
+	0x1D51E,
+	0x1D53A,
+	0x1D53B,
+	0x1D53F,
+	0x1D540,
+	0x1D545,
+	0x1D546,
+	0x1D547,
+	0x1D54A,
+	0x1D551,
+	0x1D552,
+	0x1D6A6,
+	0x1D6A8,
+	0x1D7CC,
+	0x1D7CE,
+	0x1DA8C,
+	0x1DA9B,
+	0x1DAA0,
+	0x1DAA1,
+	0x1DAB0,
+	0x1E800,
+	0x1E8C5,
+	0x1E8C7,
+	0x1E8D7,
+	0x1EE00,
+	0x1EE04,
+	0x1EE05,
+	0x1EE20,
+	0x1EE21,
+	0x1EE23,
+	0x1EE24,
+	0x1EE25,
+	0x1EE27,
+	0x1EE28,
+	0x1EE29,
+	0x1EE33,
+	0x1EE34,
+	0x1EE38,
+	0x1EE39,
+	0x1EE3A,
+	0x1EE3B,
+	0x1EE3C,
+	0x1EE42,
+	0x1EE43,
+	0x1EE47,
+	0x1EE48,
+	0x1EE49,
+	0x1EE4A,
+	0x1EE4B,
+	0x1EE4C,
+	0x1EE4D,
+	0x1EE50,
+	0x1EE51,
+	0x1EE53,
+	0x1EE54,
+	0x1EE55,
+	0x1EE57,
+	0x1EE58,
+	0x1EE59,
+	0x1EE5A,
+	0x1EE5B,
+	0x1EE5C,
+	0x1EE5D,
+	0x1EE5E,
+	0x1EE5F,
+	0x1EE60,
+	0x1EE61,
+	0x1EE63,
+	0x1EE64,
+	0x1EE65,
+	0x1EE67,
+	0x1EE6B,
+	0x1EE6C,
+	0x1EE73,
+	0x1EE74,
+	0x1EE78,
+	0x1EE79,
+	0x1EE7D,
+	0x1EE7E,
+	0x1EE7F,
+	0x1EE80,
+	0x1EE8A,
+	0x1EE8B,
+	0x1EE9C,
+	0x1EEA1,
+	0x1EEA4,
+	0x1EEA5,
+	0x1EEAA,
+	0x1EEAB,
+	0x1EEBC,
+	0x1EEF0,
+	0x1EEF2,
+	0x1F000,
+	0x1F02C,
+	0x1F030,
+	0x1F094,
+	0x1F0A0,
+	0x1F0AF,
+	0x1F0B1,
+	0x1F0C0,
+	0x1F0C1,
+	0x1F0D0,
+	0x1F0D1,
+	0x1F0F6,
+	0x1F100,
+	0x1F10D,
+	0x1F110,
+	0x1F12F,
+	0x1F130,
+	0x1F16C,
+	0x1F170,
+	0x1F19B,
+	0x1F1E6,
+	0x1F203,
+	0x1F210,
+	0x1F23B,
+	0x1F240,
+	0x1F249,
+	0x1F250,
+	0x1F252,
+	0x1F300,
+	0x1F57A,
+	0x1F57B,
+	0x1F5A4,
+	0x1F5A5,
+	0x1F6D1,
+	0x1F6E0,
+	0x1F6ED,
+	0x1F6F0,
+	0x1F6F4,
+	0x1F700,
+	0x1F774,
+	0x1F780,
+	0x1F7D5,
+	0x1F800,
+	0x1F80C,
+	0x1F810,
+	0x1F848,
+	0x1F850,
+	0x1F85A,
+	0x1F860,
+	0x1F888,
+	0x1F890,
+	0x1F8AE,
+	0x1F910,
+	0x1F919,
+	0x1F980,
+	0x1F985,
+	0x1F9C0,
+	0x1F9C1,
+	0x20000,
+	0x2A6D7,
+	0x2A700,
+	0x2B735,
+	0x2B740,
+	0x2B81E,
+	0x2B820,
+	0x2CEA2,
+	0x2F800,
+	0x2FA1E,
+	0xE0001,
+	0xE0002,
+	0xE0020,
+	0xE0080,
+	0xE0100,
+	0xE01F0,
+	0xF0000,
+	0xFFFFE,
+	0x100000,
+	0x10FFFE
+};
+
+static const UV XPosixPunct_invlist[] = { /* for EBCDIC 037 */
+	323,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	1,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x4B,
+	0x51,
+	0x5A,
+	0x5F,
+	0x60,
+	0x62,
+	0x6B,
+	0x70,
+	0x79,
+	0x80,
+	0x8A,
+	0x8C,
+	0xA1,
+	0xA2,
+	0xAA,
+	0xAC,
+	0xB0,
+	0xB1,
+	0xB3,
+	0xB4,
+	0xB5,
+	0xB7,
+	0xBA,
+	0xBC,
+	0xC0,
+	0xC1,
+	0xD0,
+	0xD1,
+	0xE0,
+	0xE1,
+	0x37E,
+	0x37F,
+	0x387,
+	0x388,
+	0x55A,
+	0x560,
+	0x589,
+	0x58B,
+	0x5BE,
+	0x5BF,
+	0x5C0,
+	0x5C1,
+	0x5C3,
+	0x5C4,
+	0x5C6,
+	0x5C7,
+	0x5F3,
+	0x5F5,
+	0x609,
+	0x60B,
+	0x60C,
+	0x60E,
+	0x61B,
+	0x61C,
+	0x61E,
+	0x620,
+	0x66A,
+	0x66E,
+	0x6D4,
+	0x6D5,
+	0x700,
+	0x70E,
+	0x7F7,
+	0x7FA,
+	0x830,
+	0x83F,
+	0x85E,
+	0x85F,
+	0x964,
+	0x966,
+	0x970,
+	0x971,
+	0xAF0,
+	0xAF1,
+	0xDF4,
+	0xDF5,
+	0xE4F,
+	0xE50,
+	0xE5A,
+	0xE5C,
+	0xF04,
+	0xF13,
+	0xF14,
+	0xF15,
+	0xF3A,
+	0xF3E,
+	0xF85,
+	0xF86,
+	0xFD0,
+	0xFD5,
+	0xFD9,
+	0xFDB,
+	0x104A,
+	0x1050,
+	0x10FB,
+	0x10FC,
+	0x1360,
+	0x1369,
+	0x1400,
+	0x1401,
+	0x166D,
+	0x166F,
+	0x169B,
+	0x169D,
+	0x16EB,
+	0x16EE,
+	0x1735,
+	0x1737,
+	0x17D4,
+	0x17D7,
+	0x17D8,
+	0x17DB,
+	0x1800,
+	0x180B,
+	0x1944,
+	0x1946,
+	0x1A1E,
+	0x1A20,
+	0x1AA0,
+	0x1AA7,
+	0x1AA8,
+	0x1AAE,
+	0x1B5A,
+	0x1B61,
+	0x1BFC,
+	0x1C00,
+	0x1C3B,
+	0x1C40,
+	0x1C7E,
+	0x1C80,
+	0x1CC0,
+	0x1CC8,
+	0x1CD3,
+	0x1CD4,
+	0x2010,
+	0x2028,
+	0x2030,
+	0x2044,
+	0x2045,
+	0x2052,
+	0x2053,
+	0x205F,
+	0x207D,
+	0x207F,
+	0x208D,
+	0x208F,
+	0x2308,
+	0x230C,
+	0x2329,
+	0x232B,
+	0x2768,
+	0x2776,
+	0x27C5,
+	0x27C7,
+	0x27E6,
+	0x27F0,
+	0x2983,
+	0x2999,
+	0x29D8,
+	0x29DC,
+	0x29FC,
+	0x29FE,
+	0x2CF9,
+	0x2CFD,
+	0x2CFE,
+	0x2D00,
+	0x2D70,
+	0x2D71,
+	0x2E00,
+	0x2E2F,
+	0x2E30,
+	0x2E43,
+	0x3001,
+	0x3004,
+	0x3008,
+	0x3012,
+	0x3014,
+	0x3020,
+	0x3030,
+	0x3031,
+	0x303D,
+	0x303E,
+	0x30A0,
+	0x30A1,
+	0x30FB,
+	0x30FC,
+	0xA4FE,
+	0xA500,
+	0xA60D,
+	0xA610,
+	0xA673,
+	0xA674,
+	0xA67E,
+	0xA67F,
+	0xA6F2,
+	0xA6F8,
+	0xA874,
+	0xA878,
+	0xA8CE,
+	0xA8D0,
+	0xA8F8,
+	0xA8FB,
+	0xA8FC,
+	0xA8FD,
+	0xA92E,
+	0xA930,
+	0xA95F,
+	0xA960,
+	0xA9C1,
+	0xA9CE,
+	0xA9DE,
+	0xA9E0,
+	0xAA5C,
+	0xAA60,
+	0xAADE,
+	0xAAE0,
+	0xAAF0,
+	0xAAF2,
+	0xABEB,
+	0xABEC,
+	0xFD3E,
+	0xFD40,
+	0xFE10,
+	0xFE1A,
+	0xFE30,
+	0xFE53,
+	0xFE54,
+	0xFE62,
+	0xFE63,
+	0xFE64,
+	0xFE68,
+	0xFE69,
+	0xFE6A,
+	0xFE6C,
+	0xFF01,
+	0xFF04,
+	0xFF05,
+	0xFF0B,
+	0xFF0C,
+	0xFF10,
+	0xFF1A,
+	0xFF1C,
+	0xFF1F,
+	0xFF21,
+	0xFF3B,
+	0xFF3E,
+	0xFF3F,
+	0xFF40,
+	0xFF5B,
+	0xFF5C,
+	0xFF5D,
+	0xFF5E,
+	0xFF5F,
+	0xFF66,
+	0x10100,
+	0x10103,
+	0x1039F,
+	0x103A0,
+	0x103D0,
+	0x103D1,
+	0x1056F,
+	0x10570,
+	0x10857,
+	0x10858,
+	0x1091F,
+	0x10920,
+	0x1093F,
+	0x10940,
+	0x10A50,
+	0x10A59,
+	0x10A7F,
+	0x10A80,
+	0x10AF0,
+	0x10AF7,
+	0x10B39,
+	0x10B40,
+	0x10B99,
+	0x10B9D,
+	0x11047,
+	0x1104E,
+	0x110BB,
+	0x110BD,
+	0x110BE,
+	0x110C2,
+	0x11140,
+	0x11144,
+	0x11174,
+	0x11176,
+	0x111C5,
+	0x111CA,
+	0x111CD,
+	0x111CE,
+	0x111DB,
+	0x111DC,
+	0x111DD,
+	0x111E0,
+	0x11238,
+	0x1123E,
+	0x112A9,
+	0x112AA,
+	0x114C6,
+	0x114C7,
+	0x115C1,
+	0x115D8,
+	0x11641,
+	0x11644,
+	0x1173C,
+	0x1173F,
+	0x12470,
+	0x12475,
+	0x16A6E,
+	0x16A70,
+	0x16AF5,
+	0x16AF6,
+	0x16B37,
+	0x16B3C,
+	0x16B44,
+	0x16B45,
+	0x1BC9F,
+	0x1BCA0,
+	0x1DA87,
+	0x1DA8C
+};
+
+static const UV XPosixSpace_invlist[] = { /* for EBCDIC 037 */
+	23,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	1,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x5,
+	0x6,
+	0xB,
+	0xE,
+	0x15,
+	0x16,
+	0x25,
+	0x26,
+	0x40,
+	0x42,
+	0x1680,
+	0x1681,
+	0x2000,
+	0x200B,
+	0x2028,
+	0x202A,
+	0x202F,
+	0x2030,
+	0x205F,
+	0x2060,
+	0x3000,
+	0x3001
+};
+
+static const UV XPosixUpper_invlist[] = { /* for EBCDIC 037 */
+	1275,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	1,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x62,
+	0x6A,
+	0x71,
+	0x79,
+	0x80,
+	0x81,
+	0x9E,
+	0x9F,
+	0xAC,
+	0xAF,
+	0xC1,
+	0xCA,
+	0xD1,
+	0xDA,
+	0xE2,
+	0xEA,
+	0xEB,
+	0xF0,
+	0xFB,
+	0xFF,
+	0x100,
+	0x101,
+	0x102,
+	0x103,
+	0x104,
+	0x105,
+	0x106,
+	0x107,
+	0x108,
+	0x109,
+	0x10A,
+	0x10B,
+	0x10C,
+	0x10D,
+	0x10E,
+	0x10F,
+	0x110,
+	0x111,
+	0x112,
+	0x113,
+	0x114,
+	0x115,
+	0x116,
+	0x117,
+	0x118,
+	0x119,
+	0x11A,
+	0x11B,
+	0x11C,
+	0x11D,
+	0x11E,
+	0x11F,
+	0x120,
+	0x121,
+	0x122,
+	0x123,
+	0x124,
+	0x125,
+	0x126,
+	0x127,
+	0x128,
+	0x129,
+	0x12A,
+	0x12B,
+	0x12C,
+	0x12D,
+	0x12E,
+	0x12F,
+	0x130,
+	0x131,
+	0x132,
+	0x133,
+	0x134,
+	0x135,
+	0x136,
+	0x137,
+	0x139,
+	0x13A,
+	0x13B,
+	0x13C,
+	0x13D,
+	0x13E,
+	0x13F,
+	0x140,
+	0x141,
+	0x142,
+	0x143,
+	0x144,
+	0x145,
+	0x146,
+	0x147,
+	0x148,
+	0x14A,
+	0x14B,
+	0x14C,
+	0x14D,
+	0x14E,
+	0x14F,
+	0x150,
+	0x151,
+	0x152,
+	0x153,
+	0x154,
+	0x155,
+	0x156,
+	0x157,
+	0x158,
+	0x159,
+	0x15A,
+	0x15B,
+	0x15C,
+	0x15D,
+	0x15E,
+	0x15F,
+	0x160,
+	0x161,
+	0x162,
+	0x163,
+	0x164,
+	0x165,
+	0x166,
+	0x167,
+	0x168,
+	0x169,
+	0x16A,
+	0x16B,
+	0x16C,
+	0x16D,
+	0x16E,
+	0x16F,
+	0x170,
+	0x171,
+	0x172,
+	0x173,
+	0x174,
+	0x175,
+	0x176,
+	0x177,
+	0x178,
+	0x17A,
+	0x17B,
+	0x17C,
+	0x17D,
+	0x17E,
+	0x181,
+	0x183,
+	0x184,
+	0x185,
+	0x186,
+	0x188,
+	0x189,
+	0x18C,
+	0x18E,
+	0x192,
+	0x193,
+	0x195,
+	0x196,
+	0x199,
+	0x19C,
+	0x19E,
+	0x19F,
+	0x1A1,
+	0x1A2,
+	0x1A3,
+	0x1A4,
+	0x1A5,
+	0x1A6,
+	0x1A8,
+	0x1A9,
+	0x1AA,
+	0x1AC,
+	0x1AD,
+	0x1AE,
+	0x1B0,
+	0x1B1,
+	0x1B4,
+	0x1B5,
+	0x1B6,
+	0x1B7,
+	0x1B9,
+	0x1BC,
+	0x1BD,
+	0x1C4,
+	0x1C5,
+	0x1C7,
+	0x1C8,
+	0x1CA,
+	0x1CB,
+	0x1CD,
+	0x1CE,
+	0x1CF,
+	0x1D0,
+	0x1D1,
+	0x1D2,
+	0x1D3,
+	0x1D4,
+	0x1D5,
+	0x1D6,
+	0x1D7,
+	0x1D8,
+	0x1D9,
+	0x1DA,
+	0x1DB,
+	0x1DC,
+	0x1DE,
+	0x1DF,
+	0x1E0,
+	0x1E1,
+	0x1E2,
+	0x1E3,
+	0x1E4,
+	0x1E5,
+	0x1E6,
+	0x1E7,
+	0x1E8,
+	0x1E9,
+	0x1EA,
+	0x1EB,
+	0x1EC,
+	0x1ED,
+	0x1EE,
+	0x1EF,
+	0x1F1,
+	0x1F2,
+	0x1F4,
+	0x1F5,
+	0x1F6,
+	0x1F9,
+	0x1FA,
+	0x1FB,
+	0x1FC,
+	0x1FD,
+	0x1FE,
+	0x1FF,
+	0x200,
+	0x201,
+	0x202,
+	0x203,
+	0x204,
+	0x205,
+	0x206,
+	0x207,
+	0x208,
+	0x209,
+	0x20A,
+	0x20B,
+	0x20C,
+	0x20D,
+	0x20E,
+	0x20F,
+	0x210,
+	0x211,
+	0x212,
+	0x213,
+	0x214,
+	0x215,
+	0x216,
+	0x217,
+	0x218,
+	0x219,
+	0x21A,
+	0x21B,
+	0x21C,
+	0x21D,
+	0x21E,
+	0x21F,
+	0x220,
+	0x221,
+	0x222,
+	0x223,
+	0x224,
+	0x225,
+	0x226,
+	0x227,
+	0x228,
+	0x229,
+	0x22A,
+	0x22B,
+	0x22C,
+	0x22D,
+	0x22E,
+	0x22F,
+	0x230,
+	0x231,
+	0x232,
+	0x233,
+	0x23A,
+	0x23C,
+	0x23D,
+	0x23F,
+	0x241,
+	0x242,
+	0x243,
+	0x247,
+	0x248,
+	0x249,
+	0x24A,
+	0x24B,
+	0x24C,
+	0x24D,
+	0x24E,
+	0x24F,
+	0x370,
+	0x371,
+	0x372,
+	0x373,
+	0x376,
+	0x377,
+	0x37F,
+	0x380,
+	0x386,
+	0x387,
+	0x388,
+	0x38B,
+	0x38C,
+	0x38D,
+	0x38E,
+	0x390,
+	0x391,
+	0x3A2,
+	0x3A3,
+	0x3AC,
+	0x3CF,
+	0x3D0,
+	0x3D2,
+	0x3D5,
+	0x3D8,
+	0x3D9,
+	0x3DA,
+	0x3DB,
+	0x3DC,
+	0x3DD,
+	0x3DE,
+	0x3DF,
+	0x3E0,
+	0x3E1,
+	0x3E2,
+	0x3E3,
+	0x3E4,
+	0x3E5,
+	0x3E6,
+	0x3E7,
+	0x3E8,
+	0x3E9,
+	0x3EA,
+	0x3EB,
+	0x3EC,
+	0x3ED,
+	0x3EE,
+	0x3EF,
+	0x3F4,
+	0x3F5,
+	0x3F7,
+	0x3F8,
+	0x3F9,
+	0x3FB,
+	0x3FD,
+	0x430,
+	0x460,
+	0x461,
+	0x462,
+	0x463,
+	0x464,
+	0x465,
+	0x466,
+	0x467,
+	0x468,
+	0x469,
+	0x46A,
+	0x46B,
+	0x46C,
+	0x46D,
+	0x46E,
+	0x46F,
+	0x470,
+	0x471,
+	0x472,
+	0x473,
+	0x474,
+	0x475,
+	0x476,
+	0x477,
+	0x478,
+	0x479,
+	0x47A,
+	0x47B,
+	0x47C,
+	0x47D,
+	0x47E,
+	0x47F,
+	0x480,
+	0x481,
+	0x48A,
+	0x48B,
+	0x48C,
+	0x48D,
+	0x48E,
+	0x48F,
+	0x490,
+	0x491,
+	0x492,
+	0x493,
+	0x494,
+	0x495,
+	0x496,
+	0x497,
+	0x498,
+	0x499,
+	0x49A,
+	0x49B,
+	0x49C,
+	0x49D,
+	0x49E,
+	0x49F,
+	0x4A0,
+	0x4A1,
+	0x4A2,
+	0x4A3,
+	0x4A4,
+	0x4A5,
+	0x4A6,
+	0x4A7,
+	0x4A8,
+	0x4A9,
+	0x4AA,
+	0x4AB,
+	0x4AC,
+	0x4AD,
+	0x4AE,
+	0x4AF,
+	0x4B0,
+	0x4B1,
+	0x4B2,
+	0x4B3,
+	0x4B4,
+	0x4B5,
+	0x4B6,
+	0x4B7,
+	0x4B8,
+	0x4B9,
+	0x4BA,
+	0x4BB,
+	0x4BC,
+	0x4BD,
+	0x4BE,
+	0x4BF,
+	0x4C0,
+	0x4C2,
+	0x4C3,
+	0x4C4,
+	0x4C5,
+	0x4C6,
+	0x4C7,
+	0x4C8,
+	0x4C9,
+	0x4CA,
+	0x4CB,
+	0x4CC,
+	0x4CD,
+	0x4CE,
+	0x4D0,
+	0x4D1,
+	0x4D2,
+	0x4D3,
+	0x4D4,
+	0x4D5,
+	0x4D6,
+	0x4D7,
+	0x4D8,
+	0x4D9,
+	0x4DA,
+	0x4DB,
+	0x4DC,
+	0x4DD,
+	0x4DE,
+	0x4DF,
+	0x4E0,
+	0x4E1,
+	0x4E2,
+	0x4E3,
+	0x4E4,
+	0x4E5,
+	0x4E6,
+	0x4E7,
+	0x4E8,
+	0x4E9,
+	0x4EA,
+	0x4EB,
+	0x4EC,
+	0x4ED,
+	0x4EE,
+	0x4EF,
+	0x4F0,
+	0x4F1,
+	0x4F2,
+	0x4F3,
+	0x4F4,
+	0x4F5,
+	0x4F6,
+	0x4F7,
+	0x4F8,
+	0x4F9,
+	0x4FA,
+	0x4FB,
+	0x4FC,
+	0x4FD,
+	0x4FE,
+	0x4FF,
+	0x500,
+	0x501,
+	0x502,
+	0x503,
+	0x504,
+	0x505,
+	0x506,
+	0x507,
+	0x508,
+	0x509,
+	0x50A,
+	0x50B,
+	0x50C,
+	0x50D,
+	0x50E,
+	0x50F,
+	0x510,
+	0x511,
+	0x512,
+	0x513,
+	0x514,
+	0x515,
+	0x516,
+	0x517,
+	0x518,
+	0x519,
+	0x51A,
+	0x51B,
+	0x51C,
+	0x51D,
+	0x51E,
+	0x51F,
+	0x520,
+	0x521,
+	0x522,
+	0x523,
+	0x524,
+	0x525,
+	0x526,
+	0x527,
+	0x528,
+	0x529,
+	0x52A,
+	0x52B,
+	0x52C,
+	0x52D,
+	0x52E,
+	0x52F,
+	0x531,
+	0x557,
+	0x10A0,
+	0x10C6,
+	0x10C7,
+	0x10C8,
+	0x10CD,
+	0x10CE,
+	0x13A0,
+	0x13F6,
+	0x1E00,
+	0x1E01,
+	0x1E02,
+	0x1E03,
+	0x1E04,
+	0x1E05,
+	0x1E06,
+	0x1E07,
+	0x1E08,
+	0x1E09,
+	0x1E0A,
+	0x1E0B,
+	0x1E0C,
+	0x1E0D,
+	0x1E0E,
+	0x1E0F,
+	0x1E10,
+	0x1E11,
+	0x1E12,
+	0x1E13,
+	0x1E14,
+	0x1E15,
+	0x1E16,
+	0x1E17,
+	0x1E18,
+	0x1E19,
+	0x1E1A,
+	0x1E1B,
+	0x1E1C,
+	0x1E1D,
+	0x1E1E,
+	0x1E1F,
+	0x1E20,
+	0x1E21,
+	0x1E22,
+	0x1E23,
+	0x1E24,
+	0x1E25,
+	0x1E26,
+	0x1E27,
+	0x1E28,
+	0x1E29,
+	0x1E2A,
+	0x1E2B,
+	0x1E2C,
+	0x1E2D,
+	0x1E2E,
+	0x1E2F,
+	0x1E30,
+	0x1E31,
+	0x1E32,
+	0x1E33,
+	0x1E34,
+	0x1E35,
+	0x1E36,
+	0x1E37,
+	0x1E38,
+	0x1E39,
+	0x1E3A,
+	0x1E3B,
+	0x1E3C,
+	0x1E3D,
+	0x1E3E,
+	0x1E3F,
+	0x1E40,
+	0x1E41,
+	0x1E42,
+	0x1E43,
+	0x1E44,
+	0x1E45,
+	0x1E46,
+	0x1E47,
+	0x1E48,
+	0x1E49,
+	0x1E4A,
+	0x1E4B,
+	0x1E4C,
+	0x1E4D,
+	0x1E4E,
+	0x1E4F,
+	0x1E50,
+	0x1E51,
+	0x1E52,
+	0x1E53,
+	0x1E54,
+	0x1E55,
+	0x1E56,
+	0x1E57,
+	0x1E58,
+	0x1E59,
+	0x1E5A,
+	0x1E5B,
+	0x1E5C,
+	0x1E5D,
+	0x1E5E,
+	0x1E5F,
+	0x1E60,
+	0x1E61,
+	0x1E62,
+	0x1E63,
+	0x1E64,
+	0x1E65,
+	0x1E66,
+	0x1E67,
+	0x1E68,
+	0x1E69,
+	0x1E6A,
+	0x1E6B,
+	0x1E6C,
+	0x1E6D,
+	0x1E6E,
+	0x1E6F,
+	0x1E70,
+	0x1E71,
+	0x1E72,
+	0x1E73,
+	0x1E74,
+	0x1E75,
+	0x1E76,
+	0x1E77,
+	0x1E78,
+	0x1E79,
+	0x1E7A,
+	0x1E7B,
+	0x1E7C,
+	0x1E7D,
+	0x1E7E,
+	0x1E7F,
+	0x1E80,
+	0x1E81,
+	0x1E82,
+	0x1E83,
+	0x1E84,
+	0x1E85,
+	0x1E86,
+	0x1E87,
+	0x1E88,
+	0x1E89,
+	0x1E8A,
+	0x1E8B,
+	0x1E8C,
+	0x1E8D,
+	0x1E8E,
+	0x1E8F,
+	0x1E90,
+	0x1E91,
+	0x1E92,
+	0x1E93,
+	0x1E94,
+	0x1E95,
+	0x1E9E,
+	0x1E9F,
+	0x1EA0,
+	0x1EA1,
+	0x1EA2,
+	0x1EA3,
+	0x1EA4,
+	0x1EA5,
+	0x1EA6,
+	0x1EA7,
+	0x1EA8,
+	0x1EA9,
+	0x1EAA,
+	0x1EAB,
+	0x1EAC,
+	0x1EAD,
+	0x1EAE,
+	0x1EAF,
+	0x1EB0,
+	0x1EB1,
+	0x1EB2,
+	0x1EB3,
+	0x1EB4,
+	0x1EB5,
+	0x1EB6,
+	0x1EB7,
+	0x1EB8,
+	0x1EB9,
+	0x1EBA,
+	0x1EBB,
+	0x1EBC,
+	0x1EBD,
+	0x1EBE,
+	0x1EBF,
+	0x1EC0,
+	0x1EC1,
+	0x1EC2,
+	0x1EC3,
+	0x1EC4,
+	0x1EC5,
+	0x1EC6,
+	0x1EC7,
+	0x1EC8,
+	0x1EC9,
+	0x1ECA,
+	0x1ECB,
+	0x1ECC,
+	0x1ECD,
+	0x1ECE,
+	0x1ECF,
+	0x1ED0,
+	0x1ED1,
+	0x1ED2,
+	0x1ED3,
+	0x1ED4,
+	0x1ED5,
+	0x1ED6,
+	0x1ED7,
+	0x1ED8,
+	0x1ED9,
+	0x1EDA,
+	0x1EDB,
+	0x1EDC,
+	0x1EDD,
+	0x1EDE,
+	0x1EDF,
+	0x1EE0,
+	0x1EE1,
+	0x1EE2,
+	0x1EE3,
+	0x1EE4,
+	0x1EE5,
+	0x1EE6,
+	0x1EE7,
+	0x1EE8,
+	0x1EE9,
+	0x1EEA,
+	0x1EEB,
+	0x1EEC,
+	0x1EED,
+	0x1EEE,
+	0x1EEF,
+	0x1EF0,
+	0x1EF1,
+	0x1EF2,
+	0x1EF3,
+	0x1EF4,
+	0x1EF5,
+	0x1EF6,
+	0x1EF7,
+	0x1EF8,
+	0x1EF9,
+	0x1EFA,
+	0x1EFB,
+	0x1EFC,
+	0x1EFD,
+	0x1EFE,
+	0x1EFF,
+	0x1F08,
+	0x1F10,
+	0x1F18,
+	0x1F1E,
+	0x1F28,
+	0x1F30,
+	0x1F38,
+	0x1F40,
+	0x1F48,
+	0x1F4E,
+	0x1F59,
+	0x1F5A,
+	0x1F5B,
+	0x1F5C,
+	0x1F5D,
+	0x1F5E,
+	0x1F5F,
+	0x1F60,
+	0x1F68,
+	0x1F70,
+	0x1FB8,
+	0x1FBC,
+	0x1FC8,
+	0x1FCC,
+	0x1FD8,
+	0x1FDC,
+	0x1FE8,
+	0x1FED,
+	0x1FF8,
+	0x1FFC,
+	0x2102,
+	0x2103,
+	0x2107,
+	0x2108,
+	0x210B,
+	0x210E,
+	0x2110,
+	0x2113,
+	0x2115,
+	0x2116,
+	0x2119,
+	0x211E,
+	0x2124,
+	0x2125,
+	0x2126,
+	0x2127,
+	0x2128,
+	0x2129,
+	0x212A,
+	0x212E,
+	0x2130,
+	0x2134,
+	0x213E,
+	0x2140,
+	0x2145,
+	0x2146,
+	0x2160,
+	0x2170,
+	0x2183,
+	0x2184,
+	0x24B6,
+	0x24D0,
+	0x2C00,
+	0x2C2F,
+	0x2C60,
+	0x2C61,
+	0x2C62,
+	0x2C65,
+	0x2C67,
+	0x2C68,
+	0x2C69,
+	0x2C6A,
+	0x2C6B,
+	0x2C6C,
+	0x2C6D,
+	0x2C71,
+	0x2C72,
+	0x2C73,
+	0x2C75,
+	0x2C76,
+	0x2C7E,
+	0x2C81,
+	0x2C82,
+	0x2C83,
+	0x2C84,
+	0x2C85,
+	0x2C86,
+	0x2C87,
+	0x2C88,
+	0x2C89,
+	0x2C8A,
+	0x2C8B,
+	0x2C8C,
+	0x2C8D,
+	0x2C8E,
+	0x2C8F,
+	0x2C90,
+	0x2C91,
+	0x2C92,
+	0x2C93,
+	0x2C94,
+	0x2C95,
+	0x2C96,
+	0x2C97,
+	0x2C98,
+	0x2C99,
+	0x2C9A,
+	0x2C9B,
+	0x2C9C,
+	0x2C9D,
+	0x2C9E,
+	0x2C9F,
+	0x2CA0,
+	0x2CA1,
+	0x2CA2,
+	0x2CA3,
+	0x2CA4,
+	0x2CA5,
+	0x2CA6,
+	0x2CA7,
+	0x2CA8,
+	0x2CA9,
+	0x2CAA,
+	0x2CAB,
+	0x2CAC,
+	0x2CAD,
+	0x2CAE,
+	0x2CAF,
+	0x2CB0,
+	0x2CB1,
+	0x2CB2,
+	0x2CB3,
+	0x2CB4,
+	0x2CB5,
+	0x2CB6,
+	0x2CB7,
+	0x2CB8,
+	0x2CB9,
+	0x2CBA,
+	0x2CBB,
+	0x2CBC,
+	0x2CBD,
+	0x2CBE,
+	0x2CBF,
+	0x2CC0,
+	0x2CC1,
+	0x2CC2,
+	0x2CC3,
+	0x2CC4,
+	0x2CC5,
+	0x2CC6,
+	0x2CC7,
+	0x2CC8,
+	0x2CC9,
+	0x2CCA,
+	0x2CCB,
+	0x2CCC,
+	0x2CCD,
+	0x2CCE,
+	0x2CCF,
+	0x2CD0,
+	0x2CD1,
+	0x2CD2,
+	0x2CD3,
+	0x2CD4,
+	0x2CD5,
+	0x2CD6,
+	0x2CD7,
+	0x2CD8,
+	0x2CD9,
+	0x2CDA,
+	0x2CDB,
+	0x2CDC,
+	0x2CDD,
+	0x2CDE,
+	0x2CDF,
+	0x2CE0,
+	0x2CE1,
+	0x2CE2,
+	0x2CE3,
+	0x2CEB,
+	0x2CEC,
+	0x2CED,
+	0x2CEE,
+	0x2CF2,
+	0x2CF3,
+	0xA640,
+	0xA641,
+	0xA642,
+	0xA643,
+	0xA644,
+	0xA645,
+	0xA646,
+	0xA647,
+	0xA648,
+	0xA649,
+	0xA64A,
+	0xA64B,
+	0xA64C,
+	0xA64D,
+	0xA64E,
+	0xA64F,
+	0xA650,
+	0xA651,
+	0xA652,
+	0xA653,
+	0xA654,
+	0xA655,
+	0xA656,
+	0xA657,
+	0xA658,
+	0xA659,
+	0xA65A,
+	0xA65B,
+	0xA65C,
+	0xA65D,
+	0xA65E,
+	0xA65F,
+	0xA660,
+	0xA661,
+	0xA662,
+	0xA663,
+	0xA664,
+	0xA665,
+	0xA666,
+	0xA667,
+	0xA668,
+	0xA669,
+	0xA66A,
+	0xA66B,
+	0xA66C,
+	0xA66D,
+	0xA680,
+	0xA681,
+	0xA682,
+	0xA683,
+	0xA684,
+	0xA685,
+	0xA686,
+	0xA687,
+	0xA688,
+	0xA689,
+	0xA68A,
+	0xA68B,
+	0xA68C,
+	0xA68D,
+	0xA68E,
+	0xA68F,
+	0xA690,
+	0xA691,
+	0xA692,
+	0xA693,
+	0xA694,
+	0xA695,
+	0xA696,
+	0xA697,
+	0xA698,
+	0xA699,
+	0xA69A,
+	0xA69B,
+	0xA722,
+	0xA723,
+	0xA724,
+	0xA725,
+	0xA726,
+	0xA727,
+	0xA728,
+	0xA729,
+	0xA72A,
+	0xA72B,
+	0xA72C,
+	0xA72D,
+	0xA72E,
+	0xA72F,
+	0xA732,
+	0xA733,
+	0xA734,
+	0xA735,
+	0xA736,
+	0xA737,
+	0xA738,
+	0xA739,
+	0xA73A,
+	0xA73B,
+	0xA73C,
+	0xA73D,
+	0xA73E,
+	0xA73F,
+	0xA740,
+	0xA741,
+	0xA742,
+	0xA743,
+	0xA744,
+	0xA745,
+	0xA746,
+	0xA747,
+	0xA748,
+	0xA749,
+	0xA74A,
+	0xA74B,
+	0xA74C,
+	0xA74D,
+	0xA74E,
+	0xA74F,
+	0xA750,
+	0xA751,
+	0xA752,
+	0xA753,
+	0xA754,
+	0xA755,
+	0xA756,
+	0xA757,
+	0xA758,
+	0xA759,
+	0xA75A,
+	0xA75B,
+	0xA75C,
+	0xA75D,
+	0xA75E,
+	0xA75F,
+	0xA760,
+	0xA761,
+	0xA762,
+	0xA763,
+	0xA764,
+	0xA765,
+	0xA766,
+	0xA767,
+	0xA768,
+	0xA769,
+	0xA76A,
+	0xA76B,
+	0xA76C,
+	0xA76D,
+	0xA76E,
+	0xA76F,
+	0xA779,
+	0xA77A,
+	0xA77B,
+	0xA77C,
+	0xA77D,
+	0xA77F,
+	0xA780,
+	0xA781,
+	0xA782,
+	0xA783,
+	0xA784,
+	0xA785,
+	0xA786,
+	0xA787,
+	0xA78B,
+	0xA78C,
+	0xA78D,
+	0xA78E,
+	0xA790,
+	0xA791,
+	0xA792,
+	0xA793,
+	0xA796,
+	0xA797,
+	0xA798,
+	0xA799,
+	0xA79A,
+	0xA79B,
+	0xA79C,
+	0xA79D,
+	0xA79E,
+	0xA79F,
+	0xA7A0,
+	0xA7A1,
+	0xA7A2,
+	0xA7A3,
+	0xA7A4,
+	0xA7A5,
+	0xA7A6,
+	0xA7A7,
+	0xA7A8,
+	0xA7A9,
+	0xA7AA,
+	0xA7AE,
+	0xA7B0,
+	0xA7B5,
+	0xA7B6,
+	0xA7B7,
+	0xFF21,
+	0xFF3B,
+	0x10400,
+	0x10428,
+	0x10C80,
+	0x10CB3,
+	0x118A0,
+	0x118C0,
+	0x1D400,
+	0x1D41A,
+	0x1D434,
+	0x1D44E,
+	0x1D468,
+	0x1D482,
+	0x1D49C,
+	0x1D49D,
+	0x1D49E,
+	0x1D4A0,
+	0x1D4A2,
+	0x1D4A3,
+	0x1D4A5,
+	0x1D4A7,
+	0x1D4A9,
+	0x1D4AD,
+	0x1D4AE,
+	0x1D4B6,
+	0x1D4D0,
+	0x1D4EA,
+	0x1D504,
+	0x1D506,
+	0x1D507,
+	0x1D50B,
+	0x1D50D,
+	0x1D515,
+	0x1D516,
+	0x1D51D,
+	0x1D538,
+	0x1D53A,
+	0x1D53B,
+	0x1D53F,
+	0x1D540,
+	0x1D545,
+	0x1D546,
+	0x1D547,
+	0x1D54A,
+	0x1D551,
+	0x1D56C,
+	0x1D586,
+	0x1D5A0,
+	0x1D5BA,
+	0x1D5D4,
+	0x1D5EE,
+	0x1D608,
+	0x1D622,
+	0x1D63C,
+	0x1D656,
+	0x1D670,
+	0x1D68A,
+	0x1D6A8,
+	0x1D6C1,
+	0x1D6E2,
+	0x1D6FB,
+	0x1D71C,
+	0x1D735,
+	0x1D756,
+	0x1D76F,
+	0x1D790,
+	0x1D7A9,
+	0x1D7CA,
+	0x1D7CB,
+	0x1F130,
+	0x1F14A,
+	0x1F150,
+	0x1F16A,
+	0x1F170,
+	0x1F18A
+};
+
+static const UV XPosixWord_invlist[] = { /* for EBCDIC 037 */
+	1331,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	1,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x42,
+	0x4A,
+	0x51,
+	0x5A,
+	0x62,
+	0x6A,
+	0x6D,
+	0x6E,
+	0x70,
+	0x79,
+	0x80,
+	0x8A,
+	0x8C,
+	0x8F,
+	0x91,
+	0x9D,
+	0x9E,
+	0x9F,
+	0xA0,
+	0xA1,
+	0xA2,
+	0xAA,
+	0xAC,
+	0xAF,
+	0xC1,
+	0xCA,
+	0xCB,
+	0xD0,
+	0xD1,
+	0xDA,
+	0xDB,
+	0xE0,
+	0xE2,
+	0xEA,
+	0xEB,
+	0xFA,
+	0xFB,
+	0xFF,
+	0x100,
+	0x2C2,
+	0x2C6,
+	0x2D2,
+	0x2E0,
+	0x2E5,
+	0x2EC,
+	0x2ED,
+	0x2EE,
+	0x2EF,
+	0x300,
+	0x375,
+	0x376,
+	0x378,
+	0x37A,
+	0x37E,
+	0x37F,
+	0x380,
+	0x386,
+	0x387,
+	0x388,
+	0x38B,
+	0x38C,
+	0x38D,
+	0x38E,
+	0x3A2,
+	0x3A3,
+	0x3F6,
+	0x3F7,
+	0x482,
+	0x483,
+	0x530,
+	0x531,
+	0x557,
+	0x559,
+	0x55A,
+	0x561,
+	0x588,
+	0x591,
+	0x5BE,
+	0x5BF,
+	0x5C0,
+	0x5C1,
+	0x5C3,
+	0x5C4,
+	0x5C6,
+	0x5C7,
+	0x5C8,
+	0x5D0,
+	0x5EB,
+	0x5F0,
+	0x5F3,
+	0x610,
+	0x61B,
+	0x620,
+	0x66A,
+	0x66E,
+	0x6D4,
+	0x6D5,
+	0x6DD,
+	0x6DF,
+	0x6E9,
+	0x6EA,
+	0x6FD,
+	0x6FF,
+	0x700,
+	0x710,
+	0x74B,
+	0x74D,
+	0x7B2,
+	0x7C0,
+	0x7F6,
+	0x7FA,
+	0x7FB,
+	0x800,
+	0x82E,
+	0x840,
+	0x85C,
+	0x8A0,
+	0x8B5,
+	0x8E3,
+	0x964,
+	0x966,
+	0x970,
+	0x971,
+	0x984,
+	0x985,
+	0x98D,
+	0x98F,
+	0x991,
+	0x993,
+	0x9A9,
+	0x9AA,
+	0x9B1,
+	0x9B2,
+	0x9B3,
+	0x9B6,
+	0x9BA,
+	0x9BC,
+	0x9C5,
+	0x9C7,
+	0x9C9,
+	0x9CB,
+	0x9CF,
+	0x9D7,
+	0x9D8,
+	0x9DC,
+	0x9DE,
+	0x9DF,
+	0x9E4,
+	0x9E6,
+	0x9F2,
+	0xA01,
+	0xA04,
+	0xA05,
+	0xA0B,
+	0xA0F,
+	0xA11,
+	0xA13,
+	0xA29,
+	0xA2A,
+	0xA31,
+	0xA32,
+	0xA34,
+	0xA35,
+	0xA37,
+	0xA38,
+	0xA3A,
+	0xA3C,
+	0xA3D,
+	0xA3E,
+	0xA43,
+	0xA47,
+	0xA49,
+	0xA4B,
+	0xA4E,
+	0xA51,
+	0xA52,
+	0xA59,
+	0xA5D,
+	0xA5E,
+	0xA5F,
+	0xA66,
+	0xA76,
+	0xA81,
+	0xA84,
+	0xA85,
+	0xA8E,
+	0xA8F,
+	0xA92,
+	0xA93,
+	0xAA9,
+	0xAAA,
+	0xAB1,
+	0xAB2,
+	0xAB4,
+	0xAB5,
+	0xABA,
+	0xABC,
+	0xAC6,
+	0xAC7,
+	0xACA,
+	0xACB,
+	0xACE,
+	0xAD0,
+	0xAD1,
+	0xAE0,
+	0xAE4,
+	0xAE6,
+	0xAF0,
+	0xAF9,
+	0xAFA,
+	0xB01,
+	0xB04,
+	0xB05,
+	0xB0D,
+	0xB0F,
+	0xB11,
+	0xB13,
+	0xB29,
+	0xB2A,
+	0xB31,
+	0xB32,
+	0xB34,
+	0xB35,
+	0xB3A,
+	0xB3C,
+	0xB45,
+	0xB47,
+	0xB49,
+	0xB4B,
+	0xB4E,
+	0xB56,
+	0xB58,
+	0xB5C,
+	0xB5E,
+	0xB5F,
+	0xB64,
+	0xB66,
+	0xB70,
+	0xB71,
+	0xB72,
+	0xB82,
+	0xB84,
+	0xB85,
+	0xB8B,
+	0xB8E,
+	0xB91,
+	0xB92,
+	0xB96,
+	0xB99,
+	0xB9B,
+	0xB9C,
+	0xB9D,
+	0xB9E,
+	0xBA0,
+	0xBA3,
+	0xBA5,
+	0xBA8,
+	0xBAB,
+	0xBAE,
+	0xBBA,
+	0xBBE,
+	0xBC3,
+	0xBC6,
+	0xBC9,
+	0xBCA,
+	0xBCE,
+	0xBD0,
+	0xBD1,
+	0xBD7,
+	0xBD8,
+	0xBE6,
+	0xBF0,
+	0xC00,
+	0xC04,
+	0xC05,
+	0xC0D,
+	0xC0E,
+	0xC11,
+	0xC12,
+	0xC29,
+	0xC2A,
+	0xC3A,
+	0xC3D,
+	0xC45,
+	0xC46,
+	0xC49,
+	0xC4A,
+	0xC4E,
+	0xC55,
+	0xC57,
+	0xC58,
+	0xC5B,
+	0xC60,
+	0xC64,
+	0xC66,
+	0xC70,
+	0xC81,
+	0xC84,
+	0xC85,
+	0xC8D,
+	0xC8E,
+	0xC91,
+	0xC92,
+	0xCA9,
+	0xCAA,
+	0xCB4,
+	0xCB5,
+	0xCBA,
+	0xCBC,
+	0xCC5,
+	0xCC6,
+	0xCC9,
+	0xCCA,
+	0xCCE,
+	0xCD5,
+	0xCD7,
+	0xCDE,
+	0xCDF,
+	0xCE0,
+	0xCE4,
+	0xCE6,
+	0xCF0,
+	0xCF1,
+	0xCF3,
+	0xD01,
+	0xD04,
+	0xD05,
+	0xD0D,
+	0xD0E,
+	0xD11,
+	0xD12,
+	0xD3B,
+	0xD3D,
+	0xD45,
+	0xD46,
+	0xD49,
+	0xD4A,
+	0xD4F,
+	0xD57,
+	0xD58,
+	0xD5F,
+	0xD64,
+	0xD66,
+	0xD70,
+	0xD7A,
+	0xD80,
+	0xD82,
+	0xD84,
+	0xD85,
+	0xD97,
+	0xD9A,
+	0xDB2,
+	0xDB3,
+	0xDBC,
+	0xDBD,
+	0xDBE,
+	0xDC0,
+	0xDC7,
+	0xDCA,
+	0xDCB,
+	0xDCF,
+	0xDD5,
+	0xDD6,
+	0xDD7,
+	0xDD8,
+	0xDE0,
+	0xDE6,
+	0xDF0,
+	0xDF2,
+	0xDF4,
+	0xE01,
+	0xE3B,
+	0xE40,
+	0xE4F,
+	0xE50,
+	0xE5A,
+	0xE81,
+	0xE83,
+	0xE84,
+	0xE85,
+	0xE87,
+	0xE89,
+	0xE8A,
+	0xE8B,
+	0xE8D,
+	0xE8E,
+	0xE94,
+	0xE98,
+	0xE99,
+	0xEA0,
+	0xEA1,
+	0xEA4,
+	0xEA5,
+	0xEA6,
+	0xEA7,
+	0xEA8,
+	0xEAA,
+	0xEAC,
+	0xEAD,
+	0xEBA,
+	0xEBB,
+	0xEBE,
+	0xEC0,
+	0xEC5,
+	0xEC6,
+	0xEC7,
+	0xEC8,
+	0xECE,
+	0xED0,
+	0xEDA,
+	0xEDC,
+	0xEE0,
+	0xF00,
+	0xF01,
+	0xF18,
+	0xF1A,
+	0xF20,
+	0xF2A,
+	0xF35,
+	0xF36,
+	0xF37,
+	0xF38,
+	0xF39,
+	0xF3A,
+	0xF3E,
+	0xF48,
+	0xF49,
+	0xF6D,
+	0xF71,
+	0xF85,
+	0xF86,
+	0xF98,
+	0xF99,
+	0xFBD,
+	0xFC6,
+	0xFC7,
+	0x1000,
+	0x104A,
+	0x1050,
+	0x109E,
+	0x10A0,
+	0x10C6,
+	0x10C7,
+	0x10C8,
+	0x10CD,
+	0x10CE,
+	0x10D0,
+	0x10FB,
+	0x10FC,
+	0x1249,
+	0x124A,
+	0x124E,
+	0x1250,
+	0x1257,
+	0x1258,
+	0x1259,
+	0x125A,
+	0x125E,
+	0x1260,
+	0x1289,
+	0x128A,
+	0x128E,
+	0x1290,
+	0x12B1,
+	0x12B2,
+	0x12B6,
+	0x12B8,
+	0x12BF,
+	0x12C0,
+	0x12C1,
+	0x12C2,
+	0x12C6,
+	0x12C8,
+	0x12D7,
+	0x12D8,
+	0x1311,
+	0x1312,
+	0x1316,
+	0x1318,
+	0x135B,
+	0x135D,
+	0x1360,
+	0x1380,
+	0x1390,
+	0x13A0,
+	0x13F6,
+	0x13F8,
+	0x13FE,
+	0x1401,
+	0x166D,
+	0x166F,
+	0x1680,
+	0x1681,
+	0x169B,
+	0x16A0,
+	0x16EB,
+	0x16EE,
+	0x16F9,
+	0x1700,
+	0x170D,
+	0x170E,
+	0x1715,
+	0x1720,
+	0x1735,
+	0x1740,
+	0x1754,
+	0x1760,
+	0x176D,
+	0x176E,
+	0x1771,
+	0x1772,
+	0x1774,
+	0x1780,
+	0x17D4,
+	0x17D7,
+	0x17D8,
+	0x17DC,
+	0x17DE,
+	0x17E0,
+	0x17EA,
+	0x180B,
+	0x180E,
+	0x1810,
+	0x181A,
+	0x1820,
+	0x1878,
+	0x1880,
+	0x18AB,
+	0x18B0,
+	0x18F6,
+	0x1900,
+	0x191F,
+	0x1920,
+	0x192C,
+	0x1930,
+	0x193C,
+	0x1946,
+	0x196E,
+	0x1970,
+	0x1975,
+	0x1980,
+	0x19AC,
+	0x19B0,
+	0x19CA,
+	0x19D0,
+	0x19DA,
+	0x1A00,
+	0x1A1C,
+	0x1A20,
+	0x1A5F,
+	0x1A60,
+	0x1A7D,
+	0x1A7F,
+	0x1A8A,
+	0x1A90,
+	0x1A9A,
+	0x1AA7,
+	0x1AA8,
+	0x1AB0,
+	0x1ABF,
+	0x1B00,
+	0x1B4C,
+	0x1B50,
+	0x1B5A,
+	0x1B6B,
+	0x1B74,
+	0x1B80,
+	0x1BF4,
+	0x1C00,
+	0x1C38,
+	0x1C40,
+	0x1C4A,
+	0x1C4D,
+	0x1C7E,
+	0x1CD0,
+	0x1CD3,
+	0x1CD4,
+	0x1CF7,
+	0x1CF8,
+	0x1CFA,
+	0x1D00,
+	0x1DF6,
+	0x1DFC,
+	0x1F16,
+	0x1F18,
+	0x1F1E,
+	0x1F20,
+	0x1F46,
+	0x1F48,
+	0x1F4E,
+	0x1F50,
+	0x1F58,
+	0x1F59,
+	0x1F5A,
+	0x1F5B,
+	0x1F5C,
+	0x1F5D,
+	0x1F5E,
+	0x1F5F,
+	0x1F7E,
+	0x1F80,
+	0x1FB5,
+	0x1FB6,
+	0x1FBD,
+	0x1FBE,
+	0x1FBF,
+	0x1FC2,
+	0x1FC5,
+	0x1FC6,
+	0x1FCD,
+	0x1FD0,
+	0x1FD4,
+	0x1FD6,
+	0x1FDC,
+	0x1FE0,
+	0x1FED,
+	0x1FF2,
+	0x1FF5,
+	0x1FF6,
+	0x1FFD,
+	0x200C,
+	0x200E,
+	0x203F,
+	0x2041,
+	0x2054,
+	0x2055,
+	0x2071,
+	0x2072,
+	0x207F,
+	0x2080,
+	0x2090,
+	0x209D,
+	0x20D0,
+	0x20F1,
+	0x2102,
+	0x2103,
+	0x2107,
+	0x2108,
+	0x210A,
+	0x2114,
+	0x2115,
+	0x2116,
+	0x2119,
+	0x211E,
+	0x2124,
+	0x2125,
+	0x2126,
+	0x2127,
+	0x2128,
+	0x2129,
+	0x212A,
+	0x212E,
+	0x212F,
+	0x213A,
+	0x213C,
+	0x2140,
+	0x2145,
+	0x214A,
+	0x214E,
+	0x214F,
+	0x2160,
+	0x2189,
+	0x24B6,
+	0x24EA,
+	0x2C00,
+	0x2C2F,
+	0x2C30,
+	0x2C5F,
+	0x2C60,
+	0x2CE5,
+	0x2CEB,
+	0x2CF4,
+	0x2D00,
+	0x2D26,
+	0x2D27,
+	0x2D28,
+	0x2D2D,
+	0x2D2E,
+	0x2D30,
+	0x2D68,
+	0x2D6F,
+	0x2D70,
+	0x2D7F,
+	0x2D97,
+	0x2DA0,
+	0x2DA7,
+	0x2DA8,
+	0x2DAF,
+	0x2DB0,
+	0x2DB7,
+	0x2DB8,
+	0x2DBF,
+	0x2DC0,
+	0x2DC7,
+	0x2DC8,
+	0x2DCF,
+	0x2DD0,
+	0x2DD7,
+	0x2DD8,
+	0x2DDF,
+	0x2DE0,
+	0x2E00,
+	0x2E2F,
+	0x2E30,
+	0x3005,
+	0x3008,
+	0x3021,
+	0x3030,
+	0x3031,
+	0x3036,
+	0x3038,
+	0x303D,
+	0x3041,
+	0x3097,
+	0x3099,
+	0x309B,
+	0x309D,
+	0x30A0,
+	0x30A1,
+	0x30FB,
+	0x30FC,
+	0x3100,
+	0x3105,
+	0x312E,
+	0x3131,
+	0x318F,
+	0x31A0,
+	0x31BB,
+	0x31F0,
+	0x3200,
+	0x3400,
+	0x4DB6,
+	0x4E00,
+	0x9FD6,
+	0xA000,
+	0xA48D,
+	0xA4D0,
+	0xA4FE,
+	0xA500,
+	0xA60D,
+	0xA610,
+	0xA62C,
+	0xA640,
+	0xA673,
+	0xA674,
+	0xA67E,
+	0xA67F,
+	0xA6F2,
+	0xA717,
+	0xA720,
+	0xA722,
+	0xA789,
+	0xA78B,
+	0xA7AE,
+	0xA7B0,
+	0xA7B8,
+	0xA7F7,
+	0xA828,
+	0xA840,
+	0xA874,
+	0xA880,
+	0xA8C5,
+	0xA8D0,
+	0xA8DA,
+	0xA8E0,
+	0xA8F8,
+	0xA8FB,
+	0xA8FC,
+	0xA8FD,
+	0xA8FE,
+	0xA900,
+	0xA92E,
+	0xA930,
+	0xA954,
+	0xA960,
+	0xA97D,
+	0xA980,
+	0xA9C1,
+	0xA9CF,
+	0xA9DA,
+	0xA9E0,
+	0xA9FF,
+	0xAA00,
+	0xAA37,
+	0xAA40,
+	0xAA4E,
+	0xAA50,
+	0xAA5A,
+	0xAA60,
+	0xAA77,
+	0xAA7A,
+	0xAAC3,
+	0xAADB,
+	0xAADE,
+	0xAAE0,
+	0xAAF0,
+	0xAAF2,
+	0xAAF7,
+	0xAB01,
+	0xAB07,
+	0xAB09,
+	0xAB0F,
+	0xAB11,
+	0xAB17,
+	0xAB20,
+	0xAB27,
+	0xAB28,
+	0xAB2F,
+	0xAB30,
+	0xAB5B,
+	0xAB5C,
+	0xAB66,
+	0xAB70,
+	0xABEB,
+	0xABEC,
+	0xABEE,
+	0xABF0,
+	0xABFA,
+	0xAC00,
+	0xD7A4,
+	0xD7B0,
+	0xD7C7,
+	0xD7CB,
+	0xD7FC,
+	0xF900,
+	0xFA6E,
+	0xFA70,
+	0xFADA,
+	0xFB00,
+	0xFB07,
+	0xFB13,
+	0xFB18,
+	0xFB1D,
+	0xFB29,
+	0xFB2A,
+	0xFB37,
+	0xFB38,
+	0xFB3D,
+	0xFB3E,
+	0xFB3F,
+	0xFB40,
+	0xFB42,
+	0xFB43,
+	0xFB45,
+	0xFB46,
+	0xFBB2,
+	0xFBD3,
+	0xFD3E,
+	0xFD50,
+	0xFD90,
+	0xFD92,
+	0xFDC8,
+	0xFDF0,
+	0xFDFC,
+	0xFE00,
+	0xFE10,
+	0xFE20,
+	0xFE30,
+	0xFE33,
+	0xFE35,
+	0xFE4D,
+	0xFE50,
+	0xFE70,
+	0xFE75,
+	0xFE76,
+	0xFEFD,
+	0xFF10,
+	0xFF1A,
+	0xFF21,
+	0xFF3B,
+	0xFF3F,
+	0xFF40,
+	0xFF41,
+	0xFF5B,
+	0xFF66,
+	0xFFBF,
+	0xFFC2,
+	0xFFC8,
+	0xFFCA,
+	0xFFD0,
+	0xFFD2,
+	0xFFD8,
+	0xFFDA,
+	0xFFDD,
+	0x10000,
+	0x1000C,
+	0x1000D,
+	0x10027,
+	0x10028,
+	0x1003B,
+	0x1003C,
+	0x1003E,
+	0x1003F,
+	0x1004E,
+	0x10050,
+	0x1005E,
+	0x10080,
+	0x100FB,
+	0x10140,
+	0x10175,
+	0x101FD,
+	0x101FE,
+	0x10280,
+	0x1029D,
+	0x102A0,
+	0x102D1,
+	0x102E0,
+	0x102E1,
+	0x10300,
+	0x10320,
+	0x10330,
+	0x1034B,
+	0x10350,
+	0x1037B,
+	0x10380,
+	0x1039E,
+	0x103A0,
+	0x103C4,
+	0x103C8,
+	0x103D0,
+	0x103D1,
+	0x103D6,
+	0x10400,
+	0x1049E,
+	0x104A0,
+	0x104AA,
+	0x10500,
+	0x10528,
+	0x10530,
+	0x10564,
+	0x10600,
+	0x10737,
+	0x10740,
+	0x10756,
+	0x10760,
+	0x10768,
+	0x10800,
+	0x10806,
+	0x10808,
+	0x10809,
+	0x1080A,
+	0x10836,
+	0x10837,
+	0x10839,
+	0x1083C,
+	0x1083D,
+	0x1083F,
+	0x10856,
+	0x10860,
+	0x10877,
+	0x10880,
+	0x1089F,
+	0x108E0,
+	0x108F3,
+	0x108F4,
+	0x108F6,
+	0x10900,
+	0x10916,
+	0x10920,
+	0x1093A,
+	0x10980,
+	0x109B8,
+	0x109BE,
+	0x109C0,
+	0x10A00,
+	0x10A04,
+	0x10A05,
+	0x10A07,
+	0x10A0C,
+	0x10A14,
+	0x10A15,
+	0x10A18,
+	0x10A19,
+	0x10A34,
+	0x10A38,
+	0x10A3B,
+	0x10A3F,
+	0x10A40,
+	0x10A60,
+	0x10A7D,
+	0x10A80,
+	0x10A9D,
+	0x10AC0,
+	0x10AC8,
+	0x10AC9,
+	0x10AE7,
+	0x10B00,
+	0x10B36,
+	0x10B40,
+	0x10B56,
+	0x10B60,
+	0x10B73,
+	0x10B80,
+	0x10B92,
+	0x10C00,
+	0x10C49,
+	0x10C80,
+	0x10CB3,
+	0x10CC0,
+	0x10CF3,
+	0x11000,
+	0x11047,
+	0x11066,
+	0x11070,
+	0x1107F,
+	0x110BB,
+	0x110D0,
+	0x110E9,
+	0x110F0,
+	0x110FA,
+	0x11100,
+	0x11135,
+	0x11136,
+	0x11140,
+	0x11150,
+	0x11174,
+	0x11176,
+	0x11177,
+	0x11180,
+	0x111C5,
+	0x111CA,
+	0x111CD,
+	0x111D0,
+	0x111DB,
+	0x111DC,
+	0x111DD,
+	0x11200,
+	0x11212,
+	0x11213,
+	0x11238,
+	0x11280,
+	0x11287,
+	0x11288,
+	0x11289,
+	0x1128A,
+	0x1128E,
+	0x1128F,
+	0x1129E,
+	0x1129F,
+	0x112A9,
+	0x112B0,
+	0x112EB,
+	0x112F0,
+	0x112FA,
+	0x11300,
+	0x11304,
+	0x11305,
+	0x1130D,
+	0x1130F,
+	0x11311,
+	0x11313,
+	0x11329,
+	0x1132A,
+	0x11331,
+	0x11332,
+	0x11334,
+	0x11335,
+	0x1133A,
+	0x1133C,
+	0x11345,
+	0x11347,
+	0x11349,
+	0x1134B,
+	0x1134E,
+	0x11350,
+	0x11351,
+	0x11357,
+	0x11358,
+	0x1135D,
+	0x11364,
+	0x11366,
+	0x1136D,
+	0x11370,
+	0x11375,
+	0x11480,
+	0x114C6,
+	0x114C7,
+	0x114C8,
+	0x114D0,
+	0x114DA,
+	0x11580,
+	0x115B6,
+	0x115B8,
+	0x115C1,
+	0x115D8,
+	0x115DE,
+	0x11600,
+	0x11641,
+	0x11644,
+	0x11645,
+	0x11650,
+	0x1165A,
+	0x11680,
+	0x116B8,
+	0x116C0,
+	0x116CA,
+	0x11700,
+	0x1171A,
+	0x1171D,
+	0x1172C,
+	0x11730,
+	0x1173A,
+	0x118A0,
+	0x118EA,
+	0x118FF,
+	0x11900,
+	0x11AC0,
+	0x11AF9,
+	0x12000,
+	0x1239A,
+	0x12400,
+	0x1246F,
+	0x12480,
+	0x12544,
+	0x13000,
+	0x1342F,
+	0x14400,
+	0x14647,
+	0x16800,
+	0x16A39,
+	0x16A40,
+	0x16A5F,
+	0x16A60,
+	0x16A6A,
+	0x16AD0,
+	0x16AEE,
+	0x16AF0,
+	0x16AF5,
+	0x16B00,
+	0x16B37,
+	0x16B40,
+	0x16B44,
+	0x16B50,
+	0x16B5A,
+	0x16B63,
+	0x16B78,
+	0x16B7D,
+	0x16B90,
+	0x16F00,
+	0x16F45,
+	0x16F50,
+	0x16F7F,
+	0x16F8F,
+	0x16FA0,
+	0x1B000,
+	0x1B002,
+	0x1BC00,
+	0x1BC6B,
+	0x1BC70,
+	0x1BC7D,
+	0x1BC80,
+	0x1BC89,
+	0x1BC90,
+	0x1BC9A,
+	0x1BC9D,
+	0x1BC9F,
+	0x1D165,
+	0x1D16A,
+	0x1D16D,
+	0x1D173,
+	0x1D17B,
+	0x1D183,
+	0x1D185,
+	0x1D18C,
+	0x1D1AA,
+	0x1D1AE,
+	0x1D242,
+	0x1D245,
+	0x1D400,
+	0x1D455,
+	0x1D456,
+	0x1D49D,
+	0x1D49E,
+	0x1D4A0,
+	0x1D4A2,
+	0x1D4A3,
+	0x1D4A5,
+	0x1D4A7,
+	0x1D4A9,
+	0x1D4AD,
+	0x1D4AE,
+	0x1D4BA,
+	0x1D4BB,
+	0x1D4BC,
+	0x1D4BD,
+	0x1D4C4,
+	0x1D4C5,
+	0x1D506,
+	0x1D507,
+	0x1D50B,
+	0x1D50D,
+	0x1D515,
+	0x1D516,
+	0x1D51D,
+	0x1D51E,
+	0x1D53A,
+	0x1D53B,
+	0x1D53F,
+	0x1D540,
+	0x1D545,
+	0x1D546,
+	0x1D547,
+	0x1D54A,
+	0x1D551,
+	0x1D552,
+	0x1D6A6,
+	0x1D6A8,
+	0x1D6C1,
+	0x1D6C2,
+	0x1D6DB,
+	0x1D6DC,
+	0x1D6FB,
+	0x1D6FC,
+	0x1D715,
+	0x1D716,
+	0x1D735,
+	0x1D736,
+	0x1D74F,
+	0x1D750,
+	0x1D76F,
+	0x1D770,
+	0x1D789,
+	0x1D78A,
+	0x1D7A9,
+	0x1D7AA,
+	0x1D7C3,
+	0x1D7C4,
+	0x1D7CC,
+	0x1D7CE,
+	0x1D800,
+	0x1DA00,
+	0x1DA37,
+	0x1DA3B,
+	0x1DA6D,
+	0x1DA75,
+	0x1DA76,
+	0x1DA84,
+	0x1DA85,
+	0x1DA9B,
+	0x1DAA0,
+	0x1DAA1,
+	0x1DAB0,
+	0x1E800,
+	0x1E8C5,
+	0x1E8D0,
+	0x1E8D7,
+	0x1EE00,
+	0x1EE04,
+	0x1EE05,
+	0x1EE20,
+	0x1EE21,
+	0x1EE23,
+	0x1EE24,
+	0x1EE25,
+	0x1EE27,
+	0x1EE28,
+	0x1EE29,
+	0x1EE33,
+	0x1EE34,
+	0x1EE38,
+	0x1EE39,
+	0x1EE3A,
+	0x1EE3B,
+	0x1EE3C,
+	0x1EE42,
+	0x1EE43,
+	0x1EE47,
+	0x1EE48,
+	0x1EE49,
+	0x1EE4A,
+	0x1EE4B,
+	0x1EE4C,
+	0x1EE4D,
+	0x1EE50,
+	0x1EE51,
+	0x1EE53,
+	0x1EE54,
+	0x1EE55,
+	0x1EE57,
+	0x1EE58,
+	0x1EE59,
+	0x1EE5A,
+	0x1EE5B,
+	0x1EE5C,
+	0x1EE5D,
+	0x1EE5E,
+	0x1EE5F,
+	0x1EE60,
+	0x1EE61,
+	0x1EE63,
+	0x1EE64,
+	0x1EE65,
+	0x1EE67,
+	0x1EE6B,
+	0x1EE6C,
+	0x1EE73,
+	0x1EE74,
+	0x1EE78,
+	0x1EE79,
+	0x1EE7D,
+	0x1EE7E,
+	0x1EE7F,
+	0x1EE80,
+	0x1EE8A,
+	0x1EE8B,
+	0x1EE9C,
+	0x1EEA1,
+	0x1EEA4,
+	0x1EEA5,
+	0x1EEAA,
+	0x1EEAB,
+	0x1EEBC,
+	0x1F130,
+	0x1F14A,
+	0x1F150,
+	0x1F16A,
+	0x1F170,
+	0x1F18A,
+	0x20000,
+	0x2A6D7,
+	0x2A700,
+	0x2B735,
+	0x2B740,
+	0x2B81E,
+	0x2B820,
+	0x2CEA2,
+	0x2F800,
+	0x2FA1E,
+	0xE0100,
+	0xE01F0
+};
+
+static const UV XPosixXDigit_invlist[] = { /* for EBCDIC 037 */
+	13,	/* Number of elements */
+	148565664, /* Version and data structure type */
+	1,	/* 0 if the list starts at 0;
+		   1 if it starts at the element beyond 0 */
+	0x0,
+	0x81,
+	0x87,
+	0xC1,
+	0xC7,
+	0xF0,
+	0xFA,
+	0xFF10,
+	0xFF1A,
+	0xFF21,
+	0xFF27,
+	0xFF41,
+	0xFF47
+};
+
+#endif	/* defined(PERL_IN_PERL_C) */
+
+#endif	/* EBCDIC 037 */
+
+#if defined(PERL_IN_REGEXEC_C)
+
+static const bool GCB_table[14][14] = {
+   /* 'edg' stands for 'EDGE' */
+/*        XX CR CN EX  L LF LV LVT PP RI SM  T  V edg */
+/* XX */ { 1, 1, 1, 0, 1, 1, 1,  1, 1, 1, 0, 1, 1,  1 },
+/* CR */ { 1, 1, 1, 1, 1, 0, 1,  1, 1, 1, 1, 1, 1,  1 },
+/* CN */ { 1, 1, 1, 1, 1, 1, 1,  1, 1, 1, 1, 1, 1,  1 },
+/* EX */ { 1, 1, 1, 0, 1, 1, 1,  1, 1, 1, 0, 1, 1,  1 },
+/* L  */ { 1, 1, 1, 0, 0, 1, 0,  0, 1, 1, 0, 1, 0,  1 },
+/* LF */ { 1, 1, 1, 1, 1, 1, 1,  1, 1, 1, 1, 1, 1,  1 },
+/* LV */ { 1, 1, 1, 0, 1, 1, 1,  1, 1, 1, 0, 0, 0,  1 },
+/* LVT*/ { 1, 1, 1, 0, 1, 1, 1,  1, 1, 1, 0, 0, 1,  1 },
+/* PP */ { 0, 1, 1, 0, 0, 1, 0,  0, 0, 0, 0, 0, 0,  1 },
+/* RI */ { 1, 1, 1, 0, 1, 1, 1,  1, 1, 0, 0, 1, 1,  1 },
+/* SM */ { 1, 1, 1, 0, 1, 1, 1,  1, 1, 1, 0, 1, 1,  1 },
+/* T  */ { 1, 1, 1, 0, 1, 1, 1,  1, 1, 1, 0, 0, 1,  1 },
+/* V  */ { 1, 1, 1, 0, 1, 1, 1,  1, 1, 1, 0, 0, 0,  1 },
+/* edg*/ { 1, 1, 1, 1, 1, 1, 1,  1, 1, 1, 1, 1, 1,  0 }
+};
+
+#define LB_NOBREAK                        0
+#define LB_BREAKABLE                      1
+#define LB_NOBREAK_EVEN_WITH_SP_BETWEEN   2
+#define LB_CM_foo                         3
+#define LB_SP_foo                         6
+#define LB_PR_or_PO_then_OP_or_HY         9
+#define LB_SY_or_IS_then_various         11
+#define LB_HY_or_BA_then_foo             13
+#define LB_various_then_PO_or_PR         16
+
+static const U8 LB_table[36][36] = {
+   /* 'edg' stands for 'EDGE' */
+/*        AL BA BB B2 SY CR CP CL CM CB EX GL H2 H3 HL HY ID IS IN JL JT JV LF BK NL NS NU OP PO PR QU RI SP WJ ZW edg */
+/* AL */ { 0, 0, 1, 1, 2, 0, 2, 2, 0, 1, 2, 0, 1, 1, 0, 0, 1, 2, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 1, 1, 0, 1, 0, 0, 0,  1 },
+/* BA */ {14, 0,14,14, 2, 0, 2, 2, 0, 1, 2,14,14,14,14, 0,14, 2,14,14,14,14, 0, 0, 0, 0,14,14,14,14, 0,14, 0, 0, 0,  1 },
+/* BB */ { 0, 0, 0, 0, 2, 0, 2, 2, 0, 1, 2, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,  1 },
+/* B2 */ { 1, 0, 1, 2, 2, 0, 2, 2, 0, 1, 2, 0, 1, 1, 1, 0, 1, 2, 1, 1, 1, 1, 0, 0, 0, 0, 1, 1, 1, 1, 0, 1, 0, 0, 0,  1 },
+/* SY */ { 1, 0, 1, 1, 2, 0, 2, 2, 0, 1, 2, 0, 1, 1, 0, 0, 1, 2, 1, 1, 1, 1, 0, 0, 0, 0,12, 1,17,17, 0, 1, 0, 0, 0,  1 },
+/* CR */ { 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,  1 },
+/* CP */ { 0, 0, 1, 1, 2, 0, 2, 2, 0, 1, 2, 0, 1, 1, 0, 0, 1, 2, 1, 1, 1, 1, 0, 0, 0, 2, 0, 1,17,17, 0, 1, 0, 0, 0,  1 },
+/* CL */ { 1, 0, 1, 1, 2, 0, 2, 2, 0, 1, 2, 0, 1, 1, 1, 0, 1, 2, 1, 1, 1, 1, 0, 0, 0, 2, 1, 1,17,17, 0, 1, 0, 0, 0,  1 },
+/* CM */ { 3, 3, 3, 3, 3, 0, 3, 3, 0, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 0, 0, 0, 3, 3, 3, 3, 3, 3, 3, 0, 3, 0,  1 },
+/* CB */ { 1, 1, 1, 1, 2, 0, 2, 2, 0, 1, 2, 0, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 0, 0, 0, 1, 1, 1, 1, 1, 0, 1, 0, 0, 0,  1 },
+/* EX */ { 1, 0, 1, 1, 2, 0, 2, 2, 0, 1, 2, 0, 1, 1, 1, 0, 1, 2, 0, 1, 1, 1, 0, 0, 0, 0, 1, 1, 1, 1, 0, 1, 0, 0, 0,  1 },
+/* GL */ { 0, 0, 0, 0, 2, 0, 2, 2, 0, 0, 2, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,  1 },
+/* H2 */ { 1, 0, 1, 1, 2, 0, 2, 2, 0, 1, 2, 0, 1, 1, 1, 0, 1, 2, 0, 1, 0, 0, 0, 0, 0, 0, 1, 1, 0, 1, 0, 1, 0, 0, 0,  1 },
+/* H3 */ { 1, 0, 1, 1, 2, 0, 2, 2, 0, 1, 2, 0, 1, 1, 1, 0, 1, 2, 0, 1, 0, 1, 0, 0, 0, 0, 1, 1, 0, 1, 0, 1, 0, 0, 0,  1 },
+/* HL */ { 0, 0, 1, 1, 2, 0, 2, 2, 0, 1, 2, 0, 1, 1, 0, 0, 1, 2, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 1, 1, 0, 1, 0, 0, 0,  1 },
+/* HY */ {14, 0,14,14, 2, 0, 2, 2, 0, 1, 2,14,14,14,14, 0,14, 2,14,14,14,14, 0, 0, 0, 0,13,14,14,14, 0,14, 0, 0, 0,  1 },
+/* ID */ { 1, 0, 1, 1, 2, 0, 2, 2, 0, 1, 2, 0, 1, 1, 1, 0, 1, 2, 0, 1, 1, 1, 0, 0, 0, 0, 1, 1, 0, 1, 0, 1, 0, 0, 0,  1 },
+/* IS */ { 0, 0, 1, 1, 2, 0, 2, 2, 0, 1, 2, 0, 1, 1, 0, 0, 1, 2, 1, 1, 1, 1, 0, 0, 0, 0,12, 1,17,17, 0, 1, 0, 0, 0,  1 },
+/* IN */ { 1, 0, 1, 1, 2, 0, 2, 2, 0, 1, 2, 0, 1, 1, 1, 0, 1, 2, 0, 1, 1, 1, 0, 0, 0, 0, 1, 1, 1, 1, 0, 1, 0, 0, 0,  1 },
+/* JL */ { 1, 0, 1, 1, 2, 0, 2, 2, 0, 1, 2, 0, 0, 0, 1, 0, 1, 2, 0, 0, 1, 0, 0, 0, 0, 0, 1, 1, 0, 1, 0, 1, 0, 0, 0,  1 },
+/* JT */ { 1, 0, 1, 1, 2, 0, 2, 2, 0, 1, 2, 0, 1, 1, 1, 0, 1, 2, 0, 1, 0, 1, 0, 0, 0, 0, 1, 1, 0, 1, 0, 1, 0, 0, 0,  1 },
+/* JV */ { 1, 0, 1, 1, 2, 0, 2, 2, 0, 1, 2, 0, 1, 1, 1, 0, 1, 2, 0, 1, 0, 0, 0, 0, 0, 0, 1, 1, 0, 1, 0, 1, 0, 0, 0,  1 },
+/* LF */ { 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,  1 },
+/* BK */ { 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,  1 },
+/* NL */ { 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,  1 },
+/* NS */ { 1, 0, 1, 1, 2, 0, 2, 2, 0, 1, 2, 0, 1, 1, 1, 0, 1, 2, 1, 1, 1, 1, 0, 0, 0, 0, 1, 1, 1, 1, 0, 1, 0, 0, 0,  1 },
+/* NU */ { 0, 0, 1, 1, 0, 0, 0, 0, 0, 1, 2, 0, 1, 1, 0, 0, 1, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0,  1 },
+/* OP */ { 2, 2, 2, 2, 2, 0, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 0, 0, 0, 2, 2, 2, 2, 2, 2, 2, 0, 2, 0,  1 },
+/* PO */ { 0, 0, 1, 1, 2, 0, 2, 2, 0, 1, 2, 0, 1, 1, 0, 0, 1, 2, 1, 1, 1, 1, 0, 0, 0, 0, 0,10, 1, 1, 0, 1, 0, 0, 0,  1 },
+/* PR */ { 0, 0, 1, 1, 2, 0, 2, 2, 0, 1, 2, 0, 0, 0, 0, 0, 0, 2, 1, 0, 0, 0, 0, 0, 0, 0, 0,10, 1, 1, 0, 1, 0, 0, 0,  1 },
+/* QU */ { 0, 0, 0, 0, 2, 0, 2, 2, 0, 0, 2, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0,  1 },
+/* RI */ { 1, 0, 1, 1, 2, 0, 2, 2, 0, 1, 2, 0, 1, 1, 1, 0, 1, 2, 1, 1, 1, 1, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0,  1 },
+/* SP */ { 7, 7, 7, 7, 8, 0, 8, 8, 7, 7, 8, 7, 7, 7, 7, 7, 7, 8, 7, 7, 7, 7, 0, 0, 0, 7, 7, 7, 7, 7, 7, 7, 0, 8, 0,  1 },
+/* WJ */ { 0, 0, 0, 0, 2, 0, 2, 2, 0, 0, 2, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,  1 },
+/* ZW */ { 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 1, 0,  1 },
+/* edg*/ { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,  0 }
+};
+
+#define WB_NOBREAK                        0
+#define WB_BREAKABLE                      1
+#define WB_hs_then_hs                     2
+#define WB_Ex_or_FO_then_foo              3
+#define WB_DQ_then_HL                     4
+#define WB_HL_then_DQ                     6
+#define WB_LE_or_HL_then_MB_or_ML_or_SQ   8
+#define WB_MB_or_ML_or_SQ_then_LE_or_HL  10
+#define WB_MB_or_MN_or_SQ_then_NU        12
+#define WB_NU_then_MB_or_MN_or_SQ        14
+
+static const U8 WB_table[19][19] = {
+   /* 'Ext' stands for 'Extend'; 'edg' stands for 'EDGE'; 'hs' stands
+    * for 'Perl_Tailored_HSpace'; 'unk' stands for 'UNKNOWN' */
+/*        XX LE CR DQ Ext EX FO HL KA LF ML MN MB NL NU hs RI SQ edg */
+/* XX */ { 1, 1, 1, 1,  0, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,  1 },
+/* LE */ { 1, 0, 1, 1,  0, 0, 0, 0, 1, 1, 9, 1, 9, 1, 0, 1, 1, 9,  1 },
+/* CR */ { 1, 1, 0, 1,  1, 1, 1, 1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 1,  1 },
+/* DQ */ { 1, 1, 1, 1,  0, 1, 0, 5, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,  1 },
+/* Ext*/ { 3, 3, 1, 3,  0, 3, 0, 3, 3, 1, 3, 3, 3, 1, 3, 1, 3, 3,  1 },
+/* EX */ { 1, 0, 1, 1,  0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1,  1 },
+/* FO */ { 3, 3, 1, 3,  0, 3, 0, 3, 3, 1, 3, 3, 3, 1, 3, 1, 3, 3,  1 },
+/* HL */ { 1, 0, 1, 7,  0, 0, 0, 0, 1, 1, 9, 1, 9, 1, 0, 1, 1, 8,  1 },
+/* KA */ { 1, 1, 1, 1,  0, 0, 0, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1,  1 },
+/* LF */ { 1, 1, 0, 1,  1, 1, 1, 1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 1,  1 },
+/* ML */ { 1,11, 1, 1,  0, 1, 0,11, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,  1 },
+/* MN */ { 1, 1, 1, 1,  0, 1, 0, 1, 1, 1, 1, 1, 1, 1,13, 1, 1, 1,  1 },
+/* MB */ { 1,11, 1, 1,  0, 1, 0,11, 1, 1, 1, 1, 1, 1,13, 1, 1, 1,  1 },
+/* NL */ { 1, 1, 0, 1,  1, 1, 1, 1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 1,  1 },
+/* NU */ { 1, 0, 1, 1,  0, 0, 0, 0, 1, 1, 1,15,15, 1, 0, 1, 1,15,  1 },
+/* hs */ { 1, 1, 0, 1,  0, 1, 0, 1, 1, 0, 1, 1, 1, 0, 1, 2, 1, 1,  1 },
+/* RI */ { 1, 1, 1, 1,  0, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1,  1 },
+/* SQ */ { 1,11, 1, 1,  0, 1, 0,11, 1, 1, 1, 1, 1, 1,13, 1, 1, 1,  1 },
+/* edg*/ { 1, 1, 1, 1,  1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,  0 }
+};
+
+#endif	/* defined(PERL_IN_REGEXEC_C) */
+
+/* Generated from:
+ * cb3170dd603ad12ba0299440e99e8f50a8afde60ade2ffcbf1ff4a8a53854b90 lib/Unicode/UCD.pm
+ * ae98bec7e4f0564758eed81eca5015481ba32581f8a735a825b71b3bba714450 lib/unicore/ArabicShaping.txt
+ * 1687fe5994eb7e5c0dab8503fc2a1b3b479d91af9d3b8055941c9bd791f7d0b5 lib/unicore/BidiBrackets.txt
+ * 350d1302116194b0b21def287434b55c5088098fbc726e879f7420a391965643 lib/unicore/BidiMirroring.txt
+ * 288fc7b85c76bda296e296c8465f1f4baeb456cb814430dfaa0f546bfbe86b4a lib/unicore/Blocks.txt
+ * 86e075f2ede997b3fa5965516c75190b5a88bb82d302272d9c3179b7a57af03f lib/unicore/CaseFolding.txt
+ * 2fafee5be73bf2817ee669c53c504a6c4aa02ac7344194af18511aea2e05d750 lib/unicore/CompositionExclusions.txt
+ * 302f6d6171dc9c6165db86d0226b7923a64cea06c493d339d35436bf137606a3 lib/unicore/DAge.txt
+ * ff666dece87dfdbdbf04a2e26a0bfb52c4ba98db1f8965b0b01ddb9e15f97476 lib/unicore/DCoreProperties.txt
+ * 6cc76100d402d7dd12bd769ac61158b91e71aad58c8333abb848f1b9c9fdde2d lib/unicore/DNormalizationProps.txt
+ * ccc571829b384b8a2c24b7a62f8aa6a891a6e8c48f08513ef84fd6da26dba4bb lib/unicore/EastAsianWidth.txt
+ * 2320db06cf88c755ec7b9cfec96dd9e1d774173521dbc3ee7985377c2ab90d32 lib/unicore/HangulSyllableType.txt
+ * e52216b5fdb04910e06e94f01cabdf70656b0077c92b756c7b38822626d572f2 lib/unicore/IndicPositionalCategory.txt
+ * 4db71a39102e173095cb8bda8b4c35e78fe6b365e443c584b19f081d8c4894fc lib/unicore/IndicSyllabicCategory.txt
+ * eeb30346bb545bb45ff16486d9234397bfe1a195bb12b54fc1d9f48f87e8aa5e lib/unicore/Jamo.txt
+ * 13e2b7087bcca3163272e64e34e480534bd2f8353a0245c26e6642566f59a60d lib/unicore/LineBreak.txt
+ * 9bb54cd7b5509779f269fa60341bcbfca8da8f17d3c4999e44a5a51671d3c402 lib/unicore/NameAliases.txt
+ * e4c29d9ceefbe2382af819ac7646265a9e4ea599ce04a90d31bec97cfaa2848f lib/unicore/NamedSequences.txt
+ * 70d40297f1bf91397fbdab5a770c12100733e67c5c3398446c5e950715d5e535 lib/unicore/PropList.txt
+ * 03a440f2a4b9151043a6bb53d4a4e528b73238079f9d686dc2a5846e6895588a lib/unicore/PropValueAliases.txt
+ * 8e8b48c2080d31aa6713f5535aad94a1f7bc9a65cc52563724e5e69b0a3b4196 lib/unicore/PropertyAliases.txt
+ * 45d42b1ecbac2263c1c63c95104e63ea64313eb99be94542e040aea11c449f6c lib/unicore/ScriptExtensions.txt
+ * 79fbd73ad82c30fdb67d36a349d12667bd58d3e9da6a8ce7dd26383b637ba85f lib/unicore/Scripts.txt
+ * fb2025dae3b9b17649b6e379c1cdbddf50641267ca6d2446caeccf4a141fe167 lib/unicore/SpecialCasing.txt
+ * 38b17e1118206489a7e0ab5d29d7932212d38838df7d3ec025ecb58e8798ec20 lib/unicore/UnicodeData.txt
+ * 0cedd6e0f5cadf57ce9cfc96beccfd083b0faa0809a631a777cd25f0316bfabb lib/unicore/auxiliary/GCBTest.txt
+ * 230005412f9a47128e37bc52330766aaa0b5522a53737a89cff66e891e14527a lib/unicore/auxiliary/GraphemeBreakProperty.txt
+ * 149b14ab93b06c887a958fb16d0ad01193063ef69cc14f10338ae4d0accd6c28 lib/unicore/auxiliary/LBTest.txt
+ * 41bf82452d71ce15eda8c9bb1bb0c20b72205acaaf503e3cb84734ed8e85d33a lib/unicore/auxiliary/SBTest.txt
+ * d3b45cdb0a73eeb9d25158336583dfc1e6f64da59537acb0008988b40e6b3b63 lib/unicore/auxiliary/SentenceBreakProperty.txt
+ * a661f42a54f7cc4dded72a61c508be2b482f912d4b6cf140335010f0c684dbb9 lib/unicore/auxiliary/WBTest.txt
+ * c255bd2e1f163373510679bf4b272eee97b635bfce2a6550d6c10fe5c917f01a lib/unicore/auxiliary/WordBreakProperty.txt
+ * 16dac6f1c164a4f52741b71221a8aafb6acb52cd8a436af139da6e93d86efdfb lib/unicore/extracted/DBidiClass.txt
+ * c4e78efc041668548117f7462af03b28dfbb2caca5d46a1ae78ae0ce0bb26c4a lib/unicore/extracted/DBinaryProperties.txt
+ * 5886bb44aae8f2821663f742793cb91d4ed0923c6840f3bfb73530e37030abf8 lib/unicore/extracted/DCombiningClass.txt
+ * 9edba3785ed0e6e46e10f67e2dd0ec3cb0799b7f75f526fe918429576060352e lib/unicore/extracted/DDecompositionType.txt
+ * b774387f79b27ae4268ae89450f971408dc9bbbb523426482ab4375c962bd922 lib/unicore/extracted/DEastAsianWidth.txt
+ * ba4207d2464077e807b20caf063041142afc0a8a38c328c5c23b3417c9f2da33 lib/unicore/extracted/DGeneralCategory.txt
+ * 29fdd151266595eb1b37715937afe0727bb632a2bc1130f0d2314040175df82e lib/unicore/extracted/DJoinGroup.txt
+ * 7725fe247da06986e43e89fd316b8b22a0619546d0c1ed499a94b25e9164c150 lib/unicore/extracted/DJoinType.txt
+ * 1a0687fb9c6c4567e853913549df0944fe40821279a3e9cdaa6ab8679bc286fd lib/unicore/extracted/DLineBreak.txt
+ * 40bcfed3ca727c19e1331f6c33806231d5f7eeeabd2e6a9e06a3740c85d0c250 lib/unicore/extracted/DNumType.txt
+ * a18d502bad39d527ac5586d7bc93e29f565859e3bcc24ada627eff606d6f5fed lib/unicore/extracted/DNumValues.txt
+ * 285aef7ed2bf69724b1fa9bba177640636f666e1a5dd0ba5e538d4790129bbfe lib/unicore/mktables
+ * 462c9aaa608fb2014cd9649af1c5c009485c60b9c8b15b89401fdc10cf6161c6 lib/unicore/version
+ * 913d2f93f3cb6cdf1664db888bf840bc4eb074eef824e082fceda24a9445e60c regen/charset_translations.pl
+ * 12bd58cb9d5a99f631ca95e269f7f9c90dacaf81020efa5d95a995f3cdc19200 regen/mk_invlists.pl
+ * ex: set ro: */
diff --git a/lib/5.24.1/x86_64-linux/CORE/config.h b/lib/5.24.1/x86_64-linux/CORE/config.h
new file mode 100644
index 00000000..fdebea30
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/config.h
@@ -0,0 +1,5241 @@
+/* This file was produced by running the config_h.SH script, which
+ * gets its values from config.sh, which is generally produced by
+ * running Configure.
+ *
+ * Feel free to modify any of this as the need arises.  Note, however,
+ * that running config_h.SH again will wipe out any changes you've made.
+ * For a more permanent change edit config.sh and rerun config_h.SH.
+ */
+
+/* Package name      : perl5
+ * Source directory  : .
+ * Configuration time: Wed Feb  1 15:06:43 UTC 2017
+ * Configured by     : root
+ * Target system     : linux f99ef720d20e 4.9.7-040907-lowlatency #201702010331 smp preempt wed feb 1 08:38:48 utc 2017 x86_64 gnulinux 
+ */
+
+#ifndef _config_h_
+#define _config_h_
+
+/* LOC_SED:
+ *	This symbol holds the complete pathname to the sed program.
+ */
+#define LOC_SED 	"/bin/sed"	/**/
+
+/* HAS_ALARM:
+ *	This symbol, if defined, indicates that the alarm routine is
+ *	available.
+ */
+#define HAS_ALARM		/**/
+
+/* HAS_BCMP:
+ *	This symbol is defined if the bcmp() routine is available to
+ *	compare blocks of memory.
+ */
+#define HAS_BCMP	/**/
+
+/* HAS_BCOPY:
+ *	This symbol is defined if the bcopy() routine is available to
+ *	copy blocks of memory.
+ */
+#define HAS_BCOPY	/**/
+
+/* HAS_BZERO:
+ *	This symbol is defined if the bzero() routine is available to
+ *	set a memory block to 0.
+ */
+#define HAS_BZERO	/**/
+
+/* HAS_CBRT:
+ *	This symbol, if defined, indicates that the cbrt() (cube root)
+ *	function is available.
+ */
+#define HAS_CBRT	/**/
+
+/* HAS_CHOWN:
+ *	This symbol, if defined, indicates that the chown routine is
+ *	available.
+ */
+#define HAS_CHOWN		/**/
+
+/* HAS_CHROOT:
+ *	This symbol, if defined, indicates that the chroot routine is
+ *	available.
+ */
+#define HAS_CHROOT		/**/
+
+/* HAS_CHSIZE:
+ *	This symbol, if defined, indicates that the chsize routine is available
+ *	to truncate files.  You might need a -lx to get this routine.
+ */
+/*#define	HAS_CHSIZE		/ **/
+
+/* HAS_CRYPT:
+ *	This symbol, if defined, indicates that the crypt routine is available
+ *	to encrypt passwords and the like.
+ */
+#define HAS_CRYPT		/**/
+
+/* HAS_CTERMID:
+ *	This symbol, if defined, indicates that the ctermid routine is
+ *	available to generate filename for terminal.
+ */
+#define HAS_CTERMID		/**/
+
+/* HAS_CUSERID:
+ *	This symbol, if defined, indicates that the cuserid routine is
+ *	available to get character login names.
+ */
+#define HAS_CUSERID		/**/
+
+/* HAS_DBL_DIG:
+ *	This symbol, if defined, indicates that this system's <float.h>
+ *	or <limits.h> defines the symbol DBL_DIG, which is the number
+ *	of significant digits in a double precision number.  If this
+ *	symbol is not defined, a guess of 15 is usually pretty good.
+ */
+#define HAS_DBL_DIG 	/**/
+
+/* HAS_DIFFTIME:
+ *	This symbol, if defined, indicates that the difftime routine is
+ *	available.
+ */
+#define HAS_DIFFTIME		/**/
+
+/* HAS_DLERROR:
+ *	This symbol, if defined, indicates that the dlerror routine is
+ *	available to return a string describing the last error that
+ *	occurred from a call to dlopen(), dlclose() or dlsym().
+ */
+#define HAS_DLERROR	/**/
+
+/* HAS_DUP2:
+ *	This symbol, if defined, indicates that the dup2 routine is
+ *	available to duplicate file descriptors.
+ */
+#define HAS_DUP2	/**/
+
+/* HAS_FCHMOD:
+ *	This symbol, if defined, indicates that the fchmod routine is available
+ *	to change mode of opened files.  If unavailable, use chmod().
+ */
+#define HAS_FCHMOD		/**/
+
+/* HAS_FCHOWN:
+ *	This symbol, if defined, indicates that the fchown routine is available
+ *	to change ownership of opened files.  If unavailable, use chown().
+ */
+#define HAS_FCHOWN		/**/
+
+/* HAS_FCNTL:
+ *	This symbol, if defined, indicates to the C program that
+ *	the fcntl() function exists.
+ */
+#define HAS_FCNTL		/**/
+
+/* HAS_FGETPOS:
+ *	This symbol, if defined, indicates that the fgetpos routine is
+ *	available to get the file position indicator, similar to ftell().
+ */
+#define HAS_FGETPOS	/**/
+
+/* HAS_FLOCK:
+ *	This symbol, if defined, indicates that the flock routine is
+ *	available to do file locking.
+ */
+#define HAS_FLOCK		/**/
+
+/* HAS_FORK:
+ *	This symbol, if defined, indicates that the fork routine is
+ *	available.
+ */
+#define HAS_FORK		/**/
+
+/* HAS_FSETPOS:
+ *	This symbol, if defined, indicates that the fsetpos routine is
+ *	available to set the file position indicator, similar to fseek().
+ */
+#define HAS_FSETPOS	/**/
+
+/* HAS_GETTIMEOFDAY:
+ *	This symbol, if defined, indicates that the gettimeofday() system
+ *	call is available for a sub-second accuracy clock. Usually, the file
+ *	<sys/resource.h> needs to be included (see I_SYS_RESOURCE).
+ *	The type "Timeval" should be used to refer to "struct timeval".
+ */
+#define HAS_GETTIMEOFDAY	/**/
+#ifdef HAS_GETTIMEOFDAY
+#define Timeval struct timeval	/* Structure used by gettimeofday() */
+#endif
+
+/* HAS_GETGROUPS:
+ *	This symbol, if defined, indicates that the getgroups() routine is
+ *	available to get the list of process groups.  If unavailable, multiple
+ *	groups are probably not supported.
+ */
+#define HAS_GETGROUPS		/**/
+
+/* HAS_GETLOGIN:
+ *	This symbol, if defined, indicates that the getlogin routine is
+ *	available to get the login name.
+ */
+#define HAS_GETLOGIN		/**/
+
+/* HAS_GETPGID:
+ *	This symbol, if defined, indicates to the C program that 
+ *	the getpgid(pid) function is available to get the
+ *	process group id.
+ */
+#define HAS_GETPGID		/**/
+
+/* HAS_GETPGRP2:
+ *	This symbol, if defined, indicates that the getpgrp2() (as in DG/UX)
+ *	routine is available to get the current process group.
+ */
+/*#define HAS_GETPGRP2		/ **/
+
+/* HAS_GETPPID:
+ *	This symbol, if defined, indicates that the getppid routine is
+ *	available to get the parent process ID.
+ */
+#define HAS_GETPPID		/**/
+
+/* HAS_GETPRIORITY:
+ *	This symbol, if defined, indicates that the getpriority routine is
+ *	available to get a process's priority.
+ */
+#define HAS_GETPRIORITY		/**/
+
+/* HAS_INET_ATON:
+ *	This symbol, if defined, indicates to the C program that the
+ *	inet_aton() function is available to parse IP address "dotted-quad"
+ *	strings.
+ */
+#define HAS_INET_ATON		/**/
+
+/* HAS_KILLPG:
+ *	This symbol, if defined, indicates that the killpg routine is available
+ *	to kill process groups.  If unavailable, you probably should use kill
+ *	with a negative process number.
+ */
+#define HAS_KILLPG	/**/
+
+/* HAS_LINK:
+ *	This symbol, if defined, indicates that the link routine is
+ *	available to create hard links.
+ */
+#define HAS_LINK	/**/
+
+/* HAS_LOCALECONV:
+ *	This symbol, if defined, indicates that the localeconv routine is
+ *	available for numeric and monetary formatting conventions.
+ */
+#define HAS_LOCALECONV	/**/
+
+/* HAS_LOCKF:
+ *	This symbol, if defined, indicates that the lockf routine is
+ *	available to do file locking.
+ */
+#define HAS_LOCKF		/**/
+
+/* HAS_LSTAT:
+ *	This symbol, if defined, indicates that the lstat routine is
+ *	available to do file stats on symbolic links.
+ */
+#define HAS_LSTAT		/**/
+
+/* HAS_MBLEN:
+ *	This symbol, if defined, indicates that the mblen routine is available
+ *	to find the number of bytes in a multibye character.
+ */
+#define HAS_MBLEN		/**/
+
+/* HAS_MBSTOWCS:
+ *	This symbol, if defined, indicates that the mbstowcs routine is
+ *	available to convert a multibyte string into a wide character string.
+ */
+#define	HAS_MBSTOWCS		/**/
+
+/* HAS_MBTOWC:
+ *	This symbol, if defined, indicates that the mbtowc routine is available
+ *	to convert a multibyte to a wide character.
+ */
+#define HAS_MBTOWC		/**/
+
+/* HAS_MEMCMP:
+ *	This symbol, if defined, indicates that the memcmp routine is available
+ *	to compare blocks of memory.
+ */
+#define HAS_MEMCMP	/**/
+
+/* HAS_MEMCPY:
+ *	This symbol, if defined, indicates that the memcpy routine is available
+ *	to copy blocks of memory.
+ */
+#define HAS_MEMCPY	/**/
+
+/* HAS_MEMMOVE:
+ *	This symbol, if defined, indicates that the memmove routine is available
+ *	to copy potentially overlapping blocks of memory. This should be used
+ *	only when HAS_SAFE_BCOPY is not defined. If neither is there, roll your
+ *	own version.
+ */
+#define HAS_MEMMOVE	/**/
+
+/* HAS_MEMSET:
+ *	This symbol, if defined, indicates that the memset routine is available
+ *	to set blocks of memory.
+ */
+#define HAS_MEMSET	/**/
+
+/* HAS_MKDIR:
+ *	This symbol, if defined, indicates that the mkdir routine is available
+ *	to create directories.  Otherwise you should fork off a new process to
+ *	exec /bin/mkdir.
+ */
+#define HAS_MKDIR		/**/
+
+/* HAS_MKFIFO:
+ *	This symbol, if defined, indicates that the mkfifo routine is
+ *	available to create FIFOs. Otherwise, mknod should be able to
+ *	do it for you. However, if mkfifo is there, mknod might require
+ *	super-user privileges which mkfifo will not.
+ */
+#define HAS_MKFIFO		/**/
+
+/* HAS_MKTIME:
+ *	This symbol, if defined, indicates that the mktime routine is
+ *	available.
+ */
+#define HAS_MKTIME		/**/
+
+/* HAS_MSYNC:
+ *	This symbol, if defined, indicates that the msync system call is
+ *	available to synchronize a mapped file.
+ */
+#define HAS_MSYNC		/**/
+
+/* HAS_MUNMAP:
+ *	This symbol, if defined, indicates that the munmap system call is
+ *	available to unmap a region, usually mapped by mmap().
+ */
+#define HAS_MUNMAP		/**/
+
+/* HAS_NICE:
+ *	This symbol, if defined, indicates that the nice routine is
+ *	available.
+ */
+#define HAS_NICE		/**/
+
+/* HAS_PATHCONF:
+ *	This symbol, if defined, indicates that pathconf() is available
+ *	to determine file-system related limits and options associated
+ *	with a given filename.
+ */
+/* HAS_FPATHCONF:
+ *	This symbol, if defined, indicates that pathconf() is available
+ *	to determine file-system related limits and options associated
+ *	with a given open file descriptor.
+ */
+#define HAS_PATHCONF		/**/
+#define HAS_FPATHCONF		/**/
+
+/* HAS_PAUSE:
+ *	This symbol, if defined, indicates that the pause routine is
+ *	available to suspend a process until a signal is received.
+ */
+#define HAS_PAUSE		/**/
+
+/* HAS_PIPE:
+ *	This symbol, if defined, indicates that the pipe routine is
+ *	available to create an inter-process channel.
+ */
+#define HAS_PIPE		/**/
+
+/* HAS_POLL:
+ *	This symbol, if defined, indicates that the poll routine is
+ *	available to poll active file descriptors.  Please check I_POLL and
+ *	I_SYS_POLL to know which header should be included as well.
+ */
+#define HAS_POLL		/**/
+
+/* HAS_READDIR:
+ *	This symbol, if defined, indicates that the readdir routine is
+ *	available to read directory entries. You may have to include
+ *	<dirent.h>. See I_DIRENT.
+ */
+#define HAS_READDIR		/**/
+
+/* HAS_SEEKDIR:
+ *	This symbol, if defined, indicates that the seekdir routine is
+ *	available. You may have to include <dirent.h>. See I_DIRENT.
+ */
+#define HAS_SEEKDIR		/**/
+
+/* HAS_TELLDIR:
+ *	This symbol, if defined, indicates that the telldir routine is
+ *	available. You may have to include <dirent.h>. See I_DIRENT.
+ */
+#define HAS_TELLDIR		/**/
+
+/* HAS_REWINDDIR:
+ *	This symbol, if defined, indicates that the rewinddir routine is
+ *	available. You may have to include <dirent.h>. See I_DIRENT.
+ */
+#define HAS_REWINDDIR		/**/
+
+/* HAS_READLINK:
+ *	This symbol, if defined, indicates that the readlink routine is
+ *	available to read the value of a symbolic link.
+ */
+#define HAS_READLINK		/**/
+
+/* HAS_REGCOMP:
+ *	This symbol, if defined, indicates that the regcomp() routine is
+ *	available to do some regular patern matching (usually on POSIX.2
+ *	conforming systems).
+ */
+#define HAS_REGCOMP		/* POSIX.2 */
+
+/* HAS_RENAME:
+ *	This symbol, if defined, indicates that the rename routine is available
+ *	to rename files.  Otherwise you should do the unlink(), link(), unlink()
+ *	trick.
+ */
+#define HAS_RENAME	/**/
+
+/* HAS_RMDIR:
+ *	This symbol, if defined, indicates that the rmdir routine is
+ *	available to remove directories. Otherwise you should fork off a
+ *	new process to exec /bin/rmdir.
+ */
+#define HAS_RMDIR		/**/
+
+/* HAS_SELECT:
+ *	This symbol, if defined, indicates that the select routine is
+ *	available to select active file descriptors. If the timeout field
+ *	is used, <sys/time.h> may need to be included.
+ */
+#define HAS_SELECT	/**/
+
+/* HAS_SETEGID:
+ *	This symbol, if defined, indicates that the setegid routine is available
+ *	to change the effective gid of the current program.
+ */
+#define HAS_SETEGID		/**/
+
+/* HAS_SETEUID:
+ *	This symbol, if defined, indicates that the seteuid routine is available
+ *	to change the effective uid of the current program.
+ */
+#define HAS_SETEUID		/**/
+
+/* HAS_SETGROUPS:
+ *	This symbol, if defined, indicates that the setgroups() routine is
+ *	available to set the list of process groups.  If unavailable, multiple
+ *	groups are probably not supported.
+ */
+#define HAS_SETGROUPS		/**/
+
+/* HAS_SETLINEBUF:
+ *	This symbol, if defined, indicates that the setlinebuf routine is
+ *	available to change stderr or stdout from block-buffered or unbuffered
+ *	to a line-buffered mode.
+ */
+#define HAS_SETLINEBUF		/**/
+
+/* HAS_SETLOCALE:
+ *	This symbol, if defined, indicates that the setlocale routine is
+ *	available to handle locale-specific ctype implementations.
+ */
+#define HAS_SETLOCALE	/**/
+
+/* HAS_SETPGID:
+ *	This symbol, if defined, indicates that the setpgid(pid, gpid)
+ *	routine is available to set process group ID.
+ */
+#define HAS_SETPGID	/**/
+
+/* HAS_SETPGRP2:
+ *	This symbol, if defined, indicates that the setpgrp2() (as in DG/UX)
+ *	routine is available to set the current process group.
+ */
+/*#define HAS_SETPGRP2		/ **/
+
+/* HAS_SETPRIORITY:
+ *	This symbol, if defined, indicates that the setpriority routine is
+ *	available to set a process's priority.
+ */
+#define HAS_SETPRIORITY		/**/
+
+/* HAS_SETREGID:
+ *	This symbol, if defined, indicates that the setregid routine is
+ *	available to change the real and effective gid of the current
+ *	process.
+ */
+/* HAS_SETRESGID:
+ *	This symbol, if defined, indicates that the setresgid routine is
+ *	available to change the real, effective and saved gid of the current
+ *	process.
+ */
+#define HAS_SETREGID		/**/
+#define HAS_SETRESGID		/**/
+
+/* HAS_SETREUID:
+ *	This symbol, if defined, indicates that the setreuid routine is
+ *	available to change the real and effective uid of the current
+ *	process.
+ */
+/* HAS_SETRESUID:
+ *	This symbol, if defined, indicates that the setresuid routine is
+ *	available to change the real, effective and saved uid of the current
+ *	process.
+ */
+#define HAS_SETREUID		/**/
+#define HAS_SETRESUID		/**/
+
+/* HAS_SETRGID:
+ *	This symbol, if defined, indicates that the setrgid routine is available
+ *	to change the real gid of the current program.
+ */
+/*#define HAS_SETRGID		/ **/
+
+/* HAS_SETRUID:
+ *	This symbol, if defined, indicates that the setruid routine is available
+ *	to change the real uid of the current program.
+ */
+/*#define HAS_SETRUID		/ **/
+
+/* HAS_SETSID:
+ *	This symbol, if defined, indicates that the setsid routine is
+ *	available to set the process group ID.
+ */
+#define HAS_SETSID	/**/
+
+/* HAS_STAT:
+ *	This symbol, if defined, indicates that the stat routine is
+ *	available to get file status.
+ */
+#define HAS_STAT	/**/
+
+/* HAS_STRCHR:
+ *	This symbol is defined to indicate that the strchr()/strrchr()
+ *	functions are available for string searching. If not, try the
+ *	index()/rindex() pair.
+ */
+/* HAS_INDEX:
+ *	This symbol is defined to indicate that the index()/rindex()
+ *	functions are available for string searching.
+ */
+#define HAS_STRCHR	/**/
+/*#define HAS_INDEX	/ **/
+
+/* HAS_STRCOLL:
+ *	This symbol, if defined, indicates that the strcoll routine is
+ *	available to compare strings using collating information.
+ */
+#define HAS_STRCOLL	/**/
+
+/* HAS_STRTOD:
+ *	This symbol, if defined, indicates that the strtod routine is
+ *	available to provide better numeric string conversion than atof().
+ */
+#define HAS_STRTOD	/**/
+
+/* HAS_STRTOL:
+ *	This symbol, if defined, indicates that the strtol routine is available
+ *	to provide better numeric string conversion than atoi() and friends.
+ */
+#define HAS_STRTOL	/**/
+
+/* HAS_STRXFRM:
+ *	This symbol, if defined, indicates that the strxfrm() routine is
+ *	available to transform strings.
+ */
+#define HAS_STRXFRM	/**/
+
+/* HAS_SYMLINK:
+ *	This symbol, if defined, indicates that the symlink routine is available
+ *	to create symbolic links.
+ */
+#define HAS_SYMLINK	/**/
+
+/* HAS_SYSCALL:
+ *	This symbol, if defined, indicates that the syscall routine is
+ *	available to call arbitrary system calls. If undefined, that's tough.
+ */
+#define HAS_SYSCALL	/**/
+
+/* HAS_SYSCONF:
+ *	This symbol, if defined, indicates that sysconf() is available
+ *	to determine system related limits and options.
+ */
+#define HAS_SYSCONF	/**/
+
+/* HAS_SYSTEM:
+ *	This symbol, if defined, indicates that the system routine is
+ *	available to issue a shell command.
+ */
+#define HAS_SYSTEM	/**/
+
+/* HAS_TCGETPGRP:
+ *	This symbol, if defined, indicates that the tcgetpgrp routine is
+ *	available to get foreground process group ID.
+ */
+#define HAS_TCGETPGRP		/**/
+
+/* HAS_TCSETPGRP:
+ *	This symbol, if defined, indicates that the tcsetpgrp routine is
+ *	available to set foreground process group ID.
+ */
+#define HAS_TCSETPGRP		/**/
+
+/* HAS_TRUNCATE:
+ *	This symbol, if defined, indicates that the truncate routine is
+ *	available to truncate files.
+ */
+#define HAS_TRUNCATE	/**/
+
+/* HAS_TZNAME:
+ *	This symbol, if defined, indicates that the tzname[] array is
+ *	available to access timezone names.
+ */
+#define HAS_TZNAME		/**/
+
+/* HAS_UMASK:
+ *	This symbol, if defined, indicates that the umask routine is
+ *	available to set and get the value of the file creation mask.
+ */
+#define HAS_UMASK		/**/
+
+/* HAS_USLEEP:
+ *	This symbol, if defined, indicates that the usleep routine is
+ *	available to let the process sleep on a sub-second accuracy.
+ */
+#define HAS_USLEEP		/**/
+
+/* HAS_WAIT4:
+ *	This symbol, if defined, indicates that wait4() exists.
+ */
+#define HAS_WAIT4	/**/
+
+/* HAS_WAITPID:
+ *	This symbol, if defined, indicates that the waitpid routine is
+ *	available to wait for child process.
+ */
+#define HAS_WAITPID	/**/
+
+/* HAS_WCSTOMBS:
+ *	This symbol, if defined, indicates that the wcstombs routine is
+ *	available to convert wide character strings to multibyte strings.
+ */
+#define HAS_WCSTOMBS	/**/
+
+/* HAS_WCTOMB:
+ *	This symbol, if defined, indicates that the wctomb routine is available
+ *	to convert a wide character to a multibyte.
+ */
+#define HAS_WCTOMB		/**/
+
+/* Groups_t:
+ *	This symbol holds the type used for the second argument to
+ *	getgroups() and setgroups().  Usually, this is the same as
+ *	gidtype (gid_t) , but sometimes it isn't.
+ *	It can be int, ushort, gid_t, etc... 
+ *	It may be necessary to include <sys/types.h> to get any 
+ *	typedef'ed information.  This is only required if you have
+ *	getgroups() or setgroups()..
+ */
+#if defined(HAS_GETGROUPS) || defined(HAS_SETGROUPS)
+#define Groups_t gid_t	/* Type for 2nd arg to [sg]etgroups() */
+#endif
+
+/* I_ARPA_INET:
+ *	This symbol, if defined, indicates to the C program that it should
+ *	include <arpa/inet.h> to get inet_addr and friends declarations.
+ */
+#define	I_ARPA_INET		/**/
+
+/* I_DBM:
+ *	This symbol, if defined, indicates that <dbm.h> exists and should
+ *	be included.
+ */
+/* I_RPCSVC_DBM:
+ *	This symbol, if defined, indicates that <rpcsvc/dbm.h> exists and
+ *	should be included.
+ */
+/*#define I_DBM	/ **/
+/*#define I_RPCSVC_DBM	/ **/
+
+/* I_DLFCN:
+ *	This symbol, if defined, indicates that <dlfcn.h> exists and should
+ *	be included.
+ */
+#define I_DLFCN		/**/
+
+/* I_FCNTL:
+ *	This manifest constant tells the C program to include <fcntl.h>.
+ */
+/*#define I_FCNTL	/ **/
+
+/* I_FLOAT:
+ *	This symbol, if defined, indicates to the C program that it should
+ *	include <float.h> to get definition of symbols like DBL_MAX or
+ *	DBL_MIN, i.e. machine dependent floating point values.
+ */
+#define I_FLOAT		/**/
+
+/* I_GDBM:
+ *	This symbol, if defined, indicates that <gdbm.h> exists and should
+ *	be included.
+ */
+/*#define I_GDBM	/ **/
+
+/* I_LIMITS:
+ *	This symbol, if defined, indicates to the C program that it should
+ *	include <limits.h> to get definition of symbols like WORD_BIT or
+ *	LONG_MAX, i.e. machine dependant limitations.
+ */
+#define I_LIMITS		/**/
+
+/* I_LOCALE:
+ *	This symbol, if defined, indicates to the C program that it should
+ *	include <locale.h>.
+ */
+#define	I_LOCALE		/**/
+
+/* I_MATH:
+ *	This symbol, if defined, indicates to the C program that it should
+ *	include <math.h>.
+ */
+#define I_MATH		/**/
+
+/* I_MEMORY:
+ *	This symbol, if defined, indicates to the C program that it should
+ *	include <memory.h>.
+ */
+/*#define I_MEMORY		/ **/
+
+/* I_NETINET_IN:
+ *	This symbol, if defined, indicates to the C program that it should
+ *	include <netinet/in.h>. Otherwise, you may try <sys/in.h>.
+ */
+#define I_NETINET_IN	/**/
+
+/* I_STDDEF:
+ *	This symbol, if defined, indicates that <stddef.h> exists and should
+ *	be included.
+ */
+#define I_STDDEF	/**/
+
+/* I_STDLIB:
+ *	This symbol, if defined, indicates that <stdlib.h> exists and should
+ *	be included.
+ */
+#define I_STDLIB		/**/
+
+/* I_STRING:
+ *	This symbol, if defined, indicates to the C program that it should
+ *	include <string.h> (USG systems) instead of <strings.h> (BSD systems).
+ */
+#define I_STRING		/**/
+
+/* I_SYS_DIR:
+ *	This symbol, if defined, indicates to the C program that it should
+ *	include <sys/dir.h>.
+ */
+#define I_SYS_DIR		/**/
+
+/* I_SYS_FILE:
+ *	This symbol, if defined, indicates to the C program that it should
+ *	include <sys/file.h> to get definition of R_OK and friends.
+ */
+#define I_SYS_FILE		/**/
+
+/* I_SYS_IOCTL:
+ *	This symbol, if defined, indicates that <sys/ioctl.h> exists and should
+ *	be included. Otherwise, include <sgtty.h> or <termio.h>.
+ */
+/* I_SYS_SOCKIO:
+ *	This symbol, if defined, indicates the <sys/sockio.h> should be included
+ *	to get socket ioctl options, like SIOCATMARK.
+ */
+#define	I_SYS_IOCTL		/**/
+/*#define I_SYS_SOCKIO	/ **/
+
+/* I_SYS_NDIR:
+ *	This symbol, if defined, indicates to the C program that it should
+ *	include <sys/ndir.h>.
+ */
+/*#define I_SYS_NDIR	/ **/
+
+/* I_SYS_PARAM:
+ *	This symbol, if defined, indicates to the C program that it should
+ *	include <sys/param.h>.
+ */
+#define I_SYS_PARAM		/**/
+
+/* I_SYS_POLL:
+ *	This symbol, if defined, indicates that the program may include
+ *	<sys/poll.h>.  When I_POLL is also defined, it's probably safest
+ *	to only include <poll.h>.
+ */
+#define I_SYS_POLL	/**/
+
+/* I_SYS_RESOURCE:
+ *	This symbol, if defined, indicates to the C program that it should
+ *	include <sys/resource.h>.
+ */
+#define I_SYS_RESOURCE		/**/
+
+/* I_SYS_SELECT:
+ *	This symbol, if defined, indicates to the C program that it should
+ *	include <sys/select.h> in order to get definition of struct timeval.
+ */
+#define I_SYS_SELECT	/**/
+
+/* I_SYS_STAT:
+ *	This symbol, if defined, indicates to the C program that it should
+ *	include <sys/stat.h>.
+ */
+#define	I_SYS_STAT		/**/
+
+/* I_SYS_TIMES:
+ *	This symbol, if defined, indicates to the C program that it should
+ *	include <sys/times.h>.
+ */
+#define	I_SYS_TIMES		/**/
+
+/* I_SYS_TYPES:
+ *	This symbol, if defined, indicates to the C program that it should
+ *	include <sys/types.h>.
+ */
+#define	I_SYS_TYPES		/**/
+
+/* I_SYS_UN:
+ *	This symbol, if defined, indicates to the C program that it should
+ *	include <sys/un.h> to get UNIX domain socket definitions.
+ */
+#define I_SYS_UN		/**/
+
+/* I_SYS_WAIT:
+ *	This symbol, if defined, indicates to the C program that it should
+ *	include <sys/wait.h>.
+ */
+#define I_SYS_WAIT	/**/
+
+/* I_UNISTD:
+ *	This symbol, if defined, indicates to the C program that it should
+ *	include <unistd.h>.
+ */
+#define I_UNISTD		/**/
+
+/* I_UTIME:
+ *	This symbol, if defined, indicates to the C program that it should
+ *	include <utime.h>.
+ */
+#define I_UTIME		/**/
+
+/* I_VALUES:
+ *	This symbol, if defined, indicates to the C program that it should
+ *	include <values.h> to get definition of symbols like MINFLOAT or
+ *	MAXLONG, i.e. machine dependant limitations.  Probably, you
+ *	should use <limits.h> instead, if it is available.
+ */
+#define I_VALUES		/**/
+
+/* I_VFORK:
+ *	This symbol, if defined, indicates to the C program that it should
+ *	include vfork.h.
+ */
+/*#define I_VFORK	/ **/
+
+/* STDCHAR:
+ *	This symbol is defined to be the type of char used in stdio.h.
+ *	It has the values "unsigned char" or "char".
+ */
+#define STDCHAR char	/**/
+
+/* CAN_VAPROTO:
+ *	This variable is defined on systems supporting prototype declaration
+ *	of functions with a variable number of arguments.
+ */
+/* _V:
+ *	This macro is used to declare function parameters in prototypes for
+ *	functions with a variable number of parameters. Use double parentheses.
+ *	For example:
+ *
+ *		int printf _V((char *fmt, ...));
+ *
+ *	Remember to use the plain simple _() macro when declaring a function
+ *	with no variable number of arguments, since it might be possible to
+ *	have a non-effect _V() macro and still get prototypes via _().
+ */
+#define CAN_VAPROTO	/**/
+#ifdef CAN_VAPROTO
+#define	_V(args) args
+#else
+#define	_V(args) ()
+#endif
+
+/* INTSIZE:
+ *	This symbol contains the value of sizeof(int) so that the C
+ *	preprocessor can make decisions based on it.
+ */
+/* LONGSIZE:
+ *	This symbol contains the value of sizeof(long) so that the C
+ *	preprocessor can make decisions based on it.
+ */
+/* SHORTSIZE:
+ *	This symbol contains the value of sizeof(short) so that the C
+ *	preprocessor can make decisions based on it.
+ */
+#define INTSIZE 4		/**/
+#define LONGSIZE 8		/**/
+#define SHORTSIZE 2		/**/
+
+/* MULTIARCH:
+ *	This symbol, if defined, signifies that the build
+ *	process will produce some binary files that are going to be
+ *	used in a cross-platform environment.  This is the case for
+ *	example with the NeXT "fat" binaries that contain executables
+ *	for several CPUs.
+ */
+/*#define MULTIARCH		/ **/
+
+/* HAS_QUAD:
+ *	This symbol, if defined, tells that there's a 64-bit integer type,
+ *	Quad_t, and its unsigned counterpart, Uquad_t. QUADKIND will be one
+ *	of QUAD_IS_INT, QUAD_IS_LONG, QUAD_IS_LONG_LONG, QUAD_IS_INT64_T,
+ *	or QUAD_IS___INT64.
+ */
+#define HAS_QUAD	/**/
+#ifdef HAS_QUAD
+#   define Quad_t long	/**/
+#   define Uquad_t unsigned long	/**/
+#   define QUADKIND 2	/**/
+#   define QUAD_IS_INT	1
+#   define QUAD_IS_LONG	2
+#   define QUAD_IS_LONG_LONG	3
+#   define QUAD_IS_INT64_T	4
+#   define QUAD_IS___INT64	5
+#endif
+
+/* HAS_ACCESSX:
+ *	This symbol, if defined, indicates that the accessx routine is
+ *	available to do extended access checks.
+ */
+/*#define HAS_ACCESSX		/ **/
+
+/* HAS_EACCESS:
+ *	This symbol, if defined, indicates that the eaccess routine is
+ *	available to do extended access checks.
+ */
+#define HAS_EACCESS		/**/
+
+/* I_SYS_ACCESS:
+ *     This symbol, if defined, indicates to the C program that it should
+ *     include <sys/access.h>.
+ */
+/*#define   I_SYS_ACCESS                / **/
+
+/* I_SYS_SECURITY:
+ *     This symbol, if defined, indicates to the C program that it should
+ *     include <sys/security.h>.
+ */
+/*#define   I_SYS_SECURITY	/ **/
+
+/* MEM_ALIGNBYTES:
+ *	This symbol contains the number of bytes required to align a
+ *	double, or a long double when applicable. Usual values are 2,
+ *	4 and 8. The default is eight, for safety.  For cross-compiling
+ *  	or multiarch support, Configure will set a minimum of 8.
+ */
+#define MEM_ALIGNBYTES 8
+
+/* BYTEORDER:
+ *	This symbol holds the hexadecimal constant defined in byteorder,
+ *	in a UV, i.e. 0x1234 or 0x4321 or 0x12345678, etc...
+ *	If the compiler supports cross-compiling or multiple-architecture
+ *	binaries, use compiler-defined macros to
+ *	determine the byte order.
+ */
+#if defined(MULTIARCH)
+#  ifdef __LITTLE_ENDIAN__
+#    if LONGSIZE == 4
+#      define BYTEORDER 0x1234
+#    else
+#      if LONGSIZE == 8
+#        define BYTEORDER 0x12345678
+#      endif
+#    endif
+#  else
+#    ifdef __BIG_ENDIAN__
+#      if LONGSIZE == 4
+#        define BYTEORDER 0x4321
+#      else
+#        if LONGSIZE == 8
+#          define BYTEORDER 0x87654321
+#        endif
+#      endif
+#    endif
+#  endif
+#else
+#define BYTEORDER 0x12345678	/* large digits for MSB */
+#endif
+
+/* CHARBITS:
+ *	This symbol contains the size of a char, so that the C preprocessor
+ *	can make decisions based on it.
+ */
+#define CHARBITS 8		/**/
+
+/* CASTI32:
+ *	This symbol is defined if the C compiler can cast negative
+ *	or large floating point numbers to 32-bit ints.
+ */
+/*#define	CASTI32		/ **/
+
+/* CASTNEGFLOAT:
+ *	This symbol is defined if the C compiler can cast negative
+ *	numbers to unsigned longs, ints and shorts.
+ */
+/* CASTFLAGS:
+ *	This symbol contains flags that say what difficulties the compiler
+ *	has casting odd floating values to unsigned long:
+ *		0 = ok
+ *		1 = couldn't cast < 0
+ *		2 = couldn't cast >= 0x80000000
+ *		4 = couldn't cast in argument expression list
+ */
+#define	CASTNEGFLOAT		/**/
+#define CASTFLAGS 0		/**/
+
+/* VOID_CLOSEDIR:
+ *	This symbol, if defined, indicates that the closedir() routine
+ *	does not return a value.
+ */
+/*#define VOID_CLOSEDIR		/ **/
+
+/* HAS_FD_SET:
+ *	This symbol, when defined, indicates presence of the fd_set typedef
+ *	in <sys/types.h>
+ */
+#define HAS_FD_SET	/**/
+
+/* Gconvert:
+ *	This preprocessor macro is defined to convert a floating point
+ *	number to a string without a trailing decimal point.  This
+ *	emulates the behavior of sprintf("%g"), but is sometimes much more
+ *	efficient.  If gconvert() is not available, but gcvt() drops the
+ *	trailing decimal point, then gcvt() is used.  If all else fails,
+ *	a macro using sprintf("%g") is used. Arguments for the Gconvert
+ *	macro are: value, number of digits, whether trailing zeros should
+ *	be retained, and the output buffer.
+ *	The usual values are:
+ *		d_Gconvert='gconvert((x),(n),(t),(b))'
+ *		d_Gconvert='gcvt((x),(n),(b))'
+ *		d_Gconvert='sprintf((b),"%.*g",(n),(x))'
+ *	The last two assume trailing zeros should not be kept.
+ */
+#define Gconvert(x,n,t,b) gcvt((x),(n),(b))
+
+/* HAS_GETPAGESIZE:
+ *	This symbol, if defined, indicates that the getpagesize system call
+ *	is available to get system page size, which is the granularity of
+ *	many memory management calls.
+ */
+#define HAS_GETPAGESIZE		/**/
+
+/* HAS_GNULIBC:
+ *	This symbol, if defined, indicates to the C program that
+ *	the GNU C library is being used.  A better check is to use
+ *	the __GLIBC__ and __GLIBC_MINOR__ symbols supplied with glibc.
+ */
+#define HAS_GNULIBC  	/**/
+#if defined(HAS_GNULIBC) && !defined(_GNU_SOURCE)
+#   define _GNU_SOURCE
+#endif
+
+/* HAS_ISASCII:
+ *	This manifest constant lets the C program know that isascii
+ *	is available.
+ */
+#define HAS_ISASCII		/**/
+
+/* HAS_LCHOWN:
+ *	This symbol, if defined, indicates that the lchown routine is
+ *	available to operate on a symbolic link (instead of following the
+ *	link).
+ */
+#define HAS_LCHOWN		/**/
+
+/* HAS_OPEN3:
+ *	This manifest constant lets the C program know that the three
+ *	argument form of open(2) is available.
+ */
+#define HAS_OPEN3		/**/
+
+/* HAS_SAFE_BCOPY:
+ *	This symbol, if defined, indicates that the bcopy routine is available
+ *	to copy potentially overlapping memory blocks. Normally, you should
+ *	probably use memmove() or memcpy(). If neither is defined, roll your
+ *	own version.
+ */
+/*#define HAS_SAFE_BCOPY	/ **/
+
+/* HAS_SAFE_MEMCPY:
+ *	This symbol, if defined, indicates that the memcpy routine is available
+ *	to copy potentially overlapping memory blocks.  If you need to
+ *	copy overlapping memory blocks, you should check HAS_MEMMOVE and
+ *	use memmove() instead, if available.
+ */
+/*#define HAS_SAFE_MEMCPY	/ **/
+
+/* HAS_SANE_MEMCMP:
+ *	This symbol, if defined, indicates that the memcmp routine is available
+ *	and can be used to compare relative magnitudes of chars with their high
+ *	bits set.  If it is not defined, roll your own version.
+ */
+#define HAS_SANE_MEMCMP	/**/
+
+/* HAS_SIGACTION:
+ *	This symbol, if defined, indicates that Vr4's sigaction() routine
+ *	is available.
+ */
+#define HAS_SIGACTION	/**/
+
+/* HAS_SIGINFO_SI_ERRNO:
+ *	This symbol, if defined, indicates that siginfo_t has the
+ *	si_errno member
+ */
+/* HAS_SIGINFO_SI_PID:
+ *	This symbol, if defined, indicates that siginfo_t has the
+ *	si_pid member
+ */
+/* HAS_SIGINFO_SI_UID:
+ *	This symbol, if defined, indicates that siginfo_t has the
+ *	si_uid member
+ */
+/* HAS_SIGINFO_SI_ADDR:
+ *	This symbol, if defined, indicates that siginfo_t has the
+ *	si_addr member
+ */
+/* HAS_SIGINFO_SI_STATUS:
+ *	This symbol, if defined, indicates that siginfo_t has the
+ *	si_status member
+ */
+/* HAS_SIGINFO_SI_BAND:
+ *	This symbol, if defined, indicates that siginfo_t has the
+ *	si_band member
+ */
+/* HAS_SIGINFO_SI_VALUE:
+ *	This symbol, if defined, indicates that siginfo_t has the
+ *	si_value member
+ */
+#define	HAS_SIGINFO_SI_ERRNO	/**/
+#define	HAS_SIGINFO_SI_PID	/**/
+#define	HAS_SIGINFO_SI_UID	/**/
+#define	HAS_SIGINFO_SI_ADDR	/**/
+#define	HAS_SIGINFO_SI_STATUS	/**/
+#define	HAS_SIGINFO_SI_BAND	/**/
+#define	HAS_SIGINFO_SI_VALUE	/**/
+
+/* HAS_SIGSETJMP:
+ *	This variable indicates to the C program that the sigsetjmp()
+ *	routine is available to save the calling process's registers
+ *	and stack environment for later use by siglongjmp(), and
+ *	to optionally save the process's signal mask.  See
+ *	Sigjmp_buf, Sigsetjmp, and Siglongjmp.
+ */
+/* Sigjmp_buf:
+ *	This is the buffer type to be used with Sigsetjmp and Siglongjmp.
+ */
+/* Sigsetjmp:
+ *	This macro is used in the same way as sigsetjmp(), but will invoke
+ *	traditional setjmp() if sigsetjmp isn't available.
+ *	See HAS_SIGSETJMP.
+ */
+/* Siglongjmp:
+ *	This macro is used in the same way as siglongjmp(), but will invoke
+ *	traditional longjmp() if siglongjmp isn't available.
+ *	See HAS_SIGSETJMP.
+ */
+#define HAS_SIGSETJMP	/**/
+#ifdef HAS_SIGSETJMP
+#define Sigjmp_buf sigjmp_buf
+#define Sigsetjmp(buf,save_mask) sigsetjmp((buf),(save_mask))
+#define Siglongjmp(buf,retval) siglongjmp((buf),(retval))
+#else
+#define Sigjmp_buf jmp_buf
+#define Sigsetjmp(buf,save_mask) setjmp((buf))
+#define Siglongjmp(buf,retval) longjmp((buf),(retval))
+#endif
+
+/* HAS_STATIC_INLINE:
+ *	This symbol, if defined, indicates that the C compiler supports
+ *	C99-style static inline.  That is, the function can't be called
+ *	from another translation unit.
+ */
+/* PERL_STATIC_INLINE:
+ *	This symbol gives the best-guess incantation to use for static
+ *	inline functions.  If HAS_STATIC_INLINE is defined, this will
+ *	give C99-style inline.  If HAS_STATIC_INLINE is not defined,
+ *	this will give a plain 'static'.  It will always be defined
+ *	to something that gives static linkage.
+ *	Possibilities include
+ *		static inline       (c99)
+ *		static __inline__   (gcc -ansi)
+ *		static __inline     (MSVC)
+ *		static _inline      (older MSVC)
+ *		static              (c89 compilers)
+ */
+#define HAS_STATIC_INLINE				/**/
+#define PERL_STATIC_INLINE static __inline__	/**/
+
+/* USE_STDIO_PTR:
+ *	This symbol is defined if the _ptr and _cnt fields (or similar)
+ *	of the stdio FILE structure can be used to access the stdio buffer
+ *	for a file handle.  If this is defined, then the FILE_ptr(fp)
+ *	and FILE_cnt(fp) macros will also be defined and should be used
+ *	to access these fields.
+ */
+/* FILE_ptr:
+ *	This macro is used to access the _ptr field (or equivalent) of the
+ *	FILE structure pointed to by its argument. This macro will always be
+ *	defined if USE_STDIO_PTR is defined.
+ */
+/* STDIO_PTR_LVALUE:
+ *	This symbol is defined if the FILE_ptr macro can be used as an
+ *	lvalue.
+ */
+/* FILE_cnt:
+ *	This macro is used to access the _cnt field (or equivalent) of the
+ *	FILE structure pointed to by its argument. This macro will always be
+ *	defined if USE_STDIO_PTR is defined.
+ */
+/* STDIO_CNT_LVALUE:
+ *	This symbol is defined if the FILE_cnt macro can be used as an
+ *	lvalue.
+ */
+/* STDIO_PTR_LVAL_SETS_CNT:
+ *	This symbol is defined if using the FILE_ptr macro as an lvalue
+ *	to increase the pointer by n has the side effect of decreasing the
+ *	value of File_cnt(fp) by n.
+ */
+/* STDIO_PTR_LVAL_NOCHANGE_CNT:
+ *	This symbol is defined if using the FILE_ptr macro as an lvalue
+ *	to increase the pointer by n leaves File_cnt(fp) unchanged.
+ */
+#define USE_STDIO_PTR 	/**/
+#ifdef USE_STDIO_PTR
+#define FILE_ptr(fp)	((fp)->_IO_read_ptr)
+#define STDIO_PTR_LVALUE 		/**/
+#define FILE_cnt(fp)	((fp)->_IO_read_end - (fp)->_IO_read_ptr)
+/*#define STDIO_CNT_LVALUE 		/ **/
+#define STDIO_PTR_LVAL_SETS_CNT	/**/
+/*#define STDIO_PTR_LVAL_NOCHANGE_CNT	/ **/
+#endif
+
+/* USE_STDIO_BASE:
+ *	This symbol is defined if the _base field (or similar) of the
+ *	stdio FILE structure can be used to access the stdio buffer for
+ *	a file handle.  If this is defined, then the FILE_base(fp) macro
+ *	will also be defined and should be used to access this field.
+ *	Also, the FILE_bufsiz(fp) macro will be defined and should be used
+ *	to determine the number of bytes in the buffer.  USE_STDIO_BASE
+ *	will never be defined unless USE_STDIO_PTR is.
+ */
+/* FILE_base:
+ *	This macro is used to access the _base field (or equivalent) of the
+ *	FILE structure pointed to by its argument. This macro will always be
+ *	defined if USE_STDIO_BASE is defined.
+ */
+/* FILE_bufsiz:
+ *	This macro is used to determine the number of bytes in the I/O
+ *	buffer pointed to by _base field (or equivalent) of the FILE
+ *	structure pointed to its argument. This macro will always be defined
+ *	if USE_STDIO_BASE is defined.
+ */
+#define USE_STDIO_BASE 	/**/
+#ifdef USE_STDIO_BASE
+#define FILE_base(fp)	((fp)->_IO_read_base)
+#define FILE_bufsiz(fp)	((fp)->_IO_read_end - (fp)->_IO_read_base)
+#endif
+
+/* HAS_VPRINTF:
+ *	This symbol, if defined, indicates that the vprintf routine is available
+ *	to printf with a pointer to an argument list.  If unavailable, you
+ *	may need to write your own, probably in terms of _doprnt().
+ */
+/* USE_CHAR_VSPRINTF:
+ *	This symbol is defined if this system has vsprintf() returning type
+ *	(char*).  The trend seems to be to declare it as "int vsprintf()".  It
+ *	is up to the package author to declare vsprintf correctly based on the
+ *	symbol.
+ */
+#define HAS_VPRINTF	/**/
+/*#define USE_CHAR_VSPRINTF 	/ **/
+
+/* DOUBLESIZE:
+ *	This symbol contains the size of a double, so that the C preprocessor
+ *	can make decisions based on it.
+ */
+#define DOUBLESIZE 8		/**/
+
+/* I_TIME:
+ *	This symbol, if defined, indicates to the C program that it should
+ *	include <time.h>.
+ */
+/* I_SYS_TIME:
+ *	This symbol, if defined, indicates to the C program that it should
+ *	include <sys/time.h>.
+ */
+/* I_SYS_TIME_KERNEL:
+ *	This symbol, if defined, indicates to the C program that it should
+ *	include <sys/time.h> with KERNEL defined.
+ */
+/* HAS_TM_TM_ZONE:
+ *	This symbol, if defined, indicates to the C program that
+ *	the struct tm has a tm_zone field.
+ */
+/* HAS_TM_TM_GMTOFF:
+ *	This symbol, if defined, indicates to the C program that
+ *	the struct tm has a tm_gmtoff field.
+ */
+#define I_TIME		/**/
+#define I_SYS_TIME		/**/
+/*#define I_SYS_TIME_KERNEL		/ **/
+#define HAS_TM_TM_ZONE		/**/
+#define HAS_TM_TM_GMTOFF		/**/
+
+/* VAL_O_NONBLOCK:
+ *	This symbol is to be used during open() or fcntl(F_SETFL) to turn on
+ *	non-blocking I/O for the file descriptor. Note that there is no way
+ *	back, i.e. you cannot turn it blocking again this way. If you wish to
+ *	alternatively switch between blocking and non-blocking, use the
+ *	ioctl(FIOSNBIO) call instead, but that is not supported by all devices.
+ */
+/* VAL_EAGAIN:
+ *	This symbol holds the errno error code set by read() when no data was
+ *	present on the non-blocking file descriptor.
+ */
+/* RD_NODATA:
+ *	This symbol holds the return code from read() when no data is present
+ *	on the non-blocking file descriptor. Be careful! If EOF_NONBLOCK is
+ *	not defined, then you can't distinguish between no data and EOF by
+ *	issuing a read(). You'll have to find another way to tell for sure!
+ */
+/* EOF_NONBLOCK:
+ *	This symbol, if defined, indicates to the C program that a read() on
+ *	a non-blocking file descriptor will return 0 on EOF, and not the value
+ *	held in RD_NODATA (-1 usually, in that case!).
+ */
+#define VAL_O_NONBLOCK O_NONBLOCK
+#define VAL_EAGAIN EAGAIN
+#define RD_NODATA -1
+#define EOF_NONBLOCK
+
+/* PTRSIZE:
+ *	This symbol contains the size of a pointer, so that the C preprocessor
+ *	can make decisions based on it.  It will be sizeof(void *) if
+ *	the compiler supports (void *); otherwise it will be
+ *	sizeof(char *).
+ */
+#define PTRSIZE 8		/**/
+
+/* Drand01:
+ *	This macro is to be used to generate uniformly distributed
+ *	random numbers over the range [0., 1.[.  You may have to supply
+ *	an 'extern double drand48();' in your program since SunOS 4.1.3
+ *	doesn't provide you with anything relevant in its headers.
+ *	See HAS_DRAND48_PROTO.
+ */
+/* Rand_seed_t:
+ *	This symbol defines the type of the argument of the
+ *	random seed function.
+ */
+/* seedDrand01:
+ *	This symbol defines the macro to be used in seeding the
+ *	random number generator (see Drand01).
+ */
+/* RANDBITS:
+ *	This symbol indicates how many bits are produced by the
+ *	function used to generate normalized random numbers.
+ *	Values include 15, 16, 31, and 48.
+ */
+#define Drand01()		Perl_drand48()		/**/
+#define Rand_seed_t		U32		/**/
+#define seedDrand01(x)	Perl_drand48_init((Rand_seed_t)x)	/**/
+#define RANDBITS		48		/**/
+
+/* SSize_t:
+ *	This symbol holds the type used by functions that return
+ *	a count of bytes or an error condition.  It must be a signed type.
+ *	It is usually ssize_t, but may be long or int, etc.
+ *	It may be necessary to include <sys/types.h> or <unistd.h>
+ *	to get any typedef'ed information.
+ *	We will pick a type such that sizeof(SSize_t) == sizeof(Size_t).
+ */
+#define SSize_t ssize_t	 /* signed count of bytes */
+
+/* EBCDIC:
+ *	This symbol, if defined, indicates that this system uses
+ *	EBCDIC encoding.
+ */
+/*#define	EBCDIC 		/ **/
+
+/* ARCHLIB:
+ *	This variable, if defined, holds the name of the directory in
+ *	which the user wants to put architecture-dependent public
+ *	library files for perl5.  It is most often a local directory
+ *	such as /usr/local/lib.  Programs using this variable must be
+ *	prepared to deal with filename expansion.  If ARCHLIB is the
+ *	same as PRIVLIB, it is not defined, since presumably the
+ *	program already searches PRIVLIB.
+ */
+/* ARCHLIB_EXP:
+ *	This symbol contains the ~name expanded version of ARCHLIB, to be used
+ *	in programs that are not prepared to deal with ~ expansion at run-time.
+ */
+#define ARCHLIB "/home/git/binary-com/perl/lib/5.24.1/x86_64-linux"		/**/
+#define ARCHLIB_EXP "/home/git/binary-com/perl/lib/5.24.1/x86_64-linux"		/**/
+
+/* BIN:
+ *	This symbol holds the path of the bin directory where the package will
+ *	be installed. Program must be prepared to deal with ~name substitution.
+ */
+/* BIN_EXP:
+ *	This symbol is the filename expanded version of the BIN symbol, for
+ *	programs that do not want to deal with that at run-time.
+ */
+/* PERL_RELOCATABLE_INC:
+ *	This symbol, if defined, indicates that we'd like to relocate entries
+ *	in @INC at run time based on the location of the perl binary.
+ */
+#define BIN "/home/git/binary-com/perl/bin"	/**/
+#define BIN_EXP "/home/git/binary-com/perl/bin"	/**/
+#define PERL_RELOCATABLE_INC "undef" 		/**/
+
+/* PERL_INC_VERSION_LIST:
+ *	This variable specifies the list of subdirectories in over
+ *	which perl.c:incpush() and lib/lib.pm will automatically
+ *	search when adding directories to @INC, in a format suitable
+ *	for a C initialization string.  See the inc_version_list entry
+ *	in Porting/Glossary for more details.
+ */
+/*#define PERL_INC_VERSION_LIST 0		/ **/
+
+/* INSTALL_USR_BIN_PERL:
+ *	This symbol, if defined, indicates that Perl is to be installed
+ * 	also as /usr/bin/perl.
+ */
+/*#define INSTALL_USR_BIN_PERL	/ **/
+
+/* PERL_OTHERLIBDIRS:
+ *	This variable contains a colon-separated set of paths for the perl
+ *	binary to search for additional library files or modules.
+ *	These directories will be tacked to the end of @INC.
+ *	Perl will automatically search below each path for version-
+ *	and architecture-specific directories.  See PERL_INC_VERSION_LIST
+ *	for more details.
+ */
+#define PERL_OTHERLIBDIRS "/home/git/regentmarkets/cpan/local/lib/perl5/"		/**/
+
+/* PRIVLIB:
+ *	This symbol contains the name of the private library for this package.
+ *	The library is private in the sense that it needn't be in anyone's
+ *	execution path, but it should be accessible by the world.  The program
+ *	should be prepared to do ~ expansion.
+ */
+/* PRIVLIB_EXP:
+ *	This symbol contains the ~name expanded version of PRIVLIB, to be used
+ *	in programs that are not prepared to deal with ~ expansion at run-time.
+ */
+#define PRIVLIB "/home/git/binary-com/perl/lib/5.24.1"		/**/
+#define PRIVLIB_EXP "/home/git/binary-com/perl/lib/5.24.1"		/**/
+
+/* SITEARCH:
+ *	This symbol contains the name of the private library for this package.
+ *	The library is private in the sense that it needn't be in anyone's
+ *	execution path, but it should be accessible by the world.  The program
+ *	should be prepared to do ~ expansion.
+ *	The standard distribution will put nothing in this directory.
+ *	After perl has been installed, users may install their own local
+ *	architecture-dependent modules in this directory with
+ *		MakeMaker Makefile.PL
+ *	or equivalent.  See INSTALL for details.
+ */
+/* SITEARCH_EXP:
+ *	This symbol contains the ~name expanded version of SITEARCH, to be used
+ *	in programs that are not prepared to deal with ~ expansion at run-time.
+ */
+#define SITEARCH "/home/git/binary-com/perl/lib/site_perl/5.24.1/x86_64-linux"		/**/
+#define SITEARCH_EXP "/home/git/binary-com/perl/lib/site_perl/5.24.1/x86_64-linux"		/**/
+
+/* SITELIB:
+ *	This symbol contains the name of the private library for this package.
+ *	The library is private in the sense that it needn't be in anyone's
+ *	execution path, but it should be accessible by the world.  The program
+ *	should be prepared to do ~ expansion.
+ *	The standard distribution will put nothing in this directory.
+ *	After perl has been installed, users may install their own local
+ *	architecture-independent modules in this directory with
+ *		MakeMaker Makefile.PL
+ *	or equivalent.  See INSTALL for details.
+ */
+/* SITELIB_EXP:
+ *	This symbol contains the ~name expanded version of SITELIB, to be used
+ *	in programs that are not prepared to deal with ~ expansion at run-time.
+ */
+/* SITELIB_STEM:
+ *	This define is SITELIB_EXP with any trailing version-specific component
+ *	removed.  The elements in inc_version_list (inc_version_list.U) can
+ *	be tacked onto this variable to generate a list of directories to search.
+ */
+#define SITELIB "/home/git/binary-com/perl/lib/site_perl/5.24.1"		/**/
+#define SITELIB_EXP "/home/git/binary-com/perl/lib/site_perl/5.24.1"		/**/
+#define SITELIB_STEM "/home/git/binary-com/perl/lib/site_perl"		/**/
+
+/* PERL_VENDORARCH:
+ *	If defined, this symbol contains the name of a private library.
+ *	The library is private in the sense that it needn't be in anyone's
+ *	execution path, but it should be accessible by the world.
+ *	It may have a ~ on the front.
+ *	The standard distribution will put nothing in this directory.
+ *	Vendors who distribute perl may wish to place their own
+ *	architecture-dependent modules and extensions in this directory with
+ *		MakeMaker Makefile.PL INSTALLDIRS=vendor
+ *	or equivalent.  See INSTALL for details.
+ */
+/* PERL_VENDORARCH_EXP:
+ *	This symbol contains the ~name expanded version of PERL_VENDORARCH, to be used
+ *	in programs that are not prepared to deal with ~ expansion at run-time.
+ */
+/*#define PERL_VENDORARCH ""		/ **/
+/*#define PERL_VENDORARCH_EXP ""		/ **/
+
+/* PERL_VENDORLIB_EXP:
+ *	This symbol contains the ~name expanded version of VENDORLIB, to be used
+ *	in programs that are not prepared to deal with ~ expansion at run-time.
+ */
+/* PERL_VENDORLIB_STEM:
+ *	This define is PERL_VENDORLIB_EXP with any trailing version-specific component
+ *	removed.  The elements in inc_version_list (inc_version_list.U) can
+ *	be tacked onto this variable to generate a list of directories to search.
+ */
+/*#define PERL_VENDORLIB_EXP ""		/ **/
+/*#define PERL_VENDORLIB_STEM ""		/ **/
+
+/* OSNAME:
+ *	This symbol contains the name of the operating system, as determined
+ *	by Configure.  You shouldn't rely on it too much; the specific
+ *	feature tests from Configure are generally more reliable.
+ */
+/* OSVERS:
+ *	This symbol contains the version of the operating system, as determined
+ *	by Configure.  You shouldn't rely on it too much; the specific
+ *	feature tests from Configure are generally more reliable.
+ */
+#define OSNAME "linux"		/**/
+#define OSVERS "4.9.7-040907-lowlatency"		/**/
+
+/* CAT2:
+ *	This macro concatenates 2 tokens together.
+ */
+/* STRINGIFY:
+ *	This macro surrounds its token with double quotes.
+ */
+#if 42 == 1
+#define CAT2(a,b)	a/**/b
+#define STRINGIFY(a)	"a"
+#endif
+#if 42 == 42
+#define PeRl_CaTiFy(a, b)	a ## b
+#define PeRl_StGiFy(a)	#a
+#define CAT2(a,b)	PeRl_CaTiFy(a,b)
+#define StGiFy(a)	PeRl_StGiFy(a)
+#define STRINGIFY(a)	PeRl_StGiFy(a)
+#endif
+#if 42 != 1 && 42 != 42
+#include "Bletch: How does this C preprocessor concatenate tokens?"
+#endif
+
+/* CPPSTDIN:
+ *	This symbol contains the first part of the string which will invoke
+ *	the C preprocessor on the standard input and produce to standard
+ *	output.	 Typical value of "cc -E" or "/lib/cpp", but it can also
+ *	call a wrapper. See CPPRUN.
+ */
+/* CPPMINUS:
+ *	This symbol contains the second part of the string which will invoke
+ *	the C preprocessor on the standard input and produce to standard
+ *	output.  This symbol will have the value "-" if CPPSTDIN needs a minus
+ *	to specify standard input, otherwise the value is "".
+ */
+/* CPPRUN:
+ *	This symbol contains the string which will invoke a C preprocessor on
+ *	the standard input and produce to standard output. It needs to end
+ *	with CPPLAST, after all other preprocessor flags have been specified.
+ *	The main difference with CPPSTDIN is that this program will never be a
+ *	pointer to a shell wrapper, i.e. it will be empty if no preprocessor is
+ *	available directly to the user. Note that it may well be different from
+ *	the preprocessor used to compile the C program.
+ */
+/* CPPLAST:
+ *	This symbol is intended to be used along with CPPRUN in the same manner
+ *	symbol CPPMINUS is used with CPPSTDIN. It contains either "-" or "".
+ */
+#define CPPSTDIN "cc  -E"
+#define CPPMINUS "-"
+#define CPPRUN "cc  -E"
+#define CPPLAST "-"
+
+/* HAS_ACCESS:
+ *	This manifest constant lets the C program know that the access()
+ *	system call is available to check for accessibility using real UID/GID.
+ *	(always present on UNIX.)
+ */
+#define HAS_ACCESS		/**/
+
+/* HASATTRIBUTE_FORMAT:
+ *	Can we handle GCC attribute for checking printf-style formats
+ */
+/* PRINTF_FORMAT_NULL_OK:
+ *	Allows __printf__ format to be null when checking printf-style
+ */
+/* HASATTRIBUTE_MALLOC:
+ *	Can we handle GCC attribute for malloc-style functions.
+ */
+/* HASATTRIBUTE_NONNULL:
+ *	Can we handle GCC attribute for nonnull function parms.
+ */
+/* HASATTRIBUTE_NORETURN:
+ *	Can we handle GCC attribute for functions that do not return
+ */
+/* HASATTRIBUTE_PURE:
+ *	Can we handle GCC attribute for pure functions
+ */
+/* HASATTRIBUTE_UNUSED:
+ *	Can we handle GCC attribute for unused variables and arguments
+ */
+/* HASATTRIBUTE_DEPRECATED:
+ *	Can we handle GCC attribute for marking deprecated APIs
+ */
+/* HASATTRIBUTE_WARN_UNUSED_RESULT:
+ *	Can we handle GCC attribute for warning on unused results
+ */
+#define HASATTRIBUTE_DEPRECATED	/**/
+#define HASATTRIBUTE_FORMAT	/**/
+/*#define PRINTF_FORMAT_NULL_OK	/ **/
+#define HASATTRIBUTE_NORETURN	/**/
+#define HASATTRIBUTE_MALLOC	/**/
+#define HASATTRIBUTE_NONNULL	/**/
+#define HASATTRIBUTE_PURE	/**/
+#define HASATTRIBUTE_UNUSED	/**/
+#define HASATTRIBUTE_WARN_UNUSED_RESULT	/**/
+
+/* HAS_BACKTRACE:
+ *	This symbol, if defined, indicates that the backtrace() routine is
+ *	available to get a stack trace.  The <execinfo.h> header must be
+ *	included to use this routine.
+ */
+#define HAS_BACKTRACE	/**/
+
+/* HASCONST:
+ *	This symbol, if defined, indicates that this C compiler knows about
+ *	the const type. There is no need to actually test for that symbol
+ *	within your programs. The mere use of the "const" keyword will
+ *	trigger the necessary tests.
+ */
+#define HASCONST	/**/
+#ifndef HASCONST
+#define const
+#endif
+
+/* HAS_CSH:
+ *	This symbol, if defined, indicates that the C-shell exists.
+ */
+/* CSH:
+ *	This symbol, if defined, contains the full pathname of csh.
+ */
+/*#define HAS_CSH		/ **/
+#ifdef HAS_CSH
+#define CSH "csh"	/**/
+#endif
+
+/* HAS_DLADDR:
+ *	This symbol, if defined, indicates that the dladdr() routine is
+ *	available to query dynamic linker information for an address.
+ *	The <dlfcn.h> header must be included to use this routine.
+ */
+#define HAS_DLADDR	/**/
+
+/* SETUID_SCRIPTS_ARE_SECURE_NOW:
+ *	This symbol, if defined, indicates that the bug that prevents
+ *	setuid scripts from being secure is not present in this kernel.
+ */
+/* DOSUID:
+ *	This symbol, if defined, indicates that the C program should
+ *	check the script that it is executing for setuid/setgid bits, and
+ *	attempt to emulate setuid/setgid on systems that have disabled
+ *	setuid #! scripts because the kernel can't do it securely.
+ *	It is up to the package designer to make sure that this emulation
+ *	is done securely.  Among other things, it should do an fstat on
+ *	the script it just opened to make sure it really is a setuid/setgid
+ *	script, it should make sure the arguments passed correspond exactly
+ *	to the argument on the #! line, and it should not trust any
+ *	subprocesses to which it must pass the filename rather than the
+ *	file descriptor of the script to be executed.
+ */
+/*#define SETUID_SCRIPTS_ARE_SECURE_NOW	/ **/
+/*#define DOSUID		/ **/
+
+/* HAS_ENDGRENT:
+ *	This symbol, if defined, indicates that the getgrent routine is
+ *	available for finalizing sequential access of the group database.
+ */
+#define HAS_ENDGRENT		/**/
+
+/* HAS_ENDHOSTENT:
+ *	This symbol, if defined, indicates that the endhostent() routine is
+ *	available to close whatever was being used for host queries.
+ */
+#define HAS_ENDHOSTENT		/**/
+
+/* HAS_ENDNETENT:
+ *	This symbol, if defined, indicates that the endnetent() routine is
+ *	available to close whatever was being used for network queries.
+ */
+#define HAS_ENDNETENT		/**/
+
+/* HAS_ENDPROTOENT:
+ *	This symbol, if defined, indicates that the endprotoent() routine is
+ *	available to close whatever was being used for protocol queries.
+ */
+#define HAS_ENDPROTOENT		/**/
+
+/* HAS_ENDPWENT:
+ *	This symbol, if defined, indicates that the getgrent routine is
+ *	available for finalizing sequential access of the passwd database.
+ */
+#define HAS_ENDPWENT		/**/
+
+/* HAS_ENDSERVENT:
+ *	This symbol, if defined, indicates that the endservent() routine is
+ *	available to close whatever was being used for service queries.
+ */
+#define HAS_ENDSERVENT		/**/
+
+/* FLEXFILENAMES:
+ *	This symbol, if defined, indicates that the system supports filenames
+ *	longer than 14 characters.
+ */
+#define	FLEXFILENAMES		/**/
+
+/* HAS_GETGRENT:
+ *	This symbol, if defined, indicates that the getgrent routine is
+ *	available for sequential access of the group database.
+ */
+#define HAS_GETGRENT		/**/
+
+/* HAS_GETHOSTBYADDR:
+ *	This symbol, if defined, indicates that the gethostbyaddr() routine is
+ *	available to look up hosts by their IP addresses.
+ */
+#define HAS_GETHOSTBYADDR		/**/
+
+/* HAS_GETHOSTBYNAME:
+ *	This symbol, if defined, indicates that the gethostbyname() routine is
+ *	available to look up host names in some data base or other.
+ */
+#define HAS_GETHOSTBYNAME		/**/
+
+/* HAS_GETHOSTENT:
+ *	This symbol, if defined, indicates that the gethostent() routine is
+ *	available to look up host names in some data base or another.
+ */
+#define HAS_GETHOSTENT		/**/
+
+/* HAS_GETHOSTNAME:
+ *	This symbol, if defined, indicates that the C program may use the
+ *	gethostname() routine to derive the host name.  See also HAS_UNAME
+ *	and PHOSTNAME.
+ */
+/* HAS_UNAME:
+ *	This symbol, if defined, indicates that the C program may use the
+ *	uname() routine to derive the host name.  See also HAS_GETHOSTNAME
+ *	and PHOSTNAME.
+ */
+/* PHOSTNAME:
+ *	This symbol, if defined, indicates the command to feed to the
+ *	popen() routine to derive the host name.  See also HAS_GETHOSTNAME
+ *	and HAS_UNAME.	Note that the command uses a fully qualified path,
+ *	so that it is safe even if used by a process with super-user
+ *	privileges.
+ */
+/* HAS_PHOSTNAME:
+ *	This symbol, if defined, indicates that the C program may use the
+ *	contents of PHOSTNAME as a command to feed to the popen() routine
+ *	to derive the host name.
+ */
+#define HAS_GETHOSTNAME	/**/
+#define HAS_UNAME		/**/
+/*#define HAS_PHOSTNAME	/ **/
+#ifdef HAS_PHOSTNAME
+#define PHOSTNAME "/bin/hostname"	/* How to get the host name */
+#endif
+
+/* HAS_GETNETBYADDR:
+ *	This symbol, if defined, indicates that the getnetbyaddr() routine is
+ *	available to look up networks by their IP addresses.
+ */
+#define HAS_GETNETBYADDR		/**/
+
+/* HAS_GETNETBYNAME:
+ *	This symbol, if defined, indicates that the getnetbyname() routine is
+ *	available to look up networks by their names.
+ */
+#define HAS_GETNETBYNAME		/**/
+
+/* HAS_GETNETENT:
+ *	This symbol, if defined, indicates that the getnetent() routine is
+ *	available to look up network names in some data base or another.
+ */
+#define HAS_GETNETENT		/**/
+
+/* HAS_GETPROTOENT:
+ *	This symbol, if defined, indicates that the getprotoent() routine is
+ *	available to look up protocols in some data base or another.
+ */
+#define HAS_GETPROTOENT		/**/
+
+/* HAS_GETPGRP:
+ *	This symbol, if defined, indicates that the getpgrp routine is
+ *	available to get the current process group.
+ */
+/* USE_BSD_GETPGRP:
+ *	This symbol, if defined, indicates that getpgrp needs one
+ *	arguments whereas USG one needs none.
+ */
+#define HAS_GETPGRP		/**/
+/*#define USE_BSD_GETPGRP	/ **/
+
+/* HAS_GETPROTOBYNAME:
+ *	This symbol, if defined, indicates that the getprotobyname()
+ *	routine is available to look up protocols by their name.
+ */
+/* HAS_GETPROTOBYNUMBER:
+ *	This symbol, if defined, indicates that the getprotobynumber()
+ *	routine is available to look up protocols by their number.
+ */
+#define HAS_GETPROTOBYNAME		/**/
+#define HAS_GETPROTOBYNUMBER		/**/
+
+/* HAS_GETPWENT:
+ *	This symbol, if defined, indicates that the getpwent routine is
+ *	available for sequential access of the passwd database.
+ *	If this is not available, the older getpw() function may be available.
+ */
+#define HAS_GETPWENT		/**/
+
+/* HAS_GETSERVENT:
+ *	This symbol, if defined, indicates that the getservent() routine is
+ *	available to look up network services in some data base or another.
+ */
+#define HAS_GETSERVENT		/**/
+
+/* HAS_GETSERVBYNAME:
+ *	This symbol, if defined, indicates that the getservbyname()
+ *	routine is available to look up services by their name.
+ */
+/* HAS_GETSERVBYPORT:
+ *	This symbol, if defined, indicates that the getservbyport()
+ *	routine is available to look up services by their port.
+ */
+#define HAS_GETSERVBYNAME		/**/
+#define HAS_GETSERVBYPORT		/**/
+
+/* HAS_HTONL:
+ *	This symbol, if defined, indicates that the htonl() routine (and
+ *	friends htons() ntohl() ntohs()) are available to do network
+ *	order byte swapping.
+ */
+/* HAS_HTONS:
+ *	This symbol, if defined, indicates that the htons() routine (and
+ *	friends htonl() ntohl() ntohs()) are available to do network
+ *	order byte swapping.
+ */
+/* HAS_NTOHL:
+ *	This symbol, if defined, indicates that the ntohl() routine (and
+ *	friends htonl() htons() ntohs()) are available to do network
+ *	order byte swapping.
+ */
+/* HAS_NTOHS:
+ *	This symbol, if defined, indicates that the ntohs() routine (and
+ *	friends htonl() htons() ntohl()) are available to do network
+ *	order byte swapping.
+ */
+#define HAS_HTONL		/**/
+#define HAS_HTONS		/**/
+#define HAS_NTOHL		/**/
+#define HAS_NTOHS		/**/
+
+/* HAS_LONG_DOUBLE:
+ *	This symbol will be defined if the C compiler supports long
+ *	doubles.
+ */
+/* LONG_DOUBLESIZE:
+ *	This symbol contains the size of a long double, so that the
+ *	C preprocessor can make decisions based on it.  It is only
+ *	defined if the system supports long doubles.  Note that this
+ *	is sizeof(long double), which may include unused bytes.
+ */
+/* HAS_LDEXPL:
+ *	This symbol, if defined, indicates that the ldexpl routine is
+ *	available to shift a long double floating-point number
+ *	by an integral power of 2.
+ */
+/* LONG_DOUBLEKIND:
+ *	LONG_DOUBLEKIND will be one of
+ *	LONG_DOUBLE_IS_DOUBLE
+ *	LONG_DOUBLE_IS_IEEE_754_128_BIT_LITTLE_ENDIAN
+ *	LONG_DOUBLE_IS_IEEE_754_128_BIT_BIG_ENDIAN
+ *	LONG_DOUBLE_IS_X86_80_BIT_LITTLE_ENDIAN
+ *	LONG_DOUBLE_IS_X86_80_BIT_BIG_ENDIAN
+ *	LONG_DOUBLE_IS_DOUBLEDOUBLE_128_BIT_LE_LE
+ *	LONG_DOUBLE_IS_DOUBLEDOUBLE_128_BIT_BE_BE
+ *	LONG_DOUBLE_IS_DOUBLEDOUBLE_128_BIT_LE_BE
+ *	LONG_DOUBLE_IS_DOUBLEDOUBLE_128_BIT_BE_LE
+ *	LONG_DOUBLE_IS_UNKNOWN_FORMAT
+ *	It is only defined if the system supports long doubles.
+ */
+#define  HAS_LDEXPL		/**/
+#define HAS_LONG_DOUBLE		/**/
+#ifdef HAS_LONG_DOUBLE
+#define LONG_DOUBLESIZE 16		/**/
+#define LONG_DOUBLEKIND 3		/**/
+#define LONG_DOUBLE_IS_DOUBLE				0
+#define LONG_DOUBLE_IS_IEEE_754_128_BIT_LITTLE_ENDIAN	1
+#define LONG_DOUBLE_IS_IEEE_754_128_BIT_BIG_ENDIAN	2
+#define LONG_DOUBLE_IS_X86_80_BIT_LITTLE_ENDIAN		3
+#define LONG_DOUBLE_IS_X86_80_BIT_BIG_ENDIAN		4
+#define LONG_DOUBLE_IS_DOUBLEDOUBLE_128_BIT_LE_LE	5
+#define LONG_DOUBLE_IS_DOUBLEDOUBLE_128_BIT_BE_BE	6
+#define LONG_DOUBLE_IS_DOUBLEDOUBLE_128_BIT_LE_BE	7
+#define LONG_DOUBLE_IS_DOUBLEDOUBLE_128_BIT_BE_LE	8
+#define LONG_DOUBLE_IS_UNKNOWN_FORMAT			-1
+#define LONG_DOUBLE_IS_DOUBLEDOUBLE_128_BIT_LITTLE_ENDIAN	LONG_DOUBLE_IS_DOUBLEDOUBLE_128_BIT_LE_LE /* back-compat */
+#define LONG_DOUBLE_IS_DOUBLEDOUBLE_128_BIT_BIG_ENDIAN	LONG_DOUBLE_IS_DOUBLEDOUBLE_128_BIT_BE_BE /* back-compat */
+#endif
+
+/* HAS_LONG_LONG:
+ *	This symbol will be defined if the C compiler supports long long.
+ */
+/* LONGLONGSIZE:
+ *	This symbol contains the size of a long long, so that the
+ *	C preprocessor can make decisions based on it.  It is only
+ *	defined if the system supports long long.
+ */
+#define HAS_LONG_LONG		/**/
+#ifdef HAS_LONG_LONG
+#define LONGLONGSIZE 8		/**/
+#endif
+
+/* HAS_MEMCHR:
+ *	This symbol, if defined, indicates that the memchr routine is available
+ *	to locate characters within a C string.
+ */
+#define HAS_MEMCHR	/**/
+
+/* HAS_MKSTEMP:
+ *	This symbol, if defined, indicates that the mkstemp routine is
+ *	available to exclusively create and open a uniquely named
+ *	temporary file.
+ */
+#define HAS_MKSTEMP		/**/
+
+/* HAS_MMAP:
+ *	This symbol, if defined, indicates that the mmap system call is
+ *	available to map a file into memory.
+ */
+/* Mmap_t:
+ *	This symbol holds the return type of the mmap() system call
+ *	(and simultaneously the type of the first argument).
+ *	Usually set to 'void *' or 'caddr_t'.
+ */
+#define HAS_MMAP		/**/
+#define Mmap_t void *	/**/
+
+/* HAS_MSG:
+ *	This symbol, if defined, indicates that the entire msg*(2) library is
+ *	supported (IPC mechanism based on message queues).
+ */
+#define HAS_MSG		/**/
+
+/* HAS_SEM:
+ *	This symbol, if defined, indicates that the entire sem*(2) library is
+ *	supported.
+ */
+#define HAS_SEM		/**/
+
+/* HAS_SETGRENT:
+ *	This symbol, if defined, indicates that the setgrent routine is
+ *	available for initializing sequential access of the group database.
+ */
+#define HAS_SETGRENT		/**/
+
+/* HAS_SETHOSTENT:
+ *	This symbol, if defined, indicates that the sethostent() routine is
+ *	available.
+ */
+#define HAS_SETHOSTENT		/**/
+
+/* HAS_SETNETENT:
+ *	This symbol, if defined, indicates that the setnetent() routine is
+ *	available.
+ */
+#define HAS_SETNETENT		/**/
+
+/* HAS_SETPROTOENT:
+ *	This symbol, if defined, indicates that the setprotoent() routine is
+ *	available.
+ */
+#define HAS_SETPROTOENT		/**/
+
+/* HAS_SETPGRP:
+ *	This symbol, if defined, indicates that the setpgrp routine is
+ *	available to set the current process group.
+ */
+/* USE_BSD_SETPGRP:
+ *	This symbol, if defined, indicates that setpgrp needs two
+ *	arguments whereas USG one needs none.  See also HAS_SETPGID
+ *	for a POSIX interface.
+ */
+#define HAS_SETPGRP		/**/
+/*#define USE_BSD_SETPGRP	/ **/
+
+/* HAS_SETPWENT:
+ *	This symbol, if defined, indicates that the setpwent routine is
+ *	available for initializing sequential access of the passwd database.
+ */
+#define HAS_SETPWENT		/**/
+
+/* HAS_SETSERVENT:
+ *	This symbol, if defined, indicates that the setservent() routine is
+ *	available.
+ */
+#define HAS_SETSERVENT		/**/
+
+/* HAS_SETVBUF:
+ *	This symbol, if defined, indicates that the setvbuf routine is
+ *	available to change buffering on an open stdio stream.
+ *	to a line-buffered mode.
+ */
+#define HAS_SETVBUF		/**/
+
+/* HAS_SHM:
+ *	This symbol, if defined, indicates that the entire shm*(2) library is
+ *	supported.
+ */
+#define HAS_SHM		/**/
+
+/* Shmat_t:
+ *	This symbol holds the return type of the shmat() system call.
+ *	Usually set to 'void *' or 'char *'.
+ */
+/* HAS_SHMAT_PROTOTYPE:
+ *	This symbol, if defined, indicates that the sys/shm.h includes
+ *	a prototype for shmat().  Otherwise, it is up to the program to
+ *	guess one.  Shmat_t shmat(int, Shmat_t, int) is a good guess,
+ *	but not always right so it should be emitted by the program only
+ *	when HAS_SHMAT_PROTOTYPE is not defined to avoid conflicting defs.
+ */
+#define Shmat_t void *	/**/
+#define HAS_SHMAT_PROTOTYPE	/**/
+
+/* HAS_SOCKET:
+ *	This symbol, if defined, indicates that the BSD socket interface is
+ *	supported.
+ */
+/* HAS_SOCKETPAIR:
+ *	This symbol, if defined, indicates that the BSD socketpair() call is
+ *	supported.
+ */
+/* HAS_SOCKADDR_SA_LEN:
+ *	This symbol, if defined, indicates that the struct sockaddr
+ *	structure has a member called sa_len, indicating the length of
+ *	the structure.
+ */
+/* HAS_SOCKADDR_IN6:
+ *	This symbol, if defined, indicates the availability of
+ *	struct sockaddr_in6;
+ */
+/* HAS_SIN6_SCOPE_ID:
+ *	This symbol, if defined, indicates that the struct sockaddr_in6
+ *	structure has a member called sin6_scope_id.
+ */
+/* HAS_IP_MREQ:
+ *	This symbol, if defined, indicates the availability of
+ *	struct ip_mreq;
+ */
+/* HAS_IP_MREQ_SOURCE:
+ *	This symbol, if defined, indicates the availability of
+ *	struct ip_mreq_source;
+ */
+/* HAS_IPV6_MREQ:
+ *	This symbol, if defined, indicates the availability of
+ *	struct ipv6_mreq;
+ */
+/* HAS_IPV6_MREQ_SOURCE:
+ *	This symbol, if defined, indicates the availability of
+ *	struct ipv6_mreq_source;
+ */
+#define	HAS_SOCKET		/**/
+#define	HAS_SOCKETPAIR	/**/
+/*#define	HAS_SOCKADDR_SA_LEN	/ **/
+#define	HAS_SOCKADDR_IN6	/**/
+#define	HAS_SIN6_SCOPE_ID	/**/
+#define	HAS_IP_MREQ	/**/
+#define	HAS_IP_MREQ_SOURCE	/**/
+#define	HAS_IPV6_MREQ	/**/
+/*#define	HAS_IPV6_MREQ_SOURCE	/ **/
+
+/* USE_STAT_BLOCKS:
+ *	This symbol is defined if this system has a stat structure declaring
+ *	st_blksize and st_blocks.
+ */
+#ifndef USE_STAT_BLOCKS
+#define USE_STAT_BLOCKS 	/**/
+#endif
+
+/* USE_STRUCT_COPY:
+ *	This symbol, if defined, indicates that this C compiler knows how
+ *	to copy structures.  If undefined, you'll need to use a block copy
+ *	routine of some sort instead.
+ */
+#define	USE_STRUCT_COPY	/**/
+
+/* HAS_STRERROR:
+ *	This symbol, if defined, indicates that the strerror routine is
+ *	available to translate error numbers to strings. See the writeup
+ *	of Strerror() in this file before you try to define your own.
+ */
+/* HAS_SYS_ERRLIST:
+ *	This symbol, if defined, indicates that the sys_errlist array is
+ *	available to translate error numbers to strings. The extern int
+ *	sys_nerr gives the size of that table.
+ */
+/* Strerror:
+ *	This preprocessor symbol is defined as a macro if strerror() is
+ *	not available to translate error numbers to strings but sys_errlist[]
+ *	array is there.
+ */
+#define HAS_STRERROR		/**/
+#define HAS_SYS_ERRLIST	/**/
+#define Strerror(e) strerror(e)
+
+/* HAS_STRTOUL:
+ *	This symbol, if defined, indicates that the strtoul routine is
+ *	available to provide conversion of strings to unsigned long.
+ */
+#define HAS_STRTOUL	/**/
+
+/* HAS_UNION_SEMUN:
+ *	This symbol, if defined, indicates that the union semun is
+ *	defined by including <sys/sem.h>.  If not, the user code
+ *	probably needs to define it as:
+ *	union semun {
+ *	    int val;
+ *	    struct semid_ds *buf;
+ *	    unsigned short *array;
+ *	}
+ */
+/* USE_SEMCTL_SEMUN:
+ *	This symbol, if defined, indicates that union semun is
+ *	used for semctl IPC_STAT.
+ */
+/* USE_SEMCTL_SEMID_DS:
+ *	This symbol, if defined, indicates that struct semid_ds * is
+ *	used for semctl IPC_STAT.
+ */
+/*#define HAS_UNION_SEMUN	/ **/
+#define USE_SEMCTL_SEMUN	/**/
+#define USE_SEMCTL_SEMID_DS	/**/
+
+/* HAS_VFORK:
+ *	This symbol, if defined, indicates that vfork() exists.
+ */
+/*#define HAS_VFORK	/ **/
+
+/* HAS_PSEUDOFORK:
+ *	This symbol, if defined, indicates that an emulation of the
+ *	fork routine is available.
+ */
+/*#define HAS_PSEUDOFORK	/ **/
+
+/* Signal_t:
+ *	This symbol's value is either "void" or "int", corresponding to the
+ *	appropriate return type of a signal handler.  Thus, you can declare
+ *	a signal handler using "Signal_t (*handler)()", and define the
+ *	handler using "Signal_t handler(sig)".
+ */
+#define Signal_t void	/* Signal handler's return type */
+
+/* HASVOLATILE:
+ *	This symbol, if defined, indicates that this C compiler knows about
+ *	the volatile declaration.
+ */
+#define	HASVOLATILE	/**/
+#ifndef HASVOLATILE
+#define volatile
+#endif
+
+/* I_DIRENT:
+ *	This symbol, if defined, indicates to the C program that it should
+ *	include <dirent.h>. Using this symbol also triggers the definition
+ *	of the Direntry_t define which ends up being 'struct dirent' or
+ *	'struct direct' depending on the availability of <dirent.h>.
+ */
+/* DIRNAMLEN:
+ *	This symbol, if defined, indicates to the C program that the length
+ *	of directory entry names is provided by a d_namlen field.  Otherwise
+ *	you need to do strlen() on the d_name field.
+ */
+/* Direntry_t:
+ *	This symbol is set to 'struct direct' or 'struct dirent' depending on
+ *	whether dirent is available or not. You should use this pseudo type to
+ *	portably declare your directory entries.
+ */
+#define I_DIRENT		/**/
+/*#define DIRNAMLEN	/ **/
+#define Direntry_t struct dirent
+
+/* I_EXECINFO:
+ *	This symbol, if defined, indicates to the C program that it should
+ *	include <execinfo.h> for backtrace() support.
+ */
+#define I_EXECINFO		/**/
+
+/* I_GRP:
+ *	This symbol, if defined, indicates to the C program that it should
+ *	include <grp.h>.
+ */
+/* GRPASSWD:
+ *	This symbol, if defined, indicates to the C program that struct group
+ *	in <grp.h> contains gr_passwd.
+ */
+#define I_GRP		/**/
+#define GRPASSWD	/**/
+
+/* I_NDBM:
+ *	This symbol, if defined, indicates that <ndbm.h> exists and should
+ *	be included.
+ */
+/* I_GDBMNDBM:
+ *	This symbol, if defined, indicates that <gdbm/ndbm.h> exists and should
+ *	be included.  This was the location of the ndbm.h compatibility file
+ *	in RedHat 7.1.
+ */
+/* I_GDBM_NDBM:
+ *	This symbol, if defined, indicates that <gdbm-ndbm.h> exists and should
+ *	be included.  This is the location of the ndbm.h compatibility file
+ *	in Debian 4.0.
+ */
+/* NDBM_H_USES_PROTOTYPES:
+ *	This symbol, if defined, indicates that <ndbm.h> uses real ANSI C
+ *	prototypes instead of K&R style function declarations without any
+ *	parameter information. While ANSI C prototypes are supported in C++,
+ *	K&R style function declarations will yield errors.
+ */
+/* GDBMNDBM_H_USES_PROTOTYPES:
+ *	This symbol, if defined, indicates that <gdbm/ndbm.h> uses real ANSI C
+ *	prototypes instead of K&R style function declarations without any
+ *	parameter information. While ANSI C prototypes are supported in C++,
+ *	K&R style function declarations will yield errors.
+ */
+/* GDBM_NDBM_H_USES_PROTOTYPES:
+ *	This symbol, if defined, indicates that <gdbm-ndbm.h> uses real ANSI C
+ *	prototypes instead of K&R style function declarations without any
+ *	parameter information. While ANSI C prototypes are supported in C++,
+ *	K&R style function declarations will yield errors.
+ */
+/*#define I_NDBM	/ **/
+/*#define I_GDBMNDBM	/ **/
+/*#define I_GDBM_NDBM	/ **/
+/*#define NDBM_H_USES_PROTOTYPES	/ **/
+/*#define GDBMNDBM_H_USES_PROTOTYPES	/ **/
+/*#define GDBM_NDBM_H_USES_PROTOTYPES	/ **/
+
+/* I_NETDB:
+ *	This symbol, if defined, indicates that <netdb.h> exists and
+ *	should be included.
+ */
+#define I_NETDB		/**/
+
+/* I_NET_ERRNO:
+ *	This symbol, if defined, indicates that <net/errno.h> exists and
+ *	should be included.
+ */
+/*#define I_NET_ERRNO		/ **/
+
+/* I_PWD:
+ *	This symbol, if defined, indicates to the C program that it should
+ *	include <pwd.h>.
+ */
+/* PWQUOTA:
+ *	This symbol, if defined, indicates to the C program that struct passwd
+ *	contains pw_quota.
+ */
+/* PWAGE:
+ *	This symbol, if defined, indicates to the C program that struct passwd
+ *	contains pw_age.
+ */
+/* PWCHANGE:
+ *	This symbol, if defined, indicates to the C program that struct passwd
+ *	contains pw_change.
+ */
+/* PWCLASS:
+ *	This symbol, if defined, indicates to the C program that struct passwd
+ *	contains pw_class.
+ */
+/* PWEXPIRE:
+ *	This symbol, if defined, indicates to the C program that struct passwd
+ *	contains pw_expire.
+ */
+/* PWCOMMENT:
+ *	This symbol, if defined, indicates to the C program that struct passwd
+ *	contains pw_comment.
+ */
+/* PWGECOS:
+ *	This symbol, if defined, indicates to the C program that struct passwd
+ *	contains pw_gecos.
+ */
+/* PWPASSWD:
+ *	This symbol, if defined, indicates to the C program that struct passwd
+ *	contains pw_passwd.
+ */
+#define I_PWD		/**/
+/*#define PWQUOTA	/ **/
+/*#define PWAGE	/ **/
+/*#define PWCHANGE	/ **/
+/*#define PWCLASS	/ **/
+/*#define PWEXPIRE	/ **/
+/*#define PWCOMMENT	/ **/
+#define PWGECOS	/**/
+#define PWPASSWD	/**/
+
+/* I_SYSUIO:
+ *	This symbol, if defined, indicates that <sys/uio.h> exists and
+ *	should be included.
+ */
+#define	I_SYSUIO		/**/
+
+/* I_TERMIO:
+ *	This symbol, if defined, indicates that the program should include
+ *	<termio.h> rather than <sgtty.h>.  There are also differences in
+ *	the ioctl() calls that depend on the value of this symbol.
+ */
+/* I_TERMIOS:
+ *	This symbol, if defined, indicates that the program should include
+ *	the POSIX termios.h rather than sgtty.h or termio.h.
+ *	There are also differences in the ioctl() calls that depend on the
+ *	value of this symbol.
+ */
+/* I_SGTTY:
+ *	This symbol, if defined, indicates that the program should include
+ *	<sgtty.h> rather than <termio.h>.  There are also differences in
+ *	the ioctl() calls that depend on the value of this symbol.
+ */
+/*#define I_TERMIO		/ **/
+#define I_TERMIOS		/**/
+/*#define I_SGTTY		/ **/
+
+/* I_STDARG:
+ *	This symbol, if defined, indicates that <stdarg.h> exists and should
+ *	be included.
+ */
+/* I_VARARGS:
+ *	This symbol, if defined, indicates to the C program that it should
+ *	include <varargs.h>.
+ */
+#define I_STDARG		/**/
+/*#define I_VARARGS	/ **/
+
+/* Free_t:
+ *	This variable contains the return type of free().  It is usually
+ * void, but occasionally int.
+ */
+/* Malloc_t:
+ *	This symbol is the type of pointer returned by malloc and realloc.
+ */
+#define Malloc_t void *			/**/
+#define Free_t void			/**/
+
+/* PERL_MALLOC_WRAP:
+ *	This symbol, if defined, indicates that we'd like malloc wrap checks.
+ */
+#define PERL_MALLOC_WRAP		/**/
+
+/* MYMALLOC:
+ *	This symbol, if defined, indicates that we're using our own malloc.
+ */
+/*#define MYMALLOC			/ **/
+
+/* CAN_PROTOTYPE:
+ *	If defined, this macro indicates that the C compiler can handle
+ *	function prototypes.
+ */
+/* _:
+ *	This macro is used to declare function parameters for folks who want
+ *	to make declarations with prototypes using a different style than
+ *	the above macros.  Use double parentheses.  For example:
+ *
+ *		int main _((int argc, char *argv[]));
+ */
+#define	CAN_PROTOTYPE	/**/
+#ifdef CAN_PROTOTYPE
+#define	_(args) args
+#else
+#define	_(args) ()
+#endif
+
+/* SH_PATH:
+ *	This symbol contains the full pathname to the shell used on this
+ *	on this system to execute Bourne shell scripts.  Usually, this will be
+ *	/bin/sh, though it's possible that some systems will have /bin/ksh,
+ *	/bin/pdksh, /bin/ash, /bin/bash, or even something such as
+ *	D:/bin/sh.exe.
+ */
+#define SH_PATH "/bin/sh"  /**/
+
+/* SIG_NAME:
+ *	This symbol contains a list of signal names in order of
+ *	signal number. This is intended
+ *	to be used as a static array initialization, like this:
+ *		char *sig_name[] = { SIG_NAME };
+ *	The signals in the list are separated with commas, and each signal
+ *	is surrounded by double quotes. There is no leading SIG in the signal
+ *	name, i.e. SIGQUIT is known as "QUIT".
+ *	Gaps in the signal numbers (up to NSIG) are filled in with NUMnn,
+ *	etc., where nn is the actual signal number (e.g. NUM37).
+ *	The signal number for sig_name[i] is stored in sig_num[i].
+ *	The last element is 0 to terminate the list with a NULL.  This
+ *	corresponds to the 0 at the end of the sig_name_init list.
+ *	Note that this variable is initialized from the sig_name_init,
+ *	not from sig_name (which is unused).
+ */
+/* SIG_NUM:
+ *	This symbol contains a list of signal numbers, in the same order as the
+ *	SIG_NAME list. It is suitable for static array initialization, as in:
+ *		int sig_num[] = { SIG_NUM };
+ *	The signals in the list are separated with commas, and the indices
+ *	within that list and the SIG_NAME list match, so it's easy to compute
+ *	the signal name from a number or vice versa at the price of a small
+ *	dynamic linear lookup.
+ *	Duplicates are allowed, but are moved to the end of the list.
+ *	The signal number corresponding to sig_name[i] is sig_number[i].
+ *	if (i < NSIG) then sig_number[i] == i.
+ *	The last element is 0, corresponding to the 0 at the end of
+ *	the sig_name_init list.
+ *	Note that this variable is initialized from the sig_num_init,
+ *	not from sig_num (which is unused).
+ */
+/* SIG_SIZE:
+ *	This variable contains the number of elements of the SIG_NAME
+ *	and SIG_NUM arrays, excluding the final NULL entry.
+ */
+#define SIG_NAME "ZERO", "HUP", "INT", "QUIT", "ILL", "TRAP", "ABRT", "BUS", "FPE", "KILL", "USR1", "SEGV", "USR2", "PIPE", "ALRM", "TERM", "STKFLT", "CHLD", "CONT", "STOP", "TSTP", "TTIN", "TTOU", "URG", "XCPU", "XFSZ", "VTALRM", "PROF", "WINCH", "IO", "PWR", "SYS", "NUM32", "NUM33", "RTMIN", "NUM35", "NUM36", "NUM37", "NUM38", "NUM39", "NUM40", "NUM41", "NUM42", "NUM43", "NUM44", "NUM45", "NUM46", "NUM47", "NUM48", "NUM49", "NUM50", "NUM51", "NUM52", "NUM53", "NUM54", "NUM55", "NUM56", "NUM57", "NUM58", "NUM59", "NUM60", "NUM61", "NUM62", "NUM63", "RTMAX", "IOT", "CLD", "POLL", "UNUSED", 0		/**/
+#define SIG_NUM  0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 6, 17, 29, 31, 0		/**/
+#define SIG_SIZE 69			/**/
+
+/* USE_CROSS_COMPILE:
+ *	This symbol, if defined, indicates that Perl is being cross-compiled.
+ */
+/* PERL_TARGETARCH:
+ *	This symbol, if defined, indicates the target architecture
+ *	Perl has been cross-compiled to.  Undefined if not a cross-compile.
+ */
+#ifndef USE_CROSS_COMPILE
+/*#define	USE_CROSS_COMPILE	/ **/
+#define	PERL_TARGETARCH	""	/**/
+#endif
+
+/* PERL_USE_DEVEL:
+ *	This symbol, if defined, indicates that Perl was configured with
+ *	-Dusedevel, to enable development features.  This should not be
+ *	done for production builds.
+ */
+/*#define	PERL_USE_DEVEL		/ **/
+
+/* HAS_ATOLF:
+ *	This symbol, if defined, indicates that the atolf routine is
+ *	available to convert strings into long doubles.
+ */
+/*#define HAS_ATOLF		/ **/
+
+/* HAS_ATOLL:
+ *	This symbol, if defined, indicates that the atoll routine is
+ *	available to convert strings into long longs.
+ */
+#define HAS_ATOLL		/**/
+
+/* HAS__FWALK:
+ *	This symbol, if defined, indicates that the _fwalk system call is
+ *	available to apply a function to all the file handles.
+ */
+/*#define HAS__FWALK		/ **/
+
+/* HAS_ACOSH:
+ *	This symbol, if defined, indicates that the acosh routine is
+ *	available to do the inverse hyperbolic cosine function.
+ */
+#define HAS_ACOSH		/**/
+
+/* HAS_AINTL:
+ *	This symbol, if defined, indicates that the aintl routine is
+ *	available.  If copysignl is also present we can emulate modfl.
+ */
+/*#define HAS_AINTL		/ **/
+
+/* HAS_ASINH:
+ *	This symbol, if defined, indicates that the asinh routine is
+ *	available to do the inverse hyperbolic sine function.
+ */
+#define HAS_ASINH		/**/
+
+/* HAS_ATANH:
+ *	This symbol, if defined, indicates that the atanh routine is
+ *	available to do the inverse hyperbolic tangent function.
+ */
+#define HAS_ATANH		/**/
+
+/* HAS_BUILTIN_CHOOSE_EXPR:
+ *	Can we handle GCC builtin for compile-time ternary-like expressions
+ */
+/* HAS_BUILTIN_EXPECT:
+ *	Can we handle GCC builtin for telling that certain values are more
+ *	likely
+ */
+#define HAS_BUILTIN_EXPECT	/**/
+#define HAS_BUILTIN_CHOOSE_EXPR	/**/
+
+/* HAS_C99_VARIADIC_MACROS:
+ *	If defined, the compiler supports C99 variadic macros.
+ */
+#define	HAS_C99_VARIADIC_MACROS	/**/
+
+/* HAS_CLASS:
+ *	This symbol, if defined, indicates that the class routine is
+ *	available to classify doubles.  Available for example in AIX.
+ *	The returned values are defined in <float.h> and are:
+ *
+ *	FP_PLUS_NORM	Positive normalized, nonzero
+ *	FP_MINUS_NORM	Negative normalized, nonzero
+ *	FP_PLUS_DENORM	Positive denormalized, nonzero
+ *	FP_MINUS_DENORM	Negative denormalized, nonzero
+ *	FP_PLUS_ZERO	+0.0
+ *	FP_MINUS_ZERO	-0.0
+ *	FP_PLUS_INF	+INF
+ *	FP_MINUS_INF	-INF
+ *	FP_NANS		Signaling Not a Number (NaNS)
+ *	FP_NANQ		Quiet Not a Number (NaNQ)
+ */
+/*#define HAS_CLASS		/ **/
+
+/* HAS_CLEARENV:
+ *	This symbol, if defined, indicates that the clearenv () routine is
+ *	available for use.
+ */
+#define HAS_CLEARENV		/**/
+
+/* HAS_STRUCT_CMSGHDR:
+ *	This symbol, if defined, indicates that the struct cmsghdr
+ *	is supported.
+ */
+#define HAS_STRUCT_CMSGHDR	/**/
+
+/* HAS_COPYSIGN:
+ *	This symbol, if defined, indicates that the copysign routine is
+ *	available to do the copysign function.
+ */
+#define HAS_COPYSIGN		/**/
+
+/* HAS_COPYSIGNL:
+ *	This symbol, if defined, indicates that the copysignl routine is
+ *	available.  If aintl is also present we can emulate modfl.
+ */
+#define HAS_COPYSIGNL		/**/
+
+/* USE_CPLUSPLUS:
+ *	This symbol, if defined, indicates that a C++ compiler was
+ *	used to compiled Perl and will be used to compile extensions.
+ */
+/*#define USE_CPLUSPLUS		/ **/
+
+/* HAS_DBMINIT_PROTO:
+ *	This symbol, if defined, indicates that the system provides
+ *	a prototype for the dbminit() function.  Otherwise, it is up
+ *	to the program to supply one.  A good guess is
+ *		extern int dbminit(char *);
+ */
+/*#define	HAS_DBMINIT_PROTO	/ **/
+
+/* HAS_DIR_DD_FD:
+ *	This symbol, if defined, indicates that the the DIR* dirstream
+ *	structure contains a member variable named dd_fd.
+ */
+/*#define HAS_DIR_DD_FD		/ **/
+
+/* HAS_DIRFD:
+ *	This manifest constant lets the C program know that dirfd
+ *	is available.
+ */
+#define HAS_DIRFD		/**/
+
+/* DLSYM_NEEDS_UNDERSCORE:
+ *	This symbol, if defined, indicates that we need to prepend an
+ *	underscore to the symbol name before calling dlsym().  This only
+ *	makes sense if you *have* dlsym, which we will presume is the
+ *	case if you're using dl_dlopen.xs.
+ */
+/*#define 	DLSYM_NEEDS_UNDERSCORE 	/ **/
+
+/* HAS_ERF:
+ *	This symbol, if defined, indicates that the erf routine is
+ *	available to do the error function.
+ */
+#define HAS_ERF		/**/
+
+/* HAS_ERFC:
+ *	This symbol, if defined, indicates that the erfc routine is
+ *	available to do the complementary error function.
+ */
+#define HAS_ERFC		/**/
+
+/* HAS_EXP2:
+ *	This symbol, if defined, indicates that the exp2 routine is
+ *	available to do the 2**x function.
+ */
+#define HAS_EXP2		/**/
+
+/* HAS_EXPM1:
+ *	This symbol, if defined, indicates that the expm1 routine is
+ *	available to do the exp(x) - 1 when x is near 1 function.
+ */
+#define HAS_EXPM1		/**/
+
+/* HAS_FAST_STDIO:
+ *	This symbol, if defined, indicates that the "fast stdio"
+ *	is available to manipulate the stdio buffers directly.
+ */
+#define HAS_FAST_STDIO		/**/
+
+/* HAS_FCHDIR:
+ *	This symbol, if defined, indicates that the fchdir routine is
+ *	available to change directory using a file descriptor.
+ */
+#define HAS_FCHDIR		/**/
+
+/* FCNTL_CAN_LOCK:
+ *	This symbol, if defined, indicates that fcntl() can be used
+ *	for file locking.  Normally on Unix systems this is defined.
+ *	It may be undefined on VMS.
+ */
+#define FCNTL_CAN_LOCK		/**/
+
+/* HAS_FDCLOSE:
+ *	This symbol, if defined, indicates that the fdclose routine is
+ *	available to free a FILE structure without closing the underlying
+ *	file descriptor.  This function appeared in FreeBSD 10.2.
+ */
+/*#define HAS_FDCLOSE		/ **/
+
+/* HAS_FDIM:
+ *	This symbol, if defined, indicates that the fdim routine is
+ *	available to do the positive difference function.
+ */
+#define HAS_FDIM		/**/
+
+/* HAS_FEGETROUND:
+ *	This symbol, if defined, indicates that the fegetround routine is
+ *	available to return the macro corresponding to the current rounding
+ *	mode.
+ */
+#define HAS_FEGETROUND	/**/
+
+/* HAS_FINITE:
+ *	This symbol, if defined, indicates that the finite routine is
+ *	available to check whether a double is finite (non-infinity non-NaN).
+ */
+#define HAS_FINITE		/**/
+
+/* HAS_FINITEL:
+ *	This symbol, if defined, indicates that the finitel routine is
+ *	available to check whether a long double is finite
+ *	(non-infinity non-NaN).
+ */
+#define HAS_FINITEL		/**/
+
+/* HAS_FLOCK_PROTO:
+ *	This symbol, if defined, indicates that the system provides
+ *	a prototype for the flock() function.  Otherwise, it is up
+ *	to the program to supply one.  A good guess is
+ *		extern int flock(int, int);
+ */
+#define	HAS_FLOCK_PROTO	/**/
+
+/* HAS_FMA:
+ *	This symbol, if defined, indicates that the fma routine is
+ *	available to do the multiply-add function.
+ */
+#define HAS_FMA		/**/
+
+/* HAS_FMAX:
+ *	This symbol, if defined, indicates that the fmax routine is
+ *	available to do the maximum function.
+ */
+#define HAS_FMAX		/**/
+
+/* HAS_FMIN:
+ *	This symbol, if defined, indicates that the fmin routine is
+ *	available to do the minimum function.
+ */
+#define HAS_FMIN		/**/
+
+/* HAS_FP_CLASS:
+ *	This symbol, if defined, indicates that the fp_class routine is
+ *	available to classify doubles.  Available for example in Digital UNIX.
+ *	The returned values are defined in <math.h> and are:
+ *
+ *	FP_SNAN           Signaling NaN (Not-a-Number)
+ *	FP_QNAN           Quiet NaN (Not-a-Number)
+ *	FP_POS_INF        +infinity
+ *	FP_NEG_INF        -infinity
+ *	FP_POS_NORM       Positive normalized
+ *	FP_NEG_NORM       Negative normalized
+ *	FP_POS_DENORM     Positive denormalized
+ *	FP_NEG_DENORM     Negative denormalized
+ *	FP_POS_ZERO       +0.0 (positive zero)
+ *	FP_NEG_ZERO       -0.0 (negative zero)
+ */
+/*#define HAS_FP_CLASS		/ **/
+
+/* HAS_FP_CLASSL:
+ *	This symbol, if defined, indicates that the fp_classl routine is
+ *	available to classify long doubles.  Available for example in
+ *	Digital UNIX.  See for possible values HAS_FP_CLASS.
+ */
+/*#define HAS_FP_CLASSL		/ **/
+
+/* HAS_FPCLASS:
+ *	This symbol, if defined, indicates that the fpclass routine is
+ *	available to classify doubles.  Available for example in Solaris/SVR4.
+ *	The returned values are defined in <ieeefp.h> and are:
+ *
+ *	FP_SNAN		signaling NaN
+ *	FP_QNAN		quiet NaN
+ *	FP_NINF		negative infinity
+ *	FP_PINF		positive infinity
+ *	FP_NDENORM	negative denormalized non-zero
+ *	FP_PDENORM	positive denormalized non-zero
+ *	FP_NZERO	negative zero
+ *	FP_PZERO	positive zero
+ *	FP_NNORM	negative normalized non-zero
+ *	FP_PNORM	positive normalized non-zero
+ */
+/*#define HAS_FPCLASS		/ **/
+
+/* HAS_FPCLASSIFY:
+ *	This symbol, if defined, indicates that the fpclassify routine is
+ *	available to classify doubles.  Available for example in HP-UX.
+ *	The returned values are defined in <math.h> and are
+ *
+ *           FP_NORMAL     Normalized
+ *           FP_ZERO       Zero
+ *           FP_INFINITE   Infinity
+ *           FP_SUBNORMAL  Denormalized
+ *           FP_NAN        NaN
+ *
+ */
+/* HAS_FP_CLASSIFY:
+ *	This symbol, if defined, indicates that the fp_classify routine is
+ *	available to classify doubles. The values are defined in <math.h>
+ *
+ *           FP_NORMAL     Normalized
+ *           FP_ZERO       Zero
+ *           FP_INFINITE   Infinity
+ *           FP_SUBNORMAL  Denormalized
+ *           FP_NAN        NaN
+ *
+ */
+#define	HAS_FPCLASSIFY		/**/
+/*#define	HAS_FP_CLASSIFY		/ **/
+
+/* HAS_FPCLASSL:
+ *	This symbol, if defined, indicates that the fpclassl routine is
+ *	available to classify long doubles.  Available for example in IRIX.
+ *	The returned values are defined in <ieeefp.h> and are:
+ *
+ *	FP_SNAN		signaling NaN
+ *	FP_QNAN		quiet NaN
+ *	FP_NINF		negative infinity
+ *	FP_PINF		positive infinity
+ *	FP_NDENORM	negative denormalized non-zero
+ *	FP_PDENORM	positive denormalized non-zero
+ *	FP_NZERO	negative zero
+ *	FP_PZERO	positive zero
+ *	FP_NNORM	negative normalized non-zero
+ *	FP_PNORM	positive normalized non-zero
+ */
+/*#define HAS_FPCLASSL		/ **/
+
+/* HAS_FPGETROUND:
+ *	This symbol, if defined, indicates that the fpgetround routine is
+ *	available to get the floating point rounding mode.
+ */
+/*#define HAS_FPGETROUND		/ **/
+
+/* HAS_FPOS64_T:
+ *	This symbol will be defined if the C compiler supports fpos64_t.
+ */
+/*#define	HAS_FPOS64_T    	/ **/
+
+/* HAS_FREXPL:
+ *	This symbol, if defined, indicates that the frexpl routine is
+ *	available to break a long double floating-point number into
+ *	a normalized fraction and an integral power of 2.
+ */
+#define HAS_FREXPL		/**/
+
+/* HAS_STRUCT_FS_DATA:
+ *	This symbol, if defined, indicates that the struct fs_data
+ *	to do statfs() is supported.
+ */
+/*#define HAS_STRUCT_FS_DATA	/ **/
+
+/* HAS_FSEEKO:
+ *	This symbol, if defined, indicates that the fseeko routine is
+ *	available to fseek beyond 32 bits (useful for ILP32 hosts).
+ */
+#define HAS_FSEEKO		/**/
+
+/* HAS_FSTATFS:
+ *	This symbol, if defined, indicates that the fstatfs routine is
+ *	available to stat filesystems by file descriptors.
+ */
+#define HAS_FSTATFS		/**/
+
+/* HAS_FSYNC:
+ *	This symbol, if defined, indicates that the fsync routine is
+ *	available to write a file's modified data and attributes to
+ *	permanent storage.
+ */
+#define HAS_FSYNC		/**/
+
+/* HAS_FTELLO:
+ *	This symbol, if defined, indicates that the ftello routine is
+ *	available to ftell beyond 32 bits (useful for ILP32 hosts).
+ */
+#define HAS_FTELLO		/**/
+
+/* HAS_FUTIMES:
+ *	This symbol, if defined, indicates that the futimes routine is
+ *	available to change file descriptor time stamps with struct timevals.
+ */
+#define HAS_FUTIMES		/**/
+
+/* HAS_GETADDRINFO:
+ *	This symbol, if defined, indicates that the getaddrinfo() function
+ *	is available for use.
+ */
+#define HAS_GETADDRINFO		/**/
+
+/* HAS_GETCWD:
+ *	This symbol, if defined, indicates that the getcwd routine is
+ *	available to get the current working directory.
+ */
+#define HAS_GETCWD		/**/
+
+/* HAS_GETESPWNAM:
+ *	This symbol, if defined, indicates that the getespwnam system call is
+ *	available to retrieve enhanced (shadow) password entries by name.
+ */
+/*#define HAS_GETESPWNAM		/ **/
+
+/* HAS_GETFSSTAT:
+ *	This symbol, if defined, indicates that the getfsstat routine is
+ *	available to stat filesystems in bulk.
+ */
+/*#define HAS_GETFSSTAT		/ **/
+
+/* HAS_GETITIMER:
+ *	This symbol, if defined, indicates that the getitimer routine is
+ *	available to return interval timers.
+ */
+#define HAS_GETITIMER		/**/
+
+/* HAS_GETMNT:
+ *	This symbol, if defined, indicates that the getmnt routine is
+ *	available to get filesystem mount info by filename.
+ */
+/*#define HAS_GETMNT		/ **/
+
+/* HAS_GETMNTENT:
+ *	This symbol, if defined, indicates that the getmntent routine is
+ *	available to iterate through mounted file systems to get their info.
+ */
+#define HAS_GETMNTENT		/**/
+
+/* HAS_GETNAMEINFO:
+ *	This symbol, if defined, indicates that the getnameinfo() function
+ *	is available for use.
+ */
+#define HAS_GETNAMEINFO		/**/
+
+/* HAS_GETPRPWNAM:
+ *	This symbol, if defined, indicates that the getprpwnam system call is
+ *	available to retrieve protected (shadow) password entries by name.
+ */
+/*#define HAS_GETPRPWNAM		/ **/
+
+/* HAS_GETSPNAM:
+ *	This symbol, if defined, indicates that the getspnam system call is
+ *	available to retrieve SysV shadow password entries by name.
+ */
+#define HAS_GETSPNAM		/**/
+
+/* HAS_HASMNTOPT:
+ *	This symbol, if defined, indicates that the hasmntopt routine is
+ *	available to query the mount options of file systems.
+ */
+#define HAS_HASMNTOPT		/**/
+
+/* HAS_HYPOT:
+ *	This symbol, if defined, indicates that the hypot routine is
+ *	available to do the hypotenuse function.
+ */
+#define HAS_HYPOT		/**/
+
+/* HAS_ILOGB:
+ *	This symbol, if defined, indicates that the ilogb routine is
+ *	available to get integer exponent of a floating-point value.
+ */
+#define HAS_ILOGB		/**/
+
+/* HAS_ILOGBL:
+ *	This symbol, if defined, indicates that the ilogbl routine is
+ *	available.  If scalbnl is also present we can emulate frexpl.
+ */
+#define HAS_ILOGBL		/**/
+
+/* HAS_INETNTOP:
+ *	This symbol, if defined, indicates that the inet_ntop() function
+ *	is available to parse IPv4 and IPv6 strings.
+ */
+#define HAS_INETNTOP		/**/
+
+/* HAS_INETPTON:
+ *	This symbol, if defined, indicates that the inet_pton() function
+ *	is available to parse IPv4 and IPv6 strings.
+ */
+#define HAS_INETPTON		/**/
+
+/* HAS_INT64_T:
+ *     This symbol will defined if the C compiler supports int64_t.
+ *     Usually the <inttypes.h> needs to be included, but sometimes
+ *	<sys/types.h> is enough.
+ */
+#define     HAS_INT64_T               /**/
+
+/* HAS_ISBLANK:
+ *	This manifest constant lets the C program know that isblank
+ *	is available.
+ */
+#define HAS_ISBLANK		/**/
+
+/* HAS_ISFINITE:
+ *	This symbol, if defined, indicates that the isfinite routine is
+ *	available to check whether a double is finite (non-infinity non-NaN).
+ */
+#define HAS_ISFINITE		/**/
+
+/* HAS_ISFINITEL:
+ *	This symbol, if defined, indicates that the isfinitel routine is
+ *	available to check whether a long double is finite.
+ *	(non-infinity non-NaN).
+ */
+/*#define HAS_ISFINITEL		/ **/
+
+/* HAS_ISINF:
+ *	This symbol, if defined, indicates that the isinf routine is
+ *	available to check whether a double is an infinity.
+ */
+#define HAS_ISINF		/**/
+
+/* HAS_ISINFL:
+ *	This symbol, if defined, indicates that the isinfl routine is
+ *	available to check whether a long double is an infinity.
+ */
+#define HAS_ISINFL		/**/
+
+/* HAS_ISLESS:
+ *	This symbol, if defined, indicates that the isless routine is
+ *	available to do the isless function.
+ */
+/*#define HAS_ISLESS		/ **/
+
+/* HAS_ISNAN:
+ *	This symbol, if defined, indicates that the isnan routine is
+ *	available to check whether a double is a NaN.
+ */
+#define HAS_ISNAN		/**/
+
+/* HAS_ISNANL:
+ *	This symbol, if defined, indicates that the isnanl routine is
+ *	available to check whether a long double is a NaN.
+ */
+#define HAS_ISNANL		/**/
+
+/* HAS_ISNORMAL:
+ *	This symbol, if defined, indicates that the isnormal routine is
+ *	available to check whether a double is normal (non-zero normalized).
+ */
+#define HAS_ISNORMAL		/**/
+
+/* HAS_J0:
+ *	This symbol, if defined, indicates to the C program that the
+ *	j0() function is available for Bessel functions of the first
+ *	kind of the order zero, for doubles.
+ */
+/* HAS_J0L:
+ *	This symbol, if defined, indicates to the C program that the
+ *	j0l() function is available for Bessel functions of the first
+ *	kind of the order zero, for long doubles.
+ */
+#define	HAS_J0		/**/
+#define	HAS_J0L		/**/
+
+/* HAS_LC_MONETARY_2008:
+ *	This symbol, if defined, indicates that the localeconv routine is
+ *	available and has the additional members added in POSIX 1003.1-2008.
+ */
+#define HAS_LC_MONETARY_2008		/**/
+
+/* HAS_LDBL_DIG:
+ *	This symbol, if defined, indicates that this system's <float.h>
+ *	or <limits.h> defines the symbol LDBL_DIG, which is the number
+ *	of significant digits in a long double precision number. Unlike
+ *	for DBL_DIG, there's no good guess for LDBL_DIG if it is undefined.
+ */
+#define HAS_LDBL_DIG 	/* */
+
+/* HAS_LGAMMA:
+ *	This symbol, if defined, indicates that the lgamma routine is
+ *	available to do the log gamma function.  See also HAS_TGAMMA and
+ *	HAS_LGAMMA_R.
+ */
+#define HAS_LGAMMA		/**/
+
+/* HAS_LGAMMA_R:
+ *	This symbol, if defined, indicates that the lgamma_r routine is
+ *	available to do the log gamma function without using the global
+ *	signgam variable.
+ */
+#define HAS_LGAMMA_R		/**/
+
+/* LIBM_LIB_VERSION:
+ *	This symbol, if defined, indicates that libm exports _LIB_VERSION
+ *	and that math.h defines the enum to manipulate it.
+ */
+#define LIBM_LIB_VERSION		/**/
+
+/* HAS_LLRINT:
+ *	This symbol, if defined, indicates that the llrint routine is
+ *	available to return the long long value closest to a double
+ *	(according to the current rounding mode).
+ */
+#define HAS_LLRINT		/**/
+
+/* HAS_LLRINTL:
+ *	This symbol, if defined, indicates that the llrintl routine is
+ *	available to return the long long value closest to a long double
+ *	(according to the current rounding mode).
+ */
+#define HAS_LLRINTL		/**/
+
+/* HAS_LLROUND:
+ *	This symbol, if defined, indicates that the llround routine is
+ *	available to return the nearest long long value.
+ */
+#define HAS_LLROUND		/**/
+
+/* HAS_LLROUNDL:
+ *	This symbol, if defined, indicates that the llroundl routine is
+ *	available to return the nearest long long value away from zero of
+ *	the long double argument value.
+ */
+#define HAS_LLROUNDL		/**/
+
+/* HAS_LOG1P:
+ *	This symbol, if defined, indicates that the log1p routine is
+ *	available to do the logarithm of 1 plus argument function.
+ */
+#define HAS_LOG1P		/**/
+
+/* HAS_LOG2:
+ *	This symbol, if defined, indicates that the log2 routine is
+ *	available to do the log2 function.
+ */
+#define HAS_LOG2		/**/
+
+/* HAS_LOGB:
+ *	This symbol, if defined, indicates that the logb routine is
+ *	available to do the logb function.
+ */
+#define HAS_LOGB		/**/
+
+/* HAS_LRINT:
+ *	This symbol, if defined, indicates that the lrint routine is
+ *	available to return the integral value closest to a double
+ *	(according to the current rounding mode).
+ */
+#define HAS_LRINT		/**/
+
+/* HAS_LRINTL:
+ *	This symbol, if defined, indicates that the lrintl routine is
+ *	available to return the integral value closest to a long double
+ *	(according to the current rounding mode).
+ */
+#define HAS_LRINTL		/**/
+
+/* HAS_LROUND:
+ *	This symbol, if defined, indicates that the lround routine is
+ *	available to return the nearest integral value.
+ */
+#define HAS_LROUND		/**/
+
+/* HAS_LROUNDL:
+ *	This symbol, if defined, indicates that the lroundl routine is
+ *	available to return the nearest integral value away from zero of
+ *	the long double argument value.
+ */
+#define HAS_LROUNDL		/**/
+
+/* HAS_MADVISE:
+ *	This symbol, if defined, indicates that the madvise system call is
+ *	available to map a file into memory.
+ */
+#define HAS_MADVISE		/**/
+
+/* HAS_MALLOC_SIZE:
+ *	This symbol, if defined, indicates that the malloc_size
+ *	routine is available for use.
+ */
+/*#define HAS_MALLOC_SIZE		/ **/
+
+/* HAS_MALLOC_GOOD_SIZE:
+ *	This symbol, if defined, indicates that the malloc_good_size
+ *	routine is available for use.
+ */
+/*#define HAS_MALLOC_GOOD_SIZE	/ **/
+
+/* HAS_MEMMEM:
+ *	This symbol, if defined, indicates that the memmem routine is
+ *	available to return a pointer to the start of the first occurance
+ *	of a substring in a memory area (or NULL if not found).
+ */
+#define HAS_MEMMEM		/**/
+
+/* HAS_MKDTEMP:
+ *	This symbol, if defined, indicates that the mkdtemp routine is
+ *	available to exclusively create a uniquely named temporary directory.
+ */
+#define HAS_MKDTEMP		/**/
+
+/* HAS_MKSTEMPS:
+ *	This symbol, if defined, indicates that the mkstemps routine is
+ *	available to exclusively create and open a uniquely named
+ *	(with a suffix) temporary file.
+ */
+#define HAS_MKSTEMPS		/**/
+
+/* HAS_MODFL:
+ *	This symbol, if defined, indicates that the modfl routine is
+ *	available to split a long double x into a fractional part f and
+ *	an integer part i such that |f| < 1.0 and (f + i) = x.
+ */
+/* HAS_MODFL_PROTO:
+ *	This symbol, if defined, indicates that the system provides
+ *	a prototype for the modfl() function.  Otherwise, it is up
+ *	to the program to supply one.
+ */
+#define HAS_MODFL		/**/
+#define HAS_MODFL_PROTO		/**/
+
+/* HAS_MPROTECT:
+ *	This symbol, if defined, indicates that the mprotect system call is
+ *	available to modify the access protection of a memory mapped file.
+ */
+#define HAS_MPROTECT		/**/
+
+/* HAS_STRUCT_MSGHDR:
+ *	This symbol, if defined, indicates that the struct msghdr
+ *	is supported.
+ */
+#define HAS_STRUCT_MSGHDR	/**/
+
+/* HAS_NAN:
+ *	This symbol, if defined, indicates that the nan routine is
+ *	available to generate NaN.
+ */
+#define HAS_NAN		/**/
+
+/* HAS_NEARBYINT:
+ *	This symbol, if defined, indicates that the nearbyint routine is
+ *	available to return the integral value closest to (according to
+ *	the current rounding mode) to x.
+ */
+#define HAS_NEARBYINT		/**/
+
+/* HAS_NEWLOCALE:
+ *	This symbol, if defined, indicates that the newlocale routine is
+ *	available to return a new locale object or modify an existing
+ *	locale object.
+ */
+/* HAS_FREELOCALE:
+ *	This symbol, if defined, indicates that the freelocale routine is
+ *	available to deallocates the resources associated with a locale object.
+ */
+/* HAS_USELOCALE:
+ *	This symbol, if defined, indicates that the uselocale routine is
+ *	available to set the current locale for the calling thread.
+ */
+#define	HAS_NEWLOCALE	/**/
+#define	HAS_FREELOCALE	/**/
+#define	HAS_USELOCALE	/**/
+
+/* HAS_NEXTAFTER:
+ *	This symbol, if defined, indicates that the nextafter routine is
+ *	available to return the next machine representable double from
+ *	x in direction y.
+ */
+#define HAS_NEXTAFTER		/**/
+
+/* HAS_NEXTTOWARD:
+ *	This symbol, if defined, indicates that the nexttoward routine is
+ *	available to return the next machine representable long double from
+ *	x in direction y.
+ */
+#define HAS_NEXTTOWARD		/**/
+
+/* HAS_NL_LANGINFO:
+ *	This symbol, if defined, indicates that the nl_langinfo routine is
+ *	available to return local data.  You will also need <langinfo.h>
+ *	and therefore I_LANGINFO.
+ */
+#define HAS_NL_LANGINFO		/**/
+
+/* HAS_OFF64_T:
+ *	This symbol will be defined if the C compiler supports off64_t.
+ */
+/*#define	HAS_OFF64_T    		/ **/
+
+/* HAS_PRCTL:
+ *	This symbol, if defined, indicates that the prctl routine is
+ *	available to set process title.
+ *	Note that there are at least two prctl variants: Linux and Irix.
+ *	While they are somewhat similar, they are incompatible.
+ */
+/* HAS_PRCTL_SET_NAME:
+ *	This symbol, if defined, indicates that the prctl routine is
+ *	available to set process title and supports PR_SET_NAME.
+ */
+#define HAS_PRCTL		/**/
+#define HAS_PRCTL_SET_NAME		/**/
+
+/* HAS_PROCSELFEXE:
+ *	This symbol is defined if PROCSELFEXE_PATH is a symlink
+ *	to the absolute pathname of the executing program.
+ */
+/* PROCSELFEXE_PATH:
+ *	If HAS_PROCSELFEXE is defined this symbol is the filename
+ *	of the symbolic link pointing to the absolute pathname of
+ *	the executing program.
+ */
+#define HAS_PROCSELFEXE	/**/
+#if defined(HAS_PROCSELFEXE) && !defined(PROCSELFEXE_PATH)
+#define PROCSELFEXE_PATH	"/proc/self/exe"	/**/
+#endif
+
+/* HAS_PTHREAD_ATTR_SETSCOPE:
+ *	This symbol, if defined, indicates that the pthread_attr_setscope
+ *	system call is available to set the contention scope attribute of
+ *	a thread attribute object.
+ */
+#define HAS_PTHREAD_ATTR_SETSCOPE		/**/
+
+/* HAS_PTRDIFF_T:
+ *	This symbol will be defined if the C compiler supports ptrdiff_t.
+ */
+#define	HAS_PTRDIFF_T    		/**/
+
+/* HAS_READV:
+ *	This symbol, if defined, indicates that the readv routine is
+ *	available to do gather reads.  You will also need <sys/uio.h>
+ *	and there I_SYSUIO.
+ */
+#define HAS_READV		/**/
+
+/* HAS_RECVMSG:
+ *	This symbol, if defined, indicates that the recvmsg routine is
+ *	available to send structured socket messages.
+ */
+#define HAS_RECVMSG		/**/
+
+/* HAS_REMAINDER:
+ *	This symbol, if defined, indicates that the remainder routine is
+ *	available to return the floating-point remainder.
+ */
+#define HAS_REMAINDER		/**/
+
+/* HAS_REMQUO:
+ *	This symbol, if defined, indicates that the remquo routine is
+ *	available to return the remainder and part of quotient.
+ */
+#define HAS_REMQUO		/**/
+
+/* HAS_RINT:
+ *	This symbol, if defined, indicates that the rint routine is
+ *	available to return the nearest integral value to x as double
+ *	using the current rounding mode.
+ */
+#define HAS_RINT		/**/
+
+/* HAS_ROUND:
+ *	This symbol, if defined, indicates that the round routine is
+ *	available to round to nearest integer, away from zero.
+ */
+#define HAS_ROUND		/**/
+
+/* HAS_SBRK_PROTO:
+ *	This symbol, if defined, indicates that the system provides
+ *	a prototype for the sbrk() function.  Otherwise, it is up
+ *	to the program to supply one.  Good guesses are
+ *		extern void* sbrk(int);
+ *		extern void* sbrk(size_t);
+ */
+#define	HAS_SBRK_PROTO	/**/
+
+/* HAS_SCALBN:
+ *	This symbol, if defined, indicates that the scalbn routine is
+ *	available to multiply floating-point number by integral power
+ *	of radix.
+ */
+#define HAS_SCALBN		/**/
+
+/* HAS_SCALBNL:
+ *	This symbol, if defined, indicates that the scalbnl routine is
+ *	available.  If ilogbl is also present we can emulate frexpl.
+ */
+#define HAS_SCALBNL		/**/
+
+/* HAS_SENDMSG:
+ *	This symbol, if defined, indicates that the sendmsg routine is
+ *	available to send structured socket messages.
+ */
+#define HAS_SENDMSG		/**/
+
+/* HAS_SETITIMER:
+ *	This symbol, if defined, indicates that the setitimer routine is
+ *	available to set interval timers.
+ */
+#define HAS_SETITIMER		/**/
+
+/* HAS_SETPROCTITLE:
+ *	This symbol, if defined, indicates that the setproctitle routine is
+ *	available to set process title.
+ */
+/*#define HAS_SETPROCTITLE		/ **/
+
+/* HAS_SIGNBIT:
+ *	This symbol, if defined, indicates that the signbit routine is
+ *	available to check if the given number has the sign bit set.
+ *	This should include correct testing of -0.0.  This will only be set
+ *	if the signbit() routine is safe to use with the NV type used internally
+ *	in perl.  Users should call Perl_signbit(), which will be #defined to
+ *	the system's signbit() function or macro if this symbol is defined.
+ */
+#define HAS_SIGNBIT		/**/
+
+/* HAS_SIGPROCMASK:
+ *	This symbol, if defined, indicates that the sigprocmask
+ *	system call is available to examine or change the signal mask
+ *	of the calling process.
+ */
+#define HAS_SIGPROCMASK		/**/
+
+/* USE_SITECUSTOMIZE:
+ *	This symbol, if defined, indicates that sitecustomize should
+ *	be used.
+ */
+#ifndef USE_SITECUSTOMIZE
+#define	USE_SITECUSTOMIZE		/**/
+#endif
+
+/* HAS_SNPRINTF:
+ *	This symbol, if defined, indicates that the snprintf () library
+ *	function is available for use.
+ */
+/* HAS_VSNPRINTF:
+ *	This symbol, if defined, indicates that the vsnprintf () library
+ *	function is available for use.
+ */
+#define HAS_SNPRINTF	/**/
+#define HAS_VSNPRINTF	/**/
+
+/* HAS_SOCKATMARK:
+ *	This symbol, if defined, indicates that the sockatmark routine is
+ *	available to test whether a socket is at the out-of-band mark.
+ */
+#define HAS_SOCKATMARK		/**/
+
+/* HAS_SOCKATMARK_PROTO:
+ *	This symbol, if defined, indicates that the system provides
+ *	a prototype for the sockatmark() function.  Otherwise, it is up
+ *	to the program to supply one.  A good guess is
+ *		extern int sockatmark(int);
+ */
+#define	HAS_SOCKATMARK_PROTO	/**/
+
+/* HAS_SOCKS5_INIT:
+ *	This symbol, if defined, indicates that the socks5_init routine is
+ *	available to initialize SOCKS 5.
+ */
+/*#define HAS_SOCKS5_INIT		/ **/
+
+/* SPRINTF_RETURNS_STRLEN:
+ *	This variable defines whether sprintf returns the length of the string
+ *	(as per the ANSI spec). Some C libraries retain compatibility with
+ *	pre-ANSI C and return a pointer to the passed in buffer; for these
+ *	this variable will be undef.
+ */
+#define SPRINTF_RETURNS_STRLEN	/**/
+
+/* HAS_SQRTL:
+ *	This symbol, if defined, indicates that the sqrtl routine is
+ *	available to do long double square roots.
+ */
+#define HAS_SQRTL		/**/
+
+/* HAS_SETRESGID_PROTO:
+ *	This symbol, if defined, indicates that the system provides
+ *	a prototype for the setresgid() function.  Otherwise, it is up
+ *	to the program to supply one.  Good guesses are
+ *		extern int setresgid(uid_t ruid, uid_t euid, uid_t suid);
+ */
+/*#define	HAS_SETRESGID_PROTO	/ **/
+
+/* HAS_SETRESUID_PROTO:
+ *	This symbol, if defined, indicates that the system provides
+ *	a prototype for the setresuid() function.  Otherwise, it is up
+ *	to the program to supply one.  Good guesses are
+ *		extern int setresuid(uid_t ruid, uid_t euid, uid_t suid);
+ */
+/*#define	HAS_SETRESUID_PROTO	/ **/
+
+/* HAS_STRUCT_STATFS_F_FLAGS:
+ *	This symbol, if defined, indicates that the struct statfs
+ *	does have the f_flags member containing the mount flags of
+ *	the filesystem containing the file.
+ *	This kind of struct statfs is coming from <sys/mount.h> (BSD 4.3),
+ *	not from <sys/statfs.h> (SYSV).  Older BSDs (like Ultrix) do not
+ *	have statfs() and struct statfs, they have ustat() and getmnt()
+ *	with struct ustat and struct fs_data.
+ */
+#define HAS_STRUCT_STATFS_F_FLAGS		/**/
+
+/* HAS_STRUCT_STATFS:
+ *	This symbol, if defined, indicates that the struct statfs
+ *	to do statfs() is supported.
+ */
+#define HAS_STRUCT_STATFS	/**/
+
+/* HAS_FSTATVFS:
+ *	This symbol, if defined, indicates that the fstatvfs routine is
+ *	available to stat filesystems by file descriptors.
+ */
+#define HAS_FSTATVFS		/**/
+
+/* HAS_STRFTIME:
+ *	This symbol, if defined, indicates that the strftime routine is
+ *	available to do time formatting.
+ */
+#define HAS_STRFTIME		/**/
+
+/* HAS_STRLCAT:
+ *	This symbol, if defined, indicates that the strlcat () routine is
+ *	available to do string concatenation.
+ */
+/*#define HAS_STRLCAT		/ **/
+
+/* HAS_STRLCPY:
+ *	This symbol, if defined, indicates that the strlcpy () routine is
+ *	available to do string copying.
+ */
+/*#define HAS_STRLCPY		/ **/
+
+/* HAS_STRTOLD:
+ *	This symbol, if defined, indicates that the strtold routine is
+ *	available to convert strings to long doubles.
+ */
+#define HAS_STRTOLD		/**/
+
+/* HAS_STRTOLL:
+ *	This symbol, if defined, indicates that the strtoll routine is
+ *	available to convert strings to long longs.
+ */
+#define HAS_STRTOLL		/**/
+
+/* HAS_STRTOQ:
+ *	This symbol, if defined, indicates that the strtoq routine is
+ *	available to convert strings to long longs (quads).
+ */
+#define HAS_STRTOQ		/**/
+
+/* HAS_STRTOULL:
+ *	This symbol, if defined, indicates that the strtoull routine is
+ *	available to convert strings to unsigned long longs.
+ */
+#define HAS_STRTOULL		/**/
+
+/* HAS_STRTOUQ:
+ *	This symbol, if defined, indicates that the strtouq routine is
+ *	available to convert strings to unsigned long longs (quads).
+ */
+#define HAS_STRTOUQ		/**/
+
+/* HAS_SYSCALL_PROTO:
+ *	This symbol, if defined, indicates that the system provides
+ *	a prototype for the syscall() function.  Otherwise, it is up
+ *	to the program to supply one.  Good guesses are
+ *		extern int syscall(int,  ...);
+ *		extern int syscall(long, ...);
+ */
+#define	HAS_SYSCALL_PROTO	/**/
+
+/* HAS_TELLDIR_PROTO:
+ *	This symbol, if defined, indicates that the system provides
+ *	a prototype for the telldir() function.  Otherwise, it is up
+ *	to the program to supply one.  A good guess is
+ *		extern long telldir(DIR*);
+ */
+#define	HAS_TELLDIR_PROTO	/**/
+
+/* HAS_TGAMMA:
+ *	This symbol, if defined, indicates that the tgamma routine is
+ *	available to do the gamma function. See also HAS_LGAMMA.
+ */
+#define HAS_TGAMMA		/**/
+
+/* HAS_CTIME64:
+ *	This symbol, if defined, indicates that the ctime64 () routine is
+ *	available to do the 64bit variant of ctime ()
+ */
+/* HAS_LOCALTIME64:
+ *	This symbol, if defined, indicates that the localtime64 () routine is
+ *	available to do the 64bit variant of localtime ()
+ */
+/* HAS_GMTIME64:
+ *	This symbol, if defined, indicates that the gmtime64 () routine is
+ *	available to do the 64bit variant of gmtime ()
+ */
+/* HAS_MKTIME64:
+ *	This symbol, if defined, indicates that the mktime64 () routine is
+ *	available to do the 64bit variant of mktime ()
+ */
+/* HAS_DIFFTIME64:
+ *	This symbol, if defined, indicates that the difftime64 () routine is
+ *	available to do the 64bit variant of difftime ()
+ */
+/* HAS_ASCTIME64:
+ *	This symbol, if defined, indicates that the asctime64 () routine is
+ *	available to do the 64bit variant of asctime ()
+ */
+/*#define	HAS_CTIME64		/ **/
+/*#define	HAS_LOCALTIME64		/ **/
+/*#define	HAS_GMTIME64		/ **/
+/*#define	HAS_MKTIME64		/ **/
+/*#define	HAS_DIFFTIME64		/ **/
+/*#define	HAS_ASCTIME64		/ **/
+
+/* HAS_TIMEGM:
+ *	This symbol, if defined, indicates that the timegm routine is
+ *	available to do the opposite of gmtime ()
+ */
+#define HAS_TIMEGM		/**/
+
+/* HAS_TRUNC:
+ *	This symbol, if defined, indicates that the trunc routine is
+ *	available to round doubles towards zero.
+ */
+#define HAS_TRUNC		/**/
+
+/* HAS_TRUNCL:
+ *	This symbol, if defined, indicates that the truncl routine is
+ *	available. If copysignl is also present we can emulate modfl.
+ */
+#define HAS_TRUNCL		/**/
+
+/* U32_ALIGNMENT_REQUIRED:
+ *	This symbol, if defined, indicates that you must access
+ *	character data through U32-aligned pointers.
+ */
+#ifndef U32_ALIGNMENT_REQUIRED
+#define U32_ALIGNMENT_REQUIRED	/**/
+#endif
+
+/* HAS_UALARM:
+ *	This symbol, if defined, indicates that the ualarm routine is
+ *	available to do alarms with microsecond granularity.
+ */
+/*#define HAS_UALARM		/ **/
+
+/* HAS_UNORDERED:
+ *	This symbol, if defined, indicates that the unordered routine is
+ *	available to check whether two doubles are unordered
+ *	(effectively: whether either of them is NaN)
+ */
+/*#define HAS_UNORDERED		/ **/
+
+/* HAS_UNSETENV:
+ *	This symbol, if defined, indicates that the unsetenv () routine is
+ *	available for use.
+ */
+#define HAS_UNSETENV		/**/
+
+/* HAS_USLEEP_PROTO:
+ *	This symbol, if defined, indicates that the system provides
+ *	a prototype for the usleep() function.  Otherwise, it is up
+ *	to the program to supply one.  A good guess is
+ *		extern int usleep(useconds_t);
+ */
+#define	HAS_USLEEP_PROTO	/**/
+
+/* HAS_USTAT:
+ *	This symbol, if defined, indicates that the ustat system call is
+ *	available to query file system statistics by dev_t.
+ */
+#define HAS_USTAT		/**/
+
+/* HAS_WCSCMP:
+ *	This symbol, if defined, indicates that the wcscmp routine is
+ *	available to compare two wide character strings.
+ */
+#define HAS_WCSCMP	/**/
+
+/* HAS_WCSXFRM:
+ *	This symbol, if defined, indicates that the wcsxfrm routine is
+ *	available to tranform a wide character string for wcscmp().
+ */
+#define HAS_WCSXFRM	/**/
+
+/* HAS_WRITEV:
+ *	This symbol, if defined, indicates that the writev routine is
+ *	available to do scatter writes.
+ */
+#define HAS_WRITEV		/**/
+
+/* USE_DYNAMIC_LOADING:
+ *	This symbol, if defined, indicates that dynamic loading of
+ *	some sort is available.
+ */
+#define USE_DYNAMIC_LOADING		/**/
+
+/* FFLUSH_NULL:
+ *	This symbol, if defined, tells that fflush(NULL) correctly
+ *	flushes all pending stdio output without side effects. In
+ *	particular, on some platforms calling fflush(NULL) *still*
+ *	corrupts STDIN if it is a pipe.
+ */
+/* FFLUSH_ALL:
+ *	This symbol, if defined, tells that to flush
+ *	all pending stdio output one must loop through all
+ *	the stdio file handles stored in an array and fflush them.
+ *	Note that if fflushNULL is defined, fflushall will not
+ *	even be probed for and will be left undefined.
+ */
+#define	FFLUSH_NULL 		/**/
+/*#define	FFLUSH_ALL 		/ **/
+
+/* I_ASSERT:
+ *	This symbol, if defined, indicates that <assert.h> exists and
+ *	could be included by the C program to get the assert() macro.
+ */
+#define	I_ASSERT		/**/
+
+/* I_BFD:
+ *	This symbol, if defined, indicates that <bfd.h> exists and
+ *	can be included.
+ */
+/*#define	I_BFD		/ **/
+
+/* I_CRYPT:
+ *	This symbol, if defined, indicates that <crypt.h> exists and
+ *	should be included.
+ */
+#define	I_CRYPT		/**/
+
+/* DB_Prefix_t:
+ *	This symbol contains the type of the prefix structure element
+ *	in the <db.h> header file.  In older versions of DB, it was
+ *	int, while in newer ones it is u_int32_t.
+ */
+/* DB_Hash_t:
+ *	This symbol contains the type of the prefix structure element
+ *	in the <db.h> header file.  In older versions of DB, it was
+ *	int, while in newer ones it is size_t.
+ */
+/* DB_VERSION_MAJOR_CFG:
+ *	This symbol, if defined, defines the major version number of
+ *	Berkeley DB found in the <db.h> header when Perl was configured.
+ */
+/* DB_VERSION_MINOR_CFG:
+ *	This symbol, if defined, defines the minor version number of
+ *	Berkeley DB found in the <db.h> header when Perl was configured.
+ *	For DB version 1 this is always 0.
+ */
+/* DB_VERSION_PATCH_CFG:
+ *	This symbol, if defined, defines the patch version number of
+ *	Berkeley DB found in the <db.h> header when Perl was configured.
+ *	For DB version 1 this is always 0.
+ */
+#define DB_Hash_t	u_int32_t		/**/
+#define DB_Prefix_t	size_t  	/**/
+#define DB_VERSION_MAJOR_CFG	  	/**/
+#define DB_VERSION_MINOR_CFG	  	/**/
+#define DB_VERSION_PATCH_CFG	  	/**/
+
+/* I_FENV:
+ *	This symbol, if defined, indicates to the C program that it should
+ *	include <fenv.h> to get the floating point environment definitions.
+ */
+#define I_FENV		/**/
+
+/* I_FP:
+ *	This symbol, if defined, indicates that <fp.h> exists and
+ *	should be included.
+ */
+/*#define	I_FP		/ **/
+
+/* I_FP_CLASS:
+ *	This symbol, if defined, indicates that <fp_class.h> exists and
+ *	should be included.
+ */
+/*#define	I_FP_CLASS		/ **/
+
+/* I_IEEEFP:
+ *	This symbol, if defined, indicates that <ieeefp.h> exists and
+ *	should be included.
+ */
+/*#define	I_IEEEFP		/ **/
+
+/* I_INTTYPES:
+ *     This symbol, if defined, indicates to the C program that it should
+ *     include <inttypes.h>.
+ */
+#define   I_INTTYPES                /**/
+
+/* I_LANGINFO:
+ *	This symbol, if defined, indicates that <langinfo.h> exists and
+ *	should be included.
+ */
+#define	I_LANGINFO		/**/
+
+/* I_LIBUTIL:
+ *	This symbol, if defined, indicates that <libutil.h> exists and
+ *	should be included.
+ */
+/*#define	I_LIBUTIL		/ **/
+
+/* I_MALLOCMALLOC:
+ *	This symbol, if defined, indicates to the C program that it should
+ *	include <malloc/malloc.h>.
+ */
+/*#define I_MALLOCMALLOC		/ **/
+
+/* I_MNTENT:
+ *	This symbol, if defined, indicates that <mntent.h> exists and
+ *	should be included.
+ */
+#define	I_MNTENT		/**/
+
+/* I_NETINET_TCP:
+ *     This symbol, if defined, indicates to the C program that it should
+ *     include <netinet/tcp.h>.
+ */
+#define   I_NETINET_TCP                /**/
+
+/* I_POLL:
+ *	This symbol, if defined, indicates that <poll.h> exists and
+ *	should be included. (see also HAS_POLL)
+ */
+#define	I_POLL		/**/
+
+/* I_PROT:
+ *	This symbol, if defined, indicates that <prot.h> exists and
+ *	should be included.
+ */
+/*#define	I_PROT		/ **/
+
+/* I_QUADMATH:
+ *	This symbol, if defined, indicates that <quadmath.h> exists and
+ *	should be included.
+ */
+#define	I_QUADMATH		/**/
+
+/* I_SHADOW:
+ *	This symbol, if defined, indicates that <shadow.h> exists and
+ *	should be included.
+ */
+#define	I_SHADOW		/**/
+
+/* I_SOCKS:
+ *	This symbol, if defined, indicates that <socks.h> exists and
+ *	should be included.
+ */
+/*#define	I_SOCKS		/ **/
+
+/* I_STDBOOL:
+ *	This symbol, if defined, indicates that <stdbool.h> exists and
+ *	can be included.
+ */
+#define	I_STDBOOL		/**/
+
+/* I_STDINT:
+ *	This symbol, if defined, indicates that <stdint.h> exists and
+ *	should be included.
+ */
+#define I_STDINT		/**/
+
+/* I_SUNMATH:
+ *	This symbol, if defined, indicates that <sunmath.h> exists and
+ *	should be included.
+ */
+/*#define	I_SUNMATH		/ **/
+
+/* I_SYSLOG:
+ *	This symbol, if defined, indicates that <syslog.h> exists and
+ *	should be included.
+ */
+#define	I_SYSLOG		/**/
+
+/* I_SYSMODE:
+ *	This symbol, if defined, indicates that <sys/mode.h> exists and
+ *	should be included.
+ */
+/*#define	I_SYSMODE		/ **/
+
+/* I_SYS_MOUNT:
+ *	This symbol, if defined, indicates that <sys/mount.h> exists and
+ *	should be included.
+ */
+#define	I_SYS_MOUNT		/**/
+
+/* I_SYS_STATFS:
+ *	This symbol, if defined, indicates that <sys/statfs.h> exists.
+ */
+#define	I_SYS_STATFS		/**/
+
+/* I_SYS_STATVFS:
+ *	This symbol, if defined, indicates that <sys/statvfs.h> exists and
+ *	should be included.
+ */
+#define	I_SYS_STATVFS		/**/
+
+/* I_SYSUTSNAME:
+ *	This symbol, if defined, indicates that <sys/utsname.h> exists and
+ *	should be included.
+ */
+#define	I_SYSUTSNAME		/**/
+
+/* I_SYS_VFS:
+ *	This symbol, if defined, indicates that <sys/vfs.h> exists and
+ *	should be included.
+ */
+#define	I_SYS_VFS		/**/
+
+/* I_USTAT:
+ *	This symbol, if defined, indicates that <ustat.h> exists and
+ *	should be included.
+ */
+#define	I_USTAT		/**/
+
+/* DOUBLEINFBYTES:
+ *	This symbol, if defined, is a comma-separated list of
+ *	hexadecimal bytes for the double precision infinity.
+ */
+/* DOUBLENANBYTES:
+ *	This symbol, if defined, is a comma-separated list of
+ *	hexadecimal bytes (0xHH) for the double precision not-a-number.
+ */
+/* LONGDBLINFBYTES:
+ *	This symbol, if defined, is a comma-separated list of
+ *	hexadecimal bytes for the long double precision infinity.
+ */
+/* LONGDBLNANBYTES:
+ *	This symbol, if defined, is a comma-separated list of
+ *	hexadecimal bytes (0xHH) for the long double precision not-a-number.
+ */
+#define DOUBLEINFBYTES  0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xf0, 0x7f		/**/
+#define DOUBLENANBYTES  0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xf8, 0xff		/**/
+#define LONGDBLINFBYTES 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x80, 0xff, 0x7f, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00		/**/
+#define LONGDBLNANBYTES 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xc0, 0xff, 0xff, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00		/**/
+
+/* PERL_PRIfldbl:
+ *	This symbol, if defined, contains the string used by stdio to
+ *	format long doubles (format 'f') for output.
+ */
+/* PERL_PRIgldbl:
+ *	This symbol, if defined, contains the string used by stdio to
+ *	format long doubles (format 'g') for output.
+ */
+/* PERL_PRIeldbl:
+ *	This symbol, if defined, contains the string used by stdio to
+ *	format long doubles (format 'e') for output.
+ */
+/* PERL_SCNfldbl:
+ *	This symbol, if defined, contains the string used by stdio to
+ *	format long doubles (format 'f') for input.
+ */
+/* DOUBLEKIND:
+ *	DOUBLEKIND will be one of
+ *	DOUBLE_IS_IEEE_754_32_BIT_LITTLE_ENDIAN
+ *	DOUBLE_IS_IEEE_754_32_BIT_BIG_ENDIAN
+ *	DOUBLE_IS_IEEE_754_64_BIT_LITTLE_ENDIAN
+ *	DOUBLE_IS_IEEE_754_64_BIT_BIG_ENDIAN
+ *	DOUBLE_IS_IEEE_754_128_BIT_LITTLE_ENDIAN
+ *	DOUBLE_IS_IEEE_754_128_BIT_BIG_ENDIAN
+ *	DOUBLE_IS_IEEE_754_64_BIT_MIXED_ENDIAN_LE_BE
+ *	DOUBLE_IS_IEEE_754_64_BIT_MIXED_ENDIAN_BE_LE
+ *	DOUBLE_IS_UNKNOWN_FORMAT
+ */
+#define DOUBLEKIND 3		/**/
+#define DOUBLE_IS_IEEE_754_32_BIT_LITTLE_ENDIAN	1
+#define DOUBLE_IS_IEEE_754_32_BIT_BIG_ENDIAN	2
+#define DOUBLE_IS_IEEE_754_64_BIT_LITTLE_ENDIAN	3
+#define DOUBLE_IS_IEEE_754_64_BIT_BIG_ENDIAN	4
+#define DOUBLE_IS_IEEE_754_128_BIT_LITTLE_ENDIAN	5
+#define DOUBLE_IS_IEEE_754_128_BIT_BIG_ENDIAN	6
+#define DOUBLE_IS_IEEE_754_64_BIT_MIXED_ENDIAN_LE_BE	7
+#define DOUBLE_IS_IEEE_754_64_BIT_MIXED_ENDIAN_BE_LE	8
+#define DOUBLE_IS_UNKNOWN_FORMAT		-1
+#define PERL_PRIfldbl	"Lf"	/**/
+#define PERL_PRIgldbl	"Lg"	/**/
+#define PERL_PRIeldbl	"Le"	/**/
+#define PERL_SCNfldbl	"Lf"	/**/
+
+/* DOUBLEMANTBITS:
+ *	This symbol, if defined, tells how many mantissa bits
+ *	there are in double precision floating point format.
+ *	Note that this is usually DBL_MANT_DIG minus one, since
+ *	with the standard IEEE 754 formats DBL_MANT_DIG includes
+ *	the implicit bit, which doesn't really exist.
+ */
+/* LONGDBLMANTBITS:
+ *	This symbol, if defined, tells how many mantissa bits
+ *	there are in long double precision floating point format.
+ *	Note that this can be LDBL_MANT_DIG minus one,
+ *	since LDBL_MANT_DIG can include the IEEE 754 implicit bit.
+ *	The common x86-style 80-bit long double does not have
+ *	an implicit bit.
+ */
+/* NVMANTBITS:
+ *	This symbol, if defined, tells how many mantissa bits
+ *	(not including implicit bit) there are in a Perl NV.
+ *	This depends on which floating point type was chosen.
+ */
+#define DOUBLEMANTBITS  52
+#define LONGDBLMANTBITS 64
+#define NVMANTBITS      52
+
+/* NEED_VA_COPY:
+ *	This symbol, if defined, indicates that the system stores
+ *	the variable argument list datatype, va_list, in a format
+ *	that cannot be copied by simple assignment, so that some
+ *	other means must be used when copying is required.
+ *	As such systems vary in their provision (or non-provision)
+ *	of copying mechanisms, handy.h defines a platform-
+ *	independent macro, Perl_va_copy(src, dst), to do the job.
+ */
+#define	NEED_VA_COPY		/**/
+
+/* IVTYPE:
+ *	This symbol defines the C type used for Perl's IV.
+ */
+/* UVTYPE:
+ *	This symbol defines the C type used for Perl's UV.
+ */
+/* I8TYPE:
+ *	This symbol defines the C type used for Perl's I8.
+ */
+/* U8TYPE:
+ *	This symbol defines the C type used for Perl's U8.
+ */
+/* I16TYPE:
+ *	This symbol defines the C type used for Perl's I16.
+ */
+/* U16TYPE:
+ *	This symbol defines the C type used for Perl's U16.
+ */
+/* I32TYPE:
+ *	This symbol defines the C type used for Perl's I32.
+ */
+/* U32TYPE:
+ *	This symbol defines the C type used for Perl's U32.
+ */
+/* I64TYPE:
+ *	This symbol defines the C type used for Perl's I64.
+ */
+/* U64TYPE:
+ *	This symbol defines the C type used for Perl's U64.
+ */
+/* NVTYPE:
+ *	This symbol defines the C type used for Perl's NV.
+ */
+/* IVSIZE:
+ *	This symbol contains the sizeof(IV).
+ */
+/* UVSIZE:
+ *	This symbol contains the sizeof(UV).
+ */
+/* I8SIZE:
+ *	This symbol contains the sizeof(I8).
+ */
+/* U8SIZE:
+ *	This symbol contains the sizeof(U8).
+ */
+/* I16SIZE:
+ *	This symbol contains the sizeof(I16).
+ */
+/* U16SIZE:
+ *	This symbol contains the sizeof(U16).
+ */
+/* I32SIZE:
+ *	This symbol contains the sizeof(I32).
+ */
+/* U32SIZE:
+ *	This symbol contains the sizeof(U32).
+ */
+/* I64SIZE:
+ *	This symbol contains the sizeof(I64).
+ */
+/* U64SIZE:
+ *	This symbol contains the sizeof(U64).
+ */
+/* NVSIZE:
+ *	This symbol contains the sizeof(NV).
+ *	Note that some floating point formats have unused bytes.
+ *	The most notable example is the x86* 80-bit extended precision
+ *	which comes in byte sizes of 12 and 16 (for 32 and 64 bit
+ *	platforms, respectively), but which only uses 10 bytes.
+ *	Perl compiled with -Duselongdouble on x86* is like this.
+ */
+/* NV_PRESERVES_UV:
+ *	This symbol, if defined, indicates that a variable of type NVTYPE
+ *	can preserve all the bits of a variable of type UVTYPE.
+ */
+/* NV_PRESERVES_UV_BITS:
+ *	This symbol contains the number of bits a variable of type NVTYPE
+ *	can preserve of a variable of type UVTYPE.
+ */
+/* NV_OVERFLOWS_INTEGERS_AT:
+ *	This symbol gives the largest integer value that NVs can hold. This
+ *	value + 1.0 cannot be stored accurately. It is expressed as constant
+ *	floating point expression to reduce the chance of decimal/binary
+ *	conversion issues. If it can not be determined, the value 0 is given.
+ */
+/* NV_ZERO_IS_ALLBITS_ZERO:
+ *	This symbol, if defined, indicates that a variable of type NVTYPE
+ *	stores 0.0 in memory as all bits zero.
+ */
+#define	IVTYPE		long		/**/
+#define	UVTYPE		unsigned long		/**/
+#define	I8TYPE		signed char		/**/
+#define	U8TYPE		unsigned char		/**/
+#define	I16TYPE		short	/**/
+#define	U16TYPE		unsigned short	/**/
+#define	I32TYPE		int	/**/
+#define	U32TYPE		unsigned int	/**/
+#ifdef HAS_QUAD
+#define	I64TYPE		long	/**/
+#define	U64TYPE		unsigned long	/**/
+#endif
+#define	NVTYPE		double		/**/
+#define	IVSIZE		8		/**/
+#define	UVSIZE		8		/**/
+#define	I8SIZE		1		/**/
+#define	U8SIZE		1		/**/
+#define	I16SIZE		2	/**/
+#define	U16SIZE		2	/**/
+#define	I32SIZE		4	/**/
+#define	U32SIZE		4	/**/
+#ifdef HAS_QUAD
+#define	I64SIZE		8	/**/
+#define	U64SIZE		8	/**/
+#endif
+#define	NVSIZE		8		/**/
+#undef	NV_PRESERVES_UV
+#define	NV_PRESERVES_UV_BITS	53
+#define	NV_OVERFLOWS_INTEGERS_AT	256.0*256.0*256.0*256.0*256.0*256.0*2.0*2.0*2.0*2.0*2.0
+#define	NV_ZERO_IS_ALLBITS_ZERO
+#if UVSIZE == 8
+#   ifdef BYTEORDER
+#       if BYTEORDER == 0x1234
+#           undef BYTEORDER
+#           define BYTEORDER 0x12345678
+#       else
+#           if BYTEORDER == 0x4321
+#               undef BYTEORDER
+#               define BYTEORDER 0x87654321
+#           endif
+#       endif
+#   endif
+#endif
+
+/* IVdf:
+ *	This symbol defines the format string used for printing a Perl IV
+ *	as a signed decimal integer.
+ */
+/* UVuf:
+ *	This symbol defines the format string used for printing a Perl UV
+ *	as an unsigned decimal integer.
+ */
+/* UVof:
+ *	This symbol defines the format string used for printing a Perl UV
+ *	as an unsigned octal integer.
+ */
+/* UVxf:
+ *	This symbol defines the format string used for printing a Perl UV
+ *	as an unsigned hexadecimal integer in lowercase abcdef.
+ */
+/* UVXf:
+ *	This symbol defines the format string used for printing a Perl UV
+ *	as an unsigned hexadecimal integer in uppercase ABCDEF.
+ */
+/* NVef:
+ *	This symbol defines the format string used for printing a Perl NV
+ *	using %e-ish floating point format.
+ */
+/* NVff:
+ *	This symbol defines the format string used for printing a Perl NV
+ *	using %f-ish floating point format.
+ */
+/* NVgf:
+ *	This symbol defines the format string used for printing a Perl NV
+ *	using %g-ish floating point format.
+ */
+#define	IVdf		"ld"		/**/
+#define	UVuf		"lu"		/**/
+#define	UVof		"lo"		/**/
+#define	UVxf		"lx"		/**/
+#define	UVXf		"lX"		/**/
+#define	NVef		"e"		/**/
+#define	NVff		"f"		/**/
+#define	NVgf		"g"		/**/
+
+/* SELECT_MIN_BITS:
+ *	This symbol holds the minimum number of bits operated by select.
+ *	That is, if you do select(n, ...), how many bits at least will be
+ *	cleared in the masks if some activity is detected.  Usually this
+ *	is either n or 32*ceil(n/32), especially many little-endians do
+ *	the latter.  This is only useful if you have select(), naturally.
+ */
+#define SELECT_MIN_BITS 	64	/**/
+
+/* ST_INO_SIZE:
+ *	This variable contains the size of struct stat's st_ino in bytes.
+ */
+/* ST_INO_SIGN:
+ *	This symbol holds the signedness of struct stat's st_ino.
+ *	1 for unsigned, -1 for signed.
+ */
+#define ST_INO_SIGN 1	/* st_ino sign */
+#define ST_INO_SIZE 8	/* st_ino size */
+
+/* STARTPERL:
+ *	This variable contains the string to put in front of a perl
+ *	script to make sure (one hopes) that it runs with perl and not
+ *	some shell.
+ */
+#define STARTPERL "#!/home/git/binary-com/perl/bin/perl"		/**/
+
+/* HAS_STDIO_STREAM_ARRAY:
+ *	This symbol, if defined, tells that there is an array
+ *	holding the stdio streams.
+ */
+/* STDIO_STREAM_ARRAY:
+ *	This symbol tells the name of the array holding the stdio streams.
+ *	Usual values include _iob, __iob, and __sF.
+ */
+/*#define	HAS_STDIO_STREAM_ARRAY	/ **/
+#ifdef HAS_STDIO_STREAM_ARRAY
+#define STDIO_STREAM_ARRAY	
+#endif
+
+/* GMTIME_MAX:
+ *	This symbol contains the maximum value for the time_t offset that
+ *	the system function gmtime () accepts, and defaults to 0
+ */
+/* GMTIME_MIN:
+ *	This symbol contains the minimum value for the time_t offset that
+ *	the system function gmtime () accepts, and defaults to 0
+ */
+/* LOCALTIME_MAX:
+ *	This symbol contains the maximum value for the time_t offset that
+ *	the system function localtime () accepts, and defaults to 0
+ */
+/* LOCALTIME_MIN:
+ *	This symbol contains the minimum value for the time_t offset that
+ *	the system function localtime () accepts, and defaults to 0
+ */
+#define GMTIME_MAX		67768036191676799	/**/
+#define GMTIME_MIN		-62167219200	/**/
+#define LOCALTIME_MAX	67768036191676799	/**/
+#define LOCALTIME_MIN	-62167219200	/**/
+
+/* USE_64_BIT_INT:
+ *	This symbol, if defined, indicates that 64-bit integers should
+ *	be used when available.  If not defined, the native integers
+ *	will be employed (be they 32 or 64 bits).  The minimal possible
+ *	64-bitness is used, just enough to get 64-bit integers into Perl.
+ *	This may mean using for example "long longs", while your memory
+ *	may still be limited to 2 gigabytes.
+ */
+/* USE_64_BIT_ALL:
+ *	This symbol, if defined, indicates that 64-bit integers should
+ *	be used when available.  If not defined, the native integers
+ *	will be used (be they 32 or 64 bits).  The maximal possible
+ *	64-bitness is employed: LP64 or ILP64, meaning that you will
+ *	be able to use more than 2 gigabytes of memory.  This mode is
+ *	even more binary incompatible than USE_64_BIT_INT. You may not
+ *	be able to run the resulting executable in a 32-bit CPU at all or
+ *	you may need at least to reboot your OS to 64-bit mode.
+ */
+#ifndef USE_64_BIT_INT
+#define	USE_64_BIT_INT		/**/
+#endif
+#ifndef USE_64_BIT_ALL
+#define	USE_64_BIT_ALL		/**/
+#endif
+
+/* USE_CBACKTRACE:
+ *	This symbol, if defined, indicates that Perl should
+ *	be built with support for backtrace.
+ */
+/*#define USE_CBACKTRACE		/ **/
+
+/* USE_DTRACE:
+ *	This symbol, if defined, indicates that Perl should
+ *	be built with support for DTrace.
+ */
+/*#define USE_DTRACE		/ **/
+
+/* USE_FAST_STDIO:
+ *	This symbol, if defined, indicates that Perl should
+ *	be built to use 'fast stdio'.
+ *	Defaults to define in Perls 5.8 and earlier, to undef later.
+ */
+#ifndef USE_FAST_STDIO
+/*#define	USE_FAST_STDIO		/ **/
+#endif
+
+/* USE_KERN_PROC_PATHNAME:
+ *	This symbol, if defined, indicates that we can use sysctl with
+ *	KERN_PROC_PATHNAME to get a full path for the executable, and hence
+ * 	convert $^X to an absolute path.
+ */
+/*#define USE_KERN_PROC_PATHNAME	/ **/
+
+/* USE_LARGE_FILES:
+ *	This symbol, if defined, indicates that large file support
+ *	should be used when available.
+ */
+#ifndef USE_LARGE_FILES
+#define	USE_LARGE_FILES		/**/
+#endif
+
+/* USE_LONG_DOUBLE:
+ *	This symbol, if defined, indicates that long doubles should
+ *	be used when available.
+ */
+#ifndef USE_LONG_DOUBLE
+/*#define	USE_LONG_DOUBLE		/ **/
+#endif
+
+/* USE_MORE_BITS:
+ *	This symbol, if defined, indicates that 64-bit interfaces and
+ *	long doubles should be used when available.
+ */
+#ifndef USE_MORE_BITS
+/*#define	USE_MORE_BITS		/ **/
+#endif
+
+/* MULTIPLICITY:
+ *	This symbol, if defined, indicates that Perl should
+ *	be built to use multiplicity.
+ */
+#ifndef MULTIPLICITY
+/*#define	MULTIPLICITY		/ **/
+#endif
+
+/* USE_NSGETEXECUTABLEPATH:
+ *	This symbol, if defined, indicates that we can use _NSGetExecutablePath
+ *	and realpath to get a full path for the executable, and hence convert
+ *	$^X to an absolute path.
+ */
+/*#define USE_NSGETEXECUTABLEPATH	/ **/
+
+/* USE_PERLIO:
+ *	This symbol, if defined, indicates that the PerlIO abstraction should
+ *	be used throughout.  If not defined, stdio should be
+ *	used in a fully backward compatible manner.
+ */
+#ifndef USE_PERLIO
+#define	USE_PERLIO		/**/
+#endif
+
+/* USE_QUADMATH:
+ *	This symbol, if defined, indicates that the quadmath library should
+ *	be used when available.
+ */
+#ifndef USE_QUADMATH
+/*#define	USE_QUADMATH		/ **/
+#endif
+
+/* USE_SOCKS:
+ *	This symbol, if defined, indicates that Perl should
+ *	be built to use socks.
+ */
+#ifndef USE_SOCKS
+/*#define	USE_SOCKS		/ **/
+#endif
+
+/* HAS_DRAND48_PROTO:
+ *	This symbol, if defined, indicates that the system provides
+ *	a prototype for the drand48() function.  Otherwise, it is up
+ *	to the program to supply one.  A good guess is
+ *		extern double drand48(void);
+ */
+#define	HAS_DRAND48_PROTO	/**/
+
+/* HAS_GETHOST_PROTOS:
+ *	This symbol, if defined, indicates that <netdb.h> includes
+ *	prototypes for gethostent(), gethostbyname(), and
+ *	gethostbyaddr().  Otherwise, it is up to the program to guess
+ *	them.  See netdbtype.U for probing for various Netdb_xxx_t types.
+ */
+#define	HAS_GETHOST_PROTOS	/**/
+
+/* HAS_GETNET_PROTOS:
+ *	This symbol, if defined, indicates that <netdb.h> includes
+ *	prototypes for getnetent(), getnetbyname(), and
+ *	getnetbyaddr().  Otherwise, it is up to the program to guess
+ *	them.  See netdbtype.U for probing for various Netdb_xxx_t types.
+ */
+#define	HAS_GETNET_PROTOS	/**/
+
+/* HAS_GETPROTO_PROTOS:
+ *	This symbol, if defined, indicates that <netdb.h> includes
+ *	prototypes for getprotoent(), getprotobyname(), and
+ *	getprotobyaddr().  Otherwise, it is up to the program to guess
+ *	them.  See netdbtype.U for probing for various Netdb_xxx_t types.
+ */
+#define	HAS_GETPROTO_PROTOS	/**/
+
+/* HAS_GETSERV_PROTOS:
+ *	This symbol, if defined, indicates that <netdb.h> includes
+ *	prototypes for getservent(), getservbyname(), and
+ *	getservbyaddr().  Otherwise, it is up to the program to guess
+ *	them.  See netdbtype.U for probing for various Netdb_xxx_t types.
+ */
+#define	HAS_GETSERV_PROTOS	/**/
+
+/* HAS_LSEEK_PROTO:
+ *	This symbol, if defined, indicates that the system provides
+ *	a prototype for the lseek() function.  Otherwise, it is up
+ *	to the program to supply one.  A good guess is
+ *		extern off_t lseek(int, off_t, int);
+ */
+#define	HAS_LSEEK_PROTO	/**/
+
+/* Netdb_host_t:
+ *	This symbol holds the type used for the 1st argument
+ *	to gethostbyaddr().
+ */
+/* Netdb_hlen_t:
+ *	This symbol holds the type used for the 2nd argument
+ *	to gethostbyaddr().
+ */
+/* Netdb_name_t:
+ *	This symbol holds the type used for the argument to
+ *	gethostbyname().
+ */
+/* Netdb_net_t:
+ *	This symbol holds the type used for the 1st argument to
+ *	getnetbyaddr().
+ */
+#define Netdb_host_t		char * /**/
+#define Netdb_hlen_t		size_t /**/
+#define Netdb_name_t		const char * /**/
+#define Netdb_net_t		in_addr_t /**/
+
+/* Select_fd_set_t:
+ *	This symbol holds the type used for the 2nd, 3rd, and 4th
+ *	arguments to select.  Usually, this is 'fd_set *', if HAS_FD_SET
+ *	is defined, and 'int *' otherwise.  This is only useful if you
+ *	have select(), of course.
+ */
+#define Select_fd_set_t 	fd_set *	/**/
+
+/* Sock_size_t:
+ *	This symbol holds the type used for the size argument of
+ *	various socket calls (just the base type, not the pointer-to).
+ */
+#define Sock_size_t		socklen_t /**/
+
+/* ARCHNAME:
+ *	This symbol holds a string representing the architecture name.
+ *	It may be used to construct an architecture-dependant pathname
+ *	where library files may be held under a private library, for
+ *	instance.
+ */
+#define ARCHNAME "x86_64-linux"		/**/
+
+/* HAS_ASCTIME_R:
+ *	This symbol, if defined, indicates that the asctime_r routine
+ *	is available to asctime re-entrantly.
+ */
+/* ASCTIME_R_PROTO:
+ *	This symbol encodes the prototype of asctime_r.
+ *	It is zero if d_asctime_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_asctime_r
+ *	is defined.
+ */
+/*#define HAS_ASCTIME_R	   / **/
+#define ASCTIME_R_PROTO 0	   /**/
+
+/* HAS_CRYPT_R:
+ *	This symbol, if defined, indicates that the crypt_r routine
+ *	is available to crypt re-entrantly.
+ */
+/* CRYPT_R_PROTO:
+ *	This symbol encodes the prototype of crypt_r.
+ *	It is zero if d_crypt_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_crypt_r
+ *	is defined.
+ */
+/*#define HAS_CRYPT_R	   / **/
+#define CRYPT_R_PROTO 0	   /**/
+
+/* HAS_CTERMID_R:
+ *	This symbol, if defined, indicates that the ctermid_r routine
+ *	is available to ctermid re-entrantly.
+ */
+/* CTERMID_R_PROTO:
+ *	This symbol encodes the prototype of ctermid_r.
+ *	It is zero if d_ctermid_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_ctermid_r
+ *	is defined.
+ */
+/*#define HAS_CTERMID_R	   / **/
+#define CTERMID_R_PROTO 0	   /**/
+
+/* HAS_CTIME_R:
+ *	This symbol, if defined, indicates that the ctime_r routine
+ *	is available to ctime re-entrantly.
+ */
+/* CTIME_R_PROTO:
+ *	This symbol encodes the prototype of ctime_r.
+ *	It is zero if d_ctime_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_ctime_r
+ *	is defined.
+ */
+/*#define HAS_CTIME_R	   / **/
+#define CTIME_R_PROTO 0	   /**/
+
+/* HAS_DRAND48_R:
+ *	This symbol, if defined, indicates that the drand48_r routine
+ *	is available to drand48 re-entrantly.
+ */
+/* DRAND48_R_PROTO:
+ *	This symbol encodes the prototype of drand48_r.
+ *	It is zero if d_drand48_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_drand48_r
+ *	is defined.
+ */
+/*#define HAS_DRAND48_R	   / **/
+#define DRAND48_R_PROTO 0	   /**/
+
+/* HAS_ENDGRENT_R:
+ *	This symbol, if defined, indicates that the endgrent_r routine
+ *	is available to endgrent re-entrantly.
+ */
+/* ENDGRENT_R_PROTO:
+ *	This symbol encodes the prototype of endgrent_r.
+ *	It is zero if d_endgrent_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_endgrent_r
+ *	is defined.
+ */
+/*#define HAS_ENDGRENT_R	   / **/
+#define ENDGRENT_R_PROTO 0	   /**/
+
+/* HAS_ENDHOSTENT_R:
+ *	This symbol, if defined, indicates that the endhostent_r routine
+ *	is available to endhostent re-entrantly.
+ */
+/* ENDHOSTENT_R_PROTO:
+ *	This symbol encodes the prototype of endhostent_r.
+ *	It is zero if d_endhostent_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_endhostent_r
+ *	is defined.
+ */
+/*#define HAS_ENDHOSTENT_R	   / **/
+#define ENDHOSTENT_R_PROTO 0	   /**/
+
+/* HAS_ENDNETENT_R:
+ *	This symbol, if defined, indicates that the endnetent_r routine
+ *	is available to endnetent re-entrantly.
+ */
+/* ENDNETENT_R_PROTO:
+ *	This symbol encodes the prototype of endnetent_r.
+ *	It is zero if d_endnetent_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_endnetent_r
+ *	is defined.
+ */
+/*#define HAS_ENDNETENT_R	   / **/
+#define ENDNETENT_R_PROTO 0	   /**/
+
+/* HAS_ENDPROTOENT_R:
+ *	This symbol, if defined, indicates that the endprotoent_r routine
+ *	is available to endprotoent re-entrantly.
+ */
+/* ENDPROTOENT_R_PROTO:
+ *	This symbol encodes the prototype of endprotoent_r.
+ *	It is zero if d_endprotoent_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_endprotoent_r
+ *	is defined.
+ */
+/*#define HAS_ENDPROTOENT_R	   / **/
+#define ENDPROTOENT_R_PROTO 0	   /**/
+
+/* HAS_ENDPWENT_R:
+ *	This symbol, if defined, indicates that the endpwent_r routine
+ *	is available to endpwent re-entrantly.
+ */
+/* ENDPWENT_R_PROTO:
+ *	This symbol encodes the prototype of endpwent_r.
+ *	It is zero if d_endpwent_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_endpwent_r
+ *	is defined.
+ */
+/*#define HAS_ENDPWENT_R	   / **/
+#define ENDPWENT_R_PROTO 0	   /**/
+
+/* HAS_ENDSERVENT_R:
+ *	This symbol, if defined, indicates that the endservent_r routine
+ *	is available to endservent re-entrantly.
+ */
+/* ENDSERVENT_R_PROTO:
+ *	This symbol encodes the prototype of endservent_r.
+ *	It is zero if d_endservent_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_endservent_r
+ *	is defined.
+ */
+/*#define HAS_ENDSERVENT_R	   / **/
+#define ENDSERVENT_R_PROTO 0	   /**/
+
+/* HAS_GETGRENT_R:
+ *	This symbol, if defined, indicates that the getgrent_r routine
+ *	is available to getgrent re-entrantly.
+ */
+/* GETGRENT_R_PROTO:
+ *	This symbol encodes the prototype of getgrent_r.
+ *	It is zero if d_getgrent_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_getgrent_r
+ *	is defined.
+ */
+/*#define HAS_GETGRENT_R	   / **/
+#define GETGRENT_R_PROTO 0	   /**/
+
+/* HAS_GETGRGID_R:
+ *	This symbol, if defined, indicates that the getgrgid_r routine
+ *	is available to getgrgid re-entrantly.
+ */
+/* GETGRGID_R_PROTO:
+ *	This symbol encodes the prototype of getgrgid_r.
+ *	It is zero if d_getgrgid_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_getgrgid_r
+ *	is defined.
+ */
+/*#define HAS_GETGRGID_R	   / **/
+#define GETGRGID_R_PROTO 0	   /**/
+
+/* HAS_GETGRNAM_R:
+ *	This symbol, if defined, indicates that the getgrnam_r routine
+ *	is available to getgrnam re-entrantly.
+ */
+/* GETGRNAM_R_PROTO:
+ *	This symbol encodes the prototype of getgrnam_r.
+ *	It is zero if d_getgrnam_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_getgrnam_r
+ *	is defined.
+ */
+/*#define HAS_GETGRNAM_R	   / **/
+#define GETGRNAM_R_PROTO 0	   /**/
+
+/* HAS_GETHOSTBYADDR_R:
+ *	This symbol, if defined, indicates that the gethostbyaddr_r routine
+ *	is available to gethostbyaddr re-entrantly.
+ */
+/* GETHOSTBYADDR_R_PROTO:
+ *	This symbol encodes the prototype of gethostbyaddr_r.
+ *	It is zero if d_gethostbyaddr_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_gethostbyaddr_r
+ *	is defined.
+ */
+/*#define HAS_GETHOSTBYADDR_R	   / **/
+#define GETHOSTBYADDR_R_PROTO 0	   /**/
+
+/* HAS_GETHOSTBYNAME_R:
+ *	This symbol, if defined, indicates that the gethostbyname_r routine
+ *	is available to gethostbyname re-entrantly.
+ */
+/* GETHOSTBYNAME_R_PROTO:
+ *	This symbol encodes the prototype of gethostbyname_r.
+ *	It is zero if d_gethostbyname_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_gethostbyname_r
+ *	is defined.
+ */
+/*#define HAS_GETHOSTBYNAME_R	   / **/
+#define GETHOSTBYNAME_R_PROTO 0	   /**/
+
+/* HAS_GETHOSTENT_R:
+ *	This symbol, if defined, indicates that the gethostent_r routine
+ *	is available to gethostent re-entrantly.
+ */
+/* GETHOSTENT_R_PROTO:
+ *	This symbol encodes the prototype of gethostent_r.
+ *	It is zero if d_gethostent_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_gethostent_r
+ *	is defined.
+ */
+/*#define HAS_GETHOSTENT_R	   / **/
+#define GETHOSTENT_R_PROTO 0	   /**/
+
+/* HAS_GETLOGIN_R:
+ *	This symbol, if defined, indicates that the getlogin_r routine
+ *	is available to getlogin re-entrantly.
+ */
+/* GETLOGIN_R_PROTO:
+ *	This symbol encodes the prototype of getlogin_r.
+ *	It is zero if d_getlogin_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_getlogin_r
+ *	is defined.
+ */
+/*#define HAS_GETLOGIN_R	   / **/
+#define GETLOGIN_R_PROTO 0	   /**/
+
+/* HAS_GETNETBYADDR_R:
+ *	This symbol, if defined, indicates that the getnetbyaddr_r routine
+ *	is available to getnetbyaddr re-entrantly.
+ */
+/* GETNETBYADDR_R_PROTO:
+ *	This symbol encodes the prototype of getnetbyaddr_r.
+ *	It is zero if d_getnetbyaddr_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_getnetbyaddr_r
+ *	is defined.
+ */
+/*#define HAS_GETNETBYADDR_R	   / **/
+#define GETNETBYADDR_R_PROTO 0	   /**/
+
+/* HAS_GETNETBYNAME_R:
+ *	This symbol, if defined, indicates that the getnetbyname_r routine
+ *	is available to getnetbyname re-entrantly.
+ */
+/* GETNETBYNAME_R_PROTO:
+ *	This symbol encodes the prototype of getnetbyname_r.
+ *	It is zero if d_getnetbyname_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_getnetbyname_r
+ *	is defined.
+ */
+/*#define HAS_GETNETBYNAME_R	   / **/
+#define GETNETBYNAME_R_PROTO 0	   /**/
+
+/* HAS_GETNETENT_R:
+ *	This symbol, if defined, indicates that the getnetent_r routine
+ *	is available to getnetent re-entrantly.
+ */
+/* GETNETENT_R_PROTO:
+ *	This symbol encodes the prototype of getnetent_r.
+ *	It is zero if d_getnetent_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_getnetent_r
+ *	is defined.
+ */
+/*#define HAS_GETNETENT_R	   / **/
+#define GETNETENT_R_PROTO 0	   /**/
+
+/* HAS_GETPROTOBYNAME_R:
+ *	This symbol, if defined, indicates that the getprotobyname_r routine
+ *	is available to getprotobyname re-entrantly.
+ */
+/* GETPROTOBYNAME_R_PROTO:
+ *	This symbol encodes the prototype of getprotobyname_r.
+ *	It is zero if d_getprotobyname_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_getprotobyname_r
+ *	is defined.
+ */
+/*#define HAS_GETPROTOBYNAME_R	   / **/
+#define GETPROTOBYNAME_R_PROTO 0	   /**/
+
+/* HAS_GETPROTOBYNUMBER_R:
+ *	This symbol, if defined, indicates that the getprotobynumber_r routine
+ *	is available to getprotobynumber re-entrantly.
+ */
+/* GETPROTOBYNUMBER_R_PROTO:
+ *	This symbol encodes the prototype of getprotobynumber_r.
+ *	It is zero if d_getprotobynumber_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_getprotobynumber_r
+ *	is defined.
+ */
+/*#define HAS_GETPROTOBYNUMBER_R	   / **/
+#define GETPROTOBYNUMBER_R_PROTO 0	   /**/
+
+/* HAS_GETPROTOENT_R:
+ *	This symbol, if defined, indicates that the getprotoent_r routine
+ *	is available to getprotoent re-entrantly.
+ */
+/* GETPROTOENT_R_PROTO:
+ *	This symbol encodes the prototype of getprotoent_r.
+ *	It is zero if d_getprotoent_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_getprotoent_r
+ *	is defined.
+ */
+/*#define HAS_GETPROTOENT_R	   / **/
+#define GETPROTOENT_R_PROTO 0	   /**/
+
+/* HAS_GETPWENT_R:
+ *	This symbol, if defined, indicates that the getpwent_r routine
+ *	is available to getpwent re-entrantly.
+ */
+/* GETPWENT_R_PROTO:
+ *	This symbol encodes the prototype of getpwent_r.
+ *	It is zero if d_getpwent_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_getpwent_r
+ *	is defined.
+ */
+/*#define HAS_GETPWENT_R	   / **/
+#define GETPWENT_R_PROTO 0	   /**/
+
+/* HAS_GETPWNAM_R:
+ *	This symbol, if defined, indicates that the getpwnam_r routine
+ *	is available to getpwnam re-entrantly.
+ */
+/* GETPWNAM_R_PROTO:
+ *	This symbol encodes the prototype of getpwnam_r.
+ *	It is zero if d_getpwnam_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_getpwnam_r
+ *	is defined.
+ */
+/*#define HAS_GETPWNAM_R	   / **/
+#define GETPWNAM_R_PROTO 0	   /**/
+
+/* HAS_GETPWUID_R:
+ *	This symbol, if defined, indicates that the getpwuid_r routine
+ *	is available to getpwuid re-entrantly.
+ */
+/* GETPWUID_R_PROTO:
+ *	This symbol encodes the prototype of getpwuid_r.
+ *	It is zero if d_getpwuid_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_getpwuid_r
+ *	is defined.
+ */
+/*#define HAS_GETPWUID_R	   / **/
+#define GETPWUID_R_PROTO 0	   /**/
+
+/* HAS_GETSERVBYNAME_R:
+ *	This symbol, if defined, indicates that the getservbyname_r routine
+ *	is available to getservbyname re-entrantly.
+ */
+/* GETSERVBYNAME_R_PROTO:
+ *	This symbol encodes the prototype of getservbyname_r.
+ *	It is zero if d_getservbyname_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_getservbyname_r
+ *	is defined.
+ */
+/*#define HAS_GETSERVBYNAME_R	   / **/
+#define GETSERVBYNAME_R_PROTO 0	   /**/
+
+/* HAS_GETSERVBYPORT_R:
+ *	This symbol, if defined, indicates that the getservbyport_r routine
+ *	is available to getservbyport re-entrantly.
+ */
+/* GETSERVBYPORT_R_PROTO:
+ *	This symbol encodes the prototype of getservbyport_r.
+ *	It is zero if d_getservbyport_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_getservbyport_r
+ *	is defined.
+ */
+/*#define HAS_GETSERVBYPORT_R	   / **/
+#define GETSERVBYPORT_R_PROTO 0	   /**/
+
+/* HAS_GETSERVENT_R:
+ *	This symbol, if defined, indicates that the getservent_r routine
+ *	is available to getservent re-entrantly.
+ */
+/* GETSERVENT_R_PROTO:
+ *	This symbol encodes the prototype of getservent_r.
+ *	It is zero if d_getservent_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_getservent_r
+ *	is defined.
+ */
+/*#define HAS_GETSERVENT_R	   / **/
+#define GETSERVENT_R_PROTO 0	   /**/
+
+/* HAS_GETSPNAM_R:
+ *	This symbol, if defined, indicates that the getspnam_r routine
+ *	is available to getspnam re-entrantly.
+ */
+/* GETSPNAM_R_PROTO:
+ *	This symbol encodes the prototype of getspnam_r.
+ *	It is zero if d_getspnam_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_getspnam_r
+ *	is defined.
+ */
+/*#define HAS_GETSPNAM_R	   / **/
+#define GETSPNAM_R_PROTO 0	   /**/
+
+/* HAS_GMTIME_R:
+ *	This symbol, if defined, indicates that the gmtime_r routine
+ *	is available to gmtime re-entrantly.
+ */
+/* GMTIME_R_PROTO:
+ *	This symbol encodes the prototype of gmtime_r.
+ *	It is zero if d_gmtime_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_gmtime_r
+ *	is defined.
+ */
+/*#define HAS_GMTIME_R	   / **/
+#define GMTIME_R_PROTO 0	   /**/
+
+/* HAS_LOCALTIME_R:
+ *	This symbol, if defined, indicates that the localtime_r routine
+ *	is available to localtime re-entrantly.
+ */
+/* LOCALTIME_R_NEEDS_TZSET:
+ *	Many libc's localtime_r implementations do not call tzset,
+ *	making them differ from localtime(), and making timezone
+ *	changes using $ENV{TZ} without explicitly calling tzset
+ *	impossible. This symbol makes us call tzset before localtime_r
+ */
+/*#define LOCALTIME_R_NEEDS_TZSET / **/
+#ifdef LOCALTIME_R_NEEDS_TZSET
+#define L_R_TZSET tzset(),
+#else
+#define L_R_TZSET
+#endif
+
+/* LOCALTIME_R_PROTO:
+ *	This symbol encodes the prototype of localtime_r.
+ *	It is zero if d_localtime_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_localtime_r
+ *	is defined.
+ */
+/*#define HAS_LOCALTIME_R	   / **/
+#define LOCALTIME_R_PROTO 0	   /**/
+
+/* OLD_PTHREAD_CREATE_JOINABLE:
+ *	This symbol, if defined, indicates how to create pthread
+ *	in joinable (aka undetached) state.  NOTE: not defined
+ *	if pthread.h already has defined PTHREAD_CREATE_JOINABLE
+ *	(the new version of the constant).
+ *	If defined, known values are PTHREAD_CREATE_UNDETACHED
+ *	and __UNDETACHED.
+ */
+/*#define OLD_PTHREAD_CREATE_JOINABLE  / **/
+
+/* HAS_PTHREAD_ATFORK:
+ *	This symbol, if defined, indicates that the pthread_atfork routine
+ *	is available to setup fork handlers.
+ */
+#define HAS_PTHREAD_ATFORK		/**/
+
+/* HAS_PTHREAD_YIELD:
+ *	This symbol, if defined, indicates that the pthread_yield
+ *	routine is available to yield the execution of the current
+ *	thread.	 sched_yield is preferable to pthread_yield.
+ */
+/* SCHED_YIELD:
+ *	This symbol defines the way to yield the execution of
+ *	the current thread.  Known ways are sched_yield,
+ *	pthread_yield, and pthread_yield with NULL.
+ */
+/* HAS_SCHED_YIELD:
+ *	This symbol, if defined, indicates that the sched_yield
+ *	routine is available to yield the execution of the current
+ *	thread.	 sched_yield is preferable to pthread_yield.
+ */
+#define HAS_PTHREAD_YIELD	/**/
+#define SCHED_YIELD	sched_yield()	/**/
+#define HAS_SCHED_YIELD	/**/
+
+/* HAS_RANDOM_R:
+ *	This symbol, if defined, indicates that the random_r routine
+ *	is available to random re-entrantly.
+ */
+/* RANDOM_R_PROTO:
+ *	This symbol encodes the prototype of random_r.
+ *	It is zero if d_random_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_random_r
+ *	is defined.
+ */
+/*#define HAS_RANDOM_R	   / **/
+#define RANDOM_R_PROTO 0	   /**/
+
+/* HAS_READDIR64_R:
+ *	This symbol, if defined, indicates that the readdir64_r routine
+ *	is available to readdir64 re-entrantly.
+ */
+/* READDIR64_R_PROTO:
+ *	This symbol encodes the prototype of readdir64_r.
+ *	It is zero if d_readdir64_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_readdir64_r
+ *	is defined.
+ */
+/*#define HAS_READDIR64_R	   / **/
+#define READDIR64_R_PROTO 0	   /**/
+
+/* HAS_READDIR_R:
+ *	This symbol, if defined, indicates that the readdir_r routine
+ *	is available to readdir re-entrantly.
+ */
+/* READDIR_R_PROTO:
+ *	This symbol encodes the prototype of readdir_r.
+ *	It is zero if d_readdir_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_readdir_r
+ *	is defined.
+ */
+/*#define HAS_READDIR_R	   / **/
+#define READDIR_R_PROTO 0	   /**/
+
+/* HAS_SETGRENT_R:
+ *	This symbol, if defined, indicates that the setgrent_r routine
+ *	is available to setgrent re-entrantly.
+ */
+/* SETGRENT_R_PROTO:
+ *	This symbol encodes the prototype of setgrent_r.
+ *	It is zero if d_setgrent_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_setgrent_r
+ *	is defined.
+ */
+/*#define HAS_SETGRENT_R	   / **/
+#define SETGRENT_R_PROTO 0	   /**/
+
+/* HAS_SETHOSTENT_R:
+ *	This symbol, if defined, indicates that the sethostent_r routine
+ *	is available to sethostent re-entrantly.
+ */
+/* SETHOSTENT_R_PROTO:
+ *	This symbol encodes the prototype of sethostent_r.
+ *	It is zero if d_sethostent_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_sethostent_r
+ *	is defined.
+ */
+/*#define HAS_SETHOSTENT_R	   / **/
+#define SETHOSTENT_R_PROTO 0	   /**/
+
+/* HAS_SETLOCALE_R:
+ *	This symbol, if defined, indicates that the setlocale_r routine
+ *	is available to setlocale re-entrantly.
+ */
+/* SETLOCALE_R_PROTO:
+ *	This symbol encodes the prototype of setlocale_r.
+ *	It is zero if d_setlocale_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_setlocale_r
+ *	is defined.
+ */
+/*#define HAS_SETLOCALE_R	   / **/
+#define SETLOCALE_R_PROTO 0	   /**/
+
+/* HAS_SETNETENT_R:
+ *	This symbol, if defined, indicates that the setnetent_r routine
+ *	is available to setnetent re-entrantly.
+ */
+/* SETNETENT_R_PROTO:
+ *	This symbol encodes the prototype of setnetent_r.
+ *	It is zero if d_setnetent_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_setnetent_r
+ *	is defined.
+ */
+/*#define HAS_SETNETENT_R	   / **/
+#define SETNETENT_R_PROTO 0	   /**/
+
+/* HAS_SETPROTOENT_R:
+ *	This symbol, if defined, indicates that the setprotoent_r routine
+ *	is available to setprotoent re-entrantly.
+ */
+/* SETPROTOENT_R_PROTO:
+ *	This symbol encodes the prototype of setprotoent_r.
+ *	It is zero if d_setprotoent_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_setprotoent_r
+ *	is defined.
+ */
+/*#define HAS_SETPROTOENT_R	   / **/
+#define SETPROTOENT_R_PROTO 0	   /**/
+
+/* HAS_SETPWENT_R:
+ *	This symbol, if defined, indicates that the setpwent_r routine
+ *	is available to setpwent re-entrantly.
+ */
+/* SETPWENT_R_PROTO:
+ *	This symbol encodes the prototype of setpwent_r.
+ *	It is zero if d_setpwent_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_setpwent_r
+ *	is defined.
+ */
+/*#define HAS_SETPWENT_R	   / **/
+#define SETPWENT_R_PROTO 0	   /**/
+
+/* HAS_SETSERVENT_R:
+ *	This symbol, if defined, indicates that the setservent_r routine
+ *	is available to setservent re-entrantly.
+ */
+/* SETSERVENT_R_PROTO:
+ *	This symbol encodes the prototype of setservent_r.
+ *	It is zero if d_setservent_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_setservent_r
+ *	is defined.
+ */
+/*#define HAS_SETSERVENT_R	   / **/
+#define SETSERVENT_R_PROTO 0	   /**/
+
+/* HAS_SRAND48_R:
+ *	This symbol, if defined, indicates that the srand48_r routine
+ *	is available to srand48 re-entrantly.
+ */
+/* SRAND48_R_PROTO:
+ *	This symbol encodes the prototype of srand48_r.
+ *	It is zero if d_srand48_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_srand48_r
+ *	is defined.
+ */
+/*#define HAS_SRAND48_R	   / **/
+#define SRAND48_R_PROTO 0	   /**/
+
+/* HAS_SRANDOM_R:
+ *	This symbol, if defined, indicates that the srandom_r routine
+ *	is available to srandom re-entrantly.
+ */
+/* SRANDOM_R_PROTO:
+ *	This symbol encodes the prototype of srandom_r.
+ *	It is zero if d_srandom_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_srandom_r
+ *	is defined.
+ */
+/*#define HAS_SRANDOM_R	   / **/
+#define SRANDOM_R_PROTO 0	   /**/
+
+/* HAS_STRERROR_R:
+ *	This symbol, if defined, indicates that the strerror_r routine
+ *	is available to strerror re-entrantly.
+ */
+/* STRERROR_R_PROTO:
+ *	This symbol encodes the prototype of strerror_r.
+ *	It is zero if d_strerror_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_strerror_r
+ *	is defined.
+ */
+/*#define HAS_STRERROR_R	   / **/
+#define STRERROR_R_PROTO 0	   /**/
+
+/* HAS_TMPNAM_R:
+ *	This symbol, if defined, indicates that the tmpnam_r routine
+ *	is available to tmpnam re-entrantly.
+ */
+/* TMPNAM_R_PROTO:
+ *	This symbol encodes the prototype of tmpnam_r.
+ *	It is zero if d_tmpnam_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_tmpnam_r
+ *	is defined.
+ */
+/*#define HAS_TMPNAM_R	   / **/
+#define TMPNAM_R_PROTO 0	   /**/
+
+/* HAS_TTYNAME_R:
+ *	This symbol, if defined, indicates that the ttyname_r routine
+ *	is available to ttyname re-entrantly.
+ */
+/* TTYNAME_R_PROTO:
+ *	This symbol encodes the prototype of ttyname_r.
+ *	It is zero if d_ttyname_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_ttyname_r
+ *	is defined.
+ */
+/*#define HAS_TTYNAME_R	   / **/
+#define TTYNAME_R_PROTO 0	   /**/
+
+/* I_MACH_CTHREADS:
+ *     This symbol, if defined, indicates to the C program that it should
+ *     include <mach/cthreads.h>.
+ */
+/*#define   I_MACH_CTHREADS	/ **/
+
+/* I_PTHREAD:
+ *     This symbol, if defined, indicates to the C program that it should
+ *     include <pthread.h>.
+ */
+#define   I_PTHREAD	/**/
+
+/* USE_ITHREADS:
+ *	This symbol, if defined, indicates that Perl should be built to
+ *	use the interpreter-based threading implementation.
+ */
+/* USE_5005THREADS:
+ *	This symbol, if defined, indicates that Perl should be built to
+ *	use the 5.005-based threading implementation.
+ *	Only valid up to 5.8.x.
+ */
+/* OLD_PTHREADS_API:
+ *	This symbol, if defined, indicates that Perl should
+ *	be built to use the old draft POSIX threads API.
+ */
+/* USE_REENTRANT_API:
+ *	This symbol, if defined, indicates that Perl should
+ *	try to use the various _r versions of library functions.
+ *	This is extremely experimental.
+ */
+/*#define	USE_5005THREADS		/ **/
+/*#define	USE_ITHREADS		/ **/
+#if defined(USE_5005THREADS) && !defined(USE_ITHREADS)
+#define		USE_THREADS		/* until src is revised*/
+#endif
+/*#define	OLD_PTHREADS_API		/ **/
+/*#define	USE_REENTRANT_API	/ **/
+
+/* HAS_TIME:
+ *	This symbol, if defined, indicates that the time() routine exists.
+ */
+/* Time_t:
+ *	This symbol holds the type returned by time(). It can be long,
+ *	or time_t on BSD sites (in which case <sys/types.h> should be
+ *	included).
+ */
+#define HAS_TIME		/**/
+#define Time_t time_t		/* Time type */
+
+/* HAS_TIMES:
+ *	This symbol, if defined, indicates that the times() routine exists.
+ *	Note that this became obsolete on some systems (SUNOS), which now
+ * use getrusage(). It may be necessary to include <sys/times.h>.
+ */
+#define HAS_TIMES		/**/
+
+/* Fpos_t:
+ *	This symbol holds the type used to declare file positions in libc.
+ *	It can be fpos_t, long, uint, etc... It may be necessary to include
+ *	<sys/types.h> to get any typedef'ed information.
+ */
+#define Fpos_t fpos_t		/* File position type */
+
+/* Gid_t_f:
+ *	This symbol defines the format string used for printing a Gid_t.
+ */
+#define	Gid_t_f		"u"		/**/
+
+/* Gid_t_sign:
+ *	This symbol holds the signedness of a Gid_t.
+ *	1 for unsigned, -1 for signed.
+ */
+#define Gid_t_sign	1		/* GID sign */
+
+/* Gid_t_size:
+ *	This symbol holds the size of a Gid_t in bytes.
+ */
+#define Gid_t_size 4		/* GID size */
+
+/* Gid_t:
+ *	This symbol holds the return type of getgid() and the type of
+ *	argument to setrgid() and related functions.  Typically,
+ *	it is the type of group ids in the kernel. It can be int, ushort,
+ *	gid_t, etc... It may be necessary to include <sys/types.h> to get
+ *	any typedef'ed information.
+ */
+#define Gid_t gid_t		/* Type for getgid(), etc... */
+
+/* Off_t:
+ *	This symbol holds the type used to declare offsets in the kernel.
+ *	It can be int, long, off_t, etc... It may be necessary to include
+ *	<sys/types.h> to get any typedef'ed information.
+ */
+/* LSEEKSIZE:
+ *	This symbol holds the number of bytes used by the Off_t.
+ */
+/* Off_t_size:
+ *	This symbol holds the number of bytes used by the Off_t.
+ */
+#define Off_t off_t		/* <offset> type */
+#define LSEEKSIZE 8		/* <offset> size */
+#define Off_t_size 8	/* <offset> size */
+
+/* Mode_t:
+ *	This symbol holds the type used to declare file modes
+ *	for systems calls.  It is usually mode_t, but may be
+ *	int or unsigned short.  It may be necessary to include <sys/types.h>
+ *	to get any typedef'ed information.
+ */
+#define Mode_t mode_t	 /* file mode parameter for system calls */
+
+/* Pid_t:
+ *	This symbol holds the type used to declare process ids in the kernel.
+ *	It can be int, uint, pid_t, etc... It may be necessary to include
+ *	<sys/types.h> to get any typedef'ed information.
+ */
+#define Pid_t pid_t		/* PID type */
+
+/* Size_t_size:
+ *	This symbol holds the size of a Size_t in bytes.
+ */
+#define Size_t_size 8		/**/
+
+/* Size_t:
+ *	This symbol holds the type used to declare length parameters
+ *	for string functions.  It is usually size_t, but may be
+ *	unsigned long, int, etc.  It may be necessary to include
+ *	<sys/types.h> to get any typedef'ed information.
+ */
+#define Size_t size_t	 /* length parameter for string functions */
+
+/* Uid_t_f:
+ *	This symbol defines the format string used for printing a Uid_t.
+ */
+#define	Uid_t_f		"u"		/**/
+
+/* Uid_t_sign:
+ *	This symbol holds the signedness of a Uid_t.
+ *	1 for unsigned, -1 for signed.
+ */
+#define Uid_t_sign	1		/* UID sign */
+
+/* Uid_t_size:
+ *	This symbol holds the size of a Uid_t in bytes.
+ */
+#define Uid_t_size 4		/* UID size */
+
+/* Uid_t:
+ *	This symbol holds the type used to declare user ids in the kernel.
+ *	It can be int, ushort, uid_t, etc... It may be necessary to include
+ *	<sys/types.h> to get any typedef'ed information.
+ */
+#define Uid_t uid_t		/* UID type */
+
+#endif
diff --git a/lib/5.24.1/x86_64-linux/CORE/cop.h b/lib/5.24.1/x86_64-linux/CORE/cop.h
new file mode 100644
index 00000000..da295722
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/cop.h
@@ -0,0 +1,1158 @@
+/*    cop.h
+ *
+ *    Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000,
+ *    2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 by Larry Wall and others
+ *
+ *    You may distribute under the terms of either the GNU General Public
+ *    License or the Artistic License, as specified in the README file.
+ *
+ * Control ops (cops) are one of the two ops OP_NEXTSTATE and OP_DBSTATE,
+ * that (loosely speaking) are statement separators.
+ * They hold information important for lexical state and error reporting.
+ * At run time, PL_curcop is set to point to the most recently executed cop,
+ * and thus can be used to determine our current state.
+ */
+
+/* A jmpenv packages the state required to perform a proper non-local jump.
+ * Note that there is a PL_start_env initialized when perl starts, and
+ * PL_top_env points to this initially, so PL_top_env should always be
+ * non-null.
+ *
+ * Existence of a non-null PL_top_env->je_prev implies it is valid to call
+ * longjmp() at that runlevel (we make sure PL_start_env.je_prev is always
+ * null to ensure this).
+ *
+ * je_mustcatch, when set at any runlevel to TRUE, means eval ops must
+ * establish a local jmpenv to handle exception traps.  Care must be taken
+ * to restore the previous value of je_mustcatch before exiting the
+ * stack frame iff JMPENV_PUSH was not called in that stack frame.
+ * GSAR 97-03-27
+ */
+
+struct jmpenv {
+    struct jmpenv *	je_prev;
+    Sigjmp_buf		je_buf;		/* uninit if je_prev is NULL */
+    int			je_ret;		/* last exception thrown */
+    bool		je_mustcatch;	/* need to call longjmp()? */
+    U16                 je_old_delaymagic; /* saved PL_delaymagic */
+};
+
+typedef struct jmpenv JMPENV;
+
+/*
+ * How to build the first jmpenv.
+ *
+ * top_env needs to be non-zero. It points to an area
+ * in which longjmp() stuff is stored, as C callstack
+ * info there at least is thread specific this has to
+ * be per-thread. Otherwise a 'die' in a thread gives
+ * that thread the C stack of last thread to do an eval {}!
+ */
+
+#define JMPENV_BOOTSTRAP \
+    STMT_START {				\
+	PERL_POISON_EXPR(PoisonNew(&PL_start_env, 1, JMPENV));\
+	PL_top_env = &PL_start_env;		\
+	PL_start_env.je_prev = NULL;		\
+	PL_start_env.je_ret = -1;		\
+	PL_start_env.je_mustcatch = TRUE;	\
+	PL_start_env.je_old_delaymagic = 0;	\
+    } STMT_END
+
+/*
+ *   PERL_FLEXIBLE_EXCEPTIONS
+ * 
+ * All the flexible exceptions code has been removed.
+ * See the following threads for details:
+ *
+ *   http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2004-07/msg00378.html
+ * 
+ * Joshua's original patches (which weren't applied) and discussion:
+ * 
+ *   http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/1998-02/msg01396.html
+ *   http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/1998-02/msg01489.html
+ *   http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/1998-02/msg01491.html
+ *   http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/1998-02/msg01608.html
+ *   http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/1998-02/msg02144.html
+ *   http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/1998-02/msg02998.html
+ * 
+ * Chip's reworked patch and discussion:
+ * 
+ *   http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/1999-03/msg00520.html
+ * 
+ * The flaw in these patches (which went unnoticed at the time) was
+ * that they moved some code that could potentially die() out of the
+ * region protected by the setjmp()s.  This caused exceptions within
+ * END blocks and such to not be handled by the correct setjmp().
+ * 
+ * The original patches that introduces flexible exceptions were:
+ *
+ * http://perl5.git.perl.org/perl.git/commit/312caa8e97f1c7ee342a9895c2f0e749625b4929
+ * http://perl5.git.perl.org/perl.git/commit/14dd3ad8c9bf82cf09798a22cc89a9862dfd6d1a                                        
+ *  
+ */
+
+#define dJMPENV		JMPENV cur_env
+
+#define JMPENV_PUSH(v) \
+    STMT_START {							\
+	DEBUG_l({							\
+	    int i = 0; JMPENV *p = PL_top_env;				\
+	    while (p) { i++; p = p->je_prev; }				\
+	    Perl_deb(aTHX_ "JUMPENV_PUSH level=%d at %s:%d\n",		\
+		         i,  __FILE__, __LINE__);})			\
+	cur_env.je_prev = PL_top_env;					\
+	cur_env.je_ret = PerlProc_setjmp(cur_env.je_buf, SCOPE_SAVES_SIGNAL_MASK);		\
+	PL_top_env = &cur_env;						\
+	cur_env.je_mustcatch = FALSE;					\
+	cur_env.je_old_delaymagic = PL_delaymagic;			\
+	(v) = cur_env.je_ret;						\
+    } STMT_END
+
+#define JMPENV_POP \
+    STMT_START {							\
+	DEBUG_l({							\
+	    int i = -1; JMPENV *p = PL_top_env;				\
+	    while (p) { i++; p = p->je_prev; }				\
+	    Perl_deb(aTHX_ "JUMPENV_POP level=%d at %s:%d\n",		\
+		         i, __FILE__, __LINE__);})			\
+	assert(PL_top_env == &cur_env);					\
+	PL_delaymagic = cur_env.je_old_delaymagic;			\
+	PL_top_env = cur_env.je_prev;					\
+    } STMT_END
+
+#define JMPENV_JUMP(v) \
+    STMT_START {						\
+	DEBUG_l({						\
+	    int i = -1; JMPENV *p = PL_top_env;			\
+	    while (p) { i++; p = p->je_prev; }			\
+	    Perl_deb(aTHX_ "JUMPENV_JUMP(%d) level=%d at %s:%d\n", \
+		         (int)v, i, __FILE__, __LINE__);})	\
+	if (PL_top_env->je_prev)				\
+	    PerlProc_longjmp(PL_top_env->je_buf, (v));		\
+	if ((v) == 2)						\
+	    PerlProc_exit(STATUS_EXIT);		                \
+	PerlIO_printf(PerlIO_stderr(), "panic: top_env, v=%d\n", (int)v); \
+	PerlProc_exit(1);					\
+    } STMT_END
+
+#define CATCH_GET		(PL_top_env->je_mustcatch)
+#define CATCH_SET(v) \
+    STMT_START {							\
+	DEBUG_l(							\
+	    Perl_deb(aTHX_						\
+		"JUMPLEVEL set catch %d => %d (for %p) at %s:%d\n",	\
+		 PL_top_env->je_mustcatch, v, (void*)PL_top_env,	\
+		 __FILE__, __LINE__);)					\
+	PL_top_env->je_mustcatch = (v);					\
+    } STMT_END
+
+/*
+=head1 COP Hint Hashes
+*/
+
+typedef struct refcounted_he COPHH;
+
+#define COPHH_KEY_UTF8 REFCOUNTED_HE_KEY_UTF8
+
+/*
+=for apidoc Amx|SV *|cophh_fetch_pvn|const COPHH *cophh|const char *keypv|STRLEN keylen|U32 hash|U32 flags
+
+Look up the entry in the cop hints hash C<cophh> with the key specified by
+C<keypv> and C<keylen>.  If C<flags> has the C<COPHH_KEY_UTF8> bit set,
+the key octets are interpreted as UTF-8, otherwise they are interpreted
+as Latin-1.  C<hash> is a precomputed hash of the key string, or zero if
+it has not been precomputed.  Returns a mortal scalar copy of the value
+associated with the key, or C<&PL_sv_placeholder> if there is no value
+associated with the key.
+
+=cut
+*/
+
+#define cophh_fetch_pvn(cophh, keypv, keylen, hash, flags) \
+    Perl_refcounted_he_fetch_pvn(aTHX_ cophh, keypv, keylen, hash, flags)
+
+/*
+=for apidoc Amx|SV *|cophh_fetch_pvs|const COPHH *cophh|const char *key|U32 flags
+
+Like L</cophh_fetch_pvn>, but takes a C<NUL>-terminated literal string instead
+of a string/length pair, and no precomputed hash.
+
+=cut
+*/
+
+#define cophh_fetch_pvs(cophh, key, flags) \
+    Perl_refcounted_he_fetch_pvn(aTHX_ cophh, STR_WITH_LEN(key), 0, flags)
+
+/*
+=for apidoc Amx|SV *|cophh_fetch_pv|const COPHH *cophh|const char *key|U32 hash|U32 flags
+
+Like L</cophh_fetch_pvn>, but takes a nul-terminated string instead of
+a string/length pair.
+
+=cut
+*/
+
+#define cophh_fetch_pv(cophh, key, hash, flags) \
+    Perl_refcounted_he_fetch_pv(aTHX_ cophh, key, hash, flags)
+
+/*
+=for apidoc Amx|SV *|cophh_fetch_sv|const COPHH *cophh|SV *key|U32 hash|U32 flags
+
+Like L</cophh_fetch_pvn>, but takes a Perl scalar instead of a
+string/length pair.
+
+=cut
+*/
+
+#define cophh_fetch_sv(cophh, key, hash, flags) \
+    Perl_refcounted_he_fetch_sv(aTHX_ cophh, key, hash, flags)
+
+/*
+=for apidoc Amx|HV *|cophh_2hv|const COPHH *cophh|U32 flags
+
+Generates and returns a standard Perl hash representing the full set of
+key/value pairs in the cop hints hash C<cophh>.  C<flags> is currently
+unused and must be zero.
+
+=cut
+*/
+
+#define cophh_2hv(cophh, flags) \
+    Perl_refcounted_he_chain_2hv(aTHX_ cophh, flags)
+
+/*
+=for apidoc Amx|COPHH *|cophh_copy|COPHH *cophh
+
+Make and return a complete copy of the cop hints hash C<cophh>.
+
+=cut
+*/
+
+#define cophh_copy(cophh) Perl_refcounted_he_inc(aTHX_ cophh)
+
+/*
+=for apidoc Amx|void|cophh_free|COPHH *cophh
+
+Discard the cop hints hash C<cophh>, freeing all resources associated
+with it.
+
+=cut
+*/
+
+#define cophh_free(cophh) Perl_refcounted_he_free(aTHX_ cophh)
+
+/*
+=for apidoc Amx|COPHH *|cophh_new_empty
+
+Generate and return a fresh cop hints hash containing no entries.
+
+=cut
+*/
+
+#define cophh_new_empty() ((COPHH *)NULL)
+
+/*
+=for apidoc Amx|COPHH *|cophh_store_pvn|COPHH *cophh|const char *keypv|STRLEN keylen|U32 hash|SV *value|U32 flags
+
+Stores a value, associated with a key, in the cop hints hash C<cophh>,
+and returns the modified hash.  The returned hash pointer is in general
+not the same as the hash pointer that was passed in.  The input hash is
+consumed by the function, and the pointer to it must not be subsequently
+used.  Use L</cophh_copy> if you need both hashes.
+
+The key is specified by C<keypv> and C<keylen>.  If C<flags> has the
+C<COPHH_KEY_UTF8> bit set, the key octets are interpreted as UTF-8,
+otherwise they are interpreted as Latin-1.  C<hash> is a precomputed
+hash of the key string, or zero if it has not been precomputed.
+
+C<value> is the scalar value to store for this key.  C<value> is copied
+by this function, which thus does not take ownership of any reference
+to it, and later changes to the scalar will not be reflected in the
+value visible in the cop hints hash.  Complex types of scalar will not
+be stored with referential integrity, but will be coerced to strings.
+
+=cut
+*/
+
+#define cophh_store_pvn(cophh, keypv, keylen, hash, value, flags) \
+    Perl_refcounted_he_new_pvn(aTHX_ cophh, keypv, keylen, hash, value, flags)
+
+/*
+=for apidoc Amx|COPHH *|cophh_store_pvs|const COPHH *cophh|const char *key|SV *value|U32 flags
+
+Like L</cophh_store_pvn>, but takes a C<NUL>-terminated literal string instead
+of a string/length pair, and no precomputed hash.
+
+=cut
+*/
+
+#define cophh_store_pvs(cophh, key, value, flags) \
+    Perl_refcounted_he_new_pvn(aTHX_ cophh, STR_WITH_LEN(key), 0, value, flags)
+
+/*
+=for apidoc Amx|COPHH *|cophh_store_pv|const COPHH *cophh|const char *key|U32 hash|SV *value|U32 flags
+
+Like L</cophh_store_pvn>, but takes a nul-terminated string instead of
+a string/length pair.
+
+=cut
+*/
+
+#define cophh_store_pv(cophh, key, hash, value, flags) \
+    Perl_refcounted_he_new_pv(aTHX_ cophh, key, hash, value, flags)
+
+/*
+=for apidoc Amx|COPHH *|cophh_store_sv|const COPHH *cophh|SV *key|U32 hash|SV *value|U32 flags
+
+Like L</cophh_store_pvn>, but takes a Perl scalar instead of a
+string/length pair.
+
+=cut
+*/
+
+#define cophh_store_sv(cophh, key, hash, value, flags) \
+    Perl_refcounted_he_new_sv(aTHX_ cophh, key, hash, value, flags)
+
+/*
+=for apidoc Amx|COPHH *|cophh_delete_pvn|COPHH *cophh|const char *keypv|STRLEN keylen|U32 hash|U32 flags
+
+Delete a key and its associated value from the cop hints hash C<cophh>,
+and returns the modified hash.  The returned hash pointer is in general
+not the same as the hash pointer that was passed in.  The input hash is
+consumed by the function, and the pointer to it must not be subsequently
+used.  Use L</cophh_copy> if you need both hashes.
+
+The key is specified by C<keypv> and C<keylen>.  If C<flags> has the
+C<COPHH_KEY_UTF8> bit set, the key octets are interpreted as UTF-8,
+otherwise they are interpreted as Latin-1.  C<hash> is a precomputed
+hash of the key string, or zero if it has not been precomputed.
+
+=cut
+*/
+
+#define cophh_delete_pvn(cophh, keypv, keylen, hash, flags) \
+    Perl_refcounted_he_new_pvn(aTHX_ cophh, keypv, keylen, hash, \
+	(SV *)NULL, flags)
+
+/*
+=for apidoc Amx|COPHH *|cophh_delete_pvs|const COPHH *cophh|const char *key|U32 flags
+
+Like L</cophh_delete_pvn>, but takes a C<NUL>-terminated literal string instead
+of a string/length pair, and no precomputed hash.
+
+=cut
+*/
+
+#define cophh_delete_pvs(cophh, key, flags) \
+    Perl_refcounted_he_new_pvn(aTHX_ cophh, STR_WITH_LEN(key), 0, \
+	(SV *)NULL, flags)
+
+/*
+=for apidoc Amx|COPHH *|cophh_delete_pv|const COPHH *cophh|const char *key|U32 hash|U32 flags
+
+Like L</cophh_delete_pvn>, but takes a nul-terminated string instead of
+a string/length pair.
+
+=cut
+*/
+
+#define cophh_delete_pv(cophh, key, hash, flags) \
+    Perl_refcounted_he_new_pv(aTHX_ cophh, key, hash, (SV *)NULL, flags)
+
+/*
+=for apidoc Amx|COPHH *|cophh_delete_sv|const COPHH *cophh|SV *key|U32 hash|U32 flags
+
+Like L</cophh_delete_pvn>, but takes a Perl scalar instead of a
+string/length pair.
+
+=cut
+*/
+
+#define cophh_delete_sv(cophh, key, hash, flags) \
+    Perl_refcounted_he_new_sv(aTHX_ cophh, key, hash, (SV *)NULL, flags)
+
+#include "mydtrace.h"
+
+struct cop {
+    BASEOP
+    /* On LP64 putting this here takes advantage of the fact that BASEOP isn't
+       an exact multiple of 8 bytes to save structure padding.  */
+    line_t      cop_line;       /* line # of this command */
+    /* label for this construct is now stored in cop_hints_hash */
+#ifdef USE_ITHREADS
+    PADOFFSET	cop_stashoff;	/* offset into PL_stashpad, for the
+				   package the line was compiled in */
+    char *	cop_file;	/* file name the following line # is from */
+#else
+    HV *	cop_stash;	/* package line was compiled in */
+    GV *	cop_filegv;	/* file the following line # is from */
+#endif
+    U32		cop_hints;	/* hints bits from pragmata */
+    U32		cop_seq;	/* parse sequence number */
+    /* Beware. mg.c and warnings.pl assume the type of this is STRLEN *:  */
+    STRLEN *	cop_warnings;	/* lexical warnings bitmask */
+    /* compile time state of %^H.  See the comment in op.c for how this is
+       used to recreate a hash to return from caller.  */
+    COPHH *	cop_hints_hash;
+};
+
+#ifdef USE_ITHREADS
+#  define CopFILE(c)		((c)->cop_file)
+#  define CopFILEGV(c)		(CopFILE(c) \
+				 ? gv_fetchfile(CopFILE(c)) : NULL)
+				 
+#  ifdef NETWARE
+#    define CopFILE_set(c,pv)	((c)->cop_file = savepv(pv))
+#    define CopFILE_setn(c,pv,l)  ((c)->cop_file = savepvn((pv),(l)))
+#  else
+#    define CopFILE_set(c,pv)	((c)->cop_file = savesharedpv(pv))
+#    define CopFILE_setn(c,pv,l)  ((c)->cop_file = savesharedpvn((pv),(l)))
+#  endif
+
+#  define CopFILESV(c)		(CopFILE(c) \
+				 ? GvSV(gv_fetchfile(CopFILE(c))) : NULL)
+#  define CopFILEAV(c)		(CopFILE(c) \
+				 ? GvAV(gv_fetchfile(CopFILE(c))) : NULL)
+#  define CopFILEAVx(c)		(assert_(CopFILE(c)) \
+				   GvAV(gv_fetchfile(CopFILE(c))))
+
+#  define CopSTASH(c)           PL_stashpad[(c)->cop_stashoff]
+#  define CopSTASH_set(c,hv)	((c)->cop_stashoff = (hv)		\
+				    ? alloccopstash(hv)			\
+				    : 0)
+#  ifdef NETWARE
+#    define CopFILE_free(c) SAVECOPFILE_FREE(c)
+#  else
+#    define CopFILE_free(c)	(PerlMemShared_free(CopFILE(c)),(CopFILE(c) = NULL))
+#  endif
+#else
+#  define CopFILEGV(c)		((c)->cop_filegv)
+#  define CopFILEGV_set(c,gv)	((c)->cop_filegv = (GV*)SvREFCNT_inc(gv))
+#  define CopFILE_set(c,pv)	CopFILEGV_set((c), gv_fetchfile(pv))
+#  define CopFILE_setn(c,pv,l)	CopFILEGV_set((c), gv_fetchfile_flags((pv),(l),0))
+#  define CopFILESV(c)		(CopFILEGV(c) ? GvSV(CopFILEGV(c)) : NULL)
+#  define CopFILEAV(c)		(CopFILEGV(c) ? GvAV(CopFILEGV(c)) : NULL)
+#  ifdef DEBUGGING
+#    define CopFILEAVx(c)	(assert(CopFILEGV(c)), GvAV(CopFILEGV(c)))
+#  else
+#    define CopFILEAVx(c)	(GvAV(CopFILEGV(c)))
+# endif
+#  define CopFILE(c)		(CopFILEGV(c) \
+				    ? GvNAME(CopFILEGV(c))+2 : NULL)
+#  define CopSTASH(c)		((c)->cop_stash)
+#  define CopSTASH_set(c,hv)	((c)->cop_stash = (hv))
+#  define CopFILE_free(c)	(SvREFCNT_dec(CopFILEGV(c)),(CopFILEGV(c) = NULL))
+
+#endif /* USE_ITHREADS */
+
+#define CopSTASHPV(c)		(CopSTASH(c) ? HvNAME_get(CopSTASH(c)) : NULL)
+   /* cop_stash is not refcounted */
+#define CopSTASHPV_set(c,pv)	CopSTASH_set((c), gv_stashpv(pv,GV_ADD))
+#define CopSTASH_eq(c,hv)	(CopSTASH(c) == (hv))
+
+#define CopHINTHASH_get(c)	((COPHH*)((c)->cop_hints_hash))
+#define CopHINTHASH_set(c,h)	((c)->cop_hints_hash = (h))
+
+/*
+=head1 COP Hint Reading
+*/
+
+/*
+=for apidoc Am|SV *|cop_hints_fetch_pvn|const COP *cop|const char *keypv|STRLEN keylen|U32 hash|U32 flags
+
+Look up the hint entry in the cop C<cop> with the key specified by
+C<keypv> and C<keylen>.  If C<flags> has the C<COPHH_KEY_UTF8> bit set,
+the key octets are interpreted as UTF-8, otherwise they are interpreted
+as Latin-1.  C<hash> is a precomputed hash of the key string, or zero if
+it has not been precomputed.  Returns a mortal scalar copy of the value
+associated with the key, or C<&PL_sv_placeholder> if there is no value
+associated with the key.
+
+=cut
+*/
+
+#define cop_hints_fetch_pvn(cop, keypv, keylen, hash, flags) \
+    cophh_fetch_pvn(CopHINTHASH_get(cop), keypv, keylen, hash, flags)
+
+/*
+=for apidoc Am|SV *|cop_hints_fetch_pvs|const COP *cop|const char *key|U32 flags
+
+Like L</cop_hints_fetch_pvn>, but takes a C<NUL>-terminated literal string
+instead of a string/length pair, and no precomputed hash.
+
+=cut
+*/
+
+#define cop_hints_fetch_pvs(cop, key, flags) \
+    cophh_fetch_pvs(CopHINTHASH_get(cop), key, flags)
+
+/*
+=for apidoc Am|SV *|cop_hints_fetch_pv|const COP *cop|const char *key|U32 hash|U32 flags
+
+Like L</cop_hints_fetch_pvn>, but takes a nul-terminated string instead
+of a string/length pair.
+
+=cut
+*/
+
+#define cop_hints_fetch_pv(cop, key, hash, flags) \
+    cophh_fetch_pv(CopHINTHASH_get(cop), key, hash, flags)
+
+/*
+=for apidoc Am|SV *|cop_hints_fetch_sv|const COP *cop|SV *key|U32 hash|U32 flags
+
+Like L</cop_hints_fetch_pvn>, but takes a Perl scalar instead of a
+string/length pair.
+
+=cut
+*/
+
+#define cop_hints_fetch_sv(cop, key, hash, flags) \
+    cophh_fetch_sv(CopHINTHASH_get(cop), key, hash, flags)
+
+/*
+=for apidoc Am|HV *|cop_hints_2hv|const COP *cop|U32 flags
+
+Generates and returns a standard Perl hash representing the full set of
+hint entries in the cop C<cop>.  C<flags> is currently unused and must
+be zero.
+
+=cut
+*/
+
+#define cop_hints_2hv(cop, flags) \
+    cophh_2hv(CopHINTHASH_get(cop), flags)
+
+#define CopLABEL(c)  Perl_cop_fetch_label(aTHX_ (c), NULL, NULL)
+#define CopLABEL_len(c,len)  Perl_cop_fetch_label(aTHX_ (c), len, NULL)
+#define CopLABEL_len_flags(c,len,flags)  Perl_cop_fetch_label(aTHX_ (c), len, flags)
+#define CopLABEL_alloc(pv)	((pv)?savepv(pv):NULL)
+
+#define CopSTASH_ne(c,hv)	(!CopSTASH_eq(c,hv))
+#define CopLINE(c)		((c)->cop_line)
+#define CopLINE_inc(c)		(++CopLINE(c))
+#define CopLINE_dec(c)		(--CopLINE(c))
+#define CopLINE_set(c,l)	(CopLINE(c) = (l))
+
+/* OutCopFILE() is CopFILE for output (caller, die, warn, etc.) */
+#define OutCopFILE(c) CopFILE(c)
+
+#define CopHINTS_get(c)		((c)->cop_hints + 0)
+#define CopHINTS_set(c, h)	STMT_START {				\
+				    (c)->cop_hints = (h);		\
+				} STMT_END
+
+/*
+ * Here we have some enormously heavy (or at least ponderous) wizardry.
+ */
+
+/* subroutine context */
+struct block_sub {
+    OP *	retop;	/* op to execute on exit from sub */
+    /* Above here is the same for sub, format and eval.  */
+    PAD		*prevcomppad; /* the caller's PL_comppad */
+    CV *	cv;
+    /* Above here is the same for sub and format.  */
+    I32		olddepth;
+    AV  	*savearray;
+};
+
+
+/* format context */
+struct block_format {
+    OP *	retop;	/* op to execute on exit from sub */
+    /* Above here is the same for sub, format and eval.  */
+    PAD		*prevcomppad; /* the caller's PL_comppad */
+    CV *	cv;
+    /* Above here is the same for sub and format.  */
+    GV *	gv;
+    GV *	dfoutgv;
+};
+
+/* return a pointer to the current context */
+
+#define CX_CUR() (&cxstack[cxstack_ix])
+
+/* free all savestack items back to the watermark of the specified context */
+
+#define CX_LEAVE_SCOPE(cx) LEAVE_SCOPE(cx->blk_oldsaveix)
+
+#ifdef DEBUGGING
+/* on debugging builds, poison cx afterwards so we know no code
+ * uses it - because after doing cxstack_ix--, any ties, exceptions etc
+ * may overwrite the current stack frame */
+#  define CX_POP(cx)                                                   \
+        assert(CX_CUR() == cx);                                        \
+        cxstack_ix--;                                                  \
+        cx = NULL;
+#else
+#  define CX_POP(cx) cxstack_ix--;
+#endif
+
+
+/* base for the next two macros. Don't use directly.
+ * The context frame holds a reference to the CV so that it can't be
+ * freed while we're executing it */
+
+
+#define CX_PUSHSUB_GET_LVALUE_MASK(func) \
+	/* If the context is indeterminate, then only the lvalue */	\
+	/* flags that the caller also has are applicable.        */	\
+	(								\
+	   (PL_op->op_flags & OPf_WANT)					\
+	       ? OPpENTERSUB_LVAL_MASK					\
+	       : !(PL_op->op_private & OPpENTERSUB_LVAL_MASK)		\
+	           ? 0 : (U8)func(aTHX)					\
+	)
+
+/* Restore old @_ */
+#define CX_POP_SAVEARRAY(cx)						\
+    STMT_START {							\
+        AV *av = GvAV(PL_defgv);                                        \
+	GvAV(PL_defgv) = cx->blk_sub.savearray;				\
+        cx->blk_sub.savearray = NULL;                                   \
+        SvREFCNT_dec(av);	        				\
+    } STMT_END
+
+/* junk in @_ spells trouble when cloning CVs and in pp_caller(), so don't
+ * leave any (a fast av_clear(ary), basically) */
+#define CLEAR_ARGARRAY(ary) \
+    STMT_START {							\
+	AvMAX(ary) += AvARRAY(ary) - AvALLOC(ary);			\
+	AvARRAY(ary) = AvALLOC(ary);					\
+	AvFILLp(ary) = -1;						\
+    } STMT_END
+
+
+/* eval context */
+struct block_eval {
+    OP *	retop;	/* op to execute on exit from eval */
+    /* Above here is the same for sub, format and eval.  */
+    SV *	old_namesv;
+    OP *	old_eval_root;
+    SV *	cur_text;
+    CV *	cv;
+    JMPENV *	cur_top_env; /* value of PL_top_env when eval CX created */
+};
+
+/* If we ever need more than 512 op types, change the shift from 7.
+   blku_gimme is actually also only 2 bits, so could be merged with something.
+*/
+
+#define CxOLD_IN_EVAL(cx)	(((cx)->blk_u16) & 0x7F)
+#define CxOLD_OP_TYPE(cx)	(((cx)->blk_u16) >> 7)
+
+/* loop context */
+struct block_loop {
+    LOOP *	my_op;	/* My op, that contains redo, next and last ops.  */
+    union {	/* different ways of locating the iteration variable */
+	SV      **svp; /* for lexicals: address of pad slot */
+	GV      *gv;   /* for package vars */
+    } itervar_u;
+    SV          *itersave; /* the original iteration var */
+    union {
+	struct { /* CXt_LOOP_ARY, C<for (@ary)>  */
+	    AV *ary; /* array being iterated over */
+	    IV  ix;   /* index relative to base of array */
+	} ary;
+	struct { /* CXt_LOOP_LIST, C<for (list)> */
+	    I32 basesp; /* first element of list on stack */
+	    IV  ix;      /* index relative to basesp */
+	} stack;
+	struct { /* CXt_LOOP_LAZYIV, C<for (1..9)> */
+	    IV cur;
+	    IV end;
+	} lazyiv;
+	struct { /* CXt_LOOP_LAZYSV C<for ('a'..'z')> */
+	    SV * cur;
+	    SV * end; /* maxiumum value (or minimum in reverse) */
+	} lazysv;
+    } state_u;
+#ifdef USE_ITHREADS
+    PAD *oldcomppad; /* needed to map itervar_u.svp during thread clone */
+#endif
+};
+
+#define CxITERVAR(c)                                    \
+        (CxPADLOOP(c)                                   \
+            ? (c)->blk_loop.itervar_u.svp               \
+            : ((c)->cx_type & CXp_FOR_GV)               \
+                ? &GvSV((c)->blk_loop.itervar_u.gv)     \
+                : (SV **)&(c)->blk_loop.itervar_u.gv)
+
+#define CxLABEL(c)	(0 + CopLABEL((c)->blk_oldcop))
+#define CxLABEL_len(c,len)	(0 + CopLABEL_len((c)->blk_oldcop, len))
+#define CxLABEL_len_flags(c,len,flags)	(0 + CopLABEL_len_flags((c)->blk_oldcop, len, flags))
+#define CxHASARGS(c)	(((c)->cx_type & CXp_HASARGS) == CXp_HASARGS)
+
+/* CxLVAL(): the lval flags of the call site: the relevant flag bits from
+ * the op_private field of the calling pp_entersub (or its caller's caller
+ * if the caller's lvalue context isn't known):
+ *  OPpLVAL_INTRO:  sub used in lvalue context, e.g. f() = 1;
+ *  OPpENTERSUB_INARGS (in conjunction with OPpLVAL_INTRO): the
+ *      function is being used as a sub arg or as a referent, e.g.
+ *      g(...,f(),...)  or $r = \f()
+ *  OPpDEREF: 2-bit mask indicating e.g. f()->[0].
+ *  Note the contrast with CvLVALUE(), which is a property of the sub
+ *  rather than the call site.
+ */
+#define CxLVAL(c)	(0 + ((c)->blk_u16 & 0xff))
+
+
+
+/* given/when context */
+struct block_givwhen {
+	OP *leave_op;
+        SV *defsv_save; /* the original $_ */
+};
+
+
+
+/* context common to subroutines, evals and loops */
+struct block {
+    U8		blku_type;	/* what kind of context this is */
+    U8		blku_gimme;	/* is this block running in list context? */
+    U16		blku_u16;	/* used by block_sub and block_eval (so far) */
+    I32		blku_oldsaveix; /* saved PL_savestack_ix */
+    /* all the fields above must be aligned with same-sized fields as sbu */
+    I32		blku_oldsp;	/* current sp floor: where nextstate pops to */
+    I32		blku_oldmarksp;	/* mark stack index */
+    COP *	blku_oldcop;	/* old curcop pointer */
+    PMOP *	blku_oldpm;	/* values of pattern match vars */
+    SSize_t     blku_old_tmpsfloor;     /* saved PL_tmps_floor */
+    I32		blku_oldscopesp;	/* scope stack index */
+
+    union {
+	struct block_sub	blku_sub;
+	struct block_format	blku_format;
+	struct block_eval	blku_eval;
+	struct block_loop	blku_loop;
+	struct block_givwhen	blku_givwhen;
+    } blk_u;
+};
+#define blk_oldsp	cx_u.cx_blk.blku_oldsp
+#define blk_oldcop	cx_u.cx_blk.blku_oldcop
+#define blk_oldmarksp	cx_u.cx_blk.blku_oldmarksp
+#define blk_oldscopesp	cx_u.cx_blk.blku_oldscopesp
+#define blk_oldpm	cx_u.cx_blk.blku_oldpm
+#define blk_gimme	cx_u.cx_blk.blku_gimme
+#define blk_u16		cx_u.cx_blk.blku_u16
+#define blk_oldsaveix   cx_u.cx_blk.blku_oldsaveix
+#define blk_old_tmpsfloor cx_u.cx_blk.blku_old_tmpsfloor
+#define blk_sub		cx_u.cx_blk.blk_u.blku_sub
+#define blk_format	cx_u.cx_blk.blk_u.blku_format
+#define blk_eval	cx_u.cx_blk.blk_u.blku_eval
+#define blk_loop	cx_u.cx_blk.blk_u.blku_loop
+#define blk_givwhen	cx_u.cx_blk.blk_u.blku_givwhen
+
+#define CX_DEBUG(cx, action)						\
+    DEBUG_l(								\
+	Perl_deb(aTHX_ "CX %ld %s %s (scope %ld,%ld) (save %ld,%ld) at %s:%d\n",\
+		    (long)cxstack_ix,					\
+		    action,						\
+		    PL_block_type[CxTYPE(cx)],	                        \
+		    (long)PL_scopestack_ix,				\
+		    (long)(cx->blk_oldscopesp),		                \
+		    (long)PL_savestack_ix,				\
+		    (long)(cx->blk_oldsaveix),                          \
+		    __FILE__, __LINE__));
+
+
+
+/* substitution context */
+struct subst {
+    U8		sbu_type;	/* same as blku_type */
+    U8		sbu_rflags;
+    U16		sbu_rxtainted;
+    I32		sbu_oldsaveix; /* same as blku_oldsaveix */
+    /* all the fields above must be aligned with same-sized fields as blk_u */
+    SSize_t	sbu_iters;
+    SSize_t	sbu_maxiters;
+    char *	sbu_orig;
+    SV *	sbu_dstr;
+    SV *	sbu_targ;
+    char *	sbu_s;
+    char *	sbu_m;
+    char *	sbu_strend;
+    void *	sbu_rxres;
+    REGEXP *	sbu_rx;
+};
+#define sb_iters	cx_u.cx_subst.sbu_iters
+#define sb_maxiters	cx_u.cx_subst.sbu_maxiters
+#define sb_rflags	cx_u.cx_subst.sbu_rflags
+#define sb_rxtainted	cx_u.cx_subst.sbu_rxtainted
+#define sb_orig		cx_u.cx_subst.sbu_orig
+#define sb_dstr		cx_u.cx_subst.sbu_dstr
+#define sb_targ		cx_u.cx_subst.sbu_targ
+#define sb_s		cx_u.cx_subst.sbu_s
+#define sb_m		cx_u.cx_subst.sbu_m
+#define sb_strend	cx_u.cx_subst.sbu_strend
+#define sb_rxres	cx_u.cx_subst.sbu_rxres
+#define sb_rx		cx_u.cx_subst.sbu_rx
+
+#ifdef PERL_CORE
+#  define CX_PUSHSUBST(cx) CXINC, cx = CX_CUR(),		        \
+	cx->blk_oldsaveix = oldsave,				        \
+	cx->sb_iters		= iters,				\
+	cx->sb_maxiters		= maxiters,				\
+	cx->sb_rflags		= r_flags,				\
+	cx->sb_rxtainted	= rxtainted,				\
+	cx->sb_orig		= orig,					\
+	cx->sb_dstr		= dstr,					\
+	cx->sb_targ		= targ,					\
+	cx->sb_s		= s,					\
+	cx->sb_m		= m,					\
+	cx->sb_strend		= strend,				\
+	cx->sb_rxres		= NULL,					\
+	cx->sb_rx		= rx,					\
+	cx->cx_type		= CXt_SUBST | (once ? CXp_ONCE : 0);	\
+	rxres_save(&cx->sb_rxres, rx);					\
+	(void)ReREFCNT_inc(rx);						\
+        SvREFCNT_inc_void_NN(targ)
+
+#  define CX_POPSUBST(cx) \
+    STMT_START {							\
+        REGEXP *re;                                                     \
+        assert(CxTYPE(cx) == CXt_SUBST);                                \
+	rxres_free(&cx->sb_rxres);					\
+	re = cx->sb_rx;                                                 \
+	cx->sb_rx = NULL;                                               \
+	ReREFCNT_dec(re);                                               \
+        SvREFCNT_dec_NN(cx->sb_targ);                                   \
+    } STMT_END
+#endif
+
+#define CxONCE(cx)		((cx)->cx_type & CXp_ONCE)
+
+struct context {
+    union {
+	struct block	cx_blk;
+	struct subst	cx_subst;
+    } cx_u;
+};
+#define cx_type cx_u.cx_subst.sbu_type
+
+/* If you re-order these, there is also an array of uppercase names in perl.h
+   and a static array of context names in pp_ctl.c  */
+#define CXTYPEMASK	0xf
+#define CXt_NULL	0 /* currently only used for sort BLOCK */
+#define CXt_WHEN	1
+#define CXt_BLOCK	2
+/* When micro-optimising :-) keep GIVEN next to the LOOPs, as these 5 share a
+   jump table in pp_ctl.c
+   The first 4 don't have a 'case' in at least one switch statement in pp_ctl.c
+*/
+#define CXt_GIVEN	3
+
+/* be careful of the ordering of these five. Macros like CxTYPE_is_LOOP,
+ * CxFOREACH compare ranges */
+#define CXt_LOOP_ARY	4 /* for (@ary)     { ...; } */
+#define CXt_LOOP_LAZYSV	5 /* for ('a'..'z') { ...; } */
+#define CXt_LOOP_LAZYIV	6 /* for (1..9)     { ...; } */
+#define CXt_LOOP_LIST	7 /* for (1,2,3)    { ...; } */
+#define CXt_LOOP_PLAIN	8 /* while (...)    { ...; }
+                             or plain block { ...; } */
+#define CXt_SUB		9
+#define CXt_FORMAT     10
+#define CXt_EVAL       11
+#define CXt_SUBST      12
+/* SUBST doesn't feature in all switch statements.  */
+
+/* private flags for CXt_SUB and CXt_FORMAT */
+#define CXp_MULTICALL	0x10	/* part of a multicall (so don't tear down
+                                   context on exit). (not CXt_FORMAT) */
+#define CXp_HASARGS	0x20
+#define CXp_SUB_RE	0x40    /* code called within regex, i.e. (?{}) */
+#define CXp_SUB_RE_FAKE	0x80    /* fake sub CX for (?{}) in current scope */
+
+/* private flags for CXt_EVAL */
+#define CXp_REAL	0x20	/* truly eval'', not a lookalike */
+#define CXp_TRYBLOCK	0x40	/* eval{}, not eval'' or similar */
+
+/* private flags for CXt_LOOP */
+
+/* this is only set in conjunction with CXp_FOR_GV */
+#define CXp_FOR_DEF	0x10	/* foreach using $_ */
+/* these 3 are mutually exclusive */
+#define CXp_FOR_LVREF	0x20	/* foreach using \$var */
+#define CXp_FOR_GV	0x40	/* foreach using package var */
+#define CXp_FOR_PAD	0x80	/* foreach using lexical var */
+
+#define CxPADLOOP(c)	((c)->cx_type & CXp_FOR_PAD)
+
+/* private flags for CXt_SUBST */
+#define CXp_ONCE	0x10	/* What was sbu_once in struct subst */
+
+#define CxTYPE(c)	((c)->cx_type & CXTYPEMASK)
+#define CxTYPE_is_LOOP(c) (   CxTYPE(cx) >= CXt_LOOP_ARY                \
+                           && CxTYPE(cx) <= CXt_LOOP_PLAIN)
+#define CxMULTICALL(c)	((c)->cx_type & CXp_MULTICALL)
+#define CxREALEVAL(c)	(((c)->cx_type & (CXTYPEMASK|CXp_REAL))		\
+			 == (CXt_EVAL|CXp_REAL))
+#define CxTRYBLOCK(c)	(((c)->cx_type & (CXTYPEMASK|CXp_TRYBLOCK))	\
+			 == (CXt_EVAL|CXp_TRYBLOCK))
+#define CxFOREACH(c)	(   CxTYPE(cx) >= CXt_LOOP_ARY                  \
+                         && CxTYPE(cx) <= CXt_LOOP_LIST)
+
+#define CXINC (cxstack_ix < cxstack_max ? ++cxstack_ix : (cxstack_ix = cxinc()))
+
+/* 
+=head1 "Gimme" Values
+*/
+
+/*
+=for apidoc AmU||G_SCALAR
+Used to indicate scalar context.  See C<L</GIMME_V>>, C<L</GIMME>>, and
+L<perlcall>.
+
+=for apidoc AmU||G_ARRAY
+Used to indicate list context.  See C<L</GIMME_V>>, C<L</GIMME>> and
+L<perlcall>.
+
+=for apidoc AmU||G_VOID
+Used to indicate void context.  See C<L</GIMME_V>> and L<perlcall>.
+
+=for apidoc AmU||G_DISCARD
+Indicates that arguments returned from a callback should be discarded.  See
+L<perlcall>.
+
+=for apidoc AmU||G_EVAL
+
+Used to force a Perl C<eval> wrapper around a callback.  See
+L<perlcall>.
+
+=for apidoc AmU||G_NOARGS
+
+Indicates that no arguments are being sent to a callback.  See
+L<perlcall>.
+
+=cut
+*/
+
+#define G_SCALAR	2
+#define G_ARRAY		3
+#define G_VOID		1
+#define G_WANT		3
+
+/* extra flags for Perl_call_* routines */
+#define G_DISCARD	4	/* Call FREETMPS.
+				   Don't change this without consulting the
+				   hash actions codes defined in hv.h */
+#define G_EVAL		8	/* Assume eval {} around subroutine call. */
+#define G_NOARGS       16	/* Don't construct a @_ array. */
+#define G_KEEPERR      32	/* Warn for errors, don't overwrite $@ */
+#define G_NODEBUG      64	/* Disable debugging at toplevel.  */
+#define G_METHOD      128       /* Calling method. */
+#define G_FAKINGEVAL  256	/* Faking an eval context for call_sv or
+				   fold_constants. */
+#define G_UNDEF_FILL  512	/* Fill the stack with &PL_sv_undef
+				   A special case for UNSHIFT in
+				   Perl_magic_methcall().  */
+#define G_WRITING_TO_STDERR 1024 /* Perl_write_to_stderr() is calling
+				    Perl_magic_methcall().  */
+#define G_RE_REPARSING 0x800     /* compiling a run-time /(?{..})/ */
+#define G_METHOD_NAMED 4096	/* calling named method, eg without :: or ' */
+
+/* flag bits for PL_in_eval */
+#define EVAL_NULL	0	/* not in an eval */
+#define EVAL_INEVAL	1	/* some enclosing scope is an eval */
+#define EVAL_WARNONLY	2	/* used by yywarn() when calling yyerror() */
+#define EVAL_KEEPERR	4	/* set by Perl_call_sv if G_KEEPERR */
+#define EVAL_INREQUIRE	8	/* The code is being required. */
+#define EVAL_RE_REPARSING 0x10	/* eval_sv() called with G_RE_REPARSING */
+
+/* Support for switching (stack and block) contexts.
+ * This ensures magic doesn't invalidate local stack and cx pointers.
+ */
+
+#define PERLSI_UNKNOWN		-1
+#define PERLSI_UNDEF		0
+#define PERLSI_MAIN		1
+#define PERLSI_MAGIC		2
+#define PERLSI_SORT		3
+#define PERLSI_SIGNAL		4
+#define PERLSI_OVERLOAD		5
+#define PERLSI_DESTROY		6
+#define PERLSI_WARNHOOK		7
+#define PERLSI_DIEHOOK		8
+#define PERLSI_REQUIRE		9
+#define PERLSI_MULTICALL       10
+
+struct stackinfo {
+    AV *		si_stack;	/* stack for current runlevel */
+    PERL_CONTEXT *	si_cxstack;	/* context stack for runlevel */
+    struct stackinfo *	si_prev;
+    struct stackinfo *	si_next;
+    I32			si_cxix;	/* current context index */
+    I32			si_cxmax;	/* maximum allocated index */
+    I32			si_type;	/* type of runlevel */
+    I32			si_markoff;	/* offset where markstack begins for us.
+					 * currently used only with DEBUGGING,
+					 * but not #ifdef-ed for bincompat */
+};
+
+typedef struct stackinfo PERL_SI;
+
+#define cxstack		(PL_curstackinfo->si_cxstack)
+#define cxstack_ix	(PL_curstackinfo->si_cxix)
+#define cxstack_max	(PL_curstackinfo->si_cxmax)
+
+#ifdef DEBUGGING
+#  define	SET_MARK_OFFSET \
+    PL_curstackinfo->si_markoff = PL_markstack_ptr - PL_markstack
+#else
+#  define	SET_MARK_OFFSET NOOP
+#endif
+
+#define PUSHSTACKi(type) \
+    STMT_START {							\
+	PERL_SI *next = PL_curstackinfo->si_next;			\
+	DEBUG_l({							\
+	    int i = 0; PERL_SI *p = PL_curstackinfo;			\
+	    while (p) { i++; p = p->si_prev; }				\
+	    Perl_deb(aTHX_ "push STACKINFO %d at %s:%d\n",		\
+		         i, __FILE__, __LINE__);})			\
+	if (!next) {							\
+	    next = new_stackinfo(32, 2048/sizeof(PERL_CONTEXT) - 1);	\
+	    next->si_prev = PL_curstackinfo;				\
+	    PL_curstackinfo->si_next = next;				\
+	}								\
+	next->si_type = type;						\
+	next->si_cxix = -1;						\
+	AvFILLp(next->si_stack) = 0;					\
+	SWITCHSTACK(PL_curstack,next->si_stack);			\
+	PL_curstackinfo = next;						\
+	SET_MARK_OFFSET;						\
+    } STMT_END
+
+#define PUSHSTACK PUSHSTACKi(PERLSI_UNKNOWN)
+
+/* POPSTACK works with PL_stack_sp, so it may need to be bracketed by
+ * PUTBACK/SPAGAIN to flush/refresh any local SP that may be active */
+#define POPSTACK \
+    STMT_START {							\
+	dSP;								\
+	PERL_SI * const prev = PL_curstackinfo->si_prev;		\
+	DEBUG_l({							\
+	    int i = -1; PERL_SI *p = PL_curstackinfo;			\
+	    while (p) { i++; p = p->si_prev; }				\
+	    Perl_deb(aTHX_ "pop  STACKINFO %d at %s:%d\n",		\
+		         i, __FILE__, __LINE__);})			\
+	if (!prev) {							\
+	    Perl_croak_popstack();					\
+	}								\
+	SWITCHSTACK(PL_curstack,prev->si_stack);			\
+	/* don't free prev here, free them all at the END{} */		\
+	PL_curstackinfo = prev;						\
+    } STMT_END
+
+#define POPSTACK_TO(s) \
+    STMT_START {							\
+	while (PL_curstack != s) {					\
+	    dounwind(-1);						\
+	    POPSTACK;							\
+	}								\
+    } STMT_END
+
+#define IN_PERL_COMPILETIME	cBOOL(PL_curcop == &PL_compiling)
+#define IN_PERL_RUNTIME		cBOOL(PL_curcop != &PL_compiling)
+
+
+
+
+/*
+=head1 Multicall Functions
+
+=for apidoc Ams||dMULTICALL
+Declare local variables for a multicall.  See L<perlcall/LIGHTWEIGHT CALLBACKS>.
+
+=for apidoc Ams||PUSH_MULTICALL
+Opening bracket for a lightweight callback.
+See L<perlcall/LIGHTWEIGHT CALLBACKS>.
+
+=for apidoc Ams||MULTICALL
+Make a lightweight callback.  See L<perlcall/LIGHTWEIGHT CALLBACKS>.
+
+=for apidoc Ams||POP_MULTICALL
+Closing bracket for a lightweight callback.
+See L<perlcall/LIGHTWEIGHT CALLBACKS>.
+
+=cut
+*/
+
+#define dMULTICALL \
+    OP  *multicall_cop;							\
+    bool multicall_oldcatch
+
+#define PUSH_MULTICALL(the_cv) \
+    PUSH_MULTICALL_FLAGS(the_cv, 0)
+
+/* Like PUSH_MULTICALL, but allows you to specify extra flags
+ * for the CX stack entry (this isn't part of the public API) */
+
+#define PUSH_MULTICALL_FLAGS(the_cv, flags) \
+    STMT_START {							\
+        PERL_CONTEXT *cx;						\
+	CV * const _nOnclAshIngNamE_ = the_cv;				\
+	CV * const cv = _nOnclAshIngNamE_;				\
+	PADLIST * const padlist = CvPADLIST(cv);			\
+ 	multicall_oldcatch = CATCH_GET;					\
+	CATCH_SET(TRUE);						\
+	PUSHSTACKi(PERLSI_MULTICALL);					\
+	cx = cx_pushblock((CXt_SUB|CXp_MULTICALL|flags), (U8)gimme,     \
+                  PL_stack_sp, PL_savestack_ix);	                \
+        cx_pushsub(cx, cv, NULL, 0);                                    \
+	SAVEOP();					                \
+        if (!(flags & CXp_SUB_RE_FAKE))                                 \
+            CvDEPTH(cv)++;						\
+	if (CvDEPTH(cv) >= 2)  						\
+	    Perl_pad_push(aTHX_ padlist, CvDEPTH(cv));			\
+	PAD_SET_CUR_NOSAVE(padlist, CvDEPTH(cv));			\
+	multicall_cop = CvSTART(cv);					\
+    } STMT_END
+
+#define MULTICALL \
+    STMT_START {							\
+	PL_op = multicall_cop;						\
+	CALLRUNOPS(aTHX);						\
+    } STMT_END
+
+#define POP_MULTICALL \
+    STMT_START {							\
+        PERL_CONTEXT *cx;						\
+	cx = CX_CUR();					                \
+	CX_LEAVE_SCOPE(cx);                                             \
+        cx_popsub_common(cx);                                           \
+        gimme = cx->blk_gimme;                                          \
+        PERL_UNUSED_VAR(gimme); /* for API */                           \
+	cx_popblock(cx);				   		\
+	CX_POP(cx);                                                     \
+	POPSTACK;							\
+	CATCH_SET(multicall_oldcatch);					\
+	SPAGAIN;							\
+    } STMT_END
+
+/* Change the CV of an already-pushed MULTICALL CxSUB block.
+ * (this isn't part of the public API) */
+
+#define CHANGE_MULTICALL_FLAGS(the_cv, flags) \
+    STMT_START {							\
+	CV * const _nOnclAshIngNamE_ = the_cv;				\
+	CV * const cv = _nOnclAshIngNamE_;				\
+	PADLIST * const padlist = CvPADLIST(cv);			\
+        PERL_CONTEXT *cx = CX_CUR();					\
+	assert(CxMULTICALL(cx));                                        \
+        cx_popsub_common(cx);                                           \
+	cx->cx_type = (CXt_SUB|CXp_MULTICALL|flags);                    \
+        cx_pushsub(cx, cv, NULL, 0);			                \
+        if (!(flags & CXp_SUB_RE_FAKE))                                 \
+            CvDEPTH(cv)++;						\
+	if (CvDEPTH(cv) >= 2)  						\
+	    Perl_pad_push(aTHX_ padlist, CvDEPTH(cv));			\
+	PAD_SET_CUR_NOSAVE(padlist, CvDEPTH(cv));			\
+	multicall_cop = CvSTART(cv);					\
+    } STMT_END
+/*
+ * ex: set ts=8 sts=4 sw=4 et:
+ */
diff --git a/lib/5.24.1/x86_64-linux/CORE/cv.h b/lib/5.24.1/x86_64-linux/CORE/cv.h
new file mode 100644
index 00000000..ebbdd360
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/cv.h
@@ -0,0 +1,314 @@
+/*    cv.h
+ *
+ *    Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1999, 2000, 2001,
+ *    2002, 2003, 2004, 2005, 2006, 2007, 2008 by Larry Wall and others
+ *
+ *    You may distribute under the terms of either the GNU General Public
+ *    License or the Artistic License, as specified in the README file.
+ *
+ */
+
+/* This structure must match the beginning of XPVFM in sv.h  */
+
+struct xpvcv {
+    _XPV_HEAD;
+    _XPVCV_COMMON;
+};
+
+/*
+=head1 Handy Values
+
+=for apidoc AmU||Nullcv
+Null CV pointer.
+
+(deprecated - use C<(CV *)NULL> instead)
+
+=head1 CV Manipulation Functions
+
+This section documents functions to manipulate CVs which are code-values,
+or subroutines.  For more information, see L<perlguts>.
+
+=for apidoc Am|HV*|CvSTASH|CV* cv
+Returns the stash of the CV.  A stash is the symbol table hash, containing
+the package-scoped variables in the package where the subroutine was defined.
+For more information, see L<perlguts>.
+
+This also has a special use with XS AUTOLOAD subs.
+See L<perlguts/Autoloading with XSUBs>.
+
+=cut
+*/
+
+#ifndef PERL_CORE
+#  define Nullcv Null(CV*)
+#endif
+
+#define CvSTASH(sv)	(0+((XPVCV*)MUTABLE_PTR(SvANY(sv)))->xcv_stash)
+#define CvSTASH_set(cv,st) Perl_cvstash_set(aTHX_ cv, st)
+#define CvSTART(sv)	((XPVCV*)MUTABLE_PTR(SvANY(sv)))->xcv_start_u.xcv_start
+#define CvROOT(sv)	((XPVCV*)MUTABLE_PTR(SvANY(sv)))->xcv_root_u.xcv_root
+#define CvXSUB(sv)	((XPVCV*)MUTABLE_PTR(SvANY(sv)))->xcv_root_u.xcv_xsub
+#define CvXSUBANY(sv)	((XPVCV*)MUTABLE_PTR(SvANY(sv)))->xcv_start_u.xcv_xsubany
+#define CvGV(sv)	S_CvGV(aTHX_ (CV *)(sv))
+#define CvGV_set(cv,gv)	Perl_cvgv_set(aTHX_ cv, gv)
+#define CvHASGV(cv)	cBOOL(SvANY(cv)->xcv_gv_u.xcv_gv)
+#define CvFILE(sv)	((XPVCV*)MUTABLE_PTR(SvANY(sv)))->xcv_file
+#ifdef USE_ITHREADS
+#  define CvFILE_set_from_cop(sv, cop)	\
+    (CvFILE(sv) = savepv(CopFILE(cop)), CvDYNFILE_on(sv))
+#else
+#  define CvFILE_set_from_cop(sv, cop)	\
+    (CvFILE(sv) = CopFILE(cop), CvDYNFILE_off(sv))
+#endif
+#define CvFILEGV(sv)	(gv_fetchfile(CvFILE(sv)))
+#define CvDEPTH(sv)	(*S_CvDEPTHp((const CV *)sv))
+/* For use when you only have a XPVCV*, not a real CV*.
+   Must be assert protected as in S_CvDEPTHp before use. */
+#define CvDEPTHunsafe(sv) ((XPVCV*)MUTABLE_PTR(SvANY(sv)))->xcv_depth
+
+/* these CvPADLIST/CvRESERVED asserts can be reverted one day, once stabilized */
+#define CvPADLIST(sv)	  (*(assert_(!CvISXSUB((CV*)(sv))) \
+	&(((XPVCV*)MUTABLE_PTR(SvANY(sv)))->xcv_padlist_u.xcv_padlist)))
+/* CvPADLIST_set is not public API, it can be removed one day, once stabilized */
+#ifdef DEBUGGING
+#  define CvPADLIST_set(sv, padlist) Perl_set_padlist((CV*)sv, padlist)
+#else
+#  define CvPADLIST_set(sv, padlist) (CvPADLIST(sv) = (padlist))
+#endif
+#define CvHSCXT(sv)	  *(assert_(CvISXSUB((CV*)(sv))) \
+	&(((XPVCV*)MUTABLE_PTR(SvANY(sv)))->xcv_padlist_u.xcv_hscxt))
+#ifdef DEBUGGING
+#  if PTRSIZE == 8
+#    define PoisonPADLIST(sv) \
+        (((XPVCV*)MUTABLE_PTR(SvANY(sv)))->xcv_padlist_u.xcv_padlist = (PADLIST *)UINT64_C(0xEFEFEFEFEFEFEFEF))
+#  elif PTRSIZE == 4
+#    define PoisonPADLIST(sv) \
+        (((XPVCV*)MUTABLE_PTR(SvANY(sv)))->xcv_padlist_u.xcv_padlist = (PADLIST *)0xEFEFEFEF)
+#  else
+#    error unknown pointer size
+#  endif
+#else
+#  define PoisonPADLIST(sv) NOOP
+#endif
+
+#define CvOUTSIDE(sv)	  ((XPVCV*)MUTABLE_PTR(SvANY(sv)))->xcv_outside
+#define CvOUTSIDE_SEQ(sv) ((XPVCV*)MUTABLE_PTR(SvANY(sv)))->xcv_outside_seq
+#define CvFLAGS(sv)	  ((XPVCV*)MUTABLE_PTR(SvANY(sv)))->xcv_flags
+
+/* These two are sometimes called on non-CVs */
+#define CvPROTO(sv)                               \
+	(                                          \
+	 SvPOK(sv)                                  \
+	  ? SvTYPE(sv) == SVt_PVCV && CvAUTOLOAD(sv) \
+	     ? SvEND(sv)+1 : SvPVX_const(sv)          \
+	  : NULL                                       \
+	)
+#define CvPROTOLEN(sv)	                          \
+	(                                          \
+	 SvPOK(sv)                                  \
+	  ? SvTYPE(sv) == SVt_PVCV && CvAUTOLOAD(sv) \
+	     ? SvLEN(sv)-SvCUR(sv)-2                  \
+	     : SvCUR(sv)                               \
+	  : 0                                           \
+	)
+
+#define CVf_METHOD	0x0001	/* CV is explicitly marked as a method */
+#define CVf_LVALUE	0x0002  /* CV return value can be used as lvalue */
+#define CVf_CONST	0x0004  /* inlinable sub */
+#define CVf_ISXSUB	0x0008	/* CV is an XSUB, not pure perl.  */
+
+#define CVf_WEAKOUTSIDE	0x0010  /* CvOUTSIDE isn't ref counted */
+#define CVf_CLONE	0x0020	/* anon CV uses external lexicals */
+#define CVf_CLONED	0x0040	/* a clone of one of those */
+#define CVf_ANON	0x0080	/* CV is not pointed to by a GV */
+#define CVf_UNIQUE	0x0100	/* sub is only called once (eg PL_main_cv,
+				 * require, eval). */
+#define CVf_NODEBUG	0x0200	/* no DB::sub indirection for this CV
+				   (esp. useful for special XSUBs) */
+#define CVf_CVGV_RC	0x0400	/* CvGV is reference counted */
+#ifdef PERL_CORE
+# define CVf_SLABBED	0x0800	/* Holds refcount on op slab  */
+#endif
+#define CVf_DYNFILE	0x1000	/* The filename isn't static  */
+#define CVf_AUTOLOAD	0x2000	/* SvPVX contains AUTOLOADed sub name  */
+#define CVf_HASEVAL	0x4000	/* contains string eval  */
+#define CVf_NAMED	0x8000  /* Has a name HEK */
+#define CVf_LEXICAL	0x10000 /* Omit package from name */
+#define CVf_ANONCONST	0x20000 /* :const - create anonconst op */
+
+/* This symbol for optimised communication between toke.c and op.c: */
+#define CVf_BUILTIN_ATTRS	(CVf_METHOD|CVf_LVALUE|CVf_ANONCONST)
+
+#define CvCLONE(cv)		(CvFLAGS(cv) & CVf_CLONE)
+#define CvCLONE_on(cv)		(CvFLAGS(cv) |= CVf_CLONE)
+#define CvCLONE_off(cv)		(CvFLAGS(cv) &= ~CVf_CLONE)
+
+#define CvCLONED(cv)		(CvFLAGS(cv) & CVf_CLONED)
+#define CvCLONED_on(cv)		(CvFLAGS(cv) |= CVf_CLONED)
+#define CvCLONED_off(cv)	(CvFLAGS(cv) &= ~CVf_CLONED)
+
+#define CvANON(cv)		(CvFLAGS(cv) & CVf_ANON)
+#define CvANON_on(cv)		(CvFLAGS(cv) |= CVf_ANON)
+#define CvANON_off(cv)		(CvFLAGS(cv) &= ~CVf_ANON)
+
+/* CvEVAL or CvSPECIAL */
+#define CvUNIQUE(cv)		(CvFLAGS(cv) & CVf_UNIQUE)
+#define CvUNIQUE_on(cv)		(CvFLAGS(cv) |= CVf_UNIQUE)
+#define CvUNIQUE_off(cv)	(CvFLAGS(cv) &= ~CVf_UNIQUE)
+
+#define CvNODEBUG(cv)		(CvFLAGS(cv) & CVf_NODEBUG)
+#define CvNODEBUG_on(cv)	(CvFLAGS(cv) |= CVf_NODEBUG)
+#define CvNODEBUG_off(cv)	(CvFLAGS(cv) &= ~CVf_NODEBUG)
+
+#define CvMETHOD(cv)		(CvFLAGS(cv) & CVf_METHOD)
+#define CvMETHOD_on(cv)		(CvFLAGS(cv) |= CVf_METHOD)
+#define CvMETHOD_off(cv)	(CvFLAGS(cv) &= ~CVf_METHOD)
+
+#define CvLVALUE(cv)		(CvFLAGS(cv) & CVf_LVALUE)
+#define CvLVALUE_on(cv)		(CvFLAGS(cv) |= CVf_LVALUE)
+#define CvLVALUE_off(cv)	(CvFLAGS(cv) &= ~CVf_LVALUE)
+
+/* eval or PL_main_cv */
+#define CvEVAL(cv)		(CvUNIQUE(cv) && !SvFAKE(cv))
+#define CvEVAL_on(cv)		(CvUNIQUE_on(cv),SvFAKE_off(cv))
+#define CvEVAL_off(cv)		CvUNIQUE_off(cv)
+
+/* BEGIN|CHECK|INIT|UNITCHECK|END */
+#define CvSPECIAL(cv)		(CvUNIQUE(cv) && SvFAKE(cv))
+#define CvSPECIAL_on(cv)	(CvUNIQUE_on(cv),SvFAKE_on(cv))
+#define CvSPECIAL_off(cv)	(CvUNIQUE_off(cv),SvFAKE_off(cv))
+
+#define CvCONST(cv)		(CvFLAGS(cv) & CVf_CONST)
+#define CvCONST_on(cv)		(CvFLAGS(cv) |= CVf_CONST)
+#define CvCONST_off(cv)		(CvFLAGS(cv) &= ~CVf_CONST)
+
+#define CvWEAKOUTSIDE(cv)	(CvFLAGS(cv) & CVf_WEAKOUTSIDE)
+#define CvWEAKOUTSIDE_on(cv)	(CvFLAGS(cv) |= CVf_WEAKOUTSIDE)
+#define CvWEAKOUTSIDE_off(cv)	(CvFLAGS(cv) &= ~CVf_WEAKOUTSIDE)
+
+#define CvISXSUB(cv)		(CvFLAGS(cv) & CVf_ISXSUB)
+#define CvISXSUB_on(cv)		(CvFLAGS(cv) |= CVf_ISXSUB)
+#define CvISXSUB_off(cv)	(CvFLAGS(cv) &= ~CVf_ISXSUB)
+
+#define CvCVGV_RC(cv)		(CvFLAGS(cv) & CVf_CVGV_RC)
+#define CvCVGV_RC_on(cv)	(CvFLAGS(cv) |= CVf_CVGV_RC)
+#define CvCVGV_RC_off(cv)	(CvFLAGS(cv) &= ~CVf_CVGV_RC)
+
+#ifdef PERL_CORE
+# define CvSLABBED(cv)		(CvFLAGS(cv) & CVf_SLABBED)
+# define CvSLABBED_on(cv)	(CvFLAGS(cv) |= CVf_SLABBED)
+# define CvSLABBED_off(cv)	(CvFLAGS(cv) &= ~CVf_SLABBED)
+#endif
+
+#define CvDYNFILE(cv)		(CvFLAGS(cv) & CVf_DYNFILE)
+#define CvDYNFILE_on(cv)	(CvFLAGS(cv) |= CVf_DYNFILE)
+#define CvDYNFILE_off(cv)	(CvFLAGS(cv) &= ~CVf_DYNFILE)
+
+#define CvAUTOLOAD(cv)		(CvFLAGS(cv) & CVf_AUTOLOAD)
+#define CvAUTOLOAD_on(cv)	(CvFLAGS(cv) |= CVf_AUTOLOAD)
+#define CvAUTOLOAD_off(cv)	(CvFLAGS(cv) &= ~CVf_AUTOLOAD)
+
+#define CvHASEVAL(cv)		(CvFLAGS(cv) & CVf_HASEVAL)
+#define CvHASEVAL_on(cv)	(CvFLAGS(cv) |= CVf_HASEVAL)
+#define CvHASEVAL_off(cv)	(CvFLAGS(cv) &= ~CVf_HASEVAL)
+
+#define CvNAMED(cv)		(CvFLAGS(cv) & CVf_NAMED)
+#define CvNAMED_on(cv)		(CvFLAGS(cv) |= CVf_NAMED)
+#define CvNAMED_off(cv)		(CvFLAGS(cv) &= ~CVf_NAMED)
+
+#define CvLEXICAL(cv)		(CvFLAGS(cv) & CVf_LEXICAL)
+#define CvLEXICAL_on(cv)	(CvFLAGS(cv) |= CVf_LEXICAL)
+#define CvLEXICAL_off(cv)	(CvFLAGS(cv) &= ~CVf_LEXICAL)
+
+#define CvANONCONST(cv)		(CvFLAGS(cv) & CVf_ANONCONST)
+#define CvANONCONST_on(cv)	(CvFLAGS(cv) |= CVf_ANONCONST)
+#define CvANONCONST_off(cv)	(CvFLAGS(cv) &= ~CVf_ANONCONST)
+
+/* Flags for newXS_flags  */
+#define XS_DYNAMIC_FILENAME	0x01	/* The filename isn't static  */
+
+PERL_STATIC_INLINE HEK *
+CvNAME_HEK(CV *sv)
+{
+    return CvNAMED(sv)
+	? ((XPVCV*)MUTABLE_PTR(SvANY(sv)))->xcv_gv_u.xcv_hek
+	: 0;
+}
+/* This lowers the refernce count of the previous value, but does *not*
+   increment the reference count of the new value. */
+#define CvNAME_HEK_set(cv, hek) ( \
+	CvNAME_HEK((CV *)(cv))						 \
+	    ? unshare_hek(SvANY((CV *)(cv))->xcv_gv_u.xcv_hek)	  \
+	    : (void)0,						   \
+	((XPVCV*)MUTABLE_PTR(SvANY(cv)))->xcv_gv_u.xcv_hek = (hek), \
+	CvNAMED_on(cv)						     \
+    )
+
+/*
+=head1 CV reference counts and CvOUTSIDE
+
+=for apidoc m|bool|CvWEAKOUTSIDE|CV *cv
+
+Each CV has a pointer, C<CvOUTSIDE()>, to its lexically enclosing
+CV (if any).  Because pointers to anonymous sub prototypes are
+stored in C<&> pad slots, it is a possible to get a circular reference,
+with the parent pointing to the child and vice-versa.  To avoid the
+ensuing memory leak, we do not increment the reference count of the CV
+pointed to by C<CvOUTSIDE> in the I<one specific instance> that the parent
+has a C<&> pad slot pointing back to us.  In this case, we set the
+C<CvWEAKOUTSIDE> flag in the child.  This allows us to determine under what
+circumstances we should decrement the refcount of the parent when freeing
+the child.
+
+There is a further complication with non-closure anonymous subs (i.e. those
+that do not refer to any lexicals outside that sub).  In this case, the
+anonymous prototype is shared rather than being cloned.  This has the
+consequence that the parent may be freed while there are still active
+children, I<e.g.>,
+
+    BEGIN { $a = sub { eval '$x' } }
+
+In this case, the BEGIN is freed immediately after execution since there
+are no active references to it: the anon sub prototype has
+C<CvWEAKOUTSIDE> set since it's not a closure, and $a points to the same
+CV, so it doesn't contribute to BEGIN's refcount either.  When $a is
+executed, the C<eval '$x'> causes the chain of C<CvOUTSIDE>s to be followed,
+and the freed BEGIN is accessed.
+
+To avoid this, whenever a CV and its associated pad is freed, any
+C<&> entries in the pad are explicitly removed from the pad, and if the
+refcount of the pointed-to anon sub is still positive, then that
+child's C<CvOUTSIDE> is set to point to its grandparent.  This will only
+occur in the single specific case of a non-closure anon prototype
+having one or more active references (such as C<$a> above).
+
+One other thing to consider is that a CV may be merely undefined
+rather than freed, eg C<undef &foo>.  In this case, its refcount may
+not have reached zero, but we still delete its pad and its C<CvROOT> etc.
+Since various children may still have their C<CvOUTSIDE> pointing at this
+undefined CV, we keep its own C<CvOUTSIDE> for the time being, so that
+the chain of lexical scopes is unbroken.  For example, the following
+should print 123:
+
+    my $x = 123;
+    sub tmp { sub { eval '$x' } }
+    my $a = tmp();
+    undef &tmp;
+    print  $a->();
+
+=cut
+*/
+
+typedef OP *(*Perl_call_checker)(pTHX_ OP *, GV *, SV *);
+
+#define CALL_CHECKER_REQUIRE_GV	MGf_REQUIRE_GV
+
+#define CV_NAME_NOTQUAL		1
+
+#ifdef PERL_CORE
+# define CV_UNDEF_KEEP_NAME	1
+#endif
+
+/*
+ * ex: set ts=8 sts=4 sw=4 et:
+ */
diff --git a/lib/5.24.1/x86_64-linux/CORE/dosish.h b/lib/5.24.1/x86_64-linux/CORE/dosish.h
new file mode 100644
index 00000000..c1305cdc
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/dosish.h
@@ -0,0 +1,188 @@
+/*    dosish.h
+ *
+ *    Copyright (C) 1993, 1994, 1996, 1997, 1998, 1999,
+ *    2000, 2001, 2002, 2007, by Larry Wall and others
+ *
+ *    You may distribute under the terms of either the GNU General Public
+ *    License or the Artistic License, as specified in the README file.
+ *
+ */
+#define ABORT() abort();
+
+#ifndef SH_PATH
+#define SH_PATH "/bin/sh"
+#endif
+
+#ifdef DJGPP
+#  define BIT_BUCKET "nul"
+#  define OP_BINARY O_BINARY
+#  define PERL_SYS_INIT_BODY(c,v)					\
+	 MALLOC_CHECK_TAINT2(*c,*v) Perl_DJGPP_init(c,v); PERLIO_INIT
+#  define init_os_extras Perl_init_os_extras
+#  define HAS_UTIME
+#  define HAS_KILL
+   char *djgpp_pathexp (const char*);
+   void Perl_DJGPP_init (int *argcp,char ***argvp);
+#  if (DJGPP==2 && DJGPP_MINOR < 2)
+#    define NO_LOCALECONV_MON_THOUSANDS_SEP
+#  endif
+#  ifndef PERL_CORE
+#    define PERL_FS_VER_FMT	"%d_%d_%d"
+#  endif
+#  define PERL_FS_VERSION	STRINGIFY(PERL_REVISION) "_" \
+				STRINGIFY(PERL_VERSION) "_" \
+				STRINGIFY(PERL_SUBVERSION)
+#else	/* DJGPP */
+#  ifdef WIN32
+#    define PERL_SYS_INIT_BODY(c,v)					\
+	MALLOC_CHECK_TAINT2(*c,*v) Perl_win32_init(c,v); PERLIO_INIT
+#    define PERL_SYS_TERM_BODY()   Perl_win32_term()
+#    define BIT_BUCKET "nul"
+#  else
+#	 ifdef NETWARE
+#      define PERL_SYS_INIT_BODY(c,v)					\
+	MALLOC_CHECK_TAINT2(*c,*v) Perl_nw5_init(c,v); PERLIO_INIT
+#      define BIT_BUCKET "nwnul"
+#    else
+#      define PERL_SYS_INIT_BODY(c,v)		\
+	MALLOC_CHECK_TAINT2(*c,*v); PERLIO_INIT
+#      define BIT_BUCKET "\\dev\\nul" /* "wanna be like, umm, Newlined, or somethin?" */
+#    endif /* NETWARE */
+#  endif
+#endif	/* DJGPP */
+
+#ifndef PERL_SYS_TERM_BODY
+#  define PERL_SYS_TERM_BODY()                              \
+    HINTS_REFCNT_TERM; OP_CHECK_MUTEX_TERM;                 \
+    OP_REFCNT_TERM; PERLIO_TERM; MALLOC_TERM; LOCALE_TERM;
+#endif
+#define dXSUB_SYS
+
+/* USEMYBINMODE
+ *	This symbol, if defined, indicates that the program should
+ *	use the routine my_binmode(FILE *fp, char iotype, int mode) to insure
+ *	that a file is in "binary" mode -- that is, that no translation
+ *	of bytes occurs on read or write operations.
+ */
+#undef USEMYBINMODE
+
+/* Stat_t:
+ *	This symbol holds the type used to declare buffers for information
+ *	returned by stat().  It's usually just struct stat.  It may be necessary
+ *	to include <sys/stat.h> and <sys/types.h> to get any typedef'ed
+ *	information.
+ */
+#if defined(WIN64) || defined(USE_LARGE_FILES)
+#define Stat_t struct _stati64
+#else
+#if defined(UNDER_CE)
+#define Stat_t struct xcestat
+#else
+#define Stat_t struct stat
+#endif
+#endif
+
+/* USE_STAT_RDEV:
+ *	This symbol is defined if this system has a stat structure declaring
+ *	st_rdev
+ */
+#define USE_STAT_RDEV 	/**/
+
+/* ACME_MESS:
+ *	This symbol, if defined, indicates that error messages should be 
+ *	should be generated in a format that allows the use of the Acme
+ *	GUI/editor's autofind feature.
+ */
+#undef ACME_MESS	/**/
+
+/* ALTERNATE_SHEBANG:
+ *	This symbol, if defined, contains a "magic" string which may be used
+ *	as the first line of a Perl program designed to be executed directly
+ *	by name, instead of the standard Unix #!.  If ALTERNATE_SHEBANG
+ *	begins with a character other then #, then Perl will only treat
+ *	it as a command line if it finds the string "perl" in the first
+ *	word; otherwise it's treated as the first line of code in the script.
+ *	(IOW, Perl won't hand off to another interpreter via an alternate
+ *	shebang sequence that might be legal Perl code.)
+ */
+/* #define ALTERNATE_SHEBANG "#!" / **/
+
+#include <signal.h>
+
+/*
+ * fwrite1() should be a routine with the same calling sequence as fwrite(),
+ * but which outputs all of the bytes requested as a single stream (unlike
+ * fwrite() itself, which on some systems outputs several distinct records
+ * if the number_of_items parameter is >1).
+ */
+#define fwrite1 fwrite
+
+#define Fstat(fd,bufptr)   fstat((fd),(bufptr))
+#ifdef DJGPP
+#   define Fflush(fp)      djgpp_fflush(fp)
+#else
+#   define Fflush(fp)      fflush(fp)
+#endif
+#define Mkdir(path,mode)   mkdir((path),(mode))
+
+#ifndef WIN32
+#  define Stat(fname,bufptr) stat((fname),(bufptr))
+#else
+#  define HAS_IOCTL
+#  define HAS_UTIME
+#  define HAS_KILL
+#  define HAS_WAIT
+#  define HAS_CHOWN
+#endif	/* WIN32 */
+
+/*
+ * <rich@phekda.freeserve.co.uk>: The DJGPP port has code that converts
+ * the return code of system() into the form that Unixy wait usually
+ * returns:
+ *
+ * - signal number in bits 0-6;
+ * - core dump flag in bit 7;
+ * - exit code in bits 8-15.
+ *
+ * Bits 0-7 are always zero for DJGPP, because it uses system().
+ * See djgpp.c.
+ *
+ * POSIX::W* use the W* macros from <sys/wait.h> to decode
+ * the return code. Unfortunately the W* macros for DJGPP use
+ * a different format than Unixy wait does. So there's a mismatch
+ * and, say, WEXITSTATUS($?) will return bogus values.
+ *
+ * So here we add hack to redefine the W* macros from DJGPP's <sys/wait.h>
+ * to work with our return-code conversion.
+ */
+
+#ifdef DJGPP
+
+#include <sys/wait.h>
+
+#undef WEXITSTATUS
+#undef WIFEXITED
+#undef WIFSIGNALED
+#undef WIFSTOPPED
+#undef WNOHANG
+#undef WSTOPSIG
+#undef WTERMSIG
+#undef WUNTRACED
+
+#define WEXITSTATUS(stat_val) ((stat_val) >> 8)
+#define WIFEXITED(stat_val)   0
+#define WIFSIGNALED(stat_val) 0
+#define WIFSTOPPED(stat_val)  0
+#define WNOHANG               0
+#define WSTOPSIG(stat_val)    0
+#define WTERMSIG(stat_val)    0
+#define WUNTRACED             0
+
+#endif
+
+/* Don't go reading from /dev/urandom */
+#define PERL_NO_DEV_RANDOM
+
+/*
+ * ex: set ts=8 sts=4 sw=4 et:
+ */
diff --git a/lib/5.24.1/x86_64-linux/CORE/dquote_inline.h b/lib/5.24.1/x86_64-linux/CORE/dquote_inline.h
new file mode 100644
index 00000000..1c7694d8
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/dquote_inline.h
@@ -0,0 +1,67 @@
+/*    dquote_inline.h
+ *
+ *    Copyright (C) 2015 by Larry Wall and others
+ *
+ *    You may distribute under the terms of either the GNU General Public
+ *    License or the Artistic License, as specified in the README file.
+ */
+
+#ifndef DQUOTE_INLINE_H /* Guard against nested #inclusion */
+#define DQUOTE_INLINE_H
+
+/*
+ - regcurly - a little FSA that accepts {\d+,?\d*}
+    Pulled from reg.c.
+ */
+PERL_STATIC_INLINE I32
+S_regcurly(const char *s)
+{
+    PERL_ARGS_ASSERT_REGCURLY;
+
+    if (*s++ != '{')
+	return FALSE;
+    if (!isDIGIT(*s))
+	return FALSE;
+    while (isDIGIT(*s))
+	s++;
+    if (*s == ',') {
+	s++;
+	while (isDIGIT(*s))
+	    s++;
+    }
+
+    return *s == '}';
+}
+
+/* This is inline not for speed, but because it is so tiny */
+
+PERL_STATIC_INLINE char*
+S_form_short_octal_warning(pTHX_
+                           const char * const s, /* Points to first non-octal */
+                           const STRLEN len      /* Length of octals string, so
+                                                    (s-len) points to first
+                                                    octal */
+)
+{
+    /* Return a character string consisting of a warning message for when a
+     * string constant in octal is weird, like "\078".  */
+
+    const char * sans_leading_zeros = s - len;
+
+    PERL_ARGS_ASSERT_FORM_SHORT_OCTAL_WARNING;
+
+    assert(*s == '8' || *s == '9');
+
+    /* Remove the leading zeros, retaining one zero so won't be zero length */
+    while (*sans_leading_zeros == '0') sans_leading_zeros++;
+    if (sans_leading_zeros == s) {
+        sans_leading_zeros--;
+    }
+
+    return Perl_form(aTHX_
+                     "'%.*s' resolved to '\\o{%.*s}%c'",
+                     (int) (len + 2), s - len - 1,
+                     (int) (s - sans_leading_zeros), sans_leading_zeros,
+                     *s);
+}
+#endif  /* DQUOTE_INLINE_H */
diff --git a/lib/5.24.1/x86_64-linux/CORE/ebcdic_tables.h b/lib/5.24.1/x86_64-linux/CORE/ebcdic_tables.h
new file mode 100644
index 00000000..c36ab961
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/ebcdic_tables.h
@@ -0,0 +1,442 @@
+/* -*- buffer-read-only: t -*-
+ * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+ * This file is built by regen/ebcdic.pl.
+ * Any changes made here will be lost!
+ */
+
+
+#ifndef H_EBCDIC_TABLES   /* Guard against nested #includes */
+#define H_EBCDIC_TABLES   1
+
+/* This file contains definitions for various tables used in EBCDIC handling.
+ * More info is in utfebcdic.h */
+
+#if 'A' == 193 /* EBCDIC 1047 */ \
+     && '\\' == 224 && '[' == 173 && ']' == 189 && '{' == 192 && '}' == 208 \
+     && '^' == 95 && '~' == 161 && '!' == 90 && '#' == 123 && '|' == 79 \
+     && '$' == 91 && '@' == 124 && '`' == 121
+
+/* Index is ASCII platform code point; value is EBCDIC 1047 equivalent */
+EXTCONST U8 PL_a2e[] = {
+/*_0   _1   _2   _3   _4   _5   _6   _7   _8   _9   _A   _B   _C   _D   _E  _F*/
+0x00,0x01,0x02,0x03,0x37,0x2D,0x2E,0x2F,0x16,0x05,0x15,0x0B,0x0C,0x0D,0x0E,0x0F,
+0x10,0x11,0x12,0x13,0x3C,0x3D,0x32,0x26,0x18,0x19,0x3F,0x27,0x1C,0x1D,0x1E,0x1F,
+0x40,0x5A,0x7F,0x7B,0x5B,0x6C,0x50,0x7D,0x4D,0x5D,0x5C,0x4E,0x6B,0x60,0x4B,0x61,
+0xF0,0xF1,0xF2,0xF3,0xF4,0xF5,0xF6,0xF7,0xF8,0xF9,0x7A,0x5E,0x4C,0x7E,0x6E,0x6F,
+0x7C,0xC1,0xC2,0xC3,0xC4,0xC5,0xC6,0xC7,0xC8,0xC9,0xD1,0xD2,0xD3,0xD4,0xD5,0xD6,
+0xD7,0xD8,0xD9,0xE2,0xE3,0xE4,0xE5,0xE6,0xE7,0xE8,0xE9,0xAD,0xE0,0xBD,0x5F,0x6D,
+0x79,0x81,0x82,0x83,0x84,0x85,0x86,0x87,0x88,0x89,0x91,0x92,0x93,0x94,0x95,0x96,
+0x97,0x98,0x99,0xA2,0xA3,0xA4,0xA5,0xA6,0xA7,0xA8,0xA9,0xC0,0x4F,0xD0,0xA1,0x07,
+0x20,0x21,0x22,0x23,0x24,0x25,0x06,0x17,0x28,0x29,0x2A,0x2B,0x2C,0x09,0x0A,0x1B,
+0x30,0x31,0x1A,0x33,0x34,0x35,0x36,0x08,0x38,0x39,0x3A,0x3B,0x04,0x14,0x3E,0xFF,
+0x41,0xAA,0x4A,0xB1,0x9F,0xB2,0x6A,0xB5,0xBB,0xB4,0x9A,0x8A,0xB0,0xCA,0xAF,0xBC,
+0x90,0x8F,0xEA,0xFA,0xBE,0xA0,0xB6,0xB3,0x9D,0xDA,0x9B,0x8B,0xB7,0xB8,0xB9,0xAB,
+0x64,0x65,0x62,0x66,0x63,0x67,0x9E,0x68,0x74,0x71,0x72,0x73,0x78,0x75,0x76,0x77,
+0xAC,0x69,0xED,0xEE,0xEB,0xEF,0xEC,0xBF,0x80,0xFD,0xFE,0xFB,0xFC,0xBA,0xAE,0x59,
+0x44,0x45,0x42,0x46,0x43,0x47,0x9C,0x48,0x54,0x51,0x52,0x53,0x58,0x55,0x56,0x57,
+0x8C,0x49,0xCD,0xCE,0xCB,0xCF,0xCC,0xE1,0x70,0xDD,0xDE,0xDB,0xDC,0x8D,0x8E,0xDF
+/*_0   _1   _2   _3   _4   _5   _6   _7   _8   _9   _A   _B   _C   _D   _E  _F*/
+};
+
+/* Index is EBCDIC 1047 code point; value is ASCII platform equivalent */
+EXTCONST U8 PL_e2a[] = {
+/*_0   _1   _2   _3   _4   _5   _6   _7   _8   _9   _A   _B   _C   _D   _E  _F*/
+0x00,0x01,0x02,0x03,0x9C,0x09,0x86,0x7F,0x97,0x8D,0x8E,0x0B,0x0C,0x0D,0x0E,0x0F,
+0x10,0x11,0x12,0x13,0x9D,0x0A,0x08,0x87,0x18,0x19,0x92,0x8F,0x1C,0x1D,0x1E,0x1F,
+0x80,0x81,0x82,0x83,0x84,0x85,0x17,0x1B,0x88,0x89,0x8A,0x8B,0x8C,0x05,0x06,0x07,
+0x90,0x91,0x16,0x93,0x94,0x95,0x96,0x04,0x98,0x99,0x9A,0x9B,0x14,0x15,0x9E,0x1A,
+0x20,0xA0,0xE2,0xE4,0xE0,0xE1,0xE3,0xE5,0xE7,0xF1,0xA2,0x2E,0x3C,0x28,0x2B,0x7C,
+0x26,0xE9,0xEA,0xEB,0xE8,0xED,0xEE,0xEF,0xEC,0xDF,0x21,0x24,0x2A,0x29,0x3B,0x5E,
+0x2D,0x2F,0xC2,0xC4,0xC0,0xC1,0xC3,0xC5,0xC7,0xD1,0xA6,0x2C,0x25,0x5F,0x3E,0x3F,
+0xF8,0xC9,0xCA,0xCB,0xC8,0xCD,0xCE,0xCF,0xCC,0x60,0x3A,0x23,0x40,0x27,0x3D,0x22,
+0xD8,0x61,0x62,0x63,0x64,0x65,0x66,0x67,0x68,0x69,0xAB,0xBB,0xF0,0xFD,0xFE,0xB1,
+0xB0,0x6A,0x6B,0x6C,0x6D,0x6E,0x6F,0x70,0x71,0x72,0xAA,0xBA,0xE6,0xB8,0xC6,0xA4,
+0xB5,0x7E,0x73,0x74,0x75,0x76,0x77,0x78,0x79,0x7A,0xA1,0xBF,0xD0,0x5B,0xDE,0xAE,
+0xAC,0xA3,0xA5,0xB7,0xA9,0xA7,0xB6,0xBC,0xBD,0xBE,0xDD,0xA8,0xAF,0x5D,0xB4,0xD7,
+0x7B,0x41,0x42,0x43,0x44,0x45,0x46,0x47,0x48,0x49,0xAD,0xF4,0xF6,0xF2,0xF3,0xF5,
+0x7D,0x4A,0x4B,0x4C,0x4D,0x4E,0x4F,0x50,0x51,0x52,0xB9,0xFB,0xFC,0xF9,0xFA,0xFF,
+0x5C,0xF7,0x53,0x54,0x55,0x56,0x57,0x58,0x59,0x5A,0xB2,0xD4,0xD6,0xD2,0xD3,0xD5,
+0x30,0x31,0x32,0x33,0x34,0x35,0x36,0x37,0x38,0x39,0xB3,0xDB,0xDC,0xD9,0xDA,0x9F
+/*_0   _1   _2   _3   _4   _5   _6   _7   _8   _9   _A   _B   _C   _D   _E  _F*/
+};
+
+/* (Confusingly named) Index is EBCDIC 1047 I8 byte; value is
+ * EBCDIC 1047 UTF-EBCDIC equivalent */
+EXTCONST U8 PL_utf2e[] = {
+/*_0   _1   _2   _3   _4   _5   _6   _7   _8   _9   _A   _B   _C   _D   _E  _F*/
+0x00,0x01,0x02,0x03,0x37,0x2D,0x2E,0x2F,0x16,0x05,0x15,0x0B,0x0C,0x0D,0x0E,0x0F,
+0x10,0x11,0x12,0x13,0x3C,0x3D,0x32,0x26,0x18,0x19,0x3F,0x27,0x1C,0x1D,0x1E,0x1F,
+0x40,0x5A,0x7F,0x7B,0x5B,0x6C,0x50,0x7D,0x4D,0x5D,0x5C,0x4E,0x6B,0x60,0x4B,0x61,
+0xF0,0xF1,0xF2,0xF3,0xF4,0xF5,0xF6,0xF7,0xF8,0xF9,0x7A,0x5E,0x4C,0x7E,0x6E,0x6F,
+0x7C,0xC1,0xC2,0xC3,0xC4,0xC5,0xC6,0xC7,0xC8,0xC9,0xD1,0xD2,0xD3,0xD4,0xD5,0xD6,
+0xD7,0xD8,0xD9,0xE2,0xE3,0xE4,0xE5,0xE6,0xE7,0xE8,0xE9,0xAD,0xE0,0xBD,0x5F,0x6D,
+0x79,0x81,0x82,0x83,0x84,0x85,0x86,0x87,0x88,0x89,0x91,0x92,0x93,0x94,0x95,0x96,
+0x97,0x98,0x99,0xA2,0xA3,0xA4,0xA5,0xA6,0xA7,0xA8,0xA9,0xC0,0x4F,0xD0,0xA1,0x07,
+0x20,0x21,0x22,0x23,0x24,0x25,0x06,0x17,0x28,0x29,0x2A,0x2B,0x2C,0x09,0x0A,0x1B,
+0x30,0x31,0x1A,0x33,0x34,0x35,0x36,0x08,0x38,0x39,0x3A,0x3B,0x04,0x14,0x3E,0xFF,
+0x41,0x42,0x43,0x44,0x45,0x46,0x47,0x48,0x49,0x4A,0x51,0x52,0x53,0x54,0x55,0x56,
+0x57,0x58,0x59,0x62,0x63,0x64,0x65,0x66,0x67,0x68,0x69,0x6A,0x70,0x71,0x72,0x73,
+0x74,0x75,0x76,0x77,0x78,0x80,0x8A,0x8B,0x8C,0x8D,0x8E,0x8F,0x90,0x9A,0x9B,0x9C,
+0x9D,0x9E,0x9F,0xA0,0xAA,0xAB,0xAC,0xAE,0xAF,0xB0,0xB1,0xB2,0xB3,0xB4,0xB5,0xB6,
+0xB7,0xB8,0xB9,0xBA,0xBB,0xBC,0xBE,0xBF,0xCA,0xCB,0xCC,0xCD,0xCE,0xCF,0xDA,0xDB,
+0xDC,0xDD,0xDE,0xDF,0xE1,0xEA,0xEB,0xEC,0xED,0xEE,0xEF,0xFA,0xFB,0xFC,0xFD,0xFE
+/*_0   _1   _2   _3   _4   _5   _6   _7   _8   _9   _A   _B   _C   _D   _E  _F*/
+};
+
+/* (Confusingly named) Index is EBCDIC 1047 UTF-EBCDIC byte; value is
+ * EBCDIC 1047 I8 equivalent */
+EXTCONST U8 PL_e2utf[] = {
+/*_0   _1   _2   _3   _4   _5   _6   _7   _8   _9   _A   _B   _C   _D   _E  _F*/
+0x00,0x01,0x02,0x03,0x9C,0x09,0x86,0x7F,0x97,0x8D,0x8E,0x0B,0x0C,0x0D,0x0E,0x0F,
+0x10,0x11,0x12,0x13,0x9D,0x0A,0x08,0x87,0x18,0x19,0x92,0x8F,0x1C,0x1D,0x1E,0x1F,
+0x80,0x81,0x82,0x83,0x84,0x85,0x17,0x1B,0x88,0x89,0x8A,0x8B,0x8C,0x05,0x06,0x07,
+0x90,0x91,0x16,0x93,0x94,0x95,0x96,0x04,0x98,0x99,0x9A,0x9B,0x14,0x15,0x9E,0x1A,
+0x20,0xA0,0xA1,0xA2,0xA3,0xA4,0xA5,0xA6,0xA7,0xA8,0xA9,0x2E,0x3C,0x28,0x2B,0x7C,
+0x26,0xAA,0xAB,0xAC,0xAD,0xAE,0xAF,0xB0,0xB1,0xB2,0x21,0x24,0x2A,0x29,0x3B,0x5E,
+0x2D,0x2F,0xB3,0xB4,0xB5,0xB6,0xB7,0xB8,0xB9,0xBA,0xBB,0x2C,0x25,0x5F,0x3E,0x3F,
+0xBC,0xBD,0xBE,0xBF,0xC0,0xC1,0xC2,0xC3,0xC4,0x60,0x3A,0x23,0x40,0x27,0x3D,0x22,
+0xC5,0x61,0x62,0x63,0x64,0x65,0x66,0x67,0x68,0x69,0xC6,0xC7,0xC8,0xC9,0xCA,0xCB,
+0xCC,0x6A,0x6B,0x6C,0x6D,0x6E,0x6F,0x70,0x71,0x72,0xCD,0xCE,0xCF,0xD0,0xD1,0xD2,
+0xD3,0x7E,0x73,0x74,0x75,0x76,0x77,0x78,0x79,0x7A,0xD4,0xD5,0xD6,0x5B,0xD7,0xD8,
+0xD9,0xDA,0xDB,0xDC,0xDD,0xDE,0xDF,0xE0,0xE1,0xE2,0xE3,0xE4,0xE5,0x5D,0xE6,0xE7,
+0x7B,0x41,0x42,0x43,0x44,0x45,0x46,0x47,0x48,0x49,0xE8,0xE9,0xEA,0xEB,0xEC,0xED,
+0x7D,0x4A,0x4B,0x4C,0x4D,0x4E,0x4F,0x50,0x51,0x52,0xEE,0xEF,0xF0,0xF1,0xF2,0xF3,
+0x5C,0xF4,0x53,0x54,0x55,0x56,0x57,0x58,0x59,0x5A,0xF5,0xF6,0xF7,0xF8,0xF9,0xFA,
+0x30,0x31,0x32,0x33,0x34,0x35,0x36,0x37,0x38,0x39,0xFB,0xFC,0xFD,0xFE,0xFF,0x9F
+/*_0   _1   _2   _3   _4   _5   _6   _7   _8   _9   _A   _B   _C   _D   _E  _F*/
+};
+
+/* Index is EBCDIC 1047 UTF-EBCDIC byte; value is UTF8SKIP for start bytes;
+ * 1 for continuation.  Adapted from the shadow flags table in tr16.  The
+ * entries marked 9 in tr16 are continuation bytes and are marked as length 1
+ * here so that we can recover. */
+EXTCONST U8 PL_utf8skip[] = {
+   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,
+   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,
+   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,
+   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,
+   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,
+   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,
+   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,
+   1,   1,   1,   1,   2,   2,   2,   2,   2,   1,   1,   1,   1,   1,   1,   1,
+   2,   1,   1,   1,   1,   1,   1,   1,   1,   1,   2,   2,   2,   2,   2,   2,
+   2,   1,   1,   1,   1,   1,   1,   1,   1,   1,   2,   2,   2,   2,   2,   2,
+   2,   1,   1,   1,   1,   1,   1,   1,   1,   1,   2,   2,   2,   1,   2,   2,
+   2,   2,   2,   2,   2,   2,   2,   3,   3,   3,   3,   3,   3,   1,   3,   3,
+   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   3,   3,   3,   3,   3,   3,
+   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   3,   3,   4,   4,   4,   4,
+   1,   4,   1,   1,   1,   1,   1,   1,   1,   1,   4,   4,   4,   5,   5,   5,
+   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   5,   6,   6,   7,  14,   1
+};
+
+/* Index is EBCDIC 1047 code point; value is its lowercase equivalent */
+EXTCONST U8 PL_latin1_lc[] = {
+/*_0   _1   _2   _3   _4   _5   _6   _7   _8   _9   _A   _B   _C   _D   _E  _F*/
+0x00,0x01,0x02,0x03,0x04,0x05,0x06,0x07,0x08,0x09,0x0A,0x0B,0x0C,0x0D,0x0E,0x0F,
+0x10,0x11,0x12,0x13,0x14,0x15,0x16,0x17,0x18,0x19,0x1A,0x1B,0x1C,0x1D,0x1E,0x1F,
+0x20,0x21,0x22,0x23,0x24,0x25,0x26,0x27,0x28,0x29,0x2A,0x2B,0x2C,0x2D,0x2E,0x2F,
+0x30,0x31,0x32,0x33,0x34,0x35,0x36,0x37,0x38,0x39,0x3A,0x3B,0x3C,0x3D,0x3E,0x3F,
+0x40,0x41,0x42,0x43,0x44,0x45,0x46,0x47,0x48,0x49,0x4A,0x4B,0x4C,0x4D,0x4E,0x4F,
+0x50,0x51,0x52,0x53,0x54,0x55,0x56,0x57,0x58,0x59,0x5A,0x5B,0x5C,0x5D,0x5E,0x5F,
+0x60,0x61,0x42,0x43,0x44,0x45,0x46,0x47,0x48,0x49,0x6A,0x6B,0x6C,0x6D,0x6E,0x6F,
+0x70,0x51,0x52,0x53,0x54,0x55,0x56,0x57,0x58,0x79,0x7A,0x7B,0x7C,0x7D,0x7E,0x7F,
+0x70,0x81,0x82,0x83,0x84,0x85,0x86,0x87,0x88,0x89,0x8A,0x8B,0x8C,0x8D,0x8E,0x8F,
+0x90,0x91,0x92,0x93,0x94,0x95,0x96,0x97,0x98,0x99,0x9A,0x9B,0x9C,0x9D,0x9C,0x9F,
+0xA0,0xA1,0xA2,0xA3,0xA4,0xA5,0xA6,0xA7,0xA8,0xA9,0xAA,0xAB,0x8C,0xAD,0x8E,0xAF,
+0xB0,0xB1,0xB2,0xB3,0xB4,0xB5,0xB6,0xB7,0xB8,0xB9,0x8D,0xBB,0xBC,0xBD,0xBE,0xBF,
+0xC0,0x81,0x82,0x83,0x84,0x85,0x86,0x87,0x88,0x89,0xCA,0xCB,0xCC,0xCD,0xCE,0xCF,
+0xD0,0x91,0x92,0x93,0x94,0x95,0x96,0x97,0x98,0x99,0xDA,0xDB,0xDC,0xDD,0xDE,0xDF,
+0xE0,0xE1,0xA2,0xA3,0xA4,0xA5,0xA6,0xA7,0xA8,0xA9,0xEA,0xCB,0xCC,0xCD,0xCE,0xCF,
+0xF0,0xF1,0xF2,0xF3,0xF4,0xF5,0xF6,0xF7,0xF8,0xF9,0xFA,0xDB,0xDC,0xDD,0xDE,0xFF
+/*_0   _1   _2   _3   _4   _5   _6   _7   _8   _9   _A   _B   _C   _D   _E  _F*/
+};
+
+/* Index is EBCDIC 1047 code point; value is its uppercase equivalent.
+ * The 'mod' in the name means that codepoints whose uppercase is above 255 or
+ * longer than 1 character map to LATIN SMALL LETTER Y WITH DIARESIS */
+EXTCONST U8 PL_mod_latin1_uc[] = {
+/*_0   _1   _2   _3   _4   _5   _6   _7   _8   _9   _A   _B   _C   _D   _E  _F*/
+0x00,0x01,0x02,0x03,0x04,0x05,0x06,0x07,0x08,0x09,0x0A,0x0B,0x0C,0x0D,0x0E,0x0F,
+0x10,0x11,0x12,0x13,0x14,0x15,0x16,0x17,0x18,0x19,0x1A,0x1B,0x1C,0x1D,0x1E,0x1F,
+0x20,0x21,0x22,0x23,0x24,0x25,0x26,0x27,0x28,0x29,0x2A,0x2B,0x2C,0x2D,0x2E,0x2F,
+0x30,0x31,0x32,0x33,0x34,0x35,0x36,0x37,0x38,0x39,0x3A,0x3B,0x3C,0x3D,0x3E,0x3F,
+0x40,0x41,0x62,0x63,0x64,0x65,0x66,0x67,0x68,0x69,0x4A,0x4B,0x4C,0x4D,0x4E,0x4F,
+0x50,0x71,0x72,0x73,0x74,0x75,0x76,0x77,0x78,0xDF,0x5A,0x5B,0x5C,0x5D,0x5E,0x5F,
+0x60,0x61,0x62,0x63,0x64,0x65,0x66,0x67,0x68,0x69,0x6A,0x6B,0x6C,0x6D,0x6E,0x6F,
+0x80,0x71,0x72,0x73,0x74,0x75,0x76,0x77,0x78,0x79,0x7A,0x7B,0x7C,0x7D,0x7E,0x7F,
+0x80,0xC1,0xC2,0xC3,0xC4,0xC5,0xC6,0xC7,0xC8,0xC9,0x8A,0x8B,0xAC,0xBA,0xAE,0x8F,
+0x90,0xD1,0xD2,0xD3,0xD4,0xD5,0xD6,0xD7,0xD8,0xD9,0x9A,0x9B,0x9E,0x9D,0x9E,0x9F,
+0xDF,0xA1,0xE2,0xE3,0xE4,0xE5,0xE6,0xE7,0xE8,0xE9,0xAA,0xAB,0xAC,0xAD,0xAE,0xAF,
+0xB0,0xB1,0xB2,0xB3,0xB4,0xB5,0xB6,0xB7,0xB8,0xB9,0xBA,0xBB,0xBC,0xBD,0xBE,0xBF,
+0xC0,0xC1,0xC2,0xC3,0xC4,0xC5,0xC6,0xC7,0xC8,0xC9,0xCA,0xEB,0xEC,0xED,0xEE,0xEF,
+0xD0,0xD1,0xD2,0xD3,0xD4,0xD5,0xD6,0xD7,0xD8,0xD9,0xDA,0xFB,0xFC,0xFD,0xFE,0xDF,
+0xE0,0xE1,0xE2,0xE3,0xE4,0xE5,0xE6,0xE7,0xE8,0xE9,0xEA,0xEB,0xEC,0xED,0xEE,0xEF,
+0xF0,0xF1,0xF2,0xF3,0xF4,0xF5,0xF6,0xF7,0xF8,0xF9,0xFA,0xFB,0xFC,0xFD,0xFE,0xFF
+/*_0   _1   _2   _3   _4   _5   _6   _7   _8   _9   _A   _B   _C   _D   _E  _F*/
+};
+
+/* Index is EBCDIC 1047 code point; For A-Z, value is a-z; for a-z, value
+ * is A-Z; all other code points map to themselves */
+EXTCONST U8 PL_fold[] = {
+/*_0   _1   _2   _3   _4   _5   _6   _7   _8   _9   _A   _B   _C   _D   _E  _F*/
+0x00,0x01,0x02,0x03,0x04,0x05,0x06,0x07,0x08,0x09,0x0A,0x0B,0x0C,0x0D,0x0E,0x0F,
+0x10,0x11,0x12,0x13,0x14,0x15,0x16,0x17,0x18,0x19,0x1A,0x1B,0x1C,0x1D,0x1E,0x1F,
+0x20,0x21,0x22,0x23,0x24,0x25,0x26,0x27,0x28,0x29,0x2A,0x2B,0x2C,0x2D,0x2E,0x2F,
+0x30,0x31,0x32,0x33,0x34,0x35,0x36,0x37,0x38,0x39,0x3A,0x3B,0x3C,0x3D,0x3E,0x3F,
+0x40,0x41,0x42,0x43,0x44,0x45,0x46,0x47,0x48,0x49,0x4A,0x4B,0x4C,0x4D,0x4E,0x4F,
+0x50,0x51,0x52,0x53,0x54,0x55,0x56,0x57,0x58,0x59,0x5A,0x5B,0x5C,0x5D,0x5E,0x5F,
+0x60,0x61,0x62,0x63,0x64,0x65,0x66,0x67,0x68,0x69,0x6A,0x6B,0x6C,0x6D,0x6E,0x6F,
+0x70,0x71,0x72,0x73,0x74,0x75,0x76,0x77,0x78,0x79,0x7A,0x7B,0x7C,0x7D,0x7E,0x7F,
+0x80,0xC1,0xC2,0xC3,0xC4,0xC5,0xC6,0xC7,0xC8,0xC9,0x8A,0x8B,0x8C,0x8D,0x8E,0x8F,
+0x90,0xD1,0xD2,0xD3,0xD4,0xD5,0xD6,0xD7,0xD8,0xD9,0x9A,0x9B,0x9C,0x9D,0x9E,0x9F,
+0xA0,0xA1,0xE2,0xE3,0xE4,0xE5,0xE6,0xE7,0xE8,0xE9,0xAA,0xAB,0xAC,0xAD,0xAE,0xAF,
+0xB0,0xB1,0xB2,0xB3,0xB4,0xB5,0xB6,0xB7,0xB8,0xB9,0xBA,0xBB,0xBC,0xBD,0xBE,0xBF,
+0xC0,0x81,0x82,0x83,0x84,0x85,0x86,0x87,0x88,0x89,0xCA,0xCB,0xCC,0xCD,0xCE,0xCF,
+0xD0,0x91,0x92,0x93,0x94,0x95,0x96,0x97,0x98,0x99,0xDA,0xDB,0xDC,0xDD,0xDE,0xDF,
+0xE0,0xE1,0xA2,0xA3,0xA4,0xA5,0xA6,0xA7,0xA8,0xA9,0xEA,0xEB,0xEC,0xED,0xEE,0xEF,
+0xF0,0xF1,0xF2,0xF3,0xF4,0xF5,0xF6,0xF7,0xF8,0xF9,0xFA,0xFB,0xFC,0xFD,0xFE,0xFF
+/*_0   _1   _2   _3   _4   _5   _6   _7   _8   _9   _A   _B   _C   _D   _E  _F*/
+};
+
+/* Index is EBCDIC 1047 code point; value is its other fold-pair equivalent
+ * (A => a; a => A, etc) in the 0-255 range.  If no such equivalent, value is
+ * the code point itself */
+EXTCONST U8 PL_fold_latin1[] = {
+/*_0   _1   _2   _3   _4   _5   _6   _7   _8   _9   _A   _B   _C   _D   _E  _F*/
+0x00,0x01,0x02,0x03,0x04,0x05,0x06,0x07,0x08,0x09,0x0A,0x0B,0x0C,0x0D,0x0E,0x0F,
+0x10,0x11,0x12,0x13,0x14,0x15,0x16,0x17,0x18,0x19,0x1A,0x1B,0x1C,0x1D,0x1E,0x1F,
+0x20,0x21,0x22,0x23,0x24,0x25,0x26,0x27,0x28,0x29,0x2A,0x2B,0x2C,0x2D,0x2E,0x2F,
+0x30,0x31,0x32,0x33,0x34,0x35,0x36,0x37,0x38,0x39,0x3A,0x3B,0x3C,0x3D,0x3E,0x3F,
+0x40,0x41,0x62,0x63,0x64,0x65,0x66,0x67,0x68,0x69,0x4A,0x4B,0x4C,0x4D,0x4E,0x4F,
+0x50,0x71,0x72,0x73,0x74,0x75,0x76,0x77,0x78,0x59,0x5A,0x5B,0x5C,0x5D,0x5E,0x5F,
+0x60,0x61,0x42,0x43,0x44,0x45,0x46,0x47,0x48,0x49,0x6A,0x6B,0x6C,0x6D,0x6E,0x6F,
+0x80,0x51,0x52,0x53,0x54,0x55,0x56,0x57,0x58,0x79,0x7A,0x7B,0x7C,0x7D,0x7E,0x7F,
+0x70,0xC1,0xC2,0xC3,0xC4,0xC5,0xC6,0xC7,0xC8,0xC9,0x8A,0x8B,0xAC,0xBA,0xAE,0x8F,
+0x90,0xD1,0xD2,0xD3,0xD4,0xD5,0xD6,0xD7,0xD8,0xD9,0x9A,0x9B,0x9E,0x9D,0x9C,0x9F,
+0xA0,0xA1,0xE2,0xE3,0xE4,0xE5,0xE6,0xE7,0xE8,0xE9,0xAA,0xAB,0x8C,0xAD,0x8E,0xAF,
+0xB0,0xB1,0xB2,0xB3,0xB4,0xB5,0xB6,0xB7,0xB8,0xB9,0x8D,0xBB,0xBC,0xBD,0xBE,0xBF,
+0xC0,0x81,0x82,0x83,0x84,0x85,0x86,0x87,0x88,0x89,0xCA,0xEB,0xEC,0xED,0xEE,0xEF,
+0xD0,0x91,0x92,0x93,0x94,0x95,0x96,0x97,0x98,0x99,0xDA,0xFB,0xFC,0xFD,0xFE,0xDF,
+0xE0,0xE1,0xA2,0xA3,0xA4,0xA5,0xA6,0xA7,0xA8,0xA9,0xEA,0xCB,0xCC,0xCD,0xCE,0xCF,
+0xF0,0xF1,0xF2,0xF3,0xF4,0xF5,0xF6,0xF7,0xF8,0xF9,0xFA,0xDB,0xDC,0xDD,0xDE,0xFF
+/*_0   _1   _2   _3   _4   _5   _6   _7   _8   _9   _A   _B   _C   _D   _E  _F*/
+};
+
+#endif	/* EBCDIC 1047 */
+
+#if 'A' == 193 /* EBCDIC 037 */ \
+     && '\\' == 224 && '[' == 186 && ']' == 187 && '{' == 192 && '}' == 208 \
+     && '^' == 176 && '~' == 161 && '!' == 90 && '#' == 123 && '|' == 79 \
+     && '$' == 91 && '@' == 124 && '`' == 121
+
+/* Index is ASCII platform code point; value is EBCDIC 037 equivalent */
+EXTCONST U8 PL_a2e[] = {
+/*_0   _1   _2   _3   _4   _5   _6   _7   _8   _9   _A   _B   _C   _D   _E  _F*/
+0x00,0x01,0x02,0x03,0x37,0x2D,0x2E,0x2F,0x16,0x05,0x25,0x0B,0x0C,0x0D,0x0E,0x0F,
+0x10,0x11,0x12,0x13,0x3C,0x3D,0x32,0x26,0x18,0x19,0x3F,0x27,0x1C,0x1D,0x1E,0x1F,
+0x40,0x5A,0x7F,0x7B,0x5B,0x6C,0x50,0x7D,0x4D,0x5D,0x5C,0x4E,0x6B,0x60,0x4B,0x61,
+0xF0,0xF1,0xF2,0xF3,0xF4,0xF5,0xF6,0xF7,0xF8,0xF9,0x7A,0x5E,0x4C,0x7E,0x6E,0x6F,
+0x7C,0xC1,0xC2,0xC3,0xC4,0xC5,0xC6,0xC7,0xC8,0xC9,0xD1,0xD2,0xD3,0xD4,0xD5,0xD6,
+0xD7,0xD8,0xD9,0xE2,0xE3,0xE4,0xE5,0xE6,0xE7,0xE8,0xE9,0xBA,0xE0,0xBB,0xB0,0x6D,
+0x79,0x81,0x82,0x83,0x84,0x85,0x86,0x87,0x88,0x89,0x91,0x92,0x93,0x94,0x95,0x96,
+0x97,0x98,0x99,0xA2,0xA3,0xA4,0xA5,0xA6,0xA7,0xA8,0xA9,0xC0,0x4F,0xD0,0xA1,0x07,
+0x20,0x21,0x22,0x23,0x24,0x15,0x06,0x17,0x28,0x29,0x2A,0x2B,0x2C,0x09,0x0A,0x1B,
+0x30,0x31,0x1A,0x33,0x34,0x35,0x36,0x08,0x38,0x39,0x3A,0x3B,0x04,0x14,0x3E,0xFF,
+0x41,0xAA,0x4A,0xB1,0x9F,0xB2,0x6A,0xB5,0xBD,0xB4,0x9A,0x8A,0x5F,0xCA,0xAF,0xBC,
+0x90,0x8F,0xEA,0xFA,0xBE,0xA0,0xB6,0xB3,0x9D,0xDA,0x9B,0x8B,0xB7,0xB8,0xB9,0xAB,
+0x64,0x65,0x62,0x66,0x63,0x67,0x9E,0x68,0x74,0x71,0x72,0x73,0x78,0x75,0x76,0x77,
+0xAC,0x69,0xED,0xEE,0xEB,0xEF,0xEC,0xBF,0x80,0xFD,0xFE,0xFB,0xFC,0xAD,0xAE,0x59,
+0x44,0x45,0x42,0x46,0x43,0x47,0x9C,0x48,0x54,0x51,0x52,0x53,0x58,0x55,0x56,0x57,
+0x8C,0x49,0xCD,0xCE,0xCB,0xCF,0xCC,0xE1,0x70,0xDD,0xDE,0xDB,0xDC,0x8D,0x8E,0xDF
+/*_0   _1   _2   _3   _4   _5   _6   _7   _8   _9   _A   _B   _C   _D   _E  _F*/
+};
+
+/* Index is EBCDIC 037 code point; value is ASCII platform equivalent */
+EXTCONST U8 PL_e2a[] = {
+/*_0   _1   _2   _3   _4   _5   _6   _7   _8   _9   _A   _B   _C   _D   _E  _F*/
+0x00,0x01,0x02,0x03,0x9C,0x09,0x86,0x7F,0x97,0x8D,0x8E,0x0B,0x0C,0x0D,0x0E,0x0F,
+0x10,0x11,0x12,0x13,0x9D,0x85,0x08,0x87,0x18,0x19,0x92,0x8F,0x1C,0x1D,0x1E,0x1F,
+0x80,0x81,0x82,0x83,0x84,0x0A,0x17,0x1B,0x88,0x89,0x8A,0x8B,0x8C,0x05,0x06,0x07,
+0x90,0x91,0x16,0x93,0x94,0x95,0x96,0x04,0x98,0x99,0x9A,0x9B,0x14,0x15,0x9E,0x1A,
+0x20,0xA0,0xE2,0xE4,0xE0,0xE1,0xE3,0xE5,0xE7,0xF1,0xA2,0x2E,0x3C,0x28,0x2B,0x7C,
+0x26,0xE9,0xEA,0xEB,0xE8,0xED,0xEE,0xEF,0xEC,0xDF,0x21,0x24,0x2A,0x29,0x3B,0xAC,
+0x2D,0x2F,0xC2,0xC4,0xC0,0xC1,0xC3,0xC5,0xC7,0xD1,0xA6,0x2C,0x25,0x5F,0x3E,0x3F,
+0xF8,0xC9,0xCA,0xCB,0xC8,0xCD,0xCE,0xCF,0xCC,0x60,0x3A,0x23,0x40,0x27,0x3D,0x22,
+0xD8,0x61,0x62,0x63,0x64,0x65,0x66,0x67,0x68,0x69,0xAB,0xBB,0xF0,0xFD,0xFE,0xB1,
+0xB0,0x6A,0x6B,0x6C,0x6D,0x6E,0x6F,0x70,0x71,0x72,0xAA,0xBA,0xE6,0xB8,0xC6,0xA4,
+0xB5,0x7E,0x73,0x74,0x75,0x76,0x77,0x78,0x79,0x7A,0xA1,0xBF,0xD0,0xDD,0xDE,0xAE,
+0x5E,0xA3,0xA5,0xB7,0xA9,0xA7,0xB6,0xBC,0xBD,0xBE,0x5B,0x5D,0xAF,0xA8,0xB4,0xD7,
+0x7B,0x41,0x42,0x43,0x44,0x45,0x46,0x47,0x48,0x49,0xAD,0xF4,0xF6,0xF2,0xF3,0xF5,
+0x7D,0x4A,0x4B,0x4C,0x4D,0x4E,0x4F,0x50,0x51,0x52,0xB9,0xFB,0xFC,0xF9,0xFA,0xFF,
+0x5C,0xF7,0x53,0x54,0x55,0x56,0x57,0x58,0x59,0x5A,0xB2,0xD4,0xD6,0xD2,0xD3,0xD5,
+0x30,0x31,0x32,0x33,0x34,0x35,0x36,0x37,0x38,0x39,0xB3,0xDB,0xDC,0xD9,0xDA,0x9F
+/*_0   _1   _2   _3   _4   _5   _6   _7   _8   _9   _A   _B   _C   _D   _E  _F*/
+};
+
+/* (Confusingly named) Index is EBCDIC 037 I8 byte; value is
+ * EBCDIC 037 UTF-EBCDIC equivalent */
+EXTCONST U8 PL_utf2e[] = {
+/*_0   _1   _2   _3   _4   _5   _6   _7   _8   _9   _A   _B   _C   _D   _E  _F*/
+0x00,0x01,0x02,0x03,0x37,0x2D,0x2E,0x2F,0x16,0x05,0x25,0x0B,0x0C,0x0D,0x0E,0x0F,
+0x10,0x11,0x12,0x13,0x3C,0x3D,0x32,0x26,0x18,0x19,0x3F,0x27,0x1C,0x1D,0x1E,0x1F,
+0x40,0x5A,0x7F,0x7B,0x5B,0x6C,0x50,0x7D,0x4D,0x5D,0x5C,0x4E,0x6B,0x60,0x4B,0x61,
+0xF0,0xF1,0xF2,0xF3,0xF4,0xF5,0xF6,0xF7,0xF8,0xF9,0x7A,0x5E,0x4C,0x7E,0x6E,0x6F,
+0x7C,0xC1,0xC2,0xC3,0xC4,0xC5,0xC6,0xC7,0xC8,0xC9,0xD1,0xD2,0xD3,0xD4,0xD5,0xD6,
+0xD7,0xD8,0xD9,0xE2,0xE3,0xE4,0xE5,0xE6,0xE7,0xE8,0xE9,0xBA,0xE0,0xBB,0xB0,0x6D,
+0x79,0x81,0x82,0x83,0x84,0x85,0x86,0x87,0x88,0x89,0x91,0x92,0x93,0x94,0x95,0x96,
+0x97,0x98,0x99,0xA2,0xA3,0xA4,0xA5,0xA6,0xA7,0xA8,0xA9,0xC0,0x4F,0xD0,0xA1,0x07,
+0x20,0x21,0x22,0x23,0x24,0x15,0x06,0x17,0x28,0x29,0x2A,0x2B,0x2C,0x09,0x0A,0x1B,
+0x30,0x31,0x1A,0x33,0x34,0x35,0x36,0x08,0x38,0x39,0x3A,0x3B,0x04,0x14,0x3E,0xFF,
+0x41,0x42,0x43,0x44,0x45,0x46,0x47,0x48,0x49,0x4A,0x51,0x52,0x53,0x54,0x55,0x56,
+0x57,0x58,0x59,0x5F,0x62,0x63,0x64,0x65,0x66,0x67,0x68,0x69,0x6A,0x70,0x71,0x72,
+0x73,0x74,0x75,0x76,0x77,0x78,0x80,0x8A,0x8B,0x8C,0x8D,0x8E,0x8F,0x90,0x9A,0x9B,
+0x9C,0x9D,0x9E,0x9F,0xA0,0xAA,0xAB,0xAC,0xAD,0xAE,0xAF,0xB1,0xB2,0xB3,0xB4,0xB5,
+0xB6,0xB7,0xB8,0xB9,0xBC,0xBD,0xBE,0xBF,0xCA,0xCB,0xCC,0xCD,0xCE,0xCF,0xDA,0xDB,
+0xDC,0xDD,0xDE,0xDF,0xE1,0xEA,0xEB,0xEC,0xED,0xEE,0xEF,0xFA,0xFB,0xFC,0xFD,0xFE
+/*_0   _1   _2   _3   _4   _5   _6   _7   _8   _9   _A   _B   _C   _D   _E  _F*/
+};
+
+/* (Confusingly named) Index is EBCDIC 037 UTF-EBCDIC byte; value is
+ * EBCDIC 037 I8 equivalent */
+EXTCONST U8 PL_e2utf[] = {
+/*_0   _1   _2   _3   _4   _5   _6   _7   _8   _9   _A   _B   _C   _D   _E  _F*/
+0x00,0x01,0x02,0x03,0x9C,0x09,0x86,0x7F,0x97,0x8D,0x8E,0x0B,0x0C,0x0D,0x0E,0x0F,
+0x10,0x11,0x12,0x13,0x9D,0x85,0x08,0x87,0x18,0x19,0x92,0x8F,0x1C,0x1D,0x1E,0x1F,
+0x80,0x81,0x82,0x83,0x84,0x0A,0x17,0x1B,0x88,0x89,0x8A,0x8B,0x8C,0x05,0x06,0x07,
+0x90,0x91,0x16,0x93,0x94,0x95,0x96,0x04,0x98,0x99,0x9A,0x9B,0x14,0x15,0x9E,0x1A,
+0x20,0xA0,0xA1,0xA2,0xA3,0xA4,0xA5,0xA6,0xA7,0xA8,0xA9,0x2E,0x3C,0x28,0x2B,0x7C,
+0x26,0xAA,0xAB,0xAC,0xAD,0xAE,0xAF,0xB0,0xB1,0xB2,0x21,0x24,0x2A,0x29,0x3B,0xB3,
+0x2D,0x2F,0xB4,0xB5,0xB6,0xB7,0xB8,0xB9,0xBA,0xBB,0xBC,0x2C,0x25,0x5F,0x3E,0x3F,
+0xBD,0xBE,0xBF,0xC0,0xC1,0xC2,0xC3,0xC4,0xC5,0x60,0x3A,0x23,0x40,0x27,0x3D,0x22,
+0xC6,0x61,0x62,0x63,0x64,0x65,0x66,0x67,0x68,0x69,0xC7,0xC8,0xC9,0xCA,0xCB,0xCC,
+0xCD,0x6A,0x6B,0x6C,0x6D,0x6E,0x6F,0x70,0x71,0x72,0xCE,0xCF,0xD0,0xD1,0xD2,0xD3,
+0xD4,0x7E,0x73,0x74,0x75,0x76,0x77,0x78,0x79,0x7A,0xD5,0xD6,0xD7,0xD8,0xD9,0xDA,
+0x5E,0xDB,0xDC,0xDD,0xDE,0xDF,0xE0,0xE1,0xE2,0xE3,0x5B,0x5D,0xE4,0xE5,0xE6,0xE7,
+0x7B,0x41,0x42,0x43,0x44,0x45,0x46,0x47,0x48,0x49,0xE8,0xE9,0xEA,0xEB,0xEC,0xED,
+0x7D,0x4A,0x4B,0x4C,0x4D,0x4E,0x4F,0x50,0x51,0x52,0xEE,0xEF,0xF0,0xF1,0xF2,0xF3,
+0x5C,0xF4,0x53,0x54,0x55,0x56,0x57,0x58,0x59,0x5A,0xF5,0xF6,0xF7,0xF8,0xF9,0xFA,
+0x30,0x31,0x32,0x33,0x34,0x35,0x36,0x37,0x38,0x39,0xFB,0xFC,0xFD,0xFE,0xFF,0x9F
+/*_0   _1   _2   _3   _4   _5   _6   _7   _8   _9   _A   _B   _C   _D   _E  _F*/
+};
+
+/* Index is EBCDIC 037 UTF-EBCDIC byte; value is UTF8SKIP for start bytes;
+ * 1 for continuation.  Adapted from the shadow flags table in tr16.  The
+ * entries marked 9 in tr16 are continuation bytes and are marked as length 1
+ * here so that we can recover. */
+EXTCONST U8 PL_utf8skip[] = {
+   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,
+   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,
+   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,
+   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,
+   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,
+   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,
+   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,
+   1,   1,   1,   2,   2,   2,   2,   2,   2,   1,   1,   1,   1,   1,   1,   1,
+   2,   1,   1,   1,   1,   1,   1,   1,   1,   1,   2,   2,   2,   2,   2,   2,
+   2,   1,   1,   1,   1,   1,   1,   1,   1,   1,   2,   2,   2,   2,   2,   2,
+   2,   1,   1,   1,   1,   1,   1,   1,   1,   1,   2,   2,   2,   2,   2,   2,
+   1,   2,   2,   2,   2,   2,   3,   3,   3,   3,   1,   1,   3,   3,   3,   3,
+   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   3,   3,   3,   3,   3,   3,
+   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   3,   3,   4,   4,   4,   4,
+   1,   4,   1,   1,   1,   1,   1,   1,   1,   1,   4,   4,   4,   5,   5,   5,
+   1,   1,   1,   1,   1,   1,   1,   1,   1,   1,   5,   6,   6,   7,  14,   1
+};
+
+/* Index is EBCDIC 037 code point; value is its lowercase equivalent */
+EXTCONST U8 PL_latin1_lc[] = {
+/*_0   _1   _2   _3   _4   _5   _6   _7   _8   _9   _A   _B   _C   _D   _E  _F*/
+0x00,0x01,0x02,0x03,0x04,0x05,0x06,0x07,0x08,0x09,0x0A,0x0B,0x0C,0x0D,0x0E,0x0F,
+0x10,0x11,0x12,0x13,0x14,0x15,0x16,0x17,0x18,0x19,0x1A,0x1B,0x1C,0x1D,0x1E,0x1F,
+0x20,0x21,0x22,0x23,0x24,0x25,0x26,0x27,0x28,0x29,0x2A,0x2B,0x2C,0x2D,0x2E,0x2F,
+0x30,0x31,0x32,0x33,0x34,0x35,0x36,0x37,0x38,0x39,0x3A,0x3B,0x3C,0x3D,0x3E,0x3F,
+0x40,0x41,0x42,0x43,0x44,0x45,0x46,0x47,0x48,0x49,0x4A,0x4B,0x4C,0x4D,0x4E,0x4F,
+0x50,0x51,0x52,0x53,0x54,0x55,0x56,0x57,0x58,0x59,0x5A,0x5B,0x5C,0x5D,0x5E,0x5F,
+0x60,0x61,0x42,0x43,0x44,0x45,0x46,0x47,0x48,0x49,0x6A,0x6B,0x6C,0x6D,0x6E,0x6F,
+0x70,0x51,0x52,0x53,0x54,0x55,0x56,0x57,0x58,0x79,0x7A,0x7B,0x7C,0x7D,0x7E,0x7F,
+0x70,0x81,0x82,0x83,0x84,0x85,0x86,0x87,0x88,0x89,0x8A,0x8B,0x8C,0x8D,0x8E,0x8F,
+0x90,0x91,0x92,0x93,0x94,0x95,0x96,0x97,0x98,0x99,0x9A,0x9B,0x9C,0x9D,0x9C,0x9F,
+0xA0,0xA1,0xA2,0xA3,0xA4,0xA5,0xA6,0xA7,0xA8,0xA9,0xAA,0xAB,0x8C,0x8D,0x8E,0xAF,
+0xB0,0xB1,0xB2,0xB3,0xB4,0xB5,0xB6,0xB7,0xB8,0xB9,0xBA,0xBB,0xBC,0xBD,0xBE,0xBF,
+0xC0,0x81,0x82,0x83,0x84,0x85,0x86,0x87,0x88,0x89,0xCA,0xCB,0xCC,0xCD,0xCE,0xCF,
+0xD0,0x91,0x92,0x93,0x94,0x95,0x96,0x97,0x98,0x99,0xDA,0xDB,0xDC,0xDD,0xDE,0xDF,
+0xE0,0xE1,0xA2,0xA3,0xA4,0xA5,0xA6,0xA7,0xA8,0xA9,0xEA,0xCB,0xCC,0xCD,0xCE,0xCF,
+0xF0,0xF1,0xF2,0xF3,0xF4,0xF5,0xF6,0xF7,0xF8,0xF9,0xFA,0xDB,0xDC,0xDD,0xDE,0xFF
+/*_0   _1   _2   _3   _4   _5   _6   _7   _8   _9   _A   _B   _C   _D   _E  _F*/
+};
+
+/* Index is EBCDIC 037 code point; value is its uppercase equivalent.
+ * The 'mod' in the name means that codepoints whose uppercase is above 255 or
+ * longer than 1 character map to LATIN SMALL LETTER Y WITH DIARESIS */
+EXTCONST U8 PL_mod_latin1_uc[] = {
+/*_0   _1   _2   _3   _4   _5   _6   _7   _8   _9   _A   _B   _C   _D   _E  _F*/
+0x00,0x01,0x02,0x03,0x04,0x05,0x06,0x07,0x08,0x09,0x0A,0x0B,0x0C,0x0D,0x0E,0x0F,
+0x10,0x11,0x12,0x13,0x14,0x15,0x16,0x17,0x18,0x19,0x1A,0x1B,0x1C,0x1D,0x1E,0x1F,
+0x20,0x21,0x22,0x23,0x24,0x25,0x26,0x27,0x28,0x29,0x2A,0x2B,0x2C,0x2D,0x2E,0x2F,
+0x30,0x31,0x32,0x33,0x34,0x35,0x36,0x37,0x38,0x39,0x3A,0x3B,0x3C,0x3D,0x3E,0x3F,
+0x40,0x41,0x62,0x63,0x64,0x65,0x66,0x67,0x68,0x69,0x4A,0x4B,0x4C,0x4D,0x4E,0x4F,
+0x50,0x71,0x72,0x73,0x74,0x75,0x76,0x77,0x78,0xDF,0x5A,0x5B,0x5C,0x5D,0x5E,0x5F,
+0x60,0x61,0x62,0x63,0x64,0x65,0x66,0x67,0x68,0x69,0x6A,0x6B,0x6C,0x6D,0x6E,0x6F,
+0x80,0x71,0x72,0x73,0x74,0x75,0x76,0x77,0x78,0x79,0x7A,0x7B,0x7C,0x7D,0x7E,0x7F,
+0x80,0xC1,0xC2,0xC3,0xC4,0xC5,0xC6,0xC7,0xC8,0xC9,0x8A,0x8B,0xAC,0xAD,0xAE,0x8F,
+0x90,0xD1,0xD2,0xD3,0xD4,0xD5,0xD6,0xD7,0xD8,0xD9,0x9A,0x9B,0x9E,0x9D,0x9E,0x9F,
+0xDF,0xA1,0xE2,0xE3,0xE4,0xE5,0xE6,0xE7,0xE8,0xE9,0xAA,0xAB,0xAC,0xAD,0xAE,0xAF,
+0xB0,0xB1,0xB2,0xB3,0xB4,0xB5,0xB6,0xB7,0xB8,0xB9,0xBA,0xBB,0xBC,0xBD,0xBE,0xBF,
+0xC0,0xC1,0xC2,0xC3,0xC4,0xC5,0xC6,0xC7,0xC8,0xC9,0xCA,0xEB,0xEC,0xED,0xEE,0xEF,
+0xD0,0xD1,0xD2,0xD3,0xD4,0xD5,0xD6,0xD7,0xD8,0xD9,0xDA,0xFB,0xFC,0xFD,0xFE,0xDF,
+0xE0,0xE1,0xE2,0xE3,0xE4,0xE5,0xE6,0xE7,0xE8,0xE9,0xEA,0xEB,0xEC,0xED,0xEE,0xEF,
+0xF0,0xF1,0xF2,0xF3,0xF4,0xF5,0xF6,0xF7,0xF8,0xF9,0xFA,0xFB,0xFC,0xFD,0xFE,0xFF
+/*_0   _1   _2   _3   _4   _5   _6   _7   _8   _9   _A   _B   _C   _D   _E  _F*/
+};
+
+/* Index is EBCDIC 037 code point; For A-Z, value is a-z; for a-z, value
+ * is A-Z; all other code points map to themselves */
+EXTCONST U8 PL_fold[] = {
+/*_0   _1   _2   _3   _4   _5   _6   _7   _8   _9   _A   _B   _C   _D   _E  _F*/
+0x00,0x01,0x02,0x03,0x04,0x05,0x06,0x07,0x08,0x09,0x0A,0x0B,0x0C,0x0D,0x0E,0x0F,
+0x10,0x11,0x12,0x13,0x14,0x15,0x16,0x17,0x18,0x19,0x1A,0x1B,0x1C,0x1D,0x1E,0x1F,
+0x20,0x21,0x22,0x23,0x24,0x25,0x26,0x27,0x28,0x29,0x2A,0x2B,0x2C,0x2D,0x2E,0x2F,
+0x30,0x31,0x32,0x33,0x34,0x35,0x36,0x37,0x38,0x39,0x3A,0x3B,0x3C,0x3D,0x3E,0x3F,
+0x40,0x41,0x42,0x43,0x44,0x45,0x46,0x47,0x48,0x49,0x4A,0x4B,0x4C,0x4D,0x4E,0x4F,
+0x50,0x51,0x52,0x53,0x54,0x55,0x56,0x57,0x58,0x59,0x5A,0x5B,0x5C,0x5D,0x5E,0x5F,
+0x60,0x61,0x62,0x63,0x64,0x65,0x66,0x67,0x68,0x69,0x6A,0x6B,0x6C,0x6D,0x6E,0x6F,
+0x70,0x71,0x72,0x73,0x74,0x75,0x76,0x77,0x78,0x79,0x7A,0x7B,0x7C,0x7D,0x7E,0x7F,
+0x80,0xC1,0xC2,0xC3,0xC4,0xC5,0xC6,0xC7,0xC8,0xC9,0x8A,0x8B,0x8C,0x8D,0x8E,0x8F,
+0x90,0xD1,0xD2,0xD3,0xD4,0xD5,0xD6,0xD7,0xD8,0xD9,0x9A,0x9B,0x9C,0x9D,0x9E,0x9F,
+0xA0,0xA1,0xE2,0xE3,0xE4,0xE5,0xE6,0xE7,0xE8,0xE9,0xAA,0xAB,0xAC,0xAD,0xAE,0xAF,
+0xB0,0xB1,0xB2,0xB3,0xB4,0xB5,0xB6,0xB7,0xB8,0xB9,0xBA,0xBB,0xBC,0xBD,0xBE,0xBF,
+0xC0,0x81,0x82,0x83,0x84,0x85,0x86,0x87,0x88,0x89,0xCA,0xCB,0xCC,0xCD,0xCE,0xCF,
+0xD0,0x91,0x92,0x93,0x94,0x95,0x96,0x97,0x98,0x99,0xDA,0xDB,0xDC,0xDD,0xDE,0xDF,
+0xE0,0xE1,0xA2,0xA3,0xA4,0xA5,0xA6,0xA7,0xA8,0xA9,0xEA,0xEB,0xEC,0xED,0xEE,0xEF,
+0xF0,0xF1,0xF2,0xF3,0xF4,0xF5,0xF6,0xF7,0xF8,0xF9,0xFA,0xFB,0xFC,0xFD,0xFE,0xFF
+/*_0   _1   _2   _3   _4   _5   _6   _7   _8   _9   _A   _B   _C   _D   _E  _F*/
+};
+
+/* Index is EBCDIC 037 code point; value is its other fold-pair equivalent
+ * (A => a; a => A, etc) in the 0-255 range.  If no such equivalent, value is
+ * the code point itself */
+EXTCONST U8 PL_fold_latin1[] = {
+/*_0   _1   _2   _3   _4   _5   _6   _7   _8   _9   _A   _B   _C   _D   _E  _F*/
+0x00,0x01,0x02,0x03,0x04,0x05,0x06,0x07,0x08,0x09,0x0A,0x0B,0x0C,0x0D,0x0E,0x0F,
+0x10,0x11,0x12,0x13,0x14,0x15,0x16,0x17,0x18,0x19,0x1A,0x1B,0x1C,0x1D,0x1E,0x1F,
+0x20,0x21,0x22,0x23,0x24,0x25,0x26,0x27,0x28,0x29,0x2A,0x2B,0x2C,0x2D,0x2E,0x2F,
+0x30,0x31,0x32,0x33,0x34,0x35,0x36,0x37,0x38,0x39,0x3A,0x3B,0x3C,0x3D,0x3E,0x3F,
+0x40,0x41,0x62,0x63,0x64,0x65,0x66,0x67,0x68,0x69,0x4A,0x4B,0x4C,0x4D,0x4E,0x4F,
+0x50,0x71,0x72,0x73,0x74,0x75,0x76,0x77,0x78,0x59,0x5A,0x5B,0x5C,0x5D,0x5E,0x5F,
+0x60,0x61,0x42,0x43,0x44,0x45,0x46,0x47,0x48,0x49,0x6A,0x6B,0x6C,0x6D,0x6E,0x6F,
+0x80,0x51,0x52,0x53,0x54,0x55,0x56,0x57,0x58,0x79,0x7A,0x7B,0x7C,0x7D,0x7E,0x7F,
+0x70,0xC1,0xC2,0xC3,0xC4,0xC5,0xC6,0xC7,0xC8,0xC9,0x8A,0x8B,0xAC,0xAD,0xAE,0x8F,
+0x90,0xD1,0xD2,0xD3,0xD4,0xD5,0xD6,0xD7,0xD8,0xD9,0x9A,0x9B,0x9E,0x9D,0x9C,0x9F,
+0xA0,0xA1,0xE2,0xE3,0xE4,0xE5,0xE6,0xE7,0xE8,0xE9,0xAA,0xAB,0x8C,0x8D,0x8E,0xAF,
+0xB0,0xB1,0xB2,0xB3,0xB4,0xB5,0xB6,0xB7,0xB8,0xB9,0xBA,0xBB,0xBC,0xBD,0xBE,0xBF,
+0xC0,0x81,0x82,0x83,0x84,0x85,0x86,0x87,0x88,0x89,0xCA,0xEB,0xEC,0xED,0xEE,0xEF,
+0xD0,0x91,0x92,0x93,0x94,0x95,0x96,0x97,0x98,0x99,0xDA,0xFB,0xFC,0xFD,0xFE,0xDF,
+0xE0,0xE1,0xA2,0xA3,0xA4,0xA5,0xA6,0xA7,0xA8,0xA9,0xEA,0xCB,0xCC,0xCD,0xCE,0xCF,
+0xF0,0xF1,0xF2,0xF3,0xF4,0xF5,0xF6,0xF7,0xF8,0xF9,0xFA,0xDB,0xDC,0xDD,0xDE,0xFF
+/*_0   _1   _2   _3   _4   _5   _6   _7   _8   _9   _A   _B   _C   _D   _E  _F*/
+};
+
+#endif	/* EBCDIC 037 */
+
+#endif /* H_EBCDIC_TABLES */
+
+/* ex: set ro: */
diff --git a/lib/5.24.1/x86_64-linux/CORE/embed.h b/lib/5.24.1/x86_64-linux/CORE/embed.h
new file mode 100644
index 00000000..42c65b2e
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/embed.h
@@ -0,0 +1,1928 @@
+/* -*- buffer-read-only: t -*-
+ *
+ *    embed.h
+ *
+ *    Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001,
+ *    2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 by Larry Wall and others
+ *
+ *    You may distribute under the terms of either the GNU General Public
+ *    License or the Artistic License, as specified in the README file.
+ *
+ * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+ * This file is built by regen/embed.pl from data in embed.fnc,
+ * regen/embed.pl, regen/opcodes, intrpvar.h and perlvars.h.
+ * Any changes made here will be lost!
+ *
+ * Edit those files and run 'make regen_headers' to effect changes.
+ */
+
+/* (Doing namespace management portably in C is really gross.) */
+
+/* By defining PERL_NO_SHORT_NAMES (not done by default) the short forms
+ * (like warn instead of Perl_warn) for the API are not defined.
+ * Not defining the short forms is a good thing for cleaner embedding. */
+
+#ifndef PERL_NO_SHORT_NAMES
+
+/* Hide global symbols */
+
+#define Gv_AMupdate(a,b)	Perl_Gv_AMupdate(aTHX_ a,b)
+#define _is_in_locale_category(a,b)	Perl__is_in_locale_category(aTHX_ a,b)
+#define _is_uni_FOO(a,b)	Perl__is_uni_FOO(aTHX_ a,b)
+#define _is_uni_perl_idcont(a)	Perl__is_uni_perl_idcont(aTHX_ a)
+#define _is_uni_perl_idstart(a)	Perl__is_uni_perl_idstart(aTHX_ a)
+#define _is_utf8_FOO(a,b)	Perl__is_utf8_FOO(aTHX_ a,b)
+#define _is_utf8_idcont(a)	Perl__is_utf8_idcont(aTHX_ a)
+#define _is_utf8_idstart(a)	Perl__is_utf8_idstart(aTHX_ a)
+#define _is_utf8_mark(a)	Perl__is_utf8_mark(aTHX_ a)
+#define _is_utf8_perl_idcont(a)	Perl__is_utf8_perl_idcont(aTHX_ a)
+#define _is_utf8_perl_idstart(a)	Perl__is_utf8_perl_idstart(aTHX_ a)
+#define _is_utf8_xidcont(a)	Perl__is_utf8_xidcont(aTHX_ a)
+#define _is_utf8_xidstart(a)	Perl__is_utf8_xidstart(aTHX_ a)
+#define _to_uni_fold_flags(a,b,c,d)	Perl__to_uni_fold_flags(aTHX_ a,b,c,d)
+#define _to_utf8_fold_flags(a,b,c,d)	Perl__to_utf8_fold_flags(aTHX_ a,b,c,d)
+#define _to_utf8_lower_flags(a,b,c,d)	Perl__to_utf8_lower_flags(aTHX_ a,b,c,d)
+#define _to_utf8_title_flags(a,b,c,d)	Perl__to_utf8_title_flags(aTHX_ a,b,c,d)
+#define _to_utf8_upper_flags(a,b,c,d)	Perl__to_utf8_upper_flags(aTHX_ a,b,c,d)
+#define amagic_call(a,b,c,d)	Perl_amagic_call(aTHX_ a,b,c,d)
+#define amagic_deref_call(a,b)	Perl_amagic_deref_call(aTHX_ a,b)
+#define apply_attrs_string(a,b,c,d)	Perl_apply_attrs_string(aTHX_ a,b,c,d)
+#define atfork_lock		Perl_atfork_lock
+#define atfork_unlock		Perl_atfork_unlock
+#define av_clear(a)		Perl_av_clear(aTHX_ a)
+#define av_delete(a,b,c)	Perl_av_delete(aTHX_ a,b,c)
+#define av_exists(a,b)		Perl_av_exists(aTHX_ a,b)
+#define av_extend(a,b)		Perl_av_extend(aTHX_ a,b)
+#define av_fetch(a,b,c)		Perl_av_fetch(aTHX_ a,b,c)
+#define av_fill(a,b)		Perl_av_fill(aTHX_ a,b)
+#define av_len(a)		Perl_av_len(aTHX_ a)
+#define av_make(a,b)		Perl_av_make(aTHX_ a,b)
+#define av_pop(a)		Perl_av_pop(aTHX_ a)
+#define av_push(a,b)		Perl_av_push(aTHX_ a,b)
+#define av_shift(a)		Perl_av_shift(aTHX_ a)
+#define av_store(a,b,c)		Perl_av_store(aTHX_ a,b,c)
+#define av_undef(a)		Perl_av_undef(aTHX_ a)
+#define av_unshift(a,b)		Perl_av_unshift(aTHX_ a,b)
+#define block_end(a,b)		Perl_block_end(aTHX_ a,b)
+#define block_gimme()		Perl_block_gimme(aTHX)
+#define block_start(a)		Perl_block_start(aTHX_ a)
+#define bytes_cmp_utf8(a,b,c,d)	Perl_bytes_cmp_utf8(aTHX_ a,b,c,d)
+#define bytes_from_utf8(a,b,c)	Perl_bytes_from_utf8(aTHX_ a,b,c)
+#define bytes_to_utf8(a,b)	Perl_bytes_to_utf8(aTHX_ a,b)
+#define call_argv(a,b,c)	Perl_call_argv(aTHX_ a,b,c)
+#define call_atexit(a,b)	Perl_call_atexit(aTHX_ a,b)
+#define call_list(a,b)		Perl_call_list(aTHX_ a,b)
+#define call_method(a,b)	Perl_call_method(aTHX_ a,b)
+#define call_pv(a,b)		Perl_call_pv(aTHX_ a,b)
+#define call_sv(a,b)		Perl_call_sv(aTHX_ a,b)
+#define caller_cx(a,b)		Perl_caller_cx(aTHX_ a,b)
+#define cast_i32		Perl_cast_i32
+#define cast_iv			Perl_cast_iv
+#define cast_ulong		Perl_cast_ulong
+#define cast_uv			Perl_cast_uv
+#define ck_entersub_args_list(a)	Perl_ck_entersub_args_list(aTHX_ a)
+#define ck_entersub_args_proto(a,b,c)	Perl_ck_entersub_args_proto(aTHX_ a,b,c)
+#define ck_entersub_args_proto_or_list(a,b,c)	Perl_ck_entersub_args_proto_or_list(aTHX_ a,b,c)
+#ifndef PERL_IMPLICIT_CONTEXT
+#define ck_warner		Perl_ck_warner
+#define ck_warner_d		Perl_ck_warner_d
+#endif
+#define clear_defarray(a,b)	Perl_clear_defarray(aTHX_ a,b)
+#ifndef PERL_IMPLICIT_CONTEXT
+#define croak			Perl_croak
+#endif
+#define croak_memory_wrap	S_croak_memory_wrap
+#define croak_no_modify		Perl_croak_no_modify
+#define croak_sv(a)		Perl_croak_sv(aTHX_ a)
+#define croak_xs_usage		Perl_croak_xs_usage
+#define custom_op_desc(a)	Perl_custom_op_desc(aTHX_ a)
+#define custom_op_name(a)	Perl_custom_op_name(aTHX_ a)
+#define cv_clone(a)		Perl_cv_clone(aTHX_ a)
+#define cv_const_sv		Perl_cv_const_sv
+#define cv_get_call_checker(a,b,c)	Perl_cv_get_call_checker(aTHX_ a,b,c)
+#define cv_name(a,b,c)		Perl_cv_name(aTHX_ a,b,c)
+#define cv_set_call_checker(a,b,c)	Perl_cv_set_call_checker(aTHX_ a,b,c)
+#define cv_set_call_checker_flags(a,b,c,d)	Perl_cv_set_call_checker_flags(aTHX_ a,b,c,d)
+#define cv_undef(a)		Perl_cv_undef(aTHX_ a)
+#define cx_dump(a)		Perl_cx_dump(aTHX_ a)
+#define cxinc()			Perl_cxinc(aTHX)
+#ifndef PERL_IMPLICIT_CONTEXT
+#define deb			Perl_deb
+#endif
+#define debop(a)		Perl_debop(aTHX_ a)
+#define debprofdump()		Perl_debprofdump(aTHX)
+#define debstack()		Perl_debstack(aTHX)
+#define debstackptrs()		Perl_debstackptrs(aTHX)
+#define delimcpy		Perl_delimcpy
+#define despatch_signals()	Perl_despatch_signals(aTHX)
+#ifndef PERL_IMPLICIT_CONTEXT
+#define die			Perl_die
+#endif
+#define die_sv(a)		Perl_die_sv(aTHX_ a)
+#define do_binmode(a,b,c)	Perl_do_binmode(aTHX_ a,b,c)
+#define do_close(a,b)		Perl_do_close(aTHX_ a,b)
+#define do_gv_dump(a,b,c,d)	Perl_do_gv_dump(aTHX_ a,b,c,d)
+#define do_gvgv_dump(a,b,c,d)	Perl_do_gvgv_dump(aTHX_ a,b,c,d)
+#define do_hv_dump(a,b,c,d)	Perl_do_hv_dump(aTHX_ a,b,c,d)
+#define do_join(a,b,c,d)	Perl_do_join(aTHX_ a,b,c,d)
+#define do_magic_dump(a,b,c,d,e,f,g)	Perl_do_magic_dump(aTHX_ a,b,c,d,e,f,g)
+#define do_op_dump(a,b,c)	Perl_do_op_dump(aTHX_ a,b,c)
+#define do_open9(a,b,c,d,e,f,g,h,i)	Perl_do_open9(aTHX_ a,b,c,d,e,f,g,h,i)
+#define do_openn(a,b,c,d,e,f,g,h,i)	Perl_do_openn(aTHX_ a,b,c,d,e,f,g,h,i)
+#define do_pmop_dump(a,b,c)	Perl_do_pmop_dump(aTHX_ a,b,c)
+#define do_sprintf(a,b,c)	Perl_do_sprintf(aTHX_ a,b,c)
+#define do_sv_dump(a,b,c,d,e,f,g)	Perl_do_sv_dump(aTHX_ a,b,c,d,e,f,g)
+#define doing_taint		Perl_doing_taint
+#define doref(a,b,c)		Perl_doref(aTHX_ a,b,c)
+#define dounwind(a)		Perl_dounwind(aTHX_ a)
+#define dowantarray()		Perl_dowantarray(aTHX)
+#define dump_all()		Perl_dump_all(aTHX)
+#define dump_eval()		Perl_dump_eval(aTHX)
+#define dump_form(a)		Perl_dump_form(aTHX_ a)
+#ifndef PERL_IMPLICIT_CONTEXT
+#define dump_indent		Perl_dump_indent
+#endif
+#define dump_packsubs(a)	Perl_dump_packsubs(aTHX_ a)
+#define dump_sub(a)		Perl_dump_sub(aTHX_ a)
+#define dump_vindent(a,b,c,d)	Perl_dump_vindent(aTHX_ a,b,c,d)
+#define eval_pv(a,b)		Perl_eval_pv(aTHX_ a,b)
+#define eval_sv(a,b)		Perl_eval_sv(aTHX_ a,b)
+#define fbm_compile(a,b)	Perl_fbm_compile(aTHX_ a,b)
+#define fbm_instr(a,b,c,d)	Perl_fbm_instr(aTHX_ a,b,c,d)
+#define filter_add(a,b)		Perl_filter_add(aTHX_ a,b)
+#define filter_del(a)		Perl_filter_del(aTHX_ a)
+#define filter_read(a,b,c)	Perl_filter_read(aTHX_ a,b,c)
+#define find_runcv(a)		Perl_find_runcv(aTHX_ a)
+#define find_rundefsv()		Perl_find_rundefsv(aTHX)
+#define find_rundefsvoffset()	Perl_find_rundefsvoffset(aTHX)
+#define foldEQ			Perl_foldEQ
+#define foldEQ_latin1		Perl_foldEQ_latin1
+#define foldEQ_locale		Perl_foldEQ_locale
+#define foldEQ_utf8_flags(a,b,c,d,e,f,g,h,i)	Perl_foldEQ_utf8_flags(aTHX_ a,b,c,d,e,f,g,h,i)
+#ifndef PERL_IMPLICIT_CONTEXT
+#define form			Perl_form
+#endif
+#define free_tmps()		Perl_free_tmps(aTHX)
+#define get_av(a,b)		Perl_get_av(aTHX_ a,b)
+#define get_context		Perl_get_context
+#define get_cv(a,b)		Perl_get_cv(aTHX_ a,b)
+#define get_cvn_flags(a,b,c)	Perl_get_cvn_flags(aTHX_ a,b,c)
+#define get_hv(a,b)		Perl_get_hv(aTHX_ a,b)
+#define get_op_descs()		Perl_get_op_descs(aTHX)
+#define get_op_names()		Perl_get_op_names(aTHX)
+#define get_ppaddr()		Perl_get_ppaddr(aTHX)
+#define get_sv(a,b)		Perl_get_sv(aTHX_ a,b)
+#define get_vtbl(a)		Perl_get_vtbl(aTHX_ a)
+#define getcwd_sv(a)		Perl_getcwd_sv(aTHX_ a)
+#define gp_free(a)		Perl_gp_free(aTHX_ a)
+#define gp_ref(a)		Perl_gp_ref(aTHX_ a)
+#define grok_bin(a,b,c,d)	Perl_grok_bin(aTHX_ a,b,c,d)
+#define grok_hex(a,b,c,d)	Perl_grok_hex(aTHX_ a,b,c,d)
+#define grok_infnan(a,b)	Perl_grok_infnan(aTHX_ a,b)
+#define grok_number(a,b,c)	Perl_grok_number(aTHX_ a,b,c)
+#define grok_number_flags(a,b,c,d)	Perl_grok_number_flags(aTHX_ a,b,c,d)
+#define grok_numeric_radix(a,b)	Perl_grok_numeric_radix(aTHX_ a,b)
+#define grok_oct(a,b,c,d)	Perl_grok_oct(aTHX_ a,b,c,d)
+#define gv_add_by_type(a,b)	Perl_gv_add_by_type(aTHX_ a,b)
+#define gv_autoload_pv(a,b,c)	Perl_gv_autoload_pv(aTHX_ a,b,c)
+#define gv_autoload_pvn(a,b,c,d)	Perl_gv_autoload_pvn(aTHX_ a,b,c,d)
+#define gv_autoload_sv(a,b,c)	Perl_gv_autoload_sv(aTHX_ a,b,c)
+#define gv_check(a)		Perl_gv_check(aTHX_ a)
+#define gv_const_sv(a)		Perl_gv_const_sv(aTHX_ a)
+#define gv_dump(a)		Perl_gv_dump(aTHX_ a)
+#define gv_efullname(a,b)	Perl_gv_efullname(aTHX_ a,b)
+#define gv_efullname4(a,b,c,d)	Perl_gv_efullname4(aTHX_ a,b,c,d)
+#define gv_fetchfile(a)		Perl_gv_fetchfile(aTHX_ a)
+#define gv_fetchfile_flags(a,b,c)	Perl_gv_fetchfile_flags(aTHX_ a,b,c)
+#define gv_fetchmeth_pv(a,b,c,d)	Perl_gv_fetchmeth_pv(aTHX_ a,b,c,d)
+#define gv_fetchmeth_pv_autoload(a,b,c,d)	Perl_gv_fetchmeth_pv_autoload(aTHX_ a,b,c,d)
+#define gv_fetchmeth_pvn(a,b,c,d,e)	Perl_gv_fetchmeth_pvn(aTHX_ a,b,c,d,e)
+#define gv_fetchmeth_pvn_autoload(a,b,c,d,e)	Perl_gv_fetchmeth_pvn_autoload(aTHX_ a,b,c,d,e)
+#define gv_fetchmeth_sv(a,b,c,d)	Perl_gv_fetchmeth_sv(aTHX_ a,b,c,d)
+#define gv_fetchmeth_sv_autoload(a,b,c,d)	Perl_gv_fetchmeth_sv_autoload(aTHX_ a,b,c,d)
+#define gv_fetchmethod_autoload(a,b,c)	Perl_gv_fetchmethod_autoload(aTHX_ a,b,c)
+#define gv_fetchmethod_pv_flags(a,b,c)	Perl_gv_fetchmethod_pv_flags(aTHX_ a,b,c)
+#define gv_fetchmethod_pvn_flags(a,b,c,d)	Perl_gv_fetchmethod_pvn_flags(aTHX_ a,b,c,d)
+#define gv_fetchmethod_sv_flags(a,b,c)	Perl_gv_fetchmethod_sv_flags(aTHX_ a,b,c)
+#define gv_fetchpv(a,b,c)	Perl_gv_fetchpv(aTHX_ a,b,c)
+#define gv_fetchpvn_flags(a,b,c,d)	Perl_gv_fetchpvn_flags(aTHX_ a,b,c,d)
+#define gv_fetchsv(a,b,c)	Perl_gv_fetchsv(aTHX_ a,b,c)
+#define gv_fullname(a,b)	Perl_gv_fullname(aTHX_ a,b)
+#define gv_fullname4(a,b,c,d)	Perl_gv_fullname4(aTHX_ a,b,c,d)
+#define gv_handler(a,b)		Perl_gv_handler(aTHX_ a,b)
+#define gv_init_pv(a,b,c,d)	Perl_gv_init_pv(aTHX_ a,b,c,d)
+#define gv_init_pvn(a,b,c,d,e)	Perl_gv_init_pvn(aTHX_ a,b,c,d,e)
+#define gv_init_sv(a,b,c,d)	Perl_gv_init_sv(aTHX_ a,b,c,d)
+#define gv_name_set(a,b,c,d)	Perl_gv_name_set(aTHX_ a,b,c,d)
+#define gv_stashpv(a,b)		Perl_gv_stashpv(aTHX_ a,b)
+#define gv_stashpvn(a,b,c)	Perl_gv_stashpvn(aTHX_ a,b,c)
+#define gv_stashsv(a,b)		Perl_gv_stashsv(aTHX_ a,b)
+#define hv_clear(a)		Perl_hv_clear(aTHX_ a)
+#define hv_clear_placeholders(a)	Perl_hv_clear_placeholders(aTHX_ a)
+#define hv_common(a,b,c,d,e,f,g,h)	Perl_hv_common(aTHX_ a,b,c,d,e,f,g,h)
+#define hv_common_key_len(a,b,c,d,e,f)	Perl_hv_common_key_len(aTHX_ a,b,c,d,e,f)
+#define hv_copy_hints_hv(a)	Perl_hv_copy_hints_hv(aTHX_ a)
+#define hv_delayfree_ent(a,b)	Perl_hv_delayfree_ent(aTHX_ a,b)
+#define hv_free_ent(a,b)	Perl_hv_free_ent(aTHX_ a,b)
+#define hv_iterinit(a)		Perl_hv_iterinit(aTHX_ a)
+#define hv_iterkey(a,b)		Perl_hv_iterkey(aTHX_ a,b)
+#define hv_iterkeysv(a)		Perl_hv_iterkeysv(aTHX_ a)
+#define hv_iternext_flags(a,b)	Perl_hv_iternext_flags(aTHX_ a,b)
+#define hv_iternextsv(a,b,c)	Perl_hv_iternextsv(aTHX_ a,b,c)
+#define hv_iterval(a,b)		Perl_hv_iterval(aTHX_ a,b)
+#define hv_ksplit(a,b)		Perl_hv_ksplit(aTHX_ a,b)
+#define hv_name_set(a,b,c,d)	Perl_hv_name_set(aTHX_ a,b,c,d)
+#define hv_rand_set(a,b)	Perl_hv_rand_set(aTHX_ a,b)
+#define hv_scalar(a)		Perl_hv_scalar(aTHX_ a)
+#define init_i18nl10n(a)	Perl_init_i18nl10n(aTHX_ a)
+#define init_i18nl14n(a)	Perl_init_i18nl14n(aTHX_ a)
+#define init_stacks()		Perl_init_stacks(aTHX)
+#define init_tm(a)		Perl_init_tm(aTHX_ a)
+#define instr			Perl_instr
+#define intro_my()		Perl_intro_my(aTHX)
+#define isALNUM_lazy(a)		Perl_isALNUM_lazy(aTHX_ a)
+#define isIDFIRST_lazy(a)	Perl_isIDFIRST_lazy(aTHX_ a)
+#define is_invariant_string	Perl_is_invariant_string
+#define is_lvalue_sub()		Perl_is_lvalue_sub(aTHX)
+#define is_uni_alnum(a)		Perl_is_uni_alnum(aTHX_ a)
+#define is_uni_alnum_lc(a)	Perl_is_uni_alnum_lc(aTHX_ a)
+#define is_uni_alnumc(a)	Perl_is_uni_alnumc(aTHX_ a)
+#define is_uni_alnumc_lc(a)	Perl_is_uni_alnumc_lc(aTHX_ a)
+#define is_uni_alpha(a)		Perl_is_uni_alpha(aTHX_ a)
+#define is_uni_alpha_lc(a)	Perl_is_uni_alpha_lc(aTHX_ a)
+#define is_uni_ascii(a)		Perl_is_uni_ascii(aTHX_ a)
+#define is_uni_ascii_lc(a)	Perl_is_uni_ascii_lc(aTHX_ a)
+#define is_uni_blank(a)		Perl_is_uni_blank(aTHX_ a)
+#define is_uni_blank_lc(a)	Perl_is_uni_blank_lc(aTHX_ a)
+#define is_uni_cntrl(a)		Perl_is_uni_cntrl(aTHX_ a)
+#define is_uni_cntrl_lc(a)	Perl_is_uni_cntrl_lc(aTHX_ a)
+#define is_uni_digit(a)		Perl_is_uni_digit(aTHX_ a)
+#define is_uni_digit_lc(a)	Perl_is_uni_digit_lc(aTHX_ a)
+#define is_uni_graph(a)		Perl_is_uni_graph(aTHX_ a)
+#define is_uni_graph_lc(a)	Perl_is_uni_graph_lc(aTHX_ a)
+#define is_uni_idfirst(a)	Perl_is_uni_idfirst(aTHX_ a)
+#define is_uni_idfirst_lc(a)	Perl_is_uni_idfirst_lc(aTHX_ a)
+#define is_uni_lower(a)		Perl_is_uni_lower(aTHX_ a)
+#define is_uni_lower_lc(a)	Perl_is_uni_lower_lc(aTHX_ a)
+#define is_uni_print(a)		Perl_is_uni_print(aTHX_ a)
+#define is_uni_print_lc(a)	Perl_is_uni_print_lc(aTHX_ a)
+#define is_uni_punct(a)		Perl_is_uni_punct(aTHX_ a)
+#define is_uni_punct_lc(a)	Perl_is_uni_punct_lc(aTHX_ a)
+#define is_uni_space(a)		Perl_is_uni_space(aTHX_ a)
+#define is_uni_space_lc(a)	Perl_is_uni_space_lc(aTHX_ a)
+#define is_uni_upper(a)		Perl_is_uni_upper(aTHX_ a)
+#define is_uni_upper_lc(a)	Perl_is_uni_upper_lc(aTHX_ a)
+#define is_uni_xdigit(a)	Perl_is_uni_xdigit(aTHX_ a)
+#define is_uni_xdigit_lc(a)	Perl_is_uni_xdigit_lc(aTHX_ a)
+#define is_utf8_alnum(a)	Perl_is_utf8_alnum(aTHX_ a)
+#define is_utf8_alnumc(a)	Perl_is_utf8_alnumc(aTHX_ a)
+#define is_utf8_alpha(a)	Perl_is_utf8_alpha(aTHX_ a)
+#define is_utf8_ascii(a)	Perl_is_utf8_ascii(aTHX_ a)
+#define is_utf8_blank(a)	Perl_is_utf8_blank(aTHX_ a)
+#define is_utf8_char		Perl_is_utf8_char
+#define is_utf8_cntrl(a)	Perl_is_utf8_cntrl(aTHX_ a)
+#define is_utf8_digit(a)	Perl_is_utf8_digit(aTHX_ a)
+#define is_utf8_graph(a)	Perl_is_utf8_graph(aTHX_ a)
+#define is_utf8_idcont(a)	Perl_is_utf8_idcont(aTHX_ a)
+#define is_utf8_idfirst(a)	Perl_is_utf8_idfirst(aTHX_ a)
+#define is_utf8_lower(a)	Perl_is_utf8_lower(aTHX_ a)
+#define is_utf8_mark(a)		Perl_is_utf8_mark(aTHX_ a)
+#define is_utf8_perl_space(a)	Perl_is_utf8_perl_space(aTHX_ a)
+#define is_utf8_perl_word(a)	Perl_is_utf8_perl_word(aTHX_ a)
+#define is_utf8_posix_digit(a)	Perl_is_utf8_posix_digit(aTHX_ a)
+#define is_utf8_print(a)	Perl_is_utf8_print(aTHX_ a)
+#define is_utf8_punct(a)	Perl_is_utf8_punct(aTHX_ a)
+#define is_utf8_space(a)	Perl_is_utf8_space(aTHX_ a)
+#define is_utf8_string		Perl_is_utf8_string
+#define is_utf8_string_loclen	Perl_is_utf8_string_loclen
+#define is_utf8_upper(a)	Perl_is_utf8_upper(aTHX_ a)
+#define is_utf8_xdigit(a)	Perl_is_utf8_xdigit(aTHX_ a)
+#define is_utf8_xidcont(a)	Perl_is_utf8_xidcont(aTHX_ a)
+#define is_utf8_xidfirst(a)	Perl_is_utf8_xidfirst(aTHX_ a)
+#define isinfnan		Perl_isinfnan
+#define leave_adjust_stacks(a,b,c,d)	Perl_leave_adjust_stacks(aTHX_ a,b,c,d)
+#define leave_scope(a)		Perl_leave_scope(aTHX_ a)
+#define lex_bufutf8()		Perl_lex_bufutf8(aTHX)
+#define lex_discard_to(a)	Perl_lex_discard_to(aTHX_ a)
+#define lex_grow_linestr(a)	Perl_lex_grow_linestr(aTHX_ a)
+#define lex_next_chunk(a)	Perl_lex_next_chunk(aTHX_ a)
+#define lex_peek_unichar(a)	Perl_lex_peek_unichar(aTHX_ a)
+#define lex_read_space(a)	Perl_lex_read_space(aTHX_ a)
+#define lex_read_to(a)		Perl_lex_read_to(aTHX_ a)
+#define lex_read_unichar(a)	Perl_lex_read_unichar(aTHX_ a)
+#define lex_start(a,b,c)	Perl_lex_start(aTHX_ a,b,c)
+#define lex_stuff_pv(a,b)	Perl_lex_stuff_pv(aTHX_ a,b)
+#define lex_stuff_pvn(a,b,c)	Perl_lex_stuff_pvn(aTHX_ a,b,c)
+#define lex_stuff_sv(a,b)	Perl_lex_stuff_sv(aTHX_ a,b)
+#define lex_unstuff(a)		Perl_lex_unstuff(aTHX_ a)
+#ifndef PERL_IMPLICIT_CONTEXT
+#define load_module		Perl_load_module
+#endif
+#define looks_like_number(a)	Perl_looks_like_number(aTHX_ a)
+#define magic_dump(a)		Perl_magic_dump(aTHX_ a)
+#define markstack_grow()	Perl_markstack_grow(aTHX)
+#ifndef PERL_IMPLICIT_CONTEXT
+#define mess			Perl_mess
+#endif
+#define mess_sv(a,b)		Perl_mess_sv(aTHX_ a,b)
+#define mg_clear(a)		Perl_mg_clear(aTHX_ a)
+#define mg_copy(a,b,c,d)	Perl_mg_copy(aTHX_ a,b,c,d)
+#define mg_find			Perl_mg_find
+#define mg_findext		Perl_mg_findext
+#define mg_free(a)		Perl_mg_free(aTHX_ a)
+#define mg_free_type(a,b)	Perl_mg_free_type(aTHX_ a,b)
+#define mg_get(a)		Perl_mg_get(aTHX_ a)
+#define mg_length(a)		Perl_mg_length(aTHX_ a)
+#define mg_magical		Perl_mg_magical
+#define mg_set(a)		Perl_mg_set(aTHX_ a)
+#define mg_size(a)		Perl_mg_size(aTHX_ a)
+#define mini_mktime		Perl_mini_mktime
+#define moreswitches(a)		Perl_moreswitches(aTHX_ a)
+#define mro_get_linear_isa(a)	Perl_mro_get_linear_isa(aTHX_ a)
+#define mro_method_changed_in(a)	Perl_mro_method_changed_in(aTHX_ a)
+#define my_atof(a)		Perl_my_atof(aTHX_ a)
+#define my_atof2(a,b)		Perl_my_atof2(aTHX_ a,b)
+#define my_dirfd		Perl_my_dirfd
+#define my_exit(a)		Perl_my_exit(aTHX_ a)
+#define my_failure_exit()	Perl_my_failure_exit(aTHX)
+#define my_fflush_all()		Perl_my_fflush_all(aTHX)
+#define my_fork			Perl_my_fork
+#define my_popen_list(a,b,c)	Perl_my_popen_list(aTHX_ a,b,c)
+#define my_setenv(a,b)		Perl_my_setenv(aTHX_ a,b)
+#define my_socketpair		Perl_my_socketpair
+#define my_strerror(a)		Perl_my_strerror(aTHX_ a)
+#define my_strftime(a,b,c,d,e,f,g,h,i,j)	Perl_my_strftime(aTHX_ a,b,c,d,e,f,g,h,i,j)
+#define newANONATTRSUB(a,b,c,d)	Perl_newANONATTRSUB(aTHX_ a,b,c,d)
+#define newANONHASH(a)		Perl_newANONHASH(aTHX_ a)
+#define newANONLIST(a)		Perl_newANONLIST(aTHX_ a)
+#define newANONSUB(a,b,c)	Perl_newANONSUB(aTHX_ a,b,c)
+#define newASSIGNOP(a,b,c,d)	Perl_newASSIGNOP(aTHX_ a,b,c,d)
+#define newAVREF(a)		Perl_newAVREF(aTHX_ a)
+#define newBINOP(a,b,c,d)	Perl_newBINOP(aTHX_ a,b,c,d)
+#define newCONDOP(a,b,c,d)	Perl_newCONDOP(aTHX_ a,b,c,d)
+#define newCONSTSUB(a,b,c)	Perl_newCONSTSUB(aTHX_ a,b,c)
+#define newCONSTSUB_flags(a,b,c,d,e)	Perl_newCONSTSUB_flags(aTHX_ a,b,c,d,e)
+#define newCVREF(a,b)		Perl_newCVREF(aTHX_ a,b)
+#define newDEFSVOP()		Perl_newDEFSVOP(aTHX)
+#define newFORM(a,b,c)		Perl_newFORM(aTHX_ a,b,c)
+#define newFOROP(a,b,c,d,e)	Perl_newFOROP(aTHX_ a,b,c,d,e)
+#define newGIVENOP(a,b,c)	Perl_newGIVENOP(aTHX_ a,b,c)
+#define newGVOP(a,b,c)		Perl_newGVOP(aTHX_ a,b,c)
+#define newGVREF(a,b)		Perl_newGVREF(aTHX_ a,b)
+#define newGVgen_flags(a,b)	Perl_newGVgen_flags(aTHX_ a,b)
+#define newHVREF(a)		Perl_newHVREF(aTHX_ a)
+#define newHVhv(a)		Perl_newHVhv(aTHX_ a)
+#define newLISTOP(a,b,c,d)	Perl_newLISTOP(aTHX_ a,b,c,d)
+#define newLOGOP(a,b,c,d)	Perl_newLOGOP(aTHX_ a,b,c,d)
+#define newLOOPEX(a,b)		Perl_newLOOPEX(aTHX_ a,b)
+#define newLOOPOP(a,b,c,d)	Perl_newLOOPOP(aTHX_ a,b,c,d)
+#define newMETHOP(a,b,c)	Perl_newMETHOP(aTHX_ a,b,c)
+#define newMETHOP_named(a,b,c)	Perl_newMETHOP_named(aTHX_ a,b,c)
+#define newMYSUB(a,b,c,d,e)	Perl_newMYSUB(aTHX_ a,b,c,d,e)
+#define newNULLLIST()		Perl_newNULLLIST(aTHX)
+#define newOP(a,b)		Perl_newOP(aTHX_ a,b)
+#define newPADNAMELIST		Perl_newPADNAMELIST
+#define newPADNAMEouter		Perl_newPADNAMEouter
+#define newPADNAMEpvn		Perl_newPADNAMEpvn
+#define newPMOP(a,b)		Perl_newPMOP(aTHX_ a,b)
+#define newPROG(a)		Perl_newPROG(aTHX_ a)
+#define newPVOP(a,b,c)		Perl_newPVOP(aTHX_ a,b,c)
+#define newRANGE(a,b,c)		Perl_newRANGE(aTHX_ a,b,c)
+#define newRV(a)		Perl_newRV(aTHX_ a)
+#define newRV_noinc(a)		Perl_newRV_noinc(aTHX_ a)
+#define newSLICEOP(a,b,c)	Perl_newSLICEOP(aTHX_ a,b,c)
+#define newSTATEOP(a,b,c)	Perl_newSTATEOP(aTHX_ a,b,c)
+#define newSV(a)		Perl_newSV(aTHX_ a)
+#define newSVOP(a,b,c)		Perl_newSVOP(aTHX_ a,b,c)
+#define newSVREF(a)		Perl_newSVREF(aTHX_ a)
+#define newSV_type(a)		Perl_newSV_type(aTHX_ a)
+#define newSVhek(a)		Perl_newSVhek(aTHX_ a)
+#define newSViv(a)		Perl_newSViv(aTHX_ a)
+#define newSVnv(a)		Perl_newSVnv(aTHX_ a)
+#define newSVpv(a,b)		Perl_newSVpv(aTHX_ a,b)
+#define newSVpv_share(a,b)	Perl_newSVpv_share(aTHX_ a,b)
+#ifndef PERL_IMPLICIT_CONTEXT
+#define newSVpvf		Perl_newSVpvf
+#endif
+#define newSVpvn(a,b)		Perl_newSVpvn(aTHX_ a,b)
+#define newSVpvn_flags(a,b,c)	Perl_newSVpvn_flags(aTHX_ a,b,c)
+#define newSVpvn_share(a,b,c)	Perl_newSVpvn_share(aTHX_ a,b,c)
+#define newSVrv(a,b)		Perl_newSVrv(aTHX_ a,b)
+#define newSVsv(a)		Perl_newSVsv(aTHX_ a)
+#define newSVuv(a)		Perl_newSVuv(aTHX_ a)
+#define newUNOP(a,b,c)		Perl_newUNOP(aTHX_ a,b,c)
+#define newUNOP_AUX(a,b,c,d)	Perl_newUNOP_AUX(aTHX_ a,b,c,d)
+#define newWHENOP(a,b)		Perl_newWHENOP(aTHX_ a,b)
+#define newWHILEOP(a,b,c,d,e,f,g)	Perl_newWHILEOP(aTHX_ a,b,c,d,e,f,g)
+#define newXS(a,b,c)		Perl_newXS(aTHX_ a,b,c)
+#define newXS_flags(a,b,c,d,e)	Perl_newXS_flags(aTHX_ a,b,c,d,e)
+#define new_collate(a)		Perl_new_collate(aTHX_ a)
+#define new_ctype(a)		Perl_new_ctype(aTHX_ a)
+#define new_numeric(a)		Perl_new_numeric(aTHX_ a)
+#define new_stackinfo(a,b)	Perl_new_stackinfo(aTHX_ a,b)
+#define new_version(a)		Perl_new_version(aTHX_ a)
+#define ninstr			Perl_ninstr
+#define nothreadhook()		Perl_nothreadhook(aTHX)
+#define op_append_elem(a,b,c)	Perl_op_append_elem(aTHX_ a,b,c)
+#define op_append_list(a,b,c)	Perl_op_append_list(aTHX_ a,b,c)
+#define op_contextualize(a,b)	Perl_op_contextualize(aTHX_ a,b)
+#define op_convert_list(a,b,c)	Perl_op_convert_list(aTHX_ a,b,c)
+#define op_dump(a)		Perl_op_dump(aTHX_ a)
+#define op_free(a)		Perl_op_free(aTHX_ a)
+#define op_linklist(a)		Perl_op_linklist(aTHX_ a)
+#define op_null(a)		Perl_op_null(aTHX_ a)
+#define op_prepend_elem(a,b,c)	Perl_op_prepend_elem(aTHX_ a,b,c)
+#define op_refcnt_lock()	Perl_op_refcnt_lock(aTHX)
+#define op_refcnt_unlock()	Perl_op_refcnt_unlock(aTHX)
+#define op_scope(a)		Perl_op_scope(aTHX_ a)
+#define op_sibling_splice	Perl_op_sibling_splice
+#define pack_cat(a,b,c,d,e,f,g)	Perl_pack_cat(aTHX_ a,b,c,d,e,f,g)
+#define packlist(a,b,c,d,e)	Perl_packlist(aTHX_ a,b,c,d,e)
+#define pad_add_anon(a,b)	Perl_pad_add_anon(aTHX_ a,b)
+#define pad_add_name_pv(a,b,c,d)	Perl_pad_add_name_pv(aTHX_ a,b,c,d)
+#define pad_add_name_pvn(a,b,c,d,e)	Perl_pad_add_name_pvn(aTHX_ a,b,c,d,e)
+#define pad_add_name_sv(a,b,c,d)	Perl_pad_add_name_sv(aTHX_ a,b,c,d)
+#define pad_alloc(a,b)		Perl_pad_alloc(aTHX_ a,b)
+#define pad_compname_type(a)	Perl_pad_compname_type(aTHX_ a)
+#define pad_findmy_pv(a,b)	Perl_pad_findmy_pv(aTHX_ a,b)
+#define pad_findmy_pvn(a,b,c)	Perl_pad_findmy_pvn(aTHX_ a,b,c)
+#define pad_findmy_sv(a,b)	Perl_pad_findmy_sv(aTHX_ a,b)
+#define pad_new(a)		Perl_pad_new(aTHX_ a)
+#define pad_tidy(a)		Perl_pad_tidy(aTHX_ a)
+#define padnamelist_fetch	Perl_padnamelist_fetch
+#define padnamelist_store(a,b,c)	Perl_padnamelist_store(aTHX_ a,b,c)
+#define parse_arithexpr(a)	Perl_parse_arithexpr(aTHX_ a)
+#define parse_barestmt(a)	Perl_parse_barestmt(aTHX_ a)
+#define parse_block(a)		Perl_parse_block(aTHX_ a)
+#define parse_fullexpr(a)	Perl_parse_fullexpr(aTHX_ a)
+#define parse_fullstmt(a)	Perl_parse_fullstmt(aTHX_ a)
+#define parse_label(a)		Perl_parse_label(aTHX_ a)
+#define parse_listexpr(a)	Perl_parse_listexpr(aTHX_ a)
+#define parse_stmtseq(a)	Perl_parse_stmtseq(aTHX_ a)
+#define parse_termexpr(a)	Perl_parse_termexpr(aTHX_ a)
+#define pmop_dump(a)		Perl_pmop_dump(aTHX_ a)
+#define pop_scope()		Perl_pop_scope(aTHX)
+#define pregcomp(a,b)		Perl_pregcomp(aTHX_ a,b)
+#define pregexec(a,b,c,d,e,f,g)	Perl_pregexec(aTHX_ a,b,c,d,e,f,g)
+#define pregfree(a)		Perl_pregfree(aTHX_ a)
+#define pregfree2(a)		Perl_pregfree2(aTHX_ a)
+#define prescan_version(a,b,c,d,e,f,g)	Perl_prescan_version(aTHX_ a,b,c,d,e,f,g)
+#define ptr_table_clear(a)	Perl_ptr_table_clear(aTHX_ a)
+#define ptr_table_fetch(a,b)	Perl_ptr_table_fetch(aTHX_ a,b)
+#define ptr_table_free(a)	Perl_ptr_table_free(aTHX_ a)
+#define ptr_table_new()		Perl_ptr_table_new(aTHX)
+#define ptr_table_split(a)	Perl_ptr_table_split(aTHX_ a)
+#define ptr_table_store(a,b,c)	Perl_ptr_table_store(aTHX_ a,b,c)
+#define push_scope()		Perl_push_scope(aTHX)
+#define pv_display(a,b,c,d,e)	Perl_pv_display(aTHX_ a,b,c,d,e)
+#define pv_escape(a,b,c,d,e,f)	Perl_pv_escape(aTHX_ a,b,c,d,e,f)
+#define pv_pretty(a,b,c,d,e,f,g)	Perl_pv_pretty(aTHX_ a,b,c,d,e,f,g)
+#define pv_uni_display(a,b,c,d,e)	Perl_pv_uni_display(aTHX_ a,b,c,d,e)
+#define re_compile(a,b)		Perl_re_compile(aTHX_ a,b)
+#define re_intuit_start(a,b,c,d,e,f,g)	Perl_re_intuit_start(aTHX_ a,b,c,d,e,f,g)
+#define re_intuit_string(a)	Perl_re_intuit_string(aTHX_ a)
+#define reentrant_free()	Perl_reentrant_free(aTHX)
+#define reentrant_init()	Perl_reentrant_init(aTHX)
+#define reentrant_retry		Perl_reentrant_retry
+#define reentrant_size()	Perl_reentrant_size(aTHX)
+#define reg_named_buff_all(a,b)	Perl_reg_named_buff_all(aTHX_ a,b)
+#define reg_named_buff_exists(a,b,c)	Perl_reg_named_buff_exists(aTHX_ a,b,c)
+#define reg_named_buff_fetch(a,b,c)	Perl_reg_named_buff_fetch(aTHX_ a,b,c)
+#define reg_named_buff_firstkey(a,b)	Perl_reg_named_buff_firstkey(aTHX_ a,b)
+#define reg_named_buff_nextkey(a,b)	Perl_reg_named_buff_nextkey(aTHX_ a,b)
+#define reg_named_buff_scalar(a,b)	Perl_reg_named_buff_scalar(aTHX_ a,b)
+#define regclass_swash(a,b,c,d,e)	Perl_regclass_swash(aTHX_ a,b,c,d,e)
+#define regdump(a)		Perl_regdump(aTHX_ a)
+#define regexec_flags(a,b,c,d,e,f,g,h)	Perl_regexec_flags(aTHX_ a,b,c,d,e,f,g,h)
+#define regfree_internal(a)	Perl_regfree_internal(aTHX_ a)
+#define reginitcolors()		Perl_reginitcolors(aTHX)
+#define regnext(a)		Perl_regnext(aTHX_ a)
+#define repeatcpy		Perl_repeatcpy
+#define require_pv(a)		Perl_require_pv(aTHX_ a)
+#define rninstr			Perl_rninstr
+#define rsignal(a,b)		Perl_rsignal(aTHX_ a,b)
+#define rsignal_state(a)	Perl_rsignal_state(aTHX_ a)
+#define runops_debug()		Perl_runops_debug(aTHX)
+#define runops_standard()	Perl_runops_standard(aTHX)
+#define rv2cv_op_cv(a,b)	Perl_rv2cv_op_cv(aTHX_ a,b)
+#define safesyscalloc		Perl_safesyscalloc
+#define safesysfree		Perl_safesysfree
+#define safesysmalloc		Perl_safesysmalloc
+#define safesysrealloc		Perl_safesysrealloc
+#define save_I16(a)		Perl_save_I16(aTHX_ a)
+#define save_I32(a)		Perl_save_I32(aTHX_ a)
+#define save_I8(a)		Perl_save_I8(aTHX_ a)
+#define save_adelete(a,b)	Perl_save_adelete(aTHX_ a,b)
+#define save_aelem_flags(a,b,c,d)	Perl_save_aelem_flags(aTHX_ a,b,c,d)
+#define save_alloc(a,b)		Perl_save_alloc(aTHX_ a,b)
+#define save_aptr(a)		Perl_save_aptr(aTHX_ a)
+#define save_ary(a)		Perl_save_ary(aTHX_ a)
+#define save_bool(a)		Perl_save_bool(aTHX_ a)
+#define save_clearsv(a)		Perl_save_clearsv(aTHX_ a)
+#define save_delete(a,b,c)	Perl_save_delete(aTHX_ a,b,c)
+#define save_destructor(a,b)	Perl_save_destructor(aTHX_ a,b)
+#define save_destructor_x(a,b)	Perl_save_destructor_x(aTHX_ a,b)
+#define save_generic_pvref(a)	Perl_save_generic_pvref(aTHX_ a)
+#define save_generic_svref(a)	Perl_save_generic_svref(aTHX_ a)
+#define save_gp(a,b)		Perl_save_gp(aTHX_ a,b)
+#define save_hash(a)		Perl_save_hash(aTHX_ a)
+#define save_hdelete(a,b)	Perl_save_hdelete(aTHX_ a,b)
+#define save_helem_flags(a,b,c,d)	Perl_save_helem_flags(aTHX_ a,b,c,d)
+#define save_hints()		Perl_save_hints(aTHX)
+#define save_hptr(a)		Perl_save_hptr(aTHX_ a)
+#define save_int(a)		Perl_save_int(aTHX_ a)
+#define save_item(a)		Perl_save_item(aTHX_ a)
+#define save_iv(a)		Perl_save_iv(aTHX_ a)
+#define save_list(a,b)		Perl_save_list(aTHX_ a,b)
+#define save_long(a)		Perl_save_long(aTHX_ a)
+#define save_nogv(a)		Perl_save_nogv(aTHX_ a)
+#define save_padsv_and_mortalize(a)	Perl_save_padsv_and_mortalize(aTHX_ a)
+#define save_pptr(a)		Perl_save_pptr(aTHX_ a)
+#define save_pushi32ptr(a,b,c)	Perl_save_pushi32ptr(aTHX_ a,b,c)
+#define save_pushptr(a,b)	Perl_save_pushptr(aTHX_ a,b)
+#define save_pushptrptr(a,b,c)	Perl_save_pushptrptr(aTHX_ a,b,c)
+#define save_re_context()	Perl_save_re_context(aTHX)
+#define save_scalar(a)		Perl_save_scalar(aTHX_ a)
+#define save_set_svflags(a,b,c)	Perl_save_set_svflags(aTHX_ a,b,c)
+#define save_shared_pvref(a)	Perl_save_shared_pvref(aTHX_ a)
+#define save_sptr(a)		Perl_save_sptr(aTHX_ a)
+#define save_svref(a)		Perl_save_svref(aTHX_ a)
+#define save_vptr(a)		Perl_save_vptr(aTHX_ a)
+#define savepv(a)		Perl_savepv(aTHX_ a)
+#define savepvn(a,b)		Perl_savepvn(aTHX_ a,b)
+#define savesharedpv(a)		Perl_savesharedpv(aTHX_ a)
+#define savesharedpvn(a,b)	Perl_savesharedpvn(aTHX_ a,b)
+#define savesharedsvpv(a)	Perl_savesharedsvpv(aTHX_ a)
+#define savestack_grow()	Perl_savestack_grow(aTHX)
+#define savestack_grow_cnt(a)	Perl_savestack_grow_cnt(aTHX_ a)
+#define savesvpv(a)		Perl_savesvpv(aTHX_ a)
+#define scan_bin(a,b,c)		Perl_scan_bin(aTHX_ a,b,c)
+#define scan_hex(a,b,c)		Perl_scan_hex(aTHX_ a,b,c)
+#define scan_num(a,b)		Perl_scan_num(aTHX_ a,b)
+#define scan_oct(a,b,c)		Perl_scan_oct(aTHX_ a,b,c)
+#define scan_version(a,b,c)	Perl_scan_version(aTHX_ a,b,c)
+#define scan_vstring(a,b,c)	Perl_scan_vstring(aTHX_ a,b,c)
+#define seed()			Perl_seed(aTHX)
+#define set_context		Perl_set_context
+#define set_numeric_local()	Perl_set_numeric_local(aTHX)
+#define set_numeric_radix()	Perl_set_numeric_radix(aTHX)
+#define set_numeric_standard()	Perl_set_numeric_standard(aTHX)
+#define setdefout(a)		Perl_setdefout(aTHX_ a)
+#define share_hek(a,b,c)	Perl_share_hek(aTHX_ a,b,c)
+#define sortsv(a,b,c)		Perl_sortsv(aTHX_ a,b,c)
+#define sortsv_flags(a,b,c,d)	Perl_sortsv_flags(aTHX_ a,b,c,d)
+#define stack_grow(a,b,c)	Perl_stack_grow(aTHX_ a,b,c)
+#define start_subparse(a,b)	Perl_start_subparse(aTHX_ a,b)
+#define str_to_version(a)	Perl_str_to_version(aTHX_ a)
+#define sv_2bool_flags(a,b)	Perl_sv_2bool_flags(aTHX_ a,b)
+#define sv_2cv(a,b,c,d)		Perl_sv_2cv(aTHX_ a,b,c,d)
+#define sv_2io(a)		Perl_sv_2io(aTHX_ a)
+#define sv_2iv_flags(a,b)	Perl_sv_2iv_flags(aTHX_ a,b)
+#define sv_2mortal(a)		Perl_sv_2mortal(aTHX_ a)
+#define sv_2nv_flags(a,b)	Perl_sv_2nv_flags(aTHX_ a,b)
+#define sv_2pv_flags(a,b,c)	Perl_sv_2pv_flags(aTHX_ a,b,c)
+#define sv_2pvbyte(a,b)		Perl_sv_2pvbyte(aTHX_ a,b)
+#define sv_2pvutf8(a,b)		Perl_sv_2pvutf8(aTHX_ a,b)
+#define sv_2uv_flags(a,b)	Perl_sv_2uv_flags(aTHX_ a,b)
+#define sv_backoff		Perl_sv_backoff
+#define sv_bless(a,b)		Perl_sv_bless(aTHX_ a,b)
+#define sv_cat_decode(a,b,c,d,e,f)	Perl_sv_cat_decode(aTHX_ a,b,c,d,e,f)
+#define sv_catpv(a,b)		Perl_sv_catpv(aTHX_ a,b)
+#define sv_catpv_flags(a,b,c)	Perl_sv_catpv_flags(aTHX_ a,b,c)
+#define sv_catpv_mg(a,b)	Perl_sv_catpv_mg(aTHX_ a,b)
+#ifndef PERL_IMPLICIT_CONTEXT
+#define sv_catpvf		Perl_sv_catpvf
+#define sv_catpvf_mg		Perl_sv_catpvf_mg
+#endif
+#define sv_catpvn_flags(a,b,c,d)	Perl_sv_catpvn_flags(aTHX_ a,b,c,d)
+#define sv_catsv_flags(a,b,c)	Perl_sv_catsv_flags(aTHX_ a,b,c)
+#define sv_chop(a,b)		Perl_sv_chop(aTHX_ a,b)
+#define sv_clear(a)		Perl_sv_clear(aTHX_ a)
+#define sv_cmp_flags(a,b,c)	Perl_sv_cmp_flags(aTHX_ a,b,c)
+#define sv_cmp_locale_flags(a,b,c)	Perl_sv_cmp_locale_flags(aTHX_ a,b,c)
+#define sv_copypv_flags(a,b,c)	Perl_sv_copypv_flags(aTHX_ a,b,c)
+#define sv_dec(a)		Perl_sv_dec(aTHX_ a)
+#define sv_dec_nomg(a)		Perl_sv_dec_nomg(aTHX_ a)
+#define sv_derived_from(a,b)	Perl_sv_derived_from(aTHX_ a,b)
+#define sv_derived_from_pv(a,b,c)	Perl_sv_derived_from_pv(aTHX_ a,b,c)
+#define sv_derived_from_pvn(a,b,c,d)	Perl_sv_derived_from_pvn(aTHX_ a,b,c,d)
+#define sv_derived_from_sv(a,b,c)	Perl_sv_derived_from_sv(aTHX_ a,b,c)
+#define sv_destroyable(a)	Perl_sv_destroyable(aTHX_ a)
+#define sv_does(a,b)		Perl_sv_does(aTHX_ a,b)
+#define sv_does_pv(a,b,c)	Perl_sv_does_pv(aTHX_ a,b,c)
+#define sv_does_pvn(a,b,c,d)	Perl_sv_does_pvn(aTHX_ a,b,c,d)
+#define sv_does_sv(a,b,c)	Perl_sv_does_sv(aTHX_ a,b,c)
+#define sv_dump(a)		Perl_sv_dump(aTHX_ a)
+#define sv_eq_flags(a,b,c)	Perl_sv_eq_flags(aTHX_ a,b,c)
+#define sv_force_normal_flags(a,b)	Perl_sv_force_normal_flags(aTHX_ a,b)
+#define sv_free(a)		Perl_sv_free(aTHX_ a)
+#define sv_get_backrefs		Perl_sv_get_backrefs
+#define sv_gets(a,b,c)		Perl_sv_gets(aTHX_ a,b,c)
+#define sv_grow(a,b)		Perl_sv_grow(aTHX_ a,b)
+#define sv_inc(a)		Perl_sv_inc(aTHX_ a)
+#define sv_inc_nomg(a)		Perl_sv_inc_nomg(aTHX_ a)
+#define sv_insert_flags(a,b,c,d,e,f)	Perl_sv_insert_flags(aTHX_ a,b,c,d,e,f)
+#define sv_isa(a,b)		Perl_sv_isa(aTHX_ a,b)
+#define sv_isobject(a)		Perl_sv_isobject(aTHX_ a)
+#define sv_iv(a)		Perl_sv_iv(aTHX_ a)
+#define sv_len(a)		Perl_sv_len(aTHX_ a)
+#define sv_len_utf8(a)		Perl_sv_len_utf8(aTHX_ a)
+#define sv_magic(a,b,c,d,e)	Perl_sv_magic(aTHX_ a,b,c,d,e)
+#define sv_magicext(a,b,c,d,e,f)	Perl_sv_magicext(aTHX_ a,b,c,d,e,f)
+#define sv_newmortal()		Perl_sv_newmortal(aTHX)
+#define sv_newref(a)		Perl_sv_newref(aTHX_ a)
+#define sv_nosharing(a)		Perl_sv_nosharing(aTHX_ a)
+#define sv_nv(a)		Perl_sv_nv(aTHX_ a)
+#define sv_peek(a)		Perl_sv_peek(aTHX_ a)
+#define sv_pos_b2u(a,b)		Perl_sv_pos_b2u(aTHX_ a,b)
+#define sv_pos_b2u_flags(a,b,c)	Perl_sv_pos_b2u_flags(aTHX_ a,b,c)
+#define sv_pos_u2b(a,b,c)	Perl_sv_pos_u2b(aTHX_ a,b,c)
+#define sv_pos_u2b_flags(a,b,c,d)	Perl_sv_pos_u2b_flags(aTHX_ a,b,c,d)
+#define sv_pvbyten(a,b)		Perl_sv_pvbyten(aTHX_ a,b)
+#define sv_pvbyten_force(a,b)	Perl_sv_pvbyten_force(aTHX_ a,b)
+#define sv_pvn(a,b)		Perl_sv_pvn(aTHX_ a,b)
+#define sv_pvn_force_flags(a,b,c)	Perl_sv_pvn_force_flags(aTHX_ a,b,c)
+#define sv_pvn_nomg(a,b)	Perl_sv_pvn_nomg(aTHX_ a,b)
+#define sv_pvutf8n(a,b)		Perl_sv_pvutf8n(aTHX_ a,b)
+#define sv_pvutf8n_force(a,b)	Perl_sv_pvutf8n_force(aTHX_ a,b)
+#define sv_recode_to_utf8(a,b)	Perl_sv_recode_to_utf8(aTHX_ a,b)
+#define sv_ref(a,b,c)		Perl_sv_ref(aTHX_ a,b,c)
+#define sv_reftype(a,b)		Perl_sv_reftype(aTHX_ a,b)
+#define sv_replace(a,b)		Perl_sv_replace(aTHX_ a,b)
+#define sv_report_used()	Perl_sv_report_used(aTHX)
+#define sv_reset(a,b)		Perl_sv_reset(aTHX_ a,b)
+#define sv_rvweaken(a)		Perl_sv_rvweaken(aTHX_ a)
+#define sv_setiv(a,b)		Perl_sv_setiv(aTHX_ a,b)
+#define sv_setiv_mg(a,b)	Perl_sv_setiv_mg(aTHX_ a,b)
+#define sv_setnv(a,b)		Perl_sv_setnv(aTHX_ a,b)
+#define sv_setnv_mg(a,b)	Perl_sv_setnv_mg(aTHX_ a,b)
+#define sv_setpv(a,b)		Perl_sv_setpv(aTHX_ a,b)
+#define sv_setpv_mg(a,b)	Perl_sv_setpv_mg(aTHX_ a,b)
+#ifndef PERL_IMPLICIT_CONTEXT
+#define sv_setpvf		Perl_sv_setpvf
+#define sv_setpvf_mg		Perl_sv_setpvf_mg
+#endif
+#define sv_setpviv(a,b)		Perl_sv_setpviv(aTHX_ a,b)
+#define sv_setpviv_mg(a,b)	Perl_sv_setpviv_mg(aTHX_ a,b)
+#define sv_setpvn(a,b,c)	Perl_sv_setpvn(aTHX_ a,b,c)
+#define sv_setpvn_mg(a,b,c)	Perl_sv_setpvn_mg(aTHX_ a,b,c)
+#define sv_setref_iv(a,b,c)	Perl_sv_setref_iv(aTHX_ a,b,c)
+#define sv_setref_nv(a,b,c)	Perl_sv_setref_nv(aTHX_ a,b,c)
+#define sv_setref_pv(a,b,c)	Perl_sv_setref_pv(aTHX_ a,b,c)
+#define sv_setref_pvn(a,b,c,d)	Perl_sv_setref_pvn(aTHX_ a,b,c,d)
+#define sv_setref_uv(a,b,c)	Perl_sv_setref_uv(aTHX_ a,b,c)
+#define sv_setsv_flags(a,b,c)	Perl_sv_setsv_flags(aTHX_ a,b,c)
+#define sv_setsv_mg(a,b)	Perl_sv_setsv_mg(aTHX_ a,b)
+#define sv_setuv(a,b)		Perl_sv_setuv(aTHX_ a,b)
+#define sv_setuv_mg(a,b)	Perl_sv_setuv_mg(aTHX_ a,b)
+#define sv_tainted(a)		Perl_sv_tainted(aTHX_ a)
+#define sv_true(a)		Perl_sv_true(aTHX_ a)
+#define sv_uni_display(a,b,c,d)	Perl_sv_uni_display(aTHX_ a,b,c,d)
+#define sv_unmagic(a,b)		Perl_sv_unmagic(aTHX_ a,b)
+#define sv_unmagicext(a,b,c)	Perl_sv_unmagicext(aTHX_ a,b,c)
+#define sv_unref_flags(a,b)	Perl_sv_unref_flags(aTHX_ a,b)
+#define sv_untaint(a)		Perl_sv_untaint(aTHX_ a)
+#define sv_upgrade(a,b)		Perl_sv_upgrade(aTHX_ a,b)
+#define sv_usepvn_flags(a,b,c,d)	Perl_sv_usepvn_flags(aTHX_ a,b,c,d)
+#define sv_utf8_decode(a)	Perl_sv_utf8_decode(aTHX_ a)
+#define sv_utf8_downgrade(a,b)	Perl_sv_utf8_downgrade(aTHX_ a,b)
+#define sv_utf8_encode(a)	Perl_sv_utf8_encode(aTHX_ a)
+#define sv_utf8_upgrade_flags_grow(a,b,c)	Perl_sv_utf8_upgrade_flags_grow(aTHX_ a,b,c)
+#define sv_uv(a)		Perl_sv_uv(aTHX_ a)
+#define sv_vcatpvf(a,b,c)	Perl_sv_vcatpvf(aTHX_ a,b,c)
+#define sv_vcatpvf_mg(a,b,c)	Perl_sv_vcatpvf_mg(aTHX_ a,b,c)
+#define sv_vcatpvfn(a,b,c,d,e,f,g)	Perl_sv_vcatpvfn(aTHX_ a,b,c,d,e,f,g)
+#define sv_vcatpvfn_flags(a,b,c,d,e,f,g,h)	Perl_sv_vcatpvfn_flags(aTHX_ a,b,c,d,e,f,g,h)
+#define sv_vsetpvf(a,b,c)	Perl_sv_vsetpvf(aTHX_ a,b,c)
+#define sv_vsetpvf_mg(a,b,c)	Perl_sv_vsetpvf_mg(aTHX_ a,b,c)
+#define sv_vsetpvfn(a,b,c,d,e,f,g)	Perl_sv_vsetpvfn(aTHX_ a,b,c,d,e,f,g)
+#define swash_fetch(a,b,c)	Perl_swash_fetch(aTHX_ a,b,c)
+#define swash_init(a,b,c,d,e)	Perl_swash_init(aTHX_ a,b,c,d,e)
+#define sync_locale()		Perl_sync_locale(aTHX)
+#define taint_env()		Perl_taint_env(aTHX)
+#define taint_proper(a,b)	Perl_taint_proper(aTHX_ a,b)
+#define to_uni_lower(a,b,c)	Perl_to_uni_lower(aTHX_ a,b,c)
+#define to_uni_lower_lc(a)	Perl_to_uni_lower_lc(aTHX_ a)
+#define to_uni_title(a,b,c)	Perl_to_uni_title(aTHX_ a,b,c)
+#define to_uni_title_lc(a)	Perl_to_uni_title_lc(aTHX_ a)
+#define to_uni_upper(a,b,c)	Perl_to_uni_upper(aTHX_ a,b,c)
+#define to_uni_upper_lc(a)	Perl_to_uni_upper_lc(aTHX_ a)
+#define to_utf8_case(a,b,c,d,e,f)	Perl_to_utf8_case(aTHX_ a,b,c,d,e,f)
+#define unpack_str(a,b,c,d,e,f,g,h)	Perl_unpack_str(aTHX_ a,b,c,d,e,f,g,h)
+#define unpackstring(a,b,c,d,e)	Perl_unpackstring(aTHX_ a,b,c,d,e)
+#define unsharepvn(a,b,c)	Perl_unsharepvn(aTHX_ a,b,c)
+#define upg_version(a,b)	Perl_upg_version(aTHX_ a,b)
+#define utf16_to_utf8(a,b,c,d)	Perl_utf16_to_utf8(aTHX_ a,b,c,d)
+#define utf16_to_utf8_reversed(a,b,c,d)	Perl_utf16_to_utf8_reversed(aTHX_ a,b,c,d)
+#define utf8_distance(a,b)	Perl_utf8_distance(aTHX_ a,b)
+#define utf8_hop		Perl_utf8_hop
+#define utf8_length(a,b)	Perl_utf8_length(aTHX_ a,b)
+#define utf8_to_bytes(a,b)	Perl_utf8_to_bytes(aTHX_ a,b)
+#define utf8_to_uvchr(a,b)	Perl_utf8_to_uvchr(aTHX_ a,b)
+#define utf8_to_uvuni(a,b)	Perl_utf8_to_uvuni(aTHX_ a,b)
+#define utf8_to_uvuni_buf(a,b,c)	Perl_utf8_to_uvuni_buf(aTHX_ a,b,c)
+#define utf8n_to_uvchr(a,b,c,d)	Perl_utf8n_to_uvchr(aTHX_ a,b,c,d)
+#define utf8n_to_uvuni(a,b,c,d)	Perl_utf8n_to_uvuni(aTHX_ a,b,c,d)
+#define uvoffuni_to_utf8_flags(a,b,c)	Perl_uvoffuni_to_utf8_flags(aTHX_ a,b,c)
+#define uvuni_to_utf8(a,b)	Perl_uvuni_to_utf8(aTHX_ a,b)
+#define uvuni_to_utf8_flags(a,b,c)	Perl_uvuni_to_utf8_flags(aTHX_ a,b,c)
+#define valid_utf8_to_uvchr(a,b)	Perl_valid_utf8_to_uvchr(aTHX_ a,b)
+#define valid_utf8_to_uvuni(a,b)	Perl_valid_utf8_to_uvuni(aTHX_ a,b)
+#define vcmp(a,b)		Perl_vcmp(aTHX_ a,b)
+#define vcroak(a,b)		Perl_vcroak(aTHX_ a,b)
+#define vdeb(a,b)		Perl_vdeb(aTHX_ a,b)
+#define vform(a,b)		Perl_vform(aTHX_ a,b)
+#define vload_module(a,b,c,d)	Perl_vload_module(aTHX_ a,b,c,d)
+#define vmess(a,b)		Perl_vmess(aTHX_ a,b)
+#define vnewSVpvf(a,b)		Perl_vnewSVpvf(aTHX_ a,b)
+#define vnormal(a)		Perl_vnormal(aTHX_ a)
+#define vnumify(a)		Perl_vnumify(aTHX_ a)
+#define vstringify(a)		Perl_vstringify(aTHX_ a)
+#define vverify(a)		Perl_vverify(aTHX_ a)
+#define vwarn(a,b)		Perl_vwarn(aTHX_ a,b)
+#define vwarner(a,b,c)		Perl_vwarner(aTHX_ a,b,c)
+#ifndef PERL_IMPLICIT_CONTEXT
+#define warn			Perl_warn
+#endif
+#define warn_sv(a)		Perl_warn_sv(aTHX_ a)
+#ifndef PERL_IMPLICIT_CONTEXT
+#define warner			Perl_warner
+#endif
+#define whichsig_pv(a)		Perl_whichsig_pv(aTHX_ a)
+#define whichsig_pvn(a,b)	Perl_whichsig_pvn(aTHX_ a,b)
+#define whichsig_sv(a)		Perl_whichsig_sv(aTHX_ a)
+#define wrap_op_checker(a,b,c)	Perl_wrap_op_checker(aTHX_ a,b,c)
+#if !(defined(HAS_SIGACTION) && defined(SA_SIGINFO))
+#define csighandler		Perl_csighandler
+#endif
+#if !(defined(NO_MATHOMS))
+#define sv_nounlocking(a)	Perl_sv_nounlocking(aTHX_ a)
+#endif
+#if !defined(HAS_BZERO) && !defined(HAS_MEMSET)
+#define my_bzero		Perl_my_bzero
+#endif
+#if !defined(HAS_MEMCMP) || !defined(HAS_SANE_MEMCMP)
+#define my_memcmp		Perl_my_memcmp
+#endif
+#if !defined(HAS_MEMCPY) || (!defined(HAS_MEMMOVE) && !defined(HAS_SAFE_MEMCPY))
+#define my_bcopy		Perl_my_bcopy
+#endif
+#if !defined(HAS_MEMSET)
+#define my_memset		Perl_my_memset
+#endif
+#if !defined(HAS_TRUNCATE) && !defined(HAS_CHSIZE) && defined(F_FREESP)
+#define my_chsize(a,b)		Perl_my_chsize(aTHX_ a,b)
+#endif
+#if !defined(PERL_IMPLICIT_SYS)
+#define my_pclose(a)		Perl_my_pclose(aTHX_ a)
+#define my_popen(a,b)		Perl_my_popen(aTHX_ a,b)
+#endif
+#if !defined(PERL_NO_INLINE_FUNCTIONS)
+#define _is_utf8_char_slow	S__is_utf8_char_slow
+#define append_utf8_from_native_byte	S_append_utf8_from_native_byte
+#define av_top_index(a)		S_av_top_index(aTHX_ a)
+#define cx_popblock(a)		S_cx_popblock(aTHX_ a)
+#define cx_popeval(a)		S_cx_popeval(aTHX_ a)
+#define cx_popformat(a)		S_cx_popformat(aTHX_ a)
+#define cx_popgiven(a)		S_cx_popgiven(aTHX_ a)
+#define cx_poploop(a)		S_cx_poploop(aTHX_ a)
+#define cx_popsub(a)		S_cx_popsub(aTHX_ a)
+#define cx_popsub_args(a)	S_cx_popsub_args(aTHX_ a)
+#define cx_popsub_common(a)	S_cx_popsub_common(aTHX_ a)
+#define cx_popwhen(a)		S_cx_popwhen(aTHX_ a)
+#define cx_pushblock(a,b,c,d)	S_cx_pushblock(aTHX_ a,b,c,d)
+#define cx_pusheval(a,b,c)	S_cx_pusheval(aTHX_ a,b,c)
+#define cx_pushformat(a,b,c,d)	S_cx_pushformat(aTHX_ a,b,c,d)
+#define cx_pushgiven(a,b)	S_cx_pushgiven(aTHX_ a,b)
+#define cx_pushloop_for(a,b,c)	S_cx_pushloop_for(aTHX_ a,b,c)
+#define cx_pushloop_plain(a)	S_cx_pushloop_plain(aTHX_ a)
+#define cx_pushsub(a,b,c,d)	S_cx_pushsub(aTHX_ a,b,c,d)
+#define cx_pushwhen(a)		S_cx_pushwhen(aTHX_ a)
+#define cx_topblock(a)		S_cx_topblock(aTHX_ a)
+#define is_safe_syscall(a,b,c,d)	S_is_safe_syscall(aTHX_ a,b,c,d)
+#endif
+#if defined(DEBUGGING)
+#define pad_setsv(a,b)		Perl_pad_setsv(aTHX_ a,b)
+#define pad_sv(a)		Perl_pad_sv(aTHX_ a)
+#  if defined(USE_LOCALE)     && (defined(PERL_IN_LOCALE_C) || defined (PERL_EXT_POSIX))
+#define _setlocale_debug_string	Perl__setlocale_debug_string
+#  endif
+#endif
+#if defined(HAS_SIGACTION) && defined(SA_SIGINFO)
+#define csighandler		Perl_csighandler
+#endif
+#if defined(HAVE_INTERP_INTERN)
+#define sys_intern_clear()	Perl_sys_intern_clear(aTHX)
+#define sys_intern_init()	Perl_sys_intern_init(aTHX)
+#  if defined(USE_ITHREADS)
+#define sys_intern_dup(a,b)	Perl_sys_intern_dup(aTHX_ a,b)
+#  endif
+#endif
+#if defined(MYMALLOC)
+#define dump_mstats(a)		Perl_dump_mstats(aTHX_ a)
+#define get_mstats(a,b,c)	Perl_get_mstats(aTHX_ a,b,c)
+#endif
+#if defined(PERL_GLOBAL_STRUCT)
+#define GetVars()		Perl_GetVars(aTHX)
+#define free_global_struct(a)	Perl_free_global_struct(aTHX_ a)
+#define init_global_struct()	Perl_init_global_struct(aTHX)
+#endif
+#if defined(PERL_IMPLICIT_CONTEXT)
+#define croak_nocontext		Perl_croak_nocontext
+#define deb_nocontext		Perl_deb_nocontext
+#define die_nocontext		Perl_die_nocontext
+#define form_nocontext		Perl_form_nocontext
+#define fprintf_nocontext	Perl_fprintf_nocontext
+#define load_module_nocontext	Perl_load_module_nocontext
+#define mess_nocontext		Perl_mess_nocontext
+#define newSVpvf_nocontext	Perl_newSVpvf_nocontext
+#define printf_nocontext	Perl_printf_nocontext
+#define sv_catpvf_mg_nocontext	Perl_sv_catpvf_mg_nocontext
+#define sv_catpvf_nocontext	Perl_sv_catpvf_nocontext
+#define sv_setpvf_mg_nocontext	Perl_sv_setpvf_mg_nocontext
+#define sv_setpvf_nocontext	Perl_sv_setpvf_nocontext
+#define warn_nocontext		Perl_warn_nocontext
+#define warner_nocontext	Perl_warner_nocontext
+#endif
+#if defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_PERL_C) || defined(PERL_IN_UTF8_C)
+#define _new_invlist_C_array(a)	Perl__new_invlist_C_array(aTHX_ a)
+#endif
+#if defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_REGEXEC_C)
+#define _get_regclass_nonbitmap_data(a,b,c,d,e,f)	Perl__get_regclass_nonbitmap_data(aTHX_ a,b,c,d,e,f)
+#endif
+#if defined(PERL_OP_PARENT)
+#define op_parent		Perl_op_parent
+#endif
+#if defined(UNLINK_ALL_VERSIONS)
+#define unlnk(a)		Perl_unlnk(aTHX_ a)
+#endif
+#if defined(USE_C_BACKTRACE)
+#define dump_c_backtrace(a,b,c)	Perl_dump_c_backtrace(aTHX_ a,b,c)
+#define get_c_backtrace_dump(a,b)	Perl_get_c_backtrace_dump(aTHX_ a,b)
+#endif
+#if defined(USE_ITHREADS)
+#define alloccopstash(a)	Perl_alloccopstash(aTHX_ a)
+#define any_dup(a,b)		Perl_any_dup(aTHX_ a,b)
+#define cx_dup(a,b,c,d)		Perl_cx_dup(aTHX_ a,b,c,d)
+#define dirp_dup(a,b)		Perl_dirp_dup(aTHX_ a,b)
+#define fp_dup(a,b,c)		Perl_fp_dup(aTHX_ a,b,c)
+#define gp_dup(a,b)		Perl_gp_dup(aTHX_ a,b)
+#define he_dup(a,b,c)		Perl_he_dup(aTHX_ a,b,c)
+#define hek_dup(a,b)		Perl_hek_dup(aTHX_ a,b)
+#define mg_dup(a,b)		Perl_mg_dup(aTHX_ a,b)
+#define newPADOP(a,b,c)		Perl_newPADOP(aTHX_ a,b,c)
+#define parser_dup(a,b)		Perl_parser_dup(aTHX_ a,b)
+#define re_dup_guts(a,b,c)	Perl_re_dup_guts(aTHX_ a,b,c)
+#define regdupe_internal(a,b)	Perl_regdupe_internal(aTHX_ a,b)
+#define rvpv_dup(a,b,c)		Perl_rvpv_dup(aTHX_ a,b,c)
+#define si_dup(a,b)		Perl_si_dup(aTHX_ a,b)
+#define ss_dup(a,b)		Perl_ss_dup(aTHX_ a,b)
+#define sv_dup(a,b)		Perl_sv_dup(aTHX_ a,b)
+#define sv_dup_inc(a,b)		Perl_sv_dup_inc(aTHX_ a,b)
+#endif
+#if defined(USE_LOCALE)     && (defined(PERL_IN_LOCALE_C) || defined (PERL_EXT_POSIX))
+#define _is_cur_LC_category_utf8(a)	Perl__is_cur_LC_category_utf8(aTHX_ a)
+#endif
+#if defined(USE_LOCALE_COLLATE)
+#define sv_collxfrm_flags(a,b,c)	Perl_sv_collxfrm_flags(aTHX_ a,b,c)
+#endif
+#if defined(USE_PERLIO)
+#define PerlIO_clearerr(a)	Perl_PerlIO_clearerr(aTHX_ a)
+#define PerlIO_close(a)		Perl_PerlIO_close(aTHX_ a)
+#define PerlIO_eof(a)		Perl_PerlIO_eof(aTHX_ a)
+#define PerlIO_error(a)		Perl_PerlIO_error(aTHX_ a)
+#define PerlIO_fileno(a)	Perl_PerlIO_fileno(aTHX_ a)
+#define PerlIO_fill(a)		Perl_PerlIO_fill(aTHX_ a)
+#define PerlIO_flush(a)		Perl_PerlIO_flush(aTHX_ a)
+#define PerlIO_get_base(a)	Perl_PerlIO_get_base(aTHX_ a)
+#define PerlIO_get_bufsiz(a)	Perl_PerlIO_get_bufsiz(aTHX_ a)
+#define PerlIO_get_cnt(a)	Perl_PerlIO_get_cnt(aTHX_ a)
+#define PerlIO_get_ptr(a)	Perl_PerlIO_get_ptr(aTHX_ a)
+#define PerlIO_read(a,b,c)	Perl_PerlIO_read(aTHX_ a,b,c)
+#define PerlIO_seek(a,b,c)	Perl_PerlIO_seek(aTHX_ a,b,c)
+#define PerlIO_set_cnt(a,b)	Perl_PerlIO_set_cnt(aTHX_ a,b)
+#define PerlIO_set_ptrcnt(a,b,c)	Perl_PerlIO_set_ptrcnt(aTHX_ a,b,c)
+#define PerlIO_setlinebuf(a)	Perl_PerlIO_setlinebuf(aTHX_ a)
+#define PerlIO_stderr()		Perl_PerlIO_stderr(aTHX)
+#define PerlIO_stdin()		Perl_PerlIO_stdin(aTHX)
+#define PerlIO_stdout()		Perl_PerlIO_stdout(aTHX)
+#define PerlIO_tell(a)		Perl_PerlIO_tell(aTHX_ a)
+#define PerlIO_unread(a,b,c)	Perl_PerlIO_unread(aTHX_ a,b,c)
+#define PerlIO_write(a,b,c)	Perl_PerlIO_write(aTHX_ a,b,c)
+#endif
+#if defined(USE_QUADMATH)
+#define quadmath_format_needed	Perl_quadmath_format_needed
+#define quadmath_format_single	Perl_quadmath_format_single
+#endif
+#if defined(WIN32)
+#define my_setlocale(a,b)	Perl_my_setlocale(aTHX_ a,b)
+#endif
+#if defined(WIN32) || defined(__SYMBIAN32__) || defined(VMS)
+#define do_aspawn(a,b,c)	Perl_do_aspawn(aTHX_ a,b,c)
+#define do_spawn(a)		Perl_do_spawn(aTHX_ a)
+#define do_spawn_nowait(a)	Perl_do_spawn_nowait(aTHX_ a)
+#endif
+#if defined(PERL_CORE) || defined(PERL_EXT)
+#define _get_encoding()		Perl__get_encoding(aTHX)
+#define _warn_problematic_locale	Perl__warn_problematic_locale
+#define av_reify(a)		Perl_av_reify(aTHX_ a)
+#define current_re_engine()	Perl_current_re_engine(aTHX)
+#define cv_ckproto_len_flags(a,b,c,d,e)	Perl_cv_ckproto_len_flags(aTHX_ a,b,c,d,e)
+#define grok_atoUV		Perl_grok_atoUV
+#define mg_find_mglob(a)	Perl_mg_find_mglob(aTHX_ a)
+#define multideref_stringify(a,b)	Perl_multideref_stringify(aTHX_ a,b)
+#define op_clear(a)		Perl_op_clear(aTHX_ a)
+#define qerror(a)		Perl_qerror(aTHX_ a)
+#define reg_named_buff(a,b,c,d)	Perl_reg_named_buff(aTHX_ a,b,c,d)
+#define reg_named_buff_iter(a,b,c)	Perl_reg_named_buff_iter(aTHX_ a,b,c)
+#define reg_numbered_buff_fetch(a,b,c)	Perl_reg_numbered_buff_fetch(aTHX_ a,b,c)
+#define reg_numbered_buff_length(a,b,c)	Perl_reg_numbered_buff_length(aTHX_ a,b,c)
+#define reg_numbered_buff_store(a,b,c)	Perl_reg_numbered_buff_store(aTHX_ a,b,c)
+#define reg_qr_package(a)	Perl_reg_qr_package(aTHX_ a)
+#define reg_temp_copy(a,b)	Perl_reg_temp_copy(aTHX_ a,b)
+#define report_uninit(a)	Perl_report_uninit(aTHX_ a)
+#define sv_magicext_mglob(a)	Perl_sv_magicext_mglob(aTHX_ a)
+#define validate_proto(a,b,c)	Perl_validate_proto(aTHX_ a,b,c)
+#define vivify_defelem(a)	Perl_vivify_defelem(aTHX_ a)
+#define yylex()			Perl_yylex(aTHX)
+#  if !defined(PERL_EXT_RE_BUILD)
+#    if defined(PERL_IN_REGCOMP_C)
+#define get_invlist_previous_index_addr	S_get_invlist_previous_index_addr
+#define invlist_clear(a)	S_invlist_clear(aTHX_ a)
+#define invlist_previous_index	S_invlist_previous_index
+#define invlist_replace_list_destroys_src(a,b)	S_invlist_replace_list_destroys_src(aTHX_ a,b)
+#define invlist_set_previous_index	S_invlist_set_previous_index
+#define invlist_trim		S_invlist_trim
+#    endif
+#  endif
+#  if !defined(PERL_NO_INLINE_FUNCTIONS)
+#define sv_only_taint_gmagic	S_sv_only_taint_gmagic
+#  endif
+#  if defined(DEBUGGING)
+#    if defined(PERL_IN_REGCOMP_C)
+#define dump_trie(a,b,c,d)	S_dump_trie(aTHX_ a,b,c,d)
+#define dump_trie_interim_list(a,b,c,d,e)	S_dump_trie_interim_list(aTHX_ a,b,c,d,e)
+#define dump_trie_interim_table(a,b,c,d,e)	S_dump_trie_interim_table(aTHX_ a,b,c,d,e)
+#define dumpuntil(a,b,c,d,e,f,g,h)	S_dumpuntil(aTHX_ a,b,c,d,e,f,g,h)
+#define put_charclass_bitmap_innards(a,b,c,d,e)	S_put_charclass_bitmap_innards(aTHX_ a,b,c,d,e)
+#define put_charclass_bitmap_innards_common(a,b,c,d,e,f)	S_put_charclass_bitmap_innards_common(aTHX_ a,b,c,d,e,f)
+#define put_charclass_bitmap_innards_invlist(a,b)	S_put_charclass_bitmap_innards_invlist(aTHX_ a,b)
+#define put_code_point(a,b)	S_put_code_point(aTHX_ a,b)
+#define put_range(a,b,c,d)	S_put_range(aTHX_ a,b,c,d)
+#ifndef PERL_IMPLICIT_CONTEXT
+#define re_indentf		Perl_re_indentf
+#endif
+#define regdump_extflags(a,b)	S_regdump_extflags(aTHX_ a,b)
+#define regdump_intflags(a,b)	S_regdump_intflags(aTHX_ a,b)
+#define regtail_study(a,b,c,d)	S_regtail_study(aTHX_ a,b,c,d)
+#    endif
+#    if defined(PERL_IN_REGEXEC_C)
+#define debug_start_match(a,b,c,d,e)	S_debug_start_match(aTHX_ a,b,c,d,e)
+#define dump_exec_pos(a,b,c,d,e,f,g)	S_dump_exec_pos(aTHX_ a,b,c,d,e,f,g)
+#ifndef PERL_IMPLICIT_CONTEXT
+#define re_exec_indentf		Perl_re_exec_indentf
+#endif
+#    endif
+#  endif
+#  if defined(PERL_ANY_COW)
+#define sv_setsv_cow(a,b)	Perl_sv_setsv_cow(aTHX_ a,b)
+#  endif
+#  if defined(PERL_CORE) || defined (PERL_EXT)
+#define sv_or_pv_pos_u2b(a,b,c,d)	S_sv_or_pv_pos_u2b(aTHX_ a,b,c,d)
+#  endif
+#  if defined(PERL_IN_REGCOMP_C)
+#define _append_range_to_invlist(a,b,c)	S__append_range_to_invlist(aTHX_ a,b,c)
+#define _invlist_array_init	S__invlist_array_init
+#define _make_exactf_invlist(a,b)	S__make_exactf_invlist(aTHX_ a,b)
+#define add_above_Latin1_folds(a,b,c)	S_add_above_Latin1_folds(aTHX_ a,b,c)
+#define add_cp_to_invlist(a,b)	S_add_cp_to_invlist(aTHX_ a,b)
+#define add_data		S_add_data
+#define add_multi_match(a,b,c)	S_add_multi_match(aTHX_ a,b,c)
+#define alloc_maybe_populate_EXACT(a,b,c,d,e,f)	S_alloc_maybe_populate_EXACT(aTHX_ a,b,c,d,e,f)
+#define cntrl_to_mnemonic	S_cntrl_to_mnemonic
+#define compute_EXACTish	S_compute_EXACTish
+#define construct_ahocorasick_from_trie(a,b,c)	S_construct_ahocorasick_from_trie(aTHX_ a,b,c)
+#define edit_distance		S_edit_distance
+#define get_ANYOF_cp_list_for_ssc(a,b)	S_get_ANYOF_cp_list_for_ssc(aTHX_ a,b)
+#define get_invlist_iter_addr	S_get_invlist_iter_addr
+#define grok_bslash_N(a,b,c,d,e,f,g)	S_grok_bslash_N(aTHX_ a,b,c,d,e,f,g)
+#define handle_named_backref(a,b,c,d)	S_handle_named_backref(aTHX_ a,b,c,d)
+#define handle_possible_posix(a,b,c,d,e)	S_handle_possible_posix(aTHX_ a,b,c,d,e)
+#define handle_regex_sets(a,b,c,d,e)	S_handle_regex_sets(aTHX_ a,b,c,d,e)
+#define invlist_clone(a)	S_invlist_clone(aTHX_ a)
+#define invlist_contents(a,b)	S_invlist_contents(aTHX_ a,b)
+#define invlist_extend(a,b)	S_invlist_extend(aTHX_ a,b)
+#define invlist_highest		S_invlist_highest
+#define invlist_is_iterating	S_invlist_is_iterating
+#define invlist_iterfinish	S_invlist_iterfinish
+#define invlist_iterinit	S_invlist_iterinit
+#define invlist_iternext	S_invlist_iternext
+#define invlist_max		S_invlist_max
+#define invlist_set_len(a,b,c)	S_invlist_set_len(aTHX_ a,b,c)
+#define is_ssc_worth_it		S_is_ssc_worth_it
+#define join_exact(a,b,c,d,e,f,g)	S_join_exact(aTHX_ a,b,c,d,e,f,g)
+#define make_trie(a,b,c,d,e,f,g,h)	S_make_trie(aTHX_ a,b,c,d,e,f,g,h)
+#define nextchar(a)		S_nextchar(aTHX_ a)
+#define output_or_return_posix_warnings(a,b,c)	S_output_or_return_posix_warnings(aTHX_ a,b,c)
+#define parse_lparen_question_flags(a)	S_parse_lparen_question_flags(aTHX_ a)
+#define populate_ANYOF_from_invlist(a,b)	S_populate_ANYOF_from_invlist(aTHX_ a,b)
+#define reg(a,b,c,d)		S_reg(aTHX_ a,b,c,d)
+#define reg2Lanode(a,b,c,d)	S_reg2Lanode(aTHX_ a,b,c,d)
+#define reg_node(a,b)		S_reg_node(aTHX_ a,b)
+#define reg_recode(a,b)		S_reg_recode(aTHX_ a,b)
+#define reg_scan_name(a,b)	S_reg_scan_name(aTHX_ a,b)
+#define reg_skipcomment		S_reg_skipcomment
+#define reganode(a,b,c)		S_reganode(aTHX_ a,b,c)
+#define regatom(a,b,c)		S_regatom(aTHX_ a,b,c)
+#define regbranch(a,b,c,d)	S_regbranch(aTHX_ a,b,c,d)
+#define regclass(a,b,c,d,e,f,g,h,i,j)	S_regclass(aTHX_ a,b,c,d,e,f,g,h,i,j)
+#define regex_set_precedence	S_regex_set_precedence
+#define reginsert(a,b,c,d)	S_reginsert(aTHX_ a,b,c,d)
+#define regnode_guts(a,b,c,d)	S_regnode_guts(aTHX_ a,b,c,d)
+#define regpiece(a,b,c)		S_regpiece(aTHX_ a,b,c)
+#define regtail(a,b,c,d)	S_regtail(aTHX_ a,b,c,d)
+#define scan_commit(a,b,c,d)	S_scan_commit(aTHX_ a,b,c,d)
+#define set_ANYOF_arg(a,b,c,d,e,f,g)	S_set_ANYOF_arg(aTHX_ a,b,c,d,e,f,g)
+#define skip_to_be_ignored_text(a,b,c)	S_skip_to_be_ignored_text(aTHX_ a,b,c)
+#define ssc_add_range(a,b,c)	S_ssc_add_range(aTHX_ a,b,c)
+#define ssc_and(a,b,c)		S_ssc_and(aTHX_ a,b,c)
+#define ssc_anything(a)		S_ssc_anything(aTHX_ a)
+#define ssc_clear_locale	S_ssc_clear_locale
+#define ssc_cp_and(a,b)		S_ssc_cp_and(aTHX_ a,b)
+#define ssc_finalize(a,b)	S_ssc_finalize(aTHX_ a,b)
+#define ssc_init(a,b)		S_ssc_init(aTHX_ a,b)
+#define ssc_intersection(a,b,c)	S_ssc_intersection(aTHX_ a,b,c)
+#define ssc_is_anything		S_ssc_is_anything
+#define ssc_is_cp_posixl_init	S_ssc_is_cp_posixl_init
+#define ssc_or(a,b,c)		S_ssc_or(aTHX_ a,b,c)
+#define ssc_union(a,b,c)	S_ssc_union(aTHX_ a,b,c)
+#define study_chunk(a,b,c,d,e,f,g,h,i,j,k)	S_study_chunk(aTHX_ a,b,c,d,e,f,g,h,i,j,k)
+#  endif
+#  if defined(PERL_IN_REGCOMP_C) || defined (PERL_IN_DUMP_C)
+#define _invlist_dump(a,b,c,d)	Perl__invlist_dump(aTHX_ a,b,c,d)
+#  endif
+#  if defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_PERL_C) || defined(PERL_IN_UTF8_C)
+#define _invlistEQ(a,b,c)	Perl__invlistEQ(aTHX_ a,b,c)
+#  endif
+#  if defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_REGEXEC_C)
+#define _load_PL_utf8_foldclosures()	Perl__load_PL_utf8_foldclosures(aTHX)
+#ifndef PERL_IMPLICIT_CONTEXT
+#define re_printf		Perl_re_printf
+#endif
+#define regprop(a,b,c,d,e)	Perl_regprop(aTHX_ a,b,c,d,e)
+#  endif
+#  if defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_REGEXEC_C) || defined(PERL_IN_UTF8_C)
+#define _get_swash_invlist(a)	Perl__get_swash_invlist(aTHX_ a)
+#define _invlist_contains_cp	S__invlist_contains_cp
+#define _invlist_len		S__invlist_len
+#define _invlist_search		Perl__invlist_search
+#define _swash_inversion_hash(a)	Perl__swash_inversion_hash(aTHX_ a)
+#define get_invlist_offset_addr	S_get_invlist_offset_addr
+#define invlist_array		S_invlist_array
+#  endif
+#  if defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_REGEXEC_C) || defined(PERL_IN_UTF8_C) || defined(PERL_IN_TOKE_C)
+#define _core_swash_init(a,b,c,d,e,f,g)	Perl__core_swash_init(aTHX_ a,b,c,d,e,f,g)
+#  endif
+#  if defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_TOKE_C) || defined(PERL_IN_DQUOTE_C)
+#define form_short_octal_warning(a,b)	S_form_short_octal_warning(aTHX_ a,b)
+#define grok_bslash_c(a,b)	Perl_grok_bslash_c(aTHX_ a,b)
+#define grok_bslash_o(a,b,c,d,e,f,g)	Perl_grok_bslash_o(aTHX_ a,b,c,d,e,f,g)
+#define grok_bslash_x(a,b,c,d,e,f,g)	Perl_grok_bslash_x(aTHX_ a,b,c,d,e,f,g)
+#define regcurly		S_regcurly
+#  endif
+#  if defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_UTF8_C)
+#define _add_range_to_invlist(a,b,c)	Perl__add_range_to_invlist(aTHX_ a,b,c)
+#define _invlist_intersection_maybe_complement_2nd(a,b,c,d)	Perl__invlist_intersection_maybe_complement_2nd(aTHX_ a,b,c,d)
+#define _invlist_invert(a)	Perl__invlist_invert(aTHX_ a)
+#define _invlist_populate_swatch	Perl__invlist_populate_swatch
+#define _invlist_union_maybe_complement_2nd(a,b,c,d)	Perl__invlist_union_maybe_complement_2nd(aTHX_ a,b,c,d)
+#define _new_invlist(a)		Perl__new_invlist(aTHX_ a)
+#define _setup_canned_invlist(a,b,c)	Perl__setup_canned_invlist(aTHX_ a,b,c)
+#define _swash_to_invlist(a)	Perl__swash_to_invlist(aTHX_ a)
+#  endif
+#  if defined(PERL_IN_REGEXEC_C)
+#define advance_one_LB(a,b,c)	S_advance_one_LB(aTHX_ a,b,c)
+#define advance_one_SB(a,b,c)	S_advance_one_SB(aTHX_ a,b,c)
+#define advance_one_WB(a,b,c,d)	S_advance_one_WB(aTHX_ a,b,c,d)
+#define backup_one_LB(a,b,c)	S_backup_one_LB(aTHX_ a,b,c)
+#define backup_one_SB(a,b,c)	S_backup_one_SB(aTHX_ a,b,c)
+#define backup_one_WB(a,b,c,d)	S_backup_one_WB(aTHX_ a,b,c,d)
+#define find_byclass(a,b,c,d,e)	S_find_byclass(aTHX_ a,b,c,d,e)
+#define isFOO_lc(a,b)		S_isFOO_lc(aTHX_ a,b)
+#define isFOO_utf8_lc(a,b)	S_isFOO_utf8_lc(aTHX_ a,b)
+#define isGCB			S_isGCB
+#define isLB(a,b,c,d,e,f)	S_isLB(aTHX_ a,b,c,d,e,f)
+#define isSB(a,b,c,d,e,f)	S_isSB(aTHX_ a,b,c,d,e,f)
+#define isWB(a,b,c,d,e,f,g)	S_isWB(aTHX_ a,b,c,d,e,f,g)
+#define reg_check_named_buff_matched	S_reg_check_named_buff_matched
+#define regcppop(a,b)		S_regcppop(aTHX_ a,b)
+#define regcppush(a,b,c)	S_regcppush(aTHX_ a,b,c)
+#define reghop3			S_reghop3
+#define reghop4			S_reghop4
+#define reghopmaybe3		S_reghopmaybe3
+#define reginclass(a,b,c,d,e)	S_reginclass(aTHX_ a,b,c,d,e)
+#define regmatch(a,b,c)		S_regmatch(aTHX_ a,b,c)
+#define regrepeat(a,b,c,d,e,f)	S_regrepeat(aTHX_ a,b,c,d,e,f)
+#define regtry(a,b)		S_regtry(aTHX_ a,b)
+#define to_byte_substr(a)	S_to_byte_substr(aTHX_ a)
+#define to_utf8_substr(a)	S_to_utf8_substr(aTHX_ a)
+#  endif
+#  if defined(PERL_IN_UTF8_C) || defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_REGEXEC_C)
+#define _to_fold_latin1(a,b,c,d)	Perl__to_fold_latin1(aTHX_ a,b,c,d)
+#  endif
+#endif
+#ifdef PERL_CORE
+#define Slab_Alloc(a)		Perl_Slab_Alloc(aTHX_ a)
+#define Slab_Free(a)		Perl_Slab_Free(aTHX_ a)
+#define allocmy(a,b,c)		Perl_allocmy(aTHX_ a,b,c)
+#define amagic_is_enabled(a)	Perl_amagic_is_enabled(aTHX_ a)
+#define apply(a,b,c)		Perl_apply(aTHX_ a,b,c)
+#define av_extend_guts(a,b,c,d,e)	Perl_av_extend_guts(aTHX_ a,b,c,d,e)
+#define bind_match(a,b,c)	Perl_bind_match(aTHX_ a,b,c)
+#define boot_core_PerlIO()	Perl_boot_core_PerlIO(aTHX)
+#define boot_core_UNIVERSAL()	Perl_boot_core_UNIVERSAL(aTHX)
+#define boot_core_mro()		Perl_boot_core_mro(aTHX)
+#define cando(a,b,c)		Perl_cando(aTHX_ a,b,c)
+#define check_utf8_print(a,b)	Perl_check_utf8_print(aTHX_ a,b)
+#define ck_anoncode(a)		Perl_ck_anoncode(aTHX_ a)
+#define ck_backtick(a)		Perl_ck_backtick(aTHX_ a)
+#define ck_bitop(a)		Perl_ck_bitop(aTHX_ a)
+#define ck_cmp(a)		Perl_ck_cmp(aTHX_ a)
+#define ck_concat(a)		Perl_ck_concat(aTHX_ a)
+#define ck_defined(a)		Perl_ck_defined(aTHX_ a)
+#define ck_delete(a)		Perl_ck_delete(aTHX_ a)
+#define ck_each(a)		Perl_ck_each(aTHX_ a)
+#define ck_eof(a)		Perl_ck_eof(aTHX_ a)
+#define ck_eval(a)		Perl_ck_eval(aTHX_ a)
+#define ck_exec(a)		Perl_ck_exec(aTHX_ a)
+#define ck_exists(a)		Perl_ck_exists(aTHX_ a)
+#define ck_ftst(a)		Perl_ck_ftst(aTHX_ a)
+#define ck_fun(a)		Perl_ck_fun(aTHX_ a)
+#define ck_glob(a)		Perl_ck_glob(aTHX_ a)
+#define ck_grep(a)		Perl_ck_grep(aTHX_ a)
+#define ck_index(a)		Perl_ck_index(aTHX_ a)
+#define ck_join(a)		Perl_ck_join(aTHX_ a)
+#define ck_length(a)		Perl_ck_length(aTHX_ a)
+#define ck_lfun(a)		Perl_ck_lfun(aTHX_ a)
+#define ck_listiob(a)		Perl_ck_listiob(aTHX_ a)
+#define ck_match(a)		Perl_ck_match(aTHX_ a)
+#define ck_method(a)		Perl_ck_method(aTHX_ a)
+#define ck_null(a)		Perl_ck_null(aTHX_ a)
+#define ck_open(a)		Perl_ck_open(aTHX_ a)
+#define ck_prototype(a)		Perl_ck_prototype(aTHX_ a)
+#define ck_readline(a)		Perl_ck_readline(aTHX_ a)
+#define ck_refassign(a)		Perl_ck_refassign(aTHX_ a)
+#define ck_repeat(a)		Perl_ck_repeat(aTHX_ a)
+#define ck_require(a)		Perl_ck_require(aTHX_ a)
+#define ck_return(a)		Perl_ck_return(aTHX_ a)
+#define ck_rfun(a)		Perl_ck_rfun(aTHX_ a)
+#define ck_rvconst(a)		Perl_ck_rvconst(aTHX_ a)
+#define ck_sassign(a)		Perl_ck_sassign(aTHX_ a)
+#define ck_select(a)		Perl_ck_select(aTHX_ a)
+#define ck_shift(a)		Perl_ck_shift(aTHX_ a)
+#define ck_smartmatch(a)	Perl_ck_smartmatch(aTHX_ a)
+#define ck_sort(a)		Perl_ck_sort(aTHX_ a)
+#define ck_spair(a)		Perl_ck_spair(aTHX_ a)
+#define ck_split(a)		Perl_ck_split(aTHX_ a)
+#define ck_stringify(a)		Perl_ck_stringify(aTHX_ a)
+#define ck_subr(a)		Perl_ck_subr(aTHX_ a)
+#define ck_substr(a)		Perl_ck_substr(aTHX_ a)
+#define ck_svconst(a)		Perl_ck_svconst(aTHX_ a)
+#define ck_tell(a)		Perl_ck_tell(aTHX_ a)
+#define ck_trunc(a)		Perl_ck_trunc(aTHX_ a)
+#define closest_cop(a,b,c,d)	Perl_closest_cop(aTHX_ a,b,c,d)
+#define core_prototype(a,b,c,d)	Perl_core_prototype(aTHX_ a,b,c,d)
+#define coresub_op(a,b,c)	Perl_coresub_op(aTHX_ a,b,c)
+#define create_eval_scope(a,b)	Perl_create_eval_scope(aTHX_ a,b)
+#define croak_no_mem		Perl_croak_no_mem
+#define croak_popstack		Perl_croak_popstack
+#define custom_op_get_field(a,b)	Perl_custom_op_get_field(aTHX_ a,b)
+#define cv_clone_into(a,b)	Perl_cv_clone_into(aTHX_ a,b)
+#define cv_const_sv_or_av	Perl_cv_const_sv_or_av
+#define cv_forget_slab(a)	Perl_cv_forget_slab(aTHX_ a)
+#define cv_undef_flags(a,b)	Perl_cv_undef_flags(aTHX_ a,b)
+#define cvgv_set(a,b)		Perl_cvgv_set(aTHX_ a,b)
+#define cvstash_set(a,b)	Perl_cvstash_set(aTHX_ a,b)
+#define deb_stack_all()		Perl_deb_stack_all(aTHX)
+#define defelem_target(a,b)	Perl_defelem_target(aTHX_ a,b)
+#define delete_eval_scope()	Perl_delete_eval_scope(aTHX)
+#define die_unwind(a)		Perl_die_unwind(aTHX_ a)
+#define do_aexec5(a,b,c,d,e)	Perl_do_aexec5(aTHX_ a,b,c,d,e)
+#define do_dump_pad(a,b,c,d)	Perl_do_dump_pad(aTHX_ a,b,c,d)
+#define do_eof(a)		Perl_do_eof(aTHX_ a)
+#define do_execfree()		Perl_do_execfree(aTHX)
+#define do_ncmp(a,b)		Perl_do_ncmp(aTHX_ a,b)
+#define do_open6(a,b,c,d,e,f)	Perl_do_open6(aTHX_ a,b,c,d,e,f)
+#define do_open_raw(a,b,c,d,e)	Perl_do_open_raw(aTHX_ a,b,c,d,e)
+#define do_print(a,b)		Perl_do_print(aTHX_ a,b)
+#define do_readline()		Perl_do_readline(aTHX)
+#define do_seek(a,b,c)		Perl_do_seek(aTHX_ a,b,c)
+#define do_sysseek(a,b,c)	Perl_do_sysseek(aTHX_ a,b,c)
+#define do_tell(a)		Perl_do_tell(aTHX_ a)
+#define do_trans(a)		Perl_do_trans(aTHX_ a)
+#define do_vecget(a,b,c)	Perl_do_vecget(aTHX_ a,b,c)
+#define do_vecset(a)		Perl_do_vecset(aTHX_ a)
+#define do_vop(a,b,c,d)		Perl_do_vop(aTHX_ a,b,c,d)
+#define dofile(a,b)		Perl_dofile(aTHX_ a,b)
+#define dump_all_perl(a)	Perl_dump_all_perl(aTHX_ a)
+#define dump_packsubs_perl(a,b)	Perl_dump_packsubs_perl(aTHX_ a,b)
+#define dump_sub_perl(a,b)	Perl_dump_sub_perl(aTHX_ a,b)
+#define finalize_optree(a)	Perl_finalize_optree(aTHX_ a)
+#define find_lexical_cv(a)	Perl_find_lexical_cv(aTHX_ a)
+#define find_runcv_where(a,b,c)	Perl_find_runcv_where(aTHX_ a,b,c)
+#define find_script(a,b,c,d)	Perl_find_script(aTHX_ a,b,c,d)
+#define free_tied_hv_pool()	Perl_free_tied_hv_pool(aTHX)
+#define get_hash_seed(a)	Perl_get_hash_seed(aTHX_ a)
+#define get_no_modify()		Perl_get_no_modify(aTHX)
+#define get_opargs()		Perl_get_opargs(aTHX)
+#define gv_override(a,b)	Perl_gv_override(aTHX_ a,b)
+#define gv_setref(a,b)		Perl_gv_setref(aTHX_ a,b)
+#define gv_try_downgrade(a)	Perl_gv_try_downgrade(aTHX_ a)
+#define hv_ename_add(a,b,c,d)	Perl_hv_ename_add(aTHX_ a,b,c,d)
+#define hv_ename_delete(a,b,c,d)	Perl_hv_ename_delete(aTHX_ a,b,c,d)
+#define init_argv_symbols(a,b)	Perl_init_argv_symbols(aTHX_ a,b)
+#define init_constants()	Perl_init_constants(aTHX)
+#define init_debugger()		Perl_init_debugger(aTHX)
+#define invert(a)		Perl_invert(aTHX_ a)
+#define io_close(a,b,c,d)	Perl_io_close(aTHX_ a,b,c,d)
+#define isinfnansv(a)		Perl_isinfnansv(aTHX_ a)
+#define jmaybe(a)		Perl_jmaybe(aTHX_ a)
+#define keyword(a,b,c)		Perl_keyword(aTHX_ a,b,c)
+#define list(a)			Perl_list(aTHX_ a)
+#define localize(a,b)		Perl_localize(aTHX_ a,b)
+#define magic_clear_all_env(a,b)	Perl_magic_clear_all_env(aTHX_ a,b)
+#define magic_cleararylen_p(a,b)	Perl_magic_cleararylen_p(aTHX_ a,b)
+#define magic_clearenv(a,b)	Perl_magic_clearenv(aTHX_ a,b)
+#define magic_clearhint(a,b)	Perl_magic_clearhint(aTHX_ a,b)
+#define magic_clearhints(a,b)	Perl_magic_clearhints(aTHX_ a,b)
+#define magic_clearisa(a,b)	Perl_magic_clearisa(aTHX_ a,b)
+#define magic_clearpack(a,b)	Perl_magic_clearpack(aTHX_ a,b)
+#define magic_clearsig(a,b)	Perl_magic_clearsig(aTHX_ a,b)
+#define magic_copycallchecker(a,b,c,d,e)	Perl_magic_copycallchecker(aTHX_ a,b,c,d,e)
+#define magic_existspack(a,b)	Perl_magic_existspack(aTHX_ a,b)
+#define magic_freearylen_p(a,b)	Perl_magic_freearylen_p(aTHX_ a,b)
+#define magic_freeovrld(a,b)	Perl_magic_freeovrld(aTHX_ a,b)
+#define magic_get(a,b)		Perl_magic_get(aTHX_ a,b)
+#define magic_getarylen(a,b)	Perl_magic_getarylen(aTHX_ a,b)
+#define magic_getdebugvar(a,b)	Perl_magic_getdebugvar(aTHX_ a,b)
+#define magic_getdefelem(a,b)	Perl_magic_getdefelem(aTHX_ a,b)
+#define magic_getnkeys(a,b)	Perl_magic_getnkeys(aTHX_ a,b)
+#define magic_getpack(a,b)	Perl_magic_getpack(aTHX_ a,b)
+#define magic_getpos(a,b)	Perl_magic_getpos(aTHX_ a,b)
+#define magic_getsig(a,b)	Perl_magic_getsig(aTHX_ a,b)
+#define magic_getsubstr(a,b)	Perl_magic_getsubstr(aTHX_ a,b)
+#define magic_gettaint(a,b)	Perl_magic_gettaint(aTHX_ a,b)
+#define magic_getuvar(a,b)	Perl_magic_getuvar(aTHX_ a,b)
+#define magic_getvec(a,b)	Perl_magic_getvec(aTHX_ a,b)
+#define magic_killbackrefs(a,b)	Perl_magic_killbackrefs(aTHX_ a,b)
+#define magic_nextpack(a,b,c)	Perl_magic_nextpack(aTHX_ a,b,c)
+#define magic_regdata_cnt(a,b)	Perl_magic_regdata_cnt(aTHX_ a,b)
+#define magic_regdatum_get(a,b)	Perl_magic_regdatum_get(aTHX_ a,b)
+#define magic_scalarpack(a,b)	Perl_magic_scalarpack(aTHX_ a,b)
+#define magic_set(a,b)		Perl_magic_set(aTHX_ a,b)
+#define magic_set_all_env(a,b)	Perl_magic_set_all_env(aTHX_ a,b)
+#define magic_setarylen(a,b)	Perl_magic_setarylen(aTHX_ a,b)
+#define magic_setdbline(a,b)	Perl_magic_setdbline(aTHX_ a,b)
+#define magic_setdebugvar(a,b)	Perl_magic_setdebugvar(aTHX_ a,b)
+#define magic_setdefelem(a,b)	Perl_magic_setdefelem(aTHX_ a,b)
+#define magic_setenv(a,b)	Perl_magic_setenv(aTHX_ a,b)
+#define magic_sethint(a,b)	Perl_magic_sethint(aTHX_ a,b)
+#define magic_setisa(a,b)	Perl_magic_setisa(aTHX_ a,b)
+#define magic_setlvref(a,b)	Perl_magic_setlvref(aTHX_ a,b)
+#define magic_setmglob(a,b)	Perl_magic_setmglob(aTHX_ a,b)
+#define magic_setnkeys(a,b)	Perl_magic_setnkeys(aTHX_ a,b)
+#define magic_setpack(a,b)	Perl_magic_setpack(aTHX_ a,b)
+#define magic_setpos(a,b)	Perl_magic_setpos(aTHX_ a,b)
+#define magic_setregexp(a,b)	Perl_magic_setregexp(aTHX_ a,b)
+#define magic_setsig(a,b)	Perl_magic_setsig(aTHX_ a,b)
+#define magic_setsubstr(a,b)	Perl_magic_setsubstr(aTHX_ a,b)
+#define magic_settaint(a,b)	Perl_magic_settaint(aTHX_ a,b)
+#define magic_setutf8(a,b)	Perl_magic_setutf8(aTHX_ a,b)
+#define magic_setuvar(a,b)	Perl_magic_setuvar(aTHX_ a,b)
+#define magic_setvec(a,b)	Perl_magic_setvec(aTHX_ a,b)
+#define magic_sizepack(a,b)	Perl_magic_sizepack(aTHX_ a,b)
+#define magic_wipepack(a,b)	Perl_magic_wipepack(aTHX_ a,b)
+#define mg_localize(a,b,c)	Perl_mg_localize(aTHX_ a,b,c)
+#define mode_from_discipline(a,b)	Perl_mode_from_discipline(aTHX_ a,b)
+#define mro_isa_changed_in(a)	Perl_mro_isa_changed_in(aTHX_ a)
+#define mro_package_moved(a,b,c,d)	Perl_mro_package_moved(aTHX_ a,b,c,d)
+#define my_attrs(a,b)		Perl_my_attrs(aTHX_ a,b)
+#define my_clearenv()		Perl_my_clearenv(aTHX)
+#define my_lstat_flags(a)	Perl_my_lstat_flags(aTHX_ a)
+#define my_stat_flags(a)	Perl_my_stat_flags(aTHX_ a)
+#define my_unexec()		Perl_my_unexec(aTHX)
+#define newATTRSUB_x(a,b,c,d,e,f)	Perl_newATTRSUB_x(aTHX_ a,b,c,d,e,f)
+#define newSTUB(a,b)		Perl_newSTUB(aTHX_ a,b)
+#define newSVavdefelem(a,b,c)	Perl_newSVavdefelem(aTHX_ a,b,c)
+#define newXS_deffile(a,b)	Perl_newXS_deffile(aTHX_ a,b)
+#define newXS_len_flags(a,b,c,d,e,f,g)	Perl_newXS_len_flags(aTHX_ a,b,c,d,e,f,g)
+#define nextargv(a,b)		Perl_nextargv(aTHX_ a,b)
+#define noperl_die		Perl_noperl_die
+#define oopsAV(a)		Perl_oopsAV(aTHX_ a)
+#define oopsHV(a)		Perl_oopsHV(aTHX_ a)
+#define op_unscope(a)		Perl_op_unscope(aTHX_ a)
+#define package(a)		Perl_package(aTHX_ a)
+#define package_version(a)	Perl_package_version(aTHX_ a)
+#define pad_add_weakref(a)	Perl_pad_add_weakref(aTHX_ a)
+#define pad_block_start(a)	Perl_pad_block_start(aTHX_ a)
+#define pad_fixup_inner_anons(a,b,c)	Perl_pad_fixup_inner_anons(aTHX_ a,b,c)
+#define pad_free(a)		Perl_pad_free(aTHX_ a)
+#define pad_leavemy()		Perl_pad_leavemy(aTHX)
+#define pad_push(a,b)		Perl_pad_push(aTHX_ a,b)
+#define pad_swipe(a,b)		Perl_pad_swipe(aTHX_ a,b)
+#define padlist_store(a,b,c)	Perl_padlist_store(aTHX_ a,b,c)
+#define parse_subsignature()	Perl_parse_subsignature(aTHX)
+#define parse_unicode_opts(a)	Perl_parse_unicode_opts(aTHX_ a)
+#define parser_free(a)		Perl_parser_free(aTHX_ a)
+#define peep(a)			Perl_peep(aTHX_ a)
+#define pmruntime(a,b,c,d,e)	Perl_pmruntime(aTHX_ a,b,c,d,e)
+#define re_op_compile(a,b,c,d,e,f,g,h)	Perl_re_op_compile(aTHX_ a,b,c,d,e,f,g,h)
+#define refcounted_he_chain_2hv(a,b)	Perl_refcounted_he_chain_2hv(aTHX_ a,b)
+#define refcounted_he_fetch_pv(a,b,c,d)	Perl_refcounted_he_fetch_pv(aTHX_ a,b,c,d)
+#define refcounted_he_fetch_pvn(a,b,c,d,e)	Perl_refcounted_he_fetch_pvn(aTHX_ a,b,c,d,e)
+#define refcounted_he_fetch_sv(a,b,c,d)	Perl_refcounted_he_fetch_sv(aTHX_ a,b,c,d)
+#define refcounted_he_free(a)	Perl_refcounted_he_free(aTHX_ a)
+#define refcounted_he_inc(a)	Perl_refcounted_he_inc(aTHX_ a)
+#define refcounted_he_new_pv(a,b,c,d,e)	Perl_refcounted_he_new_pv(aTHX_ a,b,c,d,e)
+#define refcounted_he_new_pvn(a,b,c,d,e,f)	Perl_refcounted_he_new_pvn(aTHX_ a,b,c,d,e,f)
+#define refcounted_he_new_sv(a,b,c,d,e)	Perl_refcounted_he_new_sv(aTHX_ a,b,c,d,e)
+#define report_evil_fh(a)	Perl_report_evil_fh(aTHX_ a)
+#define report_wrongway_fh(a,b)	Perl_report_wrongway_fh(aTHX_ a,b)
+#define rpeep(a)		Perl_rpeep(aTHX_ a)
+#define rsignal_restore(a,b)	Perl_rsignal_restore(aTHX_ a,b)
+#define rsignal_save(a,b,c)	Perl_rsignal_save(aTHX_ a,b,c)
+#define rxres_save(a,b)		Perl_rxres_save(aTHX_ a,b)
+#define save_strlen(a)		Perl_save_strlen(aTHX_ a)
+#define sawparens(a)		Perl_sawparens(aTHX_ a)
+#define scalar(a)		Perl_scalar(aTHX_ a)
+#define scalarvoid(a)		Perl_scalarvoid(aTHX_ a)
+#define set_caret_X()		Perl_set_caret_X(aTHX)
+#define sub_crush_depth(a)	Perl_sub_crush_depth(aTHX_ a)
+#define sv_2num(a)		Perl_sv_2num(aTHX_ a)
+#define sv_clean_all()		Perl_sv_clean_all(aTHX)
+#define sv_clean_objs()		Perl_sv_clean_objs(aTHX)
+#define sv_del_backref(a,b)	Perl_sv_del_backref(aTHX_ a,b)
+#define sv_free_arenas()	Perl_sv_free_arenas(aTHX)
+#define sv_len_utf8_nomg(a)	Perl_sv_len_utf8_nomg(aTHX_ a)
+#define sv_mortalcopy_flags(a,b)	Perl_sv_mortalcopy_flags(aTHX_ a,b)
+#define sv_resetpvn(a,b,c)	Perl_sv_resetpvn(aTHX_ a,b,c)
+#define sv_sethek(a,b)		Perl_sv_sethek(aTHX_ a,b)
+#ifndef PERL_IMPLICIT_CONTEXT
+#define tied_method		Perl_tied_method
+#endif
+#define tmps_grow_p(a)		Perl_tmps_grow_p(aTHX_ a)
+#define unshare_hek(a)		Perl_unshare_hek(aTHX_ a)
+#define utilize(a,b,c,d,e)	Perl_utilize(aTHX_ a,b,c,d,e)
+#define vivify_ref(a,b)		Perl_vivify_ref(aTHX_ a,b)
+#define wait4pid(a,b,c)		Perl_wait4pid(aTHX_ a,b,c)
+#define watch(a)		Perl_watch(aTHX_ a)
+#define write_to_stderr(a)	Perl_write_to_stderr(aTHX_ a)
+#define xs_boot_epilog(a)	Perl_xs_boot_epilog(aTHX_ a)
+#define yyerror(a)		Perl_yyerror(aTHX_ a)
+#define yyerror_pv(a,b)		Perl_yyerror_pv(aTHX_ a,b)
+#define yyerror_pvn(a,b,c)	Perl_yyerror_pvn(aTHX_ a,b,c)
+#define yyparse(a)		Perl_yyparse(aTHX_ a)
+#define yyunlex()		Perl_yyunlex(aTHX)
+#  if !(defined(DEBUGGING))
+#    if !defined(NV_PRESERVES_UV)
+#      if defined(PERL_IN_SV_C)
+#define sv_2iuv_non_preserve(a)	S_sv_2iuv_non_preserve(aTHX_ a)
+#      endif
+#    endif
+#  endif
+#  if !(defined(HAS_SIGACTION) && defined(SA_SIGINFO))
+#define sighandler		Perl_sighandler
+#  endif
+#  if !(defined(PERL_DEFAULT_DO_EXEC3_IMPLEMENTATION))
+#define do_exec(a)		Perl_do_exec(aTHX_ a)
+#  endif
+#  if !(defined(_MSC_VER))
+#define magic_regdatum_set(a,b)	Perl_magic_regdatum_set(aTHX_ a,b)
+#  endif
+#  if !defined(HAS_GETENV_LEN)
+#define getenv_len(a,b)		Perl_getenv_len(aTHX_ a,b)
+#  endif
+#  if !defined(HAS_MKDIR) || !defined(HAS_RMDIR)
+#    if defined(PERL_IN_PP_SYS_C)
+#define dooneliner(a,b)		S_dooneliner(aTHX_ a,b)
+#    endif
+#  endif
+#  if !defined(HAS_RENAME)
+#define same_dirent(a,b)	Perl_same_dirent(aTHX_ a,b)
+#  endif
+#  if !defined(NV_PRESERVES_UV)
+#    if defined(DEBUGGING)
+#      if defined(PERL_IN_SV_C)
+#define sv_2iuv_non_preserve(a,b)	S_sv_2iuv_non_preserve(aTHX_ a,b)
+#      endif
+#    endif
+#  endif
+#  if !defined(PERL_DISABLE_PMC)
+#    if defined(PERL_IN_PP_CTL_C)
+#define doopen_pm(a)		S_doopen_pm(aTHX_ a)
+#    endif
+#  endif
+#  if !defined(PERL_IS_MINIPERL)
+#    if defined(PERL_IN_PERL_C)
+#define incpush_if_exists(a,b,c)	S_incpush_if_exists(aTHX_ a,b,c)
+#    endif
+#  endif
+#  if !defined(PERL_NO_UTF16_FILTER)
+#    if defined(PERL_IN_TOKE_C)
+#define add_utf16_textfilter(a,b)	S_add_utf16_textfilter(aTHX_ a,b)
+#define utf16_textfilter(a,b,c)	S_utf16_textfilter(aTHX_ a,b,c)
+#    endif
+#  endif
+#  if !defined(USE_QUADMATH)
+#    if defined(PERL_IN_NUMERIC_C)
+#define mulexp10		S_mulexp10
+#    endif
+#  endif
+#  if !defined(WIN32)
+#define do_exec3(a,b,c)		Perl_do_exec3(aTHX_ a,b,c)
+#  endif
+#  if defined(DEBUGGING)
+#define get_debug_opts(a,b)	Perl_get_debug_opts(aTHX_ a,b)
+#define set_padlist		Perl_set_padlist
+#    if defined(PERL_IN_PAD_C)
+#define cv_dump(a,b)		S_cv_dump(aTHX_ a,b)
+#    endif
+#    if defined(PERL_IN_SV_C)
+#define del_sv(a)		S_del_sv(aTHX_ a)
+#    endif
+#    if defined(PERL_IN_TOKE_C)
+#define printbuf(a,b)		S_printbuf(aTHX_ a,b)
+#define tokereport(a,b)		S_tokereport(aTHX_ a,b)
+#    endif
+#  endif
+#  if defined(DEBUG_LEAKING_SCALARS_FORK_DUMP)
+#define dump_sv_child(a)	Perl_dump_sv_child(aTHX_ a)
+#  endif
+#  if defined(HAS_MSG) || defined(HAS_SEM) || defined(HAS_SHM)
+#define do_ipcctl(a,b,c)	Perl_do_ipcctl(aTHX_ a,b,c)
+#define do_ipcget(a,b,c)	Perl_do_ipcget(aTHX_ a,b,c)
+#define do_msgrcv(a,b)		Perl_do_msgrcv(aTHX_ a,b)
+#define do_msgsnd(a,b)		Perl_do_msgsnd(aTHX_ a,b)
+#define do_semop(a,b)		Perl_do_semop(aTHX_ a,b)
+#define do_shmio(a,b,c)		Perl_do_shmio(aTHX_ a,b,c)
+#  endif
+#  if defined(HAS_SIGACTION) && defined(SA_SIGINFO)
+#define sighandler		Perl_sighandler
+#  endif
+#  if defined(MYMALLOC)
+#define malloc_good_size	Perl_malloc_good_size
+#define malloced_size		Perl_malloced_size
+#  endif
+#  if defined(PERL_CORE)
+#define opslab_force_free(a)	Perl_opslab_force_free(aTHX_ a)
+#define opslab_free(a)		Perl_opslab_free(aTHX_ a)
+#define opslab_free_nopad(a)	Perl_opslab_free_nopad(aTHX_ a)
+#define parser_free_nexttoke_ops(a,b)	Perl_parser_free_nexttoke_ops(aTHX_ a,b)
+#define should_warn_nl		S_should_warn_nl
+#    if defined(PERL_DEBUG_READONLY_OPS)
+#define Slab_to_ro(a)		Perl_Slab_to_ro(aTHX_ a)
+#define Slab_to_rw(a)		Perl_Slab_to_rw(aTHX_ a)
+#    endif
+#  endif
+#  if defined(PERL_CR_FILTER)
+#    if defined(PERL_IN_TOKE_C)
+#define cr_textfilter(a,b,c)	S_cr_textfilter(aTHX_ a,b,c)
+#define strip_return(a)		S_strip_return(aTHX_ a)
+#    endif
+#  endif
+#  if defined(PERL_DEBUG_READONLY_COW)
+#define sv_buf_to_ro(a)		Perl_sv_buf_to_ro(aTHX_ a)
+#    if defined(PERL_IN_SV_C)
+#define sv_buf_to_rw(a)		S_sv_buf_to_rw(aTHX_ a)
+#    endif
+#  endif
+#  if defined(PERL_IN_AV_C)
+#define get_aux_mg(a)		S_get_aux_mg(aTHX_ a)
+#  endif
+#  if defined(PERL_IN_DEB_C)
+#define deb_stack_n(a,b,c,d,e)	S_deb_stack_n(aTHX_ a,b,c,d,e)
+#  endif
+#  if defined(PERL_IN_DOIO_C)
+#define exec_failed(a,b,c)	S_exec_failed(aTHX_ a,b,c)
+#define ingroup(a,b)		S_ingroup(aTHX_ a,b)
+#define openn_cleanup(a,b,c,d,e,f,g,h,i,j,k,l)	S_openn_cleanup(aTHX_ a,b,c,d,e,f,g,h,i,j,k,l)
+#define openn_setup(a,b,c,d,e,f)	S_openn_setup(aTHX_ a,b,c,d,e,f)
+#  endif
+#  if defined(PERL_IN_DOOP_C)
+#define do_trans_complex(a)	S_do_trans_complex(aTHX_ a)
+#define do_trans_complex_utf8(a)	S_do_trans_complex_utf8(aTHX_ a)
+#define do_trans_count(a)	S_do_trans_count(aTHX_ a)
+#define do_trans_count_utf8(a)	S_do_trans_count_utf8(aTHX_ a)
+#define do_trans_simple(a)	S_do_trans_simple(aTHX_ a)
+#define do_trans_simple_utf8(a)	S_do_trans_simple_utf8(aTHX_ a)
+#  endif
+#  if defined(PERL_IN_DUMP_C)
+#define deb_curcv(a)		S_deb_curcv(aTHX_ a)
+#define debprof(a)		S_debprof(aTHX_ a)
+#define pm_description(a)	S_pm_description(aTHX_ a)
+#define sequence_num(a)		S_sequence_num(aTHX_ a)
+#  endif
+#  if defined(PERL_IN_GV_C)
+#define find_default_stash(a,b,c,d,e,f)	S_find_default_stash(aTHX_ a,b,c,d,e,f)
+#define gv_fetchmeth_internal(a,b,c,d,e,f)	S_gv_fetchmeth_internal(aTHX_ a,b,c,d,e,f)
+#define gv_init_svtype(a,b)	S_gv_init_svtype(aTHX_ a,b)
+#define gv_is_in_main(a,b,c)	S_gv_is_in_main(aTHX_ a,b,c)
+#define gv_magicalize(a,b,c,d,e,f)	S_gv_magicalize(aTHX_ a,b,c,d,e,f)
+#define gv_magicalize_isa(a)	S_gv_magicalize_isa(aTHX_ a)
+#define gv_stashpvn_internal(a,b,c)	S_gv_stashpvn_internal(aTHX_ a,b,c)
+#define gv_stashsvpvn_cached(a,b,c,d)	S_gv_stashsvpvn_cached(aTHX_ a,b,c,d)
+#define maybe_multimagic_gv(a,b,c)	S_maybe_multimagic_gv(aTHX_ a,b,c)
+#define parse_gv_stash_name(a,b,c,d,e,f,g,h)	S_parse_gv_stash_name(aTHX_ a,b,c,d,e,f,g,h)
+#define require_tie_mod(a,b,c,d,e)	S_require_tie_mod(aTHX_ a,b,c,d,e)
+#  endif
+#  if defined(PERL_IN_HV_C)
+#define clear_placeholders(a,b)	S_clear_placeholders(aTHX_ a,b)
+#define hfreeentries(a)		S_hfreeentries(aTHX_ a)
+#define hsplit(a,b,c)		S_hsplit(aTHX_ a,b,c)
+#define hv_auxinit(a)		S_hv_auxinit(aTHX_ a)
+#define hv_auxinit_internal	S_hv_auxinit_internal
+#define hv_delete_common(a,b,c,d,e,f,g)	S_hv_delete_common(aTHX_ a,b,c,d,e,f,g)
+#define hv_free_ent_ret(a,b)	S_hv_free_ent_ret(aTHX_ a,b)
+#define hv_magic_check		S_hv_magic_check
+#define hv_notallowed(a,b,c,d)	S_hv_notallowed(aTHX_ a,b,c,d)
+#define new_he()		S_new_he(aTHX)
+#define ptr_hash		S_ptr_hash
+#define refcounted_he_value(a)	S_refcounted_he_value(aTHX_ a)
+#define save_hek_flags		S_save_hek_flags
+#define share_hek_flags(a,b,c,d)	S_share_hek_flags(aTHX_ a,b,c,d)
+#define unshare_hek_or_pvn(a,b,c,d)	S_unshare_hek_or_pvn(aTHX_ a,b,c,d)
+#  endif
+#  if defined(PERL_IN_MALLOC_C)
+#define adjust_size_and_find_bucket	S_adjust_size_and_find_bucket
+#  endif
+#  if defined(PERL_IN_MG_C)
+#define fixup_errno_string(a)	S_fixup_errno_string(aTHX_ a)
+#define magic_methcall1(a,b,c,d,e,f)	S_magic_methcall1(aTHX_ a,b,c,d,e,f)
+#define magic_methpack(a,b,c)	S_magic_methpack(aTHX_ a,b,c)
+#define restore_magic(a)	S_restore_magic(aTHX_ a)
+#define save_magic_flags(a,b,c)	S_save_magic_flags(aTHX_ a,b,c)
+#define unwind_handler_stack(a)	S_unwind_handler_stack(aTHX_ a)
+#  endif
+#  if defined(PERL_IN_MG_C) || defined(PERL_IN_PP_C)
+#define translate_substr_offsets	Perl_translate_substr_offsets
+#  endif
+#  if defined(PERL_IN_MRO_C)
+#define mro_clean_isarev(a,b,c,d,e,f)	S_mro_clean_isarev(aTHX_ a,b,c,d,e,f)
+#define mro_gather_and_rename(a,b,c,d,e)	S_mro_gather_and_rename(aTHX_ a,b,c,d,e)
+#define mro_get_linear_isa_dfs(a,b)	S_mro_get_linear_isa_dfs(aTHX_ a,b)
+#  endif
+#  if defined(PERL_IN_OP_C)
+#define apply_attrs(a,b,c)	S_apply_attrs(aTHX_ a,b,c)
+#define apply_attrs_my(a,b,c,d)	S_apply_attrs_my(aTHX_ a,b,c,d)
+#define assignment_type(a)	S_assignment_type(aTHX_ a)
+#define bad_type_gv(a,b,c,d)	S_bad_type_gv(aTHX_ a,b,c,d)
+#define bad_type_pv(a,b,c,d)	S_bad_type_pv(aTHX_ a,b,c,d)
+#define clear_special_blocks(a,b,c)	S_clear_special_blocks(aTHX_ a,b,c)
+#define cop_free(a)		S_cop_free(aTHX_ a)
+#define dup_attrlist(a)		S_dup_attrlist(aTHX_ a)
+#define finalize_op(a)		S_finalize_op(aTHX_ a)
+#define find_and_forget_pmops(a)	S_find_and_forget_pmops(aTHX_ a)
+#define fold_constants(a)	S_fold_constants(aTHX_ a)
+#define force_list(a,b)		S_force_list(aTHX_ a,b)
+#define forget_pmop(a)		S_forget_pmop(aTHX_ a)
+#define gen_constant_list(a)	S_gen_constant_list(aTHX_ a)
+#define inplace_aassign(a)	S_inplace_aassign(aTHX_ a)
+#define is_handle_constructor	S_is_handle_constructor
+#define listkids(a)		S_listkids(aTHX_ a)
+#define looks_like_bool(a)	S_looks_like_bool(aTHX_ a)
+#define modkids(a,b)		S_modkids(aTHX_ a,b)
+#define move_proto_attr(a,b,c)	S_move_proto_attr(aTHX_ a,b,c)
+#define my_kid(a,b,c)		S_my_kid(aTHX_ a,b,c)
+#define newGIVWHENOP(a,b,c,d,e)	S_newGIVWHENOP(aTHX_ a,b,c,d,e)
+#define newMETHOP_internal(a,b,c,d)	S_newMETHOP_internal(aTHX_ a,b,c,d)
+#define new_logop(a,b,c,d)	S_new_logop(aTHX_ a,b,c,d)
+#define no_bareword_allowed(a)	S_no_bareword_allowed(aTHX_ a)
+#define no_fh_allowed(a)	S_no_fh_allowed(aTHX_ a)
+#define op_integerize(a)	S_op_integerize(aTHX_ a)
+#define op_std_init(a)		S_op_std_init(aTHX_ a)
+#define pmtrans(a,b,c)		S_pmtrans(aTHX_ a,b,c)
+#define process_special_blocks(a,b,c,d)	S_process_special_blocks(aTHX_ a,b,c,d)
+#define ref_array_or_hash(a)	S_ref_array_or_hash(aTHX_ a)
+#define refkids(a,b)		S_refkids(aTHX_ a,b)
+#define scalar_mod_type		S_scalar_mod_type
+#define scalarboolean(a)	S_scalarboolean(aTHX_ a)
+#define scalarkids(a)		S_scalarkids(aTHX_ a)
+#define scalarseq(a)		S_scalarseq(aTHX_ a)
+#define search_const(a)		S_search_const(aTHX_ a)
+#define simplify_sort(a)	S_simplify_sort(aTHX_ a)
+#define too_few_arguments_pv(a,b,c)	S_too_few_arguments_pv(aTHX_ a,b,c)
+#define too_many_arguments_pv(a,b,c)	S_too_many_arguments_pv(aTHX_ a,b,c)
+#    if defined(USE_ITHREADS)
+#define op_relocate_sv(a,b)	S_op_relocate_sv(aTHX_ a,b)
+#    endif
+#  endif
+#  if defined(PERL_IN_OP_C) || defined(PERL_IN_SV_C)
+#define report_redefined_cv(a,b,c)	Perl_report_redefined_cv(aTHX_ a,b,c)
+#  endif
+#  if defined(PERL_IN_PAD_C)
+#define pad_alloc_name(a,b,c,d)	S_pad_alloc_name(aTHX_ a,b,c,d)
+#define pad_check_dup(a,b,c)	S_pad_check_dup(aTHX_ a,b,c)
+#define pad_findlex(a,b,c,d,e,f,g,h,i)	S_pad_findlex(aTHX_ a,b,c,d,e,f,g,h,i)
+#define pad_reset()		S_pad_reset(aTHX)
+#  endif
+#  if defined(PERL_IN_PERL_C)
+#define find_beginning(a,b)	S_find_beginning(aTHX_ a,b)
+#define forbid_setid(a,b)	S_forbid_setid(aTHX_ a,b)
+#define incpush(a,b,c)		S_incpush(aTHX_ a,b,c)
+#define incpush_use_sep(a,b,c)	S_incpush_use_sep(aTHX_ a,b,c)
+#define init_ids()		S_init_ids(aTHX)
+#define init_interp()		S_init_interp(aTHX)
+#define init_main_stash()	S_init_main_stash(aTHX)
+#define init_perllib()		S_init_perllib(aTHX)
+#define init_postdump_symbols(a,b,c)	S_init_postdump_symbols(aTHX_ a,b,c)
+#define init_predump_symbols()	S_init_predump_symbols(aTHX)
+#define mayberelocate(a,b,c)	S_mayberelocate(aTHX_ a,b,c)
+#define minus_v()		S_minus_v(aTHX)
+#define my_exit_jump()		S_my_exit_jump(aTHX)
+#define nuke_stacks()		S_nuke_stacks(aTHX)
+#define open_script(a,b,c)	S_open_script(aTHX_ a,b,c)
+#define parse_body(a,b)		S_parse_body(aTHX_ a,b)
+#define run_body(a)		S_run_body(aTHX_ a)
+#define usage()			S_usage(aTHX)
+#  endif
+#  if defined(PERL_IN_PP_C)
+#define do_chomp(a,b,c)		S_do_chomp(aTHX_ a,b,c)
+#define do_delete_local()	S_do_delete_local(aTHX)
+#define refto(a)		S_refto(aTHX_ a)
+#  endif
+#  if defined(PERL_IN_PP_CTL_C)
+#define check_type_and_open(a)	S_check_type_and_open(aTHX_ a)
+#define destroy_matcher(a)	S_destroy_matcher(aTHX_ a)
+#define do_smartmatch(a,b,c)	S_do_smartmatch(aTHX_ a,b,c)
+#define docatch(a)		S_docatch(aTHX_ a)
+#define doeval_compile(a,b,c,d)	S_doeval_compile(aTHX_ a,b,c,d)
+#define dofindlabel(a,b,c,d,e,f)	S_dofindlabel(aTHX_ a,b,c,d,e,f)
+#define doparseform(a)		S_doparseform(aTHX_ a)
+#define dopoptoeval(a)		S_dopoptoeval(aTHX_ a)
+#define dopoptogivenfor(a)	S_dopoptogivenfor(aTHX_ a)
+#define dopoptolabel(a,b,c)	S_dopoptolabel(aTHX_ a,b,c)
+#define dopoptoloop(a)		S_dopoptoloop(aTHX_ a)
+#define dopoptosub_at(a,b)	S_dopoptosub_at(aTHX_ a,b)
+#define dopoptowhen(a)		S_dopoptowhen(aTHX_ a)
+#define make_matcher(a)		S_make_matcher(aTHX_ a)
+#define matcher_matches_sv(a,b)	S_matcher_matches_sv(aTHX_ a,b)
+#define num_overflow		S_num_overflow
+#define path_is_searchable	S_path_is_searchable
+#define run_user_filter(a,b,c)	S_run_user_filter(aTHX_ a,b,c)
+#define rxres_free(a)		S_rxres_free(aTHX_ a)
+#define rxres_restore(a,b)	S_rxres_restore(aTHX_ a,b)
+#define save_lines(a,b)		S_save_lines(aTHX_ a,b)
+#  endif
+#  if defined(PERL_IN_PP_HOT_C)
+#define do_oddball(a,b)		S_do_oddball(aTHX_ a,b)
+#define opmethod_stash(a)	S_opmethod_stash(aTHX_ a)
+#  endif
+#  if defined(PERL_IN_PP_PACK_C)
+#define div128(a,b)		S_div128(aTHX_ a,b)
+#define first_symbol		S_first_symbol
+#define get_num(a,b)		S_get_num(aTHX_ a,b)
+#define group_end(a,b,c)	S_group_end(aTHX_ a,b,c)
+#define is_an_int(a,b)		S_is_an_int(aTHX_ a,b)
+#define measure_struct(a)	S_measure_struct(aTHX_ a)
+#define mul128(a,b)		S_mul128(aTHX_ a,b)
+#define my_bytes_to_utf8	S_my_bytes_to_utf8
+#define need_utf8		S_need_utf8
+#define next_symbol(a)		S_next_symbol(aTHX_ a)
+#define pack_rec(a,b,c,d)	S_pack_rec(aTHX_ a,b,c,d)
+#define sv_exp_grow(a,b)	S_sv_exp_grow(aTHX_ a,b)
+#define unpack_rec(a,b,c,d,e)	S_unpack_rec(aTHX_ a,b,c,d,e)
+#  endif
+#  if defined(PERL_IN_PP_SORT_C)
+#define amagic_cmp(a,b)		S_amagic_cmp(aTHX_ a,b)
+#define amagic_i_ncmp(a,b)	S_amagic_i_ncmp(aTHX_ a,b)
+#define amagic_ncmp(a,b)	S_amagic_ncmp(aTHX_ a,b)
+#define qsortsvu(a,b,c)		S_qsortsvu(aTHX_ a,b,c)
+#define sortcv(a,b)		S_sortcv(aTHX_ a,b)
+#define sortcv_stacked(a,b)	S_sortcv_stacked(aTHX_ a,b)
+#define sortcv_xsub(a,b)	S_sortcv_xsub(aTHX_ a,b)
+#define sv_i_ncmp(a,b)		S_sv_i_ncmp(aTHX_ a,b)
+#define sv_ncmp(a,b)		S_sv_ncmp(aTHX_ a,b)
+#    if defined(USE_LOCALE_COLLATE)
+#define amagic_cmp_locale(a,b)	S_amagic_cmp_locale(aTHX_ a,b)
+#    endif
+#  endif
+#  if defined(PERL_IN_PP_SYS_C)
+#define doform(a,b,c)		S_doform(aTHX_ a,b,c)
+#define space_join_names_mortal(a)	S_space_join_names_mortal(aTHX_ a)
+#  endif
+#  if defined(PERL_IN_SCOPE_C)
+#define save_pushptri32ptr(a,b,c,d)	S_save_pushptri32ptr(aTHX_ a,b,c,d)
+#define save_scalar_at(a,b)	S_save_scalar_at(aTHX_ a,b)
+#  endif
+#  if defined(PERL_IN_SV_C)
+#define F0convert		S_F0convert
+#define anonymise_cv_maybe(a,b)	S_anonymise_cv_maybe(aTHX_ a,b)
+#define assert_uft8_cache_coherent(a,b,c,d)	S_assert_uft8_cache_coherent(aTHX_ a,b,c,d)
+#define curse(a,b)		S_curse(aTHX_ a,b)
+#define expect_number(a)	S_expect_number(aTHX_ a)
+#define find_array_subscript(a,b)	S_find_array_subscript(aTHX_ a,b)
+#define find_hash_subscript(a,b)	S_find_hash_subscript(aTHX_ a,b)
+#define find_uninit_var(a,b,c,d)	S_find_uninit_var(aTHX_ a,b,c,d)
+#define glob_2number(a)		S_glob_2number(aTHX_ a)
+#define glob_assign_glob(a,b,c)	S_glob_assign_glob(aTHX_ a,b,c)
+#define more_sv()		S_more_sv(aTHX)
+#define not_a_number(a)		S_not_a_number(aTHX_ a)
+#define not_incrementable(a)	S_not_incrementable(aTHX_ a)
+#define ptr_table_find		S_ptr_table_find
+#define sv_2iuv_common(a)	S_sv_2iuv_common(aTHX_ a)
+#define sv_add_arena(a,b,c)	S_sv_add_arena(aTHX_ a,b,c)
+#define sv_display(a,b,c)	S_sv_display(aTHX_ a,b,c)
+#define sv_pos_b2u_midway(a,b,c,d)	S_sv_pos_b2u_midway(aTHX_ a,b,c,d)
+#define sv_pos_u2b_cached(a,b,c,d,e,f,g)	S_sv_pos_u2b_cached(aTHX_ a,b,c,d,e,f,g)
+#define sv_pos_u2b_forwards	S_sv_pos_u2b_forwards
+#define sv_pos_u2b_midway	S_sv_pos_u2b_midway
+#define sv_unglob(a,b)		S_sv_unglob(aTHX_ a,b)
+#define uiv_2buf		S_uiv_2buf
+#define utf8_mg_len_cache_update(a,b,c)	S_utf8_mg_len_cache_update(aTHX_ a,b,c)
+#define utf8_mg_pos_cache_update(a,b,c,d,e)	S_utf8_mg_pos_cache_update(aTHX_ a,b,c,d,e)
+#define visit(a,b,c)		S_visit(aTHX_ a,b,c)
+#    if defined(USE_ITHREADS)
+#define sv_dup_common(a,b)	S_sv_dup_common(aTHX_ a,b)
+#define sv_dup_inc_multiple(a,b,c,d)	S_sv_dup_inc_multiple(aTHX_ a,b,c,d)
+#define unreferenced_to_tmp_stack(a)	S_unreferenced_to_tmp_stack(aTHX_ a)
+#    endif
+#  endif
+#  if defined(PERL_IN_SV_C) || defined (PERL_IN_OP_C)
+#define varname(a,b,c,d,e,f)	Perl_varname(aTHX_ a,b,c,d,e,f)
+#  endif
+#  if defined(PERL_IN_TOKE_C)
+#define ao(a)			S_ao(aTHX_ a)
+#define check_uni()		S_check_uni(aTHX)
+#define checkcomma(a,b,c)	S_checkcomma(aTHX_ a,b,c)
+#define deprecate_commaless_var_list()	S_deprecate_commaless_var_list(aTHX)
+#define filter_gets(a,b)	S_filter_gets(aTHX_ a,b)
+#define find_in_my_stash(a,b)	S_find_in_my_stash(aTHX_ a,b)
+#define force_ident(a,b)	S_force_ident(aTHX_ a,b)
+#define force_ident_maybe_lex(a)	S_force_ident_maybe_lex(aTHX_ a)
+#define force_next(a)		S_force_next(aTHX_ a)
+#define force_strict_version(a)	S_force_strict_version(aTHX_ a)
+#define force_version(a,b)	S_force_version(aTHX_ a,b)
+#define force_word(a,b,c,d)	S_force_word(aTHX_ a,b,c,d)
+#define get_and_check_backslash_N_name(a,b)	S_get_and_check_backslash_N_name(aTHX_ a,b)
+#define incline(a)		S_incline(aTHX_ a)
+#define intuit_method(a,b,c)	S_intuit_method(aTHX_ a,b,c)
+#define intuit_more(a)		S_intuit_more(aTHX_ a)
+#define lop(a,b,c)		S_lop(aTHX_ a,b,c)
+#define missingterm(a)		S_missingterm(aTHX_ a)
+#define no_op(a,b)		S_no_op(aTHX_ a,b)
+#define parse_ident(a,b,c,d,e)	S_parse_ident(aTHX_ a,b,c,d,e)
+#define pending_ident()		S_pending_ident(aTHX)
+#define scan_const(a)		S_scan_const(aTHX_ a)
+#define scan_formline(a)	S_scan_formline(aTHX_ a)
+#define scan_heredoc(a)		S_scan_heredoc(aTHX_ a)
+#define scan_ident(a,b,c,d)	S_scan_ident(aTHX_ a,b,c,d)
+#define scan_inputsymbol(a)	S_scan_inputsymbol(aTHX_ a)
+#define scan_pat(a,b)		S_scan_pat(aTHX_ a,b)
+#define scan_str(a,b,c,d,e)	S_scan_str(aTHX_ a,b,c,d,e)
+#define scan_subst(a)		S_scan_subst(aTHX_ a)
+#define scan_trans(a)		S_scan_trans(aTHX_ a)
+#define scan_word(a,b,c,d,e)	S_scan_word(aTHX_ a,b,c,d,e)
+#define skipspace_flags(a,b)	S_skipspace_flags(aTHX_ a,b)
+#define sublex_done()		S_sublex_done(aTHX)
+#define sublex_push()		S_sublex_push(aTHX)
+#define sublex_start()		S_sublex_start(aTHX)
+#define swallow_bom(a)		S_swallow_bom(aTHX_ a)
+#define tokenize_use(a,b)	S_tokenize_use(aTHX_ a,b)
+#define tokeq(a)		S_tokeq(aTHX_ a)
+#define update_debugger_info(a,b,c)	S_update_debugger_info(aTHX_ a,b,c)
+#define yywarn(a,b)		S_yywarn(aTHX_ a,b)
+#  endif
+#  if defined(PERL_IN_UNIVERSAL_C)
+#define isa_lookup(a,b,c,d)	S_isa_lookup(aTHX_ a,b,c,d)
+#  endif
+#  if defined(PERL_IN_UTF8_C)
+#define _to_utf8_case(a,b,c,d,e,f,g)	S__to_utf8_case(aTHX_ a,b,c,d,e,f,g)
+#define check_locale_boundary_crossing(a,b,c,d)	S_check_locale_boundary_crossing(aTHX_ a,b,c,d)
+#define is_utf8_common(a,b,c,d)	S_is_utf8_common(aTHX_ a,b,c,d)
+#define swash_scan_list_line(a,b,c,d,e,f,g)	S_swash_scan_list_line(aTHX_ a,b,c,d,e,f,g)
+#define swatch_get(a,b,c)	S_swatch_get(aTHX_ a,b,c)
+#define to_lower_latin1		S_to_lower_latin1
+#  endif
+#  if defined(PERL_IN_UTF8_C) || defined(PERL_IN_PP_C)
+#define _to_upper_title_latin1(a,b,c,d)	Perl__to_upper_title_latin1(aTHX_ a,b,c,d)
+#  endif
+#  if defined(PERL_IN_UTIL_C)
+#define ckwarn_common(a)	S_ckwarn_common(aTHX_ a)
+#define invoke_exception_hook(a,b)	S_invoke_exception_hook(aTHX_ a,b)
+#define mess_alloc()		S_mess_alloc(aTHX)
+#define with_queued_errors(a)	S_with_queued_errors(aTHX_ a)
+#    if defined(PERL_MEM_LOG) && !defined(PERL_MEM_LOG_NOIMPL)
+#define mem_log_common		S_mem_log_common
+#    endif
+#  endif
+#  if defined(PERL_MEM_LOG)
+#define mem_log_alloc		Perl_mem_log_alloc
+#define mem_log_free		Perl_mem_log_free
+#define mem_log_realloc		Perl_mem_log_realloc
+#  endif
+#  if defined(PERL_USES_PL_PIDSTATUS) && defined(PERL_IN_UTIL_C)
+#define pidgone(a,b)		S_pidgone(aTHX_ a,b)
+#  endif
+#  if defined(USE_C_BACKTRACE)
+#define get_c_backtrace(a,b)	Perl_get_c_backtrace(aTHX_ a,b)
+#  endif
+#  if defined(USE_ITHREADS)
+#define mro_meta_dup(a,b)	Perl_mro_meta_dup(aTHX_ a,b)
+#define padlist_dup(a,b)	Perl_padlist_dup(aTHX_ a,b)
+#define padname_dup(a,b)	Perl_padname_dup(aTHX_ a,b)
+#define padnamelist_dup(a,b)	Perl_padnamelist_dup(aTHX_ a,b)
+#  endif
+#  if defined(USE_LOCALE) && defined(PERL_IN_LOCALE_C)
+#define stdize_locale(a)	S_stdize_locale(aTHX_ a)
+#  endif
+#  if defined(USE_LOCALE_COLLATE)
+#define magic_setcollxfrm(a,b)	Perl_magic_setcollxfrm(aTHX_ a,b)
+#define mem_collxfrm(a,b,c)	Perl_mem_collxfrm(aTHX_ a,b,c)
+#  endif
+#  if defined(USE_PERLIO)
+#define PerlIO_restore_errno(a)	Perl_PerlIO_restore_errno(aTHX_ a)
+#define PerlIO_save_errno(a)	Perl_PerlIO_save_errno(aTHX_ a)
+#  endif
+#  if defined(_MSC_VER)
+#define magic_regdatum_set(a,b)	Perl_magic_regdatum_set(aTHX_ a,b)
+#  endif
+#endif
+
+#endif	/* #ifndef PERL_NO_SHORT_NAMES */
+
+/* Compatibility stubs.  Compile extensions with -DPERL_NOCOMPAT to
+   disable them.
+ */
+
+#if !defined(PERL_CORE)
+#  define sv_setptrobj(rv,ptr,name)	sv_setref_iv(rv,name,PTR2IV(ptr))
+#  define sv_setptrref(rv,ptr)		sv_setref_iv(rv,NULL,PTR2IV(ptr))
+#endif
+
+#if !defined(PERL_CORE) && !defined(PERL_NOCOMPAT)
+
+/* Compatibility for various misnamed functions.  All functions
+   in the API that begin with "perl_" (not "Perl_") take an explicit
+   interpreter context pointer.
+   The following are not like that, but since they had a "perl_"
+   prefix in previous versions, we provide compatibility macros.
+ */
+#  define perl_atexit(a,b)		call_atexit(a,b)
+#  define perl_call_argv(a,b,c)		call_argv(a,b,c)
+#  define perl_call_method(a,b)		call_method(a,b)
+#  define perl_call_pv(a,b)		call_pv(a,b)
+#  define perl_call_sv(a,b)		call_sv(a,b)
+#  define perl_eval_pv(a,b)		eval_pv(a,b)
+#  define perl_eval_sv(a,b)		eval_sv(a,b)
+#  define perl_get_av(a,b)		get_av(a,b)
+#  define perl_get_cv(a,b)		get_cv(a,b)
+#  define perl_get_hv(a,b)		get_hv(a,b)
+#  define perl_get_sv(a,b)		get_sv(a,b)
+#  define perl_init_i18nl10n(a)		init_i18nl10n(a)
+#  define perl_init_i18nl14n(a)		init_i18nl14n(a)
+#  define perl_new_collate(a)		new_collate(a)
+#  define perl_new_ctype(a)		new_ctype(a)
+#  define perl_new_numeric(a)		new_numeric(a)
+#  define perl_require_pv(a)		require_pv(a)
+
+/* varargs functions can't be handled with CPP macros. :-(
+   This provides a set of compatibility functions that don't take
+   an extra argument but grab the context pointer using the macro
+   dTHX.
+ */
+#if defined(PERL_IMPLICIT_CONTEXT) && !defined(PERL_NO_SHORT_NAMES)
+#  define croak			Perl_croak_nocontext
+#  define deb			Perl_deb_nocontext
+#  define die			Perl_die_nocontext
+#  define form			Perl_form_nocontext
+#  define load_module		Perl_load_module_nocontext
+#  define mess			Perl_mess_nocontext
+#  define newSVpvf		Perl_newSVpvf_nocontext
+#  define sv_catpvf		Perl_sv_catpvf_nocontext
+#  define sv_catpvf_mg		Perl_sv_catpvf_mg_nocontext
+#  define sv_setpvf		Perl_sv_setpvf_nocontext
+#  define sv_setpvf_mg		Perl_sv_setpvf_mg_nocontext
+#  define warn			Perl_warn_nocontext
+#  define warner		Perl_warner_nocontext
+#endif
+
+#endif /* !defined(PERL_CORE) && !defined(PERL_NOCOMPAT) */
+
+#if !defined(PERL_IMPLICIT_CONTEXT)
+/* undefined symbols, point them back at the usual ones */
+#  define Perl_croak_nocontext	Perl_croak
+#  define Perl_deb_nocontext	Perl_deb
+#  define Perl_die_nocontext	Perl_die
+#  define Perl_form_nocontext	Perl_form
+#  define Perl_load_module_nocontext	Perl_load_module
+#  define Perl_mess_nocontext	Perl_mess
+#  define Perl_newSVpvf_nocontext	Perl_newSVpvf
+#  define Perl_sv_catpvf_nocontext	Perl_sv_catpvf
+#  define Perl_sv_catpvf_mg_nocontext	Perl_sv_catpvf_mg
+#  define Perl_sv_setpvf_nocontext	Perl_sv_setpvf
+#  define Perl_sv_setpvf_mg_nocontext	Perl_sv_setpvf_mg
+#  define Perl_warn_nocontext	Perl_warn
+#  define Perl_warner_nocontext	Perl_warner
+#endif
+
+/* ex: set ro: */
diff --git a/lib/5.24.1/x86_64-linux/CORE/embedvar.h b/lib/5.24.1/x86_64-linux/CORE/embedvar.h
new file mode 100644
index 00000000..7e551be0
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/embedvar.h
@@ -0,0 +1,445 @@
+/* -*- buffer-read-only: t -*-
+ *
+ *    embedvar.h
+ *
+ *    Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001,
+ *    2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 by Larry Wall and others
+ *
+ *    You may distribute under the terms of either the GNU General Public
+ *    License or the Artistic License, as specified in the README file.
+ *
+ * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+ * This file is built by regen/embed.pl from data in embed.fnc,
+ * regen/embed.pl, regen/opcodes, intrpvar.h and perlvars.h.
+ * Any changes made here will be lost!
+ *
+ * Edit those files and run 'make regen_headers' to effect changes.
+ */
+
+/* (Doing namespace management portably in C is really gross.) */
+
+/*
+   The following combinations of MULTIPLICITY and PERL_IMPLICIT_CONTEXT
+   are supported:
+     1) none
+     2) MULTIPLICITY	# supported for compatibility
+     3) MULTIPLICITY && PERL_IMPLICIT_CONTEXT
+
+   All other combinations of these flags are errors.
+
+   only #3 is supported directly, while #2 is a special
+   case of #3 (supported by redefining vTHX appropriately).
+*/
+
+#if defined(MULTIPLICITY)
+/* cases 2 and 3 above */
+
+#  if defined(PERL_IMPLICIT_CONTEXT)
+#    define vTHX	aTHX
+#  else
+#    define vTHX	PERL_GET_INTERP
+#  endif
+
+#define PL_AboveLatin1		(vTHX->IAboveLatin1)
+#define PL_Argv			(vTHX->IArgv)
+#define PL_Cmd			(vTHX->ICmd)
+#define PL_DBcontrol		(vTHX->IDBcontrol)
+#define PL_DBcv			(vTHX->IDBcv)
+#define PL_DBgv			(vTHX->IDBgv)
+#define PL_DBline		(vTHX->IDBline)
+#define PL_DBsignal		(vTHX->IDBsignal)
+#define PL_DBsingle		(vTHX->IDBsingle)
+#define PL_DBsub		(vTHX->IDBsub)
+#define PL_DBtrace		(vTHX->IDBtrace)
+#define PL_Dir			(vTHX->IDir)
+#define PL_Env			(vTHX->IEnv)
+#define PL_GCB_invlist		(vTHX->IGCB_invlist)
+#define PL_HasMultiCharFold	(vTHX->IHasMultiCharFold)
+#define PL_InBitmap		(vTHX->IInBitmap)
+#define PL_LB_invlist		(vTHX->ILB_invlist)
+#define PL_LIO			(vTHX->ILIO)
+#define PL_Latin1		(vTHX->ILatin1)
+#define PL_Mem			(vTHX->IMem)
+#define PL_MemParse		(vTHX->IMemParse)
+#define PL_MemShared		(vTHX->IMemShared)
+#define PL_NonL1NonFinalFold	(vTHX->INonL1NonFinalFold)
+#define PL_Posix_ptrs		(vTHX->IPosix_ptrs)
+#define PL_Proc			(vTHX->IProc)
+#define PL_SB_invlist		(vTHX->ISB_invlist)
+#define PL_Sock			(vTHX->ISock)
+#define PL_StdIO		(vTHX->IStdIO)
+#define PL_Sv			(vTHX->ISv)
+#define PL_UpperLatin1		(vTHX->IUpperLatin1)
+#define PL_WB_invlist		(vTHX->IWB_invlist)
+#define PL_XPosix_ptrs		(vTHX->IXPosix_ptrs)
+#define PL_Xpv			(vTHX->IXpv)
+#define PL_an			(vTHX->Ian)
+#define PL_argvgv		(vTHX->Iargvgv)
+#define PL_argvout_stack	(vTHX->Iargvout_stack)
+#define PL_argvoutgv		(vTHX->Iargvoutgv)
+#define PL_basetime		(vTHX->Ibasetime)
+#define PL_beginav		(vTHX->Ibeginav)
+#define PL_beginav_save		(vTHX->Ibeginav_save)
+#define PL_blockhooks		(vTHX->Iblockhooks)
+#define PL_body_arenas		(vTHX->Ibody_arenas)
+#define PL_body_roots		(vTHX->Ibody_roots)
+#define PL_bodytarget		(vTHX->Ibodytarget)
+#define PL_breakable_sub_gen	(vTHX->Ibreakable_sub_gen)
+#define PL_checkav		(vTHX->Icheckav)
+#define PL_checkav_save		(vTHX->Icheckav_save)
+#define PL_chopset		(vTHX->Ichopset)
+#define PL_clocktick		(vTHX->Iclocktick)
+#define PL_collation_ix		(vTHX->Icollation_ix)
+#define PL_collation_name	(vTHX->Icollation_name)
+#define PL_collation_standard	(vTHX->Icollation_standard)
+#define PL_collxfrm_base	(vTHX->Icollxfrm_base)
+#define PL_collxfrm_mult	(vTHX->Icollxfrm_mult)
+#define PL_colors		(vTHX->Icolors)
+#define PL_colorset		(vTHX->Icolorset)
+#define PL_compcv		(vTHX->Icompcv)
+#define PL_compiling		(vTHX->Icompiling)
+#define PL_comppad		(vTHX->Icomppad)
+#define PL_comppad_name		(vTHX->Icomppad_name)
+#define PL_comppad_name_fill	(vTHX->Icomppad_name_fill)
+#define PL_comppad_name_floor	(vTHX->Icomppad_name_floor)
+#define PL_constpadix		(vTHX->Iconstpadix)
+#define PL_cop_seqmax		(vTHX->Icop_seqmax)
+#define PL_cryptseen		(vTHX->Icryptseen)
+#define PL_curcop		(vTHX->Icurcop)
+#define PL_curcopdb		(vTHX->Icurcopdb)
+#define PL_curpad		(vTHX->Icurpad)
+#define PL_curpm		(vTHX->Icurpm)
+#define PL_curstack		(vTHX->Icurstack)
+#define PL_curstackinfo		(vTHX->Icurstackinfo)
+#define PL_curstash		(vTHX->Icurstash)
+#define PL_curstname		(vTHX->Icurstname)
+#define PL_custom_op_descs	(vTHX->Icustom_op_descs)
+#define PL_custom_op_names	(vTHX->Icustom_op_names)
+#define PL_custom_ops		(vTHX->Icustom_ops)
+#define PL_cv_has_eval		(vTHX->Icv_has_eval)
+#define PL_dbargs		(vTHX->Idbargs)
+#define PL_debstash		(vTHX->Idebstash)
+#define PL_debug		(vTHX->Idebug)
+#define PL_debug_pad		(vTHX->Idebug_pad)
+#define PL_def_layerlist	(vTHX->Idef_layerlist)
+#define PL_defgv		(vTHX->Idefgv)
+#define PL_defoutgv		(vTHX->Idefoutgv)
+#define PL_defstash		(vTHX->Idefstash)
+#define PL_delaymagic		(vTHX->Idelaymagic)
+#define PL_delaymagic_egid	(vTHX->Idelaymagic_egid)
+#define PL_delaymagic_euid	(vTHX->Idelaymagic_euid)
+#define PL_delaymagic_gid	(vTHX->Idelaymagic_gid)
+#define PL_delaymagic_uid	(vTHX->Idelaymagic_uid)
+#define PL_destroyhook		(vTHX->Idestroyhook)
+#define PL_diehook		(vTHX->Idiehook)
+#define PL_doswitches		(vTHX->Idoswitches)
+#define PL_dowarn		(vTHX->Idowarn)
+#define PL_dump_re_max_len	(vTHX->Idump_re_max_len)
+#define PL_dumper_fd		(vTHX->Idumper_fd)
+#define PL_dumpindent		(vTHX->Idumpindent)
+#define PL_e_script		(vTHX->Ie_script)
+#define PL_efloatbuf		(vTHX->Iefloatbuf)
+#define PL_efloatsize		(vTHX->Iefloatsize)
+#define PL_encoding		(vTHX->Iencoding)
+#define PL_endav		(vTHX->Iendav)
+#define PL_envgv		(vTHX->Ienvgv)
+#define PL_errgv		(vTHX->Ierrgv)
+#define PL_errors		(vTHX->Ierrors)
+#define PL_eval_root		(vTHX->Ieval_root)
+#define PL_eval_start		(vTHX->Ieval_start)
+#define PL_evalseq		(vTHX->Ievalseq)
+#define PL_exit_flags		(vTHX->Iexit_flags)
+#define PL_exitlist		(vTHX->Iexitlist)
+#define PL_exitlistlen		(vTHX->Iexitlistlen)
+#define PL_fdpid		(vTHX->Ifdpid)
+#define PL_filemode		(vTHX->Ifilemode)
+#define PL_firstgv		(vTHX->Ifirstgv)
+#define PL_forkprocess		(vTHX->Iforkprocess)
+#define PL_formtarget		(vTHX->Iformtarget)
+#define PL_generation		(vTHX->Igeneration)
+#define PL_gensym		(vTHX->Igensym)
+#define PL_globalstash		(vTHX->Iglobalstash)
+#define PL_globhook		(vTHX->Iglobhook)
+#define PL_hash_rand_bits	(vTHX->Ihash_rand_bits)
+#define PL_hash_rand_bits_enabled	(vTHX->Ihash_rand_bits_enabled)
+#define PL_hintgv		(vTHX->Ihintgv)
+#define PL_hv_fetch_ent_mh	(vTHX->Ihv_fetch_ent_mh)
+#define PL_in_clean_all		(vTHX->Iin_clean_all)
+#define PL_in_clean_objs	(vTHX->Iin_clean_objs)
+#define PL_in_eval		(vTHX->Iin_eval)
+#define PL_in_load_module	(vTHX->Iin_load_module)
+#define PL_in_utf8_CTYPE_locale	(vTHX->Iin_utf8_CTYPE_locale)
+#define PL_incgv		(vTHX->Iincgv)
+#define PL_initav		(vTHX->Iinitav)
+#define PL_inplace		(vTHX->Iinplace)
+#define PL_isarev		(vTHX->Iisarev)
+#define PL_known_layers		(vTHX->Iknown_layers)
+#define PL_last_in_gv		(vTHX->Ilast_in_gv)
+#define PL_last_swash_hv	(vTHX->Ilast_swash_hv)
+#define PL_last_swash_key	(vTHX->Ilast_swash_key)
+#define PL_last_swash_klen	(vTHX->Ilast_swash_klen)
+#define PL_last_swash_slen	(vTHX->Ilast_swash_slen)
+#define PL_last_swash_tmps	(vTHX->Ilast_swash_tmps)
+#define PL_lastfd		(vTHX->Ilastfd)
+#define PL_lastgotoprobe	(vTHX->Ilastgotoprobe)
+#define PL_laststatval		(vTHX->Ilaststatval)
+#define PL_laststype		(vTHX->Ilaststype)
+#define PL_lex_encoding		(vTHX->Ilex_encoding)
+#define PL_localizing		(vTHX->Ilocalizing)
+#define PL_localpatches		(vTHX->Ilocalpatches)
+#define PL_lockhook		(vTHX->Ilockhook)
+#define PL_main_cv		(vTHX->Imain_cv)
+#define PL_main_root		(vTHX->Imain_root)
+#define PL_main_start		(vTHX->Imain_start)
+#define PL_mainstack		(vTHX->Imainstack)
+#define PL_markstack		(vTHX->Imarkstack)
+#define PL_markstack_max	(vTHX->Imarkstack_max)
+#define PL_markstack_ptr	(vTHX->Imarkstack_ptr)
+#define PL_max_intro_pending	(vTHX->Imax_intro_pending)
+#define PL_maxo			(vTHX->Imaxo)
+#define PL_maxsysfd		(vTHX->Imaxsysfd)
+#define PL_memory_debug_header	(vTHX->Imemory_debug_header)
+#define PL_mess_sv		(vTHX->Imess_sv)
+#define PL_min_intro_pending	(vTHX->Imin_intro_pending)
+#define PL_minus_E		(vTHX->Iminus_E)
+#define PL_minus_F		(vTHX->Iminus_F)
+#define PL_minus_a		(vTHX->Iminus_a)
+#define PL_minus_c		(vTHX->Iminus_c)
+#define PL_minus_l		(vTHX->Iminus_l)
+#define PL_minus_n		(vTHX->Iminus_n)
+#define PL_minus_p		(vTHX->Iminus_p)
+#define PL_modcount		(vTHX->Imodcount)
+#define PL_modglobal		(vTHX->Imodglobal)
+#define PL_multideref_pc	(vTHX->Imultideref_pc)
+#define PL_my_cxt_keys		(vTHX->Imy_cxt_keys)
+#define PL_my_cxt_list		(vTHX->Imy_cxt_list)
+#define PL_my_cxt_size		(vTHX->Imy_cxt_size)
+#define PL_na			(vTHX->Ina)
+#define PL_nomemok		(vTHX->Inomemok)
+#define PL_numeric_local	(vTHX->Inumeric_local)
+#define PL_numeric_name		(vTHX->Inumeric_name)
+#define PL_numeric_radix_sv	(vTHX->Inumeric_radix_sv)
+#define PL_numeric_standard	(vTHX->Inumeric_standard)
+#define PL_ofsgv		(vTHX->Iofsgv)
+#define PL_oldname		(vTHX->Ioldname)
+#define PL_op			(vTHX->Iop)
+#define PL_op_exec_cnt		(vTHX->Iop_exec_cnt)
+#define PL_op_mask		(vTHX->Iop_mask)
+#define PL_opfreehook		(vTHX->Iopfreehook)
+#define PL_origalen		(vTHX->Iorigalen)
+#define PL_origargc		(vTHX->Iorigargc)
+#define PL_origargv		(vTHX->Iorigargv)
+#define PL_origenviron		(vTHX->Iorigenviron)
+#define PL_origfilename		(vTHX->Iorigfilename)
+#define PL_ors_sv		(vTHX->Iors_sv)
+#define PL_osname		(vTHX->Iosname)
+#define PL_pad_reset_pending	(vTHX->Ipad_reset_pending)
+#define PL_padix		(vTHX->Ipadix)
+#define PL_padix_floor		(vTHX->Ipadix_floor)
+#define PL_padlist_generation	(vTHX->Ipadlist_generation)
+#define PL_padname_const	(vTHX->Ipadname_const)
+#define PL_padname_undef	(vTHX->Ipadname_undef)
+#define PL_parser		(vTHX->Iparser)
+#define PL_patchlevel		(vTHX->Ipatchlevel)
+#define PL_peepp		(vTHX->Ipeepp)
+#define PL_perl_destruct_level	(vTHX->Iperl_destruct_level)
+#define PL_perldb		(vTHX->Iperldb)
+#define PL_perlio		(vTHX->Iperlio)
+#define PL_phase		(vTHX->Iphase)
+#define PL_pidstatus		(vTHX->Ipidstatus)
+#define PL_preambleav		(vTHX->Ipreambleav)
+#define PL_profiledata		(vTHX->Iprofiledata)
+#define PL_psig_name		(vTHX->Ipsig_name)
+#define PL_psig_pend		(vTHX->Ipsig_pend)
+#define PL_psig_ptr		(vTHX->Ipsig_ptr)
+#define PL_ptr_table		(vTHX->Iptr_table)
+#define PL_random_state		(vTHX->Irandom_state)
+#define PL_reentrant_buffer	(vTHX->Ireentrant_buffer)
+#define PL_reentrant_retint	(vTHX->Ireentrant_retint)
+#define PL_reg_curpm		(vTHX->Ireg_curpm)
+#define PL_regex_pad		(vTHX->Iregex_pad)
+#define PL_regex_padav		(vTHX->Iregex_padav)
+#define PL_registered_mros	(vTHX->Iregistered_mros)
+#define PL_regmatch_slab	(vTHX->Iregmatch_slab)
+#define PL_regmatch_state	(vTHX->Iregmatch_state)
+#define PL_replgv		(vTHX->Ireplgv)
+#define PL_restartjmpenv	(vTHX->Irestartjmpenv)
+#define PL_restartop		(vTHX->Irestartop)
+#define PL_rpeepp		(vTHX->Irpeepp)
+#define PL_rs			(vTHX->Irs)
+#define PL_runops		(vTHX->Irunops)
+#define PL_savebegin		(vTHX->Isavebegin)
+#define PL_savestack		(vTHX->Isavestack)
+#define PL_savestack_ix		(vTHX->Isavestack_ix)
+#define PL_savestack_max	(vTHX->Isavestack_max)
+#ifndef PL_sawampersand
+#define PL_sawampersand		(vTHX->Isawampersand)
+#endif
+#define PL_scopestack		(vTHX->Iscopestack)
+#define PL_scopestack_ix	(vTHX->Iscopestack_ix)
+#define PL_scopestack_max	(vTHX->Iscopestack_max)
+#define PL_scopestack_name	(vTHX->Iscopestack_name)
+#define PL_secondgv		(vTHX->Isecondgv)
+#define PL_sharehook		(vTHX->Isharehook)
+#define PL_sig_pending		(vTHX->Isig_pending)
+#define PL_sighandlerp		(vTHX->Isighandlerp)
+#define PL_signalhook		(vTHX->Isignalhook)
+#define PL_signals		(vTHX->Isignals)
+#define PL_sort_RealCmp		(vTHX->Isort_RealCmp)
+#define PL_sortcop		(vTHX->Isortcop)
+#define PL_sortstash		(vTHX->Isortstash)
+#define PL_splitstr		(vTHX->Isplitstr)
+#define PL_srand_called		(vTHX->Isrand_called)
+#define PL_stack_base		(vTHX->Istack_base)
+#define PL_stack_max		(vTHX->Istack_max)
+#define PL_stack_sp		(vTHX->Istack_sp)
+#define PL_start_env		(vTHX->Istart_env)
+#define PL_stashcache		(vTHX->Istashcache)
+#define PL_stashpad		(vTHX->Istashpad)
+#define PL_stashpadix		(vTHX->Istashpadix)
+#define PL_stashpadmax		(vTHX->Istashpadmax)
+#define PL_statbuf		(vTHX->Istatbuf)
+#define PL_statcache		(vTHX->Istatcache)
+#define PL_statgv		(vTHX->Istatgv)
+#define PL_statname		(vTHX->Istatname)
+#define PL_statusvalue		(vTHX->Istatusvalue)
+#define PL_statusvalue_posix	(vTHX->Istatusvalue_posix)
+#define PL_statusvalue_vms	(vTHX->Istatusvalue_vms)
+#define PL_stderrgv		(vTHX->Istderrgv)
+#define PL_stdingv		(vTHX->Istdingv)
+#define PL_strtab		(vTHX->Istrtab)
+#define PL_sub_generation	(vTHX->Isub_generation)
+#define PL_subline		(vTHX->Isubline)
+#define PL_subname		(vTHX->Isubname)
+#define PL_sv_arenaroot		(vTHX->Isv_arenaroot)
+#define PL_sv_consts		(vTHX->Isv_consts)
+#define PL_sv_count		(vTHX->Isv_count)
+#define PL_sv_no		(vTHX->Isv_no)
+#define PL_sv_root		(vTHX->Isv_root)
+#define PL_sv_serial		(vTHX->Isv_serial)
+#define PL_sv_undef		(vTHX->Isv_undef)
+#define PL_sv_yes		(vTHX->Isv_yes)
+#define PL_sys_intern		(vTHX->Isys_intern)
+#define PL_taint_warn		(vTHX->Itaint_warn)
+#define PL_tainted		(vTHX->Itainted)
+#define PL_tainting		(vTHX->Itainting)
+#define PL_threadhook		(vTHX->Ithreadhook)
+#define PL_tmps_floor		(vTHX->Itmps_floor)
+#define PL_tmps_ix		(vTHX->Itmps_ix)
+#define PL_tmps_max		(vTHX->Itmps_max)
+#define PL_tmps_stack		(vTHX->Itmps_stack)
+#define PL_top_env		(vTHX->Itop_env)
+#define PL_toptarget		(vTHX->Itoptarget)
+#define PL_unicode		(vTHX->Iunicode)
+#define PL_unitcheckav		(vTHX->Iunitcheckav)
+#define PL_unitcheckav_save	(vTHX->Iunitcheckav_save)
+#define PL_unlockhook		(vTHX->Iunlockhook)
+#define PL_unsafe		(vTHX->Iunsafe)
+#define PL_utf8_charname_begin	(vTHX->Iutf8_charname_begin)
+#define PL_utf8_charname_continue	(vTHX->Iutf8_charname_continue)
+#define PL_utf8_foldable	(vTHX->Iutf8_foldable)
+#define PL_utf8_foldclosures	(vTHX->Iutf8_foldclosures)
+#define PL_utf8_idcont		(vTHX->Iutf8_idcont)
+#define PL_utf8_idstart		(vTHX->Iutf8_idstart)
+#define PL_utf8_mark		(vTHX->Iutf8_mark)
+#define PL_utf8_perl_idcont	(vTHX->Iutf8_perl_idcont)
+#define PL_utf8_perl_idstart	(vTHX->Iutf8_perl_idstart)
+#define PL_utf8_swash_ptrs	(vTHX->Iutf8_swash_ptrs)
+#define PL_utf8_tofold		(vTHX->Iutf8_tofold)
+#define PL_utf8_tolower		(vTHX->Iutf8_tolower)
+#define PL_utf8_totitle		(vTHX->Iutf8_totitle)
+#define PL_utf8_toupper		(vTHX->Iutf8_toupper)
+#define PL_utf8_xidcont		(vTHX->Iutf8_xidcont)
+#define PL_utf8_xidstart	(vTHX->Iutf8_xidstart)
+#define PL_utf8cache		(vTHX->Iutf8cache)
+#define PL_utf8locale		(vTHX->Iutf8locale)
+#define PL_warn_locale		(vTHX->Iwarn_locale)
+#define PL_warnhook		(vTHX->Iwarnhook)
+#define PL_watchaddr		(vTHX->Iwatchaddr)
+#define PL_watchok		(vTHX->Iwatchok)
+#define PL_xsubfilename		(vTHX->Ixsubfilename)
+
+#endif	/* MULTIPLICITY */
+
+#if defined(PERL_GLOBAL_STRUCT)
+
+#define PL_appctx		(my_vars->Gappctx)
+#define PL_Gappctx		(my_vars->Gappctx)
+#define PL_check		(my_vars->Gcheck)
+#define PL_Gcheck		(my_vars->Gcheck)
+#define PL_check_mutex		(my_vars->Gcheck_mutex)
+#define PL_Gcheck_mutex		(my_vars->Gcheck_mutex)
+#define PL_csighandlerp		(my_vars->Gcsighandlerp)
+#define PL_Gcsighandlerp	(my_vars->Gcsighandlerp)
+#define PL_curinterp		(my_vars->Gcurinterp)
+#define PL_Gcurinterp		(my_vars->Gcurinterp)
+#define PL_do_undump		(my_vars->Gdo_undump)
+#define PL_Gdo_undump		(my_vars->Gdo_undump)
+#define PL_dollarzero_mutex	(my_vars->Gdollarzero_mutex)
+#define PL_Gdollarzero_mutex	(my_vars->Gdollarzero_mutex)
+#define PL_fold_locale		(my_vars->Gfold_locale)
+#define PL_Gfold_locale		(my_vars->Gfold_locale)
+#define PL_hash_seed		(my_vars->Ghash_seed)
+#define PL_Ghash_seed		(my_vars->Ghash_seed)
+#define PL_hash_seed_set	(my_vars->Ghash_seed_set)
+#define PL_Ghash_seed_set	(my_vars->Ghash_seed_set)
+#define PL_hints_mutex		(my_vars->Ghints_mutex)
+#define PL_Ghints_mutex		(my_vars->Ghints_mutex)
+#define PL_keyword_plugin	(my_vars->Gkeyword_plugin)
+#define PL_Gkeyword_plugin	(my_vars->Gkeyword_plugin)
+#define PL_locale_mutex		(my_vars->Glocale_mutex)
+#define PL_Glocale_mutex	(my_vars->Glocale_mutex)
+#define PL_malloc_mutex		(my_vars->Gmalloc_mutex)
+#define PL_Gmalloc_mutex	(my_vars->Gmalloc_mutex)
+#define PL_mmap_page_size	(my_vars->Gmmap_page_size)
+#define PL_Gmmap_page_size	(my_vars->Gmmap_page_size)
+#define PL_my_ctx_mutex		(my_vars->Gmy_ctx_mutex)
+#define PL_Gmy_ctx_mutex	(my_vars->Gmy_ctx_mutex)
+#define PL_my_cxt_index		(my_vars->Gmy_cxt_index)
+#define PL_Gmy_cxt_index	(my_vars->Gmy_cxt_index)
+#define PL_op_mutex		(my_vars->Gop_mutex)
+#define PL_Gop_mutex		(my_vars->Gop_mutex)
+#define PL_op_seq		(my_vars->Gop_seq)
+#define PL_Gop_seq		(my_vars->Gop_seq)
+#define PL_op_sequence		(my_vars->Gop_sequence)
+#define PL_Gop_sequence		(my_vars->Gop_sequence)
+#define PL_perlio_debug_fd	(my_vars->Gperlio_debug_fd)
+#define PL_Gperlio_debug_fd	(my_vars->Gperlio_debug_fd)
+#define PL_perlio_fd_refcnt	(my_vars->Gperlio_fd_refcnt)
+#define PL_Gperlio_fd_refcnt	(my_vars->Gperlio_fd_refcnt)
+#define PL_perlio_fd_refcnt_size	(my_vars->Gperlio_fd_refcnt_size)
+#define PL_Gperlio_fd_refcnt_size	(my_vars->Gperlio_fd_refcnt_size)
+#define PL_perlio_mutex		(my_vars->Gperlio_mutex)
+#define PL_Gperlio_mutex	(my_vars->Gperlio_mutex)
+#define PL_ppaddr		(my_vars->Gppaddr)
+#define PL_Gppaddr		(my_vars->Gppaddr)
+#ifdef OS2
+#define PL_sh_path		(my_vars->Gsh_path)
+#define PL_Gsh_path		(my_vars->Gsh_path)
+#endif
+#define PL_sig_defaulting	(my_vars->Gsig_defaulting)
+#define PL_Gsig_defaulting	(my_vars->Gsig_defaulting)
+#define PL_sig_handlers_initted	(my_vars->Gsig_handlers_initted)
+#define PL_Gsig_handlers_initted	(my_vars->Gsig_handlers_initted)
+#define PL_sig_ignoring		(my_vars->Gsig_ignoring)
+#define PL_Gsig_ignoring	(my_vars->Gsig_ignoring)
+#define PL_sig_trapped		(my_vars->Gsig_trapped)
+#define PL_Gsig_trapped		(my_vars->Gsig_trapped)
+#define PL_sigfpe_saved		(my_vars->Gsigfpe_saved)
+#define PL_Gsigfpe_saved	(my_vars->Gsigfpe_saved)
+#define PL_sv_placeholder	(my_vars->Gsv_placeholder)
+#define PL_Gsv_placeholder	(my_vars->Gsv_placeholder)
+#define PL_thr_key		(my_vars->Gthr_key)
+#define PL_Gthr_key		(my_vars->Gthr_key)
+#define PL_timesbase		(my_vars->Gtimesbase)
+#define PL_Gtimesbase		(my_vars->Gtimesbase)
+#define PL_use_safe_putenv	(my_vars->Guse_safe_putenv)
+#define PL_Guse_safe_putenv	(my_vars->Guse_safe_putenv)
+#define PL_veto_cleanup		(my_vars->Gveto_cleanup)
+#define PL_Gveto_cleanup	(my_vars->Gveto_cleanup)
+#define PL_watch_pvx		(my_vars->Gwatch_pvx)
+#define PL_Gwatch_pvx		(my_vars->Gwatch_pvx)
+
+#endif /* PERL_GLOBAL_STRUCT */
+
+/* ex: set ro: */
diff --git a/lib/5.24.1/x86_64-linux/CORE/fakesdio.h b/lib/5.24.1/x86_64-linux/CORE/fakesdio.h
new file mode 100644
index 00000000..928d37b9
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/fakesdio.h
@@ -0,0 +1,127 @@
+/*    fakestdio.h
+ *
+ *    Copyright (C) 2000, by Larry Wall and others
+ *
+ *    You may distribute under the terms of either the GNU General Public
+ *    License or the Artistic License, as specified in the README file.
+ *
+ */
+
+/*
+ * This is "source level" stdio compatibility mode.
+ * We try and #define stdio functions in terms of PerlIO.
+ */
+#define _CANNOT "CANNOT"
+#undef FILE
+#define FILE			PerlIO
+#undef clearerr
+#undef fclose
+#undef fdopen
+#undef feof
+#undef ferror
+#undef fflush
+#undef fgetc
+#undef fgetpos
+#undef fgets
+#undef fileno
+#undef flockfile
+#undef fopen
+#undef fprintf
+#undef fputc
+#undef fputs
+#undef fread
+#undef freopen
+#undef fscanf
+#undef fseek
+#undef fsetpos
+#undef ftell
+#undef ftrylockfile
+#undef funlockfile
+#undef fwrite
+#undef getc
+#undef getc_unlocked
+#undef getw
+#undef pclose
+#undef popen
+#undef putc
+#undef putc_unlocked
+#undef putw
+#undef rewind
+#undef setbuf
+#undef setvbuf
+#undef stderr
+#undef stdin
+#undef stdout
+#undef tmpfile
+#undef ungetc
+#undef vfprintf
+#undef printf
+
+/* printf used to live in perl.h like this - more sophisticated 
+   than the rest 
+ */
+#if defined(__GNUC__) && !defined(__STRICT_ANSI__) && !defined(PERL_GCC_PEDANTIC)
+#define printf(fmt,args...) PerlIO_stdoutf(fmt,##args)
+#else
+#define printf PerlIO_stdoutf
+#endif
+
+#define fprintf			PerlIO_printf
+#define stdin			PerlIO_stdin()
+#define stdout			PerlIO_stdout()
+#define stderr			PerlIO_stderr()
+#define tmpfile()		PerlIO_tmpfile()
+#define fclose(f)		PerlIO_close(f)
+#define fflush(f)		PerlIO_flush(f)
+#define fopen(p,m)		PerlIO_open(p,m)
+#define vfprintf(f,fmt,a)	PerlIO_vprintf(f,fmt,a)
+#define fgetc(f)		PerlIO_getc(f)
+#define fputc(c,f)		PerlIO_putc(f,c)
+#define fputs(s,f)		PerlIO_puts(f,s)
+#define getc(f)			PerlIO_getc(f)
+#define getc_unlocked(f)	PerlIO_getc(f)
+#define putc(c,f)		PerlIO_putc(f,c)
+#define putc_unlocked(c,f)	PerlIO_putc(c,f)
+#define ungetc(c,f)		PerlIO_ungetc(f,c)
+#if 0
+/* return values of read/write need work */
+#define fread(b,s,c,f)		PerlIO_read(f,b,(s*c))
+#define fwrite(b,s,c,f)		PerlIO_write(f,b,(s*c))
+#else
+#define fread(b,s,c,f)		_CANNOT fread
+#define fwrite(b,s,c,f)		_CANNOT fwrite
+#endif
+#define fseek(f,o,w)		PerlIO_seek(f,o,w)
+#define ftell(f)		PerlIO_tell(f)
+#define rewind(f)		PerlIO_rewind(f)
+#define clearerr(f)		PerlIO_clearerr(f)
+#define feof(f)			PerlIO_eof(f)
+#define ferror(f)		PerlIO_error(f)
+#define fdopen(fd,p)		PerlIO_fdopen(fd,p)
+#define fileno(f)		PerlIO_fileno(f)
+#define popen(c,m)		my_popen(c,m)
+#define pclose(f)		my_pclose(f)
+
+#define fsetpos(f,p)		_CANNOT _fsetpos_
+#define fgetpos(f,p)		_CANNOT _fgetpos_
+
+#define __filbuf(f)		_CANNOT __filbuf_
+#define _filbuf(f)		_CANNOT _filbuf_
+#define __flsbuf(c,f)		_CANNOT __flsbuf_
+#define _flsbuf(c,f)		_CANNOT _flsbuf_
+#define getw(f)			_CANNOT _getw_
+#define putw(v,f)		_CANNOT _putw_
+#if SFIO_VERSION < 20000101L
+#define flockfile(f)		_CANNOT _flockfile_
+#define ftrylockfile(f)		_CANNOT _ftrylockfile_
+#define funlockfile(f)		_CANNOT _funlockfile_
+#endif
+#define freopen(p,m,f)		_CANNOT _freopen_
+#define setbuf(f,b)		_CANNOT _setbuf_
+#define setvbuf(f,b,x,s)	_CANNOT _setvbuf_
+#define fscanf			_CANNOT _fscanf_
+#define fgets(s,n,f)		_CANNOT _fgets_
+
+/*
+ * ex: set ts=8 sts=4 sw=4 et:
+ */
diff --git a/lib/5.24.1/x86_64-linux/CORE/feature.h b/lib/5.24.1/x86_64-linux/CORE/feature.h
new file mode 100644
index 00000000..a527e06e
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/feature.h
@@ -0,0 +1,172 @@
+/* -*- buffer-read-only: t -*-
+   !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+   This file is built by regen/feature.pl.
+   Any changes made here will be lost!
+ */
+
+
+#if defined(PERL_CORE) || defined (PERL_EXT)
+
+#define HINT_FEATURE_SHIFT	26
+
+#define FEATURE_BUNDLE_DEFAULT	0
+#define FEATURE_BUNDLE_510	1
+#define FEATURE_BUNDLE_511	2
+#define FEATURE_BUNDLE_515	3
+#define FEATURE_BUNDLE_523	4
+#define FEATURE_BUNDLE_CUSTOM	(HINT_FEATURE_MASK >> HINT_FEATURE_SHIFT)
+
+#define CURRENT_HINTS \
+    (PL_curcop == &PL_compiling ? PL_hints : PL_curcop->cop_hints)
+#define CURRENT_FEATURE_BUNDLE \
+    ((CURRENT_HINTS & HINT_FEATURE_MASK) >> HINT_FEATURE_SHIFT)
+
+/* Avoid using ... && Perl_feature_is_enabled(...) as that triggers a bug in
+   the HP-UX cc on PA-RISC */
+#define FEATURE_IS_ENABLED(name)				        \
+	((CURRENT_HINTS							 \
+	   & HINT_LOCALIZE_HH)						  \
+	    ? Perl_feature_is_enabled(aTHX_ STR_WITH_LEN(name)) : FALSE)
+/* The longest string we pass in.  */
+#define MAX_FEATURE_LEN (sizeof("postderef_qq")-1)
+
+#define FEATURE_FC_IS_ENABLED \
+    ( \
+	(CURRENT_FEATURE_BUNDLE >= FEATURE_BUNDLE_515 && \
+	 CURRENT_FEATURE_BUNDLE <= FEATURE_BUNDLE_523) \
+     || (CURRENT_FEATURE_BUNDLE == FEATURE_BUNDLE_CUSTOM && \
+	 FEATURE_IS_ENABLED("fc")) \
+    )
+
+#define FEATURE_SAY_IS_ENABLED \
+    ( \
+	(CURRENT_FEATURE_BUNDLE >= FEATURE_BUNDLE_510 && \
+	 CURRENT_FEATURE_BUNDLE <= FEATURE_BUNDLE_523) \
+     || (CURRENT_FEATURE_BUNDLE == FEATURE_BUNDLE_CUSTOM && \
+	 FEATURE_IS_ENABLED("say")) \
+    )
+
+#define FEATURE_STATE_IS_ENABLED \
+    ( \
+	(CURRENT_FEATURE_BUNDLE >= FEATURE_BUNDLE_510 && \
+	 CURRENT_FEATURE_BUNDLE <= FEATURE_BUNDLE_523) \
+     || (CURRENT_FEATURE_BUNDLE == FEATURE_BUNDLE_CUSTOM && \
+	 FEATURE_IS_ENABLED("state")) \
+    )
+
+#define FEATURE_SWITCH_IS_ENABLED \
+    ( \
+	(CURRENT_FEATURE_BUNDLE >= FEATURE_BUNDLE_510 && \
+	 CURRENT_FEATURE_BUNDLE <= FEATURE_BUNDLE_523) \
+     || (CURRENT_FEATURE_BUNDLE == FEATURE_BUNDLE_CUSTOM && \
+	 FEATURE_IS_ENABLED("switch")) \
+    )
+
+#define FEATURE_BITWISE_IS_ENABLED \
+    ( \
+	CURRENT_FEATURE_BUNDLE == FEATURE_BUNDLE_CUSTOM && \
+	 FEATURE_IS_ENABLED("bitwise") \
+    )
+
+#define FEATURE_EVALBYTES_IS_ENABLED \
+    ( \
+	(CURRENT_FEATURE_BUNDLE >= FEATURE_BUNDLE_515 && \
+	 CURRENT_FEATURE_BUNDLE <= FEATURE_BUNDLE_523) \
+     || (CURRENT_FEATURE_BUNDLE == FEATURE_BUNDLE_CUSTOM && \
+	 FEATURE_IS_ENABLED("evalbytes")) \
+    )
+
+#define FEATURE_POSTDEREF_IS_ENABLED \
+    ( \
+	CURRENT_FEATURE_BUNDLE == FEATURE_BUNDLE_CUSTOM && \
+	 FEATURE_IS_ENABLED("postderef") \
+    )
+
+#define FEATURE_ARYBASE_IS_ENABLED \
+    ( \
+	CURRENT_FEATURE_BUNDLE <= FEATURE_BUNDLE_511 \
+     || (CURRENT_FEATURE_BUNDLE == FEATURE_BUNDLE_CUSTOM && \
+	 FEATURE_IS_ENABLED("arybase")) \
+    )
+
+#define FEATURE_SIGNATURES_IS_ENABLED \
+    ( \
+	CURRENT_FEATURE_BUNDLE == FEATURE_BUNDLE_CUSTOM && \
+	 FEATURE_IS_ENABLED("signatures") \
+    )
+
+#define FEATURE___SUB___IS_ENABLED \
+    ( \
+	(CURRENT_FEATURE_BUNDLE >= FEATURE_BUNDLE_515 && \
+	 CURRENT_FEATURE_BUNDLE <= FEATURE_BUNDLE_523) \
+     || (CURRENT_FEATURE_BUNDLE == FEATURE_BUNDLE_CUSTOM && \
+	 FEATURE_IS_ENABLED("__SUB__")) \
+    )
+
+#define FEATURE_REFALIASING_IS_ENABLED \
+    ( \
+	CURRENT_FEATURE_BUNDLE == FEATURE_BUNDLE_CUSTOM && \
+	 FEATURE_IS_ENABLED("refaliasing") \
+    )
+
+#define FEATURE_LEXSUBS_IS_ENABLED \
+    ( \
+	CURRENT_FEATURE_BUNDLE == FEATURE_BUNDLE_CUSTOM && \
+	 FEATURE_IS_ENABLED("lexsubs") \
+    )
+
+#define FEATURE_POSTDEREF_QQ_IS_ENABLED \
+    ( \
+	CURRENT_FEATURE_BUNDLE == FEATURE_BUNDLE_523 \
+     || (CURRENT_FEATURE_BUNDLE == FEATURE_BUNDLE_CUSTOM && \
+	 FEATURE_IS_ENABLED("postderef_qq")) \
+    )
+
+#define FEATURE_UNIEVAL_IS_ENABLED \
+    ( \
+	(CURRENT_FEATURE_BUNDLE >= FEATURE_BUNDLE_515 && \
+	 CURRENT_FEATURE_BUNDLE <= FEATURE_BUNDLE_523) \
+     || (CURRENT_FEATURE_BUNDLE == FEATURE_BUNDLE_CUSTOM && \
+	 FEATURE_IS_ENABLED("unieval")) \
+    )
+
+#define FEATURE_UNICODE_IS_ENABLED \
+    ( \
+	(CURRENT_FEATURE_BUNDLE >= FEATURE_BUNDLE_511 && \
+	 CURRENT_FEATURE_BUNDLE <= FEATURE_BUNDLE_523) \
+     || (CURRENT_FEATURE_BUNDLE == FEATURE_BUNDLE_CUSTOM && \
+	 FEATURE_IS_ENABLED("unicode")) \
+    )
+
+
+#endif /* PERL_CORE or PERL_EXT */
+
+#ifdef PERL_IN_OP_C
+PERL_STATIC_INLINE void
+S_enable_feature_bundle(pTHX_ SV *ver)
+{
+    SV *comp_ver = sv_newmortal();
+    PL_hints = (PL_hints &~ HINT_FEATURE_MASK)
+	     | (
+		  (sv_setnv(comp_ver, 5.023),
+		   vcmp(ver, upg_version(comp_ver, FALSE)) >= 0)
+			? FEATURE_BUNDLE_523 :
+		  (sv_setnv(comp_ver, 5.015),
+		   vcmp(ver, upg_version(comp_ver, FALSE)) >= 0)
+			? FEATURE_BUNDLE_515 :
+		  (sv_setnv(comp_ver, 5.011),
+		   vcmp(ver, upg_version(comp_ver, FALSE)) >= 0)
+			? FEATURE_BUNDLE_511 :
+		  (sv_setnv(comp_ver, 5.009005),
+		   vcmp(ver, upg_version(comp_ver, FALSE)) >= 0)
+			? FEATURE_BUNDLE_510 :
+			  FEATURE_BUNDLE_DEFAULT
+	       ) << HINT_FEATURE_SHIFT;
+    /* special case */
+    assert(PL_curcop == &PL_compiling);
+    if (FEATURE_UNICODE_IS_ENABLED) PL_hints |=  HINT_UNI_8_BIT;
+    else			    PL_hints &= ~HINT_UNI_8_BIT;
+}
+#endif /* PERL_IN_OP_C */
+
+/* ex: set ro: */
diff --git a/lib/5.24.1/x86_64-linux/CORE/form.h b/lib/5.24.1/x86_64-linux/CORE/form.h
new file mode 100644
index 00000000..7ddeb715
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/form.h
@@ -0,0 +1,27 @@
+/*    form.h
+ *
+ *    Copyright (C) 1991, 1992, 1993, 2000, 2004, 2011 by Larry Wall and others
+ *
+ *    You may distribute under the terms of either the GNU General Public
+ *    License or the Artistic License, as specified in the README file.
+ *
+ */
+
+#define FF_END          0  /* tidy up, then return */
+#define FF_LINEMARK     1  /* start (or end) of a line */
+#define FF_LITERAL      2  /* append <arg> literal chars */
+#define FF_SKIP         3  /* skip <arg> chars in format */
+#define FF_FETCH        4  /* get next item and set field size to <arg> */
+#define FF_CHECKNL      5  /* find max len of item (up to \n) that fits field */
+#define FF_CHECKCHOP    6  /* like CHECKNL, but up to highest split point */
+#define FF_SPACE        7  /* append padding space (diff of field, item size) */
+#define FF_HALFSPACE    8  /* like FF_SPACE, but only append half as many */
+#define FF_ITEM         9  /* append a text item, while blanking ctrl chars */
+#define FF_CHOP         10 /* (for ^*) chop the current item */
+#define FF_LINEGLOB     11 /* process @*  */
+#define FF_DECIMAL      12 /* do @##, ^##, where <arg>=(precision|flags) */
+#define FF_NEWLINE      13 /* delete trailing spaces, then append \n */
+#define FF_BLANK        14 /* for arg==0: do '~'; for arg>0 : do '~~' */
+#define FF_MORE         15 /* replace long end of string with '...' */
+#define FF_0DECIMAL     16 /* like FF_DECIMAL but for 0### */
+#define FF_LINESNGL     17 /* process ^*  */
diff --git a/lib/5.24.1/x86_64-linux/CORE/git_version.h b/lib/5.24.1/x86_64-linux/CORE/git_version.h
new file mode 100644
index 00000000..38da47c0
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/git_version.h
@@ -0,0 +1,8 @@
+/**************************************************************************
+* WARNING: 'git_version.h' is automatically generated by make_patchnum.pl
+*          DO NOT EDIT DIRECTLY - edit make_patchnum.pl instead
+***************************************************************************/
+
+#define PERL_GIT_UNPUSHED_COMMITS		\
+    /*leave-this-comment*/
+
diff --git a/lib/5.24.1/x86_64-linux/CORE/gv.h b/lib/5.24.1/x86_64-linux/CORE/gv.h
new file mode 100644
index 00000000..e3357bc4
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/gv.h
@@ -0,0 +1,286 @@
+/*    gv.h
+ *
+ *    Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000,
+ *    2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008 by Larry Wall and others
+ *
+ *    You may distribute under the terms of either the GNU General Public
+ *    License or the Artistic License, as specified in the README file.
+ *
+ */
+
+struct gp {
+    SV *	gp_sv;		/* scalar value */
+    struct io *	gp_io;		/* filehandle value */
+    CV *	gp_cv;		/* subroutine value */
+    U32		gp_cvgen;	/* generational validity of cached gp_cv */
+    U32		gp_refcnt;	/* how many globs point to this? */
+    HV *	gp_hv;		/* hash value */
+    AV *	gp_av;		/* array value */
+    CV *	gp_form;	/* format value */
+    GV *	gp_egv;		/* effective gv, if *glob */
+    PERL_BITFIELD32 gp_line:31;	/* line first declared at (for -w) */
+    PERL_BITFIELD32 gp_flags:1;
+    HEK *	gp_file_hek;	/* file first declared in (for -w) */
+};
+
+#define GvXPVGV(gv)	((XPVGV*)SvANY(gv))
+
+
+#if defined (DEBUGGING) && defined(__GNUC__) && !defined(PERL_GCC_BRACE_GROUPS_FORBIDDEN) && !defined(__INTEL_COMPILER)
+#  define GvGP(gv)							\
+	(0+(*({GV *const _gvgp = (GV *) (gv);				\
+	    assert(SvTYPE(_gvgp) == SVt_PVGV || SvTYPE(_gvgp) == SVt_PVLV); \
+	    assert(isGV_with_GP(_gvgp));				\
+	    &((_gvgp)->sv_u.svu_gp);})))
+#  define GvGP_set(gv,gp)						\
+	{GV *const _gvgp = (GV *) (gv);				\
+	    assert(SvTYPE(_gvgp) == SVt_PVGV || SvTYPE(_gvgp) == SVt_PVLV); \
+	    assert(isGV_with_GP(_gvgp));				\
+	    (_gvgp)->sv_u.svu_gp = (gp); }
+#  define GvFLAGS(gv)							\
+	(*({GV *const _gvflags = (GV *) (gv);				\
+	    assert(SvTYPE(_gvflags) == SVt_PVGV || SvTYPE(_gvflags) == SVt_PVLV); \
+	    assert(isGV_with_GP(_gvflags));				\
+	    &(GvXPVGV(_gvflags)->xpv_cur);}))
+#  define GvSTASH(gv)							\
+	(*({ GV * const _gvstash = (GV *) (gv);				\
+	    assert(isGV_with_GP(_gvstash));				\
+	    assert(SvTYPE(_gvstash) == SVt_PVGV || SvTYPE(_gvstash) >= SVt_PVLV); \
+	    &(GvXPVGV(_gvstash)->xnv_u.xgv_stash);			\
+	 }))
+#  define GvNAME_HEK(gv)						\
+    (*({ GV * const _gvname_hek = (GV *) (gv);				\
+	   assert(isGV_with_GP(_gvname_hek));				\
+	   assert(SvTYPE(_gvname_hek) == SVt_PVGV || SvTYPE(_gvname_hek) >= SVt_PVLV); \
+	   assert(!SvVALID(_gvname_hek));				\
+	   &(GvXPVGV(_gvname_hek)->xiv_u.xivu_namehek);			\
+	 }))
+#  define GvNAME_get(gv)	({ assert(GvNAME_HEK(gv)); (char *)HEK_KEY(GvNAME_HEK(gv)); })
+#  define GvNAMELEN_get(gv)	({ assert(GvNAME_HEK(gv)); HEK_LEN(GvNAME_HEK(gv)); })
+#  define GvNAMEUTF8(gv)	({ assert(GvNAME_HEK(gv)); HEK_UTF8(GvNAME_HEK(gv)); })
+#else
+#  define GvGP(gv)	(0+(gv)->sv_u.svu_gp)
+#  define GvGP_set(gv,gp)	((gv)->sv_u.svu_gp = (gp))
+#  define GvFLAGS(gv)	(GvXPVGV(gv)->xpv_cur)
+#  define GvSTASH(gv)	(GvXPVGV(gv)->xnv_u.xgv_stash)
+#  define GvNAME_HEK(gv)	(GvXPVGV(gv)->xiv_u.xivu_namehek)
+#  define GvNAME_get(gv)	HEK_KEY(GvNAME_HEK(gv))
+#  define GvNAMELEN_get(gv)	HEK_LEN(GvNAME_HEK(gv))
+#  define GvNAMEUTF8(gv)	HEK_UTF8(GvNAME_HEK(gv))
+#endif
+
+#define GvNAME(gv)	GvNAME_get(gv)
+#define GvNAMELEN(gv)	GvNAMELEN_get(gv)
+
+/*
+=head1 GV Functions
+
+=for apidoc Am|SV*|GvSV|GV* gv
+
+Return the SV from the GV.
+
+=for apidoc Am|AV*|GvAV|GV* gv
+
+Return the AV from the GV.
+
+=for apidoc Am|HV*|GvHV|GV* gv
+
+Return the HV from the GV.
+
+=for apidoc Am|CV*|GvCV|GV* gv
+
+Return the CV from the GV.
+
+=cut
+*/
+
+#define GvSV(gv)	(GvGP(gv)->gp_sv)
+#ifdef PERL_DONT_CREATE_GVSV
+#define GvSVn(gv)	(*(GvGP(gv)->gp_sv ? \
+			 &(GvGP(gv)->gp_sv) : \
+			 &(GvGP(gv_SVadd(gv))->gp_sv)))
+#else
+#define GvSVn(gv)	GvSV(gv)
+#endif
+
+#define GvREFCNT(gv)	(GvGP(gv)->gp_refcnt)
+#define GvIO(gv)                         \
+ (                                        \
+     (gv)                                  \
+  && (                                      \
+         SvTYPE((const SV*)(gv)) == SVt_PVGV \
+      || SvTYPE((const SV*)(gv)) == SVt_PVLV  \
+     )                                         \
+  && GvGP(gv)                                   \
+   ? GvIOp(gv)                                   \
+   : NULL                                         \
+ )
+#define GvIOp(gv)	(GvGP(gv)->gp_io)
+#define GvIOn(gv)	(GvIO(gv) ? GvIOp(gv) : GvIOp(gv_IOadd(gv)))
+
+#define GvFORM(gv)	(GvGP(gv)->gp_form)
+#define GvAV(gv)	(GvGP(gv)->gp_av)
+
+#define GvAVn(gv)	(GvGP(gv)->gp_av ? \
+			 GvGP(gv)->gp_av : \
+			 GvGP(gv_AVadd(gv))->gp_av)
+#define GvHV(gv)	((GvGP(gv))->gp_hv)
+
+#define GvHVn(gv)	(GvGP(gv)->gp_hv ? \
+			 GvGP(gv)->gp_hv : \
+			 GvGP(gv_HVadd(gv))->gp_hv)
+
+#define GvCV(gv)	(0+GvGP(gv)->gp_cv)
+#define GvCV_set(gv,cv)	(GvGP(gv)->gp_cv = (cv))
+#define GvCVGEN(gv)	(GvGP(gv)->gp_cvgen)
+#define GvCVu(gv)	(GvGP(gv)->gp_cvgen ? NULL : GvGP(gv)->gp_cv)
+
+#define GvGPFLAGS(gv)	(GvGP(gv)->gp_flags)
+
+#define GvLINE(gv)	(GvGP(gv)->gp_line)
+#define GvFILE_HEK(gv)	(GvGP(gv)->gp_file_hek)
+#define GvFILEx(gv)	HEK_KEY(GvFILE_HEK(gv))
+#define GvFILE(gv)	(GvFILE_HEK(gv) ? GvFILEx(gv) : NULL)
+#define GvFILEGV(gv)	(GvFILE_HEK(gv) ? gv_fetchfile(GvFILEx(gv)) : NULL)
+
+#define GvEGV(gv)	(GvGP(gv)->gp_egv)
+#define GvEGVx(gv)	(isGV_with_GP(gv) ? GvEGV(gv) : NULL)
+#define GvENAME(gv)	GvNAME(GvEGV(gv) ? GvEGV(gv) : gv)
+#define GvENAMELEN(gv)  GvNAMELEN(GvEGV(gv) ? GvEGV(gv) : gv)
+#define GvENAMEUTF8(gv) GvNAMEUTF8(GvEGV(gv) ? GvEGV(gv) : gv)
+#define GvENAME_HEK(gv) GvNAME_HEK(GvEGV(gv) ? GvEGV(gv) : gv)
+#define GvESTASH(gv)	GvSTASH(GvEGV(gv) ? GvEGV(gv) : gv)
+
+/* GVf_INTRO is one-shot flag which indicates that the next assignment
+   of a reference to the glob is to be localised; it distinguishes
+   'local *g = $ref' from '*g = $ref'.
+*/
+#define GVf_INTRO	0x01
+#define GVf_MULTI	0x02
+#define GVf_ASSUMECV	0x04
+/*	UNUSED		0x08 */
+#define GVf_IMPORTED	0xF0
+#define GVf_IMPORTED_SV	  0x10
+#define GVf_IMPORTED_AV	  0x20
+#define GVf_IMPORTED_HV	  0x40
+#define GVf_IMPORTED_CV	  0x80
+
+#define GvINTRO(gv)		(GvFLAGS(gv) & GVf_INTRO)
+#define GvINTRO_on(gv)		(GvFLAGS(gv) |= GVf_INTRO)
+#define GvINTRO_off(gv)		(GvFLAGS(gv) &= ~GVf_INTRO)
+
+#define GvMULTI(gv)		(GvFLAGS(gv) & GVf_MULTI)
+#define GvMULTI_on(gv)		(GvFLAGS(gv) |= GVf_MULTI)
+#define GvMULTI_off(gv)		(GvFLAGS(gv) &= ~GVf_MULTI)
+
+#define GvASSUMECV(gv)		(GvFLAGS(gv) & GVf_ASSUMECV)
+#define GvASSUMECV_on(gv)	(GvFLAGS(gv) |= GVf_ASSUMECV)
+#define GvASSUMECV_off(gv)	(GvFLAGS(gv) &= ~GVf_ASSUMECV)
+
+#define GvIMPORTED(gv)		(GvFLAGS(gv) & GVf_IMPORTED)
+#define GvIMPORTED_on(gv)	(GvFLAGS(gv) |= GVf_IMPORTED)
+#define GvIMPORTED_off(gv)	(GvFLAGS(gv) &= ~GVf_IMPORTED)
+
+#define GvIMPORTED_SV(gv)	(GvFLAGS(gv) & GVf_IMPORTED_SV)
+#define GvIMPORTED_SV_on(gv)	(GvFLAGS(gv) |= GVf_IMPORTED_SV)
+#define GvIMPORTED_SV_off(gv)	(GvFLAGS(gv) &= ~GVf_IMPORTED_SV)
+
+#define GvIMPORTED_AV(gv)	(GvFLAGS(gv) & GVf_IMPORTED_AV)
+#define GvIMPORTED_AV_on(gv)	(GvFLAGS(gv) |= GVf_IMPORTED_AV)
+#define GvIMPORTED_AV_off(gv)	(GvFLAGS(gv) &= ~GVf_IMPORTED_AV)
+
+#define GvIMPORTED_HV(gv)	(GvFLAGS(gv) & GVf_IMPORTED_HV)
+#define GvIMPORTED_HV_on(gv)	(GvFLAGS(gv) |= GVf_IMPORTED_HV)
+#define GvIMPORTED_HV_off(gv)	(GvFLAGS(gv) &= ~GVf_IMPORTED_HV)
+
+#define GvIMPORTED_CV(gv)	(GvFLAGS(gv) & GVf_IMPORTED_CV)
+#define GvIMPORTED_CV_on(gv)	(GvFLAGS(gv) |= GVf_IMPORTED_CV)
+#define GvIMPORTED_CV_off(gv)	(GvFLAGS(gv) &= ~GVf_IMPORTED_CV)
+
+#ifndef PERL_CORE
+#  define GvIN_PAD(gv)		0
+#  define GvIN_PAD_on(gv)	NOOP
+#  define GvIN_PAD_off(gv)	NOOP
+#  define Nullgv Null(GV*)
+#endif
+
+#define DM_RUID      0x001
+#define DM_EUID      0x002
+#define DM_UID       (DM_RUID|DM_EUID)
+#define DM_ARRAY_ISA 0x004
+#define DM_RGID      0x010
+#define DM_EGID      0x020
+#define DM_GID       (DM_RGID|DM_EGID)
+#define DM_DELAY     0x100
+
+/*
+ * symbol creation flags, for use in gv_fetchpv() and get_*v()
+ */
+#define GV_ADD		0x01	/* add, if symbol not already there
+				   For gv_name_set, adding a HEK for the first
+				   time, so don't try to free what's there.  */
+#define GV_ADDMULTI	0x02	/* add, pretending it has been added
+				   already; used also by gv_init_* */
+#define GV_ADDWARN	0x04	/* add, but warn if symbol wasn't already there */
+		/*	0x08	   UNUSED */
+#define GV_NOINIT	0x10	/* add, but don't init symbol, if type != PVGV */
+/* This is used by toke.c to avoid turing placeholder constants in the symbol
+   table into full PVGVs with attached constant subroutines.  */
+#define GV_NOADD_NOINIT	0x20	/* Don't add the symbol if it's not there.
+				   Don't init it if it is there but ! PVGV */
+#define GV_NOEXPAND	0x40	/* Don't expand SvOK() entries to PVGV */
+#define GV_NOTQUAL	0x80	/* A plain symbol name, not qualified with a
+				   package (so skip checks for :: and ')  */
+#define GV_AUTOLOAD	0x100	/* gv_fetchmethod_flags() should AUTOLOAD  */
+#define GV_CROAK	0x200	/* gv_fetchmethod_flags() should croak  */
+#define GV_ADDMG	0x400	/* add if magical */
+#define GV_NO_SVGMAGIC	0x800	/* Skip get-magic on an SV argument;
+				   used only by gv_fetchsv(_nomg) */
+#define GV_CACHE_ONLY	0x1000  /* return stash only if found in cache;
+				   used only in flags parameter to gv_stash* family */
+
+/* Flags for gv_fetchmeth_pvn and gv_autoload_pvn*/
+#define GV_SUPER	0x1000	/* SUPER::method */
+
+/* Flags for gv_autoload_*/
+#define GV_AUTOLOAD_ISMETHOD 1	/* autoloading a method? */
+
+/*      SVf_UTF8 (more accurately the return value from SvUTF8) is also valid
+	as a flag to various gv_* functions, so ensure it lies
+	outside this range.
+*/
+
+#define GV_NOADD_MASK \
+  (SVf_UTF8|GV_NOADD_NOINIT|GV_NOEXPAND|GV_NOTQUAL|GV_ADDMG|GV_NO_SVGMAGIC)
+/* The bit flags that don't cause gv_fetchpv() to add a symbol if not
+   found (with the exception GV_ADDMG, which *might* cause the symbol
+   to be added) */
+
+#define gv_fullname3(sv,gv,prefix) gv_fullname4(sv,gv,prefix,TRUE)
+#define gv_efullname3(sv,gv,prefix) gv_efullname4(sv,gv,prefix,TRUE)
+#define gv_fetchmethod(stash, name) gv_fetchmethod_autoload(stash, name, TRUE)
+#define gv_fetchsv_nomg(n,f,t) gv_fetchsv(n,(f)|GV_NO_SVGMAGIC,t)
+#define gv_init(gv,stash,name,len,multi) \
+	gv_init_pvn(gv,stash,name,len,GV_ADDMULTI*!!(multi))
+#define gv_fetchmeth(stash,name,len,level) gv_fetchmeth_pvn(stash, name, len, level, 0)
+#define gv_fetchmeth_autoload(stash,name,len,level) gv_fetchmeth_pvn_autoload(stash, name, len, level, 0)
+#define gv_fetchmethod_flags(stash,name,flags) gv_fetchmethod_pv_flags(stash, name, flags)
+#define gv_autoload4(stash, name, len, method) \
+	gv_autoload_pvn(stash, name, len, !!(method))
+#define newGVgen(pack)  newGVgen_flags(pack, 0)
+#define gv_method_changed(gv)		    \
+    (					     \
+    	assert_(isGV_with_GP(gv))	      \
+	GvREFCNT(gv) > 1		       \
+	    ? (void)++PL_sub_generation		\
+	    : mro_method_changed_in(GvSTASH(gv)) \
+    )
+
+#define gv_AVadd(gv) gv_add_by_type((gv), SVt_PVAV)
+#define gv_HVadd(gv) gv_add_by_type((gv), SVt_PVHV)
+#define gv_IOadd(gv) gv_add_by_type((gv), SVt_PVIO)
+#define gv_SVadd(gv) gv_add_by_type((gv), SVt_NULL)
+
+/*
+ * ex: set ts=8 sts=4 sw=4 et:
+ */
diff --git a/lib/5.24.1/x86_64-linux/CORE/handy.h b/lib/5.24.1/x86_64-linux/CORE/handy.h
new file mode 100644
index 00000000..932a874c
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/handy.h
@@ -0,0 +1,2219 @@
+/*    handy.h
+ *
+ *    Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1999, 2000,
+ *    2001, 2002, 2004, 2005, 2006, 2007, 2008, 2012 by Larry Wall and others
+ *
+ *    You may distribute under the terms of either the GNU General Public
+ *    License or the Artistic License, as specified in the README file.
+ *
+ */
+
+/* IMPORTANT NOTE: Everything whose name begins with an underscore is for
+ * internal core Perl use only. */
+
+#ifndef HANDY_H /* Guard against nested #inclusion */
+#define HANDY_H
+
+#if !defined(__STDC__)
+#ifdef NULL
+#undef NULL
+#endif
+#  define NULL 0
+#endif
+
+#ifndef PERL_CORE
+#  define Null(type) ((type)NULL)
+
+/*
+=head1 Handy Values
+
+=for apidoc AmU||Nullch
+Null character pointer.  (No longer available when C<PERL_CORE> is
+defined.)
+
+=for apidoc AmU||Nullsv
+Null SV pointer.  (No longer available when C<PERL_CORE> is defined.)
+
+=cut
+*/
+
+#  define Nullch Null(char*)
+#  define Nullfp Null(PerlIO*)
+#  define Nullsv Null(SV*)
+#endif
+
+#ifdef TRUE
+#undef TRUE
+#endif
+#ifdef FALSE
+#undef FALSE
+#endif
+#define TRUE (1)
+#define FALSE (0)
+
+/* The MUTABLE_*() macros cast pointers to the types shown, in such a way
+ * (compiler permitting) that casting away const-ness will give a warning;
+ * e.g.:
+ *
+ * const SV *sv = ...;
+ * AV *av1 = (AV*)sv;        <== BAD:  the const has been silently cast away
+ * AV *av2 = MUTABLE_AV(sv); <== GOOD: it may warn
+ */
+
+#if defined(__GNUC__) && !defined(PERL_GCC_BRACE_GROUPS_FORBIDDEN)
+#  define MUTABLE_PTR(p) ({ void *_p = (p); _p; })
+#else
+#  define MUTABLE_PTR(p) ((void *) (p))
+#endif
+
+#define MUTABLE_AV(p)	((AV *)MUTABLE_PTR(p))
+#define MUTABLE_CV(p)	((CV *)MUTABLE_PTR(p))
+#define MUTABLE_GV(p)	((GV *)MUTABLE_PTR(p))
+#define MUTABLE_HV(p)	((HV *)MUTABLE_PTR(p))
+#define MUTABLE_IO(p)	((IO *)MUTABLE_PTR(p))
+#define MUTABLE_SV(p)	((SV *)MUTABLE_PTR(p))
+
+#if defined(I_STDBOOL) && !defined(PERL_BOOL_AS_CHAR)
+#  include <stdbool.h>
+#  ifndef HAS_BOOL
+#    define HAS_BOOL 1
+#  endif
+#endif
+
+/* bool is built-in for g++-2.6.3 and later, which might be used
+   for extensions.  <_G_config.h> defines _G_HAVE_BOOL, but we can't
+   be sure _G_config.h will be included before this file.  _G_config.h
+   also defines _G_HAVE_BOOL for both gcc and g++, but only g++
+   actually has bool.  Hence, _G_HAVE_BOOL is pretty useless for us.
+   g++ can be identified by __GNUG__.
+   Andy Dougherty	February 2000
+*/
+#ifdef __GNUG__		/* GNU g++ has bool built-in */
+# ifndef PERL_BOOL_AS_CHAR
+#  ifndef HAS_BOOL
+#    define HAS_BOOL 1
+#  endif
+# endif
+#endif
+
+#ifndef HAS_BOOL
+# ifdef bool
+#  undef bool
+# endif
+# define bool char
+# define HAS_BOOL 1
+#endif
+
+/* cast-to-bool.  A simple (bool) cast may not do the right thing: if bool is
+ * defined as char for example, then the cast from int is
+ * implementation-defined (bool)!!(cbool) in a ternary triggers a bug in xlc on
+ * AIX */
+#define cBOOL(cbool) ((cbool) ? (bool)1 : (bool)0)
+
+/* Try to figure out __func__ or __FUNCTION__ equivalent, if any.
+ * XXX Should really be a Configure probe, with HAS__FUNCTION__
+ *     and FUNCTION__ as results.
+ * XXX Similarly, a Configure probe for __FILE__ and __LINE__ is needed. */
+#if (defined(__STDC_VERSION__) && __STDC_VERSION__ >= 199901L) || (defined(__SUNPRO_C)) /* C99 or close enough. */
+#  define FUNCTION__ __func__
+#else
+#  if (defined(USING_MSVC6)) || /* MSVC6 has neither __func__ nor __FUNCTION and no good workarounds, either. */ \
+      (defined(__DECC_VER)) /* Tru64 or VMS, and strict C89 being used, but not modern enough cc (in Tur64, -c99 not known, only -std1). */
+#    define FUNCTION__ ""
+#  else
+#    define FUNCTION__ __FUNCTION__ /* Common extension. */
+#  endif
+#endif
+
+/* XXX A note on the perl source internal type system.  The
+   original intent was that I32 be *exactly* 32 bits.
+
+   Currently, we only guarantee that I32 is *at least* 32 bits.
+   Specifically, if int is 64 bits, then so is I32.  (This is the case
+   for the Cray.)  This has the advantage of meshing nicely with
+   standard library calls (where we pass an I32 and the library is
+   expecting an int), but the disadvantage that an I32 is not 32 bits.
+   Andy Dougherty	August 1996
+
+   There is no guarantee that there is *any* integral type with
+   exactly 32 bits.  It is perfectly legal for a system to have
+   sizeof(short) == sizeof(int) == sizeof(long) == 8.
+
+   Similarly, there is no guarantee that I16 and U16 have exactly 16
+   bits.
+
+   For dealing with issues that may arise from various 32/64-bit
+   systems, we will ask Configure to check out
+
+	SHORTSIZE == sizeof(short)
+	INTSIZE == sizeof(int)
+	LONGSIZE == sizeof(long)
+	LONGLONGSIZE == sizeof(long long) (if HAS_LONG_LONG)
+	PTRSIZE == sizeof(void *)
+	DOUBLESIZE == sizeof(double)
+	LONG_DOUBLESIZE == sizeof(long double) (if HAS_LONG_DOUBLE).
+
+*/
+
+#ifdef I_INTTYPES /* e.g. Linux has int64_t without <inttypes.h> */
+#   include <inttypes.h>
+#   ifdef INT32_MIN_BROKEN
+#       undef  INT32_MIN
+#       define INT32_MIN (-2147483647-1)
+#   endif
+#   ifdef INT64_MIN_BROKEN
+#       undef  INT64_MIN
+#       define INT64_MIN (-9223372036854775807LL-1)
+#   endif
+#endif
+
+typedef I8TYPE I8;
+typedef U8TYPE U8;
+typedef I16TYPE I16;
+typedef U16TYPE U16;
+typedef I32TYPE I32;
+typedef U32TYPE U32;
+
+#ifdef HAS_QUAD
+typedef I64TYPE I64;
+typedef U64TYPE U64;
+#endif
+
+/* INT64_C/UINT64_C are C99 from <stdint.h> (so they will not be
+ * available in strict C89 mode), but they are nice, so let's define
+ * them if necessary. */
+#if defined(HAS_QUAD)
+#  undef PeRl_INT64_C
+#  undef PeRl_UINT64_C
+/* Prefer the native integer types (int and long) over long long
+ * (which is not C89) and Win32-specific __int64. */
+#  if QUADKIND == QUAD_IS_INT && INTSIZE == 8
+#    define PeRl_INT64_C(c)	(c)
+#    define PeRl_UINT64_C(c)	CAT2(c,U)
+#  endif
+#  if QUADKIND == QUAD_IS_LONG && LONGSIZE == 8
+#    define PeRl_INT64_C(c)	CAT2(c,L)
+#    define PeRl_UINT64_C(c)	CAT2(c,UL)
+#  endif
+#  if QUADKIND == QUAD_IS_LONG_LONG && defined(HAS_LONG_LONG)
+#    define PeRl_INT64_C(c)	CAT2(c,LL)
+#    define PeRl_UINT64_C(c)	CAT2(c,ULL)
+#  endif
+#  if QUADKIND == QUAD_IS___INT64
+#    define PeRl_INT64_C(c)	CAT2(c,I64)
+#    define PeRl_UINT64_C(c)	CAT2(c,UI64)
+#  endif
+#  ifndef PeRl_INT64_C
+#    define PeRl_INT64_C(c)	((I64)(c)) /* last resort */
+#    define PeRl_UINT64_C(c)	((U64)(c))
+#  endif
+/* In OS X the INT64_C/UINT64_C are defined with LL/ULL, which will
+ * not fly with C89-pedantic gcc, so let's undefine them first so that
+ * we can redefine them with our native integer preferring versions. */
+#  if defined(PERL_DARWIN) && defined(PERL_GCC_PEDANTIC)
+#    undef INT64_C
+#    undef UINT64_C
+#  endif
+#  ifndef INT64_C
+#    define INT64_C(c) PeRl_INT64_C(c)
+#  endif
+#  ifndef UINT64_C
+#    define UINT64_C(c) PeRl_UINT64_C(c)
+#  endif
+#endif
+
+#if defined(UINT8_MAX) && defined(INT16_MAX) && defined(INT32_MAX)
+
+/* I8_MAX and I8_MIN constants are not defined, as I8 is an ambiguous type.
+   Please search CHAR_MAX in perl.h for further details. */
+#define U8_MAX UINT8_MAX
+#define U8_MIN UINT8_MIN
+
+#define I16_MAX INT16_MAX
+#define I16_MIN INT16_MIN
+#define U16_MAX UINT16_MAX
+#define U16_MIN UINT16_MIN
+
+#define I32_MAX INT32_MAX
+#define I32_MIN INT32_MIN
+#ifndef UINT32_MAX_BROKEN /* e.g. HP-UX with gcc messes this up */
+#  define U32_MAX UINT32_MAX
+#else
+#  define U32_MAX 4294967295U
+#endif
+#define U32_MIN UINT32_MIN
+
+#else
+
+/* I8_MAX and I8_MIN constants are not defined, as I8 is an ambiguous type.
+   Please search CHAR_MAX in perl.h for further details. */
+#define U8_MAX PERL_UCHAR_MAX
+#define U8_MIN PERL_UCHAR_MIN
+
+#define I16_MAX PERL_SHORT_MAX
+#define I16_MIN PERL_SHORT_MIN
+#define U16_MAX PERL_USHORT_MAX
+#define U16_MIN PERL_USHORT_MIN
+
+#if LONGSIZE > 4
+# define I32_MAX PERL_INT_MAX
+# define I32_MIN PERL_INT_MIN
+# define U32_MAX PERL_UINT_MAX
+# define U32_MIN PERL_UINT_MIN
+#else
+# define I32_MAX PERL_LONG_MAX
+# define I32_MIN PERL_LONG_MIN
+# define U32_MAX PERL_ULONG_MAX
+# define U32_MIN PERL_ULONG_MIN
+#endif
+
+#endif
+
+/* log(2) is pretty close to  0.30103, just in case anyone is grepping for it */
+#define BIT_DIGITS(N)   (((N)*146)/485 + 1)  /* log2(10) =~ 146/485 */
+#define TYPE_DIGITS(T)  BIT_DIGITS(sizeof(T) * 8)
+#define TYPE_CHARS(T)   (TYPE_DIGITS(T) + 2) /* sign, NUL */
+
+/* Unused by core; should be deprecated */
+#define Ctl(ch) ((ch) & 037)
+
+/* This is a helper macro to avoid preprocessor issues, replaced by nothing
+ * unless under DEBUGGING, where it expands to an assert of its argument,
+ * followed by a comma (hence the comma operator).  If we just used a straight
+ * assert(), we would get a comma with nothing before it when not DEBUGGING.
+ *
+ * We also use empty definition under Coverity since the __ASSERT__
+ * checks often check for things that Really Cannot Happen, and Coverity
+ * detects that and gets all excited. */
+
+#if defined(DEBUGGING) && !defined(__COVERITY__)
+#   define __ASSERT_(statement)  assert(statement),
+#else
+#   define __ASSERT_(statement)
+#endif
+
+/*
+=head1 SV-Body Allocation
+
+=for apidoc Ama|SV*|newSVpvs|const char* s
+Like C<newSVpvn>, but takes a C<NUL>-terminated literal string instead of a
+string/length pair.
+
+=for apidoc Ama|SV*|newSVpvs_flags|const char* s|U32 flags
+Like C<newSVpvn_flags>, but takes a C<NUL>-terminated literal string instead of
+a string/length pair.
+
+=for apidoc Ama|SV*|newSVpvs_share|const char* s
+Like C<newSVpvn_share>, but takes a C<NUL>-terminated literal string instead of
+a string/length pair and omits the hash parameter.
+
+=for apidoc Am|void|sv_catpvs_flags|SV* sv|const char* s|I32 flags
+Like C<sv_catpvn_flags>, but takes a C<NUL>-terminated literal string instead
+of a string/length pair.
+
+=for apidoc Am|void|sv_catpvs_nomg|SV* sv|const char* s
+Like C<sv_catpvn_nomg>, but takes a C<NUL>-terminated literal string instead of
+a string/length pair.
+
+=for apidoc Am|void|sv_catpvs|SV* sv|const char* s
+Like C<sv_catpvn>, but takes a C<NUL>-terminated literal string instead of a
+string/length pair.
+
+=for apidoc Am|void|sv_catpvs_mg|SV* sv|const char* s
+Like C<sv_catpvn_mg>, but takes a C<NUL>-terminated literal string instead of a
+string/length pair.
+
+=for apidoc Am|void|sv_setpvs|SV* sv|const char* s
+Like C<sv_setpvn>, but takes a C<NUL>-terminated literal string instead of a
+string/length pair.
+
+=for apidoc Am|void|sv_setpvs_mg|SV* sv|const char* s
+Like C<sv_setpvn_mg>, but takes a C<NUL>-terminated literal string instead of a
+string/length pair.
+
+=for apidoc Am|SV *|sv_setref_pvs|const char* s
+Like C<sv_setref_pvn>, but takes a C<NUL>-terminated literal string instead of
+a string/length pair.
+
+=head1 Memory Management
+
+=for apidoc Ama|char*|savepvs|const char* s
+Like C<savepvn>, but takes a C<NUL>-terminated literal string instead of a
+string/length pair.
+
+=for apidoc Ama|char*|savesharedpvs|const char* s
+A version of C<savepvs()> which allocates the duplicate string in memory
+which is shared between threads.
+
+=head1 GV Functions
+
+=for apidoc Am|HV*|gv_stashpvs|const char* name|I32 create
+Like C<gv_stashpvn>, but takes a C<NUL>-terminated literal string instead of a
+string/length pair.
+
+=head1 Hash Manipulation Functions
+
+=for apidoc Am|SV**|hv_fetchs|HV* tb|const char* key|I32 lval
+Like C<hv_fetch>, but takes a C<NUL>-terminated literal string instead of a
+string/length pair.
+
+=for apidoc Am|SV**|hv_stores|HV* tb|const char* key|NULLOK SV* val
+Like C<hv_store>, but takes a C<NUL>-terminated literal string instead of a
+string/length pair
+and omits the hash parameter.
+
+=head1 Lexer interface
+
+=for apidoc Amx|void|lex_stuff_pvs|const char *pv|U32 flags
+
+Like L</lex_stuff_pvn>, but takes a C<NUL>-terminated literal string instead of
+a string/length pair.
+
+=cut
+*/
+
+/* concatenating with "" ensures that only literal strings are accepted as
+ * argument */
+#define STR_WITH_LEN(s)  ("" s ""), (sizeof(s)-1)
+
+/* note that STR_WITH_LEN() can't be used as argument to macros or functions
+ * that under some configurations might be macros, which means that it requires
+ * the full Perl_xxx(aTHX_ ...) form for any API calls where it's used.
+ */
+
+/* STR_WITH_LEN() shortcuts */
+#define newSVpvs(str) Perl_newSVpvn(aTHX_ STR_WITH_LEN(str))
+#define newSVpvs_flags(str,flags)	\
+    Perl_newSVpvn_flags(aTHX_ STR_WITH_LEN(str), flags)
+#define newSVpvs_share(str) Perl_newSVpvn_share(aTHX_ STR_WITH_LEN(str), 0)
+#define sv_catpvs_flags(sv, str, flags) \
+    Perl_sv_catpvn_flags(aTHX_ sv, STR_WITH_LEN(str), flags)
+#define sv_catpvs_nomg(sv, str) \
+    Perl_sv_catpvn_flags(aTHX_ sv, STR_WITH_LEN(str), 0)
+#define sv_catpvs(sv, str) \
+    Perl_sv_catpvn_flags(aTHX_ sv, STR_WITH_LEN(str), SV_GMAGIC)
+#define sv_catpvs_mg(sv, str) \
+    Perl_sv_catpvn_flags(aTHX_ sv, STR_WITH_LEN(str), SV_GMAGIC|SV_SMAGIC)
+#define sv_setpvs(sv, str) Perl_sv_setpvn(aTHX_ sv, STR_WITH_LEN(str))
+#define sv_setpvs_mg(sv, str) Perl_sv_setpvn_mg(aTHX_ sv, STR_WITH_LEN(str))
+#define sv_setref_pvs(rv, classname, str) \
+    Perl_sv_setref_pvn(aTHX_ rv, classname, STR_WITH_LEN(str))
+#define savepvs(str) Perl_savepvn(aTHX_ STR_WITH_LEN(str))
+#define savesharedpvs(str) Perl_savesharedpvn(aTHX_ STR_WITH_LEN(str))
+#define gv_stashpvs(str, create) \
+    Perl_gv_stashpvn(aTHX_ STR_WITH_LEN(str), create)
+#define gv_fetchpvs(namebeg, add, sv_type) \
+    Perl_gv_fetchpvn_flags(aTHX_ STR_WITH_LEN(namebeg), add, sv_type)
+#define gv_fetchpvn(namebeg, len, add, sv_type) \
+    Perl_gv_fetchpvn_flags(aTHX_ namebeg, len, add, sv_type)
+#define sv_catxmlpvs(dsv, str, utf8) \
+    Perl_sv_catxmlpvn(aTHX_ dsv, STR_WITH_LEN(str), utf8)
+#define hv_fetchs(hv,key,lval)						\
+  ((SV **)Perl_hv_common(aTHX_ (hv), NULL, STR_WITH_LEN(key), 0,	\
+			 (lval) ? (HV_FETCH_JUST_SV | HV_FETCH_LVALUE)	\
+			 : HV_FETCH_JUST_SV, NULL, 0))
+
+#define hv_stores(hv,key,val)						\
+  ((SV **)Perl_hv_common(aTHX_ (hv), NULL, STR_WITH_LEN(key), 0,	\
+			 (HV_FETCH_ISSTORE|HV_FETCH_JUST_SV), (val), 0))
+
+#define lex_stuff_pvs(pv,flags) Perl_lex_stuff_pvn(aTHX_ STR_WITH_LEN(pv), flags)
+
+#define get_cvs(str, flags)					\
+	Perl_get_cvn_flags(aTHX_ STR_WITH_LEN(str), (flags))
+
+/*
+=head1 Miscellaneous Functions
+
+=for apidoc Am|bool|strNE|char* s1|char* s2
+Test two C<NUL>-terminated strings to see if they are different.  Returns true
+or false.
+
+=for apidoc Am|bool|strEQ|char* s1|char* s2
+Test two C<NUL>-terminated strings to see if they are equal.  Returns true or
+false.
+
+=for apidoc Am|bool|strLT|char* s1|char* s2
+Test two C<NUL>-terminated strings to see if the first, C<s1>, is less than the
+second, C<s2>.  Returns true or false.
+
+=for apidoc Am|bool|strLE|char* s1|char* s2
+Test two C<NUL>-terminated strings to see if the first, C<s1>, is less than or
+equal to the second, C<s2>.  Returns true or false.
+
+=for apidoc Am|bool|strGT|char* s1|char* s2
+Test two C<NUL>-terminated strings to see if the first, C<s1>, is greater than
+the second, C<s2>.  Returns true or false.
+
+=for apidoc Am|bool|strGE|char* s1|char* s2
+Test two C<NUL>-terminated strings to see if the first, C<s1>, is greater than
+or equal to the second, C<s2>.  Returns true or false.
+
+=for apidoc Am|bool|strnNE|char* s1|char* s2|STRLEN len
+Test two C<NUL>-terminated strings to see if they are different.  The C<len>
+parameter indicates the number of bytes to compare.  Returns true or false.  (A
+wrapper for C<strncmp>).
+
+=for apidoc Am|bool|strnEQ|char* s1|char* s2|STRLEN len
+Test two C<NUL>-terminated strings to see if they are equal.  The C<len>
+parameter indicates the number of bytes to compare.  Returns true or false.  (A
+wrapper for C<strncmp>).
+
+=for apidoc Am|bool|memEQ|char* s1|char* s2|STRLEN len
+Test two buffers (which may contain embedded C<NUL> characters, to see if they
+are equal.  The C<len> parameter indicates the number of bytes to compare.
+Returns zero if equal, or non-zero if non-equal.
+
+=for apidoc Am|bool|memNE|char* s1|char* s2|STRLEN len
+Test two buffers (which may contain embedded C<NUL> characters, to see if they
+are not equal.  The C<len> parameter indicates the number of bytes to compare.
+Returns zero if non-equal, or non-zero if equal.
+
+=cut
+*/
+
+#define strNE(s1,s2) (strcmp(s1,s2))
+#define strEQ(s1,s2) (!strcmp(s1,s2))
+#define strLT(s1,s2) (strcmp(s1,s2) < 0)
+#define strLE(s1,s2) (strcmp(s1,s2) <= 0)
+#define strGT(s1,s2) (strcmp(s1,s2) > 0)
+#define strGE(s1,s2) (strcmp(s1,s2) >= 0)
+#define strnNE(s1,s2,l) (strncmp(s1,s2,l))
+#define strnEQ(s1,s2,l) (!strncmp(s1,s2,l))
+
+#ifdef HAS_MEMCMP
+#  define memNE(s1,s2,l) (memcmp(s1,s2,l))
+#  define memEQ(s1,s2,l) (!memcmp(s1,s2,l))
+#else
+#  define memNE(s1,s2,l) (bcmp(s1,s2,l))
+#  define memEQ(s1,s2,l) (!bcmp(s1,s2,l))
+#endif
+
+#define memEQs(s1, l, s2) \
+	(sizeof(s2)-1 == l && memEQ(s1, ("" s2 ""), (sizeof(s2)-1)))
+#define memNEs(s1, l, s2) !memEQs(s1, l, s2)
+
+/*
+ * Character classes.
+ *
+ * Unfortunately, the introduction of locales means that we
+ * can't trust isupper(), etc. to tell the truth.  And when
+ * it comes to /\w+/ with tainting enabled, we *must* be able
+ * to trust our character classes.
+ *
+ * Therefore, the default tests in the text of Perl will be
+ * independent of locale.  Any code that wants to depend on
+ * the current locale will use the tests that begin with "lc".
+ */
+
+#ifdef HAS_SETLOCALE  /* XXX Is there a better test for this? */
+#  ifndef CTYPE256
+#    define CTYPE256
+#  endif
+#endif
+
+/*
+
+=head1 Character classification
+This section is about functions (really macros) that classify characters
+into types, such as punctuation versus alphabetic, etc.  Most of these are
+analogous to regular expression character classes.  (See
+L<perlrecharclass/POSIX Character Classes>.)  There are several variants for
+each class.  (Not all macros have all variants; each item below lists the
+ones valid for it.)  None are affected by C<use bytes>, and only the ones
+with C<LC> in the name are affected by the current locale.
+
+The base function, e.g., C<isALPHA()>, takes an octet (either a C<char> or a
+C<U8>) as input and returns a boolean as to whether or not the character
+represented by that octet is (or on non-ASCII platforms, corresponds to) an
+ASCII character in the named class based on platform, Unicode, and Perl rules.
+If the input is a number that doesn't fit in an octet, FALSE is returned.
+
+Variant C<isFOO_A> (e.g., C<isALPHA_A()>) is identical to the base function
+with no suffix C<"_A">.
+
+Variant C<isFOO_L1> imposes the Latin-1 (or EBCDIC equivlalent) character set
+onto the platform.  That is, the code points that are ASCII are unaffected,
+since ASCII is a subset of Latin-1.  But the non-ASCII code points are treated
+as if they are Latin-1 characters.  For example, C<isWORDCHAR_L1()> will return
+true when called with the code point 0xDF, which is a word character in both
+ASCII and EBCDIC (though it represents different characters in each).
+
+Variant C<isFOO_uvchr> is like the C<isFOO_L1> variant, but accepts any UV code
+point as input.  If the code point is larger than 255, Unicode rules are used
+to determine if it is in the character class.  For example,
+C<isWORDCHAR_uvchr(0x100)> returns TRUE, since 0x100 is LATIN CAPITAL LETTER A
+WITH MACRON in Unicode, and is a word character.
+
+Variant C<isFOO_utf8> is like C<isFOO_uvchr>, but the input is a pointer to a
+(known to be well-formed) UTF-8 encoded string (C<U8*> or C<char*>, and
+possibly containing embedded C<NUL> characters).  The classification of just
+the first (possibly multi-byte) character in the string is tested.
+
+Variant C<isFOO_LC> is like the C<isFOO_A> and C<isFOO_L1> variants, but the
+result is based on the current locale, which is what C<LC> in the name stands
+for.  If Perl can determine that the current locale is a UTF-8 locale, it uses
+the published Unicode rules; otherwise, it uses the C library function that
+gives the named classification.  For example, C<isDIGIT_LC()> when not in a
+UTF-8 locale returns the result of calling C<isdigit()>.  FALSE is always
+returned if the input won't fit into an octet.  On some platforms where the C
+library function is known to be defective, Perl changes its result to follow
+the POSIX standard's rules.
+
+Variant C<isFOO_LC_uvchr> is like C<isFOO_LC>, but is defined on any UV.  It
+returns the same as C<isFOO_LC> for input code points less than 256, and
+returns the hard-coded, not-affected-by-locale, Unicode results for larger ones.
+
+Variant C<isFOO_LC_utf8> is like C<isFOO_LC_uvchr>, but the input is a pointer
+to a (known to be well-formed) UTF-8 encoded string (C<U8*> or C<char*>, and
+possibly containing embedded C<NUL> characters).  The classification of just
+the first (possibly multi-byte) character in the string is tested.
+
+=for apidoc Am|bool|isALPHA|char ch
+Returns a boolean indicating whether the specified character is an
+alphabetic character, analogous to C<m/[[:alpha:]]/>.
+See the L<top of this section|/Character classification> for an explanation of
+variants
+C<isALPHA_A>, C<isALPHA_L1>, C<isALPHA_uvchr>, C<isALPHA_utf8>, C<isALPHA_LC>,
+C<isALPHA_LC_uvchr>, and C<isALPHA_LC_utf8>.
+
+=for apidoc Am|bool|isALPHANUMERIC|char ch
+Returns a boolean indicating whether the specified character is a either an
+alphabetic character or decimal digit, analogous to C<m/[[:alnum:]]/>.
+See the L<top of this section|/Character classification> for an explanation of
+variants
+C<isALPHANUMERIC_A>, C<isALPHANUMERIC_L1>, C<isALPHANUMERIC_uvchr>,
+C<isALPHANUMERIC_utf8>, C<isALPHANUMERIC_LC>, C<isALPHANUMERIC_LC_uvchr>, and
+C<isALPHANUMERIC_LC_utf8>.
+
+=for apidoc Am|bool|isASCII|char ch
+Returns a boolean indicating whether the specified character is one of the 128
+characters in the ASCII character set, analogous to C<m/[[:ascii:]]/>.
+On non-ASCII platforms, it returns TRUE iff this
+character corresponds to an ASCII character.  Variants C<isASCII_A()> and
+C<isASCII_L1()> are identical to C<isASCII()>.
+See the L<top of this section|/Character classification> for an explanation of
+variants
+C<isASCII_uvchr>, C<isASCII_utf8>, C<isASCII_LC>, C<isASCII_LC_uvchr>, and
+C<isASCII_LC_utf8>.  Note, however, that some platforms do not have the C
+library routine C<isascii()>.  In these cases, the variants whose names contain
+C<LC> are the same as the corresponding ones without.
+
+Also note, that because all ASCII characters are UTF-8 invariant (meaning they
+have the exact same representation (always a single byte) whether encoded in
+UTF-8 or not), C<isASCII> will give the correct results when called with any
+byte in any string encoded or not in UTF-8.  And similarly C<isASCII_utf8> will
+work properly on any string encoded or not in UTF-8.
+
+=for apidoc Am|bool|isBLANK|char ch
+Returns a boolean indicating whether the specified character is a
+character considered to be a blank, analogous to C<m/[[:blank:]]/>.
+See the L<top of this section|/Character classification> for an explanation of
+variants
+C<isBLANK_A>, C<isBLANK_L1>, C<isBLANK_uvchr>, C<isBLANK_utf8>, C<isBLANK_LC>,
+C<isBLANK_LC_uvchr>, and C<isBLANK_LC_utf8>.  Note, however, that some
+platforms do not have the C library routine C<isblank()>.  In these cases, the
+variants whose names contain C<LC> are the same as the corresponding ones
+without.
+
+=for apidoc Am|bool|isCNTRL|char ch
+Returns a boolean indicating whether the specified character is a
+control character, analogous to C<m/[[:cntrl:]]/>.
+See the L<top of this section|/Character classification> for an explanation of
+variants
+C<isCNTRL_A>, C<isCNTRL_L1>, C<isCNTRL_uvchr>, C<isCNTRL_utf8>, C<isCNTRL_LC>,
+C<isCNTRL_LC_uvchr>, and C<isCNTRL_LC_utf8>
+On EBCDIC platforms, you almost always want to use the C<isCNTRL_L1> variant.
+
+=for apidoc Am|bool|isDIGIT|char ch
+Returns a boolean indicating whether the specified character is a
+digit, analogous to C<m/[[:digit:]]/>.
+Variants C<isDIGIT_A> and C<isDIGIT_L1> are identical to C<isDIGIT>.
+See the L<top of this section|/Character classification> for an explanation of
+variants
+C<isDIGIT_uvchr>, C<isDIGIT_utf8>, C<isDIGIT_LC>, C<isDIGIT_LC_uvchr>, and
+C<isDIGIT_LC_utf8>.
+
+=for apidoc Am|bool|isGRAPH|char ch
+Returns a boolean indicating whether the specified character is a
+graphic character, analogous to C<m/[[:graph:]]/>.
+See the L<top of this section|/Character classification> for an explanation of
+variants
+C<isGRAPH_A>, C<isGRAPH_L1>, C<isGRAPH_uvchr>, C<isGRAPH_utf8>, C<isGRAPH_LC>,
+C<isGRAPH_LC_uvchr>, and C<isGRAPH_LC_utf8>.
+
+=for apidoc Am|bool|isLOWER|char ch
+Returns a boolean indicating whether the specified character is a
+lowercase character, analogous to C<m/[[:lower:]]/>.
+See the L<top of this section|/Character classification> for an explanation of
+variants
+C<isLOWER_A>, C<isLOWER_L1>, C<isLOWER_uvchr>, C<isLOWER_utf8>, C<isLOWER_LC>,
+C<isLOWER_LC_uvchr>, and C<isLOWER_LC_utf8>.
+
+=for apidoc Am|bool|isOCTAL|char ch
+Returns a boolean indicating whether the specified character is an
+octal digit, [0-7].
+The only two variants are C<isOCTAL_A> and C<isOCTAL_L1>; each is identical to
+C<isOCTAL>.
+
+=for apidoc Am|bool|isPUNCT|char ch
+Returns a boolean indicating whether the specified character is a
+punctuation character, analogous to C<m/[[:punct:]]/>.
+Note that the definition of what is punctuation isn't as
+straightforward as one might desire.  See L<perlrecharclass/POSIX Character
+Classes> for details.
+See the L<top of this section|/Character classification> for an explanation of
+variants
+C<isPUNCT_A>, C<isPUNCT_L1>, C<isPUNCT_uvchr>, C<isPUNCT_utf8>, C<isPUNCT_LC>,
+C<isPUNCT_LC_uvchr>, and C<isPUNCT_LC_utf8>.
+
+=for apidoc Am|bool|isSPACE|char ch
+Returns a boolean indicating whether the specified character is a
+whitespace character.  This is analogous
+to what C<m/\s/> matches in a regular expression.  Starting in Perl 5.18
+this also matches what C<m/[[:space:]]/> does.  Prior to 5.18, only the
+locale forms of this macro (the ones with C<LC> in their names) matched
+precisely what C<m/[[:space:]]/> does.  In those releases, the only difference,
+in the non-locale variants, was that C<isSPACE()> did not match a vertical tab.
+(See L</isPSXSPC> for a macro that matches a vertical tab in all releases.)
+See the L<top of this section|/Character classification> for an explanation of
+variants
+C<isSPACE_A>, C<isSPACE_L1>, C<isSPACE_uvchr>, C<isSPACE_utf8>, C<isSPACE_LC>,
+C<isSPACE_LC_uvchr>, and C<isSPACE_LC_utf8>.
+
+=for apidoc Am|bool|isPSXSPC|char ch
+(short for Posix Space)
+Starting in 5.18, this is identical in all its forms to the
+corresponding C<isSPACE()> macros.
+The locale forms of this macro are identical to their corresponding
+C<isSPACE()> forms in all Perl releases.  In releases prior to 5.18, the
+non-locale forms differ from their C<isSPACE()> forms only in that the
+C<isSPACE()> forms don't match a Vertical Tab, and the C<isPSXSPC()> forms do.
+Otherwise they are identical.  Thus this macro is analogous to what
+C<m/[[:space:]]/> matches in a regular expression.
+See the L<top of this section|/Character classification> for an explanation of
+variants C<isPSXSPC_A>, C<isPSXSPC_L1>, C<isPSXSPC_uvchr>, C<isPSXSPC_utf8>,
+C<isPSXSPC_LC>, C<isPSXSPC_LC_uvchr>, and C<isPSXSPC_LC_utf8>.
+
+=for apidoc Am|bool|isUPPER|char ch
+Returns a boolean indicating whether the specified character is an
+uppercase character, analogous to C<m/[[:upper:]]/>.
+See the L<top of this section|/Character classification> for an explanation of
+variants
+C<isUPPER_A>, C<isUPPER_L1>, C<isUPPER_uvchr>, C<isUPPER_utf8>, C<isUPPER_LC>,
+C<isUPPER_LC_uvchr>, and C<isUPPER_LC_utf8>.
+
+=for apidoc Am|bool|isPRINT|char ch
+Returns a boolean indicating whether the specified character is a
+printable character, analogous to C<m/[[:print:]]/>.
+See the L<top of this section|/Character classification> for an explanation of
+variants
+C<isPRINT_A>, C<isPRINT_L1>, C<isPRINT_uvchr>, C<isPRINT_utf8>, C<isPRINT_LC>,
+C<isPRINT_LC_uvchr>, and C<isPRINT_LC_utf8>.
+
+=for apidoc Am|bool|isWORDCHAR|char ch
+Returns a boolean indicating whether the specified character is a character
+that is a word character, analogous to what C<m/\w/> and C<m/[[:word:]]/> match
+in a regular expression.  A word character is an alphabetic character, a
+decimal digit, a connecting punctuation character (such as an underscore), or
+a "mark" character that attaches to one of those (like some sort of accent).
+C<isALNUM()> is a synonym provided for backward compatibility, even though a
+word character includes more than the standard C language meaning of
+alphanumeric.
+See the L<top of this section|/Character classification> for an explanation of
+variants
+C<isWORDCHAR_A>, C<isWORDCHAR_L1>, C<isWORDCHAR_uvchr>, and C<isWORDCHAR_utf8>.
+C<isWORDCHAR_LC>, C<isWORDCHAR_LC_uvchr>, and C<isWORDCHAR_LC_utf8> are also as
+described there, but additionally include the platform's native underscore.
+
+=for apidoc Am|bool|isXDIGIT|char ch
+Returns a boolean indicating whether the specified character is a hexadecimal
+digit.  In the ASCII range these are C<[0-9A-Fa-f]>.  Variants C<isXDIGIT_A()>
+and C<isXDIGIT_L1()> are identical to C<isXDIGIT()>.
+See the L<top of this section|/Character classification> for an explanation of
+variants
+C<isXDIGIT_uvchr>, C<isXDIGIT_utf8>, C<isXDIGIT_LC>, C<isXDIGIT_LC_uvchr>, and
+C<isXDIGIT_LC_utf8>.
+
+=for apidoc Am|bool|isIDFIRST|char ch
+Returns a boolean indicating whether the specified character can be the first
+character of an identifier.  This is very close to, but not quite the same as
+the official Unicode property C<XID_Start>.  The difference is that this
+returns true only if the input character also matches L</isWORDCHAR>.
+See the L<top of this section|/Character classification> for an explanation of
+variants
+C<isIDFIRST_A>, C<isIDFIRST_L1>, C<isIDFIRST_uvchr>, C<isIDFIRST_utf8>,
+C<isIDFIRST_LC>, C<isIDFIRST_LC_uvchr>, and C<isIDFIRST_LC_utf8>.
+
+=for apidoc Am|bool|isIDCONT|char ch
+Returns a boolean indicating whether the specified character can be the
+second or succeeding character of an identifier.  This is very close to, but
+not quite the same as the official Unicode property C<XID_Continue>.  The
+difference is that this returns true only if the input character also matches
+L</isWORDCHAR>.  See the L<top of this section|/Character classification> for
+an
+explanation of variants C<isIDCONT_A>, C<isIDCONT_L1>, C<isIDCONT_uvchr>,
+C<isIDCONT_utf8>, C<isIDCONT_LC>, C<isIDCONT_LC_uvchr>, and
+C<isIDCONT_LC_utf8>.
+
+=head1 Miscellaneous Functions
+
+=for apidoc Am|U8|READ_XDIGIT|char str*
+Returns the value of an ASCII-range hex digit and advances the string pointer.
+Behaviour is only well defined when isXDIGIT(*str) is true.
+
+=head1 Character case changing
+
+=for apidoc Am|U8|toUPPER|U8 ch
+Converts the specified character to uppercase.  If the input is anything but an
+ASCII lowercase character, that input character itself is returned.  Variant
+C<toUPPER_A> is equivalent.
+
+=for apidoc Am|UV|toUPPER_uvchr|UV cp|U8* s|STRLEN* lenp
+Converts the code point C<cp> to its uppercase version, and
+stores that in UTF-8 in C<s>, and its length in bytes in C<lenp>.  The code
+point is interpreted as native if less than 256; otherwise as Unicode.  Note
+that the buffer pointed to by C<s> needs to be at least C<UTF8_MAXBYTES_CASE+1>
+bytes since the uppercase version may be longer than the original character.
+
+The first code point of the uppercased version is returned
+(but note, as explained just above, that there may be more.)
+
+=for apidoc Am|UV|toUPPER_utf8|U8* p|U8* s|STRLEN* lenp
+Converts the UTF-8 encoded character at C<p> to its uppercase version, and
+stores that in UTF-8 in C<s>, and its length in bytes in C<lenp>.  Note
+that the buffer pointed to by C<s> needs to be at least C<UTF8_MAXBYTES_CASE+1>
+bytes since the uppercase version may be longer than the original character.
+
+The first code point of the uppercased version is returned
+(but note, as explained just above, that there may be more.)
+
+The input character at C<p> is assumed to be well-formed.
+
+=for apidoc Am|U8|toFOLD|U8 ch
+Converts the specified character to foldcase.  If the input is anything but an
+ASCII uppercase character, that input character itself is returned.  Variant
+C<toFOLD_A> is equivalent.  (There is no equivalent C<to_FOLD_L1> for the full
+Latin1 range, as the full generality of L</toFOLD_uvchr> is needed there.)
+
+=for apidoc Am|UV|toFOLD_uvchr|UV cp|U8* s|STRLEN* lenp
+Converts the code point C<cp> to its foldcase version, and
+stores that in UTF-8 in C<s>, and its length in bytes in C<lenp>.  The code
+point is interpreted as native if less than 256; otherwise as Unicode.  Note
+that the buffer pointed to by C<s> needs to be at least C<UTF8_MAXBYTES_CASE+1>
+bytes since the foldcase version may be longer than the original character.
+
+The first code point of the foldcased version is returned
+(but note, as explained just above, that there may be more.)
+
+=for apidoc Am|UV|toFOLD_utf8|U8* p|U8* s|STRLEN* lenp
+Converts the UTF-8 encoded character at C<p> to its foldcase version, and
+stores that in UTF-8 in C<s>, and its length in bytes in C<lenp>.  Note
+that the buffer pointed to by C<s> needs to be at least C<UTF8_MAXBYTES_CASE+1>
+bytes since the foldcase version may be longer than the original character.
+
+The first code point of the foldcased version is returned
+(but note, as explained just above, that there may be more.)
+
+The input character at C<p> is assumed to be well-formed.
+
+=for apidoc Am|U8|toLOWER|U8 ch
+Converts the specified character to lowercase.  If the input is anything but an
+ASCII uppercase character, that input character itself is returned.  Variant
+C<toLOWER_A> is equivalent.
+
+=for apidoc Am|U8|toLOWER_L1|U8 ch
+Converts the specified Latin1 character to lowercase.  The results are
+undefined if the input doesn't fit in a byte.
+
+=for apidoc Am|U8|toLOWER_LC|U8 ch
+Converts the specified character to lowercase using the current locale's rules,
+if possible; otherwise returns the input character itself.
+
+=for apidoc Am|UV|toLOWER_uvchr|UV cp|U8* s|STRLEN* lenp
+Converts the code point C<cp> to its lowercase version, and
+stores that in UTF-8 in C<s>, and its length in bytes in C<lenp>.  The code
+point is interpreted as native if less than 256; otherwise as Unicode.  Note
+that the buffer pointed to by C<s> needs to be at least C<UTF8_MAXBYTES_CASE+1>
+bytes since the lowercase version may be longer than the original character.
+
+The first code point of the lowercased version is returned
+(but note, as explained just above, that there may be more.)
+
+=for apidoc Am|UV|toLOWER_utf8|U8* p|U8* s|STRLEN* lenp
+Converts the UTF-8 encoded character at C<p> to its lowercase version, and
+stores that in UTF-8 in C<s>, and its length in bytes in C<lenp>.  Note
+that the buffer pointed to by C<s> needs to be at least C<UTF8_MAXBYTES_CASE+1>
+bytes since the lowercase version may be longer than the original character.
+
+The first code point of the lowercased version is returned
+(but note, as explained just above, that there may be more.)
+
+The input character at C<p> is assumed to be well-formed.
+
+=for apidoc Am|U8|toTITLE|U8 ch
+Converts the specified character to titlecase.  If the input is anything but an
+ASCII lowercase character, that input character itself is returned.  Variant
+C<toTITLE_A> is equivalent.  (There is no C<toTITLE_L1> for the full Latin1
+range, as the full generality of L</toTITLE_uvchr> is needed there.  Titlecase is
+not a concept used in locale handling, so there is no functionality for that.)
+
+=for apidoc Am|UV|toTITLE_uvchr|UV cp|U8* s|STRLEN* lenp
+Converts the code point C<cp> to its titlecase version, and
+stores that in UTF-8 in C<s>, and its length in bytes in C<lenp>.  The code
+point is interpreted as native if less than 256; otherwise as Unicode.  Note
+that the buffer pointed to by C<s> needs to be at least C<UTF8_MAXBYTES_CASE+1>
+bytes since the titlecase version may be longer than the original character.
+
+The first code point of the titlecased version is returned
+(but note, as explained just above, that there may be more.)
+
+=for apidoc Am|UV|toTITLE_utf8|U8* p|U8* s|STRLEN* lenp
+Converts the UTF-8 encoded character at C<p> to its titlecase version, and
+stores that in UTF-8 in C<s>, and its length in bytes in C<lenp>.  Note
+that the buffer pointed to by C<s> needs to be at least C<UTF8_MAXBYTES_CASE+1>
+bytes since the titlecase version may be longer than the original character.
+
+The first code point of the titlecased version is returned
+(but note, as explained just above, that there may be more.)
+
+The input character at C<p> is assumed to be well-formed.
+
+=cut
+
+XXX Still undocumented isVERTWS_uvchr and _utf8; it's unclear what their names
+really should be.  Also toUPPER_LC and toFOLD_LC, which are subject to change.
+
+Note that these macros are repeated in Devel::PPPort, so should also be
+patched there.  The file as of this writing is cpan/Devel-PPPort/parts/inc/misc
+
+*/
+
+/* Specify the widest unsigned type on the platform.  Use U64TYPE because U64
+ * is known only in the perl core, and this macro can be called from outside
+ * that */
+#ifdef HAS_QUAD
+#   define WIDEST_UTYPE U64TYPE
+#else
+#   define WIDEST_UTYPE U32
+#endif
+
+/* FITS_IN_8_BITS(c) returns true if c doesn't have  a bit set other than in
+ * the lower 8.  It is designed to be hopefully bomb-proof, making sure that no
+ * bits of information are lost even on a 64-bit machine, but to get the
+ * compiler to optimize it out if possible.  This is because Configure makes
+ * sure that the machine has an 8-bit byte, so if c is stored in a byte, the
+ * sizeof() guarantees that this evaluates to a constant true at compile time.
+ *
+ * For Coverity, be always true, because otherwise Coverity thinks
+ * it finds several expressions that are always true, independent
+ * of operands.  Well, they are, but that is kind of the point.
+ */
+#ifndef __COVERITY__
+#define FITS_IN_8_BITS(c) ((sizeof(c) == 1) || !(((WIDEST_UTYPE)(c)) & ~0xFF))
+#else
+#define FITS_IN_8_BITS(c) (1)
+#endif
+
+#ifdef EBCDIC
+#   ifndef _ALL_SOURCE
+        /* The native libc isascii() et.al. functions return the wrong results
+         * on at least z/OS unless this is defined. */
+#       error   _ALL_SOURCE should probably be defined
+#   endif
+#else
+    /* There is a simple definition of ASCII for ASCII platforms.  But the
+     * EBCDIC one isn't so simple, so is defined using table look-up like the
+     * other macros below.
+     * The '| 0' part ensures that c is an integer (and not e.g. a pointer) */
+#   define isASCII(c)    ((WIDEST_UTYPE)((c) | 0) < 128)
+#endif
+
+/* The lower 3 bits in both the ASCII and EBCDIC representations of '0' are 0,
+ * and the 8 possible permutations of those bits exactly comprise the 8 octal
+ * digits */
+#define isOCTAL_A(c)  cBOOL(FITS_IN_8_BITS(c) && (0xF8 & (c)) == '0')
+
+#ifdef H_PERL       /* If have access to perl.h, lookup in its table */
+
+/* Character class numbers.  For internal core Perl use only.  The ones less
+ * than 32 are used in PL_charclass[] and the ones up through the one that
+ * corresponds to <_HIGHEST_REGCOMP_DOT_H_SYNC> are used by regcomp.h and
+ * related files.  PL_charclass ones use names used in l1_char_class_tab.h but
+ * their actual definitions are here.  If that file has a name not used here,
+ * it won't compile.
+ *
+ * The first group of these is ordered in what I (khw) estimate to be the
+ * frequency of their use.  This gives a slight edge to exiting a loop earlier
+ * (in reginclass() in regexec.c) */
+#  define _CC_WORDCHAR           0      /* \w and [:word:] */
+#  define _CC_DIGIT              1      /* \d and [:digit:] */
+#  define _CC_ALPHA              2      /* [:alpha:] */
+#  define _CC_LOWER              3      /* [:lower:] */
+#  define _CC_UPPER              4      /* [:upper:] */
+#  define _CC_PUNCT              5      /* [:punct:] */
+#  define _CC_PRINT              6      /* [:print:] */
+#  define _CC_ALPHANUMERIC       7      /* [:alnum:] */
+#  define _CC_GRAPH              8      /* [:graph:] */
+#  define _CC_CASED              9      /* [:lower:] and [:upper:] under /i */
+
+#define _FIRST_NON_SWASH_CC     10
+/* The character classes above are implemented with swashes.  The second group
+ * (just below) contains the ones implemented without.  These are also sorted
+ * in rough order of the frequency of their use, except that \v should be last,
+ * as it isn't a real Posix character class, and some (small) inefficiencies in
+ * regular expression handling would be introduced by putting it in the middle
+ * of those that are.  Also, cntrl and ascii come after the others as it may be
+ * useful to group these which have no members that match above Latin1, (or
+ * above ASCII in the latter case) */
+
+#  define _CC_SPACE             10      /* \s, [:space:] */
+#  define _CC_BLANK             11      /* [:blank:] */
+#  define _CC_XDIGIT            12      /* [:xdigit:] */
+#  define _CC_CNTRL             13      /* [:cntrl:] */
+#  define _CC_ASCII             14      /* [:ascii:] */
+#  define _CC_VERTSPACE         15      /* \v */
+
+#  define _HIGHEST_REGCOMP_DOT_H_SYNC _CC_VERTSPACE
+
+/* The members of the third group below do not need to be coordinated with data
+ * structures in regcomp.[ch] and regexec.c. */
+#  define _CC_IDFIRST                  16
+#  define _CC_CHARNAME_CONT            17
+#  define _CC_NONLATIN1_FOLD           18
+#  define _CC_NONLATIN1_SIMPLE_FOLD    19
+#  define _CC_QUOTEMETA                20
+#  define _CC_NON_FINAL_FOLD           21
+#  define _CC_IS_IN_SOME_FOLD          22
+#  define _CC_MNEMONIC_CNTRL           23
+
+/* This next group is only used on EBCDIC platforms, so theoretically could be
+ * shared with something entirely different that's only on ASCII platforms */
+#  define _CC_UTF8_START_BYTE_IS_FOR_AT_LEAST_SURROGATE 28
+#  define _CC_UTF8_IS_START                             29
+#  define _CC_UTF8_IS_DOWNGRADEABLE_START               30
+#  define _CC_UTF8_IS_CONTINUATION                      31
+/* Unused: 24-27
+ * If more bits are needed, one could add a second word for non-64bit
+ * QUAD_IS_INT systems, using some #ifdefs to distinguish between having a 2nd
+ * word or not.  The IS_IN_SOME_FOLD bit is the most easily expendable, as it
+ * is used only for optimization (as of this writing), and differs in the
+ * Latin1 range from the ALPHA bit only in two relatively unimportant
+ * characters: the masculine and feminine ordinal indicators, so removing it
+ * would just cause /i regexes which match them to run less efficiently.
+ * Similarly the EBCDIC-only bits are used just for speed, and could be
+ * replaced by other means */
+
+#if defined(PERL_CORE) || defined(PERL_EXT)
+/* An enum version of the character class numbers, to help compilers
+ * optimize */
+typedef enum {
+    _CC_ENUM_ALPHA          = _CC_ALPHA,
+    _CC_ENUM_ALPHANUMERIC   = _CC_ALPHANUMERIC,
+    _CC_ENUM_ASCII          = _CC_ASCII,
+    _CC_ENUM_BLANK          = _CC_BLANK,
+    _CC_ENUM_CASED          = _CC_CASED,
+    _CC_ENUM_CNTRL          = _CC_CNTRL,
+    _CC_ENUM_DIGIT          = _CC_DIGIT,
+    _CC_ENUM_GRAPH          = _CC_GRAPH,
+    _CC_ENUM_LOWER          = _CC_LOWER,
+    _CC_ENUM_PRINT          = _CC_PRINT,
+    _CC_ENUM_PUNCT          = _CC_PUNCT,
+    _CC_ENUM_SPACE          = _CC_SPACE,
+    _CC_ENUM_UPPER          = _CC_UPPER,
+    _CC_ENUM_VERTSPACE      = _CC_VERTSPACE,
+    _CC_ENUM_WORDCHAR       = _CC_WORDCHAR,
+    _CC_ENUM_XDIGIT         = _CC_XDIGIT
+} _char_class_number;
+#endif
+
+#define POSIX_SWASH_COUNT _FIRST_NON_SWASH_CC
+#define POSIX_CC_COUNT    (_HIGHEST_REGCOMP_DOT_H_SYNC + 1)
+
+#if defined(PERL_IN_UTF8_C)                         \
+ || defined(PERL_IN_REGCOMP_C)                      \
+ || defined(PERL_IN_REGEXEC_C)
+#   if _CC_WORDCHAR != 0 || _CC_DIGIT != 1 || _CC_ALPHA != 2 || _CC_LOWER != 3 \
+       || _CC_UPPER != 4 || _CC_PUNCT != 5 || _CC_PRINT != 6                   \
+       || _CC_ALPHANUMERIC != 7 || _CC_GRAPH != 8 || _CC_CASED != 9
+      #error Need to adjust order of swash_property_names[]
+#   endif
+
+/* This is declared static in each of the few files that this is #defined for
+ * to keep them from being publicly accessible.  Hence there is a small amount
+ * of wasted space */
+
+static const char* const swash_property_names[] = {
+    "XPosixWord",
+    "XPosixDigit",
+    "XPosixAlpha",
+    "XPosixLower",
+    "XPosixUpper",
+    "XPosixPunct",
+    "XPosixPrint",
+    "XPosixAlnum",
+    "XPosixGraph",
+    "Cased"
+};
+#endif
+
+START_EXTERN_C
+#  ifdef DOINIT
+EXTCONST  U32 PL_charclass[] = {
+#    include "l1_char_class_tab.h"
+};
+
+#  else /* ! DOINIT */
+EXTCONST U32 PL_charclass[];
+#  endif
+END_EXTERN_C
+
+    /* The 1U keeps Solaris from griping when shifting sets the uppermost bit */
+#   define _CC_mask(classnum) (1U << (classnum))
+
+    /* For internal core Perl use only: the base macro for defining macros like
+     * isALPHA */
+#   define _generic_isCC(c, classnum) cBOOL(FITS_IN_8_BITS(c)    \
+                && (PL_charclass[(U8) (c)] & _CC_mask(classnum)))
+
+    /* The mask for the _A versions of the macros; it just adds in the bit for
+     * ASCII. */
+#   define _CC_mask_A(classnum) (_CC_mask(classnum) | _CC_mask(_CC_ASCII))
+
+    /* For internal core Perl use only: the base macro for defining macros like
+     * isALPHA_A.  The foo_A version makes sure that both the desired bit and
+     * the ASCII bit are present */
+#   define _generic_isCC_A(c, classnum) (FITS_IN_8_BITS(c)      \
+        && ((PL_charclass[(U8) (c)] & _CC_mask_A(classnum))     \
+                                   == _CC_mask_A(classnum)))
+
+#   define isALPHA_A(c)  _generic_isCC_A(c, _CC_ALPHA)
+#   define isALPHANUMERIC_A(c) _generic_isCC_A(c, _CC_ALPHANUMERIC)
+#   define isBLANK_A(c)  _generic_isCC_A(c, _CC_BLANK)
+#   define isCNTRL_A(c)  _generic_isCC_A(c, _CC_CNTRL)
+#   define isDIGIT_A(c)  _generic_isCC(c, _CC_DIGIT) /* No non-ASCII digits */
+#   define isGRAPH_A(c)  _generic_isCC_A(c, _CC_GRAPH)
+#   define isLOWER_A(c)  _generic_isCC_A(c, _CC_LOWER)
+#   define isPRINT_A(c)  _generic_isCC_A(c, _CC_PRINT)
+#   define isPUNCT_A(c)  _generic_isCC_A(c, _CC_PUNCT)
+#   define isSPACE_A(c)  _generic_isCC_A(c, _CC_SPACE)
+#   define isUPPER_A(c)  _generic_isCC_A(c, _CC_UPPER)
+#   define isWORDCHAR_A(c) _generic_isCC_A(c, _CC_WORDCHAR)
+#   define isXDIGIT_A(c)  _generic_isCC(c, _CC_XDIGIT) /* No non-ASCII xdigits
+                                                        */
+#   define isIDFIRST_A(c) _generic_isCC_A(c, _CC_IDFIRST)
+#   define isALPHA_L1(c)  _generic_isCC(c, _CC_ALPHA)
+#   define isALPHANUMERIC_L1(c) _generic_isCC(c, _CC_ALPHANUMERIC)
+#   define isBLANK_L1(c)  _generic_isCC(c, _CC_BLANK)
+
+    /* continuation character for legal NAME in \N{NAME} */
+#   define isCHARNAME_CONT(c) _generic_isCC(c, _CC_CHARNAME_CONT)
+
+#   define isCNTRL_L1(c)  _generic_isCC(c, _CC_CNTRL)
+#   define isGRAPH_L1(c)  _generic_isCC(c, _CC_GRAPH)
+#   define isLOWER_L1(c)  _generic_isCC(c, _CC_LOWER)
+#   define isPRINT_L1(c)  _generic_isCC(c, _CC_PRINT)
+#   define isPSXSPC_L1(c)  isSPACE_L1(c)
+#   define isPUNCT_L1(c)  _generic_isCC(c, _CC_PUNCT)
+#   define isSPACE_L1(c)  _generic_isCC(c, _CC_SPACE)
+#   define isUPPER_L1(c)  _generic_isCC(c, _CC_UPPER)
+#   define isWORDCHAR_L1(c) _generic_isCC(c, _CC_WORDCHAR)
+#   define isIDFIRST_L1(c) _generic_isCC(c, _CC_IDFIRST)
+
+#   ifdef EBCDIC
+#       define isASCII(c) _generic_isCC(c, _CC_ASCII)
+#   endif
+
+    /* Participates in a single-character fold with a character above 255 */
+#   define _HAS_NONLATIN1_SIMPLE_FOLD_CLOSURE_ONLY_FOR_USE_BY_REGCOMP_DOT_C_AND_REGEXEC_DOT_C(c) ((! cBOOL(FITS_IN_8_BITS(c))) || (PL_charclass[(U8) (c)] & _CC_mask(_CC_NONLATIN1_SIMPLE_FOLD)))
+
+    /* Like the above, but also can be part of a multi-char fold */
+#   define _HAS_NONLATIN1_FOLD_CLOSURE_ONLY_FOR_USE_BY_REGCOMP_DOT_C_AND_REGEXEC_DOT_C(c) ((! cBOOL(FITS_IN_8_BITS(c))) || (PL_charclass[(U8) (c)] & _CC_mask(_CC_NONLATIN1_FOLD)))
+
+#   define _isQUOTEMETA(c) _generic_isCC(c, _CC_QUOTEMETA)
+#   define _IS_NON_FINAL_FOLD_ONLY_FOR_USE_BY_REGCOMP_DOT_C(c) \
+                                           _generic_isCC(c, _CC_NON_FINAL_FOLD)
+#   define _IS_IN_SOME_FOLD_ONLY_FOR_USE_BY_REGCOMP_DOT_C(c) \
+                                           _generic_isCC(c, _CC_IS_IN_SOME_FOLD)
+#   define _IS_MNEMONIC_CNTRL_ONLY_FOR_USE_BY_REGCOMP_DOT_C(c) \
+                                            _generic_isCC(c, _CC_MNEMONIC_CNTRL)
+#else   /* else we don't have perl.h H_PERL */
+
+    /* If we don't have perl.h, we are compiling a utility program.  Below we
+     * hard-code various macro definitions that wouldn't otherwise be available
+     * to it. Most are coded based on first principals.  First some ones common
+     * to both ASCII and EBCDIC */
+#   define isDIGIT_A(c)  ((c) <= '9' && (c) >= '0')
+#   define isBLANK_A(c)  ((c) == ' ' || (c) == '\t')
+#   define isSPACE_A(c)  (isBLANK_A(c)                                       \
+                          || (c) == '\n'                                     \
+                          || (c) == '\r'                                     \
+                          || (c) == '\v'                                     \
+                          || (c) == '\f')
+#   ifdef EBCDIC    /* There are gaps between 'i' and 'j'; 'r' and 's'.  Same
+                       for uppercase.  This is ordered to exclude most things
+                       early */
+#       define isLOWER_A(c)  ((c) >= 'a' && (c) <= 'z'                       \
+                               && ((c) <= 'i'                                \
+                                   || ((c) >= 'j' && (c) <= 'r')             \
+                                   || (c) >= 's'))
+#       define isUPPER_A(c)  ((c) >= 'A' && (c) <= 'Z'                       \
+                               && ((c) <= 'I'                                \
+                                   || ((c) >= 'J' && (c) <= 'R')             \
+                                   || (c) >= 'S'))
+#   else   /* ASCII platform. */
+#       define isLOWER_A(c)  ((c) >= 'a' && (c) <= 'z')
+#       define isUPPER_A(c)  ((c) <= 'Z' && (c) >= 'A')
+#   endif
+
+    /* Some more ASCII, non-ASCII common definitions */
+#   define isALPHA_A(c)  (isUPPER_A(c) || isLOWER_A(c))
+#   define isALPHANUMERIC_A(c) (isALPHA_A(c) || isDIGIT_A(c))
+#   define isWORDCHAR_A(c)   (isALPHANUMERIC_A(c) || (c) == '_')
+#   define isIDFIRST_A(c)    (isALPHA_A(c) || (c) == '_')
+#   define isXDIGIT_A(c) (isDIGIT_A(c)                                      \
+                          || ((c) >= 'a' && (c) <= 'f')                     \
+                          || ((c) <= 'F' && (c) >= 'A'))
+
+#   ifdef EBCDIC
+#       define isPUNCT_A(c)  ((c) == '-' || (c) == '!' || (c) == '"'        \
+                           || (c) == '#' || (c) == '$' || (c) == '%'        \
+                           || (c) == '&' || (c) == '\'' || (c) == '('       \
+                           || (c) == ')' || (c) == '*' || (c) == '+'        \
+                           || (c) == ',' || (c) == '.' || (c) == '/'        \
+                           || (c) == ':' || (c) == ';' || (c) == '<'        \
+                           || (c) == '=' || (c) == '>' || (c) == '?'        \
+                           || (c) == '@' || (c) == '[' || (c) == '\\'       \
+                           || (c) == ']' || (c) == '^' || (c) == '_'        \
+                           || (c) == '`' || (c) == '{' || (c) == '|'        \
+                           || (c) == '}' || (c) == '~')
+#       define isGRAPH_A(c)  (isALPHANUMERIC_A(c) || isPUNCT_A(c))
+#       define isPRINT_A(c)  (isGRAPH_A(c) || (c) == ' ')
+
+#       ifdef QUESTION_MARK_CTRL
+#           define _isQMC(c) ((c) == QUESTION_MARK_CTRL)
+#       else
+#           define _isQMC(c) 0
+#       endif
+
+        /* I (khw) can't think of a way to define all the ASCII controls
+         * without resorting to a libc (locale-sensitive) call.  But we know
+         * that all controls but the question-mark one are in the range 0-0x3f.
+         * This makes sure that all the controls that have names are included,
+         * and all controls that are also considered ASCII in the locale.  This
+         * may include more or fewer than what it actually should, but the
+         * wrong ones are less-important controls, so likely won't impact
+         * things (keep in mind that this is compiled only if perl.h isn't
+         * available).  The question mark control is included if available */
+#       define isCNTRL_A(c)  (((c) < 0x40 && isascii(c))                    \
+                            || (c) == '\0' || (c) == '\a' || (c) == '\b'    \
+                            || (c) == '\f' || (c) == '\n' || (c) == '\r'    \
+                            || (c) == '\t' || (c) == '\v' || _isQMC(c))
+
+#       define isASCII(c)    (isCNTRL_A(c) || isPRINT_A(c))
+#   else    /* ASCII platform; things are simpler, and  isASCII has already
+               been defined */
+#       define isGRAPH_A(c)  (((c) > ' ' && (c) < 127))
+#       define isPRINT_A(c)  (isGRAPH_A(c) || (c) == ' ')
+#       define isPUNCT_A(c)  (isGRAPH_A(c) && (! isALPHANUMERIC_A(c)))
+#       define isCNTRL_A(c)  (isASCII(c) && (! isPRINT_A(c)))
+#   endif
+
+    /* The _L1 macros may be unnecessary for the utilities; I (khw) added them
+     * during debugging, and it seems best to keep them.  We may be called
+     * without NATIVE_TO_LATIN1 being defined.  On ASCII platforms, it doesn't
+     * do anything anyway, so make it not a problem */
+#   if ! defined(EBCDIC) && ! defined(NATIVE_TO_LATIN1)
+#       define NATIVE_TO_LATIN1(ch) (ch)
+#   endif
+#   define isALPHA_L1(c)     (isUPPER_L1(c) || isLOWER_L1(c))
+#   define isALPHANUMERIC_L1(c) (isALPHA_L1(c) || isDIGIT_A(c))
+#   define isBLANK_L1(c)     (isBLANK_A(c)                                   \
+                              || (FITS_IN_8_BITS(c)                          \
+                                  && NATIVE_TO_LATIN1((U8) c) == 0xA0))
+#   define isCNTRL_L1(c)     (FITS_IN_8_BITS(c) && (! isPRINT_L1(c)))
+#   define isGRAPH_L1(c)     (isPRINT_L1(c) && (! isBLANK_L1(c)))
+#   define isLOWER_L1(c)     (isLOWER_A(c)                                   \
+                              || (FITS_IN_8_BITS(c)                          \
+                                  && ((NATIVE_TO_LATIN1((U8) c) >= 0xDF      \
+                                       && NATIVE_TO_LATIN1((U8) c) != 0xF7)  \
+                                       || NATIVE_TO_LATIN1((U8) c) == 0xAA   \
+                                       || NATIVE_TO_LATIN1((U8) c) == 0xBA   \
+                                       || NATIVE_TO_LATIN1((U8) c) == 0xB5)))
+#   define isPRINT_L1(c)     (isPRINT_A(c)                                   \
+                              || (FITS_IN_8_BITS(c)                          \
+                                  && NATIVE_TO_LATIN1((U8) c) >= 0xA0))
+#   define isPUNCT_L1(c)     (isPUNCT_A(c)                                   \
+                              || (FITS_IN_8_BITS(c)                          \
+                                  && (NATIVE_TO_LATIN1((U8) c) == 0xA1       \
+                                      || NATIVE_TO_LATIN1((U8) c) == 0xA7    \
+                                      || NATIVE_TO_LATIN1((U8) c) == 0xAB    \
+                                      || NATIVE_TO_LATIN1((U8) c) == 0xB6    \
+                                      || NATIVE_TO_LATIN1((U8) c) == 0xB7    \
+                                      || NATIVE_TO_LATIN1((U8) c) == 0xBB    \
+                                      || NATIVE_TO_LATIN1((U8) c) == 0xBF)))
+#   define isSPACE_L1(c)     (isSPACE_A(c)                                   \
+                              || (FITS_IN_8_BITS(c)                          \
+                                  && (NATIVE_TO_LATIN1((U8) c) == 0x85       \
+                                      || NATIVE_TO_LATIN1((U8) c) == 0xA0)))
+#   define isUPPER_L1(c)     (isUPPER_A(c)                                   \
+                              || (FITS_IN_8_BITS(c)                          \
+                                  && (NATIVE_TO_LATIN1((U8) c) >= 0xC0       \
+                                      && NATIVE_TO_LATIN1((U8) c) <= 0xDE    \
+                                      && NATIVE_TO_LATIN1((U8) c) != 0xD7)))
+#   define isWORDCHAR_L1(c)  (isIDFIRST_L1(c) || isDIGIT_A(c))
+#   define isIDFIRST_L1(c)   (isALPHA_L1(c) || NATIVE_TO_LATIN1(c) == '_')
+#   define isCHARNAME_CONT(c) (isWORDCHAR_L1(c)                              \
+                               || isBLANK_L1(c)                              \
+                               || (c) == '-'                                 \
+                               || (c) == '('                                 \
+                               || (c) == ')')
+    /* The following are not fully accurate in the above-ASCII range.  I (khw)
+     * don't think it's necessary to be so for the purposes where this gets
+     * compiled */
+#   define _isQUOTEMETA(c)      (FITS_IN_8_BITS(c) && ! isWORDCHAR_L1(c))
+#   define _IS_IN_SOME_FOLD_ONLY_FOR_USE_BY_REGCOMP_DOT_C(c) isALPHA_L1(c)
+
+    /*  And these aren't accurate at all.  They are useful only for above
+     *  Latin1, which utilities and bootstrapping don't deal with */
+#   define _IS_NON_FINAL_FOLD_ONLY_FOR_USE_BY_REGCOMP_DOT_C(c) 0
+#   define _HAS_NONLATIN1_SIMPLE_FOLD_CLOSURE_ONLY_FOR_USE_BY_REGCOMP_DOT_C_AND_REGEXEC_DOT_C(c) 0
+#   define _HAS_NONLATIN1_FOLD_CLOSURE_ONLY_FOR_USE_BY_REGCOMP_DOT_C_AND_REGEXEC_DOT_C(c) 0
+
+    /* Many of the macros later in this file are defined in terms of these.  By
+     * implementing them with a function, which converts the class number into
+     * a call to the desired macro, all of the later ones work.  However, that
+     * function won't be actually defined when building a utility program (no
+     * perl.h), and so a compiler error will be generated if one is attempted
+     * to be used.  And the above-Latin1 code points require Unicode tables to
+     * be present, something unlikely to be the case when bootstrapping */
+#   define _generic_isCC(c, classnum)                                        \
+         (FITS_IN_8_BITS(c) && S_bootstrap_ctype((U8) (c), (classnum), TRUE))
+#   define _generic_isCC_A(c, classnum)                                      \
+         (FITS_IN_8_BITS(c) && S_bootstrap_ctype((U8) (c), (classnum), FALSE))
+#endif  /* End of no perl.h H_PERL */
+
+#define isALPHANUMERIC(c)  isALPHANUMERIC_A(c)
+#define isALPHA(c)   isALPHA_A(c)
+#define isASCII_A(c)  isASCII(c)
+#define isASCII_L1(c)  isASCII(c)
+#define isBLANK(c)   isBLANK_A(c)
+#define isCNTRL(c)   isCNTRL_A(c)
+#define isDIGIT(c)   isDIGIT_A(c)
+#define isGRAPH(c)   isGRAPH_A(c)
+#define isIDFIRST(c) isIDFIRST_A(c)
+#define isLOWER(c)   isLOWER_A(c)
+#define isPRINT(c)   isPRINT_A(c)
+#define isPSXSPC_A(c) isSPACE_A(c)
+#define isPSXSPC(c)  isPSXSPC_A(c)
+#define isPSXSPC_L1(c) isSPACE_L1(c)
+#define isPUNCT(c)   isPUNCT_A(c)
+#define isSPACE(c)   isSPACE_A(c)
+#define isUPPER(c)   isUPPER_A(c)
+#define isWORDCHAR(c) isWORDCHAR_A(c)
+#define isXDIGIT(c)  isXDIGIT_A(c)
+
+/* ASCII casing.  These could also be written as
+    #define toLOWER(c) (isASCII(c) ? toLOWER_LATIN1(c) : (c))
+    #define toUPPER(c) (isASCII(c) ? toUPPER_LATIN1_MOD(c) : (c))
+   which uses table lookup and mask instead of subtraction.  (This would
+   work because the _MOD does not apply in the ASCII range) */
+#define toLOWER(c)  (isUPPER(c) ? (U8)((c) + ('a' - 'A')) : (c))
+#define toUPPER(c)  (isLOWER(c) ? (U8)((c) - ('a' - 'A')) : (c))
+
+/* In the ASCII range, these are equivalent to what they're here defined to be.
+ * But by creating these definitions, other code doesn't have to be aware of
+ * this detail */
+#define toFOLD(c)    toLOWER(c)
+#define toTITLE(c)   toUPPER(c)
+
+#define toLOWER_A(c) toLOWER(c)
+#define toUPPER_A(c) toUPPER(c)
+#define toFOLD_A(c)  toFOLD(c)
+#define toTITLE_A(c) toTITLE(c)
+
+/* Use table lookup for speed; returns the input itself if is out-of-range */
+#define toLOWER_LATIN1(c)    ((! FITS_IN_8_BITS(c))                        \
+                             ? (c)                                         \
+                             : PL_latin1_lc[ (U8) (c) ])
+#define toLOWER_L1(c)    toLOWER_LATIN1(c)  /* Synonym for consistency */
+
+/* Modified uc.  Is correct uc except for three non-ascii chars which are
+ * all mapped to one of them, and these need special handling; returns the
+ * input itself if is out-of-range */
+#define toUPPER_LATIN1_MOD(c) ((! FITS_IN_8_BITS(c))                       \
+                               ? (c)                                       \
+                               : PL_mod_latin1_uc[ (U8) (c) ])
+#define IN_UTF8_CTYPE_LOCALE PL_in_utf8_CTYPE_locale
+
+/* Use foo_LC_uvchr() instead  of these for beyond the Latin1 range */
+
+/* For internal core Perl use only: the base macro for defining macros like
+ * isALPHA_LC, which uses the current LC_CTYPE locale.  'c' is the code point
+ * (0-255) to check.  In a UTF-8 locale, the result is the same as calling
+ * isFOO_L1(); the 'utf8_locale_classnum' parameter is something like
+ * _CC_UPPER, which gives the class number for doing this.  For non-UTF-8
+ * locales, the code to actually do the test this is passed in 'non_utf8'.  If
+ * 'c' is above 255, 0 is returned.  For accessing the full range of possible
+ * code points under locale rules, use the macros based on _generic_LC_uvchr
+ * instead of this. */
+#define _generic_LC_base(c, utf8_locale_classnum, non_utf8)                    \
+           (! FITS_IN_8_BITS(c)                                                \
+           ? 0                                                                 \
+           : IN_UTF8_CTYPE_LOCALE                                              \
+             ? cBOOL(PL_charclass[(U8) (c)] & _CC_mask(utf8_locale_classnum))  \
+             : cBOOL(non_utf8))
+
+/* For internal core Perl use only: a helper macro for defining macros like
+ * isALPHA_LC.  'c' is the code point (0-255) to check.  The function name to
+ * actually do this test is passed in 'non_utf8_func', which is called on 'c',
+ * casting 'c' to the macro _LC_CAST, which should not be parenthesized.  See
+ * _generic_LC_base for more info */
+#define _generic_LC(c, utf8_locale_classnum, non_utf8_func)                    \
+                        _generic_LC_base(c,utf8_locale_classnum,               \
+                                         non_utf8_func( (_LC_CAST) (c)))
+
+/* For internal core Perl use only: like _generic_LC, but also returns TRUE if
+ * 'c' is the platform's native underscore character */
+#define _generic_LC_underscore(c,utf8_locale_classnum,non_utf8_func)           \
+                        _generic_LC_base(c, utf8_locale_classnum,              \
+                                         (non_utf8_func( (_LC_CAST) (c))       \
+                                          || (char)(c) == '_'))
+
+/* These next three are also for internal core Perl use only: case-change
+ * helper macros */
+#define _generic_toLOWER_LC(c, function, cast)  (! FITS_IN_8_BITS(c)           \
+                                                ? (c)                          \
+                                                : (IN_UTF8_CTYPE_LOCALE)       \
+                                                  ? PL_latin1_lc[ (U8) (c) ]   \
+                                                : (cast)function((cast)(c)))
+
+/* Note that the result can be larger than a byte in a UTF-8 locale.  It
+ * returns a single value, so can't adequately return the upper case of LATIN
+ * SMALL LETTER SHARP S in a UTF-8 locale (which should be a string of two
+ * values "SS");  instead it asserts against that under DEBUGGING, and
+ * otherwise returns its input */
+#define _generic_toUPPER_LC(c, function, cast)                                 \
+                    (! FITS_IN_8_BITS(c)                                       \
+                    ? (c)                                                      \
+                    : ((! IN_UTF8_CTYPE_LOCALE)                                \
+                      ? (cast)function((cast)(c))                              \
+                      : ((((U8)(c)) == MICRO_SIGN)                             \
+                        ? GREEK_CAPITAL_LETTER_MU                              \
+                        : ((((U8)(c)) == LATIN_SMALL_LETTER_Y_WITH_DIAERESIS)  \
+                          ? LATIN_CAPITAL_LETTER_Y_WITH_DIAERESIS              \
+                          : ((((U8)(c)) == LATIN_SMALL_LETTER_SHARP_S)         \
+                            ? (__ASSERT_(0) (c))                               \
+                            : PL_mod_latin1_uc[ (U8) (c) ])))))
+
+/* Note that the result can be larger than a byte in a UTF-8 locale.  It
+ * returns a single value, so can't adequately return the fold case of LATIN
+ * SMALL LETTER SHARP S in a UTF-8 locale (which should be a string of two
+ * values "ss"); instead it asserts against that under DEBUGGING, and
+ * otherwise returns its input */
+#define _generic_toFOLD_LC(c, function, cast)                                  \
+                    ((UNLIKELY((c) == MICRO_SIGN) && IN_UTF8_CTYPE_LOCALE)     \
+                      ? GREEK_SMALL_LETTER_MU                                  \
+                      : (__ASSERT_(! IN_UTF8_CTYPE_LOCALE                      \
+                                   || (c) != LATIN_SMALL_LETTER_SHARP_S)       \
+                         _generic_toLOWER_LC(c, function, cast)))
+
+/* Use the libc versions for these if available. */
+#if defined(HAS_ISASCII)
+#   define isASCII_LC(c) (FITS_IN_8_BITS(c) && isascii( (U8) (c)))
+#else
+#   define isASCII_LC(c) isASCII(c)
+#endif
+
+#if defined(HAS_ISBLANK)
+#   define isBLANK_LC(c) _generic_LC(c, _CC_BLANK, isblank)
+#else /* Unlike isASCII, varies if in a UTF-8 locale */
+#   define isBLANK_LC(c) ((IN_UTF8_CTYPE_LOCALE) ? isBLANK_L1(c) : isBLANK(c))
+#endif
+
+#define _LC_CAST U8
+
+#ifdef WIN32
+    /* The Windows functions don't bother to follow the POSIX standard, which
+     * for example says that something can't both be a printable and a control.
+     * But Windows treats the \t control as a printable, and does such things
+     * as making superscripts into both digits and punctuation.  This tames
+     * these flaws by assuming that the definitions of both controls and space
+     * are correct, and then making sure that other definitions don't have
+     * weirdnesses, by making sure that isalnum() isn't also ispunct(), etc.
+     * Not all possible weirdnesses are checked for, just the ones that were
+     * detected on actual Microsoft code pages */
+
+#  define isCNTRL_LC(c)  _generic_LC(c, _CC_CNTRL, iscntrl)
+#  define isSPACE_LC(c)  _generic_LC(c, _CC_SPACE, isspace)
+
+#  define isALPHA_LC(c)  (_generic_LC(c, _CC_ALPHA, isalpha)                  \
+                                                    && isALPHANUMERIC_LC(c))
+#  define isALPHANUMERIC_LC(c)  (_generic_LC(c, _CC_ALPHANUMERIC, isalnum) && \
+                                                              ! isPUNCT_LC(c))
+#  define isDIGIT_LC(c)  (_generic_LC(c, _CC_DIGIT, isdigit) &&               \
+                                                         isALPHANUMERIC_LC(c))
+#  define isGRAPH_LC(c)  (_generic_LC(c, _CC_GRAPH, isgraph) && isPRINT_LC(c))
+#  define isIDFIRST_LC(c) (((c) == '_')                                       \
+                 || (_generic_LC(c, _CC_IDFIRST, isalpha) && ! isPUNCT_LC(c)))
+#  define isLOWER_LC(c)  (_generic_LC(c, _CC_LOWER, islower) && isALPHA_LC(c))
+#  define isPRINT_LC(c)  (_generic_LC(c, _CC_PRINT, isprint) && ! isCNTRL_LC(c))
+#  define isPUNCT_LC(c)  (_generic_LC(c, _CC_PUNCT, ispunct) && ! isCNTRL_LC(c))
+#  define isUPPER_LC(c)  (_generic_LC(c, _CC_UPPER, isupper) && isALPHA_LC(c))
+#  define isWORDCHAR_LC(c) (((c) == '_') || isALPHANUMERIC_LC(c))
+#  define isXDIGIT_LC(c) (_generic_LC(c, _CC_XDIGIT, isxdigit)                \
+                                                    && isALPHANUMERIC_LC(c))
+
+#  define toLOWER_LC(c) _generic_toLOWER_LC((c), tolower, U8)
+#  define toUPPER_LC(c) _generic_toUPPER_LC((c), toupper, U8)
+#  define toFOLD_LC(c)  _generic_toFOLD_LC((c), tolower, U8)
+
+#elif defined(CTYPE256) || (!defined(isascii) && !defined(HAS_ISASCII))
+    /* For most other platforms */
+
+#  define isALPHA_LC(c)   _generic_LC(c, _CC_ALPHA, isalpha)
+#  define isALPHANUMERIC_LC(c)  _generic_LC(c, _CC_ALPHANUMERIC, isalnum)
+#  define isCNTRL_LC(c)    _generic_LC(c, _CC_CNTRL, iscntrl)
+#  define isDIGIT_LC(c)    _generic_LC(c, _CC_DIGIT, isdigit)
+#  define isGRAPH_LC(c)    _generic_LC(c, _CC_GRAPH, isgraph)
+#  define isIDFIRST_LC(c)  _generic_LC_underscore(c, _CC_IDFIRST, isalpha)
+#  define isLOWER_LC(c)    _generic_LC(c, _CC_LOWER, islower)
+#  define isPRINT_LC(c)    _generic_LC(c, _CC_PRINT, isprint)
+#  define isPUNCT_LC(c)    _generic_LC(c, _CC_PUNCT, ispunct)
+#  define isSPACE_LC(c)    _generic_LC(c, _CC_SPACE, isspace)
+#  define isUPPER_LC(c)    _generic_LC(c, _CC_UPPER, isupper)
+#  define isWORDCHAR_LC(c) _generic_LC_underscore(c, _CC_WORDCHAR, isalnum)
+#  define isXDIGIT_LC(c)   _generic_LC(c, _CC_XDIGIT, isxdigit)
+
+
+#  define toLOWER_LC(c) _generic_toLOWER_LC((c), tolower, U8)
+#  define toUPPER_LC(c) _generic_toUPPER_LC((c), toupper, U8)
+#  define toFOLD_LC(c)  _generic_toFOLD_LC((c), tolower, U8)
+
+#else  /* The final fallback position */
+
+#  define isALPHA_LC(c)	        (isascii(c) && isalpha(c))
+#  define isALPHANUMERIC_LC(c)  (isascii(c) && isalnum(c))
+#  define isCNTRL_LC(c)	        (isascii(c) && iscntrl(c))
+#  define isDIGIT_LC(c)	        (isascii(c) && isdigit(c))
+#  define isGRAPH_LC(c)	        (isascii(c) && isgraph(c))
+#  define isIDFIRST_LC(c)	(isascii(c) && (isalpha(c) || (c) == '_'))
+#  define isLOWER_LC(c)	        (isascii(c) && islower(c))
+#  define isPRINT_LC(c)	        (isascii(c) && isprint(c))
+#  define isPUNCT_LC(c)	        (isascii(c) && ispunct(c))
+#  define isSPACE_LC(c)	        (isascii(c) && isspace(c))
+#  define isUPPER_LC(c)	        (isascii(c) && isupper(c))
+#  define isWORDCHAR_LC(c)	(isascii(c) && (isalnum(c) || (c) == '_'))
+#  define isXDIGIT_LC(c)        (isascii(c) && isxdigit(c))
+
+#  define toLOWER_LC(c)	(isascii(c) ? tolower(c) : (c))
+#  define toUPPER_LC(c)	(isascii(c) ? toupper(c) : (c))
+#  define toFOLD_LC(c)	(isascii(c) ? tolower(c) : (c))
+
+#endif
+
+#define isIDCONT(c)             isWORDCHAR(c)
+#define isIDCONT_A(c)           isWORDCHAR_A(c)
+#define isIDCONT_L1(c)	        isWORDCHAR_L1(c)
+#define isIDCONT_LC(c)	        isWORDCHAR_LC(c)
+#define isPSXSPC_LC(c)		isSPACE_LC(c)
+
+/* For internal core Perl use only: the base macros for defining macros like
+ * isALPHA_uvchr.  'c' is the code point to check.  'classnum' is the POSIX class
+ * number defined earlier in this file.  _generic_uvchr() is used for POSIX
+ * classes where there is a macro or function 'above_latin1' that takes the
+ * single argument 'c' and returns the desired value.  These exist for those
+ * classes which have simple definitions, avoiding the overhead of a hash
+ * lookup or inversion list binary search.  _generic_swash_uvchr() can be used
+ * for classes where that overhead is faster than a direct lookup.
+ * _generic_uvchr() won't compile if 'c' isn't unsigned, as it won't match the
+ * 'above_latin1' prototype. _generic_isCC() macro does bounds checking, so
+ * have duplicate checks here, so could create versions of the macros that
+ * don't, but experiments show that gcc optimizes them out anyway. */
+
+/* Note that all ignore 'use bytes' */
+#define _generic_uvchr(classnum, above_latin1, c) ((c) < 256                    \
+                                             ? _generic_isCC(c, classnum)     \
+                                             : above_latin1(c))
+#define _generic_swash_uvchr(classnum, c) ((c) < 256                            \
+                                             ? _generic_isCC(c, classnum)     \
+                                             : _is_uni_FOO(classnum, c))
+#define isALPHA_uvchr(c)      _generic_swash_uvchr(_CC_ALPHA, c)
+#define isALPHANUMERIC_uvchr(c) _generic_swash_uvchr(_CC_ALPHANUMERIC, c)
+#define isASCII_uvchr(c)      isASCII(c)
+#define isBLANK_uvchr(c)      _generic_uvchr(_CC_BLANK, is_HORIZWS_cp_high, c)
+#define isCNTRL_uvchr(c)      isCNTRL_L1(c) /* All controls are in Latin1 */
+#define isDIGIT_uvchr(c)      _generic_swash_uvchr(_CC_DIGIT, c)
+#define isGRAPH_uvchr(c)      _generic_swash_uvchr(_CC_GRAPH, c)
+#define isIDCONT_uvchr(c)     _generic_uvchr(_CC_WORDCHAR, _is_uni_perl_idcont, c)
+#define isIDFIRST_uvchr(c)    _generic_uvchr(_CC_IDFIRST, _is_uni_perl_idstart, c)
+#define isLOWER_uvchr(c)      _generic_swash_uvchr(_CC_LOWER, c)
+#define isPRINT_uvchr(c)      _generic_swash_uvchr(_CC_PRINT, c)
+
+#define isPUNCT_uvchr(c)      _generic_swash_uvchr(_CC_PUNCT, c)
+#define isSPACE_uvchr(c)      _generic_uvchr(_CC_SPACE, is_XPERLSPACE_cp_high, c)
+#define isPSXSPC_uvchr(c)     isSPACE_uvchr(c)
+
+#define isUPPER_uvchr(c)      _generic_swash_uvchr(_CC_UPPER, c)
+#define isVERTWS_uvchr(c)     _generic_uvchr(_CC_VERTSPACE, is_VERTWS_cp_high, c)
+#define isWORDCHAR_uvchr(c)   _generic_swash_uvchr(_CC_WORDCHAR, c)
+#define isXDIGIT_uvchr(c)     _generic_uvchr(_CC_XDIGIT, is_XDIGIT_cp_high, c)
+
+#define toFOLD_uvchr(c,s,l)	to_uni_fold(c,s,l)
+#define toLOWER_uvchr(c,s,l)	to_uni_lower(c,s,l)
+#define toTITLE_uvchr(c,s,l)	to_uni_title(c,s,l)
+#define toUPPER_uvchr(c,s,l)	to_uni_upper(c,s,l)
+
+/* For backwards compatibility, even though '_uni' should mean official Unicode
+ * code points, in Perl it means native for those below 256 */
+#define isALPHA_uni(c)          isALPHA_uvchr(c)
+#define isALPHANUMERIC_uni(c)   isALPHANUMERIC_uvchr(c)
+#define isASCII_uni(c)          isASCII_uvchr(c)
+#define isBLANK_uni(c)          isBLANK_uvchr(c)
+#define isCNTRL_uni(c)          isCNTRL_uvchr(c)
+#define isDIGIT_uni(c)          isDIGIT_uvchr(c)
+#define isGRAPH_uni(c)          isGRAPH_uvchr(c)
+#define isIDCONT_uni(c)         isIDCONT_uvchr(c)
+#define isIDFIRST_uni(c)        isIDFIRST_uvchr(c)
+#define isLOWER_uni(c)          isLOWER_uvchr(c)
+#define isPRINT_uni(c)          isPRINT_uvchr(c)
+#define isPUNCT_uni(c)          isPUNCT_uvchr(c)
+#define isSPACE_uni(c)          isSPACE_uvchr(c)
+#define isPSXSPC_uni(c)         isPSXSPC_uvchr(c)
+#define isUPPER_uni(c)          isUPPER_uvchr(c)
+#define isVERTWS_uni(c)         isVERTWS_uvchr(c)
+#define isWORDCHAR_uni(c)       isWORDCHAR_uvchr(c)
+#define isXDIGIT_uni(c)         isXDIGIT_uvchr(c)
+#define toFOLD_uni(c,s,l)       toFOLD_uvchr(c,s,l)
+#define toLOWER_uni(c,s,l)      toLOWER_uvchr(c,s,l)
+#define toTITLE_uni(c,s,l)      toTITLE_uvchr(c,s,l)
+#define toUPPER_uni(c,s,l)      toUPPER_uvchr(c,s,l)
+
+/* For internal core Perl use only: the base macros for defining macros like
+ * isALPHA_LC_uvchr.  These are like isALPHA_LC, but the input can be any code
+ * point, not just 0-255.  Like _generic_uvchr, there are two versions, one for
+ * simple class definitions; the other for more complex.  These are like
+ * _generic_uvchr, so see it for more info. */
+#define _generic_LC_uvchr(latin1, above_latin1, c)                            \
+                                    (c < 256 ? latin1(c) : above_latin1(c))
+#define _generic_LC_swash_uvchr(latin1, classnum, c)                          \
+                            (c < 256 ? latin1(c) : _is_uni_FOO(classnum, c))
+
+#define isALPHA_LC_uvchr(c)  _generic_LC_swash_uvchr(isALPHA_LC, _CC_ALPHA, c)
+#define isALPHANUMERIC_LC_uvchr(c)  _generic_LC_swash_uvchr(isALPHANUMERIC_LC, \
+                                                         _CC_ALPHANUMERIC, c)
+#define isASCII_LC_uvchr(c)   isASCII_LC(c)
+#define isBLANK_LC_uvchr(c)  _generic_LC_uvchr(isBLANK_LC,                    \
+                                                        is_HORIZWS_cp_high, c)
+#define isCNTRL_LC_uvchr(c)  (c < 256 ? isCNTRL_LC(c) : 0)
+#define isDIGIT_LC_uvchr(c)  _generic_LC_swash_uvchr(isDIGIT_LC, _CC_DIGIT, c)
+#define isGRAPH_LC_uvchr(c)  _generic_LC_swash_uvchr(isGRAPH_LC, _CC_GRAPH, c)
+#define isIDCONT_LC_uvchr(c) _generic_LC_uvchr(isIDCONT_LC,                   \
+                                                  _is_uni_perl_idcont, c)
+#define isIDFIRST_LC_uvchr(c) _generic_LC_uvchr(isIDFIRST_LC,                 \
+                                                  _is_uni_perl_idstart, c)
+#define isLOWER_LC_uvchr(c)  _generic_LC_swash_uvchr(isLOWER_LC, _CC_LOWER, c)
+#define isPRINT_LC_uvchr(c)  _generic_LC_swash_uvchr(isPRINT_LC, _CC_PRINT, c)
+#define isPSXSPC_LC_uvchr(c)  isSPACE_LC_uvchr(c)
+#define isPUNCT_LC_uvchr(c)  _generic_LC_swash_uvchr(isPUNCT_LC, _CC_PUNCT, c)
+#define isSPACE_LC_uvchr(c)  _generic_LC_uvchr(isSPACE_LC,                    \
+                                                    is_XPERLSPACE_cp_high, c)
+#define isUPPER_LC_uvchr(c)  _generic_LC_swash_uvchr(isUPPER_LC, _CC_UPPER, c)
+#define isWORDCHAR_LC_uvchr(c) _generic_LC_swash_uvchr(isWORDCHAR_LC,         \
+                                                           _CC_WORDCHAR, c)
+#define isXDIGIT_LC_uvchr(c) _generic_LC_uvchr(isXDIGIT_LC,                  \
+                                                       is_XDIGIT_cp_high, c)
+
+#define isBLANK_LC_uni(c)    isBLANK_LC_uvchr(UNI_TO_NATIVE(c))
+
+/* For internal core Perl use only: the base macros for defining macros like
+ * isALPHA_utf8.  These are like the earlier defined macros, but take an input
+ * UTF-8 encoded string 'p'. If the input is in the Latin1 range, use
+ * the Latin1 macro 'classnum' on 'p'.  Otherwise use the value given by the
+ * 'utf8' parameter.  This relies on the fact that ASCII characters have the
+ * same representation whether utf8 or not.  Note that it assumes that the utf8
+ * has been validated, and ignores 'use bytes' */
+#define _generic_utf8(classnum, p, utf8) (UTF8_IS_INVARIANT(*(p))              \
+                                         ? _generic_isCC(*(p), classnum)       \
+                                         : (UTF8_IS_DOWNGRADEABLE_START(*(p))) \
+                                           ? _generic_isCC(                    \
+                                                EIGHT_BIT_UTF8_TO_NATIVE(*(p), \
+                                                                   *((p)+1 )), \
+                                                classnum)                      \
+                                           : utf8)
+/* Like the above, but calls 'above_latin1(p)' to get the utf8 value.
+ * 'above_latin1' can be a macro */
+#define _generic_func_utf8(classnum, above_latin1, p)  \
+                                    _generic_utf8(classnum, p, above_latin1(p))
+/* Like the above, but passes classnum to _isFOO_utf8(), instead of having an
+ * 'above_latin1' parameter */
+#define _generic_swash_utf8(classnum, p)  \
+                      _generic_utf8(classnum, p, _is_utf8_FOO(classnum, p))
+
+/* Like the above, but should be used only when it is known that there are no
+ * characters in the upper-Latin1 range (128-255 on ASCII platforms) which the
+ * class is TRUE for.  Hence it can skip the tests for this range.
+ * 'above_latin1' should include its arguments */
+#define _generic_utf8_no_upper_latin1(classnum, p, above_latin1)               \
+                                         (UTF8_IS_INVARIANT(*(p))              \
+                                         ? _generic_isCC(*(p), classnum)       \
+                                         : (UTF8_IS_ABOVE_LATIN1(*(p)))        \
+                                           ? above_latin1                      \
+                                           : 0)
+
+/* NOTE that some of these macros have very similar ones in regcharclass.h.
+ * For example, there is (at the time of this writing) an 'is_SPACE_utf8()'
+ * there, differing in name only by an underscore from the one here
+ * 'isSPACE_utf8().  The difference is that the ones here are probably more
+ * efficient and smaller, using an O(1) array lookup for Latin1-range code
+ * points; the regcharclass.h ones are implemented as a series of
+ * "if-else-if-else ..." */
+
+#define isALPHA_utf8(p)        _generic_swash_utf8(_CC_ALPHA, p)
+#define isALPHANUMERIC_utf8(p) _generic_swash_utf8(_CC_ALPHANUMERIC, p)
+#define isASCII_utf8(p)        isASCII(*p) /* Because ASCII is invariant under
+                                               utf8, the non-utf8 macro works
+                                             */
+#define isBLANK_utf8(p)        _generic_func_utf8(_CC_BLANK, is_HORIZWS_high, p)
+
+#ifdef EBCDIC
+    /* Because all controls are UTF-8 invariants in EBCDIC, we can use this
+     * more efficient macro instead of the more general one */
+#   define isCNTRL_utf8(p)      isCNTRL_L1(*(p))
+#else
+#   define isCNTRL_utf8(p)      _generic_utf8(_CC_CNTRL, p, 0)
+#endif
+
+#define isDIGIT_utf8(p)         _generic_utf8_no_upper_latin1(_CC_DIGIT, p,   \
+                                                  _is_utf8_FOO(_CC_DIGIT, p))
+#define isGRAPH_utf8(p)         _generic_swash_utf8(_CC_GRAPH, p)
+#define isIDCONT_utf8(p)        _generic_func_utf8(_CC_WORDCHAR,              \
+                                                  _is_utf8_perl_idcont, p)
+
+/* To prevent S_scan_word in toke.c from hanging, we have to make sure that
+ * IDFIRST is an alnum.  See
+ * http://rt.perl.org/rt3/Ticket/Display.html?id=74022 for more detail than you
+ * ever wanted to know about.  (In the ASCII range, there isn't a difference.)
+ * This used to be not the XID version, but we decided to go with the more
+ * modern Unicode definition */
+#define isIDFIRST_utf8(p)   _generic_func_utf8(_CC_IDFIRST,                  \
+                                                _is_utf8_perl_idstart, p)
+
+#define isLOWER_utf8(p)     _generic_swash_utf8(_CC_LOWER, p)
+#define isPRINT_utf8(p)     _generic_swash_utf8(_CC_PRINT, p)
+#define isPSXSPC_utf8(p)    isSPACE_utf8(p)
+#define isPUNCT_utf8(p)     _generic_swash_utf8(_CC_PUNCT, p)
+#define isSPACE_utf8(p)     _generic_func_utf8(_CC_SPACE, is_XPERLSPACE_high, p)
+#define isUPPER_utf8(p)     _generic_swash_utf8(_CC_UPPER, p)
+#define isVERTWS_utf8(p)    _generic_func_utf8(_CC_VERTSPACE, is_VERTWS_high, p)
+#define isWORDCHAR_utf8(p)  _generic_swash_utf8(_CC_WORDCHAR, p)
+#define isXDIGIT_utf8(p)    _generic_utf8_no_upper_latin1(_CC_XDIGIT, p,     \
+                                                          is_XDIGIT_high(p))
+
+#define toFOLD_utf8(p,s,l)	to_utf8_fold(p,s,l)
+#define toLOWER_utf8(p,s,l)	to_utf8_lower(p,s,l)
+#define toTITLE_utf8(p,s,l)	to_utf8_title(p,s,l)
+#define toUPPER_utf8(p,s,l)	to_utf8_upper(p,s,l)
+
+/* For internal core Perl use only: the base macros for defining macros like
+ * isALPHA_LC_utf8.  These are like _generic_utf8, but if the first code point
+ * in 'p' is within the 0-255 range, it uses locale rules from the passed-in
+ * 'macro' parameter */
+#define _generic_LC_utf8(macro, p, utf8)                                    \
+                         (UTF8_IS_INVARIANT(*(p))                           \
+                         ? macro(*(p))                                      \
+                         : (UTF8_IS_DOWNGRADEABLE_START(*(p)))              \
+                           ? macro(EIGHT_BIT_UTF8_TO_NATIVE(*(p), *((p)+1)))\
+                           : utf8)
+
+#define _generic_LC_swash_utf8(macro, classnum, p)                         \
+                    _generic_LC_utf8(macro, p, _is_utf8_FOO(classnum, p))
+#define _generic_LC_func_utf8(macro, above_latin1, p)                         \
+                              _generic_LC_utf8(macro, p, above_latin1(p))
+
+#define isALPHANUMERIC_LC_utf8(p) _generic_LC_swash_utf8(isALPHANUMERIC_LC,   \
+                                                      _CC_ALPHANUMERIC, p)
+#define isALPHA_LC_utf8(p)    _generic_LC_swash_utf8(isALPHA_LC, _CC_ALPHA, p)
+#define isASCII_LC_utf8(p)     isASCII_LC(*p)
+#define isBLANK_LC_utf8(p)    _generic_LC_func_utf8(isBLANK_LC,               \
+                                                         is_HORIZWS_high, p)
+#define isCNTRL_LC_utf8(p)    _generic_LC_utf8(isCNTRL_LC, p, 0)
+#define isDIGIT_LC_utf8(p)    _generic_LC_swash_utf8(isDIGIT_LC, _CC_DIGIT, p)
+#define isGRAPH_LC_utf8(p)    _generic_LC_swash_utf8(isGRAPH_LC, _CC_GRAPH, p)
+#define isIDCONT_LC_utf8(p)   _generic_LC_func_utf8(isIDCONT_LC,              \
+                                                    _is_utf8_perl_idcont, p)
+#define isIDFIRST_LC_utf8(p)  _generic_LC_func_utf8(isIDFIRST_LC,             \
+                                                    _is_utf8_perl_idstart, p)
+#define isLOWER_LC_utf8(p)    _generic_LC_swash_utf8(isLOWER_LC, _CC_LOWER, p)
+#define isPRINT_LC_utf8(p)    _generic_LC_swash_utf8(isPRINT_LC, _CC_PRINT, p)
+#define isPSXSPC_LC_utf8(p)    isSPACE_LC_utf8(p)
+#define isPUNCT_LC_utf8(p)    _generic_LC_swash_utf8(isPUNCT_LC, _CC_PUNCT, p)
+#define isSPACE_LC_utf8(p)    _generic_LC_func_utf8(isSPACE_LC,               \
+                                                        is_XPERLSPACE_high, p)
+#define isUPPER_LC_utf8(p)    _generic_LC_swash_utf8(isUPPER_LC, _CC_UPPER, p)
+#define isWORDCHAR_LC_utf8(p) _generic_LC_swash_utf8(isWORDCHAR_LC,           \
+                                                            _CC_WORDCHAR, p)
+#define isXDIGIT_LC_utf8(p)   _generic_LC_func_utf8(isXDIGIT_LC,              \
+                                                            is_XDIGIT_high, p)
+
+/* Macros for backwards compatibility and for completeness when the ASCII and
+ * Latin1 values are identical */
+#define isALPHAU(c)         isALPHA_L1(c)
+#define isDIGIT_L1(c)       isDIGIT_A(c)
+#define isOCTAL(c)          isOCTAL_A(c)
+#define isOCTAL_L1(c)       isOCTAL_A(c)
+#define isXDIGIT_L1(c)      isXDIGIT_A(c)
+#define isALNUM(c)          isWORDCHAR(c)
+#define isALNUMU(c)         isWORDCHAR_L1(c)
+#define isALNUM_LC(c)       isWORDCHAR_LC(c)
+#define isALNUM_uni(c)      isWORDCHAR_uni(c)
+#define isALNUM_LC_uvchr(c) isWORDCHAR_LC_uvchr(c)
+#define isALNUM_utf8(p)     isWORDCHAR_utf8(p)
+#define isALNUM_LC_utf8(p)  isWORDCHAR_LC_utf8(p)
+#define isALNUMC_A(c)       isALPHANUMERIC_A(c)      /* Mnemonic: "C's alnum" */
+#define isALNUMC_L1(c)      isALPHANUMERIC_L1(c)
+#define isALNUMC(c)	    isALPHANUMERIC(c)
+#define isALNUMC_LC(c)	    isALPHANUMERIC_LC(c)
+#define isALNUMC_uni(c)     isALPHANUMERIC_uni(c)
+#define isALNUMC_LC_uvchr(c) isALPHANUMERIC_LC_uvchr(c)
+#define isALNUMC_utf8(p)    isALPHANUMERIC_utf8(p)
+#define isALNUMC_LC_utf8(p) isALPHANUMERIC_LC_utf8(p)
+
+/* On EBCDIC platforms, CTRL-@ is 0, CTRL-A is 1, etc, just like on ASCII,
+ * except that they don't necessarily mean the same characters, e.g. CTRL-D is
+ * 4 on both systems, but that is EOT on ASCII;  ST on EBCDIC.
+ * '?' is special-cased on EBCDIC to APC, which is the control there that is
+ * the outlier from the block that contains the other controls, just like
+ * toCTRL('?') on ASCII yields DEL, the control that is the outlier from the C0
+ * block.  If it weren't special cased, it would yield a non-control.
+ * The conversion works both ways, so toCTRL('D') is 4, and toCTRL(4) is D,
+ * etc. */
+#ifndef EBCDIC
+#  define toCTRL(c)    (__ASSERT_(FITS_IN_8_BITS(c)) toUPPER(((U8)(c))) ^ 64)
+#else
+#  define toCTRL(c)   (__ASSERT_(FITS_IN_8_BITS(c))                     \
+                      ((isPRINT_A(c))                                   \
+                       ? (UNLIKELY((c) == '?')                          \
+                         ? QUESTION_MARK_CTRL                           \
+                         : (NATIVE_TO_LATIN1(toUPPER((U8) (c))) ^ 64))  \
+                       : (UNLIKELY((c) == QUESTION_MARK_CTRL)           \
+                         ? '?'                                          \
+                         : (LATIN1_TO_NATIVE(((U8) (c)) ^ 64)))))
+#endif
+
+/* Line numbers are unsigned, 32 bits. */
+typedef U32 line_t;
+#define NOLINE ((line_t) 4294967295UL)  /* = FFFFFFFF */
+
+/* Helpful alias for version prescan */
+#define is_LAX_VERSION(a,b) \
+	(a != Perl_prescan_version(aTHX_ a, FALSE, b, NULL, NULL, NULL, NULL))
+
+#define is_STRICT_VERSION(a,b) \
+	(a != Perl_prescan_version(aTHX_ a, TRUE, b, NULL, NULL, NULL, NULL))
+
+#define BADVERSION(a,b,c) \
+	if (b) { \
+	    *b = c; \
+	} \
+	return a;
+
+/* Converts a character known to represent a hexadecimal digit (0-9, A-F, or
+ * a-f) to its numeric value.  READ_XDIGIT's argument is a string pointer,
+ * which is advanced.  The input is validated only by an assert() in DEBUGGING
+ * builds.  In both ASCII and EBCDIC the last 4 bits of the digits are 0-9; and
+ * the last 4 bits of A-F and a-f are 1-6, so adding 9 yields 10-15 */
+#define XDIGIT_VALUE(c) (__ASSERT_(isXDIGIT(c)) (0xf & (isDIGIT(c)        \
+                                                        ? (c)             \
+                                                        : ((c) + 9))))
+#define READ_XDIGIT(s)  (__ASSERT_(isXDIGIT(*s)) (0xf & (isDIGIT(*(s))     \
+                                                        ? (*(s)++)         \
+                                                        : (*(s)++ + 9))))
+
+/* Converts a character known to represent an octal digit (0-7) to its numeric
+ * value.  The input is validated only by an assert() in DEBUGGING builds.  In
+ * both ASCII and EBCDIC the last 3 bits of the octal digits range from 0-7. */
+#define OCTAL_VALUE(c) (__ASSERT_(isOCTAL(c)) (7 & (c)))
+
+/* Efficiently returns a boolean as to if two native characters are equivalent
+ * case-insenstively.  At least one of the characters must be one of [A-Za-z];
+ * the ALPHA in the name is to remind you of that.  This is asserted() in
+ * DEBUGGING builds.  Because [A-Za-z] are invariant under UTF-8, this macro
+ * works (on valid input) for both non- and UTF-8-encoded bytes.
+ *
+ * When one of the inputs is a compile-time constant and gets folded by the
+ * compiler, this reduces to an AND and a TEST.  On both EBCDIC and ASCII
+ * machines, 'A' and 'a' differ by a single bit; the same with the upper and
+ * lower case of all other ASCII-range alphabetics.  On ASCII platforms, they
+ * are 32 apart; on EBCDIC, they are 64.  At compile time, this uses an
+ * exclusive 'or' to find that bit and then inverts it to form a mask, with
+ * just a single 0, in the bit position where the upper- and lowercase differ.
+ * */
+#define isALPHA_FOLD_EQ(c1, c2)                                         \
+                      (__ASSERT_(isALPHA_A(c1) || isALPHA_A(c2))        \
+                      ((c1) & ~('A' ^ 'a')) ==  ((c2) & ~('A' ^ 'a')))
+#define isALPHA_FOLD_NE(c1, c2) (! isALPHA_FOLD_EQ((c1), (c2)))
+
+/*
+=head1 Memory Management
+
+=for apidoc Am|void|Newx|void* ptr|int nitems|type
+The XSUB-writer's interface to the C C<malloc> function.
+
+Memory obtained by this should B<ONLY> be freed with L<"Safefree">.
+
+In 5.9.3, Newx() and friends replace the older New() API, and drops
+the first parameter, I<x>, a debug aid which allowed callers to identify
+themselves.  This aid has been superseded by a new build option,
+PERL_MEM_LOG (see L<perlhacktips/PERL_MEM_LOG>).  The older API is still
+there for use in XS modules supporting older perls.
+
+=for apidoc Am|void|Newxc|void* ptr|int nitems|type|cast
+The XSUB-writer's interface to the C C<malloc> function, with
+cast.  See also C<L</Newx>>.
+
+Memory obtained by this should B<ONLY> be freed with L<"Safefree">.
+
+=for apidoc Am|void|Newxz|void* ptr|int nitems|type
+The XSUB-writer's interface to the C C<malloc> function.  The allocated
+memory is zeroed with C<memzero>.  See also C<L</Newx>>.
+
+Memory obtained by this should B<ONLY> be freed with L<"Safefree">.
+
+=for apidoc Am|void|Renew|void* ptr|int nitems|type
+The XSUB-writer's interface to the C C<realloc> function.
+
+Memory obtained by this should B<ONLY> be freed with L<"Safefree">.
+
+=for apidoc Am|void|Renewc|void* ptr|int nitems|type|cast
+The XSUB-writer's interface to the C C<realloc> function, with
+cast.
+
+Memory obtained by this should B<ONLY> be freed with L<"Safefree">.
+
+=for apidoc Am|void|Safefree|void* ptr
+The XSUB-writer's interface to the C C<free> function.
+
+This should B<ONLY> be used on memory obtained using L<"Newx"> and friends.
+
+=for apidoc Am|void|Move|void* src|void* dest|int nitems|type
+The XSUB-writer's interface to the C C<memmove> function.  The C<src> is the
+source, C<dest> is the destination, C<nitems> is the number of items, and
+C<type> is the type.  Can do overlapping moves.  See also C<L</Copy>>.
+
+=for apidoc Am|void *|MoveD|void* src|void* dest|int nitems|type
+Like C<Move> but returns C<dest>.  Useful
+for encouraging compilers to tail-call
+optimise.
+
+=for apidoc Am|void|Copy|void* src|void* dest|int nitems|type
+The XSUB-writer's interface to the C C<memcpy> function.  The C<src> is the
+source, C<dest> is the destination, C<nitems> is the number of items, and
+C<type> is the type.  May fail on overlapping copies.  See also C<L</Move>>.
+
+=for apidoc Am|void *|CopyD|void* src|void* dest|int nitems|type
+
+Like C<Copy> but returns C<dest>.  Useful
+for encouraging compilers to tail-call
+optimise.
+
+=for apidoc Am|void|Zero|void* dest|int nitems|type
+
+The XSUB-writer's interface to the C C<memzero> function.  The C<dest> is the
+destination, C<nitems> is the number of items, and C<type> is the type.
+
+=for apidoc Am|void *|ZeroD|void* dest|int nitems|type
+
+Like C<Zero> but returns dest.  Useful
+for encouraging compilers to tail-call
+optimise.
+
+=for apidoc Am|void|StructCopy|type *src|type *dest|type
+This is an architecture-independent macro to copy one structure to another.
+
+=for apidoc Am|void|PoisonWith|void* dest|int nitems|type|U8 byte
+
+Fill up memory with a byte pattern (a byte repeated over and over
+again) that hopefully catches attempts to access uninitialized memory.
+
+=for apidoc Am|void|PoisonNew|void* dest|int nitems|type
+
+PoisonWith(0xAB) for catching access to allocated but uninitialized memory.
+
+=for apidoc Am|void|PoisonFree|void* dest|int nitems|type
+
+PoisonWith(0xEF) for catching access to freed memory.
+
+=for apidoc Am|void|Poison|void* dest|int nitems|type
+
+PoisonWith(0xEF) for catching access to freed memory.
+
+=cut */
+
+/* Maintained for backwards-compatibility only. Use newSV() instead. */
+#ifndef PERL_CORE
+#define NEWSV(x,len)	newSV(len)
+#endif
+
+#define MEM_SIZE_MAX ((MEM_SIZE)~0)
+
+
+#ifdef PERL_MALLOC_WRAP
+
+/* This expression will be constant-folded at compile time.  It checks
+ * whether or not the type of the count n is so small (e.g. U8 or U16, or
+ * U32 on 64-bit systems) that there's no way a wrap-around could occur.
+ * As well as avoiding the need for a run-time check in some cases, it's
+ * designed to avoid compiler warnings like:
+ *     comparison is always false due to limited range of data type
+ * It's mathematically equivalent to
+ *    max(n) * sizeof(t) > MEM_SIZE_MAX
+ */
+
+#  define _MEM_WRAP_NEEDS_RUNTIME_CHECK(n,t) \
+    (8 * sizeof(n) + sizeof(t) > sizeof(MEM_SIZE))
+
+/* This is written in a slightly odd way to avoid various spurious
+ * compiler warnings. We *want* to write the expression as
+ *    _MEM_WRAP_NEEDS_RUNTIME_CHECK(n,t) && (n > C)
+ * (for some compile-time constant C), but even when the LHS
+ * constant-folds to false at compile-time, g++ insists on emitting
+ * warnings about the RHS (e.g. "comparison is always false"), so instead
+ * we write it as
+ *
+ *    (cond ? n : X) > C
+ *
+ * where X is a constant with X > C always false. Choosing a value for X
+ * is tricky. If 0, some compilers will complain about 0 > C always being
+ * false; if 1, Coverity complains when n happens to be the constant value
+ * '1', that cond ? 1 : 1 has the same value on both branches; so use C
+ * for X and hope that nothing else whines.
+ */
+
+#  define _MEM_WRAP_WILL_WRAP(n,t) \
+      ((_MEM_WRAP_NEEDS_RUNTIME_CHECK(n,t) ? (MEM_SIZE)(n) : \
+            MEM_SIZE_MAX/sizeof(t)) > MEM_SIZE_MAX/sizeof(t))
+
+#  define MEM_WRAP_CHECK(n,t) \
+	(void)(UNLIKELY(_MEM_WRAP_WILL_WRAP(n,t)) \
+        && (croak_memory_wrap(),0))
+
+#  define MEM_WRAP_CHECK_1(n,t,a) \
+	(void)(UNLIKELY(_MEM_WRAP_WILL_WRAP(n,t)) \
+	&& (Perl_croak_nocontext("%s",(a)),0))
+
+#define MEM_WRAP_CHECK_(n,t) MEM_WRAP_CHECK(n,t),
+
+#define PERL_STRLEN_ROUNDUP(n) ((void)(((n) > MEM_SIZE_MAX - 2 * PERL_STRLEN_ROUNDUP_QUANTUM) ? (croak_memory_wrap(),0):0),((n-1+PERL_STRLEN_ROUNDUP_QUANTUM)&~((MEM_SIZE)PERL_STRLEN_ROUNDUP_QUANTUM-1)))
+#else
+
+#define MEM_WRAP_CHECK(n,t)
+#define MEM_WRAP_CHECK_1(n,t,a)
+#define MEM_WRAP_CHECK_2(n,t,a,b)
+#define MEM_WRAP_CHECK_(n,t)
+
+#define PERL_STRLEN_ROUNDUP(n) (((n-1+PERL_STRLEN_ROUNDUP_QUANTUM)&~((MEM_SIZE)PERL_STRLEN_ROUNDUP_QUANTUM-1)))
+
+#endif
+
+#ifdef PERL_MEM_LOG
+/*
+ * If PERL_MEM_LOG is defined, all Newx()s, Renew()s, and Safefree()s
+ * go through functions, which are handy for debugging breakpoints, but
+ * which more importantly get the immediate calling environment (file and
+ * line number, and C function name if available) passed in.  This info can
+ * then be used for logging the calls, for which one gets a sample
+ * implementation unless -DPERL_MEM_LOG_NOIMPL is also defined.
+ *
+ * Known problems:
+ * - not all memory allocs get logged, only those
+ *   that go through Newx() and derivatives (while all
+ *   Safefrees do get logged)
+ * - __FILE__ and __LINE__ do not work everywhere
+ * - __func__ or __FUNCTION__ even less so
+ * - I think more goes on after the perlio frees but
+ *   the thing is that STDERR gets closed (as do all
+ *   the file descriptors)
+ * - no deeper calling stack than the caller of the Newx()
+ *   or the kind, but do I look like a C reflection/introspection
+ *   utility to you?
+ * - the function prototypes for the logging functions
+ *   probably should maybe be somewhere else than handy.h
+ * - one could consider inlining (macrofying) the logging
+ *   for speed, but I am too lazy
+ * - one could imagine recording the allocations in a hash,
+ *   (keyed by the allocation address?), and maintain that
+ *   through reallocs and frees, but how to do that without
+ *   any News() happening...?
+ * - lots of -Ddefines to get useful/controllable output
+ * - lots of ENV reads
+ */
+
+# ifdef PERL_CORE
+#  ifndef PERL_MEM_LOG_NOIMPL
+enum mem_log_type {
+  MLT_ALLOC,
+  MLT_REALLOC,
+  MLT_FREE,
+  MLT_NEW_SV,
+  MLT_DEL_SV
+};
+#  endif
+#  if defined(PERL_IN_SV_C)  /* those are only used in sv.c */
+void Perl_mem_log_new_sv(const SV *sv, const char *filename, const int linenumber, const char *funcname);
+void Perl_mem_log_del_sv(const SV *sv, const char *filename, const int linenumber, const char *funcname);
+#  endif
+# endif
+
+#endif
+
+#ifdef PERL_MEM_LOG
+#define MEM_LOG_ALLOC(n,t,a)     Perl_mem_log_alloc(n,sizeof(t),STRINGIFY(t),a,__FILE__,__LINE__,FUNCTION__)
+#define MEM_LOG_REALLOC(n,t,v,a) Perl_mem_log_realloc(n,sizeof(t),STRINGIFY(t),v,a,__FILE__,__LINE__,FUNCTION__)
+#define MEM_LOG_FREE(a)          Perl_mem_log_free(a,__FILE__,__LINE__,FUNCTION__)
+#endif
+
+#ifndef MEM_LOG_ALLOC
+#define MEM_LOG_ALLOC(n,t,a)     (a)
+#endif
+#ifndef MEM_LOG_REALLOC
+#define MEM_LOG_REALLOC(n,t,v,a) (a)
+#endif
+#ifndef MEM_LOG_FREE
+#define MEM_LOG_FREE(a)          (a)
+#endif
+
+#define Newx(v,n,t)	(v = (MEM_WRAP_CHECK_(n,t) (t*)MEM_LOG_ALLOC(n,t,safemalloc((MEM_SIZE)((n)*sizeof(t))))))
+#define Newxc(v,n,t,c)	(v = (MEM_WRAP_CHECK_(n,t) (c*)MEM_LOG_ALLOC(n,t,safemalloc((MEM_SIZE)((n)*sizeof(t))))))
+#define Newxz(v,n,t)	(v = (MEM_WRAP_CHECK_(n,t) (t*)MEM_LOG_ALLOC(n,t,safecalloc((n),sizeof(t)))))
+
+#ifndef PERL_CORE
+/* pre 5.9.x compatibility */
+#define New(x,v,n,t)	Newx(v,n,t)
+#define Newc(x,v,n,t,c)	Newxc(v,n,t,c)
+#define Newz(x,v,n,t)	Newxz(v,n,t)
+#endif
+
+#define Renew(v,n,t) \
+	  (v = (MEM_WRAP_CHECK_(n,t) (t*)MEM_LOG_REALLOC(n,t,v,saferealloc((Malloc_t)(v),(MEM_SIZE)((n)*sizeof(t))))))
+#define Renewc(v,n,t,c) \
+	  (v = (MEM_WRAP_CHECK_(n,t) (c*)MEM_LOG_REALLOC(n,t,v,saferealloc((Malloc_t)(v),(MEM_SIZE)((n)*sizeof(t))))))
+
+#ifdef PERL_POISON
+#define Safefree(d) \
+  ((d) ? (void)(safefree(MEM_LOG_FREE((Malloc_t)(d))), Poison(&(d), 1, Malloc_t)) : (void) 0)
+#else
+#define Safefree(d)	safefree(MEM_LOG_FREE((Malloc_t)(d)))
+#endif
+
+#define Move(s,d,n,t)	(MEM_WRAP_CHECK_(n,t) (void)memmove((char*)(d),(const char*)(s), (n) * sizeof(t)))
+#define Copy(s,d,n,t)	(MEM_WRAP_CHECK_(n,t) (void)memcpy((char*)(d),(const char*)(s), (n) * sizeof(t)))
+#define Zero(d,n,t)	(MEM_WRAP_CHECK_(n,t) (void)memzero((char*)(d), (n) * sizeof(t)))
+
+#define MoveD(s,d,n,t)	(MEM_WRAP_CHECK_(n,t) memmove((char*)(d),(const char*)(s), (n) * sizeof(t)))
+#define CopyD(s,d,n,t)	(MEM_WRAP_CHECK_(n,t) memcpy((char*)(d),(const char*)(s), (n) * sizeof(t)))
+#ifdef HAS_MEMSET
+#define ZeroD(d,n,t)	(MEM_WRAP_CHECK_(n,t) memzero((char*)(d), (n) * sizeof(t)))
+#else
+/* Using bzero(), which returns void.  */
+#define ZeroD(d,n,t)	(MEM_WRAP_CHECK_(n,t) memzero((char*)(d), (n) * sizeof(t)),d)
+#endif
+
+#define PoisonWith(d,n,t,b)	(MEM_WRAP_CHECK_(n,t) (void)memset((char*)(d), (U8)(b), (n) * sizeof(t)))
+#define PoisonNew(d,n,t)	PoisonWith(d,n,t,0xAB)
+#define PoisonFree(d,n,t)	PoisonWith(d,n,t,0xEF)
+#define Poison(d,n,t)		PoisonFree(d,n,t)
+
+#ifdef PERL_POISON
+#  define PERL_POISON_EXPR(x) x
+#else
+#  define PERL_POISON_EXPR(x)
+#endif
+
+#ifdef USE_STRUCT_COPY
+#define StructCopy(s,d,t) (*((t*)(d)) = *((t*)(s)))
+#else
+#define StructCopy(s,d,t) Copy(s,d,1,t)
+#endif
+
+/* C_ARRAY_LENGTH is the number of elements in the C array (so you
+ * want your zero-based indices to be less than but not equal to).
+ *
+ * C_ARRAY_END is one past the last: half-open/half-closed range,
+ * not last-inclusive range. */
+#define C_ARRAY_LENGTH(a)	(sizeof(a)/sizeof((a)[0]))
+#define C_ARRAY_END(a)		((a) + C_ARRAY_LENGTH(a))
+
+#ifdef NEED_VA_COPY
+# ifdef va_copy
+#  define Perl_va_copy(s, d) va_copy(d, s)
+# else
+#  if defined(__va_copy)
+#   define Perl_va_copy(s, d) __va_copy(d, s)
+#  else
+#   define Perl_va_copy(s, d) Copy(s, d, 1, va_list)
+#  endif
+# endif
+#endif
+
+/* convenience debug macros */
+#ifdef USE_ITHREADS
+#define pTHX_FORMAT  "Perl interpreter: 0x%p"
+#define pTHX__FORMAT ", Perl interpreter: 0x%p"
+#define pTHX_VALUE_   (void *)my_perl,
+#define pTHX_VALUE    (void *)my_perl
+#define pTHX__VALUE_ ,(void *)my_perl,
+#define pTHX__VALUE  ,(void *)my_perl
+#else
+#define pTHX_FORMAT
+#define pTHX__FORMAT
+#define pTHX_VALUE_
+#define pTHX_VALUE
+#define pTHX__VALUE_
+#define pTHX__VALUE
+#endif /* USE_ITHREADS */
+
+/* Perl_deprecate was not part of the public API, and did not have a deprecate()
+   shortcut macro defined without -DPERL_CORE. Neither codesearch.google.com nor
+   CPAN::Unpack show any users outside the core.  */
+#ifdef PERL_CORE
+#  define deprecate(s) Perl_ck_warner_d(aTHX_ packWARN(WARN_DEPRECATED),    \
+                                            "Use of " s " is deprecated")
+#endif
+
+/* Internal macros to deal with gids and uids */
+#ifdef PERL_CORE
+
+#  if Uid_t_size > IVSIZE
+#    define sv_setuid(sv, uid)       sv_setnv((sv), (NV)(uid))
+#    define SvUID(sv)                SvNV(sv)
+#  else
+#    if Uid_t_sign <= 0
+#      define sv_setuid(sv, uid)       sv_setiv((sv), (IV)(uid))
+#      define SvUID(sv)                SvIV(sv)
+#    else
+#      define sv_setuid(sv, uid)       sv_setuv((sv), (UV)(uid))
+#      define SvUID(sv)                SvUV(sv)
+#    endif
+#  endif /* Uid_t_size */
+
+#  if Gid_t_size > IVSIZE
+#    define sv_setgid(sv, gid)       sv_setnv((sv), (NV)(gid))
+#    define SvGID(sv)                SvNV(sv)
+#  else
+#    if Gid_t_sign <= 0
+#      define sv_setgid(sv, gid)       sv_setiv((sv), (IV)(gid))
+#      define SvGID(sv)                SvIV(sv)
+#    else
+#      define sv_setgid(sv, gid)       sv_setuv((sv), (UV)(gid))
+#      define SvGID(sv)                SvUV(sv)
+#    endif
+#  endif /* Gid_t_size */
+
+#endif
+
+#endif  /* HANDY_H */
+
+/*
+ * ex: set ts=8 sts=4 sw=4 et:
+ */
diff --git a/lib/5.24.1/x86_64-linux/CORE/hv.h b/lib/5.24.1/x86_64-linux/CORE/hv.h
new file mode 100644
index 00000000..b97b2242
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/hv.h
@@ -0,0 +1,635 @@
+/*    hv.h
+ *
+ *    Copyright (C) 1991, 1992, 1993, 1996, 1997, 1998, 1999,
+ *    2000, 2001, 2002, 2003, 2005, 2006, 2007, 2008, by Larry Wall and others
+ *
+ *    You may distribute under the terms of either the GNU General Public
+ *    License or the Artistic License, as specified in the README file.
+ *
+ */
+
+/* These control hash traversal randomization and the environment variable PERL_PERTURB_KEYS.
+ * Currently disabling this functionality will break a few tests, but should otherwise work fine.
+ * See perlrun for more details. */
+
+#if defined(PERL_PERTURB_KEYS_DISABLED)
+#   define PL_HASH_RAND_BITS_ENABLED        0
+#   define PERL_HASH_ITER_BUCKET(iter)      ((iter)->xhv_riter)
+#else
+#   define PERL_HASH_RANDOMIZE_KEYS         1
+#   if defined(PERL_PERTURB_KEYS_RANDOM)
+#       define PL_HASH_RAND_BITS_ENABLED    1
+#   elif defined(PERL_PERTURB_KEYS_DETERMINISTIC)
+#       define PL_HASH_RAND_BITS_ENABLED    2
+#   else
+#       define USE_PERL_PERTURB_KEYS        1
+#       define PL_HASH_RAND_BITS_ENABLED    PL_hash_rand_bits_enabled
+#   endif
+#   define PERL_HASH_ITER_BUCKET(iter)      (((iter)->xhv_riter) ^ ((iter)->xhv_rand))
+#endif
+
+/* entry in hash value chain */
+struct he {
+    /* Keep hent_next first in this structure, because sv_free_arenas take
+       advantage of this to share code between the he arenas and the SV
+       body arenas  */
+    HE		*hent_next;	/* next entry in chain */
+    HEK		*hent_hek;	/* hash key */
+    union {
+	SV	*hent_val;	/* scalar value that was hashed */
+	Size_t	hent_refcount;	/* references for this shared hash key */
+    } he_valu;
+};
+
+/* hash key -- defined separately for use as shared pointer */
+struct hek {
+    U32		hek_hash;	/* hash of key */
+    I32		hek_len;	/* length of hash key */
+    char	hek_key[1];	/* variable-length hash key */
+    /* the hash-key is \0-terminated */
+    /* after the \0 there is a byte for flags, such as whether the key
+       is UTF-8 */
+};
+
+struct shared_he {
+    struct he shared_he_he;
+    struct hek shared_he_hek;
+};
+
+/* Subject to change.
+   Don't access this directly.
+   Use the funcs in mro_core.c
+*/
+
+struct mro_alg {
+    AV *(*resolve)(pTHX_ HV* stash, U32 level);
+    const char *name;
+    U16 length;
+    U16	kflags;	/* For the hash API - set HVhek_UTF8 if name is UTF-8 */
+    U32 hash; /* or 0 */
+};
+
+struct mro_meta {
+    /* a hash holding the different MROs private data.  */
+    HV      *mro_linear_all;
+    /* a pointer directly to the current MROs private data.  If mro_linear_all
+       is NULL, this owns the SV reference, else it is just a pointer to a
+       value stored in and owned by mro_linear_all.  */
+    SV      *mro_linear_current;
+    HV      *mro_nextmethod; /* next::method caching */
+    U32     cache_gen;       /* Bumping this invalidates our method cache */
+    U32     pkg_gen;         /* Bumps when local methods/@ISA change */
+    const struct mro_alg *mro_which; /* which mro alg is in use? */
+    HV      *isa;            /* Everything this class @ISA */
+    HV      *super;          /* SUPER method cache */
+    CV      *destroy;        /* DESTROY method if destroy_gen non-zero */
+    U32     destroy_gen;     /* Generation number of DESTROY cache */
+};
+
+#define MRO_GET_PRIVATE_DATA(smeta, which)		   \
+    (((smeta)->mro_which && (which) == (smeta)->mro_which) \
+     ? (smeta)->mro_linear_current			   \
+     : Perl_mro_get_private_data(aTHX_ (smeta), (which)))
+
+/* Subject to change.
+   Don't access this directly.
+*/
+
+union _xhvnameu {
+    HEK *xhvnameu_name;		/* When xhv_name_count is 0 */
+    HEK **xhvnameu_names;	/* When xhv_name_count is non-0 */
+};
+
+struct xpvhv_aux {
+    union _xhvnameu xhv_name_u;	/* name, if a symbol table */
+    AV		*xhv_backreferences; /* back references for weak references */
+    HE		*xhv_eiter;	/* current entry of iterator */
+    I32		xhv_riter;	/* current root of iterator */
+
+/* Concerning xhv_name_count: When non-zero, xhv_name_u contains a pointer 
+ * to an array of HEK pointers, this being the length. The first element is
+ * the name of the stash, which may be NULL. If xhv_name_count is positive,
+ * then *xhv_name is one of the effective names. If xhv_name_count is nega-
+ * tive, then xhv_name_u.xhvnameu_names[1] is the first effective name.
+ */
+    I32		xhv_name_count;
+    struct mro_meta *xhv_mro_meta;
+#ifdef PERL_HASH_RANDOMIZE_KEYS
+    U32         xhv_rand;       /* random value for hash traversal */
+    U32         xhv_last_rand;  /* last random value for hash traversal,
+                                   used to detect each() after insert for warnings */
+#endif
+    U32         xhv_fill_lazy;
+    U32         xhv_aux_flags;      /* assorted extra flags */
+};
+
+#define HvAUXf_SCAN_STASH   0x1   /* stash is being scanned by gv_check */
+#define HvAUXf_NO_DEREF     0x2   /* @{}, %{} etc (and nomethod) not present */
+
+/* hash structure: */
+/* This structure must match the beginning of struct xpvmg in sv.h. */
+struct xpvhv {
+    HV*		xmg_stash;	/* class package */
+    union _xmgu	xmg_u;
+    STRLEN      xhv_keys;       /* total keys, including placeholders */
+    STRLEN      xhv_max;        /* subscript of last element of xhv_array */
+};
+
+/*
+=head1 Hash Manipulation Functions
+
+=for apidoc AmU||HEf_SVKEY
+This flag, used in the length slot of hash entries and magic structures,
+specifies the structure contains an C<SV*> pointer where a C<char*> pointer
+is to be expected.  (For information only--not to be used).
+
+=head1 Handy Values
+
+=for apidoc AmU||Nullhv
+Null HV pointer.
+
+(deprecated - use C<(HV *)NULL> instead)
+
+=head1 Hash Manipulation Functions
+
+=for apidoc Am|char*|HvNAME|HV* stash
+Returns the package name of a stash, or C<NULL> if C<stash> isn't a stash.
+See C<L</SvSTASH>>, C<L</CvSTASH>>.
+
+=for apidoc Am|STRLEN|HvNAMELEN|HV *stash
+Returns the length of the stash's name.
+
+=for apidoc Am|unsigned char|HvNAMEUTF8|HV *stash
+Returns true if the name is in UTF-8 encoding.
+
+=for apidoc Am|char*|HvENAME|HV* stash
+Returns the effective name of a stash, or NULL if there is none.  The
+effective name represents a location in the symbol table where this stash
+resides.  It is updated automatically when packages are aliased or deleted.
+A stash that is no longer in the symbol table has no effective name.  This
+name is preferable to C<HvNAME> for use in MRO linearisations and isa
+caches.
+
+=for apidoc Am|STRLEN|HvENAMELEN|HV *stash
+Returns the length of the stash's effective name.
+
+=for apidoc Am|unsigned char|HvENAMEUTF8|HV *stash
+Returns true if the effective name is in UTF-8 encoding.
+
+=for apidoc Am|void*|HeKEY|HE* he
+Returns the actual pointer stored in the key slot of the hash entry.  The
+pointer may be either C<char*> or C<SV*>, depending on the value of
+C<HeKLEN()>.  Can be assigned to.  The C<HePV()> or C<HeSVKEY()> macros are
+usually preferable for finding the value of a key.
+
+=for apidoc Am|STRLEN|HeKLEN|HE* he
+If this is negative, and amounts to C<HEf_SVKEY>, it indicates the entry
+holds an C<SV*> key.  Otherwise, holds the actual length of the key.  Can
+be assigned to.  The C<HePV()> macro is usually preferable for finding key
+lengths.
+
+=for apidoc Am|SV*|HeVAL|HE* he
+Returns the value slot (type C<SV*>)
+stored in the hash entry.  Can be assigned
+to.
+
+  SV *foo= HeVAL(hv);
+  HeVAL(hv)= sv;
+
+
+=for apidoc Am|U32|HeHASH|HE* he
+Returns the computed hash stored in the hash entry.
+
+=for apidoc Am|char*|HePV|HE* he|STRLEN len
+Returns the key slot of the hash entry as a C<char*> value, doing any
+necessary dereferencing of possibly C<SV*> keys.  The length of the string
+is placed in C<len> (this is a macro, so do I<not> use C<&len>).  If you do
+not care about what the length of the key is, you may use the global
+variable C<PL_na>, though this is rather less efficient than using a local
+variable.  Remember though, that hash keys in perl are free to contain
+embedded nulls, so using C<strlen()> or similar is not a good way to find
+the length of hash keys.  This is very similar to the C<SvPV()> macro
+described elsewhere in this document.  See also C<L</HeUTF8>>.
+
+If you are using C<HePV> to get values to pass to C<newSVpvn()> to create a
+new SV, you should consider using C<newSVhek(HeKEY_hek(he))> as it is more
+efficient.
+
+=for apidoc Am|U32|HeUTF8|HE* he
+Returns whether the C<char *> value returned by C<HePV> is encoded in UTF-8,
+doing any necessary dereferencing of possibly C<SV*> keys.  The value returned
+will be 0 or non-0, not necessarily 1 (or even a value with any low bits set),
+so B<do not> blindly assign this to a C<bool> variable, as C<bool> may be a
+typedef for C<char>.
+
+=for apidoc Am|SV*|HeSVKEY|HE* he
+Returns the key as an C<SV*>, or C<NULL> if the hash entry does not
+contain an C<SV*> key.
+
+=for apidoc Am|SV*|HeSVKEY_force|HE* he
+Returns the key as an C<SV*>.  Will create and return a temporary mortal
+C<SV*> if the hash entry contains only a C<char*> key.
+
+=for apidoc Am|SV*|HeSVKEY_set|HE* he|SV* sv
+Sets the key to a given C<SV*>, taking care to set the appropriate flags to
+indicate the presence of an C<SV*> key, and returns the same
+C<SV*>.
+
+=cut
+*/
+
+#define PERL_HASH_DEFAULT_HvMAX 7
+
+/* During hsplit(), if HvMAX(hv)+1 (the new bucket count) is >= this value,
+ * we preallocate the HvAUX() struct.
+ * The assumption being that we are using so much space anyway we might
+ * as well allocate the extra bytes and speed up later keys()
+ * or each() operations. We don't do this to small hashes as we assume
+ * that a) it will be easy/fast to resize them to add the iterator, and b) that
+ * many of them will be objects which won't be traversed. Larger hashes however
+ * will take longer to extend, and the size of the aux struct is swamped by the
+ * overall length of the bucket array.
+ * */
+#define PERL_HV_ALLOC_AUX_SIZE (1 << 9)
+
+/* these hash entry flags ride on hent_klen (for use only in magic/tied HVs) */
+#define HEf_SVKEY	-2	/* hent_key is an SV* */
+
+#ifndef PERL_CORE
+#  define Nullhv Null(HV*)
+#endif
+#define HvARRAY(hv)	((hv)->sv_u.svu_hash)
+#define HvFILL(hv)	Perl_hv_fill(aTHX_ MUTABLE_HV(hv))
+#define HvMAX(hv)	((XPVHV*)  SvANY(hv))->xhv_max
+/* This quite intentionally does no flag checking first. That's your
+   responsibility.  */
+#define HvAUX(hv)	((struct xpvhv_aux*)&(HvARRAY(hv)[HvMAX(hv)+1]))
+#define HvRITER(hv)	(*Perl_hv_riter_p(aTHX_ MUTABLE_HV(hv)))
+#define HvEITER(hv)	(*Perl_hv_eiter_p(aTHX_ MUTABLE_HV(hv)))
+#define HvRITER_set(hv,r)	Perl_hv_riter_set(aTHX_ MUTABLE_HV(hv), r)
+#define HvEITER_set(hv,e)	Perl_hv_eiter_set(aTHX_ MUTABLE_HV(hv), e)
+#define HvRITER_get(hv)	(SvOOK(hv) ? HvAUX(hv)->xhv_riter : -1)
+#define HvEITER_get(hv)	(SvOOK(hv) ? HvAUX(hv)->xhv_eiter : NULL)
+#define HvRAND_get(hv)	(SvOOK(hv) ? HvAUX(hv)->xhv_rand : 0)
+#define HvLASTRAND_get(hv)	(SvOOK(hv) ? HvAUX(hv)->xhv_last_rand : 0)
+
+#define HvNAME(hv)	HvNAME_get(hv)
+#define HvNAMELEN(hv)   HvNAMELEN_get(hv)
+#define HvENAME(hv)	HvENAME_get(hv)
+#define HvENAMELEN(hv)  HvENAMELEN_get(hv)
+
+/* Checking that hv is a valid package stash is the
+   caller's responsibility */
+#define HvMROMETA(hv) (HvAUX(hv)->xhv_mro_meta \
+                       ? HvAUX(hv)->xhv_mro_meta \
+                       : Perl_mro_meta_init(aTHX_ hv))
+
+#define HvNAME_HEK_NN(hv)			  \
+ (						  \
+  HvAUX(hv)->xhv_name_count			  \
+  ? *HvAUX(hv)->xhv_name_u.xhvnameu_names	  \
+  : HvAUX(hv)->xhv_name_u.xhvnameu_name		  \
+ )
+/* This macro may go away without notice.  */
+#define HvNAME_HEK(hv) \
+	(SvOOK(hv) && HvAUX(hv)->xhv_name_u.xhvnameu_name ? HvNAME_HEK_NN(hv) : NULL)
+#define HvNAME_get(hv) \
+	((SvOOK(hv) && HvAUX(hv)->xhv_name_u.xhvnameu_name && HvNAME_HEK_NN(hv)) \
+			 ? HEK_KEY(HvNAME_HEK_NN(hv)) : NULL)
+#define HvNAMELEN_get(hv) \
+	((SvOOK(hv) && HvAUX(hv)->xhv_name_u.xhvnameu_name && HvNAME_HEK_NN(hv)) \
+				 ? HEK_LEN(HvNAME_HEK_NN(hv)) : 0)
+#define HvNAMEUTF8(hv) \
+	((SvOOK(hv) && HvAUX(hv)->xhv_name_u.xhvnameu_name && HvNAME_HEK_NN(hv)) \
+				 ? HEK_UTF8(HvNAME_HEK_NN(hv)) : 0)
+#define HvENAME_HEK_NN(hv)                                             \
+ (                                                                      \
+  HvAUX(hv)->xhv_name_count > 0   ? HvAUX(hv)->xhv_name_u.xhvnameu_names[0] : \
+  HvAUX(hv)->xhv_name_count < -1  ? HvAUX(hv)->xhv_name_u.xhvnameu_names[1] : \
+  HvAUX(hv)->xhv_name_count == -1 ? NULL                              : \
+                                    HvAUX(hv)->xhv_name_u.xhvnameu_name \
+ )
+#define HvENAME_HEK(hv) \
+	(SvOOK(hv) && HvAUX(hv)->xhv_name_u.xhvnameu_name ? HvENAME_HEK_NN(hv) : NULL)
+#define HvENAME_get(hv) \
+   ((SvOOK(hv) && HvAUX(hv)->xhv_name_u.xhvnameu_name && HvAUX(hv)->xhv_name_count != -1) \
+			 ? HEK_KEY(HvENAME_HEK_NN(hv)) : NULL)
+#define HvENAMELEN_get(hv) \
+   ((SvOOK(hv) && HvAUX(hv)->xhv_name_u.xhvnameu_name && HvAUX(hv)->xhv_name_count != -1) \
+				 ? HEK_LEN(HvENAME_HEK_NN(hv)) : 0)
+#define HvENAMEUTF8(hv) \
+   ((SvOOK(hv) && HvAUX(hv)->xhv_name_u.xhvnameu_name && HvAUX(hv)->xhv_name_count != -1) \
+				 ? HEK_UTF8(HvENAME_HEK_NN(hv)) : 0)
+
+/* the number of keys (including any placeholders) */
+#define XHvTOTALKEYS(xhv)	((xhv)->xhv_keys)
+
+/*
+ * HvKEYS gets the number of keys that actually exist(), and is provided
+ * for backwards compatibility with old XS code. The core uses HvUSEDKEYS
+ * (keys, excluding placeholders) and HvTOTALKEYS (including placeholders)
+ */
+#define HvKEYS(hv)		HvUSEDKEYS(hv)
+#define HvUSEDKEYS(hv)		(HvTOTALKEYS(hv) - HvPLACEHOLDERS_get(hv))
+#define HvTOTALKEYS(hv)		XHvTOTALKEYS((XPVHV*)  SvANY(hv))
+#define HvPLACEHOLDERS(hv)	(*Perl_hv_placeholders_p(aTHX_ MUTABLE_HV(hv)))
+#define HvPLACEHOLDERS_get(hv)	(SvMAGIC(hv) ? Perl_hv_placeholders_get(aTHX_ (const HV *)hv) : 0)
+#define HvPLACEHOLDERS_set(hv,p)	Perl_hv_placeholders_set(aTHX_ MUTABLE_HV(hv), p)
+
+#define HvSHAREKEYS(hv)		(SvFLAGS(hv) & SVphv_SHAREKEYS)
+#define HvSHAREKEYS_on(hv)	(SvFLAGS(hv) |= SVphv_SHAREKEYS)
+#define HvSHAREKEYS_off(hv)	(SvFLAGS(hv) &= ~SVphv_SHAREKEYS)
+
+/* This is an optimisation flag. It won't be set if all hash keys have a 0
+ * flag. Currently the only flags relate to utf8.
+ * Hence it won't be set if all keys are 8 bit only. It will be set if any key
+ * is utf8 (including 8 bit keys that were entered as utf8, and need upgrading
+ * when retrieved during iteration. It may still be set when there are no longer
+ * any utf8 keys.
+ * See HVhek_ENABLEHVKFLAGS for the trigger.
+ */
+#define HvHASKFLAGS(hv)		(SvFLAGS(hv) & SVphv_HASKFLAGS)
+#define HvHASKFLAGS_on(hv)	(SvFLAGS(hv) |= SVphv_HASKFLAGS)
+#define HvHASKFLAGS_off(hv)	(SvFLAGS(hv) &= ~SVphv_HASKFLAGS)
+
+#define HvLAZYDEL(hv)		(SvFLAGS(hv) & SVphv_LAZYDEL)
+#define HvLAZYDEL_on(hv)	(SvFLAGS(hv) |= SVphv_LAZYDEL)
+#define HvLAZYDEL_off(hv)	(SvFLAGS(hv) &= ~SVphv_LAZYDEL)
+
+#ifndef PERL_CORE
+#  define Nullhe Null(HE*)
+#endif
+#define HeNEXT(he)		(he)->hent_next
+#define HeKEY_hek(he)		(he)->hent_hek
+#define HeKEY(he)		HEK_KEY(HeKEY_hek(he))
+#define HeKEY_sv(he)		(*(SV**)HeKEY(he))
+#define HeKLEN(he)		HEK_LEN(HeKEY_hek(he))
+#define HeKUTF8(he)  HEK_UTF8(HeKEY_hek(he))
+#define HeKWASUTF8(he)  HEK_WASUTF8(HeKEY_hek(he))
+#define HeKLEN_UTF8(he)  (HeKUTF8(he) ? -HeKLEN(he) : HeKLEN(he))
+#define HeKFLAGS(he)  HEK_FLAGS(HeKEY_hek(he))
+#define HeVAL(he)		(he)->he_valu.hent_val
+#define HeHASH(he)		HEK_HASH(HeKEY_hek(he))
+#define HePV(he,lp)		((HeKLEN(he) == HEf_SVKEY) ?		\
+				 SvPV(HeKEY_sv(he),lp) :		\
+				 ((lp = HeKLEN(he)), HeKEY(he)))
+#define HeUTF8(he)		((HeKLEN(he) == HEf_SVKEY) ?		\
+				 SvUTF8(HeKEY_sv(he)) :			\
+				 (U32)HeKUTF8(he))
+
+#define HeSVKEY(he)		((HeKEY(he) && 				\
+				  HeKLEN(he) == HEf_SVKEY) ?		\
+				 HeKEY_sv(he) : NULL)
+
+#define HeSVKEY_force(he)	(HeKEY(he) ?				\
+				 ((HeKLEN(he) == HEf_SVKEY) ?		\
+				  HeKEY_sv(he) :			\
+				  newSVpvn_flags(HeKEY(he),		\
+                                                 HeKLEN(he),            \
+                                                 SVs_TEMP |             \
+                                      ( HeKUTF8(he) ? SVf_UTF8 : 0 ))) : \
+				 &PL_sv_undef)
+#define HeSVKEY_set(he,sv)	((HeKLEN(he) = HEf_SVKEY), (HeKEY_sv(he) = sv))
+
+#ifndef PERL_CORE
+#  define Nullhek Null(HEK*)
+#endif
+#define HEK_BASESIZE		STRUCT_OFFSET(HEK, hek_key[0])
+#define HEK_HASH(hek)		(hek)->hek_hash
+#define HEK_LEN(hek)		(hek)->hek_len
+#define HEK_KEY(hek)		(hek)->hek_key
+#define HEK_FLAGS(hek)	(*((unsigned char *)(HEK_KEY(hek))+HEK_LEN(hek)+1))
+
+#define HVhek_UTF8	0x01 /* Key is utf8 encoded. */
+#define HVhek_WASUTF8	0x02 /* Key is bytes here, but was supplied as utf8. */
+#define HVhek_UNSHARED	0x08 /* This key isn't a shared hash key. */
+/* the following flags are options for functions, they are not stored in heks */
+#define HVhek_FREEKEY	0x100 /* Internal flag to say key is Newx()ed.  */
+#define HVhek_PLACEHOLD	0x200 /* Internal flag to create placeholder.
+                               * (may change, but Storable is a core module) */
+#define HVhek_KEYCANONICAL 0x400 /* Internal flag - key is in canonical form.
+				    If the string is UTF-8, it cannot be
+				    converted to bytes. */
+#define HVhek_MASK	0xFF
+
+#define HVhek_ENABLEHVKFLAGS        (HVhek_MASK & ~(HVhek_UNSHARED))
+
+#define HEK_UTF8(hek)		(HEK_FLAGS(hek) & HVhek_UTF8)
+#define HEK_UTF8_on(hek)	(HEK_FLAGS(hek) |= HVhek_UTF8)
+#define HEK_UTF8_off(hek)	(HEK_FLAGS(hek) &= ~HVhek_UTF8)
+#define HEK_WASUTF8(hek)	(HEK_FLAGS(hek) & HVhek_WASUTF8)
+#define HEK_WASUTF8_on(hek)	(HEK_FLAGS(hek) |= HVhek_WASUTF8)
+#define HEK_WASUTF8_off(hek)	(HEK_FLAGS(hek) &= ~HVhek_WASUTF8)
+
+/* calculate HV array allocation */
+#ifndef PERL_USE_LARGE_HV_ALLOC
+/* Default to allocating the correct size - default to assuming that malloc()
+   is not broken and is efficient at allocating blocks sized at powers-of-two.
+*/   
+#  define PERL_HV_ARRAY_ALLOC_BYTES(size) ((size) * sizeof(HE*))
+#else
+#  define MALLOC_OVERHEAD 16
+#  define PERL_HV_ARRAY_ALLOC_BYTES(size) \
+			(((size) < 64)					\
+			 ? (size) * sizeof(HE*)				\
+			 : (size) * sizeof(HE*) * 2 - MALLOC_OVERHEAD)
+#endif
+
+/* Flags for hv_iternext_flags.  */
+#define HV_ITERNEXT_WANTPLACEHOLDERS	0x01	/* Don't skip placeholders.  */
+
+#define hv_iternext(hv)	hv_iternext_flags(hv, 0)
+#define hv_magic(hv, gv, how) sv_magic(MUTABLE_SV(hv), MUTABLE_SV(gv), how, NULL, 0)
+#define hv_undef(hv) Perl_hv_undef_flags(aTHX_ hv, 0)
+
+#define Perl_sharepvn(pv, len, hash) HEK_KEY(share_hek(pv, len, hash))
+#define sharepvn(pv, len, hash)	     Perl_sharepvn(pv, len, hash)
+
+#define share_hek_hek(hek)						\
+    (++(((struct shared_he *)(((char *)hek)				\
+			      - STRUCT_OFFSET(struct shared_he,		\
+					      shared_he_hek)))		\
+	->shared_he_he.he_valu.hent_refcount),				\
+     hek)
+
+#define hv_store_ent(hv, keysv, val, hash)				\
+    ((HE *) hv_common((hv), (keysv), NULL, 0, 0, HV_FETCH_ISSTORE,	\
+		      (val), (hash)))
+
+#define hv_exists_ent(hv, keysv, hash)					\
+    (hv_common((hv), (keysv), NULL, 0, 0, HV_FETCH_ISEXISTS, 0, (hash))	\
+     ? TRUE : FALSE)
+#define hv_fetch_ent(hv, keysv, lval, hash)				\
+    ((HE *) hv_common((hv), (keysv), NULL, 0, 0,			\
+		      ((lval) ? HV_FETCH_LVALUE : 0), NULL, (hash)))
+#define hv_delete_ent(hv, key, flags, hash)				\
+    (MUTABLE_SV(hv_common((hv), (key), NULL, 0, 0, (flags) | HV_DELETE,	\
+			  NULL, (hash))))
+
+#define hv_store_flags(hv, key, klen, val, hash, flags)			\
+    ((SV**) hv_common((hv), NULL, (key), (klen), (flags),		\
+		      (HV_FETCH_ISSTORE|HV_FETCH_JUST_SV), (val),	\
+		      (hash)))
+
+#define hv_store(hv, key, klen, val, hash)				\
+    ((SV**) hv_common_key_len((hv), (key), (klen),			\
+			      (HV_FETCH_ISSTORE|HV_FETCH_JUST_SV),	\
+			      (val), (hash)))
+
+#define hv_exists(hv, key, klen)					\
+    (hv_common_key_len((hv), (key), (klen), HV_FETCH_ISEXISTS, NULL, 0) \
+     ? TRUE : FALSE)
+
+#define hv_fetch(hv, key, klen, lval)					\
+    ((SV**) hv_common_key_len((hv), (key), (klen), (lval)		\
+			      ? (HV_FETCH_JUST_SV | HV_FETCH_LVALUE)	\
+			      : HV_FETCH_JUST_SV, NULL, 0))
+
+#define hv_delete(hv, key, klen, flags)					\
+    (MUTABLE_SV(hv_common_key_len((hv), (key), (klen),			\
+				  (flags) | HV_DELETE, NULL, 0)))
+
+#ifdef PERL_CORE
+# define hv_storehek(hv, hek, val) \
+    hv_common((hv), NULL, HEK_KEY(hek), HEK_LEN(hek), HEK_UTF8(hek),	\
+	      HV_FETCH_ISSTORE|HV_FETCH_JUST_SV, (val), HEK_HASH(hek))
+# define hv_fetchhek(hv, hek, lval) \
+    ((SV **)								\
+     hv_common((hv), NULL, HEK_KEY(hek), HEK_LEN(hek), HEK_UTF8(hek),	\
+	       (lval)							\
+		? (HV_FETCH_JUST_SV | HV_FETCH_LVALUE)			\
+		: HV_FETCH_JUST_SV,					\
+	       NULL, HEK_HASH(hek)))
+# define hv_deletehek(hv, hek, flags) \
+    hv_common((hv), NULL, HEK_KEY(hek), HEK_LEN(hek), HEK_UTF8(hek), \
+	      (flags)|HV_DELETE, NULL, HEK_HASH(hek))
+#endif
+
+/* This refcounted he structure is used for storing the hints used for lexical
+   pragmas. Without threads, it's basically struct he + refcount.
+   With threads, life gets more complex as the structure needs to be shared
+   between threads (because it hangs from OPs, which are shared), hence the
+   alternate definition and mutex.  */
+
+struct refcounted_he;
+
+/* flags for the refcounted_he API */
+#define REFCOUNTED_HE_KEY_UTF8		0x00000001
+#ifdef PERL_CORE
+# define REFCOUNTED_HE_EXISTS		0x00000002
+#endif
+
+#ifdef PERL_CORE
+
+/* Gosh. This really isn't a good name any longer.  */
+struct refcounted_he {
+    struct refcounted_he *refcounted_he_next;	/* next entry in chain */
+#ifdef USE_ITHREADS
+    U32                   refcounted_he_hash;
+    U32                   refcounted_he_keylen;
+#else
+    HEK                  *refcounted_he_hek;	/* hint key */
+#endif
+    union {
+	IV                refcounted_he_u_iv;
+	UV                refcounted_he_u_uv;
+	STRLEN            refcounted_he_u_len;
+	void		 *refcounted_he_u_ptr;	/* Might be useful in future */
+    } refcounted_he_val;
+    U32	                  refcounted_he_refcnt;	/* reference count */
+    /* First byte is flags. Then NUL-terminated value. Then for ithreads,
+       non-NUL terminated key.  */
+    char                  refcounted_he_data[1];
+};
+
+/*
+=for apidoc m|SV *|refcounted_he_fetch_pvs|const struct refcounted_he *chain|const char *key|U32 flags
+
+Like L</refcounted_he_fetch_pvn>, but takes a C<NUL>-terminated literal string
+instead of a string/length pair, and no precomputed hash.
+
+=cut
+*/
+
+#define refcounted_he_fetch_pvs(chain, key, flags) \
+    Perl_refcounted_he_fetch_pvn(aTHX_ chain, STR_WITH_LEN(key), 0, flags)
+
+/*
+=for apidoc m|struct refcounted_he *|refcounted_he_new_pvs|struct refcounted_he *parent|const char *key|SV *value|U32 flags
+
+Like L</refcounted_he_new_pvn>, but takes a C<NUL>-terminated literal string
+instead of a string/length pair, and no precomputed hash.
+
+=cut
+*/
+
+#define refcounted_he_new_pvs(parent, key, value, flags) \
+    Perl_refcounted_he_new_pvn(aTHX_ parent, STR_WITH_LEN(key), 0, value, flags)
+
+/* Flag bits are HVhek_UTF8, HVhek_WASUTF8, then */
+#define HVrhek_undef	0x00 /* Value is undef. */
+#define HVrhek_delete	0x10 /* Value is placeholder - signifies delete. */
+#define HVrhek_IV	0x20 /* Value is IV. */
+#define HVrhek_UV	0x30 /* Value is UV. */
+#define HVrhek_PV	0x40 /* Value is a (byte) string. */
+#define HVrhek_PV_UTF8	0x50 /* Value is a (utf8) string. */
+/* Two spare. As these have to live in the optree, you can't store anything
+   interpreter specific, such as SVs. :-( */
+#define HVrhek_typemask 0x70
+
+#ifdef USE_ITHREADS
+/* A big expression to find the key offset */
+#define REF_HE_KEY(chain)						\
+	((((chain->refcounted_he_data[0] & 0x60) == 0x40)		\
+	    ? chain->refcounted_he_val.refcounted_he_u_len + 1 : 0)	\
+	 + 1 + chain->refcounted_he_data)
+#endif
+
+#  ifdef USE_ITHREADS
+#    define HINTS_REFCNT_LOCK		MUTEX_LOCK(&PL_hints_mutex)
+#    define HINTS_REFCNT_UNLOCK		MUTEX_UNLOCK(&PL_hints_mutex)
+#  else
+#    define HINTS_REFCNT_LOCK		NOOP
+#    define HINTS_REFCNT_UNLOCK		NOOP
+#  endif
+#endif
+
+#ifdef USE_ITHREADS
+#  define HINTS_REFCNT_INIT		MUTEX_INIT(&PL_hints_mutex)
+#  define HINTS_REFCNT_TERM		MUTEX_DESTROY(&PL_hints_mutex)
+#else
+#  define HINTS_REFCNT_INIT		NOOP
+#  define HINTS_REFCNT_TERM		NOOP
+#endif
+
+/* Hash actions
+ * Passed in PERL_MAGIC_uvar calls
+ */
+#define HV_DISABLE_UVAR_XKEY	0x01
+/* We need to ensure that these don't clash with G_DISCARD, which is 2, as it
+   is documented as being passed to hv_delete().  */
+#define HV_FETCH_ISSTORE	0x04
+#define HV_FETCH_ISEXISTS	0x08
+#define HV_FETCH_LVALUE		0x10
+#define HV_FETCH_JUST_SV	0x20
+#define HV_DELETE		0x40
+#define HV_FETCH_EMPTY_HE	0x80 /* Leave HeVAL null. */
+
+/* Must not conflict with HVhek_UTF8 */
+#define HV_NAME_SETALL		0x02
+
+/*
+=for apidoc newHV
+
+Creates a new HV.  The reference count is set to 1.
+
+=cut
+*/
+
+#define newHV()	MUTABLE_HV(newSV_type(SVt_PVHV))
+
+#include "hv_func.h"
+
+/*
+ * ex: set ts=8 sts=4 sw=4 et:
+ */
diff --git a/lib/5.24.1/x86_64-linux/CORE/hv_func.h b/lib/5.24.1/x86_64-linux/CORE/hv_func.h
new file mode 100644
index 00000000..8866db90
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/hv_func.h
@@ -0,0 +1,704 @@
+/* hash a key
+ *--------------------------------------------------------------------------------------
+ * The "hash seed" feature was added in Perl 5.8.1 to perturb the results
+ * to avoid "algorithmic complexity attacks".
+ *
+ * If USE_HASH_SEED is defined, hash randomisation is done by default
+ * If USE_HASH_SEED_EXPLICIT is defined, hash randomisation is done
+ * only if the environment variable PERL_HASH_SEED is set.
+ * (see also perl.c:perl_parse() and S_init_tls_and_interp() and util.c:get_hash_seed())
+ */
+
+#ifndef PERL_SEEN_HV_FUNC_H /* compile once */
+#define PERL_SEEN_HV_FUNC_H
+
+#if !( 0 \
+        || defined(PERL_HASH_FUNC_SIPHASH) \
+        || defined(PERL_HASH_FUNC_SDBM) \
+        || defined(PERL_HASH_FUNC_DJB2) \
+        || defined(PERL_HASH_FUNC_SUPERFAST) \
+        || defined(PERL_HASH_FUNC_MURMUR3) \
+        || defined(PERL_HASH_FUNC_ONE_AT_A_TIME) \
+        || defined(PERL_HASH_FUNC_ONE_AT_A_TIME_HARD) \
+        || defined(PERL_HASH_FUNC_ONE_AT_A_TIME_OLD) \
+        || defined(PERL_HASH_FUNC_MURMUR_HASH_64A) \
+        || defined(PERL_HASH_FUNC_MURMUR_HASH_64B) \
+    )
+#define PERL_HASH_FUNC_ONE_AT_A_TIME_HARD
+#endif
+
+#if defined(PERL_HASH_FUNC_SIPHASH)
+#   define PERL_HASH_FUNC "SIPHASH_2_4"
+#   define PERL_HASH_SEED_BYTES 16
+#   define PERL_HASH_WITH_SEED(seed,hash,str,len) (hash)= S_perl_hash_siphash_2_4((seed),(U8*)(str),(len))
+#elif defined(PERL_HASH_FUNC_SUPERFAST)
+#   define PERL_HASH_FUNC "SUPERFAST"
+#   define PERL_HASH_SEED_BYTES 4
+#   define PERL_HASH_WITH_SEED(seed,hash,str,len) (hash)= S_perl_hash_superfast((seed),(U8*)(str),(len))
+#elif defined(PERL_HASH_FUNC_MURMUR3)
+#   define PERL_HASH_FUNC "MURMUR3"
+#   define PERL_HASH_SEED_BYTES 4
+#   define PERL_HASH_WITH_SEED(seed,hash,str,len) (hash)= S_perl_hash_murmur3((seed),(U8*)(str),(len))
+#elif defined(PERL_HASH_FUNC_DJB2)
+#   define PERL_HASH_FUNC "DJB2"
+#   define PERL_HASH_SEED_BYTES 4
+#   define PERL_HASH_WITH_SEED(seed,hash,str,len) (hash)= S_perl_hash_djb2((seed),(U8*)(str),(len))
+#elif defined(PERL_HASH_FUNC_SDBM)
+#   define PERL_HASH_FUNC "SDBM"
+#   define PERL_HASH_SEED_BYTES 4
+#   define PERL_HASH_WITH_SEED(seed,hash,str,len) (hash)= S_perl_hash_sdbm((seed),(U8*)(str),(len))
+#elif defined(PERL_HASH_FUNC_ONE_AT_A_TIME_HARD)
+#   define PERL_HASH_FUNC "ONE_AT_A_TIME_HARD"
+#   define PERL_HASH_SEED_BYTES 8
+#   define PERL_HASH_WITH_SEED(seed,hash,str,len) (hash)= S_perl_hash_one_at_a_time_hard((seed),(U8*)(str),(len))
+#elif defined(PERL_HASH_FUNC_ONE_AT_A_TIME)
+#   define PERL_HASH_FUNC "ONE_AT_A_TIME"
+#   define PERL_HASH_SEED_BYTES 4
+#   define PERL_HASH_WITH_SEED(seed,hash,str,len) (hash)= S_perl_hash_one_at_a_time((seed),(U8*)(str),(len))
+#elif defined(PERL_HASH_FUNC_ONE_AT_A_TIME_OLD)
+#   define PERL_HASH_FUNC "ONE_AT_A_TIME_OLD"
+#   define PERL_HASH_SEED_BYTES 4
+#   define PERL_HASH_WITH_SEED(seed,hash,str,len) (hash)= S_perl_hash_old_one_at_a_time((seed),(U8*)(str),(len))
+#elif defined(PERL_HASH_FUNC_MURMUR_HASH_64A)
+#   define PERL_HASH_FUNC "MURMUR_HASH_64A"
+#   define PERL_HASH_SEED_BYTES 8
+#   define PERL_HASH_WITH_SEED(seed,hash,str,len) (hash)= S_perl_hash_murmur_hash_64a((seed),(U8*)(str),(len))
+#elif defined(PERL_HASH_FUNC_MURMUR_HASH_64B)
+#   define PERL_HASH_FUNC "MURMUR_HASH_64B"
+#   define PERL_HASH_SEED_BYTES 8
+#   define PERL_HASH_WITH_SEED(seed,hash,str,len) (hash)= S_perl_hash_murmur_hash_64b((seed),(U8*)(str),(len))
+#endif
+
+#ifndef PERL_HASH_WITH_SEED
+#error "No hash function defined!"
+#endif
+#ifndef PERL_HASH_SEED_BYTES
+#error "PERL_HASH_SEED_BYTES not defined"
+#endif
+#ifndef PERL_HASH_FUNC
+#error "PERL_HASH_FUNC not defined"
+#endif
+
+#ifndef PERL_HASH_SEED
+#   if defined(USE_HASH_SEED) || defined(USE_HASH_SEED_EXPLICIT)
+#       define PERL_HASH_SEED PL_hash_seed
+#   elif PERL_HASH_SEED_BYTES == 4
+#       define PERL_HASH_SEED ((const U8 *)"PeRl")
+#   elif PERL_HASH_SEED_BYTES == 8
+#       define PERL_HASH_SEED ((const U8 *)"PeRlHaSh")
+#   elif PERL_HASH_SEED_BYTES == 16
+#       define PERL_HASH_SEED ((const U8 *)"PeRlHaShhAcKpErl")
+#   else
+#       error "No PERL_HASH_SEED definition for " PERL_HASH_FUNC
+#   endif
+#endif
+
+#define PERL_HASH(hash,str,len) PERL_HASH_WITH_SEED(PERL_HASH_SEED,hash,str,len)
+
+/*-----------------------------------------------------------------------------
+ * Endianess, misalignment capabilities and util macros
+ *
+ * The following 3 macros are defined in this section. The other macros defined
+ * are only needed to help derive these 3.
+ *
+ * U8TO32_LE(x)   Read a little endian unsigned 32-bit int
+ * UNALIGNED_SAFE   Defined if unaligned access is safe
+ * ROTL32(x,r)      Rotate x left by r bits
+ */
+
+#if (defined(__GNUC__) && defined(__i386__)) || defined(__WATCOMC__) \
+  || defined(_MSC_VER) || defined (__TURBOC__)
+#define U8TO16_LE(d) (*((const U16 *) (d)))
+#endif
+
+#if !defined (U8TO16_LE)
+#define U8TO16_LE(d) ((((const U8 *)(d))[1] << 8)\
+                      +((const U8 *)(d))[0])
+#endif
+
+#if (BYTEORDER == 0x1234 || BYTEORDER == 0x12345678) && U32SIZE == 4
+  /* CPU endian matches murmurhash algorithm, so read 32-bit word directly */
+  #define U8TO32_LE(ptr)   (*((U32*)(ptr)))
+#elif BYTEORDER == 0x4321 || BYTEORDER == 0x87654321
+  /* TODO: Add additional cases below where a compiler provided bswap32 is available */
+  #if defined(__GNUC__) && (__GNUC__>4 || (__GNUC__==4 && __GNUC_MINOR__>=3))
+    #define U8TO32_LE(ptr)   (__builtin_bswap32(*((U32*)(ptr))))
+  #else
+    /* Without a known fast bswap32 we're just as well off doing this */
+    #define U8TO32_LE(ptr)   (ptr[0]|ptr[1]<<8|ptr[2]<<16|ptr[3]<<24)
+    #define UNALIGNED_SAFE
+  #endif
+#else
+  /* Unknown endianess so last resort is to read individual bytes */
+  #define U8TO32_LE(ptr)   (ptr[0]|ptr[1]<<8|ptr[2]<<16|ptr[3]<<24)
+  /* Since we're not doing word-reads we can skip the messing about with realignment */
+  #define UNALIGNED_SAFE
+#endif
+
+#ifdef HAS_QUAD
+#ifndef U64TYPE
+/* This probably isn't going to work, but failing with a compiler error due to
+   lack of uint64_t is no worse than failing right now with an #error.  */
+#define U64 uint64_t
+#endif
+#endif
+
+/* Find best way to ROTL32/ROTL64 */
+#if defined(_MSC_VER)
+  #include <stdlib.h>  /* Microsoft put _rotl declaration in here */
+  #define ROTL32(x,r)  _rotl(x,r)
+  #ifdef HAS_QUAD
+    #define ROTL64(x,r)  _rotl64(x,r)
+  #endif
+#else
+  /* gcc recognises this code and generates a rotate instruction for CPUs with one */
+  #define ROTL32(x,r)  (((U32)x << r) | ((U32)x >> (32 - r)))
+  #ifdef HAS_QUAD
+    #define ROTL64(x,r)  (((U64)x << r) | ((U64)x >> (64 - r)))
+  #endif
+#endif
+
+
+#ifdef UV_IS_QUAD
+#define ROTL_UV(x,r) ROTL64(x,r)
+#else
+#define ROTL_UV(x,r) ROTL32(x,r)
+#endif
+
+/* This is SipHash by Jean-Philippe Aumasson and Daniel J. Bernstein.
+ * The authors claim it is relatively secure compared to the alternatives
+ * and that performance wise it is a suitable hash for languages like Perl.
+ * See:
+ *
+ * https://www.131002.net/siphash/
+ *
+ * This implementation seems to perform slightly slower than one-at-a-time for
+ * short keys, but degrades slower for longer keys. Murmur Hash outperforms it
+ * regardless of keys size.
+ *
+ * It is 64 bit only.
+ */
+
+#ifdef HAS_QUAD
+
+#define U8TO64_LE(p) \
+  (((U64)((p)[0])      ) | \
+   ((U64)((p)[1]) <<  8) | \
+   ((U64)((p)[2]) << 16) | \
+   ((U64)((p)[3]) << 24) | \
+   ((U64)((p)[4]) << 32) | \
+   ((U64)((p)[5]) << 40) | \
+   ((U64)((p)[6]) << 48) | \
+   ((U64)((p)[7]) << 56))
+
+#define SIPROUND            \
+  do {              \
+    v0 += v1; v1=ROTL64(v1,13); v1 ^= v0; v0=ROTL64(v0,32); \
+    v2 += v3; v3=ROTL64(v3,16); v3 ^= v2;     \
+    v0 += v3; v3=ROTL64(v3,21); v3 ^= v0;     \
+    v2 += v1; v1=ROTL64(v1,17); v1 ^= v2; v2=ROTL64(v2,32); \
+  } while(0)
+
+/* SipHash-2-4 */
+
+PERL_STATIC_INLINE U32
+S_perl_hash_siphash_2_4(const unsigned char * const seed, const unsigned char *in, const STRLEN inlen) {
+  /* "somepseudorandomlygeneratedbytes" */
+  U64 v0 = UINT64_C(0x736f6d6570736575);
+  U64 v1 = UINT64_C(0x646f72616e646f6d);
+  U64 v2 = UINT64_C(0x6c7967656e657261);
+  U64 v3 = UINT64_C(0x7465646279746573);
+
+  U64 b;
+  U64 k0 = ((U64*)seed)[0];
+  U64 k1 = ((U64*)seed)[1];
+  U64 m;
+  const int left = inlen & 7;
+  const U8 *end = in + inlen - left;
+
+  b = ( ( U64 )(inlen) ) << 56;
+  v3 ^= k1;
+  v2 ^= k0;
+  v1 ^= k1;
+  v0 ^= k0;
+
+  for ( ; in != end; in += 8 )
+  {
+    m = U8TO64_LE( in );
+    v3 ^= m;
+    SIPROUND;
+    SIPROUND;
+    v0 ^= m;
+  }
+
+  switch( left )
+  {
+  case 7: b |= ( ( U64 )in[ 6] )  << 48;
+  case 6: b |= ( ( U64 )in[ 5] )  << 40;
+  case 5: b |= ( ( U64 )in[ 4] )  << 32;
+  case 4: b |= ( ( U64 )in[ 3] )  << 24;
+  case 3: b |= ( ( U64 )in[ 2] )  << 16;
+  case 2: b |= ( ( U64 )in[ 1] )  <<  8;
+  case 1: b |= ( ( U64 )in[ 0] ); break;
+  case 0: break;
+  }
+
+  v3 ^= b;
+  SIPROUND;
+  SIPROUND;
+  v0 ^= b;
+
+  v2 ^= 0xff;
+  SIPROUND;
+  SIPROUND;
+  SIPROUND;
+  SIPROUND;
+  b = v0 ^ v1 ^ v2  ^ v3;
+  return (U32)(b & U32_MAX);
+}
+#endif /* defined(HAS_QUAD) */
+
+/* FYI: This is the "Super-Fast" algorithm mentioned by Bob Jenkins in
+ * (http://burtleburtle.net/bob/hash/doobs.html)
+ * It is by Paul Hsieh (c) 2004 and is analysed here
+ * http://www.azillionmonkeys.com/qed/hash.html
+ * license terms are here:
+ * http://www.azillionmonkeys.com/qed/weblicense.html
+ */
+
+
+PERL_STATIC_INLINE U32
+S_perl_hash_superfast(const unsigned char * const seed, const unsigned char *str, STRLEN len) {
+    U32 hash = *((U32*)seed) + (U32)len;
+    U32 tmp;
+    int rem= len & 3;
+    len >>= 2;
+
+    for (;len > 0; len--) {
+        hash  += U8TO16_LE (str);
+        tmp    = (U8TO16_LE (str+2) << 11) ^ hash;
+        hash   = (hash << 16) ^ tmp;
+        str   += 2 * sizeof (U16);
+        hash  += hash >> 11;
+    }
+
+    /* Handle end cases */
+    switch (rem) { \
+        case 3: hash += U8TO16_LE (str);
+                hash ^= hash << 16;
+                hash ^= str[sizeof (U16)] << 18;
+                hash += hash >> 11;
+                break;
+        case 2: hash += U8TO16_LE (str);
+                hash ^= hash << 11;
+                hash += hash >> 17;
+                break;
+        case 1: hash += *str;
+                hash ^= hash << 10;
+                hash += hash >> 1;
+    }
+    /* Force "avalanching" of final 127 bits */
+    hash ^= hash << 3;
+    hash += hash >> 5;
+    hash ^= hash << 4;
+    hash += hash >> 17;
+    hash ^= hash << 25;
+    return (hash + (hash >> 6));
+}
+
+
+/*-----------------------------------------------------------------------------
+ * MurmurHash3 was written by Austin Appleby, and is placed in the public
+ * domain.
+ *
+ * This implementation was originally written by Shane Day, and is also public domain,
+ * and was modified to function as a macro similar to other perl hash functions by
+ * Yves Orton.
+ *
+ * This is a portable ANSI C implementation of MurmurHash3_x86_32 (Murmur3A)
+ * with support for progressive processing.
+ *
+ * If you want to understand the MurmurHash algorithm you would be much better
+ * off reading the original source. Just point your browser at:
+ * http://code.google.com/p/smhasher/source/browse/trunk/MurmurHash3.cpp
+ *
+ * How does it work?
+ *
+ * We can only process entire 32 bit chunks of input, except for the very end
+ * that may be shorter.
+ *
+ * To handle endianess I simply use a macro that reads a U32 and define
+ * that macro to be a direct read on little endian machines, a read and swap
+ * on big endian machines, or a byte-by-byte read if the endianess is unknown.
+ */
+
+
+/*-----------------------------------------------------------------------------
+ * Core murmurhash algorithm macros */
+
+#define MURMUR_C1  (0xcc9e2d51)
+#define MURMUR_C2  (0x1b873593)
+#define MURMUR_C3  (0xe6546b64)
+#define MURMUR_C4  (0x85ebca6b)
+#define MURMUR_C5  (0xc2b2ae35)
+
+/* This is the main processing body of the algorithm. It operates
+ * on each full 32-bits of input. */
+#define MURMUR_DOBLOCK(h1, k1) STMT_START { \
+    k1 *= MURMUR_C1; \
+    k1 = ROTL32(k1,15); \
+    k1 *= MURMUR_C2; \
+    \
+    h1 ^= k1; \
+    h1 = ROTL32(h1,13); \
+    h1 = h1 * 5 + MURMUR_C3; \
+} STMT_END
+
+
+/* Append unaligned bytes to carry, forcing hash churn if we have 4 bytes */
+/* cnt=bytes to process, h1=name of h1 var, c=carry, n=bytes in c, ptr/len=payload */
+#define MURMUR_DOBYTES(cnt, h1, c, n, ptr, len) STMT_START { \
+    int MURMUR_DOBYTES_i = cnt; \
+    while(MURMUR_DOBYTES_i--) { \
+        c = c>>8 | *ptr++<<24; \
+        n++; len--; \
+        if(n==4) { \
+            MURMUR_DOBLOCK(h1, c); \
+            n = 0; \
+        } \
+    } \
+} STMT_END
+
+
+/* now we create the hash function */
+PERL_STATIC_INLINE U32
+S_perl_hash_murmur3(const unsigned char * const seed, const unsigned char *ptr, STRLEN len) {
+    U32 h1 = *((U32*)seed);
+    U32 k1;
+    U32 carry = 0;
+
+    const unsigned char *end;
+    int bytes_in_carry = 0; /* bytes in carry */
+    I32 total_length= (I32)len;
+
+#if defined(UNALIGNED_SAFE)
+    /* Handle carry: commented out as its only used in incremental mode - it never fires for us
+    int i = (4-n) & 3;
+    if(i && i <= len) {
+      MURMUR_DOBYTES(i, h1, carry, bytes_in_carry, ptr, len);
+    }
+    */
+
+    /* This CPU handles unaligned word access */
+    /* Process 32-bit chunks */
+    end = ptr + len/4*4;
+    for( ; ptr < end ; ptr+=4) {
+        k1 = U8TO32_LE(ptr);
+        MURMUR_DOBLOCK(h1, k1);
+    }
+#else
+    /* This CPU does not handle unaligned word access */
+
+    /* Consume enough so that the next data byte is word aligned */
+    STRLEN i = -PTR2IV(ptr) & 3;
+    if(i && i <= len) {
+      MURMUR_DOBYTES((int)i, h1, carry, bytes_in_carry, ptr, len);
+    }
+
+    /* We're now aligned. Process in aligned blocks. Specialise for each possible carry count */
+    end = ptr + len/4*4;
+    switch(bytes_in_carry) { /* how many bytes in carry */
+        case 0: /* c=[----]  w=[3210]  b=[3210]=w            c'=[----] */
+        for( ; ptr < end ; ptr+=4) {
+            k1 = U8TO32_LE(ptr);
+            MURMUR_DOBLOCK(h1, k1);
+        }
+        break;
+        case 1: /* c=[0---]  w=[4321]  b=[3210]=c>>24|w<<8   c'=[4---] */
+        for( ; ptr < end ; ptr+=4) {
+            k1 = carry>>24;
+            carry = U8TO32_LE(ptr);
+            k1 |= carry<<8;
+            MURMUR_DOBLOCK(h1, k1);
+        }
+        break;
+        case 2: /* c=[10--]  w=[5432]  b=[3210]=c>>16|w<<16  c'=[54--] */
+        for( ; ptr < end ; ptr+=4) {
+            k1 = carry>>16;
+            carry = U8TO32_LE(ptr);
+            k1 |= carry<<16;
+            MURMUR_DOBLOCK(h1, k1);
+        }
+        break;
+        case 3: /* c=[210-]  w=[6543]  b=[3210]=c>>8|w<<24   c'=[654-] */
+        for( ; ptr < end ; ptr+=4) {
+            k1 = carry>>8;
+            carry = U8TO32_LE(ptr);
+            k1 |= carry<<24;
+            MURMUR_DOBLOCK(h1, k1);
+        }
+    }
+#endif
+    /* Advance over whole 32-bit chunks, possibly leaving 1..3 bytes */
+    len -= len/4*4;
+
+    /* Append any remaining bytes into carry */
+    MURMUR_DOBYTES((int)len, h1, carry, bytes_in_carry, ptr, len);
+
+    if (bytes_in_carry) {
+        k1 = carry >> ( 4 - bytes_in_carry ) * 8;
+        k1 *= MURMUR_C1;
+        k1 = ROTL32(k1,15);
+        k1 *= MURMUR_C2;
+        h1 ^= k1;
+    }
+    h1 ^= total_length;
+
+    /* fmix */
+    h1 ^= h1 >> 16;
+    h1 *= MURMUR_C4;
+    h1 ^= h1 >> 13;
+    h1 *= MURMUR_C5;
+    h1 ^= h1 >> 16;
+    return h1;
+}
+
+
+PERL_STATIC_INLINE U32
+S_perl_hash_djb2(const unsigned char * const seed, const unsigned char *str, const STRLEN len) {
+    const unsigned char * const end = (const unsigned char *)str + len;
+    U32 hash = *((U32*)seed) + (U32)len;
+    while (str < end) {
+        hash = ((hash << 5) + hash) + *str++;
+    }
+    return hash;
+}
+
+PERL_STATIC_INLINE U32
+S_perl_hash_sdbm(const unsigned char * const seed, const unsigned char *str, const STRLEN len) {
+    const unsigned char * const end = (const unsigned char *)str + len;
+    U32 hash = *((U32*)seed) + (U32)len;
+    while (str < end) {
+        hash = (hash << 6) + (hash << 16) - hash + *str++;
+    }
+    return hash;
+}
+
+/* - ONE_AT_A_TIME_HARD is the 5.17+ recommend ONE_AT_A_TIME algorithm
+ * - ONE_AT_A_TIME_OLD is the unmodified 5.16 and older algorithm
+ * - ONE_AT_A_TIME is a 5.17+ tweak of ONE_AT_A_TIME_OLD to
+ *   prevent strings of only \0 but different lengths from colliding
+ *
+ * Security-wise, from best to worst,
+ * ONE_AT_A_TIME_HARD > ONE_AT_A_TIME > ONE_AT_A_TIME_OLD
+ * There is a big drop-off in security between ONE_AT_A_TIME_HARD and
+ * ONE_AT_A_TIME
+ * */
+
+/* This is the "One-at-a-Time" algorithm by Bob Jenkins
+ * from requirements by Colin Plumb.
+ * (http://burtleburtle.net/bob/hash/doobs.html)
+ * With seed/len tweak.
+ * */
+PERL_STATIC_INLINE U32
+S_perl_hash_one_at_a_time(const unsigned char * const seed, const unsigned char *str, const STRLEN len) {
+    const unsigned char * const end = (const unsigned char *)str + len;
+    U32 hash = *((U32*)seed) + (U32)len;
+    while (str < end) {
+        hash += *str++;
+        hash += (hash << 10);
+        hash ^= (hash >> 6);
+    }
+    hash += (hash << 3);
+    hash ^= (hash >> 11);
+    return (hash + (hash << 15));
+}
+
+/* Derived from "One-at-a-Time" algorithm by Bob Jenkins */
+PERL_STATIC_INLINE U32
+S_perl_hash_one_at_a_time_hard(const unsigned char * const seed, const unsigned char *str, const STRLEN len) {
+    const unsigned char * const end = (const unsigned char *)str + len;
+    U32 hash = *((U32*)seed) + (U32)len;
+    
+    while (str < end) {
+        hash += (hash << 10);
+        hash ^= (hash >> 6);
+        hash += *str++;
+    }
+    
+    hash += (hash << 10);
+    hash ^= (hash >> 6);
+    hash += seed[4];
+    
+    hash += (hash << 10);
+    hash ^= (hash >> 6);
+    hash += seed[5];
+    
+    hash += (hash << 10);
+    hash ^= (hash >> 6);
+    hash += seed[6];
+    
+    hash += (hash << 10);
+    hash ^= (hash >> 6);
+    hash += seed[7];
+    
+    hash += (hash << 10);
+    hash ^= (hash >> 6);
+
+    hash += (hash << 3);
+    hash ^= (hash >> 11);
+    return (hash + (hash << 15));
+}
+
+PERL_STATIC_INLINE U32
+S_perl_hash_old_one_at_a_time(const unsigned char * const seed, const unsigned char *str, const STRLEN len) {
+    const unsigned char * const end = (const unsigned char *)str + len;
+    U32 hash = *((U32*)seed);
+    while (str < end) {
+        hash += *str++;
+        hash += (hash << 10);
+        hash ^= (hash >> 6);
+    }
+    hash += (hash << 3);
+    hash ^= (hash >> 11);
+    return (hash + (hash << 15));
+}
+
+#ifdef PERL_HASH_FUNC_MURMUR_HASH_64A
+/* This code is from Austin Appleby and is in the public domain.
+   Altered by Yves Orton to match Perl's hash interface, and to
+   return a 32 bit hash.
+
+   Note uses unaligned 64 bit loads - will NOT work on machines with
+   strict alignment requirements.
+
+   Also this code may not be suitable for big-endian machines.
+*/
+
+/* a 64 bit hash where we only use the low 32 bits */
+PERL_STATIC_INLINE U32
+S_perl_hash_murmur_hash_64a (const unsigned char * const seed, const unsigned char *str, const STRLEN len)
+{
+        const U64 m = UINT64_C(0xc6a4a7935bd1e995);
+        const int r = 47;
+        U64 h = *((U64*)seed) ^ len;
+        const U64 * data = (const U64 *)str;
+        const U64 * end = data + (len/8);
+        const unsigned char * data2;
+
+        while(data != end)
+        {
+            U64 k = *data++;
+
+            k *= m;
+            k ^= k >> r;
+            k *= m;
+
+            h ^= k;
+            h *= m;
+        }
+
+        data2 = (const unsigned char *)data;
+
+        switch(len & 7)
+        {
+            case 7: h ^= (U64)(data2[6]) << 48; /* fallthrough */
+            case 6: h ^= (U64)(data2[5]) << 40; /* fallthrough */
+            case 5: h ^= (U64)(data2[4]) << 32; /* fallthrough */
+            case 4: h ^= (U64)(data2[3]) << 24; /* fallthrough */
+            case 3: h ^= (U64)(data2[2]) << 16; /* fallthrough */
+            case 2: h ^= (U64)(data2[1]) << 8;  /* fallthrough */
+            case 1: h ^= (U64)(data2[0]);       /* fallthrough */
+                    h *= m;
+        };
+
+        h ^= h >> r;
+        h *= m;
+        h ^= h >> r;
+
+        /* was: return h; */
+        return h & 0xFFFFFFFF;
+}
+
+#endif
+
+#ifdef PERL_HASH_FUNC_MURMUR_HASH_64B
+/* This code is from Austin Appleby and is in the public domain.
+   Altered by Yves Orton to match Perl's hash interface and return
+   a 32 bit value
+
+   Note uses unaligned 32 bit loads - will NOT work on machines with
+   strict alignment requirements.
+
+   Also this code may not be suitable for big-endian machines.
+*/
+
+/* a 64-bit hash for 32-bit platforms where we only use the low 32 bits */
+PERL_STATIC_INLINE U32
+S_perl_hash_murmur_hash_64b (const unsigned char * const seed, const unsigned char *str, STRLEN len)
+{
+        const U32 m = 0x5bd1e995;
+        const int r = 24;
+
+        U32 h1 = ((U32 *)seed)[0] ^ len;
+        U32 h2 = ((U32 *)seed)[1];
+
+        const U32 * data = (const U32 *)str;
+
+        while(len >= 8)
+        {
+            U32 k1, k2;
+            k1 = *data++;
+            k1 *= m; k1 ^= k1 >> r; k1 *= m;
+            h1 *= m; h1 ^= k1;
+            len -= 4;
+
+            k2 = *data++;
+            k2 *= m; k2 ^= k2 >> r; k2 *= m;
+            h2 *= m; h2 ^= k2;
+            len -= 4;
+        }
+
+        if(len >= 4)
+        {
+            U32 k1 = *data++;
+            k1 *= m; k1 ^= k1 >> r; k1 *= m;
+            h1 *= m; h1 ^= k1;
+            len -= 4;
+        }
+
+        switch(len)
+        {
+            case 3: h2 ^= ((unsigned char*)data)[2] << 16;  /* fallthrough */
+            case 2: h2 ^= ((unsigned char*)data)[1] << 8;   /* fallthrough */
+            case 1: h2 ^= ((unsigned char*)data)[0];        /* fallthrough */
+                    h2 *= m;
+        };
+
+        h1 ^= h2 >> 18; h1 *= m;
+        h2 ^= h1 >> 22; h2 *= m;
+        /*
+        The following code has been removed as it is unused
+        when only the low 32 bits are used. -- Yves
+
+        h1 ^= h2 >> 17; h1 *= m;
+
+        U64 h = h1;
+
+        h = (h << 32) | h2;
+        */
+
+        return h2;
+}
+#endif
+
+/* legacy - only mod_perl should be doing this.  */
+#ifdef PERL_HASH_INTERNAL_ACCESS
+#define PERL_HASH_INTERNAL(hash,str,len) PERL_HASH(hash,str,len)
+#endif
+
+#endif /*compile once*/
+
+/*
+ * ex: set ts=8 sts=4 sw=4 et:
+ */
diff --git a/lib/5.24.1/x86_64-linux/CORE/inline.h b/lib/5.24.1/x86_64-linux/CORE/inline.h
new file mode 100644
index 00000000..35983d8c
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/inline.h
@@ -0,0 +1,751 @@
+/*    inline.h
+ *
+ *    Copyright (C) 2012 by Larry Wall and others
+ *
+ *    You may distribute under the terms of either the GNU General Public
+ *    License or the Artistic License, as specified in the README file.
+ *
+ * This file is a home for static inline functions that cannot go in other
+ * headers files, because they depend on proto.h (included after most other
+ * headers) or struct definitions.
+ *
+ * Each section names the header file that the functions "belong" to.
+ */
+
+/* ------------------------------- av.h ------------------------------- */
+
+PERL_STATIC_INLINE SSize_t
+S_av_top_index(pTHX_ AV *av)
+{
+    PERL_ARGS_ASSERT_AV_TOP_INDEX;
+    assert(SvTYPE(av) == SVt_PVAV);
+
+    return AvFILL(av);
+}
+
+/* ------------------------------- cv.h ------------------------------- */
+
+PERL_STATIC_INLINE GV *
+S_CvGV(pTHX_ CV *sv)
+{
+    return CvNAMED(sv)
+	? Perl_cvgv_from_hek(aTHX_ sv)
+	: ((XPVCV*)MUTABLE_PTR(SvANY(sv)))->xcv_gv_u.xcv_gv;
+}
+
+PERL_STATIC_INLINE I32 *
+S_CvDEPTHp(const CV * const sv)
+{
+    assert(SvTYPE(sv) == SVt_PVCV || SvTYPE(sv) == SVt_PVFM);
+    return &((XPVCV*)SvANY(sv))->xcv_depth;
+}
+
+/*
+ CvPROTO returns the prototype as stored, which is not necessarily what
+ the interpreter should be using. Specifically, the interpreter assumes
+ that spaces have been stripped, which has been the case if the prototype
+ was added by toke.c, but is generally not the case if it was added elsewhere.
+ Since we can't enforce the spacelessness at assignment time, this routine
+ provides a temporary copy at parse time with spaces removed.
+ I<orig> is the start of the original buffer, I<len> is the length of the
+ prototype and will be updated when this returns.
+ */
+
+#ifdef PERL_CORE
+PERL_STATIC_INLINE char *
+S_strip_spaces(pTHX_ const char * orig, STRLEN * const len)
+{
+    SV * tmpsv;
+    char * tmps;
+    tmpsv = newSVpvn_flags(orig, *len, SVs_TEMP);
+    tmps = SvPVX(tmpsv);
+    while ((*len)--) {
+	if (!isSPACE(*orig))
+	    *tmps++ = *orig;
+	orig++;
+    }
+    *tmps = '\0';
+    *len = tmps - SvPVX(tmpsv);
+		return SvPVX(tmpsv);
+}
+#endif
+
+/* ------------------------------- mg.h ------------------------------- */
+
+#if defined(PERL_CORE) || defined(PERL_EXT)
+/* assumes get-magic and stringification have already occurred */
+PERL_STATIC_INLINE STRLEN
+S_MgBYTEPOS(pTHX_ MAGIC *mg, SV *sv, const char *s, STRLEN len)
+{
+    assert(mg->mg_type == PERL_MAGIC_regex_global);
+    assert(mg->mg_len != -1);
+    if (mg->mg_flags & MGf_BYTES || !DO_UTF8(sv))
+	return (STRLEN)mg->mg_len;
+    else {
+	const STRLEN pos = (STRLEN)mg->mg_len;
+	/* Without this check, we may read past the end of the buffer: */
+	if (pos > sv_or_pv_len_utf8(sv, s, len)) return len+1;
+	return sv_or_pv_pos_u2b(sv, s, pos, NULL);
+    }
+}
+#endif
+
+/* ------------------------------- pad.h ------------------------------ */
+
+#if defined(PERL_IN_PAD_C) || defined(PERL_IN_OP_C)
+PERL_STATIC_INLINE bool
+PadnameIN_SCOPE(const PADNAME * const pn, const U32 seq)
+{
+    /* is seq within the range _LOW to _HIGH ?
+     * This is complicated by the fact that PL_cop_seqmax
+     * may have wrapped around at some point */
+    if (COP_SEQ_RANGE_LOW(pn) == PERL_PADSEQ_INTRO)
+	return FALSE; /* not yet introduced */
+
+    if (COP_SEQ_RANGE_HIGH(pn) == PERL_PADSEQ_INTRO) {
+    /* in compiling scope */
+	if (
+	    (seq >  COP_SEQ_RANGE_LOW(pn))
+	    ? (seq - COP_SEQ_RANGE_LOW(pn) < (U32_MAX >> 1))
+	    : (COP_SEQ_RANGE_LOW(pn) - seq > (U32_MAX >> 1))
+	)
+	    return TRUE;
+    }
+    else if (
+	(COP_SEQ_RANGE_LOW(pn) > COP_SEQ_RANGE_HIGH(pn))
+	?
+	    (  seq >  COP_SEQ_RANGE_LOW(pn)
+	    || seq <= COP_SEQ_RANGE_HIGH(pn))
+
+	:    (  seq >  COP_SEQ_RANGE_LOW(pn)
+	     && seq <= COP_SEQ_RANGE_HIGH(pn))
+    )
+	return TRUE;
+    return FALSE;
+}
+#endif
+
+/* ----------------------------- regexp.h ----------------------------- */
+
+PERL_STATIC_INLINE struct regexp *
+S_ReANY(const REGEXP * const re)
+{
+    assert(isREGEXP(re));
+    return re->sv_u.svu_rx;
+}
+
+/* ------------------------------- sv.h ------------------------------- */
+
+PERL_STATIC_INLINE SV *
+S_SvREFCNT_inc(SV *sv)
+{
+    if (LIKELY(sv != NULL))
+	SvREFCNT(sv)++;
+    return sv;
+}
+PERL_STATIC_INLINE SV *
+S_SvREFCNT_inc_NN(SV *sv)
+{
+    SvREFCNT(sv)++;
+    return sv;
+}
+PERL_STATIC_INLINE void
+S_SvREFCNT_inc_void(SV *sv)
+{
+    if (LIKELY(sv != NULL))
+	SvREFCNT(sv)++;
+}
+PERL_STATIC_INLINE void
+S_SvREFCNT_dec(pTHX_ SV *sv)
+{
+    if (LIKELY(sv != NULL)) {
+	U32 rc = SvREFCNT(sv);
+	if (LIKELY(rc > 1))
+	    SvREFCNT(sv) = rc - 1;
+	else
+	    Perl_sv_free2(aTHX_ sv, rc);
+    }
+}
+
+PERL_STATIC_INLINE void
+S_SvREFCNT_dec_NN(pTHX_ SV *sv)
+{
+    U32 rc = SvREFCNT(sv);
+    if (LIKELY(rc > 1))
+	SvREFCNT(sv) = rc - 1;
+    else
+	Perl_sv_free2(aTHX_ sv, rc);
+}
+
+PERL_STATIC_INLINE void
+SvAMAGIC_on(SV *sv)
+{
+    assert(SvROK(sv));
+    if (SvOBJECT(SvRV(sv))) HvAMAGIC_on(SvSTASH(SvRV(sv)));
+}
+PERL_STATIC_INLINE void
+SvAMAGIC_off(SV *sv)
+{
+    if (SvROK(sv) && SvOBJECT(SvRV(sv)))
+	HvAMAGIC_off(SvSTASH(SvRV(sv)));
+}
+
+PERL_STATIC_INLINE U32
+S_SvPADSTALE_on(SV *sv)
+{
+    assert(!(SvFLAGS(sv) & SVs_PADTMP));
+    return SvFLAGS(sv) |= SVs_PADSTALE;
+}
+PERL_STATIC_INLINE U32
+S_SvPADSTALE_off(SV *sv)
+{
+    assert(!(SvFLAGS(sv) & SVs_PADTMP));
+    return SvFLAGS(sv) &= ~SVs_PADSTALE;
+}
+#if defined(PERL_CORE) || defined (PERL_EXT)
+PERL_STATIC_INLINE STRLEN
+S_sv_or_pv_pos_u2b(pTHX_ SV *sv, const char *pv, STRLEN pos, STRLEN *lenp)
+{
+    PERL_ARGS_ASSERT_SV_OR_PV_POS_U2B;
+    if (SvGAMAGIC(sv)) {
+	U8 *hopped = utf8_hop((U8 *)pv, pos);
+	if (lenp) *lenp = (STRLEN)(utf8_hop(hopped, *lenp) - hopped);
+	return (STRLEN)(hopped - (U8 *)pv);
+    }
+    return sv_pos_u2b_flags(sv,pos,lenp,SV_CONST_RETURN);
+}
+#endif
+
+/* ------------------------------- handy.h ------------------------------- */
+
+/* saves machine code for a common noreturn idiom typically used in Newx*() */
+#ifdef GCC_DIAG_PRAGMA
+GCC_DIAG_IGNORE(-Wunused-function) /* Intentionally left semicolonless. */
+#endif
+static void
+S_croak_memory_wrap(void)
+{
+    Perl_croak_nocontext("%s",PL_memory_wrap);
+}
+#ifdef GCC_DIAG_PRAGMA
+GCC_DIAG_RESTORE /* Intentionally left semicolonless. */
+#endif
+
+/* ------------------------------- utf8.h ------------------------------- */
+
+PERL_STATIC_INLINE void
+S_append_utf8_from_native_byte(const U8 byte, U8** dest)
+{
+    /* Takes an input 'byte' (Latin1 or EBCDIC) and appends it to the UTF-8
+     * encoded string at '*dest', updating '*dest' to include it */
+
+    PERL_ARGS_ASSERT_APPEND_UTF8_FROM_NATIVE_BYTE;
+
+    if (NATIVE_BYTE_IS_INVARIANT(byte))
+        *(*dest)++ = byte;
+    else {
+        *(*dest)++ = UTF8_EIGHT_BIT_HI(byte);
+        *(*dest)++ = UTF8_EIGHT_BIT_LO(byte);
+    }
+}
+
+/*
+
+A helper function for the macro isUTF8_CHAR(), which should be used instead of
+this function.  The macro will handle smaller code points directly saving time,
+using this function as a fall-back for higher code points.
+
+Tests if the first bytes of string C<s> form a valid UTF-8 character.  0 is
+returned if the bytes starting at C<s> up to but not including C<e> do not form a
+complete well-formed UTF-8 character; otherwise the number of bytes in the
+character is returned.
+
+Note that an INVARIANT (i.e. ASCII on non-EBCDIC) character is a valid UTF-8
+character.
+
+=cut */
+PERL_STATIC_INLINE STRLEN
+S__is_utf8_char_slow(const U8 *s, const U8 *e)
+{
+    dTHX;   /* The function called below requires thread context */
+
+    STRLEN actual_len;
+
+    PERL_ARGS_ASSERT__IS_UTF8_CHAR_SLOW;
+
+    assert(e >= s);
+    utf8n_to_uvchr(s, e - s, &actual_len, UTF8_CHECK_ONLY);
+
+    return (actual_len == (STRLEN) -1) ? 0 : actual_len;
+}
+
+/* ------------------------------- perl.h ----------------------------- */
+
+/*
+=head1 Miscellaneous Functions
+
+=for apidoc AiR|bool|is_safe_syscall|const char *pv|STRLEN len|const char *what|const char *op_name
+
+Test that the given C<pv> doesn't contain any internal C<NUL> characters.
+If it does, set C<errno> to C<ENOENT>, optionally warn, and return FALSE.
+
+Return TRUE if the name is safe.
+
+Used by the C<IS_SAFE_SYSCALL()> macro.
+
+=cut
+*/
+
+PERL_STATIC_INLINE bool
+S_is_safe_syscall(pTHX_ const char *pv, STRLEN len, const char *what, const char *op_name) {
+    /* While the Windows CE API provides only UCS-16 (or UTF-16) APIs
+     * perl itself uses xce*() functions which accept 8-bit strings.
+     */
+
+    PERL_ARGS_ASSERT_IS_SAFE_SYSCALL;
+
+    if (len > 1) {
+        char *null_at;
+        if (UNLIKELY((null_at = (char *)memchr(pv, 0, len-1)) != NULL)) {
+                SETERRNO(ENOENT, LIB_INVARG);
+                Perl_ck_warner(aTHX_ packWARN(WARN_SYSCALLS),
+                                   "Invalid \\0 character in %s for %s: %s\\0%s",
+                                   what, op_name, pv, null_at+1);
+                return FALSE;
+        }
+    }
+
+    return TRUE;
+}
+
+/*
+
+Return true if the supplied filename has a newline character
+immediately before the first (hopefully only) NUL.
+
+My original look at this incorrectly used the len from SvPV(), but
+that's incorrect, since we allow for a NUL in pv[len-1].
+
+So instead, strlen() and work from there.
+
+This allow for the user reading a filename, forgetting to chomp it,
+then calling:
+
+  open my $foo, "$file\0";
+
+*/
+
+#ifdef PERL_CORE
+
+PERL_STATIC_INLINE bool
+S_should_warn_nl(const char *pv) {
+    STRLEN len;
+
+    PERL_ARGS_ASSERT_SHOULD_WARN_NL;
+
+    len = strlen(pv);
+
+    return len > 0 && pv[len-1] == '\n';
+}
+
+#endif
+
+/* ------------------ pp.c, regcomp.c, toke.c, universal.c ------------ */
+
+#define MAX_CHARSET_NAME_LENGTH 2
+
+PERL_STATIC_INLINE const char *
+get_regex_charset_name(const U32 flags, STRLEN* const lenp)
+{
+    /* Returns a string that corresponds to the name of the regex character set
+     * given by 'flags', and *lenp is set the length of that string, which
+     * cannot exceed MAX_CHARSET_NAME_LENGTH characters */
+
+    *lenp = 1;
+    switch (get_regex_charset(flags)) {
+        case REGEX_DEPENDS_CHARSET: return DEPENDS_PAT_MODS;
+        case REGEX_LOCALE_CHARSET:  return LOCALE_PAT_MODS;
+        case REGEX_UNICODE_CHARSET: return UNICODE_PAT_MODS;
+	case REGEX_ASCII_RESTRICTED_CHARSET: return ASCII_RESTRICT_PAT_MODS;
+	case REGEX_ASCII_MORE_RESTRICTED_CHARSET:
+	    *lenp = 2;
+	    return ASCII_MORE_RESTRICT_PAT_MODS;
+    }
+    /* The NOT_REACHED; hides an assert() which has a rather complex
+     * definition in perl.h. */
+    NOT_REACHED; /* NOTREACHED */
+    return "?";	    /* Unknown */
+}
+
+/*
+
+Return false if any get magic is on the SV other than taint magic.
+
+*/
+
+PERL_STATIC_INLINE bool
+S_sv_only_taint_gmagic(SV *sv) {
+    MAGIC *mg = SvMAGIC(sv);
+
+    PERL_ARGS_ASSERT_SV_ONLY_TAINT_GMAGIC;
+
+    while (mg) {
+        if (mg->mg_type != PERL_MAGIC_taint
+            && !(mg->mg_flags & MGf_GSKIP)
+            && mg->mg_virtual->svt_get) {
+            return FALSE;
+        }
+        mg = mg->mg_moremagic;
+    }
+
+    return TRUE;
+}
+
+/* ------------------ cop.h ------------------------------------------- */
+
+
+/* Enter a block. Push a new base context and return its address. */
+
+PERL_STATIC_INLINE PERL_CONTEXT *
+S_cx_pushblock(pTHX_ U8 type, U8 gimme, SV** sp, I32 saveix)
+{
+    PERL_CONTEXT * cx;
+
+    PERL_ARGS_ASSERT_CX_PUSHBLOCK;
+
+    CXINC;
+    cx = CX_CUR();
+    cx->cx_type        = type;
+    cx->blk_gimme      = gimme;
+    cx->blk_oldsaveix  = saveix;
+    cx->blk_oldsp      = (I32)(sp - PL_stack_base);
+    cx->blk_oldcop     = PL_curcop;
+    cx->blk_oldmarksp  = (I32)(PL_markstack_ptr - PL_markstack);
+    cx->blk_oldscopesp = PL_scopestack_ix;
+    cx->blk_oldpm      = PL_curpm;
+    cx->blk_old_tmpsfloor = PL_tmps_floor;
+
+    PL_tmps_floor        = PL_tmps_ix;
+    CX_DEBUG(cx, "PUSH");
+    return cx;
+}
+
+
+/* Exit a block (RETURN and LAST). */
+
+PERL_STATIC_INLINE void
+S_cx_popblock(pTHX_ PERL_CONTEXT *cx)
+{
+    PERL_ARGS_ASSERT_CX_POPBLOCK;
+
+    CX_DEBUG(cx, "POP");
+    /* these 3 are common to cx_popblock and cx_topblock */
+    PL_markstack_ptr = PL_markstack + cx->blk_oldmarksp;
+    PL_scopestack_ix = cx->blk_oldscopesp;
+    PL_curpm         = cx->blk_oldpm;
+
+    /* LEAVE_SCOPE() should have made this true. /(?{})/ cheats
+     * and leaves a CX entry lying around for repeated use, so
+     * skip for multicall */                  \
+    assert(   (CxTYPE(cx) == CXt_SUB && CxMULTICALL(cx))
+            || PL_savestack_ix == cx->blk_oldsaveix);
+    PL_curcop     = cx->blk_oldcop;
+    PL_tmps_floor = cx->blk_old_tmpsfloor;
+}
+
+/* Continue a block elsewhere (e.g. NEXT, REDO, GOTO).
+ * Whereas cx_popblock() restores the state to the point just before
+ * cx_pushblock() was called,  cx_topblock() restores it to the point just
+ * *after* cx_pushblock() was called. */
+
+PERL_STATIC_INLINE void
+S_cx_topblock(pTHX_ PERL_CONTEXT *cx)
+{
+    PERL_ARGS_ASSERT_CX_TOPBLOCK;
+
+    CX_DEBUG(cx, "TOP");
+    /* these 3 are common to cx_popblock and cx_topblock */
+    PL_markstack_ptr = PL_markstack + cx->blk_oldmarksp;
+    PL_scopestack_ix = cx->blk_oldscopesp;
+    PL_curpm         = cx->blk_oldpm;
+
+    PL_stack_sp      = PL_stack_base + cx->blk_oldsp;
+}
+
+
+PERL_STATIC_INLINE void
+S_cx_pushsub(pTHX_ PERL_CONTEXT *cx, CV *cv, OP *retop, bool hasargs)
+{
+    U8 phlags = CX_PUSHSUB_GET_LVALUE_MASK(Perl_was_lvalue_sub);
+
+    PERL_ARGS_ASSERT_CX_PUSHSUB;
+
+    PERL_DTRACE_PROBE_ENTRY(cv);
+    cx->blk_sub.cv = cv;
+    cx->blk_sub.olddepth = CvDEPTH(cv);
+    cx->blk_sub.prevcomppad = PL_comppad;
+    cx->cx_type |= (hasargs) ? CXp_HASARGS : 0;
+    cx->blk_sub.retop = retop;
+    SvREFCNT_inc_simple_void_NN(cv);
+    cx->blk_u16 = PL_op->op_private & (phlags|OPpDEREF);
+}
+
+
+/* subsets of cx_popsub() */
+
+PERL_STATIC_INLINE void
+S_cx_popsub_common(pTHX_ PERL_CONTEXT *cx)
+{
+    CV *cv;
+
+    PERL_ARGS_ASSERT_CX_POPSUB_COMMON;
+    assert(CxTYPE(cx) == CXt_SUB);
+
+    PL_comppad = cx->blk_sub.prevcomppad;
+    PL_curpad = LIKELY(PL_comppad) ? AvARRAY(PL_comppad) : NULL;
+    cv = cx->blk_sub.cv;
+    CvDEPTH(cv) = cx->blk_sub.olddepth;
+    cx->blk_sub.cv = NULL;
+    SvREFCNT_dec(cv);
+}
+
+
+/* handle the @_ part of leaving a sub */
+
+PERL_STATIC_INLINE void
+S_cx_popsub_args(pTHX_ PERL_CONTEXT *cx)
+{
+    AV *av;
+
+    PERL_ARGS_ASSERT_CX_POPSUB_ARGS;
+    assert(CxTYPE(cx) == CXt_SUB);
+    assert(AvARRAY(MUTABLE_AV(
+        PadlistARRAY(CvPADLIST(cx->blk_sub.cv))[
+                CvDEPTH(cx->blk_sub.cv)])) == PL_curpad);
+
+    CX_POP_SAVEARRAY(cx);
+    av = MUTABLE_AV(PAD_SVl(0));
+    if (UNLIKELY(AvREAL(av)))
+        /* abandon @_ if it got reified */
+        clear_defarray(av, 0);
+    else {
+        CLEAR_ARGARRAY(av);
+    }
+}
+
+
+PERL_STATIC_INLINE void
+S_cx_popsub(pTHX_ PERL_CONTEXT *cx)
+{
+    PERL_ARGS_ASSERT_CX_POPSUB;
+    assert(CxTYPE(cx) == CXt_SUB);
+
+    PERL_DTRACE_PROBE_RETURN(cx->blk_sub.cv);
+
+    if (CxHASARGS(cx))
+        cx_popsub_args(cx);
+    cx_popsub_common(cx);
+}
+
+
+PERL_STATIC_INLINE void
+S_cx_pushformat(pTHX_ PERL_CONTEXT *cx, CV *cv, OP *retop, GV *gv)
+{
+    PERL_ARGS_ASSERT_CX_PUSHFORMAT;
+
+    cx->blk_format.cv          = cv;
+    cx->blk_format.retop       = retop;
+    cx->blk_format.gv          = gv;
+    cx->blk_format.dfoutgv     = PL_defoutgv;
+    cx->blk_format.prevcomppad = PL_comppad;
+    cx->blk_u16                = 0;
+
+    SvREFCNT_inc_simple_void_NN(cv);
+    CvDEPTH(cv)++;
+    SvREFCNT_inc_void(cx->blk_format.dfoutgv);
+}
+
+
+PERL_STATIC_INLINE void
+S_cx_popformat(pTHX_ PERL_CONTEXT *cx)
+{
+    CV *cv;
+    GV *dfout;
+
+    PERL_ARGS_ASSERT_CX_POPFORMAT;
+    assert(CxTYPE(cx) == CXt_FORMAT);
+
+    dfout = cx->blk_format.dfoutgv;
+    setdefout(dfout);
+    cx->blk_format.dfoutgv = NULL;
+    SvREFCNT_dec_NN(dfout);
+
+    PL_comppad = cx->blk_format.prevcomppad;
+    PL_curpad = LIKELY(PL_comppad) ? AvARRAY(PL_comppad) : NULL;
+    cv = cx->blk_format.cv;
+    cx->blk_format.cv = NULL;
+    --CvDEPTH(cv);
+    SvREFCNT_dec_NN(cv);
+}
+
+
+PERL_STATIC_INLINE void
+S_cx_pusheval(pTHX_ PERL_CONTEXT *cx, OP *retop, SV *namesv)
+{
+    PERL_ARGS_ASSERT_CX_PUSHEVAL;
+
+    cx->blk_eval.retop         = retop;
+    cx->blk_eval.old_namesv    = namesv;
+    cx->blk_eval.old_eval_root = PL_eval_root;
+    cx->blk_eval.cur_text      = PL_parser ? PL_parser->linestr : NULL;
+    cx->blk_eval.cv            = NULL; /* later set by doeval_compile() */
+    cx->blk_eval.cur_top_env   = PL_top_env;
+
+    assert(!(PL_in_eval     & ~ 0x7F));
+    assert(!(PL_op->op_type & ~0x1FF));
+    cx->blk_u16 = (PL_in_eval & 0x7F) | ((U16)PL_op->op_type << 7);
+}
+
+
+PERL_STATIC_INLINE void
+S_cx_popeval(pTHX_ PERL_CONTEXT *cx)
+{
+    SV *sv;
+
+    PERL_ARGS_ASSERT_CX_POPEVAL;
+    assert(CxTYPE(cx) == CXt_EVAL);
+
+    PL_in_eval = CxOLD_IN_EVAL(cx);
+    PL_eval_root = cx->blk_eval.old_eval_root;
+    sv = cx->blk_eval.cur_text;
+    if (sv && SvSCREAM(sv)) {
+        cx->blk_eval.cur_text = NULL;
+        SvREFCNT_dec_NN(sv);
+    }
+
+    sv = cx->blk_eval.old_namesv;
+    if (sv && !SvTEMP(sv))/* TEMP implies cx_popeval() re-entrantly called */
+        sv_2mortal(sv);
+}
+
+
+/* push a plain loop, i.e.
+ *     { block }
+ *     while (cond) { block }
+ *     for (init;cond;continue) { block }
+ * This loop can be last/redo'ed etc.
+ */
+
+PERL_STATIC_INLINE void
+S_cx_pushloop_plain(pTHX_ PERL_CONTEXT *cx)
+{
+    PERL_ARGS_ASSERT_CX_PUSHLOOP_PLAIN;
+    cx->blk_loop.my_op = cLOOP;
+}
+
+
+/* push a true for loop, i.e.
+ *     for var (list) { block }
+ */
+
+PERL_STATIC_INLINE void
+S_cx_pushloop_for(pTHX_ PERL_CONTEXT *cx, void *itervarp, SV* itersave)
+{
+    PERL_ARGS_ASSERT_CX_PUSHLOOP_FOR;
+
+    /* this one line is common with cx_pushloop_plain */
+    cx->blk_loop.my_op = cLOOP;
+
+    cx->blk_loop.itervar_u.svp = (SV**)itervarp;
+    cx->blk_loop.itersave      = itersave;
+#ifdef USE_ITHREADS
+    cx->blk_loop.oldcomppad = PL_comppad;
+#endif
+}
+
+
+/* pop all loop types, including plain */
+
+PERL_STATIC_INLINE void
+S_cx_poploop(pTHX_ PERL_CONTEXT *cx)
+{
+    PERL_ARGS_ASSERT_CX_POPLOOP;
+
+    assert(CxTYPE_is_LOOP(cx));
+    if (  CxTYPE(cx) == CXt_LOOP_ARY
+       || CxTYPE(cx) == CXt_LOOP_LAZYSV)
+    {
+        /* Free ary or cur. This assumes that state_u.ary.ary
+         * aligns with state_u.lazysv.cur. See cx_dup() */
+        SV *sv = cx->blk_loop.state_u.lazysv.cur;
+        cx->blk_loop.state_u.lazysv.cur = NULL;
+        SvREFCNT_dec_NN(sv);
+        if (CxTYPE(cx) == CXt_LOOP_LAZYSV) {
+            sv = cx->blk_loop.state_u.lazysv.end;
+            cx->blk_loop.state_u.lazysv.end = NULL;
+            SvREFCNT_dec_NN(sv);
+        }
+    }
+    if (cx->cx_type & (CXp_FOR_PAD|CXp_FOR_GV)) {
+        SV *cursv;
+        SV **svp = (cx)->blk_loop.itervar_u.svp;
+        if ((cx->cx_type & CXp_FOR_GV))
+            svp = &GvSV((GV*)svp);
+        cursv = *svp;
+        *svp = cx->blk_loop.itersave;
+        cx->blk_loop.itersave = NULL;
+        SvREFCNT_dec(cursv);
+    }
+}
+
+
+PERL_STATIC_INLINE void
+S_cx_pushwhen(pTHX_ PERL_CONTEXT *cx)
+{
+    PERL_ARGS_ASSERT_CX_PUSHWHEN;
+
+    cx->blk_givwhen.leave_op = cLOGOP->op_other;
+}
+
+
+PERL_STATIC_INLINE void
+S_cx_popwhen(pTHX_ PERL_CONTEXT *cx)
+{
+    PERL_ARGS_ASSERT_CX_POPWHEN;
+    assert(CxTYPE(cx) == CXt_WHEN);
+
+    PERL_UNUSED_ARG(cx);
+    /* currently NOOP */
+}
+
+
+PERL_STATIC_INLINE void
+S_cx_pushgiven(pTHX_ PERL_CONTEXT *cx, SV *orig_defsv)
+{
+    PERL_ARGS_ASSERT_CX_PUSHGIVEN;
+
+    cx->blk_givwhen.leave_op = cLOGOP->op_other;
+    cx->blk_givwhen.defsv_save = orig_defsv;
+}
+
+
+PERL_STATIC_INLINE void
+S_cx_popgiven(pTHX_ PERL_CONTEXT *cx)
+{
+    SV *sv;
+
+    PERL_ARGS_ASSERT_CX_POPGIVEN;
+    assert(CxTYPE(cx) == CXt_GIVEN);
+
+    sv = GvSV(PL_defgv);
+    GvSV(PL_defgv) = cx->blk_givwhen.defsv_save;
+    cx->blk_givwhen.defsv_save = NULL;
+    SvREFCNT_dec(sv);
+}
+
+
+
+
+/*
+ * ex: set ts=8 sts=4 sw=4 et:
+ */
diff --git a/lib/5.24.1/x86_64-linux/CORE/intrpvar.h b/lib/5.24.1/x86_64-linux/CORE/intrpvar.h
new file mode 100644
index 00000000..50a9ee0a
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/intrpvar.h
@@ -0,0 +1,821 @@
+/*   intrpvar.h 
+ *
+ *    Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
+ *    2006, 2007, 2008 by Larry Wall and others
+ *
+ *    You may distribute under the terms of either the GNU General Public
+ *    License or the Artistic License, as specified in the README file.
+ *
+ */
+
+#include "handy.h"
+
+/*
+=head1 Per-Interpreter Variables
+*/
+
+/* These variables are per-interpreter in threaded/multiplicity builds,
+ * global otherwise.
+
+ * Don't forget to re-run regen/embed.pl to propagate changes! */
+
+/* New variables must be added to the very end for binary compatibility. */
+
+/* Don't forget to add your variable also to perl_clone()! (in sv.c) */
+
+/* The 'I' prefix is only needed for vars that need appropriate #defines
+ * generated when built with or without MULTIPLICITY.  It is also used
+ * to generate the appropriate export list for win32.  If the variable
+ * needs to be initialized, use PERLVARI.
+ *
+ * When building without MULTIPLICITY, these variables will be truly global.
+ *
+ * Important ones in the first cache line (if alignment is done right) */
+
+PERLVAR(I, stack_sp,	SV **)		/* top of the stack */
+PERLVAR(I, op,		OP *)		/* currently executing op */
+PERLVAR(I, curpad,	SV **)		/* active pad (lexicals+tmps) */
+
+PERLVAR(I, stack_base,	SV **)
+PERLVAR(I, stack_max,	SV **)
+
+PERLVAR(I, savestack,	ANY *)		/* items that need to be restored when
+					   LEAVEing scopes we've ENTERed */
+PERLVAR(I, savestack_ix, I32)
+PERLVAR(I, savestack_max, I32)
+
+PERLVAR(I, scopestack,	I32 *)		/* scopes we've ENTERed */
+PERLVAR(I, scopestack_ix, I32)
+PERLVAR(I, scopestack_max, I32)
+
+PERLVAR(I, tmps_stack,	SV **)		/* mortals we've made */
+PERLVARI(I, tmps_ix,	SSize_t,	-1)
+PERLVARI(I, tmps_floor,	SSize_t,	-1)
+PERLVAR(I, tmps_max,	SSize_t)        /* first unalloced slot in tmps stack */
+
+PERLVARI(I, sub_generation, U32, 1)	/* incr to invalidate method cache */
+
+PERLVAR(I, markstack,	I32 *)		/* stack_sp locations we're
+					   remembering */
+PERLVAR(I, markstack_ptr, I32 *)
+PERLVAR(I, markstack_max, I32 *)
+
+#ifdef PERL_HASH_RANDOMIZE_KEYS
+#ifdef USE_PERL_PERTURB_KEYS
+PERLVARI(I, hash_rand_bits_enabled, U8, 1) /* used to randomize hash stuff 0 == no-random, 1 == random, 2 == determinsitic */
+#endif
+PERLVARI(I, hash_rand_bits, UV, 0)      /* used to randomize hash stuff */
+#endif
+PERLVAR(I, strtab,	HV *)		/* shared string table */
+/* prog counter for the currently executing OP_MULTIDEREF Used to signal
+ * to S_find_uninit_var() where we are */
+PERLVAR(I, multideref_pc, UNOP_AUX_item *)
+
+/* Fields used by magic variables such as $@, $/ and so on */
+PERLVAR(I, curpm,	PMOP *)		/* what to do \ interps in REs from */
+
+PERLVAR(I, tainting,	bool)		/* doing taint checks */
+PERLVARI(I, tainted,	bool, FALSE)	/* using variables controlled by $< */
+
+/* PL_delaymagic is currently used for two purposes: to assure simultaneous
+ * updates in ($<,$>) = ..., and to assure atomic update in push/unshift
+ * @ISA, It works like this: a few places such as pp_push set the DM_DELAY
+ * flag; then various places such as av_store() skip mg_set(ary) if this
+ * flag is set, and various magic vtable methods set flags like
+ * DM_ARRAY_ISA if they've seen something of that ilk. Finally when
+ * control returns to pp_push or whatever, it sees if any of those flags
+ * have been set, and if so finally calls mg_set().
+ *
+ * NB: PL_delaymagic is automatically saved and restored by JUMPENV_PUSH
+ * / POP. This removes the need to do ENTER/SAVEI16(PL_delaymagic)/LEAVE
+ * in hot code like pp_push.
+ */
+PERLVAR(I, delaymagic,	U16)		/* ($<,$>) = ... */
+
+PERLVAR(I, localizing,	U8)		/* are we processing a local() list? */
+PERLVAR(I, in_eval,	U8)		/* trap "fatal" errors? */
+PERLVAR(I, defgv,	GV *)           /* the *_ glob */
+/*
+
+=for apidoc mn|bool|PL_dowarn
+
+The C variable which corresponds to Perl's C<$^W> warning variable.
+
+=cut
+*/
+
+PERLVAR(I, dowarn,	U8)
+
+#if defined (PERL_UTF8_CACHE_ASSERT) || defined (DEBUGGING)
+#  define PERL___I -1
+#else
+#  define PERL___I 1
+#endif
+PERLVARI(I, utf8cache, I8, PERL___I)	/* Is the utf8 caching code enabled? */
+#undef PERL___I
+
+
+/* Stashes */
+PERLVAR(I, defstash,	HV *)		/* main symbol table */
+PERLVAR(I, curstash,	HV *)		/* symbol table for current package */
+
+PERLVAR(I, curcop,	COP *)
+PERLVAR(I, curstack,	AV *)		/* THE STACK */
+PERLVAR(I, curstackinfo, PERL_SI *)	/* current stack + context */
+PERLVAR(I, mainstack,	AV *)		/* the stack when nothing funny is
+					   happening */
+
+/* memory management */
+PERLVAR(I, sv_count,	IV)		/* how many SV* are currently allocated */
+
+PERLVAR(I, sv_root,	SV *)		/* storage for SVs belonging to interp */
+PERLVAR(I, sv_arenaroot, SV *)		/* list of areas for garbage collection */
+
+/* fake PMOP that PL_curpm points to while in (?{}) so $1 et al are visible */
+PERLVARI(I, reg_curpm, PMOP*, NULL)
+
+/* the currently active slab in a chain of slabs of regmatch states,
+ * and the currently active state within that slab. This stack of states
+ * is shared amongst re-entrant calls to the regex engine */
+
+PERLVARI(I, regmatch_slab, regmatch_slab *,	NULL)
+PERLVAR(I, regmatch_state, regmatch_state *)
+
+PERLVAR(I, comppad,	PAD *)		/* storage for lexically scoped temporaries */
+
+/*
+=for apidoc Amn|SV|PL_sv_undef
+This is the C<undef> SV.  Always refer to this as C<&PL_sv_undef>.
+
+=for apidoc Amn|SV|PL_sv_no
+This is the C<false> SV.  See C<L</PL_sv_yes>>.  Always refer to this as
+C<&PL_sv_no>.
+
+=for apidoc Amn|SV|PL_sv_yes
+This is the C<true> SV.  See C<L</PL_sv_no>>.  Always refer to this as
+C<&PL_sv_yes>.
+
+=cut
+*/
+
+PERLVAR(I, sv_undef,	SV)
+PERLVAR(I, sv_no,	SV)
+PERLVAR(I, sv_yes,	SV)
+PERLVAR(I, padname_undef,	PADNAME)
+PERLVAR(I, padname_const,	PADNAME)
+PERLVAR(I, Sv,		SV *)		/* used to hold temporary values */
+
+PERLVAR(I, parser,	yy_parser *)	/* current parser state */
+
+PERLVAR(I, stashcache,	HV *)		/* Cache to speed up S_method_common */
+
+
+/*
+=for apidoc Amn|STRLEN|PL_na
+
+A convenience variable which is typically used with C<SvPV> when one
+doesn't care about the length of the string.  It is usually more efficient
+to either declare a local variable and use that instead or to use the
+C<SvPV_nolen> macro.
+
+=cut
+*/
+
+PERLVAR(I, na,		STRLEN)		/* for use in SvPV when length is
+					   Not Applicable */
+
+/* stat stuff */
+PERLVAR(I, statbuf,	Stat_t)
+PERLVAR(I, statcache,	Stat_t)		/* _ */
+PERLVAR(I, statgv,	GV *)
+PERLVARI(I, statname,	SV *,	NULL)
+
+/*
+=for apidoc mn|SV*|PL_rs
+
+The input record separator - C<$/> in Perl space.
+
+=for apidoc mn|GV*|PL_last_in_gv
+
+The GV which was last used for a filehandle input operation.  (C<< <FH> >>)
+
+=for apidoc mn|GV*|PL_ofsgv
+
+The glob containing the output field separator - C<*,> in Perl space.
+
+=cut
+*/
+
+PERLVAR(I, rs,		SV *)		/* input record separator $/ */
+PERLVAR(I, last_in_gv,	GV *)		/* GV used in last <FH> */
+PERLVAR(I, ofsgv,	GV *)		/* GV of output field separator *, */
+PERLVAR(I, defoutgv,	GV *)		/* default FH for output */
+PERLVARI(I, chopset,	const char *, " \n-")	/* $: */
+PERLVAR(I, formtarget,	SV *)
+PERLVAR(I, bodytarget,	SV *)
+PERLVAR(I, toptarget,	SV *)
+
+
+PERLVAR(I, restartop,	OP *)		/* propagating an error from croak? */
+PERLVAR(I, restartjmpenv, JMPENV *)	/* target frame for longjmp in die */
+
+PERLVAR(I, top_env,	JMPENV *)	/* ptr to current sigjmp environment */
+PERLVAR(I, start_env,	JMPENV)		/* empty startup sigjmp environment */
+PERLVARI(I, errors,	SV *,	NULL)	/* outstanding queued errors */
+
+/* statics "owned" by various functions */
+PERLVAR(I, hv_fetch_ent_mh, HE*)	/* owned by hv_fetch_ent() */
+
+PERLVAR(I, lastgotoprobe, OP*)		/* from pp_ctl.c */
+
+/* sort stuff */
+PERLVAR(I, sortcop,	OP *)		/* user defined sort routine */
+PERLVAR(I, sortstash,	HV *)		/* which is in some package or other */
+PERLVAR(I, firstgv,	GV *)		/* $a */
+PERLVAR(I, secondgv,	GV *)		/* $b */
+
+/* float buffer */
+PERLVAR(I, efloatbuf,	char *)
+PERLVAR(I, efloatsize,	STRLEN)
+
+PERLVARI(I, dumpindent,	U16,	4)	/* number of blanks per dump
+					   indentation level */
+
+PERLVAR(I, exit_flags,	U8)		/* was exit() unexpected, etc. */
+
+PERLVAR(I, utf8locale,	bool)		/* utf8 locale detected */
+PERLVAR(I, in_utf8_CTYPE_locale, bool)
+#ifdef USE_LOCALE_CTYPE
+    PERLVAR(I, warn_locale, SV *)
+#endif
+
+PERLVARA(I, colors,6,	char *)		/* values from PERL_RE_COLORS env var */
+
+/*
+=for apidoc Amn|peep_t|PL_peepp
+
+Pointer to the per-subroutine peephole optimiser.  This is a function
+that gets called at the end of compilation of a Perl subroutine (or
+equivalently independent piece of Perl code) to perform fixups of
+some ops and to perform small-scale optimisations.  The function is
+called once for each subroutine that is compiled, and is passed, as sole
+parameter, a pointer to the op that is the entry point to the subroutine.
+It modifies the op tree in place.
+
+The peephole optimiser should never be completely replaced.  Rather,
+add code to it by wrapping the existing optimiser.  The basic way to do
+this can be seen in L<perlguts/Compile pass 3: peephole optimization>.
+If the new code wishes to operate on ops throughout the subroutine's
+structure, rather than just at the top level, it is likely to be more
+convenient to wrap the L</PL_rpeepp> hook.
+
+=cut
+*/
+
+PERLVARI(I, peepp,	peep_t, Perl_peep)
+
+/*
+=for apidoc Amn|peep_t|PL_rpeepp
+
+Pointer to the recursive peephole optimiser.  This is a function
+that gets called at the end of compilation of a Perl subroutine (or
+equivalently independent piece of Perl code) to perform fixups of some
+ops and to perform small-scale optimisations.  The function is called
+once for each chain of ops linked through their C<op_next> fields;
+it is recursively called to handle each side chain.  It is passed, as
+sole parameter, a pointer to the op that is at the head of the chain.
+It modifies the op tree in place.
+
+The peephole optimiser should never be completely replaced.  Rather,
+add code to it by wrapping the existing optimiser.  The basic way to do
+this can be seen in L<perlguts/Compile pass 3: peephole optimization>.
+If the new code wishes to operate only on ops at a subroutine's top level,
+rather than throughout the structure, it is likely to be more convenient
+to wrap the L</PL_peepp> hook.
+
+=cut
+*/
+
+PERLVARI(I, rpeepp,	peep_t, Perl_rpeep)
+
+/*
+=for apidoc Amn|Perl_ophook_t|PL_opfreehook
+
+When non-C<NULL>, the function pointed by this variable will be called each time an OP is freed with the corresponding OP as the argument.
+This allows extensions to free any extra attribute they have locally attached to an OP.
+It is also assured to first fire for the parent OP and then for its kids.
+
+When you replace this variable, it is considered a good practice to store the possibly previously installed hook and that you recall it inside your own.
+
+=cut
+*/
+
+PERLVARI(I, opfreehook,	Perl_ophook_t, 0) /* op_free() hook */
+
+PERLVARI(I, watchaddr,	char **, 0)
+PERLVAR(I, watchok,	char *)
+
+PERLVAR(I, perldb,	U32)
+
+PERLVAR(I, signals,	U32)	/* Using which pre-5.8 signals */
+
+PERLVAR(I, reentrant_retint, int)	/* Integer return value from reentrant functions */
+
+/* pseudo environmental stuff */
+PERLVAR(I, origargc,	int)
+PERLVAR(I, origargv,	char **)
+PERLVAR(I, envgv,	GV *)
+PERLVAR(I, incgv,	GV *)
+PERLVAR(I, hintgv,	GV *)
+PERLVAR(I, origfilename, char *)
+PERLVARI(I, xsubfilename, const char *, NULL)
+PERLVAR(I, diehook,	SV *)
+PERLVAR(I, warnhook,	SV *)
+
+/* switches */
+PERLVAR(I, patchlevel,	SV *)
+PERLVAR(I, localpatches, const char * const *)
+PERLVARI(I, splitstr,	const char *, " ")
+
+PERLVAR(I, minus_c,	bool)
+PERLVAR(I, minus_n,	bool)
+PERLVAR(I, minus_p,	bool)
+PERLVAR(I, minus_l,	bool)
+PERLVAR(I, minus_a,	bool)
+PERLVAR(I, minus_F,	bool)
+PERLVAR(I, doswitches,	bool)
+PERLVAR(I, minus_E,	bool)
+
+PERLVAR(I, inplace,	char *)
+PERLVAR(I, e_script,	SV *)
+
+PERLVAR(I, basetime,	Time_t)		/* $^T */
+
+PERLVARI(I, maxsysfd,	I32,	MAXSYSFD)
+					/* top fd to pass to subprocesses */
+PERLVAR(I, statusvalue,	I32)		/* $? */
+#ifdef VMS
+PERLVAR(I, statusvalue_vms, U32)
+#else
+PERLVAR(I, statusvalue_posix, I32)
+#endif
+
+PERLVARI(I, sig_pending, int, 0)	/* Number if highest signal pending */
+PERLVAR(I, psig_pend, int *)		/* per-signal "count" of pending */
+
+/* shortcuts to various I/O objects */
+PERLVAR(I, stdingv,	GV *)		/*  *STDIN      */
+PERLVAR(I, stderrgv,	GV *)		/*  *STDERR     */
+PERLVAR(I, argvgv,	GV *)		/*  *ARGV       */
+PERLVAR(I, argvoutgv,	GV *)		/*  *ARGVOUT    */
+PERLVAR(I, argvout_stack, AV *)
+
+/* shortcuts to regexp stuff */
+PERLVAR(I, replgv,	GV *)		/*  *^R         */
+
+/* shortcuts to misc objects */
+PERLVAR(I, errgv,	GV *)		/*  *@          */
+
+/* shortcuts to debugging objects */
+PERLVAR(I, DBgv,	GV *)		/*  *DB::DB     */
+PERLVAR(I, DBline,	GV *)		/*  *DB::line   */
+
+/*
+=for apidoc mn|GV *|PL_DBsub
+When Perl is run in debugging mode, with the B<-d> switch, this GV contains
+the SV which holds the name of the sub being debugged.  This is the C
+variable which corresponds to Perl's $DB::sub variable.  See
+C<L</PL_DBsingle>>.
+
+=for apidoc mn|SV *|PL_DBsingle
+When Perl is run in debugging mode, with the B<-d> switch, this SV is a
+boolean which indicates whether subs are being single-stepped.
+Single-stepping is automatically turned on after every step.  This is the C
+variable which corresponds to Perl's $DB::single variable.  See
+C<L</PL_DBsub>>.
+
+=for apidoc mn|SV *|PL_DBtrace
+Trace variable used when Perl is run in debugging mode, with the B<-d>
+switch.  This is the C variable which corresponds to Perl's $DB::trace
+variable.  See C<L</PL_DBsingle>>.
+
+=cut
+*/
+
+PERLVAR(I, DBsub,	GV *)		/*  *DB::sub    */
+PERLVAR(I, DBsingle,	SV *)		/*  $DB::single */
+PERLVAR(I, DBtrace,	SV *)		/*  $DB::trace  */
+PERLVAR(I, DBsignal,	SV *)		/*  $DB::signal */
+PERLVAR(I, dbargs,	AV *)		/* args to call listed by caller function */
+
+PERLVARA(I, DBcontrol,    DBVARMG_COUNT, IV) /* IV versions of $DB::single, trace, signal */
+
+/* symbol tables */
+PERLVAR(I, debstash,	HV *)		/* symbol table for perldb package */
+PERLVAR(I, globalstash,	HV *)		/* global keyword overrides imported here */
+PERLVAR(I, curstname,	SV *)		/* name of current package */
+PERLVAR(I, beginav,	AV *)		/* names of BEGIN subroutines */
+PERLVAR(I, endav,	AV *)		/* names of END subroutines */
+PERLVAR(I, unitcheckav,	AV *)		/* names of UNITCHECK subroutines */
+PERLVAR(I, checkav,	AV *)		/* names of CHECK subroutines */
+PERLVAR(I, initav,	AV *)		/* names of INIT subroutines */
+
+/* subprocess state */
+PERLVAR(I, fdpid,	AV *)		/* keep fd-to-pid mappings for my_popen */
+
+/* internal state */
+PERLVARI(I, op_mask,	char *,	NULL)	/* masked operations for safe evals */
+
+/* current interpreter roots */
+PERLVAR(I, main_cv,	CV *)
+PERLVAR(I, main_root,	OP *)
+PERLVAR(I, main_start,	OP *)
+PERLVAR(I, eval_root,	OP *)
+PERLVAR(I, eval_start,	OP *)
+
+/* runtime control stuff */
+PERLVARI(I, curcopdb,	COP *,	NULL)
+
+PERLVAR(I, filemode,	int)		/* so nextargv() can preserve mode */
+PERLVAR(I, lastfd,	int)		/* what to preserve mode on */
+PERLVAR(I, oldname,	char *)		/* what to preserve mode on */
+PERLVAR(I, Argv,	const char **)	/* stuff to free from do_aexec, vfork safe */
+PERLVAR(I, Cmd,		char *)		/* stuff to free from do_aexec, vfork safe */
+/* Elements in this array have ';' appended and are injected as a single line
+   into the tokeniser. You can't put any (literal) newlines into any program
+   you stuff in into this array, as the point where it's injected is expecting
+   a single physical line. */
+PERLVAR(I, preambleav,	AV *)
+PERLVAR(I, mess_sv,	SV *)
+PERLVAR(I, ors_sv,	SV *)		/* output record separator $\ */
+
+/* funky return mechanisms */
+PERLVAR(I, forkprocess,	int)		/* so do_open |- can return proc# */
+
+/* statics moved here for shared library purposes */
+PERLVARI(I, gensym,	I32,	0)	/* next symbol for getsym() to define */
+PERLVARI(I, cv_has_eval, bool, FALSE)	/* PL_compcv includes an entereval or similar */
+PERLVAR(I, taint_warn,	bool)		/* taint warns instead of dying */
+PERLVARI(I, laststype,	U16,	OP_STAT)
+
+PERLVARI(I, laststatval, int,	-1)
+
+PERLVAR(I, modcount,	I32)		/* how much op_lvalue()ification in
+					   assignment? */
+
+/* interpreter atexit processing */
+PERLVARI(I, exitlistlen, I32, 0)	/* length of same */
+PERLVARI(I, exitlist,	PerlExitListEntry *, NULL)
+					/* list of exit functions */
+
+/*
+=for apidoc Amn|HV*|PL_modglobal
+
+C<PL_modglobal> is a general purpose, interpreter global HV for use by
+extensions that need to keep information on a per-interpreter basis.
+In a pinch, it can also be used as a symbol table for extensions
+to share data among each other.  It is a good idea to use keys
+prefixed by the package name of the extension that owns the data.
+
+=cut
+*/
+
+PERLVAR(I, modglobal,	HV *)		/* per-interp module data */
+
+/* these used to be in global before 5.004_68 */
+PERLVARI(I, profiledata, U32 *,	NULL)	/* table of ops, counts */
+
+PERLVAR(I, compiling,	COP)		/* compiling/done executing marker */
+
+PERLVAR(I, compcv,	CV *)		/* currently compiling subroutine */
+PERLVAR(I, comppad_name, PADNAMELIST *)	/* variable names for "my" variables */
+PERLVAR(I, comppad_name_fill,	I32)	/* last "introduced" variable offset */
+PERLVAR(I, comppad_name_floor,	I32)	/* start of vars in innermost block */
+
+#ifdef HAVE_INTERP_INTERN
+PERLVAR(I, sys_intern,	struct interp_intern)
+					/* platform internals */
+#endif
+
+/* more statics moved here */
+PERLVAR(I, DBcv,	CV *)		/* from perl.c */
+PERLVARI(I, generation,	int,	100)	/* scan sequence# for OP_AASSIGN
+                                           compile-time common elem detection */
+
+PERLVAR(I, unicode, U32)	/* Unicode features: $ENV{PERL_UNICODE} or -C */
+
+PERLVARI(I, in_clean_objs,bool,    FALSE)	/* from sv.c */
+PERLVARI(I, in_clean_all, bool,    FALSE)	/* ptrs to freed SVs now legal */
+PERLVAR(I, nomemok,	bool)		/* let malloc context handle nomem */
+PERLVARI(I, savebegin,	bool,	FALSE)	/* save BEGINs for compiler	*/
+
+
+PERLVAR(I, delaymagic_uid,	Uid_t)	/* current real user id, only for delaymagic */
+PERLVAR(I, delaymagic_euid,	Uid_t)	/* current effective user id, only for delaymagic */
+PERLVAR(I, delaymagic_gid,	Gid_t)	/* current real group id, only for delaymagic */
+PERLVAR(I, delaymagic_egid,	Gid_t)	/* current effective group id, only for delaymagic */
+PERLVARI(I, an,		U32,	0)	/* malloc sequence number */
+
+/* Perl_Ibreakable_sub_generation_ptr was too long for VMS, hence "gen"  */
+PERLVARI(I, breakable_sub_gen, U32, 0)
+
+#ifdef DEBUGGING
+    /* exercise wrap-around */
+    #define PERL_COP_SEQMAX (U32_MAX-50)
+#else
+    #define PERL_COP_SEQMAX 0
+#endif
+PERLVARI(I, cop_seqmax,	U32,	PERL_COP_SEQMAX) /* statement sequence number */
+#undef PERL_COP_SEQMAX
+
+PERLVARI(I, evalseq,	U32,	0)	/* eval sequence number */
+PERLVAR(I, origalen,	U32)
+PERLVAR(I, origenviron,	char **)
+#ifdef PERL_USES_PL_PIDSTATUS
+PERLVAR(I, pidstatus,	HV *)		/* pid-to-status mappings for waitpid */
+#endif
+PERLVAR(I, osname,	char *)		/* operating system */
+
+PERLVAR(I, sighandlerp,	Sighandler_t)
+
+PERLVARA(I, body_roots,	PERL_ARENA_ROOTS_SIZE, void*) /* array of body roots */
+
+PERLVAR(I, debug,	VOL U32)	/* flags given to -D switch */
+
+PERLVARI(I, maxo,	int,	MAXO)	/* maximum number of ops */
+
+PERLVARI(I, runops,	runops_proc_t, RUNOPS_DEFAULT)
+
+PERLVAR(I, subname,	SV *)		/* name of current subroutine */
+
+PERLVAR(I, subline,	I32)		/* line this subroutine began on */
+PERLVAR(I, min_intro_pending, I32)	/* start of vars to introduce */
+
+PERLVAR(I, max_intro_pending, I32)	/* end of vars to introduce */
+PERLVAR(I, padix,	I32)		/* lowest unused index - 1
+					   in current "register" pad */
+PERLVAR(I, constpadix,	I32)		/* lowest unused for constants */
+
+PERLVAR(I, padix_floor,	I32)		/* how low may inner block reset padix */
+
+#ifdef USE_LOCALE_COLLATE
+PERLVAR(I, collation_name, char *)	/* Name of current collation */
+PERLVAR(I, collxfrm_base, Size_t)	/* Basic overhead in *xfrm() */
+PERLVARI(I, collxfrm_mult,Size_t, 2)	/* Expansion factor in *xfrm() */
+PERLVARI(I, collation_ix, U32,	0)	/* Collation generation index */
+PERLVARI(I, collation_standard, bool, TRUE)
+					/* Assume simple collation */
+#endif /* USE_LOCALE_COLLATE */
+
+#ifdef PERL_SAWAMPERSAND
+PERLVAR(I, sawampersand, U8)		/* must save all match strings */
+#endif
+
+PERLVAR(I, unsafe,	bool)
+PERLVAR(I, colorset,	bool)		/* PERL_RE_COLORS env var is in use */
+
+/* current phase the interpreter is in
+   for ordering this structure to remove holes, we're assuming that this is 4
+   bytes.  */
+PERLVARI(I, phase,	enum perl_phase, PERL_PHASE_CONSTRUCT)
+
+PERLVARI(I, in_load_module, bool, FALSE)	/* to prevent recursions in PerlIO_find_layer */
+
+/* This value may be set when embedding for full cleanup  */
+/* 0=none, 1=full, 2=full with checks */
+/* mod_perl is special, and also assigns a meaning -1 */
+PERLVARI(I, perl_destruct_level, signed char,	0)
+
+#ifdef USE_LOCALE_NUMERIC
+
+PERLVARI(I, numeric_standard, int, TRUE)
+					/* Assume simple numerics */
+PERLVARI(I, numeric_local, bool, TRUE)
+					/* Assume local numerics */
+PERLVAR(I, numeric_name, char *)	/* Name of current numeric locale */
+PERLVAR(I, numeric_radix_sv, SV *)	/* The radix separator if not '.' */
+
+#endif /* !USE_LOCALE_NUMERIC */
+
+/* Unicode inversion lists */
+PERLVAR(I, Latin1,	SV *)
+PERLVAR(I, UpperLatin1,	SV *)   /* Code points 128 - 255 */
+PERLVAR(I, AboveLatin1,	SV *)
+PERLVAR(I, InBitmap,	SV *)
+
+PERLVAR(I, NonL1NonFinalFold,   SV *)
+PERLVAR(I, HasMultiCharFold,   SV *)
+
+/* utf8 character class swashes */
+PERLVAR(I, utf8_mark,	SV *)
+PERLVAR(I, utf8_toupper, SV *)
+PERLVAR(I, utf8_totitle, SV *)
+PERLVAR(I, utf8_tolower, SV *)
+PERLVAR(I, utf8_tofold,	SV *)
+PERLVAR(I, utf8_charname_begin, SV *)
+PERLVAR(I, utf8_charname_continue, SV *)
+
+PERLVARA(I, utf8_swash_ptrs, POSIX_SWASH_COUNT, SV *)
+PERLVARA(I, Posix_ptrs, POSIX_CC_COUNT, SV *)
+PERLVARA(I, XPosix_ptrs, POSIX_CC_COUNT, SV *)
+PERLVAR(I, GCB_invlist, SV *)
+PERLVAR(I, LB_invlist, SV *)
+PERLVAR(I, SB_invlist, SV *)
+PERLVAR(I, WB_invlist, SV *)
+
+PERLVAR(I, last_swash_hv, HV *)
+PERLVAR(I, last_swash_tmps, U8 *)
+PERLVAR(I, last_swash_slen, STRLEN)
+PERLVARA(I, last_swash_key,UTF8_MAXBYTES-1, U8)
+PERLVAR(I, last_swash_klen, U8)		/* Only needs to store 0-12  */
+
+#ifdef FCRYPT
+PERLVARI(I, cryptseen,	bool,	FALSE)	/* has fast crypt() been initialized? */
+#else
+/* One byte hole in the interpreter structure.  */
+#endif
+
+PERLVAR(I, pad_reset_pending, bool)	/* reset pad on next attempted alloc */
+PERLVAR(I, srand_called, bool)
+
+/* Array of signal handlers, indexed by signal number, through which the C
+   signal handler dispatches.  */
+PERLVAR(I, psig_ptr,	SV **)
+/* Array of names of signals, indexed by signal number, for (re)use as the first
+   argument to a signal handler.   Only one block of memory is allocated for
+   both psig_name and psig_ptr.  */
+PERLVAR(I, psig_name,	SV **)
+
+#if defined(PERL_IMPLICIT_SYS)
+PERLVAR(I, Mem,		struct IPerlMem *)
+PERLVAR(I, MemShared,	struct IPerlMem *)
+PERLVAR(I, MemParse,	struct IPerlMem *)
+PERLVAR(I, Env,		struct IPerlEnv *)
+PERLVAR(I, StdIO,	struct IPerlStdIO *)
+PERLVAR(I, LIO,		struct IPerlLIO *)
+PERLVAR(I, Dir,		struct IPerlDir *)
+PERLVAR(I, Sock,	struct IPerlSock *)
+PERLVAR(I, Proc,	struct IPerlProc *)
+#endif
+
+PERLVAR(I, ptr_table,	PTR_TBL_t *)
+PERLVARI(I, beginav_save, AV *, NULL)	/* save BEGIN{}s when compiling */
+
+PERLVAR(I, body_arenas, void *)		/* pointer to list of body-arenas */
+
+
+#if defined(USE_ITHREADS)
+PERLVAR(I, regex_pad,     SV **)	/* Shortcut into the array of
+					   regex_padav */
+PERLVAR(I, regex_padav,   AV *)		/* All regex objects, indexed via the
+					   values in op_pmoffset of pmop.
+					   Entry 0 is an SV whose PV is a
+					   "packed" list of IVs listing
+					   the now-free slots in the array */
+PERLVAR(I, stashpad,    HV **)		/* for CopSTASH */
+PERLVARI(I, stashpadmax, PADOFFSET, 64)
+PERLVARI(I, stashpadix, PADOFFSET, 0)
+#endif
+
+#ifdef USE_REENTRANT_API
+PERLVAR(I, reentrant_buffer, REENTR *)	/* here we store the _r buffers */
+#endif
+
+PERLVAR(I, custom_op_names, HV *)	/* Names of user defined ops */
+PERLVAR(I, custom_op_descs, HV *)	/* Descriptions of user defined ops */
+
+#ifdef PERLIO_LAYERS
+PERLVARI(I, perlio,	PerlIOl *, NULL)
+PERLVARI(I, known_layers, PerlIO_list_t *, NULL)
+PERLVARI(I, def_layerlist, PerlIO_list_t *, NULL)
+#endif
+
+PERLVARI(I, encoding,	SV *,	NULL)	/* $^ENCODING */
+PERLVARI(I, lex_encoding, SV *,	NULL)	/* encoding pragma */
+
+PERLVAR(I, utf8_idstart, SV *)
+PERLVAR(I, utf8_idcont,	SV *)
+PERLVAR(I, utf8_xidstart, SV *)
+PERLVAR(I, utf8_perl_idstart, SV *)
+PERLVAR(I, utf8_perl_idcont, SV *)
+PERLVAR(I, utf8_xidcont, SV *)
+
+PERLVAR(I, sort_RealCmp, SVCOMPARE_t)
+
+PERLVARI(I, checkav_save, AV *, NULL)	/* save CHECK{}s when compiling */
+PERLVARI(I, unitcheckav_save, AV *, NULL)
+					/* save UNITCHECK{}s when compiling */
+
+PERLVARI(I, clocktick,	long,	0)	/* this many times() ticks in a second */
+
+/* Hooks to shared SVs and locks. */
+PERLVARI(I, sharehook,	share_proc_t, Perl_sv_nosharing)
+PERLVARI(I, lockhook,	share_proc_t, Perl_sv_nosharing)
+#ifdef NO_MATHOMS
+#  define PERL_UNLOCK_HOOK Perl_sv_nosharing
+#else
+/* This reference ensures that the mathoms are linked with perl */
+#  define PERL_UNLOCK_HOOK Perl_sv_nounlocking
+#endif
+PERLVARI(I, unlockhook,	share_proc_t, PERL_UNLOCK_HOOK)
+
+PERLVARI(I, threadhook,	thrhook_proc_t,	Perl_nothreadhook)
+
+/* Can shared object be destroyed */
+PERLVARI(I, destroyhook, destroyable_proc_t, Perl_sv_destroyable)
+
+#ifndef PERL_MICRO
+PERLVARI(I, signalhook,	despatch_signals_proc_t, Perl_despatch_signals)
+#endif
+
+PERLVARI(I, isarev, HV *, NULL)		/* Reverse map of @ISA dependencies */
+
+/* Register of known Method Resolution Orders.
+   What this actually points to is an implementation detail (it may change to
+   a structure incorporating a reference count - use mro_get_from_name to
+   retrieve a C<struct mro_alg *>  */
+PERLVAR(I, registered_mros, HV *)
+
+/* Compile-time block start/end hooks */
+PERLVAR(I, blockhooks,	AV *)
+
+/* Everything that folds to a given character, for case insensitivity regex
+ * matching */
+PERLVARI(I, utf8_foldclosures, HV *, NULL)
+
+/* List of characters that participate in folds (except marks, etc in
+ * multi-char folds) */
+PERLVARI(I, utf8_foldable, SV *, NULL)
+
+PERLVAR(I, custom_ops,	HV *)		/* custom op registrations */
+
+PERLVAR(I, Xpv,		XPV *)		/* (unused) held temporary value */
+
+/* name of the scopes we've ENTERed. Only used with -DDEBUGGING, but needs to be
+   present always, as -DDEBUGGING must be binary compatible with non.  */
+PERLVARI(I, scopestack_name, const char * *, NULL)
+
+PERLVAR(I, debug_pad,	struct perl_debug_pad)	/* always needed because of the re extension */
+
+/* Hook for File::Glob */
+PERLVARI(I, globhook,	globhook_t, NULL)
+
+PERLVARI(I, padlist_generation, U32, 1)	/* id to identify padlist clones */
+
+/* The last unconditional member of the interpreter structure when 5.18.0 was
+   released. The offset of the end of this is baked into a global variable in 
+   any shared perl library which will allow a sanity test in future perl
+   releases.  */
+#define PERL_LAST_5_18_0_INTERP_MEMBER	Iglobhook
+
+#ifdef PERL_IMPLICIT_CONTEXT
+PERLVARI(I, my_cxt_list, void **, NULL) /* per-module array of MY_CXT pointers */
+PERLVARI(I, my_cxt_size, int,	0)	/* size of PL_my_cxt_list */
+#  ifdef PERL_GLOBAL_STRUCT_PRIVATE
+PERLVARI(I, my_cxt_keys, const char **, NULL) /* per-module array of pointers to MY_CXT_KEY constants */
+#  endif
+#endif
+
+#if defined(PERL_IMPLICIT_CONTEXT) || defined(PERL_DEBUG_READONLY_COW)
+/* For use with the memory debugging code in util.c. This is used only in
+ * DEBUGGING builds (as long as the relevant structure is defined), but
+ * defining it in non-debug builds too means that we retain binary
+ * compatibility between otherwise-compatible plain and debug builds. */
+PERLVAR(I, memory_debug_header, struct perl_memory_debug_header)
+#endif
+
+#ifdef DEBUG_LEAKING_SCALARS_FORK_DUMP
+/* File descriptor to talk to the child which dumps scalars.  */
+PERLVARI(I, dumper_fd,	int,	-1)
+#endif
+
+
+#ifdef DEBUG_LEAKING_SCALARS
+PERLVARI(I, sv_serial,	U32,	0)	/* SV serial number, used in sv.c */
+#endif
+
+PERLVARA(I, sv_consts, SV_CONSTS_COUNT, SV*)	/* constant SVs with precomputed hash value */
+
+#ifdef PERL_TRACE_OPS
+PERLVARA(I, op_exec_cnt, OP_max+2, UV)	/* Counts of executed OPs of the given type.
+                                           If PERL_TRACE_OPS is enabled, we'll dump
+                                           a summary count of all ops executed in the
+                                           program at perl_destruct time. For
+                                           profiling/debugging only. Works only if
+                                           DEBUGGING is enabled, too. */
+#endif
+
+PERLVAR(I, random_state, PL_RANDOM_STATE_TYPE)
+
+PERLVARI(I, dump_re_max_len, STRLEN, 0)
+
+/* If you are adding a U8 or U16, check to see if there are 'Space' comments
+ * above on where there are gaps which currently will be structure padding.  */
+
+/* Within a stable branch, new variables must be added to the very end, before
+ * this comment, for binary compatibility (the offsets of the old members must
+ *  not change).
+ * (Don't forget to add your variable also to perl_clone()!)
+ * XSUB.h provides wrapper functions via perlapi.h that make this
+ * irrelevant, but not all code may be expected to #include XSUB.h.
+ */
diff --git a/lib/5.24.1/x86_64-linux/CORE/invlist_inline.h b/lib/5.24.1/x86_64-linux/CORE/invlist_inline.h
new file mode 100644
index 00000000..4ce04f90
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/invlist_inline.h
@@ -0,0 +1,87 @@
+/*    invlist_inline.h
+ *
+ *    Copyright (C) 2012 by Larry Wall and others
+ *
+ *    You may distribute under the terms of either the GNU General Public
+ *    License or the Artistic License, as specified in the README file.
+ */
+
+#if defined(PERL_IN_UTF8_C) || defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_REGEXEC_C)
+
+/* An element is in an inversion list iff its index is even numbered: 0, 2, 4,
+ * etc */
+#define ELEMENT_RANGE_MATCHES_INVLIST(i) (! ((i) & 1))
+#define PREV_RANGE_MATCHES_INVLIST(i) (! ELEMENT_RANGE_MATCHES_INVLIST(i))
+
+/* This converts to/from our UVs to what the SV code is expecting: bytes. */
+#define TO_INTERNAL_SIZE(x) ((x) * sizeof(UV))
+#define FROM_INTERNAL_SIZE(x) ((x)/ sizeof(UV))
+
+PERL_STATIC_INLINE bool*
+S_get_invlist_offset_addr(SV* invlist)
+{
+    /* Return the address of the field that says whether the inversion list is
+     * offset (it contains 1) or not (contains 0) */
+    PERL_ARGS_ASSERT_GET_INVLIST_OFFSET_ADDR;
+
+    assert(SvTYPE(invlist) == SVt_INVLIST);
+
+    return &(((XINVLIST*) SvANY(invlist))->is_offset);
+}
+
+PERL_STATIC_INLINE UV
+S__invlist_len(SV* const invlist)
+{
+    /* Returns the current number of elements stored in the inversion list's
+     * array */
+
+    PERL_ARGS_ASSERT__INVLIST_LEN;
+
+    assert(SvTYPE(invlist) == SVt_INVLIST);
+
+    return (SvCUR(invlist) == 0)
+           ? 0
+           : FROM_INTERNAL_SIZE(SvCUR(invlist)) - *get_invlist_offset_addr(invlist);
+}
+
+PERL_STATIC_INLINE bool
+S__invlist_contains_cp(SV* const invlist, const UV cp)
+{
+    /* Does <invlist> contain code point <cp> as part of the set? */
+
+    IV index = _invlist_search(invlist, cp);
+
+    PERL_ARGS_ASSERT__INVLIST_CONTAINS_CP;
+
+    return index >= 0 && ELEMENT_RANGE_MATCHES_INVLIST(index);
+}
+
+PERL_STATIC_INLINE UV*
+S_invlist_array(SV* const invlist)
+{
+    /* Returns the pointer to the inversion list's array.  Every time the
+     * length changes, this needs to be called in case malloc or realloc moved
+     * it */
+
+    PERL_ARGS_ASSERT_INVLIST_ARRAY;
+
+    /* Must not be empty.  If these fail, you probably didn't check for <len>
+     * being non-zero before trying to get the array */
+    assert(_invlist_len(invlist));
+
+    /* The very first element always contains zero, The array begins either
+     * there, or if the inversion list is offset, at the element after it.
+     * The offset header field determines which; it contains 0 or 1 to indicate
+     * how much additionally to add */
+    assert(0 == *(SvPVX(invlist)));
+    return ((UV *) SvPVX(invlist) + *get_invlist_offset_addr(invlist));
+}
+
+#   if defined(PERL_IN_UTF8_C) || defined(PERL_IN_REGEXEC_C)
+
+/* These symbols are only needed later in regcomp.c */
+#       undef TO_INTERNAL_SIZE
+#       undef FROM_INTERNAL_SIZE
+#   endif
+
+#endif
diff --git a/lib/5.24.1/x86_64-linux/CORE/iperlsys.h b/lib/5.24.1/x86_64-linux/CORE/iperlsys.h
new file mode 100644
index 00000000..86ab687f
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/iperlsys.h
@@ -0,0 +1,1421 @@
+/*
+ * iperlsys.h - Perl's interface to the system
+ *
+ * This file defines the system level functionality that perl needs.
+ *
+ * When using C, this definition is in the form of a set of macros
+ * that can be #defined to the system-level function (or a wrapper
+ * provided elsewhere).
+ *
+ * GSAR 21-JUN-98
+ */
+
+#ifndef __Inc__IPerl___
+#define __Inc__IPerl___
+
+/*
+ *	PerlXXX_YYY explained - DickH and DougL @ ActiveState.com
+ *
+ * XXX := functional group
+ * YYY := stdlib/OS function name
+ *
+ * Continuing with the theme of PerlIO, all OS functionality was
+ * encapsulated into one of several interfaces.
+ *
+ * PerlIO - stdio
+ * PerlLIO - low level I/O
+ * PerlMem - malloc, realloc, free
+ * PerlDir - directory related
+ * PerlEnv - process environment handling
+ * PerlProc - process control
+ * PerlSock - socket functions
+ *
+ *
+ * The features of this are:
+ * 1. All OS dependant code is in the Perl Host and not the Perl Core.
+ *    (At least this is the holy grail goal of this work)
+ * 2. The Perl Host (see perl.h for description) can provide a new and
+ *    improved interface to OS functionality if required.
+ * 3. Developers can easily hook into the OS calls for instrumentation
+ *    or diagnostic purposes.
+ *
+ * What was changed to do this:
+ * 1. All calls to OS functions were replaced with PerlXXX_YYY
+ *
+ */
+
+/*
+    Interface for perl stdio functions, or whatever we are Configure-d
+    to use.
+*/
+#include "perlio.h"
+
+#ifndef Sighandler_t
+#  if defined(HAS_SIGACTION) && defined(SA_SIGINFO)
+typedef Signal_t (*Sighandler_t) (int, siginfo_t*, void*);
+#  else
+typedef Signal_t (*Sighandler_t) (int);
+#  endif
+#endif
+
+#if defined(PERL_IMPLICIT_SYS)
+
+/* IPerlStdIO		*/
+struct IPerlStdIO;
+struct IPerlStdIOInfo;
+typedef FILE*		(*LPStdin)(struct IPerlStdIO*);
+typedef FILE*		(*LPStdout)(struct IPerlStdIO*);
+typedef FILE*		(*LPStderr)(struct IPerlStdIO*);
+typedef FILE*		(*LPOpen)(struct IPerlStdIO*, const char*,
+			    const char*);
+typedef int		(*LPClose)(struct IPerlStdIO*, FILE*);
+typedef int		(*LPEof)(struct IPerlStdIO*, FILE*);
+typedef int		(*LPError)(struct IPerlStdIO*, FILE*);
+typedef void		(*LPClearerr)(struct IPerlStdIO*, FILE*);
+typedef int		(*LPGetc)(struct IPerlStdIO*, FILE*);
+typedef STDCHAR*	(*LPGetBase)(struct IPerlStdIO*, FILE*);
+typedef int		(*LPGetBufsiz)(struct IPerlStdIO*, FILE*);
+typedef int		(*LPGetCnt)(struct IPerlStdIO*, FILE*);
+typedef STDCHAR*	(*LPGetPtr)(struct IPerlStdIO*, FILE*);
+typedef char*		(*LPGets)(struct IPerlStdIO*, char*, int, FILE*);
+typedef int		(*LPPutc)(struct IPerlStdIO*, int, FILE*);
+typedef int		(*LPPuts)(struct IPerlStdIO*, const char *, FILE*);
+typedef int		(*LPFlush)(struct IPerlStdIO*, FILE*);
+typedef int		(*LPUngetc)(struct IPerlStdIO*, int,FILE*);
+typedef int		(*LPFileno)(struct IPerlStdIO*, FILE*);
+typedef FILE*		(*LPFdopen)(struct IPerlStdIO*, int, const char*);
+typedef FILE*		(*LPReopen)(struct IPerlStdIO*, const char*,
+			    const char*, FILE*);
+typedef SSize_t		(*LPRead)(struct IPerlStdIO*, void*, Size_t, Size_t, FILE *);
+typedef SSize_t		(*LPWrite)(struct IPerlStdIO*, const void*, Size_t, Size_t, FILE *);
+typedef void		(*LPSetBuf)(struct IPerlStdIO*, FILE*, char*);
+typedef int		(*LPSetVBuf)(struct IPerlStdIO*, FILE*, char*, int,
+			    Size_t);
+typedef void		(*LPSetCnt)(struct IPerlStdIO*, FILE*, int);
+
+#ifndef NETWARE
+typedef void		(*LPSetPtr)(struct IPerlStdIO*, FILE*, STDCHAR*);
+#elif defined(NETWARE)
+typedef void		(*LPSetPtr)(struct IPerlStdIO*, FILE*, STDCHAR*, int);
+#endif
+
+typedef void		(*LPSetlinebuf)(struct IPerlStdIO*, FILE*);
+typedef int		(*LPPrintf)(struct IPerlStdIO*, FILE*, const char*,
+			    ...);
+typedef int		(*LPVprintf)(struct IPerlStdIO*, FILE*, const char*,
+			    va_list);
+typedef Off_t		(*LPTell)(struct IPerlStdIO*, FILE*);
+typedef int		(*LPSeek)(struct IPerlStdIO*, FILE*, Off_t, int);
+typedef void		(*LPRewind)(struct IPerlStdIO*, FILE*);
+typedef FILE*		(*LPTmpfile)(struct IPerlStdIO*);
+typedef int		(*LPGetpos)(struct IPerlStdIO*, FILE*, Fpos_t*);
+typedef int		(*LPSetpos)(struct IPerlStdIO*, FILE*,
+			    const Fpos_t*);
+typedef void		(*LPInit)(struct IPerlStdIO*);
+typedef void		(*LPInitOSExtras)(struct IPerlStdIO*);
+typedef FILE*		(*LPFdupopen)(struct IPerlStdIO*, FILE*);
+
+struct IPerlStdIO
+{
+    LPStdin		pStdin;
+    LPStdout		pStdout;
+    LPStderr		pStderr;
+    LPOpen		pOpen;
+    LPClose		pClose;
+    LPEof		pEof;
+    LPError		pError;
+    LPClearerr		pClearerr;
+    LPGetc		pGetc;
+    LPGetBase		pGetBase;
+    LPGetBufsiz		pGetBufsiz;
+    LPGetCnt		pGetCnt;
+    LPGetPtr		pGetPtr;
+    LPGets		pGets;
+    LPPutc		pPutc;
+    LPPuts		pPuts;
+    LPFlush		pFlush;
+    LPUngetc		pUngetc;
+    LPFileno		pFileno;
+    LPFdopen		pFdopen;
+    LPReopen		pReopen;
+    LPRead		pRead;
+    LPWrite		pWrite;
+    LPSetBuf		pSetBuf;
+    LPSetVBuf		pSetVBuf;
+    LPSetCnt		pSetCnt;
+    LPSetPtr		pSetPtr;
+    LPSetlinebuf	pSetlinebuf;
+    LPPrintf		pPrintf;
+    LPVprintf		pVprintf;
+    LPTell		pTell;
+    LPSeek		pSeek;
+    LPRewind		pRewind;
+    LPTmpfile		pTmpfile;
+    LPGetpos		pGetpos;
+    LPSetpos		pSetpos;
+    LPInit		pInit;
+    LPInitOSExtras	pInitOSExtras;
+    LPFdupopen		pFdupopen;
+};
+
+struct IPerlStdIOInfo
+{
+    unsigned long	nCount;	    /* number of entries expected */
+    struct IPerlStdIO	perlStdIOList;
+};
+
+/* These do not belong here ... NI-S, 14 Nov 2000 */
+
+#ifdef USE_STDIO_PTR
+#  define PerlSIO_has_cntptr(f)		1
+#  ifdef STDIO_PTR_LVALUE
+#    ifdef  STDIO_CNT_LVALUE
+#      define PerlSIO_canset_cnt(f)	1
+#      ifdef STDIO_PTR_LVAL_NOCHANGE_CNT
+#        define PerlSIO_fast_gets(f)	1
+#      endif
+#    else /* STDIO_CNT_LVALUE */
+#      define PerlSIO_canset_cnt(f)	0
+#    endif
+#  else /* STDIO_PTR_LVALUE */
+#    ifdef STDIO_PTR_LVAL_SETS_CNT
+#      define PerlSIO_fast_gets(f)	1
+#    endif
+#  endif
+#else  /* USE_STDIO_PTR */
+#  define PerlSIO_has_cntptr(f)		0
+#  define PerlSIO_canset_cnt(f)		0
+#endif /* USE_STDIO_PTR */
+
+#ifndef PerlSIO_fast_gets
+#define PerlSIO_fast_gets(f)		0
+#endif
+
+#ifdef FILE_base
+#define PerlSIO_has_base(f)		1
+#else
+#define PerlSIO_has_base(f)		0
+#endif
+
+/* Now take FILE * via function table */
+
+#define PerlSIO_stdin							\
+	(*PL_StdIO->pStdin)(PL_StdIO)
+#define PerlSIO_stdout							\
+	(*PL_StdIO->pStdout)(PL_StdIO)
+#define PerlSIO_stderr							\
+	(*PL_StdIO->pStderr)(PL_StdIO)
+#define PerlSIO_fopen(x,y)						\
+	(*PL_StdIO->pOpen)(PL_StdIO, (x),(y))
+#define PerlSIO_fclose(f)						\
+	(*PL_StdIO->pClose)(PL_StdIO, (f))
+#define PerlSIO_feof(f)							\
+	(*PL_StdIO->pEof)(PL_StdIO, (f))
+#define PerlSIO_ferror(f)						\
+	(*PL_StdIO->pError)(PL_StdIO, (f))
+#define PerlSIO_clearerr(f)						\
+	(*PL_StdIO->pClearerr)(PL_StdIO, (f))
+#define PerlSIO_fgetc(f)						\
+	(*PL_StdIO->pGetc)(PL_StdIO, (f))
+#define PerlSIO_get_base(f)						\
+	(*PL_StdIO->pGetBase)(PL_StdIO, (f))
+#define PerlSIO_get_bufsiz(f)						\
+	(*PL_StdIO->pGetBufsiz)(PL_StdIO, (f))
+#define PerlSIO_get_cnt(f)						\
+	(*PL_StdIO->pGetCnt)(PL_StdIO, (f))
+#define PerlSIO_get_ptr(f)						\
+	(*PL_StdIO->pGetPtr)(PL_StdIO, (f))
+#define PerlSIO_fputc(c,f)			\
+	(*PL_StdIO->pPutc)(PL_StdIO, (c),(f))
+#define PerlSIO_fputs(s,f)			\
+	(*PL_StdIO->pPuts)(PL_StdIO, (s),(f))
+#define PerlSIO_fflush(f)						\
+	(*PL_StdIO->pFlush)(PL_StdIO, (f))
+#define PerlSIO_fgets(s, n, f)						\
+	(*PL_StdIO->pGets)(PL_StdIO, s, n, (f))
+#define PerlSIO_ungetc(c,f)						\
+	(*PL_StdIO->pUngetc)(PL_StdIO, (c),(f))
+#define PerlSIO_fileno(f)						\
+	(*PL_StdIO->pFileno)(PL_StdIO, (f))
+#define PerlSIO_fdopen(f, s)						\
+	(*PL_StdIO->pFdopen)(PL_StdIO, (f),(s))
+#define PerlSIO_freopen(p, m, f)					\
+	(*PL_StdIO->pReopen)(PL_StdIO, (p), (m), (f))
+#define PerlSIO_fread(buf,sz,count,f)					\
+	(*PL_StdIO->pRead)(PL_StdIO, (buf), (sz), (count), (f))
+#define PerlSIO_fwrite(buf,sz,count,f)					\
+	(*PL_StdIO->pWrite)(PL_StdIO, (buf), (sz), (count), (f))
+#define PerlSIO_setbuf(f,b)						\
+	(*PL_StdIO->pSetBuf)(PL_StdIO, (f), (b))
+#define PerlSIO_setvbuf(f,b,t,s)					\
+	(*PL_StdIO->pSetVBuf)(PL_StdIO, (f),(b),(t),(s))
+#define PerlSIO_set_cnt(f,c)						\
+	(*PL_StdIO->pSetCnt)(PL_StdIO, (f), (c))
+#define PerlSIO_set_ptr(f,p)						\
+	(*PL_StdIO->pSetPtr)(PL_StdIO, (f), (p))
+#define PerlSIO_setlinebuf(f)						\
+	(*PL_StdIO->pSetlinebuf)(PL_StdIO, (f))
+#define PerlSIO_printf		Perl_fprintf_nocontext
+#define PerlSIO_stdoutf		Perl_printf_nocontext
+#define PerlSIO_vprintf(f,fmt,a)						\
+	(*PL_StdIO->pVprintf)(PL_StdIO, (f),(fmt),a)
+#define PerlSIO_ftell(f)							\
+	(*PL_StdIO->pTell)(PL_StdIO, (f))
+#define PerlSIO_fseek(f,o,w)						\
+	(*PL_StdIO->pSeek)(PL_StdIO, (f),(o),(w))
+#define PerlSIO_fgetpos(f,p)						\
+	(*PL_StdIO->pGetpos)(PL_StdIO, (f),(p))
+#define PerlSIO_fsetpos(f,p)						\
+	(*PL_StdIO->pSetpos)(PL_StdIO, (f),(p))
+#define PerlSIO_rewind(f)						\
+	(*PL_StdIO->pRewind)(PL_StdIO, (f))
+#define PerlSIO_tmpfile()						\
+	(*PL_StdIO->pTmpfile)(PL_StdIO)
+#define PerlSIO_init()							\
+	(*PL_StdIO->pInit)(PL_StdIO)
+#undef 	init_os_extras
+#define init_os_extras()						\
+	(*PL_StdIO->pInitOSExtras)(PL_StdIO)
+#define PerlSIO_fdupopen(f)						\
+	(*PL_StdIO->pFdupopen)(PL_StdIO, (f))
+
+#else	/* PERL_IMPLICIT_SYS */
+
+#define PerlSIO_stdin			stdin
+#define PerlSIO_stdout			stdout
+#define PerlSIO_stderr			stderr
+#define PerlSIO_fopen(x,y)		fopen(x,y)
+#ifdef __VOS__
+/* Work around VOS bug posix-979, wrongly setting errno when at end of file. */
+#define PerlSIO_fclose(f)		(((errno==1025)?errno=0:0),fclose(f))
+#define PerlSIO_feof(f)			(((errno==1025)?errno=0:0),feof(f))
+#define PerlSIO_ferror(f)		(((errno==1025)?errno=0:0),ferror(f))
+#else
+#define PerlSIO_fclose(f)		fclose(f)
+#define PerlSIO_feof(f)			feof(f)
+#define PerlSIO_ferror(f)		ferror(f)
+#endif
+#define PerlSIO_clearerr(f)		clearerr(f)
+#define PerlSIO_fgetc(f)			fgetc(f)
+#ifdef FILE_base
+#define PerlSIO_get_base(f)		FILE_base(f)
+#define PerlSIO_get_bufsiz(f)		FILE_bufsiz(f)
+#else
+#define PerlSIO_get_base(f)		NULL
+#define PerlSIO_get_bufsiz(f)		0
+#endif
+#ifdef USE_STDIO_PTR
+#define PerlSIO_get_cnt(f)		FILE_cnt(f)
+#define PerlSIO_get_ptr(f)		FILE_ptr(f)
+#else
+#define PerlSIO_get_cnt(f)		0
+#define PerlSIO_get_ptr(f)		NULL
+#endif
+#define PerlSIO_fputc(c,f)		fputc(c,f)
+#define PerlSIO_fputs(s,f)		fputs(s,f)
+#define PerlSIO_fflush(f)		Fflush(f)
+#define PerlSIO_fgets(s, n, f)		fgets(s,n,f)
+#if defined(__VMS)
+     /* Unusual definition of ungetc() here to accommodate fast_sv_gets()'
+      * belief that it can mix getc/ungetc with reads from stdio buffer */
+START_EXTERN_C
+     int decc$ungetc(int __c, FILE *__stream);
+END_EXTERN_C
+#    define PerlSIO_ungetc(c,f) ((c) == EOF ? EOF : \
+            ((*(f) && !((*(f))->_flag & _IONBF) && \
+            ((*(f))->_ptr > (*(f))->_base)) ? \
+            ((*(f))->_cnt++, *(--(*(f))->_ptr) = (c)) : decc$ungetc(c,f)))
+#else
+#  define PerlSIO_ungetc(c,f)          ungetc(c,f)
+#endif
+#define PerlSIO_fileno(f)		fileno(f)
+#define PerlSIO_fdopen(f, s)		fdopen(f,s)
+#define PerlSIO_freopen(p, m, f)	freopen(p,m,f)
+#define PerlSIO_fread(buf,sz,count,f)	fread(buf,sz,count,f)
+#define PerlSIO_fwrite(buf,sz,count,f)	fwrite(buf,sz,count,f)
+#define PerlSIO_setbuf(f,b)		setbuf(f,b)
+#define PerlSIO_setvbuf(f,b,t,s)	setvbuf(f,b,t,s)
+#if defined(USE_STDIO_PTR) && defined(STDIO_CNT_LVALUE)
+#define PerlSIO_set_cnt(f,c)		FILE_cnt(f) = (c)
+#else
+#define PerlSIO_set_cnt(f,c)		PerlIOProc_abort()
+#endif
+#if defined(USE_STDIO_PTR) && defined(STDIO_PTR_LVALUE)
+#define PerlSIO_set_ptr(f,p)		(FILE_ptr(f) = (p))
+#else
+#define PerlSIO_set_ptr(f,p)		PerlIOProc_abort()
+#endif
+#define PerlSIO_setlinebuf(f)		setlinebuf(f)
+#define PerlSIO_printf			fprintf
+#define PerlSIO_stdoutf			printf
+#define PerlSIO_vprintf(f,fmt,a)	vfprintf(f,fmt,a)
+#define PerlSIO_ftell(f)		ftell(f)
+#define PerlSIO_fseek(f,o,w)		fseek(f,o,w)
+#define PerlSIO_fgetpos(f,p)		fgetpos(f,p)
+#define PerlSIO_fsetpos(f,p)		fsetpos(f,p)
+#define PerlSIO_rewind(f)		rewind(f)
+#define PerlSIO_tmpfile()		tmpfile()
+#define PerlSIO_fdupopen(f)		(f)
+
+#endif	/* PERL_IMPLICIT_SYS */
+
+/*
+ *   Interface for directory functions
+ */
+
+#if defined(PERL_IMPLICIT_SYS)
+
+/* IPerlDir		*/
+struct IPerlDir;
+struct IPerlDirInfo;
+typedef int		(*LPMakedir)(struct IPerlDir*, const char*, int);
+typedef int		(*LPChdir)(struct IPerlDir*, const char*);
+typedef int		(*LPRmdir)(struct IPerlDir*, const char*);
+typedef int		(*LPDirClose)(struct IPerlDir*, DIR*);
+typedef DIR*		(*LPDirOpen)(struct IPerlDir*, const char*);
+typedef struct direct*	(*LPDirRead)(struct IPerlDir*, DIR*);
+typedef void		(*LPDirRewind)(struct IPerlDir*, DIR*);
+typedef void		(*LPDirSeek)(struct IPerlDir*, DIR*, long);
+typedef long		(*LPDirTell)(struct IPerlDir*, DIR*);
+#ifdef WIN32
+typedef char*		(*LPDirMapPathA)(struct IPerlDir*, const char*);
+typedef WCHAR*		(*LPDirMapPathW)(struct IPerlDir*, const WCHAR*);
+#endif
+
+struct IPerlDir
+{
+    LPMakedir		pMakedir;
+    LPChdir		pChdir;
+    LPRmdir		pRmdir;
+    LPDirClose		pClose;
+    LPDirOpen		pOpen;
+    LPDirRead		pRead;
+    LPDirRewind		pRewind;
+    LPDirSeek		pSeek;
+    LPDirTell		pTell;
+#ifdef WIN32
+    LPDirMapPathA	pMapPathA;
+    LPDirMapPathW	pMapPathW;
+#endif
+};
+
+struct IPerlDirInfo
+{
+    unsigned long	nCount;	    /* number of entries expected */
+    struct IPerlDir	perlDirList;
+};
+
+#define PerlDir_mkdir(name, mode)				\
+	(*PL_Dir->pMakedir)(PL_Dir, (name), (mode))
+#define PerlDir_chdir(name)					\
+	(*PL_Dir->pChdir)(PL_Dir, (name))
+#define PerlDir_rmdir(name)					\
+	(*PL_Dir->pRmdir)(PL_Dir, (name))
+#define PerlDir_close(dir)					\
+	(*PL_Dir->pClose)(PL_Dir, (dir))
+#define PerlDir_open(name)					\
+	(*PL_Dir->pOpen)(PL_Dir, (name))
+#define PerlDir_read(dir)					\
+	(*PL_Dir->pRead)(PL_Dir, (dir))
+#define PerlDir_rewind(dir)					\
+	(*PL_Dir->pRewind)(PL_Dir, (dir))
+#define PerlDir_seek(dir, loc)					\
+	(*PL_Dir->pSeek)(PL_Dir, (dir), (loc))
+#define PerlDir_tell(dir)					\
+	(*PL_Dir->pTell)(PL_Dir, (dir))
+#ifdef WIN32
+#define PerlDir_mapA(dir)					\
+	(*PL_Dir->pMapPathA)(PL_Dir, (dir))
+#define PerlDir_mapW(dir)					\
+	(*PL_Dir->pMapPathW)(PL_Dir, (dir))
+#endif
+
+#else	/* PERL_IMPLICIT_SYS */
+
+#define PerlDir_mkdir(name, mode)	Mkdir((name), (mode))
+#ifdef VMS
+#  define PerlDir_chdir(n)		Chdir((n))
+#else
+#  define PerlDir_chdir(name)		chdir((name))
+#endif
+#define PerlDir_rmdir(name)		rmdir((name))
+#define PerlDir_close(dir)		closedir((dir))
+#define PerlDir_open(name)		opendir((name))
+#define PerlDir_read(dir)		readdir((dir))
+#define PerlDir_rewind(dir)		rewinddir((dir))
+#define PerlDir_seek(dir, loc)		seekdir((dir), (loc))
+#define PerlDir_tell(dir)		telldir((dir))
+#ifdef WIN32
+#define PerlDir_mapA(dir)		dir
+#define PerlDir_mapW(dir)		dir
+#endif
+
+#endif	/* PERL_IMPLICIT_SYS */
+
+/*
+    Interface for perl environment functions
+*/
+
+#if defined(PERL_IMPLICIT_SYS)
+
+/* IPerlEnv		*/
+struct IPerlEnv;
+struct IPerlEnvInfo;
+typedef char*		(*LPEnvGetenv)(struct IPerlEnv*, const char*);
+typedef int		(*LPEnvPutenv)(struct IPerlEnv*, const char*);
+typedef char*		(*LPEnvGetenv_len)(struct IPerlEnv*,
+				    const char *varname, unsigned long *len);
+typedef int		(*LPEnvUname)(struct IPerlEnv*, struct utsname *name);
+typedef void		(*LPEnvClearenv)(struct IPerlEnv*);
+typedef void*		(*LPEnvGetChildenv)(struct IPerlEnv*);
+typedef void		(*LPEnvFreeChildenv)(struct IPerlEnv*, void* env);
+typedef char*		(*LPEnvGetChilddir)(struct IPerlEnv*);
+typedef void		(*LPEnvFreeChilddir)(struct IPerlEnv*, char* dir);
+#ifdef HAS_ENVGETENV
+typedef char*		(*LPENVGetenv)(struct IPerlEnv*, const char *varname);
+typedef char*		(*LPENVGetenv_len)(struct IPerlEnv*,
+				    const char *varname, unsigned long *len);
+#endif
+#ifdef WIN32
+typedef unsigned long	(*LPEnvOsID)(struct IPerlEnv*);
+typedef char*		(*LPEnvLibPath)(struct IPerlEnv*, WIN32_NO_REGISTRY_M_(const char*)
+					STRLEN *const len);
+typedef char*		(*LPEnvSiteLibPath)(struct IPerlEnv*, const char*,
+					    STRLEN *const len);
+typedef char*		(*LPEnvVendorLibPath)(struct IPerlEnv*, const char*,
+					      STRLEN *const len);
+typedef void		(*LPEnvGetChildIO)(struct IPerlEnv*, child_IO_table*);
+#endif
+
+struct IPerlEnv
+{
+    LPEnvGetenv		pGetenv;
+    LPEnvPutenv		pPutenv;
+    LPEnvGetenv_len	pGetenv_len;
+    LPEnvUname		pEnvUname;
+    LPEnvClearenv	pClearenv;
+    LPEnvGetChildenv	pGetChildenv;
+    LPEnvFreeChildenv	pFreeChildenv;
+    LPEnvGetChilddir	pGetChilddir;
+    LPEnvFreeChilddir	pFreeChilddir;
+#ifdef HAS_ENVGETENV
+    LPENVGetenv		pENVGetenv;
+    LPENVGetenv_len	pENVGetenv_len;
+#endif
+#ifdef WIN32
+    LPEnvOsID		pEnvOsID;
+    LPEnvLibPath	pLibPath;
+    LPEnvSiteLibPath	pSiteLibPath;
+    LPEnvVendorLibPath	pVendorLibPath;
+    LPEnvGetChildIO	pGetChildIO;
+#endif
+};
+
+struct IPerlEnvInfo
+{
+    unsigned long	nCount;	    /* number of entries expected */
+    struct IPerlEnv	perlEnvList;
+};
+
+#define PerlEnv_putenv(str)					\
+	(*PL_Env->pPutenv)(PL_Env,(str))
+#define PerlEnv_getenv(str)					\
+	(*PL_Env->pGetenv)(PL_Env,(str))
+#define PerlEnv_getenv_len(str,l)				\
+	(*PL_Env->pGetenv_len)(PL_Env,(str), (l))
+#define PerlEnv_clearenv()					\
+	(*PL_Env->pClearenv)(PL_Env)
+#define PerlEnv_get_childenv()					\
+	(*PL_Env->pGetChildenv)(PL_Env)
+#define PerlEnv_free_childenv(e)				\
+	(*PL_Env->pFreeChildenv)(PL_Env, (e))
+#define PerlEnv_get_childdir()					\
+	(*PL_Env->pGetChilddir)(PL_Env)
+#define PerlEnv_free_childdir(d)				\
+	(*PL_Env->pFreeChilddir)(PL_Env, (d))
+#ifdef HAS_ENVGETENV
+#  define PerlEnv_ENVgetenv(str)				\
+	(*PL_Env->pENVGetenv)(PL_Env,(str))
+#  define PerlEnv_ENVgetenv_len(str,l)				\
+	(*PL_Env->pENVGetenv_len)(PL_Env,(str), (l))
+#else
+#  define PerlEnv_ENVgetenv(str)				\
+	PerlEnv_getenv((str))
+#  define PerlEnv_ENVgetenv_len(str,l)				\
+	PerlEnv_getenv_len((str),(l))
+#endif
+#define PerlEnv_uname(name)					\
+	(*PL_Env->pEnvUname)(PL_Env,(name))
+#ifdef WIN32
+#define PerlEnv_os_id()						\
+	(*PL_Env->pEnvOsID)(PL_Env)
+#define PerlEnv_lib_path(str, lenp)				\
+	(*PL_Env->pLibPath)(PL_Env,WIN32_NO_REGISTRY_M_(str)(lenp))
+#define PerlEnv_sitelib_path(str, lenp)				\
+	(*PL_Env->pSiteLibPath)(PL_Env,(str),(lenp))
+#define PerlEnv_vendorlib_path(str, lenp)			\
+	(*PL_Env->pVendorLibPath)(PL_Env,(str),(lenp))
+#define PerlEnv_get_child_IO(ptr)				\
+	(*PL_Env->pGetChildIO)(PL_Env, ptr)
+#endif
+
+#else	/* PERL_IMPLICIT_SYS */
+
+#define PerlEnv_putenv(str)		putenv((str))
+#define PerlEnv_getenv(str)		getenv((str))
+#define PerlEnv_getenv_len(str,l)	getenv_len((str), (l))
+#ifdef HAS_ENVGETENV
+#  define PerlEnv_ENVgetenv(str)	ENVgetenv((str))
+#  define PerlEnv_ENVgetenv_len(str,l)	ENVgetenv_len((str), (l))
+#else
+#  define PerlEnv_ENVgetenv(str)	PerlEnv_getenv((str))
+#  define PerlEnv_ENVgetenv_len(str,l)	PerlEnv_getenv_len((str), (l))
+#endif
+#define PerlEnv_uname(name)		uname((name))
+
+#ifdef WIN32
+#define PerlEnv_os_id()			win32_os_id()
+#define PerlEnv_lib_path(str, lenp)	win32_get_privlib(WIN32_NO_REGISTRY_M_(str) lenp)
+#define PerlEnv_sitelib_path(str, lenp)	win32_get_sitelib(str, lenp)
+#define PerlEnv_vendorlib_path(str, lenp)	win32_get_vendorlib(str, lenp)
+#define PerlEnv_get_child_IO(ptr)	win32_get_child_IO(ptr)
+#define PerlEnv_clearenv()		win32_clearenv()
+#define PerlEnv_get_childenv()		win32_get_childenv()
+#define PerlEnv_free_childenv(e)	win32_free_childenv((e))
+#define PerlEnv_get_childdir()		win32_get_childdir()
+#define PerlEnv_free_childdir(d)	win32_free_childdir((d))
+#else
+#define PerlEnv_clearenv()		clearenv()
+#define PerlEnv_get_childenv()		get_childenv()
+#define PerlEnv_free_childenv(e)	free_childenv((e))
+#define PerlEnv_get_childdir()		get_childdir()
+#define PerlEnv_free_childdir(d)	free_childdir((d))
+#endif
+
+#endif	/* PERL_IMPLICIT_SYS */
+
+/*
+    Interface for perl low-level IO functions
+*/
+
+#if defined(PERL_IMPLICIT_SYS)
+
+struct utimbuf; /* prevent gcc warning about the use below */
+
+/* IPerlLIO		*/
+struct IPerlLIO;
+struct IPerlLIOInfo;
+typedef int		(*LPLIOAccess)(struct IPerlLIO*, const char*, int);
+typedef int		(*LPLIOChmod)(struct IPerlLIO*, const char*, int);
+typedef int		(*LPLIOChown)(struct IPerlLIO*, const char*, uid_t,
+			    gid_t);
+typedef int		(*LPLIOChsize)(struct IPerlLIO*, int, Off_t);
+typedef int		(*LPLIOClose)(struct IPerlLIO*, int);
+typedef int		(*LPLIODup)(struct IPerlLIO*, int);
+typedef int		(*LPLIODup2)(struct IPerlLIO*, int, int);
+typedef int		(*LPLIOFlock)(struct IPerlLIO*, int, int);
+typedef int		(*LPLIOFileStat)(struct IPerlLIO*, int, Stat_t*);
+typedef int		(*LPLIOIOCtl)(struct IPerlLIO*, int, unsigned int,
+			    char*);
+typedef int		(*LPLIOIsatty)(struct IPerlLIO*, int);
+typedef int		(*LPLIOLink)(struct IPerlLIO*, const char*,
+				     const char *);
+typedef Off_t		(*LPLIOLseek)(struct IPerlLIO*, int, Off_t, int);
+typedef int		(*LPLIOLstat)(struct IPerlLIO*, const char*,
+			    Stat_t*);
+typedef char*		(*LPLIOMktemp)(struct IPerlLIO*, char*);
+typedef int		(*LPLIOOpen)(struct IPerlLIO*, const char*, int);	
+typedef int		(*LPLIOOpen3)(struct IPerlLIO*, const char*, int, int);	
+typedef int		(*LPLIORead)(struct IPerlLIO*, int, void*, unsigned int);
+typedef int		(*LPLIORename)(struct IPerlLIO*, const char*,
+			    const char*);
+#ifdef NETWARE
+typedef int		(*LPLIOSetmode)(struct IPerlLIO*, FILE*, int);
+#else
+typedef int		(*LPLIOSetmode)(struct IPerlLIO*, int, int);
+#endif	/* NETWARE */
+typedef int		(*LPLIONameStat)(struct IPerlLIO*, const char*,
+			    Stat_t*);
+typedef char*		(*LPLIOTmpnam)(struct IPerlLIO*, char*);
+typedef int		(*LPLIOUmask)(struct IPerlLIO*, int);
+typedef int		(*LPLIOUnlink)(struct IPerlLIO*, const char*);
+typedef int		(*LPLIOUtime)(struct IPerlLIO*, const char*, struct utimbuf*);
+typedef int		(*LPLIOWrite)(struct IPerlLIO*, int, const void*,
+			    unsigned int);
+
+struct IPerlLIO
+{
+    LPLIOAccess		pAccess;
+    LPLIOChmod		pChmod;
+    LPLIOChown		pChown;
+    LPLIOChsize		pChsize;
+    LPLIOClose		pClose;
+    LPLIODup		pDup;
+    LPLIODup2		pDup2;
+    LPLIOFlock		pFlock;
+    LPLIOFileStat	pFileStat;
+    LPLIOIOCtl		pIOCtl;
+    LPLIOIsatty		pIsatty;
+    LPLIOLink		pLink;
+    LPLIOLseek		pLseek;
+    LPLIOLstat		pLstat;
+    LPLIOMktemp		pMktemp;
+    LPLIOOpen		pOpen;
+    LPLIOOpen3		pOpen3;
+    LPLIORead		pRead;
+    LPLIORename		pRename;
+    LPLIOSetmode	pSetmode;
+    LPLIONameStat	pNameStat;
+    LPLIOTmpnam		pTmpnam;
+    LPLIOUmask		pUmask;
+    LPLIOUnlink		pUnlink;
+    LPLIOUtime		pUtime;
+    LPLIOWrite		pWrite;
+};
+
+struct IPerlLIOInfo
+{
+    unsigned long	nCount;	    /* number of entries expected */
+    struct IPerlLIO	perlLIOList;
+};
+
+#define PerlLIO_access(file, mode)					\
+	(*PL_LIO->pAccess)(PL_LIO, (file), (mode))
+#define PerlLIO_chmod(file, mode)					\
+	(*PL_LIO->pChmod)(PL_LIO, (file), (mode))
+#define PerlLIO_chown(file, owner, group)				\
+	(*PL_LIO->pChown)(PL_LIO, (file), (owner), (group))
+#define PerlLIO_chsize(fd, size)					\
+	(*PL_LIO->pChsize)(PL_LIO, (fd), (size))
+#define PerlLIO_close(fd)						\
+	(*PL_LIO->pClose)(PL_LIO, (fd))
+#define PerlLIO_dup(fd)							\
+	(*PL_LIO->pDup)(PL_LIO, (fd))
+#define PerlLIO_dup2(fd1, fd2)						\
+	(*PL_LIO->pDup2)(PL_LIO, (fd1), (fd2))
+#define PerlLIO_flock(fd, op)						\
+	(*PL_LIO->pFlock)(PL_LIO, (fd), (op))
+#define PerlLIO_fstat(fd, buf)						\
+	(*PL_LIO->pFileStat)(PL_LIO, (fd), (buf))
+#define PerlLIO_ioctl(fd, u, buf)					\
+	(*PL_LIO->pIOCtl)(PL_LIO, (fd), (u), (buf))
+#define PerlLIO_isatty(fd)						\
+	(*PL_LIO->pIsatty)(PL_LIO, (fd))
+#define PerlLIO_link(oldname, newname)					\
+	(*PL_LIO->pLink)(PL_LIO, (oldname), (newname))
+#define PerlLIO_lseek(fd, offset, mode)					\
+	(*PL_LIO->pLseek)(PL_LIO, (fd), (offset), (mode))
+#define PerlLIO_lstat(name, buf)					\
+	(*PL_LIO->pLstat)(PL_LIO, (name), (buf))
+#define PerlLIO_mktemp(file)						\
+	(*PL_LIO->pMktemp)(PL_LIO, (file))
+#define PerlLIO_open(file, flag)					\
+	(*PL_LIO->pOpen)(PL_LIO, (file), (flag))
+#define PerlLIO_open3(file, flag, perm)					\
+	(*PL_LIO->pOpen3)(PL_LIO, (file), (flag), (perm))
+#define PerlLIO_read(fd, buf, count)					\
+	(*PL_LIO->pRead)(PL_LIO, (fd), (buf), (count))
+#define PerlLIO_rename(oname, newname)					\
+	(*PL_LIO->pRename)(PL_LIO, (oname), (newname))
+#define PerlLIO_setmode(fd, mode)					\
+	(*PL_LIO->pSetmode)(PL_LIO, (fd), (mode))
+#define PerlLIO_stat(name, buf)						\
+	(*PL_LIO->pNameStat)(PL_LIO, (name), (buf))
+#define PerlLIO_tmpnam(str)						\
+	(*PL_LIO->pTmpnam)(PL_LIO, (str))
+#define PerlLIO_umask(mode)						\
+	(*PL_LIO->pUmask)(PL_LIO, (mode))
+#define PerlLIO_unlink(file)						\
+	(*PL_LIO->pUnlink)(PL_LIO, (file))
+#define PerlLIO_utime(file, time)					\
+	(*PL_LIO->pUtime)(PL_LIO, (file), (time))
+#define PerlLIO_write(fd, buf, count)					\
+	(*PL_LIO->pWrite)(PL_LIO, (fd), (buf), (count))
+
+#else	/* PERL_IMPLICIT_SYS */
+
+#define PerlLIO_access(file, mode)	access((file), (mode))
+#define PerlLIO_chmod(file, mode)	chmod((file), (mode))
+#define PerlLIO_chown(file, owner, grp)	chown((file), (owner), (grp))
+#if defined(HAS_TRUNCATE)
+#  define PerlLIO_chsize(fd, size)	ftruncate((fd), (size))
+#elif defined(HAS_CHSIZE)
+#  define PerlLIO_chsize(fd, size)	chsize((fd), (size))
+#else
+#  define PerlLIO_chsize(fd, size)	my_chsize((fd), (size))
+#endif
+#define PerlLIO_close(fd)		close((fd))
+#define PerlLIO_dup(fd)			dup((fd))
+#define PerlLIO_dup2(fd1, fd2)		dup2((fd1), (fd2))
+#define PerlLIO_flock(fd, op)		FLOCK((fd), (op))
+#define PerlLIO_fstat(fd, buf)		Fstat((fd), (buf))
+#define PerlLIO_ioctl(fd, u, buf)	ioctl((fd), (u), (buf))
+#define PerlLIO_isatty(fd)		isatty((fd))
+#define PerlLIO_link(oldname, newname)	link((oldname), (newname))
+#define PerlLIO_lseek(fd, offset, mode)	lseek((fd), (offset), (mode))
+#define PerlLIO_stat(name, buf)		Stat((name), (buf))
+#ifdef HAS_LSTAT
+#  define PerlLIO_lstat(name, buf)	lstat((name), (buf))
+#else
+#  define PerlLIO_lstat(name, buf)	PerlLIO_stat((name), (buf))
+#endif
+#define PerlLIO_mktemp(file)		mktemp((file))
+#define PerlLIO_mkstemp(file)		mkstemp((file))
+#define PerlLIO_open(file, flag)	open((file), (flag))
+#define PerlLIO_open3(file, flag, perm)	open((file), (flag), (perm))
+#define PerlLIO_read(fd, buf, count)	read((fd), (buf), (count))
+#define PerlLIO_rename(old, new)	rename((old), (new))
+#define PerlLIO_setmode(fd, mode)	setmode((fd), (mode))
+#define PerlLIO_tmpnam(str)		tmpnam((str))
+#define PerlLIO_umask(mode)		umask((mode))
+#define PerlLIO_unlink(file)		unlink((file))
+#define PerlLIO_utime(file, time)	utime((file), (time))
+#define PerlLIO_write(fd, buf, count)	write((fd), (buf), (count))
+
+#endif	/* PERL_IMPLICIT_SYS */
+
+/*
+    Interface for perl memory allocation
+*/
+
+#if defined(PERL_IMPLICIT_SYS)
+
+/* IPerlMem		*/
+struct IPerlMem;
+struct IPerlMemInfo;
+typedef void*		(*LPMemMalloc)(struct IPerlMem*, size_t);
+typedef void*		(*LPMemRealloc)(struct IPerlMem*, void*, size_t);
+typedef void		(*LPMemFree)(struct IPerlMem*, void*);
+typedef void*		(*LPMemCalloc)(struct IPerlMem*, size_t, size_t);
+typedef void		(*LPMemGetLock)(struct IPerlMem*);
+typedef void		(*LPMemFreeLock)(struct IPerlMem*);
+typedef int		(*LPMemIsLocked)(struct IPerlMem*);
+
+struct IPerlMem
+{
+    LPMemMalloc		pMalloc;
+    LPMemRealloc	pRealloc;
+    LPMemFree		pFree;
+    LPMemCalloc		pCalloc;
+    LPMemGetLock	pGetLock;
+    LPMemFreeLock	pFreeLock;
+    LPMemIsLocked	pIsLocked;
+};
+
+struct IPerlMemInfo
+{
+    unsigned long	nCount;	    /* number of entries expected */
+    struct IPerlMem	perlMemList;
+};
+
+/* Interpreter specific memory macros */
+#define PerlMem_malloc(size)				    \
+	(*PL_Mem->pMalloc)(PL_Mem, (size))
+#define PerlMem_realloc(buf, size)			    \
+	(*PL_Mem->pRealloc)(PL_Mem, (buf), (size))
+#define PerlMem_free(buf)				    \
+	(*PL_Mem->pFree)(PL_Mem, (buf))
+#define PerlMem_calloc(num, size)			    \
+	(*PL_Mem->pCalloc)(PL_Mem, (num), (size))
+#define PerlMem_get_lock()				    \
+	(*PL_Mem->pGetLock)(PL_Mem)
+#define PerlMem_free_lock()				    \
+	(*PL_Mem->pFreeLock)(PL_Mem)
+#define PerlMem_is_locked()				    \
+	(*PL_Mem->pIsLocked)(PL_Mem)
+
+/* Shared memory macros */
+#ifdef NETWARE
+
+#define PerlMemShared_malloc(size)			    \
+	(*PL_Mem->pMalloc)(PL_Mem, (size))
+#define PerlMemShared_realloc(buf, size)		    \
+	(*PL_Mem->pRealloc)(PL_Mem, (buf), (size))
+#define PerlMemShared_free(buf)				    \
+	(*PL_Mem->pFree)(PL_Mem, (buf))
+#define PerlMemShared_calloc(num, size)			    \
+	(*PL_Mem->pCalloc)(PL_Mem, (num), (size))
+#define PerlMemShared_get_lock()			    \
+	(*PL_Mem->pGetLock)(PL_Mem)
+#define PerlMemShared_free_lock()			    \
+	(*PL_Mem->pFreeLock)(PL_Mem)
+#define PerlMemShared_is_locked()			    \
+	(*PL_Mem->pIsLocked)(PL_Mem)
+
+#else
+
+#define PerlMemShared_malloc(size)			    \
+	(*PL_MemShared->pMalloc)(PL_MemShared, (size))
+#define PerlMemShared_realloc(buf, size)		    \
+	(*PL_MemShared->pRealloc)(PL_MemShared, (buf), (size))
+#define PerlMemShared_free(buf)				    \
+	(*PL_MemShared->pFree)(PL_MemShared, (buf))
+#define PerlMemShared_calloc(num, size)			    \
+	(*PL_MemShared->pCalloc)(PL_MemShared, (num), (size))
+#define PerlMemShared_get_lock()			    \
+	(*PL_MemShared->pGetLock)(PL_MemShared)
+#define PerlMemShared_free_lock()			    \
+	(*PL_MemShared->pFreeLock)(PL_MemShared)
+#define PerlMemShared_is_locked()			    \
+	(*PL_MemShared->pIsLocked)(PL_MemShared)
+
+#endif
+
+/* Parse tree memory macros */
+#define PerlMemParse_malloc(size)			    \
+	(*PL_MemParse->pMalloc)(PL_MemParse, (size))
+#define PerlMemParse_realloc(buf, size)			    \
+	(*PL_MemParse->pRealloc)(PL_MemParse, (buf), (size))
+#define PerlMemParse_free(buf)				    \
+	(*PL_MemParse->pFree)(PL_MemParse, (buf))
+#define PerlMemParse_calloc(num, size)			    \
+	(*PL_MemParse->pCalloc)(PL_MemParse, (num), (size))
+#define PerlMemParse_get_lock()				    \
+	(*PL_MemParse->pGetLock)(PL_MemParse)
+#define PerlMemParse_free_lock()			    \
+	(*PL_MemParse->pFreeLock)(PL_MemParse)
+#define PerlMemParse_is_locked()			    \
+	(*PL_MemParse->pIsLocked)(PL_MemParse)
+
+
+#else	/* PERL_IMPLICIT_SYS */
+
+/* Interpreter specific memory macros */
+#define PerlMem_malloc(size)		malloc((size))
+#define PerlMem_realloc(buf, size)	realloc((buf), (size))
+#define PerlMem_free(buf)		free((buf))
+#define PerlMem_calloc(num, size)	calloc((num), (size))
+#define PerlMem_get_lock()		
+#define PerlMem_free_lock()
+#define PerlMem_is_locked()		0
+
+/* Shared memory macros */
+#define PerlMemShared_malloc(size)		malloc((size))
+#define PerlMemShared_realloc(buf, size)	realloc((buf), (size))
+#define PerlMemShared_free(buf)			free((buf))
+#define PerlMemShared_calloc(num, size)		calloc((num), (size))
+#define PerlMemShared_get_lock()		
+#define PerlMemShared_free_lock()
+#define PerlMemShared_is_locked()		0
+
+/* Parse tree memory macros */
+#define PerlMemParse_malloc(size)	malloc((size))
+#define PerlMemParse_realloc(buf, size)	realloc((buf), (size))
+#define PerlMemParse_free(buf)		free((buf))
+#define PerlMemParse_calloc(num, size)	calloc((num), (size))
+#define PerlMemParse_get_lock()		
+#define PerlMemParse_free_lock()
+#define PerlMemParse_is_locked()	0
+
+#endif	/* PERL_IMPLICIT_SYS */
+
+/*
+    Interface for perl process functions
+*/
+
+
+#if defined(PERL_IMPLICIT_SYS)
+
+#ifndef jmp_buf
+#include <setjmp.h>
+#endif
+
+/* IPerlProc		*/
+struct IPerlProc;
+struct IPerlProcInfo;
+typedef void		(*LPProcAbort)(struct IPerlProc*);
+typedef char*		(*LPProcCrypt)(struct IPerlProc*, const char*,
+			    const char*);
+typedef void		(*LPProcExit)(struct IPerlProc*, int)
+			    __attribute__noreturn__;
+typedef void		(*LPProc_Exit)(struct IPerlProc*, int)
+			    __attribute__noreturn__;
+typedef int		(*LPProcExecl)(struct IPerlProc*, const char*,
+			    const char*, const char*, const char*,
+			    const char*);
+typedef int		(*LPProcExecv)(struct IPerlProc*, const char*,
+			    const char*const*);
+typedef int		(*LPProcExecvp)(struct IPerlProc*, const char*,
+			    const char*const*);
+typedef Uid_t		(*LPProcGetuid)(struct IPerlProc*);
+typedef Uid_t		(*LPProcGeteuid)(struct IPerlProc*);
+typedef Gid_t		(*LPProcGetgid)(struct IPerlProc*);
+typedef Gid_t		(*LPProcGetegid)(struct IPerlProc*);
+typedef char*		(*LPProcGetlogin)(struct IPerlProc*);
+typedef int		(*LPProcKill)(struct IPerlProc*, int, int);
+typedef int		(*LPProcKillpg)(struct IPerlProc*, int, int);
+typedef int		(*LPProcPauseProc)(struct IPerlProc*);
+typedef PerlIO*		(*LPProcPopen)(struct IPerlProc*, const char*,
+			    const char*);
+typedef PerlIO*		(*LPProcPopenList)(struct IPerlProc*, const char*,
+			    IV narg, SV **args);
+typedef int		(*LPProcPclose)(struct IPerlProc*, PerlIO*);
+typedef int		(*LPProcPipe)(struct IPerlProc*, int*);
+typedef int		(*LPProcSetuid)(struct IPerlProc*, uid_t);
+typedef int		(*LPProcSetgid)(struct IPerlProc*, gid_t);
+typedef int		(*LPProcSleep)(struct IPerlProc*, unsigned int);
+typedef int		(*LPProcTimes)(struct IPerlProc*, struct tms*);
+typedef int		(*LPProcWait)(struct IPerlProc*, int*);
+typedef int		(*LPProcWaitpid)(struct IPerlProc*, int, int*, int);
+typedef Sighandler_t	(*LPProcSignal)(struct IPerlProc*, int, Sighandler_t);
+typedef int		(*LPProcFork)(struct IPerlProc*);
+typedef int		(*LPProcGetpid)(struct IPerlProc*);
+#ifdef WIN32
+typedef void*		(*LPProcDynaLoader)(struct IPerlProc*, const char*);
+typedef void		(*LPProcGetOSError)(struct IPerlProc*,
+			    SV* sv, DWORD dwErr);
+typedef int		(*LPProcSpawnvp)(struct IPerlProc*, int, const char*,
+			    const char*const*);
+#endif
+typedef int		(*LPProcLastHost)(struct IPerlProc*);
+typedef int		(*LPProcGetTimeOfDay)(struct IPerlProc*,
+					      struct timeval*, void*);
+
+struct IPerlProc
+{
+    LPProcAbort		pAbort;
+    LPProcCrypt		pCrypt;
+    LPProcExit		pExit;
+    LPProc_Exit		p_Exit;
+    LPProcExecl		pExecl;
+    LPProcExecv		pExecv;
+    LPProcExecvp	pExecvp;
+    LPProcGetuid	pGetuid;
+    LPProcGeteuid	pGeteuid;
+    LPProcGetgid	pGetgid;
+    LPProcGetegid	pGetegid;
+    LPProcGetlogin	pGetlogin;
+    LPProcKill		pKill;
+    LPProcKillpg	pKillpg;
+    LPProcPauseProc	pPauseProc;
+    LPProcPopen		pPopen;
+    LPProcPclose	pPclose;
+    LPProcPipe		pPipe;
+    LPProcSetuid	pSetuid;
+    LPProcSetgid	pSetgid;
+    LPProcSleep		pSleep;
+    LPProcTimes		pTimes;
+    LPProcWait		pWait;
+    LPProcWaitpid	pWaitpid;
+    LPProcSignal	pSignal;
+    LPProcFork		pFork;
+    LPProcGetpid	pGetpid;
+#ifdef WIN32
+    LPProcDynaLoader	pDynaLoader;
+    LPProcGetOSError	pGetOSError;
+    LPProcSpawnvp	pSpawnvp;
+#endif
+    LPProcLastHost      pLastHost;
+    LPProcPopenList	pPopenList;
+    LPProcGetTimeOfDay	pGetTimeOfDay;
+};
+
+struct IPerlProcInfo
+{
+    unsigned long	nCount;	    /* number of entries expected */
+    struct IPerlProc	perlProcList;
+};
+
+#define PerlProc_abort()						\
+	(*PL_Proc->pAbort)(PL_Proc)
+#define PerlProc_crypt(c,s)						\
+	(*PL_Proc->pCrypt)(PL_Proc, (c), (s))
+#define PerlProc_exit(s)						\
+	(*PL_Proc->pExit)(PL_Proc, (s))
+#define PerlProc__exit(s)						\
+	(*PL_Proc->p_Exit)(PL_Proc, (s))
+#define PerlProc_execl(c, w, x, y, z)					\
+	(*PL_Proc->pExecl)(PL_Proc, (c), (w), (x), (y), (z))
+#define PerlProc_execv(c, a)						\
+	(*PL_Proc->pExecv)(PL_Proc, (c), (a))
+#define PerlProc_execvp(c, a)						\
+	(*PL_Proc->pExecvp)(PL_Proc, (c), (a))
+#define PerlProc_getuid()						\
+	(*PL_Proc->pGetuid)(PL_Proc)
+#define PerlProc_geteuid()						\
+	(*PL_Proc->pGeteuid)(PL_Proc)
+#define PerlProc_getgid()						\
+	(*PL_Proc->pGetgid)(PL_Proc)
+#define PerlProc_getegid()						\
+	(*PL_Proc->pGetegid)(PL_Proc)
+#define PerlProc_getlogin()						\
+	(*PL_Proc->pGetlogin)(PL_Proc)
+#define PerlProc_kill(i, a)						\
+	(*PL_Proc->pKill)(PL_Proc, (i), (a))
+#define PerlProc_killpg(i, a)						\
+	(*PL_Proc->pKillpg)(PL_Proc, (i), (a))
+#define PerlProc_pause()						\
+	(*PL_Proc->pPauseProc)(PL_Proc)
+#define PerlProc_popen(c, m)						\
+	(*PL_Proc->pPopen)(PL_Proc, (c), (m))
+#define PerlProc_popen_list(m, n, a)					\
+	(*PL_Proc->pPopenList)(PL_Proc, (m), (n), (a))
+#define PerlProc_pclose(f)						\
+	(*PL_Proc->pPclose)(PL_Proc, (f))
+#define PerlProc_pipe(fd)						\
+	(*PL_Proc->pPipe)(PL_Proc, (fd))
+#define PerlProc_setuid(u)						\
+	(*PL_Proc->pSetuid)(PL_Proc, (u))
+#define PerlProc_setgid(g)						\
+	(*PL_Proc->pSetgid)(PL_Proc, (g))
+#define PerlProc_sleep(t)						\
+	(*PL_Proc->pSleep)(PL_Proc, (t))
+#define PerlProc_times(t)						\
+	(*PL_Proc->pTimes)(PL_Proc, (t))
+#define PerlProc_wait(t)						\
+	(*PL_Proc->pWait)(PL_Proc, (t))
+#define PerlProc_waitpid(p,s,f)						\
+	(*PL_Proc->pWaitpid)(PL_Proc, (p), (s), (f))
+#define PerlProc_signal(n, h)						\
+	(*PL_Proc->pSignal)(PL_Proc, (n), (h))
+#define PerlProc_fork()							\
+	(*PL_Proc->pFork)(PL_Proc)
+#define PerlProc_getpid()						\
+	(*PL_Proc->pGetpid)(PL_Proc)
+#define PerlProc_setjmp(b, n) Sigsetjmp((b), (n))
+#define PerlProc_longjmp(b, n) Siglongjmp((b), (n))
+
+#ifdef WIN32
+#define PerlProc_DynaLoad(f)						\
+	(*PL_Proc->pDynaLoader)(PL_Proc, (f))
+#define PerlProc_GetOSError(s,e)					\
+	(*PL_Proc->pGetOSError)(PL_Proc, (s), (e))
+#define PerlProc_spawnvp(m, c, a)					\
+	(*PL_Proc->pSpawnvp)(PL_Proc, (m), (c), (a))
+#endif
+#define PerlProc_lasthost()						\
+	(*PL_Proc->pLastHost)(PL_Proc)
+#define PerlProc_gettimeofday(t,z)					\
+	(*PL_Proc->pGetTimeOfDay)(PL_Proc,(t),(z))
+
+#else	/* PERL_IMPLICIT_SYS */
+
+#define PerlProc_abort()	abort()
+#define PerlProc_crypt(c,s)	crypt((c), (s))
+#define PerlProc_exit(s)	exit((s))
+#define PerlProc__exit(s)	_exit((s))
+#define PerlProc_execl(c,w,x,y,z)					\
+	execl((c), (w), (x), (y), (z))
+#define PerlProc_execv(c, a)	execv((c), (a))
+#define PerlProc_execvp(c, a)	execvp((c), (a))
+#define PerlProc_getuid()	getuid()
+#define PerlProc_geteuid()	geteuid()
+#define PerlProc_getgid()	getgid()
+#define PerlProc_getegid()	getegid()
+#define PerlProc_getlogin()	getlogin()
+#define PerlProc_kill(i, a)	kill((i), (a))
+#define PerlProc_killpg(i, a)	killpg((i), (a))
+#define PerlProc_pause()	Pause()
+#define PerlProc_popen(c, m)	my_popen((c), (m))
+#define PerlProc_popen_list(m,n,a)	my_popen_list((m),(n),(a))
+#define PerlProc_pclose(f)	my_pclose((f))
+#define PerlProc_pipe(fd)	pipe((fd))
+#define PerlProc_setuid(u)	setuid((u))
+#define PerlProc_setgid(g)	setgid((g))
+#define PerlProc_sleep(t)	sleep((t))
+#define PerlProc_times(t)	times((t))
+#define PerlProc_wait(t)	wait((t))
+#define PerlProc_waitpid(p,s,f)	waitpid((p), (s), (f))
+#define PerlProc_setjmp(b, n)	Sigsetjmp((b), (n))
+#define PerlProc_longjmp(b, n)	Siglongjmp((b), (n))
+#define PerlProc_signal(n, h)	signal((n), (h))
+#define PerlProc_fork()		my_fork()
+#define PerlProc_getpid()	getpid()
+#define PerlProc_gettimeofday(t,z)	gettimeofday((t),(z))
+
+#ifdef WIN32
+#define PerlProc_DynaLoad(f)						\
+	win32_dynaload((f))
+#define PerlProc_GetOSError(s,e)					\
+	win32_str_os_error((s), (e))
+#define PerlProc_spawnvp(m, c, a)					\
+	win32_spawnvp((m), (c), (a))
+#undef PerlProc_signal
+#define PerlProc_signal(n, h) win32_signal((n), (h))
+#endif
+#endif	/* PERL_IMPLICIT_SYS */
+
+/*
+    Interface for perl socket functions
+*/
+
+#if defined(PERL_IMPLICIT_SYS)
+
+/* PerlSock		*/
+struct IPerlSock;
+struct IPerlSockInfo;
+typedef u_long		(*LPHtonl)(struct IPerlSock*, u_long);
+typedef u_short		(*LPHtons)(struct IPerlSock*, u_short);
+typedef u_long		(*LPNtohl)(struct IPerlSock*, u_long);
+typedef u_short		(*LPNtohs)(struct IPerlSock*, u_short);
+typedef SOCKET		(*LPAccept)(struct IPerlSock*, SOCKET,
+			    struct sockaddr*, int*);
+typedef int		(*LPBind)(struct IPerlSock*, SOCKET,
+			    const struct sockaddr*, int);
+typedef int		(*LPConnect)(struct IPerlSock*, SOCKET,
+			    const struct sockaddr*, int);
+typedef void		(*LPEndhostent)(struct IPerlSock*);
+typedef void		(*LPEndnetent)(struct IPerlSock*);
+typedef void		(*LPEndprotoent)(struct IPerlSock*);
+typedef void		(*LPEndservent)(struct IPerlSock*);
+typedef int		(*LPGethostname)(struct IPerlSock*, char*, int);
+typedef int		(*LPGetpeername)(struct IPerlSock*, SOCKET,
+			    struct sockaddr*, int*);
+typedef struct hostent*	(*LPGethostbyaddr)(struct IPerlSock*, const char*,
+			    int, int);
+typedef struct hostent*	(*LPGethostbyname)(struct IPerlSock*, const char*);
+typedef struct hostent*	(*LPGethostent)(struct IPerlSock*);
+typedef struct netent*	(*LPGetnetbyaddr)(struct IPerlSock*, long, int);
+typedef struct netent*	(*LPGetnetbyname)(struct IPerlSock*, const char*);
+typedef struct netent*	(*LPGetnetent)(struct IPerlSock*);
+typedef struct protoent*(*LPGetprotobyname)(struct IPerlSock*, const char*);
+typedef struct protoent*(*LPGetprotobynumber)(struct IPerlSock*, int);
+typedef struct protoent*(*LPGetprotoent)(struct IPerlSock*);
+typedef struct servent*	(*LPGetservbyname)(struct IPerlSock*, const char*,
+			    const char*);
+typedef struct servent*	(*LPGetservbyport)(struct IPerlSock*, int,
+			    const char*);
+typedef struct servent*	(*LPGetservent)(struct IPerlSock*);
+typedef int		(*LPGetsockname)(struct IPerlSock*, SOCKET,
+			    struct sockaddr*, int*);
+typedef int		(*LPGetsockopt)(struct IPerlSock*, SOCKET, int, int,
+			    char*, int*);
+typedef unsigned long	(*LPInetAddr)(struct IPerlSock*, const char*);
+typedef char*		(*LPInetNtoa)(struct IPerlSock*, struct in_addr);
+typedef int		(*LPListen)(struct IPerlSock*, SOCKET, int);
+typedef int		(*LPRecv)(struct IPerlSock*, SOCKET, char*, int, int);
+typedef int		(*LPRecvfrom)(struct IPerlSock*, SOCKET, char*, int,
+			    int, struct sockaddr*, int*);
+typedef int		(*LPSelect)(struct IPerlSock*, int, char*, char*,
+			    char*, const struct timeval*);
+typedef int		(*LPSend)(struct IPerlSock*, SOCKET, const char*, int,
+			    int);
+typedef int		(*LPSendto)(struct IPerlSock*, SOCKET, const char*,
+			    int, int, const struct sockaddr*, int);
+typedef void		(*LPSethostent)(struct IPerlSock*, int);
+typedef void		(*LPSetnetent)(struct IPerlSock*, int);
+typedef void		(*LPSetprotoent)(struct IPerlSock*, int);
+typedef void		(*LPSetservent)(struct IPerlSock*, int);
+typedef int		(*LPSetsockopt)(struct IPerlSock*, SOCKET, int, int,
+			    const char*, int);
+typedef int		(*LPShutdown)(struct IPerlSock*, SOCKET, int);
+typedef SOCKET		(*LPSocket)(struct IPerlSock*, int, int, int);
+typedef int		(*LPSocketpair)(struct IPerlSock*, int, int, int,
+			    int*);
+#ifdef WIN32
+typedef int		(*LPClosesocket)(struct IPerlSock*, SOCKET s);
+#endif
+
+struct IPerlSock
+{
+    LPHtonl		pHtonl;
+    LPHtons		pHtons;
+    LPNtohl		pNtohl;
+    LPNtohs		pNtohs;
+    LPAccept		pAccept;
+    LPBind		pBind;
+    LPConnect		pConnect;
+    LPEndhostent	pEndhostent;
+    LPEndnetent		pEndnetent;
+    LPEndprotoent	pEndprotoent;
+    LPEndservent	pEndservent;
+    LPGethostname	pGethostname;
+    LPGetpeername	pGetpeername;
+    LPGethostbyaddr	pGethostbyaddr;
+    LPGethostbyname	pGethostbyname;
+    LPGethostent	pGethostent;
+    LPGetnetbyaddr	pGetnetbyaddr;
+    LPGetnetbyname	pGetnetbyname;
+    LPGetnetent		pGetnetent;
+    LPGetprotobyname	pGetprotobyname;
+    LPGetprotobynumber	pGetprotobynumber;
+    LPGetprotoent	pGetprotoent;
+    LPGetservbyname	pGetservbyname;
+    LPGetservbyport	pGetservbyport;
+    LPGetservent	pGetservent;
+    LPGetsockname	pGetsockname;
+    LPGetsockopt	pGetsockopt;
+    LPInetAddr		pInetAddr;
+    LPInetNtoa		pInetNtoa;
+    LPListen		pListen;
+    LPRecv		pRecv;
+    LPRecvfrom		pRecvfrom;
+    LPSelect		pSelect;
+    LPSend		pSend;
+    LPSendto		pSendto;
+    LPSethostent	pSethostent;
+    LPSetnetent		pSetnetent;
+    LPSetprotoent	pSetprotoent;
+    LPSetservent	pSetservent;
+    LPSetsockopt	pSetsockopt;
+    LPShutdown		pShutdown;
+    LPSocket		pSocket;
+    LPSocketpair	pSocketpair;
+#ifdef WIN32
+    LPClosesocket	pClosesocket;
+#endif
+};
+
+struct IPerlSockInfo
+{
+    unsigned long	nCount;	    /* number of entries expected */
+    struct IPerlSock	perlSockList;
+};
+
+#define PerlSock_htonl(x)						\
+	(*PL_Sock->pHtonl)(PL_Sock, x)
+#define PerlSock_htons(x)						\
+	(*PL_Sock->pHtons)(PL_Sock, x)
+#define PerlSock_ntohl(x)						\
+	(*PL_Sock->pNtohl)(PL_Sock, x)
+#define PerlSock_ntohs(x)						\
+	(*PL_Sock->pNtohs)(PL_Sock, x)
+#define PerlSock_accept(s, a, l)					\
+	(*PL_Sock->pAccept)(PL_Sock, s, a, l)
+#define PerlSock_bind(s, n, l)						\
+	(*PL_Sock->pBind)(PL_Sock, s, n, l)
+#define PerlSock_connect(s, n, l)					\
+	(*PL_Sock->pConnect)(PL_Sock, s, n, l)
+#define PerlSock_endhostent()						\
+	(*PL_Sock->pEndhostent)(PL_Sock)
+#define PerlSock_endnetent()						\
+	(*PL_Sock->pEndnetent)(PL_Sock)
+#define PerlSock_endprotoent()						\
+	(*PL_Sock->pEndprotoent)(PL_Sock)
+#define PerlSock_endservent()						\
+	(*PL_Sock->pEndservent)(PL_Sock)
+#define PerlSock_gethostbyaddr(a, l, t)					\
+	(*PL_Sock->pGethostbyaddr)(PL_Sock, a, l, t)
+#define PerlSock_gethostbyname(n)					\
+	(*PL_Sock->pGethostbyname)(PL_Sock, n)
+#define PerlSock_gethostent()						\
+	(*PL_Sock->pGethostent)(PL_Sock)
+#define PerlSock_gethostname(n, l)					\
+	(*PL_Sock->pGethostname)(PL_Sock, n, l)
+#define PerlSock_getnetbyaddr(n, t)					\
+	(*PL_Sock->pGetnetbyaddr)(PL_Sock, n, t)
+#define PerlSock_getnetbyname(c)					\
+	(*PL_Sock->pGetnetbyname)(PL_Sock, c)
+#define PerlSock_getnetent()						\
+	(*PL_Sock->pGetnetent)(PL_Sock)
+#define PerlSock_getpeername(s, n, l)					\
+	(*PL_Sock->pGetpeername)(PL_Sock, s, n, l)
+#define PerlSock_getprotobyname(n)					\
+	(*PL_Sock->pGetprotobyname)(PL_Sock, n)
+#define PerlSock_getprotobynumber(n)					\
+	(*PL_Sock->pGetprotobynumber)(PL_Sock, n)
+#define PerlSock_getprotoent()						\
+	(*PL_Sock->pGetprotoent)(PL_Sock)
+#define PerlSock_getservbyname(n, p)					\
+	(*PL_Sock->pGetservbyname)(PL_Sock, n, p)
+#define PerlSock_getservbyport(port, p)					\
+	(*PL_Sock->pGetservbyport)(PL_Sock, port, p)
+#define PerlSock_getservent()						\
+	(*PL_Sock->pGetservent)(PL_Sock)
+#define PerlSock_getsockname(s, n, l)					\
+	(*PL_Sock->pGetsockname)(PL_Sock, s, n, l)
+#define PerlSock_getsockopt(s,l,n,v,i)					\
+	(*PL_Sock->pGetsockopt)(PL_Sock, s, l, n, v, i)
+#define PerlSock_inet_addr(c)						\
+	(*PL_Sock->pInetAddr)(PL_Sock, c)
+#define PerlSock_inet_ntoa(i)						\
+	(*PL_Sock->pInetNtoa)(PL_Sock, i)
+#define PerlSock_listen(s, b)						\
+	(*PL_Sock->pListen)(PL_Sock, s, b)
+#define PerlSock_recv(s, b, l, f)					\
+	(*PL_Sock->pRecv)(PL_Sock, s, b, l, f)
+#define PerlSock_recvfrom(s,b,l,f,from,fromlen)				\
+	(*PL_Sock->pRecvfrom)(PL_Sock, s, b, l, f, from, fromlen)
+#define PerlSock_select(n, r, w, e, t)					\
+	(*PL_Sock->pSelect)(PL_Sock, n, (char*)r, (char*)w, (char*)e, t)
+#define PerlSock_send(s, b, l, f)					\
+	(*PL_Sock->pSend)(PL_Sock, s, b, l, f)
+#define PerlSock_sendto(s, b, l, f, t, tlen)				\
+	(*PL_Sock->pSendto)(PL_Sock, s, b, l, f, t, tlen)
+#define PerlSock_sethostent(f)						\
+	(*PL_Sock->pSethostent)(PL_Sock, f)
+#define PerlSock_setnetent(f)						\
+	(*PL_Sock->pSetnetent)(PL_Sock, f)
+#define PerlSock_setprotoent(f)						\
+	(*PL_Sock->pSetprotoent)(PL_Sock, f)
+#define PerlSock_setservent(f)						\
+	(*PL_Sock->pSetservent)(PL_Sock, f)
+#define PerlSock_setsockopt(s, l, n, v, len)				\
+	(*PL_Sock->pSetsockopt)(PL_Sock, s, l, n, v, len)
+#define PerlSock_shutdown(s, h)						\
+	(*PL_Sock->pShutdown)(PL_Sock, s, h)
+#define PerlSock_socket(a, t, p)					\
+	(*PL_Sock->pSocket)(PL_Sock, a, t, p)
+#define PerlSock_socketpair(a, t, p, f)					\
+	(*PL_Sock->pSocketpair)(PL_Sock, a, t, p, f)
+
+#ifdef WIN32
+#define	PerlSock_closesocket(s)						\
+	(*PL_Sock->pClosesocket)(PL_Sock, s)
+#endif
+
+#else	/* PERL_IMPLICIT_SYS */
+
+#define PerlSock_htonl(x)		htonl(x)
+#define PerlSock_htons(x)		htons(x)
+#define PerlSock_ntohl(x)		ntohl(x)
+#define PerlSock_ntohs(x)		ntohs(x)
+#define PerlSock_accept(s, a, l)	accept(s, a, l)
+#define PerlSock_bind(s, n, l)		bind(s, n, l)
+#define PerlSock_connect(s, n, l)	connect(s, n, l)
+
+#define PerlSock_gethostbyaddr(a, l, t)	gethostbyaddr(a, l, t)
+#define PerlSock_gethostbyname(n)	gethostbyname(n)
+#define PerlSock_gethostent		gethostent
+#define PerlSock_endhostent		endhostent
+#define PerlSock_gethostname(n, l)	gethostname(n, l)
+
+#define PerlSock_getnetbyaddr(n, t)	getnetbyaddr(n, t)
+#define PerlSock_getnetbyname(n)	getnetbyname(n)
+#define PerlSock_getnetent		getnetent
+#define PerlSock_endnetent		endnetent
+#define PerlSock_getpeername(s, n, l)	getpeername(s, n, l)
+
+#define PerlSock_getprotobyname(n)	getprotobyname(n)
+#define PerlSock_getprotobynumber(n)	getprotobynumber(n)
+#define PerlSock_getprotoent		getprotoent
+#define PerlSock_endprotoent		endprotoent
+
+#define PerlSock_getservbyname(n, p)	getservbyname(n, p)
+#define PerlSock_getservbyport(port, p)	getservbyport(port, p)
+#define PerlSock_getservent		getservent
+#define PerlSock_endservent		endservent
+
+#define PerlSock_getsockname(s, n, l)	getsockname(s, n, l)
+#define PerlSock_getsockopt(s,l,n,v,i)	getsockopt(s, l, n, v, i)
+#define PerlSock_inet_addr(c)		inet_addr(c)
+#define PerlSock_inet_ntoa(i)		inet_ntoa(i)
+#define PerlSock_listen(s, b)		listen(s, b)
+#define PerlSock_recv(s, b, l, f)	recv(s, b, l, f)
+#define PerlSock_recvfrom(s, b, l, f, from, fromlen)			\
+	recvfrom(s, b, l, f, from, fromlen)
+#define PerlSock_select(n, r, w, e, t)	select(n, r, w, e, t)
+#define PerlSock_send(s, b, l, f)	send(s, b, l, f)
+#define PerlSock_sendto(s, b, l, f, t, tlen)				\
+	sendto(s, b, l, f, t, tlen)
+#define PerlSock_sethostent(f)		sethostent(f)
+#define PerlSock_setnetent(f)		setnetent(f)
+#define PerlSock_setprotoent(f)		setprotoent(f)
+#define PerlSock_setservent(f)		setservent(f)
+#define PerlSock_setsockopt(s, l, n, v, len)				\
+	setsockopt(s, l, n, v, len)
+#define PerlSock_shutdown(s, h)		shutdown(s, h)
+#define PerlSock_socket(a, t, p)	socket(a, t, p)
+#define PerlSock_socketpair(a, t, p, f)	socketpair(a, t, p, f)
+
+#ifdef WIN32
+#define PerlSock_closesocket(s)		closesocket(s)
+#endif
+
+#endif	/* PERL_IMPLICIT_SYS */
+
+#endif	/* __Inc__IPerl___ */
+
+/*
+ * ex: set ts=8 sts=4 sw=4 et:
+ */
diff --git a/lib/5.24.1/x86_64-linux/CORE/keywords.h b/lib/5.24.1/x86_64-linux/CORE/keywords.h
new file mode 100644
index 00000000..eaa41209
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/keywords.h
@@ -0,0 +1,274 @@
+/* -*- buffer-read-only: t -*-
+ *
+ *    keywords.h
+ *
+ *    Copyright (C) 1994, 1995, 1996, 1997, 1999, 2000, 2001, 2002, 2005,
+ *    2006, 2007 by Larry Wall and others
+ *
+ *    You may distribute under the terms of either the GNU General Public
+ *    License or the Artistic License, as specified in the README file.
+ *
+ * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+ * This file is built by regen/keywords.pl from its data.
+ * Any changes made here will be lost!
+ */
+
+#define KEY_NULL		0
+#define KEY___FILE__		1
+#define KEY___LINE__		2
+#define KEY___PACKAGE__		3
+#define KEY___DATA__		4
+#define KEY___END__		5
+#define KEY___SUB__		6
+#define KEY_AUTOLOAD		7
+#define KEY_BEGIN		8
+#define KEY_UNITCHECK		9
+#define KEY_DESTROY		10
+#define KEY_END			11
+#define KEY_INIT		12
+#define KEY_CHECK		13
+#define KEY_abs			14
+#define KEY_accept		15
+#define KEY_alarm		16
+#define KEY_and			17
+#define KEY_atan2		18
+#define KEY_bind		19
+#define KEY_binmode		20
+#define KEY_bless		21
+#define KEY_break		22
+#define KEY_caller		23
+#define KEY_chdir		24
+#define KEY_chmod		25
+#define KEY_chomp		26
+#define KEY_chop		27
+#define KEY_chown		28
+#define KEY_chr			29
+#define KEY_chroot		30
+#define KEY_close		31
+#define KEY_closedir		32
+#define KEY_cmp			33
+#define KEY_connect		34
+#define KEY_continue		35
+#define KEY_cos			36
+#define KEY_crypt		37
+#define KEY_dbmclose		38
+#define KEY_dbmopen		39
+#define KEY_default		40
+#define KEY_defined		41
+#define KEY_delete		42
+#define KEY_die			43
+#define KEY_do			44
+#define KEY_dump		45
+#define KEY_each		46
+#define KEY_else		47
+#define KEY_elsif		48
+#define KEY_endgrent		49
+#define KEY_endhostent		50
+#define KEY_endnetent		51
+#define KEY_endprotoent		52
+#define KEY_endpwent		53
+#define KEY_endservent		54
+#define KEY_eof			55
+#define KEY_eq			56
+#define KEY_eval		57
+#define KEY_evalbytes		58
+#define KEY_exec		59
+#define KEY_exists		60
+#define KEY_exit		61
+#define KEY_exp			62
+#define KEY_fc			63
+#define KEY_fcntl		64
+#define KEY_fileno		65
+#define KEY_flock		66
+#define KEY_for			67
+#define KEY_foreach		68
+#define KEY_fork		69
+#define KEY_format		70
+#define KEY_formline		71
+#define KEY_ge			72
+#define KEY_getc		73
+#define KEY_getgrent		74
+#define KEY_getgrgid		75
+#define KEY_getgrnam		76
+#define KEY_gethostbyaddr	77
+#define KEY_gethostbyname	78
+#define KEY_gethostent		79
+#define KEY_getlogin		80
+#define KEY_getnetbyaddr	81
+#define KEY_getnetbyname	82
+#define KEY_getnetent		83
+#define KEY_getpeername		84
+#define KEY_getpgrp		85
+#define KEY_getppid		86
+#define KEY_getpriority		87
+#define KEY_getprotobyname	88
+#define KEY_getprotobynumber	89
+#define KEY_getprotoent		90
+#define KEY_getpwent		91
+#define KEY_getpwnam		92
+#define KEY_getpwuid		93
+#define KEY_getservbyname	94
+#define KEY_getservbyport	95
+#define KEY_getservent		96
+#define KEY_getsockname		97
+#define KEY_getsockopt		98
+#define KEY_given		99
+#define KEY_glob		100
+#define KEY_gmtime		101
+#define KEY_goto		102
+#define KEY_grep		103
+#define KEY_gt			104
+#define KEY_hex			105
+#define KEY_if			106
+#define KEY_index		107
+#define KEY_int			108
+#define KEY_ioctl		109
+#define KEY_join		110
+#define KEY_keys		111
+#define KEY_kill		112
+#define KEY_last		113
+#define KEY_lc			114
+#define KEY_lcfirst		115
+#define KEY_le			116
+#define KEY_length		117
+#define KEY_link		118
+#define KEY_listen		119
+#define KEY_local		120
+#define KEY_localtime		121
+#define KEY_lock		122
+#define KEY_log			123
+#define KEY_lstat		124
+#define KEY_lt			125
+#define KEY_m			126
+#define KEY_map			127
+#define KEY_mkdir		128
+#define KEY_msgctl		129
+#define KEY_msgget		130
+#define KEY_msgrcv		131
+#define KEY_msgsnd		132
+#define KEY_my			133
+#define KEY_ne			134
+#define KEY_next		135
+#define KEY_no			136
+#define KEY_not			137
+#define KEY_oct			138
+#define KEY_open		139
+#define KEY_opendir		140
+#define KEY_or			141
+#define KEY_ord			142
+#define KEY_our			143
+#define KEY_pack		144
+#define KEY_package		145
+#define KEY_pipe		146
+#define KEY_pop			147
+#define KEY_pos			148
+#define KEY_print		149
+#define KEY_printf		150
+#define KEY_prototype		151
+#define KEY_push		152
+#define KEY_q			153
+#define KEY_qq			154
+#define KEY_qr			155
+#define KEY_quotemeta		156
+#define KEY_qw			157
+#define KEY_qx			158
+#define KEY_rand		159
+#define KEY_read		160
+#define KEY_readdir		161
+#define KEY_readline		162
+#define KEY_readlink		163
+#define KEY_readpipe		164
+#define KEY_recv		165
+#define KEY_redo		166
+#define KEY_ref			167
+#define KEY_rename		168
+#define KEY_require		169
+#define KEY_reset		170
+#define KEY_return		171
+#define KEY_reverse		172
+#define KEY_rewinddir		173
+#define KEY_rindex		174
+#define KEY_rmdir		175
+#define KEY_s			176
+#define KEY_say			177
+#define KEY_scalar		178
+#define KEY_seek		179
+#define KEY_seekdir		180
+#define KEY_select		181
+#define KEY_semctl		182
+#define KEY_semget		183
+#define KEY_semop		184
+#define KEY_send		185
+#define KEY_setgrent		186
+#define KEY_sethostent		187
+#define KEY_setnetent		188
+#define KEY_setpgrp		189
+#define KEY_setpriority		190
+#define KEY_setprotoent		191
+#define KEY_setpwent		192
+#define KEY_setservent		193
+#define KEY_setsockopt		194
+#define KEY_shift		195
+#define KEY_shmctl		196
+#define KEY_shmget		197
+#define KEY_shmread		198
+#define KEY_shmwrite		199
+#define KEY_shutdown		200
+#define KEY_sin			201
+#define KEY_sleep		202
+#define KEY_socket		203
+#define KEY_socketpair		204
+#define KEY_sort		205
+#define KEY_splice		206
+#define KEY_split		207
+#define KEY_sprintf		208
+#define KEY_sqrt		209
+#define KEY_srand		210
+#define KEY_stat		211
+#define KEY_state		212
+#define KEY_study		213
+#define KEY_sub			214
+#define KEY_substr		215
+#define KEY_symlink		216
+#define KEY_syscall		217
+#define KEY_sysopen		218
+#define KEY_sysread		219
+#define KEY_sysseek		220
+#define KEY_system		221
+#define KEY_syswrite		222
+#define KEY_tell		223
+#define KEY_telldir		224
+#define KEY_tie			225
+#define KEY_tied		226
+#define KEY_time		227
+#define KEY_times		228
+#define KEY_tr			229
+#define KEY_truncate		230
+#define KEY_uc			231
+#define KEY_ucfirst		232
+#define KEY_umask		233
+#define KEY_undef		234
+#define KEY_unless		235
+#define KEY_unlink		236
+#define KEY_unpack		237
+#define KEY_unshift		238
+#define KEY_untie		239
+#define KEY_until		240
+#define KEY_use			241
+#define KEY_utime		242
+#define KEY_values		243
+#define KEY_vec			244
+#define KEY_wait		245
+#define KEY_waitpid		246
+#define KEY_wantarray		247
+#define KEY_warn		248
+#define KEY_when		249
+#define KEY_while		250
+#define KEY_write		251
+#define KEY_x			252
+#define KEY_xor			253
+#define KEY_y			254
+
+/* Generated from:
+ * 7e3d76a333c5f9b77d47dd7d423450356b63853a1c2313d3e805042caaa4bc2c regen/keywords.pl
+ * ex: set ro: */
diff --git a/lib/5.24.1/x86_64-linux/CORE/l1_char_class_tab.h b/lib/5.24.1/x86_64-linux/CORE/l1_char_class_tab.h
new file mode 100644
index 00000000..7602a781
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/l1_char_class_tab.h
@@ -0,0 +1,796 @@
+/* -*- buffer-read-only: t -*-
+ * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+ * This file is built by regen/mk_PL_charclass.pl from property definitions.
+ * Any changes made here will be lost!
+ */
+
+/* For code points whose position is not the same as Unicode,  both are shown
+ * in the comment*/
+
+#if 'A' == 65 /* ASCII/Latin1 */
+/* U+00 NUL */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+01 SOH */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+02 STX */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+03 ETX */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+04 EOT */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+05 ENQ */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+06 ACK */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+07 BEL */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_MNEMONIC_CNTRL),
+/* U+08 BS */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_MNEMONIC_CNTRL),
+/* U+09 HT */ (1U<<_CC_ASCII)|(1U<<_CC_BLANK)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_SPACE)|(1U<<_CC_MNEMONIC_CNTRL),
+/* U+0A LF */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_SPACE)|(1U<<_CC_VERTSPACE)|(1U<<_CC_MNEMONIC_CNTRL),
+/* U+0B VT */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_SPACE)|(1U<<_CC_VERTSPACE),
+/* U+0C FF */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_SPACE)|(1U<<_CC_VERTSPACE)|(1U<<_CC_MNEMONIC_CNTRL),
+/* U+0D CR */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_SPACE)|(1U<<_CC_VERTSPACE)|(1U<<_CC_MNEMONIC_CNTRL),
+/* U+0E SO */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+0F SI */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+10 DLE */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+11 DC1 */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+12 DC2 */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+13 DC3 */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+14 DC4 */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+15 NAK */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+16 SYN */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+17 ETB */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+18 CAN */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+19 EOM */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+1A SUB */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+1B ESC */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_MNEMONIC_CNTRL),
+/* U+1C FS */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+1D GS */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+1E RS */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+1F US */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+20 SP */ (1U<<_CC_ASCII)|(1U<<_CC_BLANK)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_PRINT)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_SPACE),
+/* U+21 '!' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* U+22 '"' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* U+23 '#' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* U+24 '$' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* U+25 '%' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* U+26 '&' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* U+27 "'" */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* U+28 '(' */ (1U<<_CC_ASCII)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* U+29 ')' */ (1U<<_CC_ASCII)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* U+2A '*' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* U+2B '+' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* U+2C ',' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* U+2D '-' */ (1U<<_CC_ASCII)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* U+2E '.' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* U+2F '/' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* U+30 '0' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ASCII)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_DIGIT)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT),
+/* U+31 '1' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ASCII)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_DIGIT)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT),
+/* U+32 '2' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ASCII)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_DIGIT)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT),
+/* U+33 '3' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ASCII)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_DIGIT)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT),
+/* U+34 '4' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ASCII)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_DIGIT)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT),
+/* U+35 '5' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ASCII)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_DIGIT)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT),
+/* U+36 '6' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ASCII)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_DIGIT)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT),
+/* U+37 '7' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ASCII)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_DIGIT)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT),
+/* U+38 '8' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ASCII)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_DIGIT)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT),
+/* U+39 '9' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ASCII)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_DIGIT)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT),
+/* U+3A ':' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* U+3B ';' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* U+3C '<' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* U+3D '=' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* U+3E '>' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* U+3F '?' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* U+40 '@' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* U+41 'A' */ (1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_NON_FINAL_FOLD)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+42 'B' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+43 'C' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+44 'D' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+45 'E' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+46 'F' */ (1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_NON_FINAL_FOLD)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+47 'G' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+48 'H' */ (1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_NON_FINAL_FOLD)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+49 'I' */ (1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_NON_FINAL_FOLD)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+4A 'J' */ (1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_NON_FINAL_FOLD)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+4B 'K' */ (1U<<_CC_NONLATIN1_SIMPLE_FOLD)|(1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+4C 'L' */ (1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+4D 'M' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+4E 'N' */ (1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+4F 'O' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+50 'P' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+51 'Q' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+52 'R' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+53 'S' */ (1U<<_CC_NONLATIN1_SIMPLE_FOLD)|(1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_NON_FINAL_FOLD)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+54 'T' */ (1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_NON_FINAL_FOLD)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+55 'U' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+56 'V' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+57 'W' */ (1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_NON_FINAL_FOLD)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+58 'X' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+59 'Y' */ (1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_NON_FINAL_FOLD)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+5A 'Z' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+5B '[' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* U+5C '\' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* U+5D ']' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* U+5E '^' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* U+5F '_' */ (1U<<_CC_ASCII)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_WORDCHAR),
+/* U+60 '`' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* U+61 'a' */ (1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_NON_FINAL_FOLD)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+62 'b' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+63 'c' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+64 'd' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+65 'e' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+66 'f' */ (1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_NON_FINAL_FOLD)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+67 'g' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+68 'h' */ (1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_NON_FINAL_FOLD)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+69 'i' */ (1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_NON_FINAL_FOLD)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+6A 'j' */ (1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_NON_FINAL_FOLD)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+6B 'k' */ (1U<<_CC_NONLATIN1_SIMPLE_FOLD)|(1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+6C 'l' */ (1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+6D 'm' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+6E 'n' */ (1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+6F 'o' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+70 'p' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+71 'q' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+72 'r' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+73 's' */ (1U<<_CC_NONLATIN1_SIMPLE_FOLD)|(1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_NON_FINAL_FOLD)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+74 't' */ (1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_NON_FINAL_FOLD)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+75 'u' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+76 'v' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+77 'w' */ (1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_NON_FINAL_FOLD)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+78 'x' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+79 'y' */ (1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_NON_FINAL_FOLD)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+7A 'z' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+7B '{' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* U+7C '|' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* U+7D '}' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* U+7E '~' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* U+7F DEL */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+80 PAD */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+81 HOP */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+82 BPH */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+83 NBH */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+84 IND */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+85 NEL */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_SPACE)|(1U<<_CC_VERTSPACE),
+/* U+86 SSA */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+87 ESA */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+88 HTS */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+89 HTJ */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+8A VTS */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+8B PLD */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+8C PLU */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+8D RI */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+8E SS2 */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+8F SS3 */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+90 DCS */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+91 PU1 */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+92 PU2 */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+93 STS */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+94 CCH */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+95 MW */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+96 SPA */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+97 EPA */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+98 SOS */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+99 SGC */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+9A SCI */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+9B CSI */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+9C ST */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+9D OSC */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+9E PM */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+9F APC */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+A0 NBSP */ (1U<<_CC_BLANK)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_PRINT)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_SPACE),
+/* U+A1 INVERTED '!' */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* U+A2 CENT */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_QUOTEMETA),
+/* U+A3 POUND */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_QUOTEMETA),
+/* U+A4 CURRENCY */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_QUOTEMETA),
+/* U+A5 YEN */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_QUOTEMETA),
+/* U+A6 BROKEN BAR */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_QUOTEMETA),
+/* U+A7 SECTION */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* U+A8 DIAERESIS */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT),
+/* U+A9 COPYRIGHT */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_QUOTEMETA),
+/* U+AA FEMININE ORDINAL */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR),
+/* U+AB LEFT-POINTING DOUBLE ANGLE QUOTE */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* U+AC NOT */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_QUOTEMETA),
+/* U+AD SOFT HYPHEN */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_QUOTEMETA),
+/* U+AE REGISTERED */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_QUOTEMETA),
+/* U+AF MACRON */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT),
+/* U+B0 DEGREE */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_QUOTEMETA),
+/* U+B1 PLUS-MINUS */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_QUOTEMETA),
+/* U+B2 SUPERSCRIPT 2 */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT),
+/* U+B3 SUPERSCRIPT 3 */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT),
+/* U+B4 ACUTE ACCENT */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT),
+/* U+B5 MICRO */ (1U<<_CC_NONLATIN1_SIMPLE_FOLD)|(1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+B6 PILCROW */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* U+B7 MIDDLE DOT */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT),
+/* U+B8 CEDILLA */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT),
+/* U+B9 SUPERSCRIPT 1 */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT),
+/* U+BA MASCULINE ORDINAL */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR),
+/* U+BB RIGHT-POINTING DOUBLE ANGLE QUOTE */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* U+BC 1/4 */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT),
+/* U+BD 1/2 */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT),
+/* U+BE 3/4 */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT),
+/* U+BF INVERTED '?' */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* U+C0 A with GRAVE */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+C1 A with ACUTE */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+C2 A with '^' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+C3 A with '~' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+C4 A with DIAERESIS */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+C5 A with RING */ (1U<<_CC_NONLATIN1_SIMPLE_FOLD)|(1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+C6 AE */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+C7 C with CEDILLA */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+C8 E with GRAVE */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+C9 E with ACUTE */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+CA E with '^' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+CB E with DIAERESIS */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+CC I with GRAVE */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+CD I with ACUTE */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+CE I with '^' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+CF I with DIAERESIS */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+D0 ETH */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+D1 N with '~' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+D2 O with GRAVE */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+D3 O with ACUTE */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+D4 O with '^' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+D5 O with '~' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+D6 O with DIAERESIS */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+D7 MULTIPLICATION */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_QUOTEMETA),
+/* U+D8 O with '/' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+D9 U with GRAVE */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+DA U with ACUTE */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+DB U with '^' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+DC U with DIAERESIS */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+DD Y with ACUTE */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+DE THORN */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+DF sharp s */ (1U<<_CC_NONLATIN1_SIMPLE_FOLD)|(1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+E0 a with grave */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+E1 a with acute */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+E2 a with '^' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+E3 a with '~' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+E4 a with diaeresis */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+E5 a with ring */ (1U<<_CC_NONLATIN1_SIMPLE_FOLD)|(1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+E6 ae */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+E7 c with cedilla */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+E8 e with grave */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+E9 e with acute */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+EA e with '^' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+EB e with diaeresis */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+EC i with grave */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+ED i with acute */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+EE i with '^' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+EF i with diaeresis */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+F0 eth */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+F1 n with '~' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+F2 o with grave */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+F3 o with acute */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+F4 o with '^' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+F5 o with '~' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+F6 o with diaeresis */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+F7 DIVISION */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_QUOTEMETA),
+/* U+F8 o with '/' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+F9 u with grave */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+FA u with acute */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+FB u with '^' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+FC u with diaeresis */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+FD y with acute */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+FE thorn */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* U+FF y with diaeresis */ (1U<<_CC_NONLATIN1_SIMPLE_FOLD)|(1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)
+
+#endif	/* ASCII/Latin1 */
+
+#if 'A' == 193 /* EBCDIC 1047 */ \
+     && '\\' == 224 && '[' == 173 && ']' == 189 && '{' == 192 && '}' == 208 \
+     && '^' == 95 && '~' == 161 && '!' == 90 && '#' == 123 && '|' == 79 \
+     && '$' == 91 && '@' == 124 && '`' == 121
+/* U+00 NUL */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+01 SOH */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+02 STX */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+03 ETX */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x04 U+9C ST */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x05 U+09 HT */ (1U<<_CC_ASCII)|(1U<<_CC_BLANK)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_SPACE)|(1U<<_CC_MNEMONIC_CNTRL),
+/* 0x06 U+86 SSA */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x07 U+7F DEL */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x08 U+97 EPA */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x09 U+8D RI */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x0A U+8E SS2 */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+0B VT */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_SPACE)|(1U<<_CC_VERTSPACE),
+/* U+0C FF */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_SPACE)|(1U<<_CC_VERTSPACE)|(1U<<_CC_MNEMONIC_CNTRL),
+/* U+0D CR */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_SPACE)|(1U<<_CC_VERTSPACE)|(1U<<_CC_MNEMONIC_CNTRL),
+/* U+0E SO */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+0F SI */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+10 DLE */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+11 DC1 */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+12 DC2 */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+13 DC3 */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x14 U+9D OSC */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x15 U+0A LF */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_SPACE)|(1U<<_CC_VERTSPACE)|(1U<<_CC_MNEMONIC_CNTRL),
+/* 0x16 U+08 BS */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_MNEMONIC_CNTRL),
+/* 0x17 U+87 ESA */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+18 CAN */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+19 EOM */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x1A U+92 PU2 */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x1B U+8F SS3 */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+1C FS */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+1D GS */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+1E RS */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+1F US */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x20 U+80 PAD */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x21 U+81 HOP */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x22 U+82 BPH */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x23 U+83 NBH */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x24 U+84 IND */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x25 U+85 NEL */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_SPACE)|(1U<<_CC_VERTSPACE),
+/* 0x26 U+17 ETB */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x27 U+1B ESC */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_MNEMONIC_CNTRL),
+/* 0x28 U+88 HTS */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x29 U+89 HTJ */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x2A U+8A VTS */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x2B U+8B PLD */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x2C U+8C PLU */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x2D U+05 ENQ */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x2E U+06 ACK */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x2F U+07 BEL */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_MNEMONIC_CNTRL),
+/* 0x30 U+90 DCS */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x31 U+91 PU1 */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x32 U+16 SYN */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x33 U+93 STS */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x34 U+94 CCH */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x35 U+95 MW */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x36 U+96 SPA */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x37 U+04 EOT */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x38 U+98 SOS */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x39 U+99 SGC */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x3A U+9A SCI */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x3B U+9B CSI */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x3C U+14 DC4 */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x3D U+15 NAK */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x3E U+9E PM */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x3F U+1A SUB */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x40 U+20 SP */ (1U<<_CC_ASCII)|(1U<<_CC_BLANK)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_PRINT)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_SPACE),
+/* 0x41 U+A0 NBSP */ (1U<<_CC_BLANK)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_PRINT)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_SPACE)|(1U<<_CC_UTF8_IS_CONTINUATION),
+/* 0x42 U+E2 I8=A1 a with '^' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_CONTINUATION),
+/* 0x43 U+E4 I8=A2 a with diaeresis */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_CONTINUATION),
+/* 0x44 U+E0 I8=A3 a with grave */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_CONTINUATION),
+/* 0x45 U+E1 I8=A4 a with acute */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_CONTINUATION),
+/* 0x46 U+E3 I8=A5 a with '~' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_CONTINUATION),
+/* 0x47 U+E5 I8=A6 a with ring */ (1U<<_CC_NONLATIN1_SIMPLE_FOLD)|(1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_CONTINUATION),
+/* 0x48 U+E7 I8=A7 c with cedilla */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_CONTINUATION),
+/* 0x49 U+F1 I8=A8 n with '~' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_CONTINUATION),
+/* 0x4A U+A2 I8=A9 CENT */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_UTF8_IS_CONTINUATION),
+/* 0x4B U+2E '.' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* 0x4C U+3C '<' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* 0x4D U+28 '(' */ (1U<<_CC_ASCII)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* 0x4E U+2B '+' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* 0x4F U+7C '|' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* 0x50 U+26 '&' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* 0x51 U+E9 I8=AA e with acute */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_CONTINUATION),
+/* 0x52 U+EA I8=AB e with '^' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_CONTINUATION),
+/* 0x53 U+EB I8=AC e with diaeresis */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_CONTINUATION),
+/* 0x54 U+E8 I8=AD e with grave */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_CONTINUATION),
+/* 0x55 U+ED I8=AE i with acute */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_CONTINUATION),
+/* 0x56 U+EE I8=AF i with '^' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_CONTINUATION),
+/* 0x57 U+EF I8=B0 i with diaeresis */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_CONTINUATION),
+/* 0x58 U+EC I8=B1 i with grave */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_CONTINUATION),
+/* 0x59 U+DF I8=B2 sharp s */ (1U<<_CC_NONLATIN1_SIMPLE_FOLD)|(1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_CONTINUATION),
+/* 0x5A U+21 '!' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* 0x5B U+24 '$' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* 0x5C U+2A '*' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* 0x5D U+29 ')' */ (1U<<_CC_ASCII)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* 0x5E U+3B ';' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* 0x5F U+5E '^' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* 0x60 U+2D '-' */ (1U<<_CC_ASCII)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* 0x61 U+2F '/' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* 0x62 U+C2 I8=B3 A with '^' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_CONTINUATION),
+/* 0x63 U+C4 I8=B4 A with DIAERESIS */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_CONTINUATION),
+/* 0x64 U+C0 I8=B5 A with GRAVE */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_CONTINUATION),
+/* 0x65 U+C1 I8=B6 A with ACUTE */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_CONTINUATION),
+/* 0x66 U+C3 I8=B7 A with '~' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_CONTINUATION),
+/* 0x67 U+C5 I8=B8 A with RING */ (1U<<_CC_NONLATIN1_SIMPLE_FOLD)|(1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_CONTINUATION),
+/* 0x68 U+C7 I8=B9 C with CEDILLA */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_CONTINUATION),
+/* 0x69 U+D1 I8=BA N with '~' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_CONTINUATION),
+/* 0x6A U+A6 I8=BB BROKEN BAR */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_UTF8_IS_CONTINUATION),
+/* 0x6B U+2C ',' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* 0x6C U+25 '%' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* 0x6D U+5F '_' */ (1U<<_CC_ASCII)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_WORDCHAR),
+/* 0x6E U+3E '>' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* 0x6F U+3F '?' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* 0x70 U+F8 I8=BC o with '/' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_CONTINUATION),
+/* 0x71 U+C9 I8=BD E with ACUTE */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_CONTINUATION),
+/* 0x72 U+CA I8=BE E with '^' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_CONTINUATION),
+/* 0x73 U+CB I8=BF E with DIAERESIS */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_CONTINUATION),
+/* 0x74 U+C8 I8=C0 E with GRAVE */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0x75 U+CD I8=C1 I with ACUTE */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0x76 U+CE I8=C2 I with '^' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0x77 U+CF I8=C3 I with DIAERESIS */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0x78 U+CC I8=C4 I with GRAVE */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0x79 U+60 '`' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* 0x7A U+3A ':' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* 0x7B U+23 '#' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* 0x7C U+40 '@' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* 0x7D U+27 "'" */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* 0x7E U+3D '=' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* 0x7F U+22 '"' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* 0x80 U+D8 I8=C5 O with '/' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_START)|(1U<<_CC_UTF8_IS_DOWNGRADEABLE_START),
+/* 0x81 U+61 'a' */ (1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_NON_FINAL_FOLD)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0x82 U+62 'b' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0x83 U+63 'c' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0x84 U+64 'd' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0x85 U+65 'e' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0x86 U+66 'f' */ (1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_NON_FINAL_FOLD)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0x87 U+67 'g' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0x88 U+68 'h' */ (1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_NON_FINAL_FOLD)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0x89 U+69 'i' */ (1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_NON_FINAL_FOLD)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0x8A U+AB I8=C6 LEFT-POINTING DOUBLE ANGLE QUOTE */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_UTF8_IS_START)|(1U<<_CC_UTF8_IS_DOWNGRADEABLE_START),
+/* 0x8B U+BB I8=C7 RIGHT-POINTING DOUBLE ANGLE QUOTE */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_UTF8_IS_START)|(1U<<_CC_UTF8_IS_DOWNGRADEABLE_START),
+/* 0x8C U+F0 I8=C8 eth */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_START),
+/* 0x8D U+FD I8=C9 y with acute */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_START),
+/* 0x8E U+FE I8=CA thorn */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_START),
+/* 0x8F U+B1 I8=CB PLUS-MINUS */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_UTF8_IS_START),
+/* 0x90 U+B0 I8=CC DEGREE */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_UTF8_IS_START),
+/* 0x91 U+6A 'j' */ (1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_NON_FINAL_FOLD)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0x92 U+6B 'k' */ (1U<<_CC_NONLATIN1_SIMPLE_FOLD)|(1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0x93 U+6C 'l' */ (1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0x94 U+6D 'm' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0x95 U+6E 'n' */ (1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0x96 U+6F 'o' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0x97 U+70 'p' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0x98 U+71 'q' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0x99 U+72 'r' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0x9A U+AA I8=CD FEMININE ORDINAL */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_UTF8_IS_START),
+/* 0x9B U+BA I8=CE MASCULINE ORDINAL */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_UTF8_IS_START),
+/* 0x9C U+E6 I8=CF ae */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_START),
+/* 0x9D U+B8 I8=D0 CEDILLA */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_UTF8_IS_START),
+/* 0x9E U+C6 I8=D1 AE */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_START),
+/* 0x9F U+A4 I8=D2 CURRENCY */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_UTF8_IS_START),
+/* 0xA0 U+B5 I8=D3 MICRO */ (1U<<_CC_NONLATIN1_SIMPLE_FOLD)|(1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_START),
+/* 0xA1 U+7E '~' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* 0xA2 U+73 's' */ (1U<<_CC_NONLATIN1_SIMPLE_FOLD)|(1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_NON_FINAL_FOLD)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xA3 U+74 't' */ (1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_NON_FINAL_FOLD)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xA4 U+75 'u' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xA5 U+76 'v' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xA6 U+77 'w' */ (1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_NON_FINAL_FOLD)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xA7 U+78 'x' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xA8 U+79 'y' */ (1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_NON_FINAL_FOLD)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xA9 U+7A 'z' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xAA U+A1 I8=D4 INVERTED '!' */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_UTF8_IS_START),
+/* 0xAB U+BF I8=D5 INVERTED '?' */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_UTF8_IS_START),
+/* 0xAC U+D0 I8=D6 ETH */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_START),
+/* 0xAD U+5B '[' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* 0xAE U+DE I8=D7 THORN */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_START),
+/* 0xAF U+AE I8=D8 REGISTERED */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_UTF8_IS_START),
+/* 0xB0 U+AC I8=D9 NOT */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_UTF8_IS_START),
+/* 0xB1 U+A3 I8=DA POUND */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_UTF8_IS_START),
+/* 0xB2 U+A5 I8=DB YEN */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_UTF8_IS_START),
+/* 0xB3 U+B7 I8=DC MIDDLE DOT */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_UTF8_IS_START),
+/* 0xB4 U+A9 I8=DD COPYRIGHT */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_UTF8_IS_START),
+/* 0xB5 U+A7 I8=DE SECTION */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_UTF8_IS_START),
+/* U+B6 I8=DF PILCROW */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_UTF8_IS_START),
+/* 0xB7 U+BC I8=E0 1/4 */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT),
+/* 0xB8 U+BD I8=E1 1/2 */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_UTF8_IS_START),
+/* 0xB9 U+BE I8=E2 3/4 */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_UTF8_IS_START),
+/* 0xBA U+DD I8=E3 Y with ACUTE */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_START),
+/* 0xBB U+A8 I8=E4 DIAERESIS */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_UTF8_IS_START),
+/* 0xBC U+AF I8=E5 MACRON */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_UTF8_IS_START),
+/* 0xBD U+5D ']' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* 0xBE U+B4 I8=E6 ACUTE ACCENT */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_UTF8_IS_START),
+/* 0xBF U+D7 I8=E7 MULTIPLICATION */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_UTF8_IS_START),
+/* 0xC0 U+7B '{' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* 0xC1 U+41 'A' */ (1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_NON_FINAL_FOLD)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xC2 U+42 'B' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xC3 U+43 'C' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xC4 U+44 'D' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xC5 U+45 'E' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xC6 U+46 'F' */ (1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_NON_FINAL_FOLD)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xC7 U+47 'G' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xC8 U+48 'H' */ (1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_NON_FINAL_FOLD)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xC9 U+49 'I' */ (1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_NON_FINAL_FOLD)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xCA U+AD I8=E8 SOFT HYPHEN */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_UTF8_IS_START),
+/* 0xCB U+F4 I8=E9 o with '^' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_START),
+/* 0xCC U+F6 I8=EA o with diaeresis */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_START),
+/* 0xCD U+F2 I8=EB o with grave */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_START),
+/* 0xCE U+F3 I8=EC o with acute */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_START),
+/* 0xCF U+F5 I8=ED o with '~' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_START),
+/* 0xD0 U+7D '}' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* 0xD1 U+4A 'J' */ (1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_NON_FINAL_FOLD)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xD2 U+4B 'K' */ (1U<<_CC_NONLATIN1_SIMPLE_FOLD)|(1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xD3 U+4C 'L' */ (1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xD4 U+4D 'M' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xD5 U+4E 'N' */ (1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xD6 U+4F 'O' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xD7 U+50 'P' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xD8 U+51 'Q' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xD9 U+52 'R' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xDA U+B9 I8=EE SUPERSCRIPT 1 */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_UTF8_IS_START),
+/* 0xDB U+FB I8=EF u with '^' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_START),
+/* 0xDC U+FC I8=F0 u with diaeresis */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_START),
+/* 0xDD U+F9 I8=F1 u with grave */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_START)|(1U<<_CC_UTF8_START_BYTE_IS_FOR_AT_LEAST_SURROGATE),
+/* 0xDE U+FA I8=F2 u with acute */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_START)|(1U<<_CC_UTF8_START_BYTE_IS_FOR_AT_LEAST_SURROGATE),
+/* 0xDF U+FF I8=F3 y with diaeresis */ (1U<<_CC_NONLATIN1_SIMPLE_FOLD)|(1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_START)|(1U<<_CC_UTF8_START_BYTE_IS_FOR_AT_LEAST_SURROGATE),
+/* 0xE0 U+5C '\' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* 0xE1 U+F7 I8=F4 DIVISION */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_UTF8_IS_START)|(1U<<_CC_UTF8_START_BYTE_IS_FOR_AT_LEAST_SURROGATE),
+/* 0xE2 U+53 'S' */ (1U<<_CC_NONLATIN1_SIMPLE_FOLD)|(1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_NON_FINAL_FOLD)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xE3 U+54 'T' */ (1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_NON_FINAL_FOLD)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xE4 U+55 'U' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xE5 U+56 'V' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xE6 U+57 'W' */ (1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_NON_FINAL_FOLD)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xE7 U+58 'X' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xE8 U+59 'Y' */ (1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_NON_FINAL_FOLD)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xE9 U+5A 'Z' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xEA U+B2 I8=F5 SUPERSCRIPT 2 */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_UTF8_IS_START)|(1U<<_CC_UTF8_START_BYTE_IS_FOR_AT_LEAST_SURROGATE),
+/* 0xEB U+D4 I8=F6 O with '^' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_START)|(1U<<_CC_UTF8_START_BYTE_IS_FOR_AT_LEAST_SURROGATE),
+/* 0xEC U+D6 I8=F7 O with DIAERESIS */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_START)|(1U<<_CC_UTF8_START_BYTE_IS_FOR_AT_LEAST_SURROGATE),
+/* 0xED U+D2 I8=F8 O with GRAVE */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_START)|(1U<<_CC_UTF8_START_BYTE_IS_FOR_AT_LEAST_SURROGATE),
+/* 0xEE U+D3 I8=F9 O with ACUTE */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_START)|(1U<<_CC_UTF8_START_BYTE_IS_FOR_AT_LEAST_SURROGATE),
+/* 0xEF U+D5 I8=FA O with '~' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_START)|(1U<<_CC_UTF8_START_BYTE_IS_FOR_AT_LEAST_SURROGATE),
+/* 0xF0 U+30 '0' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ASCII)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_DIGIT)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT),
+/* 0xF1 U+31 '1' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ASCII)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_DIGIT)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT),
+/* 0xF2 U+32 '2' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ASCII)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_DIGIT)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT),
+/* 0xF3 U+33 '3' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ASCII)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_DIGIT)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT),
+/* 0xF4 U+34 '4' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ASCII)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_DIGIT)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT),
+/* 0xF5 U+35 '5' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ASCII)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_DIGIT)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT),
+/* 0xF6 U+36 '6' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ASCII)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_DIGIT)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT),
+/* 0xF7 U+37 '7' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ASCII)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_DIGIT)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT),
+/* 0xF8 U+38 '8' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ASCII)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_DIGIT)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT),
+/* 0xF9 U+39 '9' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ASCII)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_DIGIT)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT),
+/* 0xFA U+B3 I8=FB SUPERSCRIPT 3 */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_UTF8_IS_START)|(1U<<_CC_UTF8_START_BYTE_IS_FOR_AT_LEAST_SURROGATE),
+/* 0xFB U+DB I8=FC U with '^' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_START)|(1U<<_CC_UTF8_START_BYTE_IS_FOR_AT_LEAST_SURROGATE),
+/* 0xFC U+DC I8=FD U with DIAERESIS */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_START)|(1U<<_CC_UTF8_START_BYTE_IS_FOR_AT_LEAST_SURROGATE),
+/* 0xFD U+D9 I8=FE U with GRAVE */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_START)|(1U<<_CC_UTF8_START_BYTE_IS_FOR_AT_LEAST_SURROGATE),
+/* 0xFE U+DA I8=FF U with ACUTE */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_START)|(1U<<_CC_UTF8_START_BYTE_IS_FOR_AT_LEAST_SURROGATE),
+/* 0xFF U+9F APC */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA)
+
+#endif	/* EBCDIC 1047 */
+
+#if 'A' == 193 /* EBCDIC 037 */ \
+     && '\\' == 224 && '[' == 186 && ']' == 187 && '{' == 192 && '}' == 208 \
+     && '^' == 176 && '~' == 161 && '!' == 90 && '#' == 123 && '|' == 79 \
+     && '$' == 91 && '@' == 124 && '`' == 121
+/* U+00 NUL */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+01 SOH */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+02 STX */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+03 ETX */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x04 U+9C ST */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x05 U+09 HT */ (1U<<_CC_ASCII)|(1U<<_CC_BLANK)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_SPACE)|(1U<<_CC_MNEMONIC_CNTRL),
+/* 0x06 U+86 SSA */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x07 U+7F DEL */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x08 U+97 EPA */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x09 U+8D RI */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x0A U+8E SS2 */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+0B VT */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_SPACE)|(1U<<_CC_VERTSPACE),
+/* U+0C FF */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_SPACE)|(1U<<_CC_VERTSPACE)|(1U<<_CC_MNEMONIC_CNTRL),
+/* U+0D CR */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_SPACE)|(1U<<_CC_VERTSPACE)|(1U<<_CC_MNEMONIC_CNTRL),
+/* U+0E SO */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+0F SI */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+10 DLE */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+11 DC1 */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+12 DC2 */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+13 DC3 */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x14 U+9D OSC */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x15 U+85 NEL */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_SPACE)|(1U<<_CC_VERTSPACE),
+/* 0x16 U+08 BS */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_MNEMONIC_CNTRL),
+/* 0x17 U+87 ESA */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+18 CAN */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+19 EOM */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x1A U+92 PU2 */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x1B U+8F SS3 */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+1C FS */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+1D GS */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+1E RS */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* U+1F US */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x20 U+80 PAD */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x21 U+81 HOP */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x22 U+82 BPH */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x23 U+83 NBH */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x24 U+84 IND */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x25 U+0A LF */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_SPACE)|(1U<<_CC_VERTSPACE)|(1U<<_CC_MNEMONIC_CNTRL),
+/* 0x26 U+17 ETB */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x27 U+1B ESC */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_MNEMONIC_CNTRL),
+/* 0x28 U+88 HTS */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x29 U+89 HTJ */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x2A U+8A VTS */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x2B U+8B PLD */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x2C U+8C PLU */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x2D U+05 ENQ */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x2E U+06 ACK */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x2F U+07 BEL */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_MNEMONIC_CNTRL),
+/* 0x30 U+90 DCS */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x31 U+91 PU1 */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x32 U+16 SYN */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x33 U+93 STS */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x34 U+94 CCH */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x35 U+95 MW */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x36 U+96 SPA */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x37 U+04 EOT */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x38 U+98 SOS */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x39 U+99 SGC */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x3A U+9A SCI */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x3B U+9B CSI */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x3C U+14 DC4 */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x3D U+15 NAK */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x3E U+9E PM */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x3F U+1A SUB */ (1U<<_CC_ASCII)|(1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA),
+/* 0x40 U+20 SP */ (1U<<_CC_ASCII)|(1U<<_CC_BLANK)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_PRINT)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_SPACE),
+/* 0x41 U+A0 NBSP */ (1U<<_CC_BLANK)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_PRINT)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_SPACE)|(1U<<_CC_UTF8_IS_CONTINUATION),
+/* 0x42 U+E2 I8=A1 a with '^' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_CONTINUATION),
+/* 0x43 U+E4 I8=A2 a with diaeresis */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_CONTINUATION),
+/* 0x44 U+E0 I8=A3 a with grave */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_CONTINUATION),
+/* 0x45 U+E1 I8=A4 a with acute */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_CONTINUATION),
+/* 0x46 U+E3 I8=A5 a with '~' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_CONTINUATION),
+/* 0x47 U+E5 I8=A6 a with ring */ (1U<<_CC_NONLATIN1_SIMPLE_FOLD)|(1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_CONTINUATION),
+/* 0x48 U+E7 I8=A7 c with cedilla */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_CONTINUATION),
+/* 0x49 U+F1 I8=A8 n with '~' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_CONTINUATION),
+/* 0x4A U+A2 I8=A9 CENT */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_UTF8_IS_CONTINUATION),
+/* 0x4B U+2E '.' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* 0x4C U+3C '<' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* 0x4D U+28 '(' */ (1U<<_CC_ASCII)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* 0x4E U+2B '+' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* 0x4F U+7C '|' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* 0x50 U+26 '&' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* 0x51 U+E9 I8=AA e with acute */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_CONTINUATION),
+/* 0x52 U+EA I8=AB e with '^' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_CONTINUATION),
+/* 0x53 U+EB I8=AC e with diaeresis */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_CONTINUATION),
+/* 0x54 U+E8 I8=AD e with grave */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_CONTINUATION),
+/* 0x55 U+ED I8=AE i with acute */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_CONTINUATION),
+/* 0x56 U+EE I8=AF i with '^' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_CONTINUATION),
+/* 0x57 U+EF I8=B0 i with diaeresis */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_CONTINUATION),
+/* 0x58 U+EC I8=B1 i with grave */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_CONTINUATION),
+/* 0x59 U+DF I8=B2 sharp s */ (1U<<_CC_NONLATIN1_SIMPLE_FOLD)|(1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_CONTINUATION),
+/* 0x5A U+21 '!' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* 0x5B U+24 '$' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* 0x5C U+2A '*' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* 0x5D U+29 ')' */ (1U<<_CC_ASCII)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* 0x5E U+3B ';' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* 0x5F U+AC I8=B3 NOT */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_UTF8_IS_CONTINUATION),
+/* 0x60 U+2D '-' */ (1U<<_CC_ASCII)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* 0x61 U+2F '/' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* 0x62 U+C2 I8=B4 A with '^' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_CONTINUATION),
+/* 0x63 U+C4 I8=B5 A with DIAERESIS */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_CONTINUATION),
+/* 0x64 U+C0 I8=B6 A with GRAVE */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_CONTINUATION),
+/* 0x65 U+C1 I8=B7 A with ACUTE */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_CONTINUATION),
+/* 0x66 U+C3 I8=B8 A with '~' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_CONTINUATION),
+/* 0x67 U+C5 I8=B9 A with RING */ (1U<<_CC_NONLATIN1_SIMPLE_FOLD)|(1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_CONTINUATION),
+/* 0x68 U+C7 I8=BA C with CEDILLA */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_CONTINUATION),
+/* 0x69 U+D1 I8=BB N with '~' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_CONTINUATION),
+/* 0x6A U+A6 I8=BC BROKEN BAR */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_UTF8_IS_CONTINUATION),
+/* 0x6B U+2C ',' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* 0x6C U+25 '%' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* 0x6D U+5F '_' */ (1U<<_CC_ASCII)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_WORDCHAR),
+/* 0x6E U+3E '>' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* 0x6F U+3F '?' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* 0x70 U+F8 I8=BD o with '/' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_CONTINUATION),
+/* 0x71 U+C9 I8=BE E with ACUTE */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_CONTINUATION),
+/* 0x72 U+CA I8=BF E with '^' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_CONTINUATION),
+/* 0x73 U+CB I8=C0 E with DIAERESIS */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0x74 U+C8 I8=C1 E with GRAVE */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0x75 U+CD I8=C2 I with ACUTE */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0x76 U+CE I8=C3 I with '^' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0x77 U+CF I8=C4 I with DIAERESIS */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0x78 U+CC I8=C5 I with GRAVE */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_START)|(1U<<_CC_UTF8_IS_DOWNGRADEABLE_START),
+/* 0x79 U+60 '`' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* 0x7A U+3A ':' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* 0x7B U+23 '#' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* 0x7C U+40 '@' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* 0x7D U+27 "'" */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* 0x7E U+3D '=' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* 0x7F U+22 '"' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* 0x80 U+D8 I8=C6 O with '/' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_START)|(1U<<_CC_UTF8_IS_DOWNGRADEABLE_START),
+/* 0x81 U+61 'a' */ (1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_NON_FINAL_FOLD)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0x82 U+62 'b' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0x83 U+63 'c' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0x84 U+64 'd' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0x85 U+65 'e' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0x86 U+66 'f' */ (1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_NON_FINAL_FOLD)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0x87 U+67 'g' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0x88 U+68 'h' */ (1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_NON_FINAL_FOLD)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0x89 U+69 'i' */ (1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_NON_FINAL_FOLD)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0x8A U+AB I8=C7 LEFT-POINTING DOUBLE ANGLE QUOTE */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_UTF8_IS_START)|(1U<<_CC_UTF8_IS_DOWNGRADEABLE_START),
+/* 0x8B U+BB I8=C8 RIGHT-POINTING DOUBLE ANGLE QUOTE */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_UTF8_IS_START),
+/* 0x8C U+F0 I8=C9 eth */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_START),
+/* 0x8D U+FD I8=CA y with acute */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_START),
+/* 0x8E U+FE I8=CB thorn */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_START),
+/* 0x8F U+B1 I8=CC PLUS-MINUS */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_UTF8_IS_START),
+/* 0x90 U+B0 I8=CD DEGREE */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_UTF8_IS_START),
+/* 0x91 U+6A 'j' */ (1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_NON_FINAL_FOLD)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0x92 U+6B 'k' */ (1U<<_CC_NONLATIN1_SIMPLE_FOLD)|(1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0x93 U+6C 'l' */ (1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0x94 U+6D 'm' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0x95 U+6E 'n' */ (1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0x96 U+6F 'o' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0x97 U+70 'p' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0x98 U+71 'q' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0x99 U+72 'r' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0x9A U+AA I8=CE FEMININE ORDINAL */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_UTF8_IS_START),
+/* 0x9B U+BA I8=CF MASCULINE ORDINAL */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_UTF8_IS_START),
+/* 0x9C U+E6 I8=D0 ae */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_START),
+/* 0x9D U+B8 I8=D1 CEDILLA */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_UTF8_IS_START),
+/* 0x9E U+C6 I8=D2 AE */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_START),
+/* 0x9F U+A4 I8=D3 CURRENCY */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_UTF8_IS_START),
+/* 0xA0 U+B5 I8=D4 MICRO */ (1U<<_CC_NONLATIN1_SIMPLE_FOLD)|(1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_START),
+/* 0xA1 U+7E '~' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* 0xA2 U+73 's' */ (1U<<_CC_NONLATIN1_SIMPLE_FOLD)|(1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_NON_FINAL_FOLD)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xA3 U+74 't' */ (1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_NON_FINAL_FOLD)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xA4 U+75 'u' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xA5 U+76 'v' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xA6 U+77 'w' */ (1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_NON_FINAL_FOLD)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xA7 U+78 'x' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xA8 U+79 'y' */ (1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_NON_FINAL_FOLD)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xA9 U+7A 'z' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xAA U+A1 I8=D5 INVERTED '!' */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_UTF8_IS_START),
+/* 0xAB U+BF I8=D6 INVERTED '?' */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_UTF8_IS_START),
+/* 0xAC U+D0 I8=D7 ETH */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_START),
+/* 0xAD U+DD I8=D8 Y with ACUTE */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_START),
+/* 0xAE U+DE I8=D9 THORN */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_START),
+/* 0xAF U+AE I8=DA REGISTERED */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_UTF8_IS_START),
+/* 0xB0 U+5E '^' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* 0xB1 U+A3 I8=DB POUND */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_UTF8_IS_START),
+/* 0xB2 U+A5 I8=DC YEN */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_UTF8_IS_START),
+/* 0xB3 U+B7 I8=DD MIDDLE DOT */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_UTF8_IS_START),
+/* 0xB4 U+A9 I8=DE COPYRIGHT */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_UTF8_IS_START),
+/* 0xB5 U+A7 I8=DF SECTION */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_UTF8_IS_START),
+/* U+B6 I8=E0 PILCROW */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* 0xB7 U+BC I8=E1 1/4 */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_UTF8_IS_START),
+/* 0xB8 U+BD I8=E2 1/2 */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_UTF8_IS_START),
+/* 0xB9 U+BE I8=E3 3/4 */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_UTF8_IS_START),
+/* 0xBA U+5B '[' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* 0xBB U+5D ']' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* 0xBC U+AF I8=E4 MACRON */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_UTF8_IS_START),
+/* 0xBD U+A8 I8=E5 DIAERESIS */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_UTF8_IS_START),
+/* 0xBE U+B4 I8=E6 ACUTE ACCENT */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_UTF8_IS_START),
+/* 0xBF U+D7 I8=E7 MULTIPLICATION */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_UTF8_IS_START),
+/* 0xC0 U+7B '{' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* 0xC1 U+41 'A' */ (1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_NON_FINAL_FOLD)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xC2 U+42 'B' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xC3 U+43 'C' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xC4 U+44 'D' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xC5 U+45 'E' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xC6 U+46 'F' */ (1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_NON_FINAL_FOLD)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xC7 U+47 'G' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xC8 U+48 'H' */ (1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_NON_FINAL_FOLD)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xC9 U+49 'I' */ (1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_NON_FINAL_FOLD)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xCA U+AD I8=E8 SOFT HYPHEN */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_UTF8_IS_START),
+/* 0xCB U+F4 I8=E9 o with '^' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_START),
+/* 0xCC U+F6 I8=EA o with diaeresis */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_START),
+/* 0xCD U+F2 I8=EB o with grave */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_START),
+/* 0xCE U+F3 I8=EC o with acute */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_START),
+/* 0xCF U+F5 I8=ED o with '~' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_START),
+/* 0xD0 U+7D '}' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* 0xD1 U+4A 'J' */ (1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_NON_FINAL_FOLD)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xD2 U+4B 'K' */ (1U<<_CC_NONLATIN1_SIMPLE_FOLD)|(1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xD3 U+4C 'L' */ (1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xD4 U+4D 'M' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xD5 U+4E 'N' */ (1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xD6 U+4F 'O' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xD7 U+50 'P' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xD8 U+51 'Q' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xD9 U+52 'R' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xDA U+B9 I8=EE SUPERSCRIPT 1 */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_UTF8_IS_START),
+/* 0xDB U+FB I8=EF u with '^' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_START),
+/* 0xDC U+FC I8=F0 u with diaeresis */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_START),
+/* 0xDD U+F9 I8=F1 u with grave */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_START)|(1U<<_CC_UTF8_START_BYTE_IS_FOR_AT_LEAST_SURROGATE),
+/* 0xDE U+FA I8=F2 u with acute */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_START)|(1U<<_CC_UTF8_START_BYTE_IS_FOR_AT_LEAST_SURROGATE),
+/* 0xDF U+FF I8=F3 y with diaeresis */ (1U<<_CC_NONLATIN1_SIMPLE_FOLD)|(1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_LOWER)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_START)|(1U<<_CC_UTF8_START_BYTE_IS_FOR_AT_LEAST_SURROGATE),
+/* 0xE0 U+5C '\' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA),
+/* 0xE1 U+F7 I8=F4 DIVISION */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_QUOTEMETA)|(1U<<_CC_UTF8_IS_START)|(1U<<_CC_UTF8_START_BYTE_IS_FOR_AT_LEAST_SURROGATE),
+/* 0xE2 U+53 'S' */ (1U<<_CC_NONLATIN1_SIMPLE_FOLD)|(1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_NON_FINAL_FOLD)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xE3 U+54 'T' */ (1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_NON_FINAL_FOLD)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xE4 U+55 'U' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xE5 U+56 'V' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xE6 U+57 'W' */ (1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_NON_FINAL_FOLD)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xE7 U+58 'X' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xE8 U+59 'Y' */ (1U<<_CC_NONLATIN1_FOLD)|(1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_NON_FINAL_FOLD)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xE9 U+5A 'Z' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_ASCII)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD),
+/* 0xEA U+B2 I8=F5 SUPERSCRIPT 2 */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_UTF8_IS_START)|(1U<<_CC_UTF8_START_BYTE_IS_FOR_AT_LEAST_SURROGATE),
+/* 0xEB U+D4 I8=F6 O with '^' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_START)|(1U<<_CC_UTF8_START_BYTE_IS_FOR_AT_LEAST_SURROGATE),
+/* 0xEC U+D6 I8=F7 O with DIAERESIS */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_START)|(1U<<_CC_UTF8_START_BYTE_IS_FOR_AT_LEAST_SURROGATE),
+/* 0xED U+D2 I8=F8 O with GRAVE */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_START)|(1U<<_CC_UTF8_START_BYTE_IS_FOR_AT_LEAST_SURROGATE),
+/* 0xEE U+D3 I8=F9 O with ACUTE */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_START)|(1U<<_CC_UTF8_START_BYTE_IS_FOR_AT_LEAST_SURROGATE),
+/* 0xEF U+D5 I8=FA O with '~' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_START)|(1U<<_CC_UTF8_START_BYTE_IS_FOR_AT_LEAST_SURROGATE),
+/* 0xF0 U+30 '0' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ASCII)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_DIGIT)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT),
+/* 0xF1 U+31 '1' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ASCII)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_DIGIT)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT),
+/* 0xF2 U+32 '2' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ASCII)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_DIGIT)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT),
+/* 0xF3 U+33 '3' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ASCII)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_DIGIT)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT),
+/* 0xF4 U+34 '4' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ASCII)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_DIGIT)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT),
+/* 0xF5 U+35 '5' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ASCII)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_DIGIT)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT),
+/* 0xF6 U+36 '6' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ASCII)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_DIGIT)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT),
+/* 0xF7 U+37 '7' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ASCII)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_DIGIT)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT),
+/* 0xF8 U+38 '8' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ASCII)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_DIGIT)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT),
+/* 0xF9 U+39 '9' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ASCII)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_DIGIT)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT),
+/* 0xFA U+B3 I8=FB SUPERSCRIPT 3 */ (1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_UTF8_IS_START)|(1U<<_CC_UTF8_START_BYTE_IS_FOR_AT_LEAST_SURROGATE),
+/* 0xFB U+DB I8=FC U with '^' */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_START)|(1U<<_CC_UTF8_START_BYTE_IS_FOR_AT_LEAST_SURROGATE),
+/* 0xFC U+DC I8=FD U with DIAERESIS */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_START)|(1U<<_CC_UTF8_START_BYTE_IS_FOR_AT_LEAST_SURROGATE),
+/* 0xFD U+D9 I8=FE U with GRAVE */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_START)|(1U<<_CC_UTF8_START_BYTE_IS_FOR_AT_LEAST_SURROGATE),
+/* 0xFE U+DA I8=FF U with ACUTE */ (1U<<_CC_ALPHANUMERIC)|(1U<<_CC_ALPHA)|(1U<<_CC_CASED)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_IDFIRST)|(1U<<_CC_PRINT)|(1U<<_CC_UPPER)|(1U<<_CC_WORDCHAR)|(1U<<_CC_IS_IN_SOME_FOLD)|(1U<<_CC_UTF8_IS_START)|(1U<<_CC_UTF8_START_BYTE_IS_FOR_AT_LEAST_SURROGATE),
+/* 0xFF U+9F APC */ (1U<<_CC_CNTRL)|(1U<<_CC_QUOTEMETA)
+
+#endif	/* EBCDIC 037 */
+
+/* ex: set ro: */
diff --git a/lib/5.24.1/x86_64-linux/CORE/libperl.so b/lib/5.24.1/x86_64-linux/CORE/libperl.so
new file mode 100755
index 00000000..5dc47873
Binary files /dev/null and b/lib/5.24.1/x86_64-linux/CORE/libperl.so differ
diff --git a/lib/5.24.1/x86_64-linux/CORE/malloc_ctl.h b/lib/5.24.1/x86_64-linux/CORE/malloc_ctl.h
new file mode 100644
index 00000000..d7463728
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/malloc_ctl.h
@@ -0,0 +1,62 @@
+#ifndef MALLOC_CTL_H
+#  define MALLOC_CTL_H
+
+struct perl_mstats {
+    UV *nfree;
+    UV *ntotal;
+    IV topbucket, topbucket_ev, topbucket_odd, totfree, total, total_chain;
+    IV total_sbrk, sbrks, sbrk_good, sbrk_slack, start_slack, sbrked_remains;
+    IV minbucket;
+    /* Level 1 info */
+    UV *bucket_mem_size;
+    UV *bucket_available_size;
+    UV nbuckets;
+};
+typedef struct perl_mstats perl_mstats_t;
+
+PERL_CALLCONV Malloc_t Perl_malloc (MEM_SIZE nbytes);
+PERL_CALLCONV Malloc_t Perl_calloc (MEM_SIZE elements, MEM_SIZE size);
+PERL_CALLCONV Malloc_t Perl_realloc (Malloc_t where, MEM_SIZE nbytes);
+/* 'mfree' rather than 'free', since there is already a 'perl_free'
+ * that causes clashes with case-insensitive linkers */
+PERL_CALLCONV Free_t   Perl_mfree (Malloc_t where);
+
+#ifndef NO_MALLOC_DYNAMIC_CFG
+
+/* IV configuration data */
+enum {
+  MallocCfg_FIRST_SBRK,
+  MallocCfg_MIN_SBRK,
+  MallocCfg_MIN_SBRK_FRAC1000,
+  MallocCfg_SBRK_ALLOW_FAILURES,
+  MallocCfg_SBRK_FAILURE_PRICE,
+  MallocCfg_sbrk_goodness,
+
+  MallocCfg_filldead,
+  MallocCfg_fillalive,
+  MallocCfg_fillcheck,
+
+  MallocCfg_skip_cfg_env,
+  MallocCfg_cfg_env_read,
+
+  MallocCfg_emergency_buffer_size,
+  MallocCfg_emergency_buffer_last_req,
+
+  MallocCfg_emergency_buffer_prepared_size,
+
+  MallocCfg_last
+};
+/* char* configuration data */
+enum {
+  MallocCfgP_emergency_buffer,
+  MallocCfgP_emergency_buffer_prepared,
+  MallocCfgP_last
+};
+START_EXTERN_C
+extern IV *MallocCfg_ptr;
+extern char **MallocCfgP_ptr;
+END_EXTERN_C
+
+#endif
+
+#endif
diff --git a/lib/5.24.1/x86_64-linux/CORE/metaconfig.h b/lib/5.24.1/x86_64-linux/CORE/metaconfig.h
new file mode 100644
index 00000000..84580f59
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/metaconfig.h
@@ -0,0 +1,43 @@
+/* This is a placeholder file for symbols that should be exported
+ * into config_h.SH and Porting/Glossary. See also metaconfig.SH
+ *
+ * First version was created from the part in handy.h
+ * H.Merijn Brand 21 Dec 2010 (Tux)
+ *
+ * Mentioned variables are forced to be included into config_h.SH
+ * as they are only included if meta finds them referenced. That
+ * implies that noone can use them unless they are available and
+ * they won't be available unless used. When new symbols are probed
+ * in Configure, this is the way to force them into availability.
+ *
+ * BOOTSTRAP_CHARSET
+ * DOUBLEKIND
+ * HAS_ACOSH
+ * HAS_ASCTIME64
+ * HAS_CTIME64
+ * HAS_DIFFTIME64
+ * HAS_DLADDR
+ * HAS_FEGETROUND
+ * HAS_FPCLASSIFY
+ * HAS_FREELOCALE
+ * HAS_GMTIME64
+ * HAS_ISFINITEL
+ * HAS_ISINFL
+ * HAS_ISLESS
+ * HAS_J0
+ * HAS_LOCALTIME64
+ * HAS_MEMMEM
+ * HAS_MKTIME64
+ * HAS_NEWLOCALE
+ * HAS_PRCTL
+ * HAS_PSEUDOFORK
+ * HAS_TIMEGM
+ * HAS_USELOCALE
+ * I16SIZE
+ * I64SIZE
+ * I8SIZE
+ * LOCALTIME_R_NEEDS_TZSET
+ * LONG_DOUBLEKIND
+ * U8SIZE
+ * USE_CBACKTRACE
+ */
diff --git a/lib/5.24.1/x86_64-linux/CORE/mg.h b/lib/5.24.1/x86_64-linux/CORE/mg.h
new file mode 100644
index 00000000..034fd7ea
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/mg.h
@@ -0,0 +1,80 @@
+/*    mg.h
+ *
+ *    Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1999,
+ *    2000, 2002, 2005, 2006, 2007, 2008 by Larry Wall and others
+ *
+ *    You may distribute under the terms of either the GNU General Public
+ *    License or the Artistic License, as specified in the README file.
+ *
+ */
+
+struct mgvtbl {
+    int		(*svt_get)	(pTHX_ SV *sv, MAGIC* mg);
+    int		(*svt_set)	(pTHX_ SV *sv, MAGIC* mg);
+    U32		(*svt_len)	(pTHX_ SV *sv, MAGIC* mg);
+    int		(*svt_clear)(pTHX_ SV *sv, MAGIC* mg);
+    int		(*svt_free)	(pTHX_ SV *sv, MAGIC* mg);
+    int		(*svt_copy)	(pTHX_ SV *sv, MAGIC* mg,
+    					SV *nsv, const char *name, I32 namlen);
+    int		(*svt_dup)	(pTHX_ MAGIC *mg, CLONE_PARAMS *param);
+    int		(*svt_local)(pTHX_ SV *nsv, MAGIC *mg);
+};
+
+struct magic {
+    MAGIC*	mg_moremagic;
+    MGVTBL*	mg_virtual;	/* pointer to magic functions */
+    U16		mg_private;
+    char	mg_type;
+    U8		mg_flags;
+    SSize_t	mg_len;
+    SV*		mg_obj;
+    char*	mg_ptr;
+};
+
+#define MGf_TAINTEDDIR 1        /* PERL_MAGIC_envelem only */
+#define MGf_MINMATCH   1        /* PERL_MAGIC_regex_global only */
+#define MGf_REQUIRE_GV 1        /* PERL_MAGIC_checkcall only */
+#define MGf_REFCOUNTED 2
+#define MGf_GSKIP      4	/* skip further GETs until after next SET */
+#define MGf_COPY       8	/* has an svt_copy  MGVTBL entry */
+#define MGf_DUP     0x10 	/* has an svt_dup   MGVTBL entry */
+#define MGf_LOCAL   0x20	/* has an svt_local MGVTBL entry */
+#define MGf_BYTES   0x40        /* PERL_MAGIC_regex_global only */
+#define MGf_PERSIST    0x80     /* PERL_MAGIC_lvref only */
+
+#define MgTAINTEDDIR(mg)	(mg->mg_flags & MGf_TAINTEDDIR)
+#define MgTAINTEDDIR_on(mg)	(mg->mg_flags |= MGf_TAINTEDDIR)
+#define MgTAINTEDDIR_off(mg)	(mg->mg_flags &= ~MGf_TAINTEDDIR)
+
+#define MgPV(mg,lp)		((((int)(lp = (mg)->mg_len)) == HEf_SVKEY) ?   \
+				 SvPV(MUTABLE_SV((mg)->mg_ptr),lp) :	\
+				 (mg)->mg_ptr)
+#define MgPV_const(mg,lp)	((((int)(lp = (mg)->mg_len)) == HEf_SVKEY) ? \
+				 SvPV_const(MUTABLE_SV((mg)->mg_ptr),lp) :   \
+				 (const char*)(mg)->mg_ptr)
+#define MgPV_nolen_const(mg)	(((((int)(mg)->mg_len)) == HEf_SVKEY) ?	\
+				 SvPV_nolen_const(MUTABLE_SV((mg)->mg_ptr)) : \
+				 (const char*)(mg)->mg_ptr)
+
+#define SvTIED_mg(sv,how) (SvRMAGICAL(sv) ? mg_find((sv),(how)) : NULL)
+#define SvTIED_obj(sv,mg) \
+    ((mg)->mg_obj ? (mg)->mg_obj : sv_2mortal(newRV(sv)))
+
+#if defined(PERL_CORE) || defined(PERL_EXT)
+# define MgBYTEPOS(mg,sv,pv,len) S_MgBYTEPOS(aTHX_ mg,sv,pv,len)
+/* assumes get-magic and stringification have already occurred */
+# define MgBYTEPOS_set(mg,sv,pv,off) (			 \
+    assert_((mg)->mg_type == PERL_MAGIC_regex_global)	  \
+    SvPOK(sv) && (!SvGMAGICAL(sv) || sv_only_taint_gmagic(sv))  \
+	? (mg)->mg_len = (off), (mg)->mg_flags |= MGf_BYTES \
+	: ((mg)->mg_len = DO_UTF8(sv)			     \
+	    ? (SSize_t)utf8_length((U8 *)(pv), (U8 *)(pv)+(off)) \
+	    : (SSize_t)(off),					  \
+	   (mg)->mg_flags &= ~MGf_BYTES))
+#endif
+
+#define whichsig(pv) whichsig_pv(pv)
+
+/*
+ * ex: set ts=8 sts=4 sw=4 et:
+ */
diff --git a/lib/5.24.1/x86_64-linux/CORE/mg_data.h b/lib/5.24.1/x86_64-linux/CORE/mg_data.h
new file mode 100644
index 00000000..e52c34bc
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/mg_data.h
@@ -0,0 +1,298 @@
+{
+    /* sv '\0' Special scalar variable */
+    want_vtbl_sv | PERL_MAGIC_READONLY_ACCEPTABLE,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    /* arylen '#' Array length ($#ary) */
+    want_vtbl_arylen | PERL_MAGIC_VALUE_MAGIC,
+    0,
+    /* rhash '%' Extra data for restricted hashes */
+    magic_vtable_max | PERL_MAGIC_VALUE_MAGIC,
+    0,
+    0,
+    0,
+    0,
+    /* debugvar '*' $DB::single, signal, trace vars */
+    want_vtbl_debugvar,
+    0,
+    0,
+    0,
+    /* pos '.' pos() lvalue */
+    want_vtbl_pos | PERL_MAGIC_VALUE_MAGIC,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    /* symtab ':' Extra data for symbol tables */
+    magic_vtable_max | PERL_MAGIC_VALUE_MAGIC,
+    0,
+    /* backref '<' For weak ref data */
+    want_vtbl_backref | PERL_MAGIC_READONLY_ACCEPTABLE | PERL_MAGIC_VALUE_MAGIC,
+    0,
+    0,
+    0,
+    /* arylen_p '@' To move arylen out of XPVAV */
+    magic_vtable_max | PERL_MAGIC_VALUE_MAGIC,
+    0,
+    /* bm 'B' Boyer-Moore (fast string search) */
+    want_vtbl_regexp | PERL_MAGIC_READONLY_ACCEPTABLE | PERL_MAGIC_VALUE_MAGIC,
+    0,
+    /* regdata 'D' Regex match position data (@+ and @- vars) */
+    want_vtbl_regdata,
+    /* env 'E' %ENV hash */
+    want_vtbl_env,
+    0,
+    0,
+    /* hints 'H' %^H hash */
+    want_vtbl_hints,
+    /* isa 'I' @ISA array */
+    want_vtbl_isa,
+    0,
+    0,
+    /* dbfile 'L' Debugger %_<filename */
+    magic_vtable_max,
+    0,
+    0,
+    0,
+    /* tied 'P' Tied array or hash */
+    want_vtbl_pack | PERL_MAGIC_VALUE_MAGIC,
+    0,
+    0,
+    /* sig 'S' %SIG hash */
+    magic_vtable_max,
+    0,
+    /* uvar 'U' Available for use by extensions */
+    want_vtbl_uvar,
+    /* vstring 'V' SV was vstring literal */
+    magic_vtable_max | PERL_MAGIC_VALUE_MAGIC,
+    0,
+    0,
+    0,
+    0,
+    0,
+    /* lvref '\' Lvalue reference constructor */
+    want_vtbl_lvref,
+    /* checkcall ']' Inlining/mutation of call to this CV */
+    want_vtbl_checkcall | PERL_MAGIC_VALUE_MAGIC,
+    0,
+    0,
+    0,
+    0,
+    0,
+    /* overload_table 'c' Holds overload table (AMT) on stash */
+    want_vtbl_ovrld,
+    /* regdatum 'd' Regex match position data element */
+    want_vtbl_regdatum,
+    /* envelem 'e' %ENV hash element */
+    want_vtbl_envelem,
+    /* fm 'f' Formline ('compiled' format) */
+    want_vtbl_regexp | PERL_MAGIC_READONLY_ACCEPTABLE | PERL_MAGIC_VALUE_MAGIC,
+    /* regex_global 'g' m//g target */
+    want_vtbl_mglob | PERL_MAGIC_READONLY_ACCEPTABLE | PERL_MAGIC_VALUE_MAGIC,
+    /* hintselem 'h' %^H hash element */
+    want_vtbl_hintselem,
+    /* isaelem 'i' @ISA array element */
+    want_vtbl_isaelem,
+    0,
+    /* nkeys 'k' scalar(keys()) lvalue */
+    want_vtbl_nkeys | PERL_MAGIC_VALUE_MAGIC,
+    /* dbline 'l' Debugger %_<filename element */
+    want_vtbl_dbline,
+    0,
+    0,
+    /* collxfrm 'o' Locale transformation */
+    want_vtbl_collxfrm | PERL_MAGIC_VALUE_MAGIC,
+    /* tiedelem 'p' Tied array or hash element */
+    want_vtbl_packelem,
+    /* tiedscalar 'q' Tied scalar or handle */
+    want_vtbl_packelem,
+    /* qr 'r' Precompiled qr// regex */
+    want_vtbl_regexp | PERL_MAGIC_READONLY_ACCEPTABLE | PERL_MAGIC_VALUE_MAGIC,
+    /* sigelem 's' %SIG hash element */
+    want_vtbl_sigelem,
+    /* taint 't' Taintedness */
+    want_vtbl_taint | PERL_MAGIC_VALUE_MAGIC,
+    0,
+    /* vec 'v' vec() lvalue */
+    want_vtbl_vec | PERL_MAGIC_VALUE_MAGIC,
+    /* utf8 'w' Cached UTF-8 information */
+    want_vtbl_utf8 | PERL_MAGIC_VALUE_MAGIC,
+    /* substr 'x' substr() lvalue */
+    want_vtbl_substr | PERL_MAGIC_VALUE_MAGIC,
+    /* defelem 'y' Shadow "foreach" iterator variable / smart parameter vivification */
+    want_vtbl_defelem | PERL_MAGIC_VALUE_MAGIC,
+    0,
+    0,
+    0,
+    0,
+    /* ext '~' Available for use by extensions */
+    magic_vtable_max | PERL_MAGIC_READONLY_ACCEPTABLE,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0,
+    0
+}
diff --git a/lib/5.24.1/x86_64-linux/CORE/mg_raw.h b/lib/5.24.1/x86_64-linux/CORE/mg_raw.h
new file mode 100644
index 00000000..b3e25d64
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/mg_raw.h
@@ -0,0 +1,90 @@
+/* -*- buffer-read-only: t -*-
+ *
+ *    mg_raw.h
+ * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+ * This file is built by regen/mg_vtable.pl.
+ * Any changes made here will be lost!
+ */
+
+    { '\0', "want_vtbl_sv | PERL_MAGIC_READONLY_ACCEPTABLE",
+      "/* sv '\\0' Special scalar variable */" },
+    { '#', "want_vtbl_arylen | PERL_MAGIC_VALUE_MAGIC",
+      "/* arylen '#' Array length ($#ary) */" },
+    { '%', "magic_vtable_max | PERL_MAGIC_VALUE_MAGIC",
+      "/* rhash '%' Extra data for restricted hashes */" },
+    { '*', "want_vtbl_debugvar",
+      "/* debugvar '*' $DB::single, signal, trace vars */" },
+    { '.', "want_vtbl_pos | PERL_MAGIC_VALUE_MAGIC",
+      "/* pos '.' pos() lvalue */" },
+    { ':', "magic_vtable_max | PERL_MAGIC_VALUE_MAGIC",
+      "/* symtab ':' Extra data for symbol tables */" },
+    { '<', "want_vtbl_backref | PERL_MAGIC_READONLY_ACCEPTABLE | PERL_MAGIC_VALUE_MAGIC",
+      "/* backref '<' For weak ref data */" },
+    { '@', "magic_vtable_max | PERL_MAGIC_VALUE_MAGIC",
+      "/* arylen_p '@' To move arylen out of XPVAV */" },
+    { 'B', "want_vtbl_regexp | PERL_MAGIC_READONLY_ACCEPTABLE | PERL_MAGIC_VALUE_MAGIC",
+      "/* bm 'B' Boyer-Moore (fast string search) */" },
+    { 'c', "want_vtbl_ovrld",
+      "/* overload_table 'c' Holds overload table (AMT) on stash */" },
+    { 'D', "want_vtbl_regdata",
+      "/* regdata 'D' Regex match position data (@+ and @- vars) */" },
+    { 'd', "want_vtbl_regdatum",
+      "/* regdatum 'd' Regex match position data element */" },
+    { 'E', "want_vtbl_env",
+      "/* env 'E' %ENV hash */" },
+    { 'e', "want_vtbl_envelem",
+      "/* envelem 'e' %ENV hash element */" },
+    { 'f', "want_vtbl_regexp | PERL_MAGIC_READONLY_ACCEPTABLE | PERL_MAGIC_VALUE_MAGIC",
+      "/* fm 'f' Formline ('compiled' format) */" },
+    { 'g', "want_vtbl_mglob | PERL_MAGIC_READONLY_ACCEPTABLE | PERL_MAGIC_VALUE_MAGIC",
+      "/* regex_global 'g' m//g target */" },
+    { 'H', "want_vtbl_hints",
+      "/* hints 'H' %^H hash */" },
+    { 'h', "want_vtbl_hintselem",
+      "/* hintselem 'h' %^H hash element */" },
+    { 'I', "want_vtbl_isa",
+      "/* isa 'I' @ISA array */" },
+    { 'i', "want_vtbl_isaelem",
+      "/* isaelem 'i' @ISA array element */" },
+    { 'k', "want_vtbl_nkeys | PERL_MAGIC_VALUE_MAGIC",
+      "/* nkeys 'k' scalar(keys()) lvalue */" },
+    { 'L', "magic_vtable_max",
+      "/* dbfile 'L' Debugger %_<filename */" },
+    { 'l', "want_vtbl_dbline",
+      "/* dbline 'l' Debugger %_<filename element */" },
+    { 'o', "want_vtbl_collxfrm | PERL_MAGIC_VALUE_MAGIC",
+      "/* collxfrm 'o' Locale transformation */" },
+    { 'P', "want_vtbl_pack | PERL_MAGIC_VALUE_MAGIC",
+      "/* tied 'P' Tied array or hash */" },
+    { 'p', "want_vtbl_packelem",
+      "/* tiedelem 'p' Tied array or hash element */" },
+    { 'q', "want_vtbl_packelem",
+      "/* tiedscalar 'q' Tied scalar or handle */" },
+    { 'r', "want_vtbl_regexp | PERL_MAGIC_READONLY_ACCEPTABLE | PERL_MAGIC_VALUE_MAGIC",
+      "/* qr 'r' Precompiled qr// regex */" },
+    { 'S', "magic_vtable_max",
+      "/* sig 'S' %SIG hash */" },
+    { 's', "want_vtbl_sigelem",
+      "/* sigelem 's' %SIG hash element */" },
+    { 't', "want_vtbl_taint | PERL_MAGIC_VALUE_MAGIC",
+      "/* taint 't' Taintedness */" },
+    { 'U', "want_vtbl_uvar",
+      "/* uvar 'U' Available for use by extensions */" },
+    { 'V', "magic_vtable_max | PERL_MAGIC_VALUE_MAGIC",
+      "/* vstring 'V' SV was vstring literal */" },
+    { 'v', "want_vtbl_vec | PERL_MAGIC_VALUE_MAGIC",
+      "/* vec 'v' vec() lvalue */" },
+    { 'w', "want_vtbl_utf8 | PERL_MAGIC_VALUE_MAGIC",
+      "/* utf8 'w' Cached UTF-8 information */" },
+    { 'x', "want_vtbl_substr | PERL_MAGIC_VALUE_MAGIC",
+      "/* substr 'x' substr() lvalue */" },
+    { 'y', "want_vtbl_defelem | PERL_MAGIC_VALUE_MAGIC",
+      "/* defelem 'y' Shadow \"foreach\" iterator variable / smart parameter vivification */" },
+    { '\\', "want_vtbl_lvref",
+      "/* lvref '\\' Lvalue reference constructor */" },
+    { ']', "want_vtbl_checkcall | PERL_MAGIC_VALUE_MAGIC",
+      "/* checkcall ']' Inlining/mutation of call to this CV */" },
+    { '~', "magic_vtable_max | PERL_MAGIC_READONLY_ACCEPTABLE",
+      "/* ext '~' Available for use by extensions */" },
+
+/* ex: set ro: */
diff --git a/lib/5.24.1/x86_64-linux/CORE/mg_vtable.h b/lib/5.24.1/x86_64-linux/CORE/mg_vtable.h
new file mode 100644
index 00000000..c71a988c
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/mg_vtable.h
@@ -0,0 +1,234 @@
+/* -*- buffer-read-only: t -*-
+ *
+ *    mg_vtable.h
+ * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+ * This file is built by regen/mg_vtable.pl.
+ * Any changes made here will be lost!
+ */
+
+/* These constants should be used in preference to raw characters
+ * when using magic. Note that some perl guts still assume
+ * certain character properties of these constants, namely that
+ * isUPPER() and toLOWER() may do useful mappings.
+ */
+
+#define PERL_MAGIC_sv             '\0' /* Special scalar variable */
+#define PERL_MAGIC_arylen         '#' /* Array length ($#ary) */
+#define PERL_MAGIC_rhash          '%' /* Extra data for restricted hashes */
+#define PERL_MAGIC_debugvar       '*' /* $DB::single, signal, trace vars */
+#define PERL_MAGIC_pos            '.' /* pos() lvalue */
+#define PERL_MAGIC_symtab         ':' /* Extra data for symbol tables */
+#define PERL_MAGIC_backref        '<' /* For weak ref data */
+#define PERL_MAGIC_arylen_p       '@' /* To move arylen out of XPVAV */
+#define PERL_MAGIC_bm             'B' /* Boyer-Moore (fast string search) */
+#define PERL_MAGIC_overload_table 'c' /* Holds overload table (AMT) on stash */
+#define PERL_MAGIC_regdata        'D' /* Regex match position data
+                                         (@+ and @- vars) */
+#define PERL_MAGIC_regdatum       'd' /* Regex match position data element */
+#define PERL_MAGIC_env            'E' /* %ENV hash */
+#define PERL_MAGIC_envelem        'e' /* %ENV hash element */
+#define PERL_MAGIC_fm             'f' /* Formline ('compiled' format) */
+#define PERL_MAGIC_regex_global   'g' /* m//g target */
+#define PERL_MAGIC_hints          'H' /* %^H hash */
+#define PERL_MAGIC_hintselem      'h' /* %^H hash element */
+#define PERL_MAGIC_isa            'I' /* @ISA array */
+#define PERL_MAGIC_isaelem        'i' /* @ISA array element */
+#define PERL_MAGIC_nkeys          'k' /* scalar(keys()) lvalue */
+#define PERL_MAGIC_dbfile         'L' /* Debugger %_<filename */
+#define PERL_MAGIC_dbline         'l' /* Debugger %_<filename element */
+#define PERL_MAGIC_shared         'N' /* Shared between threads */
+#define PERL_MAGIC_shared_scalar  'n' /* Shared between threads */
+#define PERL_MAGIC_collxfrm       'o' /* Locale transformation */
+#define PERL_MAGIC_tied           'P' /* Tied array or hash */
+#define PERL_MAGIC_tiedelem       'p' /* Tied array or hash element */
+#define PERL_MAGIC_tiedscalar     'q' /* Tied scalar or handle */
+#define PERL_MAGIC_qr             'r' /* Precompiled qr// regex */
+#define PERL_MAGIC_sig            'S' /* %SIG hash */
+#define PERL_MAGIC_sigelem        's' /* %SIG hash element */
+#define PERL_MAGIC_taint          't' /* Taintedness */
+#define PERL_MAGIC_uvar           'U' /* Available for use by extensions */
+#define PERL_MAGIC_uvar_elem      'u' /* Reserved for use by extensions */
+#define PERL_MAGIC_vstring        'V' /* SV was vstring literal */
+#define PERL_MAGIC_vec            'v' /* vec() lvalue */
+#define PERL_MAGIC_utf8           'w' /* Cached UTF-8 information */
+#define PERL_MAGIC_substr         'x' /* substr() lvalue */
+#define PERL_MAGIC_defelem        'y' /* Shadow "foreach" iterator variable /
+                                         smart parameter vivification */
+#define PERL_MAGIC_lvref          '\\' /* Lvalue reference constructor */
+#define PERL_MAGIC_checkcall      ']' /* Inlining/mutation of call to this CV */
+#define PERL_MAGIC_ext            '~' /* Available for use by extensions */
+
+enum {		/* pass one of these to get_vtbl */
+    want_vtbl_arylen,
+    want_vtbl_arylen_p,
+    want_vtbl_backref,
+    want_vtbl_checkcall,
+    want_vtbl_collxfrm,
+    want_vtbl_dbline,
+    want_vtbl_debugvar,
+    want_vtbl_defelem,
+    want_vtbl_env,
+    want_vtbl_envelem,
+    want_vtbl_hints,
+    want_vtbl_hintselem,
+    want_vtbl_isa,
+    want_vtbl_isaelem,
+    want_vtbl_lvref,
+    want_vtbl_mglob,
+    want_vtbl_nkeys,
+    want_vtbl_ovrld,
+    want_vtbl_pack,
+    want_vtbl_packelem,
+    want_vtbl_pos,
+    want_vtbl_regdata,
+    want_vtbl_regdatum,
+    want_vtbl_regexp,
+    want_vtbl_sigelem,
+    want_vtbl_substr,
+    want_vtbl_sv,
+    want_vtbl_taint,
+    want_vtbl_utf8,
+    want_vtbl_uvar,
+    want_vtbl_vec,
+    magic_vtable_max
+};
+
+#ifdef DOINIT
+EXTCONST char * const PL_magic_vtable_names[magic_vtable_max] = {
+    "arylen",
+    "arylen_p",
+    "backref",
+    "checkcall",
+    "collxfrm",
+    "dbline",
+    "debugvar",
+    "defelem",
+    "env",
+    "envelem",
+    "hints",
+    "hintselem",
+    "isa",
+    "isaelem",
+    "lvref",
+    "mglob",
+    "nkeys",
+    "ovrld",
+    "pack",
+    "packelem",
+    "pos",
+    "regdata",
+    "regdatum",
+    "regexp",
+    "sigelem",
+    "substr",
+    "sv",
+    "taint",
+    "utf8",
+    "uvar",
+    "vec"
+};
+#else
+EXTCONST char * const PL_magic_vtable_names[magic_vtable_max];
+#endif
+
+/* These all need to be 0, not NULL, as NULL can be (void*)0, which is a
+ * pointer to data, whereas we're assigning pointers to functions, which are
+ * not the same beast. ANSI doesn't allow the assignment from one to the other.
+ * (although most, but not all, compilers are prepared to do it)
+ */
+
+/* order is:
+    get
+    set
+    len
+    clear
+    free
+    copy
+    dup
+    local
+*/
+
+#ifdef DOINIT
+EXT_MGVTBL PL_magic_vtables[magic_vtable_max] = {
+  { (int (*)(pTHX_ SV *, MAGIC *))Perl_magic_getarylen, Perl_magic_setarylen, 0, 0, 0, 0, 0, 0 },
+  { 0, 0, 0, Perl_magic_cleararylen_p, Perl_magic_freearylen_p, 0, 0, 0 },
+  { 0, 0, 0, 0, Perl_magic_killbackrefs, 0, 0, 0 },
+  { 0, 0, 0, 0, 0, Perl_magic_copycallchecker, 0, 0 },
+#ifdef USE_LOCALE_COLLATE
+  { 0, Perl_magic_setcollxfrm, 0, 0, 0, 0, 0, 0 },
+#else
+  { 0, 0, 0, 0, 0, 0, 0, 0 },
+#endif
+  { 0, Perl_magic_setdbline, 0, 0, 0, 0, 0, 0 },
+  { Perl_magic_getdebugvar, Perl_magic_setdebugvar, 0, 0, 0, 0, 0, 0 },
+  { Perl_magic_getdefelem, Perl_magic_setdefelem, 0, 0, 0, 0, 0, 0 },
+  { 0, Perl_magic_set_all_env, 0, Perl_magic_clear_all_env, 0, 0, 0, 0 },
+  { 0, Perl_magic_setenv, 0, Perl_magic_clearenv, 0, 0, 0, 0 },
+  { 0, 0, 0, Perl_magic_clearhints, 0, 0, 0, 0 },
+  { 0, Perl_magic_sethint, 0, Perl_magic_clearhint, 0, 0, 0, 0 },
+  { 0, Perl_magic_setisa, 0, Perl_magic_clearisa, 0, 0, 0, 0 },
+  { 0, Perl_magic_setisa, 0, 0, 0, 0, 0, 0 },
+  { 0, Perl_magic_setlvref, 0, 0, 0, 0, 0, 0 },
+  { 0, Perl_magic_setmglob, 0, 0, 0, 0, 0, 0 },
+  { Perl_magic_getnkeys, Perl_magic_setnkeys, 0, 0, 0, 0, 0, 0 },
+  { 0, 0, 0, 0, Perl_magic_freeovrld, 0, 0, 0 },
+  { 0, 0, Perl_magic_sizepack, Perl_magic_wipepack, 0, 0, 0, 0 },
+  { Perl_magic_getpack, Perl_magic_setpack, 0, Perl_magic_clearpack, 0, 0, 0, 0 },
+  { Perl_magic_getpos, Perl_magic_setpos, 0, 0, 0, 0, 0, 0 },
+  { 0, 0, Perl_magic_regdata_cnt, 0, 0, 0, 0, 0 },
+  { Perl_magic_regdatum_get, Perl_magic_regdatum_set, 0, 0, 0, 0, 0, 0 },
+  { 0, Perl_magic_setregexp, 0, 0, 0, 0, 0, 0 },
+#ifndef PERL_MICRO
+  { Perl_magic_getsig, Perl_magic_setsig, 0, Perl_magic_clearsig, 0, 0, 0, 0 },
+#else
+  { 0, 0, 0, 0, 0, 0, 0, 0 },
+#endif
+  { Perl_magic_getsubstr, Perl_magic_setsubstr, 0, 0, 0, 0, 0, 0 },
+  { Perl_magic_get, Perl_magic_set, 0, 0, 0, 0, 0, 0 },
+  { Perl_magic_gettaint, Perl_magic_settaint, 0, 0, 0, 0, 0, 0 },
+  { 0, Perl_magic_setutf8, 0, 0, 0, 0, 0, 0 },
+  { Perl_magic_getuvar, Perl_magic_setuvar, 0, 0, 0, 0, 0, 0 },
+  { Perl_magic_getvec, Perl_magic_setvec, 0, 0, 0, 0, 0, 0 }
+};
+#else
+EXT_MGVTBL PL_magic_vtables[magic_vtable_max];
+#endif
+
+#define want_vtbl_bm want_vtbl_regexp
+#define want_vtbl_fm want_vtbl_regexp
+
+#define PL_vtbl_arylen PL_magic_vtables[want_vtbl_arylen]
+#define PL_vtbl_arylen_p PL_magic_vtables[want_vtbl_arylen_p]
+#define PL_vtbl_backref PL_magic_vtables[want_vtbl_backref]
+#define PL_vtbl_bm PL_magic_vtables[want_vtbl_bm]
+#define PL_vtbl_checkcall PL_magic_vtables[want_vtbl_checkcall]
+#define PL_vtbl_collxfrm PL_magic_vtables[want_vtbl_collxfrm]
+#define PL_vtbl_dbline PL_magic_vtables[want_vtbl_dbline]
+#define PL_vtbl_debugvar PL_magic_vtables[want_vtbl_debugvar]
+#define PL_vtbl_defelem PL_magic_vtables[want_vtbl_defelem]
+#define PL_vtbl_env PL_magic_vtables[want_vtbl_env]
+#define PL_vtbl_envelem PL_magic_vtables[want_vtbl_envelem]
+#define PL_vtbl_fm PL_magic_vtables[want_vtbl_fm]
+#define PL_vtbl_hints PL_magic_vtables[want_vtbl_hints]
+#define PL_vtbl_hintselem PL_magic_vtables[want_vtbl_hintselem]
+#define PL_vtbl_isa PL_magic_vtables[want_vtbl_isa]
+#define PL_vtbl_isaelem PL_magic_vtables[want_vtbl_isaelem]
+#define PL_vtbl_lvref PL_magic_vtables[want_vtbl_lvref]
+#define PL_vtbl_mglob PL_magic_vtables[want_vtbl_mglob]
+#define PL_vtbl_nkeys PL_magic_vtables[want_vtbl_nkeys]
+#define PL_vtbl_ovrld PL_magic_vtables[want_vtbl_ovrld]
+#define PL_vtbl_pack PL_magic_vtables[want_vtbl_pack]
+#define PL_vtbl_packelem PL_magic_vtables[want_vtbl_packelem]
+#define PL_vtbl_pos PL_magic_vtables[want_vtbl_pos]
+#define PL_vtbl_regdata PL_magic_vtables[want_vtbl_regdata]
+#define PL_vtbl_regdatum PL_magic_vtables[want_vtbl_regdatum]
+#define PL_vtbl_regexp PL_magic_vtables[want_vtbl_regexp]
+#define PL_vtbl_sigelem PL_magic_vtables[want_vtbl_sigelem]
+#define PL_vtbl_substr PL_magic_vtables[want_vtbl_substr]
+#define PL_vtbl_sv PL_magic_vtables[want_vtbl_sv]
+#define PL_vtbl_taint PL_magic_vtables[want_vtbl_taint]
+#define PL_vtbl_utf8 PL_magic_vtables[want_vtbl_utf8]
+#define PL_vtbl_uvar PL_magic_vtables[want_vtbl_uvar]
+#define PL_vtbl_vec PL_magic_vtables[want_vtbl_vec]
+
+/* ex: set ro: */
diff --git a/lib/5.24.1/x86_64-linux/CORE/mydtrace.h b/lib/5.24.1/x86_64-linux/CORE/mydtrace.h
new file mode 100644
index 00000000..6c66a085
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/mydtrace.h
@@ -0,0 +1,54 @@
+/*    mydtrace.h
+ *
+ *    Copyright (C) 2008, 2010, 2011 by Larry Wall and others
+ *
+ *    You may distribute under the terms of either the GNU General Public
+ *    License or the Artistic License, as specified in the README file.
+ *
+ *	Provides macros that wrap the various DTrace probes we use. We add
+ *	an extra level of wrapping to encapsulate the _ENABLED tests.
+ */
+
+#if defined(USE_DTRACE) && defined(PERL_CORE)
+
+#  include "perldtrace.h"
+
+#  define PERL_DTRACE_PROBE_ENTRY(cv)               \
+    if (PERL_SUB_ENTRY_ENABLED())                   \
+        Perl_dtrace_probe_call(aTHX_ cv, TRUE);
+
+#  define PERL_DTRACE_PROBE_RETURN(cv)              \
+    if (PERL_SUB_ENTRY_ENABLED())                   \
+        Perl_dtrace_probe_call(aTHX_ cv, FALSE);
+
+#  define PERL_DTRACE_PROBE_FILE_LOADING(name)      \
+    if (PERL_SUB_ENTRY_ENABLED())                   \
+        Perl_dtrace_probe_load(aTHX_ name, TRUE);
+
+#  define PERL_DTRACE_PROBE_FILE_LOADED(name)       \
+    if (PERL_SUB_ENTRY_ENABLED())                   \
+        Perl_dtrace_probe_load(aTHX_ name, FALSE);
+
+#  define PERL_DTRACE_PROBE_OP(op)                  \
+    if (PERL_OP_ENTRY_ENABLED())                    \
+        Perl_dtrace_probe_op(aTHX_ op);
+
+#  define PERL_DTRACE_PROBE_PHASE(phase)            \
+    if (PERL_OP_ENTRY_ENABLED())                    \
+        Perl_dtrace_probe_phase(aTHX_ phase);
+
+#else
+
+/* NOPs */
+#  define PERL_DTRACE_PROBE_ENTRY(cv)
+#  define PERL_DTRACE_PROBE_RETURN(cv)
+#  define PERL_DTRACE_PROBE_FILE_LOADING(cv)
+#  define PERL_DTRACE_PROBE_FILE_LOADED(cv)
+#  define PERL_DTRACE_PROBE_OP(op)
+#  define PERL_DTRACE_PROBE_PHASE(phase)
+
+#endif
+
+/*
+ * ex: set ts=8 sts=4 sw=4 et:
+ */
diff --git a/lib/5.24.1/x86_64-linux/CORE/nostdio.h b/lib/5.24.1/x86_64-linux/CORE/nostdio.h
new file mode 100644
index 00000000..64276aa0
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/nostdio.h
@@ -0,0 +1,134 @@
+/*    nostdio.h
+ *
+ *    Copyright (C) 1996, 2000, 2001, 2005, by Larry Wall and others
+ *
+ *    You may distribute under the terms of either the GNU General Public
+ *    License or the Artistic License, as specified in the README file.
+ *
+ */
+
+/*
+ * Strong denial of stdio - make all stdio calls (we can think of) errors
+ */
+/* This is a 1st attempt to stop other include files pulling
+   in real <stdio.h>.
+   A more ambitious set of possible symbols can be found in
+   sfio.h (inside an _cplusplus gard).
+   It is completely pointless as we have already included it ourselves.
+*/
+
+#if !defined(_STDIO_H) && !defined(FILE) && !defined(_STDIO_INCLUDED) && !defined(__STDIO_LOADED)
+#define _STDIO_H
+#define _STDIO_INCLUDED
+#define __STDIO_LOADED
+struct _FILE;
+#define FILE struct _FILE
+#endif
+
+#ifndef EBCDIC
+
+#define _CANNOT "CANNOT"
+
+#undef clearerr
+#undef fclose
+#undef fdopen
+#undef feof
+#undef ferror
+#undef fflush
+#undef fgetc
+#undef fgetpos
+#undef fgets
+#undef fileno
+#undef flockfile
+#undef fopen
+#undef fprintf
+#undef fputc
+#undef fputs
+#undef fread
+#undef freopen
+#undef fscanf
+#undef fseek
+#undef fsetpos
+#undef ftell
+#undef ftrylockfile
+#undef funlockfile
+#undef fwrite
+#undef getc
+#undef getc_unlocked
+#undef getw
+#undef pclose
+#undef popen
+#undef putc
+#undef putc_unlocked
+#undef putw
+#undef rewind
+#undef setbuf
+#undef setvbuf
+#undef stderr
+#undef stdin
+#undef stdout
+#undef tmpfile
+#undef ungetc
+#undef vfprintf
+#undef printf
+
+#define fprintf    _CANNOT _fprintf_
+#define printf     _CANNOT _printf_
+#define stdin      _CANNOT _stdin_
+#define stdout     _CANNOT _stdout_
+#define stderr     _CANNOT _stderr_
+#ifndef OS2
+#define tmpfile()  _CANNOT _tmpfile_
+#endif
+#define fclose(f)  _CANNOT _fclose_
+#define fflush(f)  _CANNOT _fflush_
+#define fopen(p,m)  _CANNOT _fopen_
+#define freopen(p,m,f)  _CANNOT _freopen_
+#define setbuf(f,b)  _CANNOT _setbuf_
+#define setvbuf(f,b,x,s)  _CANNOT _setvbuf_
+#define fscanf  _CANNOT _fscanf_
+#define vfprintf(f,fmt,a)  _CANNOT _vfprintf_
+#define fgetc(f)  _CANNOT _fgetc_
+#define fgets(s,n,f)  _CANNOT _fgets_
+#define fputc(c,f)  _CANNOT _fputc_
+#define fputs(s,f)  _CANNOT _fputs_
+#define getc(f)  _CANNOT _getc_
+#define putc(c,f)  _CANNOT _putc_
+#ifndef OS2
+#define ungetc(c,f)  _CANNOT _ungetc_
+#endif
+#define fread(b,s,c,f)  _CANNOT _fread_
+#define fwrite(b,s,c,f)  _CANNOT _fwrite_
+#define fgetpos(f,p)  _CANNOT _fgetpos_
+#define fseek(f,o,w)  _CANNOT _fseek_
+#define fsetpos(f,p)  _CANNOT _fsetpos_
+#define ftell(f)  _CANNOT _ftell_
+#define rewind(f)  _CANNOT _rewind_
+#define clearerr(f)  _CANNOT _clearerr_
+#define feof(f)  _CANNOT _feof_
+#define ferror(f)  _CANNOT _ferror_
+#define __filbuf(f)  _CANNOT __filbuf_
+#define __flsbuf(c,f)  _CANNOT __flsbuf_
+#define _filbuf(f)  _CANNOT _filbuf_
+#define _flsbuf(c,f)  _CANNOT _flsbuf_
+#define fdopen(fd,p)  _CANNOT _fdopen_
+#define fileno(f)  _CANNOT _fileno_
+#if defined(SFIO_VERSION) && SFIO_VERSION < 20000101L
+#define flockfile(f)  _CANNOT _flockfile_
+#define ftrylockfile(f)  _CANNOT _ftrylockfile_
+#define funlockfile(f)  _CANNOT _funlockfile_
+#endif
+#define getc_unlocked(f)  _CANNOT _getc_unlocked_
+#define putc_unlocked(c,f)  _CANNOT _putc_unlocked_
+#define popen(c,m)  _CANNOT _popen_
+#define getw(f)  _CANNOT _getw_
+#define putw(v,f)  _CANNOT _putw_
+#ifndef OS2
+#define pclose(f)  _CANNOT _pclose_
+#endif
+
+#endif /*not define EBCDIC */
+
+/*
+ * ex: set ts=8 sts=4 sw=4 et:
+ */
diff --git a/lib/5.24.1/x86_64-linux/CORE/op.h b/lib/5.24.1/x86_64-linux/CORE/op.h
new file mode 100644
index 00000000..3ded4bb3
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/op.h
@@ -0,0 +1,1088 @@
+/*    op.h
+ *
+ *    Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000,
+ *    2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008 by Larry Wall and others
+ *
+ *    You may distribute under the terms of either the GNU General Public
+ *    License or the Artistic License, as specified in the README file.
+ *
+ */
+
+/*
+ * The fields of BASEOP are:
+ *	op_next		Pointer to next ppcode to execute after this one.
+ *			(Top level pre-grafted op points to first op,
+ *			but this is replaced when op is grafted in, when
+ *			this op will point to the real next op, and the new
+ *			parent takes over role of remembering starting op.)
+ *	op_ppaddr	Pointer to current ppcode's function.
+ *	op_type		The type of the operation.
+ *	op_opt		Whether or not the op has been optimised by the
+ *			peephole optimiser.
+ *	op_slabbed	allocated via opslab
+ *	op_static	tell op_free() to skip PerlMemShared_free(), when
+ *                      !op_slabbed.
+ *	op_savefree	on savestack via SAVEFREEOP
+ *	op_folded	Result/remainder of a constant fold operation.
+ *	op_moresib	this op is is not the last sibling
+ *	op_spare	One spare bit
+ *	op_flags	Flags common to all operations.  See OPf_* below.
+ *	op_private	Flags peculiar to a particular operation (BUT,
+ *			by default, set to the number of children until
+ *			the operation is privatized by a check routine,
+ *			which may or may not check number of children).
+ */
+#include "op_reg_common.h"
+
+#define OPCODE U16
+
+typedef PERL_BITFIELD16 Optype;
+
+/* this field now either points to the next sibling or to the parent,
+ * depending on op_moresib. So rename it from op_sibling to op_sibparent.
+ */
+#ifdef PERL_OP_PARENT
+#  define _OP_SIBPARENT_FIELDNAME op_sibparent
+#else
+#  define _OP_SIBPARENT_FIELDNAME op_sibling
+#endif
+
+#ifdef BASEOP_DEFINITION
+#define BASEOP BASEOP_DEFINITION
+#else
+#define BASEOP				\
+    OP*		op_next;		\
+    OP*		_OP_SIBPARENT_FIELDNAME;\
+    OP*		(*op_ppaddr)(pTHX);	\
+    PADOFFSET	op_targ;		\
+    PERL_BITFIELD16 op_type:9;		\
+    PERL_BITFIELD16 op_opt:1;		\
+    PERL_BITFIELD16 op_slabbed:1;	\
+    PERL_BITFIELD16 op_savefree:1;	\
+    PERL_BITFIELD16 op_static:1;	\
+    PERL_BITFIELD16 op_folded:1;	\
+    PERL_BITFIELD16 op_moresib:1;       \
+    PERL_BITFIELD16 op_spare:1;		\
+    U8		op_flags;		\
+    U8		op_private;
+#endif
+
+/* If op_type:9 is changed to :10, also change cx_pusheval()
+   Also, if the type of op_type is ever changed (e.g. to PERL_BITFIELD32)
+   then all the other bit-fields before/after it should change their
+   types too to let VC pack them into the same 4 byte integer.*/
+
+/* for efficiency, requires OPf_WANT_VOID == G_VOID etc */
+#define OP_GIMME(op,dfl) \
+	(((op)->op_flags & OPf_WANT) ? ((op)->op_flags & OPf_WANT) : dfl)
+
+#define OP_GIMME_REVERSE(flags)	((flags) & G_WANT)
+
+/*
+=head1 "Gimme" Values
+
+=for apidoc Amn|U32|GIMME_V
+The XSUB-writer's equivalent to Perl's C<wantarray>.  Returns C<G_VOID>,
+C<G_SCALAR> or C<G_ARRAY> for void, scalar or list context,
+respectively.  See L<perlcall> for a usage example.
+
+=for apidoc Amn|U32|GIMME
+A backward-compatible version of C<GIMME_V> which can only return
+C<G_SCALAR> or C<G_ARRAY>; in a void context, it returns C<G_SCALAR>.
+Deprecated.  Use C<GIMME_V> instead.
+
+=cut
+*/
+
+#define GIMME_V		OP_GIMME(PL_op, block_gimme())
+
+/* Public flags */
+
+#define OPf_WANT	3	/* Mask for "want" bits: */
+#define  OPf_WANT_VOID	 1	/*   Want nothing */
+#define  OPf_WANT_SCALAR 2	/*   Want single value */
+#define  OPf_WANT_LIST	 3	/*   Want list of any length */
+#define OPf_KIDS	4	/* There is a firstborn child. */
+#define OPf_PARENS	8	/* This operator was parenthesized. */
+				/*  (Or block needs explicit scope entry.) */
+#define OPf_REF		16	/* Certified reference. */
+				/*  (Return container, not containee). */
+#define OPf_MOD		32	/* Will modify (lvalue). */
+#define OPf_STACKED	64	/* Some arg is arriving on the stack. */
+#define OPf_SPECIAL	128	/* Do something weird for this op: */
+				/*  On local LVAL, don't init local value. */
+				/*  On OP_SORT, subroutine is inlined. */
+				/*  On OP_NOT, inversion was implicit. */
+				/*  On OP_LEAVE, don't restore curpm, e.g.
+                                 *      /(...)/ while ...>;  */
+				/*  On truncate, we truncate filehandle */
+				/*  On control verbs, we saw no label */
+				/*  On flipflop, we saw ... instead of .. */
+				/*  On UNOPs, saw bare parens, e.g. eof(). */
+				/*  On OP_CHDIR, handle (or bare parens) */
+				/*  On OP_NULL, saw a "do". */
+				/*  On OP_EXISTS, treat av as av, not avhv.  */
+				/*  On OP_(ENTER|LEAVE)EVAL, don't clear $@ */
+                                /*  On pushre, rx is used as part of split, e.g. split " " */
+				/*  On regcomp, "use re 'eval'" was in scope */
+				/*  On RV2[ACGHS]V, don't create GV--in
+				    defined()*/
+				/*  On OP_DBSTATE, indicates breakpoint
+				 *    (runtime property) */
+				/*  On OP_REQUIRE, was seen as CORE::require */
+				/*  On OP_(ENTER|LEAVE)WHEN, there's
+				    no condition */
+				/*  On OP_SMARTMATCH, an implicit smartmatch */
+				/*  On OP_ANONHASH and OP_ANONLIST, create a
+				    reference to the new anon hash or array */
+				/*  On OP_HELEM, OP_MULTIDEREF and OP_HSLICE,
+                                    localization will be followed by assignment,
+                                    so do not wipe the target if it is special
+                                    (e.g. a glob or a magic SV) */
+				/*  On OP_MATCH, OP_SUBST & OP_TRANS, the
+				    operand of a logical or conditional
+				    that was optimised away, so it should
+				    not be bound via =~ */
+				/*  On OP_CONST, from a constant CV */
+				/*  On OP_GLOB, two meanings:
+				    - Before ck_glob, called as CORE::glob
+				    - After ck_glob, use Perl glob function
+			         */
+                                /*  On OP_PADRANGE, push @_ */
+                                /*  On OP_DUMP, has no label */
+                                /*  On OP_UNSTACK, in a C-style for loop */
+/* There is no room in op_flags for this one, so it has its own bit-
+   field member (op_folded) instead.  The flag is only used to tell
+   op_convert_list to set op_folded.  */
+#define OPf_FOLDED      1<<16
+
+/* old names; don't use in new code, but don't break them, either */
+#define OPf_LIST	OPf_WANT_LIST
+#define OPf_KNOW	OPf_WANT
+
+#if !defined(PERL_CORE) && !defined(PERL_EXT)
+#  define GIMME \
+	  (PL_op->op_flags & OPf_WANT					\
+	   ? ((PL_op->op_flags & OPf_WANT) == OPf_WANT_LIST		\
+	      ? G_ARRAY							\
+	      : G_SCALAR)						\
+	   : dowantarray())
+#endif
+
+
+/* NOTE: OPp* flags are now auto-generated and defined in opcode.h,
+ *       from data in regen/op_private */
+
+
+#define OPpTRANS_ALL	(OPpTRANS_FROM_UTF|OPpTRANS_TO_UTF|OPpTRANS_IDENTICAL|OPpTRANS_SQUASH|OPpTRANS_COMPLEMENT|OPpTRANS_GROWS|OPpTRANS_DELETE)
+
+
+
+/* Mask for OP_ENTERSUB flags, the absence of which must be propagated
+ in dynamic context */
+#define OPpENTERSUB_LVAL_MASK (OPpLVAL_INTRO|OPpENTERSUB_INARGS)
+
+
+/* things that can be elements of op_aux */
+typedef union  {
+    PADOFFSET pad_offset;
+    SV        *sv;
+    IV        iv;
+    UV        uv;
+} UNOP_AUX_item;
+
+#ifdef USE_ITHREADS
+#  define UNOP_AUX_item_sv(item) PAD_SVl((item)->pad_offset);
+#else
+#  define UNOP_AUX_item_sv(item) ((item)->sv);
+#endif
+
+
+
+
+struct op {
+    BASEOP
+};
+
+struct unop {
+    BASEOP
+    OP *	op_first;
+};
+
+struct unop_aux {
+    BASEOP
+    OP  	  *op_first;
+    UNOP_AUX_item *op_aux;
+};
+
+struct binop {
+    BASEOP
+    OP *	op_first;
+    OP *	op_last;
+};
+
+struct logop {
+    BASEOP
+    OP *	op_first;
+    OP *	op_other;
+};
+
+struct listop {
+    BASEOP
+    OP *	op_first;
+    OP *	op_last;
+};
+
+struct methop {
+    BASEOP
+    union {
+        /* op_u.op_first *must* be aligned the same as the op_first
+         * field of the other op types, and op_u.op_meth_sv *must*
+         * be aligned with op_sv */
+        OP* op_first;   /* optree for method name */
+        SV* op_meth_sv; /* static method name */
+    } op_u;
+#ifdef USE_ITHREADS
+    PADOFFSET op_rclass_targ; /* pad index for redirect class */
+#else
+    SV*       op_rclass_sv;   /* static redirect class $o->A::meth() */
+#endif
+};
+
+struct pmop {
+    BASEOP
+    OP *	op_first;
+    OP *	op_last;
+#ifdef USE_ITHREADS
+    PADOFFSET   op_pmoffset;
+#else
+    REGEXP *    op_pmregexp;            /* compiled expression */
+#endif
+    U32         op_pmflags;
+    union {
+	OP *	op_pmreplroot;		/* For OP_SUBST */
+#ifdef USE_ITHREADS
+	PADOFFSET  op_pmtargetoff;	/* For OP_PUSHRE */
+#else
+	GV *	op_pmtargetgv;
+#endif
+    }	op_pmreplrootu;
+    union {
+	OP *	op_pmreplstart;	/* Only used in OP_SUBST */
+#ifdef USE_ITHREADS
+	PADOFFSET op_pmstashoff; /* Only used in OP_MATCH, with PMf_ONCE set */
+#else
+	HV *	op_pmstash;
+#endif
+    }		op_pmstashstartu;
+    OP *	op_code_list;	/* list of (?{}) code blocks */
+};
+
+#ifdef USE_ITHREADS
+#define PM_GETRE(o)	(SvTYPE(PL_regex_pad[(o)->op_pmoffset]) == SVt_REGEXP \
+		 	 ? (REGEXP*)(PL_regex_pad[(o)->op_pmoffset]) : NULL)
+/* The assignment is just to enforce type safety (or at least get a warning).
+ */
+/* With first class regexps not via a reference one needs to assign
+   &PL_sv_undef under ithreads. (This would probably work unthreaded, but NULL
+   is cheaper. I guess we could allow NULL, but the check above would get
+   more complex, and we'd have an AV with (SV*)NULL in it, which feels bad */
+/* BEWARE - something that calls this macro passes (r) which has a side
+   effect.  */
+#define PM_SETRE(o,r)	STMT_START {					\
+                            REGEXP *const _pm_setre = (r);		\
+                            assert(_pm_setre);				\
+			    PL_regex_pad[(o)->op_pmoffset] = MUTABLE_SV(_pm_setre); \
+                        } STMT_END
+#else
+#define PM_GETRE(o)     ((o)->op_pmregexp)
+#define PM_SETRE(o,r)   ((o)->op_pmregexp = (r))
+#endif
+
+/* Currently these PMf flags occupy a single 32-bit word.  Not all bits are
+ * currently used.  The lower bits are shared with their corresponding RXf flag
+ * bits, up to but not including _RXf_PMf_SHIFT_NEXT.  The unused bits
+ * immediately follow; finally the used Pmf-only (unshared) bits, so that the
+ * highest bit in the word is used.  This gathers all the unused bits as a pool
+ * in the middle, like so: 11111111111111110000001111111111
+ * where the '1's represent used bits, and the '0's unused.  This design allows
+ * us to allocate off one end of the pool if we need to add a shared bit, and
+ * off the other end if we need a non-shared bit, without disturbing the other
+ * bits.  This maximizes the likelihood of being able to change things without
+ * breaking binary compatibility.
+ *
+ * To add shared bits, do so in op_reg_common.h.  This should change
+ * _RXf_PMf_SHIFT_NEXT so that things won't compile.  Then come to regexp.h and
+ * op.h and adjust the constant adders in the definitions of PMf_BASE_SHIFT and
+ * Pmf_BASE_SHIFT down by the number of shared bits you added.  That's it.
+ * Things should be binary compatible.  But if either of these gets to having
+ * to subtract rather than add, leave at 0 and adjust all the entries below
+ * that are in terms of this according.  But if the first one of those is
+ * already PMf_BASE_SHIFT+0, there are no bits left, and a redesign is in
+ * order.
+ *
+ * To remove unshared bits, just delete its entry.  If you're where breaking
+ * binary compatibility is ok to do, you might want to adjust things to move
+ * the newly opened space so that it gets absorbed into the common pool.
+ *
+ * To add unshared bits, first use up any gaps in the middle.  Otherwise,
+ * allocate off the low end until you get to PMf_BASE_SHIFT+0.  If that isn't
+ * enough, move PMf_BASE_SHIFT down (if possible) and add the new bit at the
+ * other end instead; this preserves binary compatibility. */
+#define PMf_BASE_SHIFT (_RXf_PMf_SHIFT_NEXT+2)
+
+/* 'use re "taint"' in scope: taint $1 etc. if target tainted */
+#define PMf_RETAINT	(1U<<(PMf_BASE_SHIFT+5))
+
+/* match successfully only once per reset, with related flag RXf_USED in
+ * re->extflags holding state.  This is used only for ?? matches, and only on
+ * OP_MATCH and OP_QR */
+#define PMf_ONCE	(1U<<(PMf_BASE_SHIFT+6))
+
+/* PMf_ONCE, i.e. ?pat?, has matched successfully.  Not used under threading. */
+#define PMf_USED        (1U<<(PMf_BASE_SHIFT+7))
+
+/* subst replacement is constant */
+#define PMf_CONST	(1U<<(PMf_BASE_SHIFT+8))
+
+/* keep 1st runtime pattern forever */
+#define PMf_KEEP	(1U<<(PMf_BASE_SHIFT+9))
+
+#define PMf_GLOBAL	(1U<<(PMf_BASE_SHIFT+10)) /* pattern had a g modifier */
+
+/* don't reset pos() if //g fails */
+#define PMf_CONTINUE	(1U<<(PMf_BASE_SHIFT+11))
+
+/* evaluating replacement as expr */
+#define PMf_EVAL	(1U<<(PMf_BASE_SHIFT+12))
+
+/* Return substituted string instead of modifying it. */
+#define PMf_NONDESTRUCT	(1U<<(PMf_BASE_SHIFT+13))
+
+/* the pattern has a CV attached (currently only under qr/...(?{}).../) */
+#define PMf_HAS_CV	(1U<<(PMf_BASE_SHIFT+14))
+
+/* op_code_list is private; don't free it etc. It may well point to
+ * code within another sub, with different pad etc */
+#define PMf_CODELIST_PRIVATE	(1U<<(PMf_BASE_SHIFT+15))
+
+/* the PMOP is a QR (we should be able to detect that from the op type,
+ * but the regex compilation API passes just the pm flags, not the op
+ * itself */
+#define PMf_IS_QR	(1U<<(PMf_BASE_SHIFT+16))
+#define PMf_USE_RE_EVAL	(1U<<(PMf_BASE_SHIFT+17)) /* use re'eval' in scope */
+
+/* See comments at the beginning of these defines about adding bits.  The
+ * highest bit position should be used, so that if PMf_BASE_SHIFT gets
+ * increased, the #error below will be triggered so that you will be reminded
+ * to adjust things at the other end to keep the bit positions unchanged */
+#if PMf_BASE_SHIFT+17 > 31
+#   error Too many PMf_ bits used.  See above and regnodes.h for any spare in middle
+#endif
+
+#ifdef USE_ITHREADS
+
+#  define PmopSTASH(o)         ((o)->op_pmflags & PMf_ONCE                         \
+                                ? PL_stashpad[(o)->op_pmstashstartu.op_pmstashoff]   \
+                                : NULL)
+#  define PmopSTASH_set(o,hv)	\
+	(assert_((o)->op_pmflags & PMf_ONCE)				\
+	 (o)->op_pmstashstartu.op_pmstashoff =				\
+	    (hv) ? alloccopstash(hv) : 0)
+#else
+#  define PmopSTASH(o)							\
+    (((o)->op_pmflags & PMf_ONCE) ? (o)->op_pmstashstartu.op_pmstash : NULL)
+#  if defined (DEBUGGING) && defined(__GNUC__) && !defined(PERL_GCC_BRACE_GROUPS_FORBIDDEN)
+#    define PmopSTASH_set(o,hv)		({				\
+	assert((o)->op_pmflags & PMf_ONCE);				\
+	((o)->op_pmstashstartu.op_pmstash = (hv));			\
+    })
+#  else
+#    define PmopSTASH_set(o,hv)	((o)->op_pmstashstartu.op_pmstash = (hv))
+#  endif
+#endif
+#define PmopSTASHPV(o)	(PmopSTASH(o) ? HvNAME_get(PmopSTASH(o)) : NULL)
+   /* op_pmstashstartu.op_pmstash is not refcounted */
+#define PmopSTASHPV_set(o,pv)	PmopSTASH_set((o), gv_stashpv(pv,GV_ADD))
+
+struct svop {
+    BASEOP
+    SV *	op_sv;
+};
+
+struct padop {
+    BASEOP
+    PADOFFSET	op_padix;
+};
+
+struct pvop {
+    BASEOP
+    char *	op_pv;
+};
+
+struct loop {
+    BASEOP
+    OP *	op_first;
+    OP *	op_last;
+    OP *	op_redoop;
+    OP *	op_nextop;
+    OP *	op_lastop;
+};
+
+#define cUNOPx(o)	((UNOP*)(o))
+#define cUNOP_AUXx(o)	((UNOP_AUX*)(o))
+#define cBINOPx(o)	((BINOP*)(o))
+#define cLISTOPx(o)	((LISTOP*)(o))
+#define cLOGOPx(o)	((LOGOP*)(o))
+#define cPMOPx(o)	((PMOP*)(o))
+#define cSVOPx(o)	((SVOP*)(o))
+#define cPADOPx(o)	((PADOP*)(o))
+#define cPVOPx(o)	((PVOP*)(o))
+#define cCOPx(o)	((COP*)(o))
+#define cLOOPx(o)	((LOOP*)(o))
+#define cMETHOPx(o)	((METHOP*)(o))
+
+#define cUNOP		cUNOPx(PL_op)
+#define cUNOP_AUX	cUNOP_AUXx(PL_op)
+#define cBINOP		cBINOPx(PL_op)
+#define cLISTOP		cLISTOPx(PL_op)
+#define cLOGOP		cLOGOPx(PL_op)
+#define cPMOP		cPMOPx(PL_op)
+#define cSVOP		cSVOPx(PL_op)
+#define cPADOP		cPADOPx(PL_op)
+#define cPVOP		cPVOPx(PL_op)
+#define cCOP		cCOPx(PL_op)
+#define cLOOP		cLOOPx(PL_op)
+
+#define cUNOPo		cUNOPx(o)
+#define cUNOP_AUXo	cUNOP_AUXx(o)
+#define cBINOPo		cBINOPx(o)
+#define cLISTOPo	cLISTOPx(o)
+#define cLOGOPo		cLOGOPx(o)
+#define cPMOPo		cPMOPx(o)
+#define cSVOPo		cSVOPx(o)
+#define cPADOPo		cPADOPx(o)
+#define cPVOPo		cPVOPx(o)
+#define cCOPo		cCOPx(o)
+#define cLOOPo		cLOOPx(o)
+
+#define kUNOP		cUNOPx(kid)
+#define kUNOP_AUX	cUNOP_AUXx(kid)
+#define kBINOP		cBINOPx(kid)
+#define kLISTOP		cLISTOPx(kid)
+#define kLOGOP		cLOGOPx(kid)
+#define kPMOP		cPMOPx(kid)
+#define kSVOP		cSVOPx(kid)
+#define kPADOP		cPADOPx(kid)
+#define kPVOP		cPVOPx(kid)
+#define kCOP		cCOPx(kid)
+#define kLOOP		cLOOPx(kid)
+
+
+#ifdef USE_ITHREADS
+#  define	cGVOPx_gv(o)	((GV*)PAD_SVl(cPADOPx(o)->op_padix))
+#  ifndef PERL_CORE
+#    define	IS_PADGV(v)	(v && isGV(v))
+#    define	IS_PADCONST(v) \
+	(v && (SvREADONLY(v) || (SvIsCOW(v) && !SvLEN(v))))
+#  endif
+#  define	cSVOPx_sv(v)	(cSVOPx(v)->op_sv \
+				 ? cSVOPx(v)->op_sv : PAD_SVl((v)->op_targ))
+#  define	cSVOPx_svp(v)	(cSVOPx(v)->op_sv \
+				 ? &cSVOPx(v)->op_sv : &PAD_SVl((v)->op_targ))
+#  define	cMETHOPx_rclass(v) PAD_SVl(cMETHOPx(v)->op_rclass_targ)
+#else
+#  define	cGVOPx_gv(o)	((GV*)cSVOPx(o)->op_sv)
+#  ifndef PERL_CORE
+#    define	IS_PADGV(v)	FALSE
+#    define	IS_PADCONST(v)	FALSE
+#  endif
+#  define	cSVOPx_sv(v)	(cSVOPx(v)->op_sv)
+#  define	cSVOPx_svp(v)	(&cSVOPx(v)->op_sv)
+#  define	cMETHOPx_rclass(v) (cMETHOPx(v)->op_rclass_sv)
+#endif
+
+#  define	cMETHOPx_meth(v)	cSVOPx_sv(v)
+
+#define	cGVOP_gv		cGVOPx_gv(PL_op)
+#define	cGVOPo_gv		cGVOPx_gv(o)
+#define	kGVOP_gv		cGVOPx_gv(kid)
+#define cSVOP_sv		cSVOPx_sv(PL_op)
+#define cSVOPo_sv		cSVOPx_sv(o)
+#define kSVOP_sv		cSVOPx_sv(kid)
+
+#ifndef PERL_CORE
+#  define Nullop ((OP*)NULL)
+#endif
+
+/* Lowest byte of PL_opargs */
+#define OA_MARK 1
+#define OA_FOLDCONST 2
+#define OA_RETSCALAR 4
+#define OA_TARGET 8
+#define OA_TARGLEX 16
+#define OA_OTHERINT 32
+#define OA_DANGEROUS 64
+#define OA_DEFGV 128
+
+/* The next 4 bits (8..11) encode op class information */
+#define OCSHIFT 8
+
+#define OA_CLASS_MASK (15 << OCSHIFT)
+
+#define OA_BASEOP (0 << OCSHIFT)
+#define OA_UNOP (1 << OCSHIFT)
+#define OA_BINOP (2 << OCSHIFT)
+#define OA_LOGOP (3 << OCSHIFT)
+#define OA_LISTOP (4 << OCSHIFT)
+#define OA_PMOP (5 << OCSHIFT)
+#define OA_SVOP (6 << OCSHIFT)
+#define OA_PADOP (7 << OCSHIFT)
+#define OA_PVOP_OR_SVOP (8 << OCSHIFT)
+#define OA_LOOP (9 << OCSHIFT)
+#define OA_COP (10 << OCSHIFT)
+#define OA_BASEOP_OR_UNOP (11 << OCSHIFT)
+#define OA_FILESTATOP (12 << OCSHIFT)
+#define OA_LOOPEXOP (13 << OCSHIFT)
+#define OA_METHOP (14 << OCSHIFT)
+#define OA_UNOP_AUX (15 << OCSHIFT)
+
+/* Each remaining nybble of PL_opargs (i.e. bits 12..15, 16..19 etc)
+ * encode the type for each arg */
+#define OASHIFT 12
+
+#define OA_SCALAR 1
+#define OA_LIST 2
+#define OA_AVREF 3
+#define OA_HVREF 4
+#define OA_CVREF 5
+#define OA_FILEREF 6
+#define OA_SCALARREF 7
+#define OA_OPTIONAL 8
+
+/* Op_REFCNT is a reference count at the head of each op tree: needed
+ * since the tree is shared between threads, and between cloned closure
+ * copies in the same thread. OP_REFCNT_LOCK/UNLOCK is used when modifying
+ * this count.
+ * The same mutex is used to protect the refcounts of the reg_trie_data
+ * and reg_ac_data structures, which are shared between duplicated
+ * regexes.
+ */
+
+#ifdef USE_ITHREADS
+#  define OP_REFCNT_INIT		MUTEX_INIT(&PL_op_mutex)
+#  ifdef PERL_CORE
+#    define OP_REFCNT_LOCK		MUTEX_LOCK(&PL_op_mutex)
+#    define OP_REFCNT_UNLOCK		MUTEX_UNLOCK(&PL_op_mutex)
+#  else
+#    define OP_REFCNT_LOCK		op_refcnt_lock()
+#    define OP_REFCNT_UNLOCK		op_refcnt_unlock()
+#  endif
+#  define OP_REFCNT_TERM		MUTEX_DESTROY(&PL_op_mutex)
+#else
+#  define OP_REFCNT_INIT		NOOP
+#  define OP_REFCNT_LOCK		NOOP
+#  define OP_REFCNT_UNLOCK		NOOP
+#  define OP_REFCNT_TERM		NOOP
+#endif
+
+#define OpREFCNT_set(o,n)		((o)->op_targ = (n))
+#ifdef PERL_DEBUG_READONLY_OPS
+#  define OpREFCNT_inc(o)		Perl_op_refcnt_inc(aTHX_ o)
+#  define OpREFCNT_dec(o)		Perl_op_refcnt_dec(aTHX_ o)
+#else
+#  define OpREFCNT_inc(o)		((o) ? (++(o)->op_targ, (o)) : NULL)
+#  define OpREFCNT_dec(o)		(--(o)->op_targ)
+#endif
+
+/* flags used by Perl_load_module() */
+#define PERL_LOADMOD_DENY		0x1	/* no Module */
+#define PERL_LOADMOD_NOIMPORT		0x2	/* use Module () */
+#define PERL_LOADMOD_IMPORT_OPS		0x4	/* import arguments
+						   are passed as a sin-
+						   gle op tree, not a
+						   list of SVs */
+
+#if defined(PERL_IN_PERLY_C) || defined(PERL_IN_OP_C) || defined(PERL_IN_TOKE_C)
+#define ref(o, type) doref(o, type, TRUE)
+#endif
+
+/*
+=head1 Optree Manipulation Functions
+
+=for apidoc Am|OP*|LINKLIST|OP *o
+Given the root of an optree, link the tree in execution order using the
+C<op_next> pointers and return the first op executed.  If this has
+already been done, it will not be redone, and C<< o->op_next >> will be
+returned.  If C<< o->op_next >> is not already set, C<o> should be at
+least an C<UNOP>.
+
+=cut
+*/
+
+#define LINKLIST(o) ((o)->op_next ? (o)->op_next : op_linklist((OP*)o))
+
+/* no longer used anywhere in core */
+#ifndef PERL_CORE
+#define cv_ckproto(cv, gv, p) \
+   cv_ckproto_len_flags((cv), (gv), (p), (p) ? strlen(p) : 0, 0)
+#endif
+
+#ifdef PERL_CORE
+#  define my(o)	my_attrs((o), NULL)
+#endif
+
+#ifdef USE_REENTRANT_API
+#include "reentr.h"
+#endif
+
+#define NewOp(m,var,c,type)	\
+	(var = (type *) Perl_Slab_Alloc(aTHX_ c*sizeof(type)))
+#define NewOpSz(m,var,size)	\
+	(var = (OP *) Perl_Slab_Alloc(aTHX_ size))
+#define FreeOp(p) Perl_Slab_Free(aTHX_ p)
+
+/*
+ * The per-CV op slabs consist of a header (the opslab struct) and a bunch
+ * of space for allocating op slots, each of which consists of two pointers
+ * followed by an op.  The first pointer points to the next op slot.  The
+ * second points to the slab.  At the end of the slab is a null pointer,
+ * so that slot->opslot_next - slot can be used to determine the size
+ * of the op.
+ *
+ * Each CV can have multiple slabs; opslab_next points to the next slab, to
+ * form a chain.  All bookkeeping is done on the first slab, which is where
+ * all the op slots point.
+ *
+ * Freed ops are marked as freed and attached to the freed chain
+ * via op_next pointers.
+ *
+ * When there is more than one slab, the second slab in the slab chain is
+ * assumed to be the one with free space available.  It is used when allo-
+ * cating an op if there are no freed ops available or big enough.
+ */
+
+#ifdef PERL_CORE
+struct opslot {
+    /* keep opslot_next first */
+    OPSLOT *	opslot_next;		/* next slot */
+    OPSLAB *	opslot_slab;		/* owner */
+    OP		opslot_op;		/* the op itself */
+};
+
+struct opslab {
+    OPSLOT *	opslab_first;		/* first op in this slab */
+    OPSLAB *	opslab_next;		/* next slab */
+    OP *	opslab_freed;		/* chain of freed ops */
+    size_t	opslab_refcnt;		/* number of ops */
+# ifdef PERL_DEBUG_READONLY_OPS
+    U16		opslab_size;		/* size of slab in pointers */
+    bool	opslab_readonly;
+# endif
+    OPSLOT	opslab_slots;		/* slots begin here */
+};
+
+# define OPSLOT_HEADER		STRUCT_OFFSET(OPSLOT, opslot_op)
+# define OPSLOT_HEADER_P	(OPSLOT_HEADER/sizeof(I32 *))
+# define OpSLOT(o)		(assert_(o->op_slabbed) \
+				 (OPSLOT *)(((char *)o)-OPSLOT_HEADER))
+# define OpSLAB(o)		OpSLOT(o)->opslot_slab
+# define OpslabREFCNT_dec(slab)      \
+	(((slab)->opslab_refcnt == 1) \
+	 ? opslab_free_nopad(slab)     \
+	 : (void)--(slab)->opslab_refcnt)
+  /* Variant that does not null out the pads */
+# define OpslabREFCNT_dec_padok(slab) \
+	(((slab)->opslab_refcnt == 1)  \
+	 ? opslab_free(slab)		\
+	 : (void)--(slab)->opslab_refcnt)
+#endif
+
+struct block_hooks {
+    U32	    bhk_flags;
+    void    (*bhk_start)	(pTHX_ int full);
+    void    (*bhk_pre_end)	(pTHX_ OP **seq);
+    void    (*bhk_post_end)	(pTHX_ OP **seq);
+    void    (*bhk_eval)		(pTHX_ OP *const saveop);
+};
+
+/*
+=head1 Compile-time scope hooks
+
+=for apidoc mx|U32|BhkFLAGS|BHK *hk
+Return the BHK's flags.
+
+=for apidoc mx|void *|BhkENTRY|BHK *hk|which
+Return an entry from the BHK structure.  C<which> is a preprocessor token
+indicating which entry to return.  If the appropriate flag is not set
+this will return C<NULL>.  The type of the return value depends on which
+entry you ask for.
+
+=for apidoc Amx|void|BhkENTRY_set|BHK *hk|which|void *ptr
+Set an entry in the BHK structure, and set the flags to indicate it is
+valid.  C<which> is a preprocessing token indicating which entry to set.
+The type of C<ptr> depends on the entry.
+
+=for apidoc Amx|void|BhkDISABLE|BHK *hk|which
+Temporarily disable an entry in this BHK structure, by clearing the
+appropriate flag.  C<which> is a preprocessor token indicating which
+entry to disable.
+
+=for apidoc Amx|void|BhkENABLE|BHK *hk|which
+Re-enable an entry in this BHK structure, by setting the appropriate
+flag.  C<which> is a preprocessor token indicating which entry to enable.
+This will assert (under -DDEBUGGING) if the entry doesn't contain a valid
+pointer.
+
+=for apidoc mx|void|CALL_BLOCK_HOOKS|which|arg
+Call all the registered block hooks for type C<which>.  C<which> is a
+preprocessing token; the type of C<arg> depends on C<which>.
+
+=cut
+*/
+
+#define BhkFLAGS(hk)		((hk)->bhk_flags)
+
+#define BHKf_bhk_start	    0x01
+#define BHKf_bhk_pre_end    0x02
+#define BHKf_bhk_post_end   0x04
+#define BHKf_bhk_eval	    0x08
+
+#define BhkENTRY(hk, which) \
+    ((BhkFLAGS(hk) & BHKf_ ## which) ? ((hk)->which) : NULL)
+
+#define BhkENABLE(hk, which) \
+    STMT_START { \
+	BhkFLAGS(hk) |= BHKf_ ## which; \
+	assert(BhkENTRY(hk, which)); \
+    } STMT_END
+
+#define BhkDISABLE(hk, which) \
+    STMT_START { \
+	BhkFLAGS(hk) &= ~(BHKf_ ## which); \
+    } STMT_END
+
+#define BhkENTRY_set(hk, which, ptr) \
+    STMT_START { \
+	(hk)->which = ptr; \
+	BhkENABLE(hk, which); \
+    } STMT_END
+
+#define CALL_BLOCK_HOOKS(which, arg) \
+    STMT_START { \
+	if (PL_blockhooks) { \
+	    SSize_t i; \
+	    for (i = av_tindex(PL_blockhooks); i >= 0; i--) { \
+		SV *sv = AvARRAY(PL_blockhooks)[i]; \
+		BHK *hk; \
+		\
+		assert(SvIOK(sv)); \
+		if (SvUOK(sv)) \
+		    hk = INT2PTR(BHK *, SvUVX(sv)); \
+		else \
+		    hk = INT2PTR(BHK *, SvIVX(sv)); \
+		\
+		if (BhkENTRY(hk, which)) \
+		    BhkENTRY(hk, which)(aTHX_ arg); \
+	    } \
+	} \
+    } STMT_END
+
+/* flags for rv2cv_op_cv */
+
+#define RV2CVOPCV_MARK_EARLY     0x00000001
+#define RV2CVOPCV_RETURN_NAME_GV 0x00000002
+#define RV2CVOPCV_RETURN_STUB    0x00000004
+#ifdef PERL_CORE /* behaviour of this flag is subject to change: */
+# define RV2CVOPCV_MAYBE_NAME_GV  0x00000008
+#endif
+#define RV2CVOPCV_FLAG_MASK      0x0000000f /* all of the above */
+
+#define op_lvalue(op,t) Perl_op_lvalue_flags(aTHX_ op,t,0)
+
+/* flags for op_lvalue_flags */
+
+#define OP_LVALUE_NO_CROAK 1
+
+/*
+=head1 Custom Operators
+
+=for apidoc Am|U32|XopFLAGS|XOP *xop
+Return the XOP's flags.
+
+=for apidoc Am||XopENTRY|XOP *xop|which
+Return a member of the XOP structure.  C<which> is a cpp token
+indicating which entry to return.  If the member is not set
+this will return a default value.  The return type depends
+on C<which>.  This macro evaluates its arguments more than
+once.  If you are using C<Perl_custom_op_xop> to retreive a
+C<XOP *> from a C<OP *>, use the more efficient L</XopENTRYCUSTOM> instead.
+
+=for apidoc Am||XopENTRYCUSTOM|const OP *o|which
+Exactly like C<XopENTRY(XopENTRY(Perl_custom_op_xop(aTHX_ o), which)> but more
+efficient.  The C<which> parameter is identical to L</XopENTRY>.
+
+=for apidoc Am|void|XopENTRY_set|XOP *xop|which|value
+Set a member of the XOP structure.  C<which> is a cpp token
+indicating which entry to set.  See L<perlguts/"Custom Operators">
+for details about the available members and how
+they are used.  This macro evaluates its argument
+more than once.
+
+=for apidoc Am|void|XopDISABLE|XOP *xop|which
+Temporarily disable a member of the XOP, by clearing the appropriate flag.
+
+=for apidoc Am|void|XopENABLE|XOP *xop|which
+Reenable a member of the XOP which has been disabled.
+
+=cut
+*/
+
+struct custom_op {
+    U32		    xop_flags;    
+    const char	   *xop_name;
+    const char	   *xop_desc;
+    U32		    xop_class;
+    void	  (*xop_peep)(pTHX_ OP *o, OP *oldop);
+};
+
+/* return value of Perl_custom_op_get_field, similar to void * then casting but
+   the U32 doesn't need truncation on 64 bit platforms in the caller, also
+   for easier macro writing */
+typedef union {
+    const char	   *xop_name;
+    const char	   *xop_desc;
+    U32		    xop_class;
+    void	  (*xop_peep)(pTHX_ OP *o, OP *oldop);
+    XOP            *xop_ptr;
+} XOPRETANY;
+
+#define XopFLAGS(xop) ((xop)->xop_flags)
+
+#define XOPf_xop_name	0x01
+#define XOPf_xop_desc	0x02
+#define XOPf_xop_class	0x04
+#define XOPf_xop_peep	0x08
+
+/* used by Perl_custom_op_get_field for option checking */
+typedef enum {
+    XOPe_xop_ptr = 0, /* just get the XOP *, don't look inside it */
+    XOPe_xop_name = XOPf_xop_name,
+    XOPe_xop_desc = XOPf_xop_desc,
+    XOPe_xop_class = XOPf_xop_class,
+    XOPe_xop_peep = XOPf_xop_peep
+} xop_flags_enum;
+
+#define XOPd_xop_name	PL_op_name[OP_CUSTOM]
+#define XOPd_xop_desc	PL_op_desc[OP_CUSTOM]
+#define XOPd_xop_class	OA_BASEOP
+#define XOPd_xop_peep	((Perl_cpeep_t)0)
+
+#define XopENTRY_set(xop, which, to) \
+    STMT_START { \
+	(xop)->which = (to); \
+	(xop)->xop_flags |= XOPf_ ## which; \
+    } STMT_END
+
+#define XopENTRY(xop, which) \
+    ((XopFLAGS(xop) & XOPf_ ## which) ? (xop)->which : XOPd_ ## which)
+
+#define XopENTRYCUSTOM(o, which) \
+    (Perl_custom_op_get_field(aTHX_ o, XOPe_ ## which).which)
+
+#define XopDISABLE(xop, which) ((xop)->xop_flags &= ~XOPf_ ## which)
+#define XopENABLE(xop, which) \
+    STMT_START { \
+	(xop)->xop_flags |= XOPf_ ## which; \
+	assert(XopENTRY(xop, which)); \
+    } STMT_END
+
+#define Perl_custom_op_xop(x) \
+    (Perl_custom_op_get_field(x, XOPe_xop_ptr).xop_ptr)
+
+/*
+=head1 Optree Manipulation Functions
+
+=for apidoc Am|const char *|OP_NAME|OP *o
+Return the name of the provided OP.  For core ops this looks up the name
+from the op_type; for custom ops from the op_ppaddr.
+
+=for apidoc Am|const char *|OP_DESC|OP *o
+Return a short description of the provided OP.
+
+=for apidoc Am|U32|OP_CLASS|OP *o
+Return the class of the provided OP: that is, which of the *OP
+structures it uses.  For core ops this currently gets the information out
+of C<PL_opargs>, which does not always accurately reflect the type used.
+For custom ops the type is returned from the registration, and it is up
+to the registree to ensure it is accurate.  The value returned will be
+one of the C<OA_>* constants from F<op.h>.
+
+=for apidoc Am|bool|OP_TYPE_IS|OP *o|Optype type
+Returns true if the given OP is not a C<NULL> pointer
+and if it is of the given type.
+
+The negation of this macro, C<OP_TYPE_ISNT> is also available
+as well as C<OP_TYPE_IS_NN> and C<OP_TYPE_ISNT_NN> which elide
+the NULL pointer check.
+
+=for apidoc Am|bool|OP_TYPE_IS_OR_WAS|OP *o|Optype type
+Returns true if the given OP is not a NULL pointer and
+if it is of the given type or used to be before being
+replaced by an OP of type OP_NULL.
+
+The negation of this macro, C<OP_TYPE_ISNT_AND_WASNT>
+is also available as well as C<OP_TYPE_IS_OR_WAS_NN>
+and C<OP_TYPE_ISNT_AND_WASNT_NN> which elide
+the C<NULL> pointer check.
+
+=for apidoc Am|bool|OpHAS_SIBLING|OP *o
+Returns true if C<o> has a sibling
+
+=for apidoc Am|OP*|OpSIBLING|OP *o
+Returns the sibling of C<o>, or C<NULL> if there is no sibling
+
+=for apidoc Am|void|OpMORESIB_set|OP *o|OP *sib
+Sets the sibling of C<o> to the non-zero value C<sib>. See also C<L</OpLASTSIB_set>>
+and C<L</OpMAYBESIB_set>>. For a higher-level interface, see
+C<L</op_sibling_splice>>.
+
+=for apidoc Am|void|OpLASTSIB_set|OP *o|OP *parent
+Marks C<o> as having no further siblings. On C<PERL_OP_PARENT> builds, marks
+o as having the specified parent. See also C<L</OpMORESIB_set>> and
+C<OpMAYBESIB_set>. For a higher-level interface, see
+C<L</op_sibling_splice>>.
+
+=for apidoc Am|void|OpMAYBESIB_set|OP *o|OP *sib|OP *parent
+Conditionally does C<OpMORESIB_set> or C<OpLASTSIB_set> depending on whether
+C<sib> is non-null. For a higher-level interface, see C<L</op_sibling_splice>>.
+
+=cut
+*/
+
+#define OP_NAME(o) ((o)->op_type == OP_CUSTOM \
+                    ? XopENTRYCUSTOM(o, xop_name) \
+		    : PL_op_name[(o)->op_type])
+#define OP_DESC(o) ((o)->op_type == OP_CUSTOM \
+                    ? XopENTRYCUSTOM(o, xop_desc) \
+		    : PL_op_desc[(o)->op_type])
+#define OP_CLASS(o) ((o)->op_type == OP_CUSTOM \
+		     ? XopENTRYCUSTOM(o, xop_class) \
+		     : (PL_opargs[(o)->op_type] & OA_CLASS_MASK))
+
+#define OP_TYPE_IS(o, type) ((o) && (o)->op_type == (type))
+#define OP_TYPE_IS_NN(o, type) ((o)->op_type == (type))
+#define OP_TYPE_ISNT(o, type) ((o) && (o)->op_type != (type))
+#define OP_TYPE_ISNT_NN(o, type) ((o)->op_type != (type))
+
+#define OP_TYPE_IS_OR_WAS_NN(o, type) \
+    ( ((o)->op_type == OP_NULL \
+       ? (o)->op_targ \
+       : (o)->op_type) \
+      == (type) )
+
+#define OP_TYPE_IS_OR_WAS(o, type) \
+    ( (o) && OP_TYPE_IS_OR_WAS_NN(o, type) )
+
+#define OP_TYPE_ISNT_AND_WASNT_NN(o, type) \
+    ( ((o)->op_type == OP_NULL \
+       ? (o)->op_targ \
+       : (o)->op_type) \
+      != (type) )
+
+#define OP_TYPE_ISNT_AND_WASNT(o, type) \
+    ( (o) && OP_TYPE_ISNT_AND_WASNT_NN(o, type) )
+
+
+#ifdef PERL_OP_PARENT
+#  define OpHAS_SIBLING(o)	(cBOOL((o)->op_moresib))
+#  define OpSIBLING(o)		(0 + (o)->op_moresib ? (o)->op_sibparent : NULL)
+#  define OpMORESIB_set(o, sib) ((o)->op_moresib = 1, (o)->op_sibparent = (sib))
+#  define OpLASTSIB_set(o, parent) \
+       ((o)->op_moresib = 0, (o)->op_sibparent = (parent))
+#  define OpMAYBESIB_set(o, sib, parent) \
+       ((o)->op_sibparent = ((o)->op_moresib = cBOOL(sib)) ? (sib) : (parent))
+#else
+#  define OpHAS_SIBLING(o)	(cBOOL((o)->op_sibling))
+#  define OpSIBLING(o)		(0 + (o)->op_sibling)
+#  define OpMORESIB_set(o, sib) ((o)->op_moresib = 1, (o)->op_sibling = (sib))
+#  define OpLASTSIB_set(o, parent) \
+       ((o)->op_moresib = 0, (o)->op_sibling = NULL)
+#  define OpMAYBESIB_set(o, sib, parent) \
+       ((o)->op_moresib = cBOOL(sib), (o)->op_sibling = (sib))
+#endif
+
+#if !defined(PERL_CORE) && !defined(PERL_EXT)
+/* for backwards compatibility only */
+#  define OP_SIBLING(o)		OpSIBLING(o)
+#endif
+
+#define newATTRSUB(f, o, p, a, b) Perl_newATTRSUB_x(aTHX_  f, o, p, a, b, FALSE)
+#define newSUB(f, o, p, b)	newATTRSUB((f), (o), (p), NULL, (b))
+
+/*
+=head1 Hook manipulation
+*/
+
+#ifdef USE_ITHREADS
+#  define OP_CHECK_MUTEX_INIT		MUTEX_INIT(&PL_check_mutex)
+#  define OP_CHECK_MUTEX_LOCK		MUTEX_LOCK(&PL_check_mutex)
+#  define OP_CHECK_MUTEX_UNLOCK		MUTEX_UNLOCK(&PL_check_mutex)
+#  define OP_CHECK_MUTEX_TERM		MUTEX_DESTROY(&PL_check_mutex)
+#else
+#  define OP_CHECK_MUTEX_INIT		NOOP
+#  define OP_CHECK_MUTEX_LOCK		NOOP
+#  define OP_CHECK_MUTEX_UNLOCK		NOOP
+#  define OP_CHECK_MUTEX_TERM		NOOP
+#endif
+
+
+/* Stuff for OP_MULTDEREF/pp_multideref. */
+
+/* actions */
+
+/* Load another word of actions/flag bits. Must be 0 */
+#define MDEREF_reload                       0
+
+#define MDEREF_AV_pop_rv2av_aelem           1
+#define MDEREF_AV_gvsv_vivify_rv2av_aelem   2
+#define MDEREF_AV_padsv_vivify_rv2av_aelem  3
+#define MDEREF_AV_vivify_rv2av_aelem        4
+#define MDEREF_AV_padav_aelem               5
+#define MDEREF_AV_gvav_aelem                6
+
+#define MDEREF_HV_pop_rv2hv_helem           8
+#define MDEREF_HV_gvsv_vivify_rv2hv_helem   9
+#define MDEREF_HV_padsv_vivify_rv2hv_helem 10
+#define MDEREF_HV_vivify_rv2hv_helem       11
+#define MDEREF_HV_padhv_helem              12
+#define MDEREF_HV_gvhv_helem               13
+
+#define MDEREF_ACTION_MASK                0xf
+
+/* key / index type */
+
+#define MDEREF_INDEX_none   0x00 /* run external ops to generate index */
+#define MDEREF_INDEX_const  0x10 /* index is const PV/UV */
+#define MDEREF_INDEX_padsv  0x20 /* index is lexical var */
+#define MDEREF_INDEX_gvsv   0x30 /* index is GV */
+
+#define MDEREF_INDEX_MASK   0x30
+
+/* bit flags */
+
+#define MDEREF_FLAG_last    0x40 /* the last [ah]elem; PL_op flags apply */
+
+#define MDEREF_MASK         0x7F
+#define MDEREF_SHIFT           7
+
+#if defined(PERL_IN_DOOP_C) || defined(PERL_IN_PP_C)
+static const char * const deprecated_above_ff_msg
+    = "Use of strings with code points over 0xFF as arguments to "
+      "%s operator is deprecated";
+#endif
+
+
+/*
+ * ex: set ts=8 sts=4 sw=4 et:
+ */
diff --git a/lib/5.24.1/x86_64-linux/CORE/op_reg_common.h b/lib/5.24.1/x86_64-linux/CORE/op_reg_common.h
new file mode 100644
index 00000000..c500aa41
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/op_reg_common.h
@@ -0,0 +1,145 @@
+/*    op_reg_common.h
+ *
+ *    Definitions common to by op.h and regexp.h
+ *
+ *    Copyright (C) 2010, 2011 by Larry Wall and others
+ *
+ *    You may distribute under the terms of either the GNU General Public
+ *    License or the Artistic License, as specified in the README file.
+ *
+ */
+
+/* These defines are used in both op.h and regexp.h  The definitions use the
+ * shift form so that ext/B/Makefile.PL will pick them up.
+ *
+ * Data structures used in the two headers have common fields, and in fact one
+ * is copied onto the other.  This makes it easy to keep them in sync */
+
+/* This tells where the first of these bits is.  Setting it to 0 saved cycles
+ * and memory.  I (khw) think the code will work if changed back, but haven't
+ * tested it */
+/* Make sure to update ext/re/re.pm when changing this! */
+#ifndef RXf_PMf_STD_PMMOD_SHIFT /* Only expand #include of this file once */
+
+#define RXf_PMf_STD_PMMOD_SHIFT 0
+
+/* The bits need to be ordered so that the msixn are contiguous starting at bit
+ * RXf_PMf_STD_PMMOD_SHIFT, followed by the p.  See STD_PAT_MODS and
+ * INT_PAT_MODS in regexp.h for the reason contiguity is needed */
+/* Make sure to update lib/re.pm when changing these! */
+/* Make sure you keep the pure PMf_ versions below in sync */
+#define RXf_PMf_MULTILINE      (1U << (RXf_PMf_STD_PMMOD_SHIFT+0))    /* /m */
+#define RXf_PMf_SINGLELINE     (1U << (RXf_PMf_STD_PMMOD_SHIFT+1))    /* /s */
+#define RXf_PMf_FOLD           (1U << (RXf_PMf_STD_PMMOD_SHIFT+2))    /* /i */
+#define RXf_PMf_EXTENDED       (1U << (RXf_PMf_STD_PMMOD_SHIFT+3))    /* /x */
+#define RXf_PMf_EXTENDED_MORE  (1U << (RXf_PMf_STD_PMMOD_SHIFT+4))    /* /xx */
+#define RXf_PMf_NOCAPTURE      (1U << (RXf_PMf_STD_PMMOD_SHIFT+5))    /* /n */
+
+#define RXf_PMf_KEEPCOPY       (1U << (RXf_PMf_STD_PMMOD_SHIFT+6))    /* /p */
+
+/* The character set for the regex is stored in a field of more than one bit
+ * using an enum, for reasons of compactness and to ensure that the options are
+ * mutually exclusive */
+/* Make sure to update ext/re/re.pm and regcomp.sym (as these are used as
+ * offsets for various node types, like POSIXD vs POSIXL, etc) when changing
+ * this! */
+typedef enum {
+    REGEX_DEPENDS_CHARSET = 0,
+    REGEX_LOCALE_CHARSET,
+    REGEX_UNICODE_CHARSET,
+    REGEX_ASCII_RESTRICTED_CHARSET,
+    REGEX_ASCII_MORE_RESTRICTED_CHARSET
+} regex_charset;
+
+#define _RXf_PMf_CHARSET_SHIFT ((RXf_PMf_STD_PMMOD_SHIFT)+7)
+#define RXf_PMf_CHARSET (7U << (_RXf_PMf_CHARSET_SHIFT)) /* 3 bits */
+
+/* Manually decorate these functions here with gcc-style attributes just to
+ * avoid making the regex_charset typedef global, which it would need to be for
+ * proto.h to understand it */
+PERL_STATIC_INLINE void
+set_regex_charset(U32 * const flags, const regex_charset cs)
+    __attribute__nonnull__(1);
+
+PERL_STATIC_INLINE void
+set_regex_charset(U32 * const flags, const regex_charset cs)
+{
+    /* Sets the character set portion of 'flags' to 'cs', which is a member of
+     * the above enum */
+
+    *flags &= ~RXf_PMf_CHARSET;
+    *flags |= (cs << _RXf_PMf_CHARSET_SHIFT);
+}
+
+PERL_STATIC_INLINE regex_charset
+get_regex_charset(const U32 flags)
+    __attribute__warn_unused_result__;
+
+PERL_STATIC_INLINE regex_charset
+get_regex_charset(const U32 flags)
+{
+    /* Returns the enum corresponding to the character set in 'flags' */
+
+    return (regex_charset) ((flags & RXf_PMf_CHARSET) >> _RXf_PMf_CHARSET_SHIFT);
+}
+
+#define RXf_PMf_STRICT (1U<<(RXf_PMf_STD_PMMOD_SHIFT+10))
+
+#define _RXf_PMf_SHIFT_COMPILETIME (RXf_PMf_STD_PMMOD_SHIFT+11)
+
+
+/*
+  Set in Perl_pmruntime if op_flags & OPf_SPECIAL, i.e. split. Will
+  be used by regex engines to check whether they should set
+  RXf_SKIPWHITE
+*/
+#define RXf_PMf_SPLIT (1U<<(RXf_PMf_STD_PMMOD_SHIFT+11))
+
+/* Next available bit after the above.  Name begins with '_' so won't be
+ * exported by B */
+#define _RXf_PMf_SHIFT_NEXT (RXf_PMf_STD_PMMOD_SHIFT+12)
+
+/* Mask of the above bits.  These need to be transferred from op_pmflags to
+ * re->extflags during compilation */
+#define RXf_PMf_COMPILETIME    (RXf_PMf_MULTILINE|RXf_PMf_SINGLELINE|RXf_PMf_FOLD|RXf_PMf_EXTENDED|RXf_PMf_EXTENDED_MORE|RXf_PMf_KEEPCOPY|RXf_PMf_NOCAPTURE|RXf_PMf_CHARSET|RXf_PMf_STRICT)
+#define RXf_PMf_FLAGCOPYMASK   (RXf_PMf_COMPILETIME|RXf_PMf_SPLIT)
+
+/* Temporary to get Jenkins happy again
+ * See thread starting at http://nntp.perl.org/group/perl.perl5.porters/220710
+ */
+#if 0
+    /* Exclude win32 because it can't cope with I32_MAX definition */
+#ifndef WIN32
+#   if RXf_PMf_COMPILETIME > I32_MAX
+#     error RXf_PMf_COMPILETIME wont fit in arg2 field of eval node
+#   endif
+#endif
+#endif
+
+/* These copies need to be numerical or ext/B/Makefile.PL won't think they are
+ * constants */
+#define PMf_MULTILINE     (1U<<0)
+#define PMf_SINGLELINE    (1U<<1)
+#define PMf_FOLD          (1U<<2)
+#define PMf_EXTENDED      (1U<<3)
+#define PMf_EXTENDED_MORE (1U<<4)
+#define PMf_NOCAPTURE     (1U<<5)
+#define PMf_KEEPCOPY      (1U<<6)
+#define PMf_CHARSET       (7U<<7)
+#define PMf_STRICT        (1U<<10)
+#define PMf_SPLIT         (1U<<11)
+
+#if PMf_MULTILINE != RXf_PMf_MULTILINE || PMf_SINGLELINE != RXf_PMf_SINGLELINE || PMf_FOLD != RXf_PMf_FOLD || PMf_EXTENDED != RXf_PMf_EXTENDED || PMf_EXTENDED_MORE != RXf_PMf_EXTENDED_MORE || PMf_KEEPCOPY != RXf_PMf_KEEPCOPY || PMf_SPLIT != RXf_PMf_SPLIT || PMf_CHARSET != RXf_PMf_CHARSET || PMf_NOCAPTURE != RXf_PMf_NOCAPTURE || PMf_STRICT != RXf_PMf_STRICT
+#   error RXf_PMf defines are wrong
+#endif
+
+/*  Error check that haven't left something out of this.  This isn't done
+ *  directly in the #define because doing so confuses regcomp.pl.
+ *  (2**n - 1) is n 1 bits, so the below gets the contiguous bits between the
+ *  beginning and ending shifts */
+#if RXf_PMf_COMPILETIME != (((1 << (_RXf_PMf_SHIFT_COMPILETIME))-1) \
+                            & (~((1 << RXf_PMf_STD_PMMOD_SHIFT)-1)))
+#   error RXf_PMf_COMPILETIME is invalid
+#endif
+
+#endif /* Include only once */
diff --git a/lib/5.24.1/x86_64-linux/CORE/opcode.h b/lib/5.24.1/x86_64-linux/CORE/opcode.h
new file mode 100644
index 00000000..5ec8f58e
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/opcode.h
@@ -0,0 +1,3302 @@
+/* -*- buffer-read-only: t -*-
+ *
+ *    opcode.h
+ *
+ *    Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001,
+ *    2002, 2003, 2004, 2005, 2006, 2007 by Larry Wall and others
+ *
+ *    You may distribute under the terms of either the GNU General Public
+ *    License or the Artistic License, as specified in the README file.
+ *
+ * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+ * This file is built by regen/opcode.pl from its data.
+ * Any changes made here will be lost!
+ */
+
+#ifndef PERL_GLOBAL_STRUCT_INIT
+
+#define Perl_pp_scalar Perl_pp_null
+#define Perl_pp_padany Perl_unimplemented_op
+#define Perl_pp_regcmaybe Perl_pp_null
+#define Perl_pp_transr Perl_pp_trans
+#define Perl_pp_chomp Perl_pp_chop
+#define Perl_pp_schomp Perl_pp_schop
+#define Perl_pp_i_preinc Perl_pp_preinc
+#define Perl_pp_i_predec Perl_pp_predec
+#define Perl_pp_i_postinc Perl_pp_postinc
+#define Perl_pp_i_postdec Perl_pp_postdec
+#define Perl_pp_slt Perl_pp_sle
+#define Perl_pp_sgt Perl_pp_sle
+#define Perl_pp_sge Perl_pp_sle
+#define Perl_pp_bit_xor Perl_pp_bit_or
+#define Perl_pp_nbit_xor Perl_pp_nbit_or
+#define Perl_pp_sbit_xor Perl_pp_sbit_or
+#define Perl_pp_cos Perl_pp_sin
+#define Perl_pp_exp Perl_pp_sin
+#define Perl_pp_log Perl_pp_sin
+#define Perl_pp_sqrt Perl_pp_sin
+#define Perl_pp_hex Perl_pp_oct
+#define Perl_pp_rindex Perl_pp_index
+#define Perl_pp_lcfirst Perl_pp_ucfirst
+#define Perl_pp_aelemfast_lex Perl_pp_aelemfast
+#define Perl_pp_avalues Perl_pp_akeys
+#define Perl_pp_values Perl_do_kv
+#define Perl_pp_keys Perl_do_kv
+#define Perl_pp_rv2hv Perl_pp_rv2av
+#define Perl_pp_pop Perl_pp_shift
+#define Perl_pp_mapstart Perl_pp_grepstart
+#define Perl_pp_dor Perl_pp_defined
+#define Perl_pp_andassign Perl_pp_and
+#define Perl_pp_orassign Perl_pp_or
+#define Perl_pp_dorassign Perl_pp_defined
+#define Perl_pp_lineseq Perl_pp_null
+#define Perl_pp_scope Perl_pp_null
+#define Perl_pp_dump Perl_pp_goto
+#define Perl_pp_dbmclose Perl_pp_untie
+#define Perl_pp_read Perl_pp_sysread
+#define Perl_pp_say Perl_pp_print
+#define Perl_pp_seek Perl_pp_sysseek
+#define Perl_pp_fcntl Perl_pp_ioctl
+#ifdef HAS_SOCKET
+#define Perl_pp_send Perl_pp_syswrite
+#define Perl_pp_recv Perl_pp_sysread
+#else
+#define Perl_pp_send Perl_unimplemented_op
+#define Perl_pp_recv Perl_unimplemented_op
+#define Perl_pp_socket Perl_unimplemented_op
+#endif
+#ifdef HAS_SOCKET
+#define Perl_pp_connect Perl_pp_bind
+#define Perl_pp_gsockopt Perl_pp_ssockopt
+#define Perl_pp_getsockname Perl_pp_getpeername
+#else
+#define Perl_pp_bind Perl_unimplemented_op
+#define Perl_pp_connect Perl_unimplemented_op
+#define Perl_pp_listen Perl_unimplemented_op
+#define Perl_pp_accept Perl_unimplemented_op
+#define Perl_pp_shutdown Perl_unimplemented_op
+#define Perl_pp_gsockopt Perl_unimplemented_op
+#define Perl_pp_ssockopt Perl_unimplemented_op
+#define Perl_pp_getsockname Perl_unimplemented_op
+#define Perl_pp_getpeername Perl_unimplemented_op
+#endif
+#define Perl_pp_lstat Perl_pp_stat
+#define Perl_pp_ftrwrite Perl_pp_ftrread
+#define Perl_pp_ftrexec Perl_pp_ftrread
+#define Perl_pp_fteread Perl_pp_ftrread
+#define Perl_pp_ftewrite Perl_pp_ftrread
+#define Perl_pp_fteexec Perl_pp_ftrread
+#define Perl_pp_ftsize Perl_pp_ftis
+#define Perl_pp_ftmtime Perl_pp_ftis
+#define Perl_pp_ftatime Perl_pp_ftis
+#define Perl_pp_ftctime Perl_pp_ftis
+#define Perl_pp_fteowned Perl_pp_ftrowned
+#define Perl_pp_ftzero Perl_pp_ftrowned
+#define Perl_pp_ftsock Perl_pp_ftrowned
+#define Perl_pp_ftchr Perl_pp_ftrowned
+#define Perl_pp_ftblk Perl_pp_ftrowned
+#define Perl_pp_ftfile Perl_pp_ftrowned
+#define Perl_pp_ftdir Perl_pp_ftrowned
+#define Perl_pp_ftpipe Perl_pp_ftrowned
+#define Perl_pp_ftsuid Perl_pp_ftrowned
+#define Perl_pp_ftsgid Perl_pp_ftrowned
+#define Perl_pp_ftsvtx Perl_pp_ftrowned
+#define Perl_pp_ftbinary Perl_pp_fttext
+#define Perl_pp_unlink Perl_pp_chown
+#define Perl_pp_chmod Perl_pp_chown
+#define Perl_pp_utime Perl_pp_chown
+#define Perl_pp_symlink Perl_pp_link
+#define Perl_pp_kill Perl_pp_chown
+#define Perl_pp_localtime Perl_pp_gmtime
+#define Perl_pp_shmget Perl_pp_semget
+#define Perl_pp_shmctl Perl_pp_semctl
+#define Perl_pp_shmread Perl_pp_shmwrite
+#define Perl_pp_msgget Perl_pp_semget
+#define Perl_pp_msgctl Perl_pp_semctl
+#define Perl_pp_msgsnd Perl_pp_shmwrite
+#define Perl_pp_msgrcv Perl_pp_shmwrite
+#define Perl_pp_semop Perl_pp_shmwrite
+#define Perl_pp_dofile Perl_pp_require
+#define Perl_pp_ghbyname Perl_pp_ghostent
+#define Perl_pp_ghbyaddr Perl_pp_ghostent
+#define Perl_pp_gnbyname Perl_pp_gnetent
+#define Perl_pp_gnbyaddr Perl_pp_gnetent
+#define Perl_pp_gpbyname Perl_pp_gprotoent
+#define Perl_pp_gpbynumber Perl_pp_gprotoent
+#define Perl_pp_gsbyname Perl_pp_gservent
+#define Perl_pp_gsbyport Perl_pp_gservent
+#define Perl_pp_snetent Perl_pp_shostent
+#define Perl_pp_sprotoent Perl_pp_shostent
+#define Perl_pp_sservent Perl_pp_shostent
+#define Perl_pp_enetent Perl_pp_ehostent
+#define Perl_pp_eprotoent Perl_pp_ehostent
+#define Perl_pp_eservent Perl_pp_ehostent
+#define Perl_pp_gpwnam Perl_pp_gpwent
+#define Perl_pp_gpwuid Perl_pp_gpwent
+#define Perl_pp_spwent Perl_pp_ehostent
+#define Perl_pp_epwent Perl_pp_ehostent
+#define Perl_pp_ggrnam Perl_pp_ggrent
+#define Perl_pp_ggrgid Perl_pp_ggrent
+#define Perl_pp_sgrent Perl_pp_ehostent
+#define Perl_pp_egrent Perl_pp_ehostent
+#define Perl_pp_custom Perl_unimplemented_op
+START_EXTERN_C
+
+#ifndef DOINIT
+EXTCONST char* const PL_op_name[];
+#else
+EXTCONST char* const PL_op_name[] = {
+	"null",
+	"stub",
+	"scalar",
+	"pushmark",
+	"wantarray",
+	"const",
+	"gvsv",
+	"gv",
+	"gelem",
+	"padsv",
+	"padav",
+	"padhv",
+	"padany",
+	"pushre",
+	"rv2gv",
+	"rv2sv",
+	"av2arylen",
+	"rv2cv",
+	"anoncode",
+	"prototype",
+	"refgen",
+	"srefgen",
+	"ref",
+	"bless",
+	"backtick",
+	"glob",
+	"readline",
+	"rcatline",
+	"regcmaybe",
+	"regcreset",
+	"regcomp",
+	"match",
+	"qr",
+	"subst",
+	"substcont",
+	"trans",
+	"transr",
+	"sassign",
+	"aassign",
+	"chop",
+	"schop",
+	"chomp",
+	"schomp",
+	"defined",
+	"undef",
+	"study",
+	"pos",
+	"preinc",
+	"i_preinc",
+	"predec",
+	"i_predec",
+	"postinc",
+	"i_postinc",
+	"postdec",
+	"i_postdec",
+	"pow",
+	"multiply",
+	"i_multiply",
+	"divide",
+	"i_divide",
+	"modulo",
+	"i_modulo",
+	"repeat",
+	"add",
+	"i_add",
+	"subtract",
+	"i_subtract",
+	"concat",
+	"stringify",
+	"left_shift",
+	"right_shift",
+	"lt",
+	"i_lt",
+	"gt",
+	"i_gt",
+	"le",
+	"i_le",
+	"ge",
+	"i_ge",
+	"eq",
+	"i_eq",
+	"ne",
+	"i_ne",
+	"ncmp",
+	"i_ncmp",
+	"slt",
+	"sgt",
+	"sle",
+	"sge",
+	"seq",
+	"sne",
+	"scmp",
+	"bit_and",
+	"bit_xor",
+	"bit_or",
+	"nbit_and",
+	"nbit_xor",
+	"nbit_or",
+	"sbit_and",
+	"sbit_xor",
+	"sbit_or",
+	"negate",
+	"i_negate",
+	"not",
+	"complement",
+	"ncomplement",
+	"scomplement",
+	"smartmatch",
+	"atan2",
+	"sin",
+	"cos",
+	"rand",
+	"srand",
+	"exp",
+	"log",
+	"sqrt",
+	"int",
+	"hex",
+	"oct",
+	"abs",
+	"length",
+	"substr",
+	"vec",
+	"index",
+	"rindex",
+	"sprintf",
+	"formline",
+	"ord",
+	"chr",
+	"crypt",
+	"ucfirst",
+	"lcfirst",
+	"uc",
+	"lc",
+	"quotemeta",
+	"rv2av",
+	"aelemfast",
+	"aelemfast_lex",
+	"aelem",
+	"aslice",
+	"kvaslice",
+	"aeach",
+	"akeys",
+	"avalues",
+	"each",
+	"values",
+	"keys",
+	"delete",
+	"exists",
+	"rv2hv",
+	"helem",
+	"hslice",
+	"kvhslice",
+	"multideref",
+	"unpack",
+	"pack",
+	"split",
+	"join",
+	"list",
+	"lslice",
+	"anonlist",
+	"anonhash",
+	"splice",
+	"push",
+	"pop",
+	"shift",
+	"unshift",
+	"sort",
+	"reverse",
+	"grepstart",
+	"grepwhile",
+	"mapstart",
+	"mapwhile",
+	"range",
+	"flip",
+	"flop",
+	"and",
+	"or",
+	"xor",
+	"dor",
+	"cond_expr",
+	"andassign",
+	"orassign",
+	"dorassign",
+	"method",
+	"entersub",
+	"leavesub",
+	"leavesublv",
+	"caller",
+	"warn",
+	"die",
+	"reset",
+	"lineseq",
+	"nextstate",
+	"dbstate",
+	"unstack",
+	"enter",
+	"leave",
+	"scope",
+	"enteriter",
+	"iter",
+	"enterloop",
+	"leaveloop",
+	"return",
+	"last",
+	"next",
+	"redo",
+	"dump",
+	"goto",
+	"exit",
+	"method_named",
+	"method_super",
+	"method_redir",
+	"method_redir_super",
+	"entergiven",
+	"leavegiven",
+	"enterwhen",
+	"leavewhen",
+	"break",
+	"continue",
+	"open",
+	"close",
+	"pipe_op",
+	"fileno",
+	"umask",
+	"binmode",
+	"tie",
+	"untie",
+	"tied",
+	"dbmopen",
+	"dbmclose",
+	"sselect",
+	"select",
+	"getc",
+	"read",
+	"enterwrite",
+	"leavewrite",
+	"prtf",
+	"print",
+	"say",
+	"sysopen",
+	"sysseek",
+	"sysread",
+	"syswrite",
+	"eof",
+	"tell",
+	"seek",
+	"truncate",
+	"fcntl",
+	"ioctl",
+	"flock",
+	"send",
+	"recv",
+	"socket",
+	"sockpair",
+	"bind",
+	"connect",
+	"listen",
+	"accept",
+	"shutdown",
+	"gsockopt",
+	"ssockopt",
+	"getsockname",
+	"getpeername",
+	"lstat",
+	"stat",
+	"ftrread",
+	"ftrwrite",
+	"ftrexec",
+	"fteread",
+	"ftewrite",
+	"fteexec",
+	"ftis",
+	"ftsize",
+	"ftmtime",
+	"ftatime",
+	"ftctime",
+	"ftrowned",
+	"fteowned",
+	"ftzero",
+	"ftsock",
+	"ftchr",
+	"ftblk",
+	"ftfile",
+	"ftdir",
+	"ftpipe",
+	"ftsuid",
+	"ftsgid",
+	"ftsvtx",
+	"ftlink",
+	"fttty",
+	"fttext",
+	"ftbinary",
+	"chdir",
+	"chown",
+	"chroot",
+	"unlink",
+	"chmod",
+	"utime",
+	"rename",
+	"link",
+	"symlink",
+	"readlink",
+	"mkdir",
+	"rmdir",
+	"open_dir",
+	"readdir",
+	"telldir",
+	"seekdir",
+	"rewinddir",
+	"closedir",
+	"fork",
+	"wait",
+	"waitpid",
+	"system",
+	"exec",
+	"kill",
+	"getppid",
+	"getpgrp",
+	"setpgrp",
+	"getpriority",
+	"setpriority",
+	"time",
+	"tms",
+	"localtime",
+	"gmtime",
+	"alarm",
+	"sleep",
+	"shmget",
+	"shmctl",
+	"shmread",
+	"shmwrite",
+	"msgget",
+	"msgctl",
+	"msgsnd",
+	"msgrcv",
+	"semop",
+	"semget",
+	"semctl",
+	"require",
+	"dofile",
+	"hintseval",
+	"entereval",
+	"leaveeval",
+	"entertry",
+	"leavetry",
+	"ghbyname",
+	"ghbyaddr",
+	"ghostent",
+	"gnbyname",
+	"gnbyaddr",
+	"gnetent",
+	"gpbyname",
+	"gpbynumber",
+	"gprotoent",
+	"gsbyname",
+	"gsbyport",
+	"gservent",
+	"shostent",
+	"snetent",
+	"sprotoent",
+	"sservent",
+	"ehostent",
+	"enetent",
+	"eprotoent",
+	"eservent",
+	"gpwnam",
+	"gpwuid",
+	"gpwent",
+	"spwent",
+	"epwent",
+	"ggrnam",
+	"ggrgid",
+	"ggrent",
+	"sgrent",
+	"egrent",
+	"getlogin",
+	"syscall",
+	"lock",
+	"once",
+	"custom",
+	"coreargs",
+	"runcv",
+	"fc",
+	"padcv",
+	"introcv",
+	"clonecv",
+	"padrange",
+	"refassign",
+	"lvref",
+	"lvrefslice",
+	"lvavref",
+	"anonconst",
+	"freed",
+};
+#endif
+
+#ifndef DOINIT
+EXTCONST char* const PL_op_desc[];
+#else
+EXTCONST char* const PL_op_desc[] = {
+	"null operation",
+	"stub",
+	"scalar",
+	"pushmark",
+	"wantarray",
+	"constant item",
+	"scalar variable",
+	"glob value",
+	"glob elem",
+	"private variable",
+	"private array",
+	"private hash",
+	"private value",
+	"push regexp",
+	"ref-to-glob cast",
+	"scalar dereference",
+	"array length",
+	"subroutine dereference",
+	"anonymous subroutine",
+	"subroutine prototype",
+	"reference constructor",
+	"single ref constructor",
+	"reference-type operator",
+	"bless",
+	"quoted execution (``, qx)",
+	"glob",
+	"<HANDLE>",
+	"append I/O operator",
+	"regexp internal guard",
+	"regexp internal reset",
+	"regexp compilation",
+	"pattern match (m//)",
+	"pattern quote (qr//)",
+	"substitution (s///)",
+	"substitution iterator",
+	"transliteration (tr///)",
+	"transliteration (tr///)",
+	"scalar assignment",
+	"list assignment",
+	"chop",
+	"scalar chop",
+	"chomp",
+	"scalar chomp",
+	"defined operator",
+	"undef operator",
+	"study",
+	"match position",
+	"preincrement (++)",
+	"integer preincrement (++)",
+	"predecrement (--)",
+	"integer predecrement (--)",
+	"postincrement (++)",
+	"integer postincrement (++)",
+	"postdecrement (--)",
+	"integer postdecrement (--)",
+	"exponentiation (**)",
+	"multiplication (*)",
+	"integer multiplication (*)",
+	"division (/)",
+	"integer division (/)",
+	"modulus (%)",
+	"integer modulus (%)",
+	"repeat (x)",
+	"addition (+)",
+	"integer addition (+)",
+	"subtraction (-)",
+	"integer subtraction (-)",
+	"concatenation (.) or string",
+	"string",
+	"left bitshift (<<)",
+	"right bitshift (>>)",
+	"numeric lt (<)",
+	"integer lt (<)",
+	"numeric gt (>)",
+	"integer gt (>)",
+	"numeric le (<=)",
+	"integer le (<=)",
+	"numeric ge (>=)",
+	"integer ge (>=)",
+	"numeric eq (==)",
+	"integer eq (==)",
+	"numeric ne (!=)",
+	"integer ne (!=)",
+	"numeric comparison (<=>)",
+	"integer comparison (<=>)",
+	"string lt",
+	"string gt",
+	"string le",
+	"string ge",
+	"string eq",
+	"string ne",
+	"string comparison (cmp)",
+	"bitwise and (&)",
+	"bitwise xor (^)",
+	"bitwise or (|)",
+	"numeric bitiwse and (&)",
+	"numeric bitwise xor (^)",
+	"numeric bitwise or (|)",
+	"string bitiwse and (&)",
+	"string bitwise xor (^)",
+	"string bitwise or (|)",
+	"negation (-)",
+	"integer negation (-)",
+	"not",
+	"1's complement (~)",
+	"numeric 1's complement (~)",
+	"string 1's complement (~)",
+	"smart match",
+	"atan2",
+	"sin",
+	"cos",
+	"rand",
+	"srand",
+	"exp",
+	"log",
+	"sqrt",
+	"int",
+	"hex",
+	"oct",
+	"abs",
+	"length",
+	"substr",
+	"vec",
+	"index",
+	"rindex",
+	"sprintf",
+	"formline",
+	"ord",
+	"chr",
+	"crypt",
+	"ucfirst",
+	"lcfirst",
+	"uc",
+	"lc",
+	"quotemeta",
+	"array dereference",
+	"constant array element",
+	"constant lexical array element",
+	"array element",
+	"array slice",
+	"index/value array slice",
+	"each on array",
+	"keys on array",
+	"values on array",
+	"each",
+	"values",
+	"keys",
+	"delete",
+	"exists",
+	"hash dereference",
+	"hash element",
+	"hash slice",
+	"key/value hash slice",
+	"array or hash lookup",
+	"unpack",
+	"pack",
+	"split",
+	"join or string",
+	"list",
+	"list slice",
+	"anonymous array ([])",
+	"anonymous hash ({})",
+	"splice",
+	"push",
+	"pop",
+	"shift",
+	"unshift",
+	"sort",
+	"reverse",
+	"grep",
+	"grep iterator",
+	"map",
+	"map iterator",
+	"flipflop",
+	"range (or flip)",
+	"range (or flop)",
+	"logical and (&&)",
+	"logical or (||)",
+	"logical xor",
+	"defined or (//)",
+	"conditional expression",
+	"logical and assignment (&&=)",
+	"logical or assignment (||=)",
+	"defined or assignment (//=)",
+	"method lookup",
+	"subroutine entry",
+	"subroutine exit",
+	"lvalue subroutine return",
+	"caller",
+	"warn",
+	"die",
+	"symbol reset",
+	"line sequence",
+	"next statement",
+	"debug next statement",
+	"iteration finalizer",
+	"block entry",
+	"block exit",
+	"block",
+	"foreach loop entry",
+	"foreach loop iterator",
+	"loop entry",
+	"loop exit",
+	"return",
+	"last",
+	"next",
+	"redo",
+	"dump",
+	"goto",
+	"exit",
+	"method with known name",
+	"super with known name",
+	"redirect method with known name",
+	"redirect super method with known name",
+	"given()",
+	"leave given block",
+	"when()",
+	"leave when block",
+	"break",
+	"continue",
+	"open",
+	"close",
+	"pipe",
+	"fileno",
+	"umask",
+	"binmode",
+	"tie",
+	"untie",
+	"tied",
+	"dbmopen",
+	"dbmclose",
+	"select system call",
+	"select",
+	"getc",
+	"read",
+	"write",
+	"write exit",
+	"printf",
+	"print",
+	"say",
+	"sysopen",
+	"sysseek",
+	"sysread",
+	"syswrite",
+	"eof",
+	"tell",
+	"seek",
+	"truncate",
+	"fcntl",
+	"ioctl",
+	"flock",
+	"send",
+	"recv",
+	"socket",
+	"socketpair",
+	"bind",
+	"connect",
+	"listen",
+	"accept",
+	"shutdown",
+	"getsockopt",
+	"setsockopt",
+	"getsockname",
+	"getpeername",
+	"lstat",
+	"stat",
+	"-R",
+	"-W",
+	"-X",
+	"-r",
+	"-w",
+	"-x",
+	"-e",
+	"-s",
+	"-M",
+	"-A",
+	"-C",
+	"-O",
+	"-o",
+	"-z",
+	"-S",
+	"-c",
+	"-b",
+	"-f",
+	"-d",
+	"-p",
+	"-u",
+	"-g",
+	"-k",
+	"-l",
+	"-t",
+	"-T",
+	"-B",
+	"chdir",
+	"chown",
+	"chroot",
+	"unlink",
+	"chmod",
+	"utime",
+	"rename",
+	"link",
+	"symlink",
+	"readlink",
+	"mkdir",
+	"rmdir",
+	"opendir",
+	"readdir",
+	"telldir",
+	"seekdir",
+	"rewinddir",
+	"closedir",
+	"fork",
+	"wait",
+	"waitpid",
+	"system",
+	"exec",
+	"kill",
+	"getppid",
+	"getpgrp",
+	"setpgrp",
+	"getpriority",
+	"setpriority",
+	"time",
+	"times",
+	"localtime",
+	"gmtime",
+	"alarm",
+	"sleep",
+	"shmget",
+	"shmctl",
+	"shmread",
+	"shmwrite",
+	"msgget",
+	"msgctl",
+	"msgsnd",
+	"msgrcv",
+	"semop",
+	"semget",
+	"semctl",
+	"require",
+	"do \"file\"",
+	"eval hints",
+	"eval \"string\"",
+	"eval \"string\" exit",
+	"eval {block}",
+	"eval {block} exit",
+	"gethostbyname",
+	"gethostbyaddr",
+	"gethostent",
+	"getnetbyname",
+	"getnetbyaddr",
+	"getnetent",
+	"getprotobyname",
+	"getprotobynumber",
+	"getprotoent",
+	"getservbyname",
+	"getservbyport",
+	"getservent",
+	"sethostent",
+	"setnetent",
+	"setprotoent",
+	"setservent",
+	"endhostent",
+	"endnetent",
+	"endprotoent",
+	"endservent",
+	"getpwnam",
+	"getpwuid",
+	"getpwent",
+	"setpwent",
+	"endpwent",
+	"getgrnam",
+	"getgrgid",
+	"getgrent",
+	"setgrent",
+	"endgrent",
+	"getlogin",
+	"syscall",
+	"lock",
+	"once",
+	"unknown custom operator",
+	"CORE:: subroutine",
+	"__SUB__",
+	"fc",
+	"private subroutine",
+	"private subroutine",
+	"private subroutine",
+	"list of private variables",
+	"lvalue ref assignment",
+	"lvalue ref assignment",
+	"lvalue ref assignment",
+	"lvalue array reference",
+	"anonymous constant",
+	"freed op",
+};
+#endif
+
+END_EXTERN_C
+
+#endif /* !PERL_GLOBAL_STRUCT_INIT */
+
+START_EXTERN_C
+
+#ifdef PERL_GLOBAL_STRUCT_INIT
+#  define PERL_PPADDR_INITED
+static const Perl_ppaddr_t Gppaddr[]
+#else
+#  ifndef PERL_GLOBAL_STRUCT
+#    define PERL_PPADDR_INITED
+EXT Perl_ppaddr_t PL_ppaddr[] /* or perlvars.h */
+#  endif
+#endif /* PERL_GLOBAL_STRUCT */
+#if (defined(DOINIT) && !defined(PERL_GLOBAL_STRUCT)) || defined(PERL_GLOBAL_STRUCT_INIT)
+#  define PERL_PPADDR_INITED
+= {
+	Perl_pp_null,
+	Perl_pp_stub,
+	Perl_pp_scalar,	/* implemented by Perl_pp_null */
+	Perl_pp_pushmark,
+	Perl_pp_wantarray,
+	Perl_pp_const,
+	Perl_pp_gvsv,
+	Perl_pp_gv,
+	Perl_pp_gelem,
+	Perl_pp_padsv,
+	Perl_pp_padav,
+	Perl_pp_padhv,
+	Perl_pp_padany,	/* implemented by Perl_unimplemented_op */
+	Perl_pp_pushre,
+	Perl_pp_rv2gv,
+	Perl_pp_rv2sv,
+	Perl_pp_av2arylen,
+	Perl_pp_rv2cv,
+	Perl_pp_anoncode,
+	Perl_pp_prototype,
+	Perl_pp_refgen,
+	Perl_pp_srefgen,
+	Perl_pp_ref,
+	Perl_pp_bless,
+	Perl_pp_backtick,
+	Perl_pp_glob,
+	Perl_pp_readline,
+	Perl_pp_rcatline,
+	Perl_pp_regcmaybe,	/* implemented by Perl_pp_null */
+	Perl_pp_regcreset,
+	Perl_pp_regcomp,
+	Perl_pp_match,
+	Perl_pp_qr,
+	Perl_pp_subst,
+	Perl_pp_substcont,
+	Perl_pp_trans,
+	Perl_pp_transr,	/* implemented by Perl_pp_trans */
+	Perl_pp_sassign,
+	Perl_pp_aassign,
+	Perl_pp_chop,
+	Perl_pp_schop,
+	Perl_pp_chomp,	/* implemented by Perl_pp_chop */
+	Perl_pp_schomp,	/* implemented by Perl_pp_schop */
+	Perl_pp_defined,
+	Perl_pp_undef,
+	Perl_pp_study,
+	Perl_pp_pos,
+	Perl_pp_preinc,
+	Perl_pp_i_preinc,	/* implemented by Perl_pp_preinc */
+	Perl_pp_predec,
+	Perl_pp_i_predec,	/* implemented by Perl_pp_predec */
+	Perl_pp_postinc,
+	Perl_pp_i_postinc,	/* implemented by Perl_pp_postinc */
+	Perl_pp_postdec,
+	Perl_pp_i_postdec,	/* implemented by Perl_pp_postdec */
+	Perl_pp_pow,
+	Perl_pp_multiply,
+	Perl_pp_i_multiply,
+	Perl_pp_divide,
+	Perl_pp_i_divide,
+	Perl_pp_modulo,
+	Perl_pp_i_modulo,
+	Perl_pp_repeat,
+	Perl_pp_add,
+	Perl_pp_i_add,
+	Perl_pp_subtract,
+	Perl_pp_i_subtract,
+	Perl_pp_concat,
+	Perl_pp_stringify,
+	Perl_pp_left_shift,
+	Perl_pp_right_shift,
+	Perl_pp_lt,
+	Perl_pp_i_lt,
+	Perl_pp_gt,
+	Perl_pp_i_gt,
+	Perl_pp_le,
+	Perl_pp_i_le,
+	Perl_pp_ge,
+	Perl_pp_i_ge,
+	Perl_pp_eq,
+	Perl_pp_i_eq,
+	Perl_pp_ne,
+	Perl_pp_i_ne,
+	Perl_pp_ncmp,
+	Perl_pp_i_ncmp,
+	Perl_pp_slt,	/* implemented by Perl_pp_sle */
+	Perl_pp_sgt,	/* implemented by Perl_pp_sle */
+	Perl_pp_sle,
+	Perl_pp_sge,	/* implemented by Perl_pp_sle */
+	Perl_pp_seq,
+	Perl_pp_sne,
+	Perl_pp_scmp,
+	Perl_pp_bit_and,
+	Perl_pp_bit_xor,	/* implemented by Perl_pp_bit_or */
+	Perl_pp_bit_or,
+	Perl_pp_nbit_and,
+	Perl_pp_nbit_xor,	/* implemented by Perl_pp_nbit_or */
+	Perl_pp_nbit_or,
+	Perl_pp_sbit_and,
+	Perl_pp_sbit_xor,	/* implemented by Perl_pp_sbit_or */
+	Perl_pp_sbit_or,
+	Perl_pp_negate,
+	Perl_pp_i_negate,
+	Perl_pp_not,
+	Perl_pp_complement,
+	Perl_pp_ncomplement,
+	Perl_pp_scomplement,
+	Perl_pp_smartmatch,
+	Perl_pp_atan2,
+	Perl_pp_sin,
+	Perl_pp_cos,	/* implemented by Perl_pp_sin */
+	Perl_pp_rand,
+	Perl_pp_srand,
+	Perl_pp_exp,	/* implemented by Perl_pp_sin */
+	Perl_pp_log,	/* implemented by Perl_pp_sin */
+	Perl_pp_sqrt,	/* implemented by Perl_pp_sin */
+	Perl_pp_int,
+	Perl_pp_hex,	/* implemented by Perl_pp_oct */
+	Perl_pp_oct,
+	Perl_pp_abs,
+	Perl_pp_length,
+	Perl_pp_substr,
+	Perl_pp_vec,
+	Perl_pp_index,
+	Perl_pp_rindex,	/* implemented by Perl_pp_index */
+	Perl_pp_sprintf,
+	Perl_pp_formline,
+	Perl_pp_ord,
+	Perl_pp_chr,
+	Perl_pp_crypt,
+	Perl_pp_ucfirst,
+	Perl_pp_lcfirst,	/* implemented by Perl_pp_ucfirst */
+	Perl_pp_uc,
+	Perl_pp_lc,
+	Perl_pp_quotemeta,
+	Perl_pp_rv2av,
+	Perl_pp_aelemfast,
+	Perl_pp_aelemfast_lex,	/* implemented by Perl_pp_aelemfast */
+	Perl_pp_aelem,
+	Perl_pp_aslice,
+	Perl_pp_kvaslice,
+	Perl_pp_aeach,
+	Perl_pp_akeys,
+	Perl_pp_avalues,	/* implemented by Perl_pp_akeys */
+	Perl_pp_each,
+	Perl_pp_values,	/* implemented by Perl_do_kv */
+	Perl_pp_keys,	/* implemented by Perl_do_kv */
+	Perl_pp_delete,
+	Perl_pp_exists,
+	Perl_pp_rv2hv,	/* implemented by Perl_pp_rv2av */
+	Perl_pp_helem,
+	Perl_pp_hslice,
+	Perl_pp_kvhslice,
+	Perl_pp_multideref,
+	Perl_pp_unpack,
+	Perl_pp_pack,
+	Perl_pp_split,
+	Perl_pp_join,
+	Perl_pp_list,
+	Perl_pp_lslice,
+	Perl_pp_anonlist,
+	Perl_pp_anonhash,
+	Perl_pp_splice,
+	Perl_pp_push,
+	Perl_pp_pop,	/* implemented by Perl_pp_shift */
+	Perl_pp_shift,
+	Perl_pp_unshift,
+	Perl_pp_sort,
+	Perl_pp_reverse,
+	Perl_pp_grepstart,
+	Perl_pp_grepwhile,
+	Perl_pp_mapstart,	/* implemented by Perl_pp_grepstart */
+	Perl_pp_mapwhile,
+	Perl_pp_range,
+	Perl_pp_flip,
+	Perl_pp_flop,
+	Perl_pp_and,
+	Perl_pp_or,
+	Perl_pp_xor,
+	Perl_pp_dor,	/* implemented by Perl_pp_defined */
+	Perl_pp_cond_expr,
+	Perl_pp_andassign,	/* implemented by Perl_pp_and */
+	Perl_pp_orassign,	/* implemented by Perl_pp_or */
+	Perl_pp_dorassign,	/* implemented by Perl_pp_defined */
+	Perl_pp_method,
+	Perl_pp_entersub,
+	Perl_pp_leavesub,
+	Perl_pp_leavesublv,
+	Perl_pp_caller,
+	Perl_pp_warn,
+	Perl_pp_die,
+	Perl_pp_reset,
+	Perl_pp_lineseq,	/* implemented by Perl_pp_null */
+	Perl_pp_nextstate,
+	Perl_pp_dbstate,
+	Perl_pp_unstack,
+	Perl_pp_enter,
+	Perl_pp_leave,
+	Perl_pp_scope,	/* implemented by Perl_pp_null */
+	Perl_pp_enteriter,
+	Perl_pp_iter,
+	Perl_pp_enterloop,
+	Perl_pp_leaveloop,
+	Perl_pp_return,
+	Perl_pp_last,
+	Perl_pp_next,
+	Perl_pp_redo,
+	Perl_pp_dump,	/* implemented by Perl_pp_goto */
+	Perl_pp_goto,
+	Perl_pp_exit,
+	Perl_pp_method_named,
+	Perl_pp_method_super,
+	Perl_pp_method_redir,
+	Perl_pp_method_redir_super,
+	Perl_pp_entergiven,
+	Perl_pp_leavegiven,
+	Perl_pp_enterwhen,
+	Perl_pp_leavewhen,
+	Perl_pp_break,
+	Perl_pp_continue,
+	Perl_pp_open,
+	Perl_pp_close,
+	Perl_pp_pipe_op,
+	Perl_pp_fileno,
+	Perl_pp_umask,
+	Perl_pp_binmode,
+	Perl_pp_tie,
+	Perl_pp_untie,
+	Perl_pp_tied,
+	Perl_pp_dbmopen,
+	Perl_pp_dbmclose,	/* implemented by Perl_pp_untie */
+	Perl_pp_sselect,
+	Perl_pp_select,
+	Perl_pp_getc,
+	Perl_pp_read,	/* implemented by Perl_pp_sysread */
+	Perl_pp_enterwrite,
+	Perl_pp_leavewrite,
+	Perl_pp_prtf,
+	Perl_pp_print,
+	Perl_pp_say,	/* implemented by Perl_pp_print */
+	Perl_pp_sysopen,
+	Perl_pp_sysseek,
+	Perl_pp_sysread,
+	Perl_pp_syswrite,
+	Perl_pp_eof,
+	Perl_pp_tell,
+	Perl_pp_seek,	/* implemented by Perl_pp_sysseek */
+	Perl_pp_truncate,
+	Perl_pp_fcntl,	/* implemented by Perl_pp_ioctl */
+	Perl_pp_ioctl,
+	Perl_pp_flock,
+	Perl_pp_send,	/* implemented by Perl_pp_syswrite */
+	Perl_pp_recv,	/* implemented by Perl_pp_sysread */
+	Perl_pp_socket,
+	Perl_pp_sockpair,
+	Perl_pp_bind,
+	Perl_pp_connect,	/* implemented by Perl_pp_bind */
+	Perl_pp_listen,
+	Perl_pp_accept,
+	Perl_pp_shutdown,
+	Perl_pp_gsockopt,	/* implemented by Perl_pp_ssockopt */
+	Perl_pp_ssockopt,
+	Perl_pp_getsockname,	/* implemented by Perl_pp_getpeername */
+	Perl_pp_getpeername,
+	Perl_pp_lstat,	/* implemented by Perl_pp_stat */
+	Perl_pp_stat,
+	Perl_pp_ftrread,
+	Perl_pp_ftrwrite,	/* implemented by Perl_pp_ftrread */
+	Perl_pp_ftrexec,	/* implemented by Perl_pp_ftrread */
+	Perl_pp_fteread,	/* implemented by Perl_pp_ftrread */
+	Perl_pp_ftewrite,	/* implemented by Perl_pp_ftrread */
+	Perl_pp_fteexec,	/* implemented by Perl_pp_ftrread */
+	Perl_pp_ftis,
+	Perl_pp_ftsize,	/* implemented by Perl_pp_ftis */
+	Perl_pp_ftmtime,	/* implemented by Perl_pp_ftis */
+	Perl_pp_ftatime,	/* implemented by Perl_pp_ftis */
+	Perl_pp_ftctime,	/* implemented by Perl_pp_ftis */
+	Perl_pp_ftrowned,
+	Perl_pp_fteowned,	/* implemented by Perl_pp_ftrowned */
+	Perl_pp_ftzero,	/* implemented by Perl_pp_ftrowned */
+	Perl_pp_ftsock,	/* implemented by Perl_pp_ftrowned */
+	Perl_pp_ftchr,	/* implemented by Perl_pp_ftrowned */
+	Perl_pp_ftblk,	/* implemented by Perl_pp_ftrowned */
+	Perl_pp_ftfile,	/* implemented by Perl_pp_ftrowned */
+	Perl_pp_ftdir,	/* implemented by Perl_pp_ftrowned */
+	Perl_pp_ftpipe,	/* implemented by Perl_pp_ftrowned */
+	Perl_pp_ftsuid,	/* implemented by Perl_pp_ftrowned */
+	Perl_pp_ftsgid,	/* implemented by Perl_pp_ftrowned */
+	Perl_pp_ftsvtx,	/* implemented by Perl_pp_ftrowned */
+	Perl_pp_ftlink,
+	Perl_pp_fttty,
+	Perl_pp_fttext,
+	Perl_pp_ftbinary,	/* implemented by Perl_pp_fttext */
+	Perl_pp_chdir,
+	Perl_pp_chown,
+	Perl_pp_chroot,
+	Perl_pp_unlink,	/* implemented by Perl_pp_chown */
+	Perl_pp_chmod,	/* implemented by Perl_pp_chown */
+	Perl_pp_utime,	/* implemented by Perl_pp_chown */
+	Perl_pp_rename,
+	Perl_pp_link,
+	Perl_pp_symlink,	/* implemented by Perl_pp_link */
+	Perl_pp_readlink,
+	Perl_pp_mkdir,
+	Perl_pp_rmdir,
+	Perl_pp_open_dir,
+	Perl_pp_readdir,
+	Perl_pp_telldir,
+	Perl_pp_seekdir,
+	Perl_pp_rewinddir,
+	Perl_pp_closedir,
+	Perl_pp_fork,
+	Perl_pp_wait,
+	Perl_pp_waitpid,
+	Perl_pp_system,
+	Perl_pp_exec,
+	Perl_pp_kill,	/* implemented by Perl_pp_chown */
+	Perl_pp_getppid,
+	Perl_pp_getpgrp,
+	Perl_pp_setpgrp,
+	Perl_pp_getpriority,
+	Perl_pp_setpriority,
+	Perl_pp_time,
+	Perl_pp_tms,
+	Perl_pp_localtime,	/* implemented by Perl_pp_gmtime */
+	Perl_pp_gmtime,
+	Perl_pp_alarm,
+	Perl_pp_sleep,
+	Perl_pp_shmget,	/* implemented by Perl_pp_semget */
+	Perl_pp_shmctl,	/* implemented by Perl_pp_semctl */
+	Perl_pp_shmread,	/* implemented by Perl_pp_shmwrite */
+	Perl_pp_shmwrite,
+	Perl_pp_msgget,	/* implemented by Perl_pp_semget */
+	Perl_pp_msgctl,	/* implemented by Perl_pp_semctl */
+	Perl_pp_msgsnd,	/* implemented by Perl_pp_shmwrite */
+	Perl_pp_msgrcv,	/* implemented by Perl_pp_shmwrite */
+	Perl_pp_semop,	/* implemented by Perl_pp_shmwrite */
+	Perl_pp_semget,
+	Perl_pp_semctl,
+	Perl_pp_require,
+	Perl_pp_dofile,	/* implemented by Perl_pp_require */
+	Perl_pp_hintseval,
+	Perl_pp_entereval,
+	Perl_pp_leaveeval,
+	Perl_pp_entertry,
+	Perl_pp_leavetry,
+	Perl_pp_ghbyname,	/* implemented by Perl_pp_ghostent */
+	Perl_pp_ghbyaddr,	/* implemented by Perl_pp_ghostent */
+	Perl_pp_ghostent,
+	Perl_pp_gnbyname,	/* implemented by Perl_pp_gnetent */
+	Perl_pp_gnbyaddr,	/* implemented by Perl_pp_gnetent */
+	Perl_pp_gnetent,
+	Perl_pp_gpbyname,	/* implemented by Perl_pp_gprotoent */
+	Perl_pp_gpbynumber,	/* implemented by Perl_pp_gprotoent */
+	Perl_pp_gprotoent,
+	Perl_pp_gsbyname,	/* implemented by Perl_pp_gservent */
+	Perl_pp_gsbyport,	/* implemented by Perl_pp_gservent */
+	Perl_pp_gservent,
+	Perl_pp_shostent,
+	Perl_pp_snetent,	/* implemented by Perl_pp_shostent */
+	Perl_pp_sprotoent,	/* implemented by Perl_pp_shostent */
+	Perl_pp_sservent,	/* implemented by Perl_pp_shostent */
+	Perl_pp_ehostent,
+	Perl_pp_enetent,	/* implemented by Perl_pp_ehostent */
+	Perl_pp_eprotoent,	/* implemented by Perl_pp_ehostent */
+	Perl_pp_eservent,	/* implemented by Perl_pp_ehostent */
+	Perl_pp_gpwnam,	/* implemented by Perl_pp_gpwent */
+	Perl_pp_gpwuid,	/* implemented by Perl_pp_gpwent */
+	Perl_pp_gpwent,
+	Perl_pp_spwent,	/* implemented by Perl_pp_ehostent */
+	Perl_pp_epwent,	/* implemented by Perl_pp_ehostent */
+	Perl_pp_ggrnam,	/* implemented by Perl_pp_ggrent */
+	Perl_pp_ggrgid,	/* implemented by Perl_pp_ggrent */
+	Perl_pp_ggrent,
+	Perl_pp_sgrent,	/* implemented by Perl_pp_ehostent */
+	Perl_pp_egrent,	/* implemented by Perl_pp_ehostent */
+	Perl_pp_getlogin,
+	Perl_pp_syscall,
+	Perl_pp_lock,
+	Perl_pp_once,
+	Perl_pp_custom,	/* implemented by Perl_unimplemented_op */
+	Perl_pp_coreargs,
+	Perl_pp_runcv,
+	Perl_pp_fc,
+	Perl_pp_padcv,
+	Perl_pp_introcv,
+	Perl_pp_clonecv,
+	Perl_pp_padrange,
+	Perl_pp_refassign,
+	Perl_pp_lvref,
+	Perl_pp_lvrefslice,
+	Perl_pp_lvavref,
+	Perl_pp_anonconst,
+}
+#endif
+#ifdef PERL_PPADDR_INITED
+;
+#endif
+
+#ifdef PERL_GLOBAL_STRUCT_INIT
+#  define PERL_CHECK_INITED
+static const Perl_check_t Gcheck[]
+#else
+#  ifndef PERL_GLOBAL_STRUCT
+#    define PERL_CHECK_INITED
+EXT Perl_check_t PL_check[] /* or perlvars.h */
+#  endif
+#endif
+#if (defined(DOINIT) && !defined(PERL_GLOBAL_STRUCT)) || defined(PERL_GLOBAL_STRUCT_INIT)
+#  define PERL_CHECK_INITED
+= {
+	Perl_ck_null,		/* null */
+	Perl_ck_null,		/* stub */
+	Perl_ck_fun,		/* scalar */
+	Perl_ck_null,		/* pushmark */
+	Perl_ck_null,		/* wantarray */
+	Perl_ck_svconst,	/* const */
+	Perl_ck_null,		/* gvsv */
+	Perl_ck_null,		/* gv */
+	Perl_ck_null,		/* gelem */
+	Perl_ck_null,		/* padsv */
+	Perl_ck_null,		/* padav */
+	Perl_ck_null,		/* padhv */
+	Perl_ck_null,		/* padany */
+	Perl_ck_null,		/* pushre */
+	Perl_ck_rvconst,	/* rv2gv */
+	Perl_ck_rvconst,	/* rv2sv */
+	Perl_ck_null,		/* av2arylen */
+	Perl_ck_rvconst,	/* rv2cv */
+	Perl_ck_anoncode,	/* anoncode */
+	Perl_ck_prototype,	/* prototype */
+	Perl_ck_spair,		/* refgen */
+	Perl_ck_null,		/* srefgen */
+	Perl_ck_fun,		/* ref */
+	Perl_ck_fun,		/* bless */
+	Perl_ck_backtick,	/* backtick */
+	Perl_ck_glob,		/* glob */
+	Perl_ck_readline,	/* readline */
+	Perl_ck_null,		/* rcatline */
+	Perl_ck_fun,		/* regcmaybe */
+	Perl_ck_fun,		/* regcreset */
+	Perl_ck_null,		/* regcomp */
+	Perl_ck_match,		/* match */
+	Perl_ck_match,		/* qr */
+	Perl_ck_match,		/* subst */
+	Perl_ck_null,		/* substcont */
+	Perl_ck_match,		/* trans */
+	Perl_ck_match,		/* transr */
+	Perl_ck_sassign,	/* sassign */
+	Perl_ck_null,		/* aassign */
+	Perl_ck_spair,		/* chop */
+	Perl_ck_null,		/* schop */
+	Perl_ck_spair,		/* chomp */
+	Perl_ck_null,		/* schomp */
+	Perl_ck_defined,	/* defined */
+	Perl_ck_fun,		/* undef */
+	Perl_ck_fun,		/* study */
+	Perl_ck_fun,		/* pos */
+	Perl_ck_lfun,		/* preinc */
+	Perl_ck_lfun,		/* i_preinc */
+	Perl_ck_lfun,		/* predec */
+	Perl_ck_lfun,		/* i_predec */
+	Perl_ck_lfun,		/* postinc */
+	Perl_ck_lfun,		/* i_postinc */
+	Perl_ck_lfun,		/* postdec */
+	Perl_ck_lfun,		/* i_postdec */
+	Perl_ck_null,		/* pow */
+	Perl_ck_null,		/* multiply */
+	Perl_ck_null,		/* i_multiply */
+	Perl_ck_null,		/* divide */
+	Perl_ck_null,		/* i_divide */
+	Perl_ck_null,		/* modulo */
+	Perl_ck_null,		/* i_modulo */
+	Perl_ck_repeat,		/* repeat */
+	Perl_ck_null,		/* add */
+	Perl_ck_null,		/* i_add */
+	Perl_ck_null,		/* subtract */
+	Perl_ck_null,		/* i_subtract */
+	Perl_ck_concat,		/* concat */
+	Perl_ck_stringify,	/* stringify */
+	Perl_ck_bitop,		/* left_shift */
+	Perl_ck_bitop,		/* right_shift */
+	Perl_ck_cmp,		/* lt */
+	Perl_ck_cmp,		/* i_lt */
+	Perl_ck_cmp,		/* gt */
+	Perl_ck_cmp,		/* i_gt */
+	Perl_ck_cmp,		/* le */
+	Perl_ck_cmp,		/* i_le */
+	Perl_ck_cmp,		/* ge */
+	Perl_ck_cmp,		/* i_ge */
+	Perl_ck_null,		/* eq */
+	Perl_ck_null,		/* i_eq */
+	Perl_ck_null,		/* ne */
+	Perl_ck_null,		/* i_ne */
+	Perl_ck_null,		/* ncmp */
+	Perl_ck_null,		/* i_ncmp */
+	Perl_ck_null,		/* slt */
+	Perl_ck_null,		/* sgt */
+	Perl_ck_null,		/* sle */
+	Perl_ck_null,		/* sge */
+	Perl_ck_null,		/* seq */
+	Perl_ck_null,		/* sne */
+	Perl_ck_null,		/* scmp */
+	Perl_ck_bitop,		/* bit_and */
+	Perl_ck_bitop,		/* bit_xor */
+	Perl_ck_bitop,		/* bit_or */
+	Perl_ck_bitop,		/* nbit_and */
+	Perl_ck_bitop,		/* nbit_xor */
+	Perl_ck_bitop,		/* nbit_or */
+	Perl_ck_bitop,		/* sbit_and */
+	Perl_ck_bitop,		/* sbit_xor */
+	Perl_ck_bitop,		/* sbit_or */
+	Perl_ck_null,		/* negate */
+	Perl_ck_null,		/* i_negate */
+	Perl_ck_null,		/* not */
+	Perl_ck_bitop,		/* complement */
+	Perl_ck_bitop,		/* ncomplement */
+	Perl_ck_bitop,		/* scomplement */
+	Perl_ck_smartmatch,	/* smartmatch */
+	Perl_ck_fun,		/* atan2 */
+	Perl_ck_fun,		/* sin */
+	Perl_ck_fun,		/* cos */
+	Perl_ck_fun,		/* rand */
+	Perl_ck_fun,		/* srand */
+	Perl_ck_fun,		/* exp */
+	Perl_ck_fun,		/* log */
+	Perl_ck_fun,		/* sqrt */
+	Perl_ck_fun,		/* int */
+	Perl_ck_fun,		/* hex */
+	Perl_ck_fun,		/* oct */
+	Perl_ck_fun,		/* abs */
+	Perl_ck_length,		/* length */
+	Perl_ck_substr,		/* substr */
+	Perl_ck_fun,		/* vec */
+	Perl_ck_index,		/* index */
+	Perl_ck_index,		/* rindex */
+	Perl_ck_lfun,		/* sprintf */
+	Perl_ck_fun,		/* formline */
+	Perl_ck_fun,		/* ord */
+	Perl_ck_fun,		/* chr */
+	Perl_ck_fun,		/* crypt */
+	Perl_ck_fun,		/* ucfirst */
+	Perl_ck_fun,		/* lcfirst */
+	Perl_ck_fun,		/* uc */
+	Perl_ck_fun,		/* lc */
+	Perl_ck_fun,		/* quotemeta */
+	Perl_ck_rvconst,	/* rv2av */
+	Perl_ck_null,		/* aelemfast */
+	Perl_ck_null,		/* aelemfast_lex */
+	Perl_ck_null,		/* aelem */
+	Perl_ck_null,		/* aslice */
+	Perl_ck_null,		/* kvaslice */
+	Perl_ck_each,		/* aeach */
+	Perl_ck_each,		/* akeys */
+	Perl_ck_each,		/* avalues */
+	Perl_ck_each,		/* each */
+	Perl_ck_each,		/* values */
+	Perl_ck_each,		/* keys */
+	Perl_ck_delete,		/* delete */
+	Perl_ck_exists,		/* exists */
+	Perl_ck_rvconst,	/* rv2hv */
+	Perl_ck_null,		/* helem */
+	Perl_ck_null,		/* hslice */
+	Perl_ck_null,		/* kvhslice */
+	Perl_ck_null,		/* multideref */
+	Perl_ck_fun,		/* unpack */
+	Perl_ck_fun,		/* pack */
+	Perl_ck_split,		/* split */
+	Perl_ck_join,		/* join */
+	Perl_ck_null,		/* list */
+	Perl_ck_null,		/* lslice */
+	Perl_ck_fun,		/* anonlist */
+	Perl_ck_fun,		/* anonhash */
+	Perl_ck_fun,		/* splice */
+	Perl_ck_fun,		/* push */
+	Perl_ck_shift,		/* pop */
+	Perl_ck_shift,		/* shift */
+	Perl_ck_fun,		/* unshift */
+	Perl_ck_sort,		/* sort */
+	Perl_ck_fun,		/* reverse */
+	Perl_ck_grep,		/* grepstart */
+	Perl_ck_null,		/* grepwhile */
+	Perl_ck_grep,		/* mapstart */
+	Perl_ck_null,		/* mapwhile */
+	Perl_ck_null,		/* range */
+	Perl_ck_null,		/* flip */
+	Perl_ck_null,		/* flop */
+	Perl_ck_null,		/* and */
+	Perl_ck_null,		/* or */
+	Perl_ck_null,		/* xor */
+	Perl_ck_null,		/* dor */
+	Perl_ck_null,		/* cond_expr */
+	Perl_ck_null,		/* andassign */
+	Perl_ck_null,		/* orassign */
+	Perl_ck_null,		/* dorassign */
+	Perl_ck_method,		/* method */
+	Perl_ck_subr,		/* entersub */
+	Perl_ck_null,		/* leavesub */
+	Perl_ck_null,		/* leavesublv */
+	Perl_ck_fun,		/* caller */
+	Perl_ck_fun,		/* warn */
+	Perl_ck_fun,		/* die */
+	Perl_ck_fun,		/* reset */
+	Perl_ck_null,		/* lineseq */
+	Perl_ck_null,		/* nextstate */
+	Perl_ck_null,		/* dbstate */
+	Perl_ck_null,		/* unstack */
+	Perl_ck_null,		/* enter */
+	Perl_ck_null,		/* leave */
+	Perl_ck_null,		/* scope */
+	Perl_ck_null,		/* enteriter */
+	Perl_ck_null,		/* iter */
+	Perl_ck_null,		/* enterloop */
+	Perl_ck_null,		/* leaveloop */
+	Perl_ck_return,		/* return */
+	Perl_ck_null,		/* last */
+	Perl_ck_null,		/* next */
+	Perl_ck_null,		/* redo */
+	Perl_ck_null,		/* dump */
+	Perl_ck_null,		/* goto */
+	Perl_ck_fun,		/* exit */
+	Perl_ck_null,		/* method_named */
+	Perl_ck_null,		/* method_super */
+	Perl_ck_null,		/* method_redir */
+	Perl_ck_null,		/* method_redir_super */
+	Perl_ck_null,		/* entergiven */
+	Perl_ck_null,		/* leavegiven */
+	Perl_ck_null,		/* enterwhen */
+	Perl_ck_null,		/* leavewhen */
+	Perl_ck_null,		/* break */
+	Perl_ck_null,		/* continue */
+	Perl_ck_open,		/* open */
+	Perl_ck_fun,		/* close */
+	Perl_ck_fun,		/* pipe_op */
+	Perl_ck_fun,		/* fileno */
+	Perl_ck_fun,		/* umask */
+	Perl_ck_fun,		/* binmode */
+	Perl_ck_fun,		/* tie */
+	Perl_ck_fun,		/* untie */
+	Perl_ck_fun,		/* tied */
+	Perl_ck_fun,		/* dbmopen */
+	Perl_ck_fun,		/* dbmclose */
+	Perl_ck_select,		/* sselect */
+	Perl_ck_select,		/* select */
+	Perl_ck_eof,		/* getc */
+	Perl_ck_fun,		/* read */
+	Perl_ck_fun,		/* enterwrite */
+	Perl_ck_null,		/* leavewrite */
+	Perl_ck_listiob,	/* prtf */
+	Perl_ck_listiob,	/* print */
+	Perl_ck_listiob,	/* say */
+	Perl_ck_fun,		/* sysopen */
+	Perl_ck_fun,		/* sysseek */
+	Perl_ck_fun,		/* sysread */
+	Perl_ck_fun,		/* syswrite */
+	Perl_ck_eof,		/* eof */
+	Perl_ck_tell,		/* tell */
+	Perl_ck_tell,		/* seek */
+	Perl_ck_trunc,		/* truncate */
+	Perl_ck_fun,		/* fcntl */
+	Perl_ck_fun,		/* ioctl */
+	Perl_ck_fun,		/* flock */
+	Perl_ck_fun,		/* send */
+	Perl_ck_fun,		/* recv */
+	Perl_ck_fun,		/* socket */
+	Perl_ck_fun,		/* sockpair */
+	Perl_ck_fun,		/* bind */
+	Perl_ck_fun,		/* connect */
+	Perl_ck_fun,		/* listen */
+	Perl_ck_fun,		/* accept */
+	Perl_ck_fun,		/* shutdown */
+	Perl_ck_fun,		/* gsockopt */
+	Perl_ck_fun,		/* ssockopt */
+	Perl_ck_fun,		/* getsockname */
+	Perl_ck_fun,		/* getpeername */
+	Perl_ck_ftst,		/* lstat */
+	Perl_ck_ftst,		/* stat */
+	Perl_ck_ftst,		/* ftrread */
+	Perl_ck_ftst,		/* ftrwrite */
+	Perl_ck_ftst,		/* ftrexec */
+	Perl_ck_ftst,		/* fteread */
+	Perl_ck_ftst,		/* ftewrite */
+	Perl_ck_ftst,		/* fteexec */
+	Perl_ck_ftst,		/* ftis */
+	Perl_ck_ftst,		/* ftsize */
+	Perl_ck_ftst,		/* ftmtime */
+	Perl_ck_ftst,		/* ftatime */
+	Perl_ck_ftst,		/* ftctime */
+	Perl_ck_ftst,		/* ftrowned */
+	Perl_ck_ftst,		/* fteowned */
+	Perl_ck_ftst,		/* ftzero */
+	Perl_ck_ftst,		/* ftsock */
+	Perl_ck_ftst,		/* ftchr */
+	Perl_ck_ftst,		/* ftblk */
+	Perl_ck_ftst,		/* ftfile */
+	Perl_ck_ftst,		/* ftdir */
+	Perl_ck_ftst,		/* ftpipe */
+	Perl_ck_ftst,		/* ftsuid */
+	Perl_ck_ftst,		/* ftsgid */
+	Perl_ck_ftst,		/* ftsvtx */
+	Perl_ck_ftst,		/* ftlink */
+	Perl_ck_ftst,		/* fttty */
+	Perl_ck_ftst,		/* fttext */
+	Perl_ck_ftst,		/* ftbinary */
+	Perl_ck_trunc,		/* chdir */
+	Perl_ck_fun,		/* chown */
+	Perl_ck_fun,		/* chroot */
+	Perl_ck_fun,		/* unlink */
+	Perl_ck_fun,		/* chmod */
+	Perl_ck_fun,		/* utime */
+	Perl_ck_fun,		/* rename */
+	Perl_ck_fun,		/* link */
+	Perl_ck_fun,		/* symlink */
+	Perl_ck_fun,		/* readlink */
+	Perl_ck_fun,		/* mkdir */
+	Perl_ck_fun,		/* rmdir */
+	Perl_ck_fun,		/* open_dir */
+	Perl_ck_fun,		/* readdir */
+	Perl_ck_fun,		/* telldir */
+	Perl_ck_fun,		/* seekdir */
+	Perl_ck_fun,		/* rewinddir */
+	Perl_ck_fun,		/* closedir */
+	Perl_ck_null,		/* fork */
+	Perl_ck_null,		/* wait */
+	Perl_ck_fun,		/* waitpid */
+	Perl_ck_exec,		/* system */
+	Perl_ck_exec,		/* exec */
+	Perl_ck_fun,		/* kill */
+	Perl_ck_null,		/* getppid */
+	Perl_ck_fun,		/* getpgrp */
+	Perl_ck_fun,		/* setpgrp */
+	Perl_ck_fun,		/* getpriority */
+	Perl_ck_fun,		/* setpriority */
+	Perl_ck_null,		/* time */
+	Perl_ck_null,		/* tms */
+	Perl_ck_fun,		/* localtime */
+	Perl_ck_fun,		/* gmtime */
+	Perl_ck_fun,		/* alarm */
+	Perl_ck_fun,		/* sleep */
+	Perl_ck_fun,		/* shmget */
+	Perl_ck_fun,		/* shmctl */
+	Perl_ck_fun,		/* shmread */
+	Perl_ck_fun,		/* shmwrite */
+	Perl_ck_fun,		/* msgget */
+	Perl_ck_fun,		/* msgctl */
+	Perl_ck_fun,		/* msgsnd */
+	Perl_ck_fun,		/* msgrcv */
+	Perl_ck_fun,		/* semop */
+	Perl_ck_fun,		/* semget */
+	Perl_ck_fun,		/* semctl */
+	Perl_ck_require,	/* require */
+	Perl_ck_fun,		/* dofile */
+	Perl_ck_svconst,	/* hintseval */
+	Perl_ck_eval,		/* entereval */
+	Perl_ck_null,		/* leaveeval */
+	Perl_ck_eval,		/* entertry */
+	Perl_ck_null,		/* leavetry */
+	Perl_ck_fun,		/* ghbyname */
+	Perl_ck_fun,		/* ghbyaddr */
+	Perl_ck_null,		/* ghostent */
+	Perl_ck_fun,		/* gnbyname */
+	Perl_ck_fun,		/* gnbyaddr */
+	Perl_ck_null,		/* gnetent */
+	Perl_ck_fun,		/* gpbyname */
+	Perl_ck_fun,		/* gpbynumber */
+	Perl_ck_null,		/* gprotoent */
+	Perl_ck_fun,		/* gsbyname */
+	Perl_ck_fun,		/* gsbyport */
+	Perl_ck_null,		/* gservent */
+	Perl_ck_fun,		/* shostent */
+	Perl_ck_fun,		/* snetent */
+	Perl_ck_fun,		/* sprotoent */
+	Perl_ck_fun,		/* sservent */
+	Perl_ck_null,		/* ehostent */
+	Perl_ck_null,		/* enetent */
+	Perl_ck_null,		/* eprotoent */
+	Perl_ck_null,		/* eservent */
+	Perl_ck_fun,		/* gpwnam */
+	Perl_ck_fun,		/* gpwuid */
+	Perl_ck_null,		/* gpwent */
+	Perl_ck_null,		/* spwent */
+	Perl_ck_null,		/* epwent */
+	Perl_ck_fun,		/* ggrnam */
+	Perl_ck_fun,		/* ggrgid */
+	Perl_ck_null,		/* ggrent */
+	Perl_ck_null,		/* sgrent */
+	Perl_ck_null,		/* egrent */
+	Perl_ck_null,		/* getlogin */
+	Perl_ck_fun,		/* syscall */
+	Perl_ck_rfun,		/* lock */
+	Perl_ck_null,		/* once */
+	Perl_ck_null,		/* custom */
+	Perl_ck_null,		/* coreargs */
+	Perl_ck_null,		/* runcv */
+	Perl_ck_fun,		/* fc */
+	Perl_ck_null,		/* padcv */
+	Perl_ck_null,		/* introcv */
+	Perl_ck_null,		/* clonecv */
+	Perl_ck_null,		/* padrange */
+	Perl_ck_refassign,	/* refassign */
+	Perl_ck_null,		/* lvref */
+	Perl_ck_null,		/* lvrefslice */
+	Perl_ck_null,		/* lvavref */
+	Perl_ck_null,		/* anonconst */
+}
+#endif
+#ifdef PERL_CHECK_INITED
+;
+#endif /* #ifdef PERL_CHECK_INITED */
+
+#ifndef PERL_GLOBAL_STRUCT_INIT
+
+#ifndef DOINIT
+EXTCONST U32 PL_opargs[];
+#else
+EXTCONST U32 PL_opargs[] = {
+	0x00000000,	/* null */
+	0x00000000,	/* stub */
+	0x00001b04,	/* scalar */
+	0x00000004,	/* pushmark */
+	0x00000004,	/* wantarray */
+	0x00000604,	/* const */
+	0x00000644,	/* gvsv */
+	0x00000644,	/* gv */
+	0x00011244,	/* gelem */
+	0x00000044,	/* padsv */
+	0x00000040,	/* padav */
+	0x00000040,	/* padhv */
+	0x00000040,	/* padany */
+	0x00000540,	/* pushre */
+	0x00000144,	/* rv2gv */
+	0x00000144,	/* rv2sv */
+	0x00000104,	/* av2arylen */
+	0x00000140,	/* rv2cv */
+	0x00000604,	/* anoncode */
+	0x00009b84,	/* prototype */
+	0x00002101,	/* refgen */
+	0x00001106,	/* srefgen */
+	0x00009b8c,	/* ref */
+	0x00091404,	/* bless */
+	0x00009b88,	/* backtick */
+	0x00009408,	/* glob */
+	0x0000eb08,	/* readline */
+	0x00000608,	/* rcatline */
+	0x00001104,	/* regcmaybe */
+	0x00001104,	/* regcreset */
+	0x00001304,	/* regcomp */
+	0x00000500,	/* match */
+	0x00000504,	/* qr */
+	0x00001504,	/* subst */
+	0x00000304,	/* substcont */
+	0x00001804,	/* trans */
+	0x00001804,	/* transr */
+	0x00000004,	/* sassign */
+	0x00022208,	/* aassign */
+	0x00002b0d,	/* chop */
+	0x00009b8c,	/* schop */
+	0x00002b1d,	/* chomp */
+	0x00009b9c,	/* schomp */
+	0x00009b84,	/* defined */
+	0x0000fb04,	/* undef */
+	0x00009b84,	/* study */
+	0x0000fb8c,	/* pos */
+	0x00001164,	/* preinc */
+	0x00001144,	/* i_preinc */
+	0x00001164,	/* predec */
+	0x00001144,	/* i_predec */
+	0x0000112c,	/* postinc */
+	0x0000110c,	/* i_postinc */
+	0x0000112c,	/* postdec */
+	0x0000110c,	/* i_postdec */
+	0x0001121e,	/* pow */
+	0x0001123e,	/* multiply */
+	0x0001121e,	/* i_multiply */
+	0x0001123e,	/* divide */
+	0x0001121e,	/* i_divide */
+	0x0001123e,	/* modulo */
+	0x0001121e,	/* i_modulo */
+	0x0001220b,	/* repeat */
+	0x0001123e,	/* add */
+	0x0001121e,	/* i_add */
+	0x0001123e,	/* subtract */
+	0x0001121e,	/* i_subtract */
+	0x0001121e,	/* concat */
+	0x0000141e,	/* stringify */
+	0x0001121e,	/* left_shift */
+	0x0001121e,	/* right_shift */
+	0x00011226,	/* lt */
+	0x00011206,	/* i_lt */
+	0x00011226,	/* gt */
+	0x00011206,	/* i_gt */
+	0x00011226,	/* le */
+	0x00011206,	/* i_le */
+	0x00011226,	/* ge */
+	0x00011206,	/* i_ge */
+	0x00011226,	/* eq */
+	0x00011206,	/* i_eq */
+	0x00011226,	/* ne */
+	0x00011206,	/* i_ne */
+	0x0001122e,	/* ncmp */
+	0x0001120e,	/* i_ncmp */
+	0x00011206,	/* slt */
+	0x00011206,	/* sgt */
+	0x00011206,	/* sle */
+	0x00011206,	/* sge */
+	0x00011206,	/* seq */
+	0x00011206,	/* sne */
+	0x0001120e,	/* scmp */
+	0x0001120e,	/* bit_and */
+	0x0001120e,	/* bit_xor */
+	0x0001120e,	/* bit_or */
+	0x0001121e,	/* nbit_and */
+	0x0001121e,	/* nbit_xor */
+	0x0001121e,	/* nbit_or */
+	0x0001120e,	/* sbit_and */
+	0x0001120e,	/* sbit_xor */
+	0x0001120e,	/* sbit_or */
+	0x0000112e,	/* negate */
+	0x0000110e,	/* i_negate */
+	0x00001106,	/* not */
+	0x0000110e,	/* complement */
+	0x0000111e,	/* ncomplement */
+	0x0000111e,	/* scomplement */
+	0x00000204,	/* smartmatch */
+	0x0001141e,	/* atan2 */
+	0x00009b9e,	/* sin */
+	0x00009b9e,	/* cos */
+	0x00009b1c,	/* rand */
+	0x00009b1c,	/* srand */
+	0x00009b9e,	/* exp */
+	0x00009b9e,	/* log */
+	0x00009b9e,	/* sqrt */
+	0x00009b9e,	/* int */
+	0x00009b9e,	/* hex */
+	0x00009b9e,	/* oct */
+	0x00009b9e,	/* abs */
+	0x00009b9e,	/* length */
+	0x0991140c,	/* substr */
+	0x0011140c,	/* vec */
+	0x0091141c,	/* index */
+	0x0091141c,	/* rindex */
+	0x0002140f,	/* sprintf */
+	0x00021405,	/* formline */
+	0x00009b9e,	/* ord */
+	0x00009b9e,	/* chr */
+	0x0001141e,	/* crypt */
+	0x00009b8e,	/* ucfirst */
+	0x00009b8e,	/* lcfirst */
+	0x00009b8e,	/* uc */
+	0x00009b8e,	/* lc */
+	0x00009b8e,	/* quotemeta */
+	0x00000148,	/* rv2av */
+	0x00013644,	/* aelemfast */
+	0x00013040,	/* aelemfast_lex */
+	0x00013204,	/* aelem */
+	0x00023401,	/* aslice */
+	0x00023401,	/* kvaslice */
+	0x00003b40,	/* aeach */
+	0x00003b08,	/* akeys */
+	0x00003b48,	/* avalues */
+	0x00004b40,	/* each */
+	0x00004b48,	/* values */
+	0x00004b08,	/* keys */
+	0x00001b00,	/* delete */
+	0x00001b04,	/* exists */
+	0x00000140,	/* rv2hv */
+	0x00014204,	/* helem */
+	0x00024401,	/* hslice */
+	0x00024401,	/* kvhslice */
+	0x00000f44,	/* multideref */
+	0x00091480,	/* unpack */
+	0x0002140f,	/* pack */
+	0x00111408,	/* split */
+	0x0002140f,	/* join */
+	0x00002401,	/* list */
+	0x00224200,	/* lslice */
+	0x00002405,	/* anonlist */
+	0x00002405,	/* anonhash */
+	0x02993401,	/* splice */
+	0x0002341d,	/* push */
+	0x0000bb04,	/* pop */
+	0x0000bb04,	/* shift */
+	0x0002341d,	/* unshift */
+	0x0002d401,	/* sort */
+	0x00002409,	/* reverse */
+	0x00025401,	/* grepstart */
+	0x00000308,	/* grepwhile */
+	0x00025401,	/* mapstart */
+	0x00000308,	/* mapwhile */
+	0x00011300,	/* range */
+	0x00011100,	/* flip */
+	0x00000100,	/* flop */
+	0x00000300,	/* and */
+	0x00000300,	/* or */
+	0x00011206,	/* xor */
+	0x00000300,	/* dor */
+	0x00000300,	/* cond_expr */
+	0x00000304,	/* andassign */
+	0x00000304,	/* orassign */
+	0x00000304,	/* dorassign */
+	0x00000e40,	/* method */
+	0x00002141,	/* entersub */
+	0x00000100,	/* leavesub */
+	0x00000100,	/* leavesublv */
+	0x00009b08,	/* caller */
+	0x0000240d,	/* warn */
+	0x0000240d,	/* die */
+	0x00009b04,	/* reset */
+	0x00000400,	/* lineseq */
+	0x00000a04,	/* nextstate */
+	0x00000a04,	/* dbstate */
+	0x00000004,	/* unstack */
+	0x00000000,	/* enter */
+	0x00000400,	/* leave */
+	0x00000400,	/* scope */
+	0x00000940,	/* enteriter */
+	0x00000000,	/* iter */
+	0x00000940,	/* enterloop */
+	0x00000200,	/* leaveloop */
+	0x00002401,	/* return */
+	0x00000d04,	/* last */
+	0x00000d04,	/* next */
+	0x00000d04,	/* redo */
+	0x00000d44,	/* dump */
+	0x00000d04,	/* goto */
+	0x00009b04,	/* exit */
+	0x00000e40,	/* method_named */
+	0x00000e40,	/* method_super */
+	0x00000e40,	/* method_redir */
+	0x00000e40,	/* method_redir_super */
+	0x00000340,	/* entergiven */
+	0x00000100,	/* leavegiven */
+	0x00000340,	/* enterwhen */
+	0x00000100,	/* leavewhen */
+	0x00000000,	/* break */
+	0x00000000,	/* continue */
+	0x0029640d,	/* open */
+	0x0000eb04,	/* close */
+	0x00066404,	/* pipe_op */
+	0x00006b0c,	/* fileno */
+	0x00009b0c,	/* umask */
+	0x00096404,	/* binmode */
+	0x00217445,	/* tie */
+	0x00007b04,	/* untie */
+	0x00007b44,	/* tied */
+	0x00114404,	/* dbmopen */
+	0x00004b04,	/* dbmclose */
+	0x01111408,	/* sselect */
+	0x0000e40c,	/* select */
+	0x0000eb0c,	/* getc */
+	0x0917640d,	/* read */
+	0x0000eb04,	/* enterwrite */
+	0x00000100,	/* leavewrite */
+	0x0002e405,	/* prtf */
+	0x0002e405,	/* print */
+	0x0002e405,	/* say */
+	0x09116404,	/* sysopen */
+	0x00116404,	/* sysseek */
+	0x0917640d,	/* sysread */
+	0x0991640d,	/* syswrite */
+	0x0000eb04,	/* eof */
+	0x0000eb0c,	/* tell */
+	0x00116404,	/* seek */
+	0x00011404,	/* truncate */
+	0x0011640c,	/* fcntl */
+	0x0011640c,	/* ioctl */
+	0x0001641c,	/* flock */
+	0x0911640d,	/* send */
+	0x0117640d,	/* recv */
+	0x01116404,	/* socket */
+	0x11166404,	/* sockpair */
+	0x00016404,	/* bind */
+	0x00016404,	/* connect */
+	0x00016404,	/* listen */
+	0x0006640c,	/* accept */
+	0x0001640c,	/* shutdown */
+	0x00116404,	/* gsockopt */
+	0x01116404,	/* ssockopt */
+	0x00006b04,	/* getsockname */
+	0x00006b04,	/* getpeername */
+	0x0000ec80,	/* lstat */
+	0x0000ec80,	/* stat */
+	0x00006c84,	/* ftrread */
+	0x00006c84,	/* ftrwrite */
+	0x00006c84,	/* ftrexec */
+	0x00006c84,	/* fteread */
+	0x00006c84,	/* ftewrite */
+	0x00006c84,	/* fteexec */
+	0x00006c84,	/* ftis */
+	0x00006c8c,	/* ftsize */
+	0x00006c8c,	/* ftmtime */
+	0x00006c8c,	/* ftatime */
+	0x00006c8c,	/* ftctime */
+	0x00006c84,	/* ftrowned */
+	0x00006c84,	/* fteowned */
+	0x00006c84,	/* ftzero */
+	0x00006c84,	/* ftsock */
+	0x00006c84,	/* ftchr */
+	0x00006c84,	/* ftblk */
+	0x00006c84,	/* ftfile */
+	0x00006c84,	/* ftdir */
+	0x00006c84,	/* ftpipe */
+	0x00006c84,	/* ftsuid */
+	0x00006c84,	/* ftsgid */
+	0x00006c84,	/* ftsvtx */
+	0x00006c84,	/* ftlink */
+	0x00006c04,	/* fttty */
+	0x00006c84,	/* fttext */
+	0x00006c84,	/* ftbinary */
+	0x00009b1c,	/* chdir */
+	0x0000241d,	/* chown */
+	0x00009b9c,	/* chroot */
+	0x0000249d,	/* unlink */
+	0x0000241d,	/* chmod */
+	0x0000241d,	/* utime */
+	0x0001141c,	/* rename */
+	0x0001141c,	/* link */
+	0x0001141c,	/* symlink */
+	0x00009b8c,	/* readlink */
+	0x0009949c,	/* mkdir */
+	0x00009b9c,	/* rmdir */
+	0x00016404,	/* open_dir */
+	0x00006b00,	/* readdir */
+	0x00006b0c,	/* telldir */
+	0x00016404,	/* seekdir */
+	0x00006b04,	/* rewinddir */
+	0x00006b04,	/* closedir */
+	0x0000000c,	/* fork */
+	0x0000001c,	/* wait */
+	0x0001141c,	/* waitpid */
+	0x0002941d,	/* system */
+	0x0002941d,	/* exec */
+	0x0000241d,	/* kill */
+	0x0000001c,	/* getppid */
+	0x00009b1c,	/* getpgrp */
+	0x0009941c,	/* setpgrp */
+	0x0001141c,	/* getpriority */
+	0x0011141c,	/* setpriority */
+	0x0000001c,	/* time */
+	0x00000000,	/* tms */
+	0x00009b08,	/* localtime */
+	0x00009b08,	/* gmtime */
+	0x00009b8c,	/* alarm */
+	0x00009b1c,	/* sleep */
+	0x0011140d,	/* shmget */
+	0x0011140d,	/* shmctl */
+	0x0111140d,	/* shmread */
+	0x0111140d,	/* shmwrite */
+	0x0001140d,	/* msgget */
+	0x0011140d,	/* msgctl */
+	0x0011140d,	/* msgsnd */
+	0x1111140d,	/* msgrcv */
+	0x0001140d,	/* semop */
+	0x0011140d,	/* semget */
+	0x0111140d,	/* semctl */
+	0x00009bc4,	/* require */
+	0x00001140,	/* dofile */
+	0x00000604,	/* hintseval */
+	0x00009bc0,	/* entereval */
+	0x00001100,	/* leaveeval */
+	0x00000340,	/* entertry */
+	0x00000400,	/* leavetry */
+	0x00001b00,	/* ghbyname */
+	0x00011400,	/* ghbyaddr */
+	0x00000000,	/* ghostent */
+	0x00001b00,	/* gnbyname */
+	0x00011400,	/* gnbyaddr */
+	0x00000000,	/* gnetent */
+	0x00001b00,	/* gpbyname */
+	0x00001400,	/* gpbynumber */
+	0x00000000,	/* gprotoent */
+	0x00011400,	/* gsbyname */
+	0x00011400,	/* gsbyport */
+	0x00000000,	/* gservent */
+	0x00001b04,	/* shostent */
+	0x00001b04,	/* snetent */
+	0x00001b04,	/* sprotoent */
+	0x00001b04,	/* sservent */
+	0x00000004,	/* ehostent */
+	0x00000004,	/* enetent */
+	0x00000004,	/* eprotoent */
+	0x00000004,	/* eservent */
+	0x00001b00,	/* gpwnam */
+	0x00001b00,	/* gpwuid */
+	0x00000000,	/* gpwent */
+	0x00000004,	/* spwent */
+	0x00000004,	/* epwent */
+	0x00001b00,	/* ggrnam */
+	0x00001b00,	/* ggrgid */
+	0x00000000,	/* ggrent */
+	0x00000004,	/* sgrent */
+	0x00000004,	/* egrent */
+	0x0000000c,	/* getlogin */
+	0x0002140d,	/* syscall */
+	0x00007b04,	/* lock */
+	0x00000300,	/* once */
+	0x00000000,	/* custom */
+	0x00000600,	/* coreargs */
+	0x00000004,	/* runcv */
+	0x00009b8e,	/* fc */
+	0x00000040,	/* padcv */
+	0x00000040,	/* introcv */
+	0x00000040,	/* clonecv */
+	0x00000040,	/* padrange */
+	0x00000244,	/* refassign */
+	0x00000b40,	/* lvref */
+	0x00000440,	/* lvrefslice */
+	0x00000b40,	/* lvavref */
+	0x00000144,	/* anonconst */
+};
+#endif
+
+#endif /* !PERL_GLOBAL_STRUCT_INIT */
+
+END_EXTERN_C
+
+
+#define OPpLVREF_SV             0x00
+#define OPpARG1_MASK            0x01
+#define OPpCOREARGS_DEREF1      0x01
+#define OPpENTERSUB_INARGS      0x01
+#define OPpSORT_NUMERIC         0x01
+#define OPpTRANS_FROM_UTF       0x01
+#define OPpCONST_NOVER          0x02
+#define OPpCOREARGS_DEREF2      0x02
+#define OPpEVAL_HAS_HH          0x02
+#define OPpFT_ACCESS            0x02
+#define OPpHINT_STRICT_REFS     0x02
+#define OPpITER_REVERSED        0x02
+#define OPpSORT_INTEGER         0x02
+#define OPpTRANS_TO_UTF         0x02
+#define OPpARG2_MASK            0x03
+#define OPpCONST_SHORTCIRCUIT   0x04
+#define OPpDONT_INIT_GV         0x04
+#define OPpENTERSUB_HASTARG     0x04
+#define OPpEVAL_UNICODE         0x04
+#define OPpFT_STACKED           0x04
+#define OPpLVREF_ELEM           0x04
+#define OPpSLICEWARNING         0x04
+#define OPpSORT_REVERSE         0x04
+#define OPpTRANS_IDENTICAL      0x04
+#define OPpARG3_MASK            0x07
+#define OPpPADRANGE_COUNTSHIFT  0x07
+#define OPpCONST_STRICT         0x08
+#define OPpENTERSUB_AMPER       0x08
+#define OPpEVAL_BYTES           0x08
+#define OPpFT_STACKING          0x08
+#define OPpITER_DEF             0x08
+#define OPpLVREF_ITER           0x08
+#define OPpMAYBE_LVSUB          0x08
+#define OPpREVERSE_INPLACE      0x08
+#define OPpSORT_INPLACE         0x08
+#define OPpTRANS_SQUASH         0x08
+#define OPpARG4_MASK            0x0f
+#define OPpASSIGN_COMMON_AGG    0x10
+#define OPpCONST_ENTERED        0x10
+#define OPpDEREF_AV             0x10
+#define OPpEVAL_COPHH           0x10
+#define OPpFT_AFTER_t           0x10
+#define OPpLVREF_AV             0x10
+#define OPpMAYBE_TRUEBOOL       0x10
+#define OPpMULTIDEREF_EXISTS    0x10
+#define OPpOPEN_IN_RAW          0x10
+#define OPpSORT_DESCEND         0x10
+#define OPpSUBSTR_REPL_FIRST    0x10
+#define OPpTARGET_MY            0x10
+#define OPpASSIGN_COMMON_RC1    0x20
+#define OPpDEREF_HV             0x20
+#define OPpEARLY_CV             0x20
+#define OPpEVAL_RE_REPARSING    0x20
+#define OPpHUSH_VMSISH          0x20
+#define OPpLVREF_HV             0x20
+#define OPpMAY_RETURN_CONSTANT  0x20
+#define OPpMULTIDEREF_DELETE    0x20
+#define OPpOPEN_IN_CRLF         0x20
+#define OPpSORT_QSORT           0x20
+#define OPpTRANS_COMPLEMENT     0x20
+#define OPpTRUEBOOL             0x20
+#define OPpDEREF                0x30
+#define OPpDEREF_SV             0x30
+#define OPpLVREF_CV             0x30
+#define OPpLVREF_TYPE           0x30
+#define OPpALLOW_FAKE           0x40
+#define OPpASSIGN_BACKWARDS     0x40
+#define OPpASSIGN_COMMON_SCALAR 0x40
+#define OPpCONST_BARE           0x40
+#define OPpCOREARGS_SCALARMOD   0x40
+#define OPpENTERSUB_DB          0x40
+#define OPpEXISTS_SUB           0x40
+#define OPpFLIP_LINENUM         0x40
+#define OPpLIST_GUESSED         0x40
+#define OPpLVAL_DEFER           0x40
+#define OPpOPEN_OUT_RAW         0x40
+#define OPpOUR_INTRO            0x40
+#define OPpPAD_STATE            0x40
+#define OPpREFCOUNTED           0x40
+#define OPpREPEAT_DOLIST        0x40
+#define OPpRUNTIME              0x40
+#define OPpSLICE                0x40
+#define OPpSORT_STABLE          0x40
+#define OPpTRANS_GROWS          0x40
+#define OPpPADRANGE_COUNTMASK   0x7f
+#define OPpASSIGN_CV_TO_GV      0x80
+#define OPpCOREARGS_PUSHMARK    0x80
+#define OPpENTERSUB_NOPAREN     0x80
+#define OPpLVALUE               0x80
+#define OPpLVAL_INTRO           0x80
+#define OPpOFFBYONE             0x80
+#define OPpOPEN_OUT_CRLF        0x80
+#define OPpPV_IS_UTF8           0x80
+#define OPpSPLIT_IMPLIM         0x80
+#define OPpTRANS_DELETE         0x80
+START_EXTERN_C
+
+#ifndef PERL_GLOBAL_STRUCT_INIT
+
+#  ifndef DOINIT
+
+/* data about the flags in op_private */
+
+EXTCONST I16  PL_op_private_bitdef_ix[];
+EXTCONST U16  PL_op_private_bitdefs[];
+EXTCONST char PL_op_private_labels[];
+EXTCONST I16  PL_op_private_bitfields[];
+EXTCONST U8   PL_op_private_valid[];
+
+#  else
+
+
+/* PL_op_private_labels[]: the short descriptions of private flags.
+ * All labels are concatenated into a single char array
+ * (separated by \0's) for compactness.
+ */
+
+EXTCONST char PL_op_private_labels[] = {
+    '$','M','O','D','\0',
+    '+','1','\0',
+    '-','\0',
+    '<','U','T','F','\0',
+    '>','U','T','F','\0',
+    'A','M','P','E','R','\0',
+    'A','V','\0',
+    'B','A','R','E','\0',
+    'B','K','W','A','R','D','\0',
+    'B','O','O','L','\0',
+    'B','O','O','L','?','\0',
+    'B','Y','T','E','S','\0',
+    'C','O','M','P','L','\0',
+    'C','O','M','_','A','G','G','\0',
+    'C','O','M','_','R','C','1','\0',
+    'C','O','M','_','S','C','A','L','A','R','\0',
+    'C','O','N','S','T','\0',
+    'C','O','P','H','H','\0',
+    'C','V','\0',
+    'C','V','2','G','V','\0',
+    'D','B','G','\0',
+    'D','E','F','\0',
+    'D','E','L','\0',
+    'D','E','L','E','T','E','\0',
+    'D','E','R','E','F','1','\0',
+    'D','E','R','E','F','2','\0',
+    'D','E','S','C','\0',
+    'D','O','L','I','S','T','\0',
+    'D','R','E','F','A','V','\0',
+    'D','R','E','F','H','V','\0',
+    'D','R','E','F','S','V','\0',
+    'E','A','R','L','Y','C','V','\0',
+    'E','L','E','M','\0',
+    'E','N','T','E','R','E','D','\0',
+    'E','X','I','S','T','S','\0',
+    'F','A','K','E','\0',
+    'F','T','A','C','C','E','S','S','\0',
+    'F','T','A','F','T','E','R','t','\0',
+    'F','T','S','T','A','C','K','E','D','\0',
+    'F','T','S','T','A','C','K','I','N','G','\0',
+    'G','R','O','W','S','\0',
+    'G','U','E','S','S','E','D','\0',
+    'H','A','S','_','H','H','\0',
+    'H','U','S','H','\0',
+    'H','V','\0',
+    'I','D','E','N','T','\0',
+    'I','M','P','L','I','M','\0',
+    'I','N','A','R','G','S','\0',
+    'I','N','B','I','N','\0',
+    'I','N','C','R','\0',
+    'I','N','P','L','A','C','E','\0',
+    'I','N','T','\0',
+    'I','T','E','R','\0',
+    'L','I','N','E','N','U','M','\0',
+    'L','V','\0',
+    'L','V','D','E','F','E','R','\0',
+    'L','V','I','N','T','R','O','\0',
+    'L','V','S','U','B','\0',
+    'M','A','R','K','\0',
+    'N','O','(',')','\0',
+    'N','O','I','N','I','T','\0',
+    'N','O','V','E','R','\0',
+    'N','U','M','\0',
+    'O','U','R','I','N','T','R','\0',
+    'O','U','T','B','I','N','\0',
+    'O','U','T','C','R','\0',
+    'Q','S','O','R','T','\0',
+    'R','E','F','C','\0',
+    'R','E','P','A','R','S','E','\0',
+    'R','E','P','L','1','S','T','\0',
+    'R','E','V','\0',
+    'R','E','V','E','R','S','E','D','\0',
+    'R','T','I','M','E','\0',
+    'S','H','O','R','T','\0',
+    'S','L','I','C','E','\0',
+    'S','L','I','C','E','W','A','R','N','\0',
+    'S','Q','U','A','S','H','\0',
+    'S','T','A','B','L','E','\0',
+    'S','T','A','T','E','\0',
+    'S','T','R','I','C','T','\0',
+    'S','U','B','\0',
+    'S','V','\0',
+    'T','A','R','G','\0',
+    'T','A','R','G','M','Y','\0',
+    'U','N','I','\0',
+    'U','T','F','\0',
+
+};
+
+
+
+/* PL_op_private_bitfields[]: details about each bit field type.
+ * Each definition consists of the following list of words:
+ *    bitmin
+ *    label (index into PL_op_private_labels[]; -1 if no label)
+ *    repeat for each enum entry (if any):
+ *       enum value
+ *       enum label (index into PL_op_private_labels[])
+ *    -1
+ */
+
+EXTCONST I16 PL_op_private_bitfields[] = {
+    0, 8, -1,
+    0, 8, -1,
+    0, 8, -1,
+    0, 8, -1,
+    0, 8, -1,
+    0, 8, -1,
+    4, -1, 1, 157, 2, 164, 3, 171, -1,
+    4, -1, 0, 507, 1, 26, 2, 276, 3, 103, -1,
+
+};
+
+
+/* PL_op_private_bitdef_ix[]: map an op number to a starting position
+ * in PL_op_private_bitdefs.  If -1, the op has no bits defined */
+
+EXTCONST I16  PL_op_private_bitdef_ix[] = {
+      -1, /* null */
+      -1, /* stub */
+       0, /* scalar */
+       1, /* pushmark */
+       3, /* wantarray */
+       4, /* const */
+       9, /* gvsv */
+      11, /* gv */
+      12, /* gelem */
+      13, /* padsv */
+      16, /* padav */
+      20, /* padhv */
+      -1, /* padany */
+      26, /* pushre */
+      27, /* rv2gv */
+      34, /* rv2sv */
+      39, /* av2arylen */
+      41, /* rv2cv */
+      -1, /* anoncode */
+       0, /* prototype */
+       0, /* refgen */
+       0, /* srefgen */
+       0, /* ref */
+      48, /* bless */
+      49, /* backtick */
+      48, /* glob */
+       0, /* readline */
+      -1, /* rcatline */
+       0, /* regcmaybe */
+       0, /* regcreset */
+       0, /* regcomp */
+      26, /* match */
+      26, /* qr */
+      26, /* subst */
+      54, /* substcont */
+      56, /* trans */
+      56, /* transr */
+      63, /* sassign */
+      66, /* aassign */
+       0, /* chop */
+       0, /* schop */
+      71, /* chomp */
+      71, /* schomp */
+       0, /* defined */
+       0, /* undef */
+       0, /* study */
+      39, /* pos */
+       0, /* preinc */
+       0, /* i_preinc */
+       0, /* predec */
+       0, /* i_predec */
+       0, /* postinc */
+       0, /* i_postinc */
+       0, /* postdec */
+       0, /* i_postdec */
+      73, /* pow */
+      73, /* multiply */
+      73, /* i_multiply */
+      73, /* divide */
+      73, /* i_divide */
+      73, /* modulo */
+      73, /* i_modulo */
+      75, /* repeat */
+      73, /* add */
+      73, /* i_add */
+      73, /* subtract */
+      73, /* i_subtract */
+      73, /* concat */
+      77, /* stringify */
+      73, /* left_shift */
+      73, /* right_shift */
+      12, /* lt */
+      12, /* i_lt */
+      12, /* gt */
+      12, /* i_gt */
+      12, /* le */
+      12, /* i_le */
+      12, /* ge */
+      12, /* i_ge */
+      12, /* eq */
+      12, /* i_eq */
+      12, /* ne */
+      12, /* i_ne */
+      12, /* ncmp */
+      12, /* i_ncmp */
+      12, /* slt */
+      12, /* sgt */
+      12, /* sle */
+      12, /* sge */
+      12, /* seq */
+      12, /* sne */
+      12, /* scmp */
+      12, /* bit_and */
+      12, /* bit_xor */
+      12, /* bit_or */
+      73, /* nbit_and */
+      73, /* nbit_xor */
+      73, /* nbit_or */
+      12, /* sbit_and */
+      12, /* sbit_xor */
+      12, /* sbit_or */
+       0, /* negate */
+       0, /* i_negate */
+       0, /* not */
+       0, /* complement */
+      71, /* ncomplement */
+      71, /* scomplement */
+      12, /* smartmatch */
+      77, /* atan2 */
+      71, /* sin */
+      71, /* cos */
+      77, /* rand */
+      77, /* srand */
+      71, /* exp */
+      71, /* log */
+      71, /* sqrt */
+      71, /* int */
+      71, /* hex */
+      71, /* oct */
+      71, /* abs */
+      71, /* length */
+      79, /* substr */
+      82, /* vec */
+      77, /* index */
+      77, /* rindex */
+      48, /* sprintf */
+      48, /* formline */
+      71, /* ord */
+      71, /* chr */
+      77, /* crypt */
+       0, /* ucfirst */
+       0, /* lcfirst */
+       0, /* uc */
+       0, /* lc */
+       0, /* quotemeta */
+      84, /* rv2av */
+      90, /* aelemfast */
+      90, /* aelemfast_lex */
+      91, /* aelem */
+      96, /* aslice */
+      99, /* kvaslice */
+       0, /* aeach */
+       0, /* akeys */
+       0, /* avalues */
+       0, /* each */
+       0, /* values */
+      39, /* keys */
+     100, /* delete */
+     103, /* exists */
+     105, /* rv2hv */
+      91, /* helem */
+      96, /* hslice */
+      99, /* kvhslice */
+     113, /* multideref */
+      48, /* unpack */
+      48, /* pack */
+     120, /* split */
+      48, /* join */
+     122, /* list */
+      12, /* lslice */
+      48, /* anonlist */
+      48, /* anonhash */
+      48, /* splice */
+      77, /* push */
+       0, /* pop */
+       0, /* shift */
+      77, /* unshift */
+     124, /* sort */
+     131, /* reverse */
+       0, /* grepstart */
+       0, /* grepwhile */
+       0, /* mapstart */
+       0, /* mapwhile */
+       0, /* range */
+     133, /* flip */
+     133, /* flop */
+       0, /* and */
+       0, /* or */
+      12, /* xor */
+       0, /* dor */
+     135, /* cond_expr */
+       0, /* andassign */
+       0, /* orassign */
+       0, /* dorassign */
+       0, /* method */
+     137, /* entersub */
+     144, /* leavesub */
+     144, /* leavesublv */
+     146, /* caller */
+      48, /* warn */
+      48, /* die */
+      48, /* reset */
+      -1, /* lineseq */
+     148, /* nextstate */
+     148, /* dbstate */
+      -1, /* unstack */
+      -1, /* enter */
+     149, /* leave */
+      -1, /* scope */
+     151, /* enteriter */
+     155, /* iter */
+      -1, /* enterloop */
+     156, /* leaveloop */
+      -1, /* return */
+     158, /* last */
+     158, /* next */
+     158, /* redo */
+     158, /* dump */
+     158, /* goto */
+      48, /* exit */
+       0, /* method_named */
+       0, /* method_super */
+       0, /* method_redir */
+       0, /* method_redir_super */
+       0, /* entergiven */
+       0, /* leavegiven */
+       0, /* enterwhen */
+       0, /* leavewhen */
+      -1, /* break */
+      -1, /* continue */
+     160, /* open */
+      48, /* close */
+      48, /* pipe_op */
+      48, /* fileno */
+      48, /* umask */
+      48, /* binmode */
+      48, /* tie */
+       0, /* untie */
+       0, /* tied */
+      48, /* dbmopen */
+       0, /* dbmclose */
+      48, /* sselect */
+      48, /* select */
+      48, /* getc */
+      48, /* read */
+      48, /* enterwrite */
+     144, /* leavewrite */
+      -1, /* prtf */
+      -1, /* print */
+      -1, /* say */
+      48, /* sysopen */
+      48, /* sysseek */
+      48, /* sysread */
+      48, /* syswrite */
+      48, /* eof */
+      48, /* tell */
+      48, /* seek */
+      48, /* truncate */
+      48, /* fcntl */
+      48, /* ioctl */
+      77, /* flock */
+      48, /* send */
+      48, /* recv */
+      48, /* socket */
+      48, /* sockpair */
+      48, /* bind */
+      48, /* connect */
+      48, /* listen */
+      48, /* accept */
+      48, /* shutdown */
+      48, /* gsockopt */
+      48, /* ssockopt */
+       0, /* getsockname */
+       0, /* getpeername */
+       0, /* lstat */
+       0, /* stat */
+     165, /* ftrread */
+     165, /* ftrwrite */
+     165, /* ftrexec */
+     165, /* fteread */
+     165, /* ftewrite */
+     165, /* fteexec */
+     170, /* ftis */
+     170, /* ftsize */
+     170, /* ftmtime */
+     170, /* ftatime */
+     170, /* ftctime */
+     170, /* ftrowned */
+     170, /* fteowned */
+     170, /* ftzero */
+     170, /* ftsock */
+     170, /* ftchr */
+     170, /* ftblk */
+     170, /* ftfile */
+     170, /* ftdir */
+     170, /* ftpipe */
+     170, /* ftsuid */
+     170, /* ftsgid */
+     170, /* ftsvtx */
+     170, /* ftlink */
+     170, /* fttty */
+     170, /* fttext */
+     170, /* ftbinary */
+      77, /* chdir */
+      77, /* chown */
+      71, /* chroot */
+      77, /* unlink */
+      77, /* chmod */
+      77, /* utime */
+      77, /* rename */
+      77, /* link */
+      77, /* symlink */
+       0, /* readlink */
+      77, /* mkdir */
+      71, /* rmdir */
+      48, /* open_dir */
+       0, /* readdir */
+       0, /* telldir */
+      48, /* seekdir */
+       0, /* rewinddir */
+       0, /* closedir */
+      -1, /* fork */
+     174, /* wait */
+      77, /* waitpid */
+      77, /* system */
+      77, /* exec */
+      77, /* kill */
+     174, /* getppid */
+      77, /* getpgrp */
+      77, /* setpgrp */
+      77, /* getpriority */
+      77, /* setpriority */
+     174, /* time */
+      -1, /* tms */
+       0, /* localtime */
+      48, /* gmtime */
+       0, /* alarm */
+      77, /* sleep */
+      48, /* shmget */
+      48, /* shmctl */
+      48, /* shmread */
+      48, /* shmwrite */
+      48, /* msgget */
+      48, /* msgctl */
+      48, /* msgsnd */
+      48, /* msgrcv */
+      48, /* semop */
+      48, /* semget */
+      48, /* semctl */
+       0, /* require */
+       0, /* dofile */
+      -1, /* hintseval */
+     175, /* entereval */
+     144, /* leaveeval */
+       0, /* entertry */
+      -1, /* leavetry */
+       0, /* ghbyname */
+      48, /* ghbyaddr */
+      -1, /* ghostent */
+       0, /* gnbyname */
+      48, /* gnbyaddr */
+      -1, /* gnetent */
+       0, /* gpbyname */
+      48, /* gpbynumber */
+      -1, /* gprotoent */
+      48, /* gsbyname */
+      48, /* gsbyport */
+      -1, /* gservent */
+       0, /* shostent */
+       0, /* snetent */
+       0, /* sprotoent */
+       0, /* sservent */
+      -1, /* ehostent */
+      -1, /* enetent */
+      -1, /* eprotoent */
+      -1, /* eservent */
+       0, /* gpwnam */
+       0, /* gpwuid */
+      -1, /* gpwent */
+      -1, /* spwent */
+      -1, /* epwent */
+       0, /* ggrnam */
+       0, /* ggrgid */
+      -1, /* ggrent */
+      -1, /* sgrent */
+      -1, /* egrent */
+      -1, /* getlogin */
+      48, /* syscall */
+       0, /* lock */
+       0, /* once */
+      -1, /* custom */
+     181, /* coreargs */
+       3, /* runcv */
+       0, /* fc */
+      -1, /* padcv */
+      -1, /* introcv */
+      -1, /* clonecv */
+     185, /* padrange */
+     187, /* refassign */
+     193, /* lvref */
+     199, /* lvrefslice */
+     200, /* lvavref */
+       0, /* anonconst */
+
+};
+
+
+
+/* PL_op_private_bitdefs[]: given a starting position in this array (as
+ * supplied by PL_op_private_bitdef_ix[]), each word (until a stop bit is
+ * seen) defines the meaning of a particular op_private bit for a
+ * particular op. Each word consists of:
+ *  bit  0:     stop bit: this is the last bit def for the current op
+ *  bit  1:     bitfield: if set, this defines a bit field rather than a flag
+ *  bits 2..4:  unsigned number in the range 0..7 which is the bit number
+ *  bits 5..15: unsigned number in the range 0..2047 which is an index
+ *              into PL_op_private_labels[]    (for a flag), or
+ *              into PL_op_private_bitfields[] (for a bit field)
+ */
+
+EXTCONST U16  PL_op_private_bitdefs[] = {
+    0x0003, /* scalar, prototype, refgen, srefgen, ref, readline, regcmaybe, regcreset, regcomp, chop, schop, defined, undef, study, preinc, i_preinc, predec, i_predec, postinc, i_postinc, postdec, i_postdec, negate, i_negate, not, complement, ucfirst, lcfirst, uc, lc, quotemeta, aeach, akeys, avalues, each, values, pop, shift, grepstart, grepwhile, mapstart, mapwhile, range, and, or, dor, andassign, orassign, dorassign, method, method_named, method_super, method_redir, method_redir_super, entergiven, leavegiven, enterwhen, leavewhen, untie, tied, dbmclose, getsockname, getpeername, lstat, stat, readlink, readdir, telldir, rewinddir, closedir, localtime, alarm, require, dofile, entertry, ghbyname, gnbyname, gpbyname, shostent, snetent, sprotoent, sservent, gpwnam, gpwuid, ggrnam, ggrgid, lock, once, fc, anonconst */
+    0x2b5c, 0x3d59, /* pushmark */
+    0x00bd, /* wantarray, runcv */
+    0x03b8, 0x17f0, 0x3e0c, 0x38c8, 0x2f25, /* const */
+    0x2b5c, 0x3079, /* gvsv */
+    0x1655, /* gv */
+    0x0067, /* gelem, lt, i_lt, gt, i_gt, le, i_le, ge, i_ge, eq, i_eq, ne, i_ne, ncmp, i_ncmp, slt, sgt, sle, sge, seq, sne, scmp, bit_and, bit_xor, bit_or, sbit_and, sbit_xor, sbit_or, smartmatch, lslice, xor */
+    0x2b5c, 0x3d58, 0x0257, /* padsv */
+    0x2b5c, 0x3d58, 0x2c4c, 0x3a49, /* padav */
+    0x2b5c, 0x3d58, 0x0534, 0x05d0, 0x2c4c, 0x3a49, /* padhv */
+    0x3819, /* pushre, match, qr, subst */
+    0x2b5c, 0x19d8, 0x0256, 0x2c4c, 0x2e48, 0x3e04, 0x0003, /* rv2gv */
+    0x2b5c, 0x3078, 0x0256, 0x3e04, 0x0003, /* rv2sv */
+    0x2c4c, 0x0003, /* av2arylen, pos, keys */
+    0x2dbc, 0x0e18, 0x0b74, 0x028c, 0x3fc8, 0x3e04, 0x0003, /* rv2cv */
+    0x012f, /* bless, glob, sprintf, formline, unpack, pack, join, anonlist, anonhash, splice, warn, die, reset, exit, close, pipe_op, fileno, umask, binmode, tie, dbmopen, sselect, select, getc, read, enterwrite, sysopen, sysseek, sysread, syswrite, eof, tell, seek, truncate, fcntl, ioctl, send, recv, socket, sockpair, bind, connect, listen, accept, shutdown, gsockopt, ssockopt, open_dir, seekdir, gmtime, shmget, shmctl, shmread, shmwrite, msgget, msgctl, msgsnd, msgrcv, semop, semget, semctl, ghbyaddr, gnbyaddr, gpbynumber, gsbyname, gsbyport, syscall */
+    0x325c, 0x3178, 0x2634, 0x2570, 0x0003, /* backtick */
+    0x3818, 0x0003, /* substcont */
+    0x0f1c, 0x1f58, 0x0754, 0x3b8c, 0x22e8, 0x01e4, 0x0141, /* trans, transr */
+    0x0d5c, 0x0458, 0x0067, /* sassign */
+    0x0a18, 0x0914, 0x0810, 0x2c4c, 0x0067, /* aassign */
+    0x4070, 0x0003, /* chomp, schomp, ncomplement, scomplement, sin, cos, exp, log, sqrt, int, hex, oct, abs, length, ord, chr, chroot, rmdir */
+    0x4070, 0x0067, /* pow, multiply, i_multiply, divide, i_divide, modulo, i_modulo, add, i_add, subtract, i_subtract, concat, left_shift, right_shift, nbit_and, nbit_xor, nbit_or */
+    0x12d8, 0x0067, /* repeat */
+    0x4070, 0x012f, /* stringify, atan2, rand, srand, index, rindex, crypt, push, unshift, flock, chdir, chown, unlink, chmod, utime, rename, link, symlink, mkdir, waitpid, system, exec, kill, getpgrp, setpgrp, getpriority, setpriority, sleep */
+    0x3570, 0x2c4c, 0x00cb, /* substr */
+    0x2c4c, 0x0067, /* vec */
+    0x2b5c, 0x3078, 0x2c4c, 0x3a48, 0x3e04, 0x0003, /* rv2av */
+    0x01ff, /* aelemfast, aelemfast_lex */
+    0x2b5c, 0x2a58, 0x0256, 0x2c4c, 0x0067, /* aelem, helem */
+    0x2b5c, 0x2c4c, 0x3a49, /* aslice, hslice */
+    0x2c4d, /* kvaslice, kvhslice */
+    0x2b5c, 0x3998, 0x0003, /* delete */
+    0x3ef8, 0x0003, /* exists */
+    0x2b5c, 0x3078, 0x0534, 0x05d0, 0x2c4c, 0x3a48, 0x3e04, 0x0003, /* rv2hv */
+    0x2b5c, 0x2a58, 0x0f94, 0x18f0, 0x2c4c, 0x3e04, 0x0003, /* multideref */
+    0x23bc, 0x3079, /* split */
+    0x2b5c, 0x2019, /* list */
+    0x3c78, 0x3314, 0x1230, 0x26cc, 0x3668, 0x27c4, 0x2fe1, /* sort */
+    0x26cc, 0x0003, /* reverse */
+    0x28f8, 0x0003, /* flip, flop */
+    0x2b5c, 0x0003, /* cond_expr */
+    0x2b5c, 0x0e18, 0x0256, 0x028c, 0x3fc8, 0x3e04, 0x2481, /* entersub */
+    0x33d8, 0x0003, /* leavesub, leavesublv, leavewrite, leaveeval */
+    0x00bc, 0x012f, /* caller */
+    0x21f5, /* nextstate, dbstate */
+    0x29fc, 0x33d9, /* leave */
+    0x2b5c, 0x3078, 0x0e8c, 0x36e5, /* enteriter */
+    0x36e5, /* iter */
+    0x29fc, 0x0067, /* leaveloop */
+    0x41dc, 0x0003, /* last, next, redo, dump, goto */
+    0x325c, 0x3178, 0x2634, 0x2570, 0x012f, /* open */
+    0x1b90, 0x1dec, 0x1ca8, 0x1a64, 0x0003, /* ftrread, ftrwrite, ftrexec, fteread, ftewrite, fteexec */
+    0x1b90, 0x1dec, 0x1ca8, 0x0003, /* ftis, ftsize, ftmtime, ftatime, ftctime, ftrowned, fteowned, ftzero, ftsock, ftchr, ftblk, ftfile, ftdir, ftpipe, ftsuid, ftsgid, ftsvtx, ftlink, fttty, fttext, ftbinary */
+    0x4071, /* wait, getppid, time */
+    0x3474, 0x0c30, 0x068c, 0x4148, 0x2104, 0x0003, /* entereval */
+    0x2d1c, 0x0018, 0x1144, 0x1061, /* coreargs */
+    0x2b5c, 0x019b, /* padrange */
+    0x2b5c, 0x3d58, 0x0376, 0x284c, 0x1748, 0x0067, /* refassign */
+    0x2b5c, 0x3d58, 0x0376, 0x284c, 0x1748, 0x0003, /* lvref */
+    0x2b5d, /* lvrefslice */
+    0x2b5c, 0x3d58, 0x0003, /* lvavref */
+
+};
+
+
+/* PL_op_private_valid: for each op, indexed by op_type, indicate which
+ * flags bits in op_private are legal */
+
+EXTCONST U8 PL_op_private_valid[] = {
+    /* NULL       */ (0xff),
+    /* STUB       */ (0),
+    /* SCALAR     */ (OPpARG1_MASK),
+    /* PUSHMARK   */ (OPpPAD_STATE|OPpLVAL_INTRO),
+    /* WANTARRAY  */ (OPpOFFBYONE),
+    /* CONST      */ (OPpCONST_NOVER|OPpCONST_SHORTCIRCUIT|OPpCONST_STRICT|OPpCONST_ENTERED|OPpCONST_BARE),
+    /* GVSV       */ (OPpOUR_INTRO|OPpLVAL_INTRO),
+    /* GV         */ (OPpEARLY_CV),
+    /* GELEM      */ (OPpARG2_MASK),
+    /* PADSV      */ (OPpDEREF|OPpPAD_STATE|OPpLVAL_INTRO),
+    /* PADAV      */ (OPpSLICEWARNING|OPpMAYBE_LVSUB|OPpPAD_STATE|OPpLVAL_INTRO),
+    /* PADHV      */ (OPpSLICEWARNING|OPpMAYBE_LVSUB|OPpMAYBE_TRUEBOOL|OPpTRUEBOOL|OPpPAD_STATE|OPpLVAL_INTRO),
+    /* PADANY     */ (0),
+    /* PUSHRE     */ (OPpRUNTIME),
+    /* RV2GV      */ (OPpARG1_MASK|OPpHINT_STRICT_REFS|OPpDONT_INIT_GV|OPpMAYBE_LVSUB|OPpDEREF|OPpALLOW_FAKE|OPpLVAL_INTRO),
+    /* RV2SV      */ (OPpARG1_MASK|OPpHINT_STRICT_REFS|OPpDEREF|OPpOUR_INTRO|OPpLVAL_INTRO),
+    /* AV2ARYLEN  */ (OPpARG1_MASK|OPpMAYBE_LVSUB),
+    /* RV2CV      */ (OPpARG1_MASK|OPpHINT_STRICT_REFS|OPpENTERSUB_HASTARG|OPpENTERSUB_AMPER|OPpMAY_RETURN_CONSTANT|OPpENTERSUB_DB|OPpENTERSUB_NOPAREN),
+    /* ANONCODE   */ (0),
+    /* PROTOTYPE  */ (OPpARG1_MASK),
+    /* REFGEN     */ (OPpARG1_MASK),
+    /* SREFGEN    */ (OPpARG1_MASK),
+    /* REF        */ (OPpARG1_MASK),
+    /* BLESS      */ (OPpARG4_MASK),
+    /* BACKTICK   */ (OPpARG1_MASK|OPpOPEN_IN_RAW|OPpOPEN_IN_CRLF|OPpOPEN_OUT_RAW|OPpOPEN_OUT_CRLF),
+    /* GLOB       */ (OPpARG4_MASK),
+    /* READLINE   */ (OPpARG1_MASK),
+    /* RCATLINE   */ (0),
+    /* REGCMAYBE  */ (OPpARG1_MASK),
+    /* REGCRESET  */ (OPpARG1_MASK),
+    /* REGCOMP    */ (OPpARG1_MASK),
+    /* MATCH      */ (OPpRUNTIME),
+    /* QR         */ (OPpRUNTIME),
+    /* SUBST      */ (OPpRUNTIME),
+    /* SUBSTCONT  */ (OPpARG1_MASK|OPpRUNTIME),
+    /* TRANS      */ (OPpTRANS_FROM_UTF|OPpTRANS_TO_UTF|OPpTRANS_IDENTICAL|OPpTRANS_SQUASH|OPpTRANS_COMPLEMENT|OPpTRANS_GROWS|OPpTRANS_DELETE),
+    /* TRANSR     */ (OPpTRANS_FROM_UTF|OPpTRANS_TO_UTF|OPpTRANS_IDENTICAL|OPpTRANS_SQUASH|OPpTRANS_COMPLEMENT|OPpTRANS_GROWS|OPpTRANS_DELETE),
+    /* SASSIGN    */ (OPpARG2_MASK|OPpASSIGN_BACKWARDS|OPpASSIGN_CV_TO_GV),
+    /* AASSIGN    */ (OPpARG2_MASK|OPpMAYBE_LVSUB|OPpASSIGN_COMMON_AGG|OPpASSIGN_COMMON_RC1|OPpASSIGN_COMMON_SCALAR),
+    /* CHOP       */ (OPpARG1_MASK),
+    /* SCHOP      */ (OPpARG1_MASK),
+    /* CHOMP      */ (OPpARG1_MASK|OPpTARGET_MY),
+    /* SCHOMP     */ (OPpARG1_MASK|OPpTARGET_MY),
+    /* DEFINED    */ (OPpARG1_MASK),
+    /* UNDEF      */ (OPpARG1_MASK),
+    /* STUDY      */ (OPpARG1_MASK),
+    /* POS        */ (OPpARG1_MASK|OPpMAYBE_LVSUB),
+    /* PREINC     */ (OPpARG1_MASK),
+    /* I_PREINC   */ (OPpARG1_MASK),
+    /* PREDEC     */ (OPpARG1_MASK),
+    /* I_PREDEC   */ (OPpARG1_MASK),
+    /* POSTINC    */ (OPpARG1_MASK),
+    /* I_POSTINC  */ (OPpARG1_MASK),
+    /* POSTDEC    */ (OPpARG1_MASK),
+    /* I_POSTDEC  */ (OPpARG1_MASK),
+    /* POW        */ (OPpARG2_MASK|OPpTARGET_MY),
+    /* MULTIPLY   */ (OPpARG2_MASK|OPpTARGET_MY),
+    /* I_MULTIPLY */ (OPpARG2_MASK|OPpTARGET_MY),
+    /* DIVIDE     */ (OPpARG2_MASK|OPpTARGET_MY),
+    /* I_DIVIDE   */ (OPpARG2_MASK|OPpTARGET_MY),
+    /* MODULO     */ (OPpARG2_MASK|OPpTARGET_MY),
+    /* I_MODULO   */ (OPpARG2_MASK|OPpTARGET_MY),
+    /* REPEAT     */ (OPpARG2_MASK|OPpREPEAT_DOLIST),
+    /* ADD        */ (OPpARG2_MASK|OPpTARGET_MY),
+    /* I_ADD      */ (OPpARG2_MASK|OPpTARGET_MY),
+    /* SUBTRACT   */ (OPpARG2_MASK|OPpTARGET_MY),
+    /* I_SUBTRACT */ (OPpARG2_MASK|OPpTARGET_MY),
+    /* CONCAT     */ (OPpARG2_MASK|OPpTARGET_MY),
+    /* STRINGIFY  */ (OPpARG4_MASK|OPpTARGET_MY),
+    /* LEFT_SHIFT */ (OPpARG2_MASK|OPpTARGET_MY),
+    /* RIGHT_SHIFT */ (OPpARG2_MASK|OPpTARGET_MY),
+    /* LT         */ (OPpARG2_MASK),
+    /* I_LT       */ (OPpARG2_MASK),
+    /* GT         */ (OPpARG2_MASK),
+    /* I_GT       */ (OPpARG2_MASK),
+    /* LE         */ (OPpARG2_MASK),
+    /* I_LE       */ (OPpARG2_MASK),
+    /* GE         */ (OPpARG2_MASK),
+    /* I_GE       */ (OPpARG2_MASK),
+    /* EQ         */ (OPpARG2_MASK),
+    /* I_EQ       */ (OPpARG2_MASK),
+    /* NE         */ (OPpARG2_MASK),
+    /* I_NE       */ (OPpARG2_MASK),
+    /* NCMP       */ (OPpARG2_MASK),
+    /* I_NCMP     */ (OPpARG2_MASK),
+    /* SLT        */ (OPpARG2_MASK),
+    /* SGT        */ (OPpARG2_MASK),
+    /* SLE        */ (OPpARG2_MASK),
+    /* SGE        */ (OPpARG2_MASK),
+    /* SEQ        */ (OPpARG2_MASK),
+    /* SNE        */ (OPpARG2_MASK),
+    /* SCMP       */ (OPpARG2_MASK),
+    /* BIT_AND    */ (OPpARG2_MASK),
+    /* BIT_XOR    */ (OPpARG2_MASK),
+    /* BIT_OR     */ (OPpARG2_MASK),
+    /* NBIT_AND   */ (OPpARG2_MASK|OPpTARGET_MY),
+    /* NBIT_XOR   */ (OPpARG2_MASK|OPpTARGET_MY),
+    /* NBIT_OR    */ (OPpARG2_MASK|OPpTARGET_MY),
+    /* SBIT_AND   */ (OPpARG2_MASK),
+    /* SBIT_XOR   */ (OPpARG2_MASK),
+    /* SBIT_OR    */ (OPpARG2_MASK),
+    /* NEGATE     */ (OPpARG1_MASK),
+    /* I_NEGATE   */ (OPpARG1_MASK),
+    /* NOT        */ (OPpARG1_MASK),
+    /* COMPLEMENT */ (OPpARG1_MASK),
+    /* NCOMPLEMENT */ (OPpARG1_MASK|OPpTARGET_MY),
+    /* SCOMPLEMENT */ (OPpARG1_MASK|OPpTARGET_MY),
+    /* SMARTMATCH */ (OPpARG2_MASK),
+    /* ATAN2      */ (OPpARG4_MASK|OPpTARGET_MY),
+    /* SIN        */ (OPpARG1_MASK|OPpTARGET_MY),
+    /* COS        */ (OPpARG1_MASK|OPpTARGET_MY),
+    /* RAND       */ (OPpARG4_MASK|OPpTARGET_MY),
+    /* SRAND      */ (OPpARG4_MASK|OPpTARGET_MY),
+    /* EXP        */ (OPpARG1_MASK|OPpTARGET_MY),
+    /* LOG        */ (OPpARG1_MASK|OPpTARGET_MY),
+    /* SQRT       */ (OPpARG1_MASK|OPpTARGET_MY),
+    /* INT        */ (OPpARG1_MASK|OPpTARGET_MY),
+    /* HEX        */ (OPpARG1_MASK|OPpTARGET_MY),
+    /* OCT        */ (OPpARG1_MASK|OPpTARGET_MY),
+    /* ABS        */ (OPpARG1_MASK|OPpTARGET_MY),
+    /* LENGTH     */ (OPpARG1_MASK|OPpTARGET_MY),
+    /* SUBSTR     */ (OPpARG3_MASK|OPpMAYBE_LVSUB|OPpSUBSTR_REPL_FIRST),
+    /* VEC        */ (OPpARG2_MASK|OPpMAYBE_LVSUB),
+    /* INDEX      */ (OPpARG4_MASK|OPpTARGET_MY),
+    /* RINDEX     */ (OPpARG4_MASK|OPpTARGET_MY),
+    /* SPRINTF    */ (OPpARG4_MASK),
+    /* FORMLINE   */ (OPpARG4_MASK),
+    /* ORD        */ (OPpARG1_MASK|OPpTARGET_MY),
+    /* CHR        */ (OPpARG1_MASK|OPpTARGET_MY),
+    /* CRYPT      */ (OPpARG4_MASK|OPpTARGET_MY),
+    /* UCFIRST    */ (OPpARG1_MASK),
+    /* LCFIRST    */ (OPpARG1_MASK),
+    /* UC         */ (OPpARG1_MASK),
+    /* LC         */ (OPpARG1_MASK),
+    /* QUOTEMETA  */ (OPpARG1_MASK),
+    /* RV2AV      */ (OPpARG1_MASK|OPpHINT_STRICT_REFS|OPpSLICEWARNING|OPpMAYBE_LVSUB|OPpOUR_INTRO|OPpLVAL_INTRO),
+    /* AELEMFAST  */ (255),
+    /* AELEMFAST_LEX */ (255),
+    /* AELEM      */ (OPpARG2_MASK|OPpMAYBE_LVSUB|OPpDEREF|OPpLVAL_DEFER|OPpLVAL_INTRO),
+    /* ASLICE     */ (OPpSLICEWARNING|OPpMAYBE_LVSUB|OPpLVAL_INTRO),
+    /* KVASLICE   */ (OPpMAYBE_LVSUB),
+    /* AEACH      */ (OPpARG1_MASK),
+    /* AKEYS      */ (OPpARG1_MASK),
+    /* AVALUES    */ (OPpARG1_MASK),
+    /* EACH       */ (OPpARG1_MASK),
+    /* VALUES     */ (OPpARG1_MASK),
+    /* KEYS       */ (OPpARG1_MASK|OPpMAYBE_LVSUB),
+    /* DELETE     */ (OPpARG1_MASK|OPpSLICE|OPpLVAL_INTRO),
+    /* EXISTS     */ (OPpARG1_MASK|OPpEXISTS_SUB),
+    /* RV2HV      */ (OPpARG1_MASK|OPpHINT_STRICT_REFS|OPpSLICEWARNING|OPpMAYBE_LVSUB|OPpMAYBE_TRUEBOOL|OPpTRUEBOOL|OPpOUR_INTRO|OPpLVAL_INTRO),
+    /* HELEM      */ (OPpARG2_MASK|OPpMAYBE_LVSUB|OPpDEREF|OPpLVAL_DEFER|OPpLVAL_INTRO),
+    /* HSLICE     */ (OPpSLICEWARNING|OPpMAYBE_LVSUB|OPpLVAL_INTRO),
+    /* KVHSLICE   */ (OPpMAYBE_LVSUB),
+    /* MULTIDEREF */ (OPpARG1_MASK|OPpHINT_STRICT_REFS|OPpMAYBE_LVSUB|OPpMULTIDEREF_EXISTS|OPpMULTIDEREF_DELETE|OPpLVAL_DEFER|OPpLVAL_INTRO),
+    /* UNPACK     */ (OPpARG4_MASK),
+    /* PACK       */ (OPpARG4_MASK),
+    /* SPLIT      */ (OPpOUR_INTRO|OPpSPLIT_IMPLIM),
+    /* JOIN       */ (OPpARG4_MASK),
+    /* LIST       */ (OPpLIST_GUESSED|OPpLVAL_INTRO),
+    /* LSLICE     */ (OPpARG2_MASK),
+    /* ANONLIST   */ (OPpARG4_MASK),
+    /* ANONHASH   */ (OPpARG4_MASK),
+    /* SPLICE     */ (OPpARG4_MASK),
+    /* PUSH       */ (OPpARG4_MASK|OPpTARGET_MY),
+    /* POP        */ (OPpARG1_MASK),
+    /* SHIFT      */ (OPpARG1_MASK),
+    /* UNSHIFT    */ (OPpARG4_MASK|OPpTARGET_MY),
+    /* SORT       */ (OPpSORT_NUMERIC|OPpSORT_INTEGER|OPpSORT_REVERSE|OPpSORT_INPLACE|OPpSORT_DESCEND|OPpSORT_QSORT|OPpSORT_STABLE),
+    /* REVERSE    */ (OPpARG1_MASK|OPpREVERSE_INPLACE),
+    /* GREPSTART  */ (OPpARG1_MASK),
+    /* GREPWHILE  */ (OPpARG1_MASK),
+    /* MAPSTART   */ (OPpARG1_MASK),
+    /* MAPWHILE   */ (OPpARG1_MASK),
+    /* RANGE      */ (OPpARG1_MASK),
+    /* FLIP       */ (OPpARG1_MASK|OPpFLIP_LINENUM),
+    /* FLOP       */ (OPpARG1_MASK|OPpFLIP_LINENUM),
+    /* AND        */ (OPpARG1_MASK),
+    /* OR         */ (OPpARG1_MASK),
+    /* XOR        */ (OPpARG2_MASK),
+    /* DOR        */ (OPpARG1_MASK),
+    /* COND_EXPR  */ (OPpARG1_MASK|OPpLVAL_INTRO),
+    /* ANDASSIGN  */ (OPpARG1_MASK),
+    /* ORASSIGN   */ (OPpARG1_MASK),
+    /* DORASSIGN  */ (OPpARG1_MASK),
+    /* METHOD     */ (OPpARG1_MASK),
+    /* ENTERSUB   */ (OPpENTERSUB_INARGS|OPpHINT_STRICT_REFS|OPpENTERSUB_HASTARG|OPpENTERSUB_AMPER|OPpDEREF|OPpENTERSUB_DB|OPpLVAL_INTRO),
+    /* LEAVESUB   */ (OPpARG1_MASK|OPpREFCOUNTED),
+    /* LEAVESUBLV */ (OPpARG1_MASK|OPpREFCOUNTED),
+    /* CALLER     */ (OPpARG4_MASK|OPpOFFBYONE),
+    /* WARN       */ (OPpARG4_MASK),
+    /* DIE        */ (OPpARG4_MASK),
+    /* RESET      */ (OPpARG4_MASK),
+    /* LINESEQ    */ (0),
+    /* NEXTSTATE  */ (OPpHUSH_VMSISH),
+    /* DBSTATE    */ (OPpHUSH_VMSISH),
+    /* UNSTACK    */ (0),
+    /* ENTER      */ (0),
+    /* LEAVE      */ (OPpREFCOUNTED|OPpLVALUE),
+    /* SCOPE      */ (0),
+    /* ENTERITER  */ (OPpITER_REVERSED|OPpITER_DEF|OPpOUR_INTRO|OPpLVAL_INTRO),
+    /* ITER       */ (OPpITER_REVERSED),
+    /* ENTERLOOP  */ (0),
+    /* LEAVELOOP  */ (OPpARG2_MASK|OPpLVALUE),
+    /* RETURN     */ (0),
+    /* LAST       */ (OPpARG1_MASK|OPpPV_IS_UTF8),
+    /* NEXT       */ (OPpARG1_MASK|OPpPV_IS_UTF8),
+    /* REDO       */ (OPpARG1_MASK|OPpPV_IS_UTF8),
+    /* DUMP       */ (OPpARG1_MASK|OPpPV_IS_UTF8),
+    /* GOTO       */ (OPpARG1_MASK|OPpPV_IS_UTF8),
+    /* EXIT       */ (OPpARG4_MASK),
+    /* METHOD_NAMED */ (OPpARG1_MASK),
+    /* METHOD_SUPER */ (OPpARG1_MASK),
+    /* METHOD_REDIR */ (OPpARG1_MASK),
+    /* METHOD_REDIR_SUPER */ (OPpARG1_MASK),
+    /* ENTERGIVEN */ (OPpARG1_MASK),
+    /* LEAVEGIVEN */ (OPpARG1_MASK),
+    /* ENTERWHEN  */ (OPpARG1_MASK),
+    /* LEAVEWHEN  */ (OPpARG1_MASK),
+    /* BREAK      */ (0),
+    /* CONTINUE   */ (0),
+    /* OPEN       */ (OPpARG4_MASK|OPpOPEN_IN_RAW|OPpOPEN_IN_CRLF|OPpOPEN_OUT_RAW|OPpOPEN_OUT_CRLF),
+    /* CLOSE      */ (OPpARG4_MASK),
+    /* PIPE_OP    */ (OPpARG4_MASK),
+    /* FILENO     */ (OPpARG4_MASK),
+    /* UMASK      */ (OPpARG4_MASK),
+    /* BINMODE    */ (OPpARG4_MASK),
+    /* TIE        */ (OPpARG4_MASK),
+    /* UNTIE      */ (OPpARG1_MASK),
+    /* TIED       */ (OPpARG1_MASK),
+    /* DBMOPEN    */ (OPpARG4_MASK),
+    /* DBMCLOSE   */ (OPpARG1_MASK),
+    /* SSELECT    */ (OPpARG4_MASK),
+    /* SELECT     */ (OPpARG4_MASK),
+    /* GETC       */ (OPpARG4_MASK),
+    /* READ       */ (OPpARG4_MASK),
+    /* ENTERWRITE */ (OPpARG4_MASK),
+    /* LEAVEWRITE */ (OPpARG1_MASK|OPpREFCOUNTED),
+    /* PRTF       */ (0),
+    /* PRINT      */ (0),
+    /* SAY        */ (0),
+    /* SYSOPEN    */ (OPpARG4_MASK),
+    /* SYSSEEK    */ (OPpARG4_MASK),
+    /* SYSREAD    */ (OPpARG4_MASK),
+    /* SYSWRITE   */ (OPpARG4_MASK),
+    /* EOF        */ (OPpARG4_MASK),
+    /* TELL       */ (OPpARG4_MASK),
+    /* SEEK       */ (OPpARG4_MASK),
+    /* TRUNCATE   */ (OPpARG4_MASK),
+    /* FCNTL      */ (OPpARG4_MASK),
+    /* IOCTL      */ (OPpARG4_MASK),
+    /* FLOCK      */ (OPpARG4_MASK|OPpTARGET_MY),
+    /* SEND       */ (OPpARG4_MASK),
+    /* RECV       */ (OPpARG4_MASK),
+    /* SOCKET     */ (OPpARG4_MASK),
+    /* SOCKPAIR   */ (OPpARG4_MASK),
+    /* BIND       */ (OPpARG4_MASK),
+    /* CONNECT    */ (OPpARG4_MASK),
+    /* LISTEN     */ (OPpARG4_MASK),
+    /* ACCEPT     */ (OPpARG4_MASK),
+    /* SHUTDOWN   */ (OPpARG4_MASK),
+    /* GSOCKOPT   */ (OPpARG4_MASK),
+    /* SSOCKOPT   */ (OPpARG4_MASK),
+    /* GETSOCKNAME */ (OPpARG1_MASK),
+    /* GETPEERNAME */ (OPpARG1_MASK),
+    /* LSTAT      */ (OPpARG1_MASK),
+    /* STAT       */ (OPpARG1_MASK),
+    /* FTRREAD    */ (OPpARG1_MASK|OPpFT_ACCESS|OPpFT_STACKED|OPpFT_STACKING|OPpFT_AFTER_t),
+    /* FTRWRITE   */ (OPpARG1_MASK|OPpFT_ACCESS|OPpFT_STACKED|OPpFT_STACKING|OPpFT_AFTER_t),
+    /* FTREXEC    */ (OPpARG1_MASK|OPpFT_ACCESS|OPpFT_STACKED|OPpFT_STACKING|OPpFT_AFTER_t),
+    /* FTEREAD    */ (OPpARG1_MASK|OPpFT_ACCESS|OPpFT_STACKED|OPpFT_STACKING|OPpFT_AFTER_t),
+    /* FTEWRITE   */ (OPpARG1_MASK|OPpFT_ACCESS|OPpFT_STACKED|OPpFT_STACKING|OPpFT_AFTER_t),
+    /* FTEEXEC    */ (OPpARG1_MASK|OPpFT_ACCESS|OPpFT_STACKED|OPpFT_STACKING|OPpFT_AFTER_t),
+    /* FTIS       */ (OPpARG1_MASK|OPpFT_STACKED|OPpFT_STACKING|OPpFT_AFTER_t),
+    /* FTSIZE     */ (OPpARG1_MASK|OPpFT_STACKED|OPpFT_STACKING|OPpFT_AFTER_t),
+    /* FTMTIME    */ (OPpARG1_MASK|OPpFT_STACKED|OPpFT_STACKING|OPpFT_AFTER_t),
+    /* FTATIME    */ (OPpARG1_MASK|OPpFT_STACKED|OPpFT_STACKING|OPpFT_AFTER_t),
+    /* FTCTIME    */ (OPpARG1_MASK|OPpFT_STACKED|OPpFT_STACKING|OPpFT_AFTER_t),
+    /* FTROWNED   */ (OPpARG1_MASK|OPpFT_STACKED|OPpFT_STACKING|OPpFT_AFTER_t),
+    /* FTEOWNED   */ (OPpARG1_MASK|OPpFT_STACKED|OPpFT_STACKING|OPpFT_AFTER_t),
+    /* FTZERO     */ (OPpARG1_MASK|OPpFT_STACKED|OPpFT_STACKING|OPpFT_AFTER_t),
+    /* FTSOCK     */ (OPpARG1_MASK|OPpFT_STACKED|OPpFT_STACKING|OPpFT_AFTER_t),
+    /* FTCHR      */ (OPpARG1_MASK|OPpFT_STACKED|OPpFT_STACKING|OPpFT_AFTER_t),
+    /* FTBLK      */ (OPpARG1_MASK|OPpFT_STACKED|OPpFT_STACKING|OPpFT_AFTER_t),
+    /* FTFILE     */ (OPpARG1_MASK|OPpFT_STACKED|OPpFT_STACKING|OPpFT_AFTER_t),
+    /* FTDIR      */ (OPpARG1_MASK|OPpFT_STACKED|OPpFT_STACKING|OPpFT_AFTER_t),
+    /* FTPIPE     */ (OPpARG1_MASK|OPpFT_STACKED|OPpFT_STACKING|OPpFT_AFTER_t),
+    /* FTSUID     */ (OPpARG1_MASK|OPpFT_STACKED|OPpFT_STACKING|OPpFT_AFTER_t),
+    /* FTSGID     */ (OPpARG1_MASK|OPpFT_STACKED|OPpFT_STACKING|OPpFT_AFTER_t),
+    /* FTSVTX     */ (OPpARG1_MASK|OPpFT_STACKED|OPpFT_STACKING|OPpFT_AFTER_t),
+    /* FTLINK     */ (OPpARG1_MASK|OPpFT_STACKED|OPpFT_STACKING|OPpFT_AFTER_t),
+    /* FTTTY      */ (OPpARG1_MASK|OPpFT_STACKED|OPpFT_STACKING|OPpFT_AFTER_t),
+    /* FTTEXT     */ (OPpARG1_MASK|OPpFT_STACKED|OPpFT_STACKING|OPpFT_AFTER_t),
+    /* FTBINARY   */ (OPpARG1_MASK|OPpFT_STACKED|OPpFT_STACKING|OPpFT_AFTER_t),
+    /* CHDIR      */ (OPpARG4_MASK|OPpTARGET_MY),
+    /* CHOWN      */ (OPpARG4_MASK|OPpTARGET_MY),
+    /* CHROOT     */ (OPpARG1_MASK|OPpTARGET_MY),
+    /* UNLINK     */ (OPpARG4_MASK|OPpTARGET_MY),
+    /* CHMOD      */ (OPpARG4_MASK|OPpTARGET_MY),
+    /* UTIME      */ (OPpARG4_MASK|OPpTARGET_MY),
+    /* RENAME     */ (OPpARG4_MASK|OPpTARGET_MY),
+    /* LINK       */ (OPpARG4_MASK|OPpTARGET_MY),
+    /* SYMLINK    */ (OPpARG4_MASK|OPpTARGET_MY),
+    /* READLINK   */ (OPpARG1_MASK),
+    /* MKDIR      */ (OPpARG4_MASK|OPpTARGET_MY),
+    /* RMDIR      */ (OPpARG1_MASK|OPpTARGET_MY),
+    /* OPEN_DIR   */ (OPpARG4_MASK),
+    /* READDIR    */ (OPpARG1_MASK),
+    /* TELLDIR    */ (OPpARG1_MASK),
+    /* SEEKDIR    */ (OPpARG4_MASK),
+    /* REWINDDIR  */ (OPpARG1_MASK),
+    /* CLOSEDIR   */ (OPpARG1_MASK),
+    /* FORK       */ (0),
+    /* WAIT       */ (OPpTARGET_MY),
+    /* WAITPID    */ (OPpARG4_MASK|OPpTARGET_MY),
+    /* SYSTEM     */ (OPpARG4_MASK|OPpTARGET_MY),
+    /* EXEC       */ (OPpARG4_MASK|OPpTARGET_MY),
+    /* KILL       */ (OPpARG4_MASK|OPpTARGET_MY),
+    /* GETPPID    */ (OPpTARGET_MY),
+    /* GETPGRP    */ (OPpARG4_MASK|OPpTARGET_MY),
+    /* SETPGRP    */ (OPpARG4_MASK|OPpTARGET_MY),
+    /* GETPRIORITY */ (OPpARG4_MASK|OPpTARGET_MY),
+    /* SETPRIORITY */ (OPpARG4_MASK|OPpTARGET_MY),
+    /* TIME       */ (OPpTARGET_MY),
+    /* TMS        */ (0),
+    /* LOCALTIME  */ (OPpARG1_MASK),
+    /* GMTIME     */ (OPpARG4_MASK),
+    /* ALARM      */ (OPpARG1_MASK),
+    /* SLEEP      */ (OPpARG4_MASK|OPpTARGET_MY),
+    /* SHMGET     */ (OPpARG4_MASK),
+    /* SHMCTL     */ (OPpARG4_MASK),
+    /* SHMREAD    */ (OPpARG4_MASK),
+    /* SHMWRITE   */ (OPpARG4_MASK),
+    /* MSGGET     */ (OPpARG4_MASK),
+    /* MSGCTL     */ (OPpARG4_MASK),
+    /* MSGSND     */ (OPpARG4_MASK),
+    /* MSGRCV     */ (OPpARG4_MASK),
+    /* SEMOP      */ (OPpARG4_MASK),
+    /* SEMGET     */ (OPpARG4_MASK),
+    /* SEMCTL     */ (OPpARG4_MASK),
+    /* REQUIRE    */ (OPpARG1_MASK),
+    /* DOFILE     */ (OPpARG1_MASK),
+    /* HINTSEVAL  */ (0),
+    /* ENTEREVAL  */ (OPpARG1_MASK|OPpEVAL_HAS_HH|OPpEVAL_UNICODE|OPpEVAL_BYTES|OPpEVAL_COPHH|OPpEVAL_RE_REPARSING),
+    /* LEAVEEVAL  */ (OPpARG1_MASK|OPpREFCOUNTED),
+    /* ENTERTRY   */ (OPpARG1_MASK),
+    /* LEAVETRY   */ (0),
+    /* GHBYNAME   */ (OPpARG1_MASK),
+    /* GHBYADDR   */ (OPpARG4_MASK),
+    /* GHOSTENT   */ (0),
+    /* GNBYNAME   */ (OPpARG1_MASK),
+    /* GNBYADDR   */ (OPpARG4_MASK),
+    /* GNETENT    */ (0),
+    /* GPBYNAME   */ (OPpARG1_MASK),
+    /* GPBYNUMBER */ (OPpARG4_MASK),
+    /* GPROTOENT  */ (0),
+    /* GSBYNAME   */ (OPpARG4_MASK),
+    /* GSBYPORT   */ (OPpARG4_MASK),
+    /* GSERVENT   */ (0),
+    /* SHOSTENT   */ (OPpARG1_MASK),
+    /* SNETENT    */ (OPpARG1_MASK),
+    /* SPROTOENT  */ (OPpARG1_MASK),
+    /* SSERVENT   */ (OPpARG1_MASK),
+    /* EHOSTENT   */ (0),
+    /* ENETENT    */ (0),
+    /* EPROTOENT  */ (0),
+    /* ESERVENT   */ (0),
+    /* GPWNAM     */ (OPpARG1_MASK),
+    /* GPWUID     */ (OPpARG1_MASK),
+    /* GPWENT     */ (0),
+    /* SPWENT     */ (0),
+    /* EPWENT     */ (0),
+    /* GGRNAM     */ (OPpARG1_MASK),
+    /* GGRGID     */ (OPpARG1_MASK),
+    /* GGRENT     */ (0),
+    /* SGRENT     */ (0),
+    /* EGRENT     */ (0),
+    /* GETLOGIN   */ (0),
+    /* SYSCALL    */ (OPpARG4_MASK),
+    /* LOCK       */ (OPpARG1_MASK),
+    /* ONCE       */ (OPpARG1_MASK),
+    /* CUSTOM     */ (0xff),
+    /* COREARGS   */ (OPpCOREARGS_DEREF1|OPpCOREARGS_DEREF2|OPpCOREARGS_SCALARMOD|OPpCOREARGS_PUSHMARK),
+    /* RUNCV      */ (OPpOFFBYONE),
+    /* FC         */ (OPpARG1_MASK),
+    /* PADCV      */ (0),
+    /* INTROCV    */ (0),
+    /* CLONECV    */ (0),
+    /* PADRANGE   */ (OPpPADRANGE_COUNTMASK|OPpLVAL_INTRO),
+    /* REFASSIGN  */ (OPpARG2_MASK|OPpLVREF_ELEM|OPpLVREF_ITER|OPpLVREF_TYPE|OPpPAD_STATE|OPpLVAL_INTRO),
+    /* LVREF      */ (OPpARG1_MASK|OPpLVREF_ELEM|OPpLVREF_ITER|OPpLVREF_TYPE|OPpPAD_STATE|OPpLVAL_INTRO),
+    /* LVREFSLICE */ (OPpLVAL_INTRO),
+    /* LVAVREF    */ (OPpARG1_MASK|OPpPAD_STATE|OPpLVAL_INTRO),
+    /* ANONCONST  */ (OPpARG1_MASK),
+
+};
+
+#  endif /* !DOINIT */
+#endif /* !PERL_GLOBAL_STRUCT_INIT */
+
+END_EXTERN_C
+
+
+
+/* ex: set ro: */
diff --git a/lib/5.24.1/x86_64-linux/CORE/opnames.h b/lib/5.24.1/x86_64-linux/CORE/opnames.h
new file mode 100644
index 00000000..065c1a85
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/opnames.h
@@ -0,0 +1,439 @@
+/* -*- buffer-read-only: t -*-
+ *
+ *    opnames.h
+ *
+ *    Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
+ *    2008 by Larry Wall and others
+ *
+ *    You may distribute under the terms of either the GNU General Public
+ *    License or the Artistic License, as specified in the README file.
+ *
+ * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+ * This file is built by regen/opcode.pl from its data.
+ * Any changes made here will be lost!
+ */
+
+typedef enum opcode {
+	OP_NULL		 = 0,
+	OP_STUB		 = 1,
+	OP_SCALAR	 = 2,
+	OP_PUSHMARK	 = 3,
+	OP_WANTARRAY	 = 4,
+	OP_CONST	 = 5,
+	OP_GVSV		 = 6,
+	OP_GV		 = 7,
+	OP_GELEM	 = 8,
+	OP_PADSV	 = 9,
+	OP_PADAV	 = 10,
+	OP_PADHV	 = 11,
+	OP_PADANY	 = 12,
+	OP_PUSHRE	 = 13,
+	OP_RV2GV	 = 14,
+	OP_RV2SV	 = 15,
+	OP_AV2ARYLEN	 = 16,
+	OP_RV2CV	 = 17,
+	OP_ANONCODE	 = 18,
+	OP_PROTOTYPE	 = 19,
+	OP_REFGEN	 = 20,
+	OP_SREFGEN	 = 21,
+	OP_REF		 = 22,
+	OP_BLESS	 = 23,
+	OP_BACKTICK	 = 24,
+	OP_GLOB		 = 25,
+	OP_READLINE	 = 26,
+	OP_RCATLINE	 = 27,
+	OP_REGCMAYBE	 = 28,
+	OP_REGCRESET	 = 29,
+	OP_REGCOMP	 = 30,
+	OP_MATCH	 = 31,
+	OP_QR		 = 32,
+	OP_SUBST	 = 33,
+	OP_SUBSTCONT	 = 34,
+	OP_TRANS	 = 35,
+	OP_TRANSR	 = 36,
+	OP_SASSIGN	 = 37,
+	OP_AASSIGN	 = 38,
+	OP_CHOP		 = 39,
+	OP_SCHOP	 = 40,
+	OP_CHOMP	 = 41,
+	OP_SCHOMP	 = 42,
+	OP_DEFINED	 = 43,
+	OP_UNDEF	 = 44,
+	OP_STUDY	 = 45,
+	OP_POS		 = 46,
+	OP_PREINC	 = 47,
+	OP_I_PREINC	 = 48,
+	OP_PREDEC	 = 49,
+	OP_I_PREDEC	 = 50,
+	OP_POSTINC	 = 51,
+	OP_I_POSTINC	 = 52,
+	OP_POSTDEC	 = 53,
+	OP_I_POSTDEC	 = 54,
+	OP_POW		 = 55,
+	OP_MULTIPLY	 = 56,
+	OP_I_MULTIPLY	 = 57,
+	OP_DIVIDE	 = 58,
+	OP_I_DIVIDE	 = 59,
+	OP_MODULO	 = 60,
+	OP_I_MODULO	 = 61,
+	OP_REPEAT	 = 62,
+	OP_ADD		 = 63,
+	OP_I_ADD	 = 64,
+	OP_SUBTRACT	 = 65,
+	OP_I_SUBTRACT	 = 66,
+	OP_CONCAT	 = 67,
+	OP_STRINGIFY	 = 68,
+	OP_LEFT_SHIFT	 = 69,
+	OP_RIGHT_SHIFT	 = 70,
+	OP_LT		 = 71,
+	OP_I_LT		 = 72,
+	OP_GT		 = 73,
+	OP_I_GT		 = 74,
+	OP_LE		 = 75,
+	OP_I_LE		 = 76,
+	OP_GE		 = 77,
+	OP_I_GE		 = 78,
+	OP_EQ		 = 79,
+	OP_I_EQ		 = 80,
+	OP_NE		 = 81,
+	OP_I_NE		 = 82,
+	OP_NCMP		 = 83,
+	OP_I_NCMP	 = 84,
+	OP_SLT		 = 85,
+	OP_SGT		 = 86,
+	OP_SLE		 = 87,
+	OP_SGE		 = 88,
+	OP_SEQ		 = 89,
+	OP_SNE		 = 90,
+	OP_SCMP		 = 91,
+	OP_BIT_AND	 = 92,
+	OP_BIT_XOR	 = 93,
+	OP_BIT_OR	 = 94,
+	OP_NBIT_AND	 = 95,
+	OP_NBIT_XOR	 = 96,
+	OP_NBIT_OR	 = 97,
+	OP_SBIT_AND	 = 98,
+	OP_SBIT_XOR	 = 99,
+	OP_SBIT_OR	 = 100,
+	OP_NEGATE	 = 101,
+	OP_I_NEGATE	 = 102,
+	OP_NOT		 = 103,
+	OP_COMPLEMENT	 = 104,
+	OP_NCOMPLEMENT	 = 105,
+	OP_SCOMPLEMENT	 = 106,
+	OP_SMARTMATCH	 = 107,
+	OP_ATAN2	 = 108,
+	OP_SIN		 = 109,
+	OP_COS		 = 110,
+	OP_RAND		 = 111,
+	OP_SRAND	 = 112,
+	OP_EXP		 = 113,
+	OP_LOG		 = 114,
+	OP_SQRT		 = 115,
+	OP_INT		 = 116,
+	OP_HEX		 = 117,
+	OP_OCT		 = 118,
+	OP_ABS		 = 119,
+	OP_LENGTH	 = 120,
+	OP_SUBSTR	 = 121,
+	OP_VEC		 = 122,
+	OP_INDEX	 = 123,
+	OP_RINDEX	 = 124,
+	OP_SPRINTF	 = 125,
+	OP_FORMLINE	 = 126,
+	OP_ORD		 = 127,
+	OP_CHR		 = 128,
+	OP_CRYPT	 = 129,
+	OP_UCFIRST	 = 130,
+	OP_LCFIRST	 = 131,
+	OP_UC		 = 132,
+	OP_LC		 = 133,
+	OP_QUOTEMETA	 = 134,
+	OP_RV2AV	 = 135,
+	OP_AELEMFAST	 = 136,
+	OP_AELEMFAST_LEX = 137,
+	OP_AELEM	 = 138,
+	OP_ASLICE	 = 139,
+	OP_KVASLICE	 = 140,
+	OP_AEACH	 = 141,
+	OP_AKEYS	 = 142,
+	OP_AVALUES	 = 143,
+	OP_EACH		 = 144,
+	OP_VALUES	 = 145,
+	OP_KEYS		 = 146,
+	OP_DELETE	 = 147,
+	OP_EXISTS	 = 148,
+	OP_RV2HV	 = 149,
+	OP_HELEM	 = 150,
+	OP_HSLICE	 = 151,
+	OP_KVHSLICE	 = 152,
+	OP_MULTIDEREF	 = 153,
+	OP_UNPACK	 = 154,
+	OP_PACK		 = 155,
+	OP_SPLIT	 = 156,
+	OP_JOIN		 = 157,
+	OP_LIST		 = 158,
+	OP_LSLICE	 = 159,
+	OP_ANONLIST	 = 160,
+	OP_ANONHASH	 = 161,
+	OP_SPLICE	 = 162,
+	OP_PUSH		 = 163,
+	OP_POP		 = 164,
+	OP_SHIFT	 = 165,
+	OP_UNSHIFT	 = 166,
+	OP_SORT		 = 167,
+	OP_REVERSE	 = 168,
+	OP_GREPSTART	 = 169,
+	OP_GREPWHILE	 = 170,
+	OP_MAPSTART	 = 171,
+	OP_MAPWHILE	 = 172,
+	OP_RANGE	 = 173,
+	OP_FLIP		 = 174,
+	OP_FLOP		 = 175,
+	OP_AND		 = 176,
+	OP_OR		 = 177,
+	OP_XOR		 = 178,
+	OP_DOR		 = 179,
+	OP_COND_EXPR	 = 180,
+	OP_ANDASSIGN	 = 181,
+	OP_ORASSIGN	 = 182,
+	OP_DORASSIGN	 = 183,
+	OP_METHOD	 = 184,
+	OP_ENTERSUB	 = 185,
+	OP_LEAVESUB	 = 186,
+	OP_LEAVESUBLV	 = 187,
+	OP_CALLER	 = 188,
+	OP_WARN		 = 189,
+	OP_DIE		 = 190,
+	OP_RESET	 = 191,
+	OP_LINESEQ	 = 192,
+	OP_NEXTSTATE	 = 193,
+	OP_DBSTATE	 = 194,
+	OP_UNSTACK	 = 195,
+	OP_ENTER	 = 196,
+	OP_LEAVE	 = 197,
+	OP_SCOPE	 = 198,
+	OP_ENTERITER	 = 199,
+	OP_ITER		 = 200,
+	OP_ENTERLOOP	 = 201,
+	OP_LEAVELOOP	 = 202,
+	OP_RETURN	 = 203,
+	OP_LAST		 = 204,
+	OP_NEXT		 = 205,
+	OP_REDO		 = 206,
+	OP_DUMP		 = 207,
+	OP_GOTO		 = 208,
+	OP_EXIT		 = 209,
+	OP_METHOD_NAMED	 = 210,
+	OP_METHOD_SUPER	 = 211,
+	OP_METHOD_REDIR	 = 212,
+	OP_METHOD_REDIR_SUPER = 213,
+	OP_ENTERGIVEN	 = 214,
+	OP_LEAVEGIVEN	 = 215,
+	OP_ENTERWHEN	 = 216,
+	OP_LEAVEWHEN	 = 217,
+	OP_BREAK	 = 218,
+	OP_CONTINUE	 = 219,
+	OP_OPEN		 = 220,
+	OP_CLOSE	 = 221,
+	OP_PIPE_OP	 = 222,
+	OP_FILENO	 = 223,
+	OP_UMASK	 = 224,
+	OP_BINMODE	 = 225,
+	OP_TIE		 = 226,
+	OP_UNTIE	 = 227,
+	OP_TIED		 = 228,
+	OP_DBMOPEN	 = 229,
+	OP_DBMCLOSE	 = 230,
+	OP_SSELECT	 = 231,
+	OP_SELECT	 = 232,
+	OP_GETC		 = 233,
+	OP_READ		 = 234,
+	OP_ENTERWRITE	 = 235,
+	OP_LEAVEWRITE	 = 236,
+	OP_PRTF		 = 237,
+	OP_PRINT	 = 238,
+	OP_SAY		 = 239,
+	OP_SYSOPEN	 = 240,
+	OP_SYSSEEK	 = 241,
+	OP_SYSREAD	 = 242,
+	OP_SYSWRITE	 = 243,
+	OP_EOF		 = 244,
+	OP_TELL		 = 245,
+	OP_SEEK		 = 246,
+	OP_TRUNCATE	 = 247,
+	OP_FCNTL	 = 248,
+	OP_IOCTL	 = 249,
+	OP_FLOCK	 = 250,
+	OP_SEND		 = 251,
+	OP_RECV		 = 252,
+	OP_SOCKET	 = 253,
+	OP_SOCKPAIR	 = 254,
+	OP_BIND		 = 255,
+	OP_CONNECT	 = 256,
+	OP_LISTEN	 = 257,
+	OP_ACCEPT	 = 258,
+	OP_SHUTDOWN	 = 259,
+	OP_GSOCKOPT	 = 260,
+	OP_SSOCKOPT	 = 261,
+	OP_GETSOCKNAME	 = 262,
+	OP_GETPEERNAME	 = 263,
+	OP_LSTAT	 = 264,
+	OP_STAT		 = 265,
+	OP_FTRREAD	 = 266,
+	OP_FTRWRITE	 = 267,
+	OP_FTREXEC	 = 268,
+	OP_FTEREAD	 = 269,
+	OP_FTEWRITE	 = 270,
+	OP_FTEEXEC	 = 271,
+	OP_FTIS		 = 272,
+	OP_FTSIZE	 = 273,
+	OP_FTMTIME	 = 274,
+	OP_FTATIME	 = 275,
+	OP_FTCTIME	 = 276,
+	OP_FTROWNED	 = 277,
+	OP_FTEOWNED	 = 278,
+	OP_FTZERO	 = 279,
+	OP_FTSOCK	 = 280,
+	OP_FTCHR	 = 281,
+	OP_FTBLK	 = 282,
+	OP_FTFILE	 = 283,
+	OP_FTDIR	 = 284,
+	OP_FTPIPE	 = 285,
+	OP_FTSUID	 = 286,
+	OP_FTSGID	 = 287,
+	OP_FTSVTX	 = 288,
+	OP_FTLINK	 = 289,
+	OP_FTTTY	 = 290,
+	OP_FTTEXT	 = 291,
+	OP_FTBINARY	 = 292,
+	OP_CHDIR	 = 293,
+	OP_CHOWN	 = 294,
+	OP_CHROOT	 = 295,
+	OP_UNLINK	 = 296,
+	OP_CHMOD	 = 297,
+	OP_UTIME	 = 298,
+	OP_RENAME	 = 299,
+	OP_LINK		 = 300,
+	OP_SYMLINK	 = 301,
+	OP_READLINK	 = 302,
+	OP_MKDIR	 = 303,
+	OP_RMDIR	 = 304,
+	OP_OPEN_DIR	 = 305,
+	OP_READDIR	 = 306,
+	OP_TELLDIR	 = 307,
+	OP_SEEKDIR	 = 308,
+	OP_REWINDDIR	 = 309,
+	OP_CLOSEDIR	 = 310,
+	OP_FORK		 = 311,
+	OP_WAIT		 = 312,
+	OP_WAITPID	 = 313,
+	OP_SYSTEM	 = 314,
+	OP_EXEC		 = 315,
+	OP_KILL		 = 316,
+	OP_GETPPID	 = 317,
+	OP_GETPGRP	 = 318,
+	OP_SETPGRP	 = 319,
+	OP_GETPRIORITY	 = 320,
+	OP_SETPRIORITY	 = 321,
+	OP_TIME		 = 322,
+	OP_TMS		 = 323,
+	OP_LOCALTIME	 = 324,
+	OP_GMTIME	 = 325,
+	OP_ALARM	 = 326,
+	OP_SLEEP	 = 327,
+	OP_SHMGET	 = 328,
+	OP_SHMCTL	 = 329,
+	OP_SHMREAD	 = 330,
+	OP_SHMWRITE	 = 331,
+	OP_MSGGET	 = 332,
+	OP_MSGCTL	 = 333,
+	OP_MSGSND	 = 334,
+	OP_MSGRCV	 = 335,
+	OP_SEMOP	 = 336,
+	OP_SEMGET	 = 337,
+	OP_SEMCTL	 = 338,
+	OP_REQUIRE	 = 339,
+	OP_DOFILE	 = 340,
+	OP_HINTSEVAL	 = 341,
+	OP_ENTEREVAL	 = 342,
+	OP_LEAVEEVAL	 = 343,
+	OP_ENTERTRY	 = 344,
+	OP_LEAVETRY	 = 345,
+	OP_GHBYNAME	 = 346,
+	OP_GHBYADDR	 = 347,
+	OP_GHOSTENT	 = 348,
+	OP_GNBYNAME	 = 349,
+	OP_GNBYADDR	 = 350,
+	OP_GNETENT	 = 351,
+	OP_GPBYNAME	 = 352,
+	OP_GPBYNUMBER	 = 353,
+	OP_GPROTOENT	 = 354,
+	OP_GSBYNAME	 = 355,
+	OP_GSBYPORT	 = 356,
+	OP_GSERVENT	 = 357,
+	OP_SHOSTENT	 = 358,
+	OP_SNETENT	 = 359,
+	OP_SPROTOENT	 = 360,
+	OP_SSERVENT	 = 361,
+	OP_EHOSTENT	 = 362,
+	OP_ENETENT	 = 363,
+	OP_EPROTOENT	 = 364,
+	OP_ESERVENT	 = 365,
+	OP_GPWNAM	 = 366,
+	OP_GPWUID	 = 367,
+	OP_GPWENT	 = 368,
+	OP_SPWENT	 = 369,
+	OP_EPWENT	 = 370,
+	OP_GGRNAM	 = 371,
+	OP_GGRGID	 = 372,
+	OP_GGRENT	 = 373,
+	OP_SGRENT	 = 374,
+	OP_EGRENT	 = 375,
+	OP_GETLOGIN	 = 376,
+	OP_SYSCALL	 = 377,
+	OP_LOCK		 = 378,
+	OP_ONCE		 = 379,
+	OP_CUSTOM	 = 380,
+	OP_COREARGS	 = 381,
+	OP_RUNCV	 = 382,
+	OP_FC		 = 383,
+	OP_PADCV	 = 384,
+	OP_INTROCV	 = 385,
+	OP_CLONECV	 = 386,
+	OP_PADRANGE	 = 387,
+	OP_REFASSIGN	 = 388,
+	OP_LVREF	 = 389,
+	OP_LVREFSLICE	 = 390,
+	OP_LVAVREF	 = 391,
+	OP_ANONCONST	 = 392,
+	OP_max		
+} opcode;
+
+#define MAXO 393
+#define OP_FREED MAXO
+
+/* the OP_IS_* macros are optimized to a simple range check because
+    all the member OPs are contiguous in regen/opcodes table.
+    opcode.pl verifies the range contiguity, or generates an OR-equals
+    expression */
+
+#define OP_IS_SOCKET(op)	\
+	((op) >= OP_SEND && (op) <= OP_GETPEERNAME)
+
+#define OP_IS_FILETEST(op)	\
+	((op) >= OP_FTRREAD && (op) <= OP_FTBINARY)
+
+#define OP_IS_FILETEST_ACCESS(op)	\
+	((op) >= OP_FTRREAD && (op) <= OP_FTEEXEC)
+
+#define OP_IS_NUMCOMPARE(op)	\
+	((op) >= OP_LT && (op) <= OP_I_NCMP)
+
+#define OP_IS_DIRHOP(op)	\
+	((op) >= OP_READDIR && (op) <= OP_CLOSEDIR)
+
+#define OP_IS_INFIX_BIT(op)	\
+	((op) >= OP_BIT_AND && (op) <= OP_SBIT_OR)
+
+/* ex: set ro: */
diff --git a/lib/5.24.1/x86_64-linux/CORE/overload.h b/lib/5.24.1/x86_64-linux/CORE/overload.h
new file mode 100644
index 00000000..50e7660a
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/overload.h
@@ -0,0 +1,98 @@
+/* -*- buffer-read-only: t -*-
+ *
+ *    overload.h
+ *
+ *    Copyright (C) 1997, 1998, 2000, 2001, 2005, 2006, 2007, 2011
+ *    by Larry Wall and others
+ *
+ *    You may distribute under the terms of either the GNU General Public
+ *    License or the Artistic License, as specified in the README file.
+ *
+ * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+ * This file is built by regen/overload.pl.
+ * Any changes made here will be lost!
+ */
+
+enum {
+    fallback_amg,	/* 0x00 fallback */
+    to_sv_amg,		/* 0x01 ${}      */
+    to_av_amg,		/* 0x02 @{}      */
+    to_hv_amg,		/* 0x03 %{}      */
+    to_gv_amg,		/* 0x04 *{}      */
+    to_cv_amg,		/* 0x05 &{}      */
+    inc_amg,		/* 0x06 ++       */
+    dec_amg,		/* 0x07 --       */
+    bool__amg,		/* 0x08 bool     */
+    numer_amg,		/* 0x09 0+       */
+    string_amg,		/* 0x0a ""       */
+    not_amg,		/* 0x0b !        */
+    copy_amg,		/* 0x0c =        */
+    abs_amg,		/* 0x0d abs      */
+    neg_amg,		/* 0x0e neg      */
+    iter_amg,		/* 0x0f <>       */
+    int_amg,		/* 0x10 int      */
+    lt_amg,		/* 0x11 <        */
+    le_amg,		/* 0x12 <=       */
+    gt_amg,		/* 0x13 >        */
+    ge_amg,		/* 0x14 >=       */
+    eq_amg,		/* 0x15 ==       */
+    ne_amg,		/* 0x16 !=       */
+    slt_amg,		/* 0x17 lt       */
+    sle_amg,		/* 0x18 le       */
+    sgt_amg,		/* 0x19 gt       */
+    sge_amg,		/* 0x1a ge       */
+    seq_amg,		/* 0x1b eq       */
+    sne_amg,		/* 0x1c ne       */
+    nomethod_amg,	/* 0x1d nomethod */
+    add_amg,		/* 0x1e +        */
+    add_ass_amg,	/* 0x1f +=       */
+    subtr_amg,		/* 0x20 -        */
+    subtr_ass_amg,	/* 0x21 -=       */
+    mult_amg,		/* 0x22 *        */
+    mult_ass_amg,	/* 0x23 *=       */
+    div_amg,		/* 0x24 /        */
+    div_ass_amg,	/* 0x25 /=       */
+    modulo_amg,		/* 0x26 %        */
+    modulo_ass_amg,	/* 0x27 %=       */
+    pow_amg,		/* 0x28 **       */
+    pow_ass_amg,	/* 0x29 **=      */
+    lshift_amg,		/* 0x2a <<       */
+    lshift_ass_amg,	/* 0x2b <<=      */
+    rshift_amg,		/* 0x2c >>       */
+    rshift_ass_amg,	/* 0x2d >>=      */
+    band_amg,		/* 0x2e &        */
+    band_ass_amg,	/* 0x2f &=       */
+    sband_amg,		/* 0x30 &.       */
+    sband_ass_amg,	/* 0x31 &.=      */
+    bor_amg,		/* 0x32 |        */
+    bor_ass_amg,	/* 0x33 |=       */
+    sbor_amg,		/* 0x34 |.       */
+    sbor_ass_amg,	/* 0x35 |.=      */
+    bxor_amg,		/* 0x36 ^        */
+    bxor_ass_amg,	/* 0x37 ^=       */
+    sbxor_amg,		/* 0x38 ^.       */
+    sbxor_ass_amg,	/* 0x39 ^.=      */
+    ncmp_amg,		/* 0x3a <=>      */
+    scmp_amg,		/* 0x3b cmp      */
+    compl_amg,		/* 0x3c ~        */
+    scompl_amg,		/* 0x3d ~.       */
+    atan2_amg,		/* 0x3e atan2    */
+    cos_amg,		/* 0x3f cos      */
+    sin_amg,		/* 0x40 sin      */
+    exp_amg,		/* 0x41 exp      */
+    log_amg,		/* 0x42 log      */
+    sqrt_amg,		/* 0x43 sqrt     */
+    repeat_amg,		/* 0x44 x        */
+    repeat_ass_amg,	/* 0x45 x=       */
+    concat_amg,		/* 0x46 .        */
+    concat_ass_amg,	/* 0x47 .=       */
+    smart_amg,		/* 0x48 ~~       */
+    ftest_amg,		/* 0x49 -X       */
+    regexp_amg,		/* 0x4a qr       */
+    max_amg_code
+    /* Do not leave a trailing comma here.  C9X allows it, C89 doesn't. */
+};
+
+#define NofAMmeth max_amg_code
+
+/* ex: set ro: */
diff --git a/lib/5.24.1/x86_64-linux/CORE/pad.h b/lib/5.24.1/x86_64-linux/CORE/pad.h
new file mode 100644
index 00000000..7ed10333
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/pad.h
@@ -0,0 +1,526 @@
+/*    pad.h
+ *
+ *    Copyright (C) 2002, 2003, 2005, 2006, 2007, 2008,
+ *    2009, 2010, 2011 by Larry Wall and others
+ *
+ *    You may distribute under the terms of either the GNU General Public
+ *    License or the Artistic License, as specified in the README file.
+ *
+ * This file defines the types and macros associated with the API for
+ * manipulating scratchpads, which are used by perl to store lexical
+ * variables, op targets and constants.
+ */
+
+/*
+=head1 Pad Data Structures
+*/
+
+
+/* offsets within a pad */
+
+#if PTRSIZE == 4
+typedef U32TYPE PADOFFSET;
+#else
+#   if PTRSIZE == 8
+typedef U64TYPE PADOFFSET;
+#   endif
+#endif
+#define NOT_IN_PAD ((PADOFFSET) -1)
+
+/* B.xs expects the first members of these two structs to line up
+   (xpadl_max with xpadnl_fill).
+ */
+
+struct padlist {
+    SSize_t	xpadl_max;	/* max index for which array has space */
+    union {
+	PAD **	xpadlarr_alloc; /* Pointer to beginning of array of AVs.
+				   index 0 is a padnamelist *          */
+	struct {
+	    PADNAMELIST * padnl;
+	    PAD * pad_1;        /* this slice of PAD * array always alloced */
+	    PAD * pad_2;        /* maybe unalloced */
+	} * xpadlarr_dbg;       /* for use with a C debugger only */
+    } xpadl_arr;
+    U32		xpadl_id;	/* Semi-unique ID, shared between clones */
+    U32		xpadl_outid;	/* ID of outer pad */
+};
+
+struct padnamelist {
+    SSize_t	xpadnl_fill;	/* max index in use */
+    PADNAME **	xpadnl_alloc;	/* pointer to beginning of array */
+    SSize_t	xpadnl_max;	/* max index for which array has space */
+    PADOFFSET	xpadnl_max_named; /* highest index with len > 0 */
+    U32		xpadnl_refcnt;
+};
+
+/* PERL_PADNAME_MINIMAL uses less memory, but on some platforms
+   PERL_PADNAME_ALIGNED may be faster, so platform-specific hints can
+   define one or the other.  */
+#if defined(PERL_PADNAME_MINIMAL) && defined (PERL_PADNAME_ALIGNED)
+#  error PERL_PADNAME_MINIMAL and PERL_PADNAME_ALIGNED are exclusive
+#endif
+
+#if !defined(PERL_PADNAME_MINIMAL) && !defined(PERL_PADNAME_ALIGNED)
+#  define PERL_PADNAME_MINIMAL
+#endif
+
+#define _PADNAME_BASE \
+    char *	xpadn_pv;		\
+    HV *	xpadn_ourstash;		\
+    union {				\
+	HV *	xpadn_typestash;	\
+	CV *	xpadn_protocv;		\
+    } xpadn_type_u;			\
+    U32		xpadn_low;		\
+    U32		xpadn_high;		\
+    U32		xpadn_refcnt;		\
+    int		xpadn_gen;		\
+    U8		xpadn_len;		\
+    U8		xpadn_flags
+
+struct padname {
+    _PADNAME_BASE;
+};
+
+struct padname_with_str {
+#ifdef PERL_PADNAME_MINIMAL
+    _PADNAME_BASE;
+#else
+    struct padname	xpadn_padname;
+#endif
+    char		xpadn_str[1];
+};
+
+#undef _PADNAME_BASE
+
+#define PADNAME_FROM_PV(s) \
+    ((PADNAME *)((s) - STRUCT_OFFSET(struct padname_with_str, xpadn_str)))
+
+
+/* a value that PL_cop_seqmax is guaranteed never to be,
+ * flagging that a lexical is being introduced, or has not yet left scope
+ */
+#define PERL_PADSEQ_INTRO  U32_MAX
+#define COP_SEQMAX_INC \
+	(PL_cop_seqmax++, \
+	 (void)(PL_cop_seqmax == PERL_PADSEQ_INTRO && PL_cop_seqmax++))
+
+
+/* B.xs needs these for the benefit of B::Deparse */
+/* Low range end is exclusive (valid from the cop seq after this one) */
+/* High range end is inclusive (valid up to this cop seq) */
+
+#define COP_SEQ_RANGE_LOW(pn)		(pn)->xpadn_low
+#define COP_SEQ_RANGE_HIGH(pn)		(pn)->xpadn_high
+#define PARENT_PAD_INDEX(pn)		(pn)->xpadn_low
+#define PARENT_FAKELEX_FLAGS(pn)	(pn)->xpadn_high
+
+/* Flags set in the SvIVX field of FAKE namesvs */
+
+#define PAD_FAKELEX_ANON   1 /* the lex is declared in an ANON, or ... */
+#define PAD_FAKELEX_MULTI  2 /* the lex can be instantiated multiple times */
+
+/* flags for the pad_new() function */
+
+#define padnew_CLONE	1	/* this pad is for a cloned CV */
+#define padnew_SAVE	2	/* save old globals */
+#define padnew_SAVESUB	4	/* also save extra stuff for start of sub */
+
+/* values for the pad_tidy() function */
+
+typedef enum {
+	padtidy_SUB,		/* tidy up a pad for a sub, */
+	padtidy_SUBCLONE,	/* a cloned sub, */
+	padtidy_FORMAT		/* or a format */
+} padtidy_type;
+
+/* flags for pad_add_name_pvn. */
+
+#define padadd_OUR		0x01	   /* our declaration. */
+#define padadd_STATE		0x02	   /* state declaration. */
+#define padadd_NO_DUP_CHECK	0x04	   /* skip warning on dups. */
+#define padadd_STALEOK		0x08	   /* allow stale lexical in active
+					    * sub, but only one level up */
+
+/* ASSERT_CURPAD_LEGAL and ASSERT_CURPAD_ACTIVE respectively determine
+ * whether PL_comppad and PL_curpad are consistent and whether they have
+ * active values */
+
+#  define pad_peg(label)
+
+#ifdef DEBUGGING
+#  define ASSERT_CURPAD_LEGAL(label) \
+    pad_peg(label); \
+    if (PL_comppad ? (AvARRAY(PL_comppad) != PL_curpad) : (PL_curpad != 0))  \
+	Perl_croak(aTHX_ "panic: illegal pad in %s: 0x%" UVxf "[0x%" UVxf "]",\
+	    label, PTR2UV(PL_comppad), PTR2UV(PL_curpad));
+
+
+#  define ASSERT_CURPAD_ACTIVE(label) \
+    pad_peg(label); \
+    if (!PL_comppad || (AvARRAY(PL_comppad) != PL_curpad))		  \
+	Perl_croak(aTHX_ "panic: invalid pad in %s: 0x%" UVxf "[0x%" UVxf "]",\
+	    label, PTR2UV(PL_comppad), PTR2UV(PL_curpad));
+#else
+#  define ASSERT_CURPAD_LEGAL(label)
+#  define ASSERT_CURPAD_ACTIVE(label)
+#endif
+
+
+
+/* Note: the following three macros are actually defined in scope.h, but
+ * they are documented here for completeness, since they directly or
+ * indirectly affect pads.
+
+=for apidoc m|void|SAVEPADSV	|PADOFFSET po
+Save a pad slot (used to restore after an iteration)
+
+XXX DAPM it would make more sense to make the arg a PADOFFSET
+=for apidoc m|void|SAVECLEARSV	|SV **svp
+Clear the pointed to pad value on scope exit.  (i.e. the runtime action of
+C<my>)
+
+=for apidoc m|void|SAVECOMPPAD
+save C<PL_comppad> and C<PL_curpad>
+
+
+=for apidoc Amx|PAD **|PadlistARRAY|PADLIST padlist
+The C array of a padlist, containing the pads.  Only subscript it with
+numbers >= 1, as the 0th entry is not guaranteed to remain usable.
+
+=for apidoc Amx|SSize_t|PadlistMAX|PADLIST padlist
+The index of the last allocated space in the padlist.  Note that the last
+pad may be in an earlier slot.  Any entries following it will be C<NULL> in
+that case.
+
+=for apidoc Amx|PADNAMELIST *|PadlistNAMES|PADLIST padlist
+The names associated with pad entries.
+
+=for apidoc Amx|PADNAME **|PadlistNAMESARRAY|PADLIST padlist
+The C array of pad names.
+
+=for apidoc Amx|SSize_t|PadlistNAMESMAX|PADLIST padlist
+The index of the last pad name.
+
+=for apidoc Amx|U32|PadlistREFCNT|PADLIST padlist
+The reference count of the padlist.  Currently this is always 1.
+
+=for apidoc Amx|PADNAME **|PadnamelistARRAY|PADNAMELIST pnl
+The C array of pad names.
+
+=for apidoc Amx|SSize_t|PadnamelistMAX|PADNAMELIST pnl
+The index of the last pad name.
+
+=for apidoc Amx|SSize_t|PadnamelistREFCNT|PADNAMELIST pnl
+The reference count of the pad name list.
+
+=for apidoc Amx|void|PadnamelistREFCNT_dec|PADNAMELIST pnl
+Lowers the reference count of the pad name list.
+
+=for apidoc Amx|SV **|PadARRAY|PAD pad
+The C array of pad entries.
+
+=for apidoc Amx|SSize_t|PadMAX|PAD pad
+The index of the last pad entry.
+
+=for apidoc Amx|char *|PadnamePV|PADNAME pn	
+The name stored in the pad name struct.  This returns C<NULL> for a target
+slot.
+
+=for apidoc Amx|STRLEN|PadnameLEN|PADNAME pn	
+The length of the name.
+
+=for apidoc Amx|bool|PadnameUTF8|PADNAME pn
+Whether PadnamePV is in UTF-8.  Currently, this is always true.
+
+=for apidoc Amx|SV *|PadnameSV|PADNAME pn
+Returns the pad name as a mortal SV.
+
+=for apidoc m|bool|PadnameIsOUR|PADNAME pn
+Whether this is an "our" variable.
+
+=for apidoc m|HV *|PadnameOURSTASH
+The stash in which this "our" variable was declared.
+
+=for apidoc m|bool|PadnameOUTER|PADNAME pn
+Whether this entry belongs to an outer pad.  Entries for which this is true
+are often referred to as 'fake'.
+
+=for apidoc m|bool|PadnameIsSTATE|PADNAME pn
+Whether this is a "state" variable.
+
+=for apidoc m|HV *|PadnameTYPE|PADNAME pn
+The stash associated with a typed lexical.  This returns the C<%Foo::> hash
+for C<my Foo $bar>.
+
+=for apidoc Amx|SSize_t|PadnameREFCNT|PADNAME pn
+The reference count of the pad name.
+
+=for apidoc Amx|void|PadnameREFCNT_dec|PADNAME pn
+Lowers the reference count of the pad name.
+
+
+=for apidoc m|SV *|PAD_SETSV	|PADOFFSET po|SV* sv
+Set the slot at offset C<po> in the current pad to C<sv>
+
+=for apidoc m|SV *|PAD_SV	|PADOFFSET po
+Get the value at offset C<po> in the current pad
+
+=for apidoc m|SV *|PAD_SVl	|PADOFFSET po
+Lightweight and lvalue version of C<PAD_SV>.
+Get or set the value at offset C<po> in the current pad.
+Unlike C<PAD_SV>, does not print diagnostics with -DX.
+For internal use only.
+
+=for apidoc m|SV *|PAD_BASE_SV	|PADLIST padlist|PADOFFSET po
+Get the value from slot C<po> in the base (DEPTH=1) pad of a padlist
+
+=for apidoc m|void|PAD_SET_CUR	|PADLIST padlist|I32 n
+Set the current pad to be pad C<n> in the padlist, saving
+the previous current pad.  NB currently this macro expands to a string too
+long for some compilers, so it's best to replace it with
+
+    SAVECOMPPAD();
+    PAD_SET_CUR_NOSAVE(padlist,n);
+
+
+=for apidoc m|void|PAD_SET_CUR_NOSAVE	|PADLIST padlist|I32 n
+like PAD_SET_CUR, but without the save
+
+=for apidoc m|void|PAD_SAVE_SETNULLPAD
+Save the current pad then set it to null.
+
+=for apidoc m|void|PAD_SAVE_LOCAL|PAD *opad|PAD *npad
+Save the current pad to the local variable C<opad>, then make the
+current pad equal to C<npad>
+
+=for apidoc m|void|PAD_RESTORE_LOCAL|PAD *opad
+Restore the old pad saved into the local variable C<opad> by C<PAD_SAVE_LOCAL()>
+
+=cut
+*/
+
+#define PadlistARRAY(pl)	(pl)->xpadl_arr.xpadlarr_alloc
+#define PadlistMAX(pl)		(pl)->xpadl_max
+#define PadlistNAMES(pl)	*((PADNAMELIST **)PadlistARRAY(pl))
+#define PadlistNAMESARRAY(pl)	PadnamelistARRAY(PadlistNAMES(pl))
+#define PadlistNAMESMAX(pl)	PadnamelistMAX(PadlistNAMES(pl))
+#define PadlistREFCNT(pl)	1	/* reserved for future use */
+
+#define PadnamelistARRAY(pnl)		(pnl)->xpadnl_alloc
+#define PadnamelistMAX(pnl)		(pnl)->xpadnl_fill
+#define PadnamelistMAXNAMED(pnl)	(pnl)->xpadnl_max_named
+#define PadnamelistREFCNT(pnl)		(pnl)->xpadnl_refcnt
+#define PadnamelistREFCNT_dec(pnl)	Perl_padnamelist_free(aTHX_ pnl)
+
+#define PadARRAY(pad)		AvARRAY(pad)
+#define PadMAX(pad)		AvFILLp(pad)
+
+#define PadnamePV(pn)		(pn)->xpadn_pv
+#define PadnameLEN(pn)		(pn)->xpadn_len
+#define PadnameUTF8(pn)		1
+#define PadnameSV(pn) \
+	newSVpvn_flags(PadnamePV(pn), PadnameLEN(pn), SVs_TEMP|SVf_UTF8)
+#define PadnameFLAGS(pn)	(pn)->xpadn_flags
+#define PadnameIsOUR(pn)	(!!(pn)->xpadn_ourstash)
+#define PadnameOURSTASH(pn)	(pn)->xpadn_ourstash
+#define PadnameTYPE(pn)		(pn)->xpadn_type_u.xpadn_typestash
+#define PadnamePROTOCV(pn)	(pn)->xpadn_type_u.xpadn_protocv
+#define PadnameREFCNT(pn)	(pn)->xpadn_refcnt
+#define PadnameREFCNT_dec(pn)	Perl_padname_free(aTHX_ pn)
+#define PadnameOURSTASH_set(pn,s) (PadnameOURSTASH(pn) = (s))
+#define PadnameTYPE_set(pn,s)	  (PadnameTYPE(pn) = (s))
+#define PadnameOUTER(pn)	(PadnameFLAGS(pn) & PADNAMEt_OUTER)
+#define PadnameIsSTATE(pn)	(PadnameFLAGS(pn) & PADNAMEt_STATE)
+#define PadnameLVALUE(pn)	(PadnameFLAGS(pn) & PADNAMEt_LVALUE)
+
+#define PadnameLVALUE_on(pn)	(PadnameFLAGS(pn) |= PADNAMEt_LVALUE)
+#define PadnameIsSTATE_on(pn)	(PadnameFLAGS(pn) |= PADNAMEt_STATE)
+
+#define PADNAMEt_OUTER	1	/* outer lexical var */
+#define PADNAMEt_STATE	2	/* state var */
+#define PADNAMEt_LVALUE	4	/* used as lvalue */
+#define PADNAMEt_TYPED	8	/* for B; unused by core */
+#define PADNAMEt_OUR	16	/* for B; unused by core */
+
+/* backward compatibility */
+#define SvPAD_STATE		PadnameIsSTATE
+#define SvPAD_TYPED(pn)		(!!PadnameTYPE(pn))
+#define SvPAD_OUR(pn)		(!!PadnameOURSTASH(pn))
+#define SvPAD_STATE_on		PadnameIsSTATE_on
+#define SvPAD_TYPED_on(pn)	(PadnameFLAGS(pn) |= PADNAMEt_TYPED)
+#define SvPAD_OUR_on(pn)	(PadnameFLAGS(pn) |= PADNAMEt_OUR)
+#define SvOURSTASH		PadnameOURSTASH
+#define SvOURSTASH_set		PadnameOURSTASH_set
+#define SVpad_STATE		PADNAMEt_STATE
+#define SVpad_TYPED		PADNAMEt_TYPED
+#define SVpad_OUR		PADNAMEt_OUR
+
+#ifdef DEBUGGING
+#  define PAD_SV(po)	   pad_sv(po)
+#  define PAD_SETSV(po,sv) pad_setsv(po,sv)
+#else
+#  define PAD_SV(po)       (PL_curpad[po])
+#  define PAD_SETSV(po,sv) PL_curpad[po] = (sv)
+#endif
+
+#define PAD_SVl(po)       (PL_curpad[po])
+
+#define PAD_BASE_SV(padlist, po) \
+	(PadlistARRAY(padlist)[1])					\
+	    ? AvARRAY(MUTABLE_AV((PadlistARRAY(padlist)[1])))[po] \
+	    : NULL;
+
+
+#define PAD_SET_CUR_NOSAVE(padlist,nth) \
+	PL_comppad = (PAD*) (PadlistARRAY(padlist)[nth]);	\
+	PL_curpad = AvARRAY(PL_comppad);			\
+	DEBUG_Xv(PerlIO_printf(Perl_debug_log,			\
+	      "Pad 0x%" UVxf "[0x%" UVxf "] set_cur    depth=%d\n",	\
+	      PTR2UV(PL_comppad), PTR2UV(PL_curpad), (int)(nth)));
+
+
+#define PAD_SET_CUR(padlist,nth) \
+	SAVECOMPPAD();						\
+	PAD_SET_CUR_NOSAVE(padlist,nth);
+
+
+#define PAD_SAVE_SETNULLPAD()	SAVECOMPPAD(); \
+	PL_comppad = NULL; PL_curpad = NULL;	\
+	DEBUG_Xv(PerlIO_printf(Perl_debug_log, "Pad set_null\n"));
+
+#define PAD_SAVE_LOCAL(opad,npad) \
+	opad = PL_comppad;					\
+	PL_comppad = (npad);					\
+	PL_curpad =  PL_comppad ? AvARRAY(PL_comppad) : NULL;	\
+	DEBUG_Xv(PerlIO_printf(Perl_debug_log,			\
+	      "Pad 0x%" UVxf "[0x%" UVxf "] save_local\n",		\
+	      PTR2UV(PL_comppad), PTR2UV(PL_curpad)));
+
+#define PAD_RESTORE_LOCAL(opad) \
+        assert(!opad || !SvIS_FREED(opad));					\
+	PL_comppad = opad;						\
+	PL_curpad =  PL_comppad ? AvARRAY(PL_comppad) : NULL;	\
+	DEBUG_Xv(PerlIO_printf(Perl_debug_log,			\
+	      "Pad 0x%" UVxf "[0x%" UVxf "] restore_local\n",	\
+	      PTR2UV(PL_comppad), PTR2UV(PL_curpad)));
+
+
+/*
+=for apidoc m|void|CX_CURPAD_SAVE|struct context
+Save the current pad in the given context block structure.
+
+=for apidoc m|SV *|CX_CURPAD_SV|struct context|PADOFFSET po
+Access the SV at offset C<po> in the saved current pad in the given
+context block structure (can be used as an lvalue).
+
+=cut
+*/
+
+#define CX_CURPAD_SAVE(block)  (block).oldcomppad = PL_comppad
+#define CX_CURPAD_SV(block,po) (AvARRAY(MUTABLE_AV(((block).oldcomppad)))[po])
+
+
+/*
+=for apidoc m|U32|PAD_COMPNAME_FLAGS|PADOFFSET po
+Return the flags for the current compiling pad name
+at offset C<po>.  Assumes a valid slot entry.
+
+=for apidoc m|char *|PAD_COMPNAME_PV|PADOFFSET po
+Return the name of the current compiling pad name
+at offset C<po>.  Assumes a valid slot entry.
+
+=for apidoc m|HV *|PAD_COMPNAME_TYPE|PADOFFSET po
+Return the type (stash) of the current compiling pad name at offset
+C<po>.  Must be a valid name.  Returns null if not typed.
+
+=for apidoc m|HV *|PAD_COMPNAME_OURSTASH|PADOFFSET po
+Return the stash associated with an C<our> variable.
+Assumes the slot entry is a valid C<our> lexical.
+
+=for apidoc m|STRLEN|PAD_COMPNAME_GEN|PADOFFSET po
+The generation number of the name at offset C<po> in the current
+compiling pad (lvalue).
+
+=for apidoc m|STRLEN|PAD_COMPNAME_GEN_set|PADOFFSET po|int gen
+Sets the generation number of the name at offset C<po> in the current
+ling pad (lvalue) to C<gen>.
+=cut
+
+*/
+
+#define PAD_COMPNAME(po)	PAD_COMPNAME_SV(po)
+#define PAD_COMPNAME_SV(po)	(PadnamelistARRAY(PL_comppad_name)[(po)])
+#define PAD_COMPNAME_FLAGS(po)	PadnameFLAGS(PAD_COMPNAME(po))
+#define PAD_COMPNAME_FLAGS_isOUR(po) SvPAD_OUR(PAD_COMPNAME_SV(po))
+#define PAD_COMPNAME_PV(po)	PadnamePV(PAD_COMPNAME(po))
+
+#define PAD_COMPNAME_TYPE(po)	PadnameTYPE(PAD_COMPNAME(po))
+
+#define PAD_COMPNAME_OURSTASH(po) \
+    (SvOURSTASH(PAD_COMPNAME_SV(po)))
+
+#define PAD_COMPNAME_GEN(po) \
+    ((STRLEN)PadnamelistARRAY(PL_comppad_name)[po]->xpadn_gen)
+
+#define PAD_COMPNAME_GEN_set(po, gen) \
+    (PadnamelistARRAY(PL_comppad_name)[po]->xpadn_gen = (gen))
+
+
+/*
+=for apidoc m|void|PAD_CLONE_VARS|PerlInterpreter *proto_perl|CLONE_PARAMS* param
+Clone the state variables associated with running and compiling pads.
+
+=cut
+*/
+
+/* NB - we set PL_comppad to null unless it points at a value that
+ * has already been dup'ed, ie it points to part of an active padlist.
+ * Otherwise PL_comppad ends up being a leaked scalar in code like
+ * the following:
+ *     threads->create(sub { threads->create(sub {...} ) } );
+ * where the second thread dups the outer sub's comppad but not the
+ * sub's CV or padlist. */
+
+#define PAD_CLONE_VARS(proto_perl, param)				\
+    PL_comppad			= av_dup(proto_perl->Icomppad, param);	\
+    PL_curpad = PL_comppad ?  AvARRAY(PL_comppad) : NULL;		\
+    PL_comppad_name		=					\
+		  padnamelist_dup(proto_perl->Icomppad_name, param);	\
+    PL_comppad_name_fill	= proto_perl->Icomppad_name_fill;	\
+    PL_comppad_name_floor	= proto_perl->Icomppad_name_floor;	\
+    PL_min_intro_pending	= proto_perl->Imin_intro_pending;	\
+    PL_max_intro_pending	= proto_perl->Imax_intro_pending;	\
+    PL_padix			= proto_perl->Ipadix;			\
+    PL_padix_floor		= proto_perl->Ipadix_floor;		\
+    PL_pad_reset_pending	= proto_perl->Ipad_reset_pending;	\
+    PL_cop_seqmax		= proto_perl->Icop_seqmax;
+
+/*
+=for apidoc Am|PADOFFSET|pad_add_name_pvs|const char *name|U32 flags|HV *typestash|HV *ourstash
+
+Exactly like L</pad_add_name_pvn>, but takes a C<NUL>-terminated literal string
+instead of a string/length pair.
+
+=cut
+*/
+
+#define pad_add_name_pvs(name,flags,typestash,ourstash) \
+    Perl_pad_add_name_pvn(aTHX_ STR_WITH_LEN(name), flags, typestash, ourstash)
+
+/*
+=for apidoc Am|PADOFFSET|pad_findmy_pvs|const char *name|U32 flags
+
+Exactly like L</pad_findmy_pvn>, but takes a C<NUL>-terminated literal string
+instead of a string/length pair.
+
+=cut
+*/
+
+#define pad_findmy_pvs(name,flags) \
+    Perl_pad_findmy_pvn(aTHX_ STR_WITH_LEN(name), flags)
+
+/*
+ * ex: set ts=8 sts=4 sw=4 et:
+ */
diff --git a/lib/5.24.1/x86_64-linux/CORE/parser.h b/lib/5.24.1/x86_64-linux/CORE/parser.h
new file mode 100644
index 00000000..96ab4f5f
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/parser.h
@@ -0,0 +1,153 @@
+/*    parser.h
+ *
+ *    Copyright (c) 2006, 2007, 2009, 2010, 2011 Larry Wall and others
+ *
+ *    You may distribute under the terms of either the GNU General Public
+ *    License or the Artistic License, as specified in the README file.
+ * 
+ * This file defines the layout of the parser object used by the parser
+ * and lexer (perly.c, toke.c).
+ */
+
+#define YYEMPTY		(-2)
+
+typedef struct {
+    YYSTYPE val;    /* semantic value */
+    short   state;
+    I32     savestack_ix;	/* size of savestack at this state */
+    CV	    *compcv; /* value of PL_compcv when this value was created */
+#ifdef DEBUGGING
+    const char  *name; /* token/rule name for -Dpv */
+#endif
+} yy_stack_frame;
+
+/* Fields that need to be shared with (i.e., visible to) inner lex-
+   ing scopes. */
+typedef struct yy_lexshared {
+    struct yy_lexshared	*ls_prev;
+    SV			*ls_linestr;	/* mirrors PL_parser->linestr */
+    char		*ls_bufptr;	/* mirrors PL_parser->bufptr */
+    char		*re_eval_start;	/* start of "(?{..." text */
+    SV			*re_eval_str;	/* "(?{...})" text */
+} LEXSHARED;
+
+typedef struct yy_parser {
+
+    /* parser state */
+
+    struct yy_parser *old_parser; /* previous value of PL_parser */
+    YYSTYPE	    yylval;	/* value of lookahead symbol, set by yylex() */
+    int		    yychar;	/* The lookahead symbol.  */
+
+    /* Number of tokens to shift before error messages enabled.  */
+    int		    yyerrstatus;
+
+    int		    stack_size;
+    int		    yylen;	/* length of active reduction */
+    yy_stack_frame  *stack;	/* base of stack */
+    yy_stack_frame  *ps;	/* current stack frame */
+
+    /* lexer state */
+
+    I32		lex_brackets;	/* square and curly bracket count */
+    I32		lex_casemods;	/* casemod count */
+    char	*lex_brackstack;/* what kind of brackets to pop */
+    char	*lex_casestack;	/* what kind of case mods in effect */
+    U8		lex_defer;	/* state after determined token */
+    U8		lex_dojoin;	/* doing an array interpolation
+				   1 = @{...}  2 = ->@ */
+    U8		lex_expect;	/* UNUSED */
+    U8		expect;		/* how to interpret ambiguous tokens */
+    I32		lex_formbrack;	/* bracket count at outer format level */
+    OP		*lex_inpat;	/* in pattern $) and $| are special */
+    OP		*lex_op;	/* extra info to pass back on op */
+    SV		*lex_repl;	/* runtime replacement from s/// */
+    U16		lex_inwhat;	/* what kind of quoting are we in */
+    OPCODE	last_lop_op;	/* last named list or unary operator */
+    I32		lex_starts;	/* how many interps done on level */
+    SV		*lex_stuff;	/* runtime pattern from m// or s/// */
+    I32		multi_start;	/* 1st line of multi-line string */
+    I32		multi_end;	/* last line of multi-line string */
+    char	multi_open;	/* delimiter of said string */
+    char	multi_close;	/* delimiter of said string */
+    bool	preambled;
+    bool        lex_re_reparsing; /* we're doing G_RE_REPARSING */
+    I32		lex_allbrackets;/* (), [], {}, ?: bracket count */
+    SUBLEXINFO	sublex_info;
+    LEXSHARED	*lex_shared;
+    SV		*linestr;	/* current chunk of src text */
+    char	*bufptr;	/* carries the cursor (current parsing
+				   position) from one invocation of yylex
+				   to the next */
+    char	*oldbufptr;	/* in yylex, beginning of current token */
+    char	*oldoldbufptr;	/* in yylex, beginning of previous token */
+    char	*bufend;	
+    char	*linestart;	/* beginning of most recently read line */
+    char	*last_uni;	/* position of last named-unary op */
+    char	*last_lop;	/* position of last list operator */
+    /* copline is used to pass a specific line number to newSTATEOP.  It
+       is a one-time line number, as newSTATEOP invalidates it (sets it to
+       NOLINE) after using it.  The purpose of this is to report line num-
+       bers in multiline constructs using the number of the first line. */
+    line_t	copline;
+    U16		in_my;		/* we're compiling a "my"/"our" declaration */
+    U8		lex_state;	/* next token is determined */
+    U8		error_count;	/* how many compile errors so far, max 10 */
+    HV		*in_my_stash;	/* declared class of this "my" declaration */
+    PerlIO	*rsfp;		/* current source file pointer */
+    AV		*rsfp_filters;	/* holds chain of active source filters */
+    U8		form_lex_state;	/* remember lex_state when parsing fmt */
+
+    YYSTYPE	nextval[5];	/* value of next token, if any */
+    I32		nexttype[5];	/* type of next token */
+    U32		nexttoke;
+
+    COP		*saved_curcop;	/* the previous PL_curcop */
+    char	tokenbuf[256];
+    line_t	herelines;	/* number of lines in here-doc */
+    line_t	preambling;	/* line # when processing $ENV{PERL5DB} */
+    U8		lex_fakeeof;	/* precedence at which to fake EOF */
+    U8		lex_flags;
+    PERL_BITFIELD16	in_pod:1;      /* lexer is within a =pod section */
+    PERL_BITFIELD16	filtered:1;    /* source filters in evalbytes */
+    PERL_BITFIELD16	saw_infix_sigil:1; /* saw & or * or % operator */
+    PERL_BITFIELD16	parsed_sub:1;  /* last thing parsed was a sub */
+} yy_parser;
+
+/* flags for lexer API */
+#define LEX_STUFF_UTF8		0x00000001
+#define LEX_KEEP_PREVIOUS	0x00000002
+
+#ifdef PERL_CORE
+# define LEX_START_SAME_FILTER	0x00000001
+# define LEX_IGNORE_UTF8_HINTS	0x00000002
+# define LEX_EVALBYTES		0x00000004
+# define LEX_START_COPIED	0x00000008
+# define LEX_DONT_CLOSE_RSFP	0x00000010
+# define LEX_START_FLAGS \
+	(LEX_START_SAME_FILTER|LEX_START_COPIED \
+	|LEX_IGNORE_UTF8_HINTS|LEX_EVALBYTES|LEX_DONT_CLOSE_RSFP)
+#endif
+
+/* flags for parser API */
+#define PARSE_OPTIONAL          0x00000001
+
+/* values for lex_fakeeof */
+enum {
+    LEX_FAKEEOF_NEVER,      /* don't fake EOF */
+    LEX_FAKEEOF_CLOSING,    /* fake EOF at unmatched closing punctuation */
+    LEX_FAKEEOF_NONEXPR,    /* ... and at token that can't be in expression */
+    LEX_FAKEEOF_LOWLOGIC,   /* ... and at low-precedence logic operator */
+    LEX_FAKEEOF_COMMA,      /* ... and at comma */
+    LEX_FAKEEOF_ASSIGN,     /* ... and at assignment operator */
+    LEX_FAKEEOF_IFELSE,     /* ... and at ?: operator */
+    LEX_FAKEEOF_RANGE,      /* ... and at range operator */
+    LEX_FAKEEOF_LOGIC,      /* ... and at logic operator */
+    LEX_FAKEEOF_BITWISE,    /* ... and at bitwise operator */
+    LEX_FAKEEOF_COMPARE,    /* ... and at comparison operator */
+    LEX_FAKEEOF_MAX
+};
+
+/*
+ * ex: set ts=8 sts=4 sw=4 et:
+ */
diff --git a/lib/5.24.1/x86_64-linux/CORE/patchlevel.h b/lib/5.24.1/x86_64-linux/CORE/patchlevel.h
new file mode 100644
index 00000000..0d8ab183
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/patchlevel.h
@@ -0,0 +1,153 @@
+/*    patchlevel.h
+ *
+ *    Copyright (C) 1993, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002,
+ *    2003, 2004, 2005, 2006, 2007, 2008, 2009, by Larry Wall and others
+ *
+ *    You may distribute under the terms of either the GNU General Public
+ *    License or the Artistic License, as specified in the README file.
+ *
+ */
+
+#ifndef __PATCHLEVEL_H_INCLUDED__
+
+/* do not adjust the whitespace! Configure expects the numbers to be
+ * exactly on the third column */
+
+#define PERL_REVISION	5		/* age */
+#define PERL_VERSION	24		/* epoch */
+#define PERL_SUBVERSION	1		/* generation */
+
+/* The following numbers describe the earliest compatible version of
+   Perl ("compatibility" here being defined as sufficient binary/API
+   compatibility to run XS code built with the older version).
+   Normally this should not change across maintenance releases.
+
+   Note that this only refers to an out-of-the-box build.  Many non-default
+   options such as usemultiplicity tend to break binary compatibility
+   more often.
+
+   This is used by Configure et al to figure out
+   PERL_INC_VERSION_LIST, which lists version libraries
+   to include in @INC.  See INSTALL for how this works.
+
+   Porting/bump-perl-version will automatically set these to the version of perl
+   to be released for blead releases, and to 5.X.0 for maint releases. Manually
+   changing them should not be necessary.
+*/
+#define PERL_API_REVISION	5
+#define PERL_API_VERSION	24
+#define PERL_API_SUBVERSION	0
+/*
+   XXX Note:  The selection of non-default Configure options, such
+   as -Duselonglong may invalidate these settings.  Currently, Configure
+   does not adequately test for this.   A.D.  Jan 13, 2000
+*/
+
+#define __PATCHLEVEL_H_INCLUDED__
+#endif
+
+/*
+	local_patches -- list of locally applied less-than-subversion patches.
+	If you're distributing such a patch, please give it a name and a
+	one-line description, placed just before the last NULL in the array
+	below.  If your patch fixes a bug in the perlbug database, please
+	mention the bugid.  If your patch *IS* dependent on a prior patch,
+	please place your applied patch line after its dependencies. This
+	will help tracking of patch dependencies.
+
+	Please either use 'diff --unified=0' if your diff supports
+	that or edit the hunk of the diff output which adds your patch
+	to this list, to remove context lines which would give patch
+	problems. For instance, if the original context diff is
+
+	   *** patchlevel.h.orig	<date here>
+	   --- patchlevel.h	<date here>
+	   *** 38,43 ***
+	   --- 38,44 ---
+	     	,"FOO1235 - some patch"
+	     	,"BAR3141 - another patch"
+	     	,"BAZ2718 - and another patch"
+	   + 	,"MINE001 - my new patch"
+	     	,NULL
+	     };
+
+	please change it to
+	   *** patchlevel.h.orig	<date here>
+	   --- patchlevel.h	<date here>
+	   *** 41,43 ***
+	   --- 41,44 ---
+	   + 	,"MINE001 - my new patch"
+	     	,NULL
+	     };
+
+	(Note changes to line numbers as well as removal of context lines.)
+	This will prevent patch from choking if someone has previously
+	applied different patches than you.
+
+        History has shown that nobody distributes patches that also
+        modify patchlevel.h. Do it yourself. The following perl
+        program can be used to add a comment to patchlevel.h:
+
+#!perl
+die "Usage: perl -x patchlevel.h comment ..." unless @ARGV;
+open PLIN, "patchlevel.h" or die "Couldn't open patchlevel.h : $!";
+open PLOUT, ">patchlevel.new" or die "Couldn't write on patchlevel.new : $!";
+my $seen=0;
+while (<PLIN>) {
+    if (/\t,NULL/ and $seen) {
+       while (my $c = shift @ARGV){
+	    $c =~ s|\\|\\\\|g;
+	    $c =~ s|"|\\"|g;
+            print PLOUT qq{\t,"$c"\n};
+       }
+    }
+    $seen++ if /local_patches\[\]/;
+    print PLOUT;
+}
+close PLOUT or die "Couldn't close filehandle writing to patchlevel.new : $!";
+close PLIN or die "Couldn't close filehandle reading from patchlevel.h : $!";
+close DATA; # needed to allow unlink to work win32.
+unlink "patchlevel.bak" or warn "Couldn't unlink patchlevel.bak : $!"
+  if -e "patchlevel.bak";
+rename "patchlevel.h", "patchlevel.bak" or
+  die "Couldn't rename patchlevel.h to patchlevel.bak : $!";
+rename "patchlevel.new", "patchlevel.h" or
+  die "Couldn't rename patchlevel.new to patchlevel.h : $!";
+__END__
+
+Please keep empty lines below so that context diffs of this file do
+not ever collect the lines belonging to local_patches() into the same
+hunk.
+
+ */
+
+#if !defined(PERL_PATCHLEVEL_H_IMPLICIT) && !defined(LOCAL_PATCH_COUNT)
+#  if defined(PERL_IS_MINIPERL)
+#    define PERL_PATCHNUM "UNKNOWN-miniperl"
+#    define PERL_GIT_UNPUSHED_COMMITS /*leave-this-comment*/
+#  elif defined(PERL_MICRO)
+#    define PERL_PATCHNUM "UNKNOWN-microperl"
+#    define PERL_GIT_UNPUSHED_COMMITS /*leave-this-comment*/
+#  else
+#include "git_version.h"
+#  endif
+static const char * const local_patches[] = {
+	NULL
+#ifdef PERL_GIT_UNCOMMITTED_CHANGES
+	,"uncommitted-changes"
+#endif
+	PERL_GIT_UNPUSHED_COMMITS    	/* do not remove this line */
+	,NULL
+};
+
+
+
+/* Initial space prevents this variable from being inserted in config.sh  */
+#  define	LOCAL_PATCH_COUNT	\
+	((int)(C_ARRAY_LENGTH(local_patches)-2))
+
+/* the old terms of reference, add them only when explicitly included */
+#define PATCHLEVEL		PERL_VERSION
+#undef  SUBVERSION		/* OS/390 has a SUBVERSION in a system header */
+#define SUBVERSION		PERL_SUBVERSION
+#endif
diff --git a/lib/5.24.1/x86_64-linux/CORE/perl.h b/lib/5.24.1/x86_64-linux/CORE/perl.h
new file mode 100644
index 00000000..f8f0069d
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/perl.h
@@ -0,0 +1,7234 @@
+/*    perl.h
+ *
+ *    Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001
+ *    2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 by Larry Wall and others
+ *
+ *    You may distribute under the terms of either the GNU General Public
+ *    License or the Artistic License, as specified in the README file.
+ *
+ */
+
+#ifndef H_PERL
+#define H_PERL 1
+
+#ifdef PERL_FOR_X2P
+/*
+ * This file is being used for x2p stuff.
+ * Above symbol is defined via -D in 'x2p/Makefile.SH'
+ * Decouple x2p stuff from some of perls more extreme eccentricities.
+ */
+#undef MULTIPLICITY
+#undef USE_STDIO
+#define USE_STDIO
+#endif /* PERL_FOR_X2P */
+
+#ifdef PERL_MICRO
+#   include "uconfig.h"
+#else
+#   include "config.h"
+#endif
+
+/* NOTE 1: that with gcc -std=c89 the __STDC_VERSION__ is *not* defined
+ * because the __STDC_VERSION__ became a thing only with C90.  Therefore,
+ * with gcc, HAS_C99 will never become true as long as we use -std=c89.
+
+ * NOTE 2: headers lie.  Do not expect that if HAS_C99 gets to be true,
+ * all the C99 features are there and are correct. */
+#if (defined(__STDC_VERSION__) && __STDC_VERSION__ >= 199901L) || \
+    defined(_STDC_C99) || defined(__c99)
+#  define HAS_C99 1
+#endif
+
+/* See L<perlguts/"The Perl API"> for detailed notes on
+ * PERL_IMPLICIT_CONTEXT and PERL_IMPLICIT_SYS */
+
+/* Note that from here --> to <-- the same logic is
+ * repeated in makedef.pl, so be certain to update
+ * both places when editing. */
+
+#ifdef USE_ITHREADS
+#  if !defined(MULTIPLICITY)
+#    define MULTIPLICITY
+#  endif
+#endif
+
+#ifdef PERL_GLOBAL_STRUCT_PRIVATE
+#  ifndef PERL_GLOBAL_STRUCT
+#    define PERL_GLOBAL_STRUCT
+#  endif
+#endif
+
+#ifdef PERL_GLOBAL_STRUCT
+#  ifndef MULTIPLICITY
+#    define MULTIPLICITY
+#  endif
+#endif
+
+#ifdef MULTIPLICITY
+#  ifndef PERL_IMPLICIT_CONTEXT
+#    define PERL_IMPLICIT_CONTEXT
+#  endif
+#endif
+
+/* undef WIN32 when building on Cygwin (for libwin32) - gph */
+#ifdef __CYGWIN__
+#   undef WIN32
+#   undef _WIN32
+#endif
+
+#if defined(__SYMBIAN32__) || (defined(__VC32__) && defined(WINS))
+#   ifndef SYMBIAN
+#       define SYMBIAN
+#   endif
+#endif
+
+#ifdef __SYMBIAN32__
+#  include "symbian/symbian_proto.h"
+#endif
+
+/* Any stack-challenged places.  The limit varies (and often
+ * is configurable), but using more than a kilobyte of stack
+ * is usually dubious in these systems. */
+#if defined(__SYMBIAN32__)
+/* Symbian: need to work around the SDK features. *
+ * On WINS: MS VC5 generates calls to _chkstk,         *
+ * if a "large" stack frame is allocated.              *
+ * gcc on MARM does not generate calls like these.     */
+#   define USE_HEAP_INSTEAD_OF_STACK
+#endif
+
+/* Use the reentrant APIs like localtime_r and getpwent_r */
+/* Win32 has naturally threadsafe libraries, no need to use any _r variants. */
+#if defined(USE_ITHREADS) && !defined(USE_REENTRANT_API) && !defined(NETWARE) && !defined(WIN32) && !defined(PERL_DARWIN)
+#   define USE_REENTRANT_API
+#endif
+
+/* <--- here ends the logic shared by perl.h and makedef.pl */
+
+/* Microsoft Visual C++ 6.0 needs special treatment in numerous places */
+#if defined(WIN32) && defined(_MSC_VER) && _MSC_VER >= 1200 && _MSC_VER < 1300
+#  define USING_MSVC6
+#endif
+
+#undef START_EXTERN_C
+#undef END_EXTERN_C
+#undef EXTERN_C
+#ifdef __cplusplus
+#  define START_EXTERN_C extern "C" {
+#  define END_EXTERN_C }
+#  define EXTERN_C extern "C"
+#else
+#  define START_EXTERN_C
+#  define END_EXTERN_C
+#  define EXTERN_C extern
+#endif
+
+/* Fallback definitions in case we don't have definitions from config.h.
+   This should only matter for systems that don't use Configure and
+   haven't been modified to define PERL_STATIC_INLINE yet.
+*/
+#if !defined(PERL_STATIC_INLINE)
+#  ifdef HAS_STATIC_INLINE
+#    define PERL_STATIC_INLINE static inline
+#  else
+#    define PERL_STATIC_INLINE static
+#  endif
+#endif
+
+#ifdef PERL_GLOBAL_STRUCT
+#  ifndef PERL_GET_VARS
+#    ifdef PERL_GLOBAL_STRUCT_PRIVATE
+       EXTERN_C struct perl_vars* Perl_GetVarsPrivate();
+#      define PERL_GET_VARS() Perl_GetVarsPrivate() /* see miniperlmain.c */
+#    else
+#      define PERL_GET_VARS() PL_VarsPtr
+#    endif
+#  endif
+#endif
+
+/* this used to be off by default, now its on, see perlio.h */
+#define PERLIO_FUNCS_CONST
+
+#define pVAR    struct perl_vars* my_vars PERL_UNUSED_DECL
+
+#ifdef PERL_GLOBAL_STRUCT
+#  define dVAR		pVAR    = (struct perl_vars*)PERL_GET_VARS()
+#else
+#  define dVAR		dNOOP
+#endif
+
+#ifdef PERL_IMPLICIT_CONTEXT
+#  ifndef MULTIPLICITY
+#    define MULTIPLICITY
+#  endif
+#  define tTHX	PerlInterpreter*
+#  define pTHX  tTHX my_perl PERL_UNUSED_DECL
+#  define aTHX	my_perl
+#  define aTHXa(a) aTHX = (tTHX)a
+#  ifdef PERL_GLOBAL_STRUCT
+#    define dTHXa(a)	dVAR; pTHX = (tTHX)a
+#  else
+#    define dTHXa(a)	pTHX = (tTHX)a
+#  endif
+#  ifdef PERL_GLOBAL_STRUCT
+#    define dTHX		dVAR; pTHX = PERL_GET_THX
+#  else
+#    define dTHX		pTHX = PERL_GET_THX
+#  endif
+#  define pTHX_		pTHX,
+#  define aTHX_		aTHX,
+#  define pTHX_1	2
+#  define pTHX_2	3
+#  define pTHX_3	4
+#  define pTHX_4	5
+#  define pTHX_5	6
+#  define pTHX_6	7
+#  define pTHX_7	8
+#  define pTHX_8	9
+#  define pTHX_9	10
+#  define pTHX_12	13
+#  if defined(DEBUGGING) && !defined(PERL_TRACK_MEMPOOL)
+#    define PERL_TRACK_MEMPOOL
+#  endif
+#else
+#  undef PERL_TRACK_MEMPOOL
+#endif
+
+#define STATIC static
+
+#ifndef PERL_CORE
+/* Do not use these macros. They were part of PERL_OBJECT, which was an
+ * implementation of multiplicity using C++ objects. They have been left
+ * here solely for the sake of XS code which has incorrectly
+ * cargo-culted them.
+ */
+#define CPERLscope(x) x
+#define CPERLarg void
+#define CPERLarg_
+#define _CPERLarg
+#define PERL_OBJECT_THIS
+#define _PERL_OBJECT_THIS
+#define PERL_OBJECT_THIS_
+#define CALL_FPTR(fptr) (*fptr)
+#define MEMBER_TO_FPTR(name) name
+#endif /* !PERL_CORE */
+
+#define CALLRUNOPS  PL_runops
+
+#define CALLREGCOMP(sv, flags) Perl_pregcomp(aTHX_ (sv),(flags))
+
+#define CALLREGCOMP_ENG(prog, sv, flags) (prog)->comp(aTHX_ sv, flags)
+#define CALLREGEXEC(prog,stringarg,strend,strbeg,minend,sv,data,flags) \
+    RX_ENGINE(prog)->exec(aTHX_ (prog),(stringarg),(strend), \
+        (strbeg),(minend),(sv),(data),(flags))
+#define CALLREG_INTUIT_START(prog,sv,strbeg,strpos,strend,flags,data) \
+    RX_ENGINE(prog)->intuit(aTHX_ (prog), (sv), (strbeg), (strpos), \
+        (strend),(flags),(data))
+#define CALLREG_INTUIT_STRING(prog) \
+    RX_ENGINE(prog)->checkstr(aTHX_ (prog))
+
+#define CALLREGFREE(prog) \
+    Perl_pregfree(aTHX_ (prog))
+
+#define CALLREGFREE_PVT(prog) \
+    if(prog) RX_ENGINE(prog)->rxfree(aTHX_ (prog))
+
+#define CALLREG_NUMBUF_FETCH(rx,paren,usesv)                                \
+    RX_ENGINE(rx)->numbered_buff_FETCH(aTHX_ (rx),(paren),(usesv))
+
+#define CALLREG_NUMBUF_STORE(rx,paren,value) \
+    RX_ENGINE(rx)->numbered_buff_STORE(aTHX_ (rx),(paren),(value))
+
+#define CALLREG_NUMBUF_LENGTH(rx,sv,paren)                              \
+    RX_ENGINE(rx)->numbered_buff_LENGTH(aTHX_ (rx),(sv),(paren))
+
+#define CALLREG_NAMED_BUFF_FETCH(rx, key, flags) \
+    RX_ENGINE(rx)->named_buff(aTHX_ (rx), (key), NULL, ((flags) | RXapif_FETCH))
+
+#define CALLREG_NAMED_BUFF_STORE(rx, key, value, flags) \
+    RX_ENGINE(rx)->named_buff(aTHX_ (rx), (key), (value), ((flags) | RXapif_STORE))
+
+#define CALLREG_NAMED_BUFF_DELETE(rx, key, flags) \
+    RX_ENGINE(rx)->named_buff(aTHX_ (rx),(key), NULL, ((flags) | RXapif_DELETE))
+
+#define CALLREG_NAMED_BUFF_CLEAR(rx, flags) \
+    RX_ENGINE(rx)->named_buff(aTHX_ (rx), NULL, NULL, ((flags) | RXapif_CLEAR))
+
+#define CALLREG_NAMED_BUFF_EXISTS(rx, key, flags) \
+    RX_ENGINE(rx)->named_buff(aTHX_ (rx), (key), NULL, ((flags) | RXapif_EXISTS))
+
+#define CALLREG_NAMED_BUFF_FIRSTKEY(rx, flags) \
+    RX_ENGINE(rx)->named_buff_iter(aTHX_ (rx), NULL, ((flags) | RXapif_FIRSTKEY))
+
+#define CALLREG_NAMED_BUFF_NEXTKEY(rx, lastkey, flags) \
+    RX_ENGINE(rx)->named_buff_iter(aTHX_ (rx), (lastkey), ((flags) | RXapif_NEXTKEY))
+
+#define CALLREG_NAMED_BUFF_SCALAR(rx, flags) \
+    RX_ENGINE(rx)->named_buff(aTHX_ (rx), NULL, NULL, ((flags) | RXapif_SCALAR))
+
+#define CALLREG_NAMED_BUFF_COUNT(rx) \
+    RX_ENGINE(rx)->named_buff(aTHX_ (rx), NULL, NULL, RXapif_REGNAMES_COUNT)
+
+#define CALLREG_NAMED_BUFF_ALL(rx, flags) \
+    RX_ENGINE(rx)->named_buff(aTHX_ (rx), NULL, NULL, flags)
+
+#define CALLREG_PACKAGE(rx) \
+    RX_ENGINE(rx)->qr_package(aTHX_ (rx))
+
+#if defined(USE_ITHREADS)
+#define CALLREGDUPE(prog,param) \
+    Perl_re_dup(aTHX_ (prog),(param))
+
+#define CALLREGDUPE_PVT(prog,param) \
+    (prog ? RX_ENGINE(prog)->dupe(aTHX_ (prog),(param)) \
+          : (REGEXP *)NULL)
+#endif
+
+
+
+
+
+/*
+ * Because of backward compatibility reasons the PERL_UNUSED_DECL
+ * cannot be changed from postfix to PERL_UNUSED_DECL(x).  Sigh.
+ *
+ * Note that there are C compilers such as MetroWerks CodeWarrior
+ * which do not have an "inlined" way (like the gcc __attribute__) of
+ * marking unused variables (they need e.g. a #pragma) and therefore
+ * cpp macros like PERL_UNUSED_DECL cannot work for this purpose, even
+ * if it were PERL_UNUSED_DECL(x), which it cannot be (see above).
+ *
+ */
+
+#if defined(__SYMBIAN32__) && defined(__GNUC__)
+#  ifdef __cplusplus
+#    define PERL_UNUSED_DECL
+#  else
+#    define PERL_UNUSED_DECL __attribute__((unused))
+#  endif
+#endif
+
+#ifndef PERL_UNUSED_DECL
+#  if defined(HASATTRIBUTE_UNUSED) && (!defined(__cplusplus) || (__GNUC__ > 4 || (__GNUC__ == 4 && __GNUC_MINOR__ >= 3)))
+#    define PERL_UNUSED_DECL __attribute__unused__
+#  else
+#    define PERL_UNUSED_DECL
+#  endif
+#endif
+
+/* gcc -Wall:
+ * for silencing unused variables that are actually used most of the time,
+ * but we cannot quite get rid of, such as "ax" in PPCODE+noargs xsubs,
+ * or variables/arguments that are used only in certain configurations.
+ */
+#ifndef PERL_UNUSED_ARG
+#  if defined(lint) && defined(S_SPLINT_S) /* www.splint.org */
+#    include <note.h>
+#    define PERL_UNUSED_ARG(x) NOTE(ARGUNUSED(x))
+#  else
+#    define PERL_UNUSED_ARG(x) ((void)sizeof(x))
+#  endif
+#endif
+#ifndef PERL_UNUSED_VAR
+#  define PERL_UNUSED_VAR(x) ((void)sizeof(x))
+#endif
+
+#if defined(USE_ITHREADS) || defined(PERL_GLOBAL_STRUCT)
+#  define PERL_UNUSED_CONTEXT PERL_UNUSED_ARG(my_perl)
+#else
+#  define PERL_UNUSED_CONTEXT
+#endif
+
+/* gcc (-ansi) -pedantic doesn't allow gcc statement expressions,
+ * g++ allows them but seems to have problems with them
+ * (insane errors ensue).
+ * g++ does not give insane errors now (RMB 2008-01-30, gcc 4.2.2).
+ */
+#if defined(PERL_GCC_PEDANTIC) || \
+    (defined(__GNUC__) && defined(__cplusplus) && \
+	((__GNUC__ < 4) || ((__GNUC__ == 4) && (__GNUC_MINOR__ < 2))))
+#  ifndef PERL_GCC_BRACE_GROUPS_FORBIDDEN
+#    define PERL_GCC_BRACE_GROUPS_FORBIDDEN
+#  endif
+#endif
+
+/* Use PERL_UNUSED_RESULT() to suppress the warnings about unused results
+ * of function calls, e.g. PERL_UNUSED_RESULT(foo(a, b)).
+ *
+ * The main reason for this is that the combination of gcc -Wunused-result
+ * (part of -Wall) and the __attribute__((warn_unused_result)) cannot
+ * be silenced with casting to void.  This causes trouble when the system
+ * header files use the attribute.
+ *
+ * Use PERL_UNUSED_RESULT sparingly, though, since usually the warning
+ * is there for a good reason: you might lose success/failure information,
+ * or leak resources, or changes in resources.
+ *
+ * But sometimes you just want to ignore the return value, e.g. on
+ * codepaths soon ending up in abort, or in "best effort" attempts,
+ * or in situations where there is no good way to handle failures.
+ *
+ * Sometimes PERL_UNUSED_RESULT might not be the most natural way:
+ * another possibility is that you can capture the return value
+ * and use PERL_UNUSED_VAR on that.
+ *
+ * The __typeof__() is used instead of typeof() since typeof() is not
+ * available under strict C89, and because of compilers masquerading
+ * as gcc (clang and icc), we want exactly the gcc extension
+ * __typeof__ and nothing else.
+ */
+#ifndef PERL_UNUSED_RESULT
+#  if defined(__GNUC__) && defined(HASATTRIBUTE_WARN_UNUSED_RESULT)
+#    define PERL_UNUSED_RESULT(v) STMT_START { __typeof__(v) z = (v); (void)sizeof(z); } STMT_END
+#  else
+#    define PERL_UNUSED_RESULT(v) ((void)(v))
+#  endif
+#endif
+
+/* on gcc (and clang), specify that a warning should be temporarily
+ * ignored; e.g.
+ *
+ *    GCC_DIAG_IGNORE(-Wmultichar);
+ *    char b = 'ab';
+ *    GCC_DIAG_RESTORE;
+ *
+ * based on http://dbp-consulting.com/tutorials/SuppressingGCCWarnings.html
+ *
+ * Note that "pragma GCC diagnostic push/pop" was added in GCC 4.6, Mar 2011;
+ * clang only pretends to be GCC 4.2, but still supports push/pop.
+ *
+ * Note on usage: on non-gcc (or lookalike, like clang) compilers
+ * one cannot use these at file (global) level without warnings
+ * since they are defined as empty, which leads into the terminating
+ * semicolon being left alone on a line:
+ * ;
+ * which makes compilers mildly cranky.  Therefore at file level one
+ * should use the GCC_DIAG_IGNORE and GCC_DIAG_RESTORE_FILE *without*
+ * the semicolons.
+ *
+ * (A dead-on-arrival solution would be to try to define the macros as
+ * NOOP or dNOOP, those don't work both inside functions and outside.)
+ */
+
+#if defined(__clang__) || defined(__clang) || \
+       (defined( __GNUC__) && ((__GNUC__ * 100) + __GNUC_MINOR__) >= 406)
+#  define GCC_DIAG_PRAGMA(x) _Pragma (#x)
+/* clang has "clang diagnostic" pragmas, but also understands gcc. */
+#  define GCC_DIAG_IGNORE(x) _Pragma("GCC diagnostic push") \
+                             GCC_DIAG_PRAGMA(GCC diagnostic ignored #x)
+#  define GCC_DIAG_RESTORE   _Pragma("GCC diagnostic pop")
+#else
+#  define GCC_DIAG_IGNORE(w)
+#  define GCC_DIAG_RESTORE
+#endif
+/* for clang specific pragmas */
+#if defined(__clang__) || defined(__clang)
+#  define CLANG_DIAG_PRAGMA(x) _Pragma (#x)
+#  define CLANG_DIAG_IGNORE(x) _Pragma("clang diagnostic push") \
+                               CLANG_DIAG_PRAGMA(clang diagnostic ignored #x)
+#  define CLANG_DIAG_RESTORE   _Pragma("clang diagnostic pop")
+#else
+#  define CLANG_DIAG_IGNORE(w)
+#  define CLANG_DIAG_RESTORE
+#endif
+
+#define NOOP /*EMPTY*/(void)0
+/* cea2e8a9dd23747f accidentally lost the comment originally from the first
+   check in of thread.h, explaining why we need dNOOP at all:  */
+/* Rats: if dTHR is just blank then the subsequent ";" throws an error */
+/* Declaring a *function*, instead of a variable, ensures that we don't rely
+   on being able to suppress "unused" warnings.  */
+#ifdef __cplusplus
+#define dNOOP (void)0
+#else
+#define dNOOP extern int Perl___notused(void)
+#endif
+
+#ifndef pTHX
+/* Don't bother defining tTHX ; using it outside
+ * code guarded by PERL_IMPLICIT_CONTEXT is an error.
+ */
+#  define pTHX		void
+#  define pTHX_
+#  define aTHX
+#  define aTHX_
+#  define aTHXa(a)      NOOP
+#  define dTHXa(a)	dNOOP
+#  define dTHX		dNOOP
+#  define pTHX_1	1	
+#  define pTHX_2	2
+#  define pTHX_3	3
+#  define pTHX_4	4
+#  define pTHX_5	5
+#  define pTHX_6	6
+#  define pTHX_7	7
+#  define pTHX_8	8
+#  define pTHX_9	9
+#  define pTHX_12	12
+#endif
+
+#ifndef dVAR
+#  define dVAR		dNOOP
+#endif
+
+/* these are only defined for compatibility; should not be used internally */
+#if !defined(pTHXo) && !defined(PERL_CORE)
+#  define pTHXo		pTHX
+#  define pTHXo_	pTHX_
+#  define aTHXo		aTHX
+#  define aTHXo_	aTHX_
+#  define dTHXo		dTHX
+#  define dTHXoa(x)	dTHXa(x)
+#endif
+
+#ifndef pTHXx
+#  define pTHXx		PerlInterpreter *my_perl
+#  define pTHXx_	pTHXx,
+#  define aTHXx		my_perl
+#  define aTHXx_	aTHXx,
+#  define dTHXx		dTHX
+#endif
+
+/* Under PERL_IMPLICIT_SYS (used in Windows for fork emulation)
+ * PerlIO_foo() expands to PL_StdIO->pFOO(PL_StdIO, ...).
+ * dTHXs is therefore needed for all functions using PerlIO_foo(). */
+#ifdef PERL_IMPLICIT_SYS
+#  ifdef PERL_GLOBAL_STRUCT_PRIVATE
+#    define dTHXs		dVAR; dTHX
+#  else
+#    define dTHXs		dTHX
+#  endif
+#else
+#  ifdef PERL_GLOBAL_STRUCT_PRIVATE
+#    define dTHXs		dVAR
+#  else
+#    define dTHXs		dNOOP
+#  endif
+#endif
+
+#if defined(__GNUC__) && !defined(PERL_GCC_BRACE_GROUPS_FORBIDDEN) && !defined(__cplusplus)
+#  ifndef PERL_USE_GCC_BRACE_GROUPS
+#    define PERL_USE_GCC_BRACE_GROUPS
+#  endif
+#endif
+
+/*
+ * STMT_START { statements; } STMT_END;
+ * can be used as a single statement, as in
+ * if (x) STMT_START { ... } STMT_END; else ...
+ *
+ * Trying to select a version that gives no warnings...
+ */
+#if !(defined(STMT_START) && defined(STMT_END))
+# ifdef PERL_USE_GCC_BRACE_GROUPS
+#   define STMT_START	(void)(	/* gcc supports "({ STATEMENTS; })" */
+#   define STMT_END	)
+# else
+#   define STMT_START	do
+#   define STMT_END	while (0)
+# endif
+#endif
+
+#ifndef BYTEORDER  /* Should never happen -- byteorder is in config.h */
+#   define BYTEORDER 0x1234
+#endif
+
+/* Overall memory policy? */
+#ifndef CONSERVATIVE
+#   define LIBERAL 1
+#endif
+
+#if 'A' == 65 && 'I' == 73 && 'J' == 74 && 'Z' == 90
+#define ASCIIish
+#else
+#undef  ASCIIish
+#endif
+
+/*
+ * The following contortions are brought to you on behalf of all the
+ * standards, semi-standards, de facto standards, not-so-de-facto standards
+ * of the world, as well as all the other botches anyone ever thought of.
+ * The basic theory is that if we work hard enough here, the rest of the
+ * code can be a lot prettier.  Well, so much for theory.  Sorry, Henry...
+ */
+
+/* define this once if either system, instead of cluttering up the src */
+#if defined(MSDOS) || defined(WIN32) || defined(NETWARE)
+#define DOSISH 1
+#endif
+
+#if defined(__STDC__) || defined(_AIX) || defined(__stdc__) || defined(__cplusplus) || defined(NETWARE) || defined(__SYMBIAN32__)
+# define STANDARD_C 1
+#endif
+
+#if defined(__cplusplus) || defined(WIN32) || defined(__sgi) || defined(__EMX__) || defined(__QNX__) || defined(NETWARE) || defined(PERL_MICRO)
+# define DONT_DECLARE_STD 1
+#endif
+
+#if defined(HASVOLATILE) || defined(STANDARD_C)
+#	define VOL volatile
+#else
+#   define VOL
+#endif
+
+/* By compiling a perl with -DNO_TAINT_SUPPORT or -DSILENT_NO_TAINT_SUPPORT,
+ * you get a perl without taint support, but doubtlessly with a lesser
+ * degree of support. Do not do so unless you know exactly what it means
+ * technically, have a good reason to do so, and know exactly how the
+ * perl will be used. perls with -DSILENT_NO_TAINT_SUPPORT are considered
+ * a potential security risk due to flat out ignoring the security-relevant
+ * taint flags. This being said, a perl without taint support compiled in
+ * has marginal run-time performance benefits.
+ * SILENT_NO_TAINT_SUPPORT implies NO_TAINT_SUPPORT.
+ * SILENT_NO_TAINT_SUPPORT is the same as NO_TAINT_SUPPORT except it
+ * silently ignores -t/-T instead of throwing an exception.
+ *
+ * DANGER! Using NO_TAINT_SUPPORT or SILENT_NO_TAINT_SUPPORT
+ *         voids your nonexistent warranty!
+ */
+#if defined(SILENT_NO_TAINT_SUPPORT) && !defined(NO_TAINT_SUPPORT)
+#  define NO_TAINT_SUPPORT 1
+#endif
+
+/* NO_TAINT_SUPPORT can be set to transform virtually all taint-related
+ * operations into no-ops for a very modest speed-up. Enable only if you
+ * know what you're doing: tests and CPAN modules' tests are bound to fail.
+ */
+#ifdef NO_TAINT_SUPPORT
+#   define TAINT		NOOP
+#   define TAINT_NOT		NOOP
+#   define TAINT_IF(c)		NOOP
+#   define TAINT_ENV()		NOOP
+#   define TAINT_PROPER(s)	NOOP
+#   define TAINT_set(s)		NOOP
+#   define TAINT_get		0
+#   define TAINTING_get		0
+#   define TAINTING_set(s)	NOOP
+#   define TAINT_WARN_get       0
+#   define TAINT_WARN_set(s)    NOOP
+#else
+#   define TAINT		(PL_tainted = PL_tainting)
+#   define TAINT_NOT	(PL_tainted = FALSE)
+#   define TAINT_IF(c)	if (UNLIKELY(c)) { PL_tainted = PL_tainting; }
+#   define TAINT_ENV()	if (UNLIKELY(PL_tainting)) { taint_env(); }
+#   define TAINT_PROPER(s)	if (UNLIKELY(PL_tainting)) { taint_proper(NULL, s); }
+#   define TAINT_set(s)		(PL_tainted = (s))
+#   define TAINT_get		(PL_tainted)
+#   define TAINTING_get		(PL_tainting)
+#   define TAINTING_set(s)	(PL_tainting = (s))
+#   define TAINT_WARN_get       (PL_taint_warn)
+#   define TAINT_WARN_set(s)    (PL_taint_warn = (s))
+#endif
+
+/* flags used internally only within pp_subst and pp_substcont */
+#ifdef PERL_CORE
+#  define SUBST_TAINT_STR      1	/* string tainted */
+#  define SUBST_TAINT_PAT      2	/* pattern tainted */
+#  define SUBST_TAINT_REPL     4	/* replacement tainted */
+#  define SUBST_TAINT_RETAINT  8	/* use re'taint' in scope */
+#  define SUBST_TAINT_BOOLRET 16	/* return is boolean (don't taint) */
+#endif
+
+/* XXX All process group stuff is handled in pp_sys.c.  Should these
+   defines move there?  If so, I could simplify this a lot. --AD  9/96.
+*/
+/* Process group stuff changed from traditional BSD to POSIX.
+   perlfunc.pod documents the traditional BSD-style syntax, so we'll
+   try to preserve that, if possible.
+*/
+#ifdef HAS_SETPGID
+#  define BSD_SETPGRP(pid, pgrp)	setpgid((pid), (pgrp))
+#else
+#  if defined(HAS_SETPGRP) && defined(USE_BSD_SETPGRP)
+#    define BSD_SETPGRP(pid, pgrp)	setpgrp((pid), (pgrp))
+#  else
+#    ifdef HAS_SETPGRP2  /* DG/UX */
+#      define BSD_SETPGRP(pid, pgrp)	setpgrp2((pid), (pgrp))
+#    endif
+#  endif
+#endif
+#if defined(BSD_SETPGRP) && !defined(HAS_SETPGRP)
+#  define HAS_SETPGRP  /* Well, effectively it does . . . */
+#endif
+
+/* getpgid isn't POSIX, but at least Solaris and Linux have it, and it makes
+    our life easier :-) so we'll try it.
+*/
+#ifdef HAS_GETPGID
+#  define BSD_GETPGRP(pid)		getpgid((pid))
+#else
+#  if defined(HAS_GETPGRP) && defined(USE_BSD_GETPGRP)
+#    define BSD_GETPGRP(pid)		getpgrp((pid))
+#  else
+#    ifdef HAS_GETPGRP2  /* DG/UX */
+#      define BSD_GETPGRP(pid)		getpgrp2((pid))
+#    endif
+#  endif
+#endif
+#if defined(BSD_GETPGRP) && !defined(HAS_GETPGRP)
+#  define HAS_GETPGRP  /* Well, effectively it does . . . */
+#endif
+
+/* These are not exact synonyms, since setpgrp() and getpgrp() may
+   have different behaviors, but perl.h used to define USE_BSDPGRP
+   (prior to 5.003_05) so some extension might depend on it.
+*/
+#if defined(USE_BSD_SETPGRP) || defined(USE_BSD_GETPGRP)
+#  ifndef USE_BSDPGRP
+#    define USE_BSDPGRP
+#  endif
+#endif
+
+/* HP-UX 10.X CMA (Common Multithreaded Architecture) insists that
+   pthread.h must be included before all other header files.
+*/
+#if defined(USE_ITHREADS) && defined(PTHREAD_H_FIRST) && defined(I_PTHREAD)
+#  include <pthread.h>
+#endif
+
+#include <sys/types.h>
+
+#ifdef __cplusplus
+#  ifndef I_STDARG
+#    define I_STDARG 1
+#  endif
+#endif
+
+/* EVC 4 SDK headers includes a bad definition of MB_CUR_MAX in stdlib.h
+  which is included from stdarg.h. Bad definition not present in SD 2008
+  SDK headers. wince.h is not yet included, so we cant fix this from there
+  since by then MB_CUR_MAX will be defined from stdlib.h.
+  cewchar.h includes a correct definition of MB_CUR_MAX and it is copied here
+  since cewchar.h can't be included this early */
+#if defined(UNDER_CE) && (_MSC_VER < 1300)
+#  define MB_CUR_MAX 1
+#endif
+#ifdef I_STDARG
+#  include <stdarg.h>
+#else
+#  ifdef I_VARARGS
+#    include <varargs.h>
+#  endif
+#endif
+
+#ifdef I_STDINT
+# include <stdint.h>
+#endif
+
+#include <ctype.h>
+
+#ifdef METHOD 	/* Defined by OSF/1 v3.0 by ctype.h */
+#undef METHOD
+#endif
+
+#ifdef PERL_MICRO
+#   define NO_LOCALE
+#endif
+
+#ifdef I_LOCALE
+#   include <locale.h>
+#endif
+
+#if !defined(NO_LOCALE) && defined(HAS_SETLOCALE)
+#   define USE_LOCALE
+#   define HAS_SKIP_LOCALE_INIT /* Solely for XS code to test for this
+                                   capability */
+#   if !defined(NO_LOCALE_COLLATE) && defined(LC_COLLATE) \
+       && defined(HAS_STRXFRM)
+#	define USE_LOCALE_COLLATE
+#   endif
+#   if !defined(NO_LOCALE_CTYPE) && defined(LC_CTYPE)
+#	define USE_LOCALE_CTYPE
+#   endif
+#   if !defined(NO_LOCALE_NUMERIC) && defined(LC_NUMERIC)
+#	define USE_LOCALE_NUMERIC
+#   endif
+#   if !defined(NO_LOCALE_MESSAGES) && defined(LC_MESSAGES)
+#	define USE_LOCALE_MESSAGES
+#   endif
+#   if !defined(NO_LOCALE_MONETARY) && defined(LC_MONETARY)
+#	define USE_LOCALE_MONETARY
+#   endif
+#   if !defined(NO_LOCALE_TIME) && defined(LC_TIME)
+#	define USE_LOCALE_TIME
+#   endif
+#   ifndef WIN32    /* No wrapper except on Windows */
+#       define my_setlocale(a,b) setlocale(a,b)
+#   endif
+#endif /* !NO_LOCALE && HAS_SETLOCALE */
+
+/* Is $^ENCODING set, or are we under the encoding pragma? */
+#define IN_ENCODING UNLIKELY(PL_encoding                                      \
+                             || (PL_lex_encoding && _get_encoding() != NULL))
+
+#include <setjmp.h>
+
+#ifdef I_SYS_PARAM
+#   ifdef PARAM_NEEDS_TYPES
+#	include <sys/types.h>
+#   endif
+#   include <sys/param.h>
+#endif
+
+/* On BSD-derived systems, <sys/param.h> defines BSD to a year-month
+   value something like 199306.  This may be useful if no more-specific
+   feature test is available.
+*/
+#if defined(BSD)
+#   ifndef BSDish
+#       define BSDish
+#   endif
+#endif
+
+/* Use all the "standard" definitions? */
+#if defined(STANDARD_C) && defined(I_STDLIB)
+#   include <stdlib.h>
+#endif
+
+/* If this causes problems, set i_unistd=undef in the hint file.  */
+#ifdef I_UNISTD
+#    if defined(__amigaos4__)
+#        ifdef I_NETINET_IN
+#            include <netinet/in.h>
+#        endif
+#   endif
+#   include <unistd.h>
+#   if defined(__amigaos4__)
+/* Under AmigaOS 4 newlib.library provides an environ.  However using
+ * it doesn't give us enough control over inheritance of variables by
+ * subshells etc. so replace with custom version based on abc-shell
+ * code. */
+extern char **myenviron;
+#       undef environ
+#       define environ myenviron
+#   endif
+#endif
+
+/* for WCOREDUMP */
+#ifdef I_SYS_WAIT
+#   include <sys/wait.h>
+#endif
+
+#ifdef __SYMBIAN32__
+#   undef _SC_ARG_MAX /* Symbian has _SC_ARG_MAX but no sysconf() */
+#endif
+
+#if defined(HAS_SYSCALL) && !defined(HAS_SYSCALL_PROTO)
+EXTERN_C int syscall(int, ...);
+#endif
+
+#if defined(HAS_USLEEP) && !defined(HAS_USLEEP_PROTO)
+EXTERN_C int usleep(unsigned int);
+#endif
+
+#ifdef PERL_CORE
+
+/* macros for correct constant construction */
+# if INTSIZE >= 2
+#  define U16_CONST(x) ((U16)x##U)
+# else
+#  define U16_CONST(x) ((U16)x##UL)
+# endif
+
+# if INTSIZE >= 4
+#  define U32_CONST(x) ((U32)x##U)
+# else
+#  define U32_CONST(x) ((U32)x##UL)
+# endif
+
+# ifdef HAS_QUAD
+#  if INTSIZE >= 8
+#   define U64_CONST(x) ((U64)x##U)
+#  elif LONGSIZE >= 8
+#   define U64_CONST(x) ((U64)x##UL)
+#  elif QUADKIND == QUAD_IS_LONG_LONG
+#   define U64_CONST(x) ((U64)x##ULL)
+#  elif QUADKIND == QUAD_IS___INT64
+#   define U64_CONST(x) ((U64)x##UI64)
+#  else /* best guess we can make */
+#   define U64_CONST(x) ((U64)x##UL)
+#  endif
+# endif
+
+/* byte-swapping functions for big-/little-endian conversion */
+# define _swab_16_(x) ((U16)( \
+         (((U16)(x) & U16_CONST(0x00ff)) << 8) | \
+         (((U16)(x) & U16_CONST(0xff00)) >> 8) ))
+
+# define _swab_32_(x) ((U32)( \
+         (((U32)(x) & U32_CONST(0x000000ff)) << 24) | \
+         (((U32)(x) & U32_CONST(0x0000ff00)) <<  8) | \
+         (((U32)(x) & U32_CONST(0x00ff0000)) >>  8) | \
+         (((U32)(x) & U32_CONST(0xff000000)) >> 24) ))
+
+# ifdef HAS_QUAD
+#  define _swab_64_(x) ((U64)( \
+          (((U64)(x) & U64_CONST(0x00000000000000ff)) << 56) | \
+          (((U64)(x) & U64_CONST(0x000000000000ff00)) << 40) | \
+          (((U64)(x) & U64_CONST(0x0000000000ff0000)) << 24) | \
+          (((U64)(x) & U64_CONST(0x00000000ff000000)) <<  8) | \
+          (((U64)(x) & U64_CONST(0x000000ff00000000)) >>  8) | \
+          (((U64)(x) & U64_CONST(0x0000ff0000000000)) >> 24) | \
+          (((U64)(x) & U64_CONST(0x00ff000000000000)) >> 40) | \
+          (((U64)(x) & U64_CONST(0xff00000000000000)) >> 56) ))
+# endif
+
+/* The old value was hard coded at 1008. (4096-16) seems to be a bit faster,
+   at least on FreeBSD.  YMMV, so experiment.  */
+#ifndef PERL_ARENA_SIZE
+#define PERL_ARENA_SIZE 4080
+#endif
+
+/* Maximum level of recursion */
+#ifndef PERL_SUB_DEPTH_WARN
+#define PERL_SUB_DEPTH_WARN 100
+#endif
+
+#endif /* PERL_CORE */
+
+/* We no longer default to creating a new SV for GvSV.
+   Do this before embed.  */
+#ifndef PERL_CREATE_GVSV
+#  ifndef PERL_DONT_CREATE_GVSV
+#    define PERL_DONT_CREATE_GVSV
+#  endif
+#endif
+
+#if !defined(HAS_WAITPID) && !defined(HAS_WAIT4) || defined(HAS_WAITPID_RUNTIME)
+#define PERL_USES_PL_PIDSTATUS
+#endif
+
+#if !defined(OS2) && !defined(WIN32) && !defined(DJGPP) && !defined(__SYMBIAN32__)
+#define PERL_DEFAULT_DO_EXEC3_IMPLEMENTATION
+#endif
+
+#define MEM_SIZE Size_t
+
+/* Round all values passed to malloc up, by default to a multiple of
+   sizeof(size_t)
+*/
+#ifndef PERL_STRLEN_ROUNDUP_QUANTUM
+#define PERL_STRLEN_ROUNDUP_QUANTUM Size_t_size
+#endif
+
+/* sv_grow() will expand strings by at least a certain percentage of
+   the previously *used* length to avoid excessive calls to realloc().
+   The default is 25% of the current length.
+*/
+#ifndef PERL_STRLEN_EXPAND_SHIFT
+#  define PERL_STRLEN_EXPAND_SHIFT 2
+#endif
+
+#if defined(STANDARD_C) && defined(I_STDDEF) && !defined(PERL_GCC_PEDANTIC)
+#   include <stddef.h>
+#   define STRUCT_OFFSET(s,m)  offsetof(s,m)
+#else
+#   define STRUCT_OFFSET(s,m)  (Size_t)(&(((s *)0)->m))
+#endif
+
+/* ptrdiff_t is C11, so undef it under pedantic builds */
+#ifdef PERL_GCC_PEDANTIC
+#   undef HAS_PTRDIFF_T
+#endif
+
+#ifndef __SYMBIAN32__
+#  if defined(I_STRING) || defined(__cplusplus)
+#     include <string.h>
+#  else
+#     include <strings.h>
+#  endif
+#endif
+
+/* This comes after <stdlib.h> so we don't try to change the standard
+ * library prototypes; we'll use our own in proto.h instead. */
+
+#ifdef MYMALLOC
+#  ifdef PERL_POLLUTE_MALLOC
+#   ifndef PERL_EXTMALLOC_DEF
+#    define Perl_malloc		malloc
+#    define Perl_calloc		calloc
+#    define Perl_realloc	realloc
+#    define Perl_mfree		free
+#   endif
+#  else
+#    define EMBEDMYMALLOC	/* for compatibility */
+#  endif
+
+#  define safemalloc  Perl_malloc
+#  define safecalloc  Perl_calloc
+#  define saferealloc Perl_realloc
+#  define safefree    Perl_mfree
+#  define CHECK_MALLOC_TOO_LATE_FOR_(code)	STMT_START {		\
+	if (!PL_tainting && MallocCfg_ptr[MallocCfg_cfg_env_read])	\
+		code;							\
+    } STMT_END
+#  define CHECK_MALLOC_TOO_LATE_FOR(ch)				\
+	CHECK_MALLOC_TOO_LATE_FOR_(MALLOC_TOO_LATE_FOR(ch))
+#  define panic_write2(s)		write(2, s, strlen(s))
+#  define CHECK_MALLOC_TAINT(newval)				\
+	CHECK_MALLOC_TOO_LATE_FOR_(				\
+		if (newval) {					\
+		  PERL_UNUSED_RESULT(panic_write2("panic: tainting with $ENV{PERL_MALLOC_OPT}\n"));\
+		  exit(1); })
+#  define MALLOC_CHECK_TAINT(argc,argv,env)	STMT_START {	\
+	if (doing_taint(argc,argv,env)) {			\
+		MallocCfg_ptr[MallocCfg_skip_cfg_env] = 1;	\
+    }} STMT_END;
+#else  /* MYMALLOC */
+#  define safemalloc  safesysmalloc
+#  define safecalloc  safesyscalloc
+#  define saferealloc safesysrealloc
+#  define safefree    safesysfree
+#  define CHECK_MALLOC_TOO_LATE_FOR(ch)		((void)0)
+#  define CHECK_MALLOC_TAINT(newval)		((void)0)
+#  define MALLOC_CHECK_TAINT(argc,argv,env)
+#endif /* MYMALLOC */
+
+/* diag_listed_as: "-T" is on the #! line, it must also be used on the command line */
+#define TOO_LATE_FOR_(ch,what)	Perl_croak(aTHX_ "\"-%c\" is on the #! line, it must also be used on the command line%s", (char)(ch), what)
+#define TOO_LATE_FOR(ch)	TOO_LATE_FOR_(ch, "")
+#define MALLOC_TOO_LATE_FOR(ch)	TOO_LATE_FOR_(ch, " with $ENV{PERL_MALLOC_OPT}")
+#define MALLOC_CHECK_TAINT2(argc,argv)	MALLOC_CHECK_TAINT(argc,argv,NULL)
+
+#if !defined(HAS_STRCHR) && defined(HAS_INDEX) && !defined(strchr)
+#define strchr index
+#define strrchr rindex
+#endif
+
+#ifdef I_MEMORY
+#  include <memory.h>
+#endif
+
+#ifdef HAS_MEMCPY
+#  if !defined(STANDARD_C) && !defined(I_STRING) && !defined(I_MEMORY)
+#    ifndef memcpy
+        extern char * memcpy (char*, char*, int);
+#    endif
+#  endif
+#else
+#   ifndef memcpy
+#	define memcpy(d,s,l) my_bcopy(s,d,l)
+#   endif
+#endif /* HAS_MEMCPY */
+
+#ifdef HAS_MEMSET
+#  if !defined(STANDARD_C) && !defined(I_STRING) && !defined(I_MEMORY)
+#    ifndef memset
+	extern char *memset (char*, int, int);
+#    endif
+#  endif
+#else
+#  undef  memset
+#  define memset(d,c,l) my_memset(d,c,l)
+#endif /* HAS_MEMSET */
+
+#if !defined(HAS_MEMMOVE) && !defined(memmove)
+#   if defined(HAS_MEMCPY) && defined(HAS_SAFE_MEMCPY)
+#	define memmove(d,s,l) memcpy(d,s,l)
+#   else
+#	define memmove(d,s,l) my_bcopy(s,d,l)
+#   endif
+#endif
+
+#if defined(mips) && defined(ultrix) && !defined(__STDC__)
+#   undef HAS_MEMCMP
+#endif
+
+#if defined(HAS_MEMCMP) && defined(HAS_SANE_MEMCMP)
+#  if !defined(STANDARD_C) && !defined(I_STRING) && !defined(I_MEMORY)
+#    ifndef memcmp
+	extern int memcmp (char*, char*, int);
+#    endif
+#  endif
+#else
+#   ifndef memcmp
+#	define memcmp 	my_memcmp
+#   endif
+#endif /* HAS_MEMCMP && HAS_SANE_MEMCMP */
+
+#ifndef memzero
+#   ifdef HAS_MEMSET
+#	define memzero(d,l) memset(d,0,l)
+#   else
+#	ifdef HAS_BZERO
+#	    define memzero(d,l) bzero(d,l)
+#	else
+#	    define memzero(d,l) my_bzero(d,l)
+#	endif
+#   endif
+#endif
+
+#ifndef PERL_MICRO
+#ifndef memchr
+#   ifndef HAS_MEMCHR
+#       define memchr(s,c,n) ninstr((char*)(s), ((char*)(s)) + n, &(c), &(c) + 1)
+#   endif
+#endif
+#endif
+
+#ifndef HAS_BCMP
+#   ifndef bcmp
+#	define bcmp(s1,s2,l) memcmp(s1,s2,l)
+#   endif
+#endif /* !HAS_BCMP */
+
+#ifdef I_NETINET_IN
+#   include <netinet/in.h>
+#endif
+
+#ifdef I_ARPA_INET
+#   include <arpa/inet.h>
+#endif
+
+#ifdef I_SYS_STAT
+#   include <sys/stat.h>
+#endif
+
+/* Microsoft VC's sys/stat.h defines all S_Ixxx macros except S_IFIFO.
+   This definition should ideally go into win32/win32.h, but S_IFIFO is
+   used later here in perl.h before win32/win32.h is being included. */
+#if !defined(S_IFIFO) && defined(_S_IFIFO)
+#   define S_IFIFO _S_IFIFO
+#endif
+
+/* The stat macros for Unisoft System V/88 (and derivatives
+   like UTekV) are broken, sometimes giving false positives.  Undefine
+   them here and let the code below set them to proper values.
+
+   The ghs macro stands for GreenHills Software C-1.8.5 which
+   is the C compiler for sysV88 and the various derivatives.
+   This header file bug is corrected in gcc-2.5.8 and later versions.
+   --Kaveh Ghazi (ghazi@noc.rutgers.edu) 10/3/94.  */
+
+#if defined(m88k) && defined(ghs)
+#   undef S_ISDIR
+#   undef S_ISCHR
+#   undef S_ISBLK
+#   undef S_ISREG
+#   undef S_ISFIFO
+#   undef S_ISLNK
+#endif
+
+#ifdef I_TIME
+#   include <time.h>
+#endif
+
+#ifdef I_SYS_TIME
+#   ifdef I_SYS_TIME_KERNEL
+#	define KERNEL
+#   endif
+#   include <sys/time.h>
+#   ifdef I_SYS_TIME_KERNEL
+#	undef KERNEL
+#   endif
+#endif
+
+#if defined(HAS_TIMES) && defined(I_SYS_TIMES)
+#    include <sys/times.h>
+#endif
+
+#if defined(HAS_STRERROR) && (!defined(HAS_MKDIR) || !defined(HAS_RMDIR))
+#   undef HAS_STRERROR
+#endif
+
+#include <errno.h>
+
+#if defined(WIN32) && defined(PERL_IMPLICIT_SYS)
+#  define WIN32SCK_IS_STDSCK		/* don't pull in custom wsock layer */
+#endif
+
+#if defined(HAS_SOCKET) && !defined(WIN32) /* WIN32 handles sockets via win32.h */
+# include <sys/socket.h>
+# if defined(USE_SOCKS) && defined(I_SOCKS)
+#   if !defined(INCLUDE_PROTOTYPES)
+#       define INCLUDE_PROTOTYPES /* for <socks.h> */
+#       define PERL_SOCKS_NEED_PROTOTYPES
+#   endif
+#   include <socks.h>
+#   ifdef PERL_SOCKS_NEED_PROTOTYPES /* keep cpp space clean */
+#       undef INCLUDE_PROTOTYPES
+#       undef PERL_SOCKS_NEED_PROTOTYPES
+#   endif
+# endif
+# ifdef I_NETDB
+#  ifdef NETWARE
+#   include<stdio.h>
+#  endif
+#  include <netdb.h>
+# endif
+# ifndef ENOTSOCK
+#  ifdef I_NET_ERRNO
+#   include <net/errno.h>
+#  endif
+# endif
+#endif
+
+/* sockatmark() is so new (2001) that many places might have it hidden
+ * behind some -D_BLAH_BLAH_SOURCE guard.  The __THROW magic is required
+ * e.g. in Gentoo, see http://bugs.gentoo.org/show_bug.cgi?id=12605 */
+#if defined(HAS_SOCKATMARK) && !defined(HAS_SOCKATMARK_PROTO)
+# if defined(__THROW) && defined(__GLIBC__)
+int sockatmark(int) __THROW;
+# else
+int sockatmark(int);
+# endif
+#endif
+
+#if defined(__osf__) && defined(__cplusplus) && !defined(_XOPEN_SOURCE_EXTENDED) /* Tru64 "cxx" (C++), see hints/dec_osf.sh for why the _XOPEN_SOURCE_EXTENDED cannot be defined. */
+EXTERN_C int fchdir(int);
+EXTERN_C int flock(int, int);
+EXTERN_C int fseeko(FILE *, off_t, int);
+EXTERN_C off_t ftello(FILE *);
+#endif
+
+#if defined(__SUNPRO_CC) /* SUNWspro CC (C++) */
+EXTERN_C char *crypt(const char *, const char *);
+EXTERN_C char **environ;
+#endif
+
+#if defined(__cplusplus)
+#  if defined(BSDish)
+EXTERN_C char **environ;
+#  elif defined(__CYGWIN__)
+EXTERN_C char *crypt(const char *, const char *);
+#endif
+#endif
+
+#ifdef SETERRNO
+# undef SETERRNO  /* SOCKS might have defined this */
+#endif
+
+#ifdef VMS
+#   define SETERRNO(errcode,vmserrcode) \
+	STMT_START {			\
+	    set_errno(errcode);		\
+	    set_vaxc_errno(vmserrcode);	\
+	} STMT_END
+#   define dSAVEDERRNO    int saved_errno; unsigned saved_vms_errno
+#   define dSAVE_ERRNO    int saved_errno = errno; unsigned saved_vms_errno = vaxc$errno
+#   define SAVE_ERRNO     ( saved_errno = errno, saved_vms_errno = vaxc$errno )
+#   define RESTORE_ERRNO  SETERRNO(saved_errno, saved_vms_errno)
+
+#   define LIB_INVARG 		LIB$_INVARG
+#   define RMS_DIR    		RMS$_DIR
+#   define RMS_FAC    		RMS$_FAC
+#   define RMS_FEX    		RMS$_FEX
+#   define RMS_FNF    		RMS$_FNF
+#   define RMS_IFI    		RMS$_IFI
+#   define RMS_ISI    		RMS$_ISI
+#   define RMS_PRV    		RMS$_PRV
+#   define SS_ACCVIO      	SS$_ACCVIO
+#   define SS_DEVOFFLINE	SS$_DEVOFFLINE
+#   define SS_IVCHAN  		SS$_IVCHAN
+#   define SS_NORMAL  		SS$_NORMAL
+#   define SS_NOPRIV  		SS$_NOPRIV
+#   define SS_BUFFEROVF		SS$_BUFFEROVF
+#else
+#   define LIB_INVARG 		0
+#   define RMS_DIR    		0
+#   define RMS_FAC    		0
+#   define RMS_FEX    		0
+#   define RMS_FNF    		0
+#   define RMS_IFI    		0
+#   define RMS_ISI    		0
+#   define RMS_PRV    		0
+#   define SS_ACCVIO      	0
+#   define SS_DEVOFFLINE	0
+#   define SS_IVCHAN  		0
+#   define SS_NORMAL  		0
+#   define SS_NOPRIV  		0
+#   define SS_BUFFEROVF		0
+#endif
+
+#ifdef WIN32
+#   define dSAVEDERRNO  int saved_errno; DWORD saved_win32_errno
+#   define dSAVE_ERRNO  int saved_errno = errno; DWORD saved_win32_errno = GetLastError()
+#   define SAVE_ERRNO   ( saved_errno = errno, saved_win32_errno = GetLastError() )
+#   define RESTORE_ERRNO ( errno = saved_errno, SetLastError(saved_win32_errno) )
+#endif
+
+#ifdef OS2
+#   define dSAVEDERRNO  int saved_errno; unsigned long saved_os2_errno
+#   define dSAVE_ERRNO  int saved_errno = errno; unsigned long saved_os2_errno = Perl_rc
+#   define SAVE_ERRNO   ( saved_errno = errno, saved_os2_errno = Perl_rc )
+#   define RESTORE_ERRNO ( errno = saved_errno, Perl_rc = saved_os2_errno )
+#endif
+
+#ifndef SETERRNO
+#   define SETERRNO(errcode,vmserrcode) (errno = (errcode))
+#endif
+
+#ifndef dSAVEDERRNO
+#   define dSAVEDERRNO    int saved_errno
+#   define dSAVE_ERRNO    int saved_errno = errno
+#   define SAVE_ERRNO     (saved_errno = errno)
+#   define RESTORE_ERRNO  (errno = saved_errno)
+#endif
+
+#define ERRSV GvSVn(PL_errgv)
+
+/* contains inlined gv_add_by_type */
+#define CLEAR_ERRSV() STMT_START {					\
+    SV ** const svp = &GvSV(PL_errgv);					\
+    if (!*svp) {							\
+	goto clresv_newemptypv;						\
+    } else if (SvREADONLY(*svp)) {					\
+	SvREFCNT_dec_NN(*svp);						\
+	clresv_newemptypv:						\
+	*svp = newSVpvs("");						\
+    } else {								\
+	SV *const errsv = *svp;						\
+	sv_setpvs(errsv, "");						\
+	SvPOK_only(errsv);						\
+	if (SvMAGICAL(errsv)) {						\
+	    mg_free(errsv);						\
+	}								\
+    }									\
+    } STMT_END
+
+
+#ifdef PERL_CORE
+# define DEFSV (0 + GvSVn(PL_defgv))
+# define DEFSV_set(sv) \
+    (SvREFCNT_dec(GvSV(PL_defgv)), GvSV(PL_defgv) = SvREFCNT_inc(sv))
+# define SAVE_DEFSV                \
+    (                               \
+	save_gp(PL_defgv, 0),        \
+	GvINTRO_off(PL_defgv),        \
+	SAVEGENERICSV(GvSV(PL_defgv)), \
+	GvSV(PL_defgv) = NULL           \
+    )
+#else
+# define DEFSV GvSVn(PL_defgv)
+# define DEFSV_set(sv) (GvSV(PL_defgv) = (sv))
+# define SAVE_DEFSV SAVESPTR(GvSV(PL_defgv))
+#endif
+
+#ifndef errno
+	extern int errno;     /* ANSI allows errno to be an lvalue expr.
+			       * For example in multithreaded environments
+			       * something like this might happen:
+			       * extern int *_errno(void);
+			       * #define errno (*_errno()) */
+#endif
+
+#define UNKNOWN_ERRNO_MSG "(unknown)"
+
+#ifdef HAS_STRERROR
+#   ifndef DONT_DECLARE_STD
+#       ifdef VMS
+	char *strerror (int,...);
+#       else
+	char *strerror (int);
+#       endif
+#    endif
+#    ifndef Strerror
+#       define Strerror strerror
+#    endif
+#else
+#    ifdef HAS_SYS_ERRLIST
+	extern int sys_nerr;
+	extern char *sys_errlist[];
+#       ifndef Strerror
+#           define Strerror(e) \
+		((e) < 0 || (e) >= sys_nerr ? UNKNOWN_ERRNO_MSG : sys_errlist[e])
+#       endif
+#   endif
+#endif
+
+#ifdef I_SYS_IOCTL
+#   ifndef _IOCTL_
+#	include <sys/ioctl.h>
+#   endif
+#endif
+
+#if defined(mc300) || defined(mc500) || defined(mc700) || defined(mc6000)
+#   ifdef HAS_SOCKETPAIR
+#	undef HAS_SOCKETPAIR
+#   endif
+#   ifdef I_NDBM
+#	undef I_NDBM
+#   endif
+#endif
+
+#ifndef HAS_SOCKETPAIR
+#   ifdef HAS_SOCKET
+#	define socketpair Perl_my_socketpair
+#   endif
+#endif
+
+#if INTSIZE == 2
+#   define htoni htons
+#   define ntohi ntohs
+#else
+#   define htoni htonl
+#   define ntohi ntohl
+#endif
+
+/* Configure already sets Direntry_t */
+#if defined(I_DIRENT)
+#   include <dirent.h>
+#else
+#   ifdef I_SYS_NDIR
+#	include <sys/ndir.h>
+#   else
+#	ifdef I_SYS_DIR
+#	    ifdef hp9000s500
+#		include <ndir.h>	/* may be wrong in the future */
+#	    else
+#		include <sys/dir.h>
+#	    endif
+#	endif
+#   endif
+#endif
+
+/*
+ * The following gobbledygook brought to you on behalf of __STDC__.
+ * (I could just use #ifndef __STDC__, but this is more bulletproof
+ * in the face of half-implementations.)
+ */
+
+#if defined(I_SYSMODE)
+#include <sys/mode.h>
+#endif
+
+#ifndef S_IFMT
+#   ifdef _S_IFMT
+#	define S_IFMT _S_IFMT
+#   else
+#	define S_IFMT 0170000
+#   endif
+#endif
+
+#ifndef S_ISDIR
+#   define S_ISDIR(m) ((m & S_IFMT) == S_IFDIR)
+#endif
+
+#ifndef S_ISCHR
+#   define S_ISCHR(m) ((m & S_IFMT) == S_IFCHR)
+#endif
+
+#ifndef S_ISBLK
+#   ifdef S_IFBLK
+#	define S_ISBLK(m) ((m & S_IFMT) == S_IFBLK)
+#   else
+#	define S_ISBLK(m) (0)
+#   endif
+#endif
+
+#ifndef S_ISREG
+#   define S_ISREG(m) ((m & S_IFMT) == S_IFREG)
+#endif
+
+#ifndef S_ISFIFO
+#   ifdef S_IFIFO
+#	define S_ISFIFO(m) ((m & S_IFMT) == S_IFIFO)
+#   else
+#	define S_ISFIFO(m) (0)
+#   endif
+#endif
+
+#ifndef S_ISLNK
+#   ifdef _S_ISLNK
+#	define S_ISLNK(m) _S_ISLNK(m)
+#   else
+#	ifdef _S_IFLNK
+#	    define S_ISLNK(m) ((m & S_IFMT) == _S_IFLNK)
+#	else
+#	    ifdef S_IFLNK
+#		define S_ISLNK(m) ((m & S_IFMT) == S_IFLNK)
+#	    else
+#		define S_ISLNK(m) (0)
+#	    endif
+#	endif
+#   endif
+#endif
+
+#ifndef S_ISSOCK
+#   ifdef _S_ISSOCK
+#	define S_ISSOCK(m) _S_ISSOCK(m)
+#   else
+#	ifdef _S_IFSOCK
+#	    define S_ISSOCK(m) ((m & S_IFMT) == _S_IFSOCK)
+#	else
+#	    ifdef S_IFSOCK
+#		define S_ISSOCK(m) ((m & S_IFMT) == S_IFSOCK)
+#	    else
+#		define S_ISSOCK(m) (0)
+#	    endif
+#	endif
+#   endif
+#endif
+
+#ifndef S_IRUSR
+#   ifdef S_IREAD
+#	define S_IRUSR S_IREAD
+#	define S_IWUSR S_IWRITE
+#	define S_IXUSR S_IEXEC
+#   else
+#	define S_IRUSR 0400
+#	define S_IWUSR 0200
+#	define S_IXUSR 0100
+#   endif
+#endif
+
+#ifndef S_IRGRP
+#   ifdef S_IRUSR
+#       define S_IRGRP (S_IRUSR>>3)
+#       define S_IWGRP (S_IWUSR>>3)
+#       define S_IXGRP (S_IXUSR>>3)
+#   else
+#       define S_IRGRP 0040
+#       define S_IWGRP 0020
+#       define S_IXGRP 0010
+#   endif
+#endif
+
+#ifndef S_IROTH
+#   ifdef S_IRUSR
+#       define S_IROTH (S_IRUSR>>6)
+#       define S_IWOTH (S_IWUSR>>6)
+#       define S_IXOTH (S_IXUSR>>6)
+#   else
+#       define S_IROTH 0040
+#       define S_IWOTH 0020
+#       define S_IXOTH 0010
+#   endif
+#endif
+
+#ifndef S_ISUID
+#   define S_ISUID 04000
+#endif
+
+#ifndef S_ISGID
+#   define S_ISGID 02000
+#endif
+
+#ifndef S_IRWXU
+#   define S_IRWXU (S_IRUSR|S_IWUSR|S_IXUSR)
+#endif
+
+#ifndef S_IRWXG
+#   define S_IRWXG (S_IRGRP|S_IWGRP|S_IXGRP)
+#endif
+
+#ifndef S_IRWXO
+#   define S_IRWXO (S_IROTH|S_IWOTH|S_IXOTH)
+#endif
+
+/* Haiku R1 seems to define S_IREAD and S_IWRITE in <posix/fcntl.h>
+ * which would get included through <sys/file.h >, but that is 3000
+ * lines in the future.  --jhi */
+
+#if !defined(S_IREAD) && !defined(__HAIKU__)
+#   define S_IREAD S_IRUSR
+#endif
+
+#if !defined(S_IWRITE) && !defined(__HAIKU__)
+#   define S_IWRITE S_IWUSR
+#endif
+
+#ifndef S_IEXEC
+#   define S_IEXEC S_IXUSR
+#endif
+
+#if defined(cray) || defined(gould) || defined(i860) || defined(pyr)
+#   define SLOPPYDIVIDE
+#endif
+
+#ifdef UV
+#undef UV
+#endif
+
+/* For the times when you want the return value of sprintf, and you want it
+   to be the length. Can't have a thread variable passed in, because C89 has
+   no varargs macros.
+*/
+#ifdef SPRINTF_RETURNS_STRLEN
+#  define my_sprintf sprintf
+#else
+#  define my_sprintf Perl_my_sprintf
+#endif
+
+/*
+ * If we have v?snprintf() and the C99 variadic macros, we can just
+ * use just the v?snprintf().  It is nice to try to trap the buffer
+ * overflow, however, so if we are DEBUGGING, and we cannot use the
+ * gcc statement expressions, then use the function wrappers which try
+ * to trap the overflow.  If we can use the gcc statement expressions,
+ * we can try that even with the version that uses the C99 variadic
+ * macros.
+ */
+
+/* Note that we do not check against snprintf()/vsnprintf() returning
+ * negative values because that is non-standard behaviour and we use
+ * snprintf/vsnprintf only iff HAS_VSNPRINTF has been defined, and
+ * that should be true only if the snprintf()/vsnprintf() are true
+ * to the standard. */
+
+#define PERL_SNPRINTF_CHECK(len, max, api) STMT_START { if ((max) > 0 && (Size_t)len >= (max)) Perl_croak_nocontext("panic: %s buffer overflow", STRINGIFY(api)); } STMT_END
+
+#ifdef USE_QUADMATH
+#  define my_snprintf Perl_my_snprintf
+#  define PERL_MY_SNPRINTF_GUARDED
+#else
+#if defined(HAS_SNPRINTF) && defined(HAS_C99_VARIADIC_MACROS) && !(defined(DEBUGGING) && !defined(PERL_USE_GCC_BRACE_GROUPS)) && !defined(PERL_GCC_PEDANTIC)
+#  ifdef PERL_USE_GCC_BRACE_GROUPS
+#      define my_snprintf(buffer, max, ...) ({ int len = snprintf(buffer, max, __VA_ARGS__); PERL_SNPRINTF_CHECK(len, max, snprintf); len; })
+#      define PERL_MY_SNPRINTF_GUARDED
+#  else
+#    define my_snprintf(buffer, max, ...) snprintf(buffer, max, __VA_ARGS__)
+#  endif
+#else
+#  define my_snprintf  Perl_my_snprintf
+#  define PERL_MY_SNPRINTF_GUARDED
+#endif
+#endif
+
+/* There is no quadmath_vsnprintf, and therefore my_vsnprintf()
+ * dies if called under USE_QUADMATH. */
+#if defined(HAS_VSNPRINTF) && defined(HAS_C99_VARIADIC_MACROS) && !(defined(DEBUGGING) && !defined(PERL_USE_GCC_BRACE_GROUPS)) && !defined(PERL_GCC_PEDANTIC)
+#  ifdef PERL_USE_GCC_BRACE_GROUPS
+#      define my_vsnprintf(buffer, max, ...) ({ int len = vsnprintf(buffer, max, __VA_ARGS__); PERL_SNPRINTF_CHECK(len, max, vsnprintf); len; })
+#      define PERL_MY_VSNPRINTF_GUARDED
+#  else
+#    define my_vsnprintf(buffer, max, ...) vsnprintf(buffer, max, __VA_ARGS__)
+#  endif
+#else
+#  define my_vsnprintf Perl_my_vsnprintf
+#  define PERL_MY_VSNPRINTF_GUARDED
+#endif
+
+/* You will definitely need to use the PERL_MY_SNPRINTF_POST_GUARD()
+ * or PERL_MY_VSNPRINTF_POST_GUARD() if you otherwise decide to ignore
+ * the result of my_snprintf() or my_vsnprintf().  (No, you should not
+ * completely ignore it: otherwise you cannot know whether your output
+ * was too long.)
+ *
+ * int len = my_sprintf(buf, max, ...);
+ * PERL_MY_SNPRINTF_POST_GUARD(len, max);
+ *
+ * The trick is that in certain platforms [a] the my_sprintf() already
+ * contains the sanity check, while in certain platforms [b] it needs
+ * to be done as a separate step.  The POST_GUARD is that step-- in [a]
+ * platforms the POST_GUARD actually does nothing since the check has
+ * already been done.  Watch out for the max being the same in both calls.
+ *
+ * If you actually use the snprintf/vsnprintf return value already,
+ * you assumedly are checking its validity somehow.  But you can
+ * insert the POST_GUARD() also in that case. */
+
+#ifndef PERL_MY_SNPRINTF_GUARDED
+#  define PERL_MY_SNPRINTF_POST_GUARD(len, max) PERL_SNPRINTF_CHECK(len, max, snprintf)
+#else
+#  define PERL_MY_SNPRINTF_POST_GUARD(len, max) PERL_UNUSED_VAR(len)
+#endif
+
+#ifndef  PERL_MY_VSNPRINTF_GUARDED
+#  define PERL_MY_VSNPRINTF_POST_GUARD(len, max) PERL_SNPRINTF_CHECK(len, max, vsnprintf)
+#else
+#  define PERL_MY_VSNPRINTF_POST_GUARD(len, max) PERL_UNUSED_VAR(len)
+#endif
+
+#ifdef HAS_STRLCAT
+#  define my_strlcat    strlcat
+#else
+#  define my_strlcat    Perl_my_strlcat
+#endif
+
+#ifdef HAS_STRLCPY
+#  define my_strlcpy	strlcpy
+#else
+#  define my_strlcpy	Perl_my_strlcpy
+#endif
+
+/*
+    The IV type is supposed to be long enough to hold any integral
+    value or a pointer.
+    --Andy Dougherty	August 1996
+*/
+
+typedef IVTYPE IV;
+typedef UVTYPE UV;
+
+#if defined(USE_64_BIT_INT) && defined(HAS_QUAD)
+#  if QUADKIND == QUAD_IS_INT64_T && defined(INT64_MAX)
+#    define IV_MAX INT64_MAX
+#    define IV_MIN INT64_MIN
+#    define UV_MAX UINT64_MAX
+#    ifndef UINT64_MIN
+#      define UINT64_MIN 0
+#    endif
+#    define UV_MIN UINT64_MIN
+#  else
+#    define IV_MAX PERL_QUAD_MAX
+#    define IV_MIN PERL_QUAD_MIN
+#    define UV_MAX PERL_UQUAD_MAX
+#    define UV_MIN PERL_UQUAD_MIN
+#  endif
+#  define IV_IS_QUAD
+#  define UV_IS_QUAD
+#else
+#  if defined(INT32_MAX) && IVSIZE == 4
+#    define IV_MAX INT32_MAX
+#    define IV_MIN INT32_MIN
+#    ifndef UINT32_MAX_BROKEN /* e.g. HP-UX with gcc messes this up */
+#        define UV_MAX UINT32_MAX
+#    else
+#        define UV_MAX 4294967295U
+#    endif
+#    ifndef UINT32_MIN
+#      define UINT32_MIN 0
+#    endif
+#    define UV_MIN UINT32_MIN
+#  else
+#    define IV_MAX PERL_LONG_MAX
+#    define IV_MIN PERL_LONG_MIN
+#    define UV_MAX PERL_ULONG_MAX
+#    define UV_MIN PERL_ULONG_MIN
+#  endif
+#  if IVSIZE == 8
+#    define IV_IS_QUAD
+#    define UV_IS_QUAD
+#    ifndef HAS_QUAD
+#      define HAS_QUAD
+#    endif
+#  else
+#    undef IV_IS_QUAD
+#    undef UV_IS_QUAD
+#if !defined(PERL_CORE) || defined(USING_MSVC6)
+/* We think that removing this decade-old undef this will cause too much
+   breakage on CPAN for too little gain. (See RT #119753)
+   However, we do need HAS_QUAD in the core for use by the drand48 code,
+   but not for Win32 VC6 because it has poor __int64 support. */
+#    undef HAS_QUAD
+#endif
+#  endif
+#endif
+
+#define Size_t_MAX (~(Size_t)0)
+#define SSize_t_MAX (SSize_t)(~(Size_t)0 >> 1)
+
+#define IV_DIG (BIT_DIGITS(IVSIZE * 8))
+#define UV_DIG (BIT_DIGITS(UVSIZE * 8))
+
+#ifndef NO_PERL_PRESERVE_IVUV
+#define PERL_PRESERVE_IVUV	/* We like our integers to stay integers. */
+#endif
+
+/*
+ *  The macros INT2PTR and NUM2PTR are (despite their names)
+ *  bi-directional: they will convert int/float to or from pointers.
+ *  However the conversion to int/float are named explicitly:
+ *  PTR2IV, PTR2UV, PTR2NV.
+ *
+ *  For int conversions we do not need two casts if pointers are
+ *  the same size as IV and UV.   Otherwise we need an explicit
+ *  cast (PTRV) to avoid compiler warnings.
+ */
+#if (IVSIZE == PTRSIZE) && (UVSIZE == PTRSIZE)
+#  define PTRV			UV
+#  define INT2PTR(any,d)	(any)(d)
+#else
+#  if PTRSIZE == LONGSIZE
+#    define PTRV		unsigned long
+#    define PTR2ul(p)		(unsigned long)(p)
+#  else
+#    define PTRV		unsigned
+#  endif
+#endif
+
+#ifndef INT2PTR
+#  define INT2PTR(any,d)	(any)(PTRV)(d)
+#endif
+
+#ifndef PTR2ul
+#  define PTR2ul(p)	INT2PTR(unsigned long,p)	
+#endif
+
+#define NUM2PTR(any,d)	(any)(PTRV)(d)
+#define PTR2IV(p)	INT2PTR(IV,p)
+#define PTR2UV(p)	INT2PTR(UV,p)
+#define PTR2NV(p)	NUM2PTR(NV,p)
+#define PTR2nat(p)	(PTRV)(p)	/* pointer to integer of PTRSIZE */
+
+/* According to strict ANSI C89 one cannot freely cast between
+ * data pointers and function (code) pointers.  There are at least
+ * two ways around this.  One (used below) is to do two casts,
+ * first the other pointer to an (unsigned) integer, and then
+ * the integer to the other pointer.  The other way would be
+ * to use unions to "overlay" the pointers.  For an example of
+ * the latter technique, see union dirpu in struct xpvio in sv.h.
+ * The only feasible use is probably temporarily storing
+ * function pointers in a data pointer (such as a void pointer). */
+
+#define DPTR2FPTR(t,p) ((t)PTR2nat(p))	/* data pointer to function pointer */
+#define FPTR2DPTR(t,p) ((t)PTR2nat(p))	/* function pointer to data pointer */
+
+#ifdef USE_LONG_DOUBLE
+#  if LONG_DOUBLESIZE == DOUBLESIZE
+#    define LONG_DOUBLE_EQUALS_DOUBLE
+#    undef USE_LONG_DOUBLE /* Ouch! */
+#  endif
+#endif
+
+#ifdef OVR_DBL_DIG
+/* Use an overridden DBL_DIG */
+# ifdef DBL_DIG
+#  undef DBL_DIG
+# endif
+# define DBL_DIG OVR_DBL_DIG
+#else
+/* The following is all to get DBL_DIG, in order to pick a nice
+   default value for printing floating point numbers in Gconvert
+   (see config.h). (It also has other uses, such as figuring out if
+   a given precision of printing can be done with a double instead of
+   a long double - Allen).
+*/
+#ifdef I_LIMITS
+#include <limits.h>
+#endif
+#ifdef I_FLOAT
+#include <float.h>
+#endif
+#ifndef HAS_DBL_DIG
+#define DBL_DIG	15   /* A guess that works lots of places */
+#endif
+#endif
+
+#ifdef OVR_LDBL_DIG
+/* Use an overridden LDBL_DIG */
+# ifdef LDBL_DIG
+#  undef LDBL_DIG
+# endif
+# define LDBL_DIG OVR_LDBL_DIG
+#else
+/* The following is all to get LDBL_DIG, in order to pick a nice
+   default value for printing floating point numbers in Gconvert.
+   (see config.h)
+*/
+# ifdef I_LIMITS
+#   include <limits.h>
+# endif
+# ifdef I_FLOAT
+#  include <float.h>
+# endif
+# ifndef HAS_LDBL_DIG
+#  if LONG_DOUBLESIZE == 10
+#   define LDBL_DIG 18 /* assume IEEE */
+#  else
+#   if LONG_DOUBLESIZE == 12
+#    define LDBL_DIG 18 /* gcc? */
+#   else
+#    if LONG_DOUBLESIZE == 16
+#     define LDBL_DIG 33 /* assume IEEE */
+#    else
+#     if LONG_DOUBLESIZE == DOUBLESIZE
+#      define LDBL_DIG DBL_DIG /* bummer */
+#     endif
+#    endif
+#   endif
+#  endif
+# endif
+#endif
+
+/*
+ * This is for making sure we have a good DBL_MAX value, if possible,
+ * either for usage as NV_MAX or for usage in figuring out if we can
+ * fit a given long double into a double, if bug-fixing makes it
+ * necessary to do so. - Allen <allens@cpan.org>
+ */
+
+#ifdef I_LIMITS
+#  include <limits.h>
+#endif
+
+#ifdef I_VALUES
+#  if !(defined(DBL_MIN) && defined(DBL_MAX) && defined(I_LIMITS))
+#    include <values.h>
+#    if defined(MAXDOUBLE) && !defined(DBL_MAX)
+#      define DBL_MAX MAXDOUBLE
+#    endif
+#    if defined(MINDOUBLE) && !defined(DBL_MIN)
+#      define DBL_MIN MINDOUBLE
+#    endif
+#  endif
+#endif /* defined(I_VALUES) */
+
+typedef NVTYPE NV;
+
+#ifdef I_IEEEFP
+#   include <ieeefp.h>
+#endif
+
+#ifdef USING_MSVC6
+/* VC6 has broken NaN semantics: NaN == NaN returns true instead of false,
+ * and for example NaN < IV_MIN. */
+#  define NAN_COMPARE_BROKEN
+#endif
+#if defined(__DECC) && defined(__osf__)
+/* Also Tru64 cc has broken NaN comparisons. */
+#  define NAN_COMPARE_BROKEN
+#endif
+#if defined(__sgi)
+#  define NAN_COMPARE_BROKEN
+#endif
+
+#ifdef USE_LONG_DOUBLE
+#   ifdef I_SUNMATH
+#       include <sunmath.h>
+#   endif
+#   if defined(LDBL_DIG)
+#       define NV_DIG LDBL_DIG
+#       ifdef LDBL_MANT_DIG
+#           define NV_MANT_DIG LDBL_MANT_DIG
+#       endif
+#       ifdef LDBL_MIN
+#           define NV_MIN LDBL_MIN
+#       endif
+#       ifdef LDBL_MAX
+#           define NV_MAX LDBL_MAX
+#       endif
+#       ifdef LDBL_MIN_EXP
+#           define NV_MIN_EXP LDBL_MIN_EXP
+#       endif
+#       ifdef LDBL_MAX_EXP
+#           define NV_MAX_EXP LDBL_MAX_EXP
+#       endif
+#       ifdef LDBL_MIN_10_EXP
+#           define NV_MIN_10_EXP LDBL_MIN_10_EXP
+#       endif
+#       ifdef LDBL_MAX_10_EXP
+#           define NV_MAX_10_EXP LDBL_MAX_10_EXP
+#       endif
+#       ifdef LDBL_EPSILON
+#           define NV_EPSILON LDBL_EPSILON
+#       endif
+#       ifdef LDBL_MAX
+#           define NV_MAX LDBL_MAX
+/* Having LDBL_MAX doesn't necessarily mean that we have LDBL_MIN... -Allen */
+#       else
+#           ifdef HUGE_VALL
+#               define NV_MAX HUGE_VALL
+#           endif
+#       endif
+#   endif
+#   if defined(HAS_SQRTL)
+#       define Perl_acos acosl
+#       define Perl_asin asinl
+#       define Perl_atan atanl
+#       define Perl_atan2 atan2l
+#       define Perl_ceil ceill
+#       define Perl_cos cosl
+#       define Perl_cosh coshl
+#       define Perl_exp expl
+/* no Perl_fabs, but there's PERL_ABS */
+#       define Perl_floor floorl
+#       define Perl_fmod fmodl
+#       define Perl_log logl
+#       define Perl_log10 log10l
+#       define Perl_pow powl
+#       define Perl_sin sinl
+#       define Perl_sinh sinhl
+#       define Perl_sqrt sqrtl
+#       define Perl_tan tanl
+#       define Perl_tanh tanhl
+#   endif
+/* e.g. libsunmath doesn't have modfl and frexpl as of mid-March 2000 */
+#   ifndef Perl_modf
+#       ifdef HAS_MODFL
+#           define Perl_modf(x,y) modfl(x,y)
+/* eg glibc 2.2 series seems to provide modfl on ppc and arm, but has no
+   prototype in <math.h> */
+#           ifndef HAS_MODFL_PROTO
+EXTERN_C long double modfl(long double, long double *);
+#	    endif
+#       elif (defined(HAS_TRUNCL) || defined(HAS_AINTL)) && defined(HAS_COPYSIGNL)
+        extern long double Perl_my_modfl(long double x, long double *ip);
+#           define Perl_modf(x,y) Perl_my_modfl(x,y)
+#       endif
+#   endif
+#   ifndef Perl_frexp
+#       ifdef HAS_FREXPL
+#           define Perl_frexp(x,y) frexpl(x,y)
+#       else
+#           if defined(HAS_ILOGBL) && defined(HAS_SCALBNL)
+extern long double Perl_my_frexpl(long double x, int *e);
+#               define Perl_frexp(x,y) Perl_my_frexpl(x,y)
+#           endif
+#       endif
+#   endif
+#   ifndef Perl_ldexp
+#       ifdef HAS_LDEXPL
+#           define Perl_ldexp(x, y) ldexpl(x,y)
+#       else
+#           if defined(HAS_SCALBNL) && FLT_RADIX == 2
+#               define Perl_ldexp(x,y) scalbnl(x,y)
+#           endif
+#       endif
+#   endif
+#   ifndef Perl_isnan
+#       if defined(HAS_ISNANL) && !(defined(isnan) && defined(HAS_C99))
+#           define Perl_isnan(x) isnanl(x)
+#       elif defined(__sgi) && defined(__c99)  /* XXX Configure test needed */
+#           define Perl_isnan(x) isnan(x)
+#       endif
+#   endif
+#   ifndef Perl_isinf
+#       if defined(HAS_ISINFL) && !(defined(isinf) && defined(HAS_C99))
+#           define Perl_isinf(x) isinfl(x)
+#       elif defined(__sgi) && defined(__c99)  /* XXX Configure test needed */
+#           define Perl_isinf(x) isinf(x)
+#       elif defined(LDBL_MAX) && !defined(NAN_COMPARE_BROKEN)
+#           define Perl_isinf(x) ((x) > LDBL_MAX || (x) < -LDBL_MAX)
+#       endif
+#   endif
+#   ifndef Perl_isfinite
+#       define Perl_isfinite(x) Perl_isfinitel(x)
+#   endif
+#elif defined(USE_QUADMATH) && defined(I_QUADMATH)
+#   include <quadmath.h>
+#   define NV_DIG FLT128_DIG
+#   define NV_MANT_DIG FLT128_MANT_DIG
+#   define NV_MIN FLT128_MIN
+#   define NV_MAX FLT128_MAX
+#   define NV_MIN_EXP FLT128_MIN_EXP
+#   define NV_MAX_EXP FLT128_MAX_EXP
+#   define NV_EPSILON FLT128_EPSILON
+#   define NV_MIN_10_EXP FLT128_MIN_10_EXP
+#   define NV_MAX_10_EXP FLT128_MAX_10_EXP
+#   define Perl_acos acosq
+#   define Perl_asin asinq
+#   define Perl_atan atanq
+#   define Perl_atan2 atan2q
+#   define Perl_ceil ceilq
+#   define Perl_cos cosq
+#   define Perl_cosh coshq
+#   define Perl_exp expq
+/* no Perl_fabs, but there's PERL_ABS */
+#   define Perl_floor floorq
+#   define Perl_fmod fmodq
+#   define Perl_log logq
+#   define Perl_log10 log10q
+#   define Perl_pow powq
+#   define Perl_sin sinq
+#   define Perl_sinh sinhq
+#   define Perl_sqrt sqrtq
+#   define Perl_tan tanq
+#   define Perl_tanh tanhq
+#   define Perl_modf(x,y) modfq(x,y)
+#   define Perl_frexp(x,y) frexpq(x,y)
+#   define Perl_ldexp(x, y) ldexpq(x,y)
+#   define Perl_isinf(x) isinfq(x)
+#   define Perl_isnan(x) isnanq(x)
+#   define Perl_isfinite(x) !(isnanq(x) || isinfq(x))
+#else
+#   define NV_DIG DBL_DIG
+#   ifdef DBL_MANT_DIG
+#       define NV_MANT_DIG DBL_MANT_DIG
+#   endif
+#   ifdef DBL_MIN
+#       define NV_MIN DBL_MIN
+#   endif
+#   ifdef DBL_MAX
+#       define NV_MAX DBL_MAX
+#   endif
+#   ifdef DBL_MIN_EXP
+#       define NV_MIN_EXP DBL_MIN_EXP
+#   endif
+#   ifdef DBL_MAX_EXP
+#       define NV_MAX_EXP DBL_MAX_EXP
+#   endif
+#   ifdef DBL_MIN_10_EXP
+#       define NV_MIN_10_EXP DBL_MIN_10_EXP
+#   endif
+#   ifdef DBL_MAX_10_EXP
+#       define NV_MAX_10_EXP DBL_MAX_10_EXP
+#   endif
+#   ifdef DBL_EPSILON
+#       define NV_EPSILON DBL_EPSILON
+#   endif
+#   ifdef DBL_MAX               /* XXX Does DBL_MAX imply having DBL_MIN? */
+#       define NV_MAX DBL_MAX
+#       define NV_MIN DBL_MIN
+#   else
+#       ifdef HUGE_VAL
+#           define NV_MAX HUGE_VAL
+#       endif
+#   endif
+
+/* These math interfaces are C89. */
+#   define Perl_acos acos
+#   define Perl_asin asin
+#   define Perl_atan atan
+#   define Perl_atan2 atan2
+#   define Perl_ceil ceil
+#   define Perl_cos cos
+#   define Perl_cosh cosh
+#   define Perl_exp exp
+/* no Perl_fabs, but there's PERL_ABS */
+#   define Perl_floor floor
+#   define Perl_fmod fmod
+#   define Perl_log log
+#   define Perl_log10 log10
+#   define Perl_pow pow
+#   define Perl_sin sin
+#   define Perl_sinh sinh
+#   define Perl_sqrt sqrt
+#   define Perl_tan tan
+#   define Perl_tanh tanh
+
+#   define Perl_modf(x,y) modf(x,y)
+#   define Perl_frexp(x,y) frexp(x,y)
+#   define Perl_ldexp(x,y) ldexp(x,y)
+
+#   ifndef Perl_isnan
+#       ifdef HAS_ISNAN
+#           define Perl_isnan(x) isnan(x)
+#       endif
+#   endif
+#   ifndef Perl_isinf
+#       if defined(HAS_ISINF)
+#           define Perl_isinf(x) isinf(x)
+#       elif defined(DBL_MAX) && !defined(NAN_COMPARE_BROKEN)
+#           define Perl_isinf(x) ((x) > DBL_MAX || (x) < -DBL_MAX)
+#       endif
+#   endif
+#   ifndef Perl_isfinite
+#     ifdef HAS_ISFINITE
+#       define Perl_isfinite(x) isfinite(x)
+#     elif defined(HAS_FINITE)
+#       define Perl_isfinite(x) finite(x)
+#     endif
+#   endif
+#endif
+
+/* fpclassify(): C99.  It is supposed to be a macro that switches on
+* the sizeof() of its argument, so there's no need for e.g. fpclassifyl().*/
+#if !defined(Perl_fp_class) && defined(HAS_FPCLASSIFY)
+#    include <math.h>
+#    if defined(FP_INFINITE) && defined(FP_NAN)
+#        define Perl_fp_class(x)	fpclassify(x)
+#        define Perl_fp_class_inf(x)	(Perl_fp_class(x)==FP_INFINITE)
+#        define Perl_fp_class_nan(x)	(Perl_fp_class(x)==FP_NAN)
+#        define Perl_fp_class_norm(x)	(Perl_fp_class(x)==FP_NORMAL)
+#        define Perl_fp_class_denorm(x)	(Perl_fp_class(x)==FP_SUBNORMAL)
+#        define Perl_fp_class_zero(x)	(Perl_fp_class(x)==FP_ZERO)
+#    elif defined(FP_PLUS_INF) && defined(FP_QNAN)
+/* Some versions of HP-UX (10.20) have (only) fpclassify() but which is
+ * actually not the C99 fpclassify, with its own set of return defines. */
+#        define Perl_fp_class(x)	fpclassify(x)
+#        define Perl_fp_class_pinf(x)	(Perl_fp_class(x)==FP_PLUS_INF)
+#        define Perl_fp_class_ninf(x)	(Perl_fp_class(x)==FP_MINUS_INF)
+#        define Perl_fp_class_snan(x)	(Perl_fp_class(x)==FP_SNAN)
+#        define Perl_fp_class_qnan(x)	(Perl_fp_class(x)==FP_QNAN)
+#        define Perl_fp_class_pnorm(x)	(Perl_fp_class(x)==FP_PLUS_NORM)
+#        define Perl_fp_class_nnorm(x)	(Perl_fp_class(x)==FP_MINUS_NORM)
+#        define Perl_fp_class_pdenorm(x)	(Perl_fp_class(x)==FP_PLUS_DENORM)
+#        define Perl_fp_class_ndenorm(x)	(Perl_fp_class(x)==FP_MINUS_DENORM)
+#        define Perl_fp_class_pzero(x)	(Perl_fp_class(x)==FP_PLUS_ZERO)
+#        define Perl_fp_class_nzero(x)	(Perl_fp_class(x)==FP_MINUS_ZERO)
+#    else
+#        undef Perl_fp_class /* Unknown set of defines */
+#    endif
+#endif
+
+/* fp_classify(): Legacy: VMS, maybe Unicos? The values, however,
+ * are identical to the C99 fpclassify(). */
+#if !defined(Perl_fp_class) && defined(HAS_FP_CLASSIFY)
+#    include <math.h>
+#    ifdef __VMS
+     /* FP_INFINITE and others are here rather than in math.h as C99 stipulates */
+#        include <fp.h>
+     /* oh, and the isnormal macro has a typo in it! */
+#    undef isnormal
+#    define isnormal(x) Perl_fp_class_norm(x)
+#    endif
+#    if defined(FP_INFINITE) && defined(FP_NAN)
+#        define Perl_fp_class(x)	fp_classify(x)
+#        define Perl_fp_class_inf(x)	(Perl_fp_class(x)==FP_INFINITE)
+#        define Perl_fp_class_nan(x)	(Perl_fp_class(x)==FP_NAN)
+#        define Perl_fp_class_norm(x)	(Perl_fp_class(x)==FP_NORMAL)
+#        define Perl_fp_class_denorm(x)	(Perl_fp_class(x)==FP_SUBNORMAL)
+#        define Perl_fp_class_zero(x)	(Perl_fp_class(x)==FP_ZERO)
+#    else
+#        undef Perl_fp_class /* Unknown set of defines */
+#    endif
+#endif
+
+/* Feel free to check with me for the SGI manpages, SGI testing,
+ * etcetera, if you want to try getting this to work with IRIX.
+ *
+ * - Allen <allens@cpan.org> */
+
+/* fpclass(): SysV, at least Solaris and some versions of IRIX. */
+#if !defined(Perl_fp_class) && (defined(HAS_FPCLASS)||defined(HAS_FPCLASSL))
+/* Solaris and IRIX have fpclass/fpclassl, but they are using
+ * an enum typedef, not cpp symbols, and Configure doesn't detect that.
+ * Define some symbols also as cpp symbols so we can detect them. */
+#    if defined(__sun) || defined(__sgi) /* XXX Configure test instead */
+#     define FP_PINF FP_PINF
+#     define FP_QNAN FP_QNAN
+#    endif
+#    include <math.h>
+#    ifdef I_IEEFP
+#        include <ieeefp.h>
+#    endif
+#    ifdef I_FP
+#        include <fp.h>
+#    endif
+#    if defined(USE_LONG_DOUBLE) && defined(HAS_FPCLASSL)
+#        define Perl_fp_class(x)	fpclassl(x)
+#    else
+#        define Perl_fp_class(x)	fpclass(x)
+#    endif
+#    if defined(FP_CLASS_PINF) && defined(FP_CLASS_SNAN)
+#        define Perl_fp_class_snan(x)	(Perl_fp_class(x)==FP_CLASS_SNAN)
+#        define Perl_fp_class_qnan(x)	(Perl_fp_class(x)==FP_CLASS_QNAN)
+#        define Perl_fp_class_ninf(x)	(Perl_fp_class(x)==FP_CLASS_NINF)
+#        define Perl_fp_class_pinf(x)	(Perl_fp_class(x)==FP_CLASS_PINF)
+#        define Perl_fp_class_nnorm(x)	(Perl_fp_class(x)==FP_CLASS_NNORM)
+#        define Perl_fp_class_pnorm(x)	(Perl_fp_class(x)==FP_CLASS_PNORM)
+#        define Perl_fp_class_ndenorm(x)	(Perl_fp_class(x)==FP_CLASS_NDENORM)
+#        define Perl_fp_class_pdenorm(x)	(Perl_fp_class(x)==FP_CLASS_PDENORM)
+#        define Perl_fp_class_nzero(x)	(Perl_fp_class(x)==FP_CLASS_NZERO)
+#        define Perl_fp_class_pzero(x)	(Perl_fp_class(x)==FP_CLASS_PZERO)
+#    elif defined(FP_PINF) && defined(FP_QNAN)
+#        define Perl_fp_class_snan(x)	(Perl_fp_class(x)==FP_SNAN)
+#        define Perl_fp_class_qnan(x)	(Perl_fp_class(x)==FP_QNAN)
+#        define Perl_fp_class_ninf(x)	(Perl_fp_class(x)==FP_NINF)
+#        define Perl_fp_class_pinf(x)	(Perl_fp_class(x)==FP_PINF)
+#        define Perl_fp_class_nnorm(x)	(Perl_fp_class(x)==FP_NNORM)
+#        define Perl_fp_class_pnorm(x)	(Perl_fp_class(x)==FP_PNORM)
+#        define Perl_fp_class_ndenorm(x)	(Perl_fp_class(x)==FP_NDENORM)
+#        define Perl_fp_class_pdenorm(x)	(Perl_fp_class(x)==FP_PDENORM)
+#        define Perl_fp_class_nzero(x)	(Perl_fp_class(x)==FP_NZERO)
+#        define Perl_fp_class_pzero(x)	(Perl_fp_class(x)==FP_PZERO)
+#    else
+#        undef Perl_fp_class /* Unknown set of defines */
+#    endif
+#endif
+
+/* fp_class(): Legacy: at least Tru64, some versions of IRIX. */
+#if !defined(Perl_fp_class) && (defined(HAS_FP_CLASS)||defined(HAS_FP_CLASSL))
+#    include <math.h>
+#    if !defined(FP_SNAN) && defined(I_FP_CLASS)
+#        include <fp_class.h>
+#    endif
+#    if defined(FP_POS_INF) && defined(FP_QNAN)
+#        ifdef __sgi /* XXX Configure test instead */
+#            ifdef USE_LONG_DOUBLE
+#                define Perl_fp_class(x)	fp_class_l(x)
+#            else
+#                define Perl_fp_class(x)	fp_class_d(x)
+#            endif
+#        else
+#            if defined(USE_LONG_DOUBLE) && defined(HAS_FP_CLASSL)
+#                define Perl_fp_class(x)	fp_classl(x)
+#            else
+#                define Perl_fp_class(x)	fp_class(x)
+#            endif
+#        endif
+#        if defined(FP_POS_INF) && defined(FP_QNAN)
+#            define Perl_fp_class_snan(x)	(Perl_fp_class(x)==FP_SNAN)
+#            define Perl_fp_class_qnan(x)	(Perl_fp_class(x)==FP_QNAN)
+#            define Perl_fp_class_ninf(x)	(Perl_fp_class(x)==FP_NEG_INF)
+#            define Perl_fp_class_pinf(x)	(Perl_fp_class(x)==FP_POS_INF)
+#            define Perl_fp_class_nnorm(x)	(Perl_fp_class(x)==FP_NEG_NORM)
+#            define Perl_fp_class_pnorm(x)	(Perl_fp_class(x)==FP_POS_NORM)
+#            define Perl_fp_class_ndenorm(x)	(Perl_fp_class(x)==FP_NEG_DENORM)
+#            define Perl_fp_class_pdenorm(x)	(Perl_fp_class(x)==FP_POS_DENORM)
+#            define Perl_fp_class_nzero(x)	(Perl_fp_class(x)==FP_NEG_ZERO)
+#            define Perl_fp_class_pzero(x)	(Perl_fp_class(x)==FP_POS_ZERO)
+#        else
+#            undef Perl_fp_class /* Unknown set of defines */
+#        endif
+#    endif
+#endif
+
+/* class(), _class(): Legacy: AIX. */
+#if !defined(Perl_fp_class) && defined(HAS_CLASS)
+#    include <math.h>
+#    if defined(FP_PLUS_NORM) && defined(FP_PLUS_INF)
+#        ifndef _cplusplus
+#            define Perl_fp_class(x)	class(x)
+#        else
+#            define Perl_fp_class(x)	_class(x)
+#        endif
+#        if defined(FP_PLUS_INF) && defined(FP_NANQ)
+#            define Perl_fp_class_snan(x)	(Perl_fp_class(x)==FP_NANS)
+#            define Perl_fp_class_qnan(x)	(Perl_fp_class(x)==FP_NANQ)
+#            define Perl_fp_class_ninf(x)	(Perl_fp_class(x)==FP_MINUS_INF)
+#            define Perl_fp_class_pinf(x)	(Perl_fp_class(x)==FP_PLUS_INF)
+#            define Perl_fp_class_nnorm(x)	(Perl_fp_class(x)==FP_MINUS_NORM)
+#            define Perl_fp_class_pnorm(x)	(Perl_fp_class(x)==FP_PLUS_NORM)
+#            define Perl_fp_class_ndenorm(x)	(Perl_fp_class(x)==FP_MINUS_DENORM)
+#            define Perl_fp_class_pdenorm(x)	(Perl_fp_class(x)==FP_PLUS_DENORM)
+#            define Perl_fp_class_nzero(x)	(Perl_fp_class(x)==FP_MINUS_ZERO)
+#            define Perl_fp_class_pzero(x)	(Perl_fp_class(x)==FP_PLUS_ZERO)
+#        else
+#            undef Perl_fp_class /* Unknown set of defines */
+#        endif
+#    endif
+#endif
+
+/* Win32: _fpclass(), _isnan(), _finite(). */
+#ifdef WIN32
+#  ifndef Perl_isnan
+#    define Perl_isnan(x) _isnan(x)
+#  endif
+#  ifndef Perl_isfinite
+#    define Perl_isfinite(x) _finite(x)
+#  endif
+#  ifndef Perl_fp_class_snan
+/* No simple way to #define Perl_fp_class because _fpclass()
+ * returns a set of bits. */
+#    define Perl_fp_class_snan(x) (_fpclass(x) & _FPCLASS_SNAN)
+#    define Perl_fp_class_qnan(x) (_fpclass(x) & _FPCLASS_QNAN)
+#    define Perl_fp_class_nan(x) (_fpclass(x) & (_FPCLASS_SNAN|_FPCLASS_QNAN))
+#    define Perl_fp_class_ninf(x) (_fpclass(x) & _FPCLASS_NINF))
+#    define Perl_fp_class_pinf(x) (_fpclass(x) & _FPCLASS_PINF))
+#    define Perl_fp_class_inf(x) (_fpclass(x) & (_FPCLASS_NINF|_FPCLASS_PINF))
+#    define Perl_fp_class_nnorm(x) (_fpclass(x) & _FPCLASS_NN)
+#    define Perl_fp_class_pnorm(x) (_fpclass(x) & _FPCLASS_PN)
+#    define Perl_fp_class_norm(x) (_fpclass(x) & (_FPCLASS_NN|_FPCLASS_PN))
+#    define Perl_fp_class_ndenorm(x) (_fpclass(x) & _FPCLASS_ND)
+#    define Perl_fp_class_pdenorm(x) (_fpclass(x) & _FPCLASS_PD)
+#    define Perl_fp_class_denorm(x) (_fpclass(x) & (_FPCLASS_ND|_FPCLASS_PD))
+#    define Perl_fp_class_nzero(x) (_fpclass(x) & _FPCLASS_NZ)
+#    define Perl_fp_class_pzero(x) (_fpclass(x) & _FPCLASS_PZ)
+#    define Perl_fp_class_zero(x) (_fpclass(x) & (_FPCLASS_NZ|_FPCLASS_PZ))
+#  endif
+#endif
+
+#if !defined(Perl_fp_class_inf) && \
+  defined(Perl_fp_class_pinf) && defined(Perl_fp_class_ninf)
+#  define Perl_fp_class_inf(x) \
+    (Perl_fp_class_pinf(x) || Perl_fp_class_ninf(x))
+#endif
+
+#if !defined(Perl_fp_class_nan) && \
+  defined(Perl_fp_class_snan) && defined(Perl_fp_class_qnan)
+#  define Perl_fp_class_nan(x) \
+    (Perl_fp_class_snan(x) || Perl_fp_class_qnan(x))
+#endif
+
+#if !defined(Perl_fp_class_zero) && \
+  defined(Perl_fp_class_pzero) && defined(Perl_fp_class_nzero)
+#  define Perl_fp_class_zero(x) \
+    (Perl_fp_class_pzero(x) || Perl_fp_class_nzero(x))
+#endif
+
+#if !defined(Perl_fp_class_norm) && \
+  defined(Perl_fp_class_pnorm) && defined(Perl_fp_class_nnorm)
+#  define Perl_fp_class_norm(x) \
+    (Perl_fp_class_pnorm(x) || Perl_fp_class_nnorm(x))
+#endif
+
+#if !defined(Perl_fp_class_denorm) && \
+  defined(Perl_fp_class_pdenorm) && defined(Perl_fp_class_ndenorm)
+#  define Perl_fp_class_denorm(x) \
+    (Perl_fp_class_pdenorm(x) || Perl_fp_class_ndenorm(x))
+#endif
+
+#ifdef UNDER_CE
+int isnan(double d);
+#endif
+
+#ifndef Perl_isnan
+#   ifdef Perl_fp_class_nan
+#       define Perl_isnan(x) Perl_fp_class_nan(x)
+#   else
+#       ifdef HAS_UNORDERED
+#           define Perl_isnan(x) unordered((x), 0.0)
+#       else
+#           define Perl_isnan(x) ((x)!=(x))
+#       endif
+#   endif
+#endif
+
+#ifndef Perl_isinf
+#   ifdef Perl_fp_class_inf
+#       define Perl_isinf(x) Perl_fp_class_inf(x)
+#   endif
+#endif
+
+#ifndef Perl_isfinite
+#   if defined(HAS_ISFINITE) && !defined(isfinite)
+#     define Perl_isfinite(x) isfinite((double)(x))
+#   elif defined(HAS_FINITE)
+#       define Perl_isfinite(x) finite((double)(x))
+#   elif defined(Perl_fp_class_finite)
+#     define Perl_isfinite(x) Perl_fp_class_finite(x)
+#   else
+/* For the infinities the multiplication returns nan,
+ * for the nan the multiplication also returns nan,
+ * for everything else (that is, finite) zero should be returned. */
+#     define Perl_isfinite(x) (((x) * 0) == 0)
+#   endif
+#endif
+
+#ifndef Perl_isinf
+#   if defined(Perl_isfinite) && defined(Perl_isnan)
+#       define Perl_isinf(x) !(Perl_isfinite(x)||Perl_isnan(x))
+#   endif
+#endif
+
+/* We need Perl_isfinitel (ends with ell) (if available) even when
+ * not USE_LONG_DOUBLE because the printf code (sv_catpvfn_flags)
+ * needs that. */
+#if defined(HAS_LONG_DOUBLE) && !defined(Perl_isfinitel)
+/* If isfinite() is a macro and looks like we have C99,
+ * we assume it's the type-aware C99 isfinite(). */
+#    if defined(HAS_ISFINITE) && defined(isfinite) && defined(HAS_C99)
+#        define Perl_isfinitel(x) isfinite(x)
+#    elif defined(HAS_ISFINITEL)
+#        define Perl_isfinitel(x) isfinitel(x)
+#    elif defined(HAS_FINITEL)
+#        define Perl_isfinitel(x) finitel(x)
+#    elif defined(HAS_INFL) && defined(HAS_NANL)
+#        define Perl_isfinitel(x) !(isinfl(x)||isnanl(x))
+#    else
+#        define Perl_isfinitel(x) ((x) * 0 == 0)  /* See Perl_isfinite. */
+#    endif
+#endif
+
+/* The default is to use Perl's own atof() implementation (in numeric.c).
+ * Usually that is the one to use but for some platforms (e.g. UNICOS)
+ * it is however best to use the native implementation of atof.
+ * You can experiment with using your native one by -DUSE_PERL_ATOF=0.
+ * Some good tests to try out with either setting are t/base/num.t,
+ * t/op/numconvert.t, and t/op/pack.t. Note that if using long doubles
+ * you may need to be using a different function than atof! */
+
+#ifndef USE_PERL_ATOF
+#   ifndef _UNICOS
+#       define USE_PERL_ATOF
+#   endif
+#else
+#   if USE_PERL_ATOF == 0
+#       undef USE_PERL_ATOF
+#   endif
+#endif
+
+#ifdef USE_PERL_ATOF
+#   define Perl_atof(s) Perl_my_atof(s)
+#   define Perl_atof2(s, n) Perl_my_atof2(aTHX_ (s), &(n))
+#else
+#   define Perl_atof(s) (NV)atof(s)
+#   define Perl_atof2(s, n) ((n) = atof(s))
+#endif
+
+/* Previously these definitions used hardcoded figures.
+ * It is hoped these formula are more portable, although
+ * no data one way or another is presently known to me.
+ * The "PERL_" names are used because these calculated constants
+ * do not meet the ANSI requirements for LONG_MAX, etc., which
+ * need to be constants acceptable to #if - kja
+ *    define PERL_LONG_MAX        2147483647L
+ *    define PERL_LONG_MIN        (-LONG_MAX - 1)
+ *    define PERL ULONG_MAX       4294967295L
+ */
+
+#ifdef I_LIMITS  /* Needed for cast_xxx() functions below. */
+#  include <limits.h>
+#endif
+/* Included values.h above if necessary; still including limits.h down here,
+ * despite doing above, because math.h might have overridden... XXX - Allen */
+
+/*
+ * Try to figure out max and min values for the integral types.  THE CORRECT
+ * SOLUTION TO THIS MESS: ADAPT enquire.c FROM GCC INTO CONFIGURE.  The
+ * following hacks are used if neither limits.h or values.h provide them:
+ * U<TYPE>_MAX: for types >= int: ~(unsigned TYPE)0
+ *              for types <  int:  (unsigned TYPE)~(unsigned)0
+ *	The argument to ~ must be unsigned so that later signed->unsigned
+ *	conversion can't modify the value's bit pattern (e.g. -0 -> +0),
+ *	and it must not be smaller than int because ~ does integral promotion.
+ * <type>_MAX: (<type>) (U<type>_MAX >> 1)
+ * <type>_MIN: -<type>_MAX - <is_twos_complement_architecture: (3 & -1) == 3>.
+ *	The latter is a hack which happens to work on some machines but
+ *	does *not* catch any random system, or things like integer types
+ *	with NaN if that is possible.
+ *
+ * All of the types are explicitly cast to prevent accidental loss of
+ * numeric range, and in the hope that they will be less likely to confuse
+ * over-eager optimizers.
+ *
+ */
+
+#define PERL_UCHAR_MIN ((unsigned char)0)
+
+#ifdef UCHAR_MAX
+#  define PERL_UCHAR_MAX ((unsigned char)UCHAR_MAX)
+#else
+#  ifdef MAXUCHAR
+#    define PERL_UCHAR_MAX ((unsigned char)MAXUCHAR)
+#  else
+#    define PERL_UCHAR_MAX       ((unsigned char)~(unsigned)0)
+#  endif
+#endif
+
+/*
+ * CHAR_MIN and CHAR_MAX are not included here, as the (char) type may be
+ * ambiguous. It may be equivalent to (signed char) or (unsigned char)
+ * depending on local options. Until Configure detects this (or at least
+ * detects whether the "signed" keyword is available) the CHAR ranges
+ * will not be included. UCHAR functions normally.
+ *                                                           - kja
+ */
+
+#define PERL_USHORT_MIN ((unsigned short)0)
+
+#ifdef USHORT_MAX
+#  define PERL_USHORT_MAX ((unsigned short)USHORT_MAX)
+#else
+#  ifdef MAXUSHORT
+#    define PERL_USHORT_MAX ((unsigned short)MAXUSHORT)
+#  else
+#    ifdef USHRT_MAX
+#      define PERL_USHORT_MAX ((unsigned short)USHRT_MAX)
+#    else
+#      define PERL_USHORT_MAX       ((unsigned short)~(unsigned)0)
+#    endif
+#  endif
+#endif
+
+#ifdef SHORT_MAX
+#  define PERL_SHORT_MAX ((short)SHORT_MAX)
+#else
+#  ifdef MAXSHORT    /* Often used in <values.h> */
+#    define PERL_SHORT_MAX ((short)MAXSHORT)
+#  else
+#    ifdef SHRT_MAX
+#      define PERL_SHORT_MAX ((short)SHRT_MAX)
+#    else
+#      define PERL_SHORT_MAX      ((short) (PERL_USHORT_MAX >> 1))
+#    endif
+#  endif
+#endif
+
+#ifdef SHORT_MIN
+#  define PERL_SHORT_MIN ((short)SHORT_MIN)
+#else
+#  ifdef MINSHORT
+#    define PERL_SHORT_MIN ((short)MINSHORT)
+#  else
+#    ifdef SHRT_MIN
+#      define PERL_SHORT_MIN ((short)SHRT_MIN)
+#    else
+#      define PERL_SHORT_MIN        (-PERL_SHORT_MAX - ((3 & -1) == 3))
+#    endif
+#  endif
+#endif
+
+#ifdef UINT_MAX
+#  define PERL_UINT_MAX ((unsigned int)UINT_MAX)
+#else
+#  ifdef MAXUINT
+#    define PERL_UINT_MAX ((unsigned int)MAXUINT)
+#  else
+#    define PERL_UINT_MAX       (~(unsigned int)0)
+#  endif
+#endif
+
+#define PERL_UINT_MIN ((unsigned int)0)
+
+#ifdef INT_MAX
+#  define PERL_INT_MAX ((int)INT_MAX)
+#else
+#  ifdef MAXINT    /* Often used in <values.h> */
+#    define PERL_INT_MAX ((int)MAXINT)
+#  else
+#    define PERL_INT_MAX        ((int)(PERL_UINT_MAX >> 1))
+#  endif
+#endif
+
+#ifdef INT_MIN
+#  define PERL_INT_MIN ((int)INT_MIN)
+#else
+#  ifdef MININT
+#    define PERL_INT_MIN ((int)MININT)
+#  else
+#    define PERL_INT_MIN        (-PERL_INT_MAX - ((3 & -1) == 3))
+#  endif
+#endif
+
+#ifdef ULONG_MAX
+#  define PERL_ULONG_MAX ((unsigned long)ULONG_MAX)
+#else
+#  ifdef MAXULONG
+#    define PERL_ULONG_MAX ((unsigned long)MAXULONG)
+#  else
+#    define PERL_ULONG_MAX       (~(unsigned long)0)
+#  endif
+#endif
+
+#define PERL_ULONG_MIN ((unsigned long)0L)
+
+#ifdef LONG_MAX
+#  define PERL_LONG_MAX ((long)LONG_MAX)
+#else
+#  ifdef MAXLONG    /* Often used in <values.h> */
+#    define PERL_LONG_MAX ((long)MAXLONG)
+#  else
+#    define PERL_LONG_MAX        ((long) (PERL_ULONG_MAX >> 1))
+#  endif
+#endif
+
+#ifdef LONG_MIN
+#  define PERL_LONG_MIN ((long)LONG_MIN)
+#else
+#  ifdef MINLONG
+#    define PERL_LONG_MIN ((long)MINLONG)
+#  else
+#    define PERL_LONG_MIN        (-PERL_LONG_MAX - ((3 & -1) == 3))
+#  endif
+#endif
+
+#ifdef UV_IS_QUAD
+
+#    define PERL_UQUAD_MAX	(~(UV)0)
+#    define PERL_UQUAD_MIN	((UV)0)
+#    define PERL_QUAD_MAX 	((IV) (PERL_UQUAD_MAX >> 1))
+#    define PERL_QUAD_MIN 	(-PERL_QUAD_MAX - ((3 & -1) == 3))
+
+#endif
+
+typedef MEM_SIZE STRLEN;
+
+typedef struct op OP;
+typedef struct cop COP;
+typedef struct unop UNOP;
+typedef struct unop_aux UNOP_AUX;
+typedef struct binop BINOP;
+typedef struct listop LISTOP;
+typedef struct logop LOGOP;
+typedef struct pmop PMOP;
+typedef struct svop SVOP;
+typedef struct padop PADOP;
+typedef struct pvop PVOP;
+typedef struct loop LOOP;
+typedef struct methop METHOP;
+
+#ifdef PERL_CORE
+typedef struct opslab OPSLAB;
+typedef struct opslot OPSLOT;
+#endif
+
+typedef struct block_hooks BHK;
+typedef struct custom_op XOP;
+
+typedef struct interpreter PerlInterpreter;
+
+/* SGI's <sys/sema.h> has struct sv */
+#if defined(__sgi)
+#   define STRUCT_SV perl_sv
+#else
+#   define STRUCT_SV sv
+#endif
+typedef struct STRUCT_SV SV;
+typedef struct av AV;
+typedef struct hv HV;
+typedef struct cv CV;
+typedef struct p5rx REGEXP;
+typedef struct gp GP;
+typedef struct gv GV;
+typedef struct io IO;
+typedef struct context PERL_CONTEXT;
+typedef struct block BLOCK;
+
+typedef struct magic MAGIC;
+typedef struct xpv XPV;
+typedef struct xpviv XPVIV;
+typedef struct xpvuv XPVUV;
+typedef struct xpvnv XPVNV;
+typedef struct xpvmg XPVMG;
+typedef struct xpvlv XPVLV;
+typedef struct xpvinvlist XINVLIST;
+typedef struct xpvav XPVAV;
+typedef struct xpvhv XPVHV;
+typedef struct xpvgv XPVGV;
+typedef struct xpvcv XPVCV;
+typedef struct xpvbm XPVBM;
+typedef struct xpvfm XPVFM;
+typedef struct xpvio XPVIO;
+typedef struct mgvtbl MGVTBL;
+typedef union any ANY;
+typedef struct ptr_tbl_ent PTR_TBL_ENT_t;
+typedef struct ptr_tbl PTR_TBL_t;
+typedef struct clone_params CLONE_PARAMS;
+
+/* a pad is currently just an AV; but that might change,
+ * so hide the type.  */
+typedef struct padlist PADLIST;
+typedef AV PAD;
+typedef struct padnamelist PADNAMELIST;
+typedef struct padname PADNAME;
+
+/* enable PERL_COPY_ON_WRITE by default */
+#if !defined(PERL_COPY_ON_WRITE) && !defined(PERL_NO_COW)
+#  define PERL_COPY_ON_WRITE
+#endif
+
+#ifdef PERL_COPY_ON_WRITE
+#  define PERL_ANY_COW
+#else
+# define PERL_SAWAMPERSAND
+#endif
+
+#if defined(PERL_DEBUG_READONLY_OPS) && !defined(USE_ITHREADS)
+# error PERL_DEBUG_READONLY_OPS only works with ithreads
+#endif
+
+#include "handy.h"
+#include "charclass_invlists.h"
+
+#if defined(USE_LARGE_FILES) && !defined(NO_64_BIT_RAWIO)
+#   if LSEEKSIZE == 8 && !defined(USE_64_BIT_RAWIO)
+#       define USE_64_BIT_RAWIO	/* implicit */
+#   endif
+#endif
+
+/* Notice the use of HAS_FSEEKO: now we are obligated to always use
+ * fseeko/ftello if possible.  Don't go #defining ftell to ftello yourself,
+ * however, because operating systems like to do that themself. */
+#ifndef FSEEKSIZE
+#   ifdef HAS_FSEEKO
+#       define FSEEKSIZE LSEEKSIZE
+#   else
+#       define FSEEKSIZE LONGSIZE
+#   endif
+#endif
+
+#if defined(USE_LARGE_FILES) && !defined(NO_64_BIT_STDIO)
+#   if FSEEKSIZE == 8 && !defined(USE_64_BIT_STDIO)
+#       define USE_64_BIT_STDIO /* implicit */
+#   endif
+#endif
+
+#ifdef USE_64_BIT_RAWIO
+#   ifdef HAS_OFF64_T
+#       undef Off_t
+#       define Off_t off64_t
+#       undef LSEEKSIZE
+#       define LSEEKSIZE 8
+#   endif
+/* Most 64-bit environments have defines like _LARGEFILE_SOURCE that
+ * will trigger defines like the ones below.  Some 64-bit environments,
+ * however, do not.  Therefore we have to explicitly mix and match. */
+#   if defined(USE_OPEN64)
+#       define open open64
+#   endif
+#   if defined(USE_LSEEK64)
+#       define lseek lseek64
+#   else
+#       if defined(USE_LLSEEK)
+#           define lseek llseek
+#       endif
+#   endif
+#   if defined(USE_STAT64)
+#       define stat stat64
+#   endif
+#   if defined(USE_FSTAT64)
+#       define fstat fstat64
+#   endif
+#   if defined(USE_LSTAT64)
+#       define lstat lstat64
+#   endif
+#   if defined(USE_FLOCK64)
+#       define flock flock64
+#   endif
+#   if defined(USE_LOCKF64)
+#       define lockf lockf64
+#   endif
+#   if defined(USE_FCNTL64)
+#       define fcntl fcntl64
+#   endif
+#   if defined(USE_TRUNCATE64)
+#       define truncate truncate64
+#   endif
+#   if defined(USE_FTRUNCATE64)
+#       define ftruncate ftruncate64
+#   endif
+#endif
+
+#ifdef USE_64_BIT_STDIO
+#   ifdef HAS_FPOS64_T
+#       undef Fpos_t
+#       define Fpos_t fpos64_t
+#   endif
+/* Most 64-bit environments have defines like _LARGEFILE_SOURCE that
+ * will trigger defines like the ones below.  Some 64-bit environments,
+ * however, do not. */
+#   if defined(USE_FOPEN64)
+#       define fopen fopen64
+#   endif
+#   if defined(USE_FSEEK64)
+#       define fseek fseek64 /* don't do fseeko here, see perlio.c */
+#   endif
+#   if defined(USE_FTELL64)
+#       define ftell ftell64 /* don't do ftello here, see perlio.c */
+#   endif
+#   if defined(USE_FSETPOS64)
+#       define fsetpos fsetpos64
+#   endif
+#   if defined(USE_FGETPOS64)
+#       define fgetpos fgetpos64
+#   endif
+#   if defined(USE_TMPFILE64)
+#       define tmpfile tmpfile64
+#   endif
+#   if defined(USE_FREOPEN64)
+#       define freopen freopen64
+#   endif
+#endif
+
+#if defined(OS2)
+#  include "iperlsys.h"
+#endif
+
+#ifdef DOSISH
+#   if defined(OS2)
+#       include "os2ish.h"
+#   else
+#       include "dosish.h"
+#   endif
+#elif defined(VMS)
+#   include "vmsish.h"
+#elif defined(PLAN9)
+#   include "./plan9/plan9ish.h"
+#elif defined(__VOS__)
+#   ifdef __GNUC__
+#     include "./vos/vosish.h"
+#   else
+#     include "vos/vosish.h"
+#   endif
+#elif defined(__SYMBIAN32__)
+#   include "symbian/symbianish.h"
+#elif defined(__HAIKU__)
+#   include "haiku/haikuish.h"
+#else
+#   include "unixish.h"
+#endif
+
+#ifdef __amigaos4__
+#    include "amigaos.h"
+#    undef FD_CLOEXEC /* a lie in AmigaOS */
+#endif
+
+/* NSIG logic from Configure --> */
+/* Strange style to avoid deeply-nested #if/#else/#endif */
+#ifndef NSIG
+#  ifdef _NSIG
+#    define NSIG (_NSIG)
+#  endif
+#endif
+
+#ifndef NSIG
+#  ifdef SIGMAX
+#    define NSIG (SIGMAX+1)
+#  endif
+#endif
+
+#ifndef NSIG
+#  ifdef SIG_MAX
+#    define NSIG (SIG_MAX+1)
+#  endif
+#endif
+
+#ifndef NSIG
+#  ifdef _SIG_MAX
+#    define NSIG (_SIG_MAX+1)
+#  endif
+#endif
+
+#ifndef NSIG
+#  ifdef MAXSIG
+#    define NSIG (MAXSIG+1)
+#  endif
+#endif
+
+#ifndef NSIG
+#  ifdef MAX_SIG
+#    define NSIG (MAX_SIG+1)
+#  endif
+#endif
+
+#ifndef NSIG
+#  ifdef SIGARRAYSIZE
+#    define NSIG SIGARRAYSIZE /* Assume ary[SIGARRAYSIZE] */
+#  endif
+#endif
+
+#ifndef NSIG
+#  ifdef _sys_nsig
+#    define NSIG (_sys_nsig) /* Solaris 2.5 */
+#  endif
+#endif
+
+/* Default to some arbitrary number that's big enough to get most
+   of the common signals.
+*/
+#ifndef NSIG
+#    define NSIG 50
+#endif
+/* <-- NSIG logic from Configure */
+
+#ifndef NO_ENVIRON_ARRAY
+#  define USE_ENVIRON_ARRAY
+#endif
+
+/*
+ * initialise to avoid floating-point exceptions from overflow, etc
+ */
+#ifndef PERL_FPU_INIT
+#  ifdef HAS_FPSETMASK
+#    if HAS_FLOATINGPOINT_H
+#      include <floatingpoint.h>
+#    endif
+/* Some operating systems have this as a macro, which in turn expands to a comma
+   expression, and the last sub-expression is something that gets calculated,
+   and then they have the gall to warn that a value computed is not used. Hence
+   cast to void.  */
+#    define PERL_FPU_INIT (void)fpsetmask(0)
+#  else
+#    if defined(SIGFPE) && defined(SIG_IGN) && !defined(PERL_MICRO)
+#      define PERL_FPU_INIT       PL_sigfpe_saved = (Sighandler_t) signal(SIGFPE, SIG_IGN)
+#      define PERL_FPU_PRE_EXEC   { Sigsave_t xfpe; rsignal_save(SIGFPE, PL_sigfpe_saved, &xfpe);
+#      define PERL_FPU_POST_EXEC    rsignal_restore(SIGFPE, &xfpe); }
+#    else
+#      define PERL_FPU_INIT
+
+#    endif
+#  endif
+#endif
+#ifndef PERL_FPU_PRE_EXEC
+#  define PERL_FPU_PRE_EXEC   {
+#  define PERL_FPU_POST_EXEC  }
+#endif
+
+/* In Tru64 the cc -ieee enables the IEEE math but disables traps.
+ * We need to reenable the "invalid" trap because otherwise generation
+ * of NaN values leaves the IEEE fp flags in bad state, leaving any further
+ * fp ops behaving strangely (Inf + 1 resulting in zero, for example). */
+#ifdef __osf__
+#  include <machine/fpu.h>
+#  define PERL_SYS_FPU_INIT \
+     STMT_START { \
+         ieee_set_fp_control(IEEE_TRAP_ENABLE_INV); \
+         signal(SIGFPE, SIG_IGN); \
+     } STMT_END
+#endif
+/* In IRIX the default for Flush to Zero bit is true,
+ * which means that results going below the minimum of normal
+ * floating points go to zero, instead of going denormal/subnormal.
+ * This is unlike almost any other system running Perl, so let's clear it.
+ * [perl #123767] IRIX64 blead (ddce084a) opbasic/arith.t failure, originally
+ * [perl #120426] small numbers shouldn't round to zero if they have extra floating digits
+ *
+ * XXX The flush-to-zero behaviour should be a Configure scan.
+ * To change the behaviour usually requires some system-specific
+ * incantation, though, like the below. */
+#ifdef __sgi
+#  include <sys/fpu.h>
+#  define PERL_SYS_FPU_INIT \
+     STMT_START { \
+         union fpc_csr csr; \
+         csr.fc_word = get_fpc_csr(); \
+         csr.fc_struct.flush = 0; \
+         set_fpc_csr(csr.fc_word); \
+     } STMT_END
+#endif
+
+#ifndef PERL_SYS_FPU_INIT
+#  define PERL_SYS_FPU_INIT NOOP
+#endif
+
+#ifndef PERL_SYS_INIT3_BODY
+#  define PERL_SYS_INIT3_BODY(argvp,argcp,envp) PERL_SYS_INIT_BODY(argvp,argcp)
+#endif
+
+/*
+=head1 Miscellaneous Functions
+
+=for apidoc Am|void|PERL_SYS_INIT|int *argc|char*** argv
+Provides system-specific tune up of the C runtime environment necessary to
+run Perl interpreters.  This should be called only once, before creating
+any Perl interpreters.
+
+=for apidoc Am|void|PERL_SYS_INIT3|int *argc|char*** argv|char*** env
+Provides system-specific tune up of the C runtime environment necessary to
+run Perl interpreters.  This should be called only once, before creating
+any Perl interpreters.
+
+=for apidoc Am|void|PERL_SYS_TERM|
+Provides system-specific clean up of the C runtime environment after
+running Perl interpreters.  This should be called only once, after
+freeing any remaining Perl interpreters.
+
+=cut
+ */
+
+#define PERL_SYS_INIT(argc, argv)	Perl_sys_init(argc, argv)
+#define PERL_SYS_INIT3(argc, argv, env)	Perl_sys_init3(argc, argv, env)
+#define PERL_SYS_TERM()			Perl_sys_term()
+
+#ifndef PERL_WRITE_MSG_TO_CONSOLE
+#  define PERL_WRITE_MSG_TO_CONSOLE(io, msg, len) PerlIO_write(io, msg, len)
+#endif
+
+#ifndef MAXPATHLEN
+#  ifdef PATH_MAX
+#    ifdef _POSIX_PATH_MAX
+#       if PATH_MAX > _POSIX_PATH_MAX
+/* POSIX 1990 (and pre) was ambiguous about whether PATH_MAX
+ * included the null byte or not.  Later amendments of POSIX,
+ * XPG4, the Austin Group, and the Single UNIX Specification
+ * all explicitly include the null byte in the PATH_MAX.
+ * Ditto for _POSIX_PATH_MAX. */
+#         define MAXPATHLEN PATH_MAX
+#       else
+#         define MAXPATHLEN _POSIX_PATH_MAX
+#       endif
+#    else
+#      define MAXPATHLEN (PATH_MAX+1)
+#    endif
+#  else
+#    define MAXPATHLEN 1024	/* Err on the large side. */
+#  endif
+#endif
+
+/* In case Configure was not used (we are using a "canned config"
+ * such as Win32, or a cross-compilation setup, for example) try going
+ * by the gcc major and minor versions.  One useful URL is
+ * http://www.ohse.de/uwe/articles/gcc-attributes.html,
+ * but contrary to this information warn_unused_result seems
+ * not to be in gcc 3.3.5, at least. --jhi
+ * Also, when building extensions with an installed perl, this allows
+ * the user to upgrade gcc and get the right attributes, rather than
+ * relying on the list generated at Configure time.  --AD
+ * Set these up now otherwise we get confused when some of the <*thread.h>
+ * includes below indirectly pull in <perlio.h> (which needs to know if we
+ * have HASATTRIBUTE_FORMAT).
+ */
+
+#ifndef PERL_MICRO
+#if defined __GNUC__ && !defined(__INTEL_COMPILER)
+#  if __GNUC__ == 3 && __GNUC_MINOR__ >= 1 || __GNUC__ > 3 /* 3.1 -> */
+#    define HASATTRIBUTE_DEPRECATED
+#  endif
+#  if __GNUC__ >= 3 /* 3.0 -> */ /* XXX Verify this version */
+#    define HASATTRIBUTE_FORMAT
+#    if defined __MINGW32__
+#      define PRINTF_FORMAT_NULL_OK
+#    endif
+#  endif
+#  if __GNUC__ >= 3 /* 3.0 -> */
+#    define HASATTRIBUTE_MALLOC
+#  endif
+#  if __GNUC__ == 3 && __GNUC_MINOR__ >= 3 || __GNUC__ > 3 /* 3.3 -> */
+#    define HASATTRIBUTE_NONNULL
+#  endif
+#  if __GNUC__ == 2 && __GNUC_MINOR__ >= 5 || __GNUC__ > 2 /* 2.5 -> */
+#    define HASATTRIBUTE_NORETURN
+#  endif
+#  if __GNUC__ >= 3 /* gcc 3.0 -> */
+#    define HASATTRIBUTE_PURE
+#  endif
+#  if __GNUC__ == 3 && __GNUC_MINOR__ >= 4 || __GNUC__ > 3 /* 3.4 -> */
+#    define HASATTRIBUTE_UNUSED
+#  endif
+#  if __GNUC__ == 3 && __GNUC_MINOR__ == 3 && !defined(__cplusplus)
+#    define HASATTRIBUTE_UNUSED /* gcc-3.3, but not g++-3.3. */
+#  endif
+#  if __GNUC__ == 3 && __GNUC_MINOR__ >= 4 || __GNUC__ > 3 /* 3.4 -> */
+#    define HASATTRIBUTE_WARN_UNUSED_RESULT
+#  endif
+#endif
+#endif /* #ifndef PERL_MICRO */
+
+/* USE_5005THREADS needs to be after unixish.h as <pthread.h> includes
+ * <sys/signal.h> which defines NSIG - which will stop inclusion of <signal.h>
+ * this results in many functions being undeclared which bothers C++
+ * May make sense to have threads after "*ish.h" anyway
+ */
+
+/* clang Thread Safety Analysis/Annotations/Attributes
+ * http://clang.llvm.org/docs/ThreadSafetyAnalysis.html
+ *
+ * Available since clang 3.6-ish (appeared in 3.4, but shaky still in 3.5).
+ * Apple XCode hijacks __clang_major__ and __clang_minor__
+ * (6.1 means really clang 3.6), so needs extra hijinks
+ * (could probably also test the contents of __apple_build_version__).
+ */
+#if defined(USE_ITHREADS) && defined(I_PTHREAD) && \
+    defined(__clang__) && \
+    !defined(SWIG) && \
+  ((!defined(__apple_build_version__) &&               \
+    ((__clang_major__ == 3 && __clang_minor__ >= 6) || \
+     (__clang_major__ >= 4))) || \
+   (defined(__apple_build_version__) &&                \
+    ((__clang_major__ == 6 && __clang_minor__ >= 1) || \
+     (__clang_major__ >= 7))))
+#  define PERL_TSA__(x)   __attribute__((x))
+#  define PERL_TSA_ACTIVE
+#else
+#  define PERL_TSA__(x)   /* No TSA, make TSA attributes no-ops. */
+#  undef PERL_TSA_ACTIVE
+#endif
+
+/* PERL_TSA_CAPABILITY() is used to annotate typedefs.
+ * typedef old_type PERL_TSA_CAPABILITY("mutex") new_type;
+ */
+#define PERL_TSA_CAPABILITY(x) \
+    PERL_TSA__(capability(x))
+
+/* In the below examples the mutex must be lexically visible, usually
+ * either as global variables, or as function arguments. */
+
+/* PERL_TSA_GUARDED_BY() is used to annotate global variables.
+ *
+ * Foo foo PERL_TSA_GUARDED_BY(mutex);
+ */
+#define PERL_TSA_GUARDED_BY(x) \
+    PERL_TSA__(guarded_by(x))
+
+/* PERL_TSA_PT_GUARDED_BY() is used to annotate global pointers.
+ * The data _behind_ the pointer is guarded.
+ *
+ * Foo* ptr PERL_TSA_PT_GUARDED_BY(mutex);
+ */
+#define PERL_TSA_PT_GUARDED_BY(x) \
+    PERL_TSA__(pt_guarded_by(x))
+
+/* PERL_TSA_REQUIRES() is used to annotate functions.
+ * The caller MUST hold the resource when calling the function.
+ *
+ * void Foo() PERL_TSA_REQUIRES(mutex);
+ */
+#define PERL_TSA_REQUIRES(x) \
+    PERL_TSA__(requires_capability(x))
+
+/* PERL_TSA_EXCLUDES() is used to annotate functions.
+ * The caller MUST NOT hold resource when calling the function.
+ *
+ * EXCLUDES should be used when the function first acquires
+ * the resource and then releases it.  Use to avoid deadlock.
+ *
+ * void Foo() PERL_TSA_EXCLUDES(mutex);
+ */
+#define PERL_TSA_EXCLUDES(x) \
+    PERL_TSA__(locks_excluded(x))
+
+/* PERL_TSA_ACQUIRE() is used to annotate functions.
+ * The caller MUST NOT hold the resource when calling the function,
+ * and the function will acquire the resource.
+ *
+ * void Foo() PERL_TSA_ACQUIRE(mutex);
+ */
+#define PERL_TSA_ACQUIRE(x) \
+    PERL_TSA__(acquire_capability(x))
+
+/* PERL_TSA_RELEASE() is used to annotate functions.
+ * The caller MUST hold the resource when calling the function,
+ * and the function will release the resource.
+ *
+ * void Foo() PERL_TSA_RELEASE(mutex);
+ */
+#define PERL_TSA_RELEASE(x) \
+    PERL_TSA__(release_capability(x))
+
+/* PERL_TSA_NO_TSA is used to annotate functions.
+ * Used when being intentionally unsafe, or when the code is too
+ * complicated for the analysis.  Use sparingly.
+ *
+ * void Foo() PERL_TSA_NO_TSA;
+ */
+#define PERL_TSA_NO_TSA \
+    PERL_TSA__(no_thread_safety_analysis)
+
+/* There are more annotations/attributes available, see the clang
+ * documentation for details. */
+
+#if defined(USE_ITHREADS)
+#  ifdef NETWARE
+#   include <nw5thread.h>
+#  else
+#    ifdef WIN32
+#      include <win32thread.h>
+#    else
+#      ifdef OS2
+#        include "os2thread.h"
+#      else
+#        ifdef I_MACH_CTHREADS
+#          include <mach/cthreads.h>
+typedef cthread_t	perl_os_thread;
+typedef mutex_t		perl_mutex;
+typedef condition_t	perl_cond;
+typedef void *		perl_key;
+#        else /* Posix threads */
+#          ifdef I_PTHREAD
+#            include <pthread.h>
+#          endif
+typedef pthread_t	perl_os_thread;
+typedef pthread_mutex_t PERL_TSA_CAPABILITY("mutex") perl_mutex;
+typedef pthread_cond_t	perl_cond;
+typedef pthread_key_t	perl_key;
+#        endif /* I_MACH_CTHREADS */
+#      endif /* OS2 */
+#    endif /* WIN32 */
+#  endif /* NETWARE */
+#endif /* USE_ITHREADS */
+
+#ifdef PERL_TSA_ACTIVE
+/* Since most pthread mutex interfaces have not been annotated, we
+ * need to have these wrappers. The NO_TSA annotation is quite ugly
+ * but it cannot be avoided in plain C, unlike in C++, where one could
+ * e.g. use ACQUIRE() with no arg on a mutex lock method.
+ *
+ * The bodies of these wrappers are in util.c
+ *
+ * TODO: however, some platforms are starting to get these clang
+ * thread safety annotations for pthreads, for example FreeBSD.
+ * Do we need a way to a bypass these wrappers? */
+EXTERN_C int perl_tsa_mutex_lock(perl_mutex* mutex)
+  PERL_TSA_ACQUIRE(*mutex)
+  PERL_TSA_NO_TSA;
+EXTERN_C int perl_tsa_mutex_unlock(perl_mutex* mutex)
+  PERL_TSA_RELEASE(*mutex)
+  PERL_TSA_NO_TSA;
+#endif
+
+#if defined(WIN32)
+#  include "win32.h"
+#endif
+
+#ifdef NETWARE
+#  include "netware.h"
+#endif
+
+#define STATUS_UNIX	PL_statusvalue
+#ifdef VMS
+#   define STATUS_NATIVE	PL_statusvalue_vms
+/*
+ * vaxc$errno is only guaranteed to be valid if errno == EVMSERR, otherwise
+ * its contents can not be trusted.  Unfortunately, Perl seems to check
+ * it on exit, so it when PL_statusvalue_vms is updated, vaxc$errno should
+ * be updated also.
+ */
+#  include <stsdef.h>
+#  include <ssdef.h>
+/* Presume this because if VMS changes it, it will require a new
+ * set of APIs for waiting on children for binary compatibility.
+ */
+#  define child_offset_bits (8)
+#  ifndef C_FAC_POSIX
+#  define C_FAC_POSIX 0x35A000
+#  endif
+
+/*  STATUS_EXIT - validates and returns a NATIVE exit status code for the
+ * platform from the existing UNIX or Native status values.
+ */
+
+#   define STATUS_EXIT \
+	(((I32)PL_statusvalue_vms == -1 ? SS$_ABORT : PL_statusvalue_vms) | \
+	   (VMSISH_HUSHED ? STS$M_INHIB_MSG : 0))
+
+
+/* STATUS_NATIVE_CHILD_SET - Calculate UNIX status that matches the child
+ * exit code and shifts the UNIX value over the correct number of bits to
+ * be a child status.  Usually the number of bits is 8, but that could be
+ * platform dependent.  The NATIVE status code is presumed to have either
+ * from a child process.
+ */
+
+/* This is complicated.  The child processes return a true native VMS
+   status which must be saved.  But there is an assumption in Perl that
+   the UNIX child status has some relationship to errno values, so
+   Perl tries to translate it to text in some of the tests.
+   In order to get the string translation correct, for the error, errno
+   must be EVMSERR, but that generates a different text message
+   than what the test programs are expecting.  So an errno value must
+   be derived from the native status value when an error occurs.
+   That will hide the true native status message.  With this version of
+   perl, the true native child status can always be retrieved so that
+   is not a problem.  But in this case, Pl_statusvalue and errno may
+   have different values in them.
+ */
+
+#   define STATUS_NATIVE_CHILD_SET(n) \
+	STMT_START {							\
+	    I32 evalue = (I32)n;					\
+	    if (evalue == EVMSERR) {					\
+	      PL_statusvalue_vms = vaxc$errno;				\
+	      PL_statusvalue = evalue;					\
+	    } else {							\
+	      PL_statusvalue_vms = evalue;				\
+	      if (evalue == -1) {					\
+		PL_statusvalue = -1;					\
+		PL_statusvalue_vms = SS$_ABORT; /* Should not happen */ \
+	      } else							\
+		PL_statusvalue = Perl_vms_status_to_unix(evalue, 1);	\
+	      set_vaxc_errno(evalue);					\
+	      if ((PL_statusvalue_vms & C_FAC_POSIX) == C_FAC_POSIX)	\
+		  set_errno(EVMSERR);					\
+	      else set_errno(Perl_vms_status_to_unix(evalue, 0));	\
+	      PL_statusvalue = PL_statusvalue << child_offset_bits;	\
+	    }								\
+	} STMT_END
+
+#   ifdef VMSISH_STATUS
+#	define STATUS_CURRENT	(VMSISH_STATUS ? STATUS_NATIVE : STATUS_UNIX)
+#   else
+#	define STATUS_CURRENT	STATUS_UNIX
+#   endif
+
+  /* STATUS_UNIX_SET - takes a UNIX/POSIX errno value and attempts to update
+   * the NATIVE status to an equivalent value.  Can not be used to translate
+   * exit code values as exit code values are not guaranteed to have any
+   * relationship at all to errno values.
+   * This is used when Perl is forcing errno to have a specific value.
+   */
+#   define STATUS_UNIX_SET(n)				\
+	STMT_START {					\
+	    I32 evalue = (I32)n;			\
+	    PL_statusvalue = evalue;			\
+	    if (PL_statusvalue != -1) {			\
+		if (PL_statusvalue != EVMSERR) {	\
+		  PL_statusvalue &= 0xFFFF;		\
+		  if (MY_POSIX_EXIT)			\
+		    PL_statusvalue_vms=PL_statusvalue ? SS$_ABORT : SS$_NORMAL;\
+		  else PL_statusvalue_vms = Perl_unix_status_to_vms(evalue); \
+		}					\
+		else {					\
+		  PL_statusvalue_vms = vaxc$errno;	\
+		}					\
+	    }						\
+	    else PL_statusvalue_vms = SS$_ABORT;	\
+	    set_vaxc_errno(PL_statusvalue_vms);		\
+	} STMT_END
+
+  /* STATUS_UNIX_EXIT_SET - Takes a UNIX/POSIX exit code and sets
+   * the NATIVE error status based on it.
+   *
+   * When in the default mode to comply with the Perl VMS documentation,
+   * 0 is a success and any other code sets the NATIVE status to a failure
+   * code of SS$_ABORT.
+   *
+   * In the new POSIX EXIT mode, native status will be set so that the
+   * actual exit code will can be retrieved by the calling program or
+   * shell.
+   *
+   * If the exit code is not clearly a UNIX parent or child exit status,
+   * it will be passed through as a VMS status.
+   */
+
+#   define STATUS_UNIX_EXIT_SET(n)			\
+	STMT_START {					\
+	    I32 evalue = (I32)n;			\
+	    PL_statusvalue = evalue;			\
+	    if (MY_POSIX_EXIT) { \
+	      if (evalue <= 0xFF00) {		\
+		  if (evalue > 0xFF)			\
+		    evalue = (evalue >> child_offset_bits) & 0xFF; \
+		  PL_statusvalue_vms =		\
+		    (C_FAC_POSIX | (evalue << 3 ) |	\
+		    ((evalue == 1) ? (STS$K_ERROR | STS$M_INHIB_MSG) : 1)); \
+	      } else /* forgive them Perl, for they have sinned */ \
+		PL_statusvalue_vms = evalue; \
+	    } else { \
+	      if (evalue == 0)			\
+		PL_statusvalue_vms = SS$_NORMAL;	\
+	      else if (evalue <= 0xFF00) \
+		PL_statusvalue_vms = SS$_ABORT; \
+	      else { /* forgive them Perl, for they have sinned */ \
+		  if (evalue != EVMSERR) PL_statusvalue_vms = evalue; \
+		  else PL_statusvalue_vms = vaxc$errno;	\
+		  /* And obviously used a VMS status value instead of UNIX */ \
+		  PL_statusvalue = EVMSERR;		\
+	      } \
+	      set_vaxc_errno(PL_statusvalue_vms);	\
+	    }						\
+	} STMT_END
+
+
+  /* STATUS_EXIT_SET - Takes a NATIVE/UNIX/POSIX exit code
+   * and sets the NATIVE error status based on it.  This special case
+   * is needed to maintain compatibility with past VMS behavior.
+   *
+   * In the default mode on VMS, this number is passed through as
+   * both the NATIVE and UNIX status.  Which makes it different
+   * that the STATUS_UNIX_EXIT_SET.
+   *
+   * In the new POSIX EXIT mode, native status will be set so that the
+   * actual exit code will can be retrieved by the calling program or
+   * shell.
+   *
+   * A POSIX exit code is from 0 to 255.  If the exit code is higher
+   * than this, it needs to be assumed that it is a VMS exit code and
+   * passed through.
+   */
+
+#   define STATUS_EXIT_SET(n)				\
+	STMT_START {					\
+	    I32 evalue = (I32)n;			\
+	    PL_statusvalue = evalue;			\
+	    if (MY_POSIX_EXIT)				\
+		if (evalue > 255) PL_statusvalue_vms = evalue; else {	\
+		  PL_statusvalue_vms = \
+		    (C_FAC_POSIX | (evalue << 3 ) |	\
+		     ((evalue == 1) ? (STS$K_ERROR | STS$M_INHIB_MSG) : 1));} \
+	    else					\
+		PL_statusvalue_vms = evalue ? evalue : SS$_NORMAL; \
+	    set_vaxc_errno(PL_statusvalue_vms);		\
+	} STMT_END
+
+
+ /* This macro forces a success status */
+#   define STATUS_ALL_SUCCESS	\
+	(PL_statusvalue = 0, PL_statusvalue_vms = SS$_NORMAL)
+
+ /* This macro forces a failure status */
+#   define STATUS_ALL_FAILURE	(PL_statusvalue = 1, \
+     vaxc$errno = PL_statusvalue_vms = MY_POSIX_EXIT ? \
+	(C_FAC_POSIX | (1 << 3) | STS$K_ERROR | STS$M_INHIB_MSG) : SS$_ABORT)
+
+#elif defined(__amigaos4__)
+ /* A somewhat experimental attempt to simulate posix return code values */
+#   define STATUS_NATIVE	PL_statusvalue_posix
+#   define STATUS_NATIVE_CHILD_SET(n)                      \
+        STMT_START {                                       \
+            PL_statusvalue_posix = (n);                    \
+            if (PL_statusvalue_posix < 0) {                \
+                PL_statusvalue = -1;                       \
+            }                                              \
+            else {                                         \
+                PL_statusvalue = n << 8;                   \
+            }                                              \
+        } STMT_END
+#   define STATUS_UNIX_SET(n)		\
+	STMT_START {			\
+	    PL_statusvalue = (n);		\
+	    if (PL_statusvalue != -1)	\
+		PL_statusvalue &= 0xFFFF;	\
+	} STMT_END
+#   define STATUS_UNIX_EXIT_SET(n) STATUS_UNIX_SET(n)
+#   define STATUS_EXIT_SET(n) STATUS_UNIX_SET(n)
+#   define STATUS_CURRENT STATUS_UNIX
+#   define STATUS_EXIT STATUS_UNIX
+#   define STATUS_ALL_SUCCESS	(PL_statusvalue = 0, PL_statusvalue_posix = 0)
+#   define STATUS_ALL_FAILURE	(PL_statusvalue = 1, PL_statusvalue_posix = 1)
+
+#else
+#   define STATUS_NATIVE	PL_statusvalue_posix
+#   if defined(WCOREDUMP)
+#       define STATUS_NATIVE_CHILD_SET(n)                  \
+            STMT_START {                                   \
+                PL_statusvalue_posix = (n);                \
+                if (PL_statusvalue_posix == -1)            \
+                    PL_statusvalue = -1;                   \
+                else {                                     \
+                    PL_statusvalue =                       \
+                        (WIFEXITED(PL_statusvalue_posix) ? (WEXITSTATUS(PL_statusvalue_posix) << 8) : 0) |  \
+                        (WIFSIGNALED(PL_statusvalue_posix) ? (WTERMSIG(PL_statusvalue_posix) & 0x7F) : 0) | \
+                        (WIFSIGNALED(PL_statusvalue_posix) && WCOREDUMP(PL_statusvalue_posix) ? 0x80 : 0);  \
+                }                                          \
+            } STMT_END
+#   elif defined(WIFEXITED)
+#       define STATUS_NATIVE_CHILD_SET(n)                  \
+            STMT_START {                                   \
+                PL_statusvalue_posix = (n);                \
+                if (PL_statusvalue_posix == -1)            \
+                    PL_statusvalue = -1;                   \
+                else {                                     \
+                    PL_statusvalue =                       \
+                        (WIFEXITED(PL_statusvalue_posix) ? (WEXITSTATUS(PL_statusvalue_posix) << 8) : 0) |  \
+                        (WIFSIGNALED(PL_statusvalue_posix) ? (WTERMSIG(PL_statusvalue_posix) & 0x7F) : 0);  \
+                }                                          \
+            } STMT_END
+#   else
+#       define STATUS_NATIVE_CHILD_SET(n)                  \
+            STMT_START {                                   \
+                PL_statusvalue_posix = (n);                \
+                if (PL_statusvalue_posix == -1)            \
+                    PL_statusvalue = -1;                   \
+                else {                                     \
+                    PL_statusvalue =                       \
+                        PL_statusvalue_posix & 0xFFFF;     \
+                }                                          \
+            } STMT_END
+#   endif
+#   define STATUS_UNIX_SET(n)		\
+	STMT_START {			\
+	    PL_statusvalue = (n);		\
+	    if (PL_statusvalue != -1)	\
+		PL_statusvalue &= 0xFFFF;	\
+	} STMT_END
+#   define STATUS_UNIX_EXIT_SET(n) STATUS_UNIX_SET(n)
+#   define STATUS_EXIT_SET(n) STATUS_UNIX_SET(n)
+#   define STATUS_CURRENT STATUS_UNIX
+#   define STATUS_EXIT STATUS_UNIX
+#   define STATUS_ALL_SUCCESS	(PL_statusvalue = 0, PL_statusvalue_posix = 0)
+#   define STATUS_ALL_FAILURE	(PL_statusvalue = 1, PL_statusvalue_posix = 1)
+#endif
+
+/* flags in PL_exit_flags for nature of exit() */
+#define PERL_EXIT_EXPECTED	0x01
+#define PERL_EXIT_DESTRUCT_END  0x02  /* Run END in perl_destruct */
+#define PERL_EXIT_WARN		0x04  /* Warn if Perl_my_exit() or Perl_my_failure_exit() called */
+#define PERL_EXIT_ABORT		0x08  /* Call abort() if Perl_my_exit() or Perl_my_failure_exit() called */
+
+#ifndef PERL_CORE
+/* format to use for version numbers in file/directory names */
+/* XXX move to Configure? */
+/* This was only ever used for the current version, and that can be done at
+   compile time, as PERL_FS_VERSION, so should we just delete it?  */
+#  ifndef PERL_FS_VER_FMT
+#    define PERL_FS_VER_FMT	"%d.%d.%d"
+#  endif
+#endif
+
+#ifndef PERL_FS_VERSION
+#  define PERL_FS_VERSION	PERL_VERSION_STRING
+#endif
+
+/* This defines a way to flush all output buffers.  This may be a
+ * performance issue, so we allow people to disable it.  Also, if
+ * we are using stdio, there are broken implementations of fflush(NULL)
+ * out there, Solaris being the most prominent.
+ */
+#ifndef PERL_FLUSHALL_FOR_CHILD
+# if defined(USE_PERLIO) || defined(FFLUSH_NULL)
+#  define PERL_FLUSHALL_FOR_CHILD	PerlIO_flush((PerlIO*)NULL)
+# else
+#  ifdef FFLUSH_ALL
+#   define PERL_FLUSHALL_FOR_CHILD	my_fflush_all()
+#  else
+#   define PERL_FLUSHALL_FOR_CHILD	NOOP
+#  endif
+# endif
+#endif
+
+#ifndef PERL_WAIT_FOR_CHILDREN
+#  define PERL_WAIT_FOR_CHILDREN	NOOP
+#endif
+
+/* the traditional thread-unsafe notion of "current interpreter". */
+#ifndef PERL_SET_INTERP
+#  define PERL_SET_INTERP(i)		(PL_curinterp = (PerlInterpreter*)(i))
+#endif
+
+#ifndef PERL_GET_INTERP
+#  define PERL_GET_INTERP		(PL_curinterp)
+#endif
+
+#if defined(PERL_IMPLICIT_CONTEXT) && !defined(PERL_GET_THX)
+#  ifdef MULTIPLICITY
+#    define PERL_GET_THX		((PerlInterpreter *)PERL_GET_CONTEXT)
+#  endif
+#  define PERL_SET_THX(t)		PERL_SET_CONTEXT(t)
+#endif
+
+/*
+    This replaces the previous %_ "hack" by the "%p" hacks.
+    All that is required is that the perl source does not
+    use "%-p" or "%-<number>p" or "%<number>p" formats.
+    These formats will still work in perl code.
+    See comments in sv.c for further details.
+
+    Robin Barker 2005-07-14
+
+    No longer use %1p for VDf = %vd.  RMB 2007-10-19
+*/
+
+#ifndef SVf_
+#  define SVf_(n) "-" STRINGIFY(n) "p"
+#endif
+
+#ifndef SVf
+#  define SVf "-p"
+#endif
+
+#ifndef SVf32
+#  define SVf32 SVf_(32)
+#endif
+
+#ifndef SVf256
+#  define SVf256 SVf_(256)
+#endif
+
+#define SVfARG(p) ((void*)(p))
+
+#ifndef HEKf
+#  define HEKf "2p"
+#endif
+
+/* Not ideal, but we cannot easily include a number in an already-numeric
+ * format sequence. */
+#ifndef HEKf256
+#  define HEKf256 "3p"
+#endif
+
+#define HEKfARG(p) ((void*)(p))
+
+/* Takes three arguments: is_utf8, length, str */
+#ifndef UTF8f
+#  define UTF8f "d%" UVuf "%4p"
+#endif
+#define UTF8fARG(u,l,p) (int)cBOOL(u), (UV)(l), (void*)(p)
+
+#define PNf UTF8f
+#define PNfARG(pn) (int)1, (UV)PadnameLEN(pn), (void *)PadnamePV(pn)
+
+#ifdef PERL_CORE
+/* not used; but needed for backward compatibility with XS code? - RMB */
+#  undef UVf
+#else
+#  ifndef UVf
+#    define UVf UVuf
+#  endif
+#endif
+
+#ifdef HASATTRIBUTE_DEPRECATED
+#  define __attribute__deprecated__         __attribute__((deprecated))
+#endif
+#ifdef HASATTRIBUTE_FORMAT
+#  define __attribute__format__(x,y,z)      __attribute__((format(x,y,z)))
+#endif
+#ifdef HASATTRIBUTE_MALLOC
+#  define __attribute__malloc__             __attribute__((__malloc__))
+#endif
+#ifdef HASATTRIBUTE_NONNULL
+#  define __attribute__nonnull__(a)         __attribute__((nonnull(a)))
+#endif
+#ifdef HASATTRIBUTE_NORETURN
+#  define __attribute__noreturn__           __attribute__((noreturn))
+#endif
+#ifdef HASATTRIBUTE_PURE
+#  define __attribute__pure__               __attribute__((pure))
+#endif
+#ifdef HASATTRIBUTE_UNUSED
+#  define __attribute__unused__             __attribute__((unused))
+#endif
+#ifdef HASATTRIBUTE_WARN_UNUSED_RESULT
+#  define __attribute__warn_unused_result__ __attribute__((warn_unused_result))
+#endif
+
+/* If we haven't defined the attributes yet, define them to blank. */
+#ifndef __attribute__deprecated__
+#  define __attribute__deprecated__
+#endif
+#ifndef __attribute__format__
+#  define __attribute__format__(x,y,z)
+#endif
+#ifndef __attribute__malloc__
+#  define __attribute__malloc__
+#endif
+#ifndef __attribute__nonnull__
+#  define __attribute__nonnull__(a)
+#endif
+#ifndef __attribute__noreturn__
+#  define __attribute__noreturn__
+#endif
+#ifndef __attribute__pure__
+#  define __attribute__pure__
+#endif
+#ifndef __attribute__unused__
+#  define __attribute__unused__
+#endif
+#ifndef __attribute__warn_unused_result__
+#  define __attribute__warn_unused_result__
+#endif
+
+#ifdef I_ASSERT
+#  if !defined(DEBUGGING) && !defined(NDEBUG)
+#    define NDEBUG 1
+#  endif
+#  include <assert.h>
+#endif
+
+/* For functions that are marked as __attribute__noreturn__, it's not
+   appropriate to call return.  In either case, include the lint directive.
+ */
+#ifdef HASATTRIBUTE_NORETURN
+#  define NORETURN_FUNCTION_END NOT_REACHED;
+#else
+#  define NORETURN_FUNCTION_END NOT_REACHED; return 0
+#endif
+
+/* Some OS warn on NULL format to printf */
+#ifdef PRINTF_FORMAT_NULL_OK
+#  define __attribute__format__null_ok__(x,y,z)  __attribute__format__(x,y,z)
+#else
+#  define __attribute__format__null_ok__(x,y,z)
+#endif
+
+#ifdef HAS_BUILTIN_EXPECT
+#  define EXPECT(expr,val)                  __builtin_expect(expr,val)
+#else
+#  define EXPECT(expr,val)                  (expr)
+#endif
+#define LIKELY(cond)                        EXPECT(cBOOL(cond),TRUE)
+#define UNLIKELY(cond)                      EXPECT(cBOOL(cond),FALSE)
+#ifdef HAS_BUILTIN_CHOOSE_EXPR
+/* placeholder */
+#endif
+
+/* STATIC_ASSERT_GLOBAL/STATIC_ASSERT_STMT are like assert(), but for compile
+   time invariants. That is, their argument must be a constant expression that
+   can be verified by the compiler. This expression can contain anything that's
+   known to the compiler, e.g. #define constants, enums, or sizeof (...). If
+   the expression evaluates to 0, compilation fails.
+   Because they generate no runtime code (i.e.  their use is "free"), they're
+   always active, even under non-DEBUGGING builds.
+   STATIC_ASSERT_GLOBAL expands to a declaration and is suitable for use at
+   file scope (outside of any function).
+   STATIC_ASSERT_STMT expands to a statement and is suitable for use inside a
+   function.
+*/
+#if (defined(static_assert) || (defined(__cplusplus) && __cplusplus >= 201103L)) && (!defined(__IBMC__) || __IBMC__ >= 1210)
+/* static_assert is a macro defined in <assert.h> in C11 or a compiler
+   builtin in C++11.
+*/
+/* IBM XL C V11 does not support _Static_assert, no matter what <assert.h> says */
+#  define STATIC_ASSERT_GLOBAL(COND) static_assert(COND, #COND)
+#else
+/* We use a bit-field instead of an array because gcc accepts
+   'typedef char x[n]' where n is not a compile-time constant.
+   We want to enforce constantness.
+*/
+#  define STATIC_ASSERT_2(COND, SUFFIX) \
+    typedef struct { \
+        unsigned int _static_assertion_failed_##SUFFIX : (COND) ? 1 : -1; \
+    } _static_assertion_failed_##SUFFIX PERL_UNUSED_DECL
+#  define STATIC_ASSERT_1(COND, SUFFIX) STATIC_ASSERT_2(COND, SUFFIX)
+#  define STATIC_ASSERT_GLOBAL(COND)    STATIC_ASSERT_1(COND, __LINE__)
+#endif
+/* We need this wrapper even in C11 because 'case X: static_assert(...);' is an
+   error (static_assert is a declaration, and only statements can have labels).
+*/
+#define STATIC_ASSERT_STMT(COND)      do { STATIC_ASSERT_GLOBAL(COND); } while (0)
+
+#ifndef __has_builtin
+#  define __has_builtin(x) 0 /* not a clang style compiler */
+#endif
+
+/* ASSUME is like assert(), but it has a benefit in a release build. It is a
+   hint to a compiler about a statement of fact in a function call free
+   expression, which allows the compiler to generate better machine code.
+   In a debug build, ASSUME(x) is a synonym for assert(x). ASSUME(0) means
+   the control path is unreachable. In a for loop, ASSUME can be used to hint
+   that a loop will run at least X times. ASSUME is based off MSVC's __assume
+   intrinsic function, see its documents for more details.
+*/
+
+#ifndef DEBUGGING
+#  if __has_builtin(__builtin_unreachable) \
+     || (__GNUC__ == 4 && __GNUC_MINOR__ >= 5 || __GNUC__ > 4) /* 4.5 -> */
+#    define ASSUME(x) ((x) ? (void) 0 : __builtin_unreachable())
+#  elif defined(_MSC_VER)
+#    define ASSUME(x) __assume(x)
+#  elif defined(__ARMCC_VERSION) /* untested */
+#    define ASSUME(x) __promise(x)
+#  else
+/* a random compiler might define assert to its own special optimization token
+   so pass it through to C lib as a last resort */
+#    define ASSUME(x) assert(x)
+#  endif
+#else
+#  define ASSUME(x) assert(x)
+#endif
+
+#define NOT_REACHED ASSUME(0)
+
+/* Some unistd.h's give a prototype for pause() even though
+   HAS_PAUSE ends up undefined.  This causes the #define
+   below to be rejected by the compiler.  Sigh.
+*/
+#ifdef HAS_PAUSE
+#define Pause	pause
+#else
+#define Pause() sleep((32767<<16)+32767)
+#endif
+
+#ifndef IOCPARM_LEN
+#   ifdef IOCPARM_MASK
+	/* on BSDish systems we're safe */
+#	define IOCPARM_LEN(x)  (((x) >> 16) & IOCPARM_MASK)
+#   else
+#	if defined(_IOC_SIZE) && defined(__GLIBC__)
+	/* on Linux systems we're safe; except when we're not [perl #38223] */
+#	    define IOCPARM_LEN(x) (_IOC_SIZE(x) < 256 ? 256 : _IOC_SIZE(x))
+#	else
+	/* otherwise guess at what's safe */
+#	    define IOCPARM_LEN(x)	256
+#	endif
+#   endif
+#endif
+
+#if defined(__CYGWIN__)
+/* USEMYBINMODE
+ *   This symbol, if defined, indicates that the program should
+ *   use the routine my_binmode(FILE *fp, char iotype, int mode) to insure
+ *   that a file is in "binary" mode -- that is, that no translation
+ *   of bytes occurs on read or write operations.
+ */
+#  define USEMYBINMODE /**/
+#  include <io.h> /* for setmode() prototype */
+#  define my_binmode(fp, iotype, mode) \
+            (PerlLIO_setmode(fileno(fp), mode) != -1 ? TRUE : FALSE)
+#endif
+
+#ifdef __CYGWIN__
+void init_os_extras(void);
+#endif
+
+#ifdef UNION_ANY_DEFINITION
+UNION_ANY_DEFINITION;
+#else
+union any {
+    void*	any_ptr;
+    I32		any_i32;
+    U32		any_u32;
+    IV		any_iv;
+    UV		any_uv;
+    long	any_long;
+    bool	any_bool;
+    void	(*any_dptr) (void*);
+    void	(*any_dxptr) (pTHX_ void*);
+};
+#endif
+
+typedef I32 (*filter_t) (pTHX_ int, SV *, int);
+
+#define FILTER_READ(idx, sv, len)  filter_read(idx, sv, len)
+#define FILTER_DATA(idx) \
+	    (PL_parser ? AvARRAY(PL_parser->rsfp_filters)[idx] : NULL)
+#define FILTER_ISREADER(idx) \
+	    (PL_parser && PL_parser->rsfp_filters \
+		&& idx >= AvFILLp(PL_parser->rsfp_filters))
+#define PERL_FILTER_EXISTS(i) \
+	    (PL_parser && PL_parser->rsfp_filters \
+		&& (i) <= av_tindex(PL_parser->rsfp_filters))
+
+#if defined(_AIX) && !defined(_AIX43)
+#if defined(USE_REENTRANT) || defined(_REENTRANT) || defined(_THREAD_SAFE)
+/* We cannot include <crypt.h> to get the struct crypt_data
+ * because of setkey prototype problems when threading */
+typedef        struct crypt_data {     /* straight from /usr/include/crypt.h */
+    /* From OSF, Not needed in AIX
+       char C[28], D[28];
+    */
+    char E[48];
+    char KS[16][48];
+    char block[66];
+    char iobuf[16];
+} CRYPTD;
+#endif /* threading */
+#endif /* AIX */
+
+#ifndef PERL_CALLCONV
+#  ifdef __cplusplus
+#    define PERL_CALLCONV extern "C"
+#  else
+#    define PERL_CALLCONV
+#  endif
+#endif
+#ifndef PERL_CALLCONV_NO_RET
+#    define PERL_CALLCONV_NO_RET PERL_CALLCONV
+#endif
+
+/* PERL_STATIC_NO_RET is supposed to be equivalent to STATIC on builds that
+   dont have a noreturn as a declaration specifier
+*/
+#ifndef PERL_STATIC_NO_RET
+#  define PERL_STATIC_NO_RET STATIC
+#endif
+/* PERL_STATIC_NO_RET is supposed to be equivalent to PERL_STATIC_INLINE on
+   builds that dont have a noreturn as a declaration specifier
+*/
+#ifndef PERL_STATIC_INLINE_NO_RET
+#  define PERL_STATIC_INLINE_NO_RET PERL_STATIC_INLINE
+#endif
+
+#if !defined(OS2)
+#  include "iperlsys.h"
+#endif
+
+#ifdef __LIBCATAMOUNT__
+#undef HAS_PASSWD  /* unixish.h but not unixish enough. */
+#undef HAS_GROUP
+#define FAKE_BIT_BUCKET
+#endif
+
+/* [perl #22371] Algorimic Complexity Attack on Perl 5.6.1, 5.8.0.
+ * Note that the USE_HASH_SEED and USE_HASH_SEED_EXPLICIT are *NOT*
+ * defined by Configure, despite their names being similar to the
+ * other defines like USE_ITHREADS.  Configure in fact knows nothing
+ * about the randomised hashes.  Therefore to enable/disable the hash
+ * randomisation defines use the Configure -Accflags=... instead. */
+#if !defined(NO_HASH_SEED) && !defined(USE_HASH_SEED) && !defined(USE_HASH_SEED_EXPLICIT)
+#  define USE_HASH_SEED
+#endif
+
+/* Win32 defines a type 'WORD' in windef.h, and AmigaOS in exec/types.h.
+ * This conflicts with the enumerator 'WORD' defined in perly.h.
+ * The yytokentype enum is only a debugging aid, so it's not really needed. */
+#if defined(WIN32) || defined(__amigaos4__)
+#  define YYTOKENTYPE
+#endif
+#include "perly.h"
+
+
+/* macros to define bit-fields in structs. */
+#ifndef PERL_BITFIELD8
+#  define PERL_BITFIELD8 unsigned
+#endif
+#ifndef PERL_BITFIELD16
+#  define PERL_BITFIELD16 unsigned
+#endif
+#ifndef PERL_BITFIELD32
+#  define PERL_BITFIELD32 unsigned
+#endif
+
+#include "sv.h"
+#include "regexp.h"
+#include "util.h"
+#include "form.h"
+#include "gv.h"
+#include "pad.h"
+#include "cv.h"
+#include "opnames.h"
+#include "op.h"
+#include "hv.h"
+#include "cop.h"
+#include "av.h"
+#include "mg.h"
+#include "scope.h"
+#include "warnings.h"
+#include "utf8.h"
+
+/* these would be in doio.h if there was such a file */
+#define my_stat()  my_stat_flags(SV_GMAGIC)
+#define my_lstat() my_lstat_flags(SV_GMAGIC)
+
+/* defined in sv.c, but also used in [ach]v.c */
+#undef _XPV_HEAD
+#undef _XPVMG_HEAD
+#undef _XPVCV_COMMON
+
+typedef struct _sublex_info SUBLEXINFO;
+struct _sublex_info {
+    U8 super_state;	/* lexer state to save */
+    U16 sub_inwhat;	/* "lex_inwhat" to use */
+    OP *sub_op;		/* "lex_op" to use */
+    SV *repl;		/* replacement of s/// or y/// */
+};
+
+#include "parser.h"
+
+typedef struct magic_state MGS;	/* struct magic_state defined in mg.c */
+
+#if defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_REGEXEC_C)
+
+/* These have to be predeclared, as they are used in proto.h which is #included
+ * before their definitions in regcomp.h. */
+
+struct scan_data_t;
+typedef struct regnode_charclass regnode_charclass;
+
+struct regnode_charclass_class;
+
+/* A hopefully less confusing name.  The sub-classes are all Posix classes only
+ * used under /l matching */
+typedef struct regnode_charclass_class regnode_charclass_posixl;
+
+typedef struct regnode_ssc regnode_ssc;
+typedef struct RExC_state_t RExC_state_t;
+struct _reg_trie_data;
+
+#endif
+
+struct ptr_tbl_ent {
+    struct ptr_tbl_ent*		next;
+    const void*			oldval;
+    void*			newval;
+};
+
+struct ptr_tbl {
+    struct ptr_tbl_ent**	tbl_ary;
+    UV				tbl_max;
+    UV				tbl_items;
+    struct ptr_tbl_arena	*tbl_arena;
+    struct ptr_tbl_ent		*tbl_arena_next;
+    struct ptr_tbl_ent		*tbl_arena_end;
+};
+
+#if defined(htonl) && !defined(HAS_HTONL)
+#define HAS_HTONL
+#endif
+#if defined(htons) && !defined(HAS_HTONS)
+#define HAS_HTONS
+#endif
+#if defined(ntohl) && !defined(HAS_NTOHL)
+#define HAS_NTOHL
+#endif
+#if defined(ntohs) && !defined(HAS_NTOHS)
+#define HAS_NTOHS
+#endif
+#ifndef HAS_HTONL
+#define HAS_HTONS
+#define HAS_HTONL
+#define HAS_NTOHS
+#define HAS_NTOHL
+#  if (BYTEORDER & 0xffff) == 0x4321
+/* Big endian system, so ntohl, ntohs, htonl and htons do not need to
+   re-order their values. However, to behave identically to the alternative
+   implementations, they should truncate to the correct size.  */
+#    define ntohl(x)    ((x)&0xFFFFFFFF)
+#    define htonl(x)    ntohl(x)
+#    define ntohs(x)    ((x)&0xFFFF)
+#    define htons(x)    ntohs(x)
+#  elif BYTEORDER == 0x1234 || BYTEORDER == 0x12345678
+
+/* Note that we can't straight out declare our own htonl and htons because
+   the Win32 build process forcibly undefines HAS_HTONL etc for its miniperl,
+   to avoid the overhead of initialising the socket subsystem, but the headers
+   that *declare* the various functions are still seen. If we declare our own
+   htonl etc they will clash with the declarations in the Win32 headers.  */
+
+PERL_STATIC_INLINE U32
+my_swap32(const U32 x) {
+    return ((x & 0xFF) << 24) | ((x >> 24) & 0xFF)	
+        | ((x & 0x0000FF00) << 8) | ((x & 0x00FF0000) >> 8);
+}
+
+PERL_STATIC_INLINE U16
+my_swap16(const U16 x) {
+    return ((x & 0xFF) << 8) | ((x >> 8) & 0xFF);
+}
+
+#    define htonl(x)    my_swap32(x)
+#    define ntohl(x)    my_swap32(x)
+#    define ntohs(x)    my_swap16(x)
+#    define htons(x)    my_swap16(x)
+#  else
+#    error "Unsupported byteorder"
+/* The C pre-processor doesn't let us return the value of BYTEORDER as part of
+   the error message. Please check the value of the macro BYTEORDER, as defined
+   in config.h. The values of BYTEORDER we expect are
+
+	    big endian  little endian
+   32 bit       0x4321  0x1234
+   64 bit   0x87654321  0x12345678
+
+   If you have a system with a different byte order, please see
+   pod/perlhack.pod for how to submit a patch to add supporting code.
+*/
+#  endif
+#endif
+
+/*
+ * Little-endian byte order functions - 'v' for 'VAX', or 'reVerse'.
+ * -DWS
+ */
+#if BYTEORDER == 0x1234 || BYTEORDER == 0x12345678
+/* Little endian system, so vtohl, vtohs, htovl and htovs do not need to
+   re-order their values. However, to behave identically to the alternative
+   implementations, they should truncate to the correct size.  */
+#  define vtohl(x)      ((x)&0xFFFFFFFF)
+#  define vtohs(x)      ((x)&0xFFFF)
+#  define htovl(x)      vtohl(x)
+#  define htovs(x)      vtohs(x)
+#elif BYTEORDER == 0x4321 || BYTEORDER == 0x87654321
+#  define vtohl(x)	((((x)&0xFF)<<24)	\
+			+(((x)>>24)&0xFF)	\
+			+(((x)&0x0000FF00)<<8)	\
+			+(((x)&0x00FF0000)>>8)	)
+#  define vtohs(x)	((((x)&0xFF)<<8) + (((x)>>8)&0xFF))
+#  define htovl(x)	vtohl(x)
+#  define htovs(x)	vtohs(x)
+#else
+#  error "Unsupported byteorder"
+/* If you have need for current perl on PDP-11 or similar, and can help test
+   that blead keeps working on a mixed-endian system, then see
+   pod/perlhack.pod for how to submit patches to things working again.  */
+#endif
+
+/* *MAX Plus 1. A floating point value.
+   Hopefully expressed in a way that dodgy floating point can't mess up.
+   >> 2 rather than 1, so that value is safely less than I32_MAX after 1
+   is added to it
+   May find that some broken compiler will want the value cast to I32.
+   [after the shift, as signed >> may not be as secure as unsigned >>]
+*/
+#define I32_MAX_P1 (2.0 * (1 + (((U32)I32_MAX) >> 1)))
+#define U32_MAX_P1 (4.0 * (1 + ((U32_MAX) >> 2)))
+/* For compilers that can't correctly cast NVs over 0x7FFFFFFF (or
+   0x7FFFFFFFFFFFFFFF) to an unsigned integer. In the future, sizeof(UV)
+   may be greater than sizeof(IV), so don't assume that half max UV is max IV.
+*/
+#define U32_MAX_P1_HALF (2.0 * (1 + ((U32_MAX) >> 2)))
+
+#define UV_MAX_P1 (4.0 * (1 + ((UV_MAX) >> 2)))
+#define IV_MAX_P1 (2.0 * (1 + (((UV)IV_MAX) >> 1)))
+#define UV_MAX_P1_HALF (2.0 * (1 + ((UV_MAX) >> 2)))
+
+/* This may look like unnecessary jumping through hoops, but converting
+   out of range floating point values to integers *is* undefined behaviour,
+   and it is starting to bite.
+*/
+#ifndef CAST_INLINE
+#define I_32(what) (cast_i32((NV)(what)))
+#define U_32(what) (cast_ulong((NV)(what)))
+#define I_V(what) (cast_iv((NV)(what)))
+#define U_V(what) (cast_uv((NV)(what)))
+#else
+#define I_32(n) ((n) < I32_MAX_P1 ? ((n) < I32_MIN ? I32_MIN : (I32) (n)) \
+                  : ((n) < U32_MAX_P1 ? (I32)(U32) (n) \
+                     : ((n) > 0 ? (I32) U32_MAX : 0 /* NaN */)))
+#define U_32(n) ((n) < 0.0 ? ((n) < I32_MIN ? (UV) I32_MIN : (U32)(I32) (n)) \
+                  : ((n) < U32_MAX_P1 ? (U32) (n) \
+                     : ((n) > 0 ? U32_MAX : 0 /* NaN */)))
+#define I_V(n) (LIKELY((n) < IV_MAX_P1) ? (UNLIKELY((n) < IV_MIN) ? IV_MIN : (IV) (n)) \
+                  : (LIKELY((n) < UV_MAX_P1) ? (IV)(UV) (n) \
+                     : ((n) > 0 ? (IV)UV_MAX : 0 /* NaN */)))
+#define U_V(n) ((n) < 0.0 ? (UNLIKELY((n) < IV_MIN) ? (UV) IV_MIN : (UV)(IV) (n)) \
+                  : (LIKELY((n) < UV_MAX_P1) ? (UV) (n) \
+                     : ((n) > 0 ? UV_MAX : 0 /* NaN */)))
+#endif
+
+#define U_S(what) ((U16)U_32(what))
+#define U_I(what) ((unsigned int)U_32(what))
+#define U_L(what) U_32(what)
+
+#ifdef HAS_SIGNBIT
+#  define Perl_signbit signbit
+#endif
+
+/* These do not care about the fractional part, only about the range. */
+#define NV_WITHIN_IV(nv) (I_V(nv) >= IV_MIN && I_V(nv) <= IV_MAX)
+#define NV_WITHIN_UV(nv) ((nv)>=0.0 && U_V(nv) >= UV_MIN && U_V(nv) <= UV_MAX)
+
+/* Used with UV/IV arguments: */
+					/* XXXX: need to speed it up */
+#define CLUMP_2UV(iv)	((iv) < 0 ? 0 : (UV)(iv))
+#define CLUMP_2IV(uv)	((uv) > (UV)IV_MAX ? IV_MAX : (IV)(uv))
+
+#ifndef MAXSYSFD
+#   define MAXSYSFD 2
+#endif
+
+#ifndef __cplusplus
+#if !(defined(WIN32) || defined(UNDER_CE) || defined(SYMBIAN))
+Uid_t getuid (void);
+Uid_t geteuid (void);
+Gid_t getgid (void);
+Gid_t getegid (void);
+#endif
+#endif
+
+#ifndef Perl_debug_log
+#  define Perl_debug_log	PerlIO_stderr()
+#endif
+
+#ifndef Perl_error_log
+#  define Perl_error_log	(PL_stderrgv			\
+				 && isGV(PL_stderrgv)		\
+				 && GvIOp(PL_stderrgv)          \
+				 && IoOFP(GvIOp(PL_stderrgv))	\
+				 ? IoOFP(GvIOp(PL_stderrgv))	\
+				 : PerlIO_stderr())
+#endif
+
+
+#define DEBUG_p_FLAG		0x00000001 /*      1 */
+#define DEBUG_s_FLAG		0x00000002 /*      2 */
+#define DEBUG_l_FLAG		0x00000004 /*      4 */
+#define DEBUG_t_FLAG		0x00000008 /*      8 */
+#define DEBUG_o_FLAG		0x00000010 /*     16 */
+#define DEBUG_c_FLAG		0x00000020 /*     32 */
+#define DEBUG_P_FLAG		0x00000040 /*     64 */
+#define DEBUG_m_FLAG		0x00000080 /*    128 */
+#define DEBUG_f_FLAG		0x00000100 /*    256 */
+#define DEBUG_r_FLAG		0x00000200 /*    512 */
+#define DEBUG_x_FLAG		0x00000400 /*   1024 */
+#define DEBUG_u_FLAG		0x00000800 /*   2048 */
+/* U is reserved for Unofficial, exploratory hacking */
+#define DEBUG_U_FLAG		0x00001000 /*   4096 */
+#define DEBUG_H_FLAG		0x00002000 /*   8192 */
+#define DEBUG_X_FLAG		0x00004000 /*  16384 */
+#define DEBUG_D_FLAG		0x00008000 /*  32768 */
+#define DEBUG_S_FLAG		0x00010000 /*  65536 */
+#define DEBUG_T_FLAG		0x00020000 /* 131072 */
+#define DEBUG_R_FLAG		0x00040000 /* 262144 */
+#define DEBUG_J_FLAG		0x00080000 /* 524288 */
+#define DEBUG_v_FLAG		0x00100000 /*1048576 */
+#define DEBUG_C_FLAG		0x00200000 /*2097152 */
+#define DEBUG_A_FLAG		0x00400000 /*4194304 */
+#define DEBUG_q_FLAG		0x00800000 /*8388608 */
+#define DEBUG_M_FLAG		0x01000000 /*16777216*/
+#define DEBUG_B_FLAG		0x02000000 /*33554432*/
+#define DEBUG_L_FLAG		0x04000000 /*67108864*/
+#define DEBUG_i_FLAG		0x08000000 /*134217728*/
+#define DEBUG_MASK		0x0FFFEFFF /* mask of all the standard flags */
+
+#define DEBUG_DB_RECURSE_FLAG	0x40000000
+#define DEBUG_TOP_FLAG		0x80000000 /* -D was given --> PL_debug |= FLAG */
+
+#  define DEBUG_p_TEST_ (PL_debug & DEBUG_p_FLAG)
+#  define DEBUG_s_TEST_ (PL_debug & DEBUG_s_FLAG)
+#  define DEBUG_l_TEST_ (PL_debug & DEBUG_l_FLAG)
+#  define DEBUG_t_TEST_ (PL_debug & DEBUG_t_FLAG)
+#  define DEBUG_o_TEST_ (PL_debug & DEBUG_o_FLAG)
+#  define DEBUG_c_TEST_ (PL_debug & DEBUG_c_FLAG)
+#  define DEBUG_P_TEST_ (PL_debug & DEBUG_P_FLAG)
+#  define DEBUG_m_TEST_ (PL_debug & DEBUG_m_FLAG)
+#  define DEBUG_f_TEST_ (PL_debug & DEBUG_f_FLAG)
+#  define DEBUG_r_TEST_ (PL_debug & DEBUG_r_FLAG)
+#  define DEBUG_x_TEST_ (PL_debug & DEBUG_x_FLAG)
+#  define DEBUG_u_TEST_ (PL_debug & DEBUG_u_FLAG)
+#  define DEBUG_U_TEST_ (PL_debug & DEBUG_U_FLAG)
+#  define DEBUG_H_TEST_ (PL_debug & DEBUG_H_FLAG)
+#  define DEBUG_X_TEST_ (PL_debug & DEBUG_X_FLAG)
+#  define DEBUG_D_TEST_ (PL_debug & DEBUG_D_FLAG)
+#  define DEBUG_S_TEST_ (PL_debug & DEBUG_S_FLAG)
+#  define DEBUG_T_TEST_ (PL_debug & DEBUG_T_FLAG)
+#  define DEBUG_R_TEST_ (PL_debug & DEBUG_R_FLAG)
+#  define DEBUG_J_TEST_ (PL_debug & DEBUG_J_FLAG)
+#  define DEBUG_v_TEST_ (PL_debug & DEBUG_v_FLAG)
+#  define DEBUG_C_TEST_ (PL_debug & DEBUG_C_FLAG)
+#  define DEBUG_A_TEST_ (PL_debug & DEBUG_A_FLAG)
+#  define DEBUG_q_TEST_ (PL_debug & DEBUG_q_FLAG)
+#  define DEBUG_M_TEST_ (PL_debug & DEBUG_M_FLAG)
+#  define DEBUG_B_TEST_ (PL_debug & DEBUG_B_FLAG)
+#  define DEBUG_L_TEST_ (PL_debug & DEBUG_L_FLAG)
+#  define DEBUG_i_TEST_ (PL_debug & DEBUG_i_FLAG)
+#  define DEBUG_Xv_TEST_ (DEBUG_X_TEST_ && DEBUG_v_TEST_)
+#  define DEBUG_Uv_TEST_ (DEBUG_U_TEST_ && DEBUG_v_TEST_)
+#  define DEBUG_Pv_TEST_ (DEBUG_P_TEST_ && DEBUG_v_TEST_)
+#  define DEBUG_Lv_TEST_ (DEBUG_L_TEST_ && DEBUG_v_TEST_)
+
+#ifdef DEBUGGING
+
+#  define DEBUG_p_TEST DEBUG_p_TEST_
+#  define DEBUG_s_TEST DEBUG_s_TEST_
+#  define DEBUG_l_TEST DEBUG_l_TEST_
+#  define DEBUG_t_TEST DEBUG_t_TEST_
+#  define DEBUG_o_TEST DEBUG_o_TEST_
+#  define DEBUG_c_TEST DEBUG_c_TEST_
+#  define DEBUG_P_TEST DEBUG_P_TEST_
+#  define DEBUG_m_TEST DEBUG_m_TEST_
+#  define DEBUG_f_TEST DEBUG_f_TEST_
+#  define DEBUG_r_TEST DEBUG_r_TEST_
+#  define DEBUG_x_TEST DEBUG_x_TEST_
+#  define DEBUG_u_TEST DEBUG_u_TEST_
+#  define DEBUG_U_TEST DEBUG_U_TEST_
+#  define DEBUG_H_TEST DEBUG_H_TEST_
+#  define DEBUG_X_TEST DEBUG_X_TEST_
+#  define DEBUG_D_TEST DEBUG_D_TEST_
+#  define DEBUG_S_TEST DEBUG_S_TEST_
+#  define DEBUG_T_TEST DEBUG_T_TEST_
+#  define DEBUG_R_TEST DEBUG_R_TEST_
+#  define DEBUG_J_TEST DEBUG_J_TEST_
+#  define DEBUG_v_TEST DEBUG_v_TEST_
+#  define DEBUG_C_TEST DEBUG_C_TEST_
+#  define DEBUG_A_TEST DEBUG_A_TEST_
+#  define DEBUG_q_TEST DEBUG_q_TEST_
+#  define DEBUG_M_TEST DEBUG_M_TEST_
+#  define DEBUG_B_TEST DEBUG_B_TEST_
+#  define DEBUG_L_TEST DEBUG_L_TEST_
+#  define DEBUG_i_TEST DEBUG_i_TEST_
+#  define DEBUG_Xv_TEST DEBUG_Xv_TEST_
+#  define DEBUG_Uv_TEST DEBUG_Uv_TEST_
+#  define DEBUG_Pv_TEST DEBUG_Pv_TEST_
+#  define DEBUG_Lv_TEST DEBUG_Lv_TEST_
+
+#  define PERL_DEB(a)                  a
+#  define PERL_DEB2(a,b)               a
+#  define PERL_DEBUG(a) if (PL_debug)  a
+#  define DEBUG_p(a) if (DEBUG_p_TEST) a
+#  define DEBUG_s(a) if (DEBUG_s_TEST) a
+#  define DEBUG_l(a) if (DEBUG_l_TEST) a
+#  define DEBUG_t(a) if (DEBUG_t_TEST) a
+#  define DEBUG_o(a) if (DEBUG_o_TEST) a
+#  define DEBUG_c(a) if (DEBUG_c_TEST) a
+#  define DEBUG_P(a) if (DEBUG_P_TEST) a
+
+     /* Temporarily turn off memory debugging in case the a
+      * does memory allocation, either directly or indirectly. */
+#  define DEBUG_m(a)  \
+    STMT_START {							\
+        if (PERL_GET_INTERP) { dTHX; if (DEBUG_m_TEST) {PL_debug&=~DEBUG_m_FLAG; a; PL_debug|=DEBUG_m_FLAG;} } \
+    } STMT_END
+
+#  define DEBUG__(t, a) \
+	STMT_START { \
+		if (t) STMT_START {a;} STMT_END; \
+	} STMT_END
+
+#  define DEBUG_f(a) DEBUG__(DEBUG_f_TEST, a)
+#ifndef PERL_EXT_RE_BUILD
+#  define DEBUG_r(a) DEBUG__(DEBUG_r_TEST, a)
+#else
+#  define DEBUG_r(a) STMT_START {a;} STMT_END
+#endif /* PERL_EXT_RE_BUILD */
+#  define DEBUG_x(a) DEBUG__(DEBUG_x_TEST, a)
+#  define DEBUG_u(a) DEBUG__(DEBUG_u_TEST, a)
+#  define DEBUG_U(a) DEBUG__(DEBUG_U_TEST, a)
+#  define DEBUG_H(a) DEBUG__(DEBUG_H_TEST, a)
+#  define DEBUG_X(a) DEBUG__(DEBUG_X_TEST, a)
+#  define DEBUG_D(a) DEBUG__(DEBUG_D_TEST, a)
+#  define DEBUG_Xv(a) DEBUG__(DEBUG_Xv_TEST, a)
+#  define DEBUG_Uv(a) DEBUG__(DEBUG_Uv_TEST, a)
+#  define DEBUG_Pv(a) DEBUG__(DEBUG_Pv_TEST, a)
+#  define DEBUG_Lv(a) DEBUG__(DEBUG_Lv_TEST, a)
+
+#  define DEBUG_S(a) DEBUG__(DEBUG_S_TEST, a)
+#  define DEBUG_T(a) DEBUG__(DEBUG_T_TEST, a)
+#  define DEBUG_R(a) DEBUG__(DEBUG_R_TEST, a)
+#  define DEBUG_v(a) DEBUG__(DEBUG_v_TEST, a)
+#  define DEBUG_C(a) DEBUG__(DEBUG_C_TEST, a)
+#  define DEBUG_A(a) DEBUG__(DEBUG_A_TEST, a)
+#  define DEBUG_q(a) DEBUG__(DEBUG_q_TEST, a)
+#  define DEBUG_M(a) DEBUG__(DEBUG_M_TEST, a)
+#  define DEBUG_B(a) DEBUG__(DEBUG_B_TEST, a)
+#  define DEBUG_L(a) DEBUG__(DEBUG_L_TEST, a)
+#  define DEBUG_i(a) DEBUG__(DEBUG_i_TEST, a)
+
+#else /* DEBUGGING */
+
+#  define DEBUG_p_TEST (0)
+#  define DEBUG_s_TEST (0)
+#  define DEBUG_l_TEST (0)
+#  define DEBUG_t_TEST (0)
+#  define DEBUG_o_TEST (0)
+#  define DEBUG_c_TEST (0)
+#  define DEBUG_P_TEST (0)
+#  define DEBUG_m_TEST (0)
+#  define DEBUG_f_TEST (0)
+#  define DEBUG_r_TEST (0)
+#  define DEBUG_x_TEST (0)
+#  define DEBUG_u_TEST (0)
+#  define DEBUG_U_TEST (0)
+#  define DEBUG_H_TEST (0)
+#  define DEBUG_X_TEST (0)
+#  define DEBUG_D_TEST (0)
+#  define DEBUG_S_TEST (0)
+#  define DEBUG_T_TEST (0)
+#  define DEBUG_R_TEST (0)
+#  define DEBUG_J_TEST (0)
+#  define DEBUG_v_TEST (0)
+#  define DEBUG_C_TEST (0)
+#  define DEBUG_A_TEST (0)
+#  define DEBUG_q_TEST (0)
+#  define DEBUG_M_TEST (0)
+#  define DEBUG_B_TEST (0)
+#  define DEBUG_L_TEST (0)
+#  define DEBUG_i_TEST (0)
+#  define DEBUG_Xv_TEST (0)
+#  define DEBUG_Uv_TEST (0)
+#  define DEBUG_Pv_TEST (0)
+#  define DEBUG_Lv_TEST (0)
+
+#  define PERL_DEB(a)
+#  define PERL_DEB2(a,b)               b
+#  define PERL_DEBUG(a)
+#  define DEBUG_p(a)
+#  define DEBUG_s(a)
+#  define DEBUG_l(a)
+#  define DEBUG_t(a)
+#  define DEBUG_o(a)
+#  define DEBUG_c(a)
+#  define DEBUG_P(a)
+#  define DEBUG_m(a)
+#  define DEBUG_f(a)
+#  define DEBUG_r(a)
+#  define DEBUG_x(a)
+#  define DEBUG_u(a)
+#  define DEBUG_U(a)
+#  define DEBUG_H(a)
+#  define DEBUG_X(a)
+#  define DEBUG_D(a)
+#  define DEBUG_S(a)
+#  define DEBUG_T(a)
+#  define DEBUG_R(a)
+#  define DEBUG_v(a)
+#  define DEBUG_C(a)
+#  define DEBUG_A(a)
+#  define DEBUG_q(a)
+#  define DEBUG_M(a)
+#  define DEBUG_B(a)
+#  define DEBUG_L(a)
+#  define DEBUG_i(a)
+#  define DEBUG_Xv(a)
+#  define DEBUG_Uv(a)
+#  define DEBUG_Pv(a)
+#  define DEBUG_Lv(a)
+#endif /* DEBUGGING */
+
+
+#define DEBUG_SCOPE(where) \
+    DEBUG_l( \
+    Perl_deb(aTHX_ "%s scope %ld (savestack=%ld) at %s:%d\n",	\
+		    where, (long)PL_scopestack_ix, (long)PL_savestack_ix, \
+		    __FILE__, __LINE__));
+
+/* Keep the old croak based assert for those who want it, and as a fallback if
+   the platform is so heretically non-ANSI that it can't assert.  */
+
+#define Perl_assert(what)	PERL_DEB2( 				\
+	((what) ? ((void) 0) :						\
+	    (Perl_croak_nocontext("Assertion %s failed: file \"" __FILE__ \
+			"\", line %d", STRINGIFY(what), __LINE__),	\
+             (void) 0)), ((void)0))
+
+/* assert() gets defined if DEBUGGING (and I_ASSERT).
+ * If no DEBUGGING, the <assert.h> has not been included. */
+#ifndef assert
+#  define assert(what)	Perl_assert(what)
+#endif
+#ifdef DEBUGGING
+#  define assert_(what)	assert(what),
+#else
+#  define assert_(what)
+#endif
+
+struct ufuncs {
+    I32 (*uf_val)(pTHX_ IV, SV*);
+    I32 (*uf_set)(pTHX_ IV, SV*);
+    IV uf_index;
+};
+
+/* In pre-5.7-Perls the PERL_MAGIC_uvar magic didn't get the thread context.
+ * XS code wanting to be backward compatible can do something
+ * like the following:
+
+#ifndef PERL_MG_UFUNC
+#define PERL_MG_UFUNC(name,ix,sv) I32 name(IV ix, SV *sv)
+#endif
+
+static PERL_MG_UFUNC(foo_get, index, val)
+{
+    sv_setsv(val, ...);
+    return TRUE;
+}
+
+-- Doug MacEachern
+
+*/
+
+#ifndef PERL_MG_UFUNC
+#define PERL_MG_UFUNC(name,ix,sv) I32 name(pTHX_ IV ix, SV *sv)
+#endif
+
+/* Fix these up for __STDC__ */
+#ifndef DONT_DECLARE_STD
+char *mktemp (char*);
+#ifndef atof
+double atof (const char*);
+#endif
+#endif
+
+#ifndef STANDARD_C
+/* All of these are in stdlib.h or time.h for ANSI C */
+Time_t time();
+struct tm *gmtime(), *localtime();
+#if defined(OEMVS)
+char *(strchr)(), *(strrchr)();
+char *(strcpy)(), *(strcat)();
+#else
+char *strchr(), *strrchr();
+char *strcpy(), *strcat();
+#endif
+#endif /* ! STANDARD_C */
+
+
+#ifdef I_MATH
+#    include <math.h>
+#    ifdef __VMS
+     /* isfinite and others are here rather than in math.h as C99 stipulates */
+#        include <fp.h>
+#    endif
+#else
+START_EXTERN_C
+	    double exp (double);
+	    double log (double);
+	    double log10 (double);
+	    double sqrt (double);
+	    double frexp (double,int*);
+	    double ldexp (double,int);
+	    double modf (double,double*);
+	    double sin (double);
+	    double cos (double);
+	    double atan2 (double,double);
+	    double pow (double,double);
+END_EXTERN_C
+#endif
+
+#ifndef __cplusplus
+#  if !defined(WIN32) && !defined(VMS)
+#ifndef crypt
+char *crypt (const char*, const char*);
+#endif
+#  endif /* !WIN32 */
+#  ifndef DONT_DECLARE_STD
+#    ifndef getenv
+char *getenv (const char*);
+#    endif /* !getenv */
+#    if !defined(HAS_LSEEK_PROTO) && !defined(__hpux)
+#      ifdef _FILE_OFFSET_BITS
+#        if _FILE_OFFSET_BITS == 64
+Off_t lseek (int,Off_t,int);
+#        endif
+#      endif
+#    endif
+#  endif /* !DONT_DECLARE_STD */
+#  ifndef WIN32
+#    ifndef getlogin
+char *getlogin (void);
+#    endif
+#  endif /* !WIN32 */
+#endif /* !__cplusplus */
+
+/* Fixme on VMS.  This needs to be a run-time, not build time options */
+/* Also rename() is affected by this */
+#ifdef UNLINK_ALL_VERSIONS /* Currently only makes sense for VMS */
+#define UNLINK unlnk
+I32 unlnk (pTHX_ const char*);
+#else
+#define UNLINK PerlLIO_unlink
+#endif
+
+/* some versions of glibc are missing the setresuid() proto */
+#if defined(HAS_SETRESUID) && !defined(HAS_SETRESUID_PROTO)
+int setresuid(uid_t ruid, uid_t euid, uid_t suid);
+#endif
+/* some versions of glibc are missing the setresgid() proto */
+#if defined(HAS_SETRESGID) && !defined(HAS_SETRESGID_PROTO)
+int setresgid(gid_t rgid, gid_t egid, gid_t sgid);
+#endif
+
+#ifndef HAS_SETREUID
+#  ifdef HAS_SETRESUID
+#    define setreuid(r,e) setresuid(r,e,(Uid_t)-1)
+#    define HAS_SETREUID
+#  endif
+#endif
+#ifndef HAS_SETREGID
+#  ifdef HAS_SETRESGID
+#    define setregid(r,e) setresgid(r,e,(Gid_t)-1)
+#    define HAS_SETREGID
+#  endif
+#endif
+
+/* Sighandler_t defined in iperlsys.h */
+
+#ifdef HAS_SIGACTION
+typedef struct sigaction Sigsave_t;
+#else
+typedef Sighandler_t Sigsave_t;
+#endif
+
+#define SCAN_DEF 0
+#define SCAN_TR 1
+#define SCAN_REPL 2
+
+#ifdef DEBUGGING
+# ifndef register
+#  define register
+# endif
+# define RUNOPS_DEFAULT Perl_runops_debug
+#else
+# define RUNOPS_DEFAULT Perl_runops_standard
+#endif
+
+#if defined(USE_PERLIO)
+EXTERN_C void PerlIO_teardown(void);
+# ifdef USE_ITHREADS
+#  define PERLIO_INIT MUTEX_INIT(&PL_perlio_mutex)
+#  define PERLIO_TERM 				\
+	STMT_START {				\
+		PerlIO_teardown();		\
+		MUTEX_DESTROY(&PL_perlio_mutex);\
+	} STMT_END
+# else
+#  define PERLIO_INIT
+#  define PERLIO_TERM	PerlIO_teardown()
+# endif
+#else
+#  define PERLIO_INIT
+#  define PERLIO_TERM
+#endif
+
+#ifdef MYMALLOC
+#  ifdef MUTEX_INIT_CALLS_MALLOC
+#    define MALLOC_INIT					\
+	STMT_START {					\
+		PL_malloc_mutex = NULL;			\
+		MUTEX_INIT(&PL_malloc_mutex);		\
+	} STMT_END
+#    define MALLOC_TERM					\
+	STMT_START {					\
+		perl_mutex tmp = PL_malloc_mutex;	\
+		PL_malloc_mutex = NULL;			\
+		MUTEX_DESTROY(&tmp);			\
+	} STMT_END
+#  else
+#    define MALLOC_INIT MUTEX_INIT(&PL_malloc_mutex)
+#    define MALLOC_TERM MUTEX_DESTROY(&PL_malloc_mutex)
+#  endif
+#else
+#  define MALLOC_INIT
+#  define MALLOC_TERM
+#endif
+
+#if defined(PERL_IMPLICIT_CONTEXT)
+
+struct perl_memory_debug_header;
+struct perl_memory_debug_header {
+  tTHX	interpreter;
+#  if defined(PERL_POISON) || defined(PERL_DEBUG_READONLY_COW)
+  MEM_SIZE size;
+#  endif
+  struct perl_memory_debug_header *prev;
+  struct perl_memory_debug_header *next;
+#  ifdef PERL_DEBUG_READONLY_COW
+  bool readonly;
+#  endif
+};
+
+#elif defined(PERL_DEBUG_READONLY_COW)
+
+struct perl_memory_debug_header;
+struct perl_memory_debug_header {
+  MEM_SIZE size;
+};
+
+#endif
+
+#if defined (PERL_TRACK_MEMPOOL) || defined (PERL_DEBUG_READONLY_COW)
+
+#  define PERL_MEMORY_DEBUG_HEADER_SIZE \
+        (sizeof(struct perl_memory_debug_header) + \
+	(MEM_ALIGNBYTES - sizeof(struct perl_memory_debug_header) \
+	 %MEM_ALIGNBYTES) % MEM_ALIGNBYTES)
+
+#else
+#  define PERL_MEMORY_DEBUG_HEADER_SIZE	0
+#endif
+
+#ifdef PERL_TRACK_MEMPOOL
+# ifdef PERL_DEBUG_READONLY_COW
+#  define INIT_TRACK_MEMPOOL(header, interp)			\
+	STMT_START {						\
+		(header).interpreter = (interp);		\
+		(header).prev = (header).next = &(header);	\
+		(header).readonly = 0;				\
+	} STMT_END
+# else
+#  define INIT_TRACK_MEMPOOL(header, interp)			\
+	STMT_START {						\
+		(header).interpreter = (interp);		\
+		(header).prev = (header).next = &(header);	\
+	} STMT_END
+# endif
+# else
+#  define INIT_TRACK_MEMPOOL(header, interp)
+#endif
+
+#ifdef I_MALLOCMALLOC
+/* Needed for malloc_size(), malloc_good_size() on some systems */
+#  include <malloc/malloc.h>
+#endif
+
+#ifdef MYMALLOC
+#  define Perl_safesysmalloc_size(where)	Perl_malloced_size(where)
+#else
+#  if defined(HAS_MALLOC_SIZE) && !defined(PERL_DEBUG_READONLY_COW)
+#    ifdef PERL_TRACK_MEMPOOL
+#	define Perl_safesysmalloc_size(where)			\
+	    (malloc_size(((char *)(where)) - PERL_MEMORY_DEBUG_HEADER_SIZE) - PERL_MEMORY_DEBUG_HEADER_SIZE)
+#    else
+#	define Perl_safesysmalloc_size(where) malloc_size(where)
+#    endif
+#  endif
+#  ifdef HAS_MALLOC_GOOD_SIZE
+#    ifdef PERL_TRACK_MEMPOOL
+#	define Perl_malloc_good_size(how_much)			\
+	    (malloc_good_size((how_much) + PERL_MEMORY_DEBUG_HEADER_SIZE) - PERL_MEMORY_DEBUG_HEADER_SIZE)
+#    else
+#	define Perl_malloc_good_size(how_much) malloc_good_size(how_much)
+#    endif
+#  else
+/* Having this as the identity operation makes some code simpler.  */
+#	define Perl_malloc_good_size(how_much)	(how_much)
+#  endif
+#endif
+
+typedef int (*runops_proc_t)(pTHX);
+typedef void (*share_proc_t) (pTHX_ SV *sv);
+typedef int  (*thrhook_proc_t) (pTHX);
+typedef OP* (*PPADDR_t[]) (pTHX);
+typedef bool (*destroyable_proc_t) (pTHX_ SV *sv);
+typedef void (*despatch_signals_proc_t) (pTHX);
+
+#if defined(__DYNAMIC__) && defined(PERL_DARWIN) && defined(PERL_CORE)
+#  include <crt_externs.h>	/* for the env array */
+#  define environ (*_NSGetEnviron())
+#else
+   /* VMS and some other platforms don't use the environ array */
+#  ifdef USE_ENVIRON_ARRAY
+#    if !defined(DONT_DECLARE_STD) || \
+        (defined(__svr4__) && defined(__GNUC__) && defined(__sun)) || \
+        defined(__sgi)
+extern char **	environ;	/* environment variables supplied via exec */
+#    endif
+#  endif
+#endif
+
+#define PERL_PATCHLEVEL_H_IMPLICIT
+#include "patchlevel.h"
+#undef PERL_PATCHLEVEL_H_IMPLICIT
+
+#define PERL_VERSION_STRING	STRINGIFY(PERL_REVISION) "." \
+				STRINGIFY(PERL_VERSION) "." \
+				STRINGIFY(PERL_SUBVERSION)
+
+#define PERL_API_VERSION_STRING	STRINGIFY(PERL_API_REVISION) "." \
+				STRINGIFY(PERL_API_VERSION) "." \
+				STRINGIFY(PERL_API_SUBVERSION)
+
+START_EXTERN_C
+
+/* handy constants */
+EXTCONST char PL_warn_uninit[]
+  INIT("Use of uninitialized value%s%s%s");
+EXTCONST char PL_warn_uninit_sv[]
+  INIT("Use of uninitialized value%" SVf "%s%s");
+EXTCONST char PL_warn_nosemi[]
+  INIT("Semicolon seems to be missing");
+EXTCONST char PL_warn_reserved[]
+  INIT("Unquoted string \"%s\" may clash with future reserved word");
+EXTCONST char PL_warn_nl[]
+  INIT("Unsuccessful %s on filename containing newline");
+EXTCONST char PL_no_wrongref[]
+  INIT("Can't use %s ref as %s ref");
+/* The core no longer needs this here. If you require the string constant,
+   please inline a copy into your own code.  */
+EXTCONST char PL_no_symref[] __attribute__deprecated__
+  INIT("Can't use string (\"%.32s\") as %s ref while \"strict refs\" in use");
+EXTCONST char PL_no_symref_sv[]
+  INIT("Can't use string (\"%" SVf32 "\"%s) as %s ref while \"strict refs\" in use");
+
+EXTCONST char PL_no_usym[]
+  INIT("Can't use an undefined value as %s reference");
+EXTCONST char PL_no_aelem[]
+  INIT("Modification of non-creatable array value attempted, subscript %d");
+EXTCONST char PL_no_helem_sv[]
+  INIT("Modification of non-creatable hash value attempted, subscript \"%" SVf "\"");
+EXTCONST char PL_no_modify[]
+  INIT("Modification of a read-only value attempted");
+EXTCONST char PL_no_mem[sizeof("Out of memory!\n")]
+  INIT("Out of memory!\n");
+EXTCONST char PL_no_security[]
+  INIT("Insecure dependency in %s%s");
+EXTCONST char PL_no_sock_func[]
+  INIT("Unsupported socket function \"%s\" called");
+EXTCONST char PL_no_dir_func[]
+  INIT("Unsupported directory function \"%s\" called");
+EXTCONST char PL_no_func[]
+  INIT("The %s function is unimplemented");
+EXTCONST char PL_no_myglob[]
+  INIT("\"%s\" %se %s can't be in a package");
+EXTCONST char PL_no_localize_ref[]
+  INIT("Can't localize through a reference");
+EXTCONST char PL_memory_wrap[]
+  INIT("panic: memory wrap");
+
+EXTCONST char PL_Yes[]
+  INIT("1");
+EXTCONST char PL_No[]
+  INIT("");
+EXTCONST char PL_hexdigit[]
+  INIT("0123456789abcdef0123456789ABCDEF");
+
+/* This is constant on most architectures, a global on OS/2 */
+#ifndef OS2
+EXTCONST char PL_sh_path[]
+  INIT(SH_PATH); /* full path of shell */
+#endif
+
+#ifdef CSH
+EXTCONST char PL_cshname[]
+  INIT(CSH);
+#  define PL_cshlen	(sizeof(CSH "") - 1)
+#endif
+
+/* These are baked at compile time into any shared perl library.
+   In future releases this will allow us in main() to sanity test the
+   library we're linking against.  */
+
+EXTCONST U8 PL_revision
+  INIT(PERL_REVISION);
+EXTCONST U8 PL_version
+  INIT(PERL_VERSION);
+EXTCONST U8 PL_subversion
+  INIT(PERL_SUBVERSION);
+
+EXTCONST char PL_uuemap[65]
+  INIT("`!\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_");
+
+#ifdef DOINIT
+EXTCONST char PL_uudmap[256] =
+#  ifdef PERL_MICRO
+#    include "uuudmap.h"
+#  else
+#    include "uudmap.h"
+#  endif
+;
+EXTCONST char PL_bitcount[256] =
+#  ifdef PERL_MICRO
+#    include "ubitcount.h"
+#else
+#    include "bitcount.h"
+#  endif
+;
+EXTCONST char* const PL_sig_name[] = { SIG_NAME };
+EXTCONST int         PL_sig_num[]  = { SIG_NUM };
+#else
+EXTCONST char PL_uudmap[256];
+EXTCONST char PL_bitcount[256];
+EXTCONST char* const PL_sig_name[];
+EXTCONST int         PL_sig_num[];
+#endif
+
+/* fast conversion and case folding tables.  The folding tables complement the
+ * fold, so that 'a' maps to 'A' and 'A' maps to 'a', ignoring more complicated
+ * folds such as outside the range or to multiple characters. */
+
+#ifdef DOINIT
+#ifndef EBCDIC
+
+/* The EBCDIC fold table depends on the code page, and hence is found in
+ * utfebcdic.h */
+
+EXTCONST  unsigned char PL_fold[] = {
+	0,	1,	2,	3,	4,	5,	6,	7,
+	8,	9,	10,	11,	12,	13,	14,	15,
+	16,	17,	18,	19,	20,	21,	22,	23,
+	24,	25,	26,	27,	28,	29,	30,	31,
+	32,	33,	34,	35,	36,	37,	38,	39,
+	40,	41,	42,	43,	44,	45,	46,	47,
+	48,	49,	50,	51,	52,	53,	54,	55,
+	56,	57,	58,	59,	60,	61,	62,	63,
+	64,	'a',	'b',	'c',	'd',	'e',	'f',	'g',
+	'h',	'i',	'j',	'k',	'l',	'm',	'n',	'o',
+	'p',	'q',	'r',	's',	't',	'u',	'v',	'w',
+	'x',	'y',	'z',	91,	92,	93,	94,	95,
+	96,	'A',	'B',	'C',	'D',	'E',	'F',	'G',
+	'H',	'I',	'J',	'K',	'L',	'M',	'N',	'O',
+	'P',	'Q',	'R',	'S',	'T',	'U',	'V',	'W',
+	'X',	'Y',	'Z',	123,	124,	125,	126,	127,
+	128,	129,	130,	131,	132,	133,	134,	135,
+	136,	137,	138,	139,	140,	141,	142,	143,
+	144,	145,	146,	147,	148,	149,	150,	151,
+	152,	153,	154,	155,	156,	157,	158,	159,
+	160,	161,	162,	163,	164,	165,	166,	167,
+	168,	169,	170,	171,	172,	173,	174,	175,
+	176,	177,	178,	179,	180,	181,	182,	183,
+	184,	185,	186,	187,	188,	189,	190,	191,
+	192,	193,	194,	195,	196,	197,	198,	199,
+	200,	201,	202,	203,	204,	205,	206,	207,
+	208,	209,	210,	211,	212,	213,	214,	215,
+	216,	217,	218,	219,	220,	221,	222,	223,	
+	224,	225,	226,	227,	228,	229,	230,	231,
+	232,	233,	234,	235,	236,	237,	238,	239,
+	240,	241,	242,	243,	244,	245,	246,	247,
+	248,	249,	250,	251,	252,	253,	254,	255
+};
+EXTCONST  unsigned char PL_fold_latin1[] = {
+    /* Full latin1 complement folding, except for three problematic code points:
+     *	Micro sign (181 = 0xB5) and y with diearesis (255 = 0xFF) have their
+     *	fold complements outside the Latin1 range, so can't match something
+     *	that isn't in utf8.
+     *	German lower case sharp s (223 = 0xDF) folds to two characters, 'ss',
+     *	not one, so can't be represented in this table.
+     *
+     * All have to be specially handled */
+	0,	1,	2,	3,	4,	5,	6,	7,
+	8,	9,	10,	11,	12,	13,	14,	15,
+	16,	17,	18,	19,	20,	21,	22,	23,
+	24,	25,	26,	27,	28,	29,	30,	31,
+	32,	33,	34,	35,	36,	37,	38,	39,
+	40,	41,	42,	43,	44,	45,	46,	47,
+	48,	49,	50,	51,	52,	53,	54,	55,
+	56,	57,	58,	59,	60,	61,	62,	63,
+	64,	'a',	'b',	'c',	'd',	'e',	'f',	'g',
+	'h',	'i',	'j',	'k',	'l',	'm',	'n',	'o',
+	'p',	'q',	'r',	's',	't',	'u',	'v',	'w',
+	'x',	'y',	'z',	91,	92,	93,	94,	95,
+	96,	'A',	'B',	'C',	'D',	'E',	'F',	'G',
+	'H',	'I',	'J',	'K',	'L',	'M',	'N',	'O',
+	'P',	'Q',	'R',	'S',	'T',	'U',	'V',	'W',
+	'X',	'Y',	'Z',	123,	124,	125,	126,	127,
+	128,	129,	130,	131,	132,	133,	134,	135,
+	136,	137,	138,	139,	140,	141,	142,	143,
+	144,	145,	146,	147,	148,	149,	150,	151,
+	152,	153,	154,	155,	156,	157,	158,	159,
+	160,	161,	162,	163,	164,	165,	166,	167,
+	168,	169,	170,	171,	172,	173,	174,	175,
+	176,	177,	178,	179,	180,	181 /*micro */,	182,	183,
+	184,	185,	186,	187,	188,	189,	190,	191,
+	192+32,	193+32,	194+32,	195+32,	196+32,	197+32,	198+32,	199+32,
+	200+32,	201+32,	202+32,	203+32,	204+32,	205+32,	206+32,	207+32,
+	208+32,	209+32,	210+32,	211+32,	212+32,	213+32,	214+32,	215,
+	216+32,	217+32,	218+32,	219+32,	220+32,	221+32,	222+32,	223 /* ss */,
+	224-32,	225-32,	226-32,	227-32,	228-32,	229-32,	230-32,	231-32,
+	232-32,	233-32,	234-32,	235-32,	236-32,	237-32,	238-32,	239-32,
+	240-32,	241-32,	242-32,	243-32,	244-32,	245-32,	246-32,	247,
+	248-32,	249-32,	250-32,	251-32,	252-32,	253-32,	254-32,
+	255 /* y with diaeresis */
+};
+
+/* If these tables are accessed through ebcdic, the access will be converted to
+ * latin1 first */
+EXTCONST  unsigned char PL_latin1_lc[] = {  /* lowercasing */
+	0,	1,	2,	3,	4,	5,	6,	7,
+	8,	9,	10,	11,	12,	13,	14,	15,
+	16,	17,	18,	19,	20,	21,	22,	23,
+	24,	25,	26,	27,	28,	29,	30,	31,
+	32,	33,	34,	35,	36,	37,	38,	39,
+	40,	41,	42,	43,	44,	45,	46,	47,
+	48,	49,	50,	51,	52,	53,	54,	55,
+	56,	57,	58,	59,	60,	61,	62,	63,
+	64,	'a',	'b',	'c',	'd',	'e',	'f',	'g',
+	'h',	'i',	'j',	'k',	'l',	'm',	'n',	'o',
+	'p',	'q',	'r',	's',	't',	'u',	'v',	'w',
+	'x',	'y',	'z',	91,	92,	93,	94,	95,
+	96,	97,	98,	99,	100,	101,	102,	103,
+	104,	105,	106,	107,	108,	109,	110,	111,
+	112,	113,	114,	115,	116,	117,	118,	119,
+	120,	121,	122,	123,	124,	125,	126,	127,
+	128,	129,	130,	131,	132,	133,	134,	135,
+	136,	137,	138,	139,	140,	141,	142,	143,
+	144,	145,	146,	147,	148,	149,	150,	151,
+	152,	153,	154,	155,	156,	157,	158,	159,
+	160,	161,	162,	163,	164,	165,	166,	167,
+	168,	169,	170,	171,	172,	173,	174,	175,
+	176,	177,	178,	179,	180,	181,	182,	183,
+	184,	185,	186,	187,	188,	189,	190,	191,
+	192+32,	193+32,	194+32,	195+32,	196+32,	197+32,	198+32,	199+32,
+	200+32,	201+32,	202+32,	203+32,	204+32,	205+32,	206+32,	207+32,
+	208+32,	209+32,	210+32,	211+32,	212+32,	213+32,	214+32,	215,
+	216+32,	217+32,	218+32,	219+32,	220+32,	221+32,	222+32,	223,	
+	224,	225,	226,	227,	228,	229,	230,	231,
+	232,	233,	234,	235,	236,	237,	238,	239,
+	240,	241,	242,	243,	244,	245,	246,	247,
+	248,	249,	250,	251,	252,	253,	254,	255
+};
+
+/* upper and title case of latin1 characters, modified so that the three tricky
+ * ones are mapped to 255 (which is one of the three) */
+EXTCONST  unsigned char PL_mod_latin1_uc[] = {
+	0,	1,	2,	3,	4,	5,	6,	7,
+	8,	9,	10,	11,	12,	13,	14,	15,
+	16,	17,	18,	19,	20,	21,	22,	23,
+	24,	25,	26,	27,	28,	29,	30,	31,
+	32,	33,	34,	35,	36,	37,	38,	39,
+	40,	41,	42,	43,	44,	45,	46,	47,
+	48,	49,	50,	51,	52,	53,	54,	55,
+	56,	57,	58,	59,	60,	61,	62,	63,
+	64,	65,	66,	67,	68,	69,	70,	71,
+	72,	73,	74,	75,	76,	77,	78,	79,
+	80,	81,	82,	83,	84,	85,	86,	87,
+	88,	89,	90,	91,	92,	93,	94,	95,
+	96,	'A',	'B',	'C',	'D',	'E',	'F',	'G',
+	'H',	'I',	'J',	'K',	'L',	'M',	'N',	'O',
+	'P',	'Q',	'R',	'S',	'T',	'U',	'V',	'W',
+	'X',	'Y',	'Z',	123,	124,	125,	126,	127,
+	128,	129,	130,	131,	132,	133,	134,	135,
+	136,	137,	138,	139,	140,	141,	142,	143,
+	144,	145,	146,	147,	148,	149,	150,	151,
+	152,	153,	154,	155,	156,	157,	158,	159,
+	160,	161,	162,	163,	164,	165,	166,	167,
+	168,	169,	170,	171,	172,	173,	174,	175,
+	176,	177,	178,	179,	180,	255 /*micro*/,	182,	183,
+	184,	185,	186,	187,	188,	189,	190,	191,
+	192,	193,	194,	195,	196,	197,	198,	199,
+	200,	201,	202,	203,	204,	205,	206,	207,
+	208,	209,	210,	211,	212,	213,	214,	215,
+	216,	217,	218,	219,	220,	221,	222,
+#if    UNICODE_MAJOR_VERSION > 2                                        \
+   || (UNICODE_MAJOR_VERSION == 2 && UNICODE_DOT_VERSION >= 1		\
+                                  && UNICODE_DOT_DOT_VERSION >= 8)
+	                                                        255 /*sharp s*/,
+#else   /* uc() is itself in early unicode */
+	                                                        223,
+#endif
+	224-32,	225-32,	226-32,	227-32,	228-32,	229-32,	230-32,	231-32,
+	232-32,	233-32,	234-32,	235-32,	236-32,	237-32,	238-32,	239-32,
+	240-32,	241-32,	242-32,	243-32,	244-32,	245-32,	246-32,	247,
+	248-32,	249-32,	250-32,	251-32,	252-32,	253-32,	254-32,	255
+};
+#endif  /* !EBCDIC, but still in DOINIT */
+#else	/* ! DOINIT */
+#   ifndef EBCDIC
+EXTCONST unsigned char PL_fold[];
+EXTCONST unsigned char PL_fold_latin1[];
+EXTCONST unsigned char PL_mod_latin1_uc[];
+EXTCONST unsigned char PL_latin1_lc[];
+#   endif
+#endif
+
+#ifndef PERL_GLOBAL_STRUCT /* or perlvars.h */
+#ifdef DOINIT
+EXT unsigned char PL_fold_locale[] = { /* Unfortunately not EXTCONST. */
+	0,	1,	2,	3,	4,	5,	6,	7,
+	8,	9,	10,	11,	12,	13,	14,	15,
+	16,	17,	18,	19,	20,	21,	22,	23,
+	24,	25,	26,	27,	28,	29,	30,	31,
+	32,	33,	34,	35,	36,	37,	38,	39,
+	40,	41,	42,	43,	44,	45,	46,	47,
+	48,	49,	50,	51,	52,	53,	54,	55,
+	56,	57,	58,	59,	60,	61,	62,	63,
+	64,	'a',	'b',	'c',	'd',	'e',	'f',	'g',
+	'h',	'i',	'j',	'k',	'l',	'm',	'n',	'o',
+	'p',	'q',	'r',	's',	't',	'u',	'v',	'w',
+	'x',	'y',	'z',	91,	92,	93,	94,	95,
+	96,	'A',	'B',	'C',	'D',	'E',	'F',	'G',
+	'H',	'I',	'J',	'K',	'L',	'M',	'N',	'O',
+	'P',	'Q',	'R',	'S',	'T',	'U',	'V',	'W',
+	'X',	'Y',	'Z',	123,	124,	125,	126,	127,
+	128,	129,	130,	131,	132,	133,	134,	135,
+	136,	137,	138,	139,	140,	141,	142,	143,
+	144,	145,	146,	147,	148,	149,	150,	151,
+	152,	153,	154,	155,	156,	157,	158,	159,
+	160,	161,	162,	163,	164,	165,	166,	167,
+	168,	169,	170,	171,	172,	173,	174,	175,
+	176,	177,	178,	179,	180,	181,	182,	183,
+	184,	185,	186,	187,	188,	189,	190,	191,
+	192,	193,	194,	195,	196,	197,	198,	199,
+	200,	201,	202,	203,	204,	205,	206,	207,
+	208,	209,	210,	211,	212,	213,	214,	215,
+	216,	217,	218,	219,	220,	221,	222,	223,	
+	224,	225,	226,	227,	228,	229,	230,	231,
+	232,	233,	234,	235,	236,	237,	238,	239,
+	240,	241,	242,	243,	244,	245,	246,	247,
+	248,	249,	250,	251,	252,	253,	254,	255
+};
+#else
+EXT unsigned char PL_fold_locale[]; /* Unfortunately not EXTCONST. */
+#endif
+#endif /* !PERL_GLOBAL_STRUCT */
+
+#ifdef DOINIT
+#ifdef EBCDIC
+EXTCONST unsigned char PL_freq[] = {/* EBCDIC frequencies for mixed English/C */
+    1,      2,      84,     151,    154,    155,    156,    157,
+    165,    246,    250,    3,      158,    7,      18,     29,
+    40,     51,     62,     73,     85,     96,     107,    118,
+    129,    140,    147,    148,    149,    150,    152,    153,
+    255,      6,      8,      9,     10,     11,     12,     13,
+     14,     15,     24,     25,     26,     27,     28,    226,
+     29,     30,     31,     32,     33,     43,     44,     45,
+     46,     47,     48,     49,     50,     76,     77,     78,
+     79,     80,     81,     82,     83,     84,     85,     86,
+     87,     94,     95,    234,    181,    233,    187,    190,
+    180,     96,     97,     98,     99,    100,    101,    102,
+    104,    112,    182,    174,    236,    232,    229,    103,
+    228,    226,    114,    115,    116,    117,    118,    119,
+    120,    121,    122,    235,    176,    230,    194,    162,
+    130,    131,    132,    133,    134,    135,    136,    137,
+    138,    139,    201,    205,    163,    217,    220,    224,
+    5,      248,    227,    244,    242,    255,    241,    231,
+    240,    253,    16,     197,    19,     20,     21,     187,
+    23,     169,    210,    245,    237,    249,    247,    239,
+    168,    252,    34,     196,    36,     37,     38,     39,
+    41,     42,     251,    254,    238,    223,    221,    213,
+    225,    177,    52,     53,     54,     55,     56,     57,
+    58,     59,     60,     61,     63,     64,     65,     66,
+    67,     68,     69,     70,     71,     72,     74,     75,
+    205,    208,    186,    202,    200,    218,    198,    179,
+    178,    214,    88,     89,     90,     91,     92,     93,
+    217,    166,    170,    207,    199,    209,    206,    204,
+    160,    212,    105,    106,    108,    109,    110,    111,
+    203,    113,    216,    215,    192,    175,    193,    243,
+    172,    161,    123,    124,    125,    126,    127,    128,
+    222,    219,    211,    195,    188,    193,    185,    184,
+    191,    183,    141,    142,    143,    144,    145,    146
+};
+#else  /* ascii rather than ebcdic */
+EXTCONST unsigned char PL_freq[] = {	/* letter frequencies for mixed English/C */
+	1,	2,	84,	151,	154,	155,	156,	157,
+	165,	246,	250,	3,	158,	7,	18,	29,
+	40,	51,	62,	73,	85,	96,	107,	118,
+	129,	140,	147,	148,	149,	150,	152,	153,
+	255,	182,	224,	205,	174,	176,	180,	217,
+	233,	232,	236,	187,	235,	228,	234,	226,
+	222,	219,	211,	195,	188,	193,	185,	184,
+	191,	183,	201,	229,	181,	220,	194,	162,
+	163,	208,	186,	202,	200,	218,	198,	179,
+	178,	214,	166,	170,	207,	199,	209,	206,
+	204,	160,	212,	216,	215,	192,	175,	173,
+	243,	172,	161,	190,	203,	189,	164,	230,
+	167,	248,	227,	244,	242,	255,	241,	231,
+	240,	253,	169,	210,	245,	237,	249,	247,
+	239,	168,	252,	251,	254,	238,	223,	221,
+	213,	225,	177,	197,	171,	196,	159,	4,
+	5,	6,	8,	9,	10,	11,	12,	13,
+	14,	15,	16,	17,	19,	20,	21,	22,
+	23,	24,	25,	26,	27,	28,	30,	31,
+	32,	33,	34,	35,	36,	37,	38,	39,
+	41,	42,	43,	44,	45,	46,	47,	48,
+	49,	50,	52,	53,	54,	55,	56,	57,
+	58,	59,	60,	61,	63,	64,	65,	66,
+	67,	68,	69,	70,	71,	72,	74,	75,
+	76,	77,	78,	79,	80,	81,	82,	83,
+	86,	87,	88,	89,	90,	91,	92,	93,
+	94,	95,	97,	98,	99,	100,	101,	102,
+	103,	104,	105,	106,	108,	109,	110,	111,
+	112,	113,	114,	115,	116,	117,	119,	120,
+	121,	122,	123,	124,	125,	126,	127,	128,
+	130,	131,	132,	133,	134,	135,	136,	137,
+	138,	139,	141,	142,	143,	144,	145,	146
+};
+#endif
+#else
+EXTCONST unsigned char PL_freq[];
+#endif
+
+/* Although only used for debugging, these constants must be available in
+ * non-debugging builds too, since they're used in ext/re/re_exec.c,
+ * which has DEBUGGING enabled always */
+#ifdef DOINIT
+EXTCONST char* const PL_block_type[] = {
+	"NULL",
+	"WHEN",
+	"BLOCK",
+	"GIVEN",
+	"LOOP_ARY",
+	"LOOP_LAZYSV",
+	"LOOP_LAZYIV",
+	"LOOP_LIST",
+	"LOOP_PLAIN",
+	"SUB",
+	"FORMAT",
+	"EVAL",
+	"SUBST"
+};
+#else
+EXTCONST char* PL_block_type[];
+#endif
+
+/* These are all the compile time options that affect binary compatibility.
+   Other compile time options that are binary compatible are in perl.c
+   Both are combined for the output of perl -V
+   However, this string will be embedded in any shared perl library, which will
+   allow us add a comparison check in perlmain.c in the near future.  */
+#ifdef DOINIT
+EXTCONST char PL_bincompat_options[] =
+#  ifdef DEBUG_LEAKING_SCALARS
+			     " DEBUG_LEAKING_SCALARS"
+#  endif
+#  ifdef DEBUG_LEAKING_SCALARS_FORK_DUMP
+			     " DEBUG_LEAKING_SCALARS_FORK_DUMP"
+#  endif
+#  ifdef FCRYPT
+			     " FCRYPT"
+#  endif
+#  ifdef HAS_TIMES
+			     " HAS_TIMES"
+#  endif
+#  ifdef HAVE_INTERP_INTERN
+			     " HAVE_INTERP_INTERN"
+#  endif
+#  ifdef MULTIPLICITY
+			     " MULTIPLICITY"
+#  endif
+#  ifdef MYMALLOC
+			     " MYMALLOC"
+#  endif
+#  ifdef PERLIO_LAYERS
+			     " PERLIO_LAYERS"
+#  endif
+#  ifdef PERL_DEBUG_READONLY_COW
+			     " PERL_DEBUG_READONLY_COW"
+#  endif
+#  ifdef PERL_DEBUG_READONLY_OPS
+			     " PERL_DEBUG_READONLY_OPS"
+#  endif
+#  ifdef PERL_GLOBAL_STRUCT
+			     " PERL_GLOBAL_STRUCT"
+#  endif
+#  ifdef PERL_GLOBAL_STRUCT_PRIVATE
+			     " PERL_GLOBAL_STRUCT_PRIVATE"
+#  endif
+#  ifdef PERL_IMPLICIT_CONTEXT
+			     " PERL_IMPLICIT_CONTEXT"
+#  endif
+#  ifdef PERL_IMPLICIT_SYS
+			     " PERL_IMPLICIT_SYS"
+#  endif
+#  ifdef PERL_MICRO
+			     " PERL_MICRO"
+#  endif
+#  ifdef PERL_NEED_APPCTX
+			     " PERL_NEED_APPCTX"
+#  endif
+#  ifdef PERL_NEED_TIMESBASE
+			     " PERL_NEED_TIMESBASE"
+#  endif
+#  ifdef PERL_POISON
+			     " PERL_POISON"
+#  endif
+#  ifdef PERL_SAWAMPERSAND
+			     " PERL_SAWAMPERSAND"
+#  endif
+#  ifdef PERL_TRACK_MEMPOOL
+			     " PERL_TRACK_MEMPOOL"
+#  endif
+#  ifdef PERL_USES_PL_PIDSTATUS
+			     " PERL_USES_PL_PIDSTATUS"
+#  endif
+#  ifdef USE_64_BIT_ALL
+			     " USE_64_BIT_ALL"
+#  endif
+#  ifdef USE_64_BIT_INT
+			     " USE_64_BIT_INT"
+#  endif
+#  ifdef USE_IEEE
+			     " USE_IEEE"
+#  endif
+#  ifdef USE_ITHREADS
+			     " USE_ITHREADS"
+#  endif
+#  ifdef USE_LARGE_FILES
+			     " USE_LARGE_FILES"
+#  endif
+#  ifdef USE_LOCALE_COLLATE
+			     " USE_LOCALE_COLLATE"
+#  endif
+#  ifdef USE_LOCALE_NUMERIC
+			     " USE_LOCALE_NUMERIC"
+#  endif
+#  ifdef USE_LOCALE_TIME
+			     " USE_LOCALE_TIME"
+#  endif
+#  ifdef USE_LONG_DOUBLE
+			     " USE_LONG_DOUBLE"
+#  endif
+#  ifdef USE_PERLIO
+			     " USE_PERLIO"
+#  endif
+#  ifdef USE_QUADMATH
+			     " USE_QUADMATH"
+#  endif
+#  ifdef USE_REENTRANT_API
+			     " USE_REENTRANT_API"
+#  endif
+#  ifdef USE_SOCKS
+			     " USE_SOCKS"
+#  endif
+#  ifdef VMS_DO_SOCKETS
+			     " VMS_DO_SOCKETS"
+#  endif
+#  ifdef VMS_SHORTEN_LONG_SYMBOLS
+			     " VMS_SHORTEN_LONG_SYMBOLS"
+#  endif
+#  ifdef VMS_WE_ARE_CASE_SENSITIVE
+			     " VMS_SYMBOL_CASE_AS_IS"
+#  endif
+  "";
+#else
+EXTCONST char PL_bincompat_options[];
+#endif
+
+#ifndef PERL_SET_PHASE
+#  define PERL_SET_PHASE(new_phase) \
+    PERL_DTRACE_PROBE_PHASE(new_phase); \
+    PL_phase = new_phase;
+#endif
+
+/* The interpreter phases. If these ever change, PL_phase_names right below will
+ * need to be updated accordingly. */
+enum perl_phase {
+    PERL_PHASE_CONSTRUCT	= 0,
+    PERL_PHASE_START		= 1,
+    PERL_PHASE_CHECK		= 2,
+    PERL_PHASE_INIT		= 3,
+    PERL_PHASE_RUN		= 4,
+    PERL_PHASE_END		= 5,
+    PERL_PHASE_DESTRUCT		= 6
+};
+
+#ifdef DOINIT
+EXTCONST char *const PL_phase_names[] = {
+    "CONSTRUCT",
+    "START",
+    "CHECK",
+    "INIT",
+    "RUN",
+    "END",
+    "DESTRUCT"
+};
+#else
+EXTCONST char *const PL_phase_names[];
+#endif
+
+#ifndef PERL_CORE
+/* Do not use this macro. It only exists for extensions that rely on PL_dirty
+ * instead of using the newer PL_phase, which provides everything PL_dirty
+ * provided, and more. */
+#  define PL_dirty cBOOL(PL_phase == PERL_PHASE_DESTRUCT)
+
+#  define PL_amagic_generation PL_na
+#endif /* !PERL_CORE */
+
+#define PL_hints PL_compiling.cop_hints
+
+END_EXTERN_C
+
+/*****************************************************************************/
+/* This lexer/parser stuff is currently global since yacc is hard to reenter */
+/*****************************************************************************/
+/* XXX This needs to be revisited, since BEGIN makes yacc re-enter... */
+
+#ifdef __Lynx__
+/* LynxOS defines these in scsi.h which is included via ioctl.h */
+#ifdef FORMAT
+#undef FORMAT
+#endif
+#ifdef SPACE
+#undef SPACE
+#endif
+#endif
+
+#define LEX_NOTPARSING		11	/* borrowed from toke.c */
+
+typedef enum {
+    XOPERATOR,
+    XTERM,
+    XREF,
+    XSTATE,
+    XBLOCK,
+    XATTRBLOCK,
+    XATTRTERM,
+    XTERMBLOCK,
+    XBLOCKTERM,
+    XPOSTDEREF,
+    XTERMORDORDOR /* evil hack */
+    /* update exp_name[] in toke.c if adding to this enum */
+} expectation;
+
+/* Hints are now stored in a dedicated U32, so the bottom 8 bits are no longer
+   special and there is no need for HINT_PRIVATE_MASK for COPs
+   However, bitops store HINT_INTEGER in their op_private.
+
+    NOTE: The typical module using these has the bit value hard-coded, so don't
+    blindly change the values of these.
+
+   If we run out of bits, the 2 locale ones could be combined.  The PARTIAL one
+   is for "use locale 'FOO'" which excludes some categories.  It requires going
+   to %^H to find out which are in and which are out.  This could be extended
+   for the normal case of a plain HINT_LOCALE, so that %^H would be used for
+   any locale form. */
+#define HINT_INTEGER		0x00000001 /* integer pragma */
+#define HINT_STRICT_REFS	0x00000002 /* strict pragma */
+#define HINT_LOCALE		0x00000004 /* locale pragma */
+#define HINT_BYTES		0x00000008 /* bytes pragma */
+#define HINT_LOCALE_PARTIAL	0x00000010 /* locale, but a subset of categories */
+
+#define HINT_EXPLICIT_STRICT_REFS	0x00000020 /* strict.pm */
+#define HINT_EXPLICIT_STRICT_SUBS	0x00000040 /* strict.pm */
+#define HINT_EXPLICIT_STRICT_VARS	0x00000080 /* strict.pm */
+
+#define HINT_BLOCK_SCOPE	0x00000100
+#define HINT_STRICT_SUBS	0x00000200 /* strict pragma */
+#define HINT_STRICT_VARS	0x00000400 /* strict pragma */
+#define HINT_UNI_8_BIT		0x00000800 /* unicode_strings feature */
+
+/* The HINT_NEW_* constants are used by the overload pragma */
+#define HINT_NEW_INTEGER	0x00001000
+#define HINT_NEW_FLOAT		0x00002000
+#define HINT_NEW_BINARY		0x00004000
+#define HINT_NEW_STRING		0x00008000
+#define HINT_NEW_RE		0x00010000
+#define HINT_LOCALIZE_HH	0x00020000 /* %^H needs to be copied */
+#define HINT_LEXICAL_IO_IN	0x00040000 /* ${^OPEN} is set for input */
+#define HINT_LEXICAL_IO_OUT	0x00080000 /* ${^OPEN} is set for output */
+
+#define HINT_RE_TAINT		0x00100000 /* re pragma */
+#define HINT_RE_EVAL		0x00200000 /* re pragma */
+
+#define HINT_FILETEST_ACCESS	0x00400000 /* filetest pragma */
+#define HINT_UTF8		0x00800000 /* utf8 pragma */
+
+#define HINT_NO_AMAGIC		0x01000000 /* overloading pragma */
+
+#define HINT_RE_FLAGS		0x02000000 /* re '/xism' pragma */
+
+#define HINT_FEATURE_MASK	0x1c000000 /* 3 bits for feature bundles */
+
+				/* Note: Used for HINT_M_VMSISH_*,
+				   currently defined by vms/vmsish.h:
+				0x40000000
+				0x80000000
+				 */
+
+/* The following are stored in $^H{sort}, not in PL_hints */
+#define HINT_SORT_SORT_BITS	0x000000FF /* allow 256 different ones */
+#define HINT_SORT_QUICKSORT	0x00000001
+#define HINT_SORT_MERGESORT	0x00000002
+#define HINT_SORT_STABLE	0x00000100 /* sort styles (currently one) */
+
+/* flags for PL_sawampersand */
+
+#define SAWAMPERSAND_LEFT       1   /* saw $` */
+#define SAWAMPERSAND_MIDDLE     2   /* saw $& */
+#define SAWAMPERSAND_RIGHT      4   /* saw $' */
+
+#ifndef PERL_SAWAMPERSAND
+# define PL_sawampersand \
+	(SAWAMPERSAND_LEFT|SAWAMPERSAND_MIDDLE|SAWAMPERSAND_RIGHT)
+#endif
+
+/* Used for debugvar magic */
+#define DBVARMG_SINGLE  0
+#define DBVARMG_TRACE   1
+#define DBVARMG_SIGNAL  2
+#define DBVARMG_COUNT   3
+
+#define PL_DBsingle_iv  (PL_DBcontrol[DBVARMG_SINGLE])
+#define PL_DBtrace_iv   (PL_DBcontrol[DBVARMG_TRACE])
+#define PL_DBsignal_iv  (PL_DBcontrol[DBVARMG_SIGNAL])
+
+/* Various states of the input record separator SV (rs) */
+#define RsSNARF(sv)   (! SvOK(sv))
+#define RsSIMPLE(sv)  (SvOK(sv) && (! SvPOK(sv) || SvCUR(sv)))
+#define RsPARA(sv)    (SvPOK(sv) && ! SvCUR(sv))
+#define RsRECORD(sv)  (SvROK(sv) && (SvIV(SvRV(sv)) > 0))
+
+/* A struct for keeping various DEBUGGING related stuff,
+ * neatly packed.  Currently only scratch variables for
+ * constructing debug output are included.  Needed always,
+ * not just when DEBUGGING, though, because of the re extension. c*/
+struct perl_debug_pad {
+  SV pad[3];
+};
+
+#define PERL_DEBUG_PAD(i)	&(PL_debug_pad.pad[i])
+#define PERL_DEBUG_PAD_ZERO(i)	(SvPVX(PERL_DEBUG_PAD(i))[0] = 0, \
+	(((XPV*) SvANY(PERL_DEBUG_PAD(i)))->xpv_cur = 0), \
+	PERL_DEBUG_PAD(i))
+
+/* Enable variables which are pointers to functions */
+typedef void (*peep_t)(pTHX_ OP* o);
+typedef regexp* (*regcomp_t) (pTHX_ char* exp, char* xend, PMOP* pm);
+typedef I32     (*regexec_t) (pTHX_ regexp* prog, char* stringarg,
+				      char* strend, char* strbeg, I32 minend,
+				      SV* screamer, void* data, U32 flags);
+typedef char*   (*re_intuit_start_t) (pTHX_ regexp *prog, SV *sv,
+						char *strpos, char *strend,
+						U32 flags,
+						re_scream_pos_data *d);
+typedef SV*	(*re_intuit_string_t) (pTHX_ regexp *prog);
+typedef void	(*regfree_t) (pTHX_ struct regexp* r);
+typedef regexp* (*regdupe_t) (pTHX_ const regexp* r, CLONE_PARAMS *param);
+typedef I32     (*re_fold_t)(const char *, char const *, I32);
+
+typedef void (*DESTRUCTORFUNC_NOCONTEXT_t) (void*);
+typedef void (*DESTRUCTORFUNC_t) (pTHX_ void*);
+typedef void (*SVFUNC_t) (pTHX_ SV* const);
+typedef I32  (*SVCOMPARE_t) (pTHX_ SV* const, SV* const);
+typedef void (*XSINIT_t) (pTHX);
+typedef void (*ATEXIT_t) (pTHX_ void*);
+typedef void (*XSUBADDR_t) (pTHX_ CV *);
+
+typedef OP* (*Perl_ppaddr_t)(pTHX);
+typedef OP* (*Perl_check_t) (pTHX_ OP*);
+typedef void(*Perl_ophook_t)(pTHX_ OP*);
+typedef int (*Perl_keyword_plugin_t)(pTHX_ char*, STRLEN, OP**);
+typedef void(*Perl_cpeep_t)(pTHX_ OP *, OP *);
+
+typedef void(*globhook_t)(pTHX);
+
+#define KEYWORD_PLUGIN_DECLINE 0
+#define KEYWORD_PLUGIN_STMT    1
+#define KEYWORD_PLUGIN_EXPR    2
+
+/* Interpreter exitlist entry */
+typedef struct exitlistentry {
+    void (*fn) (pTHX_ void*);
+    void *ptr;
+} PerlExitListEntry;
+
+/* if you only have signal() and it resets on each signal, FAKE_PERSISTENT_SIGNAL_HANDLERS fixes */
+/* These have to be before perlvars.h */
+#if !defined(HAS_SIGACTION) && defined(VMS)
+#  define  FAKE_PERSISTENT_SIGNAL_HANDLERS
+#endif
+/* if we're doing kill() with sys$sigprc on VMS, FAKE_DEFAULT_SIGNAL_HANDLERS */
+#if defined(KILL_BY_SIGPRC)
+#  define  FAKE_DEFAULT_SIGNAL_HANDLERS
+#endif
+
+#if !defined(MULTIPLICITY)
+
+struct interpreter {
+    char broiled;
+};
+
+#else
+
+/* If we have multiple interpreters define a struct
+   holding variables which must be per-interpreter
+   If we don't have threads anything that would have
+   be per-thread is per-interpreter.
+*/
+
+/* Set up PERLVAR macros for populating structs */
+#  define PERLVAR(prefix,var,type) type prefix##var;
+
+/* 'var' is an array of length 'n' */
+#  define PERLVARA(prefix,var,n,type) type prefix##var[n];
+
+/* initialize 'var' to init' */
+#  define PERLVARI(prefix,var,type,init) type prefix##var;
+
+/* like PERLVARI, but make 'var' a const */
+#  define PERLVARIC(prefix,var,type,init) type prefix##var;
+
+struct interpreter {
+#  include "intrpvar.h"
+};
+
+EXTCONST U16 PL_interp_size
+  INIT(sizeof(struct interpreter));
+
+#  define PERL_INTERPRETER_SIZE_UPTO_MEMBER(member)			\
+    STRUCT_OFFSET(struct interpreter, member) +				\
+    sizeof(((struct interpreter*)0)->member)
+
+/* This will be useful for subsequent releases, because this has to be the
+   same in your libperl as in main(), else you have a mismatch and must abort.
+*/
+EXTCONST U16 PL_interp_size_5_18_0
+  INIT(PERL_INTERPRETER_SIZE_UPTO_MEMBER(PERL_LAST_5_18_0_INTERP_MEMBER));
+
+
+#  ifdef PERL_GLOBAL_STRUCT
+/* MULTIPLICITY is automatically defined when PERL_GLOBAL_STRUCT is defined,
+   hence it's safe and sane to nest this within #ifdef MULTIPLICITY  */
+
+struct perl_vars {
+#    include "perlvars.h"
+};
+
+EXTCONST U16 PL_global_struct_size
+  INIT(sizeof(struct perl_vars));
+
+#    ifdef PERL_CORE
+#      ifndef PERL_GLOBAL_STRUCT_PRIVATE
+EXT struct perl_vars PL_Vars;
+EXT struct perl_vars *PL_VarsPtr INIT(&PL_Vars);
+#        undef PERL_GET_VARS
+#        define PERL_GET_VARS() PL_VarsPtr
+#      endif /* !PERL_GLOBAL_STRUCT_PRIVATE */
+#    else /* PERL_CORE */
+#      if !defined(__GNUC__) || !defined(WIN32)
+EXT
+#      endif /* WIN32 */
+struct perl_vars *PL_VarsPtr;
+#      define PL_Vars (*((PL_VarsPtr) \
+		       ? PL_VarsPtr : (PL_VarsPtr = Perl_GetVars(aTHX))))
+#    endif /* PERL_CORE */
+#  endif /* PERL_GLOBAL_STRUCT */
+
+/* Done with PERLVAR macros for now ... */
+#  undef PERLVAR
+#  undef PERLVARA
+#  undef PERLVARI
+#  undef PERLVARIC
+
+#endif /* MULTIPLICITY */
+
+struct tempsym; /* defined in pp_pack.c */
+
+#include "thread.h"
+#include "pp.h"
+
+#undef PERL_CKDEF
+#undef PERL_PPDEF
+#define PERL_CKDEF(s)	PERL_CALLCONV OP *s (pTHX_ OP *o);
+#define PERL_PPDEF(s)	PERL_CALLCONV OP *s (pTHX);
+
+#ifdef MYMALLOC
+#  include "malloc_ctl.h"
+#endif
+
+/*
+ * This provides a layer of functions and macros to ensure extensions will
+ * get to use the same RTL functions as the core.
+ */
+#if defined(WIN32)
+#  include "win32iop.h"
+#endif
+
+
+#include "proto.h"
+
+/* this has structure inits, so it cannot be included before here */
+#include "opcode.h"
+
+/* The following must follow proto.h as #defines mess up syntax */
+
+#if !defined(PERL_FOR_X2P)
+#  include "embedvar.h"
+#endif
+
+/* Now include all the 'global' variables
+ * If we don't have threads or multiple interpreters
+ * these include variables that would have been their struct-s
+ */
+
+#define PERLVAR(prefix,var,type) EXT type PL_##var;
+#define PERLVARA(prefix,var,n,type) EXT type PL_##var[n];
+#define PERLVARI(prefix,var,type,init) EXT type  PL_##var INIT(init);
+#define PERLVARIC(prefix,var,type,init) EXTCONST type PL_##var INIT(init);
+
+#if !defined(MULTIPLICITY)
+START_EXTERN_C
+#  include "intrpvar.h"
+END_EXTERN_C
+#endif
+
+#ifdef PERL_CORE
+/* All core uses now exterminated. Ensure no zombies can return:  */
+#  undef PL_na
+#endif
+
+/* Now all the config stuff is setup we can include embed.h
+   In particular, need the relevant *ish file included already, as it may
+   define HAVE_INTERP_INTERN  */
+#include "embed.h"
+
+#ifndef PERL_GLOBAL_STRUCT
+START_EXTERN_C
+
+#  include "perlvars.h"
+
+END_EXTERN_C
+#endif
+
+#undef PERLVAR
+#undef PERLVARA
+#undef PERLVARI
+#undef PERLVARIC
+
+#if !defined(MULTIPLICITY)
+/* Set up PERLVAR macros for populating structs */
+#  define PERLVAR(prefix,var,type) type prefix##var;
+/* 'var' is an array of length 'n' */
+#  define PERLVARA(prefix,var,n,type) type prefix##var[n];
+/* initialize 'var' to init' */
+#  define PERLVARI(prefix,var,type,init) type prefix##var;
+/* like PERLVARI, but make 'var' a const */
+#  define PERLVARIC(prefix,var,type,init) type prefix##var;
+
+/* this is never instantiated, is it just used for sizeof(struct PerlHandShakeInterpreter) */
+struct PerlHandShakeInterpreter {
+#  include "intrpvar.h"
+};
+#  undef PERLVAR
+#  undef PERLVARA
+#  undef PERLVARI
+#  undef PERLVARIC
+#endif
+
+START_EXTERN_C
+
+/* dummy variables that hold pointers to both runops functions, thus forcing
+ * them *both* to get linked in (useful for Peek.xs, debugging etc) */
+
+EXTCONST runops_proc_t PL_runops_std
+  INIT(Perl_runops_standard);
+EXTCONST runops_proc_t PL_runops_dbg
+  INIT(Perl_runops_debug);
+
+#define EXT_MGVTBL EXTCONST MGVTBL
+
+#define PERL_MAGIC_READONLY_ACCEPTABLE 0x40
+#define PERL_MAGIC_VALUE_MAGIC 0x80
+#define PERL_MAGIC_VTABLE_MASK 0x3F
+#define PERL_MAGIC_TYPE_READONLY_ACCEPTABLE(t) \
+    (PL_magic_data[(U8)(t)] & PERL_MAGIC_READONLY_ACCEPTABLE)
+#define PERL_MAGIC_TYPE_IS_VALUE_MAGIC(t) \
+    (PL_magic_data[(U8)(t)] & PERL_MAGIC_VALUE_MAGIC)
+
+#include "mg_vtable.h"
+
+#ifdef DOINIT
+EXTCONST U8 PL_magic_data[256] =
+#  ifdef PERL_MICRO
+#    include "umg_data.h"
+#  else
+#    include "mg_data.h"
+#  endif
+;
+#else
+EXTCONST U8 PL_magic_data[256];
+#endif
+
+#ifdef DOINIT
+		        /* NL IV NV PV INV PI PN MG RX GV LV AV HV CV FM IO */
+EXTCONST bool
+PL_valid_types_IVX[]    = { 0, 1, 0, 0, 0, 1, 1, 1, 0, 1, 1, 0, 0, 0, 0, 0 };
+EXTCONST bool
+PL_valid_types_NVX[]    = { 0, 0, 1, 0, 0, 0, 1, 1, 0, 1, 1, 0, 0, 0, 0, 0 };
+EXTCONST bool
+PL_valid_types_PVX[]    = { 0, 0, 0, 1, 1, 1, 1, 1, 0, 1, 1, 0, 0, 1, 1, 1 };
+EXTCONST bool
+PL_valid_types_RV[]     = { 0, 1, 0, 1, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 1 };
+EXTCONST bool
+PL_valid_types_IV_set[] = { 0, 1, 0, 0, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 1, 1 };
+EXTCONST bool
+PL_valid_types_NV_set[] = { 0, 0, 1, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0 };
+
+#else
+
+EXTCONST bool PL_valid_types_IVX[];
+EXTCONST bool PL_valid_types_NVX[];
+EXTCONST bool PL_valid_types_PVX[];
+EXTCONST bool PL_valid_types_RV[];
+EXTCONST bool PL_valid_types_IV_set[];
+EXTCONST bool PL_valid_types_NV_set[];
+
+#endif
+
+/* In C99 we could use designated (named field) union initializers.
+ * In C89 we need to initialize the member declared first.
+ *
+ * With the U8_NV version you will want to have inner braces,
+ * while with the NV_U8 use just the NV.*/
+#define INFNAN_U8_NV_DECL EXTCONST union { U8 u8[NVSIZE]; NV nv; }
+#define INFNAN_NV_U8_DECL EXTCONST union { NV nv; U8 u8[NVSIZE]; }
+
+#ifdef DOINIT
+
+/* PL_inf and PL_nan initialization.
+ *
+ * For inf and nan initialization the ultimate fallback is dividing
+ * one or zero by zero: however, some compilers will warn or even fail
+ * on divide-by-zero, but hopefully something earlier will work.
+ *
+ * If you are thinking of using HUGE_VAL for infinity, or using
+ * <math.h> functions to generate NV_INF (e.g. exp(1e9), log(-1.0)),
+ * stop.  Neither will work portably: HUGE_VAL can be just DBL_MAX,
+ * and the math functions might be just generating DBL_MAX, or even zero.
+ *
+ * Also, do NOT try doing NV_NAN based on NV_INF and trying (NV_INF-NV_INF).
+ * Though logically correct, some compilers (like Visual C 2003)
+ * falsely misoptimize that to zero (x-x is always zero, right?)
+ */
+
+/* The quadmath literals are anon structs which -Wc++-compat doesn't like. */
+GCC_DIAG_IGNORE(-Wc++-compat)
+
+#  ifdef USE_QUADMATH
+/* Cannot use HUGE_VALQ for PL_inf because not a compile-time
+ * constant. */
+INFNAN_NV_U8_DECL PL_inf = { 1.0Q/0.0Q };
+#  elif NVSIZE == LONG_DOUBLESIZE && defined(LONGDBLINFBYTES)
+INFNAN_U8_NV_DECL PL_inf = { { LONGDBLINFBYTES } };
+#  elif NVSIZE == DOUBLESIZE && defined(DOUBLEINFBYTES)
+INFNAN_U8_NV_DECL PL_inf = { { DOUBLEINFBYTES } };
+#  else
+#    if NVSIZE == LONG_DOUBLESIZE && defined(USE_LONG_DOUBLE)
+#      if defined(LDBL_INFINITY)
+INFNAN_NV_U8_DECL PL_inf = { LDBL_INFINITY };
+#      elif defined(LDBL_INF)
+INFNAN_NV_U8_DECL PL_inf = { LDBL_INF };
+#      elif defined(INFINITY)
+INFNAN_NV_U8_DECL PL_inf = { (NV)INFINITY };
+#      elif defined(INF)
+INFNAN_NV_U8_DECL PL_inf = { (NV)INF };
+#      else
+INFNAN_NV_U8_DECL PL_inf = { 1.0L/0.0L }; /* keep last */
+#      endif
+#    else
+#      if defined(DBL_INFINITY)
+INFNAN_NV_U8_DECL PL_inf = { DBL_INFINITY };
+#      elif defined(DBL_INF)
+INFNAN_NV_U8_DECL PL_inf = { DBL_INF };
+#      elif defined(INFINITY) /* C99 */
+INFNAN_NV_U8_DECL PL_inf = { (NV)INFINITY };
+#      elif defined(INF)
+INFNAN_NV_U8_DECL PL_inf = { (NV)INF };
+#      else
+INFNAN_NV_U8_DECL PL_inf = { 1.0/0.0 }; /* keep last */
+#      endif
+#    endif
+#  endif
+
+#  ifdef USE_QUADMATH
+/* Cannot use nanq("0") for PL_nan because not a compile-time
+ * constant. */
+INFNAN_NV_U8_DECL PL_nan = { 0.0Q/0.0Q };
+#  elif NVSIZE == LONG_DOUBLESIZE && defined(LONGDBLNANBYTES)
+INFNAN_U8_NV_DECL PL_nan = { { LONGDBLNANBYTES } };
+#  elif NVSIZE == DOUBLESIZE && defined(DOUBLENANBYTES)
+INFNAN_U8_NV_DECL PL_nan = { { DOUBLENANBYTES } };
+#  else
+#    if NVSIZE == LONG_DOUBLESIZE && defined(USE_LONG_DOUBLE)
+#      if defined(LDBL_NAN)
+INFNAN_NV_U8_DECL PL_nan = { LDBL_NAN };
+#      elif defined(LDBL_QNAN)
+INFNAN_NV_U8_DECL PL_nan = { LDBL_QNAN };
+#      elif defined(NAN)
+INFNAN_NV_U8_DECL PL_nan = { (NV)NAN };
+#      else
+INFNAN_NV_U8_DECL PL_nan = { 0.0L/0.0L }; /* keep last */
+#      endif
+#    else
+#      if defined(DBL_NAN)
+INFNAN_NV_U8_DECL PL_nan = { DBL_NAN };
+#      elif defined(DBL_QNAN)
+INFNAN_NV_U8_DECL PL_nan = { DBL_QNAN };
+#      elif defined(NAN) /* C99 */
+INFNAN_NV_U8_DECL PL_nan = { (NV)NAN };
+#      else
+INFNAN_NV_U8_DECL PL_nan = { 0.0/0.0 }; /* keep last */
+#      endif
+#    endif
+#  endif
+
+GCC_DIAG_RESTORE
+
+#else
+
+INFNAN_NV_U8_DECL PL_inf;
+INFNAN_NV_U8_DECL PL_nan;
+
+#endif
+
+/* If you have not defined NV_INF/NV_NAN (like for example win32/win32.h),
+ * we will define NV_INF/NV_NAN as the nv part of the global const
+ * PL_inf/PL_nan.  Note, however, that the preexisting NV_INF/NV_NAN
+ * might not be a compile-time constant, in which case it cannot be
+ * used to initialize PL_inf/PL_nan above. */
+#ifndef NV_INF
+#  define NV_INF PL_inf.nv
+#endif
+#ifndef NV_NAN
+#  define NV_NAN PL_nan.nv
+#endif
+
+/* if these never got defined, they need defaults */
+#ifndef PERL_SET_CONTEXT
+#  define PERL_SET_CONTEXT(i)		PERL_SET_INTERP(i)
+#endif
+
+#ifndef PERL_GET_CONTEXT
+#  define PERL_GET_CONTEXT		PERL_GET_INTERP
+#endif
+
+#ifndef PERL_GET_THX
+#  define PERL_GET_THX			((void*)NULL)
+#endif
+
+#ifndef PERL_SET_THX
+#  define PERL_SET_THX(t)		NOOP
+#endif
+
+
+#ifndef PERL_NO_INLINE_FUNCTIONS
+/* Static inline funcs that depend on includes and declarations above.
+   Some of these reference functions in the perl object files, and some
+   compilers aren't smart enough to eliminate unused static inline
+   functions, so including this file in source code can cause link errors
+   even if the source code uses none of the functions. Hence including these
+   can be be suppressed by setting PERL_NO_INLINE_FUNCTIONS. Doing this will
+   (obviously) result in unworkable XS code, but allows simple probing code
+   to continue to work, because it permits tests to include the perl headers
+   for definitions without creating a link dependency on the perl library
+   (which may not exist yet).
+*/
+
+#  include "inline.h"
+#endif
+
+#include "overload.h"
+
+END_EXTERN_C
+
+struct am_table {
+  U8 flags;
+  U8 fallback;
+  U16 spare;
+  U32 was_ok_sub;
+  CV* table[NofAMmeth];
+};
+struct am_table_short {
+  U8 flags;
+  U8 fallback;
+  U16 spare;
+  U32 was_ok_sub;
+};
+typedef struct am_table AMT;
+typedef struct am_table_short AMTS;
+
+#define AMGfallNEVER	1
+#define AMGfallNO	2
+#define AMGfallYES	3
+
+#define AMTf_AMAGIC		1
+#define AMT_AMAGIC(amt)		((amt)->flags & AMTf_AMAGIC)
+#define AMT_AMAGIC_on(amt)	((amt)->flags |= AMTf_AMAGIC)
+#define AMT_AMAGIC_off(amt)	((amt)->flags &= ~AMTf_AMAGIC)
+
+#define StashHANDLER(stash,meth)	gv_handler((stash),CAT2(meth,_amg))
+
+/*
+ * some compilers like to redefine cos et alia as faster
+ * (and less accurate?) versions called F_cos et cetera (Quidquid
+ * latine dictum sit, altum viditur.)  This trick collides with
+ * the Perl overloading (amg).  The following #defines fool both.
+ */
+
+#ifdef _FASTMATH
+#   ifdef atan2
+#       define F_atan2_amg  atan2_amg
+#   endif
+#   ifdef cos
+#       define F_cos_amg    cos_amg
+#   endif
+#   ifdef exp
+#       define F_exp_amg    exp_amg
+#   endif
+#   ifdef log
+#       define F_log_amg    log_amg
+#   endif
+#   ifdef pow
+#       define F_pow_amg    pow_amg
+#   endif
+#   ifdef sin
+#       define F_sin_amg    sin_amg
+#   endif
+#   ifdef sqrt
+#       define F_sqrt_amg   sqrt_amg
+#   endif
+#endif /* _FASTMATH */
+
+#define PERLDB_ALL		(PERLDBf_SUB	| PERLDBf_LINE	|	\
+				 PERLDBf_NOOPT	| PERLDBf_INTER	|	\
+				 PERLDBf_SUBLINE| PERLDBf_SINGLE|	\
+				 PERLDBf_NAMEEVAL| PERLDBf_NAMEANON |   \
+				 PERLDBf_SAVESRC)
+					/* No _NONAME, _GOTO */
+#define PERLDBf_SUB		0x01	/* Debug sub enter/exit */
+#define PERLDBf_LINE		0x02	/* Keep line # */
+#define PERLDBf_NOOPT		0x04	/* Switch off optimizations */
+#define PERLDBf_INTER		0x08	/* Preserve more data for
+					   later inspections  */
+#define PERLDBf_SUBLINE		0x10	/* Keep subr source lines */
+#define PERLDBf_SINGLE		0x20	/* Start with single-step on */
+#define PERLDBf_NONAME		0x40	/* For _SUB: no name of the subr */
+#define PERLDBf_GOTO		0x80	/* Report goto: call DB::goto */
+#define PERLDBf_NAMEEVAL	0x100	/* Informative names for evals */
+#define PERLDBf_NAMEANON	0x200	/* Informative names for anon subs */
+#define PERLDBf_SAVESRC  	0x400	/* Save source lines into @{"_<$filename"} */
+#define PERLDBf_SAVESRC_NOSUBS	0x800	/* Including evals that generate no subroutines */
+#define PERLDBf_SAVESRC_INVALID	0x1000	/* Save source that did not compile */
+
+#define PERLDB_SUB		(PL_perldb & PERLDBf_SUB)
+#define PERLDB_LINE		(PL_perldb & PERLDBf_LINE)
+#define PERLDB_NOOPT		(PL_perldb & PERLDBf_NOOPT)
+#define PERLDB_INTER		(PL_perldb & PERLDBf_INTER)
+#define PERLDB_SUBLINE		(PL_perldb & PERLDBf_SUBLINE)
+#define PERLDB_SINGLE		(PL_perldb & PERLDBf_SINGLE)
+#define PERLDB_SUB_NN		(PL_perldb & PERLDBf_NONAME)
+#define PERLDB_GOTO		(PL_perldb & PERLDBf_GOTO)
+#define PERLDB_NAMEEVAL 	(PL_perldb & PERLDBf_NAMEEVAL)
+#define PERLDB_NAMEANON 	(PL_perldb & PERLDBf_NAMEANON)
+#define PERLDB_SAVESRC  	(PL_perldb & PERLDBf_SAVESRC)
+#define PERLDB_SAVESRC_NOSUBS	(PL_perldb & PERLDBf_SAVESRC_NOSUBS)
+#define PERLDB_SAVESRC_INVALID	(PL_perldb & PERLDBf_SAVESRC_INVALID)
+
+#define PERLDB_LINE_OR_SAVESRC (PL_perldb & (PERLDBf_LINE | PERLDBf_SAVESRC))
+
+#ifdef USE_LOCALE
+/* These locale things are all subject to change */
+
+#   define LOCALE_INIT   MUTEX_INIT(&PL_locale_mutex)
+#   define LOCALE_TERM   MUTEX_DESTROY(&PL_locale_mutex)
+
+#   define LOCALE_LOCK   MUTEX_LOCK(&PL_locale_mutex)
+#   define LOCALE_UNLOCK MUTEX_UNLOCK(&PL_locale_mutex)
+
+/* Returns TRUE if the plain locale pragma without a parameter is in effect
+ */
+#   define IN_LOCALE_RUNTIME	cBOOL(CopHINTS_get(PL_curcop) & HINT_LOCALE)
+
+/* Returns TRUE if either form of the locale pragma is in effect */
+#   define IN_SOME_LOCALE_FORM_RUNTIME   \
+           cBOOL(CopHINTS_get(PL_curcop) & (HINT_LOCALE|HINT_LOCALE_PARTIAL))
+
+#   define IN_LOCALE_COMPILETIME	cBOOL(PL_hints & HINT_LOCALE)
+#   define IN_SOME_LOCALE_FORM_COMPILETIME \
+                          cBOOL(PL_hints & (HINT_LOCALE|HINT_LOCALE_PARTIAL))
+
+#   define IN_LOCALE \
+	(IN_PERL_COMPILETIME ? IN_LOCALE_COMPILETIME : IN_LOCALE_RUNTIME)
+#   define IN_SOME_LOCALE_FORM \
+	(IN_PERL_COMPILETIME ? IN_SOME_LOCALE_FORM_COMPILETIME \
+	                     : IN_SOME_LOCALE_FORM_RUNTIME)
+
+#   define IN_LC_ALL_COMPILETIME   IN_LOCALE_COMPILETIME
+#   define IN_LC_ALL_RUNTIME       IN_LOCALE_RUNTIME
+
+#   define IN_LC_PARTIAL_COMPILETIME   cBOOL(PL_hints & HINT_LOCALE_PARTIAL)
+#   define IN_LC_PARTIAL_RUNTIME  \
+                        cBOOL(CopHINTS_get(PL_curcop) & HINT_LOCALE_PARTIAL)
+
+#   define IN_LC_COMPILETIME(category)                                       \
+       (IN_LC_ALL_COMPILETIME || (IN_LC_PARTIAL_COMPILETIME                  \
+                                  && _is_in_locale_category(TRUE, (category))))
+#   define IN_LC_RUNTIME(category)                                           \
+       (IN_LC_ALL_RUNTIME || (IN_LC_PARTIAL_RUNTIME                          \
+                              && _is_in_locale_category(FALSE, (category))))
+#   define IN_LC(category)  \
+                    (IN_LC_COMPILETIME(category) || IN_LC_RUNTIME(category))
+
+#   if defined (PERL_CORE) || defined (PERL_IN_XSUB_RE)
+
+        /* This internal macro should be called from places that operate under
+         * locale rules.  It there is a problem with the current locale that
+         * hasn't been raised yet, it will output a warning this time.  Because
+         * this will so rarely  be true, there is no point to optimize for
+         * time; instead it makes sense to minimize space used and do all the
+         * work in the rarely called function */
+#       ifdef USE_LOCALE_CTYPE
+#           define _CHECK_AND_WARN_PROBLEMATIC_LOCALE                         \
+                STMT_START {                                                  \
+                    if (UNLIKELY(PL_warn_locale)) {                           \
+                        _warn_problematic_locale();                           \
+                    }                                                         \
+                }  STMT_END
+#       else
+#           define _CHECK_AND_WARN_PROBLEMATIC_LOCALE
+#       endif
+
+
+    /* These two internal macros are called when a warning should be raised,
+     * and will do so if enabled.  The first takes a single code point
+     * argument; the 2nd, is a pointer to the first byte of the UTF-8 encoded
+     * string, and an end position which it won't try to read past */
+#   define _CHECK_AND_OUTPUT_WIDE_LOCALE_CP_MSG(cp)                         \
+	STMT_START {                                                        \
+            if (! PL_in_utf8_CTYPE_locale && ckWARN(WARN_LOCALE)) {         \
+                Perl_warner(aTHX_ packWARN(WARN_LOCALE),                    \
+                                        "Wide character (U+%"UVXf") in %s", \
+                                        (UV) cp, OP_DESC(PL_op));           \
+            }                                                               \
+        }  STMT_END
+
+#  define _CHECK_AND_OUTPUT_WIDE_LOCALE_UTF8_MSG(s, send)                   \
+	STMT_START { /* Check if to warn before doing the conversion work */\
+            if (! PL_in_utf8_CTYPE_locale && ckWARN(WARN_LOCALE)) {         \
+                UV cp = utf8_to_uvchr_buf((U8 *) s, (U8 *) send, NULL);     \
+                Perl_warner(aTHX_ packWARN(WARN_LOCALE),                    \
+                    "Wide character (U+%"UVXf") in %s",                     \
+                    (cp == 0)                                               \
+                     ? UNICODE_REPLACEMENT                                  \
+                     : (UV) cp,                                             \
+                    OP_DESC(PL_op));                                        \
+            }                                                               \
+        }  STMT_END
+
+#   endif   /* PERL_CORE or PERL_IN_XSUB_RE */
+
+#else   /* No locale usage */
+#   define LOCALE_INIT
+#   define LOCALE_TERM
+#   define LOCALE_LOCK
+#   define LOCALE_UNLOCK
+#   define IN_LOCALE_RUNTIME                0
+#   define IN_SOME_LOCALE_FORM_RUNTIME      0
+#   define IN_LOCALE_COMPILETIME            0
+#   define IN_SOME_LOCALE_FORM_COMPILETIME  0
+#   define IN_LOCALE                        0
+#   define IN_SOME_LOCALE_FORM              0
+#   define IN_LC_ALL_COMPILETIME            0
+#   define IN_LC_ALL_RUNTIME                0
+#   define IN_LC_PARTIAL_COMPILETIME        0
+#   define IN_LC_PARTIAL_RUNTIME            0
+#   define IN_LC_COMPILETIME(category)      0
+#   define IN_LC_RUNTIME(category)          0
+#   define IN_LC(category)                  0
+
+#   define _CHECK_AND_WARN_PROBLEMATIC_LOCALE
+#   define _CHECK_AND_OUTPUT_WIDE_LOCALE_CP_MSG(a)
+#   define _CHECK_AND_OUTPUT_WIDE_LOCALE_UTF8_MSG(a,b)
+#endif
+
+#ifdef USE_LOCALE_NUMERIC
+
+/* These macros are for toggling between the underlying locale (UNDERLYING or
+ * LOCAL) and the C locale (STANDARD).
+
+=head1 Locale-related functions and macros
+
+=for apidoc Amn|void|DECLARATION_FOR_LC_NUMERIC_MANIPULATION
+
+This macro should be used as a statement.  It declares a private variable
+(whose name begins with an underscore) that is needed by the other macros in
+this section.  Failing to include this correctly should lead to a syntax error.
+For compatibility with C89 C compilers it should be placed in a block before
+any executable statements.
+
+=for apidoc Am|void|STORE_LC_NUMERIC_FORCE_TO_UNDERLYING
+
+This is used by XS code that that is C<LC_NUMERIC> locale-aware to force the
+locale for category C<LC_NUMERIC> to be what perl thinks is the current
+underlying locale.  (The perl interpreter could be wrong about what the
+underlying locale actually is if some C or XS code has called the C library
+function L<setlocale(3)> behind its back; calling L</sync_locale> before calling
+this macro will update perl's records.)
+
+A call to L</DECLARATION_FOR_LC_NUMERIC_MANIPULATION> must have been made to
+declare at compile time a private variable used by this macro.  This macro
+should be called as a single statement, not an expression, but with an empty
+argument list, like this:
+
+ {
+    DECLARATION_FOR_LC_NUMERIC_MANIPULATION;
+     ...
+    STORE_LC_NUMERIC_FORCE_TO_UNDERLYING();
+     ...
+    RESTORE_LC_NUMERIC();
+     ...
+ }
+
+The private variable is used to save the current locale state, so
+that the requisite matching call to L</RESTORE_LC_NUMERIC> can restore it.
+
+=for apidoc Am|void|STORE_LC_NUMERIC_SET_TO_NEEDED
+
+This is used to help wrap XS or C code that that is C<LC_NUMERIC> locale-aware.
+This locale category is generally kept set to the C locale by Perl for
+backwards compatibility, and because most XS code that reads floating point
+values can cope only with the decimal radix character being a dot.
+
+This macro makes sure the current C<LC_NUMERIC> state is set properly, to be
+aware of locale if the call to the XS or C code from the Perl program is
+from within the scope of a S<C<use locale>>; or to ignore locale if the call is
+instead from outside such scope.
+
+This macro is the start of wrapping the C or XS code; the wrap ending is done
+by calling the L</RESTORE_LC_NUMERIC> macro after the operation.  Otherwise
+the state can be changed that will adversely affect other XS code.
+
+A call to L</DECLARATION_FOR_LC_NUMERIC_MANIPULATION> must have been made to
+declare at compile time a private variable used by this macro.  This macro
+should be called as a single statement, not an expression, but with an empty
+argument list, like this:
+
+ {
+    DECLARATION_FOR_LC_NUMERIC_MANIPULATION;
+     ...
+    STORE_LC_NUMERIC_SET_TO_NEEDED();
+     ...
+    RESTORE_LC_NUMERIC();
+     ...
+ }
+
+=for apidoc Am|void|RESTORE_LC_NUMERIC
+
+This is used in conjunction with one of the macros
+L</STORE_LC_NUMERIC_SET_TO_NEEDED>
+and
+L</STORE_LC_NUMERIC_FORCE_TO_UNDERLYING>
+
+to properly restore the C<LC_NUMERIC> state.
+
+A call to L</DECLARATION_FOR_LC_NUMERIC_MANIPULATION> must have been made to
+declare at compile time a private variable used by this macro and the two
+C<STORE> ones.  This macro should be called as a single statement, not an
+expression, but with an empty argument list, like this:
+
+ {
+    DECLARATION_FOR_LC_NUMERIC_MANIPULATION;
+     ...
+    RESTORE_LC_NUMERIC();
+     ...
+ }
+
+=cut
+
+*/
+
+#define _NOT_IN_NUMERIC_STANDARD (! PL_numeric_standard)
+
+/* We can lock the category to stay in the C locale, making requests to the
+ * contrary be noops, in the dynamic scope by setting PL_numeric_standard to 2.
+ * */
+#define _NOT_IN_NUMERIC_UNDERLYING                                          \
+                        (! PL_numeric_local && PL_numeric_standard < 2)
+
+#define DECLARATION_FOR_LC_NUMERIC_MANIPULATION                             \
+    void (*_restore_LC_NUMERIC_function)(pTHX) = NULL
+
+#define STORE_LC_NUMERIC_SET_TO_NEEDED()                                    \
+    if (IN_LC(LC_NUMERIC)) {                                                \
+        if (_NOT_IN_NUMERIC_UNDERLYING) {                                   \
+            set_numeric_local();                                            \
+            _restore_LC_NUMERIC_function = &Perl_set_numeric_standard;      \
+        }                                                                   \
+    }                                                                       \
+    else {                                                                  \
+        if (_NOT_IN_NUMERIC_STANDARD) {                                     \
+            SET_NUMERIC_STANDARD();                                         \
+            _restore_LC_NUMERIC_function = &Perl_set_numeric_local;         \
+        }                                                                   \
+    }
+
+#define RESTORE_LC_NUMERIC()                                                \
+    if (_restore_LC_NUMERIC_function) {                                     \
+        _restore_LC_NUMERIC_function(aTHX);                                 \
+    }
+
+/* The next two macros set unconditionally.  These should be rarely used, and
+ * only after being sure that this is what is needed */
+#define SET_NUMERIC_STANDARD()                                              \
+	STMT_START { if (_NOT_IN_NUMERIC_STANDARD) set_numeric_standard();  \
+                                                                 } STMT_END
+
+#define SET_NUMERIC_UNDERLYING()                                            \
+	STMT_START { if (_NOT_IN_NUMERIC_UNDERLYING)                        \
+                                            set_numeric_local(); } STMT_END
+
+/* The rest of these LC_NUMERIC macros toggle to one or the other state, with
+ * the RESTORE_foo ones called to switch back, but only if need be */
+#define STORE_LC_NUMERIC_UNDERLYING_SET_STANDARD()                          \
+	bool _was_local = _NOT_IN_NUMERIC_STANDARD;                         \
+	if (_was_local) set_numeric_standard();
+
+/* Doesn't change to underlying locale unless within the scope of some form of
+ * 'use locale'.  This is the usual desired behavior. */
+#define STORE_LC_NUMERIC_STANDARD_SET_UNDERLYING()                          \
+	bool _was_standard = _NOT_IN_NUMERIC_UNDERLYING                     \
+                            && IN_LC(LC_NUMERIC);                           \
+	if (_was_standard) set_numeric_local();
+
+/* Rarely, we want to change to the underlying locale even outside of 'use
+ * locale'.  This is principally in the POSIX:: functions */
+#define STORE_LC_NUMERIC_FORCE_TO_UNDERLYING()                              \
+    if (_NOT_IN_NUMERIC_UNDERLYING) {                                       \
+        set_numeric_local();                                                \
+        _restore_LC_NUMERIC_function = &Perl_set_numeric_standard;          \
+    }
+
+/* Lock to the C locale until unlock is called */
+#define LOCK_LC_NUMERIC_STANDARD()                          \
+        (__ASSERT_(PL_numeric_standard)                     \
+        PL_numeric_standard = 2)
+
+#define UNLOCK_LC_NUMERIC_STANDARD()                        \
+        (__ASSERT_(PL_numeric_standard == 2)                \
+        PL_numeric_standard = 1)
+
+#define RESTORE_LC_NUMERIC_UNDERLYING()                     \
+	if (_was_local) set_numeric_local();
+
+#define RESTORE_LC_NUMERIC_STANDARD()                       \
+    if (_restore_LC_NUMERIC_function) {                     \
+        _restore_LC_NUMERIC_function(aTHX);                 \
+    }
+
+#else /* !USE_LOCALE_NUMERIC */
+
+#define SET_NUMERIC_STANDARD()
+#define SET_NUMERIC_UNDERLYING()
+#define IS_NUMERIC_RADIX(a, b)		(0)
+#define STORE_LC_NUMERIC_UNDERLYING_SET_STANDARD()
+#define STORE_LC_NUMERIC_STANDARD_SET_UNDERLYING()
+#define STORE_LC_NUMERIC_FORCE_TO_UNDERLYING()
+#define RESTORE_LC_NUMERIC_UNDERLYING()
+#define RESTORE_LC_NUMERIC_STANDARD()
+#define DECLARATION_FOR_LC_NUMERIC_MANIPULATION
+#define STORE_LC_NUMERIC_SET_TO_NEEDED()
+#define RESTORE_LC_NUMERIC()
+#define LOCK_LC_NUMERIC_STANDARD()
+#define UNLOCK_LC_NUMERIC_STANDARD()
+
+#endif /* !USE_LOCALE_NUMERIC */
+
+#define Atof				my_atof
+
+/* Back-compat names */
+#define DECLARATION_FOR_STORE_LC_NUMERIC_SET_TO_NEEDED              \
+                        DECLARATION_FOR_LC_NUMERIC_MANIPULATION
+#define DECLARE_STORE_LC_NUMERIC_SET_TO_NEEDED()                    \
+                DECLARATION_FOR_STORE_LC_NUMERIC_SET_TO_NEEDED;     \
+                STORE_LC_NUMERIC_SET_TO_NEEDED();
+#define LOCK_NUMERIC_STANDARD() LOCK_LC_NUMERIC_STANDARD()
+#define RESTORE_NUMERIC_LOCAL() RESTORE_LC_NUMERIC_UNDERLYING()
+#define RESTORE_NUMERIC_STANDARD() RESTORE_LC_NUMERIC_STANDARD()
+#define SET_NUMERIC_LOCAL() SET_NUMERIC_UNDERLYING()
+#define STORE_NUMERIC_LOCAL_SET_STANDARD()                          \
+                    STORE_LC_NUMERIC_UNDERLYING_SET_STANDARD()
+#define STORE_NUMERIC_STANDARD_SET_LOCAL()                          \
+                    STORE_LC_NUMERIC_STANDARD_SET_UNDERLYING()
+#define STORE_NUMERIC_STANDARD_FORCE_LOCAL()                        \
+                        STORE_LC_NUMERIC_FORCE_TO_UNDERLYING()
+#define UNLOCK_NUMERIC_STANDARD() UNLOCK_LC_NUMERIC_STANDARD()
+
+
+
+#ifdef USE_QUADMATH
+#  define Perl_strtod(s, e) strtoflt128(s, e)
+#elif defined(HAS_LONG_DOUBLE) && defined(USE_LONG_DOUBLE)
+#  if defined(HAS_STRTOLD)
+#    define Perl_strtod(s, e) strtold(s, e)
+#  elif defined(HAS_STRTOD)
+#    define Perl_strtod(s, e) (NV)strtod(s, e) /* Unavoidable loss. */
+#  endif
+#elif defined(HAS_STRTOD)
+#  define Perl_strtod(s, e) strtod(s, e)
+#endif
+
+#if !defined(Strtol) && defined(USE_64_BIT_INT) && defined(IV_IS_QUAD) && \
+	(QUADKIND == QUAD_IS_LONG_LONG || QUADKIND == QUAD_IS___INT64)
+#    ifdef __hpux
+#        define strtoll __strtoll	/* secret handshake */
+#    endif
+#    ifdef WIN64
+#        define strtoll _strtoi64	/* secret handshake */
+#    endif
+#   if !defined(Strtol) && defined(HAS_STRTOLL)
+#       define Strtol	strtoll
+#   endif
+#    if !defined(Strtol) && defined(HAS_STRTOQ)
+#       define Strtol	strtoq
+#    endif
+/* is there atoq() anywhere? */
+#endif
+#if !defined(Strtol) && defined(HAS_STRTOL)
+#   define Strtol	strtol
+#endif
+#ifndef Atol
+/* It would be more fashionable to use Strtol() to define atol()
+ * (as is done for Atoul(), see below) but for backward compatibility
+ * we just assume atol(). */
+#   if defined(USE_64_BIT_INT) && defined(IV_IS_QUAD) && defined(HAS_ATOLL) && \
+	(QUADKIND == QUAD_IS_LONG_LONG || QUADKIND == QUAD_IS___INT64)
+#    ifdef WIN64
+#       define atoll    _atoi64		/* secret handshake */
+#    endif
+#       define Atol	atoll
+#   else
+#       define Atol	atol
+#   endif
+#endif
+
+#if !defined(Strtoul) && defined(USE_64_BIT_INT) && defined(UV_IS_QUAD) && \
+	(QUADKIND == QUAD_IS_LONG_LONG || QUADKIND == QUAD_IS___INT64)
+#    ifdef __hpux
+#        define strtoull __strtoull	/* secret handshake */
+#    endif
+#    ifdef WIN64
+#        define strtoull _strtoui64	/* secret handshake */
+#    endif
+#    if !defined(Strtoul) && defined(HAS_STRTOULL)
+#       define Strtoul	strtoull
+#    endif
+#    if !defined(Strtoul) && defined(HAS_STRTOUQ)
+#       define Strtoul	strtouq
+#    endif
+/* is there atouq() anywhere? */
+#endif
+#if !defined(Strtoul) && defined(HAS_STRTOUL)
+#   define Strtoul	strtoul
+#endif
+#if !defined(Strtoul) && defined(HAS_STRTOL) /* Last resort. */
+#   define Strtoul(s, e, b)	strchr((s), '-') ? ULONG_MAX : (unsigned long)strtol((s), (e), (b))
+#endif
+#ifndef Atoul
+#   define Atoul(s)	Strtoul(s, NULL, 10)
+#endif
+
+#ifndef PERL_SCRIPT_MODE
+#define PERL_SCRIPT_MODE "r"
+#endif
+
+/* not used. Kept as a NOOP for backcompat */
+#define PERL_STACK_OVERFLOW_CHECK()  NOOP
+
+/*
+ * Some nonpreemptive operating systems find it convenient to
+ * check for asynchronous conditions after each op execution.
+ * Keep this check simple, or it may slow down execution
+ * massively.
+ */
+
+#ifndef PERL_MICRO
+#	ifndef PERL_ASYNC_CHECK
+#		define PERL_ASYNC_CHECK() if (UNLIKELY(PL_sig_pending)) PL_signalhook(aTHX)
+#	endif
+#endif
+
+#ifndef PERL_ASYNC_CHECK
+#   define PERL_ASYNC_CHECK()  NOOP
+#endif
+
+/*
+ * On some operating systems, a memory allocation may succeed,
+ * but put the process too close to the system's comfort limit.
+ * In this case, PERL_ALLOC_CHECK frees the pointer and sets
+ * it to NULL.
+ */
+#ifndef PERL_ALLOC_CHECK
+#define PERL_ALLOC_CHECK(p)  NOOP
+#endif
+
+#ifdef HAS_SEM
+#   include <sys/ipc.h>
+#   include <sys/sem.h>
+#   ifndef HAS_UNION_SEMUN	/* Provide the union semun. */
+    union semun {
+	int		val;
+	struct semid_ds	*buf;
+	unsigned short	*array;
+    };
+#   endif
+#   ifdef USE_SEMCTL_SEMUN
+#	ifdef IRIX32_SEMUN_BROKEN_BY_GCC
+            union gccbug_semun {
+		int             val;
+		struct semid_ds *buf;
+		unsigned short  *array;
+		char            __dummy[5];
+	    };
+#           define semun gccbug_semun
+#	endif
+#       define Semctl(id, num, cmd, semun) semctl(id, num, cmd, semun)
+#   else
+#       ifdef USE_SEMCTL_SEMID_DS
+#           ifdef EXTRA_F_IN_SEMUN_BUF
+#               define Semctl(id, num, cmd, semun) semctl(id, num, cmd, semun.buff)
+#           else
+#               define Semctl(id, num, cmd, semun) semctl(id, num, cmd, semun.buf)
+#           endif
+#       endif
+#   endif
+#endif
+
+/*
+ * Boilerplate macros for initializing and accessing interpreter-local
+ * data from C.  All statics in extensions should be reworked to use
+ * this, if you want to make the extension thread-safe.  See
+ * ext/XS/APItest/APItest.xs for an example of the use of these macros,
+ * and perlxs.pod for more.
+ *
+ * Code that uses these macros is responsible for the following:
+ * 1. #define MY_CXT_KEY to a unique string, e.g.
+ *    "DynaLoader::_guts" XS_VERSION
+ *    XXX in the current implementation, this string is ignored.
+ * 2. Declare a typedef named my_cxt_t that is a structure that contains
+ *    all the data that needs to be interpreter-local.
+ * 3. Use the START_MY_CXT macro after the declaration of my_cxt_t.
+ * 4. Use the MY_CXT_INIT macro such that it is called exactly once
+ *    (typically put in the BOOT: section).
+ * 5. Use the members of the my_cxt_t structure everywhere as
+ *    MY_CXT.member.
+ * 6. Use the dMY_CXT macro (a declaration) in all the functions that
+ *    access MY_CXT.
+ */
+
+#if defined(PERL_IMPLICIT_CONTEXT)
+
+/* START_MY_CXT must appear in all extensions that define a my_cxt_t structure,
+ * right after the definition (i.e. at file scope).  The non-threads
+ * case below uses it to declare the data as static. */
+#  ifdef PERL_GLOBAL_STRUCT_PRIVATE
+#    define START_MY_CXT
+#    define MY_CXT_INDEX Perl_my_cxt_index(aTHX_ MY_CXT_KEY)
+#    define MY_CXT_INIT_ARG MY_CXT_KEY
+#  else
+#    define START_MY_CXT static int my_cxt_index = -1;
+#    define MY_CXT_INDEX my_cxt_index
+#    define MY_CXT_INIT_ARG &my_cxt_index
+#  endif /* #ifdef PERL_GLOBAL_STRUCT_PRIVATE */
+
+/* Creates and zeroes the per-interpreter data.
+ * (We allocate my_cxtp in a Perl SV so that it will be released when
+ * the interpreter goes away.) */
+#  define MY_CXT_INIT \
+	my_cxt_t *my_cxtp = \
+	    (my_cxt_t*)Perl_my_cxt_init(aTHX_ MY_CXT_INIT_ARG, sizeof(my_cxt_t)); \
+	PERL_UNUSED_VAR(my_cxtp)
+#  define MY_CXT_INIT_INTERP(my_perl) \
+	my_cxt_t *my_cxtp = \
+	    (my_cxt_t*)Perl_my_cxt_init(my_perl, MY_CXT_INIT_ARG, sizeof(my_cxt_t)); \
+	PERL_UNUSED_VAR(my_cxtp)
+
+/* This declaration should be used within all functions that use the
+ * interpreter-local data. */
+#  define dMY_CXT	\
+	my_cxt_t *my_cxtp = (my_cxt_t *)PL_my_cxt_list[MY_CXT_INDEX]
+#  define dMY_CXT_INTERP(my_perl)	\
+	my_cxt_t *my_cxtp = (my_cxt_t *)(my_perl)->Imy_cxt_list[MY_CXT_INDEX]
+
+/* Clones the per-interpreter data. */
+#  define MY_CXT_CLONE \
+	my_cxt_t *my_cxtp = (my_cxt_t*)SvPVX(newSV(sizeof(my_cxt_t)-1));\
+	void * old_my_cxtp = PL_my_cxt_list[MY_CXT_INDEX];		\
+	PL_my_cxt_list[MY_CXT_INDEX] = my_cxtp;				\
+	Copy(old_my_cxtp, my_cxtp, 1, my_cxt_t);
+
+
+
+/* This macro must be used to access members of the my_cxt_t structure.
+ * e.g. MY_CXT.some_data */
+#  define MY_CXT		(*my_cxtp)
+
+/* Judicious use of these macros can reduce the number of times dMY_CXT
+ * is used.  Use is similar to pTHX, aTHX etc. */
+#  define pMY_CXT	my_cxt_t *my_cxtp
+#  define pMY_CXT_	pMY_CXT,
+#  define _pMY_CXT	,pMY_CXT
+#  define aMY_CXT	my_cxtp
+#  define aMY_CXT_	aMY_CXT,
+#  define _aMY_CXT	,aMY_CXT
+
+#else /* PERL_IMPLICIT_CONTEXT */
+
+#  define START_MY_CXT		static my_cxt_t my_cxt;
+#  define dMY_CXT_SV	    	dNOOP
+#  define dMY_CXT		dNOOP
+#  define dMY_CXT_INTERP(my_perl) dNOOP
+#  define MY_CXT_INIT		NOOP
+#  define MY_CXT_CLONE		NOOP
+#  define MY_CXT		my_cxt
+
+#  define pMY_CXT		void
+#  define pMY_CXT_
+#  define _pMY_CXT
+#  define aMY_CXT
+#  define aMY_CXT_
+#  define _aMY_CXT
+
+#endif /* !defined(PERL_IMPLICIT_CONTEXT) */
+
+#ifdef I_FCNTL
+#  include <fcntl.h>
+#endif
+
+#ifdef __Lynx__
+#  include <fcntl.h>
+#endif
+
+#ifdef __amigaos4__
+#  undef FD_CLOEXEC /* a lie in AmigaOS */
+#endif
+
+#ifdef I_SYS_FILE
+#  include <sys/file.h>
+#endif
+
+#if defined(HAS_FLOCK) && !defined(HAS_FLOCK_PROTO)
+int flock(int fd, int op);
+#endif
+
+#ifndef O_RDONLY
+/* Assume UNIX defaults */
+#    define O_RDONLY	0000
+#    define O_WRONLY	0001
+#    define O_RDWR	0002
+#    define O_CREAT	0100
+#endif
+
+#ifndef O_BINARY
+#  define O_BINARY 0
+#endif
+
+#ifndef O_TEXT
+#  define O_TEXT 0
+#endif
+
+#if O_TEXT != O_BINARY
+    /* If you have different O_TEXT and O_BINARY and you are a CRLF shop,
+     * that is, you are somehow DOSish. */
+#   if defined(__HAIKU__) || defined(__VOS__) || defined(__CYGWIN__)
+    /* Haiku has O_TEXT != O_BINARY but O_TEXT and O_BINARY have no effect;
+     * Haiku is always UNIXoid (LF), not DOSish (CRLF). */
+    /* VOS has O_TEXT != O_BINARY, and they have effect,
+     * but VOS always uses LF, never CRLF. */
+    /* If you have O_TEXT different from your O_BINARY but you still are
+     * not a CRLF shop. */
+#       undef PERLIO_USING_CRLF
+#   else
+    /* If you really are DOSish. */
+#      define PERLIO_USING_CRLF 1
+#   endif
+#endif
+
+#ifdef I_LIBUTIL
+#   include <libutil.h>		/* setproctitle() in some FreeBSDs */
+#endif
+
+#ifndef EXEC_ARGV_CAST
+#define EXEC_ARGV_CAST(x) (char **)x
+#endif
+
+#define IS_NUMBER_IN_UV		      0x01 /* number within UV range (maybe not
+					      int).  value returned in pointed-
+					      to UV */
+#define IS_NUMBER_GREATER_THAN_UV_MAX 0x02 /* pointed to UV undefined */
+#define IS_NUMBER_NOT_INT	      0x04 /* saw . or E notation or infnan */
+#define IS_NUMBER_NEG		      0x08 /* leading minus sign */
+#define IS_NUMBER_INFINITY	      0x10 /* this is big */
+#define IS_NUMBER_NAN                 0x20 /* this is not */
+#define IS_NUMBER_TRAILING            0x40 /* number has trailing trash */
+
+#define GROK_NUMERIC_RADIX(sp, send) grok_numeric_radix(sp, send)
+
+/* Input flags: */
+#define PERL_SCAN_ALLOW_UNDERSCORES   0x01 /* grok_??? accept _ in numbers */
+#define PERL_SCAN_DISALLOW_PREFIX     0x02 /* grok_??? reject 0x in hex etc */
+#define PERL_SCAN_SILENT_ILLDIGIT     0x04 /* grok_??? not warn about illegal digits */
+#define PERL_SCAN_SILENT_NON_PORTABLE 0x08 /* grok_??? not warn about very large
+					      numbers which are <= UV_MAX */
+#define PERL_SCAN_TRAILING            0x10 /* grok_number_flags() allow trailing
+                                              and set IS_NUMBER_TRAILING */
+
+/* Output flags: */
+#define PERL_SCAN_GREATER_THAN_UV_MAX 0x02 /* should this merge with above? */
+
+/* to let user control profiling */
+#ifdef PERL_GPROF_CONTROL
+extern void moncontrol(int);
+#define PERL_GPROF_MONCONTROL(x) moncontrol(x)
+#else
+#define PERL_GPROF_MONCONTROL(x)
+#endif
+
+#ifdef UNDER_CE
+#include "wince.h"
+#endif
+
+/* ISO 6429 NEL - C1 control NExt Line */
+/* See http://www.unicode.org/unicode/reports/tr13/ */
+#define NEXT_LINE_CHAR	NEXT_LINE_NATIVE
+
+#ifndef PIPESOCK_MODE
+#  define PIPESOCK_MODE
+#endif
+
+#ifndef SOCKET_OPEN_MODE
+#  define SOCKET_OPEN_MODE	PIPESOCK_MODE
+#endif
+
+#ifndef PIPE_OPEN_MODE
+#  define PIPE_OPEN_MODE	PIPESOCK_MODE
+#endif
+
+#define PERL_MAGIC_UTF8_CACHESIZE	2
+
+#define PERL_UNICODE_STDIN_FLAG			0x0001
+#define PERL_UNICODE_STDOUT_FLAG		0x0002
+#define PERL_UNICODE_STDERR_FLAG		0x0004
+#define PERL_UNICODE_IN_FLAG			0x0008
+#define PERL_UNICODE_OUT_FLAG			0x0010
+#define PERL_UNICODE_ARGV_FLAG			0x0020
+#define PERL_UNICODE_LOCALE_FLAG		0x0040
+#define PERL_UNICODE_WIDESYSCALLS_FLAG		0x0080 /* for Sarathy */
+#define PERL_UNICODE_UTF8CACHEASSERT_FLAG	0x0100
+
+#define PERL_UNICODE_STD_FLAG		\
+	(PERL_UNICODE_STDIN_FLAG	| \
+	 PERL_UNICODE_STDOUT_FLAG	| \
+	 PERL_UNICODE_STDERR_FLAG)
+
+#define PERL_UNICODE_INOUT_FLAG		\
+	(PERL_UNICODE_IN_FLAG	| \
+	 PERL_UNICODE_OUT_FLAG)
+
+#define PERL_UNICODE_DEFAULT_FLAGS	\
+	(PERL_UNICODE_STD_FLAG		| \
+	 PERL_UNICODE_INOUT_FLAG	| \
+	 PERL_UNICODE_LOCALE_FLAG)
+
+#define PERL_UNICODE_ALL_FLAGS			0x01ff
+
+#define PERL_UNICODE_STDIN			'I'
+#define PERL_UNICODE_STDOUT			'O'
+#define PERL_UNICODE_STDERR			'E'
+#define PERL_UNICODE_STD			'S'
+#define PERL_UNICODE_IN				'i'
+#define PERL_UNICODE_OUT			'o'
+#define PERL_UNICODE_INOUT			'D'
+#define PERL_UNICODE_ARGV			'A'
+#define PERL_UNICODE_LOCALE			'L'
+#define PERL_UNICODE_WIDESYSCALLS		'W'
+#define PERL_UNICODE_UTF8CACHEASSERT		'a'
+
+#define PERL_SIGNALS_UNSAFE_FLAG	0x0001
+
+/* Use instead of abs() since abs() forces its argument to be an int,
+ * but also beware since this evaluates its argument twice, so no x++. */
+#define PERL_ABS(x) ((x) < 0 ? -(x) : (x))
+
+#if defined(__DECC) && defined(__osf__)
+#pragma message disable (mainparm) /* Perl uses the envp in main(). */
+#endif
+
+#define do_open(g, n, l, a, rm, rp, sf) \
+	do_openn(g, n, l, a, rm, rp, sf, (SV **) NULL, 0)
+#ifdef PERL_DEFAULT_DO_EXEC3_IMPLEMENTATION
+#  define do_exec(cmd)			do_exec3(cmd,0,0)
+#endif
+#ifdef OS2
+#  define do_aexec			Perl_do_aexec
+#else
+#  define do_aexec(really, mark,sp)	do_aexec5(really, mark, sp, 0, 0)
+#endif
+
+/* check embedded \0 characters in pathnames passed to syscalls,
+   but allow one ending \0 */
+#define IS_SAFE_SYSCALL(p, len, what, op_name) (S_is_safe_syscall(aTHX_ (p), (len), (what), (op_name)))
+
+#define IS_SAFE_PATHNAME(p, len, op_name) IS_SAFE_SYSCALL((p), (len), "pathname", (op_name))
+
+#if defined(OEMVS) || defined(__amigaos4__)
+#define NO_ENV_ARRAY_IN_MAIN
+#endif
+
+/* These are used by Perl_pv_escape() and Perl_pv_pretty()
+ * are here so that they are available throughout the core
+ * NOTE that even though some are for _escape and some for _pretty
+ * there must not be any clashes as the flags from _pretty are
+ * passed straight through to _escape.
+ */
+
+#define PERL_PV_ESCAPE_QUOTE        0x000001
+#define PERL_PV_PRETTY_QUOTE        PERL_PV_ESCAPE_QUOTE
+
+#define PERL_PV_PRETTY_ELLIPSES     0x000002
+#define PERL_PV_PRETTY_LTGT         0x000004
+#define PERL_PV_PRETTY_EXACTSIZE    0x000008
+
+#define PERL_PV_ESCAPE_UNI          0x000100
+#define PERL_PV_ESCAPE_UNI_DETECT   0x000200
+#define PERL_PV_ESCAPE_NONASCII     0x000400
+#define PERL_PV_ESCAPE_FIRSTCHAR    0x000800
+
+#define PERL_PV_ESCAPE_ALL            0x001000
+#define PERL_PV_ESCAPE_NOBACKSLASH  0x002000
+#define PERL_PV_ESCAPE_NOCLEAR      0x004000
+#define PERL_PV_PRETTY_NOCLEAR      PERL_PV_ESCAPE_NOCLEAR
+#define PERL_PV_ESCAPE_RE           0x008000
+
+#define PERL_PV_ESCAPE_DWIM         0x010000
+
+
+/* used by pv_display in dump.c*/
+#define PERL_PV_PRETTY_DUMP  PERL_PV_PRETTY_ELLIPSES|PERL_PV_PRETTY_QUOTE
+#define PERL_PV_PRETTY_REGPROP PERL_PV_PRETTY_ELLIPSES|PERL_PV_PRETTY_LTGT|PERL_PV_ESCAPE_RE|PERL_PV_ESCAPE_NONASCII
+
+#if DOUBLEKIND == DOUBLE_IS_IEEE_754_32_BIT_LITTLE_ENDIAN || \
+    DOUBLEKIND == DOUBLE_IS_IEEE_754_64_BIT_LITTLE_ENDIAN || \
+    DOUBLEKIND == DOUBLE_IS_IEEE_754_128_BIT_LITTLE_ENDIAN
+#  define DOUBLE_LITTLE_ENDIAN
+#endif
+
+#if DOUBLEKIND == DOUBLE_IS_IEEE_754_32_BIT_BIG_ENDIAN || \
+    DOUBLEKIND == DOUBLE_IS_IEEE_754_64_BIT_BIG_ENDIAN || \
+    DOUBLEKIND == DOUBLE_IS_IEEE_754_128_BIT_BIG_ENDIAN
+#  define DOUBLE_BIG_ENDIAN
+#endif
+
+#if DOUBLEKIND == DOUBLE_IS_IEEE_754_64_BIT_MIXED_ENDIAN_LE_BE || \
+    DOUBLEKIND == DOUBLE_IS_IEEE_754_64_BIT_MIXED_ENDIAN_BE_LE
+#  define DOUBLE_MIX_ENDIAN
+#endif
+
+/* All the basic IEEE formats have the implicit bit,
+ * except for the 80-bit extended formats, which will undef this. */
+#define NV_IMPLICIT_BIT
+
+#ifdef LONG_DOUBLEKIND
+
+#  if LONG_DOUBLEKIND == LONG_DOUBLE_IS_IEEE_754_128_BIT_LITTLE_ENDIAN || \
+      LONG_DOUBLEKIND == LONG_DOUBLE_IS_X86_80_BIT_LITTLE_ENDIAN || \
+      LONG_DOUBLEKIND == LONG_DOUBLE_IS_DOUBLEDOUBLE_128_BIT_LE_LE
+#    define LONGDOUBLE_LITTLE_ENDIAN
+#  endif
+
+#  if LONG_DOUBLEKIND == LONG_DOUBLE_IS_IEEE_754_128_BIT_BIG_ENDIAN || \
+      LONG_DOUBLEKIND == LONG_DOUBLE_IS_X86_80_BIT_BIG_ENDIAN || \
+      LONG_DOUBLEKIND == LONG_DOUBLE_IS_DOUBLEDOUBLE_128_BIT_BE_BE
+#    define LONGDOUBLE_BIG_ENDIAN
+#  endif
+
+#  if LONG_DOUBLEKIND == LONG_DOUBLE_IS_DOUBLEDOUBLE_128_BIT_LE_BE || \
+      LONG_DOUBLEKIND == LONG_DOUBLE_IS_DOUBLEDOUBLE_128_BIT_BE_LE
+#    define LONGDOUBLE_MIX_ENDIAN
+#  endif
+
+#  if LONG_DOUBLEKIND == LONG_DOUBLE_IS_X86_80_BIT_LITTLE_ENDIAN || \
+      LONG_DOUBLEKIND == LONG_DOUBLE_IS_X86_80_BIT_BIG_ENDIAN
+#    define LONGDOUBLE_X86_80_BIT
+#    ifdef USE_LONG_DOUBLE
+#      undef NV_IMPLICIT_BIT
+#    endif
+#  endif
+
+#  if LONG_DOUBLEKIND == LONG_DOUBLE_IS_DOUBLEDOUBLE_128_BIT_LE_LE || \
+      LONG_DOUBLEKIND == LONG_DOUBLE_IS_DOUBLEDOUBLE_128_BIT_BE_BE || \
+      LONG_DOUBLEKIND == LONG_DOUBLE_IS_DOUBLEDOUBLE_128_BIT_LE_BE || \
+      LONG_DOUBLEKIND == LONG_DOUBLE_IS_DOUBLEDOUBLE_128_BIT_BE_LE
+#    define LONGDOUBLE_DOUBLEDOUBLE
+#  endif
+
+#endif /* LONG_DOUBLEKIND */
+
+#ifdef USE_QUADMATH /* assume quadmath endianness == native double endianness */
+#  if defined(DOUBLE_LITTLE_ENDIAN)
+#    define NV_LITTLE_ENDIAN
+#  elif defined(DOUBLE_BIG_ENDIAN)
+#    define NV_BIG_ENDIAN
+#  elif defined(DOUBLE_MIX_ENDIAN) /* stretch */
+#    define NV_MIX_ENDIAN
+#  endif
+#elif NVSIZE == DOUBLESIZE
+#  ifdef DOUBLE_LITTLE_ENDIAN
+#    define NV_LITTLE_ENDIAN
+#  endif
+#  ifdef DOUBLE_BIG_ENDIAN
+#    define NV_BIG_ENDIAN
+#  endif
+#  ifdef DOUBLE_MIX_ENDIAN
+#    define NV_MIX_ENDIAN
+#  endif
+#elif NVSIZE == LONG_DOUBLESIZE
+#  ifdef LONGDOUBLE_LITTLE_ENDIAN
+#    define NV_LITTLE_ENDIAN
+#  endif
+#  ifdef LONGDOUBLE_BIG_ENDIAN
+#    define NV_BIG_ENDIAN
+#  endif
+#  ifdef LONGDOUBLE_MIX_ENDIAN
+#    define NV_MIX_ENDIAN
+#  endif
+#endif
+
+/* NaNs (not-a-numbers) can carry payload bits, in addition to
+ * "nan-ness".  Part of the payload is the quiet/signaling bit.
+ * To back up a bit (harhar):
+ *
+ * For IEEE 754 64-bit formats [1]:
+ *
+ * s 000 (mantissa all-zero)  zero
+ * s 000 (mantissa non-zero)  subnormals (denormals)
+ * s 001 ... 7fe              normals
+ * s 7ff q                    nan
+ *
+ * For IEEE 754 128-bit formats:
+ *
+ * s 0000 (mantissa all-zero)  zero
+ * s 0000 (mantissa non-zero)  subnormals (denormals)
+ * s 0001 ... 7ffe             normals
+ * s 7fff q                    nan
+ *
+ * [1] this looks like big-endian, but applies equally to little-endian.
+ *
+ * s = Sign bit.  Yes, zeros and nans can have negative sign,
+ *     the interpretation is application-specific.
+ *
+ * q = Quietness bit, the interpretation is platform-specific.
+ *     Most platforms have the most significant bit being one
+ *     meaning quiet, but some (older mips, hppa) have the msb
+ *     being one meaning signaling.  Note that the above means
+ *     that on most platforms there cannot be signaling nan with
+ *     zero payload because that is identical with infinity;
+ *     while conversely on older mips/hppa there cannot be a quiet nan
+ *     because that is identical with infinity.
+ *
+ *     Moreover, whether there is any behavioral difference
+ *     between quiet and signaling NaNs, depends on the platform.
+ *
+ * x86 80-bit extended precision is different, the mantissa bits:
+ *
+ * 63 62 61   30387+    pre-387    visual c
+ * --------   ----      --------   --------
+ *  0  0  0   invalid   infinity
+ *  0  0  1   invalid   snan
+ *  0  1  0   invalid   snan
+ *  0  1  1   invalid   snan
+ *  1  0  0   infinity  snan        1.#INF
+ *  1  0  1   snan                  1.#SNAN
+ *  1  1  0   qnan                 -1.#IND  (x86 chooses this to negative)
+ *  1  1  1   qnan                  1.#QNAN
+ *
+ * This means that in this format there are 61 bits available
+ * for the nan payload.
+ *
+ * Note that the 32-bit x86 ABI cannot do signaling nans: the x87
+ * simply cannot preserve the bit.  You can either use the 80-bit
+ * extended precision (long double, -Duselongdouble), or use x86-64.
+ *
+ * In all platforms, the payload bytes (and bits, some of them are
+ * often in a partial byte) themselves can be either all zero (x86),
+ * all one (sparc or mips), or a mixture: in IEEE 754 128-bit double
+ * or in a double-double, the first half of the payload can follow the
+ * native double, while in the second half the payload can be all
+ * zeros.  (Therefore the mask for payload bits is not necessarily
+ * identical to bit complement of the NaN.)  Another way of putting
+ * this: the payload for the default NaN might not be zero.
+ *
+ * For the x86 80-bit long doubles, the trailing bytes (the 80 bits
+ * being 'packaged' in either 12 or 16 bytes) can be whatever random
+ * garbage.
+ *
+ * Furthermore, the semantics of the sign bit on NaNs are platform-specific.
+ * On normal floats, the sign bit being on means negative.  But this may,
+ * or may not, be reverted on NaNs: in other words, the default NaN might
+ * have the sign bit on, and therefore look like negative if you look
+ * at it at the bit level.
+ *
+ * NaN payloads are not propagated even on copies, or in arithmetics.
+ * They *might* be, according to some rules, on your particular
+ * cpu/os/compiler/libraries, but no guarantees.
+ *
+ * To summarize, on most platforms, and for 64-bit doubles
+ * (using big-endian ordering here):
+ *
+ * [7FF8000000000000..7FFFFFFFFFFFFFFF] quiet
+ * [FFF8000000000000..FFFFFFFFFFFFFFFF] quiet
+ * [7FF0000000000001..7FF7FFFFFFFFFFFF] signaling
+ * [FFF0000000000001..FFF7FFFFFFFFFFFF] signaling
+ *
+ * The C99 nan() is supposed to generate *quiet* NaNs.
+ *
+ * Note the asymmetry:
+ * The 7FF0000000000000 is positive infinity,
+ * the FFF0000000000000 is negative infinity.
+ */
+
+/* NVMANTBITS is the number of _real_ mantissa bits in an NV.
+ * For the standard IEEE 754 fp this number is usually one less that
+ * *DBL_MANT_DIG because of the implicit (aka hidden) bit, which isn't
+ * real.  For the 80-bit extended precision formats (x86*), the number
+ * of mantissa bits... depends. For normal floats, it's 64.  But for
+ * the inf/nan, it's different (zero for inf, 61 for nan).
+ * NVMANTBITS works for normal floats. */
+
+/* We do not want to include the quiet/signaling bit. */
+#define NV_NAN_BITS (NVMANTBITS - 1)
+
+#if defined(USE_LONG_DOUBLE) && NVSIZE > DOUBLESIZE
+#  if LONG_DOUBLEKIND == LONG_DOUBLE_IS_IEEE_754_128_BIT_LITTLE_ENDIAN
+#    define NV_NAN_QS_BYTE_OFFSET 13
+#  elif LONG_DOUBLEKIND == LONG_DOUBLE_IS_IEEE_754_128_BIT_BIG_ENDIAN
+#    define NV_NAN_QS_BYTE_OFFSET 2
+#  elif LONG_DOUBLEKIND == LONG_DOUBLE_IS_X86_80_BIT_LITTLE_ENDIAN
+#    define NV_NAN_QS_BYTE_OFFSET 7
+#  elif LONG_DOUBLEKIND == LONG_DOUBLE_IS_X86_80_BIT_BIG_ENDIAN
+#    define NV_NAN_QS_BYTE_OFFSET 2
+#  elif LONG_DOUBLEKIND == LONG_DOUBLE_IS_DOUBLEDOUBLE_128_BIT_LE_LE
+#    define NV_NAN_QS_BYTE_OFFSET 13
+#  elif LONG_DOUBLEKIND == LONG_DOUBLE_IS_DOUBLEDOUBLE_128_BIT_BE_BE
+#    define NV_NAN_QS_BYTE_OFFSET 1
+#  elif LONG_DOUBLEKIND == LONG_DOUBLE_IS_DOUBLEDOUBLE_128_BIT_LE_BE
+#    define NV_NAN_QS_BYTE_OFFSET 9
+#  elif LONG_DOUBLEKIND == LONG_DOUBLE_IS_DOUBLEDOUBLE_128_BIT_BE_LE
+#    define NV_NAN_QS_BYTE_OFFSET 6
+#  else
+#    error "Unexpected long double format"
+#  endif
+#else
+#  ifdef USE_QUADMATH
+#    ifdef NV_LITTLE_ENDIAN
+#      define NV_NAN_QS_BYTE_OFFSET 13
+#    elif defined(NV_BIG_ENDIAN)
+#      define NV_NAN_QS_BYTE_OFFSET 2
+#    else
+#      error "Unexpected quadmath format"
+#    endif
+#  elif DOUBLEKIND == DOUBLE_IS_IEEE_754_32_BIT_LITTLE_ENDIAN
+#    define NV_NAN_QS_BYTE_OFFSET 2
+#  elif DOUBLEKIND == DOUBLE_IS_IEEE_754_32_BIT_BIG_ENDIAN
+#    define NV_NAN_QS_BYTE_OFFSET 1
+#  elif DOUBLEKIND == DOUBLE_IS_IEEE_754_64_BIT_LITTLE_ENDIAN
+#    define NV_NAN_QS_BYTE_OFFSET 6
+#  elif DOUBLEKIND == DOUBLE_IS_IEEE_754_64_BIT_BIG_ENDIAN
+#    define NV_NAN_QS_BYTE_OFFSET 1
+#  elif DOUBLEKIND == DOUBLE_IS_IEEE_754_128_BIT_LITTLE_ENDIAN
+#    define NV_NAN_QS_BYTE_OFFSET 13
+#  elif DOUBLEKIND == DOUBLE_IS_IEEE_754_128_BIT_BIG_ENDIAN
+#    define NV_NAN_QS_BYTE_OFFSET 2
+#  elif DOUBLEKIND == DOUBLE_IS_IEEE_754_64_BIT_MIXED_ENDIAN_LE_BE
+#    define NV_NAN_QS_BYTE_OFFSET 2 /* bytes 4 5 6 7 0 1 2 3 (MSB 7) */
+#  elif DOUBLEKIND == DOUBLE_IS_IEEE_754_64_BIT_MIXED_ENDIAN_BE_LE
+#    define NV_NAN_QS_BYTE_OFFSET 5 /* bytes 3 2 1 0 7 6 5 4 (MSB 7) */
+#  else
+#    error "Unexpected double format"
+#  endif
+#endif
+/* NV_NAN_QS_BYTE is the byte to test for the quiet/signaling */
+#define NV_NAN_QS_BYTE(nvp) (((U8*)(nvp))[NV_NAN_QS_BYTE_OFFSET])
+/* NV_NAN_QS_BIT is the bit to test in the NV_NAN_QS_BYTE_OFFSET
+ * for the quiet/signaling */
+#if defined(USE_LONG_DOUBLE) && \
+  (LONG_DOUBLEKIND == LONG_DOUBLE_IS_X86_80_BIT_LITTLE_ENDIAN || \
+   LONG_DOUBLEKIND == LONG_DOUBLE_IS_X86_80_BIT_BIG_ENDIAN)
+#  define NV_NAN_QS_BIT_SHIFT 6 /* 0x40 */
+#elif defined(USE_LONG_DOUBLE) && \
+  (LONG_DOUBLEKIND == LONG_DOUBLE_IS_DOUBLEDOUBLE_128_BIT_LE_LE || \
+   LONG_DOUBLEKIND == LONG_DOUBLE_IS_DOUBLEDOUBLE_128_BIT_BE_BE || \
+   LONG_DOUBLEKIND == LONG_DOUBLE_IS_DOUBLEDOUBLE_128_BIT_LE_BE || \
+   LONG_DOUBLEKIND == LONG_DOUBLE_IS_DOUBLEDOUBLE_128_BIT_BE_LE)
+#  define NV_NAN_QS_BIT_SHIFT 3 /* 0x08, but not via NV_NAN_BITS */
+#else
+#  define NV_NAN_QS_BIT_SHIFT ((NV_NAN_BITS) % 8) /* usually 3, or 0x08 */
+#endif
+#define NV_NAN_QS_BIT (1 << (NV_NAN_QS_BIT_SHIFT))
+/* NV_NAN_QS_BIT_OFFSET is the bit offset from the beginning of a NV
+ * (bytes ordered big-endianly) for the quiet/signaling bit
+ * for the quiet/signaling */
+#define NV_NAN_QS_BIT_OFFSET \
+    (8 * (NV_NAN_QS_BYTE_OFFSET) + (NV_NAN_QS_BIT_SHIFT))
+/* NV_NAN_QS_QUIET (always defined) is true if the NV_NAN_QS_QS_BIT being
+ * on indicates quiet NaN.  NV_NAN_QS_SIGNALING (also always defined)
+ * is true if the NV_NAN_QS_BIT being on indicates signaling NaN. */
+#define NV_NAN_QS_QUIET \
+    ((NV_NAN_QS_BYTE(PL_nan.u8) & NV_NAN_QS_BIT) == NV_NAN_QS_BIT)
+#define NV_NAN_QS_SIGNALING (!(NV_NAN_QS_QUIET))
+#define NV_NAN_QS_TEST(nvp) (NV_NAN_QS_BYTE(nvp) & NV_NAN_QS_BIT)
+/* NV_NAN_IS_QUIET() returns true if the NV behind nvp is a NaN,
+ * whether it is a quiet NaN, NV_NAN_IS_SIGNALING() if a signaling NaN.
+ * Note however that these do not check whether the nvp is a NaN. */
+#define NV_NAN_IS_QUIET(nvp) \
+    (NV_NAN_QS_TEST(nvp) == (NV_NAN_QS_QUIET ? NV_NAN_QS_BIT : 0))
+#define NV_NAN_IS_SIGNALING(nvp) \
+    (NV_NAN_QS_TEST(nvp) == (NV_NAN_QS_QUIET ? 0 : NV_NAN_QS_BIT))
+#define NV_NAN_SET_QUIET(nvp) \
+    (NV_NAN_QS_QUIET ? \
+     (NV_NAN_QS_BYTE(nvp) |= NV_NAN_QS_BIT) : \
+     (NV_NAN_QS_BYTE(nvp) &= ~NV_NAN_QS_BIT))
+#define NV_NAN_SET_SIGNALING(nvp) \
+    (NV_NAN_QS_QUIET ? \
+     (NV_NAN_QS_BYTE(nvp) &= ~NV_NAN_QS_BIT) : \
+     (NV_NAN_QS_BYTE(nvp) |= NV_NAN_QS_BIT))
+#define NV_NAN_QS_XOR(nvp) (NV_NAN_QS_BYTE(nvp) ^= NV_NAN_QS_BIT)
+
+/* NV_NAN_PAYLOAD_MASK: masking the nan payload bits.
+ *
+ * NV_NAN_PAYLOAD_PERM: permuting the nan payload bytes.
+ * 0xFF means "don't go here".*/
+
+/* Shorthands to avoid typoses. */
+#define NV_NAN_PAYLOAD_MASK_SKIP_EIGHT \
+  0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0
+#define NV_NAN_PAYLOAD_PERM_SKIP_EIGHT \
+  0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff
+#define NV_NAN_PAYLOAD_PERM_0_TO_7 \
+  0x0, 0x1, 0x2, 0x3, 0x4, 0x5, 0x6, 0x7
+#define NV_NAN_PAYLOAD_PERM_7_TO_0 \
+  0x7, 0x6, 0x5, 0x4, 0x3, 0x2, 0x1, 0x0
+#define NV_NAN_PAYLOAD_MASK_IEEE_754_128_LE \
+  0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, \
+  0xff, 0xff, 0xff, 0xff, 0xff, 0x7f, 0x00, 0x00
+#define NV_NAN_PAYLOAD_PERM_IEEE_754_128_LE \
+  NV_NAN_PAYLOAD_PERM_0_TO_7, \
+  0x8, 0x9, 0xa, 0xb, 0xc, 0xd, 0xFF, 0xFF
+#define NV_NAN_PAYLOAD_MASK_IEEE_754_128_BE \
+  0x00, 0x00, 0x7f, 0xff, 0xff, 0xff, 0xff, 0xff, \
+  0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff
+#define NV_NAN_PAYLOAD_PERM_IEEE_754_128_BE \
+  0xFF, 0xFF, 0xd, 0xc, 0xb, 0xa, 0x9, 0x8, \
+  NV_NAN_PAYLOAD_PERM_7_TO_0
+#define NV_NAN_PAYLOAD_MASK_IEEE_754_64_LE \
+  0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0x07, 0x00
+#define NV_NAN_PAYLOAD_PERM_IEEE_754_64_LE \
+  0x0, 0x1, 0x2, 0x3, 0x4, 0x5, 0x6, 0xFF
+#define NV_NAN_PAYLOAD_MASK_IEEE_754_64_BE \
+  0x00, 0x07, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff
+#define NV_NAN_PAYLOAD_PERM_IEEE_754_64_BE \
+  0xFF, 0x6, 0x5, 0x4, 0x3, 0x2, 0x1, 0x0
+
+#if defined(USE_LONG_DOUBLE) && NVSIZE > DOUBLESIZE
+#  if LONG_DOUBLEKIND == LONG_DOUBLE_IS_IEEE_754_128_BIT_LITTLE_ENDIAN
+#    define NV_NAN_PAYLOAD_MASK NV_NAN_PAYLOAD_MASK_IEEE_754_128_LE
+#    define NV_NAN_PAYLOAD_PERM NV_NAN_PAYLOAD_PERM_IEEE_754_128_LE
+#  elif LONG_DOUBLEKIND == LONG_DOUBLE_IS_IEEE_754_128_BIT_BIG_ENDIAN
+#    define NV_NAN_PAYLOAD_MASK NV_NAN_PAYLOAD_MASK_IEEE_754_128_BE
+#    define NV_NAN_PAYLOAD_PERM NV_NAN_PAYLOAD_PERM_IEEE_754_128_BE
+#  elif LONG_DOUBLEKIND == LONG_DOUBLE_IS_X86_80_BIT_LITTLE_ENDIAN
+#    if LONG_DOUBLESIZE == 10
+#      define NV_NAN_PAYLOAD_MASK \
+         0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0x1f, \
+         0x00, 0x00
+#      define NV_NAN_PAYLOAD_PERM \
+         NV_NAN_PAYLOAD_PERM_0_TO_7, 0xFF, 0xFF
+#    elif LONG_DOUBLESIZE == 12
+#      define NV_NAN_PAYLOAD_MASK \
+         0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0x1f, \
+         0x00, 0x00, 0x00, 0x00
+#      define NV_NAN_PAYLOAD_PERM \
+         NV_NAN_PAYLOAD_PERM_0_TO_7, 0xFF, 0xFF, 0xFF, 0xFF
+#    elif LONG_DOUBLESIZE == 16
+#      define NV_NAN_PAYLOAD_MASK \
+         0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0x1f, \
+         0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00
+#      define NV_NAN_PAYLOAD_PERM \
+         NV_NAN_PAYLOAD_PERM_0_TO_7, \
+         0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF
+#    else
+#      error "Unexpected x86 80-bit little-endian long double format"
+#    endif
+#  elif LONG_DOUBLEKIND == LONG_DOUBLE_IS_X86_80_BIT_BIG_ENDIAN
+#    if LONG_DOUBLESIZE == 10
+#      define NV_NAN_PAYLOAD_MASK \
+         0x00, 0x00, 0x1f, 0xff, 0xff, 0xff, 0xff, 0xff, \
+         0xff, 0xff
+#      define NV_NAN_PAYLOAD_PERM \
+         NV_NAN_PAYLOAD_PERM_7_TO_0, 0xFF, 0xFF
+#    elif LONG_DOUBLESIZE == 12
+#      define NV_NAN_PAYLOAD_MASK \
+         0x00, 0x00, 0x1f, 0xff, 0xff, 0xff, 0xff, 0xff, \
+         0xff, 0xff, 0x00, 0x00
+#      define NV_NAN_PAYLOAD_PERM \
+         NV_NAN_PAYLOAD_PERM_7_TO_0, 0xFF, 0xFF, 0xFF, 0xFF
+#    elif LONG_DOUBLESIZE == 16
+#      define NV_NAN_PAYLOAD_MASK \
+         0x00, 0x00, 0x1f, 0xff, 0xff, 0xff, 0xff, 0xff, \
+         0xff, 0xff, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00
+#      define NV_NAN_PAYLOAD_PERM \
+         NV_NAN_PAYLOAD_PERM_7_TO_0, \
+         0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF
+#    else
+#      error "Unexpected x86 80-bit big-endian long double format"
+#    endif
+#  elif LONG_DOUBLEKIND == LONG_DOUBLE_IS_DOUBLEDOUBLE_128_BIT_LE_LE
+/* For double-double we assume only the first double (in LE or BE terms)
+ * is used for NaN. */
+#    define NV_NAN_PAYLOAD_MASK \
+       NV_NAN_PAYLOAD_MASK_SKIP_EIGHT, NV_NAN_PAYLOAD_MASK_IEEE_754_64_LE
+#    define NV_NAN_PAYLOAD_PERM \
+       NV_NAN_PAYLOAD_PERM_SKIP_EIGHT, NV_NAN_PAYLOAD_PERM_IEEE_754_64_LE
+#  elif LONG_DOUBLEKIND == LONG_DOUBLE_IS_DOUBLEDOUBLE_128_BIT_BE_BE
+#    define NV_NAN_PAYLOAD_MASK \
+       NV_NAN_PAYLOAD_MASK_IEEE_754_64_BE
+#    define NV_NAN_PAYLOAD_PERM \
+       NV_NAN_PAYLOAD_PERM_IEEE_754_64_BE
+#  elif LONG_DOUBLEKIND == LONG_DOUBLE_IS_DOUBLEDOUBLE_128_BIT_LE_BE
+#    define NV_NAN_PAYLOAD_MASK \
+       NV_NAN_PAYLOAD_MASK_IEEE_754_64_LE
+#    define NV_NAN_PAYLOAD_PERM \
+       NV_NAN_PAYLOAD_PERM_IEEE_754_64_LE
+#  elif LONG_DOUBLEKIND == LONG_DOUBLE_IS_DOUBLEDOUBLE_128_BIT_BE_LE
+#    define NV_NAN_PAYLOAD_MASK \
+       NV_NAN_PAYLOAD_MASK_SKIP_EIGHT, NV_NAN_PAYLOAD_MASK_IEEE_754_64_BE
+#    define NV_NAN_PAYLOAD_PERM \
+       NV_NAN_PAYLOAD_PERM_SKIP_EIGHT, NV_NAN_PAYLOAD_PERM_IEEE_754_64_BE
+#  else
+#    error "Unexpected long double format"
+#  endif
+#else
+#  ifdef USE_QUADMATH /* quadmath is not long double */
+#    ifdef NV_LITTLE_ENDIAN
+#      define NV_NAN_PAYLOAD_MASK NV_NAN_PAYLOAD_MASK_IEEE_754_128_LE
+#      define NV_NAN_PAYLOAD_PERM NV_NAN_PAYLOAD_PERM_IEEE_754_128_LE
+#    elif defined(NV_BIG_ENDIAN)
+#      define NV_NAN_PAYLOAD_MASK NV_NAN_PAYLOAD_MASK_IEEE_754_128_BE
+#      define NV_NAN_PAYLOAD_PERM NV_NAN_PAYLOAD_PERM_IEEE_754_128_BE
+#    else
+#      error "Unexpected quadmath format"
+#    endif
+#  elif DOUBLEKIND == DOUBLE_IS_IEEE_754_32_BIT_LITTLE_ENDIAN
+#    define NV_NAN_PAYLOAD_MASK 0xff, 0xff, 0x07, 0x00
+#    define NV_NAN_PAYLOAD_PERM 0x0, 0x1, 0x2, 0xFF
+#  elif DOUBLEKIND == DOUBLE_IS_IEEE_754_32_BIT_BIG_ENDIAN
+#    define NV_NAN_PAYLOAD_MASK 0x00, 0x07, 0xff, 0xff
+#    define NV_NAN_PAYLOAD_PERM 0xFF, 0x2, 0x1, 0x0
+#  elif DOUBLEKIND == DOUBLE_IS_IEEE_754_64_BIT_LITTLE_ENDIAN
+#    define NV_NAN_PAYLOAD_MASK NV_NAN_PAYLOAD_MASK_IEEE_754_64_LE
+#    define NV_NAN_PAYLOAD_PERM NV_NAN_PAYLOAD_PERM_IEEE_754_64_LE
+#  elif DOUBLEKIND == DOUBLE_IS_IEEE_754_64_BIT_BIG_ENDIAN
+#    define NV_NAN_PAYLOAD_MASK NV_NAN_PAYLOAD_MASK_IEEE_754_64_BE
+#    define NV_NAN_PAYLOAD_PERM NV_NAN_PAYLOAD_PERM_IEEE_754_64_BE
+#  elif DOUBLEKIND == DOUBLE_IS_IEEE_754_128_BIT_LITTLE_ENDIAN
+#    define NV_NAN_PAYLOAD_MASK NV_NAN_PAYLOAD_MASK_IEEE_754_128_LE
+#    define NV_NAN_PAYLOAD_PERM NV_NAN_PAYLOAD_PERM_IEEE_754_128_LE
+#  elif DOUBLEKIND == DOUBLE_IS_IEEE_754_128_BIT_BIG_ENDIAN
+#    define NV_NAN_PAYLOAD_MASK NV_NAN_PAYLOAD_MASK_IEEE_754_128_BE
+#    define NV_NAN_PAYLOAD_PERM NV_NAN_PAYLOAD_PERM_IEEE_754_128_BE
+#  elif DOUBLEKIND == DOUBLE_IS_IEEE_754_64_BIT_MIXED_ENDIAN_LE_BE
+#    define NV_NAN_PAYLOAD_MASK 0xff, 0xff, 0x07, 0x00, 0xff, 0xff, 0xff, 0xff
+#    define NV_NAN_PAYLOAD_PERM 0x4, 0x5, 0x6, 0xFF, 0x0, 0x1, 0x2, 0x3
+#  elif DOUBLEKIND == DOUBLE_IS_IEEE_754_64_BIT_MIXED_ENDIAN_BE_LE
+#    define NV_NAN_PAYLOAD_MASK 0xff, 0xff, 0xff, 0xff, 0x00, 0x07, 0xff, 0xff
+#    define NV_NAN_PAYLOAD_PERM 0x3, 0x2, 0x1, 0x0, 0xFF, 0x6, 0x5, 0x4
+#  else
+#    error "Unexpected double format"
+#  endif
+#endif
+/*
+
+   (KEEP THIS LAST IN perl.h!)
+
+   Mention
+
+   NV_PRESERVES_UV
+
+   HAS_MKSTEMP
+   HAS_MKSTEMPS
+   HAS_MKDTEMP
+
+   HAS_GETCWD
+
+   HAS_MMAP
+   HAS_MPROTECT
+   HAS_MSYNC
+   HAS_MADVISE
+   HAS_MUNMAP
+   I_SYSMMAN
+   Mmap_t
+
+   NVef
+   NVff
+   NVgf
+
+   HAS_UALARM
+   HAS_USLEEP
+
+   HAS_SETITIMER
+   HAS_GETITIMER
+
+   HAS_SENDMSG
+   HAS_RECVMSG
+   HAS_READV
+   HAS_WRITEV
+   I_SYSUIO
+   HAS_STRUCT_MSGHDR
+   HAS_STRUCT_CMSGHDR
+
+   HAS_NL_LANGINFO
+
+   HAS_DIRFD
+
+   so that Configure picks them up.
+
+   (KEEP THIS LAST IN perl.h!)
+
+*/
+
+#endif /* Include guard */
+
+/*
+ * ex: set ts=8 sts=4 sw=4 et:
+ */
diff --git a/lib/5.24.1/x86_64-linux/CORE/perlapi.h b/lib/5.24.1/x86_64-linux/CORE/perlapi.h
new file mode 100644
index 00000000..7aa44557
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/perlapi.h
@@ -0,0 +1,182 @@
+/* -*- buffer-read-only: t -*-
+ *
+ *    perlapi.h
+ *
+ *    Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001,
+ *    2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 by Larry Wall and others
+ *
+ *    You may distribute under the terms of either the GNU General Public
+ *    License or the Artistic License, as specified in the README file.
+ *
+ * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+ * This file is built by regen/embed.pl from data in embed.fnc,
+ * regen/embed.pl, regen/opcodes, intrpvar.h and perlvars.h.
+ * Any changes made here will be lost!
+ *
+ * Edit those files and run 'make regen_headers' to effect changes.
+ */
+
+/* declare accessor functions for Perl variables */
+#ifndef __perlapi_h__
+#define __perlapi_h__
+
+#if defined (MULTIPLICITY) && defined (PERL_GLOBAL_STRUCT)
+
+START_EXTERN_C
+
+#undef PERLVAR
+#undef PERLVARA
+#undef PERLVARI
+#undef PERLVARIC
+#define PERLVAR(p,v,t)	EXTERN_C t* Perl_##p##v##_ptr(pTHX);
+#define PERLVARA(p,v,n,t)	typedef t PL_##v##_t[n];		\
+			EXTERN_C PL_##v##_t* Perl_##p##v##_ptr(pTHX);
+#define PERLVARI(p,v,t,i)	PERLVAR(p,v,t)
+#define PERLVARIC(p,v,t,i) PERLVAR(p,v, const t)
+
+#include "perlvars.h"
+
+#undef PERLVAR
+#undef PERLVARA
+#undef PERLVARI
+#undef PERLVARIC
+
+END_EXTERN_C
+
+#if defined(PERL_CORE)
+
+/* accessor functions for Perl "global" variables */
+
+/* these need to be mentioned here, or most linkers won't put them in
+   the perl executable */
+
+#ifndef PERL_NO_FORCE_LINK
+
+START_EXTERN_C
+
+#ifndef DOINIT
+EXTCONST void * const PL_force_link_funcs[];
+#else
+EXTCONST void * const PL_force_link_funcs[] = {
+#undef PERLVAR
+#undef PERLVARA
+#undef PERLVARI
+#undef PERLVARIC
+#define PERLVAR(p,v,t)		(void*)Perl_##p##v##_ptr,
+#define PERLVARA(p,v,n,t)	PERLVAR(p,v,t)
+#define PERLVARI(p,v,t,i)	PERLVAR(p,v,t)
+#define PERLVARIC(p,v,t,i)	PERLVAR(p,v,t)
+
+/* In Tru64 (__DEC && __osf__) the cc option -std1 causes that one
+ * cannot cast between void pointers and function pointers without
+ * info level warnings.  The PL_force_link_funcs[] would cause a few
+ * hundred of those warnings.  In code one can circumnavigate this by using
+ * unions that overlay the different pointers, but in declarations one
+ * cannot use this trick.  Therefore we just disable the warning here
+ * for the duration of the PL_force_link_funcs[] declaration. */
+
+#if defined(__DECC) && defined(__osf__)
+#pragma message save
+#pragma message disable (nonstandcast)
+#endif
+
+#include "perlvars.h"
+
+#if defined(__DECC) && defined(__osf__)
+#pragma message restore
+#endif
+
+#undef PERLVAR
+#undef PERLVARA
+#undef PERLVARI
+#undef PERLVARIC
+};
+#endif	/* DOINIT */
+
+END_EXTERN_C
+
+#endif	/* PERL_NO_FORCE_LINK */
+
+#else	/* !PERL_CORE */
+
+#undef  PL_appctx
+#define PL_appctx		(*Perl_Gappctx_ptr(NULL))
+#undef  PL_check
+#define PL_check		(*Perl_Gcheck_ptr(NULL))
+#undef  PL_check_mutex
+#define PL_check_mutex		(*Perl_Gcheck_mutex_ptr(NULL))
+#undef  PL_csighandlerp
+#define PL_csighandlerp		(*Perl_Gcsighandlerp_ptr(NULL))
+#undef  PL_curinterp
+#define PL_curinterp		(*Perl_Gcurinterp_ptr(NULL))
+#undef  PL_do_undump
+#define PL_do_undump		(*Perl_Gdo_undump_ptr(NULL))
+#undef  PL_dollarzero_mutex
+#define PL_dollarzero_mutex	(*Perl_Gdollarzero_mutex_ptr(NULL))
+#undef  PL_fold_locale
+#define PL_fold_locale		(*Perl_Gfold_locale_ptr(NULL))
+#undef  PL_hash_seed
+#define PL_hash_seed		(*Perl_Ghash_seed_ptr(NULL))
+#undef  PL_hash_seed_set
+#define PL_hash_seed_set	(*Perl_Ghash_seed_set_ptr(NULL))
+#undef  PL_hints_mutex
+#define PL_hints_mutex		(*Perl_Ghints_mutex_ptr(NULL))
+#undef  PL_keyword_plugin
+#define PL_keyword_plugin	(*Perl_Gkeyword_plugin_ptr(NULL))
+#undef  PL_locale_mutex
+#define PL_locale_mutex		(*Perl_Glocale_mutex_ptr(NULL))
+#undef  PL_malloc_mutex
+#define PL_malloc_mutex		(*Perl_Gmalloc_mutex_ptr(NULL))
+#undef  PL_mmap_page_size
+#define PL_mmap_page_size	(*Perl_Gmmap_page_size_ptr(NULL))
+#undef  PL_my_ctx_mutex
+#define PL_my_ctx_mutex		(*Perl_Gmy_ctx_mutex_ptr(NULL))
+#undef  PL_my_cxt_index
+#define PL_my_cxt_index		(*Perl_Gmy_cxt_index_ptr(NULL))
+#undef  PL_op_mutex
+#define PL_op_mutex		(*Perl_Gop_mutex_ptr(NULL))
+#undef  PL_op_seq
+#define PL_op_seq		(*Perl_Gop_seq_ptr(NULL))
+#undef  PL_op_sequence
+#define PL_op_sequence		(*Perl_Gop_sequence_ptr(NULL))
+#undef  PL_perlio_debug_fd
+#define PL_perlio_debug_fd	(*Perl_Gperlio_debug_fd_ptr(NULL))
+#undef  PL_perlio_fd_refcnt
+#define PL_perlio_fd_refcnt	(*Perl_Gperlio_fd_refcnt_ptr(NULL))
+#undef  PL_perlio_fd_refcnt_size
+#define PL_perlio_fd_refcnt_size	(*Perl_Gperlio_fd_refcnt_size_ptr(NULL))
+#undef  PL_perlio_mutex
+#define PL_perlio_mutex		(*Perl_Gperlio_mutex_ptr(NULL))
+#undef  PL_ppaddr
+#define PL_ppaddr		(*Perl_Gppaddr_ptr(NULL))
+#undef  PL_sh_path
+#define PL_sh_path		(*Perl_Gsh_path_ptr(NULL))
+#undef  PL_sig_defaulting
+#define PL_sig_defaulting	(*Perl_Gsig_defaulting_ptr(NULL))
+#undef  PL_sig_handlers_initted
+#define PL_sig_handlers_initted	(*Perl_Gsig_handlers_initted_ptr(NULL))
+#undef  PL_sig_ignoring
+#define PL_sig_ignoring		(*Perl_Gsig_ignoring_ptr(NULL))
+#undef  PL_sig_trapped
+#define PL_sig_trapped		(*Perl_Gsig_trapped_ptr(NULL))
+#undef  PL_sigfpe_saved
+#define PL_sigfpe_saved		(*Perl_Gsigfpe_saved_ptr(NULL))
+#undef  PL_sv_placeholder
+#define PL_sv_placeholder	(*Perl_Gsv_placeholder_ptr(NULL))
+#undef  PL_thr_key
+#define PL_thr_key		(*Perl_Gthr_key_ptr(NULL))
+#undef  PL_timesbase
+#define PL_timesbase		(*Perl_Gtimesbase_ptr(NULL))
+#undef  PL_use_safe_putenv
+#define PL_use_safe_putenv	(*Perl_Guse_safe_putenv_ptr(NULL))
+#undef  PL_veto_cleanup
+#define PL_veto_cleanup		(*Perl_Gveto_cleanup_ptr(NULL))
+#undef  PL_watch_pvx
+#define PL_watch_pvx		(*Perl_Gwatch_pvx_ptr(NULL))
+
+#endif /* !PERL_CORE */
+#endif /* MULTIPLICITY && PERL_GLOBAL_STRUCT */
+
+#endif /* __perlapi_h__ */
+
+/* ex: set ro: */
diff --git a/lib/5.24.1/x86_64-linux/CORE/perlio.h b/lib/5.24.1/x86_64-linux/CORE/perlio.h
new file mode 100644
index 00000000..1a3d480f
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/perlio.h
@@ -0,0 +1,343 @@
+/*    perlio.h
+ *
+ *    Copyright (C) 1996, 1997, 1999, 2000, 2001, 2002, 2003,
+ *    2004, 2005, 2006, 2007, by Larry Wall and others
+ *
+ *    You may distribute under the terms of either the GNU General Public
+ *    License or the Artistic License, as specified in the README file.
+ *
+ */
+
+#ifndef _PERLIO_H
+#define _PERLIO_H
+/*
+  Interface for perl to IO functions.
+  There is a hierarchy of Configure determined #define controls:
+   USE_STDIO   - No longer available via Configure.  Formerly forced
+                 PerlIO_xxx() to be #define-d onto stdio functions.
+                 Now generates compile-time error.
+
+   USE_PERLIO  - The primary Configure variable that enables PerlIO.
+                 PerlIO_xxx() are real functions
+                 defined in perlio.c which implement extra functionality
+                 required for utf8 support.
+
+*/
+
+#ifndef USE_PERLIO
+# define USE_STDIO
+#endif
+
+#ifdef USE_STDIO
+#  error "stdio is no longer supported as the default base layer -- use perlio."
+#endif
+
+/* --------------------  End of Configure controls ---------------------------- */
+
+/*
+ * Although we may not want stdio to be used including <stdio.h> here
+ * avoids issues where stdio.h has strange side effects
+ */
+#include <stdio.h>
+
+#if defined(USE_64_BIT_STDIO) && defined(HAS_FTELLO) && !defined(USE_FTELL64)
+#define ftell ftello
+#endif
+
+#if defined(USE_64_BIT_STDIO) && defined(HAS_FSEEKO) && !defined(USE_FSEEK64)
+#define fseek fseeko
+#endif
+
+/* BS2000 includes are sometimes a bit non standard :-( */
+#if defined(POSIX_BC) && defined(O_BINARY) && !defined(O_TEXT)
+#undef O_BINARY
+#endif
+
+#ifndef PerlIO
+/* ----------- PerlIO implementation ---------- */
+/* PerlIO not #define-d to something else - define the implementation */
+
+typedef struct _PerlIO PerlIOl;
+typedef struct _PerlIO_funcs PerlIO_funcs;
+typedef PerlIOl *PerlIO;
+#define PerlIO PerlIO
+#define PERLIO_LAYERS 1
+
+/* PERLIO_FUNCS_CONST is now on by default for efficiency, PERLIO_FUNCS_CONST
+   can be removed 1 day once stable & then PerlIO vtables are permanently RO */
+#ifdef PERLIO_FUNCS_CONST
+#define PERLIO_FUNCS_DECL(funcs) const PerlIO_funcs funcs
+#define PERLIO_FUNCS_CAST(funcs) (PerlIO_funcs*)(funcs)
+#else
+#define PERLIO_FUNCS_DECL(funcs) PerlIO_funcs funcs
+#define PERLIO_FUNCS_CAST(funcs) (funcs)
+#endif
+
+PERL_CALLCONV void PerlIO_define_layer(pTHX_ PerlIO_funcs *tab);
+PERL_CALLCONV PerlIO_funcs *PerlIO_find_layer(pTHX_ const char *name,
+                                              STRLEN len,
+				              int load);
+PERL_CALLCONV PerlIO *PerlIO_push(pTHX_ PerlIO *f, PERLIO_FUNCS_DECL(*tab),
+			          const char *mode, SV *arg);
+PERL_CALLCONV void PerlIO_pop(pTHX_ PerlIO *f);
+PERL_CALLCONV AV* PerlIO_get_layers(pTHX_ PerlIO *f);
+PERL_CALLCONV void PerlIO_clone(pTHX_ PerlInterpreter *proto,
+                                CLONE_PARAMS *param);
+
+#endif				/* PerlIO */
+
+/* ----------- End of implementation choices  ---------- */
+
+/* We now need to determine  what happens if source trys to use stdio.
+ * There are three cases based on PERLIO_NOT_STDIO which XS code
+ * can set how it wants.
+ */
+
+#ifdef PERL_CORE
+/* Make a choice for perl core code
+   - currently this is set to try and catch lingering raw stdio calls.
+     This is a known issue with some non UNIX ports which still use
+     "native" stdio features.
+*/
+#  ifndef PERLIO_NOT_STDIO
+#    define PERLIO_NOT_STDIO 1
+#  endif
+#else
+#  ifndef PERLIO_NOT_STDIO
+#    define PERLIO_NOT_STDIO 0
+#  endif
+#endif
+
+#ifdef PERLIO_NOT_STDIO
+#if PERLIO_NOT_STDIO
+/*
+ * PERLIO_NOT_STDIO #define'd as 1
+ * Case 1: Strong denial of stdio - make all stdio calls (we can think of) errors
+ */
+#include "nostdio.h"
+#else				/* if PERLIO_NOT_STDIO */
+/*
+ * PERLIO_NOT_STDIO #define'd as 0
+ * Case 2: Declares that both PerlIO and stdio can be used
+ */
+#endif				/* if PERLIO_NOT_STDIO */
+#else				/* ifdef PERLIO_NOT_STDIO */
+/*
+ * PERLIO_NOT_STDIO not defined
+ * Case 3: Try and fake stdio calls as PerlIO calls
+ */
+#include "fakesdio.h"
+#endif				/* ifndef PERLIO_NOT_STDIO */
+
+/* ----------- fill in things that have not got #define'd  ---------- */
+
+#ifndef Fpos_t
+#define Fpos_t Off_t
+#endif
+
+#ifndef EOF
+#define EOF (-1)
+#endif
+
+/* This is to catch case with no stdio */
+#ifndef BUFSIZ
+#define BUFSIZ 1024
+#endif
+
+/* The default buffer size for the perlio buffering layer */
+#ifndef PERLIOBUF_DEFAULT_BUFSIZ
+#define PERLIOBUF_DEFAULT_BUFSIZ (BUFSIZ > 8192 ? BUFSIZ : 8192)
+#endif
+
+#ifndef SEEK_SET
+#define SEEK_SET 0
+#endif
+
+#ifndef SEEK_CUR
+#define SEEK_CUR 1
+#endif
+
+#ifndef SEEK_END
+#define SEEK_END 2
+#endif
+
+#define PERLIO_DUP_CLONE	1
+#define PERLIO_DUP_FD		2
+
+/* --------------------- Now prototypes for functions --------------- */
+
+START_EXTERN_C
+#ifndef __attribute__format__
+#  ifdef HASATTRIBUTE_FORMAT
+#    define __attribute__format__(x,y,z) __attribute__((format(x,y,z)))
+#  else
+#    define __attribute__format__(x,y,z)
+#  endif
+#endif
+#ifndef PerlIO_init
+PERL_CALLCONV void PerlIO_init(pTHX);
+#endif
+#ifndef PerlIO_stdoutf
+PERL_CALLCONV int PerlIO_stdoutf(const char *, ...)
+    __attribute__format__(__printf__, 1, 2);
+#endif
+#ifndef PerlIO_puts
+PERL_CALLCONV int PerlIO_puts(PerlIO *, const char *);
+#endif
+#ifndef PerlIO_open
+PERL_CALLCONV PerlIO *PerlIO_open(const char *, const char *);
+#endif
+#ifndef PerlIO_openn
+PERL_CALLCONV PerlIO *PerlIO_openn(pTHX_ const char *layers, const char *mode,
+				   int fd, int imode, int perm, PerlIO *old,
+				   int narg, SV **arg);
+#endif
+#ifndef PerlIO_eof
+PERL_CALLCONV int PerlIO_eof(PerlIO *);
+#endif
+#ifndef PerlIO_error
+PERL_CALLCONV int PerlIO_error(PerlIO *);
+#endif
+#ifndef PerlIO_clearerr
+PERL_CALLCONV void PerlIO_clearerr(PerlIO *);
+#endif
+#ifndef PerlIO_getc
+PERL_CALLCONV int PerlIO_getc(PerlIO *);
+#endif
+#ifndef PerlIO_putc
+PERL_CALLCONV int PerlIO_putc(PerlIO *, int);
+#endif
+#ifndef PerlIO_ungetc
+PERL_CALLCONV int PerlIO_ungetc(PerlIO *, int);
+#endif
+#ifndef PerlIO_fdopen
+PERL_CALLCONV PerlIO *PerlIO_fdopen(int, const char *);
+#endif
+#ifndef PerlIO_importFILE
+PERL_CALLCONV PerlIO *PerlIO_importFILE(FILE *, const char *);
+#endif
+#ifndef PerlIO_exportFILE
+PERL_CALLCONV FILE *PerlIO_exportFILE(PerlIO *, const char *);
+#endif
+#ifndef PerlIO_findFILE
+PERL_CALLCONV FILE *PerlIO_findFILE(PerlIO *);
+#endif
+#ifndef PerlIO_releaseFILE
+PERL_CALLCONV void PerlIO_releaseFILE(PerlIO *, FILE *);
+#endif
+#ifndef PerlIO_read
+PERL_CALLCONV SSize_t PerlIO_read(PerlIO *, void *, Size_t);
+#endif
+#ifndef PerlIO_unread
+PERL_CALLCONV SSize_t PerlIO_unread(PerlIO *, const void *, Size_t);
+#endif
+#ifndef PerlIO_write
+PERL_CALLCONV SSize_t PerlIO_write(PerlIO *, const void *, Size_t);
+#endif
+#ifndef PerlIO_setlinebuf
+PERL_CALLCONV void PerlIO_setlinebuf(PerlIO *);
+#endif
+#ifndef PerlIO_printf
+PERL_CALLCONV int PerlIO_printf(PerlIO *, const char *, ...)
+    __attribute__format__(__printf__, 2, 3);
+#endif
+#ifndef PerlIO_vprintf
+PERL_CALLCONV int PerlIO_vprintf(PerlIO *, const char *, va_list);
+#endif
+#ifndef PerlIO_tell
+PERL_CALLCONV Off_t PerlIO_tell(PerlIO *);
+#endif
+#ifndef PerlIO_seek
+PERL_CALLCONV int PerlIO_seek(PerlIO *, Off_t, int);
+#endif
+#ifndef PerlIO_rewind
+PERL_CALLCONV void PerlIO_rewind(PerlIO *);
+#endif
+#ifndef PerlIO_has_base
+PERL_CALLCONV int PerlIO_has_base(PerlIO *);
+#endif
+#ifndef PerlIO_has_cntptr
+PERL_CALLCONV int PerlIO_has_cntptr(PerlIO *);
+#endif
+#ifndef PerlIO_fast_gets
+PERL_CALLCONV int PerlIO_fast_gets(PerlIO *);
+#endif
+#ifndef PerlIO_canset_cnt
+PERL_CALLCONV int PerlIO_canset_cnt(PerlIO *);
+#endif
+#ifndef PerlIO_get_ptr
+PERL_CALLCONV STDCHAR *PerlIO_get_ptr(PerlIO *);
+#endif
+#ifndef PerlIO_get_cnt
+PERL_CALLCONV SSize_t PerlIO_get_cnt(PerlIO *);
+#endif
+#ifndef PerlIO_set_cnt
+PERL_CALLCONV void PerlIO_set_cnt(PerlIO *, SSize_t);
+#endif
+#ifndef PerlIO_set_ptrcnt
+PERL_CALLCONV void PerlIO_set_ptrcnt(PerlIO *, STDCHAR *, SSize_t);
+#endif
+#ifndef PerlIO_get_base
+PERL_CALLCONV STDCHAR *PerlIO_get_base(PerlIO *);
+#endif
+#ifndef PerlIO_get_bufsiz
+PERL_CALLCONV SSize_t PerlIO_get_bufsiz(PerlIO *);
+#endif
+#ifndef PerlIO_tmpfile
+PERL_CALLCONV PerlIO *PerlIO_tmpfile(void);
+#endif
+#ifndef PerlIO_stdin
+PERL_CALLCONV PerlIO *PerlIO_stdin(void);
+#endif
+#ifndef PerlIO_stdout
+PERL_CALLCONV PerlIO *PerlIO_stdout(void);
+#endif
+#ifndef PerlIO_stderr
+PERL_CALLCONV PerlIO *PerlIO_stderr(void);
+#endif
+#ifndef PerlIO_getpos
+PERL_CALLCONV int PerlIO_getpos(PerlIO *, SV *);
+#endif
+#ifndef PerlIO_setpos
+PERL_CALLCONV int PerlIO_setpos(PerlIO *, SV *);
+#endif
+#ifndef PerlIO_fdupopen
+PERL_CALLCONV PerlIO *PerlIO_fdupopen(pTHX_ PerlIO *, CLONE_PARAMS *, int);
+#endif
+#if !defined(PerlIO_modestr)
+PERL_CALLCONV char *PerlIO_modestr(PerlIO *, char *buf);
+#endif
+#ifndef PerlIO_isutf8
+PERL_CALLCONV int PerlIO_isutf8(PerlIO *);
+#endif
+#ifndef PerlIO_apply_layers
+PERL_CALLCONV int PerlIO_apply_layers(pTHX_ PerlIO *f, const char *mode,
+				      const char *names);
+#endif
+#ifndef PerlIO_binmode
+PERL_CALLCONV int PerlIO_binmode(pTHX_ PerlIO *f, int iotype, int omode,
+			  	 const char *names);
+#endif
+#ifndef PerlIO_getname
+PERL_CALLCONV char *PerlIO_getname(PerlIO *, char *);
+#endif
+
+PERL_CALLCONV void PerlIO_destruct(pTHX);
+
+PERL_CALLCONV int PerlIO_intmode2str(int rawmode, char *mode, int *writing);
+
+#ifdef PERLIO_LAYERS
+PERL_CALLCONV void PerlIO_cleanup(pTHX);
+
+PERL_CALLCONV void PerlIO_debug(const char *fmt, ...)
+    __attribute__format__(__printf__, 1, 2);
+typedef struct PerlIO_list_s PerlIO_list_t;
+
+#endif
+
+END_EXTERN_C
+#endif				/* _PERLIO_H */
+
+/*
+ * ex: set ts=8 sts=4 sw=4 et:
+ */
diff --git a/lib/5.24.1/x86_64-linux/CORE/perliol.h b/lib/5.24.1/x86_64-linux/CORE/perliol.h
new file mode 100644
index 00000000..d15c9371
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/perliol.h
@@ -0,0 +1,293 @@
+#ifndef _PERLIOL_H
+#define _PERLIOL_H
+
+typedef struct {
+    PerlIO_funcs *funcs;
+    SV *arg;
+} PerlIO_pair_t;
+
+struct PerlIO_list_s {
+    IV refcnt;
+    IV cur;
+    IV len;
+    PerlIO_pair_t *array;
+};
+
+struct _PerlIO_funcs {
+    Size_t fsize;
+    const char *name;
+    Size_t size;
+    U32 kind;
+    IV (*Pushed) (pTHX_ PerlIO *f, const char *mode, SV *arg, PerlIO_funcs *tab);
+    IV (*Popped) (pTHX_ PerlIO *f);
+    PerlIO *(*Open) (pTHX_ PerlIO_funcs *tab,
+		     PerlIO_list_t *layers, IV n,
+		     const char *mode,
+		     int fd, int imode, int perm,
+		     PerlIO *old, int narg, SV **args);
+    IV (*Binmode)(pTHX_ PerlIO *f);
+    SV *(*Getarg) (pTHX_ PerlIO *f, CLONE_PARAMS *param, int flags);
+    IV (*Fileno) (pTHX_ PerlIO *f);
+    PerlIO *(*Dup) (pTHX_ PerlIO *f, PerlIO *o, CLONE_PARAMS *param, int flags);
+    /* Unix-like functions - cf sfio line disciplines */
+     SSize_t(*Read) (pTHX_ PerlIO *f, void *vbuf, Size_t count);
+     SSize_t(*Unread) (pTHX_ PerlIO *f, const void *vbuf, Size_t count);
+     SSize_t(*Write) (pTHX_ PerlIO *f, const void *vbuf, Size_t count);
+    IV (*Seek) (pTHX_ PerlIO *f, Off_t offset, int whence);
+     Off_t(*Tell) (pTHX_ PerlIO *f);
+    IV (*Close) (pTHX_ PerlIO *f);
+    /* Stdio-like buffered IO functions */
+    IV (*Flush) (pTHX_ PerlIO *f);
+    IV (*Fill) (pTHX_ PerlIO *f);
+    IV (*Eof) (pTHX_ PerlIO *f);
+    IV (*Error) (pTHX_ PerlIO *f);
+    void (*Clearerr) (pTHX_ PerlIO *f);
+    void (*Setlinebuf) (pTHX_ PerlIO *f);
+    /* Perl's snooping functions */
+    STDCHAR *(*Get_base) (pTHX_ PerlIO *f);
+     Size_t(*Get_bufsiz) (pTHX_ PerlIO *f);
+    STDCHAR *(*Get_ptr) (pTHX_ PerlIO *f);
+     SSize_t(*Get_cnt) (pTHX_ PerlIO *f);
+    void (*Set_ptrcnt) (pTHX_ PerlIO *f, STDCHAR * ptr, SSize_t cnt);
+};
+
+/*--------------------------------------------------------------------------------------*/
+/* Kind values */
+#define PERLIO_K_RAW		0x00000001
+#define PERLIO_K_BUFFERED	0x00000002
+#define PERLIO_K_CANCRLF	0x00000004
+#define PERLIO_K_FASTGETS	0x00000008
+#define PERLIO_K_DUMMY		0x00000010
+#define PERLIO_K_UTF8		0x00008000
+#define PERLIO_K_DESTRUCT	0x00010000
+#define PERLIO_K_MULTIARG	0x00020000
+
+/*--------------------------------------------------------------------------------------*/
+struct _PerlIO {
+    PerlIOl *next;		/* Lower layer */
+    PerlIO_funcs *tab;		/* Functions for this layer */
+    U32 flags;			/* Various flags for state */
+    int err;			/* Saved errno value */
+#ifdef VMS
+    unsigned os_err;		/* Saved vaxc$errno value */
+#elif defined (OS2)
+    unsigned long os_err;
+#elif defined (WIN32)
+    DWORD os_err;		/* Saved GetLastError() value */
+#endif
+    PerlIOl *head;		/* our ultimate parent pointer */
+};
+
+/*--------------------------------------------------------------------------------------*/
+
+/* Flag values */
+#define PERLIO_F_EOF		0x00000100
+#define PERLIO_F_CANWRITE	0x00000200
+#define PERLIO_F_CANREAD	0x00000400
+#define PERLIO_F_ERROR		0x00000800
+#define PERLIO_F_TRUNCATE	0x00001000
+#define PERLIO_F_APPEND		0x00002000
+#define PERLIO_F_CRLF		0x00004000
+#define PERLIO_F_UTF8		0x00008000
+#define PERLIO_F_UNBUF		0x00010000
+#define PERLIO_F_WRBUF		0x00020000
+#define PERLIO_F_RDBUF		0x00040000
+#define PERLIO_F_LINEBUF	0x00080000
+#define PERLIO_F_TEMP		0x00100000
+#define PERLIO_F_OPEN		0x00200000
+#define PERLIO_F_FASTGETS	0x00400000
+#define PERLIO_F_TTY		0x00800000
+#define PERLIO_F_NOTREG         0x01000000   
+#define PERLIO_F_CLEARED        0x02000000 /* layer cleared but not freed */
+
+#define PerlIOBase(f)      (*(f))
+#define PerlIOSelf(f,type) ((type *)PerlIOBase(f))
+#define PerlIONext(f)      (&(PerlIOBase(f)->next))
+#define PerlIOValid(f)     ((f) && *(f))
+
+/*--------------------------------------------------------------------------------------*/
+/* Data exports - EXTCONST rather than extern is needed for Cygwin */
+#undef EXTPERLIO 
+#ifdef PERLIO_FUNCS_CONST
+#define EXTPERLIO EXTCONST
+#else
+#define EXTPERLIO EXT
+#endif
+EXTPERLIO PerlIO_funcs PerlIO_unix;
+EXTPERLIO PerlIO_funcs PerlIO_perlio;
+EXTPERLIO PerlIO_funcs PerlIO_stdio;
+EXTPERLIO PerlIO_funcs PerlIO_crlf;
+EXTPERLIO PerlIO_funcs PerlIO_utf8;
+EXTPERLIO PerlIO_funcs PerlIO_byte;
+EXTPERLIO PerlIO_funcs PerlIO_raw;
+EXTPERLIO PerlIO_funcs PerlIO_pending;
+#ifdef WIN32
+EXTPERLIO PerlIO_funcs PerlIO_win32;
+#endif
+PERL_CALLCONV PerlIO *PerlIO_allocate(pTHX);
+PERL_CALLCONV SV *PerlIO_arg_fetch(PerlIO_list_t *av, IV n);
+#define PerlIOArg PerlIO_arg_fetch(layers,n)
+
+#ifdef PERLIO_USING_CRLF
+#define PERLIO_STDTEXT "t"
+#else
+#define PERLIO_STDTEXT ""
+#endif
+
+/*--------------------------------------------------------------------------------------*/
+/* perlio buffer layer
+   As this is reasonably generic its struct and "methods" are declared here
+   so they can be used to "inherit" from it.
+*/
+
+typedef struct {
+    struct _PerlIO base;	/* Base "class" info */
+    STDCHAR *buf;		/* Start of buffer */
+    STDCHAR *end;		/* End of valid part of buffer */
+    STDCHAR *ptr;		/* Current position in buffer */
+    Off_t posn;			/* Offset of buf into the file */
+    Size_t bufsiz;		/* Real size of buffer */
+    IV oneword;			/* Emergency buffer */
+} PerlIOBuf;
+
+PERL_CALLCONV int PerlIO_apply_layera(pTHX_ PerlIO *f, const char *mode,
+		    PerlIO_list_t *layers, IV n, IV max);
+PERL_CALLCONV int PerlIO_parse_layers(pTHX_ PerlIO_list_t *av, const char *names);
+PERL_CALLCONV PerlIO_funcs *PerlIO_layer_fetch(pTHX_ PerlIO_list_t *av, IV n, PerlIO_funcs *def);
+
+
+PERL_CALLCONV SV *PerlIO_sv_dup(pTHX_ SV *arg, CLONE_PARAMS *param);
+PERL_CALLCONV void PerlIO_cleantable(pTHX_ PerlIOl **tablep);
+PERL_CALLCONV SV * PerlIO_tab_sv(pTHX_ PerlIO_funcs *tab);
+PERL_CALLCONV void PerlIO_default_buffer(pTHX_ PerlIO_list_t *av);
+PERL_CALLCONV void PerlIO_stdstreams(pTHX);
+PERL_CALLCONV int PerlIO__close(pTHX_ PerlIO *f);
+PERL_CALLCONV PerlIO_list_t * PerlIO_resolve_layers(pTHX_ const char *layers, const char *mode, int narg, SV **args);
+PERL_CALLCONV PerlIO_funcs * PerlIO_default_layer(pTHX_ I32 n);
+PERL_CALLCONV PerlIO_list_t * PerlIO_default_layers(pTHX);
+PERL_CALLCONV PerlIO * PerlIO_reopen(const char *path, const char *mode, PerlIO *f);
+
+PERL_CALLCONV PerlIO_list_t *PerlIO_list_alloc(pTHX);
+PERL_CALLCONV PerlIO_list_t *PerlIO_clone_list(pTHX_ PerlIO_list_t *proto, CLONE_PARAMS *param);
+PERL_CALLCONV void PerlIO_list_free(pTHX_ PerlIO_list_t *list);
+PERL_CALLCONV void PerlIO_list_push(pTHX_ PerlIO_list_t *list, PerlIO_funcs *funcs, SV *arg);
+PERL_CALLCONV void PerlIO_list_free(pTHX_ PerlIO_list_t *list);
+
+/* PerlIO_teardown doesn't need exporting, but the EXTERN_C is needed
+ * for compiling as C++.  Must also match with what perl.h says. */
+EXTERN_C void PerlIO_teardown(void);
+
+/*--------------------------------------------------------------------------------------*/
+/* Generic, or stub layer functions */
+
+PERL_CALLCONV IV        PerlIOBase_binmode(pTHX_ PerlIO *f);
+PERL_CALLCONV void      PerlIOBase_clearerr(pTHX_ PerlIO *f);
+PERL_CALLCONV IV        PerlIOBase_close(pTHX_ PerlIO *f);
+PERL_CALLCONV PerlIO *  PerlIOBase_dup(pTHX_ PerlIO *f, PerlIO *o, CLONE_PARAMS *param, int flags);
+PERL_CALLCONV IV        PerlIOBase_eof(pTHX_ PerlIO *f);
+PERL_CALLCONV IV        PerlIOBase_error(pTHX_ PerlIO *f);
+PERL_CALLCONV IV        PerlIOBase_fileno(pTHX_ PerlIO *f);
+PERL_CALLCONV void      PerlIOBase_flush_linebuf(pTHX);
+PERL_CALLCONV IV        PerlIOBase_noop_fail(pTHX_ PerlIO *f);
+PERL_CALLCONV IV        PerlIOBase_noop_ok(pTHX_ PerlIO *f);
+PERL_CALLCONV IV        PerlIOBase_popped(pTHX_ PerlIO *f);
+PERL_CALLCONV IV        PerlIOBase_pushed(pTHX_ PerlIO *f, const char *mode, SV *arg, PerlIO_funcs *tab);
+PERL_CALLCONV PerlIO *  PerlIOBase_open(pTHX_ PerlIO_funcs *self, PerlIO_list_t *layers, IV n, const char *mode, int fd, int imode, int perm, PerlIO *old, int narg, SV **args);
+PERL_CALLCONV SSize_t   PerlIOBase_read(pTHX_ PerlIO *f, void *vbuf, Size_t count);
+PERL_CALLCONV void      PerlIOBase_setlinebuf(pTHX_ PerlIO *f);
+PERL_CALLCONV SSize_t   PerlIOBase_unread(pTHX_ PerlIO *f, const void *vbuf, Size_t count);
+
+/* Buf */
+PERL_CALLCONV Size_t    PerlIOBuf_bufsiz(pTHX_ PerlIO *f);
+PERL_CALLCONV IV        PerlIOBuf_close(pTHX_ PerlIO *f);
+PERL_CALLCONV PerlIO *  PerlIOBuf_dup(pTHX_ PerlIO *f, PerlIO *o, CLONE_PARAMS *param, int flags);
+PERL_CALLCONV IV        PerlIOBuf_fill(pTHX_ PerlIO *f);
+PERL_CALLCONV IV        PerlIOBuf_flush(pTHX_ PerlIO *f);
+PERL_CALLCONV STDCHAR * PerlIOBuf_get_base(pTHX_ PerlIO *f);
+PERL_CALLCONV SSize_t   PerlIOBuf_get_cnt(pTHX_ PerlIO *f);
+PERL_CALLCONV STDCHAR * PerlIOBuf_get_ptr(pTHX_ PerlIO *f);
+PERL_CALLCONV PerlIO *  PerlIOBuf_open(pTHX_ PerlIO_funcs *self, PerlIO_list_t *layers, IV n, const char *mode, int fd, int imode, int perm, PerlIO *old, int narg, SV **args);
+PERL_CALLCONV IV        PerlIOBuf_popped(pTHX_ PerlIO *f);
+PERL_CALLCONV IV        PerlIOBuf_pushed(pTHX_ PerlIO *f, const char *mode, SV *arg, PerlIO_funcs *tab);
+PERL_CALLCONV SSize_t   PerlIOBuf_read(pTHX_ PerlIO *f, void *vbuf, Size_t count);
+PERL_CALLCONV IV        PerlIOBuf_seek(pTHX_ PerlIO *f, Off_t offset, int whence);
+PERL_CALLCONV void      PerlIOBuf_set_ptrcnt(pTHX_ PerlIO *f, STDCHAR * ptr, SSize_t cnt);
+PERL_CALLCONV Off_t     PerlIOBuf_tell(pTHX_ PerlIO *f);
+PERL_CALLCONV SSize_t   PerlIOBuf_unread(pTHX_ PerlIO *f, const void *vbuf, Size_t count);
+PERL_CALLCONV SSize_t   PerlIOBuf_write(pTHX_ PerlIO *f, const void *vbuf, Size_t count);
+
+/* Crlf */
+PERL_CALLCONV IV        PerlIOCrlf_binmode(pTHX_ PerlIO *f);
+PERL_CALLCONV IV        PerlIOCrlf_flush(pTHX_ PerlIO *f);
+PERL_CALLCONV SSize_t   PerlIOCrlf_get_cnt(pTHX_ PerlIO *f);
+PERL_CALLCONV IV        PerlIOCrlf_pushed(pTHX_ PerlIO *f, const char *mode, SV *arg, PerlIO_funcs *tab);
+PERL_CALLCONV void      PerlIOCrlf_set_ptrcnt(pTHX_ PerlIO *f, STDCHAR * ptr, SSize_t cnt);
+PERL_CALLCONV SSize_t   PerlIOCrlf_unread(pTHX_ PerlIO *f, const void *vbuf, Size_t count);
+PERL_CALLCONV SSize_t   PerlIOCrlf_write(pTHX_ PerlIO *f, const void *vbuf, Size_t count);
+
+/* Pending */
+PERL_CALLCONV IV        PerlIOPending_close(pTHX_ PerlIO *f);
+PERL_CALLCONV IV        PerlIOPending_fill(pTHX_ PerlIO *f);
+PERL_CALLCONV IV        PerlIOPending_flush(pTHX_ PerlIO *f);
+PERL_CALLCONV IV        PerlIOPending_pushed(pTHX_ PerlIO *f, const char *mode, SV *arg, PerlIO_funcs *tab);
+PERL_CALLCONV SSize_t   PerlIOPending_read(pTHX_ PerlIO *f, void *vbuf, Size_t count);
+PERL_CALLCONV IV        PerlIOPending_seek(pTHX_ PerlIO *f, Off_t offset, int whence);
+PERL_CALLCONV void      PerlIOPending_set_ptrcnt(pTHX_ PerlIO *f, STDCHAR * ptr, SSize_t cnt);
+
+/* Pop */
+PERL_CALLCONV IV        PerlIOPop_pushed(pTHX_ PerlIO *f, const char *mode, SV *arg, PerlIO_funcs *tab);
+
+/* Raw */
+PERL_CALLCONV IV        PerlIORaw_pushed(pTHX_ PerlIO *f, const char *mode, SV *arg, PerlIO_funcs *tab);
+
+/* Stdio */
+PERL_CALLCONV void      PerlIOStdio_clearerr(pTHX_ PerlIO *f);
+PERL_CALLCONV IV        PerlIOStdio_close(pTHX_ PerlIO *f);
+PERL_CALLCONV PerlIO *  PerlIOStdio_dup(pTHX_ PerlIO *f, PerlIO *o, CLONE_PARAMS *param, int flags);
+PERL_CALLCONV IV        PerlIOStdio_eof(pTHX_ PerlIO *f);
+PERL_CALLCONV IV        PerlIOStdio_error(pTHX_ PerlIO *f);
+PERL_CALLCONV IV        PerlIOStdio_fileno(pTHX_ PerlIO *f);
+#ifdef USE_STDIO_PTR
+PERL_CALLCONV STDCHAR * PerlIOStdio_get_ptr(pTHX_ PerlIO *f);
+PERL_CALLCONV SSize_t   PerlIOStdio_get_cnt(pTHX_ PerlIO *f);
+PERL_CALLCONV void      PerlIOStdio_set_ptrcnt(pTHX_ PerlIO *f, STDCHAR * ptr, SSize_t cnt);
+#endif
+PERL_CALLCONV IV        PerlIOStdio_fill(pTHX_ PerlIO *f);
+PERL_CALLCONV IV        PerlIOStdio_flush(pTHX_ PerlIO *f);
+#ifdef FILE_base
+PERL_CALLCONV STDCHAR * PerlIOStdio_get_base(pTHX_ PerlIO *f);
+PERL_CALLCONV Size_t    PerlIOStdio_get_bufsiz(pTHX_ PerlIO *f);
+#endif
+PERL_CALLCONV char *    PerlIOStdio_mode(const char *mode, char *tmode);
+PERL_CALLCONV PerlIO *  PerlIOStdio_open(pTHX_ PerlIO_funcs *self, PerlIO_list_t *layers, IV n, const char *mode, int fd, int imode, int perm, PerlIO *f, int narg, SV **args);
+PERL_CALLCONV IV        PerlIOStdio_pushed(pTHX_ PerlIO *f, const char *mode, SV *arg, PerlIO_funcs *tab);
+PERL_CALLCONV SSize_t   PerlIOStdio_read(pTHX_ PerlIO *f, void *vbuf, Size_t count);
+PERL_CALLCONV IV        PerlIOStdio_seek(pTHX_ PerlIO *f, Off_t offset, int whence);
+PERL_CALLCONV void      PerlIOStdio_setlinebuf(pTHX_ PerlIO *f);
+PERL_CALLCONV Off_t     PerlIOStdio_tell(pTHX_ PerlIO *f);
+PERL_CALLCONV SSize_t   PerlIOStdio_unread(pTHX_ PerlIO *f, const void *vbuf, Size_t count);
+PERL_CALLCONV SSize_t   PerlIOStdio_write(pTHX_ PerlIO *f, const void *vbuf, Size_t count);
+
+/* Unix */
+PERL_CALLCONV IV        PerlIOUnix_close(pTHX_ PerlIO *f);
+PERL_CALLCONV PerlIO *  PerlIOUnix_dup(pTHX_ PerlIO *f, PerlIO *o, CLONE_PARAMS *param, int flags);
+PERL_CALLCONV IV        PerlIOUnix_fileno(pTHX_ PerlIO *f);
+PERL_CALLCONV int       PerlIOUnix_oflags(const char *mode);
+PERL_CALLCONV PerlIO *  PerlIOUnix_open(pTHX_ PerlIO_funcs *self, PerlIO_list_t *layers, IV n, const char *mode, int fd, int imode, int perm, PerlIO *f, int narg, SV **args);
+PERL_CALLCONV IV        PerlIOUnix_pushed(pTHX_ PerlIO *f, const char *mode, SV *arg, PerlIO_funcs *tab);
+PERL_CALLCONV SSize_t   PerlIOUnix_read(pTHX_ PerlIO *f, void *vbuf, Size_t count);
+PERL_CALLCONV int       PerlIOUnix_refcnt_dec(int fd);
+PERL_CALLCONV void      PerlIOUnix_refcnt_inc(int fd);
+PERL_CALLCONV int       PerlIOUnix_refcnt(int fd);
+PERL_CALLCONV IV        PerlIOUnix_seek(pTHX_ PerlIO *f, Off_t offset, int whence);
+PERL_CALLCONV Off_t     PerlIOUnix_tell(pTHX_ PerlIO *f);
+PERL_CALLCONV SSize_t   PerlIOUnix_write(pTHX_ PerlIO *f, const void *vbuf, Size_t count);
+
+/* Utf8 */
+PERL_CALLCONV IV        PerlIOUtf8_pushed(pTHX_ PerlIO *f, const char *mode, SV *arg, PerlIO_funcs *tab);
+
+#endif				/* _PERLIOL_H */
+
+/*
+ * ex: set ts=8 sts=4 sw=4 et:
+ */
diff --git a/lib/5.24.1/x86_64-linux/CORE/perlsdio.h b/lib/5.24.1/x86_64-linux/CORE/perlsdio.h
new file mode 100644
index 00000000..2d6b22eb
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/perlsdio.h
@@ -0,0 +1,21 @@
+/*    perlsdio.h
+ *
+ *    Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001,
+ *    2002, 2003, 2006, 2007, 2008 by Larry Wall and others
+ *
+ *    You may distribute under the terms of either the GNU General Public
+ *    License or the Artistic License, as specified in the README file.
+ *
+ */
+
+/* Shouldn't be possible to get here, but if we did ... */
+
+#ifdef PERLIO_IS_STDIO
+
+#  error "stdio is no longer supported as the default base layer -- use perlio."
+
+#endif /* PERLIO_IS_STDIO */
+
+/*
+ * ex: set ts=8 sts=4 sw=4 et:
+ */
diff --git a/lib/5.24.1/x86_64-linux/CORE/perlvars.h b/lib/5.24.1/x86_64-linux/CORE/perlvars.h
new file mode 100644
index 00000000..54662949
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/perlvars.h
@@ -0,0 +1,246 @@
+/*    perlvars.h
+ *
+ *    Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
+ *    by Larry Wall and others
+ *
+ *    You may distribute under the terms of either the GNU General Public
+ *    License or the Artistic License, as specified in the README file.
+ *
+ */
+
+/*
+=head1 Global Variables
+These variables are global to an entire process.  They are shared between
+all interpreters and all threads in a process.  Any variables not documented
+here may be changed or removed without notice, so don't use them!
+If you feel you really do need to use an unlisted variable, first send email to
+L<perl5-porters@perl.org|mailto:perl5-porters@perl.org>.  It may be that
+someone there will point out a way to accomplish what you need without using an
+internal variable.  But if not, you should get a go-ahead to document and then
+use the variable.
+
+=cut
+*/
+
+/* Don't forget to re-run regen/embed.pl to propagate changes! */
+
+/* This file describes the "global" variables used by perl
+ * This used to be in perl.h directly but we want to abstract out into
+ * distinct files which are per-thread, per-interpreter or really global,
+ * and how they're initialized.
+ *
+ * The 'G' prefix is only needed for vars that need appropriate #defines
+ * generated in embed*.h.  Such symbols are also used to generate
+ * the appropriate export list for win32. */
+
+/* global state */
+#if defined(USE_ITHREADS)
+PERLVAR(G, op_mutex,	perl_mutex)	/* Mutex for op refcounting */
+#endif
+PERLVARI(G, curinterp,	PerlInterpreter *, NULL)
+					/* currently running interpreter
+					 * (initial parent interpreter under
+					 * useithreads) */
+#if defined(USE_ITHREADS)
+PERLVAR(G, thr_key,	perl_key)	/* key to retrieve per-thread struct */
+#endif
+
+/* XXX does anyone even use this? */
+PERLVARI(G, do_undump,	bool,	FALSE)	/* -u or dump seen? */
+
+#ifndef PERL_USE_SAFE_PUTENV
+PERLVARI(G, use_safe_putenv, bool, TRUE)
+#endif
+
+#if defined(FAKE_PERSISTENT_SIGNAL_HANDLERS)||defined(FAKE_DEFAULT_SIGNAL_HANDLERS)
+PERLVARI(G, sig_handlers_initted, int, 0)
+#endif
+#ifdef FAKE_PERSISTENT_SIGNAL_HANDLERS
+PERLVARA(G, sig_ignoring, SIG_SIZE, int)
+					/* which signals we are ignoring */
+#endif
+#ifdef FAKE_DEFAULT_SIGNAL_HANDLERS
+PERLVARA(G, sig_defaulting, SIG_SIZE, int)
+#endif
+
+/* XXX signals are process-wide anyway, so we
+ * ignore the implications of this for threading */
+#ifndef HAS_SIGACTION
+PERLVARI(G, sig_trapped, int,	0)
+#endif
+
+#ifndef PERL_MICRO
+/* If Perl has to ignore SIGPFE, this is its saved state.
+ * See perl.h macros PERL_FPU_INIT and PERL_FPU_{PRE,POST}_EXEC. */
+PERLVAR(G, sigfpe_saved, Sighandler_t)
+PERLVARI(G, csighandlerp, Sighandler_t, Perl_csighandler)
+					/* Pointer to C-level sighandler */
+#endif
+
+/* This is constant on most architectures, a global on OS/2 */
+#ifdef OS2
+PERLVARI(G, sh_path,	char *, SH_PATH) /* full path of shell */
+#endif
+
+#ifdef USE_PERLIO
+
+#  if defined(USE_ITHREADS)
+PERLVAR(G, perlio_mutex, perl_mutex)    /* Mutex for perlio fd refcounts */
+#  endif
+
+PERLVARI(G, perlio_fd_refcnt, int *, 0) /* Pointer to array of fd refcounts.  */
+PERLVARI(G, perlio_fd_refcnt_size, int, 0) /* Size of the array */
+PERLVARI(G, perlio_debug_fd, int, 0)	/* the fd to write perlio debug into, 0 means not set yet */
+#endif
+
+#ifdef HAS_MMAP
+PERLVARI(G, mmap_page_size, IV, 0)
+#endif
+
+#if defined(USE_ITHREADS)
+PERLVAR(G, hints_mutex, perl_mutex)    /* Mutex for refcounted he refcounting */
+PERLVAR(G, locale_mutex, perl_mutex)   /* Mutex for setlocale() changing */
+
+#endif
+
+#ifdef DEBUGGING
+PERLVARI(G, watch_pvx,	char *, NULL)
+#endif
+
+/*
+=for apidoc AmU|Perl_check_t *|PL_check
+
+Array, indexed by opcode, of functions that will be called for the "check"
+phase of optree building during compilation of Perl code.  For most (but
+not all) types of op, once the op has been initially built and populated
+with child ops it will be filtered through the check function referenced
+by the appropriate element of this array.  The new op is passed in as the
+sole argument to the check function, and the check function returns the
+completed op.  The check function may (as the name suggests) check the op
+for validity and signal errors.  It may also initialise or modify parts of
+the ops, or perform more radical surgery such as adding or removing child
+ops, or even throw the op away and return a different op in its place.
+
+This array of function pointers is a convenient place to hook into the
+compilation process.  An XS module can put its own custom check function
+in place of any of the standard ones, to influence the compilation of a
+particular type of op.  However, a custom check function must never fully
+replace a standard check function (or even a custom check function from
+another module).  A module modifying checking must instead B<wrap> the
+preexisting check function.  A custom check function must be selective
+about when to apply its custom behaviour.  In the usual case where
+it decides not to do anything special with an op, it must chain the
+preexisting op function.  Check functions are thus linked in a chain,
+with the core's base checker at the end.
+
+For thread safety, modules should not write directly to this array.
+Instead, use the function L</wrap_op_checker>.
+
+=cut
+*/
+
+#if defined(USE_ITHREADS)
+PERLVAR(G, check_mutex,	perl_mutex)	/* Mutex for PL_check */
+#endif
+#ifdef PERL_GLOBAL_STRUCT 
+PERLVAR(G, ppaddr,	Perl_ppaddr_t *) /* or opcode.h */
+PERLVAR(G, check,	Perl_check_t *) /* or opcode.h */
+PERLVARA(G, fold_locale, 256, unsigned char) /* or perl.h */
+#endif
+
+#ifdef PERL_NEED_APPCTX
+PERLVAR(G, appctx,	void*)		/* the application context */
+#endif
+
+#if defined(HAS_TIMES) && defined(PERL_NEED_TIMESBASE)
+PERLVAR(G, timesbase,	struct tms)
+#endif
+
+/* allocate a unique index to every module that calls MY_CXT_INIT */
+
+#ifdef PERL_IMPLICIT_CONTEXT
+# ifdef USE_ITHREADS
+PERLVAR(G, my_ctx_mutex, perl_mutex)
+# endif
+PERLVARI(G, my_cxt_index, int,	0)
+#endif
+
+/* this is currently set without MUTEX protection, so keep it a type which
+ * can be set atomically (ie not a bit field) */
+PERLVARI(G, veto_cleanup, int, FALSE)	/* exit without cleanup */
+
+/*
+=for apidoc AmUx|Perl_keyword_plugin_t|PL_keyword_plugin
+
+Function pointer, pointing at a function used to handle extended keywords.
+The function should be declared as
+
+	int keyword_plugin_function(pTHX_
+		char *keyword_ptr, STRLEN keyword_len,
+		OP **op_ptr)
+
+The function is called from the tokeniser, whenever a possible keyword
+is seen.  C<keyword_ptr> points at the word in the parser's input
+buffer, and C<keyword_len> gives its length; it is not null-terminated.
+The function is expected to examine the word, and possibly other state
+such as L<%^H|perlvar/%^H>, to decide whether it wants to handle it
+as an extended keyword.  If it does not, the function should return
+C<KEYWORD_PLUGIN_DECLINE>, and the normal parser process will continue.
+
+If the function wants to handle the keyword, it first must
+parse anything following the keyword that is part of the syntax
+introduced by the keyword.  See L</Lexer interface> for details.
+
+When a keyword is being handled, the plugin function must build
+a tree of C<OP> structures, representing the code that was parsed.
+The root of the tree must be stored in C<*op_ptr>.  The function then
+returns a constant indicating the syntactic role of the construct that
+it has parsed: C<KEYWORD_PLUGIN_STMT> if it is a complete statement, or
+C<KEYWORD_PLUGIN_EXPR> if it is an expression.  Note that a statement
+construct cannot be used inside an expression (except via C<do BLOCK>
+and similar), and an expression is not a complete statement (it requires
+at least a terminating semicolon).
+
+When a keyword is handled, the plugin function may also have
+(compile-time) side effects.  It may modify C<%^H>, define functions, and
+so on.  Typically, if side effects are the main purpose of a handler,
+it does not wish to generate any ops to be included in the normal
+compilation.  In this case it is still required to supply an op tree,
+but it suffices to generate a single null op.
+
+That's how the C<*PL_keyword_plugin> function needs to behave overall.
+Conventionally, however, one does not completely replace the existing
+handler function.  Instead, take a copy of C<PL_keyword_plugin> before
+assigning your own function pointer to it.  Your handler function should
+look for keywords that it is interested in and handle those.  Where it
+is not interested, it should call the saved plugin function, passing on
+the arguments it received.  Thus C<PL_keyword_plugin> actually points
+at a chain of handler functions, all of which have an opportunity to
+handle keywords, and only the last function in the chain (built into
+the Perl core) will normally return C<KEYWORD_PLUGIN_DECLINE>.
+
+=cut
+*/
+
+PERLVARI(G, keyword_plugin, Perl_keyword_plugin_t, Perl_keyword_plugin_standard)
+
+PERLVARI(G, op_sequence, HV *, NULL)	/* dump.c */
+PERLVARI(G, op_seq,	UV,	0)	/* dump.c */
+
+#ifdef USE_ITHREADS
+PERLVAR(G, dollarzero_mutex, perl_mutex) /* Modifying $0 */
+#endif
+
+/* Restricted hashes placeholder value.
+   In theory, the contents are never used, only the address.
+   In practice, &PL_sv_placeholder is returned by some APIs, and the calling
+   code is checking SvOK().  */
+
+PERLVAR(G, sv_placeholder, SV)
+
+#if defined(MYMALLOC) && defined(USE_ITHREADS)
+PERLVAR(G, malloc_mutex, perl_mutex)	/* Mutex for malloc */
+#endif
+
+PERLVARI(G, hash_seed_set, bool, FALSE)	/* perl.c */
+PERLVARA(G, hash_seed, PERL_HASH_SEED_BYTES, unsigned char) /* perl.c and hv.h */
diff --git a/lib/5.24.1/x86_64-linux/CORE/perly.h b/lib/5.24.1/x86_64-linux/CORE/perly.h
new file mode 100644
index 00000000..acbdaaec
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/perly.h
@@ -0,0 +1,283 @@
+/* -*- buffer-read-only: t -*-
+   !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+   This file is built by regen_perly.pl from perly.y.
+   Any changes made here will be lost!
+ */
+
+#define PERL_BISON_VERSION  20007
+
+#ifdef PERL_CORE
+/* A Bison parser, made by GNU Bison 2.7.  */
+
+/* Bison interface for Yacc-like parsers in C
+   
+      Copyright (C) 1984, 1989-1990, 2000-2012 Free Software Foundation, Inc.
+   
+   This program is free software: you can redistribute it and/or modify
+   it under the terms of the GNU General Public License as published by
+   the Free Software Foundation, either version 3 of the License, or
+   (at your option) any later version.
+   
+   This program is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+   
+   You should have received a copy of the GNU General Public License
+   along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
+
+/* As a special exception, you may create a larger work that contains
+   part or all of the Bison parser skeleton and distribute that work
+   under terms of your choice, so long as that work isn't itself a
+   parser generator using the skeleton or a modified version thereof
+   as a parser skeleton.  Alternatively, if you modify or redistribute
+   the parser skeleton itself, you may (at your option) remove this
+   special exception, which will cause the skeleton and the resulting
+   Bison output files to be licensed under the GNU General Public
+   License without this special exception.
+   
+   This special exception was added by the Free Software Foundation in
+   version 2.2 of Bison.  */
+
+/* Enabling traces.  */
+#ifndef YYDEBUG
+# define YYDEBUG 0
+#endif
+#if YYDEBUG
+extern int yydebug;
+#endif
+
+/* Tokens.  */
+#ifndef YYTOKENTYPE
+# define YYTOKENTYPE
+   /* Put the tokens into the symbol table, so that GDB and other debuggers
+      know about them.  */
+   enum yytokentype {
+     GRAMPROG = 258,
+     GRAMEXPR = 259,
+     GRAMBLOCK = 260,
+     GRAMBARESTMT = 261,
+     GRAMFULLSTMT = 262,
+     GRAMSTMTSEQ = 263,
+     WORD = 264,
+     METHOD = 265,
+     FUNCMETH = 266,
+     THING = 267,
+     PMFUNC = 268,
+     PRIVATEREF = 269,
+     QWLIST = 270,
+     FUNC0OP = 271,
+     FUNC0SUB = 272,
+     UNIOPSUB = 273,
+     LSTOPSUB = 274,
+     PLUGEXPR = 275,
+     PLUGSTMT = 276,
+     LABEL = 277,
+     FORMAT = 278,
+     SUB = 279,
+     ANONSUB = 280,
+     PACKAGE = 281,
+     USE = 282,
+     WHILE = 283,
+     UNTIL = 284,
+     IF = 285,
+     UNLESS = 286,
+     ELSE = 287,
+     ELSIF = 288,
+     CONTINUE = 289,
+     FOR = 290,
+     GIVEN = 291,
+     WHEN = 292,
+     DEFAULT = 293,
+     LOOPEX = 294,
+     DOTDOT = 295,
+     YADAYADA = 296,
+     FUNC0 = 297,
+     FUNC1 = 298,
+     FUNC = 299,
+     UNIOP = 300,
+     LSTOP = 301,
+     RELOP = 302,
+     EQOP = 303,
+     MULOP = 304,
+     ADDOP = 305,
+     DOLSHARP = 306,
+     DO = 307,
+     HASHBRACK = 308,
+     NOAMP = 309,
+     LOCAL = 310,
+     MY = 311,
+     REQUIRE = 312,
+     COLONATTR = 313,
+     FORMLBRACK = 314,
+     FORMRBRACK = 315,
+     PREC_LOW = 316,
+     DOROP = 317,
+     OROP = 318,
+     ANDOP = 319,
+     NOTOP = 320,
+     ASSIGNOP = 321,
+     DORDOR = 322,
+     OROR = 323,
+     ANDAND = 324,
+     BITOROP = 325,
+     BITANDOP = 326,
+     SHIFTOP = 327,
+     MATCHOP = 328,
+     REFGEN = 329,
+     UMINUS = 330,
+     POWOP = 331,
+     POSTJOIN = 332,
+     POSTDEC = 333,
+     POSTINC = 334,
+     PREDEC = 335,
+     PREINC = 336,
+     ARROW = 337
+   };
+#endif
+
+/* Tokens.  */
+#define GRAMPROG 258
+#define GRAMEXPR 259
+#define GRAMBLOCK 260
+#define GRAMBARESTMT 261
+#define GRAMFULLSTMT 262
+#define GRAMSTMTSEQ 263
+#define WORD 264
+#define METHOD 265
+#define FUNCMETH 266
+#define THING 267
+#define PMFUNC 268
+#define PRIVATEREF 269
+#define QWLIST 270
+#define FUNC0OP 271
+#define FUNC0SUB 272
+#define UNIOPSUB 273
+#define LSTOPSUB 274
+#define PLUGEXPR 275
+#define PLUGSTMT 276
+#define LABEL 277
+#define FORMAT 278
+#define SUB 279
+#define ANONSUB 280
+#define PACKAGE 281
+#define USE 282
+#define WHILE 283
+#define UNTIL 284
+#define IF 285
+#define UNLESS 286
+#define ELSE 287
+#define ELSIF 288
+#define CONTINUE 289
+#define FOR 290
+#define GIVEN 291
+#define WHEN 292
+#define DEFAULT 293
+#define LOOPEX 294
+#define DOTDOT 295
+#define YADAYADA 296
+#define FUNC0 297
+#define FUNC1 298
+#define FUNC 299
+#define UNIOP 300
+#define LSTOP 301
+#define RELOP 302
+#define EQOP 303
+#define MULOP 304
+#define ADDOP 305
+#define DOLSHARP 306
+#define DO 307
+#define HASHBRACK 308
+#define NOAMP 309
+#define LOCAL 310
+#define MY 311
+#define REQUIRE 312
+#define COLONATTR 313
+#define FORMLBRACK 314
+#define FORMRBRACK 315
+#define PREC_LOW 316
+#define DOROP 317
+#define OROP 318
+#define ANDOP 319
+#define NOTOP 320
+#define ASSIGNOP 321
+#define DORDOR 322
+#define OROR 323
+#define ANDAND 324
+#define BITOROP 325
+#define BITANDOP 326
+#define SHIFTOP 327
+#define MATCHOP 328
+#define REFGEN 329
+#define UMINUS 330
+#define POWOP 331
+#define POSTJOIN 332
+#define POSTDEC 333
+#define POSTINC 334
+#define PREDEC 335
+#define PREINC 336
+#define ARROW 337
+
+
+#ifdef PERL_IN_TOKE_C
+static bool
+S_is_opval_token(int type) {
+    switch (type) {
+    case FUNC0OP:
+    case FUNC0SUB:
+    case FUNCMETH:
+    case LSTOPSUB:
+    case METHOD:
+    case PLUGEXPR:
+    case PLUGSTMT:
+    case PMFUNC:
+    case PRIVATEREF:
+    case QWLIST:
+    case THING:
+    case UNIOPSUB:
+    case WORD:
+	return 1;
+    }
+    return 0;
+}
+#endif /* PERL_IN_TOKE_C */
+#endif /* PERL_CORE */
+#if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED
+typedef union YYSTYPE
+{
+/* Line 2058 of yacc.c  */
+
+    I32	ival; /* __DEFAULT__ (marker for regen_perly.pl;
+				must always be 1st union member) */
+    char *pval;
+    OP *opval;
+    GV *gvval;
+
+
+/* Line 2058 of yacc.c  */
+} YYSTYPE;
+# define YYSTYPE_IS_TRIVIAL 1
+# define yystype YYSTYPE /* obsolescent; will be withdrawn */
+# define YYSTYPE_IS_DECLARED 1
+#endif
+
+
+#ifdef YYPARSE_PARAM
+#if defined __STDC__ || defined __cplusplus
+int yyparse (void *YYPARSE_PARAM);
+#else
+int yyparse ();
+#endif
+#else /* ! YYPARSE_PARAM */
+#if defined __STDC__ || defined __cplusplus
+int yyparse (void);
+#else
+int yyparse ();
+#endif
+#endif /* ! YYPARSE_PARAM */
+
+
+/* Generated from:
+ * 703ebd267cf8ca45f9dee9bc0f4b21511117a0c1dca1c8bc9438ce91950217ae perly.y
+ * a4923588f219644801577c514014847e1e5240f49413fa3b89d3306fa4874d07 regen_perly.pl
+ * ex: set ro: */
diff --git a/lib/5.24.1/x86_64-linux/CORE/pp.h b/lib/5.24.1/x86_64-linux/CORE/pp.h
new file mode 100644
index 00000000..d3d8f988
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/pp.h
@@ -0,0 +1,681 @@
+/*    pp.h
+ *
+ *    Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2001,
+ *    2002, 2003, 2004, 2005, 2006, 2007, 2008 by Larry Wall and others
+ *
+ *    You may distribute under the terms of either the GNU General Public
+ *    License or the Artistic License, as specified in the README file.
+ *
+ */
+
+#define PP(s) OP * Perl_##s(pTHX)
+
+/*
+=head1 Stack Manipulation Macros
+
+=for apidoc AmU||SP
+Stack pointer.  This is usually handled by C<xsubpp>.  See C<L</dSP>> and
+C<SPAGAIN>.
+
+=for apidoc AmU||MARK
+Stack marker variable for the XSUB.  See C<L</dMARK>>.
+
+=for apidoc Am|void|PUSHMARK|SP
+Opening bracket for arguments on a callback.  See C<L</PUTBACK>> and
+L<perlcall>.
+
+=for apidoc Ams||dSP
+Declares a local copy of perl's stack pointer for the XSUB, available via
+the C<SP> macro.  See C<L</SP>>.
+
+=for apidoc ms||djSP
+
+Declare Just C<SP>.  This is actually identical to C<dSP>, and declares
+a local copy of perl's stack pointer, available via the C<SP> macro.
+See C<L<perlapi/SP>>.  (Available for backward source code compatibility with
+the old (Perl 5.005) thread model.)
+
+=for apidoc Ams||dMARK
+Declare a stack marker variable, C<mark>, for the XSUB.  See C<L</MARK>> and
+C<L</dORIGMARK>>.
+
+=for apidoc Ams||dORIGMARK
+Saves the original stack mark for the XSUB.  See C<L</ORIGMARK>>.
+
+=for apidoc AmU||ORIGMARK
+The original stack mark for the XSUB.  See C<L</dORIGMARK>>.
+
+=for apidoc Ams||SPAGAIN
+Refetch the stack pointer.  Used after a callback.  See L<perlcall>.
+
+=cut */
+
+#undef SP /* Solaris 2.7 i386 has this in /usr/include/sys/reg.h */
+#define SP sp
+#define MARK mark
+#define TARG targ
+
+#if defined(DEBUGGING) && defined(PERL_USE_GCC_BRACE_GROUPS)
+
+#  define PUSHMARK(p) \
+    STMT_START {                                                      \
+        I32 * mark_stack_entry;                                       \
+        if (UNLIKELY((mark_stack_entry = ++PL_markstack_ptr)          \
+                                           == PL_markstack_max))      \
+	    mark_stack_entry = markstack_grow();                      \
+        *mark_stack_entry  = (I32)((p) - PL_stack_base);              \
+        DEBUG_s(DEBUG_v(PerlIO_printf(Perl_debug_log,                 \
+                "MARK push %p %"IVdf"\n",                             \
+                PL_markstack_ptr, (IV)*mark_stack_entry)));           \
+    } STMT_END
+
+#  define TOPMARK \
+    ({                                                                \
+        DEBUG_s(DEBUG_v(PerlIO_printf(Perl_debug_log,                 \
+                "MARK top  %p %"IVdf"\n",                             \
+                PL_markstack_ptr, (IV)*PL_markstack_ptr)));           \
+        *PL_markstack_ptr;                                            \
+    })
+
+#  define POPMARK \
+    ({                                                                \
+        DEBUG_s(DEBUG_v(PerlIO_printf(Perl_debug_log,                 \
+                "MARK pop  %p %"IVdf"\n",                             \
+                (PL_markstack_ptr-1), (IV)*(PL_markstack_ptr-1))));   \
+        assert((PL_markstack_ptr > PL_markstack) || !"MARK underflow");\
+        *PL_markstack_ptr--;                                          \
+    })
+
+#  define INCMARK \
+    ({                                                                \
+        DEBUG_s(DEBUG_v(PerlIO_printf(Perl_debug_log,                 \
+                "MARK inc  %p %"IVdf"\n",                             \
+                (PL_markstack_ptr+1), (IV)*(PL_markstack_ptr+1))));   \
+        *PL_markstack_ptr++;                                          \
+    })
+
+#else
+
+#  define PUSHMARK(p)                                                   \
+    STMT_START {					              \
+        I32 * mark_stack_entry;                                       \
+        if (UNLIKELY((mark_stack_entry = ++PL_markstack_ptr) == PL_markstack_max)) \
+	    mark_stack_entry = markstack_grow();                      \
+        *mark_stack_entry  = (I32)((p) - PL_stack_base);              \
+    } STMT_END
+#  define TOPMARK                (*PL_markstack_ptr)
+#  define POPMARK                (*PL_markstack_ptr--)
+#  define INCMARK                (*PL_markstack_ptr++)
+#endif
+
+#define dSP		SV **sp = PL_stack_sp
+#define djSP		dSP
+#define dMARK		SV **mark = PL_stack_base + POPMARK
+#define dORIGMARK	const I32 origmark = (I32)(mark - PL_stack_base)
+#define ORIGMARK	(PL_stack_base + origmark)
+
+#define SPAGAIN		sp = PL_stack_sp
+#define MSPAGAIN	STMT_START { sp = PL_stack_sp; mark = ORIGMARK; } STMT_END
+
+#define GETTARGETSTACKED targ = (PL_op->op_flags & OPf_STACKED ? POPs : PAD_SV(PL_op->op_targ))
+#define dTARGETSTACKED SV * GETTARGETSTACKED
+
+#define GETTARGET targ = PAD_SV(PL_op->op_targ)
+#define dTARGET SV * GETTARGET
+
+#define GETATARGET targ = (PL_op->op_flags & OPf_STACKED ? sp[-1] : PAD_SV(PL_op->op_targ))
+#define dATARGET SV * GETATARGET
+
+#define dTARG SV *targ
+
+#define NORMAL PL_op->op_next
+#define DIE return Perl_die
+
+/*
+=for apidoc Ams||PUTBACK
+Closing bracket for XSUB arguments.  This is usually handled by C<xsubpp>.
+See C<L</PUSHMARK>> and L<perlcall> for other uses.
+
+=for apidoc Amn|SV*|POPs
+Pops an SV off the stack.
+
+=for apidoc Amn|char*|POPp
+Pops a string off the stack.
+
+=for apidoc Amn|char*|POPpx
+Pops a string off the stack.  Identical to POPp.  There are two names for
+historical reasons.
+
+=for apidoc Amn|char*|POPpbytex
+Pops a string off the stack which must consist of bytes i.e. characters < 256.
+
+=for apidoc Amn|NV|POPn
+Pops a double off the stack.
+
+=for apidoc Amn|IV|POPi
+Pops an integer off the stack.
+
+=for apidoc Amn|UV|POPu
+Pops an unsigned integer off the stack.
+
+=for apidoc Amn|long|POPl
+Pops a long off the stack.
+
+=for apidoc Amn|long|POPul
+Pops an unsigned long off the stack.
+
+=cut
+*/
+
+#define PUTBACK		PL_stack_sp = sp
+#define RETURN		return (PUTBACK, NORMAL)
+#define RETURNOP(o)	return (PUTBACK, o)
+#define RETURNX(x)	return (x, PUTBACK, NORMAL)
+
+#define POPs		(*sp--)
+#define POPp		POPpx
+#define POPpx		(SvPVx_nolen(POPs))
+#define POPpconstx	(SvPVx_nolen_const(POPs))
+#define POPpbytex	(SvPVbytex_nolen(POPs))
+#define POPn		(SvNVx(POPs))
+#define POPi		((IV)SvIVx(POPs))
+#define POPu		((UV)SvUVx(POPs))
+#define POPl		((long)SvIVx(POPs))
+#define POPul		((unsigned long)SvIVx(POPs))
+
+#define TOPs		(*sp)
+#define TOPm1s		(*(sp-1))
+#define TOPp1s		(*(sp+1))
+#define TOPp		TOPpx
+#define TOPpx		(SvPV_nolen(TOPs))
+#define TOPn		(SvNV(TOPs))
+#define TOPi		((IV)SvIV(TOPs))
+#define TOPu		((UV)SvUV(TOPs))
+#define TOPl		((long)SvIV(TOPs))
+#define TOPul		((unsigned long)SvUV(TOPs))
+
+/* Go to some pains in the rare event that we must extend the stack. */
+
+/*
+=for apidoc Am|void|EXTEND|SP|SSize_t nitems
+Used to extend the argument stack for an XSUB's return values.  Once
+used, guarantees that there is room for at least C<nitems> to be pushed
+onto the stack.
+
+=for apidoc Am|void|PUSHs|SV* sv
+Push an SV onto the stack.  The stack must have room for this element.
+Does not handle 'set' magic.  Does not use C<TARG>.  See also
+C<L</PUSHmortal>>, C<L</XPUSHs>>, and C<L</XPUSHmortal>>.
+
+=for apidoc Am|void|PUSHp|char* str|STRLEN len
+Push a string onto the stack.  The stack must have room for this element.
+The C<len> indicates the length of the string.  Handles 'set' magic.  Uses
+C<TARG>, so C<dTARGET> or C<dXSTARG> should be called to declare it.  Do not
+call multiple C<TARG>-oriented macros to return lists from XSUB's - see
+C<L</mPUSHp>> instead.  See also C<L</XPUSHp>> and C<L</mXPUSHp>>.
+
+=for apidoc Am|void|PUSHn|NV nv
+Push a double onto the stack.  The stack must have room for this element.
+Handles 'set' magic.  Uses C<TARG>, so C<dTARGET> or C<dXSTARG> should be
+called to declare it.  Do not call multiple C<TARG>-oriented macros to
+return lists from XSUB's - see C<L</mPUSHn>> instead.  See also C<L</XPUSHn>>
+and C<L</mXPUSHn>>.
+
+=for apidoc Am|void|PUSHi|IV iv
+Push an integer onto the stack.  The stack must have room for this element.
+Handles 'set' magic.  Uses C<TARG>, so C<dTARGET> or C<dXSTARG> should be
+called to declare it.  Do not call multiple C<TARG>-oriented macros to 
+return lists from XSUB's - see C<L</mPUSHi>> instead.  See also C<L</XPUSHi>>
+and C<L</mXPUSHi>>.
+
+=for apidoc Am|void|PUSHu|UV uv
+Push an unsigned integer onto the stack.  The stack must have room for this
+element.  Handles 'set' magic.  Uses C<TARG>, so C<dTARGET> or C<dXSTARG>
+should be called to declare it.  Do not call multiple C<TARG>-oriented
+macros to return lists from XSUB's - see C<L</mPUSHu>> instead.  See also
+C<L</XPUSHu>> and C<L</mXPUSHu>>.
+
+=for apidoc Am|void|XPUSHs|SV* sv
+Push an SV onto the stack, extending the stack if necessary.  Does not
+handle 'set' magic.  Does not use C<TARG>.  See also C<L</XPUSHmortal>>,
+C<PUSHs> and C<PUSHmortal>.
+
+=for apidoc Am|void|XPUSHp|char* str|STRLEN len
+Push a string onto the stack, extending the stack if necessary.  The C<len>
+indicates the length of the string.  Handles 'set' magic.  Uses C<TARG>, so
+C<dTARGET> or C<dXSTARG> should be called to declare it.  Do not call
+multiple C<TARG>-oriented macros to return lists from XSUB's - see
+C<L</mXPUSHp>> instead.  See also C<L</PUSHp>> and C<L</mPUSHp>>.
+
+=for apidoc Am|void|XPUSHn|NV nv
+Push a double onto the stack, extending the stack if necessary.  Handles
+'set' magic.  Uses C<TARG>, so C<dTARGET> or C<dXSTARG> should be called to
+declare it.  Do not call multiple C<TARG>-oriented macros to return lists
+from XSUB's - see C<L</mXPUSHn>> instead.  See also C<L</PUSHn>> and
+C<L</mPUSHn>>.
+
+=for apidoc Am|void|XPUSHi|IV iv
+Push an integer onto the stack, extending the stack if necessary.  Handles
+'set' magic.  Uses C<TARG>, so C<dTARGET> or C<dXSTARG> should be called to
+declare it.  Do not call multiple C<TARG>-oriented macros to return lists
+from XSUB's - see C<L</mXPUSHi>> instead.  See also C<L</PUSHi>> and
+C<L</mPUSHi>>.
+
+=for apidoc Am|void|XPUSHu|UV uv
+Push an unsigned integer onto the stack, extending the stack if necessary.
+Handles 'set' magic.  Uses C<TARG>, so C<dTARGET> or C<dXSTARG> should be
+called to declare it.  Do not call multiple C<TARG>-oriented macros to
+return lists from XSUB's - see C<L</mXPUSHu>> instead.  See also C<L</PUSHu>> and
+C<L</mPUSHu>>.
+
+=for apidoc Am|void|mPUSHs|SV* sv
+Push an SV onto the stack and mortalizes the SV.  The stack must have room
+for this element.  Does not use C<TARG>.  See also C<L</PUSHs>> and
+C<L</mXPUSHs>>.
+
+=for apidoc Am|void|PUSHmortal
+Push a new mortal SV onto the stack.  The stack must have room for this
+element.  Does not use C<TARG>.  See also C<L</PUSHs>>, C<L</XPUSHmortal>> and
+C<L</XPUSHs>>.
+
+=for apidoc Am|void|mPUSHp|char* str|STRLEN len
+Push a string onto the stack.  The stack must have room for this element.
+The C<len> indicates the length of the string.  Does not use C<TARG>.
+See also C<L</PUSHp>>, C<L</mXPUSHp>> and C<L</XPUSHp>>.
+
+=for apidoc Am|void|mPUSHn|NV nv
+Push a double onto the stack.  The stack must have room for this element.
+Does not use C<TARG>.  See also C<L</PUSHn>>, C<L</mXPUSHn>> and C<L</XPUSHn>>.
+
+=for apidoc Am|void|mPUSHi|IV iv
+Push an integer onto the stack.  The stack must have room for this element.
+Does not use C<TARG>.  See also C<L</PUSHi>>, C<L</mXPUSHi>> and C<L</XPUSHi>>.
+
+=for apidoc Am|void|mPUSHu|UV uv
+Push an unsigned integer onto the stack.  The stack must have room for this
+element.  Does not use C<TARG>.  See also C<L</PUSHu>>, C<L</mXPUSHu>> and
+C<L</XPUSHu>>.
+
+=for apidoc Am|void|mXPUSHs|SV* sv
+Push an SV onto the stack, extending the stack if necessary and mortalizes
+the SV.  Does not use C<TARG>.  See also C<L</XPUSHs>> and C<L</mPUSHs>>.
+
+=for apidoc Am|void|XPUSHmortal
+Push a new mortal SV onto the stack, extending the stack if necessary.
+Does not use C<TARG>.  See also C<L</XPUSHs>>, C<L</PUSHmortal>> and
+C<L</PUSHs>>.
+
+=for apidoc Am|void|mXPUSHp|char* str|STRLEN len
+Push a string onto the stack, extending the stack if necessary.  The C<len>
+indicates the length of the string.  Does not use C<TARG>.  See also
+C<L</XPUSHp>>, C<mPUSHp> and C<PUSHp>.
+
+=for apidoc Am|void|mXPUSHn|NV nv
+Push a double onto the stack, extending the stack if necessary.
+Does not use C<TARG>.  See also C<L</XPUSHn>>, C<L</mPUSHn>> and C<L</PUSHn>>.
+
+=for apidoc Am|void|mXPUSHi|IV iv
+Push an integer onto the stack, extending the stack if necessary.
+Does not use C<TARG>.  See also C<L</XPUSHi>>, C<L</mPUSHi>> and C<L</PUSHi>>.
+
+=for apidoc Am|void|mXPUSHu|UV uv
+Push an unsigned integer onto the stack, extending the stack if necessary.
+Does not use C<TARG>.  See also C<L</XPUSHu>>, C<L</mPUSHu>> and C<L</PUSHu>>.
+
+=cut
+*/
+
+/* _EXTEND_SAFE_N(n): private helper macro for EXTEND().
+ * Tests whether the value of n would be truncated when implicitly cast to
+ * SSize_t as an arg to stack_grow(). If so, sets it to -1 instead to
+ * trigger a panic. It will be constant folded on platforms where this
+ * can't happen.
+ */
+
+#define _EXTEND_SAFE_N(n) \
+        (sizeof(n) > sizeof(SSize_t) && ((SSize_t)(n) != (n)) ? -1 : (n))
+
+#ifdef STRESS_REALLOC
+# define EXTEND(p,n)   STMT_START {                                     \
+                           sp = stack_grow(sp,p,_EXTEND_SAFE_N(n));     \
+                           PERL_UNUSED_VAR(sp);                         \
+                       } STMT_END
+/* Same thing, but update mark register too. */
+# define MEXTEND(p,n)   STMT_START {                                    \
+                            const SSize_t markoff = mark - PL_stack_base; \
+                            sp = stack_grow(sp,p,_EXTEND_SAFE_N(n));    \
+                            mark = PL_stack_base + markoff;             \
+                            PERL_UNUSED_VAR(sp);                        \
+                        } STMT_END
+#else
+
+/* _EXTEND_NEEDS_GROW(p,n): private helper macro for EXTEND().
+ * Tests to see whether n is too big and we need to grow the stack. Be
+ * very careful if modifying this. There are many ways to get things wrong
+ * (wrapping, truncating etc) that could cause a false negative and cause
+ * the call to stack_grow() to be skipped. On the other hand, false
+ * positives are safe.
+ * Bear in mind that sizeof(p) may be less than, equal to, or greater
+ * than sizeof(n), and while n is documented to be signed, someone might
+ * pass an unsigned value or expression. In general don't use casts to
+ * avoid warnings; instead expect the caller to fix their code.
+ * It is legal for p to be greater than PL_stack_max.
+ * If the allocated stack is already very large but current usage is
+ * small, then PL_stack_max - p might wrap round to a negative value, but
+ * this just gives a safe false positive
+ */
+
+#  define _EXTEND_NEEDS_GROW(p,n) ( (n) < 0 || PL_stack_max - p < (n))
+
+#  define EXTEND(p,n)   STMT_START {                                    \
+                         if (UNLIKELY(_EXTEND_NEEDS_GROW(p,n))) {       \
+                           sp = stack_grow(sp,p,_EXTEND_SAFE_N(n));     \
+                           PERL_UNUSED_VAR(sp);                         \
+                         } } STMT_END
+/* Same thing, but update mark register too. */
+#  define MEXTEND(p,n)  STMT_START {                                    \
+                         if (UNLIKELY(_EXTEND_NEEDS_GROW(p,n))) {       \
+                           const SSize_t markoff = mark - PL_stack_base;\
+                           sp = stack_grow(sp,p,_EXTEND_SAFE_N(n));     \
+                           mark = PL_stack_base + markoff;              \
+                           PERL_UNUSED_VAR(sp);                         \
+                         } } STMT_END
+#endif
+
+/* set TARG to the IV value i. If do_taint is false,
+ * assume that PL_tainted can never be true */
+#define TARGi(i, do_taint) \
+    STMT_START {                                                        \
+        IV TARGi_iv = i;                                                \
+        if (LIKELY(                                                     \
+              ((SvFLAGS(TARG) & (SVTYPEMASK|SVf_THINKFIRST|SVf_IVisUV)) == SVt_IV) \
+            & (do_taint ? !TAINT_get : 1)))                             \
+        {                                                               \
+            /* Cheap SvIOK_only().                                      \
+             * Assert that flags which SvIOK_only() would test or       \
+             * clear can't be set, because we're SVt_IV */              \
+            assert(!(SvFLAGS(TARG) &                                    \
+                (SVf_OOK|SVf_UTF8|(SVf_OK & ~(SVf_IOK|SVp_IOK)))));     \
+            SvFLAGS(TARG) |= (SVf_IOK|SVp_IOK);                         \
+            /* SvIV_set() where sv_any points to head */                \
+            TARG->sv_u.svu_iv = TARGi_iv;                               \
+        }                                                               \
+        else                                                            \
+            sv_setiv_mg(targ, TARGi_iv);                                \
+    } STMT_END
+
+/* set TARG to the UV value u. If do_taint is false,
+ * assume that PL_tainted can never be true */
+#define TARGu(u, do_taint) \
+    STMT_START {                                                        \
+        UV TARGu_uv = u;                                                \
+        if (LIKELY(                                                     \
+              ((SvFLAGS(TARG) & (SVTYPEMASK|SVf_THINKFIRST|SVf_IVisUV)) == SVt_IV) \
+            & (do_taint ? !TAINT_get : 1)                               \
+            & (TARGu_uv <= (UV)IV_MAX)))                                \
+        {                                                               \
+            /* Cheap SvIOK_only().                                      \
+             * Assert that flags which SvIOK_only() would test or       \
+             * clear can't be set, because we're SVt_IV */              \
+            assert(!(SvFLAGS(TARG) &                                    \
+                (SVf_OOK|SVf_UTF8|(SVf_OK & ~(SVf_IOK|SVp_IOK)))));     \
+            SvFLAGS(TARG) |= (SVf_IOK|SVp_IOK);                         \
+            /* SvIV_set() where sv_any points to head */                \
+            TARG->sv_u.svu_iv = TARGu_uv;                               \
+        }                                                               \
+        else                                                            \
+            sv_setuv_mg(targ, TARGu_uv);                                \
+    } STMT_END
+
+/* set TARG to the NV value n. If do_taint is false,
+ * assume that PL_tainted can never be true */
+#define TARGn(n, do_taint) \
+    STMT_START {                                                        \
+        NV TARGn_nv = n;                                                \
+        if (LIKELY(                                                     \
+              ((SvFLAGS(TARG) & (SVTYPEMASK|SVf_THINKFIRST)) == SVt_NV) \
+            & (do_taint ? !TAINT_get : 1)))                             \
+        {                                                               \
+            /* Cheap SvNOK_only().                                      \
+             * Assert that flags which SvNOK_only() would test or       \
+             * clear can't be set, because we're SVt_NV */              \
+            assert(!(SvFLAGS(TARG) &                                    \
+                (SVf_OOK|SVf_UTF8|(SVf_OK & ~(SVf_NOK|SVp_NOK)))));     \
+            SvFLAGS(TARG) |= (SVf_NOK|SVp_NOK);                         \
+            SvNV_set(TARG, TARGn_nv);                                   \
+        }                                                               \
+        else                                                            \
+            sv_setnv_mg(targ, TARGn_nv);                                \
+    } STMT_END
+
+#define PUSHs(s)	(*++sp = (s))
+#define PUSHTARG	STMT_START { SvSETMAGIC(TARG); PUSHs(TARG); } STMT_END
+#define PUSHp(p,l)	STMT_START { sv_setpvn(TARG, (p), (l)); PUSHTARG; } STMT_END
+#define PUSHn(n)	STMT_START { TARGn(n,1); PUSHs(TARG); } STMT_END
+#define PUSHi(i)	STMT_START { TARGi(i,1); PUSHs(TARG); } STMT_END
+#define PUSHu(u)	STMT_START { TARGu(u,1); PUSHs(TARG); } STMT_END
+
+#define XPUSHs(s)	STMT_START { EXTEND(sp,1); *++sp = (s); } STMT_END
+#define XPUSHTARG	STMT_START { SvSETMAGIC(TARG); XPUSHs(TARG); } STMT_END
+#define XPUSHp(p,l)	STMT_START { sv_setpvn(TARG, (p), (l)); XPUSHTARG; } STMT_END
+#define XPUSHn(n)	STMT_START { TARGn(n,1); XPUSHs(TARG); } STMT_END
+#define XPUSHi(i)	STMT_START { TARGi(i,1); XPUSHs(TARG); } STMT_END
+#define XPUSHu(u)	STMT_START { TARGu(u,1); XPUSHs(TARG); } STMT_END
+#define XPUSHundef	STMT_START { SvOK_off(TARG); XPUSHs(TARG); } STMT_END
+
+#define mPUSHs(s)	PUSHs(sv_2mortal(s))
+#define PUSHmortal	PUSHs(sv_newmortal())
+#define mPUSHp(p,l)	PUSHs(newSVpvn_flags((p), (l), SVs_TEMP))
+#define mPUSHn(n)	sv_setnv(PUSHmortal, (NV)(n))
+#define mPUSHi(i)	sv_setiv(PUSHmortal, (IV)(i))
+#define mPUSHu(u)	sv_setuv(PUSHmortal, (UV)(u))
+
+#define mXPUSHs(s)	XPUSHs(sv_2mortal(s))
+#define XPUSHmortal	XPUSHs(sv_newmortal())
+#define mXPUSHp(p,l)	STMT_START { EXTEND(sp,1); mPUSHp((p), (l)); } STMT_END
+#define mXPUSHn(n)	STMT_START { EXTEND(sp,1); sv_setnv(PUSHmortal, (NV)(n)); } STMT_END
+#define mXPUSHi(i)	STMT_START { EXTEND(sp,1); sv_setiv(PUSHmortal, (IV)(i)); } STMT_END
+#define mXPUSHu(u)	STMT_START { EXTEND(sp,1); sv_setuv(PUSHmortal, (UV)(u)); } STMT_END
+
+#define SETs(s)		(*sp = s)
+#define SETTARG		STMT_START { SvSETMAGIC(TARG); SETs(TARG); } STMT_END
+#define SETp(p,l)	STMT_START { sv_setpvn(TARG, (p), (l)); SETTARG; } STMT_END
+#define SETn(n)		STMT_START { TARGn(n,1); SETs(TARG); } STMT_END
+#define SETi(i)		STMT_START { TARGi(i,1); SETs(TARG); } STMT_END
+#define SETu(u)		STMT_START { TARGu(u,1); SETs(TARG); } STMT_END
+
+#define dTOPss		SV *sv = TOPs
+#define dPOPss		SV *sv = POPs
+#define dTOPnv		NV value = TOPn
+#define dPOPnv		NV value = POPn
+#define dPOPnv_nomg	NV value = (sp--, SvNV_nomg(TOPp1s))
+#define dTOPiv		IV value = TOPi
+#define dPOPiv		IV value = POPi
+#define dTOPuv		UV value = TOPu
+#define dPOPuv		UV value = POPu
+
+#define dPOPXssrl(X)	SV *right = POPs; SV *left = CAT2(X,s)
+#define dPOPXnnrl(X)	NV right = POPn; NV left = CAT2(X,n)
+#define dPOPXiirl(X)	IV right = POPi; IV left = CAT2(X,i)
+
+#define USE_LEFT(sv) \
+	(SvOK(sv) || !(PL_op->op_flags & OPf_STACKED))
+#define dPOPXiirl_ul_nomg(X) \
+    IV right = (sp--, SvIV_nomg(TOPp1s));		\
+    SV *leftsv = CAT2(X,s);				\
+    IV left = USE_LEFT(leftsv) ? SvIV_nomg(leftsv) : 0
+
+#define dPOPPOPssrl	dPOPXssrl(POP)
+#define dPOPPOPnnrl	dPOPXnnrl(POP)
+#define dPOPPOPiirl	dPOPXiirl(POP)
+
+#define dPOPTOPssrl	dPOPXssrl(TOP)
+#define dPOPTOPnnrl	dPOPXnnrl(TOP)
+#define dPOPTOPnnrl_nomg \
+    NV right = SvNV_nomg(TOPs); NV left = (sp--, SvNV_nomg(TOPs))
+#define dPOPTOPiirl	dPOPXiirl(TOP)
+#define dPOPTOPiirl_ul_nomg dPOPXiirl_ul_nomg(TOP)
+#define dPOPTOPiirl_nomg \
+    IV right = SvIV_nomg(TOPs); IV left = (sp--, SvIV_nomg(TOPs))
+
+#define RETPUSHYES	RETURNX(PUSHs(&PL_sv_yes))
+#define RETPUSHNO	RETURNX(PUSHs(&PL_sv_no))
+#define RETPUSHUNDEF	RETURNX(PUSHs(&PL_sv_undef))
+
+#define RETSETYES	RETURNX(SETs(&PL_sv_yes))
+#define RETSETNO	RETURNX(SETs(&PL_sv_no))
+#define RETSETUNDEF	RETURNX(SETs(&PL_sv_undef))
+#define RETSETTARG	STMT_START { SETTARG; RETURN; } STMT_END
+
+#define ARGTARG		PL_op->op_targ
+
+#define MAXARG		(PL_op->op_private & OPpARG4_MASK)
+
+#define SWITCHSTACK(f,t) \
+    STMT_START {							\
+	AvFILLp(f) = sp - PL_stack_base;				\
+	PL_stack_base = AvARRAY(t);					\
+	PL_stack_max = PL_stack_base + AvMAX(t);			\
+	sp = PL_stack_sp = PL_stack_base + AvFILLp(t);			\
+	PL_curstack = t;						\
+    } STMT_END
+
+#define EXTEND_MORTAL(n) \
+    STMT_START {						\
+	SSize_t eMiX = PL_tmps_ix + (n);			\
+	if (UNLIKELY(eMiX >= PL_tmps_max))			\
+	    (void)Perl_tmps_grow_p(aTHX_ eMiX);			\
+    } STMT_END
+
+#define AMGf_noright	1
+#define AMGf_noleft	2
+#define AMGf_assign	4
+#define AMGf_unary	8
+#define AMGf_numeric	0x10	/* for Perl_try_amagic_bin */
+#define AMGf_set	0x20	/* for Perl_try_amagic_bin */
+#define AMGf_want_list	0x40
+#define AMGf_numarg	0x80
+
+
+/* do SvGETMAGIC on the stack args before checking for overload */
+
+#define tryAMAGICun_MG(method, flags) STMT_START { \
+	if ( UNLIKELY((SvFLAGS(TOPs) & (SVf_ROK|SVs_GMG))) \
+		&& Perl_try_amagic_un(aTHX_ method, flags)) \
+	    return NORMAL; \
+    } STMT_END
+#define tryAMAGICbin_MG(method, flags) STMT_START { \
+	if ( UNLIKELY(((SvFLAGS(TOPm1s)|SvFLAGS(TOPs)) & (SVf_ROK|SVs_GMG))) \
+		&& Perl_try_amagic_bin(aTHX_ method, flags)) \
+	    return NORMAL; \
+    } STMT_END
+
+#define AMG_CALLunary(sv,meth) \
+    amagic_call(sv,&PL_sv_undef, meth, AMGf_noright | AMGf_unary)
+
+/* No longer used in core. Use AMG_CALLunary instead */
+#define AMG_CALLun(sv,meth) AMG_CALLunary(sv, CAT2(meth,_amg))
+
+#define tryAMAGICunTARGETlist(meth, jump)			\
+    STMT_START {						\
+	dSP;							\
+	SV *tmpsv;						\
+	SV *arg= *sp;						\
+        U8 gimme = GIMME_V;                                    \
+	if (UNLIKELY(SvAMAGIC(arg) &&				\
+	    (tmpsv = amagic_call(arg, &PL_sv_undef, meth,	\
+				 AMGf_want_list | AMGf_noright	\
+				|AMGf_unary))))                 \
+        {                                       		\
+	    SPAGAIN;						\
+            if (gimme == G_VOID) {                              \
+                NOOP;                                           \
+            }                                                   \
+            else if (gimme == G_ARRAY) {			\
+                SSize_t i;                                      \
+                SSize_t len;                                    \
+                assert(SvTYPE(tmpsv) == SVt_PVAV);              \
+                len = av_tindex((AV *)tmpsv) + 1;               \
+                (void)POPs; /* get rid of the arg */            \
+                EXTEND(sp, len);                                \
+                for (i = 0; i < len; ++i)                       \
+                    PUSHs(av_shift((AV *)tmpsv));               \
+            }                                                   \
+            else { /* AMGf_want_scalar */                       \
+                dATARGET; /* just use the arg's location */     \
+                sv_setsv(TARG, tmpsv);                          \
+                if (opASSIGN)                                   \
+                    sp--;                                       \
+                SETTARG;                                        \
+            }                                                   \
+	    PUTBACK;						\
+	    if (jump) {						\
+	        OP *jump_o = NORMAL->op_next;                   \
+		while (jump_o->op_type == OP_NULL)		\
+		    jump_o = jump_o->op_next;			\
+		assert(jump_o->op_type == OP_ENTERSUB);		\
+		(void)POPMARK;                                        \
+		return jump_o->op_next;				\
+	    }							\
+	    return NORMAL;					\
+	}							\
+    } STMT_END
+
+/* This is no longer used anywhere in the core. You might wish to consider
+   calling amagic_deref_call() directly, as it has a cleaner interface.  */
+#define tryAMAGICunDEREF(meth)						\
+    STMT_START {							\
+	sv = amagic_deref_call(*sp, CAT2(meth,_amg));			\
+	SPAGAIN;							\
+    } STMT_END
+
+
+#define opASSIGN (PL_op->op_flags & OPf_STACKED)
+
+/*
+=for apidoc mU||LVRET
+True if this op will be the return value of an lvalue subroutine
+
+=cut */
+#define LVRET ((PL_op->op_private & OPpMAYBE_LVSUB) && is_lvalue_sub())
+
+#define SvCANEXISTDELETE(sv) \
+ (!SvRMAGICAL(sv)            \
+  || !(mg = mg_find((const SV *) sv, PERL_MAGIC_tied))           \
+  || (   (stash = SvSTASH(SvRV(SvTIED_obj(MUTABLE_SV(sv), mg)))) \
+      && gv_fetchmethod_autoload(stash, "EXISTS", TRUE)          \
+      && gv_fetchmethod_autoload(stash, "DELETE", TRUE)          \
+     )                       \
+  )
+
+#ifdef PERL_CORE
+
+/* These are just for Perl_tied_method(), which is not part of the public API.
+   Use 0x04 rather than the next available bit, to help the compiler if the
+   architecture can generate more efficient instructions.  */
+#  define TIED_METHOD_MORTALIZE_NOT_NEEDED	0x04
+#  define TIED_METHOD_ARGUMENTS_ON_STACK	0x08
+#  define TIED_METHOD_SAY			0x10
+
+/* Used in various places that need to dereference a glob or globref */
+#  define MAYBE_DEREF_GV_flags(sv,phlags)                          \
+    (                                                               \
+	(void)(phlags & SV_GMAGIC && (SvGETMAGIC(sv),0)),            \
+	isGV_with_GP(sv)                                              \
+	  ? (GV *)(sv)                                                \
+	  : SvROK(sv) && SvTYPE(SvRV(sv)) <= SVt_PVLV &&               \
+	    (SvGETMAGIC(SvRV(sv)), isGV_with_GP(SvRV(sv)))              \
+	     ? (GV *)SvRV(sv)                                            \
+	     : NULL                                                       \
+    )
+#  define MAYBE_DEREF_GV(sv)      MAYBE_DEREF_GV_flags(sv,SV_GMAGIC)
+#  define MAYBE_DEREF_GV_nomg(sv) MAYBE_DEREF_GV_flags(sv,0)
+
+#  define FIND_RUNCV_padid_eq	1
+#  define FIND_RUNCV_level_eq	2
+
+#endif
+
+/*
+ * ex: set ts=8 sts=4 sw=4 et:
+ */
diff --git a/lib/5.24.1/x86_64-linux/CORE/pp_proto.h b/lib/5.24.1/x86_64-linux/CORE/pp_proto.h
new file mode 100644
index 00000000..f919313e
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/pp_proto.h
@@ -0,0 +1,296 @@
+/* -*- buffer-read-only: t -*-
+   !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+   This file is built by opcode.pl from its data.
+   Any changes made here will be lost!
+ */
+
+PERL_CALLCONV OP *Perl_do_kv(pTHX);
+PERL_CALLCONV OP *Perl_pp_aassign(pTHX);
+PERL_CALLCONV OP *Perl_pp_abs(pTHX);
+PERL_CALLCONV OP *Perl_pp_accept(pTHX);
+PERL_CALLCONV OP *Perl_pp_add(pTHX);
+PERL_CALLCONV OP *Perl_pp_aeach(pTHX);
+PERL_CALLCONV OP *Perl_pp_aelem(pTHX);
+PERL_CALLCONV OP *Perl_pp_aelemfast(pTHX);
+PERL_CALLCONV OP *Perl_pp_akeys(pTHX);
+PERL_CALLCONV OP *Perl_pp_alarm(pTHX);
+PERL_CALLCONV OP *Perl_pp_and(pTHX);
+PERL_CALLCONV OP *Perl_pp_anoncode(pTHX);
+PERL_CALLCONV OP *Perl_pp_anonconst(pTHX);
+PERL_CALLCONV OP *Perl_pp_anonhash(pTHX);
+PERL_CALLCONV OP *Perl_pp_anonlist(pTHX);
+PERL_CALLCONV OP *Perl_pp_aslice(pTHX);
+PERL_CALLCONV OP *Perl_pp_atan2(pTHX);
+PERL_CALLCONV OP *Perl_pp_av2arylen(pTHX);
+PERL_CALLCONV OP *Perl_pp_backtick(pTHX);
+PERL_CALLCONV OP *Perl_pp_bind(pTHX);
+PERL_CALLCONV OP *Perl_pp_binmode(pTHX);
+PERL_CALLCONV OP *Perl_pp_bit_and(pTHX);
+PERL_CALLCONV OP *Perl_pp_bit_or(pTHX);
+PERL_CALLCONV OP *Perl_pp_bless(pTHX);
+PERL_CALLCONV OP *Perl_pp_break(pTHX);
+PERL_CALLCONV OP *Perl_pp_caller(pTHX);
+PERL_CALLCONV OP *Perl_pp_chdir(pTHX);
+PERL_CALLCONV OP *Perl_pp_chop(pTHX);
+PERL_CALLCONV OP *Perl_pp_chown(pTHX);
+PERL_CALLCONV OP *Perl_pp_chr(pTHX);
+PERL_CALLCONV OP *Perl_pp_chroot(pTHX);
+PERL_CALLCONV OP *Perl_pp_clonecv(pTHX);
+PERL_CALLCONV OP *Perl_pp_close(pTHX);
+PERL_CALLCONV OP *Perl_pp_closedir(pTHX);
+PERL_CALLCONV OP *Perl_pp_complement(pTHX);
+PERL_CALLCONV OP *Perl_pp_concat(pTHX);
+PERL_CALLCONV OP *Perl_pp_cond_expr(pTHX);
+PERL_CALLCONV OP *Perl_pp_const(pTHX);
+PERL_CALLCONV OP *Perl_pp_continue(pTHX);
+PERL_CALLCONV OP *Perl_pp_coreargs(pTHX);
+PERL_CALLCONV OP *Perl_pp_crypt(pTHX);
+PERL_CALLCONV OP *Perl_pp_dbmopen(pTHX);
+PERL_CALLCONV OP *Perl_pp_dbstate(pTHX);
+PERL_CALLCONV OP *Perl_pp_defined(pTHX);
+PERL_CALLCONV OP *Perl_pp_delete(pTHX);
+PERL_CALLCONV OP *Perl_pp_die(pTHX);
+PERL_CALLCONV OP *Perl_pp_divide(pTHX);
+PERL_CALLCONV OP *Perl_pp_each(pTHX);
+PERL_CALLCONV OP *Perl_pp_ehostent(pTHX);
+PERL_CALLCONV OP *Perl_pp_enter(pTHX);
+PERL_CALLCONV OP *Perl_pp_entereval(pTHX);
+PERL_CALLCONV OP *Perl_pp_entergiven(pTHX);
+PERL_CALLCONV OP *Perl_pp_enteriter(pTHX);
+PERL_CALLCONV OP *Perl_pp_enterloop(pTHX);
+PERL_CALLCONV OP *Perl_pp_entersub(pTHX);
+PERL_CALLCONV OP *Perl_pp_entertry(pTHX);
+PERL_CALLCONV OP *Perl_pp_enterwhen(pTHX);
+PERL_CALLCONV OP *Perl_pp_enterwrite(pTHX);
+PERL_CALLCONV OP *Perl_pp_eof(pTHX);
+PERL_CALLCONV OP *Perl_pp_eq(pTHX);
+PERL_CALLCONV OP *Perl_pp_exec(pTHX);
+PERL_CALLCONV OP *Perl_pp_exists(pTHX);
+PERL_CALLCONV OP *Perl_pp_exit(pTHX);
+PERL_CALLCONV OP *Perl_pp_fc(pTHX);
+PERL_CALLCONV OP *Perl_pp_fileno(pTHX);
+PERL_CALLCONV OP *Perl_pp_flip(pTHX);
+PERL_CALLCONV OP *Perl_pp_flock(pTHX);
+PERL_CALLCONV OP *Perl_pp_flop(pTHX);
+PERL_CALLCONV OP *Perl_pp_fork(pTHX);
+PERL_CALLCONV OP *Perl_pp_formline(pTHX);
+PERL_CALLCONV OP *Perl_pp_ftis(pTHX);
+PERL_CALLCONV OP *Perl_pp_ftlink(pTHX);
+PERL_CALLCONV OP *Perl_pp_ftrowned(pTHX);
+PERL_CALLCONV OP *Perl_pp_ftrread(pTHX);
+PERL_CALLCONV OP *Perl_pp_fttext(pTHX);
+PERL_CALLCONV OP *Perl_pp_fttty(pTHX);
+PERL_CALLCONV OP *Perl_pp_ge(pTHX);
+PERL_CALLCONV OP *Perl_pp_gelem(pTHX);
+PERL_CALLCONV OP *Perl_pp_getc(pTHX);
+PERL_CALLCONV OP *Perl_pp_getlogin(pTHX);
+PERL_CALLCONV OP *Perl_pp_getpeername(pTHX);
+PERL_CALLCONV OP *Perl_pp_getpgrp(pTHX);
+PERL_CALLCONV OP *Perl_pp_getppid(pTHX);
+PERL_CALLCONV OP *Perl_pp_getpriority(pTHX);
+PERL_CALLCONV OP *Perl_pp_ggrent(pTHX);
+PERL_CALLCONV OP *Perl_pp_ghostent(pTHX);
+PERL_CALLCONV OP *Perl_pp_glob(pTHX);
+PERL_CALLCONV OP *Perl_pp_gmtime(pTHX);
+PERL_CALLCONV OP *Perl_pp_gnetent(pTHX);
+PERL_CALLCONV OP *Perl_pp_goto(pTHX);
+PERL_CALLCONV OP *Perl_pp_gprotoent(pTHX);
+PERL_CALLCONV OP *Perl_pp_gpwent(pTHX);
+PERL_CALLCONV OP *Perl_pp_grepstart(pTHX);
+PERL_CALLCONV OP *Perl_pp_grepwhile(pTHX);
+PERL_CALLCONV OP *Perl_pp_gservent(pTHX);
+PERL_CALLCONV OP *Perl_pp_gt(pTHX);
+PERL_CALLCONV OP *Perl_pp_gv(pTHX);
+PERL_CALLCONV OP *Perl_pp_gvsv(pTHX);
+PERL_CALLCONV OP *Perl_pp_helem(pTHX);
+PERL_CALLCONV OP *Perl_pp_hintseval(pTHX);
+PERL_CALLCONV OP *Perl_pp_hslice(pTHX);
+PERL_CALLCONV OP *Perl_pp_i_add(pTHX);
+PERL_CALLCONV OP *Perl_pp_i_divide(pTHX);
+PERL_CALLCONV OP *Perl_pp_i_eq(pTHX);
+PERL_CALLCONV OP *Perl_pp_i_ge(pTHX);
+PERL_CALLCONV OP *Perl_pp_i_gt(pTHX);
+PERL_CALLCONV OP *Perl_pp_i_le(pTHX);
+PERL_CALLCONV OP *Perl_pp_i_lt(pTHX);
+PERL_CALLCONV OP *Perl_pp_i_modulo(pTHX);
+PERL_CALLCONV OP *Perl_pp_i_multiply(pTHX);
+PERL_CALLCONV OP *Perl_pp_i_ncmp(pTHX);
+PERL_CALLCONV OP *Perl_pp_i_ne(pTHX);
+PERL_CALLCONV OP *Perl_pp_i_negate(pTHX);
+PERL_CALLCONV OP *Perl_pp_i_subtract(pTHX);
+PERL_CALLCONV OP *Perl_pp_index(pTHX);
+PERL_CALLCONV OP *Perl_pp_int(pTHX);
+PERL_CALLCONV OP *Perl_pp_introcv(pTHX);
+PERL_CALLCONV OP *Perl_pp_ioctl(pTHX);
+PERL_CALLCONV OP *Perl_pp_iter(pTHX);
+PERL_CALLCONV OP *Perl_pp_join(pTHX);
+PERL_CALLCONV OP *Perl_pp_kvaslice(pTHX);
+PERL_CALLCONV OP *Perl_pp_kvhslice(pTHX);
+PERL_CALLCONV OP *Perl_pp_last(pTHX);
+PERL_CALLCONV OP *Perl_pp_lc(pTHX);
+PERL_CALLCONV OP *Perl_pp_le(pTHX);
+PERL_CALLCONV OP *Perl_pp_leave(pTHX);
+PERL_CALLCONV OP *Perl_pp_leaveeval(pTHX);
+PERL_CALLCONV OP *Perl_pp_leavegiven(pTHX);
+PERL_CALLCONV OP *Perl_pp_leaveloop(pTHX);
+PERL_CALLCONV OP *Perl_pp_leavesub(pTHX);
+PERL_CALLCONV OP *Perl_pp_leavesublv(pTHX);
+PERL_CALLCONV OP *Perl_pp_leavetry(pTHX);
+PERL_CALLCONV OP *Perl_pp_leavewhen(pTHX);
+PERL_CALLCONV OP *Perl_pp_leavewrite(pTHX);
+PERL_CALLCONV OP *Perl_pp_left_shift(pTHX);
+PERL_CALLCONV OP *Perl_pp_length(pTHX);
+PERL_CALLCONV OP *Perl_pp_link(pTHX);
+PERL_CALLCONV OP *Perl_pp_list(pTHX);
+PERL_CALLCONV OP *Perl_pp_listen(pTHX);
+PERL_CALLCONV OP *Perl_pp_lock(pTHX);
+PERL_CALLCONV OP *Perl_pp_lslice(pTHX);
+PERL_CALLCONV OP *Perl_pp_lt(pTHX);
+PERL_CALLCONV OP *Perl_pp_lvavref(pTHX);
+PERL_CALLCONV OP *Perl_pp_lvref(pTHX);
+PERL_CALLCONV OP *Perl_pp_lvrefslice(pTHX);
+PERL_CALLCONV OP *Perl_pp_mapwhile(pTHX);
+PERL_CALLCONV OP *Perl_pp_match(pTHX);
+PERL_CALLCONV OP *Perl_pp_method(pTHX);
+PERL_CALLCONV OP *Perl_pp_method_named(pTHX);
+PERL_CALLCONV OP *Perl_pp_method_redir(pTHX);
+PERL_CALLCONV OP *Perl_pp_method_redir_super(pTHX);
+PERL_CALLCONV OP *Perl_pp_method_super(pTHX);
+PERL_CALLCONV OP *Perl_pp_mkdir(pTHX);
+PERL_CALLCONV OP *Perl_pp_modulo(pTHX);
+PERL_CALLCONV OP *Perl_pp_multideref(pTHX);
+PERL_CALLCONV OP *Perl_pp_multiply(pTHX);
+PERL_CALLCONV OP *Perl_pp_nbit_and(pTHX);
+PERL_CALLCONV OP *Perl_pp_nbit_or(pTHX);
+PERL_CALLCONV OP *Perl_pp_ncmp(pTHX);
+PERL_CALLCONV OP *Perl_pp_ncomplement(pTHX);
+PERL_CALLCONV OP *Perl_pp_ne(pTHX);
+PERL_CALLCONV OP *Perl_pp_negate(pTHX);
+PERL_CALLCONV OP *Perl_pp_next(pTHX);
+PERL_CALLCONV OP *Perl_pp_nextstate(pTHX);
+PERL_CALLCONV OP *Perl_pp_not(pTHX);
+PERL_CALLCONV OP *Perl_pp_null(pTHX);
+PERL_CALLCONV OP *Perl_pp_oct(pTHX);
+PERL_CALLCONV OP *Perl_pp_once(pTHX);
+PERL_CALLCONV OP *Perl_pp_open(pTHX);
+PERL_CALLCONV OP *Perl_pp_open_dir(pTHX);
+PERL_CALLCONV OP *Perl_pp_or(pTHX);
+PERL_CALLCONV OP *Perl_pp_ord(pTHX);
+PERL_CALLCONV OP *Perl_pp_pack(pTHX);
+PERL_CALLCONV OP *Perl_pp_padav(pTHX);
+PERL_CALLCONV OP *Perl_pp_padcv(pTHX);
+PERL_CALLCONV OP *Perl_pp_padhv(pTHX);
+PERL_CALLCONV OP *Perl_pp_padrange(pTHX);
+PERL_CALLCONV OP *Perl_pp_padsv(pTHX);
+PERL_CALLCONV OP *Perl_pp_pipe_op(pTHX);
+PERL_CALLCONV OP *Perl_pp_pos(pTHX);
+PERL_CALLCONV OP *Perl_pp_postdec(pTHX);
+PERL_CALLCONV OP *Perl_pp_postinc(pTHX);
+PERL_CALLCONV OP *Perl_pp_pow(pTHX);
+PERL_CALLCONV OP *Perl_pp_predec(pTHX);
+PERL_CALLCONV OP *Perl_pp_preinc(pTHX);
+PERL_CALLCONV OP *Perl_pp_print(pTHX);
+PERL_CALLCONV OP *Perl_pp_prototype(pTHX);
+PERL_CALLCONV OP *Perl_pp_prtf(pTHX);
+PERL_CALLCONV OP *Perl_pp_push(pTHX);
+PERL_CALLCONV OP *Perl_pp_pushmark(pTHX);
+PERL_CALLCONV OP *Perl_pp_pushre(pTHX);
+PERL_CALLCONV OP *Perl_pp_qr(pTHX);
+PERL_CALLCONV OP *Perl_pp_quotemeta(pTHX);
+PERL_CALLCONV OP *Perl_pp_rand(pTHX);
+PERL_CALLCONV OP *Perl_pp_range(pTHX);
+PERL_CALLCONV OP *Perl_pp_rcatline(pTHX);
+PERL_CALLCONV OP *Perl_pp_readdir(pTHX);
+PERL_CALLCONV OP *Perl_pp_readline(pTHX);
+PERL_CALLCONV OP *Perl_pp_readlink(pTHX);
+PERL_CALLCONV OP *Perl_pp_redo(pTHX);
+PERL_CALLCONV OP *Perl_pp_ref(pTHX);
+PERL_CALLCONV OP *Perl_pp_refassign(pTHX);
+PERL_CALLCONV OP *Perl_pp_refgen(pTHX);
+PERL_CALLCONV OP *Perl_pp_regcomp(pTHX);
+PERL_CALLCONV OP *Perl_pp_regcreset(pTHX);
+PERL_CALLCONV OP *Perl_pp_rename(pTHX);
+PERL_CALLCONV OP *Perl_pp_repeat(pTHX);
+PERL_CALLCONV OP *Perl_pp_require(pTHX);
+PERL_CALLCONV OP *Perl_pp_reset(pTHX);
+PERL_CALLCONV OP *Perl_pp_return(pTHX);
+PERL_CALLCONV OP *Perl_pp_reverse(pTHX);
+PERL_CALLCONV OP *Perl_pp_rewinddir(pTHX);
+PERL_CALLCONV OP *Perl_pp_right_shift(pTHX);
+PERL_CALLCONV OP *Perl_pp_rmdir(pTHX);
+PERL_CALLCONV OP *Perl_pp_runcv(pTHX);
+PERL_CALLCONV OP *Perl_pp_rv2av(pTHX);
+PERL_CALLCONV OP *Perl_pp_rv2cv(pTHX);
+PERL_CALLCONV OP *Perl_pp_rv2gv(pTHX);
+PERL_CALLCONV OP *Perl_pp_rv2sv(pTHX);
+PERL_CALLCONV OP *Perl_pp_sassign(pTHX);
+PERL_CALLCONV OP *Perl_pp_sbit_and(pTHX);
+PERL_CALLCONV OP *Perl_pp_sbit_or(pTHX);
+PERL_CALLCONV OP *Perl_pp_schop(pTHX);
+PERL_CALLCONV OP *Perl_pp_scmp(pTHX);
+PERL_CALLCONV OP *Perl_pp_scomplement(pTHX);
+PERL_CALLCONV OP *Perl_pp_seekdir(pTHX);
+PERL_CALLCONV OP *Perl_pp_select(pTHX);
+PERL_CALLCONV OP *Perl_pp_semctl(pTHX);
+PERL_CALLCONV OP *Perl_pp_semget(pTHX);
+PERL_CALLCONV OP *Perl_pp_seq(pTHX);
+PERL_CALLCONV OP *Perl_pp_setpgrp(pTHX);
+PERL_CALLCONV OP *Perl_pp_setpriority(pTHX);
+PERL_CALLCONV OP *Perl_pp_shift(pTHX);
+PERL_CALLCONV OP *Perl_pp_shmwrite(pTHX);
+PERL_CALLCONV OP *Perl_pp_shostent(pTHX);
+PERL_CALLCONV OP *Perl_pp_shutdown(pTHX);
+PERL_CALLCONV OP *Perl_pp_sin(pTHX);
+PERL_CALLCONV OP *Perl_pp_sle(pTHX);
+PERL_CALLCONV OP *Perl_pp_sleep(pTHX);
+PERL_CALLCONV OP *Perl_pp_smartmatch(pTHX);
+PERL_CALLCONV OP *Perl_pp_sne(pTHX);
+PERL_CALLCONV OP *Perl_pp_socket(pTHX);
+PERL_CALLCONV OP *Perl_pp_sockpair(pTHX);
+PERL_CALLCONV OP *Perl_pp_sort(pTHX);
+PERL_CALLCONV OP *Perl_pp_splice(pTHX);
+PERL_CALLCONV OP *Perl_pp_split(pTHX);
+PERL_CALLCONV OP *Perl_pp_sprintf(pTHX);
+PERL_CALLCONV OP *Perl_pp_srand(pTHX);
+PERL_CALLCONV OP *Perl_pp_srefgen(pTHX);
+PERL_CALLCONV OP *Perl_pp_sselect(pTHX);
+PERL_CALLCONV OP *Perl_pp_ssockopt(pTHX);
+PERL_CALLCONV OP *Perl_pp_stat(pTHX);
+PERL_CALLCONV OP *Perl_pp_stringify(pTHX);
+PERL_CALLCONV OP *Perl_pp_stub(pTHX);
+PERL_CALLCONV OP *Perl_pp_study(pTHX);
+PERL_CALLCONV OP *Perl_pp_subst(pTHX);
+PERL_CALLCONV OP *Perl_pp_substcont(pTHX);
+PERL_CALLCONV OP *Perl_pp_substr(pTHX);
+PERL_CALLCONV OP *Perl_pp_subtract(pTHX);
+PERL_CALLCONV OP *Perl_pp_syscall(pTHX);
+PERL_CALLCONV OP *Perl_pp_sysopen(pTHX);
+PERL_CALLCONV OP *Perl_pp_sysread(pTHX);
+PERL_CALLCONV OP *Perl_pp_sysseek(pTHX);
+PERL_CALLCONV OP *Perl_pp_system(pTHX);
+PERL_CALLCONV OP *Perl_pp_syswrite(pTHX);
+PERL_CALLCONV OP *Perl_pp_tell(pTHX);
+PERL_CALLCONV OP *Perl_pp_telldir(pTHX);
+PERL_CALLCONV OP *Perl_pp_tie(pTHX);
+PERL_CALLCONV OP *Perl_pp_tied(pTHX);
+PERL_CALLCONV OP *Perl_pp_time(pTHX);
+PERL_CALLCONV OP *Perl_pp_tms(pTHX);
+PERL_CALLCONV OP *Perl_pp_trans(pTHX);
+PERL_CALLCONV OP *Perl_pp_truncate(pTHX);
+PERL_CALLCONV OP *Perl_pp_uc(pTHX);
+PERL_CALLCONV OP *Perl_pp_ucfirst(pTHX);
+PERL_CALLCONV OP *Perl_pp_umask(pTHX);
+PERL_CALLCONV OP *Perl_pp_undef(pTHX);
+PERL_CALLCONV OP *Perl_pp_unpack(pTHX);
+PERL_CALLCONV OP *Perl_pp_unshift(pTHX);
+PERL_CALLCONV OP *Perl_pp_unstack(pTHX);
+PERL_CALLCONV OP *Perl_pp_untie(pTHX);
+PERL_CALLCONV OP *Perl_pp_vec(pTHX);
+PERL_CALLCONV OP *Perl_pp_wait(pTHX);
+PERL_CALLCONV OP *Perl_pp_waitpid(pTHX);
+PERL_CALLCONV OP *Perl_pp_wantarray(pTHX);
+PERL_CALLCONV OP *Perl_pp_warn(pTHX);
+PERL_CALLCONV OP *Perl_pp_xor(pTHX);
+PERL_CALLCONV OP *Perl_unimplemented_op(pTHX);
+
+/* ex: set ro: */
diff --git a/lib/5.24.1/x86_64-linux/CORE/proto.h b/lib/5.24.1/x86_64-linux/CORE/proto.h
new file mode 100644
index 00000000..fb4ee295
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/proto.h
@@ -0,0 +1,5733 @@
+/* -*- buffer-read-only: t -*-
+ *
+ *    proto.h
+ *
+ *    Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001,
+ *    2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 by Larry Wall and others
+ *
+ *    You may distribute under the terms of either the GNU General Public
+ *    License or the Artistic License, as specified in the README file.
+ *
+ * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+ * This file is built by regen/embed.pl from data in embed.fnc,
+ * regen/embed.pl, regen/opcodes, intrpvar.h and perlvars.h.
+ * Any changes made here will be lost!
+ *
+ * Edit those files and run 'make regen_headers' to effect changes.
+ */
+
+START_EXTERN_C
+PERL_CALLCONV UV	ASCII_TO_NEED(const UV enc, const UV ch)
+			__attribute__deprecated__
+			__attribute__warn_unused_result__
+			__attribute__pure__;
+
+PERL_CALLCONV int	Perl_Gv_AMupdate(pTHX_ HV* stash, bool destructing);
+#define PERL_ARGS_ASSERT_GV_AMUPDATE	\
+	assert(stash)
+PERL_CALLCONV UV	NATIVE_TO_NEED(const UV enc, const UV ch)
+			__attribute__deprecated__
+			__attribute__warn_unused_result__
+			__attribute__pure__;
+
+PERL_CALLCONV const char *	Perl_PerlIO_context_layers(pTHX_ const char *mode);
+PERL_CALLCONV void*	Perl_Slab_Alloc(pTHX_ size_t sz)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV void	Perl_Slab_Free(pTHX_ void *op);
+#define PERL_ARGS_ASSERT_SLAB_FREE	\
+	assert(op)
+PERL_CALLCONV SV*	Perl__get_encoding(pTHX)
+			__attribute__pure__;
+
+PERL_CALLCONV bool	Perl__is_in_locale_category(pTHX_ const bool compiling, const int category);
+PERL_CALLCONV bool	Perl__is_uni_FOO(pTHX_ const U8 classnum, const UV c)
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV bool	Perl__is_uni_perl_idcont(pTHX_ UV c)
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV bool	Perl__is_uni_perl_idstart(pTHX_ UV c)
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV bool	Perl__is_utf8_FOO(pTHX_ const U8 classnum, const U8 *p)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT__IS_UTF8_FOO	\
+	assert(p)
+
+PERL_CALLCONV bool	Perl__is_utf8_idcont(pTHX_ const U8 *p)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT__IS_UTF8_IDCONT	\
+	assert(p)
+
+PERL_CALLCONV bool	Perl__is_utf8_idstart(pTHX_ const U8 *p)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT__IS_UTF8_IDSTART	\
+	assert(p)
+
+PERL_CALLCONV bool	Perl__is_utf8_mark(pTHX_ const U8 *p)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT__IS_UTF8_MARK	\
+	assert(p)
+
+PERL_CALLCONV bool	Perl__is_utf8_perl_idcont(pTHX_ const U8 *p)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT__IS_UTF8_PERL_IDCONT	\
+	assert(p)
+
+PERL_CALLCONV bool	Perl__is_utf8_perl_idstart(pTHX_ const U8 *p)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT__IS_UTF8_PERL_IDSTART	\
+	assert(p)
+
+PERL_CALLCONV bool	Perl__is_utf8_xidcont(pTHX_ const U8 *p)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT__IS_UTF8_XIDCONT	\
+	assert(p)
+
+PERL_CALLCONV bool	Perl__is_utf8_xidstart(pTHX_ const U8 *p)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT__IS_UTF8_XIDSTART	\
+	assert(p)
+
+PERL_CALLCONV UV	Perl__to_uni_fold_flags(pTHX_ UV c, U8 *p, STRLEN *lenp, U8 flags);
+#define PERL_ARGS_ASSERT__TO_UNI_FOLD_FLAGS	\
+	assert(p); assert(lenp)
+PERL_CALLCONV UV	Perl__to_utf8_fold_flags(pTHX_ const U8 *p, U8* ustrp, STRLEN *lenp, U8 flags);
+#define PERL_ARGS_ASSERT__TO_UTF8_FOLD_FLAGS	\
+	assert(p); assert(ustrp)
+PERL_CALLCONV UV	Perl__to_utf8_lower_flags(pTHX_ const U8 *p, U8* ustrp, STRLEN *lenp, bool flags);
+#define PERL_ARGS_ASSERT__TO_UTF8_LOWER_FLAGS	\
+	assert(p); assert(ustrp)
+PERL_CALLCONV UV	Perl__to_utf8_title_flags(pTHX_ const U8 *p, U8* ustrp, STRLEN *lenp, bool flags);
+#define PERL_ARGS_ASSERT__TO_UTF8_TITLE_FLAGS	\
+	assert(p); assert(ustrp)
+PERL_CALLCONV UV	Perl__to_utf8_upper_flags(pTHX_ const U8 *p, U8* ustrp, STRLEN *lenp, bool flags);
+#define PERL_ARGS_ASSERT__TO_UTF8_UPPER_FLAGS	\
+	assert(p); assert(ustrp)
+PERL_CALLCONV void	Perl__warn_problematic_locale(void);
+PERL_CALLCONV PADOFFSET	Perl_allocmy(pTHX_ const char *const name, const STRLEN len, const U32 flags);
+#define PERL_ARGS_ASSERT_ALLOCMY	\
+	assert(name)
+PERL_CALLCONV SV*	Perl_amagic_call(pTHX_ SV* left, SV* right, int method, int dir);
+#define PERL_ARGS_ASSERT_AMAGIC_CALL	\
+	assert(left); assert(right)
+PERL_CALLCONV SV *	Perl_amagic_deref_call(pTHX_ SV *ref, int method);
+#define PERL_ARGS_ASSERT_AMAGIC_DEREF_CALL	\
+	assert(ref)
+PERL_CALLCONV bool	Perl_amagic_is_enabled(pTHX_ int method);
+PERL_CALLCONV I32	Perl_apply(pTHX_ I32 type, SV** mark, SV** sp);
+#define PERL_ARGS_ASSERT_APPLY	\
+	assert(mark); assert(sp)
+PERL_CALLCONV void	Perl_apply_attrs_string(pTHX_ const char *stashpv, CV *cv, const char *attrstr, STRLEN len);
+#define PERL_ARGS_ASSERT_APPLY_ATTRS_STRING	\
+	assert(stashpv); assert(cv); assert(attrstr)
+PERL_CALLCONV void	Perl_atfork_lock(void);
+PERL_CALLCONV void	Perl_atfork_unlock(void);
+PERL_CALLCONV SV**	Perl_av_arylen_p(pTHX_ AV *av);
+#define PERL_ARGS_ASSERT_AV_ARYLEN_P	\
+	assert(av)
+PERL_CALLCONV void	Perl_av_clear(pTHX_ AV *av);
+#define PERL_ARGS_ASSERT_AV_CLEAR	\
+	assert(av)
+PERL_CALLCONV void	Perl_av_create_and_push(pTHX_ AV **const avp, SV *const val);
+#define PERL_ARGS_ASSERT_AV_CREATE_AND_PUSH	\
+	assert(avp); assert(val)
+PERL_CALLCONV SV**	Perl_av_create_and_unshift_one(pTHX_ AV **const avp, SV *const val);
+#define PERL_ARGS_ASSERT_AV_CREATE_AND_UNSHIFT_ONE	\
+	assert(avp); assert(val)
+PERL_CALLCONV SV*	Perl_av_delete(pTHX_ AV *av, SSize_t key, I32 flags);
+#define PERL_ARGS_ASSERT_AV_DELETE	\
+	assert(av)
+PERL_CALLCONV bool	Perl_av_exists(pTHX_ AV *av, SSize_t key)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_AV_EXISTS	\
+	assert(av)
+
+PERL_CALLCONV void	Perl_av_extend(pTHX_ AV *av, SSize_t key);
+#define PERL_ARGS_ASSERT_AV_EXTEND	\
+	assert(av)
+PERL_CALLCONV void	Perl_av_extend_guts(pTHX_ AV *av, SSize_t key, SSize_t *maxp, SV ***allocp, SV ***arrayp);
+#define PERL_ARGS_ASSERT_AV_EXTEND_GUTS	\
+	assert(maxp); assert(allocp); assert(arrayp)
+PERL_CALLCONV SV**	Perl_av_fetch(pTHX_ AV *av, SSize_t key, I32 lval)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_AV_FETCH	\
+	assert(av)
+
+PERL_CALLCONV void	Perl_av_fill(pTHX_ AV *av, SSize_t fill);
+#define PERL_ARGS_ASSERT_AV_FILL	\
+	assert(av)
+PERL_CALLCONV IV*	Perl_av_iter_p(pTHX_ AV *av);
+#define PERL_ARGS_ASSERT_AV_ITER_P	\
+	assert(av)
+PERL_CALLCONV SSize_t	Perl_av_len(pTHX_ AV *av)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_AV_LEN	\
+	assert(av)
+
+PERL_CALLCONV AV*	Perl_av_make(pTHX_ SSize_t size, SV **strp)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_AV_MAKE	\
+	assert(strp)
+
+PERL_CALLCONV SV*	Perl_av_pop(pTHX_ AV *av);
+#define PERL_ARGS_ASSERT_AV_POP	\
+	assert(av)
+PERL_CALLCONV void	Perl_av_push(pTHX_ AV *av, SV *val);
+#define PERL_ARGS_ASSERT_AV_PUSH	\
+	assert(av); assert(val)
+PERL_CALLCONV void	Perl_av_reify(pTHX_ AV *av);
+#define PERL_ARGS_ASSERT_AV_REIFY	\
+	assert(av)
+PERL_CALLCONV SV*	Perl_av_shift(pTHX_ AV *av)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_AV_SHIFT	\
+	assert(av)
+
+PERL_CALLCONV SV**	Perl_av_store(pTHX_ AV *av, SSize_t key, SV *val);
+#define PERL_ARGS_ASSERT_AV_STORE	\
+	assert(av)
+/* PERL_CALLCONV SSize_t	Perl_av_tindex(pTHX_ AV *av)
+			__attribute__warn_unused_result__; */
+
+PERL_CALLCONV void	Perl_av_undef(pTHX_ AV *av);
+#define PERL_ARGS_ASSERT_AV_UNDEF	\
+	assert(av)
+PERL_CALLCONV void	Perl_av_unshift(pTHX_ AV *av, SSize_t num);
+#define PERL_ARGS_ASSERT_AV_UNSHIFT	\
+	assert(av)
+PERL_CALLCONV OP*	Perl_bind_match(pTHX_ I32 type, OP *left, OP *right)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_BIND_MATCH	\
+	assert(left); assert(right)
+
+PERL_CALLCONV OP*	Perl_block_end(pTHX_ I32 floor, OP* seq)
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV U8	Perl_block_gimme(pTHX)
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV int	Perl_block_start(pTHX_ int full)
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV void	Perl_blockhook_register(pTHX_ BHK *hk);
+#define PERL_ARGS_ASSERT_BLOCKHOOK_REGISTER	\
+	assert(hk)
+PERL_CALLCONV void	Perl_boot_core_PerlIO(pTHX);
+PERL_CALLCONV void	Perl_boot_core_UNIVERSAL(pTHX);
+PERL_CALLCONV void	Perl_boot_core_mro(pTHX);
+PERL_CALLCONV int	Perl_bytes_cmp_utf8(pTHX_ const U8 *b, STRLEN blen, const U8 *u, STRLEN ulen);
+#define PERL_ARGS_ASSERT_BYTES_CMP_UTF8	\
+	assert(b); assert(u)
+PERL_CALLCONV U8*	Perl_bytes_from_utf8(pTHX_ const U8 *s, STRLEN *len, bool *is_utf8);
+#define PERL_ARGS_ASSERT_BYTES_FROM_UTF8	\
+	assert(s); assert(len)
+PERL_CALLCONV U8*	Perl_bytes_to_utf8(pTHX_ const U8 *s, STRLEN *len);
+#define PERL_ARGS_ASSERT_BYTES_TO_UTF8	\
+	assert(s); assert(len)
+PERL_CALLCONV I32	Perl_call_argv(pTHX_ const char* sub_name, I32 flags, char** argv);
+#define PERL_ARGS_ASSERT_CALL_ARGV	\
+	assert(sub_name); assert(argv)
+PERL_CALLCONV void	Perl_call_atexit(pTHX_ ATEXIT_t fn, void *ptr);
+PERL_CALLCONV void	Perl_call_list(pTHX_ I32 oldscope, AV *paramList);
+#define PERL_ARGS_ASSERT_CALL_LIST	\
+	assert(paramList)
+PERL_CALLCONV I32	Perl_call_method(pTHX_ const char* methname, I32 flags);
+#define PERL_ARGS_ASSERT_CALL_METHOD	\
+	assert(methname)
+PERL_CALLCONV I32	Perl_call_pv(pTHX_ const char* sub_name, I32 flags);
+#define PERL_ARGS_ASSERT_CALL_PV	\
+	assert(sub_name)
+PERL_CALLCONV I32	Perl_call_sv(pTHX_ SV* sv, VOL I32 flags);
+#define PERL_ARGS_ASSERT_CALL_SV	\
+	assert(sv)
+PERL_CALLCONV const PERL_CONTEXT *	Perl_caller_cx(pTHX_ I32 level, const PERL_CONTEXT **dbcxp);
+PERL_CALLCONV Malloc_t	Perl_calloc(MEM_SIZE elements, MEM_SIZE size)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV bool	Perl_cando(pTHX_ Mode_t mode, bool effective, const Stat_t* statbufp)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_CANDO	\
+	assert(statbufp)
+
+PERL_CALLCONV I32	Perl_cast_i32(NV f)
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV IV	Perl_cast_iv(NV f)
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV U32	Perl_cast_ulong(NV f)
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV UV	Perl_cast_uv(NV f)
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV bool	Perl_check_utf8_print(pTHX_ const U8 *s, const STRLEN len);
+#define PERL_ARGS_ASSERT_CHECK_UTF8_PRINT	\
+	assert(s)
+PERL_CALLCONV OP *	Perl_ck_anoncode(pTHX_ OP *o)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_CK_ANONCODE	\
+	assert(o)
+
+PERL_CALLCONV OP *	Perl_ck_backtick(pTHX_ OP *o)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_CK_BACKTICK	\
+	assert(o)
+
+PERL_CALLCONV OP *	Perl_ck_bitop(pTHX_ OP *o)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_CK_BITOP	\
+	assert(o)
+
+PERL_CALLCONV OP *	Perl_ck_cmp(pTHX_ OP *o)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_CK_CMP	\
+	assert(o)
+
+PERL_CALLCONV OP *	Perl_ck_concat(pTHX_ OP *o)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_CK_CONCAT	\
+	assert(o)
+
+PERL_CALLCONV OP *	Perl_ck_defined(pTHX_ OP *o)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_CK_DEFINED	\
+	assert(o)
+
+PERL_CALLCONV OP *	Perl_ck_delete(pTHX_ OP *o)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_CK_DELETE	\
+	assert(o)
+
+PERL_CALLCONV OP *	Perl_ck_each(pTHX_ OP *o)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_CK_EACH	\
+	assert(o)
+
+PERL_CALLCONV OP*	Perl_ck_entersub_args_core(pTHX_ OP *entersubop, GV *namegv, SV *protosv);
+#define PERL_ARGS_ASSERT_CK_ENTERSUB_ARGS_CORE	\
+	assert(entersubop); assert(namegv); assert(protosv)
+PERL_CALLCONV OP*	Perl_ck_entersub_args_list(pTHX_ OP *entersubop);
+#define PERL_ARGS_ASSERT_CK_ENTERSUB_ARGS_LIST	\
+	assert(entersubop)
+PERL_CALLCONV OP*	Perl_ck_entersub_args_proto(pTHX_ OP *entersubop, GV *namegv, SV *protosv);
+#define PERL_ARGS_ASSERT_CK_ENTERSUB_ARGS_PROTO	\
+	assert(entersubop); assert(namegv); assert(protosv)
+PERL_CALLCONV OP*	Perl_ck_entersub_args_proto_or_list(pTHX_ OP *entersubop, GV *namegv, SV *protosv);
+#define PERL_ARGS_ASSERT_CK_ENTERSUB_ARGS_PROTO_OR_LIST	\
+	assert(entersubop); assert(namegv); assert(protosv)
+PERL_CALLCONV OP *	Perl_ck_eof(pTHX_ OP *o)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_CK_EOF	\
+	assert(o)
+
+PERL_CALLCONV OP *	Perl_ck_eval(pTHX_ OP *o)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_CK_EVAL	\
+	assert(o)
+
+PERL_CALLCONV OP *	Perl_ck_exec(pTHX_ OP *o)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_CK_EXEC	\
+	assert(o)
+
+PERL_CALLCONV OP *	Perl_ck_exists(pTHX_ OP *o)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_CK_EXISTS	\
+	assert(o)
+
+PERL_CALLCONV OP *	Perl_ck_ftst(pTHX_ OP *o)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_CK_FTST	\
+	assert(o)
+
+PERL_CALLCONV OP *	Perl_ck_fun(pTHX_ OP *o)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_CK_FUN	\
+	assert(o)
+
+PERL_CALLCONV OP *	Perl_ck_glob(pTHX_ OP *o)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_CK_GLOB	\
+	assert(o)
+
+PERL_CALLCONV OP *	Perl_ck_grep(pTHX_ OP *o)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_CK_GREP	\
+	assert(o)
+
+PERL_CALLCONV OP *	Perl_ck_index(pTHX_ OP *o)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_CK_INDEX	\
+	assert(o)
+
+PERL_CALLCONV OP *	Perl_ck_join(pTHX_ OP *o)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_CK_JOIN	\
+	assert(o)
+
+PERL_CALLCONV OP *	Perl_ck_length(pTHX_ OP *o)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_CK_LENGTH	\
+	assert(o)
+
+PERL_CALLCONV OP *	Perl_ck_lfun(pTHX_ OP *o)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_CK_LFUN	\
+	assert(o)
+
+PERL_CALLCONV OP *	Perl_ck_listiob(pTHX_ OP *o)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_CK_LISTIOB	\
+	assert(o)
+
+PERL_CALLCONV OP *	Perl_ck_match(pTHX_ OP *o)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_CK_MATCH	\
+	assert(o)
+
+PERL_CALLCONV OP *	Perl_ck_method(pTHX_ OP *o)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_CK_METHOD	\
+	assert(o)
+
+PERL_CALLCONV OP *	Perl_ck_null(pTHX_ OP *o)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_CK_NULL	\
+	assert(o)
+
+PERL_CALLCONV OP *	Perl_ck_open(pTHX_ OP *o)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_CK_OPEN	\
+	assert(o)
+
+PERL_CALLCONV OP *	Perl_ck_prototype(pTHX_ OP *o)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_CK_PROTOTYPE	\
+	assert(o)
+
+PERL_CALLCONV OP *	Perl_ck_readline(pTHX_ OP *o)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_CK_READLINE	\
+	assert(o)
+
+PERL_CALLCONV OP *	Perl_ck_refassign(pTHX_ OP *o)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_CK_REFASSIGN	\
+	assert(o)
+
+PERL_CALLCONV OP *	Perl_ck_repeat(pTHX_ OP *o)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_CK_REPEAT	\
+	assert(o)
+
+PERL_CALLCONV OP *	Perl_ck_require(pTHX_ OP *o)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_CK_REQUIRE	\
+	assert(o)
+
+PERL_CALLCONV OP *	Perl_ck_return(pTHX_ OP *o)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_CK_RETURN	\
+	assert(o)
+
+PERL_CALLCONV OP *	Perl_ck_rfun(pTHX_ OP *o)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_CK_RFUN	\
+	assert(o)
+
+PERL_CALLCONV OP *	Perl_ck_rvconst(pTHX_ OP *o)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_CK_RVCONST	\
+	assert(o)
+
+PERL_CALLCONV OP *	Perl_ck_sassign(pTHX_ OP *o)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_CK_SASSIGN	\
+	assert(o)
+
+PERL_CALLCONV OP *	Perl_ck_select(pTHX_ OP *o)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_CK_SELECT	\
+	assert(o)
+
+PERL_CALLCONV OP *	Perl_ck_shift(pTHX_ OP *o)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_CK_SHIFT	\
+	assert(o)
+
+PERL_CALLCONV OP *	Perl_ck_smartmatch(pTHX_ OP *o)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_CK_SMARTMATCH	\
+	assert(o)
+
+PERL_CALLCONV OP *	Perl_ck_sort(pTHX_ OP *o)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_CK_SORT	\
+	assert(o)
+
+PERL_CALLCONV OP *	Perl_ck_spair(pTHX_ OP *o)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_CK_SPAIR	\
+	assert(o)
+
+PERL_CALLCONV OP *	Perl_ck_split(pTHX_ OP *o)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_CK_SPLIT	\
+	assert(o)
+
+PERL_CALLCONV OP *	Perl_ck_stringify(pTHX_ OP *o)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_CK_STRINGIFY	\
+	assert(o)
+
+PERL_CALLCONV OP *	Perl_ck_subr(pTHX_ OP *o)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_CK_SUBR	\
+	assert(o)
+
+PERL_CALLCONV OP *	Perl_ck_substr(pTHX_ OP *o)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_CK_SUBSTR	\
+	assert(o)
+
+PERL_CALLCONV OP *	Perl_ck_svconst(pTHX_ OP *o)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_CK_SVCONST	\
+	assert(o)
+
+PERL_CALLCONV OP *	Perl_ck_tell(pTHX_ OP *o)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_CK_TELL	\
+	assert(o)
+
+PERL_CALLCONV OP *	Perl_ck_trunc(pTHX_ OP *o)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_CK_TRUNC	\
+	assert(o)
+
+PERL_CALLCONV void	Perl_ck_warner(pTHX_ U32 err, const char* pat, ...)
+			__attribute__format__(__printf__,pTHX_2,pTHX_3);
+#define PERL_ARGS_ASSERT_CK_WARNER	\
+	assert(pat)
+
+PERL_CALLCONV void	Perl_ck_warner_d(pTHX_ U32 err, const char* pat, ...)
+			__attribute__format__(__printf__,pTHX_2,pTHX_3);
+#define PERL_ARGS_ASSERT_CK_WARNER_D	\
+	assert(pat)
+
+PERL_CALLCONV bool	Perl_ckwarn(pTHX_ U32 w);
+PERL_CALLCONV bool	Perl_ckwarn_d(pTHX_ U32 w);
+PERL_CALLCONV void	Perl_clear_defarray(pTHX_ AV* av, bool abandon);
+#define PERL_ARGS_ASSERT_CLEAR_DEFARRAY	\
+	assert(av)
+PERL_CALLCONV const COP*	Perl_closest_cop(pTHX_ const COP *cop, const OP *o, const OP *curop, bool opnext);
+#define PERL_ARGS_ASSERT_CLOSEST_COP	\
+	assert(cop)
+PERL_CALLCONV const char *	Perl_cop_fetch_label(pTHX_ COP *const cop, STRLEN *len, U32 *flags);
+#define PERL_ARGS_ASSERT_COP_FETCH_LABEL	\
+	assert(cop)
+PERL_CALLCONV void	Perl_cop_store_label(pTHX_ COP *const cop, const char *label, STRLEN len, U32 flags);
+#define PERL_ARGS_ASSERT_COP_STORE_LABEL	\
+	assert(cop); assert(label)
+PERL_CALLCONV SV *	Perl_core_prototype(pTHX_ SV *sv, const char *name, const int code, int * const opnum);
+#define PERL_ARGS_ASSERT_CORE_PROTOTYPE	\
+	assert(name)
+PERL_CALLCONV OP *	Perl_coresub_op(pTHX_ SV *const coreargssv, const int code, const int opnum);
+#define PERL_ARGS_ASSERT_CORESUB_OP	\
+	assert(coreargssv)
+PERL_CALLCONV void	Perl_create_eval_scope(pTHX_ OP *retop, U32 flags);
+PERL_CALLCONV_NO_RET void	Perl_croak(pTHX_ const char* pat, ...)
+			__attribute__noreturn__
+			__attribute__format__null_ok__(__printf__,pTHX_1,pTHX_2);
+
+PERL_STATIC_NO_RET void	S_croak_memory_wrap(void)
+			__attribute__noreturn__;
+
+PERL_CALLCONV_NO_RET void	Perl_croak_no_mem(void)
+			__attribute__noreturn__;
+
+PERL_CALLCONV_NO_RET void	Perl_croak_no_modify(void)
+			__attribute__noreturn__;
+
+PERL_CALLCONV_NO_RET void	Perl_croak_popstack(void)
+			__attribute__noreturn__;
+
+PERL_CALLCONV_NO_RET void	Perl_croak_sv(pTHX_ SV *baseex)
+			__attribute__noreturn__;
+#define PERL_ARGS_ASSERT_CROAK_SV	\
+	assert(baseex)
+
+PERL_CALLCONV_NO_RET void	Perl_croak_xs_usage(const CV *const cv, const char *const params)
+			__attribute__noreturn__;
+#define PERL_ARGS_ASSERT_CROAK_XS_USAGE	\
+	assert(cv); assert(params)
+
+PERL_CALLCONV regexp_engine const *	Perl_current_re_engine(pTHX);
+PERL_CALLCONV const char *	Perl_custom_op_desc(pTHX_ const OP *o)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_CUSTOM_OP_DESC	\
+	assert(o)
+
+PERL_CALLCONV XOPRETANY	Perl_custom_op_get_field(pTHX_ const OP *o, const xop_flags_enum field)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_CUSTOM_OP_GET_FIELD	\
+	assert(o)
+
+PERL_CALLCONV const char *	Perl_custom_op_name(pTHX_ const OP *o)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_CUSTOM_OP_NAME	\
+	assert(o)
+
+PERL_CALLCONV void	Perl_custom_op_register(pTHX_ Perl_ppaddr_t ppaddr, const XOP *xop);
+#define PERL_ARGS_ASSERT_CUSTOM_OP_REGISTER	\
+	assert(ppaddr); assert(xop)
+/* PERL_CALLCONV const XOP *	Perl_custom_op_xop(pTHX_ const OP *o)
+			__attribute__pure__; */
+
+PERL_CALLCONV void	Perl_cv_ckproto_len_flags(pTHX_ const CV* cv, const GV* gv, const char* p, const STRLEN len, const U32 flags);
+#define PERL_ARGS_ASSERT_CV_CKPROTO_LEN_FLAGS	\
+	assert(cv)
+PERL_CALLCONV CV*	Perl_cv_clone(pTHX_ CV* proto);
+#define PERL_ARGS_ASSERT_CV_CLONE	\
+	assert(proto)
+PERL_CALLCONV CV*	Perl_cv_clone_into(pTHX_ CV* proto, CV *target);
+#define PERL_ARGS_ASSERT_CV_CLONE_INTO	\
+	assert(proto); assert(target)
+PERL_CALLCONV SV*	Perl_cv_const_sv(const CV *const cv)
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV SV*	Perl_cv_const_sv_or_av(const CV *const cv)
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV void	Perl_cv_forget_slab(pTHX_ CV *cv);
+PERL_CALLCONV void	Perl_cv_get_call_checker(pTHX_ CV *cv, Perl_call_checker *ckfun_p, SV **ckobj_p);
+#define PERL_ARGS_ASSERT_CV_GET_CALL_CHECKER	\
+	assert(cv); assert(ckfun_p); assert(ckobj_p)
+PERL_CALLCONV SV *	Perl_cv_name(pTHX_ CV *cv, SV *sv, U32 flags);
+#define PERL_ARGS_ASSERT_CV_NAME	\
+	assert(cv)
+PERL_CALLCONV void	Perl_cv_set_call_checker(pTHX_ CV *cv, Perl_call_checker ckfun, SV *ckobj);
+#define PERL_ARGS_ASSERT_CV_SET_CALL_CHECKER	\
+	assert(cv); assert(ckfun); assert(ckobj)
+PERL_CALLCONV void	Perl_cv_set_call_checker_flags(pTHX_ CV *cv, Perl_call_checker ckfun, SV *ckobj, U32 flags);
+#define PERL_ARGS_ASSERT_CV_SET_CALL_CHECKER_FLAGS	\
+	assert(cv); assert(ckfun); assert(ckobj)
+PERL_CALLCONV void	Perl_cv_undef(pTHX_ CV* cv);
+#define PERL_ARGS_ASSERT_CV_UNDEF	\
+	assert(cv)
+PERL_CALLCONV void	Perl_cv_undef_flags(pTHX_ CV* cv, U32 flags);
+#define PERL_ARGS_ASSERT_CV_UNDEF_FLAGS	\
+	assert(cv)
+PERL_CALLCONV GV *	Perl_cvgv_from_hek(pTHX_ CV* cv);
+#define PERL_ARGS_ASSERT_CVGV_FROM_HEK	\
+	assert(cv)
+PERL_CALLCONV void	Perl_cvgv_set(pTHX_ CV* cv, GV* gv);
+#define PERL_ARGS_ASSERT_CVGV_SET	\
+	assert(cv)
+PERL_CALLCONV void	Perl_cvstash_set(pTHX_ CV* cv, HV* stash);
+#define PERL_ARGS_ASSERT_CVSTASH_SET	\
+	assert(cv)
+PERL_CALLCONV void	Perl_cx_dump(pTHX_ PERL_CONTEXT* cx);
+#define PERL_ARGS_ASSERT_CX_DUMP	\
+	assert(cx)
+PERL_CALLCONV I32	Perl_cxinc(pTHX)
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV void	Perl_deb(pTHX_ const char* pat, ...)
+			__attribute__format__(__printf__,pTHX_1,pTHX_2);
+#define PERL_ARGS_ASSERT_DEB	\
+	assert(pat)
+
+PERL_CALLCONV void	Perl_deb_stack_all(pTHX);
+PERL_CALLCONV I32	Perl_debop(pTHX_ const OP* o);
+#define PERL_ARGS_ASSERT_DEBOP	\
+	assert(o)
+PERL_CALLCONV void	Perl_debprofdump(pTHX);
+PERL_CALLCONV I32	Perl_debstack(pTHX);
+PERL_CALLCONV I32	Perl_debstackptrs(pTHX);
+PERL_CALLCONV SV *	Perl_defelem_target(pTHX_ SV *sv, MAGIC *mg)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_DEFELEM_TARGET	\
+	assert(sv)
+
+PERL_CALLCONV void	Perl_delete_eval_scope(pTHX);
+PERL_CALLCONV char*	Perl_delimcpy(char* to, const char* toend, const char* from, const char* fromend, int delim, I32* retlen);
+#define PERL_ARGS_ASSERT_DELIMCPY	\
+	assert(to); assert(toend); assert(from); assert(fromend); assert(retlen)
+PERL_CALLCONV void	Perl_despatch_signals(pTHX);
+PERL_CALLCONV_NO_RET OP*	Perl_die(pTHX_ const char* pat, ...)
+			__attribute__noreturn__
+			__attribute__format__null_ok__(__printf__,pTHX_1,pTHX_2);
+
+PERL_CALLCONV_NO_RET OP*	Perl_die_sv(pTHX_ SV *baseex)
+			__attribute__noreturn__;
+#define PERL_ARGS_ASSERT_DIE_SV	\
+	assert(baseex)
+
+PERL_CALLCONV_NO_RET void	Perl_die_unwind(pTHX_ SV* msv)
+			__attribute__noreturn__;
+#define PERL_ARGS_ASSERT_DIE_UNWIND	\
+	assert(msv)
+
+/* PERL_CALLCONV bool	Perl_do_aexec(pTHX_ SV* really, SV** mark, SV** sp); */
+#define PERL_ARGS_ASSERT_DO_AEXEC	\
+	assert(mark); assert(sp)
+PERL_CALLCONV bool	Perl_do_aexec5(pTHX_ SV* really, SV** mark, SV** sp, int fd, int do_report);
+#define PERL_ARGS_ASSERT_DO_AEXEC5	\
+	assert(mark); assert(sp)
+PERL_CALLCONV int	Perl_do_binmode(pTHX_ PerlIO *fp, int iotype, int mode);
+#define PERL_ARGS_ASSERT_DO_BINMODE	\
+	assert(fp)
+PERL_CALLCONV bool	Perl_do_close(pTHX_ GV* gv, bool not_implicit);
+PERL_CALLCONV void	Perl_do_dump_pad(pTHX_ I32 level, PerlIO *file, PADLIST *padlist, int full);
+#define PERL_ARGS_ASSERT_DO_DUMP_PAD	\
+	assert(file)
+PERL_CALLCONV bool	Perl_do_eof(pTHX_ GV* gv);
+#define PERL_ARGS_ASSERT_DO_EOF	\
+	assert(gv)
+PERL_CALLCONV void	Perl_do_execfree(pTHX);
+PERL_CALLCONV void	Perl_do_gv_dump(pTHX_ I32 level, PerlIO *file, const char *name, GV *sv);
+#define PERL_ARGS_ASSERT_DO_GV_DUMP	\
+	assert(file); assert(name)
+PERL_CALLCONV void	Perl_do_gvgv_dump(pTHX_ I32 level, PerlIO *file, const char *name, GV *sv);
+#define PERL_ARGS_ASSERT_DO_GVGV_DUMP	\
+	assert(file); assert(name)
+PERL_CALLCONV void	Perl_do_hv_dump(pTHX_ I32 level, PerlIO *file, const char *name, HV *sv);
+#define PERL_ARGS_ASSERT_DO_HV_DUMP	\
+	assert(file); assert(name)
+PERL_CALLCONV void	Perl_do_join(pTHX_ SV *sv, SV *delim, SV **mark, SV **sp);
+#define PERL_ARGS_ASSERT_DO_JOIN	\
+	assert(sv); assert(delim); assert(mark); assert(sp)
+PERL_CALLCONV void	Perl_do_magic_dump(pTHX_ I32 level, PerlIO *file, const MAGIC *mg, I32 nest, I32 maxnest, bool dumpops, STRLEN pvlim);
+#define PERL_ARGS_ASSERT_DO_MAGIC_DUMP	\
+	assert(file)
+PERL_CALLCONV I32	Perl_do_ncmp(pTHX_ SV *const left, SV *const right)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_DO_NCMP	\
+	assert(left); assert(right)
+
+PERL_CALLCONV void	Perl_do_op_dump(pTHX_ I32 level, PerlIO *file, const OP *o);
+#define PERL_ARGS_ASSERT_DO_OP_DUMP	\
+	assert(file)
+/* PERL_CALLCONV bool	Perl_do_open(pTHX_ GV* gv, const char* name, I32 len, int as_raw, int rawmode, int rawperm, PerlIO* supplied_fp); */
+#define PERL_ARGS_ASSERT_DO_OPEN	\
+	assert(gv); assert(name)
+PERL_CALLCONV bool	Perl_do_open6(pTHX_ GV *gv, const char *oname, STRLEN len, PerlIO *supplied_fp, SV **svp, U32 num);
+#define PERL_ARGS_ASSERT_DO_OPEN6	\
+	assert(gv); assert(oname)
+PERL_CALLCONV bool	Perl_do_open9(pTHX_ GV *gv, const char *name, I32 len, int as_raw, int rawmode, int rawperm, PerlIO *supplied_fp, SV *svs, I32 num);
+#define PERL_ARGS_ASSERT_DO_OPEN9	\
+	assert(gv); assert(name); assert(svs)
+PERL_CALLCONV bool	Perl_do_open_raw(pTHX_ GV *gv, const char *oname, STRLEN len, int rawmode, int rawperm);
+#define PERL_ARGS_ASSERT_DO_OPEN_RAW	\
+	assert(gv); assert(oname)
+PERL_CALLCONV bool	Perl_do_openn(pTHX_ GV *gv, const char *oname, I32 len, int as_raw, int rawmode, int rawperm, PerlIO *supplied_fp, SV **svp, I32 num);
+#define PERL_ARGS_ASSERT_DO_OPENN	\
+	assert(gv); assert(oname)
+PERL_CALLCONV void	Perl_do_pmop_dump(pTHX_ I32 level, PerlIO *file, const PMOP *pm);
+#define PERL_ARGS_ASSERT_DO_PMOP_DUMP	\
+	assert(file)
+PERL_CALLCONV bool	Perl_do_print(pTHX_ SV* sv, PerlIO* fp);
+#define PERL_ARGS_ASSERT_DO_PRINT	\
+	assert(fp)
+PERL_CALLCONV OP*	Perl_do_readline(pTHX)
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV bool	Perl_do_seek(pTHX_ GV* gv, Off_t pos, int whence);
+PERL_CALLCONV void	Perl_do_sprintf(pTHX_ SV* sv, I32 len, SV** sarg);
+#define PERL_ARGS_ASSERT_DO_SPRINTF	\
+	assert(sv); assert(sarg)
+PERL_CALLCONV void	Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bool dumpops, STRLEN pvlim);
+#define PERL_ARGS_ASSERT_DO_SV_DUMP	\
+	assert(file)
+PERL_CALLCONV Off_t	Perl_do_sysseek(pTHX_ GV* gv, Off_t pos, int whence);
+#define PERL_ARGS_ASSERT_DO_SYSSEEK	\
+	assert(gv)
+PERL_CALLCONV Off_t	Perl_do_tell(pTHX_ GV* gv)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_DO_TELL	\
+	assert(gv)
+
+PERL_CALLCONV I32	Perl_do_trans(pTHX_ SV* sv);
+#define PERL_ARGS_ASSERT_DO_TRANS	\
+	assert(sv)
+PERL_CALLCONV UV	Perl_do_vecget(pTHX_ SV* sv, SSize_t offset, int size);
+#define PERL_ARGS_ASSERT_DO_VECGET	\
+	assert(sv)
+PERL_CALLCONV void	Perl_do_vecset(pTHX_ SV* sv);
+#define PERL_ARGS_ASSERT_DO_VECSET	\
+	assert(sv)
+PERL_CALLCONV void	Perl_do_vop(pTHX_ I32 optype, SV* sv, SV* left, SV* right);
+#define PERL_ARGS_ASSERT_DO_VOP	\
+	assert(sv); assert(left); assert(right)
+PERL_CALLCONV OP*	Perl_dofile(pTHX_ OP* term, I32 force_builtin);
+#define PERL_ARGS_ASSERT_DOFILE	\
+	assert(term)
+PERL_CALLCONV bool	Perl_doing_taint(int argc, char** argv, char** env)
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV OP *	Perl_doref(pTHX_ OP *o, I32 type, bool set_op_ref);
+#define PERL_ARGS_ASSERT_DOREF	\
+	assert(o)
+PERL_CALLCONV void	Perl_dounwind(pTHX_ I32 cxix);
+PERL_CALLCONV U8	Perl_dowantarray(pTHX)
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV void	Perl_drand48_init_r(perl_drand48_t *random_state, U32 seed);
+#define PERL_ARGS_ASSERT_DRAND48_INIT_R	\
+	assert(random_state)
+PERL_CALLCONV double	Perl_drand48_r(perl_drand48_t *random_state);
+#define PERL_ARGS_ASSERT_DRAND48_R	\
+	assert(random_state)
+PERL_CALLCONV void	Perl_dump_all(pTHX);
+PERL_CALLCONV void	Perl_dump_all_perl(pTHX_ bool justperl);
+PERL_CALLCONV void	Perl_dump_eval(pTHX);
+PERL_CALLCONV void	Perl_dump_form(pTHX_ const GV* gv);
+#define PERL_ARGS_ASSERT_DUMP_FORM	\
+	assert(gv)
+PERL_CALLCONV void	Perl_dump_indent(pTHX_ I32 level, PerlIO *file, const char* pat, ...)
+			__attribute__format__(__printf__,pTHX_3,pTHX_4);
+#define PERL_ARGS_ASSERT_DUMP_INDENT	\
+	assert(file); assert(pat)
+
+PERL_CALLCONV void	Perl_dump_packsubs(pTHX_ const HV* stash);
+#define PERL_ARGS_ASSERT_DUMP_PACKSUBS	\
+	assert(stash)
+PERL_CALLCONV void	Perl_dump_packsubs_perl(pTHX_ const HV* stash, bool justperl);
+#define PERL_ARGS_ASSERT_DUMP_PACKSUBS_PERL	\
+	assert(stash)
+PERL_CALLCONV void	Perl_dump_sub(pTHX_ const GV* gv);
+#define PERL_ARGS_ASSERT_DUMP_SUB	\
+	assert(gv)
+PERL_CALLCONV void	Perl_dump_sub_perl(pTHX_ const GV* gv, bool justperl);
+#define PERL_ARGS_ASSERT_DUMP_SUB_PERL	\
+	assert(gv)
+PERL_CALLCONV void	Perl_dump_vindent(pTHX_ I32 level, PerlIO *file, const char* pat, va_list *args);
+#define PERL_ARGS_ASSERT_DUMP_VINDENT	\
+	assert(file); assert(pat)
+PERL_CALLCONV void	Perl_emulate_cop_io(pTHX_ const COP *const c, SV *const sv);
+#define PERL_ARGS_ASSERT_EMULATE_COP_IO	\
+	assert(c); assert(sv)
+PERL_CALLCONV SV*	Perl_eval_pv(pTHX_ const char* p, I32 croak_on_error);
+#define PERL_ARGS_ASSERT_EVAL_PV	\
+	assert(p)
+PERL_CALLCONV I32	Perl_eval_sv(pTHX_ SV* sv, I32 flags);
+#define PERL_ARGS_ASSERT_EVAL_SV	\
+	assert(sv)
+PERL_CALLCONV void	Perl_fbm_compile(pTHX_ SV* sv, U32 flags);
+#define PERL_ARGS_ASSERT_FBM_COMPILE	\
+	assert(sv)
+PERL_CALLCONV char*	Perl_fbm_instr(pTHX_ unsigned char* big, unsigned char* bigend, SV* littlestr, U32 flags)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_FBM_INSTR	\
+	assert(big); assert(bigend); assert(littlestr)
+
+PERL_CALLCONV bool	Perl_feature_is_enabled(pTHX_ const char *const name, STRLEN namelen);
+#define PERL_ARGS_ASSERT_FEATURE_IS_ENABLED	\
+	assert(name)
+PERL_CALLCONV SV*	Perl_filter_add(pTHX_ filter_t funcp, SV* datasv);
+PERL_CALLCONV void	Perl_filter_del(pTHX_ filter_t funcp);
+#define PERL_ARGS_ASSERT_FILTER_DEL	\
+	assert(funcp)
+PERL_CALLCONV I32	Perl_filter_read(pTHX_ int idx, SV *buf_sv, int maxlen)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_FILTER_READ	\
+	assert(buf_sv)
+
+PERL_CALLCONV void	Perl_finalize_optree(pTHX_ OP* o);
+#define PERL_ARGS_ASSERT_FINALIZE_OPTREE	\
+	assert(o)
+PERL_CALLCONV CV *	Perl_find_lexical_cv(pTHX_ PADOFFSET off);
+PERL_CALLCONV CV*	Perl_find_runcv(pTHX_ U32 *db_seqp)
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV CV*	Perl_find_runcv_where(pTHX_ U8 cond, IV arg, U32 *db_seqp)
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV SV*	Perl_find_rundefsv(pTHX);
+PERL_CALLCONV PADOFFSET	Perl_find_rundefsvoffset(pTHX)
+			__attribute__deprecated__;
+
+PERL_CALLCONV char*	Perl_find_script(pTHX_ const char *scriptname, bool dosearch, const char *const *const search_ext, I32 flags);
+#define PERL_ARGS_ASSERT_FIND_SCRIPT	\
+	assert(scriptname)
+PERL_CALLCONV I32	Perl_foldEQ(const char* a, const char* b, I32 len)
+			__attribute__pure__;
+#define PERL_ARGS_ASSERT_FOLDEQ	\
+	assert(a); assert(b)
+
+PERL_CALLCONV I32	Perl_foldEQ_latin1(const char* a, const char* b, I32 len)
+			__attribute__pure__;
+#define PERL_ARGS_ASSERT_FOLDEQ_LATIN1	\
+	assert(a); assert(b)
+
+PERL_CALLCONV I32	Perl_foldEQ_locale(const char* a, const char* b, I32 len)
+			__attribute__pure__;
+#define PERL_ARGS_ASSERT_FOLDEQ_LOCALE	\
+	assert(a); assert(b)
+
+/* PERL_CALLCONV I32	foldEQ_utf8(pTHX_ const char *s1, char **pe1, UV l1, bool u1, const char *s2, char **pe2, UV l2, bool u2); */
+PERL_CALLCONV I32	Perl_foldEQ_utf8_flags(pTHX_ const char *s1, char **pe1, UV l1, bool u1, const char *s2, char **pe2, UV l2, bool u2, U32 flags);
+#define PERL_ARGS_ASSERT_FOLDEQ_UTF8_FLAGS	\
+	assert(s1); assert(s2)
+PERL_CALLCONV char*	Perl_form(pTHX_ const char* pat, ...)
+			__attribute__format__(__printf__,pTHX_1,pTHX_2);
+#define PERL_ARGS_ASSERT_FORM	\
+	assert(pat)
+
+PERL_CALLCONV void	Perl_free_tied_hv_pool(pTHX);
+PERL_CALLCONV void	Perl_free_tmps(pTHX);
+PERL_CALLCONV AV*	Perl_get_av(pTHX_ const char *name, I32 flags);
+#define PERL_ARGS_ASSERT_GET_AV	\
+	assert(name)
+PERL_CALLCONV void*	Perl_get_context(void)
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV CV*	Perl_get_cv(pTHX_ const char* name, I32 flags);
+#define PERL_ARGS_ASSERT_GET_CV	\
+	assert(name)
+PERL_CALLCONV CV*	Perl_get_cvn_flags(pTHX_ const char* name, STRLEN len, I32 flags);
+#define PERL_ARGS_ASSERT_GET_CVN_FLAGS	\
+	assert(name)
+PERL_CALLCONV void	Perl_get_db_sub(pTHX_ SV **svp, CV *cv);
+#define PERL_ARGS_ASSERT_GET_DB_SUB	\
+	assert(cv)
+PERL_CALLCONV void	Perl_get_hash_seed(pTHX_ unsigned char * const seed_buffer);
+#define PERL_ARGS_ASSERT_GET_HASH_SEED	\
+	assert(seed_buffer)
+PERL_CALLCONV HV*	Perl_get_hv(pTHX_ const char *name, I32 flags);
+#define PERL_ARGS_ASSERT_GET_HV	\
+	assert(name)
+PERL_CALLCONV const char*	Perl_get_no_modify(pTHX)
+			__attribute__warn_unused_result__
+			__attribute__pure__;
+
+PERL_CALLCONV char**	Perl_get_op_descs(pTHX)
+			__attribute__warn_unused_result__
+			__attribute__pure__;
+
+PERL_CALLCONV char**	Perl_get_op_names(pTHX)
+			__attribute__warn_unused_result__
+			__attribute__pure__;
+
+PERL_CALLCONV U32*	Perl_get_opargs(pTHX)
+			__attribute__warn_unused_result__
+			__attribute__pure__;
+
+PERL_CALLCONV PPADDR_t*	Perl_get_ppaddr(pTHX)
+			__attribute__warn_unused_result__
+			__attribute__pure__;
+
+PERL_CALLCONV REGEXP *	Perl_get_re_arg(pTHX_ SV *sv);
+PERL_CALLCONV SV*	Perl_get_sv(pTHX_ const char *name, I32 flags);
+#define PERL_ARGS_ASSERT_GET_SV	\
+	assert(name)
+PERL_CALLCONV MGVTBL*	Perl_get_vtbl(pTHX_ int vtbl_id)
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV int	Perl_getcwd_sv(pTHX_ SV* sv);
+#define PERL_ARGS_ASSERT_GETCWD_SV	\
+	assert(sv)
+PERL_CALLCONV void	Perl_gp_free(pTHX_ GV* gv);
+PERL_CALLCONV GP*	Perl_gp_ref(pTHX_ GP* gp);
+PERL_CALLCONV bool	Perl_grok_atoUV(const char* pv, UV* valptr, const char** endptr);
+#define PERL_ARGS_ASSERT_GROK_ATOUV	\
+	assert(pv); assert(valptr)
+PERL_CALLCONV UV	Perl_grok_bin(pTHX_ const char* start, STRLEN* len_p, I32* flags, NV *result);
+#define PERL_ARGS_ASSERT_GROK_BIN	\
+	assert(start); assert(len_p); assert(flags)
+PERL_CALLCONV UV	Perl_grok_hex(pTHX_ const char* start, STRLEN* len_p, I32* flags, NV *result);
+#define PERL_ARGS_ASSERT_GROK_HEX	\
+	assert(start); assert(len_p); assert(flags)
+PERL_CALLCONV int	Perl_grok_infnan(pTHX_ const char** sp, const char *send);
+#define PERL_ARGS_ASSERT_GROK_INFNAN	\
+	assert(sp); assert(send)
+PERL_CALLCONV int	Perl_grok_number(pTHX_ const char *pv, STRLEN len, UV *valuep);
+#define PERL_ARGS_ASSERT_GROK_NUMBER	\
+	assert(pv)
+PERL_CALLCONV int	Perl_grok_number_flags(pTHX_ const char *pv, STRLEN len, UV *valuep, U32 flags);
+#define PERL_ARGS_ASSERT_GROK_NUMBER_FLAGS	\
+	assert(pv)
+PERL_CALLCONV bool	Perl_grok_numeric_radix(pTHX_ const char **sp, const char *send)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_GROK_NUMERIC_RADIX	\
+	assert(sp); assert(send)
+
+PERL_CALLCONV UV	Perl_grok_oct(pTHX_ const char* start, STRLEN* len_p, I32* flags, NV *result);
+#define PERL_ARGS_ASSERT_GROK_OCT	\
+	assert(start); assert(len_p); assert(flags)
+/* PERL_CALLCONV GV*	Perl_gv_AVadd(pTHX_ GV *gv); */
+/* PERL_CALLCONV GV*	Perl_gv_HVadd(pTHX_ GV *gv); */
+/* PERL_CALLCONV GV*	Perl_gv_IOadd(pTHX_ GV* gv); */
+PERL_CALLCONV GV*	Perl_gv_add_by_type(pTHX_ GV *gv, svtype type);
+/* PERL_CALLCONV GV*	gv_autoload4(pTHX_ HV* stash, const char* name, STRLEN len, I32 method)
+			__attribute__warn_unused_result__; */
+
+PERL_CALLCONV GV*	Perl_gv_autoload_pv(pTHX_ HV* stash, const char* namepv, U32 flags)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_GV_AUTOLOAD_PV	\
+	assert(namepv)
+
+PERL_CALLCONV GV*	Perl_gv_autoload_pvn(pTHX_ HV* stash, const char* name, STRLEN len, U32 flags)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_GV_AUTOLOAD_PVN	\
+	assert(name)
+
+PERL_CALLCONV GV*	Perl_gv_autoload_sv(pTHX_ HV* stash, SV* namesv, U32 flags)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_GV_AUTOLOAD_SV	\
+	assert(namesv)
+
+PERL_CALLCONV void	Perl_gv_check(pTHX_ HV* stash);
+#define PERL_ARGS_ASSERT_GV_CHECK	\
+	assert(stash)
+PERL_CALLCONV SV*	Perl_gv_const_sv(pTHX_ GV* gv)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_GV_CONST_SV	\
+	assert(gv)
+
+PERL_CALLCONV void	Perl_gv_dump(pTHX_ GV* gv);
+PERL_CALLCONV void	Perl_gv_efullname(pTHX_ SV* sv, const GV* gv);
+#define PERL_ARGS_ASSERT_GV_EFULLNAME	\
+	assert(sv); assert(gv)
+/* PERL_CALLCONV void	Perl_gv_efullname3(pTHX_ SV* sv, const GV* gv, const char* prefix); */
+#define PERL_ARGS_ASSERT_GV_EFULLNAME3	\
+	assert(sv); assert(gv)
+PERL_CALLCONV void	Perl_gv_efullname4(pTHX_ SV* sv, const GV* gv, const char* prefix, bool keepmain);
+#define PERL_ARGS_ASSERT_GV_EFULLNAME4	\
+	assert(sv); assert(gv)
+PERL_CALLCONV GV*	Perl_gv_fetchfile(pTHX_ const char* name);
+#define PERL_ARGS_ASSERT_GV_FETCHFILE	\
+	assert(name)
+PERL_CALLCONV GV*	Perl_gv_fetchfile_flags(pTHX_ const char *const name, const STRLEN len, const U32 flags);
+#define PERL_ARGS_ASSERT_GV_FETCHFILE_FLAGS	\
+	assert(name)
+/* PERL_CALLCONV GV*	gv_fetchmeth(pTHX_ HV* stash, const char* name, STRLEN len, I32 level); */
+/* PERL_CALLCONV GV*	gv_fetchmeth_autoload(pTHX_ HV* stash, const char* name, STRLEN len, I32 level); */
+PERL_CALLCONV GV*	Perl_gv_fetchmeth_pv(pTHX_ HV* stash, const char* name, I32 level, U32 flags);
+#define PERL_ARGS_ASSERT_GV_FETCHMETH_PV	\
+	assert(name)
+PERL_CALLCONV GV*	Perl_gv_fetchmeth_pv_autoload(pTHX_ HV* stash, const char* name, I32 level, U32 flags);
+#define PERL_ARGS_ASSERT_GV_FETCHMETH_PV_AUTOLOAD	\
+	assert(name)
+PERL_CALLCONV GV*	Perl_gv_fetchmeth_pvn(pTHX_ HV* stash, const char* name, STRLEN len, I32 level, U32 flags);
+#define PERL_ARGS_ASSERT_GV_FETCHMETH_PVN	\
+	assert(name)
+PERL_CALLCONV GV*	Perl_gv_fetchmeth_pvn_autoload(pTHX_ HV* stash, const char* name, STRLEN len, I32 level, U32 flags);
+#define PERL_ARGS_ASSERT_GV_FETCHMETH_PVN_AUTOLOAD	\
+	assert(name)
+PERL_CALLCONV GV*	Perl_gv_fetchmeth_sv(pTHX_ HV* stash, SV* namesv, I32 level, U32 flags);
+#define PERL_ARGS_ASSERT_GV_FETCHMETH_SV	\
+	assert(namesv)
+PERL_CALLCONV GV*	Perl_gv_fetchmeth_sv_autoload(pTHX_ HV* stash, SV* namesv, I32 level, U32 flags);
+#define PERL_ARGS_ASSERT_GV_FETCHMETH_SV_AUTOLOAD	\
+	assert(namesv)
+/* PERL_CALLCONV GV*	Perl_gv_fetchmethod(pTHX_ HV* stash, const char* name); */
+#define PERL_ARGS_ASSERT_GV_FETCHMETHOD	\
+	assert(stash); assert(name)
+PERL_CALLCONV GV*	Perl_gv_fetchmethod_autoload(pTHX_ HV* stash, const char* name, I32 autoload);
+#define PERL_ARGS_ASSERT_GV_FETCHMETHOD_AUTOLOAD	\
+	assert(stash); assert(name)
+PERL_CALLCONV GV*	Perl_gv_fetchmethod_pv_flags(pTHX_ HV* stash, const char* name, U32 flags);
+#define PERL_ARGS_ASSERT_GV_FETCHMETHOD_PV_FLAGS	\
+	assert(stash); assert(name)
+PERL_CALLCONV GV*	Perl_gv_fetchmethod_pvn_flags(pTHX_ HV* stash, const char* name, const STRLEN len, U32 flags);
+#define PERL_ARGS_ASSERT_GV_FETCHMETHOD_PVN_FLAGS	\
+	assert(stash); assert(name)
+PERL_CALLCONV GV*	Perl_gv_fetchmethod_sv_flags(pTHX_ HV* stash, SV* namesv, U32 flags);
+#define PERL_ARGS_ASSERT_GV_FETCHMETHOD_SV_FLAGS	\
+	assert(stash); assert(namesv)
+PERL_CALLCONV GV*	Perl_gv_fetchpv(pTHX_ const char *nambeg, I32 add, const svtype sv_type);
+#define PERL_ARGS_ASSERT_GV_FETCHPV	\
+	assert(nambeg)
+PERL_CALLCONV GV*	Perl_gv_fetchpvn_flags(pTHX_ const char* name, STRLEN len, I32 flags, const svtype sv_type);
+#define PERL_ARGS_ASSERT_GV_FETCHPVN_FLAGS	\
+	assert(name)
+PERL_CALLCONV GV*	Perl_gv_fetchsv(pTHX_ SV *name, I32 flags, const svtype sv_type);
+#define PERL_ARGS_ASSERT_GV_FETCHSV	\
+	assert(name)
+PERL_CALLCONV void	Perl_gv_fullname(pTHX_ SV* sv, const GV* gv);
+#define PERL_ARGS_ASSERT_GV_FULLNAME	\
+	assert(sv); assert(gv)
+/* PERL_CALLCONV void	Perl_gv_fullname3(pTHX_ SV* sv, const GV* gv, const char* prefix); */
+#define PERL_ARGS_ASSERT_GV_FULLNAME3	\
+	assert(sv); assert(gv)
+PERL_CALLCONV void	Perl_gv_fullname4(pTHX_ SV* sv, const GV* gv, const char* prefix, bool keepmain);
+#define PERL_ARGS_ASSERT_GV_FULLNAME4	\
+	assert(sv); assert(gv)
+PERL_CALLCONV CV*	Perl_gv_handler(pTHX_ HV* stash, I32 id)
+			__attribute__warn_unused_result__;
+
+/* PERL_CALLCONV void	gv_init(pTHX_ GV* gv, HV* stash, const char* name, STRLEN len, int multi); */
+PERL_CALLCONV void	Perl_gv_init_pv(pTHX_ GV* gv, HV* stash, const char* name, U32 flags);
+#define PERL_ARGS_ASSERT_GV_INIT_PV	\
+	assert(gv); assert(name)
+PERL_CALLCONV void	Perl_gv_init_pvn(pTHX_ GV* gv, HV* stash, const char* name, STRLEN len, U32 flags);
+#define PERL_ARGS_ASSERT_GV_INIT_PVN	\
+	assert(gv); assert(name)
+PERL_CALLCONV void	Perl_gv_init_sv(pTHX_ GV* gv, HV* stash, SV* namesv, U32 flags);
+#define PERL_ARGS_ASSERT_GV_INIT_SV	\
+	assert(gv); assert(namesv)
+PERL_CALLCONV void	Perl_gv_name_set(pTHX_ GV* gv, const char *name, U32 len, U32 flags);
+#define PERL_ARGS_ASSERT_GV_NAME_SET	\
+	assert(gv); assert(name)
+PERL_CALLCONV GV *	Perl_gv_override(pTHX_ const char * const name, const STRLEN len);
+#define PERL_ARGS_ASSERT_GV_OVERRIDE	\
+	assert(name)
+PERL_CALLCONV void	Perl_gv_setref(pTHX_ SV *const dstr, SV *const sstr);
+#define PERL_ARGS_ASSERT_GV_SETREF	\
+	assert(dstr); assert(sstr)
+PERL_CALLCONV HV*	Perl_gv_stashpv(pTHX_ const char* name, I32 flags);
+#define PERL_ARGS_ASSERT_GV_STASHPV	\
+	assert(name)
+PERL_CALLCONV HV*	Perl_gv_stashpvn(pTHX_ const char* name, U32 namelen, I32 flags);
+#define PERL_ARGS_ASSERT_GV_STASHPVN	\
+	assert(name)
+PERL_CALLCONV HV*	Perl_gv_stashsv(pTHX_ SV* sv, I32 flags);
+#define PERL_ARGS_ASSERT_GV_STASHSV	\
+	assert(sv)
+PERL_CALLCONV void	Perl_gv_try_downgrade(pTHX_ GV* gv);
+#define PERL_ARGS_ASSERT_GV_TRY_DOWNGRADE	\
+	assert(gv)
+PERL_CALLCONV AV**	Perl_hv_backreferences_p(pTHX_ HV *hv);
+#define PERL_ARGS_ASSERT_HV_BACKREFERENCES_P	\
+	assert(hv)
+PERL_CALLCONV void	Perl_hv_clear(pTHX_ HV *hv);
+PERL_CALLCONV void	Perl_hv_clear_placeholders(pTHX_ HV *hv);
+#define PERL_ARGS_ASSERT_HV_CLEAR_PLACEHOLDERS	\
+	assert(hv)
+PERL_CALLCONV void*	Perl_hv_common(pTHX_ HV *hv, SV *keysv, const char* key, STRLEN klen, int flags, int action, SV *val, U32 hash);
+PERL_CALLCONV void*	Perl_hv_common_key_len(pTHX_ HV *hv, const char *key, I32 klen_i32, const int action, SV *val, const U32 hash);
+#define PERL_ARGS_ASSERT_HV_COMMON_KEY_LEN	\
+	assert(key)
+PERL_CALLCONV HV *	Perl_hv_copy_hints_hv(pTHX_ HV *const ohv)
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV void	Perl_hv_delayfree_ent(pTHX_ HV *hv, HE *entry);
+#define PERL_ARGS_ASSERT_HV_DELAYFREE_ENT	\
+	assert(hv)
+/* PERL_CALLCONV SV*	Perl_hv_delete(pTHX_ HV *hv, const char *key, I32 klen, I32 flags); */
+#define PERL_ARGS_ASSERT_HV_DELETE	\
+	assert(key)
+/* PERL_CALLCONV SV*	Perl_hv_delete_ent(pTHX_ HV *hv, SV *keysv, I32 flags, U32 hash); */
+#define PERL_ARGS_ASSERT_HV_DELETE_ENT	\
+	assert(keysv)
+PERL_CALLCONV HE**	Perl_hv_eiter_p(pTHX_ HV *hv)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_HV_EITER_P	\
+	assert(hv)
+
+PERL_CALLCONV void	Perl_hv_eiter_set(pTHX_ HV *hv, HE *eiter);
+#define PERL_ARGS_ASSERT_HV_EITER_SET	\
+	assert(hv)
+PERL_CALLCONV void	Perl_hv_ename_add(pTHX_ HV *hv, const char *name, U32 len, U32 flags);
+#define PERL_ARGS_ASSERT_HV_ENAME_ADD	\
+	assert(hv); assert(name)
+PERL_CALLCONV void	Perl_hv_ename_delete(pTHX_ HV *hv, const char *name, U32 len, U32 flags);
+#define PERL_ARGS_ASSERT_HV_ENAME_DELETE	\
+	assert(hv); assert(name)
+/* PERL_CALLCONV bool	Perl_hv_exists(pTHX_ HV *hv, const char *key, I32 klen)
+			__attribute__warn_unused_result__; */
+#define PERL_ARGS_ASSERT_HV_EXISTS	\
+	assert(key)
+
+/* PERL_CALLCONV bool	Perl_hv_exists_ent(pTHX_ HV *hv, SV *keysv, U32 hash)
+			__attribute__warn_unused_result__; */
+#define PERL_ARGS_ASSERT_HV_EXISTS_ENT	\
+	assert(keysv)
+
+/* PERL_CALLCONV SV**	Perl_hv_fetch(pTHX_ HV *hv, const char *key, I32 klen, I32 lval); */
+#define PERL_ARGS_ASSERT_HV_FETCH	\
+	assert(key)
+/* PERL_CALLCONV HE*	Perl_hv_fetch_ent(pTHX_ HV *hv, SV *keysv, I32 lval, U32 hash); */
+#define PERL_ARGS_ASSERT_HV_FETCH_ENT	\
+	assert(keysv)
+PERL_CALLCONV STRLEN	Perl_hv_fill(pTHX_ HV *const hv);
+#define PERL_ARGS_ASSERT_HV_FILL	\
+	assert(hv)
+PERL_CALLCONV void	Perl_hv_free_ent(pTHX_ HV *hv, HE *entry);
+#define PERL_ARGS_ASSERT_HV_FREE_ENT	\
+	assert(hv)
+PERL_CALLCONV I32	Perl_hv_iterinit(pTHX_ HV *hv);
+#define PERL_ARGS_ASSERT_HV_ITERINIT	\
+	assert(hv)
+PERL_CALLCONV char*	Perl_hv_iterkey(pTHX_ HE* entry, I32* retlen)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_HV_ITERKEY	\
+	assert(entry); assert(retlen)
+
+PERL_CALLCONV SV*	Perl_hv_iterkeysv(pTHX_ HE* entry)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_HV_ITERKEYSV	\
+	assert(entry)
+
+/* PERL_CALLCONV HE*	Perl_hv_iternext(pTHX_ HV *hv)
+			__attribute__warn_unused_result__; */
+#define PERL_ARGS_ASSERT_HV_ITERNEXT	\
+	assert(hv)
+
+PERL_CALLCONV HE*	Perl_hv_iternext_flags(pTHX_ HV *hv, I32 flags)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_HV_ITERNEXT_FLAGS	\
+	assert(hv)
+
+PERL_CALLCONV SV*	Perl_hv_iternextsv(pTHX_ HV *hv, char **key, I32 *retlen)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_HV_ITERNEXTSV	\
+	assert(hv); assert(key); assert(retlen)
+
+PERL_CALLCONV SV*	Perl_hv_iterval(pTHX_ HV *hv, HE *entry)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_HV_ITERVAL	\
+	assert(hv); assert(entry)
+
+PERL_CALLCONV void	Perl_hv_ksplit(pTHX_ HV *hv, IV newmax);
+#define PERL_ARGS_ASSERT_HV_KSPLIT	\
+	assert(hv)
+/* PERL_CALLCONV void	Perl_hv_magic(pTHX_ HV *hv, GV *gv, int how); */
+#define PERL_ARGS_ASSERT_HV_MAGIC	\
+	assert(hv)
+PERL_CALLCONV void	Perl_hv_name_set(pTHX_ HV *hv, const char *name, U32 len, U32 flags);
+#define PERL_ARGS_ASSERT_HV_NAME_SET	\
+	assert(hv)
+PERL_CALLCONV I32	Perl_hv_placeholders_get(pTHX_ const HV *hv)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_HV_PLACEHOLDERS_GET	\
+	assert(hv)
+
+PERL_CALLCONV SSize_t*	Perl_hv_placeholders_p(pTHX_ HV *hv)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_HV_PLACEHOLDERS_P	\
+	assert(hv)
+
+PERL_CALLCONV void	Perl_hv_placeholders_set(pTHX_ HV *hv, I32 ph);
+#define PERL_ARGS_ASSERT_HV_PLACEHOLDERS_SET	\
+	assert(hv)
+PERL_CALLCONV void	Perl_hv_rand_set(pTHX_ HV *hv, U32 new_xhv_rand);
+#define PERL_ARGS_ASSERT_HV_RAND_SET	\
+	assert(hv)
+PERL_CALLCONV I32*	Perl_hv_riter_p(pTHX_ HV *hv)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_HV_RITER_P	\
+	assert(hv)
+
+PERL_CALLCONV void	Perl_hv_riter_set(pTHX_ HV *hv, I32 riter);
+#define PERL_ARGS_ASSERT_HV_RITER_SET	\
+	assert(hv)
+PERL_CALLCONV SV*	Perl_hv_scalar(pTHX_ HV *hv)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_HV_SCALAR	\
+	assert(hv)
+
+/* PERL_CALLCONV SV**	Perl_hv_store(pTHX_ HV *hv, const char *key, I32 klen, SV *val, U32 hash); */
+/* PERL_CALLCONV HE*	Perl_hv_store_ent(pTHX_ HV *hv, SV *key, SV *val, U32 hash); */
+/* PERL_CALLCONV SV**	Perl_hv_store_flags(pTHX_ HV *hv, const char *key, I32 klen, SV *val, U32 hash, int flags); */
+/* PERL_CALLCONV void	hv_undef(pTHX_ HV *hv); */
+PERL_CALLCONV void	Perl_hv_undef_flags(pTHX_ HV *hv, U32 flags);
+/* PERL_CALLCONV I32	ibcmp(pTHX_ const char* a, const char* b, I32 len); */
+/* PERL_CALLCONV I32	ibcmp_locale(pTHX_ const char* a, const char* b, I32 len); */
+/* PERL_CALLCONV I32	ibcmp_utf8(pTHX_ const char *s1, char **pe1, UV l1, bool u1, const char *s2, char **pe2, UV l2, bool u2); */
+PERL_CALLCONV void	Perl_init_argv_symbols(pTHX_ int argc, char **argv);
+#define PERL_ARGS_ASSERT_INIT_ARGV_SYMBOLS	\
+	assert(argv)
+PERL_CALLCONV void	Perl_init_constants(pTHX);
+PERL_CALLCONV void	Perl_init_dbargs(pTHX);
+PERL_CALLCONV void	Perl_init_debugger(pTHX);
+PERL_CALLCONV int	Perl_init_i18nl10n(pTHX_ int printwarn);
+PERL_CALLCONV int	Perl_init_i18nl14n(pTHX_ int printwarn);
+PERL_CALLCONV void	Perl_init_stacks(pTHX);
+PERL_CALLCONV void	Perl_init_tm(pTHX_ struct tm *ptm);
+#define PERL_ARGS_ASSERT_INIT_TM	\
+	assert(ptm)
+PERL_CALLCONV char*	Perl_instr(const char* big, const char* little)
+			__attribute__warn_unused_result__
+			__attribute__pure__;
+#define PERL_ARGS_ASSERT_INSTR	\
+	assert(big); assert(little)
+
+PERL_CALLCONV U32	Perl_intro_my(pTHX);
+PERL_CALLCONV OP*	Perl_invert(pTHX_ OP* cmd)
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV bool	Perl_io_close(pTHX_ IO* io, GV *gv, bool not_implicit, bool warn_on_fail);
+#define PERL_ARGS_ASSERT_IO_CLOSE	\
+	assert(io)
+PERL_CALLCONV bool	Perl_isALNUM_lazy(pTHX_ const char* p)
+			__attribute__deprecated__
+			__attribute__warn_unused_result__
+			__attribute__pure__;
+#define PERL_ARGS_ASSERT_ISALNUM_LAZY	\
+	assert(p)
+
+PERL_CALLCONV bool	Perl_isIDFIRST_lazy(pTHX_ const char* p)
+			__attribute__deprecated__
+			__attribute__warn_unused_result__
+			__attribute__pure__;
+#define PERL_ARGS_ASSERT_ISIDFIRST_LAZY	\
+	assert(p)
+
+/* PERL_CALLCONV bool	Perl_is_ascii_string(pTHX_ const U8 *s, STRLEN len)
+			__attribute__warn_unused_result__; */
+
+PERL_CALLCONV bool	Perl_is_invariant_string(const U8 *s, STRLEN len)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_IS_INVARIANT_STRING	\
+	assert(s)
+
+PERL_CALLCONV I32	Perl_is_lvalue_sub(pTHX)
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV bool	Perl_is_uni_alnum(pTHX_ UV c)
+			__attribute__deprecated__
+			__attribute__warn_unused_result__
+			__attribute__pure__;
+
+PERL_CALLCONV bool	Perl_is_uni_alnum_lc(pTHX_ UV c)
+			__attribute__deprecated__
+			__attribute__warn_unused_result__
+			__attribute__pure__;
+
+PERL_CALLCONV bool	Perl_is_uni_alnumc(pTHX_ UV c)
+			__attribute__deprecated__
+			__attribute__warn_unused_result__
+			__attribute__pure__;
+
+PERL_CALLCONV bool	Perl_is_uni_alnumc_lc(pTHX_ UV c)
+			__attribute__deprecated__
+			__attribute__warn_unused_result__
+			__attribute__pure__;
+
+PERL_CALLCONV bool	Perl_is_uni_alpha(pTHX_ UV c)
+			__attribute__deprecated__
+			__attribute__warn_unused_result__
+			__attribute__pure__;
+
+PERL_CALLCONV bool	Perl_is_uni_alpha_lc(pTHX_ UV c)
+			__attribute__deprecated__
+			__attribute__warn_unused_result__
+			__attribute__pure__;
+
+PERL_CALLCONV bool	Perl_is_uni_ascii(pTHX_ UV c)
+			__attribute__deprecated__
+			__attribute__warn_unused_result__
+			__attribute__pure__;
+
+PERL_CALLCONV bool	Perl_is_uni_ascii_lc(pTHX_ UV c)
+			__attribute__deprecated__
+			__attribute__warn_unused_result__
+			__attribute__pure__;
+
+PERL_CALLCONV bool	Perl_is_uni_blank(pTHX_ UV c)
+			__attribute__deprecated__
+			__attribute__warn_unused_result__
+			__attribute__pure__;
+
+PERL_CALLCONV bool	Perl_is_uni_blank_lc(pTHX_ UV c)
+			__attribute__deprecated__
+			__attribute__warn_unused_result__
+			__attribute__pure__;
+
+PERL_CALLCONV bool	Perl_is_uni_cntrl(pTHX_ UV c)
+			__attribute__deprecated__
+			__attribute__warn_unused_result__
+			__attribute__pure__;
+
+PERL_CALLCONV bool	Perl_is_uni_cntrl_lc(pTHX_ UV c)
+			__attribute__deprecated__
+			__attribute__warn_unused_result__
+			__attribute__pure__;
+
+PERL_CALLCONV bool	Perl_is_uni_digit(pTHX_ UV c)
+			__attribute__deprecated__
+			__attribute__warn_unused_result__
+			__attribute__pure__;
+
+PERL_CALLCONV bool	Perl_is_uni_digit_lc(pTHX_ UV c)
+			__attribute__deprecated__
+			__attribute__warn_unused_result__
+			__attribute__pure__;
+
+PERL_CALLCONV bool	Perl_is_uni_graph(pTHX_ UV c)
+			__attribute__deprecated__
+			__attribute__warn_unused_result__
+			__attribute__pure__;
+
+PERL_CALLCONV bool	Perl_is_uni_graph_lc(pTHX_ UV c)
+			__attribute__deprecated__
+			__attribute__warn_unused_result__
+			__attribute__pure__;
+
+PERL_CALLCONV bool	Perl_is_uni_idfirst(pTHX_ UV c)
+			__attribute__deprecated__
+			__attribute__warn_unused_result__
+			__attribute__pure__;
+
+PERL_CALLCONV bool	Perl_is_uni_idfirst_lc(pTHX_ UV c)
+			__attribute__deprecated__
+			__attribute__warn_unused_result__
+			__attribute__pure__;
+
+PERL_CALLCONV bool	Perl_is_uni_lower(pTHX_ UV c)
+			__attribute__deprecated__
+			__attribute__warn_unused_result__
+			__attribute__pure__;
+
+PERL_CALLCONV bool	Perl_is_uni_lower_lc(pTHX_ UV c)
+			__attribute__deprecated__
+			__attribute__warn_unused_result__
+			__attribute__pure__;
+
+PERL_CALLCONV bool	Perl_is_uni_print(pTHX_ UV c)
+			__attribute__deprecated__
+			__attribute__warn_unused_result__
+			__attribute__pure__;
+
+PERL_CALLCONV bool	Perl_is_uni_print_lc(pTHX_ UV c)
+			__attribute__deprecated__
+			__attribute__warn_unused_result__
+			__attribute__pure__;
+
+PERL_CALLCONV bool	Perl_is_uni_punct(pTHX_ UV c)
+			__attribute__deprecated__
+			__attribute__warn_unused_result__
+			__attribute__pure__;
+
+PERL_CALLCONV bool	Perl_is_uni_punct_lc(pTHX_ UV c)
+			__attribute__deprecated__
+			__attribute__warn_unused_result__
+			__attribute__pure__;
+
+PERL_CALLCONV bool	Perl_is_uni_space(pTHX_ UV c)
+			__attribute__deprecated__
+			__attribute__warn_unused_result__
+			__attribute__pure__;
+
+PERL_CALLCONV bool	Perl_is_uni_space_lc(pTHX_ UV c)
+			__attribute__deprecated__
+			__attribute__warn_unused_result__
+			__attribute__pure__;
+
+PERL_CALLCONV bool	Perl_is_uni_upper(pTHX_ UV c)
+			__attribute__deprecated__
+			__attribute__warn_unused_result__
+			__attribute__pure__;
+
+PERL_CALLCONV bool	Perl_is_uni_upper_lc(pTHX_ UV c)
+			__attribute__deprecated__
+			__attribute__warn_unused_result__
+			__attribute__pure__;
+
+PERL_CALLCONV bool	Perl_is_uni_xdigit(pTHX_ UV c)
+			__attribute__deprecated__
+			__attribute__warn_unused_result__
+			__attribute__pure__;
+
+PERL_CALLCONV bool	Perl_is_uni_xdigit_lc(pTHX_ UV c)
+			__attribute__deprecated__
+			__attribute__warn_unused_result__
+			__attribute__pure__;
+
+PERL_CALLCONV bool	Perl_is_utf8_alnum(pTHX_ const U8 *p)
+			__attribute__deprecated__
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_IS_UTF8_ALNUM	\
+	assert(p)
+
+PERL_CALLCONV bool	Perl_is_utf8_alnumc(pTHX_ const U8 *p)
+			__attribute__deprecated__
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_IS_UTF8_ALNUMC	\
+	assert(p)
+
+PERL_CALLCONV bool	Perl_is_utf8_alpha(pTHX_ const U8 *p)
+			__attribute__deprecated__
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_IS_UTF8_ALPHA	\
+	assert(p)
+
+PERL_CALLCONV bool	Perl_is_utf8_ascii(pTHX_ const U8 *p)
+			__attribute__deprecated__
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_IS_UTF8_ASCII	\
+	assert(p)
+
+PERL_CALLCONV bool	Perl_is_utf8_blank(pTHX_ const U8 *p)
+			__attribute__deprecated__
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_IS_UTF8_BLANK	\
+	assert(p)
+
+PERL_CALLCONV STRLEN	Perl_is_utf8_char(const U8 *s)
+			__attribute__deprecated__;
+#define PERL_ARGS_ASSERT_IS_UTF8_CHAR	\
+	assert(s)
+
+/* PERL_CALLCONV STRLEN	Perl_is_utf8_char_buf(const U8 *buf, const U8 *buf_end); */
+#define PERL_ARGS_ASSERT_IS_UTF8_CHAR_BUF	\
+	assert(buf); assert(buf_end)
+PERL_CALLCONV bool	Perl_is_utf8_cntrl(pTHX_ const U8 *p)
+			__attribute__deprecated__
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_IS_UTF8_CNTRL	\
+	assert(p)
+
+PERL_CALLCONV bool	Perl_is_utf8_digit(pTHX_ const U8 *p)
+			__attribute__deprecated__
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_IS_UTF8_DIGIT	\
+	assert(p)
+
+PERL_CALLCONV bool	Perl_is_utf8_graph(pTHX_ const U8 *p)
+			__attribute__deprecated__
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_IS_UTF8_GRAPH	\
+	assert(p)
+
+PERL_CALLCONV bool	Perl_is_utf8_idcont(pTHX_ const U8 *p)
+			__attribute__deprecated__
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_IS_UTF8_IDCONT	\
+	assert(p)
+
+PERL_CALLCONV bool	Perl_is_utf8_idfirst(pTHX_ const U8 *p)
+			__attribute__deprecated__
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_IS_UTF8_IDFIRST	\
+	assert(p)
+
+PERL_CALLCONV bool	Perl_is_utf8_lower(pTHX_ const U8 *p)
+			__attribute__deprecated__
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_IS_UTF8_LOWER	\
+	assert(p)
+
+PERL_CALLCONV bool	Perl_is_utf8_mark(pTHX_ const U8 *p)
+			__attribute__deprecated__
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_IS_UTF8_MARK	\
+	assert(p)
+
+PERL_CALLCONV bool	Perl_is_utf8_perl_space(pTHX_ const U8 *p)
+			__attribute__deprecated__
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_IS_UTF8_PERL_SPACE	\
+	assert(p)
+
+PERL_CALLCONV bool	Perl_is_utf8_perl_word(pTHX_ const U8 *p)
+			__attribute__deprecated__
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_IS_UTF8_PERL_WORD	\
+	assert(p)
+
+PERL_CALLCONV bool	Perl_is_utf8_posix_digit(pTHX_ const U8 *p)
+			__attribute__deprecated__
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_IS_UTF8_POSIX_DIGIT	\
+	assert(p)
+
+PERL_CALLCONV bool	Perl_is_utf8_print(pTHX_ const U8 *p)
+			__attribute__deprecated__
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_IS_UTF8_PRINT	\
+	assert(p)
+
+PERL_CALLCONV bool	Perl_is_utf8_punct(pTHX_ const U8 *p)
+			__attribute__deprecated__
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_IS_UTF8_PUNCT	\
+	assert(p)
+
+PERL_CALLCONV bool	Perl_is_utf8_space(pTHX_ const U8 *p)
+			__attribute__deprecated__
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_IS_UTF8_SPACE	\
+	assert(p)
+
+PERL_CALLCONV bool	Perl_is_utf8_string(const U8 *s, STRLEN len);
+#define PERL_ARGS_ASSERT_IS_UTF8_STRING	\
+	assert(s)
+/* PERL_CALLCONV bool	Perl_is_utf8_string_loc(const U8 *s, STRLEN len, const U8 **ep); */
+#define PERL_ARGS_ASSERT_IS_UTF8_STRING_LOC	\
+	assert(s)
+PERL_CALLCONV bool	Perl_is_utf8_string_loclen(const U8 *s, STRLEN len, const U8 **ep, STRLEN *el);
+#define PERL_ARGS_ASSERT_IS_UTF8_STRING_LOCLEN	\
+	assert(s)
+PERL_CALLCONV bool	Perl_is_utf8_upper(pTHX_ const U8 *p)
+			__attribute__deprecated__
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_IS_UTF8_UPPER	\
+	assert(p)
+
+PERL_CALLCONV bool	Perl_is_utf8_xdigit(pTHX_ const U8 *p)
+			__attribute__deprecated__
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_IS_UTF8_XDIGIT	\
+	assert(p)
+
+PERL_CALLCONV bool	Perl_is_utf8_xidcont(pTHX_ const U8 *p)
+			__attribute__deprecated__
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_IS_UTF8_XIDCONT	\
+	assert(p)
+
+PERL_CALLCONV bool	Perl_is_utf8_xidfirst(pTHX_ const U8 *p)
+			__attribute__deprecated__
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_IS_UTF8_XIDFIRST	\
+	assert(p)
+
+PERL_CALLCONV bool	Perl_isinfnan(NV nv);
+PERL_CALLCONV bool	Perl_isinfnansv(pTHX_ SV *sv);
+#define PERL_ARGS_ASSERT_ISINFNANSV	\
+	assert(sv)
+PERL_CALLCONV OP*	Perl_jmaybe(pTHX_ OP *o);
+#define PERL_ARGS_ASSERT_JMAYBE	\
+	assert(o)
+PERL_CALLCONV I32	Perl_keyword(pTHX_ const char *name, I32 len, bool all_keywords)
+			__attribute__pure__;
+#define PERL_ARGS_ASSERT_KEYWORD	\
+	assert(name)
+
+PERL_CALLCONV int	Perl_keyword_plugin_standard(pTHX_ char* keyword_ptr, STRLEN keyword_len, OP** op_ptr);
+#define PERL_ARGS_ASSERT_KEYWORD_PLUGIN_STANDARD	\
+	assert(keyword_ptr); assert(op_ptr)
+PERL_CALLCONV void	Perl_leave_adjust_stacks(pTHX_ SV **from_sp, SV **to_sp, U8 gimme, int filter);
+#define PERL_ARGS_ASSERT_LEAVE_ADJUST_STACKS	\
+	assert(from_sp); assert(to_sp)
+PERL_CALLCONV void	Perl_leave_scope(pTHX_ I32 base);
+PERL_CALLCONV bool	Perl_lex_bufutf8(pTHX);
+PERL_CALLCONV void	Perl_lex_discard_to(pTHX_ char* ptr);
+#define PERL_ARGS_ASSERT_LEX_DISCARD_TO	\
+	assert(ptr)
+PERL_CALLCONV char*	Perl_lex_grow_linestr(pTHX_ STRLEN len);
+PERL_CALLCONV bool	Perl_lex_next_chunk(pTHX_ U32 flags);
+PERL_CALLCONV I32	Perl_lex_peek_unichar(pTHX_ U32 flags);
+PERL_CALLCONV void	Perl_lex_read_space(pTHX_ U32 flags);
+PERL_CALLCONV void	Perl_lex_read_to(pTHX_ char* ptr);
+#define PERL_ARGS_ASSERT_LEX_READ_TO	\
+	assert(ptr)
+PERL_CALLCONV I32	Perl_lex_read_unichar(pTHX_ U32 flags);
+PERL_CALLCONV void	Perl_lex_start(pTHX_ SV* line, PerlIO *rsfp, U32 flags);
+PERL_CALLCONV void	Perl_lex_stuff_pv(pTHX_ const char* pv, U32 flags);
+#define PERL_ARGS_ASSERT_LEX_STUFF_PV	\
+	assert(pv)
+PERL_CALLCONV void	Perl_lex_stuff_pvn(pTHX_ const char* pv, STRLEN len, U32 flags);
+#define PERL_ARGS_ASSERT_LEX_STUFF_PVN	\
+	assert(pv)
+PERL_CALLCONV void	Perl_lex_stuff_sv(pTHX_ SV* sv, U32 flags);
+#define PERL_ARGS_ASSERT_LEX_STUFF_SV	\
+	assert(sv)
+PERL_CALLCONV void	Perl_lex_unstuff(pTHX_ char* ptr);
+#define PERL_ARGS_ASSERT_LEX_UNSTUFF	\
+	assert(ptr)
+PERL_CALLCONV OP*	Perl_list(pTHX_ OP* o);
+PERL_CALLCONV void	Perl_load_module(pTHX_ U32 flags, SV* name, SV* ver, ...);
+#define PERL_ARGS_ASSERT_LOAD_MODULE	\
+	assert(name)
+PERL_CALLCONV OP*	Perl_localize(pTHX_ OP *o, I32 lex);
+#define PERL_ARGS_ASSERT_LOCALIZE	\
+	assert(o)
+PERL_CALLCONV I32	Perl_looks_like_number(pTHX_ SV *const sv)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_LOOKS_LIKE_NUMBER	\
+	assert(sv)
+
+PERL_CALLCONV int	Perl_magic_clear_all_env(pTHX_ SV* sv, MAGIC* mg);
+#define PERL_ARGS_ASSERT_MAGIC_CLEAR_ALL_ENV	\
+	assert(sv); assert(mg)
+PERL_CALLCONV int	Perl_magic_cleararylen_p(pTHX_ SV* sv, MAGIC* mg);
+#define PERL_ARGS_ASSERT_MAGIC_CLEARARYLEN_P	\
+	assert(sv); assert(mg)
+PERL_CALLCONV int	Perl_magic_clearenv(pTHX_ SV* sv, MAGIC* mg);
+#define PERL_ARGS_ASSERT_MAGIC_CLEARENV	\
+	assert(sv); assert(mg)
+PERL_CALLCONV int	Perl_magic_clearhint(pTHX_ SV* sv, MAGIC* mg);
+#define PERL_ARGS_ASSERT_MAGIC_CLEARHINT	\
+	assert(sv); assert(mg)
+PERL_CALLCONV int	Perl_magic_clearhints(pTHX_ SV* sv, MAGIC* mg);
+#define PERL_ARGS_ASSERT_MAGIC_CLEARHINTS	\
+	assert(sv); assert(mg)
+PERL_CALLCONV int	Perl_magic_clearisa(pTHX_ SV* sv, MAGIC* mg);
+#define PERL_ARGS_ASSERT_MAGIC_CLEARISA	\
+	assert(mg)
+PERL_CALLCONV int	Perl_magic_clearpack(pTHX_ SV* sv, MAGIC* mg);
+#define PERL_ARGS_ASSERT_MAGIC_CLEARPACK	\
+	assert(sv); assert(mg)
+PERL_CALLCONV int	Perl_magic_clearsig(pTHX_ SV* sv, MAGIC* mg);
+#define PERL_ARGS_ASSERT_MAGIC_CLEARSIG	\
+	assert(sv); assert(mg)
+PERL_CALLCONV int	Perl_magic_copycallchecker(pTHX_ SV* sv, MAGIC *mg, SV *nsv, const char *name, I32 namlen);
+#define PERL_ARGS_ASSERT_MAGIC_COPYCALLCHECKER	\
+	assert(sv); assert(mg); assert(nsv)
+PERL_CALLCONV void	Perl_magic_dump(pTHX_ const MAGIC *mg);
+PERL_CALLCONV int	Perl_magic_existspack(pTHX_ SV* sv, const MAGIC* mg);
+#define PERL_ARGS_ASSERT_MAGIC_EXISTSPACK	\
+	assert(sv); assert(mg)
+PERL_CALLCONV int	Perl_magic_freearylen_p(pTHX_ SV* sv, MAGIC* mg);
+#define PERL_ARGS_ASSERT_MAGIC_FREEARYLEN_P	\
+	assert(sv); assert(mg)
+PERL_CALLCONV int	Perl_magic_freeovrld(pTHX_ SV* sv, MAGIC* mg);
+#define PERL_ARGS_ASSERT_MAGIC_FREEOVRLD	\
+	assert(sv); assert(mg)
+PERL_CALLCONV int	Perl_magic_get(pTHX_ SV* sv, MAGIC* mg);
+#define PERL_ARGS_ASSERT_MAGIC_GET	\
+	assert(sv); assert(mg)
+PERL_CALLCONV int	Perl_magic_getarylen(pTHX_ SV* sv, const MAGIC* mg);
+#define PERL_ARGS_ASSERT_MAGIC_GETARYLEN	\
+	assert(sv); assert(mg)
+PERL_CALLCONV int	Perl_magic_getdebugvar(pTHX_ SV* sv, MAGIC* mg);
+#define PERL_ARGS_ASSERT_MAGIC_GETDEBUGVAR	\
+	assert(sv); assert(mg)
+PERL_CALLCONV int	Perl_magic_getdefelem(pTHX_ SV* sv, MAGIC* mg);
+#define PERL_ARGS_ASSERT_MAGIC_GETDEFELEM	\
+	assert(sv); assert(mg)
+PERL_CALLCONV int	Perl_magic_getnkeys(pTHX_ SV* sv, MAGIC* mg);
+#define PERL_ARGS_ASSERT_MAGIC_GETNKEYS	\
+	assert(sv); assert(mg)
+PERL_CALLCONV int	Perl_magic_getpack(pTHX_ SV* sv, MAGIC* mg);
+#define PERL_ARGS_ASSERT_MAGIC_GETPACK	\
+	assert(sv); assert(mg)
+PERL_CALLCONV int	Perl_magic_getpos(pTHX_ SV* sv, MAGIC* mg);
+#define PERL_ARGS_ASSERT_MAGIC_GETPOS	\
+	assert(sv); assert(mg)
+PERL_CALLCONV int	Perl_magic_getsig(pTHX_ SV* sv, MAGIC* mg);
+#define PERL_ARGS_ASSERT_MAGIC_GETSIG	\
+	assert(sv); assert(mg)
+PERL_CALLCONV int	Perl_magic_getsubstr(pTHX_ SV* sv, MAGIC* mg);
+#define PERL_ARGS_ASSERT_MAGIC_GETSUBSTR	\
+	assert(sv); assert(mg)
+PERL_CALLCONV int	Perl_magic_gettaint(pTHX_ SV* sv, MAGIC* mg);
+#define PERL_ARGS_ASSERT_MAGIC_GETTAINT	\
+	assert(sv); assert(mg)
+PERL_CALLCONV int	Perl_magic_getuvar(pTHX_ SV* sv, MAGIC* mg);
+#define PERL_ARGS_ASSERT_MAGIC_GETUVAR	\
+	assert(sv); assert(mg)
+PERL_CALLCONV int	Perl_magic_getvec(pTHX_ SV* sv, MAGIC* mg);
+#define PERL_ARGS_ASSERT_MAGIC_GETVEC	\
+	assert(sv); assert(mg)
+PERL_CALLCONV int	Perl_magic_killbackrefs(pTHX_ SV *sv, MAGIC *mg);
+#define PERL_ARGS_ASSERT_MAGIC_KILLBACKREFS	\
+	assert(sv); assert(mg)
+PERL_CALLCONV SV*	Perl_magic_methcall(pTHX_ SV *sv, const MAGIC *mg, SV *meth, U32 flags, U32 argc, ...);
+#define PERL_ARGS_ASSERT_MAGIC_METHCALL	\
+	assert(sv); assert(mg); assert(meth)
+PERL_CALLCONV int	Perl_magic_nextpack(pTHX_ SV *sv, MAGIC *mg, SV *key);
+#define PERL_ARGS_ASSERT_MAGIC_NEXTPACK	\
+	assert(sv); assert(mg); assert(key)
+PERL_CALLCONV U32	Perl_magic_regdata_cnt(pTHX_ SV* sv, MAGIC* mg);
+#define PERL_ARGS_ASSERT_MAGIC_REGDATA_CNT	\
+	assert(sv); assert(mg)
+PERL_CALLCONV int	Perl_magic_regdatum_get(pTHX_ SV* sv, MAGIC* mg);
+#define PERL_ARGS_ASSERT_MAGIC_REGDATUM_GET	\
+	assert(sv); assert(mg)
+PERL_CALLCONV SV*	Perl_magic_scalarpack(pTHX_ HV *hv, MAGIC *mg);
+#define PERL_ARGS_ASSERT_MAGIC_SCALARPACK	\
+	assert(hv); assert(mg)
+PERL_CALLCONV int	Perl_magic_set(pTHX_ SV* sv, MAGIC* mg);
+#define PERL_ARGS_ASSERT_MAGIC_SET	\
+	assert(sv); assert(mg)
+PERL_CALLCONV int	Perl_magic_set_all_env(pTHX_ SV* sv, MAGIC* mg);
+#define PERL_ARGS_ASSERT_MAGIC_SET_ALL_ENV	\
+	assert(sv); assert(mg)
+PERL_CALLCONV int	Perl_magic_setarylen(pTHX_ SV* sv, MAGIC* mg);
+#define PERL_ARGS_ASSERT_MAGIC_SETARYLEN	\
+	assert(sv); assert(mg)
+PERL_CALLCONV int	Perl_magic_setdbline(pTHX_ SV* sv, MAGIC* mg);
+#define PERL_ARGS_ASSERT_MAGIC_SETDBLINE	\
+	assert(sv); assert(mg)
+PERL_CALLCONV int	Perl_magic_setdebugvar(pTHX_ SV* sv, MAGIC* mg);
+#define PERL_ARGS_ASSERT_MAGIC_SETDEBUGVAR	\
+	assert(sv); assert(mg)
+PERL_CALLCONV int	Perl_magic_setdefelem(pTHX_ SV* sv, MAGIC* mg);
+#define PERL_ARGS_ASSERT_MAGIC_SETDEFELEM	\
+	assert(sv); assert(mg)
+PERL_CALLCONV int	Perl_magic_setenv(pTHX_ SV* sv, MAGIC* mg);
+#define PERL_ARGS_ASSERT_MAGIC_SETENV	\
+	assert(sv); assert(mg)
+PERL_CALLCONV int	Perl_magic_sethint(pTHX_ SV* sv, MAGIC* mg);
+#define PERL_ARGS_ASSERT_MAGIC_SETHINT	\
+	assert(sv); assert(mg)
+PERL_CALLCONV int	Perl_magic_setisa(pTHX_ SV* sv, MAGIC* mg);
+#define PERL_ARGS_ASSERT_MAGIC_SETISA	\
+	assert(sv); assert(mg)
+PERL_CALLCONV int	Perl_magic_setlvref(pTHX_ SV* sv, MAGIC* mg);
+#define PERL_ARGS_ASSERT_MAGIC_SETLVREF	\
+	assert(sv); assert(mg)
+PERL_CALLCONV int	Perl_magic_setmglob(pTHX_ SV* sv, MAGIC* mg);
+#define PERL_ARGS_ASSERT_MAGIC_SETMGLOB	\
+	assert(sv); assert(mg)
+PERL_CALLCONV int	Perl_magic_setnkeys(pTHX_ SV* sv, MAGIC* mg);
+#define PERL_ARGS_ASSERT_MAGIC_SETNKEYS	\
+	assert(sv); assert(mg)
+PERL_CALLCONV int	Perl_magic_setpack(pTHX_ SV* sv, MAGIC* mg);
+#define PERL_ARGS_ASSERT_MAGIC_SETPACK	\
+	assert(sv); assert(mg)
+PERL_CALLCONV int	Perl_magic_setpos(pTHX_ SV* sv, MAGIC* mg);
+#define PERL_ARGS_ASSERT_MAGIC_SETPOS	\
+	assert(sv); assert(mg)
+PERL_CALLCONV int	Perl_magic_setregexp(pTHX_ SV* sv, MAGIC* mg);
+#define PERL_ARGS_ASSERT_MAGIC_SETREGEXP	\
+	assert(sv); assert(mg)
+PERL_CALLCONV int	Perl_magic_setsig(pTHX_ SV* sv, MAGIC* mg);
+#define PERL_ARGS_ASSERT_MAGIC_SETSIG	\
+	assert(mg)
+PERL_CALLCONV int	Perl_magic_setsubstr(pTHX_ SV* sv, MAGIC* mg);
+#define PERL_ARGS_ASSERT_MAGIC_SETSUBSTR	\
+	assert(sv); assert(mg)
+PERL_CALLCONV int	Perl_magic_settaint(pTHX_ SV* sv, MAGIC* mg);
+#define PERL_ARGS_ASSERT_MAGIC_SETTAINT	\
+	assert(sv); assert(mg)
+PERL_CALLCONV int	Perl_magic_setutf8(pTHX_ SV* sv, MAGIC* mg);
+#define PERL_ARGS_ASSERT_MAGIC_SETUTF8	\
+	assert(sv); assert(mg)
+PERL_CALLCONV int	Perl_magic_setuvar(pTHX_ SV* sv, MAGIC* mg);
+#define PERL_ARGS_ASSERT_MAGIC_SETUVAR	\
+	assert(sv); assert(mg)
+PERL_CALLCONV int	Perl_magic_setvec(pTHX_ SV* sv, MAGIC* mg);
+#define PERL_ARGS_ASSERT_MAGIC_SETVEC	\
+	assert(sv); assert(mg)
+PERL_CALLCONV U32	Perl_magic_sizepack(pTHX_ SV* sv, MAGIC* mg);
+#define PERL_ARGS_ASSERT_MAGIC_SIZEPACK	\
+	assert(sv); assert(mg)
+PERL_CALLCONV int	Perl_magic_wipepack(pTHX_ SV* sv, MAGIC* mg);
+#define PERL_ARGS_ASSERT_MAGIC_WIPEPACK	\
+	assert(sv); assert(mg)
+PERL_CALLCONV Malloc_t	Perl_malloc(MEM_SIZE nbytes)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV I32 *	Perl_markstack_grow(pTHX);
+PERL_CALLCONV SV*	Perl_mess(pTHX_ const char* pat, ...)
+			__attribute__format__(__printf__,pTHX_1,pTHX_2);
+#define PERL_ARGS_ASSERT_MESS	\
+	assert(pat)
+
+PERL_CALLCONV SV*	Perl_mess_sv(pTHX_ SV* basemsg, bool consume);
+#define PERL_ARGS_ASSERT_MESS_SV	\
+	assert(basemsg)
+PERL_CALLCONV Free_t	Perl_mfree(Malloc_t where);
+PERL_CALLCONV int	Perl_mg_clear(pTHX_ SV* sv);
+#define PERL_ARGS_ASSERT_MG_CLEAR	\
+	assert(sv)
+PERL_CALLCONV int	Perl_mg_copy(pTHX_ SV *sv, SV *nsv, const char *key, I32 klen);
+#define PERL_ARGS_ASSERT_MG_COPY	\
+	assert(sv); assert(nsv)
+PERL_CALLCONV MAGIC*	Perl_mg_find(const SV* sv, int type)
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV MAGIC*	Perl_mg_find_mglob(pTHX_ SV* sv)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_MG_FIND_MGLOB	\
+	assert(sv)
+
+PERL_CALLCONV MAGIC*	Perl_mg_findext(const SV* sv, int type, const MGVTBL *vtbl)
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV int	Perl_mg_free(pTHX_ SV* sv);
+#define PERL_ARGS_ASSERT_MG_FREE	\
+	assert(sv)
+PERL_CALLCONV void	Perl_mg_free_type(pTHX_ SV* sv, int how);
+#define PERL_ARGS_ASSERT_MG_FREE_TYPE	\
+	assert(sv)
+PERL_CALLCONV int	Perl_mg_get(pTHX_ SV* sv);
+#define PERL_ARGS_ASSERT_MG_GET	\
+	assert(sv)
+PERL_CALLCONV U32	Perl_mg_length(pTHX_ SV* sv)
+			__attribute__deprecated__;
+#define PERL_ARGS_ASSERT_MG_LENGTH	\
+	assert(sv)
+
+PERL_CALLCONV void	Perl_mg_localize(pTHX_ SV* sv, SV* nsv, bool setmagic);
+#define PERL_ARGS_ASSERT_MG_LOCALIZE	\
+	assert(sv); assert(nsv)
+PERL_CALLCONV void	Perl_mg_magical(SV* sv);
+#define PERL_ARGS_ASSERT_MG_MAGICAL	\
+	assert(sv)
+PERL_CALLCONV int	Perl_mg_set(pTHX_ SV* sv);
+#define PERL_ARGS_ASSERT_MG_SET	\
+	assert(sv)
+PERL_CALLCONV I32	Perl_mg_size(pTHX_ SV* sv);
+#define PERL_ARGS_ASSERT_MG_SIZE	\
+	assert(sv)
+PERL_CALLCONV void	Perl_mini_mktime(struct tm *ptm);
+#define PERL_ARGS_ASSERT_MINI_MKTIME	\
+	assert(ptm)
+PERL_CALLCONV int	Perl_mode_from_discipline(pTHX_ const char* s, STRLEN len);
+PERL_CALLCONV void *	Perl_more_bodies(pTHX_ const svtype sv_type, const size_t body_size, const size_t arena_size);
+PERL_CALLCONV const char*	Perl_moreswitches(pTHX_ const char* s);
+#define PERL_ARGS_ASSERT_MORESWITCHES	\
+	assert(s)
+PERL_CALLCONV const struct mro_alg *	Perl_mro_get_from_name(pTHX_ SV *name);
+#define PERL_ARGS_ASSERT_MRO_GET_FROM_NAME	\
+	assert(name)
+PERL_CALLCONV AV*	Perl_mro_get_linear_isa(pTHX_ HV* stash);
+#define PERL_ARGS_ASSERT_MRO_GET_LINEAR_ISA	\
+	assert(stash)
+PERL_CALLCONV SV*	Perl_mro_get_private_data(pTHX_ struct mro_meta *const smeta, const struct mro_alg *const which);
+#define PERL_ARGS_ASSERT_MRO_GET_PRIVATE_DATA	\
+	assert(smeta); assert(which)
+PERL_CALLCONV void	Perl_mro_isa_changed_in(pTHX_ HV* stash);
+#define PERL_ARGS_ASSERT_MRO_ISA_CHANGED_IN	\
+	assert(stash)
+PERL_CALLCONV struct mro_meta*	Perl_mro_meta_init(pTHX_ HV* stash);
+#define PERL_ARGS_ASSERT_MRO_META_INIT	\
+	assert(stash)
+PERL_CALLCONV void	Perl_mro_method_changed_in(pTHX_ HV* stash);
+#define PERL_ARGS_ASSERT_MRO_METHOD_CHANGED_IN	\
+	assert(stash)
+PERL_CALLCONV void	Perl_mro_package_moved(pTHX_ HV * const stash, HV * const oldstash, const GV * const gv, U32 flags);
+#define PERL_ARGS_ASSERT_MRO_PACKAGE_MOVED	\
+	assert(gv)
+PERL_CALLCONV void	Perl_mro_register(pTHX_ const struct mro_alg *mro);
+#define PERL_ARGS_ASSERT_MRO_REGISTER	\
+	assert(mro)
+PERL_CALLCONV void	Perl_mro_set_mro(pTHX_ struct mro_meta *const meta, SV *const name);
+#define PERL_ARGS_ASSERT_MRO_SET_MRO	\
+	assert(meta); assert(name)
+PERL_CALLCONV SV*	Perl_mro_set_private_data(pTHX_ struct mro_meta *const smeta, const struct mro_alg *const which, SV *const data);
+#define PERL_ARGS_ASSERT_MRO_SET_PRIVATE_DATA	\
+	assert(smeta); assert(which); assert(data)
+PERL_CALLCONV SV*	Perl_multideref_stringify(pTHX_ const OP* o, CV *cv);
+#define PERL_ARGS_ASSERT_MULTIDEREF_STRINGIFY	\
+	assert(o)
+PERL_CALLCONV NV	Perl_my_atof(pTHX_ const char *s);
+#define PERL_ARGS_ASSERT_MY_ATOF	\
+	assert(s)
+PERL_CALLCONV char*	Perl_my_atof2(pTHX_ const char *s, NV* value);
+#define PERL_ARGS_ASSERT_MY_ATOF2	\
+	assert(s); assert(value)
+PERL_CALLCONV OP *	Perl_my_attrs(pTHX_ OP *o, OP *attrs);
+#define PERL_ARGS_ASSERT_MY_ATTRS	\
+	assert(o)
+PERL_CALLCONV void	Perl_my_clearenv(pTHX);
+PERL_CALLCONV int	Perl_my_dirfd(DIR* dir);
+PERL_CALLCONV_NO_RET void	Perl_my_exit(pTHX_ U32 status)
+			__attribute__noreturn__;
+
+PERL_CALLCONV_NO_RET void	Perl_my_failure_exit(pTHX)
+			__attribute__noreturn__;
+
+PERL_CALLCONV I32	Perl_my_fflush_all(pTHX);
+PERL_CALLCONV Pid_t	Perl_my_fork(void);
+/* PERL_CALLCONV I32	Perl_my_lstat(pTHX); */
+PERL_CALLCONV I32	Perl_my_lstat_flags(pTHX_ const U32 flags);
+PERL_CALLCONV PerlIO*	Perl_my_popen_list(pTHX_ const char* mode, int n, SV ** args);
+#define PERL_ARGS_ASSERT_MY_POPEN_LIST	\
+	assert(mode); assert(args)
+PERL_CALLCONV void	Perl_my_setenv(pTHX_ const char* nam, const char* val);
+PERL_CALLCONV int	Perl_my_snprintf(char *buffer, const Size_t len, const char *format, ...)
+			__attribute__format__(__printf__,3,4);
+#define PERL_ARGS_ASSERT_MY_SNPRINTF	\
+	assert(buffer); assert(format)
+
+PERL_CALLCONV int	Perl_my_socketpair(int family, int type, int protocol, int fd[2]);
+/* PERL_CALLCONV I32	Perl_my_stat(pTHX); */
+PERL_CALLCONV I32	Perl_my_stat_flags(pTHX_ const U32 flags);
+PERL_CALLCONV char*	Perl_my_strerror(pTHX_ const int errnum);
+PERL_CALLCONV char *	Perl_my_strftime(pTHX_ const char *fmt, int sec, int min, int hour, int mday, int mon, int year, int wday, int yday, int isdst)
+			__attribute__format__(__strftime__,pTHX_1,0);
+#define PERL_ARGS_ASSERT_MY_STRFTIME	\
+	assert(fmt)
+
+PERL_CALLCONV void	Perl_my_unexec(pTHX);
+PERL_CALLCONV int	Perl_my_vsnprintf(char *buffer, const Size_t len, const char *format, va_list ap);
+#define PERL_ARGS_ASSERT_MY_VSNPRINTF	\
+	assert(buffer); assert(format)
+PERL_CALLCONV OP*	Perl_newANONATTRSUB(pTHX_ I32 floor, OP *proto, OP *attrs, OP *block);
+PERL_CALLCONV OP*	Perl_newANONHASH(pTHX_ OP* o)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV OP*	Perl_newANONLIST(pTHX_ OP* o)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV OP*	Perl_newANONSUB(pTHX_ I32 floor, OP* proto, OP* block);
+PERL_CALLCONV OP*	Perl_newASSIGNOP(pTHX_ I32 flags, OP* left, I32 optype, OP* right)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+
+/* PERL_CALLCONV CV*	newATTRSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block); */
+PERL_CALLCONV CV*	Perl_newATTRSUB_x(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block, bool o_is_gv);
+/* PERL_CALLCONV AV*	Perl_newAV(pTHX)
+			__attribute__warn_unused_result__; */
+
+PERL_CALLCONV OP*	Perl_newAVREF(pTHX_ OP* o)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_NEWAVREF	\
+	assert(o)
+
+PERL_CALLCONV OP*	Perl_newBINOP(pTHX_ I32 type, I32 flags, OP* first, OP* last)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV OP*	Perl_newCONDOP(pTHX_ I32 flags, OP* first, OP* trueop, OP* falseop)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_NEWCONDOP	\
+	assert(first)
+
+PERL_CALLCONV CV*	Perl_newCONSTSUB(pTHX_ HV* stash, const char* name, SV* sv);
+PERL_CALLCONV CV*	Perl_newCONSTSUB_flags(pTHX_ HV* stash, const char* name, STRLEN len, U32 flags, SV* sv);
+PERL_CALLCONV OP*	Perl_newCVREF(pTHX_ I32 flags, OP* o)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV OP*	Perl_newDEFSVOP(pTHX)
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV void	Perl_newFORM(pTHX_ I32 floor, OP* o, OP* block);
+PERL_CALLCONV OP*	Perl_newFOROP(pTHX_ I32 flags, OP* sv, OP* expr, OP* block, OP* cont)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_NEWFOROP	\
+	assert(expr)
+
+PERL_CALLCONV OP*	Perl_newGIVENOP(pTHX_ OP* cond, OP* block, PADOFFSET defsv_off)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_NEWGIVENOP	\
+	assert(cond); assert(block)
+
+PERL_CALLCONV GP *	Perl_newGP(pTHX_ GV *const gv);
+#define PERL_ARGS_ASSERT_NEWGP	\
+	assert(gv)
+PERL_CALLCONV OP*	Perl_newGVOP(pTHX_ I32 type, I32 flags, GV* gv)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_NEWGVOP	\
+	assert(gv)
+
+PERL_CALLCONV OP*	Perl_newGVREF(pTHX_ I32 type, OP* o)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+
+/* PERL_CALLCONV GV*	newGVgen(pTHX_ const char* pack); */
+PERL_CALLCONV GV*	Perl_newGVgen_flags(pTHX_ const char* pack, U32 flags)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_NEWGVGEN_FLAGS	\
+	assert(pack)
+
+/* PERL_CALLCONV HV*	Perl_newHV(pTHX)
+			__attribute__warn_unused_result__; */
+
+PERL_CALLCONV OP*	Perl_newHVREF(pTHX_ OP* o)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_NEWHVREF	\
+	assert(o)
+
+PERL_CALLCONV HV*	Perl_newHVhv(pTHX_ HV *hv)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+
+/* PERL_CALLCONV IO*	Perl_newIO(pTHX)
+			__attribute__malloc__
+			__attribute__warn_unused_result__; */
+
+PERL_CALLCONV OP*	Perl_newLISTOP(pTHX_ I32 type, I32 flags, OP* first, OP* last)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV OP*	Perl_newLOGOP(pTHX_ I32 optype, I32 flags, OP *first, OP *other)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_NEWLOGOP	\
+	assert(first); assert(other)
+
+PERL_CALLCONV OP*	Perl_newLOOPEX(pTHX_ I32 type, OP* label)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_NEWLOOPEX	\
+	assert(label)
+
+PERL_CALLCONV OP*	Perl_newLOOPOP(pTHX_ I32 flags, I32 debuggable, OP* expr, OP* block)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV OP*	Perl_newMETHOP(pTHX_ I32 type, I32 flags, OP* dynamic_meth)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_NEWMETHOP	\
+	assert(dynamic_meth)
+
+PERL_CALLCONV OP*	Perl_newMETHOP_named(pTHX_ I32 type, I32 flags, SV* const_meth)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_NEWMETHOP_NAMED	\
+	assert(const_meth)
+
+PERL_CALLCONV CV *	Perl_newMYSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block);
+#define PERL_ARGS_ASSERT_NEWMYSUB	\
+	assert(o)
+PERL_CALLCONV OP*	Perl_newNULLLIST(pTHX)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV OP*	Perl_newOP(pTHX_ I32 optype, I32 flags)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV PADNAMELIST *	Perl_newPADNAMELIST(size_t max)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV PADNAME *	Perl_newPADNAMEouter(PADNAME *outer)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_NEWPADNAMEOUTER	\
+	assert(outer)
+
+PERL_CALLCONV PADNAME *	Perl_newPADNAMEpvn(const char *s, STRLEN len)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_NEWPADNAMEPVN	\
+	assert(s)
+
+PERL_CALLCONV OP*	Perl_newPMOP(pTHX_ I32 type, I32 flags)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV void	Perl_newPROG(pTHX_ OP* o);
+#define PERL_ARGS_ASSERT_NEWPROG	\
+	assert(o)
+PERL_CALLCONV OP*	Perl_newPVOP(pTHX_ I32 type, I32 flags, char* pv)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV OP*	Perl_newRANGE(pTHX_ I32 flags, OP* left, OP* right)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_NEWRANGE	\
+	assert(left); assert(right)
+
+PERL_CALLCONV SV*	Perl_newRV(pTHX_ SV *const sv)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_NEWRV	\
+	assert(sv)
+
+PERL_CALLCONV SV*	Perl_newRV_noinc(pTHX_ SV *const tmpRef)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_NEWRV_NOINC	\
+	assert(tmpRef)
+
+PERL_CALLCONV OP*	Perl_newSLICEOP(pTHX_ I32 flags, OP* subscript, OP* listop)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV OP*	Perl_newSTATEOP(pTHX_ I32 flags, char* label, OP* o)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV CV*	Perl_newSTUB(pTHX_ GV *gv, bool fake);
+#define PERL_ARGS_ASSERT_NEWSTUB	\
+	assert(gv)
+/* PERL_CALLCONV CV*	Perl_newSUB(pTHX_ I32 floor, OP* o, OP* proto, OP* block); */
+PERL_CALLCONV SV*	Perl_newSV(pTHX_ const STRLEN len)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV OP*	Perl_newSVOP(pTHX_ I32 type, I32 flags, SV* sv)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_NEWSVOP	\
+	assert(sv)
+
+PERL_CALLCONV OP*	Perl_newSVREF(pTHX_ OP* o)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_NEWSVREF	\
+	assert(o)
+
+PERL_CALLCONV SV*	Perl_newSV_type(pTHX_ const svtype type)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV SV*	Perl_newSVavdefelem(pTHX_ AV *av, SSize_t ix, bool extendible)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_NEWSVAVDEFELEM	\
+	assert(av)
+
+PERL_CALLCONV SV*	Perl_newSVhek(pTHX_ const HEK *const hek)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV SV*	Perl_newSViv(pTHX_ const IV i)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV SV*	Perl_newSVnv(pTHX_ const NV n)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV SV*	Perl_newSVpv(pTHX_ const char *const s, const STRLEN len)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV SV*	Perl_newSVpv_share(pTHX_ const char* s, U32 hash)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV SV*	Perl_newSVpvf(pTHX_ const char *const pat, ...)
+			__attribute__malloc__
+			__attribute__warn_unused_result__
+			__attribute__format__(__printf__,pTHX_1,pTHX_2);
+#define PERL_ARGS_ASSERT_NEWSVPVF	\
+	assert(pat)
+
+PERL_CALLCONV SV*	Perl_newSVpvn(pTHX_ const char *const s, const STRLEN len)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV SV*	Perl_newSVpvn_flags(pTHX_ const char *const s, const STRLEN len, const U32 flags)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV SV*	Perl_newSVpvn_share(pTHX_ const char* s, I32 len, U32 hash)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV SV*	Perl_newSVrv(pTHX_ SV *const rv, const char *const classname);
+#define PERL_ARGS_ASSERT_NEWSVRV	\
+	assert(rv)
+PERL_CALLCONV SV*	Perl_newSVsv(pTHX_ SV *const old)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV SV*	Perl_newSVuv(pTHX_ const UV u)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV OP*	Perl_newUNOP(pTHX_ I32 type, I32 flags, OP* first)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV OP*	Perl_newUNOP_AUX(pTHX_ I32 type, I32 flags, OP* first, UNOP_AUX_item *aux)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV OP*	Perl_newWHENOP(pTHX_ OP* cond, OP* block)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_NEWWHENOP	\
+	assert(block)
+
+PERL_CALLCONV OP*	Perl_newWHILEOP(pTHX_ I32 flags, I32 debuggable, LOOP* loop, OP* expr, OP* block, OP* cont, I32 has_my)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV CV*	Perl_newXS(pTHX_ const char *name, XSUBADDR_t subaddr, const char *filename);
+#define PERL_ARGS_ASSERT_NEWXS	\
+	assert(subaddr); assert(filename)
+PERL_CALLCONV CV *	Perl_newXS_deffile(pTHX_ const char *name, XSUBADDR_t subaddr);
+#define PERL_ARGS_ASSERT_NEWXS_DEFFILE	\
+	assert(name); assert(subaddr)
+PERL_CALLCONV CV *	Perl_newXS_flags(pTHX_ const char *name, XSUBADDR_t subaddr, const char *const filename, const char *const proto, U32 flags);
+#define PERL_ARGS_ASSERT_NEWXS_FLAGS	\
+	assert(subaddr); assert(filename)
+PERL_CALLCONV CV *	Perl_newXS_len_flags(pTHX_ const char *name, STRLEN len, XSUBADDR_t subaddr, const char *const filename, const char *const proto, SV **const_svp, U32 flags);
+#define PERL_ARGS_ASSERT_NEWXS_LEN_FLAGS	\
+	assert(subaddr)
+PERL_CALLCONV void	Perl_new_collate(pTHX_ const char* newcoll);
+PERL_CALLCONV void	Perl_new_ctype(pTHX_ const char* newctype);
+#define PERL_ARGS_ASSERT_NEW_CTYPE	\
+	assert(newctype)
+PERL_CALLCONV void	Perl_new_numeric(pTHX_ const char* newcoll);
+PERL_CALLCONV PERL_SI*	Perl_new_stackinfo(pTHX_ I32 stitems, I32 cxitems)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV SV*	Perl_new_version(pTHX_ SV *ver);
+#define PERL_ARGS_ASSERT_NEW_VERSION	\
+	assert(ver)
+PERL_CALLCONV STRLEN *	Perl_new_warnings_bitfield(pTHX_ STRLEN *buffer, const char *const bits, STRLEN size)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_NEW_WARNINGS_BITFIELD	\
+	assert(bits)
+
+PERL_CALLCONV PerlIO*	Perl_nextargv(pTHX_ GV* gv, bool nomagicopen);
+#define PERL_ARGS_ASSERT_NEXTARGV	\
+	assert(gv)
+PERL_CALLCONV char*	Perl_ninstr(const char* big, const char* bigend, const char* little, const char* lend)
+			__attribute__pure__;
+#define PERL_ARGS_ASSERT_NINSTR	\
+	assert(big); assert(bigend); assert(little); assert(lend)
+
+PERL_CALLCONV_NO_RET void	Perl_noperl_die(const char* pat, ...)
+			__attribute__noreturn__
+			__attribute__format__(__printf__,1,2);
+#define PERL_ARGS_ASSERT_NOPERL_DIE	\
+	assert(pat)
+
+PERL_CALLCONV int	Perl_nothreadhook(pTHX);
+PERL_CALLCONV OP*	Perl_oopsAV(pTHX_ OP* o)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_OOPSAV	\
+	assert(o)
+
+PERL_CALLCONV OP*	Perl_oopsHV(pTHX_ OP* o)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_OOPSHV	\
+	assert(o)
+
+PERL_CALLCONV OP*	Perl_op_append_elem(pTHX_ I32 optype, OP* first, OP* last);
+PERL_CALLCONV OP*	Perl_op_append_list(pTHX_ I32 optype, OP* first, OP* last);
+PERL_CALLCONV void	Perl_op_clear(pTHX_ OP* o);
+#define PERL_ARGS_ASSERT_OP_CLEAR	\
+	assert(o)
+PERL_CALLCONV OP*	Perl_op_contextualize(pTHX_ OP* o, I32 context);
+#define PERL_ARGS_ASSERT_OP_CONTEXTUALIZE	\
+	assert(o)
+PERL_CALLCONV OP*	Perl_op_convert_list(pTHX_ I32 optype, I32 flags, OP* o)
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV void	Perl_op_dump(pTHX_ const OP *o);
+#define PERL_ARGS_ASSERT_OP_DUMP	\
+	assert(o)
+PERL_CALLCONV void	Perl_op_free(pTHX_ OP* arg);
+PERL_CALLCONV OP*	Perl_op_linklist(pTHX_ OP *o);
+#define PERL_ARGS_ASSERT_OP_LINKLIST	\
+	assert(o)
+/* PERL_CALLCONV OP*	op_lvalue(pTHX_ OP* o, I32 type); */
+PERL_CALLCONV OP*	Perl_op_lvalue_flags(pTHX_ OP* o, I32 type, U32 flags);
+PERL_CALLCONV void	Perl_op_null(pTHX_ OP* o);
+#define PERL_ARGS_ASSERT_OP_NULL	\
+	assert(o)
+PERL_CALLCONV OP*	Perl_op_prepend_elem(pTHX_ I32 optype, OP* first, OP* last);
+PERL_CALLCONV void	Perl_op_refcnt_lock(pTHX);
+PERL_CALLCONV void	Perl_op_refcnt_unlock(pTHX);
+PERL_CALLCONV OP*	Perl_op_scope(pTHX_ OP* o);
+PERL_CALLCONV OP*	Perl_op_sibling_splice(OP *parent, OP *start, int del_count, OP* insert);
+PERL_CALLCONV OP*	Perl_op_unscope(pTHX_ OP* o);
+PERL_CALLCONV void	Perl_pack_cat(pTHX_ SV *cat, const char *pat, const char *patend, SV **beglist, SV **endlist, SV ***next_in_list, U32 flags);
+#define PERL_ARGS_ASSERT_PACK_CAT	\
+	assert(cat); assert(pat); assert(patend); assert(beglist); assert(endlist); assert(next_in_list)
+PERL_CALLCONV void	Perl_package(pTHX_ OP* o);
+#define PERL_ARGS_ASSERT_PACKAGE	\
+	assert(o)
+PERL_CALLCONV void	Perl_package_version(pTHX_ OP* v);
+#define PERL_ARGS_ASSERT_PACKAGE_VERSION	\
+	assert(v)
+PERL_CALLCONV void	Perl_packlist(pTHX_ SV *cat, const char *pat, const char *patend, SV **beglist, SV **endlist);
+#define PERL_ARGS_ASSERT_PACKLIST	\
+	assert(cat); assert(pat); assert(patend); assert(beglist); assert(endlist)
+PERL_CALLCONV PADOFFSET	Perl_pad_add_anon(pTHX_ CV* func, I32 optype);
+#define PERL_ARGS_ASSERT_PAD_ADD_ANON	\
+	assert(func)
+PERL_CALLCONV PADOFFSET	Perl_pad_add_name_pv(pTHX_ const char *name, const U32 flags, HV *typestash, HV *ourstash);
+#define PERL_ARGS_ASSERT_PAD_ADD_NAME_PV	\
+	assert(name)
+PERL_CALLCONV PADOFFSET	Perl_pad_add_name_pvn(pTHX_ const char *namepv, STRLEN namelen, U32 flags, HV *typestash, HV *ourstash);
+#define PERL_ARGS_ASSERT_PAD_ADD_NAME_PVN	\
+	assert(namepv)
+PERL_CALLCONV PADOFFSET	Perl_pad_add_name_sv(pTHX_ SV *name, U32 flags, HV *typestash, HV *ourstash);
+#define PERL_ARGS_ASSERT_PAD_ADD_NAME_SV	\
+	assert(name)
+PERL_CALLCONV void	Perl_pad_add_weakref(pTHX_ CV* func);
+#define PERL_ARGS_ASSERT_PAD_ADD_WEAKREF	\
+	assert(func)
+PERL_CALLCONV PADOFFSET	Perl_pad_alloc(pTHX_ I32 optype, U32 tmptype);
+PERL_CALLCONV void	Perl_pad_block_start(pTHX_ int full);
+PERL_CALLCONV HV*	Perl_pad_compname_type(pTHX_ const PADOFFSET po)
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV PADOFFSET	Perl_pad_findmy_pv(pTHX_ const char* name, U32 flags);
+#define PERL_ARGS_ASSERT_PAD_FINDMY_PV	\
+	assert(name)
+PERL_CALLCONV PADOFFSET	Perl_pad_findmy_pvn(pTHX_ const char* namepv, STRLEN namelen, U32 flags);
+#define PERL_ARGS_ASSERT_PAD_FINDMY_PVN	\
+	assert(namepv)
+PERL_CALLCONV PADOFFSET	Perl_pad_findmy_sv(pTHX_ SV* name, U32 flags);
+#define PERL_ARGS_ASSERT_PAD_FINDMY_SV	\
+	assert(name)
+PERL_CALLCONV void	Perl_pad_fixup_inner_anons(pTHX_ PADLIST *padlist, CV *old_cv, CV *new_cv);
+#define PERL_ARGS_ASSERT_PAD_FIXUP_INNER_ANONS	\
+	assert(padlist); assert(old_cv); assert(new_cv)
+PERL_CALLCONV void	Perl_pad_free(pTHX_ PADOFFSET po);
+PERL_CALLCONV OP *	Perl_pad_leavemy(pTHX);
+PERL_CALLCONV PADLIST*	Perl_pad_new(pTHX_ int flags)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV void	Perl_pad_push(pTHX_ PADLIST *padlist, int depth);
+#define PERL_ARGS_ASSERT_PAD_PUSH	\
+	assert(padlist)
+PERL_CALLCONV void	Perl_pad_swipe(pTHX_ PADOFFSET po, bool refadjust);
+PERL_CALLCONV void	Perl_pad_tidy(pTHX_ padtidy_type type);
+PERL_CALLCONV PAD **	Perl_padlist_store(pTHX_ PADLIST *padlist, I32 key, PAD *val);
+#define PERL_ARGS_ASSERT_PADLIST_STORE	\
+	assert(padlist)
+PERL_CALLCONV void	Perl_padname_free(pTHX_ PADNAME *pn);
+#define PERL_ARGS_ASSERT_PADNAME_FREE	\
+	assert(pn)
+PERL_CALLCONV PADNAME *	Perl_padnamelist_fetch(PADNAMELIST *pnl, SSize_t key)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_PADNAMELIST_FETCH	\
+	assert(pnl)
+
+PERL_CALLCONV void	Perl_padnamelist_free(pTHX_ PADNAMELIST *pnl);
+#define PERL_ARGS_ASSERT_PADNAMELIST_FREE	\
+	assert(pnl)
+PERL_CALLCONV PADNAME **	Perl_padnamelist_store(pTHX_ PADNAMELIST *pnl, SSize_t key, PADNAME *val);
+#define PERL_ARGS_ASSERT_PADNAMELIST_STORE	\
+	assert(pnl)
+PERL_CALLCONV OP*	Perl_parse_arithexpr(pTHX_ U32 flags);
+PERL_CALLCONV OP*	Perl_parse_barestmt(pTHX_ U32 flags);
+PERL_CALLCONV OP*	Perl_parse_block(pTHX_ U32 flags);
+PERL_CALLCONV OP*	Perl_parse_fullexpr(pTHX_ U32 flags);
+PERL_CALLCONV OP*	Perl_parse_fullstmt(pTHX_ U32 flags);
+PERL_CALLCONV SV*	Perl_parse_label(pTHX_ U32 flags);
+PERL_CALLCONV OP*	Perl_parse_listexpr(pTHX_ U32 flags);
+PERL_CALLCONV OP*	Perl_parse_stmtseq(pTHX_ U32 flags);
+PERL_CALLCONV OP *	Perl_parse_subsignature(pTHX)
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV OP*	Perl_parse_termexpr(pTHX_ U32 flags);
+PERL_CALLCONV U32	Perl_parse_unicode_opts(pTHX_ const char **popt);
+#define PERL_ARGS_ASSERT_PARSE_UNICODE_OPTS	\
+	assert(popt)
+PERL_CALLCONV void	Perl_parser_free(pTHX_ const yy_parser *parser);
+#define PERL_ARGS_ASSERT_PARSER_FREE	\
+	assert(parser)
+PERL_CALLCONV void	Perl_peep(pTHX_ OP* o);
+PERL_CALLCONV PerlInterpreter*	perl_alloc(void);
+PERL_CALLCONV void	perl_construct(PerlInterpreter *my_perl);
+#define PERL_ARGS_ASSERT_PERL_CONSTRUCT	\
+	assert(my_perl)
+PERL_CALLCONV int	perl_destruct(PerlInterpreter *my_perl);
+#define PERL_ARGS_ASSERT_PERL_DESTRUCT	\
+	assert(my_perl)
+PERL_CALLCONV void	perl_free(PerlInterpreter *my_perl);
+#define PERL_ARGS_ASSERT_PERL_FREE	\
+	assert(my_perl)
+PERL_CALLCONV int	perl_parse(PerlInterpreter *my_perl, XSINIT_t xsinit, int argc, char** argv, char** env);
+#define PERL_ARGS_ASSERT_PERL_PARSE	\
+	assert(my_perl)
+PERL_CALLCONV int	perl_run(PerlInterpreter *my_perl);
+#define PERL_ARGS_ASSERT_PERL_RUN	\
+	assert(my_perl)
+PERL_CALLCONV void	Perl_pmop_dump(pTHX_ PMOP* pm);
+PERL_CALLCONV OP*	Perl_pmruntime(pTHX_ OP *o, OP *expr, OP *repl, bool isreg, I32 floor);
+#define PERL_ARGS_ASSERT_PMRUNTIME	\
+	assert(o); assert(expr)
+PERL_CALLCONV void	Perl_pop_scope(pTHX);
+PERL_CALLCONV void	Perl_populate_isa(pTHX_ const char *name, STRLEN len, ...);
+#define PERL_ARGS_ASSERT_POPULATE_ISA	\
+	assert(name)
+PERL_CALLCONV REGEXP*	Perl_pregcomp(pTHX_ SV * const pattern, const U32 flags);
+#define PERL_ARGS_ASSERT_PREGCOMP	\
+	assert(pattern)
+PERL_CALLCONV I32	Perl_pregexec(pTHX_ REGEXP * const prog, char* stringarg, char* strend, char* strbeg, SSize_t minend, SV* screamer, U32 nosave);
+#define PERL_ARGS_ASSERT_PREGEXEC	\
+	assert(prog); assert(stringarg); assert(strend); assert(strbeg); assert(screamer)
+PERL_CALLCONV void	Perl_pregfree(pTHX_ REGEXP* r);
+PERL_CALLCONV void	Perl_pregfree2(pTHX_ REGEXP *rx);
+#define PERL_ARGS_ASSERT_PREGFREE2	\
+	assert(rx)
+PERL_CALLCONV const char*	Perl_prescan_version(pTHX_ const char *s, bool strict, const char** errstr, bool *sqv, int *ssaw_decimal, int *swidth, bool *salpha);
+#define PERL_ARGS_ASSERT_PRESCAN_VERSION	\
+	assert(s)
+PERL_CALLCONV void	Perl_ptr_table_clear(pTHX_ PTR_TBL_t *const tbl)
+			__attribute__deprecated__;
+
+PERL_CALLCONV void*	Perl_ptr_table_fetch(pTHX_ PTR_TBL_t *const tbl, const void *const sv)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_PTR_TABLE_FETCH	\
+	assert(tbl)
+
+PERL_CALLCONV void	Perl_ptr_table_free(pTHX_ PTR_TBL_t *const tbl);
+PERL_CALLCONV PTR_TBL_t*	Perl_ptr_table_new(pTHX)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV void	Perl_ptr_table_split(pTHX_ PTR_TBL_t *const tbl);
+#define PERL_ARGS_ASSERT_PTR_TABLE_SPLIT	\
+	assert(tbl)
+PERL_CALLCONV void	Perl_ptr_table_store(pTHX_ PTR_TBL_t *const tbl, const void *const oldsv, void *const newsv);
+#define PERL_ARGS_ASSERT_PTR_TABLE_STORE	\
+	assert(tbl); assert(newsv)
+PERL_CALLCONV void	Perl_push_scope(pTHX);
+PERL_CALLCONV char*	Perl_pv_display(pTHX_ SV *dsv, const char *pv, STRLEN cur, STRLEN len, STRLEN pvlim);
+#define PERL_ARGS_ASSERT_PV_DISPLAY	\
+	assert(dsv); assert(pv)
+PERL_CALLCONV char*	Perl_pv_escape(pTHX_ SV *dsv, char const * const str, const STRLEN count, const STRLEN max, STRLEN * const escaped, const U32 flags);
+#define PERL_ARGS_ASSERT_PV_ESCAPE	\
+	assert(str)
+PERL_CALLCONV char*	Perl_pv_pretty(pTHX_ SV *dsv, char const * const str, const STRLEN count, const STRLEN max, char const * const start_color, char const * const end_color, const U32 flags);
+#define PERL_ARGS_ASSERT_PV_PRETTY	\
+	assert(dsv); assert(str)
+PERL_CALLCONV char*	Perl_pv_uni_display(pTHX_ SV *dsv, const U8 *spv, STRLEN len, STRLEN pvlim, UV flags);
+#define PERL_ARGS_ASSERT_PV_UNI_DISPLAY	\
+	assert(dsv); assert(spv)
+PERL_CALLCONV void	Perl_qerror(pTHX_ SV* err);
+#define PERL_ARGS_ASSERT_QERROR	\
+	assert(err)
+PERL_CALLCONV REGEXP*	Perl_re_compile(pTHX_ SV * const pattern, U32 orig_rx_flags);
+#define PERL_ARGS_ASSERT_RE_COMPILE	\
+	assert(pattern)
+PERL_CALLCONV char*	Perl_re_intuit_start(pTHX_ REGEXP * const rx, SV* sv, const char* const strbeg, char* strpos, char* strend, const U32 flags, re_scream_pos_data *data);
+#define PERL_ARGS_ASSERT_RE_INTUIT_START	\
+	assert(rx); assert(strbeg); assert(strpos); assert(strend)
+PERL_CALLCONV SV*	Perl_re_intuit_string(pTHX_ REGEXP  *const r);
+#define PERL_ARGS_ASSERT_RE_INTUIT_STRING	\
+	assert(r)
+PERL_CALLCONV REGEXP*	Perl_re_op_compile(pTHX_ SV ** const patternp, int pat_count, OP *expr, const regexp_engine* eng, REGEXP *old_re, bool *is_bare_re, U32 rx_flags, U32 pm_flags);
+#define PERL_ARGS_ASSERT_RE_OP_COMPILE	\
+	assert(eng)
+PERL_CALLCONV Malloc_t	Perl_realloc(Malloc_t where, MEM_SIZE nbytes)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV void	Perl_reentrant_free(pTHX);
+PERL_CALLCONV void	Perl_reentrant_init(pTHX);
+PERL_CALLCONV void*	Perl_reentrant_retry(const char *f, ...);
+#define PERL_ARGS_ASSERT_REENTRANT_RETRY	\
+	assert(f)
+PERL_CALLCONV void	Perl_reentrant_size(pTHX);
+/* PERL_CALLCONV OP*	Perl_ref(pTHX_ OP* o, I32 type); */
+PERL_CALLCONV HV *	Perl_refcounted_he_chain_2hv(pTHX_ const struct refcounted_he *c, U32 flags);
+PERL_CALLCONV SV *	Perl_refcounted_he_fetch_pv(pTHX_ const struct refcounted_he *chain, const char *key, U32 hash, U32 flags);
+#define PERL_ARGS_ASSERT_REFCOUNTED_HE_FETCH_PV	\
+	assert(key)
+PERL_CALLCONV SV *	Perl_refcounted_he_fetch_pvn(pTHX_ const struct refcounted_he *chain, const char *keypv, STRLEN keylen, U32 hash, U32 flags);
+#define PERL_ARGS_ASSERT_REFCOUNTED_HE_FETCH_PVN	\
+	assert(keypv)
+PERL_CALLCONV SV *	Perl_refcounted_he_fetch_sv(pTHX_ const struct refcounted_he *chain, SV *key, U32 hash, U32 flags);
+#define PERL_ARGS_ASSERT_REFCOUNTED_HE_FETCH_SV	\
+	assert(key)
+PERL_CALLCONV void	Perl_refcounted_he_free(pTHX_ struct refcounted_he *he);
+PERL_CALLCONV struct refcounted_he *	Perl_refcounted_he_inc(pTHX_ struct refcounted_he *he);
+PERL_CALLCONV struct refcounted_he *	Perl_refcounted_he_new_pv(pTHX_ struct refcounted_he *parent, const char *key, U32 hash, SV *value, U32 flags);
+#define PERL_ARGS_ASSERT_REFCOUNTED_HE_NEW_PV	\
+	assert(key)
+PERL_CALLCONV struct refcounted_he *	Perl_refcounted_he_new_pvn(pTHX_ struct refcounted_he *parent, const char *keypv, STRLEN keylen, U32 hash, SV *value, U32 flags);
+#define PERL_ARGS_ASSERT_REFCOUNTED_HE_NEW_PVN	\
+	assert(keypv)
+PERL_CALLCONV struct refcounted_he *	Perl_refcounted_he_new_sv(pTHX_ struct refcounted_he *parent, SV *key, U32 hash, SV *value, U32 flags);
+#define PERL_ARGS_ASSERT_REFCOUNTED_HE_NEW_SV	\
+	assert(key)
+PERL_CALLCONV SV*	Perl_reg_named_buff(pTHX_ REGEXP * const rx, SV * const key, SV * const value, const U32 flags);
+#define PERL_ARGS_ASSERT_REG_NAMED_BUFF	\
+	assert(rx)
+PERL_CALLCONV SV*	Perl_reg_named_buff_all(pTHX_ REGEXP * const rx, const U32 flags);
+#define PERL_ARGS_ASSERT_REG_NAMED_BUFF_ALL	\
+	assert(rx)
+PERL_CALLCONV bool	Perl_reg_named_buff_exists(pTHX_ REGEXP * const rx, SV * const key, const U32 flags);
+#define PERL_ARGS_ASSERT_REG_NAMED_BUFF_EXISTS	\
+	assert(rx); assert(key)
+PERL_CALLCONV SV*	Perl_reg_named_buff_fetch(pTHX_ REGEXP * const rx, SV * const namesv, const U32 flags);
+#define PERL_ARGS_ASSERT_REG_NAMED_BUFF_FETCH	\
+	assert(rx); assert(namesv)
+PERL_CALLCONV SV*	Perl_reg_named_buff_firstkey(pTHX_ REGEXP * const rx, const U32 flags);
+#define PERL_ARGS_ASSERT_REG_NAMED_BUFF_FIRSTKEY	\
+	assert(rx)
+PERL_CALLCONV SV*	Perl_reg_named_buff_iter(pTHX_ REGEXP * const rx, const SV * const lastkey, const U32 flags);
+#define PERL_ARGS_ASSERT_REG_NAMED_BUFF_ITER	\
+	assert(rx)
+PERL_CALLCONV SV*	Perl_reg_named_buff_nextkey(pTHX_ REGEXP * const rx, const U32 flags);
+#define PERL_ARGS_ASSERT_REG_NAMED_BUFF_NEXTKEY	\
+	assert(rx)
+PERL_CALLCONV SV*	Perl_reg_named_buff_scalar(pTHX_ REGEXP * const rx, const U32 flags);
+#define PERL_ARGS_ASSERT_REG_NAMED_BUFF_SCALAR	\
+	assert(rx)
+PERL_CALLCONV void	Perl_reg_numbered_buff_fetch(pTHX_ REGEXP * const rx, const I32 paren, SV * const sv);
+#define PERL_ARGS_ASSERT_REG_NUMBERED_BUFF_FETCH	\
+	assert(rx)
+PERL_CALLCONV I32	Perl_reg_numbered_buff_length(pTHX_ REGEXP * const rx, const SV * const sv, const I32 paren);
+#define PERL_ARGS_ASSERT_REG_NUMBERED_BUFF_LENGTH	\
+	assert(rx); assert(sv)
+PERL_CALLCONV void	Perl_reg_numbered_buff_store(pTHX_ REGEXP * const rx, const I32 paren, SV const * const value);
+#define PERL_ARGS_ASSERT_REG_NUMBERED_BUFF_STORE	\
+	assert(rx)
+PERL_CALLCONV SV*	Perl_reg_qr_package(pTHX_ REGEXP * const rx);
+#define PERL_ARGS_ASSERT_REG_QR_PACKAGE	\
+	assert(rx)
+PERL_CALLCONV REGEXP*	Perl_reg_temp_copy(pTHX_ REGEXP* ret_x, REGEXP* rx);
+#define PERL_ARGS_ASSERT_REG_TEMP_COPY	\
+	assert(rx)
+PERL_CALLCONV SV*	Perl_regclass_swash(pTHX_ const regexp *prog, const struct regnode *node, bool doinit, SV **listsvp, SV **altsvp);
+#define PERL_ARGS_ASSERT_REGCLASS_SWASH	\
+	assert(node)
+PERL_CALLCONV void	Perl_regdump(pTHX_ const regexp* r);
+#define PERL_ARGS_ASSERT_REGDUMP	\
+	assert(r)
+PERL_CALLCONV I32	Perl_regexec_flags(pTHX_ REGEXP *const rx, char *stringarg, char *strend, char *strbeg, SSize_t minend, SV *sv, void *data, U32 flags);
+#define PERL_ARGS_ASSERT_REGEXEC_FLAGS	\
+	assert(rx); assert(stringarg); assert(strend); assert(strbeg); assert(sv)
+PERL_CALLCONV void	Perl_regfree_internal(pTHX_ REGEXP *const rx);
+#define PERL_ARGS_ASSERT_REGFREE_INTERNAL	\
+	assert(rx)
+PERL_CALLCONV void	Perl_reginitcolors(pTHX);
+PERL_CALLCONV regnode*	Perl_regnext(pTHX_ regnode* p)
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV void	Perl_repeatcpy(char* to, const char* from, I32 len, IV count);
+#define PERL_ARGS_ASSERT_REPEATCPY	\
+	assert(to); assert(from)
+PERL_CALLCONV void	Perl_report_evil_fh(pTHX_ const GV *gv);
+PERL_CALLCONV void	Perl_report_uninit(pTHX_ const SV *uninit_sv);
+PERL_CALLCONV void	Perl_report_wrongway_fh(pTHX_ const GV *gv, const char have);
+PERL_CALLCONV void	Perl_require_pv(pTHX_ const char* pv);
+#define PERL_ARGS_ASSERT_REQUIRE_PV	\
+	assert(pv)
+PERL_CALLCONV char*	Perl_rninstr(const char* big, const char* bigend, const char* little, const char* lend)
+			__attribute__pure__;
+#define PERL_ARGS_ASSERT_RNINSTR	\
+	assert(big); assert(bigend); assert(little); assert(lend)
+
+PERL_CALLCONV void	Perl_rpeep(pTHX_ OP* o);
+PERL_CALLCONV Sighandler_t	Perl_rsignal(pTHX_ int i, Sighandler_t t);
+PERL_CALLCONV int	Perl_rsignal_restore(pTHX_ int i, Sigsave_t* t);
+PERL_CALLCONV int	Perl_rsignal_save(pTHX_ int i, Sighandler_t t1, Sigsave_t* save);
+#define PERL_ARGS_ASSERT_RSIGNAL_SAVE	\
+	assert(save)
+PERL_CALLCONV Sighandler_t	Perl_rsignal_state(pTHX_ int i);
+PERL_CALLCONV int	Perl_runops_debug(pTHX);
+PERL_CALLCONV int	Perl_runops_standard(pTHX);
+PERL_CALLCONV CV*	Perl_rv2cv_op_cv(pTHX_ OP *cvop, U32 flags);
+#define PERL_ARGS_ASSERT_RV2CV_OP_CV	\
+	assert(cvop)
+PERL_CALLCONV void	Perl_rxres_save(pTHX_ void **rsp, REGEXP *rx);
+#define PERL_ARGS_ASSERT_RXRES_SAVE	\
+	assert(rsp); assert(rx)
+PERL_CALLCONV Malloc_t	Perl_safesyscalloc(MEM_SIZE elements, MEM_SIZE size)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV Free_t	Perl_safesysfree(Malloc_t where);
+PERL_CALLCONV Malloc_t	Perl_safesysmalloc(MEM_SIZE nbytes)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV Malloc_t	Perl_safesysrealloc(Malloc_t where, MEM_SIZE nbytes)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV void	Perl_save_I16(pTHX_ I16* intp);
+#define PERL_ARGS_ASSERT_SAVE_I16	\
+	assert(intp)
+PERL_CALLCONV void	Perl_save_I32(pTHX_ I32* intp);
+#define PERL_ARGS_ASSERT_SAVE_I32	\
+	assert(intp)
+PERL_CALLCONV void	Perl_save_I8(pTHX_ I8* bytep);
+#define PERL_ARGS_ASSERT_SAVE_I8	\
+	assert(bytep)
+PERL_CALLCONV void	Perl_save_adelete(pTHX_ AV *av, SSize_t key);
+#define PERL_ARGS_ASSERT_SAVE_ADELETE	\
+	assert(av)
+/* PERL_CALLCONV void	Perl_save_aelem(pTHX_ AV* av, SSize_t idx, SV **sptr); */
+PERL_CALLCONV void	Perl_save_aelem_flags(pTHX_ AV* av, SSize_t idx, SV **sptr, const U32 flags);
+#define PERL_ARGS_ASSERT_SAVE_AELEM_FLAGS	\
+	assert(av); assert(sptr)
+PERL_CALLCONV I32	Perl_save_alloc(pTHX_ I32 size, I32 pad);
+PERL_CALLCONV void	Perl_save_aptr(pTHX_ AV** aptr);
+#define PERL_ARGS_ASSERT_SAVE_APTR	\
+	assert(aptr)
+PERL_CALLCONV AV*	Perl_save_ary(pTHX_ GV* gv);
+#define PERL_ARGS_ASSERT_SAVE_ARY	\
+	assert(gv)
+PERL_CALLCONV void	Perl_save_bool(pTHX_ bool* boolp);
+#define PERL_ARGS_ASSERT_SAVE_BOOL	\
+	assert(boolp)
+PERL_CALLCONV void	Perl_save_clearsv(pTHX_ SV** svp);
+#define PERL_ARGS_ASSERT_SAVE_CLEARSV	\
+	assert(svp)
+PERL_CALLCONV void	Perl_save_delete(pTHX_ HV *hv, char *key, I32 klen);
+#define PERL_ARGS_ASSERT_SAVE_DELETE	\
+	assert(hv); assert(key)
+PERL_CALLCONV void	Perl_save_destructor(pTHX_ DESTRUCTORFUNC_NOCONTEXT_t f, void* p);
+#define PERL_ARGS_ASSERT_SAVE_DESTRUCTOR	\
+	assert(p)
+PERL_CALLCONV void	Perl_save_destructor_x(pTHX_ DESTRUCTORFUNC_t f, void* p);
+/* PERL_CALLCONV void	Perl_save_freeop(pTHX_ OP* o); */
+/* PERL_CALLCONV void	Perl_save_freepv(pTHX_ char* pv); */
+/* PERL_CALLCONV void	Perl_save_freesv(pTHX_ SV* sv); */
+PERL_CALLCONV void	Perl_save_generic_pvref(pTHX_ char** str);
+#define PERL_ARGS_ASSERT_SAVE_GENERIC_PVREF	\
+	assert(str)
+PERL_CALLCONV void	Perl_save_generic_svref(pTHX_ SV** sptr);
+#define PERL_ARGS_ASSERT_SAVE_GENERIC_SVREF	\
+	assert(sptr)
+PERL_CALLCONV void	Perl_save_gp(pTHX_ GV* gv, I32 empty);
+#define PERL_ARGS_ASSERT_SAVE_GP	\
+	assert(gv)
+PERL_CALLCONV HV*	Perl_save_hash(pTHX_ GV* gv);
+#define PERL_ARGS_ASSERT_SAVE_HASH	\
+	assert(gv)
+PERL_CALLCONV void	Perl_save_hdelete(pTHX_ HV *hv, SV *keysv);
+#define PERL_ARGS_ASSERT_SAVE_HDELETE	\
+	assert(hv); assert(keysv)
+/* PERL_CALLCONV void	Perl_save_helem(pTHX_ HV *hv, SV *key, SV **sptr); */
+PERL_CALLCONV void	Perl_save_helem_flags(pTHX_ HV *hv, SV *key, SV **sptr, const U32 flags);
+#define PERL_ARGS_ASSERT_SAVE_HELEM_FLAGS	\
+	assert(hv); assert(key); assert(sptr)
+PERL_CALLCONV void	Perl_save_hints(pTHX);
+PERL_CALLCONV void	Perl_save_hptr(pTHX_ HV** hptr);
+#define PERL_ARGS_ASSERT_SAVE_HPTR	\
+	assert(hptr)
+PERL_CALLCONV void	Perl_save_int(pTHX_ int* intp);
+#define PERL_ARGS_ASSERT_SAVE_INT	\
+	assert(intp)
+PERL_CALLCONV void	Perl_save_item(pTHX_ SV* item);
+#define PERL_ARGS_ASSERT_SAVE_ITEM	\
+	assert(item)
+PERL_CALLCONV void	Perl_save_iv(pTHX_ IV *ivp);
+#define PERL_ARGS_ASSERT_SAVE_IV	\
+	assert(ivp)
+PERL_CALLCONV void	Perl_save_list(pTHX_ SV** sarg, I32 maxsarg);
+#define PERL_ARGS_ASSERT_SAVE_LIST	\
+	assert(sarg)
+PERL_CALLCONV void	Perl_save_long(pTHX_ long* longp);
+#define PERL_ARGS_ASSERT_SAVE_LONG	\
+	assert(longp)
+/* PERL_CALLCONV void	Perl_save_mortalizesv(pTHX_ SV* sv); */
+#define PERL_ARGS_ASSERT_SAVE_MORTALIZESV	\
+	assert(sv)
+PERL_CALLCONV void	Perl_save_nogv(pTHX_ GV* gv);
+#define PERL_ARGS_ASSERT_SAVE_NOGV	\
+	assert(gv)
+/* PERL_CALLCONV void	Perl_save_op(pTHX); */
+PERL_CALLCONV void	Perl_save_padsv_and_mortalize(pTHX_ PADOFFSET off);
+PERL_CALLCONV void	Perl_save_pptr(pTHX_ char** pptr);
+#define PERL_ARGS_ASSERT_SAVE_PPTR	\
+	assert(pptr)
+PERL_CALLCONV void	Perl_save_pushi32ptr(pTHX_ const I32 i, void *const ptr, const int type);
+PERL_CALLCONV void	Perl_save_pushptr(pTHX_ void *const ptr, const int type);
+PERL_CALLCONV void	Perl_save_pushptrptr(pTHX_ void *const ptr1, void *const ptr2, const int type);
+PERL_CALLCONV void	Perl_save_re_context(pTHX);
+PERL_CALLCONV SV*	Perl_save_scalar(pTHX_ GV* gv);
+#define PERL_ARGS_ASSERT_SAVE_SCALAR	\
+	assert(gv)
+PERL_CALLCONV void	Perl_save_set_svflags(pTHX_ SV *sv, U32 mask, U32 val);
+#define PERL_ARGS_ASSERT_SAVE_SET_SVFLAGS	\
+	assert(sv)
+PERL_CALLCONV void	Perl_save_shared_pvref(pTHX_ char** str);
+#define PERL_ARGS_ASSERT_SAVE_SHARED_PVREF	\
+	assert(str)
+PERL_CALLCONV void	Perl_save_sptr(pTHX_ SV** sptr);
+#define PERL_ARGS_ASSERT_SAVE_SPTR	\
+	assert(sptr)
+PERL_CALLCONV void	Perl_save_strlen(pTHX_ STRLEN* ptr);
+#define PERL_ARGS_ASSERT_SAVE_STRLEN	\
+	assert(ptr)
+PERL_CALLCONV SV*	Perl_save_svref(pTHX_ SV** sptr);
+#define PERL_ARGS_ASSERT_SAVE_SVREF	\
+	assert(sptr)
+PERL_CALLCONV void	Perl_save_vptr(pTHX_ void *ptr);
+#define PERL_ARGS_ASSERT_SAVE_VPTR	\
+	assert(ptr)
+PERL_CALLCONV char*	Perl_savepv(pTHX_ const char* pv)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV char*	Perl_savepvn(pTHX_ const char* pv, I32 len)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV char*	Perl_savesharedpv(pTHX_ const char* pv)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV char*	Perl_savesharedpvn(pTHX_ const char *const pv, const STRLEN len)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV char*	Perl_savesharedsvpv(pTHX_ SV *sv)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_SAVESHAREDSVPV	\
+	assert(sv)
+
+PERL_CALLCONV void	Perl_savestack_grow(pTHX);
+PERL_CALLCONV void	Perl_savestack_grow_cnt(pTHX_ I32 need);
+PERL_CALLCONV char*	Perl_savesvpv(pTHX_ SV* sv)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_SAVESVPV	\
+	assert(sv)
+
+PERL_CALLCONV void	Perl_savetmps(pTHX);
+PERL_CALLCONV OP*	Perl_sawparens(pTHX_ OP* o);
+PERL_CALLCONV OP*	Perl_scalar(pTHX_ OP* o);
+PERL_CALLCONV OP*	Perl_scalarvoid(pTHX_ OP* o);
+#define PERL_ARGS_ASSERT_SCALARVOID	\
+	assert(o)
+PERL_CALLCONV NV	Perl_scan_bin(pTHX_ const char* start, STRLEN len, STRLEN* retlen);
+#define PERL_ARGS_ASSERT_SCAN_BIN	\
+	assert(start); assert(retlen)
+PERL_CALLCONV NV	Perl_scan_hex(pTHX_ const char* start, STRLEN len, STRLEN* retlen);
+#define PERL_ARGS_ASSERT_SCAN_HEX	\
+	assert(start); assert(retlen)
+PERL_CALLCONV char*	Perl_scan_num(pTHX_ const char* s, YYSTYPE *lvalp);
+#define PERL_ARGS_ASSERT_SCAN_NUM	\
+	assert(s); assert(lvalp)
+PERL_CALLCONV NV	Perl_scan_oct(pTHX_ const char* start, STRLEN len, STRLEN* retlen);
+#define PERL_ARGS_ASSERT_SCAN_OCT	\
+	assert(start); assert(retlen)
+PERL_CALLCONV const char*	Perl_scan_version(pTHX_ const char *s, SV *rv, bool qv);
+#define PERL_ARGS_ASSERT_SCAN_VERSION	\
+	assert(s); assert(rv)
+PERL_CALLCONV char*	Perl_scan_vstring(pTHX_ const char *s, const char *const e, SV *sv);
+#define PERL_ARGS_ASSERT_SCAN_VSTRING	\
+	assert(s); assert(e); assert(sv)
+PERL_CALLCONV U32	Perl_seed(pTHX);
+PERL_CALLCONV void	Perl_set_caret_X(pTHX);
+PERL_CALLCONV void	Perl_set_context(void *t);
+#define PERL_ARGS_ASSERT_SET_CONTEXT	\
+	assert(t)
+PERL_CALLCONV void	Perl_set_numeric_local(pTHX);
+PERL_CALLCONV void	Perl_set_numeric_radix(pTHX);
+PERL_CALLCONV void	Perl_set_numeric_standard(pTHX);
+PERL_CALLCONV void	Perl_setdefout(pTHX_ GV* gv);
+#define PERL_ARGS_ASSERT_SETDEFOUT	\
+	assert(gv)
+PERL_CALLCONV HEK*	Perl_share_hek(pTHX_ const char* str, I32 len, U32 hash);
+#define PERL_ARGS_ASSERT_SHARE_HEK	\
+	assert(str)
+PERL_CALLCONV void	Perl_sortsv(pTHX_ SV** array, size_t num_elts, SVCOMPARE_t cmp);
+#define PERL_ARGS_ASSERT_SORTSV	\
+	assert(cmp)
+PERL_CALLCONV void	Perl_sortsv_flags(pTHX_ SV** array, size_t num_elts, SVCOMPARE_t cmp, U32 flags);
+#define PERL_ARGS_ASSERT_SORTSV_FLAGS	\
+	assert(cmp)
+PERL_CALLCONV SV**	Perl_stack_grow(pTHX_ SV** sp, SV** p, SSize_t n);
+#define PERL_ARGS_ASSERT_STACK_GROW	\
+	assert(sp); assert(p)
+PERL_CALLCONV PerlIO*	Perl_start_glob(pTHX_ SV *tmpglob, IO *io);
+#define PERL_ARGS_ASSERT_START_GLOB	\
+	assert(tmpglob); assert(io)
+PERL_CALLCONV I32	Perl_start_subparse(pTHX_ I32 is_format, U32 flags);
+PERL_CALLCONV NV	Perl_str_to_version(pTHX_ SV *sv)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_STR_TO_VERSION	\
+	assert(sv)
+
+PERL_CALLCONV void	Perl_sub_crush_depth(pTHX_ CV* cv);
+#define PERL_ARGS_ASSERT_SUB_CRUSH_DEPTH	\
+	assert(cv)
+/* PERL_CALLCONV bool	sv_2bool(pTHX_ SV *const sv); */
+PERL_CALLCONV bool	Perl_sv_2bool_flags(pTHX_ SV *sv, I32 flags);
+#define PERL_ARGS_ASSERT_SV_2BOOL_FLAGS	\
+	assert(sv)
+PERL_CALLCONV CV*	Perl_sv_2cv(pTHX_ SV* sv, HV **const st, GV **const gvp, const I32 lref);
+#define PERL_ARGS_ASSERT_SV_2CV	\
+	assert(st); assert(gvp)
+PERL_CALLCONV IO*	Perl_sv_2io(pTHX_ SV *const sv);
+#define PERL_ARGS_ASSERT_SV_2IO	\
+	assert(sv)
+/* PERL_CALLCONV IV	Perl_sv_2iv(pTHX_ SV *sv); */
+#define PERL_ARGS_ASSERT_SV_2IV	\
+	assert(sv)
+PERL_CALLCONV IV	Perl_sv_2iv_flags(pTHX_ SV *const sv, const I32 flags);
+#define PERL_ARGS_ASSERT_SV_2IV_FLAGS	\
+	assert(sv)
+PERL_CALLCONV SV*	Perl_sv_2mortal(pTHX_ SV *const sv);
+PERL_CALLCONV SV*	Perl_sv_2num(pTHX_ SV *const sv);
+#define PERL_ARGS_ASSERT_SV_2NUM	\
+	assert(sv)
+PERL_CALLCONV NV	Perl_sv_2nv_flags(pTHX_ SV *const sv, const I32 flags);
+#define PERL_ARGS_ASSERT_SV_2NV_FLAGS	\
+	assert(sv)
+/* PERL_CALLCONV char*	Perl_sv_2pv(pTHX_ SV *sv, STRLEN *lp); */
+#define PERL_ARGS_ASSERT_SV_2PV	\
+	assert(sv)
+PERL_CALLCONV char*	Perl_sv_2pv_flags(pTHX_ SV *const sv, STRLEN *const lp, const I32 flags);
+#define PERL_ARGS_ASSERT_SV_2PV_FLAGS	\
+	assert(sv)
+/* PERL_CALLCONV char*	Perl_sv_2pv_nolen(pTHX_ SV* sv)
+			__attribute__warn_unused_result__; */
+#define PERL_ARGS_ASSERT_SV_2PV_NOLEN	\
+	assert(sv)
+
+PERL_CALLCONV char*	Perl_sv_2pvbyte(pTHX_ SV *sv, STRLEN *const lp);
+#define PERL_ARGS_ASSERT_SV_2PVBYTE	\
+	assert(sv)
+/* PERL_CALLCONV char*	Perl_sv_2pvbyte_nolen(pTHX_ SV* sv)
+			__attribute__warn_unused_result__; */
+#define PERL_ARGS_ASSERT_SV_2PVBYTE_NOLEN	\
+	assert(sv)
+
+PERL_CALLCONV char*	Perl_sv_2pvutf8(pTHX_ SV *sv, STRLEN *const lp);
+#define PERL_ARGS_ASSERT_SV_2PVUTF8	\
+	assert(sv)
+/* PERL_CALLCONV char*	Perl_sv_2pvutf8_nolen(pTHX_ SV* sv)
+			__attribute__warn_unused_result__; */
+#define PERL_ARGS_ASSERT_SV_2PVUTF8_NOLEN	\
+	assert(sv)
+
+/* PERL_CALLCONV UV	Perl_sv_2uv(pTHX_ SV *sv); */
+#define PERL_ARGS_ASSERT_SV_2UV	\
+	assert(sv)
+PERL_CALLCONV UV	Perl_sv_2uv_flags(pTHX_ SV *const sv, const I32 flags);
+#define PERL_ARGS_ASSERT_SV_2UV_FLAGS	\
+	assert(sv)
+PERL_CALLCONV void	Perl_sv_backoff(SV *const sv);
+#define PERL_ARGS_ASSERT_SV_BACKOFF	\
+	assert(sv)
+PERL_CALLCONV SV*	Perl_sv_bless(pTHX_ SV *const sv, HV *const stash);
+#define PERL_ARGS_ASSERT_SV_BLESS	\
+	assert(sv); assert(stash)
+PERL_CALLCONV bool	Perl_sv_cat_decode(pTHX_ SV* dsv, SV *encoding, SV *ssv, int *offset, char* tstr, int tlen);
+#define PERL_ARGS_ASSERT_SV_CAT_DECODE	\
+	assert(dsv); assert(encoding); assert(ssv); assert(offset); assert(tstr)
+PERL_CALLCONV void	Perl_sv_catpv(pTHX_ SV *const sv, const char* ptr);
+#define PERL_ARGS_ASSERT_SV_CATPV	\
+	assert(sv)
+PERL_CALLCONV void	Perl_sv_catpv_flags(pTHX_ SV *dstr, const char *sstr, const I32 flags);
+#define PERL_ARGS_ASSERT_SV_CATPV_FLAGS	\
+	assert(dstr); assert(sstr)
+PERL_CALLCONV void	Perl_sv_catpv_mg(pTHX_ SV *const sv, const char *const ptr);
+#define PERL_ARGS_ASSERT_SV_CATPV_MG	\
+	assert(sv)
+PERL_CALLCONV void	Perl_sv_catpvf(pTHX_ SV *const sv, const char *const pat, ...)
+			__attribute__format__(__printf__,pTHX_2,pTHX_3);
+#define PERL_ARGS_ASSERT_SV_CATPVF	\
+	assert(sv); assert(pat)
+
+PERL_CALLCONV void	Perl_sv_catpvf_mg(pTHX_ SV *const sv, const char *const pat, ...)
+			__attribute__format__(__printf__,pTHX_2,pTHX_3);
+#define PERL_ARGS_ASSERT_SV_CATPVF_MG	\
+	assert(sv); assert(pat)
+
+/* PERL_CALLCONV void	Perl_sv_catpvn(pTHX_ SV *dsv, const char *sstr, STRLEN len); */
+#define PERL_ARGS_ASSERT_SV_CATPVN	\
+	assert(dsv); assert(sstr)
+PERL_CALLCONV void	Perl_sv_catpvn_flags(pTHX_ SV *const dstr, const char *sstr, const STRLEN len, const I32 flags);
+#define PERL_ARGS_ASSERT_SV_CATPVN_FLAGS	\
+	assert(dstr); assert(sstr)
+/* PERL_CALLCONV void	Perl_sv_catpvn_mg(pTHX_ SV *sv, const char *ptr, STRLEN len); */
+#define PERL_ARGS_ASSERT_SV_CATPVN_MG	\
+	assert(sv); assert(ptr)
+/* PERL_CALLCONV void	Perl_sv_catsv(pTHX_ SV *dstr, SV *sstr); */
+#define PERL_ARGS_ASSERT_SV_CATSV	\
+	assert(dstr)
+PERL_CALLCONV void	Perl_sv_catsv_flags(pTHX_ SV *const dsv, SV *const ssv, const I32 flags);
+#define PERL_ARGS_ASSERT_SV_CATSV_FLAGS	\
+	assert(dsv)
+/* PERL_CALLCONV void	Perl_sv_catsv_mg(pTHX_ SV *dsv, SV *ssv); */
+#define PERL_ARGS_ASSERT_SV_CATSV_MG	\
+	assert(dsv)
+PERL_CALLCONV void	Perl_sv_chop(pTHX_ SV *const sv, const char *const ptr);
+#define PERL_ARGS_ASSERT_SV_CHOP	\
+	assert(sv)
+PERL_CALLCONV I32	Perl_sv_clean_all(pTHX);
+PERL_CALLCONV void	Perl_sv_clean_objs(pTHX);
+PERL_CALLCONV void	Perl_sv_clear(pTHX_ SV *const orig_sv);
+#define PERL_ARGS_ASSERT_SV_CLEAR	\
+	assert(orig_sv)
+PERL_CALLCONV I32	Perl_sv_cmp(pTHX_ SV *const sv1, SV *const sv2);
+PERL_CALLCONV I32	Perl_sv_cmp_flags(pTHX_ SV *const sv1, SV *const sv2, const U32 flags);
+PERL_CALLCONV I32	Perl_sv_cmp_locale(pTHX_ SV *const sv1, SV *const sv2);
+PERL_CALLCONV I32	Perl_sv_cmp_locale_flags(pTHX_ SV *const sv1, SV *const sv2, const U32 flags);
+/* PERL_CALLCONV void	Perl_sv_copypv(pTHX_ SV *const dsv, SV *const ssv); */
+#define PERL_ARGS_ASSERT_SV_COPYPV	\
+	assert(dsv); assert(ssv)
+PERL_CALLCONV void	Perl_sv_copypv_flags(pTHX_ SV *const dsv, SV *const ssv, const I32 flags);
+#define PERL_ARGS_ASSERT_SV_COPYPV_FLAGS	\
+	assert(dsv); assert(ssv)
+/* PERL_CALLCONV void	Perl_sv_copypv_nomg(pTHX_ SV *const dsv, SV *const ssv); */
+PERL_CALLCONV void	Perl_sv_dec(pTHX_ SV *const sv);
+PERL_CALLCONV void	Perl_sv_dec_nomg(pTHX_ SV *const sv);
+PERL_CALLCONV void	Perl_sv_del_backref(pTHX_ SV *const tsv, SV *const sv);
+#define PERL_ARGS_ASSERT_SV_DEL_BACKREF	\
+	assert(tsv); assert(sv)
+PERL_CALLCONV bool	Perl_sv_derived_from(pTHX_ SV* sv, const char *const name)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_SV_DERIVED_FROM	\
+	assert(sv); assert(name)
+
+PERL_CALLCONV bool	Perl_sv_derived_from_pv(pTHX_ SV* sv, const char *const name, U32 flags)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_SV_DERIVED_FROM_PV	\
+	assert(sv); assert(name)
+
+PERL_CALLCONV bool	Perl_sv_derived_from_pvn(pTHX_ SV* sv, const char *const name, const STRLEN len, U32 flags)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_SV_DERIVED_FROM_PVN	\
+	assert(sv); assert(name)
+
+PERL_CALLCONV bool	Perl_sv_derived_from_sv(pTHX_ SV* sv, SV *namesv, U32 flags)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_SV_DERIVED_FROM_SV	\
+	assert(sv); assert(namesv)
+
+PERL_CALLCONV bool	Perl_sv_destroyable(pTHX_ SV *sv);
+PERL_CALLCONV bool	Perl_sv_does(pTHX_ SV* sv, const char *const name)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_SV_DOES	\
+	assert(sv); assert(name)
+
+PERL_CALLCONV bool	Perl_sv_does_pv(pTHX_ SV* sv, const char *const name, U32 flags)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_SV_DOES_PV	\
+	assert(sv); assert(name)
+
+PERL_CALLCONV bool	Perl_sv_does_pvn(pTHX_ SV* sv, const char *const name, const STRLEN len, U32 flags)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_SV_DOES_PVN	\
+	assert(sv); assert(name)
+
+PERL_CALLCONV bool	Perl_sv_does_sv(pTHX_ SV* sv, SV* namesv, U32 flags)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_SV_DOES_SV	\
+	assert(sv); assert(namesv)
+
+PERL_CALLCONV void	Perl_sv_dump(pTHX_ SV* sv);
+#define PERL_ARGS_ASSERT_SV_DUMP	\
+	assert(sv)
+/* PERL_CALLCONV I32	sv_eq(pTHX_ SV* sv1, SV* sv2); */
+PERL_CALLCONV I32	Perl_sv_eq_flags(pTHX_ SV* sv1, SV* sv2, const U32 flags);
+/* PERL_CALLCONV void	Perl_sv_force_normal(pTHX_ SV *sv); */
+#define PERL_ARGS_ASSERT_SV_FORCE_NORMAL	\
+	assert(sv)
+PERL_CALLCONV void	Perl_sv_force_normal_flags(pTHX_ SV *const sv, const U32 flags);
+#define PERL_ARGS_ASSERT_SV_FORCE_NORMAL_FLAGS	\
+	assert(sv)
+PERL_CALLCONV void	Perl_sv_free(pTHX_ SV *const sv);
+PERL_CALLCONV void	Perl_sv_free2(pTHX_ SV *const sv, const U32 refcnt);
+#define PERL_ARGS_ASSERT_SV_FREE2	\
+	assert(sv)
+PERL_CALLCONV void	Perl_sv_free_arenas(pTHX);
+PERL_CALLCONV SV*	Perl_sv_get_backrefs(SV *const sv)
+			__attribute__pure__;
+#define PERL_ARGS_ASSERT_SV_GET_BACKREFS	\
+	assert(sv)
+
+PERL_CALLCONV char*	Perl_sv_gets(pTHX_ SV *const sv, PerlIO *const fp, I32 append);
+#define PERL_ARGS_ASSERT_SV_GETS	\
+	assert(sv); assert(fp)
+PERL_CALLCONV char*	Perl_sv_grow(pTHX_ SV *const sv, STRLEN newlen);
+#define PERL_ARGS_ASSERT_SV_GROW	\
+	assert(sv)
+PERL_CALLCONV void	Perl_sv_inc(pTHX_ SV *const sv);
+PERL_CALLCONV void	Perl_sv_inc_nomg(pTHX_ SV *const sv);
+/* PERL_CALLCONV void	Perl_sv_insert(pTHX_ SV *const bigstr, const STRLEN offset, const STRLEN len, const char *const little, const STRLEN littlelen); */
+#define PERL_ARGS_ASSERT_SV_INSERT	\
+	assert(bigstr); assert(little)
+PERL_CALLCONV void	Perl_sv_insert_flags(pTHX_ SV *const bigstr, const STRLEN offset, const STRLEN len, const char *const little, const STRLEN littlelen, const U32 flags);
+#define PERL_ARGS_ASSERT_SV_INSERT_FLAGS	\
+	assert(bigstr); assert(little)
+PERL_CALLCONV int	Perl_sv_isa(pTHX_ SV* sv, const char *const name);
+#define PERL_ARGS_ASSERT_SV_ISA	\
+	assert(name)
+PERL_CALLCONV int	Perl_sv_isobject(pTHX_ SV* sv);
+PERL_CALLCONV IV	Perl_sv_iv(pTHX_ SV* sv);
+#define PERL_ARGS_ASSERT_SV_IV	\
+	assert(sv)
+PERL_CALLCONV STRLEN	Perl_sv_len(pTHX_ SV *const sv);
+PERL_CALLCONV STRLEN	Perl_sv_len_utf8(pTHX_ SV *const sv);
+PERL_CALLCONV STRLEN	Perl_sv_len_utf8_nomg(pTHX_ SV *const sv);
+#define PERL_ARGS_ASSERT_SV_LEN_UTF8_NOMG	\
+	assert(sv)
+PERL_CALLCONV void	Perl_sv_magic(pTHX_ SV *const sv, SV *const obj, const int how, const char *const name, const I32 namlen);
+#define PERL_ARGS_ASSERT_SV_MAGIC	\
+	assert(sv)
+PERL_CALLCONV MAGIC *	Perl_sv_magicext(pTHX_ SV *const sv, SV *const obj, const int how, const MGVTBL *const vtbl, const char *const name, const I32 namlen);
+#define PERL_ARGS_ASSERT_SV_MAGICEXT	\
+	assert(sv)
+PERL_CALLCONV MAGIC *	Perl_sv_magicext_mglob(pTHX_ SV *sv);
+#define PERL_ARGS_ASSERT_SV_MAGICEXT_MGLOB	\
+	assert(sv)
+/* PERL_CALLCONV SV*	Perl_sv_mortalcopy(pTHX_ SV *const oldsv)
+			__attribute__malloc__
+			__attribute__warn_unused_result__; */
+
+PERL_CALLCONV SV*	Perl_sv_mortalcopy_flags(pTHX_ SV *const oldsv, U32 flags)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV SV*	Perl_sv_newmortal(pTHX)
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV SV*	Perl_sv_newref(pTHX_ SV *const sv);
+/* PERL_CALLCONV void	Perl_sv_nolocking(pTHX_ SV *sv); */
+PERL_CALLCONV void	Perl_sv_nosharing(pTHX_ SV *sv);
+PERL_CALLCONV NV	Perl_sv_nv(pTHX_ SV* sv);
+#define PERL_ARGS_ASSERT_SV_NV	\
+	assert(sv)
+PERL_CALLCONV char*	Perl_sv_peek(pTHX_ SV* sv);
+PERL_CALLCONV void	Perl_sv_pos_b2u(pTHX_ SV *const sv, I32 *const offsetp);
+#define PERL_ARGS_ASSERT_SV_POS_B2U	\
+	assert(offsetp)
+PERL_CALLCONV STRLEN	Perl_sv_pos_b2u_flags(pTHX_ SV *const sv, STRLEN const offset, U32 flags);
+#define PERL_ARGS_ASSERT_SV_POS_B2U_FLAGS	\
+	assert(sv)
+PERL_CALLCONV void	Perl_sv_pos_u2b(pTHX_ SV *const sv, I32 *const offsetp, I32 *const lenp);
+#define PERL_ARGS_ASSERT_SV_POS_U2B	\
+	assert(offsetp)
+PERL_CALLCONV STRLEN	Perl_sv_pos_u2b_flags(pTHX_ SV *const sv, STRLEN uoffset, STRLEN *const lenp, U32 flags);
+#define PERL_ARGS_ASSERT_SV_POS_U2B_FLAGS	\
+	assert(sv)
+/* PERL_CALLCONV char*	Perl_sv_pv(pTHX_ SV *sv)
+			__attribute__warn_unused_result__; */
+#define PERL_ARGS_ASSERT_SV_PV	\
+	assert(sv)
+
+/* PERL_CALLCONV char*	Perl_sv_pvbyte(pTHX_ SV *sv)
+			__attribute__warn_unused_result__; */
+#define PERL_ARGS_ASSERT_SV_PVBYTE	\
+	assert(sv)
+
+PERL_CALLCONV char*	Perl_sv_pvbyten(pTHX_ SV *sv, STRLEN *lp);
+#define PERL_ARGS_ASSERT_SV_PVBYTEN	\
+	assert(sv); assert(lp)
+PERL_CALLCONV char*	Perl_sv_pvbyten_force(pTHX_ SV *const sv, STRLEN *const lp);
+#define PERL_ARGS_ASSERT_SV_PVBYTEN_FORCE	\
+	assert(sv)
+PERL_CALLCONV char*	Perl_sv_pvn(pTHX_ SV *sv, STRLEN *lp);
+#define PERL_ARGS_ASSERT_SV_PVN	\
+	assert(sv); assert(lp)
+/* PERL_CALLCONV char*	Perl_sv_pvn_force(pTHX_ SV* sv, STRLEN* lp); */
+#define PERL_ARGS_ASSERT_SV_PVN_FORCE	\
+	assert(sv)
+PERL_CALLCONV char*	Perl_sv_pvn_force_flags(pTHX_ SV *const sv, STRLEN *const lp, const I32 flags);
+#define PERL_ARGS_ASSERT_SV_PVN_FORCE_FLAGS	\
+	assert(sv)
+PERL_CALLCONV char*	Perl_sv_pvn_nomg(pTHX_ SV* sv, STRLEN* lp);
+#define PERL_ARGS_ASSERT_SV_PVN_NOMG	\
+	assert(sv)
+/* PERL_CALLCONV char*	Perl_sv_pvutf8(pTHX_ SV *sv)
+			__attribute__warn_unused_result__; */
+#define PERL_ARGS_ASSERT_SV_PVUTF8	\
+	assert(sv)
+
+PERL_CALLCONV char*	Perl_sv_pvutf8n(pTHX_ SV *sv, STRLEN *lp);
+#define PERL_ARGS_ASSERT_SV_PVUTF8N	\
+	assert(sv); assert(lp)
+PERL_CALLCONV char*	Perl_sv_pvutf8n_force(pTHX_ SV *const sv, STRLEN *const lp);
+#define PERL_ARGS_ASSERT_SV_PVUTF8N_FORCE	\
+	assert(sv)
+PERL_CALLCONV char*	Perl_sv_recode_to_utf8(pTHX_ SV* sv, SV *encoding);
+#define PERL_ARGS_ASSERT_SV_RECODE_TO_UTF8	\
+	assert(sv); assert(encoding)
+PERL_CALLCONV SV*	Perl_sv_ref(pTHX_ SV *dst, const SV *const sv, const int ob);
+#define PERL_ARGS_ASSERT_SV_REF	\
+	assert(sv)
+PERL_CALLCONV const char*	Perl_sv_reftype(pTHX_ const SV *const sv, const int ob)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_SV_REFTYPE	\
+	assert(sv)
+
+PERL_CALLCONV void	Perl_sv_replace(pTHX_ SV *const sv, SV *const nsv);
+#define PERL_ARGS_ASSERT_SV_REPLACE	\
+	assert(sv); assert(nsv)
+PERL_CALLCONV void	Perl_sv_report_used(pTHX);
+PERL_CALLCONV void	Perl_sv_reset(pTHX_ const char* s, HV *const stash);
+#define PERL_ARGS_ASSERT_SV_RESET	\
+	assert(s)
+PERL_CALLCONV void	Perl_sv_resetpvn(pTHX_ const char* s, STRLEN len, HV *const stash);
+PERL_CALLCONV SV*	Perl_sv_rvweaken(pTHX_ SV *const sv);
+#define PERL_ARGS_ASSERT_SV_RVWEAKEN	\
+	assert(sv)
+PERL_CALLCONV void	Perl_sv_sethek(pTHX_ SV *const sv, const HEK *const hek);
+#define PERL_ARGS_ASSERT_SV_SETHEK	\
+	assert(sv)
+PERL_CALLCONV void	Perl_sv_setiv(pTHX_ SV *const sv, const IV num);
+#define PERL_ARGS_ASSERT_SV_SETIV	\
+	assert(sv)
+PERL_CALLCONV void	Perl_sv_setiv_mg(pTHX_ SV *const sv, const IV i);
+#define PERL_ARGS_ASSERT_SV_SETIV_MG	\
+	assert(sv)
+PERL_CALLCONV void	Perl_sv_setnv(pTHX_ SV *const sv, const NV num);
+#define PERL_ARGS_ASSERT_SV_SETNV	\
+	assert(sv)
+PERL_CALLCONV void	Perl_sv_setnv_mg(pTHX_ SV *const sv, const NV num);
+#define PERL_ARGS_ASSERT_SV_SETNV_MG	\
+	assert(sv)
+PERL_CALLCONV void	Perl_sv_setpv(pTHX_ SV *const sv, const char *const ptr);
+#define PERL_ARGS_ASSERT_SV_SETPV	\
+	assert(sv)
+PERL_CALLCONV void	Perl_sv_setpv_mg(pTHX_ SV *const sv, const char *const ptr);
+#define PERL_ARGS_ASSERT_SV_SETPV_MG	\
+	assert(sv)
+PERL_CALLCONV void	Perl_sv_setpvf(pTHX_ SV *const sv, const char *const pat, ...)
+			__attribute__format__(__printf__,pTHX_2,pTHX_3);
+#define PERL_ARGS_ASSERT_SV_SETPVF	\
+	assert(sv); assert(pat)
+
+PERL_CALLCONV void	Perl_sv_setpvf_mg(pTHX_ SV *const sv, const char *const pat, ...)
+			__attribute__format__(__printf__,pTHX_2,pTHX_3);
+#define PERL_ARGS_ASSERT_SV_SETPVF_MG	\
+	assert(sv); assert(pat)
+
+PERL_CALLCONV void	Perl_sv_setpviv(pTHX_ SV *const sv, const IV num);
+#define PERL_ARGS_ASSERT_SV_SETPVIV	\
+	assert(sv)
+PERL_CALLCONV void	Perl_sv_setpviv_mg(pTHX_ SV *const sv, const IV iv);
+#define PERL_ARGS_ASSERT_SV_SETPVIV_MG	\
+	assert(sv)
+PERL_CALLCONV void	Perl_sv_setpvn(pTHX_ SV *const sv, const char *const ptr, const STRLEN len);
+#define PERL_ARGS_ASSERT_SV_SETPVN	\
+	assert(sv)
+PERL_CALLCONV void	Perl_sv_setpvn_mg(pTHX_ SV *const sv, const char *const ptr, const STRLEN len);
+#define PERL_ARGS_ASSERT_SV_SETPVN_MG	\
+	assert(sv); assert(ptr)
+PERL_CALLCONV SV*	Perl_sv_setref_iv(pTHX_ SV *const rv, const char *const classname, const IV iv);
+#define PERL_ARGS_ASSERT_SV_SETREF_IV	\
+	assert(rv)
+PERL_CALLCONV SV*	Perl_sv_setref_nv(pTHX_ SV *const rv, const char *const classname, const NV nv);
+#define PERL_ARGS_ASSERT_SV_SETREF_NV	\
+	assert(rv)
+PERL_CALLCONV SV*	Perl_sv_setref_pv(pTHX_ SV *const rv, const char *const classname, void *const pv);
+#define PERL_ARGS_ASSERT_SV_SETREF_PV	\
+	assert(rv)
+PERL_CALLCONV SV*	Perl_sv_setref_pvn(pTHX_ SV *const rv, const char *const classname, const char *const pv, const STRLEN n);
+#define PERL_ARGS_ASSERT_SV_SETREF_PVN	\
+	assert(rv); assert(pv)
+PERL_CALLCONV SV*	Perl_sv_setref_uv(pTHX_ SV *const rv, const char *const classname, const UV uv);
+#define PERL_ARGS_ASSERT_SV_SETREF_UV	\
+	assert(rv)
+/* PERL_CALLCONV void	Perl_sv_setsv(pTHX_ SV *dstr, SV *sstr); */
+#define PERL_ARGS_ASSERT_SV_SETSV	\
+	assert(dstr)
+PERL_CALLCONV void	Perl_sv_setsv_flags(pTHX_ SV *dstr, SV *sstr, const I32 flags);
+#define PERL_ARGS_ASSERT_SV_SETSV_FLAGS	\
+	assert(dstr)
+PERL_CALLCONV void	Perl_sv_setsv_mg(pTHX_ SV *const dstr, SV *const sstr);
+#define PERL_ARGS_ASSERT_SV_SETSV_MG	\
+	assert(dstr)
+PERL_CALLCONV void	Perl_sv_setuv(pTHX_ SV *const sv, const UV num);
+#define PERL_ARGS_ASSERT_SV_SETUV	\
+	assert(sv)
+PERL_CALLCONV void	Perl_sv_setuv_mg(pTHX_ SV *const sv, const UV u);
+#define PERL_ARGS_ASSERT_SV_SETUV_MG	\
+	assert(sv)
+/* PERL_CALLCONV void	Perl_sv_taint(pTHX_ SV* sv); */
+#define PERL_ARGS_ASSERT_SV_TAINT	\
+	assert(sv)
+PERL_CALLCONV bool	Perl_sv_tainted(pTHX_ SV *const sv)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_SV_TAINTED	\
+	assert(sv)
+
+PERL_CALLCONV I32	Perl_sv_true(pTHX_ SV *const sv);
+PERL_CALLCONV char*	Perl_sv_uni_display(pTHX_ SV *dsv, SV *ssv, STRLEN pvlim, UV flags)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_SV_UNI_DISPLAY	\
+	assert(dsv); assert(ssv)
+
+PERL_CALLCONV int	Perl_sv_unmagic(pTHX_ SV *const sv, const int type);
+#define PERL_ARGS_ASSERT_SV_UNMAGIC	\
+	assert(sv)
+PERL_CALLCONV int	Perl_sv_unmagicext(pTHX_ SV *const sv, const int type, MGVTBL *vtbl);
+#define PERL_ARGS_ASSERT_SV_UNMAGICEXT	\
+	assert(sv)
+/* PERL_CALLCONV void	Perl_sv_unref(pTHX_ SV* sv); */
+#define PERL_ARGS_ASSERT_SV_UNREF	\
+	assert(sv)
+PERL_CALLCONV void	Perl_sv_unref_flags(pTHX_ SV *const ref, const U32 flags);
+#define PERL_ARGS_ASSERT_SV_UNREF_FLAGS	\
+	assert(ref)
+PERL_CALLCONV void	Perl_sv_untaint(pTHX_ SV *const sv);
+#define PERL_ARGS_ASSERT_SV_UNTAINT	\
+	assert(sv)
+PERL_CALLCONV void	Perl_sv_upgrade(pTHX_ SV *const sv, svtype new_type);
+#define PERL_ARGS_ASSERT_SV_UPGRADE	\
+	assert(sv)
+/* PERL_CALLCONV void	Perl_sv_usepvn(pTHX_ SV* sv, char* ptr, STRLEN len); */
+#define PERL_ARGS_ASSERT_SV_USEPVN	\
+	assert(sv)
+PERL_CALLCONV void	Perl_sv_usepvn_flags(pTHX_ SV *const sv, char* ptr, const STRLEN len, const U32 flags);
+#define PERL_ARGS_ASSERT_SV_USEPVN_FLAGS	\
+	assert(sv)
+/* PERL_CALLCONV void	Perl_sv_usepvn_mg(pTHX_ SV *sv, char *ptr, STRLEN len); */
+#define PERL_ARGS_ASSERT_SV_USEPVN_MG	\
+	assert(sv)
+PERL_CALLCONV bool	Perl_sv_utf8_decode(pTHX_ SV *const sv);
+#define PERL_ARGS_ASSERT_SV_UTF8_DECODE	\
+	assert(sv)
+PERL_CALLCONV bool	Perl_sv_utf8_downgrade(pTHX_ SV *const sv, const bool fail_ok);
+#define PERL_ARGS_ASSERT_SV_UTF8_DOWNGRADE	\
+	assert(sv)
+PERL_CALLCONV void	Perl_sv_utf8_encode(pTHX_ SV *const sv);
+#define PERL_ARGS_ASSERT_SV_UTF8_ENCODE	\
+	assert(sv)
+/* PERL_CALLCONV STRLEN	Perl_sv_utf8_upgrade(pTHX_ SV *sv); */
+#define PERL_ARGS_ASSERT_SV_UTF8_UPGRADE	\
+	assert(sv)
+/* PERL_CALLCONV STRLEN	Perl_sv_utf8_upgrade_flags(pTHX_ SV *const sv, const I32 flags); */
+PERL_CALLCONV STRLEN	Perl_sv_utf8_upgrade_flags_grow(pTHX_ SV *const sv, const I32 flags, STRLEN extra);
+#define PERL_ARGS_ASSERT_SV_UTF8_UPGRADE_FLAGS_GROW	\
+	assert(sv)
+/* PERL_CALLCONV STRLEN	sv_utf8_upgrade_nomg(pTHX_ SV *sv); */
+PERL_CALLCONV UV	Perl_sv_uv(pTHX_ SV* sv);
+#define PERL_ARGS_ASSERT_SV_UV	\
+	assert(sv)
+PERL_CALLCONV void	Perl_sv_vcatpvf(pTHX_ SV *const sv, const char *const pat, va_list *const args);
+#define PERL_ARGS_ASSERT_SV_VCATPVF	\
+	assert(sv); assert(pat)
+PERL_CALLCONV void	Perl_sv_vcatpvf_mg(pTHX_ SV *const sv, const char *const pat, va_list *const args);
+#define PERL_ARGS_ASSERT_SV_VCATPVF_MG	\
+	assert(sv); assert(pat)
+PERL_CALLCONV void	Perl_sv_vcatpvfn(pTHX_ SV *const sv, const char *const pat, const STRLEN patlen, va_list *const args, SV **const svargs, const I32 svmax, bool *const maybe_tainted);
+#define PERL_ARGS_ASSERT_SV_VCATPVFN	\
+	assert(sv); assert(pat)
+PERL_CALLCONV void	Perl_sv_vcatpvfn_flags(pTHX_ SV *const sv, const char *const pat, const STRLEN patlen, va_list *const args, SV **const svargs, const I32 svmax, bool *const maybe_tainted, const U32 flags);
+#define PERL_ARGS_ASSERT_SV_VCATPVFN_FLAGS	\
+	assert(sv); assert(pat)
+PERL_CALLCONV void	Perl_sv_vsetpvf(pTHX_ SV *const sv, const char *const pat, va_list *const args);
+#define PERL_ARGS_ASSERT_SV_VSETPVF	\
+	assert(sv); assert(pat)
+PERL_CALLCONV void	Perl_sv_vsetpvf_mg(pTHX_ SV *const sv, const char *const pat, va_list *const args);
+#define PERL_ARGS_ASSERT_SV_VSETPVF_MG	\
+	assert(sv); assert(pat)
+PERL_CALLCONV void	Perl_sv_vsetpvfn(pTHX_ SV *const sv, const char *const pat, const STRLEN patlen, va_list *const args, SV **const svargs, const I32 svmax, bool *const maybe_tainted);
+#define PERL_ARGS_ASSERT_SV_VSETPVFN	\
+	assert(sv); assert(pat)
+PERL_CALLCONV UV	Perl_swash_fetch(pTHX_ SV *swash, const U8 *ptr, bool do_utf8);
+#define PERL_ARGS_ASSERT_SWASH_FETCH	\
+	assert(swash); assert(ptr)
+PERL_CALLCONV SV*	Perl_swash_init(pTHX_ const char* pkg, const char* name, SV* listsv, I32 minbits, I32 none)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_SWASH_INIT	\
+	assert(pkg); assert(name); assert(listsv)
+
+PERL_CALLCONV void	Perl_sync_locale(pTHX);
+PERL_CALLCONV void	Perl_sys_init(int* argc, char*** argv);
+#define PERL_ARGS_ASSERT_SYS_INIT	\
+	assert(argc); assert(argv)
+PERL_CALLCONV void	Perl_sys_init3(int* argc, char*** argv, char*** env);
+#define PERL_ARGS_ASSERT_SYS_INIT3	\
+	assert(argc); assert(argv); assert(env)
+PERL_CALLCONV void	Perl_sys_term(void);
+PERL_CALLCONV void	Perl_taint_env(pTHX);
+PERL_CALLCONV void	Perl_taint_proper(pTHX_ const char* f, const char *const s);
+#define PERL_ARGS_ASSERT_TAINT_PROPER	\
+	assert(s)
+PERL_CALLCONV OP *	Perl_tied_method(pTHX_ SV *methname, SV **sp, SV *const sv, const MAGIC *const mg, const U32 flags, U32 argc, ...);
+#define PERL_ARGS_ASSERT_TIED_METHOD	\
+	assert(methname); assert(sp); assert(sv); assert(mg)
+PERL_CALLCONV SSize_t	Perl_tmps_grow_p(pTHX_ SSize_t ix);
+/* PERL_CALLCONV UV	Perl_to_uni_fold(pTHX_ UV c, U8 *p, STRLEN *lenp); */
+PERL_CALLCONV UV	Perl_to_uni_lower(pTHX_ UV c, U8 *p, STRLEN *lenp);
+#define PERL_ARGS_ASSERT_TO_UNI_LOWER	\
+	assert(p); assert(lenp)
+PERL_CALLCONV U32	Perl_to_uni_lower_lc(pTHX_ U32 c)
+			__attribute__deprecated__
+			__attribute__warn_unused_result__
+			__attribute__pure__;
+
+PERL_CALLCONV UV	Perl_to_uni_title(pTHX_ UV c, U8 *p, STRLEN *lenp);
+#define PERL_ARGS_ASSERT_TO_UNI_TITLE	\
+	assert(p); assert(lenp)
+PERL_CALLCONV U32	Perl_to_uni_title_lc(pTHX_ U32 c)
+			__attribute__deprecated__
+			__attribute__warn_unused_result__
+			__attribute__pure__;
+
+PERL_CALLCONV UV	Perl_to_uni_upper(pTHX_ UV c, U8 *p, STRLEN *lenp);
+#define PERL_ARGS_ASSERT_TO_UNI_UPPER	\
+	assert(p); assert(lenp)
+PERL_CALLCONV U32	Perl_to_uni_upper_lc(pTHX_ U32 c)
+			__attribute__deprecated__
+			__attribute__warn_unused_result__
+			__attribute__pure__;
+
+PERL_CALLCONV UV	Perl_to_utf8_case(pTHX_ const U8 *p, U8* ustrp, STRLEN *lenp, SV **swashp, const char *normal, const char *special)
+			__attribute__deprecated__;
+#define PERL_ARGS_ASSERT_TO_UTF8_CASE	\
+	assert(p); assert(ustrp); assert(swashp); assert(normal)
+
+/* PERL_CALLCONV UV	Perl_to_utf8_fold(pTHX_ const U8 *p, U8* ustrp, STRLEN *lenp); */
+#define PERL_ARGS_ASSERT_TO_UTF8_FOLD	\
+	assert(p); assert(ustrp)
+/* PERL_CALLCONV UV	Perl_to_utf8_lower(pTHX_ const U8 *p, U8* ustrp, STRLEN *lenp); */
+#define PERL_ARGS_ASSERT_TO_UTF8_LOWER	\
+	assert(p); assert(ustrp)
+/* PERL_CALLCONV UV	Perl_to_utf8_title(pTHX_ const U8 *p, U8* ustrp, STRLEN *lenp); */
+#define PERL_ARGS_ASSERT_TO_UTF8_TITLE	\
+	assert(p); assert(ustrp)
+/* PERL_CALLCONV UV	Perl_to_utf8_upper(pTHX_ const U8 *p, U8* ustrp, STRLEN *lenp); */
+#define PERL_ARGS_ASSERT_TO_UTF8_UPPER	\
+	assert(p); assert(ustrp)
+PERL_CALLCONV bool	Perl_try_amagic_bin(pTHX_ int method, int flags);
+PERL_CALLCONV bool	Perl_try_amagic_un(pTHX_ int method, int flags);
+PERL_CALLCONV I32	Perl_unpack_str(pTHX_ const char *pat, const char *patend, const char *s, const char *strbeg, const char *strend, char **new_s, I32 ocnt, U32 flags);
+#define PERL_ARGS_ASSERT_UNPACK_STR	\
+	assert(pat); assert(patend); assert(s); assert(strend)
+PERL_CALLCONV I32	Perl_unpackstring(pTHX_ const char *pat, const char *patend, const char *s, const char *strend, U32 flags);
+#define PERL_ARGS_ASSERT_UNPACKSTRING	\
+	assert(pat); assert(patend); assert(s); assert(strend)
+PERL_CALLCONV void	Perl_unshare_hek(pTHX_ HEK* hek);
+PERL_CALLCONV void	Perl_unsharepvn(pTHX_ const char* sv, I32 len, U32 hash);
+PERL_CALLCONV SV*	Perl_upg_version(pTHX_ SV *ver, bool qv);
+#define PERL_ARGS_ASSERT_UPG_VERSION	\
+	assert(ver)
+PERL_CALLCONV U8*	Perl_utf16_to_utf8(pTHX_ U8* p, U8 *d, I32 bytelen, I32 *newlen);
+#define PERL_ARGS_ASSERT_UTF16_TO_UTF8	\
+	assert(p); assert(d); assert(newlen)
+PERL_CALLCONV U8*	Perl_utf16_to_utf8_reversed(pTHX_ U8* p, U8 *d, I32 bytelen, I32 *newlen);
+#define PERL_ARGS_ASSERT_UTF16_TO_UTF8_REVERSED	\
+	assert(p); assert(d); assert(newlen)
+PERL_CALLCONV IV	Perl_utf8_distance(pTHX_ const U8 *a, const U8 *b)
+			__attribute__warn_unused_result__
+			__attribute__pure__;
+#define PERL_ARGS_ASSERT_UTF8_DISTANCE	\
+	assert(a); assert(b)
+
+PERL_CALLCONV U8*	Perl_utf8_hop(const U8 *s, SSize_t off)
+			__attribute__warn_unused_result__
+			__attribute__pure__;
+#define PERL_ARGS_ASSERT_UTF8_HOP	\
+	assert(s)
+
+PERL_CALLCONV STRLEN	Perl_utf8_length(pTHX_ const U8* s, const U8 *e)
+			__attribute__warn_unused_result__
+			__attribute__pure__;
+#define PERL_ARGS_ASSERT_UTF8_LENGTH	\
+	assert(s); assert(e)
+
+PERL_CALLCONV U8*	Perl_utf8_to_bytes(pTHX_ U8 *s, STRLEN *len);
+#define PERL_ARGS_ASSERT_UTF8_TO_BYTES	\
+	assert(s); assert(len)
+PERL_CALLCONV UV	Perl_utf8_to_uvchr(pTHX_ const U8 *s, STRLEN *retlen)
+			__attribute__deprecated__;
+#define PERL_ARGS_ASSERT_UTF8_TO_UVCHR	\
+	assert(s)
+
+/* PERL_CALLCONV UV	utf8_to_uvchr_buf(pTHX_ const U8 *s, const U8 *send, STRLEN *retlen); */
+PERL_CALLCONV UV	Perl_utf8_to_uvuni(pTHX_ const U8 *s, STRLEN *retlen)
+			__attribute__deprecated__;
+#define PERL_ARGS_ASSERT_UTF8_TO_UVUNI	\
+	assert(s)
+
+PERL_CALLCONV UV	Perl_utf8_to_uvuni_buf(pTHX_ const U8 *s, const U8 *send, STRLEN *retlen)
+			__attribute__deprecated__;
+#define PERL_ARGS_ASSERT_UTF8_TO_UVUNI_BUF	\
+	assert(s); assert(send)
+
+PERL_CALLCONV UV	Perl_utf8n_to_uvchr(pTHX_ const U8 *s, STRLEN curlen, STRLEN *retlen, U32 flags);
+#define PERL_ARGS_ASSERT_UTF8N_TO_UVCHR	\
+	assert(s)
+PERL_CALLCONV UV	Perl_utf8n_to_uvuni(pTHX_ const U8 *s, STRLEN curlen, STRLEN *retlen, U32 flags);
+#define PERL_ARGS_ASSERT_UTF8N_TO_UVUNI	\
+	assert(s)
+PERL_CALLCONV void	Perl_utilize(pTHX_ int aver, I32 floor, OP* version, OP* idop, OP* arg);
+#define PERL_ARGS_ASSERT_UTILIZE	\
+	assert(idop)
+/* PERL_CALLCONV U8*	uvchr_to_utf8(pTHX_ U8 *d, UV uv); */
+/* PERL_CALLCONV U8*	uvchr_to_utf8_flags(pTHX_ U8 *d, UV uv, UV flags); */
+PERL_CALLCONV U8*	Perl_uvoffuni_to_utf8_flags(pTHX_ U8 *d, UV uv, UV flags);
+#define PERL_ARGS_ASSERT_UVOFFUNI_TO_UTF8_FLAGS	\
+	assert(d)
+PERL_CALLCONV U8*	Perl_uvuni_to_utf8(pTHX_ U8 *d, UV uv);
+#define PERL_ARGS_ASSERT_UVUNI_TO_UTF8	\
+	assert(d)
+PERL_CALLCONV U8*	Perl_uvuni_to_utf8_flags(pTHX_ U8 *d, UV uv, UV flags);
+#define PERL_ARGS_ASSERT_UVUNI_TO_UTF8_FLAGS	\
+	assert(d)
+PERL_CALLCONV UV	Perl_valid_utf8_to_uvchr(pTHX_ const U8 *s, STRLEN *retlen);
+#define PERL_ARGS_ASSERT_VALID_UTF8_TO_UVCHR	\
+	assert(s)
+PERL_CALLCONV UV	Perl_valid_utf8_to_uvuni(pTHX_ const U8 *s, STRLEN *retlen)
+			__attribute__deprecated__;
+#define PERL_ARGS_ASSERT_VALID_UTF8_TO_UVUNI	\
+	assert(s)
+
+PERL_CALLCONV bool	Perl_validate_proto(pTHX_ SV *name, SV *proto, bool warn);
+#define PERL_ARGS_ASSERT_VALIDATE_PROTO	\
+	assert(name)
+PERL_CALLCONV int	Perl_vcmp(pTHX_ SV *lhv, SV *rhv);
+#define PERL_ARGS_ASSERT_VCMP	\
+	assert(lhv); assert(rhv)
+PERL_CALLCONV_NO_RET void	Perl_vcroak(pTHX_ const char* pat, va_list* args)
+			__attribute__noreturn__;
+
+PERL_CALLCONV void	Perl_vdeb(pTHX_ const char* pat, va_list* args);
+#define PERL_ARGS_ASSERT_VDEB	\
+	assert(pat)
+PERL_CALLCONV char*	Perl_vform(pTHX_ const char* pat, va_list* args);
+#define PERL_ARGS_ASSERT_VFORM	\
+	assert(pat)
+PERL_CALLCONV void	Perl_vivify_defelem(pTHX_ SV* sv);
+#define PERL_ARGS_ASSERT_VIVIFY_DEFELEM	\
+	assert(sv)
+PERL_CALLCONV SV*	Perl_vivify_ref(pTHX_ SV* sv, U32 to_what)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_VIVIFY_REF	\
+	assert(sv)
+
+PERL_CALLCONV void	Perl_vload_module(pTHX_ U32 flags, SV* name, SV* ver, va_list* args);
+#define PERL_ARGS_ASSERT_VLOAD_MODULE	\
+	assert(name)
+PERL_CALLCONV SV*	Perl_vmess(pTHX_ const char* pat, va_list* args);
+#define PERL_ARGS_ASSERT_VMESS	\
+	assert(pat)
+PERL_CALLCONV SV*	Perl_vnewSVpvf(pTHX_ const char *const pat, va_list *const args)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_VNEWSVPVF	\
+	assert(pat)
+
+PERL_CALLCONV SV*	Perl_vnormal(pTHX_ SV *vs);
+#define PERL_ARGS_ASSERT_VNORMAL	\
+	assert(vs)
+PERL_CALLCONV SV*	Perl_vnumify(pTHX_ SV *vs);
+#define PERL_ARGS_ASSERT_VNUMIFY	\
+	assert(vs)
+PERL_CALLCONV SV*	Perl_vstringify(pTHX_ SV *vs);
+#define PERL_ARGS_ASSERT_VSTRINGIFY	\
+	assert(vs)
+PERL_CALLCONV SV*	Perl_vverify(pTHX_ SV *vs);
+#define PERL_ARGS_ASSERT_VVERIFY	\
+	assert(vs)
+PERL_CALLCONV void	Perl_vwarn(pTHX_ const char* pat, va_list* args);
+#define PERL_ARGS_ASSERT_VWARN	\
+	assert(pat)
+PERL_CALLCONV void	Perl_vwarner(pTHX_ U32 err, const char* pat, va_list* args);
+#define PERL_ARGS_ASSERT_VWARNER	\
+	assert(pat)
+PERL_CALLCONV I32	Perl_wait4pid(pTHX_ Pid_t pid, int* statusp, int flags);
+#define PERL_ARGS_ASSERT_WAIT4PID	\
+	assert(statusp)
+PERL_CALLCONV void	Perl_warn(pTHX_ const char* pat, ...)
+			__attribute__format__(__printf__,pTHX_1,pTHX_2);
+#define PERL_ARGS_ASSERT_WARN	\
+	assert(pat)
+
+PERL_CALLCONV void	Perl_warn_sv(pTHX_ SV *baseex);
+#define PERL_ARGS_ASSERT_WARN_SV	\
+	assert(baseex)
+PERL_CALLCONV void	Perl_warner(pTHX_ U32 err, const char* pat, ...)
+			__attribute__format__(__printf__,pTHX_2,pTHX_3);
+#define PERL_ARGS_ASSERT_WARNER	\
+	assert(pat)
+
+PERL_CALLCONV I32	Perl_was_lvalue_sub(pTHX)
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV void	Perl_watch(pTHX_ char** addr);
+#define PERL_ARGS_ASSERT_WATCH	\
+	assert(addr)
+/* PERL_CALLCONV I32	whichsig(pTHX_ const char* sig); */
+PERL_CALLCONV I32	Perl_whichsig_pv(pTHX_ const char* sig);
+#define PERL_ARGS_ASSERT_WHICHSIG_PV	\
+	assert(sig)
+PERL_CALLCONV I32	Perl_whichsig_pvn(pTHX_ const char* sig, STRLEN len);
+#define PERL_ARGS_ASSERT_WHICHSIG_PVN	\
+	assert(sig)
+PERL_CALLCONV I32	Perl_whichsig_sv(pTHX_ SV* sigsv);
+#define PERL_ARGS_ASSERT_WHICHSIG_SV	\
+	assert(sigsv)
+PERL_CALLCONV void	Perl_wrap_op_checker(pTHX_ Optype opcode, Perl_check_t new_checker, Perl_check_t *old_checker_p);
+#define PERL_ARGS_ASSERT_WRAP_OP_CHECKER	\
+	assert(new_checker); assert(old_checker_p)
+PERL_CALLCONV void	Perl_write_to_stderr(pTHX_ SV* msv);
+#define PERL_ARGS_ASSERT_WRITE_TO_STDERR	\
+	assert(msv)
+PERL_CALLCONV void	Perl_xs_boot_epilog(pTHX_ const I32 ax);
+PERL_CALLCONV I32	Perl_xs_handshake(const U32 key, void * v_my_perl, const char * file, ...);
+#define PERL_ARGS_ASSERT_XS_HANDSHAKE	\
+	assert(v_my_perl); assert(file)
+PERL_CALLCONV int	Perl_yyerror(pTHX_ const char *const s);
+#define PERL_ARGS_ASSERT_YYERROR	\
+	assert(s)
+PERL_CALLCONV int	Perl_yyerror_pv(pTHX_ const char *const s, U32 flags);
+#define PERL_ARGS_ASSERT_YYERROR_PV	\
+	assert(s)
+PERL_CALLCONV int	Perl_yyerror_pvn(pTHX_ const char *const s, STRLEN len, U32 flags);
+#define PERL_ARGS_ASSERT_YYERROR_PVN	\
+	assert(s)
+PERL_CALLCONV int	Perl_yylex(pTHX);
+PERL_CALLCONV int	Perl_yyparse(pTHX_ int gramtype);
+PERL_CALLCONV void	Perl_yyunlex(pTHX);
+#if !(defined(DEBUGGING))
+#  if !defined(NV_PRESERVES_UV)
+#    if defined(PERL_IN_SV_C)
+STATIC int	S_sv_2iuv_non_preserve(pTHX_ SV *const sv);
+#define PERL_ARGS_ASSERT_SV_2IUV_NON_PRESERVE	\
+	assert(sv)
+#    endif
+#  endif
+#endif
+#if !(defined(HAS_SIGACTION) && defined(SA_SIGINFO))
+PERL_CALLCONV Signal_t	Perl_csighandler(int sig);
+PERL_CALLCONV Signal_t	Perl_sighandler(int sig);
+#endif
+#if !(defined(NO_MATHOMS))
+PERL_CALLCONV void	Perl_sv_nounlocking(pTHX_ SV *sv);
+#endif
+#if !(defined(PERL_DEFAULT_DO_EXEC3_IMPLEMENTATION))
+PERL_CALLCONV bool	Perl_do_exec(pTHX_ const char* cmd);
+#define PERL_ARGS_ASSERT_DO_EXEC	\
+	assert(cmd)
+#endif
+#if !(defined(PERL_GLOBAL_STRUCT_PRIVATE))
+#  if defined(PERL_IMPLICIT_CONTEXT)
+PERL_CALLCONV void*	Perl_my_cxt_init(pTHX_ int *index, size_t size);
+#define PERL_ARGS_ASSERT_MY_CXT_INIT	\
+	assert(index)
+#  endif
+#endif
+#if !(defined(WIN32))
+/* PERL_CALLCONV char*	my_setlocale(pTHX_ int category, const char* locale)
+			__attribute__pure__; */
+
+#endif
+#if !(defined(_MSC_VER))
+PERL_CALLCONV_NO_RET int	Perl_magic_regdatum_set(pTHX_ SV* sv, MAGIC* mg)
+			__attribute__noreturn__;
+#define PERL_ARGS_ASSERT_MAGIC_REGDATUM_SET	\
+	assert(sv); assert(mg)
+
+#endif
+#if !defined(HAS_BZERO) && !defined(HAS_MEMSET)
+PERL_CALLCONV void*	Perl_my_bzero(void* vloc, size_t len);
+#define PERL_ARGS_ASSERT_MY_BZERO	\
+	assert(vloc)
+#endif
+#if !defined(HAS_GETENV_LEN)
+PERL_CALLCONV char*	Perl_getenv_len(pTHX_ const char *env_elem, unsigned long *len);
+#define PERL_ARGS_ASSERT_GETENV_LEN	\
+	assert(env_elem); assert(len)
+#endif
+#if !defined(HAS_MEMCMP) || !defined(HAS_SANE_MEMCMP)
+PERL_CALLCONV int	Perl_my_memcmp(const void* vs1, const void* vs2, size_t len)
+			__attribute__pure__;
+#define PERL_ARGS_ASSERT_MY_MEMCMP	\
+	assert(vs1); assert(vs2)
+
+#endif
+#if !defined(HAS_MEMCPY) || (!defined(HAS_MEMMOVE) && !defined(HAS_SAFE_MEMCPY))
+PERL_CALLCONV void*	Perl_my_bcopy(const void* vfrom, void* vto, size_t len);
+#define PERL_ARGS_ASSERT_MY_BCOPY	\
+	assert(vfrom); assert(vto)
+#endif
+#if !defined(HAS_MEMSET)
+PERL_CALLCONV void*	Perl_my_memset(void* vloc, int ch, size_t len);
+#define PERL_ARGS_ASSERT_MY_MEMSET	\
+	assert(vloc)
+#endif
+#if !defined(HAS_MKDIR) || !defined(HAS_RMDIR)
+#  if defined(PERL_IN_PP_SYS_C)
+STATIC int	S_dooneliner(pTHX_ const char *cmd, const char *filename)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_DOONELINER	\
+	assert(cmd); assert(filename)
+
+#  endif
+#endif
+#if !defined(HAS_RENAME)
+PERL_CALLCONV I32	Perl_same_dirent(pTHX_ const char* a, const char* b);
+#define PERL_ARGS_ASSERT_SAME_DIRENT	\
+	assert(a); assert(b)
+#endif
+#if !defined(HAS_SIGNBIT)
+PERL_CALLCONV int	Perl_signbit(NV f)
+			__attribute__pure__;
+
+#endif
+#if !defined(HAS_STRLCAT)
+PERL_CALLCONV Size_t	Perl_my_strlcat(char *dst, const char *src, Size_t size);
+#endif
+#if !defined(HAS_STRLCPY)
+PERL_CALLCONV Size_t	Perl_my_strlcpy(char *dst, const char *src, Size_t size);
+#endif
+#if !defined(HAS_TRUNCATE) && !defined(HAS_CHSIZE) && defined(F_FREESP)
+PERL_CALLCONV I32	Perl_my_chsize(pTHX_ int fd, Off_t length)
+			__attribute__warn_unused_result__;
+
+#endif
+#if !defined(NV_PRESERVES_UV)
+#  if defined(DEBUGGING)
+#    if defined(PERL_IN_SV_C)
+STATIC int	S_sv_2iuv_non_preserve(pTHX_ SV *const sv, I32 numtype);
+#define PERL_ARGS_ASSERT_SV_2IUV_NON_PRESERVE	\
+	assert(sv)
+#    endif
+#  endif
+#endif
+#if !defined(PERL_DISABLE_PMC)
+#  if defined(PERL_IN_PP_CTL_C)
+STATIC PerlIO *	S_doopen_pm(pTHX_ SV *name)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_DOOPEN_PM	\
+	assert(name)
+
+#  endif
+#endif
+#if !defined(PERL_EXT_RE_BUILD)
+#  if defined(PERL_IN_REGCOMP_C)
+PERL_STATIC_INLINE IV*	S_get_invlist_previous_index_addr(SV* invlist)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_GET_INVLIST_PREVIOUS_INDEX_ADDR	\
+	assert(invlist)
+
+PERL_STATIC_INLINE void	S_invlist_clear(pTHX_ SV* invlist);
+#define PERL_ARGS_ASSERT_INVLIST_CLEAR	\
+	assert(invlist)
+PERL_STATIC_INLINE IV	S_invlist_previous_index(SV* const invlist)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_INVLIST_PREVIOUS_INDEX	\
+	assert(invlist)
+
+STATIC void	S_invlist_replace_list_destroys_src(pTHX_ SV *dest, SV *src);
+#define PERL_ARGS_ASSERT_INVLIST_REPLACE_LIST_DESTROYS_SRC	\
+	assert(dest); assert(src)
+PERL_STATIC_INLINE void	S_invlist_set_previous_index(SV* const invlist, const IV index);
+#define PERL_ARGS_ASSERT_INVLIST_SET_PREVIOUS_INDEX	\
+	assert(invlist)
+PERL_STATIC_INLINE void	S_invlist_trim(SV* invlist);
+#define PERL_ARGS_ASSERT_INVLIST_TRIM	\
+	assert(invlist)
+#  endif
+#endif
+#if !defined(PERL_IMPLICIT_SYS)
+PERL_CALLCONV I32	Perl_my_pclose(pTHX_ PerlIO* ptr);
+PERL_CALLCONV PerlIO*	Perl_my_popen(pTHX_ const char* cmd, const char* mode);
+#define PERL_ARGS_ASSERT_MY_POPEN	\
+	assert(cmd); assert(mode)
+#endif
+#if !defined(PERL_IS_MINIPERL)
+#  if defined(PERL_IN_PERL_C)
+STATIC SV *	S_incpush_if_exists(pTHX_ AV *const av, SV *dir, SV *const stem);
+#define PERL_ARGS_ASSERT_INCPUSH_IF_EXISTS	\
+	assert(av); assert(dir); assert(stem)
+#  endif
+#endif
+#if !defined(PERL_NO_INLINE_FUNCTIONS)
+PERL_STATIC_INLINE STRLEN	S__is_utf8_char_slow(const U8 *s, const U8 *e)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT__IS_UTF8_CHAR_SLOW	\
+	assert(s); assert(e)
+
+PERL_STATIC_INLINE void	S_append_utf8_from_native_byte(const U8 byte, U8** dest);
+#define PERL_ARGS_ASSERT_APPEND_UTF8_FROM_NATIVE_BYTE	\
+	assert(dest)
+PERL_STATIC_INLINE SSize_t	S_av_top_index(pTHX_ AV *av)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_AV_TOP_INDEX	\
+	assert(av)
+
+PERL_STATIC_INLINE void	S_cx_popblock(pTHX_ PERL_CONTEXT *cx);
+#define PERL_ARGS_ASSERT_CX_POPBLOCK	\
+	assert(cx)
+PERL_STATIC_INLINE void	S_cx_popeval(pTHX_ PERL_CONTEXT *cx);
+#define PERL_ARGS_ASSERT_CX_POPEVAL	\
+	assert(cx)
+PERL_STATIC_INLINE void	S_cx_popformat(pTHX_ PERL_CONTEXT *cx);
+#define PERL_ARGS_ASSERT_CX_POPFORMAT	\
+	assert(cx)
+PERL_STATIC_INLINE void	S_cx_popgiven(pTHX_ PERL_CONTEXT *cx);
+#define PERL_ARGS_ASSERT_CX_POPGIVEN	\
+	assert(cx)
+PERL_STATIC_INLINE void	S_cx_poploop(pTHX_ PERL_CONTEXT *cx);
+#define PERL_ARGS_ASSERT_CX_POPLOOP	\
+	assert(cx)
+PERL_STATIC_INLINE void	S_cx_popsub(pTHX_ PERL_CONTEXT *cx);
+#define PERL_ARGS_ASSERT_CX_POPSUB	\
+	assert(cx)
+PERL_STATIC_INLINE void	S_cx_popsub_args(pTHX_ PERL_CONTEXT *cx);
+#define PERL_ARGS_ASSERT_CX_POPSUB_ARGS	\
+	assert(cx)
+PERL_STATIC_INLINE void	S_cx_popsub_common(pTHX_ PERL_CONTEXT *cx);
+#define PERL_ARGS_ASSERT_CX_POPSUB_COMMON	\
+	assert(cx)
+PERL_STATIC_INLINE void	S_cx_popwhen(pTHX_ PERL_CONTEXT *cx);
+#define PERL_ARGS_ASSERT_CX_POPWHEN	\
+	assert(cx)
+PERL_STATIC_INLINE PERL_CONTEXT *	S_cx_pushblock(pTHX_ U8 type, U8 gimme, SV** sp, I32 saveix);
+#define PERL_ARGS_ASSERT_CX_PUSHBLOCK	\
+	assert(sp)
+PERL_STATIC_INLINE void	S_cx_pusheval(pTHX_ PERL_CONTEXT *cx, OP *retop, SV *namesv);
+#define PERL_ARGS_ASSERT_CX_PUSHEVAL	\
+	assert(cx)
+PERL_STATIC_INLINE void	S_cx_pushformat(pTHX_ PERL_CONTEXT *cx, CV *cv, OP *retop, GV *gv);
+#define PERL_ARGS_ASSERT_CX_PUSHFORMAT	\
+	assert(cx); assert(cv)
+PERL_STATIC_INLINE void	S_cx_pushgiven(pTHX_ PERL_CONTEXT *cx, SV *orig_defsv);
+#define PERL_ARGS_ASSERT_CX_PUSHGIVEN	\
+	assert(cx)
+PERL_STATIC_INLINE void	S_cx_pushloop_for(pTHX_ PERL_CONTEXT *cx, void *itervarp, SV *itersave);
+#define PERL_ARGS_ASSERT_CX_PUSHLOOP_FOR	\
+	assert(cx); assert(itervarp)
+PERL_STATIC_INLINE void	S_cx_pushloop_plain(pTHX_ PERL_CONTEXT *cx);
+#define PERL_ARGS_ASSERT_CX_PUSHLOOP_PLAIN	\
+	assert(cx)
+PERL_STATIC_INLINE void	S_cx_pushsub(pTHX_ PERL_CONTEXT *cx, CV *cv, OP *retop, bool hasargs);
+#define PERL_ARGS_ASSERT_CX_PUSHSUB	\
+	assert(cx); assert(cv)
+PERL_STATIC_INLINE void	S_cx_pushwhen(pTHX_ PERL_CONTEXT *cx);
+#define PERL_ARGS_ASSERT_CX_PUSHWHEN	\
+	assert(cx)
+PERL_STATIC_INLINE void	S_cx_topblock(pTHX_ PERL_CONTEXT *cx);
+#define PERL_ARGS_ASSERT_CX_TOPBLOCK	\
+	assert(cx)
+PERL_STATIC_INLINE bool	S_is_safe_syscall(pTHX_ const char *pv, STRLEN len, const char *what, const char *op_name)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_IS_SAFE_SYSCALL	\
+	assert(pv); assert(what); assert(op_name)
+
+PERL_STATIC_INLINE bool	S_sv_only_taint_gmagic(SV *sv);
+#define PERL_ARGS_ASSERT_SV_ONLY_TAINT_GMAGIC	\
+	assert(sv)
+#endif
+#if !defined(PERL_NO_UTF16_FILTER)
+#  if defined(PERL_IN_TOKE_C)
+STATIC U8*	S_add_utf16_textfilter(pTHX_ U8 *const s, bool reversed);
+#define PERL_ARGS_ASSERT_ADD_UTF16_TEXTFILTER	\
+	assert(s)
+STATIC I32	S_utf16_textfilter(pTHX_ int idx, SV *sv, int maxlen);
+#define PERL_ARGS_ASSERT_UTF16_TEXTFILTER	\
+	assert(sv)
+#  endif
+#endif
+#if !defined(SETUID_SCRIPTS_ARE_SECURE_NOW)
+#  if defined(PERL_IN_PERL_C)
+STATIC void	S_validate_suid(pTHX_ PerlIO *rsfp);
+#define PERL_ARGS_ASSERT_VALIDATE_SUID	\
+	assert(rsfp)
+#  endif
+#endif
+#if !defined(SPRINTF_RETURNS_STRLEN)
+PERL_CALLCONV int	Perl_my_sprintf(char *buffer, const char *pat, ...);
+#define PERL_ARGS_ASSERT_MY_SPRINTF	\
+	assert(buffer); assert(pat)
+#endif
+#if !defined(USE_QUADMATH)
+#  if defined(PERL_IN_NUMERIC_C)
+STATIC NV	S_mulexp10(NV value, I32 exponent);
+#  endif
+#endif
+#if !defined(WIN32)
+PERL_CALLCONV bool	Perl_do_exec3(pTHX_ const char *incmd, int fd, int do_report);
+#define PERL_ARGS_ASSERT_DO_EXEC3	\
+	assert(incmd)
+#endif
+#if defined(DEBUGGING)
+PERL_CALLCONV int	Perl_get_debug_opts(pTHX_ const char **s, bool givehelp)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_GET_DEBUG_OPTS	\
+	assert(s)
+
+PERL_CALLCONV void	Perl_hv_assert(pTHX_ HV *hv);
+#define PERL_ARGS_ASSERT_HV_ASSERT	\
+	assert(hv)
+PERL_CALLCONV void	Perl_pad_setsv(pTHX_ PADOFFSET po, SV* sv);
+#define PERL_ARGS_ASSERT_PAD_SETSV	\
+	assert(sv)
+PERL_CALLCONV SV*	Perl_pad_sv(pTHX_ PADOFFSET po);
+PERL_CALLCONV void	Perl_set_padlist(CV * cv, PADLIST * padlist);
+#define PERL_ARGS_ASSERT_SET_PADLIST	\
+	assert(cv)
+#  if defined(PERL_IN_PAD_C)
+STATIC void	S_cv_dump(pTHX_ const CV *cv, const char *title);
+#define PERL_ARGS_ASSERT_CV_DUMP	\
+	assert(cv); assert(title)
+#  endif
+#  if defined(PERL_IN_REGCOMP_C)
+STATIC void	S_dump_trie(pTHX_ const struct _reg_trie_data *trie, HV* widecharmap, AV *revcharmap, U32 depth);
+#define PERL_ARGS_ASSERT_DUMP_TRIE	\
+	assert(trie); assert(revcharmap)
+STATIC void	S_dump_trie_interim_list(pTHX_ const struct _reg_trie_data *trie, HV* widecharmap, AV *revcharmap, U32 next_alloc, U32 depth);
+#define PERL_ARGS_ASSERT_DUMP_TRIE_INTERIM_LIST	\
+	assert(trie); assert(revcharmap)
+STATIC void	S_dump_trie_interim_table(pTHX_ const struct _reg_trie_data *trie, HV* widecharmap, AV *revcharmap, U32 next_alloc, U32 depth);
+#define PERL_ARGS_ASSERT_DUMP_TRIE_INTERIM_TABLE	\
+	assert(trie); assert(revcharmap)
+STATIC const regnode*	S_dumpuntil(pTHX_ const regexp *r, const regnode *start, const regnode *node, const regnode *last, const regnode *plast, SV* sv, I32 indent, U32 depth);
+#define PERL_ARGS_ASSERT_DUMPUNTIL	\
+	assert(r); assert(start); assert(node); assert(sv)
+STATIC bool	S_put_charclass_bitmap_innards(pTHX_ SV* sv, char* bitmap, SV* nonbitmap_invlist, SV* only_utf8_locale_invlist, const regnode * const node);
+#define PERL_ARGS_ASSERT_PUT_CHARCLASS_BITMAP_INNARDS	\
+	assert(sv); assert(bitmap)
+STATIC SV*	S_put_charclass_bitmap_innards_common(pTHX_ SV* invlist, SV* posixes, SV* only_utf8, SV* not_utf8, SV* only_utf8_locale, const bool invert);
+#define PERL_ARGS_ASSERT_PUT_CHARCLASS_BITMAP_INNARDS_COMMON	\
+	assert(invlist)
+STATIC void	S_put_charclass_bitmap_innards_invlist(pTHX_ SV *sv, SV* invlist);
+#define PERL_ARGS_ASSERT_PUT_CHARCLASS_BITMAP_INNARDS_INVLIST	\
+	assert(sv); assert(invlist)
+STATIC void	S_put_code_point(pTHX_ SV* sv, UV c);
+#define PERL_ARGS_ASSERT_PUT_CODE_POINT	\
+	assert(sv)
+STATIC void	S_put_range(pTHX_ SV* sv, UV start, const UV end, const bool allow_literals);
+#define PERL_ARGS_ASSERT_PUT_RANGE	\
+	assert(sv)
+PERL_CALLCONV int	Perl_re_indentf(pTHX_ const char *fmt, U32 depth, ...);
+#define PERL_ARGS_ASSERT_RE_INDENTF	\
+	assert(fmt)
+STATIC void	S_regdump_extflags(pTHX_ const char *lead, const U32 flags);
+STATIC void	S_regdump_intflags(pTHX_ const char *lead, const U32 flags);
+STATIC U8	S_regtail_study(pTHX_ RExC_state_t *pRExC_state, regnode *p, const regnode *val, U32 depth);
+#define PERL_ARGS_ASSERT_REGTAIL_STUDY	\
+	assert(pRExC_state); assert(p); assert(val)
+#  endif
+#  if defined(PERL_IN_REGEXEC_C)
+STATIC void	S_debug_start_match(pTHX_ const REGEXP *prog, const bool do_utf8, const char *start, const char *end, const char *blurb);
+#define PERL_ARGS_ASSERT_DEBUG_START_MATCH	\
+	assert(prog); assert(start); assert(end); assert(blurb)
+STATIC void	S_dump_exec_pos(pTHX_ const char *locinput, const regnode *scan, const char *loc_regeol, const char *loc_bostr, const char *loc_reg_starttry, const bool do_utf8, const U32 depth);
+#define PERL_ARGS_ASSERT_DUMP_EXEC_POS	\
+	assert(locinput); assert(scan); assert(loc_regeol); assert(loc_bostr); assert(loc_reg_starttry)
+PERL_CALLCONV int	Perl_re_exec_indentf(pTHX_ const char *fmt, U32 depth, ...);
+#define PERL_ARGS_ASSERT_RE_EXEC_INDENTF	\
+	assert(fmt)
+#  endif
+#  if defined(PERL_IN_SV_C)
+STATIC void	S_del_sv(pTHX_ SV *p);
+#define PERL_ARGS_ASSERT_DEL_SV	\
+	assert(p)
+#  endif
+#  if defined(PERL_IN_TOKE_C)
+STATIC void	S_printbuf(pTHX_ const char *const fmt, const char *const s)
+			__attribute__format__(__printf__,pTHX_1,0);
+#define PERL_ARGS_ASSERT_PRINTBUF	\
+	assert(fmt); assert(s)
+
+STATIC int	S_tokereport(pTHX_ I32 rv, const YYSTYPE* lvalp);
+#define PERL_ARGS_ASSERT_TOKEREPORT	\
+	assert(lvalp)
+#  endif
+#  if defined(USE_LOCALE)     && (defined(PERL_IN_LOCALE_C) || defined (PERL_EXT_POSIX))
+PERL_CALLCONV char *	Perl__setlocale_debug_string(const int category, const char* const locale, const char* const retval)
+			__attribute__warn_unused_result__
+			__attribute__pure__;
+
+#  endif
+#endif
+#if defined(DEBUG_LEAKING_SCALARS_FORK_DUMP)
+PERL_CALLCONV void	Perl_dump_sv_child(pTHX_ SV *sv);
+#define PERL_ARGS_ASSERT_DUMP_SV_CHILD	\
+	assert(sv)
+#endif
+#if defined(HAS_MSG) || defined(HAS_SEM) || defined(HAS_SHM)
+PERL_CALLCONV I32	Perl_do_ipcctl(pTHX_ I32 optype, SV** mark, SV** sp);
+#define PERL_ARGS_ASSERT_DO_IPCCTL	\
+	assert(mark); assert(sp)
+PERL_CALLCONV I32	Perl_do_ipcget(pTHX_ I32 optype, SV** mark, SV** sp);
+#define PERL_ARGS_ASSERT_DO_IPCGET	\
+	assert(mark); assert(sp)
+PERL_CALLCONV I32	Perl_do_msgrcv(pTHX_ SV** mark, SV** sp);
+#define PERL_ARGS_ASSERT_DO_MSGRCV	\
+	assert(mark); assert(sp)
+PERL_CALLCONV I32	Perl_do_msgsnd(pTHX_ SV** mark, SV** sp);
+#define PERL_ARGS_ASSERT_DO_MSGSND	\
+	assert(mark); assert(sp)
+PERL_CALLCONV I32	Perl_do_semop(pTHX_ SV** mark, SV** sp);
+#define PERL_ARGS_ASSERT_DO_SEMOP	\
+	assert(mark); assert(sp)
+PERL_CALLCONV I32	Perl_do_shmio(pTHX_ I32 optype, SV** mark, SV** sp);
+#define PERL_ARGS_ASSERT_DO_SHMIO	\
+	assert(mark); assert(sp)
+#endif
+#if defined(HAS_SIGACTION) && defined(SA_SIGINFO)
+PERL_CALLCONV Signal_t	Perl_csighandler(int sig, siginfo_t *info, void *uap);
+PERL_CALLCONV Signal_t	Perl_sighandler(int sig, siginfo_t *info, void *uap);
+#endif
+#if defined(HAVE_INTERP_INTERN)
+PERL_CALLCONV void	Perl_sys_intern_clear(pTHX);
+PERL_CALLCONV void	Perl_sys_intern_init(pTHX);
+#  if defined(USE_ITHREADS)
+PERL_CALLCONV void	Perl_sys_intern_dup(pTHX_ struct interp_intern* src, struct interp_intern* dst);
+#define PERL_ARGS_ASSERT_SYS_INTERN_DUP	\
+	assert(src); assert(dst)
+#  endif
+#endif
+#if defined(MYMALLOC)
+PERL_CALLCONV void	Perl_dump_mstats(pTHX_ const char* s);
+#define PERL_ARGS_ASSERT_DUMP_MSTATS	\
+	assert(s)
+PERL_CALLCONV int	Perl_get_mstats(pTHX_ perl_mstats_t *buf, int buflen, int level);
+#define PERL_ARGS_ASSERT_GET_MSTATS	\
+	assert(buf)
+PERL_CALLCONV MEM_SIZE	Perl_malloc_good_size(size_t nbytes)
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV MEM_SIZE	Perl_malloced_size(void *p)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_MALLOCED_SIZE	\
+	assert(p)
+
+#endif
+#if defined(NO_MATHOMS)
+/* PERL_CALLCONV void	Perl_sv_nounlocking(pTHX_ SV *sv); */
+#endif
+#if defined(PERL_ANY_COW)
+PERL_CALLCONV SV*	Perl_sv_setsv_cow(pTHX_ SV* dstr, SV* sstr);
+#define PERL_ARGS_ASSERT_SV_SETSV_COW	\
+	assert(sstr)
+#endif
+#if defined(PERL_CORE)
+PERL_CALLCONV void	Perl_opslab_force_free(pTHX_ OPSLAB *slab);
+#define PERL_ARGS_ASSERT_OPSLAB_FORCE_FREE	\
+	assert(slab)
+PERL_CALLCONV void	Perl_opslab_free(pTHX_ OPSLAB *slab);
+#define PERL_ARGS_ASSERT_OPSLAB_FREE	\
+	assert(slab)
+PERL_CALLCONV void	Perl_opslab_free_nopad(pTHX_ OPSLAB *slab);
+#define PERL_ARGS_ASSERT_OPSLAB_FREE_NOPAD	\
+	assert(slab)
+PERL_CALLCONV void	Perl_parser_free_nexttoke_ops(pTHX_ yy_parser *parser, OPSLAB *slab);
+#define PERL_ARGS_ASSERT_PARSER_FREE_NEXTTOKE_OPS	\
+	assert(parser); assert(slab)
+PERL_STATIC_INLINE bool	S_should_warn_nl(const char *pv)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_SHOULD_WARN_NL	\
+	assert(pv)
+
+#  if defined(PERL_DEBUG_READONLY_OPS)
+PERL_CALLCONV void	Perl_Slab_to_ro(pTHX_ OPSLAB *slab);
+#define PERL_ARGS_ASSERT_SLAB_TO_RO	\
+	assert(slab)
+PERL_CALLCONV void	Perl_Slab_to_rw(pTHX_ OPSLAB *const slab);
+#define PERL_ARGS_ASSERT_SLAB_TO_RW	\
+	assert(slab)
+#  endif
+#endif
+#if defined(PERL_CORE) || defined (PERL_EXT)
+PERL_STATIC_INLINE STRLEN	S_sv_or_pv_pos_u2b(pTHX_ SV *sv, const char *pv, STRLEN pos, STRLEN *lenp);
+#define PERL_ARGS_ASSERT_SV_OR_PV_POS_U2B	\
+	assert(sv); assert(pv)
+#endif
+#if defined(PERL_CR_FILTER)
+#  if defined(PERL_IN_TOKE_C)
+STATIC I32	S_cr_textfilter(pTHX_ int idx, SV *sv, int maxlen);
+STATIC void	S_strip_return(pTHX_ SV *sv);
+#define PERL_ARGS_ASSERT_STRIP_RETURN	\
+	assert(sv)
+#  endif
+#endif
+#if defined(PERL_DEBUG_READONLY_COW)
+PERL_CALLCONV void	Perl_sv_buf_to_ro(pTHX_ SV *sv);
+#define PERL_ARGS_ASSERT_SV_BUF_TO_RO	\
+	assert(sv)
+#  if defined(PERL_IN_SV_C)
+STATIC void	S_sv_buf_to_rw(pTHX_ SV *sv);
+#define PERL_ARGS_ASSERT_SV_BUF_TO_RW	\
+	assert(sv)
+#  endif
+#endif
+#if defined(PERL_DEBUG_READONLY_OPS)
+PERL_CALLCONV PADOFFSET	Perl_op_refcnt_dec(pTHX_ OP *o);
+#define PERL_ARGS_ASSERT_OP_REFCNT_DEC	\
+	assert(o)
+PERL_CALLCONV OP *	Perl_op_refcnt_inc(pTHX_ OP *o);
+#endif
+#if defined(PERL_DEFAULT_DO_EXEC3_IMPLEMENTATION)
+/* PERL_CALLCONV bool	Perl_do_exec(pTHX_ const char* cmd); */
+#endif
+#if defined(PERL_DONT_CREATE_GVSV)
+/* PERL_CALLCONV GV*	Perl_gv_SVadd(pTHX_ GV *gv); */
+#endif
+#if defined(PERL_GLOBAL_STRUCT)
+PERL_CALLCONV struct perl_vars *	Perl_GetVars(pTHX);
+PERL_CALLCONV void	Perl_free_global_struct(pTHX_ struct perl_vars *plvarsp);
+#define PERL_ARGS_ASSERT_FREE_GLOBAL_STRUCT	\
+	assert(plvarsp)
+PERL_CALLCONV struct perl_vars*	Perl_init_global_struct(pTHX);
+#endif
+#if defined(PERL_GLOBAL_STRUCT_PRIVATE)
+#  if defined(PERL_IMPLICIT_CONTEXT)
+PERL_CALLCONV int	Perl_my_cxt_index(pTHX_ const char *my_cxt_key);
+#define PERL_ARGS_ASSERT_MY_CXT_INDEX	\
+	assert(my_cxt_key)
+PERL_CALLCONV void*	Perl_my_cxt_init(pTHX_ const char *my_cxt_key, size_t size);
+#define PERL_ARGS_ASSERT_MY_CXT_INIT	\
+	assert(my_cxt_key)
+#  endif
+#endif
+#if defined(PERL_IMPLICIT_CONTEXT)
+PERL_CALLCONV_NO_RET void	Perl_croak_nocontext(const char* pat, ...)
+			__attribute__noreturn__
+			__attribute__format__null_ok__(__printf__,1,2);
+
+PERL_CALLCONV void	Perl_deb_nocontext(const char* pat, ...)
+			__attribute__format__(__printf__,1,2);
+#define PERL_ARGS_ASSERT_DEB_NOCONTEXT	\
+	assert(pat)
+
+PERL_CALLCONV_NO_RET OP*	Perl_die_nocontext(const char* pat, ...)
+			__attribute__noreturn__
+			__attribute__format__null_ok__(__printf__,1,2);
+
+PERL_CALLCONV char*	Perl_form_nocontext(const char* pat, ...)
+			__attribute__format__(__printf__,1,2);
+#define PERL_ARGS_ASSERT_FORM_NOCONTEXT	\
+	assert(pat)
+
+PERL_CALLCONV int	Perl_fprintf_nocontext(PerlIO *stream, const char *format, ...)
+			__attribute__format__(__printf__,2,3);
+#define PERL_ARGS_ASSERT_FPRINTF_NOCONTEXT	\
+	assert(stream); assert(format)
+
+PERL_CALLCONV void	Perl_load_module_nocontext(U32 flags, SV* name, SV* ver, ...);
+#define PERL_ARGS_ASSERT_LOAD_MODULE_NOCONTEXT	\
+	assert(name)
+PERL_CALLCONV SV*	Perl_mess_nocontext(const char* pat, ...)
+			__attribute__format__(__printf__,1,2);
+#define PERL_ARGS_ASSERT_MESS_NOCONTEXT	\
+	assert(pat)
+
+PERL_CALLCONV SV*	Perl_newSVpvf_nocontext(const char *const pat, ...)
+			__attribute__format__(__printf__,1,2);
+#define PERL_ARGS_ASSERT_NEWSVPVF_NOCONTEXT	\
+	assert(pat)
+
+PERL_CALLCONV int	Perl_printf_nocontext(const char *format, ...)
+			__attribute__format__(__printf__,1,2);
+#define PERL_ARGS_ASSERT_PRINTF_NOCONTEXT	\
+	assert(format)
+
+PERL_CALLCONV void	Perl_sv_catpvf_mg_nocontext(SV *const sv, const char *const pat, ...)
+			__attribute__format__(__printf__,2,3);
+#define PERL_ARGS_ASSERT_SV_CATPVF_MG_NOCONTEXT	\
+	assert(sv); assert(pat)
+
+PERL_CALLCONV void	Perl_sv_catpvf_nocontext(SV *const sv, const char *const pat, ...)
+			__attribute__format__(__printf__,2,3);
+#define PERL_ARGS_ASSERT_SV_CATPVF_NOCONTEXT	\
+	assert(sv); assert(pat)
+
+PERL_CALLCONV void	Perl_sv_setpvf_mg_nocontext(SV *const sv, const char *const pat, ...)
+			__attribute__format__(__printf__,2,3);
+#define PERL_ARGS_ASSERT_SV_SETPVF_MG_NOCONTEXT	\
+	assert(sv); assert(pat)
+
+PERL_CALLCONV void	Perl_sv_setpvf_nocontext(SV *const sv, const char *const pat, ...)
+			__attribute__format__(__printf__,2,3);
+#define PERL_ARGS_ASSERT_SV_SETPVF_NOCONTEXT	\
+	assert(sv); assert(pat)
+
+PERL_CALLCONV void	Perl_warn_nocontext(const char* pat, ...)
+			__attribute__format__(__printf__,1,2);
+#define PERL_ARGS_ASSERT_WARN_NOCONTEXT	\
+	assert(pat)
+
+PERL_CALLCONV void	Perl_warner_nocontext(U32 err, const char* pat, ...)
+			__attribute__format__(__printf__,2,3);
+#define PERL_ARGS_ASSERT_WARNER_NOCONTEXT	\
+	assert(pat)
+
+#endif
+#if defined(PERL_IMPLICIT_SYS)
+PERL_CALLCONV PerlInterpreter*	perl_alloc_using(struct IPerlMem *ipM, struct IPerlMem *ipMS, struct IPerlMem *ipMP, struct IPerlEnv *ipE, struct IPerlStdIO *ipStd, struct IPerlLIO *ipLIO, struct IPerlDir *ipD, struct IPerlSock *ipS, struct IPerlProc *ipP);
+#define PERL_ARGS_ASSERT_PERL_ALLOC_USING	\
+	assert(ipM); assert(ipMS); assert(ipMP); assert(ipE); assert(ipStd); assert(ipLIO); assert(ipD); assert(ipS); assert(ipP)
+#  if defined(USE_ITHREADS)
+PERL_CALLCONV PerlInterpreter*	perl_clone_using(PerlInterpreter *proto_perl, UV flags, struct IPerlMem* ipM, struct IPerlMem* ipMS, struct IPerlMem* ipMP, struct IPerlEnv* ipE, struct IPerlStdIO* ipStd, struct IPerlLIO* ipLIO, struct IPerlDir* ipD, struct IPerlSock* ipS, struct IPerlProc* ipP);
+#define PERL_ARGS_ASSERT_PERL_CLONE_USING	\
+	assert(proto_perl); assert(ipM); assert(ipMS); assert(ipMP); assert(ipE); assert(ipStd); assert(ipLIO); assert(ipD); assert(ipS); assert(ipP)
+#  endif
+#endif
+#if defined(PERL_IN_AV_C)
+STATIC MAGIC*	S_get_aux_mg(pTHX_ AV *av);
+#define PERL_ARGS_ASSERT_GET_AUX_MG	\
+	assert(av)
+#endif
+#if defined(PERL_IN_DEB_C)
+STATIC void	S_deb_stack_n(pTHX_ SV** stack_base, I32 stack_min, I32 stack_max, I32 mark_min, I32 mark_max);
+#define PERL_ARGS_ASSERT_DEB_STACK_N	\
+	assert(stack_base)
+#endif
+#if defined(PERL_IN_DOIO_C)
+STATIC void	S_exec_failed(pTHX_ const char *cmd, int fd, int do_report);
+#define PERL_ARGS_ASSERT_EXEC_FAILED	\
+	assert(cmd)
+STATIC bool	S_ingroup(pTHX_ Gid_t testgid, bool effective)
+			__attribute__warn_unused_result__;
+
+STATIC bool	S_openn_cleanup(pTHX_ GV *gv, IO *io, PerlIO *fp, char *mode, const char *oname, PerlIO *saveifp, PerlIO *saveofp, int savefd, char savetype, int writing, bool was_fdopen, const char *type);
+#define PERL_ARGS_ASSERT_OPENN_CLEANUP	\
+	assert(gv); assert(io); assert(mode); assert(oname)
+STATIC IO *	S_openn_setup(pTHX_ GV *gv, char *mode, PerlIO **saveifp, PerlIO **saveofp, int *savefd, char *savetype);
+#define PERL_ARGS_ASSERT_OPENN_SETUP	\
+	assert(gv); assert(mode); assert(saveifp); assert(saveofp); assert(savefd); assert(savetype)
+#endif
+#if defined(PERL_IN_DOOP_C)
+STATIC I32	S_do_trans_complex(pTHX_ SV * const sv)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_DO_TRANS_COMPLEX	\
+	assert(sv)
+
+STATIC I32	S_do_trans_complex_utf8(pTHX_ SV * const sv)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_DO_TRANS_COMPLEX_UTF8	\
+	assert(sv)
+
+STATIC I32	S_do_trans_count(pTHX_ SV * const sv)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_DO_TRANS_COUNT	\
+	assert(sv)
+
+STATIC I32	S_do_trans_count_utf8(pTHX_ SV * const sv)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_DO_TRANS_COUNT_UTF8	\
+	assert(sv)
+
+STATIC I32	S_do_trans_simple(pTHX_ SV * const sv)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_DO_TRANS_SIMPLE	\
+	assert(sv)
+
+STATIC I32	S_do_trans_simple_utf8(pTHX_ SV * const sv)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_DO_TRANS_SIMPLE_UTF8	\
+	assert(sv)
+
+#endif
+#if defined(PERL_IN_DUMP_C)
+STATIC CV*	S_deb_curcv(pTHX_ I32 ix);
+STATIC void	S_debprof(pTHX_ const OP *o);
+#define PERL_ARGS_ASSERT_DEBPROF	\
+	assert(o)
+STATIC SV*	S_pm_description(pTHX_ const PMOP *pm);
+#define PERL_ARGS_ASSERT_PM_DESCRIPTION	\
+	assert(pm)
+STATIC UV	S_sequence_num(pTHX_ const OP *o);
+#endif
+#if defined(PERL_IN_DUMP_C) || defined(PERL_IN_HV_C) || defined(PERL_IN_SV_C) || defined(PERL_IN_SCOPE_C)
+PERL_CALLCONV void	Perl_hv_kill_backrefs(pTHX_ HV *hv);
+#define PERL_ARGS_ASSERT_HV_KILL_BACKREFS	\
+	assert(hv)
+#endif
+#if defined(PERL_IN_GV_C)
+STATIC bool	S_find_default_stash(pTHX_ HV **stash, const char *name, STRLEN len, const U32 is_utf8, const I32 add, const svtype sv_type);
+#define PERL_ARGS_ASSERT_FIND_DEFAULT_STASH	\
+	assert(stash); assert(name)
+PERL_STATIC_INLINE GV*	S_gv_fetchmeth_internal(pTHX_ HV* stash, SV* meth, const char* name, STRLEN len, I32 level, U32 flags);
+STATIC void	S_gv_init_svtype(pTHX_ GV *gv, const svtype sv_type);
+#define PERL_ARGS_ASSERT_GV_INIT_SVTYPE	\
+	assert(gv)
+STATIC bool	S_gv_is_in_main(pTHX_ const char *name, STRLEN len, const U32 is_utf8);
+#define PERL_ARGS_ASSERT_GV_IS_IN_MAIN	\
+	assert(name)
+STATIC bool	S_gv_magicalize(pTHX_ GV *gv, HV *stash, const char *name, STRLEN len, bool addmg, const svtype sv_type);
+#define PERL_ARGS_ASSERT_GV_MAGICALIZE	\
+	assert(gv); assert(stash); assert(name)
+STATIC void	S_gv_magicalize_isa(pTHX_ GV *gv);
+#define PERL_ARGS_ASSERT_GV_MAGICALIZE_ISA	\
+	assert(gv)
+PERL_STATIC_INLINE HV*	S_gv_stashpvn_internal(pTHX_ const char* name, U32 namelen, I32 flags);
+#define PERL_ARGS_ASSERT_GV_STASHPVN_INTERNAL	\
+	assert(name)
+PERL_STATIC_INLINE HV*	S_gv_stashsvpvn_cached(pTHX_ SV *namesv, const char* name, U32 namelen, I32 flags);
+STATIC void	S_maybe_multimagic_gv(pTHX_ GV *gv, const char *name, const svtype sv_type);
+#define PERL_ARGS_ASSERT_MAYBE_MULTIMAGIC_GV	\
+	assert(gv); assert(name)
+STATIC bool	S_parse_gv_stash_name(pTHX_ HV **stash, GV **gv, const char **name, STRLEN *len, const char *nambeg, STRLEN full_len, const U32 is_utf8, const I32 add);
+#define PERL_ARGS_ASSERT_PARSE_GV_STASH_NAME	\
+	assert(stash); assert(gv); assert(name); assert(len); assert(nambeg)
+STATIC HV*	S_require_tie_mod(pTHX_ GV *gv, const char *varpv, SV* namesv, const char *methpv, const U32 flags);
+#define PERL_ARGS_ASSERT_REQUIRE_TIE_MOD	\
+	assert(gv); assert(varpv); assert(namesv); assert(methpv)
+#endif
+#if defined(PERL_IN_GV_C) || defined(PERL_IN_SV_C) || defined(PERL_IN_PAD_C) || defined(PERL_IN_OP_C)
+PERL_CALLCONV void	Perl_sv_add_backref(pTHX_ SV *const tsv, SV *const sv);
+#define PERL_ARGS_ASSERT_SV_ADD_BACKREF	\
+	assert(tsv); assert(sv)
+#endif
+#if defined(PERL_IN_HV_C)
+STATIC void	S_clear_placeholders(pTHX_ HV *hv, U32 items);
+#define PERL_ARGS_ASSERT_CLEAR_PLACEHOLDERS	\
+	assert(hv)
+STATIC void	S_hfreeentries(pTHX_ HV *hv);
+#define PERL_ARGS_ASSERT_HFREEENTRIES	\
+	assert(hv)
+STATIC void	S_hsplit(pTHX_ HV *hv, STRLEN const oldsize, STRLEN newsize);
+#define PERL_ARGS_ASSERT_HSPLIT	\
+	assert(hv)
+STATIC struct xpvhv_aux*	S_hv_auxinit(pTHX_ HV *hv);
+#define PERL_ARGS_ASSERT_HV_AUXINIT	\
+	assert(hv)
+STATIC struct xpvhv_aux*	S_hv_auxinit_internal(struct xpvhv_aux *iter);
+#define PERL_ARGS_ASSERT_HV_AUXINIT_INTERNAL	\
+	assert(iter)
+STATIC SV*	S_hv_delete_common(pTHX_ HV *hv, SV *keysv, const char *key, STRLEN klen, int k_flags, I32 d_flags, U32 hash);
+STATIC SV*	S_hv_free_ent_ret(pTHX_ HV *hv, HE *entry);
+#define PERL_ARGS_ASSERT_HV_FREE_ENT_RET	\
+	assert(hv); assert(entry)
+STATIC void	S_hv_magic_check(HV *hv, bool *needs_copy, bool *needs_store);
+#define PERL_ARGS_ASSERT_HV_MAGIC_CHECK	\
+	assert(hv); assert(needs_copy); assert(needs_store)
+PERL_STATIC_NO_RET void	S_hv_notallowed(pTHX_ int flags, const char *key, I32 klen, const char *msg)
+			__attribute__noreturn__;
+#define PERL_ARGS_ASSERT_HV_NOTALLOWED	\
+	assert(key); assert(msg)
+
+STATIC HE*	S_new_he(pTHX)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+
+PERL_STATIC_INLINE U32	S_ptr_hash(PTRV u);
+STATIC SV *	S_refcounted_he_value(pTHX_ const struct refcounted_he *he);
+#define PERL_ARGS_ASSERT_REFCOUNTED_HE_VALUE	\
+	assert(he)
+STATIC HEK*	S_save_hek_flags(const char *str, I32 len, U32 hash, int flags)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_SAVE_HEK_FLAGS	\
+	assert(str)
+
+STATIC HEK*	S_share_hek_flags(pTHX_ const char *str, I32 len, U32 hash, int flags)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_SHARE_HEK_FLAGS	\
+	assert(str)
+
+STATIC void	S_unshare_hek_or_pvn(pTHX_ const HEK* hek, const char* str, I32 len, U32 hash);
+#endif
+#if defined(PERL_IN_HV_C) || defined(PERL_IN_MG_C) || defined(PERL_IN_SV_C)
+PERL_CALLCONV void	Perl_sv_kill_backrefs(pTHX_ SV *const sv, AV *const av);
+#define PERL_ARGS_ASSERT_SV_KILL_BACKREFS	\
+	assert(sv)
+#endif
+#if defined(PERL_IN_HV_C) || defined(PERL_IN_SV_C)
+PERL_CALLCONV SV*	Perl_hfree_next_entry(pTHX_ HV *hv, STRLEN *indexp);
+#define PERL_ARGS_ASSERT_HFREE_NEXT_ENTRY	\
+	assert(hv); assert(indexp)
+#endif
+#if defined(PERL_IN_MALLOC_C)
+STATIC int	S_adjust_size_and_find_bucket(size_t *nbytes_p);
+#define PERL_ARGS_ASSERT_ADJUST_SIZE_AND_FIND_BUCKET	\
+	assert(nbytes_p)
+#endif
+#if defined(PERL_IN_MG_C)
+STATIC void	S_fixup_errno_string(pTHX_ SV* sv);
+#define PERL_ARGS_ASSERT_FIXUP_ERRNO_STRING	\
+	assert(sv)
+STATIC SV*	S_magic_methcall1(pTHX_ SV *sv, const MAGIC *mg, SV *meth, U32 flags, int n, SV *val);
+#define PERL_ARGS_ASSERT_MAGIC_METHCALL1	\
+	assert(sv); assert(mg); assert(meth)
+STATIC int	S_magic_methpack(pTHX_ SV *sv, const MAGIC *mg, SV *meth);
+#define PERL_ARGS_ASSERT_MAGIC_METHPACK	\
+	assert(sv); assert(mg); assert(meth)
+STATIC void	S_restore_magic(pTHX_ const void *p);
+STATIC void	S_save_magic_flags(pTHX_ I32 mgs_ix, SV *sv, U32 flags);
+#define PERL_ARGS_ASSERT_SAVE_MAGIC_FLAGS	\
+	assert(sv)
+STATIC void	S_unwind_handler_stack(pTHX_ const void *p);
+#endif
+#if defined(PERL_IN_MG_C) || defined(PERL_IN_PP_C)
+PERL_CALLCONV bool	Perl_translate_substr_offsets(STRLEN curlen, IV pos1_iv, bool pos1_is_uv, IV len_iv, bool len_is_uv, STRLEN *posp, STRLEN *lenp);
+#define PERL_ARGS_ASSERT_TRANSLATE_SUBSTR_OFFSETS	\
+	assert(posp); assert(lenp)
+#endif
+#if defined(PERL_IN_MRO_C)
+STATIC void	S_mro_clean_isarev(pTHX_ HV * const isa, const char * const name, const STRLEN len, HV * const exceptions, U32 hash, U32 flags);
+#define PERL_ARGS_ASSERT_MRO_CLEAN_ISAREV	\
+	assert(isa); assert(name)
+STATIC void	S_mro_gather_and_rename(pTHX_ HV * const stashes, HV * const seen_stashes, HV *stash, HV *oldstash, SV *namesv);
+#define PERL_ARGS_ASSERT_MRO_GATHER_AND_RENAME	\
+	assert(stashes); assert(seen_stashes); assert(namesv)
+STATIC AV*	S_mro_get_linear_isa_dfs(pTHX_ HV* stash, U32 level);
+#define PERL_ARGS_ASSERT_MRO_GET_LINEAR_ISA_DFS	\
+	assert(stash)
+#endif
+#if defined(PERL_IN_OP_C)
+STATIC void	S_apply_attrs(pTHX_ HV *stash, SV *target, OP *attrs);
+#define PERL_ARGS_ASSERT_APPLY_ATTRS	\
+	assert(stash); assert(target)
+STATIC void	S_apply_attrs_my(pTHX_ HV *stash, OP *target, OP *attrs, OP **imopsp);
+#define PERL_ARGS_ASSERT_APPLY_ATTRS_MY	\
+	assert(stash); assert(target); assert(imopsp)
+STATIC I32	S_assignment_type(pTHX_ const OP *o)
+			__attribute__warn_unused_result__;
+
+STATIC void	S_bad_type_gv(pTHX_ I32 n, GV *gv, const OP *kid, const char *t);
+#define PERL_ARGS_ASSERT_BAD_TYPE_GV	\
+	assert(gv); assert(kid); assert(t)
+STATIC void	S_bad_type_pv(pTHX_ I32 n, const char *t, const OP *o, const OP *kid);
+#define PERL_ARGS_ASSERT_BAD_TYPE_PV	\
+	assert(t); assert(o); assert(kid)
+STATIC void	S_clear_special_blocks(pTHX_ const char *const fullname, GV *const gv, CV *const cv);
+#define PERL_ARGS_ASSERT_CLEAR_SPECIAL_BLOCKS	\
+	assert(fullname); assert(gv); assert(cv)
+STATIC void	S_cop_free(pTHX_ COP *cop);
+#define PERL_ARGS_ASSERT_COP_FREE	\
+	assert(cop)
+STATIC OP *	S_dup_attrlist(pTHX_ OP *o);
+#define PERL_ARGS_ASSERT_DUP_ATTRLIST	\
+	assert(o)
+STATIC void	S_finalize_op(pTHX_ OP* o);
+#define PERL_ARGS_ASSERT_FINALIZE_OP	\
+	assert(o)
+STATIC void	S_find_and_forget_pmops(pTHX_ OP *o);
+#define PERL_ARGS_ASSERT_FIND_AND_FORGET_PMOPS	\
+	assert(o)
+STATIC OP*	S_fold_constants(pTHX_ OP *o);
+#define PERL_ARGS_ASSERT_FOLD_CONSTANTS	\
+	assert(o)
+STATIC OP*	S_force_list(pTHX_ OP* arg, bool nullit);
+STATIC void	S_forget_pmop(pTHX_ PMOP *const o);
+#define PERL_ARGS_ASSERT_FORGET_PMOP	\
+	assert(o)
+STATIC OP*	S_gen_constant_list(pTHX_ OP* o);
+STATIC void	S_inplace_aassign(pTHX_ OP* o);
+#define PERL_ARGS_ASSERT_INPLACE_AASSIGN	\
+	assert(o)
+STATIC bool	S_is_handle_constructor(const OP *o, I32 numargs)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_IS_HANDLE_CONSTRUCTOR	\
+	assert(o)
+
+STATIC OP*	S_listkids(pTHX_ OP* o);
+STATIC bool	S_looks_like_bool(pTHX_ const OP* o);
+#define PERL_ARGS_ASSERT_LOOKS_LIKE_BOOL	\
+	assert(o)
+STATIC OP*	S_modkids(pTHX_ OP *o, I32 type);
+STATIC void	S_move_proto_attr(pTHX_ OP **proto, OP **attrs, const GV *name);
+#define PERL_ARGS_ASSERT_MOVE_PROTO_ATTR	\
+	assert(proto); assert(attrs); assert(name)
+STATIC OP *	S_my_kid(pTHX_ OP *o, OP *attrs, OP **imopsp);
+#define PERL_ARGS_ASSERT_MY_KID	\
+	assert(imopsp)
+STATIC OP*	S_newGIVWHENOP(pTHX_ OP* cond, OP *block, I32 enter_opcode, I32 leave_opcode, PADOFFSET entertarg);
+#define PERL_ARGS_ASSERT_NEWGIVWHENOP	\
+	assert(block)
+PERL_STATIC_INLINE OP*	S_newMETHOP_internal(pTHX_ I32 type, I32 flags, OP* dynamic_meth, SV* const_meth);
+STATIC OP*	S_new_logop(pTHX_ I32 type, I32 flags, OP **firstp, OP **otherp)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_NEW_LOGOP	\
+	assert(firstp); assert(otherp)
+
+STATIC void	S_no_bareword_allowed(pTHX_ OP *o);
+#define PERL_ARGS_ASSERT_NO_BAREWORD_ALLOWED	\
+	assert(o)
+STATIC OP*	S_no_fh_allowed(pTHX_ OP *o)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_NO_FH_ALLOWED	\
+	assert(o)
+
+PERL_STATIC_INLINE OP*	S_op_integerize(pTHX_ OP *o);
+#define PERL_ARGS_ASSERT_OP_INTEGERIZE	\
+	assert(o)
+PERL_STATIC_INLINE OP*	S_op_std_init(pTHX_ OP *o);
+#define PERL_ARGS_ASSERT_OP_STD_INIT	\
+	assert(o)
+STATIC OP*	S_pmtrans(pTHX_ OP* o, OP* expr, OP* repl);
+#define PERL_ARGS_ASSERT_PMTRANS	\
+	assert(o); assert(expr); assert(repl)
+STATIC bool	S_process_special_blocks(pTHX_ I32 floor, const char *const fullname, GV *const gv, CV *const cv);
+#define PERL_ARGS_ASSERT_PROCESS_SPECIAL_BLOCKS	\
+	assert(fullname); assert(gv); assert(cv)
+STATIC OP*	S_ref_array_or_hash(pTHX_ OP* cond);
+STATIC OP*	S_refkids(pTHX_ OP* o, I32 type);
+STATIC bool	S_scalar_mod_type(const OP *o, I32 type)
+			__attribute__warn_unused_result__;
+
+STATIC OP*	S_scalarboolean(pTHX_ OP *o);
+#define PERL_ARGS_ASSERT_SCALARBOOLEAN	\
+	assert(o)
+STATIC OP*	S_scalarkids(pTHX_ OP* o);
+STATIC OP*	S_scalarseq(pTHX_ OP* o);
+STATIC OP*	S_search_const(pTHX_ OP *o)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_SEARCH_CONST	\
+	assert(o)
+
+STATIC void	S_simplify_sort(pTHX_ OP *o);
+#define PERL_ARGS_ASSERT_SIMPLIFY_SORT	\
+	assert(o)
+STATIC OP*	S_too_few_arguments_pv(pTHX_ OP *o, const char* name, U32 flags)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_TOO_FEW_ARGUMENTS_PV	\
+	assert(o); assert(name)
+
+STATIC OP*	S_too_many_arguments_pv(pTHX_ OP *o, const char* name, U32 flags);
+#define PERL_ARGS_ASSERT_TOO_MANY_ARGUMENTS_PV	\
+	assert(o); assert(name)
+#  if defined(USE_ITHREADS)
+PERL_STATIC_INLINE void	S_op_relocate_sv(pTHX_ SV** svp, PADOFFSET* targp);
+#define PERL_ARGS_ASSERT_OP_RELOCATE_SV	\
+	assert(svp); assert(targp)
+#  endif
+#endif
+#if defined(PERL_IN_OP_C) || defined(PERL_IN_SV_C)
+PERL_CALLCONV void	Perl_report_redefined_cv(pTHX_ const SV *name, const CV *old_cv, SV * const *new_const_svp);
+#define PERL_ARGS_ASSERT_REPORT_REDEFINED_CV	\
+	assert(name); assert(old_cv)
+#endif
+#if defined(PERL_IN_PAD_C)
+STATIC PADOFFSET	S_pad_alloc_name(pTHX_ PADNAME *name, U32 flags, HV *typestash, HV *ourstash);
+#define PERL_ARGS_ASSERT_PAD_ALLOC_NAME	\
+	assert(name)
+STATIC void	S_pad_check_dup(pTHX_ PADNAME *name, U32 flags, const HV *ourstash);
+#define PERL_ARGS_ASSERT_PAD_CHECK_DUP	\
+	assert(name)
+STATIC PADOFFSET	S_pad_findlex(pTHX_ const char *namepv, STRLEN namelen, U32 flags, const CV* cv, U32 seq, int warn, SV** out_capture, PADNAME** out_name, int *out_flags);
+#define PERL_ARGS_ASSERT_PAD_FINDLEX	\
+	assert(namepv); assert(cv); assert(out_name); assert(out_flags)
+STATIC void	S_pad_reset(pTHX);
+#endif
+#if defined(PERL_IN_PERL_C)
+STATIC void	S_find_beginning(pTHX_ SV* linestr_sv, PerlIO *rsfp);
+#define PERL_ARGS_ASSERT_FIND_BEGINNING	\
+	assert(linestr_sv); assert(rsfp)
+STATIC void	S_forbid_setid(pTHX_ const char flag, const bool suidscript);
+STATIC void	S_incpush(pTHX_ const char *const dir, STRLEN len, U32 flags);
+#define PERL_ARGS_ASSERT_INCPUSH	\
+	assert(dir)
+STATIC void	S_incpush_use_sep(pTHX_ const char *p, STRLEN len, U32 flags);
+#define PERL_ARGS_ASSERT_INCPUSH_USE_SEP	\
+	assert(p)
+STATIC void	S_init_ids(pTHX);
+STATIC void	S_init_interp(pTHX);
+STATIC void	S_init_main_stash(pTHX);
+STATIC void	S_init_perllib(pTHX);
+STATIC void	S_init_postdump_symbols(pTHX_ int argc, char **argv, char **env);
+#define PERL_ARGS_ASSERT_INIT_POSTDUMP_SYMBOLS	\
+	assert(argv)
+STATIC void	S_init_predump_symbols(pTHX);
+STATIC SV*	S_mayberelocate(pTHX_ const char *const dir, STRLEN len, U32 flags);
+#define PERL_ARGS_ASSERT_MAYBERELOCATE	\
+	assert(dir)
+PERL_STATIC_NO_RET void	S_minus_v(pTHX)
+			__attribute__noreturn__;
+
+PERL_STATIC_NO_RET void	S_my_exit_jump(pTHX)
+			__attribute__noreturn__;
+
+STATIC void	S_nuke_stacks(pTHX);
+STATIC PerlIO *	S_open_script(pTHX_ const char *scriptname, bool dosearch, bool *suidscript);
+#define PERL_ARGS_ASSERT_OPEN_SCRIPT	\
+	assert(scriptname); assert(suidscript)
+STATIC void*	S_parse_body(pTHX_ char **env, XSINIT_t xsinit);
+PERL_STATIC_NO_RET void	S_run_body(pTHX_ I32 oldscope)
+			__attribute__noreturn__;
+
+PERL_STATIC_NO_RET void	S_usage(pTHX)
+			__attribute__noreturn__;
+
+#endif
+#if defined(PERL_IN_PP_C)
+STATIC size_t	S_do_chomp(pTHX_ SV *retval, SV *sv, bool chomping);
+#define PERL_ARGS_ASSERT_DO_CHOMP	\
+	assert(retval); assert(sv)
+STATIC OP*	S_do_delete_local(pTHX);
+STATIC SV*	S_refto(pTHX_ SV* sv)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_REFTO	\
+	assert(sv)
+
+#endif
+#if defined(PERL_IN_PP_C) || defined(PERL_IN_PP_HOT_C)
+PERL_CALLCONV GV*	Perl_softref2xv(pTHX_ SV *const sv, const char *const what, const svtype type, SV ***spp)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_SOFTREF2XV	\
+	assert(sv); assert(what); assert(spp)
+
+#endif
+#if defined(PERL_IN_PP_CTL_C)
+STATIC PerlIO *	S_check_type_and_open(pTHX_ SV *name)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_CHECK_TYPE_AND_OPEN	\
+	assert(name)
+
+STATIC void	S_destroy_matcher(pTHX_ PMOP* matcher);
+#define PERL_ARGS_ASSERT_DESTROY_MATCHER	\
+	assert(matcher)
+STATIC OP*	S_do_smartmatch(pTHX_ HV* seen_this, HV* seen_other, const bool copied);
+STATIC OP*	S_docatch(pTHX_ OP *o)
+			__attribute__warn_unused_result__;
+
+STATIC bool	S_doeval_compile(pTHX_ U8 gimme, CV* outside, U32 seq, HV* hh);
+STATIC OP*	S_dofindlabel(pTHX_ OP *o, const char *label, STRLEN len, U32 flags, OP **opstack, OP **oplimit)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_DOFINDLABEL	\
+	assert(o); assert(label); assert(opstack); assert(oplimit)
+
+STATIC MAGIC *	S_doparseform(pTHX_ SV *sv);
+#define PERL_ARGS_ASSERT_DOPARSEFORM	\
+	assert(sv)
+STATIC I32	S_dopoptoeval(pTHX_ I32 startingblock)
+			__attribute__warn_unused_result__;
+
+STATIC I32	S_dopoptogivenfor(pTHX_ I32 startingblock)
+			__attribute__warn_unused_result__;
+
+STATIC I32	S_dopoptolabel(pTHX_ const char *label, STRLEN len, U32 flags)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_DOPOPTOLABEL	\
+	assert(label)
+
+STATIC I32	S_dopoptoloop(pTHX_ I32 startingblock)
+			__attribute__warn_unused_result__;
+
+STATIC I32	S_dopoptosub_at(pTHX_ const PERL_CONTEXT* cxstk, I32 startingblock)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_DOPOPTOSUB_AT	\
+	assert(cxstk)
+
+STATIC I32	S_dopoptowhen(pTHX_ I32 startingblock)
+			__attribute__warn_unused_result__;
+
+STATIC PMOP*	S_make_matcher(pTHX_ REGEXP* re)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_MAKE_MATCHER	\
+	assert(re)
+
+STATIC bool	S_matcher_matches_sv(pTHX_ PMOP* matcher, SV* sv)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_MATCHER_MATCHES_SV	\
+	assert(matcher); assert(sv)
+
+STATIC bool	S_num_overflow(NV value, I32 fldsize, I32 frcsize)
+			__attribute__warn_unused_result__;
+
+PERL_STATIC_INLINE bool	S_path_is_searchable(const char *name)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_PATH_IS_SEARCHABLE	\
+	assert(name)
+
+STATIC I32	S_run_user_filter(pTHX_ int idx, SV *buf_sv, int maxlen)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_RUN_USER_FILTER	\
+	assert(buf_sv)
+
+STATIC void	S_rxres_free(pTHX_ void** rsp);
+#define PERL_ARGS_ASSERT_RXRES_FREE	\
+	assert(rsp)
+STATIC void	S_rxres_restore(pTHX_ void **rsp, REGEXP *rx);
+#define PERL_ARGS_ASSERT_RXRES_RESTORE	\
+	assert(rsp); assert(rx)
+STATIC void	S_save_lines(pTHX_ AV *array, SV *sv);
+#define PERL_ARGS_ASSERT_SAVE_LINES	\
+	assert(sv)
+#endif
+#if defined(PERL_IN_PP_HOT_C)
+STATIC void	S_do_oddball(pTHX_ SV **oddkey, SV **firstkey);
+#define PERL_ARGS_ASSERT_DO_ODDBALL	\
+	assert(oddkey); assert(firstkey)
+PERL_STATIC_INLINE HV*	S_opmethod_stash(pTHX_ SV* meth);
+#define PERL_ARGS_ASSERT_OPMETHOD_STASH	\
+	assert(meth)
+#endif
+#if defined(PERL_IN_PP_PACK_C)
+STATIC int	S_div128(pTHX_ SV *pnum, bool *done);
+#define PERL_ARGS_ASSERT_DIV128	\
+	assert(pnum); assert(done)
+STATIC char	S_first_symbol(const char *pat, const char *patend);
+#define PERL_ARGS_ASSERT_FIRST_SYMBOL	\
+	assert(pat); assert(patend)
+STATIC const char *	S_get_num(pTHX_ const char *patptr, I32 *lenptr)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_GET_NUM	\
+	assert(patptr); assert(lenptr)
+
+STATIC const char *	S_group_end(pTHX_ const char *patptr, const char *patend, char ender);
+#define PERL_ARGS_ASSERT_GROUP_END	\
+	assert(patptr); assert(patend)
+STATIC SV*	S_is_an_int(pTHX_ const char *s, STRLEN l)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_IS_AN_INT	\
+	assert(s)
+
+STATIC I32	S_measure_struct(pTHX_ struct tempsym* symptr);
+#define PERL_ARGS_ASSERT_MEASURE_STRUCT	\
+	assert(symptr)
+STATIC SV*	S_mul128(pTHX_ SV *sv, U8 m);
+#define PERL_ARGS_ASSERT_MUL128	\
+	assert(sv)
+STATIC char *	S_my_bytes_to_utf8(const U8 *start, STRLEN len, char *dest, const bool needs_swap)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_MY_BYTES_TO_UTF8	\
+	assert(start); assert(dest)
+
+STATIC bool	S_need_utf8(const char *pat, const char *patend);
+#define PERL_ARGS_ASSERT_NEED_UTF8	\
+	assert(pat); assert(patend)
+STATIC bool	S_next_symbol(pTHX_ struct tempsym* symptr);
+#define PERL_ARGS_ASSERT_NEXT_SYMBOL	\
+	assert(symptr)
+STATIC SV **	S_pack_rec(pTHX_ SV *cat, struct tempsym* symptr, SV **beglist, SV **endlist);
+#define PERL_ARGS_ASSERT_PACK_REC	\
+	assert(cat); assert(symptr); assert(beglist); assert(endlist)
+STATIC char *	S_sv_exp_grow(pTHX_ SV *sv, STRLEN needed)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_SV_EXP_GROW	\
+	assert(sv)
+
+STATIC I32	S_unpack_rec(pTHX_ struct tempsym* symptr, const char *s, const char *strbeg, const char *strend, const char **new_s);
+#define PERL_ARGS_ASSERT_UNPACK_REC	\
+	assert(symptr); assert(s); assert(strbeg); assert(strend)
+#endif
+#if defined(PERL_IN_PP_SORT_C)
+STATIC I32	S_amagic_cmp(pTHX_ SV *const str1, SV *const str2);
+#define PERL_ARGS_ASSERT_AMAGIC_CMP	\
+	assert(str1); assert(str2)
+STATIC I32	S_amagic_i_ncmp(pTHX_ SV *const a, SV *const b);
+#define PERL_ARGS_ASSERT_AMAGIC_I_NCMP	\
+	assert(a); assert(b)
+STATIC I32	S_amagic_ncmp(pTHX_ SV *const a, SV *const b);
+#define PERL_ARGS_ASSERT_AMAGIC_NCMP	\
+	assert(a); assert(b)
+STATIC void	S_qsortsvu(pTHX_ SV** array, size_t num_elts, SVCOMPARE_t compare);
+#define PERL_ARGS_ASSERT_QSORTSVU	\
+	assert(compare)
+STATIC I32	S_sortcv(pTHX_ SV *const a, SV *const b);
+#define PERL_ARGS_ASSERT_SORTCV	\
+	assert(a); assert(b)
+STATIC I32	S_sortcv_stacked(pTHX_ SV *const a, SV *const b);
+#define PERL_ARGS_ASSERT_SORTCV_STACKED	\
+	assert(a); assert(b)
+STATIC I32	S_sortcv_xsub(pTHX_ SV *const a, SV *const b);
+#define PERL_ARGS_ASSERT_SORTCV_XSUB	\
+	assert(a); assert(b)
+STATIC I32	S_sv_i_ncmp(pTHX_ SV *const a, SV *const b);
+#define PERL_ARGS_ASSERT_SV_I_NCMP	\
+	assert(a); assert(b)
+STATIC I32	S_sv_ncmp(pTHX_ SV *const a, SV *const b);
+#define PERL_ARGS_ASSERT_SV_NCMP	\
+	assert(a); assert(b)
+#  if defined(USE_LOCALE_COLLATE)
+STATIC I32	S_amagic_cmp_locale(pTHX_ SV *const str1, SV *const str2);
+#define PERL_ARGS_ASSERT_AMAGIC_CMP_LOCALE	\
+	assert(str1); assert(str2)
+#  endif
+#endif
+#if defined(PERL_IN_PP_SYS_C)
+STATIC OP*	S_doform(pTHX_ CV *cv, GV *gv, OP *retop);
+#define PERL_ARGS_ASSERT_DOFORM	\
+	assert(cv); assert(gv)
+STATIC SV *	S_space_join_names_mortal(pTHX_ char *const *array);
+#define PERL_ARGS_ASSERT_SPACE_JOIN_NAMES_MORTAL	\
+	assert(array)
+#endif
+#if defined(PERL_IN_REGCOMP_C)
+STATIC void	S__append_range_to_invlist(pTHX_ SV* const invlist, const UV start, const UV end);
+#define PERL_ARGS_ASSERT__APPEND_RANGE_TO_INVLIST	\
+	assert(invlist)
+PERL_STATIC_INLINE UV*	S__invlist_array_init(SV* const invlist, const bool will_have_0)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT__INVLIST_ARRAY_INIT	\
+	assert(invlist)
+
+STATIC SV*	S__make_exactf_invlist(pTHX_ RExC_state_t *pRExC_state, regnode *node)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT__MAKE_EXACTF_INVLIST	\
+	assert(pRExC_state); assert(node)
+
+STATIC void	S_add_above_Latin1_folds(pTHX_ RExC_state_t *pRExC_state, const U8 cp, SV** invlist);
+#define PERL_ARGS_ASSERT_ADD_ABOVE_LATIN1_FOLDS	\
+	assert(pRExC_state); assert(invlist)
+PERL_STATIC_INLINE SV*	S_add_cp_to_invlist(pTHX_ SV* invlist, const UV cp)
+			__attribute__warn_unused_result__;
+
+STATIC U32	S_add_data(RExC_state_t* const pRExC_state, const char* const s, const U32 n)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_ADD_DATA	\
+	assert(pRExC_state); assert(s)
+
+STATIC AV*	S_add_multi_match(pTHX_ AV* multi_char_matches, SV* multi_string, const STRLEN cp_count);
+#define PERL_ARGS_ASSERT_ADD_MULTI_MATCH	\
+	assert(multi_string)
+PERL_STATIC_INLINE void	S_alloc_maybe_populate_EXACT(pTHX_ RExC_state_t *pRExC_state, regnode *node, I32 *flagp, STRLEN len, UV code_point, bool downgradable);
+#define PERL_ARGS_ASSERT_ALLOC_MAYBE_POPULATE_EXACT	\
+	assert(pRExC_state); assert(node); assert(flagp)
+STATIC const char *	S_cntrl_to_mnemonic(const U8 c)
+			__attribute__pure__;
+
+PERL_STATIC_INLINE U8	S_compute_EXACTish(RExC_state_t *pRExC_state);
+#define PERL_ARGS_ASSERT_COMPUTE_EXACTISH	\
+	assert(pRExC_state)
+STATIC regnode *	S_construct_ahocorasick_from_trie(pTHX_ RExC_state_t *pRExC_state, regnode *source, U32 depth);
+#define PERL_ARGS_ASSERT_CONSTRUCT_AHOCORASICK_FROM_TRIE	\
+	assert(pRExC_state); assert(source)
+STATIC int	S_edit_distance(const UV *src, const UV *tgt, const STRLEN x, const STRLEN y, const SSize_t maxDistance)
+			__attribute__pure__;
+#define PERL_ARGS_ASSERT_EDIT_DISTANCE	\
+	assert(src); assert(tgt)
+
+STATIC SV*	S_get_ANYOF_cp_list_for_ssc(pTHX_ const RExC_state_t *pRExC_state, const regnode_charclass* const node);
+#define PERL_ARGS_ASSERT_GET_ANYOF_CP_LIST_FOR_SSC	\
+	assert(pRExC_state); assert(node)
+PERL_STATIC_INLINE STRLEN*	S_get_invlist_iter_addr(SV* invlist)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_GET_INVLIST_ITER_ADDR	\
+	assert(invlist)
+
+STATIC bool	S_grok_bslash_N(pTHX_ RExC_state_t *pRExC_state, regnode** nodep, UV *code_point_p, int* cp_count, I32 *flagp, const bool strict, const U32 depth);
+#define PERL_ARGS_ASSERT_GROK_BSLASH_N	\
+	assert(pRExC_state); assert(flagp)
+PERL_STATIC_INLINE regnode*	S_handle_named_backref(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, char * parse_start, char ch);
+#define PERL_ARGS_ASSERT_HANDLE_NAMED_BACKREF	\
+	assert(pRExC_state); assert(flagp); assert(parse_start)
+STATIC int	S_handle_possible_posix(pTHX_ RExC_state_t *pRExC_state, const char* const s, char ** updated_parse_ptr, AV** posix_warnings, const bool check_only);
+#define PERL_ARGS_ASSERT_HANDLE_POSSIBLE_POSIX	\
+	assert(pRExC_state); assert(s)
+STATIC regnode*	S_handle_regex_sets(pTHX_ RExC_state_t *pRExC_state, SV ** return_invlist, I32 *flagp, U32 depth, char * const oregcomp_parse);
+#define PERL_ARGS_ASSERT_HANDLE_REGEX_SETS	\
+	assert(pRExC_state); assert(flagp); assert(oregcomp_parse)
+PERL_STATIC_INLINE SV*	S_invlist_clone(pTHX_ SV* const invlist)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_INVLIST_CLONE	\
+	assert(invlist)
+
+STATIC SV*	S_invlist_contents(pTHX_ SV* const invlist, const bool traditional_style)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_INVLIST_CONTENTS	\
+	assert(invlist)
+
+STATIC void	S_invlist_extend(pTHX_ SV* const invlist, const UV len);
+#define PERL_ARGS_ASSERT_INVLIST_EXTEND	\
+	assert(invlist)
+PERL_STATIC_INLINE UV	S_invlist_highest(SV* const invlist)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_INVLIST_HIGHEST	\
+	assert(invlist)
+
+PERL_STATIC_INLINE bool	S_invlist_is_iterating(SV* const invlist)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_INVLIST_IS_ITERATING	\
+	assert(invlist)
+
+PERL_STATIC_INLINE void	S_invlist_iterfinish(SV* invlist);
+#define PERL_ARGS_ASSERT_INVLIST_ITERFINISH	\
+	assert(invlist)
+PERL_STATIC_INLINE void	S_invlist_iterinit(SV* invlist);
+#define PERL_ARGS_ASSERT_INVLIST_ITERINIT	\
+	assert(invlist)
+STATIC bool	S_invlist_iternext(SV* invlist, UV* start, UV* end)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_INVLIST_ITERNEXT	\
+	assert(invlist); assert(start); assert(end)
+
+PERL_STATIC_INLINE UV	S_invlist_max(SV* const invlist)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_INVLIST_MAX	\
+	assert(invlist)
+
+PERL_STATIC_INLINE void	S_invlist_set_len(pTHX_ SV* const invlist, const UV len, const bool offset);
+#define PERL_ARGS_ASSERT_INVLIST_SET_LEN	\
+	assert(invlist)
+STATIC bool	S_is_ssc_worth_it(const RExC_state_t * pRExC_state, const regnode_ssc * ssc);
+#define PERL_ARGS_ASSERT_IS_SSC_WORTH_IT	\
+	assert(pRExC_state); assert(ssc)
+STATIC U32	S_join_exact(pTHX_ RExC_state_t *pRExC_state, regnode *scan, UV *min_subtract, bool *unfolded_multi_char, U32 flags, regnode *val, U32 depth);
+#define PERL_ARGS_ASSERT_JOIN_EXACT	\
+	assert(pRExC_state); assert(scan); assert(min_subtract); assert(unfolded_multi_char)
+STATIC I32	S_make_trie(pTHX_ RExC_state_t *pRExC_state, regnode *startbranch, regnode *first, regnode *last, regnode *tail, U32 word_count, U32 flags, U32 depth);
+#define PERL_ARGS_ASSERT_MAKE_TRIE	\
+	assert(pRExC_state); assert(startbranch); assert(first); assert(last); assert(tail)
+STATIC void	S_nextchar(pTHX_ RExC_state_t *pRExC_state);
+#define PERL_ARGS_ASSERT_NEXTCHAR	\
+	assert(pRExC_state)
+STATIC void	S_output_or_return_posix_warnings(pTHX_ RExC_state_t *pRExC_state, AV* posix_warnings, AV** return_posix_warnings);
+#define PERL_ARGS_ASSERT_OUTPUT_OR_RETURN_POSIX_WARNINGS	\
+	assert(pRExC_state); assert(posix_warnings)
+STATIC void	S_parse_lparen_question_flags(pTHX_ RExC_state_t *pRExC_state);
+#define PERL_ARGS_ASSERT_PARSE_LPAREN_QUESTION_FLAGS	\
+	assert(pRExC_state)
+STATIC void	S_populate_ANYOF_from_invlist(pTHX_ regnode *node, SV** invlist_ptr);
+#define PERL_ARGS_ASSERT_POPULATE_ANYOF_FROM_INVLIST	\
+	assert(node); assert(invlist_ptr)
+PERL_STATIC_NO_RET void	S_re_croak2(pTHX_ bool utf8, const char* pat1, const char* pat2, ...)
+			__attribute__noreturn__;
+#define PERL_ARGS_ASSERT_RE_CROAK2	\
+	assert(pat1); assert(pat2)
+
+STATIC regnode*	S_reg(pTHX_ RExC_state_t *pRExC_state, I32 paren, I32 *flagp, U32 depth);
+#define PERL_ARGS_ASSERT_REG	\
+	assert(pRExC_state); assert(flagp)
+STATIC regnode*	S_reg2Lanode(pTHX_ RExC_state_t *pRExC_state, const U8 op, const U32 arg1, const I32 arg2);
+#define PERL_ARGS_ASSERT_REG2LANODE	\
+	assert(pRExC_state)
+STATIC regnode*	S_reg_node(pTHX_ RExC_state_t *pRExC_state, U8 op);
+#define PERL_ARGS_ASSERT_REG_NODE	\
+	assert(pRExC_state)
+STATIC UV	S_reg_recode(pTHX_ const U8 value, SV **encp);
+#define PERL_ARGS_ASSERT_REG_RECODE	\
+	assert(encp)
+STATIC SV *	S_reg_scan_name(pTHX_ RExC_state_t *pRExC_state, U32 flags);
+#define PERL_ARGS_ASSERT_REG_SCAN_NAME	\
+	assert(pRExC_state)
+PERL_STATIC_INLINE char *	S_reg_skipcomment(RExC_state_t *pRExC_state, char * p);
+#define PERL_ARGS_ASSERT_REG_SKIPCOMMENT	\
+	assert(pRExC_state); assert(p)
+STATIC regnode*	S_reganode(pTHX_ RExC_state_t *pRExC_state, U8 op, U32 arg);
+#define PERL_ARGS_ASSERT_REGANODE	\
+	assert(pRExC_state)
+STATIC regnode*	S_regatom(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, U32 depth);
+#define PERL_ARGS_ASSERT_REGATOM	\
+	assert(pRExC_state); assert(flagp)
+STATIC regnode*	S_regbranch(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, I32 first, U32 depth);
+#define PERL_ARGS_ASSERT_REGBRANCH	\
+	assert(pRExC_state); assert(flagp)
+STATIC regnode*	S_regclass(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, U32 depth, const bool stop_at_1, bool allow_multi_fold, const bool silence_non_portable, const bool strict, bool optimizable, SV** ret_invlist, AV** return_posix_warnings);
+#define PERL_ARGS_ASSERT_REGCLASS	\
+	assert(pRExC_state); assert(flagp)
+STATIC unsigned int	S_regex_set_precedence(const U8 my_operator)
+			__attribute__pure__;
+
+STATIC void	S_reginsert(pTHX_ RExC_state_t *pRExC_state, U8 op, regnode *opnd, U32 depth);
+#define PERL_ARGS_ASSERT_REGINSERT	\
+	assert(pRExC_state); assert(opnd)
+STATIC regnode*	S_regnode_guts(pTHX_ RExC_state_t *pRExC_state, const U8 op, const STRLEN extra_len, const char* const name);
+#define PERL_ARGS_ASSERT_REGNODE_GUTS	\
+	assert(pRExC_state); assert(name)
+STATIC regnode*	S_regpiece(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, U32 depth);
+#define PERL_ARGS_ASSERT_REGPIECE	\
+	assert(pRExC_state); assert(flagp)
+STATIC void	S_regtail(pTHX_ RExC_state_t * pRExC_state, const regnode * const p, const regnode * const val, const U32 depth);
+#define PERL_ARGS_ASSERT_REGTAIL	\
+	assert(pRExC_state); assert(p); assert(val)
+STATIC void	S_scan_commit(pTHX_ const RExC_state_t *pRExC_state, struct scan_data_t *data, SSize_t *minlenp, int is_inf);
+#define PERL_ARGS_ASSERT_SCAN_COMMIT	\
+	assert(pRExC_state); assert(data); assert(minlenp)
+STATIC void	S_set_ANYOF_arg(pTHX_ RExC_state_t* const pRExC_state, regnode* const node, SV* const cp_list, SV* const runtime_defns, SV* const only_utf8_locale_list, SV* const swash, const bool has_user_defined_property);
+#define PERL_ARGS_ASSERT_SET_ANYOF_ARG	\
+	assert(pRExC_state); assert(node)
+STATIC void	S_skip_to_be_ignored_text(pTHX_ RExC_state_t *pRExC_state, char ** p, const bool force_to_xmod);
+#define PERL_ARGS_ASSERT_SKIP_TO_BE_IGNORED_TEXT	\
+	assert(pRExC_state); assert(p)
+PERL_STATIC_INLINE void	S_ssc_add_range(pTHX_ regnode_ssc *ssc, UV const start, UV const end);
+#define PERL_ARGS_ASSERT_SSC_ADD_RANGE	\
+	assert(ssc)
+STATIC void	S_ssc_and(pTHX_ const RExC_state_t *pRExC_state, regnode_ssc *ssc, const regnode_charclass *and_with);
+#define PERL_ARGS_ASSERT_SSC_AND	\
+	assert(pRExC_state); assert(ssc); assert(and_with)
+STATIC void	S_ssc_anything(pTHX_ regnode_ssc *ssc);
+#define PERL_ARGS_ASSERT_SSC_ANYTHING	\
+	assert(ssc)
+PERL_STATIC_INLINE void	S_ssc_clear_locale(regnode_ssc *ssc);
+#define PERL_ARGS_ASSERT_SSC_CLEAR_LOCALE	\
+	assert(ssc)
+PERL_STATIC_INLINE void	S_ssc_cp_and(pTHX_ regnode_ssc *ssc, UV const cp);
+#define PERL_ARGS_ASSERT_SSC_CP_AND	\
+	assert(ssc)
+STATIC void	S_ssc_finalize(pTHX_ RExC_state_t *pRExC_state, regnode_ssc *ssc);
+#define PERL_ARGS_ASSERT_SSC_FINALIZE	\
+	assert(pRExC_state); assert(ssc)
+STATIC void	S_ssc_init(pTHX_ const RExC_state_t *pRExC_state, regnode_ssc *ssc);
+#define PERL_ARGS_ASSERT_SSC_INIT	\
+	assert(pRExC_state); assert(ssc)
+PERL_STATIC_INLINE void	S_ssc_intersection(pTHX_ regnode_ssc *ssc, SV* const invlist, const bool invert_2nd);
+#define PERL_ARGS_ASSERT_SSC_INTERSECTION	\
+	assert(ssc); assert(invlist)
+STATIC int	S_ssc_is_anything(const regnode_ssc *ssc)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_SSC_IS_ANYTHING	\
+	assert(ssc)
+
+STATIC int	S_ssc_is_cp_posixl_init(const RExC_state_t *pRExC_state, const regnode_ssc *ssc)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_SSC_IS_CP_POSIXL_INIT	\
+	assert(pRExC_state); assert(ssc)
+
+STATIC void	S_ssc_or(pTHX_ const RExC_state_t *pRExC_state, regnode_ssc *ssc, const regnode_charclass *or_with);
+#define PERL_ARGS_ASSERT_SSC_OR	\
+	assert(pRExC_state); assert(ssc); assert(or_with)
+PERL_STATIC_INLINE void	S_ssc_union(pTHX_ regnode_ssc *ssc, SV* const invlist, const bool invert_2nd);
+#define PERL_ARGS_ASSERT_SSC_UNION	\
+	assert(ssc); assert(invlist)
+STATIC SSize_t	S_study_chunk(pTHX_ RExC_state_t *pRExC_state, regnode **scanp, SSize_t *minlenp, SSize_t *deltap, regnode *last, struct scan_data_t *data, I32 stopparen, U32 recursed_depth, regnode_ssc *and_withp, U32 flags, U32 depth);
+#define PERL_ARGS_ASSERT_STUDY_CHUNK	\
+	assert(pRExC_state); assert(scanp); assert(minlenp); assert(deltap); assert(last)
+#endif
+#if defined(PERL_IN_REGCOMP_C) || defined (PERL_IN_DUMP_C)
+PERL_CALLCONV void	Perl__invlist_dump(pTHX_ PerlIO *file, I32 level, const char* const indent, SV* const invlist);
+#define PERL_ARGS_ASSERT__INVLIST_DUMP	\
+	assert(file); assert(indent); assert(invlist)
+#endif
+#if defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_PERL_C) || defined(PERL_IN_UTF8_C)
+PERL_CALLCONV bool	Perl__invlistEQ(pTHX_ SV* const a, SV* const b, const bool complement_b);
+#define PERL_ARGS_ASSERT__INVLISTEQ	\
+	assert(a); assert(b)
+PERL_CALLCONV SV*	Perl__new_invlist_C_array(pTHX_ const UV* const list)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT__NEW_INVLIST_C_ARRAY	\
+	assert(list)
+
+#endif
+#if defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_REGEXEC_C)
+PERL_CALLCONV SV*	Perl__get_regclass_nonbitmap_data(pTHX_ const regexp *prog, const struct regnode *node, bool doinit, SV **listsvp, SV **lonly_utf8_locale, SV **output_invlist);
+#define PERL_ARGS_ASSERT__GET_REGCLASS_NONBITMAP_DATA	\
+	assert(node)
+PERL_CALLCONV void	Perl__load_PL_utf8_foldclosures(pTHX);
+PERL_CALLCONV int	Perl_re_printf(pTHX_ const char *fmt, ...);
+#define PERL_ARGS_ASSERT_RE_PRINTF	\
+	assert(fmt)
+PERL_CALLCONV void	Perl_regprop(pTHX_ const regexp *prog, SV* sv, const regnode* o, const regmatch_info *reginfo, const RExC_state_t *pRExC_state);
+#define PERL_ARGS_ASSERT_REGPROP	\
+	assert(sv); assert(o)
+#endif
+#if defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_REGEXEC_C) || defined(PERL_IN_UTF8_C)
+PERL_CALLCONV SV*	Perl__get_swash_invlist(pTHX_ SV* const swash)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT__GET_SWASH_INVLIST	\
+	assert(swash)
+
+PERL_STATIC_INLINE bool	S__invlist_contains_cp(SV* const invlist, const UV cp)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT__INVLIST_CONTAINS_CP	\
+	assert(invlist)
+
+PERL_STATIC_INLINE UV	S__invlist_len(SV* const invlist)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT__INVLIST_LEN	\
+	assert(invlist)
+
+PERL_CALLCONV IV	Perl__invlist_search(SV* const invlist, const UV cp)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT__INVLIST_SEARCH	\
+	assert(invlist)
+
+PERL_CALLCONV HV*	Perl__swash_inversion_hash(pTHX_ SV* const swash)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT__SWASH_INVERSION_HASH	\
+	assert(swash)
+
+PERL_STATIC_INLINE bool*	S_get_invlist_offset_addr(SV* invlist)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_GET_INVLIST_OFFSET_ADDR	\
+	assert(invlist)
+
+PERL_STATIC_INLINE UV*	S_invlist_array(SV* const invlist)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_INVLIST_ARRAY	\
+	assert(invlist)
+
+#endif
+#if defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_REGEXEC_C) || defined(PERL_IN_UTF8_C) || defined(PERL_IN_TOKE_C)
+PERL_CALLCONV SV*	Perl__core_swash_init(pTHX_ const char* pkg, const char* name, SV* listsv, I32 minbits, I32 none, SV* invlist, U8* const flags_p);
+#define PERL_ARGS_ASSERT__CORE_SWASH_INIT	\
+	assert(pkg); assert(name); assert(listsv)
+#endif
+#if defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_TOKE_C) || defined(PERL_IN_DQUOTE_C)
+PERL_STATIC_INLINE char*	S_form_short_octal_warning(pTHX_ const char * const s, const STRLEN len)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_FORM_SHORT_OCTAL_WARNING	\
+	assert(s)
+
+PERL_CALLCONV char	Perl_grok_bslash_c(pTHX_ const char source, const bool output_warning)
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV bool	Perl_grok_bslash_o(pTHX_ char** s, UV* uv, const char** error_msg, const bool output_warning, const bool strict, const bool silence_non_portable, const bool utf8)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_GROK_BSLASH_O	\
+	assert(s); assert(uv); assert(error_msg)
+
+PERL_CALLCONV bool	Perl_grok_bslash_x(pTHX_ char** s, UV* uv, const char** error_msg, const bool output_warning, const bool strict, const bool silence_non_portable, const bool utf8)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_GROK_BSLASH_X	\
+	assert(s); assert(uv); assert(error_msg)
+
+PERL_STATIC_INLINE I32	S_regcurly(const char *s)
+			__attribute__warn_unused_result__
+			__attribute__pure__;
+#define PERL_ARGS_ASSERT_REGCURLY	\
+	assert(s)
+
+#endif
+#if defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_UTF8_C)
+PERL_CALLCONV SV*	Perl__add_range_to_invlist(pTHX_ SV* invlist, const UV start, const UV end)
+			__attribute__warn_unused_result__;
+
+/* PERL_CALLCONV void	_invlist_intersection(pTHX_ SV* const a, SV* const b, SV** i); */
+PERL_CALLCONV void	Perl__invlist_intersection_maybe_complement_2nd(pTHX_ SV* const a, SV* const b, const bool complement_b, SV** i);
+#define PERL_ARGS_ASSERT__INVLIST_INTERSECTION_MAYBE_COMPLEMENT_2ND	\
+	assert(b); assert(i)
+PERL_CALLCONV void	Perl__invlist_invert(pTHX_ SV* const invlist);
+#define PERL_ARGS_ASSERT__INVLIST_INVERT	\
+	assert(invlist)
+PERL_CALLCONV void	Perl__invlist_populate_swatch(SV* const invlist, const UV start, const UV end, U8* swatch);
+#define PERL_ARGS_ASSERT__INVLIST_POPULATE_SWATCH	\
+	assert(invlist); assert(swatch)
+/* PERL_CALLCONV void	_invlist_subtract(pTHX_ SV* const a, SV* const b, SV** result); */
+/* PERL_CALLCONV void	_invlist_union(pTHX_ SV* const a, SV* const b, SV** output); */
+PERL_CALLCONV void	Perl__invlist_union_maybe_complement_2nd(pTHX_ SV* const a, SV* const b, const bool complement_b, SV** output);
+#define PERL_ARGS_ASSERT__INVLIST_UNION_MAYBE_COMPLEMENT_2ND	\
+	assert(b); assert(output)
+PERL_CALLCONV SV*	Perl__new_invlist(pTHX_ IV initial_size)
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV SV*	Perl__setup_canned_invlist(pTHX_ const STRLEN size, const UV element0, UV** other_elements_ptr)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT__SETUP_CANNED_INVLIST	\
+	assert(other_elements_ptr)
+
+PERL_CALLCONV SV*	Perl__swash_to_invlist(pTHX_ SV* const swash)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT__SWASH_TO_INVLIST	\
+	assert(swash)
+
+#endif
+#if defined(PERL_IN_REGEXEC_C)
+STATIC LB_enum	S_advance_one_LB(pTHX_ U8 ** curpos, const U8 * const strend, const bool utf8_target)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_ADVANCE_ONE_LB	\
+	assert(curpos); assert(strend)
+
+STATIC SB_enum	S_advance_one_SB(pTHX_ U8 ** curpos, const U8 * const strend, const bool utf8_target)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_ADVANCE_ONE_SB	\
+	assert(curpos); assert(strend)
+
+STATIC WB_enum	S_advance_one_WB(pTHX_ U8 ** curpos, const U8 * const strend, const bool utf8_target, const bool skip_Extend_Format)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_ADVANCE_ONE_WB	\
+	assert(curpos); assert(strend)
+
+STATIC LB_enum	S_backup_one_LB(pTHX_ const U8 * const strbeg, U8 ** curpos, const bool utf8_target)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_BACKUP_ONE_LB	\
+	assert(strbeg); assert(curpos)
+
+STATIC SB_enum	S_backup_one_SB(pTHX_ const U8 * const strbeg, U8 ** curpos, const bool utf8_target)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_BACKUP_ONE_SB	\
+	assert(strbeg); assert(curpos)
+
+STATIC WB_enum	S_backup_one_WB(pTHX_ WB_enum * previous, const U8 * const strbeg, U8 ** curpos, const bool utf8_target)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_BACKUP_ONE_WB	\
+	assert(previous); assert(strbeg); assert(curpos)
+
+STATIC char*	S_find_byclass(pTHX_ regexp * prog, const regnode *c, char *s, const char *strend, regmatch_info *reginfo)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_FIND_BYCLASS	\
+	assert(prog); assert(c); assert(s); assert(strend)
+
+STATIC bool	S_isFOO_lc(pTHX_ const U8 classnum, const U8 character)
+			__attribute__warn_unused_result__;
+
+STATIC bool	S_isFOO_utf8_lc(pTHX_ const U8 classnum, const U8* character)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_ISFOO_UTF8_LC	\
+	assert(character)
+
+PERL_STATIC_INLINE bool	S_isGCB(const GCB_enum before, const GCB_enum after)
+			__attribute__warn_unused_result__;
+
+STATIC bool	S_isLB(pTHX_ LB_enum before, LB_enum after, const U8 * const strbeg, const U8 * const curpos, const U8 * const strend, const bool utf8_target)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_ISLB	\
+	assert(strbeg); assert(curpos); assert(strend)
+
+STATIC bool	S_isSB(pTHX_ SB_enum before, SB_enum after, const U8 * const strbeg, const U8 * const curpos, const U8 * const strend, const bool utf8_target)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_ISSB	\
+	assert(strbeg); assert(curpos); assert(strend)
+
+STATIC bool	S_isWB(pTHX_ WB_enum previous, WB_enum before, WB_enum after, const U8 * const strbeg, const U8 * const curpos, const U8 * const strend, const bool utf8_target)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_ISWB	\
+	assert(strbeg); assert(curpos); assert(strend)
+
+STATIC I32	S_reg_check_named_buff_matched(const regexp *rex, const regnode *scan)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_REG_CHECK_NAMED_BUFF_MATCHED	\
+	assert(rex); assert(scan)
+
+STATIC void	S_regcppop(pTHX_ regexp *rex, U32 *maxopenparen_p);
+#define PERL_ARGS_ASSERT_REGCPPOP	\
+	assert(rex); assert(maxopenparen_p)
+STATIC CHECKPOINT	S_regcppush(pTHX_ const regexp *rex, I32 parenfloor, U32 maxopenparen);
+#define PERL_ARGS_ASSERT_REGCPPUSH	\
+	assert(rex)
+STATIC U8*	S_reghop3(U8 *s, SSize_t off, const U8 *lim)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_REGHOP3	\
+	assert(s); assert(lim)
+
+STATIC U8*	S_reghop4(U8 *s, SSize_t off, const U8 *llim, const U8 *rlim)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_REGHOP4	\
+	assert(s); assert(llim); assert(rlim)
+
+STATIC U8*	S_reghopmaybe3(U8 *s, SSize_t off, const U8 *lim)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_REGHOPMAYBE3	\
+	assert(s); assert(lim)
+
+STATIC bool	S_reginclass(pTHX_ regexp * const prog, const regnode * const n, const U8 * const p, const U8 * const p_end, bool const utf8_target)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_REGINCLASS	\
+	assert(n); assert(p); assert(p_end)
+
+STATIC SSize_t	S_regmatch(pTHX_ regmatch_info *reginfo, char *startpos, regnode *prog)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_REGMATCH	\
+	assert(reginfo); assert(startpos); assert(prog)
+
+STATIC I32	S_regrepeat(pTHX_ regexp *prog, char **startposp, const regnode *p, regmatch_info *const reginfo, I32 max, int depth)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_REGREPEAT	\
+	assert(prog); assert(startposp); assert(p); assert(reginfo)
+
+STATIC bool	S_regtry(pTHX_ regmatch_info *reginfo, char **startposp)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_REGTRY	\
+	assert(reginfo); assert(startposp)
+
+STATIC bool	S_to_byte_substr(pTHX_ regexp * prog);
+#define PERL_ARGS_ASSERT_TO_BYTE_SUBSTR	\
+	assert(prog)
+STATIC void	S_to_utf8_substr(pTHX_ regexp * prog);
+#define PERL_ARGS_ASSERT_TO_UTF8_SUBSTR	\
+	assert(prog)
+#endif
+#if defined(PERL_IN_SCOPE_C)
+STATIC void	S_save_pushptri32ptr(pTHX_ void *const ptr1, const I32 i, void *const ptr2, const int type);
+STATIC SV*	S_save_scalar_at(pTHX_ SV **sptr, const U32 flags);
+#define PERL_ARGS_ASSERT_SAVE_SCALAR_AT	\
+	assert(sptr)
+#endif
+#if defined(PERL_IN_SV_C)
+STATIC char *	S_F0convert(NV nv, char *const endbuf, STRLEN *const len);
+#define PERL_ARGS_ASSERT_F0CONVERT	\
+	assert(endbuf); assert(len)
+STATIC void	S_anonymise_cv_maybe(pTHX_ GV *gv, CV *cv);
+#define PERL_ARGS_ASSERT_ANONYMISE_CV_MAYBE	\
+	assert(gv); assert(cv)
+STATIC void	S_assert_uft8_cache_coherent(pTHX_ const char *const func, STRLEN from_cache, STRLEN real, SV *const sv);
+#define PERL_ARGS_ASSERT_ASSERT_UFT8_CACHE_COHERENT	\
+	assert(func); assert(sv)
+STATIC bool	S_curse(pTHX_ SV * const sv, const bool check_refcnt);
+#define PERL_ARGS_ASSERT_CURSE	\
+	assert(sv)
+STATIC I32	S_expect_number(pTHX_ char **const pattern)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_EXPECT_NUMBER	\
+	assert(pattern)
+
+STATIC I32	S_find_array_subscript(pTHX_ const AV *const av, const SV *const val);
+#define PERL_ARGS_ASSERT_FIND_ARRAY_SUBSCRIPT	\
+	assert(val)
+STATIC SV *	S_find_hash_subscript(pTHX_ const HV *const hv, const SV *const val);
+#define PERL_ARGS_ASSERT_FIND_HASH_SUBSCRIPT	\
+	assert(val)
+STATIC SV*	S_find_uninit_var(pTHX_ const OP *const obase, const SV *const uninit_sv, bool match, const char **desc_p);
+#define PERL_ARGS_ASSERT_FIND_UNINIT_VAR	\
+	assert(desc_p)
+STATIC bool	S_glob_2number(pTHX_ GV* const gv);
+#define PERL_ARGS_ASSERT_GLOB_2NUMBER	\
+	assert(gv)
+STATIC void	S_glob_assign_glob(pTHX_ SV *const dstr, SV *const sstr, const int dtype);
+#define PERL_ARGS_ASSERT_GLOB_ASSIGN_GLOB	\
+	assert(dstr); assert(sstr)
+STATIC SV *	S_more_sv(pTHX);
+STATIC void	S_not_a_number(pTHX_ SV *const sv);
+#define PERL_ARGS_ASSERT_NOT_A_NUMBER	\
+	assert(sv)
+STATIC void	S_not_incrementable(pTHX_ SV *const sv);
+#define PERL_ARGS_ASSERT_NOT_INCREMENTABLE	\
+	assert(sv)
+STATIC PTR_TBL_ENT_t *	S_ptr_table_find(PTR_TBL_t *const tbl, const void *const sv)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_PTR_TABLE_FIND	\
+	assert(tbl)
+
+STATIC bool	S_sv_2iuv_common(pTHX_ SV *const sv);
+#define PERL_ARGS_ASSERT_SV_2IUV_COMMON	\
+	assert(sv)
+STATIC void	S_sv_add_arena(pTHX_ char *const ptr, const U32 size, const U32 flags);
+#define PERL_ARGS_ASSERT_SV_ADD_ARENA	\
+	assert(ptr)
+STATIC const char *	S_sv_display(pTHX_ SV *const sv, char *tmpbuf, STRLEN tmpbuf_size);
+#define PERL_ARGS_ASSERT_SV_DISPLAY	\
+	assert(sv); assert(tmpbuf)
+STATIC STRLEN	S_sv_pos_b2u_midway(pTHX_ const U8 *const s, const U8 *const target, const U8 *end, STRLEN endu);
+#define PERL_ARGS_ASSERT_SV_POS_B2U_MIDWAY	\
+	assert(s); assert(target); assert(end)
+STATIC STRLEN	S_sv_pos_u2b_cached(pTHX_ SV *const sv, MAGIC **const mgp, const U8 *const start, const U8 *const send, STRLEN uoffset, STRLEN uoffset0, STRLEN boffset0);
+#define PERL_ARGS_ASSERT_SV_POS_U2B_CACHED	\
+	assert(sv); assert(mgp); assert(start); assert(send)
+STATIC STRLEN	S_sv_pos_u2b_forwards(const U8 *const start, const U8 *const send, STRLEN *const uoffset, bool *const at_end);
+#define PERL_ARGS_ASSERT_SV_POS_U2B_FORWARDS	\
+	assert(start); assert(send); assert(uoffset); assert(at_end)
+STATIC STRLEN	S_sv_pos_u2b_midway(const U8 *const start, const U8 *send, STRLEN uoffset, const STRLEN uend);
+#define PERL_ARGS_ASSERT_SV_POS_U2B_MIDWAY	\
+	assert(start); assert(send)
+PERL_STATIC_INLINE void	S_sv_unglob(pTHX_ SV *const sv, U32 flags);
+#define PERL_ARGS_ASSERT_SV_UNGLOB	\
+	assert(sv)
+STATIC char *	S_uiv_2buf(char *const buf, const IV iv, UV uv, const int is_uv, char **const peob)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_UIV_2BUF	\
+	assert(buf); assert(peob)
+
+STATIC void	S_utf8_mg_len_cache_update(pTHX_ SV *const sv, MAGIC **const mgp, const STRLEN ulen);
+#define PERL_ARGS_ASSERT_UTF8_MG_LEN_CACHE_UPDATE	\
+	assert(sv); assert(mgp)
+STATIC void	S_utf8_mg_pos_cache_update(pTHX_ SV *const sv, MAGIC **const mgp, const STRLEN byte, const STRLEN utf8, const STRLEN blen);
+#define PERL_ARGS_ASSERT_UTF8_MG_POS_CACHE_UPDATE	\
+	assert(sv); assert(mgp)
+STATIC I32	S_visit(pTHX_ SVFUNC_t f, const U32 flags, const U32 mask);
+#define PERL_ARGS_ASSERT_VISIT	\
+	assert(f)
+#  if defined(USE_ITHREADS)
+STATIC SV*	S_sv_dup_common(pTHX_ const SV *const sstr, CLONE_PARAMS *const param)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_SV_DUP_COMMON	\
+	assert(sstr); assert(param)
+
+STATIC SV **	S_sv_dup_inc_multiple(pTHX_ SV *const *source, SV **dest, SSize_t items, CLONE_PARAMS *const param);
+#define PERL_ARGS_ASSERT_SV_DUP_INC_MULTIPLE	\
+	assert(source); assert(dest); assert(param)
+STATIC void	S_unreferenced_to_tmp_stack(pTHX_ AV *const unreferenced);
+#define PERL_ARGS_ASSERT_UNREFERENCED_TO_TMP_STACK	\
+	assert(unreferenced)
+#  endif
+#endif
+#if defined(PERL_IN_SV_C) || defined (PERL_IN_OP_C)
+PERL_CALLCONV SV *	Perl_varname(pTHX_ const GV *const gv, const char gvtype, PADOFFSET targ, const SV *const keyname, I32 aindex, int subscript_type)
+			__attribute__warn_unused_result__;
+
+#endif
+#if defined(PERL_IN_TOKE_C)
+STATIC int	S_ao(pTHX_ int toketype);
+STATIC void	S_check_uni(pTHX);
+STATIC void	S_checkcomma(pTHX_ const char *s, const char *name, const char *what);
+#define PERL_ARGS_ASSERT_CHECKCOMMA	\
+	assert(s); assert(name); assert(what)
+STATIC int	S_deprecate_commaless_var_list(pTHX);
+STATIC char *	S_filter_gets(pTHX_ SV *sv, STRLEN append)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_FILTER_GETS	\
+	assert(sv)
+
+STATIC HV *	S_find_in_my_stash(pTHX_ const char *pkgname, STRLEN len)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_FIND_IN_MY_STASH	\
+	assert(pkgname)
+
+STATIC void	S_force_ident(pTHX_ const char *s, int kind);
+#define PERL_ARGS_ASSERT_FORCE_IDENT	\
+	assert(s)
+STATIC void	S_force_ident_maybe_lex(pTHX_ char pit);
+STATIC void	S_force_next(pTHX_ I32 type);
+STATIC char*	S_force_strict_version(pTHX_ char *s);
+#define PERL_ARGS_ASSERT_FORCE_STRICT_VERSION	\
+	assert(s)
+STATIC char*	S_force_version(pTHX_ char *s, int guessing);
+#define PERL_ARGS_ASSERT_FORCE_VERSION	\
+	assert(s)
+STATIC char*	S_force_word(pTHX_ char *start, int token, int check_keyword, int allow_pack);
+#define PERL_ARGS_ASSERT_FORCE_WORD	\
+	assert(start)
+PERL_STATIC_INLINE SV*	S_get_and_check_backslash_N_name(pTHX_ const char* s, const char* const e)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_GET_AND_CHECK_BACKSLASH_N_NAME	\
+	assert(s); assert(e)
+
+STATIC void	S_incline(pTHX_ const char *s);
+#define PERL_ARGS_ASSERT_INCLINE	\
+	assert(s)
+STATIC int	S_intuit_method(pTHX_ char *s, SV *ioname, CV *cv);
+#define PERL_ARGS_ASSERT_INTUIT_METHOD	\
+	assert(s)
+STATIC int	S_intuit_more(pTHX_ char *s);
+#define PERL_ARGS_ASSERT_INTUIT_MORE	\
+	assert(s)
+STATIC I32	S_lop(pTHX_ I32 f, int x, char *s);
+#define PERL_ARGS_ASSERT_LOP	\
+	assert(s)
+PERL_STATIC_NO_RET void	S_missingterm(pTHX_ char *s)
+			__attribute__noreturn__;
+
+STATIC SV*	S_new_constant(pTHX_ const char *s, STRLEN len, const char *key, STRLEN keylen, SV *sv, SV *pv, const char *type, STRLEN typelen);
+#define PERL_ARGS_ASSERT_NEW_CONSTANT	\
+	assert(key); assert(sv)
+STATIC void	S_no_op(pTHX_ const char *const what, char *s);
+#define PERL_ARGS_ASSERT_NO_OP	\
+	assert(what)
+STATIC void	S_parse_ident(pTHX_ char **s, char **d, char * const e, int allow_package, bool is_utf8);
+#define PERL_ARGS_ASSERT_PARSE_IDENT	\
+	assert(s); assert(d); assert(e)
+STATIC int	S_pending_ident(pTHX);
+STATIC char*	S_scan_const(pTHX_ char *start)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_SCAN_CONST	\
+	assert(start)
+
+STATIC char*	S_scan_formline(pTHX_ char *s)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_SCAN_FORMLINE	\
+	assert(s)
+
+STATIC char*	S_scan_heredoc(pTHX_ char *s)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_SCAN_HEREDOC	\
+	assert(s)
+
+STATIC char*	S_scan_ident(pTHX_ char *s, char *dest, STRLEN destlen, I32 ck_uni);
+#define PERL_ARGS_ASSERT_SCAN_IDENT	\
+	assert(s); assert(dest)
+STATIC char*	S_scan_inputsymbol(pTHX_ char *start)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_SCAN_INPUTSYMBOL	\
+	assert(start)
+
+STATIC char*	S_scan_pat(pTHX_ char *start, I32 type)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_SCAN_PAT	\
+	assert(start)
+
+STATIC char*	S_scan_str(pTHX_ char *start, int keep_quoted, int keep_delims, int re_reparse, char **delimp)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_SCAN_STR	\
+	assert(start)
+
+STATIC char*	S_scan_subst(pTHX_ char *start)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_SCAN_SUBST	\
+	assert(start)
+
+STATIC char*	S_scan_trans(pTHX_ char *start)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_SCAN_TRANS	\
+	assert(start)
+
+STATIC char*	S_scan_word(pTHX_ char *s, char *dest, STRLEN destlen, int allow_package, STRLEN *slp);
+#define PERL_ARGS_ASSERT_SCAN_WORD	\
+	assert(s); assert(dest); assert(slp)
+STATIC char*	S_skipspace_flags(pTHX_ char *s, U32 flags)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_SKIPSPACE_FLAGS	\
+	assert(s)
+
+STATIC I32	S_sublex_done(pTHX)
+			__attribute__warn_unused_result__;
+
+STATIC I32	S_sublex_push(pTHX)
+			__attribute__warn_unused_result__;
+
+STATIC I32	S_sublex_start(pTHX)
+			__attribute__warn_unused_result__;
+
+STATIC char*	S_swallow_bom(pTHX_ U8 *s)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_SWALLOW_BOM	\
+	assert(s)
+
+STATIC char *	S_tokenize_use(pTHX_ int is_use, char *s)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_TOKENIZE_USE	\
+	assert(s)
+
+STATIC SV*	S_tokeq(pTHX_ SV *sv);
+#define PERL_ARGS_ASSERT_TOKEQ	\
+	assert(sv)
+STATIC void	S_update_debugger_info(pTHX_ SV *orig_sv, const char *const buf, STRLEN len);
+STATIC int	S_yywarn(pTHX_ const char *const s, U32 flags);
+#define PERL_ARGS_ASSERT_YYWARN	\
+	assert(s)
+#endif
+#if defined(PERL_IN_UNIVERSAL_C)
+STATIC bool	S_isa_lookup(pTHX_ HV *stash, const char * const name, STRLEN len, U32 flags);
+#define PERL_ARGS_ASSERT_ISA_LOOKUP	\
+	assert(stash); assert(name)
+#endif
+#if defined(PERL_IN_UTF8_C)
+STATIC UV	S__to_utf8_case(pTHX_ const UV uv1, const U8 *p, U8* ustrp, STRLEN *lenp, SV **swashp, const char *normal, const char *special);
+#define PERL_ARGS_ASSERT__TO_UTF8_CASE	\
+	assert(p); assert(ustrp); assert(swashp); assert(normal)
+STATIC UV	S_check_locale_boundary_crossing(pTHX_ const U8* const p, const UV result, U8* const ustrp, STRLEN *lenp)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_CHECK_LOCALE_BOUNDARY_CROSSING	\
+	assert(p); assert(ustrp); assert(lenp)
+
+PERL_STATIC_INLINE bool	S_is_utf8_common(pTHX_ const U8 *const p, SV **swash, const char * const swashname, SV* const invlist)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_IS_UTF8_COMMON	\
+	assert(p); assert(swash); assert(swashname)
+
+STATIC U8*	S_swash_scan_list_line(pTHX_ U8* l, U8* const lend, UV* min, UV* max, UV* val, const bool wants_value, const U8* const typestr)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_SWASH_SCAN_LIST_LINE	\
+	assert(l); assert(lend); assert(min); assert(max); assert(val); assert(typestr)
+
+STATIC SV*	S_swatch_get(pTHX_ SV* swash, UV start, UV span)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_SWATCH_GET	\
+	assert(swash)
+
+STATIC U8	S_to_lower_latin1(const U8 c, U8 *p, STRLEN *lenp)
+			__attribute__warn_unused_result__;
+
+#endif
+#if defined(PERL_IN_UTF8_C) || defined(PERL_IN_PP_C)
+PERL_CALLCONV UV	Perl__to_upper_title_latin1(pTHX_ const U8 c, U8 *p, STRLEN *lenp, const char S_or_s);
+#define PERL_ARGS_ASSERT__TO_UPPER_TITLE_LATIN1	\
+	assert(p); assert(lenp)
+#endif
+#if defined(PERL_IN_UTF8_C) || defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_REGEXEC_C)
+PERL_CALLCONV UV	Perl__to_fold_latin1(pTHX_ const U8 c, U8 *p, STRLEN *lenp, const unsigned int flags);
+#define PERL_ARGS_ASSERT__TO_FOLD_LATIN1	\
+	assert(p); assert(lenp)
+#endif
+#if defined(PERL_IN_UTIL_C)
+STATIC bool	S_ckwarn_common(pTHX_ U32 w);
+STATIC bool	S_invoke_exception_hook(pTHX_ SV *ex, bool warn);
+STATIC SV*	S_mess_alloc(pTHX);
+STATIC SV *	S_with_queued_errors(pTHX_ SV *ex);
+#define PERL_ARGS_ASSERT_WITH_QUEUED_ERRORS	\
+	assert(ex)
+STATIC void	S_xs_version_bootcheck(pTHX_ U32 items, U32 ax, const char *xs_p, STRLEN xs_len);
+#define PERL_ARGS_ASSERT_XS_VERSION_BOOTCHECK	\
+	assert(xs_p)
+#  if defined(PERL_MEM_LOG) && !defined(PERL_MEM_LOG_NOIMPL)
+STATIC void	S_mem_log_common(enum mem_log_type mlt, const UV n, const UV typesize, const char *type_name, const SV *sv, Malloc_t oldalloc, Malloc_t newalloc, const char *filename, const int linenumber, const char *funcname);
+#define PERL_ARGS_ASSERT_MEM_LOG_COMMON	\
+	assert(type_name); assert(filename); assert(funcname)
+#  endif
+#endif
+#if defined(PERL_MEM_LOG)
+PERL_CALLCONV Malloc_t	Perl_mem_log_alloc(const UV nconst, UV typesize, const char *type_name, Malloc_t newalloc, const char *filename, const int linenumber, const char *funcname);
+#define PERL_ARGS_ASSERT_MEM_LOG_ALLOC	\
+	assert(type_name); assert(filename); assert(funcname)
+PERL_CALLCONV Malloc_t	Perl_mem_log_free(Malloc_t oldalloc, const char *filename, const int linenumber, const char *funcname);
+#define PERL_ARGS_ASSERT_MEM_LOG_FREE	\
+	assert(filename); assert(funcname)
+PERL_CALLCONV Malloc_t	Perl_mem_log_realloc(const UV n, const UV typesize, const char *type_name, Malloc_t oldalloc, Malloc_t newalloc, const char *filename, const int linenumber, const char *funcname);
+#define PERL_ARGS_ASSERT_MEM_LOG_REALLOC	\
+	assert(type_name); assert(filename); assert(funcname)
+#endif
+#if defined(PERL_OP_PARENT)
+PERL_CALLCONV OP*	Perl_op_parent(OP *o);
+#define PERL_ARGS_ASSERT_OP_PARENT	\
+	assert(o)
+#endif
+#if defined(PERL_USES_PL_PIDSTATUS) && defined(PERL_IN_UTIL_C)
+STATIC void	S_pidgone(pTHX_ Pid_t pid, int status);
+#endif
+#if defined(UNLINK_ALL_VERSIONS)
+PERL_CALLCONV I32	Perl_unlnk(pTHX_ const char* f);
+#define PERL_ARGS_ASSERT_UNLNK	\
+	assert(f)
+#endif
+#if defined(USE_C_BACKTRACE)
+PERL_CALLCONV bool	Perl_dump_c_backtrace(pTHX_ PerlIO* fp, int max_depth, int skip);
+#define PERL_ARGS_ASSERT_DUMP_C_BACKTRACE	\
+	assert(fp)
+/* PERL_CALLCONV void	free_c_backtrace(pTHX_ Perl_c_backtrace* bt); */
+PERL_CALLCONV Perl_c_backtrace*	Perl_get_c_backtrace(pTHX_ int max_depth, int skip);
+PERL_CALLCONV SV*	Perl_get_c_backtrace_dump(pTHX_ int max_depth, int skip);
+#endif
+#if defined(USE_DTRACE)
+PERL_CALLCONV void	Perl_dtrace_probe_call(pTHX_ CV *cv, bool is_call);
+#define PERL_ARGS_ASSERT_DTRACE_PROBE_CALL	\
+	assert(cv)
+PERL_CALLCONV void	Perl_dtrace_probe_load(pTHX_ const char *name, bool is_loading);
+#define PERL_ARGS_ASSERT_DTRACE_PROBE_LOAD	\
+	assert(name)
+PERL_CALLCONV void	Perl_dtrace_probe_op(pTHX_ const OP *op);
+#define PERL_ARGS_ASSERT_DTRACE_PROBE_OP	\
+	assert(op)
+PERL_CALLCONV void	Perl_dtrace_probe_phase(pTHX_ enum perl_phase phase);
+#endif
+#if defined(USE_ITHREADS)
+PERL_CALLCONV PADOFFSET	Perl_alloccopstash(pTHX_ HV *hv);
+#define PERL_ARGS_ASSERT_ALLOCCOPSTASH	\
+	assert(hv)
+PERL_CALLCONV void*	Perl_any_dup(pTHX_ void* v, const PerlInterpreter* proto_perl)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_ANY_DUP	\
+	assert(proto_perl)
+
+PERL_CALLCONV void	Perl_clone_params_del(CLONE_PARAMS *param);
+#define PERL_ARGS_ASSERT_CLONE_PARAMS_DEL	\
+	assert(param)
+PERL_CALLCONV CLONE_PARAMS *	Perl_clone_params_new(PerlInterpreter *const from, PerlInterpreter *const to)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_CLONE_PARAMS_NEW	\
+	assert(from); assert(to)
+
+PERL_CALLCONV PERL_CONTEXT*	Perl_cx_dup(pTHX_ PERL_CONTEXT* cx, I32 ix, I32 max, CLONE_PARAMS* param)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_CX_DUP	\
+	assert(param)
+
+PERL_CALLCONV DIR*	Perl_dirp_dup(pTHX_ DIR *const dp, CLONE_PARAMS *const param)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_DIRP_DUP	\
+	assert(param)
+
+PERL_CALLCONV PerlIO*	Perl_fp_dup(pTHX_ PerlIO *const fp, const char type, CLONE_PARAMS *const param);
+#define PERL_ARGS_ASSERT_FP_DUP	\
+	assert(param)
+PERL_CALLCONV GP*	Perl_gp_dup(pTHX_ GP *const gp, CLONE_PARAMS *const param)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_GP_DUP	\
+	assert(param)
+
+PERL_CALLCONV HE*	Perl_he_dup(pTHX_ const HE* e, bool shared, CLONE_PARAMS* param)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_HE_DUP	\
+	assert(param)
+
+PERL_CALLCONV HEK*	Perl_hek_dup(pTHX_ HEK* e, CLONE_PARAMS* param)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_HEK_DUP	\
+	assert(param)
+
+PERL_CALLCONV MAGIC*	Perl_mg_dup(pTHX_ MAGIC *mg, CLONE_PARAMS *const param)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_MG_DUP	\
+	assert(param)
+
+PERL_CALLCONV struct mro_meta*	Perl_mro_meta_dup(pTHX_ struct mro_meta* smeta, CLONE_PARAMS* param);
+#define PERL_ARGS_ASSERT_MRO_META_DUP	\
+	assert(smeta); assert(param)
+PERL_CALLCONV OP*	Perl_newPADOP(pTHX_ I32 type, I32 flags, SV* sv)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_NEWPADOP	\
+	assert(sv)
+
+PERL_CALLCONV PADLIST *	Perl_padlist_dup(pTHX_ PADLIST *srcpad, CLONE_PARAMS *param)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_PADLIST_DUP	\
+	assert(srcpad); assert(param)
+
+PERL_CALLCONV PADNAME *	Perl_padname_dup(pTHX_ PADNAME *src, CLONE_PARAMS *param)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_PADNAME_DUP	\
+	assert(src); assert(param)
+
+PERL_CALLCONV PADNAMELIST *	Perl_padnamelist_dup(pTHX_ PADNAMELIST *srcpad, CLONE_PARAMS *param)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_PADNAMELIST_DUP	\
+	assert(srcpad); assert(param)
+
+PERL_CALLCONV yy_parser*	Perl_parser_dup(pTHX_ const yy_parser *const proto, CLONE_PARAMS *const param);
+#define PERL_ARGS_ASSERT_PARSER_DUP	\
+	assert(param)
+PERL_CALLCONV PerlInterpreter*	perl_clone(PerlInterpreter *proto_perl, UV flags);
+#define PERL_ARGS_ASSERT_PERL_CLONE	\
+	assert(proto_perl)
+PERL_CALLCONV void	Perl_re_dup_guts(pTHX_ const REGEXP *sstr, REGEXP *dstr, CLONE_PARAMS* param);
+#define PERL_ARGS_ASSERT_RE_DUP_GUTS	\
+	assert(sstr); assert(dstr); assert(param)
+PERL_CALLCONV void*	Perl_regdupe_internal(pTHX_ REGEXP * const r, CLONE_PARAMS* param);
+#define PERL_ARGS_ASSERT_REGDUPE_INTERNAL	\
+	assert(r); assert(param)
+PERL_CALLCONV void	Perl_rvpv_dup(pTHX_ SV *const dstr, const SV *const sstr, CLONE_PARAMS *const param);
+#define PERL_ARGS_ASSERT_RVPV_DUP	\
+	assert(dstr); assert(sstr); assert(param)
+PERL_CALLCONV PERL_SI*	Perl_si_dup(pTHX_ PERL_SI* si, CLONE_PARAMS* param)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_SI_DUP	\
+	assert(param)
+
+PERL_CALLCONV ANY*	Perl_ss_dup(pTHX_ PerlInterpreter* proto_perl, CLONE_PARAMS* param)
+			__attribute__malloc__
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_SS_DUP	\
+	assert(proto_perl); assert(param)
+
+PERL_CALLCONV SV*	Perl_sv_dup(pTHX_ const SV *const sstr, CLONE_PARAMS *const param)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_SV_DUP	\
+	assert(param)
+
+PERL_CALLCONV SV*	Perl_sv_dup_inc(pTHX_ const SV *const sstr, CLONE_PARAMS *const param)
+			__attribute__warn_unused_result__;
+#define PERL_ARGS_ASSERT_SV_DUP_INC	\
+	assert(param)
+
+#endif
+#if defined(USE_LOCALE)     && (defined(PERL_IN_LOCALE_C) || defined (PERL_EXT_POSIX))
+PERL_CALLCONV bool	Perl__is_cur_LC_category_utf8(pTHX_ int category);
+#endif
+#if defined(USE_LOCALE) && defined(PERL_IN_LOCALE_C)
+STATIC char*	S_stdize_locale(pTHX_ char* locs);
+#define PERL_ARGS_ASSERT_STDIZE_LOCALE	\
+	assert(locs)
+#endif
+#if defined(USE_LOCALE_COLLATE)
+PERL_CALLCONV int	Perl_magic_setcollxfrm(pTHX_ SV* sv, MAGIC* mg);
+#define PERL_ARGS_ASSERT_MAGIC_SETCOLLXFRM	\
+	assert(sv); assert(mg)
+PERL_CALLCONV char*	Perl_mem_collxfrm(pTHX_ const char* s, STRLEN len, STRLEN* xlen);
+#define PERL_ARGS_ASSERT_MEM_COLLXFRM	\
+	assert(s); assert(xlen)
+/* PERL_CALLCONV char*	sv_collxfrm(pTHX_ SV *const sv, STRLEN *const nxp); */
+PERL_CALLCONV char*	Perl_sv_collxfrm_flags(pTHX_ SV *const sv, STRLEN *const nxp, I32 const flags);
+#define PERL_ARGS_ASSERT_SV_COLLXFRM_FLAGS	\
+	assert(sv); assert(nxp)
+#endif
+#if defined(USE_PERLIO)
+PERL_CALLCONV void	Perl_PerlIO_clearerr(pTHX_ PerlIO *f);
+PERL_CALLCONV int	Perl_PerlIO_close(pTHX_ PerlIO *f);
+PERL_CALLCONV int	Perl_PerlIO_eof(pTHX_ PerlIO *f);
+PERL_CALLCONV int	Perl_PerlIO_error(pTHX_ PerlIO *f);
+PERL_CALLCONV int	Perl_PerlIO_fileno(pTHX_ PerlIO *f);
+PERL_CALLCONV int	Perl_PerlIO_fill(pTHX_ PerlIO *f);
+PERL_CALLCONV int	Perl_PerlIO_flush(pTHX_ PerlIO *f);
+PERL_CALLCONV STDCHAR *	Perl_PerlIO_get_base(pTHX_ PerlIO *f);
+PERL_CALLCONV SSize_t	Perl_PerlIO_get_bufsiz(pTHX_ PerlIO *f)
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV SSize_t	Perl_PerlIO_get_cnt(pTHX_ PerlIO *f)
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV STDCHAR *	Perl_PerlIO_get_ptr(pTHX_ PerlIO *f);
+PERL_CALLCONV SSize_t	Perl_PerlIO_read(pTHX_ PerlIO *f, void *vbuf, Size_t count);
+#define PERL_ARGS_ASSERT_PERLIO_READ	\
+	assert(vbuf)
+PERL_CALLCONV void	Perl_PerlIO_restore_errno(pTHX_ PerlIO *f);
+PERL_CALLCONV void	Perl_PerlIO_save_errno(pTHX_ PerlIO *f);
+PERL_CALLCONV int	Perl_PerlIO_seek(pTHX_ PerlIO *f, Off_t offset, int whence);
+PERL_CALLCONV void	Perl_PerlIO_set_cnt(pTHX_ PerlIO *f, SSize_t cnt);
+PERL_CALLCONV void	Perl_PerlIO_set_ptrcnt(pTHX_ PerlIO *f, STDCHAR *ptr, SSize_t cnt);
+PERL_CALLCONV void	Perl_PerlIO_setlinebuf(pTHX_ PerlIO *f);
+PERL_CALLCONV PerlIO *	Perl_PerlIO_stderr(pTHX)
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV PerlIO *	Perl_PerlIO_stdin(pTHX)
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV PerlIO *	Perl_PerlIO_stdout(pTHX)
+			__attribute__warn_unused_result__;
+
+PERL_CALLCONV Off_t	Perl_PerlIO_tell(pTHX_ PerlIO *f);
+PERL_CALLCONV SSize_t	Perl_PerlIO_unread(pTHX_ PerlIO *f, const void *vbuf, Size_t count);
+#define PERL_ARGS_ASSERT_PERLIO_UNREAD	\
+	assert(vbuf)
+PERL_CALLCONV SSize_t	Perl_PerlIO_write(pTHX_ PerlIO *f, const void *vbuf, Size_t count);
+#define PERL_ARGS_ASSERT_PERLIO_WRITE	\
+	assert(vbuf)
+#endif
+#if defined(USE_QUADMATH)
+PERL_CALLCONV bool	Perl_quadmath_format_needed(const char* format);
+#define PERL_ARGS_ASSERT_QUADMATH_FORMAT_NEEDED	\
+	assert(format)
+PERL_CALLCONV const char*	Perl_quadmath_format_single(const char* format);
+#define PERL_ARGS_ASSERT_QUADMATH_FORMAT_SINGLE	\
+	assert(format)
+#endif
+#if defined(WIN32)
+PERL_CALLCONV char*	Perl_my_setlocale(pTHX_ int category, const char* locale)
+			__attribute__pure__;
+
+PERL_CALLCONV_NO_RET void	win32_croak_not_implemented(const char * fname)
+			__attribute__noreturn__;
+#define PERL_ARGS_ASSERT_WIN32_CROAK_NOT_IMPLEMENTED	\
+	assert(fname)
+
+#endif
+#if defined(WIN32) || defined(__SYMBIAN32__) || defined(VMS)
+PERL_CALLCONV int	Perl_do_aspawn(pTHX_ SV* really, SV** mark, SV** sp);
+#define PERL_ARGS_ASSERT_DO_ASPAWN	\
+	assert(mark); assert(sp)
+PERL_CALLCONV int	Perl_do_spawn(pTHX_ char* cmd);
+#define PERL_ARGS_ASSERT_DO_SPAWN	\
+	assert(cmd)
+PERL_CALLCONV int	Perl_do_spawn_nowait(pTHX_ char* cmd);
+#define PERL_ARGS_ASSERT_DO_SPAWN_NOWAIT	\
+	assert(cmd)
+#endif
+#if defined(_MSC_VER)
+PERL_CALLCONV int	Perl_magic_regdatum_set(pTHX_ SV* sv, MAGIC* mg);
+#define PERL_ARGS_ASSERT_MAGIC_REGDATUM_SET	\
+	assert(sv); assert(mg)
+#endif
+#ifdef PERL_CORE
+#  include "pp_proto.h"
+#endif
+END_EXTERN_C
+
+/* ex: set ro: */
diff --git a/lib/5.24.1/x86_64-linux/CORE/reentr.h b/lib/5.24.1/x86_64-linux/CORE/reentr.h
new file mode 100644
index 00000000..c2688519
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/reentr.h
@@ -0,0 +1,1439 @@
+/* -*- buffer-read-only: t -*-
+ *
+ *    reentr.h
+ *
+ *    Copyright (C) 2002, 2003, 2005, 2006, 2007 by Larry Wall and others
+ *
+ *    You may distribute under the terms of either the GNU General Public
+ *    License or the Artistic License, as specified in the README file.
+ *
+ * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+ * This file is built by regen/reentr.pl from data in regen/reentr.pl.
+ * Any changes made here will be lost!
+ */
+
+#ifndef REENTR_H
+#define REENTR_H
+
+/* If compiling for a threaded perl, we will macro-wrap the system/library
+ * interfaces (e.g. getpwent()) which have threaded versions
+ * (e.g. getpwent_r()), which will handle things correctly for
+ * the Perl interpreter, but otherwise (for XS) the wrapping does
+ * not take place.  See L<perlxs/Thread-aware system interfaces>.
+ */
+
+#ifndef PERL_REENTR_API
+# if defined(PERL_CORE) || defined(PERL_EXT)
+#  define PERL_REENTR_API 1
+# else
+#  define PERL_REENTR_API 0
+# endif
+#endif
+
+#ifdef USE_REENTRANT_API
+ 
+/* Deprecations: some platforms have the said reentrant interfaces
+ * but they are declared obsolete and are not to be used.  Often this
+ * means that the platform has threadsafed the interfaces (hopefully).
+ * All this is OS version dependent, so we are of course fooling ourselves.
+ * If you know of more deprecations on some platforms, please add your own
+ * (by editing reentr.pl, mind!) */
+
+#ifdef __hpux
+#   undef HAS_CRYPT_R
+#   undef HAS_ENDGRENT_R
+#   undef HAS_ENDPWENT_R
+#   undef HAS_GETGRENT_R
+#   undef HAS_GETPWENT_R
+#   undef HAS_SETLOCALE_R
+#   undef HAS_STRERROR_R
+#   define NETDB_R_OBSOLETE
+#endif
+
+#if defined(__osf__) && defined(__alpha) /* Tru64 aka Digital UNIX */
+#   undef HAS_CRYPT_R
+#   undef HAS_STRERROR_R
+#   define NETDB_R_OBSOLETE
+#endif
+
+/*
+ * As of OpenBSD 3.7, reentrant functions are now working, they just are
+ * incompatible with everyone else.  To make OpenBSD happy, we have to
+ * memzero out certain structures before calling the functions.
+ */
+#if defined(__OpenBSD__)
+#    define REENTR_MEMZERO(a,b) memzero(a,b)
+#else
+#    define REENTR_MEMZERO(a,b) 0
+#endif 
+
+#ifdef NETDB_R_OBSOLETE
+#   undef HAS_ENDHOSTENT_R
+#   undef HAS_ENDNETENT_R
+#   undef HAS_ENDPROTOENT_R
+#   undef HAS_ENDSERVENT_R
+#   undef HAS_GETHOSTBYADDR_R
+#   undef HAS_GETHOSTBYNAME_R
+#   undef HAS_GETHOSTENT_R
+#   undef HAS_GETNETBYADDR_R
+#   undef HAS_GETNETBYNAME_R
+#   undef HAS_GETNETENT_R
+#   undef HAS_GETPROTOBYNAME_R
+#   undef HAS_GETPROTOBYNUMBER_R
+#   undef HAS_GETPROTOENT_R
+#   undef HAS_GETSERVBYNAME_R
+#   undef HAS_GETSERVBYPORT_R
+#   undef HAS_GETSERVENT_R
+#   undef HAS_SETHOSTENT_R
+#   undef HAS_SETNETENT_R
+#   undef HAS_SETPROTOENT_R
+#   undef HAS_SETSERVENT_R
+#endif
+
+#ifdef I_PWD
+#   include <pwd.h>
+#endif
+#ifdef I_GRP
+#   include <grp.h>
+#endif
+#ifdef I_NETDB
+#   include <netdb.h>
+#endif
+#ifdef I_CRYPT
+#   ifdef I_CRYPT
+#       include <crypt.h>
+#   endif
+#endif
+#ifdef HAS_GETSPNAM_R
+#   ifdef I_SHADOW
+#       include <shadow.h>
+#   endif
+#endif
+
+#define REENTRANT_PROTO_B_B	1
+#define REENTRANT_PROTO_B_BI	2
+#define REENTRANT_PROTO_B_BW	3
+#define REENTRANT_PROTO_B_CCD	4
+#define REENTRANT_PROTO_B_CCS	5
+#define REENTRANT_PROTO_B_IBI	6
+#define REENTRANT_PROTO_B_IBW	7
+#define REENTRANT_PROTO_B_SB	8
+#define REENTRANT_PROTO_B_SBI	9
+#define REENTRANT_PROTO_I_BI	10
+#define REENTRANT_PROTO_I_BW	11
+#define REENTRANT_PROTO_I_CCSBWR	12
+#define REENTRANT_PROTO_I_CCSD	13
+#define REENTRANT_PROTO_I_CII	14
+#define REENTRANT_PROTO_I_CIISD	15
+#define REENTRANT_PROTO_I_CSBI	16
+#define REENTRANT_PROTO_I_CSBIR	17
+#define REENTRANT_PROTO_I_CSBWR	18
+#define REENTRANT_PROTO_I_CSBWRE	19
+#define REENTRANT_PROTO_I_CSD	20
+#define REENTRANT_PROTO_I_CWISBWRE	21
+#define REENTRANT_PROTO_I_CWISD	22
+#define REENTRANT_PROTO_I_D	23
+#define REENTRANT_PROTO_I_H	24
+#define REENTRANT_PROTO_I_IBI	25
+#define REENTRANT_PROTO_I_IBW	26
+#define REENTRANT_PROTO_I_ICBI	27
+#define REENTRANT_PROTO_I_ICSBWR	28
+#define REENTRANT_PROTO_I_ICSD	29
+#define REENTRANT_PROTO_I_ID	30
+#define REENTRANT_PROTO_I_IISD	31
+#define REENTRANT_PROTO_I_ISBWR	32
+#define REENTRANT_PROTO_I_ISD	33
+#define REENTRANT_PROTO_I_LISBI	34
+#define REENTRANT_PROTO_I_LISD	35
+#define REENTRANT_PROTO_I_SB	36
+#define REENTRANT_PROTO_I_SBI	37
+#define REENTRANT_PROTO_I_SBIE	38
+#define REENTRANT_PROTO_I_SBIH	39
+#define REENTRANT_PROTO_I_SBIR	40
+#define REENTRANT_PROTO_I_SBWR	41
+#define REENTRANT_PROTO_I_SBWRE	42
+#define REENTRANT_PROTO_I_SD	43
+#define REENTRANT_PROTO_I_TISD	44
+#define REENTRANT_PROTO_I_TS	45
+#define REENTRANT_PROTO_I_TSBI	46
+#define REENTRANT_PROTO_I_TSBIR	47
+#define REENTRANT_PROTO_I_TSBWR	48
+#define REENTRANT_PROTO_I_TSR	49
+#define REENTRANT_PROTO_I_TsISBWRE	50
+#define REENTRANT_PROTO_I_UISBWRE	51
+#define REENTRANT_PROTO_I_uISBWRE	52
+#define REENTRANT_PROTO_S_CBI	53
+#define REENTRANT_PROTO_S_CCSBI	54
+#define REENTRANT_PROTO_S_CIISBIE	55
+#define REENTRANT_PROTO_S_CSBI	56
+#define REENTRANT_PROTO_S_CSBIE	57
+#define REENTRANT_PROTO_S_CWISBIE	58
+#define REENTRANT_PROTO_S_CWISBWIE	59
+#define REENTRANT_PROTO_S_ICSBI	60
+#define REENTRANT_PROTO_S_ISBI	61
+#define REENTRANT_PROTO_S_LISBI	62
+#define REENTRANT_PROTO_S_SBI	63
+#define REENTRANT_PROTO_S_SBIE	64
+#define REENTRANT_PROTO_S_SBW	65
+#define REENTRANT_PROTO_S_TISBI	66
+#define REENTRANT_PROTO_S_TSBI	67
+#define REENTRANT_PROTO_S_TSBIE	68
+#define REENTRANT_PROTO_S_TWISBIE	69
+#define REENTRANT_PROTO_V_D	70
+#define REENTRANT_PROTO_V_H	71
+#define REENTRANT_PROTO_V_ID	72
+
+/* Defines for indicating which special features are supported. */
+
+/* The getgrent getgrgid getgrnam using buffer? */
+
+#if defined(HAS_GETGRENT_R) && (GETGRENT_R_PROTO == REENTRANT_PROTO_I_SBWR || GETGRENT_R_PROTO == REENTRANT_PROTO_I_SBIR || GETGRENT_R_PROTO == REENTRANT_PROTO_S_SBW || GETGRENT_R_PROTO == REENTRANT_PROTO_S_SBI || GETGRENT_R_PROTO == REENTRANT_PROTO_I_SBI || GETGRENT_R_PROTO == REENTRANT_PROTO_I_SBIH)
+#   define GETGRENT_R_HAS_BUFFER
+#else
+#   undef  GETGRENT_R_HAS_BUFFER
+#endif
+#if defined(HAS_GETGRGID_R) && (GETGRGID_R_PROTO == REENTRANT_PROTO_I_TSBWR || GETGRGID_R_PROTO == REENTRANT_PROTO_I_TSBIR || GETGRGID_R_PROTO == REENTRANT_PROTO_I_TSBI || GETGRGID_R_PROTO == REENTRANT_PROTO_S_TSBI)
+#   define GETGRGID_R_HAS_BUFFER
+#else
+#   undef  GETGRGID_R_HAS_BUFFER
+#endif
+#if defined(HAS_GETGRNAM_R) && (GETGRNAM_R_PROTO == REENTRANT_PROTO_I_CSBWR || GETGRNAM_R_PROTO == REENTRANT_PROTO_I_CSBIR || GETGRNAM_R_PROTO == REENTRANT_PROTO_S_CBI || GETGRNAM_R_PROTO == REENTRANT_PROTO_I_CSBI || GETGRNAM_R_PROTO == REENTRANT_PROTO_S_CSBI)
+#   define GETGRNAM_R_HAS_BUFFER
+#else
+#   undef  GETGRNAM_R_HAS_BUFFER
+#endif
+
+/* Any of the getgrent getgrgid getgrnam using buffer? */
+
+#if (defined(GETGRENT_R_HAS_BUFFER) || defined(GETGRGID_R_HAS_BUFFER) || defined(GETGRNAM_R_HAS_BUFFER))
+#   define USE_GRENT_BUFFER
+#else
+#   undef  USE_GRENT_BUFFER
+#endif
+
+/* The getgrent getgrgid getgrnam using ptr? */
+
+#if defined(HAS_GETGRENT_R) && (GETGRENT_R_PROTO == REENTRANT_PROTO_I_SBWR || GETGRENT_R_PROTO == REENTRANT_PROTO_I_SBIR)
+#   define GETGRENT_R_HAS_PTR
+#else
+#   undef  GETGRENT_R_HAS_PTR
+#endif
+#if defined(HAS_GETGRGID_R) && (GETGRGID_R_PROTO == REENTRANT_PROTO_I_TSBWR || GETGRGID_R_PROTO == REENTRANT_PROTO_I_TSBIR)
+#   define GETGRGID_R_HAS_PTR
+#else
+#   undef  GETGRGID_R_HAS_PTR
+#endif
+#if defined(HAS_GETGRNAM_R) && (GETGRNAM_R_PROTO == REENTRANT_PROTO_I_CSBWR || GETGRNAM_R_PROTO == REENTRANT_PROTO_I_CSBIR)
+#   define GETGRNAM_R_HAS_PTR
+#else
+#   undef  GETGRNAM_R_HAS_PTR
+#endif
+
+/* Any of the getgrent getgrgid getgrnam using ptr? */
+
+#if (defined(GETGRENT_R_HAS_PTR) || defined(GETGRGID_R_HAS_PTR) || defined(GETGRNAM_R_HAS_PTR))
+#   define USE_GRENT_PTR
+#else
+#   undef  USE_GRENT_PTR
+#endif
+
+/* The getpwent getpwnam getpwuid using ptr? */
+
+#if defined(HAS_GETPWENT_R) && (GETPWENT_R_PROTO == REENTRANT_PROTO_I_SBWR || GETPWENT_R_PROTO == REENTRANT_PROTO_I_SBIR)
+#   define GETPWENT_R_HAS_PTR
+#else
+#   undef  GETPWENT_R_HAS_PTR
+#endif
+#if defined(HAS_GETPWNAM_R) && (GETPWNAM_R_PROTO == REENTRANT_PROTO_I_CSBWR || GETPWNAM_R_PROTO == REENTRANT_PROTO_I_CSBIR)
+#   define GETPWNAM_R_HAS_PTR
+#else
+#   undef  GETPWNAM_R_HAS_PTR
+#endif
+#if defined(HAS_GETPWUID_R) && (GETPWUID_R_PROTO == REENTRANT_PROTO_I_TSBWR || GETPWUID_R_PROTO == REENTRANT_PROTO_I_TSBIR)
+#   define GETPWUID_R_HAS_PTR
+#else
+#   undef  GETPWUID_R_HAS_PTR
+#endif
+
+/* Any of the getpwent getpwnam getpwuid using ptr? */
+
+#if (defined(GETPWENT_R_HAS_PTR) || defined(GETPWNAM_R_HAS_PTR) || defined(GETPWUID_R_HAS_PTR))
+#   define USE_PWENT_PTR
+#else
+#   undef  USE_PWENT_PTR
+#endif
+
+/* The getspent getspnam using ptr? */
+
+#if defined(HAS_GETSPNAM_R) && (GETSPNAM_R_PROTO == REENTRANT_PROTO_I_CSBWR)
+#   define GETSPNAM_R_HAS_PTR
+#else
+#   undef  GETSPNAM_R_HAS_PTR
+#endif
+
+/* Any of the getspent getspnam using ptr? */
+
+#if (defined(GETSPENT_R_HAS_PTR) || defined(GETSPNAM_R_HAS_PTR))
+#   define USE_SPENT_PTR
+#else
+#   undef  USE_SPENT_PTR
+#endif
+
+/* The getgrent getgrgid getgrnam setgrent endgrent using fptr? */
+
+#if defined(HAS_GETGRENT_R) && (GETGRENT_R_PROTO == REENTRANT_PROTO_I_SBIH)
+#   define GETGRENT_R_HAS_FPTR
+#else
+#   undef  GETGRENT_R_HAS_FPTR
+#endif
+#if defined(HAS_SETGRENT_R) && (SETGRENT_R_PROTO == REENTRANT_PROTO_I_H || SETGRENT_R_PROTO == REENTRANT_PROTO_V_H)
+#   define SETGRENT_R_HAS_FPTR
+#else
+#   undef  SETGRENT_R_HAS_FPTR
+#endif
+#if defined(HAS_ENDGRENT_R) && (ENDGRENT_R_PROTO == REENTRANT_PROTO_I_H || ENDGRENT_R_PROTO == REENTRANT_PROTO_V_H)
+#   define ENDGRENT_R_HAS_FPTR
+#else
+#   undef  ENDGRENT_R_HAS_FPTR
+#endif
+
+/* Any of the getgrent getgrgid getgrnam setgrent endgrent using fptr? */
+
+#if (defined(GETGRENT_R_HAS_FPTR) || defined(GETGRGID_R_HAS_FPTR) || defined(GETGRNAM_R_HAS_FPTR) || defined(SETGRENT_R_HAS_FPTR) || defined(ENDGRENT_R_HAS_FPTR))
+#   define USE_GRENT_FPTR
+#else
+#   undef  USE_GRENT_FPTR
+#endif
+
+/* The getpwent getpwnam getpwuid setpwent endpwent using fptr? */
+
+#if defined(HAS_GETPWENT_R) && (GETPWENT_R_PROTO == REENTRANT_PROTO_I_SBIH)
+#   define GETPWENT_R_HAS_FPTR
+#else
+#   undef  GETPWENT_R_HAS_FPTR
+#endif
+#if defined(HAS_SETPWENT_R) && (SETPWENT_R_PROTO == REENTRANT_PROTO_I_H || SETPWENT_R_PROTO == REENTRANT_PROTO_V_H)
+#   define SETPWENT_R_HAS_FPTR
+#else
+#   undef  SETPWENT_R_HAS_FPTR
+#endif
+#if defined(HAS_ENDPWENT_R) && (ENDPWENT_R_PROTO == REENTRANT_PROTO_I_H || ENDPWENT_R_PROTO == REENTRANT_PROTO_V_H)
+#   define ENDPWENT_R_HAS_FPTR
+#else
+#   undef  ENDPWENT_R_HAS_FPTR
+#endif
+
+/* Any of the getpwent getpwnam getpwuid setpwent endpwent using fptr? */
+
+#if (defined(GETPWENT_R_HAS_FPTR) || defined(GETPWNAM_R_HAS_FPTR) || defined(GETPWUID_R_HAS_FPTR) || defined(SETPWENT_R_HAS_FPTR) || defined(ENDPWENT_R_HAS_FPTR))
+#   define USE_PWENT_FPTR
+#else
+#   undef  USE_PWENT_FPTR
+#endif
+
+/* The getpwent getpwgid getpwnam using buffer? */
+
+#if defined(HAS_GETPWENT_R) && (GETPWENT_R_PROTO == REENTRANT_PROTO_I_SBWR || GETPWENT_R_PROTO == REENTRANT_PROTO_I_SBIR || GETPWENT_R_PROTO == REENTRANT_PROTO_S_SBW || GETPWENT_R_PROTO == REENTRANT_PROTO_S_SBI || GETPWENT_R_PROTO == REENTRANT_PROTO_I_SBI || GETPWENT_R_PROTO == REENTRANT_PROTO_I_SBIH)
+#   define GETPWENT_R_HAS_BUFFER
+#else
+#   undef  GETPWENT_R_HAS_BUFFER
+#endif
+#if defined(HAS_GETPWNAM_R) && (GETPWNAM_R_PROTO == REENTRANT_PROTO_I_CSBWR || GETPWNAM_R_PROTO == REENTRANT_PROTO_I_CSBIR || GETPWNAM_R_PROTO == REENTRANT_PROTO_S_CSBI || GETPWNAM_R_PROTO == REENTRANT_PROTO_I_CSBI)
+#   define GETPWNAM_R_HAS_BUFFER
+#else
+#   undef  GETPWNAM_R_HAS_BUFFER
+#endif
+
+/* Any of the getpwent getpwgid getpwnam using buffer? */
+
+#if (defined(GETPWENT_R_HAS_BUFFER) || defined(GETPWGID_R_HAS_BUFFER) || defined(GETPWNAM_R_HAS_BUFFER))
+#   define USE_PWENT_BUFFER
+#else
+#   undef  USE_PWENT_BUFFER
+#endif
+
+/* The gethostent gethostbyaddr gethostbyname using ptr? */
+
+#if defined(HAS_GETHOSTENT_R) && (GETHOSTENT_R_PROTO == REENTRANT_PROTO_I_SBWRE)
+#   define GETHOSTENT_R_HAS_PTR
+#else
+#   undef  GETHOSTENT_R_HAS_PTR
+#endif
+#if defined(HAS_GETHOSTBYADDR_R) && (GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_I_CWISBWRE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_I_TsISBWRE)
+#   define GETHOSTBYADDR_R_HAS_PTR
+#else
+#   undef  GETHOSTBYADDR_R_HAS_PTR
+#endif
+#if defined(HAS_GETHOSTBYNAME_R) && (GETHOSTBYNAME_R_PROTO == REENTRANT_PROTO_I_CSBWRE)
+#   define GETHOSTBYNAME_R_HAS_PTR
+#else
+#   undef  GETHOSTBYNAME_R_HAS_PTR
+#endif
+
+/* Any of the gethostent gethostbyaddr gethostbyname using ptr? */
+
+#if (defined(GETHOSTENT_R_HAS_PTR) || defined(GETHOSTBYADDR_R_HAS_PTR) || defined(GETHOSTBYNAME_R_HAS_PTR))
+#   define USE_HOSTENT_PTR
+#else
+#   undef  USE_HOSTENT_PTR
+#endif
+
+/* The getnetent getnetbyaddr getnetbyname using ptr? */
+
+#if defined(HAS_GETNETENT_R) && (GETNETENT_R_PROTO == REENTRANT_PROTO_I_SBWRE)
+#   define GETNETENT_R_HAS_PTR
+#else
+#   undef  GETNETENT_R_HAS_PTR
+#endif
+#if defined(HAS_GETNETBYADDR_R) && (GETNETBYADDR_R_PROTO == REENTRANT_PROTO_I_UISBWRE || GETNETBYADDR_R_PROTO == REENTRANT_PROTO_I_uISBWRE)
+#   define GETNETBYADDR_R_HAS_PTR
+#else
+#   undef  GETNETBYADDR_R_HAS_PTR
+#endif
+#if defined(HAS_GETNETBYNAME_R) && (GETNETBYNAME_R_PROTO == REENTRANT_PROTO_I_CSBWRE)
+#   define GETNETBYNAME_R_HAS_PTR
+#else
+#   undef  GETNETBYNAME_R_HAS_PTR
+#endif
+
+/* Any of the getnetent getnetbyaddr getnetbyname using ptr? */
+
+#if (defined(GETNETENT_R_HAS_PTR) || defined(GETNETBYADDR_R_HAS_PTR) || defined(GETNETBYNAME_R_HAS_PTR))
+#   define USE_NETENT_PTR
+#else
+#   undef  USE_NETENT_PTR
+#endif
+
+/* The getprotoent getprotobyname getprotobynumber using ptr? */
+
+#if defined(HAS_GETPROTOENT_R) && (GETPROTOENT_R_PROTO == REENTRANT_PROTO_I_SBWR)
+#   define GETPROTOENT_R_HAS_PTR
+#else
+#   undef  GETPROTOENT_R_HAS_PTR
+#endif
+#if defined(HAS_GETPROTOBYNAME_R) && (GETPROTOBYNAME_R_PROTO == REENTRANT_PROTO_I_CSBWR)
+#   define GETPROTOBYNAME_R_HAS_PTR
+#else
+#   undef  GETPROTOBYNAME_R_HAS_PTR
+#endif
+#if defined(HAS_GETPROTOBYNUMBER_R) && (GETPROTOBYNUMBER_R_PROTO == REENTRANT_PROTO_I_ISBWR)
+#   define GETPROTOBYNUMBER_R_HAS_PTR
+#else
+#   undef  GETPROTOBYNUMBER_R_HAS_PTR
+#endif
+
+/* Any of the getprotoent getprotobyname getprotobynumber using ptr? */
+
+#if (defined(GETPROTOENT_R_HAS_PTR) || defined(GETPROTOBYNAME_R_HAS_PTR) || defined(GETPROTOBYNUMBER_R_HAS_PTR))
+#   define USE_PROTOENT_PTR
+#else
+#   undef  USE_PROTOENT_PTR
+#endif
+
+/* The getservent getservbyname getservbyport using ptr? */
+
+#if defined(HAS_GETSERVENT_R) && (GETSERVENT_R_PROTO == REENTRANT_PROTO_I_SBWR)
+#   define GETSERVENT_R_HAS_PTR
+#else
+#   undef  GETSERVENT_R_HAS_PTR
+#endif
+#if defined(HAS_GETSERVBYNAME_R) && (GETSERVBYNAME_R_PROTO == REENTRANT_PROTO_I_CCSBWR)
+#   define GETSERVBYNAME_R_HAS_PTR
+#else
+#   undef  GETSERVBYNAME_R_HAS_PTR
+#endif
+#if defined(HAS_GETSERVBYPORT_R) && (GETSERVBYPORT_R_PROTO == REENTRANT_PROTO_I_ICSBWR)
+#   define GETSERVBYPORT_R_HAS_PTR
+#else
+#   undef  GETSERVBYPORT_R_HAS_PTR
+#endif
+
+/* Any of the getservent getservbyname getservbyport using ptr? */
+
+#if (defined(GETSERVENT_R_HAS_PTR) || defined(GETSERVBYNAME_R_HAS_PTR) || defined(GETSERVBYPORT_R_HAS_PTR))
+#   define USE_SERVENT_PTR
+#else
+#   undef  USE_SERVENT_PTR
+#endif
+
+/* The gethostent gethostbyaddr gethostbyname using buffer? */
+
+#if defined(HAS_GETHOSTENT_R) && (GETHOSTENT_R_PROTO == REENTRANT_PROTO_I_SBWRE || GETHOSTENT_R_PROTO == REENTRANT_PROTO_I_SBIE || GETHOSTENT_R_PROTO == REENTRANT_PROTO_S_SBIE || GETHOSTENT_R_PROTO == REENTRANT_PROTO_S_SBI || GETHOSTENT_R_PROTO == REENTRANT_PROTO_I_SBI)
+#   define GETHOSTENT_R_HAS_BUFFER
+#else
+#   undef  GETHOSTENT_R_HAS_BUFFER
+#endif
+#if defined(HAS_GETHOSTBYADDR_R) && (GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_I_CWISBWRE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_CWISBWIE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_CWISBIE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_TWISBIE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_CIISBIE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_CSBIE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_TSBIE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_I_TsISBWRE)
+#   define GETHOSTBYADDR_R_HAS_BUFFER
+#else
+#   undef  GETHOSTBYADDR_R_HAS_BUFFER
+#endif
+#if defined(HAS_GETHOSTBYNAME_R) && (GETHOSTBYNAME_R_PROTO == REENTRANT_PROTO_I_CSBWRE || GETHOSTBYNAME_R_PROTO == REENTRANT_PROTO_S_CSBIE)
+#   define GETHOSTBYNAME_R_HAS_BUFFER
+#else
+#   undef  GETHOSTBYNAME_R_HAS_BUFFER
+#endif
+
+/* Any of the gethostent gethostbyaddr gethostbyname using buffer? */
+
+#if (defined(GETHOSTENT_R_HAS_BUFFER) || defined(GETHOSTBYADDR_R_HAS_BUFFER) || defined(GETHOSTBYNAME_R_HAS_BUFFER))
+#   define USE_HOSTENT_BUFFER
+#else
+#   undef  USE_HOSTENT_BUFFER
+#endif
+
+/* The getnetent getnetbyaddr getnetbyname using buffer? */
+
+#if defined(HAS_GETNETENT_R) && (GETNETENT_R_PROTO == REENTRANT_PROTO_I_SBWRE || GETNETENT_R_PROTO == REENTRANT_PROTO_I_SBIE || GETNETENT_R_PROTO == REENTRANT_PROTO_S_SBIE || GETNETENT_R_PROTO == REENTRANT_PROTO_S_SBI || GETNETENT_R_PROTO == REENTRANT_PROTO_I_SBI)
+#   define GETNETENT_R_HAS_BUFFER
+#else
+#   undef  GETNETENT_R_HAS_BUFFER
+#endif
+#if defined(HAS_GETNETBYADDR_R) && (GETNETBYADDR_R_PROTO == REENTRANT_PROTO_I_UISBWRE || GETNETBYADDR_R_PROTO == REENTRANT_PROTO_I_LISBI || GETNETBYADDR_R_PROTO == REENTRANT_PROTO_S_TISBI || GETNETBYADDR_R_PROTO == REENTRANT_PROTO_S_LISBI || GETNETBYADDR_R_PROTO == REENTRANT_PROTO_I_uISBWRE)
+#   define GETNETBYADDR_R_HAS_BUFFER
+#else
+#   undef  GETNETBYADDR_R_HAS_BUFFER
+#endif
+#if defined(HAS_GETNETBYNAME_R) && (GETNETBYNAME_R_PROTO == REENTRANT_PROTO_I_CSBWRE || GETNETBYNAME_R_PROTO == REENTRANT_PROTO_I_CSBI || GETNETBYNAME_R_PROTO == REENTRANT_PROTO_S_CSBI)
+#   define GETNETBYNAME_R_HAS_BUFFER
+#else
+#   undef  GETNETBYNAME_R_HAS_BUFFER
+#endif
+
+/* Any of the getnetent getnetbyaddr getnetbyname using buffer? */
+
+#if (defined(GETNETENT_R_HAS_BUFFER) || defined(GETNETBYADDR_R_HAS_BUFFER) || defined(GETNETBYNAME_R_HAS_BUFFER))
+#   define USE_NETENT_BUFFER
+#else
+#   undef  USE_NETENT_BUFFER
+#endif
+
+/* The getprotoent getprotobyname getprotobynumber using buffer? */
+
+#if defined(HAS_GETPROTOENT_R) && (GETPROTOENT_R_PROTO == REENTRANT_PROTO_I_SBWR || GETPROTOENT_R_PROTO == REENTRANT_PROTO_I_SBI || GETPROTOENT_R_PROTO == REENTRANT_PROTO_S_SBI)
+#   define GETPROTOENT_R_HAS_BUFFER
+#else
+#   undef  GETPROTOENT_R_HAS_BUFFER
+#endif
+#if defined(HAS_GETPROTOBYNAME_R) && (GETPROTOBYNAME_R_PROTO == REENTRANT_PROTO_I_CSBWR || GETPROTOBYNAME_R_PROTO == REENTRANT_PROTO_S_CSBI)
+#   define GETPROTOBYNAME_R_HAS_BUFFER
+#else
+#   undef  GETPROTOBYNAME_R_HAS_BUFFER
+#endif
+#if defined(HAS_GETPROTOBYNUMBER_R) && (GETPROTOBYNUMBER_R_PROTO == REENTRANT_PROTO_I_ISBWR || GETPROTOBYNUMBER_R_PROTO == REENTRANT_PROTO_S_ISBI)
+#   define GETPROTOBYNUMBER_R_HAS_BUFFER
+#else
+#   undef  GETPROTOBYNUMBER_R_HAS_BUFFER
+#endif
+
+/* Any of the getprotoent getprotobyname getprotobynumber using buffer? */
+
+#if (defined(GETPROTOENT_R_HAS_BUFFER) || defined(GETPROTOBYNAME_R_HAS_BUFFER) || defined(GETPROTOBYNUMBER_R_HAS_BUFFER))
+#   define USE_PROTOENT_BUFFER
+#else
+#   undef  USE_PROTOENT_BUFFER
+#endif
+
+/* The getservent getservbyname getservbyport using buffer? */
+
+#if defined(HAS_GETSERVENT_R) && (GETSERVENT_R_PROTO == REENTRANT_PROTO_I_SBWR || GETSERVENT_R_PROTO == REENTRANT_PROTO_I_SBI || GETSERVENT_R_PROTO == REENTRANT_PROTO_S_SBI)
+#   define GETSERVENT_R_HAS_BUFFER
+#else
+#   undef  GETSERVENT_R_HAS_BUFFER
+#endif
+#if defined(HAS_GETSERVBYNAME_R) && (GETSERVBYNAME_R_PROTO == REENTRANT_PROTO_I_CCSBWR || GETSERVBYNAME_R_PROTO == REENTRANT_PROTO_S_CCSBI)
+#   define GETSERVBYNAME_R_HAS_BUFFER
+#else
+#   undef  GETSERVBYNAME_R_HAS_BUFFER
+#endif
+#if defined(HAS_GETSERVBYPORT_R) && (GETSERVBYPORT_R_PROTO == REENTRANT_PROTO_I_ICSBWR || GETSERVBYPORT_R_PROTO == REENTRANT_PROTO_S_ICSBI)
+#   define GETSERVBYPORT_R_HAS_BUFFER
+#else
+#   undef  GETSERVBYPORT_R_HAS_BUFFER
+#endif
+
+/* Any of the getservent getservbyname getservbyport using buffer? */
+
+#if (defined(GETSERVENT_R_HAS_BUFFER) || defined(GETSERVBYNAME_R_HAS_BUFFER) || defined(GETSERVBYPORT_R_HAS_BUFFER))
+#   define USE_SERVENT_BUFFER
+#else
+#   undef  USE_SERVENT_BUFFER
+#endif
+
+/* The gethostent gethostbyaddr gethostbyname using errno? */
+
+#if defined(HAS_GETHOSTENT_R) && (GETHOSTENT_R_PROTO == REENTRANT_PROTO_I_SBWRE || GETHOSTENT_R_PROTO == REENTRANT_PROTO_I_SBIE || GETHOSTENT_R_PROTO == REENTRANT_PROTO_S_SBIE)
+#   define GETHOSTENT_R_HAS_ERRNO
+#else
+#   undef  GETHOSTENT_R_HAS_ERRNO
+#endif
+#if defined(HAS_GETHOSTBYADDR_R) && (GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_I_CWISBWRE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_CWISBWIE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_CWISBIE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_TWISBIE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_CIISBIE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_CSBIE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_TSBIE || GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_I_TsISBWRE)
+#   define GETHOSTBYADDR_R_HAS_ERRNO
+#else
+#   undef  GETHOSTBYADDR_R_HAS_ERRNO
+#endif
+#if defined(HAS_GETHOSTBYNAME_R) && (GETHOSTBYNAME_R_PROTO == REENTRANT_PROTO_I_CSBWRE || GETHOSTBYNAME_R_PROTO == REENTRANT_PROTO_S_CSBIE)
+#   define GETHOSTBYNAME_R_HAS_ERRNO
+#else
+#   undef  GETHOSTBYNAME_R_HAS_ERRNO
+#endif
+
+/* Any of the gethostent gethostbyaddr gethostbyname using errno? */
+
+#if (defined(GETHOSTENT_R_HAS_ERRNO) || defined(GETHOSTBYADDR_R_HAS_ERRNO) || defined(GETHOSTBYNAME_R_HAS_ERRNO))
+#   define USE_HOSTENT_ERRNO
+#else
+#   undef  USE_HOSTENT_ERRNO
+#endif
+
+/* The getnetent getnetbyaddr getnetbyname using errno? */
+
+#if defined(HAS_GETNETENT_R) && (GETNETENT_R_PROTO == REENTRANT_PROTO_I_SBWRE || GETNETENT_R_PROTO == REENTRANT_PROTO_I_SBIE || GETNETENT_R_PROTO == REENTRANT_PROTO_S_SBIE)
+#   define GETNETENT_R_HAS_ERRNO
+#else
+#   undef  GETNETENT_R_HAS_ERRNO
+#endif
+#if defined(HAS_GETNETBYADDR_R) && (GETNETBYADDR_R_PROTO == REENTRANT_PROTO_I_UISBWRE || GETNETBYADDR_R_PROTO == REENTRANT_PROTO_I_uISBWRE)
+#   define GETNETBYADDR_R_HAS_ERRNO
+#else
+#   undef  GETNETBYADDR_R_HAS_ERRNO
+#endif
+#if defined(HAS_GETNETBYNAME_R) && (GETNETBYNAME_R_PROTO == REENTRANT_PROTO_I_CSBWRE)
+#   define GETNETBYNAME_R_HAS_ERRNO
+#else
+#   undef  GETNETBYNAME_R_HAS_ERRNO
+#endif
+
+/* Any of the getnetent getnetbyaddr getnetbyname using errno? */
+
+#if (defined(GETNETENT_R_HAS_ERRNO) || defined(GETNETBYADDR_R_HAS_ERRNO) || defined(GETNETBYNAME_R_HAS_ERRNO))
+#   define USE_NETENT_ERRNO
+#else
+#   undef  USE_NETENT_ERRNO
+#endif
+
+
+typedef struct {
+#ifdef HAS_ASCTIME_R
+	char*	_asctime_buffer;
+	size_t	_asctime_size;
+#endif /* HAS_ASCTIME_R */
+#ifdef HAS_CRYPT_R
+#if CRYPT_R_PROTO == REENTRANT_PROTO_B_CCD
+	CRYPTD* _crypt_data;
+#else
+	struct crypt_data *_crypt_struct_buffer;
+#endif
+#endif /* HAS_CRYPT_R */
+#ifdef HAS_CTIME_R
+	char*	_ctime_buffer;
+	size_t	_ctime_size;
+#endif /* HAS_CTIME_R */
+#ifdef HAS_GETGRNAM_R
+	struct group	_grent_struct;
+	char*	_grent_buffer;
+	size_t	_grent_size;
+#   ifdef USE_GRENT_PTR
+	struct group*	_grent_ptr;
+#   endif
+#   ifdef USE_GRENT_FPTR
+	FILE*	_grent_fptr;
+#   endif
+#endif /* HAS_GETGRNAM_R */
+#ifdef HAS_GETHOSTBYNAME_R
+	struct hostent	_hostent_struct;
+#   if GETHOSTBYNAME_R_PROTO == REENTRANT_PROTO_I_CSD
+	struct hostent_data	_hostent_data;
+#   else
+	char*	_hostent_buffer;
+	size_t	_hostent_size;
+#   endif
+#   ifdef USE_HOSTENT_PTR
+	struct hostent*	_hostent_ptr;
+#   endif
+#   ifdef USE_HOSTENT_ERRNO
+	int	_hostent_errno;
+#   endif 
+#endif /* HAS_GETHOSTBYNAME_R */
+#ifdef HAS_GETLOGIN_R
+	char*	_getlogin_buffer;
+	size_t	_getlogin_size;
+#endif /* HAS_GETLOGIN_R */
+#ifdef HAS_GETNETBYNAME_R
+	struct netent	_netent_struct;
+#   if GETNETBYNAME_R_PROTO == REENTRANT_PROTO_I_CSD
+	struct netent_data	_netent_data;
+#   else
+	char*	_netent_buffer;
+	size_t	_netent_size;
+#   endif
+#   ifdef USE_NETENT_PTR
+	struct netent*	_netent_ptr;
+#   endif
+#   ifdef USE_NETENT_ERRNO
+	int	_netent_errno;
+#   endif 
+#endif /* HAS_GETNETBYNAME_R */
+#ifdef HAS_GETPROTOBYNAME_R
+	struct protoent	_protoent_struct;
+#   if GETPROTOBYNAME_R_PROTO == REENTRANT_PROTO_I_CSD
+	struct protoent_data	_protoent_data;
+#   else
+	char*	_protoent_buffer;
+	size_t	_protoent_size;
+#   endif
+#   ifdef USE_PROTOENT_PTR
+	struct protoent*	_protoent_ptr;
+#   endif
+#   ifdef USE_PROTOENT_ERRNO
+	int	_protoent_errno;
+#   endif 
+#endif /* HAS_GETPROTOBYNAME_R */
+#ifdef HAS_GETPWNAM_R
+	struct passwd	_pwent_struct;
+	char*	_pwent_buffer;
+	size_t	_pwent_size;
+#   ifdef USE_PWENT_PTR
+	struct passwd*	_pwent_ptr;
+#   endif
+#   ifdef USE_PWENT_FPTR
+	FILE*	_pwent_fptr;
+#   endif
+#endif /* HAS_GETPWNAM_R */
+#ifdef HAS_GETSERVBYNAME_R
+	struct servent	_servent_struct;
+#   if GETSERVBYNAME_R_PROTO == REENTRANT_PROTO_I_CCSD
+	struct servent_data	_servent_data;
+#   else
+	char*	_servent_buffer;
+	size_t	_servent_size;
+#   endif
+#   ifdef USE_SERVENT_PTR
+	struct servent*	_servent_ptr;
+#   endif
+#   ifdef USE_SERVENT_ERRNO
+	int	_servent_errno;
+#   endif 
+#endif /* HAS_GETSERVBYNAME_R */
+#ifdef HAS_GETSPNAM_R
+	struct spwd	_spent_struct;
+	char*	_spent_buffer;
+	size_t	_spent_size;
+#   ifdef USE_SPENT_PTR
+	struct spwd*	_spent_ptr;
+#   endif
+#   ifdef USE_SPENT_FPTR
+	FILE*	_spent_fptr;
+#   endif
+#endif /* HAS_GETSPNAM_R */
+#ifdef HAS_READDIR_R
+	struct dirent*	_readdir_struct;
+	size_t	_readdir_size;
+#   if READDIR_R_PROTO == REENTRANT_PROTO_I_TSR
+	struct dirent*	_readdir_ptr;
+#   endif
+#endif /* HAS_READDIR_R */
+#ifdef HAS_READDIR64_R
+	struct dirent64*	_readdir64_struct;
+	size_t	_readdir64_size;
+#   if READDIR64_R_PROTO == REENTRANT_PROTO_I_TSR
+	struct dirent64*	_readdir64_ptr;
+#   endif
+#endif /* HAS_READDIR64_R */
+#ifdef HAS_SETLOCALE_R
+	char*	_setlocale_buffer;
+	size_t	_setlocale_size;
+#endif /* HAS_SETLOCALE_R */
+#ifdef HAS_STRERROR_R
+	char*	_strerror_buffer;
+	size_t	_strerror_size;
+#endif /* HAS_STRERROR_R */
+#ifdef HAS_TTYNAME_R
+	char*	_ttyname_buffer;
+	size_t	_ttyname_size;
+#endif /* HAS_TTYNAME_R */
+
+    int dummy; /* cannot have empty structs */
+} REENTR;
+
+/* The wrappers. */
+
+#ifdef HAS_ASCTIME_R
+#  if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
+#   undef asctime
+#   if !defined(asctime) && ASCTIME_R_PROTO == REENTRANT_PROTO_B_SB
+#       define asctime(a) asctime_r(a, PL_reentrant_buffer->_asctime_buffer)
+#   endif
+#   if !defined(asctime) && ASCTIME_R_PROTO == REENTRANT_PROTO_B_SBI
+#       define asctime(a) asctime_r(a, PL_reentrant_buffer->_asctime_buffer, PL_reentrant_buffer->_asctime_size)
+#   endif
+#   if !defined(asctime) && ASCTIME_R_PROTO == REENTRANT_PROTO_I_SB
+#       define asctime(a) (asctime_r(a, PL_reentrant_buffer->_asctime_buffer) == 0 ? PL_reentrant_buffer->_asctime_buffer : 0)
+#   endif
+#   if !defined(asctime) && ASCTIME_R_PROTO == REENTRANT_PROTO_I_SBI
+#       define asctime(a) (asctime_r(a, PL_reentrant_buffer->_asctime_buffer, PL_reentrant_buffer->_asctime_size) == 0 ? PL_reentrant_buffer->_asctime_buffer : 0)
+#   endif
+#  endif
+#endif /* HAS_ASCTIME_R */
+
+#ifdef HAS_CRYPT_R
+#  if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
+#   undef crypt
+#   if !defined(crypt) && CRYPT_R_PROTO == REENTRANT_PROTO_B_CCS
+#       define crypt(a, b) crypt_r(a, b, PL_reentrant_buffer->_crypt_struct_buffer)
+#   endif
+#   if !defined(crypt) && CRYPT_R_PROTO == REENTRANT_PROTO_B_CCD
+#       define crypt(a, b) crypt_r(a, b, &PL_reentrant_buffer->_crypt_data)
+#   endif
+#  endif
+#endif /* HAS_CRYPT_R */
+
+#ifdef HAS_CTERMID_R
+#  if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
+#   undef ctermid
+#   if !defined(ctermid) && CTERMID_R_PROTO == REENTRANT_PROTO_B_B
+#       define ctermid(a) ctermid_r(a)
+#   endif
+#  endif
+#endif /* HAS_CTERMID_R */
+
+#ifdef HAS_CTIME_R
+#  if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
+#   undef ctime
+#   if !defined(ctime) && CTIME_R_PROTO == REENTRANT_PROTO_B_SB
+#       define ctime(a) ctime_r(a, PL_reentrant_buffer->_ctime_buffer)
+#   endif
+#   if !defined(ctime) && CTIME_R_PROTO == REENTRANT_PROTO_B_SBI
+#       define ctime(a) ctime_r(a, PL_reentrant_buffer->_ctime_buffer, PL_reentrant_buffer->_ctime_size)
+#   endif
+#   if !defined(ctime) && CTIME_R_PROTO == REENTRANT_PROTO_I_SB
+#       define ctime(a) (ctime_r(a, PL_reentrant_buffer->_ctime_buffer) == 0 ? PL_reentrant_buffer->_ctime_buffer : 0)
+#   endif
+#   if !defined(ctime) && CTIME_R_PROTO == REENTRANT_PROTO_I_SBI
+#       define ctime(a) (ctime_r(a, PL_reentrant_buffer->_ctime_buffer, PL_reentrant_buffer->_ctime_size) == 0 ? PL_reentrant_buffer->_ctime_buffer : 0)
+#   endif
+#  endif
+#endif /* HAS_CTIME_R */
+
+#ifdef HAS_ENDGRENT_R
+#  if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
+#   undef endgrent
+#   if !defined(endgrent) && ENDGRENT_R_PROTO == REENTRANT_PROTO_I_H
+#       define endgrent() (endgrent_r(&PL_reentrant_buffer->_grent_fptr) == 0 ? 1 : 0)
+#   endif
+#   if !defined(endgrent) && ENDGRENT_R_PROTO == REENTRANT_PROTO_V_H
+#       define endgrent() endgrent_r(&PL_reentrant_buffer->_grent_fptr)
+#   endif
+#  endif
+#endif /* HAS_ENDGRENT_R */
+
+#ifdef HAS_ENDHOSTENT_R
+#  if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
+#   undef endhostent
+#   if !defined(endhostent) && ENDHOSTENT_R_PROTO == REENTRANT_PROTO_I_D
+#       define endhostent() (endhostent_r(&PL_reentrant_buffer->_hostent_data) == 0 ? 1 : 0)
+#   endif
+#   if !defined(endhostent) && ENDHOSTENT_R_PROTO == REENTRANT_PROTO_V_D
+#       define endhostent() endhostent_r(&PL_reentrant_buffer->_hostent_data)
+#   endif
+#  endif
+#endif /* HAS_ENDHOSTENT_R */
+
+#ifdef HAS_ENDNETENT_R
+#  if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
+#   undef endnetent
+#   if !defined(endnetent) && ENDNETENT_R_PROTO == REENTRANT_PROTO_I_D
+#       define endnetent() (endnetent_r(&PL_reentrant_buffer->_netent_data) == 0 ? 1 : 0)
+#   endif
+#   if !defined(endnetent) && ENDNETENT_R_PROTO == REENTRANT_PROTO_V_D
+#       define endnetent() endnetent_r(&PL_reentrant_buffer->_netent_data)
+#   endif
+#  endif
+#endif /* HAS_ENDNETENT_R */
+
+#ifdef HAS_ENDPROTOENT_R
+#  if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
+#   undef endprotoent
+#   if !defined(endprotoent) && ENDPROTOENT_R_PROTO == REENTRANT_PROTO_I_D
+#       define endprotoent() (endprotoent_r(&PL_reentrant_buffer->_protoent_data) == 0 ? 1 : 0)
+#   endif
+#   if !defined(endprotoent) && ENDPROTOENT_R_PROTO == REENTRANT_PROTO_V_D
+#       define endprotoent() endprotoent_r(&PL_reentrant_buffer->_protoent_data)
+#   endif
+#  endif
+#endif /* HAS_ENDPROTOENT_R */
+
+#ifdef HAS_ENDPWENT_R
+#  if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
+#   undef endpwent
+#   if !defined(endpwent) && ENDPWENT_R_PROTO == REENTRANT_PROTO_I_H
+#       define endpwent() (endpwent_r(&PL_reentrant_buffer->_pwent_fptr) == 0 ? 1 : 0)
+#   endif
+#   if !defined(endpwent) && ENDPWENT_R_PROTO == REENTRANT_PROTO_V_H
+#       define endpwent() endpwent_r(&PL_reentrant_buffer->_pwent_fptr)
+#   endif
+#  endif
+#endif /* HAS_ENDPWENT_R */
+
+#ifdef HAS_ENDSERVENT_R
+#  if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
+#   undef endservent
+#   if !defined(endservent) && ENDSERVENT_R_PROTO == REENTRANT_PROTO_I_D
+#       define endservent() (endservent_r(&PL_reentrant_buffer->_servent_data) == 0 ? 1 : 0)
+#   endif
+#   if !defined(endservent) && ENDSERVENT_R_PROTO == REENTRANT_PROTO_V_D
+#       define endservent() endservent_r(&PL_reentrant_buffer->_servent_data)
+#   endif
+#  endif
+#endif /* HAS_ENDSERVENT_R */
+
+#ifdef HAS_GETGRENT_R
+#  if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
+#   undef getgrent
+#   if !defined(getgrent) && GETGRENT_R_PROTO == REENTRANT_PROTO_I_SBWR
+#       define getgrent() ((PL_reentrant_retint = getgrent_r(&PL_reentrant_buffer->_grent_struct, PL_reentrant_buffer->_grent_buffer, PL_reentrant_buffer->_grent_size, &PL_reentrant_buffer->_grent_ptr)) == 0 ? PL_reentrant_buffer->_grent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct group *) Perl_reentrant_retry("getgrent") : 0))
+#   endif
+#   if !defined(getgrent) && GETGRENT_R_PROTO == REENTRANT_PROTO_I_SBIR
+#       define getgrent() ((PL_reentrant_retint = getgrent_r(&PL_reentrant_buffer->_grent_struct, PL_reentrant_buffer->_grent_buffer, PL_reentrant_buffer->_grent_size, &PL_reentrant_buffer->_grent_ptr)) == 0 ? PL_reentrant_buffer->_grent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct group *) Perl_reentrant_retry("getgrent") : 0))
+#   endif
+#   if !defined(getgrent) && GETGRENT_R_PROTO == REENTRANT_PROTO_S_SBW
+#       define getgrent() (getgrent_r(&PL_reentrant_buffer->_grent_struct, PL_reentrant_buffer->_grent_buffer, PL_reentrant_buffer->_grent_size) ? &PL_reentrant_buffer->_grent_struct : ((errno == ERANGE) ? (struct group *) Perl_reentrant_retry("getgrent") : 0))
+#   endif
+#   if !defined(getgrent) && GETGRENT_R_PROTO == REENTRANT_PROTO_S_SBI
+#       define getgrent() (getgrent_r(&PL_reentrant_buffer->_grent_struct, PL_reentrant_buffer->_grent_buffer, PL_reentrant_buffer->_grent_size) ? &PL_reentrant_buffer->_grent_struct : ((errno == ERANGE) ? (struct group *) Perl_reentrant_retry("getgrent") : 0))
+#   endif
+#   if !defined(getgrent) && GETGRENT_R_PROTO == REENTRANT_PROTO_I_SBI
+#       define getgrent() ((PL_reentrant_retint = getgrent_r(&PL_reentrant_buffer->_grent_struct, PL_reentrant_buffer->_grent_buffer, PL_reentrant_buffer->_grent_size)) == 0 ? &PL_reentrant_buffer->_grent_struct : ((PL_reentrant_retint == ERANGE) ? (struct group *) Perl_reentrant_retry("getgrent") : 0))
+#   endif
+#   if !defined(getgrent) && GETGRENT_R_PROTO == REENTRANT_PROTO_I_SBIH
+#       define getgrent() ((PL_reentrant_retint = getgrent_r(&PL_reentrant_buffer->_grent_struct, PL_reentrant_buffer->_grent_buffer, PL_reentrant_buffer->_grent_size, &PL_reentrant_buffer->_grent_fptr)) == 0 ? &PL_reentrant_buffer->_grent_struct : ((PL_reentrant_retint == ERANGE) ? (struct group *) Perl_reentrant_retry("getgrent") : 0))
+#   endif
+#  endif
+#endif /* HAS_GETGRENT_R */
+
+#ifdef HAS_GETGRGID_R
+#  if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
+#   undef getgrgid
+#   if !defined(getgrgid) && GETGRGID_R_PROTO == REENTRANT_PROTO_I_TSBWR
+#       define getgrgid(a) ((PL_reentrant_retint = getgrgid_r(a, &PL_reentrant_buffer->_grent_struct, PL_reentrant_buffer->_grent_buffer, PL_reentrant_buffer->_grent_size, &PL_reentrant_buffer->_grent_ptr)) == 0 ? PL_reentrant_buffer->_grent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct group *) Perl_reentrant_retry("getgrgid", a) : 0))
+#   endif
+#   if !defined(getgrgid) && GETGRGID_R_PROTO == REENTRANT_PROTO_I_TSBIR
+#       define getgrgid(a) ((PL_reentrant_retint = getgrgid_r(a, &PL_reentrant_buffer->_grent_struct, PL_reentrant_buffer->_grent_buffer, PL_reentrant_buffer->_grent_size, &PL_reentrant_buffer->_grent_ptr)) == 0 ? PL_reentrant_buffer->_grent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct group *) Perl_reentrant_retry("getgrgid", a) : 0))
+#   endif
+#   if !defined(getgrgid) && GETGRGID_R_PROTO == REENTRANT_PROTO_I_TSBI
+#       define getgrgid(a) ((PL_reentrant_retint = getgrgid_r(a, &PL_reentrant_buffer->_grent_struct, PL_reentrant_buffer->_grent_buffer, PL_reentrant_buffer->_grent_size)) == 0 ? &PL_reentrant_buffer->_grent_struct : ((PL_reentrant_retint == ERANGE) ? (struct group *) Perl_reentrant_retry("getgrgid", a) : 0))
+#   endif
+#   if !defined(getgrgid) && GETGRGID_R_PROTO == REENTRANT_PROTO_S_TSBI
+#       define getgrgid(a) (getgrgid_r(a, &PL_reentrant_buffer->_grent_struct, PL_reentrant_buffer->_grent_buffer, PL_reentrant_buffer->_grent_size) ? &PL_reentrant_buffer->_grent_struct : ((errno == ERANGE) ? (struct group *) Perl_reentrant_retry("getgrgid", a) : 0))
+#   endif
+#  endif
+#endif /* HAS_GETGRGID_R */
+
+#ifdef HAS_GETGRNAM_R
+#  if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
+#   undef getgrnam
+#   if !defined(getgrnam) && GETGRNAM_R_PROTO == REENTRANT_PROTO_I_CSBWR
+#       define getgrnam(a) ((PL_reentrant_retint = getgrnam_r(a, &PL_reentrant_buffer->_grent_struct, PL_reentrant_buffer->_grent_buffer, PL_reentrant_buffer->_grent_size, &PL_reentrant_buffer->_grent_ptr)) == 0 ? PL_reentrant_buffer->_grent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct group *) Perl_reentrant_retry("getgrnam", a) : 0))
+#   endif
+#   if !defined(getgrnam) && GETGRNAM_R_PROTO == REENTRANT_PROTO_I_CSBIR
+#       define getgrnam(a) ((PL_reentrant_retint = getgrnam_r(a, &PL_reentrant_buffer->_grent_struct, PL_reentrant_buffer->_grent_buffer, PL_reentrant_buffer->_grent_size, &PL_reentrant_buffer->_grent_ptr)) == 0 ? PL_reentrant_buffer->_grent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct group *) Perl_reentrant_retry("getgrnam", a) : 0))
+#   endif
+#   if !defined(getgrnam) && GETGRNAM_R_PROTO == REENTRANT_PROTO_S_CBI
+#       define getgrnam(a) (getgrnam_r(a, PL_reentrant_buffer->_grent_buffer, PL_reentrant_buffer->_grent_size) ? PL_reentrant_buffer->_grent_buffer : ((errno == ERANGE) ? (struct group *) Perl_reentrant_retry("getgrnam", a) : 0))
+#   endif
+#   if !defined(getgrnam) && GETGRNAM_R_PROTO == REENTRANT_PROTO_I_CSBI
+#       define getgrnam(a) ((PL_reentrant_retint = getgrnam_r(a, &PL_reentrant_buffer->_grent_struct, PL_reentrant_buffer->_grent_buffer, PL_reentrant_buffer->_grent_size)) == 0 ? &PL_reentrant_buffer->_grent_struct : ((PL_reentrant_retint == ERANGE) ? (struct group *) Perl_reentrant_retry("getgrnam", a) : 0))
+#   endif
+#   if !defined(getgrnam) && GETGRNAM_R_PROTO == REENTRANT_PROTO_S_CSBI
+#       define getgrnam(a) (getgrnam_r(a, &PL_reentrant_buffer->_grent_struct, PL_reentrant_buffer->_grent_buffer, PL_reentrant_buffer->_grent_size) ? &PL_reentrant_buffer->_grent_struct : ((errno == ERANGE) ? (struct group *) Perl_reentrant_retry("getgrnam", a) : 0))
+#   endif
+#  endif
+#endif /* HAS_GETGRNAM_R */
+
+#ifdef HAS_GETHOSTBYADDR_R
+#  if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
+#   undef gethostbyaddr
+#   if !defined(gethostbyaddr) && GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_I_CWISBWRE
+#       define gethostbyaddr(a, b, c) ((PL_reentrant_retint = gethostbyaddr_r(a, b, c, &PL_reentrant_buffer->_hostent_struct, PL_reentrant_buffer->_hostent_buffer, PL_reentrant_buffer->_hostent_size, &PL_reentrant_buffer->_hostent_ptr, &PL_reentrant_buffer->_hostent_errno)) == 0 ? PL_reentrant_buffer->_hostent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostbyaddr", a, b, c) : 0))
+#   endif
+#   if !defined(gethostbyaddr) && GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_CWISBWIE
+#       define gethostbyaddr(a, b, c) (gethostbyaddr_r(a, b, c, &PL_reentrant_buffer->_hostent_struct, PL_reentrant_buffer->_hostent_buffer, PL_reentrant_buffer->_hostent_size, PL_reentrant_buffer->_hostent_size, &PL_reentrant_buffer->_hostent_errno) ? &PL_reentrant_buffer->_hostent_struct : ((errno == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostbyaddr", a, b, c) : 0))
+#   endif
+#   if !defined(gethostbyaddr) && GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_CWISBIE
+#       define gethostbyaddr(a, b, c) (gethostbyaddr_r(a, b, c, &PL_reentrant_buffer->_hostent_struct, PL_reentrant_buffer->_hostent_buffer, PL_reentrant_buffer->_hostent_size, &PL_reentrant_buffer->_hostent_errno) ? &PL_reentrant_buffer->_hostent_struct : ((errno == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostbyaddr", a, b, c) : 0))
+#   endif
+#   if !defined(gethostbyaddr) && GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_TWISBIE
+#       define gethostbyaddr(a, b, c) (gethostbyaddr_r(a, b, c, &PL_reentrant_buffer->_hostent_struct, PL_reentrant_buffer->_hostent_buffer, PL_reentrant_buffer->_hostent_size, &PL_reentrant_buffer->_hostent_errno) ? &PL_reentrant_buffer->_hostent_struct : ((errno == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostbyaddr", a, b, c) : 0))
+#   endif
+#   if !defined(gethostbyaddr) && GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_CIISBIE
+#       define gethostbyaddr(a, b, c) (gethostbyaddr_r(a, b, c, &PL_reentrant_buffer->_hostent_struct, PL_reentrant_buffer->_hostent_buffer, PL_reentrant_buffer->_hostent_size, &PL_reentrant_buffer->_hostent_errno) ? &PL_reentrant_buffer->_hostent_struct : ((errno == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostbyaddr", a, b, c) : 0))
+#   endif
+#   if !defined(gethostbyaddr) && GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_CSBIE
+#       define gethostbyaddr(a, b, c) (gethostbyaddr_r(a, b, c, PL_reentrant_buffer->_hostent_size, &PL_reentrant_buffer->_hostent_errno) ? 1 : ((errno == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostbyaddr", a, b, c) : 0))
+#   endif
+#   if !defined(gethostbyaddr) && GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_S_TSBIE
+#       define gethostbyaddr(a, b, c) (gethostbyaddr_r(a, b, c, PL_reentrant_buffer->_hostent_size, &PL_reentrant_buffer->_hostent_errno) ? 1 : ((errno == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostbyaddr", a, b, c) : 0))
+#   endif
+#   if !defined(gethostbyaddr) && GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_I_CWISD
+#       define gethostbyaddr(a, b, c) ((PL_reentrant_retint = gethostbyaddr_r(a, b, c, &PL_reentrant_buffer->_hostent_struct, &PL_reentrant_buffer->_hostent_data)) == 0 ? &PL_reentrant_buffer->_hostent_struct : ((PL_reentrant_retint == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostbyaddr", a, b, c) : 0))
+#   endif
+#   if !defined(gethostbyaddr) && GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_I_CIISD
+#       define gethostbyaddr(a, b, c) ((PL_reentrant_retint = gethostbyaddr_r(a, b, c, &PL_reentrant_buffer->_hostent_struct, &PL_reentrant_buffer->_hostent_data)) == 0 ? &PL_reentrant_buffer->_hostent_struct : ((PL_reentrant_retint == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostbyaddr", a, b, c) : 0))
+#   endif
+#   if !defined(gethostbyaddr) && GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_I_CII
+#       define gethostbyaddr(a, b, c) ((PL_reentrant_retint = gethostbyaddr_r(a, b, c)) == 0 ? 1 : ((PL_reentrant_retint == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostbyaddr", a, b, c) : 0))
+#   endif
+#   if !defined(gethostbyaddr) && GETHOSTBYADDR_R_PROTO == REENTRANT_PROTO_I_TsISBWRE
+#       define gethostbyaddr(a, b, c) ((PL_reentrant_retint = gethostbyaddr_r(a, b, c, &PL_reentrant_buffer->_hostent_struct, PL_reentrant_buffer->_hostent_buffer, PL_reentrant_buffer->_hostent_size, &PL_reentrant_buffer->_hostent_ptr, &PL_reentrant_buffer->_hostent_errno)) == 0 ? PL_reentrant_buffer->_hostent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostbyaddr", a, b, c) : 0))
+#   endif
+#  endif
+#endif /* HAS_GETHOSTBYADDR_R */
+
+#ifdef HAS_GETHOSTBYNAME_R
+#  if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
+#   undef gethostbyname
+#   if !defined(gethostbyname) && GETHOSTBYNAME_R_PROTO == REENTRANT_PROTO_I_CSBWRE
+#       define gethostbyname(a) ((PL_reentrant_retint = gethostbyname_r(a, &PL_reentrant_buffer->_hostent_struct, PL_reentrant_buffer->_hostent_buffer, PL_reentrant_buffer->_hostent_size, &PL_reentrant_buffer->_hostent_ptr, &PL_reentrant_buffer->_hostent_errno)) == 0 ? PL_reentrant_buffer->_hostent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostbyname", a) : 0))
+#   endif
+#   if !defined(gethostbyname) && GETHOSTBYNAME_R_PROTO == REENTRANT_PROTO_S_CSBIE
+#       define gethostbyname(a) (gethostbyname_r(a, &PL_reentrant_buffer->_hostent_struct, PL_reentrant_buffer->_hostent_buffer, PL_reentrant_buffer->_hostent_size, &PL_reentrant_buffer->_hostent_errno) ? &PL_reentrant_buffer->_hostent_struct : ((errno == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostbyname", a) : 0))
+#   endif
+#   if !defined(gethostbyname) && GETHOSTBYNAME_R_PROTO == REENTRANT_PROTO_I_CSD
+#       define gethostbyname(a) ((PL_reentrant_retint = gethostbyname_r(a, &PL_reentrant_buffer->_hostent_struct, &PL_reentrant_buffer->_hostent_data)) == 0 ? &PL_reentrant_buffer->_hostent_struct : ((PL_reentrant_retint == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostbyname", a) : 0))
+#   endif
+#  endif
+#endif /* HAS_GETHOSTBYNAME_R */
+
+#ifdef HAS_GETHOSTENT_R
+#  if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
+#   undef gethostent
+#   if !defined(gethostent) && GETHOSTENT_R_PROTO == REENTRANT_PROTO_I_SBWRE
+#       define gethostent() ((PL_reentrant_retint = gethostent_r(&PL_reentrant_buffer->_hostent_struct, PL_reentrant_buffer->_hostent_buffer, PL_reentrant_buffer->_hostent_size, &PL_reentrant_buffer->_hostent_ptr, &PL_reentrant_buffer->_hostent_errno)) == 0 ? PL_reentrant_buffer->_hostent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostent") : 0))
+#   endif
+#   if !defined(gethostent) && GETHOSTENT_R_PROTO == REENTRANT_PROTO_I_SBIE
+#       define gethostent() ((PL_reentrant_retint = gethostent_r(&PL_reentrant_buffer->_hostent_struct, PL_reentrant_buffer->_hostent_buffer, PL_reentrant_buffer->_hostent_size, &PL_reentrant_buffer->_hostent_errno)) == 0 ? &PL_reentrant_buffer->_hostent_struct : ((PL_reentrant_retint == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostent") : 0))
+#   endif
+#   if !defined(gethostent) && GETHOSTENT_R_PROTO == REENTRANT_PROTO_S_SBIE
+#       define gethostent() (gethostent_r(&PL_reentrant_buffer->_hostent_struct, PL_reentrant_buffer->_hostent_buffer, PL_reentrant_buffer->_hostent_size, &PL_reentrant_buffer->_hostent_errno) ? &PL_reentrant_buffer->_hostent_struct : ((errno == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostent") : 0))
+#   endif
+#   if !defined(gethostent) && GETHOSTENT_R_PROTO == REENTRANT_PROTO_S_SBI
+#       define gethostent() (gethostent_r(&PL_reentrant_buffer->_hostent_struct, PL_reentrant_buffer->_hostent_buffer, PL_reentrant_buffer->_hostent_size) ? &PL_reentrant_buffer->_hostent_struct : ((errno == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostent") : 0))
+#   endif
+#   if !defined(gethostent) && GETHOSTENT_R_PROTO == REENTRANT_PROTO_I_SBI
+#       define gethostent() ((PL_reentrant_retint = gethostent_r(&PL_reentrant_buffer->_hostent_struct, PL_reentrant_buffer->_hostent_buffer, PL_reentrant_buffer->_hostent_size)) == 0 ? &PL_reentrant_buffer->_hostent_struct : ((PL_reentrant_retint == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostent") : 0))
+#   endif
+#   if !defined(gethostent) && GETHOSTENT_R_PROTO == REENTRANT_PROTO_I_SD
+#       define gethostent() ((PL_reentrant_retint = gethostent_r(&PL_reentrant_buffer->_hostent_struct, &PL_reentrant_buffer->_hostent_data)) == 0 ? &PL_reentrant_buffer->_hostent_struct : ((PL_reentrant_retint == ERANGE) ? (struct hostent *) Perl_reentrant_retry("gethostent") : 0))
+#   endif
+#  endif
+#endif /* HAS_GETHOSTENT_R */
+
+#ifdef HAS_GETLOGIN_R
+#  if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
+#   undef getlogin
+#   if !defined(getlogin) && GETLOGIN_R_PROTO == REENTRANT_PROTO_I_BW
+#       define getlogin() ((PL_reentrant_retint = getlogin_r(PL_reentrant_buffer->_getlogin_buffer, PL_reentrant_buffer->_getlogin_size)) == 0 ? PL_reentrant_buffer->_getlogin_buffer : ((PL_reentrant_retint == ERANGE) ? (char *) Perl_reentrant_retry("getlogin") : 0))
+#   endif
+#   if !defined(getlogin) && GETLOGIN_R_PROTO == REENTRANT_PROTO_I_BI
+#       define getlogin() ((PL_reentrant_retint = getlogin_r(PL_reentrant_buffer->_getlogin_buffer, PL_reentrant_buffer->_getlogin_size)) == 0 ? PL_reentrant_buffer->_getlogin_buffer : ((PL_reentrant_retint == ERANGE) ? (char *) Perl_reentrant_retry("getlogin") : 0))
+#   endif
+#   if !defined(getlogin) && GETLOGIN_R_PROTO == REENTRANT_PROTO_B_BW
+#       define getlogin() getlogin_r(PL_reentrant_buffer->_getlogin_buffer, PL_reentrant_buffer->_getlogin_size)
+#   endif
+#   if !defined(getlogin) && GETLOGIN_R_PROTO == REENTRANT_PROTO_B_BI
+#       define getlogin() getlogin_r(PL_reentrant_buffer->_getlogin_buffer, PL_reentrant_buffer->_getlogin_size)
+#   endif
+#  endif
+#endif /* HAS_GETLOGIN_R */
+
+#ifdef HAS_GETNETBYADDR_R
+#  if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
+#   undef getnetbyaddr
+#   if !defined(getnetbyaddr) && GETNETBYADDR_R_PROTO == REENTRANT_PROTO_I_UISBWRE
+#       define getnetbyaddr(a, b) ((PL_reentrant_retint = getnetbyaddr_r(a, b, &PL_reentrant_buffer->_netent_struct, PL_reentrant_buffer->_netent_buffer, PL_reentrant_buffer->_netent_size, &PL_reentrant_buffer->_netent_ptr, &PL_reentrant_buffer->_netent_errno)) == 0 ? PL_reentrant_buffer->_netent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetbyaddr", a, b) : 0))
+#   endif
+#   if !defined(getnetbyaddr) && GETNETBYADDR_R_PROTO == REENTRANT_PROTO_I_LISBI
+#       define getnetbyaddr(a, b) ((PL_reentrant_retint = getnetbyaddr_r(a, b, &PL_reentrant_buffer->_netent_struct, PL_reentrant_buffer->_netent_buffer, PL_reentrant_buffer->_netent_size)) == 0 ? &PL_reentrant_buffer->_netent_struct : ((PL_reentrant_retint == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetbyaddr", a, b) : 0))
+#   endif
+#   if !defined(getnetbyaddr) && GETNETBYADDR_R_PROTO == REENTRANT_PROTO_S_TISBI
+#       define getnetbyaddr(a, b) (getnetbyaddr_r(a, b, &PL_reentrant_buffer->_netent_struct, PL_reentrant_buffer->_netent_buffer, PL_reentrant_buffer->_netent_size) ? &PL_reentrant_buffer->_netent_struct : ((errno == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetbyaddr", a, b) : 0))
+#   endif
+#   if !defined(getnetbyaddr) && GETNETBYADDR_R_PROTO == REENTRANT_PROTO_S_LISBI
+#       define getnetbyaddr(a, b) (getnetbyaddr_r(a, b, &PL_reentrant_buffer->_netent_struct, PL_reentrant_buffer->_netent_buffer, PL_reentrant_buffer->_netent_size) ? &PL_reentrant_buffer->_netent_struct : ((errno == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetbyaddr", a, b) : 0))
+#   endif
+#   if !defined(getnetbyaddr) && GETNETBYADDR_R_PROTO == REENTRANT_PROTO_I_TISD
+#       define getnetbyaddr(a, b) ((PL_reentrant_retint = getnetbyaddr_r(a, b, &PL_reentrant_buffer->_netent_struct, &PL_reentrant_buffer->_netent_data)) == 0 ? &PL_reentrant_buffer->_netent_struct : ((PL_reentrant_retint == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetbyaddr", a, b) : 0))
+#   endif
+#   if !defined(getnetbyaddr) && GETNETBYADDR_R_PROTO == REENTRANT_PROTO_I_LISD
+#       define getnetbyaddr(a, b) ((PL_reentrant_retint = getnetbyaddr_r(a, b, &PL_reentrant_buffer->_netent_struct, &PL_reentrant_buffer->_netent_data)) == 0 ? &PL_reentrant_buffer->_netent_struct : ((PL_reentrant_retint == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetbyaddr", a, b) : 0))
+#   endif
+#   if !defined(getnetbyaddr) && GETNETBYADDR_R_PROTO == REENTRANT_PROTO_I_IISD
+#       define getnetbyaddr(a, b) ((PL_reentrant_retint = getnetbyaddr_r(a, b, &PL_reentrant_buffer->_netent_struct, &PL_reentrant_buffer->_netent_data)) == 0 ? &PL_reentrant_buffer->_netent_struct : ((PL_reentrant_retint == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetbyaddr", a, b) : 0))
+#   endif
+#   if !defined(getnetbyaddr) && GETNETBYADDR_R_PROTO == REENTRANT_PROTO_I_uISBWRE
+#       define getnetbyaddr(a, b) ((PL_reentrant_retint = getnetbyaddr_r(a, b, &PL_reentrant_buffer->_netent_struct, PL_reentrant_buffer->_netent_buffer, PL_reentrant_buffer->_netent_size, &PL_reentrant_buffer->_netent_ptr, &PL_reentrant_buffer->_netent_errno)) == 0 ? PL_reentrant_buffer->_netent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetbyaddr", a, b) : 0))
+#   endif
+#  endif
+#endif /* HAS_GETNETBYADDR_R */
+
+#ifdef HAS_GETNETBYNAME_R
+#  if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
+#   undef getnetbyname
+#   if !defined(getnetbyname) && GETNETBYNAME_R_PROTO == REENTRANT_PROTO_I_CSBWRE
+#       define getnetbyname(a) ((PL_reentrant_retint = getnetbyname_r(a, &PL_reentrant_buffer->_netent_struct, PL_reentrant_buffer->_netent_buffer, PL_reentrant_buffer->_netent_size, &PL_reentrant_buffer->_netent_ptr, &PL_reentrant_buffer->_netent_errno)) == 0 ? PL_reentrant_buffer->_netent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetbyname", a) : 0))
+#   endif
+#   if !defined(getnetbyname) && GETNETBYNAME_R_PROTO == REENTRANT_PROTO_I_CSBI
+#       define getnetbyname(a) ((PL_reentrant_retint = getnetbyname_r(a, &PL_reentrant_buffer->_netent_struct, PL_reentrant_buffer->_netent_buffer, PL_reentrant_buffer->_netent_size)) == 0 ? &PL_reentrant_buffer->_netent_struct : ((PL_reentrant_retint == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetbyname", a) : 0))
+#   endif
+#   if !defined(getnetbyname) && GETNETBYNAME_R_PROTO == REENTRANT_PROTO_S_CSBI
+#       define getnetbyname(a) (getnetbyname_r(a, &PL_reentrant_buffer->_netent_struct, PL_reentrant_buffer->_netent_buffer, PL_reentrant_buffer->_netent_size) ? &PL_reentrant_buffer->_netent_struct : ((errno == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetbyname", a) : 0))
+#   endif
+#   if !defined(getnetbyname) && GETNETBYNAME_R_PROTO == REENTRANT_PROTO_I_CSD
+#       define getnetbyname(a) ((PL_reentrant_retint = getnetbyname_r(a, &PL_reentrant_buffer->_netent_struct, &PL_reentrant_buffer->_netent_data)) == 0 ? &PL_reentrant_buffer->_netent_struct : ((PL_reentrant_retint == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetbyname", a) : 0))
+#   endif
+#  endif
+#endif /* HAS_GETNETBYNAME_R */
+
+#ifdef HAS_GETNETENT_R
+#  if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
+#   undef getnetent
+#   if !defined(getnetent) && GETNETENT_R_PROTO == REENTRANT_PROTO_I_SBWRE
+#       define getnetent() ((PL_reentrant_retint = getnetent_r(&PL_reentrant_buffer->_netent_struct, PL_reentrant_buffer->_netent_buffer, PL_reentrant_buffer->_netent_size, &PL_reentrant_buffer->_netent_ptr, &PL_reentrant_buffer->_netent_errno)) == 0 ? PL_reentrant_buffer->_netent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetent") : 0))
+#   endif
+#   if !defined(getnetent) && GETNETENT_R_PROTO == REENTRANT_PROTO_I_SBIE
+#       define getnetent() ((PL_reentrant_retint = getnetent_r(&PL_reentrant_buffer->_netent_struct, PL_reentrant_buffer->_netent_buffer, PL_reentrant_buffer->_netent_size, &PL_reentrant_buffer->_netent_errno)) == 0 ? &PL_reentrant_buffer->_netent_struct : ((PL_reentrant_retint == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetent") : 0))
+#   endif
+#   if !defined(getnetent) && GETNETENT_R_PROTO == REENTRANT_PROTO_S_SBIE
+#       define getnetent() (getnetent_r(&PL_reentrant_buffer->_netent_struct, PL_reentrant_buffer->_netent_buffer, PL_reentrant_buffer->_netent_size, &PL_reentrant_buffer->_netent_errno) ? &PL_reentrant_buffer->_netent_struct : ((errno == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetent") : 0))
+#   endif
+#   if !defined(getnetent) && GETNETENT_R_PROTO == REENTRANT_PROTO_S_SBI
+#       define getnetent() (getnetent_r(&PL_reentrant_buffer->_netent_struct, PL_reentrant_buffer->_netent_buffer, PL_reentrant_buffer->_netent_size) ? &PL_reentrant_buffer->_netent_struct : ((errno == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetent") : 0))
+#   endif
+#   if !defined(getnetent) && GETNETENT_R_PROTO == REENTRANT_PROTO_I_SBI
+#       define getnetent() ((PL_reentrant_retint = getnetent_r(&PL_reentrant_buffer->_netent_struct, PL_reentrant_buffer->_netent_buffer, PL_reentrant_buffer->_netent_size)) == 0 ? &PL_reentrant_buffer->_netent_struct : ((PL_reentrant_retint == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetent") : 0))
+#   endif
+#   if !defined(getnetent) && GETNETENT_R_PROTO == REENTRANT_PROTO_I_SD
+#       define getnetent() ((PL_reentrant_retint = getnetent_r(&PL_reentrant_buffer->_netent_struct, &PL_reentrant_buffer->_netent_data)) == 0 ? &PL_reentrant_buffer->_netent_struct : ((PL_reentrant_retint == ERANGE) ? (struct netent *) Perl_reentrant_retry("getnetent") : 0))
+#   endif
+#  endif
+#endif /* HAS_GETNETENT_R */
+
+#ifdef HAS_GETPROTOBYNAME_R
+#  if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
+#   undef getprotobyname
+#   if !defined(getprotobyname) && GETPROTOBYNAME_R_PROTO == REENTRANT_PROTO_I_CSBWR
+#       define getprotobyname(a) ((PL_reentrant_retint = getprotobyname_r(a, &PL_reentrant_buffer->_protoent_struct, PL_reentrant_buffer->_protoent_buffer, PL_reentrant_buffer->_protoent_size, &PL_reentrant_buffer->_protoent_ptr)) == 0 ? PL_reentrant_buffer->_protoent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct protoent *) Perl_reentrant_retry("getprotobyname", a) : 0))
+#   endif
+#   if !defined(getprotobyname) && GETPROTOBYNAME_R_PROTO == REENTRANT_PROTO_S_CSBI
+#       define getprotobyname(a) (getprotobyname_r(a, &PL_reentrant_buffer->_protoent_struct, PL_reentrant_buffer->_protoent_buffer, PL_reentrant_buffer->_protoent_size) ? &PL_reentrant_buffer->_protoent_struct : ((errno == ERANGE) ? (struct protoent *) Perl_reentrant_retry("getprotobyname", a) : 0))
+#   endif
+#   if !defined(getprotobyname) && GETPROTOBYNAME_R_PROTO == REENTRANT_PROTO_I_CSD
+#       define getprotobyname(a) (REENTR_MEMZERO(&PL_reentrant_buffer->_protoent_data, sizeof(PL_reentrant_buffer->_protoent_data)),(PL_reentrant_retint = getprotobyname_r(a, &PL_reentrant_buffer->_protoent_struct, &PL_reentrant_buffer->_protoent_data)) == 0 ? &PL_reentrant_buffer->_protoent_struct : ((PL_reentrant_retint == ERANGE) ? (struct protoent *) Perl_reentrant_retry("getprotobyname", a) : 0))
+#   endif
+#  endif
+#endif /* HAS_GETPROTOBYNAME_R */
+
+#ifdef HAS_GETPROTOBYNUMBER_R
+#  if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
+#   undef getprotobynumber
+#   if !defined(getprotobynumber) && GETPROTOBYNUMBER_R_PROTO == REENTRANT_PROTO_I_ISBWR
+#       define getprotobynumber(a) ((PL_reentrant_retint = getprotobynumber_r(a, &PL_reentrant_buffer->_protoent_struct, PL_reentrant_buffer->_protoent_buffer, PL_reentrant_buffer->_protoent_size, &PL_reentrant_buffer->_protoent_ptr)) == 0 ? PL_reentrant_buffer->_protoent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct protoent *) Perl_reentrant_retry("getprotobynumber", a) : 0))
+#   endif
+#   if !defined(getprotobynumber) && GETPROTOBYNUMBER_R_PROTO == REENTRANT_PROTO_S_ISBI
+#       define getprotobynumber(a) (getprotobynumber_r(a, &PL_reentrant_buffer->_protoent_struct, PL_reentrant_buffer->_protoent_buffer, PL_reentrant_buffer->_protoent_size) ? &PL_reentrant_buffer->_protoent_struct : ((errno == ERANGE) ? (struct protoent *) Perl_reentrant_retry("getprotobynumber", a) : 0))
+#   endif
+#   if !defined(getprotobynumber) && GETPROTOBYNUMBER_R_PROTO == REENTRANT_PROTO_I_ISD
+#       define getprotobynumber(a) (REENTR_MEMZERO(&PL_reentrant_buffer->_protoent_data, sizeof(PL_reentrant_buffer->_protoent_data)),(PL_reentrant_retint = getprotobynumber_r(a, &PL_reentrant_buffer->_protoent_struct, &PL_reentrant_buffer->_protoent_data)) == 0 ? &PL_reentrant_buffer->_protoent_struct : ((PL_reentrant_retint == ERANGE) ? (struct protoent *) Perl_reentrant_retry("getprotobynumber", a) : 0))
+#   endif
+#  endif
+#endif /* HAS_GETPROTOBYNUMBER_R */
+
+#ifdef HAS_GETPROTOENT_R
+#  if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
+#   undef getprotoent
+#   if !defined(getprotoent) && GETPROTOENT_R_PROTO == REENTRANT_PROTO_I_SBWR
+#       define getprotoent() ((PL_reentrant_retint = getprotoent_r(&PL_reentrant_buffer->_protoent_struct, PL_reentrant_buffer->_protoent_buffer, PL_reentrant_buffer->_protoent_size, &PL_reentrant_buffer->_protoent_ptr)) == 0 ? PL_reentrant_buffer->_protoent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct protoent *) Perl_reentrant_retry("getprotoent") : 0))
+#   endif
+#   if !defined(getprotoent) && GETPROTOENT_R_PROTO == REENTRANT_PROTO_I_SBI
+#       define getprotoent() ((PL_reentrant_retint = getprotoent_r(&PL_reentrant_buffer->_protoent_struct, PL_reentrant_buffer->_protoent_buffer, PL_reentrant_buffer->_protoent_size)) == 0 ? &PL_reentrant_buffer->_protoent_struct : ((PL_reentrant_retint == ERANGE) ? (struct protoent *) Perl_reentrant_retry("getprotoent") : 0))
+#   endif
+#   if !defined(getprotoent) && GETPROTOENT_R_PROTO == REENTRANT_PROTO_S_SBI
+#       define getprotoent() (getprotoent_r(&PL_reentrant_buffer->_protoent_struct, PL_reentrant_buffer->_protoent_buffer, PL_reentrant_buffer->_protoent_size) ? &PL_reentrant_buffer->_protoent_struct : ((errno == ERANGE) ? (struct protoent *) Perl_reentrant_retry("getprotoent") : 0))
+#   endif
+#   if !defined(getprotoent) && GETPROTOENT_R_PROTO == REENTRANT_PROTO_I_SD
+#       define getprotoent() (REENTR_MEMZERO(&PL_reentrant_buffer->_protoent_data, sizeof(PL_reentrant_buffer->_protoent_data)),(PL_reentrant_retint = getprotoent_r(&PL_reentrant_buffer->_protoent_struct, &PL_reentrant_buffer->_protoent_data)) == 0 ? &PL_reentrant_buffer->_protoent_struct : ((PL_reentrant_retint == ERANGE) ? (struct protoent *) Perl_reentrant_retry("getprotoent") : 0))
+#   endif
+#  endif
+#endif /* HAS_GETPROTOENT_R */
+
+#ifdef HAS_GETPWENT_R
+#  if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
+#   undef getpwent
+#   if !defined(getpwent) && GETPWENT_R_PROTO == REENTRANT_PROTO_I_SBWR
+#       define getpwent() ((PL_reentrant_retint = getpwent_r(&PL_reentrant_buffer->_pwent_struct, PL_reentrant_buffer->_pwent_buffer, PL_reentrant_buffer->_pwent_size, &PL_reentrant_buffer->_pwent_ptr)) == 0 ? PL_reentrant_buffer->_pwent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct passwd *) Perl_reentrant_retry("getpwent") : 0))
+#   endif
+#   if !defined(getpwent) && GETPWENT_R_PROTO == REENTRANT_PROTO_I_SBIR
+#       define getpwent() ((PL_reentrant_retint = getpwent_r(&PL_reentrant_buffer->_pwent_struct, PL_reentrant_buffer->_pwent_buffer, PL_reentrant_buffer->_pwent_size, &PL_reentrant_buffer->_pwent_ptr)) == 0 ? PL_reentrant_buffer->_pwent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct passwd *) Perl_reentrant_retry("getpwent") : 0))
+#   endif
+#   if !defined(getpwent) && GETPWENT_R_PROTO == REENTRANT_PROTO_S_SBW
+#       define getpwent() (getpwent_r(&PL_reentrant_buffer->_pwent_struct, PL_reentrant_buffer->_pwent_buffer, PL_reentrant_buffer->_pwent_size) ? &PL_reentrant_buffer->_pwent_struct : ((errno == ERANGE) ? (struct passwd *) Perl_reentrant_retry("getpwent") : 0))
+#   endif
+#   if !defined(getpwent) && GETPWENT_R_PROTO == REENTRANT_PROTO_S_SBI
+#       define getpwent() (getpwent_r(&PL_reentrant_buffer->_pwent_struct, PL_reentrant_buffer->_pwent_buffer, PL_reentrant_buffer->_pwent_size) ? &PL_reentrant_buffer->_pwent_struct : ((errno == ERANGE) ? (struct passwd *) Perl_reentrant_retry("getpwent") : 0))
+#   endif
+#   if !defined(getpwent) && GETPWENT_R_PROTO == REENTRANT_PROTO_I_SBI
+#       define getpwent() ((PL_reentrant_retint = getpwent_r(&PL_reentrant_buffer->_pwent_struct, PL_reentrant_buffer->_pwent_buffer, PL_reentrant_buffer->_pwent_size)) == 0 ? &PL_reentrant_buffer->_pwent_struct : ((PL_reentrant_retint == ERANGE) ? (struct passwd *) Perl_reentrant_retry("getpwent") : 0))
+#   endif
+#   if !defined(getpwent) && GETPWENT_R_PROTO == REENTRANT_PROTO_I_SBIH
+#       define getpwent() ((PL_reentrant_retint = getpwent_r(&PL_reentrant_buffer->_pwent_struct, PL_reentrant_buffer->_pwent_buffer, PL_reentrant_buffer->_pwent_size, &PL_reentrant_buffer->_pwent_fptr)) == 0 ? &PL_reentrant_buffer->_pwent_struct : ((PL_reentrant_retint == ERANGE) ? (struct passwd *) Perl_reentrant_retry("getpwent") : 0))
+#   endif
+#  endif
+#endif /* HAS_GETPWENT_R */
+
+#ifdef HAS_GETPWNAM_R
+#  if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
+#   undef getpwnam
+#   if !defined(getpwnam) && GETPWNAM_R_PROTO == REENTRANT_PROTO_I_CSBWR
+#       define getpwnam(a) ((PL_reentrant_retint = getpwnam_r(a, &PL_reentrant_buffer->_pwent_struct, PL_reentrant_buffer->_pwent_buffer, PL_reentrant_buffer->_pwent_size, &PL_reentrant_buffer->_pwent_ptr)) == 0 ? PL_reentrant_buffer->_pwent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct passwd *) Perl_reentrant_retry("getpwnam", a) : 0))
+#   endif
+#   if !defined(getpwnam) && GETPWNAM_R_PROTO == REENTRANT_PROTO_I_CSBIR
+#       define getpwnam(a) ((PL_reentrant_retint = getpwnam_r(a, &PL_reentrant_buffer->_pwent_struct, PL_reentrant_buffer->_pwent_buffer, PL_reentrant_buffer->_pwent_size, &PL_reentrant_buffer->_pwent_ptr)) == 0 ? PL_reentrant_buffer->_pwent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct passwd *) Perl_reentrant_retry("getpwnam", a) : 0))
+#   endif
+#   if !defined(getpwnam) && GETPWNAM_R_PROTO == REENTRANT_PROTO_S_CSBI
+#       define getpwnam(a) (getpwnam_r(a, &PL_reentrant_buffer->_pwent_struct, PL_reentrant_buffer->_pwent_buffer, PL_reentrant_buffer->_pwent_size) ? &PL_reentrant_buffer->_pwent_struct : ((errno == ERANGE) ? (struct passwd *) Perl_reentrant_retry("getpwnam", a) : 0))
+#   endif
+#   if !defined(getpwnam) && GETPWNAM_R_PROTO == REENTRANT_PROTO_I_CSBI
+#       define getpwnam(a) ((PL_reentrant_retint = getpwnam_r(a, &PL_reentrant_buffer->_pwent_struct, PL_reentrant_buffer->_pwent_buffer, PL_reentrant_buffer->_pwent_size)) == 0 ? &PL_reentrant_buffer->_pwent_struct : ((PL_reentrant_retint == ERANGE) ? (struct passwd *) Perl_reentrant_retry("getpwnam", a) : 0))
+#   endif
+#  endif
+#endif /* HAS_GETPWNAM_R */
+
+#ifdef HAS_GETPWUID_R
+#  if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
+#   undef getpwuid
+#   if !defined(getpwuid) && GETPWUID_R_PROTO == REENTRANT_PROTO_I_TSBWR
+#       define getpwuid(a) ((PL_reentrant_retint = getpwuid_r(a, &PL_reentrant_buffer->_pwent_struct, PL_reentrant_buffer->_pwent_buffer, PL_reentrant_buffer->_pwent_size, &PL_reentrant_buffer->_pwent_ptr)) == 0 ? PL_reentrant_buffer->_pwent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct passwd *) Perl_reentrant_retry("getpwuid", a) : 0))
+#   endif
+#   if !defined(getpwuid) && GETPWUID_R_PROTO == REENTRANT_PROTO_I_TSBIR
+#       define getpwuid(a) ((PL_reentrant_retint = getpwuid_r(a, &PL_reentrant_buffer->_pwent_struct, PL_reentrant_buffer->_pwent_buffer, PL_reentrant_buffer->_pwent_size, &PL_reentrant_buffer->_pwent_ptr)) == 0 ? PL_reentrant_buffer->_pwent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct passwd *) Perl_reentrant_retry("getpwuid", a) : 0))
+#   endif
+#   if !defined(getpwuid) && GETPWUID_R_PROTO == REENTRANT_PROTO_I_TSBI
+#       define getpwuid(a) ((PL_reentrant_retint = getpwuid_r(a, &PL_reentrant_buffer->_pwent_struct, PL_reentrant_buffer->_pwent_buffer, PL_reentrant_buffer->_pwent_size)) == 0 ? &PL_reentrant_buffer->_pwent_struct : ((PL_reentrant_retint == ERANGE) ? (struct passwd *) Perl_reentrant_retry("getpwuid", a) : 0))
+#   endif
+#   if !defined(getpwuid) && GETPWUID_R_PROTO == REENTRANT_PROTO_S_TSBI
+#       define getpwuid(a) (getpwuid_r(a, &PL_reentrant_buffer->_pwent_struct, PL_reentrant_buffer->_pwent_buffer, PL_reentrant_buffer->_pwent_size) ? &PL_reentrant_buffer->_pwent_struct : ((errno == ERANGE) ? (struct passwd *) Perl_reentrant_retry("getpwuid", a) : 0))
+#   endif
+#  endif
+#endif /* HAS_GETPWUID_R */
+
+#ifdef HAS_GETSERVBYNAME_R
+#  if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
+#   undef getservbyname
+#   if !defined(getservbyname) && GETSERVBYNAME_R_PROTO == REENTRANT_PROTO_I_CCSBWR
+#       define getservbyname(a, b) ((PL_reentrant_retint = getservbyname_r(a, b, &PL_reentrant_buffer->_servent_struct, PL_reentrant_buffer->_servent_buffer, PL_reentrant_buffer->_servent_size, &PL_reentrant_buffer->_servent_ptr)) == 0 ? PL_reentrant_buffer->_servent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct servent *) Perl_reentrant_retry("getservbyname", a, b) : 0))
+#   endif
+#   if !defined(getservbyname) && GETSERVBYNAME_R_PROTO == REENTRANT_PROTO_S_CCSBI
+#       define getservbyname(a, b) (getservbyname_r(a, b, &PL_reentrant_buffer->_servent_struct, PL_reentrant_buffer->_servent_buffer, PL_reentrant_buffer->_servent_size) ? &PL_reentrant_buffer->_servent_struct : ((errno == ERANGE) ? (struct servent *) Perl_reentrant_retry("getservbyname", a, b) : 0))
+#   endif
+#   if !defined(getservbyname) && GETSERVBYNAME_R_PROTO == REENTRANT_PROTO_I_CCSD
+#       define getservbyname(a, b) (REENTR_MEMZERO(&PL_reentrant_buffer->_servent_data, sizeof(PL_reentrant_buffer->_servent_data)),(PL_reentrant_retint = getservbyname_r(a, b, &PL_reentrant_buffer->_servent_struct, &PL_reentrant_buffer->_servent_data)) == 0 ? &PL_reentrant_buffer->_servent_struct : ((PL_reentrant_retint == ERANGE) ? (struct servent *) Perl_reentrant_retry("getservbyname", a, b) : 0))
+#   endif
+#  endif
+#endif /* HAS_GETSERVBYNAME_R */
+
+#ifdef HAS_GETSERVBYPORT_R
+#  if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
+#   undef getservbyport
+#   if !defined(getservbyport) && GETSERVBYPORT_R_PROTO == REENTRANT_PROTO_I_ICSBWR
+#       define getservbyport(a, b) ((PL_reentrant_retint = getservbyport_r(a, b, &PL_reentrant_buffer->_servent_struct, PL_reentrant_buffer->_servent_buffer, PL_reentrant_buffer->_servent_size, &PL_reentrant_buffer->_servent_ptr)) == 0 ? PL_reentrant_buffer->_servent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct servent *) Perl_reentrant_retry("getservbyport", a, b) : 0))
+#   endif
+#   if !defined(getservbyport) && GETSERVBYPORT_R_PROTO == REENTRANT_PROTO_S_ICSBI
+#       define getservbyport(a, b) (getservbyport_r(a, b, &PL_reentrant_buffer->_servent_struct, PL_reentrant_buffer->_servent_buffer, PL_reentrant_buffer->_servent_size) ? &PL_reentrant_buffer->_servent_struct : ((errno == ERANGE) ? (struct servent *) Perl_reentrant_retry("getservbyport", a, b) : 0))
+#   endif
+#   if !defined(getservbyport) && GETSERVBYPORT_R_PROTO == REENTRANT_PROTO_I_ICSD
+#       define getservbyport(a, b) (REENTR_MEMZERO(&PL_reentrant_buffer->_servent_data, sizeof(PL_reentrant_buffer->_servent_data)),(PL_reentrant_retint = getservbyport_r(a, b, &PL_reentrant_buffer->_servent_struct, &PL_reentrant_buffer->_servent_data)) == 0 ? &PL_reentrant_buffer->_servent_struct : ((PL_reentrant_retint == ERANGE) ? (struct servent *) Perl_reentrant_retry("getservbyport", a, b) : 0))
+#   endif
+#  endif
+#endif /* HAS_GETSERVBYPORT_R */
+
+#ifdef HAS_GETSERVENT_R
+#  if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
+#   undef getservent
+#   if !defined(getservent) && GETSERVENT_R_PROTO == REENTRANT_PROTO_I_SBWR
+#       define getservent() ((PL_reentrant_retint = getservent_r(&PL_reentrant_buffer->_servent_struct, PL_reentrant_buffer->_servent_buffer, PL_reentrant_buffer->_servent_size, &PL_reentrant_buffer->_servent_ptr)) == 0 ? PL_reentrant_buffer->_servent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct servent *) Perl_reentrant_retry("getservent") : 0))
+#   endif
+#   if !defined(getservent) && GETSERVENT_R_PROTO == REENTRANT_PROTO_I_SBI
+#       define getservent() ((PL_reentrant_retint = getservent_r(&PL_reentrant_buffer->_servent_struct, PL_reentrant_buffer->_servent_buffer, PL_reentrant_buffer->_servent_size)) == 0 ? &PL_reentrant_buffer->_servent_struct : ((PL_reentrant_retint == ERANGE) ? (struct servent *) Perl_reentrant_retry("getservent") : 0))
+#   endif
+#   if !defined(getservent) && GETSERVENT_R_PROTO == REENTRANT_PROTO_S_SBI
+#       define getservent() (getservent_r(&PL_reentrant_buffer->_servent_struct, PL_reentrant_buffer->_servent_buffer, PL_reentrant_buffer->_servent_size) ? &PL_reentrant_buffer->_servent_struct : ((errno == ERANGE) ? (struct servent *) Perl_reentrant_retry("getservent") : 0))
+#   endif
+#   if !defined(getservent) && GETSERVENT_R_PROTO == REENTRANT_PROTO_I_SD
+#       define getservent() (REENTR_MEMZERO(&PL_reentrant_buffer->_servent_data, sizeof(PL_reentrant_buffer->_servent_data)),(PL_reentrant_retint = getservent_r(&PL_reentrant_buffer->_servent_struct, &PL_reentrant_buffer->_servent_data)) == 0 ? &PL_reentrant_buffer->_servent_struct : ((PL_reentrant_retint == ERANGE) ? (struct servent *) Perl_reentrant_retry("getservent") : 0))
+#   endif
+#  endif
+#endif /* HAS_GETSERVENT_R */
+
+#ifdef HAS_GETSPNAM_R
+#  if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
+#   undef getspnam
+#   if !defined(getspnam) && GETSPNAM_R_PROTO == REENTRANT_PROTO_I_CSBWR
+#       define getspnam(a) ((PL_reentrant_retint = getspnam_r(a, &PL_reentrant_buffer->_spent_struct, PL_reentrant_buffer->_spent_buffer, PL_reentrant_buffer->_spent_size, &PL_reentrant_buffer->_spent_ptr)) == 0 ? PL_reentrant_buffer->_spent_ptr : ((PL_reentrant_retint == ERANGE) ? (struct spwd *) Perl_reentrant_retry("getspnam", a) : 0))
+#   endif
+#   if !defined(getspnam) && GETSPNAM_R_PROTO == REENTRANT_PROTO_S_CSBI
+#       define getspnam(a) (getspnam_r(a, &PL_reentrant_buffer->_spent_struct, PL_reentrant_buffer->_spent_buffer, PL_reentrant_buffer->_spent_size) ? &PL_reentrant_buffer->_spent_struct : ((errno == ERANGE) ? (struct spwd *) Perl_reentrant_retry("getspnam", a) : 0))
+#   endif
+#  endif
+#endif /* HAS_GETSPNAM_R */
+
+#ifdef HAS_READDIR_R
+#  if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
+#   undef readdir
+#   if !defined(readdir) && READDIR_R_PROTO == REENTRANT_PROTO_I_TSR
+#       define readdir(a) (readdir_r(a, PL_reentrant_buffer->_readdir_struct, &PL_reentrant_buffer->_readdir_ptr) == 0 ? PL_reentrant_buffer->_readdir_ptr : 0)
+#   endif
+#   if !defined(readdir) && READDIR_R_PROTO == REENTRANT_PROTO_I_TS
+#       define readdir(a) (readdir_r(a, PL_reentrant_buffer->_readdir_struct) == 0 ? PL_reentrant_buffer->_readdir_struct : 0)
+#   endif
+#  endif
+#endif /* HAS_READDIR_R */
+
+#ifdef HAS_READDIR64_R
+#  if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
+#   undef readdir64
+#   if !defined(readdir64) && READDIR64_R_PROTO == REENTRANT_PROTO_I_TSR
+#       define readdir64(a) (readdir64_r(a, PL_reentrant_buffer->_readdir64_struct, &PL_reentrant_buffer->_readdir64_ptr) == 0 ? PL_reentrant_buffer->_readdir64_ptr : 0)
+#   endif
+#   if !defined(readdir64) && READDIR64_R_PROTO == REENTRANT_PROTO_I_TS
+#       define readdir64(a) (readdir64_r(a, PL_reentrant_buffer->_readdir64_struct) == 0 ? PL_reentrant_buffer->_readdir64_struct : 0)
+#   endif
+#  endif
+#endif /* HAS_READDIR64_R */
+
+#ifdef HAS_SETGRENT_R
+#  if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
+#   undef setgrent
+#   if !defined(setgrent) && SETGRENT_R_PROTO == REENTRANT_PROTO_I_H
+#       define setgrent() (setgrent_r(&PL_reentrant_buffer->_grent_fptr) == 0 ? 1 : 0)
+#   endif
+#   if !defined(setgrent) && SETGRENT_R_PROTO == REENTRANT_PROTO_V_H
+#       define setgrent() setgrent_r(&PL_reentrant_buffer->_grent_fptr)
+#   endif
+#  endif
+#endif /* HAS_SETGRENT_R */
+
+#ifdef HAS_SETHOSTENT_R
+#  if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
+#   undef sethostent
+#   if !defined(sethostent) && SETHOSTENT_R_PROTO == REENTRANT_PROTO_I_ID
+#       define sethostent(a) (sethostent_r(a, &PL_reentrant_buffer->_hostent_data) == 0 ? 1 : 0)
+#   endif
+#   if !defined(sethostent) && SETHOSTENT_R_PROTO == REENTRANT_PROTO_V_ID
+#       define sethostent(a) sethostent_r(a, &PL_reentrant_buffer->_hostent_data)
+#   endif
+#  endif
+#endif /* HAS_SETHOSTENT_R */
+
+#ifdef HAS_SETLOCALE_R
+#  if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
+#   undef setlocale
+#   if !defined(setlocale) && SETLOCALE_R_PROTO == REENTRANT_PROTO_I_ICBI
+#       define setlocale(a, b) (setlocale_r(a, b, PL_reentrant_buffer->_setlocale_buffer, PL_reentrant_buffer->_setlocale_size) == 0 ? PL_reentrant_buffer->_setlocale_buffer : 0)
+#   endif
+#  endif
+#endif /* HAS_SETLOCALE_R */
+
+#ifdef HAS_SETNETENT_R
+#  if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
+#   undef setnetent
+#   if !defined(setnetent) && SETNETENT_R_PROTO == REENTRANT_PROTO_I_ID
+#       define setnetent(a) (setnetent_r(a, &PL_reentrant_buffer->_netent_data) == 0 ? 1 : 0)
+#   endif
+#   if !defined(setnetent) && SETNETENT_R_PROTO == REENTRANT_PROTO_V_ID
+#       define setnetent(a) setnetent_r(a, &PL_reentrant_buffer->_netent_data)
+#   endif
+#  endif
+#endif /* HAS_SETNETENT_R */
+
+#ifdef HAS_SETPROTOENT_R
+#  if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
+#   undef setprotoent
+#   if !defined(setprotoent) && SETPROTOENT_R_PROTO == REENTRANT_PROTO_I_ID
+#       define setprotoent(a) (setprotoent_r(a, &PL_reentrant_buffer->_protoent_data) == 0 ? 1 : 0)
+#   endif
+#   if !defined(setprotoent) && SETPROTOENT_R_PROTO == REENTRANT_PROTO_V_ID
+#       define setprotoent(a) setprotoent_r(a, &PL_reentrant_buffer->_protoent_data)
+#   endif
+#  endif
+#endif /* HAS_SETPROTOENT_R */
+
+#ifdef HAS_SETPWENT_R
+#  if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
+#   undef setpwent
+#   if !defined(setpwent) && SETPWENT_R_PROTO == REENTRANT_PROTO_I_H
+#       define setpwent() (setpwent_r(&PL_reentrant_buffer->_pwent_fptr) == 0 ? 1 : 0)
+#   endif
+#   if !defined(setpwent) && SETPWENT_R_PROTO == REENTRANT_PROTO_V_H
+#       define setpwent() setpwent_r(&PL_reentrant_buffer->_pwent_fptr)
+#   endif
+#  endif
+#endif /* HAS_SETPWENT_R */
+
+#ifdef HAS_SETSERVENT_R
+#  if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
+#   undef setservent
+#   if !defined(setservent) && SETSERVENT_R_PROTO == REENTRANT_PROTO_I_ID
+#       define setservent(a) (setservent_r(a, &PL_reentrant_buffer->_servent_data) == 0 ? 1 : 0)
+#   endif
+#   if !defined(setservent) && SETSERVENT_R_PROTO == REENTRANT_PROTO_V_ID
+#       define setservent(a) setservent_r(a, &PL_reentrant_buffer->_servent_data)
+#   endif
+#  endif
+#endif /* HAS_SETSERVENT_R */
+
+#ifdef HAS_STRERROR_R
+#  if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
+#   undef strerror
+#   if !defined(strerror) && STRERROR_R_PROTO == REENTRANT_PROTO_I_IBW
+#       define strerror(a) (strerror_r(a, PL_reentrant_buffer->_strerror_buffer, PL_reentrant_buffer->_strerror_size) == 0 ? PL_reentrant_buffer->_strerror_buffer : 0)
+#   endif
+#   if !defined(strerror) && STRERROR_R_PROTO == REENTRANT_PROTO_I_IBI
+#       define strerror(a) (strerror_r(a, PL_reentrant_buffer->_strerror_buffer, PL_reentrant_buffer->_strerror_size) == 0 ? PL_reentrant_buffer->_strerror_buffer : 0)
+#   endif
+#   if !defined(strerror) && STRERROR_R_PROTO == REENTRANT_PROTO_B_IBW
+#       define strerror(a) strerror_r(a, PL_reentrant_buffer->_strerror_buffer, PL_reentrant_buffer->_strerror_size)
+#   endif
+#  endif
+#endif /* HAS_STRERROR_R */
+
+#ifdef HAS_TMPNAM_R
+#  if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
+#   undef tmpnam
+#   if !defined(tmpnam) && TMPNAM_R_PROTO == REENTRANT_PROTO_B_B
+#       define tmpnam(a) tmpnam_r(a)
+#   endif
+#  endif
+#endif /* HAS_TMPNAM_R */
+
+#ifdef HAS_TTYNAME_R
+#  if defined(PERL_REENTR_API) && (PERL_REENTR_API+0 == 1)
+#   undef ttyname
+#   if !defined(ttyname) && TTYNAME_R_PROTO == REENTRANT_PROTO_I_IBW
+#       define ttyname(a) (ttyname_r(a, PL_reentrant_buffer->_ttyname_buffer, PL_reentrant_buffer->_ttyname_size) == 0 ? PL_reentrant_buffer->_ttyname_buffer : 0)
+#   endif
+#   if !defined(ttyname) && TTYNAME_R_PROTO == REENTRANT_PROTO_I_IBI
+#       define ttyname(a) (ttyname_r(a, PL_reentrant_buffer->_ttyname_buffer, PL_reentrant_buffer->_ttyname_size) == 0 ? PL_reentrant_buffer->_ttyname_buffer : 0)
+#   endif
+#   if !defined(ttyname) && TTYNAME_R_PROTO == REENTRANT_PROTO_B_IBI
+#       define ttyname(a) ttyname_r(a, PL_reentrant_buffer->_ttyname_buffer, PL_reentrant_buffer->_ttyname_size)
+#   endif
+#  endif
+#endif /* HAS_TTYNAME_R */
+
+
+
+#endif /* USE_REENTRANT_API */
+ 
+#endif
+
+/* ex: set ro: */
diff --git a/lib/5.24.1/x86_64-linux/CORE/regcharclass.h b/lib/5.24.1/x86_64-linux/CORE/regcharclass.h
new file mode 100644
index 00000000..36fa1fd0
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/regcharclass.h
@@ -0,0 +1,1903 @@
+/* -*- buffer-read-only: t -*-
+ *
+ *    regcharclass.h
+ *
+ *    Copyright (C) 2007, 2011 by Larry Wall and others
+ *
+ *    You may distribute under the terms of either the GNU General Public
+ *    License or the Artistic License, as specified in the README file.
+ *
+ * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+ * This file is built by regen/regcharclass.pl.
+ * Any changes made here will be lost!
+ * WARNING: These macros are for internal Perl core use only, and may be
+ * changed or removed without notice.
+ */
+
+
+#ifndef H_REGCHARCLASS   /* Guard against nested #includes */
+#define H_REGCHARCLASS 1
+
+#if 'A' == 65 /* ASCII/Latin1 */
+/*
+	LNBREAK: Line Break: \R
+
+	"\x0D\x0A"      # CRLF - Network (Windows) line ending
+	\p{VertSpace}
+*/
+/*** GENERATED CODE ***/
+#define is_LNBREAK_safe(s,e,is_utf8)                                        \
+( ((e)-(s) > 2) ?                                                           \
+    ( ( 0x0A <= ((U8*)s)[0] && ((U8*)s)[0] <= 0x0C ) ? 1                    \
+    : ( 0x0D == ((U8*)s)[0] ) ?                                             \
+	( ( 0x0A == ((U8*)s)[1] ) ? 2 : 1 )                                 \
+    : ( is_utf8 ) ?                                                         \
+	( ( 0xC2 == ((U8*)s)[0] ) ?                                         \
+	    ( ( 0x85 == ((U8*)s)[1] ) ? 2 : 0 )                             \
+	: ( ( ( 0xE2 == ((U8*)s)[0] ) && ( 0x80 == ((U8*)s)[1] ) ) && ( ( ((U8*)s)[2] & 0xFE ) == 0xA8 ) ) ? 3 : 0 )\
+    : ( 0x85 == ((U8*)s)[0] ) )                                             \
+: ((e)-(s) > 1) ?                                                           \
+    ( ( 0x0A <= ((U8*)s)[0] && ((U8*)s)[0] <= 0x0C ) ? 1                    \
+    : ( 0x0D == ((U8*)s)[0] ) ?                                             \
+	( ( 0x0A == ((U8*)s)[1] ) ? 2 : 1 )                                 \
+    : ( is_utf8 ) ?                                                         \
+	( ( ( 0xC2 == ((U8*)s)[0] ) && ( 0x85 == ((U8*)s)[1] ) ) ? 2 : 0 )  \
+    : ( 0x85 == ((U8*)s)[0] ) )                                             \
+: ((e)-(s) > 0) ?                                                           \
+    ( ( 0x0A <= ((U8*)s)[0] && ((U8*)s)[0] <= 0x0D ) ? 1                    \
+    : ( !( is_utf8 ) ) ?                                                    \
+	( 0x85 == ((U8*)s)[0] )                                             \
+    : 0 )                                                                   \
+: 0 )
+
+/*** GENERATED CODE ***/
+#define is_LNBREAK_utf8_safe(s,e)                                           \
+( ((e)-(s) > 2) ?                                                           \
+    ( ( 0x0A <= ((U8*)s)[0] && ((U8*)s)[0] <= 0x0C ) ? 1                    \
+    : ( 0x0D == ((U8*)s)[0] ) ?                                             \
+	( ( 0x0A == ((U8*)s)[1] ) ? 2 : 1 )                                 \
+    : ( 0xC2 == ((U8*)s)[0] ) ?                                             \
+	( ( 0x85 == ((U8*)s)[1] ) ? 2 : 0 )                                 \
+    : ( ( ( 0xE2 == ((U8*)s)[0] ) && ( 0x80 == ((U8*)s)[1] ) ) && ( ( ((U8*)s)[2] & 0xFE ) == 0xA8 ) ) ? 3 : 0 )\
+: ((e)-(s) > 1) ?                                                           \
+    ( ( 0x0A <= ((U8*)s)[0] && ((U8*)s)[0] <= 0x0C ) ? 1                    \
+    : ( 0x0D == ((U8*)s)[0] ) ?                                             \
+	( ( 0x0A == ((U8*)s)[1] ) ? 2 : 1 )                                 \
+    : ( ( 0xC2 == ((U8*)s)[0] ) && ( 0x85 == ((U8*)s)[1] ) ) ? 2 : 0 )      \
+: ((e)-(s) > 0) ?                                                           \
+    ( 0x0A <= ((U8*)s)[0] && ((U8*)s)[0] <= 0x0D )                          \
+: 0 )
+
+/*** GENERATED CODE ***/
+#define is_LNBREAK_latin1_safe(s,e)                                         \
+( ((e)-(s) > 1) ?                                                           \
+    ( ( ( 0x0A <= ((U8*)s)[0] && ((U8*)s)[0] <= 0x0C ) || 0x85 == ((U8*)s)[0] ) ? 1\
+    : ( 0x0D == ((U8*)s)[0] ) ?                                             \
+	( ( 0x0A == ((U8*)s)[1] ) ? 2 : 1 )                                 \
+    : 0 )                                                                   \
+: ((e)-(s) > 0) ?                                                           \
+    ( ( 0x0A <= ((U8*)s)[0] && ((U8*)s)[0] <= 0x0D ) || 0x85 == ((U8*)s)[0] )\
+: 0 )
+
+/*
+	HORIZWS: Horizontal Whitespace: \h \H
+
+	\p{HorizSpace}
+*/
+/*** GENERATED CODE ***/
+#define is_HORIZWS_high(s)                                                  \
+( ( 0xE1 == ((U8*)s)[0] ) ?                                                 \
+    ( ( ( 0x9A == ((U8*)s)[1] ) && ( 0x80 == ((U8*)s)[2] ) ) ? 3 : 0 )      \
+: ( 0xE2 == ((U8*)s)[0] ) ?                                                 \
+    ( ( 0x80 == ((U8*)s)[1] ) ?                                             \
+	( ( ( ((U8*)s)[2] <= 0x8A ) || 0xAF == ((U8*)s)[2] ) ? 3 : 0 )      \
+    : ( ( 0x81 == ((U8*)s)[1] ) && ( 0x9F == ((U8*)s)[2] ) ) ? 3 : 0 )      \
+: ( ( ( 0xE3 == ((U8*)s)[0] ) && ( 0x80 == ((U8*)s)[1] ) ) && ( 0x80 == ((U8*)s)[2] ) ) ? 3 : 0 )
+
+/*** GENERATED CODE ***/
+#define is_HORIZWS_cp_high(cp)                                              \
+( 0x1680 == cp || ( 0x1680 < cp &&                                          \
+( ( 0x2000 <= cp && cp <= 0x200A ) || ( 0x200A < cp &&                      \
+( 0x202F == cp || ( 0x202F < cp &&                                          \
+( 0x205F == cp || 0x3000 == cp ) ) ) ) ) ) )
+
+/*
+	VERTWS: Vertical Whitespace: \v \V
+
+	\p{VertSpace}
+*/
+/*** GENERATED CODE ***/
+#define is_VERTWS_high(s)                                                   \
+( ( ( ( 0xE2 == ((U8*)s)[0] ) && ( 0x80 == ((U8*)s)[1] ) ) && ( ( ((U8*)s)[2] & 0xFE ) == 0xA8 ) ) ? 3 : 0 )
+
+/*** GENERATED CODE ***/
+#define is_VERTWS_cp_high(cp)                                               \
+( 0x2028 == cp || 0x2029 == cp )
+
+/*
+	XDIGIT: Hexadecimal digits
+
+	\p{XDigit}
+*/
+/*** GENERATED CODE ***/
+#define is_XDIGIT_high(s)                                                   \
+( ( 0xEF == ((U8*)s)[0] ) ?                                                 \
+    ( ( 0xBC == ((U8*)s)[1] ) ?                                             \
+	( ( ( 0x90 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x99 ) || ( 0xA1 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0xA6 ) ) ? 3 : 0 )\
+    : ( ( 0xBD == ((U8*)s)[1] ) && ( 0x81 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x86 ) ) ? 3 : 0 )\
+: 0 )
+
+/*** GENERATED CODE ***/
+#define is_XDIGIT_cp_high(cp)                                               \
+( ( 0xFF10 <= cp && cp <= 0xFF19 ) || ( 0xFF19 < cp &&                      \
+( ( 0xFF21 <= cp && cp <= 0xFF26 ) || ( 0xFF41 <= cp && cp <= 0xFF46 ) ) ) )
+
+/*
+	XPERLSPACE: \p{XPerlSpace}
+
+	\p{XPerlSpace}
+*/
+/*** GENERATED CODE ***/
+#define is_XPERLSPACE_high(s)                                               \
+( ( 0xE1 == ((U8*)s)[0] ) ?                                                 \
+    ( ( ( 0x9A == ((U8*)s)[1] ) && ( 0x80 == ((U8*)s)[2] ) ) ? 3 : 0 )      \
+: ( 0xE2 == ((U8*)s)[0] ) ?                                                 \
+    ( ( 0x80 == ((U8*)s)[1] ) ?                                             \
+	( ( ( ((U8*)s)[2] <= 0x8A ) || ( ((U8*)s)[2] & 0xFE ) == 0xA8 || 0xAF == ((U8*)s)[2] ) ? 3 : 0 )\
+    : ( ( 0x81 == ((U8*)s)[1] ) && ( 0x9F == ((U8*)s)[2] ) ) ? 3 : 0 )      \
+: ( ( ( 0xE3 == ((U8*)s)[0] ) && ( 0x80 == ((U8*)s)[1] ) ) && ( 0x80 == ((U8*)s)[2] ) ) ? 3 : 0 )
+
+/*** GENERATED CODE ***/
+#define is_XPERLSPACE_cp_high(cp)                                           \
+( 0x1680 == cp || ( 0x1680 < cp &&                                          \
+( ( 0x2000 <= cp && cp <= 0x200A ) || ( 0x200A < cp &&                      \
+( 0x2028 == cp || ( 0x2028 < cp &&                                          \
+( 0x2029 == cp || ( 0x2029 < cp &&                                          \
+( 0x202F == cp || ( 0x202F < cp &&                                          \
+( 0x205F == cp || 0x3000 == cp ) ) ) ) ) ) ) ) ) ) )
+
+/*
+	REPLACEMENT: Unicode REPLACEMENT CHARACTER
+
+	0xFFFD
+*/
+/*** GENERATED CODE ***/
+#define is_REPLACEMENT_utf8_safe(s,e)                                       \
+( ( ( ( ( ((e) - (s)) >= 3 ) && ( 0xEF == ((U8*)s)[0] ) ) && ( 0xBF == ((U8*)s)[1] ) ) && ( 0xBD == ((U8*)s)[2] ) ) ? 3 : 0 )
+
+/*
+	NONCHAR: Non character code points
+
+	\p{_Perl_Nchar}
+*/
+/*** GENERATED CODE ***/
+#define is_NONCHAR_utf8(s)                                                  \
+( ( 0xEF == ((U8*)s)[0] ) ?                                                 \
+    ( ( 0xB7 == ((U8*)s)[1] ) ?                                             \
+	( ( 0x90 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0xAF ) ? 3 : 0 )          \
+    : ( ( 0xBF == ((U8*)s)[1] ) && ( ((U8*)s)[2] >= 0xBE ) ) ? 3 : 0 )      \
+: ( 0xF0 == ((U8*)s)[0] ) ?                                                 \
+    ( ( ( ( ((U8*)s)[1] == 0x9F || ( ( ((U8*)s)[1] & 0xEF ) == 0xAF ) ) && ( 0xBF == ((U8*)s)[2] ) ) && ( ((U8*)s)[3] >= 0xBE ) ) ? 4 : 0 )\
+: ( 0xF1 <= ((U8*)s)[0] && ((U8*)s)[0] <= 0xF3 ) ?                          \
+    ( ( ( ( ( ((U8*)s)[1] & 0xCF ) == 0x8F ) && ( 0xBF == ((U8*)s)[2] ) ) && ( ((U8*)s)[3] >= 0xBE ) ) ? 4 : 0 )\
+: ( ( ( ( 0xF4 == ((U8*)s)[0] ) && ( 0x8F == ((U8*)s)[1] ) ) && ( 0xBF == ((U8*)s)[2] ) ) && ( ((U8*)s)[3] >= 0xBE ) ) ? 4 : 0 )
+
+/*
+	SURROGATE: Surrogate characters
+
+	\p{_Perl_Surrogate}
+*/
+/*** GENERATED CODE ***/
+#define is_SURROGATE_utf8(s)                                                \
+( ( ( 0xED == ((U8*)s)[0] ) && ( ((U8*)s)[1] >= 0xA0 ) ) ? 3 : 0 )
+
+/*
+	QUOTEMETA: Meta-characters that \Q should quote
+
+	\p{_Perl_Quotemeta}
+*/
+/*** GENERATED CODE ***/
+#define is_QUOTEMETA_high(s)                                                \
+( ( 0xCD == ((U8*)s)[0] ) ?                                                 \
+    ( ( 0x8F == ((U8*)s)[1] ) ? 2 : 0 )                                     \
+: ( 0xD8 == ((U8*)s)[0] ) ?                                                 \
+    ( ( 0x9C == ((U8*)s)[1] ) ? 2 : 0 )                                     \
+: ( 0xE1 == ((U8*)s)[0] ) ?                                                 \
+    ( ( 0x85 == ((U8*)s)[1] ) ?                                             \
+	( ( 0x9F == ((U8*)s)[2] || 0xA0 == ((U8*)s)[2] ) ? 3 : 0 )          \
+    : ( 0x9A == ((U8*)s)[1] ) ?                                             \
+	( ( 0x80 == ((U8*)s)[2] ) ? 3 : 0 )                                 \
+    : ( 0x9E == ((U8*)s)[1] ) ?                                             \
+	( ( ( ((U8*)s)[2] & 0xFE ) == 0xB4 ) ? 3 : 0 )                      \
+    : ( ( 0xA0 == ((U8*)s)[1] ) && ( 0x8B <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x8E ) ) ? 3 : 0 )\
+: ( 0xE2 == ((U8*)s)[0] ) ?                                                 \
+    ( ( 0x80 == ((U8*)s)[1] ) ?                                             \
+	( ( ((U8*)s)[2] <= 0xBE ) ? 3 : 0 )                                 \
+    : ( 0x81 == ((U8*)s)[1] ) ?                                             \
+	( ( ( 0x81 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x93 ) || ( 0x95 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0xAF ) ) ? 3 : 0 )\
+    : ( 0x86 == ((U8*)s)[1] ) ?                                             \
+	( ( ((U8*)s)[2] >= 0x90 ) ? 3 : 0 )                                 \
+    : ( ( 0x87 <= ((U8*)s)[1] && ((U8*)s)[1] <= 0x90 ) || ( 0x94 <= ((U8*)s)[1] && ((U8*)s)[1] <= 0x9C ) || ( 0x9F <= ((U8*)s)[1] && ((U8*)s)[1] <= 0xAF ) || ( ((U8*)s)[1] & 0xFE ) == 0xB8 ) ?\
+	3                                                                   \
+    : ( 0x91 == ((U8*)s)[1] ) ?                                             \
+	( ( ((U8*)s)[2] <= 0x9F ) ? 3 : 0 )                                 \
+    : ( 0x9D == ((U8*)s)[1] ) ?                                             \
+	( ( ((U8*)s)[2] <= 0xB5 ) ? 3 : 0 )                                 \
+    : ( ( 0x9E == ((U8*)s)[1] ) && ( ((U8*)s)[2] >= 0x94 ) ) ? 3 : 0 )      \
+: ( 0xE3 == ((U8*)s)[0] ) ?                                                 \
+    ( ( 0x80 == ((U8*)s)[1] ) ?                                             \
+	( ( ( ((U8*)s)[2] <= 0x83 ) || ( 0x88 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0xA0 ) || 0xB0 == ((U8*)s)[2] ) ? 3 : 0 )\
+    : ( ( 0x85 == ((U8*)s)[1] ) && ( 0xA4 == ((U8*)s)[2] ) ) ? 3 : 0 )      \
+: ( 0xEF == ((U8*)s)[0] ) ?                                                 \
+    ( ( 0xB4 == ((U8*)s)[1] ) ?                                             \
+	( ( ((U8*)s)[2] >= 0xBE ) ? 3 : 0 )                                 \
+    : ( 0xB8 == ((U8*)s)[1] ) ?                                             \
+	( ( ((U8*)s)[2] <= 0x8F ) ? 3 : 0 )                                 \
+    : ( 0xB9 == ((U8*)s)[1] ) ?                                             \
+	( ( 0x85 == ((U8*)s)[2] || 0x86 == ((U8*)s)[2] ) ? 3 : 0 )          \
+    : ( 0xBB == ((U8*)s)[1] ) ?                                             \
+	( ( 0xBF == ((U8*)s)[2] ) ? 3 : 0 )                                 \
+    : ( 0xBE == ((U8*)s)[1] ) ?                                             \
+	( ( 0xA0 == ((U8*)s)[2] ) ? 3 : 0 )                                 \
+    : ( ( 0xBF == ((U8*)s)[1] ) && ( 0xB0 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0xB8 ) ) ? 3 : 0 )\
+: ( 0xF0 == ((U8*)s)[0] ) ?                                                 \
+    ( ( 0x9B == ((U8*)s)[1] ) ?                                             \
+	( ( ( 0xB2 == ((U8*)s)[2] ) && ( ( ((U8*)s)[3] & 0xFC ) == 0xA0 ) ) ? 4 : 0 )\
+    : ( ( ( 0x9D == ((U8*)s)[1] ) && ( 0x85 == ((U8*)s)[2] ) ) && ( 0xB3 <= ((U8*)s)[3] && ((U8*)s)[3] <= 0xBA ) ) ? 4 : 0 )\
+: ( ( 0xF3 == ((U8*)s)[0] ) && ( 0xA0 == ((U8*)s)[1] ) ) ? 4 : 0 )
+
+/*
+	MULTI_CHAR_FOLD: multi-char strings that are folded to by a single character
+
+	&regcharclass_multi_char_folds::multi_char_folds(1)
+*/
+/*** GENERATED CODE ***/
+#define is_MULTI_CHAR_FOLD_utf8_safe_part0(s,e)                             \
+( ( 0x61 == ((U8*)s)[0] ) ?                                                 \
+	( ( ( 0xCA == ((U8*)s)[1] ) && ( 0xBE == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0x66 == ((U8*)s)[0] ) ?                                             \
+	( ( 0x66 == ((U8*)s)[1] ) ?                                         \
+	    ( ( 0x69 == ((U8*)s)[2] || 0x6C == ((U8*)s)[2] ) ? 3 : 2 )      \
+	: ( 0x69 == ((U8*)s)[1] || 0x6C == ((U8*)s)[1] ) ? 2 : 0 )          \
+    : ( 0x68 == ((U8*)s)[0] ) ?                                             \
+	( ( ( 0xCC == ((U8*)s)[1] ) && ( 0xB1 == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0x69 == ((U8*)s)[0] ) ?                                             \
+	( ( ( 0xCC == ((U8*)s)[1] ) && ( 0x87 == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0x6A == ((U8*)s)[0] ) ?                                             \
+	( ( ( 0xCC == ((U8*)s)[1] ) && ( 0x8C == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0x73 == ((U8*)s)[0] ) ?                                             \
+	( ( 0x73 == ((U8*)s)[1] || 0x74 == ((U8*)s)[1] ) ? 2 : 0 )          \
+    : ( 0x74 == ((U8*)s)[0] ) ?                                             \
+	( ( ( 0xCC == ((U8*)s)[1] ) && ( 0x88 == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0x77 == ((U8*)s)[0] || 0x79 == ((U8*)s)[0] ) ?                      \
+	( ( ( 0xCC == ((U8*)s)[1] ) && ( 0x8A == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0xC5 == ((U8*)s)[0] ) ?                                             \
+	( ( ( ( 0xBF == ((U8*)s)[1] ) && ( 0xC5 == ((U8*)s)[2] ) ) && ( 0xBF == ((U8*)s)[3] ) ) ? 4 : 0 )\
+    : ( 0xCA == ((U8*)s)[0] ) ?                                             \
+	( ( ( 0xBC == ((U8*)s)[1] ) && ( 0x6E == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0xCE == ((U8*)s)[0] ) ?                                             \
+	( ( ( ((U8*)s)[1] & 0xFD ) == 0xAC ) ?                              \
+	    ( ( ( 0xCE == ((U8*)s)[2] ) && ( 0xB9 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+	: ( 0xB1 == ((U8*)s)[1] || 0xB7 == ((U8*)s)[1] ) ?                  \
+	    ( ( 0xCD == ((U8*)s)[2] ) ?                                     \
+		( ( 0x82 == ((U8*)s)[3] ) ? 4 : 0 )                         \
+	    : ( ( 0xCE == ((U8*)s)[2] ) && ( 0xB9 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+	: ( ( ( 0xB9 == ((U8*)s)[1] ) && ( 0xCD == ((U8*)s)[2] ) ) && ( 0x82 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+    : ( 0xCF == ((U8*)s)[0] ) ?                                             \
+	( ( 0x81 == ((U8*)s)[1] ) ?                                         \
+	    ( ( ( 0xCC == ((U8*)s)[2] ) && ( 0x93 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+	: ( 0x85 == ((U8*)s)[1] ) ?                                         \
+	    ( ( 0xCC == ((U8*)s)[2] ) ?                                     \
+		( ( 0x93 == ((U8*)s)[3] ) ? 4 : 0 )                         \
+	    : ( ( 0xCD == ((U8*)s)[2] ) && ( 0x82 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+	: ( 0x89 == ((U8*)s)[1] ) ?                                         \
+	    ( ( 0xCD == ((U8*)s)[2] ) ?                                     \
+		( ( 0x82 == ((U8*)s)[3] ) ? 4 : 0 )                         \
+	    : ( ( 0xCE == ((U8*)s)[2] ) && ( 0xB9 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+	: ( ( ( 0x8E == ((U8*)s)[1] ) && ( 0xCE == ((U8*)s)[2] ) ) && ( 0xB9 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+    : ( 0xD5 == ((U8*)s)[0] ) ?                                             \
+	( ( 0xA5 == ((U8*)s)[1] ) ?                                         \
+	    ( ( ( 0xD6 == ((U8*)s)[2] ) && ( 0x82 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+	: ( 0xB4 == ((U8*)s)[1] ) ?                                         \
+	    ( ( ( 0xD5 == ((U8*)s)[2] ) && ( ( ( ((U8*)s)[3] & 0xF7 ) == 0xA5 ) || ((U8*)s)[3] == 0xAB || ((U8*)s)[3] == 0xB6 ) ) ? 4 : 0 )\
+	: ( ( ( 0xBE == ((U8*)s)[1] ) && ( 0xD5 == ((U8*)s)[2] ) ) && ( 0xB6 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+    : ( 0xE1 == ((U8*)s)[0] ) ?                                             \
+	( ( 0xBC == ((U8*)s)[1] ) ?                                         \
+	    ( ( ( ( ( ((U8*)s)[2] & 0xD8 ) == 0x80 ) && ( 0xCE == ((U8*)s)[3] ) ) && ( 0xB9 == ((U8*)s)[4] ) ) ? 5 : 0 )\
+	: ( ( ( ( 0xBD == ((U8*)s)[1] ) && ( ( ( ((U8*)s)[2] & 0xF8 ) == 0xA0 ) || ( ( ((U8*)s)[2] & 0xFB ) == 0xB0 ) || ((U8*)s)[2] == 0xBC ) ) && ( 0xCE == ((U8*)s)[3] ) ) && ( 0xB9 == ((U8*)s)[4] ) ) ? 5 : 0 )\
+    : 0 )
+
+
+/*** GENERATED CODE ***/
+#define is_MULTI_CHAR_FOLD_utf8_safe_part1(s,e)                             \
+( ((e)-(s) > 3) ?                                                           \
+    ( ( 0x61 == ((U8*)s)[0] ) ?                                             \
+	( ( ( 0xCA == ((U8*)s)[1] ) && ( 0xBE == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0x66 == ((U8*)s)[0] ) ?                                             \
+	( ( 0x66 == ((U8*)s)[1] ) ?                                         \
+	    ( ( 0x69 == ((U8*)s)[2] || 0x6C == ((U8*)s)[2] ) ? 3 : 2 )      \
+	: ( 0x69 == ((U8*)s)[1] || 0x6C == ((U8*)s)[1] ) ? 2 : 0 )          \
+    : ( 0x68 == ((U8*)s)[0] ) ?                                             \
+	( ( ( 0xCC == ((U8*)s)[1] ) && ( 0xB1 == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0x69 == ((U8*)s)[0] ) ?                                             \
+	( ( ( 0xCC == ((U8*)s)[1] ) && ( 0x87 == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0x6A == ((U8*)s)[0] ) ?                                             \
+	( ( ( 0xCC == ((U8*)s)[1] ) && ( 0x8C == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0x73 == ((U8*)s)[0] ) ?                                             \
+	( ( 0x73 == ((U8*)s)[1] || 0x74 == ((U8*)s)[1] ) ? 2 : 0 )          \
+    : ( 0x74 == ((U8*)s)[0] ) ?                                             \
+	( ( ( 0xCC == ((U8*)s)[1] ) && ( 0x88 == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0x77 == ((U8*)s)[0] || 0x79 == ((U8*)s)[0] ) ?                      \
+	( ( ( 0xCC == ((U8*)s)[1] ) && ( 0x8A == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0xC5 == ((U8*)s)[0] ) ?                                             \
+	( ( ( ( 0xBF == ((U8*)s)[1] ) && ( 0xC5 == ((U8*)s)[2] ) ) && ( 0xBF == ((U8*)s)[3] ) ) ? 4 : 0 )\
+    : ( 0xCA == ((U8*)s)[0] ) ?                                             \
+	( ( ( 0xBC == ((U8*)s)[1] ) && ( 0x6E == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0xCE == ((U8*)s)[0] ) ?                                             \
+	( ( ( ((U8*)s)[1] & 0xFD ) == 0xAC ) ?                              \
+	    ( ( ( 0xCE == ((U8*)s)[2] ) && ( 0xB9 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+	: ( 0xB1 == ((U8*)s)[1] || 0xB7 == ((U8*)s)[1] ) ?                  \
+	    ( ( 0xCD == ((U8*)s)[2] ) ?                                     \
+		( ( 0x82 == ((U8*)s)[3] ) ? 4 : 0 )                         \
+	    : ( ( 0xCE == ((U8*)s)[2] ) && ( 0xB9 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+	: ( ( ( 0xB9 == ((U8*)s)[1] ) && ( 0xCD == ((U8*)s)[2] ) ) && ( 0x82 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+    : ( 0xCF == ((U8*)s)[0] ) ?                                             \
+	( ( 0x81 == ((U8*)s)[1] ) ?                                         \
+	    ( ( ( 0xCC == ((U8*)s)[2] ) && ( 0x93 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+	: ( 0x85 == ((U8*)s)[1] ) ?                                         \
+	    ( ( 0xCC == ((U8*)s)[2] ) ?                                     \
+		( ( 0x93 == ((U8*)s)[3] ) ? 4 : 0 )                         \
+	    : ( ( 0xCD == ((U8*)s)[2] ) && ( 0x82 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+	: ( 0x89 == ((U8*)s)[1] ) ?                                         \
+	    ( ( 0xCD == ((U8*)s)[2] ) ?                                     \
+		( ( 0x82 == ((U8*)s)[3] ) ? 4 : 0 )                         \
+	    : ( ( 0xCE == ((U8*)s)[2] ) && ( 0xB9 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+	: ( ( ( 0x8E == ((U8*)s)[1] ) && ( 0xCE == ((U8*)s)[2] ) ) && ( 0xB9 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+    : ( 0xD5 == ((U8*)s)[0] ) ?                                             \
+	( ( 0xA5 == ((U8*)s)[1] ) ?                                         \
+	    ( ( ( 0xD6 == ((U8*)s)[2] ) && ( 0x82 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+	: ( 0xB4 == ((U8*)s)[1] ) ?                                         \
+	    ( ( ( 0xD5 == ((U8*)s)[2] ) && ( ( ( ((U8*)s)[3] & 0xF7 ) == 0xA5 ) || ((U8*)s)[3] == 0xAB || ((U8*)s)[3] == 0xB6 ) ) ? 4 : 0 )\
+	: ( ( ( 0xBE == ((U8*)s)[1] ) && ( 0xD5 == ((U8*)s)[2] ) ) && ( 0xB6 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+    : 0 )                                                                   \
+: ((e)-(s) > 2) ?                                                           \
+    ( ( 0x61 == ((U8*)s)[0] ) ?                                             \
+	( ( ( 0xCA == ((U8*)s)[1] ) && ( 0xBE == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0x66 == ((U8*)s)[0] ) ?                                             \
+	( ( 0x66 == ((U8*)s)[1] ) ?                                         \
+	    ( ( 0x69 == ((U8*)s)[2] || 0x6C == ((U8*)s)[2] ) ? 3 : 2 )      \
+	: ( 0x69 == ((U8*)s)[1] || 0x6C == ((U8*)s)[1] ) ? 2 : 0 )          \
+    : ( 0x68 == ((U8*)s)[0] ) ?                                             \
+	( ( ( 0xCC == ((U8*)s)[1] ) && ( 0xB1 == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0x69 == ((U8*)s)[0] ) ?                                             \
+	( ( ( 0xCC == ((U8*)s)[1] ) && ( 0x87 == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0x6A == ((U8*)s)[0] ) ?                                             \
+	( ( ( 0xCC == ((U8*)s)[1] ) && ( 0x8C == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0x73 == ((U8*)s)[0] ) ?                                             \
+	( ( 0x73 == ((U8*)s)[1] || 0x74 == ((U8*)s)[1] ) ? 2 : 0 )          \
+    : ( 0x74 == ((U8*)s)[0] ) ?                                             \
+	( ( ( 0xCC == ((U8*)s)[1] ) && ( 0x88 == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0x77 == ((U8*)s)[0] || 0x79 == ((U8*)s)[0] ) ?                      \
+	( ( ( 0xCC == ((U8*)s)[1] ) && ( 0x8A == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( ( ( 0xCA == ((U8*)s)[0] ) && ( 0xBC == ((U8*)s)[1] ) ) && ( 0x6E == ((U8*)s)[2] ) ) ? 3 : 0 )\
+: ((e)-(s) > 1) ?                                                           \
+    ( ( 0x66 == ((U8*)s)[0] ) ?                                             \
+	( ( 0x66 == ((U8*)s)[1] || 0x69 == ((U8*)s)[1] || 0x6C == ((U8*)s)[1] ) ? 2 : 0 )\
+    : ( ( 0x73 == ((U8*)s)[0] ) && ( 0x73 == ((U8*)s)[1] || 0x74 == ((U8*)s)[1] ) ) ? 2 : 0 )\
+: 0 )
+
+
+/*** GENERATED CODE ***/
+#define is_MULTI_CHAR_FOLD_utf8_safe(s,e)                                   \
+( ((e)-(s) > 5) ?                                                           \
+    ( ( 0x61 == ((U8*)s)[0] ) ?                                             \
+	( ( ( 0xCA == ((U8*)s)[1] ) && ( 0xBE == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0x66 == ((U8*)s)[0] ) ?                                             \
+	( ( 0x66 == ((U8*)s)[1] ) ?                                         \
+	    ( ( 0x69 == ((U8*)s)[2] || 0x6C == ((U8*)s)[2] ) ? 3 : 2 )      \
+	: ( 0x69 == ((U8*)s)[1] || 0x6C == ((U8*)s)[1] ) ? 2 : 0 )          \
+    : ( 0x68 == ((U8*)s)[0] ) ?                                             \
+	( ( ( 0xCC == ((U8*)s)[1] ) && ( 0xB1 == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0x69 == ((U8*)s)[0] ) ?                                             \
+	( ( ( 0xCC == ((U8*)s)[1] ) && ( 0x87 == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0x6A == ((U8*)s)[0] ) ?                                             \
+	( ( ( 0xCC == ((U8*)s)[1] ) && ( 0x8C == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0x73 == ((U8*)s)[0] ) ?                                             \
+	( ( 0x73 == ((U8*)s)[1] || 0x74 == ((U8*)s)[1] ) ? 2 : 0 )          \
+    : ( 0x74 == ((U8*)s)[0] ) ?                                             \
+	( ( ( 0xCC == ((U8*)s)[1] ) && ( 0x88 == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0x77 == ((U8*)s)[0] || 0x79 == ((U8*)s)[0] ) ?                      \
+	( ( ( 0xCC == ((U8*)s)[1] ) && ( 0x8A == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0xC5 == ((U8*)s)[0] ) ?                                             \
+	( ( ( ( 0xBF == ((U8*)s)[1] ) && ( 0xC5 == ((U8*)s)[2] ) ) && ( 0xBF == ((U8*)s)[3] ) ) ? 4 : 0 )\
+    : ( 0xCA == ((U8*)s)[0] ) ?                                             \
+	( ( ( 0xBC == ((U8*)s)[1] ) && ( 0x6E == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0xCE == ((U8*)s)[0] ) ?                                             \
+	( ( ( ((U8*)s)[1] & 0xFD ) == 0xAC ) ?                              \
+	    ( ( ( 0xCE == ((U8*)s)[2] ) && ( 0xB9 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+	: ( 0xB1 == ((U8*)s)[1] || 0xB7 == ((U8*)s)[1] ) ?                  \
+	    ( ( 0xCD == ((U8*)s)[2] ) ?                                     \
+		( ( 0x82 == ((U8*)s)[3] ) ?                                 \
+		    ( ( ( 0xCE == ((U8*)s)[4] ) && ( 0xB9 == ((U8*)s)[5] ) ) ? 6 : 4 )\
+		: 0 )                                                       \
+	    : ( ( 0xCE == ((U8*)s)[2] ) && ( 0xB9 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+	: ( 0xB9 == ((U8*)s)[1] ) ?                                         \
+	    ( ( 0xCC == ((U8*)s)[2] ) ?                                     \
+		( ( 0x88 == ((U8*)s)[3] ) ?                                 \
+		    ( ( 0xCC == ((U8*)s)[4] ) ?                             \
+			( ( ( ((U8*)s)[5] & 0xFE ) == 0x80 ) ? 6 : 0 )      \
+		    : ( ( 0xCD == ((U8*)s)[4] ) && ( 0x82 == ((U8*)s)[5] ) ) ? 6 : 0 )\
+		: 0 )                                                       \
+	    : ( ( 0xCD == ((U8*)s)[2] ) && ( 0x82 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+	: 0 )                                                               \
+    : ( 0xCF == ((U8*)s)[0] ) ?                                             \
+	( ( 0x81 == ((U8*)s)[1] ) ?                                         \
+	    ( ( ( 0xCC == ((U8*)s)[2] ) && ( 0x93 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+	: ( 0x85 == ((U8*)s)[1] ) ?                                         \
+	    ( ( 0xCC == ((U8*)s)[2] ) ?                                     \
+		( ( 0x88 == ((U8*)s)[3] ) ?                                 \
+		    ( ( 0xCC == ((U8*)s)[4] ) ?                             \
+			( ( ( ((U8*)s)[5] & 0xFE ) == 0x80 ) ? 6 : 0 )      \
+		    : ( ( 0xCD == ((U8*)s)[4] ) && ( 0x82 == ((U8*)s)[5] ) ) ? 6 : 0 )\
+		: ( 0x93 == ((U8*)s)[3] ) ?                                 \
+		    ( ( 0xCC == ((U8*)s)[4] ) ?                             \
+			( ( ( ((U8*)s)[5] & 0xFE ) == 0x80 ) ? 6 : 4 )      \
+		    : ( ( 0xCD == ((U8*)s)[4] ) && ( 0x82 == ((U8*)s)[5] ) ) ? 6 : 4 )\
+		: 0 )                                                       \
+	    : ( ( 0xCD == ((U8*)s)[2] ) && ( 0x82 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+	: ( 0x89 == ((U8*)s)[1] ) ?                                         \
+	    ( ( 0xCD == ((U8*)s)[2] ) ?                                     \
+		( ( 0x82 == ((U8*)s)[3] ) ?                                 \
+		    ( ( ( 0xCE == ((U8*)s)[4] ) && ( 0xB9 == ((U8*)s)[5] ) ) ? 6 : 4 )\
+		: 0 )                                                       \
+	    : ( ( 0xCE == ((U8*)s)[2] ) && ( 0xB9 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+	: ( ( ( 0x8E == ((U8*)s)[1] ) && ( 0xCE == ((U8*)s)[2] ) ) && ( 0xB9 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+    : ( 0xD5 == ((U8*)s)[0] ) ?                                             \
+	( ( 0xA5 == ((U8*)s)[1] ) ?                                         \
+	    ( ( ( 0xD6 == ((U8*)s)[2] ) && ( 0x82 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+	: ( 0xB4 == ((U8*)s)[1] ) ?                                         \
+	    ( ( ( 0xD5 == ((U8*)s)[2] ) && ( ( ( ((U8*)s)[3] & 0xF7 ) == 0xA5 ) || ((U8*)s)[3] == 0xAB || ((U8*)s)[3] == 0xB6 ) ) ? 4 : 0 )\
+	: ( ( ( 0xBE == ((U8*)s)[1] ) && ( 0xD5 == ((U8*)s)[2] ) ) && ( 0xB6 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+    : ( 0xE1 == ((U8*)s)[0] ) ?                                             \
+	( ( 0xBC == ((U8*)s)[1] ) ?                                         \
+	    ( ( ( ( ( ((U8*)s)[2] & 0xD8 ) == 0x80 ) && ( 0xCE == ((U8*)s)[3] ) ) && ( 0xB9 == ((U8*)s)[4] ) ) ? 5 : 0 )\
+	: ( ( ( ( 0xBD == ((U8*)s)[1] ) && ( ( ( ((U8*)s)[2] & 0xF8 ) == 0xA0 ) || ( ( ((U8*)s)[2] & 0xFB ) == 0xB0 ) || ((U8*)s)[2] == 0xBC ) ) && ( 0xCE == ((U8*)s)[3] ) ) && ( 0xB9 == ((U8*)s)[4] ) ) ? 5 : 0 )\
+    : 0 )                                                                   \
+: ((e)-(s) > 4) ? is_MULTI_CHAR_FOLD_utf8_safe_part0(s,e) : is_MULTI_CHAR_FOLD_utf8_safe_part1(s,e) )
+
+/*
+	MULTI_CHAR_FOLD: multi-char strings that are folded to by a single character
+
+	&regcharclass_multi_char_folds::multi_char_folds(0)
+*/
+/*** GENERATED CODE ***/
+#define is_MULTI_CHAR_FOLD_latin1_safe(s,e)                                 \
+( ((e)-(s) > 2) ?                                                           \
+    ( ( ( ((U8*)s)[0] & 0xDF ) == 0x46 ) ?                                  \
+	( ( ( ((U8*)s)[1] & 0xDF ) == 0x46 ) ?                              \
+	    ( ( ( ( ((U8*)s)[2] & 0xDF ) == 0x49 ) || ( ( ((U8*)s)[2] & 0xDF ) == 0x4C ) ) ? 3 : 2 )\
+	: ( ( ( ((U8*)s)[1] & 0xDF ) == 0x49 ) || ( ( ((U8*)s)[1] & 0xDF ) == 0x4C ) ) ? 2 : 0 )\
+    : ( ( ( ((U8*)s)[0] & 0xDF ) == 0x53 ) && ( ( ( ((U8*)s)[1] & 0xDF ) == 0x53 ) || ( ( ((U8*)s)[1] & 0xDF ) == 0x54 ) ) ) ? 2 : 0 )\
+: ((e)-(s) > 1) ?                                                           \
+    ( ( ( ((U8*)s)[0] & 0xDF ) == 0x46 ) ?                                  \
+	( ( ( ( ((U8*)s)[1] & 0xDF ) == 0x46 ) || ( ( ((U8*)s)[1] & 0xDF ) == 0x49 ) || ( ( ((U8*)s)[1] & 0xDF ) == 0x4C ) ) ? 2 : 0 )\
+    : ( ( ( ((U8*)s)[0] & 0xDF ) == 0x53 ) && ( ( ( ((U8*)s)[1] & 0xDF ) == 0x53 ) || ( ( ((U8*)s)[1] & 0xDF ) == 0x54 ) ) ) ? 2 : 0 )\
+: 0 )
+
+/*
+	FOLDS_TO_MULTI: characters that fold to multi-char strings
+
+	\p{_Perl_Folds_To_Multi_Char}
+*/
+/*** GENERATED CODE ***/
+#define is_FOLDS_TO_MULTI_utf8(s)                                           \
+( ( 0xC3 == ((U8*)s)[0] ) ?                                                 \
+    ( ( 0x9F == ((U8*)s)[1] ) ? 2 : 0 )                                     \
+: ( 0xC4 == ((U8*)s)[0] || 0xC7 == ((U8*)s)[0] ) ?                          \
+    ( ( 0xB0 == ((U8*)s)[1] ) ? 2 : 0 )                                     \
+: ( 0xC5 == ((U8*)s)[0] ) ?                                                 \
+    ( ( 0x89 == ((U8*)s)[1] ) ? 2 : 0 )                                     \
+: ( 0xCE == ((U8*)s)[0] ) ?                                                 \
+    ( ( ( ((U8*)s)[1] & 0xDF ) == 0x90 ) ? 2 : 0 )                          \
+: ( 0xD6 == ((U8*)s)[0] ) ?                                                 \
+    ( ( 0x87 == ((U8*)s)[1] ) ? 2 : 0 )                                     \
+: ( 0xE1 == ((U8*)s)[0] ) ?                                                 \
+    ( ( 0xBA == ((U8*)s)[1] ) ?                                             \
+	( ( ( 0x96 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x9A ) || 0x9E == ((U8*)s)[2] ) ? 3 : 0 )\
+    : ( 0xBD == ((U8*)s)[1] ) ?                                             \
+	( ( ( ((U8*)s)[2] & 0xF9 ) == 0x90 ) ? 3 : 0 )                      \
+    : ( 0xBE == ((U8*)s)[1] ) ?                                             \
+	( ( ( ( ((U8*)s)[2] & 0xE0 ) == 0x80 ) || ( ( ((U8*)s)[2] & 0xF0 ) == 0xA0 ) || ( ( ((U8*)s)[2] & 0xFA ) == 0xB2 ) || ( ( ((U8*)s)[2] & 0xF7 ) == 0xB4 ) ) ? 3 : 0 )\
+    : ( ( 0xBF == ((U8*)s)[1] ) && ( ( ( ((U8*)s)[2] & 0xCA ) == 0x82 ) || ( ( ((U8*)s)[2] & 0xF7 ) == 0x84 ) || ((U8*)s)[2] == 0xA4 || ( ( ((U8*)s)[2] & 0xF7 ) == 0xB4 ) ) ) ? 3 : 0 )\
+: ( ( ( 0xEF == ((U8*)s)[0] ) && ( 0xAC == ((U8*)s)[1] ) ) && ( ( ((U8*)s)[2] <= 0x86 ) || ( 0x93 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x97 ) ) ) ? 3 : 0 )
+
+/*
+	PROBLEMATIC_LOCALE_FOLD: characters whose fold is problematic under locale
+
+	\p{_Perl_Problematic_Locale_Folds}
+*/
+/*** GENERATED CODE ***/
+#define is_PROBLEMATIC_LOCALE_FOLD_utf8(s)                                  \
+( ( ((U8*)s)[0] <= 0x7F ) ? 1                                               \
+: ( ( ((U8*)s)[0] & 0xFE ) == 0xC2 ) ?                                      \
+    2                                                                       \
+: ( 0xC4 == ((U8*)s)[0] || 0xC7 == ((U8*)s)[0] ) ?                          \
+    ( ( 0xB0 == ((U8*)s)[1] ) ? 2 : 0 )                                     \
+: ( 0xC5 == ((U8*)s)[0] ) ?                                                 \
+    ( ( 0x89 == ((U8*)s)[1] || 0xB8 == ((U8*)s)[1] || 0xBF == ((U8*)s)[1] ) ? 2 : 0 )\
+: ( 0xCE == ((U8*)s)[0] ) ?                                                 \
+    ( ( ( ((U8*)s)[1] & 0xDF ) == 0x9C ) ? 2 : 0 )                          \
+: ( 0xE1 == ((U8*)s)[0] ) ?                                                 \
+    ( ( ( 0xBA == ((U8*)s)[1] ) && ( ( 0x96 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x9A ) || 0x9E == ((U8*)s)[2] ) ) ? 3 : 0 )\
+: ( 0xE2 == ((U8*)s)[0] ) ?                                                 \
+    ( ( ( 0x84 == ((U8*)s)[1] ) && ( ( ((U8*)s)[2] & 0xFE ) == 0xAA ) ) ? 3 : 0 )\
+: ( ( ( 0xEF == ((U8*)s)[0] ) && ( 0xAC == ((U8*)s)[1] ) ) && ( ((U8*)s)[2] <= 0x86 ) ) ? 3 : 0 )
+
+/*** GENERATED CODE ***/
+#define is_PROBLEMATIC_LOCALE_FOLD_cp(cp)                                   \
+( cp <= 0xFF || ( 0xFF < cp &&                                              \
+( 0x130 == cp || ( 0x130 < cp &&                                            \
+( 0x149 == cp || ( 0x149 < cp &&                                            \
+( 0x178 == cp || ( 0x178 < cp &&                                            \
+( 0x17F == cp || ( 0x17F < cp &&                                            \
+( 0x1F0 == cp || ( 0x1F0 < cp &&                                            \
+( 0x39C == cp || ( 0x39C < cp &&                                            \
+( 0x3BC == cp || ( 0x3BC < cp &&                                            \
+( ( 0x1E96 <= cp && cp <= 0x1E9A ) || ( 0x1E9A < cp &&                      \
+( 0x1E9E == cp || ( 0x1E9E < cp &&                                          \
+( 0x212A == cp || ( 0x212A < cp &&                                          \
+( 0x212B == cp || ( 0xFB00 <= cp && cp <= 0xFB06 ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) )
+
+/*
+	PROBLEMATIC_LOCALE_FOLDEDS_START: The first folded character of folds which are problematic under locale
+
+	\p{_Perl_Problematic_Locale_Foldeds_Start}
+*/
+/*** GENERATED CODE ***/
+#define is_PROBLEMATIC_LOCALE_FOLDEDS_START_utf8(s)                         \
+( ( ((U8*)s)[0] <= 0x7F ) ? 1                                               \
+: ( ( ((U8*)s)[0] & 0xFE ) == 0xC2 ) ?                                      \
+    2                                                                       \
+: ( 0xC4 == ((U8*)s)[0] || 0xC7 == ((U8*)s)[0] ) ?                          \
+    ( ( 0xB0 == ((U8*)s)[1] ) ? 2 : 0 )                                     \
+: ( 0xC5 == ((U8*)s)[0] ) ?                                                 \
+    ( ( 0x89 == ((U8*)s)[1] || 0xB8 == ((U8*)s)[1] || 0xBF == ((U8*)s)[1] ) ? 2 : 0 )\
+: ( 0xCA == ((U8*)s)[0] ) ?                                                 \
+    ( ( 0xBC == ((U8*)s)[1] ) ? 2 : 0 )                                     \
+: ( 0xCE == ((U8*)s)[0] ) ?                                                 \
+    ( ( ( ((U8*)s)[1] & 0xDF ) == 0x9C ) ? 2 : 0 )                          \
+: ( 0xE1 == ((U8*)s)[0] ) ?                                                 \
+    ( ( ( 0xBA == ((U8*)s)[1] ) && ( ( 0x96 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x9A ) || 0x9E == ((U8*)s)[2] ) ) ? 3 : 0 )\
+: ( 0xE2 == ((U8*)s)[0] ) ?                                                 \
+    ( ( ( 0x84 == ((U8*)s)[1] ) && ( ( ((U8*)s)[2] & 0xFE ) == 0xAA ) ) ? 3 : 0 )\
+: ( ( ( 0xEF == ((U8*)s)[0] ) && ( 0xAC == ((U8*)s)[1] ) ) && ( ((U8*)s)[2] <= 0x86 ) ) ? 3 : 0 )
+
+/*** GENERATED CODE ***/
+#define is_PROBLEMATIC_LOCALE_FOLDEDS_START_cp(cp)                          \
+( cp <= 0xFF || ( 0xFF < cp &&                                              \
+( 0x130 == cp || ( 0x130 < cp &&                                            \
+( 0x149 == cp || ( 0x149 < cp &&                                            \
+( 0x178 == cp || ( 0x178 < cp &&                                            \
+( 0x17F == cp || ( 0x17F < cp &&                                            \
+( 0x1F0 == cp || ( 0x1F0 < cp &&                                            \
+( 0x2BC == cp || ( 0x2BC < cp &&                                            \
+( 0x39C == cp || ( 0x39C < cp &&                                            \
+( 0x3BC == cp || ( 0x3BC < cp &&                                            \
+( ( 0x1E96 <= cp && cp <= 0x1E9A ) || ( 0x1E9A < cp &&                      \
+( 0x1E9E == cp || ( 0x1E9E < cp &&                                          \
+( 0x212A == cp || ( 0x212A < cp &&                                          \
+( 0x212B == cp || ( 0xFB00 <= cp && cp <= 0xFB06 ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) )
+
+/*
+	PATWS: pattern white space
+
+	\p{_Perl_PatWS}
+*/
+/*** GENERATED CODE ***/
+#define is_PATWS_safe(s,e,is_utf8)                                          \
+( ( LIKELY((e) > (s)) ) ?                                                   \
+    ( ( ( 0x09 <= ((U8*)s)[0] && ((U8*)s)[0] <= 0x0D ) || 0x20 == ((U8*)s)[0] ) ? 1\
+    : (! is_utf8 ) ?                                                        \
+	    ( 0x85 == ((U8*)s)[0] )                                         \
+	: ( LIKELY(((e) - (s)) >= UTF8SKIP(s)) ) ?                          \
+	    ( ( 0xC2 == ((U8*)s)[0] ) ?                                     \
+		( ( 0x85 == ((U8*)s)[1] ) ? 2 : 0 )                         \
+	    : ( ( ( 0xE2 == ((U8*)s)[0] ) && ( 0x80 == ((U8*)s)[1] ) ) && ( ( ((U8*)s)[2] & 0xFE ) == 0x8E || ( ((U8*)s)[2] & 0xFE ) == 0xA8 ) ) ? 3 : 0 )\
+	: 0 )                                                               \
+: 0 )
+
+/*** GENERATED CODE ***/
+#define is_PATWS_cp(cp)                                                     \
+( ( 0x09 <= cp && cp <= 0x0D ) || ( 0x0D < cp &&                            \
+( 0x20 == cp || ( 0x20 < cp &&                                              \
+( 0x85 == cp || ( 0x85 < cp &&                                              \
+( 0x200E == cp || ( 0x200E < cp &&                                          \
+( 0x200F == cp || ( 0x200F < cp &&                                          \
+( 0x2028 == cp || 0x2029 == cp ) ) ) ) ) ) ) ) ) ) )
+
+#endif	/* ASCII/Latin1 */
+
+#if 'A' == 193 /* EBCDIC 1047 */ \
+     && '\\' == 224 && '[' == 173 && ']' == 189 && '{' == 192 && '}' == 208 \
+     && '^' == 95 && '~' == 161 && '!' == 90 && '#' == 123 && '|' == 79 \
+     && '$' == 91 && '@' == 124 && '`' == 121
+/*
+	LNBREAK: Line Break: \R
+
+	"\x0D\x0A"      # CRLF - Network (Windows) line ending
+	\p{VertSpace}
+*/
+/*** GENERATED CODE ***/
+#define is_LNBREAK_safe(s,e,is_utf8)                                        \
+( ((e)-(s) > 2) ?                                                           \
+    ( ( ( 0x0B == ((U8*)s)[0] || 0x0C == ((U8*)s)[0] ) || 0x15 == ((U8*)s)[0] || 0x25 == ((U8*)s)[0] ) ? 1\
+    : ( 0x0D == ((U8*)s)[0] ) ?                                             \
+	( ( 0x15 == ((U8*)s)[1] ) ? 2 : 1 )                                 \
+    : ( ( ( ( is_utf8 ) && ( 0xCA == ((U8*)s)[0] ) ) && ( 0x42 == ((U8*)s)[1] ) ) && ( 0x49 == ((U8*)s)[2] || 0x4A == ((U8*)s)[2] ) ) ? 3 : 0 )\
+: ((e)-(s) > 1) ?                                                           \
+    ( ( ( 0x0B == ((U8*)s)[0] || 0x0C == ((U8*)s)[0] ) || 0x15 == ((U8*)s)[0] || 0x25 == ((U8*)s)[0] ) ? 1\
+    : ( 0x0D == ((U8*)s)[0] ) ?                                             \
+	( ( 0x15 == ((U8*)s)[1] ) ? 2 : 1 )                                 \
+    : 0 )                                                                   \
+: ((e)-(s) > 0) ?                                                           \
+    ( ( 0x0B <= ((U8*)s)[0] && ((U8*)s)[0] <= 0x0D ) || 0x15 == ((U8*)s)[0] || 0x25 == ((U8*)s)[0] )\
+: 0 )
+
+/*** GENERATED CODE ***/
+#define is_LNBREAK_utf8_safe(s,e)                                           \
+( ((e)-(s) > 2) ?                                                           \
+    ( ( ( 0x0B == ((U8*)s)[0] || 0x0C == ((U8*)s)[0] ) || 0x15 == ((U8*)s)[0] || 0x25 == ((U8*)s)[0] ) ? 1\
+    : ( 0x0D == ((U8*)s)[0] ) ?                                             \
+	( ( 0x15 == ((U8*)s)[1] ) ? 2 : 1 )                                 \
+    : ( ( ( 0xCA == ((U8*)s)[0] ) && ( 0x42 == ((U8*)s)[1] ) ) && ( 0x49 == ((U8*)s)[2] || 0x4A == ((U8*)s)[2] ) ) ? 3 : 0 )\
+: ((e)-(s) > 1) ?                                                           \
+    ( ( ( 0x0B == ((U8*)s)[0] || 0x0C == ((U8*)s)[0] ) || 0x15 == ((U8*)s)[0] || 0x25 == ((U8*)s)[0] ) ? 1\
+    : ( 0x0D == ((U8*)s)[0] ) ?                                             \
+	( ( 0x15 == ((U8*)s)[1] ) ? 2 : 1 )                                 \
+    : 0 )                                                                   \
+: ((e)-(s) > 0) ?                                                           \
+    ( ( 0x0B <= ((U8*)s)[0] && ((U8*)s)[0] <= 0x0D ) || 0x15 == ((U8*)s)[0] || 0x25 == ((U8*)s)[0] )\
+: 0 )
+
+/*** GENERATED CODE ***/
+#define is_LNBREAK_latin1_safe(s,e)                                         \
+( ((e)-(s) > 1) ?                                                           \
+    ( ( ( 0x0B == ((U8*)s)[0] || 0x0C == ((U8*)s)[0] ) || 0x15 == ((U8*)s)[0] || 0x25 == ((U8*)s)[0] ) ? 1\
+    : ( 0x0D == ((U8*)s)[0] ) ?                                             \
+	( ( 0x15 == ((U8*)s)[1] ) ? 2 : 1 )                                 \
+    : 0 )                                                                   \
+: ((e)-(s) > 0) ?                                                           \
+    ( ( 0x0B <= ((U8*)s)[0] && ((U8*)s)[0] <= 0x0D ) || 0x15 == ((U8*)s)[0] || 0x25 == ((U8*)s)[0] )\
+: 0 )
+
+/*
+	HORIZWS: Horizontal Whitespace: \h \H
+
+	\p{HorizSpace}
+*/
+/*** GENERATED CODE ***/
+#define is_HORIZWS_high(s)                                                  \
+( ( 0xBC == ((U8*)s)[0] ) ?                                                 \
+    ( ( ( 0x63 == ((U8*)s)[1] ) && ( 0x41 == ((U8*)s)[2] ) ) ? 3 : 0 )      \
+: ( 0xCA == ((U8*)s)[0] ) ?                                                 \
+    ( ( 0x41 == ((U8*)s)[1] ) ?                                             \
+	( ( ( 0x41 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x4A ) || 0x51 == ((U8*)s)[2] ) ? 3 : 0 )\
+    : ( 0x42 == ((U8*)s)[1] ) ?                                             \
+	( ( 0x56 == ((U8*)s)[2] ) ? 3 : 0 )                                 \
+    : ( ( 0x43 == ((U8*)s)[1] ) && ( 0x73 == ((U8*)s)[2] ) ) ? 3 : 0 )      \
+: ( ( ( 0xCE == ((U8*)s)[0] ) && ( 0x41 == ((U8*)s)[1] ) ) && ( 0x41 == ((U8*)s)[2] ) ) ? 3 : 0 )
+
+/*** GENERATED CODE ***/
+#define is_HORIZWS_cp_high(cp)                                              \
+( 0x1680 == cp || ( 0x1680 < cp &&                                          \
+( ( 0x2000 <= cp && cp <= 0x200A ) || ( 0x200A < cp &&                      \
+( 0x202F == cp || ( 0x202F < cp &&                                          \
+( 0x205F == cp || 0x3000 == cp ) ) ) ) ) ) )
+
+/*
+	VERTWS: Vertical Whitespace: \v \V
+
+	\p{VertSpace}
+*/
+/*** GENERATED CODE ***/
+#define is_VERTWS_high(s)                                                   \
+( ( ( ( 0xCA == ((U8*)s)[0] ) && ( 0x42 == ((U8*)s)[1] ) ) && ( 0x49 == ((U8*)s)[2] || 0x4A == ((U8*)s)[2] ) ) ? 3 : 0 )
+
+/*** GENERATED CODE ***/
+#define is_VERTWS_cp_high(cp)                                               \
+( 0x2028 == cp || 0x2029 == cp )
+
+/*
+	XDIGIT: Hexadecimal digits
+
+	\p{XDigit}
+*/
+/*** GENERATED CODE ***/
+#define is_XDIGIT_high(s)                                                   \
+( ( ( 0xDD == ((U8*)s)[0] ) && ( 0x73 == ((U8*)s)[1] ) ) ? ( ( 0x67 == ((U8*)s)[2] ) ?\
+	    ( ( ( 0x57 <= ((U8*)s)[3] && ((U8*)s)[3] <= 0x59 ) || ( 0x62 <= ((U8*)s)[3] && ((U8*)s)[3] <= 0x68 ) ) ? 4 : 0 )\
+	: ( ( ( ((U8*)s)[2] & 0xFE ) == 0x68 ) && ( 0x42 <= ((U8*)s)[3] && ((U8*)s)[3] <= 0x47 ) ) ? 4 : 0 ) : 0 )
+
+/*** GENERATED CODE ***/
+#define is_XDIGIT_cp_high(cp)                                               \
+( ( 0xFF10 <= cp && cp <= 0xFF19 ) || ( 0xFF19 < cp &&                      \
+( ( 0xFF21 <= cp && cp <= 0xFF26 ) || ( 0xFF41 <= cp && cp <= 0xFF46 ) ) ) )
+
+/*
+	XPERLSPACE: \p{XPerlSpace}
+
+	\p{XPerlSpace}
+*/
+/*** GENERATED CODE ***/
+#define is_XPERLSPACE_high(s)                                               \
+( ( 0xBC == ((U8*)s)[0] ) ?                                                 \
+    ( ( ( 0x63 == ((U8*)s)[1] ) && ( 0x41 == ((U8*)s)[2] ) ) ? 3 : 0 )      \
+: ( 0xCA == ((U8*)s)[0] ) ?                                                 \
+    ( ( 0x41 == ((U8*)s)[1] ) ?                                             \
+	( ( ( 0x41 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x4A ) || 0x51 == ((U8*)s)[2] ) ? 3 : 0 )\
+    : ( 0x42 == ((U8*)s)[1] ) ?                                             \
+	( ( ( 0x49 == ((U8*)s)[2] || 0x4A == ((U8*)s)[2] ) || 0x56 == ((U8*)s)[2] ) ? 3 : 0 )\
+    : ( ( 0x43 == ((U8*)s)[1] ) && ( 0x73 == ((U8*)s)[2] ) ) ? 3 : 0 )      \
+: ( ( ( 0xCE == ((U8*)s)[0] ) && ( 0x41 == ((U8*)s)[1] ) ) && ( 0x41 == ((U8*)s)[2] ) ) ? 3 : 0 )
+
+/*** GENERATED CODE ***/
+#define is_XPERLSPACE_cp_high(cp)                                           \
+( 0x1680 == cp || ( 0x1680 < cp &&                                          \
+( ( 0x2000 <= cp && cp <= 0x200A ) || ( 0x200A < cp &&                      \
+( 0x2028 == cp || ( 0x2028 < cp &&                                          \
+( 0x2029 == cp || ( 0x2029 < cp &&                                          \
+( 0x202F == cp || ( 0x202F < cp &&                                          \
+( 0x205F == cp || 0x3000 == cp ) ) ) ) ) ) ) ) ) ) )
+
+/*
+	REPLACEMENT: Unicode REPLACEMENT CHARACTER
+
+	0xFFFD
+*/
+/*** GENERATED CODE ***/
+#define is_REPLACEMENT_utf8_safe(s,e)                                       \
+( ( ( ( ( ( ((e) - (s)) >= 4 ) && ( 0xDD == ((U8*)s)[0] ) ) && ( 0x73 == ((U8*)s)[1] ) ) && ( 0x73 == ((U8*)s)[2] ) ) && ( 0x71 == ((U8*)s)[3] ) ) ? 4 : 0 )
+
+/*
+	NONCHAR: Non character code points
+
+	\p{_Perl_Nchar}
+*/
+/*** GENERATED CODE ***/
+#define is_NONCHAR_utf8(s)                                                  \
+( ( 0xDD == ((U8*)s)[0] ) ?                                                 \
+    ( ( 0x73 == ((U8*)s)[1] ) ?                                             \
+	( ( 0x55 == ((U8*)s)[2] ) ?                                         \
+	    ( ( ( 0x57 <= ((U8*)s)[3] && ((U8*)s)[3] <= 0x59 ) || ( 0x62 <= ((U8*)s)[3] && ((U8*)s)[3] <= 0x6A ) || ( ((U8*)s)[3] & 0xFC ) == 0x70 ) ? 4 : 0 )\
+	: ( 0x56 == ((U8*)s)[2] ) ?                                         \
+	    ( ( ( 0x41 <= ((U8*)s)[3] && ((U8*)s)[3] <= 0x4A ) || ( 0x51 <= ((U8*)s)[3] && ((U8*)s)[3] <= 0x56 ) ) ? 4 : 0 )\
+	: ( ( 0x73 == ((U8*)s)[2] ) && ( ( ((U8*)s)[3] & 0xFE ) == 0x72 ) ) ? 4 : 0 )\
+    : 0 )                                                                   \
+: ( 0xDF == ((U8*)s)[0] || 0xEA == ((U8*)s)[0] || 0xEC == ((U8*)s)[0] ) ?   \
+    ( ( ( ( 0x73 == ((U8*)s)[1] ) && ( 0x73 == ((U8*)s)[2] ) ) && ( ( ((U8*)s)[3] & 0xFE ) == 0x72 ) ) ? 4 : 0 )\
+: ( 0xED == ((U8*)s)[0] ) ?                                                 \
+    ( ( ( ( ( ((U8*)s)[1] == 0x4A || ((U8*)s)[1] == 0x52 || ( ( ((U8*)s)[1] & 0xFD ) == 0x54 ) || ((U8*)s)[1] == 0x58 || ((U8*)s)[1] == 0x62 || ( ( ((U8*)s)[1] & 0xFD ) == 0x64 ) || ( ( ((U8*)s)[1] & 0xFD ) == 0x68 ) || ( ( ((U8*)s)[1] & 0xFD ) == 0x71 ) ) && ( 0x73 == ((U8*)s)[2] ) ) && ( 0x73 == ((U8*)s)[3] ) ) && ( ( ((U8*)s)[4] & 0xFE ) == 0x72 ) ) ? 5 : 0 )\
+: ( ( ( ( ( 0xEE == ((U8*)s)[0] ) && ( 0x42 == ((U8*)s)[1] ) ) && ( 0x73 == ((U8*)s)[2] ) ) && ( 0x73 == ((U8*)s)[3] ) ) && ( ( ((U8*)s)[4] & 0xFE ) == 0x72 ) ) ? 5 : 0 )
+
+/*
+	SURROGATE: Surrogate characters
+
+	\p{_Perl_Surrogate}
+*/
+/*** GENERATED CODE ***/
+#define is_SURROGATE_utf8(s)                                                \
+( ( ( ( ( 0xDD == ((U8*)s)[0] ) && ( 0x65 == ((U8*)s)[1] || 0x66 == ((U8*)s)[1] ) ) && ( ( 0x41 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x4A ) || ( 0x51 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x59 ) || ( 0x62 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x6A ) || ( ((U8*)s)[2] & 0xFC ) == 0x70 ) ) && ( ( 0x41 <= ((U8*)s)[3] && ((U8*)s)[3] <= 0x4A ) || ( 0x51 <= ((U8*)s)[3] && ((U8*)s)[3] <= 0x59 ) || ( 0x62 <= ((U8*)s)[3] && ((U8*)s)[3] <= 0x6A ) || ( ((U8*)s)[3] & 0xFC ) == 0x70 ) ) ? 4 : 0 )
+
+/*
+	UTF8_CHAR: Matches legal UTF-EBCDIC encoded characters from 2 through 3 bytes
+
+	0xA0 - 0x3FFF
+*/
+/*** GENERATED CODE ***/
+#define is_UTF8_CHAR_utf8_no_length_checks(s)                               \
+( ( 0x80 == ((U8*)s)[0] || ( 0x8A <= ((U8*)s)[0] && ((U8*)s)[0] <= 0x90 ) || ( 0x9A <= ((U8*)s)[0] && ((U8*)s)[0] <= 0xA0 ) || ( 0xAA <= ((U8*)s)[0] && ((U8*)s)[0] <= 0xAC ) || ( 0xAE <= ((U8*)s)[0] && ((U8*)s)[0] <= 0xB6 ) ) ?\
+    ( ( ( 0x41 <= ((U8*)s)[1] && ((U8*)s)[1] <= 0x4A ) || ( 0x51 <= ((U8*)s)[1] && ((U8*)s)[1] <= 0x59 ) || ( 0x62 <= ((U8*)s)[1] && ((U8*)s)[1] <= 0x6A ) || ( ((U8*)s)[1] & 0xFC ) == 0x70 ) ? 2 : 0 )\
+: ( ( ( ( ( ((U8*)s)[0] & 0xFC ) == 0xB8 ) || ((U8*)s)[0] == 0xBC || ( ( ((U8*)s)[0] & 0xFE ) == 0xBE ) || ( ( ((U8*)s)[0] & 0xEE ) == 0xCA ) || ( ( ((U8*)s)[0] & 0xFC ) == 0xCC ) ) && ( ( 0x41 <= ((U8*)s)[1] && ((U8*)s)[1] <= 0x4A ) || ( 0x51 <= ((U8*)s)[1] && ((U8*)s)[1] <= 0x59 ) || ( 0x62 <= ((U8*)s)[1] && ((U8*)s)[1] <= 0x6A ) || ( ((U8*)s)[1] & 0xFC ) == 0x70 ) ) && ( ( 0x41 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x4A ) || ( 0x51 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x59 ) || ( 0x62 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x6A ) || ( ((U8*)s)[2] & 0xFC ) == 0x70 ) ) ? 3 : 0 )
+
+/*
+	QUOTEMETA: Meta-characters that \Q should quote
+
+	\p{_Perl_Quotemeta}
+*/
+/*** GENERATED CODE ***/
+#define is_QUOTEMETA_high(s)                                                \
+( ( 0xB1 == ((U8*)s)[0] ) ?                                                 \
+    ( ( 0x56 == ((U8*)s)[1] ) ? 2 : 0 )                                     \
+: ( 0xB8 == ((U8*)s)[0] ) ?                                                 \
+    ( ( ( 0x57 == ((U8*)s)[1] ) && ( 0x70 == ((U8*)s)[2] ) ) ? 3 : 0 )      \
+: ( 0xBB == ((U8*)s)[0] ) ?                                                 \
+    ( ( 0x51 == ((U8*)s)[1] ) ?                                             \
+	( ( 0x73 == ((U8*)s)[2] ) ? 3 : 0 )                                 \
+    : ( ( 0x52 == ((U8*)s)[1] ) && ( 0x41 == ((U8*)s)[2] ) ) ? 3 : 0 )      \
+: ( 0xBC == ((U8*)s)[0] ) ?                                                 \
+    ( ( 0x63 == ((U8*)s)[1] ) ?                                             \
+	( ( 0x41 == ((U8*)s)[2] ) ? 3 : 0 )                                 \
+    : ( ( 0x71 == ((U8*)s)[1] ) && ( 0x63 == ((U8*)s)[2] || 0x64 == ((U8*)s)[2] ) ) ? 3 : 0 )\
+: ( 0xBE == ((U8*)s)[0] ) ?                                                 \
+    ( ( ( 0x41 == ((U8*)s)[1] ) && ( 0x52 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x55 ) ) ? 3 : 0 )\
+: ( 0xCA == ((U8*)s)[0] ) ?                                                 \
+    ( ( 0x41 == ((U8*)s)[1] || ( 0x54 <= ((U8*)s)[1] && ((U8*)s)[1] <= 0x59 ) || ( 0x62 <= ((U8*)s)[1] && ((U8*)s)[1] <= 0x6A ) || ( ((U8*)s)[1] & 0xFC ) == 0x70 ) ?\
+	( ( ( 0x41 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x4A ) || ( 0x51 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x59 ) || ( 0x62 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x6A ) || ( ((U8*)s)[2] & 0xFC ) == 0x70 ) ? 3 : 0 )\
+    : ( 0x42 == ((U8*)s)[1] ) ?                                             \
+	( ( ( 0x41 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x4A ) || ( 0x51 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x59 ) || ( 0x62 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x6A ) || ( 0x70 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x72 ) ) ? 3 : 0 )\
+    : ( 0x43 == ((U8*)s)[1] ) ?                                             \
+	( ( ( 0x42 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x4A ) || ( 0x51 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x59 ) || 0x62 == ((U8*)s)[2] || ( 0x64 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x6A ) || ( ((U8*)s)[2] & 0xFC ) == 0x70 ) ? 3 : 0 )\
+    : ( 0x44 == ((U8*)s)[1] ) ?                                             \
+	( ( ( 0x41 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x4A ) || ( 0x51 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x56 ) ) ? 3 : 0 )\
+    : ( ( 0x53 == ((U8*)s)[1] ) && ( ( 0x57 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x59 ) || ( 0x62 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x6A ) || ( ((U8*)s)[2] & 0xFC ) == 0x70 ) ) ? 3 : 0 )\
+: ( 0xCB == ((U8*)s)[0] ) ?                                                 \
+    ( ( ( ( ((U8*)s)[1] & 0xE7 ) == 0x41 ) || ( ( ((U8*)s)[1] & 0xCE ) == 0x42 ) || ((U8*)s)[1] == 0x4A || ( ( ((U8*)s)[1] & 0xFC ) == 0x54 ) || ((U8*)s)[1] == 0x58 || ( ( ((U8*)s)[1] & 0xFC ) == 0x64 ) || ( ( ((U8*)s)[1] & 0xFE ) == 0x68 ) || ((U8*)s)[1] == 0x71 ) ?\
+	( ( ( 0x41 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x4A ) || ( 0x51 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x59 ) || ( 0x62 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x6A ) || ( ((U8*)s)[2] & 0xFC ) == 0x70 ) ? 3 : 0 )\
+    : ( 0x6A == ((U8*)s)[1] ) ?                                             \
+	( ( ( 0x41 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x4A ) || ( 0x51 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x59 ) || ( 0x62 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x64 ) ) ? 3 : 0 )\
+    : ( ( 0x70 == ((U8*)s)[1] ) && ( ( 0x63 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x6A ) || ( ((U8*)s)[2] & 0xFC ) == 0x70 ) ) ? 3 : 0 )\
+: ( 0xCC == ((U8*)s)[0] ) ?                                                 \
+    ( ( ( ( 0x41 <= ((U8*)s)[1] && ((U8*)s)[1] <= 0x4A ) || ( 0x51 <= ((U8*)s)[1] && ((U8*)s)[1] <= 0x59 ) || ( 0x62 <= ((U8*)s)[1] && ((U8*)s)[1] <= 0x6A ) || ( ((U8*)s)[1] & 0xFC ) == 0x70 ) && ( ( 0x41 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x4A ) || ( 0x51 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x59 ) || ( 0x62 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x6A ) || ( ((U8*)s)[2] & 0xFC ) == 0x70 ) ) ? 3 : 0 )\
+: ( 0xCD == ((U8*)s)[0] ) ?                                                 \
+    ( ( ( ( 0x57 <= ((U8*)s)[1] && ((U8*)s)[1] <= 0x59 ) || 0x62 == ((U8*)s)[1] ) && ( ( 0x41 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x4A ) || ( 0x51 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x59 ) || ( 0x62 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x6A ) || ( ((U8*)s)[2] & 0xFC ) == 0x70 ) ) ? 3 : 0 )\
+: ( 0xCE == ((U8*)s)[0] ) ?                                                 \
+    ( ( 0x41 == ((U8*)s)[1] ) ?                                             \
+	( ( ( 0x41 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x44 ) || ( 0x49 == ((U8*)s)[2] || 0x4A == ((U8*)s)[2] ) || ( 0x51 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x59 ) || ( 0x62 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x6A ) || ( ((U8*)s)[2] & 0xFC ) == 0x70 ) ? 3 : 0 )\
+    : ( 0x42 == ((U8*)s)[1] ) ?                                             \
+	( ( 0x41 == ((U8*)s)[2] || 0x57 == ((U8*)s)[2] ) ? 3 : 0 )          \
+    : ( ( 0x52 == ((U8*)s)[1] ) && ( 0x45 == ((U8*)s)[2] ) ) ? 3 : 0 )      \
+: ( 0xDD == ((U8*)s)[0] ) ?                                                 \
+    ( ( 0x73 == ((U8*)s)[1] ) ?                                             \
+	( ( 0x4A == ((U8*)s)[2] ) ?                                         \
+	    ( ( ( ((U8*)s)[3] & 0xFE ) == 0x72 ) ? 4 : 0 )                  \
+	: ( 0x57 == ((U8*)s)[2] ) ?                                         \
+	    ( ( ( 0x41 <= ((U8*)s)[3] && ((U8*)s)[3] <= 0x4A ) || ( 0x51 <= ((U8*)s)[3] && ((U8*)s)[3] <= 0x56 ) ) ? 4 : 0 )\
+	: ( 0x59 == ((U8*)s)[2] ) ?                                         \
+	    ( ( ( ((U8*)s)[3] & 0xFE ) == 0x46 ) ? 4 : 0 )                  \
+	: ( 0x66 == ((U8*)s)[2] ) ?                                         \
+	    ( ( 0x73 == ((U8*)s)[3] ) ? 4 : 0 )                             \
+	: ( 0x71 == ((U8*)s)[2] ) ?                                         \
+	    ( ( 0x41 == ((U8*)s)[3] ) ? 4 : 0 )                             \
+	: ( ( 0x73 == ((U8*)s)[2] ) && ( ( 0x57 <= ((U8*)s)[3] && ((U8*)s)[3] <= 0x59 ) || ( 0x62 <= ((U8*)s)[3] && ((U8*)s)[3] <= 0x67 ) ) ) ? 4 : 0 )\
+    : 0 )                                                                   \
+: ( 0xDF == ((U8*)s)[0] ) ?                                                 \
+    ( ( 0x56 == ((U8*)s)[1] ) ?                                             \
+	( ( ( 0x46 == ((U8*)s)[2] ) && ( 0x41 <= ((U8*)s)[3] && ((U8*)s)[3] <= 0x44 ) ) ? 4 : 0 )\
+    : ( ( ( 0x63 == ((U8*)s)[1] ) && ( 0x52 == ((U8*)s)[2] ) ) && ( 0x62 <= ((U8*)s)[3] && ((U8*)s)[3] <= 0x69 ) ) ? 4 : 0 )\
+: ( ( ( ( ( 0xED == ((U8*)s)[0] ) && ( 0x70 == ((U8*)s)[1] ) ) && ( 0x41 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x44 ) ) && ( ( 0x41 <= ((U8*)s)[3] && ((U8*)s)[3] <= 0x4A ) || ( 0x51 <= ((U8*)s)[3] && ((U8*)s)[3] <= 0x59 ) || ( 0x62 <= ((U8*)s)[3] && ((U8*)s)[3] <= 0x6A ) || ( ((U8*)s)[3] & 0xFC ) == 0x70 ) ) && ( ( 0x41 <= ((U8*)s)[4] && ((U8*)s)[4] <= 0x4A ) || ( 0x51 <= ((U8*)s)[4] && ((U8*)s)[4] <= 0x59 ) || ( 0x62 <= ((U8*)s)[4] && ((U8*)s)[4] <= 0x6A ) || ( ((U8*)s)[4] & 0xFC ) == 0x70 ) ) ? 5 : 0 )
+
+/*
+	MULTI_CHAR_FOLD: multi-char strings that are folded to by a single character
+
+	&regcharclass_multi_char_folds::multi_char_folds(1)
+*/
+/*** GENERATED CODE ***/
+#define is_MULTI_CHAR_FOLD_utf8_safe_part0(s,e)                             \
+( ( 0x81 == ((U8*)s)[0] ) ?                                                 \
+	( ( ( 0xAB == ((U8*)s)[1] ) && ( 0x72 == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0x86 == ((U8*)s)[0] ) ?                                             \
+	( ( 0x86 == ((U8*)s)[1] ) ?                                         \
+	    ( ( 0x89 == ((U8*)s)[2] || 0x93 == ((U8*)s)[2] ) ? 3 : 2 )      \
+	: ( 0x89 == ((U8*)s)[1] || 0x93 == ((U8*)s)[1] ) ? 2 : 0 )          \
+    : ( 0x88 == ((U8*)s)[0] ) ?                                             \
+	( ( ( 0xB0 == ((U8*)s)[1] ) && ( 0x58 == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0x89 == ((U8*)s)[0] ) ?                                             \
+	( ( ( 0xAF == ((U8*)s)[1] ) && ( 0x48 == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0x8F == ((U8*)s)[0] ) ?                                             \
+	( ( ( ( 0x73 == ((U8*)s)[1] ) && ( 0x8F == ((U8*)s)[2] ) ) && ( 0x73 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+    : ( 0x91 == ((U8*)s)[0] ) ?                                             \
+	( ( ( 0xAF == ((U8*)s)[1] ) && ( 0x53 == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0xA2 == ((U8*)s)[0] ) ?                                             \
+	( ( ( ((U8*)s)[1] & 0xFE ) == 0xA2 ) ? 2 : 0 )                      \
+    : ( 0xA3 == ((U8*)s)[0] ) ?                                             \
+	( ( ( 0xAF == ((U8*)s)[1] ) && ( 0x49 == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0xA6 == ((U8*)s)[0] || 0xA8 == ((U8*)s)[0] ) ?                      \
+	( ( ( 0xAF == ((U8*)s)[1] ) && ( 0x51 == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0xAB == ((U8*)s)[0] ) ?                                             \
+	( ( ( 0x70 == ((U8*)s)[1] ) && ( 0x95 == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0xB4 == ((U8*)s)[0] ) ?                                             \
+	( ( 0x53 == ((U8*)s)[1] || 0x55 == ((U8*)s)[1] ) ?                  \
+	    ( ( ( 0xB4 == ((U8*)s)[2] ) && ( 0x68 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+	: ( 0x58 == ((U8*)s)[1] || 0x66 == ((U8*)s)[1] ) ?                  \
+	    ( ( 0xB1 == ((U8*)s)[2] ) ?                                     \
+		( ( 0x43 == ((U8*)s)[3] ) ? 4 : 0 )                         \
+	    : ( ( 0xB4 == ((U8*)s)[2] ) && ( 0x68 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+	: ( ( ( 0x68 == ((U8*)s)[1] ) && ( 0xB1 == ((U8*)s)[2] ) ) && ( 0x43 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+    : ( 0xB5 == ((U8*)s)[0] ) ?                                             \
+	( ( 0x42 == ((U8*)s)[1] ) ?                                         \
+	    ( ( ( 0xAF == ((U8*)s)[2] ) && ( 0x62 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+	: ( 0x46 == ((U8*)s)[1] ) ?                                         \
+	    ( ( 0xAF == ((U8*)s)[2] ) ?                                     \
+		( ( 0x62 == ((U8*)s)[3] ) ? 4 : 0 )                         \
+	    : ( ( 0xB1 == ((U8*)s)[2] ) && ( 0x43 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+	: ( 0x4A == ((U8*)s)[1] ) ?                                         \
+	    ( ( 0xB1 == ((U8*)s)[2] ) ?                                     \
+		( ( 0x43 == ((U8*)s)[3] ) ? 4 : 0 )                         \
+	    : ( ( 0xB4 == ((U8*)s)[2] ) && ( 0x68 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+	: ( ( ( 0x55 == ((U8*)s)[1] ) && ( 0xB4 == ((U8*)s)[2] ) ) && ( 0x68 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+    : ( 0xBF == ((U8*)s)[0] ) ?                                             \
+	( ( 0x67 == ((U8*)s)[1] || 0x68 == ((U8*)s)[1] ) ?                  \
+	    ( ( ( ( 0x41 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x48 ) && ( 0xB4 == ((U8*)s)[3] ) ) && ( 0x68 == ((U8*)s)[4] ) ) ? 5 : 0 )\
+	: ( ( ( ( 0x6A == ((U8*)s)[1] ) && ( ( 0x41 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x48 ) || 0x57 == ((U8*)s)[2] || 0x63 == ((U8*)s)[2] || 0x70 == ((U8*)s)[2] ) ) && ( 0xB4 == ((U8*)s)[3] ) ) && ( 0x68 == ((U8*)s)[4] ) ) ? 5 : 0 )\
+    : 0 )
+
+
+/*** GENERATED CODE ***/
+#define is_MULTI_CHAR_FOLD_utf8_safe_part1(s,e)                             \
+( ((e)-(s) > 3) ?                                                           \
+    ( ( 0x81 == ((U8*)s)[0] ) ?                                             \
+	( ( ( 0xAB == ((U8*)s)[1] ) && ( 0x72 == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0x86 == ((U8*)s)[0] ) ?                                             \
+	( ( 0x86 == ((U8*)s)[1] ) ?                                         \
+	    ( ( 0x89 == ((U8*)s)[2] || 0x93 == ((U8*)s)[2] ) ? 3 : 2 )      \
+	: ( 0x89 == ((U8*)s)[1] || 0x93 == ((U8*)s)[1] ) ? 2 : 0 )          \
+    : ( 0x88 == ((U8*)s)[0] ) ?                                             \
+	( ( ( 0xB0 == ((U8*)s)[1] ) && ( 0x58 == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0x89 == ((U8*)s)[0] ) ?                                             \
+	( ( ( 0xAF == ((U8*)s)[1] ) && ( 0x48 == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0x8F == ((U8*)s)[0] ) ?                                             \
+	( ( ( ( 0x73 == ((U8*)s)[1] ) && ( 0x8F == ((U8*)s)[2] ) ) && ( 0x73 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+    : ( 0x91 == ((U8*)s)[0] ) ?                                             \
+	( ( ( 0xAF == ((U8*)s)[1] ) && ( 0x53 == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0xA2 == ((U8*)s)[0] ) ?                                             \
+	( ( ( ((U8*)s)[1] & 0xFE ) == 0xA2 ) ? 2 : 0 )                      \
+    : ( 0xA3 == ((U8*)s)[0] ) ?                                             \
+	( ( ( 0xAF == ((U8*)s)[1] ) && ( 0x49 == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0xA6 == ((U8*)s)[0] || 0xA8 == ((U8*)s)[0] ) ?                      \
+	( ( ( 0xAF == ((U8*)s)[1] ) && ( 0x51 == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0xAB == ((U8*)s)[0] ) ?                                             \
+	( ( ( 0x70 == ((U8*)s)[1] ) && ( 0x95 == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0xB4 == ((U8*)s)[0] ) ?                                             \
+	( ( 0x53 == ((U8*)s)[1] || 0x55 == ((U8*)s)[1] ) ?                  \
+	    ( ( ( 0xB4 == ((U8*)s)[2] ) && ( 0x68 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+	: ( 0x58 == ((U8*)s)[1] || 0x66 == ((U8*)s)[1] ) ?                  \
+	    ( ( 0xB1 == ((U8*)s)[2] ) ?                                     \
+		( ( 0x43 == ((U8*)s)[3] ) ? 4 : 0 )                         \
+	    : ( ( 0xB4 == ((U8*)s)[2] ) && ( 0x68 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+	: ( ( ( 0x68 == ((U8*)s)[1] ) && ( 0xB1 == ((U8*)s)[2] ) ) && ( 0x43 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+    : ( 0xB5 == ((U8*)s)[0] ) ?                                             \
+	( ( 0x42 == ((U8*)s)[1] ) ?                                         \
+	    ( ( ( 0xAF == ((U8*)s)[2] ) && ( 0x62 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+	: ( 0x46 == ((U8*)s)[1] ) ?                                         \
+	    ( ( 0xAF == ((U8*)s)[2] ) ?                                     \
+		( ( 0x62 == ((U8*)s)[3] ) ? 4 : 0 )                         \
+	    : ( ( 0xB1 == ((U8*)s)[2] ) && ( 0x43 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+	: ( 0x4A == ((U8*)s)[1] ) ?                                         \
+	    ( ( 0xB1 == ((U8*)s)[2] ) ?                                     \
+		( ( 0x43 == ((U8*)s)[3] ) ? 4 : 0 )                         \
+	    : ( ( 0xB4 == ((U8*)s)[2] ) && ( 0x68 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+	: ( ( ( 0x55 == ((U8*)s)[1] ) && ( 0xB4 == ((U8*)s)[2] ) ) && ( 0x68 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+    : 0 )                                                                   \
+: ((e)-(s) > 2) ?                                                           \
+    ( ( 0x81 == ((U8*)s)[0] ) ?                                             \
+	( ( ( 0xAB == ((U8*)s)[1] ) && ( 0x72 == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0x86 == ((U8*)s)[0] ) ?                                             \
+	( ( 0x86 == ((U8*)s)[1] ) ?                                         \
+	    ( ( 0x89 == ((U8*)s)[2] || 0x93 == ((U8*)s)[2] ) ? 3 : 2 )      \
+	: ( 0x89 == ((U8*)s)[1] || 0x93 == ((U8*)s)[1] ) ? 2 : 0 )          \
+    : ( 0x88 == ((U8*)s)[0] ) ?                                             \
+	( ( ( 0xB0 == ((U8*)s)[1] ) && ( 0x58 == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0x89 == ((U8*)s)[0] ) ?                                             \
+	( ( ( 0xAF == ((U8*)s)[1] ) && ( 0x48 == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0x91 == ((U8*)s)[0] ) ?                                             \
+	( ( ( 0xAF == ((U8*)s)[1] ) && ( 0x53 == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0xA2 == ((U8*)s)[0] ) ?                                             \
+	( ( ( ((U8*)s)[1] & 0xFE ) == 0xA2 ) ? 2 : 0 )                      \
+    : ( 0xA3 == ((U8*)s)[0] ) ?                                             \
+	( ( ( 0xAF == ((U8*)s)[1] ) && ( 0x49 == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0xA6 == ((U8*)s)[0] || 0xA8 == ((U8*)s)[0] ) ?                      \
+	( ( ( 0xAF == ((U8*)s)[1] ) && ( 0x51 == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( ( ( 0xAB == ((U8*)s)[0] ) && ( 0x70 == ((U8*)s)[1] ) ) && ( 0x95 == ((U8*)s)[2] ) ) ? 3 : 0 )\
+: ((e)-(s) > 1) ?                                                           \
+    ( ( 0x86 == ((U8*)s)[0] ) ?                                             \
+	( ( 0x86 == ((U8*)s)[1] || 0x89 == ((U8*)s)[1] || 0x93 == ((U8*)s)[1] ) ? 2 : 0 )\
+    : ( ( 0xA2 == ((U8*)s)[0] ) && ( ( ((U8*)s)[1] & 0xFE ) == 0xA2 ) ) ? 2 : 0 )\
+: 0 )
+
+
+/*** GENERATED CODE ***/
+#define is_MULTI_CHAR_FOLD_utf8_safe(s,e)                                   \
+( ((e)-(s) > 5) ?                                                           \
+    ( ( 0x81 == ((U8*)s)[0] ) ?                                             \
+	( ( ( 0xAB == ((U8*)s)[1] ) && ( 0x72 == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0x86 == ((U8*)s)[0] ) ?                                             \
+	( ( 0x86 == ((U8*)s)[1] ) ?                                         \
+	    ( ( 0x89 == ((U8*)s)[2] || 0x93 == ((U8*)s)[2] ) ? 3 : 2 )      \
+	: ( 0x89 == ((U8*)s)[1] || 0x93 == ((U8*)s)[1] ) ? 2 : 0 )          \
+    : ( 0x88 == ((U8*)s)[0] ) ?                                             \
+	( ( ( 0xB0 == ((U8*)s)[1] ) && ( 0x58 == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0x89 == ((U8*)s)[0] ) ?                                             \
+	( ( ( 0xAF == ((U8*)s)[1] ) && ( 0x48 == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0x8F == ((U8*)s)[0] ) ?                                             \
+	( ( ( ( 0x73 == ((U8*)s)[1] ) && ( 0x8F == ((U8*)s)[2] ) ) && ( 0x73 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+    : ( 0x91 == ((U8*)s)[0] ) ?                                             \
+	( ( ( 0xAF == ((U8*)s)[1] ) && ( 0x53 == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0xA2 == ((U8*)s)[0] ) ?                                             \
+	( ( ( ((U8*)s)[1] & 0xFE ) == 0xA2 ) ? 2 : 0 )                      \
+    : ( 0xA3 == ((U8*)s)[0] ) ?                                             \
+	( ( ( 0xAF == ((U8*)s)[1] ) && ( 0x49 == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0xA6 == ((U8*)s)[0] || 0xA8 == ((U8*)s)[0] ) ?                      \
+	( ( ( 0xAF == ((U8*)s)[1] ) && ( 0x51 == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0xAB == ((U8*)s)[0] ) ?                                             \
+	( ( ( 0x70 == ((U8*)s)[1] ) && ( 0x95 == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0xB4 == ((U8*)s)[0] ) ?                                             \
+	( ( 0x53 == ((U8*)s)[1] || 0x55 == ((U8*)s)[1] ) ?                  \
+	    ( ( ( 0xB4 == ((U8*)s)[2] ) && ( 0x68 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+	: ( 0x58 == ((U8*)s)[1] || 0x66 == ((U8*)s)[1] ) ?                  \
+	    ( ( 0xB1 == ((U8*)s)[2] ) ?                                     \
+		( ( 0x43 == ((U8*)s)[3] ) ?                                 \
+		    ( ( ( 0xB4 == ((U8*)s)[4] ) && ( 0x68 == ((U8*)s)[5] ) ) ? 6 : 4 )\
+		: 0 )                                                       \
+	    : ( ( 0xB4 == ((U8*)s)[2] ) && ( 0x68 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+	: ( 0x68 == ((U8*)s)[1] ) ?                                         \
+	    ( ( 0xAF == ((U8*)s)[2] ) ?                                     \
+		( ( 0x49 == ((U8*)s)[3] ) ?                                 \
+		    ( ( 0xAF == ((U8*)s)[4] ) ?                             \
+			( ( 0x41 == ((U8*)s)[5] || 0x42 == ((U8*)s)[5] ) ? 6 : 0 )\
+		    : ( ( 0xB1 == ((U8*)s)[4] ) && ( 0x43 == ((U8*)s)[5] ) ) ? 6 : 0 )\
+		: 0 )                                                       \
+	    : ( ( 0xB1 == ((U8*)s)[2] ) && ( 0x43 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+	: 0 )                                                               \
+    : ( 0xB5 == ((U8*)s)[0] ) ?                                             \
+	( ( 0x42 == ((U8*)s)[1] ) ?                                         \
+	    ( ( ( 0xAF == ((U8*)s)[2] ) && ( 0x62 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+	: ( 0x46 == ((U8*)s)[1] ) ?                                         \
+	    ( ( 0xAF == ((U8*)s)[2] ) ?                                     \
+		( ( 0x49 == ((U8*)s)[3] ) ?                                 \
+		    ( ( 0xAF == ((U8*)s)[4] ) ?                             \
+			( ( 0x41 == ((U8*)s)[5] || 0x42 == ((U8*)s)[5] ) ? 6 : 0 )\
+		    : ( ( 0xB1 == ((U8*)s)[4] ) && ( 0x43 == ((U8*)s)[5] ) ) ? 6 : 0 )\
+		: ( 0x62 == ((U8*)s)[3] ) ?                                 \
+		    ( ( 0xAF == ((U8*)s)[4] ) ?                             \
+			( ( 0x41 == ((U8*)s)[5] || 0x42 == ((U8*)s)[5] ) ? 6 : 4 )\
+		    : ( ( 0xB1 == ((U8*)s)[4] ) && ( 0x43 == ((U8*)s)[5] ) ) ? 6 : 4 )\
+		: 0 )                                                       \
+	    : ( ( 0xB1 == ((U8*)s)[2] ) && ( 0x43 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+	: ( 0x4A == ((U8*)s)[1] ) ?                                         \
+	    ( ( 0xB1 == ((U8*)s)[2] ) ?                                     \
+		( ( 0x43 == ((U8*)s)[3] ) ?                                 \
+		    ( ( ( 0xB4 == ((U8*)s)[4] ) && ( 0x68 == ((U8*)s)[5] ) ) ? 6 : 4 )\
+		: 0 )                                                       \
+	    : ( ( 0xB4 == ((U8*)s)[2] ) && ( 0x68 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+	: ( ( ( 0x55 == ((U8*)s)[1] ) && ( 0xB4 == ((U8*)s)[2] ) ) && ( 0x68 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+    : ( 0xB8 == ((U8*)s)[0] ) ?                                             \
+	( ( 0x52 == ((U8*)s)[1] ) ?                                         \
+	    ( ( 0x46 == ((U8*)s)[2] ) ?                                     \
+		( ( ( ( 0xB8 == ((U8*)s)[3] ) && ( 0x53 == ((U8*)s)[4] ) ) && ( 0x43 == ((U8*)s)[5] ) ) ? 6 : 0 )\
+	    : ( 0x63 == ((U8*)s)[2] ) ?                                     \
+		( ( ( ( 0xB8 == ((U8*)s)[3] ) && ( 0x52 == ((U8*)s)[4] ) ) && ( 0x46 == ((U8*)s)[5] || 0x52 == ((U8*)s)[5] || 0x54 == ((U8*)s)[5] || 0x65 == ((U8*)s)[5] ) ) ? 6 : 0 )\
+	    : ( ( ( ( 0x72 == ((U8*)s)[2] ) && ( 0xB8 == ((U8*)s)[3] ) ) && ( 0x52 == ((U8*)s)[4] ) ) && ( 0x65 == ((U8*)s)[5] ) ) ? 6 : 0 )\
+	: 0 )                                                               \
+    : ( 0xBF == ((U8*)s)[0] ) ?                                             \
+	( ( 0x67 == ((U8*)s)[1] || 0x68 == ((U8*)s)[1] ) ?                  \
+	    ( ( ( ( 0x41 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x48 ) && ( 0xB4 == ((U8*)s)[3] ) ) && ( 0x68 == ((U8*)s)[4] ) ) ? 5 : 0 )\
+	: ( ( ( ( 0x6A == ((U8*)s)[1] ) && ( ( 0x41 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x48 ) || 0x57 == ((U8*)s)[2] || 0x63 == ((U8*)s)[2] || 0x70 == ((U8*)s)[2] ) ) && ( 0xB4 == ((U8*)s)[3] ) ) && ( 0x68 == ((U8*)s)[4] ) ) ? 5 : 0 )\
+    : 0 )                                                                   \
+: ((e)-(s) > 4) ? is_MULTI_CHAR_FOLD_utf8_safe_part0(s,e) : is_MULTI_CHAR_FOLD_utf8_safe_part1(s,e) )
+
+/*
+	MULTI_CHAR_FOLD: multi-char strings that are folded to by a single character
+
+	&regcharclass_multi_char_folds::multi_char_folds(0)
+*/
+/*** GENERATED CODE ***/
+#define is_MULTI_CHAR_FOLD_latin1_safe(s,e)                                 \
+( ((e)-(s) > 2) ?                                                           \
+    ( ( ( ((U8*)s)[0] & 0xBF ) == 0x86 ) ?                                  \
+	( ( ( ((U8*)s)[1] & 0xBF ) == 0x86 ) ?                              \
+	    ( ( ( ( ((U8*)s)[2] & 0xBF ) == 0x89 ) || ( ( ((U8*)s)[2] & 0xBF ) == 0x93 ) ) ? 3 : 2 )\
+	: ( ( ( ((U8*)s)[1] & 0xBF ) == 0x89 ) || ( ( ((U8*)s)[1] & 0xBF ) == 0x93 ) ) ? 2 : 0 )\
+    : ( ( ( ((U8*)s)[0] & 0xBF ) == 0xA2 ) && ( ( ((U8*)s)[1] & 0xBE ) == 0xA2 ) ) ? 2 : 0 )\
+: ((e)-(s) > 1) ?                                                           \
+    ( ( ( ((U8*)s)[0] & 0xBF ) == 0x86 ) ?                                  \
+	( ( ( ( ((U8*)s)[1] & 0xBF ) == 0x86 ) || ( ( ((U8*)s)[1] & 0xBF ) == 0x89 ) || ( ( ((U8*)s)[1] & 0xBF ) == 0x93 ) ) ? 2 : 0 )\
+    : ( ( ( ((U8*)s)[0] & 0xBF ) == 0xA2 ) && ( ( ((U8*)s)[1] & 0xBE ) == 0xA2 ) ) ? 2 : 0 )\
+: 0 )
+
+/*
+	FOLDS_TO_MULTI: characters that fold to multi-char strings
+
+	\p{_Perl_Folds_To_Multi_Char}
+*/
+/*** GENERATED CODE ***/
+#define is_FOLDS_TO_MULTI_utf8(s)                                           \
+( ( 0x8A == ((U8*)s)[0] ) ?                                                 \
+    ( ( 0x73 == ((U8*)s)[1] ) ? 2 : 0 )                                     \
+: ( 0x8D == ((U8*)s)[0] || 0x9C == ((U8*)s)[0] || ( 0xB3 == ((U8*)s)[0] || 0xB4 == ((U8*)s)[0] ) ) ?\
+    ( ( 0x57 == ((U8*)s)[1] ) ? 2 : 0 )                                     \
+: ( 0x8E == ((U8*)s)[0] ) ?                                                 \
+    ( ( 0x4A == ((U8*)s)[1] ) ? 2 : 0 )                                     \
+: ( 0xB8 == ((U8*)s)[0] ) ?                                                 \
+    ( ( ( 0x53 == ((U8*)s)[1] ) && ( 0x48 == ((U8*)s)[2] ) ) ? 3 : 0 )      \
+: ( 0xBF == ((U8*)s)[0] ) ?                                                 \
+    ( ( 0x63 == ((U8*)s)[1] ) ?                                             \
+	( ( ( 0x65 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x69 ) || 0x72 == ((U8*)s)[2] ) ? 3 : 0 )\
+    : ( 0x69 == ((U8*)s)[1] ) ?                                             \
+	( ( 0x57 == ((U8*)s)[2] || 0x59 == ((U8*)s)[2] || 0x63 == ((U8*)s)[2] || 0x65 == ((U8*)s)[2] ) ? 3 : 0 )\
+    : ( 0x70 == ((U8*)s)[1] ) ?                                             \
+	( ( ( 0x41 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x4A ) || ( 0x51 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x59 ) || ( 0x62 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x6A ) || ( ((U8*)s)[2] & 0xFC ) == 0x70 ) ? 3 : 0 )\
+    : ( 0x71 == ((U8*)s)[1] ) ?                                             \
+	( ( ( 0x41 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x4A ) || ( 0x51 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x56 ) || 0x59 == ((U8*)s)[2] || ( ((U8*)s)[2] & 0xFE ) == 0x62 || ( 0x65 == ((U8*)s)[2] || 0x66 == ((U8*)s)[2] ) || 0x70 == ((U8*)s)[2] ) ? 3 : 0 )\
+    : ( 0x72 == ((U8*)s)[1] ) ?                                             \
+	( ( ( ( ((U8*)s)[2] & 0xFB ) == 0x43 ) || ( ( ((U8*)s)[2] & 0xFE ) == 0x44 ) || ((U8*)s)[2] == 0x48 || ((U8*)s)[2] == 0x53 || ((U8*)s)[2] == 0x59 || ( ( ((U8*)s)[2] & 0xFB ) == 0x62 ) || ((U8*)s)[2] == 0x65 ) ? 3 : 0 )\
+    : ( ( 0x73 == ((U8*)s)[1] ) && ( ( ( ((U8*)s)[2] & 0xFB ) == 0x43 ) || ( ( ((U8*)s)[2] & 0xFE ) == 0x44 ) || ((U8*)s)[2] == 0x48 || ((U8*)s)[2] == 0x59 || ( ( ((U8*)s)[2] & 0xFE ) == 0x62 ) || ((U8*)s)[2] == 0x65 || ((U8*)s)[2] == 0x66 || ((U8*)s)[2] == 0x70 ) ) ? 3 : 0 )\
+: ( ( ( ( 0xDD == ((U8*)s)[0] ) && ( 0x72 == ((U8*)s)[1] ) ) && ( 0x67 == ((U8*)s)[2] ) ) && ( ( 0x41 <= ((U8*)s)[3] && ((U8*)s)[3] <= 0x47 ) || ( 0x62 <= ((U8*)s)[3] && ((U8*)s)[3] <= 0x66 ) ) ) ? 4 : 0 )
+
+/*
+	PROBLEMATIC_LOCALE_FOLD: characters whose fold is problematic under locale
+
+	\p{_Perl_Problematic_Locale_Folds}
+*/
+/*** GENERATED CODE ***/
+#define is_PROBLEMATIC_LOCALE_FOLD_utf8(s)                                  \
+( ( ( ( ((U8*)s)[0] & 0xC0 ) == 0x00 ) || ( ( ((U8*)s)[0] & 0xEF ) == 0x40 ) || ( ( ((U8*)s)[0] & 0xDF ) == 0x4B ) || ( ( ((U8*)s)[0] & 0xCC ) == 0x4C ) || ( ( ((U8*)s)[0] & 0xDE ) == 0x5A ) || ( ( ((U8*)s)[0] & 0xFE ) == 0x60 ) || ((U8*)s)[0] == 0x79 || ( ( ((U8*)s)[0] & 0xEF ) == 0x81 ) || ( ( ((U8*)s)[0] & 0xEE ) == 0x82 ) || ( ( ((U8*)s)[0] & 0xEC ) == 0x84 ) || ( ( ((U8*)s)[0] & 0xEE ) == 0x88 ) || ((U8*)s)[0] == 0xA1 || ( ( ((U8*)s)[0] & 0xBE ) == 0xA2 ) || ( ( ((U8*)s)[0] & 0xBC ) == 0xA4 ) || ( ( ((U8*)s)[0] & 0xFE ) == 0xA8 ) || ( ( ((U8*)s)[0] & 0xEF ) == 0xAD ) || ( ( ((U8*)s)[0] & 0xE8 ) == 0xC0 ) || ( ( ((U8*)s)[0] & 0xCE ) == 0xC8 ) || ((U8*)s)[0] == 0xE0 || ( ( ((U8*)s)[0] & 0xF8 ) == 0xF0 ) || ((U8*)s)[0] == 0xFF ) ? 1\
+: ( 0x80 == ((U8*)s)[0] || ( ((U8*)s)[0] & 0xFE ) == 0x8A ) ?               \
+    ( ( ( 0x41 <= ((U8*)s)[1] && ((U8*)s)[1] <= 0x4A ) || ( 0x51 <= ((U8*)s)[1] && ((U8*)s)[1] <= 0x59 ) || ( 0x62 <= ((U8*)s)[1] && ((U8*)s)[1] <= 0x6A ) || ( ((U8*)s)[1] & 0xFC ) == 0x70 ) ? 2 : 0 )\
+: ( 0x8D == ((U8*)s)[0] || 0x9C == ((U8*)s)[0] ) ?                          \
+    ( ( 0x57 == ((U8*)s)[1] ) ? 2 : 0 )                                     \
+: ( 0x8E == ((U8*)s)[0] ) ?                                                 \
+    ( ( 0x4A == ((U8*)s)[1] ) ? 2 : 0 )                                     \
+: ( 0x8F == ((U8*)s)[0] ) ?                                                 \
+    ( ( 0x67 == ((U8*)s)[1] || 0x73 == ((U8*)s)[1] ) ? 2 : 0 )              \
+: ( 0xB3 == ((U8*)s)[0] || 0xB4 == ((U8*)s)[0] ) ?                          \
+    ( ( 0x70 == ((U8*)s)[1] ) ? 2 : 0 )                                     \
+: ( 0xBF == ((U8*)s)[0] ) ?                                                 \
+    ( ( ( 0x63 == ((U8*)s)[1] ) && ( ( 0x65 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x69 ) || 0x72 == ((U8*)s)[2] ) ) ? 3 : 0 )\
+: ( 0xCA == ((U8*)s)[0] ) ?                                                 \
+    ( ( ( 0x4A == ((U8*)s)[1] ) && ( 0x51 == ((U8*)s)[2] || 0x52 == ((U8*)s)[2] ) ) ? 3 : 0 )\
+: ( ( ( ( 0xDD == ((U8*)s)[0] ) && ( 0x72 == ((U8*)s)[1] ) ) && ( 0x67 == ((U8*)s)[2] ) ) && ( 0x41 <= ((U8*)s)[3] && ((U8*)s)[3] <= 0x47 ) ) ? 4 : 0 )
+
+/*** GENERATED CODE ***/
+#define is_PROBLEMATIC_LOCALE_FOLD_cp(cp)                                   \
+( cp <= 0xFF || ( 0xFF < cp &&                                              \
+( 0x130 == cp || ( 0x130 < cp &&                                            \
+( 0x149 == cp || ( 0x149 < cp &&                                            \
+( 0x178 == cp || ( 0x178 < cp &&                                            \
+( 0x17F == cp || ( 0x17F < cp &&                                            \
+( 0x1F0 == cp || ( 0x1F0 < cp &&                                            \
+( 0x39C == cp || ( 0x39C < cp &&                                            \
+( 0x3BC == cp || ( 0x3BC < cp &&                                            \
+( ( 0x1E96 <= cp && cp <= 0x1E9A ) || ( 0x1E9A < cp &&                      \
+( 0x1E9E == cp || ( 0x1E9E < cp &&                                          \
+( 0x212A == cp || ( 0x212A < cp &&                                          \
+( 0x212B == cp || ( 0xFB00 <= cp && cp <= 0xFB06 ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) )
+
+/*
+	PROBLEMATIC_LOCALE_FOLDEDS_START: The first folded character of folds which are problematic under locale
+
+	\p{_Perl_Problematic_Locale_Foldeds_Start}
+*/
+/*** GENERATED CODE ***/
+#define is_PROBLEMATIC_LOCALE_FOLDEDS_START_utf8(s)                         \
+( ( ( ( ((U8*)s)[0] & 0xC0 ) == 0x00 ) || ( ( ((U8*)s)[0] & 0xEF ) == 0x40 ) || ( ( ((U8*)s)[0] & 0xDF ) == 0x4B ) || ( ( ((U8*)s)[0] & 0xCC ) == 0x4C ) || ( ( ((U8*)s)[0] & 0xDE ) == 0x5A ) || ( ( ((U8*)s)[0] & 0xFE ) == 0x60 ) || ((U8*)s)[0] == 0x79 || ( ( ((U8*)s)[0] & 0xEF ) == 0x81 ) || ( ( ((U8*)s)[0] & 0xEE ) == 0x82 ) || ( ( ((U8*)s)[0] & 0xEC ) == 0x84 ) || ( ( ((U8*)s)[0] & 0xEE ) == 0x88 ) || ((U8*)s)[0] == 0xA1 || ( ( ((U8*)s)[0] & 0xBE ) == 0xA2 ) || ( ( ((U8*)s)[0] & 0xBC ) == 0xA4 ) || ( ( ((U8*)s)[0] & 0xFE ) == 0xA8 ) || ( ( ((U8*)s)[0] & 0xEF ) == 0xAD ) || ( ( ((U8*)s)[0] & 0xE8 ) == 0xC0 ) || ( ( ((U8*)s)[0] & 0xCE ) == 0xC8 ) || ((U8*)s)[0] == 0xE0 || ( ( ((U8*)s)[0] & 0xF8 ) == 0xF0 ) || ((U8*)s)[0] == 0xFF ) ? 1\
+: ( 0x80 == ((U8*)s)[0] || ( ((U8*)s)[0] & 0xFE ) == 0x8A ) ?               \
+    ( ( ( 0x41 <= ((U8*)s)[1] && ((U8*)s)[1] <= 0x4A ) || ( 0x51 <= ((U8*)s)[1] && ((U8*)s)[1] <= 0x59 ) || ( 0x62 <= ((U8*)s)[1] && ((U8*)s)[1] <= 0x6A ) || ( ((U8*)s)[1] & 0xFC ) == 0x70 ) ? 2 : 0 )\
+: ( 0x8D == ((U8*)s)[0] || 0x9C == ((U8*)s)[0] ) ?                          \
+    ( ( 0x57 == ((U8*)s)[1] ) ? 2 : 0 )                                     \
+: ( 0x8E == ((U8*)s)[0] ) ?                                                 \
+    ( ( 0x4A == ((U8*)s)[1] ) ? 2 : 0 )                                     \
+: ( 0x8F == ((U8*)s)[0] ) ?                                                 \
+    ( ( 0x67 == ((U8*)s)[1] || 0x73 == ((U8*)s)[1] ) ? 2 : 0 )              \
+: ( 0xAB == ((U8*)s)[0] || ( 0xB3 == ((U8*)s)[0] || 0xB4 == ((U8*)s)[0] ) ) ?\
+    ( ( 0x70 == ((U8*)s)[1] ) ? 2 : 0 )                                     \
+: ( 0xBF == ((U8*)s)[0] ) ?                                                 \
+    ( ( ( 0x63 == ((U8*)s)[1] ) && ( ( 0x65 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x69 ) || 0x72 == ((U8*)s)[2] ) ) ? 3 : 0 )\
+: ( 0xCA == ((U8*)s)[0] ) ?                                                 \
+    ( ( ( 0x4A == ((U8*)s)[1] ) && ( 0x51 == ((U8*)s)[2] || 0x52 == ((U8*)s)[2] ) ) ? 3 : 0 )\
+: ( ( ( ( 0xDD == ((U8*)s)[0] ) && ( 0x72 == ((U8*)s)[1] ) ) && ( 0x67 == ((U8*)s)[2] ) ) && ( 0x41 <= ((U8*)s)[3] && ((U8*)s)[3] <= 0x47 ) ) ? 4 : 0 )
+
+/*** GENERATED CODE ***/
+#define is_PROBLEMATIC_LOCALE_FOLDEDS_START_cp(cp)                          \
+( cp <= 0xFF || ( 0xFF < cp &&                                              \
+( 0x130 == cp || ( 0x130 < cp &&                                            \
+( 0x149 == cp || ( 0x149 < cp &&                                            \
+( 0x178 == cp || ( 0x178 < cp &&                                            \
+( 0x17F == cp || ( 0x17F < cp &&                                            \
+( 0x1F0 == cp || ( 0x1F0 < cp &&                                            \
+( 0x2BC == cp || ( 0x2BC < cp &&                                            \
+( 0x39C == cp || ( 0x39C < cp &&                                            \
+( 0x3BC == cp || ( 0x3BC < cp &&                                            \
+( ( 0x1E96 <= cp && cp <= 0x1E9A ) || ( 0x1E9A < cp &&                      \
+( 0x1E9E == cp || ( 0x1E9E < cp &&                                          \
+( 0x212A == cp || ( 0x212A < cp &&                                          \
+( 0x212B == cp || ( 0xFB00 <= cp && cp <= 0xFB06 ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) )
+
+/*
+	PATWS: pattern white space
+
+	\p{_Perl_PatWS}
+*/
+/*** GENERATED CODE ***/
+#define is_PATWS_safe(s,e,is_utf8)                                          \
+( ( LIKELY((e) > (s)) ) ?                                                   \
+    ( ( ( ( ((U8*)s)[0] & 0xEF ) == 0x05 ) || ((U8*)s)[0] == 0x0B || ( ( ((U8*)s)[0] & 0xFE ) == 0x0C ) || ((U8*)s)[0] == 0x25 || ((U8*)s)[0] == 0x40 ) ? 1\
+    : ( ( is_utf8 && LIKELY(((e) - (s)) >= UTF8SKIP(s)) ) && ( 0xCA == ((U8*)s)[0] ) ) ? ( ( 0x41 == ((U8*)s)[1] ) ?\
+		    ( ( 0x55 == ((U8*)s)[2] || 0x56 == ((U8*)s)[2] ) ? 3 : 0 )\
+		: ( ( 0x42 == ((U8*)s)[1] ) && ( 0x49 == ((U8*)s)[2] || 0x4A == ((U8*)s)[2] ) ) ? 3 : 0 ) : 0 )\
+: 0 )
+
+/*** GENERATED CODE ***/
+#define is_PATWS_cp(cp)                                                     \
+( 0x05 == cp || ( 0x05 < cp &&                                              \
+( ( 0x0B <= cp && cp <= 0x0D ) || ( 0x0D < cp &&                            \
+( 0x15 == cp || ( 0x15 < cp &&                                              \
+( 0x25 == cp || ( 0x25 < cp &&                                              \
+( 0x40 == cp || ( 0x40 < cp &&                                              \
+( 0x200E == cp || ( 0x200E < cp &&                                          \
+( 0x200F == cp || ( 0x200F < cp &&                                          \
+( 0x2028 == cp || 0x2029 == cp ) ) ) ) ) ) ) ) ) ) ) ) ) ) )
+
+#endif	/* EBCDIC 1047 */
+
+#if 'A' == 193 /* EBCDIC 037 */ \
+     && '\\' == 224 && '[' == 186 && ']' == 187 && '{' == 192 && '}' == 208 \
+     && '^' == 176 && '~' == 161 && '!' == 90 && '#' == 123 && '|' == 79 \
+     && '$' == 91 && '@' == 124 && '`' == 121
+/*
+	LNBREAK: Line Break: \R
+
+	"\x0D\x0A"      # CRLF - Network (Windows) line ending
+	\p{VertSpace}
+*/
+/*** GENERATED CODE ***/
+#define is_LNBREAK_safe(s,e,is_utf8)                                        \
+( ((e)-(s) > 2) ?                                                           \
+    ( ( ( 0x0B == ((U8*)s)[0] || 0x0C == ((U8*)s)[0] ) || 0x15 == ((U8*)s)[0] || 0x25 == ((U8*)s)[0] ) ? 1\
+    : ( 0x0D == ((U8*)s)[0] ) ?                                             \
+	( ( 0x25 == ((U8*)s)[1] ) ? 2 : 1 )                                 \
+    : ( ( ( ( is_utf8 ) && ( 0xCA == ((U8*)s)[0] ) ) && ( 0x42 == ((U8*)s)[1] ) ) && ( 0x49 == ((U8*)s)[2] || 0x4A == ((U8*)s)[2] ) ) ? 3 : 0 )\
+: ((e)-(s) > 1) ?                                                           \
+    ( ( ( 0x0B == ((U8*)s)[0] || 0x0C == ((U8*)s)[0] ) || 0x15 == ((U8*)s)[0] || 0x25 == ((U8*)s)[0] ) ? 1\
+    : ( 0x0D == ((U8*)s)[0] ) ?                                             \
+	( ( 0x25 == ((U8*)s)[1] ) ? 2 : 1 )                                 \
+    : 0 )                                                                   \
+: ((e)-(s) > 0) ?                                                           \
+    ( ( 0x0B <= ((U8*)s)[0] && ((U8*)s)[0] <= 0x0D ) || 0x15 == ((U8*)s)[0] || 0x25 == ((U8*)s)[0] )\
+: 0 )
+
+/*** GENERATED CODE ***/
+#define is_LNBREAK_utf8_safe(s,e)                                           \
+( ((e)-(s) > 2) ?                                                           \
+    ( ( ( 0x0B == ((U8*)s)[0] || 0x0C == ((U8*)s)[0] ) || 0x15 == ((U8*)s)[0] || 0x25 == ((U8*)s)[0] ) ? 1\
+    : ( 0x0D == ((U8*)s)[0] ) ?                                             \
+	( ( 0x25 == ((U8*)s)[1] ) ? 2 : 1 )                                 \
+    : ( ( ( 0xCA == ((U8*)s)[0] ) && ( 0x42 == ((U8*)s)[1] ) ) && ( 0x49 == ((U8*)s)[2] || 0x4A == ((U8*)s)[2] ) ) ? 3 : 0 )\
+: ((e)-(s) > 1) ?                                                           \
+    ( ( ( 0x0B == ((U8*)s)[0] || 0x0C == ((U8*)s)[0] ) || 0x15 == ((U8*)s)[0] || 0x25 == ((U8*)s)[0] ) ? 1\
+    : ( 0x0D == ((U8*)s)[0] ) ?                                             \
+	( ( 0x25 == ((U8*)s)[1] ) ? 2 : 1 )                                 \
+    : 0 )                                                                   \
+: ((e)-(s) > 0) ?                                                           \
+    ( ( 0x0B <= ((U8*)s)[0] && ((U8*)s)[0] <= 0x0D ) || 0x15 == ((U8*)s)[0] || 0x25 == ((U8*)s)[0] )\
+: 0 )
+
+/*** GENERATED CODE ***/
+#define is_LNBREAK_latin1_safe(s,e)                                         \
+( ((e)-(s) > 1) ?                                                           \
+    ( ( ( 0x0B == ((U8*)s)[0] || 0x0C == ((U8*)s)[0] ) || 0x15 == ((U8*)s)[0] || 0x25 == ((U8*)s)[0] ) ? 1\
+    : ( 0x0D == ((U8*)s)[0] ) ?                                             \
+	( ( 0x25 == ((U8*)s)[1] ) ? 2 : 1 )                                 \
+    : 0 )                                                                   \
+: ((e)-(s) > 0) ?                                                           \
+    ( ( 0x0B <= ((U8*)s)[0] && ((U8*)s)[0] <= 0x0D ) || 0x15 == ((U8*)s)[0] || 0x25 == ((U8*)s)[0] )\
+: 0 )
+
+/*
+	HORIZWS: Horizontal Whitespace: \h \H
+
+	\p{HorizSpace}
+*/
+/*** GENERATED CODE ***/
+#define is_HORIZWS_high(s)                                                  \
+( ( 0xBD == ((U8*)s)[0] ) ?                                                 \
+    ( ( ( 0x62 == ((U8*)s)[1] ) && ( 0x41 == ((U8*)s)[2] ) ) ? 3 : 0 )      \
+: ( 0xCA == ((U8*)s)[0] ) ?                                                 \
+    ( ( 0x41 == ((U8*)s)[1] ) ?                                             \
+	( ( ( 0x41 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x4A ) || 0x51 == ((U8*)s)[2] ) ? 3 : 0 )\
+    : ( 0x42 == ((U8*)s)[1] ) ?                                             \
+	( ( 0x56 == ((U8*)s)[2] ) ? 3 : 0 )                                 \
+    : ( ( 0x43 == ((U8*)s)[1] ) && ( 0x72 == ((U8*)s)[2] ) ) ? 3 : 0 )      \
+: ( ( ( 0xCE == ((U8*)s)[0] ) && ( 0x41 == ((U8*)s)[1] ) ) && ( 0x41 == ((U8*)s)[2] ) ) ? 3 : 0 )
+
+/*** GENERATED CODE ***/
+#define is_HORIZWS_cp_high(cp)                                              \
+( 0x1680 == cp || ( 0x1680 < cp &&                                          \
+( ( 0x2000 <= cp && cp <= 0x200A ) || ( 0x200A < cp &&                      \
+( 0x202F == cp || ( 0x202F < cp &&                                          \
+( 0x205F == cp || 0x3000 == cp ) ) ) ) ) ) )
+
+/*
+	VERTWS: Vertical Whitespace: \v \V
+
+	\p{VertSpace}
+*/
+/*** GENERATED CODE ***/
+#define is_VERTWS_high(s)                                                   \
+( ( ( ( 0xCA == ((U8*)s)[0] ) && ( 0x42 == ((U8*)s)[1] ) ) && ( 0x49 == ((U8*)s)[2] || 0x4A == ((U8*)s)[2] ) ) ? 3 : 0 )
+
+/*** GENERATED CODE ***/
+#define is_VERTWS_cp_high(cp)                                               \
+( 0x2028 == cp || 0x2029 == cp )
+
+/*
+	XDIGIT: Hexadecimal digits
+
+	\p{XDigit}
+*/
+/*** GENERATED CODE ***/
+#define is_XDIGIT_high(s)                                                   \
+( ( ( 0xDD == ((U8*)s)[0] ) && ( 0x72 == ((U8*)s)[1] ) ) ? ( ( 0x66 == ((U8*)s)[2] ) ?\
+	    ( ( ( ( ((U8*)s)[3] & 0xF7 ) == 0x57 ) || ( ( ((U8*)s)[3] & 0xFE ) == 0x58 ) || ( ( ((U8*)s)[3] & 0xFE ) == 0x62 ) || ( ( ((U8*)s)[3] & 0xFC ) == 0x64 ) ) ? 4 : 0 )\
+	: ( ( 0x67 == ((U8*)s)[2] || 0x68 == ((U8*)s)[2] ) && ( 0x42 <= ((U8*)s)[3] && ((U8*)s)[3] <= 0x47 ) ) ? 4 : 0 ) : 0 )
+
+/*** GENERATED CODE ***/
+#define is_XDIGIT_cp_high(cp)                                               \
+( ( 0xFF10 <= cp && cp <= 0xFF19 ) || ( 0xFF19 < cp &&                      \
+( ( 0xFF21 <= cp && cp <= 0xFF26 ) || ( 0xFF41 <= cp && cp <= 0xFF46 ) ) ) )
+
+/*
+	XPERLSPACE: \p{XPerlSpace}
+
+	\p{XPerlSpace}
+*/
+/*** GENERATED CODE ***/
+#define is_XPERLSPACE_high(s)                                               \
+( ( 0xBD == ((U8*)s)[0] ) ?                                                 \
+    ( ( ( 0x62 == ((U8*)s)[1] ) && ( 0x41 == ((U8*)s)[2] ) ) ? 3 : 0 )      \
+: ( 0xCA == ((U8*)s)[0] ) ?                                                 \
+    ( ( 0x41 == ((U8*)s)[1] ) ?                                             \
+	( ( ( 0x41 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x4A ) || 0x51 == ((U8*)s)[2] ) ? 3 : 0 )\
+    : ( 0x42 == ((U8*)s)[1] ) ?                                             \
+	( ( ( 0x49 == ((U8*)s)[2] || 0x4A == ((U8*)s)[2] ) || 0x56 == ((U8*)s)[2] ) ? 3 : 0 )\
+    : ( ( 0x43 == ((U8*)s)[1] ) && ( 0x72 == ((U8*)s)[2] ) ) ? 3 : 0 )      \
+: ( ( ( 0xCE == ((U8*)s)[0] ) && ( 0x41 == ((U8*)s)[1] ) ) && ( 0x41 == ((U8*)s)[2] ) ) ? 3 : 0 )
+
+/*** GENERATED CODE ***/
+#define is_XPERLSPACE_cp_high(cp)                                           \
+( 0x1680 == cp || ( 0x1680 < cp &&                                          \
+( ( 0x2000 <= cp && cp <= 0x200A ) || ( 0x200A < cp &&                      \
+( 0x2028 == cp || ( 0x2028 < cp &&                                          \
+( 0x2029 == cp || ( 0x2029 < cp &&                                          \
+( 0x202F == cp || ( 0x202F < cp &&                                          \
+( 0x205F == cp || 0x3000 == cp ) ) ) ) ) ) ) ) ) ) )
+
+/*
+	REPLACEMENT: Unicode REPLACEMENT CHARACTER
+
+	0xFFFD
+*/
+/*** GENERATED CODE ***/
+#define is_REPLACEMENT_utf8_safe(s,e)                                       \
+( ( ( ( ( ( ((e) - (s)) >= 4 ) && ( 0xDD == ((U8*)s)[0] ) ) && ( 0x72 == ((U8*)s)[1] ) ) && ( 0x72 == ((U8*)s)[2] ) ) && ( 0x70 == ((U8*)s)[3] ) ) ? 4 : 0 )
+
+/*
+	NONCHAR: Non character code points
+
+	\p{_Perl_Nchar}
+*/
+/*** GENERATED CODE ***/
+#define is_NONCHAR_utf8(s)                                                  \
+( ( 0xDD == ((U8*)s)[0] ) ?                                                 \
+    ( ( 0x72 == ((U8*)s)[1] ) ?                                             \
+	( ( 0x55 == ((U8*)s)[2] ) ?                                         \
+	    ( ( ( 0x57 <= ((U8*)s)[3] && ((U8*)s)[3] <= 0x59 ) || 0x5F == ((U8*)s)[3] || ( 0x62 <= ((U8*)s)[3] && ((U8*)s)[3] <= 0x6A ) || ( 0x70 <= ((U8*)s)[3] && ((U8*)s)[3] <= 0x72 ) ) ? 4 : 0 )\
+	: ( 0x56 == ((U8*)s)[2] ) ?                                         \
+	    ( ( ( 0x41 <= ((U8*)s)[3] && ((U8*)s)[3] <= 0x4A ) || ( 0x51 <= ((U8*)s)[3] && ((U8*)s)[3] <= 0x56 ) ) ? 4 : 0 )\
+	: ( ( 0x72 == ((U8*)s)[2] ) && ( 0x71 == ((U8*)s)[3] || 0x72 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+    : 0 )                                                                   \
+: ( 0xDF == ((U8*)s)[0] || 0xEA == ((U8*)s)[0] || 0xEC == ((U8*)s)[0] ) ?   \
+    ( ( ( ( 0x72 == ((U8*)s)[1] ) && ( 0x72 == ((U8*)s)[2] ) ) && ( 0x71 == ((U8*)s)[3] || 0x72 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+: ( 0xED == ((U8*)s)[0] ) ?                                                 \
+    ( ( ( ( ( ((U8*)s)[1] == 0x4A || ((U8*)s)[1] == 0x52 || ( ( ((U8*)s)[1] & 0xFD ) == 0x54 ) || ((U8*)s)[1] == 0x58 || ((U8*)s)[1] == 0x5F || ((U8*)s)[1] == 0x63 || ( ( ((U8*)s)[1] & 0xFD ) == 0x65 ) || ((U8*)s)[1] == 0x69 || ( ( ((U8*)s)[1] & 0xFD ) == 0x70 ) ) && ( 0x72 == ((U8*)s)[2] ) ) && ( 0x72 == ((U8*)s)[3] ) ) && ( 0x71 == ((U8*)s)[4] || 0x72 == ((U8*)s)[4] ) ) ? 5 : 0 )\
+: ( ( ( ( ( 0xEE == ((U8*)s)[0] ) && ( 0x42 == ((U8*)s)[1] ) ) && ( 0x72 == ((U8*)s)[2] ) ) && ( 0x72 == ((U8*)s)[3] ) ) && ( 0x71 == ((U8*)s)[4] || 0x72 == ((U8*)s)[4] ) ) ? 5 : 0 )
+
+/*
+	SURROGATE: Surrogate characters
+
+	\p{_Perl_Surrogate}
+*/
+/*** GENERATED CODE ***/
+#define is_SURROGATE_utf8(s)                                                \
+( ( ( ( ( 0xDD == ((U8*)s)[0] ) && ( ( ((U8*)s)[1] & 0xFE ) == 0x64 ) ) && ( ( 0x41 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x4A ) || ( 0x51 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x59 ) || 0x5F == ((U8*)s)[2] || ( 0x62 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x6A ) || ( 0x70 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x72 ) ) ) && ( ( 0x41 <= ((U8*)s)[3] && ((U8*)s)[3] <= 0x4A ) || ( 0x51 <= ((U8*)s)[3] && ((U8*)s)[3] <= 0x59 ) || 0x5F == ((U8*)s)[3] || ( 0x62 <= ((U8*)s)[3] && ((U8*)s)[3] <= 0x6A ) || ( 0x70 <= ((U8*)s)[3] && ((U8*)s)[3] <= 0x72 ) ) ) ? 4 : 0 )
+
+/*
+	UTF8_CHAR: Matches legal UTF-EBCDIC encoded characters from 2 through 3 bytes
+
+	0xA0 - 0x3FFF
+*/
+/*** GENERATED CODE ***/
+#define is_UTF8_CHAR_utf8_no_length_checks(s)                               \
+( ( 0x78 == ((U8*)s)[0] || 0x80 == ((U8*)s)[0] || ( 0x8A <= ((U8*)s)[0] && ((U8*)s)[0] <= 0x90 ) || ( 0x9A <= ((U8*)s)[0] && ((U8*)s)[0] <= 0xA0 ) || ( 0xAA <= ((U8*)s)[0] && ((U8*)s)[0] <= 0xAF ) || ( 0xB1 <= ((U8*)s)[0] && ((U8*)s)[0] <= 0xB5 ) ) ?\
+    ( ( ( 0x41 <= ((U8*)s)[1] && ((U8*)s)[1] <= 0x4A ) || ( 0x51 <= ((U8*)s)[1] && ((U8*)s)[1] <= 0x59 ) || 0x5F == ((U8*)s)[1] || ( 0x62 <= ((U8*)s)[1] && ((U8*)s)[1] <= 0x6A ) || ( 0x70 <= ((U8*)s)[1] && ((U8*)s)[1] <= 0x72 ) ) ? 2 : 0 )\
+: ( ( ( ((U8*)s)[0] == 0xB7 || ( ( ((U8*)s)[0] & 0xFE ) == 0xB8 ) || ( ( ((U8*)s)[0] & 0xFC ) == 0xBC ) || ( ( ((U8*)s)[0] & 0xEE ) == 0xCA ) || ( ( ((U8*)s)[0] & 0xFC ) == 0xCC ) ) && ( ( 0x41 <= ((U8*)s)[1] && ((U8*)s)[1] <= 0x4A ) || ( 0x51 <= ((U8*)s)[1] && ((U8*)s)[1] <= 0x59 ) || 0x5F == ((U8*)s)[1] || ( 0x62 <= ((U8*)s)[1] && ((U8*)s)[1] <= 0x6A ) || ( 0x70 <= ((U8*)s)[1] && ((U8*)s)[1] <= 0x72 ) ) ) && ( ( 0x41 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x4A ) || ( 0x51 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x59 ) || 0x5F == ((U8*)s)[2] || ( 0x62 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x6A ) || ( 0x70 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x72 ) ) ) ? 3 : 0 )
+
+/*
+	QUOTEMETA: Meta-characters that \Q should quote
+
+	\p{_Perl_Quotemeta}
+*/
+/*** GENERATED CODE ***/
+#define is_QUOTEMETA_high_part0(s)                                          \
+( ( 0x51 == ((U8*)s)[1] ) ?                                                 \
+	( ( 0x72 == ((U8*)s)[2] ) ? 3 : 0 )                                 \
+    : ( ( 0x52 == ((U8*)s)[1] ) && ( 0x41 == ((U8*)s)[2] ) ) ? 3 : 0 )
+
+
+/*** GENERATED CODE ***/
+#define is_QUOTEMETA_high_part1(s)                                          \
+( ( 0xBD == ((U8*)s)[0] ) ?                                                 \
+    ( ( 0x62 == ((U8*)s)[1] ) ?                                             \
+	( ( 0x41 == ((U8*)s)[2] ) ? 3 : 0 )                                 \
+    : ( ( 0x70 == ((U8*)s)[1] ) && ( ( ((U8*)s)[2] & 0xFE ) == 0x62 ) ) ? 3 : 0 )\
+: ( 0xBE == ((U8*)s)[0] ) ?                                                 \
+    ( ( ( 0x41 == ((U8*)s)[1] ) && ( 0x52 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x55 ) ) ? 3 : 0 )\
+: ( 0xCA == ((U8*)s)[0] ) ?                                                 \
+    ( ( 0x41 == ((U8*)s)[1] || ( 0x54 <= ((U8*)s)[1] && ((U8*)s)[1] <= 0x59 ) || 0x5F == ((U8*)s)[1] || ( 0x62 <= ((U8*)s)[1] && ((U8*)s)[1] <= 0x6A ) || ( 0x70 <= ((U8*)s)[1] && ((U8*)s)[1] <= 0x72 ) ) ?\
+	( ( ( 0x41 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x4A ) || ( 0x51 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x59 ) || 0x5F == ((U8*)s)[2] || ( 0x62 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x6A ) || ( 0x70 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x72 ) ) ? 3 : 0 )\
+    : ( 0x42 == ((U8*)s)[1] ) ?                                             \
+	( ( ( 0x41 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x4A ) || ( 0x51 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x59 ) || 0x5F == ((U8*)s)[2] || ( 0x62 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x6A ) || ( ((U8*)s)[2] & 0xFE ) == 0x70 ) ? 3 : 0 )\
+    : ( 0x43 == ((U8*)s)[1] ) ?                                             \
+	( ( ( 0x42 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x4A ) || ( 0x51 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x59 ) || 0x5F == ((U8*)s)[2] || ( 0x63 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x6A ) || ( 0x70 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x72 ) ) ? 3 : 0 )\
+    : ( 0x44 == ((U8*)s)[1] ) ?                                             \
+	( ( ( 0x41 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x4A ) || ( 0x51 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x56 ) ) ? 3 : 0 )\
+    : ( ( 0x53 == ((U8*)s)[1] ) && ( ( 0x57 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x59 ) || 0x5F == ((U8*)s)[2] || ( 0x62 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x6A ) || ( 0x70 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x72 ) ) ) ? 3 : 0 )\
+: ( 0xCB == ((U8*)s)[0] ) ?                                                 \
+    ( ( ( 0x41 <= ((U8*)s)[1] && ((U8*)s)[1] <= 0x43 ) || ( 0x49 == ((U8*)s)[1] || 0x4A == ((U8*)s)[1] ) || ( 0x51 <= ((U8*)s)[1] && ((U8*)s)[1] <= 0x59 ) || 0x5F == ((U8*)s)[1] || ( 0x62 <= ((U8*)s)[1] && ((U8*)s)[1] <= 0x68 ) || ( 0x70 <= ((U8*)s)[1] && ((U8*)s)[1] <= 0x72 ) ) ?\
+	( ( ( 0x41 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x4A ) || ( 0x51 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x59 ) || 0x5F == ((U8*)s)[2] || ( 0x62 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x6A ) || ( 0x70 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x72 ) ) ? 3 : 0 )\
+    : ( 0x69 == ((U8*)s)[1] ) ?                                             \
+	( ( ( 0x41 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x4A ) || ( 0x51 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x59 ) || 0x5F == ((U8*)s)[2] || ( ((U8*)s)[2] & 0xFE ) == 0x62 ) ? 3 : 0 )\
+    : ( ( 0x6A == ((U8*)s)[1] ) && ( ( 0x62 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x6A ) || ( 0x70 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x72 ) ) ) ? 3 : 0 )\
+: ( 0xCC == ((U8*)s)[0] ) ?                                                 \
+    ( ( ( ( 0x41 <= ((U8*)s)[1] && ((U8*)s)[1] <= 0x4A ) || ( 0x51 <= ((U8*)s)[1] && ((U8*)s)[1] <= 0x59 ) || 0x5F == ((U8*)s)[1] || ( 0x62 <= ((U8*)s)[1] && ((U8*)s)[1] <= 0x6A ) || ( 0x70 <= ((U8*)s)[1] && ((U8*)s)[1] <= 0x72 ) ) && ( ( 0x41 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x4A ) || ( 0x51 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x59 ) || 0x5F == ((U8*)s)[2] || ( 0x62 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x6A ) || ( 0x70 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x72 ) ) ) ? 3 : 0 )\
+: ( 0xCD == ((U8*)s)[0] ) ?                                                 \
+    ( ( ( ( ( ((U8*)s)[1] & 0xF7 ) == 0x57 ) || ( ( ((U8*)s)[1] & 0xFE ) == 0x58 ) ) && ( ( 0x41 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x4A ) || ( 0x51 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x59 ) || 0x5F == ((U8*)s)[2] || ( 0x62 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x6A ) || ( 0x70 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x72 ) ) ) ? 3 : 0 )\
+: ( 0xCE == ((U8*)s)[0] ) ?                                                 \
+    ( ( 0x41 == ((U8*)s)[1] ) ?                                             \
+	( ( ( 0x41 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x44 ) || ( 0x49 == ((U8*)s)[2] || 0x4A == ((U8*)s)[2] ) || ( 0x51 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x59 ) || 0x5F == ((U8*)s)[2] || ( 0x62 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x6A ) || ( 0x70 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x72 ) ) ? 3 : 0 )\
+    : ( 0x42 == ((U8*)s)[1] ) ?                                             \
+	( ( 0x41 == ((U8*)s)[2] || 0x57 == ((U8*)s)[2] ) ? 3 : 0 )          \
+    : ( ( 0x52 == ((U8*)s)[1] ) && ( 0x45 == ((U8*)s)[2] ) ) ? 3 : 0 )      \
+: ( 0xDD == ((U8*)s)[0] ) ?                                                 \
+    ( ( 0x72 == ((U8*)s)[1] ) ?                                             \
+	( ( 0x4A == ((U8*)s)[2] ) ?                                         \
+	    ( ( 0x71 == ((U8*)s)[3] || 0x72 == ((U8*)s)[3] ) ? 4 : 0 )      \
+	: ( 0x57 == ((U8*)s)[2] ) ?                                         \
+	    ( ( ( 0x41 <= ((U8*)s)[3] && ((U8*)s)[3] <= 0x4A ) || ( 0x51 <= ((U8*)s)[3] && ((U8*)s)[3] <= 0x56 ) ) ? 4 : 0 )\
+	: ( 0x59 == ((U8*)s)[2] ) ?                                         \
+	    ( ( ( ((U8*)s)[3] & 0xFE ) == 0x46 ) ? 4 : 0 )                  \
+	: ( 0x65 == ((U8*)s)[2] ) ?                                         \
+	    ( ( 0x72 == ((U8*)s)[3] ) ? 4 : 0 )                             \
+	: ( 0x70 == ((U8*)s)[2] ) ?                                         \
+	    ( ( 0x41 == ((U8*)s)[3] ) ? 4 : 0 )                             \
+	: ( ( 0x72 == ((U8*)s)[2] ) && ( ( 0x57 <= ((U8*)s)[3] && ((U8*)s)[3] <= 0x59 ) || 0x5F == ((U8*)s)[3] || ( 0x62 <= ((U8*)s)[3] && ((U8*)s)[3] <= 0x66 ) ) ) ? 4 : 0 )\
+    : 0 )                                                                   \
+: ( 0xDF == ((U8*)s)[0] ) ?                                                 \
+    ( ( 0x56 == ((U8*)s)[1] ) ?                                             \
+	( ( ( 0x46 == ((U8*)s)[2] ) && ( 0x41 <= ((U8*)s)[3] && ((U8*)s)[3] <= 0x44 ) ) ? 4 : 0 )\
+    : ( ( ( 0x62 == ((U8*)s)[1] ) && ( 0x52 == ((U8*)s)[2] ) ) && ( 0x5F == ((U8*)s)[3] || ( 0x62 <= ((U8*)s)[3] && ((U8*)s)[3] <= 0x68 ) ) ) ? 4 : 0 )\
+: ( ( ( ( ( 0xED == ((U8*)s)[0] ) && ( 0x6A == ((U8*)s)[1] ) ) && ( 0x41 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x44 ) ) && ( ( 0x41 <= ((U8*)s)[3] && ((U8*)s)[3] <= 0x4A ) || ( 0x51 <= ((U8*)s)[3] && ((U8*)s)[3] <= 0x59 ) || 0x5F == ((U8*)s)[3] || ( 0x62 <= ((U8*)s)[3] && ((U8*)s)[3] <= 0x6A ) || ( 0x70 <= ((U8*)s)[3] && ((U8*)s)[3] <= 0x72 ) ) ) && ( ( 0x41 <= ((U8*)s)[4] && ((U8*)s)[4] <= 0x4A ) || ( 0x51 <= ((U8*)s)[4] && ((U8*)s)[4] <= 0x59 ) || 0x5F == ((U8*)s)[4] || ( 0x62 <= ((U8*)s)[4] && ((U8*)s)[4] <= 0x6A ) || ( 0x70 <= ((U8*)s)[4] && ((U8*)s)[4] <= 0x72 ) ) ) ? 5 : 0 )
+
+
+/*** GENERATED CODE ***/
+#define is_QUOTEMETA_high(s)                                                \
+( ( 0xAF == ((U8*)s)[0] ) ?                                                 \
+    ( ( 0x56 == ((U8*)s)[1] ) ? 2 : 0 )                                     \
+: ( 0xB7 == ((U8*)s)[0] ) ?                                                 \
+    ( ( ( 0x57 == ((U8*)s)[1] ) && ( 0x6A == ((U8*)s)[2] ) ) ? 3 : 0 )      \
+: ( 0xBC == ((U8*)s)[0] ) ? is_QUOTEMETA_high_part0(s) : is_QUOTEMETA_high_part1(s) )
+
+/*
+	MULTI_CHAR_FOLD: multi-char strings that are folded to by a single character
+
+	&regcharclass_multi_char_folds::multi_char_folds(1)
+*/
+/*** GENERATED CODE ***/
+#define is_MULTI_CHAR_FOLD_utf8_safe_part0(s,e)                             \
+( ( 0x81 == ((U8*)s)[0] ) ?                                                 \
+	( ( ( 0xAA == ((U8*)s)[1] ) && ( 0x71 == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0x86 == ((U8*)s)[0] ) ?                                             \
+	( ( 0x86 == ((U8*)s)[1] ) ?                                         \
+	    ( ( 0x89 == ((U8*)s)[2] || 0x93 == ((U8*)s)[2] ) ? 3 : 2 )      \
+	: ( 0x89 == ((U8*)s)[1] || 0x93 == ((U8*)s)[1] ) ? 2 : 0 )          \
+    : ( 0x88 == ((U8*)s)[0] ) ?                                             \
+	( ( ( 0xAE == ((U8*)s)[1] ) && ( 0x58 == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0x89 == ((U8*)s)[0] ) ?                                             \
+	( ( ( 0xAD == ((U8*)s)[1] ) && ( 0x48 == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0x8E == ((U8*)s)[0] ) ?                                             \
+	( ( ( ( 0x72 == ((U8*)s)[1] ) && ( 0x8E == ((U8*)s)[2] ) ) && ( 0x72 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+    : ( 0x91 == ((U8*)s)[0] ) ?                                             \
+	( ( ( 0xAD == ((U8*)s)[1] ) && ( 0x53 == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0xA2 == ((U8*)s)[0] ) ?                                             \
+	( ( ( ((U8*)s)[1] & 0xFE ) == 0xA2 ) ? 2 : 0 )                      \
+    : ( 0xA3 == ((U8*)s)[0] ) ?                                             \
+	( ( ( 0xAD == ((U8*)s)[1] ) && ( 0x49 == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0xA6 == ((U8*)s)[0] || 0xA8 == ((U8*)s)[0] ) ?                      \
+	( ( ( 0xAD == ((U8*)s)[1] ) && ( 0x51 == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0xAA == ((U8*)s)[0] ) ?                                             \
+	( ( ( 0x6A == ((U8*)s)[1] ) && ( 0x95 == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0xB3 == ((U8*)s)[0] ) ?                                             \
+	( ( 0x53 == ((U8*)s)[1] || 0x55 == ((U8*)s)[1] ) ?                  \
+	    ( ( ( 0xB3 == ((U8*)s)[2] ) && ( 0x67 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+	: ( 0x58 == ((U8*)s)[1] || 0x65 == ((U8*)s)[1] ) ?                  \
+	    ( ( 0xAF == ((U8*)s)[2] ) ?                                     \
+		( ( 0x43 == ((U8*)s)[3] ) ? 4 : 0 )                         \
+	    : ( ( 0xB3 == ((U8*)s)[2] ) && ( 0x67 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+	: ( ( ( 0x67 == ((U8*)s)[1] ) && ( 0xAF == ((U8*)s)[2] ) ) && ( 0x43 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+    : ( 0xB4 == ((U8*)s)[0] ) ?                                             \
+	( ( 0x42 == ((U8*)s)[1] ) ?                                         \
+	    ( ( ( 0xAD == ((U8*)s)[2] ) && ( 0x5F == ((U8*)s)[3] ) ) ? 4 : 0 )\
+	: ( 0x46 == ((U8*)s)[1] ) ?                                         \
+	    ( ( 0xAD == ((U8*)s)[2] ) ?                                     \
+		( ( 0x5F == ((U8*)s)[3] ) ? 4 : 0 )                         \
+	    : ( ( 0xAF == ((U8*)s)[2] ) && ( 0x43 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+	: ( 0x4A == ((U8*)s)[1] ) ?                                         \
+	    ( ( 0xAF == ((U8*)s)[2] ) ?                                     \
+		( ( 0x43 == ((U8*)s)[3] ) ? 4 : 0 )                         \
+	    : ( ( 0xB3 == ((U8*)s)[2] ) && ( 0x67 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+	: ( ( ( 0x55 == ((U8*)s)[1] ) && ( 0xB3 == ((U8*)s)[2] ) ) && ( 0x67 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+    : ( 0xBF == ((U8*)s)[0] ) ?                                             \
+	( ( ( ((U8*)s)[1] & 0xFE ) == 0x66 ) ?                              \
+	    ( ( ( ( 0x41 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x48 ) && ( 0xB3 == ((U8*)s)[3] ) ) && ( 0x67 == ((U8*)s)[4] ) ) ? 5 : 0 )\
+	: ( ( ( ( 0x69 == ((U8*)s)[1] ) && ( ( 0x41 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x48 ) || 0x57 == ((U8*)s)[2] || 0x62 == ((U8*)s)[2] || 0x6A == ((U8*)s)[2] ) ) && ( 0xB3 == ((U8*)s)[3] ) ) && ( 0x67 == ((U8*)s)[4] ) ) ? 5 : 0 )\
+    : 0 )
+
+
+/*** GENERATED CODE ***/
+#define is_MULTI_CHAR_FOLD_utf8_safe_part1(s,e)                             \
+( ((e)-(s) > 3) ?                                                           \
+    ( ( 0x81 == ((U8*)s)[0] ) ?                                             \
+	( ( ( 0xAA == ((U8*)s)[1] ) && ( 0x71 == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0x86 == ((U8*)s)[0] ) ?                                             \
+	( ( 0x86 == ((U8*)s)[1] ) ?                                         \
+	    ( ( 0x89 == ((U8*)s)[2] || 0x93 == ((U8*)s)[2] ) ? 3 : 2 )      \
+	: ( 0x89 == ((U8*)s)[1] || 0x93 == ((U8*)s)[1] ) ? 2 : 0 )          \
+    : ( 0x88 == ((U8*)s)[0] ) ?                                             \
+	( ( ( 0xAE == ((U8*)s)[1] ) && ( 0x58 == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0x89 == ((U8*)s)[0] ) ?                                             \
+	( ( ( 0xAD == ((U8*)s)[1] ) && ( 0x48 == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0x8E == ((U8*)s)[0] ) ?                                             \
+	( ( ( ( 0x72 == ((U8*)s)[1] ) && ( 0x8E == ((U8*)s)[2] ) ) && ( 0x72 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+    : ( 0x91 == ((U8*)s)[0] ) ?                                             \
+	( ( ( 0xAD == ((U8*)s)[1] ) && ( 0x53 == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0xA2 == ((U8*)s)[0] ) ?                                             \
+	( ( ( ((U8*)s)[1] & 0xFE ) == 0xA2 ) ? 2 : 0 )                      \
+    : ( 0xA3 == ((U8*)s)[0] ) ?                                             \
+	( ( ( 0xAD == ((U8*)s)[1] ) && ( 0x49 == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0xA6 == ((U8*)s)[0] || 0xA8 == ((U8*)s)[0] ) ?                      \
+	( ( ( 0xAD == ((U8*)s)[1] ) && ( 0x51 == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0xAA == ((U8*)s)[0] ) ?                                             \
+	( ( ( 0x6A == ((U8*)s)[1] ) && ( 0x95 == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0xB3 == ((U8*)s)[0] ) ?                                             \
+	( ( 0x53 == ((U8*)s)[1] || 0x55 == ((U8*)s)[1] ) ?                  \
+	    ( ( ( 0xB3 == ((U8*)s)[2] ) && ( 0x67 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+	: ( 0x58 == ((U8*)s)[1] || 0x65 == ((U8*)s)[1] ) ?                  \
+	    ( ( 0xAF == ((U8*)s)[2] ) ?                                     \
+		( ( 0x43 == ((U8*)s)[3] ) ? 4 : 0 )                         \
+	    : ( ( 0xB3 == ((U8*)s)[2] ) && ( 0x67 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+	: ( ( ( 0x67 == ((U8*)s)[1] ) && ( 0xAF == ((U8*)s)[2] ) ) && ( 0x43 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+    : ( 0xB4 == ((U8*)s)[0] ) ?                                             \
+	( ( 0x42 == ((U8*)s)[1] ) ?                                         \
+	    ( ( ( 0xAD == ((U8*)s)[2] ) && ( 0x5F == ((U8*)s)[3] ) ) ? 4 : 0 )\
+	: ( 0x46 == ((U8*)s)[1] ) ?                                         \
+	    ( ( 0xAD == ((U8*)s)[2] ) ?                                     \
+		( ( 0x5F == ((U8*)s)[3] ) ? 4 : 0 )                         \
+	    : ( ( 0xAF == ((U8*)s)[2] ) && ( 0x43 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+	: ( 0x4A == ((U8*)s)[1] ) ?                                         \
+	    ( ( 0xAF == ((U8*)s)[2] ) ?                                     \
+		( ( 0x43 == ((U8*)s)[3] ) ? 4 : 0 )                         \
+	    : ( ( 0xB3 == ((U8*)s)[2] ) && ( 0x67 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+	: ( ( ( 0x55 == ((U8*)s)[1] ) && ( 0xB3 == ((U8*)s)[2] ) ) && ( 0x67 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+    : 0 )                                                                   \
+: ((e)-(s) > 2) ?                                                           \
+    ( ( 0x81 == ((U8*)s)[0] ) ?                                             \
+	( ( ( 0xAA == ((U8*)s)[1] ) && ( 0x71 == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0x86 == ((U8*)s)[0] ) ?                                             \
+	( ( 0x86 == ((U8*)s)[1] ) ?                                         \
+	    ( ( 0x89 == ((U8*)s)[2] || 0x93 == ((U8*)s)[2] ) ? 3 : 2 )      \
+	: ( 0x89 == ((U8*)s)[1] || 0x93 == ((U8*)s)[1] ) ? 2 : 0 )          \
+    : ( 0x88 == ((U8*)s)[0] ) ?                                             \
+	( ( ( 0xAE == ((U8*)s)[1] ) && ( 0x58 == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0x89 == ((U8*)s)[0] ) ?                                             \
+	( ( ( 0xAD == ((U8*)s)[1] ) && ( 0x48 == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0x91 == ((U8*)s)[0] ) ?                                             \
+	( ( ( 0xAD == ((U8*)s)[1] ) && ( 0x53 == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0xA2 == ((U8*)s)[0] ) ?                                             \
+	( ( ( ((U8*)s)[1] & 0xFE ) == 0xA2 ) ? 2 : 0 )                      \
+    : ( 0xA3 == ((U8*)s)[0] ) ?                                             \
+	( ( ( 0xAD == ((U8*)s)[1] ) && ( 0x49 == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0xA6 == ((U8*)s)[0] || 0xA8 == ((U8*)s)[0] ) ?                      \
+	( ( ( 0xAD == ((U8*)s)[1] ) && ( 0x51 == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( ( ( 0xAA == ((U8*)s)[0] ) && ( 0x6A == ((U8*)s)[1] ) ) && ( 0x95 == ((U8*)s)[2] ) ) ? 3 : 0 )\
+: ((e)-(s) > 1) ?                                                           \
+    ( ( 0x86 == ((U8*)s)[0] ) ?                                             \
+	( ( 0x86 == ((U8*)s)[1] || 0x89 == ((U8*)s)[1] || 0x93 == ((U8*)s)[1] ) ? 2 : 0 )\
+    : ( ( 0xA2 == ((U8*)s)[0] ) && ( ( ((U8*)s)[1] & 0xFE ) == 0xA2 ) ) ? 2 : 0 )\
+: 0 )
+
+
+/*** GENERATED CODE ***/
+#define is_MULTI_CHAR_FOLD_utf8_safe(s,e)                                   \
+( ((e)-(s) > 5) ?                                                           \
+    ( ( 0x81 == ((U8*)s)[0] ) ?                                             \
+	( ( ( 0xAA == ((U8*)s)[1] ) && ( 0x71 == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0x86 == ((U8*)s)[0] ) ?                                             \
+	( ( 0x86 == ((U8*)s)[1] ) ?                                         \
+	    ( ( 0x89 == ((U8*)s)[2] || 0x93 == ((U8*)s)[2] ) ? 3 : 2 )      \
+	: ( 0x89 == ((U8*)s)[1] || 0x93 == ((U8*)s)[1] ) ? 2 : 0 )          \
+    : ( 0x88 == ((U8*)s)[0] ) ?                                             \
+	( ( ( 0xAE == ((U8*)s)[1] ) && ( 0x58 == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0x89 == ((U8*)s)[0] ) ?                                             \
+	( ( ( 0xAD == ((U8*)s)[1] ) && ( 0x48 == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0x8E == ((U8*)s)[0] ) ?                                             \
+	( ( ( ( 0x72 == ((U8*)s)[1] ) && ( 0x8E == ((U8*)s)[2] ) ) && ( 0x72 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+    : ( 0x91 == ((U8*)s)[0] ) ?                                             \
+	( ( ( 0xAD == ((U8*)s)[1] ) && ( 0x53 == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0xA2 == ((U8*)s)[0] ) ?                                             \
+	( ( ( ((U8*)s)[1] & 0xFE ) == 0xA2 ) ? 2 : 0 )                      \
+    : ( 0xA3 == ((U8*)s)[0] ) ?                                             \
+	( ( ( 0xAD == ((U8*)s)[1] ) && ( 0x49 == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0xA6 == ((U8*)s)[0] || 0xA8 == ((U8*)s)[0] ) ?                      \
+	( ( ( 0xAD == ((U8*)s)[1] ) && ( 0x51 == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0xAA == ((U8*)s)[0] ) ?                                             \
+	( ( ( 0x6A == ((U8*)s)[1] ) && ( 0x95 == ((U8*)s)[2] ) ) ? 3 : 0 )  \
+    : ( 0xB3 == ((U8*)s)[0] ) ?                                             \
+	( ( 0x53 == ((U8*)s)[1] || 0x55 == ((U8*)s)[1] ) ?                  \
+	    ( ( ( 0xB3 == ((U8*)s)[2] ) && ( 0x67 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+	: ( 0x58 == ((U8*)s)[1] || 0x65 == ((U8*)s)[1] ) ?                  \
+	    ( ( 0xAF == ((U8*)s)[2] ) ?                                     \
+		( ( 0x43 == ((U8*)s)[3] ) ?                                 \
+		    ( ( ( 0xB3 == ((U8*)s)[4] ) && ( 0x67 == ((U8*)s)[5] ) ) ? 6 : 4 )\
+		: 0 )                                                       \
+	    : ( ( 0xB3 == ((U8*)s)[2] ) && ( 0x67 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+	: ( 0x67 == ((U8*)s)[1] ) ?                                         \
+	    ( ( 0xAD == ((U8*)s)[2] ) ?                                     \
+		( ( 0x49 == ((U8*)s)[3] ) ?                                 \
+		    ( ( 0xAD == ((U8*)s)[4] ) ?                             \
+			( ( 0x41 == ((U8*)s)[5] || 0x42 == ((U8*)s)[5] ) ? 6 : 0 )\
+		    : ( ( 0xAF == ((U8*)s)[4] ) && ( 0x43 == ((U8*)s)[5] ) ) ? 6 : 0 )\
+		: 0 )                                                       \
+	    : ( ( 0xAF == ((U8*)s)[2] ) && ( 0x43 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+	: 0 )                                                               \
+    : ( 0xB4 == ((U8*)s)[0] ) ?                                             \
+	( ( 0x42 == ((U8*)s)[1] ) ?                                         \
+	    ( ( ( 0xAD == ((U8*)s)[2] ) && ( 0x5F == ((U8*)s)[3] ) ) ? 4 : 0 )\
+	: ( 0x46 == ((U8*)s)[1] ) ?                                         \
+	    ( ( 0xAD == ((U8*)s)[2] ) ?                                     \
+		( ( 0x49 == ((U8*)s)[3] ) ?                                 \
+		    ( ( 0xAD == ((U8*)s)[4] ) ?                             \
+			( ( 0x41 == ((U8*)s)[5] || 0x42 == ((U8*)s)[5] ) ? 6 : 0 )\
+		    : ( ( 0xAF == ((U8*)s)[4] ) && ( 0x43 == ((U8*)s)[5] ) ) ? 6 : 0 )\
+		: ( 0x5F == ((U8*)s)[3] ) ?                                 \
+		    ( ( 0xAD == ((U8*)s)[4] ) ?                             \
+			( ( 0x41 == ((U8*)s)[5] || 0x42 == ((U8*)s)[5] ) ? 6 : 4 )\
+		    : ( ( 0xAF == ((U8*)s)[4] ) && ( 0x43 == ((U8*)s)[5] ) ) ? 6 : 4 )\
+		: 0 )                                                       \
+	    : ( ( 0xAF == ((U8*)s)[2] ) && ( 0x43 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+	: ( 0x4A == ((U8*)s)[1] ) ?                                         \
+	    ( ( 0xAF == ((U8*)s)[2] ) ?                                     \
+		( ( 0x43 == ((U8*)s)[3] ) ?                                 \
+		    ( ( ( 0xB3 == ((U8*)s)[4] ) && ( 0x67 == ((U8*)s)[5] ) ) ? 6 : 4 )\
+		: 0 )                                                       \
+	    : ( ( 0xB3 == ((U8*)s)[2] ) && ( 0x67 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+	: ( ( ( 0x55 == ((U8*)s)[1] ) && ( 0xB3 == ((U8*)s)[2] ) ) && ( 0x67 == ((U8*)s)[3] ) ) ? 4 : 0 )\
+    : ( 0xB7 == ((U8*)s)[0] ) ?                                             \
+	( ( 0x52 == ((U8*)s)[1] ) ?                                         \
+	    ( ( 0x46 == ((U8*)s)[2] ) ?                                     \
+		( ( ( ( 0xB7 == ((U8*)s)[3] ) && ( 0x53 == ((U8*)s)[4] ) ) && ( 0x43 == ((U8*)s)[5] ) ) ? 6 : 0 )\
+	    : ( 0x62 == ((U8*)s)[2] ) ?                                     \
+		( ( ( ( 0xB7 == ((U8*)s)[3] ) && ( 0x52 == ((U8*)s)[4] ) ) && ( 0x46 == ((U8*)s)[5] || 0x52 == ((U8*)s)[5] || 0x54 == ((U8*)s)[5] || 0x64 == ((U8*)s)[5] ) ) ? 6 : 0 )\
+	    : ( ( ( ( 0x71 == ((U8*)s)[2] ) && ( 0xB7 == ((U8*)s)[3] ) ) && ( 0x52 == ((U8*)s)[4] ) ) && ( 0x64 == ((U8*)s)[5] ) ) ? 6 : 0 )\
+	: 0 )                                                               \
+    : ( 0xBF == ((U8*)s)[0] ) ?                                             \
+	( ( ( ((U8*)s)[1] & 0xFE ) == 0x66 ) ?                              \
+	    ( ( ( ( 0x41 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x48 ) && ( 0xB3 == ((U8*)s)[3] ) ) && ( 0x67 == ((U8*)s)[4] ) ) ? 5 : 0 )\
+	: ( ( ( ( 0x69 == ((U8*)s)[1] ) && ( ( 0x41 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x48 ) || 0x57 == ((U8*)s)[2] || 0x62 == ((U8*)s)[2] || 0x6A == ((U8*)s)[2] ) ) && ( 0xB3 == ((U8*)s)[3] ) ) && ( 0x67 == ((U8*)s)[4] ) ) ? 5 : 0 )\
+    : 0 )                                                                   \
+: ((e)-(s) > 4) ? is_MULTI_CHAR_FOLD_utf8_safe_part0(s,e) : is_MULTI_CHAR_FOLD_utf8_safe_part1(s,e) )
+
+/*
+	MULTI_CHAR_FOLD: multi-char strings that are folded to by a single character
+
+	&regcharclass_multi_char_folds::multi_char_folds(0)
+*/
+/*** GENERATED CODE ***/
+#define is_MULTI_CHAR_FOLD_latin1_safe(s,e)                                 \
+( ((e)-(s) > 2) ?                                                           \
+    ( ( ( ((U8*)s)[0] & 0xBF ) == 0x86 ) ?                                  \
+	( ( ( ((U8*)s)[1] & 0xBF ) == 0x86 ) ?                              \
+	    ( ( ( ( ((U8*)s)[2] & 0xBF ) == 0x89 ) || ( ( ((U8*)s)[2] & 0xBF ) == 0x93 ) ) ? 3 : 2 )\
+	: ( ( ( ((U8*)s)[1] & 0xBF ) == 0x89 ) || ( ( ((U8*)s)[1] & 0xBF ) == 0x93 ) ) ? 2 : 0 )\
+    : ( ( ( ((U8*)s)[0] & 0xBF ) == 0xA2 ) && ( ( ((U8*)s)[1] & 0xBE ) == 0xA2 ) ) ? 2 : 0 )\
+: ((e)-(s) > 1) ?                                                           \
+    ( ( ( ((U8*)s)[0] & 0xBF ) == 0x86 ) ?                                  \
+	( ( ( ( ((U8*)s)[1] & 0xBF ) == 0x86 ) || ( ( ((U8*)s)[1] & 0xBF ) == 0x89 ) || ( ( ((U8*)s)[1] & 0xBF ) == 0x93 ) ) ? 2 : 0 )\
+    : ( ( ( ((U8*)s)[0] & 0xBF ) == 0xA2 ) && ( ( ((U8*)s)[1] & 0xBE ) == 0xA2 ) ) ? 2 : 0 )\
+: 0 )
+
+/*
+	FOLDS_TO_MULTI: characters that fold to multi-char strings
+
+	\p{_Perl_Folds_To_Multi_Char}
+*/
+/*** GENERATED CODE ***/
+#define is_FOLDS_TO_MULTI_utf8(s)                                           \
+( ( 0x80 == ((U8*)s)[0] ) ?                                                 \
+    ( ( 0x72 == ((U8*)s)[1] ) ? 2 : 0 )                                     \
+: ( 0x8C == ((U8*)s)[0] || 0x9B == ((U8*)s)[0] || ( ((U8*)s)[0] & 0xFE ) == 0xB2 ) ?\
+    ( ( 0x57 == ((U8*)s)[1] ) ? 2 : 0 )                                     \
+: ( 0x8D == ((U8*)s)[0] ) ?                                                 \
+    ( ( 0x4A == ((U8*)s)[1] ) ? 2 : 0 )                                     \
+: ( 0xB7 == ((U8*)s)[0] ) ?                                                 \
+    ( ( ( 0x53 == ((U8*)s)[1] ) && ( 0x48 == ((U8*)s)[2] ) ) ? 3 : 0 )      \
+: ( 0xBF == ((U8*)s)[0] ) ?                                                 \
+    ( ( 0x62 == ((U8*)s)[1] ) ?                                             \
+	( ( ( 0x64 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x68 ) || 0x71 == ((U8*)s)[2] ) ? 3 : 0 )\
+    : ( 0x68 == ((U8*)s)[1] ) ?                                             \
+	( ( 0x57 == ((U8*)s)[2] || 0x59 == ((U8*)s)[2] || 0x62 == ((U8*)s)[2] || 0x64 == ((U8*)s)[2] ) ? 3 : 0 )\
+    : ( 0x6A == ((U8*)s)[1] ) ?                                             \
+	( ( ( 0x41 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x4A ) || ( 0x51 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x59 ) || 0x5F == ((U8*)s)[2] || ( 0x62 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x6A ) || ( 0x70 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x72 ) ) ? 3 : 0 )\
+    : ( 0x70 == ((U8*)s)[1] ) ?                                             \
+	( ( ( 0x41 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x4A ) || ( 0x51 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x56 ) || 0x59 == ((U8*)s)[2] || 0x5F == ((U8*)s)[2] || 0x62 == ((U8*)s)[2] || ( ((U8*)s)[2] & 0xFE ) == 0x64 || 0x6A == ((U8*)s)[2] ) ? 3 : 0 )\
+    : ( 0x71 == ((U8*)s)[1] ) ?                                             \
+	( ( ( ( ((U8*)s)[2] & 0xFB ) == 0x43 ) || ( ( ((U8*)s)[2] & 0xDE ) == 0x44 ) || ((U8*)s)[2] == 0x48 || ((U8*)s)[2] == 0x53 || ((U8*)s)[2] == 0x59 || ((U8*)s)[2] == 0x5F ) ? 3 : 0 )\
+    : ( ( 0x72 == ((U8*)s)[1] ) && ( ( ( ((U8*)s)[2] & 0xFB ) == 0x43 ) || ( ( ((U8*)s)[2] & 0xDE ) == 0x44 ) || ((U8*)s)[2] == 0x48 || ((U8*)s)[2] == 0x59 || ((U8*)s)[2] == 0x5F || ( ( ((U8*)s)[2] & 0xF7 ) == 0x62 ) ) ) ? 3 : 0 )\
+: ( ( ( ( 0xDD == ((U8*)s)[0] ) && ( 0x71 == ((U8*)s)[1] ) ) && ( 0x66 == ((U8*)s)[2] ) ) && ( ( 0x41 <= ((U8*)s)[3] && ((U8*)s)[3] <= 0x47 ) || 0x5F == ((U8*)s)[3] || ( 0x62 <= ((U8*)s)[3] && ((U8*)s)[3] <= 0x65 ) ) ) ? 4 : 0 )
+
+/*
+	PROBLEMATIC_LOCALE_FOLD: characters whose fold is problematic under locale
+
+	\p{_Perl_Problematic_Locale_Folds}
+*/
+/*** GENERATED CODE ***/
+#define is_PROBLEMATIC_LOCALE_FOLD_utf8(s)                                  \
+( ( ( ( ((U8*)s)[0] & 0xC0 ) == 0x00 ) || ( ( ((U8*)s)[0] & 0xEF ) == 0x40 ) || ( ( ((U8*)s)[0] & 0xDF ) == 0x4B ) || ( ( ((U8*)s)[0] & 0xFC ) == 0x4C ) || ( ( ((U8*)s)[0] & 0xDE ) == 0x5A ) || ( ( ((U8*)s)[0] & 0xFE ) == 0x5C ) || ((U8*)s)[0] == 0x5E || ( ( ((U8*)s)[0] & 0xFE ) == 0x60 ) || ( ( ((U8*)s)[0] & 0xEC ) == 0x6C ) || ((U8*)s)[0] == 0x79 || ( ( ((U8*)s)[0] & 0xEF ) == 0x81 ) || ( ( ((U8*)s)[0] & 0xEE ) == 0x82 ) || ( ( ((U8*)s)[0] & 0xEC ) == 0x84 ) || ( ( ((U8*)s)[0] & 0xEE ) == 0x88 ) || ((U8*)s)[0] == 0xA1 || ( ( ((U8*)s)[0] & 0xBE ) == 0xA2 ) || ( ( ((U8*)s)[0] & 0xBC ) == 0xA4 ) || ( ( ((U8*)s)[0] & 0xFE ) == 0xA8 ) || ((U8*)s)[0] == 0xB0 || ( ( ((U8*)s)[0] & 0xFE ) == 0xBA ) || ( ( ((U8*)s)[0] & 0xE8 ) == 0xC0 ) || ( ( ((U8*)s)[0] & 0xCE ) == 0xC8 ) || ((U8*)s)[0] == 0xE0 || ( ( ((U8*)s)[0] & 0xF8 ) == 0xF0 ) || ((U8*)s)[0] == 0xFF ) ? 1\
+: ( 0x78 == ((U8*)s)[0] || 0x80 == ((U8*)s)[0] || 0x8A == ((U8*)s)[0] ) ?   \
+    ( ( ( 0x41 <= ((U8*)s)[1] && ((U8*)s)[1] <= 0x4A ) || ( 0x51 <= ((U8*)s)[1] && ((U8*)s)[1] <= 0x59 ) || 0x5F == ((U8*)s)[1] || ( 0x62 <= ((U8*)s)[1] && ((U8*)s)[1] <= 0x6A ) || ( 0x70 <= ((U8*)s)[1] && ((U8*)s)[1] <= 0x72 ) ) ? 2 : 0 )\
+: ( 0x8C == ((U8*)s)[0] || 0x9B == ((U8*)s)[0] ) ?                          \
+    ( ( 0x57 == ((U8*)s)[1] ) ? 2 : 0 )                                     \
+: ( 0x8D == ((U8*)s)[0] ) ?                                                 \
+    ( ( 0x4A == ((U8*)s)[1] ) ? 2 : 0 )                                     \
+: ( 0x8E == ((U8*)s)[0] ) ?                                                 \
+    ( ( 0x66 == ((U8*)s)[1] || 0x72 == ((U8*)s)[1] ) ? 2 : 0 )              \
+: ( ( ((U8*)s)[0] & 0xFE ) == 0xB2 ) ?                                      \
+    ( ( 0x6A == ((U8*)s)[1] ) ? 2 : 0 )                                     \
+: ( 0xBF == ((U8*)s)[0] ) ?                                                 \
+    ( ( ( 0x62 == ((U8*)s)[1] ) && ( ( 0x64 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x68 ) || 0x71 == ((U8*)s)[2] ) ) ? 3 : 0 )\
+: ( 0xCA == ((U8*)s)[0] ) ?                                                 \
+    ( ( ( 0x4A == ((U8*)s)[1] ) && ( 0x51 == ((U8*)s)[2] || 0x52 == ((U8*)s)[2] ) ) ? 3 : 0 )\
+: ( ( ( ( 0xDD == ((U8*)s)[0] ) && ( 0x71 == ((U8*)s)[1] ) ) && ( 0x66 == ((U8*)s)[2] ) ) && ( 0x41 <= ((U8*)s)[3] && ((U8*)s)[3] <= 0x47 ) ) ? 4 : 0 )
+
+/*** GENERATED CODE ***/
+#define is_PROBLEMATIC_LOCALE_FOLD_cp(cp)                                   \
+( cp <= 0xFF || ( 0xFF < cp &&                                              \
+( 0x130 == cp || ( 0x130 < cp &&                                            \
+( 0x149 == cp || ( 0x149 < cp &&                                            \
+( 0x178 == cp || ( 0x178 < cp &&                                            \
+( 0x17F == cp || ( 0x17F < cp &&                                            \
+( 0x1F0 == cp || ( 0x1F0 < cp &&                                            \
+( 0x39C == cp || ( 0x39C < cp &&                                            \
+( 0x3BC == cp || ( 0x3BC < cp &&                                            \
+( ( 0x1E96 <= cp && cp <= 0x1E9A ) || ( 0x1E9A < cp &&                      \
+( 0x1E9E == cp || ( 0x1E9E < cp &&                                          \
+( 0x212A == cp || ( 0x212A < cp &&                                          \
+( 0x212B == cp || ( 0xFB00 <= cp && cp <= 0xFB06 ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) )
+
+/*
+	PROBLEMATIC_LOCALE_FOLDEDS_START: The first folded character of folds which are problematic under locale
+
+	\p{_Perl_Problematic_Locale_Foldeds_Start}
+*/
+/*** GENERATED CODE ***/
+#define is_PROBLEMATIC_LOCALE_FOLDEDS_START_utf8(s)                         \
+( ( ( ( ((U8*)s)[0] & 0xC0 ) == 0x00 ) || ( ( ((U8*)s)[0] & 0xEF ) == 0x40 ) || ( ( ((U8*)s)[0] & 0xDF ) == 0x4B ) || ( ( ((U8*)s)[0] & 0xFC ) == 0x4C ) || ( ( ((U8*)s)[0] & 0xDE ) == 0x5A ) || ( ( ((U8*)s)[0] & 0xFE ) == 0x5C ) || ((U8*)s)[0] == 0x5E || ( ( ((U8*)s)[0] & 0xFE ) == 0x60 ) || ( ( ((U8*)s)[0] & 0xEC ) == 0x6C ) || ((U8*)s)[0] == 0x79 || ( ( ((U8*)s)[0] & 0xEF ) == 0x81 ) || ( ( ((U8*)s)[0] & 0xEE ) == 0x82 ) || ( ( ((U8*)s)[0] & 0xEC ) == 0x84 ) || ( ( ((U8*)s)[0] & 0xEE ) == 0x88 ) || ((U8*)s)[0] == 0xA1 || ( ( ((U8*)s)[0] & 0xBE ) == 0xA2 ) || ( ( ((U8*)s)[0] & 0xBC ) == 0xA4 ) || ( ( ((U8*)s)[0] & 0xFE ) == 0xA8 ) || ((U8*)s)[0] == 0xB0 || ( ( ((U8*)s)[0] & 0xFE ) == 0xBA ) || ( ( ((U8*)s)[0] & 0xE8 ) == 0xC0 ) || ( ( ((U8*)s)[0] & 0xCE ) == 0xC8 ) || ((U8*)s)[0] == 0xE0 || ( ( ((U8*)s)[0] & 0xF8 ) == 0xF0 ) || ((U8*)s)[0] == 0xFF ) ? 1\
+: ( 0x78 == ((U8*)s)[0] || 0x80 == ((U8*)s)[0] || 0x8A == ((U8*)s)[0] ) ?   \
+    ( ( ( 0x41 <= ((U8*)s)[1] && ((U8*)s)[1] <= 0x4A ) || ( 0x51 <= ((U8*)s)[1] && ((U8*)s)[1] <= 0x59 ) || 0x5F == ((U8*)s)[1] || ( 0x62 <= ((U8*)s)[1] && ((U8*)s)[1] <= 0x6A ) || ( 0x70 <= ((U8*)s)[1] && ((U8*)s)[1] <= 0x72 ) ) ? 2 : 0 )\
+: ( 0x8C == ((U8*)s)[0] || 0x9B == ((U8*)s)[0] ) ?                          \
+    ( ( 0x57 == ((U8*)s)[1] ) ? 2 : 0 )                                     \
+: ( 0x8D == ((U8*)s)[0] ) ?                                                 \
+    ( ( 0x4A == ((U8*)s)[1] ) ? 2 : 0 )                                     \
+: ( 0x8E == ((U8*)s)[0] ) ?                                                 \
+    ( ( 0x66 == ((U8*)s)[1] || 0x72 == ((U8*)s)[1] ) ? 2 : 0 )              \
+: ( 0xAA == ((U8*)s)[0] || ( ((U8*)s)[0] & 0xFE ) == 0xB2 ) ?               \
+    ( ( 0x6A == ((U8*)s)[1] ) ? 2 : 0 )                                     \
+: ( 0xBF == ((U8*)s)[0] ) ?                                                 \
+    ( ( ( 0x62 == ((U8*)s)[1] ) && ( ( 0x64 <= ((U8*)s)[2] && ((U8*)s)[2] <= 0x68 ) || 0x71 == ((U8*)s)[2] ) ) ? 3 : 0 )\
+: ( 0xCA == ((U8*)s)[0] ) ?                                                 \
+    ( ( ( 0x4A == ((U8*)s)[1] ) && ( 0x51 == ((U8*)s)[2] || 0x52 == ((U8*)s)[2] ) ) ? 3 : 0 )\
+: ( ( ( ( 0xDD == ((U8*)s)[0] ) && ( 0x71 == ((U8*)s)[1] ) ) && ( 0x66 == ((U8*)s)[2] ) ) && ( 0x41 <= ((U8*)s)[3] && ((U8*)s)[3] <= 0x47 ) ) ? 4 : 0 )
+
+/*** GENERATED CODE ***/
+#define is_PROBLEMATIC_LOCALE_FOLDEDS_START_cp(cp)                          \
+( cp <= 0xFF || ( 0xFF < cp &&                                              \
+( 0x130 == cp || ( 0x130 < cp &&                                            \
+( 0x149 == cp || ( 0x149 < cp &&                                            \
+( 0x178 == cp || ( 0x178 < cp &&                                            \
+( 0x17F == cp || ( 0x17F < cp &&                                            \
+( 0x1F0 == cp || ( 0x1F0 < cp &&                                            \
+( 0x2BC == cp || ( 0x2BC < cp &&                                            \
+( 0x39C == cp || ( 0x39C < cp &&                                            \
+( 0x3BC == cp || ( 0x3BC < cp &&                                            \
+( ( 0x1E96 <= cp && cp <= 0x1E9A ) || ( 0x1E9A < cp &&                      \
+( 0x1E9E == cp || ( 0x1E9E < cp &&                                          \
+( 0x212A == cp || ( 0x212A < cp &&                                          \
+( 0x212B == cp || ( 0xFB00 <= cp && cp <= 0xFB06 ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) )
+
+/*
+	PATWS: pattern white space
+
+	\p{_Perl_PatWS}
+*/
+/*** GENERATED CODE ***/
+#define is_PATWS_safe(s,e,is_utf8)                                          \
+( ( LIKELY((e) > (s)) ) ?                                                   \
+    ( ( ( ( ((U8*)s)[0] & 0xEF ) == 0x05 ) || ((U8*)s)[0] == 0x0B || ( ( ((U8*)s)[0] & 0xFE ) == 0x0C ) || ((U8*)s)[0] == 0x25 || ((U8*)s)[0] == 0x40 ) ? 1\
+    : ( ( is_utf8 && LIKELY(((e) - (s)) >= UTF8SKIP(s)) ) && ( 0xCA == ((U8*)s)[0] ) ) ? ( ( 0x41 == ((U8*)s)[1] ) ?\
+		    ( ( 0x55 == ((U8*)s)[2] || 0x56 == ((U8*)s)[2] ) ? 3 : 0 )\
+		: ( ( 0x42 == ((U8*)s)[1] ) && ( 0x49 == ((U8*)s)[2] || 0x4A == ((U8*)s)[2] ) ) ? 3 : 0 ) : 0 )\
+: 0 )
+
+/*** GENERATED CODE ***/
+#define is_PATWS_cp(cp)                                                     \
+( 0x05 == cp || ( 0x05 < cp &&                                              \
+( ( 0x0B <= cp && cp <= 0x0D ) || ( 0x0D < cp &&                            \
+( 0x15 == cp || ( 0x15 < cp &&                                              \
+( 0x25 == cp || ( 0x25 < cp &&                                              \
+( 0x40 == cp || ( 0x40 < cp &&                                              \
+( 0x200E == cp || ( 0x200E < cp &&                                          \
+( 0x200F == cp || ( 0x200F < cp &&                                          \
+( 0x2028 == cp || 0x2029 == cp ) ) ) ) ) ) ) ) ) ) ) ) ) ) )
+
+#endif	/* EBCDIC 037 */
+
+#endif /* H_REGCHARCLASS */
+
+/* Generated from:
+ * cb3170dd603ad12ba0299440e99e8f50a8afde60ade2ffcbf1ff4a8a53854b90 lib/Unicode/UCD.pm
+ * ae98bec7e4f0564758eed81eca5015481ba32581f8a735a825b71b3bba714450 lib/unicore/ArabicShaping.txt
+ * 1687fe5994eb7e5c0dab8503fc2a1b3b479d91af9d3b8055941c9bd791f7d0b5 lib/unicore/BidiBrackets.txt
+ * 350d1302116194b0b21def287434b55c5088098fbc726e879f7420a391965643 lib/unicore/BidiMirroring.txt
+ * 288fc7b85c76bda296e296c8465f1f4baeb456cb814430dfaa0f546bfbe86b4a lib/unicore/Blocks.txt
+ * 86e075f2ede997b3fa5965516c75190b5a88bb82d302272d9c3179b7a57af03f lib/unicore/CaseFolding.txt
+ * 2fafee5be73bf2817ee669c53c504a6c4aa02ac7344194af18511aea2e05d750 lib/unicore/CompositionExclusions.txt
+ * 302f6d6171dc9c6165db86d0226b7923a64cea06c493d339d35436bf137606a3 lib/unicore/DAge.txt
+ * ff666dece87dfdbdbf04a2e26a0bfb52c4ba98db1f8965b0b01ddb9e15f97476 lib/unicore/DCoreProperties.txt
+ * 6cc76100d402d7dd12bd769ac61158b91e71aad58c8333abb848f1b9c9fdde2d lib/unicore/DNormalizationProps.txt
+ * ccc571829b384b8a2c24b7a62f8aa6a891a6e8c48f08513ef84fd6da26dba4bb lib/unicore/EastAsianWidth.txt
+ * 2320db06cf88c755ec7b9cfec96dd9e1d774173521dbc3ee7985377c2ab90d32 lib/unicore/HangulSyllableType.txt
+ * e52216b5fdb04910e06e94f01cabdf70656b0077c92b756c7b38822626d572f2 lib/unicore/IndicPositionalCategory.txt
+ * 4db71a39102e173095cb8bda8b4c35e78fe6b365e443c584b19f081d8c4894fc lib/unicore/IndicSyllabicCategory.txt
+ * eeb30346bb545bb45ff16486d9234397bfe1a195bb12b54fc1d9f48f87e8aa5e lib/unicore/Jamo.txt
+ * 13e2b7087bcca3163272e64e34e480534bd2f8353a0245c26e6642566f59a60d lib/unicore/LineBreak.txt
+ * 9bb54cd7b5509779f269fa60341bcbfca8da8f17d3c4999e44a5a51671d3c402 lib/unicore/NameAliases.txt
+ * e4c29d9ceefbe2382af819ac7646265a9e4ea599ce04a90d31bec97cfaa2848f lib/unicore/NamedSequences.txt
+ * 70d40297f1bf91397fbdab5a770c12100733e67c5c3398446c5e950715d5e535 lib/unicore/PropList.txt
+ * 03a440f2a4b9151043a6bb53d4a4e528b73238079f9d686dc2a5846e6895588a lib/unicore/PropValueAliases.txt
+ * 8e8b48c2080d31aa6713f5535aad94a1f7bc9a65cc52563724e5e69b0a3b4196 lib/unicore/PropertyAliases.txt
+ * 45d42b1ecbac2263c1c63c95104e63ea64313eb99be94542e040aea11c449f6c lib/unicore/ScriptExtensions.txt
+ * 79fbd73ad82c30fdb67d36a349d12667bd58d3e9da6a8ce7dd26383b637ba85f lib/unicore/Scripts.txt
+ * fb2025dae3b9b17649b6e379c1cdbddf50641267ca6d2446caeccf4a141fe167 lib/unicore/SpecialCasing.txt
+ * 38b17e1118206489a7e0ab5d29d7932212d38838df7d3ec025ecb58e8798ec20 lib/unicore/UnicodeData.txt
+ * 0cedd6e0f5cadf57ce9cfc96beccfd083b0faa0809a631a777cd25f0316bfabb lib/unicore/auxiliary/GCBTest.txt
+ * 230005412f9a47128e37bc52330766aaa0b5522a53737a89cff66e891e14527a lib/unicore/auxiliary/GraphemeBreakProperty.txt
+ * 149b14ab93b06c887a958fb16d0ad01193063ef69cc14f10338ae4d0accd6c28 lib/unicore/auxiliary/LBTest.txt
+ * 41bf82452d71ce15eda8c9bb1bb0c20b72205acaaf503e3cb84734ed8e85d33a lib/unicore/auxiliary/SBTest.txt
+ * d3b45cdb0a73eeb9d25158336583dfc1e6f64da59537acb0008988b40e6b3b63 lib/unicore/auxiliary/SentenceBreakProperty.txt
+ * a661f42a54f7cc4dded72a61c508be2b482f912d4b6cf140335010f0c684dbb9 lib/unicore/auxiliary/WBTest.txt
+ * c255bd2e1f163373510679bf4b272eee97b635bfce2a6550d6c10fe5c917f01a lib/unicore/auxiliary/WordBreakProperty.txt
+ * 16dac6f1c164a4f52741b71221a8aafb6acb52cd8a436af139da6e93d86efdfb lib/unicore/extracted/DBidiClass.txt
+ * c4e78efc041668548117f7462af03b28dfbb2caca5d46a1ae78ae0ce0bb26c4a lib/unicore/extracted/DBinaryProperties.txt
+ * 5886bb44aae8f2821663f742793cb91d4ed0923c6840f3bfb73530e37030abf8 lib/unicore/extracted/DCombiningClass.txt
+ * 9edba3785ed0e6e46e10f67e2dd0ec3cb0799b7f75f526fe918429576060352e lib/unicore/extracted/DDecompositionType.txt
+ * b774387f79b27ae4268ae89450f971408dc9bbbb523426482ab4375c962bd922 lib/unicore/extracted/DEastAsianWidth.txt
+ * ba4207d2464077e807b20caf063041142afc0a8a38c328c5c23b3417c9f2da33 lib/unicore/extracted/DGeneralCategory.txt
+ * 29fdd151266595eb1b37715937afe0727bb632a2bc1130f0d2314040175df82e lib/unicore/extracted/DJoinGroup.txt
+ * 7725fe247da06986e43e89fd316b8b22a0619546d0c1ed499a94b25e9164c150 lib/unicore/extracted/DJoinType.txt
+ * 1a0687fb9c6c4567e853913549df0944fe40821279a3e9cdaa6ab8679bc286fd lib/unicore/extracted/DLineBreak.txt
+ * 40bcfed3ca727c19e1331f6c33806231d5f7eeeabd2e6a9e06a3740c85d0c250 lib/unicore/extracted/DNumType.txt
+ * a18d502bad39d527ac5586d7bc93e29f565859e3bcc24ada627eff606d6f5fed lib/unicore/extracted/DNumValues.txt
+ * 285aef7ed2bf69724b1fa9bba177640636f666e1a5dd0ba5e538d4790129bbfe lib/unicore/mktables
+ * 462c9aaa608fb2014cd9649af1c5c009485c60b9c8b15b89401fdc10cf6161c6 lib/unicore/version
+ * 913d2f93f3cb6cdf1664db888bf840bc4eb074eef824e082fceda24a9445e60c regen/charset_translations.pl
+ * d9c04ac46bdd81bb3e26519f2b8eb6242cb12337205add3f7cf092b0c58dccc4 regen/regcharclass.pl
+ * 393f8d882713a3ba227351ad0f00ea4839fda74fcf77dcd1cdf31519925adba5 regen/regcharclass_multi_char_folds.pl
+ * ex: set ro: */
diff --git a/lib/5.24.1/x86_64-linux/CORE/regcomp.h b/lib/5.24.1/x86_64-linux/CORE/regcomp.h
new file mode 100644
index 00000000..a8842a1b
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/regcomp.h
@@ -0,0 +1,1118 @@
+/*    regcomp.h
+ *
+ *    Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
+ *    2000, 2001, 2002, 2003, 2005, 2006, 2007, by Larry Wall and others
+ *
+ *    You may distribute under the terms of either the GNU General Public
+ *    License or the Artistic License, as specified in the README file.
+ *
+ */
+#include "regcharclass.h"
+
+/* Convert branch sequences to more efficient trie ops? */
+#define PERL_ENABLE_TRIE_OPTIMISATION 1
+
+/* Be really aggressive about optimising patterns with trie sequences? */
+#define PERL_ENABLE_EXTENDED_TRIE_OPTIMISATION 1
+
+/* Should the optimiser take positive assertions into account? */
+#define PERL_ENABLE_POSITIVE_ASSERTION_STUDY 0
+
+/* Not for production use: */
+#define PERL_ENABLE_EXPERIMENTAL_REGEX_OPTIMISATIONS 0
+
+/* Activate offsets code - set to if 1 to enable */
+#ifdef DEBUGGING
+#define RE_TRACK_PATTERN_OFFSETS
+#endif
+
+/*
+ * The "internal use only" fields in regexp.h are present to pass info from
+ * compile to execute that permits the execute phase to run lots faster on
+ * simple cases.  They are:
+ *
+ * regstart	sv that must begin a match; NULL if none obvious
+ * reganch	is the match anchored (at beginning-of-line only)?
+ * regmust	string (pointer into program) that match must include, or NULL
+ *  [regmust changed to SV* for bminstr()--law]
+ * regmlen	length of regmust string
+ *  [regmlen not used currently]
+ *
+ * Regstart and reganch permit very fast decisions on suitable starting points
+ * for a match, cutting down the work a lot.  Regmust permits fast rejection
+ * of lines that cannot possibly match.  The regmust tests are costly enough
+ * that pregcomp() supplies a regmust only if the r.e. contains something
+ * potentially expensive (at present, the only such thing detected is * or +
+ * at the start of the r.e., which can involve a lot of backup).  Regmlen is
+ * supplied because the test in pregexec() needs it and pregcomp() is computing
+ * it anyway.
+ * [regmust is now supplied always.  The tests that use regmust have a
+ * heuristic that disables the test if it usually matches.]
+ *
+ * [In fact, we now use regmust in many cases to locate where the search
+ * starts in the string, so if regback is >= 0, the regmust search is never
+ * wasted effort.  The regback variable says how many characters back from
+ * where regmust matched is the earliest possible start of the match.
+ * For instance, /[a-z].foo/ has a regmust of 'foo' and a regback of 2.]
+ */
+
+/*
+ * Structure for regexp "program".  This is essentially a linear encoding
+ * of a nondeterministic finite-state machine (aka syntax charts or
+ * "railroad normal form" in parsing technology).  Each node is an opcode
+ * plus a "next" pointer, possibly plus an operand.  "Next" pointers of
+ * all nodes except BRANCH implement concatenation; a "next" pointer with
+ * a BRANCH on both ends of it is connecting two alternatives.  (Here we
+ * have one of the subtle syntax dependencies:  an individual BRANCH (as
+ * opposed to a collection of them) is never concatenated with anything
+ * because of operator precedence.)  The operand of some types of node is
+ * a literal string; for others, it is a node leading into a sub-FSM.  In
+ * particular, the operand of a BRANCH node is the first node of the branch.
+ * (NB this is *not* a tree structure:  the tail of the branch connects
+ * to the thing following the set of BRANCHes.)  The opcodes are defined
+ * in regnodes.h which is generated from regcomp.sym by regcomp.pl.
+ */
+
+/*
+ * A node is one char of opcode followed by two chars of "next" pointer.
+ * "Next" pointers are stored as two 8-bit pieces, high order first.  The
+ * value is a positive offset from the opcode of the node containing it.
+ * An operand, if any, simply follows the node.  (Note that much of the
+ * code generation knows about this implicit relationship.)
+ *
+ * Using two bytes for the "next" pointer is vast overkill for most things,
+ * but allows patterns to get big without disasters.
+ *
+ * [The "next" pointer is always aligned on an even
+ * boundary, and reads the offset directly as a short.]
+ */
+
+/* This is the stuff that used to live in regexp.h that was truly
+   private to the engine itself. It now lives here. */
+
+ typedef struct regexp_internal {
+        int name_list_idx;	/* Optional data index of an array of paren names */
+        union {
+	    U32 *offsets;           /* offset annotations 20001228 MJD
+                                       data about mapping the program to the
+                                       string -
+                                       offsets[0] is proglen when this is used
+                                       */
+            U32 proglen;
+        } u;
+
+        regnode *regstclass;    /* Optional startclass as identified or constructed
+                                   by the optimiser */
+        struct reg_data *data;	/* Additional miscellaneous data used by the program.
+                                   Used to make it easier to clone and free arbitrary
+                                   data that the regops need. Often the ARG field of
+                                   a regop is an index into this structure */
+	struct reg_code_block *code_blocks;/* positions of literal (?{}) */
+	int num_code_blocks;	/* size of code_blocks[] */
+	regnode program[1];	/* Unwarranted chumminess with compiler. */
+} regexp_internal;
+
+#define RXi_SET(x,y) (x)->pprivate = (void*)(y)   
+#define RXi_GET(x)   ((regexp_internal *)((x)->pprivate))
+#define RXi_GET_DECL(r,ri) regexp_internal *ri = RXi_GET(r)
+/*
+ * Flags stored in regexp->intflags
+ * These are used only internally to the regexp engine
+ *
+ * See regexp.h for flags used externally to the regexp engine
+ */
+#define RXp_INTFLAGS(rx)        ((rx)->intflags)
+#define RX_INTFLAGS(prog)        RXp_INTFLAGS(ReANY(prog))
+
+#define PREGf_SKIP		0x00000001
+#define PREGf_IMPLICIT		0x00000002 /* Converted .* to ^.* */
+#define PREGf_NAUGHTY		0x00000004 /* how exponential is this pattern? */
+#define PREGf_VERBARG_SEEN	0x00000008
+#define PREGf_CUTGROUP_SEEN	0x00000010
+#define PREGf_USE_RE_EVAL	0x00000020 /* compiled with "use re 'eval'" */
+/* these used to be extflags, but are now intflags */
+#define PREGf_NOSCAN            0x00000040
+                                /* spare */
+#define PREGf_GPOS_SEEN         0x00000100
+#define PREGf_GPOS_FLOAT        0x00000200
+
+#define PREGf_ANCH_MBOL         0x00000400
+#define PREGf_ANCH_SBOL         0x00000800
+#define PREGf_ANCH_GPOS         0x00001000
+#define PREGf_RECURSE_SEEN      0x00002000
+
+#define PREGf_ANCH              \
+    ( PREGf_ANCH_SBOL | PREGf_ANCH_GPOS | PREGf_ANCH_MBOL )
+
+/* this is where the old regcomp.h started */
+
+struct regnode_string {
+    U8	str_len;
+    U8  type;
+    U16 next_off;
+    char string[1];
+};
+
+/* Argument bearing node - workhorse, 
+   arg1 is often for the data field */
+struct regnode_1 {
+    U8	flags;
+    U8  type;
+    U16 next_off;
+    U32 arg1;
+};
+
+/* Similar to a regnode_1 but with an extra signed argument */
+struct regnode_2L {
+    U8	flags;
+    U8  type;
+    U16 next_off;
+    U32 arg1;
+    I32 arg2;
+};
+
+/* 'Two field' -- Two 16 bit unsigned args */
+struct regnode_2 {
+    U8	flags;
+    U8  type;
+    U16 next_off;
+    U16 arg1;
+    U16 arg2;
+};
+
+/* This give the number of code points that can be in the bitmap of an ANYOF
+ * node.  The shift number must currently be one of: 8..12.  It can't be less
+ * than 8 (256) because some code relies on it being at least that.  Above 12
+ * (4096), and you start running into warnings that some data structure widths
+ * have been exceeded, though the test suite as of this writing still passes
+ * for up through 16, which is as high as anyone would ever want to go,
+ * encompassing all of the Unicode BMP, and thus including all the economically
+ * important world scripts.  At 12 most of them are: including Arabic,
+ * Cyrillic, Greek, Hebrew, Indian subcontinent, Latin, and Thai; but not Han,
+ * Japanese, nor Korean.  (The regarglen structure in regnodes.h is a U8, and
+ * the trie types TRIEC and AHOCORASICKC are larger than U8 for shift values
+ * below above 12.)  Be sure to benchmark before changing, as larger sizes do
+ * significantly slow down the test suite */
+#define NUM_ANYOF_CODE_POINTS   (1 << 8)
+
+#define ANYOF_BITMAP_SIZE	(NUM_ANYOF_CODE_POINTS / 8)   /* 8 bits/Byte */
+
+/* Note that these form structs which are supersets of the next smaller one, by
+ * appending fields.  Alignment problems can occur if one of those optional
+ * fields requires stricter alignment than the base struct.  And formal
+ * parameters that can really be two or more of the structs should be
+ * declared as the smallest one it could be.  See commit message for
+ * 7dcac5f6a5195002b55c935ee1d67f67e1df280b.  Regnode allocation is done
+ * without regard to alignment, and changing it to would also require changing
+ * the code that inserts and deletes regnodes.  The basic single-argument
+ * regnode has a U32, which is what reganode() allocates as a unit.  Therefore
+ * no field can require stricter alignment than U32. */
+
+/* also used by trie */
+struct regnode_charclass {
+    U8	flags;
+    U8  type;
+    U16 next_off;
+    U32 arg1;                           /* set by set_ANYOF_arg() */
+    char bitmap[ANYOF_BITMAP_SIZE];	/* only compile-time */
+};
+
+/* has runtime (locale) \d, \w, ..., [:posix:] classes */
+struct regnode_charclass_class {
+    U8	flags;                      /* ANYOF_MATCHES_POSIXL bit must go here */
+    U8  type;
+    U16 next_off;
+    U32 arg1;
+    char bitmap[ANYOF_BITMAP_SIZE];		/* both compile-time ... */
+    U32 classflags;	                        /* and run-time */
+};
+
+/* A synthetic start class (SSC); is a regnode_charclass_posixl_fold, plus an
+ * extra SV*, used only during its construction and which is not used by
+ * regexec.c.  Note that the 'next_off' field is unused, as the SSC stands
+ * alone, so there is never a next node.  Also, there is no alignment issue,
+ * because these are declared or allocated as a complete unit so the compiler
+ * takes care of alignment.  This is unlike the other regnodes which are
+ * allocated in terms of multiples of a single-argument regnode.  SSC nodes can
+ * have a pointer field because there is no alignment issue, and because it is
+ * set to NULL after construction, before any cloning of the pattern */
+struct regnode_ssc {
+    U8	flags;                      /* ANYOF_MATCHES_POSIXL bit must go here */
+    U8  type;
+    U16 next_off;
+    U32 arg1;
+    char bitmap[ANYOF_BITMAP_SIZE];	/* both compile-time ... */
+    U32 classflags;	                /* ... and run-time */
+
+    /* Auxiliary, only used during construction; NULL afterwards: list of code
+     * points matched */
+    SV* invlist;
+};
+
+/*  We take advantage of 'next_off' not otherwise being used in the SSC by
+ *  actually using it: by setting it to 1.  This allows us to test and
+ *  distinguish between an SSC and other ANYOF node types, as 'next_off' cannot
+ *  otherwise be 1, because it is the offset to the next regnode expressed in
+ *  units of regnodes.  Since an ANYOF node contains extra fields, it adds up
+ *  to 12 regnode units on 32-bit systems, (hence the minimum this can be (if
+ *  not 0) is 11 there.  Even if things get tightly packed on a 64-bit system,
+ *  it still would be more than 1. */
+#define set_ANYOF_SYNTHETIC(n) STMT_START{ OP(n) = ANYOF;              \
+                                           NEXT_OFF(n) = 1;            \
+                               } STMT_END
+#define is_ANYOF_SYNTHETIC(n) (PL_regkind[OP(n)] == ANYOF && NEXT_OFF(n) == 1)
+
+/* XXX fix this description.
+   Impose a limit of REG_INFTY on various pattern matching operations
+   to limit stack growth and to avoid "infinite" recursions.
+*/
+/* The default size for REG_INFTY is I16_MAX, which is the same as
+   SHORT_MAX (see perl.h).  Unfortunately I16 isn't necessarily 16 bits
+   (see handy.h).  On the Cray C90, sizeof(short)==4 and hence I16_MAX is
+   ((1<<31)-1), while on the Cray T90, sizeof(short)==8 and I16_MAX is
+   ((1<<63)-1).  To limit stack growth to reasonable sizes, supply a
+   smaller default.
+	--Andy Dougherty  11 June 1998
+*/
+#if SHORTSIZE > 2
+#  ifndef REG_INFTY
+#    define REG_INFTY ((1<<15)-1)
+#  endif
+#endif
+
+#ifndef REG_INFTY
+#  define REG_INFTY I16_MAX
+#endif
+
+#define ARG_VALUE(arg) (arg)
+#define ARG__SET(arg,val) ((arg) = (val))
+
+#undef ARG
+#undef ARG1
+#undef ARG2
+
+#define ARG(p) ARG_VALUE(ARG_LOC(p))
+#define ARG1(p) ARG_VALUE(ARG1_LOC(p))
+#define ARG2(p) ARG_VALUE(ARG2_LOC(p))
+#define ARG2L(p) ARG_VALUE(ARG2L_LOC(p))
+
+#define ARG_SET(p, val) ARG__SET(ARG_LOC(p), (val))
+#define ARG1_SET(p, val) ARG__SET(ARG1_LOC(p), (val))
+#define ARG2_SET(p, val) ARG__SET(ARG2_LOC(p), (val))
+#define ARG2L_SET(p, val) ARG__SET(ARG2L_LOC(p), (val))
+
+#undef NEXT_OFF
+#undef NODE_ALIGN
+
+#define NEXT_OFF(p) ((p)->next_off)
+#define NODE_ALIGN(node)
+/* the following define was set to 0xde in 075abff3
+ * as part of some linting logic. I have set it to 0
+ * as otherwise in every place where we /might/ set flags
+ * we have to set it 0 explicitly, which duplicates
+ * assignments and IMO adds an unacceptable level of
+ * surprise to working in the regex engine. If this
+ * is changed from 0 then at the very least make sure
+ * that SBOL for /^/ sets the flags to 0 explicitly.
+ * -- Yves */
+#define NODE_ALIGN_FILL(node) ((node)->flags = 0)
+
+#define SIZE_ALIGN NODE_ALIGN
+
+#undef OP
+#undef OPERAND
+#undef MASK
+#undef STRING
+
+#define	OP(p)		((p)->type)
+#define FLAGS(p)	((p)->flags)	/* Caution: Doesn't apply to all      \
+					   regnode types.  For some, it's the \
+					   character set of the regnode */
+#define	OPERAND(p)	(((struct regnode_string *)p)->string)
+#define MASK(p)		((char*)OPERAND(p))
+#define	STR_LEN(p)	(((struct regnode_string *)p)->str_len)
+#define	STRING(p)	(((struct regnode_string *)p)->string)
+#define STR_SZ(l)	((l + sizeof(regnode) - 1) / sizeof(regnode))
+#define NODE_SZ_STR(p)	(STR_SZ(STR_LEN(p))+1)
+
+#undef NODE_ALIGN
+#undef ARG_LOC
+#undef NEXTOPER
+#undef PREVOPER
+
+#define	NODE_ALIGN(node)
+#define	ARG_LOC(p)	(((struct regnode_1 *)p)->arg1)
+#define	ARG1_LOC(p)	(((struct regnode_2 *)p)->arg1)
+#define	ARG2_LOC(p)	(((struct regnode_2 *)p)->arg2)
+#define ARG2L_LOC(p)	(((struct regnode_2L *)p)->arg2)
+
+#define NODE_STEP_REGNODE	1	/* sizeof(regnode)/sizeof(regnode) */
+#define EXTRA_STEP_2ARGS	EXTRA_SIZE(struct regnode_2)
+
+#define NODE_STEP_B	4
+
+#define	NEXTOPER(p)	((p) + NODE_STEP_REGNODE)
+#define	PREVOPER(p)	((p) - NODE_STEP_REGNODE)
+
+#define FILL_ADVANCE_NODE(ptr, op) STMT_START { \
+    (ptr)->type = op;    (ptr)->next_off = 0;   (ptr)++; } STMT_END
+#define FILL_ADVANCE_NODE_ARG(ptr, op, arg) STMT_START { \
+    ARG_SET(ptr, arg);  FILL_ADVANCE_NODE(ptr, op); (ptr) += 1; } STMT_END
+#define FILL_ADVANCE_NODE_2L_ARG(ptr, op, arg1, arg2)               \
+                STMT_START {                                        \
+                    ARG_SET(ptr, arg1);                             \
+                    ARG2L_SET(ptr, arg2);                           \
+                    FILL_ADVANCE_NODE(ptr, op);                     \
+                    (ptr) += 2;                                     \
+                } STMT_END
+
+#define REG_MAGIC 0234
+
+#define SIZE_ONLY cBOOL(RExC_emit == (regnode *) & RExC_emit_dummy)
+#define PASS1 SIZE_ONLY
+#define PASS2 (! SIZE_ONLY)
+
+/* An ANYOF node is basically a bitmap with the index being a code point.  If
+ * the bit for that code point is 1, the code point matches;  if 0, it doesn't
+ * match (complemented if inverted).  There is an additional mechanism to deal
+ * with cases where the bitmap is insufficient in and of itself.  This #define
+ * indicates if the bitmap does fully represent what this ANYOF node can match.
+ * The ARG is set to this special value (since 0, 1, ... are legal, but will
+ * never reach this high). */
+#define ANYOF_ONLY_HAS_BITMAP	((U32) -1)
+
+/* When the bimap isn't completely sufficient for handling the ANYOF node,
+ * flags (in node->flags of the ANYOF node) get set to indicate this.  These
+ * are perennially in short supply.  Beyond several cases where warnings need
+ * to be raised under certain circumstances, currently, there are six cases
+ * where the bitmap alone isn't sufficient.  We could use six flags to
+ * represent the 6 cases, but to save flags bits, we play some games.  The
+ * cases are:
+ *
+ *  1)  The bitmap has a compiled-in very finite size.  So something else needs
+ *      to be used to specify if a code point that is too large for the bitmap
+ *      actually matches.  The mechanism currently is a swash or inversion
+ *      list.  ANYOF_ONLY_HAS_BITMAP, described above, being TRUE indicates
+ *      there are no matches of too-large code points.  But if it is FALSE,
+ *      then almost certainly there are matches too large for the bitmap.  (The
+ *      other cases, described below, either imply this one or are extremely
+ *      rare in practice.)  So we can just assume that a too-large code point
+ *      will need something beyond the bitmap if ANYOF_ONLY_HAS_BITMAP is
+ *      FALSE, instead of having a separate flag for this.
+ *  2)  A subset of item 1) is if all possible code points outside the bitmap
+ *      match.  This is a common occurrence when the class is complemented,
+ *      like /[^ij]/.  Therefore a bit is reserved to indicate this,
+ *      rather than having an expensive swash created,
+ *      ANYOF_MATCHES_ALL_ABOVE_BITMAP.
+ *  3)  Under /d rules, it can happen that code points that are in the upper
+ *      latin1 range (\x80-\xFF or their equivalents on EBCDIC platforms) match
+ *      only if the runtime target string being matched against is UTF-8.  For
+ *      example /[\w[:punct:]]/d.  This happens only for posix classes (with a
+ *      couple of exceptions, like \d where it doesn't happen), and all such
+ *      ones also have above-bitmap matches.  Thus, 3) implies 1) as well.
+ *      Note that /d rules are no longer encouraged; 'use 5.14' or higher
+ *      deselects them.  But a flag is required so that they can be properly
+ *      handled.  But it can be a shared flag: see 5) below.
+ *  4)  Also under /d rules, something like /[\Wfoo]/ will match everything in
+ *      the \x80-\xFF range, unless the string being matched against is UTF-8.
+ *      A swash could be created for this case, but this is relatively common,
+ *      and it turns out that it's all or nothing:  if any one of these code
+ *      points matches, they all do.  Hence a single bit suffices.  We use a
+ *      shared flag that doesn't take up space by itself:
+ *      ANYOF_SHARED_d_MATCHES_ALL_NON_UTF8_NON_ASCII_non_d_WARN_SUPER.
+ *      This also implies 1), with one exception: [:^cntrl:].
+ *  5)  A user-defined \p{} property may not have been defined by the time the
+ *      regex is compiled.  In this case, we don't know until runtime what it
+ *      will match, so we have to assume it could match anything, including
+ *      code points that ordinarily would be in the bitmap.  A flag bit is
+ *      necessary to indicate this , though it can be shared with the item 3)
+ *      flag, as that only occurs under /d, and this only occurs under non-d.
+ *      This case is quite uncommon in the field, and the /(?[ ...])/ construct
+ *      is a better way to accomplish what this feature does.  This case also
+ *      implies 1).
+ *      ANYOF_SHARED_d_UPPER_LATIN1_UTF8_STRING_MATCHES_non_d_RUNTIME_USER_PROP
+ *      is the shared flag.
+ *  6)  /[foo]/il may have folds that are only valid if the runtime locale is a
+ *      UTF-8 one.  These are quite rare, so it would be good to avoid the
+ *      expense of looking for them.  But /l matching is slow anyway, and we've
+ *      traditionally not worried too much about its performance.  And this
+ *      condition requires the ANYOFL_FOLD flag to be set, so testing for
+ *      that flag would be sufficient to rule out most cases of this.  So it is
+ *      unclear if this should have a flag or not.  But, this flag can be
+ *      shared with another, so it doesn't occupy extra space.
+ *
+ * At the moment, there is one spare bit, but this could be increased by
+ * various tricks.
+ *
+ * If just one more bit is needed, at this writing it seems to khw that the
+ * best choice would be to make ANYOF_MATCHES_ALL_ABOVE_BITMAP not a flag, but
+ * something like
+ *
+ *      #define ANYOF_MATCHES_ALL_ABOVE_BITMAP      ((U32) -2)
+ *
+ * and access it through the ARG like ANYOF_ONLY_HAS_BITMAP is.  This flag is
+ * used by all ANYOF node types, and it could be used to avoid calling the
+ * handler function, as the macro REGINCLASS in regexec.c does now for other
+ * cases.
+ *
+ * Another possibility is to instead (or additionally) rename the ANYOF_POSIXL
+ * flag to be ANYOFL_LARGE, to mean that the ANYOF node has an extra 32 bits
+ * beyond what a regular one does.  That's what it effectively means now, with
+ * the extra space all for the POSIX class flags.  But those classes actually
+ * only occupy 30 bits, so the ANYOFL_FOLD and
+ * ANYOFL_SHARED_UTF8_LOCALE_fold_HAS_MATCHES_nonfold_REQD flags could be moved
+ * to that extra space.  The 30 bits in the extra word would indicate if a
+ * posix class should be looked up or not.  The downside of this is that ANYOFL
+ * nodes with folding would always have to have the extra space allocated, even
+ * if they didn't use the 30 posix bits.  There isn't an SSC problem as all
+ * SSCs are this large anyway.
+ *
+ * One could completely remove ANYOFL_LARGE and make all ANYOFL nodes large.
+ * REGINCLASS would have to be modified so that if the node type were this, it
+ * would call reginclass(), as the flag bit that indicates to do this now would
+ * be gone.
+ *
+ * All told, 5 bits could be available for other uses if all of the above were
+ * done.
+ *
+ * Some flags are not used in synthetic start class (SSC) nodes, so could be
+ * shared should new flags be needed for SSCs, like SSC_MATCHES_EMPTY_STRING
+ * now. */
+
+/* If this is set, the result of the match should be complemented.  regexec.c
+ * is expecting this to be in the low bit.  Never in an SSC */
+#define ANYOF_INVERT		                0x01
+
+/* For the SSC node only, which cannot be inverted, so is shared with that bit.
+ * This is used only during regex compilation. */
+#define SSC_MATCHES_EMPTY_STRING                ANYOF_INVERT
+
+/* Set if this is a regnode_charclass_posixl vs a regnode_charclass.  This
+ * is used for runtime \d, \w, [:posix:], ..., which are used only in locale
+ * and the optimizer's synthetic start class.  Non-locale \d, etc are resolved
+ * at compile-time.  Only set under /l; can be in SSC */
+#define ANYOF_MATCHES_POSIXL                    0x02
+
+/* The fold is calculated and stored in the bitmap where possible at compile
+ * time.  However under locale, the actual folding varies depending on
+ * what the locale is at the time of execution, so it has to be deferred until
+ * then.  Only set under /l; never in an SSC  */
+#define ANYOFL_FOLD                             0x04
+
+/* Shared bit set only with ANYOFL and SSC nodes:
+ *    If ANYOFL_FOLD is set, this means there are potential matches valid
+ *       only if the locale is a UTF-8 one.
+ *    If ANYOFL_FOLD is NOT set, this means to warn if the runtime locale
+ *       isn't a UTF-8 one (and the generated node assumes a UTF-8 locale).
+ *       None of INVERT, POSIXL,
+ *       ANYOF_SHARED_d_UPPER_LATIN1_UTF8_STRING_MATCHES_non_d_RUNTIME_USER_PROP
+ *       can be set.  */
+#define ANYOFL_SHARED_UTF8_LOCALE_fold_HAS_MATCHES_nonfold_REQD        0x08
+
+/* Convenience macros for teasing apart the meanings when reading the above bit
+ * */
+#define ANYOFL_SOME_FOLDS_ONLY_IN_UTF8_LOCALE(flags)                        \
+    ((flags & ( ANYOFL_FOLD /* Both bits are set */                         \
+               |ANYOFL_SHARED_UTF8_LOCALE_fold_HAS_MATCHES_nonfold_REQD))   \
+             == ( ANYOFL_FOLD                                               \
+                 |ANYOFL_SHARED_UTF8_LOCALE_fold_HAS_MATCHES_nonfold_REQD))
+
+#define  ANYOFL_UTF8_LOCALE_REQD(flags)                                     \
+    ((flags & ( ANYOFL_FOLD /* Only REQD bit is set */                      \
+               |ANYOFL_SHARED_UTF8_LOCALE_fold_HAS_MATCHES_nonfold_REQD))   \
+             == ANYOFL_SHARED_UTF8_LOCALE_fold_HAS_MATCHES_nonfold_REQD)
+
+/* Spare:                                       0x10 */
+
+/* If set, the node matches every code point NUM_ANYOF_CODE_POINTS and above.
+ * Can be in an SSC */
+#define ANYOF_MATCHES_ALL_ABOVE_BITMAP          0x20
+
+/* Shared bit:
+ *      Under /d it means the ANYOFD node matches more things if the target
+ *          string is encoded in UTF-8; any such things will be non-ASCII,
+ *          characters that are < 256, and can be accessed via the swash.
+ *      When not under /d, it means the ANYOF node contains a user-defined
+ *      property that wasn't yet defined at the time the regex was compiled,
+ *      and so must be looked up at runtime, by creating a swash
+ * (These uses are mutually exclusive because a user-defined property is
+ * specified by \p{}, and \p{} implies /u which deselects /d).  The long macro
+ * name is to make sure that you are cautioned about its shared nature.  Only
+ * the non-/d meaning can be in an SSC */
+#define ANYOF_SHARED_d_UPPER_LATIN1_UTF8_STRING_MATCHES_non_d_RUNTIME_USER_PROP  0x40
+
+/* Shared bit:
+ *      Under /d it means the ANYOFD node matches all non-ASCII Latin1
+ *          characters when the target string is not in utf8.
+ *      When not under /d, it means the ANYOF node should raise a warning if
+ *          matching against an above-Unicode code point.
+ * (These uses are mutually exclusive because the warning requires a \p{}, and
+ * \p{} implies /u which deselects /d).  An SSC node only has this bit set if
+ * what is meant is the warning.  The long macro name is to make sure that you
+ * are cautioned about its shared nature */
+#define ANYOF_SHARED_d_MATCHES_ALL_NON_UTF8_NON_ASCII_non_d_WARN_SUPER 0x80
+
+#define ANYOF_FLAGS_ALL		(0xff & ~0x10)
+
+#define ANYOF_LOCALE_FLAGS (ANYOFL_FOLD | ANYOF_MATCHES_POSIXL)
+
+/* These are the flags that apply to both regular ANYOF nodes and synthetic
+ * start class nodes during construction of the SSC.  During finalization of
+ * the SSC, other of the flags may get added to it */
+#define ANYOF_COMMON_FLAGS      0
+
+/* Character classes for node->classflags of ANYOF */
+/* Should be synchronized with a table in regprop() */
+/* 2n should be the normal one, paired with its complement at 2n+1 */
+
+#define ANYOF_ALPHA    ((_CC_ALPHA) * 2)
+#define ANYOF_NALPHA   ((ANYOF_ALPHA) + 1)
+#define ANYOF_ALPHANUMERIC   ((_CC_ALPHANUMERIC) * 2)    /* [[:alnum:]] isalnum(3), utf8::IsAlnum */
+#define ANYOF_NALPHANUMERIC  ((ANYOF_ALPHANUMERIC) + 1)
+#define ANYOF_ASCII    ((_CC_ASCII) * 2)
+#define ANYOF_NASCII   ((ANYOF_ASCII) + 1)
+#define ANYOF_BLANK    ((_CC_BLANK) * 2)     /* GNU extension: space and tab: non-vertical space */
+#define ANYOF_NBLANK   ((ANYOF_BLANK) + 1)
+#define ANYOF_CASED    ((_CC_CASED) * 2)    /* Pseudo class for [:lower:] or
+                                               [:upper:] under /i */
+#define ANYOF_NCASED   ((ANYOF_CASED) + 1)
+#define ANYOF_CNTRL    ((_CC_CNTRL) * 2)
+#define ANYOF_NCNTRL   ((ANYOF_CNTRL) + 1)
+#define ANYOF_DIGIT    ((_CC_DIGIT) * 2)     /* \d */
+#define ANYOF_NDIGIT   ((ANYOF_DIGIT) + 1)
+#define ANYOF_GRAPH    ((_CC_GRAPH) * 2)
+#define ANYOF_NGRAPH   ((ANYOF_GRAPH) + 1)
+#define ANYOF_LOWER    ((_CC_LOWER) * 2)
+#define ANYOF_NLOWER   ((ANYOF_LOWER) + 1)
+#define ANYOF_PRINT    ((_CC_PRINT) * 2)
+#define ANYOF_NPRINT   ((ANYOF_PRINT) + 1)
+#define ANYOF_PUNCT    ((_CC_PUNCT) * 2)
+#define ANYOF_NPUNCT   ((ANYOF_PUNCT) + 1)
+#define ANYOF_SPACE    ((_CC_SPACE) * 2)     /* \s */
+#define ANYOF_NSPACE   ((ANYOF_SPACE) + 1)
+#define ANYOF_UPPER    ((_CC_UPPER) * 2)
+#define ANYOF_NUPPER   ((ANYOF_UPPER) + 1)
+#define ANYOF_WORDCHAR ((_CC_WORDCHAR) * 2)  /* \w, PL_utf8_alnum, utf8::IsWord, ALNUM */
+#define ANYOF_NWORDCHAR   ((ANYOF_WORDCHAR) + 1)
+#define ANYOF_XDIGIT   ((_CC_XDIGIT) * 2)
+#define ANYOF_NXDIGIT  ((ANYOF_XDIGIT) + 1)
+
+/* pseudo classes below this, not stored in the class bitmap, but used as flags
+   during compilation of char classes */
+
+#define ANYOF_VERTWS    ((_CC_VERTSPACE) * 2)
+#define ANYOF_NVERTWS   ((ANYOF_VERTWS)+1)
+
+/* It is best if this is the last one, as all above it are stored as bits in a
+ * bitmap, and it isn't part of that bitmap */
+#if _CC_VERTSPACE != _HIGHEST_REGCOMP_DOT_H_SYNC
+#   error Problem with handy.h _HIGHEST_REGCOMP_DOT_H_SYNC #define
+#endif
+
+#define ANYOF_POSIXL_MAX (ANYOF_VERTWS) /* So upper loop limit is written:
+                                         *       '< ANYOF_MAX'
+                                         * Hence doesn't include VERTWS, as that
+                                         * is a pseudo class */
+#define ANYOF_MAX      ANYOF_POSIXL_MAX
+
+#if (ANYOF_POSIXL_MAX > 32)   /* Must fit in 32-bit word */
+#   error Problem with handy.h _CC_foo #defines
+#endif
+
+#define ANYOF_HORIZWS	((ANYOF_POSIXL_MAX)+2) /* = (ANYOF_NVERTWS + 1) */
+#define ANYOF_NHORIZWS	((ANYOF_POSIXL_MAX)+3)
+
+#define ANYOF_UNIPROP   ((ANYOF_POSIXL_MAX)+4)  /* Used to indicate a Unicode
+                                                   property: \p{} or \P{} */
+
+/* Backward source code compatibility. */
+
+#define ANYOF_ALNUML	 ANYOF_ALNUM
+#define ANYOF_NALNUML	 ANYOF_NALNUM
+#define ANYOF_SPACEL	 ANYOF_SPACE
+#define ANYOF_NSPACEL	 ANYOF_NSPACE
+#define ANYOF_ALNUM ANYOF_WORDCHAR
+#define ANYOF_NALNUM ANYOF_NWORDCHAR
+
+/* Utility macros for the bitmap and classes of ANYOF */
+
+#define ANYOF_FLAGS(p)		((p)->flags)
+
+#define ANYOF_BIT(c)		(1U << ((c) & 7))
+
+#define ANYOF_POSIXL_SET(p, c)	(((regnode_charclass_posixl*) (p))->classflags |= (1U << (c)))
+#define ANYOF_CLASS_SET(p, c)	ANYOF_POSIXL_SET((p), (c))
+
+#define ANYOF_POSIXL_CLEAR(p, c) (((regnode_charclass_posixl*) (p))->classflags &= ~ (1U <<(c)))
+#define ANYOF_CLASS_CLEAR(p, c)	ANYOF_POSIXL_CLEAR((p), (c))
+
+#define ANYOF_POSIXL_TEST(p, c)	(((regnode_charclass_posixl*) (p))->classflags & (1U << (c)))
+#define ANYOF_CLASS_TEST(p, c)	ANYOF_POSIXL_TEST((p), (c))
+
+#define ANYOF_POSIXL_ZERO(ret)	STMT_START { ((regnode_charclass_posixl*) (ret))->classflags = 0; } STMT_END
+#define ANYOF_CLASS_ZERO(ret)	ANYOF_POSIXL_ZERO(ret)
+
+/* Shifts a bit to get, eg. 0x4000_0000, then subtracts 1 to get 0x3FFF_FFFF */
+#define ANYOF_POSIXL_SETALL(ret) STMT_START { ((regnode_charclass_posixl*) (ret))->classflags = ((1U << ((ANYOF_POSIXL_MAX) - 1))) - 1; } STMT_END
+#define ANYOF_CLASS_SETALL(ret) ANYOF_POSIXL_SETALL(ret)
+
+#define ANYOF_POSIXL_TEST_ANY_SET(p)                               \
+        ((ANYOF_FLAGS(p) & ANYOF_MATCHES_POSIXL)                           \
+	 && (((regnode_charclass_posixl*)(p))->classflags))
+#define ANYOF_CLASS_TEST_ANY_SET(p) ANYOF_POSIXL_TEST_ANY_SET(p)
+
+/* Since an SSC always has this field, we don't have to test for that; nor do
+ * we want to because the bit isn't set for SSC during its construction */
+#define ANYOF_POSIXL_SSC_TEST_ANY_SET(p)                               \
+                            cBOOL(((regnode_ssc*)(p))->classflags)
+#define ANYOF_POSIXL_SSC_TEST_ALL_SET(p) /* Are all bits set? */       \
+        (((regnode_ssc*) (p))->classflags                              \
+                        == ((1U << ((ANYOF_POSIXL_MAX) - 1))) - 1)
+
+#define ANYOF_POSIXL_TEST_ALL_SET(p)                                   \
+        ((ANYOF_FLAGS(p) & ANYOF_MATCHES_POSIXL)                               \
+         && ((regnode_charclass_posixl*) (p))->classflags              \
+                        == ((1U << ((ANYOF_POSIXL_MAX) - 1))) - 1)
+
+#define ANYOF_POSIXL_OR(source, dest) STMT_START { (dest)->classflags |= (source)->classflags ; } STMT_END
+#define ANYOF_CLASS_OR(source, dest) ANYOF_POSIXL_OR((source), (dest))
+
+#define ANYOF_POSIXL_AND(source, dest) STMT_START { (dest)->classflags &= (source)->classflags ; } STMT_END
+
+#define ANYOF_BITMAP_ZERO(ret)	Zero(((regnode_charclass*)(ret))->bitmap, ANYOF_BITMAP_SIZE, char)
+#define ANYOF_BITMAP(p)		((regnode_charclass*)(p))->bitmap
+#define ANYOF_BITMAP_BYTE(p, c)	BITMAP_BYTE(ANYOF_BITMAP(p), c)
+#define ANYOF_BITMAP_SET(p, c)	(ANYOF_BITMAP_BYTE(p, c) |=  ANYOF_BIT(c))
+#define ANYOF_BITMAP_CLEAR(p,c)	(ANYOF_BITMAP_BYTE(p, c) &= ~ANYOF_BIT(c))
+#define ANYOF_BITMAP_TEST(p, c)	cBOOL(ANYOF_BITMAP_BYTE(p, c) &   ANYOF_BIT(c))
+
+#define ANYOF_BITMAP_SETALL(p)		\
+	memset (ANYOF_BITMAP(p), 255, ANYOF_BITMAP_SIZE)
+#define ANYOF_BITMAP_CLEARALL(p)	\
+	Zero (ANYOF_BITMAP(p), ANYOF_BITMAP_SIZE)
+
+#define ANYOF_SKIP		EXTRA_SIZE(regnode_charclass)
+#define ANYOF_POSIXL_SKIP	EXTRA_SIZE(regnode_charclass_posixl)
+
+/*
+ * Utility definitions.
+ */
+#ifndef CHARMASK
+#  define UCHARAT(p)	((int)*(const U8*)(p))
+#else
+#  define UCHARAT(p)	((int)*(p)&CHARMASK)
+#endif
+
+#define EXTRA_SIZE(guy) ((sizeof(guy)-1)/sizeof(struct regnode))
+
+#define REG_ZERO_LEN_SEEN                   0x00000001
+#define REG_LOOKBEHIND_SEEN                 0x00000002
+#define REG_GPOS_SEEN                       0x00000004
+/* spare */
+#define REG_RECURSE_SEEN                    0x00000020
+#define REG_TOP_LEVEL_BRANCHES_SEEN         0x00000040
+#define REG_VERBARG_SEEN                    0x00000080
+#define REG_CUTGROUP_SEEN                   0x00000100
+#define REG_RUN_ON_COMMENT_SEEN             0x00000200
+#define REG_UNFOLDED_MULTI_SEEN             0x00000400
+/* spare */
+#define REG_UNBOUNDED_QUANTIFIER_SEEN       0x00001000
+
+
+START_EXTERN_C
+
+#ifdef PLUGGABLE_RE_EXTENSION
+#include "re_nodes.h"
+#else
+#include "regnodes.h"
+#endif
+
+#ifndef PLUGGABLE_RE_EXTENSION
+#ifndef DOINIT
+EXTCONST regexp_engine PL_core_reg_engine;
+#else /* DOINIT */
+EXTCONST regexp_engine PL_core_reg_engine = { 
+        Perl_re_compile,
+        Perl_regexec_flags,
+        Perl_re_intuit_start,
+        Perl_re_intuit_string, 
+        Perl_regfree_internal,
+        Perl_reg_numbered_buff_fetch,
+        Perl_reg_numbered_buff_store,
+        Perl_reg_numbered_buff_length,
+        Perl_reg_named_buff,
+        Perl_reg_named_buff_iter,
+        Perl_reg_qr_package,
+#if defined(USE_ITHREADS)        
+        Perl_regdupe_internal,
+#endif        
+        Perl_re_op_compile
+};
+#endif /* DOINIT */
+#endif /* PLUGGABLE_RE_EXTENSION */
+
+
+END_EXTERN_C
+
+
+/* .what is a character array with one character for each member of .data
+ * The character describes the function of the corresponding .data item:
+ *   a - AV for paren_name_list under DEBUGGING
+ *   f - start-class data for regstclass optimization
+ *   l - start op for literal (?{EVAL}) item
+ *   L - start op for literal (?{EVAL}) item, with separate CV (qr//)
+ *   r - pointer to an embedded code-containing qr, e.g. /ab$qr/
+ *   s - swash for Unicode-style character class, and the multicharacter
+ *       strings resulting from casefolding the single-character entries
+ *       in the character class
+ *   t - trie struct
+ *   u - trie struct's widecharmap (a HV, so can't share, must dup)
+ *       also used for revcharmap and words under DEBUGGING
+ *   T - aho-trie struct
+ *   S - sv for named capture lookup
+ * 20010712 mjd@plover.com
+ * (Remember to update re_dup() and pregfree() if you add any items.)
+ */
+struct reg_data {
+    U32 count;
+    U8 *what;
+    void* data[1];
+};
+
+/* Code in S_to_utf8_substr() and S_to_byte_substr() in regexec.c accesses
+   anchored* and float* via array indexes 0 and 1.  */
+#define anchored_substr substrs->data[0].substr
+#define anchored_utf8 substrs->data[0].utf8_substr
+#define anchored_offset substrs->data[0].min_offset
+#define anchored_end_shift substrs->data[0].end_shift
+
+#define float_substr substrs->data[1].substr
+#define float_utf8 substrs->data[1].utf8_substr
+#define float_min_offset substrs->data[1].min_offset
+#define float_max_offset substrs->data[1].max_offset
+#define float_end_shift substrs->data[1].end_shift
+
+#define check_substr substrs->data[2].substr
+#define check_utf8 substrs->data[2].utf8_substr
+#define check_offset_min substrs->data[2].min_offset
+#define check_offset_max substrs->data[2].max_offset
+#define check_end_shift substrs->data[2].end_shift
+
+#define RX_ANCHORED_SUBSTR(rx)	(ReANY(rx)->anchored_substr)
+#define RX_ANCHORED_UTF8(rx)	(ReANY(rx)->anchored_utf8)
+#define RX_FLOAT_SUBSTR(rx)	(ReANY(rx)->float_substr)
+#define RX_FLOAT_UTF8(rx)	(ReANY(rx)->float_utf8)
+
+/* trie related stuff */
+
+/* a transition record for the state machine. the
+   check field determines which state "owns" the
+   transition. the char the transition is for is
+   determined by offset from the owning states base
+   field.  the next field determines which state
+   is to be transitioned to if any.
+*/
+struct _reg_trie_trans {
+  U32 next;
+  U32 check;
+};
+
+/* a transition list element for the list based representation */
+struct _reg_trie_trans_list_elem {
+    U16 forid;
+    U32 newstate;
+};
+typedef struct _reg_trie_trans_list_elem reg_trie_trans_le;
+
+/* a state for compressed nodes. base is an offset
+  into an array of reg_trie_trans array. If wordnum is
+  nonzero the state is accepting. if base is zero then
+  the state has no children (and will be accepting)
+*/
+struct _reg_trie_state {
+  U16 wordnum;
+  union {
+    U32                base;
+    reg_trie_trans_le* list;
+  } trans;
+};
+
+/* info per word; indexed by wordnum */
+typedef struct {
+    U16  prev;	/* previous word in acceptance chain; eg in
+		 * zzz|abc|ab/ after matching the chars abc, the
+		 * accepted word is #2, and the previous accepted
+		 * word is #3 */
+    U32 len;	/* how many chars long is this word? */
+    U32 accept;	/* accept state for this word */
+} reg_trie_wordinfo;
+
+
+typedef struct _reg_trie_state    reg_trie_state;
+typedef struct _reg_trie_trans    reg_trie_trans;
+
+
+/* anything in here that needs to be freed later
+   should be dealt with in pregfree.
+   refcount is first in both this and _reg_ac_data to allow a space
+   optimisation in Perl_regdupe.  */
+struct _reg_trie_data {
+    U32             refcount;        /* number of times this trie is referenced */
+    U32             lasttrans;       /* last valid transition element */
+    U16             *charmap;        /* byte to charid lookup array */
+    reg_trie_state  *states;         /* state data */
+    reg_trie_trans  *trans;          /* array of transition elements */
+    char            *bitmap;         /* stclass bitmap */
+    U16 	    *jump;           /* optional 1 indexed array of offsets before tail 
+                                        for the node following a given word. */
+    reg_trie_wordinfo *wordinfo;     /* array of info per word */
+    U16             uniquecharcount; /* unique chars in trie (width of trans table) */
+    U32             startstate;      /* initial state - used for common prefix optimisation */
+    STRLEN          minlen;          /* minimum length of words in trie - build/opt only? */
+    STRLEN          maxlen;          /* maximum length of words in trie - build/opt only? */
+    U32             prefixlen;       /* #chars in common prefix */
+    U32             statecount;      /* Build only - number of states in the states array 
+                                        (including the unused zero state) */
+    U32             wordcount;       /* Build only */
+#ifdef DEBUGGING
+    STRLEN          charcount;       /* Build only */
+#endif
+};
+/* There is one (3 under DEBUGGING) pointers that logically belong in this
+   structure, but are held outside as they need duplication on thread cloning,
+   whereas the rest of the structure can be read only:
+    HV              *widecharmap;    code points > 255 to charid
+#ifdef DEBUGGING
+    AV              *words;          Array of words contained in trie, for dumping
+    AV              *revcharmap;     Map of each charid back to its character representation
+#endif
+*/
+
+#define TRIE_WORDS_OFFSET 2
+
+typedef struct _reg_trie_data reg_trie_data;
+
+/* refcount is first in both this and _reg_trie_data to allow a space
+   optimisation in Perl_regdupe.  */
+struct _reg_ac_data {
+    U32              refcount;
+    U32              trie;
+    U32              *fail;
+    reg_trie_state   *states;
+};
+typedef struct _reg_ac_data reg_ac_data;
+
+/* ANY_BIT doesn't use the structure, so we can borrow it here.
+   This is simpler than refactoring all of it as wed end up with
+   three different sets... */
+
+#define TRIE_BITMAP(p)		(((reg_trie_data *)(p))->bitmap)
+#define TRIE_BITMAP_BYTE(p, c)	BITMAP_BYTE(TRIE_BITMAP(p), c)
+#define TRIE_BITMAP_SET(p, c)	(TRIE_BITMAP_BYTE(p, c) |=  ANYOF_BIT((U8)c))
+#define TRIE_BITMAP_CLEAR(p,c)	(TRIE_BITMAP_BYTE(p, c) &= ~ANYOF_BIT((U8)c))
+#define TRIE_BITMAP_TEST(p, c)	(TRIE_BITMAP_BYTE(p, c) &   ANYOF_BIT((U8)c))
+
+#define IS_ANYOF_TRIE(op) ((op)==TRIEC || (op)==AHOCORASICKC)
+#define IS_TRIE_AC(op) ((op)>=AHOCORASICK)
+
+
+#define BITMAP_BYTE(p, c)	(( (U8*) p) [ ( ( (UV) (c)) >> 3) ] )
+#define BITMAP_TEST(p, c)	(BITMAP_BYTE(p, c) &   ANYOF_BIT((U8)c))
+
+/* these defines assume uniquecharcount is the correct variable, and state may be evaluated twice */
+#define TRIE_NODENUM(state) (((state)-1)/(trie->uniquecharcount)+1)
+#define SAFE_TRIE_NODENUM(state) ((state) ? (((state)-1)/(trie->uniquecharcount)+1) : (state))
+#define TRIE_NODEIDX(state) ((state) ? (((state)-1)*(trie->uniquecharcount)+1) : (state))
+
+#ifdef DEBUGGING
+#define TRIE_CHARCOUNT(trie) ((trie)->charcount)
+#else
+#define TRIE_CHARCOUNT(trie) (trie_charcount)
+#endif
+
+#define RE_TRIE_MAXBUF_INIT 65536
+#define RE_TRIE_MAXBUF_NAME "\022E_TRIE_MAXBUF"
+#define RE_DEBUG_FLAGS "\022E_DEBUG_FLAGS"
+
+/*
+
+RE_DEBUG_FLAGS is used to control what debug output is emitted
+its divided into three groups of options, some of which interact.
+The three groups are: Compile, Execute, Extra. There is room for a
+further group, as currently only the low three bytes are used.
+
+    Compile Options:
+    
+    PARSE
+    PEEP
+    TRIE
+    PROGRAM
+    OFFSETS
+
+    Execute Options:
+
+    INTUIT
+    MATCH
+    TRIE
+
+    Extra Options
+
+    TRIE
+    OFFSETS
+
+If you modify any of these make sure you make corresponding changes to
+re.pm, especially to the documentation.
+
+*/
+
+
+/* Compile */
+#define RE_DEBUG_COMPILE_MASK      0x0000FF
+#define RE_DEBUG_COMPILE_PARSE     0x000001
+#define RE_DEBUG_COMPILE_OPTIMISE  0x000002
+#define RE_DEBUG_COMPILE_TRIE      0x000004
+#define RE_DEBUG_COMPILE_DUMP      0x000008
+#define RE_DEBUG_COMPILE_FLAGS     0x000010
+#define RE_DEBUG_COMPILE_TEST      0x000020
+
+/* Execute */
+#define RE_DEBUG_EXECUTE_MASK      0x00FF00
+#define RE_DEBUG_EXECUTE_INTUIT    0x000100
+#define RE_DEBUG_EXECUTE_MATCH     0x000200
+#define RE_DEBUG_EXECUTE_TRIE      0x000400
+
+/* Extra */
+#define RE_DEBUG_EXTRA_MASK        0xFF0000
+#define RE_DEBUG_EXTRA_TRIE        0x010000
+#define RE_DEBUG_EXTRA_OFFSETS     0x020000
+#define RE_DEBUG_EXTRA_OFFDEBUG    0x040000
+#define RE_DEBUG_EXTRA_STATE       0x080000
+#define RE_DEBUG_EXTRA_OPTIMISE    0x100000
+#define RE_DEBUG_EXTRA_BUFFERS     0x400000
+#define RE_DEBUG_EXTRA_GPOS        0x800000
+/* combined */
+#define RE_DEBUG_EXTRA_STACK       0x280000
+
+#define RE_DEBUG_FLAG(x) (re_debug_flags & x)
+/* Compile */
+#define DEBUG_COMPILE_r(x) DEBUG_r( \
+    if (re_debug_flags & RE_DEBUG_COMPILE_MASK) x  )
+#define DEBUG_PARSE_r(x) DEBUG_r( \
+    if (re_debug_flags & RE_DEBUG_COMPILE_PARSE) x  )
+#define DEBUG_OPTIMISE_r(x) DEBUG_r( \
+    if (re_debug_flags & RE_DEBUG_COMPILE_OPTIMISE) x  )
+#define DEBUG_PARSE_r(x) DEBUG_r( \
+    if (re_debug_flags & RE_DEBUG_COMPILE_PARSE) x  )
+#define DEBUG_DUMP_r(x) DEBUG_r( \
+    if (re_debug_flags & RE_DEBUG_COMPILE_DUMP) x  )
+#define DEBUG_TRIE_COMPILE_r(x) DEBUG_r( \
+    if (re_debug_flags & RE_DEBUG_COMPILE_TRIE) x )
+#define DEBUG_FLAGS_r(x) DEBUG_r( \
+    if (re_debug_flags & RE_DEBUG_COMPILE_FLAGS) x )
+#define DEBUG_TEST_r(x) DEBUG_r( \
+    if (re_debug_flags & RE_DEBUG_COMPILE_TEST) x )
+/* Execute */
+#define DEBUG_EXECUTE_r(x) DEBUG_r( \
+    if (re_debug_flags & RE_DEBUG_EXECUTE_MASK) x  )
+#define DEBUG_INTUIT_r(x) DEBUG_r( \
+    if (re_debug_flags & RE_DEBUG_EXECUTE_INTUIT) x  )
+#define DEBUG_MATCH_r(x) DEBUG_r( \
+    if (re_debug_flags & RE_DEBUG_EXECUTE_MATCH) x  )
+#define DEBUG_TRIE_EXECUTE_r(x) DEBUG_r( \
+    if (re_debug_flags & RE_DEBUG_EXECUTE_TRIE) x )
+
+/* Extra */
+#define DEBUG_EXTRA_r(x) DEBUG_r( \
+    if (re_debug_flags & RE_DEBUG_EXTRA_MASK) x  )
+#define DEBUG_OFFSETS_r(x) DEBUG_r( \
+    if (re_debug_flags & RE_DEBUG_EXTRA_OFFSETS) x  )
+#define DEBUG_STATE_r(x) DEBUG_r( \
+    if (re_debug_flags & RE_DEBUG_EXTRA_STATE) x )
+#define DEBUG_STACK_r(x) DEBUG_r( \
+    if (re_debug_flags & RE_DEBUG_EXTRA_STACK) x )
+#define DEBUG_BUFFERS_r(x) DEBUG_r( \
+    if (re_debug_flags & RE_DEBUG_EXTRA_BUFFERS) x )
+
+#define DEBUG_OPTIMISE_MORE_r(x) DEBUG_r( \
+    if ((RE_DEBUG_EXTRA_OPTIMISE|RE_DEBUG_COMPILE_OPTIMISE) == \
+         (re_debug_flags & (RE_DEBUG_EXTRA_OPTIMISE|RE_DEBUG_COMPILE_OPTIMISE)) ) x )
+#define MJD_OFFSET_DEBUG(x) DEBUG_r( \
+    if (re_debug_flags & RE_DEBUG_EXTRA_OFFDEBUG) \
+        Perl_warn_nocontext x )
+#define DEBUG_TRIE_COMPILE_MORE_r(x) DEBUG_TRIE_COMPILE_r( \
+    if (re_debug_flags & RE_DEBUG_EXTRA_TRIE) x )
+#define DEBUG_TRIE_EXECUTE_MORE_r(x) DEBUG_TRIE_EXECUTE_r( \
+    if (re_debug_flags & RE_DEBUG_EXTRA_TRIE) x )
+
+#define DEBUG_TRIE_r(x) DEBUG_r( \
+    if (re_debug_flags & (RE_DEBUG_COMPILE_TRIE \
+        | RE_DEBUG_EXECUTE_TRIE )) x )
+#define DEBUG_GPOS_r(x) DEBUG_r( \
+    if (re_debug_flags & RE_DEBUG_EXTRA_GPOS) x )
+
+/* initialization */
+/* get_sv() can return NULL during global destruction. */
+#define GET_RE_DEBUG_FLAGS DEBUG_r({ \
+        SV * re_debug_flags_sv = NULL; \
+        re_debug_flags_sv = PL_curcop ? get_sv(RE_DEBUG_FLAGS, 1) : NULL; \
+        if (re_debug_flags_sv) { \
+            if (!SvIOK(re_debug_flags_sv)) \
+                sv_setuv(re_debug_flags_sv, RE_DEBUG_COMPILE_DUMP | RE_DEBUG_EXECUTE_MASK ); \
+            re_debug_flags=SvIV(re_debug_flags_sv); \
+        }\
+})
+
+#ifdef DEBUGGING
+
+#define GET_RE_DEBUG_FLAGS_DECL VOL IV re_debug_flags  = 0; \
+        PERL_UNUSED_VAR(re_debug_flags); GET_RE_DEBUG_FLAGS;
+
+#define RE_PV_COLOR_DECL(rpv,rlen,isuni,dsv,pv,l,m,c1,c2) \
+    const char * const rpv =                                 \
+        pv_pretty((dsv), (pv), (l),                          \
+            (PL_dump_re_max_len) ? PL_dump_re_max_len : (m), \
+            PL_colors[(c1)],PL_colors[(c2)],                 \
+            PERL_PV_ESCAPE_RE|PERL_PV_ESCAPE_NONASCII |((isuni) ? PERL_PV_ESCAPE_UNI : 0) );         \
+    const int rlen = SvCUR(dsv)
+
+#define RE_SV_ESCAPE(rpv,isuni,dsv,sv,m)                        \
+    const char * const rpv =                                    \
+        pv_pretty((dsv), (SvPV_nolen_const(sv)), (SvCUR(sv)),   \
+            (PL_dump_re_max_len) ? PL_dump_re_max_len : (m),    \
+            PL_colors[(c1)],PL_colors[(c2)],                    \
+            PERL_PV_ESCAPE_RE|PERL_PV_ESCAPE_NONASCII |((isuni) ? PERL_PV_ESCAPE_UNI : 0) )
+
+#define RE_PV_QUOTED_DECL(rpv,isuni,dsv,pv,l,m)                    \
+    const char * const rpv =                                       \
+        pv_pretty((dsv), (pv), (l),                                \
+            (PL_dump_re_max_len) ? PL_dump_re_max_len : (m),       \
+            PL_colors[0], PL_colors[1],                            \
+            ( PERL_PV_PRETTY_QUOTE | PERL_PV_ESCAPE_RE | PERL_PV_ESCAPE_NONASCII | PERL_PV_PRETTY_ELLIPSES | \
+              ((isuni) ? PERL_PV_ESCAPE_UNI : 0))                  \
+        )
+
+#define RE_SV_DUMPLEN(ItEm) (SvCUR(ItEm) - (SvTAIL(ItEm)!=0))
+#define RE_SV_TAIL(ItEm) (SvTAIL(ItEm) ? "$" : "")
+    
+#else /* if not DEBUGGING */
+
+#define GET_RE_DEBUG_FLAGS_DECL
+#define RE_PV_COLOR_DECL(rpv,rlen,isuni,dsv,pv,l,m,c1,c2)
+#define RE_SV_ESCAPE(rpv,isuni,dsv,sv,m)
+#define RE_PV_QUOTED_DECL(rpv,isuni,dsv,pv,l,m)
+#define RE_SV_DUMPLEN(ItEm)
+#define RE_SV_TAIL(ItEm)
+
+#endif /* DEBUG RELATED DEFINES */
+
+typedef enum {
+	TRADITIONAL_BOUND = _CC_WORDCHAR,
+	GCB_BOUND,
+	LB_BOUND,
+	SB_BOUND,
+	WB_BOUND
+} bound_type;
+
+/*
+ * ex: set ts=8 sts=4 sw=4 et:
+ */
diff --git a/lib/5.24.1/x86_64-linux/CORE/regexp.h b/lib/5.24.1/x86_64-linux/CORE/regexp.h
new file mode 100644
index 00000000..78aa8996
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/regexp.h
@@ -0,0 +1,861 @@
+/*    regexp.h
+ *
+ *    Copyright (C) 1993, 1994, 1996, 1997, 1999, 2000, 2001, 2003,
+ *    2005, 2006, 2007, 2008 by Larry Wall and others
+ *
+ *    You may distribute under the terms of either the GNU General Public
+ *    License or the Artistic License, as specified in the README file.
+ *
+ */
+
+/*
+ * Definitions etc. for regexp(3) routines.
+ *
+ * Caveat:  this is V8 regexp(3) [actually, a reimplementation thereof],
+ * not the System V one.
+ */
+#ifndef PLUGGABLE_RE_EXTENSION
+/* we don't want to include this stuff if we are inside of
+   an external regex engine based on the core one - like re 'debug'*/
+
+#include "utf8.h"
+
+struct regnode {
+    U8	flags;
+    U8  type;
+    U16 next_off;
+};
+
+typedef struct regnode regnode;
+
+struct reg_substr_data;
+
+struct reg_data;
+
+struct regexp_engine;
+struct regexp;
+
+struct reg_substr_datum {
+    SSize_t min_offset; /* min pos (in chars) that substr must appear */
+    SSize_t max_offset  /* max pos (in chars) that substr must appear */;
+    SV *substr;		/* non-utf8 variant */
+    SV *utf8_substr;	/* utf8 variant */
+    SSize_t end_shift;  /* how many fixed chars must end the string */
+};
+struct reg_substr_data {
+    U8      check_ix;   /* index into data[] of check substr */
+    struct reg_substr_datum data[3];	/* Actual array */
+};
+
+#ifdef PERL_ANY_COW
+#define SV_SAVED_COPY   SV *saved_copy; /* If non-NULL, SV which is COW from original */
+#else
+#define SV_SAVED_COPY
+#endif
+
+/* offsets within a string of a particular /(.)/ capture */
+
+typedef struct regexp_paren_pair {
+    SSize_t start;
+    SSize_t end;
+    /* 'start_tmp' records a new opening position before the matching end
+     * has been found, so that the old start and end values are still
+     * valid, e.g.
+     *	  "abc" =~ /(.(?{print "[$1]"}))+/
+     *outputs [][a][b]
+     * This field is not part of the API.  */
+    SSize_t start_tmp;
+} regexp_paren_pair;
+
+#if defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_UTF8_C)
+#define _invlist_union(a, b, output) _invlist_union_maybe_complement_2nd(a, b, FALSE, output)
+#define _invlist_intersection(a, b, output) _invlist_intersection_maybe_complement_2nd(a, b, FALSE, output)
+
+/* Subtracting b from a leaves in a everything that was there that isn't in b,
+ * that is the intersection of a with b's complement */
+#define _invlist_subtract(a, b, output) _invlist_intersection_maybe_complement_2nd(a, b, TRUE, output)
+#endif
+
+/* record the position of a (?{...}) within a pattern */
+
+struct reg_code_block {
+    STRLEN start;
+    STRLEN end;
+    OP     *block;
+    REGEXP *src_regex;
+};
+
+
+/*
+  The regexp/REGEXP struct, see L<perlreapi> for further documentation
+  on the individual fields. The struct is ordered so that the most
+  commonly used fields are placed at the start.
+
+  Any patch that adds items to this struct will need to include
+  changes to F<sv.c> (C<Perl_re_dup()>) and F<regcomp.c>
+  (C<pregfree()>). This involves freeing or cloning items in the
+  regexp's data array based on the data item's type.
+*/
+
+#define _REGEXP_COMMON							\
+        /* what engine created this regexp? */				\
+	const struct regexp_engine* engine; 				\
+	REGEXP *mother_re; /* what re is this a lightweight copy of? */	\
+	HV *paren_names;   /* Optional hash of paren names */		\
+        /*--------------------------------------------------------*/    \
+	/* Information about the match that the perl core uses to */	\
+	/* manage things */						\
+	U32 extflags;	/* Flags used both externally and internally */	\
+	SSize_t minlen;	/* mininum possible number of chars in string to match */\
+	SSize_t minlenret; /* mininum possible number of chars in $& */		\
+	STRLEN gofs;	/* chars left of pos that we search from */	\
+	/* substring data about strings that must appear in the */	\
+	/* final match, used for optimisations */			\
+	struct reg_substr_data *substrs;				\
+	U32 nparens;	/* number of capture buffers */			\
+	/* private engine specific data */				\
+	U32 intflags;	/* Engine Specific Internal flags */		\
+	void *pprivate;	/* Data private to the regex engine which */	\
+			/* created this object. */			\
+        /*--------------------------------------------------------*/    \
+	/* Data about the last/current match. These are modified */	\
+	/* during matching */						\
+	U32 lastparen;			/* last open paren matched */	\
+	U32 lastcloseparen;		/* last close paren matched */	\
+	/* Array of offsets for (@-) and (@+) */			\
+	regexp_paren_pair *offs;					\
+        char **recurse_locinput; /* used to detect infinite recursion, XXX: move to internal */ \
+        /*--------------------------------------------------------*/    \
+	/* saved or original string so \digit works forever. */		\
+	char *subbeg;							\
+	SV_SAVED_COPY	/* If non-NULL, SV which is COW from original */\
+	SSize_t sublen;	/* Length of string pointed by subbeg */	\
+	SSize_t suboffset; /* byte offset of subbeg from logical start of str */ \
+	SSize_t subcoffset; /* suboffset equiv, but in chars (for @-/@+) */ \
+	/* Information about the match that isn't often used */		\
+        SSize_t maxlen;        /* mininum possible number of chars in string to match */\
+        /*--------------------------------------------------------*/    \
+	/* offset from wrapped to the start of precomp */		\
+	PERL_BITFIELD32 pre_prefix:4;					\
+        /* original flags used to compile the pattern, may differ */    \
+        /* from extflags in various ways */                             \
+        PERL_BITFIELD32 compflags:9;                                    \
+        /*--------------------------------------------------------*/    \
+	CV *qr_anoncv	/* the anon sub wrapped round qr/(?{..})/ */
+
+typedef struct regexp {
+	_XPV_HEAD;
+	_REGEXP_COMMON;
+} regexp;
+
+#define RXp_PAREN_NAMES(rx)	((rx)->paren_names)
+
+/* used for high speed searches */
+typedef struct re_scream_pos_data_s
+{
+    char **scream_olds;		/* match pos */
+    SSize_t *scream_pos;	/* Internal iterator of scream. */
+} re_scream_pos_data;
+
+/* regexp_engine structure. This is the dispatch table for regexes.
+ * Any regex engine implementation must be able to build one of these.
+ */
+typedef struct regexp_engine {
+    REGEXP* (*comp) (pTHX_ SV * const pattern, U32 flags);
+    I32     (*exec) (pTHX_ REGEXP * const rx, char* stringarg, char* strend,
+                     char* strbeg, SSize_t minend, SV* sv,
+                     void* data, U32 flags);
+    char*   (*intuit) (pTHX_
+                        REGEXP * const rx,
+                        SV *sv,
+                        const char * const strbeg,
+                        char *strpos,
+                        char *strend,
+                        const U32 flags,
+                       re_scream_pos_data *data);
+    SV*     (*checkstr) (pTHX_ REGEXP * const rx);
+    void    (*rxfree) (pTHX_ REGEXP * const rx);
+    void    (*numbered_buff_FETCH) (pTHX_ REGEXP * const rx, const I32 paren,
+                                    SV * const sv);
+    void    (*numbered_buff_STORE) (pTHX_ REGEXP * const rx, const I32 paren,
+                                   SV const * const value);
+    I32     (*numbered_buff_LENGTH) (pTHX_ REGEXP * const rx, const SV * const sv,
+                                    const I32 paren);
+    SV*     (*named_buff) (pTHX_ REGEXP * const rx, SV * const key,
+                           SV * const value, const U32 flags);
+    SV*     (*named_buff_iter) (pTHX_ REGEXP * const rx, const SV * const lastkey,
+                                const U32 flags);
+    SV*     (*qr_package)(pTHX_ REGEXP * const rx);
+#ifdef USE_ITHREADS
+    void*   (*dupe) (pTHX_ REGEXP * const rx, CLONE_PARAMS *param);
+#endif
+    REGEXP* (*op_comp) (pTHX_ SV ** const patternp, int pat_count,
+		    OP *expr, const struct regexp_engine* eng,
+		    REGEXP *old_re,
+		    bool *is_bare_re, U32 orig_rx_flags, U32 pm_flags);
+} regexp_engine;
+
+/*
+  These are passed to the numbered capture variable callbacks as the
+  paren name. >= 1 is reserved for actual numbered captures, i.e. $1,
+  $2 etc.
+*/
+#define RX_BUFF_IDX_CARET_PREMATCH  -5 /* ${^PREMATCH}  */
+#define RX_BUFF_IDX_CARET_POSTMATCH -4 /* ${^POSTMATCH} */
+#define RX_BUFF_IDX_CARET_FULLMATCH -3 /* ${^MATCH}     */
+#define RX_BUFF_IDX_PREMATCH        -2 /* $` */
+#define RX_BUFF_IDX_POSTMATCH       -1 /* $' */
+#define RX_BUFF_IDX_FULLMATCH        0 /* $& */
+
+/*
+  Flags that are passed to the named_buff and named_buff_iter
+  callbacks above. Those routines are called from universal.c via the
+  Tie::Hash::NamedCapture interface for %+ and %- and the re::
+  functions in the same file.
+*/
+
+/* The Tie::Hash::NamedCapture operation this is part of, if any */
+#define RXapif_FETCH     0x0001
+#define RXapif_STORE     0x0002
+#define RXapif_DELETE    0x0004
+#define RXapif_CLEAR     0x0008
+#define RXapif_EXISTS    0x0010
+#define RXapif_SCALAR    0x0020
+#define RXapif_FIRSTKEY  0x0040
+#define RXapif_NEXTKEY   0x0080
+
+/* Whether %+ or %- is being operated on */
+#define RXapif_ONE       0x0100 /* %+ */
+#define RXapif_ALL       0x0200 /* %- */
+
+/* Whether this is being called from a re:: function */
+#define RXapif_REGNAME         0x0400
+#define RXapif_REGNAMES        0x0800
+#define RXapif_REGNAMES_COUNT  0x1000
+
+/*
+=head1 REGEXP Functions
+
+=for apidoc Am|REGEXP *|SvRX|SV *sv
+
+Convenience macro to get the REGEXP from a SV.  This is approximately
+equivalent to the following snippet:
+
+    if (SvMAGICAL(sv))
+        mg_get(sv);
+    if (SvROK(sv))
+        sv = MUTABLE_SV(SvRV(sv));
+    if (SvTYPE(sv) == SVt_REGEXP)
+        return (REGEXP*) sv;
+
+C<NULL> will be returned if a REGEXP* is not found.
+
+=for apidoc Am|bool|SvRXOK|SV* sv
+
+Returns a boolean indicating whether the SV (or the one it references)
+is a REGEXP.
+
+If you want to do something with the REGEXP* later use SvRX instead
+and check for NULL.
+
+=cut
+*/
+
+#define SvRX(sv)   (Perl_get_re_arg(aTHX_ sv))
+#define SvRXOK(sv) (Perl_get_re_arg(aTHX_ sv) ? TRUE : FALSE)
+
+
+/* Flags stored in regexp->extflags
+ * These are used by code external to the regexp engine
+ *
+ * Note that the flags whose names start with RXf_PMf_ are defined in
+ * op_reg_common.h, being copied from the parallel flags of op_pmflags
+ *
+ * NOTE: if you modify any RXf flags you should run regen.pl or
+ * regen/regcomp.pl so that regnodes.h is updated with the changes.
+ *
+ */
+
+#include "op_reg_common.h"
+
+#define RXf_PMf_STD_PMMOD	(RXf_PMf_MULTILINE|RXf_PMf_SINGLELINE|RXf_PMf_FOLD|RXf_PMf_EXTENDED|RXf_PMf_NOCAPTURE)
+
+#define CASE_STD_PMMOD_FLAGS_PARSE_SET(pmfl, x_count)                       \
+    case IGNORE_PAT_MOD:    *(pmfl) |= RXf_PMf_FOLD;       break;           \
+    case MULTILINE_PAT_MOD: *(pmfl) |= RXf_PMf_MULTILINE;  break;           \
+    case SINGLE_PAT_MOD:    *(pmfl) |= RXf_PMf_SINGLELINE; break;           \
+    case XTENDED_PAT_MOD:   *(pmfl) |= RXf_PMf_EXTENDED; (x_count)++; break;\
+    case NOCAPTURE_PAT_MOD: *(pmfl) |= RXf_PMf_NOCAPTURE; break;
+
+#define STD_PMMOD_FLAGS_PARSE_X_WARN(x_count)                                   \
+    if (UNLIKELY((x_count) > 1)) {                                              \
+        Perl_ck_warner_d(aTHX_ packWARN2(WARN_DEPRECATED, WARN_REGEXP),         \
+                    "Having more than one /%c regexp modifier is deprecated",   \
+                    XTENDED_PAT_MOD);                                           \
+    }
+
+/* Note, includes charset ones, assumes 0 is the default for them */
+#define STD_PMMOD_FLAGS_CLEAR(pmfl)                        \
+    *(pmfl) &= ~(RXf_PMf_FOLD|RXf_PMf_MULTILINE|RXf_PMf_SINGLELINE|RXf_PMf_EXTENDED|RXf_PMf_CHARSET|RXf_PMf_NOCAPTURE)
+
+/* chars and strings used as regex pattern modifiers
+ * Singular is a 'c'har, plural is a "string"
+ *
+ * NOTE, KEEPCOPY was originally 'k', but was changed to 'p' for preserve
+ * for compatibility reasons with Regexp::Common which highjacked (?k:...)
+ * for its own uses. So 'k' is out as well.
+ */
+#define DEFAULT_PAT_MOD      '^'    /* Short for all the default modifiers */
+#define EXEC_PAT_MOD         'e'
+#define KEEPCOPY_PAT_MOD     'p'
+#define NOCAPTURE_PAT_MOD    'n'
+#define ONCE_PAT_MOD         'o'
+#define GLOBAL_PAT_MOD       'g'
+#define CONTINUE_PAT_MOD     'c'
+#define MULTILINE_PAT_MOD    'm'
+#define SINGLE_PAT_MOD       's'
+#define IGNORE_PAT_MOD       'i'
+#define XTENDED_PAT_MOD      'x'
+#define NONDESTRUCT_PAT_MOD  'r'
+#define LOCALE_PAT_MOD       'l'
+#define UNICODE_PAT_MOD      'u'
+#define DEPENDS_PAT_MOD      'd'
+#define ASCII_RESTRICT_PAT_MOD 'a'
+
+#define ONCE_PAT_MODS        "o"
+#define KEEPCOPY_PAT_MODS    "p"
+#define NOCAPTURE_PAT_MODS   "n"
+#define EXEC_PAT_MODS        "e"
+#define LOOP_PAT_MODS        "gc"
+#define NONDESTRUCT_PAT_MODS "r"
+#define LOCALE_PAT_MODS      "l"
+#define UNICODE_PAT_MODS     "u"
+#define DEPENDS_PAT_MODS     "d"
+#define ASCII_RESTRICT_PAT_MODS "a"
+#define ASCII_MORE_RESTRICT_PAT_MODS "aa"
+
+/* This string is expected by regcomp.c to be ordered so that the first
+ * character is the flag in bit RXf_PMf_STD_PMMOD_SHIFT of extflags; the next
+ * character is bit +1, etc. */
+#define STD_PAT_MODS        "msixxn"
+
+#define CHARSET_PAT_MODS    ASCII_RESTRICT_PAT_MODS DEPENDS_PAT_MODS LOCALE_PAT_MODS UNICODE_PAT_MODS
+
+/* This string is expected by XS_re_regexp_pattern() in universal.c to be ordered
+ * so that the first character is the flag in bit RXf_PMf_STD_PMMOD_SHIFT of
+ * extflags; the next character is in bit +1, etc. */
+#define INT_PAT_MODS    STD_PAT_MODS    KEEPCOPY_PAT_MODS
+
+#define EXT_PAT_MODS    ONCE_PAT_MODS   KEEPCOPY_PAT_MODS  NOCAPTURE_PAT_MODS
+#define QR_PAT_MODS     STD_PAT_MODS    EXT_PAT_MODS	   CHARSET_PAT_MODS
+#define M_PAT_MODS      QR_PAT_MODS     LOOP_PAT_MODS
+#define S_PAT_MODS      M_PAT_MODS      EXEC_PAT_MODS      NONDESTRUCT_PAT_MODS
+
+/*
+ * NOTE: if you modify any RXf flags you should run regen.pl or
+ * regen/regcomp.pl so that regnodes.h is updated with the changes.
+ *
+ */
+
+/*
+  Set in Perl_pmruntime if op_flags & OPf_SPECIAL, i.e. split. Will
+  be used by regex engines to check whether they should set
+  RXf_SKIPWHITE
+*/
+#define RXf_SPLIT   RXf_PMf_SPLIT
+
+/* Currently the regex flags occupy a single 32-bit word.  Not all bits are
+ * currently used.  The lower bits are shared with their corresponding PMf flag
+ * bits, up to but not including _RXf_PMf_SHIFT_NEXT.  The unused bits
+ * immediately follow; finally the used RXf-only (unshared) bits, so that the
+ * highest bit in the word is used.  This gathers all the unused bits as a pool
+ * in the middle, like so: 11111111111111110000001111111111
+ * where the '1's represent used bits, and the '0's unused.  This design allows
+ * us to allocate off one end of the pool if we need to add a shared bit, and
+ * off the other end if we need a non-shared bit, without disturbing the other
+ * bits.  This maximizes the likelihood of being able to change things without
+ * breaking binary compatibility.
+ *
+ * To add shared bits, do so in op_reg_common.h.  This should change
+ * _RXf_PMf_SHIFT_NEXT so that things won't compile.  Then come to regexp.h and
+ * op.h and adjust the constant adders in the definitions of RXf_BASE_SHIFT and
+ * Pmf_BASE_SHIFT down by the number of shared bits you added.  That's it.
+ * Things should be binary compatible.  But if either of these gets to having
+ * to subtract rather than add, leave at 0 and instead adjust all the entries
+ * that are in terms of it.  But if the first one of those is already
+ * RXf_BASE_SHIFT+0, there are no bits left, and a redesign is in order.
+ *
+ * To remove unshared bits, just delete its entry.  If you're where breaking
+ * binary compatibility is ok to do, you might want to adjust things to move
+ * the newly opened space so that it gets absorbed into the common pool.
+ *
+ * To add unshared bits, first use up any gaps in the middle.  Otherwise,
+ * allocate off the low end until you get to RXf_BASE_SHIFT+0.  If that isn't
+ * enough, move RXf_BASE_SHIFT down (if possible) and add the new bit at the
+ * other end instead; this preserves binary compatibility.
+ *
+ * For the regexp bits, PL_reg_extflags_name[] in regnodes.h has a comment
+ * giving which bits are used/unused */
+
+#define RXf_BASE_SHIFT (_RXf_PMf_SHIFT_NEXT + 2)
+
+/* What we have seen */
+#define RXf_NO_INPLACE_SUBST    (1U<<(RXf_BASE_SHIFT+2))
+#define RXf_EVAL_SEEN   	(1U<<(RXf_BASE_SHIFT+3))
+
+/* Special */
+#define RXf_UNBOUNDED_QUANTIFIER_SEEN   (1U<<(RXf_BASE_SHIFT+4))
+#define RXf_CHECK_ALL   	(1U<<(RXf_BASE_SHIFT+5))
+
+/* UTF8 related */
+#define RXf_MATCH_UTF8  	(1U<<(RXf_BASE_SHIFT+6)) /* $1 etc are utf8 */
+
+/* Intuit related */
+#define RXf_USE_INTUIT_NOML	(1U<<(RXf_BASE_SHIFT+7))
+#define RXf_USE_INTUIT_ML	(1U<<(RXf_BASE_SHIFT+8))
+#define RXf_INTUIT_TAIL 	(1U<<(RXf_BASE_SHIFT+9))
+#define RXf_USE_INTUIT		(RXf_USE_INTUIT_NOML|RXf_USE_INTUIT_ML)
+
+/* Do we have some sort of anchor? */
+#define RXf_IS_ANCHORED         (1U<<(RXf_BASE_SHIFT+10))
+
+/* Copy and tainted info */
+#define RXf_COPY_DONE   	(1U<<(RXf_BASE_SHIFT+11))
+
+/* post-execution: $1 et al are tainted */
+#define RXf_TAINTED_SEEN	(1U<<(RXf_BASE_SHIFT+12))
+/* this pattern was tainted during compilation */
+#define RXf_TAINTED		(1U<<(RXf_BASE_SHIFT+13))
+
+/* Flags indicating special patterns */
+#define RXf_START_ONLY		(1U<<(RXf_BASE_SHIFT+14)) /* Pattern is /^/ */
+#define RXf_SKIPWHITE           (1U<<(RXf_BASE_SHIFT+15)) /* Pattern is for a */
+                                                          /* split " " */
+#define RXf_WHITE		(1U<<(RXf_BASE_SHIFT+16)) /* Pattern is /\s+/ */
+#define RXf_NULL		(1U<<(RXf_BASE_SHIFT+17)) /* Pattern is // */
+
+/* See comments at the beginning of these defines about adding bits.  The
+ * highest bit position should be used, so that if RXf_BASE_SHIFT gets
+ * increased, the #error below will be triggered so that you will be reminded
+ * to adjust things at the other end to keep the bit positions unchanged */
+#if RXf_BASE_SHIFT+17 > 31
+#   error Too many RXf_PMf bits used.  See comments at beginning of these for what to do
+#endif
+
+/*
+ * NOTE: if you modify any RXf flags you should run regen.pl or
+ * regen/regcomp.pl so that regnodes.h is updated with the changes.
+ *
+ */
+
+#ifdef NO_TAINT_SUPPORT
+#   define RX_ISTAINTED(prog)    0
+#   define RX_TAINT_on(prog)     NOOP
+#   define RXp_MATCH_TAINTED(prog) 0
+#   define RX_MATCH_TAINTED(prog)  0
+#   define RXp_MATCH_TAINTED_on(prog) NOOP
+#   define RX_MATCH_TAINTED_on(prog)  NOOP
+#   define RX_MATCH_TAINTED_off(prog) NOOP
+#else
+#   define RX_ISTAINTED(prog)    (RX_EXTFLAGS(prog) & RXf_TAINTED)
+#   define RX_TAINT_on(prog)     (RX_EXTFLAGS(prog) |= RXf_TAINTED)
+#   define RXp_MATCH_TAINTED(prog)    (RXp_EXTFLAGS(prog) & RXf_TAINTED_SEEN)
+#   define RX_MATCH_TAINTED(prog)     (RX_EXTFLAGS(prog)  & RXf_TAINTED_SEEN)
+#   define RXp_MATCH_TAINTED_on(prog) (RXp_EXTFLAGS(prog) |= RXf_TAINTED_SEEN)
+#   define RX_MATCH_TAINTED_on(prog)  (RX_EXTFLAGS(prog)  |= RXf_TAINTED_SEEN)
+#   define RX_MATCH_TAINTED_off(prog) (RX_EXTFLAGS(prog)  &= ~RXf_TAINTED_SEEN)
+#endif
+
+#define RX_HAS_CUTGROUP(prog) ((prog)->intflags & PREGf_CUTGROUP_SEEN)
+#define RX_MATCH_TAINTED_set(prog, t) ((t) \
+				       ? RX_MATCH_TAINTED_on(prog) \
+				       : RX_MATCH_TAINTED_off(prog))
+
+#define RXp_MATCH_COPIED(prog)		(RXp_EXTFLAGS(prog) & RXf_COPY_DONE)
+#define RX_MATCH_COPIED(prog)		(RX_EXTFLAGS(prog) & RXf_COPY_DONE)
+#define RXp_MATCH_COPIED_on(prog)	(RXp_EXTFLAGS(prog) |= RXf_COPY_DONE)
+#define RX_MATCH_COPIED_on(prog)	(RX_EXTFLAGS(prog) |= RXf_COPY_DONE)
+#define RXp_MATCH_COPIED_off(prog)	(RXp_EXTFLAGS(prog) &= ~RXf_COPY_DONE)
+#define RX_MATCH_COPIED_off(prog)	(RX_EXTFLAGS(prog) &= ~RXf_COPY_DONE)
+#define RX_MATCH_COPIED_set(prog,t)	((t) \
+					 ? RX_MATCH_COPIED_on(prog) \
+					 : RX_MATCH_COPIED_off(prog))
+
+#define RXp_EXTFLAGS(rx)	((rx)->extflags)
+#define RXp_COMPFLAGS(rx)        ((rx)->compflags)
+
+/* For source compatibility. We used to store these explicitly.  */
+#define RX_PRECOMP(prog)	(RX_WRAPPED(prog) + ReANY(prog)->pre_prefix)
+#define RX_PRECOMP_const(prog)	(RX_WRAPPED_const(prog) + ReANY(prog)->pre_prefix)
+/* FIXME? Are we hardcoding too much here and constraining plugin extension
+   writers? Specifically, the value 1 assumes that the wrapped version always
+   has exactly one character at the end, a ')'. Will that always be true?  */
+#define RX_PRELEN(prog)		(RX_WRAPLEN(prog) - ReANY(prog)->pre_prefix - 1)
+#define RX_WRAPPED(prog)	ReANY(prog)->xpv_len_u.xpvlenu_pv
+#define RX_WRAPPED_const(prog)	((const char *)RX_WRAPPED(prog))
+#define RX_WRAPLEN(prog)	SvCUR(prog)
+#define RX_CHECK_SUBSTR(prog)	(ReANY(prog)->check_substr)
+#define RX_REFCNT(prog)		SvREFCNT(prog)
+#define RX_EXTFLAGS(prog)	RXp_EXTFLAGS(ReANY(prog))
+#define RX_COMPFLAGS(prog)        RXp_COMPFLAGS(ReANY(prog))
+#define RX_ENGINE(prog)		(ReANY(prog)->engine)
+#define RX_SUBBEG(prog)		(ReANY(prog)->subbeg)
+#define RX_SUBOFFSET(prog)	(ReANY(prog)->suboffset)
+#define RX_SUBCOFFSET(prog)	(ReANY(prog)->subcoffset)
+#define RX_OFFS(prog)		(ReANY(prog)->offs)
+#define RX_NPARENS(prog)	(ReANY(prog)->nparens)
+#define RX_SUBLEN(prog)		(ReANY(prog)->sublen)
+#define RX_MINLEN(prog)		(ReANY(prog)->minlen)
+#define RX_MINLENRET(prog)	(ReANY(prog)->minlenret)
+#define RX_GOFS(prog)		(ReANY(prog)->gofs)
+#define RX_LASTPAREN(prog)	(ReANY(prog)->lastparen)
+#define RX_LASTCLOSEPAREN(prog)	(ReANY(prog)->lastcloseparen)
+#define RX_SAVED_COPY(prog)	(ReANY(prog)->saved_copy)
+/* last match was zero-length */
+#define RX_ZERO_LEN(prog) \
+        (RX_OFFS(prog)[0].start + (SSize_t)RX_GOFS(prog) \
+          == RX_OFFS(prog)[0].end)
+
+#endif /* PLUGGABLE_RE_EXTENSION */
+
+/* Stuff that needs to be included in the pluggable extension goes below here */
+
+#ifdef PERL_ANY_COW
+#define RX_MATCH_COPY_FREE(rx) \
+	STMT_START {if (RX_SAVED_COPY(rx)) { \
+	    SV_CHECK_THINKFIRST_COW_DROP(RX_SAVED_COPY(rx)); \
+	} \
+	if (RX_MATCH_COPIED(rx)) { \
+	    Safefree(RX_SUBBEG(rx)); \
+	    RX_MATCH_COPIED_off(rx); \
+	}} STMT_END
+#else
+#define RX_MATCH_COPY_FREE(rx) \
+	STMT_START {if (RX_MATCH_COPIED(rx)) { \
+	    Safefree(RX_SUBBEG(rx)); \
+	    RX_MATCH_COPIED_off(rx); \
+	}} STMT_END
+#endif
+
+#define RXp_MATCH_UTF8(prog)		(RXp_EXTFLAGS(prog) & RXf_MATCH_UTF8)
+#define RX_MATCH_UTF8(prog)		(RX_EXTFLAGS(prog) & RXf_MATCH_UTF8)
+#define RX_MATCH_UTF8_on(prog)		(RX_EXTFLAGS(prog) |= RXf_MATCH_UTF8)
+#define RX_MATCH_UTF8_off(prog)		(RX_EXTFLAGS(prog) &= ~RXf_MATCH_UTF8)
+#define RX_MATCH_UTF8_set(prog, t)	((t) \
+			? RX_MATCH_UTF8_on(prog) \
+			: RX_MATCH_UTF8_off(prog))
+
+/* Whether the pattern stored at RX_WRAPPED is in UTF-8  */
+#define RX_UTF8(prog)			SvUTF8(prog)
+
+
+/* bits in flags arg of Perl_regexec_flags() */
+
+#define REXEC_COPY_STR  0x01    /* Need to copy the string for captures. */
+#define REXEC_CHECKED   0x02    /* re_intuit_start() already called. */
+#define REXEC_SCREAM    0x04    /* currently unused. */
+#define REXEC_IGNOREPOS 0x08    /* use stringarg, not pos(), for \G match */
+#define REXEC_NOT_FIRST 0x10    /* This is another iteration of //g:
+                                   no need to copy string again */
+
+                                     /* under REXEC_COPY_STR, it's ok for the
+                                        engine (modulo PL_sawamperand etc)
+                                        to skip copying: ... */
+#define REXEC_COPY_SKIP_PRE  0x20    /* ...the $` part of the string, or */
+#define REXEC_COPY_SKIP_POST 0x40    /* ...the $' part of the string */
+#define REXEC_FAIL_ON_UNDERFLOW 0x80 /* fail the match if $& would start before
+                                        the start pos (so s/.\G// would fail
+                                        on second iteration */
+
+#if defined(__GNUC__) && !defined(PERL_GCC_BRACE_GROUPS_FORBIDDEN)
+#  define ReREFCNT_inc(re)						\
+    ({									\
+	/* This is here to generate a casting warning if incorrect.  */	\
+	REGEXP *const _rerefcnt_inc = (re);				\
+	assert(SvTYPE(_rerefcnt_inc) == SVt_REGEXP);			\
+	SvREFCNT_inc(_rerefcnt_inc);					\
+	_rerefcnt_inc;							\
+    })
+#  define ReREFCNT_dec(re)						\
+    ({									\
+	/* This is here to generate a casting warning if incorrect.  */	\
+	REGEXP *const _rerefcnt_dec = (re);				\
+	SvREFCNT_dec(_rerefcnt_dec);					\
+    })
+#else
+#  define ReREFCNT_dec(re)	SvREFCNT_dec(re)
+#  define ReREFCNT_inc(re)	((REGEXP *) SvREFCNT_inc(re))
+#endif
+#define ReANY(re)		S_ReANY((const REGEXP *)(re))
+
+/* FIXME for plugins. */
+
+#define FBMcf_TAIL_DOLLAR	1
+#define FBMcf_TAIL_DOLLARM	2
+#define FBMcf_TAIL_Z		4
+#define FBMcf_TAIL_z		8
+#define FBMcf_TAIL		(FBMcf_TAIL_DOLLAR|FBMcf_TAIL_DOLLARM|FBMcf_TAIL_Z|FBMcf_TAIL_z)
+
+#define FBMrf_MULTILINE	1
+
+struct regmatch_state;
+struct regmatch_slab;
+
+/* like regmatch_info_aux, but contains extra fields only needed if the
+ * pattern contains (?{}). If used, is snuck into the second slot in the
+ * regmatch_state stack at the start of execution */
+
+typedef struct {
+    regexp *rex;
+    PMOP    *curpm;     /* saved PL_curpm */
+#ifdef PERL_ANY_COW
+    SV      *saved_copy; /* saved saved_copy field from rex */
+#endif
+    char    *subbeg;    /* saved subbeg     field from rex */
+    STRLEN  sublen;     /* saved sublen     field from rex */
+    STRLEN  suboffset;  /* saved suboffset  field from rex */
+    STRLEN  subcoffset; /* saved subcoffset field from rex */
+    MAGIC   *pos_magic; /* pos() magic attached to $_ */
+    SSize_t pos;        /* the original value of pos() in pos_magic */
+    U8      pos_flags;  /* flags to be restored; currently only MGf_BYTES*/
+} regmatch_info_aux_eval;
+
+
+/* fields that logically  live in regmatch_info, but which need cleaning
+ * up on croak(), and so are instead are snuck into the first slot in
+ * the regmatch_state stack at the start of execution */
+
+typedef struct {
+    regmatch_info_aux_eval *info_aux_eval;
+    struct regmatch_state *old_regmatch_state; /* saved PL_regmatch_state */
+    struct regmatch_slab  *old_regmatch_slab;  /* saved PL_regmatch_slab */
+    char *poscache;	/* S-L cache of fail positions of WHILEMs */
+} regmatch_info_aux;
+
+
+/* some basic information about the current match that is created by
+ * Perl_regexec_flags and then passed to regtry(), regmatch() etc.
+ * It is allocated as a local var on the stack, so nothing should be
+ * stored in it that needs preserving or clearing up on croak().
+ * For that, see the aux_info and aux_info_eval members of the
+ * regmatch_state union. */
+
+typedef struct {
+    REGEXP *prog;        /* the regex being executed */
+    const char * strbeg; /* real start of string */
+    char *strend;        /* one byte beyond last char of match string */
+    char *till;          /* matches shorter than this fail (see minlen arg) */
+    SV *sv;              /* the SV string currently being matched */
+    char *ganch;         /* position of \G anchor */
+    char *cutpoint;      /* (*COMMIT) position (if any) */
+    regmatch_info_aux      *info_aux; /* extra fields that need cleanup */
+    regmatch_info_aux_eval *info_aux_eval; /* extra saved state for (?{}) */
+    I32  poscache_maxiter; /* how many whilems todo before S-L cache kicks in */
+    I32  poscache_iter;    /* current countdown from _maxiter to zero */
+    STRLEN poscache_size;  /* size of regmatch_info_aux.poscache */
+    bool intuit;    /* re_intuit_start() is the top-level caller */
+    bool is_utf8_pat;    /* regex is utf8 */
+    bool is_utf8_target; /* string being matched is utf8 */
+    bool warned; /* we have issued a recursion warning; no need for more */
+} regmatch_info;
+ 
+
+/* structures for holding and saving the state maintained by regmatch() */
+
+#ifndef MAX_RECURSE_EVAL_NOCHANGE_DEPTH
+#define MAX_RECURSE_EVAL_NOCHANGE_DEPTH 10
+#endif
+
+typedef I32 CHECKPOINT;
+
+typedef struct regmatch_state {
+    int resume_state;		/* where to jump to on return */
+    char *locinput;		/* where to backtrack in string on failure */
+
+    union {
+
+        /* the 'info_aux' and 'info_aux_eval' union members are cuckoos in
+         * the nest. They aren't saved backtrack state; rather they
+         * represent one or two extra chunks of data that need allocating
+         * at the start of a match. These fields would logically live in
+         * the regmatch_info struct, except that is allocated on the
+         * C stack, and these fields are all things that require cleanup
+         * after a croak(), when the stack is lost.
+         * As a convenience, we just use the first 1 or 2 regmatch_state
+         * slots to store this info, as we will be allocating a slab of
+         * these anyway. Otherwise we'd have to malloc and then free them,
+         * or allocate them on the save stack (where they will get
+         * realloced if the save stack grows).
+         * info_aux contains the extra fields that are always needed;
+         * info_aux_eval contains extra fields that only needed if
+         * the pattern contains code blocks
+         * We split them into two separate structs to avoid increasing
+         * the size of the union.
+         */
+
+        regmatch_info_aux info_aux;
+
+        regmatch_info_aux_eval info_aux_eval;
+
+	/* this is a fake union member that matches the first element
+	 * of each member that needs to store positive backtrack
+	 * information */
+	struct {
+	    struct regmatch_state *prev_yes_state;
+	} yes;
+
+        /* branchlike members */
+        /* this is a fake union member that matches the first elements
+         * of each member that needs to behave like a branch */
+        struct {
+	    /* this first element must match u.yes */
+	    struct regmatch_state *prev_yes_state;
+	    U32 lastparen;
+	    U32 lastcloseparen;
+	    CHECKPOINT cp;
+	    
+        } branchlike;
+        	    
+	struct {
+	    /* the first elements must match u.branchlike */
+	    struct regmatch_state *prev_yes_state;
+	    U32 lastparen;
+	    U32 lastcloseparen;
+	    CHECKPOINT cp;
+	    
+	    regnode *next_branch; /* next branch node */
+	} branch;
+
+	struct {
+	    /* the first elements must match u.branchlike */
+	    struct regmatch_state *prev_yes_state;
+	    U32 lastparen;
+	    U32 lastcloseparen;
+	    CHECKPOINT cp;
+
+	    U32		accepted; /* how many accepting states left */
+	    bool	longfold;/* saw a fold with a 1->n char mapping */
+	    U16         *jump;  /* positive offsets from me */
+	    regnode	*me;	/* Which node am I - needed for jump tries*/
+	    U8		*firstpos;/* pos in string of first trie match */
+	    U32		firstchars;/* len in chars of firstpos from start */
+	    U16		nextword;/* next word to try */
+	    U16		topword; /* longest accepted word */
+	} trie;
+
+        /* special types - these members are used to store state for special
+           regops like eval, if/then, lookaround and the markpoint state */
+	struct {
+	    /* this first element must match u.yes */
+	    struct regmatch_state *prev_yes_state;
+	    struct regmatch_state *prev_curlyx;
+            struct regmatch_state *prev_eval;
+	    REGEXP	*prev_rex;
+	    CHECKPOINT	cp;	/* remember current savestack indexes */
+	    CHECKPOINT	lastcp;
+            U32         close_paren; /* which close bracket is our end (+1) */
+	    regnode	*B;	/* the node following us  */
+            char        *prev_recurse_locinput;
+	} eval;
+
+	struct {
+	    /* this first element must match u.yes */
+	    struct regmatch_state *prev_yes_state;
+	    I32 wanted;
+	    I32 logical;	/* saved copy of 'logical' var */
+	    regnode  *me; /* the IFMATCH/SUSPEND/UNLESSM node  */
+	} ifmatch; /* and SUSPEND/UNLESSM */
+	
+	struct {
+	    /* this first element must match u.yes */
+	    struct regmatch_state *prev_yes_state;
+	    struct regmatch_state *prev_mark;
+	    SV* mark_name;
+	    char *mark_loc;
+	} mark;
+	
+	struct {
+	    int val;
+	} keeper;
+
+        /* quantifiers - these members are used for storing state for
+           for the regops used to implement quantifiers */
+	struct {
+	    /* this first element must match u.yes */
+	    struct regmatch_state *prev_yes_state;
+	    struct regmatch_state *prev_curlyx; /* previous cur_curlyx */
+	    regnode	*me;	/* the CURLYX node  */
+	    regnode	*B;	/* the B node in /A*B/  */
+	    CHECKPOINT	cp;	/* remember current savestack index */
+	    bool	minmod;
+	    int		parenfloor;/* how far back to strip paren data */
+
+	    /* these two are modified by WHILEM */
+	    int		count;	/* how many instances of A we've matched */
+	    char	*lastloc;/* where previous A matched (0-len detect) */
+	} curlyx;
+
+	struct {
+	    /* this first element must match u.yes */
+	    struct regmatch_state *prev_yes_state;
+	    struct regmatch_state *save_curlyx;
+	    CHECKPOINT	cp;	/* remember current savestack indexes */
+	    CHECKPOINT	lastcp;
+	    char	*save_lastloc;	/* previous curlyx.lastloc */
+	    I32		cache_offset;
+	    I32		cache_mask;
+	} whilem;
+
+	struct {
+	    /* this first element must match u.yes */
+	    struct regmatch_state *prev_yes_state;
+	    int c1, c2;		/* case fold search */
+	    CHECKPOINT cp;
+	    U32 lastparen;
+	    U32 lastcloseparen;
+	    I32 alen;		/* length of first-matched A string */
+	    I32 count;
+	    bool minmod;
+	    regnode *A, *B;	/* the nodes corresponding to /A*B/  */
+	    regnode *me;	/* the curlym node */
+            U8 c1_utf8[UTF8_MAXBYTES+1];  /* */
+            U8 c2_utf8[UTF8_MAXBYTES+1];
+	} curlym;
+
+	struct {
+	    U32 paren;
+	    CHECKPOINT cp;
+	    U32 lastparen;
+	    U32 lastcloseparen;
+	    int c1, c2;		/* case fold search */
+	    char *maxpos;	/* highest possible point in string to match */
+	    char *oldloc;	/* the previous locinput */
+	    int count;
+	    int min, max;	/* {m,n} */
+	    regnode *A, *B;	/* the nodes corresponding to /A*B/  */
+            U8 c1_utf8[UTF8_MAXBYTES+1];  /* */
+            U8 c2_utf8[UTF8_MAXBYTES+1];
+	} curly; /* and CURLYN/PLUS/STAR */
+
+    } u;
+} regmatch_state;
+
+
+
+/* how many regmatch_state structs to allocate as a single slab.
+ * We do it in 4K blocks for efficiency. The "3" is 2 for the next/prev
+ * pointers, plus 1 for any mythical malloc overhead. */
+ 
+#define PERL_REGMATCH_SLAB_SLOTS \
+    ((4096 - 3 * sizeof (void*)) / sizeof(regmatch_state))
+
+typedef struct regmatch_slab {
+    regmatch_state states[PERL_REGMATCH_SLAB_SLOTS];
+    struct regmatch_slab *prev, *next;
+} regmatch_slab;
+
+
+
+/*
+ * ex: set ts=8 sts=4 sw=4 et:
+ */
diff --git a/lib/5.24.1/x86_64-linux/CORE/regnodes.h b/lib/5.24.1/x86_64-linux/CORE/regnodes.h
new file mode 100644
index 00000000..f820c568
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/regnodes.h
@@ -0,0 +1,752 @@
+/* -*- buffer-read-only: t -*-
+   !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+   This file is built by regen/regcomp.pl from regcomp.sym.
+   Any changes made here will be lost!
+ */
+
+/* Regops and State definitions */
+
+#define REGNODE_MAX           	92
+#define REGMATCH_STATE_MAX    	132
+
+#define	END                   	0	/* 0000 End of program. */
+#define	SUCCEED               	1	/* 0x01 Return from a subroutine, basically. */
+#define	SBOL                  	2	/* 0x02 Match "" at beginning of line: /^/, /\A/ */
+#define	BOL                   	2	/* 0x02 type alias */
+#define	MBOL                  	3	/* 0x03 Same, assuming multiline: /^/m */
+#define	SEOL                  	4	/* 0x04 Match "" at end of line: /$/ */
+#define	EOL                   	4	/* 0x04 type alias */
+#define	MEOL                  	5	/* 0x05 Same, assuming multiline: /$/m */
+#define	EOS                   	6	/* 0x06 Match "" at end of string: /\z/ */
+#define	GPOS                  	7	/* 0x07 Matches where last m//g left off. */
+#define	BOUND                 	8	/* 0x08 Like BOUNDA for non-utf8, otherwise match "" between any Unicode \w\W or \W\w */
+#define	BOUNDL                	9	/* 0x09 Like BOUND/BOUNDU, but \w and \W are defined by current locale */
+#define	BOUNDU                	10	/* 0x0a Match "" at any boundary of a given type using Unicode rules */
+#define	BOUNDA                	11	/* 0x0b Match "" at any boundary between \w\W or \W\w, where \w is [_a-zA-Z0-9] */
+#define	NBOUND                	12	/* 0x0c Like NBOUNDA for non-utf8, otherwise match "" between any Unicode \w\w or \W\W */
+#define	NBOUNDL               	13	/* 0x0d Like NBOUND/NBOUNDU, but \w and \W are defined by current locale */
+#define	NBOUNDU               	14	/* 0x0e Match "" at any non-boundary of a given type using using Unicode rules */
+#define	NBOUNDA               	15	/* 0x0f Match "" betweeen any \w\w or \W\W, where \w is [_a-zA-Z0-9] */
+#define	REG_ANY               	16	/* 0x10 Match any one character (except newline). */
+#define	SANY                  	17	/* 0x11 Match any one character. */
+#define	ANYOF                 	18	/* 0x12 Match character in (or not in) this class, single char match only */
+#define	ANYOFD                	19	/* 0x13 Like ANYOF, but /d is in effect */
+#define	ANYOFL                	20	/* 0x14 Like ANYOF, but /l is in effect */
+#define	POSIXD                	21	/* 0x15 Some [[:class:]] under /d; the FLAGS field gives which one */
+#define	POSIXL                	22	/* 0x16 Some [[:class:]] under /l; the FLAGS field gives which one */
+#define	POSIXU                	23	/* 0x17 Some [[:class:]] under /u; the FLAGS field gives which one */
+#define	POSIXA                	24	/* 0x18 Some [[:class:]] under /a; the FLAGS field gives which one */
+#define	NPOSIXD               	25	/* 0x19 complement of POSIXD, [[:^class:]] */
+#define	NPOSIXL               	26	/* 0x1a complement of POSIXL, [[:^class:]] */
+#define	NPOSIXU               	27	/* 0x1b complement of POSIXU, [[:^class:]] */
+#define	NPOSIXA               	28	/* 0x1c complement of POSIXA, [[:^class:]] */
+#define	CLUMP                 	29	/* 0x1d Match any extended grapheme cluster sequence */
+#define	BRANCH                	30	/* 0x1e Match this alternative, or the next... */
+#define	EXACT                 	31	/* 0x1f Match this string (preceded by length). */
+#define	EXACTL                	32	/* 0x20 Like EXACT, but /l is in effect (used so locale-related warnings can be checked for). */
+#define	EXACTF                	33	/* 0x21 Match this non-UTF-8 string (not guaranteed to be folded) using /id rules (w/len). */
+#define	EXACTFL               	34	/* 0x22 Match this string (not guaranteed to be folded) using /il rules (w/len). */
+#define	EXACTFU               	35	/* 0x23 Match this string (folded iff in UTF-8, length in folding doesn't change if not in UTF-8) using /iu rules (w/len). */
+#define	EXACTFA               	36	/* 0x24 Match this string (not guaranteed to be folded) using /iaa rules (w/len). */
+#define	EXACTFU_SS            	37	/* 0x25 Match this string (folded iff in UTF-8, length in folding may change even if not in UTF-8) using /iu rules (w/len). */
+#define	EXACTFLU8             	38	/* 0x26 Rare cirucmstances: like EXACTFU, but is under /l, UTF-8, folded, and everything in it is above 255. */
+#define	EXACTFA_NO_TRIE       	39	/* 0x27 Match this string (which is not trie-able; not guaranteed to be folded) using /iaa rules (w/len). */
+#define	NOTHING               	40	/* 0x28 Match empty string. */
+#define	TAIL                  	41	/* 0x29 Match empty string. Can jump here from outside. */
+#define	STAR                  	42	/* 0x2a Match this (simple) thing 0 or more times. */
+#define	PLUS                  	43	/* 0x2b Match this (simple) thing 1 or more times. */
+#define	CURLY                 	44	/* 0x2c Match this simple thing {n,m} times. */
+#define	CURLYN                	45	/* 0x2d Capture next-after-this simple thing */
+#define	CURLYM                	46	/* 0x2e Capture this medium-complex thing {n,m} times. */
+#define	CURLYX                	47	/* 0x2f Match this complex thing {n,m} times. */
+#define	WHILEM                	48	/* 0x30 Do curly processing and see if rest matches. */
+#define	OPEN                  	49	/* 0x31 Mark this point in input as start of #n. */
+#define	CLOSE                 	50	/* 0x32 Analogous to OPEN. */
+#define	REF                   	51	/* 0x33 Match some already matched string */
+#define	REFF                  	52	/* 0x34 Match already matched string, folded using native charset rules for non-utf8 */
+#define	REFFL                 	53	/* 0x35 Match already matched string, folded in loc. */
+#define	REFFU                 	54	/* 0x36 Match already matched string, folded using unicode rules for non-utf8 */
+#define	REFFA                 	55	/* 0x37 Match already matched string, folded using unicode rules for non-utf8, no mixing ASCII, non-ASCII */
+#define	NREF                  	56	/* 0x38 Match some already matched string */
+#define	NREFF                 	57	/* 0x39 Match already matched string, folded using native charset rules for non-utf8 */
+#define	NREFFL                	58	/* 0x3a Match already matched string, folded in loc. */
+#define	NREFFU                	59	/* 0x3b Match already matched string, folded using unicode rules for non-utf8 */
+#define	NREFFA                	60	/* 0x3c Match already matched string, folded using unicode rules for non-utf8, no mixing ASCII, non-ASCII */
+#define	LONGJMP               	61	/* 0x3d Jump far away. */
+#define	BRANCHJ               	62	/* 0x3e BRANCH with long offset. */
+#define	IFMATCH               	63	/* 0x3f Succeeds if the following matches. */
+#define	UNLESSM               	64	/* 0x40 Fails if the following matches. */
+#define	SUSPEND               	65	/* 0x41 "Independent" sub-RE. */
+#define	IFTHEN                	66	/* 0x42 Switch, should be preceded by switcher. */
+#define	GROUPP                	67	/* 0x43 Whether the group matched. */
+#define	EVAL                  	68	/* 0x44 Execute some Perl code. */
+#define	MINMOD                	69	/* 0x45 Next operator is not greedy. */
+#define	LOGICAL               	70	/* 0x46 Next opcode should set the flag only. */
+#define	RENUM                 	71	/* 0x47 Group with independently numbered parens. */
+#define	TRIE                  	72	/* 0x48 Match many EXACT(F[ALU]?)? at once. flags==type */
+#define	TRIEC                 	73	/* 0x49 Same as TRIE, but with embedded charclass data */
+#define	AHOCORASICK           	74	/* 0x4a Aho Corasick stclass. flags==type */
+#define	AHOCORASICKC          	75	/* 0x4b Same as AHOCORASICK, but with embedded charclass data */
+#define	GOSUB                 	76	/* 0x4c recurse to paren arg1 at (signed) ofs arg2 */
+#define	NGROUPP               	77	/* 0x4d Whether the group matched. */
+#define	INSUBP                	78	/* 0x4e Whether we are in a specific recurse. */
+#define	DEFINEP               	79	/* 0x4f Never execute directly. */
+#define	ENDLIKE               	80	/* 0x50 Used only for the type field of verbs */
+#define	OPFAIL                	81	/* 0x51 Same as (?!), but with verb arg */
+#define	ACCEPT                	82	/* 0x52 Accepts the current matched string, with verbar */
+#define	VERB                  	83	/* 0x53 Used only for the type field of verbs */
+#define	PRUNE                 	84	/* 0x54 Pattern fails at this startpoint if no-backtracking through this */
+#define	MARKPOINT             	85	/* 0x55 Push the current location for rollback by cut. */
+#define	SKIP                  	86	/* 0x56 On failure skip forward (to the mark) before retrying */
+#define	COMMIT                	87	/* 0x57 Pattern fails outright if backtracking through this */
+#define	CUTGROUP              	88	/* 0x58 On failure go to the next alternation in the group */
+#define	KEEPS                 	89	/* 0x59 $& begins here. */
+#define	LNBREAK               	90	/* 0x5a generic newline pattern */
+#define	OPTIMIZED             	91	/* 0x5b Placeholder for dump. */
+#define	PSEUDO                	92	/* 0x5c Pseudo opcode for internal use. */
+	/* ------------ States ------------- */
+#define	TRIE_next             	(REGNODE_MAX + 1)	/* state for TRIE */
+#define	TRIE_next_fail        	(REGNODE_MAX + 2)	/* state for TRIE */
+#define	EVAL_AB               	(REGNODE_MAX + 3)	/* state for EVAL */
+#define	EVAL_AB_fail          	(REGNODE_MAX + 4)	/* state for EVAL */
+#define	CURLYX_end            	(REGNODE_MAX + 5)	/* state for CURLYX */
+#define	CURLYX_end_fail       	(REGNODE_MAX + 6)	/* state for CURLYX */
+#define	WHILEM_A_pre          	(REGNODE_MAX + 7)	/* state for WHILEM */
+#define	WHILEM_A_pre_fail     	(REGNODE_MAX + 8)	/* state for WHILEM */
+#define	WHILEM_A_min          	(REGNODE_MAX + 9)	/* state for WHILEM */
+#define	WHILEM_A_min_fail     	(REGNODE_MAX + 10)	/* state for WHILEM */
+#define	WHILEM_A_max          	(REGNODE_MAX + 11)	/* state for WHILEM */
+#define	WHILEM_A_max_fail     	(REGNODE_MAX + 12)	/* state for WHILEM */
+#define	WHILEM_B_min          	(REGNODE_MAX + 13)	/* state for WHILEM */
+#define	WHILEM_B_min_fail     	(REGNODE_MAX + 14)	/* state for WHILEM */
+#define	WHILEM_B_max          	(REGNODE_MAX + 15)	/* state for WHILEM */
+#define	WHILEM_B_max_fail     	(REGNODE_MAX + 16)	/* state for WHILEM */
+#define	BRANCH_next           	(REGNODE_MAX + 17)	/* state for BRANCH */
+#define	BRANCH_next_fail      	(REGNODE_MAX + 18)	/* state for BRANCH */
+#define	CURLYM_A              	(REGNODE_MAX + 19)	/* state for CURLYM */
+#define	CURLYM_A_fail         	(REGNODE_MAX + 20)	/* state for CURLYM */
+#define	CURLYM_B              	(REGNODE_MAX + 21)	/* state for CURLYM */
+#define	CURLYM_B_fail         	(REGNODE_MAX + 22)	/* state for CURLYM */
+#define	IFMATCH_A             	(REGNODE_MAX + 23)	/* state for IFMATCH */
+#define	IFMATCH_A_fail        	(REGNODE_MAX + 24)	/* state for IFMATCH */
+#define	CURLY_B_min_known     	(REGNODE_MAX + 25)	/* state for CURLY */
+#define	CURLY_B_min_known_fail	(REGNODE_MAX + 26)	/* state for CURLY */
+#define	CURLY_B_min           	(REGNODE_MAX + 27)	/* state for CURLY */
+#define	CURLY_B_min_fail      	(REGNODE_MAX + 28)	/* state for CURLY */
+#define	CURLY_B_max           	(REGNODE_MAX + 29)	/* state for CURLY */
+#define	CURLY_B_max_fail      	(REGNODE_MAX + 30)	/* state for CURLY */
+#define	COMMIT_next           	(REGNODE_MAX + 31)	/* state for COMMIT */
+#define	COMMIT_next_fail      	(REGNODE_MAX + 32)	/* state for COMMIT */
+#define	MARKPOINT_next        	(REGNODE_MAX + 33)	/* state for MARKPOINT */
+#define	MARKPOINT_next_fail   	(REGNODE_MAX + 34)	/* state for MARKPOINT */
+#define	SKIP_next             	(REGNODE_MAX + 35)	/* state for SKIP */
+#define	SKIP_next_fail        	(REGNODE_MAX + 36)	/* state for SKIP */
+#define	CUTGROUP_next         	(REGNODE_MAX + 37)	/* state for CUTGROUP */
+#define	CUTGROUP_next_fail    	(REGNODE_MAX + 38)	/* state for CUTGROUP */
+#define	KEEPS_next            	(REGNODE_MAX + 39)	/* state for KEEPS */
+#define	KEEPS_next_fail       	(REGNODE_MAX + 40)	/* state for KEEPS */
+
+/* PL_regkind[] What type of regop or state is this. */
+
+#ifndef DOINIT
+EXTCONST U8 PL_regkind[];
+#else
+EXTCONST U8 PL_regkind[] = {
+	END,      	/* END                    */
+	END,      	/* SUCCEED                */
+	BOL,      	/* SBOL                   */
+	BOL,      	/* MBOL                   */
+	EOL,      	/* SEOL                   */
+	EOL,      	/* MEOL                   */
+	EOL,      	/* EOS                    */
+	GPOS,     	/* GPOS                   */
+	BOUND,    	/* BOUND                  */
+	BOUND,    	/* BOUNDL                 */
+	BOUND,    	/* BOUNDU                 */
+	BOUND,    	/* BOUNDA                 */
+	NBOUND,   	/* NBOUND                 */
+	NBOUND,   	/* NBOUNDL                */
+	NBOUND,   	/* NBOUNDU                */
+	NBOUND,   	/* NBOUNDA                */
+	REG_ANY,  	/* REG_ANY                */
+	REG_ANY,  	/* SANY                   */
+	ANYOF,    	/* ANYOF                  */
+	ANYOF,    	/* ANYOFD                 */
+	ANYOF,    	/* ANYOFL                 */
+	POSIXD,   	/* POSIXD                 */
+	POSIXD,   	/* POSIXL                 */
+	POSIXD,   	/* POSIXU                 */
+	POSIXD,   	/* POSIXA                 */
+	NPOSIXD,  	/* NPOSIXD                */
+	NPOSIXD,  	/* NPOSIXL                */
+	NPOSIXD,  	/* NPOSIXU                */
+	NPOSIXD,  	/* NPOSIXA                */
+	CLUMP,    	/* CLUMP                  */
+	BRANCH,   	/* BRANCH                 */
+	EXACT,    	/* EXACT                  */
+	EXACT,    	/* EXACTL                 */
+	EXACT,    	/* EXACTF                 */
+	EXACT,    	/* EXACTFL                */
+	EXACT,    	/* EXACTFU                */
+	EXACT,    	/* EXACTFA                */
+	EXACT,    	/* EXACTFU_SS             */
+	EXACT,    	/* EXACTFLU8              */
+	EXACT,    	/* EXACTFA_NO_TRIE        */
+	NOTHING,  	/* NOTHING                */
+	NOTHING,  	/* TAIL                   */
+	STAR,     	/* STAR                   */
+	PLUS,     	/* PLUS                   */
+	CURLY,    	/* CURLY                  */
+	CURLY,    	/* CURLYN                 */
+	CURLY,    	/* CURLYM                 */
+	CURLY,    	/* CURLYX                 */
+	WHILEM,   	/* WHILEM                 */
+	OPEN,     	/* OPEN                   */
+	CLOSE,    	/* CLOSE                  */
+	REF,      	/* REF                    */
+	REF,      	/* REFF                   */
+	REF,      	/* REFFL                  */
+	REF,      	/* REFFU                  */
+	REF,      	/* REFFA                  */
+	REF,      	/* NREF                   */
+	REF,      	/* NREFF                  */
+	REF,      	/* NREFFL                 */
+	REF,      	/* NREFFU                 */
+	REF,      	/* NREFFA                 */
+	LONGJMP,  	/* LONGJMP                */
+	BRANCHJ,  	/* BRANCHJ                */
+	BRANCHJ,  	/* IFMATCH                */
+	BRANCHJ,  	/* UNLESSM                */
+	BRANCHJ,  	/* SUSPEND                */
+	BRANCHJ,  	/* IFTHEN                 */
+	GROUPP,   	/* GROUPP                 */
+	EVAL,     	/* EVAL                   */
+	MINMOD,   	/* MINMOD                 */
+	LOGICAL,  	/* LOGICAL                */
+	BRANCHJ,  	/* RENUM                  */
+	TRIE,     	/* TRIE                   */
+	TRIE,     	/* TRIEC                  */
+	TRIE,     	/* AHOCORASICK            */
+	TRIE,     	/* AHOCORASICKC           */
+	GOSUB,    	/* GOSUB                  */
+	NGROUPP,  	/* NGROUPP                */
+	INSUBP,   	/* INSUBP                 */
+	DEFINEP,  	/* DEFINEP                */
+	ENDLIKE,  	/* ENDLIKE                */
+	ENDLIKE,  	/* OPFAIL                 */
+	ENDLIKE,  	/* ACCEPT                 */
+	VERB,     	/* VERB                   */
+	VERB,     	/* PRUNE                  */
+	VERB,     	/* MARKPOINT              */
+	VERB,     	/* SKIP                   */
+	VERB,     	/* COMMIT                 */
+	VERB,     	/* CUTGROUP               */
+	KEEPS,    	/* KEEPS                  */
+	LNBREAK,  	/* LNBREAK                */
+	NOTHING,  	/* OPTIMIZED              */
+	PSEUDO,   	/* PSEUDO                 */
+	/* ------------ States ------------- */
+	TRIE,     	/* TRIE_next              */
+	TRIE,     	/* TRIE_next_fail         */
+	EVAL,     	/* EVAL_AB                */
+	EVAL,     	/* EVAL_AB_fail           */
+	CURLYX,   	/* CURLYX_end             */
+	CURLYX,   	/* CURLYX_end_fail        */
+	WHILEM,   	/* WHILEM_A_pre           */
+	WHILEM,   	/* WHILEM_A_pre_fail      */
+	WHILEM,   	/* WHILEM_A_min           */
+	WHILEM,   	/* WHILEM_A_min_fail      */
+	WHILEM,   	/* WHILEM_A_max           */
+	WHILEM,   	/* WHILEM_A_max_fail      */
+	WHILEM,   	/* WHILEM_B_min           */
+	WHILEM,   	/* WHILEM_B_min_fail      */
+	WHILEM,   	/* WHILEM_B_max           */
+	WHILEM,   	/* WHILEM_B_max_fail      */
+	BRANCH,   	/* BRANCH_next            */
+	BRANCH,   	/* BRANCH_next_fail       */
+	CURLYM,   	/* CURLYM_A               */
+	CURLYM,   	/* CURLYM_A_fail          */
+	CURLYM,   	/* CURLYM_B               */
+	CURLYM,   	/* CURLYM_B_fail          */
+	IFMATCH,  	/* IFMATCH_A              */
+	IFMATCH,  	/* IFMATCH_A_fail         */
+	CURLY,    	/* CURLY_B_min_known      */
+	CURLY,    	/* CURLY_B_min_known_fail */
+	CURLY,    	/* CURLY_B_min            */
+	CURLY,    	/* CURLY_B_min_fail       */
+	CURLY,    	/* CURLY_B_max            */
+	CURLY,    	/* CURLY_B_max_fail       */
+	COMMIT,   	/* COMMIT_next            */
+	COMMIT,   	/* COMMIT_next_fail       */
+	MARKPOINT,	/* MARKPOINT_next         */
+	MARKPOINT,	/* MARKPOINT_next_fail    */
+	SKIP,     	/* SKIP_next              */
+	SKIP,     	/* SKIP_next_fail         */
+	CUTGROUP, 	/* CUTGROUP_next          */
+	CUTGROUP, 	/* CUTGROUP_next_fail     */
+	KEEPS,    	/* KEEPS_next             */
+	KEEPS,    	/* KEEPS_next_fail        */
+};
+#endif
+
+#ifdef REG_COMP_C
+
+/* regarglen[] - How large is the argument part of the node (in regnodes) */
+
+static const U8 regarglen[] = {
+	0,                                   	/* END          */
+	0,                                   	/* SUCCEED      */
+	0,                                   	/* SBOL         */
+	0,                                   	/* MBOL         */
+	0,                                   	/* SEOL         */
+	0,                                   	/* MEOL         */
+	0,                                   	/* EOS          */
+	0,                                   	/* GPOS         */
+	0,                                   	/* BOUND        */
+	0,                                   	/* BOUNDL       */
+	0,                                   	/* BOUNDU       */
+	0,                                   	/* BOUNDA       */
+	0,                                   	/* NBOUND       */
+	0,                                   	/* NBOUNDL      */
+	0,                                   	/* NBOUNDU      */
+	0,                                   	/* NBOUNDA      */
+	0,                                   	/* REG_ANY      */
+	0,                                   	/* SANY         */
+	EXTRA_SIZE(struct regnode_1),        	/* ANYOF        */
+	EXTRA_SIZE(struct regnode_1),        	/* ANYOFD       */
+	EXTRA_SIZE(struct regnode_1),        	/* ANYOFL       */
+	0,                                   	/* POSIXD       */
+	0,                                   	/* POSIXL       */
+	0,                                   	/* POSIXU       */
+	0,                                   	/* POSIXA       */
+	0,                                   	/* NPOSIXD      */
+	0,                                   	/* NPOSIXL      */
+	0,                                   	/* NPOSIXU      */
+	0,                                   	/* NPOSIXA      */
+	0,                                   	/* CLUMP        */
+	0,                                   	/* BRANCH       */
+	0,                                   	/* EXACT        */
+	0,                                   	/* EXACTL       */
+	0,                                   	/* EXACTF       */
+	0,                                   	/* EXACTFL      */
+	0,                                   	/* EXACTFU      */
+	0,                                   	/* EXACTFA      */
+	0,                                   	/* EXACTFU_SS   */
+	0,                                   	/* EXACTFLU8    */
+	0,                                   	/* EXACTFA_NO_TRIE */
+	0,                                   	/* NOTHING      */
+	0,                                   	/* TAIL         */
+	0,                                   	/* STAR         */
+	0,                                   	/* PLUS         */
+	EXTRA_SIZE(struct regnode_2),        	/* CURLY        */
+	EXTRA_SIZE(struct regnode_2),        	/* CURLYN       */
+	EXTRA_SIZE(struct regnode_2),        	/* CURLYM       */
+	EXTRA_SIZE(struct regnode_2),        	/* CURLYX       */
+	0,                                   	/* WHILEM       */
+	EXTRA_SIZE(struct regnode_1),        	/* OPEN         */
+	EXTRA_SIZE(struct regnode_1),        	/* CLOSE        */
+	EXTRA_SIZE(struct regnode_1),        	/* REF          */
+	EXTRA_SIZE(struct regnode_1),        	/* REFF         */
+	EXTRA_SIZE(struct regnode_1),        	/* REFFL        */
+	EXTRA_SIZE(struct regnode_1),        	/* REFFU        */
+	EXTRA_SIZE(struct regnode_1),        	/* REFFA        */
+	EXTRA_SIZE(struct regnode_1),        	/* NREF         */
+	EXTRA_SIZE(struct regnode_1),        	/* NREFF        */
+	EXTRA_SIZE(struct regnode_1),        	/* NREFFL       */
+	EXTRA_SIZE(struct regnode_1),        	/* NREFFU       */
+	EXTRA_SIZE(struct regnode_1),        	/* NREFFA       */
+	EXTRA_SIZE(struct regnode_1),        	/* LONGJMP      */
+	EXTRA_SIZE(struct regnode_1),        	/* BRANCHJ      */
+	EXTRA_SIZE(struct regnode_1),        	/* IFMATCH      */
+	EXTRA_SIZE(struct regnode_1),        	/* UNLESSM      */
+	EXTRA_SIZE(struct regnode_1),        	/* SUSPEND      */
+	EXTRA_SIZE(struct regnode_1),        	/* IFTHEN       */
+	EXTRA_SIZE(struct regnode_1),        	/* GROUPP       */
+	EXTRA_SIZE(struct regnode_2L),       	/* EVAL         */
+	0,                                   	/* MINMOD       */
+	0,                                   	/* LOGICAL      */
+	EXTRA_SIZE(struct regnode_1),        	/* RENUM        */
+	EXTRA_SIZE(struct regnode_1),        	/* TRIE         */
+	EXTRA_SIZE(struct regnode_charclass),	/* TRIEC        */
+	EXTRA_SIZE(struct regnode_1),        	/* AHOCORASICK  */
+	EXTRA_SIZE(struct regnode_charclass),	/* AHOCORASICKC */
+	EXTRA_SIZE(struct regnode_2L),       	/* GOSUB        */
+	EXTRA_SIZE(struct regnode_1),        	/* NGROUPP      */
+	EXTRA_SIZE(struct regnode_1),        	/* INSUBP       */
+	EXTRA_SIZE(struct regnode_1),        	/* DEFINEP      */
+	0,                                   	/* ENDLIKE      */
+	EXTRA_SIZE(struct regnode_1),        	/* OPFAIL       */
+	EXTRA_SIZE(struct regnode_2L),       	/* ACCEPT       */
+	EXTRA_SIZE(struct regnode_1),        	/* VERB         */
+	EXTRA_SIZE(struct regnode_1),        	/* PRUNE        */
+	EXTRA_SIZE(struct regnode_1),        	/* MARKPOINT    */
+	EXTRA_SIZE(struct regnode_1),        	/* SKIP         */
+	EXTRA_SIZE(struct regnode_1),        	/* COMMIT       */
+	EXTRA_SIZE(struct regnode_1),        	/* CUTGROUP     */
+	0,                                   	/* KEEPS        */
+	0,                                   	/* LNBREAK      */
+	0,                                   	/* OPTIMIZED    */
+	0,                                   	/* PSEUDO       */
+};
+
+/* reg_off_by_arg[] - Which argument holds the offset to the next node */
+
+static const char reg_off_by_arg[] = {
+	0,	/* END          */
+	0,	/* SUCCEED      */
+	0,	/* SBOL         */
+	0,	/* MBOL         */
+	0,	/* SEOL         */
+	0,	/* MEOL         */
+	0,	/* EOS          */
+	0,	/* GPOS         */
+	0,	/* BOUND        */
+	0,	/* BOUNDL       */
+	0,	/* BOUNDU       */
+	0,	/* BOUNDA       */
+	0,	/* NBOUND       */
+	0,	/* NBOUNDL      */
+	0,	/* NBOUNDU      */
+	0,	/* NBOUNDA      */
+	0,	/* REG_ANY      */
+	0,	/* SANY         */
+	0,	/* ANYOF        */
+	0,	/* ANYOFD       */
+	0,	/* ANYOFL       */
+	0,	/* POSIXD       */
+	0,	/* POSIXL       */
+	0,	/* POSIXU       */
+	0,	/* POSIXA       */
+	0,	/* NPOSIXD      */
+	0,	/* NPOSIXL      */
+	0,	/* NPOSIXU      */
+	0,	/* NPOSIXA      */
+	0,	/* CLUMP        */
+	0,	/* BRANCH       */
+	0,	/* EXACT        */
+	0,	/* EXACTL       */
+	0,	/* EXACTF       */
+	0,	/* EXACTFL      */
+	0,	/* EXACTFU      */
+	0,	/* EXACTFA      */
+	0,	/* EXACTFU_SS   */
+	0,	/* EXACTFLU8    */
+	0,	/* EXACTFA_NO_TRIE */
+	0,	/* NOTHING      */
+	0,	/* TAIL         */
+	0,	/* STAR         */
+	0,	/* PLUS         */
+	0,	/* CURLY        */
+	0,	/* CURLYN       */
+	0,	/* CURLYM       */
+	0,	/* CURLYX       */
+	0,	/* WHILEM       */
+	0,	/* OPEN         */
+	0,	/* CLOSE        */
+	0,	/* REF          */
+	0,	/* REFF         */
+	0,	/* REFFL        */
+	0,	/* REFFU        */
+	0,	/* REFFA        */
+	0,	/* NREF         */
+	0,	/* NREFF        */
+	0,	/* NREFFL       */
+	0,	/* NREFFU       */
+	0,	/* NREFFA       */
+	1,	/* LONGJMP      */
+	1,	/* BRANCHJ      */
+	2,	/* IFMATCH      */
+	2,	/* UNLESSM      */
+	1,	/* SUSPEND      */
+	1,	/* IFTHEN       */
+	0,	/* GROUPP       */
+	0,	/* EVAL         */
+	0,	/* MINMOD       */
+	0,	/* LOGICAL      */
+	1,	/* RENUM        */
+	0,	/* TRIE         */
+	0,	/* TRIEC        */
+	0,	/* AHOCORASICK  */
+	0,	/* AHOCORASICKC */
+	0,	/* GOSUB        */
+	0,	/* NGROUPP      */
+	0,	/* INSUBP       */
+	0,	/* DEFINEP      */
+	0,	/* ENDLIKE      */
+	0,	/* OPFAIL       */
+	0,	/* ACCEPT       */
+	0,	/* VERB         */
+	0,	/* PRUNE        */
+	0,	/* MARKPOINT    */
+	0,	/* SKIP         */
+	0,	/* COMMIT       */
+	0,	/* CUTGROUP     */
+	0,	/* KEEPS        */
+	0,	/* LNBREAK      */
+	0,	/* OPTIMIZED    */
+	0,	/* PSEUDO       */
+};
+
+#endif /* REG_COMP_C */
+
+
+/* reg_name[] - Opcode/state names in string form, for debugging */
+
+#ifndef DOINIT
+EXTCONST char * PL_reg_name[];
+#else
+EXTCONST char * const PL_reg_name[] = {
+	"END",                   	/* 0000 */
+	"SUCCEED",               	/* 0x01 */
+	"SBOL",                  	/* 0x02 */
+	"MBOL",                  	/* 0x03 */
+	"SEOL",                  	/* 0x04 */
+	"MEOL",                  	/* 0x05 */
+	"EOS",                   	/* 0x06 */
+	"GPOS",                  	/* 0x07 */
+	"BOUND",                 	/* 0x08 */
+	"BOUNDL",                	/* 0x09 */
+	"BOUNDU",                	/* 0x0a */
+	"BOUNDA",                	/* 0x0b */
+	"NBOUND",                	/* 0x0c */
+	"NBOUNDL",               	/* 0x0d */
+	"NBOUNDU",               	/* 0x0e */
+	"NBOUNDA",               	/* 0x0f */
+	"REG_ANY",               	/* 0x10 */
+	"SANY",                  	/* 0x11 */
+	"ANYOF",                 	/* 0x12 */
+	"ANYOFD",                	/* 0x13 */
+	"ANYOFL",                	/* 0x14 */
+	"POSIXD",                	/* 0x15 */
+	"POSIXL",                	/* 0x16 */
+	"POSIXU",                	/* 0x17 */
+	"POSIXA",                	/* 0x18 */
+	"NPOSIXD",               	/* 0x19 */
+	"NPOSIXL",               	/* 0x1a */
+	"NPOSIXU",               	/* 0x1b */
+	"NPOSIXA",               	/* 0x1c */
+	"CLUMP",                 	/* 0x1d */
+	"BRANCH",                	/* 0x1e */
+	"EXACT",                 	/* 0x1f */
+	"EXACTL",                	/* 0x20 */
+	"EXACTF",                	/* 0x21 */
+	"EXACTFL",               	/* 0x22 */
+	"EXACTFU",               	/* 0x23 */
+	"EXACTFA",               	/* 0x24 */
+	"EXACTFU_SS",            	/* 0x25 */
+	"EXACTFLU8",             	/* 0x26 */
+	"EXACTFA_NO_TRIE",       	/* 0x27 */
+	"NOTHING",               	/* 0x28 */
+	"TAIL",                  	/* 0x29 */
+	"STAR",                  	/* 0x2a */
+	"PLUS",                  	/* 0x2b */
+	"CURLY",                 	/* 0x2c */
+	"CURLYN",                	/* 0x2d */
+	"CURLYM",                	/* 0x2e */
+	"CURLYX",                	/* 0x2f */
+	"WHILEM",                	/* 0x30 */
+	"OPEN",                  	/* 0x31 */
+	"CLOSE",                 	/* 0x32 */
+	"REF",                   	/* 0x33 */
+	"REFF",                  	/* 0x34 */
+	"REFFL",                 	/* 0x35 */
+	"REFFU",                 	/* 0x36 */
+	"REFFA",                 	/* 0x37 */
+	"NREF",                  	/* 0x38 */
+	"NREFF",                 	/* 0x39 */
+	"NREFFL",                	/* 0x3a */
+	"NREFFU",                	/* 0x3b */
+	"NREFFA",                	/* 0x3c */
+	"LONGJMP",               	/* 0x3d */
+	"BRANCHJ",               	/* 0x3e */
+	"IFMATCH",               	/* 0x3f */
+	"UNLESSM",               	/* 0x40 */
+	"SUSPEND",               	/* 0x41 */
+	"IFTHEN",                	/* 0x42 */
+	"GROUPP",                	/* 0x43 */
+	"EVAL",                  	/* 0x44 */
+	"MINMOD",                	/* 0x45 */
+	"LOGICAL",               	/* 0x46 */
+	"RENUM",                 	/* 0x47 */
+	"TRIE",                  	/* 0x48 */
+	"TRIEC",                 	/* 0x49 */
+	"AHOCORASICK",           	/* 0x4a */
+	"AHOCORASICKC",          	/* 0x4b */
+	"GOSUB",                 	/* 0x4c */
+	"NGROUPP",               	/* 0x4d */
+	"INSUBP",                	/* 0x4e */
+	"DEFINEP",               	/* 0x4f */
+	"ENDLIKE",               	/* 0x50 */
+	"OPFAIL",                	/* 0x51 */
+	"ACCEPT",                	/* 0x52 */
+	"VERB",                  	/* 0x53 */
+	"PRUNE",                 	/* 0x54 */
+	"MARKPOINT",             	/* 0x55 */
+	"SKIP",                  	/* 0x56 */
+	"COMMIT",                	/* 0x57 */
+	"CUTGROUP",              	/* 0x58 */
+	"KEEPS",                 	/* 0x59 */
+	"LNBREAK",               	/* 0x5a */
+	"OPTIMIZED",             	/* 0x5b */
+	"PSEUDO",                	/* 0x5c */
+	/* ------------ States ------------- */
+	"TRIE_next",             	/* REGNODE_MAX +0x01 */
+	"TRIE_next_fail",        	/* REGNODE_MAX +0x02 */
+	"EVAL_AB",               	/* REGNODE_MAX +0x03 */
+	"EVAL_AB_fail",          	/* REGNODE_MAX +0x04 */
+	"CURLYX_end",            	/* REGNODE_MAX +0x05 */
+	"CURLYX_end_fail",       	/* REGNODE_MAX +0x06 */
+	"WHILEM_A_pre",          	/* REGNODE_MAX +0x07 */
+	"WHILEM_A_pre_fail",     	/* REGNODE_MAX +0x08 */
+	"WHILEM_A_min",          	/* REGNODE_MAX +0x09 */
+	"WHILEM_A_min_fail",     	/* REGNODE_MAX +0x0a */
+	"WHILEM_A_max",          	/* REGNODE_MAX +0x0b */
+	"WHILEM_A_max_fail",     	/* REGNODE_MAX +0x0c */
+	"WHILEM_B_min",          	/* REGNODE_MAX +0x0d */
+	"WHILEM_B_min_fail",     	/* REGNODE_MAX +0x0e */
+	"WHILEM_B_max",          	/* REGNODE_MAX +0x0f */
+	"WHILEM_B_max_fail",     	/* REGNODE_MAX +0x10 */
+	"BRANCH_next",           	/* REGNODE_MAX +0x11 */
+	"BRANCH_next_fail",      	/* REGNODE_MAX +0x12 */
+	"CURLYM_A",              	/* REGNODE_MAX +0x13 */
+	"CURLYM_A_fail",         	/* REGNODE_MAX +0x14 */
+	"CURLYM_B",              	/* REGNODE_MAX +0x15 */
+	"CURLYM_B_fail",         	/* REGNODE_MAX +0x16 */
+	"IFMATCH_A",             	/* REGNODE_MAX +0x17 */
+	"IFMATCH_A_fail",        	/* REGNODE_MAX +0x18 */
+	"CURLY_B_min_known",     	/* REGNODE_MAX +0x19 */
+	"CURLY_B_min_known_fail",	/* REGNODE_MAX +0x1a */
+	"CURLY_B_min",           	/* REGNODE_MAX +0x1b */
+	"CURLY_B_min_fail",      	/* REGNODE_MAX +0x1c */
+	"CURLY_B_max",           	/* REGNODE_MAX +0x1d */
+	"CURLY_B_max_fail",      	/* REGNODE_MAX +0x1e */
+	"COMMIT_next",           	/* REGNODE_MAX +0x1f */
+	"COMMIT_next_fail",      	/* REGNODE_MAX +0x20 */
+	"MARKPOINT_next",        	/* REGNODE_MAX +0x21 */
+	"MARKPOINT_next_fail",   	/* REGNODE_MAX +0x22 */
+	"SKIP_next",             	/* REGNODE_MAX +0x23 */
+	"SKIP_next_fail",        	/* REGNODE_MAX +0x24 */
+	"CUTGROUP_next",         	/* REGNODE_MAX +0x25 */
+	"CUTGROUP_next_fail",    	/* REGNODE_MAX +0x26 */
+	"KEEPS_next",            	/* REGNODE_MAX +0x27 */
+	"KEEPS_next_fail",       	/* REGNODE_MAX +0x28 */
+};
+#endif /* DOINIT */
+
+/* PL_reg_extflags_name[] - Opcode/state names in string form, for debugging */
+
+#ifndef DOINIT
+EXTCONST char * PL_reg_extflags_name[];
+#else
+EXTCONST char * const PL_reg_extflags_name[] = {
+	/* Bits in extflags defined: 11111111111111110000111111111111 */
+	"MULTILINE",        /* 0x00000001 */
+	"SINGLELINE",       /* 0x00000002 */
+	"FOLD",             /* 0x00000004 */
+	"EXTENDED",         /* 0x00000008 */
+	"EXTENDED_MORE",    /* 0x00000010 */
+	"NOCAPTURE",        /* 0x00000020 */
+	"KEEPCOPY",         /* 0x00000040 */
+	"CHARSET0",         /* 0x00000080 : "CHARSET" - 0x00000380 */
+	"CHARSET1",         /* 0x00000100 : "CHARSET" - 0x00000380 */
+	"CHARSET2",         /* 0x00000200 : "CHARSET" - 0x00000380 */
+	"STRICT",           /* 0x00000400 */
+	"SPLIT",            /* 0x00000800 */
+	"UNUSED_BIT_12",    /* 0x00001000 */
+	"UNUSED_BIT_13",    /* 0x00002000 */
+	"UNUSED_BIT_14",    /* 0x00004000 */
+	"UNUSED_BIT_15",    /* 0x00008000 */
+	"NO_INPLACE_SUBST", /* 0x00010000 */
+	"EVAL_SEEN",        /* 0x00020000 */
+	"UNBOUNDED_QUANTIFIER_SEEN",/* 0x00040000 */
+	"CHECK_ALL",        /* 0x00080000 */
+	"MATCH_UTF8",       /* 0x00100000 */
+	"USE_INTUIT_NOML",  /* 0x00200000 */
+	"USE_INTUIT_ML",    /* 0x00400000 */
+	"INTUIT_TAIL",      /* 0x00800000 */
+	"IS_ANCHORED",      /* 0x01000000 */
+	"COPY_DONE",        /* 0x02000000 */
+	"TAINTED_SEEN",     /* 0x04000000 */
+	"TAINTED",          /* 0x08000000 */
+	"START_ONLY",       /* 0x10000000 */
+	"SKIPWHITE",        /* 0x20000000 */
+	"WHITE",            /* 0x40000000 */
+	"NULL",             /* 0x80000000 */
+};
+#endif /* DOINIT */
+
+#ifdef DEBUGGING
+#  define REG_EXTFLAGS_NAME_SIZE 32
+#endif
+
+/* PL_reg_intflags_name[] - Opcode/state names in string form, for debugging */
+
+#ifndef DOINIT
+EXTCONST char * PL_reg_intflags_name[];
+#else
+EXTCONST char * const PL_reg_intflags_name[] = {
+	"SKIP",                       /* 0x00000001 - PREGf_SKIP */
+	"IMPLICIT",                   /* 0x00000002 - PREGf_IMPLICIT -  Converted .* to ^.*  */
+	"NAUGHTY",                    /* 0x00000004 - PREGf_NAUGHTY -  how exponential is this pattern?  */
+	"VERBARG_SEEN",               /* 0x00000008 - PREGf_VERBARG_SEEN */
+	"CUTGROUP_SEEN",              /* 0x00000010 - PREGf_CUTGROUP_SEEN */
+	"USE_RE_EVAL",                /* 0x00000020 - PREGf_USE_RE_EVAL -  compiled with "use re 'eval'"  */
+	"NOSCAN",                     /* 0x00000040 - PREGf_NOSCAN */
+	"GPOS_SEEN",                  /* 0x00000100 - PREGf_GPOS_SEEN */
+	"GPOS_FLOAT",                 /* 0x00000200 - PREGf_GPOS_FLOAT */
+	"ANCH_MBOL",                  /* 0x00000400 - PREGf_ANCH_MBOL */
+	"ANCH_SBOL",                  /* 0x00000800 - PREGf_ANCH_SBOL */
+	"ANCH_GPOS",                  /* 0x00001000 - PREGf_ANCH_GPOS */
+	"RECURSE_SEEN",               /* 0x00002000 - PREGf_RECURSE_SEEN */
+};
+#endif /* DOINIT */
+
+#ifdef DEBUGGING
+#  define REG_INTFLAGS_NAME_SIZE 13
+#endif
+
+/* The following have no fixed length. U8 so we can do strchr() on it. */
+#define REGNODE_VARIES(node) (PL_varies_bitmask[(node) >> 3] & (1 << ((node) & 7)))
+
+#ifndef DOINIT
+EXTCONST U8 PL_varies[] __attribute__deprecated__;
+#else
+EXTCONST U8 PL_varies[] __attribute__deprecated__ = {
+    CLUMP, BRANCH, STAR, PLUS, CURLY, CURLYN, CURLYM, CURLYX, WHILEM, REF,
+    REFF, REFFL, REFFU, REFFA, NREF, NREFF, NREFFL, NREFFU, NREFFA,
+    BRANCHJ, SUSPEND, IFTHEN,
+    0
+};
+#endif /* DOINIT */
+
+#ifndef DOINIT
+EXTCONST U8 PL_varies_bitmask[];
+#else
+EXTCONST U8 PL_varies_bitmask[] = {
+    0x00, 0x00, 0x00, 0x60, 0x00, 0xFC, 0xF9, 0x5F, 0x06, 0x00, 0x00, 0x00
+};
+#endif /* DOINIT */
+
+/* The following always have a length of 1. U8 we can do strchr() on it. */
+/* (Note that length 1 means "one character" under UTF8, not "one octet".) */
+#define REGNODE_SIMPLE(node) (PL_simple_bitmask[(node) >> 3] & (1 << ((node) & 7)))
+
+#ifndef DOINIT
+EXTCONST U8 PL_simple[] __attribute__deprecated__;
+#else
+EXTCONST U8 PL_simple[] __attribute__deprecated__ = {
+    REG_ANY, SANY, ANYOF, ANYOFD, ANYOFL, POSIXD, POSIXL, POSIXU, POSIXA,
+    NPOSIXD, NPOSIXL, NPOSIXU, NPOSIXA,
+    0
+};
+#endif /* DOINIT */
+
+#ifndef DOINIT
+EXTCONST U8 PL_simple_bitmask[];
+#else
+EXTCONST U8 PL_simple_bitmask[] = {
+    0x00, 0x00, 0xFF, 0x1F, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00
+};
+#endif /* DOINIT */
+
+/* ex: set ro: */
diff --git a/lib/5.24.1/x86_64-linux/CORE/scope.h b/lib/5.24.1/x86_64-linux/CORE/scope.h
new file mode 100644
index 00000000..9a504f1b
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/scope.h
@@ -0,0 +1,347 @@
+/*    scope.h
+ *
+ *    Copyright (C) 1993, 1994, 1996, 1997, 1998, 1999, 2000, 2001,
+ *    2002, 2004, 2005, 2006, 2007, 2008 by Larry Wall and others
+ *
+ *    You may distribute under the terms of either the GNU General Public
+ *    License or the Artistic License, as specified in the README file.
+ *
+ */
+
+/* *** these are ordered by number of of auto-popped args */
+
+/* zero args */
+
+#define SAVEt_ALLOC		0
+#define SAVEt_CLEARPADRANGE	1
+#define SAVEt_CLEARSV		2
+#define SAVEt_REGCONTEXT	3
+
+#define SAVEt_ARG0_MAX		3
+
+/* one arg */
+
+#define SAVEt_TMPSFLOOR		4
+#define SAVEt_BOOL		5
+#define SAVEt_COMPILE_WARNINGS	6
+#define SAVEt_COMPPAD		7
+#define SAVEt_FREECOPHH		8
+#define SAVEt_FREEOP		9
+#define SAVEt_FREEPV		10
+#define SAVEt_FREESV		11
+#define SAVEt_I16		12
+#define SAVEt_I32_SMALL		13
+#define SAVEt_I8		14
+#define SAVEt_INT_SMALL		15
+#define SAVEt_MORTALIZESV	16
+#define SAVEt_NSTAB		17
+#define SAVEt_OP		18
+#define SAVEt_PARSER		19
+#define SAVEt_STACK_POS		20
+#define SAVEt_READONLY_OFF	21
+#define SAVEt_FREEPADNAME	22
+
+#define SAVEt_ARG1_MAX		22
+
+/* two args */
+
+#define SAVEt_AV		23
+#define SAVEt_DESTRUCTOR	24
+#define SAVEt_DESTRUCTOR_X	25
+#define SAVEt_GENERIC_PVREF	26
+#define SAVEt_GENERIC_SVREF	27
+#define SAVEt_GP		28
+#define SAVEt_GVSV		29
+#define SAVEt_HINTS		30
+#define SAVEt_HPTR		31
+#define SAVEt_HV		32
+#define SAVEt_I32		33
+#define SAVEt_INT		34
+#define SAVEt_ITEM		35
+#define SAVEt_IV		36
+#define SAVEt_LONG		37
+#define SAVEt_PPTR		38
+#define SAVEt_SAVESWITCHSTACK	39
+#define SAVEt_SHARED_PVREF	40
+#define SAVEt_SPTR		41
+#define SAVEt_STRLEN		42
+#define SAVEt_SV		43
+#define SAVEt_SVREF		44
+#define SAVEt_VPTR		45
+#define SAVEt_ADELETE		46
+#define SAVEt_APTR		47
+
+#define SAVEt_ARG2_MAX		47
+
+/* three args */
+
+#define SAVEt_HELEM		48
+#define SAVEt_PADSV_AND_MORTALIZE 49
+#define SAVEt_SET_SVFLAGS	50
+#define SAVEt_GVSLOT		51
+#define SAVEt_AELEM		52
+#define SAVEt_DELETE		53
+
+
+#define SAVEf_SETMAGIC		1
+#define SAVEf_KEEPOLDELEM	2
+
+#define SAVE_TIGHT_SHIFT	6
+#define SAVE_MASK		0x3F
+
+#define save_aelem(av,idx,sptr)	save_aelem_flags(av,idx,sptr,SAVEf_SETMAGIC)
+#define save_helem(hv,key,sptr)	save_helem_flags(hv,key,sptr,SAVEf_SETMAGIC)
+
+#ifndef SCOPE_SAVES_SIGNAL_MASK
+#define SCOPE_SAVES_SIGNAL_MASK 0
+#endif
+
+/* the maximum number of entries that might be pushed using the SS_ADD*
+ * macros */
+#define SS_MAXPUSH 4
+
+#define SSCHECK(need) if (UNLIKELY(PL_savestack_ix + (I32)(need) > PL_savestack_max)) savestack_grow()
+#define SSGROW(need) if (UNLIKELY(PL_savestack_ix + (I32)(need) > PL_savestack_max)) savestack_grow_cnt(need)
+#define SSPUSHINT(i) (PL_savestack[PL_savestack_ix++].any_i32 = (I32)(i))
+#define SSPUSHLONG(i) (PL_savestack[PL_savestack_ix++].any_long = (long)(i))
+#define SSPUSHBOOL(p) (PL_savestack[PL_savestack_ix++].any_bool = (p))
+#define SSPUSHIV(i) (PL_savestack[PL_savestack_ix++].any_iv = (IV)(i))
+#define SSPUSHUV(u) (PL_savestack[PL_savestack_ix++].any_uv = (UV)(u))
+#define SSPUSHPTR(p) (PL_savestack[PL_savestack_ix++].any_ptr = (void*)(p))
+#define SSPUSHDPTR(p) (PL_savestack[PL_savestack_ix++].any_dptr = (p))
+#define SSPUSHDXPTR(p) (PL_savestack[PL_savestack_ix++].any_dxptr = (p))
+
+/* SS_ADD*: newer, faster versions of the above. Don't mix the two sets of
+ * macros. These are fast because they save reduce accesses to the PL_
+ * vars and move the size check to the end. Doing the check last means
+ * that values in registers will have been pushed and no longer needed, so
+ * don't need saving around the call to grow. Also, tail-call elimination
+ * of the grow() can be done. These changes reduce the code of something
+ * like save_pushptrptr() to half its former size.
+ * Of course, doing the size check *after* pushing means we must always
+ * ensure there are SS_MAXPUSH free slots on the savestack. This ensured
+ * bt savestack_grow() and savestack_grow_cnt always allocating SS_MAXPUSH
+ * slots more than asked for, or that it sets PL_savestack_max to
+ *
+ * These are for internal core use only and are subject to change */
+
+#define dSS_ADD \
+    I32 ix = PL_savestack_ix;     \
+    ANY *ssp = &PL_savestack[ix]
+
+#define SS_ADD_END(need) \
+    assert((need) <= SS_MAXPUSH);                               \
+    ix += (need);                                               \
+    PL_savestack_ix = ix;                                       \
+    assert(ix <= PL_savestack_max + SS_MAXPUSH);                \
+    if (UNLIKELY(ix > PL_savestack_max)) savestack_grow();      \
+    assert(PL_savestack_ix <= PL_savestack_max);
+
+#define SS_ADD_INT(i)   ((ssp++)->any_i32 = (I32)(i))
+#define SS_ADD_LONG(i)  ((ssp++)->any_long = (long)(i))
+#define SS_ADD_BOOL(p)  ((ssp++)->any_bool = (p))
+#define SS_ADD_IV(i)    ((ssp++)->any_iv = (IV)(i))
+#define SS_ADD_UV(u)    ((ssp++)->any_uv = (UV)(u))
+#define SS_ADD_PTR(p)   ((ssp++)->any_ptr = (void*)(p))
+#define SS_ADD_DPTR(p)  ((ssp++)->any_dptr = (p))
+#define SS_ADD_DXPTR(p) ((ssp++)->any_dxptr = (p))
+
+#define SSPOPINT (PL_savestack[--PL_savestack_ix].any_i32)
+#define SSPOPLONG (PL_savestack[--PL_savestack_ix].any_long)
+#define SSPOPBOOL (PL_savestack[--PL_savestack_ix].any_bool)
+#define SSPOPIV (PL_savestack[--PL_savestack_ix].any_iv)
+#define SSPOPUV (PL_savestack[--PL_savestack_ix].any_uv)
+#define SSPOPPTR (PL_savestack[--PL_savestack_ix].any_ptr)
+#define SSPOPDPTR (PL_savestack[--PL_savestack_ix].any_dptr)
+#define SSPOPDXPTR (PL_savestack[--PL_savestack_ix].any_dxptr)
+
+
+/*
+=head1 Callback Functions
+
+=for apidoc Ams||SAVETMPS
+Opening bracket for temporaries on a callback.  See C<L</FREETMPS>> and
+L<perlcall>.
+
+=for apidoc Ams||FREETMPS
+Closing bracket for temporaries on a callback.  See C<L</SAVETMPS>> and
+L<perlcall>.
+
+=for apidoc Ams||ENTER
+Opening bracket on a callback.  See C<L</LEAVE>> and L<perlcall>.
+
+=for apidoc Ams||LEAVE
+Closing bracket on a callback.  See C<L</ENTER>> and L<perlcall>.
+
+=over
+
+=item ENTER_with_name(name)
+
+Same as C<ENTER>, but when debugging is enabled it also associates the
+given literal string with the new scope.
+
+=item LEAVE_with_name(name)
+
+Same as C<LEAVE>, but when debugging is enabled it first checks that the
+scope has the given name. C<name> must be a C<NUL>-terminated literal string.
+
+=back
+
+=cut
+*/
+
+#define SAVETMPS Perl_savetmps(aTHX)
+
+#define FREETMPS if (PL_tmps_ix > PL_tmps_floor) free_tmps()
+
+#ifdef DEBUGGING
+#define ENTER							\
+    STMT_START {						\
+	push_scope();						\
+	DEBUG_SCOPE("ENTER")					\
+    } STMT_END
+#define LEAVE							\
+    STMT_START {						\
+	DEBUG_SCOPE("LEAVE")					\
+	pop_scope();						\
+    } STMT_END
+#define ENTER_with_name(name)						\
+    STMT_START {							\
+	push_scope();							\
+	if (PL_scopestack_name)						\
+	    PL_scopestack_name[PL_scopestack_ix-1] = name;		\
+	DEBUG_SCOPE("ENTER \"" name "\"")				\
+    } STMT_END
+#define LEAVE_with_name(name)						\
+    STMT_START {							\
+	DEBUG_SCOPE("LEAVE \"" name "\"")				\
+	if (PL_scopestack_name)	{					\
+	    assert(((char*)PL_scopestack_name[PL_scopestack_ix-1]	\
+			== (char*)name)					\
+		    || strEQ(PL_scopestack_name[PL_scopestack_ix-1], name));        \
+	}								\
+	pop_scope();							\
+    } STMT_END
+#else
+#define ENTER push_scope()
+#define LEAVE pop_scope()
+#define ENTER_with_name(name) ENTER
+#define LEAVE_with_name(name) LEAVE
+#endif
+#define LEAVE_SCOPE(old) STMT_START { \
+	if (PL_savestack_ix > old) leave_scope(old); \
+    } STMT_END
+
+#define SAVEI8(i)	save_I8((I8*)&(i))
+#define SAVEI16(i)	save_I16((I16*)&(i))
+#define SAVEI32(i)	save_I32((I32*)&(i))
+#define SAVEINT(i)	save_int((int*)&(i))
+#define SAVEIV(i)	save_iv((IV*)&(i))
+#define SAVELONG(l)	save_long((long*)&(l))
+#define SAVEBOOL(b)	save_bool(&(b))
+#define SAVESPTR(s)	save_sptr((SV**)&(s))
+#define SAVEPPTR(s)	save_pptr((char**)&(s))
+#define SAVEVPTR(s)	save_vptr((void*)&(s))
+#define SAVEPADSVANDMORTALIZE(s)	save_padsv_and_mortalize(s)
+#define SAVEFREESV(s)	save_freesv(MUTABLE_SV(s))
+#define SAVEFREEPADNAME(s) save_pushptr((void *)(s), SAVEt_FREEPADNAME)
+#define SAVEMORTALIZESV(s)	save_mortalizesv(MUTABLE_SV(s))
+#define SAVEFREEOP(o)	save_freeop((OP*)(o))
+#define SAVEFREEPV(p)	save_freepv((char*)(p))
+#define SAVECLEARSV(sv)	save_clearsv((SV**)&(sv))
+#define SAVEGENERICSV(s)	save_generic_svref((SV**)&(s))
+#define SAVEGENERICPV(s)	save_generic_pvref((char**)&(s))
+#define SAVESHAREDPV(s)		save_shared_pvref((char**)&(s))
+#define SAVESETSVFLAGS(sv,mask,val)	save_set_svflags(sv,mask,val)
+#define SAVEFREECOPHH(h)	save_pushptr((void *)(h), SAVEt_FREECOPHH)
+#define SAVEDELETE(h,k,l) \
+	  save_delete(MUTABLE_HV(h), (char*)(k), (I32)(l))
+#define SAVEHDELETE(h,s) \
+	  save_hdelete(MUTABLE_HV(h), (s))
+#define SAVEADELETE(a,k) \
+	  save_adelete(MUTABLE_AV(a), (SSize_t)(k))
+#define SAVEDESTRUCTOR(f,p) \
+	  save_destructor((DESTRUCTORFUNC_NOCONTEXT_t)(f), (void*)(p))
+
+#define SAVEDESTRUCTOR_X(f,p) \
+	  save_destructor_x((DESTRUCTORFUNC_t)(f), (void*)(p))
+
+#define SAVESTACK_POS() \
+    STMT_START {				   \
+        dSS_ADD;                                   \
+        SS_ADD_INT(PL_stack_sp - PL_stack_base);   \
+        SS_ADD_UV(SAVEt_STACK_POS);                \
+        SS_ADD_END(2);                             \
+    } STMT_END
+
+#define SAVEOP()	save_op()
+
+#define SAVEHINTS()	save_hints()
+
+#define SAVECOMPPAD() save_pushptr(MUTABLE_SV(PL_comppad), SAVEt_COMPPAD)
+
+#define SAVESWITCHSTACK(f,t) \
+    STMT_START {					\
+	save_pushptrptr(MUTABLE_SV(f), MUTABLE_SV(t), SAVEt_SAVESWITCHSTACK); \
+	SWITCHSTACK((f),(t));				\
+	PL_curstackinfo->si_stack = (t);		\
+    } STMT_END
+
+/* Need to do the cop warnings like this, rather than a "SAVEFREESHAREDPV",
+   because realloc() means that the value can actually change. Possibly
+   could have done savefreesharedpvREF, but this way actually seems cleaner,
+   as it simplifies the code that does the saves, and reduces the load on the
+   save stack.  */
+#define SAVECOMPILEWARNINGS() save_pushptr(PL_compiling.cop_warnings, SAVEt_COMPILE_WARNINGS)
+
+#define SAVEPARSER(p) save_pushptr((p), SAVEt_PARSER)
+
+#ifdef USE_ITHREADS
+#  define SAVECOPSTASH_FREE(c)	SAVEIV((c)->cop_stashoff)
+#  define SAVECOPFILE(c)	SAVEPPTR(CopFILE(c))
+#  define SAVECOPFILE_FREE(c)	SAVESHAREDPV(CopFILE(c))
+#else
+#  /* XXX not refcounted */
+#  define SAVECOPSTASH_FREE(c)	SAVESPTR(CopSTASH(c))
+#  define SAVECOPFILE(c)	SAVESPTR(CopFILEGV(c))
+#  define SAVECOPFILE_FREE(c)	SAVEGENERICSV(CopFILEGV(c))
+#endif
+
+#define SAVECOPLINE(c)		SAVEI32(CopLINE(c))
+
+/* SSNEW() temporarily allocates a specified number of bytes of data on the
+ * savestack.  It returns an I32 index into the savestack, because a
+ * pointer would get broken if the savestack is moved on reallocation.
+ * SSNEWa() works like SSNEW(), but also aligns the data to the specified
+ * number of bytes.  MEM_ALIGNBYTES is perhaps the most useful.  The
+ * alignment will be preserved through savestack reallocation *only* if
+ * realloc returns data aligned to a size divisible by "align"!
+ *
+ * SSPTR() converts the index returned by SSNEW/SSNEWa() into a pointer.
+ */
+
+#define SSNEW(size)             Perl_save_alloc(aTHX_ (size), 0)
+#define SSNEWt(n,t)             SSNEW((n)*sizeof(t))
+#define SSNEWa(size,align)	Perl_save_alloc(aTHX_ (size), \
+    (I32)(align - ((size_t)((caddr_t)&PL_savestack[PL_savestack_ix]) % align)) % align)
+#define SSNEWat(n,t,align)	SSNEWa((n)*sizeof(t), align)
+
+#define SSPTR(off,type)         ((type)  ((char*)PL_savestack + off))
+#define SSPTRt(off,type)        ((type*) ((char*)PL_savestack + off))
+
+#define save_freesv(op)		save_pushptr((void *)(op), SAVEt_FREESV)
+#define save_mortalizesv(op)	save_pushptr((void *)(op), SAVEt_MORTALIZESV)
+
+# define save_freeop(op)                    \
+STMT_START {                                 \
+      OP * const _o = (OP *)(op);             \
+      assert(!_o->op_savefree);               \
+      _o->op_savefree = 1;                     \
+      save_pushptr((void *)(_o), SAVEt_FREEOP); \
+    } STMT_END
+#define save_freepv(pv)		save_pushptr((void *)(pv), SAVEt_FREEPV)
+#define save_op()		save_pushptr((void *)(PL_op), SAVEt_OP)
+
+/*
+ * ex: set ts=8 sts=4 sw=4 et:
+ */
diff --git a/lib/5.24.1/x86_64-linux/CORE/sv.h b/lib/5.24.1/x86_64-linux/CORE/sv.h
new file mode 100644
index 00000000..bfda6bf6
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/sv.h
@@ -0,0 +1,2298 @@
+/*    sv.h
+ *
+ *    Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000,
+ *    2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 by Larry Wall and others
+ *
+ *    You may distribute under the terms of either the GNU General Public
+ *    License or the Artistic License, as specified in the README file.
+ *
+ */
+
+#ifdef sv_flags
+#undef sv_flags		/* Convex has this in <signal.h> for sigvec() */
+#endif
+
+/*
+=head1 SV Flags
+
+=for apidoc AmU||svtype
+An enum of flags for Perl types.  These are found in the file F<sv.h>
+in the C<svtype> enum.  Test these flags with the C<SvTYPE> macro.
+
+The types are:
+
+    SVt_NULL
+    SVt_IV
+    SVt_NV
+    SVt_RV
+    SVt_PV
+    SVt_PVIV
+    SVt_PVNV
+    SVt_PVMG
+    SVt_INVLIST
+    SVt_REGEXP
+    SVt_PVGV
+    SVt_PVLV
+    SVt_PVAV
+    SVt_PVHV
+    SVt_PVCV
+    SVt_PVFM
+    SVt_PVIO
+
+These are most easily explained from the bottom up.
+
+C<SVt_PVIO> is for I/O objects, C<SVt_PVFM> for formats, C<SVt_PVCV> for
+subroutines, C<SVt_PVHV> for hashes and C<SVt_PVAV> for arrays.
+
+All the others are scalar types, that is, things that can be bound to a
+C<$> variable.  For these, the internal types are mostly orthogonal to
+types in the Perl language.
+
+Hence, checking C<< SvTYPE(sv) < SVt_PVAV >> is the best way to see whether
+something is a scalar.
+
+C<SVt_PVGV> represents a typeglob.  If C<!SvFAKE(sv)>, then it is a real,
+incoercible typeglob.  If C<SvFAKE(sv)>, then it is a scalar to which a
+typeglob has been assigned.  Assigning to it again will stop it from being
+a typeglob.  C<SVt_PVLV> represents a scalar that delegates to another scalar
+behind the scenes.  It is used, e.g., for the return value of C<substr> and
+for tied hash and array elements.  It can hold any scalar value, including
+a typeglob.  C<SVt_REGEXP> is for regular
+expressions.  C<SVt_INVLIST> is for Perl
+core internal use only.
+
+C<SVt_PVMG> represents a "normal" scalar (not a typeglob, regular expression,
+or delegate).  Since most scalars do not need all the internal fields of a
+PVMG, we save memory by allocating smaller structs when possible.  All the
+other types are just simpler forms of C<SVt_PVMG>, with fewer internal fields.
+C<SVt_NULL> can only hold undef.  C<SVt_IV> can hold undef, an integer, or a
+reference.  (C<SVt_RV> is an alias for C<SVt_IV>, which exists for backward
+compatibility.)  C<SVt_NV> can hold any of those or a double.  C<SVt_PV> can only
+hold C<undef> or a string.  C<SVt_PVIV> is a superset of C<SVt_PV> and C<SVt_IV>.
+C<SVt_PVNV> is similar.  C<SVt_PVMG> can hold anything C<SVt_PVNV> can hold, but it
+can, but does not have to, be blessed or magical.
+
+=for apidoc AmU||SVt_NULL
+Type flag for scalars.  See L</svtype>.
+
+=for apidoc AmU||SVt_IV
+Type flag for scalars.  See L</svtype>.
+
+=for apidoc AmU||SVt_NV
+Type flag for scalars.  See L</svtype>.
+
+=for apidoc AmU||SVt_PV
+Type flag for scalars.  See L</svtype>.
+
+=for apidoc AmU||SVt_PVIV
+Type flag for scalars.  See L</svtype>.
+
+=for apidoc AmU||SVt_PVNV
+Type flag for scalars.  See L</svtype>.
+
+=for apidoc AmU||SVt_PVMG
+Type flag for scalars.  See L</svtype>.
+
+=for apidoc AmU||SVt_INVLIST
+Type flag for scalars.  See L</svtype>.
+
+=for apidoc AmU||SVt_REGEXP
+Type flag for regular expressions.  See L</svtype>.
+
+=for apidoc AmU||SVt_PVGV
+Type flag for typeglobs.  See L</svtype>.
+
+=for apidoc AmU||SVt_PVLV
+Type flag for scalars.  See L</svtype>.
+
+=for apidoc AmU||SVt_PVAV
+Type flag for arrays.  See L</svtype>.
+
+=for apidoc AmU||SVt_PVHV
+Type flag for hashes.  See L</svtype>.
+
+=for apidoc AmU||SVt_PVCV
+Type flag for subroutines.  See L</svtype>.
+
+=for apidoc AmU||SVt_PVFM
+Type flag for formats.  See L</svtype>.
+
+=for apidoc AmU||SVt_PVIO
+Type flag for I/O objects.  See L</svtype>.
+
+=cut
+
+  These are ordered so that the simpler types have a lower value; SvUPGRADE
+  doesn't allow you to upgrade from a higher numbered type to a lower numbered
+  one; also there is code that assumes that anything that has as a PV component
+  has a type numbered >= SVt_PV.
+*/
+
+
+typedef enum {
+	SVt_NULL,	/* 0 */
+	/* BIND was here, before INVLIST replaced it.  */
+	SVt_IV,		/* 1 */
+	SVt_NV,		/* 2 */
+	/* RV was here, before it was merged with IV.  */
+	SVt_PV,		/* 3 */
+	SVt_INVLIST,	/* 4, implemented as a PV */
+	SVt_PVIV,	/* 5 */
+	SVt_PVNV,	/* 6 */
+	SVt_PVMG,	/* 7 */
+	SVt_REGEXP,	/* 8 */
+	/* PVBM was here, before BIND replaced it.  */
+	SVt_PVGV,	/* 9 */
+	SVt_PVLV,	/* 10 */
+	SVt_PVAV,	/* 11 */
+	SVt_PVHV,	/* 12 */
+	SVt_PVCV,	/* 13 */
+	SVt_PVFM,	/* 14 */
+	SVt_PVIO,	/* 15 */
+	SVt_LAST	/* keep last in enum. used to size arrays */
+} svtype;
+
+/* *** any alterations to the SV types above need to be reflected in
+ * SVt_MASK and the various PL_valid_types_* tables.  As of this writing those
+ * tables are in perl.h.  There are also two affected names tables in dump.c,
+ * one in B.xs, and 'bodies_by_type[]' in sv.c */
+
+#define SVt_MASK 0xf	/* smallest bitmask that covers all types */
+
+#ifndef PERL_CORE
+/* Although Fast Boyer Moore tables are now being stored in PVGVs, for most
+   purposes external code wanting to consider PVBM probably needs to think of
+   PVMG instead.  */
+#  define SVt_PVBM	SVt_PVMG
+/* Anything wanting to create a reference from clean should ensure that it has
+   a scalar of type SVt_IV now:  */
+#  define SVt_RV	SVt_IV
+#endif
+
+/* There is collusion here with sv_clear - sv_clear exits early for SVt_NULL
+   so never reaches the clause at the end that uses sv_type_details->body_size
+   to determine whether to call safefree(). Hence body_size can be set
+   non-zero to record the size of HEs, without fear of bogus frees.  */
+#if defined(PERL_IN_HV_C) || defined(PERL_IN_XS_APITEST)
+#define HE_SVSLOT	SVt_NULL
+#endif
+#ifdef PERL_IN_SV_C
+#  define SVt_FIRST SVt_NULL	/* the type of SV that new_SV() in sv.c returns */
+#endif
+
+#define PERL_ARENA_ROOTS_SIZE	(SVt_LAST)
+
+/* typedefs to eliminate some typing */
+typedef struct he HE;
+typedef struct hek HEK;
+
+/* Using C's structural equivalence to help emulate C++ inheritance here... */
+
+/* start with 2 sv-head building blocks */
+#define _SV_HEAD(ptrtype) \
+    ptrtype	sv_any;		/* pointer to body */	\
+    U32		sv_refcnt;	/* how many references to us */	\
+    U32		sv_flags	/* what we are */
+
+#if NVSIZE <= IVSIZE
+#  define _NV_BODYLESS_UNION NV svu_nv;
+#else
+#  define _NV_BODYLESS_UNION
+#endif
+
+#define _SV_HEAD_UNION \
+    union {				\
+	char*   svu_pv;		/* pointer to malloced string */	\
+	IV      svu_iv;			\
+	UV      svu_uv;			\
+	_NV_BODYLESS_UNION		\
+	SV*     svu_rv;		/* pointer to another SV */		\
+	struct regexp* svu_rx;		\
+	SV**    svu_array;		\
+	HE**	svu_hash;		\
+	GP*	svu_gp;			\
+	PerlIO *svu_fp;			\
+    }	sv_u				\
+    _SV_HEAD_DEBUG
+
+#ifdef DEBUG_LEAKING_SCALARS
+#define _SV_HEAD_DEBUG ;\
+    PERL_BITFIELD32 sv_debug_optype:9;	/* the type of OP that allocated us */ \
+    PERL_BITFIELD32 sv_debug_inpad:1;	/* was allocated in a pad for an OP */ \
+    PERL_BITFIELD32 sv_debug_line:16;	/* the line where we were allocated */ \
+    UV		    sv_debug_serial;	/* serial number of sv allocation   */ \
+    char *	    sv_debug_file;	/* the file where we were allocated */ \
+    SV *	    sv_debug_parent	/* what we were cloned from (ithreads)*/
+#else
+#define _SV_HEAD_DEBUG
+#endif
+
+struct STRUCT_SV {		/* struct sv { */
+    _SV_HEAD(void*);
+    _SV_HEAD_UNION;
+};
+
+struct gv {
+    _SV_HEAD(XPVGV*);		/* pointer to xpvgv body */
+    _SV_HEAD_UNION;
+};
+
+struct cv {
+    _SV_HEAD(XPVCV*);		/* pointer to xpvcv body */
+    _SV_HEAD_UNION;
+};
+
+struct av {
+    _SV_HEAD(XPVAV*);		/* pointer to xpvav body */
+    _SV_HEAD_UNION;
+};
+
+struct hv {
+    _SV_HEAD(XPVHV*);		/* pointer to xpvhv body */
+    _SV_HEAD_UNION;
+};
+
+struct io {
+    _SV_HEAD(XPVIO*);		/* pointer to xpvio body */
+    _SV_HEAD_UNION;
+};
+
+struct p5rx {
+    _SV_HEAD(struct regexp*);	/* pointer to regexp body */
+    _SV_HEAD_UNION;
+};
+
+#undef _SV_HEAD
+#undef _SV_HEAD_UNION		/* ensure no pollution */
+
+/*
+=head1 SV Manipulation Functions
+
+=for apidoc Am|U32|SvREFCNT|SV* sv
+Returns the value of the object's reference count.
+
+=for apidoc Am|SV*|SvREFCNT_inc|SV* sv
+Increments the reference count of the given SV, returning the SV.
+
+All of the following C<SvREFCNT_inc>* macros are optimized versions of
+C<SvREFCNT_inc>, and can be replaced with C<SvREFCNT_inc>.
+
+=for apidoc Am|SV*|SvREFCNT_inc_NN|SV* sv
+Same as C<SvREFCNT_inc>, but can only be used if you know C<sv>
+is not C<NULL>.  Since we don't have to check the NULLness, it's faster
+and smaller.
+
+=for apidoc Am|void|SvREFCNT_inc_void|SV* sv
+Same as C<SvREFCNT_inc>, but can only be used if you don't need the
+return value.  The macro doesn't need to return a meaningful value.
+
+=for apidoc Am|void|SvREFCNT_inc_void_NN|SV* sv
+Same as C<SvREFCNT_inc>, but can only be used if you don't need the return
+value, and you know that C<sv> is not C<NULL>.  The macro doesn't need
+to return a meaningful value, or check for NULLness, so it's smaller
+and faster.
+
+=for apidoc Am|SV*|SvREFCNT_inc_simple|SV* sv
+Same as C<SvREFCNT_inc>, but can only be used with expressions without side
+effects.  Since we don't have to store a temporary value, it's faster.
+
+=for apidoc Am|SV*|SvREFCNT_inc_simple_NN|SV* sv
+Same as C<SvREFCNT_inc_simple>, but can only be used if you know C<sv>
+is not C<NULL>.  Since we don't have to check the NULLness, it's faster
+and smaller.
+
+=for apidoc Am|void|SvREFCNT_inc_simple_void|SV* sv
+Same as C<SvREFCNT_inc_simple>, but can only be used if you don't need the
+return value.  The macro doesn't need to return a meaningful value.
+
+=for apidoc Am|void|SvREFCNT_inc_simple_void_NN|SV* sv
+Same as C<SvREFCNT_inc>, but can only be used if you don't need the return
+value, and you know that C<sv> is not C<NULL>.  The macro doesn't need
+to return a meaningful value, or check for NULLness, so it's smaller
+and faster.
+
+=for apidoc Am|void|SvREFCNT_dec|SV* sv
+Decrements the reference count of the given SV.  C<sv> may be C<NULL>.
+
+=for apidoc Am|void|SvREFCNT_dec_NN|SV* sv
+Same as C<SvREFCNT_dec>, but can only be used if you know C<sv>
+is not C<NULL>.  Since we don't have to check the NULLness, it's faster
+and smaller.
+
+=for apidoc Am|svtype|SvTYPE|SV* sv
+Returns the type of the SV.  See C<L</svtype>>.
+
+=for apidoc Am|void|SvUPGRADE|SV* sv|svtype type
+Used to upgrade an SV to a more complex form.  Uses C<sv_upgrade> to
+perform the upgrade if necessary.  See C<L</svtype>>.
+
+=cut
+*/
+
+#define SvANY(sv)	(sv)->sv_any
+#define SvFLAGS(sv)	(sv)->sv_flags
+#define SvREFCNT(sv)	(sv)->sv_refcnt
+
+#define SvREFCNT_inc(sv)		S_SvREFCNT_inc(MUTABLE_SV(sv))
+#define SvREFCNT_inc_simple(sv)		SvREFCNT_inc(sv)
+#define SvREFCNT_inc_NN(sv)		S_SvREFCNT_inc_NN(MUTABLE_SV(sv))
+#define SvREFCNT_inc_void(sv)		S_SvREFCNT_inc_void(MUTABLE_SV(sv))
+
+/* These guys don't need the curly blocks */
+#define SvREFCNT_inc_simple_void(sv)	STMT_START { if (sv) SvREFCNT(sv)++; } STMT_END
+#define SvREFCNT_inc_simple_NN(sv)	(++(SvREFCNT(sv)),MUTABLE_SV(sv))
+#define SvREFCNT_inc_void_NN(sv)	(void)(++SvREFCNT(MUTABLE_SV(sv)))
+#define SvREFCNT_inc_simple_void_NN(sv)	(void)(++SvREFCNT(MUTABLE_SV(sv)))
+
+#define SvREFCNT_dec(sv)	S_SvREFCNT_dec(aTHX_ MUTABLE_SV(sv))
+#define SvREFCNT_dec_NN(sv)	S_SvREFCNT_dec_NN(aTHX_ MUTABLE_SV(sv))
+
+#define SVTYPEMASK	0xff
+#define SvTYPE(sv)	((svtype)((sv)->sv_flags & SVTYPEMASK))
+
+/* Sadly there are some parts of the core that have pointers to already-freed
+   SV heads, and rely on being able to tell that they are now free. So mark
+   them all by using a consistent macro.  */
+#define SvIS_FREED(sv)	UNLIKELY(((sv)->sv_flags == SVTYPEMASK))
+
+/* this is defined in this peculiar way to avoid compiler warnings.
+ * See the <20121213131428.GD1842@iabyn.com> thread in p5p */
+#define SvUPGRADE(sv, mt) \
+    ((void)(SvTYPE(sv) >= (mt) || (sv_upgrade(sv, mt),1)))
+
+#define SVf_IOK		0x00000100  /* has valid public integer value */
+#define SVf_NOK		0x00000200  /* has valid public numeric value */
+#define SVf_POK		0x00000400  /* has valid public pointer value */
+#define SVf_ROK		0x00000800  /* has a valid reference pointer */
+
+#define SVp_IOK		0x00001000  /* has valid non-public integer value */
+#define SVp_NOK		0x00002000  /* has valid non-public numeric value */
+#define SVp_POK		0x00004000  /* has valid non-public pointer value */
+#define SVp_SCREAM	0x00008000  /* method name is DOES */
+                                    /* eval cx text is ref counted */
+#define SVphv_CLONEABLE	SVp_SCREAM  /* PVHV (stashes) clone its objects */
+#define SVpgv_GP	SVp_SCREAM  /* GV has a valid GP */
+#define SVprv_PCS_IMPORTED  SVp_SCREAM  /* RV is a proxy for a constant
+				       subroutine in another package. Set the
+				       GvIMPORTED_CV_on() if it needs to be
+				       expanded to a real GV */
+#define SVf_PROTECT	0x00010000  /* very read-only */
+#define SVs_PADTMP	0x00020000  /* in use as tmp */
+#define SVs_PADSTALE	0x00040000  /* lexical has gone out of scope;
+					only used when !PADTMP */
+#define SVs_TEMP	0x00080000  /* mortal (implies string is stealable) */
+#define SVs_OBJECT	0x00100000  /* is "blessed" */
+#define SVs_GMG		0x00200000  /* has magical get method */
+#define SVs_SMG		0x00400000  /* has magical set method */
+#define SVs_RMG		0x00800000  /* has random magical methods */
+
+#define SVf_FAKE	0x01000000  /* 0: glob is just a copy
+				       1: SV head arena wasn't malloc()ed
+				       2: For PVCV, whether CvUNIQUE(cv)
+					  refers to an eval or once only
+					  [CvEVAL(cv), CvSPECIAL(cv)]
+                                       3: HV: informally reserved by DAPM
+                                          for vtables */
+#define SVf_OOK		0x02000000  /* has valid offset value. For a PVHV this
+				       means that a hv_aux struct is present
+				       after the main array */
+#define SVf_BREAK	0x04000000  /* refcnt is artificially low - used by
+				       SVs in final arena cleanup.
+				       Set in S_regtry on PL_reg_curpm, so that
+				       perl_destruct will skip it.
+                                       Used for mark and sweep by OP_AASSIGN
+                                       */
+#define SVf_READONLY	0x08000000  /* may not be modified */
+
+
+
+
+#define SVf_THINKFIRST	(SVf_READONLY|SVf_PROTECT|SVf_ROK|SVf_FAKE \
+			|SVs_RMG|SVf_IsCOW)
+
+#define SVf_OK		(SVf_IOK|SVf_NOK|SVf_POK|SVf_ROK| \
+			 SVp_IOK|SVp_NOK|SVp_POK|SVpgv_GP)
+
+#define PRIVSHIFT 4	/* (SVp_?OK >> PRIVSHIFT) == SVf_?OK */
+
+/* Note that SVf_AMAGIC is now only set on stashes.  */
+#define SVf_AMAGIC	0x10000000  /* has magical overloaded methods */
+#define SVf_IsCOW	0x10000000  /* copy on write (shared hash key if
+				       SvLEN == 0) */
+
+/* Ensure this value does not clash with the GV_ADD* flags in gv.h, or the
+   CV_CKPROTO_* flags in op.c, or the padadd_* flags in pad.h: */
+#define SVf_UTF8        0x20000000  /* SvPV is UTF-8 encoded
+				       This is also set on RVs whose overloaded
+				       stringification is UTF-8. This might
+				       only happen as a side effect of SvPV() */
+/* PVHV */
+#define SVphv_SHAREKEYS 0x20000000  /* PVHV keys live on shared string table */
+
+/* PVAV could probably use 0x2000000 without conflict. I assume that PVFM can
+   be UTF-8 encoded, and PVCVs could well have UTF-8 prototypes. PVIOs haven't
+   been restructured, so sometimes get used as string buffers.  */
+
+
+/* Some private flags. */
+
+
+/* The SVp_SCREAM|SVpbm_VALID (0x40008000) combination is up for grabs.
+   Formerly it was used for pad names, but now it is available.  The core
+   is careful to avoid setting both flags.
+
+   SVf_POK, SVp_POK also set:
+   0x00004400   Normal
+   0x0000C400   method name for DOES (SvSCREAM)
+   0x40004400   FBM compiled (SvVALID)
+   0x4000C400   *** Formerly used for pad names ***
+
+   0x00008000   GV with GP
+   0x00008800   RV with PCS imported
+*/
+/* PVAV */
+#define SVpav_REAL	0x40000000  /* free old entries */
+/* PVHV */
+#define SVphv_LAZYDEL	0x40000000  /* entry in xhv_eiter must be deleted */
+/* This is only set true on a PVGV when it's playing "PVBM", but is tested for
+   on any regular scalar (anything <= PVLV) */
+#define SVpbm_VALID	0x40000000
+/* Only used in toke.c on an SV stored in PL_lex_repl */
+#define SVrepl_EVAL	0x40000000  /* Replacement part of s///e */
+
+/* IV, PVIV, PVNV, PVMG, PVGV and (I assume) PVLV  */
+#define SVf_IVisUV	0x80000000  /* use XPVUV instead of XPVIV */
+/* PVAV */
+#define SVpav_REIFY 	0x80000000  /* can become real */
+/* PVHV */
+#define SVphv_HASKFLAGS	0x80000000  /* keys have flag byte after hash */
+/* PVGV when SVpbm_VALID is true */
+#define SVpbm_TAIL	0x80000000  /* string has a fake "\n" appended */
+/* RV upwards. However, SVf_ROK and SVp_IOK are exclusive  */
+#define SVprv_WEAKREF   0x80000000  /* Weak reference */
+/* pad name vars only */
+
+#define _XPV_HEAD							\
+    HV*		xmg_stash;	/* class package */			\
+    union _xmgu	xmg_u;							\
+    STRLEN	xpv_cur;	/* length of svu_pv as a C string */    \
+    union {								\
+	STRLEN	xpvlenu_len; 	/* allocated size */			\
+	char *	xpvlenu_pv;	/* regexp string */			\
+    } xpv_len_u	
+
+#define xpv_len	xpv_len_u.xpvlenu_len
+
+union _xnvu {
+    NV	    xnv_nv;		/* numeric value, if any */
+    HV *    xgv_stash;
+    struct {
+	U32 xlow;
+	U32 xhigh;
+    }	    xpad_cop_seq;	/* used by pad.c for cop_sequence */
+};
+
+union _xivu {
+    IV	    xivu_iv;		/* integer value */
+    UV	    xivu_uv;
+    HEK *   xivu_namehek;	/* xpvlv, xpvgv: GvNAME */
+};
+
+union _xmgu {
+    MAGIC*  xmg_magic;		/* linked list of magicalness */
+    STRLEN  xmg_hash_index;	/* used while freeing hash entries */
+};
+
+struct xpv {
+    _XPV_HEAD;
+};
+
+struct xpviv {
+    _XPV_HEAD;
+    union _xivu xiv_u;
+};
+
+#define xiv_iv xiv_u.xivu_iv
+
+struct xpvuv {
+    _XPV_HEAD;
+    union _xivu xuv_u;
+};
+
+#define xuv_uv xuv_u.xivu_uv
+
+struct xpvnv {
+    _XPV_HEAD;
+    union _xivu xiv_u;
+    union _xnvu xnv_u;
+};
+
+/* This structure must match the beginning of struct xpvhv in hv.h. */
+struct xpvmg {
+    _XPV_HEAD;
+    union _xivu xiv_u;
+    union _xnvu xnv_u;
+};
+
+struct xpvlv {
+    _XPV_HEAD;
+    union _xivu xiv_u;
+    union _xnvu xnv_u;
+    union {
+	STRLEN	xlvu_targoff;
+	SSize_t xlvu_stargoff;
+    } xlv_targoff_u;
+    STRLEN	xlv_targlen;
+    SV*		xlv_targ;
+    char	xlv_type;	/* k=keys .=pos x=substr v=vec /=join/re
+				 * y=alem/helem/iter t=tie T=tied HE */
+    char	xlv_flags;	/* 1 = negative offset  2 = negative len */
+};
+
+#define xlv_targoff xlv_targoff_u.xlvu_targoff
+
+struct xpvinvlist {
+    _XPV_HEAD;
+    IV          prev_index;     /* caches result of previous invlist_search() */
+    STRLEN	iterator;       /* Stores where we are in iterating */
+    bool	is_offset;	/* The data structure for all inversion lists
+                                   begins with an element for code point U+0000.
+                                   If this bool is set, the actual list contains
+                                   that 0; otherwise, the list actually begins
+                                   with the following element.  Thus to invert
+                                   the list, merely toggle this flag  */
+};
+
+/* This structure works in 3 ways - regular scalar, GV with GP, or fast
+   Boyer-Moore.  */
+struct xpvgv {
+    _XPV_HEAD;
+    union _xivu xiv_u;
+    union _xnvu xnv_u;
+};
+
+typedef U32 cv_flags_t;
+
+#define _XPVCV_COMMON								\
+    HV *	xcv_stash;							\
+    union {									\
+	OP *	xcv_start;							\
+	ANY	xcv_xsubany;							\
+    }		xcv_start_u;					    		\
+    union {									\
+	OP *	xcv_root;							\
+	void	(*xcv_xsub) (pTHX_ CV*);					\
+    }		xcv_root_u;							\
+    union {								\
+	GV *	xcv_gv;							\
+	HEK *	xcv_hek;						\
+    }		xcv_gv_u;						\
+    char *	xcv_file;							\
+    union {									\
+	PADLIST *	xcv_padlist;						\
+	void *		xcv_hscxt;						\
+    }		xcv_padlist_u;							\
+    CV *	xcv_outside;							\
+    U32		xcv_outside_seq; /* the COP sequence (at the point of our	\
+				  * compilation) in the lexically enclosing	\
+				  * sub */					\
+    cv_flags_t	xcv_flags;						\
+    I32	xcv_depth	/* >= 2 indicates recursive call */
+
+/* This structure must match XPVCV in cv.h */
+
+struct xpvfm {
+    _XPV_HEAD;
+    _XPVCV_COMMON;
+};
+
+
+struct xpvio {
+    _XPV_HEAD;
+    union _xivu xiv_u;
+    /* ifp and ofp are normally the same, but sockets need separate streams */
+    PerlIO *	xio_ofp;
+    /* Cray addresses everything by word boundaries (64 bits) and
+     * code and data pointers cannot be mixed (which is exactly what
+     * Perl_filter_add() tries to do with the dirp), hence the
+     *  following union trick (as suggested by Gurusamy Sarathy).
+     * For further information see Geir Johansen's problem report
+     * titled [ID 20000612.002] Perl problem on Cray system
+     * The any pointer (known as IoANY()) will also be a good place
+     * to hang any IO disciplines to.
+     */
+    union {
+	DIR *	xiou_dirp;	/* for opendir, readdir, etc */
+	void *	xiou_any;	/* for alignment */
+    } xio_dirpu;
+    /* IV xio_lines is now in IVX  $. */
+    IV		xio_page;	/* $% */
+    IV		xio_page_len;	/* $= */
+    IV		xio_lines_left;	/* $- */
+    char *	xio_top_name;	/* $^ */
+    GV *	xio_top_gv;	/* $^ */
+    char *	xio_fmt_name;	/* $~ */
+    GV *	xio_fmt_gv;	/* $~ */
+    char *	xio_bottom_name;/* $^B */
+    GV *	xio_bottom_gv;	/* $^B */
+    char	xio_type;
+    U8		xio_flags;
+};
+
+#define xio_dirp	xio_dirpu.xiou_dirp
+#define xio_any		xio_dirpu.xiou_any
+
+#define IOf_ARGV	1	/* this fp iterates over ARGV */
+#define IOf_START	2	/* check for null ARGV and substitute '-' */
+#define IOf_FLUSH	4	/* this fp wants a flush after write op */
+#define IOf_DIDTOP	8	/* just did top of form */
+#define IOf_UNTAINT	16	/* consider this fp (and its data) "safe" */
+#define IOf_NOLINE	32	/* slurped a pseudo-line from empty file */
+#define IOf_FAKE_DIRP	64	/* xio_dirp is fake (source filters kludge)
+				   Also, when this is set, SvPVX() is valid */
+
+/* The following macros define implementation-independent predicates on SVs. */
+
+/*
+=for apidoc Am|U32|SvNIOK|SV* sv
+Returns a U32 value indicating whether the SV contains a number, integer or
+double.
+
+=for apidoc Am|U32|SvNIOKp|SV* sv
+Returns a U32 value indicating whether the SV contains a number, integer or
+double.  Checks the B<private> setting.  Use C<SvNIOK> instead.
+
+=for apidoc Am|void|SvNIOK_off|SV* sv
+Unsets the NV/IV status of an SV.
+
+=for apidoc Am|U32|SvOK|SV* sv
+Returns a U32 value indicating whether the value is defined.  This is
+only meaningful for scalars.
+
+=for apidoc Am|U32|SvIOKp|SV* sv
+Returns a U32 value indicating whether the SV contains an integer.  Checks
+the B<private> setting.  Use C<SvIOK> instead.
+
+=for apidoc Am|U32|SvNOKp|SV* sv
+Returns a U32 value indicating whether the SV contains a double.  Checks the
+B<private> setting.  Use C<SvNOK> instead.
+
+=for apidoc Am|U32|SvPOKp|SV* sv
+Returns a U32 value indicating whether the SV contains a character string.
+Checks the B<private> setting.  Use C<SvPOK> instead.
+
+=for apidoc Am|U32|SvIOK|SV* sv
+Returns a U32 value indicating whether the SV contains an integer.
+
+=for apidoc Am|void|SvIOK_on|SV* sv
+Tells an SV that it is an integer.
+
+=for apidoc Am|void|SvIOK_off|SV* sv
+Unsets the IV status of an SV.
+
+=for apidoc Am|void|SvIOK_only|SV* sv
+Tells an SV that it is an integer and disables all other C<OK> bits.
+
+=for apidoc Am|void|SvIOK_only_UV|SV* sv
+Tells an SV that it is an unsigned integer and disables all other C<OK> bits.
+
+=for apidoc Am|bool|SvIOK_UV|SV* sv
+Returns a boolean indicating whether the SV contains an integer that must be
+interpreted as unsigned.  A non-negative integer whose value is within the
+range of both an IV and a UV may be be flagged as either C<SvUOK> or C<SVIOK>.
+
+=for apidoc Am|bool|SvUOK|SV* sv
+Returns a boolean indicating whether the SV contains an integer that must be
+interpreted as unsigned.  A non-negative integer whose value is within the
+range of both an IV and a UV may be be flagged as either C<SvUOK> or C<SVIOK>.
+
+=for apidoc Am|bool|SvIOK_notUV|SV* sv
+Returns a boolean indicating whether the SV contains a signed integer.
+
+=for apidoc Am|U32|SvNOK|SV* sv
+Returns a U32 value indicating whether the SV contains a double.
+
+=for apidoc Am|void|SvNOK_on|SV* sv
+Tells an SV that it is a double.
+
+=for apidoc Am|void|SvNOK_off|SV* sv
+Unsets the NV status of an SV.
+
+=for apidoc Am|void|SvNOK_only|SV* sv
+Tells an SV that it is a double and disables all other OK bits.
+
+=for apidoc Am|U32|SvPOK|SV* sv
+Returns a U32 value indicating whether the SV contains a character
+string.
+
+=for apidoc Am|void|SvPOK_on|SV* sv
+Tells an SV that it is a string.
+
+=for apidoc Am|void|SvPOK_off|SV* sv
+Unsets the PV status of an SV.
+
+=for apidoc Am|void|SvPOK_only|SV* sv
+Tells an SV that it is a string and disables all other C<OK> bits.
+Will also turn off the UTF-8 status.
+
+=for apidoc Am|bool|SvVOK|SV* sv
+Returns a boolean indicating whether the SV contains a v-string.
+
+=for apidoc Am|U32|SvOOK|SV* sv
+Returns a U32 indicating whether the pointer to the string buffer is offset.
+This hack is used internally to speed up removal of characters from the
+beginning of a C<SvPV>.  When C<SvOOK> is true, then the start of the
+allocated string buffer is actually C<SvOOK_offset()> bytes before C<SvPVX>.
+This offset used to be stored in C<SvIVX>, but is now stored within the spare
+part of the buffer.
+
+=for apidoc Am|U32|SvROK|SV* sv
+Tests if the SV is an RV.
+
+=for apidoc Am|void|SvROK_on|SV* sv
+Tells an SV that it is an RV.
+
+=for apidoc Am|void|SvROK_off|SV* sv
+Unsets the RV status of an SV.
+
+=for apidoc Am|SV*|SvRV|SV* sv
+Dereferences an RV to return the SV.
+
+=for apidoc Am|IV|SvIVX|SV* sv
+Returns the raw value in the SV's IV slot, without checks or conversions.
+Only use when you are sure C<SvIOK> is true.  See also C<L</SvIV>>.
+
+=for apidoc Am|UV|SvUVX|SV* sv
+Returns the raw value in the SV's UV slot, without checks or conversions.
+Only use when you are sure C<SvIOK> is true.  See also C<L</SvUV>>.
+
+=for apidoc Am|NV|SvNVX|SV* sv
+Returns the raw value in the SV's NV slot, without checks or conversions.
+Only use when you are sure C<SvNOK> is true.  See also C<L</SvNV>>.
+
+=for apidoc Am|char*|SvPVX|SV* sv
+Returns a pointer to the physical string in the SV.  The SV must contain a
+string.  Prior to 5.9.3 it is not safe
+to execute this macro unless the SV's
+type >= C<SVt_PV>.
+
+This is also used to store the name of an autoloaded subroutine in an XS
+AUTOLOAD routine.  See L<perlguts/Autoloading with XSUBs>.
+
+=for apidoc Am|STRLEN|SvCUR|SV* sv
+Returns the length of the string which is in the SV.  See C<L</SvLEN>>.
+
+=for apidoc Am|STRLEN|SvLEN|SV* sv
+Returns the size of the string buffer in the SV, not including any part
+attributable to C<SvOOK>.  See C<L</SvCUR>>.
+
+=for apidoc Am|char*|SvEND|SV* sv
+Returns a pointer to the spot just after the last character in
+the string which is in the SV, where there is usually a trailing
+C<NUL> character (even though Perl scalars do not strictly require it).
+See C<L</SvCUR>>.  Access the character as C<*(SvEND(sv))>.
+
+Warning: If C<SvCUR> is equal to C<SvLEN>, then C<SvEND> points to
+unallocated memory.
+
+=for apidoc Am|HV*|SvSTASH|SV* sv
+Returns the stash of the SV.
+
+=for apidoc Am|void|SvIV_set|SV* sv|IV val
+Set the value of the IV pointer in sv to val.  It is possible to perform
+the same function of this macro with an lvalue assignment to C<SvIVX>.
+With future Perls, however, it will be more efficient to use 
+C<SvIV_set> instead of the lvalue assignment to C<SvIVX>.
+
+=for apidoc Am|void|SvNV_set|SV* sv|NV val
+Set the value of the NV pointer in C<sv> to val.  See C<L</SvIV_set>>.
+
+=for apidoc Am|void|SvPV_set|SV* sv|char* val
+This is probably not what you want to use, you probably wanted
+L</sv_usepvn_flags> or L</sv_setpvn> or L</sv_setpvs>.
+
+Set the value of the PV pointer in C<sv> to the Perl allocated
+C<NUL>-terminated string C<val>.  See also C<L</SvIV_set>>.
+
+Remember to free the previous PV buffer. There are many things to check.
+Beware that the existing pointer may be involved in copy-on-write or other
+mischief, so do C<SvOOK_off(sv)> and use C<sv_force_normal> or
+C<SvPV_force> (or check the C<SvIsCOW> flag) first to make sure this
+modification is safe. Then finally, if it is not a COW, call C<SvPV_free> to
+free the previous PV buffer.
+
+=for apidoc Am|void|SvUV_set|SV* sv|UV val
+Set the value of the UV pointer in C<sv> to val.  See C<L</SvIV_set>>.
+
+=for apidoc Am|void|SvRV_set|SV* sv|SV* val
+Set the value of the RV pointer in C<sv> to val.  See C<L</SvIV_set>>.
+
+=for apidoc Am|void|SvMAGIC_set|SV* sv|MAGIC* val
+Set the value of the MAGIC pointer in C<sv> to val.  See C<L</SvIV_set>>.
+
+=for apidoc Am|void|SvSTASH_set|SV* sv|HV* val
+Set the value of the STASH pointer in C<sv> to val.  See C<L</SvIV_set>>.
+
+=for apidoc Am|void|SvCUR_set|SV* sv|STRLEN len
+Set the current length of the string which is in the SV.  See C<L</SvCUR>>
+and C<SvIV_set>>.
+
+=for apidoc Am|void|SvLEN_set|SV* sv|STRLEN len
+Set the size of the string buffer for the SV. See C<L</SvLEN>>.
+
+=cut
+*/
+
+#define SvNIOK(sv)		(SvFLAGS(sv) & (SVf_IOK|SVf_NOK))
+#define SvNIOKp(sv)		(SvFLAGS(sv) & (SVp_IOK|SVp_NOK))
+#define SvNIOK_off(sv)		(SvFLAGS(sv) &= ~(SVf_IOK|SVf_NOK| \
+						  SVp_IOK|SVp_NOK|SVf_IVisUV))
+
+#define assert_not_ROK(sv)	assert_(!SvROK(sv) || !SvRV(sv))
+#define assert_not_glob(sv)	assert_(!isGV_with_GP(sv))
+
+#define SvOK(sv)		(SvFLAGS(sv) & SVf_OK || isREGEXP(sv))
+#define SvOK_off(sv)		(assert_not_ROK(sv) assert_not_glob(sv)	\
+				 SvFLAGS(sv) &=	~(SVf_OK|		\
+						  SVf_IVisUV|SVf_UTF8),	\
+							SvOOK_off(sv))
+#define SvOK_off_exc_UV(sv)	(assert_not_ROK(sv)			\
+				 SvFLAGS(sv) &=	~(SVf_OK|		\
+						  SVf_UTF8),		\
+							SvOOK_off(sv))
+
+#define SvOKp(sv)		(SvFLAGS(sv) & (SVp_IOK|SVp_NOK|SVp_POK))
+#define SvIOKp(sv)		(SvFLAGS(sv) & SVp_IOK)
+#define SvIOKp_on(sv)		(assert_not_glob(sv)	\
+				    SvFLAGS(sv) |= SVp_IOK)
+#define SvNOKp(sv)		(SvFLAGS(sv) & SVp_NOK)
+#define SvNOKp_on(sv)		(assert_not_glob(sv) SvFLAGS(sv) |= SVp_NOK)
+#define SvPOKp(sv)		(SvFLAGS(sv) & SVp_POK)
+#define SvPOKp_on(sv)		(assert_not_ROK(sv) assert_not_glob(sv)	\
+				 SvFLAGS(sv) |= SVp_POK)
+
+#define SvIOK(sv)		(SvFLAGS(sv) & SVf_IOK)
+#define SvIOK_on(sv)		(assert_not_glob(sv)	\
+				    SvFLAGS(sv) |= (SVf_IOK|SVp_IOK))
+#define SvIOK_off(sv)		(SvFLAGS(sv) &= ~(SVf_IOK|SVp_IOK|SVf_IVisUV))
+#define SvIOK_only(sv)		(SvOK_off(sv), \
+				    SvFLAGS(sv) |= (SVf_IOK|SVp_IOK))
+#define SvIOK_only_UV(sv)	(assert_not_glob(sv) SvOK_off_exc_UV(sv), \
+				    SvFLAGS(sv) |= (SVf_IOK|SVp_IOK))
+
+#define SvIOK_UV(sv)		((SvFLAGS(sv) & (SVf_IOK|SVf_IVisUV))	\
+				 == (SVf_IOK|SVf_IVisUV))
+#define SvUOK(sv)		SvIOK_UV(sv)
+#define SvIOK_notUV(sv)		((SvFLAGS(sv) & (SVf_IOK|SVf_IVisUV))	\
+				 == SVf_IOK)
+
+#define SvIsUV(sv)		(SvFLAGS(sv) & SVf_IVisUV)
+#define SvIsUV_on(sv)		(SvFLAGS(sv) |= SVf_IVisUV)
+#define SvIsUV_off(sv)		(SvFLAGS(sv) &= ~SVf_IVisUV)
+
+#define SvNOK(sv)		(SvFLAGS(sv) & SVf_NOK)
+#define SvNOK_on(sv)		(assert_not_glob(sv) \
+				 SvFLAGS(sv) |= (SVf_NOK|SVp_NOK))
+#define SvNOK_off(sv)		(SvFLAGS(sv) &= ~(SVf_NOK|SVp_NOK))
+#define SvNOK_only(sv)		(SvOK_off(sv), \
+				    SvFLAGS(sv) |= (SVf_NOK|SVp_NOK))
+
+/*
+=for apidoc Am|U32|SvUTF8|SV* sv
+Returns a U32 value indicating the UTF-8 status of an SV.  If things are set-up
+properly, this indicates whether or not the SV contains UTF-8 encoded data.
+You should use this I<after> a call to C<SvPV()> or one of its variants, in
+case any call to string overloading updates the internal flag.
+
+If you want to take into account the L<bytes> pragma, use C<L</DO_UTF8>>
+instead.
+
+=for apidoc Am|void|SvUTF8_on|SV *sv
+Turn on the UTF-8 status of an SV (the data is not changed, just the flag).
+Do not use frivolously.
+
+=for apidoc Am|void|SvUTF8_off|SV *sv
+Unsets the UTF-8 status of an SV (the data is not changed, just the flag).
+Do not use frivolously.
+
+=for apidoc Am|void|SvPOK_only_UTF8|SV* sv
+Tells an SV that it is a string and disables all other C<OK> bits,
+and leaves the UTF-8 status as it was.
+
+=cut
+ */
+
+/* Ensure the return value of this macro does not clash with the GV_ADD* flags
+in gv.h: */
+#define SvUTF8(sv)		(SvFLAGS(sv) & SVf_UTF8)
+#define SvUTF8_on(sv)		(SvFLAGS(sv) |= (SVf_UTF8))
+#define SvUTF8_off(sv)		(SvFLAGS(sv) &= ~(SVf_UTF8))
+
+#define SvPOK(sv)		(SvFLAGS(sv) & SVf_POK)
+#define SvPOK_on(sv)		(assert_not_ROK(sv) assert_not_glob(sv)	\
+				 SvFLAGS(sv) |= (SVf_POK|SVp_POK))
+#define SvPOK_off(sv)		(SvFLAGS(sv) &= ~(SVf_POK|SVp_POK))
+#define SvPOK_only(sv)		(assert_not_ROK(sv) assert_not_glob(sv)	\
+				 SvFLAGS(sv) &= ~(SVf_OK|		\
+						  SVf_IVisUV|SVf_UTF8),	\
+				    SvFLAGS(sv) |= (SVf_POK|SVp_POK))
+#define SvPOK_only_UTF8(sv)	(assert_not_ROK(sv) assert_not_glob(sv)	\
+				 SvFLAGS(sv) &= ~(SVf_OK|		\
+						  SVf_IVisUV),		\
+				    SvFLAGS(sv) |= (SVf_POK|SVp_POK))
+
+#define SvVOK(sv)		(SvMAGICAL(sv)				\
+				 && mg_find(sv,PERL_MAGIC_vstring))
+/* returns the vstring magic, if any */
+#define SvVSTRING_mg(sv)	(SvMAGICAL(sv) \
+				 ? mg_find(sv,PERL_MAGIC_vstring) : NULL)
+
+#define SvOOK(sv)		(SvFLAGS(sv) & SVf_OOK)
+#define SvOOK_on(sv)		(SvFLAGS(sv) |= SVf_OOK)
+#define SvOOK_off(sv)		((void)(SvOOK(sv) && (sv_backoff(sv),0)))
+
+#define SvFAKE(sv)		(SvFLAGS(sv) & SVf_FAKE)
+#define SvFAKE_on(sv)		(SvFLAGS(sv) |= SVf_FAKE)
+#define SvFAKE_off(sv)		(SvFLAGS(sv) &= ~SVf_FAKE)
+
+#define SvROK(sv)		(SvFLAGS(sv) & SVf_ROK)
+#define SvROK_on(sv)		(SvFLAGS(sv) |= SVf_ROK)
+#define SvROK_off(sv)		(SvFLAGS(sv) &= ~(SVf_ROK))
+
+#define SvMAGICAL(sv)		(SvFLAGS(sv) & (SVs_GMG|SVs_SMG|SVs_RMG))
+#define SvMAGICAL_on(sv)	(SvFLAGS(sv) |= (SVs_GMG|SVs_SMG|SVs_RMG))
+#define SvMAGICAL_off(sv)	(SvFLAGS(sv) &= ~(SVs_GMG|SVs_SMG|SVs_RMG))
+
+#define SvGMAGICAL(sv)		(SvFLAGS(sv) & SVs_GMG)
+#define SvGMAGICAL_on(sv)	(SvFLAGS(sv) |= SVs_GMG)
+#define SvGMAGICAL_off(sv)	(SvFLAGS(sv) &= ~SVs_GMG)
+
+#define SvSMAGICAL(sv)		(SvFLAGS(sv) & SVs_SMG)
+#define SvSMAGICAL_on(sv)	(SvFLAGS(sv) |= SVs_SMG)
+#define SvSMAGICAL_off(sv)	(SvFLAGS(sv) &= ~SVs_SMG)
+
+#define SvRMAGICAL(sv)		(SvFLAGS(sv) & SVs_RMG)
+#define SvRMAGICAL_on(sv)	(SvFLAGS(sv) |= SVs_RMG)
+#define SvRMAGICAL_off(sv)	(SvFLAGS(sv) &= ~SVs_RMG)
+
+#define SvAMAGIC(sv)		(SvROK(sv) && SvOBJECT(SvRV(sv)) &&	\
+				 HvAMAGIC(SvSTASH(SvRV(sv))))
+
+/* To be used on the stashes themselves: */
+#define HvAMAGIC(hv)		(SvFLAGS(hv) & SVf_AMAGIC)
+#define HvAMAGIC_on(hv)		(SvFLAGS(hv) |= SVf_AMAGIC)
+#define HvAMAGIC_off(hv)	(SvFLAGS(hv) &=~ SVf_AMAGIC)
+
+
+/* "nog" means "doesn't have get magic" */
+#define SvPOK_nog(sv)		((SvFLAGS(sv) & (SVf_POK|SVs_GMG)) == SVf_POK)
+#define SvIOK_nog(sv)		((SvFLAGS(sv) & (SVf_IOK|SVs_GMG)) == SVf_IOK)
+#define SvUOK_nog(sv)		((SvFLAGS(sv) & (SVf_IOK|SVf_IVisUV|SVs_GMG)) == (SVf_IOK|SVf_IVisUV))
+#define SvNOK_nog(sv)		((SvFLAGS(sv) & (SVf_NOK|SVs_GMG)) == SVf_NOK)
+#define SvNIOK_nog(sv)		(SvNIOK(sv) && !(SvFLAGS(sv) & SVs_GMG))
+
+#define SvPOK_nogthink(sv)	((SvFLAGS(sv) & (SVf_POK|SVf_THINKFIRST|SVs_GMG)) == SVf_POK)
+#define SvIOK_nogthink(sv)	((SvFLAGS(sv) & (SVf_IOK|SVf_THINKFIRST|SVs_GMG)) == SVf_IOK)
+#define SvUOK_nogthink(sv)	((SvFLAGS(sv) & (SVf_IOK|SVf_IVisUV|SVf_THINKFIRST|SVs_GMG)) == (SVf_IOK|SVf_IVisUV))
+#define SvNOK_nogthink(sv)	((SvFLAGS(sv) & (SVf_NOK|SVf_THINKFIRST|SVs_GMG)) == SVf_NOK)
+#define SvNIOK_nogthink(sv)	(SvNIOK(sv) && !(SvFLAGS(sv) & (SVf_THINKFIRST|SVs_GMG)))
+
+#define SvPOK_utf8_nog(sv)	((SvFLAGS(sv) & (SVf_POK|SVf_UTF8|SVs_GMG)) == (SVf_POK|SVf_UTF8))
+#define SvPOK_utf8_nogthink(sv)	((SvFLAGS(sv) & (SVf_POK|SVf_UTF8|SVf_THINKFIRST|SVs_GMG)) == (SVf_POK|SVf_UTF8))
+
+#define SvPOK_byte_nog(sv)	((SvFLAGS(sv) & (SVf_POK|SVf_UTF8|SVs_GMG)) == SVf_POK)
+#define SvPOK_byte_nogthink(sv)	((SvFLAGS(sv) & (SVf_POK|SVf_UTF8|SVf_THINKFIRST|SVs_GMG)) == SVf_POK)
+
+#define SvPOK_pure_nogthink(sv) \
+    ((SvFLAGS(sv) & (SVf_POK|SVf_IOK|SVf_NOK|SVf_ROK|SVpgv_GP|SVf_THINKFIRST|SVs_GMG)) == SVf_POK)
+#define SvPOK_utf8_pure_nogthink(sv) \
+    ((SvFLAGS(sv) & (SVf_POK|SVf_UTF8|SVf_IOK|SVf_NOK|SVf_ROK|SVpgv_GP|SVf_THINKFIRST|SVs_GMG)) == (SVf_POK|SVf_UTF8))
+#define SvPOK_byte_pure_nogthink(sv) \
+    ((SvFLAGS(sv) & (SVf_POK|SVf_UTF8|SVf_IOK|SVf_NOK|SVf_ROK|SVpgv_GP|SVf_THINKFIRST|SVs_GMG)) == SVf_POK)
+
+/*
+=for apidoc Am|U32|SvGAMAGIC|SV* sv
+
+Returns true if the SV has get magic or
+overloading.  If either is true then
+the scalar is active data, and has the potential to return a new value every
+time it is accessed.  Hence you must be careful to
+only read it once per user logical operation and work
+with that returned value.  If neither is true then
+the scalar's value cannot change unless written to.
+
+=cut
+*/
+
+#define SvGAMAGIC(sv)           (SvGMAGICAL(sv) || SvAMAGIC(sv))
+
+#define Gv_AMG(stash) \
+	(HvNAME(stash) && Gv_AMupdate(stash,FALSE) \
+	    ? 1					    \
+	    : (HvAMAGIC_off(stash), 0))
+
+#define SvWEAKREF(sv)		((SvFLAGS(sv) & (SVf_ROK|SVprv_WEAKREF)) \
+				  == (SVf_ROK|SVprv_WEAKREF))
+#define SvWEAKREF_on(sv)	(SvFLAGS(sv) |=  (SVf_ROK|SVprv_WEAKREF))
+#define SvWEAKREF_off(sv)	(SvFLAGS(sv) &= ~(SVf_ROK|SVprv_WEAKREF))
+
+#define SvPCS_IMPORTED(sv)	((SvFLAGS(sv) & (SVf_ROK|SVprv_PCS_IMPORTED)) \
+				 == (SVf_ROK|SVprv_PCS_IMPORTED))
+#define SvPCS_IMPORTED_on(sv)	(SvFLAGS(sv) |=  (SVf_ROK|SVprv_PCS_IMPORTED))
+#define SvPCS_IMPORTED_off(sv)	(SvFLAGS(sv) &= ~(SVf_ROK|SVprv_PCS_IMPORTED))
+
+/*
+=for apidoc m|U32|SvTHINKFIRST|SV *sv
+
+A quick flag check to see whether an C<sv> should be passed to C<sv_force_normal>
+to be "downgraded" before C<SvIVX> or C<SvPVX> can be modified directly.
+
+For example, if your scalar is a reference and you want to modify the C<SvIVX>
+slot, you can't just do C<SvROK_off>, as that will leak the referent.
+
+This is used internally by various sv-modifying functions, such as
+C<sv_setsv>, C<sv_setiv> and C<sv_pvn_force>.
+
+One case that this does not handle is a gv without SvFAKE set.  After
+
+    if (SvTHINKFIRST(gv)) sv_force_normal(gv);
+
+it will still be a gv.
+
+C<SvTHINKFIRST> sometimes produces false positives.  In those cases
+C<sv_force_normal> does nothing.
+
+=cut
+*/
+
+#define SvTHINKFIRST(sv)	(SvFLAGS(sv) & SVf_THINKFIRST)
+
+#define SVs_PADMY		0
+#define SvPADMY(sv)		!(SvFLAGS(sv) & SVs_PADTMP)
+#ifndef PERL_CORE
+# define SvPADMY_on(sv)		SvPADTMP_off(sv)
+#endif
+
+#define SvPADTMP(sv)		(SvFLAGS(sv) & (SVs_PADTMP))
+#define SvPADSTALE(sv)		(SvFLAGS(sv) & (SVs_PADSTALE))
+
+#define SvPADTMP_on(sv)		(SvFLAGS(sv) |= SVs_PADTMP)
+#define SvPADTMP_off(sv)	(SvFLAGS(sv) &= ~SVs_PADTMP)
+#define SvPADSTALE_on(sv)	S_SvPADSTALE_on(MUTABLE_SV(sv))
+#define SvPADSTALE_off(sv)	S_SvPADSTALE_off(MUTABLE_SV(sv))
+
+#define SvTEMP(sv)		(SvFLAGS(sv) & SVs_TEMP)
+#define SvTEMP_on(sv)		(SvFLAGS(sv) |= SVs_TEMP)
+#define SvTEMP_off(sv)		(SvFLAGS(sv) &= ~SVs_TEMP)
+
+#define SvOBJECT(sv)		(SvFLAGS(sv) & SVs_OBJECT)
+#define SvOBJECT_on(sv)		(SvFLAGS(sv) |= SVs_OBJECT)
+#define SvOBJECT_off(sv)	(SvFLAGS(sv) &= ~SVs_OBJECT)
+
+#define SvREADONLY(sv)		(SvFLAGS(sv) & (SVf_READONLY|SVf_PROTECT))
+#ifdef PERL_CORE
+# define SvREADONLY_on(sv)	(SvFLAGS(sv) |= (SVf_READONLY|SVf_PROTECT))
+# define SvREADONLY_off(sv)	(SvFLAGS(sv) &=~(SVf_READONLY|SVf_PROTECT))
+#else
+# define SvREADONLY_on(sv)	(SvFLAGS(sv) |= SVf_READONLY)
+# define SvREADONLY_off(sv)	(SvFLAGS(sv) &= ~SVf_READONLY)
+#endif
+
+#define SvSCREAM(sv) ((SvFLAGS(sv) & (SVp_SCREAM|SVp_POK)) == (SVp_SCREAM|SVp_POK))
+#define SvSCREAM_on(sv)		(SvFLAGS(sv) |= SVp_SCREAM)
+#define SvSCREAM_off(sv)	(SvFLAGS(sv) &= ~SVp_SCREAM)
+
+#ifndef PERL_CORE
+#  define SvCOMPILED(sv)	0
+#  define SvCOMPILED_on(sv)
+#  define SvCOMPILED_off(sv)
+#endif
+
+#define SvEVALED(sv)		(SvFLAGS(sv) & SVrepl_EVAL)
+#define SvEVALED_on(sv)		(SvFLAGS(sv) |= SVrepl_EVAL)
+#define SvEVALED_off(sv)	(SvFLAGS(sv) &= ~SVrepl_EVAL)
+
+#if defined (DEBUGGING) && defined(__GNUC__) && !defined(PERL_GCC_BRACE_GROUPS_FORBIDDEN)
+#  define SvVALID(sv)		({ const SV *const _svvalid = (const SV*)(sv); \
+				   if (SvFLAGS(_svvalid) & SVpbm_VALID && !SvSCREAM(_svvalid)) \
+				       assert(!isGV_with_GP(_svvalid));	\
+				   (SvFLAGS(_svvalid) & SVpbm_VALID);	\
+				})
+#  define SvVALID_on(sv)	({ SV *const _svvalid = MUTABLE_SV(sv);	\
+				   assert(!isGV_with_GP(_svvalid));	\
+				   assert(!SvSCREAM(_svvalid));		\
+				   (SvFLAGS(_svvalid) |= SVpbm_VALID);	\
+				})
+#  define SvVALID_off(sv)	({ SV *const _svvalid = MUTABLE_SV(sv);	\
+				   assert(!isGV_with_GP(_svvalid));	\
+				   assert(!SvSCREAM(_svvalid));		\
+				   (SvFLAGS(_svvalid) &= ~SVpbm_VALID);	\
+				})
+
+#  define SvTAIL(sv)	({ const SV *const _svtail = (const SV *)(sv);	\
+			    assert(SvTYPE(_svtail) != SVt_PVAV);	\
+			    assert(SvTYPE(_svtail) != SVt_PVHV);	\
+			    assert(!SvSCREAM(_svtail));			\
+			    (SvFLAGS(sv) & (SVpbm_TAIL|SVpbm_VALID))	\
+				== (SVpbm_TAIL|SVpbm_VALID);		\
+			})
+#else
+#  define SvVALID(sv)		((SvFLAGS(sv) & SVpbm_VALID) && !SvSCREAM(sv))
+#  define SvVALID_on(sv)	(SvFLAGS(sv) |= SVpbm_VALID)
+#  define SvVALID_off(sv)	(SvFLAGS(sv) &= ~SVpbm_VALID)
+#  define SvTAIL(sv)	    ((SvFLAGS(sv) & (SVpbm_TAIL|SVpbm_VALID))	\
+			     == (SVpbm_TAIL|SVpbm_VALID))
+
+#endif
+#define SvTAIL_on(sv)		(SvFLAGS(sv) |= SVpbm_TAIL)
+#define SvTAIL_off(sv)		(SvFLAGS(sv) &= ~SVpbm_TAIL)
+
+#define SvRVx(sv) SvRV(sv)
+
+#ifdef PERL_DEBUG_COW
+/* Need -0.0 for SvNVX to preserve IEEE FP "negative zero" because
+   +0.0 + -0.0 => +0.0 but -0.0 + -0.0 => -0.0 */
+#  define SvIVX(sv) (0 + ((XPVIV*) SvANY(sv))->xiv_iv)
+#  define SvUVX(sv) (0 + ((XPVUV*) SvANY(sv))->xuv_uv)
+#  define SvNVX(sv) (-0.0 + ((XPVNV*) SvANY(sv))->xnv_u.xnv_nv)
+#  define SvRV(sv) (0 + (sv)->sv_u.svu_rv)
+#  define SvRV_const(sv) (0 + (sv)->sv_u.svu_rv)
+/* Don't test the core XS code yet.  */
+#  if defined (PERL_CORE) && PERL_DEBUG_COW > 1
+#    define SvPVX(sv) (0 + (assert_(!SvREADONLY(sv)) (sv)->sv_u.svu_pv))
+#  else
+#  define SvPVX(sv) SvPVX_mutable(sv)
+#  endif
+#  define SvCUR(sv) (0 + ((XPV*) SvANY(sv))->xpv_cur)
+#  define SvLEN(sv) (0 + ((XPV*) SvANY(sv))->xpv_len)
+#  define SvEND(sv) ((sv)->sv_u.svu_pv + ((XPV*)SvANY(sv))->xpv_cur)
+
+#  define SvMAGIC(sv)	(0 + *(assert_(SvTYPE(sv) >= SVt_PVMG) &((XPVMG*)  SvANY(sv))->xmg_u.xmg_magic))
+#  define SvSTASH(sv)	(0 + *(assert_(SvTYPE(sv) >= SVt_PVMG) &((XPVMG*)  SvANY(sv))->xmg_stash))
+#else
+#  define SvLEN(sv) ((XPV*) SvANY(sv))->xpv_len
+#  define SvEND(sv) ((sv)->sv_u.svu_pv + ((XPV*)SvANY(sv))->xpv_cur)
+
+#  if defined (DEBUGGING) && defined(__GNUC__) && !defined(PERL_GCC_BRACE_GROUPS_FORBIDDEN)
+/* These get expanded inside other macros that already use a variable _sv  */
+#    define SvPVX(sv)							\
+	(*({ SV *const _svpvx = MUTABLE_SV(sv);				\
+	    assert(PL_valid_types_PVX[SvTYPE(_svpvx) & SVt_MASK]);	\
+	    assert(!isGV_with_GP(_svpvx));				\
+	    assert(!(SvTYPE(_svpvx) == SVt_PVIO				\
+		     && !(IoFLAGS(_svpvx) & IOf_FAKE_DIRP)));		\
+	    &((_svpvx)->sv_u.svu_pv);					\
+	 }))
+#    define SvCUR(sv)							\
+	(*({ const SV *const _svcur = (const SV *)(sv);			\
+	    assert(PL_valid_types_PVX[SvTYPE(_svcur) & SVt_MASK]	\
+		|| SvTYPE(_svcur) == SVt_REGEXP);			\
+	    assert(!isGV_with_GP(_svcur));				\
+	    assert(!(SvTYPE(_svcur) == SVt_PVIO				\
+		     && !(IoFLAGS(_svcur) & IOf_FAKE_DIRP)));		\
+	    &(((XPV*) MUTABLE_PTR(SvANY(_svcur)))->xpv_cur);		\
+	 }))
+#    define SvIVX(sv)							\
+	(*({ const SV *const _svivx = (const SV *)(sv);			\
+	    assert(PL_valid_types_IVX[SvTYPE(_svivx) & SVt_MASK]);	\
+	    assert(!isGV_with_GP(_svivx));				\
+	    &(((XPVIV*) MUTABLE_PTR(SvANY(_svivx)))->xiv_iv);		\
+	 }))
+#    define SvUVX(sv)							\
+	(*({ const SV *const _svuvx = (const SV *)(sv);			\
+	    assert(PL_valid_types_IVX[SvTYPE(_svuvx) & SVt_MASK]);	\
+	    assert(!isGV_with_GP(_svuvx));				\
+	    &(((XPVUV*) MUTABLE_PTR(SvANY(_svuvx)))->xuv_uv);		\
+	 }))
+#    define SvNVX(sv)							\
+	(*({ const SV *const _svnvx = (const SV *)(sv);			\
+	    assert(PL_valid_types_NVX[SvTYPE(_svnvx) & SVt_MASK]);	\
+	    assert(!isGV_with_GP(_svnvx));				\
+	    &(((XPVNV*) MUTABLE_PTR(SvANY(_svnvx)))->xnv_u.xnv_nv);	\
+	 }))
+#    define SvRV(sv)							\
+	(*({ SV *const _svrv = MUTABLE_SV(sv);				\
+	    assert(PL_valid_types_RV[SvTYPE(_svrv) & SVt_MASK]);	\
+	    assert(!isGV_with_GP(_svrv));				\
+	    assert(!(SvTYPE(_svrv) == SVt_PVIO				\
+		     && !(IoFLAGS(_svrv) & IOf_FAKE_DIRP)));		\
+	    &((_svrv)->sv_u.svu_rv);					\
+	 }))
+#    define SvRV_const(sv)						\
+	({ const SV *const _svrv = (const SV *)(sv);			\
+	    assert(PL_valid_types_RV[SvTYPE(_svrv) & SVt_MASK]);	\
+	    assert(!isGV_with_GP(_svrv));				\
+	    assert(!(SvTYPE(_svrv) == SVt_PVIO				\
+		     && !(IoFLAGS(_svrv) & IOf_FAKE_DIRP)));		\
+	    (_svrv)->sv_u.svu_rv;					\
+	 })
+#    define SvMAGIC(sv)							\
+	(*({ const SV *const _svmagic = (const SV *)(sv);		\
+	    assert(SvTYPE(_svmagic) >= SVt_PVMG);			\
+	    &(((XPVMG*) MUTABLE_PTR(SvANY(_svmagic)))->xmg_u.xmg_magic); \
+	  }))
+#    define SvSTASH(sv)							\
+	(*({ const SV *const _svstash = (const SV *)(sv);		\
+	    assert(SvTYPE(_svstash) >= SVt_PVMG);			\
+	    &(((XPVMG*) MUTABLE_PTR(SvANY(_svstash)))->xmg_stash);	\
+	  }))
+#  else
+#    define SvPVX(sv) ((sv)->sv_u.svu_pv)
+#    define SvCUR(sv) ((XPV*) SvANY(sv))->xpv_cur
+#    define SvIVX(sv) ((XPVIV*) SvANY(sv))->xiv_iv
+#    define SvUVX(sv) ((XPVUV*) SvANY(sv))->xuv_uv
+#    define SvNVX(sv) ((XPVNV*) SvANY(sv))->xnv_u.xnv_nv
+#    define SvRV(sv) ((sv)->sv_u.svu_rv)
+#    define SvRV_const(sv) (0 + (sv)->sv_u.svu_rv)
+#    define SvMAGIC(sv)	((XPVMG*)  SvANY(sv))->xmg_u.xmg_magic
+#    define SvSTASH(sv)	((XPVMG*)  SvANY(sv))->xmg_stash
+#  endif
+#endif
+
+#ifndef PERL_POISON
+/* Given that these two are new, there can't be any existing code using them
+ *  as LVALUEs  */
+#  define SvPVX_mutable(sv)	(0 + (sv)->sv_u.svu_pv)
+#  define SvPVX_const(sv)	((const char*)(0 + (sv)->sv_u.svu_pv))
+#else
+/* Except for the poison code, which uses & to scribble over the pointer after
+   free() is called.  */
+#  define SvPVX_mutable(sv)	((sv)->sv_u.svu_pv)
+#  define SvPVX_const(sv)	((const char*)((sv)->sv_u.svu_pv))
+#endif
+
+#define SvIVXx(sv) SvIVX(sv)
+#define SvUVXx(sv) SvUVX(sv)
+#define SvNVXx(sv) SvNVX(sv)
+#define SvPVXx(sv) SvPVX(sv)
+#define SvLENx(sv) SvLEN(sv)
+#define SvENDx(sv) ((PL_Sv = (sv)), SvEND(PL_Sv))
+
+
+/* Ask a scalar nicely to try to become an IV, if possible.
+   Not guaranteed to stay returning void */
+/* Macro won't actually call sv_2iv if already IOK */
+#define SvIV_please(sv) \
+	STMT_START {if (!SvIOKp(sv) && (SvFLAGS(sv) & (SVf_NOK|SVf_POK))) \
+		(void) SvIV(sv); } STMT_END
+#define SvIV_please_nomg(sv) \
+	(!(SvFLAGS(sv) & (SVf_IOK|SVp_IOK)) && (SvFLAGS(sv) & (SVf_NOK|SVf_POK)) \
+	    ? (sv_2iv_flags(sv, 0), SvIOK(sv))	  \
+	    : SvIOK(sv))
+#define SvIV_set(sv, val) \
+	STMT_START { \
+		assert(PL_valid_types_IV_set[SvTYPE(sv) & SVt_MASK]);	\
+		assert(!isGV_with_GP(sv));		\
+		(((XPVIV*)  SvANY(sv))->xiv_iv = (val)); } STMT_END
+#define SvNV_set(sv, val) \
+	STMT_START { \
+		assert(PL_valid_types_NV_set[SvTYPE(sv) & SVt_MASK]);	\
+		assert(!isGV_with_GP(sv));		\
+		(((XPVNV*)SvANY(sv))->xnv_u.xnv_nv = (val)); } STMT_END
+#define SvPV_set(sv, val) \
+	STMT_START { \
+		assert(PL_valid_types_PVX[SvTYPE(sv) & SVt_MASK]);	\
+		assert(!isGV_with_GP(sv));		\
+		assert(!(SvTYPE(sv) == SVt_PVIO		\
+		     && !(IoFLAGS(sv) & IOf_FAKE_DIRP))); \
+		((sv)->sv_u.svu_pv = (val)); } STMT_END
+#define SvUV_set(sv, val) \
+	STMT_START { \
+		assert(PL_valid_types_IV_set[SvTYPE(sv) & SVt_MASK]);	\
+		assert(!isGV_with_GP(sv));		\
+		(((XPVUV*)SvANY(sv))->xuv_uv = (val)); } STMT_END
+#define SvRV_set(sv, val) \
+        STMT_START { \
+		assert(PL_valid_types_RV[SvTYPE(sv) & SVt_MASK]);	\
+		assert(!isGV_with_GP(sv));		\
+		assert(!(SvTYPE(sv) == SVt_PVIO		\
+		     && !(IoFLAGS(sv) & IOf_FAKE_DIRP))); \
+                ((sv)->sv_u.svu_rv = (val)); } STMT_END
+#define SvMAGIC_set(sv, val) \
+        STMT_START { assert(SvTYPE(sv) >= SVt_PVMG); \
+                (((XPVMG*)SvANY(sv))->xmg_u.xmg_magic = (val)); } STMT_END
+#define SvSTASH_set(sv, val) \
+        STMT_START { assert(SvTYPE(sv) >= SVt_PVMG); \
+                (((XPVMG*)  SvANY(sv))->xmg_stash = (val)); } STMT_END
+#define SvCUR_set(sv, val) \
+	STMT_START { \
+		assert(PL_valid_types_PVX[SvTYPE(sv) & SVt_MASK]	\
+			|| SvTYPE(sv) == SVt_REGEXP);	\
+		assert(!isGV_with_GP(sv));		\
+		assert(!(SvTYPE(sv) == SVt_PVIO		\
+		     && !(IoFLAGS(sv) & IOf_FAKE_DIRP))); \
+		(((XPV*)  SvANY(sv))->xpv_cur = (val)); } STMT_END
+#define SvLEN_set(sv, val) \
+	STMT_START { \
+		assert(PL_valid_types_PVX[SvTYPE(sv) & SVt_MASK]);	\
+		assert(!isGV_with_GP(sv));	\
+		assert(!(SvTYPE(sv) == SVt_PVIO		\
+		     && !(IoFLAGS(sv) & IOf_FAKE_DIRP))); \
+		(((XPV*)  SvANY(sv))->xpv_len = (val)); } STMT_END
+#define SvEND_set(sv, val) \
+	STMT_START { assert(SvTYPE(sv) >= SVt_PV); \
+		SvCUR_set(sv, (val) - SvPVX(sv)); } STMT_END
+
+#define SvPV_renew(sv,n) \
+	STMT_START { SvLEN_set(sv, n); \
+		SvPV_set((sv), (MEM_WRAP_CHECK_(n,char)			\
+				(char*)saferealloc((Malloc_t)SvPVX(sv), \
+						   (MEM_SIZE)((n)))));  \
+		 } STMT_END
+
+#define SvPV_shrink_to_cur(sv) STMT_START { \
+		   const STRLEN _lEnGtH = SvCUR(sv) + 1; \
+		   SvPV_renew(sv, _lEnGtH); \
+		 } STMT_END
+
+#define SvPV_free(sv)							\
+    STMT_START {							\
+		     assert(SvTYPE(sv) >= SVt_PV);			\
+		     if (SvLEN(sv)) {					\
+			 assert(!SvROK(sv));				\
+			 if(UNLIKELY(SvOOK(sv))) {			\
+			     STRLEN zok; 				\
+			     SvOOK_offset(sv, zok);			\
+			     SvPV_set(sv, SvPVX_mutable(sv) - zok);	\
+			     SvFLAGS(sv) &= ~SVf_OOK;			\
+			 }						\
+			 Safefree(SvPVX(sv));				\
+		     }							\
+		 } STMT_END
+
+#ifdef PERL_CORE
+/* Code that crops up in three places to take a scalar and ready it to hold
+   a reference */
+#  define prepare_SV_for_RV(sv)						\
+    STMT_START {							\
+		    if (SvTYPE(sv) < SVt_PV && SvTYPE(sv) != SVt_IV)	\
+			sv_upgrade(sv, SVt_IV);				\
+		    else if (SvTYPE(sv) >= SVt_PV) {			\
+			SvPV_free(sv);					\
+			SvLEN_set(sv, 0);				\
+                        SvCUR_set(sv, 0);				\
+		    }							\
+		 } STMT_END
+#endif
+
+#ifndef PERL_CORE
+#  define BmFLAGS(sv)		(SvTAIL(sv) ? FBMcf_TAIL : 0)
+#endif
+
+#if defined (DEBUGGING) && defined(__GNUC__) && !defined(PERL_GCC_BRACE_GROUPS_FORBIDDEN)
+#  define BmUSEFUL(sv)							\
+	(*({ SV *const _bmuseful = MUTABLE_SV(sv);			\
+	    assert(SvTYPE(_bmuseful) >= SVt_PVIV);			\
+	    assert(SvVALID(_bmuseful));					\
+	    assert(!SvIOK(_bmuseful));					\
+	    &(((XPVIV*) SvANY(_bmuseful))->xiv_u.xivu_iv);              \
+	 }))
+#else
+#  define BmUSEFUL(sv)          ((XPVIV*) SvANY(sv))->xiv_u.xivu_iv
+
+#endif
+
+#ifndef PERL_CORE
+# define BmRARE(sv)	0
+# define BmPREVIOUS(sv)	0
+#endif
+
+#define FmLINES(sv)	((XPVIV*)  SvANY(sv))->xiv_iv
+
+#define LvTYPE(sv)	((XPVLV*)  SvANY(sv))->xlv_type
+#define LvTARG(sv)	((XPVLV*)  SvANY(sv))->xlv_targ
+#define LvTARGOFF(sv)	((XPVLV*)  SvANY(sv))->xlv_targoff
+#define LvSTARGOFF(sv)	((XPVLV*)  SvANY(sv))->xlv_targoff_u.xlvu_stargoff
+#define LvTARGLEN(sv)	((XPVLV*)  SvANY(sv))->xlv_targlen
+#define LvFLAGS(sv)	((XPVLV*)  SvANY(sv))->xlv_flags
+
+#define IoIFP(sv)	(sv)->sv_u.svu_fp
+#define IoOFP(sv)	((XPVIO*)  SvANY(sv))->xio_ofp
+#define IoDIRP(sv)	((XPVIO*)  SvANY(sv))->xio_dirp
+#define IoANY(sv)	((XPVIO*)  SvANY(sv))->xio_any
+#define IoLINES(sv)	((XPVIO*)  SvANY(sv))->xiv_u.xivu_iv
+#define IoPAGE(sv)	((XPVIO*)  SvANY(sv))->xio_page
+#define IoPAGE_LEN(sv)	((XPVIO*)  SvANY(sv))->xio_page_len
+#define IoLINES_LEFT(sv)((XPVIO*)  SvANY(sv))->xio_lines_left
+#define IoTOP_NAME(sv)	((XPVIO*)  SvANY(sv))->xio_top_name
+#define IoTOP_GV(sv)	((XPVIO*)  SvANY(sv))->xio_top_gv
+#define IoFMT_NAME(sv)	((XPVIO*)  SvANY(sv))->xio_fmt_name
+#define IoFMT_GV(sv)	((XPVIO*)  SvANY(sv))->xio_fmt_gv
+#define IoBOTTOM_NAME(sv)((XPVIO*) SvANY(sv))->xio_bottom_name
+#define IoBOTTOM_GV(sv)	((XPVIO*)  SvANY(sv))->xio_bottom_gv
+#define IoTYPE(sv)	((XPVIO*)  SvANY(sv))->xio_type
+#define IoFLAGS(sv)	((XPVIO*)  SvANY(sv))->xio_flags
+
+/* IoTYPE(sv) is a single character telling the type of I/O connection. */
+#define IoTYPE_RDONLY		'<'
+#define IoTYPE_WRONLY		'>'
+#define IoTYPE_RDWR		'+'
+#define IoTYPE_APPEND 		'a'
+#define IoTYPE_PIPE		'|'
+#define IoTYPE_STD		'-'	/* stdin or stdout */
+#define IoTYPE_SOCKET		's'
+#define IoTYPE_CLOSED		' '
+#define IoTYPE_IMPLICIT		'I'	/* stdin or stdout or stderr */
+#define IoTYPE_NUMERIC		'#'	/* fdopen */
+
+/*
+=for apidoc Am|bool|SvTAINTED|SV* sv
+Checks to see if an SV is tainted.  Returns TRUE if it is, FALSE if
+not.
+
+=for apidoc Am|void|SvTAINTED_on|SV* sv
+Marks an SV as tainted if tainting is enabled.
+
+=for apidoc Am|void|SvTAINTED_off|SV* sv
+Untaints an SV.  Be I<very> careful with this routine, as it short-circuits
+some of Perl's fundamental security features.  XS module authors should not
+use this function unless they fully understand all the implications of
+unconditionally untainting the value.  Untainting should be done in the
+standard perl fashion, via a carefully crafted regexp, rather than directly
+untainting variables.
+
+=for apidoc Am|void|SvTAINT|SV* sv
+Taints an SV if tainting is enabled, and if some input to the current
+expression is tainted--usually a variable, but possibly also implicit
+inputs such as locale settings.  C<SvTAINT> propagates that taintedness to
+the outputs of an expression in a pessimistic fashion; i.e., without paying
+attention to precisely which outputs are influenced by which inputs.
+
+=cut
+*/
+
+#define sv_taint(sv)	  sv_magic((sv), NULL, PERL_MAGIC_taint, NULL, 0)
+
+#ifdef NO_TAINT_SUPPORT
+#   define SvTAINTED(sv) 0
+#else
+#   define SvTAINTED(sv)	  (SvMAGICAL(sv) && sv_tainted(sv))
+#endif
+#define SvTAINTED_on(sv)  STMT_START{ if(UNLIKELY(TAINTING_get)){sv_taint(sv);}   }STMT_END
+#define SvTAINTED_off(sv) STMT_START{ if(UNLIKELY(TAINTING_get)){sv_untaint(sv);} }STMT_END
+
+#define SvTAINT(sv)			\
+    STMT_START {			\
+        assert(TAINTING_get || !TAINT_get); \
+        if (UNLIKELY(TAINT_get))	\
+            SvTAINTED_on(sv);	        \
+    } STMT_END
+
+/*
+=for apidoc Am|char*|SvPV_force|SV* sv|STRLEN len
+Like C<SvPV> but will force the SV into containing a string (C<SvPOK>), and
+only a string (C<SvPOK_only>), by hook or by crook.  You need force if you are
+going to update the C<SvPVX> directly.  Processes get magic.
+
+Note that coercing an arbitrary scalar into a plain PV will potentially
+strip useful data from it.  For example if the SV was C<SvROK>, then the
+referent will have its reference count decremented, and the SV itself may
+be converted to an C<SvPOK> scalar with a string buffer containing a value
+such as C<"ARRAY(0x1234)">.
+
+=for apidoc Am|char*|SvPV_force_nomg|SV* sv|STRLEN len
+Like C<SvPV_force>, but doesn't process get magic.
+
+=for apidoc Am|char*|SvPV|SV* sv|STRLEN len
+Returns a pointer to the string in the SV, or a stringified form of
+the SV if the SV does not contain a string.  The SV may cache the
+stringified version becoming C<SvPOK>.  Handles 'get' magic.  The
+C<len> variable will be set to the length of the string (this is a macro, so
+don't use C<&len>).  See also C<L</SvPVx>> for a version which guarantees to
+evaluate C<sv> only once.
+
+Note that there is no guarantee that the return value of C<SvPV()> is
+equal to C<SvPVX(sv)>, or that C<SvPVX(sv)> contains valid data, or that
+successive calls to C<SvPV(sv)> will return the same pointer value each
+time.  This is due to the way that things like overloading and
+Copy-On-Write are handled.  In these cases, the return value may point to
+a temporary buffer or similar.  If you absolutely need the C<SvPVX> field to
+be valid (for example, if you intend to write to it), then see
+C<L</SvPV_force>>.
+
+=for apidoc Am|char*|SvPVx|SV* sv|STRLEN len
+A version of C<SvPV> which guarantees to evaluate C<sv> only once.
+Only use this if C<sv> is an expression with side effects, otherwise use the
+more efficient C<SvPV>.
+
+=for apidoc Am|char*|SvPV_nomg|SV* sv|STRLEN len
+Like C<SvPV> but doesn't process magic.
+
+=for apidoc Am|char*|SvPV_nolen|SV* sv
+Like C<SvPV> but doesn't set a length variable.
+
+=for apidoc Am|char*|SvPV_nomg_nolen|SV* sv
+Like C<SvPV_nolen> but doesn't process magic.
+
+=for apidoc Am|IV|SvIV|SV* sv
+Coerces the given SV to an integer and returns it.  See C<L</SvIVx>> for a
+version which guarantees to evaluate C<sv> only once.
+
+=for apidoc Am|IV|SvIV_nomg|SV* sv
+Like C<SvIV> but doesn't process magic.
+
+=for apidoc Am|IV|SvIVx|SV* sv
+Coerces the given SV to an integer and returns it.
+Guarantees to evaluate C<sv> only once.  Only use
+this if C<sv> is an expression with side effects,
+otherwise use the more efficient C<SvIV>.
+
+=for apidoc Am|NV|SvNV|SV* sv
+Coerce the given SV to a double and return it.  See C<L</SvNVx>> for a version
+which guarantees to evaluate C<sv> only once.
+
+=for apidoc Am|NV|SvNV_nomg|SV* sv
+Like C<SvNV> but doesn't process magic.
+
+=for apidoc Am|NV|SvNVx|SV* sv
+Coerces the given SV to a double and returns it.
+Guarantees to evaluate C<sv> only once.  Only use
+this if C<sv> is an expression with side effects,
+otherwise use the more efficient C<SvNV>.
+
+=for apidoc Am|UV|SvUV|SV* sv
+Coerces the given SV to an unsigned integer and returns it.  See C<L</SvUVx>>
+for a version which guarantees to evaluate C<sv> only once.
+
+=for apidoc Am|UV|SvUV_nomg|SV* sv
+Like C<SvUV> but doesn't process magic.
+
+=for apidoc Am|UV|SvUVx|SV* sv
+Coerces the given SV to an unsigned integer and
+returns it.  Guarantees to evaluate C<sv> only once.  Only
+use this if C<sv> is an expression with side effects,
+otherwise use the more efficient C<SvUV>.
+
+=for apidoc Am|bool|SvTRUE|SV* sv
+Returns a boolean indicating whether Perl would evaluate the SV as true or
+false.  See C<L</SvOK>> for a defined/undefined test.  Handles 'get' magic
+unless the scalar is already C<SvPOK>, C<SvIOK> or C<SvNOK> (the public, not the
+private flags).
+
+=for apidoc Am|bool|SvTRUE_nomg|SV* sv
+Returns a boolean indicating whether Perl would evaluate the SV as true or
+false.  See C<L</SvOK>> for a defined/undefined test.  Does not handle 'get' magic.
+
+=for apidoc Am|char*|SvPVutf8_force|SV* sv|STRLEN len
+Like C<SvPV_force>, but converts C<sv> to UTF-8 first if necessary.
+
+=for apidoc Am|char*|SvPVutf8|SV* sv|STRLEN len
+Like C<SvPV>, but converts C<sv> to UTF-8 first if necessary.
+
+=for apidoc Am|char*|SvPVutf8_nolen|SV* sv
+Like C<SvPV_nolen>, but converts C<sv> to UTF-8 first if necessary.
+
+=for apidoc Am|char*|SvPVbyte_force|SV* sv|STRLEN len
+Like C<SvPV_force>, but converts C<sv> to byte representation first if necessary.
+
+=for apidoc Am|char*|SvPVbyte|SV* sv|STRLEN len
+Like C<SvPV>, but converts C<sv> to byte representation first if necessary.
+
+=for apidoc Am|char*|SvPVbyte_nolen|SV* sv
+Like C<SvPV_nolen>, but converts C<sv> to byte representation first if necessary.
+
+=for apidoc Am|char*|SvPVutf8x_force|SV* sv|STRLEN len
+Like C<SvPV_force>, but converts C<sv> to UTF-8 first if necessary.
+Guarantees to evaluate C<sv> only once; use the more efficient C<SvPVutf8_force>
+otherwise.
+
+=for apidoc Am|char*|SvPVutf8x|SV* sv|STRLEN len
+Like C<SvPV>, but converts C<sv> to UTF-8 first if necessary.
+Guarantees to evaluate C<sv> only once; use the more efficient C<SvPVutf8>
+otherwise.
+
+=for apidoc Am|char*|SvPVbytex_force|SV* sv|STRLEN len
+Like C<SvPV_force>, but converts C<sv> to byte representation first if necessary.
+Guarantees to evaluate C<sv> only once; use the more efficient C<SvPVbyte_force>
+otherwise.
+
+=for apidoc Am|char*|SvPVbytex|SV* sv|STRLEN len
+Like C<SvPV>, but converts C<sv> to byte representation first if necessary.
+Guarantees to evaluate C<sv> only once; use the more efficient C<SvPVbyte>
+otherwise.
+
+=for apidoc Am|U32|SvIsCOW|SV* sv
+Returns a U32 value indicating whether the SV is Copy-On-Write (either shared
+hash key scalars, or full Copy On Write scalars if 5.9.0 is configured for
+COW).
+
+=for apidoc Am|bool|SvIsCOW_shared_hash|SV* sv
+Returns a boolean indicating whether the SV is Copy-On-Write shared hash key
+scalar.
+
+=for apidoc Am|void|sv_catpvn_nomg|SV* sv|const char* ptr|STRLEN len
+Like C<sv_catpvn> but doesn't process magic.
+
+=for apidoc Am|void|sv_catpv_nomg|SV* sv|const char* ptr
+Like C<sv_catpv> but doesn't process magic.
+
+=for apidoc Am|void|sv_setsv_nomg|SV* dsv|SV* ssv
+Like C<sv_setsv> but doesn't process magic.
+
+=for apidoc Am|void|sv_catsv_nomg|SV* dsv|SV* ssv
+Like C<sv_catsv> but doesn't process magic.
+
+=for apidoc Amdb|STRLEN|sv_utf8_upgrade_nomg|NN SV *sv
+
+Like C<sv_utf8_upgrade>, but doesn't do magic on C<sv>.
+
+=cut
+*/
+
+/* Let us hope that bitmaps for UV and IV are the same */
+#define SvIV(sv) (SvIOK_nog(sv) ? SvIVX(sv) : sv_2iv(sv))
+#define SvUV(sv) (SvUOK_nog(sv) ? SvUVX(sv) : sv_2uv(sv))
+#define SvNV(sv) (SvNOK_nog(sv) ? SvNVX(sv) : sv_2nv(sv))
+
+#define SvIV_nomg(sv) (SvIOK(sv) ? SvIVX(sv) : sv_2iv_flags(sv, 0))
+#define SvUV_nomg(sv) (SvIOK(sv) ? SvUVX(sv) : sv_2uv_flags(sv, 0))
+#define SvNV_nomg(sv) (SvNOK(sv) ? SvNVX(sv) : sv_2nv_flags(sv, 0))
+
+/* ----*/
+
+#define SvPV(sv, lp)         SvPV_flags(sv, lp, SV_GMAGIC)
+#define SvPV_const(sv, lp)   SvPV_flags_const(sv, lp, SV_GMAGIC)
+#define SvPV_mutable(sv, lp) SvPV_flags_mutable(sv, lp, SV_GMAGIC)
+
+#define SvPV_flags(sv, lp, flags) \
+    (SvPOK_nog(sv) \
+     ? ((lp = SvCUR(sv)), SvPVX(sv)) : sv_2pv_flags(sv, &lp, flags))
+#define SvPV_flags_const(sv, lp, flags) \
+    (SvPOK_nog(sv) \
+     ? ((lp = SvCUR(sv)), SvPVX_const(sv)) : \
+     (const char*) sv_2pv_flags(sv, &lp, (flags|SV_CONST_RETURN)))
+#define SvPV_flags_const_nolen(sv, flags) \
+    (SvPOK_nog(sv) \
+     ? SvPVX_const(sv) : \
+     (const char*) sv_2pv_flags(sv, 0, (flags|SV_CONST_RETURN)))
+#define SvPV_flags_mutable(sv, lp, flags) \
+    (SvPOK_nog(sv) \
+     ? ((lp = SvCUR(sv)), SvPVX_mutable(sv)) : \
+     sv_2pv_flags(sv, &lp, (flags|SV_MUTABLE_RETURN)))
+
+#define SvPV_force(sv, lp) SvPV_force_flags(sv, lp, SV_GMAGIC)
+#define SvPV_force_nolen(sv) SvPV_force_flags_nolen(sv, SV_GMAGIC)
+#define SvPV_force_mutable(sv, lp) SvPV_force_flags_mutable(sv, lp, SV_GMAGIC)
+
+#define SvPV_force_nomg(sv, lp) SvPV_force_flags(sv, lp, 0)
+#define SvPV_force_nomg_nolen(sv) SvPV_force_flags_nolen(sv, 0)
+
+#define SvPV_force_flags(sv, lp, flags) \
+    (SvPOK_pure_nogthink(sv) \
+     ? ((lp = SvCUR(sv)), SvPVX(sv)) : sv_pvn_force_flags(sv, &lp, flags))
+
+#define SvPV_force_flags_nolen(sv, flags) \
+    (SvPOK_pure_nogthink(sv) \
+     ? SvPVX(sv) : sv_pvn_force_flags(sv, 0, flags))
+
+#define SvPV_force_flags_mutable(sv, lp, flags) \
+    (SvPOK_pure_nogthink(sv) \
+     ? ((lp = SvCUR(sv)), SvPVX_mutable(sv)) \
+     : sv_pvn_force_flags(sv, &lp, flags|SV_MUTABLE_RETURN))
+
+#define SvPV_nolen(sv) \
+    (SvPOK_nog(sv) \
+     ? SvPVX(sv) : sv_2pv_flags(sv, 0, SV_GMAGIC))
+
+/* "_nomg" in these defines means no mg_get() */
+#define SvPV_nomg_nolen(sv) \
+    (SvPOK_nog(sv) \
+     ? SvPVX(sv) : sv_2pv_flags(sv, 0, 0))
+
+#define SvPV_nolen_const(sv) \
+    (SvPOK_nog(sv) \
+     ? SvPVX_const(sv) : sv_2pv_flags(sv, 0, SV_GMAGIC|SV_CONST_RETURN))
+
+#define SvPV_nomg(sv, lp) SvPV_flags(sv, lp, 0)
+#define SvPV_nomg_const(sv, lp) SvPV_flags_const(sv, lp, 0)
+#define SvPV_nomg_const_nolen(sv) SvPV_flags_const_nolen(sv, 0)
+
+/* ----*/
+
+#define SvPVutf8(sv, lp) \
+    (SvPOK_utf8_nog(sv) \
+     ? ((lp = SvCUR(sv)), SvPVX(sv)) : sv_2pvutf8(sv, &lp))
+
+#define SvPVutf8_force(sv, lp) \
+    (SvPOK_utf8_pure_nogthink(sv) \
+     ? ((lp = SvCUR(sv)), SvPVX(sv)) : sv_pvutf8n_force(sv, &lp))
+
+#define SvPVutf8_nolen(sv) \
+    (SvPOK_utf8_nog(sv) \
+     ? SvPVX(sv) : sv_2pvutf8(sv, 0))
+
+/* ----*/
+
+#define SvPVbyte(sv, lp) \
+    (SvPOK_byte_nog(sv) \
+     ? ((lp = SvCUR(sv)), SvPVX(sv)) : sv_2pvbyte(sv, &lp))
+
+#define SvPVbyte_force(sv, lp) \
+    (SvPOK_byte_pure_nogthink(sv) \
+     ? ((lp = SvCUR(sv)), SvPVX(sv)) : sv_pvbyten_force(sv, &lp))
+
+#define SvPVbyte_nolen(sv) \
+    (SvPOK_byte_nog(sv) \
+     ? SvPVX(sv) : sv_2pvbyte(sv, 0))
+
+    
+/* define FOOx(): idempotent versions of FOO(). If possible, use a local
+ * var to evaluate the arg once; failing that, use a global if possible;
+ * failing that, call a function to do the work
+ */
+
+#define SvPVx_force(sv, lp) sv_pvn_force(sv, &lp)
+#define SvPVutf8x_force(sv, lp) sv_pvutf8n_force(sv, &lp)
+#define SvPVbytex_force(sv, lp) sv_pvbyten_force(sv, &lp)
+
+#define SvTRUE(sv)        (LIKELY(sv) && (UNLIKELY(SvGMAGICAL(sv)) ? sv_2bool(sv) : SvTRUE_common(sv, sv_2bool_nomg(sv))))
+#define SvTRUE_nomg(sv)   (LIKELY(sv) && (                                SvTRUE_common(sv, sv_2bool_nomg(sv))))
+#define SvTRUE_NN(sv)              (UNLIKELY(SvGMAGICAL(sv)) ? sv_2bool(sv) : SvTRUE_common(sv, sv_2bool_nomg(sv)))
+#define SvTRUE_nomg_NN(sv) (                                        SvTRUE_common(sv, sv_2bool_nomg(sv)))
+#define SvTRUE_common(sv,fallback) (			\
+      !SvOK(sv)						\
+	? 0						\
+    : SvPOK(sv)						\
+	? SvPVXtrue(sv)					\
+    : (SvFLAGS(sv) & (SVf_IOK|SVf_NOK))			\
+	? (   (SvIOK(sv) && SvIVX(sv) != 0)		\
+	   || (SvNOK(sv) && SvNVX(sv) != 0.0))		\
+    : (fallback))
+
+#if defined(__GNUC__) && !defined(PERL_GCC_BRACE_GROUPS_FORBIDDEN)
+
+#  define SvIVx(sv) ({SV *_sv = MUTABLE_SV(sv); SvIV(_sv); })
+#  define SvUVx(sv) ({SV *_sv = MUTABLE_SV(sv); SvUV(_sv); })
+#  define SvNVx(sv) ({SV *_sv = MUTABLE_SV(sv); SvNV(_sv); })
+#  define SvPVx(sv, lp) ({SV *_sv = (sv); SvPV(_sv, lp); })
+#  define SvPVx_const(sv, lp) ({SV *_sv = (sv); SvPV_const(_sv, lp); })
+#  define SvPVx_nolen(sv) ({SV *_sv = (sv); SvPV_nolen(_sv); })
+#  define SvPVx_nolen_const(sv) ({SV *_sv = (sv); SvPV_nolen_const(_sv); })
+#  define SvPVutf8x(sv, lp) ({SV *_sv = (sv); SvPVutf8(_sv, lp); })
+#  define SvPVbytex(sv, lp) ({SV *_sv = (sv); SvPVbyte(_sv, lp); })
+#  define SvPVbytex_nolen(sv) ({SV *_sv = (sv); SvPVbyte_nolen(_sv); })
+#  define SvTRUEx(sv)      ({SV *_sv = (sv); SvTRUE(_sv); })
+#  define SvTRUEx_nomg(sv) ({SV *_sv = (sv); SvTRUE_nomg(_sv); })
+
+#else /* __GNUC__ */
+
+/* These inlined macros use globals, which will require a thread
+ * declaration in user code, so we avoid them under threads */
+
+#  define SvIVx(sv) ((PL_Sv = (sv)), SvIV(PL_Sv))
+#  define SvUVx(sv) ((PL_Sv = (sv)), SvUV(PL_Sv))
+#  define SvNVx(sv) ((PL_Sv = (sv)), SvNV(PL_Sv))
+#  define SvPVx(sv, lp) ((PL_Sv = (sv)), SvPV(PL_Sv, lp))
+#  define SvPVx_const(sv, lp) ((PL_Sv = (sv)), SvPV_const(PL_Sv, lp))
+#  define SvPVx_nolen(sv) ((PL_Sv = (sv)), SvPV_nolen(PL_Sv))
+#  define SvPVx_nolen_const(sv) ((PL_Sv = (sv)), SvPV_nolen_const(PL_Sv))
+#  define SvPVutf8x(sv, lp) ((PL_Sv = (sv)), SvPVutf8(PL_Sv, lp))
+#  define SvPVbytex(sv, lp) ((PL_Sv = (sv)), SvPVbyte(PL_Sv, lp))
+#  define SvPVbytex_nolen(sv) ((PL_Sv = (sv)), SvPVbyte_nolen(PL_Sv))
+#  define SvTRUEx(sv)      ((PL_Sv = (sv)), SvTRUE(PL_Sv))
+#  define SvTRUEx_nomg(sv) ((PL_Sv = (sv)), SvTRUE_nomg(PL_Sv))
+#endif /* __GNU__ */
+
+#define SvPVXtrue(sv)	(					\
+    ((XPV*)SvANY((sv))) 					\
+     && (							\
+	((XPV*)SvANY((sv)))->xpv_cur > 1			\
+	|| (							\
+	    ((XPV*)SvANY((sv)))->xpv_cur			\
+	    && *(sv)->sv_u.svu_pv != '0'				\
+	)							\
+    )								\
+)
+
+#define SvIsCOW(sv)		(SvFLAGS(sv) & SVf_IsCOW)
+#define SvIsCOW_on(sv)		(SvFLAGS(sv) |= SVf_IsCOW)
+#define SvIsCOW_off(sv)		(SvFLAGS(sv) &= ~SVf_IsCOW)
+#define SvIsCOW_shared_hash(sv)	(SvIsCOW(sv) && SvLEN(sv) == 0)
+
+#define SvSHARED_HEK_FROM_PV(pvx) \
+	((struct hek*)(pvx - STRUCT_OFFSET(struct hek, hek_key)))
+#define SvSHARED_HASH(sv) (0 + SvSHARED_HEK_FROM_PV(SvPVX_const(sv))->hek_hash)
+
+/* flag values for sv_*_flags functions */
+#define SV_IMMEDIATE_UNREF	1
+#define SV_GMAGIC		2
+#define SV_COW_DROP_PV		4
+#define SV_UTF8_NO_ENCODING	8
+#define SV_NOSTEAL		16
+#define SV_CONST_RETURN		32
+#define SV_MUTABLE_RETURN	64
+#define SV_SMAGIC		128
+#define SV_HAS_TRAILING_NUL	256
+#define SV_COW_SHARED_HASH_KEYS	512
+/* This one is only enabled for PERL_OLD_COPY_ON_WRITE */
+/* XXX This flag actually enabled for any COW.  But it appears not to do
+       anything.  Can we just remove it?  Or will it serve some future
+       purpose.  */
+#define SV_COW_OTHER_PVS	1024
+/* Make sv_2pv_flags return NULL if something is undefined.  */
+#define SV_UNDEF_RETURNS_NULL	2048
+/* Tell sv_utf8_upgrade() to not check to see if an upgrade is really needed.
+ * This is used when the caller has already determined it is, and avoids
+ * redundant work */
+#define SV_FORCE_UTF8_UPGRADE	4096
+/* if (after resolving magic etc), the SV is found to be overloaded,
+ * don't call the overload magic, just return as-is */
+#define SV_SKIP_OVERLOAD	8192
+#define SV_CATBYTES		16384
+#define SV_CATUTF8		32768
+
+/* The core is safe for this COW optimisation. XS code on CPAN may not be.
+   So only default to doing the COW setup if we're in the core.
+ */
+#ifdef PERL_CORE
+#  ifndef SV_DO_COW_SVSETSV
+#    define SV_DO_COW_SVSETSV	SV_COW_SHARED_HASH_KEYS|SV_COW_OTHER_PVS
+#  endif
+#endif
+
+#ifndef SV_DO_COW_SVSETSV
+#  define SV_DO_COW_SVSETSV	0
+#endif
+
+
+#define sv_unref(sv)    	sv_unref_flags(sv, 0)
+#define sv_force_normal(sv)	sv_force_normal_flags(sv, 0)
+#define sv_usepvn(sv, p, l)	sv_usepvn_flags(sv, p, l, 0)
+#define sv_usepvn_mg(sv, p, l)	sv_usepvn_flags(sv, p, l, SV_SMAGIC)
+
+/* We are about to replace the SV's current value. So if it's copy on write
+   we need to normalise it. Use the SV_COW_DROP_PV flag hint to say that
+   the value is about to get thrown away, so drop the PV rather than go to
+   the effort of making a read-write copy only for it to get immediately
+   discarded.  */
+
+#define SV_CHECK_THINKFIRST_COW_DROP(sv) if (SvTHINKFIRST(sv)) \
+				    sv_force_normal_flags(sv, SV_COW_DROP_PV)
+
+#ifdef PERL_COPY_ON_WRITE
+#   define SvCANCOW(sv)					    \
+	(SvIsCOW(sv)					     \
+	 ? SvLEN(sv) ? CowREFCNT(sv) != SV_COW_REFCNT_MAX : 1 \
+	 : (SvFLAGS(sv) & CAN_COW_MASK) == CAN_COW_FLAGS       \
+			    && SvCUR(sv)+1 < SvLEN(sv))
+   /* Note: To allow 256 COW "copies", a refcnt of 0 means 1. */
+#   define CowREFCNT(sv)	(*(U8 *)(SvPVX(sv)+SvLEN(sv)-1))
+#   define SV_COW_REFCNT_MAX	((1 << sizeof(U8)*8) - 1)
+#   define CAN_COW_MASK	(SVf_POK|SVf_ROK|SVp_POK|SVf_FAKE| \
+			 SVf_OOK|SVf_BREAK|SVf_READONLY|SVf_PROTECT)
+#endif
+
+#define CAN_COW_FLAGS	(SVp_POK|SVf_POK)
+
+#define SV_CHECK_THINKFIRST(sv) if (SvTHINKFIRST(sv)) \
+				    sv_force_normal_flags(sv, 0)
+
+
+/* all these 'functions' are now just macros */
+
+#define sv_pv(sv) SvPV_nolen(sv)
+#define sv_pvutf8(sv) SvPVutf8_nolen(sv)
+#define sv_pvbyte(sv) SvPVbyte_nolen(sv)
+
+#define sv_pvn_force_nomg(sv, lp) sv_pvn_force_flags(sv, lp, 0)
+#define sv_utf8_upgrade_flags(sv, flags) sv_utf8_upgrade_flags_grow(sv, flags, 0)
+#define sv_utf8_upgrade_nomg(sv) sv_utf8_upgrade_flags(sv, 0)
+#define sv_catpvn_nomg(dsv, sstr, slen) sv_catpvn_flags(dsv, sstr, slen, 0)
+#define sv_catpv_nomg(dsv, sstr) sv_catpv_flags(dsv, sstr, 0)
+#define sv_setsv(dsv, ssv) \
+	sv_setsv_flags(dsv, ssv, SV_GMAGIC|SV_DO_COW_SVSETSV)
+#define sv_setsv_nomg(dsv, ssv) sv_setsv_flags(dsv, ssv, SV_DO_COW_SVSETSV)
+#define sv_catsv(dsv, ssv) sv_catsv_flags(dsv, ssv, SV_GMAGIC)
+#define sv_catsv_nomg(dsv, ssv) sv_catsv_flags(dsv, ssv, 0)
+#define sv_catsv_mg(dsv, ssv) sv_catsv_flags(dsv, ssv, SV_GMAGIC|SV_SMAGIC)
+#define sv_catpvn(dsv, sstr, slen) sv_catpvn_flags(dsv, sstr, slen, SV_GMAGIC)
+#define sv_catpvn_mg(sv, sstr, slen) sv_catpvn_flags(sv, sstr, slen, SV_GMAGIC|SV_SMAGIC);
+#define sv_copypv(dsv, ssv) sv_copypv_flags(dsv, ssv, SV_GMAGIC)
+#define sv_copypv_nomg(dsv, ssv) sv_copypv_flags(dsv, ssv, 0)
+#define sv_2pv(sv, lp) sv_2pv_flags(sv, lp, SV_GMAGIC)
+#define sv_2pv_nolen(sv) sv_2pv(sv, 0)
+#define sv_2pvbyte_nolen(sv) sv_2pvbyte(sv, 0)
+#define sv_2pvutf8_nolen(sv) sv_2pvutf8(sv, 0)
+#define sv_2pv_nomg(sv, lp) sv_2pv_flags(sv, lp, 0)
+#define sv_pvn_force(sv, lp) sv_pvn_force_flags(sv, lp, SV_GMAGIC)
+#define sv_utf8_upgrade(sv) sv_utf8_upgrade_flags(sv, SV_GMAGIC)
+#define sv_2iv(sv) sv_2iv_flags(sv, SV_GMAGIC)
+#define sv_2uv(sv) sv_2uv_flags(sv, SV_GMAGIC)
+#define sv_2nv(sv) sv_2nv_flags(sv, SV_GMAGIC)
+#define sv_eq(sv1, sv2) sv_eq_flags(sv1, sv2, SV_GMAGIC)
+#define sv_cmp(sv1, sv2) sv_cmp_flags(sv1, sv2, SV_GMAGIC)
+#define sv_cmp_locale(sv1, sv2) sv_cmp_locale_flags(sv1, sv2, SV_GMAGIC)
+#define sv_collxfrm(sv, nxp) sv_cmp_flags(sv, nxp, SV_GMAGIC)
+#define sv_2bool(sv) sv_2bool_flags(sv, SV_GMAGIC)
+#define sv_2bool_nomg(sv) sv_2bool_flags(sv, 0)
+#define sv_insert(bigstr, offset, len, little, littlelen)		\
+	Perl_sv_insert_flags(aTHX_ (bigstr),(offset), (len), (little),	\
+			     (littlelen), SV_GMAGIC)
+#define sv_mortalcopy(sv) \
+	Perl_sv_mortalcopy_flags(aTHX_ sv, SV_GMAGIC|SV_DO_COW_SVSETSV)
+#define sv_cathek(sv,hek)					    \
+	STMT_START {						     \
+	    HEK * const bmxk = hek;				      \
+	    sv_catpvn_flags(sv, HEK_KEY(bmxk), HEK_LEN(bmxk),	       \
+			    HEK_UTF8(bmxk) ? SV_CATUTF8 : SV_CATBYTES); \
+	} STMT_END
+
+/* Should be named SvCatPVN_utf8_upgrade? */
+#define sv_catpvn_nomg_utf8_upgrade(dsv, sstr, slen, nsv)	\
+	STMT_START {					\
+	    if (!(nsv))					\
+		nsv = newSVpvn_flags(sstr, slen, SVs_TEMP);	\
+	    else					\
+		sv_setpvn(nsv, sstr, slen);		\
+	    SvUTF8_off(nsv);				\
+	    sv_utf8_upgrade(nsv);			\
+	    sv_catsv_nomg(dsv, nsv);			\
+	} STMT_END
+#define sv_catpvn_nomg_maybeutf8(dsv, sstr, slen, is_utf8) \
+	sv_catpvn_flags(dsv, sstr, slen, (is_utf8)?SV_CATUTF8:SV_CATBYTES)
+
+#if defined(PERL_CORE) || defined(PERL_EXT)
+# define sv_or_pv_len_utf8(sv, pv, bytelen)	      \
+    (SvGAMAGIC(sv)				       \
+	? utf8_length((U8 *)(pv), (U8 *)(pv)+(bytelen))	\
+	: sv_len_utf8(sv))
+#endif
+
+/*
+=for apidoc Am|SV*|newRV_inc|SV* sv
+
+Creates an RV wrapper for an SV.  The reference count for the original SV is
+incremented.
+
+=cut
+*/
+
+#define newRV_inc(sv)	newRV(sv)
+
+/* the following macros update any magic values this C<sv> is associated with */
+
+/*
+=head1 Magical Functions
+
+=for apidoc Am|void|SvGETMAGIC|SV* sv
+Invokes C<mg_get> on an SV if it has 'get' magic.  For example, this
+will call C<FETCH> on a tied variable.  This macro evaluates its
+argument more than once.
+
+=for apidoc Am|void|SvSETMAGIC|SV* sv
+Invokes C<mg_set> on an SV if it has 'set' magic.  This is necessary
+after modifying a scalar, in case it is a magical variable like C<$|>
+or a tied variable (it calls C<STORE>).  This macro evaluates its
+argument more than once.
+
+=for apidoc Am|void|SvSetSV|SV* dsv|SV* ssv
+Calls C<sv_setsv> if C<dsv> is not the same as C<ssv>.  May evaluate arguments
+more than once.  Does not handle 'set' magic on the destination SV.
+
+=for apidoc Am|void|SvSetSV_nosteal|SV* dsv|SV* ssv
+Calls a non-destructive version of C<sv_setsv> if C<dsv> is not the same as
+C<ssv>.  May evaluate arguments more than once.
+
+=for apidoc Am|void|SvSetMagicSV|SV* dsv|SV* ssv
+Like C<SvSetSV>, but does any set magic required afterwards.
+
+=for apidoc Am|void|SvSetMagicSV_nosteal|SV* dsv|SV* ssv
+Like C<SvSetSV_nosteal>, but does any set magic required afterwards.
+
+=for apidoc Am|void|SvSHARE|SV* sv
+Arranges for C<sv> to be shared between threads if a suitable module
+has been loaded.
+
+=for apidoc Am|void|SvLOCK|SV* sv
+Arranges for a mutual exclusion lock to be obtained on C<sv> if a suitable module
+has been loaded.
+
+=for apidoc Am|void|SvUNLOCK|SV* sv
+Releases a mutual exclusion lock on C<sv> if a suitable module
+has been loaded.
+
+=head1 SV Manipulation Functions
+
+=for apidoc Am|char *|SvGROW|SV* sv|STRLEN len
+Expands the character buffer in the SV so that it has room for the
+indicated number of bytes (remember to reserve space for an extra trailing
+C<NUL> character).  Calls C<sv_grow> to perform the expansion if necessary.
+Returns a pointer to the character
+buffer.  SV must be of type >= C<SVt_PV>.  One
+alternative is to call C<sv_grow> if you are not sure of the type of SV.
+
+=cut
+*/
+
+#define SvSHARE(sv) PL_sharehook(aTHX_ sv)
+#define SvLOCK(sv) PL_lockhook(aTHX_ sv)
+#define SvUNLOCK(sv) PL_unlockhook(aTHX_ sv)
+#define SvDESTROYABLE(sv) PL_destroyhook(aTHX_ sv)
+
+#define SvGETMAGIC(x) ((void)(UNLIKELY(SvGMAGICAL(x)) && mg_get(x)))
+#define SvSETMAGIC(x) STMT_START { if (UNLIKELY(SvSMAGICAL(x))) mg_set(x); } STMT_END
+
+#define SvSetSV_and(dst,src,finally) \
+	STMT_START {					\
+	    if (LIKELY((dst) != (src))) {		\
+		sv_setsv(dst, src);			\
+		finally;				\
+	    }						\
+	} STMT_END
+#define SvSetSV_nosteal_and(dst,src,finally) \
+	STMT_START {					\
+	    if (LIKELY((dst) != (src))) {			\
+		sv_setsv_flags(dst, src, SV_GMAGIC | SV_NOSTEAL | SV_DO_COW_SVSETSV);	\
+		finally;				\
+	    }						\
+	} STMT_END
+
+#define SvSetSV(dst,src) \
+		SvSetSV_and(dst,src,/*nothing*/;)
+#define SvSetSV_nosteal(dst,src) \
+		SvSetSV_nosteal_and(dst,src,/*nothing*/;)
+
+#define SvSetMagicSV(dst,src) \
+		SvSetSV_and(dst,src,SvSETMAGIC(dst))
+#define SvSetMagicSV_nosteal(dst,src) \
+		SvSetSV_nosteal_and(dst,src,SvSETMAGIC(dst))
+
+
+#if !defined(SKIP_DEBUGGING)
+#define SvPEEK(sv) sv_peek(sv)
+#else
+#define SvPEEK(sv) ""
+#endif
+
+#define SvIMMORTAL(sv) (SvREADONLY(sv) && ((sv)==&PL_sv_undef || (sv)==&PL_sv_yes || (sv)==&PL_sv_no || (sv)==&PL_sv_placeholder))
+
+#ifdef DEBUGGING
+   /* exercise the immortal resurrection code in sv_free2() */
+#  define SvREFCNT_IMMORTAL 1000
+#else
+#  define SvREFCNT_IMMORTAL ((~(U32)0)/2)
+#endif
+
+/*
+=for apidoc Am|SV *|boolSV|bool b
+
+Returns a true SV if C<b> is a true value, or a false SV if C<b> is 0.
+
+See also C<L</PL_sv_yes>> and C<L</PL_sv_no>>.
+
+=cut
+*/
+
+#define boolSV(b) ((b) ? &PL_sv_yes : &PL_sv_no)
+
+#define isGV(sv) (SvTYPE(sv) == SVt_PVGV)
+/* If I give every macro argument a different name, then there won't be bugs
+   where nested macros get confused. Been there, done that.  */
+#define isGV_with_GP(pwadak) \
+	(((SvFLAGS(pwadak) & (SVp_POK|SVpgv_GP)) == SVpgv_GP)	\
+	&& (SvTYPE(pwadak) == SVt_PVGV || SvTYPE(pwadak) == SVt_PVLV))
+#define isGV_with_GP_on(sv)	STMT_START {			       \
+	assert (SvTYPE(sv) == SVt_PVGV || SvTYPE(sv) == SVt_PVLV); \
+	assert (!SvPOKp(sv));					       \
+	assert (!SvIOKp(sv));					       \
+	(SvFLAGS(sv) |= SVpgv_GP);				       \
+    } STMT_END
+#define isGV_with_GP_off(sv)	STMT_START {			       \
+	assert (SvTYPE(sv) == SVt_PVGV || SvTYPE(sv) == SVt_PVLV); \
+	assert (!SvPOKp(sv));					       \
+	assert (!SvIOKp(sv));					       \
+	(SvFLAGS(sv) &= ~SVpgv_GP);				       \
+    } STMT_END
+#define isREGEXP(sv) \
+    (SvTYPE(sv) == SVt_REGEXP				      \
+     || (SvFLAGS(sv) & (SVTYPEMASK|SVp_POK|SVpgv_GP|SVf_FAKE)) \
+	 == (SVt_PVLV|SVf_FAKE))
+
+
+#ifdef PERL_ANY_COW
+# define SvGROW(sv,len) \
+	(SvIsCOW(sv) || SvLEN(sv) < (len) ? sv_grow(sv,len) : SvPVX(sv))
+#else
+# define SvGROW(sv,len) (SvLEN(sv) < (len) ? sv_grow(sv,len) : SvPVX(sv))
+#endif
+#define SvGROW_mutable(sv,len) \
+    (SvLEN(sv) < (len) ? sv_grow(sv,len) : SvPVX_mutable(sv))
+#define Sv_Grow sv_grow
+
+#define CLONEf_COPY_STACKS 1
+#define CLONEf_KEEP_PTR_TABLE 2
+#define CLONEf_CLONE_HOST 4
+#define CLONEf_JOIN_IN 8
+
+struct clone_params {
+  AV* stashes;
+  UV  flags;
+  PerlInterpreter *proto_perl;
+  PerlInterpreter *new_perl;
+  AV *unreferenced;
+};
+
+/*
+=for apidoc Am|SV*|newSVpvn_utf8|NULLOK const char* s|STRLEN len|U32 utf8
+
+Creates a new SV and copies a string (which may contain C<NUL> (C<\0>)
+characters) into it.  If C<utf8> is true, calls
+C<SvUTF8_on> on the new SV.  Implemented as a wrapper around C<newSVpvn_flags>.
+
+=cut
+*/
+
+#define newSVpvn_utf8(s, len, u) newSVpvn_flags((s), (len), (u) ? SVf_UTF8 : 0)
+
+/*
+=for apidoc Amx|SV*|newSVpadname|PADNAME *pn
+
+Creates a new SV containing the pad name.
+
+=cut
+*/
+
+#define newSVpadname(pn) newSVpvn_utf8(PadnamePV(pn), PadnameLEN(pn), TRUE)
+
+/*
+=for apidoc Am|void|SvOOK_offset|NN SV*sv|STRLEN len
+
+Reads into C<len> the offset from C<SvPVX> back to the true start of the
+allocated buffer, which will be non-zero if C<sv_chop> has been used to
+efficiently remove characters from start of the buffer.  Implemented as a
+macro, which takes the address of C<len>, which must be of type C<STRLEN>.
+Evaluates C<sv> more than once.  Sets C<len> to 0 if C<SvOOK(sv)> is false.
+
+=cut
+*/
+
+#ifdef DEBUGGING
+/* Does the bot know something I don't?
+10:28 <@Nicholas> metabatman
+10:28 <+meta> Nicholas: crash
+*/
+#  define SvOOK_offset(sv, offset) STMT_START {				\
+	assert(sizeof(offset) == sizeof(STRLEN));			\
+	if (SvOOK(sv)) {						\
+	    const U8 *_crash = (U8*)SvPVX_const(sv);			\
+	    (offset) = *--_crash;					\
+	    if (!(offset)) {						\
+		_crash -= sizeof(STRLEN);				\
+		Copy(_crash, (U8 *)&(offset), sizeof(STRLEN), U8);	\
+	    }								\
+	    {								\
+		/* Validate the preceding buffer's sentinels to		\
+		   verify that no-one is using it.  */			\
+		const U8 *const _bonk = (U8*)SvPVX_const(sv) - (offset);\
+		while (_crash > _bonk) {				\
+		    --_crash;						\
+		    assert (*_crash == (U8)PTR2UV(_crash));		\
+		}							\
+	    }								\
+	} else {							\
+	    (offset) = 0;						\
+	}								\
+    } STMT_END
+#else
+    /* This is the same code, but avoids using any temporary variables:  */
+#  define SvOOK_offset(sv, offset) STMT_START {				\
+	assert(sizeof(offset) == sizeof(STRLEN));			\
+	if (SvOOK(sv)) {						\
+	    (offset) = ((U8*)SvPVX_const(sv))[-1];			\
+	    if (!(offset)) {						\
+		Copy(SvPVX_const(sv) - 1 - sizeof(STRLEN),		\
+		     (U8*)&(offset), sizeof(STRLEN), U8);		\
+	    }								\
+	} else {							\
+	    (offset) = 0;						\
+	}								\
+    } STMT_END
+#endif
+
+#define newIO()	MUTABLE_IO(newSV_type(SVt_PVIO))
+
+#define SV_CONST(name) \
+	PL_sv_consts[SV_CONST_##name] \
+		? PL_sv_consts[SV_CONST_##name] \
+		: (PL_sv_consts[SV_CONST_##name] = newSVpv_share(#name, 0))
+
+#define SV_CONST_TIESCALAR 0
+#define SV_CONST_TIEARRAY 1
+#define SV_CONST_TIEHASH 2
+#define SV_CONST_TIEHANDLE 3
+
+#define SV_CONST_FETCH 4
+#define SV_CONST_FETCHSIZE 5
+#define SV_CONST_STORE 6
+#define SV_CONST_STORESIZE 7
+#define SV_CONST_EXISTS 8
+
+#define SV_CONST_PUSH 9
+#define SV_CONST_POP 10
+#define SV_CONST_SHIFT 11
+#define SV_CONST_UNSHIFT 12
+#define SV_CONST_SPLICE 13
+#define SV_CONST_EXTEND 14
+
+#define SV_CONST_FIRSTKEY 15
+#define SV_CONST_NEXTKEY 16
+#define SV_CONST_SCALAR 17
+
+#define SV_CONST_OPEN 18
+#define SV_CONST_WRITE 19
+#define SV_CONST_PRINT 20
+#define SV_CONST_PRINTF 21
+#define SV_CONST_READ 22
+#define SV_CONST_READLINE 23
+#define SV_CONST_GETC 24
+#define SV_CONST_SEEK 25
+#define SV_CONST_TELL 26
+#define SV_CONST_EOF 27
+#define SV_CONST_BINMODE 28
+#define SV_CONST_FILENO 29
+#define SV_CONST_CLOSE 30
+
+#define SV_CONST_DELETE 31
+#define SV_CONST_CLEAR 32
+#define SV_CONST_UNTIE 33
+#define SV_CONST_DESTROY 34
+
+#define SV_CONSTS_COUNT 35
+
+/*
+ * Bodyless IVs and NVs!
+ *
+ * Since 5.9.2, we can avoid allocating a body for SVt_IV-type SVs.
+ * Since the larger IV-holding variants of SVs store their integer
+ * values in their respective bodies, the family of SvIV() accessor
+ * macros would  naively have to branch on the SV type to find the
+ * integer value either in the HEAD or BODY. In order to avoid this
+ * expensive branch, a clever soul has deployed a great hack:
+ * We set up the SvANY pointer such that instead of pointing to a
+ * real body, it points into the memory before the location of the
+ * head. We compute this pointer such that the location of
+ * the integer member of the hypothetical body struct happens to
+ * be the same as the location of the integer member of the bodyless
+ * SV head. This now means that the SvIV() family of accessors can
+ * always read from the (hypothetical or real) body via SvANY.
+ *
+ * Since the 5.21 dev series, we employ the same trick for NVs
+ * if the architecture can support it (NVSIZE <= IVSIZE).
+ */
+
+/* The following two macros compute the necessary offsets for the above
+ * trick and store them in SvANY for SvIV() (and friends) to use. */
+
+#ifdef PERL_CORE
+#  define SET_SVANY_FOR_BODYLESS_IV(sv) \
+	SvANY(sv) =   (XPVIV*)((char*)&(sv->sv_u.svu_iv) \
+                    - STRUCT_OFFSET(XPVIV, xiv_iv))
+
+#  define SET_SVANY_FOR_BODYLESS_NV(sv) \
+	SvANY(sv) =   (XPVNV*)((char*)&(sv->sv_u.svu_nv) \
+                    - STRUCT_OFFSET(XPVNV, xnv_u.xnv_nv))
+#endif
+
+/*
+ * ex: set ts=8 sts=4 sw=4 et:
+ */
diff --git a/lib/5.24.1/x86_64-linux/CORE/thread.h b/lib/5.24.1/x86_64-linux/CORE/thread.h
new file mode 100644
index 00000000..9958a5bf
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/thread.h
@@ -0,0 +1,443 @@
+/*    thread.h
+ *
+ *    Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
+ *    by Larry Wall and others
+ *
+ *    You may distribute under the terms of either the GNU General Public
+ *    License or the Artistic License, as specified in the README file.
+ *
+ */
+
+#if defined(USE_ITHREADS)
+
+#if defined(VMS)
+#include <builtins.h>
+#endif
+
+#ifdef WIN32
+#  include <win32thread.h>
+#else
+#ifdef NETWARE
+#  include <nw5thread.h>
+#else
+#  ifdef OLD_PTHREADS_API /* Here be dragons. */
+#    define DETACH(t) \
+    STMT_START {						\
+	int _eC_;						\
+	if ((_eC_ = pthread_detach(&(t)->self))) {		\
+	    MUTEX_UNLOCK(&(t)->mutex);				\
+	    Perl_croak_nocontext("panic: DETACH (%d) [%s:%d]",	\
+				 _eC_, __FILE__, __LINE__);	\
+	}							\
+    } STMT_END
+
+#    define PERL_GET_CONTEXT	Perl_get_context()
+#    define PERL_SET_CONTEXT(t)	Perl_set_context((void*)t)
+
+#    define PTHREAD_GETSPECIFIC_INT
+#    ifdef DJGPP
+#      define pthread_addr_t any_t
+#      define NEED_PTHREAD_INIT
+#      define PTHREAD_CREATE_JOINABLE (1)
+#    endif
+#    ifdef OEMVS
+#      define pthread_addr_t void *
+#      define pthread_create(t,a,s,d)        pthread_create(t,&(a),s,d)
+#      define pthread_keycreate              pthread_key_create
+#    endif
+#    ifdef VMS
+#      define pthread_attr_init(a) pthread_attr_create(a)
+#      define PTHREAD_ATTR_SETDETACHSTATE(a,s) pthread_setdetach_np(a,s)
+#      define PTHREAD_CREATE(t,a,s,d) pthread_create(t,a,s,d)
+#      define pthread_key_create(k,d) pthread_keycreate(k,(pthread_destructor_t)(d))
+#      define pthread_mutexattr_init(a) pthread_mutexattr_create(a)
+#      define pthread_mutexattr_settype(a,t) pthread_mutexattr_setkind_np(a,t)
+#    endif
+#    if defined(__hpux) && defined(__ux_version) && __ux_version <= 1020
+#      define pthread_attr_init(a) pthread_attr_create(a)
+       /* XXX pthread_setdetach_np() missing in DCE threads on HP-UX 10.20 */
+#      define PTHREAD_ATTR_SETDETACHSTATE(a,s)	(0)
+#      define PTHREAD_CREATE(t,a,s,d) pthread_create(t,a,s,d)
+#      define pthread_key_create(k,d) pthread_keycreate(k,(pthread_destructor_t)(d))
+#      define pthread_mutexattr_init(a) pthread_mutexattr_create(a)
+#      define pthread_mutexattr_settype(a,t) pthread_mutexattr_setkind_np(a,t)
+#    endif
+#    if defined(DJGPP) || defined(OEMVS)
+#      define PTHREAD_ATTR_SETDETACHSTATE(a,s) pthread_attr_setdetachstate(a,&(s))
+#      define YIELD pthread_yield(NULL)
+#    endif
+#  endif
+#  if !defined(__hpux) || !defined(__ux_version) || __ux_version > 1020
+#    define pthread_mutexattr_default NULL
+#    define pthread_condattr_default  NULL
+#  endif
+#endif	/* NETWARE */
+#endif
+
+#ifndef PTHREAD_CREATE
+/* You are not supposed to pass NULL as the 2nd arg of PTHREAD_CREATE(). */
+#  define PTHREAD_CREATE(t,a,s,d) pthread_create(t,&(a),s,d)
+#endif
+
+#ifndef PTHREAD_ATTR_SETDETACHSTATE
+#  define PTHREAD_ATTR_SETDETACHSTATE(a,s) pthread_attr_setdetachstate(a,s)
+#endif
+
+#ifndef PTHREAD_CREATE_JOINABLE
+#  ifdef OLD_PTHREAD_CREATE_JOINABLE
+#    define PTHREAD_CREATE_JOINABLE OLD_PTHREAD_CREATE_JOINABLE
+#  else
+#    define PTHREAD_CREATE_JOINABLE 0 /* Panic?  No, guess. */
+#  endif
+#endif
+
+#ifdef __VMS
+  /* Default is 1024 on VAX, 8192 otherwise */
+#  ifdef __ia64
+#    define THREAD_CREATE_NEEDS_STACK (48*1024)
+#  else
+#    define THREAD_CREATE_NEEDS_STACK (32*1024)
+#  endif
+#endif
+
+#ifdef I_MACH_CTHREADS
+
+/* cthreads interface */
+
+/* #include <mach/cthreads.h> is in perl.h #ifdef I_MACH_CTHREADS */
+
+#define MUTEX_INIT(m) \
+    STMT_START {						\
+	*m = mutex_alloc();					\
+	if (*m) {						\
+	    mutex_init(*m);					\
+	} else {						\
+	    Perl_croak_nocontext("panic: MUTEX_INIT [%s:%d]",	\
+				 __FILE__, __LINE__);		\
+	}							\
+    } STMT_END
+
+#define MUTEX_LOCK(m)			mutex_lock(*m)
+#define MUTEX_UNLOCK(m)			mutex_unlock(*m)
+#define MUTEX_DESTROY(m) \
+    STMT_START {						\
+	mutex_free(*m);						\
+	*m = 0;							\
+    } STMT_END
+
+#define COND_INIT(c) \
+    STMT_START {						\
+	*c = condition_alloc();					\
+	if (*c) {						\
+	    condition_init(*c);					\
+	}							\
+	else {							\
+	    Perl_croak_nocontext("panic: COND_INIT [%s:%d]",	\
+				 __FILE__, __LINE__);		\
+	}							\
+    } STMT_END
+
+#define COND_SIGNAL(c)		condition_signal(*c)
+#define COND_BROADCAST(c)	condition_broadcast(*c)
+#define COND_WAIT(c, m)		condition_wait(*c, *m)
+#define COND_DESTROY(c) \
+    STMT_START {						\
+	condition_free(*c);					\
+	*c = 0;							\
+    } STMT_END
+
+#define THREAD_CREATE(thr, f)	(thr->self = cthread_fork(f, thr), 0)
+#define THREAD_POST_CREATE(thr)
+
+#define THREAD_RET_TYPE		any_t
+#define THREAD_RET_CAST(x)	((any_t) x)
+
+#define DETACH(t)		cthread_detach(t->self)
+#define JOIN(t, avp)		(*(avp) = MUTABLE_AV(cthread_join(t->self)))
+
+#define PERL_SET_CONTEXT(t)	cthread_set_data(cthread_self(), t)
+#define PERL_GET_CONTEXT	cthread_data(cthread_self())
+
+#define INIT_THREADS		cthread_init()
+#define YIELD			cthread_yield()
+#define ALLOC_THREAD_KEY	NOOP
+#define FREE_THREAD_KEY		NOOP
+#define SET_THREAD_SELF(thr)	(thr->self = cthread_self())
+
+#endif /* I_MACH_CTHREADS */
+
+#ifndef YIELD
+#  ifdef SCHED_YIELD
+#    define YIELD SCHED_YIELD
+#  else
+#    ifdef HAS_SCHED_YIELD
+#      define YIELD sched_yield()
+#    else
+#      ifdef HAS_PTHREAD_YIELD
+    /* pthread_yield(NULL) platforms are expected
+     * to have #defined YIELD for themselves. */
+#        define YIELD pthread_yield()
+#      endif
+#    endif
+#  endif
+#endif
+
+#ifdef __hpux
+#  define MUTEX_INIT_NEEDS_MUTEX_ZEROED
+#endif
+
+#ifndef MUTEX_INIT
+
+#  ifdef MUTEX_INIT_NEEDS_MUTEX_ZEROED
+    /* Temporary workaround, true bug is deeper. --jhi 1999-02-25 */
+#    define MUTEX_INIT(m) \
+    STMT_START {						\
+	int _eC_;						\
+	Zero((m), 1, perl_mutex);                               \
+ 	if ((_eC_ = pthread_mutex_init((m), pthread_mutexattr_default)))	\
+	    Perl_croak_nocontext("panic: MUTEX_INIT (%d) [%s:%d]",	\
+				 _eC_, __FILE__, __LINE__);	\
+    } STMT_END
+#  else
+#    define MUTEX_INIT(m) \
+    STMT_START {						\
+	int _eC_;						\
+	if ((_eC_ = pthread_mutex_init((m), pthread_mutexattr_default)))	\
+	    Perl_croak_nocontext("panic: MUTEX_INIT (%d) [%s:%d]",	\
+				 _eC_, __FILE__, __LINE__);	\
+    } STMT_END
+#  endif
+
+#  ifdef PERL_TSA_ACTIVE
+#    define perl_pthread_mutex_lock(m) perl_tsa_mutex_lock(m)
+#    define perl_pthread_mutex_unlock(m) perl_tsa_mutex_unlock(m)
+#  else
+#    define perl_pthread_mutex_lock(m) pthread_mutex_lock(m)
+#    define perl_pthread_mutex_unlock(m) pthread_mutex_unlock(m)
+#  endif
+
+#  define MUTEX_LOCK(m) \
+    STMT_START {						\
+	int _eC_;						\
+	if ((_eC_ = perl_pthread_mutex_lock((m))))			\
+	    Perl_croak_nocontext("panic: MUTEX_LOCK (%d) [%s:%d]",	\
+				 _eC_, __FILE__, __LINE__);	\
+    } STMT_END
+
+#  define MUTEX_UNLOCK(m) \
+    STMT_START {						\
+	int _eC_;						\
+	if ((_eC_ = perl_pthread_mutex_unlock((m))))			\
+	    Perl_croak_nocontext("panic: MUTEX_UNLOCK (%d) [%s:%d]",	\
+				 _eC_, __FILE__, __LINE__);	\
+    } STMT_END
+
+#  define MUTEX_DESTROY(m) \
+    STMT_START {						\
+	int _eC_;						\
+	if ((_eC_ = pthread_mutex_destroy((m))))		\
+	    Perl_croak_nocontext("panic: MUTEX_DESTROY (%d) [%s:%d]",	\
+				 _eC_, __FILE__, __LINE__);	\
+    } STMT_END
+#endif /* MUTEX_INIT */
+
+#ifndef COND_INIT
+#  define COND_INIT(c) \
+    STMT_START {						\
+	int _eC_;						\
+	if ((_eC_ = pthread_cond_init((c), pthread_condattr_default)))	\
+	    Perl_croak_nocontext("panic: COND_INIT (%d) [%s:%d]",	\
+				 _eC_, __FILE__, __LINE__);	\
+    } STMT_END
+
+#  define COND_SIGNAL(c) \
+    STMT_START {						\
+	int _eC_;						\
+	if ((_eC_ = pthread_cond_signal((c))))			\
+	    Perl_croak_nocontext("panic: COND_SIGNAL (%d) [%s:%d]",	\
+				 _eC_, __FILE__, __LINE__);	\
+    } STMT_END
+
+#  define COND_BROADCAST(c) \
+    STMT_START {						\
+	int _eC_;						\
+	if ((_eC_ = pthread_cond_broadcast((c))))		\
+	    Perl_croak_nocontext("panic: COND_BROADCAST (%d) [%s:%d]",	\
+				 _eC_, __FILE__, __LINE__);	\
+    } STMT_END
+
+#  define COND_WAIT(c, m) \
+    STMT_START {						\
+	int _eC_;						\
+	if ((_eC_ = pthread_cond_wait((c), (m))))		\
+	    Perl_croak_nocontext("panic: COND_WAIT (%d) [%s:%d]",	\
+				 _eC_, __FILE__, __LINE__);	\
+    } STMT_END
+
+#  define COND_DESTROY(c) \
+    STMT_START {						\
+	int _eC_;						\
+	if ((_eC_ = pthread_cond_destroy((c))))			\
+	    Perl_croak_nocontext("panic: COND_DESTROY (%d) [%s:%d]",	\
+				 _eC_, __FILE__, __LINE__);	\
+    } STMT_END
+#endif /* COND_INIT */
+
+/* DETACH(t) must only be called while holding t->mutex */
+#ifndef DETACH
+#  define DETACH(t) \
+    STMT_START {						\
+	int _eC_;						\
+	if ((_eC_ = pthread_detach((t)->self))) {		\
+	    MUTEX_UNLOCK(&(t)->mutex);				\
+	    Perl_croak_nocontext("panic: DETACH (%d) [%s:%d]",	\
+				 _eC_, __FILE__, __LINE__);	\
+	}							\
+    } STMT_END
+#endif /* DETACH */
+
+#ifndef JOIN
+#  define JOIN(t, avp) \
+    STMT_START {						\
+	int _eC_;						\
+	if ((_eC_ = pthread_join((t)->self, (void**)(avp))))	\
+	    Perl_croak_nocontext("panic: pthread_join (%d) [%s:%d]",	\
+				 _eC_, __FILE__, __LINE__);	\
+    } STMT_END
+#endif /* JOIN */
+
+/* Use an unchecked fetch of thread-specific data instead of a checked one.
+ * It would fail if the key were bogus, but if the key were bogus then
+ * Really Bad Things would be happening anyway. --dan */
+#if (defined(__ALPHA) && (__VMS_VER >= 70000000)) || \
+    (defined(__alpha) && defined(__osf__) && !defined(__GNUC__)) /* Available only on >= 4.0 */
+#  define HAS_PTHREAD_UNCHECKED_GETSPECIFIC_NP /* Configure test needed */
+#endif
+
+#ifdef HAS_PTHREAD_UNCHECKED_GETSPECIFIC_NP
+#  define PTHREAD_GETSPECIFIC(key) pthread_unchecked_getspecific_np(key)
+#else
+#    define PTHREAD_GETSPECIFIC(key) pthread_getspecific(key)
+#endif
+
+#ifndef PERL_GET_CONTEXT
+#  define PERL_GET_CONTEXT	PTHREAD_GETSPECIFIC(PL_thr_key)
+#endif
+
+#ifndef PERL_SET_CONTEXT
+#  define PERL_SET_CONTEXT(t) \
+    STMT_START {						\
+	int _eC_;						\
+	if ((_eC_ = pthread_setspecific(PL_thr_key, (void *)(t))))	\
+	    Perl_croak_nocontext("panic: pthread_setspecific (%d) [%s:%d]",	\
+				 _eC_, __FILE__, __LINE__);	\
+    } STMT_END
+#endif /* PERL_SET_CONTEXT */
+
+#ifndef INIT_THREADS
+#  ifdef NEED_PTHREAD_INIT
+#    define INIT_THREADS pthread_init()
+#  endif
+#endif
+
+#ifndef ALLOC_THREAD_KEY
+#  define ALLOC_THREAD_KEY \
+    STMT_START {						\
+	if (pthread_key_create(&PL_thr_key, 0)) {		\
+            PERL_UNUSED_RESULT(write(2, STR_WITH_LEN("panic: pthread_key_create failed\n"))); \
+	    exit(1);						\
+	}							\
+    } STMT_END
+#endif
+
+#ifndef FREE_THREAD_KEY
+#  define FREE_THREAD_KEY \
+    STMT_START {						\
+	pthread_key_delete(PL_thr_key);				\
+    } STMT_END
+#endif
+
+#ifndef PTHREAD_ATFORK
+#  ifdef HAS_PTHREAD_ATFORK
+#    define PTHREAD_ATFORK(prepare,parent,child)		\
+	pthread_atfork(prepare,parent,child)
+#  else
+#    define PTHREAD_ATFORK(prepare,parent,child)		\
+	NOOP
+#  endif
+#endif
+
+#ifndef THREAD_RET_TYPE
+#  define THREAD_RET_TYPE	void *
+#  define THREAD_RET_CAST(p)	((void *)(p))
+#endif /* THREAD_RET */
+
+#  define LOCK_DOLLARZERO_MUTEX		MUTEX_LOCK(&PL_dollarzero_mutex)
+#  define UNLOCK_DOLLARZERO_MUTEX	MUTEX_UNLOCK(&PL_dollarzero_mutex)
+
+#endif /* USE_ITHREADS */
+
+#ifndef MUTEX_LOCK
+#  define MUTEX_LOCK(m)
+#endif
+
+#ifndef MUTEX_UNLOCK
+#  define MUTEX_UNLOCK(m)
+#endif
+
+#ifndef MUTEX_INIT
+#  define MUTEX_INIT(m)
+#endif
+
+#ifndef MUTEX_DESTROY
+#  define MUTEX_DESTROY(m)
+#endif
+
+#ifndef COND_INIT
+#  define COND_INIT(c)
+#endif
+
+#ifndef COND_SIGNAL
+#  define COND_SIGNAL(c)
+#endif
+
+#ifndef COND_BROADCAST
+#  define COND_BROADCAST(c)
+#endif
+
+#ifndef COND_WAIT
+#  define COND_WAIT(c, m)
+#endif
+
+#ifndef COND_DESTROY
+#  define COND_DESTROY(c)
+#endif
+
+#ifndef LOCK_DOLLARZERO_MUTEX
+#  define LOCK_DOLLARZERO_MUTEX
+#endif
+
+#ifndef UNLOCK_DOLLARZERO_MUTEX
+#  define UNLOCK_DOLLARZERO_MUTEX
+#endif
+
+/* THR, SET_THR, and dTHR are there for compatibility with old versions */
+#ifndef THR
+#  define THR		PERL_GET_THX
+#endif
+
+#ifndef SET_THR
+#  define SET_THR(t)	PERL_SET_THX(t)
+#endif
+
+#ifndef dTHR
+#  define dTHR dNOOP
+#endif
+
+#ifndef INIT_THREADS
+#  define INIT_THREADS NOOP
+#endif
+
+/*
+ * ex: set ts=8 sts=4 sw=4 et:
+ */
diff --git a/lib/5.24.1/x86_64-linux/CORE/time64.h b/lib/5.24.1/x86_64-linux/CORE/time64.h
new file mode 100644
index 00000000..6f60bce8
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/time64.h
@@ -0,0 +1,68 @@
+#include <time.h>
+#include "time64_config.h"
+
+#ifndef TIME64_H
+#    define TIME64_H
+
+
+/* Set our custom types */
+typedef INT_64_T        Int64;
+typedef Int64           Time64_T;
+typedef I32             Year;
+
+
+/* A copy of the tm struct but with a 64 bit year */
+struct TM64 {
+        int     tm_sec;
+        int     tm_min;
+        int     tm_hour;
+        int     tm_mday;
+        int     tm_mon;
+        Year    tm_year;
+        int     tm_wday;
+        int     tm_yday;
+        int     tm_isdst;
+
+#ifdef HAS_TM_TM_GMTOFF
+        long    tm_gmtoff;
+#endif
+
+#ifdef HAS_TM_TM_ZONE
+/* If glibc is defined or we are on QNX, use const.
+ * Otherwise, if we are on android, use const but
+ * not with g++.
+ */
+#  if defined(__GLIBC__) || (defined(__ANDROID__) && !defined(__cplusplus)) || defined(__QNX__)
+        const
+#  endif
+        char    *tm_zone;
+#endif
+};
+
+
+/* Decide which tm struct to use */
+#ifdef USE_TM64
+#define TM      TM64
+#else
+#define TM      tm
+#endif
+
+
+/* Declare functions */
+struct TM *Perl_gmtime64_r    (const Time64_T *, struct TM *);
+struct TM *Perl_localtime64_r (const Time64_T *, struct TM *);
+
+
+/* Not everyone has gm/localtime_r(), provide a replacement */
+#ifdef HAS_LOCALTIME_R
+#    define LOCALTIME_R(clock, result) (L_R_TZSET localtime_r(clock, result))
+#else
+#    define LOCALTIME_R(clock, result) (L_R_TZSET S_localtime_r(clock, result))
+#endif
+#ifdef HAS_GMTIME_R
+#    define GMTIME_R(clock, result)    gmtime_r(clock, result)
+#else
+#    define GMTIME_R(clock, result)    S_gmtime_r(clock, result)
+#endif
+
+#endif
diff --git a/lib/5.24.1/x86_64-linux/CORE/time64_config.h b/lib/5.24.1/x86_64-linux/CORE/time64_config.h
new file mode 100644
index 00000000..42cc12c8
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/time64_config.h
@@ -0,0 +1,85 @@
+#ifndef TIME64_CONFIG_H
+#    define TIME64_CONFIG_H
+
+/* Configuration
+   -------------
+   Define as appropriate for your system.
+   Sensible defaults provided.
+*/
+
+/* Debugging
+   TIME_64_DEBUG
+   Define if you want debugging messages
+*/
+/* #define TIME_64_DEBUG */
+
+
+/* INT_64_T
+   A numeric type to store time and others. 
+   Must be defined.
+*/
+#define INT_64_T                NV
+
+
+/* USE_TM64
+   Should we use a 64 bit safe replacement for tm?  This will
+   let you go past year 2 billion but the struct will be incompatible
+   with tm.  Conversion functions will be provided.
+*/
+#define USE_TM64
+
+
+/* Availability of system functions.
+
+   HAS_GMTIME_R
+   Define if your system has gmtime_r()
+
+   HAS_LOCALTIME_R
+   Define if your system has localtime_r()
+
+   HAS_TIMEGM
+   Define if your system has timegm(), a GNU extension.
+*/
+/* Set in config.h */
+
+
+/* Details of non-standard tm struct elements.
+
+   HAS_TM_TM_GMTOFF
+   True if your tm struct has a "tm_gmtoff" element.
+   A BSD extension.
+
+   HAS_TM_TM_ZONE
+   True if your tm struct has a "tm_zone" element.
+   A BSD extension.
+*/
+/* Set in config.h */
+
+
+/* USE_SYSTEM_LOCALTIME
+   USE_SYSTEM_GMTIME
+   Should we use the system functions if the time is inside their range?
+   Your system localtime() is probably more accurate, but our gmtime() is
+   fast and safe.  Except on VMS, where we need the homegrown gmtime()
+   override to shift between UTC and local for the vmsish 'time' pragma.
+*/
+#define USE_SYSTEM_LOCALTIME
+#ifdef VMS
+#  define USE_SYSTEM_GMTIME
+#endif
+
+
+/* SYSTEM_LOCALTIME_MAX
+   SYSTEM_LOCALTIME_MIN
+   SYSTEM_GMTIME_MAX
+   SYSTEM_GMTIME_MIN
+   Maximum and minimum values your system's gmtime() and localtime()
+   can handle.  We will use your system functions if the time falls
+   inside these ranges.
+*/
+#define SYSTEM_LOCALTIME_MAX    CAT2(LOCALTIME_MAX,.0)
+#define SYSTEM_LOCALTIME_MIN    CAT2(LOCALTIME_MIN,.0)
+#define SYSTEM_GMTIME_MAX       CAT2(GMTIME_MAX,.0)
+#define SYSTEM_GMTIME_MIN       CAT2(GMTIME_MIN,.0)
+
+#endif /* TIME64_CONFIG_H */
diff --git a/lib/5.24.1/x86_64-linux/CORE/uconfig.h b/lib/5.24.1/x86_64-linux/CORE/uconfig.h
new file mode 100644
index 00000000..c050a083
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/uconfig.h
@@ -0,0 +1,5246 @@
+/* This file was produced by running the config_h.SH script, which
+ * gets its values from uconfig.sh, which is generally produced by
+ * running Configure.
+ *
+ * Feel free to modify any of this as the need arises.  Note, however,
+ * that running config_h.SH again will wipe out any changes you've made.
+ * For a more permanent change edit uconfig.sh and rerun config_h.SH.
+ */
+
+/* Package name      : perl5
+ * Source directory  : .
+ * Configuration time: Thu Jan  1 00:00:00 GMT 1970
+ * Configured by     : root@localhost
+ * Target system     : unknown
+ */
+
+#ifndef _config_h_
+#define _config_h_
+
+/* LOC_SED:
+ *	This symbol holds the complete pathname to the sed program.
+ */
+#define LOC_SED 	""	/**/
+
+/* HAS_ALARM:
+ *	This symbol, if defined, indicates that the alarm routine is
+ *	available.
+ */
+/*#define HAS_ALARM		/ **/
+
+/* HAS_BCMP:
+ *	This symbol is defined if the bcmp() routine is available to
+ *	compare blocks of memory.
+ */
+/*#define HAS_BCMP	/ **/
+
+/* HAS_BCOPY:
+ *	This symbol is defined if the bcopy() routine is available to
+ *	copy blocks of memory.
+ */
+/*#define HAS_BCOPY	/ **/
+
+/* HAS_BZERO:
+ *	This symbol is defined if the bzero() routine is available to
+ *	set a memory block to 0.
+ */
+/*#define HAS_BZERO	/ **/
+
+/* HAS_CBRT:
+ *	This symbol, if defined, indicates that the cbrt() (cube root)
+ *	function is available.
+ */
+/*#define HAS_CBRT	/ **/
+
+/* HAS_CHOWN:
+ *	This symbol, if defined, indicates that the chown routine is
+ *	available.
+ */
+/*#define HAS_CHOWN		/ **/
+
+/* HAS_CHROOT:
+ *	This symbol, if defined, indicates that the chroot routine is
+ *	available.
+ */
+/*#define HAS_CHROOT		/ **/
+
+/* HAS_CHSIZE:
+ *	This symbol, if defined, indicates that the chsize routine is available
+ *	to truncate files.  You might need a -lx to get this routine.
+ */
+/*#define	HAS_CHSIZE		/ **/
+
+/* HAS_CRYPT:
+ *	This symbol, if defined, indicates that the crypt routine is available
+ *	to encrypt passwords and the like.
+ */
+/*#define HAS_CRYPT		/ **/
+
+/* HAS_CTERMID:
+ *	This symbol, if defined, indicates that the ctermid routine is
+ *	available to generate filename for terminal.
+ */
+/*#define HAS_CTERMID		/ **/
+
+/* HAS_CUSERID:
+ *	This symbol, if defined, indicates that the cuserid routine is
+ *	available to get character login names.
+ */
+/*#define HAS_CUSERID		/ **/
+
+/* HAS_DBL_DIG:
+ *	This symbol, if defined, indicates that this system's <float.h>
+ *	or <limits.h> defines the symbol DBL_DIG, which is the number
+ *	of significant digits in a double precision number.  If this
+ *	symbol is not defined, a guess of 15 is usually pretty good.
+ */
+/*#define HAS_DBL_DIG 	/ **/
+
+/* HAS_DIFFTIME:
+ *	This symbol, if defined, indicates that the difftime routine is
+ *	available.
+ */
+/*#define HAS_DIFFTIME		/ **/
+
+/* HAS_DLERROR:
+ *	This symbol, if defined, indicates that the dlerror routine is
+ *	available to return a string describing the last error that
+ *	occurred from a call to dlopen(), dlclose() or dlsym().
+ */
+/*#define HAS_DLERROR	/ **/
+
+/* HAS_DUP2:
+ *	This symbol, if defined, indicates that the dup2 routine is
+ *	available to duplicate file descriptors.
+ */
+/*#define HAS_DUP2	/ **/
+
+/* HAS_FCHMOD:
+ *	This symbol, if defined, indicates that the fchmod routine is available
+ *	to change mode of opened files.  If unavailable, use chmod().
+ */
+/*#define HAS_FCHMOD		/ **/
+
+/* HAS_FCHOWN:
+ *	This symbol, if defined, indicates that the fchown routine is available
+ *	to change ownership of opened files.  If unavailable, use chown().
+ */
+/*#define HAS_FCHOWN		/ **/
+
+/* HAS_FCNTL:
+ *	This symbol, if defined, indicates to the C program that
+ *	the fcntl() function exists.
+ */
+/*#define HAS_FCNTL		/ **/
+
+/* HAS_FGETPOS:
+ *	This symbol, if defined, indicates that the fgetpos routine is
+ *	available to get the file position indicator, similar to ftell().
+ */
+/*#define HAS_FGETPOS	/ **/
+
+/* HAS_FLOCK:
+ *	This symbol, if defined, indicates that the flock routine is
+ *	available to do file locking.
+ */
+/*#define HAS_FLOCK		/ **/
+
+/* HAS_FORK:
+ *	This symbol, if defined, indicates that the fork routine is
+ *	available.
+ */
+#define HAS_FORK		/**/
+
+/* HAS_FSETPOS:
+ *	This symbol, if defined, indicates that the fsetpos routine is
+ *	available to set the file position indicator, similar to fseek().
+ */
+/*#define HAS_FSETPOS	/ **/
+
+/* HAS_GETTIMEOFDAY:
+ *	This symbol, if defined, indicates that the gettimeofday() system
+ *	call is available for a sub-second accuracy clock. Usually, the file
+ *	<sys/resource.h> needs to be included (see I_SYS_RESOURCE).
+ *	The type "Timeval" should be used to refer to "struct timeval".
+ */
+/*#define HAS_GETTIMEOFDAY	/ **/
+#ifdef HAS_GETTIMEOFDAY
+#define Timeval struct timeval	/* Structure used by gettimeofday() */
+#endif
+
+/* HAS_GETGROUPS:
+ *	This symbol, if defined, indicates that the getgroups() routine is
+ *	available to get the list of process groups.  If unavailable, multiple
+ *	groups are probably not supported.
+ */
+/*#define HAS_GETGROUPS		/ **/
+
+/* HAS_GETLOGIN:
+ *	This symbol, if defined, indicates that the getlogin routine is
+ *	available to get the login name.
+ */
+/*#define HAS_GETLOGIN		/ **/
+
+/* HAS_GETPGID:
+ *	This symbol, if defined, indicates to the C program that 
+ *	the getpgid(pid) function is available to get the
+ *	process group id.
+ */
+/*#define HAS_GETPGID		/ **/
+
+/* HAS_GETPGRP2:
+ *	This symbol, if defined, indicates that the getpgrp2() (as in DG/UX)
+ *	routine is available to get the current process group.
+ */
+/*#define HAS_GETPGRP2		/ **/
+
+/* HAS_GETPPID:
+ *	This symbol, if defined, indicates that the getppid routine is
+ *	available to get the parent process ID.
+ */
+/*#define HAS_GETPPID		/ **/
+
+/* HAS_GETPRIORITY:
+ *	This symbol, if defined, indicates that the getpriority routine is
+ *	available to get a process's priority.
+ */
+/*#define HAS_GETPRIORITY		/ **/
+
+/* HAS_INET_ATON:
+ *	This symbol, if defined, indicates to the C program that the
+ *	inet_aton() function is available to parse IP address "dotted-quad"
+ *	strings.
+ */
+/*#define HAS_INET_ATON		/ **/
+
+/* HAS_KILLPG:
+ *	This symbol, if defined, indicates that the killpg routine is available
+ *	to kill process groups.  If unavailable, you probably should use kill
+ *	with a negative process number.
+ */
+/*#define HAS_KILLPG	/ **/
+
+/* HAS_LINK:
+ *	This symbol, if defined, indicates that the link routine is
+ *	available to create hard links.
+ */
+/*#define HAS_LINK	/ **/
+
+/* HAS_LOCALECONV:
+ *	This symbol, if defined, indicates that the localeconv routine is
+ *	available for numeric and monetary formatting conventions.
+ */
+/*#define HAS_LOCALECONV	/ **/
+
+/* HAS_LOCKF:
+ *	This symbol, if defined, indicates that the lockf routine is
+ *	available to do file locking.
+ */
+/*#define HAS_LOCKF		/ **/
+
+/* HAS_LSTAT:
+ *	This symbol, if defined, indicates that the lstat routine is
+ *	available to do file stats on symbolic links.
+ */
+/*#define HAS_LSTAT		/ **/
+
+/* HAS_MBLEN:
+ *	This symbol, if defined, indicates that the mblen routine is available
+ *	to find the number of bytes in a multibye character.
+ */
+/*#define HAS_MBLEN		/ **/
+
+/* HAS_MBSTOWCS:
+ *	This symbol, if defined, indicates that the mbstowcs routine is
+ *	available to convert a multibyte string into a wide character string.
+ */
+/*#define	HAS_MBSTOWCS		/ **/
+
+/* HAS_MBTOWC:
+ *	This symbol, if defined, indicates that the mbtowc routine is available
+ *	to convert a multibyte to a wide character.
+ */
+/*#define HAS_MBTOWC		/ **/
+
+/* HAS_MEMCMP:
+ *	This symbol, if defined, indicates that the memcmp routine is available
+ *	to compare blocks of memory.
+ */
+#define HAS_MEMCMP	/**/
+
+/* HAS_MEMCPY:
+ *	This symbol, if defined, indicates that the memcpy routine is available
+ *	to copy blocks of memory.
+ */
+#define HAS_MEMCPY	/**/
+
+/* HAS_MEMMOVE:
+ *	This symbol, if defined, indicates that the memmove routine is available
+ *	to copy potentially overlapping blocks of memory. This should be used
+ *	only when HAS_SAFE_BCOPY is not defined. If neither is there, roll your
+ *	own version.
+ */
+/*#define HAS_MEMMOVE	/ **/
+
+/* HAS_MEMSET:
+ *	This symbol, if defined, indicates that the memset routine is available
+ *	to set blocks of memory.
+ */
+#define HAS_MEMSET	/**/
+
+/* HAS_MKDIR:
+ *	This symbol, if defined, indicates that the mkdir routine is available
+ *	to create directories.  Otherwise you should fork off a new process to
+ *	exec /bin/mkdir.
+ */
+/*#define HAS_MKDIR		/ **/
+
+/* HAS_MKFIFO:
+ *	This symbol, if defined, indicates that the mkfifo routine is
+ *	available to create FIFOs. Otherwise, mknod should be able to
+ *	do it for you. However, if mkfifo is there, mknod might require
+ *	super-user privileges which mkfifo will not.
+ */
+/*#define HAS_MKFIFO		/ **/
+
+/* HAS_MKTIME:
+ *	This symbol, if defined, indicates that the mktime routine is
+ *	available.
+ */
+/*#define HAS_MKTIME		/ **/
+
+/* HAS_MSYNC:
+ *	This symbol, if defined, indicates that the msync system call is
+ *	available to synchronize a mapped file.
+ */
+/*#define HAS_MSYNC		/ **/
+
+/* HAS_MUNMAP:
+ *	This symbol, if defined, indicates that the munmap system call is
+ *	available to unmap a region, usually mapped by mmap().
+ */
+/*#define HAS_MUNMAP		/ **/
+
+/* HAS_NICE:
+ *	This symbol, if defined, indicates that the nice routine is
+ *	available.
+ */
+/*#define HAS_NICE		/ **/
+
+/* HAS_PATHCONF:
+ *	This symbol, if defined, indicates that pathconf() is available
+ *	to determine file-system related limits and options associated
+ *	with a given filename.
+ */
+/* HAS_FPATHCONF:
+ *	This symbol, if defined, indicates that pathconf() is available
+ *	to determine file-system related limits and options associated
+ *	with a given open file descriptor.
+ */
+/*#define HAS_PATHCONF		/ **/
+/*#define HAS_FPATHCONF		/ **/
+
+/* HAS_PAUSE:
+ *	This symbol, if defined, indicates that the pause routine is
+ *	available to suspend a process until a signal is received.
+ */
+/*#define HAS_PAUSE		/ **/
+
+/* HAS_PIPE:
+ *	This symbol, if defined, indicates that the pipe routine is
+ *	available to create an inter-process channel.
+ */
+/*#define HAS_PIPE		/ **/
+
+/* HAS_POLL:
+ *	This symbol, if defined, indicates that the poll routine is
+ *	available to poll active file descriptors.  Please check I_POLL and
+ *	I_SYS_POLL to know which header should be included as well.
+ */
+/*#define HAS_POLL		/ **/
+
+/* HAS_READDIR:
+ *	This symbol, if defined, indicates that the readdir routine is
+ *	available to read directory entries. You may have to include
+ *	<dirent.h>. See I_DIRENT.
+ */
+#define HAS_READDIR		/**/
+
+/* HAS_SEEKDIR:
+ *	This symbol, if defined, indicates that the seekdir routine is
+ *	available. You may have to include <dirent.h>. See I_DIRENT.
+ */
+/*#define HAS_SEEKDIR		/ **/
+
+/* HAS_TELLDIR:
+ *	This symbol, if defined, indicates that the telldir routine is
+ *	available. You may have to include <dirent.h>. See I_DIRENT.
+ */
+/*#define HAS_TELLDIR		/ **/
+
+/* HAS_REWINDDIR:
+ *	This symbol, if defined, indicates that the rewinddir routine is
+ *	available. You may have to include <dirent.h>. See I_DIRENT.
+ */
+/*#define HAS_REWINDDIR		/ **/
+
+/* HAS_READLINK:
+ *	This symbol, if defined, indicates that the readlink routine is
+ *	available to read the value of a symbolic link.
+ */
+/*#define HAS_READLINK		/ **/
+
+/* HAS_REGCOMP:
+ *	This symbol, if defined, indicates that the regcomp() routine is
+ *	available to do some regular patern matching (usually on POSIX.2
+ *	conforming systems).
+ */
+#define HAS_REGCOMP		/* POSIX.2 */
+
+/* HAS_RENAME:
+ *	This symbol, if defined, indicates that the rename routine is available
+ *	to rename files.  Otherwise you should do the unlink(), link(), unlink()
+ *	trick.
+ */
+#define HAS_RENAME	/**/
+
+/* HAS_RMDIR:
+ *	This symbol, if defined, indicates that the rmdir routine is
+ *	available to remove directories. Otherwise you should fork off a
+ *	new process to exec /bin/rmdir.
+ */
+/*#define HAS_RMDIR		/ **/
+
+/* HAS_SELECT:
+ *	This symbol, if defined, indicates that the select routine is
+ *	available to select active file descriptors. If the timeout field
+ *	is used, <sys/time.h> may need to be included.
+ */
+/*#define HAS_SELECT	/ **/
+
+/* HAS_SETEGID:
+ *	This symbol, if defined, indicates that the setegid routine is available
+ *	to change the effective gid of the current program.
+ */
+/*#define HAS_SETEGID		/ **/
+
+/* HAS_SETEUID:
+ *	This symbol, if defined, indicates that the seteuid routine is available
+ *	to change the effective uid of the current program.
+ */
+/*#define HAS_SETEUID		/ **/
+
+/* HAS_SETGROUPS:
+ *	This symbol, if defined, indicates that the setgroups() routine is
+ *	available to set the list of process groups.  If unavailable, multiple
+ *	groups are probably not supported.
+ */
+/*#define HAS_SETGROUPS		/ **/
+
+/* HAS_SETLINEBUF:
+ *	This symbol, if defined, indicates that the setlinebuf routine is
+ *	available to change stderr or stdout from block-buffered or unbuffered
+ *	to a line-buffered mode.
+ */
+/*#define HAS_SETLINEBUF		/ **/
+
+/* HAS_SETLOCALE:
+ *	This symbol, if defined, indicates that the setlocale routine is
+ *	available to handle locale-specific ctype implementations.
+ */
+/*#define HAS_SETLOCALE	/ **/
+
+/* HAS_SETPGID:
+ *	This symbol, if defined, indicates that the setpgid(pid, gpid)
+ *	routine is available to set process group ID.
+ */
+/*#define HAS_SETPGID	/ **/
+
+/* HAS_SETPGRP2:
+ *	This symbol, if defined, indicates that the setpgrp2() (as in DG/UX)
+ *	routine is available to set the current process group.
+ */
+/*#define HAS_SETPGRP2		/ **/
+
+/* HAS_SETPRIORITY:
+ *	This symbol, if defined, indicates that the setpriority routine is
+ *	available to set a process's priority.
+ */
+/*#define HAS_SETPRIORITY		/ **/
+
+/* HAS_SETREGID:
+ *	This symbol, if defined, indicates that the setregid routine is
+ *	available to change the real and effective gid of the current
+ *	process.
+ */
+/* HAS_SETRESGID:
+ *	This symbol, if defined, indicates that the setresgid routine is
+ *	available to change the real, effective and saved gid of the current
+ *	process.
+ */
+/*#define HAS_SETREGID		/ **/
+/*#define HAS_SETRESGID		/ **/
+
+/* HAS_SETREUID:
+ *	This symbol, if defined, indicates that the setreuid routine is
+ *	available to change the real and effective uid of the current
+ *	process.
+ */
+/* HAS_SETRESUID:
+ *	This symbol, if defined, indicates that the setresuid routine is
+ *	available to change the real, effective and saved uid of the current
+ *	process.
+ */
+/*#define HAS_SETREUID		/ **/
+/*#define HAS_SETRESUID		/ **/
+
+/* HAS_SETRGID:
+ *	This symbol, if defined, indicates that the setrgid routine is available
+ *	to change the real gid of the current program.
+ */
+/*#define HAS_SETRGID		/ **/
+
+/* HAS_SETRUID:
+ *	This symbol, if defined, indicates that the setruid routine is available
+ *	to change the real uid of the current program.
+ */
+/*#define HAS_SETRUID		/ **/
+
+/* HAS_SETSID:
+ *	This symbol, if defined, indicates that the setsid routine is
+ *	available to set the process group ID.
+ */
+/*#define HAS_SETSID	/ **/
+
+/* HAS_STAT:
+ *	This symbol, if defined, indicates that the stat routine is
+ *	available to get file status.
+ */
+#define HAS_STAT	/**/
+
+/* HAS_STRCHR:
+ *	This symbol is defined to indicate that the strchr()/strrchr()
+ *	functions are available for string searching. If not, try the
+ *	index()/rindex() pair.
+ */
+/* HAS_INDEX:
+ *	This symbol is defined to indicate that the index()/rindex()
+ *	functions are available for string searching.
+ */
+/*#define HAS_STRCHR	/ **/
+/*#define HAS_INDEX	/ **/
+
+/* HAS_STRCOLL:
+ *	This symbol, if defined, indicates that the strcoll routine is
+ *	available to compare strings using collating information.
+ */
+/*#define HAS_STRCOLL	/ **/
+
+/* HAS_STRTOD:
+ *	This symbol, if defined, indicates that the strtod routine is
+ *	available to provide better numeric string conversion than atof().
+ */
+/*#define HAS_STRTOD	/ **/
+
+/* HAS_STRTOL:
+ *	This symbol, if defined, indicates that the strtol routine is available
+ *	to provide better numeric string conversion than atoi() and friends.
+ */
+#define HAS_STRTOL	/**/
+
+/* HAS_STRXFRM:
+ *	This symbol, if defined, indicates that the strxfrm() routine is
+ *	available to transform strings.
+ */
+/*#define HAS_STRXFRM	/ **/
+
+/* HAS_SYMLINK:
+ *	This symbol, if defined, indicates that the symlink routine is available
+ *	to create symbolic links.
+ */
+/*#define HAS_SYMLINK	/ **/
+
+/* HAS_SYSCALL:
+ *	This symbol, if defined, indicates that the syscall routine is
+ *	available to call arbitrary system calls. If undefined, that's tough.
+ */
+/*#define HAS_SYSCALL	/ **/
+
+/* HAS_SYSCONF:
+ *	This symbol, if defined, indicates that sysconf() is available
+ *	to determine system related limits and options.
+ */
+/*#define HAS_SYSCONF	/ **/
+
+/* HAS_SYSTEM:
+ *	This symbol, if defined, indicates that the system routine is
+ *	available to issue a shell command.
+ */
+/*#define HAS_SYSTEM	/ **/
+
+/* HAS_TCGETPGRP:
+ *	This symbol, if defined, indicates that the tcgetpgrp routine is
+ *	available to get foreground process group ID.
+ */
+/*#define HAS_TCGETPGRP		/ **/
+
+/* HAS_TCSETPGRP:
+ *	This symbol, if defined, indicates that the tcsetpgrp routine is
+ *	available to set foreground process group ID.
+ */
+/*#define HAS_TCSETPGRP		/ **/
+
+/* HAS_TRUNCATE:
+ *	This symbol, if defined, indicates that the truncate routine is
+ *	available to truncate files.
+ */
+/*#define HAS_TRUNCATE	/ **/
+
+/* HAS_TZNAME:
+ *	This symbol, if defined, indicates that the tzname[] array is
+ *	available to access timezone names.
+ */
+/*#define HAS_TZNAME		/ **/
+
+/* HAS_UMASK:
+ *	This symbol, if defined, indicates that the umask routine is
+ *	available to set and get the value of the file creation mask.
+ */
+/*#define HAS_UMASK		/ **/
+
+/* HAS_USLEEP:
+ *	This symbol, if defined, indicates that the usleep routine is
+ *	available to let the process sleep on a sub-second accuracy.
+ */
+/*#define HAS_USLEEP		/ **/
+
+/* HAS_WAIT4:
+ *	This symbol, if defined, indicates that wait4() exists.
+ */
+/*#define HAS_WAIT4	/ **/
+
+/* HAS_WAITPID:
+ *	This symbol, if defined, indicates that the waitpid routine is
+ *	available to wait for child process.
+ */
+/*#define HAS_WAITPID	/ **/
+
+/* HAS_WCSTOMBS:
+ *	This symbol, if defined, indicates that the wcstombs routine is
+ *	available to convert wide character strings to multibyte strings.
+ */
+/*#define HAS_WCSTOMBS	/ **/
+
+/* HAS_WCTOMB:
+ *	This symbol, if defined, indicates that the wctomb routine is available
+ *	to convert a wide character to a multibyte.
+ */
+/*#define HAS_WCTOMB		/ **/
+
+/* Groups_t:
+ *	This symbol holds the type used for the second argument to
+ *	getgroups() and setgroups().  Usually, this is the same as
+ *	gidtype (gid_t) , but sometimes it isn't.
+ *	It can be int, ushort, gid_t, etc... 
+ *	It may be necessary to include <sys/types.h> to get any 
+ *	typedef'ed information.  This is only required if you have
+ *	getgroups() or setgroups()..
+ */
+#if defined(HAS_GETGROUPS) || defined(HAS_SETGROUPS)
+#define Groups_t int	/* Type for 2nd arg to [sg]etgroups() */
+#endif
+
+/* I_ARPA_INET:
+ *	This symbol, if defined, indicates to the C program that it should
+ *	include <arpa/inet.h> to get inet_addr and friends declarations.
+ */
+/*#define	I_ARPA_INET		/ **/
+
+/* I_DBM:
+ *	This symbol, if defined, indicates that <dbm.h> exists and should
+ *	be included.
+ */
+/* I_RPCSVC_DBM:
+ *	This symbol, if defined, indicates that <rpcsvc/dbm.h> exists and
+ *	should be included.
+ */
+/*#define I_DBM	/ **/
+/*#define I_RPCSVC_DBM	/ **/
+
+/* I_DLFCN:
+ *	This symbol, if defined, indicates that <dlfcn.h> exists and should
+ *	be included.
+ */
+/*#define I_DLFCN		/ **/
+
+/* I_FCNTL:
+ *	This manifest constant tells the C program to include <fcntl.h>.
+ */
+/*#define I_FCNTL	/ **/
+
+/* I_FLOAT:
+ *	This symbol, if defined, indicates to the C program that it should
+ *	include <float.h> to get definition of symbols like DBL_MAX or
+ *	DBL_MIN, i.e. machine dependent floating point values.
+ */
+/*#define I_FLOAT		/ **/
+
+/* I_GDBM:
+ *	This symbol, if defined, indicates that <gdbm.h> exists and should
+ *	be included.
+ */
+/*#define I_GDBM	/ **/
+
+/* I_LIMITS:
+ *	This symbol, if defined, indicates to the C program that it should
+ *	include <limits.h> to get definition of symbols like WORD_BIT or
+ *	LONG_MAX, i.e. machine dependant limitations.
+ */
+/*#define I_LIMITS		/ **/
+
+/* I_LOCALE:
+ *	This symbol, if defined, indicates to the C program that it should
+ *	include <locale.h>.
+ */
+/*#define	I_LOCALE		/ **/
+
+/* I_MATH:
+ *	This symbol, if defined, indicates to the C program that it should
+ *	include <math.h>.
+ */
+#define I_MATH		/**/
+
+/* I_MEMORY:
+ *	This symbol, if defined, indicates to the C program that it should
+ *	include <memory.h>.
+ */
+/*#define I_MEMORY		/ **/
+
+/* I_NETINET_IN:
+ *	This symbol, if defined, indicates to the C program that it should
+ *	include <netinet/in.h>. Otherwise, you may try <sys/in.h>.
+ */
+/*#define I_NETINET_IN	/ **/
+
+/* I_STDDEF:
+ *	This symbol, if defined, indicates that <stddef.h> exists and should
+ *	be included.
+ */
+#define I_STDDEF	/**/
+
+/* I_STDLIB:
+ *	This symbol, if defined, indicates that <stdlib.h> exists and should
+ *	be included.
+ */
+#define I_STDLIB		/**/
+
+/* I_STRING:
+ *	This symbol, if defined, indicates to the C program that it should
+ *	include <string.h> (USG systems) instead of <strings.h> (BSD systems).
+ */
+#define I_STRING		/**/
+
+/* I_SYS_DIR:
+ *	This symbol, if defined, indicates to the C program that it should
+ *	include <sys/dir.h>.
+ */
+/*#define I_SYS_DIR		/ **/
+
+/* I_SYS_FILE:
+ *	This symbol, if defined, indicates to the C program that it should
+ *	include <sys/file.h> to get definition of R_OK and friends.
+ */
+/*#define I_SYS_FILE		/ **/
+
+/* I_SYS_IOCTL:
+ *	This symbol, if defined, indicates that <sys/ioctl.h> exists and should
+ *	be included. Otherwise, include <sgtty.h> or <termio.h>.
+ */
+/* I_SYS_SOCKIO:
+ *	This symbol, if defined, indicates the <sys/sockio.h> should be included
+ *	to get socket ioctl options, like SIOCATMARK.
+ */
+/*#define	I_SYS_IOCTL		/ **/
+/*#define I_SYS_SOCKIO	/ **/
+
+/* I_SYS_NDIR:
+ *	This symbol, if defined, indicates to the C program that it should
+ *	include <sys/ndir.h>.
+ */
+/*#define I_SYS_NDIR	/ **/
+
+/* I_SYS_PARAM:
+ *	This symbol, if defined, indicates to the C program that it should
+ *	include <sys/param.h>.
+ */
+/*#define I_SYS_PARAM		/ **/
+
+/* I_SYS_POLL:
+ *	This symbol, if defined, indicates that the program may include
+ *	<sys/poll.h>.  When I_POLL is also defined, it's probably safest
+ *	to only include <poll.h>.
+ */
+/*#define I_SYS_POLL	/ **/
+
+/* I_SYS_RESOURCE:
+ *	This symbol, if defined, indicates to the C program that it should
+ *	include <sys/resource.h>.
+ */
+/*#define I_SYS_RESOURCE		/ **/
+
+/* I_SYS_SELECT:
+ *	This symbol, if defined, indicates to the C program that it should
+ *	include <sys/select.h> in order to get definition of struct timeval.
+ */
+/*#define I_SYS_SELECT	/ **/
+
+/* I_SYS_STAT:
+ *	This symbol, if defined, indicates to the C program that it should
+ *	include <sys/stat.h>.
+ */
+#define	I_SYS_STAT		/**/
+
+/* I_SYS_TIMES:
+ *	This symbol, if defined, indicates to the C program that it should
+ *	include <sys/times.h>.
+ */
+/*#define	I_SYS_TIMES		/ **/
+
+/* I_SYS_TYPES:
+ *	This symbol, if defined, indicates to the C program that it should
+ *	include <sys/types.h>.
+ */
+/*#define	I_SYS_TYPES		/ **/
+
+/* I_SYS_UN:
+ *	This symbol, if defined, indicates to the C program that it should
+ *	include <sys/un.h> to get UNIX domain socket definitions.
+ */
+/*#define I_SYS_UN		/ **/
+
+/* I_SYS_WAIT:
+ *	This symbol, if defined, indicates to the C program that it should
+ *	include <sys/wait.h>.
+ */
+/*#define I_SYS_WAIT	/ **/
+
+/* I_UNISTD:
+ *	This symbol, if defined, indicates to the C program that it should
+ *	include <unistd.h>.
+ */
+/*#define I_UNISTD		/ **/
+
+/* I_UTIME:
+ *	This symbol, if defined, indicates to the C program that it should
+ *	include <utime.h>.
+ */
+/*#define I_UTIME		/ **/
+
+/* I_VALUES:
+ *	This symbol, if defined, indicates to the C program that it should
+ *	include <values.h> to get definition of symbols like MINFLOAT or
+ *	MAXLONG, i.e. machine dependant limitations.  Probably, you
+ *	should use <limits.h> instead, if it is available.
+ */
+/*#define I_VALUES		/ **/
+
+/* I_VFORK:
+ *	This symbol, if defined, indicates to the C program that it should
+ *	include vfork.h.
+ */
+/*#define I_VFORK	/ **/
+
+/* STDCHAR:
+ *	This symbol is defined to be the type of char used in stdio.h.
+ *	It has the values "unsigned char" or "char".
+ */
+#define STDCHAR char	/**/
+
+/* CAN_VAPROTO:
+ *	This variable is defined on systems supporting prototype declaration
+ *	of functions with a variable number of arguments.
+ */
+/* _V:
+ *	This macro is used to declare function parameters in prototypes for
+ *	functions with a variable number of parameters. Use double parentheses.
+ *	For example:
+ *
+ *		int printf _V((char *fmt, ...));
+ *
+ *	Remember to use the plain simple _() macro when declaring a function
+ *	with no variable number of arguments, since it might be possible to
+ *	have a non-effect _V() macro and still get prototypes via _().
+ */
+/*#define CAN_VAPROTO	/ **/
+#ifdef CAN_VAPROTO
+#define	_V(args) args
+#else
+#define	_V(args) ()
+#endif
+
+/* INTSIZE:
+ *	This symbol contains the value of sizeof(int) so that the C
+ *	preprocessor can make decisions based on it.
+ */
+/* LONGSIZE:
+ *	This symbol contains the value of sizeof(long) so that the C
+ *	preprocessor can make decisions based on it.
+ */
+/* SHORTSIZE:
+ *	This symbol contains the value of sizeof(short) so that the C
+ *	preprocessor can make decisions based on it.
+ */
+#define INTSIZE 4		/**/
+#define LONGSIZE 4		/**/
+#define SHORTSIZE 2		/**/
+
+/* MULTIARCH:
+ *	This symbol, if defined, signifies that the build
+ *	process will produce some binary files that are going to be
+ *	used in a cross-platform environment.  This is the case for
+ *	example with the NeXT "fat" binaries that contain executables
+ *	for several CPUs.
+ */
+/*#define MULTIARCH		/ **/
+
+/* HAS_QUAD:
+ *	This symbol, if defined, tells that there's a 64-bit integer type,
+ *	Quad_t, and its unsigned counterpart, Uquad_t. QUADKIND will be one
+ *	of QUAD_IS_INT, QUAD_IS_LONG, QUAD_IS_LONG_LONG, QUAD_IS_INT64_T,
+ *	or QUAD_IS___INT64.
+ */
+/*#define HAS_QUAD	/ **/
+#ifdef HAS_QUAD
+#   define Quad_t int64_t	/**/
+#   define Uquad_t uint64_t	/**/
+#   define QUADKIND 4	/**/
+#   define QUAD_IS_INT	1
+#   define QUAD_IS_LONG	2
+#   define QUAD_IS_LONG_LONG	3
+#   define QUAD_IS_INT64_T	4
+#   define QUAD_IS___INT64	5
+#endif
+
+/* HAS_ACCESSX:
+ *	This symbol, if defined, indicates that the accessx routine is
+ *	available to do extended access checks.
+ */
+/*#define HAS_ACCESSX		/ **/
+
+/* HAS_EACCESS:
+ *	This symbol, if defined, indicates that the eaccess routine is
+ *	available to do extended access checks.
+ */
+/*#define HAS_EACCESS		/ **/
+
+/* I_SYS_ACCESS:
+ *     This symbol, if defined, indicates to the C program that it should
+ *     include <sys/access.h>.
+ */
+/*#define   I_SYS_ACCESS                / **/
+
+/* I_SYS_SECURITY:
+ *     This symbol, if defined, indicates to the C program that it should
+ *     include <sys/security.h>.
+ */
+/*#define   I_SYS_SECURITY	/ **/
+
+/* MEM_ALIGNBYTES:
+ *	This symbol contains the number of bytes required to align a
+ *	double, or a long double when applicable. Usual values are 2,
+ *	4 and 8. The default is eight, for safety.  For cross-compiling
+ *  	or multiarch support, Configure will set a minimum of 8.
+ */
+#define MEM_ALIGNBYTES 4
+
+/* BYTEORDER:
+ *	This symbol holds the hexadecimal constant defined in byteorder,
+ *	in a UV, i.e. 0x1234 or 0x4321 or 0x12345678, etc...
+ *	If the compiler supports cross-compiling or multiple-architecture
+ *	binaries, use compiler-defined macros to
+ *	determine the byte order.
+ */
+#if defined(MULTIARCH)
+#  ifdef __LITTLE_ENDIAN__
+#    if LONGSIZE == 4
+#      define BYTEORDER 0x1234
+#    else
+#      if LONGSIZE == 8
+#        define BYTEORDER 0x12345678
+#      endif
+#    endif
+#  else
+#    ifdef __BIG_ENDIAN__
+#      if LONGSIZE == 4
+#        define BYTEORDER 0x4321
+#      else
+#        if LONGSIZE == 8
+#          define BYTEORDER 0x87654321
+#        endif
+#      endif
+#    endif
+#  endif
+#else
+#define BYTEORDER 0x1234	/* large digits for MSB */
+#endif
+
+/* CHARBITS:
+ *	This symbol contains the size of a char, so that the C preprocessor
+ *	can make decisions based on it.
+ */
+#define CHARBITS 8		/**/
+
+/* CASTI32:
+ *	This symbol is defined if the C compiler can cast negative
+ *	or large floating point numbers to 32-bit ints.
+ */
+/*#define	CASTI32		/ **/
+
+/* CASTNEGFLOAT:
+ *	This symbol is defined if the C compiler can cast negative
+ *	numbers to unsigned longs, ints and shorts.
+ */
+/* CASTFLAGS:
+ *	This symbol contains flags that say what difficulties the compiler
+ *	has casting odd floating values to unsigned long:
+ *		0 = ok
+ *		1 = couldn't cast < 0
+ *		2 = couldn't cast >= 0x80000000
+ *		4 = couldn't cast in argument expression list
+ */
+/*#define	CASTNEGFLOAT		/ **/
+#define CASTFLAGS 0		/**/
+
+/* VOID_CLOSEDIR:
+ *	This symbol, if defined, indicates that the closedir() routine
+ *	does not return a value.
+ */
+/*#define VOID_CLOSEDIR		/ **/
+
+/* HAS_FD_SET:
+ *	This symbol, when defined, indicates presence of the fd_set typedef
+ *	in <sys/types.h>
+ */
+/*#define HAS_FD_SET	/ **/
+
+/* Gconvert:
+ *	This preprocessor macro is defined to convert a floating point
+ *	number to a string without a trailing decimal point.  This
+ *	emulates the behavior of sprintf("%g"), but is sometimes much more
+ *	efficient.  If gconvert() is not available, but gcvt() drops the
+ *	trailing decimal point, then gcvt() is used.  If all else fails,
+ *	a macro using sprintf("%g") is used. Arguments for the Gconvert
+ *	macro are: value, number of digits, whether trailing zeros should
+ *	be retained, and the output buffer.
+ *	The usual values are:
+ *		d_Gconvert='gconvert((x),(n),(t),(b))'
+ *		d_Gconvert='gcvt((x),(n),(b))'
+ *		d_Gconvert='sprintf((b),"%.*g",(n),(x))'
+ *	The last two assume trailing zeros should not be kept.
+ */
+#define Gconvert(x,n,t,b) sprintf((b),"%.*g",(n),(x))
+
+/* HAS_GETPAGESIZE:
+ *	This symbol, if defined, indicates that the getpagesize system call
+ *	is available to get system page size, which is the granularity of
+ *	many memory management calls.
+ */
+/*#define HAS_GETPAGESIZE		/ **/
+
+/* HAS_GNULIBC:
+ *	This symbol, if defined, indicates to the C program that
+ *	the GNU C library is being used.  A better check is to use
+ *	the __GLIBC__ and __GLIBC_MINOR__ symbols supplied with glibc.
+ */
+/*#define HAS_GNULIBC  	/ **/
+#if defined(HAS_GNULIBC) && !defined(_GNU_SOURCE)
+#   define _GNU_SOURCE
+#endif
+
+/* HAS_ISASCII:
+ *	This manifest constant lets the C program know that isascii
+ *	is available.
+ */
+/*#define HAS_ISASCII		/ **/
+
+/* HAS_LCHOWN:
+ *	This symbol, if defined, indicates that the lchown routine is
+ *	available to operate on a symbolic link (instead of following the
+ *	link).
+ */
+/*#define HAS_LCHOWN		/ **/
+
+/* HAS_OPEN3:
+ *	This manifest constant lets the C program know that the three
+ *	argument form of open(2) is available.
+ */
+/*#define HAS_OPEN3		/ **/
+
+/* HAS_SAFE_BCOPY:
+ *	This symbol, if defined, indicates that the bcopy routine is available
+ *	to copy potentially overlapping memory blocks. Normally, you should
+ *	probably use memmove() or memcpy(). If neither is defined, roll your
+ *	own version.
+ */
+/*#define HAS_SAFE_BCOPY	/ **/
+
+/* HAS_SAFE_MEMCPY:
+ *	This symbol, if defined, indicates that the memcpy routine is available
+ *	to copy potentially overlapping memory blocks.  If you need to
+ *	copy overlapping memory blocks, you should check HAS_MEMMOVE and
+ *	use memmove() instead, if available.
+ */
+/*#define HAS_SAFE_MEMCPY	/ **/
+
+/* HAS_SANE_MEMCMP:
+ *	This symbol, if defined, indicates that the memcmp routine is available
+ *	and can be used to compare relative magnitudes of chars with their high
+ *	bits set.  If it is not defined, roll your own version.
+ */
+/*#define HAS_SANE_MEMCMP	/ **/
+
+/* HAS_SIGACTION:
+ *	This symbol, if defined, indicates that Vr4's sigaction() routine
+ *	is available.
+ */
+/*#define HAS_SIGACTION	/ **/
+
+/* HAS_SIGINFO_SI_ERRNO:
+ *	This symbol, if defined, indicates that siginfo_t has the
+ *	si_errno member
+ */
+/* HAS_SIGINFO_SI_PID:
+ *	This symbol, if defined, indicates that siginfo_t has the
+ *	si_pid member
+ */
+/* HAS_SIGINFO_SI_UID:
+ *	This symbol, if defined, indicates that siginfo_t has the
+ *	si_uid member
+ */
+/* HAS_SIGINFO_SI_ADDR:
+ *	This symbol, if defined, indicates that siginfo_t has the
+ *	si_addr member
+ */
+/* HAS_SIGINFO_SI_STATUS:
+ *	This symbol, if defined, indicates that siginfo_t has the
+ *	si_status member
+ */
+/* HAS_SIGINFO_SI_BAND:
+ *	This symbol, if defined, indicates that siginfo_t has the
+ *	si_band member
+ */
+/* HAS_SIGINFO_SI_VALUE:
+ *	This symbol, if defined, indicates that siginfo_t has the
+ *	si_value member
+ */
+/*#define	HAS_SIGINFO_SI_ERRNO	/ **/
+/*#define	HAS_SIGINFO_SI_PID	/ **/
+/*#define	HAS_SIGINFO_SI_UID	/ **/
+/*#define	HAS_SIGINFO_SI_ADDR	/ **/
+/*#define	HAS_SIGINFO_SI_STATUS	/ **/
+/*#define	HAS_SIGINFO_SI_BAND	/ **/
+/*#define	HAS_SIGINFO_SI_VALUE	/ **/
+
+/* HAS_SIGSETJMP:
+ *	This variable indicates to the C program that the sigsetjmp()
+ *	routine is available to save the calling process's registers
+ *	and stack environment for later use by siglongjmp(), and
+ *	to optionally save the process's signal mask.  See
+ *	Sigjmp_buf, Sigsetjmp, and Siglongjmp.
+ */
+/* Sigjmp_buf:
+ *	This is the buffer type to be used with Sigsetjmp and Siglongjmp.
+ */
+/* Sigsetjmp:
+ *	This macro is used in the same way as sigsetjmp(), but will invoke
+ *	traditional setjmp() if sigsetjmp isn't available.
+ *	See HAS_SIGSETJMP.
+ */
+/* Siglongjmp:
+ *	This macro is used in the same way as siglongjmp(), but will invoke
+ *	traditional longjmp() if siglongjmp isn't available.
+ *	See HAS_SIGSETJMP.
+ */
+/*#define HAS_SIGSETJMP	/ **/
+#ifdef HAS_SIGSETJMP
+#define Sigjmp_buf sigjmp_buf
+#define Sigsetjmp(buf,save_mask) sigsetjmp((buf),(save_mask))
+#define Siglongjmp(buf,retval) siglongjmp((buf),(retval))
+#else
+#define Sigjmp_buf jmp_buf
+#define Sigsetjmp(buf,save_mask) setjmp((buf))
+#define Siglongjmp(buf,retval) longjmp((buf),(retval))
+#endif
+
+/* HAS_STATIC_INLINE:
+ *	This symbol, if defined, indicates that the C compiler supports
+ *	C99-style static inline.  That is, the function can't be called
+ *	from another translation unit.
+ */
+/* PERL_STATIC_INLINE:
+ *	This symbol gives the best-guess incantation to use for static
+ *	inline functions.  If HAS_STATIC_INLINE is defined, this will
+ *	give C99-style inline.  If HAS_STATIC_INLINE is not defined,
+ *	this will give a plain 'static'.  It will always be defined
+ *	to something that gives static linkage.
+ *	Possibilities include
+ *		static inline       (c99)
+ *		static __inline__   (gcc -ansi)
+ *		static __inline     (MSVC)
+ *		static _inline      (older MSVC)
+ *		static              (c89 compilers)
+ */
+/*#define HAS_STATIC_INLINE				/ **/
+#define PERL_STATIC_INLINE static	/**/
+
+/* USE_STDIO_PTR:
+ *	This symbol is defined if the _ptr and _cnt fields (or similar)
+ *	of the stdio FILE structure can be used to access the stdio buffer
+ *	for a file handle.  If this is defined, then the FILE_ptr(fp)
+ *	and FILE_cnt(fp) macros will also be defined and should be used
+ *	to access these fields.
+ */
+/* FILE_ptr:
+ *	This macro is used to access the _ptr field (or equivalent) of the
+ *	FILE structure pointed to by its argument. This macro will always be
+ *	defined if USE_STDIO_PTR is defined.
+ */
+/* STDIO_PTR_LVALUE:
+ *	This symbol is defined if the FILE_ptr macro can be used as an
+ *	lvalue.
+ */
+/* FILE_cnt:
+ *	This macro is used to access the _cnt field (or equivalent) of the
+ *	FILE structure pointed to by its argument. This macro will always be
+ *	defined if USE_STDIO_PTR is defined.
+ */
+/* STDIO_CNT_LVALUE:
+ *	This symbol is defined if the FILE_cnt macro can be used as an
+ *	lvalue.
+ */
+/* STDIO_PTR_LVAL_SETS_CNT:
+ *	This symbol is defined if using the FILE_ptr macro as an lvalue
+ *	to increase the pointer by n has the side effect of decreasing the
+ *	value of File_cnt(fp) by n.
+ */
+/* STDIO_PTR_LVAL_NOCHANGE_CNT:
+ *	This symbol is defined if using the FILE_ptr macro as an lvalue
+ *	to increase the pointer by n leaves File_cnt(fp) unchanged.
+ */
+/*#define USE_STDIO_PTR 	/ **/
+#ifdef USE_STDIO_PTR
+#define FILE_ptr(fp)	((fp)->_IO_read_ptr)
+/*#define STDIO_PTR_LVALUE 		/ **/
+#define FILE_cnt(fp)	((fp)->_IO_read_end - (fp)->_IO_read_ptr)
+/*#define STDIO_CNT_LVALUE 		/ **/
+/*#define STDIO_PTR_LVAL_SETS_CNT	/ **/
+/*#define STDIO_PTR_LVAL_NOCHANGE_CNT	/ **/
+#endif
+
+/* USE_STDIO_BASE:
+ *	This symbol is defined if the _base field (or similar) of the
+ *	stdio FILE structure can be used to access the stdio buffer for
+ *	a file handle.  If this is defined, then the FILE_base(fp) macro
+ *	will also be defined and should be used to access this field.
+ *	Also, the FILE_bufsiz(fp) macro will be defined and should be used
+ *	to determine the number of bytes in the buffer.  USE_STDIO_BASE
+ *	will never be defined unless USE_STDIO_PTR is.
+ */
+/* FILE_base:
+ *	This macro is used to access the _base field (or equivalent) of the
+ *	FILE structure pointed to by its argument. This macro will always be
+ *	defined if USE_STDIO_BASE is defined.
+ */
+/* FILE_bufsiz:
+ *	This macro is used to determine the number of bytes in the I/O
+ *	buffer pointed to by _base field (or equivalent) of the FILE
+ *	structure pointed to its argument. This macro will always be defined
+ *	if USE_STDIO_BASE is defined.
+ */
+/*#define USE_STDIO_BASE 	/ **/
+#ifdef USE_STDIO_BASE
+#define FILE_base(fp)	((fp)->_IO_read_base)
+#define FILE_bufsiz(fp)	((fp)->_IO_read_end - (fp)->_IO_read_base)
+#endif
+
+/* HAS_VPRINTF:
+ *	This symbol, if defined, indicates that the vprintf routine is available
+ *	to printf with a pointer to an argument list.  If unavailable, you
+ *	may need to write your own, probably in terms of _doprnt().
+ */
+/* USE_CHAR_VSPRINTF:
+ *	This symbol is defined if this system has vsprintf() returning type
+ *	(char*).  The trend seems to be to declare it as "int vsprintf()".  It
+ *	is up to the package author to declare vsprintf correctly based on the
+ *	symbol.
+ */
+#define HAS_VPRINTF	/**/
+/*#define USE_CHAR_VSPRINTF 	/ **/
+
+/* DOUBLESIZE:
+ *	This symbol contains the size of a double, so that the C preprocessor
+ *	can make decisions based on it.
+ */
+#define DOUBLESIZE 8		/**/
+
+/* I_TIME:
+ *	This symbol, if defined, indicates to the C program that it should
+ *	include <time.h>.
+ */
+/* I_SYS_TIME:
+ *	This symbol, if defined, indicates to the C program that it should
+ *	include <sys/time.h>.
+ */
+/* I_SYS_TIME_KERNEL:
+ *	This symbol, if defined, indicates to the C program that it should
+ *	include <sys/time.h> with KERNEL defined.
+ */
+/* HAS_TM_TM_ZONE:
+ *	This symbol, if defined, indicates to the C program that
+ *	the struct tm has a tm_zone field.
+ */
+/* HAS_TM_TM_GMTOFF:
+ *	This symbol, if defined, indicates to the C program that
+ *	the struct tm has a tm_gmtoff field.
+ */
+#define I_TIME		/**/
+/*#define I_SYS_TIME		/ **/
+/*#define I_SYS_TIME_KERNEL		/ **/
+/*#define HAS_TM_TM_ZONE		/ **/
+/*#define HAS_TM_TM_GMTOFF		/ **/
+
+/* VAL_O_NONBLOCK:
+ *	This symbol is to be used during open() or fcntl(F_SETFL) to turn on
+ *	non-blocking I/O for the file descriptor. Note that there is no way
+ *	back, i.e. you cannot turn it blocking again this way. If you wish to
+ *	alternatively switch between blocking and non-blocking, use the
+ *	ioctl(FIOSNBIO) call instead, but that is not supported by all devices.
+ */
+/* VAL_EAGAIN:
+ *	This symbol holds the errno error code set by read() when no data was
+ *	present on the non-blocking file descriptor.
+ */
+/* RD_NODATA:
+ *	This symbol holds the return code from read() when no data is present
+ *	on the non-blocking file descriptor. Be careful! If EOF_NONBLOCK is
+ *	not defined, then you can't distinguish between no data and EOF by
+ *	issuing a read(). You'll have to find another way to tell for sure!
+ */
+/* EOF_NONBLOCK:
+ *	This symbol, if defined, indicates to the C program that a read() on
+ *	a non-blocking file descriptor will return 0 on EOF, and not the value
+ *	held in RD_NODATA (-1 usually, in that case!).
+ */
+#define VAL_O_NONBLOCK O_NONBLOCK
+#define VAL_EAGAIN EAGAIN
+#define RD_NODATA -1
+#undef EOF_NONBLOCK
+
+/* PTRSIZE:
+ *	This symbol contains the size of a pointer, so that the C preprocessor
+ *	can make decisions based on it.  It will be sizeof(void *) if
+ *	the compiler supports (void *); otherwise it will be
+ *	sizeof(char *).
+ */
+#define PTRSIZE 4		/**/
+
+/* Drand01:
+ *	This macro is to be used to generate uniformly distributed
+ *	random numbers over the range [0., 1.[.  You may have to supply
+ *	an 'extern double drand48();' in your program since SunOS 4.1.3
+ *	doesn't provide you with anything relevant in its headers.
+ *	See HAS_DRAND48_PROTO.
+ */
+/* Rand_seed_t:
+ *	This symbol defines the type of the argument of the
+ *	random seed function.
+ */
+/* seedDrand01:
+ *	This symbol defines the macro to be used in seeding the
+ *	random number generator (see Drand01).
+ */
+/* RANDBITS:
+ *	This symbol indicates how many bits are produced by the
+ *	function used to generate normalized random numbers.
+ *	Values include 15, 16, 31, and 48.
+ */
+#define Drand01()		Perl_drand48()		/**/
+#define Rand_seed_t		U32		/**/
+#define seedDrand01(x)	Perl_drand48_init((Rand_seed_t)x)	/**/
+#define RANDBITS		48		/**/
+
+/* SSize_t:
+ *	This symbol holds the type used by functions that return
+ *	a count of bytes or an error condition.  It must be a signed type.
+ *	It is usually ssize_t, but may be long or int, etc.
+ *	It may be necessary to include <sys/types.h> or <unistd.h>
+ *	to get any typedef'ed information.
+ *	We will pick a type such that sizeof(SSize_t) == sizeof(Size_t).
+ */
+#define SSize_t int	 /* signed count of bytes */
+
+/* EBCDIC:
+ *	This symbol, if defined, indicates that this system uses
+ *	EBCDIC encoding.
+ */
+/*#define	EBCDIC 		/ **/
+
+/* ARCHLIB:
+ *	This variable, if defined, holds the name of the directory in
+ *	which the user wants to put architecture-dependent public
+ *	library files for perl5.  It is most often a local directory
+ *	such as /usr/local/lib.  Programs using this variable must be
+ *	prepared to deal with filename expansion.  If ARCHLIB is the
+ *	same as PRIVLIB, it is not defined, since presumably the
+ *	program already searches PRIVLIB.
+ */
+/* ARCHLIB_EXP:
+ *	This symbol contains the ~name expanded version of ARCHLIB, to be used
+ *	in programs that are not prepared to deal with ~ expansion at run-time.
+ */
+/*#define ARCHLIB "/usr/local/lib/perl5/5.24/unknown"		/ **/
+/*#define ARCHLIB_EXP "/usr/local/lib/perl5/5.24/unknown"		/ **/
+
+/* BIN:
+ *	This symbol holds the path of the bin directory where the package will
+ *	be installed. Program must be prepared to deal with ~name substitution.
+ */
+/* BIN_EXP:
+ *	This symbol is the filename expanded version of the BIN symbol, for
+ *	programs that do not want to deal with that at run-time.
+ */
+/* PERL_RELOCATABLE_INC:
+ *	This symbol, if defined, indicates that we'd like to relocate entries
+ *	in @INC at run time based on the location of the perl binary.
+ */
+#define BIN "/usr/local/bin"	/**/
+#define BIN_EXP "/usr/local/bin"	/**/
+#define PERL_RELOCATABLE_INC "undef" 		/**/
+
+/* PERL_INC_VERSION_LIST:
+ *	This variable specifies the list of subdirectories in over
+ *	which perl.c:incpush() and lib/lib.pm will automatically
+ *	search when adding directories to @INC, in a format suitable
+ *	for a C initialization string.  See the inc_version_list entry
+ *	in Porting/Glossary for more details.
+ */
+/*#define PERL_INC_VERSION_LIST NULL		/ **/
+
+/* INSTALL_USR_BIN_PERL:
+ *	This symbol, if defined, indicates that Perl is to be installed
+ * 	also as /usr/bin/perl.
+ */
+/*#define INSTALL_USR_BIN_PERL	/ **/
+
+/* PERL_OTHERLIBDIRS:
+ *	This variable contains a colon-separated set of paths for the perl
+ *	binary to search for additional library files or modules.
+ *	These directories will be tacked to the end of @INC.
+ *	Perl will automatically search below each path for version-
+ *	and architecture-specific directories.  See PERL_INC_VERSION_LIST
+ *	for more details.
+ */
+/*#define PERL_OTHERLIBDIRS " "		/ **/
+
+/* PRIVLIB:
+ *	This symbol contains the name of the private library for this package.
+ *	The library is private in the sense that it needn't be in anyone's
+ *	execution path, but it should be accessible by the world.  The program
+ *	should be prepared to do ~ expansion.
+ */
+/* PRIVLIB_EXP:
+ *	This symbol contains the ~name expanded version of PRIVLIB, to be used
+ *	in programs that are not prepared to deal with ~ expansion at run-time.
+ */
+#define PRIVLIB "/usr/local/lib/perl5/5.24"		/**/
+#define PRIVLIB_EXP "/usr/local/lib/perl5/5.24"		/**/
+
+/* SITEARCH:
+ *	This symbol contains the name of the private library for this package.
+ *	The library is private in the sense that it needn't be in anyone's
+ *	execution path, but it should be accessible by the world.  The program
+ *	should be prepared to do ~ expansion.
+ *	The standard distribution will put nothing in this directory.
+ *	After perl has been installed, users may install their own local
+ *	architecture-dependent modules in this directory with
+ *		MakeMaker Makefile.PL
+ *	or equivalent.  See INSTALL for details.
+ */
+/* SITEARCH_EXP:
+ *	This symbol contains the ~name expanded version of SITEARCH, to be used
+ *	in programs that are not prepared to deal with ~ expansion at run-time.
+ */
+/*#define SITEARCH "/usr/local/lib/perl5/5.24/unknown"		/ **/
+/*#define SITEARCH_EXP "/usr/local/lib/perl5/5.24/unknown"		/ **/
+
+/* SITELIB:
+ *	This symbol contains the name of the private library for this package.
+ *	The library is private in the sense that it needn't be in anyone's
+ *	execution path, but it should be accessible by the world.  The program
+ *	should be prepared to do ~ expansion.
+ *	The standard distribution will put nothing in this directory.
+ *	After perl has been installed, users may install their own local
+ *	architecture-independent modules in this directory with
+ *		MakeMaker Makefile.PL
+ *	or equivalent.  See INSTALL for details.
+ */
+/* SITELIB_EXP:
+ *	This symbol contains the ~name expanded version of SITELIB, to be used
+ *	in programs that are not prepared to deal with ~ expansion at run-time.
+ */
+/* SITELIB_STEM:
+ *	This define is SITELIB_EXP with any trailing version-specific component
+ *	removed.  The elements in inc_version_list (inc_version_list.U) can
+ *	be tacked onto this variable to generate a list of directories to search.
+ */
+#define SITELIB "/usr/local/lib/perl5/5.24"		/**/
+#define SITELIB_EXP "/usr/local/lib/perl5/5.24"		/**/
+#define SITELIB_STEM "/usr/local/lib/perl5"		/**/
+
+/* PERL_VENDORARCH:
+ *	If defined, this symbol contains the name of a private library.
+ *	The library is private in the sense that it needn't be in anyone's
+ *	execution path, but it should be accessible by the world.
+ *	It may have a ~ on the front.
+ *	The standard distribution will put nothing in this directory.
+ *	Vendors who distribute perl may wish to place their own
+ *	architecture-dependent modules and extensions in this directory with
+ *		MakeMaker Makefile.PL INSTALLDIRS=vendor
+ *	or equivalent.  See INSTALL for details.
+ */
+/* PERL_VENDORARCH_EXP:
+ *	This symbol contains the ~name expanded version of PERL_VENDORARCH, to be used
+ *	in programs that are not prepared to deal with ~ expansion at run-time.
+ */
+/*#define PERL_VENDORARCH ""		/ **/
+/*#define PERL_VENDORARCH_EXP ""		/ **/
+
+/* PERL_VENDORLIB_EXP:
+ *	This symbol contains the ~name expanded version of VENDORLIB, to be used
+ *	in programs that are not prepared to deal with ~ expansion at run-time.
+ */
+/* PERL_VENDORLIB_STEM:
+ *	This define is PERL_VENDORLIB_EXP with any trailing version-specific component
+ *	removed.  The elements in inc_version_list (inc_version_list.U) can
+ *	be tacked onto this variable to generate a list of directories to search.
+ */
+/*#define PERL_VENDORLIB_EXP ""		/ **/
+/*#define PERL_VENDORLIB_STEM ""		/ **/
+
+/* OSNAME:
+ *	This symbol contains the name of the operating system, as determined
+ *	by Configure.  You shouldn't rely on it too much; the specific
+ *	feature tests from Configure are generally more reliable.
+ */
+/* OSVERS:
+ *	This symbol contains the version of the operating system, as determined
+ *	by Configure.  You shouldn't rely on it too much; the specific
+ *	feature tests from Configure are generally more reliable.
+ */
+#define OSNAME "unknown"		/**/
+#define OSVERS "unknown"		/**/
+
+/* CAT2:
+ *	This macro concatenates 2 tokens together.
+ */
+/* STRINGIFY:
+ *	This macro surrounds its token with double quotes.
+ */
+#if 42 == 1
+#define CAT2(a,b)	a/**/b
+#define STRINGIFY(a)	"a"
+#endif
+#if 42 == 42
+#define PeRl_CaTiFy(a, b)	a ## b
+#define PeRl_StGiFy(a)	#a
+#define CAT2(a,b)	PeRl_CaTiFy(a,b)
+#define StGiFy(a)	PeRl_StGiFy(a)
+#define STRINGIFY(a)	PeRl_StGiFy(a)
+#endif
+#if 42 != 1 && 42 != 42
+#include "Bletch: How does this C preprocessor concatenate tokens?"
+#endif
+
+/* CPPSTDIN:
+ *	This symbol contains the first part of the string which will invoke
+ *	the C preprocessor on the standard input and produce to standard
+ *	output.	 Typical value of "cc -E" or "/lib/cpp", but it can also
+ *	call a wrapper. See CPPRUN.
+ */
+/* CPPMINUS:
+ *	This symbol contains the second part of the string which will invoke
+ *	the C preprocessor on the standard input and produce to standard
+ *	output.  This symbol will have the value "-" if CPPSTDIN needs a minus
+ *	to specify standard input, otherwise the value is "".
+ */
+/* CPPRUN:
+ *	This symbol contains the string which will invoke a C preprocessor on
+ *	the standard input and produce to standard output. It needs to end
+ *	with CPPLAST, after all other preprocessor flags have been specified.
+ *	The main difference with CPPSTDIN is that this program will never be a
+ *	pointer to a shell wrapper, i.e. it will be empty if no preprocessor is
+ *	available directly to the user. Note that it may well be different from
+ *	the preprocessor used to compile the C program.
+ */
+/* CPPLAST:
+ *	This symbol is intended to be used along with CPPRUN in the same manner
+ *	symbol CPPMINUS is used with CPPSTDIN. It contains either "-" or "".
+ */
+#define CPPSTDIN "cc -E"
+#define CPPMINUS "-"
+#define CPPRUN "cc -E"
+#define CPPLAST "-"
+
+/* HAS_ACCESS:
+ *	This manifest constant lets the C program know that the access()
+ *	system call is available to check for accessibility using real UID/GID.
+ *	(always present on UNIX.)
+ */
+/*#define HAS_ACCESS		/ **/
+
+/* HASATTRIBUTE_FORMAT:
+ *	Can we handle GCC attribute for checking printf-style formats
+ */
+/* PRINTF_FORMAT_NULL_OK:
+ *	Allows __printf__ format to be null when checking printf-style
+ */
+/* HASATTRIBUTE_MALLOC:
+ *	Can we handle GCC attribute for malloc-style functions.
+ */
+/* HASATTRIBUTE_NONNULL:
+ *	Can we handle GCC attribute for nonnull function parms.
+ */
+/* HASATTRIBUTE_NORETURN:
+ *	Can we handle GCC attribute for functions that do not return
+ */
+/* HASATTRIBUTE_PURE:
+ *	Can we handle GCC attribute for pure functions
+ */
+/* HASATTRIBUTE_UNUSED:
+ *	Can we handle GCC attribute for unused variables and arguments
+ */
+/* HASATTRIBUTE_DEPRECATED:
+ *	Can we handle GCC attribute for marking deprecated APIs
+ */
+/* HASATTRIBUTE_WARN_UNUSED_RESULT:
+ *	Can we handle GCC attribute for warning on unused results
+ */
+/*#define HASATTRIBUTE_DEPRECATED	/ **/
+/*#define HASATTRIBUTE_FORMAT	/ **/
+/*#define PRINTF_FORMAT_NULL_OK	/ **/
+/*#define HASATTRIBUTE_NORETURN	/ **/
+/*#define HASATTRIBUTE_MALLOC	/ **/
+/*#define HASATTRIBUTE_NONNULL	/ **/
+/*#define HASATTRIBUTE_PURE	/ **/
+/*#define HASATTRIBUTE_UNUSED	/ **/
+/*#define HASATTRIBUTE_WARN_UNUSED_RESULT	/ **/
+
+/* HAS_BACKTRACE:
+ *	This symbol, if defined, indicates that the backtrace() routine is
+ *	available to get a stack trace.  The <execinfo.h> header must be
+ *	included to use this routine.
+ */
+/*#define HAS_BACKTRACE	/ **/
+
+/* HASCONST:
+ *	This symbol, if defined, indicates that this C compiler knows about
+ *	the const type. There is no need to actually test for that symbol
+ *	within your programs. The mere use of the "const" keyword will
+ *	trigger the necessary tests.
+ */
+/*#define HASCONST	/ **/
+#ifndef HASCONST
+#define const
+#endif
+
+/* HAS_CSH:
+ *	This symbol, if defined, indicates that the C-shell exists.
+ */
+/* CSH:
+ *	This symbol, if defined, contains the full pathname of csh.
+ */
+/*#define HAS_CSH		/ **/
+#ifdef HAS_CSH
+#define CSH ""	/**/
+#endif
+
+/* HAS_DLADDR:
+ *	This symbol, if defined, indicates that the dladdr() routine is
+ *	available to query dynamic linker information for an address.
+ *	The <dlfcn.h> header must be included to use this routine.
+ */
+/*#define HAS_DLADDR	/ **/
+
+/* SETUID_SCRIPTS_ARE_SECURE_NOW:
+ *	This symbol, if defined, indicates that the bug that prevents
+ *	setuid scripts from being secure is not present in this kernel.
+ */
+/* DOSUID:
+ *	This symbol, if defined, indicates that the C program should
+ *	check the script that it is executing for setuid/setgid bits, and
+ *	attempt to emulate setuid/setgid on systems that have disabled
+ *	setuid #! scripts because the kernel can't do it securely.
+ *	It is up to the package designer to make sure that this emulation
+ *	is done securely.  Among other things, it should do an fstat on
+ *	the script it just opened to make sure it really is a setuid/setgid
+ *	script, it should make sure the arguments passed correspond exactly
+ *	to the argument on the #! line, and it should not trust any
+ *	subprocesses to which it must pass the filename rather than the
+ *	file descriptor of the script to be executed.
+ */
+/*#define SETUID_SCRIPTS_ARE_SECURE_NOW	/ **/
+/*#define DOSUID		/ **/
+
+/* HAS_ENDGRENT:
+ *	This symbol, if defined, indicates that the getgrent routine is
+ *	available for finalizing sequential access of the group database.
+ */
+/*#define HAS_ENDGRENT		/ **/
+
+/* HAS_ENDHOSTENT:
+ *	This symbol, if defined, indicates that the endhostent() routine is
+ *	available to close whatever was being used for host queries.
+ */
+/*#define HAS_ENDHOSTENT		/ **/
+
+/* HAS_ENDNETENT:
+ *	This symbol, if defined, indicates that the endnetent() routine is
+ *	available to close whatever was being used for network queries.
+ */
+/*#define HAS_ENDNETENT		/ **/
+
+/* HAS_ENDPROTOENT:
+ *	This symbol, if defined, indicates that the endprotoent() routine is
+ *	available to close whatever was being used for protocol queries.
+ */
+/*#define HAS_ENDPROTOENT		/ **/
+
+/* HAS_ENDPWENT:
+ *	This symbol, if defined, indicates that the getgrent routine is
+ *	available for finalizing sequential access of the passwd database.
+ */
+/*#define HAS_ENDPWENT		/ **/
+
+/* HAS_ENDSERVENT:
+ *	This symbol, if defined, indicates that the endservent() routine is
+ *	available to close whatever was being used for service queries.
+ */
+/*#define HAS_ENDSERVENT		/ **/
+
+/* FLEXFILENAMES:
+ *	This symbol, if defined, indicates that the system supports filenames
+ *	longer than 14 characters.
+ */
+/*#define	FLEXFILENAMES		/ **/
+
+/* HAS_GETGRENT:
+ *	This symbol, if defined, indicates that the getgrent routine is
+ *	available for sequential access of the group database.
+ */
+/*#define HAS_GETGRENT		/ **/
+
+/* HAS_GETHOSTBYADDR:
+ *	This symbol, if defined, indicates that the gethostbyaddr() routine is
+ *	available to look up hosts by their IP addresses.
+ */
+/*#define HAS_GETHOSTBYADDR		/ **/
+
+/* HAS_GETHOSTBYNAME:
+ *	This symbol, if defined, indicates that the gethostbyname() routine is
+ *	available to look up host names in some data base or other.
+ */
+/*#define HAS_GETHOSTBYNAME		/ **/
+
+/* HAS_GETHOSTENT:
+ *	This symbol, if defined, indicates that the gethostent() routine is
+ *	available to look up host names in some data base or another.
+ */
+/*#define HAS_GETHOSTENT		/ **/
+
+/* HAS_GETHOSTNAME:
+ *	This symbol, if defined, indicates that the C program may use the
+ *	gethostname() routine to derive the host name.  See also HAS_UNAME
+ *	and PHOSTNAME.
+ */
+/* HAS_UNAME:
+ *	This symbol, if defined, indicates that the C program may use the
+ *	uname() routine to derive the host name.  See also HAS_GETHOSTNAME
+ *	and PHOSTNAME.
+ */
+/* PHOSTNAME:
+ *	This symbol, if defined, indicates the command to feed to the
+ *	popen() routine to derive the host name.  See also HAS_GETHOSTNAME
+ *	and HAS_UNAME.	Note that the command uses a fully qualified path,
+ *	so that it is safe even if used by a process with super-user
+ *	privileges.
+ */
+/* HAS_PHOSTNAME:
+ *	This symbol, if defined, indicates that the C program may use the
+ *	contents of PHOSTNAME as a command to feed to the popen() routine
+ *	to derive the host name.
+ */
+/*#define HAS_GETHOSTNAME	/ **/
+/*#define HAS_UNAME		/ **/
+/*#define HAS_PHOSTNAME	/ **/
+#ifdef HAS_PHOSTNAME
+#define PHOSTNAME "/bin/hostname"	/* How to get the host name */
+#endif
+
+/* HAS_GETNETBYADDR:
+ *	This symbol, if defined, indicates that the getnetbyaddr() routine is
+ *	available to look up networks by their IP addresses.
+ */
+/*#define HAS_GETNETBYADDR		/ **/
+
+/* HAS_GETNETBYNAME:
+ *	This symbol, if defined, indicates that the getnetbyname() routine is
+ *	available to look up networks by their names.
+ */
+/*#define HAS_GETNETBYNAME		/ **/
+
+/* HAS_GETNETENT:
+ *	This symbol, if defined, indicates that the getnetent() routine is
+ *	available to look up network names in some data base or another.
+ */
+/*#define HAS_GETNETENT		/ **/
+
+/* HAS_GETPROTOENT:
+ *	This symbol, if defined, indicates that the getprotoent() routine is
+ *	available to look up protocols in some data base or another.
+ */
+/*#define HAS_GETPROTOENT		/ **/
+
+/* HAS_GETPGRP:
+ *	This symbol, if defined, indicates that the getpgrp routine is
+ *	available to get the current process group.
+ */
+/* USE_BSD_GETPGRP:
+ *	This symbol, if defined, indicates that getpgrp needs one
+ *	arguments whereas USG one needs none.
+ */
+/*#define HAS_GETPGRP		/ **/
+/*#define USE_BSD_GETPGRP	/ **/
+
+/* HAS_GETPROTOBYNAME:
+ *	This symbol, if defined, indicates that the getprotobyname()
+ *	routine is available to look up protocols by their name.
+ */
+/* HAS_GETPROTOBYNUMBER:
+ *	This symbol, if defined, indicates that the getprotobynumber()
+ *	routine is available to look up protocols by their number.
+ */
+/*#define HAS_GETPROTOBYNAME		/ **/
+/*#define HAS_GETPROTOBYNUMBER		/ **/
+
+/* HAS_GETPWENT:
+ *	This symbol, if defined, indicates that the getpwent routine is
+ *	available for sequential access of the passwd database.
+ *	If this is not available, the older getpw() function may be available.
+ */
+/*#define HAS_GETPWENT		/ **/
+
+/* HAS_GETSERVENT:
+ *	This symbol, if defined, indicates that the getservent() routine is
+ *	available to look up network services in some data base or another.
+ */
+/*#define HAS_GETSERVENT		/ **/
+
+/* HAS_GETSERVBYNAME:
+ *	This symbol, if defined, indicates that the getservbyname()
+ *	routine is available to look up services by their name.
+ */
+/* HAS_GETSERVBYPORT:
+ *	This symbol, if defined, indicates that the getservbyport()
+ *	routine is available to look up services by their port.
+ */
+/*#define HAS_GETSERVBYNAME		/ **/
+/*#define HAS_GETSERVBYPORT		/ **/
+
+/* HAS_HTONL:
+ *	This symbol, if defined, indicates that the htonl() routine (and
+ *	friends htons() ntohl() ntohs()) are available to do network
+ *	order byte swapping.
+ */
+/* HAS_HTONS:
+ *	This symbol, if defined, indicates that the htons() routine (and
+ *	friends htonl() ntohl() ntohs()) are available to do network
+ *	order byte swapping.
+ */
+/* HAS_NTOHL:
+ *	This symbol, if defined, indicates that the ntohl() routine (and
+ *	friends htonl() htons() ntohs()) are available to do network
+ *	order byte swapping.
+ */
+/* HAS_NTOHS:
+ *	This symbol, if defined, indicates that the ntohs() routine (and
+ *	friends htonl() htons() ntohl()) are available to do network
+ *	order byte swapping.
+ */
+/*#define HAS_HTONL		/ **/
+/*#define HAS_HTONS		/ **/
+/*#define HAS_NTOHL		/ **/
+/*#define HAS_NTOHS		/ **/
+
+/* HAS_LONG_DOUBLE:
+ *	This symbol will be defined if the C compiler supports long
+ *	doubles.
+ */
+/* LONG_DOUBLESIZE:
+ *	This symbol contains the size of a long double, so that the
+ *	C preprocessor can make decisions based on it.  It is only
+ *	defined if the system supports long doubles.  Note that this
+ *	is sizeof(long double), which may include unused bytes.
+ */
+/* HAS_LDEXPL:
+ *	This symbol, if defined, indicates that the ldexpl routine is
+ *	available to shift a long double floating-point number
+ *	by an integral power of 2.
+ */
+/* LONG_DOUBLEKIND:
+ *	LONG_DOUBLEKIND will be one of
+ *	LONG_DOUBLE_IS_DOUBLE
+ *	LONG_DOUBLE_IS_IEEE_754_128_BIT_LITTLE_ENDIAN
+ *	LONG_DOUBLE_IS_IEEE_754_128_BIT_BIG_ENDIAN
+ *	LONG_DOUBLE_IS_X86_80_BIT_LITTLE_ENDIAN
+ *	LONG_DOUBLE_IS_X86_80_BIT_BIG_ENDIAN
+ *	LONG_DOUBLE_IS_DOUBLEDOUBLE_128_BIT_LE_LE
+ *	LONG_DOUBLE_IS_DOUBLEDOUBLE_128_BIT_BE_BE
+ *	LONG_DOUBLE_IS_DOUBLEDOUBLE_128_BIT_LE_BE
+ *	LONG_DOUBLE_IS_DOUBLEDOUBLE_128_BIT_BE_LE
+ *	LONG_DOUBLE_IS_UNKNOWN_FORMAT
+ *	It is only defined if the system supports long doubles.
+ */
+/*#define  HAS_LDEXPL		/ **/
+/*#define HAS_LONG_DOUBLE		/ **/
+#ifdef HAS_LONG_DOUBLE
+#define LONG_DOUBLESIZE 8		/**/
+#define LONG_DOUBLEKIND 0		/**/
+#define LONG_DOUBLE_IS_DOUBLE				0
+#define LONG_DOUBLE_IS_IEEE_754_128_BIT_LITTLE_ENDIAN	1
+#define LONG_DOUBLE_IS_IEEE_754_128_BIT_BIG_ENDIAN	2
+#define LONG_DOUBLE_IS_X86_80_BIT_LITTLE_ENDIAN		3
+#define LONG_DOUBLE_IS_X86_80_BIT_BIG_ENDIAN		4
+#define LONG_DOUBLE_IS_DOUBLEDOUBLE_128_BIT_LE_LE	5
+#define LONG_DOUBLE_IS_DOUBLEDOUBLE_128_BIT_BE_BE	6
+#define LONG_DOUBLE_IS_DOUBLEDOUBLE_128_BIT_LE_BE	7
+#define LONG_DOUBLE_IS_DOUBLEDOUBLE_128_BIT_BE_LE	8
+#define LONG_DOUBLE_IS_UNKNOWN_FORMAT			-1
+#define LONG_DOUBLE_IS_DOUBLEDOUBLE_128_BIT_LITTLE_ENDIAN	LONG_DOUBLE_IS_DOUBLEDOUBLE_128_BIT_LE_LE /* back-compat */
+#define LONG_DOUBLE_IS_DOUBLEDOUBLE_128_BIT_BIG_ENDIAN	LONG_DOUBLE_IS_DOUBLEDOUBLE_128_BIT_BE_BE /* back-compat */
+#endif
+
+/* HAS_LONG_LONG:
+ *	This symbol will be defined if the C compiler supports long long.
+ */
+/* LONGLONGSIZE:
+ *	This symbol contains the size of a long long, so that the
+ *	C preprocessor can make decisions based on it.  It is only
+ *	defined if the system supports long long.
+ */
+/*#define HAS_LONG_LONG		/ **/
+#ifdef HAS_LONG_LONG
+#define LONGLONGSIZE 8		/**/
+#endif
+
+/* HAS_MEMCHR:
+ *	This symbol, if defined, indicates that the memchr routine is available
+ *	to locate characters within a C string.
+ */
+#define HAS_MEMCHR	/**/
+
+/* HAS_MKSTEMP:
+ *	This symbol, if defined, indicates that the mkstemp routine is
+ *	available to exclusively create and open a uniquely named
+ *	temporary file.
+ */
+/*#define HAS_MKSTEMP		/ **/
+
+/* HAS_MMAP:
+ *	This symbol, if defined, indicates that the mmap system call is
+ *	available to map a file into memory.
+ */
+/* Mmap_t:
+ *	This symbol holds the return type of the mmap() system call
+ *	(and simultaneously the type of the first argument).
+ *	Usually set to 'void *' or 'caddr_t'.
+ */
+/*#define HAS_MMAP		/ **/
+#define Mmap_t void *	/**/
+
+/* HAS_MSG:
+ *	This symbol, if defined, indicates that the entire msg*(2) library is
+ *	supported (IPC mechanism based on message queues).
+ */
+/*#define HAS_MSG		/ **/
+
+/* HAS_SEM:
+ *	This symbol, if defined, indicates that the entire sem*(2) library is
+ *	supported.
+ */
+/*#define HAS_SEM		/ **/
+
+/* HAS_SETGRENT:
+ *	This symbol, if defined, indicates that the setgrent routine is
+ *	available for initializing sequential access of the group database.
+ */
+/*#define HAS_SETGRENT		/ **/
+
+/* HAS_SETHOSTENT:
+ *	This symbol, if defined, indicates that the sethostent() routine is
+ *	available.
+ */
+/*#define HAS_SETHOSTENT		/ **/
+
+/* HAS_SETNETENT:
+ *	This symbol, if defined, indicates that the setnetent() routine is
+ *	available.
+ */
+/*#define HAS_SETNETENT		/ **/
+
+/* HAS_SETPROTOENT:
+ *	This symbol, if defined, indicates that the setprotoent() routine is
+ *	available.
+ */
+/*#define HAS_SETPROTOENT		/ **/
+
+/* HAS_SETPGRP:
+ *	This symbol, if defined, indicates that the setpgrp routine is
+ *	available to set the current process group.
+ */
+/* USE_BSD_SETPGRP:
+ *	This symbol, if defined, indicates that setpgrp needs two
+ *	arguments whereas USG one needs none.  See also HAS_SETPGID
+ *	for a POSIX interface.
+ */
+/*#define HAS_SETPGRP		/ **/
+/*#define USE_BSD_SETPGRP	/ **/
+
+/* HAS_SETPWENT:
+ *	This symbol, if defined, indicates that the setpwent routine is
+ *	available for initializing sequential access of the passwd database.
+ */
+/*#define HAS_SETPWENT		/ **/
+
+/* HAS_SETSERVENT:
+ *	This symbol, if defined, indicates that the setservent() routine is
+ *	available.
+ */
+/*#define HAS_SETSERVENT		/ **/
+
+/* HAS_SETVBUF:
+ *	This symbol, if defined, indicates that the setvbuf routine is
+ *	available to change buffering on an open stdio stream.
+ *	to a line-buffered mode.
+ */
+/*#define HAS_SETVBUF		/ **/
+
+/* HAS_SHM:
+ *	This symbol, if defined, indicates that the entire shm*(2) library is
+ *	supported.
+ */
+/*#define HAS_SHM		/ **/
+
+/* Shmat_t:
+ *	This symbol holds the return type of the shmat() system call.
+ *	Usually set to 'void *' or 'char *'.
+ */
+/* HAS_SHMAT_PROTOTYPE:
+ *	This symbol, if defined, indicates that the sys/shm.h includes
+ *	a prototype for shmat().  Otherwise, it is up to the program to
+ *	guess one.  Shmat_t shmat(int, Shmat_t, int) is a good guess,
+ *	but not always right so it should be emitted by the program only
+ *	when HAS_SHMAT_PROTOTYPE is not defined to avoid conflicting defs.
+ */
+#define Shmat_t void *	/**/
+/*#define HAS_SHMAT_PROTOTYPE	/ **/
+
+/* HAS_SOCKET:
+ *	This symbol, if defined, indicates that the BSD socket interface is
+ *	supported.
+ */
+/* HAS_SOCKETPAIR:
+ *	This symbol, if defined, indicates that the BSD socketpair() call is
+ *	supported.
+ */
+/* HAS_SOCKADDR_SA_LEN:
+ *	This symbol, if defined, indicates that the struct sockaddr
+ *	structure has a member called sa_len, indicating the length of
+ *	the structure.
+ */
+/* HAS_SOCKADDR_IN6:
+ *	This symbol, if defined, indicates the availability of
+ *	struct sockaddr_in6;
+ */
+/* HAS_SIN6_SCOPE_ID:
+ *	This symbol, if defined, indicates that the struct sockaddr_in6
+ *	structure has a member called sin6_scope_id.
+ */
+/* HAS_IP_MREQ:
+ *	This symbol, if defined, indicates the availability of
+ *	struct ip_mreq;
+ */
+/* HAS_IP_MREQ_SOURCE:
+ *	This symbol, if defined, indicates the availability of
+ *	struct ip_mreq_source;
+ */
+/* HAS_IPV6_MREQ:
+ *	This symbol, if defined, indicates the availability of
+ *	struct ipv6_mreq;
+ */
+/* HAS_IPV6_MREQ_SOURCE:
+ *	This symbol, if defined, indicates the availability of
+ *	struct ipv6_mreq_source;
+ */
+/*#define	HAS_SOCKET		/ **/
+/*#define	HAS_SOCKETPAIR	/ **/
+/*#define	HAS_SOCKADDR_SA_LEN	/ **/
+/*#define	HAS_SOCKADDR_IN6	/ **/
+/*#define	HAS_SIN6_SCOPE_ID	/ **/
+/*#define	HAS_IP_MREQ	/ **/
+/*#define	HAS_IP_MREQ_SOURCE	/ **/
+/*#define	HAS_IPV6_MREQ	/ **/
+/*#define	HAS_IPV6_MREQ_SOURCE	/ **/
+
+/* USE_STAT_BLOCKS:
+ *	This symbol is defined if this system has a stat structure declaring
+ *	st_blksize and st_blocks.
+ */
+#ifndef USE_STAT_BLOCKS
+/*#define USE_STAT_BLOCKS 	/ **/
+#endif
+
+/* USE_STRUCT_COPY:
+ *	This symbol, if defined, indicates that this C compiler knows how
+ *	to copy structures.  If undefined, you'll need to use a block copy
+ *	routine of some sort instead.
+ */
+/*#define	USE_STRUCT_COPY	/ **/
+
+/* HAS_STRERROR:
+ *	This symbol, if defined, indicates that the strerror routine is
+ *	available to translate error numbers to strings. See the writeup
+ *	of Strerror() in this file before you try to define your own.
+ */
+/* HAS_SYS_ERRLIST:
+ *	This symbol, if defined, indicates that the sys_errlist array is
+ *	available to translate error numbers to strings. The extern int
+ *	sys_nerr gives the size of that table.
+ */
+/* Strerror:
+ *	This preprocessor symbol is defined as a macro if strerror() is
+ *	not available to translate error numbers to strings but sys_errlist[]
+ *	array is there.
+ */
+/*#define HAS_STRERROR		/ **/
+/*#define HAS_SYS_ERRLIST	/ **/
+#define Strerror(e) strerror(e)
+
+/* HAS_STRTOUL:
+ *	This symbol, if defined, indicates that the strtoul routine is
+ *	available to provide conversion of strings to unsigned long.
+ */
+#define HAS_STRTOUL	/**/
+
+/* HAS_UNION_SEMUN:
+ *	This symbol, if defined, indicates that the union semun is
+ *	defined by including <sys/sem.h>.  If not, the user code
+ *	probably needs to define it as:
+ *	union semun {
+ *	    int val;
+ *	    struct semid_ds *buf;
+ *	    unsigned short *array;
+ *	}
+ */
+/* USE_SEMCTL_SEMUN:
+ *	This symbol, if defined, indicates that union semun is
+ *	used for semctl IPC_STAT.
+ */
+/* USE_SEMCTL_SEMID_DS:
+ *	This symbol, if defined, indicates that struct semid_ds * is
+ *	used for semctl IPC_STAT.
+ */
+/*#define HAS_UNION_SEMUN	/ **/
+/*#define USE_SEMCTL_SEMUN	/ **/
+/*#define USE_SEMCTL_SEMID_DS	/ **/
+
+/* HAS_VFORK:
+ *	This symbol, if defined, indicates that vfork() exists.
+ */
+/*#define HAS_VFORK	/ **/
+
+/* HAS_PSEUDOFORK:
+ *	This symbol, if defined, indicates that an emulation of the
+ *	fork routine is available.
+ */
+/*#define HAS_PSEUDOFORK	/ **/
+
+/* Signal_t:
+ *	This symbol's value is either "void" or "int", corresponding to the
+ *	appropriate return type of a signal handler.  Thus, you can declare
+ *	a signal handler using "Signal_t (*handler)()", and define the
+ *	handler using "Signal_t handler(sig)".
+ */
+#define Signal_t int	/* Signal handler's return type */
+
+/* HASVOLATILE:
+ *	This symbol, if defined, indicates that this C compiler knows about
+ *	the volatile declaration.
+ */
+/*#define	HASVOLATILE	/ **/
+#ifndef HASVOLATILE
+#define volatile
+#endif
+
+/* I_DIRENT:
+ *	This symbol, if defined, indicates to the C program that it should
+ *	include <dirent.h>. Using this symbol also triggers the definition
+ *	of the Direntry_t define which ends up being 'struct dirent' or
+ *	'struct direct' depending on the availability of <dirent.h>.
+ */
+/* DIRNAMLEN:
+ *	This symbol, if defined, indicates to the C program that the length
+ *	of directory entry names is provided by a d_namlen field.  Otherwise
+ *	you need to do strlen() on the d_name field.
+ */
+/* Direntry_t:
+ *	This symbol is set to 'struct direct' or 'struct dirent' depending on
+ *	whether dirent is available or not. You should use this pseudo type to
+ *	portably declare your directory entries.
+ */
+#define I_DIRENT		/**/
+/*#define DIRNAMLEN	/ **/
+#define Direntry_t struct dirent
+
+/* I_EXECINFO:
+ *	This symbol, if defined, indicates to the C program that it should
+ *	include <execinfo.h> for backtrace() support.
+ */
+/*#define I_EXECINFO		/ **/
+
+/* I_GRP:
+ *	This symbol, if defined, indicates to the C program that it should
+ *	include <grp.h>.
+ */
+/* GRPASSWD:
+ *	This symbol, if defined, indicates to the C program that struct group
+ *	in <grp.h> contains gr_passwd.
+ */
+/*#define I_GRP		/ **/
+/*#define GRPASSWD	/ **/
+
+/* I_NDBM:
+ *	This symbol, if defined, indicates that <ndbm.h> exists and should
+ *	be included.
+ */
+/* I_GDBMNDBM:
+ *	This symbol, if defined, indicates that <gdbm/ndbm.h> exists and should
+ *	be included.  This was the location of the ndbm.h compatibility file
+ *	in RedHat 7.1.
+ */
+/* I_GDBM_NDBM:
+ *	This symbol, if defined, indicates that <gdbm-ndbm.h> exists and should
+ *	be included.  This is the location of the ndbm.h compatibility file
+ *	in Debian 4.0.
+ */
+/* NDBM_H_USES_PROTOTYPES:
+ *	This symbol, if defined, indicates that <ndbm.h> uses real ANSI C
+ *	prototypes instead of K&R style function declarations without any
+ *	parameter information. While ANSI C prototypes are supported in C++,
+ *	K&R style function declarations will yield errors.
+ */
+/* GDBMNDBM_H_USES_PROTOTYPES:
+ *	This symbol, if defined, indicates that <gdbm/ndbm.h> uses real ANSI C
+ *	prototypes instead of K&R style function declarations without any
+ *	parameter information. While ANSI C prototypes are supported in C++,
+ *	K&R style function declarations will yield errors.
+ */
+/* GDBM_NDBM_H_USES_PROTOTYPES:
+ *	This symbol, if defined, indicates that <gdbm-ndbm.h> uses real ANSI C
+ *	prototypes instead of K&R style function declarations without any
+ *	parameter information. While ANSI C prototypes are supported in C++,
+ *	K&R style function declarations will yield errors.
+ */
+/*#define I_NDBM	/ **/
+/*#define I_GDBMNDBM	/ **/
+/*#define I_GDBM_NDBM	/ **/
+/*#define NDBM_H_USES_PROTOTYPES	/ **/
+/*#define GDBMNDBM_H_USES_PROTOTYPES	/ **/
+/*#define GDBM_NDBM_H_USES_PROTOTYPES	/ **/
+
+/* I_NETDB:
+ *	This symbol, if defined, indicates that <netdb.h> exists and
+ *	should be included.
+ */
+/*#define I_NETDB		/ **/
+
+/* I_NET_ERRNO:
+ *	This symbol, if defined, indicates that <net/errno.h> exists and
+ *	should be included.
+ */
+/*#define I_NET_ERRNO		/ **/
+
+/* I_PWD:
+ *	This symbol, if defined, indicates to the C program that it should
+ *	include <pwd.h>.
+ */
+/* PWQUOTA:
+ *	This symbol, if defined, indicates to the C program that struct passwd
+ *	contains pw_quota.
+ */
+/* PWAGE:
+ *	This symbol, if defined, indicates to the C program that struct passwd
+ *	contains pw_age.
+ */
+/* PWCHANGE:
+ *	This symbol, if defined, indicates to the C program that struct passwd
+ *	contains pw_change.
+ */
+/* PWCLASS:
+ *	This symbol, if defined, indicates to the C program that struct passwd
+ *	contains pw_class.
+ */
+/* PWEXPIRE:
+ *	This symbol, if defined, indicates to the C program that struct passwd
+ *	contains pw_expire.
+ */
+/* PWCOMMENT:
+ *	This symbol, if defined, indicates to the C program that struct passwd
+ *	contains pw_comment.
+ */
+/* PWGECOS:
+ *	This symbol, if defined, indicates to the C program that struct passwd
+ *	contains pw_gecos.
+ */
+/* PWPASSWD:
+ *	This symbol, if defined, indicates to the C program that struct passwd
+ *	contains pw_passwd.
+ */
+/*#define I_PWD		/ **/
+/*#define PWQUOTA	/ **/
+/*#define PWAGE	/ **/
+/*#define PWCHANGE	/ **/
+/*#define PWCLASS	/ **/
+/*#define PWEXPIRE	/ **/
+/*#define PWCOMMENT	/ **/
+/*#define PWGECOS	/ **/
+/*#define PWPASSWD	/ **/
+
+/* I_SYSUIO:
+ *	This symbol, if defined, indicates that <sys/uio.h> exists and
+ *	should be included.
+ */
+/*#define	I_SYSUIO		/ **/
+
+/* I_TERMIO:
+ *	This symbol, if defined, indicates that the program should include
+ *	<termio.h> rather than <sgtty.h>.  There are also differences in
+ *	the ioctl() calls that depend on the value of this symbol.
+ */
+/* I_TERMIOS:
+ *	This symbol, if defined, indicates that the program should include
+ *	the POSIX termios.h rather than sgtty.h or termio.h.
+ *	There are also differences in the ioctl() calls that depend on the
+ *	value of this symbol.
+ */
+/* I_SGTTY:
+ *	This symbol, if defined, indicates that the program should include
+ *	<sgtty.h> rather than <termio.h>.  There are also differences in
+ *	the ioctl() calls that depend on the value of this symbol.
+ */
+/*#define I_TERMIO		/ **/
+/*#define I_TERMIOS		/ **/
+/*#define I_SGTTY		/ **/
+
+/* I_STDARG:
+ *	This symbol, if defined, indicates that <stdarg.h> exists and should
+ *	be included.
+ */
+/* I_VARARGS:
+ *	This symbol, if defined, indicates to the C program that it should
+ *	include <varargs.h>.
+ */
+#define I_STDARG		/**/
+/*#define I_VARARGS	/ **/
+
+/* Free_t:
+ *	This variable contains the return type of free().  It is usually
+ * void, but occasionally int.
+ */
+/* Malloc_t:
+ *	This symbol is the type of pointer returned by malloc and realloc.
+ */
+#define Malloc_t void *			/**/
+#define Free_t void			/**/
+
+/* PERL_MALLOC_WRAP:
+ *	This symbol, if defined, indicates that we'd like malloc wrap checks.
+ */
+/*#define PERL_MALLOC_WRAP		/ **/
+
+/* MYMALLOC:
+ *	This symbol, if defined, indicates that we're using our own malloc.
+ */
+/*#define MYMALLOC			/ **/
+
+/* CAN_PROTOTYPE:
+ *	If defined, this macro indicates that the C compiler can handle
+ *	function prototypes.
+ */
+/* _:
+ *	This macro is used to declare function parameters for folks who want
+ *	to make declarations with prototypes using a different style than
+ *	the above macros.  Use double parentheses.  For example:
+ *
+ *		int main _((int argc, char *argv[]));
+ */
+/*#define	CAN_PROTOTYPE	/ **/
+#ifdef CAN_PROTOTYPE
+#define	_(args) args
+#else
+#define	_(args) ()
+#endif
+
+/* SH_PATH:
+ *	This symbol contains the full pathname to the shell used on this
+ *	on this system to execute Bourne shell scripts.  Usually, this will be
+ *	/bin/sh, though it's possible that some systems will have /bin/ksh,
+ *	/bin/pdksh, /bin/ash, /bin/bash, or even something such as
+ *	D:/bin/sh.exe.
+ */
+#define SH_PATH "/bin/sh"  /**/
+
+/* SIG_NAME:
+ *	This symbol contains a list of signal names in order of
+ *	signal number. This is intended
+ *	to be used as a static array initialization, like this:
+ *		char *sig_name[] = { SIG_NAME };
+ *	The signals in the list are separated with commas, and each signal
+ *	is surrounded by double quotes. There is no leading SIG in the signal
+ *	name, i.e. SIGQUIT is known as "QUIT".
+ *	Gaps in the signal numbers (up to NSIG) are filled in with NUMnn,
+ *	etc., where nn is the actual signal number (e.g. NUM37).
+ *	The signal number for sig_name[i] is stored in sig_num[i].
+ *	The last element is 0 to terminate the list with a NULL.  This
+ *	corresponds to the 0 at the end of the sig_name_init list.
+ *	Note that this variable is initialized from the sig_name_init,
+ *	not from sig_name (which is unused).
+ */
+/* SIG_NUM:
+ *	This symbol contains a list of signal numbers, in the same order as the
+ *	SIG_NAME list. It is suitable for static array initialization, as in:
+ *		int sig_num[] = { SIG_NUM };
+ *	The signals in the list are separated with commas, and the indices
+ *	within that list and the SIG_NAME list match, so it's easy to compute
+ *	the signal name from a number or vice versa at the price of a small
+ *	dynamic linear lookup.
+ *	Duplicates are allowed, but are moved to the end of the list.
+ *	The signal number corresponding to sig_name[i] is sig_number[i].
+ *	if (i < NSIG) then sig_number[i] == i.
+ *	The last element is 0, corresponding to the 0 at the end of
+ *	the sig_name_init list.
+ *	Note that this variable is initialized from the sig_num_init,
+ *	not from sig_num (which is unused).
+ */
+/* SIG_SIZE:
+ *	This variable contains the number of elements of the SIG_NAME
+ *	and SIG_NUM arrays, excluding the final NULL entry.
+ */
+#define SIG_NAME 0		/**/
+#define SIG_NUM  0		/**/
+#define SIG_SIZE 1			/**/
+
+/* USE_CROSS_COMPILE:
+ *	This symbol, if defined, indicates that Perl is being cross-compiled.
+ */
+/* PERL_TARGETARCH:
+ *	This symbol, if defined, indicates the target architecture
+ *	Perl has been cross-compiled to.  Undefined if not a cross-compile.
+ */
+#ifndef USE_CROSS_COMPILE
+/*#define	USE_CROSS_COMPILE	/ **/
+#define	PERL_TARGETARCH	""	/**/
+#endif
+
+/* PERL_USE_DEVEL:
+ *	This symbol, if defined, indicates that Perl was configured with
+ *	-Dusedevel, to enable development features.  This should not be
+ *	done for production builds.
+ */
+/*#define	PERL_USE_DEVEL		/ **/
+
+/* HAS_ATOLF:
+ *	This symbol, if defined, indicates that the atolf routine is
+ *	available to convert strings into long doubles.
+ */
+/*#define HAS_ATOLF		/ **/
+
+/* HAS_ATOLL:
+ *	This symbol, if defined, indicates that the atoll routine is
+ *	available to convert strings into long longs.
+ */
+/*#define HAS_ATOLL		/ **/
+
+/* HAS__FWALK:
+ *	This symbol, if defined, indicates that the _fwalk system call is
+ *	available to apply a function to all the file handles.
+ */
+/*#define HAS__FWALK		/ **/
+
+/* HAS_ACOSH:
+ *	This symbol, if defined, indicates that the acosh routine is
+ *	available to do the inverse hyperbolic cosine function.
+ */
+/*#define HAS_ACOSH		/ **/
+
+/* HAS_AINTL:
+ *	This symbol, if defined, indicates that the aintl routine is
+ *	available.  If copysignl is also present we can emulate modfl.
+ */
+/*#define HAS_AINTL		/ **/
+
+/* HAS_ASINH:
+ *	This symbol, if defined, indicates that the asinh routine is
+ *	available to do the inverse hyperbolic sine function.
+ */
+/*#define HAS_ASINH		/ **/
+
+/* HAS_ATANH:
+ *	This symbol, if defined, indicates that the atanh routine is
+ *	available to do the inverse hyperbolic tangent function.
+ */
+/*#define HAS_ATANH		/ **/
+
+/* HAS_BUILTIN_CHOOSE_EXPR:
+ *	Can we handle GCC builtin for compile-time ternary-like expressions
+ */
+/* HAS_BUILTIN_EXPECT:
+ *	Can we handle GCC builtin for telling that certain values are more
+ *	likely
+ */
+/*#define HAS_BUILTIN_EXPECT	/ **/
+/*#define HAS_BUILTIN_CHOOSE_EXPR	/ **/
+
+/* HAS_C99_VARIADIC_MACROS:
+ *	If defined, the compiler supports C99 variadic macros.
+ */
+/*#define	HAS_C99_VARIADIC_MACROS	/ **/
+
+/* HAS_CLASS:
+ *	This symbol, if defined, indicates that the class routine is
+ *	available to classify doubles.  Available for example in AIX.
+ *	The returned values are defined in <float.h> and are:
+ *
+ *	FP_PLUS_NORM	Positive normalized, nonzero
+ *	FP_MINUS_NORM	Negative normalized, nonzero
+ *	FP_PLUS_DENORM	Positive denormalized, nonzero
+ *	FP_MINUS_DENORM	Negative denormalized, nonzero
+ *	FP_PLUS_ZERO	+0.0
+ *	FP_MINUS_ZERO	-0.0
+ *	FP_PLUS_INF	+INF
+ *	FP_MINUS_INF	-INF
+ *	FP_NANS		Signaling Not a Number (NaNS)
+ *	FP_NANQ		Quiet Not a Number (NaNQ)
+ */
+/*#define HAS_CLASS		/ **/
+
+/* HAS_CLEARENV:
+ *	This symbol, if defined, indicates that the clearenv () routine is
+ *	available for use.
+ */
+/*#define HAS_CLEARENV		/ **/
+
+/* HAS_STRUCT_CMSGHDR:
+ *	This symbol, if defined, indicates that the struct cmsghdr
+ *	is supported.
+ */
+/*#define HAS_STRUCT_CMSGHDR	/ **/
+
+/* HAS_COPYSIGN:
+ *	This symbol, if defined, indicates that the copysign routine is
+ *	available to do the copysign function.
+ */
+/*#define HAS_COPYSIGN		/ **/
+
+/* HAS_COPYSIGNL:
+ *	This symbol, if defined, indicates that the copysignl routine is
+ *	available.  If aintl is also present we can emulate modfl.
+ */
+/*#define HAS_COPYSIGNL		/ **/
+
+/* USE_CPLUSPLUS:
+ *	This symbol, if defined, indicates that a C++ compiler was
+ *	used to compiled Perl and will be used to compile extensions.
+ */
+/*#define USE_CPLUSPLUS		/ **/
+
+/* HAS_DBMINIT_PROTO:
+ *	This symbol, if defined, indicates that the system provides
+ *	a prototype for the dbminit() function.  Otherwise, it is up
+ *	to the program to supply one.  A good guess is
+ *		extern int dbminit(char *);
+ */
+/*#define	HAS_DBMINIT_PROTO	/ **/
+
+/* HAS_DIR_DD_FD:
+ *	This symbol, if defined, indicates that the the DIR* dirstream
+ *	structure contains a member variable named dd_fd.
+ */
+/*#define HAS_DIR_DD_FD		/ **/
+
+/* HAS_DIRFD:
+ *	This manifest constant lets the C program know that dirfd
+ *	is available.
+ */
+/*#define HAS_DIRFD		/ **/
+
+/* DLSYM_NEEDS_UNDERSCORE:
+ *	This symbol, if defined, indicates that we need to prepend an
+ *	underscore to the symbol name before calling dlsym().  This only
+ *	makes sense if you *have* dlsym, which we will presume is the
+ *	case if you're using dl_dlopen.xs.
+ */
+/*#define 	DLSYM_NEEDS_UNDERSCORE 	/ **/
+
+/* HAS_ERF:
+ *	This symbol, if defined, indicates that the erf routine is
+ *	available to do the error function.
+ */
+/*#define HAS_ERF		/ **/
+
+/* HAS_ERFC:
+ *	This symbol, if defined, indicates that the erfc routine is
+ *	available to do the complementary error function.
+ */
+/*#define HAS_ERFC		/ **/
+
+/* HAS_EXP2:
+ *	This symbol, if defined, indicates that the exp2 routine is
+ *	available to do the 2**x function.
+ */
+/*#define HAS_EXP2		/ **/
+
+/* HAS_EXPM1:
+ *	This symbol, if defined, indicates that the expm1 routine is
+ *	available to do the exp(x) - 1 when x is near 1 function.
+ */
+/*#define HAS_EXPM1		/ **/
+
+/* HAS_FAST_STDIO:
+ *	This symbol, if defined, indicates that the "fast stdio"
+ *	is available to manipulate the stdio buffers directly.
+ */
+/*#define HAS_FAST_STDIO		/ **/
+
+/* HAS_FCHDIR:
+ *	This symbol, if defined, indicates that the fchdir routine is
+ *	available to change directory using a file descriptor.
+ */
+/*#define HAS_FCHDIR		/ **/
+
+/* FCNTL_CAN_LOCK:
+ *	This symbol, if defined, indicates that fcntl() can be used
+ *	for file locking.  Normally on Unix systems this is defined.
+ *	It may be undefined on VMS.
+ */
+/*#define FCNTL_CAN_LOCK		/ **/
+
+/* HAS_FDCLOSE:
+ *	This symbol, if defined, indicates that the fdclose routine is
+ *	available to free a FILE structure without closing the underlying
+ *	file descriptor.  This function appeared in FreeBSD 10.2.
+ */
+/*#define HAS_FDCLOSE		/ **/
+
+/* HAS_FDIM:
+ *	This symbol, if defined, indicates that the fdim routine is
+ *	available to do the positive difference function.
+ */
+/*#define HAS_FDIM		/ **/
+
+/* HAS_FEGETROUND:
+ *	This symbol, if defined, indicates that the fegetround routine is
+ *	available to return the macro corresponding to the current rounding
+ *	mode.
+ */
+/*#define HAS_FEGETROUND	/ **/
+
+/* HAS_FINITE:
+ *	This symbol, if defined, indicates that the finite routine is
+ *	available to check whether a double is finite (non-infinity non-NaN).
+ */
+/*#define HAS_FINITE		/ **/
+
+/* HAS_FINITEL:
+ *	This symbol, if defined, indicates that the finitel routine is
+ *	available to check whether a long double is finite
+ *	(non-infinity non-NaN).
+ */
+/*#define HAS_FINITEL		/ **/
+
+/* HAS_FLOCK_PROTO:
+ *	This symbol, if defined, indicates that the system provides
+ *	a prototype for the flock() function.  Otherwise, it is up
+ *	to the program to supply one.  A good guess is
+ *		extern int flock(int, int);
+ */
+/*#define	HAS_FLOCK_PROTO	/ **/
+
+/* HAS_FMA:
+ *	This symbol, if defined, indicates that the fma routine is
+ *	available to do the multiply-add function.
+ */
+/*#define HAS_FMA		/ **/
+
+/* HAS_FMAX:
+ *	This symbol, if defined, indicates that the fmax routine is
+ *	available to do the maximum function.
+ */
+/*#define HAS_FMAX		/ **/
+
+/* HAS_FMIN:
+ *	This symbol, if defined, indicates that the fmin routine is
+ *	available to do the minimum function.
+ */
+/*#define HAS_FMIN		/ **/
+
+/* HAS_FP_CLASS:
+ *	This symbol, if defined, indicates that the fp_class routine is
+ *	available to classify doubles.  Available for example in Digital UNIX.
+ *	The returned values are defined in <math.h> and are:
+ *
+ *	FP_SNAN           Signaling NaN (Not-a-Number)
+ *	FP_QNAN           Quiet NaN (Not-a-Number)
+ *	FP_POS_INF        +infinity
+ *	FP_NEG_INF        -infinity
+ *	FP_POS_NORM       Positive normalized
+ *	FP_NEG_NORM       Negative normalized
+ *	FP_POS_DENORM     Positive denormalized
+ *	FP_NEG_DENORM     Negative denormalized
+ *	FP_POS_ZERO       +0.0 (positive zero)
+ *	FP_NEG_ZERO       -0.0 (negative zero)
+ */
+/*#define HAS_FP_CLASS		/ **/
+
+/* HAS_FP_CLASSL:
+ *	This symbol, if defined, indicates that the fp_classl routine is
+ *	available to classify long doubles.  Available for example in
+ *	Digital UNIX.  See for possible values HAS_FP_CLASS.
+ */
+/*#define HAS_FP_CLASSL		/ **/
+
+/* HAS_FPCLASS:
+ *	This symbol, if defined, indicates that the fpclass routine is
+ *	available to classify doubles.  Available for example in Solaris/SVR4.
+ *	The returned values are defined in <ieeefp.h> and are:
+ *
+ *	FP_SNAN		signaling NaN
+ *	FP_QNAN		quiet NaN
+ *	FP_NINF		negative infinity
+ *	FP_PINF		positive infinity
+ *	FP_NDENORM	negative denormalized non-zero
+ *	FP_PDENORM	positive denormalized non-zero
+ *	FP_NZERO	negative zero
+ *	FP_PZERO	positive zero
+ *	FP_NNORM	negative normalized non-zero
+ *	FP_PNORM	positive normalized non-zero
+ */
+/*#define HAS_FPCLASS		/ **/
+
+/* HAS_FPCLASSIFY:
+ *	This symbol, if defined, indicates that the fpclassify routine is
+ *	available to classify doubles.  Available for example in HP-UX.
+ *	The returned values are defined in <math.h> and are
+ *
+ *           FP_NORMAL     Normalized
+ *           FP_ZERO       Zero
+ *           FP_INFINITE   Infinity
+ *           FP_SUBNORMAL  Denormalized
+ *           FP_NAN        NaN
+ *
+ */
+/* HAS_FP_CLASSIFY:
+ *	This symbol, if defined, indicates that the fp_classify routine is
+ *	available to classify doubles. The values are defined in <math.h>
+ *
+ *           FP_NORMAL     Normalized
+ *           FP_ZERO       Zero
+ *           FP_INFINITE   Infinity
+ *           FP_SUBNORMAL  Denormalized
+ *           FP_NAN        NaN
+ *
+ */
+/*#define	HAS_FPCLASSIFY		/ **/
+/*#define	HAS_FP_CLASSIFY		/ **/
+
+/* HAS_FPCLASSL:
+ *	This symbol, if defined, indicates that the fpclassl routine is
+ *	available to classify long doubles.  Available for example in IRIX.
+ *	The returned values are defined in <ieeefp.h> and are:
+ *
+ *	FP_SNAN		signaling NaN
+ *	FP_QNAN		quiet NaN
+ *	FP_NINF		negative infinity
+ *	FP_PINF		positive infinity
+ *	FP_NDENORM	negative denormalized non-zero
+ *	FP_PDENORM	positive denormalized non-zero
+ *	FP_NZERO	negative zero
+ *	FP_PZERO	positive zero
+ *	FP_NNORM	negative normalized non-zero
+ *	FP_PNORM	positive normalized non-zero
+ */
+/*#define HAS_FPCLASSL		/ **/
+
+/* HAS_FPGETROUND:
+ *	This symbol, if defined, indicates that the fpgetround routine is
+ *	available to get the floating point rounding mode.
+ */
+/*#define HAS_FPGETROUND		/ **/
+
+/* HAS_FPOS64_T:
+ *	This symbol will be defined if the C compiler supports fpos64_t.
+ */
+/*#define	HAS_FPOS64_T    	/ **/
+
+/* HAS_FREXPL:
+ *	This symbol, if defined, indicates that the frexpl routine is
+ *	available to break a long double floating-point number into
+ *	a normalized fraction and an integral power of 2.
+ */
+/*#define HAS_FREXPL		/ **/
+
+/* HAS_STRUCT_FS_DATA:
+ *	This symbol, if defined, indicates that the struct fs_data
+ *	to do statfs() is supported.
+ */
+/*#define HAS_STRUCT_FS_DATA	/ **/
+
+/* HAS_FSEEKO:
+ *	This symbol, if defined, indicates that the fseeko routine is
+ *	available to fseek beyond 32 bits (useful for ILP32 hosts).
+ */
+/*#define HAS_FSEEKO		/ **/
+
+/* HAS_FSTATFS:
+ *	This symbol, if defined, indicates that the fstatfs routine is
+ *	available to stat filesystems by file descriptors.
+ */
+/*#define HAS_FSTATFS		/ **/
+
+/* HAS_FSYNC:
+ *	This symbol, if defined, indicates that the fsync routine is
+ *	available to write a file's modified data and attributes to
+ *	permanent storage.
+ */
+/*#define HAS_FSYNC		/ **/
+
+/* HAS_FTELLO:
+ *	This symbol, if defined, indicates that the ftello routine is
+ *	available to ftell beyond 32 bits (useful for ILP32 hosts).
+ */
+/*#define HAS_FTELLO		/ **/
+
+/* HAS_FUTIMES:
+ *	This symbol, if defined, indicates that the futimes routine is
+ *	available to change file descriptor time stamps with struct timevals.
+ */
+/*#define HAS_FUTIMES		/ **/
+
+/* HAS_GETADDRINFO:
+ *	This symbol, if defined, indicates that the getaddrinfo() function
+ *	is available for use.
+ */
+/*#define HAS_GETADDRINFO		/ **/
+
+/* HAS_GETCWD:
+ *	This symbol, if defined, indicates that the getcwd routine is
+ *	available to get the current working directory.
+ */
+/*#define HAS_GETCWD		/ **/
+
+/* HAS_GETESPWNAM:
+ *	This symbol, if defined, indicates that the getespwnam system call is
+ *	available to retrieve enhanced (shadow) password entries by name.
+ */
+/*#define HAS_GETESPWNAM		/ **/
+
+/* HAS_GETFSSTAT:
+ *	This symbol, if defined, indicates that the getfsstat routine is
+ *	available to stat filesystems in bulk.
+ */
+/*#define HAS_GETFSSTAT		/ **/
+
+/* HAS_GETITIMER:
+ *	This symbol, if defined, indicates that the getitimer routine is
+ *	available to return interval timers.
+ */
+/*#define HAS_GETITIMER		/ **/
+
+/* HAS_GETMNT:
+ *	This symbol, if defined, indicates that the getmnt routine is
+ *	available to get filesystem mount info by filename.
+ */
+/*#define HAS_GETMNT		/ **/
+
+/* HAS_GETMNTENT:
+ *	This symbol, if defined, indicates that the getmntent routine is
+ *	available to iterate through mounted file systems to get their info.
+ */
+/*#define HAS_GETMNTENT		/ **/
+
+/* HAS_GETNAMEINFO:
+ *	This symbol, if defined, indicates that the getnameinfo() function
+ *	is available for use.
+ */
+/*#define HAS_GETNAMEINFO		/ **/
+
+/* HAS_GETPRPWNAM:
+ *	This symbol, if defined, indicates that the getprpwnam system call is
+ *	available to retrieve protected (shadow) password entries by name.
+ */
+/*#define HAS_GETPRPWNAM		/ **/
+
+/* HAS_GETSPNAM:
+ *	This symbol, if defined, indicates that the getspnam system call is
+ *	available to retrieve SysV shadow password entries by name.
+ */
+/*#define HAS_GETSPNAM		/ **/
+
+/* HAS_HASMNTOPT:
+ *	This symbol, if defined, indicates that the hasmntopt routine is
+ *	available to query the mount options of file systems.
+ */
+/*#define HAS_HASMNTOPT		/ **/
+
+/* HAS_HYPOT:
+ *	This symbol, if defined, indicates that the hypot routine is
+ *	available to do the hypotenuse function.
+ */
+/*#define HAS_HYPOT		/ **/
+
+/* HAS_ILOGB:
+ *	This symbol, if defined, indicates that the ilogb routine is
+ *	available to get integer exponent of a floating-point value.
+ */
+/*#define HAS_ILOGB		/ **/
+
+/* HAS_ILOGBL:
+ *	This symbol, if defined, indicates that the ilogbl routine is
+ *	available.  If scalbnl is also present we can emulate frexpl.
+ */
+/*#define HAS_ILOGBL		/ **/
+
+/* HAS_INETNTOP:
+ *	This symbol, if defined, indicates that the inet_ntop() function
+ *	is available to parse IPv4 and IPv6 strings.
+ */
+/*#define HAS_INETNTOP		/ **/
+
+/* HAS_INETPTON:
+ *	This symbol, if defined, indicates that the inet_pton() function
+ *	is available to parse IPv4 and IPv6 strings.
+ */
+/*#define HAS_INETPTON		/ **/
+
+/* HAS_INT64_T:
+ *     This symbol will defined if the C compiler supports int64_t.
+ *     Usually the <inttypes.h> needs to be included, but sometimes
+ *	<sys/types.h> is enough.
+ */
+/*#define     HAS_INT64_T               / **/
+
+/* HAS_ISBLANK:
+ *	This manifest constant lets the C program know that isblank
+ *	is available.
+ */
+/*#define HAS_ISBLANK		/ **/
+
+/* HAS_ISFINITE:
+ *	This symbol, if defined, indicates that the isfinite routine is
+ *	available to check whether a double is finite (non-infinity non-NaN).
+ */
+/*#define HAS_ISFINITE		/ **/
+
+/* HAS_ISFINITEL:
+ *	This symbol, if defined, indicates that the isfinitel routine is
+ *	available to check whether a long double is finite.
+ *	(non-infinity non-NaN).
+ */
+/*#define HAS_ISFINITEL		/ **/
+
+/* HAS_ISINF:
+ *	This symbol, if defined, indicates that the isinf routine is
+ *	available to check whether a double is an infinity.
+ */
+/*#define HAS_ISINF		/ **/
+
+/* HAS_ISINFL:
+ *	This symbol, if defined, indicates that the isinfl routine is
+ *	available to check whether a long double is an infinity.
+ */
+/*#define HAS_ISINFL		/ **/
+
+/* HAS_ISLESS:
+ *	This symbol, if defined, indicates that the isless routine is
+ *	available to do the isless function.
+ */
+/*#define HAS_ISLESS		/ **/
+
+/* HAS_ISNAN:
+ *	This symbol, if defined, indicates that the isnan routine is
+ *	available to check whether a double is a NaN.
+ */
+/*#define HAS_ISNAN		/ **/
+
+/* HAS_ISNANL:
+ *	This symbol, if defined, indicates that the isnanl routine is
+ *	available to check whether a long double is a NaN.
+ */
+/*#define HAS_ISNANL		/ **/
+
+/* HAS_ISNORMAL:
+ *	This symbol, if defined, indicates that the isnormal routine is
+ *	available to check whether a double is normal (non-zero normalized).
+ */
+/*#define HAS_ISNORMAL		/ **/
+
+/* HAS_J0:
+ *	This symbol, if defined, indicates to the C program that the
+ *	j0() function is available for Bessel functions of the first
+ *	kind of the order zero, for doubles.
+ */
+/* HAS_J0L:
+ *	This symbol, if defined, indicates to the C program that the
+ *	j0l() function is available for Bessel functions of the first
+ *	kind of the order zero, for long doubles.
+ */
+/*#define	HAS_J0		/ **/
+/*#define	HAS_J0L		/ **/
+
+/* HAS_LC_MONETARY_2008:
+ *	This symbol, if defined, indicates that the localeconv routine is
+ *	available and has the additional members added in POSIX 1003.1-2008.
+ */
+/*#define HAS_LC_MONETARY_2008		/ **/
+
+/* HAS_LDBL_DIG:
+ *	This symbol, if defined, indicates that this system's <float.h>
+ *	or <limits.h> defines the symbol LDBL_DIG, which is the number
+ *	of significant digits in a long double precision number. Unlike
+ *	for DBL_DIG, there's no good guess for LDBL_DIG if it is undefined.
+ */
+/*#define HAS_LDBL_DIG 	/ * */
+
+/* HAS_LGAMMA:
+ *	This symbol, if defined, indicates that the lgamma routine is
+ *	available to do the log gamma function.  See also HAS_TGAMMA and
+ *	HAS_LGAMMA_R.
+ */
+/*#define HAS_LGAMMA		/ **/
+
+/* HAS_LGAMMA_R:
+ *	This symbol, if defined, indicates that the lgamma_r routine is
+ *	available to do the log gamma function without using the global
+ *	signgam variable.
+ */
+/*#define HAS_LGAMMA_R		/ **/
+
+/* LIBM_LIB_VERSION:
+ *	This symbol, if defined, indicates that libm exports _LIB_VERSION
+ *	and that math.h defines the enum to manipulate it.
+ */
+/*#define LIBM_LIB_VERSION		/ **/
+
+/* HAS_LLRINT:
+ *	This symbol, if defined, indicates that the llrint routine is
+ *	available to return the long long value closest to a double
+ *	(according to the current rounding mode).
+ */
+/*#define HAS_LLRINT		/ **/
+
+/* HAS_LLRINTL:
+ *	This symbol, if defined, indicates that the llrintl routine is
+ *	available to return the long long value closest to a long double
+ *	(according to the current rounding mode).
+ */
+/*#define HAS_LLRINTL		/ **/
+
+/* HAS_LLROUND:
+ *	This symbol, if defined, indicates that the llround routine is
+ *	available to return the nearest long long value.
+ */
+/*#define HAS_LLROUND		/ **/
+
+/* HAS_LLROUNDL:
+ *	This symbol, if defined, indicates that the llroundl routine is
+ *	available to return the nearest long long value away from zero of
+ *	the long double argument value.
+ */
+/*#define HAS_LLROUNDL		/ **/
+
+/* HAS_LOG1P:
+ *	This symbol, if defined, indicates that the log1p routine is
+ *	available to do the logarithm of 1 plus argument function.
+ */
+/*#define HAS_LOG1P		/ **/
+
+/* HAS_LOG2:
+ *	This symbol, if defined, indicates that the log2 routine is
+ *	available to do the log2 function.
+ */
+/*#define HAS_LOG2		/ **/
+
+/* HAS_LOGB:
+ *	This symbol, if defined, indicates that the logb routine is
+ *	available to do the logb function.
+ */
+/*#define HAS_LOGB		/ **/
+
+/* HAS_LRINT:
+ *	This symbol, if defined, indicates that the lrint routine is
+ *	available to return the integral value closest to a double
+ *	(according to the current rounding mode).
+ */
+/*#define HAS_LRINT		/ **/
+
+/* HAS_LRINTL:
+ *	This symbol, if defined, indicates that the lrintl routine is
+ *	available to return the integral value closest to a long double
+ *	(according to the current rounding mode).
+ */
+/*#define HAS_LRINTL		/ **/
+
+/* HAS_LROUND:
+ *	This symbol, if defined, indicates that the lround routine is
+ *	available to return the nearest integral value.
+ */
+/*#define HAS_LROUND		/ **/
+
+/* HAS_LROUNDL:
+ *	This symbol, if defined, indicates that the lroundl routine is
+ *	available to return the nearest integral value away from zero of
+ *	the long double argument value.
+ */
+/*#define HAS_LROUNDL		/ **/
+
+/* HAS_MADVISE:
+ *	This symbol, if defined, indicates that the madvise system call is
+ *	available to map a file into memory.
+ */
+/*#define HAS_MADVISE		/ **/
+
+/* HAS_MALLOC_SIZE:
+ *	This symbol, if defined, indicates that the malloc_size
+ *	routine is available for use.
+ */
+/*#define HAS_MALLOC_SIZE		/ **/
+
+/* HAS_MALLOC_GOOD_SIZE:
+ *	This symbol, if defined, indicates that the malloc_good_size
+ *	routine is available for use.
+ */
+/*#define HAS_MALLOC_GOOD_SIZE	/ **/
+
+/* HAS_MEMMEM:
+ *	This symbol, if defined, indicates that the memmem routine is
+ *	available to return a pointer to the start of the first occurance
+ *	of a substring in a memory area (or NULL if not found).
+ */
+/*#define HAS_MEMMEM		/ **/
+
+/* HAS_MKDTEMP:
+ *	This symbol, if defined, indicates that the mkdtemp routine is
+ *	available to exclusively create a uniquely named temporary directory.
+ */
+/*#define HAS_MKDTEMP		/ **/
+
+/* HAS_MKSTEMPS:
+ *	This symbol, if defined, indicates that the mkstemps routine is
+ *	available to exclusively create and open a uniquely named
+ *	(with a suffix) temporary file.
+ */
+/*#define HAS_MKSTEMPS		/ **/
+
+/* HAS_MODFL:
+ *	This symbol, if defined, indicates that the modfl routine is
+ *	available to split a long double x into a fractional part f and
+ *	an integer part i such that |f| < 1.0 and (f + i) = x.
+ */
+/* HAS_MODFL_PROTO:
+ *	This symbol, if defined, indicates that the system provides
+ *	a prototype for the modfl() function.  Otherwise, it is up
+ *	to the program to supply one.
+ */
+/*#define HAS_MODFL		/ **/
+/*#define HAS_MODFL_PROTO		/ **/
+
+/* HAS_MPROTECT:
+ *	This symbol, if defined, indicates that the mprotect system call is
+ *	available to modify the access protection of a memory mapped file.
+ */
+/*#define HAS_MPROTECT		/ **/
+
+/* HAS_STRUCT_MSGHDR:
+ *	This symbol, if defined, indicates that the struct msghdr
+ *	is supported.
+ */
+/*#define HAS_STRUCT_MSGHDR	/ **/
+
+/* HAS_NAN:
+ *	This symbol, if defined, indicates that the nan routine is
+ *	available to generate NaN.
+ */
+/*#define HAS_NAN		/ **/
+
+/* HAS_NEARBYINT:
+ *	This symbol, if defined, indicates that the nearbyint routine is
+ *	available to return the integral value closest to (according to
+ *	the current rounding mode) to x.
+ */
+/*#define HAS_NEARBYINT		/ **/
+
+/* HAS_NEWLOCALE:
+ *	This symbol, if defined, indicates that the newlocale routine is
+ *	available to return a new locale object or modify an existing
+ *	locale object.
+ */
+/* HAS_FREELOCALE:
+ *	This symbol, if defined, indicates that the freelocale routine is
+ *	available to deallocates the resources associated with a locale object.
+ */
+/* HAS_USELOCALE:
+ *	This symbol, if defined, indicates that the uselocale routine is
+ *	available to set the current locale for the calling thread.
+ */
+/*#define	HAS_NEWLOCALE	/ **/
+/*#define	HAS_FREELOCALE	/ **/
+/*#define	HAS_USELOCALE	/ **/
+
+/* HAS_NEXTAFTER:
+ *	This symbol, if defined, indicates that the nextafter routine is
+ *	available to return the next machine representable double from
+ *	x in direction y.
+ */
+/*#define HAS_NEXTAFTER		/ **/
+
+/* HAS_NEXTTOWARD:
+ *	This symbol, if defined, indicates that the nexttoward routine is
+ *	available to return the next machine representable long double from
+ *	x in direction y.
+ */
+/*#define HAS_NEXTTOWARD		/ **/
+
+/* HAS_NL_LANGINFO:
+ *	This symbol, if defined, indicates that the nl_langinfo routine is
+ *	available to return local data.  You will also need <langinfo.h>
+ *	and therefore I_LANGINFO.
+ */
+/*#define HAS_NL_LANGINFO		/ **/
+
+/* HAS_OFF64_T:
+ *	This symbol will be defined if the C compiler supports off64_t.
+ */
+/*#define	HAS_OFF64_T    		/ **/
+
+/* HAS_PRCTL:
+ *	This symbol, if defined, indicates that the prctl routine is
+ *	available to set process title.
+ *	Note that there are at least two prctl variants: Linux and Irix.
+ *	While they are somewhat similar, they are incompatible.
+ */
+/* HAS_PRCTL_SET_NAME:
+ *	This symbol, if defined, indicates that the prctl routine is
+ *	available to set process title and supports PR_SET_NAME.
+ */
+/*#define HAS_PRCTL		/ **/
+/*#define HAS_PRCTL_SET_NAME		/ **/
+
+/* HAS_PROCSELFEXE:
+ *	This symbol is defined if PROCSELFEXE_PATH is a symlink
+ *	to the absolute pathname of the executing program.
+ */
+/* PROCSELFEXE_PATH:
+ *	If HAS_PROCSELFEXE is defined this symbol is the filename
+ *	of the symbolic link pointing to the absolute pathname of
+ *	the executing program.
+ */
+/*#define HAS_PROCSELFEXE	/ **/
+#if defined(HAS_PROCSELFEXE) && !defined(PROCSELFEXE_PATH)
+#define PROCSELFEXE_PATH		/**/
+#endif
+
+/* HAS_PTHREAD_ATTR_SETSCOPE:
+ *	This symbol, if defined, indicates that the pthread_attr_setscope
+ *	system call is available to set the contention scope attribute of
+ *	a thread attribute object.
+ */
+/*#define HAS_PTHREAD_ATTR_SETSCOPE		/ **/
+
+/* HAS_PTRDIFF_T:
+ *	This symbol will be defined if the C compiler supports ptrdiff_t.
+ */
+#define	HAS_PTRDIFF_T    		/**/
+
+/* HAS_READV:
+ *	This symbol, if defined, indicates that the readv routine is
+ *	available to do gather reads.  You will also need <sys/uio.h>
+ *	and there I_SYSUIO.
+ */
+/*#define HAS_READV		/ **/
+
+/* HAS_RECVMSG:
+ *	This symbol, if defined, indicates that the recvmsg routine is
+ *	available to send structured socket messages.
+ */
+/*#define HAS_RECVMSG		/ **/
+
+/* HAS_REMAINDER:
+ *	This symbol, if defined, indicates that the remainder routine is
+ *	available to return the floating-point remainder.
+ */
+/*#define HAS_REMAINDER		/ **/
+
+/* HAS_REMQUO:
+ *	This symbol, if defined, indicates that the remquo routine is
+ *	available to return the remainder and part of quotient.
+ */
+/*#define HAS_REMQUO		/ **/
+
+/* HAS_RINT:
+ *	This symbol, if defined, indicates that the rint routine is
+ *	available to return the nearest integral value to x as double
+ *	using the current rounding mode.
+ */
+/*#define HAS_RINT		/ **/
+
+/* HAS_ROUND:
+ *	This symbol, if defined, indicates that the round routine is
+ *	available to round to nearest integer, away from zero.
+ */
+/*#define HAS_ROUND		/ **/
+
+/* HAS_SBRK_PROTO:
+ *	This symbol, if defined, indicates that the system provides
+ *	a prototype for the sbrk() function.  Otherwise, it is up
+ *	to the program to supply one.  Good guesses are
+ *		extern void* sbrk(int);
+ *		extern void* sbrk(size_t);
+ */
+/*#define	HAS_SBRK_PROTO	/ **/
+
+/* HAS_SCALBN:
+ *	This symbol, if defined, indicates that the scalbn routine is
+ *	available to multiply floating-point number by integral power
+ *	of radix.
+ */
+/*#define HAS_SCALBN		/ **/
+
+/* HAS_SCALBNL:
+ *	This symbol, if defined, indicates that the scalbnl routine is
+ *	available.  If ilogbl is also present we can emulate frexpl.
+ */
+/*#define HAS_SCALBNL		/ **/
+
+/* HAS_SENDMSG:
+ *	This symbol, if defined, indicates that the sendmsg routine is
+ *	available to send structured socket messages.
+ */
+/*#define HAS_SENDMSG		/ **/
+
+/* HAS_SETITIMER:
+ *	This symbol, if defined, indicates that the setitimer routine is
+ *	available to set interval timers.
+ */
+/*#define HAS_SETITIMER		/ **/
+
+/* HAS_SETPROCTITLE:
+ *	This symbol, if defined, indicates that the setproctitle routine is
+ *	available to set process title.
+ */
+/*#define HAS_SETPROCTITLE		/ **/
+
+/* HAS_SIGNBIT:
+ *	This symbol, if defined, indicates that the signbit routine is
+ *	available to check if the given number has the sign bit set.
+ *	This should include correct testing of -0.0.  This will only be set
+ *	if the signbit() routine is safe to use with the NV type used internally
+ *	in perl.  Users should call Perl_signbit(), which will be #defined to
+ *	the system's signbit() function or macro if this symbol is defined.
+ */
+/*#define HAS_SIGNBIT		/ **/
+
+/* HAS_SIGPROCMASK:
+ *	This symbol, if defined, indicates that the sigprocmask
+ *	system call is available to examine or change the signal mask
+ *	of the calling process.
+ */
+/*#define HAS_SIGPROCMASK		/ **/
+
+/* USE_SITECUSTOMIZE:
+ *	This symbol, if defined, indicates that sitecustomize should
+ *	be used.
+ */
+#ifndef USE_SITECUSTOMIZE
+/*#define	USE_SITECUSTOMIZE		/ **/
+#endif
+
+/* HAS_SNPRINTF:
+ *	This symbol, if defined, indicates that the snprintf () library
+ *	function is available for use.
+ */
+/* HAS_VSNPRINTF:
+ *	This symbol, if defined, indicates that the vsnprintf () library
+ *	function is available for use.
+ */
+/*#define HAS_SNPRINTF	/ **/
+/*#define HAS_VSNPRINTF	/ **/
+
+/* HAS_SOCKATMARK:
+ *	This symbol, if defined, indicates that the sockatmark routine is
+ *	available to test whether a socket is at the out-of-band mark.
+ */
+/*#define HAS_SOCKATMARK		/ **/
+
+/* HAS_SOCKATMARK_PROTO:
+ *	This symbol, if defined, indicates that the system provides
+ *	a prototype for the sockatmark() function.  Otherwise, it is up
+ *	to the program to supply one.  A good guess is
+ *		extern int sockatmark(int);
+ */
+/*#define	HAS_SOCKATMARK_PROTO	/ **/
+
+/* HAS_SOCKS5_INIT:
+ *	This symbol, if defined, indicates that the socks5_init routine is
+ *	available to initialize SOCKS 5.
+ */
+/*#define HAS_SOCKS5_INIT		/ **/
+
+/* SPRINTF_RETURNS_STRLEN:
+ *	This variable defines whether sprintf returns the length of the string
+ *	(as per the ANSI spec). Some C libraries retain compatibility with
+ *	pre-ANSI C and return a pointer to the passed in buffer; for these
+ *	this variable will be undef.
+ */
+/*#define SPRINTF_RETURNS_STRLEN	/ **/
+
+/* HAS_SQRTL:
+ *	This symbol, if defined, indicates that the sqrtl routine is
+ *	available to do long double square roots.
+ */
+/*#define HAS_SQRTL		/ **/
+
+/* HAS_SETRESGID_PROTO:
+ *	This symbol, if defined, indicates that the system provides
+ *	a prototype for the setresgid() function.  Otherwise, it is up
+ *	to the program to supply one.  Good guesses are
+ *		extern int setresgid(uid_t ruid, uid_t euid, uid_t suid);
+ */
+/*#define	HAS_SETRESGID_PROTO	/ **/
+
+/* HAS_SETRESUID_PROTO:
+ *	This symbol, if defined, indicates that the system provides
+ *	a prototype for the setresuid() function.  Otherwise, it is up
+ *	to the program to supply one.  Good guesses are
+ *		extern int setresuid(uid_t ruid, uid_t euid, uid_t suid);
+ */
+/*#define	HAS_SETRESUID_PROTO	/ **/
+
+/* HAS_STRUCT_STATFS_F_FLAGS:
+ *	This symbol, if defined, indicates that the struct statfs
+ *	does have the f_flags member containing the mount flags of
+ *	the filesystem containing the file.
+ *	This kind of struct statfs is coming from <sys/mount.h> (BSD 4.3),
+ *	not from <sys/statfs.h> (SYSV).  Older BSDs (like Ultrix) do not
+ *	have statfs() and struct statfs, they have ustat() and getmnt()
+ *	with struct ustat and struct fs_data.
+ */
+/*#define HAS_STRUCT_STATFS_F_FLAGS		/ **/
+
+/* HAS_STRUCT_STATFS:
+ *	This symbol, if defined, indicates that the struct statfs
+ *	to do statfs() is supported.
+ */
+/*#define HAS_STRUCT_STATFS	/ **/
+
+/* HAS_FSTATVFS:
+ *	This symbol, if defined, indicates that the fstatvfs routine is
+ *	available to stat filesystems by file descriptors.
+ */
+/*#define HAS_FSTATVFS		/ **/
+
+/* HAS_STRFTIME:
+ *	This symbol, if defined, indicates that the strftime routine is
+ *	available to do time formatting.
+ */
+/*#define HAS_STRFTIME		/ **/
+
+/* HAS_STRLCAT:
+ *	This symbol, if defined, indicates that the strlcat () routine is
+ *	available to do string concatenation.
+ */
+/*#define HAS_STRLCAT		/ **/
+
+/* HAS_STRLCPY:
+ *	This symbol, if defined, indicates that the strlcpy () routine is
+ *	available to do string copying.
+ */
+/*#define HAS_STRLCPY		/ **/
+
+/* HAS_STRTOLD:
+ *	This symbol, if defined, indicates that the strtold routine is
+ *	available to convert strings to long doubles.
+ */
+/*#define HAS_STRTOLD		/ **/
+
+/* HAS_STRTOLL:
+ *	This symbol, if defined, indicates that the strtoll routine is
+ *	available to convert strings to long longs.
+ */
+/*#define HAS_STRTOLL		/ **/
+
+/* HAS_STRTOQ:
+ *	This symbol, if defined, indicates that the strtoq routine is
+ *	available to convert strings to long longs (quads).
+ */
+/*#define HAS_STRTOQ		/ **/
+
+/* HAS_STRTOULL:
+ *	This symbol, if defined, indicates that the strtoull routine is
+ *	available to convert strings to unsigned long longs.
+ */
+/*#define HAS_STRTOULL		/ **/
+
+/* HAS_STRTOUQ:
+ *	This symbol, if defined, indicates that the strtouq routine is
+ *	available to convert strings to unsigned long longs (quads).
+ */
+/*#define HAS_STRTOUQ		/ **/
+
+/* HAS_SYSCALL_PROTO:
+ *	This symbol, if defined, indicates that the system provides
+ *	a prototype for the syscall() function.  Otherwise, it is up
+ *	to the program to supply one.  Good guesses are
+ *		extern int syscall(int,  ...);
+ *		extern int syscall(long, ...);
+ */
+/*#define	HAS_SYSCALL_PROTO	/ **/
+
+/* HAS_TELLDIR_PROTO:
+ *	This symbol, if defined, indicates that the system provides
+ *	a prototype for the telldir() function.  Otherwise, it is up
+ *	to the program to supply one.  A good guess is
+ *		extern long telldir(DIR*);
+ */
+/*#define	HAS_TELLDIR_PROTO	/ **/
+
+/* HAS_TGAMMA:
+ *	This symbol, if defined, indicates that the tgamma routine is
+ *	available to do the gamma function. See also HAS_LGAMMA.
+ */
+/*#define HAS_TGAMMA		/ **/
+
+/* HAS_CTIME64:
+ *	This symbol, if defined, indicates that the ctime64 () routine is
+ *	available to do the 64bit variant of ctime ()
+ */
+/* HAS_LOCALTIME64:
+ *	This symbol, if defined, indicates that the localtime64 () routine is
+ *	available to do the 64bit variant of localtime ()
+ */
+/* HAS_GMTIME64:
+ *	This symbol, if defined, indicates that the gmtime64 () routine is
+ *	available to do the 64bit variant of gmtime ()
+ */
+/* HAS_MKTIME64:
+ *	This symbol, if defined, indicates that the mktime64 () routine is
+ *	available to do the 64bit variant of mktime ()
+ */
+/* HAS_DIFFTIME64:
+ *	This symbol, if defined, indicates that the difftime64 () routine is
+ *	available to do the 64bit variant of difftime ()
+ */
+/* HAS_ASCTIME64:
+ *	This symbol, if defined, indicates that the asctime64 () routine is
+ *	available to do the 64bit variant of asctime ()
+ */
+/*#define	HAS_CTIME64		/ **/
+/*#define	HAS_LOCALTIME64		/ **/
+/*#define	HAS_GMTIME64		/ **/
+/*#define	HAS_MKTIME64		/ **/
+/*#define	HAS_DIFFTIME64		/ **/
+/*#define	HAS_ASCTIME64		/ **/
+
+/* HAS_TIMEGM:
+ *	This symbol, if defined, indicates that the timegm routine is
+ *	available to do the opposite of gmtime ()
+ */
+/*#define HAS_TIMEGM		/ **/
+
+/* HAS_TRUNC:
+ *	This symbol, if defined, indicates that the trunc routine is
+ *	available to round doubles towards zero.
+ */
+/*#define HAS_TRUNC		/ **/
+
+/* HAS_TRUNCL:
+ *	This symbol, if defined, indicates that the truncl routine is
+ *	available. If copysignl is also present we can emulate modfl.
+ */
+/*#define HAS_TRUNCL		/ **/
+
+/* U32_ALIGNMENT_REQUIRED:
+ *	This symbol, if defined, indicates that you must access
+ *	character data through U32-aligned pointers.
+ */
+#ifndef U32_ALIGNMENT_REQUIRED
+#define U32_ALIGNMENT_REQUIRED	/**/
+#endif
+
+/* HAS_UALARM:
+ *	This symbol, if defined, indicates that the ualarm routine is
+ *	available to do alarms with microsecond granularity.
+ */
+/*#define HAS_UALARM		/ **/
+
+/* HAS_UNORDERED:
+ *	This symbol, if defined, indicates that the unordered routine is
+ *	available to check whether two doubles are unordered
+ *	(effectively: whether either of them is NaN)
+ */
+/*#define HAS_UNORDERED		/ **/
+
+/* HAS_UNSETENV:
+ *	This symbol, if defined, indicates that the unsetenv () routine is
+ *	available for use.
+ */
+/*#define HAS_UNSETENV		/ **/
+
+/* HAS_USLEEP_PROTO:
+ *	This symbol, if defined, indicates that the system provides
+ *	a prototype for the usleep() function.  Otherwise, it is up
+ *	to the program to supply one.  A good guess is
+ *		extern int usleep(useconds_t);
+ */
+/*#define	HAS_USLEEP_PROTO	/ **/
+
+/* HAS_USTAT:
+ *	This symbol, if defined, indicates that the ustat system call is
+ *	available to query file system statistics by dev_t.
+ */
+/*#define HAS_USTAT		/ **/
+
+/* HAS_WCSCMP:
+ *	This symbol, if defined, indicates that the wcscmp routine is
+ *	available to compare two wide character strings.
+ */
+/*#define HAS_WCSCMP	/ **/
+
+/* HAS_WCSXFRM:
+ *	This symbol, if defined, indicates that the wcsxfrm routine is
+ *	available to tranform a wide character string for wcscmp().
+ */
+/*#define HAS_WCSXFRM	/ **/
+
+/* HAS_WRITEV:
+ *	This symbol, if defined, indicates that the writev routine is
+ *	available to do scatter writes.
+ */
+/*#define HAS_WRITEV		/ **/
+
+/* USE_DYNAMIC_LOADING:
+ *	This symbol, if defined, indicates that dynamic loading of
+ *	some sort is available.
+ */
+/*#define USE_DYNAMIC_LOADING		/ **/
+
+/* FFLUSH_NULL:
+ *	This symbol, if defined, tells that fflush(NULL) correctly
+ *	flushes all pending stdio output without side effects. In
+ *	particular, on some platforms calling fflush(NULL) *still*
+ *	corrupts STDIN if it is a pipe.
+ */
+/* FFLUSH_ALL:
+ *	This symbol, if defined, tells that to flush
+ *	all pending stdio output one must loop through all
+ *	the stdio file handles stored in an array and fflush them.
+ *	Note that if fflushNULL is defined, fflushall will not
+ *	even be probed for and will be left undefined.
+ */
+/*#define	FFLUSH_NULL 		/ **/
+/*#define	FFLUSH_ALL 		/ **/
+
+/* I_ASSERT:
+ *	This symbol, if defined, indicates that <assert.h> exists and
+ *	could be included by the C program to get the assert() macro.
+ */
+#define	I_ASSERT		/**/
+
+/* I_BFD:
+ *	This symbol, if defined, indicates that <bfd.h> exists and
+ *	can be included.
+ */
+/*#define	I_BFD		/ **/
+
+/* I_CRYPT:
+ *	This symbol, if defined, indicates that <crypt.h> exists and
+ *	should be included.
+ */
+/*#define	I_CRYPT		/ **/
+
+/* DB_Prefix_t:
+ *	This symbol contains the type of the prefix structure element
+ *	in the <db.h> header file.  In older versions of DB, it was
+ *	int, while in newer ones it is u_int32_t.
+ */
+/* DB_Hash_t:
+ *	This symbol contains the type of the prefix structure element
+ *	in the <db.h> header file.  In older versions of DB, it was
+ *	int, while in newer ones it is size_t.
+ */
+/* DB_VERSION_MAJOR_CFG:
+ *	This symbol, if defined, defines the major version number of
+ *	Berkeley DB found in the <db.h> header when Perl was configured.
+ */
+/* DB_VERSION_MINOR_CFG:
+ *	This symbol, if defined, defines the minor version number of
+ *	Berkeley DB found in the <db.h> header when Perl was configured.
+ *	For DB version 1 this is always 0.
+ */
+/* DB_VERSION_PATCH_CFG:
+ *	This symbol, if defined, defines the patch version number of
+ *	Berkeley DB found in the <db.h> header when Perl was configured.
+ *	For DB version 1 this is always 0.
+ */
+#define DB_Hash_t	u_int32_t		/**/
+#define DB_Prefix_t	size_t  	/**/
+#define DB_VERSION_MAJOR_CFG	0  	/**/
+#define DB_VERSION_MINOR_CFG	0  	/**/
+#define DB_VERSION_PATCH_CFG	0  	/**/
+
+/* I_FENV:
+ *	This symbol, if defined, indicates to the C program that it should
+ *	include <fenv.h> to get the floating point environment definitions.
+ */
+/*#define I_FENV		/ **/
+
+/* I_FP:
+ *	This symbol, if defined, indicates that <fp.h> exists and
+ *	should be included.
+ */
+/*#define	I_FP		/ **/
+
+/* I_FP_CLASS:
+ *	This symbol, if defined, indicates that <fp_class.h> exists and
+ *	should be included.
+ */
+/*#define	I_FP_CLASS		/ **/
+
+/* I_IEEEFP:
+ *	This symbol, if defined, indicates that <ieeefp.h> exists and
+ *	should be included.
+ */
+/*#define	I_IEEEFP		/ **/
+
+/* I_INTTYPES:
+ *     This symbol, if defined, indicates to the C program that it should
+ *     include <inttypes.h>.
+ */
+/*#define   I_INTTYPES                / **/
+
+/* I_LANGINFO:
+ *	This symbol, if defined, indicates that <langinfo.h> exists and
+ *	should be included.
+ */
+/*#define	I_LANGINFO		/ **/
+
+/* I_LIBUTIL:
+ *	This symbol, if defined, indicates that <libutil.h> exists and
+ *	should be included.
+ */
+/*#define	I_LIBUTIL		/ **/
+
+/* I_MALLOCMALLOC:
+ *	This symbol, if defined, indicates to the C program that it should
+ *	include <malloc/malloc.h>.
+ */
+/*#define I_MALLOCMALLOC		/ **/
+
+/* I_MNTENT:
+ *	This symbol, if defined, indicates that <mntent.h> exists and
+ *	should be included.
+ */
+/*#define	I_MNTENT		/ **/
+
+/* I_NETINET_TCP:
+ *     This symbol, if defined, indicates to the C program that it should
+ *     include <netinet/tcp.h>.
+ */
+/*#define   I_NETINET_TCP                / **/
+
+/* I_POLL:
+ *	This symbol, if defined, indicates that <poll.h> exists and
+ *	should be included. (see also HAS_POLL)
+ */
+/*#define	I_POLL		/ **/
+
+/* I_PROT:
+ *	This symbol, if defined, indicates that <prot.h> exists and
+ *	should be included.
+ */
+/*#define	I_PROT		/ **/
+
+/* I_QUADMATH:
+ *	This symbol, if defined, indicates that <quadmath.h> exists and
+ *	should be included.
+ */
+/*#define	I_QUADMATH		/ **/
+
+/* I_SHADOW:
+ *	This symbol, if defined, indicates that <shadow.h> exists and
+ *	should be included.
+ */
+/*#define	I_SHADOW		/ **/
+
+/* I_SOCKS:
+ *	This symbol, if defined, indicates that <socks.h> exists and
+ *	should be included.
+ */
+/*#define	I_SOCKS		/ **/
+
+/* I_STDBOOL:
+ *	This symbol, if defined, indicates that <stdbool.h> exists and
+ *	can be included.
+ */
+/*#define	I_STDBOOL		/ **/
+
+/* I_STDINT:
+ *	This symbol, if defined, indicates that <stdint.h> exists and
+ *	should be included.
+ */
+/*#define I_STDINT		/ **/
+
+/* I_SUNMATH:
+ *	This symbol, if defined, indicates that <sunmath.h> exists and
+ *	should be included.
+ */
+/*#define	I_SUNMATH		/ **/
+
+/* I_SYSLOG:
+ *	This symbol, if defined, indicates that <syslog.h> exists and
+ *	should be included.
+ */
+/*#define	I_SYSLOG		/ **/
+
+/* I_SYSMODE:
+ *	This symbol, if defined, indicates that <sys/mode.h> exists and
+ *	should be included.
+ */
+/*#define	I_SYSMODE		/ **/
+
+/* I_SYS_MOUNT:
+ *	This symbol, if defined, indicates that <sys/mount.h> exists and
+ *	should be included.
+ */
+/*#define	I_SYS_MOUNT		/ **/
+
+/* I_SYS_STATFS:
+ *	This symbol, if defined, indicates that <sys/statfs.h> exists.
+ */
+/*#define	I_SYS_STATFS		/ **/
+
+/* I_SYS_STATVFS:
+ *	This symbol, if defined, indicates that <sys/statvfs.h> exists and
+ *	should be included.
+ */
+/*#define	I_SYS_STATVFS		/ **/
+
+/* I_SYSUTSNAME:
+ *	This symbol, if defined, indicates that <sys/utsname.h> exists and
+ *	should be included.
+ */
+/*#define	I_SYSUTSNAME		/ **/
+
+/* I_SYS_VFS:
+ *	This symbol, if defined, indicates that <sys/vfs.h> exists and
+ *	should be included.
+ */
+/*#define	I_SYS_VFS		/ **/
+
+/* I_USTAT:
+ *	This symbol, if defined, indicates that <ustat.h> exists and
+ *	should be included.
+ */
+/*#define	I_USTAT		/ **/
+
+/* DOUBLEINFBYTES:
+ *	This symbol, if defined, is a comma-separated list of
+ *	hexadecimal bytes for the double precision infinity.
+ */
+/* DOUBLENANBYTES:
+ *	This symbol, if defined, is a comma-separated list of
+ *	hexadecimal bytes (0xHH) for the double precision not-a-number.
+ */
+/* LONGDBLINFBYTES:
+ *	This symbol, if defined, is a comma-separated list of
+ *	hexadecimal bytes for the long double precision infinity.
+ */
+/* LONGDBLNANBYTES:
+ *	This symbol, if defined, is a comma-separated list of
+ *	hexadecimal bytes (0xHH) for the long double precision not-a-number.
+ */
+#define DOUBLEINFBYTES  0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xf0, 0x7f		/**/
+#define DOUBLENANBYTES  0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xf8, 0x7f		/**/
+#define LONGDBLINFBYTES 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0x7f, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00		/**/
+#define LONGDBLNANBYTES 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x80, 0xff, 0x7f, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00		/**/
+
+/* PERL_PRIfldbl:
+ *	This symbol, if defined, contains the string used by stdio to
+ *	format long doubles (format 'f') for output.
+ */
+/* PERL_PRIgldbl:
+ *	This symbol, if defined, contains the string used by stdio to
+ *	format long doubles (format 'g') for output.
+ */
+/* PERL_PRIeldbl:
+ *	This symbol, if defined, contains the string used by stdio to
+ *	format long doubles (format 'e') for output.
+ */
+/* PERL_SCNfldbl:
+ *	This symbol, if defined, contains the string used by stdio to
+ *	format long doubles (format 'f') for input.
+ */
+/* DOUBLEKIND:
+ *	DOUBLEKIND will be one of
+ *	DOUBLE_IS_IEEE_754_32_BIT_LITTLE_ENDIAN
+ *	DOUBLE_IS_IEEE_754_32_BIT_BIG_ENDIAN
+ *	DOUBLE_IS_IEEE_754_64_BIT_LITTLE_ENDIAN
+ *	DOUBLE_IS_IEEE_754_64_BIT_BIG_ENDIAN
+ *	DOUBLE_IS_IEEE_754_128_BIT_LITTLE_ENDIAN
+ *	DOUBLE_IS_IEEE_754_128_BIT_BIG_ENDIAN
+ *	DOUBLE_IS_IEEE_754_64_BIT_MIXED_ENDIAN_LE_BE
+ *	DOUBLE_IS_IEEE_754_64_BIT_MIXED_ENDIAN_BE_LE
+ *	DOUBLE_IS_UNKNOWN_FORMAT
+ */
+#define DOUBLEKIND 3		/**/
+#define DOUBLE_IS_IEEE_754_32_BIT_LITTLE_ENDIAN	1
+#define DOUBLE_IS_IEEE_754_32_BIT_BIG_ENDIAN	2
+#define DOUBLE_IS_IEEE_754_64_BIT_LITTLE_ENDIAN	3
+#define DOUBLE_IS_IEEE_754_64_BIT_BIG_ENDIAN	4
+#define DOUBLE_IS_IEEE_754_128_BIT_LITTLE_ENDIAN	5
+#define DOUBLE_IS_IEEE_754_128_BIT_BIG_ENDIAN	6
+#define DOUBLE_IS_IEEE_754_64_BIT_MIXED_ENDIAN_LE_BE	7
+#define DOUBLE_IS_IEEE_754_64_BIT_MIXED_ENDIAN_BE_LE	8
+#define DOUBLE_IS_UNKNOWN_FORMAT		-1
+/*#define PERL_PRIfldbl	"llf"	/ **/
+/*#define PERL_PRIgldbl	"llg"	/ **/
+/*#define PERL_PRIeldbl	"lle"	/ **/
+/*#define PERL_SCNfldbl	"llf"	/ **/
+
+/* DOUBLEMANTBITS:
+ *	This symbol, if defined, tells how many mantissa bits
+ *	there are in double precision floating point format.
+ *	Note that this is usually DBL_MANT_DIG minus one, since
+ *	with the standard IEEE 754 formats DBL_MANT_DIG includes
+ *	the implicit bit, which doesn't really exist.
+ */
+/* LONGDBLMANTBITS:
+ *	This symbol, if defined, tells how many mantissa bits
+ *	there are in long double precision floating point format.
+ *	Note that this can be LDBL_MANT_DIG minus one,
+ *	since LDBL_MANT_DIG can include the IEEE 754 implicit bit.
+ *	The common x86-style 80-bit long double does not have
+ *	an implicit bit.
+ */
+/* NVMANTBITS:
+ *	This symbol, if defined, tells how many mantissa bits
+ *	(not including implicit bit) there are in a Perl NV.
+ *	This depends on which floating point type was chosen.
+ */
+#define DOUBLEMANTBITS  52
+#define LONGDBLMANTBITS 64
+#define NVMANTBITS      52
+
+/* NEED_VA_COPY:
+ *	This symbol, if defined, indicates that the system stores
+ *	the variable argument list datatype, va_list, in a format
+ *	that cannot be copied by simple assignment, so that some
+ *	other means must be used when copying is required.
+ *	As such systems vary in their provision (or non-provision)
+ *	of copying mechanisms, handy.h defines a platform-
+ *	independent macro, Perl_va_copy(src, dst), to do the job.
+ */
+#define	NEED_VA_COPY		/**/
+
+/* IVTYPE:
+ *	This symbol defines the C type used for Perl's IV.
+ */
+/* UVTYPE:
+ *	This symbol defines the C type used for Perl's UV.
+ */
+/* I8TYPE:
+ *	This symbol defines the C type used for Perl's I8.
+ */
+/* U8TYPE:
+ *	This symbol defines the C type used for Perl's U8.
+ */
+/* I16TYPE:
+ *	This symbol defines the C type used for Perl's I16.
+ */
+/* U16TYPE:
+ *	This symbol defines the C type used for Perl's U16.
+ */
+/* I32TYPE:
+ *	This symbol defines the C type used for Perl's I32.
+ */
+/* U32TYPE:
+ *	This symbol defines the C type used for Perl's U32.
+ */
+/* I64TYPE:
+ *	This symbol defines the C type used for Perl's I64.
+ */
+/* U64TYPE:
+ *	This symbol defines the C type used for Perl's U64.
+ */
+/* NVTYPE:
+ *	This symbol defines the C type used for Perl's NV.
+ */
+/* IVSIZE:
+ *	This symbol contains the sizeof(IV).
+ */
+/* UVSIZE:
+ *	This symbol contains the sizeof(UV).
+ */
+/* I8SIZE:
+ *	This symbol contains the sizeof(I8).
+ */
+/* U8SIZE:
+ *	This symbol contains the sizeof(U8).
+ */
+/* I16SIZE:
+ *	This symbol contains the sizeof(I16).
+ */
+/* U16SIZE:
+ *	This symbol contains the sizeof(U16).
+ */
+/* I32SIZE:
+ *	This symbol contains the sizeof(I32).
+ */
+/* U32SIZE:
+ *	This symbol contains the sizeof(U32).
+ */
+/* I64SIZE:
+ *	This symbol contains the sizeof(I64).
+ */
+/* U64SIZE:
+ *	This symbol contains the sizeof(U64).
+ */
+/* NVSIZE:
+ *	This symbol contains the sizeof(NV).
+ *	Note that some floating point formats have unused bytes.
+ *	The most notable example is the x86* 80-bit extended precision
+ *	which comes in byte sizes of 12 and 16 (for 32 and 64 bit
+ *	platforms, respectively), but which only uses 10 bytes.
+ *	Perl compiled with -Duselongdouble on x86* is like this.
+ */
+/* NV_PRESERVES_UV:
+ *	This symbol, if defined, indicates that a variable of type NVTYPE
+ *	can preserve all the bits of a variable of type UVTYPE.
+ */
+/* NV_PRESERVES_UV_BITS:
+ *	This symbol contains the number of bits a variable of type NVTYPE
+ *	can preserve of a variable of type UVTYPE.
+ */
+/* NV_OVERFLOWS_INTEGERS_AT:
+ *	This symbol gives the largest integer value that NVs can hold. This
+ *	value + 1.0 cannot be stored accurately. It is expressed as constant
+ *	floating point expression to reduce the chance of decimal/binary
+ *	conversion issues. If it can not be determined, the value 0 is given.
+ */
+/* NV_ZERO_IS_ALLBITS_ZERO:
+ *	This symbol, if defined, indicates that a variable of type NVTYPE
+ *	stores 0.0 in memory as all bits zero.
+ */
+#define	IVTYPE		long		/**/
+#define	UVTYPE		unsigned long		/**/
+#define	I8TYPE		signed char		/**/
+#define	U8TYPE		unsigned char		/**/
+#define	I16TYPE		short	/**/
+#define	U16TYPE		unsigned short	/**/
+#define	I32TYPE		long	/**/
+#define	U32TYPE		unsigned long	/**/
+#ifdef HAS_QUAD
+#define	I64TYPE		int64_t	/**/
+#define	U64TYPE		uint64_t	/**/
+#endif
+#define	NVTYPE		double		/**/
+#define	IVSIZE		4		/**/
+#define	UVSIZE		4		/**/
+#define	I8SIZE		1		/**/
+#define	U8SIZE		1		/**/
+#define	I16SIZE		2	/**/
+#define	U16SIZE		2	/**/
+#define	I32SIZE		4	/**/
+#define	U32SIZE		4	/**/
+#ifdef HAS_QUAD
+#define	I64SIZE		8	/**/
+#define	U64SIZE		8	/**/
+#endif
+#define	NVSIZE		8		/**/
+#undef	NV_PRESERVES_UV
+#define	NV_PRESERVES_UV_BITS	0
+#define	NV_OVERFLOWS_INTEGERS_AT	256.0*256.0*256.0*256.0*256.0*256.0*2.0*2.0*2.0*2.0*2.0
+#undef	NV_ZERO_IS_ALLBITS_ZERO
+#if UVSIZE == 8
+#   ifdef BYTEORDER
+#       if BYTEORDER == 0x1234
+#           undef BYTEORDER
+#           define BYTEORDER 0x12345678
+#       else
+#           if BYTEORDER == 0x4321
+#               undef BYTEORDER
+#               define BYTEORDER 0x87654321
+#           endif
+#       endif
+#   endif
+#endif
+
+/* IVdf:
+ *	This symbol defines the format string used for printing a Perl IV
+ *	as a signed decimal integer.
+ */
+/* UVuf:
+ *	This symbol defines the format string used for printing a Perl UV
+ *	as an unsigned decimal integer.
+ */
+/* UVof:
+ *	This symbol defines the format string used for printing a Perl UV
+ *	as an unsigned octal integer.
+ */
+/* UVxf:
+ *	This symbol defines the format string used for printing a Perl UV
+ *	as an unsigned hexadecimal integer in lowercase abcdef.
+ */
+/* UVXf:
+ *	This symbol defines the format string used for printing a Perl UV
+ *	as an unsigned hexadecimal integer in uppercase ABCDEF.
+ */
+/* NVef:
+ *	This symbol defines the format string used for printing a Perl NV
+ *	using %e-ish floating point format.
+ */
+/* NVff:
+ *	This symbol defines the format string used for printing a Perl NV
+ *	using %f-ish floating point format.
+ */
+/* NVgf:
+ *	This symbol defines the format string used for printing a Perl NV
+ *	using %g-ish floating point format.
+ */
+#define	IVdf		"ld"		/**/
+#define	UVuf		"lu"		/**/
+#define	UVof		"lo"		/**/
+#define	UVxf		"lx"		/**/
+#define	UVXf		"lX"		/**/
+#define	NVef		"e"		/**/
+#define	NVff		"f"		/**/
+#define	NVgf		"g"		/**/
+
+/* SELECT_MIN_BITS:
+ *	This symbol holds the minimum number of bits operated by select.
+ *	That is, if you do select(n, ...), how many bits at least will be
+ *	cleared in the masks if some activity is detected.  Usually this
+ *	is either n or 32*ceil(n/32), especially many little-endians do
+ *	the latter.  This is only useful if you have select(), naturally.
+ */
+#define SELECT_MIN_BITS 	32	/**/
+
+/* ST_INO_SIZE:
+ *	This variable contains the size of struct stat's st_ino in bytes.
+ */
+/* ST_INO_SIGN:
+ *	This symbol holds the signedness of struct stat's st_ino.
+ *	1 for unsigned, -1 for signed.
+ */
+#define ST_INO_SIGN 1	/* st_ino sign */
+#define ST_INO_SIZE 4	/* st_ino size */
+
+/* STARTPERL:
+ *	This variable contains the string to put in front of a perl
+ *	script to make sure (one hopes) that it runs with perl and not
+ *	some shell.
+ */
+#define STARTPERL "#!perl"		/**/
+
+/* HAS_STDIO_STREAM_ARRAY:
+ *	This symbol, if defined, tells that there is an array
+ *	holding the stdio streams.
+ */
+/* STDIO_STREAM_ARRAY:
+ *	This symbol tells the name of the array holding the stdio streams.
+ *	Usual values include _iob, __iob, and __sF.
+ */
+/*#define	HAS_STDIO_STREAM_ARRAY	/ **/
+#ifdef HAS_STDIO_STREAM_ARRAY
+#define STDIO_STREAM_ARRAY	
+#endif
+
+/* GMTIME_MAX:
+ *	This symbol contains the maximum value for the time_t offset that
+ *	the system function gmtime () accepts, and defaults to 0
+ */
+/* GMTIME_MIN:
+ *	This symbol contains the minimum value for the time_t offset that
+ *	the system function gmtime () accepts, and defaults to 0
+ */
+/* LOCALTIME_MAX:
+ *	This symbol contains the maximum value for the time_t offset that
+ *	the system function localtime () accepts, and defaults to 0
+ */
+/* LOCALTIME_MIN:
+ *	This symbol contains the minimum value for the time_t offset that
+ *	the system function localtime () accepts, and defaults to 0
+ */
+#define GMTIME_MAX		2147483647	/**/
+#define GMTIME_MIN		0	/**/
+#define LOCALTIME_MAX	2147483647	/**/
+#define LOCALTIME_MIN	0	/**/
+
+/* USE_64_BIT_INT:
+ *	This symbol, if defined, indicates that 64-bit integers should
+ *	be used when available.  If not defined, the native integers
+ *	will be employed (be they 32 or 64 bits).  The minimal possible
+ *	64-bitness is used, just enough to get 64-bit integers into Perl.
+ *	This may mean using for example "long longs", while your memory
+ *	may still be limited to 2 gigabytes.
+ */
+/* USE_64_BIT_ALL:
+ *	This symbol, if defined, indicates that 64-bit integers should
+ *	be used when available.  If not defined, the native integers
+ *	will be used (be they 32 or 64 bits).  The maximal possible
+ *	64-bitness is employed: LP64 or ILP64, meaning that you will
+ *	be able to use more than 2 gigabytes of memory.  This mode is
+ *	even more binary incompatible than USE_64_BIT_INT. You may not
+ *	be able to run the resulting executable in a 32-bit CPU at all or
+ *	you may need at least to reboot your OS to 64-bit mode.
+ */
+#ifndef USE_64_BIT_INT
+/*#define	USE_64_BIT_INT		/ **/
+#endif
+#ifndef USE_64_BIT_ALL
+/*#define	USE_64_BIT_ALL		/ **/
+#endif
+
+/* USE_CBACKTRACE:
+ *	This symbol, if defined, indicates that Perl should
+ *	be built with support for backtrace.
+ */
+/*#define USE_CBACKTRACE		/ **/
+
+/* USE_DTRACE:
+ *	This symbol, if defined, indicates that Perl should
+ *	be built with support for DTrace.
+ */
+/*#define USE_DTRACE		/ **/
+
+/* USE_FAST_STDIO:
+ *	This symbol, if defined, indicates that Perl should
+ *	be built to use 'fast stdio'.
+ *	Defaults to define in Perls 5.8 and earlier, to undef later.
+ */
+#ifndef USE_FAST_STDIO
+/*#define	USE_FAST_STDIO		/ **/
+#endif
+
+/* USE_KERN_PROC_PATHNAME:
+ *	This symbol, if defined, indicates that we can use sysctl with
+ *	KERN_PROC_PATHNAME to get a full path for the executable, and hence
+ * 	convert $^X to an absolute path.
+ */
+/*#define USE_KERN_PROC_PATHNAME	/ **/
+
+/* USE_LARGE_FILES:
+ *	This symbol, if defined, indicates that large file support
+ *	should be used when available.
+ */
+#ifndef USE_LARGE_FILES
+/*#define	USE_LARGE_FILES		/ **/
+#endif
+
+/* USE_LONG_DOUBLE:
+ *	This symbol, if defined, indicates that long doubles should
+ *	be used when available.
+ */
+#ifndef USE_LONG_DOUBLE
+/*#define	USE_LONG_DOUBLE		/ **/
+#endif
+
+/* USE_MORE_BITS:
+ *	This symbol, if defined, indicates that 64-bit interfaces and
+ *	long doubles should be used when available.
+ */
+#ifndef USE_MORE_BITS
+/*#define	USE_MORE_BITS		/ **/
+#endif
+
+/* MULTIPLICITY:
+ *	This symbol, if defined, indicates that Perl should
+ *	be built to use multiplicity.
+ */
+#ifndef MULTIPLICITY
+/*#define	MULTIPLICITY		/ **/
+#endif
+
+/* USE_NSGETEXECUTABLEPATH:
+ *	This symbol, if defined, indicates that we can use _NSGetExecutablePath
+ *	and realpath to get a full path for the executable, and hence convert
+ *	$^X to an absolute path.
+ */
+/*#define USE_NSGETEXECUTABLEPATH	/ **/
+
+/* USE_PERLIO:
+ *	This symbol, if defined, indicates that the PerlIO abstraction should
+ *	be used throughout.  If not defined, stdio should be
+ *	used in a fully backward compatible manner.
+ */
+#ifndef USE_PERLIO
+/*#define	USE_PERLIO		/ **/
+#endif
+
+/* USE_QUADMATH:
+ *	This symbol, if defined, indicates that the quadmath library should
+ *	be used when available.
+ */
+#ifndef USE_QUADMATH
+/*#define	USE_QUADMATH		/ **/
+#endif
+
+/* USE_SOCKS:
+ *	This symbol, if defined, indicates that Perl should
+ *	be built to use socks.
+ */
+#ifndef USE_SOCKS
+/*#define	USE_SOCKS		/ **/
+#endif
+
+/* HAS_DRAND48_PROTO:
+ *	This symbol, if defined, indicates that the system provides
+ *	a prototype for the drand48() function.  Otherwise, it is up
+ *	to the program to supply one.  A good guess is
+ *		extern double drand48(void);
+ */
+/*#define	HAS_DRAND48_PROTO	/ **/
+
+/* HAS_GETHOST_PROTOS:
+ *	This symbol, if defined, indicates that <netdb.h> includes
+ *	prototypes for gethostent(), gethostbyname(), and
+ *	gethostbyaddr().  Otherwise, it is up to the program to guess
+ *	them.  See netdbtype.U for probing for various Netdb_xxx_t types.
+ */
+/*#define	HAS_GETHOST_PROTOS	/ **/
+
+/* HAS_GETNET_PROTOS:
+ *	This symbol, if defined, indicates that <netdb.h> includes
+ *	prototypes for getnetent(), getnetbyname(), and
+ *	getnetbyaddr().  Otherwise, it is up to the program to guess
+ *	them.  See netdbtype.U for probing for various Netdb_xxx_t types.
+ */
+/*#define	HAS_GETNET_PROTOS	/ **/
+
+/* HAS_GETPROTO_PROTOS:
+ *	This symbol, if defined, indicates that <netdb.h> includes
+ *	prototypes for getprotoent(), getprotobyname(), and
+ *	getprotobyaddr().  Otherwise, it is up to the program to guess
+ *	them.  See netdbtype.U for probing for various Netdb_xxx_t types.
+ */
+/*#define	HAS_GETPROTO_PROTOS	/ **/
+
+/* HAS_GETSERV_PROTOS:
+ *	This symbol, if defined, indicates that <netdb.h> includes
+ *	prototypes for getservent(), getservbyname(), and
+ *	getservbyaddr().  Otherwise, it is up to the program to guess
+ *	them.  See netdbtype.U for probing for various Netdb_xxx_t types.
+ */
+/*#define	HAS_GETSERV_PROTOS	/ **/
+
+/* HAS_LSEEK_PROTO:
+ *	This symbol, if defined, indicates that the system provides
+ *	a prototype for the lseek() function.  Otherwise, it is up
+ *	to the program to supply one.  A good guess is
+ *		extern off_t lseek(int, off_t, int);
+ */
+/*#define	HAS_LSEEK_PROTO	/ **/
+
+/* Netdb_host_t:
+ *	This symbol holds the type used for the 1st argument
+ *	to gethostbyaddr().
+ */
+/* Netdb_hlen_t:
+ *	This symbol holds the type used for the 2nd argument
+ *	to gethostbyaddr().
+ */
+/* Netdb_name_t:
+ *	This symbol holds the type used for the argument to
+ *	gethostbyname().
+ */
+/* Netdb_net_t:
+ *	This symbol holds the type used for the 1st argument to
+ *	getnetbyaddr().
+ */
+#define Netdb_host_t		const char * /**/
+#define Netdb_hlen_t		int /**/
+#define Netdb_name_t		const char * /**/
+#define Netdb_net_t		unsigned long /**/
+
+/* Select_fd_set_t:
+ *	This symbol holds the type used for the 2nd, 3rd, and 4th
+ *	arguments to select.  Usually, this is 'fd_set *', if HAS_FD_SET
+ *	is defined, and 'int *' otherwise.  This is only useful if you
+ *	have select(), of course.
+ */
+#define Select_fd_set_t 	int	/**/
+
+/* Sock_size_t:
+ *	This symbol holds the type used for the size argument of
+ *	various socket calls (just the base type, not the pointer-to).
+ */
+#define Sock_size_t		int /**/
+
+/* ARCHNAME:
+ *	This symbol holds a string representing the architecture name.
+ *	It may be used to construct an architecture-dependant pathname
+ *	where library files may be held under a private library, for
+ *	instance.
+ */
+#define ARCHNAME "unknown"		/**/
+
+/* HAS_ASCTIME_R:
+ *	This symbol, if defined, indicates that the asctime_r routine
+ *	is available to asctime re-entrantly.
+ */
+/* ASCTIME_R_PROTO:
+ *	This symbol encodes the prototype of asctime_r.
+ *	It is zero if d_asctime_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_asctime_r
+ *	is defined.
+ */
+/*#define HAS_ASCTIME_R	   / **/
+#define ASCTIME_R_PROTO 0	   /**/
+
+/* HAS_CRYPT_R:
+ *	This symbol, if defined, indicates that the crypt_r routine
+ *	is available to crypt re-entrantly.
+ */
+/* CRYPT_R_PROTO:
+ *	This symbol encodes the prototype of crypt_r.
+ *	It is zero if d_crypt_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_crypt_r
+ *	is defined.
+ */
+/*#define HAS_CRYPT_R	   / **/
+#define CRYPT_R_PROTO 0	   /**/
+
+/* HAS_CTERMID_R:
+ *	This symbol, if defined, indicates that the ctermid_r routine
+ *	is available to ctermid re-entrantly.
+ */
+/* CTERMID_R_PROTO:
+ *	This symbol encodes the prototype of ctermid_r.
+ *	It is zero if d_ctermid_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_ctermid_r
+ *	is defined.
+ */
+/*#define HAS_CTERMID_R	   / **/
+#define CTERMID_R_PROTO 0	   /**/
+
+/* HAS_CTIME_R:
+ *	This symbol, if defined, indicates that the ctime_r routine
+ *	is available to ctime re-entrantly.
+ */
+/* CTIME_R_PROTO:
+ *	This symbol encodes the prototype of ctime_r.
+ *	It is zero if d_ctime_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_ctime_r
+ *	is defined.
+ */
+/*#define HAS_CTIME_R	   / **/
+#define CTIME_R_PROTO 0	   /**/
+
+/* HAS_DRAND48_R:
+ *	This symbol, if defined, indicates that the drand48_r routine
+ *	is available to drand48 re-entrantly.
+ */
+/* DRAND48_R_PROTO:
+ *	This symbol encodes the prototype of drand48_r.
+ *	It is zero if d_drand48_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_drand48_r
+ *	is defined.
+ */
+/*#define HAS_DRAND48_R	   / **/
+#define DRAND48_R_PROTO 0	   /**/
+
+/* HAS_ENDGRENT_R:
+ *	This symbol, if defined, indicates that the endgrent_r routine
+ *	is available to endgrent re-entrantly.
+ */
+/* ENDGRENT_R_PROTO:
+ *	This symbol encodes the prototype of endgrent_r.
+ *	It is zero if d_endgrent_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_endgrent_r
+ *	is defined.
+ */
+/*#define HAS_ENDGRENT_R	   / **/
+#define ENDGRENT_R_PROTO 0	   /**/
+
+/* HAS_ENDHOSTENT_R:
+ *	This symbol, if defined, indicates that the endhostent_r routine
+ *	is available to endhostent re-entrantly.
+ */
+/* ENDHOSTENT_R_PROTO:
+ *	This symbol encodes the prototype of endhostent_r.
+ *	It is zero if d_endhostent_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_endhostent_r
+ *	is defined.
+ */
+/*#define HAS_ENDHOSTENT_R	   / **/
+#define ENDHOSTENT_R_PROTO 0	   /**/
+
+/* HAS_ENDNETENT_R:
+ *	This symbol, if defined, indicates that the endnetent_r routine
+ *	is available to endnetent re-entrantly.
+ */
+/* ENDNETENT_R_PROTO:
+ *	This symbol encodes the prototype of endnetent_r.
+ *	It is zero if d_endnetent_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_endnetent_r
+ *	is defined.
+ */
+/*#define HAS_ENDNETENT_R	   / **/
+#define ENDNETENT_R_PROTO 0	   /**/
+
+/* HAS_ENDPROTOENT_R:
+ *	This symbol, if defined, indicates that the endprotoent_r routine
+ *	is available to endprotoent re-entrantly.
+ */
+/* ENDPROTOENT_R_PROTO:
+ *	This symbol encodes the prototype of endprotoent_r.
+ *	It is zero if d_endprotoent_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_endprotoent_r
+ *	is defined.
+ */
+/*#define HAS_ENDPROTOENT_R	   / **/
+#define ENDPROTOENT_R_PROTO 0	   /**/
+
+/* HAS_ENDPWENT_R:
+ *	This symbol, if defined, indicates that the endpwent_r routine
+ *	is available to endpwent re-entrantly.
+ */
+/* ENDPWENT_R_PROTO:
+ *	This symbol encodes the prototype of endpwent_r.
+ *	It is zero if d_endpwent_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_endpwent_r
+ *	is defined.
+ */
+/*#define HAS_ENDPWENT_R	   / **/
+#define ENDPWENT_R_PROTO 0	   /**/
+
+/* HAS_ENDSERVENT_R:
+ *	This symbol, if defined, indicates that the endservent_r routine
+ *	is available to endservent re-entrantly.
+ */
+/* ENDSERVENT_R_PROTO:
+ *	This symbol encodes the prototype of endservent_r.
+ *	It is zero if d_endservent_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_endservent_r
+ *	is defined.
+ */
+/*#define HAS_ENDSERVENT_R	   / **/
+#define ENDSERVENT_R_PROTO 0	   /**/
+
+/* HAS_GETGRENT_R:
+ *	This symbol, if defined, indicates that the getgrent_r routine
+ *	is available to getgrent re-entrantly.
+ */
+/* GETGRENT_R_PROTO:
+ *	This symbol encodes the prototype of getgrent_r.
+ *	It is zero if d_getgrent_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_getgrent_r
+ *	is defined.
+ */
+/*#define HAS_GETGRENT_R	   / **/
+#define GETGRENT_R_PROTO 0	   /**/
+
+/* HAS_GETGRGID_R:
+ *	This symbol, if defined, indicates that the getgrgid_r routine
+ *	is available to getgrgid re-entrantly.
+ */
+/* GETGRGID_R_PROTO:
+ *	This symbol encodes the prototype of getgrgid_r.
+ *	It is zero if d_getgrgid_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_getgrgid_r
+ *	is defined.
+ */
+/*#define HAS_GETGRGID_R	   / **/
+#define GETGRGID_R_PROTO 0	   /**/
+
+/* HAS_GETGRNAM_R:
+ *	This symbol, if defined, indicates that the getgrnam_r routine
+ *	is available to getgrnam re-entrantly.
+ */
+/* GETGRNAM_R_PROTO:
+ *	This symbol encodes the prototype of getgrnam_r.
+ *	It is zero if d_getgrnam_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_getgrnam_r
+ *	is defined.
+ */
+/*#define HAS_GETGRNAM_R	   / **/
+#define GETGRNAM_R_PROTO 0	   /**/
+
+/* HAS_GETHOSTBYADDR_R:
+ *	This symbol, if defined, indicates that the gethostbyaddr_r routine
+ *	is available to gethostbyaddr re-entrantly.
+ */
+/* GETHOSTBYADDR_R_PROTO:
+ *	This symbol encodes the prototype of gethostbyaddr_r.
+ *	It is zero if d_gethostbyaddr_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_gethostbyaddr_r
+ *	is defined.
+ */
+/*#define HAS_GETHOSTBYADDR_R	   / **/
+#define GETHOSTBYADDR_R_PROTO 0	   /**/
+
+/* HAS_GETHOSTBYNAME_R:
+ *	This symbol, if defined, indicates that the gethostbyname_r routine
+ *	is available to gethostbyname re-entrantly.
+ */
+/* GETHOSTBYNAME_R_PROTO:
+ *	This symbol encodes the prototype of gethostbyname_r.
+ *	It is zero if d_gethostbyname_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_gethostbyname_r
+ *	is defined.
+ */
+/*#define HAS_GETHOSTBYNAME_R	   / **/
+#define GETHOSTBYNAME_R_PROTO 0	   /**/
+
+/* HAS_GETHOSTENT_R:
+ *	This symbol, if defined, indicates that the gethostent_r routine
+ *	is available to gethostent re-entrantly.
+ */
+/* GETHOSTENT_R_PROTO:
+ *	This symbol encodes the prototype of gethostent_r.
+ *	It is zero if d_gethostent_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_gethostent_r
+ *	is defined.
+ */
+/*#define HAS_GETHOSTENT_R	   / **/
+#define GETHOSTENT_R_PROTO 0	   /**/
+
+/* HAS_GETLOGIN_R:
+ *	This symbol, if defined, indicates that the getlogin_r routine
+ *	is available to getlogin re-entrantly.
+ */
+/* GETLOGIN_R_PROTO:
+ *	This symbol encodes the prototype of getlogin_r.
+ *	It is zero if d_getlogin_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_getlogin_r
+ *	is defined.
+ */
+/*#define HAS_GETLOGIN_R	   / **/
+#define GETLOGIN_R_PROTO 0	   /**/
+
+/* HAS_GETNETBYADDR_R:
+ *	This symbol, if defined, indicates that the getnetbyaddr_r routine
+ *	is available to getnetbyaddr re-entrantly.
+ */
+/* GETNETBYADDR_R_PROTO:
+ *	This symbol encodes the prototype of getnetbyaddr_r.
+ *	It is zero if d_getnetbyaddr_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_getnetbyaddr_r
+ *	is defined.
+ */
+/*#define HAS_GETNETBYADDR_R	   / **/
+#define GETNETBYADDR_R_PROTO 0	   /**/
+
+/* HAS_GETNETBYNAME_R:
+ *	This symbol, if defined, indicates that the getnetbyname_r routine
+ *	is available to getnetbyname re-entrantly.
+ */
+/* GETNETBYNAME_R_PROTO:
+ *	This symbol encodes the prototype of getnetbyname_r.
+ *	It is zero if d_getnetbyname_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_getnetbyname_r
+ *	is defined.
+ */
+/*#define HAS_GETNETBYNAME_R	   / **/
+#define GETNETBYNAME_R_PROTO 0	   /**/
+
+/* HAS_GETNETENT_R:
+ *	This symbol, if defined, indicates that the getnetent_r routine
+ *	is available to getnetent re-entrantly.
+ */
+/* GETNETENT_R_PROTO:
+ *	This symbol encodes the prototype of getnetent_r.
+ *	It is zero if d_getnetent_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_getnetent_r
+ *	is defined.
+ */
+/*#define HAS_GETNETENT_R	   / **/
+#define GETNETENT_R_PROTO 0	   /**/
+
+/* HAS_GETPROTOBYNAME_R:
+ *	This symbol, if defined, indicates that the getprotobyname_r routine
+ *	is available to getprotobyname re-entrantly.
+ */
+/* GETPROTOBYNAME_R_PROTO:
+ *	This symbol encodes the prototype of getprotobyname_r.
+ *	It is zero if d_getprotobyname_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_getprotobyname_r
+ *	is defined.
+ */
+/*#define HAS_GETPROTOBYNAME_R	   / **/
+#define GETPROTOBYNAME_R_PROTO 0	   /**/
+
+/* HAS_GETPROTOBYNUMBER_R:
+ *	This symbol, if defined, indicates that the getprotobynumber_r routine
+ *	is available to getprotobynumber re-entrantly.
+ */
+/* GETPROTOBYNUMBER_R_PROTO:
+ *	This symbol encodes the prototype of getprotobynumber_r.
+ *	It is zero if d_getprotobynumber_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_getprotobynumber_r
+ *	is defined.
+ */
+/*#define HAS_GETPROTOBYNUMBER_R	   / **/
+#define GETPROTOBYNUMBER_R_PROTO 0	   /**/
+
+/* HAS_GETPROTOENT_R:
+ *	This symbol, if defined, indicates that the getprotoent_r routine
+ *	is available to getprotoent re-entrantly.
+ */
+/* GETPROTOENT_R_PROTO:
+ *	This symbol encodes the prototype of getprotoent_r.
+ *	It is zero if d_getprotoent_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_getprotoent_r
+ *	is defined.
+ */
+/*#define HAS_GETPROTOENT_R	   / **/
+#define GETPROTOENT_R_PROTO 0	   /**/
+
+/* HAS_GETPWENT_R:
+ *	This symbol, if defined, indicates that the getpwent_r routine
+ *	is available to getpwent re-entrantly.
+ */
+/* GETPWENT_R_PROTO:
+ *	This symbol encodes the prototype of getpwent_r.
+ *	It is zero if d_getpwent_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_getpwent_r
+ *	is defined.
+ */
+/*#define HAS_GETPWENT_R	   / **/
+#define GETPWENT_R_PROTO 0	   /**/
+
+/* HAS_GETPWNAM_R:
+ *	This symbol, if defined, indicates that the getpwnam_r routine
+ *	is available to getpwnam re-entrantly.
+ */
+/* GETPWNAM_R_PROTO:
+ *	This symbol encodes the prototype of getpwnam_r.
+ *	It is zero if d_getpwnam_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_getpwnam_r
+ *	is defined.
+ */
+/*#define HAS_GETPWNAM_R	   / **/
+#define GETPWNAM_R_PROTO 0	   /**/
+
+/* HAS_GETPWUID_R:
+ *	This symbol, if defined, indicates that the getpwuid_r routine
+ *	is available to getpwuid re-entrantly.
+ */
+/* GETPWUID_R_PROTO:
+ *	This symbol encodes the prototype of getpwuid_r.
+ *	It is zero if d_getpwuid_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_getpwuid_r
+ *	is defined.
+ */
+/*#define HAS_GETPWUID_R	   / **/
+#define GETPWUID_R_PROTO 0	   /**/
+
+/* HAS_GETSERVBYNAME_R:
+ *	This symbol, if defined, indicates that the getservbyname_r routine
+ *	is available to getservbyname re-entrantly.
+ */
+/* GETSERVBYNAME_R_PROTO:
+ *	This symbol encodes the prototype of getservbyname_r.
+ *	It is zero if d_getservbyname_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_getservbyname_r
+ *	is defined.
+ */
+/*#define HAS_GETSERVBYNAME_R	   / **/
+#define GETSERVBYNAME_R_PROTO 0	   /**/
+
+/* HAS_GETSERVBYPORT_R:
+ *	This symbol, if defined, indicates that the getservbyport_r routine
+ *	is available to getservbyport re-entrantly.
+ */
+/* GETSERVBYPORT_R_PROTO:
+ *	This symbol encodes the prototype of getservbyport_r.
+ *	It is zero if d_getservbyport_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_getservbyport_r
+ *	is defined.
+ */
+/*#define HAS_GETSERVBYPORT_R	   / **/
+#define GETSERVBYPORT_R_PROTO 0	   /**/
+
+/* HAS_GETSERVENT_R:
+ *	This symbol, if defined, indicates that the getservent_r routine
+ *	is available to getservent re-entrantly.
+ */
+/* GETSERVENT_R_PROTO:
+ *	This symbol encodes the prototype of getservent_r.
+ *	It is zero if d_getservent_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_getservent_r
+ *	is defined.
+ */
+/*#define HAS_GETSERVENT_R	   / **/
+#define GETSERVENT_R_PROTO 0	   /**/
+
+/* HAS_GETSPNAM_R:
+ *	This symbol, if defined, indicates that the getspnam_r routine
+ *	is available to getspnam re-entrantly.
+ */
+/* GETSPNAM_R_PROTO:
+ *	This symbol encodes the prototype of getspnam_r.
+ *	It is zero if d_getspnam_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_getspnam_r
+ *	is defined.
+ */
+/*#define HAS_GETSPNAM_R	   / **/
+#define GETSPNAM_R_PROTO 0	   /**/
+
+/* HAS_GMTIME_R:
+ *	This symbol, if defined, indicates that the gmtime_r routine
+ *	is available to gmtime re-entrantly.
+ */
+/* GMTIME_R_PROTO:
+ *	This symbol encodes the prototype of gmtime_r.
+ *	It is zero if d_gmtime_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_gmtime_r
+ *	is defined.
+ */
+/*#define HAS_GMTIME_R	   / **/
+#define GMTIME_R_PROTO 0	   /**/
+
+/* HAS_LOCALTIME_R:
+ *	This symbol, if defined, indicates that the localtime_r routine
+ *	is available to localtime re-entrantly.
+ */
+/* LOCALTIME_R_NEEDS_TZSET:
+ *	Many libc's localtime_r implementations do not call tzset,
+ *	making them differ from localtime(), and making timezone
+ *	changes using $ENV{TZ} without explicitly calling tzset
+ *	impossible. This symbol makes us call tzset before localtime_r
+ */
+/*#define LOCALTIME_R_NEEDS_TZSET / **/
+#ifdef LOCALTIME_R_NEEDS_TZSET
+#define L_R_TZSET tzset(),
+#else
+#define L_R_TZSET
+#endif
+
+/* LOCALTIME_R_PROTO:
+ *	This symbol encodes the prototype of localtime_r.
+ *	It is zero if d_localtime_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_localtime_r
+ *	is defined.
+ */
+/*#define HAS_LOCALTIME_R	   / **/
+#define LOCALTIME_R_PROTO 0	   /**/
+
+/* OLD_PTHREAD_CREATE_JOINABLE:
+ *	This symbol, if defined, indicates how to create pthread
+ *	in joinable (aka undetached) state.  NOTE: not defined
+ *	if pthread.h already has defined PTHREAD_CREATE_JOINABLE
+ *	(the new version of the constant).
+ *	If defined, known values are PTHREAD_CREATE_UNDETACHED
+ *	and __UNDETACHED.
+ */
+/*#define OLD_PTHREAD_CREATE_JOINABLE  / **/
+
+/* HAS_PTHREAD_ATFORK:
+ *	This symbol, if defined, indicates that the pthread_atfork routine
+ *	is available to setup fork handlers.
+ */
+/*#define HAS_PTHREAD_ATFORK		/ **/
+
+/* HAS_PTHREAD_YIELD:
+ *	This symbol, if defined, indicates that the pthread_yield
+ *	routine is available to yield the execution of the current
+ *	thread.	 sched_yield is preferable to pthread_yield.
+ */
+/* SCHED_YIELD:
+ *	This symbol defines the way to yield the execution of
+ *	the current thread.  Known ways are sched_yield,
+ *	pthread_yield, and pthread_yield with NULL.
+ */
+/* HAS_SCHED_YIELD:
+ *	This symbol, if defined, indicates that the sched_yield
+ *	routine is available to yield the execution of the current
+ *	thread.	 sched_yield is preferable to pthread_yield.
+ */
+/*#define HAS_PTHREAD_YIELD	/ **/
+#define SCHED_YIELD	sched_yield()	/**/
+/*#define HAS_SCHED_YIELD	/ **/
+
+/* HAS_RANDOM_R:
+ *	This symbol, if defined, indicates that the random_r routine
+ *	is available to random re-entrantly.
+ */
+/* RANDOM_R_PROTO:
+ *	This symbol encodes the prototype of random_r.
+ *	It is zero if d_random_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_random_r
+ *	is defined.
+ */
+/*#define HAS_RANDOM_R	   / **/
+#define RANDOM_R_PROTO 0	   /**/
+
+/* HAS_READDIR64_R:
+ *	This symbol, if defined, indicates that the readdir64_r routine
+ *	is available to readdir64 re-entrantly.
+ */
+/* READDIR64_R_PROTO:
+ *	This symbol encodes the prototype of readdir64_r.
+ *	It is zero if d_readdir64_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_readdir64_r
+ *	is defined.
+ */
+/*#define HAS_READDIR64_R	   / **/
+#define READDIR64_R_PROTO 0	   /**/
+
+/* HAS_READDIR_R:
+ *	This symbol, if defined, indicates that the readdir_r routine
+ *	is available to readdir re-entrantly.
+ */
+/* READDIR_R_PROTO:
+ *	This symbol encodes the prototype of readdir_r.
+ *	It is zero if d_readdir_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_readdir_r
+ *	is defined.
+ */
+/*#define HAS_READDIR_R	   / **/
+#define READDIR_R_PROTO 0	   /**/
+
+/* HAS_SETGRENT_R:
+ *	This symbol, if defined, indicates that the setgrent_r routine
+ *	is available to setgrent re-entrantly.
+ */
+/* SETGRENT_R_PROTO:
+ *	This symbol encodes the prototype of setgrent_r.
+ *	It is zero if d_setgrent_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_setgrent_r
+ *	is defined.
+ */
+/*#define HAS_SETGRENT_R	   / **/
+#define SETGRENT_R_PROTO 0	   /**/
+
+/* HAS_SETHOSTENT_R:
+ *	This symbol, if defined, indicates that the sethostent_r routine
+ *	is available to sethostent re-entrantly.
+ */
+/* SETHOSTENT_R_PROTO:
+ *	This symbol encodes the prototype of sethostent_r.
+ *	It is zero if d_sethostent_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_sethostent_r
+ *	is defined.
+ */
+/*#define HAS_SETHOSTENT_R	   / **/
+#define SETHOSTENT_R_PROTO 0	   /**/
+
+/* HAS_SETLOCALE_R:
+ *	This symbol, if defined, indicates that the setlocale_r routine
+ *	is available to setlocale re-entrantly.
+ */
+/* SETLOCALE_R_PROTO:
+ *	This symbol encodes the prototype of setlocale_r.
+ *	It is zero if d_setlocale_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_setlocale_r
+ *	is defined.
+ */
+/*#define HAS_SETLOCALE_R	   / **/
+#define SETLOCALE_R_PROTO 0	   /**/
+
+/* HAS_SETNETENT_R:
+ *	This symbol, if defined, indicates that the setnetent_r routine
+ *	is available to setnetent re-entrantly.
+ */
+/* SETNETENT_R_PROTO:
+ *	This symbol encodes the prototype of setnetent_r.
+ *	It is zero if d_setnetent_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_setnetent_r
+ *	is defined.
+ */
+/*#define HAS_SETNETENT_R	   / **/
+#define SETNETENT_R_PROTO 0	   /**/
+
+/* HAS_SETPROTOENT_R:
+ *	This symbol, if defined, indicates that the setprotoent_r routine
+ *	is available to setprotoent re-entrantly.
+ */
+/* SETPROTOENT_R_PROTO:
+ *	This symbol encodes the prototype of setprotoent_r.
+ *	It is zero if d_setprotoent_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_setprotoent_r
+ *	is defined.
+ */
+/*#define HAS_SETPROTOENT_R	   / **/
+#define SETPROTOENT_R_PROTO 0	   /**/
+
+/* HAS_SETPWENT_R:
+ *	This symbol, if defined, indicates that the setpwent_r routine
+ *	is available to setpwent re-entrantly.
+ */
+/* SETPWENT_R_PROTO:
+ *	This symbol encodes the prototype of setpwent_r.
+ *	It is zero if d_setpwent_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_setpwent_r
+ *	is defined.
+ */
+/*#define HAS_SETPWENT_R	   / **/
+#define SETPWENT_R_PROTO 0	   /**/
+
+/* HAS_SETSERVENT_R:
+ *	This symbol, if defined, indicates that the setservent_r routine
+ *	is available to setservent re-entrantly.
+ */
+/* SETSERVENT_R_PROTO:
+ *	This symbol encodes the prototype of setservent_r.
+ *	It is zero if d_setservent_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_setservent_r
+ *	is defined.
+ */
+/*#define HAS_SETSERVENT_R	   / **/
+#define SETSERVENT_R_PROTO 0	   /**/
+
+/* HAS_SRAND48_R:
+ *	This symbol, if defined, indicates that the srand48_r routine
+ *	is available to srand48 re-entrantly.
+ */
+/* SRAND48_R_PROTO:
+ *	This symbol encodes the prototype of srand48_r.
+ *	It is zero if d_srand48_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_srand48_r
+ *	is defined.
+ */
+/*#define HAS_SRAND48_R	   / **/
+#define SRAND48_R_PROTO 0	   /**/
+
+/* HAS_SRANDOM_R:
+ *	This symbol, if defined, indicates that the srandom_r routine
+ *	is available to srandom re-entrantly.
+ */
+/* SRANDOM_R_PROTO:
+ *	This symbol encodes the prototype of srandom_r.
+ *	It is zero if d_srandom_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_srandom_r
+ *	is defined.
+ */
+/*#define HAS_SRANDOM_R	   / **/
+#define SRANDOM_R_PROTO 0	   /**/
+
+/* HAS_STRERROR_R:
+ *	This symbol, if defined, indicates that the strerror_r routine
+ *	is available to strerror re-entrantly.
+ */
+/* STRERROR_R_PROTO:
+ *	This symbol encodes the prototype of strerror_r.
+ *	It is zero if d_strerror_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_strerror_r
+ *	is defined.
+ */
+/*#define HAS_STRERROR_R	   / **/
+#define STRERROR_R_PROTO 0	   /**/
+
+/* HAS_TMPNAM_R:
+ *	This symbol, if defined, indicates that the tmpnam_r routine
+ *	is available to tmpnam re-entrantly.
+ */
+/* TMPNAM_R_PROTO:
+ *	This symbol encodes the prototype of tmpnam_r.
+ *	It is zero if d_tmpnam_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_tmpnam_r
+ *	is defined.
+ */
+/*#define HAS_TMPNAM_R	   / **/
+#define TMPNAM_R_PROTO 0	   /**/
+
+/* HAS_TTYNAME_R:
+ *	This symbol, if defined, indicates that the ttyname_r routine
+ *	is available to ttyname re-entrantly.
+ */
+/* TTYNAME_R_PROTO:
+ *	This symbol encodes the prototype of ttyname_r.
+ *	It is zero if d_ttyname_r is undef, and one of the
+ *	REENTRANT_PROTO_T_ABC macros of reentr.h if d_ttyname_r
+ *	is defined.
+ */
+/*#define HAS_TTYNAME_R	   / **/
+#define TTYNAME_R_PROTO 0	   /**/
+
+/* I_MACH_CTHREADS:
+ *     This symbol, if defined, indicates to the C program that it should
+ *     include <mach/cthreads.h>.
+ */
+/*#define   I_MACH_CTHREADS	/ **/
+
+/* I_PTHREAD:
+ *     This symbol, if defined, indicates to the C program that it should
+ *     include <pthread.h>.
+ */
+/*#define   I_PTHREAD	/ **/
+
+/* USE_ITHREADS:
+ *	This symbol, if defined, indicates that Perl should be built to
+ *	use the interpreter-based threading implementation.
+ */
+/* USE_5005THREADS:
+ *	This symbol, if defined, indicates that Perl should be built to
+ *	use the 5.005-based threading implementation.
+ *	Only valid up to 5.8.x.
+ */
+/* OLD_PTHREADS_API:
+ *	This symbol, if defined, indicates that Perl should
+ *	be built to use the old draft POSIX threads API.
+ */
+/* USE_REENTRANT_API:
+ *	This symbol, if defined, indicates that Perl should
+ *	try to use the various _r versions of library functions.
+ *	This is extremely experimental.
+ */
+/*#define	USE_5005THREADS		/ **/
+/*#define	USE_ITHREADS		/ **/
+#if defined(USE_5005THREADS) && !defined(USE_ITHREADS)
+#define		USE_THREADS		/* until src is revised*/
+#endif
+/*#define	OLD_PTHREADS_API		/ **/
+/*#define	USE_REENTRANT_API	/ **/
+
+/* HAS_TIME:
+ *	This symbol, if defined, indicates that the time() routine exists.
+ */
+/* Time_t:
+ *	This symbol holds the type returned by time(). It can be long,
+ *	or time_t on BSD sites (in which case <sys/types.h> should be
+ *	included).
+ */
+#define HAS_TIME		/**/
+#define Time_t time_t		/* Time type */
+
+/* HAS_TIMES:
+ *	This symbol, if defined, indicates that the times() routine exists.
+ *	Note that this became obsolete on some systems (SUNOS), which now
+ * use getrusage(). It may be necessary to include <sys/times.h>.
+ */
+/*#define HAS_TIMES		/ **/
+
+/* Fpos_t:
+ *	This symbol holds the type used to declare file positions in libc.
+ *	It can be fpos_t, long, uint, etc... It may be necessary to include
+ *	<sys/types.h> to get any typedef'ed information.
+ */
+#define Fpos_t int		/* File position type */
+
+/* Gid_t_f:
+ *	This symbol defines the format string used for printing a Gid_t.
+ */
+#define	Gid_t_f		"lu"		/**/
+
+/* Gid_t_sign:
+ *	This symbol holds the signedness of a Gid_t.
+ *	1 for unsigned, -1 for signed.
+ */
+#define Gid_t_sign	1		/* GID sign */
+
+/* Gid_t_size:
+ *	This symbol holds the size of a Gid_t in bytes.
+ */
+#define Gid_t_size 4		/* GID size */
+
+/* Gid_t:
+ *	This symbol holds the return type of getgid() and the type of
+ *	argument to setrgid() and related functions.  Typically,
+ *	it is the type of group ids in the kernel. It can be int, ushort,
+ *	gid_t, etc... It may be necessary to include <sys/types.h> to get
+ *	any typedef'ed information.
+ */
+#define Gid_t int		/* Type for getgid(), etc... */
+
+/* Off_t:
+ *	This symbol holds the type used to declare offsets in the kernel.
+ *	It can be int, long, off_t, etc... It may be necessary to include
+ *	<sys/types.h> to get any typedef'ed information.
+ */
+/* LSEEKSIZE:
+ *	This symbol holds the number of bytes used by the Off_t.
+ */
+/* Off_t_size:
+ *	This symbol holds the number of bytes used by the Off_t.
+ */
+#define Off_t int		/* <offset> type */
+#define LSEEKSIZE 4		/* <offset> size */
+#define Off_t_size 4	/* <offset> size */
+
+/* Mode_t:
+ *	This symbol holds the type used to declare file modes
+ *	for systems calls.  It is usually mode_t, but may be
+ *	int or unsigned short.  It may be necessary to include <sys/types.h>
+ *	to get any typedef'ed information.
+ */
+#define Mode_t int	 /* file mode parameter for system calls */
+
+/* Pid_t:
+ *	This symbol holds the type used to declare process ids in the kernel.
+ *	It can be int, uint, pid_t, etc... It may be necessary to include
+ *	<sys/types.h> to get any typedef'ed information.
+ */
+#define Pid_t int		/* PID type */
+
+/* Size_t_size:
+ *	This symbol holds the size of a Size_t in bytes.
+ */
+#define Size_t_size 4		/**/
+
+/* Size_t:
+ *	This symbol holds the type used to declare length parameters
+ *	for string functions.  It is usually size_t, but may be
+ *	unsigned long, int, etc.  It may be necessary to include
+ *	<sys/types.h> to get any typedef'ed information.
+ */
+#define Size_t size_t	 /* length parameter for string functions */
+
+/* Uid_t_f:
+ *	This symbol defines the format string used for printing a Uid_t.
+ */
+#define	Uid_t_f		"lu"		/**/
+
+/* Uid_t_sign:
+ *	This symbol holds the signedness of a Uid_t.
+ *	1 for unsigned, -1 for signed.
+ */
+#define Uid_t_sign	1		/* UID sign */
+
+/* Uid_t_size:
+ *	This symbol holds the size of a Uid_t in bytes.
+ */
+#define Uid_t_size 4		/* UID size */
+
+/* Uid_t:
+ *	This symbol holds the type used to declare user ids in the kernel.
+ *	It can be int, ushort, uid_t, etc... It may be necessary to include
+ *	<sys/types.h> to get any typedef'ed information.
+ */
+#define Uid_t int		/* UID type */
+
+#endif
+
+/* Generated from:
+ * ce61c4f18e82f6356cdae44c5336ceac1d3253033d7449651927f5633be5c3c2 config_h.SH
+ * fc611849cb5b1e14ec1687b255dac15414cc5e2e11b192d94e08136cfe277f75 uconfig.sh
+ * ex: set ro: */
diff --git a/lib/5.24.1/x86_64-linux/CORE/unicode_constants.h b/lib/5.24.1/x86_64-linux/CORE/unicode_constants.h
new file mode 100644
index 00000000..bffaffed
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/unicode_constants.h
@@ -0,0 +1,151 @@
+/* -*- buffer-read-only: t -*-
+ * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+ * This file is built by regen/unicode_constants.pl from Unicode data.
+ * Any changes made here will be lost!
+ */
+
+
+#ifndef H_UNICODE_CONSTANTS   /* Guard against nested #includes */
+#define H_UNICODE_CONSTANTS   1
+
+/* This file contains #defines for the version of Unicode being used and
+ * various Unicode code points.  The values the code point macros expand to
+ * are the native Unicode code point, or all or portions of the UTF-8 encoding
+ * for the code point.  In the former case, the macro name has the suffix
+ * "_NATIVE"; otherwise, the suffix "_UTF8".
+ *
+ * The macros that have the suffix "_UTF8" may have further suffixes, as
+ * follows:
+ *  "_FIRST_BYTE" if the value is just the first byte of the UTF-8
+ *                representation; the value will be a numeric constant.
+ *  "_TAIL"       if instead it represents all but the first byte.  This, and
+ *                with no additional suffix are both string constants */
+
+#define UNICODE_MAJOR_VERSION   8
+#define UNICODE_DOT_VERSION     0
+#define UNICODE_DOT_DOT_VERSION 0
+
+
+#if 'A' == 65 /* ASCII/Latin1 */
+#   define LATIN_SMALL_LETTER_LONG_S_UTF8  "\xC5\xBF"    /* U+017F */
+
+#   define COMBINING_GRAVE_ACCENT_UTF8  "\xCC\x80"    /* U+0300 */
+
+#   define GREEK_CAPITAL_LETTER_IOTA_UTF8  "\xCE\x99"    /* U+0399 */
+#   define GREEK_SMALL_LETTER_MU_UTF8  "\xCE\xBC"    /* U+03BC */
+
+#   define LATIN_CAPITAL_LETTER_SHARP_S_UTF8  "\xE1\xBA\x9E"    /* U+1E9E */
+
+#   define LATIN_SMALL_LIGATURE_LONG_S_T_UTF8  "\xEF\xAC\x85"    /* U+FB05 */
+#   define LATIN_SMALL_LIGATURE_ST_UTF8  "\xEF\xAC\x86"    /* U+FB06 */
+#   define LATIN_CAPITAL_LETTER_I_WITH_DOT_ABOVE_UTF8  "\xC4\xB0"    /* U+0130 */
+#   define LATIN_SMALL_LETTER_DOTLESS_I_UTF8  "\xC4\xB1"    /* U+0131 */
+
+#   define HYPHEN_UTF8  "\xE2\x80\x90"    /* U+2010 */
+#   define BOM_UTF8_FIRST_BYTE  0xEF    /* U+FEFF */
+#   define BOM_UTF8_TAIL  "\xBB\xBF"    /* U+FEFF */
+
+#   define NBSP_NATIVE  0xA0    /* U+00A0 */
+#   define NBSP_UTF8  "\xC2\xA0"    /* U+00A0 */
+
+#   define DEL_NATIVE  0x7F    /* U+007F */
+#   define CR_NATIVE  0x0D    /* U+000D */
+#   define LF_NATIVE  0x0A    /* U+000A */
+#   define VT_NATIVE  0x0B    /* U+000B */
+#   define ESC_NATIVE  0x1B    /* U+001B */
+#   define LATIN_SMALL_LETTER_SHARP_S_NATIVE  0xDF    /* U+00DF */
+#   define LATIN_SMALL_LETTER_A_WITH_RING_ABOVE_NATIVE  0xE5    /* U+00E5 */
+#   define LATIN_CAPITAL_LETTER_A_WITH_RING_ABOVE_NATIVE  0xC5    /* U+00C5 */
+#   define LATIN_SMALL_LETTER_Y_WITH_DIAERESIS_NATIVE  0xFF    /* U+00FF */
+#   define MICRO_SIGN_NATIVE  0xB5    /* U+00B5 */
+#   define MAX_PRINT_A_FOR_USE_ONLY_BY_REGCOMP_DOT_C   0x7E   /* The max code point that isPRINT_A */
+
+#endif	/* ASCII/Latin1 */
+
+#if 'A' == 193 /* EBCDIC 1047 */ \
+     && '\\' == 224 && '[' == 173 && ']' == 189 && '{' == 192 && '}' == 208 \
+     && '^' == 95 && '~' == 161 && '!' == 90 && '#' == 123 && '|' == 79 \
+     && '$' == 91 && '@' == 124 && '`' == 121
+#   define LATIN_SMALL_LETTER_LONG_S_UTF8  "\x8F\x73"    /* U+017F */
+
+#   define COMBINING_GRAVE_ACCENT_UTF8  "\xAF\x41"    /* U+0300 */
+
+#   define GREEK_CAPITAL_LETTER_IOTA_UTF8  "\xB3\x68"    /* U+0399 */
+#   define GREEK_SMALL_LETTER_MU_UTF8  "\xB4\x70"    /* U+03BC */
+
+#   define LATIN_CAPITAL_LETTER_SHARP_S_UTF8  "\xBF\x63\x72"    /* U+1E9E */
+
+#   define LATIN_SMALL_LIGATURE_LONG_S_T_UTF8  "\xDD\x72\x67\x46"    /* U+FB05 */
+#   define LATIN_SMALL_LIGATURE_ST_UTF8  "\xDD\x72\x67\x47"    /* U+FB06 */
+#   define LATIN_CAPITAL_LETTER_I_WITH_DOT_ABOVE_UTF8  "\x8D\x57"    /* U+0130 */
+#   define LATIN_SMALL_LETTER_DOTLESS_I_UTF8  "\x8D\x58"    /* U+0131 */
+
+#   define HYPHEN_UTF8  "\xCA\x41\x57"    /* U+2010 */
+#   define BOM_UTF8_FIRST_BYTE  0xDD    /* U+FEFF */
+#   define BOM_UTF8_TAIL  "\x73\x66\x73"    /* U+FEFF */
+
+#   define NBSP_NATIVE  0x41    /* U+00A0 */
+#   define NBSP_UTF8  "\x80\x41"    /* U+00A0 */
+
+#   define DEL_NATIVE  0x07    /* U+007F */
+#   define CR_NATIVE  0x0D    /* U+000D */
+#   define LF_NATIVE  0x15    /* U+000A */
+#   define VT_NATIVE  0x0B    /* U+000B */
+#   define ESC_NATIVE  0x27    /* U+001B */
+#   define LATIN_SMALL_LETTER_SHARP_S_NATIVE  0x59    /* U+00DF */
+#   define LATIN_SMALL_LETTER_A_WITH_RING_ABOVE_NATIVE  0x47    /* U+00E5 */
+#   define LATIN_CAPITAL_LETTER_A_WITH_RING_ABOVE_NATIVE  0x67    /* U+00C5 */
+#   define LATIN_SMALL_LETTER_Y_WITH_DIAERESIS_NATIVE  0xDF    /* U+00FF */
+#   define MICRO_SIGN_NATIVE  0xA0    /* U+00B5 */
+#   define MAX_PRINT_A_FOR_USE_ONLY_BY_REGCOMP_DOT_C   0xF9   /* The max code point that isPRINT_A */
+
+#endif	/* EBCDIC 1047 */
+
+#if 'A' == 193 /* EBCDIC 037 */ \
+     && '\\' == 224 && '[' == 186 && ']' == 187 && '{' == 192 && '}' == 208 \
+     && '^' == 176 && '~' == 161 && '!' == 90 && '#' == 123 && '|' == 79 \
+     && '$' == 91 && '@' == 124 && '`' == 121
+#   define LATIN_SMALL_LETTER_LONG_S_UTF8  "\x8E\x72"    /* U+017F */
+
+#   define COMBINING_GRAVE_ACCENT_UTF8  "\xAD\x41"    /* U+0300 */
+
+#   define GREEK_CAPITAL_LETTER_IOTA_UTF8  "\xB2\x67"    /* U+0399 */
+#   define GREEK_SMALL_LETTER_MU_UTF8  "\xB3\x6A"    /* U+03BC */
+
+#   define LATIN_CAPITAL_LETTER_SHARP_S_UTF8  "\xBF\x62\x71"    /* U+1E9E */
+
+#   define LATIN_SMALL_LIGATURE_LONG_S_T_UTF8  "\xDD\x71\x66\x46"    /* U+FB05 */
+#   define LATIN_SMALL_LIGATURE_ST_UTF8  "\xDD\x71\x66\x47"    /* U+FB06 */
+#   define LATIN_CAPITAL_LETTER_I_WITH_DOT_ABOVE_UTF8  "\x8C\x57"    /* U+0130 */
+#   define LATIN_SMALL_LETTER_DOTLESS_I_UTF8  "\x8C\x58"    /* U+0131 */
+
+#   define HYPHEN_UTF8  "\xCA\x41\x57"    /* U+2010 */
+#   define BOM_UTF8_FIRST_BYTE  0xDD    /* U+FEFF */
+#   define BOM_UTF8_TAIL  "\x72\x65\x72"    /* U+FEFF */
+
+#   define NBSP_NATIVE  0x41    /* U+00A0 */
+#   define NBSP_UTF8  "\x78\x41"    /* U+00A0 */
+
+#   define DEL_NATIVE  0x07    /* U+007F */
+#   define CR_NATIVE  0x0D    /* U+000D */
+#   define LF_NATIVE  0x25    /* U+000A */
+#   define VT_NATIVE  0x0B    /* U+000B */
+#   define ESC_NATIVE  0x27    /* U+001B */
+#   define LATIN_SMALL_LETTER_SHARP_S_NATIVE  0x59    /* U+00DF */
+#   define LATIN_SMALL_LETTER_A_WITH_RING_ABOVE_NATIVE  0x47    /* U+00E5 */
+#   define LATIN_CAPITAL_LETTER_A_WITH_RING_ABOVE_NATIVE  0x67    /* U+00C5 */
+#   define LATIN_SMALL_LETTER_Y_WITH_DIAERESIS_NATIVE  0xDF    /* U+00FF */
+#   define MICRO_SIGN_NATIVE  0xA0    /* U+00B5 */
+#   define MAX_PRINT_A_FOR_USE_ONLY_BY_REGCOMP_DOT_C   0xF9   /* The max code point that isPRINT_A */
+
+#endif	/* EBCDIC 037 */
+
+/* The number of code points not matching \pC */
+#define NON_OTHER_COUNT_FOR_USE_ONLY_BY_REGCOMP_DOT_C  120522
+
+/* The highest code point that has any type of case change */
+#define HIGHEST_CASE_CHANGING_CP_FOR_USE_ONLY_BY_UTF8_DOT_C  0x118DF
+
+#endif /* H_UNICODE_CONSTANTS */
+
+/* ex: set ro: */
diff --git a/lib/5.24.1/x86_64-linux/CORE/unixish.h b/lib/5.24.1/x86_64-linux/CORE/unixish.h
new file mode 100644
index 00000000..e05cb6a4
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/unixish.h
@@ -0,0 +1,170 @@
+/*    unixish.h
+ *
+ *    Copyright (C) 1993, 1994, 1995, 1996, 1997, 1999, 2000, 2001, 2002,
+ *    2003, 2006, 2007, by Larry Wall and others
+ *
+ *    You may distribute under the terms of either the GNU General Public
+ *    License or the Artistic License, as specified in the README file.
+ *
+ */
+
+/*
+ * The following symbols are defined if your operating system supports
+ * functions by that name.  All Unixes I know of support them, thus they
+ * are not checked by the configuration script, but are directly defined
+ * here.
+ */
+
+#ifndef PERL_MICRO
+
+/* HAS_IOCTL:
+ *	This symbol, if defined, indicates that the ioctl() routine is
+ *	available to set I/O characteristics
+ */
+#define	HAS_IOCTL		/**/
+ 
+/* HAS_UTIME:
+ *	This symbol, if defined, indicates that the routine utime() is
+ *	available to update the access and modification times of files.
+ */
+#define HAS_UTIME		/**/
+
+/* HAS_GROUP
+ *	This symbol, if defined, indicates that the getgrnam() and
+ *	getgrgid() routines are available to get group entries.
+ *	The getgrent() has a separate definition, HAS_GETGRENT.
+ */
+#define HAS_GROUP		/**/
+
+/* HAS_PASSWD
+ *	This symbol, if defined, indicates that the getpwnam() and
+ *	getpwuid() routines are available to get password entries.
+ *	The getpwent() has a separate definition, HAS_GETPWENT.
+ */
+#define HAS_PASSWD		/**/
+
+#define HAS_KILL
+#define HAS_WAIT
+
+#endif /* !PERL_MICRO */
+  
+/* USEMYBINMODE
+ *	This symbol, if defined, indicates that the program should
+ *	use the routine my_binmode(FILE *fp, char iotype) to insure
+ *	that a file is in "binary" mode -- that is, that no translation
+ *	of bytes occurs on read or write operations.
+ */
+#undef USEMYBINMODE
+
+/* Stat_t:
+ *	This symbol holds the type used to declare buffers for information
+ *	returned by stat().  It's usually just struct stat.  It may be necessary
+ *	to include <sys/stat.h> and <sys/types.h> to get any typedef'ed
+ *	information.
+ */
+#define Stat_t struct stat
+
+/* USE_STAT_RDEV:
+ *	This symbol is defined if this system has a stat structure declaring
+ *	st_rdev
+ */
+#define USE_STAT_RDEV 	/**/
+
+/* ACME_MESS:
+ *	This symbol, if defined, indicates that error messages should be 
+ *	should be generated in a format that allows the use of the Acme
+ *	GUI/editor's autofind feature.
+ */
+#undef ACME_MESS	/**/
+
+/* UNLINK_ALL_VERSIONS:
+ *	This symbol, if defined, indicates that the program should arrange
+ *	to remove all versions of a file if unlink() is called.  This is
+ *	probably only relevant for VMS.
+ */
+/* #define UNLINK_ALL_VERSIONS		/ **/
+
+/* VMS:
+ *	This symbol, if defined, indicates that the program is running under
+ *	VMS.  It is currently automatically set by cpps running under VMS,
+ *	and is included here for completeness only.
+ */
+/* #define VMS		/ **/
+
+/* ALTERNATE_SHEBANG:
+ *	This symbol, if defined, contains a "magic" string which may be used
+ *	as the first line of a Perl program designed to be executed directly
+ *	by name, instead of the standard Unix #!.  If ALTERNATE_SHEBANG
+ *	begins with a character other then #, then Perl will only treat
+ *	it as a command line if it finds the string "perl" in the first
+ *	word; otherwise it's treated as the first line of code in the script.
+ *	(IOW, Perl won't hand off to another interpreter via an alternate
+ *	shebang sequence that might be legal Perl code.)
+ */
+/* #define ALTERNATE_SHEBANG "#!" / **/
+
+# include <signal.h>
+
+#ifndef SIGABRT
+#    define SIGABRT SIGILL
+#endif
+#ifndef SIGILL
+#    define SIGILL 6         /* blech */
+#endif
+#define ABORT() kill(PerlProc_getpid(),SIGABRT);
+
+/*
+ * fwrite1() should be a routine with the same calling sequence as fwrite(),
+ * but which outputs all of the bytes requested as a single stream (unlike
+ * fwrite() itself, which on some systems outputs several distinct records
+ * if the number_of_items parameter is >1).
+ */
+#define fwrite1 fwrite
+
+#define Stat(fname,bufptr) stat((fname),(bufptr))
+
+#ifdef __amigaos4__
+int afstat(int fd, struct stat *statb);
+#  define Fstat(fd,bufptr) afstat((fd),(bufptr))
+#endif
+
+#ifndef Fstat
+#  define Fstat(fd,bufptr)   fstat((fd),(bufptr))
+#endif
+
+#define Fflush(fp)         fflush(fp)
+#define Mkdir(path,mode)   mkdir((path),(mode))
+
+#if defined(__amigaos4__)
+#  define PERL_SYS_INIT_BODY(c,v)					\
+	MALLOC_CHECK_TAINT2(*c,*v) PERL_FPU_INIT; PERLIO_INIT; MALLOC_INIT; amigaos4_init_fork_array(); amigaos4_init_environ_sema();
+#  define PERL_SYS_TERM_BODY()                              \
+    HINTS_REFCNT_TERM; OP_CHECK_MUTEX_TERM;                 \
+    OP_REFCNT_TERM; PERLIO_TERM; MALLOC_TERM; LOCALE_TERM;  \
+    amigaos4_dispose_fork_array();
+#endif
+
+#ifndef PERL_SYS_INIT_BODY
+#  define PERL_SYS_INIT_BODY(c,v)					\
+	MALLOC_CHECK_TAINT2(*c,*v) PERL_FPU_INIT; PERLIO_INIT; MALLOC_INIT
+#endif
+
+#ifndef PERL_SYS_TERM_BODY
+#  define PERL_SYS_TERM_BODY()                      \
+    HINTS_REFCNT_TERM; OP_CHECK_MUTEX_TERM;         \
+    OP_REFCNT_TERM; PERLIO_TERM; MALLOC_TERM;       \
+    LOCALE_TERM;
+
+#endif
+
+#define BIT_BUCKET "/dev/null"
+
+#define dXSUB_SYS
+
+#ifndef NO_ENVIRON_ARRAY
+#define USE_ENVIRON_ARRAY
+#endif
+
+/*
+ * ex: set ts=8 sts=4 sw=4 et:
+ */
diff --git a/lib/5.24.1/x86_64-linux/CORE/utf8.h b/lib/5.24.1/x86_64-linux/CORE/utf8.h
new file mode 100644
index 00000000..c954b42f
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/utf8.h
@@ -0,0 +1,833 @@
+/*    utf8.h
+ *
+ * This file contains definitions for use with the UTF-8 encoding.  It
+ * actually also works with the variant UTF-8 encoding called UTF-EBCDIC, and
+ * hides almost all of the differences between these from the caller.  In other
+ * words, someone should #include this file, and if the code is being compiled
+ * on an EBCDIC platform, things should mostly just work.
+ *
+ *    Copyright (C) 2000, 2001, 2002, 2005, 2006, 2007, 2009,
+ *    2010, 2011 by Larry Wall and others
+ *
+ *    You may distribute under the terms of either the GNU General Public
+ *    License or the Artistic License, as specified in the README file.
+ *
+ */
+
+#ifndef H_UTF8      /* Guard against recursive inclusion */
+#define H_UTF8 1
+
+/* Use UTF-8 as the default script encoding?
+ * Turning this on will break scripts having non-UTF-8 binary
+ * data (such as Latin-1) in string literals. */
+#ifdef USE_UTF8_SCRIPTS
+#    define USE_UTF8_IN_NAMES (!IN_BYTES)
+#else
+#    define USE_UTF8_IN_NAMES (PL_hints & HINT_UTF8)
+#endif
+
+#include "regcharclass.h"
+#include "unicode_constants.h"
+
+/* For to_utf8_fold_flags, q.v. */
+#define FOLD_FLAGS_LOCALE       0x1
+#define FOLD_FLAGS_FULL         0x2
+#define FOLD_FLAGS_NOMIX_ASCII  0x4
+
+/* For _core_swash_init(), internal core use only */
+#define _CORE_SWASH_INIT_USER_DEFINED_PROPERTY 0x1
+#define _CORE_SWASH_INIT_RETURN_IF_UNDEF       0x2
+#define _CORE_SWASH_INIT_ACCEPT_INVLIST        0x4
+
+/*
+=head1 Unicode Support
+L<perlguts/Unicode Support> has an introduction to this API.
+
+See also L</Character classification>,
+and L</Character case changing>.
+Various functions outside this section also work specially with Unicode.
+Search for the string "utf8" in this document.
+
+=for apidoc is_ascii_string
+
+This is a misleadingly-named synonym for L</is_invariant_string>.
+On ASCII-ish platforms, the name isn't misleading: the ASCII-range characters
+are exactly the UTF-8 invariants.  But EBCDIC machines have more invariants
+than just the ASCII characters, so C<is_invariant_string> is preferred.
+
+=cut
+*/
+#define is_ascii_string(s, len)     is_invariant_string(s, len)
+
+#define uvchr_to_utf8(a,b)          uvchr_to_utf8_flags(a,b,0)
+#define uvchr_to_utf8_flags(d,uv,flags)                                        \
+                            uvoffuni_to_utf8_flags(d,NATIVE_TO_UNI(uv),flags)
+#define utf8_to_uvchr_buf(s, e, lenp)                                          \
+                     utf8n_to_uvchr(s, (U8*)(e) - (U8*)(s), lenp,              \
+                                    ckWARN_d(WARN_UTF8) ? 0 : UTF8_ALLOW_ANY)
+
+#define to_uni_fold(c, p, lenp) _to_uni_fold_flags(c, p, lenp, FOLD_FLAGS_FULL)
+#define to_utf8_fold(c, p, lenp) _to_utf8_fold_flags(c, p, lenp, FOLD_FLAGS_FULL)
+#define to_utf8_lower(a,b,c) _to_utf8_lower_flags(a,b,c,0)
+#define to_utf8_upper(a,b,c) _to_utf8_upper_flags(a,b,c,0)
+#define to_utf8_title(a,b,c) _to_utf8_title_flags(a,b,c,0)
+
+/* Source backward compatibility. */
+#define is_utf8_string_loc(s, len, ep)	is_utf8_string_loclen(s, len, ep, 0)
+
+#define foldEQ_utf8(s1, pe1, l1, u1, s2, pe2, l2, u2) \
+		    foldEQ_utf8_flags(s1, pe1, l1, u1, s2, pe2, l2, u2, 0)
+#define FOLDEQ_UTF8_NOMIX_ASCII   (1 << 0)
+#define FOLDEQ_LOCALE             (1 << 1)
+#define FOLDEQ_S1_ALREADY_FOLDED  (1 << 2)
+#define FOLDEQ_S2_ALREADY_FOLDED  (1 << 3)
+#define FOLDEQ_S1_FOLDS_SANE      (1 << 4)
+#define FOLDEQ_S2_FOLDS_SANE      (1 << 5)
+
+#define ibcmp_utf8(s1, pe1, l1, u1, s2, pe2, l2, u2) \
+		    cBOOL(! foldEQ_utf8(s1, pe1, l1, u1, s2, pe2, l2, u2))
+
+#ifdef EBCDIC
+/* The equivalent of these macros but implementing UTF-EBCDIC
+   are in the following header file:
+ */
+
+#include "utfebcdic.h"
+
+#else	/* ! EBCDIC */
+START_EXTERN_C
+
+/* How wide can a single UTF-8 encoded character become in bytes. */
+/* NOTE: Strictly speaking Perl's UTF-8 should not be called UTF-8 since UTF-8
+ * is an encoding of Unicode, and Unicode's upper limit, 0x10FFFF, can be
+ * expressed with 4 bytes.  However, Perl thinks of UTF-8 as a way to encode
+ * non-negative integers in a binary format, even those above Unicode */
+#define UTF8_MAXBYTES 13
+
+#ifdef DOINIT
+EXTCONST unsigned char PL_utf8skip[] = {
+/* 0x00 */ 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, /* ascii */
+/* 0x10 */ 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, /* ascii */
+/* 0x20 */ 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, /* ascii */
+/* 0x30 */ 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, /* ascii */
+/* 0x40 */ 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, /* ascii */
+/* 0x50 */ 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, /* ascii */
+/* 0x60 */ 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, /* ascii */
+/* 0x70 */ 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, /* ascii */
+/* 0x80 */ 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, /* bogus: continuation byte */
+/* 0x90 */ 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, /* bogus: continuation byte */
+/* 0xA0 */ 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, /* bogus: continuation byte */
+/* 0xB0 */ 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, /* bogus: continuation byte */
+/* 0xC0 */ 2,2,				    /* overlong */
+/* 0xC2 */     2,2,2,2,2,2,2,2,2,2,2,2,2,2, /* U+0080 to U+03FF */
+/* 0xD0 */ 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2, /* U+0400 to U+07FF */
+/* 0xE0 */ 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3, /* U+0800 to U+FFFF */
+/* 0xF0 */ 4,4,4,4,4,4,4,4,5,5,5,5,6,6,	    /* above BMP to 2**31 - 1 */
+           /* Perl extended (never was official UTF-8).  Up to 36 bit */
+/* 0xFE */                             7,
+           /* More extended, Up to 72 bits (64-bit + reserved) */
+/* 0xFF */                               UTF8_MAXBYTES
+};
+#else
+EXTCONST unsigned char PL_utf8skip[];
+#endif
+
+END_EXTERN_C
+
+#if defined(_MSC_VER) && _MSC_VER < 1400
+/* older MSVC versions have a smallish macro buffer */
+#define PERL_SMALL_MACRO_BUFFER
+#endif
+
+/* Native character to/from iso-8859-1.  Are the identity functions on ASCII
+ * platforms */
+#ifdef PERL_SMALL_MACRO_BUFFER
+#define NATIVE_TO_LATIN1(ch)     ((U8)(ch))
+#define LATIN1_TO_NATIVE(ch)     ((U8)(ch))
+#else
+#define NATIVE_TO_LATIN1(ch)     (__ASSERT_(FITS_IN_8_BITS(ch)) ((U8) (ch)))
+#define LATIN1_TO_NATIVE(ch)     (__ASSERT_(FITS_IN_8_BITS(ch)) ((U8) (ch)))
+#endif
+
+/* I8 is an intermediate version of UTF-8 used only in UTF-EBCDIC.  We thus
+ * consider it to be identical to UTF-8 on ASCII platforms.  Strictly speaking
+ * UTF-8 and UTF-EBCDIC are two different things, but we often conflate them
+ * because they are 8-bit encodings that serve the same purpose in Perl, and
+ * rarely do we need to distinguish them.  The term "NATIVE_UTF8" applies to
+ * whichever one is applicable on the current platform */
+#ifdef PERL_SMALL_MACRO_BUFFER
+#define NATIVE_UTF8_TO_I8(ch) (ch)
+#define I8_TO_NATIVE_UTF8(ch) (ch)
+#else
+#define NATIVE_UTF8_TO_I8(ch) (__ASSERT_(FITS_IN_8_BITS(ch)) ((U8) (ch)))
+#define I8_TO_NATIVE_UTF8(ch) (__ASSERT_(FITS_IN_8_BITS(ch)) ((U8) (ch)))
+#endif
+
+/* Transforms in wide UV chars */
+#define UNI_TO_NATIVE(ch)        ((UV) (ch))
+#define NATIVE_TO_UNI(ch)        ((UV) (ch))
+
+/*
+
+ The following table is from Unicode 3.2.
+
+ Code Points		1st Byte  2nd Byte  3rd Byte  4th Byte
+
+   U+0000..U+007F	00..7F
+   U+0080..U+07FF     * C2..DF    80..BF
+   U+0800..U+0FFF	E0      * A0..BF    80..BF
+   U+1000..U+CFFF       E1..EC    80..BF    80..BF
+   U+D000..U+D7FF       ED        80..9F    80..BF
+   U+D800..U+DFFF       ED        A0..BF    80..BF  (surrogates)
+   U+E000..U+FFFF       EE..EF    80..BF    80..BF
+  U+10000..U+3FFFF	F0      * 90..BF    80..BF    80..BF
+  U+40000..U+FFFFF	F1..F3    80..BF    80..BF    80..BF
+ U+100000..U+10FFFF	F4        80..8F    80..BF    80..BF
+    Below are non-Unicode code points
+ U+110000..U+13FFFF	F4        90..BF    80..BF    80..BF
+ U+110000..U+1FFFFF	F5..F7    80..BF    80..BF    80..BF
+ U+200000..:            F8..    * 88..BF    80..BF    80..BF    80..BF
+
+Note the gaps before several of the byte entries above marked by '*'.  These are
+caused by legal UTF-8 avoiding non-shortest encodings: it is technically
+possible to UTF-8-encode a single code point in different ways, but that is
+explicitly forbidden, and the shortest possible encoding should always be used
+(and that is what Perl does).  The non-shortest ones are called 'overlongs'.
+
+ */
+
+/*
+ Another way to look at it, as bits:
+
+                  Code Points      1st Byte   2nd Byte   3rd Byte   4th Byte
+
+                        0aaa aaaa  0aaa aaaa
+              0000 0bbb bbaa aaaa  110b bbbb  10aa aaaa
+              cccc bbbb bbaa aaaa  1110 cccc  10bb bbbb  10aa aaaa
+ 00 000d ddcc cccc bbbb bbaa aaaa  1111 0ddd  10cc cccc  10bb bbbb  10aa aaaa
+
+As you can see, the continuation bytes all begin with C<10>, and the
+leading bits of the start byte tell how many bytes there are in the
+encoded character.
+
+Perl's extended UTF-8 means we can have start bytes up to FF.
+
+*/
+
+/* Is the representation of the Unicode code point 'cp' the same regardless of
+ * being encoded in UTF-8 or not? */
+#define OFFUNI_IS_INVARIANT(cp)     isASCII(cp)
+
+/* Is the representation of the code point 'cp' the same regardless of
+ * being encoded in UTF-8 or not?  'cp' is native if < 256; Unicode otherwise
+ * */
+#define UVCHR_IS_INVARIANT(cp)      OFFUNI_IS_INVARIANT(cp)
+
+/* This defines the bits that are to be in the continuation bytes of a multi-byte
+ * UTF-8 encoded character that mark it is a continuation byte. */
+#define UTF_CONTINUATION_MARK		0x80
+
+/* Misleadingly named: is the UTF8-encoded byte 'c' part of a variant sequence
+ * in UTF-8?  This is the inverse of UTF8_IS_INVARIANT.  The |0 makes sure this
+ * isn't mistakenly called with a ptr argument */
+#define UTF8_IS_CONTINUED(c)        (((U8)((c) | 0)) &  UTF_CONTINUATION_MARK)
+
+/* Is the byte 'c' the first byte of a multi-byte UTF8-8 encoded sequence?
+ * This doesn't catch invariants (they are single-byte).  It also excludes the
+ * illegal overlong sequences that begin with C0 and C1.  The |0 makes sure
+ * this isn't mistakenly called with a ptr argument */
+#define UTF8_IS_START(c)            (((U8)((c) | 0)) >= 0xc2)
+
+/* For use in UTF8_IS_CONTINUATION() below */
+#define UTF_IS_CONTINUATION_MASK    0xC0
+
+/* Is the byte 'c' part of a multi-byte UTF8-8 encoded sequence, and not the
+ * first byte thereof?  The |0 makes sure this isn't mistakenly called with a
+ * ptr argument */
+#define UTF8_IS_CONTINUATION(c)                                             \
+    ((((U8)((c) | 0)) & UTF_IS_CONTINUATION_MASK) == UTF_CONTINUATION_MARK)
+
+/* Is the UTF8-encoded byte 'c' the first byte of a two byte sequence?  Use
+ * UTF8_IS_NEXT_CHAR_DOWNGRADEABLE() instead if the input isn't known to
+ * be well-formed.  Masking with 0xfe allows the low bit to be 0 or 1; thus
+ * this matches 0xc[23].  The |0 makes sure this isn't mistakenly called with a
+ * ptr argument */
+#define UTF8_IS_DOWNGRADEABLE_START(c)	((((U8)((c) | 0)) & 0xfe) == 0xc2)
+
+/* Is the UTF8-encoded byte 'c' the first byte of a sequence of bytes that
+ * represent a code point > 255?  The |0 makes sure this isn't mistakenly
+ * called with a ptr argument */
+#define UTF8_IS_ABOVE_LATIN1(c)     (((U8)((c) | 0)) >= 0xc4)
+
+/* This is the number of low-order bits a continuation byte in a UTF-8 encoded
+ * sequence contributes to the specification of the code point.  In the bit
+ * maps above, you see that the first 2 bits are a constant '10', leaving 6 of
+ * real information */
+#define UTF_ACCUMULATION_SHIFT		6
+
+/* ^? is defined to be DEL on ASCII systems.  See the definition of toCTRL()
+ * for more */
+#define QUESTION_MARK_CTRL  DEL_NATIVE
+
+/* Surrogates, non-character code points and above-Unicode code points are
+ * problematic in some contexts.  This allows code that needs to check for
+ * those to to quickly exclude the vast majority of code points it will
+ * encounter */
+#define isUTF8_POSSIBLY_PROBLEMATIC(c) ((U8) c >= 0xED)
+
+#endif /* EBCDIC vs ASCII */
+
+/* 2**UTF_ACCUMULATION_SHIFT - 1 */
+#define UTF_CONTINUATION_MASK  ((U8) ((1U << UTF_ACCUMULATION_SHIFT) - 1))
+
+/* Internal macro to be used only in this file to aid in constructing other
+ * publicly accessible macros.
+ * The number of bytes required to express this uv in UTF-8, for just those
+ * uv's requiring 2 through 6 bytes, as these are common to all platforms and
+ * word sizes.  The number of bytes needed is given by the number of leading 1
+ * bits in the start byte.  There are 32 start bytes that have 2 initial 1 bits
+ * (C0-DF); there are 16 that have 3 initial 1 bits (E0-EF); 8 that have 4
+ * initial 1 bits (F0-F8); 4 that have 5 initial 1 bits (F9-FB), and 2 that
+ * have 6 initial 1 bits (FC-FD).  The largest number a string of n bytes can
+ * represent is       (the number of possible start bytes for 'n')
+ *                  * (the number of possiblities for each start byte
+ * The latter in turn is
+ *                  2  ** (  (how many continuation bytes there are)
+ *                         * (the number of bits of information each
+ *                            continuation byte holds))
+ *
+ * If we were on a platform where we could use a fast find first set bit
+ * instruction (or count leading zeros instruction) this could be replaced by
+ * using that to find the log2 of the uv, and divide that by the number of bits
+ * of information in each continuation byte, adjusting for large cases and how
+ * much information is in a start byte for that length */
+#define __COMMON_UNI_SKIP(uv)                                               \
+          (UV) (uv) < (32 * (1U << (    UTF_ACCUMULATION_SHIFT))) ? 2 :     \
+          (UV) (uv) < (16 * (1U << (2 * UTF_ACCUMULATION_SHIFT))) ? 3 :     \
+          (UV) (uv) < ( 8 * (1U << (3 * UTF_ACCUMULATION_SHIFT))) ? 4 :     \
+          (UV) (uv) < ( 4 * (1U << (4 * UTF_ACCUMULATION_SHIFT))) ? 5 :     \
+          (UV) (uv) < ( 2 * (1U << (5 * UTF_ACCUMULATION_SHIFT))) ? 6 :
+
+/* Internal macro to be used only in this file.
+ * This adds to __COMMON_UNI_SKIP the details at this platform's upper range.
+ * For any-sized EBCDIC platforms, or 64-bit ASCII ones, we need one more test
+ * to see if just 7 bytes is needed, or if the maximum is needed.  For 32-bit
+ * ASCII platforms, everything is representable by 7 bytes */
+#if defined(UV_IS_QUAD) || defined(EBCDIC)
+#   define __BASE_UNI_SKIP(uv) (__COMMON_UNI_SKIP(uv)                       \
+     (UV) (uv) < ((UV) 1U << (6 * UTF_ACCUMULATION_SHIFT)) ? 7 : UTF8_MAXBYTES)
+#else
+#   define __BASE_UNI_SKIP(uv) (__COMMON_UNI_SKIP(uv) 7)
+#endif
+
+/* The next two macros use the base macro defined above, and add in the tests
+ * at the low-end of the range, for just 1 byte, yielding complete macros,
+ * publicly accessible. */
+
+/* Input is a true Unicode (not-native) code point */
+#define OFFUNISKIP(uv) (OFFUNI_IS_INVARIANT(uv) ? 1 : __BASE_UNI_SKIP(uv))
+
+/*
+
+=for apidoc Am|STRLEN|UVCHR_SKIP|UV cp
+returns the number of bytes required to represent the code point C<cp> when
+encoded as UTF-8.  C<cp> is a native (ASCII or EBCDIC) code point if less than
+255; a Unicode code point otherwise.
+
+=cut
+ */
+#define UVCHR_SKIP(uv) ( UVCHR_IS_INVARIANT(uv) ? 1 : __BASE_UNI_SKIP(uv))
+
+/* As explained in the comments for __COMMON_UNI_SKIP, 32 start bytes with
+ * UTF_ACCUMULATION_SHIFT bits of information each */
+#define MAX_UTF8_TWO_BYTE (32 * (1U << UTF_ACCUMULATION_SHIFT) - 1)
+
+/* constrained by EBCDIC which has 5 bits per continuation byte */
+#define MAX_PORTABLE_UTF8_TWO_BYTE (32 * (1U << 5) - 1)
+
+/* The maximum number of UTF-8 bytes a single Unicode character can
+ * uppercase/lowercase/fold into.  Unicode guarantees that the maximum
+ * expansion is UTF8_MAX_FOLD_CHAR_EXPAND characters, but any above-Unicode
+ * code point will fold to itself, so we only have to look at the expansion of
+ * the maximum Unicode code point.  But this number may be less than the space
+ * occupied by a very large code point under Perl's extended UTF-8.  We have to
+ * make it large enough to fit any single character.  (It turns out that ASCII
+ * and EBCDIC differ in which is larger) */
+#define UTF8_MAXBYTES_CASE	                                                \
+        (UTF8_MAXBYTES >= (UTF8_MAX_FOLD_CHAR_EXPAND * OFFUNISKIP(0x10FFFF))    \
+                           ? UTF8_MAXBYTES                                      \
+                           : (UTF8_MAX_FOLD_CHAR_EXPAND * OFFUNISKIP(0x10FFFF)))
+
+/* Rest of these are attributes of Unicode and perl's internals rather than the
+ * encoding, or happen to be the same in both ASCII and EBCDIC (at least at
+ * this level; the macros that some of these call may have different
+ * definitions in the two encodings */
+
+/* In domain restricted to ASCII, these may make more sense to the reader than
+ * the ones with Latin1 in the name */
+#define NATIVE_TO_ASCII(ch)      NATIVE_TO_LATIN1(ch)
+#define ASCII_TO_NATIVE(ch)      LATIN1_TO_NATIVE(ch)
+
+/* More or less misleadingly-named defines, retained for back compat */
+#define NATIVE_TO_UTF(ch)        NATIVE_UTF8_TO_I8(ch)
+#define NATIVE_TO_I8(ch)         NATIVE_UTF8_TO_I8(ch)
+#define UTF_TO_NATIVE(ch)        I8_TO_NATIVE_UTF8(ch)
+#define I8_TO_NATIVE(ch)         I8_TO_NATIVE_UTF8(ch)
+#define NATIVE8_TO_UNI(ch)       NATIVE_TO_LATIN1(ch)
+
+/* This defines the 1-bits that are to be in the first byte of a multi-byte
+ * UTF-8 encoded character that mark it as a start byte and give the number of
+ * bytes that comprise the character. 'len' is the number of bytes in the
+ * multi-byte sequence. */
+#define UTF_START_MARK(len) (((len) >  7) ? 0xFF : (0xFF & (0xFE << (7-(len)))))
+
+/* Masks out the initial one bits in a start byte, leaving the real data ones.
+ * Doesn't work on an invariant byte.  'len' is the number of bytes in the
+ * multi-byte sequence that comprises the character. */
+#define UTF_START_MASK(len) (((len) >= 7) ? 0x00 : (0x1F >> ((len)-2)))
+
+/* Adds a UTF8 continuation byte 'new' of information to a running total code
+ * point 'old' of all the continuation bytes so far.  This is designed to be
+ * used in a loop to convert from UTF-8 to the code point represented.  Note
+ * that this is asymmetric on EBCDIC platforms, in that the 'new' parameter is
+ * the UTF-EBCDIC byte, whereas the 'old' parameter is a Unicode (not EBCDIC)
+ * code point in process of being generated */
+#define UTF8_ACCUMULATE(old, new) (((old) << UTF_ACCUMULATION_SHIFT)           \
+                                   | ((NATIVE_UTF8_TO_I8((U8)new))             \
+                                       & UTF_CONTINUATION_MASK))
+
+/* If a value is anded with this, and the result is non-zero, then using the
+ * original value in UTF8_ACCUMULATE will overflow, shifting bits off the left
+ * */
+#define UTF_ACCUMULATION_OVERFLOW_MASK					\
+    (((UV) UTF_CONTINUATION_MASK) << ((sizeof(UV) * CHARBITS)           \
+           - UTF_ACCUMULATION_SHIFT))
+
+/* This works in the face of malformed UTF-8. */
+#define UTF8_IS_NEXT_CHAR_DOWNGRADEABLE(s, e) (UTF8_IS_DOWNGRADEABLE_START(*s) \
+                                               && ( (e) - (s) > 1)             \
+                                               && UTF8_IS_CONTINUATION(*((s)+1)))
+
+/* Number of bytes a code point occupies in UTF-8. */
+#define NATIVE_SKIP(uv) UVCHR_SKIP(uv)
+
+/* Most code which says UNISKIP is really thinking in terms of native code
+ * points (0-255) plus all those beyond.  This is an imprecise term, but having
+ * it means existing code continues to work.  For precision, use UVCHR_SKIP,
+ * NATIVE_SKIP, or OFFUNISKIP */
+#define UNISKIP(uv)   UVCHR_SKIP(uv)
+
+/* Longer, but more accurate name */
+#define UTF8_IS_ABOVE_LATIN1_START(c)     UTF8_IS_ABOVE_LATIN1(c)
+
+/* Convert a UTF-8 variant Latin1 character to a native code point value.
+ * Needs just one iteration of accumulate.  Should be used only if it is known
+ * that the code point is < 256, and is not UTF-8 invariant.  Use the slower
+ * but more general TWO_BYTE_UTF8_TO_NATIVE() which handles any code point
+ * representable by two bytes (which turns out to be up through
+ * MAX_PORTABLE_UTF8_TWO_BYTE).  The two parameters are:
+ *  HI: a downgradable start byte;
+ *  LO: continuation.
+ * */
+#define EIGHT_BIT_UTF8_TO_NATIVE(HI, LO)                                        \
+    ( __ASSERT_(UTF8_IS_DOWNGRADEABLE_START(HI))                                \
+      __ASSERT_(UTF8_IS_CONTINUATION(LO))                                       \
+     LATIN1_TO_NATIVE(UTF8_ACCUMULATE((                                         \
+                            NATIVE_UTF8_TO_I8(HI) & UTF_START_MASK(2)), (LO))))
+
+/* Convert a two (not one) byte utf8 character to a native code point value.
+ * Needs just one iteration of accumulate.  Should not be used unless it is
+ * known that the two bytes are legal: 1) two-byte start, and 2) continuation.
+ * Note that the result can be larger than 255 if the input character is not
+ * downgradable */
+#define TWO_BYTE_UTF8_TO_NATIVE(HI, LO) \
+    ( __ASSERT_(PL_utf8skip[HI] == 2)                                           \
+      __ASSERT_(UTF8_IS_CONTINUATION(LO))                                       \
+     UNI_TO_NATIVE(UTF8_ACCUMULATE((NATIVE_UTF8_TO_I8(HI) & UTF_START_MASK(2)), \
+                                   (LO))))
+
+/* Should never be used, and be deprecated */
+#define TWO_BYTE_UTF8_TO_UNI(HI, LO) NATIVE_TO_UNI(TWO_BYTE_UTF8_TO_NATIVE(HI, LO))
+
+/*
+
+=for apidoc Am|STRLEN|UTF8SKIP|char* s
+returns the number of bytes in the UTF-8 encoded character whose first (perhaps
+only) byte is pointed to by C<s>.
+
+=cut
+ */
+#define UTF8SKIP(s)  PL_utf8skip[*(const U8*)(s)]
+#define UTF8_SKIP(s) UTF8SKIP(s)
+
+/* Most code that says 'UNI_' really means the native value for code points up
+ * through 255 */
+#define UNI_IS_INVARIANT(cp)   UVCHR_IS_INVARIANT(cp)
+
+/* Is the byte 'c' the same character when encoded in UTF-8 as when not.  This
+ * works on both UTF-8 encoded strings and non-encoded, as it returns TRUE in
+ * each for the exact same set of bit patterns.  It is valid on a subset of
+ * what UVCHR_IS_INVARIANT is valid on, so can just use that; and the compiler
+ * should optimize out anything extraneous given the implementation of the
+ * latter.  The |0 makes sure this isn't mistakenly called with a ptr argument.
+ * */
+#define UTF8_IS_INVARIANT(c)	UVCHR_IS_INVARIANT((c) | 0)
+
+/* Like the above, but its name implies a non-UTF8 input, which as the comments
+ * above show, doesn't matter as to its implementation */
+#define NATIVE_BYTE_IS_INVARIANT(c)	UVCHR_IS_INVARIANT(c)
+
+/* The macros in the next 4 sets are used to generate the two utf8 or utfebcdic
+ * bytes from an ordinal that is known to fit into exactly two (not one) bytes;
+ * it must be less than 0x3FF to work across both encodings. */
+
+/* These two are helper macros for the other three sets, and should not be used
+ * directly anywhere else.  'translate_function' is either NATIVE_TO_LATIN1
+ * (which works for code points up through 0xFF) or NATIVE_TO_UNI which works
+ * for any code point */
+#define __BASE_TWO_BYTE_HI(c, translate_function)                               \
+           (__ASSERT_(! UVCHR_IS_INVARIANT(c))                                  \
+            I8_TO_NATIVE_UTF8((translate_function(c) >> UTF_ACCUMULATION_SHIFT) \
+                              | UTF_START_MARK(2)))
+#define __BASE_TWO_BYTE_LO(c, translate_function)                               \
+             (__ASSERT_(! UVCHR_IS_INVARIANT(c))                                \
+              I8_TO_NATIVE_UTF8((translate_function(c) & UTF_CONTINUATION_MASK) \
+                                 | UTF_CONTINUATION_MARK))
+
+/* The next two macros should not be used.  They were designed to be usable as
+ * the case label of a switch statement, but this doesn't work for EBCDIC.  Use
+ * regen/unicode_constants.pl instead */
+#define UTF8_TWO_BYTE_HI_nocast(c)  __BASE_TWO_BYTE_HI(c, NATIVE_TO_UNI)
+#define UTF8_TWO_BYTE_LO_nocast(c)  __BASE_TWO_BYTE_LO(c, NATIVE_TO_UNI)
+
+/* The next two macros are used when the source should be a single byte
+ * character; checked for under DEBUGGING */
+#define UTF8_EIGHT_BIT_HI(c) (__ASSERT_(FITS_IN_8_BITS(c))                    \
+                             ( __BASE_TWO_BYTE_HI(c, NATIVE_TO_LATIN1)))
+#define UTF8_EIGHT_BIT_LO(c) (__ASSERT_(FITS_IN_8_BITS(c))                    \
+                             (__BASE_TWO_BYTE_LO(c, NATIVE_TO_LATIN1)))
+
+/* These final two macros in the series are used when the source can be any
+ * code point whose UTF-8 is known to occupy 2 bytes; they are less efficient
+ * than the EIGHT_BIT versions on EBCDIC platforms.  We use the logical '~'
+ * operator instead of "<=" to avoid getting compiler warnings.
+ * MAX_UTF8_TWO_BYTE should be exactly all one bits in the lower few
+ * places, so the ~ works */
+#define UTF8_TWO_BYTE_HI(c)                                                    \
+       (__ASSERT_((sizeof(c) ==  1)                                            \
+                  || !(((WIDEST_UTYPE)(c)) & ~MAX_UTF8_TWO_BYTE))              \
+        (__BASE_TWO_BYTE_HI(c, NATIVE_TO_UNI)))
+#define UTF8_TWO_BYTE_LO(c)                                                    \
+       (__ASSERT_((sizeof(c) ==  1)                                            \
+                  || !(((WIDEST_UTYPE)(c)) & ~MAX_UTF8_TWO_BYTE))              \
+        (__BASE_TWO_BYTE_LO(c, NATIVE_TO_UNI)))
+
+/* This is illegal in any well-formed UTF-8 in both EBCDIC and ASCII
+ * as it is only in overlongs. */
+#define ILLEGAL_UTF8_BYTE   I8_TO_NATIVE_UTF8(0xC1)
+
+/*
+ * 'UTF' is whether or not p is encoded in UTF8.  The names 'foo_lazy_if' stem
+ * from an earlier version of these macros in which they didn't call the
+ * foo_utf8() macros (i.e. were 'lazy') unless they decided that *p is the
+ * beginning of a utf8 character.  Now that foo_utf8() determines that itself,
+ * no need to do it again here
+ */
+#define isIDFIRST_lazy_if(p,UTF) ((IN_BYTES || !UTF)                \
+				 ? isIDFIRST(*(p))                  \
+				 : isIDFIRST_utf8((const U8*)p))
+#define isWORDCHAR_lazy_if(p,UTF)   ((IN_BYTES || (!UTF))           \
+				 ? isWORDCHAR(*(p))                 \
+				 : isWORDCHAR_utf8((const U8*)p))
+#define isALNUM_lazy_if(p,UTF)   isWORDCHAR_lazy_if(p,UTF)
+
+#define UTF8_MAXLEN UTF8_MAXBYTES
+
+/* A Unicode character can fold to up to 3 characters */
+#define UTF8_MAX_FOLD_CHAR_EXPAND 3
+
+#define IN_BYTES (CopHINTS_get(PL_curcop) & HINT_BYTES)
+
+/*
+
+=for apidoc Am|bool|DO_UTF8|SV* sv
+Returns a bool giving whether or not the PV in C<sv> is to be treated as being
+encoded in UTF-8.
+
+You should use this I<after> a call to C<SvPV()> or one of its variants, in
+case any call to string overloading updates the internal UTF-8 encoding flag.
+
+=cut
+*/
+#define DO_UTF8(sv) (SvUTF8(sv) && !IN_BYTES)
+
+/* Should all strings be treated as Unicode, and not just UTF-8 encoded ones?
+ * Is so within 'feature unicode_strings' or 'locale :not_characters', and not
+ * within 'use bytes'.  UTF-8 locales are not tested for here, but perhaps
+ * could be */
+#define IN_UNI_8_BIT                                                             \
+	    (((CopHINTS_get(PL_curcop) & (HINT_UNI_8_BIT))                       \
+               || (CopHINTS_get(PL_curcop) & HINT_LOCALE_PARTIAL                 \
+                   /* -1 below is for :not_characters */                         \
+                   && _is_in_locale_category(FALSE, -1)))                        \
+              && ! IN_BYTES)
+
+
+#define UTF8_ALLOW_EMPTY		0x0001	/* Allow a zero length string */
+
+/* Allow first byte to be a continuation byte */
+#define UTF8_ALLOW_CONTINUATION		0x0002
+
+/* Allow second... bytes to be non-continuation bytes */
+#define UTF8_ALLOW_NON_CONTINUATION	0x0004
+
+/* expecting more bytes than were available in the string */
+#define UTF8_ALLOW_SHORT		0x0008
+
+/* Overlong sequence; i.e., the code point can be specified in fewer bytes. */
+#define UTF8_ALLOW_LONG                 0x0010
+
+#define UTF8_DISALLOW_SURROGATE		0x0020	/* Unicode surrogates */
+#define UTF8_WARN_SURROGATE		0x0040
+
+#define UTF8_DISALLOW_NONCHAR           0x0080	/* Unicode non-character */
+#define UTF8_WARN_NONCHAR               0x0100	/*  code points */
+
+#define UTF8_DISALLOW_SUPER		0x0200	/* Super-set of Unicode: code */
+#define UTF8_WARN_SUPER		        0x0400	/* points above the legal max */
+
+/* Code points which never were part of the original UTF-8 standard, which only
+ * went up to 2 ** 31 - 1.  Note that these all overflow a signed 32-bit word,
+ * The first byte of these code points is FE or FF on ASCII platforms.  If the
+ * first byte is FF, it will overflow a 32-bit word. */
+#define UTF8_DISALLOW_ABOVE_31_BIT      0x0800
+#define UTF8_WARN_ABOVE_31_BIT          0x1000
+
+/* For back compat, these old names are misleading for UTF_EBCDIC */
+#define UTF8_DISALLOW_FE_FF             UTF8_DISALLOW_ABOVE_31_BIT
+#define UTF8_WARN_FE_FF                 UTF8_WARN_ABOVE_31_BIT
+
+#define UTF8_CHECK_ONLY			0x2000
+
+/* For backwards source compatibility.  They do nothing, as the default now
+ * includes what they used to mean.  The first one's meaning was to allow the
+ * just the single non-character 0xFFFF */
+#define UTF8_ALLOW_FFFF 0
+#define UTF8_ALLOW_SURROGATE 0
+
+#define UTF8_DISALLOW_ILLEGAL_INTERCHANGE                                       \
+                       ( UTF8_DISALLOW_SUPER|UTF8_DISALLOW_NONCHAR              \
+                        |UTF8_DISALLOW_SURROGATE)
+#define UTF8_WARN_ILLEGAL_INTERCHANGE \
+                         (UTF8_WARN_SUPER|UTF8_WARN_NONCHAR|UTF8_WARN_SURROGATE)
+#define UTF8_ALLOW_ANY                                                          \
+	    (~( UTF8_DISALLOW_ILLEGAL_INTERCHANGE|UTF8_DISALLOW_ABOVE_31_BIT    \
+               |UTF8_WARN_ILLEGAL_INTERCHANGE|UTF8_WARN_ABOVE_31_BIT))
+#define UTF8_ALLOW_ANYUV                                                        \
+         (UTF8_ALLOW_EMPTY                                                      \
+	  & ~(UTF8_DISALLOW_ILLEGAL_INTERCHANGE|UTF8_WARN_ILLEGAL_INTERCHANGE))
+#define UTF8_ALLOW_DEFAULT		(ckWARN(WARN_UTF8) ? 0 : \
+					 UTF8_ALLOW_ANYUV)
+
+/* Several of the macros below have a second parameter that is currently
+ * unused; but could be used in the future to make sure that the input is
+ * well-formed. */
+
+#define UTF8_IS_SURROGATE(s, e) cBOOL(is_SURROGATE_utf8(s))
+#define UTF8_IS_REPLACEMENT(s, send) cBOOL(is_REPLACEMENT_utf8_safe(s,send))
+
+/*		  ASCII		     EBCDIC I8
+ * U+10FFFF: \xF4\x8F\xBF\xBF	\xF9\xA1\xBF\xBF\xBF	max legal Unicode
+ * U+110000: \xF4\x90\x80\x80	\xF9\xA2\xA0\xA0\xA0
+ * U+110001: \xF4\x90\x80\x81	\xF9\xA2\xA0\xA0\xA1
+ *
+ * BE AWARE that this test doesn't rule out malformed code points, in
+ * particular overlongs */
+#ifdef EBCDIC /* Both versions assume well-formed UTF8 */
+#   define UTF8_IS_SUPER(s, e) (NATIVE_UTF8_TO_I8(* (U8*) (s)) >= 0xF9          \
+                         && (NATIVE_UTF8_TO_I8(* (U8*) (s)) > 0xF9              \
+                             || (NATIVE_UTF8_TO_I8(* ((U8*) (s) + 1)) >= 0xA2)))
+#else
+#   define UTF8_IS_SUPER(s, e) (*(U8*) (s) >= 0xF4                              \
+                           && (*(U8*) (s) > 0xF4 || (*((U8*) (s) + 1) >= 0x90)))
+#endif
+
+/* These are now machine generated, and the 'given' clause is no longer
+ * applicable */
+#define UTF8_IS_NONCHAR_GIVEN_THAT_NON_SUPER_AND_GE_PROBLEMATIC(s, e)          \
+                                                    cBOOL(is_NONCHAR_utf8(s))
+#define UTF8_IS_NONCHAR(s, e)                                                  \
+                UTF8_IS_NONCHAR_GIVEN_THAT_NON_SUPER_AND_GE_PROBLEMATIC(s, e)
+
+#define UNICODE_SURROGATE_FIRST		0xD800
+#define UNICODE_SURROGATE_LAST		0xDFFF
+#define UNICODE_REPLACEMENT		0xFFFD
+#define UNICODE_BYTE_ORDER_MARK		0xFEFF
+
+/* Though our UTF-8 encoding can go beyond this,
+ * let's be conservative and do as Unicode says. */
+#define PERL_UNICODE_MAX	0x10FFFF
+
+#define UNICODE_WARN_SURROGATE        0x0001	/* UTF-16 surrogates */
+#define UNICODE_WARN_NONCHAR          0x0002	/* Non-char code points */
+#define UNICODE_WARN_SUPER            0x0004	/* Above 0x10FFFF */
+#define UNICODE_WARN_ABOVE_31_BIT     0x0008	/* Above 0x7FFF_FFFF */
+#define UNICODE_DISALLOW_SURROGATE    0x0010
+#define UNICODE_DISALLOW_NONCHAR      0x0020
+#define UNICODE_DISALLOW_SUPER        0x0040
+#define UNICODE_DISALLOW_ABOVE_31_BIT 0x0080
+#define UNICODE_WARN_ILLEGAL_INTERCHANGE                                      \
+            (UNICODE_WARN_SURROGATE|UNICODE_WARN_NONCHAR|UNICODE_WARN_SUPER)
+#define UNICODE_DISALLOW_ILLEGAL_INTERCHANGE                                  \
+ (UNICODE_DISALLOW_SURROGATE|UNICODE_DISALLOW_NONCHAR|UNICODE_DISALLOW_SUPER)
+
+/* For backward source compatibility, as are now the default */
+#define UNICODE_ALLOW_SURROGATE 0
+#define UNICODE_ALLOW_SUPER	0
+#define UNICODE_ALLOW_ANY	0
+
+/* This matches the 2048 code points between UNICODE_SURROGATE_FIRST (0xD800) and
+ * UNICODE_SURROGATE_LAST (0xDFFF) */
+#define UNICODE_IS_SURROGATE(uv)        (((UV) (uv) & (~0xFFFF | 0xF800))       \
+                                                                    == 0xD800)
+
+#define UNICODE_IS_REPLACEMENT(uv)	((UV) (uv) == UNICODE_REPLACEMENT)
+#define UNICODE_IS_BYTE_ORDER_MARK(uv)	((UV) (uv) == UNICODE_BYTE_ORDER_MARK)
+
+/* Is 'uv' one of the 32 contiguous-range noncharacters? */
+#define UNICODE_IS_32_CONTIGUOUS_NONCHARS(uv)      ((UV) (uv) >= 0xFDD0         \
+                                                 && (UV) (uv) <= 0xFDEF)
+
+/* Is 'uv' one of the 34 plane-ending noncharacters 0xFFFE, 0xFFFF, 0x1FFFE,
+ * 0x1FFFF, ... 0x10FFFE, 0x10FFFF, given that we know that 'uv' is not above
+ * the Unicode legal max */
+#define UNICODE_IS_END_PLANE_NONCHAR_GIVEN_NOT_SUPER(uv)                        \
+                                              (((UV) (uv) & 0xFFFE) == 0xFFFE)
+
+#define UNICODE_IS_NONCHAR(uv)                                                  \
+    (   UNICODE_IS_32_CONTIGUOUS_NONCHARS(uv)                                   \
+     || (   LIKELY( ! UNICODE_IS_SUPER(uv))                                     \
+         && UNICODE_IS_END_PLANE_NONCHAR_GIVEN_NOT_SUPER(uv)))
+
+#define UNICODE_IS_SUPER(uv)    ((UV) (uv) > PERL_UNICODE_MAX)
+#define UNICODE_IS_ABOVE_31_BIT(uv)    ((UV) (uv) > 0x7FFFFFFF)
+
+#define LATIN_SMALL_LETTER_SHARP_S      LATIN_SMALL_LETTER_SHARP_S_NATIVE
+#define LATIN_SMALL_LETTER_Y_WITH_DIAERESIS                                  \
+                                LATIN_SMALL_LETTER_Y_WITH_DIAERESIS_NATIVE
+#define MICRO_SIGN      MICRO_SIGN_NATIVE
+#define LATIN_CAPITAL_LETTER_A_WITH_RING_ABOVE                               \
+                            LATIN_CAPITAL_LETTER_A_WITH_RING_ABOVE_NATIVE
+#define LATIN_SMALL_LETTER_A_WITH_RING_ABOVE                                 \
+                                LATIN_SMALL_LETTER_A_WITH_RING_ABOVE_NATIVE
+#define UNICODE_GREEK_CAPITAL_LETTER_SIGMA	0x03A3
+#define UNICODE_GREEK_SMALL_LETTER_FINAL_SIGMA	0x03C2
+#define UNICODE_GREEK_SMALL_LETTER_SIGMA	0x03C3
+#define GREEK_SMALL_LETTER_MU                   0x03BC
+#define GREEK_CAPITAL_LETTER_MU                 0x039C	/* Upper and title case
+                                                           of MICRON */
+#define LATIN_CAPITAL_LETTER_Y_WITH_DIAERESIS   0x0178	/* Also is title case */
+#ifdef LATIN_CAPITAL_LETTER_SHARP_S_UTF8
+#   define LATIN_CAPITAL_LETTER_SHARP_S	        0x1E9E
+#endif
+#define LATIN_CAPITAL_LETTER_I_WITH_DOT_ABOVE   0x130
+#define LATIN_SMALL_LETTER_DOTLESS_I            0x131
+#define LATIN_SMALL_LETTER_LONG_S               0x017F
+#define LATIN_SMALL_LIGATURE_LONG_S_T           0xFB05
+#define LATIN_SMALL_LIGATURE_ST                 0xFB06
+#define KELVIN_SIGN                             0x212A
+#define ANGSTROM_SIGN                           0x212B
+
+#define UNI_DISPLAY_ISPRINT	0x0001
+#define UNI_DISPLAY_BACKSLASH	0x0002
+#define UNI_DISPLAY_QQ		(UNI_DISPLAY_ISPRINT|UNI_DISPLAY_BACKSLASH)
+#define UNI_DISPLAY_REGEX	(UNI_DISPLAY_ISPRINT|UNI_DISPLAY_BACKSLASH)
+
+#define ANYOF_FOLD_SHARP_S(node, input, end)	\
+	(ANYOF_BITMAP_TEST(node, LATIN_SMALL_LETTER_SHARP_S) && \
+	 (ANYOF_NONBITMAP(node)) && \
+	 (ANYOF_FLAGS(node) & ANYOF_LOC_NONBITMAP_FOLD) && \
+	 ((end) > (input) + 1) && \
+	 isALPHA_FOLD_EQ((input)[0], 's'))
+
+#define SHARP_S_SKIP 2
+
+/* If you want to exclude surrogates, and beyond legal Unicode, see the blame
+ * log for earlier versions which gave details for these */
+
+/* A helper macro for isUTF8_CHAR, so use that one, and not this one.  This is
+ * retained solely for backwards compatibility and may be deprecated and
+ * removed in a future Perl version.
+ *
+ * regen/regcharclass.pl generates is_UTF8_CHAR_utf8() macros for up to these
+ * number of bytes.  So this has to be coordinated with that file */
+#ifdef EBCDIC
+#   define IS_UTF8_CHAR_FAST(n) ((n) <= 3)
+#else
+#   define IS_UTF8_CHAR_FAST(n) ((n) <= 4)
+#endif
+
+#ifndef EBCDIC
+/* A helper macro for isUTF8_CHAR, so use that one instead of this.  This was
+ * generated by regen/regcharclass.pl, and then moved here.  The lines that
+ * generated it were then commented out.  This was done solely because it takes
+ * on the order of 10 minutes to generate, and is never going to change, unless
+ * the generated code is improved.
+ *
+ * The EBCDIC versions have been cut to not cover all of legal Unicode,
+ * otherwise they take too long to generate; besides there is a separate one
+ * for each code page, so they are in regcharclass.h instead of here */
+/*
+	UTF8_CHAR: Matches legal UTF-8 encoded characters from 2 through 4 bytes
+
+	0x80 - 0x1FFFFF
+*/
+/*** GENERATED CODE ***/
+#define is_UTF8_CHAR_utf8_no_length_checks(s)                               \
+( ( 0xC2 <= ((U8*)s)[0] && ((U8*)s)[0] <= 0xDF ) ?                          \
+    ( ( ( ((U8*)s)[1] & 0xC0 ) == 0x80 ) ? 2 : 0 )                          \
+: ( 0xE0 == ((U8*)s)[0] ) ?                                                 \
+    ( ( ( ( ((U8*)s)[1] & 0xE0 ) == 0xA0 ) && ( ( ((U8*)s)[2] & 0xC0 ) == 0x80 ) ) ? 3 : 0 )\
+: ( 0xE1 <= ((U8*)s)[0] && ((U8*)s)[0] <= 0xEF ) ?                          \
+    ( ( ( ( ((U8*)s)[1] & 0xC0 ) == 0x80 ) && ( ( ((U8*)s)[2] & 0xC0 ) == 0x80 ) ) ? 3 : 0 )\
+: ( 0xF0 == ((U8*)s)[0] ) ?                                                 \
+    ( ( ( ( 0x90 <= ((U8*)s)[1] && ((U8*)s)[1] <= 0xBF ) && ( ( ((U8*)s)[2] & 0xC0 ) == 0x80 ) ) && ( ( ((U8*)s)[3] & 0xC0 ) == 0x80 ) ) ? 4 : 0 )\
+: ( ( ( ( 0xF1 <= ((U8*)s)[0] && ((U8*)s)[0] <= 0xF7 ) && ( ( ((U8*)s)[1] & 0xC0 ) == 0x80 ) ) && ( ( ((U8*)s)[2] & 0xC0 ) == 0x80 ) ) && ( ( ((U8*)s)[3] & 0xC0 ) == 0x80 ) ) ? 4 : 0 )
+#endif
+
+/*
+
+=for apidoc Am|STRLEN|isUTF8_CHAR|const U8 *s|const U8 *e
+
+Returns the number of bytes beginning at C<s> which form a legal UTF-8 (or
+UTF-EBCDIC) encoded character, looking no further than S<C<e - s>> bytes into
+C<s>.  Returns 0 if the sequence starting at C<s> through S<C<e - 1>> is not
+well-formed UTF-8.
+
+Note that an INVARIANT character (i.e. ASCII on non-EBCDIC
+machines) is a valid UTF-8 character.
+
+=cut
+*/
+
+#define isUTF8_CHAR(s, e)   (UNLIKELY((e) <= (s))                           \
+                             ? 0                                            \
+                             : (UTF8_IS_INVARIANT(*s))                      \
+                               ? 1                                          \
+                               : UNLIKELY(((e) - (s)) < UTF8SKIP(s))        \
+                                 ? 0                                        \
+                                 : LIKELY(IS_UTF8_CHAR_FAST(UTF8SKIP(s)))   \
+                                   ? is_UTF8_CHAR_utf8_no_length_checks(s)  \
+                                   : _is_utf8_char_slow(s, e))
+
+#define is_utf8_char_buf(buf, buf_end) isUTF8_CHAR(buf, buf_end)
+
+/* Do not use; should be deprecated.  Use isUTF8_CHAR() instead; this is
+ * retained solely for backwards compatibility */
+#define IS_UTF8_CHAR(p, n)      (isUTF8_CHAR(p, (p) + (n)) == n)
+
+#endif /* H_UTF8 */
+
+/*
+ * ex: set ts=8 sts=4 sw=4 et:
+ */
diff --git a/lib/5.24.1/x86_64-linux/CORE/utfebcdic.h b/lib/5.24.1/x86_64-linux/CORE/utfebcdic.h
new file mode 100644
index 00000000..10b666af
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/utfebcdic.h
@@ -0,0 +1,245 @@
+/*    utfebcdic.h
+ *
+ *    Copyright (C) 2001, 2002, 2003, 2005, 2006, 2007, 2009,
+ *    2010, 2011 by Larry Wall, Nick Ing-Simmons, and others
+ *
+ *    You may distribute under the terms of either the GNU General Public
+ *    License or the Artistic License, as specified in the README file.
+ *
+ * Macros to implement UTF-EBCDIC as perl's internal encoding
+ * Adapted from version 7.1 of Unicode Technical Report #16:
+ *  http://www.unicode.org/unicode/reports/tr16
+ *
+ * To summarize, the way it works is:
+ * To convert an EBCDIC code point to UTF-EBCDIC:
+ *  1)	convert to Unicode.  No conversion is necesary for code points above
+ *      255, as Unicode and EBCDIC are identical in this range.  For smaller
+ *      code points, the conversion is done by lookup in the PL_e2a table (with
+ *      inverse PL_a2e) in the generated file 'ebcdic_tables.h'.  The 'a'
+ *      stands for ASCII platform, meaning 0-255 Unicode.
+ *  2)	convert that to a utf8-like string called I8 ('I' stands for
+ *	intermediate) with variant characters occupying multiple bytes.  This
+ *	step is similar to the utf8-creating step from Unicode, but the details
+ *	are different.  This transformation is called UTF8-Mod.  There is a
+ *	chart about the bit patterns in a comment later in this file.  But
+ *	essentially here are the differences:
+ *			    UTF8		I8
+ *	invariant byte	    starts with 0	starts with 0 or 100
+ *	continuation byte   starts with 10	starts with 101
+ *	start byte	    same in both: if the code point requires N bytes,
+ *			    then the leading N bits are 1, followed by a 0.  If
+ *			    all 8 bits in the first byte are 1, the code point
+ *			    will occupy 14 bytes (compared to 13 in Perl's
+ *			    extended UTF-8).  This is incompatible with what
+ *			    tr16 implies should be the representation of code
+ *			    points 2**30 and above, but allows Perl to be able
+ *			    to represent all code points that fit in a 64-bit
+ *			    word in either our extended UTF-EBCDIC or UTF-8.
+ *  3)	Use the algorithm in tr16 to convert each byte from step 2 into
+ *	final UTF-EBCDIC.  This is done by table lookup from a table
+ *	constructed from the algorithm, reproduced in ebcdic_tables.h as
+ *	PL_utf2e, with its inverse being PL_e2utf.  They are constructed so that
+ *	all EBCDIC invariants remain invariant, but no others do, and the first
+ *	byte of a variant will always have its upper bit set.  But note that
+ *	the upper bit of some invariants is also 1.  The table also is designed
+ *	so that lexically comparing two UTF-EBCDIC-variant characters yields
+ *	the Unicode code point order.  (To get native code point order, one has
+ *	to convert the latin1-range characters to their native code point
+ *	value.)
+ *
+ *  For example, the ordinal value of 'A' is 193 in EBCDIC, and also is 193 in
+ *  UTF-EBCDIC.  Step 1) converts it to 65, Step 2 leaves it at 65, and Step 3
+ *  converts it back to 193.  As an example of how a variant character works,
+ *  take LATIN SMALL LETTER Y WITH DIAERESIS, which is typically 0xDF in
+ *  EBCDIC.  Step 1 converts it to the Unicode value, 0xFF.  Step 2 converts
+ *  that to two bytes = 11000111 10111111 = C7 BF, and Step 3 converts those to
+ *  0x8B 0x73.
+ *
+ * If you're starting from Unicode, skip step 1.  For UTF-EBCDIC to straight
+ * EBCDIC, reverse the steps.
+ *
+ * The EBCDIC invariants have been chosen to be those characters whose Unicode
+ * equivalents have ordinal numbers less than 160, that is the same characters
+ * that are expressible in ASCII, plus the C1 controls.  So there are 160
+ * invariants instead of the 128 in UTF-8.
+ *
+ * The purpose of Step 3 is to make the encoding be invariant for the chosen
+ * characters.  This messes up the convenient patterns found in step 2, so
+ * generally, one has to undo step 3 into a temporary to use them.  However,
+ * one "shadow", or parallel table, PL_utf8skip, has been constructed that
+ * doesn't require undoing things.  It is such that for each byte, it says
+ * how long the sequence is if that (UTF-EBCDIC) byte were to begin it
+ *
+ * There are actually 3 slightly different UTF-EBCDIC encodings in
+ * ebcdic_tables.h, one for each of the code pages recognized by Perl.  That
+ * means that there are actually three different sets of tables, one for each
+ * code page.  (If Perl is compiled on platforms using another EBCDIC code
+ * page, it may not compile, or Perl may silently mistake it for one of the
+ * three.)
+ *
+ * Note that tr16 actually only specifies one version of UTF-EBCDIC, based on
+ * the 1047 encoding, and which is supposed to be used for all code pages.
+ * But this doesn't work.  To illustrate the problem, consider the '^' character.
+ * On a 037 code page it is the single byte 176, whereas under 1047 UTF-EBCDIC
+ * it is the single byte 95.  If Perl implemented tr16 exactly, it would mean
+ * that changing a string containing '^' to UTF-EBCDIC would change that '^'
+ * from 176 to 95 (and vice-versa), violating the rule that ASCII-range
+ * characters are the same in UTF-8 or not.  Much code in Perl assumes this
+ * rule.  See for example
+ * http://grokbase.com/t/perl/mvs/025xf0yhmn/utf-ebcdic-for-posix-bc-malformed-utf-8-character
+ * What Perl does is create a version of UTF-EBCDIC suited to each code page;
+ * the one for the 1047 code page is identical to what's specified in tr16.
+ * This complicates interchanging files between computers using different code
+ * pages.  Best is to convert to I8 before sending them, as the I8
+ * representation is the same no matter what the underlying code page is.
+ *
+ * Because of the way UTF-EBCDIC is constructed, the lowest 32 code points that
+ * aren't equivalent to ASCII characters nor C1 controls form the set of
+ * continuation bytes; the remaining 64 non-ASCII, non-control code points form
+ * the potential start bytes, in order.  (However, the first 5 of these lead to
+ * malformed overlongs, so there really are only 59 start bytes, and the first
+ * three of the 59 are the start bytes for the Latin1 range.)  Hence the
+ * UTF-EBCDIC for the smallest variant code point, 0x160, will have likely 0x41
+ * as its continuation byte, provided 0x41 isn't an ASCII or C1 equivalent.
+ * And its start byte will be the code point that is 37 (32+5) non-ASCII,
+ * non-control code points past it.  (0 - 3F are controls, and 40 is SPACE,
+ * leaving 41 as the first potentially available one.)  In contrast, on ASCII
+ * platforms, the first 64 (not 32) non-ASCII code points are the continuation
+ * bytes.  And the first 2 (not 5) potential start bytes form overlong
+ * malformed sequences.
+ *
+ * EBCDIC characters above 0xFF are the same as Unicode in Perl's
+ * implementation of all 3 encodings, so for those Step 1 is trivial.
+ *
+ * (Note that the entries for invariant characters are necessarily the same in
+ * PL_e2a and PL_e2utf; likewise for their inverses.)
+ *
+ * UTF-EBCDIC strings are the same length or longer than UTF-8 representations
+ * of the same string.  The maximum code point representable as 2 bytes in
+ * UTF-EBCDIC is 0x3FFF, instead of 0x7FFF in UTF-8.
+ */
+
+START_EXTERN_C
+
+#ifdef DOINIT
+
+#include "ebcdic_tables.h"
+
+#else
+EXTCONST U8 PL_utf8skip[];
+EXTCONST U8 PL_e2utf[];
+EXTCONST U8 PL_utf2e[];
+EXTCONST U8 PL_e2a[];
+EXTCONST U8 PL_a2e[];
+EXTCONST U8 PL_fold[];
+EXTCONST U8 PL_fold_latin1[];
+EXTCONST U8 PL_latin1_lc[];
+EXTCONST U8 PL_mod_latin1_uc[];
+#endif
+
+END_EXTERN_C
+
+/* EBCDIC-happy ways of converting native code to UTF-8 */
+
+/* Use these when ch is known to be < 256 */
+#define NATIVE_TO_LATIN1(ch)            (__ASSERT_(FITS_IN_8_BITS(ch)) PL_e2a[(U8)(ch)])
+#define LATIN1_TO_NATIVE(ch)            (__ASSERT_(FITS_IN_8_BITS(ch)) PL_a2e[(U8)(ch)])
+
+/* Use these on bytes */
+#define NATIVE_UTF8_TO_I8(b)           (__ASSERT_(FITS_IN_8_BITS(b)) PL_e2utf[(U8)(b)])
+#define I8_TO_NATIVE_UTF8(b)           (__ASSERT_(FITS_IN_8_BITS(b)) PL_utf2e[(U8)(b)])
+
+/* Transforms in wide UV chars */
+#define NATIVE_TO_UNI(ch)    (FITS_IN_8_BITS(ch) ? NATIVE_TO_LATIN1(ch) : (UV) (ch))
+#define UNI_TO_NATIVE(ch)    (FITS_IN_8_BITS(ch) ? LATIN1_TO_NATIVE(ch) : (UV) (ch))
+
+/* How wide can a single UTF-8 encoded character become in bytes. */
+/* NOTE: Strictly speaking Perl's UTF-8 should not be called UTF-8 since UTF-8
+ * is an encoding of Unicode, and Unicode's upper limit, 0x10FFFF, can be
+ * expressed with 5 bytes.  However, Perl thinks of UTF-8 as a way to encode
+ * non-negative integers in a binary format, even those above Unicode.  14 is
+ * the smallest number that covers 2**64
+ *
+ * WARNING: This number must be in sync with the value in
+ * regen/charset_translations.pl. */
+#define UTF8_MAXBYTES 14
+
+/*
+  The following table is adapted from tr16, it shows the I8 encoding of Unicode code points.
+
+        Unicode                         U32 Bit pattern 1st Byte 2nd Byte 3rd Byte 4th Byte 5th Byte 6th Byte 7th Byte
+    U+0000..U+007F                     000000000xxxxxxx 0xxxxxxx
+    U+0080..U+009F                     00000000100xxxxx 100xxxxx
+    U+00A0..U+03FF                     000000yyyyyxxxxx 110yyyyy 101xxxxx
+    U+0400..U+3FFF                     00zzzzyyyyyxxxxx 1110zzzz 101yyyyy 101xxxxx
+    U+4000..U+3FFFF                 0wwwzzzzzyyyyyxxxxx 11110www 101zzzzz 101yyyyy 101xxxxx
+   U+40000..U+3FFFFF            0vvwwwwwzzzzzyyyyyxxxxx 111110vv 101wwwww 101zzzzz 101yyyyy 101xxxxx
+  U+400000..U+3FFFFFF       0uvvvvvwwwwwzzzzzyyyyyxxxxx 1111110u 101vvvvv 101wwwww 101zzzzz 101yyyyy 101xxxxx
+ U+4000000..U+3FFFFFFF 00uuuuuvvvvvwwwwwzzzzzyyyyyxxxxx 11111110 101uuuuu 101vvvvv 101wwwww 101zzzzz 101yyyyy 101xxxxx
+
+Beyond this, Perl uses an incompatible extension, similar to the one used in
+regular UTF-8.  There are now 14 bytes.  A full 32 bits of information thus looks like this:
+                                                        1st Byte  2nd-7th 8th Byte 9th Byte 10th B   11th B   12th B   13th B   14th B
+U+40000000..U+FFFFFFFF ttuuuuuvvvvvwwwwwzzzzzyyyyyxxxxx 11111111 10100000 101000tt 101uuuuu 101vvvvv 101wwwww 101zzzzz 101yyyyy 101xxxxx
+
+For 32-bit words, the 2nd through 7th bytes effectively function as leading
+zeros.  Above 32 bits, these fill up, with each byte yielding 5 bits of
+information, so that with 13 continuation bytes, we can handle 65 bits, just
+above what a 64 bit word can hold */
+
+
+/* This is a fundamental property of UTF-EBCDIC */
+#define OFFUNI_IS_INVARIANT(c) (((UV)(c)) <  0xA0)
+
+/* It turns out that on EBCDIC platforms, the invariants are the characters
+ * that have ASCII equivalents, plus the C1 controls.  Since the C0 controls
+ * and DELETE are ASCII, this is the same as: (isASCII(uv) || isCNTRL_L1(uv))
+ * */
+#define UVCHR_IS_INVARIANT(uv) cBOOL(FITS_IN_8_BITS(uv)                        \
+   && (PL_charclass[(U8) (uv)] & (_CC_mask(_CC_ASCII) | _CC_mask(_CC_CNTRL))))
+
+/* UTF-EBCDIC semantic macros - We used to transform back into I8 and then
+ * compare, but now only have to do a single lookup by using a bit in
+ * l1_char_class_tab.h.
+ * Comments as to the meaning of each are given at their corresponding utf8.h
+ * definitions. */
+
+#define UTF8_IS_START(c)		_generic_isCC(c, _CC_UTF8_IS_START)
+
+#define UTF_IS_CONTINUATION_MASK    0xE0
+
+#define UTF8_IS_CONTINUATION(c)		_generic_isCC(c, _CC_UTF8_IS_CONTINUATION)
+
+/* The above instead could be written as this:
+#define UTF8_IS_CONTINUATION(c)                                                 \
+            (((NATIVE_UTF8_TO_I8(c) & UTF_IS_CONTINUATION_MASK)                 \
+                                                == UTF_CONTINUATION_MARK)
+ */
+
+/* Equivalent to ! UVCHR_IS_INVARIANT(c) */
+#define UTF8_IS_CONTINUED(c) 		cBOOL(FITS_IN_8_BITS(c)                 \
+   && ! (PL_charclass[(U8) (c)] & (_CC_mask(_CC_ASCII) | _CC_mask(_CC_CNTRL))))
+
+#define UTF8_IS_DOWNGRADEABLE_START(c)   _generic_isCC(c,                       \
+                                              _CC_UTF8_IS_DOWNGRADEABLE_START)
+
+/* Equivalent to (UTF8_IS_START(c) && ! UTF8_IS_DOWNGRADEABLE_START(c))
+ * Makes sure that the START bit is set and the DOWNGRADEABLE bit isn't */
+#define UTF8_IS_ABOVE_LATIN1(c) cBOOL(FITS_IN_8_BITS(c)                         \
+  && ((PL_charclass[(U8) (c)] & ( _CC_mask(_CC_UTF8_IS_START)                   \
+                                 |_CC_mask(_CC_UTF8_IS_DOWNGRADEABLE_START)))   \
+                        == _CC_mask(_CC_UTF8_IS_START)))
+
+#define isUTF8_POSSIBLY_PROBLEMATIC(c)                                          \
+                _generic_isCC(c, _CC_UTF8_START_BYTE_IS_FOR_AT_LEAST_SURROGATE)
+
+#define UTF_CONTINUATION_MARK		0xA0
+#define UTF_ACCUMULATION_SHIFT		5
+
+/* ^? is defined to be APC on EBCDIC systems.  See the definition of toCTRL()
+ * for more */
+#define QUESTION_MARK_CTRL   LATIN1_TO_NATIVE(0x9F)
+
+/*
+ * ex: set ts=8 sts=4 sw=4 et:
+ */
diff --git a/lib/5.24.1/x86_64-linux/CORE/util.h b/lib/5.24.1/x86_64-linux/CORE/util.h
new file mode 100644
index 00000000..3310b119
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/util.h
@@ -0,0 +1,234 @@
+/*    util.h
+ *
+ *    Copyright (C) 1991, 1992, 1993, 1999, 2001, 2002, 2003, 2004, 2005,
+ *    2007, by Larry Wall and others
+ *
+ *    You may distribute under the terms of either the GNU General Public
+ *    License or the Artistic License, as specified in the README file.
+ *
+ */
+
+#ifdef VMS
+#  define PERL_FILE_IS_ABSOLUTE(f) \
+	(*(f) == '/'							\
+	 || (strchr(f,':')						\
+	     || ((*(f) == '[' || *(f) == '<')				\
+		 && (isWORDCHAR((f)[1]) || strchr("$-_]>",(f)[1])))))
+
+#else		/* !VMS */
+#  if defined(WIN32) || defined(__CYGWIN__)
+#    define PERL_FILE_IS_ABSOLUTE(f) \
+	(*(f) == '/' || *(f) == '\\'		/* UNC/rooted path */	\
+	 || ((f)[0] && (f)[1] == ':'))		/* drive name */
+#  else		/* !WIN32 */
+#  ifdef NETWARE
+#    define PERL_FILE_IS_ABSOLUTE(f) \
+	(((f)[0] && (f)[1] == ':')		/* drive name */	\
+	 || ((f)[0] == '\\' && (f)[1] == '\\')	/* UNC path */	\
+	 ||	((f)[3] == ':'))				/* volume name, currently only sys */
+#  else		/* !NETWARE */
+#    if defined(DOSISH) || defined(__SYMBIAN32__)
+#      define PERL_FILE_IS_ABSOLUTE(f) \
+	(*(f) == '/'							\
+	 || ((f)[0] && (f)[1] == ':'))		/* drive name */
+#    else	/* NEITHER DOSISH NOR SYMBIANISH */
+#      define PERL_FILE_IS_ABSOLUTE(f)	(*(f) == '/')
+#    endif	/* DOSISH */
+#   endif	/* NETWARE */
+#  endif	/* WIN32 */
+#endif		/* VMS */
+
+/*
+=head1 Miscellaneous Functions
+
+=for apidoc ibcmp
+
+This is a synonym for S<C<(! foldEQ())>>
+
+=for apidoc ibcmp_locale
+
+This is a synonym for S<C<(! foldEQ_locale())>>
+
+=cut
+*/
+#define ibcmp(s1, s2, len)         cBOOL(! foldEQ(s1, s2, len))
+#define ibcmp_locale(s1, s2, len)  cBOOL(! foldEQ_locale(s1, s2, len))
+
+/* outside the core, perl.h undefs HAS_QUAD if IV isn't 64-bit
+   We can't swap this to HAS_QUAD, because the logic here affects the type of
+   perl_drand48_t below, and that is visible outside of the core.  */
+#if defined(U64TYPE) && !defined(USING_MSVC6)
+/* use a faster implementation when quads are available,
+ * but not with VC6 on Windows */
+#    define PERL_DRAND48_QUAD
+#endif
+
+#ifdef PERL_DRAND48_QUAD
+
+/* U64 is only defined under PERL_CORE, but this needs to be visible
+ * elsewhere so the definition of PerlInterpreter is complete.
+ */
+typedef U64TYPE perl_drand48_t;
+
+#else
+
+struct PERL_DRAND48_T {
+    U16 seed[3];
+};
+
+typedef struct PERL_DRAND48_T perl_drand48_t;
+
+#endif
+
+#define PL_RANDOM_STATE_TYPE perl_drand48_t
+
+#define Perl_drand48_init(seed) (Perl_drand48_init_r(&PL_random_state, (seed)))
+#define Perl_drand48() (Perl_drand48_r(&PL_random_state))
+
+#ifdef USE_C_BACKTRACE
+
+typedef struct {
+    /* The number of frames returned. */
+    UV frame_count;
+    /* The total size of the Perl_c_backtrace, including this header,
+     * the frames, and the name strings. */
+    UV total_bytes;
+} Perl_c_backtrace_header;
+
+typedef struct {
+    void*  addr;  /* the program counter at this frame */
+
+    /* We could use Dl_info (as used by dladdr()) for many of these but
+     * that would be naughty towards non-dlfcn systems (hi there, Win32). */
+
+    void*  symbol_addr; /* symbol address (hint: try symbol_addr - addr) */
+    void*  object_base_addr;   /* base address of the shared object */
+
+    /* The offsets are from the beginning of the whole backtrace,
+     * which makes the backtrace relocatable. */
+    STRLEN object_name_offset; /* pathname of the shared object */
+    STRLEN object_name_size;   /* length of the pathname */
+    STRLEN symbol_name_offset; /* symbol name */
+    STRLEN symbol_name_size;   /* length of the symbol name */
+    STRLEN source_name_offset; /* source code file name */
+    STRLEN source_name_size;   /* length of the source code file name */
+    STRLEN source_line_number; /* source code line number */
+
+    /* OS X notes: atos(1) (more recently, "xcrun atos"), but the C
+     * API atos() uses is unknown (private "Symbolicator" framework,
+     * might require Objective-C even if the API would be known).
+     * Currently we open read pipe to "xcrun atos" and parse the
+     * output - quite disgusting.  And that won't work if the
+     * Developer Tools isn't installed. */
+
+    /* FreeBSD notes: execinfo.h exists, but probably would need also
+     * the library -lexecinfo.  BFD exists if the pkg devel/binutils
+     * has been installed, but there seems to be a known problem that
+     * the "bfd.h" getting installed refers to "ansidecl.h", which
+     * doesn't get installed. */
+
+    /* Win32 notes: as moral equivalents of backtrace() + dladdr(),
+     * one could possibly first use GetCurrentProcess() +
+     * SymInitialize(), and then CaptureStackBackTrace() +
+     * SymFromAddr(). */
+
+    /* Note that using the compiler optimizer easily leads into much
+     * of this information, like the symbol names (think inlining),
+     * and source code locations getting lost or confused.  In many
+     * cases keeping the debug information (-g) is necessary.
+     *
+     * Note that for example with gcc you can do both -O and -g.
+     *
+     * Note, however, that on some platforms (e.g. OSX + clang (cc))
+     * backtrace() + dladdr() works fine without -g. */
+
+    /* For example: the mere presence of <bfd.h> is no guarantee: e.g.
+     * OS X has that, but BFD does not seem to work on the OSX executables.
+     *
+     * Another niceness would be to able to see something about
+     * the function arguments, however gdb/lldb manage to do that. */
+} Perl_c_backtrace_frame;
+
+typedef struct {
+    Perl_c_backtrace_header header;
+    Perl_c_backtrace_frame  frame_info[1];
+    /* After the header come:
+     * (1) header.frame_count frames
+     * (2) frame_count times the \0-terminated strings (object_name
+     * and so forth).  The frames contain the pointers to the starts
+     * of these strings, and the lengths of these strings. */
+} Perl_c_backtrace;
+
+#define Perl_free_c_backtrace(bt) Safefree(bt)
+
+#endif /* USE_C_BACKTRACE */
+
+/* Use a packed 32 bit constant "key" to start the handshake. The key defines
+   ABI compatibility, and how to process the vararg list.
+
+   Note, some bits may be taken from INTRPSIZE (but then a simple x86 AX register
+   can't be used to read it) and 4 bits from API version len can also be taken,
+   since v00.00.00 is 9 bytes long. XS version length should not have any bits
+   taken since XS_VERSION lengths can get quite long since they are user
+   selectable. These spare bits allow for additional features for the varargs
+   stuff or ABI compat test flags in the future.
+*/
+#define HSm_APIVERLEN 0x0000001F /* perl version string won't be more than 31 chars */
+#define HS_APIVERLEN_MAX HSm_APIVERLEN
+#define HSm_XSVERLEN 0x0000FF00 /* if 0, not present, dont check, die if over 255*/
+#define HS_XSVERLEN_MAX 0xFF
+/* uses var file to set default filename for newXS_deffile to use for CvFILE */
+#define HSf_SETXSUBFN 0x00000020
+#define HSf_POPMARK 0x00000040 /* popmark mode or you must supply ax and items */
+#define HSf_IMP_CXT 0x00000080 /* ABI, threaded/PERL_IMPLICIT_CONTEXT, pTHX_ present */
+#define HSm_INTRPSIZE 0xFFFF0000 /* ABI, interp struct size */
+/* A mask of bits in the key which must always match between a XS mod and interp.
+   Also if all ABI bits in a key are true, skip all ABI checks, it is very
+   the unlikely interp size will all 1 bits */
+/* Maybe HSm_APIVERLEN one day if Perl_xs_apiversion_bootcheck is changed to a memcmp */
+#define HSm_KEY_MATCH (HSm_INTRPSIZE|HSf_IMP_CXT)
+#define HSf_NOCHK HSm_KEY_MATCH  /* if all ABI bits are 1 in the key, dont chk */
+
+
+#define HS_GETINTERPSIZE(key) ((key) >> 16)
+/* if in the future "" and NULL must be separated, XSVERLEN would be 0
+means arg not present, 1 is empty string/null byte */
+/* (((key) & 0x0000FF00) >> 8) is less efficient on Visual C */
+#define HS_GETXSVERLEN(key) ((key) >> 8 & 0xFF)
+#define HS_GETAPIVERLEN(key) ((key) & HSm_APIVERLEN)
+
+/* internal to util.h macro to create a packed handshake key, all args must be constants */
+/* U32 return = (U16 interpsize, bool cxt, bool setxsubfn, bool popmark,
+   U5 (FIVE!) apiverlen, U8 xsverlen) */
+#define HS_KEYp(interpsize, cxt, setxsubfn, popmark, apiverlen, xsverlen) \
+    (((interpsize)  << 16) \
+    | ((xsverlen) > HS_XSVERLEN_MAX \
+        ? (Perl_croak_nocontext("panic: handshake overflow"), HS_XSVERLEN_MAX) \
+        : (xsverlen) << 8) \
+    | (cBOOL(setxsubfn) ? HSf_SETXSUBFN : 0) \
+    | (cBOOL(cxt) ? HSf_IMP_CXT : 0) \
+    | (cBOOL(popmark) ? HSf_POPMARK : 0) \
+    | ((apiverlen) > HS_APIVERLEN_MAX \
+        ? (Perl_croak_nocontext("panic: handshake overflow"), HS_APIVERLEN_MAX) \
+        : (apiverlen)))
+/* overflows above will optimize away unless they will execute */
+
+/* public macro for core usage to create a packed handshake key but this is
+   not public API. This more friendly version already collected all ABI info */
+/* U32 return = (bool setxsubfn, bool popmark, "litteral_string_api_ver",
+   "litteral_string_xs_ver") */
+#ifdef PERL_IMPLICIT_CONTEXT
+#  define HS_KEY(setxsubfn, popmark, apiver, xsver) \
+    HS_KEYp(sizeof(PerlInterpreter), TRUE, setxsubfn, popmark, \
+    sizeof("" apiver "")-1, sizeof("" xsver "")-1)
+#  define HS_CXT aTHX
+#else
+#  define HS_KEY(setxsubfn, popmark, apiver, xsver) \
+    HS_KEYp(sizeof(struct PerlHandShakeInterpreter), FALSE, setxsubfn, popmark, \
+    sizeof("" apiver "")-1, sizeof("" xsver "")-1)
+#  define HS_CXT cv
+#endif
+
+/*
+ * ex: set ts=8 sts=4 sw=4 et:
+ */
diff --git a/lib/5.24.1/x86_64-linux/CORE/uudmap.h b/lib/5.24.1/x86_64-linux/CORE/uudmap.h
new file mode 100644
index 00000000..41341665
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/uudmap.h
@@ -0,0 +1,18 @@
+{
+    0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
+    0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
+    0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 
+    16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 
+    32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 
+    48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 
+    0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
+    0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
+    0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
+    0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
+    0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
+    0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
+    0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
+    0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
+    0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
+    0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
+}
diff --git a/lib/5.24.1/x86_64-linux/CORE/vutil.h b/lib/5.24.1/x86_64-linux/CORE/vutil.h
new file mode 100644
index 00000000..a60ca9d4
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/vutil.h
@@ -0,0 +1,251 @@
+/* This file is part of the "version" CPAN distribution.  Please avoid
+   editing it in the perl core. */
+
+#ifndef PERL_CORE
+#  include "ppport.h"
+#endif
+
+/* The MUTABLE_*() macros cast pointers to the types shown, in such a way
+ * (compiler permitting) that casting away const-ness will give a warning;
+ * e.g.:
+ *
+ * const SV *sv = ...;
+ * AV *av1 = (AV*)sv;        <== BAD:  the const has been silently cast away
+ * AV *av2 = MUTABLE_AV(sv); <== GOOD: it may warn
+ */
+
+#ifndef MUTABLE_PTR
+#  if defined(__GNUC__) && !defined(PERL_GCC_BRACE_GROUPS_FORBIDDEN)
+#    define MUTABLE_PTR(p) ({ void *_p = (p); _p; })
+#  else
+#    define MUTABLE_PTR(p) ((void *) (p))
+#  endif
+
+#  define MUTABLE_AV(p)	((AV *)MUTABLE_PTR(p))
+#  define MUTABLE_CV(p)	((CV *)MUTABLE_PTR(p))
+#  define MUTABLE_GV(p)	((GV *)MUTABLE_PTR(p))
+#  define MUTABLE_HV(p)	((HV *)MUTABLE_PTR(p))
+#  define MUTABLE_IO(p)	((IO *)MUTABLE_PTR(p))
+#  define MUTABLE_SV(p)	((SV *)MUTABLE_PTR(p))
+#endif
+
+#ifndef SvPVx_nolen_const
+#  if defined(__GNUC__) && !defined(PERL_GCC_BRACE_GROUPS_FORBIDDEN)
+#    define SvPVx_nolen_const(sv) ({SV *_sv = (sv); SvPV_nolen_const(_sv); })
+#  else
+#    define SvPVx_nolen_const(sv) (SvPV_nolen_const(sv))
+#  endif
+#endif
+
+#ifndef PERL_ARGS_ASSERT_CK_WARNER
+static void Perl_ck_warner(pTHX_ U32 err, const char* pat, ...);
+
+#  ifdef vwarner
+static
+void
+Perl_ck_warner(pTHX_ U32 err, const char* pat, ...)
+{
+  va_list args;
+
+  PERL_UNUSED_ARG(err);
+  if (ckWARN(err)) {
+    va_list args;
+    va_start(args, pat);
+    vwarner(err, pat, &args);
+    va_end(args);
+  }
+}
+#  else
+/* yes this replicates my_warner */
+static
+void
+Perl_ck_warner(pTHX_ U32 err, const char* pat, ...)
+{
+  SV *sv;
+  va_list args;
+
+  PERL_UNUSED_ARG(err);
+
+  va_start(args, pat);
+  sv = vnewSVpvf(pat, &args);
+  va_end(args);
+  sv_2mortal(sv);
+  warn("%s", SvPV_nolen(sv));
+}
+#  endif
+#endif
+
+#define PERL_VERSION_DECIMAL(r,v,s) (r*1000000 + v*1000 + s)
+#define PERL_DECIMAL_VERSION \
+	PERL_VERSION_DECIMAL(PERL_REVISION,PERL_VERSION,PERL_SUBVERSION)
+#define PERL_VERSION_LT(r,v,s) \
+	(PERL_DECIMAL_VERSION < PERL_VERSION_DECIMAL(r,v,s))
+#define PERL_VERSION_GE(r,v,s) \
+	(PERL_DECIMAL_VERSION >= PERL_VERSION_DECIMAL(r,v,s))
+
+#if PERL_VERSION_LT(5,15,4)
+#  define ISA_VERSION_OBJ(v) (sv_isobject(v) && sv_derived_from(v,"version"))
+#else
+#  define ISA_VERSION_OBJ(v) (sv_isobject(v) && sv_derived_from_pvn(v,"version",7,0))
+#endif
+
+
+#ifndef PERL_ARGS_ASSERT_CROAK_XS_USAGE
+#define PERL_ARGS_ASSERT_CROAK_XS_USAGE assert(cv); assert(params)
+
+/* prototype to pass -Wmissing-prototypes */
+STATIC void
+S_croak_xs_usage(pTHX_ const CV *const cv, const char *const params);
+
+STATIC void
+S_croak_xs_usage(pTHX_ const CV *const cv, const char *const params)
+{
+    const GV *const gv = CvGV(cv);
+
+    PERL_ARGS_ASSERT_CROAK_XS_USAGE;
+
+    if (gv) {
+        const char *const gvname = GvNAME(gv);
+        const HV *const stash = GvSTASH(gv);
+        const char *const hvname = stash ? HvNAME(stash) : NULL;
+
+        if (hvname)
+            Perl_croak_nocontext("Usage: %s::%s(%s)", hvname, gvname, params);
+        else
+            Perl_croak_nocontext("Usage: %s(%s)", gvname, params);
+    } else {
+        /* Pants. I don't think that it should be possible to get here. */
+        Perl_croak_nocontext("Usage: CODE(0x%"UVxf")(%s)", PTR2UV(cv), params);
+    }
+}
+
+#ifdef PERL_IMPLICIT_CONTEXT
+#define croak_xs_usage(a,b)	S_croak_xs_usage(aTHX_ a,b)
+#else
+#define croak_xs_usage		S_croak_xs_usage
+#endif
+
+#endif
+
+#if PERL_VERSION_GE(5,9,0) && !defined(PERL_CORE)
+
+#  define VUTIL_REPLACE_CORE 1
+
+static const char * Perl_scan_version2(pTHX_ const char *s, SV *rv, bool qv);
+static SV * Perl_new_version2(pTHX_ SV *ver);
+static SV * Perl_upg_version2(pTHX_ SV *sv, bool qv);
+static SV * Perl_vstringify2(pTHX_ SV *vs);
+static SV * Perl_vverify2(pTHX_ SV *vs);
+static SV * Perl_vnumify2(pTHX_ SV *vs);
+static SV * Perl_vnormal2(pTHX_ SV *vs);
+static SV * Perl_vstringify2(pTHX_ SV *vs);
+static int Perl_vcmp2(pTHX_ SV *lsv, SV *rsv);
+static const char * Perl_prescan_version2(pTHX_ const char *s, bool strict, const char** errstr, bool *sqv, int *ssaw_decimal, int *swidth, bool *salpha);
+
+#  define SCAN_VERSION(a,b,c)	Perl_scan_version2(aTHX_ a,b,c)
+#  define NEW_VERSION(a)	Perl_new_version2(aTHX_ a)
+#  define UPG_VERSION(a,b)	Perl_upg_version2(aTHX_ a, b)
+#  define VSTRINGIFY(a)		Perl_vstringify2(aTHX_ a)
+#  define VVERIFY(a)		Perl_vverify2(aTHX_ a)
+#  define VNUMIFY(a)		Perl_vnumify2(aTHX_ a)
+#  define VNORMAL(a)		Perl_vnormal2(aTHX_ a)
+#  define VCMP(a,b)		Perl_vcmp2(aTHX_ a,b)
+#  define PRESCAN_VERSION(a,b,c,d,e,f,g)	Perl_prescan_version2(aTHX_ a,b,c,d,e,f,g)
+#  undef is_LAX_VERSION
+#  define is_LAX_VERSION(a,b) \
+	(a != Perl_prescan_version2(aTHX_ a, FALSE, b, NULL, NULL, NULL, NULL))
+#  undef is_STRICT_VERSION
+#  define is_STRICT_VERSION(a,b) \
+	(a != Perl_prescan_version2(aTHX_ a, TRUE, b, NULL, NULL, NULL, NULL))
+
+#else
+
+const char * Perl_scan_version(pTHX_ const char *s, SV *rv, bool qv);
+SV * Perl_new_version(pTHX_ SV *ver);
+SV * Perl_upg_version(pTHX_ SV *sv, bool qv);
+SV * Perl_vverify(pTHX_ SV *vs);
+SV * Perl_vnumify(pTHX_ SV *vs);
+SV * Perl_vnormal(pTHX_ SV *vs);
+SV * Perl_vstringify(pTHX_ SV *vs);
+int Perl_vcmp(pTHX_ SV *lsv, SV *rsv);
+const char * Perl_prescan_version(pTHX_ const char *s, bool strict, const char** errstr, bool *sqv, int *ssaw_decimal, int *swidth, bool *salpha);
+
+#  define SCAN_VERSION(a,b,c)	Perl_scan_version(aTHX_ a,b,c)
+#  define NEW_VERSION(a)	Perl_new_version(aTHX_ a)
+#  define UPG_VERSION(a,b)	Perl_upg_version(aTHX_ a, b)
+#  define VSTRINGIFY(a)		Perl_vstringify(aTHX_ a)
+#  define VVERIFY(a)		Perl_vverify(aTHX_ a)
+#  define VNUMIFY(a)		Perl_vnumify(aTHX_ a)
+#  define VNORMAL(a)		Perl_vnormal(aTHX_ a)
+#  define VCMP(a,b)		Perl_vcmp(aTHX_ a,b)
+
+#  define PRESCAN_VERSION(a,b,c,d,e,f,g)	Perl_prescan_version(aTHX_ a,b,c,d,e,f,g)
+#  ifndef is_LAX_VERSION
+#    define is_LAX_VERSION(a,b) \
+	(a != Perl_prescan_version(aTHX_ a, FALSE, b, NULL, NULL, NULL, NULL))
+#  endif
+#  ifndef is_STRICT_VERSION
+#    define is_STRICT_VERSION(a,b) \
+	(a != Perl_prescan_version(aTHX_ a, TRUE, b, NULL, NULL, NULL, NULL))
+#  endif
+
+#endif
+
+#if PERL_VERSION_LT(5,11,4)
+#  define BADVERSION(a,b,c) \
+	if (b) { \
+	    *b = c; \
+	} \
+	return a;
+
+#  define PERL_ARGS_ASSERT_PRESCAN_VERSION	\
+	assert(s); assert(sqv); assert(ssaw_decimal);\
+	assert(swidth); assert(salpha);
+
+#  define PERL_ARGS_ASSERT_SCAN_VERSION	\
+	assert(s); assert(rv)
+#  define PERL_ARGS_ASSERT_NEW_VERSION	\
+	assert(ver)
+#  define PERL_ARGS_ASSERT_UPG_VERSION	\
+	assert(ver)
+#  define PERL_ARGS_ASSERT_VVERIFY	\
+	assert(vs)
+#  define PERL_ARGS_ASSERT_VNUMIFY	\
+	assert(vs)
+#  define PERL_ARGS_ASSERT_VNORMAL	\
+	assert(vs)
+#  define PERL_ARGS_ASSERT_VSTRINGIFY	\
+	assert(vs)
+#  define PERL_ARGS_ASSERT_VCMP	\
+	assert(lhv); assert(rhv)
+#  define PERL_ARGS_ASSERT_CK_WARNER      \
+	assert(pat)
+#endif
+
+
+#if PERL_VERSION_LT(5,19,0)
+# undef STORE_NUMERIC_LOCAL_SET_STANDARD
+# undef RESTORE_NUMERIC_LOCAL
+# ifdef USE_LOCALE
+#  define STORE_NUMERIC_LOCAL_SET_STANDARD()\
+	char *loc = savepv(setlocale(LC_NUMERIC, NULL)); \
+	SAVEFREEPV(loc); \
+	setlocale(LC_NUMERIC, "C");
+
+#  define RESTORE_NUMERIC_LOCAL()\
+	setlocale(LC_NUMERIC, loc);
+# else
+#  define STORE_NUMERIC_LOCAL_SET_STANDARD()
+#  define RESTORE_NUMERIC_LOCAL()
+# endif
+#endif
+
+#ifndef LOCK_NUMERIC_STANDARD
+#define LOCK_NUMERIC_STANDARD()
+#endif
+
+#ifndef UNLOCK_NUMERIC_STANDARD
+#define UNLOCK_NUMERIC_STANDARD()
+#endif
+
+/* ex: set ro: */
diff --git a/lib/5.24.1/x86_64-linux/CORE/warnings.h b/lib/5.24.1/x86_64-linux/CORE/warnings.h
new file mode 100644
index 00000000..337bef37
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/CORE/warnings.h
@@ -0,0 +1,169 @@
+/* -*- buffer-read-only: t -*-
+   !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+   This file is built by regen/warnings.pl.
+   Any changes made here will be lost!
+ */
+
+
+#define Off(x)			((x) / 8)
+#define Bit(x)			(1 << ((x) % 8))
+#define IsSet(a, x)		((a)[Off(x)] & Bit(x))
+
+
+#define G_WARN_OFF		0 	/* $^W == 0 */
+#define G_WARN_ON		1	/* -w flag and $^W != 0 */
+#define G_WARN_ALL_ON		2	/* -W flag */
+#define G_WARN_ALL_OFF		4	/* -X flag */
+#define G_WARN_ONCE		8	/* set if 'once' ever enabled */
+#define G_WARN_ALL_MASK		(G_WARN_ALL_ON|G_WARN_ALL_OFF)
+
+#define pWARN_STD		NULL
+#define pWARN_ALL		(((STRLEN*)0)+1)    /* use warnings 'all' */
+#define pWARN_NONE		(((STRLEN*)0)+2)    /* no  warnings 'all' */
+
+#define specialWARN(x)		((x) == pWARN_STD || (x) == pWARN_ALL ||	\
+				 (x) == pWARN_NONE)
+
+/* if PL_warnhook is set to this value, then warnings die */
+#define PERL_WARNHOOK_FATAL	(&PL_sv_placeholder)
+
+/* Warnings Categories added in Perl 5.008 */
+
+#define WARN_ALL			 0
+#define WARN_CLOSURE			 1
+#define WARN_DEPRECATED			 2
+#define WARN_EXITING			 3
+#define WARN_GLOB			 4
+#define WARN_IO				 5
+#define WARN_CLOSED			 6
+#define WARN_EXEC			 7
+#define WARN_LAYER			 8
+#define WARN_NEWLINE			 9
+#define WARN_PIPE			 10
+#define WARN_UNOPENED			 11
+#define WARN_MISC			 12
+#define WARN_NUMERIC			 13
+#define WARN_ONCE			 14
+#define WARN_OVERFLOW			 15
+#define WARN_PACK			 16
+#define WARN_PORTABLE			 17
+#define WARN_RECURSION			 18
+#define WARN_REDEFINE			 19
+#define WARN_REGEXP			 20
+#define WARN_SEVERE			 21
+#define WARN_DEBUGGING			 22
+#define WARN_INPLACE			 23
+#define WARN_INTERNAL			 24
+#define WARN_MALLOC			 25
+#define WARN_SIGNAL			 26
+#define WARN_SUBSTR			 27
+#define WARN_SYNTAX			 28
+#define WARN_AMBIGUOUS			 29
+#define WARN_BAREWORD			 30
+#define WARN_DIGIT			 31
+#define WARN_PARENTHESIS		 32
+#define WARN_PRECEDENCE			 33
+#define WARN_PRINTF			 34
+#define WARN_PROTOTYPE			 35
+#define WARN_QW				 36
+#define WARN_RESERVED			 37
+#define WARN_SEMICOLON			 38
+#define WARN_TAINT			 39
+#define WARN_THREADS			 40
+#define WARN_UNINITIALIZED		 41
+#define WARN_UNPACK			 42
+#define WARN_UNTIE			 43
+#define WARN_UTF8			 44
+#define WARN_VOID			 45
+
+/* Warnings Categories added in Perl 5.011 */
+
+#define WARN_IMPRECISION		 46
+#define WARN_ILLEGALPROTO		 47
+
+/* Warnings Categories added in Perl 5.013 */
+
+#define WARN_NON_UNICODE		 48
+#define WARN_NONCHAR			 49
+#define WARN_SURROGATE			 50
+
+/* Warnings Categories added in Perl 5.017 */
+
+#define WARN_EXPERIMENTAL		 51
+#define WARN_EXPERIMENTAL__LEXICAL_SUBS	 52
+#define WARN_EXPERIMENTAL__REGEX_SETS	 53
+#define WARN_EXPERIMENTAL__SMARTMATCH	 54
+
+/* Warnings Categories added in Perl 5.019 */
+
+#define WARN_EXPERIMENTAL__POSTDEREF	 55
+#define WARN_EXPERIMENTAL__SIGNATURES	 56
+#define WARN_SYSCALLS			 57
+
+/* Warnings Categories added in Perl 5.021 */
+
+#define WARN_EXPERIMENTAL__BITWISE	 58
+#define WARN_EXPERIMENTAL__CONST_ATTR	 59
+#define WARN_EXPERIMENTAL__RE_STRICT	 60
+#define WARN_EXPERIMENTAL__REFALIASING	 61
+#define WARN_EXPERIMENTAL__WIN32_PERLIO	 62
+#define WARN_LOCALE			 63
+#define WARN_MISSING			 64
+#define WARN_REDUNDANT			 65
+
+#define WARNsize			 17
+#define WARN_ALLstring			 "\125\125\125\125\125\125\125\125\125\125\125\125\125\125\125\125\125"
+#define WARN_NONEstring			 "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
+
+#define isLEXWARN_on 	cBOOL(PL_curcop->cop_warnings != pWARN_STD)
+#define isLEXWARN_off	cBOOL(PL_curcop->cop_warnings == pWARN_STD)
+#define isWARN_ONCE	(PL_dowarn & (G_WARN_ON|G_WARN_ONCE))
+#define isWARN_on(c,x)	(IsSet((U8 *)(c + 1), 2*(x)))
+#define isWARNf_on(c,x)	(IsSet((U8 *)(c + 1), 2*(x)+1))
+
+#define DUP_WARNINGS(p)		\
+    (specialWARN(p) ? (STRLEN*)(p)	\
+    : (STRLEN*)CopyD(p, PerlMemShared_malloc(sizeof(*p)+*p), sizeof(*p)+*p, \
+		     			     char))
+
+#define ckWARN(w)		Perl_ckwarn(aTHX_ packWARN(w))
+
+/* The w1, w2 ... should be independent warnings categories; one shouldn't be
+ * a subcategory of any other */
+
+#define ckWARN2(w1,w2)		Perl_ckwarn(aTHX_ packWARN2(w1,w2))
+#define ckWARN3(w1,w2,w3)	Perl_ckwarn(aTHX_ packWARN3(w1,w2,w3))
+#define ckWARN4(w1,w2,w3,w4)	Perl_ckwarn(aTHX_ packWARN4(w1,w2,w3,w4))
+
+#define ckWARN_d(w)		Perl_ckwarn_d(aTHX_ packWARN(w))
+#define ckWARN2_d(w1,w2)	Perl_ckwarn_d(aTHX_ packWARN2(w1,w2))
+#define ckWARN3_d(w1,w2,w3)	Perl_ckwarn_d(aTHX_ packWARN3(w1,w2,w3))
+#define ckWARN4_d(w1,w2,w3,w4)	Perl_ckwarn_d(aTHX_ packWARN4(w1,w2,w3,w4))
+
+#define WARNshift		8
+
+#define packWARN(a)		(a                                      )
+
+/* The a, b, ... should be independent warnings categories; one shouldn't be
+ * a subcategory of any other */
+
+#define packWARN2(a,b)		((a) | ((b)<<8)                         )
+#define packWARN3(a,b,c)	((a) | ((b)<<8) | ((c)<<16)             )
+#define packWARN4(a,b,c,d)	((a) | ((b)<<8) | ((c)<<16) | ((d) <<24))
+
+#define unpackWARN1(x)		((x)        & 0xFF)
+#define unpackWARN2(x)		(((x) >>8)  & 0xFF)
+#define unpackWARN3(x)		(((x) >>16) & 0xFF)
+#define unpackWARN4(x)		(((x) >>24) & 0xFF)
+
+#define ckDEAD(x)							\
+	   ( ! specialWARN(PL_curcop->cop_warnings) &&			\
+	    ( isWARNf_on(PL_curcop->cop_warnings, WARN_ALL) || 		\
+	      isWARNf_on(PL_curcop->cop_warnings, unpackWARN1(x)) ||	\
+	      isWARNf_on(PL_curcop->cop_warnings, unpackWARN2(x)) ||	\
+	      isWARNf_on(PL_curcop->cop_warnings, unpackWARN3(x)) ||	\
+	      isWARNf_on(PL_curcop->cop_warnings, unpackWARN4(x))))
+
+/* end of file warnings.h */
+
+/* ex: set ro: */
diff --git a/lib/5.24.1/x86_64-linux/Compress/Raw/Bzip2.pm b/lib/5.24.1/x86_64-linux/Compress/Raw/Bzip2.pm
new file mode 100644
index 00000000..d9e25bde
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/Compress/Raw/Bzip2.pm
@@ -0,0 +1,385 @@
+
+package Compress::Raw::Bzip2;
+
+use strict ;
+use warnings ;
+
+require 5.006 ;
+require Exporter;
+use Carp ;
+
+use bytes ;
+our ($VERSION, $XS_VERSION, @ISA, @EXPORT, $AUTOLOAD);
+
+$VERSION = '2.069';
+$XS_VERSION = $VERSION; 
+$VERSION = eval $VERSION;
+
+@ISA = qw(Exporter);
+# Items to export into callers namespace by default. Note: do not export
+# names by default without a very good reason. Use EXPORT_OK instead.
+# Do not simply export all your public functions/methods/constants.
+@EXPORT = qw(
+		BZ_RUN
+		BZ_FLUSH
+		BZ_FINISH
+
+		BZ_OK
+		BZ_RUN_OK
+		BZ_FLUSH_OK
+		BZ_FINISH_OK
+		BZ_STREAM_END
+		BZ_SEQUENCE_ERROR
+		BZ_PARAM_ERROR
+		BZ_MEM_ERROR
+		BZ_DATA_ERROR
+		BZ_DATA_ERROR_MAGIC
+		BZ_IO_ERROR
+		BZ_UNEXPECTED_EOF
+		BZ_OUTBUFF_FULL
+		BZ_CONFIG_ERROR
+
+    );
+
+sub AUTOLOAD {
+    my($constname);
+    ($constname = $AUTOLOAD) =~ s/.*:://;
+    my ($error, $val) = constant($constname);
+    Carp::croak $error if $error;
+    no strict 'refs';
+    *{$AUTOLOAD} = sub { $val };
+    goto &{$AUTOLOAD};
+
+}
+
+use constant FLAG_APPEND             => 1 ;
+use constant FLAG_CRC                => 2 ;
+use constant FLAG_ADLER              => 4 ;
+use constant FLAG_CONSUME_INPUT      => 8 ;
+
+eval {
+    require XSLoader;
+    XSLoader::load('Compress::Raw::Bzip2', $XS_VERSION);
+    1;
+} 
+or do {
+    require DynaLoader;
+    local @ISA = qw(DynaLoader);
+    bootstrap Compress::Raw::Bzip2 $XS_VERSION ; 
+};
+
+#sub Compress::Raw::Bzip2::new
+#{
+#    my $class = shift ;
+#    my ($ptr, $status) = _new(@_);
+#    return wantarray ? (undef, $status) : undef
+#        unless $ptr ;
+#    my $obj = bless [$ptr], $class ;
+#    return wantarray ? ($obj, $status) : $obj;
+#}
+#
+#package Compress::Raw::Bunzip2 ;
+#
+#sub Compress::Raw::Bunzip2::new
+#{
+#    my $class = shift ;
+#    my ($ptr, $status) = _new(@_);
+#    return wantarray ? (undef, $status) : undef
+#        unless $ptr ;
+#    my $obj = bless [$ptr], $class ;
+#    return wantarray ? ($obj, $status) : $obj;
+#}
+
+sub Compress::Raw::Bzip2::STORABLE_freeze
+{
+    my $type = ref shift;
+    croak "Cannot freeze $type object\n";
+}
+
+sub Compress::Raw::Bzip2::STORABLE_thaw
+{
+    my $type = ref shift;
+    croak "Cannot thaw $type object\n";
+}
+
+sub Compress::Raw::Bunzip2::STORABLE_freeze
+{
+    my $type = ref shift;
+    croak "Cannot freeze $type object\n";
+}
+
+sub Compress::Raw::Bunzip2::STORABLE_thaw
+{
+    my $type = ref shift;
+    croak "Cannot thaw $type object\n";
+}
+
+
+package Compress::Raw::Bzip2;
+
+1;
+
+__END__
+
+
+=head1 NAME
+
+Compress::Raw::Bzip2 - Low-Level Interface to bzip2 compression library
+
+=head1 SYNOPSIS
+
+    use Compress::Raw::Bzip2 ;
+
+    my ($bz, $status) = new Compress::Raw::Bzip2 [OPTS]
+        or die "Cannot create bzip2 object: $bzerno\n";
+    
+    $status = $bz->bzdeflate($input, $output);
+    $status = $bz->bzflush($output);
+    $status = $bz->bzclose($output);
+
+    my ($bz, $status) = new Compress::Raw::Bunzip2 [OPTS]
+        or die "Cannot create bunzip2 object: $bzerno\n";
+    
+    $status = $bz->bzinflate($input, $output);
+
+    my $version = Compress::Raw::Bzip2::bzlibversion();
+
+=head1 DESCRIPTION
+
+C<Compress::Raw::Bzip2> provides an interface to the in-memory
+compression/uncompression functions from the bzip2 compression library. 
+
+Although the primary purpose for the existence of C<Compress::Raw::Bzip2>
+is for use by the  C<IO::Compress::Bzip2> and C<IO::Compress::Bunzip2>
+modules, it can be used on its own for simple compression/uncompression
+tasks.
+
+=head1 Compression
+
+=head2 ($z, $status) = new Compress::Raw::Bzip2 $appendOutput, $blockSize100k, $workfactor;
+
+Creates a new compression object. 
+
+If successful, it will return the initialised compression object, C<$z>
+and a C<$status> of C<BZ_OK> in a list context. In scalar context it
+returns the deflation object, C<$z>, only.
+
+If not successful, the returned compression object, C<$z>, will be
+I<undef> and C<$status> will hold the a I<bzip2> error code.
+
+Below is a list of the valid options:
+
+=over 5
+
+=item B<$appendOutput>
+
+Controls whether the compressed data is appended to the output buffer in
+the C<bzdeflate>, C<bzflush> and C<bzclose> methods.
+
+Defaults to 1.
+
+=item B<$blockSize100k>
+
+To quote the bzip2 documentation
+
+    blockSize100k specifies the block size to be used for compression. It
+    should be a value between 1 and 9 inclusive, and the actual block size
+    used is 100000 x this figure. 9 gives the best compression but takes
+    most memory.
+
+Defaults to 1.
+
+=item B<$workfactor>
+
+To quote the bzip2 documentation
+
+    This parameter controls how the compression phase behaves when
+    presented with worst case, highly repetitive, input data. If
+    compression runs into difficulties caused by repetitive data, the
+    library switches from the standard sorting algorithm to a fallback
+    algorithm. The fallback is slower than the standard algorithm by
+    perhaps a factor of three, but always behaves reasonably, no matter how
+    bad the input.
+
+    Lower values of workFactor reduce the amount of effort the standard
+    algorithm will expend before resorting to the fallback. You should set
+    this parameter carefully; too low, and many inputs will be handled by
+    the fallback algorithm and so compress rather slowly, too high, and
+    your average-to-worst case compression times can become very large. The
+    default value of 30 gives reasonable behaviour over a wide range of
+    circumstances.
+
+    Allowable values range from 0 to 250 inclusive. 0 is a special case,
+    equivalent to using the default value of 30.
+
+Defaults to 0.
+
+=back
+
+=head2 $status = $bz->bzdeflate($input, $output);
+
+Reads the contents of C<$input>, compresses it and writes the compressed
+data to C<$output>.
+
+Returns C<BZ_RUN_OK> on success and a C<bzip2> error code on failure.
+
+If C<appendOutput> is enabled in the constructor for the bzip2 object, the
+compressed data will be appended to C<$output>. If not enabled, C<$output>
+will be truncated before the compressed data is written to it.
+
+=head2 $status = $bz->bzflush($output);
+
+Flushes any pending compressed data to C<$output>.
+
+Returns C<BZ_RUN_OK> on success and a C<bzip2> error code on failure.
+
+=head2 $status = $bz->bzclose($output);
+
+Terminates the compressed data stream and flushes any pending compressed
+data to C<$output>.
+
+Returns C<BZ_STREAM_END> on success and a C<bzip2> error code on failure.
+
+=head2 Example
+
+=head1 Uncompression
+
+=head2 ($z, $status) = new Compress::Raw::Bunzip2 $appendOutput, $consumeInput, $small, $verbosity, $limitOutput;
+
+If successful, it will return the initialised uncompression object, C<$z>
+and a C<$status> of C<BZ_OK> in a list context. In scalar context it
+returns the deflation object, C<$z>, only.
+
+If not successful, the returned uncompression object, C<$z>, will be
+I<undef> and C<$status> will hold the a I<bzip2> error code.
+
+Below is a list of the valid options:
+
+=over 5
+
+=item B<$appendOutput>
+
+Controls whether the compressed data is appended to the output buffer in the
+C<bzinflate>, C<bzflush> and C<bzclose> methods.
+
+Defaults to 1.
+
+=item B<$consumeInput>
+
+=item B<$small>
+
+To quote the bzip2 documentation
+
+    If small is nonzero, the library will use an alternative decompression
+    algorithm which uses less memory but at the cost of decompressing more
+    slowly (roughly speaking, half the speed, but the maximum memory
+    requirement drops to around 2300k). 
+
+Defaults to 0.
+
+=item B<$limitOutput>
+
+The C<LimitOutput> option changes the behavior of the C<< $i->bzinflate >>
+method so that the amount of memory used by the output buffer can be
+limited. 
+
+When C<LimitOutput> is used the size of the output buffer used will either
+be the 16k or the amount of memory already allocated to C<$output>,
+whichever is larger. Predicting the output size available is tricky, so
+don't rely on getting an exact output buffer size.
+
+When C<LimitOutout> is not specified C<< $i->bzinflate >> will use as much
+memory as it takes to write all the uncompressed data it creates by
+uncompressing the input buffer.
+
+If C<LimitOutput> is enabled, the C<ConsumeInput> option will also be
+enabled.
+
+This option defaults to false.
+
+=item B<$verbosity>
+
+This parameter is ignored.
+
+Defaults to 0.
+
+=back
+
+=head2 $status = $z->bzinflate($input, $output);
+
+Uncompresses C<$input> and writes the uncompressed data to C<$output>. 
+
+Returns C<BZ_OK> if the uncompression was successful, but the end of the
+compressed data stream has not been reached. Returns C<BZ_STREAM_END> on
+successful uncompression and the end of the compression stream has been
+reached.
+
+If C<consumeInput> is enabled in the constructor for the bunzip2 object,
+C<$input> will have all compressed data removed from it after
+uncompression. On C<BZ_OK> return this will mean that C<$input> will be an
+empty string; when C<BZ_STREAM_END> C<$input> will either be an empty
+string or will contain whatever data immediately followed the compressed
+data stream.
+
+If C<appendOutput> is enabled in the constructor for the bunzip2 object,
+the uncompressed data will be appended to C<$output>. If not enabled,
+C<$output> will be truncated before the uncompressed data is written to it.
+
+=head1 Misc
+
+=head2 my $version = Compress::Raw::Bzip2::bzlibversion();
+
+Returns the version of the underlying bzip2 library.
+
+=head1 Constants
+
+The following bzip2 constants are exported by this module
+
+		BZ_RUN
+		BZ_FLUSH
+		BZ_FINISH
+
+		BZ_OK
+		BZ_RUN_OK
+		BZ_FLUSH_OK
+		BZ_FINISH_OK
+		BZ_STREAM_END
+		BZ_SEQUENCE_ERROR
+		BZ_PARAM_ERROR
+		BZ_MEM_ERROR
+		BZ_DATA_ERROR
+		BZ_DATA_ERROR_MAGIC
+		BZ_IO_ERROR
+		BZ_UNEXPECTED_EOF
+		BZ_OUTBUFF_FULL
+		BZ_CONFIG_ERROR
+
+=head1 SEE ALSO
+
+L<Compress::Zlib>, L<IO::Compress::Gzip>, L<IO::Uncompress::Gunzip>, L<IO::Compress::Deflate>, L<IO::Uncompress::Inflate>, L<IO::Compress::RawDeflate>, L<IO::Uncompress::RawInflate>, L<IO::Compress::Bzip2>, L<IO::Uncompress::Bunzip2>, L<IO::Compress::Lzma>, L<IO::Uncompress::UnLzma>, L<IO::Compress::Xz>, L<IO::Uncompress::UnXz>, L<IO::Compress::Lzop>, L<IO::Uncompress::UnLzop>, L<IO::Compress::Lzf>, L<IO::Uncompress::UnLzf>, L<IO::Uncompress::AnyInflate>, L<IO::Uncompress::AnyUncompress>
+
+L<IO::Compress::FAQ|IO::Compress::FAQ>
+
+L<File::GlobMapper|File::GlobMapper>, L<Archive::Zip|Archive::Zip>,
+L<Archive::Tar|Archive::Tar>,
+L<IO::Zlib|IO::Zlib>
+
+The primary site for the bzip2 program is F<http://www.bzip.org>.
+
+See the module L<Compress::Bzip2|Compress::Bzip2>
+
+=head1 AUTHOR
+
+This module was written by Paul Marquess, F<pmqs@cpan.org>. 
+
+=head1 MODIFICATION HISTORY
+
+See the Changes file.
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright (c) 2005-2015 Paul Marquess. All rights reserved.
+
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
diff --git a/lib/5.24.1/x86_64-linux/Compress/Raw/Zlib.pm b/lib/5.24.1/x86_64-linux/Compress/Raw/Zlib.pm
new file mode 100644
index 00000000..59a6100e
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/Compress/Raw/Zlib.pm
@@ -0,0 +1,1597 @@
+
+package Compress::Raw::Zlib;
+
+require 5.006 ;
+require Exporter;
+use Carp ;
+
+use strict ;
+use warnings ;
+use bytes ;
+our ($VERSION, $XS_VERSION, @ISA, @EXPORT, %EXPORT_TAGS, @EXPORT_OK, $AUTOLOAD, %DEFLATE_CONSTANTS, @DEFLATE_CONSTANTS);
+
+$VERSION = '2.069';
+$XS_VERSION = $VERSION; 
+$VERSION = eval $VERSION;
+
+@ISA = qw(Exporter);
+%EXPORT_TAGS = ( flush     => [qw{  
+                                    Z_NO_FLUSH
+                                    Z_PARTIAL_FLUSH
+                                    Z_SYNC_FLUSH
+                                    Z_FULL_FLUSH
+                                    Z_FINISH
+                                    Z_BLOCK
+                              }],
+                 level     => [qw{  
+                                    Z_NO_COMPRESSION
+                                    Z_BEST_SPEED
+                                    Z_BEST_COMPRESSION
+                                    Z_DEFAULT_COMPRESSION
+                              }],
+                 strategy  => [qw{  
+                                    Z_FILTERED
+                                    Z_HUFFMAN_ONLY
+                                    Z_RLE
+                                    Z_FIXED
+                                    Z_DEFAULT_STRATEGY
+                              }],
+                 status   => [qw{  
+                                    Z_OK
+                                    Z_STREAM_END
+                                    Z_NEED_DICT
+                                    Z_ERRNO
+                                    Z_STREAM_ERROR
+                                    Z_DATA_ERROR  
+                                    Z_MEM_ERROR   
+                                    Z_BUF_ERROR 
+                                    Z_VERSION_ERROR 
+                              }],                              
+              );
+
+%DEFLATE_CONSTANTS = %EXPORT_TAGS;
+
+# Items to export into callers namespace by default. Note: do not export
+# names by default without a very good reason. Use EXPORT_OK instead.
+# Do not simply export all your public functions/methods/constants.
+@DEFLATE_CONSTANTS = 
+@EXPORT = qw(
+        ZLIB_VERSION
+        ZLIB_VERNUM
+
+        
+        OS_CODE
+
+        MAX_MEM_LEVEL
+        MAX_WBITS
+
+        Z_ASCII
+        Z_BEST_COMPRESSION
+        Z_BEST_SPEED
+        Z_BINARY
+        Z_BLOCK
+        Z_BUF_ERROR
+        Z_DATA_ERROR
+        Z_DEFAULT_COMPRESSION
+        Z_DEFAULT_STRATEGY
+        Z_DEFLATED
+        Z_ERRNO
+        Z_FILTERED
+        Z_FIXED
+        Z_FINISH
+        Z_FULL_FLUSH
+        Z_HUFFMAN_ONLY
+        Z_MEM_ERROR
+        Z_NEED_DICT
+        Z_NO_COMPRESSION
+        Z_NO_FLUSH
+        Z_NULL
+        Z_OK
+        Z_PARTIAL_FLUSH
+        Z_RLE
+        Z_STREAM_END
+        Z_STREAM_ERROR
+        Z_SYNC_FLUSH
+        Z_TREES
+        Z_UNKNOWN
+        Z_VERSION_ERROR
+
+        WANT_GZIP
+        WANT_GZIP_OR_ZLIB
+);
+
+push @EXPORT, qw(crc32 adler32 DEF_WBITS);
+
+use constant WANT_GZIP           => 16;
+use constant WANT_GZIP_OR_ZLIB   => 32;
+
+sub AUTOLOAD {
+    my($constname);
+    ($constname = $AUTOLOAD) =~ s/.*:://;
+    my ($error, $val) = constant($constname);
+    Carp::croak $error if $error;
+    no strict 'refs';
+    *{$AUTOLOAD} = sub { $val };
+    goto &{$AUTOLOAD};
+}
+
+use constant FLAG_APPEND             => 1 ;
+use constant FLAG_CRC                => 2 ;
+use constant FLAG_ADLER              => 4 ;
+use constant FLAG_CONSUME_INPUT      => 8 ;
+use constant FLAG_LIMIT_OUTPUT       => 16 ;
+
+eval {
+    require XSLoader;
+    XSLoader::load('Compress::Raw::Zlib', $XS_VERSION);
+    1;
+} 
+or do {
+    require DynaLoader;
+    local @ISA = qw(DynaLoader);
+    bootstrap Compress::Raw::Zlib $XS_VERSION ; 
+};
+ 
+
+use constant Parse_any      => 0x01;
+use constant Parse_unsigned => 0x02;
+use constant Parse_signed   => 0x04;
+use constant Parse_boolean  => 0x08;
+#use constant Parse_string   => 0x10;
+#use constant Parse_custom   => 0x12;
+
+#use constant Parse_store_ref => 0x100 ;
+
+use constant OFF_PARSED     => 0 ;
+use constant OFF_TYPE       => 1 ;
+use constant OFF_DEFAULT    => 2 ;
+use constant OFF_FIXED      => 3 ;
+use constant OFF_FIRST_ONLY => 4 ;
+use constant OFF_STICKY     => 5 ;
+
+
+
+sub ParseParameters
+{
+    my $level = shift || 0 ; 
+
+    my $sub = (caller($level + 1))[3] ;
+    #local $Carp::CarpLevel = 1 ;
+    my $p = new Compress::Raw::Zlib::Parameters() ;
+    $p->parse(@_)
+        or croak "$sub: $p->{Error}" ;
+
+    return $p;
+}
+
+
+sub Compress::Raw::Zlib::Parameters::new
+{
+    my $class = shift ;
+
+    my $obj = { Error => '',
+                Got   => {},
+              } ;
+
+    #return bless $obj, ref($class) || $class || __PACKAGE__ ;
+    return bless $obj, 'Compress::Raw::Zlib::Parameters' ;
+}
+
+sub Compress::Raw::Zlib::Parameters::setError
+{
+    my $self = shift ;
+    my $error = shift ;
+    my $retval = @_ ? shift : undef ;
+
+    $self->{Error} = $error ;
+    return $retval;
+}
+          
+#sub getError
+#{
+#    my $self = shift ;
+#    return $self->{Error} ;
+#}
+          
+sub Compress::Raw::Zlib::Parameters::parse
+{
+    my $self = shift ;
+
+    my $default = shift ;
+
+    my $got = $self->{Got} ;
+    my $firstTime = keys %{ $got } == 0 ;
+
+    my (@Bad) ;
+    my @entered = () ;
+
+    # Allow the options to be passed as a hash reference or
+    # as the complete hash.
+    if (@_ == 0) {
+        @entered = () ;
+    }
+    elsif (@_ == 1) {
+        my $href = $_[0] ;    
+        return $self->setError("Expected even number of parameters, got 1")
+            if ! defined $href or ! ref $href or ref $href ne "HASH" ;
+ 
+        foreach my $key (keys %$href) {
+            push @entered, $key ;
+            push @entered, \$href->{$key} ;
+        }
+    }
+    else {
+        my $count = @_;
+        return $self->setError("Expected even number of parameters, got $count")
+            if $count % 2 != 0 ;
+        
+        for my $i (0.. $count / 2 - 1) {
+            push @entered, $_[2* $i] ;
+            push @entered, \$_[2* $i+1] ;
+        }
+    }
+
+
+    while (my ($key, $v) = each %$default)
+    {
+        croak "need 4 params [@$v]"
+            if @$v != 4 ;
+
+        my ($first_only, $sticky, $type, $value) = @$v ;
+        my $x ;
+        $self->_checkType($key, \$value, $type, 0, \$x) 
+            or return undef ;
+
+        $key = lc $key;
+
+        if ($firstTime || ! $sticky) {
+            $got->{$key} = [0, $type, $value, $x, $first_only, $sticky] ;
+        }
+
+        $got->{$key}[OFF_PARSED] = 0 ;
+    }
+
+    for my $i (0.. @entered / 2 - 1) {
+        my $key = $entered[2* $i] ;
+        my $value = $entered[2* $i+1] ;
+
+        #print "Key [$key] Value [$value]" ;
+        #print defined $$value ? "[$$value]\n" : "[undef]\n";
+
+        $key =~ s/^-// ;
+        my $canonkey = lc $key;
+ 
+        if ($got->{$canonkey} && ($firstTime ||
+                                  ! $got->{$canonkey}[OFF_FIRST_ONLY]  ))
+        {
+            my $type = $got->{$canonkey}[OFF_TYPE] ;
+            my $s ;
+            $self->_checkType($key, $value, $type, 1, \$s)
+                or return undef ;
+            #$value = $$value unless $type & Parse_store_ref ;
+            $value = $$value ;
+            $got->{$canonkey} = [1, $type, $value, $s] ;
+        }
+        else
+          { push (@Bad, $key) }
+    }
+ 
+    if (@Bad) {
+        my ($bad) = join(", ", @Bad) ;
+        return $self->setError("unknown key value(s) @Bad") ;
+    }
+
+    return 1;
+}
+
+sub Compress::Raw::Zlib::Parameters::_checkType
+{
+    my $self = shift ;
+
+    my $key   = shift ;
+    my $value = shift ;
+    my $type  = shift ;
+    my $validate  = shift ;
+    my $output  = shift;
+
+    #local $Carp::CarpLevel = $level ;
+    #print "PARSE $type $key $value $validate $sub\n" ;
+#    if ( $type & Parse_store_ref)
+#    {
+#        #$value = $$value
+#        #    if ref ${ $value } ;
+#
+#        $$output = $value ;
+#        return 1;
+#    }
+
+    $value = $$value ;
+
+    if ($type & Parse_any)
+    {
+        $$output = $value ;
+        return 1;
+    }
+    elsif ($type & Parse_unsigned)
+    {
+        return $self->setError("Parameter '$key' must be an unsigned int, got 'undef'")
+            if $validate && ! defined $value ;
+        return $self->setError("Parameter '$key' must be an unsigned int, got '$value'")
+            if $validate && $value !~ /^\d+$/;
+
+        $$output = defined $value ? $value : 0 ;    
+        return 1;
+    }
+    elsif ($type & Parse_signed)
+    {
+        return $self->setError("Parameter '$key' must be a signed int, got 'undef'")
+            if $validate && ! defined $value ;
+        return $self->setError("Parameter '$key' must be a signed int, got '$value'")
+            if $validate && $value !~ /^-?\d+$/;
+
+        $$output = defined $value ? $value : 0 ;    
+        return 1 ;
+    }
+    elsif ($type & Parse_boolean)
+    {
+        return $self->setError("Parameter '$key' must be an int, got '$value'")
+            if $validate && defined $value && $value !~ /^\d*$/;
+        $$output =  defined $value ? $value != 0 : 0 ;    
+        return 1;
+    }
+#    elsif ($type & Parse_string)
+#    {
+#        $$output = defined $value ? $value : "" ;    
+#        return 1;
+#    }
+
+    $$output = $value ;
+    return 1;
+}
+
+
+
+sub Compress::Raw::Zlib::Parameters::parsed
+{
+    my $self = shift ;
+    my $name = shift ;
+
+    return $self->{Got}{lc $name}[OFF_PARSED] ;
+}
+
+sub Compress::Raw::Zlib::Parameters::value
+{
+    my $self = shift ;
+    my $name = shift ;
+
+    if (@_)
+    {
+        $self->{Got}{lc $name}[OFF_PARSED]  = 1;
+        $self->{Got}{lc $name}[OFF_DEFAULT] = $_[0] ;
+        $self->{Got}{lc $name}[OFF_FIXED]   = $_[0] ;
+    }
+
+    return $self->{Got}{lc $name}[OFF_FIXED] ;
+}
+
+our $OPTIONS_deflate =   
+    {
+        'AppendOutput'  => [1, 1, Parse_boolean,  0],
+        'CRC32'         => [1, 1, Parse_boolean,  0],
+        'ADLER32'       => [1, 1, Parse_boolean,  0],
+        'Bufsize'       => [1, 1, Parse_unsigned, 4096],
+
+        'Level'         => [1, 1, Parse_signed,   Z_DEFAULT_COMPRESSION()],
+        'Method'        => [1, 1, Parse_unsigned, Z_DEFLATED()],
+        'WindowBits'    => [1, 1, Parse_signed,   MAX_WBITS()],
+        'MemLevel'      => [1, 1, Parse_unsigned, MAX_MEM_LEVEL()],
+        'Strategy'      => [1, 1, Parse_unsigned, Z_DEFAULT_STRATEGY()],
+        'Dictionary'    => [1, 1, Parse_any,      ""],
+    };
+
+sub Compress::Raw::Zlib::Deflate::new
+{
+    my $pkg = shift ;
+    my ($got) = ParseParameters(0, $OPTIONS_deflate, @_);
+
+    croak "Compress::Raw::Zlib::Deflate::new: Bufsize must be >= 1, you specified " . 
+            $got->value('Bufsize')
+        unless $got->value('Bufsize') >= 1;
+
+    my $flags = 0 ;
+    $flags |= FLAG_APPEND if $got->value('AppendOutput') ;
+    $flags |= FLAG_CRC    if $got->value('CRC32') ;
+    $flags |= FLAG_ADLER  if $got->value('ADLER32') ;
+
+    my $windowBits =  $got->value('WindowBits');
+    $windowBits += MAX_WBITS()
+        if ($windowBits & MAX_WBITS()) == 0 ;
+
+    _deflateInit($flags,
+                $got->value('Level'), 
+                $got->value('Method'), 
+                $windowBits, 
+                $got->value('MemLevel'), 
+                $got->value('Strategy'), 
+                $got->value('Bufsize'),
+                $got->value('Dictionary')) ;
+
+}
+
+sub Compress::Raw::Zlib::deflateStream::STORABLE_freeze
+{
+    my $type = ref shift;
+    croak "Cannot freeze $type object\n";
+}
+
+sub Compress::Raw::Zlib::deflateStream::STORABLE_thaw
+{
+    my $type = ref shift;
+    croak "Cannot thaw $type object\n";
+}
+
+
+our $OPTIONS_inflate = 
+    {
+        'AppendOutput'  => [1, 1, Parse_boolean,  0],
+        'LimitOutput'   => [1, 1, Parse_boolean,  0],
+        'CRC32'         => [1, 1, Parse_boolean,  0],
+        'ADLER32'       => [1, 1, Parse_boolean,  0],
+        'ConsumeInput'  => [1, 1, Parse_boolean,  1],
+        'Bufsize'       => [1, 1, Parse_unsigned, 4096],
+ 
+        'WindowBits'    => [1, 1, Parse_signed,   MAX_WBITS()],
+        'Dictionary'    => [1, 1, Parse_any,      ""],
+    } ;
+
+sub Compress::Raw::Zlib::Inflate::new
+{
+    my $pkg = shift ;
+    my ($got) = ParseParameters(0, $OPTIONS_inflate, @_);
+
+    croak "Compress::Raw::Zlib::Inflate::new: Bufsize must be >= 1, you specified " . 
+            $got->value('Bufsize')
+        unless $got->value('Bufsize') >= 1;
+
+    my $flags = 0 ;
+    $flags |= FLAG_APPEND if $got->value('AppendOutput') ;
+    $flags |= FLAG_CRC    if $got->value('CRC32') ;
+    $flags |= FLAG_ADLER  if $got->value('ADLER32') ;
+    $flags |= FLAG_CONSUME_INPUT if $got->value('ConsumeInput') ;
+    $flags |= FLAG_LIMIT_OUTPUT if $got->value('LimitOutput') ;
+
+
+    my $windowBits =  $got->value('WindowBits');
+    $windowBits += MAX_WBITS()
+        if ($windowBits & MAX_WBITS()) == 0 ;
+
+    _inflateInit($flags, $windowBits, $got->value('Bufsize'), 
+                 $got->value('Dictionary')) ;
+}
+
+sub Compress::Raw::Zlib::inflateStream::STORABLE_freeze
+{
+    my $type = ref shift;
+    croak "Cannot freeze $type object\n";
+}
+
+sub Compress::Raw::Zlib::inflateStream::STORABLE_thaw
+{
+    my $type = ref shift;
+    croak "Cannot thaw $type object\n";
+}
+
+sub Compress::Raw::Zlib::InflateScan::new
+{
+    my $pkg = shift ;
+    my ($got) = ParseParameters(0,
+                    {
+                        'CRC32'         => [1, 1, Parse_boolean,  0],
+                        'ADLER32'       => [1, 1, Parse_boolean,  0],
+                        'Bufsize'       => [1, 1, Parse_unsigned, 4096],
+                 
+                        'WindowBits'    => [1, 1, Parse_signed,   -MAX_WBITS()],
+                        'Dictionary'    => [1, 1, Parse_any,      ""],
+            }, @_) ;
+
+
+    croak "Compress::Raw::Zlib::InflateScan::new: Bufsize must be >= 1, you specified " . 
+            $got->value('Bufsize')
+        unless $got->value('Bufsize') >= 1;
+
+    my $flags = 0 ;
+    #$flags |= FLAG_APPEND if $got->value('AppendOutput') ;
+    $flags |= FLAG_CRC    if $got->value('CRC32') ;
+    $flags |= FLAG_ADLER  if $got->value('ADLER32') ;
+    #$flags |= FLAG_CONSUME_INPUT if $got->value('ConsumeInput') ;
+
+    _inflateScanInit($flags, $got->value('WindowBits'), $got->value('Bufsize'), 
+                 '') ;
+}
+
+sub Compress::Raw::Zlib::inflateScanStream::createDeflateStream
+{
+    my $pkg = shift ;
+    my ($got) = ParseParameters(0,
+            {
+                'AppendOutput'  => [1, 1, Parse_boolean,  0],
+                'CRC32'         => [1, 1, Parse_boolean,  0],
+                'ADLER32'       => [1, 1, Parse_boolean,  0],
+                'Bufsize'       => [1, 1, Parse_unsigned, 4096],
+ 
+                'Level'         => [1, 1, Parse_signed,   Z_DEFAULT_COMPRESSION()],
+                'Method'        => [1, 1, Parse_unsigned, Z_DEFLATED()],
+                'WindowBits'    => [1, 1, Parse_signed,   - MAX_WBITS()],
+                'MemLevel'      => [1, 1, Parse_unsigned, MAX_MEM_LEVEL()],
+                'Strategy'      => [1, 1, Parse_unsigned, Z_DEFAULT_STRATEGY()],
+            }, @_) ;
+
+    croak "Compress::Raw::Zlib::InflateScan::createDeflateStream: Bufsize must be >= 1, you specified " . 
+            $got->value('Bufsize')
+        unless $got->value('Bufsize') >= 1;
+
+    my $flags = 0 ;
+    $flags |= FLAG_APPEND if $got->value('AppendOutput') ;
+    $flags |= FLAG_CRC    if $got->value('CRC32') ;
+    $flags |= FLAG_ADLER  if $got->value('ADLER32') ;
+
+    $pkg->_createDeflateStream($flags,
+                $got->value('Level'), 
+                $got->value('Method'), 
+                $got->value('WindowBits'), 
+                $got->value('MemLevel'), 
+                $got->value('Strategy'), 
+                $got->value('Bufsize'),
+                ) ;
+
+}
+
+sub Compress::Raw::Zlib::inflateScanStream::inflate
+{
+    my $self = shift ;
+    my $buffer = $_[1];
+    my $eof = $_[2];
+
+    my $status = $self->scan(@_);
+
+    if ($status == Z_OK() && $_[2]) {
+        my $byte = ' ';
+        
+        $status = $self->scan(\$byte, $_[1]) ;
+    }
+    
+    return $status ;
+}
+
+sub Compress::Raw::Zlib::deflateStream::deflateParams
+{
+    my $self = shift ;
+    my ($got) = ParseParameters(0, {
+                'Level'      => [1, 1, Parse_signed,   undef],
+                'Strategy'   => [1, 1, Parse_unsigned, undef],
+                'Bufsize'    => [1, 1, Parse_unsigned, undef],
+                }, 
+                @_) ;
+
+    croak "Compress::Raw::Zlib::deflateParams needs Level and/or Strategy"
+        unless $got->parsed('Level') + $got->parsed('Strategy') +
+            $got->parsed('Bufsize');
+
+    croak "Compress::Raw::Zlib::Inflate::deflateParams: Bufsize must be >= 1, you specified " . 
+            $got->value('Bufsize')
+        if $got->parsed('Bufsize') && $got->value('Bufsize') <= 1;
+
+    my $flags = 0;
+    $flags |= 1 if $got->parsed('Level') ;
+    $flags |= 2 if $got->parsed('Strategy') ;
+    $flags |= 4 if $got->parsed('Bufsize') ;
+
+    $self->_deflateParams($flags, $got->value('Level'), 
+                          $got->value('Strategy'), $got->value('Bufsize'));
+
+}
+
+
+1;
+__END__
+
+
+=head1 NAME
+
+Compress::Raw::Zlib - Low-Level Interface to zlib compression library
+
+=head1 SYNOPSIS
+
+    use Compress::Raw::Zlib ;
+
+    ($d, $status) = new Compress::Raw::Zlib::Deflate( [OPT] ) ;
+    $status = $d->deflate($input, $output) ;
+    $status = $d->flush($output [, $flush_type]) ;
+    $d->deflateReset() ;
+    $d->deflateParams(OPTS) ;
+    $d->deflateTune(OPTS) ;
+    $d->dict_adler() ;
+    $d->crc32() ;
+    $d->adler32() ;
+    $d->total_in() ;
+    $d->total_out() ;
+    $d->msg() ;
+    $d->get_Strategy();
+    $d->get_Level();
+    $d->get_BufSize();
+
+    ($i, $status) = new Compress::Raw::Zlib::Inflate( [OPT] ) ;
+    $status = $i->inflate($input, $output [, $eof]) ;
+    $status = $i->inflateSync($input) ;
+    $i->inflateReset() ;
+    $i->dict_adler() ;
+    $d->crc32() ;
+    $d->adler32() ;
+    $i->total_in() ;
+    $i->total_out() ;
+    $i->msg() ;
+    $d->get_BufSize();
+
+    $crc = adler32($buffer [,$crc]) ;
+    $crc = crc32($buffer [,$crc]) ;
+
+    $crc = crc32_combine($crc1, $crc2, $len2);
+    $adler = adler32_combine($adler1, $adler2, $len2);
+
+    my $version = Compress::Raw::Zlib::zlib_version();
+    my $flags = Compress::Raw::Zlib::zlibCompileFlags();
+
+=head1 DESCRIPTION
+
+The I<Compress::Raw::Zlib> module provides a Perl interface to the I<zlib>
+compression library (see L</AUTHOR> for details about where to get
+I<zlib>). 
+
+=head1 Compress::Raw::Zlib::Deflate
+
+This section defines an interface that allows in-memory compression using
+the I<deflate> interface provided by zlib.
+
+Here is a definition of the interface available:
+
+=head2 B<($d, $status) = new Compress::Raw::Zlib::Deflate( [OPT] ) >
+
+Initialises a deflation object. 
+
+If you are familiar with the I<zlib> library, it combines the
+features of the I<zlib> functions C<deflateInit>, C<deflateInit2>
+and C<deflateSetDictionary>.
+
+If successful, it will return the initialised deflation object, C<$d>
+and a C<$status> of C<Z_OK> in a list context. In scalar context it
+returns the deflation object, C<$d>, only.
+
+If not successful, the returned deflation object, C<$d>, will be
+I<undef> and C<$status> will hold the a I<zlib> error code.
+
+The function optionally takes a number of named options specified as
+C<< Name => value >> pairs. This allows individual options to be
+tailored without having to specify them all in the parameter list.
+
+For backward compatibility, it is also possible to pass the parameters
+as a reference to a hash containing the name=>value pairs.
+
+Below is a list of the valid options:
+
+=over 5
+
+=item B<-Level>
+
+Defines the compression level. Valid values are 0 through 9,
+C<Z_NO_COMPRESSION>, C<Z_BEST_SPEED>, C<Z_BEST_COMPRESSION>, and
+C<Z_DEFAULT_COMPRESSION>.
+
+The default is C<Z_DEFAULT_COMPRESSION>.
+
+=item B<-Method>
+
+Defines the compression method. The only valid value at present (and
+the default) is C<Z_DEFLATED>.
+
+=item B<-WindowBits>
+
+To compress an RFC 1950 data stream, set C<WindowBits> to a positive
+number between 8 and 15.
+
+To compress an RFC 1951 data stream, set C<WindowBits> to C<-MAX_WBITS>.
+
+To compress an RFC 1952 data stream (i.e. gzip), set C<WindowBits> to
+C<WANT_GZIP>.
+
+For a definition of the meaning and valid values for C<WindowBits>
+refer to the I<zlib> documentation for I<deflateInit2>.
+
+Defaults to C<MAX_WBITS>.
+
+=item B<-MemLevel>
+
+For a definition of the meaning and valid values for C<MemLevel>
+refer to the I<zlib> documentation for I<deflateInit2>.
+
+Defaults to MAX_MEM_LEVEL.
+
+=item B<-Strategy>
+
+Defines the strategy used to tune the compression. The valid values are
+C<Z_DEFAULT_STRATEGY>, C<Z_FILTERED>, C<Z_RLE>, C<Z_FIXED> and
+C<Z_HUFFMAN_ONLY>.
+
+The default is C<Z_DEFAULT_STRATEGY>.
+
+=item B<-Dictionary>
+
+When a dictionary is specified I<Compress::Raw::Zlib> will automatically
+call C<deflateSetDictionary> directly after calling C<deflateInit>. The
+Adler32 value for the dictionary can be obtained by calling the method 
+C<$d-E<gt>dict_adler()>.
+
+The default is no dictionary.
+
+=item B<-Bufsize>
+
+Sets the initial size for the output buffer used by the C<$d-E<gt>deflate>
+and C<$d-E<gt>flush> methods. If the buffer has to be
+reallocated to increase the size, it will grow in increments of
+C<Bufsize>.
+
+The default buffer size is 4096.
+
+=item B<-AppendOutput>
+
+This option controls how data is written to the output buffer by the
+C<$d-E<gt>deflate> and C<$d-E<gt>flush> methods.
+
+If the C<AppendOutput> option is set to false, the output buffers in the
+C<$d-E<gt>deflate> and C<$d-E<gt>flush>  methods will be truncated before
+uncompressed data is written to them.
+
+If the option is set to true, uncompressed data will be appended to the
+output buffer in the C<$d-E<gt>deflate> and C<$d-E<gt>flush> methods.
+
+This option defaults to false.
+
+=item B<-CRC32>
+
+If set to true, a crc32 checksum of the uncompressed data will be
+calculated. Use the C<$d-E<gt>crc32> method to retrieve this value.
+
+This option defaults to false.
+
+=item B<-ADLER32>
+
+If set to true, an adler32 checksum of the uncompressed data will be
+calculated. Use the C<$d-E<gt>adler32> method to retrieve this value.
+
+This option defaults to false.
+
+=back
+
+Here is an example of using the C<Compress::Raw::Zlib::Deflate> optional
+parameter list to override the default buffer size and compression
+level. All other options will take their default values.
+
+    my $d = new Compress::Raw::Zlib::Deflate ( -Bufsize => 300, 
+                                               -Level   => Z_BEST_SPEED ) ;
+
+=head2 B<$status = $d-E<gt>deflate($input, $output)>
+
+Deflates the contents of C<$input> and writes the compressed data to
+C<$output>.
+
+The C<$input> and C<$output> parameters can be either scalars or scalar
+references.
+
+When finished, C<$input> will be completely processed (assuming there
+were no errors). If the deflation was successful it writes the deflated
+data to C<$output> and returns a status value of C<Z_OK>.
+
+On error, it returns a I<zlib> error code.
+
+If the C<AppendOutput> option is set to true in the constructor for
+the C<$d> object, the compressed data will be appended to C<$output>. If
+it is false, C<$output> will be truncated before any compressed data is
+written to it.
+
+B<Note>: This method will not necessarily write compressed data to
+C<$output> every time it is called. So do not assume that there has been
+an error if the contents of C<$output> is empty on returning from
+this method. As long as the return code from the method is C<Z_OK>,
+the deflate has succeeded.
+
+=head2 B<$status = $d-E<gt>flush($output [, $flush_type]) >
+
+Typically used to finish the deflation. Any pending output will be
+written to C<$output>.
+
+Returns C<Z_OK> if successful.
+
+Note that flushing can seriously degrade the compression ratio, so it
+should only be used to terminate a decompression (using C<Z_FINISH>) or
+when you want to create a I<full flush point> (using C<Z_FULL_FLUSH>).
+
+By default the C<flush_type> used is C<Z_FINISH>. Other valid values
+for C<flush_type> are C<Z_NO_FLUSH>, C<Z_PARTIAL_FLUSH>, C<Z_SYNC_FLUSH>
+and C<Z_FULL_FLUSH>. It is strongly recommended that you only set the
+C<flush_type> parameter if you fully understand the implications of
+what it does. See the C<zlib> documentation for details.
+
+If the C<AppendOutput> option is set to true in the constructor for
+the C<$d> object, the compressed data will be appended to C<$output>. If
+it is false, C<$output> will be truncated before any compressed data is
+written to it.
+
+=head2 B<$status = $d-E<gt>deflateReset() >
+
+This method will reset the deflation object C<$d>. It can be used when you
+are compressing multiple data streams and want to use the same object to
+compress each of them. It should only be used once the previous data stream
+has been flushed successfully, i.e. a call to C<< $d->flush(Z_FINISH) >> has
+returned C<Z_OK>.
+
+Returns C<Z_OK> if successful.
+
+=head2 B<$status = $d-E<gt>deflateParams([OPT])>
+
+Change settings for the deflate object C<$d>.
+
+The list of the valid options is shown below. Options not specified
+will remain unchanged.
+
+=over 5
+
+=item B<-Level>
+
+Defines the compression level. Valid values are 0 through 9,
+C<Z_NO_COMPRESSION>, C<Z_BEST_SPEED>, C<Z_BEST_COMPRESSION>, and
+C<Z_DEFAULT_COMPRESSION>.
+
+=item B<-Strategy>
+
+Defines the strategy used to tune the compression. The valid values are
+C<Z_DEFAULT_STRATEGY>, C<Z_FILTERED> and C<Z_HUFFMAN_ONLY>. 
+
+=item B<-BufSize>
+
+Sets the initial size for the output buffer used by the C<$d-E<gt>deflate>
+and C<$d-E<gt>flush> methods. If the buffer has to be
+reallocated to increase the size, it will grow in increments of
+C<Bufsize>.
+
+=back
+
+=head2 B<$status = $d-E<gt>deflateTune($good_length, $max_lazy, $nice_length, $max_chain)>
+
+Tune the internal settings for the deflate object C<$d>. This option is
+only available if you are running zlib 1.2.2.3 or better.
+
+Refer to the documentation in zlib.h for instructions on how to fly
+C<deflateTune>.
+
+=head2 B<$d-E<gt>dict_adler()>
+
+Returns the adler32 value for the dictionary.
+
+=head2 B<$d-E<gt>crc32()>
+
+Returns the crc32 value for the uncompressed data to date. 
+
+If the C<CRC32> option is not enabled in the constructor for this object,
+this method will always return 0;
+
+=head2 B<$d-E<gt>adler32()>
+
+Returns the adler32 value for the uncompressed data to date. 
+
+=head2 B<$d-E<gt>msg()>
+
+Returns the last error message generated by zlib.
+
+=head2 B<$d-E<gt>total_in()>
+
+Returns the total number of bytes uncompressed bytes input to deflate.
+
+=head2 B<$d-E<gt>total_out()>
+
+Returns the total number of compressed bytes output from deflate.
+
+=head2 B<$d-E<gt>get_Strategy()>
+
+Returns the deflation strategy currently used. Valid values are
+C<Z_DEFAULT_STRATEGY>, C<Z_FILTERED> and C<Z_HUFFMAN_ONLY>. 
+
+=head2 B<$d-E<gt>get_Level()>
+
+Returns the compression level being used. 
+
+=head2 B<$d-E<gt>get_BufSize()>
+
+Returns the buffer size used to carry out the compression.
+
+=head2 Example
+
+Here is a trivial example of using C<deflate>. It simply reads standard
+input, deflates it and writes it to standard output.
+
+    use strict ;
+    use warnings ;
+
+    use Compress::Raw::Zlib ;
+
+    binmode STDIN;
+    binmode STDOUT;
+    my $x = new Compress::Raw::Zlib::Deflate
+       or die "Cannot create a deflation stream\n" ;
+
+    my ($output, $status) ;
+    while (<>)
+    {
+        $status = $x->deflate($_, $output) ;
+    
+        $status == Z_OK
+            or die "deflation failed\n" ;
+    
+        print $output ;
+    }
+    
+    $status = $x->flush($output) ;
+    
+    $status == Z_OK
+        or die "deflation failed\n" ;
+    
+    print $output ;
+
+=head1 Compress::Raw::Zlib::Inflate
+
+This section defines an interface that allows in-memory uncompression using
+the I<inflate> interface provided by zlib.
+
+Here is a definition of the interface:
+
+=head2 B< ($i, $status) = new Compress::Raw::Zlib::Inflate( [OPT] ) >
+
+Initialises an inflation object. 
+
+In a list context it returns the inflation object, C<$i>, and the
+I<zlib> status code (C<$status>). In a scalar context it returns the
+inflation object only.
+
+If successful, C<$i> will hold the inflation object and C<$status> will
+be C<Z_OK>.
+
+If not successful, C<$i> will be I<undef> and C<$status> will hold the
+I<zlib> error code.
+
+The function optionally takes a number of named options specified as
+C<< -Name => value >> pairs. This allows individual options to be
+tailored without having to specify them all in the parameter list.
+
+For backward compatibility, it is also possible to pass the parameters
+as a reference to a hash containing the C<< name=>value >> pairs.
+
+Here is a list of the valid options:
+
+=over 5
+
+=item B<-WindowBits>
+
+To uncompress an RFC 1950 data stream, set C<WindowBits> to a positive
+number between 8 and 15.
+
+To uncompress an RFC 1951 data stream, set C<WindowBits> to C<-MAX_WBITS>.
+
+To uncompress an RFC 1952 data stream (i.e. gzip), set C<WindowBits> to
+C<WANT_GZIP>.
+
+To auto-detect and uncompress an RFC 1950 or RFC 1952 data stream (i.e.
+gzip), set C<WindowBits> to C<WANT_GZIP_OR_ZLIB>.
+
+For a full definition of the meaning and valid values for C<WindowBits>
+refer to the I<zlib> documentation for I<inflateInit2>.
+
+Defaults to C<MAX_WBITS>.
+
+=item B<-Bufsize>
+
+Sets the initial size for the output buffer used by the C<$i-E<gt>inflate>
+method. If the output buffer in this method has to be reallocated to
+increase the size, it will grow in increments of C<Bufsize>.
+
+Default is 4096.
+
+=item B<-Dictionary>
+
+The default is no dictionary.
+
+=item B<-AppendOutput>
+
+This option controls how data is written to the output buffer by the
+C<$i-E<gt>inflate> method.
+
+If the option is set to false, the output buffer in the C<$i-E<gt>inflate>
+method will be truncated before uncompressed data is written to it.
+
+If the option is set to true, uncompressed data will be appended to the
+output buffer by the C<$i-E<gt>inflate> method.
+
+This option defaults to false.
+
+=item B<-CRC32>
+
+If set to true, a crc32 checksum of the uncompressed data will be
+calculated. Use the C<$i-E<gt>crc32> method to retrieve this value.
+
+This option defaults to false.
+
+=item B<-ADLER32>
+
+If set to true, an adler32 checksum of the uncompressed data will be
+calculated. Use the C<$i-E<gt>adler32> method to retrieve this value.
+
+This option defaults to false.
+
+=item B<-ConsumeInput>
+
+If set to true, this option will remove compressed data from the input
+buffer of the C<< $i->inflate >> method as the inflate progresses.
+
+This option can be useful when you are processing compressed data that is
+embedded in another file/buffer. In this case the data that immediately
+follows the compressed stream will be left in the input buffer.
+
+This option defaults to true.
+
+=item B<-LimitOutput>
+
+The C<LimitOutput> option changes the behavior of the C<< $i->inflate >>
+method so that the amount of memory used by the output buffer can be
+limited. 
+
+When C<LimitOutput> is used the size of the output buffer used will either
+be the value of the C<Bufsize> option or the amount of memory already
+allocated to C<$output>, whichever is larger. Predicting the output size
+available is tricky, so don't rely on getting an exact output buffer size.
+
+When C<LimitOutout> is not specified C<< $i->inflate >> will use as much
+memory as it takes to write all the uncompressed data it creates by
+uncompressing the input buffer.
+
+If C<LimitOutput> is enabled, the C<ConsumeInput> option will also be
+enabled.
+
+This option defaults to false.
+
+See L</The LimitOutput option> for a discussion on why C<LimitOutput> is
+needed and how to use it.
+
+=back
+
+Here is an example of using an optional parameter to override the default
+buffer size.
+
+    my ($i, $status) = new Compress::Raw::Zlib::Inflate( -Bufsize => 300 ) ;
+
+=head2 B< $status = $i-E<gt>inflate($input, $output [,$eof]) >
+
+Inflates the complete contents of C<$input> and writes the uncompressed
+data to C<$output>. The C<$input> and C<$output> parameters can either be
+scalars or scalar references.
+
+Returns C<Z_OK> if successful and C<Z_STREAM_END> if the end of the
+compressed data has been successfully reached. 
+
+If not successful C<$status> will hold the I<zlib> error code.
+
+If the C<ConsumeInput> option has been set to true when the
+C<Compress::Raw::Zlib::Inflate> object is created, the C<$input> parameter
+is modified by C<inflate>. On completion it will contain what remains
+of the input buffer after inflation. In practice, this means that when
+the return status is C<Z_OK> the C<$input> parameter will contain an
+empty string, and when the return status is C<Z_STREAM_END> the C<$input>
+parameter will contains what (if anything) was stored in the input buffer
+after the deflated data stream.
+
+This feature is useful when processing a file format that encapsulates
+a compressed data stream (e.g. gzip, zip) and there is useful data
+immediately after the deflation stream.
+
+If the C<AppendOutput> option is set to true in the constructor for
+this object, the uncompressed data will be appended to C<$output>. If
+it is false, C<$output> will be truncated before any uncompressed data
+is written to it.
+
+The C<$eof> parameter needs a bit of explanation. 
+
+Prior to version 1.2.0, zlib assumed that there was at least one trailing
+byte immediately after the compressed data stream when it was carrying out
+decompression. This normally isn't a problem because the majority of zlib
+applications guarantee that there will be data directly after the
+compressed data stream.  For example, both gzip (RFC 1950) and zip both
+define trailing data that follows the compressed data stream.
+
+The C<$eof> parameter only needs to be used if B<all> of the following
+conditions apply
+
+=over 5
+
+=item 1 
+
+You are either using a copy of zlib that is older than version 1.2.0 or you
+want your application code to be able to run with as many different
+versions of zlib as possible.
+
+=item 2
+
+You have set the C<WindowBits> parameter to C<-MAX_WBITS> in the constructor
+for this object, i.e. you are uncompressing a raw deflated data stream
+(RFC 1951).
+
+=item 3
+
+There is no data immediately after the compressed data stream.
+
+=back
+
+If B<all> of these are the case, then you need to set the C<$eof> parameter
+to true on the final call (and only the final call) to C<$i-E<gt>inflate>. 
+
+If you have built this module with zlib >= 1.2.0, the C<$eof> parameter is
+ignored. You can still set it if you want, but it won't be used behind the
+scenes.
+
+=head2 B<$status = $i-E<gt>inflateSync($input)>
+
+This method can be used to attempt to recover good data from a compressed
+data stream that is partially corrupt.
+It scans C<$input> until it reaches either a I<full flush point> or the
+end of the buffer.
+
+If a I<full flush point> is found, C<Z_OK> is returned and C<$input>
+will be have all data up to the flush point removed. This data can then be
+passed to the C<$i-E<gt>inflate> method to be uncompressed.
+
+Any other return code means that a flush point was not found. If more
+data is available, C<inflateSync> can be called repeatedly with more
+compressed data until the flush point is found.
+
+Note I<full flush points> are not present by default in compressed
+data streams. They must have been added explicitly when the data stream
+was created by calling C<Compress::Deflate::flush>  with C<Z_FULL_FLUSH>.
+
+=head2 B<$status = $i-E<gt>inflateReset() >
+
+This method will reset the inflation object C<$i>. It can be used when you
+are uncompressing multiple data streams and want to use the same object to
+uncompress each of them. 
+
+Returns C<Z_OK> if successful.
+
+=head2 B<$i-E<gt>dict_adler()>
+
+Returns the adler32 value for the dictionary.
+
+=head2 B<$i-E<gt>crc32()>
+
+Returns the crc32 value for the uncompressed data to date.
+
+If the C<CRC32> option is not enabled in the constructor for this object,
+this method will always return 0;
+
+=head2 B<$i-E<gt>adler32()>
+
+Returns the adler32 value for the uncompressed data to date.
+
+If the C<ADLER32> option is not enabled in the constructor for this object,
+this method will always return 0;
+
+=head2 B<$i-E<gt>msg()>
+
+Returns the last error message generated by zlib.
+
+=head2 B<$i-E<gt>total_in()>
+
+Returns the total number of bytes compressed bytes input to inflate.
+
+=head2 B<$i-E<gt>total_out()>
+
+Returns the total number of uncompressed bytes output from inflate.
+
+=head2 B<$d-E<gt>get_BufSize()>
+
+Returns the buffer size used to carry out the decompression.
+
+=head2 Examples
+
+Here is an example of using C<inflate>.
+
+    use strict ;
+    use warnings ;
+    
+    use Compress::Raw::Zlib;
+    
+    my $x = new Compress::Raw::Zlib::Inflate()
+       or die "Cannot create a inflation stream\n" ;
+    
+    my $input = '' ;
+    binmode STDIN;
+    binmode STDOUT;
+    
+    my ($output, $status) ;
+    while (read(STDIN, $input, 4096))
+    {
+        $status = $x->inflate($input, $output) ;
+    
+        print $output ;
+    
+        last if $status != Z_OK ;
+    }
+    
+    die "inflation failed\n"
+        unless $status == Z_STREAM_END ;
+
+The next example show how to use the C<LimitOutput> option. Notice the use
+of two nested loops in this case. The outer loop reads the data from the
+input source - STDIN and the inner loop repeatedly calls C<inflate> until
+C<$input> is exhausted, we get an error, or the end of the stream is
+reached. One point worth remembering is by using the C<LimitOutput> option
+you also get C<ConsumeInput> set as well - this makes the code below much
+simpler.
+
+    use strict ;
+    use warnings ;
+    
+    use Compress::Raw::Zlib;
+    
+    my $x = new Compress::Raw::Zlib::Inflate(LimitOutput => 1)
+       or die "Cannot create a inflation stream\n" ;
+    
+    my $input = '' ;
+    binmode STDIN;
+    binmode STDOUT;
+    
+    my ($output, $status) ;
+
+  OUTER:
+    while (read(STDIN, $input, 4096))
+    {
+        do
+        {
+            $status = $x->inflate($input, $output) ;
+
+            print $output ;
+
+            last OUTER
+                unless $status == Z_OK || $status == Z_BUF_ERROR ;
+        }
+        while ($status == Z_OK && length $input);
+    }
+    
+    die "inflation failed\n"
+        unless $status == Z_STREAM_END ;
+
+=head1 CHECKSUM FUNCTIONS
+
+Two functions are provided by I<zlib> to calculate checksums. For the
+Perl interface, the order of the two parameters in both functions has
+been reversed. This allows both running checksums and one off
+calculations to be done.
+
+    $crc = adler32($buffer [,$crc]) ;
+    $crc = crc32($buffer [,$crc]) ;
+
+The buffer parameters can either be a scalar or a scalar reference.
+
+If the $crc parameters is C<undef>, the crc value will be reset.
+
+If you have built this module with zlib 1.2.3 or better, two more
+CRC-related functions are available.
+
+    $crc = crc32_combine($crc1, $crc2, $len2);
+    $adler = adler32_combine($adler1, $adler2, $len2);
+
+These functions allow checksums to be merged.
+Refer to the I<zlib> documentation for more details.
+
+=head1 Misc
+
+=head2 my $version = Compress::Raw::Zlib::zlib_version();
+
+Returns the version of the zlib library.
+
+=head2  my $flags = Compress::Raw::Zlib::zlibCompileFlags();
+
+Returns the flags indicating compile-time options that were used to build 
+the zlib library. See the zlib documentation for a description of the flags
+returned by C<zlibCompileFlags>.
+
+Note that when the zlib sources are built along with this module the
+C<sprintf> flags (bits 24, 25 and 26) should be ignored.
+
+If you are using zlib 1.2.0 or older, C<zlibCompileFlags> will return 0. 
+
+=head1 The LimitOutput option.
+
+By default C<< $i->inflate($input, $output) >> will uncompress I<all> data
+in C<$input> and write I<all> of the uncompressed data it has generated to
+C<$output>. This makes the interface to C<inflate> much simpler - if the
+method has uncompressed C<$input> successfully I<all> compressed data in
+C<$input> will have been dealt with. So if you are reading from an input
+source and uncompressing as you go the code will look something like this
+
+    use strict ;
+    use warnings ;
+    
+    use Compress::Raw::Zlib;
+    
+    my $x = new Compress::Raw::Zlib::Inflate()
+       or die "Cannot create a inflation stream\n" ;
+    
+    my $input = '' ;
+    
+    my ($output, $status) ;
+    while (read(STDIN, $input, 4096))
+    {
+        $status = $x->inflate($input, $output) ;
+    
+        print $output ;
+    
+        last if $status != Z_OK ;
+    }
+    
+    die "inflation failed\n"
+        unless $status == Z_STREAM_END ;
+
+The points to note are 
+
+=over 5
+
+=item *
+
+The main processing loop in the code handles reading of compressed data
+from STDIN.
+
+=item *
+
+The status code returned from C<inflate> will only trigger termination of
+the main processing loop if it isn't C<Z_OK>. When C<LimitOutput> has not
+been used the C<Z_OK> status means that the end of the compressed
+data stream has been reached or there has been an error in uncompression.
+
+=item *
+
+After the call to C<inflate> I<all> of the uncompressed data in C<$input>
+will have been processed. This means the subsequent call to C<read> can
+overwrite it's contents without any problem.
+
+=back
+
+For most use-cases the behavior described above is acceptable (this module
+and it's predecessor, C<Compress::Zlib>, have used it for over 10 years
+without an issue), but in a few very specific use-cases the amount of
+memory required for C<$output> can prohibitively large. For example, if the
+compressed data stream contains the same pattern repeated thousands of
+times, a relatively small compressed data stream can uncompress into
+hundreds of megabytes.  Remember C<inflate> will keep allocating memory
+until I<all> the uncompressed data has been written to the output buffer -
+the size of C<$output> is unbounded. 
+
+The C<LimitOutput> option is designed to help with this use-case.
+
+The main difference in your code when using C<LimitOutput> is having to
+deal with cases where the C<$input> parameter still contains some
+uncompressed data that C<inflate> hasn't processed yet. The status code
+returned from C<inflate> will be C<Z_OK> if uncompression took place and
+C<Z_BUF_ERROR> if the output buffer is full.
+
+Below is typical code that shows how to use C<LimitOutput>.
+
+    use strict ;
+    use warnings ;
+    
+    use Compress::Raw::Zlib;
+    
+    my $x = new Compress::Raw::Zlib::Inflate(LimitOutput => 1)
+       or die "Cannot create a inflation stream\n" ;
+    
+    my $input = '' ;
+    binmode STDIN;
+    binmode STDOUT;
+    
+    my ($output, $status) ;
+
+  OUTER:
+    while (read(STDIN, $input, 4096))
+    {
+        do
+        {
+            $status = $x->inflate($input, $output) ;
+
+            print $output ;
+
+            last OUTER
+                unless $status == Z_OK || $status == Z_BUF_ERROR ;
+        }
+        while ($status == Z_OK && length $input);
+    }
+    
+    die "inflation failed\n"
+        unless $status == Z_STREAM_END ;
+
+Points to note this time:
+
+=over 5
+
+=item *
+
+There are now two nested loops in the code: the outer loop for reading the
+compressed data from STDIN, as before; and the inner loop to carry out the
+uncompression.
+
+=item *
+
+There are two exit points from the inner uncompression loop.
+
+Firstly when C<inflate> has returned a status other than C<Z_OK> or
+C<Z_BUF_ERROR>.  This means that either the end of the compressed data
+stream has been reached (C<Z_STREAM_END>) or there is an error in the
+compressed data. In either of these cases there is no point in continuing
+with reading the compressed data, so both loops are terminated.
+
+The second exit point tests if there is any data left in the input buffer,
+C<$input> - remember that the C<ConsumeInput> option is automatically
+enabled when C<LimitOutput> is used.  When the input buffer has been
+exhausted, the outer loop can run again and overwrite a now empty
+C<$input>.
+
+=back
+
+=head1 ACCESSING ZIP FILES
+
+Although it is possible (with some effort on your part) to use this module
+to access .zip files, there are other perl modules available that will do
+all the hard work for you. Check out C<Archive::Zip>,
+C<Archive::Zip::SimpleZip>, C<IO::Compress::Zip> and
+C<IO::Uncompress::Unzip>.
+
+=head1 FAQ
+
+=head2 Compatibility with Unix compress/uncompress.
+
+This module is not compatible with Unix C<compress>.
+
+If you have the C<uncompress> program available, you can use this to read
+compressed files
+
+    open F, "uncompress -c $filename |";
+    while (<F>)
+    {
+        ...
+
+Alternatively, if you have the C<gunzip> program available, you can use
+this to read compressed files
+
+    open F, "gunzip -c $filename |";
+    while (<F>)
+    {
+        ...
+
+and this to write compress files, if you have the C<compress> program
+available
+
+    open F, "| compress -c $filename ";
+    print F "data";
+    ...
+    close F ;
+
+=head2 Accessing .tar.Z files
+
+See previous FAQ item.
+
+If the C<Archive::Tar> module is installed and either the C<uncompress> or
+C<gunzip> programs are available, you can use one of these workarounds to
+read C<.tar.Z> files.
+
+Firstly with C<uncompress>
+
+    use strict;
+    use warnings;
+    use Archive::Tar;
+
+    open F, "uncompress -c $filename |";
+    my $tar = Archive::Tar->new(*F);
+    ...
+
+and this with C<gunzip>
+
+    use strict;
+    use warnings;
+    use Archive::Tar;
+
+    open F, "gunzip -c $filename |";
+    my $tar = Archive::Tar->new(*F);
+    ...
+
+Similarly, if the C<compress> program is available, you can use this to
+write a C<.tar.Z> file
+
+    use strict;
+    use warnings;
+    use Archive::Tar;
+    use IO::File;
+
+    my $fh = new IO::File "| compress -c >$filename";
+    my $tar = Archive::Tar->new();
+    ...
+    $tar->write($fh);
+    $fh->close ;
+
+=head2 Zlib Library Version Support
+
+By default C<Compress::Raw::Zlib> will build with a private copy of version
+1.2.5 of the zlib library. (See the F<README> file for details of
+how to override this behaviour)
+
+If you decide to use a different version of the zlib library, you need to be
+aware of the following issues
+
+=over 5
+
+=item *
+
+First off, you must have zlib 1.0.5 or better.
+
+=item *
+
+You need to have zlib 1.2.1 or better if you want to use the C<-Merge>
+option with C<IO::Compress::Gzip>, C<IO::Compress::Deflate> and
+C<IO::Compress::RawDeflate>.
+
+=back
+
+=head1 CONSTANTS
+
+All the I<zlib> constants are automatically imported when you make use
+of I<Compress::Raw::Zlib>.
+
+=head1 SEE ALSO
+
+L<Compress::Zlib>, L<IO::Compress::Gzip>, L<IO::Uncompress::Gunzip>, L<IO::Compress::Deflate>, L<IO::Uncompress::Inflate>, L<IO::Compress::RawDeflate>, L<IO::Uncompress::RawInflate>, L<IO::Compress::Bzip2>, L<IO::Uncompress::Bunzip2>, L<IO::Compress::Lzma>, L<IO::Uncompress::UnLzma>, L<IO::Compress::Xz>, L<IO::Uncompress::UnXz>, L<IO::Compress::Lzop>, L<IO::Uncompress::UnLzop>, L<IO::Compress::Lzf>, L<IO::Uncompress::UnLzf>, L<IO::Uncompress::AnyInflate>, L<IO::Uncompress::AnyUncompress>
+
+L<IO::Compress::FAQ|IO::Compress::FAQ>
+
+L<File::GlobMapper|File::GlobMapper>, L<Archive::Zip|Archive::Zip>,
+L<Archive::Tar|Archive::Tar>,
+L<IO::Zlib|IO::Zlib>
+
+For RFC 1950, 1951 and 1952 see 
+F<http://www.faqs.org/rfcs/rfc1950.html>,
+F<http://www.faqs.org/rfcs/rfc1951.html> and
+F<http://www.faqs.org/rfcs/rfc1952.html>
+
+The I<zlib> compression library was written by Jean-loup Gailly
+F<gzip@prep.ai.mit.edu> and Mark Adler F<madler@alumni.caltech.edu>.
+
+The primary site for the I<zlib> compression library is
+F<http://www.zlib.org>.
+
+The primary site for gzip is F<http://www.gzip.org>.
+
+=head1 AUTHOR
+
+This module was written by Paul Marquess, F<pmqs@cpan.org>. 
+
+=head1 MODIFICATION HISTORY
+
+See the Changes file.
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright (c) 2005-2015 Paul Marquess. All rights reserved.
+
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
diff --git a/lib/5.24.1/x86_64-linux/Config.pm b/lib/5.24.1/x86_64-linux/Config.pm
new file mode 100644
index 00000000..80ca5378
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/Config.pm
@@ -0,0 +1,111 @@
+# This file was created by configpm when Perl was built. Any changes
+# made to this file will be lost the next time perl is built.
+
+# for a description of the variables, please have a look at the
+# Glossary file, as written in the Porting folder, or use the url:
+# http://perl5.git.perl.org/perl.git/blob/HEAD:/Porting/Glossary
+
+package Config;
+use strict;
+use warnings;
+use vars '%Config', '$VERSION';
+
+$VERSION = "5.024001";
+
+# Skip @Config::EXPORT because it only contains %Config, which we special
+# case below as it's not a function. @Config::EXPORT won't change in the
+# lifetime of Perl 5.
+my %Export_Cache = (myconfig => 1, config_sh => 1, config_vars => 1,
+		    config_re => 1, compile_date => 1, local_patches => 1,
+		    bincompat_options => 1, non_bincompat_options => 1,
+		    header_files => 1);
+
+@Config::EXPORT = qw(%Config);
+@Config::EXPORT_OK = keys %Export_Cache;
+
+# Need to stub all the functions to make code such as print Config::config_sh
+# keep working
+
+sub bincompat_options;
+sub compile_date;
+sub config_re;
+sub config_sh;
+sub config_vars;
+sub header_files;
+sub local_patches;
+sub myconfig;
+sub non_bincompat_options;
+
+# Define our own import method to avoid pulling in the full Exporter:
+sub import {
+    shift;
+    @_ = @Config::EXPORT unless @_;
+
+    my @funcs = grep $_ ne '%Config', @_;
+    my $export_Config = @funcs < @_ ? 1 : 0;
+
+    no strict 'refs';
+    my $callpkg = caller(0);
+    foreach my $func (@funcs) {
+	die qq{"$func" is not exported by the Config module\n}
+	    unless $Export_Cache{$func};
+	*{$callpkg.'::'.$func} = \&{$func};
+    }
+
+    *{"$callpkg\::Config"} = \%Config if $export_Config;
+    return;
+}
+
+die "$0: Perl lib version (5.24.1) doesn't match executable '$^X' version ($])"
+    unless $^V;
+
+$^V eq 5.24.1
+    or die sprintf "%s: Perl lib version (5.24.1) doesn't match executable '$^X' version (%vd)", $0, $^V;
+
+
+sub FETCH {
+    my($self, $key) = @_;
+
+    # check for cached value (which may be undef so we use exists not defined)
+    return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
+}
+
+sub TIEHASH {
+    bless $_[1], $_[0];
+}
+
+sub DESTROY { }
+
+sub AUTOLOAD {
+    require 'Config_heavy.pl';
+    goto \&launcher unless $Config::AUTOLOAD =~ /launcher$/;
+    die "&Config::AUTOLOAD failed on $Config::AUTOLOAD";
+}
+
+# tie returns the object, so the value returned to require will be true.
+tie %Config, 'Config', {
+    archlibexp => '/home/git/binary-com/perl/lib/5.24.1/x86_64-linux',
+    archname => 'x86_64-linux',
+    cc => 'cc',
+    d_readlink => 'define',
+    d_symlink => 'define',
+    dlext => 'so',
+    dlsrc => 'dl_dlopen.xs',
+    dont_use_nlink => undef,
+    exe_ext => '',
+    inc_version_list => ' ',
+    intsize => '4',
+    ldlibpthname => 'LD_LIBRARY_PATH',
+    libpth => '/usr/local/lib /usr/lib/gcc/x86_64-linux-gnu/4.7/include-fixed /usr/include/x86_64-linux-gnu /usr/lib /lib/x86_64-linux-gnu /lib/../lib /usr/lib/x86_64-linux-gnu /usr/lib/../lib /lib',
+    osname => 'linux',
+    osvers => '4.9.7-040907-lowlatency',
+    path_sep => ':',
+    privlibexp => '/home/git/binary-com/perl/lib/5.24.1',
+    scriptdir => '/home/git/binary-com/perl/bin',
+    sitearchexp => '/home/git/binary-com/perl/lib/site_perl/5.24.1/x86_64-linux',
+    sitelibexp => '/home/git/binary-com/perl/lib/site_perl/5.24.1',
+    so => 'so',
+    useithreads => undef,
+    usevendorprefix => undef,
+    version => '5.24.1',
+};
diff --git a/lib/5.24.1/x86_64-linux/Config.pod b/lib/5.24.1/x86_64-linux/Config.pod
new file mode 100644
index 00000000..1133b55e
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/Config.pod
@@ -0,0 +1,9801 @@
+=head1 NAME
+
+Config - access Perl configuration information
+
+=head1 SYNOPSIS
+
+    use Config;
+    if ($Config{usethreads}) {
+	print "has thread support\n"
+    } 
+
+    use Config qw(myconfig config_sh config_vars config_re);
+
+    print myconfig();
+
+    print config_sh();
+
+    print config_re();
+
+    config_vars(qw(osname archname));
+
+
+=head1 DESCRIPTION
+
+The Config module contains all the information that was available to
+the C<Configure> program at Perl build time (over 900 values).
+
+Shell variables from the F<config.sh> file (written by Configure) are
+stored in the readonly-variable C<%Config>, indexed by their names.
+
+Values stored in config.sh as 'undef' are returned as undefined
+values.  The perl C<exists> function can be used to check if a
+named variable exists.
+
+For a description of the variables, please have a look at the
+Glossary file, as written in the Porting folder, or use the url:
+http://perl5.git.perl.org/perl.git/blob/HEAD:/Porting/Glossary
+
+=over 4
+
+=item myconfig()
+
+Returns a textual summary of the major perl configuration values.
+See also C<-V> in L<perlrun/Command Switches>.
+
+=item config_sh()
+
+Returns the entire perl configuration information in the form of the
+original config.sh shell variable assignment script.
+
+=item config_re($regex)
+
+Like config_sh() but returns, as a list, only the config entries who's
+names match the $regex.
+
+=item config_vars(@names)
+
+Prints to STDOUT the values of the named configuration variable. Each is
+printed on a separate line in the form:
+
+  name='value';
+
+Names which are unknown are output as C<name='UNKNOWN';>.
+See also C<-V:name> in L<perlrun/Command Switches>.
+
+=item bincompat_options()
+
+Returns a list of C pre-processor options used when compiling this F<perl>
+binary, which affect its binary compatibility with extensions.
+C<bincompat_options()> and C<non_bincompat_options()> are shown together in
+the output of C<perl -V> as I<Compile-time options>.
+
+=item non_bincompat_options()
+
+Returns a list of C pre-processor options used when compiling this F<perl>
+binary, which do not affect binary compatibility with extensions.
+
+=item compile_date()
+
+Returns the compile date (as a string), equivalent to what is shown by
+C<perl -V>
+
+=item local_patches()
+
+Returns a list of the names of locally applied patches, equivalent to what
+is shown by C<perl -V>.
+
+=item header_files()
+
+Returns a list of the header files that should be used as dependencies for
+XS code, for this version of Perl on this platform.
+
+=back
+
+=head1 EXAMPLE
+
+Here's a more sophisticated example of using %Config:
+
+    use Config;
+    use strict;
+
+    my %sig_num;
+    my @sig_name;
+    unless($Config{sig_name} && $Config{sig_num}) {
+	die "No sigs?";
+    } else {
+	my @names = split ' ', $Config{sig_name};
+	@sig_num{@names} = split ' ', $Config{sig_num};
+	foreach (@names) {
+	    $sig_name[$sig_num{$_}] ||= $_;
+	}   
+    }
+
+    print "signal #17 = $sig_name[17]\n";
+    if ($sig_num{ALRM}) { 
+	print "SIGALRM is $sig_num{ALRM}\n";
+    }   
+
+=head1 WARNING
+
+Because this information is not stored within the perl executable
+itself it is possible (but unlikely) that the information does not
+relate to the actual perl binary which is being used to access it.
+
+The Config module is installed into the architecture and version
+specific library directory ($Config{installarchlib}) and it checks the
+perl version number when loaded.
+
+The values stored in config.sh may be either single-quoted or
+double-quoted. Double-quoted strings are handy for those cases where you
+need to include escape sequences in the strings. To avoid runtime variable
+interpolation, any C<$> and C<@> characters are replaced by C<\$> and
+C<\@>, respectively. This isn't foolproof, of course, so don't embed C<\$>
+or C<\@> in double-quoted strings unless you're willing to deal with the
+consequences. (The slashes will end up escaped and the C<$> or C<@> will
+trigger variable interpolation)
+
+=head1 GLOSSARY
+
+Most C<Config> variables are determined by the C<Configure> script
+on platforms supported by it (which is most UNIX platforms).  Some
+platforms have custom-made C<Config> variables, and may thus not have
+some of the variables described below, or may have extraneous variables
+specific to that particular port.  See the port specific documentation
+in such cases.
+
+=cut
+
+=head2 _
+
+=over 4
+
+=cut
+
+=item C<_a>
+
+From F<Unix.U>:
+
+This variable defines the extension used for ordinary library files.
+For unix, it is F<.a>.  The F<.> is included.  Other possible
+values include F<.lib>.
+
+=item C<_exe>
+
+From F<Unix.U>:
+
+This variable defines the extension used for executable files.
+C<DJGPP>, Cygwin and F<OS/2> use F<.exe>.  Stratus C<VOS> uses F<.pm>.
+On operating systems which do not require a specific extension
+for executable files, this variable is empty.
+
+=item C<_o>
+
+From F<Unix.U>:
+
+This variable defines the extension used for object files.
+For unix, it is F<.o>.  The F<.> is included.  Other possible
+values include F<.obj>.
+
+=back
+
+=cut
+
+=head2 a
+
+=over 4
+
+=cut
+
+=item C<afs>
+
+From F<afs.U>:
+
+This variable is set to C<true> if C<AFS> (Andrew File System) is used
+on the system, C<false> otherwise.  It is possible to override this
+with a hint value or command line option, but you'd better know
+what you are doing.
+
+=item C<afsroot>
+
+From F<afs.U>:
+
+This variable is by default set to F</afs>. In the unlikely case
+this is not the correct root, it is possible to override this with
+a hint value or command line option.  This will be used in subsequent
+tests for AFSness in the configure and test process.
+
+=item C<alignbytes>
+
+From F<alignbytes.U>:
+
+This variable holds the number of bytes required to align a
+double-- or a long double when applicable. Usual values are
+2, 4 and 8.  The default is eight, for safety.
+
+=item C<ansi2knr>
+
+From F<ansi2knr.U>:
+
+This variable is set if the user needs to run ansi2knr.
+Currently, this is not supported, so we just abort.
+
+=item C<aphostname>
+
+From F<d_gethname.U>:
+
+This variable contains the command which can be used to compute the
+host name. The command is fully qualified by its absolute path, to make
+it safe when used by a process with super-user privileges.
+
+=item C<api_revision>
+
+From F<patchlevel.U>:
+
+The three variables, api_revision, api_version, and
+api_subversion, specify the version of the oldest perl binary
+compatible with the present perl.  In a full version string
+such as F<5.6.1>, api_revision is the C<5>.
+Prior to 5.5.640, the format was a floating point number,
+like 5.00563.
+
+F<perl.c>:incpush() and F<lib/lib.pm> will automatically search in
+F<$sitelib/.>. for older directories back to the limit specified
+by these api_ variables.  This is only useful if you have a
+perl library directory tree structured like the default one.
+See C<INSTALL> for how this works.  The versioned site_perl
+directory was introduced in 5.005, so that is the lowest
+possible value.  The version list appropriate for the current
+system is determined in F<inc_version_list.U>.
+
+C<XXX> To do:  Since compatibility can depend on compile time
+options (such as bincompat, longlong, etc.) it should
+(perhaps) be set by Configure, but currently it isn't.
+Currently, we read a hard-wired value from F<patchlevel.h>.
+Perhaps what we ought to do is take the hard-wired value from
+F<patchlevel.h> but then modify it if the current Configure
+options warrant.  F<patchlevel.h> then would use an #ifdef guard.
+
+=item C<api_subversion>
+
+From F<patchlevel.U>:
+
+The three variables, api_revision, api_version, and
+api_subversion, specify the version of the oldest perl binary
+compatible with the present perl.  In a full version string
+such as F<5.6.1>, api_subversion is the C<1>.  See api_revision for
+full details.
+
+=item C<api_version>
+
+From F<patchlevel.U>:
+
+The three variables, api_revision, api_version, and
+api_subversion, specify the version of the oldest perl binary
+compatible with the present perl.  In a full version string
+such as F<5.6.1>, api_version is the C<6>.  See api_revision for
+full details.  As a special case, 5.5.0 is rendered in the
+old-style as 5.005.  (In the 5.005_0x maintenance series,
+this was the only versioned directory in $sitelib.)
+
+=item C<api_versionstring>
+
+From F<patchlevel.U>:
+
+This variable combines api_revision, api_version, and
+api_subversion in a format such as 5.6.1 (or 5_6_1) suitable
+for use as a directory name.  This is filesystem dependent.
+
+=item C<ar>
+
+From F<Loc.U>:
+
+This variable is used internally by Configure to determine the
+full pathname (if any) of the ar program.  After Configure runs,
+the value is reset to a plain C<ar> and is not useful.
+
+=item C<archlib>
+
+From F<archlib.U>:
+
+This variable holds the name of the directory in which the user wants
+to put architecture-dependent public library files for $package.
+It is most often a local directory such as F</usr/local/lib>.
+Programs using this variable must be prepared to deal
+with filename expansion.
+
+=item C<archlibexp>
+
+From F<archlib.U>:
+
+This variable is the same as the archlib variable, but is
+filename expanded at configuration time, for convenient use.
+
+=item C<archname>
+
+From F<archname.U>:
+
+This variable is a short name to characterize the current
+architecture.  It is used mainly to construct the default archlib.
+
+=item C<archname64>
+
+From F<use64bits.U>:
+
+This variable is used for the 64-bitness part of $archname.
+
+=item C<archobjs>
+
+From F<Unix.U>:
+
+This variable defines any additional objects that must be linked
+in with the program on this architecture.  On unix, it is usually
+empty.  It is typically used to include emulations of unix calls
+or other facilities.  For perl on F<OS/2>, for example, this would
+include F<os2/os2.obj>.
+
+=item C<asctime_r_proto>
+
+From F<d_asctime_r.U>:
+
+This variable encodes the prototype of asctime_r.
+It is zero if d_asctime_r is undef, and one of the
+C<REENTRANT_PROTO_T_ABC> macros of F<reentr.h> if d_asctime_r
+is defined.
+
+=item C<awk>
+
+From F<Loc.U>:
+
+This variable is used internally by Configure to determine the
+full pathname (if any) of the awk program.  After Configure runs,
+the value is reset to a plain C<awk> and is not useful.
+
+=back
+
+=cut
+
+=head2 b
+
+=over 4
+
+=cut
+
+=item C<baserev>
+
+From F<baserev.U>:
+
+The base revision level of this package, from the F<.package> file.
+
+=item C<bash>
+
+From F<Loc.U>:
+
+This variable is defined but not used by Configure.
+The value is the empty string and is not useful.
+
+=item C<bin>
+
+From F<bin.U>:
+
+This variable holds the name of the directory in which the user wants
+to put publicly executable images for the package in question.  It
+is most often a local directory such as F</usr/local/bin>. Programs using
+this variable must be prepared to deal with F<~name> substitution.
+
+=item C<bin_ELF>
+
+From F<dlsrc.U>:
+
+This variable saves the result from configure if generated binaries
+are in C<ELF> format. Only set to defined when the test has actually
+been performed, and the result was positive.
+
+=item C<binexp>
+
+From F<bin.U>:
+
+This is the same as the bin variable, but is filename expanded at
+configuration time, for use in your makefiles.
+
+=item C<bison>
+
+From F<Loc.U>:
+
+This variable is used internally by Configure to determine the
+full pathname (if any) of the bison program.  After Configure runs,
+the value is reset to a plain C<bison> and is not useful.
+
+=item C<byacc>
+
+From F<Loc.U>:
+
+This variable is used internally by Configure to determine the
+full pathname (if any) of the byacc program.  After Configure runs,
+the value is reset to a plain C<byacc> and is not useful.
+
+=item C<byteorder>
+
+From F<byteorder.U>:
+
+This variable holds the byte order in a C<UV>. In the following,
+larger digits indicate more significance.  The variable byteorder
+is either 4321 on a big-endian machine, or 1234 on a little-endian,
+or 87654321 on a Cray ... or 3412 with weird order !
+
+=back
+
+=cut
+
+=head2 c
+
+=over 4
+
+=cut
+
+=item C<c>
+
+From F<n.U>:
+
+This variable contains the \c string if that is what causes the echo
+command to suppress newline.  Otherwise it is null.  Correct usage is
+$echo $n "prompt for a question: $c".
+
+=item C<castflags>
+
+From F<d_castneg.U>:
+
+This variable contains a flag that precise difficulties the
+compiler has casting odd floating values to unsigned long:
+0 = ok
+1 = couldn't cast < 0
+2 = couldn't cast >= 0x80000000
+4 = couldn't cast in argument expression list
+
+=item C<cat>
+
+From F<Loc.U>:
+
+This variable is used internally by Configure to determine the
+full pathname (if any) of the cat program.  After Configure runs,
+the value is reset to a plain C<cat> and is not useful.
+
+=item C<cc>
+
+From F<cc.U>:
+
+This variable holds the name of a command to execute a C compiler which
+can resolve multiple global references that happen to have the same
+name.  Usual values are C<cc> and C<gcc>.
+Fervent C<ANSI> compilers may be called C<c89>.  C<AIX> has xlc.
+
+=item C<cccdlflags>
+
+From F<dlsrc.U>:
+
+This variable contains any special flags that might need to be
+passed with C<cc -c> to compile modules to be used to create a shared
+library that will be used for dynamic loading.  For hpux, this
+should be +z.  It is up to the makefile to use it.
+
+=item C<ccdlflags>
+
+From F<dlsrc.U>:
+
+This variable contains any special flags that might need to be
+passed to cc to link with a shared library for dynamic loading.
+It is up to the makefile to use it.  For sunos 4.1, it should
+be empty.
+
+=item C<ccflags>
+
+From F<ccflags.U>:
+
+This variable contains any additional C compiler flags desired by
+the user.  It is up to the Makefile to use this.
+
+=item C<ccflags_uselargefiles>
+
+From F<uselfs.U>:
+
+This variable contains the compiler flags needed by large file builds
+and added to ccflags by hints files.
+
+=item C<ccname>
+
+From F<Checkcc.U>:
+
+This can set either by hints files or by Configure.  If using
+gcc, this is gcc, and if not, usually equal to cc, unimpressive, no?
+Some platforms, however, make good use of this by storing the
+flavor of the C compiler being used here.  For example if using
+the Sun WorkShop suite, ccname will be C<workshop>.
+
+=item C<ccsymbols>
+
+From F<Cppsym.U>:
+
+The variable contains the symbols defined by the C compiler alone.
+The symbols defined by cpp or by cc when it calls cpp are not in
+this list, see cppsymbols and cppccsymbols.
+The list is a space-separated list of symbol=value tokens.
+
+=item C<ccversion>
+
+From F<Checkcc.U>:
+
+This can set either by hints files or by Configure.  If using
+a (non-gcc) vendor cc, this variable may contain a version for
+the compiler.
+
+=item C<cf_by>
+
+From F<cf_who.U>:
+
+Login name of the person who ran the Configure script and answered the
+questions. This is used to tag both F<config.sh> and F<config_h.SH>.
+
+=item C<cf_email>
+
+From F<cf_email.U>:
+
+Electronic mail address of the person who ran Configure. This can be
+used by units that require the user's e-mail, like F<MailList.U>.
+
+=item C<cf_time>
+
+From F<cf_who.U>:
+
+Holds the output of the C<date> command when the configuration file was
+produced. This is used to tag both F<config.sh> and F<config_h.SH>.
+
+=item C<charbits>
+
+From F<charsize.U>:
+
+This variable contains the value of the C<CHARBITS> symbol, which
+indicates to the C program how many bits there are in a character.
+
+=item C<charsize>
+
+From F<charsize.U>:
+
+This variable contains the value of the C<CHARSIZE> symbol, which
+indicates to the C program how many bytes there are in a character.
+
+=item C<chgrp>
+
+From F<Loc.U>:
+
+This variable is defined but not used by Configure.
+The value is the empty string and is not useful.
+
+=item C<chmod>
+
+From F<Loc.U>:
+
+This variable is used internally by Configure to determine the
+full pathname (if any) of the chmod program.  After Configure runs,
+the value is reset to a plain C<chmod> and is not useful.
+
+=item C<chown>
+
+From F<Loc.U>:
+
+This variable is defined but not used by Configure.
+The value is the empty string and is not useful.
+
+=item C<clocktype>
+
+From F<d_times.U>:
+
+This variable holds the type returned by times(). It can be long,
+or clock_t on C<BSD> sites (in which case <sys/types.h> should be
+included).
+
+=item C<comm>
+
+From F<Loc.U>:
+
+This variable is used internally by Configure to determine the
+full pathname (if any) of the comm program.  After Configure runs,
+the value is reset to a plain C<comm> and is not useful.
+
+=item C<compress>
+
+From F<Loc.U>:
+
+This variable is defined but not used by Configure.
+The value is the empty string and is not useful.
+
+=item C<config_arg0>
+
+From F<Options.U>:
+
+This variable contains the string used to invoke the Configure
+command, as reported by the shell in the $0 variable.
+
+=item C<config_argc>
+
+From F<Options.U>:
+
+This variable contains the number of command-line arguments
+passed to Configure, as reported by the shell in the $# variable.
+The individual arguments are stored as variables config_arg1,
+config_arg2, etc.
+
+=item C<config_args>
+
+From F<Options.U>:
+
+This variable contains a single string giving the command-line
+arguments passed to Configure.	Spaces within arguments,
+quotes, and escaped characters are not correctly preserved.
+To reconstruct the command line, you must assemble the individual
+command line pieces, given in config_arg[0-9]*.
+
+=item C<contains>
+
+From F<contains.U>:
+
+This variable holds the command to do a grep with a proper return
+status.  On most sane systems it is simply C<grep>.  On insane systems
+it is a grep followed by a cat followed by a test.  This variable
+is primarily for the use of other Configure units.
+
+=item C<cp>
+
+From F<Loc.U>:
+
+This variable is used internally by Configure to determine the
+full pathname (if any) of the cp program.  After Configure runs,
+the value is reset to a plain C<cp> and is not useful.
+
+=item C<cpio>
+
+From F<Loc.U>:
+
+This variable is defined but not used by Configure.
+The value is the empty string and is not useful.
+
+=item C<cpp>
+
+From F<Loc.U>:
+
+This variable is used internally by Configure to determine the
+full pathname (if any) of the cpp program.  After Configure runs,
+the value is reset to a plain C<cpp> and is not useful.
+
+=item C<cpp_stuff>
+
+From F<cpp_stuff.U>:
+
+This variable contains an identification of the concatenation mechanism
+used by the C preprocessor.
+
+=item C<cppccsymbols>
+
+From F<Cppsym.U>:
+
+The variable contains the symbols defined by the C compiler
+when it calls cpp.  The symbols defined by the cc alone or cpp
+alone are not in this list, see ccsymbols and cppsymbols.
+The list is a space-separated list of symbol=value tokens.
+
+=item C<cppflags>
+
+From F<ccflags.U>:
+
+This variable holds the flags that will be passed to the C pre-
+processor. It is up to the Makefile to use it.
+
+=item C<cpplast>
+
+From F<cppstdin.U>:
+
+This variable has the same functionality as cppminus, only it applies
+to cpprun and not cppstdin.
+
+=item C<cppminus>
+
+From F<cppstdin.U>:
+
+This variable contains the second part of the string which will invoke
+the C preprocessor on the standard input and produce to standard
+output.  This variable will have the value C<-> if cppstdin needs
+a minus to specify standard input, otherwise the value is "".
+
+=item C<cpprun>
+
+From F<cppstdin.U>:
+
+This variable contains the command which will invoke a C preprocessor
+on standard input and put the output to stdout. It is guaranteed not
+to be a wrapper and may be a null string if no preprocessor can be
+made directly available. This preprocessor might be different from the
+one used by the C compiler. Don't forget to append cpplast after the
+preprocessor options.
+
+=item C<cppstdin>
+
+From F<cppstdin.U>:
+
+This variable contains the command which will invoke the C
+preprocessor on standard input and put the output to stdout.
+It is primarily used by other Configure units that ask about
+preprocessor symbols.
+
+=item C<cppsymbols>
+
+From F<Cppsym.U>:
+
+The variable contains the symbols defined by the C preprocessor
+alone.  The symbols defined by cc or by cc when it calls cpp are
+not in this list, see ccsymbols and cppccsymbols.
+The list is a space-separated list of symbol=value tokens.
+
+=item C<crypt_r_proto>
+
+From F<d_crypt_r.U>:
+
+This variable encodes the prototype of crypt_r.
+It is zero if d_crypt_r is undef, and one of the
+C<REENTRANT_PROTO_T_ABC> macros of F<reentr.h> if d_crypt_r
+is defined.
+
+=item C<cryptlib>
+
+From F<d_crypt.U>:
+
+This variable holds -lcrypt or the path to a F<libcrypt.a> archive if
+the crypt() function is not defined in the standard C library. It is
+up to the Makefile to use this.
+
+=item C<csh>
+
+From F<Loc.U>:
+
+This variable is used internally by Configure to determine the
+full pathname (if any) of the csh program.  After Configure runs,
+the value is reset to a plain C<csh> and is not useful.
+
+=item C<ctermid_r_proto>
+
+From F<d_ctermid_r.U>:
+
+This variable encodes the prototype of ctermid_r.
+It is zero if d_ctermid_r is undef, and one of the
+C<REENTRANT_PROTO_T_ABC> macros of F<reentr.h> if d_ctermid_r
+is defined.
+
+=item C<ctime_r_proto>
+
+From F<d_ctime_r.U>:
+
+This variable encodes the prototype of ctime_r.
+It is zero if d_ctime_r is undef, and one of the
+C<REENTRANT_PROTO_T_ABC> macros of F<reentr.h> if d_ctime_r
+is defined.
+
+=back
+
+=cut
+
+=head2 d
+
+=over 4
+
+=cut
+
+=item C<d__fwalk>
+
+From F<d__fwalk.U>:
+
+This variable conditionally defines C<HAS__FWALK> if _fwalk() is
+available to apply a function to all the file handles.
+
+=item C<d_access>
+
+From F<d_access.U>:
+
+This variable conditionally defines C<HAS_ACCESS> if the access() system
+call is available to check for access permissions using real IDs.
+
+=item C<d_accessx>
+
+From F<d_accessx.U>:
+
+This variable conditionally defines the C<HAS_ACCESSX> symbol, which
+indicates to the C program that the accessx() routine is available.
+
+=item C<d_acosh>
+
+From F<d_acosh.U>:
+
+This variable conditionally defines the C<HAS_ACOSH> symbol, which
+indicates to the C program that the acosh() routine is available.
+
+=item C<d_aintl>
+
+From F<d_aintl.U>:
+
+This variable conditionally defines the C<HAS_AINTL> symbol, which
+indicates to the C program that the aintl() routine is available.
+If copysignl is also present we can emulate modfl.
+
+=item C<d_alarm>
+
+From F<d_alarm.U>:
+
+This variable conditionally defines the C<HAS_ALARM> symbol, which
+indicates to the C program that the alarm() routine is available.
+
+=item C<d_archlib>
+
+From F<archlib.U>:
+
+This variable conditionally defines C<ARCHLIB> to hold the pathname
+of architecture-dependent library files for $package.  If
+$archlib is the same as $privlib, then this is set to undef.
+
+=item C<d_asctime64>
+
+From F<d_timefuncs64.U>:
+
+This variable conditionally defines the HAS_ASCTIME64 symbol, which
+indicates to the C program that the asctime64 () routine is available.
+
+=item C<d_asctime_r>
+
+From F<d_asctime_r.U>:
+
+This variable conditionally defines the C<HAS_ASCTIME_R> symbol,
+which indicates to the C program that the asctime_r()
+routine is available.
+
+=item C<d_asinh>
+
+From F<d_asinh.U>:
+
+This variable conditionally defines the C<HAS_ASINH> symbol, which
+indicates to the C program that the asinh() routine is available.
+
+=item C<d_atanh>
+
+From F<d_atanh.U>:
+
+This variable conditionally defines the C<HAS_ATANH> symbol, which
+indicates to the C program that the atanh() routine is available.
+
+=item C<d_atolf>
+
+From F<atolf.U>:
+
+This variable conditionally defines the C<HAS_ATOLF> symbol, which
+indicates to the C program that the atolf() routine is available.
+
+=item C<d_atoll>
+
+From F<atoll.U>:
+
+This variable conditionally defines the C<HAS_ATOLL> symbol, which
+indicates to the C program that the atoll() routine is available.
+
+=item C<d_attribute_deprecated>
+
+From F<d_attribut.U>:
+
+This variable conditionally defines C<HASATTRIBUTE_DEPRECATED>, which
+indicates that C<GCC> can handle the attribute for marking deprecated
+APIs
+
+=item C<d_attribute_format>
+
+From F<d_attribut.U>:
+
+This variable conditionally defines C<HASATTRIBUTE_FORMAT>, which
+indicates the C compiler can check for printf-like formats.
+
+=item C<d_attribute_malloc>
+
+From F<d_attribut.U>:
+
+This variable conditionally defines C<HASATTRIBUTE_MALLOC>, which
+indicates the C compiler can understand functions as having
+malloc-like semantics.
+
+=item C<d_attribute_nonnull>
+
+From F<d_attribut.U>:
+
+This variable conditionally defines C<HASATTRIBUTE_NONNULL>, which
+indicates that the C compiler can know that certain arguments
+must not be C<NULL>, and will check accordingly at compile time.
+
+=item C<d_attribute_noreturn>
+
+From F<d_attribut.U>:
+
+This variable conditionally defines C<HASATTRIBUTE_NORETURN>, which
+indicates that the C compiler can know that certain functions
+are guaranteed never to return.
+
+=item C<d_attribute_pure>
+
+From F<d_attribut.U>:
+
+This variable conditionally defines C<HASATTRIBUTE_PURE>, which
+indicates that the C compiler can know that certain functions
+are C<pure> functions, meaning that they have no side effects, and
+only rely on function input F<and/or> global data for their results.
+
+=item C<d_attribute_unused>
+
+From F<d_attribut.U>:
+
+This variable conditionally defines C<HASATTRIBUTE_UNUSED>, which
+indicates that the C compiler can know that certain variables
+and arguments may not always be used, and to not throw warnings
+if they don't get used.
+
+=item C<d_attribute_warn_unused_result>
+
+From F<d_attribut.U>:
+
+This variable conditionally defines
+C<HASATTRIBUTE_WARN_UNUSED_RESULT>, which indicates that the C
+compiler can know that certain functions have a return values
+that must not be ignored, such as malloc() or open().
+
+=item C<d_backtrace>
+
+From F<d_backtrace.U>:
+
+This variable conditionally defines the C<HAS_BACKTRACE> symbol, which
+indicates to the C program that the backtrace() routine is available
+to get a stack trace.
+
+=item C<d_bcmp>
+
+From F<d_bcmp.U>:
+
+This variable conditionally defines the C<HAS_BCMP> symbol if
+the bcmp() routine is available to compare strings.
+
+=item C<d_bcopy>
+
+From F<d_bcopy.U>:
+
+This variable conditionally defines the C<HAS_BCOPY> symbol if
+the bcopy() routine is available to copy strings.
+
+=item C<d_bsd>
+
+From F<Guess.U>:
+
+This symbol conditionally defines the symbol C<BSD> when running on a
+C<BSD> system.
+
+=item C<d_bsdgetpgrp>
+
+From F<d_getpgrp.U>:
+
+This variable conditionally defines C<USE_BSD_GETPGRP> if
+getpgrp needs one arguments whereas C<USG> one needs none.
+
+=item C<d_bsdsetpgrp>
+
+From F<d_setpgrp.U>:
+
+This variable conditionally defines C<USE_BSD_SETPGRP> if
+setpgrp needs two arguments whereas C<USG> one needs none.
+See also d_setpgid for a C<POSIX> interface.
+
+=item C<d_builtin_choose_expr>
+
+From F<d_builtin.U>:
+
+This conditionally defines C<HAS_BUILTIN_CHOOSE_EXPR>, which
+indicates that the compiler supports __builtin_choose_expr(x,y,z).
+This built-in function is analogous to the C<x?y:z> operator in C,
+except that the expression returned has its type unaltered by
+promotion rules. Also, the built-in function does not evaluate
+the expression that was not chosen.
+
+=item C<d_builtin_expect>
+
+From F<d_builtin.U>:
+
+This conditionally defines C<HAS_BUILTIN_EXPECT>, which indicates
+that the compiler supports __builtin_expect(exp,c).  You may use
+__builtin_expect to provide the compiler with branch prediction
+information.
+
+=item C<d_bzero>
+
+From F<d_bzero.U>:
+
+This variable conditionally defines the C<HAS_BZERO> symbol if
+the bzero() routine is available to set memory to 0.
+
+=item C<d_c99_variadic_macros>
+
+From F<d_c99_variadic.U>:
+
+This variable conditionally defines the HAS_C99_VARIADIC_MACROS
+symbol, which indicates to the C program that C99 variadic macros
+are available.
+
+=item C<d_casti32>
+
+From F<d_casti32.U>:
+
+This variable conditionally defines CASTI32, which indicates
+whether the C compiler can cast large floats to 32-bit ints.
+
+=item C<d_castneg>
+
+From F<d_castneg.U>:
+
+This variable conditionally defines C<CASTNEG>, which indicates
+whether the C compiler can cast negative float to unsigned.
+
+=item C<d_cbrt>
+
+From F<d_cbrt.U>:
+
+This variable conditionally defines the C<HAS_CBRT> symbol, which
+indicates to the C program that the cbrt() (cube root) function
+is available.
+
+=item C<d_charvspr>
+
+From F<d_vprintf.U>:
+
+This variable conditionally defines C<CHARVSPRINTF> if this system
+has vsprintf returning type (char*).  The trend seems to be to
+declare it as "int vsprintf()".
+
+=item C<d_chown>
+
+From F<d_chown.U>:
+
+This variable conditionally defines the C<HAS_CHOWN> symbol, which
+indicates to the C program that the chown() routine is available.
+
+=item C<d_chroot>
+
+From F<d_chroot.U>:
+
+This variable conditionally defines the C<HAS_CHROOT> symbol, which
+indicates to the C program that the chroot() routine is available.
+
+=item C<d_chsize>
+
+From F<d_chsize.U>:
+
+This variable conditionally defines the C<CHSIZE> symbol, which
+indicates to the C program that the chsize() routine is available
+to truncate files.  You might need a -lx to get this routine.
+
+=item C<d_class>
+
+From F<d_class.U>:
+
+This variable conditionally defines the C<HAS_CLASS> symbol, which
+indicates to the C program that the class() routine is available.
+
+=item C<d_clearenv>
+
+From F<d_clearenv.U>:
+
+This variable conditionally defines the C<HAS_CLEARENV> symbol, which
+indicates to the C program that the clearenv () routine is available.
+
+=item C<d_closedir>
+
+From F<d_closedir.U>:
+
+This variable conditionally defines C<HAS_CLOSEDIR> if closedir() is
+available.
+
+=item C<d_cmsghdr_s>
+
+From F<d_cmsghdr_s.U>:
+
+This variable conditionally defines the C<HAS_STRUCT_CMSGHDR> symbol,
+which indicates that the struct cmsghdr is supported.
+
+=item C<d_const>
+
+From F<d_const.U>:
+
+This variable conditionally defines the C<HASCONST> symbol, which
+indicates to the C program that this C compiler knows about the
+const type.
+
+=item C<d_copysign>
+
+From F<d_copysign.U>:
+
+This variable conditionally defines the C<HAS_COPYSIGN> symbol, which
+indicates to the C program that the copysign() routine is available.
+
+=item C<d_copysignl>
+
+From F<d_copysignl.U>:
+
+This variable conditionally defines the C<HAS_COPYSIGNL> symbol, which
+indicates to the C program that the copysignl() routine is available.
+If aintl is also present we can emulate modfl.
+
+=item C<d_cplusplus>
+
+From F<d_cplusplus.U>:
+
+This variable conditionally defines the C<USE_CPLUSPLUS> symbol, which
+indicates that a C++ compiler was used to compiled Perl and will be
+used to compile extensions.
+
+=item C<d_crypt>
+
+From F<d_crypt.U>:
+
+This variable conditionally defines the C<CRYPT> symbol, which
+indicates to the C program that the crypt() routine is available
+to encrypt passwords and the like.
+
+=item C<d_crypt_r>
+
+From F<d_crypt_r.U>:
+
+This variable conditionally defines the C<HAS_CRYPT_R> symbol,
+which indicates to the C program that the crypt_r()
+routine is available.
+
+=item C<d_csh>
+
+From F<d_csh.U>:
+
+This variable conditionally defines the C<CSH> symbol, which
+indicates to the C program that the C-shell exists.
+
+=item C<d_ctermid>
+
+From F<d_ctermid.U>:
+
+This variable conditionally defines C<CTERMID> if ctermid() is
+available to generate filename for terminal.
+
+=item C<d_ctermid_r>
+
+From F<d_ctermid_r.U>:
+
+This variable conditionally defines the C<HAS_CTERMID_R> symbol,
+which indicates to the C program that the ctermid_r()
+routine is available.
+
+=item C<d_ctime64>
+
+From F<d_timefuncs64.U>:
+
+This variable conditionally defines the HAS_CTIME64 symbol, which
+indicates to the C program that the ctime64 () routine is available.
+
+=item C<d_ctime_r>
+
+From F<d_ctime_r.U>:
+
+This variable conditionally defines the C<HAS_CTIME_R> symbol,
+which indicates to the C program that the ctime_r()
+routine is available.
+
+=item C<d_cuserid>
+
+From F<d_cuserid.U>:
+
+This variable conditionally defines the C<HAS_CUSERID> symbol, which
+indicates to the C program that the cuserid() routine is available
+to get character login names.
+
+=item C<d_dbl_dig>
+
+From F<d_dbl_dig.U>:
+
+This variable conditionally defines d_dbl_dig if this system's
+header files provide C<DBL_DIG>, which is the number of significant
+digits in a double precision number.
+
+=item C<d_dbminitproto>
+
+From F<d_dbminitproto.U>:
+
+This variable conditionally defines the C<HAS_DBMINIT_PROTO> symbol,
+which indicates to the C program that the system provides
+a prototype for the dbminit() function.  Otherwise, it is
+up to the program to supply one.
+
+=item C<d_difftime>
+
+From F<d_difftime.U>:
+
+This variable conditionally defines the C<HAS_DIFFTIME> symbol, which
+indicates to the C program that the difftime() routine is available.
+
+=item C<d_difftime64>
+
+From F<d_timefuncs64.U>:
+
+This variable conditionally defines the HAS_DIFFTIME64 symbol, which
+indicates to the C program that the difftime64 () routine is available.
+
+=item C<d_dir_dd_fd>
+
+From F<d_dir_dd_fd.U>:
+
+This variable conditionally defines the C<HAS_DIR_DD_FD> symbol, which
+indicates that the C<DIR> directory stream type contains a member
+variable called dd_fd.
+
+=item C<d_dirfd>
+
+From F<d_dirfd.U>:
+
+This variable conditionally defines the C<HAS_DIRFD> constant,
+which indicates to the C program that dirfd() is available
+to return the file descriptor of a directory stream.
+
+=item C<d_dirnamlen>
+
+From F<i_dirent.U>:
+
+This variable conditionally defines C<DIRNAMLEN>, which indicates
+to the C program that the length of directory entry names is
+provided by a d_namelen field.
+
+=item C<d_dladdr>
+
+From F<d_dladdr.U>:
+
+This variable conditionally defines the C<HAS_DLADDR> symbol, which
+indicates to the C program that the dladdr() routine is available
+to get a stack trace.
+
+=item C<d_dlerror>
+
+From F<d_dlerror.U>:
+
+This variable conditionally defines the C<HAS_DLERROR> symbol, which
+indicates to the C program that the dlerror() routine is available.
+
+=item C<d_dlopen>
+
+From F<d_dlopen.U>:
+
+This variable conditionally defines the C<HAS_DLOPEN> symbol, which
+indicates to the C program that the dlopen() routine is available.
+
+=item C<d_dlsymun>
+
+From F<d_dlsymun.U>:
+
+This variable conditionally defines C<DLSYM_NEEDS_UNDERSCORE>, which
+indicates that we need to prepend an underscore to the symbol
+name before calling dlsym().
+
+=item C<d_dosuid>
+
+From F<d_dosuid.U>:
+
+This variable conditionally defines the symbol C<DOSUID>, which
+tells the C program that it should insert setuid emulation code
+on hosts which have setuid #! scripts disabled.
+
+=item C<d_drand48_r>
+
+From F<d_drand48_r.U>:
+
+This variable conditionally defines the HAS_DRAND48_R symbol,
+which indicates to the C program that the drand48_r()
+routine is available.
+
+=item C<d_drand48proto>
+
+From F<d_drand48proto.U>:
+
+This variable conditionally defines the HAS_DRAND48_PROTO symbol,
+which indicates to the C program that the system provides
+a prototype for the drand48() function.  Otherwise, it is
+up to the program to supply one.
+
+=item C<d_dup2>
+
+From F<d_dup2.U>:
+
+This variable conditionally defines HAS_DUP2 if dup2() is
+available to duplicate file descriptors.
+
+=item C<d_duplocale>
+
+From F<d_newlocale.U>:
+
+This variable conditionally defines the C<HAS_DUPLOCALE> symbol, which
+indicates to the C program that the duplocale() routine is available
+to duplicate a locale object.
+
+=item C<d_eaccess>
+
+From F<d_eaccess.U>:
+
+This variable conditionally defines the C<HAS_EACCESS> symbol, which
+indicates to the C program that the eaccess() routine is available.
+
+=item C<d_endgrent>
+
+From F<d_endgrent.U>:
+
+This variable conditionally defines the C<HAS_ENDGRENT> symbol, which
+indicates to the C program that the endgrent() routine is available
+for sequential access of the group database.
+
+=item C<d_endgrent_r>
+
+From F<d_endgrent_r.U>:
+
+This variable conditionally defines the C<HAS_ENDGRENT_R> symbol,
+which indicates to the C program that the endgrent_r()
+routine is available.
+
+=item C<d_endhent>
+
+From F<d_endhent.U>:
+
+This variable conditionally defines C<HAS_ENDHOSTENT> if endhostent() is
+available to close whatever was being used for host queries.
+
+=item C<d_endhostent_r>
+
+From F<d_endhostent_r.U>:
+
+This variable conditionally defines the C<HAS_ENDHOSTENT_R> symbol,
+which indicates to the C program that the endhostent_r()
+routine is available.
+
+=item C<d_endnent>
+
+From F<d_endnent.U>:
+
+This variable conditionally defines C<HAS_ENDNETENT> if endnetent() is
+available to close whatever was being used for network queries.
+
+=item C<d_endnetent_r>
+
+From F<d_endnetent_r.U>:
+
+This variable conditionally defines the C<HAS_ENDNETENT_R> symbol,
+which indicates to the C program that the endnetent_r()
+routine is available.
+
+=item C<d_endpent>
+
+From F<d_endpent.U>:
+
+This variable conditionally defines C<HAS_ENDPROTOENT> if endprotoent() is
+available to close whatever was being used for protocol queries.
+
+=item C<d_endprotoent_r>
+
+From F<d_endprotoent_r.U>:
+
+This variable conditionally defines the C<HAS_ENDPROTOENT_R> symbol,
+which indicates to the C program that the endprotoent_r()
+routine is available.
+
+=item C<d_endpwent>
+
+From F<d_endpwent.U>:
+
+This variable conditionally defines the C<HAS_ENDPWENT> symbol, which
+indicates to the C program that the endpwent() routine is available
+for sequential access of the passwd database.
+
+=item C<d_endpwent_r>
+
+From F<d_endpwent_r.U>:
+
+This variable conditionally defines the C<HAS_ENDPWENT_R> symbol,
+which indicates to the C program that the endpwent_r()
+routine is available.
+
+=item C<d_endsent>
+
+From F<d_endsent.U>:
+
+This variable conditionally defines C<HAS_ENDSERVENT> if endservent() is
+available to close whatever was being used for service queries.
+
+=item C<d_endservent_r>
+
+From F<d_endservent_r.U>:
+
+This variable conditionally defines the C<HAS_ENDSERVENT_R> symbol,
+which indicates to the C program that the endservent_r()
+routine is available.
+
+=item C<d_eofnblk>
+
+From F<nblock_io.U>:
+
+This variable conditionally defines C<EOF_NONBLOCK> if C<EOF> can be seen
+when reading from a non-blocking I/O source.
+
+=item C<d_erf>
+
+From F<d_erf.U>:
+
+This variable conditionally defines the C<HAS_ERF> symbol, which
+indicates to the C program that the erf() routine is available.
+
+=item C<d_erfc>
+
+From F<d_erfc.U>:
+
+This variable conditionally defines the C<HAS_ERFC> symbol, which
+indicates to the C program that the erfc() routine is available.
+
+=item C<d_eunice>
+
+From F<Guess.U>:
+
+This variable conditionally defines the symbols C<EUNICE> and C<VAX>, which
+alerts the C program that it must deal with idiosyncrasies of C<VMS>.
+
+=item C<d_exp2>
+
+From F<d_exp2.U>:
+
+This variable conditionally defines the HAS_EXP2 symbol, which
+indicates to the C program that the exp2() routine is available.
+
+=item C<d_expm1>
+
+From F<d_expm1.U>:
+
+This variable conditionally defines the HAS_EXPM1 symbol, which
+indicates to the C program that the expm1() routine is available.
+
+=item C<d_faststdio>
+
+From F<d_faststdio.U>:
+
+This variable conditionally defines the C<HAS_FAST_STDIO> symbol,
+which indicates to the C program that the "fast stdio" is available
+to manipulate the stdio buffers directly.
+
+=item C<d_fchdir>
+
+From F<d_fchdir.U>:
+
+This variable conditionally defines the C<HAS_FCHDIR> symbol, which
+indicates to the C program that the fchdir() routine is available.
+
+=item C<d_fchmod>
+
+From F<d_fchmod.U>:
+
+This variable conditionally defines the C<HAS_FCHMOD> symbol, which
+indicates to the C program that the fchmod() routine is available
+to change mode of opened files.
+
+=item C<d_fchown>
+
+From F<d_fchown.U>:
+
+This variable conditionally defines the C<HAS_FCHOWN> symbol, which
+indicates to the C program that the fchown() routine is available
+to change ownership of opened files.
+
+=item C<d_fcntl>
+
+From F<d_fcntl.U>:
+
+This variable conditionally defines the C<HAS_FCNTL> symbol, and indicates
+whether the fcntl() function exists
+
+=item C<d_fcntl_can_lock>
+
+From F<d_fcntl_can_lock.U>:
+
+This variable conditionally defines the C<FCNTL_CAN_LOCK> symbol
+and indicates whether file locking with fcntl() works.
+
+=item C<d_fd_macros>
+
+From F<d_fd_set.U>:
+
+This variable contains the eventual value of the C<HAS_FD_MACROS> symbol,
+which indicates if your C compiler knows about the macros which
+manipulate an fd_set.
+
+=item C<d_fd_set>
+
+From F<d_fd_set.U>:
+
+This variable contains the eventual value of the C<HAS_FD_SET> symbol,
+which indicates if your C compiler knows about the fd_set typedef.
+
+=item C<d_fdclose>
+
+From F<d_fdclose.U>:
+
+This variable conditionally defines the C<HAS_FDCLOSE> symbol, which
+indicates to the C program that the fdclose() routine is available.
+
+=item C<d_fdim>
+
+From F<d_fdim.U>:
+
+This variable conditionally defines the C<HAS_FDIM> symbol, which
+indicates to the C program that the fdim() routine is available.
+
+=item C<d_fds_bits>
+
+From F<d_fd_set.U>:
+
+This variable contains the eventual value of the C<HAS_FDS_BITS> symbol,
+which indicates if your fd_set typedef contains the fds_bits member.
+If you have an fd_set typedef, but the dweebs who installed it did
+a half-fast job and neglected to provide the macros to manipulate
+an fd_set, C<HAS_FDS_BITS> will let us know how to fix the gaffe.
+
+=item C<d_fegetround>
+
+From F<d_fegetround.U>:
+
+This variable conditionally defines C<HAS_FEGETROUND> if fegetround() is
+available to get the floating point rounding mode.
+
+=item C<d_fgetpos>
+
+From F<d_fgetpos.U>:
+
+This variable conditionally defines C<HAS_FGETPOS> if fgetpos() is
+available to get the file position indicator.
+
+=item C<d_finite>
+
+From F<d_finite.U>:
+
+This variable conditionally defines the C<HAS_FINITE> symbol, which
+indicates to the C program that the finite() routine is available.
+
+=item C<d_finitel>
+
+From F<d_finitel.U>:
+
+This variable conditionally defines the C<HAS_FINITEL> symbol, which
+indicates to the C program that the finitel() routine is available.
+
+=item C<d_flexfnam>
+
+From F<d_flexfnam.U>:
+
+This variable conditionally defines the C<FLEXFILENAMES> symbol, which
+indicates that the system supports filenames longer than 14 characters.
+
+=item C<d_flock>
+
+From F<d_flock.U>:
+
+This variable conditionally defines C<HAS_FLOCK> if flock() is
+available to do file locking.
+
+=item C<d_flockproto>
+
+From F<d_flockproto.U>:
+
+This variable conditionally defines the C<HAS_FLOCK_PROTO> symbol,
+which indicates to the C program that the system provides
+a prototype for the flock() function.  Otherwise, it is
+up to the program to supply one.
+
+=item C<d_fma>
+
+From F<d_fma.U>:
+
+This variable conditionally defines the C<HAS_FMA> symbol, which
+indicates to the C program that the fma() routine is available.
+
+=item C<d_fmax>
+
+From F<d_fmax.U>:
+
+This variable conditionally defines the C<HAS_FMAX> symbol, which
+indicates to the C program that the fmax() routine is available.
+
+=item C<d_fmin>
+
+From F<d_fmin.U>:
+
+This variable conditionally defines the C<HAS_FMIN> symbol, which
+indicates to the C program that the fmin() routine is available.
+
+=item C<d_fork>
+
+From F<d_fork.U>:
+
+This variable conditionally defines the C<HAS_FORK> symbol, which
+indicates to the C program that the fork() routine is available.
+
+=item C<d_fp_class>
+
+From F<d_fp_class.U>:
+
+This variable conditionally defines the C<HAS_FP_CLASS> symbol, which
+indicates to the C program that the fp_class() routine is available.
+
+=item C<d_fp_classify>
+
+From F<d_fpclassify.U>:
+
+This variable conditionally defines the C<HAS_FP_CLASSIFY> symbol, which
+indicates to the C program that the fp_classify() routine is available.
+
+=item C<d_fp_classl>
+
+From F<d_fp_classl.U>:
+
+This variable conditionally defines the C<HAS_FP_CLASSL> symbol, which
+indicates to the C program that the fp_classl() routine is available.
+
+=item C<d_fpathconf>
+
+From F<d_pathconf.U>:
+
+This variable conditionally defines the C<HAS_FPATHCONF> symbol, which
+indicates to the C program that the pathconf() routine is available
+to determine file-system related limits and options associated
+with a given open file descriptor.
+
+=item C<d_fpclass>
+
+From F<d_fpclass.U>:
+
+This variable conditionally defines the C<HAS_FPCLASS> symbol, which
+indicates to the C program that the fpclass() routine is available.
+
+=item C<d_fpclassify>
+
+From F<d_fpclassify.U>:
+
+This variable conditionally defines the C<HAS_FPCLASSIFY> symbol, which
+indicates to the C program that the fpclassify() routine is available.
+
+=item C<d_fpclassl>
+
+From F<d_fpclassl.U>:
+
+This variable conditionally defines the C<HAS_FPCLASSL> symbol, which
+indicates to the C program that the fpclassl() routine is available.
+
+=item C<d_fpgetround>
+
+From F<d_fpgetround.U>:
+
+This variable conditionally defines C<HAS_FPGETROUND> if fpgetround()
+is available to get the floating point rounding mode.
+
+=item C<d_fpos64_t>
+
+From F<d_fpos64_t.U>:
+
+This symbol will be defined if the C compiler supports fpos64_t.
+
+=item C<d_freelocale>
+
+From F<d_newlocale.U>:
+
+This variable conditionally defines the C<HAS_FREELOCALE> symbol, which
+indicates to the C program that the freelocale() routine is available
+to deallocates the resources associated with a locale object.
+
+=item C<d_frexpl>
+
+From F<d_frexpl.U>:
+
+This variable conditionally defines the C<HAS_FREXPL> symbol, which
+indicates to the C program that the frexpl() routine is available.
+
+=item C<d_fs_data_s>
+
+From F<d_fs_data_s.U>:
+
+This variable conditionally defines the C<HAS_STRUCT_FS_DATA> symbol,
+which indicates that the struct fs_data is supported.
+
+=item C<d_fseeko>
+
+From F<d_fseeko.U>:
+
+This variable conditionally defines the C<HAS_FSEEKO> symbol, which
+indicates to the C program that the fseeko() routine is available.
+
+=item C<d_fsetpos>
+
+From F<d_fsetpos.U>:
+
+This variable conditionally defines C<HAS_FSETPOS> if fsetpos() is
+available to set the file position indicator.
+
+=item C<d_fstatfs>
+
+From F<d_fstatfs.U>:
+
+This variable conditionally defines the C<HAS_FSTATFS> symbol, which
+indicates to the C program that the fstatfs() routine is available.
+
+=item C<d_fstatvfs>
+
+From F<d_statvfs.U>:
+
+This variable conditionally defines the C<HAS_FSTATVFS> symbol, which
+indicates to the C program that the fstatvfs() routine is available.
+
+=item C<d_fsync>
+
+From F<d_fsync.U>:
+
+This variable conditionally defines the C<HAS_FSYNC> symbol, which
+indicates to the C program that the fsync() routine is available.
+
+=item C<d_ftello>
+
+From F<d_ftello.U>:
+
+This variable conditionally defines the C<HAS_FTELLO> symbol, which
+indicates to the C program that the ftello() routine is available.
+
+=item C<d_ftime>
+
+From F<d_ftime.U>:
+
+This variable conditionally defines the C<HAS_FTIME> symbol, which indicates
+that the ftime() routine exists.  The ftime() routine is basically
+a sub-second accuracy clock.
+
+=item C<d_futimes>
+
+From F<d_futimes.U>:
+
+This variable conditionally defines the C<HAS_FUTIMES> symbol, which
+indicates to the C program that the futimes() routine is available.
+
+=item C<d_Gconvert>
+
+From F<d_gconvert.U>:
+
+This variable holds what Gconvert is defined as to convert
+floating point numbers into strings.  By default, Configure
+sets C<this> macro to use the first of gconvert, gcvt, or sprintf
+that pass sprintf-%g-like behavior tests.  If perl is using
+long doubles, the macro uses the first of the following
+functions that pass Configure's tests: qgcvt, sprintf (if
+Configure knows how to make sprintf format long doubles--see
+sPRIgldbl), gconvert, gcvt, and sprintf (casting to double).
+The gconvert_preference and gconvert_ld_preference variables
+can be used to alter Configure's preferences, for doubles and
+long doubles, respectively.  If present, they contain a
+space-separated list of one or more of the above function
+names in the order they should be tried.
+
+d_Gconvert may be set to override Configure with a platform-
+specific function.  If this function expects a double, a
+different value may need to be set by the F<uselongdouble.cbu>
+call-back unit so that long doubles can be formatted without
+loss of precision.
+
+=item C<d_gdbm_ndbm_h_uses_prototypes>
+
+From F<i_ndbm.U>:
+
+This variable conditionally defines the C<NDBM_H_USES_PROTOTYPES> symbol,
+which indicates that the gdbm-F<ndbm.h> include file uses real C<ANSI> C
+prototypes instead of K&R style function declarations. K&R style
+declarations are unsupported in C++, so the include file requires
+special handling when using a C++ compiler and this variable is
+undefined. Consult the different d_*ndbm_h_uses_prototypes variables
+to get the same information for alternative F<ndbm.h> include files.
+
+=item C<d_gdbmndbm_h_uses_prototypes>
+
+From F<i_ndbm.U>:
+
+This variable conditionally defines the C<NDBM_H_USES_PROTOTYPES> symbol,
+which indicates that the F<gdbm/ndbm.h> include file uses real C<ANSI> C
+prototypes instead of K&R style function declarations. K&R style
+declarations are unsupported in C++, so the include file requires
+special handling when using a C++ compiler and this variable is
+undefined. Consult the different d_*ndbm_h_uses_prototypes variables
+to get the same information for alternative F<ndbm.h> include files.
+
+=item C<d_getaddrinfo>
+
+From F<d_getaddrinfo.U>:
+
+This variable conditionally defines the C<HAS_GETADDRINFO> symbol,
+which indicates to the C program that the getaddrinfo() function
+is available.
+
+=item C<d_getcwd>
+
+From F<d_getcwd.U>:
+
+This variable conditionally defines the C<HAS_GETCWD> symbol, which
+indicates to the C program that the getcwd() routine is available
+to get the current working directory.
+
+=item C<d_getespwnam>
+
+From F<d_getespwnam.U>:
+
+This variable conditionally defines C<HAS_GETESPWNAM> if getespwnam() is
+available to retrieve enhanced (shadow) password entries by name.
+
+=item C<d_getfsstat>
+
+From F<d_getfsstat.U>:
+
+This variable conditionally defines the C<HAS_GETFSSTAT> symbol, which
+indicates to the C program that the getfsstat() routine is available.
+
+=item C<d_getgrent>
+
+From F<d_getgrent.U>:
+
+This variable conditionally defines the C<HAS_GETGRENT> symbol, which
+indicates to the C program that the getgrent() routine is available
+for sequential access of the group database.
+
+=item C<d_getgrent_r>
+
+From F<d_getgrent_r.U>:
+
+This variable conditionally defines the C<HAS_GETGRENT_R> symbol,
+which indicates to the C program that the getgrent_r()
+routine is available.
+
+=item C<d_getgrgid_r>
+
+From F<d_getgrgid_r.U>:
+
+This variable conditionally defines the C<HAS_GETGRGID_R> symbol,
+which indicates to the C program that the getgrgid_r()
+routine is available.
+
+=item C<d_getgrnam_r>
+
+From F<d_getgrnam_r.U>:
+
+This variable conditionally defines the C<HAS_GETGRNAM_R> symbol,
+which indicates to the C program that the getgrnam_r()
+routine is available.
+
+=item C<d_getgrps>
+
+From F<d_getgrps.U>:
+
+This variable conditionally defines the C<HAS_GETGROUPS> symbol, which
+indicates to the C program that the getgroups() routine is available
+to get the list of process groups.
+
+=item C<d_gethbyaddr>
+
+From F<d_gethbyad.U>:
+
+This variable conditionally defines the C<HAS_GETHOSTBYADDR> symbol, which
+indicates to the C program that the gethostbyaddr() routine is available
+to look up hosts by their C<IP> addresses.
+
+=item C<d_gethbyname>
+
+From F<d_gethbynm.U>:
+
+This variable conditionally defines the C<HAS_GETHOSTBYNAME> symbol, which
+indicates to the C program that the gethostbyname() routine is available
+to look up host names in some data base or other.
+
+=item C<d_gethent>
+
+From F<d_gethent.U>:
+
+This variable conditionally defines C<HAS_GETHOSTENT> if gethostent() is
+available to look up host names in some data base or another.
+
+=item C<d_gethname>
+
+From F<d_gethname.U>:
+
+This variable conditionally defines the C<HAS_GETHOSTNAME> symbol, which
+indicates to the C program that the gethostname() routine may be
+used to derive the host name.
+
+=item C<d_gethostbyaddr_r>
+
+From F<d_gethostbyaddr_r.U>:
+
+This variable conditionally defines the C<HAS_GETHOSTBYADDR_R> symbol,
+which indicates to the C program that the gethostbyaddr_r()
+routine is available.
+
+=item C<d_gethostbyname_r>
+
+From F<d_gethostbyname_r.U>:
+
+This variable conditionally defines the C<HAS_GETHOSTBYNAME_R> symbol,
+which indicates to the C program that the gethostbyname_r()
+routine is available.
+
+=item C<d_gethostent_r>
+
+From F<d_gethostent_r.U>:
+
+This variable conditionally defines the C<HAS_GETHOSTENT_R> symbol,
+which indicates to the C program that the gethostent_r()
+routine is available.
+
+=item C<d_gethostprotos>
+
+From F<d_gethostprotos.U>:
+
+This variable conditionally defines the C<HAS_GETHOST_PROTOS> symbol,
+which indicates to the C program that <netdb.h> supplies
+prototypes for the various gethost*() functions.
+See also F<netdbtype.U> for probing for various netdb types.
+
+=item C<d_getitimer>
+
+From F<d_getitimer.U>:
+
+This variable conditionally defines the C<HAS_GETITIMER> symbol, which
+indicates to the C program that the getitimer() routine is available.
+
+=item C<d_getlogin>
+
+From F<d_getlogin.U>:
+
+This variable conditionally defines the C<HAS_GETLOGIN> symbol, which
+indicates to the C program that the getlogin() routine is available
+to get the login name.
+
+=item C<d_getlogin_r>
+
+From F<d_getlogin_r.U>:
+
+This variable conditionally defines the C<HAS_GETLOGIN_R> symbol,
+which indicates to the C program that the getlogin_r()
+routine is available.
+
+=item C<d_getmnt>
+
+From F<d_getmnt.U>:
+
+This variable conditionally defines the C<HAS_GETMNT> symbol, which
+indicates to the C program that the getmnt() routine is available
+to retrieve one or more mount info blocks by filename.
+
+=item C<d_getmntent>
+
+From F<d_getmntent.U>:
+
+This variable conditionally defines the C<HAS_GETMNTENT> symbol, which
+indicates to the C program that the getmntent() routine is available
+to iterate through mounted files to get their mount info.
+
+=item C<d_getnameinfo>
+
+From F<d_getnameinfo.U>:
+
+This variable conditionally defines the C<HAS_GETNAMEINFO> symbol,
+which indicates to the C program that the getnameinfo() function
+is available.
+
+=item C<d_getnbyaddr>
+
+From F<d_getnbyad.U>:
+
+This variable conditionally defines the C<HAS_GETNETBYADDR> symbol, which
+indicates to the C program that the getnetbyaddr() routine is available
+to look up networks by their C<IP> addresses.
+
+=item C<d_getnbyname>
+
+From F<d_getnbynm.U>:
+
+This variable conditionally defines the C<HAS_GETNETBYNAME> symbol, which
+indicates to the C program that the getnetbyname() routine is available
+to look up networks by their names.
+
+=item C<d_getnent>
+
+From F<d_getnent.U>:
+
+This variable conditionally defines C<HAS_GETNETENT> if getnetent() is
+available to look up network names in some data base or another.
+
+=item C<d_getnetbyaddr_r>
+
+From F<d_getnetbyaddr_r.U>:
+
+This variable conditionally defines the C<HAS_GETNETBYADDR_R> symbol,
+which indicates to the C program that the getnetbyaddr_r()
+routine is available.
+
+=item C<d_getnetbyname_r>
+
+From F<d_getnetbyname_r.U>:
+
+This variable conditionally defines the C<HAS_GETNETBYNAME_R> symbol,
+which indicates to the C program that the getnetbyname_r()
+routine is available.
+
+=item C<d_getnetent_r>
+
+From F<d_getnetent_r.U>:
+
+This variable conditionally defines the C<HAS_GETNETENT_R> symbol,
+which indicates to the C program that the getnetent_r()
+routine is available.
+
+=item C<d_getnetprotos>
+
+From F<d_getnetprotos.U>:
+
+This variable conditionally defines the C<HAS_GETNET_PROTOS> symbol,
+which indicates to the C program that <netdb.h> supplies
+prototypes for the various getnet*() functions.
+See also F<netdbtype.U> for probing for various netdb types.
+
+=item C<d_getpagsz>
+
+From F<d_getpagsz.U>:
+
+This variable conditionally defines C<HAS_GETPAGESIZE> if getpagesize()
+is available to get the system page size.
+
+=item C<d_getpbyname>
+
+From F<d_getprotby.U>:
+
+This variable conditionally defines the C<HAS_GETPROTOBYNAME>
+symbol, which indicates to the C program that the
+getprotobyname() routine is available to look up protocols
+by their name.
+
+=item C<d_getpbynumber>
+
+From F<d_getprotby.U>:
+
+This variable conditionally defines the C<HAS_GETPROTOBYNUMBER>
+symbol, which indicates to the C program that the
+getprotobynumber() routine is available to look up protocols
+by their number.
+
+=item C<d_getpent>
+
+From F<d_getpent.U>:
+
+This variable conditionally defines C<HAS_GETPROTOENT> if getprotoent() is
+available to look up protocols in some data base or another.
+
+=item C<d_getpgid>
+
+From F<d_getpgid.U>:
+
+This variable conditionally defines the C<HAS_GETPGID> symbol, which
+indicates to the C program that the getpgid(pid) function
+is available to get the process group id.
+
+=item C<d_getpgrp>
+
+From F<d_getpgrp.U>:
+
+This variable conditionally defines C<HAS_GETPGRP> if getpgrp() is
+available to get the current process group.
+
+=item C<d_getpgrp2>
+
+From F<d_getpgrp2.U>:
+
+This variable conditionally defines the HAS_GETPGRP2 symbol, which
+indicates to the C program that the getpgrp2() (as in F<DG/C<UX>>) routine
+is available to get the current process group.
+
+=item C<d_getppid>
+
+From F<d_getppid.U>:
+
+This variable conditionally defines the C<HAS_GETPPID> symbol, which
+indicates to the C program that the getppid() routine is available
+to get the parent process C<ID>.
+
+=item C<d_getprior>
+
+From F<d_getprior.U>:
+
+This variable conditionally defines C<HAS_GETPRIORITY> if getpriority()
+is available to get a process's priority.
+
+=item C<d_getprotobyname_r>
+
+From F<d_getprotobyname_r.U>:
+
+This variable conditionally defines the C<HAS_GETPROTOBYNAME_R> symbol,
+which indicates to the C program that the getprotobyname_r()
+routine is available.
+
+=item C<d_getprotobynumber_r>
+
+From F<d_getprotobynumber_r.U>:
+
+This variable conditionally defines the C<HAS_GETPROTOBYNUMBER_R> symbol,
+which indicates to the C program that the getprotobynumber_r()
+routine is available.
+
+=item C<d_getprotoent_r>
+
+From F<d_getprotoent_r.U>:
+
+This variable conditionally defines the C<HAS_GETPROTOENT_R> symbol,
+which indicates to the C program that the getprotoent_r()
+routine is available.
+
+=item C<d_getprotoprotos>
+
+From F<d_getprotoprotos.U>:
+
+This variable conditionally defines the C<HAS_GETPROTO_PROTOS> symbol,
+which indicates to the C program that <netdb.h> supplies
+prototypes for the various getproto*() functions.
+See also F<netdbtype.U> for probing for various netdb types.
+
+=item C<d_getprpwnam>
+
+From F<d_getprpwnam.U>:
+
+This variable conditionally defines C<HAS_GETPRPWNAM> if getprpwnam() is
+available to retrieve protected (shadow) password entries by name.
+
+=item C<d_getpwent>
+
+From F<d_getpwent.U>:
+
+This variable conditionally defines the C<HAS_GETPWENT> symbol, which
+indicates to the C program that the getpwent() routine is available
+for sequential access of the passwd database.
+
+=item C<d_getpwent_r>
+
+From F<d_getpwent_r.U>:
+
+This variable conditionally defines the C<HAS_GETPWENT_R> symbol,
+which indicates to the C program that the getpwent_r()
+routine is available.
+
+=item C<d_getpwnam_r>
+
+From F<d_getpwnam_r.U>:
+
+This variable conditionally defines the C<HAS_GETPWNAM_R> symbol,
+which indicates to the C program that the getpwnam_r()
+routine is available.
+
+=item C<d_getpwuid_r>
+
+From F<d_getpwuid_r.U>:
+
+This variable conditionally defines the C<HAS_GETPWUID_R> symbol,
+which indicates to the C program that the getpwuid_r()
+routine is available.
+
+=item C<d_getsbyname>
+
+From F<d_getsrvby.U>:
+
+This variable conditionally defines the C<HAS_GETSERVBYNAME>
+symbol, which indicates to the C program that the
+getservbyname() routine is available to look up services
+by their name.
+
+=item C<d_getsbyport>
+
+From F<d_getsrvby.U>:
+
+This variable conditionally defines the C<HAS_GETSERVBYPORT>
+symbol, which indicates to the C program that the
+getservbyport() routine is available to look up services
+by their port.
+
+=item C<d_getsent>
+
+From F<d_getsent.U>:
+
+This variable conditionally defines C<HAS_GETSERVENT> if getservent() is
+available to look up network services in some data base or another.
+
+=item C<d_getservbyname_r>
+
+From F<d_getservbyname_r.U>:
+
+This variable conditionally defines the C<HAS_GETSERVBYNAME_R> symbol,
+which indicates to the C program that the getservbyname_r()
+routine is available.
+
+=item C<d_getservbyport_r>
+
+From F<d_getservbyport_r.U>:
+
+This variable conditionally defines the C<HAS_GETSERVBYPORT_R> symbol,
+which indicates to the C program that the getservbyport_r()
+routine is available.
+
+=item C<d_getservent_r>
+
+From F<d_getservent_r.U>:
+
+This variable conditionally defines the C<HAS_GETSERVENT_R> symbol,
+which indicates to the C program that the getservent_r()
+routine is available.
+
+=item C<d_getservprotos>
+
+From F<d_getservprotos.U>:
+
+This variable conditionally defines the C<HAS_GETSERV_PROTOS> symbol,
+which indicates to the C program that <netdb.h> supplies
+prototypes for the various getserv*() functions.
+See also F<netdbtype.U> for probing for various netdb types.
+
+=item C<d_getspnam>
+
+From F<d_getspnam.U>:
+
+This variable conditionally defines C<HAS_GETSPNAM> if getspnam() is
+available to retrieve SysV shadow password entries by name.
+
+=item C<d_getspnam_r>
+
+From F<d_getspnam_r.U>:
+
+This variable conditionally defines the C<HAS_GETSPNAM_R> symbol,
+which indicates to the C program that the getspnam_r()
+routine is available.
+
+=item C<d_gettimeod>
+
+From F<d_ftime.U>:
+
+This variable conditionally defines the C<HAS_GETTIMEOFDAY> symbol, which
+indicates that the gettimeofday() system call exists (to obtain a
+sub-second accuracy clock). You should probably include <sys/resource.h>.
+
+=item C<d_gmtime64>
+
+From F<d_timefuncs64.U>:
+
+This variable conditionally defines the HAS_GMTIME64 symbol, which
+indicates to the C program that the gmtime64 () routine is available.
+
+=item C<d_gmtime_r>
+
+From F<d_gmtime_r.U>:
+
+This variable conditionally defines the C<HAS_GMTIME_R> symbol,
+which indicates to the C program that the gmtime_r()
+routine is available.
+
+=item C<d_gnulibc>
+
+From F<d_gnulibc.U>:
+
+Defined if we're dealing with the C<GNU> C Library.
+
+=item C<d_grpasswd>
+
+From F<i_grp.U>:
+
+This variable conditionally defines C<GRPASSWD>, which indicates
+that struct group in <grp.h> contains gr_passwd.
+
+=item C<d_hasmntopt>
+
+From F<d_hasmntopt.U>:
+
+This variable conditionally defines the C<HAS_HASMNTOPT> symbol, which
+indicates to the C program that the hasmntopt() routine is available
+to query the mount options of file systems.
+
+=item C<d_htonl>
+
+From F<d_htonl.U>:
+
+This variable conditionally defines C<HAS_HTONL> if htonl() and its
+friends are available to do network order byte swapping.
+
+=item C<d_hypot>
+
+From F<d_hypot.U>:
+
+This variable conditionally defines C<HAS_HYPOT> if hypot is available
+for numerically stable hypotenuse function.
+
+=item C<d_ilogb>
+
+From F<d_ilogb.U>:
+
+This variable conditionally defines the C<HAS_ILOGB> symbol, which
+indicates to the C program that the ilogb() routine is available
+for extracting the exponent of double x as a signed integer.
+
+=item C<d_ilogbl>
+
+From F<d_ilogbl.U>:
+
+This variable conditionally defines the C<HAS_ILOGBL> symbol, which
+indicates to the C program that the ilogbl() routine is available
+for extracting the exponent of long double x as a signed integer.
+If scalbnl is also present we can emulate frexpl.
+
+=item C<d_inc_version_list>
+
+From F<inc_version_list.U>:
+
+This variable conditionally defines C<PERL_INC_VERSION_LIST>.
+It is set to undef when C<PERL_INC_VERSION_LIST> is empty.
+
+=item C<d_index>
+
+From F<d_strchr.U>:
+
+This variable conditionally defines C<HAS_INDEX> if index() and
+rindex() are available for string searching.
+
+=item C<d_inetaton>
+
+From F<d_inetaton.U>:
+
+This variable conditionally defines the C<HAS_INET_ATON> symbol, which
+indicates to the C program that the inet_aton() function is available
+to parse C<IP> address C<dotted-quad> strings.
+
+=item C<d_inetntop>
+
+From F<d_inetntop.U>:
+
+This variable conditionally defines the C<HAS_INETNTOP> symbol,
+which indicates to the C program that the inet_ntop() function
+is available.
+
+=item C<d_inetpton>
+
+From F<d_inetpton.U>:
+
+This variable conditionally defines the C<HAS_INETPTON> symbol,
+which indicates to the C program that the inet_pton() function
+is available.
+
+=item C<d_int64_t>
+
+From F<d_int64_t.U>:
+
+This symbol will be defined if the C compiler supports int64_t.
+
+=item C<d_ip_mreq>
+
+From F<d_socket.U>:
+
+This variable conditionally defines the C<HAS_IP_MREQ> symbol, which
+indicates the availability of a struct ip_mreq.
+
+=item C<d_ip_mreq_source>
+
+From F<d_socket.U>:
+
+This variable conditionally defines the C<HAS_IP_MREQ_SOURCE> symbol,
+which indicates the availability of a struct ip_mreq_source.
+
+=item C<d_ipv6_mreq>
+
+From F<d_socket.U>:
+
+This variable conditionally defines the HAS_IPV6_MREQ symbol, which
+indicates the availability of a struct ipv6_mreq.
+
+=item C<d_ipv6_mreq_source>
+
+From F<d_socket.U>:
+
+This variable conditionally defines the HAS_IPV6_MREQ_SOURCE symbol,
+which indicates the availability of a struct ipv6_mreq_source.
+
+=item C<d_isascii>
+
+From F<d_isascii.U>:
+
+This variable conditionally defines the C<HAS_ISASCII> constant,
+which indicates to the C program that isascii() is available.
+
+=item C<d_isblank>
+
+From F<d_isblank.U>:
+
+This variable conditionally defines the C<HAS_ISBLANK> constant,
+which indicates to the C program that isblank() is available.
+
+=item C<d_isfinite>
+
+From F<d_isfinite.U>:
+
+This variable conditionally defines the C<HAS_ISFINITE> symbol, which
+indicates to the C program that the isfinite() routine is available.
+
+=item C<d_isfinitel>
+
+From F<d_isfinitel.U>:
+
+This variable conditionally defines the C<HAS_ISFINITEL> symbol, which
+indicates to the C program that the isfinitel() routine is available.
+
+=item C<d_isinf>
+
+From F<d_isinf.U>:
+
+This variable conditionally defines the C<HAS_ISINF> symbol, which
+indicates to the C program that the isinf() routine is available.
+
+=item C<d_isinfl>
+
+From F<d_isinfl.U>:
+
+This variable conditionally defines the C<HAS_ISINFL> symbol, which
+indicates to the C program that the isinfl() routine is available.
+
+=item C<d_isless>
+
+From F<d_isless.U>:
+
+This variable conditionally defines the C<HAS_ISLESS> symbol, which
+indicates to the C program that the isless() routine is available.
+
+=item C<d_isnan>
+
+From F<d_isnan.U>:
+
+This variable conditionally defines the C<HAS_ISNAN> symbol, which
+indicates to the C program that the isnan() routine is available.
+
+=item C<d_isnanl>
+
+From F<d_isnanl.U>:
+
+This variable conditionally defines the C<HAS_ISNANL> symbol, which
+indicates to the C program that the isnanl() routine is available.
+
+=item C<d_isnormal>
+
+From F<d_isnormal.U>:
+
+This variable conditionally defines the C<HAS_ISNORMAL> symbol, which
+indicates to the C program that the isnormal() routine is available.
+
+=item C<d_j0>
+
+From F<d_j0.U>:
+
+This variable conditionally defines the HAS_J0 symbol, which
+indicates to the C program that the j0() routine is available.
+
+=item C<d_j0l>
+
+From F<d_j0.U>:
+
+This variable conditionally defines the HAS_J0L symbol, which
+indicates to the C program that the j0l() routine is available.
+
+=item C<d_killpg>
+
+From F<d_killpg.U>:
+
+This variable conditionally defines the C<HAS_KILLPG> symbol, which
+indicates to the C program that the killpg() routine is available
+to kill process groups.
+
+=item C<d_lc_monetary_2008>
+
+From F<d_lc_monetary_2008.U>:
+
+This variable conditionally defines HAS_LC_MONETARY_2008 if libc
+has the international currency locale rules from C<POSIX>
+1003.1-2008.
+
+=item C<d_lchown>
+
+From F<d_lchown.U>:
+
+This variable conditionally defines the C<HAS_LCHOWN> symbol, which
+indicates to the C program that the lchown() routine is available
+to operate on a symbolic link (instead of following the link).
+
+=item C<d_ldbl_dig>
+
+From F<d_ldbl_dig.U>:
+
+This variable conditionally defines d_ldbl_dig if this system's
+header files provide C<LDBL_DIG>, which is the number of significant
+digits in a long double precision number.
+
+=item C<d_ldexpl>
+
+From F<d_longdbl.U>:
+
+This variable conditionally defines the C<HAS_LDEXPL> symbol, which
+indicates to the C program that the ldexpl() routine is available.
+
+=item C<d_lgamma>
+
+From F<d_lgamma.U>:
+
+This variable conditionally defines the C<HAS_LGAMMA> symbol, which
+indicates to the C program that the lgamma() routine is available
+for the log gamma function.  See also d_tgamma and d_lgamma_r.
+
+=item C<d_lgamma_r>
+
+From F<d_lgamma_r.U>:
+
+This variable conditionally defines the C<HAS_LGAMMA_R> symbol, which
+indicates to the C program that the lgamma_r() routine is available
+for the log gamma function, without using the global signgam variable.
+
+=item C<d_libm_lib_version>
+
+From F<d_libm_lib_version.U>:
+
+This variable conditionally defines the C<LIBM_LIB_VERSION> symbol,
+which indicates to the C program that F<math.h> defines C<_LIB_VERSION>
+being available in libm
+
+=item C<d_libname_unique>
+
+From F<so.U>:
+
+This variable is defined if the target system insists on unique
+basenames for shared library files. This is currently true on Android,
+false everywhere else we know of.
+Defaults to C<undef>.
+
+=item C<d_link>
+
+From F<d_link.U>:
+
+This variable conditionally defines C<HAS_LINK> if link() is
+available to create hard links.
+
+=item C<d_llrint>
+
+From F<d_llrint.U>:
+
+This variable conditionally defines the C<HAS_LLRINT> symbol, which
+indicates to the C program that the llrint() routine is available
+to return the long long value closest to a double (according
+to the current rounding mode).
+
+=item C<d_llrintl>
+
+From F<d_llrintl.U>:
+
+This variable conditionally defines the C<HAS_LLRINTL> symbol, which
+indicates to the C program that the llrintl() routine is available
+to return the long long value closest to a long double (according
+to the current rounding mode).
+
+=item C<d_llround>
+
+From F<d_llround.U>:
+
+This variable conditionally defines the C<HAS_LLROUND> symbol, which
+indicates to the C program that the llround() routine is available
+to return the long long value nearest to x.
+
+=item C<d_llroundl>
+
+From F<d_llroundl.U>:
+
+This variable conditionally defines the C<HAS_LLROUNDL> symbol, which
+indicates to the C program that the llroundl() routine is available
+to return the long long value nearest to x away from zero.
+
+=item C<d_localtime64>
+
+From F<d_timefuncs64.U>:
+
+This variable conditionally defines the HAS_LOCALTIME64 symbol, which
+indicates to the C program that the localtime64 () routine is available.
+
+=item C<d_localtime_r>
+
+From F<d_localtime_r.U>:
+
+This variable conditionally defines the C<HAS_LOCALTIME_R> symbol,
+which indicates to the C program that the localtime_r()
+routine is available.
+
+=item C<d_localtime_r_needs_tzset>
+
+From F<d_localtime_r.U>:
+
+This variable conditionally defines the C<LOCALTIME_R_NEEDS_TZSET>
+symbol, which makes us call tzset before localtime_r()
+
+=item C<d_locconv>
+
+From F<d_locconv.U>:
+
+This variable conditionally defines C<HAS_LOCALECONV> if localeconv() is
+available for numeric and monetary formatting conventions.
+
+=item C<d_lockf>
+
+From F<d_lockf.U>:
+
+This variable conditionally defines C<HAS_LOCKF> if lockf() is
+available to do file locking.
+
+=item C<d_log1p>
+
+From F<d_log1p.U>:
+
+This variable conditionally defines the HAS_LOG1P symbol, which
+indicates to the C program that the logp1() routine is available
+to compute log(1 + x) for values of x close to zero.
+
+=item C<d_log2>
+
+From F<d_log2.U>:
+
+This variable conditionally defines the HAS_LOG2 symbol, which
+indicates to the C program that the log2() routine is available
+to compute log base two.
+
+=item C<d_logb>
+
+From F<d_logb.U>:
+
+This variable conditionally defines the C<HAS_LOGB> symbol, which
+indicates to the C program that the logb() routine is available
+to extract the exponent of x.
+
+=item C<d_longdbl>
+
+From F<d_longdbl.U>:
+
+This variable conditionally defines C<HAS_LONG_DOUBLE> if
+the long double type is supported.
+
+=item C<d_longlong>
+
+From F<d_longlong.U>:
+
+This variable conditionally defines C<HAS_LONG_LONG> if
+the long long type is supported.
+
+=item C<d_lrint>
+
+From F<d_lrint.U>:
+
+This variable conditionally defines the C<HAS_LRINT> symbol, which
+indicates to the C program that the lrint() routine is available
+to return the integral value closest to a double (according
+to the current rounding mode).
+
+=item C<d_lrintl>
+
+From F<d_lrintl.U>:
+
+This variable conditionally defines the C<HAS_LRINTL> symbol, which
+indicates to the C program that the lrintl() routine is available
+to return the integral value closest to a long double (according
+to the current rounding mode).
+
+=item C<d_lround>
+
+From F<d_lround.U>:
+
+This variable conditionally defines the C<HAS_LROUND> symbol, which
+indicates to the C program that the lround() routine is available
+to return the integral value nearest to x.
+
+=item C<d_lroundl>
+
+From F<d_lroundl.U>:
+
+This variable conditionally defines the C<HAS_LROUNDL> symbol, which
+indicates to the C program that the lroundl() routine is available
+to return the integral value nearest to x away from zero.
+
+=item C<d_lseekproto>
+
+From F<d_lseekproto.U>:
+
+This variable conditionally defines the C<HAS_LSEEK_PROTO> symbol,
+which indicates to the C program that the system provides
+a prototype for the lseek() function.  Otherwise, it is
+up to the program to supply one.
+
+=item C<d_lstat>
+
+From F<d_lstat.U>:
+
+This variable conditionally defines C<HAS_LSTAT> if lstat() is
+available to do file stats on symbolic links.
+
+=item C<d_madvise>
+
+From F<d_madvise.U>:
+
+This variable conditionally defines C<HAS_MADVISE> if madvise() is
+available to map a file into memory.
+
+=item C<d_malloc_good_size>
+
+From F<d_malloc_size.U>:
+
+This symbol, if defined, indicates that the malloc_good_size
+routine is available for use.
+
+=item C<d_malloc_size>
+
+From F<d_malloc_size.U>:
+
+This symbol, if defined, indicates that the malloc_size
+routine is available for use.
+
+=item C<d_mblen>
+
+From F<d_mblen.U>:
+
+This variable conditionally defines the C<HAS_MBLEN> symbol, which
+indicates to the C program that the mblen() routine is available
+to find the number of bytes in a multibye character.
+
+=item C<d_mbstowcs>
+
+From F<d_mbstowcs.U>:
+
+This variable conditionally defines the C<HAS_MBSTOWCS> symbol, which
+indicates to the C program that the mbstowcs() routine is available
+to convert a multibyte string into a wide character string.
+
+=item C<d_mbtowc>
+
+From F<d_mbtowc.U>:
+
+This variable conditionally defines the C<HAS_MBTOWC> symbol, which
+indicates to the C program that the mbtowc() routine is available
+to convert multibyte to a wide character.
+
+=item C<d_memchr>
+
+From F<d_memchr.U>:
+
+This variable conditionally defines the C<HAS_MEMCHR> symbol, which
+indicates to the C program that the memchr() routine is available
+to locate characters within a C string.
+
+=item C<d_memcmp>
+
+From F<d_memcmp.U>:
+
+This variable conditionally defines the C<HAS_MEMCMP> symbol, which
+indicates to the C program that the memcmp() routine is available
+to compare blocks of memory.
+
+=item C<d_memcpy>
+
+From F<d_memcpy.U>:
+
+This variable conditionally defines the C<HAS_MEMCPY> symbol, which
+indicates to the C program that the memcpy() routine is available
+to copy blocks of memory.
+
+=item C<d_memmem>
+
+From F<d_memmem.U>:
+
+This variable conditionally defines the C<HAS_MEMMEM> symbol, which
+indicates to the C program that the memmem() routine is available
+to return a pointer to the start of the first occurance of a
+substring in a memory area (or C<NULL> if not found).
+
+=item C<d_memmove>
+
+From F<d_memmove.U>:
+
+This variable conditionally defines the C<HAS_MEMMOVE> symbol, which
+indicates to the C program that the memmove() routine is available
+to copy potentially overlapping blocks of memory.
+
+=item C<d_memset>
+
+From F<d_memset.U>:
+
+This variable conditionally defines the C<HAS_MEMSET> symbol, which
+indicates to the C program that the memset() routine is available
+to set blocks of memory.
+
+=item C<d_mkdir>
+
+From F<d_mkdir.U>:
+
+This variable conditionally defines the C<HAS_MKDIR> symbol, which
+indicates to the C program that the mkdir() routine is available
+to create F<directories.>.
+
+=item C<d_mkdtemp>
+
+From F<d_mkdtemp.U>:
+
+This variable conditionally defines the C<HAS_MKDTEMP> symbol, which
+indicates to the C program that the mkdtemp() routine is available
+to exclusively create a uniquely named temporary directory.
+
+=item C<d_mkfifo>
+
+From F<d_mkfifo.U>:
+
+This variable conditionally defines the C<HAS_MKFIFO> symbol, which
+indicates to the C program that the mkfifo() routine is available.
+
+=item C<d_mkstemp>
+
+From F<d_mkstemp.U>:
+
+This variable conditionally defines the C<HAS_MKSTEMP> symbol, which
+indicates to the C program that the mkstemp() routine is available
+to exclusively create and open a uniquely named temporary file.
+
+=item C<d_mkstemps>
+
+From F<d_mkstemps.U>:
+
+This variable conditionally defines the C<HAS_MKSTEMPS> symbol, which
+indicates to the C program that the mkstemps() routine is available
+to exclusively create and open a uniquely named (with a suffix)
+temporary file.
+
+=item C<d_mktime>
+
+From F<d_mktime.U>:
+
+This variable conditionally defines the C<HAS_MKTIME> symbol, which
+indicates to the C program that the mktime() routine is available.
+
+=item C<d_mktime64>
+
+From F<d_timefuncs64.U>:
+
+This variable conditionally defines the HAS_MKTIME64 symbol, which
+indicates to the C program that the mktime64 () routine is available.
+
+=item C<d_mmap>
+
+From F<d_mmap.U>:
+
+This variable conditionally defines C<HAS_MMAP> if mmap() is
+available to map a file into memory.
+
+=item C<d_modfl>
+
+From F<d_modfl.U>:
+
+This variable conditionally defines the C<HAS_MODFL> symbol, which
+indicates to the C program that the modfl() routine is available.
+
+=item C<d_modflproto>
+
+From F<d_modfl.U>:
+
+This symbol, if defined, indicates that the system provides
+a prototype for the modfl() function.  Otherwise, it is up
+to the program to supply one.  C99 says it should be
+long double modfl(long double, long double *);
+
+=item C<d_mprotect>
+
+From F<d_mprotect.U>:
+
+This variable conditionally defines C<HAS_MPROTECT> if mprotect() is
+available to modify the access protection of a memory mapped file.
+
+=item C<d_msg>
+
+From F<d_msg.U>:
+
+This variable conditionally defines the C<HAS_MSG> symbol, which
+indicates that the entire msg*(2) library is present.
+
+=item C<d_msg_ctrunc>
+
+From F<d_socket.U>:
+
+This variable conditionally defines the C<HAS_MSG_CTRUNC> symbol,
+which indicates that the C<MSG_CTRUNC> is available.  #ifdef is
+not enough because it may be an enum, glibc has been known to do this.
+
+=item C<d_msg_dontroute>
+
+From F<d_socket.U>:
+
+This variable conditionally defines the C<HAS_MSG_DONTROUTE> symbol,
+which indicates that the C<MSG_DONTROUTE> is available.  #ifdef is
+not enough because it may be an enum, glibc has been known to do this.
+
+=item C<d_msg_oob>
+
+From F<d_socket.U>:
+
+This variable conditionally defines the C<HAS_MSG_OOB> symbol,
+which indicates that the C<MSG_OOB> is available.  #ifdef is
+not enough because it may be an enum, glibc has been known to do this.
+
+=item C<d_msg_peek>
+
+From F<d_socket.U>:
+
+This variable conditionally defines the C<HAS_MSG_PEEK> symbol,
+which indicates that the C<MSG_PEEK> is available.  #ifdef is
+not enough because it may be an enum, glibc has been known to do this.
+
+=item C<d_msg_proxy>
+
+From F<d_socket.U>:
+
+This variable conditionally defines the C<HAS_MSG_PROXY> symbol,
+which indicates that the C<MSG_PROXY> is available.  #ifdef is
+not enough because it may be an enum, glibc has been known to do this.
+
+=item C<d_msgctl>
+
+From F<d_msgctl.U>:
+
+This variable conditionally defines the C<HAS_MSGCTL> symbol, which
+indicates to the C program that the msgctl() routine is available.
+
+=item C<d_msgget>
+
+From F<d_msgget.U>:
+
+This variable conditionally defines the C<HAS_MSGGET> symbol, which
+indicates to the C program that the msgget() routine is available.
+
+=item C<d_msghdr_s>
+
+From F<d_msghdr_s.U>:
+
+This variable conditionally defines the C<HAS_STRUCT_MSGHDR> symbol,
+which indicates that the struct msghdr is supported.
+
+=item C<d_msgrcv>
+
+From F<d_msgrcv.U>:
+
+This variable conditionally defines the C<HAS_MSGRCV> symbol, which
+indicates to the C program that the msgrcv() routine is available.
+
+=item C<d_msgsnd>
+
+From F<d_msgsnd.U>:
+
+This variable conditionally defines the C<HAS_MSGSND> symbol, which
+indicates to the C program that the msgsnd() routine is available.
+
+=item C<d_msync>
+
+From F<d_msync.U>:
+
+This variable conditionally defines C<HAS_MSYNC> if msync() is
+available to synchronize a mapped file.
+
+=item C<d_munmap>
+
+From F<d_munmap.U>:
+
+This variable conditionally defines C<HAS_MUNMAP> if munmap() is
+available to unmap a region mapped by mmap().
+
+=item C<d_mymalloc>
+
+From F<mallocsrc.U>:
+
+This variable conditionally defines C<MYMALLOC> in case other parts
+of the source want to take special action if C<MYMALLOC> is used.
+This may include different sorts of profiling or error detection.
+
+=item C<d_nan>
+
+From F<d_nan.U>:
+
+This variable conditionally defines C<HAS_NAN> if nan() is
+available to generate NaN.
+
+=item C<d_ndbm>
+
+From F<i_ndbm.U>:
+
+This variable conditionally defines the C<HAS_NDBM> symbol, which
+indicates that both the F<ndbm.h> include file and an appropriate ndbm
+library exist.  Consult the different i_*ndbm variables
+to find out the actual include location.  Sometimes, a system has the
+header file but not the library.  This variable will only be set if
+the system has both.
+
+=item C<d_ndbm_h_uses_prototypes>
+
+From F<i_ndbm.U>:
+
+This variable conditionally defines the C<NDBM_H_USES_PROTOTYPES> symbol,
+which indicates that the F<ndbm.h> include file uses real C<ANSI> C
+prototypes instead of K&R style function declarations. K&R style
+declarations are unsupported in C++, so the include file requires
+special handling when using a C++ compiler and this variable is
+undefined. Consult the different d_*ndbm_h_uses_prototypes variables
+to get the same information for alternative F<ndbm.h> include files.
+
+=item C<d_nearbyint>
+
+From F<d_nearbyint.U>:
+
+This variable conditionally defines C<HAS_NEARBYINT> if nearbyint()
+is available to return the integral value closest to (according to
+the current rounding mode) to x.
+
+=item C<d_newlocale>
+
+From F<d_newlocale.U>:
+
+This variable conditionally defines the C<HAS_NEWLOCALE> symbol, which
+indicates to the C program that the newlocale() routine is available
+to return a new locale object or modify an existing locale object.
+
+=item C<d_nextafter>
+
+From F<d_nextafter.U>:
+
+This variable conditionally defines C<HAS_NEXTAFTER> if nextafter()
+is available to return the next machine representable double from
+x in direction y.
+
+=item C<d_nexttoward>
+
+From F<d_nexttoward.U>:
+
+This variable conditionally defines C<HAS_NEXTTOWARD> if nexttoward()
+is available to return the next machine representable long double from
+x in direction y.
+
+=item C<d_nice>
+
+From F<d_nice.U>:
+
+This variable conditionally defines the C<HAS_NICE> symbol, which
+indicates to the C program that the nice() routine is available.
+
+=item C<d_nl_langinfo>
+
+From F<d_nl_langinfo.U>:
+
+This variable conditionally defines the C<HAS_NL_LANGINFO> symbol, which
+indicates to the C program that the nl_langinfo() routine is available.
+
+=item C<d_nv_preserves_uv>
+
+From F<perlxv.U>:
+
+This variable indicates whether a variable of type nvtype
+can preserve all the bits a variable of type uvtype.
+
+=item C<d_nv_zero_is_allbits_zero>
+
+From F<perlxv.U>:
+
+This variable indicates whether a variable of type nvtype
+stores 0.0 in memory as all bits zero.
+
+=item C<d_off64_t>
+
+From F<d_off64_t.U>:
+
+This symbol will be defined if the C compiler supports off64_t.
+
+=item C<d_old_pthread_create_joinable>
+
+From F<d_pthrattrj.U>:
+
+This variable conditionally defines pthread_create_joinable.
+undef if F<pthread.h> defines C<PTHREAD_CREATE_JOINABLE>.
+
+=item C<d_oldpthreads>
+
+From F<usethreads.U>:
+
+This variable conditionally defines the C<OLD_PTHREADS_API> symbol,
+and indicates that Perl should be built to use the old
+draft C<POSIX> threads C<API>.  This is only potentially meaningful if
+usethreads is set.
+
+=item C<d_oldsock>
+
+From F<d_socket.U>:
+
+This variable conditionally defines the C<OLDSOCKET> symbol, which
+indicates that the C<BSD> socket interface is based on 4.1c and not 4.2.
+
+=item C<d_open3>
+
+From F<d_open3.U>:
+
+This variable conditionally defines the HAS_OPEN3 manifest constant,
+which indicates to the C program that the 3 argument version of
+the open(2) function is available.
+
+=item C<d_pathconf>
+
+From F<d_pathconf.U>:
+
+This variable conditionally defines the C<HAS_PATHCONF> symbol, which
+indicates to the C program that the pathconf() routine is available
+to determine file-system related limits and options associated
+with a given filename.
+
+=item C<d_pause>
+
+From F<d_pause.U>:
+
+This variable conditionally defines the C<HAS_PAUSE> symbol, which
+indicates to the C program that the pause() routine is available
+to suspend a process until a signal is received.
+
+=item C<d_perl_otherlibdirs>
+
+From F<otherlibdirs.U>:
+
+This variable conditionally defines C<PERL_OTHERLIBDIRS>, which
+contains a colon-separated set of paths for the perl binary to
+include in @C<INC>.  See also otherlibdirs.
+
+=item C<d_phostname>
+
+From F<d_gethname.U>:
+
+This variable conditionally defines the C<HAS_PHOSTNAME> symbol, which
+contains the shell command which, when fed to popen(), may be
+used to derive the host name.
+
+=item C<d_pipe>
+
+From F<d_pipe.U>:
+
+This variable conditionally defines the C<HAS_PIPE> symbol, which
+indicates to the C program that the pipe() routine is available
+to create an inter-process channel.
+
+=item C<d_poll>
+
+From F<d_poll.U>:
+
+This variable conditionally defines the C<HAS_POLL> symbol, which
+indicates to the C program that the poll() routine is available
+to poll active file descriptors.
+
+=item C<d_portable>
+
+From F<d_portable.U>:
+
+This variable conditionally defines the C<PORTABLE> symbol, which
+indicates to the C program that it should not assume that it is
+running on the machine it was compiled on.
+
+=item C<d_prctl>
+
+From F<d_prctl.U>:
+
+This variable conditionally defines the C<HAS_PRCTL> symbol, which
+indicates to the C program that the prctl() routine is available.
+Note that there are at least two prctl variants: Linux and Irix.
+While they are somewhat similar, they are incompatible.
+
+=item C<d_prctl_set_name>
+
+From F<d_prctl.U>:
+
+This variable conditionally defines the C<HAS_PRCTL_SET_NAME> symbol,
+which indicates to the C program that the prctl() routine supports
+the C<PR_SET_NAME> option.
+
+=item C<d_PRId64>
+
+From F<quadfio.U>:
+
+This variable conditionally defines the PERL_PRId64 symbol, which
+indicates that stdio has a symbol to print 64-bit decimal numbers.
+
+=item C<d_PRIeldbl>
+
+From F<longdblfio.U>:
+
+This variable conditionally defines the PERL_PRIfldbl symbol, which
+indicates that stdio has a symbol to print long doubles.
+
+=item C<d_PRIEUldbl>
+
+From F<longdblfio.U>:
+
+This variable conditionally defines the PERL_PRIfldbl symbol, which
+indicates that stdio has a symbol to print long doubles.
+The C<U> in the name is to separate this from d_PRIeldbl so that even
+case-blind systems can see the difference.
+
+=item C<d_PRIfldbl>
+
+From F<longdblfio.U>:
+
+This variable conditionally defines the PERL_PRIfldbl symbol, which
+indicates that stdio has a symbol to print long doubles.
+
+=item C<d_PRIFUldbl>
+
+From F<longdblfio.U>:
+
+This variable conditionally defines the PERL_PRIfldbl symbol, which
+indicates that stdio has a symbol to print long doubles.
+The C<U> in the name is to separate this from d_PRIfldbl so that even
+case-blind systems can see the difference.
+
+=item C<d_PRIgldbl>
+
+From F<longdblfio.U>:
+
+This variable conditionally defines the PERL_PRIfldbl symbol, which
+indicates that stdio has a symbol to print long doubles.
+
+=item C<d_PRIGUldbl>
+
+From F<longdblfio.U>:
+
+This variable conditionally defines the PERL_PRIfldbl symbol, which
+indicates that stdio has a symbol to print long doubles.
+The C<U> in the name is to separate this from d_PRIgldbl so that even
+case-blind systems can see the difference.
+
+=item C<d_PRIi64>
+
+From F<quadfio.U>:
+
+This variable conditionally defines the PERL_PRIi64 symbol, which
+indicates that stdio has a symbol to print 64-bit decimal numbers.
+
+=item C<d_printf_format_null>
+
+From F<d_attribut.U>:
+
+This variable conditionally defines C<PRINTF_FORMAT_NULL_OK>, which
+indicates the C compiler allows printf-like formats to be null.
+
+=item C<d_PRIo64>
+
+From F<quadfio.U>:
+
+This variable conditionally defines the PERL_PRIo64 symbol, which
+indicates that stdio has a symbol to print 64-bit octal numbers.
+
+=item C<d_PRIu64>
+
+From F<quadfio.U>:
+
+This variable conditionally defines the PERL_PRIu64 symbol, which
+indicates that stdio has a symbol to print 64-bit unsigned decimal
+numbers.
+
+=item C<d_PRIx64>
+
+From F<quadfio.U>:
+
+This variable conditionally defines the PERL_PRIx64 symbol, which
+indicates that stdio has a symbol to print 64-bit hexadecimal numbers.
+
+=item C<d_PRIXU64>
+
+From F<quadfio.U>:
+
+This variable conditionally defines the PERL_PRIXU64 symbol, which
+indicates that stdio has a symbol to print 64-bit hExADECimAl numbers.
+The C<U> in the name is to separate this from d_PRIx64 so that even
+case-blind systems can see the difference.
+
+=item C<d_procselfexe>
+
+From F<d_procselfexe.U>:
+
+Defined if $procselfexe is symlink to the absolute
+pathname of the executing program.
+
+=item C<d_pseudofork>
+
+From F<d_vfork.U>:
+
+This variable conditionally defines the C<HAS_PSEUDOFORK> symbol,
+which indicates that an emulation of the fork routine is available.
+
+=item C<d_pthread_atfork>
+
+From F<d_pthread_atfork.U>:
+
+This variable conditionally defines the C<HAS_PTHREAD_ATFORK> symbol,
+which indicates to the C program that the pthread_atfork()
+routine is available.
+
+=item C<d_pthread_attr_setscope>
+
+From F<d_pthread_attr_ss.U>:
+
+This variable conditionally defines C<HAS_PTHREAD_ATTR_SETSCOPE> if
+pthread_attr_setscope() is available to set the contention scope
+attribute of a thread attribute object.
+
+=item C<d_pthread_yield>
+
+From F<d_pthread_y.U>:
+
+This variable conditionally defines the C<HAS_PTHREAD_YIELD>
+symbol if the pthread_yield routine is available to yield
+the execution of the current thread.
+
+=item C<d_ptrdiff_t>
+
+From F<d_ptrdiff_t.U>:
+
+This symbol will be defined if the C compiler supports ptrdiff_t.
+
+=item C<d_pwage>
+
+From F<i_pwd.U>:
+
+This variable conditionally defines C<PWAGE>, which indicates
+that struct passwd contains pw_age.
+
+=item C<d_pwchange>
+
+From F<i_pwd.U>:
+
+This variable conditionally defines C<PWCHANGE>, which indicates
+that struct passwd contains pw_change.
+
+=item C<d_pwclass>
+
+From F<i_pwd.U>:
+
+This variable conditionally defines C<PWCLASS>, which indicates
+that struct passwd contains pw_class.
+
+=item C<d_pwcomment>
+
+From F<i_pwd.U>:
+
+This variable conditionally defines C<PWCOMMENT>, which indicates
+that struct passwd contains pw_comment.
+
+=item C<d_pwexpire>
+
+From F<i_pwd.U>:
+
+This variable conditionally defines C<PWEXPIRE>, which indicates
+that struct passwd contains pw_expire.
+
+=item C<d_pwgecos>
+
+From F<i_pwd.U>:
+
+This variable conditionally defines C<PWGECOS>, which indicates
+that struct passwd contains pw_gecos.
+
+=item C<d_pwpasswd>
+
+From F<i_pwd.U>:
+
+This variable conditionally defines C<PWPASSWD>, which indicates
+that struct passwd contains pw_passwd.
+
+=item C<d_pwquota>
+
+From F<i_pwd.U>:
+
+This variable conditionally defines C<PWQUOTA>, which indicates
+that struct passwd contains pw_quota.
+
+=item C<d_qgcvt>
+
+From F<d_qgcvt.U>:
+
+This variable conditionally defines the C<HAS_QGCVT> symbol, which
+indicates to the C program that the qgcvt() routine is available.
+
+=item C<d_quad>
+
+From F<quadtype.U>:
+
+This variable, if defined, tells that there's a 64-bit integer type,
+quadtype.
+
+=item C<d_random_r>
+
+From F<d_random_r.U>:
+
+This variable conditionally defines the C<HAS_RANDOM_R> symbol,
+which indicates to the C program that the random_r()
+routine is available.
+
+=item C<d_re_comp>
+
+From F<d_regcmp.U>:
+
+This variable conditionally defines the C<HAS_RECOMP> symbol, which
+indicates to the C program that the re_comp() routine is available
+for regular patern matching (usally on C<BSD>). If so, it is likely that
+re_exec() exists.
+
+=item C<d_readdir>
+
+From F<d_readdir.U>:
+
+This variable conditionally defines C<HAS_READDIR> if readdir() is
+available to read directory entries.
+
+=item C<d_readdir64_r>
+
+From F<d_readdir64_r.U>:
+
+This variable conditionally defines the HAS_READDIR64_R symbol,
+which indicates to the C program that the readdir64_r()
+routine is available.
+
+=item C<d_readdir_r>
+
+From F<d_readdir_r.U>:
+
+This variable conditionally defines the C<HAS_READDIR_R> symbol,
+which indicates to the C program that the readdir_r()
+routine is available.
+
+=item C<d_readlink>
+
+From F<d_readlink.U>:
+
+This variable conditionally defines the C<HAS_READLINK> symbol, which
+indicates to the C program that the readlink() routine is available
+to read the value of a symbolic link.
+
+=item C<d_readv>
+
+From F<d_readv.U>:
+
+This variable conditionally defines the C<HAS_READV> symbol, which
+indicates to the C program that the readv() routine is available.
+
+=item C<d_recvmsg>
+
+From F<d_recvmsg.U>:
+
+This variable conditionally defines the C<HAS_RECVMSG> symbol, which
+indicates to the C program that the recvmsg() routine is available.
+
+=item C<d_regcmp>
+
+From F<d_regcmp.U>:
+
+This variable conditionally defines the C<HAS_REGCMP> symbol, which
+indicates to the C program that the regcmp() routine is available
+for regular patern matching (usally on System V).
+
+=item C<d_regcomp>
+
+From F<d_regcmp.U>:
+
+This variable conditionally defines the C<HAS_REGCOMP> symbol, which
+indicates to the C program that the regcomp() routine is available
+for regular patern matching (usally on F<POSIX.2> conforming systems).
+
+=item C<d_remainder>
+
+From F<d_remainder.U>:
+
+This variable conditionally defines the C<HAS_REMAINDER> symbol, which
+indicates to the C program that the remainder() routine is available.
+
+=item C<d_remquo>
+
+From F<d_remquo.U>:
+
+This variable conditionally defines the C<HAS_REMQUO> symbol, which
+indicates to the C program that the remquo() routine is available.
+
+=item C<d_rename>
+
+From F<d_rename.U>:
+
+This variable conditionally defines the C<HAS_RENAME> symbol, which
+indicates to the C program that the rename() routine is available
+to rename files.
+
+=item C<d_rewinddir>
+
+From F<d_readdir.U>:
+
+This variable conditionally defines C<HAS_REWINDDIR> if rewinddir() is
+available.
+
+=item C<d_rint>
+
+From F<d_rint.U>:
+
+This variable conditionally defines the C<HAS_RINT> symbol, which
+indicates to the C program that the rint() routine is available.
+
+=item C<d_rmdir>
+
+From F<d_rmdir.U>:
+
+This variable conditionally defines C<HAS_RMDIR> if rmdir() is
+available to remove directories.
+
+=item C<d_round>
+
+From F<d_round.U>:
+
+This variable conditionally defines the C<HAS_ROUND> symbol, which
+indicates to the C program that the round() routine is available.
+
+=item C<d_safebcpy>
+
+From F<d_safebcpy.U>:
+
+This variable conditionally defines the C<HAS_SAFE_BCOPY> symbol if
+the bcopy() routine can do overlapping copies.  Normally, you
+should probably use memmove().
+
+=item C<d_safemcpy>
+
+From F<d_safemcpy.U>:
+
+This variable conditionally defines the C<HAS_SAFE_MEMCPY> symbol if
+the memcpy() routine can do overlapping copies.
+For overlapping copies, memmove() should be used, if available.
+
+=item C<d_sanemcmp>
+
+From F<d_sanemcmp.U>:
+
+This variable conditionally defines the C<HAS_SANE_MEMCMP> symbol if
+the memcpy() routine is available and can be used to compare relative
+magnitudes of chars with their high bits set.
+
+=item C<d_sbrkproto>
+
+From F<d_sbrkproto.U>:
+
+This variable conditionally defines the C<HAS_SBRK_PROTO> symbol,
+which indicates to the C program that the system provides
+a prototype for the sbrk() function.  Otherwise, it is
+up to the program to supply one.
+
+=item C<d_scalbn>
+
+From F<d_scalbn.U>:
+
+This variable conditionally defines the C<HAS_SCALBN> symbol, which
+indicates to the C program that the scalbn() routine is available.
+
+=item C<d_scalbnl>
+
+From F<d_scalbnl.U>:
+
+This variable conditionally defines the C<HAS_SCALBNL> symbol, which
+indicates to the C program that the scalbnl() routine is available.
+If ilogbl is also present we can emulate frexpl.
+
+=item C<d_sched_yield>
+
+From F<d_pthread_y.U>:
+
+This variable conditionally defines the C<HAS_SCHED_YIELD>
+symbol if the sched_yield routine is available to yield
+the execution of the current thread.
+
+=item C<d_scm_rights>
+
+From F<d_socket.U>:
+
+This variable conditionally defines the C<HAS_SCM_RIGHTS> symbol,
+which indicates that the C<SCM_RIGHTS> is available.  #ifdef is
+not enough because it may be an enum, glibc has been known to do this.
+
+=item C<d_SCNfldbl>
+
+From F<longdblfio.U>:
+
+This variable conditionally defines the PERL_PRIfldbl symbol, which
+indicates that stdio has a symbol to scan long doubles.
+
+=item C<d_seekdir>
+
+From F<d_readdir.U>:
+
+This variable conditionally defines C<HAS_SEEKDIR> if seekdir() is
+available.
+
+=item C<d_select>
+
+From F<d_select.U>:
+
+This variable conditionally defines C<HAS_SELECT> if select() is
+available to select active file descriptors. A <sys/time.h>
+inclusion may be necessary for the timeout field.
+
+=item C<d_sem>
+
+From F<d_sem.U>:
+
+This variable conditionally defines the C<HAS_SEM> symbol, which
+indicates that the entire sem*(2) library is present.
+
+=item C<d_semctl>
+
+From F<d_semctl.U>:
+
+This variable conditionally defines the C<HAS_SEMCTL> symbol, which
+indicates to the C program that the semctl() routine is available.
+
+=item C<d_semctl_semid_ds>
+
+From F<d_union_semun.U>:
+
+This variable conditionally defines C<USE_SEMCTL_SEMID_DS>, which
+indicates that struct semid_ds * is to be used for semctl C<IPC_STAT>.
+
+=item C<d_semctl_semun>
+
+From F<d_union_semun.U>:
+
+This variable conditionally defines C<USE_SEMCTL_SEMUN>, which
+indicates that union semun is to be used for semctl C<IPC_STAT>.
+
+=item C<d_semget>
+
+From F<d_semget.U>:
+
+This variable conditionally defines the C<HAS_SEMGET> symbol, which
+indicates to the C program that the semget() routine is available.
+
+=item C<d_semop>
+
+From F<d_semop.U>:
+
+This variable conditionally defines the C<HAS_SEMOP> symbol, which
+indicates to the C program that the semop() routine is available.
+
+=item C<d_sendmsg>
+
+From F<d_sendmsg.U>:
+
+This variable conditionally defines the C<HAS_SENDMSG> symbol, which
+indicates to the C program that the sendmsg() routine is available.
+
+=item C<d_setegid>
+
+From F<d_setegid.U>:
+
+This variable conditionally defines the C<HAS_SETEGID> symbol, which
+indicates to the C program that the setegid() routine is available
+to change the effective gid of the current program.
+
+=item C<d_seteuid>
+
+From F<d_seteuid.U>:
+
+This variable conditionally defines the C<HAS_SETEUID> symbol, which
+indicates to the C program that the seteuid() routine is available
+to change the effective uid of the current program.
+
+=item C<d_setgrent>
+
+From F<d_setgrent.U>:
+
+This variable conditionally defines the C<HAS_SETGRENT> symbol, which
+indicates to the C program that the setgrent() routine is available
+for initializing sequential access to the group database.
+
+=item C<d_setgrent_r>
+
+From F<d_setgrent_r.U>:
+
+This variable conditionally defines the C<HAS_SETGRENT_R> symbol,
+which indicates to the C program that the setgrent_r()
+routine is available.
+
+=item C<d_setgrps>
+
+From F<d_setgrps.U>:
+
+This variable conditionally defines the C<HAS_SETGROUPS> symbol, which
+indicates to the C program that the setgroups() routine is available
+to set the list of process groups.
+
+=item C<d_sethent>
+
+From F<d_sethent.U>:
+
+This variable conditionally defines C<HAS_SETHOSTENT> if sethostent() is
+available.
+
+=item C<d_sethostent_r>
+
+From F<d_sethostent_r.U>:
+
+This variable conditionally defines the C<HAS_SETHOSTENT_R> symbol,
+which indicates to the C program that the sethostent_r()
+routine is available.
+
+=item C<d_setitimer>
+
+From F<d_setitimer.U>:
+
+This variable conditionally defines the C<HAS_SETITIMER> symbol, which
+indicates to the C program that the setitimer() routine is available.
+
+=item C<d_setlinebuf>
+
+From F<d_setlnbuf.U>:
+
+This variable conditionally defines the C<HAS_SETLINEBUF> symbol, which
+indicates to the C program that the setlinebuf() routine is available
+to change stderr or stdout from block-buffered or unbuffered to a
+line-buffered mode.
+
+=item C<d_setlocale>
+
+From F<d_setlocale.U>:
+
+This variable conditionally defines C<HAS_SETLOCALE> if setlocale() is
+available to handle locale-specific ctype implementations.
+
+=item C<d_setlocale_r>
+
+From F<d_setlocale_r.U>:
+
+This variable conditionally defines the C<HAS_SETLOCALE_R> symbol,
+which indicates to the C program that the setlocale_r()
+routine is available.
+
+=item C<d_setnent>
+
+From F<d_setnent.U>:
+
+This variable conditionally defines C<HAS_SETNETENT> if setnetent() is
+available.
+
+=item C<d_setnetent_r>
+
+From F<d_setnetent_r.U>:
+
+This variable conditionally defines the C<HAS_SETNETENT_R> symbol,
+which indicates to the C program that the setnetent_r()
+routine is available.
+
+=item C<d_setpent>
+
+From F<d_setpent.U>:
+
+This variable conditionally defines C<HAS_SETPROTOENT> if setprotoent() is
+available.
+
+=item C<d_setpgid>
+
+From F<d_setpgid.U>:
+
+This variable conditionally defines the C<HAS_SETPGID> symbol if the
+setpgid(pid, gpid) function is available to set process group C<ID>.
+
+=item C<d_setpgrp>
+
+From F<d_setpgrp.U>:
+
+This variable conditionally defines C<HAS_SETPGRP> if setpgrp() is
+available to set the current process group.
+
+=item C<d_setpgrp2>
+
+From F<d_setpgrp2.U>:
+
+This variable conditionally defines the HAS_SETPGRP2 symbol, which
+indicates to the C program that the setpgrp2() (as in F<DG/C<UX>>) routine
+is available to set the current process group.
+
+=item C<d_setprior>
+
+From F<d_setprior.U>:
+
+This variable conditionally defines C<HAS_SETPRIORITY> if setpriority()
+is available to set a process's priority.
+
+=item C<d_setproctitle>
+
+From F<d_setproctitle.U>:
+
+This variable conditionally defines the C<HAS_SETPROCTITLE> symbol,
+which indicates to the C program that the setproctitle() routine
+is available.
+
+=item C<d_setprotoent_r>
+
+From F<d_setprotoent_r.U>:
+
+This variable conditionally defines the C<HAS_SETPROTOENT_R> symbol,
+which indicates to the C program that the setprotoent_r()
+routine is available.
+
+=item C<d_setpwent>
+
+From F<d_setpwent.U>:
+
+This variable conditionally defines the C<HAS_SETPWENT> symbol, which
+indicates to the C program that the setpwent() routine is available
+for initializing sequential access to the passwd database.
+
+=item C<d_setpwent_r>
+
+From F<d_setpwent_r.U>:
+
+This variable conditionally defines the C<HAS_SETPWENT_R> symbol,
+which indicates to the C program that the setpwent_r()
+routine is available.
+
+=item C<d_setregid>
+
+From F<d_setregid.U>:
+
+This variable conditionally defines C<HAS_SETREGID> if setregid() is
+available to change the real and effective gid of the current
+process.
+
+=item C<d_setresgid>
+
+From F<d_setregid.U>:
+
+This variable conditionally defines C<HAS_SETRESGID> if setresgid() is
+available to change the real, effective and saved gid of the current
+process.
+
+=item C<d_setresuid>
+
+From F<d_setreuid.U>:
+
+This variable conditionally defines C<HAS_SETREUID> if setresuid() is
+available to change the real, effective and saved uid of the current
+process.
+
+=item C<d_setreuid>
+
+From F<d_setreuid.U>:
+
+This variable conditionally defines C<HAS_SETREUID> if setreuid() is
+available to change the real and effective uid of the current
+process.
+
+=item C<d_setrgid>
+
+From F<d_setrgid.U>:
+
+This variable conditionally defines the C<HAS_SETRGID> symbol, which
+indicates to the C program that the setrgid() routine is available
+to change the real gid of the current program.
+
+=item C<d_setruid>
+
+From F<d_setruid.U>:
+
+This variable conditionally defines the C<HAS_SETRUID> symbol, which
+indicates to the C program that the setruid() routine is available
+to change the real uid of the current program.
+
+=item C<d_setsent>
+
+From F<d_setsent.U>:
+
+This variable conditionally defines C<HAS_SETSERVENT> if setservent() is
+available.
+
+=item C<d_setservent_r>
+
+From F<d_setservent_r.U>:
+
+This variable conditionally defines the C<HAS_SETSERVENT_R> symbol,
+which indicates to the C program that the setservent_r()
+routine is available.
+
+=item C<d_setsid>
+
+From F<d_setsid.U>:
+
+This variable conditionally defines C<HAS_SETSID> if setsid() is
+available to set the process group C<ID>.
+
+=item C<d_setvbuf>
+
+From F<d_setvbuf.U>:
+
+This variable conditionally defines the C<HAS_SETVBUF> symbol, which
+indicates to the C program that the setvbuf() routine is available
+to change buffering on an open stdio stream.
+
+=item C<d_shm>
+
+From F<d_shm.U>:
+
+This variable conditionally defines the C<HAS_SHM> symbol, which
+indicates that the entire shm*(2) library is present.
+
+=item C<d_shmat>
+
+From F<d_shmat.U>:
+
+This variable conditionally defines the C<HAS_SHMAT> symbol, which
+indicates to the C program that the shmat() routine is available.
+
+=item C<d_shmatprototype>
+
+From F<d_shmat.U>:
+
+This variable conditionally defines the C<HAS_SHMAT_PROTOTYPE>
+symbol, which indicates that F<sys/shm.h> has a prototype for
+shmat.
+
+=item C<d_shmctl>
+
+From F<d_shmctl.U>:
+
+This variable conditionally defines the C<HAS_SHMCTL> symbol, which
+indicates to the C program that the shmctl() routine is available.
+
+=item C<d_shmdt>
+
+From F<d_shmdt.U>:
+
+This variable conditionally defines the C<HAS_SHMDT> symbol, which
+indicates to the C program that the shmdt() routine is available.
+
+=item C<d_shmget>
+
+From F<d_shmget.U>:
+
+This variable conditionally defines the C<HAS_SHMGET> symbol, which
+indicates to the C program that the shmget() routine is available.
+
+=item C<d_sigaction>
+
+From F<d_sigaction.U>:
+
+This variable conditionally defines the C<HAS_SIGACTION> symbol, which
+indicates that the Vr4 sigaction() routine is available.
+
+=item C<d_siginfo_si_addr>
+
+From F<d_siginfo_si.U>:
+
+This variable conditionally defines the C<HAS_SIGINFO_SI_ADDR> symbol,
+which indicates that the siginfo_t struct has the si_addr member.
+
+=item C<d_siginfo_si_band>
+
+From F<d_siginfo_si.U>:
+
+This variable conditionally defines the C<HAS_SIGINFO_SI_BAND> symbol,
+which indicates that the siginfo_t struct has the si_band member.
+
+=item C<d_siginfo_si_errno>
+
+From F<d_siginfo_si.U>:
+
+This variable conditionally defines the C<HAS_SIGINFO_SI_ERRNO> symbol,
+which indicates that the siginfo_t struct has the si_errno member.
+
+=item C<d_siginfo_si_fd>
+
+From F<d_siginfo_si.U>:
+
+This variable conditionally defines the C<HAS_SIGINFO_SI_FD> symbol,
+which indicates that the siginfo_t struct has the si_fd member.
+
+=item C<d_siginfo_si_pid>
+
+From F<d_siginfo_si.U>:
+
+This variable conditionally defines the C<HAS_SIGINFO_SI_PID> symbol,
+which indicates that the siginfo_t struct has the si_pid member.
+
+=item C<d_siginfo_si_status>
+
+From F<d_siginfo_si.U>:
+
+This variable conditionally defines the C<HAS_SIGINFO_SI_STATUS> symbol,
+which indicates that the siginfo_t struct has the si_status member.
+
+=item C<d_siginfo_si_uid>
+
+From F<d_siginfo_si.U>:
+
+This variable conditionally defines the C<HAS_SIGINFO_SI_UID> symbol,
+which indicates that the siginfo_t struct has the si_uid member.
+
+=item C<d_siginfo_si_value>
+
+From F<d_siginfo_si.U>:
+
+This variable conditionally defines the C<HAS_SIGINFO_SI_VALUE> symbol,
+which indicates that the siginfo_t struct has the si_value member.
+
+=item C<d_signbit>
+
+From F<d_signbit.U>:
+
+This variable conditionally defines the C<HAS_SIGNBIT> symbol, which
+indicates to the C program that the signbit() routine is available
+and safe to use with perl's intern C<NV> type.
+
+=item C<d_sigprocmask>
+
+From F<d_sigprocmask.U>:
+
+This variable conditionally defines C<HAS_SIGPROCMASK>
+if sigprocmask() is available to examine or change the signal mask
+of the calling process.
+
+=item C<d_sigsetjmp>
+
+From F<d_sigsetjmp.U>:
+
+This variable conditionally defines the C<HAS_SIGSETJMP> symbol,
+which indicates that the sigsetjmp() routine is available to
+call setjmp() and optionally save the process's signal mask.
+
+=item C<d_sin6_scope_id>
+
+From F<d_socket.U>:
+
+This variable conditionally defines the HAS_SIN6_SCOPE_ID symbol, which
+indicates that a struct sockaddr_in6 structure has the sin6_scope_id
+member.
+
+=item C<d_sitearch>
+
+From F<sitearch.U>:
+
+This variable conditionally defines C<SITEARCH> to hold the pathname
+of architecture-dependent library files for $package.  If
+$sitearch is the same as $archlib, then this is set to undef.
+
+=item C<d_snprintf>
+
+From F<d_snprintf.U>:
+
+This variable conditionally defines the C<HAS_SNPRINTF> symbol, which
+indicates to the C program that the snprintf () library function
+is available.
+
+=item C<d_sockaddr_in6>
+
+From F<d_socket.U>:
+
+This variable conditionally defines the HAS_SOCKADDR_IN6 symbol, which
+indicates the availability of a struct sockaddr_in6.
+
+=item C<d_sockaddr_sa_len>
+
+From F<d_socket.U>:
+
+This variable conditionally defines the C<HAS_SOCKADDR_SA_LEN> symbol,
+which indicates that a struct sockaddr structure has the sa_len
+member.
+
+=item C<d_sockatmark>
+
+From F<d_sockatmark.U>:
+
+This variable conditionally defines the C<HAS_SOCKATMARK> symbol, which
+indicates to the C program that the sockatmark() routine is available.
+
+=item C<d_sockatmarkproto>
+
+From F<d_sockatmarkproto.U>:
+
+This variable conditionally defines the C<HAS_SOCKATMARK_PROTO> symbol,
+which indicates to the C program that the system provides
+a prototype for the sockatmark() function.  Otherwise, it is
+up to the program to supply one.
+
+=item C<d_socket>
+
+From F<d_socket.U>:
+
+This variable conditionally defines C<HAS_SOCKET>, which indicates
+that the C<BSD> socket interface is supported.
+
+=item C<d_socklen_t>
+
+From F<d_socklen_t.U>:
+
+This symbol will be defined if the C compiler supports socklen_t.
+
+=item C<d_sockpair>
+
+From F<d_socket.U>:
+
+This variable conditionally defines the C<HAS_SOCKETPAIR> symbol, which
+indicates that the C<BSD> socketpair() is supported.
+
+=item C<d_socks5_init>
+
+From F<d_socks5_init.U>:
+
+This variable conditionally defines the HAS_SOCKS5_INIT symbol, which
+indicates to the C program that the socks5_init() routine is available.
+
+=item C<d_sprintf_returns_strlen>
+
+From F<d_sprintf_len.U>:
+
+This variable defines whether sprintf returns the length of the string
+(as per the C<ANSI> spec). Some C libraries retain compatibility with
+pre-C<ANSI> C and return a pointer to the passed in buffer; for these
+this variable will be undef.
+
+=item C<d_sqrtl>
+
+From F<d_sqrtl.U>:
+
+This variable conditionally defines the C<HAS_SQRTL> symbol, which
+indicates to the C program that the sqrtl() routine is available.
+
+=item C<d_srand48_r>
+
+From F<d_srand48_r.U>:
+
+This variable conditionally defines the HAS_SRAND48_R symbol,
+which indicates to the C program that the srand48_r()
+routine is available.
+
+=item C<d_srandom_r>
+
+From F<d_srandom_r.U>:
+
+This variable conditionally defines the C<HAS_SRANDOM_R> symbol,
+which indicates to the C program that the srandom_r()
+routine is available.
+
+=item C<d_sresgproto>
+
+From F<d_sresgproto.U>:
+
+This variable conditionally defines the C<HAS_SETRESGID_PROTO> symbol,
+which indicates to the C program that the system provides
+a prototype for the setresgid() function.  Otherwise, it is
+up to the program to supply one.
+
+=item C<d_sresuproto>
+
+From F<d_sresuproto.U>:
+
+This variable conditionally defines the C<HAS_SETRESUID_PROTO> symbol,
+which indicates to the C program that the system provides
+a prototype for the setresuid() function.  Otherwise, it is
+up to the program to supply one.
+
+=item C<d_stat>
+
+From F<d_stat.U>:
+
+This variable conditionally defines C<HAS_STAT> if stat() is
+available to get file status.
+
+=item C<d_statblks>
+
+From F<d_statblks.U>:
+
+This variable conditionally defines C<USE_STAT_BLOCKS>
+if this system has a stat structure declaring
+st_blksize and st_blocks.
+
+=item C<d_statfs_f_flags>
+
+From F<d_statfs_f_flags.U>:
+
+This variable conditionally defines the C<HAS_STRUCT_STATFS_F_FLAGS>
+symbol, which indicates to struct statfs from has f_flags member.
+This kind of struct statfs is coming from F<sys/mount.h> (C<BSD>),
+not from F<sys/statfs.h> (C<SYSV>).
+
+=item C<d_statfs_s>
+
+From F<d_statfs_s.U>:
+
+This variable conditionally defines the C<HAS_STRUCT_STATFS> symbol,
+which indicates that the struct statfs is supported.
+
+=item C<d_static_inline>
+
+From F<d_static_inline.U>:
+
+This variable conditionally defines the C<HAS_STATIC_INLINE> symbol,
+which indicates that the C compiler supports C99-style static
+inline.  That is, the function can't be called from another
+translation unit.
+
+=item C<d_statvfs>
+
+From F<d_statvfs.U>:
+
+This variable conditionally defines the C<HAS_STATVFS> symbol, which
+indicates to the C program that the statvfs() routine is available.
+
+=item C<d_stdio_cnt_lval>
+
+From F<d_stdstdio.U>:
+
+This variable conditionally defines C<STDIO_CNT_LVALUE> if the
+C<FILE_cnt> macro can be used as an lvalue.
+
+=item C<d_stdio_ptr_lval>
+
+From F<d_stdstdio.U>:
+
+This variable conditionally defines C<STDIO_PTR_LVALUE> if the
+C<FILE_ptr> macro can be used as an lvalue.
+
+=item C<d_stdio_ptr_lval_nochange_cnt>
+
+From F<d_stdstdio.U>:
+
+This symbol is defined if using the C<FILE_ptr> macro as an lvalue
+to increase the pointer by n leaves File_cnt(fp) unchanged.
+
+=item C<d_stdio_ptr_lval_sets_cnt>
+
+From F<d_stdstdio.U>:
+
+This symbol is defined if using the C<FILE_ptr> macro as an lvalue
+to increase the pointer by n has the side effect of decreasing the
+value of File_cnt(fp) by n.
+
+=item C<d_stdio_stream_array>
+
+From F<stdio_streams.U>:
+
+This variable tells whether there is an array holding
+the stdio streams.
+
+=item C<d_stdiobase>
+
+From F<d_stdstdio.U>:
+
+This variable conditionally defines C<USE_STDIO_BASE> if this system
+has a C<FILE> structure declaring a usable _base field (or equivalent)
+in F<stdio.h>.
+
+=item C<d_stdstdio>
+
+From F<d_stdstdio.U>:
+
+This variable conditionally defines C<USE_STDIO_PTR> if this system
+has a C<FILE> structure declaring usable _ptr and _cnt fields (or
+equivalent) in F<stdio.h>.
+
+=item C<d_strchr>
+
+From F<d_strchr.U>:
+
+This variable conditionally defines C<HAS_STRCHR> if strchr() and
+strrchr() are available for string searching.
+
+=item C<d_strcoll>
+
+From F<d_strcoll.U>:
+
+This variable conditionally defines C<HAS_STRCOLL> if strcoll() is
+available to compare strings using collating information.
+
+=item C<d_strctcpy>
+
+From F<d_strctcpy.U>:
+
+This variable conditionally defines the C<USE_STRUCT_COPY> symbol, which
+indicates to the C program that this C compiler knows how to copy
+structures.
+
+=item C<d_strerrm>
+
+From F<d_strerror.U>:
+
+This variable holds what Strerror is defined as to translate an error
+code condition into an error message string. It could be C<strerror>
+or a more C<complex> macro emulating strerror with sys_errlist[], or the
+C<unknown> string when both strerror and sys_errlist are missing.
+
+=item C<d_strerror>
+
+From F<d_strerror.U>:
+
+This variable conditionally defines C<HAS_STRERROR> if strerror() is
+available to translate error numbers to strings.
+
+=item C<d_strerror_r>
+
+From F<d_strerror_r.U>:
+
+This variable conditionally defines the C<HAS_STRERROR_R> symbol,
+which indicates to the C program that the strerror_r()
+routine is available.
+
+=item C<d_strftime>
+
+From F<d_strftime.U>:
+
+This variable conditionally defines the C<HAS_STRFTIME> symbol, which
+indicates to the C program that the strftime() routine is available.
+
+=item C<d_strlcat>
+
+From F<d_strlcat.U>:
+
+This variable conditionally defines the C<HAS_STRLCAT> symbol, which
+indicates to the C program that the strlcat () routine is available.
+
+=item C<d_strlcpy>
+
+From F<d_strlcpy.U>:
+
+This variable conditionally defines the C<HAS_STRLCPY> symbol, which
+indicates to the C program that the strlcpy () routine is available.
+
+=item C<d_strtod>
+
+From F<d_strtod.U>:
+
+This variable conditionally defines the C<HAS_STRTOD> symbol, which
+indicates to the C program that the strtod() routine is available
+to provide better numeric string conversion than atof().
+
+=item C<d_strtol>
+
+From F<d_strtol.U>:
+
+This variable conditionally defines the C<HAS_STRTOL> symbol, which
+indicates to the C program that the strtol() routine is available
+to provide better numeric string conversion than atoi() and friends.
+
+=item C<d_strtold>
+
+From F<d_strtold.U>:
+
+This variable conditionally defines the C<HAS_STRTOLD> symbol, which
+indicates to the C program that the strtold() routine is available.
+
+=item C<d_strtoll>
+
+From F<d_strtoll.U>:
+
+This variable conditionally defines the C<HAS_STRTOLL> symbol, which
+indicates to the C program that the strtoll() routine is available.
+
+=item C<d_strtoq>
+
+From F<d_strtoq.U>:
+
+This variable conditionally defines the C<HAS_STRTOQ> symbol, which
+indicates to the C program that the strtoq() routine is available.
+
+=item C<d_strtoul>
+
+From F<d_strtoul.U>:
+
+This variable conditionally defines the C<HAS_STRTOUL> symbol, which
+indicates to the C program that the strtoul() routine is available
+to provide conversion of strings to unsigned long.
+
+=item C<d_strtoull>
+
+From F<d_strtoull.U>:
+
+This variable conditionally defines the C<HAS_STRTOULL> symbol, which
+indicates to the C program that the strtoull() routine is available.
+
+=item C<d_strtouq>
+
+From F<d_strtouq.U>:
+
+This variable conditionally defines the C<HAS_STRTOUQ> symbol, which
+indicates to the C program that the strtouq() routine is available.
+
+=item C<d_strxfrm>
+
+From F<d_strxfrm.U>:
+
+This variable conditionally defines C<HAS_STRXFRM> if strxfrm() is
+available to transform strings.
+
+=item C<d_suidsafe>
+
+From F<d_dosuid.U>:
+
+This variable conditionally defines C<SETUID_SCRIPTS_ARE_SECURE_NOW>
+if setuid scripts can be secure.  This test looks in F</dev/fd/>.
+
+=item C<d_symlink>
+
+From F<d_symlink.U>:
+
+This variable conditionally defines the C<HAS_SYMLINK> symbol, which
+indicates to the C program that the symlink() routine is available
+to create symbolic links.
+
+=item C<d_syscall>
+
+From F<d_syscall.U>:
+
+This variable conditionally defines C<HAS_SYSCALL> if syscall() is
+available call arbitrary system calls.
+
+=item C<d_syscallproto>
+
+From F<d_syscallproto.U>:
+
+This variable conditionally defines the C<HAS_SYSCALL_PROTO> symbol,
+which indicates to the C program that the system provides
+a prototype for the syscall() function.  Otherwise, it is
+up to the program to supply one.
+
+=item C<d_sysconf>
+
+From F<d_sysconf.U>:
+
+This variable conditionally defines the C<HAS_SYSCONF> symbol, which
+indicates to the C program that the sysconf() routine is available
+to determine system related limits and options.
+
+=item C<d_sysernlst>
+
+From F<d_strerror.U>:
+
+This variable conditionally defines C<HAS_SYS_ERRNOLIST> if sys_errnolist[]
+is available to translate error numbers to the symbolic name.
+
+=item C<d_syserrlst>
+
+From F<d_strerror.U>:
+
+This variable conditionally defines C<HAS_SYS_ERRLIST> if sys_errlist[] is
+available to translate error numbers to strings.
+
+=item C<d_system>
+
+From F<d_system.U>:
+
+This variable conditionally defines C<HAS_SYSTEM> if system() is
+available to issue a shell command.
+
+=item C<d_tcgetpgrp>
+
+From F<d_tcgtpgrp.U>:
+
+This variable conditionally defines the C<HAS_TCGETPGRP> symbol, which
+indicates to the C program that the tcgetpgrp() routine is available.
+to get foreground process group C<ID>.
+
+=item C<d_tcsetpgrp>
+
+From F<d_tcstpgrp.U>:
+
+This variable conditionally defines the C<HAS_TCSETPGRP> symbol, which
+indicates to the C program that the tcsetpgrp() routine is available
+to set foreground process group C<ID>.
+
+=item C<d_telldir>
+
+From F<d_readdir.U>:
+
+This variable conditionally defines C<HAS_TELLDIR> if telldir() is
+available.
+
+=item C<d_telldirproto>
+
+From F<d_telldirproto.U>:
+
+This variable conditionally defines the C<HAS_TELLDIR_PROTO> symbol,
+which indicates to the C program that the system provides
+a prototype for the telldir() function.  Otherwise, it is
+up to the program to supply one.
+
+=item C<d_tgamma>
+
+From F<d_tgamma.U>:
+
+This variable conditionally defines the C<HAS_TGAMMA> symbol, which
+indicates to the C program that the tgamma() routine is available
+for the gamma function.  See also d_lgamma.
+
+=item C<d_time>
+
+From F<d_time.U>:
+
+This variable conditionally defines the C<HAS_TIME> symbol, which indicates
+that the time() routine exists.  The time() routine is normally
+provided on C<UNIX> systems.
+
+=item C<d_timegm>
+
+From F<d_timegm.U>:
+
+This variable conditionally defines the C<HAS_TIMEGM> symbol, which
+indicates to the C program that the timegm () routine is available.
+
+=item C<d_times>
+
+From F<d_times.U>:
+
+This variable conditionally defines the C<HAS_TIMES> symbol, which indicates
+that the times() routine exists.  The times() routine is normally
+provided on C<UNIX> systems. You may have to include <sys/times.h>.
+
+=item C<d_tm_tm_gmtoff>
+
+From F<i_time.U>:
+
+This variable conditionally defines C<HAS_TM_TM_GMTOFF>, which indicates
+indicates to the C program that the struct tm has the tm_gmtoff field.
+
+=item C<d_tm_tm_zone>
+
+From F<i_time.U>:
+
+This variable conditionally defines C<HAS_TM_TM_ZONE>, which indicates
+indicates to the C program that the struct tm has the tm_zone field.
+
+=item C<d_tmpnam_r>
+
+From F<d_tmpnam_r.U>:
+
+This variable conditionally defines the C<HAS_TMPNAM_R> symbol,
+which indicates to the C program that the tmpnam_r()
+routine is available.
+
+=item C<d_trunc>
+
+From F<d_trunc.U>:
+
+This variable conditionally defines the C<HAS_TRUNC> symbol, which
+indicates to the C program that the trunc() routine is available
+to round doubles towards zero.
+
+=item C<d_truncate>
+
+From F<d_truncate.U>:
+
+This variable conditionally defines C<HAS_TRUNCATE> if truncate() is
+available to truncate files.
+
+=item C<d_truncl>
+
+From F<d_truncl.U>:
+
+This variable conditionally defines the C<HAS_TRUNCL> symbol, which
+indicates to the C program that the truncl() routine is available
+to round long doubles towards zero. If copysignl is also present,
+we can emulate modfl.
+
+=item C<d_ttyname_r>
+
+From F<d_ttyname_r.U>:
+
+This variable conditionally defines the C<HAS_TTYNAME_R> symbol,
+which indicates to the C program that the ttyname_r()
+routine is available.
+
+=item C<d_tzname>
+
+From F<d_tzname.U>:
+
+This variable conditionally defines C<HAS_TZNAME> if tzname[] is
+available to access timezone names.
+
+=item C<d_u32align>
+
+From F<d_u32align.U>:
+
+This variable tells whether you must access character data
+through U32-aligned pointers.
+
+=item C<d_ualarm>
+
+From F<d_ualarm.U>:
+
+This variable conditionally defines the C<HAS_UALARM> symbol, which
+indicates to the C program that the ualarm() routine is available.
+
+=item C<d_umask>
+
+From F<d_umask.U>:
+
+This variable conditionally defines the C<HAS_UMASK> symbol, which
+indicates to the C program that the umask() routine is available.
+to set and get the value of the file creation mask.
+
+=item C<d_uname>
+
+From F<d_gethname.U>:
+
+This variable conditionally defines the C<HAS_UNAME> symbol, which
+indicates to the C program that the uname() routine may be
+used to derive the host name.
+
+=item C<d_union_semun>
+
+From F<d_union_semun.U>:
+
+This variable conditionally defines C<HAS_UNION_SEMUN> if the
+union semun is defined by including <sys/sem.h>.
+
+=item C<d_unordered>
+
+From F<d_unordered.U>:
+
+This variable conditionally defines the C<HAS_UNORDERED> symbol, which
+indicates to the C program that the unordered() routine is available.
+
+=item C<d_unsetenv>
+
+From F<d_unsetenv.U>:
+
+This variable conditionally defines the C<HAS_UNSETENV> symbol, which
+indicates to the C program that the unsetenv () routine is available.
+
+=item C<d_uselocale>
+
+From F<d_newlocale.U>:
+
+This variable conditionally defines the C<HAS_USELOCALE> symbol, which
+indicates to the C program that the uselocale() routine is available
+to set the current locale for the calling thread.
+
+=item C<d_usleep>
+
+From F<d_usleep.U>:
+
+This variable conditionally defines C<HAS_USLEEP> if usleep() is
+available to do high granularity sleeps.
+
+=item C<d_usleepproto>
+
+From F<d_usleepproto.U>:
+
+This variable conditionally defines the C<HAS_USLEEP_PROTO> symbol,
+which indicates to the C program that the system provides
+a prototype for the usleep() function.  Otherwise, it is
+up to the program to supply one.
+
+=item C<d_ustat>
+
+From F<d_ustat.U>:
+
+This variable conditionally defines C<HAS_USTAT> if ustat() is
+available to query file system statistics by dev_t.
+
+=item C<d_vendorarch>
+
+From F<vendorarch.U>:
+
+This variable conditionally defined C<PERL_VENDORARCH>.
+
+=item C<d_vendorbin>
+
+From F<vendorbin.U>:
+
+This variable conditionally defines C<PERL_VENDORBIN>.
+
+=item C<d_vendorlib>
+
+From F<vendorlib.U>:
+
+This variable conditionally defines C<PERL_VENDORLIB>.
+
+=item C<d_vendorscript>
+
+From F<vendorscript.U>:
+
+This variable conditionally defines C<PERL_VENDORSCRIPT>.
+
+=item C<d_vfork>
+
+From F<d_vfork.U>:
+
+This variable conditionally defines the C<HAS_VFORK> symbol, which
+indicates the vfork() routine is available.
+
+=item C<d_void_closedir>
+
+From F<d_closedir.U>:
+
+This variable conditionally defines C<VOID_CLOSEDIR> if closedir()
+does not return a value.
+
+=item C<d_voidsig>
+
+From F<d_voidsig.U>:
+
+This variable conditionally defines C<VOIDSIG> if this system
+declares "void (*signal(...))()" in F<signal.h>.  The old way was to
+declare it as "int (*signal(...))()".
+
+=item C<d_voidtty>
+
+From F<i_sysioctl.U>:
+
+This variable conditionally defines C<USE_IOCNOTTY> to indicate that the
+ioctl() call with C<TIOCNOTTY> should be used to void tty association.
+Otherwise (on C<USG> probably), it is enough to close the standard file
+descriptors and do a setpgrp().
+
+=item C<d_volatile>
+
+From F<d_volatile.U>:
+
+This variable conditionally defines the C<HASVOLATILE> symbol, which
+indicates to the C program that this C compiler knows about the
+volatile declaration.
+
+=item C<d_vprintf>
+
+From F<d_vprintf.U>:
+
+This variable conditionally defines the C<HAS_VPRINTF> symbol, which
+indicates to the C program that the vprintf() routine is available
+to printf with a pointer to an argument list.
+
+=item C<d_vsnprintf>
+
+From F<d_snprintf.U>:
+
+This variable conditionally defines the C<HAS_VSNPRINTF> symbol, which
+indicates to the C program that the vsnprintf () library function
+is available.
+
+=item C<d_wait4>
+
+From F<d_wait4.U>:
+
+This variable conditionally defines the HAS_WAIT4 symbol, which
+indicates the wait4() routine is available.
+
+=item C<d_waitpid>
+
+From F<d_waitpid.U>:
+
+This variable conditionally defines C<HAS_WAITPID> if waitpid() is
+available to wait for child process.
+
+=item C<d_wcscmp>
+
+From F<d_wcscmp.U>:
+
+This variable conditionally defines the C<HAS_WCSCMP> symbol if the
+wcscmp() routine is available and can be used to compare wide
+character strings.
+
+=item C<d_wcstombs>
+
+From F<d_wcstombs.U>:
+
+This variable conditionally defines the C<HAS_WCSTOMBS> symbol, which
+indicates to the C program that the wcstombs() routine is available
+to convert wide character strings to multibyte strings.
+
+=item C<d_wcsxfrm>
+
+From F<d_wcsxfrm.U>:
+
+This variable conditionally defines the C<HAS_WCSXFRM> symbol if the
+wcsxfrm() routine is available and can be used to compare wide
+character strings.
+
+=item C<d_wctomb>
+
+From F<d_wctomb.U>:
+
+This variable conditionally defines the C<HAS_WCTOMB> symbol, which
+indicates to the C program that the wctomb() routine is available
+to convert a wide character to a multibyte.
+
+=item C<d_writev>
+
+From F<d_writev.U>:
+
+This variable conditionally defines the C<HAS_WRITEV> symbol, which
+indicates to the C program that the writev() routine is available.
+
+=item C<d_xenix>
+
+From F<Guess.U>:
+
+This variable conditionally defines the symbol C<XENIX>, which alerts
+the C program that it runs under Xenix.
+
+=item C<date>
+
+From F<Loc.U>:
+
+This variable is used internally by Configure to determine the
+full pathname (if any) of the date program.  After Configure runs,
+the value is reset to a plain C<date> and is not useful.
+
+=item C<db_hashtype>
+
+From F<i_db.U>:
+
+This variable contains the type of the hash structure element
+in the <db.h> header file.  In older versions of C<DB>, it was
+int, while in newer ones it is u_int32_t.
+
+=item C<db_prefixtype>
+
+From F<i_db.U>:
+
+This variable contains the type of the prefix structure element
+in the <db.h> header file.  In older versions of C<DB>, it was
+int, while in newer ones it is size_t.
+
+=item C<db_version_major>
+
+From F<i_db.U>:
+
+This variable contains the major version number of
+Berkeley C<DB> found in the <db.h> header file.
+
+=item C<db_version_minor>
+
+From F<i_db.U>:
+
+This variable contains the minor version number of
+Berkeley C<DB> found in the <db.h> header file.
+For C<DB> version 1 this is always 0.
+
+=item C<db_version_patch>
+
+From F<i_db.U>:
+
+This variable contains the patch version number of
+Berkeley C<DB> found in the <db.h> header file.
+For C<DB> version 1 this is always 0.
+
+=item C<direntrytype>
+
+From F<i_dirent.U>:
+
+This symbol is set to C<struct direct> or C<struct dirent> depending on
+whether dirent is available or not. You should use this pseudo type to
+portably declare your directory entries.
+
+=item C<dlext>
+
+From F<dlext.U>:
+
+This variable contains the extension that is to be used for the
+dynamically loaded modules that perl generates.
+
+=item C<dlsrc>
+
+From F<dlsrc.U>:
+
+This variable contains the name of the dynamic loading file that
+will be used with the package.
+
+=item C<doubleinfbytes>
+
+From F<infnan.U>:
+
+This variable contains comma-separated list of hexadecimal bytes
+for the double precision infinity.
+
+=item C<doublekind>
+
+From F<longdblfio.U>:
+
+This variable, if defined, encodes the type of a double:
+1 = C<IEEE> 754 32-bit little endian,
+2 = C<IEEE> 754 32-bit big endian,
+3 = C<IEEE> 754 64-bit little endian,
+4 = C<IEEE> 754 64-bit big endian,
+5 = C<IEEE> 754 128-bit little endian,
+6 = C<IEEE> 754 128-bit big endian,
+7 = C<IEEE> 754 64-bit mixed endian le-be,
+8 = C<IEEE> 754 64-bit mixed endian be-le,
+-1 = unknown format.
+
+=item C<doublemantbits>
+
+From F<mantbits.U>:
+
+This symbol, if defined, tells how many mantissa bits
+there are in double precision floating point format.
+Note that this is usually C<DBL_MANT_DIG> minus one, since
+with the standard C<IEEE> 754 formats C<DBL_MANT_DIG> includes
+the implicit bit which doesn't really exist.
+
+=item C<doublenanbytes>
+
+From F<infnan.U>:
+
+This variable contains comma-separated list of hexadecimal bytes
+for the double precision not-a-number.
+
+=item C<doublesize>
+
+From F<doublesize.U>:
+
+This variable contains the value of the C<DOUBLESIZE> symbol, which
+indicates to the C program how many bytes there are in a double.
+
+=item C<drand01>
+
+From F<randfunc.U>:
+
+Indicates the macro to be used to generate normalized
+random numbers.  Uses randfunc, often divided by
+(double) (((unsigned long) 1 << randbits)) in order to
+normalize the result.
+In C programs, the macro C<Drand01> is mapped to drand01.
+
+=item C<drand48_r_proto>
+
+From F<d_drand48_r.U>:
+
+This variable encodes the prototype of drand48_r.
+It is zero if d_drand48_r is undef, and one of the
+C<REENTRANT_PROTO_T_ABC> macros of F<reentr.h> if d_drand48_r
+is defined.
+
+=item C<dtrace>
+
+From F<usedtrace.U>:
+
+This variable holds the location of the dtrace executable.
+
+=item C<dtraceobject>
+
+From F<dtraceobject.U>:
+
+Whether we need to build an object file with the dtrace tool.
+
+=item C<dynamic_ext>
+
+From F<Extensions.U>:
+
+This variable holds a list of C<XS> extension files we want to
+link dynamically into the package.  It is used by Makefile.
+
+=back
+
+=cut
+
+=head2 e
+
+=over 4
+
+=cut
+
+=item C<eagain>
+
+From F<nblock_io.U>:
+
+This variable bears the symbolic errno code set by read() when no
+data is present on the file and non-blocking I/O was enabled (otherwise,
+read() blocks naturally).
+
+=item C<ebcdic>
+
+From F<ebcdic.U>:
+
+This variable conditionally defines C<EBCDIC> if this
+system uses C<EBCDIC> encoding.
+
+=item C<echo>
+
+From F<Loc.U>:
+
+This variable is used internally by Configure to determine the
+full pathname (if any) of the echo program.  After Configure runs,
+the value is reset to a plain C<echo> and is not useful.
+
+=item C<egrep>
+
+From F<Loc.U>:
+
+This variable is used internally by Configure to determine the
+full pathname (if any) of the egrep program.  After Configure runs,
+the value is reset to a plain C<egrep> and is not useful.
+
+=item C<emacs>
+
+From F<Loc.U>:
+
+This variable is defined but not used by Configure.
+The value is the empty string and is not useful.
+
+=item C<endgrent_r_proto>
+
+From F<d_endgrent_r.U>:
+
+This variable encodes the prototype of endgrent_r.
+It is zero if d_endgrent_r is undef, and one of the
+C<REENTRANT_PROTO_T_ABC> macros of F<reentr.h> if d_endgrent_r
+is defined.
+
+=item C<endhostent_r_proto>
+
+From F<d_endhostent_r.U>:
+
+This variable encodes the prototype of endhostent_r.
+It is zero if d_endhostent_r is undef, and one of the
+C<REENTRANT_PROTO_T_ABC> macros of F<reentr.h> if d_endhostent_r
+is defined.
+
+=item C<endnetent_r_proto>
+
+From F<d_endnetent_r.U>:
+
+This variable encodes the prototype of endnetent_r.
+It is zero if d_endnetent_r is undef, and one of the
+C<REENTRANT_PROTO_T_ABC> macros of F<reentr.h> if d_endnetent_r
+is defined.
+
+=item C<endprotoent_r_proto>
+
+From F<d_endprotoent_r.U>:
+
+This variable encodes the prototype of endprotoent_r.
+It is zero if d_endprotoent_r is undef, and one of the
+C<REENTRANT_PROTO_T_ABC> macros of F<reentr.h> if d_endprotoent_r
+is defined.
+
+=item C<endpwent_r_proto>
+
+From F<d_endpwent_r.U>:
+
+This variable encodes the prototype of endpwent_r.
+It is zero if d_endpwent_r is undef, and one of the
+C<REENTRANT_PROTO_T_ABC> macros of F<reentr.h> if d_endpwent_r
+is defined.
+
+=item C<endservent_r_proto>
+
+From F<d_endservent_r.U>:
+
+This variable encodes the prototype of endservent_r.
+It is zero if d_endservent_r is undef, and one of the
+C<REENTRANT_PROTO_T_ABC> macros of F<reentr.h> if d_endservent_r
+is defined.
+
+=item C<eunicefix>
+
+From F<Init.U>:
+
+When running under Eunice this variable contains a command which will
+convert a shell script to the proper form of text file for it to be
+executable by the shell.  On other systems it is a no-op.
+
+=item C<exe_ext>
+
+From F<Unix.U>:
+
+This is an old synonym for _exe.
+
+=item C<expr>
+
+From F<Loc.U>:
+
+This variable is used internally by Configure to determine the
+full pathname (if any) of the expr program.  After Configure runs,
+the value is reset to a plain C<expr> and is not useful.
+
+=item C<extensions>
+
+From F<Extensions.U>:
+
+This variable holds a list of all extension files (both C<XS> and
+non-xs) installed with the package.  It is propagated to F<Config.pm>
+and is typically used to test whether a particular extension
+is available.
+
+=item C<extern_C>
+
+From F<Csym.U>:
+
+C<ANSI> C requires C<extern> where C++ requires 'extern C<C>'. This
+variable can be used in Configure to do the right thing.
+
+=item C<extras>
+
+From F<Extras.U>:
+
+This variable holds a list of extra modules to install.
+
+=back
+
+=cut
+
+=head2 f
+
+=over 4
+
+=cut
+
+=item C<fflushall>
+
+From F<fflushall.U>:
+
+This symbol, if defined, tells that to flush
+all pending stdio output one must loop through all
+the stdio file handles stored in an array and fflush them.
+Note that if fflushNULL is defined, fflushall will not
+even be probed for and will be left undefined.
+
+=item C<fflushNULL>
+
+From F<fflushall.U>:
+
+This symbol, if defined, tells that fflush(C<NULL>) correctly
+flushes all pending stdio output without side effects. In
+particular, on some platforms calling fflush(C<NULL>) *still*
+corrupts C<STDIN> if it is a pipe.
+
+=item C<find>
+
+From F<Loc.U>:
+
+This variable is defined but not used by Configure.
+The value is the empty string and is not useful.
+
+=item C<firstmakefile>
+
+From F<Unix.U>:
+
+This variable defines the first file searched by make.  On unix,
+it is makefile (then Makefile).  On case-insensitive systems,
+it might be something else.  This is only used to deal with
+convoluted make depend tricks.
+
+=item C<flex>
+
+From F<Loc.U>:
+
+This variable is defined but not used by Configure.
+The value is the empty string and is not useful.
+
+=item C<fpossize>
+
+From F<fpossize.U>:
+
+This variable contains the size of a fpostype in bytes.
+
+=item C<fpostype>
+
+From F<fpostype.U>:
+
+This variable defines Fpos_t to be something like fpos_t, long,
+uint, or whatever type is used to declare file positions in libc.
+
+=item C<freetype>
+
+From F<mallocsrc.U>:
+
+This variable contains the return type of free().  It is usually
+void, but occasionally int.
+
+=item C<from>
+
+From F<Cross.U>:
+
+This variable contains the command used by Configure
+to copy files from the target host.  Useful and available
+only during Perl build.
+The string C<:> if not cross-compiling.
+
+=item C<full_ar>
+
+From F<Loc_ar.U>:
+
+This variable contains the full pathname to C<ar>, whether or
+not the user has specified C<portability>.  This is only used
+in the F<Makefile.SH>.
+
+=item C<full_csh>
+
+From F<d_csh.U>:
+
+This variable contains the full pathname to C<csh>, whether or
+not the user has specified C<portability>.  This is only used
+in the compiled C program, and we assume that all systems which
+can share this executable will have the same full pathname to
+F<csh.>
+
+=item C<full_sed>
+
+From F<Loc_sed.U>:
+
+This variable contains the full pathname to C<sed>, whether or
+not the user has specified C<portability>.  This is only used
+in the compiled C program, and we assume that all systems which
+can share this executable will have the same full pathname to
+F<sed.>
+
+=back
+
+=cut
+
+=head2 g
+
+=over 4
+
+=cut
+
+=item C<gccansipedantic>
+
+From F<gccvers.U>:
+
+If C<GNU> cc (gcc) is used, this variable will enable (if set) the
+-ansi and -pedantic ccflags for building core files (through
+cflags script). (See F<Porting/pumpkin.pod> for full description).
+
+=item C<gccosandvers>
+
+From F<gccvers.U>:
+
+If C<GNU> cc (gcc) is used, this variable holds the operating system
+and version used to compile gcc.  It is set to '' if not gcc,
+or if nothing useful can be parsed as the os version.
+
+=item C<gccversion>
+
+From F<gccvers.U>:
+
+If C<GNU> cc (gcc) is used, this variable holds C<1> or C<2> to
+indicate whether the compiler is version 1 or 2.  This is used in
+setting some of the default cflags.  It is set to '' if not gcc.
+
+=item C<getgrent_r_proto>
+
+From F<d_getgrent_r.U>:
+
+This variable encodes the prototype of getgrent_r.
+It is zero if d_getgrent_r is undef, and one of the
+C<REENTRANT_PROTO_T_ABC> macros of F<reentr.h> if d_getgrent_r
+is defined.
+
+=item C<getgrgid_r_proto>
+
+From F<d_getgrgid_r.U>:
+
+This variable encodes the prototype of getgrgid_r.
+It is zero if d_getgrgid_r is undef, and one of the
+C<REENTRANT_PROTO_T_ABC> macros of F<reentr.h> if d_getgrgid_r
+is defined.
+
+=item C<getgrnam_r_proto>
+
+From F<d_getgrnam_r.U>:
+
+This variable encodes the prototype of getgrnam_r.
+It is zero if d_getgrnam_r is undef, and one of the
+C<REENTRANT_PROTO_T_ABC> macros of F<reentr.h> if d_getgrnam_r
+is defined.
+
+=item C<gethostbyaddr_r_proto>
+
+From F<d_gethostbyaddr_r.U>:
+
+This variable encodes the prototype of gethostbyaddr_r.
+It is zero if d_gethostbyaddr_r is undef, and one of the
+C<REENTRANT_PROTO_T_ABC> macros of F<reentr.h> if d_gethostbyaddr_r
+is defined.
+
+=item C<gethostbyname_r_proto>
+
+From F<d_gethostbyname_r.U>:
+
+This variable encodes the prototype of gethostbyname_r.
+It is zero if d_gethostbyname_r is undef, and one of the
+C<REENTRANT_PROTO_T_ABC> macros of F<reentr.h> if d_gethostbyname_r
+is defined.
+
+=item C<gethostent_r_proto>
+
+From F<d_gethostent_r.U>:
+
+This variable encodes the prototype of gethostent_r.
+It is zero if d_gethostent_r is undef, and one of the
+C<REENTRANT_PROTO_T_ABC> macros of F<reentr.h> if d_gethostent_r
+is defined.
+
+=item C<getlogin_r_proto>
+
+From F<d_getlogin_r.U>:
+
+This variable encodes the prototype of getlogin_r.
+It is zero if d_getlogin_r is undef, and one of the
+C<REENTRANT_PROTO_T_ABC> macros of F<reentr.h> if d_getlogin_r
+is defined.
+
+=item C<getnetbyaddr_r_proto>
+
+From F<d_getnetbyaddr_r.U>:
+
+This variable encodes the prototype of getnetbyaddr_r.
+It is zero if d_getnetbyaddr_r is undef, and one of the
+C<REENTRANT_PROTO_T_ABC> macros of F<reentr.h> if d_getnetbyaddr_r
+is defined.
+
+=item C<getnetbyname_r_proto>
+
+From F<d_getnetbyname_r.U>:
+
+This variable encodes the prototype of getnetbyname_r.
+It is zero if d_getnetbyname_r is undef, and one of the
+C<REENTRANT_PROTO_T_ABC> macros of F<reentr.h> if d_getnetbyname_r
+is defined.
+
+=item C<getnetent_r_proto>
+
+From F<d_getnetent_r.U>:
+
+This variable encodes the prototype of getnetent_r.
+It is zero if d_getnetent_r is undef, and one of the
+C<REENTRANT_PROTO_T_ABC> macros of F<reentr.h> if d_getnetent_r
+is defined.
+
+=item C<getprotobyname_r_proto>
+
+From F<d_getprotobyname_r.U>:
+
+This variable encodes the prototype of getprotobyname_r.
+It is zero if d_getprotobyname_r is undef, and one of the
+C<REENTRANT_PROTO_T_ABC> macros of F<reentr.h> if d_getprotobyname_r
+is defined.
+
+=item C<getprotobynumber_r_proto>
+
+From F<d_getprotobynumber_r.U>:
+
+This variable encodes the prototype of getprotobynumber_r.
+It is zero if d_getprotobynumber_r is undef, and one of the
+C<REENTRANT_PROTO_T_ABC> macros of F<reentr.h> if d_getprotobynumber_r
+is defined.
+
+=item C<getprotoent_r_proto>
+
+From F<d_getprotoent_r.U>:
+
+This variable encodes the prototype of getprotoent_r.
+It is zero if d_getprotoent_r is undef, and one of the
+C<REENTRANT_PROTO_T_ABC> macros of F<reentr.h> if d_getprotoent_r
+is defined.
+
+=item C<getpwent_r_proto>
+
+From F<d_getpwent_r.U>:
+
+This variable encodes the prototype of getpwent_r.
+It is zero if d_getpwent_r is undef, and one of the
+C<REENTRANT_PROTO_T_ABC> macros of F<reentr.h> if d_getpwent_r
+is defined.
+
+=item C<getpwnam_r_proto>
+
+From F<d_getpwnam_r.U>:
+
+This variable encodes the prototype of getpwnam_r.
+It is zero if d_getpwnam_r is undef, and one of the
+C<REENTRANT_PROTO_T_ABC> macros of F<reentr.h> if d_getpwnam_r
+is defined.
+
+=item C<getpwuid_r_proto>
+
+From F<d_getpwuid_r.U>:
+
+This variable encodes the prototype of getpwuid_r.
+It is zero if d_getpwuid_r is undef, and one of the
+C<REENTRANT_PROTO_T_ABC> macros of F<reentr.h> if d_getpwuid_r
+is defined.
+
+=item C<getservbyname_r_proto>
+
+From F<d_getservbyname_r.U>:
+
+This variable encodes the prototype of getservbyname_r.
+It is zero if d_getservbyname_r is undef, and one of the
+C<REENTRANT_PROTO_T_ABC> macros of F<reentr.h> if d_getservbyname_r
+is defined.
+
+=item C<getservbyport_r_proto>
+
+From F<d_getservbyport_r.U>:
+
+This variable encodes the prototype of getservbyport_r.
+It is zero if d_getservbyport_r is undef, and one of the
+C<REENTRANT_PROTO_T_ABC> macros of F<reentr.h> if d_getservbyport_r
+is defined.
+
+=item C<getservent_r_proto>
+
+From F<d_getservent_r.U>:
+
+This variable encodes the prototype of getservent_r.
+It is zero if d_getservent_r is undef, and one of the
+C<REENTRANT_PROTO_T_ABC> macros of F<reentr.h> if d_getservent_r
+is defined.
+
+=item C<getspnam_r_proto>
+
+From F<d_getspnam_r.U>:
+
+This variable encodes the prototype of getspnam_r.
+It is zero if d_getspnam_r is undef, and one of the
+C<REENTRANT_PROTO_T_ABC> macros of F<reentr.h> if d_getspnam_r
+is defined.
+
+=item C<gidformat>
+
+From F<gidf.U>:
+
+This variable contains the format string used for printing a Gid_t.
+
+=item C<gidsign>
+
+From F<gidsign.U>:
+
+This variable contains the signedness of a gidtype.
+1 for unsigned, -1 for signed.
+
+=item C<gidsize>
+
+From F<gidsize.U>:
+
+This variable contains the size of a gidtype in bytes.
+
+=item C<gidtype>
+
+From F<gidtype.U>:
+
+This variable defines Gid_t to be something like gid_t, int,
+ushort, or whatever type is used to declare the return type
+of getgid().  Typically, it is the type of group ids in the kernel.
+
+=item C<glibpth>
+
+From F<libpth.U>:
+
+This variable holds the general path (space-separated) used to
+find libraries.  It may contain directories that do not exist on
+this platform, libpth is the cleaned-up version.
+
+=item C<gmake>
+
+From F<Loc.U>:
+
+This variable is used internally by Configure to determine the
+full pathname (if any) of the gmake program.  After Configure runs,
+the value is reset to a plain C<gmake> and is not useful.
+
+=item C<gmtime_r_proto>
+
+From F<d_gmtime_r.U>:
+
+This variable encodes the prototype of gmtime_r.
+It is zero if d_gmtime_r is undef, and one of the
+C<REENTRANT_PROTO_T_ABC> macros of F<reentr.h> if d_gmtime_r
+is defined.
+
+=item C<gnulibc_version>
+
+From F<d_gnulibc.U>:
+
+This variable contains the version number of the C<GNU> C library.
+It is usually something like F<2.2.5>.  It is a plain '' if this
+is not the C<GNU> C library, or if the version is unknown.
+
+=item C<grep>
+
+From F<Loc.U>:
+
+This variable is used internally by Configure to determine the
+full pathname (if any) of the grep program.  After Configure runs,
+the value is reset to a plain C<grep> and is not useful.
+
+=item C<groupcat>
+
+From F<nis.U>:
+
+This variable contains a command that produces the text of the
+F</etc/group> file.  This is normally "cat F</etc/group>", but can be
+"ypcat group" when C<NIS> is used.
+On some systems, such as os390, there may be no equivalent
+command, in which case this variable is unset.
+
+=item C<groupstype>
+
+From F<groupstype.U>:
+
+This variable defines Groups_t to be something like gid_t, int,
+ushort, or whatever type is used for the second argument to
+getgroups() and setgroups().  Usually, this is the same as
+gidtype (gid_t), but sometimes it isn't.
+
+=item C<gzip>
+
+From F<Loc.U>:
+
+This variable is used internally by Configure to determine the
+full pathname (if any) of the gzip program.  After Configure runs,
+the value is reset to a plain C<gzip> and is not useful.
+
+=back
+
+=cut
+
+=head2 h
+
+=over 4
+
+=cut
+
+=item C<h_fcntl>
+
+From F<h_fcntl.U>:
+
+This is variable gets set in various places to tell i_fcntl that
+<fcntl.h> should be included.
+
+=item C<h_sysfile>
+
+From F<h_sysfile.U>:
+
+This is variable gets set in various places to tell i_sys_file that
+<sys/file.h> should be included.
+
+=item C<hint>
+
+From F<Oldconfig.U>:
+
+Gives the type of hints used for previous answers. May be one of
+C<default>, C<recommended> or C<previous>.
+
+=item C<hostcat>
+
+From F<nis.U>:
+
+This variable contains a command that produces the text of the
+F</etc/hosts> file.  This is normally "cat F</etc/hosts>", but can be
+"ypcat hosts" when C<NIS> is used.
+On some systems, such as os390, there may be no equivalent
+command, in which case this variable is unset.
+
+=item C<hostgenerate>
+
+From F<Cross.U>:
+
+This variable contains the path to a generate_uudmap binary that
+can be run on the host C<OS> when cross-compiling.  Useful and
+available only during Perl build.
+Empty string '' if not cross-compiling.
+
+=item C<hostosname>
+
+From F<Cross.U>:
+
+This variable contains the original value of C<$^O> for hostperl
+when cross-compiling.  This is useful to pick the proper tools
+when running build code in the host.
+Empty string '' if not cross-compiling.
+
+=item C<hostperl>
+
+From F<Cross.U>:
+
+This variable contains the path to a miniperl binary that can be
+run on the host C<OS> when cross-compiling.  Useful and available only
+during Perl build.
+Empty string '' if not cross-compiling.
+
+=item C<html1dir>
+
+From F<html1dir.U>:
+
+This variable contains the name of the directory in which html
+source pages are to be put.  This directory is for pages
+that describe whole programs, not libraries or modules.  It
+is intended to correspond roughly to section 1 of the Unix
+manuals.
+
+=item C<html1direxp>
+
+From F<html1dir.U>:
+
+This variable is the same as the html1dir variable, but is filename
+expanded at configuration time, for convenient use in makefiles.
+
+=item C<html3dir>
+
+From F<html3dir.U>:
+
+This variable contains the name of the directory in which html
+source pages are to be put.  This directory is for pages
+that describe libraries or modules.  It is intended to
+correspond roughly to section 3 of the Unix manuals.
+
+=item C<html3direxp>
+
+From F<html3dir.U>:
+
+This variable is the same as the html3dir variable, but is filename
+expanded at configuration time, for convenient use in makefiles.
+
+=back
+
+=cut
+
+=head2 i
+
+=over 4
+
+=cut
+
+=item C<i16size>
+
+From F<perlxv.U>:
+
+This variable is the size of an I16 in bytes.
+
+=item C<i16type>
+
+From F<perlxv.U>:
+
+This variable contains the C type used for Perl's I16.
+
+=item C<i32size>
+
+From F<perlxv.U>:
+
+This variable is the size of an I32 in bytes.
+
+=item C<i32type>
+
+From F<perlxv.U>:
+
+This variable contains the C type used for Perl's I32.
+
+=item C<i64size>
+
+From F<perlxv.U>:
+
+This variable is the size of an I64 in bytes.
+
+=item C<i64type>
+
+From F<perlxv.U>:
+
+This variable contains the C type used for Perl's I64.
+
+=item C<i8size>
+
+From F<perlxv.U>:
+
+This variable is the size of an I8 in bytes.
+
+=item C<i8type>
+
+From F<perlxv.U>:
+
+This variable contains the C type used for Perl's I8.
+
+=item C<i_arpainet>
+
+From F<i_arpainet.U>:
+
+This variable conditionally defines the C<I_ARPA_INET> symbol,
+and indicates whether a C program should include <arpa/inet.h>.
+
+=item C<i_assert>
+
+From F<i_assert.U>:
+
+This variable conditionally defines the C<I_ASSERT> symbol, which
+indicates to the C program that <assert.h> exists and could be
+included.
+
+=item C<i_bfd>
+
+From F<i_bfd.U>:
+
+This variable conditionally defines the C<I_BFD> symbol, and
+indicates whether a C program can include <bfd.h>.
+
+=item C<i_bsdioctl>
+
+From F<i_sysioctl.U>:
+
+This variable conditionally defines the C<I_SYS_BSDIOCTL> symbol, which
+indicates to the C program that <sys/bsdioctl.h> exists and should
+be included.
+
+=item C<i_crypt>
+
+From F<i_crypt.U>:
+
+This variable conditionally defines the C<I_CRYPT> symbol, and indicates
+whether a C program should include <crypt.h>.
+
+=item C<i_db>
+
+From F<i_db.U>:
+
+This variable conditionally defines the C<I_DB> symbol, and indicates
+whether a C program may include Berkeley's C<DB> include file <db.h>.
+
+=item C<i_dbm>
+
+From F<i_dbm.U>:
+
+This variable conditionally defines the C<I_DBM> symbol, which
+indicates to the C program that <dbm.h> exists and should
+be included.
+
+=item C<i_dirent>
+
+From F<i_dirent.U>:
+
+This variable conditionally defines C<I_DIRENT>, which indicates
+to the C program that it should include <dirent.h>.
+
+=item C<i_dlfcn>
+
+From F<i_dlfcn.U>:
+
+This variable conditionally defines the C<I_DLFCN> symbol, which
+indicates to the C program that <dlfcn.h> exists and should
+be included.
+
+=item C<i_execinfo>
+
+From F<i_execinfo.U>:
+
+This variable conditionally defines the C<I_EXECINFO> symbol, and indicates
+whether a C program may include <execinfo.h>, for backtrace() support.
+
+=item C<i_fcntl>
+
+From F<i_fcntl.U>:
+
+This variable controls the value of C<I_FCNTL> (which tells
+the C program to include <fcntl.h>).
+
+=item C<i_fenv>
+
+From F<i_fenv.U>:
+
+This variable conditionally defines the C<I_FENV> symbol, which
+indicates to the C program that <fenv.h> exists and should
+be included.
+
+=item C<i_float>
+
+From F<i_float.U>:
+
+This variable conditionally defines the C<I_FLOAT> symbol, and indicates
+whether a C program may include <float.h> to get symbols like C<DBL_MAX>
+or C<DBL_MIN>, F<i.e>. machine dependent floating point values.
+
+=item C<i_fp>
+
+From F<i_fp.U>:
+
+This variable conditionally defines the C<I_FP> symbol, and indicates
+whether a C program should include <fp.h>.
+
+=item C<i_fp_class>
+
+From F<i_fp_class.U>:
+
+This variable conditionally defines the C<I_FP_CLASS> symbol, and indicates
+whether a C program should include <fp_class.h>.
+
+=item C<i_gdbm>
+
+From F<i_gdbm.U>:
+
+This variable conditionally defines the C<I_GDBM> symbol, which
+indicates to the C program that <gdbm.h> exists and should
+be included.
+
+=item C<i_gdbm_ndbm>
+
+From F<i_ndbm.U>:
+
+This variable conditionally defines the C<I_GDBM_NDBM> symbol, which
+indicates to the C program that <gdbm-F<ndbm.h>> exists and should
+be included.  This is the location of the F<ndbm.h> compatibility file
+in Debian 4.0.
+
+=item C<i_gdbmndbm>
+
+From F<i_ndbm.U>:
+
+This variable conditionally defines the C<I_GDBMNDBM> symbol, which
+indicates to the C program that <gdbm/ndbm.h> exists and should
+be included.  This was the location of the F<ndbm.h> compatibility file
+in RedHat 7.1.
+
+=item C<i_grp>
+
+From F<i_grp.U>:
+
+This variable conditionally defines the C<I_GRP> symbol, and indicates
+whether a C program should include <grp.h>.
+
+=item C<i_ieeefp>
+
+From F<i_ieeefp.U>:
+
+This variable conditionally defines the C<I_IEEEFP> symbol, and indicates
+whether a C program should include <ieeefp.h>.
+
+=item C<i_inttypes>
+
+From F<i_inttypes.U>:
+
+This variable conditionally defines the C<I_INTTYPES> symbol,
+and indicates whether a C program should include <inttypes.h>.
+
+=item C<i_langinfo>
+
+From F<i_langinfo.U>:
+
+This variable conditionally defines the C<I_LANGINFO> symbol,
+and indicates whether a C program should include <langinfo.h>.
+
+=item C<i_libutil>
+
+From F<i_libutil.U>:
+
+This variable conditionally defines the C<I_LIBUTIL> symbol, and indicates
+whether a C program should include <libutil.h>.
+
+=item C<i_limits>
+
+From F<i_limits.U>:
+
+This variable conditionally defines the C<I_LIMITS> symbol, and indicates
+whether a C program may include <limits.h> to get symbols like C<WORD_BIT>
+and friends.
+
+=item C<i_locale>
+
+From F<i_locale.U>:
+
+This variable conditionally defines the C<I_LOCALE> symbol,
+and indicates whether a C program should include <locale.h>.
+
+=item C<i_machcthr>
+
+From F<i_machcthr.U>:
+
+This variable conditionally defines the C<I_MACH_CTHREADS> symbol,
+and indicates whether a C program should include <mach/cthreads.h>.
+
+=item C<i_malloc>
+
+From F<i_malloc.U>:
+
+This variable conditionally defines the C<I_MALLOC> symbol, and indicates
+whether a C program should include <malloc.h>.
+
+=item C<i_mallocmalloc>
+
+From F<i_mallocmalloc.U>:
+
+This variable conditionally defines the C<I_MALLOCMALLOC> symbol,
+and indicates whether a C program should include <malloc/malloc.h>.
+
+=item C<i_math>
+
+From F<i_math.U>:
+
+This variable conditionally defines the C<I_MATH> symbol, and indicates
+whether a C program may include <math.h>.
+
+=item C<i_memory>
+
+From F<i_memory.U>:
+
+This variable conditionally defines the C<I_MEMORY> symbol, and indicates
+whether a C program should include <memory.h>.
+
+=item C<i_mntent>
+
+From F<i_mntent.U>:
+
+This variable conditionally defines the C<I_MNTENT> symbol, and indicates
+whether a C program should include <mntent.h>.
+
+=item C<i_ndbm>
+
+From F<i_ndbm.U>:
+
+This variable conditionally defines the C<I_NDBM> symbol, which
+indicates to the C program that <ndbm.h> exists and should
+be included.
+
+=item C<i_netdb>
+
+From F<i_netdb.U>:
+
+This variable conditionally defines the C<I_NETDB> symbol, and indicates
+whether a C program should include <netdb.h>.
+
+=item C<i_neterrno>
+
+From F<i_neterrno.U>:
+
+This variable conditionally defines the C<I_NET_ERRNO> symbol, which
+indicates to the C program that <net/errno.h> exists and should
+be included.
+
+=item C<i_netinettcp>
+
+From F<i_netinettcp.U>:
+
+This variable conditionally defines the C<I_NETINET_TCP> symbol,
+and indicates whether a C program should include <netinet/tcp.h>.
+
+=item C<i_niin>
+
+From F<i_niin.U>:
+
+This variable conditionally defines C<I_NETINET_IN>, which indicates
+to the C program that it should include <netinet/in.h>. Otherwise,
+you may try <sys/in.h>.
+
+=item C<i_poll>
+
+From F<i_poll.U>:
+
+This variable conditionally defines the C<I_POLL> symbol, and indicates
+whether a C program should include <poll.h>.
+
+=item C<i_prot>
+
+From F<i_prot.U>:
+
+This variable conditionally defines the C<I_PROT> symbol, and indicates
+whether a C program should include <prot.h>.
+
+=item C<i_pthread>
+
+From F<i_pthread.U>:
+
+This variable conditionally defines the C<I_PTHREAD> symbol,
+and indicates whether a C program should include <pthread.h>.
+
+=item C<i_pwd>
+
+From F<i_pwd.U>:
+
+This variable conditionally defines C<I_PWD>, which indicates
+to the C program that it should include <pwd.h>.
+
+=item C<i_quadmath>
+
+From F<i_quadmath.U>:
+
+This variable conditionally defines C<I_QUADMATH>, which indicates
+to the C program that it should include <quadmath.h>.
+
+=item C<i_rpcsvcdbm>
+
+From F<i_dbm.U>:
+
+This variable conditionally defines the C<I_RPCSVC_DBM> symbol, which
+indicates to the C program that <rpcsvc/dbm.h> exists and should
+be included.  Some System V systems might need this instead of <dbm.h>.
+
+=item C<i_sgtty>
+
+From F<i_termio.U>:
+
+This variable conditionally defines the C<I_SGTTY> symbol, which
+indicates to the C program that it should include <sgtty.h> rather
+than <termio.h>.
+
+=item C<i_shadow>
+
+From F<i_shadow.U>:
+
+This variable conditionally defines the C<I_SHADOW> symbol, and indicates
+whether a C program should include <shadow.h>.
+
+=item C<i_socks>
+
+From F<i_socks.U>:
+
+This variable conditionally defines the C<I_SOCKS> symbol, and indicates
+whether a C program should include <socks.h>.
+
+=item C<i_stdarg>
+
+From F<i_varhdr.U>:
+
+This variable conditionally defines the C<I_STDARG> symbol, which
+indicates to the C program that <stdarg.h> exists and should
+be included.
+
+=item C<i_stdbool>
+
+From F<i_stdbool.U>:
+
+This variable conditionally defines the C<I_STDBOOL> symbol, which
+indicates to the C program that <stdbool.h> exists and should
+be included.
+
+=item C<i_stddef>
+
+From F<i_stddef.U>:
+
+This variable conditionally defines the C<I_STDDEF> symbol, which
+indicates to the C program that <stddef.h> exists and should
+be included.
+
+=item C<i_stdint>
+
+From F<i_stdint.U>:
+
+This variable conditionally defines the C<I_STDINT> symbol, which
+indicates to the C program that <stdint.h> exists and should
+be included.
+
+=item C<i_stdlib>
+
+From F<i_stdlib.U>:
+
+This variable conditionally defines the C<I_STDLIB> symbol, which
+indicates to the C program that <stdlib.h> exists and should
+be included.
+
+=item C<i_string>
+
+From F<i_string.U>:
+
+This variable conditionally defines the C<I_STRING> symbol, which
+indicates that <string.h> should be included rather than <strings.h>.
+
+=item C<i_sunmath>
+
+From F<i_sunmath.U>:
+
+This variable conditionally defines the C<I_SUNMATH> symbol, and indicates
+whether a C program should include <sunmath.h>.
+
+=item C<i_sysaccess>
+
+From F<i_sysaccess.U>:
+
+This variable conditionally defines the C<I_SYS_ACCESS> symbol,
+and indicates whether a C program should include <sys/access.h>.
+
+=item C<i_sysdir>
+
+From F<i_sysdir.U>:
+
+This variable conditionally defines the C<I_SYS_DIR> symbol, and indicates
+whether a C program should include <sys/dir.h>.
+
+=item C<i_sysfile>
+
+From F<i_sysfile.U>:
+
+This variable conditionally defines the C<I_SYS_FILE> symbol, and indicates
+whether a C program should include <sys/file.h> to get C<R_OK> and friends.
+
+=item C<i_sysfilio>
+
+From F<i_sysioctl.U>:
+
+This variable conditionally defines the C<I_SYS_FILIO> symbol, which
+indicates to the C program that <sys/filio.h> exists and should
+be included in preference to <sys/ioctl.h>.
+
+=item C<i_sysin>
+
+From F<i_niin.U>:
+
+This variable conditionally defines C<I_SYS_IN>, which indicates
+to the C program that it should include <sys/in.h> instead of
+<netinet/in.h>.
+
+=item C<i_sysioctl>
+
+From F<i_sysioctl.U>:
+
+This variable conditionally defines the C<I_SYS_IOCTL> symbol, which
+indicates to the C program that <sys/ioctl.h> exists and should
+be included.
+
+=item C<i_syslog>
+
+From F<i_syslog.U>:
+
+This variable conditionally defines the C<I_SYSLOG> symbol,
+and indicates whether a C program should include <syslog.h>.
+
+=item C<i_sysmman>
+
+From F<i_sysmman.U>:
+
+This variable conditionally defines the C<I_SYS_MMAN> symbol, and
+indicates whether a C program should include <sys/mman.h>.
+
+=item C<i_sysmode>
+
+From F<i_sysmode.U>:
+
+This variable conditionally defines the C<I_SYSMODE> symbol,
+and indicates whether a C program should include <sys/mode.h>.
+
+=item C<i_sysmount>
+
+From F<i_sysmount.U>:
+
+This variable conditionally defines the C<I_SYSMOUNT> symbol,
+and indicates whether a C program should include <sys/mount.h>.
+
+=item C<i_sysndir>
+
+From F<i_sysndir.U>:
+
+This variable conditionally defines the C<I_SYS_NDIR> symbol, and indicates
+whether a C program should include <sys/ndir.h>.
+
+=item C<i_sysparam>
+
+From F<i_sysparam.U>:
+
+This variable conditionally defines the C<I_SYS_PARAM> symbol, and indicates
+whether a C program should include <sys/param.h>.
+
+=item C<i_syspoll>
+
+From F<i_syspoll.U>:
+
+This variable conditionally defines the C<I_SYS_POLL> symbol, which
+indicates to the C program that it should include <sys/poll.h>.
+
+=item C<i_sysresrc>
+
+From F<i_sysresrc.U>:
+
+This variable conditionally defines the C<I_SYS_RESOURCE> symbol,
+and indicates whether a C program should include <sys/resource.h>.
+
+=item C<i_syssecrt>
+
+From F<i_syssecrt.U>:
+
+This variable conditionally defines the C<I_SYS_SECURITY> symbol,
+and indicates whether a C program should include <sys/security.h>.
+
+=item C<i_sysselct>
+
+From F<i_sysselct.U>:
+
+This variable conditionally defines C<I_SYS_SELECT>, which indicates
+to the C program that it should include <sys/select.h> in order to
+get the definition of struct timeval.
+
+=item C<i_syssockio>
+
+From F<i_sysioctl.U>:
+
+This variable conditionally defines C<I_SYS_SOCKIO> to indicate to the
+C program that socket ioctl codes may be found in <sys/sockio.h>
+instead of <sys/ioctl.h>.
+
+=item C<i_sysstat>
+
+From F<i_sysstat.U>:
+
+This variable conditionally defines the C<I_SYS_STAT> symbol,
+and indicates whether a C program should include <sys/stat.h>.
+
+=item C<i_sysstatfs>
+
+From F<i_sysstatfs.U>:
+
+This variable conditionally defines the C<I_SYSSTATFS> symbol,
+and indicates whether a C program should include <sys/statfs.h>.
+
+=item C<i_sysstatvfs>
+
+From F<i_sysstatvfs.U>:
+
+This variable conditionally defines the C<I_SYSSTATVFS> symbol,
+and indicates whether a C program should include <sys/statvfs.h>.
+
+=item C<i_systime>
+
+From F<i_time.U>:
+
+This variable conditionally defines C<I_SYS_TIME>, which indicates
+to the C program that it should include <sys/time.h>.
+
+=item C<i_systimek>
+
+From F<i_time.U>:
+
+This variable conditionally defines C<I_SYS_TIME_KERNEL>, which
+indicates to the C program that it should include <sys/time.h>
+with C<KERNEL> defined.
+
+=item C<i_systimes>
+
+From F<i_systimes.U>:
+
+This variable conditionally defines the C<I_SYS_TIMES> symbol, and indicates
+whether a C program should include <sys/times.h>.
+
+=item C<i_systypes>
+
+From F<i_systypes.U>:
+
+This variable conditionally defines the C<I_SYS_TYPES> symbol,
+and indicates whether a C program should include <sys/types.h>.
+
+=item C<i_sysuio>
+
+From F<i_sysuio.U>:
+
+This variable conditionally defines the C<I_SYSUIO> symbol, and indicates
+whether a C program should include <sys/uio.h>.
+
+=item C<i_sysun>
+
+From F<i_sysun.U>:
+
+This variable conditionally defines C<I_SYS_UN>, which indicates
+to the C program that it should include <sys/un.h> to get C<UNIX>
+domain socket definitions.
+
+=item C<i_sysutsname>
+
+From F<i_sysutsname.U>:
+
+This variable conditionally defines the C<I_SYSUTSNAME> symbol,
+and indicates whether a C program should include <sys/utsname.h>.
+
+=item C<i_sysvfs>
+
+From F<i_sysvfs.U>:
+
+This variable conditionally defines the C<I_SYSVFS> symbol,
+and indicates whether a C program should include <sys/vfs.h>.
+
+=item C<i_syswait>
+
+From F<i_syswait.U>:
+
+This variable conditionally defines C<I_SYS_WAIT>, which indicates
+to the C program that it should include <sys/wait.h>.
+
+=item C<i_termio>
+
+From F<i_termio.U>:
+
+This variable conditionally defines the C<I_TERMIO> symbol, which
+indicates to the C program that it should include <termio.h> rather
+than <sgtty.h>.
+
+=item C<i_termios>
+
+From F<i_termio.U>:
+
+This variable conditionally defines the C<I_TERMIOS> symbol, which
+indicates to the C program that the C<POSIX> <termios.h> file is
+to be included.
+
+=item C<i_time>
+
+From F<i_time.U>:
+
+This variable conditionally defines C<I_TIME>, which indicates
+to the C program that it should include <time.h>.
+
+=item C<i_unistd>
+
+From F<i_unistd.U>:
+
+This variable conditionally defines the C<I_UNISTD> symbol, and indicates
+whether a C program should include <unistd.h>.
+
+=item C<i_ustat>
+
+From F<i_ustat.U>:
+
+This variable conditionally defines the C<I_USTAT> symbol, and indicates
+whether a C program should include <ustat.h>.
+
+=item C<i_utime>
+
+From F<i_utime.U>:
+
+This variable conditionally defines the C<I_UTIME> symbol, and indicates
+whether a C program should include <utime.h>.
+
+=item C<i_values>
+
+From F<i_values.U>:
+
+This variable conditionally defines the C<I_VALUES> symbol, and indicates
+whether a C program may include <values.h> to get symbols like C<MAXLONG>
+and friends.
+
+=item C<i_varargs>
+
+From F<i_varhdr.U>:
+
+This variable conditionally defines C<I_VARARGS>, which indicates
+to the C program that it should include <varargs.h>.
+
+=item C<i_varhdr>
+
+From F<i_varhdr.U>:
+
+Contains the name of the header to be included to get va_dcl definition.
+Typically one of F<varargs.h> or F<stdarg.h>.
+
+=item C<i_vfork>
+
+From F<i_vfork.U>:
+
+This variable conditionally defines the C<I_VFORK> symbol, and indicates
+whether a C program should include F<vfork.h>.
+
+=item C<i_xlocale>
+
+From F<d_newlocale.U>:
+
+This symbol, if defined, indicates to the C program that it should
+include <xlocale.h> to get uselocale() and its friends
+
+=item C<ignore_versioned_solibs>
+
+From F<libs.U>:
+
+This variable should be non-empty if non-versioned shared
+libraries (F<libfoo.so.x.y>) are to be ignored (because they
+cannot be linked against).
+
+=item C<inc_version_list>
+
+From F<inc_version_list.U>:
+
+This variable specifies the list of subdirectories in over
+which F<perl.c>:incpush() and F<lib/lib.pm> will automatically
+search when adding directories to @C<INC>.  The elements in
+the list are separated by spaces.  This is only useful
+if you have a perl library directory tree structured like the
+default one.  See C<INSTALL> for how this works.  The versioned
+site_perl directory was introduced in 5.005, so that is the
+lowest possible value.
+
+This list includes architecture-dependent directories back to
+version $api_versionstring (e.g. 5.5.640) and
+architecture-independent directories all the way back to
+5.005.
+
+=item C<inc_version_list_init>
+
+From F<inc_version_list.U>:
+
+This variable holds the same list as inc_version_list, but
+each item is enclosed in double quotes and separated by commas,
+suitable for use in the C<PERL_INC_VERSION_LIST> initialization.
+
+=item C<incpath>
+
+From F<usrinc.U>:
+
+This variable must precede the normal include path to get the
+right one, as in F<$incpath/usr/include> or F<$incpath/usr/lib>.
+Value can be "" or F</bsd43> on mips.
+
+=item C<incpth>
+
+From F<libpth.U>:
+
+This variable must precede the normal include path to get the
+right one, as in F<$incpath/usr/include> or F<$incpath/usr/lib>.
+Value can be "" or F</bsd43> on mips.
+
+=item C<inews>
+
+From F<Loc.U>:
+
+This variable is defined but not used by Configure.
+The value is the empty string and is not useful.
+
+=item C<initialinstalllocation>
+
+From F<bin.U>:
+
+When userelocatableinc is true, this variable holds the location
+that make install should copy the perl binary to, with all the
+run-time relocatable paths calculated from this at install time.
+When used, it is initialized to the original value of binexp, and
+then binexp is set to F<.../>, as the other binaries are found
+relative to the perl binary.
+
+=item C<installarchlib>
+
+From F<archlib.U>:
+
+This variable is really the same as archlibexp but may differ on
+those systems using C<AFS>. For extra portability, only this variable
+should be used in makefiles.
+
+=item C<installbin>
+
+From F<bin.U>:
+
+This variable is the same as binexp unless C<AFS> is running in which case
+the user is explicitly prompted for it. This variable should always
+be used in your makefiles for maximum portability.
+
+=item C<installhtml1dir>
+
+From F<html1dir.U>:
+
+This variable is really the same as html1direxp, unless you are
+using a different installprefix.  For extra portability, you
+should only use this variable within your makefiles.
+
+=item C<installhtml3dir>
+
+From F<html3dir.U>:
+
+This variable is really the same as html3direxp, unless you are
+using a different installprefix.  For extra portability, you
+should only use this variable within your makefiles.
+
+=item C<installman1dir>
+
+From F<man1dir.U>:
+
+This variable is really the same as man1direxp, unless you are using
+C<AFS> in which case it points to the read/write location whereas
+man1direxp only points to the read-only access location. For extra
+portability, you should only use this variable within your makefiles.
+
+=item C<installman3dir>
+
+From F<man3dir.U>:
+
+This variable is really the same as man3direxp, unless you are using
+C<AFS> in which case it points to the read/write location whereas
+man3direxp only points to the read-only access location. For extra
+portability, you should only use this variable within your makefiles.
+
+=item C<installprefix>
+
+From F<installprefix.U>:
+
+This variable holds the name of the directory below which
+"make install" will install the package.  For most users, this
+is the same as prefix.  However, it is useful for
+installing the software into a different (usually temporary)
+location after which it can be bundled up and moved somehow
+to the final location specified by prefix.
+
+=item C<installprefixexp>
+
+From F<installprefix.U>:
+
+This variable holds the full absolute path of installprefix
+with all F<~>-expansion done.
+
+=item C<installprivlib>
+
+From F<privlib.U>:
+
+This variable is really the same as privlibexp but may differ on
+those systems using C<AFS>. For extra portability, only this variable
+should be used in makefiles.
+
+=item C<installscript>
+
+From F<scriptdir.U>:
+
+This variable is usually the same as scriptdirexp, unless you are on
+a system running C<AFS>, in which case they may differ slightly. You
+should always use this variable within your makefiles for portability.
+
+=item C<installsitearch>
+
+From F<sitearch.U>:
+
+This variable is really the same as sitearchexp but may differ on
+those systems using C<AFS>. For extra portability, only this variable
+should be used in makefiles.
+
+=item C<installsitebin>
+
+From F<sitebin.U>:
+
+This variable is usually the same as sitebinexp, unless you are on
+a system running C<AFS>, in which case they may differ slightly. You
+should always use this variable within your makefiles for portability.
+
+=item C<installsitehtml1dir>
+
+From F<sitehtml1dir.U>:
+
+This variable is really the same as sitehtml1direxp, unless you are using
+C<AFS> in which case it points to the read/write location whereas
+html1direxp only points to the read-only access location. For extra
+portability, you should only use this variable within your makefiles.
+
+=item C<installsitehtml3dir>
+
+From F<sitehtml3dir.U>:
+
+This variable is really the same as sitehtml3direxp, unless you are using
+C<AFS> in which case it points to the read/write location whereas
+html3direxp only points to the read-only access location. For extra
+portability, you should only use this variable within your makefiles.
+
+=item C<installsitelib>
+
+From F<sitelib.U>:
+
+This variable is really the same as sitelibexp but may differ on
+those systems using C<AFS>. For extra portability, only this variable
+should be used in makefiles.
+
+=item C<installsiteman1dir>
+
+From F<siteman1dir.U>:
+
+This variable is really the same as siteman1direxp, unless you are using
+C<AFS> in which case it points to the read/write location whereas
+man1direxp only points to the read-only access location. For extra
+portability, you should only use this variable within your makefiles.
+
+=item C<installsiteman3dir>
+
+From F<siteman3dir.U>:
+
+This variable is really the same as siteman3direxp, unless you are using
+C<AFS> in which case it points to the read/write location whereas
+man3direxp only points to the read-only access location. For extra
+portability, you should only use this variable within your makefiles.
+
+=item C<installsitescript>
+
+From F<sitescript.U>:
+
+This variable is usually the same as sitescriptexp, unless you are on
+a system running C<AFS>, in which case they may differ slightly. You
+should always use this variable within your makefiles for portability.
+
+=item C<installstyle>
+
+From F<installstyle.U>:
+
+This variable describes the C<style> of the perl installation.
+This is intended to be useful for tools that need to
+manipulate entire perl distributions.  Perl itself doesn't use
+this to find its libraries -- the library directories are
+stored directly in F<Config.pm>.  Currently, there are only two
+styles:  C<lib> and F<lib/perl5>.  The default library locations
+(e.g. privlib, sitelib) are either F<$prefix/lib> or
+F<$prefix/lib/perl5>.  The former is useful if $prefix is a
+directory dedicated to perl (e.g. F</opt/perl>), while the latter
+is useful if $prefix is shared by many packages, e.g. if
+$prefix=F</usr/local>.
+
+Unfortunately, while this C<style> variable is used to set
+defaults for all three directory hierarchies (core, vendor, and
+site), there is no guarantee that the same style is actually
+appropriate for all those directories.  For example, $prefix
+might be F</opt/perl>, but $siteprefix might be F</usr/local>.
+(Perhaps, in retrospect, the C<lib> style should never have been
+supported, but it did seem like a nice idea at the time.)
+
+The situation is even less clear for tools such as MakeMaker
+that can be used to install additional modules into
+non-standard places.  For example, if a user intends to install
+a module into a private directory (perhaps by setting C<PREFIX> on
+the F<Makefile.PL> command line), then there is no reason to
+assume that the Configure-time $installstyle setting will be
+relevant for that C<PREFIX>.
+
+This may later be extended to include other information, so
+be careful with pattern-matching on the results.
+
+For compatibility with F<perl5.005> and earlier, the default
+setting is based on whether or not $prefix contains the string
+C<perl>.
+
+=item C<installusrbinperl>
+
+From F<instubperl.U>:
+
+This variable tells whether Perl should be installed also as
+F</usr/bin/perl> in addition to
+F<$installbin/perl>
+
+=item C<installvendorarch>
+
+From F<vendorarch.U>:
+
+This variable is really the same as vendorarchexp but may differ on
+those systems using C<AFS>. For extra portability, only this variable
+should be used in makefiles.
+
+=item C<installvendorbin>
+
+From F<vendorbin.U>:
+
+This variable is really the same as vendorbinexp but may differ on
+those systems using C<AFS>. For extra portability, only this variable
+should be used in makefiles.
+
+=item C<installvendorhtml1dir>
+
+From F<vendorhtml1dir.U>:
+
+This variable is really the same as vendorhtml1direxp but may differ on
+those systems using C<AFS>. For extra portability, only this variable
+should be used in makefiles.
+
+=item C<installvendorhtml3dir>
+
+From F<vendorhtml3dir.U>:
+
+This variable is really the same as vendorhtml3direxp but may differ on
+those systems using C<AFS>. For extra portability, only this variable
+should be used in makefiles.
+
+=item C<installvendorlib>
+
+From F<vendorlib.U>:
+
+This variable is really the same as vendorlibexp but may differ on
+those systems using C<AFS>. For extra portability, only this variable
+should be used in makefiles.
+
+=item C<installvendorman1dir>
+
+From F<vendorman1dir.U>:
+
+This variable is really the same as vendorman1direxp but may differ on
+those systems using C<AFS>. For extra portability, only this variable
+should be used in makefiles.
+
+=item C<installvendorman3dir>
+
+From F<vendorman3dir.U>:
+
+This variable is really the same as vendorman3direxp but may differ on
+those systems using C<AFS>. For extra portability, only this variable
+should be used in makefiles.
+
+=item C<installvendorscript>
+
+From F<vendorscript.U>:
+
+This variable is really the same as vendorscriptexp but may differ on
+those systems using C<AFS>. For extra portability, only this variable
+should be used in makefiles.
+
+=item C<intsize>
+
+From F<intsize.U>:
+
+This variable contains the value of the C<INTSIZE> symbol, which
+indicates to the C program how many bytes there are in an int.
+
+=item C<issymlink>
+
+From F<issymlink.U>:
+
+This variable holds the test command to test for a symbolic link
+(if they are supported).  Typical values include C<test -h> and
+C<test -L>.
+
+=item C<ivdformat>
+
+From F<perlxvf.U>:
+
+This variable contains the format string used for printing
+a Perl C<IV> as a signed decimal integer.
+
+=item C<ivsize>
+
+From F<perlxv.U>:
+
+This variable is the size of an C<IV> in bytes.
+
+=item C<ivtype>
+
+From F<perlxv.U>:
+
+This variable contains the C type used for Perl's C<IV>.
+
+=back
+
+=cut
+
+=head2 k
+
+=over 4
+
+=cut
+
+=item C<known_extensions>
+
+From F<Extensions.U>:
+
+This variable holds a list of all extensions (both C<XS> and non-xs)
+included in the package source distribution.  This information is
+only really of use during the Perl build, as the list makes no
+distinction between extensions which were build and installed, and
+those which where not.  See C<extensions> for the list of extensions
+actually built and available.
+
+=item C<ksh>
+
+From F<Loc.U>:
+
+This variable is defined but not used by Configure.
+The value is the empty string and is not useful.
+
+=back
+
+=cut
+
+=head2 l
+
+=over 4
+
+=cut
+
+=item C<ld>
+
+From F<dlsrc.U>:
+
+This variable indicates the program to be used to link
+libraries for dynamic loading.  On some systems, it is C<ld>.
+On C<ELF> systems, it should be $cc.  Mostly, we'll try to respect
+the hint file setting.
+
+=item C<ld_can_script>
+
+From F<dlsrc.U>:
+
+This variable shows if the loader accepts scripts in the form of
+-Wl,--version-script=F<ld.script>. This is currently only supported
+for C<GNU> ld on C<ELF> in dynamic loading builds.
+
+=item C<lddlflags>
+
+From F<dlsrc.U>:
+
+This variable contains any special flags that might need to be
+passed to $ld to create a shared library suitable for dynamic
+loading.  It is up to the makefile to use it.  For hpux, it
+should be C<-b>.  For sunos 4.1, it is empty.
+
+=item C<ldflags>
+
+From F<ccflags.U>:
+
+This variable contains any additional C loader flags desired by
+the user.  It is up to the Makefile to use this.
+
+=item C<ldflags_uselargefiles>
+
+From F<uselfs.U>:
+
+This variable contains the loader flags needed by large file builds
+and added to ldflags by hints files.
+
+=item C<ldlibpthname>
+
+From F<libperl.U>:
+
+This variable holds the name of the shared library
+search path, often C<LD_LIBRARY_PATH>.  To get an empty
+string, the hints file must set this to C<none>.
+
+=item C<less>
+
+From F<Loc.U>:
+
+This variable is used internally by Configure to determine the
+full pathname (if any) of the less program.  After Configure runs,
+the value is reset to a plain C<less> and is not useful.
+
+=item C<lib_ext>
+
+From F<Unix.U>:
+
+This is an old synonym for _a.
+
+=item C<libc>
+
+From F<libc.U>:
+
+This variable contains the location of the C library.
+
+=item C<libperl>
+
+From F<libperl.U>:
+
+The perl executable is obtained by linking F<perlmain.c> with
+libperl, any static extensions (usually just DynaLoader),
+and any other libraries needed on this system.  libperl
+is usually F<libperl.a>, but can also be F<libperl.so.xxx> if
+the user wishes to build a perl executable with a shared
+library.
+
+=item C<libpth>
+
+From F<libpth.U>:
+
+This variable holds the general path (space-separated) used to find
+libraries. It is intended to be used by other units.
+
+=item C<libs>
+
+From F<libs.U>:
+
+This variable holds the additional libraries we want to use.
+It is up to the Makefile to deal with it.  The list can be empty.
+
+=item C<libsdirs>
+
+From F<libs.U>:
+
+This variable holds the directory names aka dirnames of the libraries
+we found and accepted, duplicates are removed.
+
+=item C<libsfiles>
+
+From F<libs.U>:
+
+This variable holds the filenames aka basenames of the libraries
+we found and accepted.
+
+=item C<libsfound>
+
+From F<libs.U>:
+
+This variable holds the full pathnames of the libraries
+we found and accepted.
+
+=item C<libspath>
+
+From F<libs.U>:
+
+This variable holds the directory names probed for libraries.
+
+=item C<libswanted>
+
+From F<Myinit.U>:
+
+This variable holds a list of all the libraries we want to
+search.  The order is chosen to pick up the c library
+ahead of ucb or bsd libraries for SVR4.
+
+=item C<libswanted_uselargefiles>
+
+From F<uselfs.U>:
+
+This variable contains the libraries needed by large file builds
+and added to ldflags by hints files.  It is a space separated list
+of the library names without the C<lib> prefix or any suffix, just
+like F<libswanted.>.
+
+=item C<line>
+
+From F<Loc.U>:
+
+This variable is defined but not used by Configure.
+The value is the empty string and is not useful.
+
+=item C<lint>
+
+From F<Loc.U>:
+
+This variable is defined but not used by Configure.
+The value is the empty string and is not useful.
+
+=item C<lkflags>
+
+From F<ccflags.U>:
+
+This variable contains any additional C partial linker flags desired by
+the user.  It is up to the Makefile to use this.
+
+=item C<ln>
+
+From F<Loc.U>:
+
+This variable is used internally by Configure to determine the
+full pathname (if any) of the ln program.  After Configure runs,
+the value is reset to a plain C<ln> and is not useful.
+
+=item C<lns>
+
+From F<lns.U>:
+
+This variable holds the name of the command to make
+symbolic links (if they are supported).  It can be used
+in the Makefile. It is either C<ln -s> or C<ln>
+
+=item C<localtime_r_proto>
+
+From F<d_localtime_r.U>:
+
+This variable encodes the prototype of localtime_r.
+It is zero if d_localtime_r is undef, and one of the
+C<REENTRANT_PROTO_T_ABC> macros of F<reentr.h> if d_localtime_r
+is defined.
+
+=item C<locincpth>
+
+From F<ccflags.U>:
+
+This variable contains a list of additional directories to be
+searched by the compiler.  The appropriate C<-I> directives will
+be added to ccflags.  This is intended to simplify setting
+local directories from the Configure command line.
+It's not much, but it parallels the loclibpth stuff in F<libpth.U>.
+
+=item C<loclibpth>
+
+From F<libpth.U>:
+
+This variable holds the paths (space-separated) used to find local
+libraries.  It is prepended to libpth, and is intended to be easily
+set from the command line.
+
+=item C<longdblinfbytes>
+
+From F<infnan.U>:
+
+This variable contains comma-separated list of hexadecimal bytes
+for the long double precision infinity.
+
+=item C<longdblkind>
+
+From F<d_longdbl.U>:
+
+This variable, if defined, encodes the type of a long double:
+0 = double,
+1 = C<IEEE> 754 128-bit little endian,
+2 = C<IEEE> 754 128-bit big endian,
+3 = x86 80-bit little endian,
+4 = x86 80-bit big endian,
+5 = double-double 128-bit little endian,
+6 = double-double 128-bit big endian,
+7 = 128-bit mixed double-double (64-bit LEs in C<BE>),
+8 = 128-bit mixed double-double (64-bit BEs in C<LE>),
+-1 = unknown format.
+
+=item C<longdblmantbits>
+
+From F<mantbits.U>:
+
+This symbol, if defined, tells how many mantissa bits
+there are in long double precision floating point format.
+Note that this can be C<LDBL_MANT_DIG> minus one,
+since C<LDBL_MANT_DIG> can include the C<IEEE> 754 implicit bit.
+The common x86-style 80-bit long double does not have
+an implicit bit.
+
+=item C<longdblnanbytes>
+
+From F<infnan.U>:
+
+This variable contains comma-separated list of hexadecimal bytes
+for the long double precision not-a-number.
+
+=item C<longdblsize>
+
+From F<d_longdbl.U>:
+
+This variable contains the value of the C<LONG_DOUBLESIZE> symbol, which
+indicates to the C program how many bytes there are in a long double,
+if this system supports long doubles.  Note that this is
+sizeof(long double), which may include unused bytes.
+
+=item C<longlongsize>
+
+From F<d_longlong.U>:
+
+This variable contains the value of the C<LONGLONGSIZE> symbol, which
+indicates to the C program how many bytes there are in a long long,
+if this system supports long long.
+
+=item C<longsize>
+
+From F<intsize.U>:
+
+This variable contains the value of the C<LONGSIZE> symbol, which
+indicates to the C program how many bytes there are in a long.
+
+=item C<lp>
+
+From F<Loc.U>:
+
+This variable is defined but not used by Configure.
+The value is the empty string and is not useful.
+
+=item C<lpr>
+
+From F<Loc.U>:
+
+This variable is defined but not used by Configure.
+The value is the empty string and is not useful.
+
+=item C<ls>
+
+From F<Loc.U>:
+
+This variable is used internally by Configure to determine the
+full pathname (if any) of the ls program.  After Configure runs,
+the value is reset to a plain C<ls> and is not useful.
+
+=item C<lseeksize>
+
+From F<lseektype.U>:
+
+This variable defines lseektype to be something like off_t, long,
+or whatever type is used to declare lseek offset's type in the
+kernel (which also appears to be lseek's return type).
+
+=item C<lseektype>
+
+From F<lseektype.U>:
+
+This variable defines lseektype to be something like off_t, long,
+or whatever type is used to declare lseek offset's type in the
+kernel (which also appears to be lseek's return type).
+
+=back
+
+=cut
+
+=head2 m
+
+=over 4
+
+=cut
+
+=item C<mail>
+
+From F<Loc.U>:
+
+This variable is defined but not used by Configure.
+The value is the empty string and is not useful.
+
+=item C<mailx>
+
+From F<Loc.U>:
+
+This variable is defined but not used by Configure.
+The value is the empty string and is not useful.
+
+=item C<make>
+
+From F<Loc.U>:
+
+This variable is used internally by Configure to determine the
+full pathname (if any) of the make program.  After Configure runs,
+the value is reset to a plain C<make> and is not useful.
+
+=item C<make_set_make>
+
+From F<make.U>:
+
+Some versions of C<make> set the variable C<MAKE>.  Others do not.
+This variable contains the string to be included in F<Makefile.SH>
+so that C<MAKE> is set if needed, and not if not needed.
+Possible values are:
+
+make_set_make=C<#>		# If your make program handles this for you,
+
+make_set_make=C<MAKE=$make>	# if it doesn't.
+
+This uses a comment character so that we can distinguish a
+C<set> value (from a previous F<config.sh> or Configure C<-D> option)
+from an uncomputed value.
+
+=item C<mallocobj>
+
+From F<mallocsrc.U>:
+
+This variable contains the name of the F<malloc.o> that this package
+generates, if that F<malloc.o> is preferred over the system malloc.
+Otherwise the value is null.  This variable is intended for generating
+Makefiles.  See mallocsrc.
+
+=item C<mallocsrc>
+
+From F<mallocsrc.U>:
+
+This variable contains the name of the F<malloc.c> that comes with
+the package, if that F<malloc.c> is preferred over the system malloc.
+Otherwise the value is null.  This variable is intended for generating
+Makefiles.
+
+=item C<malloctype>
+
+From F<mallocsrc.U>:
+
+This variable contains the kind of ptr returned by malloc and realloc.
+
+=item C<man1dir>
+
+From F<man1dir.U>:
+
+This variable contains the name of the directory in which manual
+source pages are to be put.  It is the responsibility of the
+F<Makefile.SH> to get the value of this into the proper command.
+You must be prepared to do the F<~name> expansion yourself.
+
+=item C<man1direxp>
+
+From F<man1dir.U>:
+
+This variable is the same as the man1dir variable, but is filename
+expanded at configuration time, for convenient use in makefiles.
+
+=item C<man1ext>
+
+From F<man1dir.U>:
+
+This variable contains the extension that the manual page should
+have: one of C<n>, C<l>, or C<1>.  The Makefile must supply the F<.>.
+See man1dir.
+
+=item C<man3dir>
+
+From F<man3dir.U>:
+
+This variable contains the name of the directory in which manual
+source pages are to be put.  It is the responsibility of the
+F<Makefile.SH> to get the value of this into the proper command.
+You must be prepared to do the F<~name> expansion yourself.
+
+=item C<man3direxp>
+
+From F<man3dir.U>:
+
+This variable is the same as the man3dir variable, but is filename
+expanded at configuration time, for convenient use in makefiles.
+
+=item C<man3ext>
+
+From F<man3dir.U>:
+
+This variable contains the extension that the manual page should
+have: one of C<n>, C<l>, or C<3>.  The Makefile must supply the F<.>.
+See man3dir.
+
+=item C<mips_type>
+
+From F<usrinc.U>:
+
+This variable holds the environment type for the mips system.
+Possible values are "BSD 4.3" and "System V".
+
+=item C<mistrustnm>
+
+From F<Csym.U>:
+
+This variable can be used to establish a fallthrough for the cases
+where nm fails to find a symbol.  If usenm is false or usenm is true
+and mistrustnm is false, this variable has no effect.  If usenm is true
+and mistrustnm is C<compile>, a test program will be compiled to try to
+find any symbol that can't be located via nm lookup.  If mistrustnm is
+C<run>, the test program will be run as well as being compiled.
+
+=item C<mkdir>
+
+From F<Loc.U>:
+
+This variable is used internally by Configure to determine the
+full pathname (if any) of the mkdir program.  After Configure runs,
+the value is reset to a plain C<mkdir> and is not useful.
+
+=item C<mmaptype>
+
+From F<d_mmap.U>:
+
+This symbol contains the type of pointer returned by mmap()
+(and simultaneously the type of the first argument).
+It can be C<void *> or C<caddr_t>.
+
+=item C<modetype>
+
+From F<modetype.U>:
+
+This variable defines modetype to be something like mode_t,
+int, unsigned short, or whatever type is used to declare file
+modes for system calls.
+
+=item C<more>
+
+From F<Loc.U>:
+
+This variable is used internally by Configure to determine the
+full pathname (if any) of the more program.  After Configure runs,
+the value is reset to a plain C<more> and is not useful.
+
+=item C<multiarch>
+
+From F<multiarch.U>:
+
+This variable conditionally defines the C<MULTIARCH> symbol
+which signifies the presence of multiplatform files.
+This is normally set by hints files.
+
+=item C<mv>
+
+From F<Loc.U>:
+
+This variable is defined but not used by Configure.
+The value is the empty string and is not useful.
+
+=item C<myarchname>
+
+From F<archname.U>:
+
+This variable holds the architecture name computed by Configure in
+a previous run. It is not intended to be perused by any user and
+should never be set in a hint file.
+
+=item C<mydomain>
+
+From F<myhostname.U>:
+
+This variable contains the eventual value of the C<MYDOMAIN> symbol,
+which is the domain of the host the program is going to run on.
+The domain must be appended to myhostname to form a complete host name.
+The dot comes with mydomain, and need not be supplied by the program.
+
+=item C<myhostname>
+
+From F<myhostname.U>:
+
+This variable contains the eventual value of the C<MYHOSTNAME> symbol,
+which is the name of the host the program is going to run on.
+The domain is not kept with hostname, but must be gotten from mydomain.
+The dot comes with mydomain, and need not be supplied by the program.
+
+=item C<myuname>
+
+From F<Oldconfig.U>:
+
+The output of C<uname -a> if available, otherwise the hostname.
+The whole thing is then lower-cased and slashes and single quotes are
+removed.
+
+=back
+
+=cut
+
+=head2 n
+
+=over 4
+
+=cut
+
+=item C<n>
+
+From F<n.U>:
+
+This variable contains the C<-n> flag if that is what causes the echo
+command to suppress newline.  Otherwise it is null.  Correct usage is
+$echo $n "prompt for a question: $c".
+
+=item C<need_va_copy>
+
+From F<need_va_copy.U>:
+
+This symbol, if defined, indicates that the system stores
+the variable argument list datatype, va_list, in a format
+that cannot be copied by simple assignment, so that some
+other means must be used when copying is required.
+As such systems vary in their provision (or non-provision)
+of copying mechanisms, F<handy.h> defines a platform-
+C<independent> macro, Perl_va_copy(src, dst), to do the job.
+
+=item C<netdb_hlen_type>
+
+From F<netdbtype.U>:
+
+This variable holds the type used for the 2nd argument to
+gethostbyaddr().  Usually, this is int or size_t or unsigned.
+This is only useful if you have gethostbyaddr(), naturally.
+
+=item C<netdb_host_type>
+
+From F<netdbtype.U>:
+
+This variable holds the type used for the 1st argument to
+gethostbyaddr().  Usually, this is char * or void *,  possibly
+with or without a const prefix.
+This is only useful if you have gethostbyaddr(), naturally.
+
+=item C<netdb_name_type>
+
+From F<netdbtype.U>:
+
+This variable holds the type used for the argument to
+gethostbyname().  Usually, this is char * or const char *.
+This is only useful if you have gethostbyname(), naturally.
+
+=item C<netdb_net_type>
+
+From F<netdbtype.U>:
+
+This variable holds the type used for the 1st argument to
+getnetbyaddr().  Usually, this is int or long.
+This is only useful if you have getnetbyaddr(), naturally.
+
+=item C<nm>
+
+From F<Loc.U>:
+
+This variable is used internally by Configure to determine the
+full pathname (if any) of the nm program.  After Configure runs,
+the value is reset to a plain C<nm> and is not useful.
+
+=item C<nm_opt>
+
+From F<usenm.U>:
+
+This variable holds the options that may be necessary for nm.
+
+=item C<nm_so_opt>
+
+From F<usenm.U>:
+
+This variable holds the options that may be necessary for nm
+to work on a shared library but that can not be used on an
+archive library.  Currently, this is only used by Linux, where
+nm --dynamic is *required* to get symbols from an C<ELF> library which
+has been stripped, but nm --dynamic is *fatal* on an archive library.
+Maybe Linux should just always set usenm=false.
+
+=item C<nonxs_ext>
+
+From F<Extensions.U>:
+
+This variable holds a list of all non-xs extensions built and
+installed by the package.  By default, all non-xs extensions
+distributed will be built, with the exception of platform-specific
+extensions (currently only one C<VMS> specific extension).
+
+=item C<nroff>
+
+From F<Loc.U>:
+
+This variable is used internally by Configure to determine the
+full pathname (if any) of the nroff program.  After Configure runs,
+the value is reset to a plain C<nroff> and is not useful.
+
+=item C<nv_overflows_integers_at>
+
+From F<perlxv.U>:
+
+This variable gives the largest integer value that NVs can hold
+as a constant floating point expression.
+If it could not be determined, it holds the value 0.
+
+=item C<nv_preserves_uv_bits>
+
+From F<perlxv.U>:
+
+This variable indicates how many of bits type uvtype
+a variable nvtype can preserve.
+
+=item C<nveformat>
+
+From F<perlxvf.U>:
+
+This variable contains the format string used for printing
+a Perl C<NV> using %e-ish floating point format.
+
+=item C<nvEUformat>
+
+From F<perlxvf.U>:
+
+This variable contains the format string used for printing
+a Perl C<NV> using %E-ish floating point format.
+
+=item C<nvfformat>
+
+From F<perlxvf.U>:
+
+This variable contains the format string used for printing
+a Perl C<NV> using %f-ish floating point format.
+
+=item C<nvFUformat>
+
+From F<perlxvf.U>:
+
+This variable contains the format string used for printing
+a Perl C<NV> using %F-ish floating point format.
+
+=item C<nvgformat>
+
+From F<perlxvf.U>:
+
+This variable contains the format string used for printing
+a Perl C<NV> using %g-ish floating point format.
+
+=item C<nvGUformat>
+
+From F<perlxvf.U>:
+
+This variable contains the format string used for printing
+a Perl C<NV> using %G-ish floating point format.
+
+=item C<nvmantbits>
+
+From F<mantbits.U>:
+
+This variable tells how many bits the mantissa of a Perl C<NV> has,
+not including the possible implicit bit.
+
+=item C<nvsize>
+
+From F<perlxv.U>:
+
+This variable is the size of a Perl C<NV> in bytes.
+Note that some floating point formats have unused bytes.
+
+=item C<nvtype>
+
+From F<perlxv.U>:
+
+This variable contains the C type used for Perl's C<NV>.
+
+=back
+
+=cut
+
+=head2 o
+
+=over 4
+
+=cut
+
+=item C<o_nonblock>
+
+From F<nblock_io.U>:
+
+This variable bears the symbol value to be used during open() or fcntl()
+to turn on non-blocking I/O for a file descriptor. If you wish to switch
+between blocking and non-blocking, you may try ioctl(C<FIOSNBIO>) instead,
+but that is only supported by some devices.
+
+=item C<obj_ext>
+
+From F<Unix.U>:
+
+This is an old synonym for _o.
+
+=item C<old_pthread_create_joinable>
+
+From F<d_pthrattrj.U>:
+
+This variable defines the constant to use for creating joinable
+(aka undetached) pthreads.  Unused if F<pthread.h> defines
+C<PTHREAD_CREATE_JOINABLE>.  If used, possible values are
+C<PTHREAD_CREATE_UNDETACHED> and C<__UNDETACHED>.
+
+=item C<optimize>
+
+From F<ccflags.U>:
+
+This variable contains any F<optimizer/debugger> flag that should be used.
+It is up to the Makefile to use it.
+
+=item C<orderlib>
+
+From F<orderlib.U>:
+
+This variable is C<true> if the components of libraries must be ordered
+(with `lorder $* | tsort`) before placing them in an archive.  Set to
+C<false> if ranlib or ar can generate random libraries.
+
+=item C<osname>
+
+From F<Oldconfig.U>:
+
+This variable contains the operating system name (e.g. sunos,
+solaris, hpux, etc.).  It can be useful later on for setting
+defaults.  Any spaces are replaced with underscores.  It is set
+to a null string if we can't figure it out.
+
+=item C<osvers>
+
+From F<Oldconfig.U>:
+
+This variable contains the operating system version (e.g.
+4.1.3, 5.2, etc.).  It is primarily used for helping select
+an appropriate hints file, but might be useful elsewhere for
+setting defaults.  It is set to '' if we can't figure it out.
+We try to be flexible about how much of the version number
+to keep, e.g. if 4.1.1, 4.1.2, and 4.1.3 are essentially the
+same for this package, hints files might just be F<os_4.0> or
+F<os_4.1>, etc., not keeping separate files for each little release.
+
+=item C<otherlibdirs>
+
+From F<otherlibdirs.U>:
+
+This variable contains a colon-separated set of paths for the perl
+binary to search for additional library files or modules.
+These directories will be tacked to the end of @C<INC>.
+Perl will automatically search below each path for version-
+and architecture-specific directories.  See inc_version_list
+for more details.
+A value of C< > means C<none> and is used to preserve this value
+for the next run through Configure.
+
+=back
+
+=cut
+
+=head2 p
+
+=over 4
+
+=cut
+
+=item C<package>
+
+From F<package.U>:
+
+This variable contains the name of the package being constructed.
+It is primarily intended for the use of later Configure units.
+
+=item C<pager>
+
+From F<pager.U>:
+
+This variable contains the name of the preferred pager on the system.
+Usual values are (the full pathnames of) more, less, pg, or cat.
+
+=item C<passcat>
+
+From F<nis.U>:
+
+This variable contains a command that produces the text of the
+F</etc/passwd> file.  This is normally "cat F</etc/passwd>", but can be
+"ypcat passwd" when C<NIS> is used.
+On some systems, such as os390, there may be no equivalent
+command, in which case this variable is unset.
+
+=item C<patchlevel>
+
+From F<patchlevel.U>:
+
+The patchlevel level of this package.
+The value of patchlevel comes from the F<patchlevel.h> file.
+In a version number such as 5.6.1, this is the C<6>.
+In F<patchlevel.h>, this is referred to as C<PERL_VERSION>.
+
+=item C<path_sep>
+
+From F<Unix.U>:
+
+This is an old synonym for p_ in F<Head.U>, the character
+used to separate elements in the command shell search C<PATH>.
+
+=item C<perl>
+
+From F<Loc.U>:
+
+This variable is used internally by Configure to determine the
+full pathname (if any) of the perl program.  After Configure runs,
+the value is reset to a plain C<perl> and is not useful.
+
+=item C<perl5>
+
+From F<perl5.U>:
+
+This variable contains the full path (if any) to a previously
+installed F<perl5.005> or later suitable for running the script
+to determine inc_version_list.
+
+=back
+
+=cut
+
+=head2 P
+
+=over 4
+
+=cut
+
+=item C<PERL_API_REVISION>
+
+From F<patchlevel.h>:
+
+This number describes the earliest compatible C<PERL_REVISION> of
+Perl (C<compatibility> here being defined as sufficient F<binary/C<API>>
+compatibility to run C<XS> code built with the older version).
+Normally this does not change across maintenance releases.
+Please read the comment in F<patchlevel.h>.
+
+=item C<PERL_API_SUBVERSION>
+
+From F<patchlevel.h>:
+
+This number describes the earliest compatible C<PERL_SUBVERSION> of
+Perl (C<compatibility> here being defined as sufficient F<binary/C<API>>
+compatibility to run C<XS> code built with the older version).
+Normally this does not change across maintenance releases.
+Please read the comment in F<patchlevel.h>.
+
+=item C<PERL_API_VERSION>
+
+From F<patchlevel.h>:
+
+This number describes the earliest compatible C<PERL_VERSION> of
+Perl (C<compatibility> here being defined as sufficient F<binary/C<API>>
+compatibility to run C<XS> code built with the older version).
+Normally this does not change across maintenance releases.
+Please read the comment in F<patchlevel.h>.
+
+=item C<PERL_CONFIG_SH>
+
+From F<Oldsyms.U>:
+
+This is set to C<true> in F<config.sh> so that a shell script
+sourcing F<config.sh> can tell if it has been sourced already.
+
+=item C<PERL_PATCHLEVEL>
+
+From F<Oldsyms.U>:
+
+This symbol reflects the patchlevel, if available. Will usually
+come from the F<.patch> file, which is available when the perl
+source tree was fetched with rsync.
+
+=item C<perl_patchlevel>
+
+From F<patchlevel.U>:
+
+This is the Perl patch level, a numeric change identifier,
+as defined by whichever source code maintenance system
+is used to maintain the patches; currently Perforce.
+It does not correlate with the Perl version numbers or
+the maintenance versus development dichotomy except
+by also being increasing.
+
+=item C<PERL_REVISION>
+
+From F<Oldsyms.U>:
+
+In a Perl version number such as 5.6.2, this is the 5.
+This value is manually set in F<patchlevel.h>
+
+=item C<perl_static_inline>
+
+From F<d_static_inline.U>:
+
+This variable defines the C<PERL_STATIC_INLINE> symbol to
+the best-guess incantation to use for static inline functions.
+Possibilities include
+static inline       (c99)
+static __inline__   (gcc -ansi)
+static __inline     (C<MSVC>)
+static _inline      (older C<MSVC>)
+static              (c89 compilers)
+
+=item C<PERL_SUBVERSION>
+
+From F<Oldsyms.U>:
+
+In a Perl version number such as 5.6.2, this is the 2.
+Values greater than 50 represent potentially unstable
+development subversions.
+This value is manually set in F<patchlevel.h>
+
+=item C<PERL_VERSION>
+
+From F<Oldsyms.U>:
+
+In a Perl version number such as 5.6.2, this is the 6.
+This value is manually set in F<patchlevel.h>
+
+=item C<perladmin>
+
+From F<perladmin.U>:
+
+Electronic mail address of the perl5 administrator.
+
+=item C<perllibs>
+
+From F<End.U>:
+
+The list of libraries needed by Perl only (any libraries needed
+by extensions only will by dropped, if using dynamic loading).
+
+=item C<perlpath>
+
+From F<perlpath.U>:
+
+This variable contains the eventual value of the C<PERLPATH> symbol,
+which contains the name of the perl interpreter to be used in
+shell scripts and in the "eval C<exec>" idiom.  This variable is
+not necessarily the pathname of the file containing the perl
+interpreter; you must append the executable extension (_exe) if
+it is not already present.  Note that Perl code that runs during
+the Perl build process cannot reference this variable, as Perl
+may not have been installed, or even if installed, may be a
+different version of Perl.
+
+=item C<pg>
+
+From F<Loc.U>:
+
+This variable is used internally by Configure to determine the
+full pathname (if any) of the pg program.  After Configure runs,
+the value is reset to a plain C<pg> and is not useful.
+
+=item C<phostname>
+
+From F<myhostname.U>:
+
+This variable contains the eventual value of the C<PHOSTNAME> symbol,
+which is a command that can be fed to popen() to get the host name.
+The program should probably not presume that the domain is or isn't
+there already.
+
+=item C<pidtype>
+
+From F<pidtype.U>:
+
+This variable defines C<PIDTYPE> to be something like pid_t, int,
+ushort, or whatever type is used to declare process ids in the kernel.
+
+=item C<plibpth>
+
+From F<libpth.U>:
+
+Holds the private path used by Configure to find out the libraries.
+Its value is prepend to libpth. This variable takes care of special
+machines, like the mips.  Usually, it should be empty.
+
+=item C<pmake>
+
+From F<Loc.U>:
+
+This variable is defined but not used by Configure.
+The value is the empty string and is not useful.
+
+=item C<pr>
+
+From F<Loc.U>:
+
+This variable is defined but not used by Configure.
+The value is the empty string and is not useful.
+
+=item C<prefix>
+
+From F<prefix.U>:
+
+This variable holds the name of the directory below which the
+user will install the package.  Usually, this is F</usr/local>, and
+executables go in F</usr/local/bin>, library stuff in F</usr/local/lib>,
+man pages in F</usr/local/man>, etc.  It is only used to set defaults
+for things in F<bin.U>, F<mansrc.U>, F<privlib.U>, or F<scriptdir.U>.
+
+=item C<prefixexp>
+
+From F<prefix.U>:
+
+This variable holds the full absolute path of the directory below
+which the user will install the package.  Derived from prefix.
+
+=item C<privlib>
+
+From F<privlib.U>:
+
+This variable contains the eventual value of the C<PRIVLIB> symbol,
+which is the name of the private library for this package.  It may
+have a F<~> on the front. It is up to the makefile to eventually create
+this directory while performing installation (with F<~> substitution).
+
+=item C<privlibexp>
+
+From F<privlib.U>:
+
+This variable is the F<~name> expanded version of privlib, so that you
+may use it directly in Makefiles or shell scripts.
+
+=item C<procselfexe>
+
+From F<d_procselfexe.U>:
+
+If d_procselfexe is defined, $procselfexe is the filename
+of the symbolic link pointing to the absolute pathname of
+the executing program.
+
+=item C<prototype>
+
+From F<prototype.U>:
+
+This variable holds the eventual value of C<CAN_PROTOTYPE>, which
+indicates the C compiler can handle function prototypes.
+
+=item C<ptrsize>
+
+From F<ptrsize.U>:
+
+This variable contains the value of the C<PTRSIZE> symbol, which
+indicates to the C program how many bytes there are in a pointer.
+
+=back
+
+=cut
+
+=head2 q
+
+=over 4
+
+=cut
+
+=item C<quadkind>
+
+From F<quadtype.U>:
+
+This variable, if defined, encodes the type of a quad:
+1 = int, 2 = long, 3 = long long, 4 = int64_t.
+
+=item C<quadtype>
+
+From F<quadtype.U>:
+
+This variable defines Quad_t to be something like long, int,
+long long, int64_t, or whatever type is used for 64-bit integers.
+
+=back
+
+=cut
+
+=head2 r
+
+=over 4
+
+=cut
+
+=item C<randbits>
+
+From F<randfunc.U>:
+
+Indicates how many bits are produced by the function used to
+generate normalized random numbers.
+
+=item C<randfunc>
+
+From F<randfunc.U>:
+
+Indicates the name of the random number function to use.
+Values include drand48, random, and rand. In C programs,
+the C<Drand01> macro is defined to generate uniformly distributed
+random numbers over the range [0., 1.[ (see drand01 and nrand).
+
+=item C<random_r_proto>
+
+From F<d_random_r.U>:
+
+This variable encodes the prototype of random_r.
+It is zero if d_random_r is undef, and one of the
+C<REENTRANT_PROTO_T_ABC> macros of F<reentr.h> if d_random_r
+is defined.
+
+=item C<randseedtype>
+
+From F<randfunc.U>:
+
+Indicates the type of the argument of the seedfunc.
+
+=item C<ranlib>
+
+From F<orderlib.U>:
+
+This variable is set to the pathname of the ranlib program, if it is
+needed to generate random libraries.  Set to C<:> if ar can generate
+random libraries or if random libraries are not supported
+
+=item C<rd_nodata>
+
+From F<nblock_io.U>:
+
+This variable holds the return code from read() when no data is
+present. It should be -1, but some systems return 0 when C<O_NDELAY> is
+used, which is a shame because you cannot make the difference between
+no data and an F<EOF.>. Sigh!
+
+=item C<readdir64_r_proto>
+
+From F<d_readdir64_r.U>:
+
+This variable encodes the prototype of readdir64_r.
+It is zero if d_readdir64_r is undef, and one of the
+C<REENTRANT_PROTO_T_ABC> macros of F<reentr.h> if d_readdir64_r
+is defined.
+
+=item C<readdir_r_proto>
+
+From F<d_readdir_r.U>:
+
+This variable encodes the prototype of readdir_r.
+It is zero if d_readdir_r is undef, and one of the
+C<REENTRANT_PROTO_T_ABC> macros of F<reentr.h> if d_readdir_r
+is defined.
+
+=item C<revision>
+
+From F<patchlevel.U>:
+
+The value of revision comes from the F<patchlevel.h> file.
+In a version number such as 5.6.1, this is the C<5>.
+In F<patchlevel.h>, this is referred to as C<PERL_REVISION>.
+
+=item C<rm>
+
+From F<Loc.U>:
+
+This variable is used internally by Configure to determine the
+full pathname (if any) of the rm program.  After Configure runs,
+the value is reset to a plain C<rm> and is not useful.
+
+=item C<rm_try>
+
+From F<Unix.U>:
+
+This is a cleanup variable for try test programs.
+Internal Configure use only.
+
+=item C<rmail>
+
+From F<Loc.U>:
+
+This variable is defined but not used by Configure.
+The value is the empty string and is not useful.
+
+=item C<run>
+
+From F<Cross.U>:
+
+This variable contains the command used by Configure
+to copy and execute a cross-compiled executable in the
+target host.  Useful and available only during Perl build.
+Empty string '' if not cross-compiling.
+
+=item C<runnm>
+
+From F<usenm.U>:
+
+This variable contains C<true> or C<false> depending whether the
+nm extraction should be performed or not, according to the value
+of usenm and the flags on the Configure command line.
+
+=back
+
+=cut
+
+=head2 s
+
+=over 4
+
+=cut
+
+=item C<sched_yield>
+
+From F<d_pthread_y.U>:
+
+This variable defines the way to yield the execution
+of the current thread.
+
+=item C<scriptdir>
+
+From F<scriptdir.U>:
+
+This variable holds the name of the directory in which the user wants
+to put publicly scripts for the package in question.  It is either
+the same directory as for binaries, or a special one that can be
+mounted across different architectures, like F</usr/share>. Programs
+must be prepared to deal with F<~name> expansion.
+
+=item C<scriptdirexp>
+
+From F<scriptdir.U>:
+
+This variable is the same as scriptdir, but is filename expanded
+at configuration time, for programs not wanting to bother with it.
+
+=item C<sed>
+
+From F<Loc.U>:
+
+This variable is used internally by Configure to determine the
+full pathname (if any) of the sed program.  After Configure runs,
+the value is reset to a plain C<sed> and is not useful.
+
+=item C<seedfunc>
+
+From F<randfunc.U>:
+
+Indicates the random number generating seed function.
+Values include srand48, srandom, and srand.
+
+=item C<selectminbits>
+
+From F<selectminbits.U>:
+
+This variable holds the minimum number of bits operated by select.
+That is, if you do select(n, ...), how many bits at least will be
+cleared in the masks if some activity is detected.  Usually this
+is either n or 32*ceil(F<n/32>), especially many little-endians do
+the latter.  This is only useful if you have select(), naturally.
+
+=item C<selecttype>
+
+From F<selecttype.U>:
+
+This variable holds the type used for the 2nd, 3rd, and 4th
+arguments to select.  Usually, this is C<fd_set *>, if C<HAS_FD_SET>
+is defined, and C<int *> otherwise.  This is only useful if you
+have select(), naturally.
+
+=item C<sendmail>
+
+From F<Loc.U>:
+
+This variable is defined but not used by Configure.
+The value is the empty string and is not useful.
+
+=item C<setgrent_r_proto>
+
+From F<d_setgrent_r.U>:
+
+This variable encodes the prototype of setgrent_r.
+It is zero if d_setgrent_r is undef, and one of the
+C<REENTRANT_PROTO_T_ABC> macros of F<reentr.h> if d_setgrent_r
+is defined.
+
+=item C<sethostent_r_proto>
+
+From F<d_sethostent_r.U>:
+
+This variable encodes the prototype of sethostent_r.
+It is zero if d_sethostent_r is undef, and one of the
+C<REENTRANT_PROTO_T_ABC> macros of F<reentr.h> if d_sethostent_r
+is defined.
+
+=item C<setlocale_r_proto>
+
+From F<d_setlocale_r.U>:
+
+This variable encodes the prototype of setlocale_r.
+It is zero if d_setlocale_r is undef, and one of the
+C<REENTRANT_PROTO_T_ABC> macros of F<reentr.h> if d_setlocale_r
+is defined.
+
+=item C<setnetent_r_proto>
+
+From F<d_setnetent_r.U>:
+
+This variable encodes the prototype of setnetent_r.
+It is zero if d_setnetent_r is undef, and one of the
+C<REENTRANT_PROTO_T_ABC> macros of F<reentr.h> if d_setnetent_r
+is defined.
+
+=item C<setprotoent_r_proto>
+
+From F<d_setprotoent_r.U>:
+
+This variable encodes the prototype of setprotoent_r.
+It is zero if d_setprotoent_r is undef, and one of the
+C<REENTRANT_PROTO_T_ABC> macros of F<reentr.h> if d_setprotoent_r
+is defined.
+
+=item C<setpwent_r_proto>
+
+From F<d_setpwent_r.U>:
+
+This variable encodes the prototype of setpwent_r.
+It is zero if d_setpwent_r is undef, and one of the
+C<REENTRANT_PROTO_T_ABC> macros of F<reentr.h> if d_setpwent_r
+is defined.
+
+=item C<setservent_r_proto>
+
+From F<d_setservent_r.U>:
+
+This variable encodes the prototype of setservent_r.
+It is zero if d_setservent_r is undef, and one of the
+C<REENTRANT_PROTO_T_ABC> macros of F<reentr.h> if d_setservent_r
+is defined.
+
+=item C<sGMTIME_max>
+
+From F<time_size.U>:
+
+This variable defines the maximum value of the time_t offset that
+the system function gmtime () accepts
+
+=item C<sGMTIME_min>
+
+From F<time_size.U>:
+
+This variable defines the minimum value of the time_t offset that
+the system function gmtime () accepts
+
+=item C<sh>
+
+From F<sh.U>:
+
+This variable contains the full pathname of the shell used
+on this system to execute Bourne shell scripts.  Usually, this will be
+F</bin/sh>, though it's possible that some systems will have F</bin/ksh>,
+F</bin/pdksh>, F</bin/ash>, F</bin/bash>, or even something such as
+D:F</bin/sh.exe>.
+This unit comes before F<Options.U>, so you can't set sh with a C<-D>
+option, though you can override this (and startsh)
+with C<-O -Dsh=F</bin/whatever> -Dstartsh=whatever>
+
+=item C<shar>
+
+From F<Loc.U>:
+
+This variable is defined but not used by Configure.
+The value is the empty string and is not useful.
+
+=item C<sharpbang>
+
+From F<spitshell.U>:
+
+This variable contains the string #! if this system supports that
+construct.
+
+=item C<shmattype>
+
+From F<d_shmat.U>:
+
+This symbol contains the type of pointer returned by shmat().
+It can be C<void *> or C<char *>.
+
+=item C<shortsize>
+
+From F<intsize.U>:
+
+This variable contains the value of the C<SHORTSIZE> symbol which
+indicates to the C program how many bytes there are in a short.
+
+=item C<shrpenv>
+
+From F<libperl.U>:
+
+If the user builds a shared F<libperl.so>, then we need to tell the
+C<perl> executable where it will be able to find the installed F<libperl.so>.
+One way to do this on some systems is to set the environment variable
+C<LD_RUN_PATH> to the directory that will be the final location of the
+shared F<libperl.so>.  The makefile can use this with something like
+$shrpenv $(C<CC>) -o perl F<perlmain.o> $libperl $libs
+Typical values are
+shrpenv="env C<LD_RUN_PATH>=F<$archlibexp/C<CORE>>"
+or
+shrpenv=''
+See the main perl F<Makefile.SH> for actual working usage.
+Alternatively, we might be able to use a command line option such
+as -R F<$archlibexp/C<CORE>> (Solaris) or -Wl,-rpath
+F<$archlibexp/C<CORE>> (Linux).
+
+=item C<shsharp>
+
+From F<spitshell.U>:
+
+This variable tells further Configure units whether your sh can
+handle # comments.
+
+=item C<sig_count>
+
+From F<sig_name.U>:
+
+This variable holds a number larger than the largest valid
+signal number.  This is usually the same as the C<NSIG> macro.
+
+=item C<sig_name>
+
+From F<sig_name.U>:
+
+This variable holds the signal names, space separated. The leading
+C<SIG> in signal name is removed.  A C<ZERO> is prepended to the list.
+This is currently not used, sig_name_init is used instead.
+
+=item C<sig_name_init>
+
+From F<sig_name.U>:
+
+This variable holds the signal names, enclosed in double quotes and
+separated by commas, suitable for use in the C<SIG_NAME> definition
+below.  A C<ZERO> is prepended to the list, and the list is
+terminated with a plain 0.  The leading C<SIG> in signal names
+is removed. See sig_num.
+
+=item C<sig_num>
+
+From F<sig_name.U>:
+
+This variable holds the signal numbers, space separated. A C<ZERO> is
+prepended to the list (corresponding to the fake C<SIGZERO>).
+Those numbers correspond to  the value of the signal listed
+in the same place within the sig_name list.
+This is currently not used, sig_num_init is used instead.
+
+=item C<sig_num_init>
+
+From F<sig_name.U>:
+
+This variable holds the signal numbers, enclosed in double quotes and
+separated by commas, suitable for use in the C<SIG_NUM> definition
+below.  A C<ZERO> is prepended to the list, and the list is
+terminated with a plain 0.
+
+=item C<sig_size>
+
+From F<sig_name.U>:
+
+This variable contains the number of elements of the sig_name
+and sig_num arrays.
+
+=item C<signal_t>
+
+From F<d_voidsig.U>:
+
+This variable holds the type of the signal handler (void or int).
+
+=item C<sitearch>
+
+From F<sitearch.U>:
+
+This variable contains the eventual value of the C<SITEARCH> symbol,
+which is the name of the private library for this package.  It may
+have a F<~> on the front. It is up to the makefile to eventually create
+this directory while performing installation (with F<~> substitution).
+The standard distribution will put nothing in this directory.
+After perl has been installed, users may install their own local
+architecture-dependent modules in this directory with
+MakeMaker F<Makefile.PL>
+or equivalent.  See C<INSTALL> for details.
+
+=item C<sitearchexp>
+
+From F<sitearch.U>:
+
+This variable is the F<~name> expanded version of sitearch, so that you
+may use it directly in Makefiles or shell scripts.
+
+=item C<sitebin>
+
+From F<sitebin.U>:
+
+This variable holds the name of the directory in which the user wants
+to put add-on publicly executable files for the package in question.  It
+is most often a local directory such as F</usr/local/bin>. Programs using
+this variable must be prepared to deal with F<~name> substitution.
+The standard distribution will put nothing in this directory.
+After perl has been installed, users may install their own local
+executables in this directory with
+MakeMaker F<Makefile.PL>
+or equivalent.  See C<INSTALL> for details.
+
+=item C<sitebinexp>
+
+From F<sitebin.U>:
+
+This is the same as the sitebin variable, but is filename expanded at
+configuration time, for use in your makefiles.
+
+=item C<sitehtml1dir>
+
+From F<sitehtml1dir.U>:
+
+This variable contains the name of the directory in which site-specific
+html source pages are to be put.  It is the responsibility of the
+F<Makefile.SH> to get the value of this into the proper command.
+You must be prepared to do the F<~name> expansion yourself.
+The standard distribution will put nothing in this directory.
+After perl has been installed, users may install their own local
+html pages in this directory with
+MakeMaker F<Makefile.PL>
+or equivalent.  See C<INSTALL> for details.
+
+=item C<sitehtml1direxp>
+
+From F<sitehtml1dir.U>:
+
+This variable is the same as the sitehtml1dir variable, but is filename
+expanded at configuration time, for convenient use in makefiles.
+
+=item C<sitehtml3dir>
+
+From F<sitehtml3dir.U>:
+
+This variable contains the name of the directory in which site-specific
+library html source pages are to be put.  It is the responsibility of the
+F<Makefile.SH> to get the value of this into the proper command.
+You must be prepared to do the F<~name> expansion yourself.
+The standard distribution will put nothing in this directory.
+After perl has been installed, users may install their own local
+library html pages in this directory with
+MakeMaker F<Makefile.PL>
+or equivalent.  See C<INSTALL> for details.
+
+=item C<sitehtml3direxp>
+
+From F<sitehtml3dir.U>:
+
+This variable is the same as the sitehtml3dir variable, but is filename
+expanded at configuration time, for convenient use in makefiles.
+
+=item C<sitelib>
+
+From F<sitelib.U>:
+
+This variable contains the eventual value of the C<SITELIB> symbol,
+which is the name of the private library for this package.  It may
+have a F<~> on the front. It is up to the makefile to eventually create
+this directory while performing installation (with F<~> substitution).
+The standard distribution will put nothing in this directory.
+After perl has been installed, users may install their own local
+architecture-independent modules in this directory with
+MakeMaker F<Makefile.PL>
+or equivalent.  See C<INSTALL> for details.
+
+=item C<sitelib_stem>
+
+From F<sitelib.U>:
+
+This variable is $sitelibexp with any trailing version-specific component
+removed.  The elements in inc_version_list (F<inc_version_list.U>) can
+be tacked onto this variable to generate a list of directories to search.
+
+=item C<sitelibexp>
+
+From F<sitelib.U>:
+
+This variable is the F<~name> expanded version of sitelib, so that you
+may use it directly in Makefiles or shell scripts.
+
+=item C<siteman1dir>
+
+From F<siteman1dir.U>:
+
+This variable contains the name of the directory in which site-specific
+manual source pages are to be put.  It is the responsibility of the
+F<Makefile.SH> to get the value of this into the proper command.
+You must be prepared to do the F<~name> expansion yourself.
+The standard distribution will put nothing in this directory.
+After perl has been installed, users may install their own local
+man1 pages in this directory with
+MakeMaker F<Makefile.PL>
+or equivalent.  See C<INSTALL> for details.
+
+=item C<siteman1direxp>
+
+From F<siteman1dir.U>:
+
+This variable is the same as the siteman1dir variable, but is filename
+expanded at configuration time, for convenient use in makefiles.
+
+=item C<siteman3dir>
+
+From F<siteman3dir.U>:
+
+This variable contains the name of the directory in which site-specific
+library man source pages are to be put.  It is the responsibility of the
+F<Makefile.SH> to get the value of this into the proper command.
+You must be prepared to do the F<~name> expansion yourself.
+The standard distribution will put nothing in this directory.
+After perl has been installed, users may install their own local
+man3 pages in this directory with
+MakeMaker F<Makefile.PL>
+or equivalent.  See C<INSTALL> for details.
+
+=item C<siteman3direxp>
+
+From F<siteman3dir.U>:
+
+This variable is the same as the siteman3dir variable, but is filename
+expanded at configuration time, for convenient use in makefiles.
+
+=item C<siteprefix>
+
+From F<siteprefix.U>:
+
+This variable holds the full absolute path of the directory below
+which the user will install add-on packages.
+See C<INSTALL> for usage and examples.
+
+=item C<siteprefixexp>
+
+From F<siteprefix.U>:
+
+This variable holds the full absolute path of the directory below
+which the user will install add-on packages.  Derived from siteprefix.
+
+=item C<sitescript>
+
+From F<sitescript.U>:
+
+This variable holds the name of the directory in which the user wants
+to put add-on publicly executable files for the package in question.  It
+is most often a local directory such as F</usr/local/bin>. Programs using
+this variable must be prepared to deal with F<~name> substitution.
+The standard distribution will put nothing in this directory.
+After perl has been installed, users may install their own local
+scripts in this directory with
+MakeMaker F<Makefile.PL>
+or equivalent.  See C<INSTALL> for details.
+
+=item C<sitescriptexp>
+
+From F<sitescript.U>:
+
+This is the same as the sitescript variable, but is filename expanded at
+configuration time, for use in your makefiles.
+
+=item C<sizesize>
+
+From F<sizesize.U>:
+
+This variable contains the size of a sizetype in bytes.
+
+=item C<sizetype>
+
+From F<sizetype.U>:
+
+This variable defines sizetype to be something like size_t,
+unsigned long, or whatever type is used to declare length
+parameters for string functions.
+
+=item C<sleep>
+
+From F<Loc.U>:
+
+This variable is defined but not used by Configure.
+The value is the empty string and is not useful.
+
+=item C<sLOCALTIME_max>
+
+From F<time_size.U>:
+
+This variable defines the maximum value of the time_t offset that
+the system function localtime () accepts
+
+=item C<sLOCALTIME_min>
+
+From F<time_size.U>:
+
+This variable defines the minimum value of the time_t offset that
+the system function localtime () accepts
+
+=item C<smail>
+
+From F<Loc.U>:
+
+This variable is defined but not used by Configure.
+The value is the empty string and is not useful.
+
+=item C<so>
+
+From F<so.U>:
+
+This variable holds the extension used to identify shared libraries
+(also known as shared objects) on the system. Usually set to C<so>.
+
+=item C<sockethdr>
+
+From F<d_socket.U>:
+
+This variable has any cpp C<-I> flags needed for socket support.
+
+=item C<socketlib>
+
+From F<d_socket.U>:
+
+This variable has the names of any libraries needed for socket support.
+
+=item C<socksizetype>
+
+From F<socksizetype.U>:
+
+This variable holds the type used for the size argument
+for various socket calls like accept.  Usual values include
+socklen_t, size_t, and int.
+
+=item C<sort>
+
+From F<Loc.U>:
+
+This variable is used internally by Configure to determine the
+full pathname (if any) of the sort program.  After Configure runs,
+the value is reset to a plain C<sort> and is not useful.
+
+=item C<spackage>
+
+From F<package.U>:
+
+This variable contains the name of the package being constructed,
+with the first letter uppercased, F<i.e>. suitable for starting
+sentences.
+
+=item C<spitshell>
+
+From F<spitshell.U>:
+
+This variable contains the command necessary to spit out a runnable
+shell on this system.  It is either cat or a grep C<-v> for # comments.
+
+=item C<sPRId64>
+
+From F<quadfio.U>:
+
+This variable, if defined, contains the string used by stdio to
+format 64-bit decimal numbers (format C<d>) for output.
+
+=item C<sPRIeldbl>
+
+From F<longdblfio.U>:
+
+This variable, if defined, contains the string used by stdio to
+format long doubles (format C<e>) for output.
+
+=item C<sPRIEUldbl>
+
+From F<longdblfio.U>:
+
+This variable, if defined, contains the string used by stdio to
+format long doubles (format C<E>) for output.
+The C<U> in the name is to separate this from sPRIeldbl so that even
+case-blind systems can see the difference.
+
+=item C<sPRIfldbl>
+
+From F<longdblfio.U>:
+
+This variable, if defined, contains the string used by stdio to
+format long doubles (format C<f>) for output.
+
+=item C<sPRIFUldbl>
+
+From F<longdblfio.U>:
+
+This variable, if defined, contains the string used by stdio to
+format long doubles (format C<F>) for output.
+The C<U> in the name is to separate this from sPRIfldbl so that even
+case-blind systems can see the difference.
+
+=item C<sPRIgldbl>
+
+From F<longdblfio.U>:
+
+This variable, if defined, contains the string used by stdio to
+format long doubles (format C<g>) for output.
+
+=item C<sPRIGUldbl>
+
+From F<longdblfio.U>:
+
+This variable, if defined, contains the string used by stdio to
+format long doubles (format C<G>) for output.
+The C<U> in the name is to separate this from sPRIgldbl so that even
+case-blind systems can see the difference.
+
+=item C<sPRIi64>
+
+From F<quadfio.U>:
+
+This variable, if defined, contains the string used by stdio to
+format 64-bit decimal numbers (format C<i>) for output.
+
+=item C<sPRIo64>
+
+From F<quadfio.U>:
+
+This variable, if defined, contains the string used by stdio to
+format 64-bit octal numbers (format C<o>) for output.
+
+=item C<sPRIu64>
+
+From F<quadfio.U>:
+
+This variable, if defined, contains the string used by stdio to
+format 64-bit unsigned decimal numbers (format C<u>) for output.
+
+=item C<sPRIx64>
+
+From F<quadfio.U>:
+
+This variable, if defined, contains the string used by stdio to
+format 64-bit hexadecimal numbers (format C<x>) for output.
+
+=item C<sPRIXU64>
+
+From F<quadfio.U>:
+
+This variable, if defined, contains the string used by stdio to
+format 64-bit hExADECimAl numbers (format C<X>) for output.
+The C<U> in the name is to separate this from sPRIx64 so that even
+case-blind systems can see the difference.
+
+=item C<srand48_r_proto>
+
+From F<d_srand48_r.U>:
+
+This variable encodes the prototype of srand48_r.
+It is zero if d_srand48_r is undef, and one of the
+C<REENTRANT_PROTO_T_ABC> macros of F<reentr.h> if d_srand48_r
+is defined.
+
+=item C<srandom_r_proto>
+
+From F<d_srandom_r.U>:
+
+This variable encodes the prototype of srandom_r.
+It is zero if d_srandom_r is undef, and one of the
+C<REENTRANT_PROTO_T_ABC> macros of F<reentr.h> if d_srandom_r
+is defined.
+
+=item C<src>
+
+From F<src.U>:
+
+This variable holds the (possibly relative) path of the package source.
+It is up to the Makefile to use this variable and set C<VPATH> accordingly
+to find the sources remotely.  Use $pkgsrc to have an absolute path.
+
+=item C<sSCNfldbl>
+
+From F<longdblfio.U>:
+
+This variable, if defined, contains the string used by stdio to
+format long doubles (format C<f>) for input.
+
+=item C<ssizetype>
+
+From F<ssizetype.U>:
+
+This variable defines ssizetype to be something like ssize_t,
+long or int.  It is used by functions that return a count
+of bytes or an error condition.  It must be a signed type.
+We will pick a type such that sizeof(SSize_t) == sizeof(Size_t).
+
+=item C<st_ino_sign>
+
+From F<st_ino_def.U>:
+
+This variable contains the signedness of struct stat's st_ino.
+1 for unsigned, -1 for signed.
+
+=item C<st_ino_size>
+
+From F<st_ino_def.U>:
+
+This variable contains the size of struct stat's st_ino in bytes.
+
+=item C<startperl>
+
+From F<startperl.U>:
+
+This variable contains the string to put on the front of a perl
+script to make sure (hopefully) that it runs with perl and not some
+shell. Of course, that leading line must be followed by the classical
+perl idiom:
+eval 'exec perl -S $0 ${1+C<$@>}'
+if $running_under_some_shell;
+to guarantee perl startup should the shell execute the script. Note
+that this magic incantation is not understood by csh.
+
+=item C<startsh>
+
+From F<startsh.U>:
+
+This variable contains the string to put on the front of a shell
+script to make sure (hopefully) that it runs with sh and not some
+other shell.
+
+=item C<static_ext>
+
+From F<Extensions.U>:
+
+This variable holds a list of C<XS> extension files we want to
+link statically into the package.  It is used by Makefile.
+
+=item C<stdchar>
+
+From F<stdchar.U>:
+
+This variable conditionally defines C<STDCHAR> to be the type of char
+used in F<stdio.h>.  It has the values "unsigned char" or C<char>.
+
+=item C<stdio_base>
+
+From F<d_stdstdio.U>:
+
+This variable defines how, given a C<FILE> pointer, fp, to access the
+_base field (or equivalent) of F<stdio.h>'s C<FILE> structure.  This will
+be used to define the macro FILE_base(fp).
+
+=item C<stdio_bufsiz>
+
+From F<d_stdstdio.U>:
+
+This variable defines how, given a C<FILE> pointer, fp, to determine
+the number of bytes store in the I/O buffer pointer to by the
+_base field (or equivalent) of F<stdio.h>'s C<FILE> structure.  This will
+be used to define the macro FILE_bufsiz(fp).
+
+=item C<stdio_cnt>
+
+From F<d_stdstdio.U>:
+
+This variable defines how, given a C<FILE> pointer, fp, to access the
+_cnt field (or equivalent) of F<stdio.h>'s C<FILE> structure.  This will
+be used to define the macro FILE_cnt(fp).
+
+=item C<stdio_filbuf>
+
+From F<d_stdstdio.U>:
+
+This variable defines how, given a C<FILE> pointer, fp, to tell
+stdio to refill its internal buffers (?).  This will
+be used to define the macro FILE_filbuf(fp).
+
+=item C<stdio_ptr>
+
+From F<d_stdstdio.U>:
+
+This variable defines how, given a C<FILE> pointer, fp, to access the
+_ptr field (or equivalent) of F<stdio.h>'s C<FILE> structure.  This will
+be used to define the macro FILE_ptr(fp).
+
+=item C<stdio_stream_array>
+
+From F<stdio_streams.U>:
+
+This variable tells the name of the array holding the stdio streams.
+Usual values include _iob, __iob, and __sF.
+
+=item C<strerror_r_proto>
+
+From F<d_strerror_r.U>:
+
+This variable encodes the prototype of strerror_r.
+It is zero if d_strerror_r is undef, and one of the
+C<REENTRANT_PROTO_T_ABC> macros of F<reentr.h> if d_strerror_r
+is defined.
+
+=item C<strings>
+
+From F<i_string.U>:
+
+This variable holds the full path of the string header that will be
+used. Typically F</usr/include/string.h> or F</usr/include/strings.h>.
+
+=item C<submit>
+
+From F<Loc.U>:
+
+This variable is defined but not used by Configure.
+The value is the empty string and is not useful.
+
+=item C<subversion>
+
+From F<patchlevel.U>:
+
+The subversion level of this package.
+The value of subversion comes from the F<patchlevel.h> file.
+In a version number such as 5.6.1, this is the C<1>.
+In F<patchlevel.h>, this is referred to as C<PERL_SUBVERSION>.
+This is unique to perl.
+
+=item C<sysman>
+
+From F<sysman.U>:
+
+This variable holds the place where the manual is located on this
+system. It is not the place where the user wants to put his manual
+pages. Rather it is the place where Configure may look to find manual
+for unix commands (section 1 of the manual usually). See mansrc.
+
+=item C<sysroot>
+
+From F<Sysroot.U>:
+
+This variable is empty unless supplied by the Configure user.
+It can contain a path to an alternative root directory, under which
+headers and libraries for the compilation target can be found. This
+is generally used when cross-compiling using a gcc-like compiler.
+
+=back
+
+=cut
+
+=head2 t
+
+=over 4
+
+=cut
+
+=item C<tail>
+
+From F<Loc.U>:
+
+This variable is defined but not used by Configure.
+The value is the empty string and is not useful.
+
+=item C<tar>
+
+From F<Loc.U>:
+
+This variable is defined but not used by Configure.
+The value is the empty string and is not useful.
+
+=item C<targetarch>
+
+From F<Cross.U>:
+
+If cross-compiling, this variable contains the target architecture.
+If not, this will be empty.
+
+=item C<targetdir>
+
+From F<Cross.U>:
+
+This variable contains a path that will be created on the target
+host using targetmkdir, and then used to copy the cross-compiled
+executables to. Defaults to F</tmp> if not set.
+
+=item C<targetenv>
+
+From F<Cross.U>:
+
+If cross-compiling, this variable can be used to modify the
+environment on the target system.
+However, how and where it's used, and even if it's used at all, is
+entirely dependent on both the transport mechanism (targetrun) and
+what the target system is.  Unless the relevant documentation says
+otherwise, it is genereally not useful.
+
+=item C<targethost>
+
+From F<Cross.U>:
+
+This variable contains the name of a separate host machine that
+can be used to run compiled test programs and perl tests on.
+Set to empty string if not in use.
+
+=item C<targetmkdir>
+
+From F<Cross.U>:
+
+This variable contains the command used by Configure to create a
+new directory on the target host.
+
+=item C<targetport>
+
+From F<Cross.U>:
+
+This variable contains the number of a network port to be used to
+connect to the host in targethost, if unset defaults to 22 for ssh.
+
+=item C<targetsh>
+
+From F<sh.U>:
+
+If cross-compiling, this variable contains the location of sh on the
+target system.
+If not, this will be the same as $sh.
+
+=item C<tbl>
+
+From F<Loc.U>:
+
+This variable is defined but not used by Configure.
+The value is the empty string and is not useful.
+
+=item C<tee>
+
+From F<Loc.U>:
+
+This variable is defined but not used by Configure.
+The value is the empty string and is not useful.
+
+=item C<test>
+
+From F<Loc.U>:
+
+This variable is used internally by Configure to determine the
+full pathname (if any) of the test program.  After Configure runs,
+the value is reset to a plain C<test> and is not useful.
+
+=item C<timeincl>
+
+From F<i_time.U>:
+
+This variable holds the full path of the included time header(s).
+
+=item C<timetype>
+
+From F<d_time.U>:
+
+This variable holds the type returned by time(). It can be long,
+or time_t on C<BSD> sites (in which case <sys/types.h> should be
+included). Anyway, the type Time_t should be used.
+
+=item C<tmpnam_r_proto>
+
+From F<d_tmpnam_r.U>:
+
+This variable encodes the prototype of tmpnam_r.
+It is zero if d_tmpnam_r is undef, and one of the
+C<REENTRANT_PROTO_T_ABC> macros of F<reentr.h> if d_tmpnam_r
+is defined.
+
+=item C<to>
+
+From F<Cross.U>:
+
+This variable contains the command used by Configure
+to copy to from the target host.  Useful and available
+only during Perl build.
+The string C<:> if not cross-compiling.
+
+=item C<touch>
+
+From F<Loc.U>:
+
+This variable is used internally by Configure to determine the
+full pathname (if any) of the touch program.  After Configure runs,
+the value is reset to a plain C<touch> and is not useful.
+
+=item C<tr>
+
+From F<Loc.U>:
+
+This variable is used internally by Configure to determine the
+full pathname (if any) of the tr program.  After Configure runs,
+the value is reset to a plain C<tr> and is not useful.
+
+=item C<trnl>
+
+From F<trnl.U>:
+
+This variable contains the value to be passed to the tr(1)
+command to transliterate a newline.  Typical values are
+C<\012> and C<\n>.  This is needed for C<EBCDIC> systems where
+newline is not necessarily C<\012>.
+
+=item C<troff>
+
+From F<Loc.U>:
+
+This variable is defined but not used by Configure.
+The value is the empty string and is not useful.
+
+=item C<ttyname_r_proto>
+
+From F<d_ttyname_r.U>:
+
+This variable encodes the prototype of ttyname_r.
+It is zero if d_ttyname_r is undef, and one of the
+C<REENTRANT_PROTO_T_ABC> macros of F<reentr.h> if d_ttyname_r
+is defined.
+
+=back
+
+=cut
+
+=head2 u
+
+=over 4
+
+=cut
+
+=item C<u16size>
+
+From F<perlxv.U>:
+
+This variable is the size of an U16 in bytes.
+
+=item C<u16type>
+
+From F<perlxv.U>:
+
+This variable contains the C type used for Perl's U16.
+
+=item C<u32size>
+
+From F<perlxv.U>:
+
+This variable is the size of an U32 in bytes.
+
+=item C<u32type>
+
+From F<perlxv.U>:
+
+This variable contains the C type used for Perl's U32.
+
+=item C<u64size>
+
+From F<perlxv.U>:
+
+This variable is the size of an U64 in bytes.
+
+=item C<u64type>
+
+From F<perlxv.U>:
+
+This variable contains the C type used for Perl's U64.
+
+=item C<u8size>
+
+From F<perlxv.U>:
+
+This variable is the size of an U8 in bytes.
+
+=item C<u8type>
+
+From F<perlxv.U>:
+
+This variable contains the C type used for Perl's U8.
+
+=item C<uidformat>
+
+From F<uidf.U>:
+
+This variable contains the format string used for printing a Uid_t.
+
+=item C<uidsign>
+
+From F<uidsign.U>:
+
+This variable contains the signedness of a uidtype.
+1 for unsigned, -1 for signed.
+
+=item C<uidsize>
+
+From F<uidsize.U>:
+
+This variable contains the size of a uidtype in bytes.
+
+=item C<uidtype>
+
+From F<uidtype.U>:
+
+This variable defines Uid_t to be something like uid_t, int,
+ushort, or whatever type is used to declare user ids in the kernel.
+
+=item C<uname>
+
+From F<Loc.U>:
+
+This variable is used internally by Configure to determine the
+full pathname (if any) of the uname program.  After Configure runs,
+the value is reset to a plain C<uname> and is not useful.
+
+=item C<uniq>
+
+From F<Loc.U>:
+
+This variable is used internally by Configure to determine the
+full pathname (if any) of the uniq program.  After Configure runs,
+the value is reset to a plain C<uniq> and is not useful.
+
+=item C<uquadtype>
+
+From F<quadtype.U>:
+
+This variable defines Uquad_t to be something like unsigned long,
+unsigned int, unsigned long long, uint64_t, or whatever type is
+used for 64-bit integers.
+
+=item C<use5005threads>
+
+From F<usethreads.U>:
+
+This variable conditionally defines the USE_5005THREADS symbol,
+and indicates that Perl should be built to use the 5.005-based
+threading implementation. Only valid up to 5.8.x.
+
+=item C<use64bitall>
+
+From F<use64bits.U>:
+
+This variable conditionally defines the USE_64_BIT_ALL symbol,
+and indicates that 64-bit integer types should be used
+when available.  The maximal possible
+64-bitness is employed: LP64 or ILP64, meaning that you will
+be able to use more than 2 gigabytes of memory.  This mode is
+even more binary incompatible than USE_64_BIT_INT. You may not
+be able to run the resulting executable in a 32-bit C<CPU> at all or
+you may need at least to reboot your C<OS> to 64-bit mode.
+
+=item C<use64bitint>
+
+From F<use64bits.U>:
+
+This variable conditionally defines the USE_64_BIT_INT symbol,
+and indicates that 64-bit integer types should be used
+when available.  The minimal possible 64-bitness
+is employed, just enough to get 64-bit integers into Perl.
+This may mean using for example "long longs", while your memory
+may still be limited to 2 gigabytes.
+
+=item C<usecbacktrace>
+
+From F<usebacktrace.U>:
+
+This variable indicates whether we are compiling with backtrace
+support.
+
+=item C<usecrosscompile>
+
+From F<Cross.U>:
+
+This variable conditionally defines the C<USE_CROSS_COMPILE> symbol,
+and indicates that Perl has been cross-compiled.
+
+=item C<usedevel>
+
+From F<Devel.U>:
+
+This variable indicates that Perl was configured with development
+features enabled.  This should not be done for production builds.
+
+=item C<usedl>
+
+From F<dlsrc.U>:
+
+This variable indicates if the system supports dynamic
+loading of some sort.  See also dlsrc and dlobj.
+
+=item C<usedtrace>
+
+From F<usedtrace.U>:
+
+This variable indicates whether we are compiling with dtrace
+support. See also dtrace.
+
+=item C<usefaststdio>
+
+From F<usefaststdio.U>:
+
+This variable conditionally defines the C<USE_FAST_STDIO> symbol,
+and indicates that Perl should be built to use C<fast stdio>.
+Defaults to define in Perls 5.8 and earlier, to undef later.
+
+=item C<useithreads>
+
+From F<usethreads.U>:
+
+This variable conditionally defines the C<USE_ITHREADS> symbol,
+and indicates that Perl should be built to use the interpreter-based
+threading implementation.
+
+=item C<usekernprocpathname>
+
+From F<usekernprocpathname.U>:
+
+This variable, indicates that we can use sysctl with
+C<KERN_PROC_PATHNAME> to get a full path for the executable, and hence
+convert $^X to an absolute path.
+
+=item C<uselargefiles>
+
+From F<uselfs.U>:
+
+This variable conditionally defines the C<USE_LARGE_FILES> symbol,
+and indicates that large file interfaces should be used when
+available.
+
+=item C<uselongdouble>
+
+From F<uselongdbl.U>:
+
+This variable conditionally defines the C<USE_LONG_DOUBLE> symbol,
+and indicates that long doubles should be used when available.
+
+=item C<usemallocwrap>
+
+From F<mallocsrc.U>:
+
+This variable contains y if we are wrapping malloc to prevent
+integer overflow during size calculations.
+
+=item C<usemorebits>
+
+From F<usemorebits.U>:
+
+This variable conditionally defines the C<USE_MORE_BITS> symbol,
+and indicates that explicit 64-bit interfaces and long doubles
+should be used when available.
+
+=item C<usemultiplicity>
+
+From F<usemultiplicity.U>:
+
+This variable conditionally defines the C<MULTIPLICITY> symbol,
+and indicates that Perl should be built to use multiplicity.
+
+=item C<usemymalloc>
+
+From F<mallocsrc.U>:
+
+This variable contains y if the malloc that comes with this package
+is desired over the system's version of malloc.  People often include
+special versions of malloc for efficiency, but such versions are often
+less portable.  See also mallocsrc and mallocobj.
+If this is C<y>, then -lmalloc is removed from $libs.
+
+=item C<usenm>
+
+From F<usenm.U>:
+
+This variable contains C<true> or C<false> depending whether the
+nm extraction is wanted or not.
+
+=item C<usensgetexecutablepath>
+
+From F<usensgetexecutablepath.U>:
+
+This symbol, if defined, indicates that we can use _NSGetExecutablePath
+and realpath to get a full path for the executable, and hence convert
+$^X to an absolute path.
+
+=item C<useopcode>
+
+From F<Extensions.U>:
+
+This variable holds either C<true> or C<false> to indicate
+whether the Opcode extension should be used.  The sole
+use for this currently is to allow an easy mechanism
+for users to skip the Opcode extension from the Configure
+command line.
+
+=item C<useperlio>
+
+From F<useperlio.U>:
+
+This variable conditionally defines the C<USE_PERLIO> symbol,
+and indicates that the PerlIO abstraction should be
+used throughout.
+
+=item C<useposix>
+
+From F<Extensions.U>:
+
+This variable holds either C<true> or C<false> to indicate
+whether the C<POSIX> extension should be used.  The sole
+use for this currently is to allow an easy mechanism
+for hints files to indicate that C<POSIX> will not compile
+on a particular system.
+
+=item C<usequadmath>
+
+From F<usequadmath.U>:
+
+This variable conditionally defines the C<USE_QUADMATH> symbol,
+and indicates that the quadmath library __float128 long doubles
+should be used when available.
+
+=item C<usereentrant>
+
+From F<usethreads.U>:
+
+This variable conditionally defines the C<USE_REENTRANT_API> symbol,
+which indicates that the thread code may try to use the various
+_r versions of library functions.  This is only potentially
+meaningful if usethreads is set and is very experimental, it is
+not even prompted for.
+
+=item C<userelocatableinc>
+
+From F<bin.U>:
+
+This variable is set to true to indicate that perl should relocate
+@C<INC> entries at runtime based on the path to the perl binary.
+Any @C<INC> paths starting F<.../> are relocated relative to the directory
+containing the perl binary, and a logical cleanup of the path is then
+made around the join point (removing F<dir/../> pairs)
+
+=item C<useshrplib>
+
+From F<libperl.U>:
+
+This variable is set to C<true> if the user wishes
+to build a shared libperl, and C<false> otherwise.
+
+=item C<usesitecustomize>
+
+From F<d_sitecustomize.U>:
+
+This variable is set to true when the user requires a mechanism that
+allows the sysadmin to add entries to @C<INC> at runtime.  This variable
+being set, makes perl run F<$sitelib/sitecustomize.pl> at startup.
+
+=item C<usesocks>
+
+From F<usesocks.U>:
+
+This variable conditionally defines the C<USE_SOCKS> symbol,
+and indicates that Perl should be built to use C<SOCKS>.
+
+=item C<usethreads>
+
+From F<usethreads.U>:
+
+This variable conditionally defines the C<USE_THREADS> symbol,
+and indicates that Perl should be built to use threads.
+
+=item C<usevendorprefix>
+
+From F<vendorprefix.U>:
+
+This variable tells whether the vendorprefix
+and consequently other vendor* paths are in use.
+
+=item C<useversionedarchname>
+
+From F<archname.U>:
+
+This variable indicates whether to include the $api_versionstring
+as a component of the $archname.
+
+=item C<usevfork>
+
+From F<d_vfork.U>:
+
+This variable is set to true when the user accepts to use vfork.
+It is set to false when no vfork is available or when the user
+explicitly requests not to use vfork.
+
+=item C<usrinc>
+
+From F<usrinc.U>:
+
+This variable holds the path of the include files, which is
+usually F</usr/include>. It is mainly used by other Configure units.
+
+=item C<uuname>
+
+From F<Loc.U>:
+
+This variable is defined but not used by Configure.
+The value is the empty string and is not useful.
+
+=item C<uvoformat>
+
+From F<perlxvf.U>:
+
+This variable contains the format string used for printing
+a Perl C<UV> as an unsigned octal integer.
+
+=item C<uvsize>
+
+From F<perlxv.U>:
+
+This variable is the size of a C<UV> in bytes.
+
+=item C<uvtype>
+
+From F<perlxv.U>:
+
+This variable contains the C type used for Perl's C<UV>.
+
+=item C<uvuformat>
+
+From F<perlxvf.U>:
+
+This variable contains the format string used for printing
+a Perl C<UV> as an unsigned decimal integer.
+
+=item C<uvxformat>
+
+From F<perlxvf.U>:
+
+This variable contains the format string used for printing
+a Perl C<UV> as an unsigned hexadecimal integer in lowercase abcdef.
+
+=item C<uvXUformat>
+
+From F<perlxvf.U>:
+
+This variable contains the format string used for printing
+a Perl C<UV> as an unsigned hexadecimal integer in uppercase C<ABCDEF>.
+
+=back
+
+=cut
+
+=head2 v
+
+=over 4
+
+=cut
+
+=item C<vaproto>
+
+From F<vaproto.U>:
+
+This variable conditionally defines C<CAN_VAPROTO> on systems supporting
+prototype declaration of functions with a variable number of
+arguments. See also prototype.
+
+=item C<vendorarch>
+
+From F<vendorarch.U>:
+
+This variable contains the value of the C<PERL_VENDORARCH> symbol.
+It may have a F<~> on the front.
+The standard distribution will put nothing in this directory.
+Vendors who distribute perl may wish to place their own
+architecture-dependent modules and extensions in this directory with
+MakeMaker F<Makefile.PL> C<INSTALLDIRS>=vendor
+or equivalent.  See C<INSTALL> for details.
+
+=item C<vendorarchexp>
+
+From F<vendorarch.U>:
+
+This variable is the F<~name> expanded version of vendorarch, so that you
+may use it directly in Makefiles or shell scripts.
+
+=item C<vendorbin>
+
+From F<vendorbin.U>:
+
+This variable contains the eventual value of the C<VENDORBIN> symbol.
+It may have a F<~> on the front.
+The standard distribution will put nothing in this directory.
+Vendors who distribute perl may wish to place additional
+binaries in this directory with
+MakeMaker F<Makefile.PL> C<INSTALLDIRS>=vendor
+or equivalent.  See C<INSTALL> for details.
+
+=item C<vendorbinexp>
+
+From F<vendorbin.U>:
+
+This variable is the F<~name> expanded version of vendorbin, so that you
+may use it directly in Makefiles or shell scripts.
+
+=item C<vendorhtml1dir>
+
+From F<vendorhtml1dir.U>:
+
+This variable contains the name of the directory for html
+pages.  It may have a F<~> on the front.
+The standard distribution will put nothing in this directory.
+Vendors who distribute perl may wish to place their own
+html pages in this directory with
+MakeMaker F<Makefile.PL> C<INSTALLDIRS>=vendor
+or equivalent.  See C<INSTALL> for details.
+
+=item C<vendorhtml1direxp>
+
+From F<vendorhtml1dir.U>:
+
+This variable is the F<~name> expanded version of vendorhtml1dir, so that you
+may use it directly in Makefiles or shell scripts.
+
+=item C<vendorhtml3dir>
+
+From F<vendorhtml3dir.U>:
+
+This variable contains the name of the directory for html
+library pages.  It may have a F<~> on the front.
+The standard distribution will put nothing in this directory.
+Vendors who distribute perl may wish to place their own
+html pages for modules and extensions in this directory with
+MakeMaker F<Makefile.PL> C<INSTALLDIRS>=vendor
+or equivalent.  See C<INSTALL> for details.
+
+=item C<vendorhtml3direxp>
+
+From F<vendorhtml3dir.U>:
+
+This variable is the F<~name> expanded version of vendorhtml3dir, so that you
+may use it directly in Makefiles or shell scripts.
+
+=item C<vendorlib>
+
+From F<vendorlib.U>:
+
+This variable contains the eventual value of the C<VENDORLIB> symbol,
+which is the name of the private library for this package.
+The standard distribution will put nothing in this directory.
+Vendors who distribute perl may wish to place their own
+modules in this directory with
+MakeMaker F<Makefile.PL> C<INSTALLDIRS>=vendor
+or equivalent.  See C<INSTALL> for details.
+
+=item C<vendorlib_stem>
+
+From F<vendorlib.U>:
+
+This variable is $vendorlibexp with any trailing version-specific component
+removed.  The elements in inc_version_list (F<inc_version_list.U>) can
+be tacked onto this variable to generate a list of directories to search.
+
+=item C<vendorlibexp>
+
+From F<vendorlib.U>:
+
+This variable is the F<~name> expanded version of vendorlib, so that you
+may use it directly in Makefiles or shell scripts.
+
+=item C<vendorman1dir>
+
+From F<vendorman1dir.U>:
+
+This variable contains the name of the directory for man1
+pages.  It may have a F<~> on the front.
+The standard distribution will put nothing in this directory.
+Vendors who distribute perl may wish to place their own
+man1 pages in this directory with
+MakeMaker F<Makefile.PL> C<INSTALLDIRS>=vendor
+or equivalent.  See C<INSTALL> for details.
+
+=item C<vendorman1direxp>
+
+From F<vendorman1dir.U>:
+
+This variable is the F<~name> expanded version of vendorman1dir, so that you
+may use it directly in Makefiles or shell scripts.
+
+=item C<vendorman3dir>
+
+From F<vendorman3dir.U>:
+
+This variable contains the name of the directory for man3
+pages.  It may have a F<~> on the front.
+The standard distribution will put nothing in this directory.
+Vendors who distribute perl may wish to place their own
+man3 pages in this directory with
+MakeMaker F<Makefile.PL> C<INSTALLDIRS>=vendor
+or equivalent.  See C<INSTALL> for details.
+
+=item C<vendorman3direxp>
+
+From F<vendorman3dir.U>:
+
+This variable is the F<~name> expanded version of vendorman3dir, so that you
+may use it directly in Makefiles or shell scripts.
+
+=item C<vendorprefix>
+
+From F<vendorprefix.U>:
+
+This variable holds the full absolute path of the directory below
+which the vendor will install add-on packages.
+See C<INSTALL> for usage and examples.
+
+=item C<vendorprefixexp>
+
+From F<vendorprefix.U>:
+
+This variable holds the full absolute path of the directory below
+which the vendor will install add-on packages.  Derived from vendorprefix.
+
+=item C<vendorscript>
+
+From F<vendorscript.U>:
+
+This variable contains the eventual value of the C<VENDORSCRIPT> symbol.
+It may have a F<~> on the front.
+The standard distribution will put nothing in this directory.
+Vendors who distribute perl may wish to place additional
+executable scripts in this directory with
+MakeMaker F<Makefile.PL> C<INSTALLDIRS>=vendor
+or equivalent.  See C<INSTALL> for details.
+
+=item C<vendorscriptexp>
+
+From F<vendorscript.U>:
+
+This variable is the F<~name> expanded version of vendorscript, so that you
+may use it directly in Makefiles or shell scripts.
+
+=item C<version>
+
+From F<patchlevel.U>:
+
+The full version number of this package, such as 5.6.1 (or 5_6_1).
+This combines revision, patchlevel, and subversion to get the
+full version number, including any possible subversions.
+This is suitable for use as a directory name, and hence is
+filesystem dependent.
+
+=item C<version_patchlevel_string>
+
+From F<patchlevel.U>:
+
+This is a string combining version, subversion and
+perl_patchlevel (if perl_patchlevel is non-zero).
+It is typically something like
+'version 7 subversion 1'  or
+'version 7 subversion 1 patchlevel 11224'
+It is computed here to avoid duplication of code in F<myconfig.SH>
+and F<lib/Config.pm>.
+
+=item C<versiononly>
+
+From F<versiononly.U>:
+
+If set, this symbol indicates that only the version-specific
+components of a perl installation should be installed.
+This may be useful for making a test installation of a new
+version without disturbing the existing installation.
+Setting versiononly is equivalent to setting installperl's -v option.
+In particular, the non-versioned scripts and programs such as
+a2p, c2ph, h2xs, pod2*, and perldoc are not installed
+(see C<INSTALL> for a more complete list).  Nor are the man
+pages installed.
+Usually, this is undef.
+
+=item C<vi>
+
+From F<Loc.U>:
+
+This variable is defined but not used by Configure.
+The value is the empty string and is not useful.
+
+=back
+
+=cut
+
+=head2 x
+
+=over 4
+
+=cut
+
+=item C<xlibpth>
+
+From F<libpth.U>:
+
+This variable holds extra path (space-separated) used to find
+libraries on this platform, for example C<CPU>-specific libraries
+(on multi-C<CPU> platforms) may be listed here.
+
+=back
+
+=cut
+
+=head2 y
+
+=over 4
+
+=cut
+
+=item C<yacc>
+
+From F<yacc.U>:
+
+This variable holds the name of the compiler compiler we
+want to use in the Makefile. It can be yacc, byacc, or bison -y.
+
+=item C<yaccflags>
+
+From F<yacc.U>:
+
+This variable contains any additional yacc flags desired by the
+user.  It is up to the Makefile to use this.
+
+=back
+
+=cut
+
+=head2 z
+
+=over 4
+
+=cut
+
+=item C<zcat>
+
+From F<Loc.U>:
+
+This variable is defined but not used by Configure.
+The value is the empty string and is not useful.
+
+=item C<zip>
+
+From F<Loc.U>:
+
+This variable is used internally by Configure to determine the
+full pathname (if any) of the zip program.  After Configure runs,
+the value is reset to a plain C<zip> and is not useful.
+
+
+=back
+
+=head1 GIT DATA
+
+Information on the git commit from which the current perl binary was compiled
+can be found in the variable C<$Config::Git_Data>.  The variable is a
+structured string that looks something like this:
+
+  git_commit_id='ea0c2dbd5f5ac6845ecc7ec6696415bf8e27bd52'
+  git_describe='GitLive-blead-1076-gea0c2db'
+  git_branch='smartmatch'
+  git_uncommitted_changes=''
+  git_commit_id_title='Commit id:'
+  git_commit_date='2009-05-09 17:47:31 +0200'
+
+Its format is not guaranteed not to change over time.
+
+=head1 NOTE
+
+This module contains a good example of how to use tie to implement a
+cache and an example of how to make a tied variable readonly to those
+outside of it.
+
+=cut
+
diff --git a/lib/5.24.1/x86_64-linux/Config_git.pl b/lib/5.24.1/x86_64-linux/Config_git.pl
new file mode 100644
index 00000000..6aacc4c1
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/Config_git.pl
@@ -0,0 +1,12 @@
+######################################################################
+# WARNING: 'lib/Config_git.pl' is generated by make_patchnum.pl
+#          DO NOT EDIT DIRECTLY - edit make_patchnum.pl instead
+######################################################################
+$Config::Git_Data=<<'ENDOFGIT';
+git_commit_id=''
+git_describe=''
+git_branch=''
+git_uncommitted_changes=''
+git_commit_id_title=''
+
+ENDOFGIT
diff --git a/lib/5.24.1/x86_64-linux/Config_heavy.pl b/lib/5.24.1/x86_64-linux/Config_heavy.pl
new file mode 100644
index 00000000..a671e361
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/Config_heavy.pl
@@ -0,0 +1,1459 @@
+# This file was created by configpm when Perl was built. Any changes
+# made to this file will be lost the next time perl is built.
+
+package Config;
+use strict;
+use warnings;
+use vars '%Config';
+
+sub bincompat_options {
+    return split ' ', (Internals::V())[0];
+}
+
+sub non_bincompat_options {
+    return split ' ', (Internals::V())[1];
+}
+
+sub compile_date {
+    return (Internals::V())[2]
+}
+
+sub local_patches {
+    my (undef, undef, undef, @patches) = Internals::V();
+    return @patches;
+}
+
+sub _V {
+    die "Perl lib was built for 'linux' but is being run on '$^O'"
+        unless "linux" eq $^O;
+
+    my ($bincompat, $non_bincompat, $date, @patches) = Internals::V();
+
+    my $opts = join ' ', sort split ' ', "$bincompat $non_bincompat";
+
+    # wrap at 76 columns.
+
+    $opts =~ s/(?=.{53})(.{1,53}) /$1\n                        /mg;
+
+    print Config::myconfig();
+    print "\nCharacteristics of this binary (from libperl): \n";
+
+    print "  Compile-time options: $opts\n";
+
+    if (@patches) {
+        print "  Locally applied patches:\n";
+        print "\t$_\n" foreach @patches;
+    }
+
+    print "  Built under linux\n";
+
+    print "  $date\n" if defined $date;
+
+    my @env = map { "$_=\"$ENV{$_}\"" } sort grep {/^PERL/} keys %ENV;
+
+    if (@env) {
+        print "  \%ENV:\n";
+        print "    $_\n" foreach @env;
+    }
+    print "  \@INC:\n";
+    print "    $_\n" foreach @INC;
+}
+
+sub header_files {
+    return qw(EXTERN.h INTERN.h XSUB.h av.h config.h cop.h cv.h
+              dosish.h embed.h embedvar.h form.h gv.h handy.h hv.h hv_func.h
+              intrpvar.h iperlsys.h keywords.h mg.h nostdio.h op.h opcode.h
+              pad.h parser.h patchlevel.h perl.h perlio.h perliol.h perlsdio.h
+              perlvars.h perly.h pp.h pp_proto.h proto.h regcomp.h regexp.h
+              regnodes.h scope.h sv.h thread.h time64.h unixish.h utf8.h
+              util.h);
+}
+
+##
+## This file was produced by running the Configure script. It holds all the
+## definitions figured out by Configure. Should you modify one of these values,
+## do not forget to propagate your changes by running "Configure -der". You may
+## instead choose to run each of the .SH files by yourself, or "Configure -S".
+##
+#
+## Package name      : perl5
+## Source directory  : .
+## Configuration time: Wed Feb  1 15:06:43 UTC 2017
+## Configured by     : root
+## Target system     : linux f99ef720d20e 4.9.7-040907-lowlatency #201702010331 smp preempt wed feb 1 08:38:48 utc 2017 x86_64 gnulinux 
+#
+#: Configure command line arguments.
+#
+#: Variables propagated from previous config.sh file.
+
+our $summary = <<'!END!';
+Summary of my $package (revision $revision $version_patchlevel_string) configuration:
+  $git_commit_id_title $git_commit_id$git_ancestor_line
+  Platform:
+    osname=$osname, osvers=$osvers, archname=$archname
+    uname='$myuname'
+    config_args='$config_args'
+    hint=$hint, useposix=$useposix, d_sigaction=$d_sigaction
+    useithreads=$useithreads, usemultiplicity=$usemultiplicity
+    use64bitint=$use64bitint, use64bitall=$use64bitall, uselongdouble=$uselongdouble
+    usemymalloc=$usemymalloc, bincompat5005=undef
+  Compiler:
+    cc='$cc', ccflags ='$ccflags',
+    optimize='$optimize',
+    cppflags='$cppflags'
+    ccversion='$ccversion', gccversion='$gccversion', gccosandvers='$gccosandvers'
+    intsize=$intsize, longsize=$longsize, ptrsize=$ptrsize, doublesize=$doublesize, byteorder=$byteorder, doublekind=$doublekind
+    d_longlong=$d_longlong, longlongsize=$longlongsize, d_longdbl=$d_longdbl, longdblsize=$longdblsize, longdblkind=$longdblkind
+    ivtype='$ivtype', ivsize=$ivsize, nvtype='$nvtype', nvsize=$nvsize, Off_t='$lseektype', lseeksize=$lseeksize
+    alignbytes=$alignbytes, prototype=$prototype
+  Linker and Libraries:
+    ld='$ld', ldflags ='$ldflags'
+    libpth=$libpth
+    libs=$libs
+    perllibs=$perllibs
+    libc=$libc, so=$so, useshrplib=$useshrplib, libperl=$libperl
+    gnulibc_version='$gnulibc_version'
+  Dynamic Linking:
+    dlsrc=$dlsrc, dlext=$dlext, d_dlsymun=$d_dlsymun, ccdlflags='$ccdlflags'
+    cccdlflags='$cccdlflags', lddlflags='$lddlflags'
+
+!END!
+my $summary_expanded;
+
+sub myconfig {
+    return $summary_expanded if $summary_expanded;
+    ($summary_expanded = $summary) =~ s{\$(\w+)}
+		 { 
+			my $c;
+			if ($1 eq 'git_ancestor_line') {
+				if ($Config::Config{git_ancestor}) {
+					$c= "\n  Ancestor: $Config::Config{git_ancestor}";
+				} else {
+					$c= "";
+				}
+			} else {
+                     		$c = $Config::Config{$1}; 
+			}
+			defined($c) ? $c : 'undef' 
+		}ge;
+    $summary_expanded;
+}
+
+local *_ = \my $a;
+$_ = <<'!END!';
+Author=''
+CONFIG='true'
+Date=''
+Header=''
+Id=''
+Locker=''
+Log=''
+PATCHLEVEL='24'
+PERL_API_REVISION='5'
+PERL_API_SUBVERSION='0'
+PERL_API_VERSION='24'
+PERL_CONFIG_SH='true'
+PERL_PATCHLEVEL=''
+PERL_REVISION='5'
+PERL_SUBVERSION='1'
+PERL_VERSION='24'
+RCSfile=''
+Revision=''
+SUBVERSION='1'
+Source=''
+State=''
+_a='.a'
+_exe=''
+_o='.o'
+afs='false'
+afsroot='/afs'
+alignbytes='8'
+ansi2knr=''
+aphostname='/bin/hostname'
+api_revision='5'
+api_subversion='0'
+api_version='24'
+api_versionstring='5.24.0'
+ar='ar'
+archlib='/home/git/binary-com/perl/lib/5.24.1/x86_64-linux'
+archlibexp='/home/git/binary-com/perl/lib/5.24.1/x86_64-linux'
+archname64=''
+archname='x86_64-linux'
+archobjs=''
+asctime_r_proto='0'
+awk='awk'
+baserev='5.0'
+bash=''
+bin='/home/git/binary-com/perl/bin'
+bin_ELF='define'
+binexp='/home/git/binary-com/perl/bin'
+bison='bison'
+byacc='byacc'
+byteorder='12345678'
+c=''
+castflags='0'
+cat='cat'
+cc='cc'
+cccdlflags='-fPIC'
+ccdlflags='-Wl,-E -Wl,-rpath,/home/git/binary-com/perl/lib/5.24.1/x86_64-linux/CORE'
+ccflags='-DDEBIAN -D_FORTIFY_SOURCE=2 -g -O2 -fstack-protector --param=ssp-buffer-size=4 -Wformat -Werror=format-security -fwrapv -fno-strict-aliasing -pipe -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64'
+ccflags_uselargefiles='-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64'
+ccname='gcc'
+ccsymbols=''
+ccversion=''
+cf_by='root'
+cf_email='root@f99ef720d20e.(none)'
+cf_time='Wed Feb  1 15:06:43 UTC 2017'
+charbits='8'
+charsize='1'
+chgrp=''
+chmod='chmod'
+chown=''
+clocktype='clock_t'
+comm='comm'
+compress=''
+config_arg0='./Configure'
+config_arg10='-Duse64bitint'
+config_arg11='-Dman1dir=none'
+config_arg12='-Dman3dir=none'
+config_arg13='-Dpager=/usr/bin/sensible-pager'
+config_arg14='-Uafs'
+config_arg15='-Ud_csh'
+config_arg16='-Ud_ualarm'
+config_arg17='-Uusesfio'
+config_arg18='-Uusenm'
+config_arg19='-Ui_libutil'
+config_arg1='-Dusesitecustomize'
+config_arg20='-DDEBUGGING=-g'
+config_arg21='-Doptimize=-O2'
+config_arg22='-Duseshrplib'
+config_arg23='-des'
+config_arg2='-Dinc_version_list=none'
+config_arg3='-Dprefix=/home/git/binary-com/perl'
+config_arg4='-Dotherlibdirs=/home/git/regentmarkets/cpan/local/lib/perl5/'
+config_arg5='-Duselargefiles'
+config_arg6='-Dccflags=-DDEBIAN -D_FORTIFY_SOURCE=2 -g -O2 -fstack-protector --param=ssp-buffer-size=4 -Wformat -Werror=format-security'
+config_arg7='-Dldflags= -Wl,-z,relro'
+config_arg8='-Dlddlflags=-shared -Wl,-z,relro'
+config_arg9='-Dcccdlflags=-fPIC'
+config_argc='23'
+config_args='-Dusesitecustomize -Dinc_version_list=none -Dprefix=/home/git/binary-com/perl -Dotherlibdirs=/home/git/regentmarkets/cpan/local/lib/perl5/ -Duselargefiles -Dccflags=-DDEBIAN -D_FORTIFY_SOURCE=2 -g -O2 -fstack-protector --param=ssp-buffer-size=4 -Wformat -Werror=format-security -Dldflags= -Wl,-z,relro -Dlddlflags=-shared -Wl,-z,relro -Dcccdlflags=-fPIC -Duse64bitint -Dman1dir=none -Dman3dir=none -Dpager=/usr/bin/sensible-pager -Uafs -Ud_csh -Ud_ualarm -Uusesfio -Uusenm -Ui_libutil -DDEBUGGING=-g -Doptimize=-O2 -Duseshrplib -des'
+contains='grep'
+cp='cp'
+cpio=''
+cpp='cpp'
+cpp_stuff='42'
+cppccsymbols=''
+cppflags='-DDEBIAN -D_FORTIFY_SOURCE=2 -g -O2 -fstack-protector --param=ssp-buffer-size=4 -Wformat -Werror=format-security -fwrapv -fno-strict-aliasing -pipe -I/usr/local/include'
+cpplast='-'
+cppminus='-'
+cpprun='cc  -E'
+cppstdin='cc  -E'
+cppsymbols='_FILE_OFFSET_BITS=64 _FORTIFY_SOURCE=2 _LARGEFILE_SOURCE=1 _LP64=1 _POSIX_C_SOURCE=200809L _POSIX_SOURCE=1 __ATOMIC_ACQUIRE=2 __ATOMIC_ACQ_REL=4 __ATOMIC_CONSUME=1 __ATOMIC_RELAXED=0 __ATOMIC_RELEASE=3 __ATOMIC_SEQ_CST=5 __BIGGEST_ALIGNMENT__=16 __BYTE_ORDER__=1234 __CHAR16_TYPE__=short\ unsigned\ int __CHAR32_TYPE__=unsigned\ int __CHAR_BIT__=8 __DBL_DECIMAL_DIG__=17 __DBL_DENORM_MIN__=((double)4.94065645841246544177e-324L) __DBL_DIG__=15 __DBL_EPSILON__=((double)2.22044604925031308085e-16L) __DBL_HAS_DENORM__=1 __DBL_HAS_INFINITY__=1 __DBL_HAS_QUIET_NAN__=1 __DBL_MANT_DIG__=53 __DBL_MAX_10_EXP__=308 __DBL_MAX_EXP__=1024 __DBL_MAX__=((double)1.79769313486231570815e+308L) __DBL_MIN_10_EXP__=(-307) __DBL_MIN_EXP__=(-1021) __DBL_MIN__=((double)2.22507385850720138309e-308L) __DEC128_EPSILON__=1E-33DL __DEC128_MANT_DIG__=34 __DEC128_MAX_EXP__=6145 __DEC128_MAX__=9.999999999999999999999999999999999E6144DL __DEC128_MIN_EXP__=(-6142) __DEC128_MIN__=1E-6143DL __DEC128_SUBNORMAL_MIN__=0.000000000000000000000000000000001E-6143DL __DEC32_EPSILON__=1E-6DF __DEC32_MANT_DIG__=7 __DEC32_MAX_EXP__=97 __DEC32_MAX__=9.999999E96DF __DEC32_MIN_EXP__=(-94) __DEC32_MIN__=1E-95DF __DEC32_SUBNORMAL_MIN__=0.000001E-95DF __DEC64_EPSILON__=1E-15DD __DEC64_MANT_DIG__=16 __DEC64_MAX_EXP__=385 __DEC64_MAX__=9.999999999999999E384DD __DEC64_MIN_EXP__=(-382) __DEC64_MIN__=1E-383DD __DEC64_SUBNORMAL_MIN__=0.000000000000001E-383DD __DECIMAL_BID_FORMAT__=1 __DECIMAL_DIG__=21 __DEC_EVAL_METHOD__=2 __ELF__=1 __FINITE_MATH_ONLY__=0 __FLOAT_WORD_ORDER__=1234 __FLT_DECIMAL_DIG__=9 __FLT_DENORM_MIN__=1.40129846432481707092e-45F __FLT_DIG__=6 __FLT_EPSILON__=1.19209289550781250000e-7F __FLT_EVAL_METHOD__=0 __FLT_HAS_DENORM__=1 __FLT_HAS_INFINITY__=1 __FLT_HAS_QUIET_NAN__=1 __FLT_MANT_DIG__=24 __FLT_MAX_10_EXP__=38 __FLT_MAX_EXP__=128 __FLT_MAX__=3.40282346638528859812e+38F __FLT_MIN_10_EXP__=(-37) __FLT_MIN_EXP__=(-125) __FLT_MIN__=1.17549435082228750797e-38F __FLT_RADIX__=2 __GCC_ATOMIC_BOOL_LOCK_FREE=2 __GCC_ATOMIC_CHAR16_T_LOCK_FREE=2 __GCC_ATOMIC_CHAR32_T_LOCK_FREE=2 __GCC_ATOMIC_CHAR_LOCK_FREE=2 __GCC_ATOMIC_INT_LOCK_FREE=2 __GCC_ATOMIC_LLONG_LOCK_FREE=2 __GCC_ATOMIC_LONG_LOCK_FREE=2 __GCC_ATOMIC_POINTER_LOCK_FREE=2 __GCC_ATOMIC_SHORT_LOCK_FREE=2 __GCC_ATOMIC_TEST_AND_SET_TRUEVAL=1 __GCC_ATOMIC_WCHAR_T_LOCK_FREE=2 __GCC_HAVE_DWARF2_CFI_ASM=1 __GCC_HAVE_SYNC_COMPARE_AND_SWAP_1=1 __GCC_HAVE_SYNC_COMPARE_AND_SWAP_2=1 __GCC_HAVE_SYNC_COMPARE_AND_SWAP_4=1 __GCC_HAVE_SYNC_COMPARE_AND_SWAP_8=1 __GLIBC_MINOR__=13 __GLIBC__=2 __GNUC_GNU_INLINE__=1 __GNUC_MINOR__=7 __GNUC_PATCHLEVEL__=2 __GNUC__=4 __GNU_LIBRARY__=6 __GXX_ABI_VERSION=1002 __INT16_C=__INT16_C __INT16_MAX__=32767 __INT16_TYPE__=short\ int __INT32_C=__INT32_C __INT32_MAX__=2147483647 __INT32_TYPE__=int __INT64_C=__INT64_C __INT64_MAX__=9223372036854775807L __INT64_TYPE__=long\ int __INT8_C=__INT8_C __INT8_MAX__=127 __INT8_TYPE__=signed\ char __INTMAX_C=__INTMAX_C __INTMAX_MAX__=9223372036854775807L __INTMAX_TYPE__=long\ int __INTPTR_MAX__=9223372036854775807L __INTPTR_TYPE__=long\ int __INT_FAST16_MAX__=9223372036854775807L __INT_FAST16_TYPE__=long\ int __INT_FAST32_MAX__=9223372036854775807L __INT_FAST32_TYPE__=long\ int __INT_FAST64_MAX__=9223372036854775807L __INT_FAST64_TYPE__=long\ int __INT_FAST8_MAX__=127 __INT_FAST8_TYPE__=signed\ char __INT_LEAST16_MAX__=32767 __INT_LEAST16_TYPE__=short\ int __INT_LEAST32_MAX__=2147483647 __INT_LEAST32_TYPE__=int __INT_LEAST64_MAX__=9223372036854775807L __INT_LEAST64_TYPE__=long\ int __INT_LEAST8_MAX__=127 __INT_LEAST8_TYPE__=signed\ char __INT_MAX__=2147483647 __LDBL_DENORM_MIN__=3.64519953188247460253e-4951L __LDBL_DIG__=18 __LDBL_EPSILON__=1.08420217248550443401e-19L __LDBL_HAS_DENORM__=1 __LDBL_HAS_INFINITY__=1 __LDBL_HAS_QUIET_NAN__=1 __LDBL_MANT_DIG__=64 __LDBL_MAX_10_EXP__=4932 __LDBL_MAX_EXP__=16384 __LDBL_MAX__=1.18973149535723176502e+4932L __LDBL_MIN_10_EXP__=(-4931) __LDBL_MIN_EXP__=(-16381) __LDBL_MIN__=3.36210314311209350626e-4932L __LONG_LONG_MAX__=9223372036854775807LL __LONG_MAX__=9223372036854775807L __LP64__=1 __MMX__=1 __ORDER_BIG_ENDIAN__=4321 __ORDER_LITTLE_ENDIAN__=1234 __ORDER_PDP_ENDIAN__=3412 __PRAGMA_REDEFINE_EXTNAME=1 __PTRDIFF_MAX__=9223372036854775807L __PTRDIFF_TYPE__=long\ int __REGISTER_PREFIX__= __SCHAR_MAX__=127 __SHRT_MAX__=32767 __SIG_ATOMIC_MAX__=2147483647 __SIG_ATOMIC_MIN__=(-2147483647\ -\ 1) __SIG_ATOMIC_TYPE__=int __SIZEOF_DOUBLE__=8 __SIZEOF_FLOAT__=4 __SIZEOF_INT128__=16 __SIZEOF_INT__=4 __SIZEOF_LONG_DOUBLE__=16 __SIZEOF_LONG_LONG__=8 __SIZEOF_LONG__=8 __SIZEOF_POINTER__=8 __SIZEOF_PTRDIFF_T__=8 __SIZEOF_SHORT__=2 __SIZEOF_SIZE_T__=8 __SIZEOF_WCHAR_T__=4 __SIZEOF_WINT_T__=4 __SIZE_MAX__=18446744073709551615UL __SIZE_TYPE__=long\ unsigned\ int __SSE2_MATH__=1 __SSE2__=1 __SSE_MATH__=1 __SSE__=1 __STDC_HOSTED__=1 __STDC__=1 __UINT16_C=__UINT16_C __UINT16_MAX__=65535 __UINT16_TYPE__=short\ unsigned\ int __UINT32_C=__UINT32_C __UINT32_MAX__=4294967295U __UINT32_TYPE__=unsigned\ int __UINT64_C=__UINT64_C __UINT64_MAX__=18446744073709551615UL __UINT64_TYPE__=long\ unsigned\ int __UINT8_C=__UINT8_C __UINT8_MAX__=255 __UINT8_TYPE__=unsigned\ char __UINTMAX_C=__UINTMAX_C __UINTMAX_MAX__=18446744073709551615UL __UINTMAX_TYPE__=long\ unsigned\ int __UINTPTR_MAX__=18446744073709551615UL __UINTPTR_TYPE__=long\ unsigned\ int __UINT_FAST16_MAX__=18446744073709551615UL __UINT_FAST16_TYPE__=long\ unsigned\ int __UINT_FAST32_MAX__=18446744073709551615UL __UINT_FAST32_TYPE__=long\ unsigned\ int __UINT_FAST64_MAX__=18446744073709551615UL __UINT_FAST64_TYPE__=long\ unsigned\ int __UINT_FAST8_MAX__=255 __UINT_FAST8_TYPE__=unsigned\ char __UINT_LEAST16_MAX__=65535 __UINT_LEAST16_TYPE__=short\ unsigned\ int __UINT_LEAST32_MAX__=4294967295U __UINT_LEAST32_TYPE__=unsigned\ int __UINT_LEAST64_MAX__=18446744073709551615UL __UINT_LEAST64_TYPE__=long\ unsigned\ int __UINT_LEAST8_MAX__=255 __UINT_LEAST8_TYPE__=unsigned\ char __USER_LABEL_PREFIX__= __USE_BSD=1 __USE_FILE_OFFSET64=1 __USE_LARGEFILE=1 __USE_MISC=1 __USE_POSIX199309=1 __USE_POSIX199506=1 __USE_POSIX2=1 __USE_POSIX=1 __USE_SVID=1 __VERSION__="4.7.2" __WCHAR_MAX__=2147483647 __WCHAR_MIN__=(-2147483647\ -\ 1) __WCHAR_TYPE__=int __WINT_MAX__=4294967295U __WINT_MIN__=0U __WINT_TYPE__=unsigned\ int __amd64=1 __amd64__=1 __gnu_linux__=1 __k8=1 __k8__=1 __linux=1 __linux__=1 __unix=1 __unix__=1 __x86_64=1 __x86_64__=1 linux=1 unix=1'
+crypt_r_proto='0'
+cryptlib=''
+csh='csh'
+ctermid_r_proto='0'
+ctime_r_proto='0'
+d_Gconvert='gcvt((x),(n),(b))'
+d_PRIEUldbl='define'
+d_PRIFUldbl='define'
+d_PRIGUldbl='define'
+d_PRIXU64='define'
+d_PRId64='define'
+d_PRIeldbl='define'
+d_PRIfldbl='define'
+d_PRIgldbl='define'
+d_PRIi64='define'
+d_PRIo64='define'
+d_PRIu64='define'
+d_PRIx64='define'
+d_SCNfldbl='define'
+d__fwalk='undef'
+d_access='define'
+d_accessx='undef'
+d_acosh='define'
+d_aintl='undef'
+d_alarm='define'
+d_archlib='define'
+d_asctime64='undef'
+d_asctime_r='undef'
+d_asinh='define'
+d_atanh='define'
+d_atolf='undef'
+d_atoll='define'
+d_attribute_deprecated='define'
+d_attribute_format='define'
+d_attribute_malloc='define'
+d_attribute_nonnull='define'
+d_attribute_noreturn='define'
+d_attribute_pure='define'
+d_attribute_unused='define'
+d_attribute_warn_unused_result='define'
+d_backtrace='define'
+d_bcmp='define'
+d_bcopy='define'
+d_bsd='undef'
+d_bsdgetpgrp='undef'
+d_bsdsetpgrp='undef'
+d_builtin_choose_expr='define'
+d_builtin_expect='define'
+d_bzero='define'
+d_c99_variadic_macros='define'
+d_casti32='undef'
+d_castneg='define'
+d_cbrt='define'
+d_charvspr='undef'
+d_chown='define'
+d_chroot='define'
+d_chsize='undef'
+d_class='undef'
+d_clearenv='define'
+d_closedir='define'
+d_cmsghdr_s='define'
+d_const='define'
+d_copysign='define'
+d_copysignl='define'
+d_cplusplus='undef'
+d_crypt='define'
+d_crypt_r='undef'
+d_csh='undef'
+d_ctermid='define'
+d_ctermid_r='undef'
+d_ctime64='undef'
+d_ctime_r='undef'
+d_cuserid='define'
+d_dbl_dig='define'
+d_dbminitproto='undef'
+d_difftime64='undef'
+d_difftime='define'
+d_dir_dd_fd='undef'
+d_dirfd='define'
+d_dirnamlen='undef'
+d_dladdr='define'
+d_dlerror='define'
+d_dlopen='define'
+d_dlsymun='undef'
+d_dosuid='undef'
+d_drand48_r='undef'
+d_drand48proto='define'
+d_dup2='define'
+d_duplocale='define'
+d_eaccess='define'
+d_endgrent='define'
+d_endgrent_r='undef'
+d_endhent='define'
+d_endhostent_r='undef'
+d_endnent='define'
+d_endnetent_r='undef'
+d_endpent='define'
+d_endprotoent_r='undef'
+d_endpwent='define'
+d_endpwent_r='undef'
+d_endsent='define'
+d_endservent_r='undef'
+d_eofnblk='define'
+d_erf='define'
+d_erfc='define'
+d_eunice='undef'
+d_exp2='define'
+d_expm1='define'
+d_faststdio='define'
+d_fchdir='define'
+d_fchmod='define'
+d_fchown='define'
+d_fcntl='define'
+d_fcntl_can_lock='define'
+d_fd_macros='define'
+d_fd_set='define'
+d_fdclose='undef'
+d_fdim='define'
+d_fds_bits='undef'
+d_fegetround='define'
+d_fgetpos='define'
+d_finite='define'
+d_finitel='define'
+d_flexfnam='define'
+d_flock='define'
+d_flockproto='define'
+d_fma='define'
+d_fmax='define'
+d_fmin='define'
+d_fork='define'
+d_fp_class='undef'
+d_fp_classify='undef'
+d_fp_classl='undef'
+d_fpathconf='define'
+d_fpclass='undef'
+d_fpclassify='define'
+d_fpclassl='undef'
+d_fpgetround='undef'
+d_fpos64_t='undef'
+d_freelocale='define'
+d_frexpl='define'
+d_fs_data_s='undef'
+d_fseeko='define'
+d_fsetpos='define'
+d_fstatfs='define'
+d_fstatvfs='define'
+d_fsync='define'
+d_ftello='define'
+d_ftime='undef'
+d_futimes='define'
+d_gdbm_ndbm_h_uses_prototypes='undef'
+d_gdbmndbm_h_uses_prototypes='undef'
+d_getaddrinfo='define'
+d_getcwd='define'
+d_getespwnam='undef'
+d_getfsstat='undef'
+d_getgrent='define'
+d_getgrent_r='undef'
+d_getgrgid_r='undef'
+d_getgrnam_r='undef'
+d_getgrps='define'
+d_gethbyaddr='define'
+d_gethbyname='define'
+d_gethent='define'
+d_gethname='define'
+d_gethostbyaddr_r='undef'
+d_gethostbyname_r='undef'
+d_gethostent_r='undef'
+d_gethostprotos='define'
+d_getitimer='define'
+d_getlogin='define'
+d_getlogin_r='undef'
+d_getmnt='undef'
+d_getmntent='define'
+d_getnameinfo='define'
+d_getnbyaddr='define'
+d_getnbyname='define'
+d_getnent='define'
+d_getnetbyaddr_r='undef'
+d_getnetbyname_r='undef'
+d_getnetent_r='undef'
+d_getnetprotos='define'
+d_getpagsz='define'
+d_getpbyname='define'
+d_getpbynumber='define'
+d_getpent='define'
+d_getpgid='define'
+d_getpgrp2='undef'
+d_getpgrp='define'
+d_getppid='define'
+d_getprior='define'
+d_getprotobyname_r='undef'
+d_getprotobynumber_r='undef'
+d_getprotoent_r='undef'
+d_getprotoprotos='define'
+d_getprpwnam='undef'
+d_getpwent='define'
+d_getpwent_r='undef'
+d_getpwnam_r='undef'
+d_getpwuid_r='undef'
+d_getsbyname='define'
+d_getsbyport='define'
+d_getsent='define'
+d_getservbyname_r='undef'
+d_getservbyport_r='undef'
+d_getservent_r='undef'
+d_getservprotos='define'
+d_getspnam='define'
+d_getspnam_r='undef'
+d_gettimeod='define'
+d_gmtime64='undef'
+d_gmtime_r='undef'
+d_gnulibc='define'
+d_grpasswd='define'
+d_hasmntopt='define'
+d_htonl='define'
+d_hypot='define'
+d_ilogb='define'
+d_ilogbl='define'
+d_inc_version_list='undef'
+d_index='undef'
+d_inetaton='define'
+d_inetntop='define'
+d_inetpton='define'
+d_int64_t='define'
+d_ip_mreq='define'
+d_ip_mreq_source='define'
+d_ipv6_mreq='define'
+d_ipv6_mreq_source='undef'
+d_isascii='define'
+d_isblank='define'
+d_isfinite='define'
+d_isfinitel='undef'
+d_isinf='define'
+d_isinfl='define'
+d_isless='undef'
+d_isnan='define'
+d_isnanl='define'
+d_isnormal='define'
+d_j0='define'
+d_j0l='define'
+d_killpg='define'
+d_lc_monetary_2008='define'
+d_lchown='define'
+d_ldbl_dig='define'
+d_ldexpl='define'
+d_lgamma='define'
+d_lgamma_r='define'
+d_libm_lib_version='define'
+d_libname_unique='undef'
+d_link='define'
+d_llrint='define'
+d_llrintl='define'
+d_llround='define'
+d_llroundl='define'
+d_localtime64='undef'
+d_localtime_r='undef'
+d_localtime_r_needs_tzset='undef'
+d_locconv='define'
+d_lockf='define'
+d_log1p='define'
+d_log2='define'
+d_logb='define'
+d_longdbl='define'
+d_longlong='define'
+d_lrint='define'
+d_lrintl='define'
+d_lround='define'
+d_lroundl='define'
+d_lseekproto='define'
+d_lstat='define'
+d_madvise='define'
+d_malloc_good_size='undef'
+d_malloc_size='undef'
+d_mblen='define'
+d_mbstowcs='define'
+d_mbtowc='define'
+d_memchr='define'
+d_memcmp='define'
+d_memcpy='define'
+d_memmem='define'
+d_memmove='define'
+d_memset='define'
+d_mkdir='define'
+d_mkdtemp='define'
+d_mkfifo='define'
+d_mkstemp='define'
+d_mkstemps='define'
+d_mktime64='undef'
+d_mktime='define'
+d_mmap='define'
+d_modfl='define'
+d_modflproto='define'
+d_mprotect='define'
+d_msg='define'
+d_msg_ctrunc='define'
+d_msg_dontroute='define'
+d_msg_oob='define'
+d_msg_peek='define'
+d_msg_proxy='define'
+d_msgctl='define'
+d_msgget='define'
+d_msghdr_s='define'
+d_msgrcv='define'
+d_msgsnd='define'
+d_msync='define'
+d_munmap='define'
+d_mymalloc='undef'
+d_nan='define'
+d_ndbm='undef'
+d_ndbm_h_uses_prototypes='undef'
+d_nearbyint='define'
+d_newlocale='define'
+d_nextafter='define'
+d_nexttoward='define'
+d_nice='define'
+d_nl_langinfo='define'
+d_nv_preserves_uv='undef'
+d_nv_zero_is_allbits_zero='define'
+d_off64_t='undef'
+d_old_pthread_create_joinable='undef'
+d_oldpthreads='undef'
+d_oldsock='undef'
+d_open3='define'
+d_pathconf='define'
+d_pause='define'
+d_perl_otherlibdirs='define'
+d_phostname='undef'
+d_pipe='define'
+d_poll='define'
+d_portable='define'
+d_prctl='define'
+d_prctl_set_name='define'
+d_printf_format_null='undef'
+d_procselfexe='define'
+d_pseudofork='undef'
+d_pthread_atfork='define'
+d_pthread_attr_setscope='define'
+d_pthread_yield='define'
+d_ptrdiff_t='define'
+d_pwage='undef'
+d_pwchange='undef'
+d_pwclass='undef'
+d_pwcomment='undef'
+d_pwexpire='undef'
+d_pwgecos='define'
+d_pwpasswd='define'
+d_pwquota='undef'
+d_qgcvt='define'
+d_quad='define'
+d_random_r='undef'
+d_re_comp='undef'
+d_readdir64_r='undef'
+d_readdir='define'
+d_readdir_r='undef'
+d_readlink='define'
+d_readv='define'
+d_recvmsg='define'
+d_regcmp='undef'
+d_regcomp='define'
+d_remainder='define'
+d_remquo='define'
+d_rename='define'
+d_rewinddir='define'
+d_rint='define'
+d_rmdir='define'
+d_round='define'
+d_safebcpy='undef'
+d_safemcpy='undef'
+d_sanemcmp='define'
+d_sbrkproto='define'
+d_scalbn='define'
+d_scalbnl='define'
+d_sched_yield='define'
+d_scm_rights='define'
+d_seekdir='define'
+d_select='define'
+d_sem='define'
+d_semctl='define'
+d_semctl_semid_ds='define'
+d_semctl_semun='define'
+d_semget='define'
+d_semop='define'
+d_sendmsg='define'
+d_setegid='define'
+d_seteuid='define'
+d_setgrent='define'
+d_setgrent_r='undef'
+d_setgrps='define'
+d_sethent='define'
+d_sethostent_r='undef'
+d_setitimer='define'
+d_setlinebuf='define'
+d_setlocale='define'
+d_setlocale_r='undef'
+d_setnent='define'
+d_setnetent_r='undef'
+d_setpent='define'
+d_setpgid='define'
+d_setpgrp2='undef'
+d_setpgrp='define'
+d_setprior='define'
+d_setproctitle='undef'
+d_setprotoent_r='undef'
+d_setpwent='define'
+d_setpwent_r='undef'
+d_setregid='define'
+d_setresgid='define'
+d_setresuid='define'
+d_setreuid='define'
+d_setrgid='undef'
+d_setruid='undef'
+d_setsent='define'
+d_setservent_r='undef'
+d_setsid='define'
+d_setvbuf='define'
+d_shm='define'
+d_shmat='define'
+d_shmatprototype='define'
+d_shmctl='define'
+d_shmdt='define'
+d_shmget='define'
+d_sigaction='define'
+d_siginfo_si_addr='define'
+d_siginfo_si_band='define'
+d_siginfo_si_errno='define'
+d_siginfo_si_fd='define'
+d_siginfo_si_pid='define'
+d_siginfo_si_status='define'
+d_siginfo_si_uid='define'
+d_siginfo_si_value='define'
+d_signbit='define'
+d_sigprocmask='define'
+d_sigsetjmp='define'
+d_sin6_scope_id='define'
+d_sitearch='define'
+d_snprintf='define'
+d_sockaddr_in6='define'
+d_sockaddr_sa_len='undef'
+d_sockatmark='define'
+d_sockatmarkproto='define'
+d_socket='define'
+d_socklen_t='define'
+d_sockpair='define'
+d_socks5_init='undef'
+d_sprintf_returns_strlen='define'
+d_sqrtl='define'
+d_srand48_r='undef'
+d_srandom_r='undef'
+d_sresgproto='undef'
+d_sresuproto='undef'
+d_stat='define'
+d_statblks='define'
+d_statfs_f_flags='define'
+d_statfs_s='define'
+d_static_inline='define'
+d_statvfs='define'
+d_stdio_cnt_lval='undef'
+d_stdio_ptr_lval='define'
+d_stdio_ptr_lval_nochange_cnt='undef'
+d_stdio_ptr_lval_sets_cnt='define'
+d_stdio_stream_array='undef'
+d_stdiobase='define'
+d_stdstdio='define'
+d_strchr='define'
+d_strcoll='define'
+d_strctcpy='define'
+d_strerrm='strerror(e)'
+d_strerror='define'
+d_strerror_r='undef'
+d_strftime='define'
+d_strlcat='undef'
+d_strlcpy='undef'
+d_strtod='define'
+d_strtol='define'
+d_strtold='define'
+d_strtoll='define'
+d_strtoq='define'
+d_strtoul='define'
+d_strtoull='define'
+d_strtouq='define'
+d_strxfrm='define'
+d_suidsafe='undef'
+d_symlink='define'
+d_syscall='define'
+d_syscallproto='define'
+d_sysconf='define'
+d_sysernlst=''
+d_syserrlst='define'
+d_system='define'
+d_tcgetpgrp='define'
+d_tcsetpgrp='define'
+d_telldir='define'
+d_telldirproto='define'
+d_tgamma='define'
+d_time='define'
+d_timegm='define'
+d_times='define'
+d_tm_tm_gmtoff='define'
+d_tm_tm_zone='define'
+d_tmpnam_r='undef'
+d_trunc='define'
+d_truncate='define'
+d_truncl='define'
+d_ttyname_r='undef'
+d_tzname='define'
+d_u32align='define'
+d_ualarm='undef'
+d_umask='define'
+d_uname='define'
+d_union_semun='undef'
+d_unordered='undef'
+d_unsetenv='define'
+d_uselocale='define'
+d_usleep='define'
+d_usleepproto='define'
+d_ustat='define'
+d_vendorarch='undef'
+d_vendorbin='undef'
+d_vendorlib='undef'
+d_vendorscript='undef'
+d_vfork='undef'
+d_void_closedir='undef'
+d_voidsig='define'
+d_voidtty=''
+d_volatile='define'
+d_vprintf='define'
+d_vsnprintf='define'
+d_wait4='define'
+d_waitpid='define'
+d_wcscmp='define'
+d_wcstombs='define'
+d_wcsxfrm='define'
+d_wctomb='define'
+d_writev='define'
+d_xenix='undef'
+date='date'
+db_hashtype='u_int32_t'
+db_prefixtype='size_t'
+db_version_major=''
+db_version_minor=''
+db_version_patch=''
+direntrytype='struct dirent'
+dlext='so'
+dlsrc='dl_dlopen.xs'
+doubleinfbytes='0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xf0, 0x7f'
+doublekind='3'
+doublemantbits='52'
+doublenanbytes='0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xf8, 0xff'
+doublesize='8'
+drand01='Perl_drand48()'
+drand48_r_proto='0'
+dtrace=''
+dtraceobject=''
+dynamic_ext='B Compress/Raw/Bzip2 Compress/Raw/Zlib Cwd Data/Dumper Devel/PPPort Devel/Peek Digest/MD5 Digest/SHA Encode Fcntl File/DosGlob File/Glob Filter/Util/Call Hash/Util Hash/Util/FieldHash I18N/Langinfo IO IPC/SysV List/Util MIME/Base64 Math/BigInt/FastCalc Opcode POSIX PerlIO/encoding PerlIO/mmap PerlIO/scalar PerlIO/via SDBM_File Socket Storable Sys/Hostname Sys/Syslog Tie/Hash/NamedCapture Time/HiRes Time/Piece Unicode/Collate Unicode/Normalize XS/APItest XS/Typemap arybase attributes mro re threads threads/shared'
+eagain='EAGAIN'
+ebcdic='undef'
+echo='echo'
+egrep='egrep'
+emacs=''
+endgrent_r_proto='0'
+endhostent_r_proto='0'
+endnetent_r_proto='0'
+endprotoent_r_proto='0'
+endpwent_r_proto='0'
+endservent_r_proto='0'
+eunicefix=':'
+exe_ext=''
+expr='expr'
+extensions='B Compress/Raw/Bzip2 Compress/Raw/Zlib Cwd Data/Dumper Devel/PPPort Devel/Peek Digest/MD5 Digest/SHA Encode Fcntl File/DosGlob File/Glob Filter/Util/Call Hash/Util Hash/Util/FieldHash I18N/Langinfo IO IPC/SysV List/Util MIME/Base64 Math/BigInt/FastCalc Opcode POSIX PerlIO/encoding PerlIO/mmap PerlIO/scalar PerlIO/via SDBM_File Socket Storable Sys/Hostname Sys/Syslog Tie/Hash/NamedCapture Time/HiRes Time/Piece Unicode/Collate Unicode/Normalize XS/APItest XS/Typemap arybase attributes mro re threads threads/shared Archive/Tar Attribute/Handlers AutoLoader B/Debug CPAN CPAN/Meta CPAN/Meta/Requirements CPAN/Meta/YAML Carp Config/Perl/V Devel/SelfStubber Digest Dumpvalue Env Errno Exporter ExtUtils/CBuilder ExtUtils/Constant ExtUtils/Install ExtUtils/MakeMaker ExtUtils/Manifest ExtUtils/Miniperl ExtUtils/ParseXS File/Fetch File/Find File/Path File/Temp FileCache Filter/Simple Getopt/Long HTTP/Tiny I18N/Collate I18N/LangTags IO/Compress IO/Socket/IP IO/Zlib IPC/Cmd IPC/Open3 JSON/PP Locale/Codes Locale/Maketext Locale/Maketext/Simple Math/BigInt Math/BigRat Math/Complex Memoize Module/CoreList Module/Load Module/Load/Conditional Module/Loaded Module/Metadata NEXT Net/Ping Params/Check Parse/CPAN/Meta Perl/OSType PerlIO/via/QuotedPrint Pod/Checker Pod/Escapes Pod/Functions Pod/Html Pod/Parser Pod/Perldoc Pod/Simple Pod/Usage Safe Search/Dict SelfLoader Term/ANSIColor Term/Cap Term/Complete Term/ReadLine Test Test/Harness Test/Simple Text/Abbrev Text/Balanced Text/ParseWords Text/Tabs Thread/Queue Thread/Semaphore Tie/File Tie/Memoize Tie/RefHash Time/Local XSLoader autodie autouse base bignum constant encoding/warnings experimental if lib libnet parent perlfaq podlators version'
+extern_C='extern'
+extras=''
+fflushNULL='define'
+fflushall='undef'
+find=''
+firstmakefile='makefile'
+flex=''
+fpossize='16'
+fpostype='fpos_t'
+freetype='void'
+from=':'
+full_ar='/usr/bin/ar'
+full_csh='csh'
+full_sed='/bin/sed'
+gccansipedantic=''
+gccosandvers=''
+gccversion='4.7.2'
+getgrent_r_proto='0'
+getgrgid_r_proto='0'
+getgrnam_r_proto='0'
+gethostbyaddr_r_proto='0'
+gethostbyname_r_proto='0'
+gethostent_r_proto='0'
+getlogin_r_proto='0'
+getnetbyaddr_r_proto='0'
+getnetbyname_r_proto='0'
+getnetent_r_proto='0'
+getprotobyname_r_proto='0'
+getprotobynumber_r_proto='0'
+getprotoent_r_proto='0'
+getpwent_r_proto='0'
+getpwnam_r_proto='0'
+getpwuid_r_proto='0'
+getservbyname_r_proto='0'
+getservbyport_r_proto='0'
+getservent_r_proto='0'
+getspnam_r_proto='0'
+gidformat='"u"'
+gidsign='1'
+gidsize='4'
+gidtype='gid_t'
+glibpth='/usr/shlib  /lib /usr/lib /usr/lib/386 /lib/386 /usr/ccs/lib /usr/ucblib /usr/local/lib '
+gmake='gmake'
+gmtime_r_proto='0'
+gnulibc_version='2.13'
+grep='grep'
+groupcat='cat /etc/group'
+groupstype='gid_t'
+gzip='gzip'
+h_fcntl='false'
+h_sysfile='true'
+hint='recommended'
+hostcat='cat /etc/hosts'
+hostgenerate=''
+hostosname=''
+hostperl=''
+html1dir=' '
+html1direxp=''
+html3dir=' '
+html3direxp=''
+i16size='2'
+i16type='short'
+i32size='4'
+i32type='int'
+i64size='8'
+i64type='long'
+i8size='1'
+i8type='signed char'
+i_arpainet='define'
+i_assert='define'
+i_bfd='undef'
+i_bsdioctl=''
+i_crypt='define'
+i_db='undef'
+i_dbm='undef'
+i_dirent='define'
+i_dlfcn='define'
+i_execinfo='define'
+i_fcntl='undef'
+i_fenv='define'
+i_float='define'
+i_fp='undef'
+i_fp_class='undef'
+i_gdbm='undef'
+i_gdbm_ndbm='undef'
+i_gdbmndbm='undef'
+i_grp='define'
+i_ieeefp='undef'
+i_inttypes='define'
+i_langinfo='define'
+i_libutil='undef'
+i_limits='define'
+i_locale='define'
+i_machcthr='undef'
+i_malloc='define'
+i_mallocmalloc='undef'
+i_math='define'
+i_memory='undef'
+i_mntent='define'
+i_ndbm='undef'
+i_netdb='define'
+i_neterrno='undef'
+i_netinettcp='define'
+i_niin='define'
+i_poll='define'
+i_prot='undef'
+i_pthread='define'
+i_pwd='define'
+i_quadmath='define'
+i_rpcsvcdbm='undef'
+i_sgtty='undef'
+i_shadow='define'
+i_socks='undef'
+i_stdarg='define'
+i_stdbool='define'
+i_stddef='define'
+i_stdint='define'
+i_stdlib='define'
+i_string='define'
+i_sunmath='undef'
+i_sysaccess='undef'
+i_sysdir='define'
+i_sysfile='define'
+i_sysfilio='undef'
+i_sysin='undef'
+i_sysioctl='define'
+i_syslog='define'
+i_sysmman='define'
+i_sysmode='undef'
+i_sysmount='define'
+i_sysndir='undef'
+i_sysparam='define'
+i_syspoll='define'
+i_sysresrc='define'
+i_syssecrt='undef'
+i_sysselct='define'
+i_syssockio='undef'
+i_sysstat='define'
+i_sysstatfs='define'
+i_sysstatvfs='define'
+i_systime='define'
+i_systimek='undef'
+i_systimes='define'
+i_systypes='define'
+i_sysuio='define'
+i_sysun='define'
+i_sysutsname='define'
+i_sysvfs='define'
+i_syswait='define'
+i_termio='undef'
+i_termios='define'
+i_time='define'
+i_unistd='define'
+i_ustat='define'
+i_utime='define'
+i_values='define'
+i_varargs='undef'
+i_varhdr='stdarg.h'
+i_vfork='undef'
+i_xlocale='define'
+ignore_versioned_solibs='y'
+inc_version_list=' '
+inc_version_list_init='0'
+incpath=''
+incpth='/usr/lib/gcc/x86_64-linux-gnu/4.7/include /usr/local/include /usr/lib/gcc/x86_64-linux-gnu/4.7/include-fixed /usr/include/x86_64-linux-gnu /usr/include'
+inews=''
+initialinstalllocation='/home/git/binary-com/perl/bin'
+installarchlib='/home/git/binary-com/perl/lib/5.24.1/x86_64-linux'
+installbin='/home/git/binary-com/perl/bin'
+installhtml1dir=''
+installhtml3dir=''
+installman1dir=''
+installman3dir=''
+installprefix='/home/git/binary-com/perl'
+installprefixexp='/home/git/binary-com/perl'
+installprivlib='/home/git/binary-com/perl/lib/5.24.1'
+installscript='/home/git/binary-com/perl/bin'
+installsitearch='/home/git/binary-com/perl/lib/site_perl/5.24.1/x86_64-linux'
+installsitebin='/home/git/binary-com/perl/bin'
+installsitehtml1dir=''
+installsitehtml3dir=''
+installsitelib='/home/git/binary-com/perl/lib/site_perl/5.24.1'
+installsiteman1dir=''
+installsiteman3dir=''
+installsitescript='/home/git/binary-com/perl/bin'
+installstyle='lib'
+installusrbinperl='undef'
+installvendorarch=''
+installvendorbin=''
+installvendorhtml1dir=''
+installvendorhtml3dir=''
+installvendorlib=''
+installvendorman1dir=''
+installvendorman3dir=''
+installvendorscript=''
+intsize='4'
+issymlink='test -h'
+ivdformat='"ld"'
+ivsize='8'
+ivtype='long'
+known_extensions='Amiga/ARexx Amiga/Exec Archive/Tar Attribute/Handlers AutoLoader B B/Debug CPAN CPAN/Meta CPAN/Meta/Requirements CPAN/Meta/YAML Carp Compress/Raw/Bzip2 Compress/Raw/Zlib Config/Perl/V Cwd DB_File Data/Dumper Devel/PPPort Devel/Peek Devel/SelfStubber Digest Digest/MD5 Digest/SHA Dumpvalue Encode Env Errno Exporter ExtUtils/CBuilder ExtUtils/Constant ExtUtils/Install ExtUtils/MakeMaker ExtUtils/Manifest ExtUtils/Miniperl ExtUtils/ParseXS Fcntl File/DosGlob File/Fetch File/Find File/Glob File/Path File/Temp FileCache Filter/Simple Filter/Util/Call GDBM_File Getopt/Long HTTP/Tiny Hash/Util Hash/Util/FieldHash I18N/Collate I18N/LangTags I18N/Langinfo IO IO/Compress IO/Socket/IP IO/Zlib IPC/Cmd IPC/Open3 IPC/SysV JSON/PP List/Util Locale/Codes Locale/Maketext Locale/Maketext/Simple MIME/Base64 Math/BigInt Math/BigInt/FastCalc Math/BigRat Math/Complex Memoize Module/CoreList Module/Load Module/Load/Conditional Module/Loaded Module/Metadata NDBM_File NEXT Net/Ping ODBM_File Opcode POSIX Params/Check Parse/CPAN/Meta Perl/OSType PerlIO/encoding PerlIO/mmap PerlIO/scalar PerlIO/via PerlIO/via/QuotedPrint Pod/Checker Pod/Escapes Pod/Functions Pod/Html Pod/Parser Pod/Perldoc Pod/Simple Pod/Usage SDBM_File Safe Search/Dict SelfLoader Socket Storable Sys/Hostname Sys/Syslog Term/ANSIColor Term/Cap Term/Complete Term/ReadLine Test Test/Harness Test/Simple Text/Abbrev Text/Balanced Text/ParseWords Text/Tabs Thread/Queue Thread/Semaphore Tie/File Tie/Hash/NamedCapture Tie/Memoize Tie/RefHash Time/HiRes Time/Local Time/Piece Unicode/Collate Unicode/Normalize VMS/DCLsym VMS/Filespec VMS/Stdio Win32 Win32API/File Win32CORE XS/APItest XS/Typemap XSLoader arybase attributes autodie autouse base bignum constant encoding/warnings experimental if lib libnet mro parent perlfaq podlators re threads threads/shared version '
+ksh=''
+ld='cc'
+ld_can_script='define'
+lddlflags='-shared -Wl,-z,relro -L/usr/local/lib -fstack-protector'
+ldflags=' -Wl,-z,relro -fstack-protector -L/usr/local/lib'
+ldflags_uselargefiles=''
+ldlibpthname='LD_LIBRARY_PATH'
+less='less'
+lib_ext='.a'
+libc='libc-2.13.so'
+libdb_needs_pthread='N'
+libperl='libperl.so'
+libpth='/usr/local/lib /usr/lib/gcc/x86_64-linux-gnu/4.7/include-fixed /usr/include/x86_64-linux-gnu /usr/lib /lib/x86_64-linux-gnu /lib/../lib /usr/lib/x86_64-linux-gnu /usr/lib/../lib /lib'
+libs='-lpthread -lnsl -ldl -lm -lcrypt -lutil -lc'
+libsdirs=' /usr/lib/x86_64-linux-gnu'
+libsfiles=' libpthread.so libnsl.so libdl.so libm.so libcrypt.so libutil.so libc.so'
+libsfound=' /usr/lib/x86_64-linux-gnu/libpthread.so /usr/lib/x86_64-linux-gnu/libnsl.so /usr/lib/x86_64-linux-gnu/libdl.so /usr/lib/x86_64-linux-gnu/libm.so /usr/lib/x86_64-linux-gnu/libcrypt.so /usr/lib/x86_64-linux-gnu/libutil.so /usr/lib/x86_64-linux-gnu/libc.so'
+libspath=' /usr/local/lib /usr/lib/gcc/x86_64-linux-gnu/4.7/include-fixed /usr/include/x86_64-linux-gnu /usr/lib /lib/x86_64-linux-gnu /lib/../lib /usr/lib/x86_64-linux-gnu /usr/lib/../lib /lib'
+libswanted='cl pthread socket inet nsl gdbm dbm db malloc dl ld sun m crypt sec util c cposix posix ucb BSD gdbm_compat'
+libswanted_uselargefiles=''
+line=''
+lint=''
+lkflags=''
+ln='ln'
+lns='/bin/ln -s'
+localtime_r_proto='0'
+locincpth='/usr/local/include /opt/local/include /usr/gnu/include /opt/gnu/include /usr/GNU/include /opt/GNU/include'
+loclibpth='/usr/local/lib /opt/local/lib /usr/gnu/lib /opt/gnu/lib /usr/GNU/lib /opt/GNU/lib'
+longdblinfbytes='0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x80, 0xff, 0x7f, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00'
+longdblkind='3'
+longdblmantbits='64'
+longdblnanbytes='0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xc0, 0xff, 0xff, 0x40, 0x00, 0x00, 0x00, 0x00, 0x00'
+longdblsize='16'
+longlongsize='8'
+longsize='8'
+lp=''
+lpr=''
+ls='ls'
+lseeksize='8'
+lseektype='off_t'
+mail=''
+mailx=''
+make='make'
+make_set_make='#'
+mallocobj=''
+mallocsrc=''
+malloctype='void *'
+man1dir=' '
+man1direxp=''
+man1ext='0'
+man3dir=' '
+man3direxp=''
+man3ext='0'
+mips_type=''
+mistrustnm=''
+mkdir='mkdir'
+mmaptype='void *'
+modetype='mode_t'
+more='more'
+multiarch='undef'
+mv=''
+myarchname='x86_64-linux'
+mydomain='.(none)'
+myhostname='f99ef720d20e'
+myuname='linux f99ef720d20e 4.9.7-040907-lowlatency #201702010331 smp preempt wed feb 1 08:38:48 utc 2017 x86_64 gnulinux '
+n='-n'
+need_va_copy='define'
+netdb_hlen_type='size_t'
+netdb_host_type='char *'
+netdb_name_type='const char *'
+netdb_net_type='in_addr_t'
+nm='nm'
+nm_opt=''
+nm_so_opt='--dynamic'
+nonxs_ext='Archive/Tar Attribute/Handlers AutoLoader B/Debug CPAN CPAN/Meta CPAN/Meta/Requirements CPAN/Meta/YAML Carp Config/Perl/V Devel/SelfStubber Digest Dumpvalue Env Errno Exporter ExtUtils/CBuilder ExtUtils/Constant ExtUtils/Install ExtUtils/MakeMaker ExtUtils/Manifest ExtUtils/Miniperl ExtUtils/ParseXS File/Fetch File/Find File/Path File/Temp FileCache Filter/Simple Getopt/Long HTTP/Tiny I18N/Collate I18N/LangTags IO/Compress IO/Socket/IP IO/Zlib IPC/Cmd IPC/Open3 JSON/PP Locale/Codes Locale/Maketext Locale/Maketext/Simple Math/BigInt Math/BigRat Math/Complex Memoize Module/CoreList Module/Load Module/Load/Conditional Module/Loaded Module/Metadata NEXT Net/Ping Params/Check Parse/CPAN/Meta Perl/OSType PerlIO/via/QuotedPrint Pod/Checker Pod/Escapes Pod/Functions Pod/Html Pod/Parser Pod/Perldoc Pod/Simple Pod/Usage Safe Search/Dict SelfLoader Term/ANSIColor Term/Cap Term/Complete Term/ReadLine Test Test/Harness Test/Simple Text/Abbrev Text/Balanced Text/ParseWords Text/Tabs Thread/Queue Thread/Semaphore Tie/File Tie/Memoize Tie/RefHash Time/Local XSLoader autodie autouse base bignum constant encoding/warnings experimental if lib libnet parent perlfaq podlators version'
+nroff='nroff'
+nvEUformat='"E"'
+nvFUformat='"F"'
+nvGUformat='"G"'
+nv_overflows_integers_at='256.0*256.0*256.0*256.0*256.0*256.0*2.0*2.0*2.0*2.0*2.0'
+nv_preserves_uv_bits='53'
+nveformat='"e"'
+nvfformat='"f"'
+nvgformat='"g"'
+nvmantbits='52'
+nvsize='8'
+nvtype='double'
+o_nonblock='O_NONBLOCK'
+obj_ext='.o'
+old_pthread_create_joinable=''
+optimize='-O2 -g'
+orderlib='false'
+osname='linux'
+osvers='4.9.7-040907-lowlatency'
+otherlibdirs='/home/git/regentmarkets/cpan/local/lib/perl5/'
+package='perl5'
+pager='/usr/bin/sensible-pager'
+passcat='cat /etc/passwd'
+patchlevel='24'
+path_sep=':'
+perl5='/home/git/binary-com/perl/bin/perl'
+perl='perl'
+perl_patchlevel=''
+perl_static_inline='static __inline__'
+perladmin='root@f99ef720d20e.(none)'
+perllibs='-lpthread -lnsl -ldl -lm -lcrypt -lutil -lc'
+perlpath='/home/git/binary-com/perl/bin/perl'
+pg='pg'
+phostname='hostname'
+pidtype='pid_t'
+plibpth='/lib/x86_64-linux-gnu/4.7 /lib/x86_64-linux-gnu /lib/../lib /usr/lib/x86_64-linux-gnu/4.7 /usr/lib/x86_64-linux-gnu /usr/lib/../lib /lib /usr/lib'
+pmake=''
+pr=''
+prefix='/home/git/binary-com/perl'
+prefixexp='/home/git/binary-com/perl'
+privlib='/home/git/binary-com/perl/lib/5.24.1'
+privlibexp='/home/git/binary-com/perl/lib/5.24.1'
+procselfexe='"/proc/self/exe"'
+prototype='define'
+ptrsize='8'
+quadkind='2'
+quadtype='long'
+randbits='48'
+randfunc='Perl_drand48'
+random_r_proto='0'
+randseedtype='U32'
+ranlib=':'
+rd_nodata='-1'
+readdir64_r_proto='0'
+readdir_r_proto='0'
+revision='5'
+rm='rm'
+rm_try='/bin/rm -f try try a.out .out try.[cho] try..o core core.try* try.core*'
+rmail=''
+run=''
+runnm='false'
+sGMTIME_max='67768036191676799'
+sGMTIME_min='-62167219200'
+sLOCALTIME_max='67768036191676799'
+sLOCALTIME_min='-62167219200'
+sPRIEUldbl='"LE"'
+sPRIFUldbl='"LF"'
+sPRIGUldbl='"LG"'
+sPRIXU64='"lX"'
+sPRId64='"ld"'
+sPRIeldbl='"Le"'
+sPRIfldbl='"Lf"'
+sPRIgldbl='"Lg"'
+sPRIi64='"li"'
+sPRIo64='"lo"'
+sPRIu64='"lu"'
+sPRIx64='"lx"'
+sSCNfldbl='"Lf"'
+sched_yield='sched_yield()'
+scriptdir='/home/git/binary-com/perl/bin'
+scriptdirexp='/home/git/binary-com/perl/bin'
+sed='sed'
+seedfunc='Perl_drand48_init'
+selectminbits='64'
+selecttype='fd_set *'
+sendmail=''
+setgrent_r_proto='0'
+sethostent_r_proto='0'
+setlocale_r_proto='0'
+setnetent_r_proto='0'
+setprotoent_r_proto='0'
+setpwent_r_proto='0'
+setservent_r_proto='0'
+sh='/bin/sh'
+shar=''
+sharpbang='#!'
+shmattype='void *'
+shortsize='2'
+shrpenv=''
+shsharp='true'
+sig_count='65'
+sig_name='ZERO HUP INT QUIT ILL TRAP ABRT BUS FPE KILL USR1 SEGV USR2 PIPE ALRM TERM STKFLT CHLD CONT STOP TSTP TTIN TTOU URG XCPU XFSZ VTALRM PROF WINCH IO PWR SYS NUM32 NUM33 RTMIN NUM35 NUM36 NUM37 NUM38 NUM39 NUM40 NUM41 NUM42 NUM43 NUM44 NUM45 NUM46 NUM47 NUM48 NUM49 NUM50 NUM51 NUM52 NUM53 NUM54 NUM55 NUM56 NUM57 NUM58 NUM59 NUM60 NUM61 NUM62 NUM63 RTMAX IOT CLD POLL UNUSED '
+sig_name_init='"ZERO", "HUP", "INT", "QUIT", "ILL", "TRAP", "ABRT", "BUS", "FPE", "KILL", "USR1", "SEGV", "USR2", "PIPE", "ALRM", "TERM", "STKFLT", "CHLD", "CONT", "STOP", "TSTP", "TTIN", "TTOU", "URG", "XCPU", "XFSZ", "VTALRM", "PROF", "WINCH", "IO", "PWR", "SYS", "NUM32", "NUM33", "RTMIN", "NUM35", "NUM36", "NUM37", "NUM38", "NUM39", "NUM40", "NUM41", "NUM42", "NUM43", "NUM44", "NUM45", "NUM46", "NUM47", "NUM48", "NUM49", "NUM50", "NUM51", "NUM52", "NUM53", "NUM54", "NUM55", "NUM56", "NUM57", "NUM58", "NUM59", "NUM60", "NUM61", "NUM62", "NUM63", "RTMAX", "IOT", "CLD", "POLL", "UNUSED", 0'
+sig_num='0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 6 17 29 31 '
+sig_num_init='0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 6, 17, 29, 31, 0'
+sig_size='69'
+signal_t='void'
+sitearch='/home/git/binary-com/perl/lib/site_perl/5.24.1/x86_64-linux'
+sitearchexp='/home/git/binary-com/perl/lib/site_perl/5.24.1/x86_64-linux'
+sitebin='/home/git/binary-com/perl/bin'
+sitebinexp='/home/git/binary-com/perl/bin'
+sitehtml1dir=''
+sitehtml1direxp=''
+sitehtml3dir=''
+sitehtml3direxp=''
+sitelib='/home/git/binary-com/perl/lib/site_perl/5.24.1'
+sitelib_stem='/home/git/binary-com/perl/lib/site_perl'
+sitelibexp='/home/git/binary-com/perl/lib/site_perl/5.24.1'
+siteman1dir=''
+siteman1direxp=''
+siteman3dir=''
+siteman3direxp=''
+siteprefix='/home/git/binary-com/perl'
+siteprefixexp='/home/git/binary-com/perl'
+sitescript='/home/git/binary-com/perl/bin'
+sitescriptexp='/home/git/binary-com/perl/bin'
+sizesize='8'
+sizetype='size_t'
+sleep=''
+smail=''
+so='so'
+sockethdr=''
+socketlib=''
+socksizetype='socklen_t'
+sort='sort'
+spackage='Perl5'
+spitshell='cat'
+srand48_r_proto='0'
+srandom_r_proto='0'
+src='.'
+ssizetype='ssize_t'
+st_ino_sign='1'
+st_ino_size='8'
+startperl='#!/home/git/binary-com/perl/bin/perl'
+startsh='#!/bin/sh'
+static_ext=' '
+stdchar='char'
+stdio_base='((fp)->_IO_read_base)'
+stdio_bufsiz='((fp)->_IO_read_end - (fp)->_IO_read_base)'
+stdio_cnt='((fp)->_IO_read_end - (fp)->_IO_read_ptr)'
+stdio_filbuf=''
+stdio_ptr='((fp)->_IO_read_ptr)'
+stdio_stream_array=''
+strerror_r_proto='0'
+strings='/usr/include/string.h'
+submit=''
+subversion='1'
+sysman='/usr/share/man/man1'
+sysroot=''
+tail=''
+tar=''
+targetarch=''
+targetdir=''
+targetenv=''
+targethost=''
+targetmkdir=''
+targetport=''
+targetsh='/bin/sh'
+tbl=''
+tee=''
+test='test'
+timeincl='/usr/include/x86_64-linux-gnu/sys/time.h /usr/include/time.h '
+timetype='time_t'
+tmpnam_r_proto='0'
+to=':'
+touch='touch'
+tr='tr'
+trnl='\n'
+troff=''
+ttyname_r_proto='0'
+u16size='2'
+u16type='unsigned short'
+u32size='4'
+u32type='unsigned int'
+u64size='8'
+u64type='unsigned long'
+u8size='1'
+u8type='unsigned char'
+uidformat='"u"'
+uidsign='1'
+uidsize='4'
+uidtype='uid_t'
+uname='uname'
+uniq='uniq'
+uquadtype='unsigned long'
+use5005threads='undef'
+use64bitall='define'
+use64bitint='define'
+usecbacktrace='undef'
+usecrosscompile='undef'
+usedevel='undef'
+usedl='define'
+usedtrace='undef'
+usefaststdio='undef'
+useithreads='undef'
+usekernprocpathname='undef'
+uselargefiles='define'
+uselongdouble='undef'
+usemallocwrap='define'
+usemorebits='undef'
+usemultiplicity='undef'
+usemymalloc='n'
+usenm='false'
+usensgetexecutablepath='undef'
+useopcode='true'
+useperlio='define'
+useposix='true'
+usequadmath='undef'
+usereentrant='undef'
+userelocatableinc='undef'
+useshrplib='true'
+usesitecustomize='define'
+usesocks='undef'
+usethreads='undef'
+usevendorprefix='undef'
+useversionedarchname='undef'
+usevfork='false'
+usrinc='/usr/include'
+uuname=''
+uvXUformat='"lX"'
+uvoformat='"lo"'
+uvsize='8'
+uvtype='unsigned long'
+uvuformat='"lu"'
+uvxformat='"lx"'
+vaproto='define'
+vendorarch=''
+vendorarchexp=''
+vendorbin=''
+vendorbinexp=''
+vendorhtml1dir=' '
+vendorhtml1direxp=''
+vendorhtml3dir=' '
+vendorhtml3direxp=''
+vendorlib=''
+vendorlib_stem=''
+vendorlibexp=''
+vendorman1dir=' '
+vendorman1direxp=''
+vendorman3dir=' '
+vendorman3direxp=''
+vendorprefix=''
+vendorprefixexp=''
+vendorscript=''
+vendorscriptexp=''
+version='5.24.1'
+version_patchlevel_string='version 24 subversion 1'
+versiononly='undef'
+vi=''
+xlibpth='/usr/lib/386 /lib/386'
+yacc='yacc'
+yaccflags=''
+zcat=''
+zip='zip'
+!END!
+
+my $i = ord(8);
+foreach my $c (7,6,5,4,3,2,1) { $i <<= 8; $i |= ord($c); }
+our $byteorder = join('', unpack('aaaaaaaa', pack('L!', $i)));
+s/(byteorder=)(['"]).*?\2/$1$2$Config::byteorder$2/m;
+
+my $config_sh_len = length $_;
+
+our $Config_SH_expanded = "\n$_" . << 'EOVIRTUAL';
+ccflags_nolargefiles='-DDEBIAN -D_FORTIFY_SOURCE=2 -g -O2 -fstack-protector --param=ssp-buffer-size=4 -Wformat -Werror=format-security -fwrapv -fno-strict-aliasing -pipe -I/usr/local/include '
+ldflags_nolargefiles=' -Wl,-z,relro -fstack-protector -L/usr/local/lib'
+libs_nolargefiles='-lpthread -lnsl -ldl -lm -lcrypt -lutil -lc'
+libswanted_nolargefiles='cl pthread socket inet nsl gdbm dbm db malloc dl ld sun m crypt sec util c cposix posix ucb BSD gdbm_compat'
+ccwarnflags=' -Wall -Werror=declaration-after-statement -Wextra -Wc++-compat -Wwrite-strings'
+ccstdflags=' -std=c89'
+EOVIRTUAL
+eval {
+	# do not have hairy conniptions if this isnt available
+	require 'Config_git.pl';
+	$Config_SH_expanded .= $Config::Git_Data;
+	1;
+} or warn "Warning: failed to load Config_git.pl, something strange about this perl...\n";
+
+# Search for it in the big string
+sub fetch_string {
+    my($self, $key) = @_;
+
+    return undef unless $Config_SH_expanded =~ /\n$key=\'(.*?)\'\n/s;
+    # So we can say "if $Config{'foo'}".
+    $self->{$key} = $1 eq 'undef' ? undef : $1;
+}
+
+my $prevpos = 0;
+
+sub FIRSTKEY {
+    $prevpos = 0;
+    substr($Config_SH_expanded, 1, index($Config_SH_expanded, '=') - 1 );
+}
+
+sub NEXTKEY {
+    my $pos = index($Config_SH_expanded, qq('\n), $prevpos) + 2;
+    my $len = index($Config_SH_expanded, "=", $pos) - $pos;
+    $prevpos = $pos;
+    $len > 0 ? substr($Config_SH_expanded, $pos, $len) : undef;
+}
+
+sub EXISTS {
+    return 1 if exists($_[0]->{$_[1]});
+
+    return(index($Config_SH_expanded, "\n$_[1]='") != -1
+          );
+}
+
+sub STORE  { die "\%Config::Config is read-only\n" }
+*DELETE = *CLEAR = \*STORE; # Typeglob aliasing uses less space
+
+sub config_sh {
+    substr $Config_SH_expanded, 1, $config_sh_len;
+}
+
+sub config_re {
+    my $re = shift;
+    return map { chomp; $_ } grep eval{ /^(?:$re)=/ }, split /^/,
+    $Config_SH_expanded;
+}
+
+sub config_vars {
+    # implements -V:cfgvar option (see perlrun -V:)
+    foreach (@_) {
+	# find optional leading, trailing colons; and query-spec
+	my ($notag,$qry,$lncont) = m/^(:)?(.*?)(:)?$/;	# flags fore and aft, 
+	# map colon-flags to print decorations
+	my $prfx = $notag ? '': "$qry=";		# tag-prefix for print
+	my $lnend = $lncont ? ' ' : ";\n";		# line ending for print
+
+	# all config-vars are by definition \w only, any \W means regex
+	if ($qry =~ /\W/) {
+	    my @matches = config_re($qry);
+	    print map "$_$lnend", @matches ? @matches : "$qry: not found"		if !$notag;
+	    print map { s/\w+=//; "$_$lnend" } @matches ? @matches : "$qry: not found"	if  $notag;
+	} else {
+	    my $v = (exists $Config::Config{$qry}) ? $Config::Config{$qry}
+						   : 'UNKNOWN';
+	    $v = 'undef' unless defined $v;
+	    print "${prfx}'${v}'$lnend";
+	}
+    }
+}
+
+# Called by the real AUTOLOAD
+sub launcher {
+    undef &AUTOLOAD;
+    goto \&$Config::AUTOLOAD;
+}
+
+1;
diff --git a/lib/5.24.1/x86_64-linux/Cwd.pm b/lib/5.24.1/x86_64-linux/Cwd.pm
new file mode 100644
index 00000000..3b638893
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/Cwd.pm
@@ -0,0 +1,872 @@
+package Cwd;
+use strict;
+use Exporter;
+use vars qw(@ISA @EXPORT @EXPORT_OK $VERSION);
+
+$VERSION = '3.63_01';
+my $xs_version = $VERSION;
+$VERSION =~ tr/_//d;
+
+@ISA = qw/ Exporter /;
+@EXPORT = qw(cwd getcwd fastcwd fastgetcwd);
+push @EXPORT, qw(getdcwd) if $^O eq 'MSWin32';
+@EXPORT_OK = qw(chdir abs_path fast_abs_path realpath fast_realpath);
+
+# sys_cwd may keep the builtin command
+
+# All the functionality of this module may provided by builtins,
+# there is no sense to process the rest of the file.
+# The best choice may be to have this in BEGIN, but how to return from BEGIN?
+
+if ($^O eq 'os2') {
+    local $^W = 0;
+
+    *cwd                = defined &sys_cwd ? \&sys_cwd : \&_os2_cwd;
+    *getcwd             = \&cwd;
+    *fastgetcwd         = \&cwd;
+    *fastcwd            = \&cwd;
+
+    *fast_abs_path      = \&sys_abspath if defined &sys_abspath;
+    *abs_path           = \&fast_abs_path;
+    *realpath           = \&fast_abs_path;
+    *fast_realpath      = \&fast_abs_path;
+
+    return 1;
+}
+
+# Need to look up the feature settings on VMS.  The preferred way is to use the
+# VMS::Feature module, but that may not be available to dual life modules.
+
+my $use_vms_feature;
+BEGIN {
+    if ($^O eq 'VMS') {
+        if (eval { local $SIG{__DIE__};
+                   local @INC = @INC;
+                   pop @INC if $INC[-1] eq '.';
+                   require VMS::Feature; }) {
+            $use_vms_feature = 1;
+        }
+    }
+}
+
+# Need to look up the UNIX report mode.  This may become a dynamic mode
+# in the future.
+sub _vms_unix_rpt {
+    my $unix_rpt;
+    if ($use_vms_feature) {
+        $unix_rpt = VMS::Feature::current("filename_unix_report");
+    } else {
+        my $env_unix_rpt = $ENV{'DECC$FILENAME_UNIX_REPORT'} || '';
+        $unix_rpt = $env_unix_rpt =~ /^[ET1]/i; 
+    }
+    return $unix_rpt;
+}
+
+# Need to look up the EFS character set mode.  This may become a dynamic
+# mode in the future.
+sub _vms_efs {
+    my $efs;
+    if ($use_vms_feature) {
+        $efs = VMS::Feature::current("efs_charset");
+    } else {
+        my $env_efs = $ENV{'DECC$EFS_CHARSET'} || '';
+        $efs = $env_efs =~ /^[ET1]/i; 
+    }
+    return $efs;
+}
+
+
+# If loading the XS stuff doesn't work, we can fall back to pure perl
+if(! defined &getcwd && defined &DynaLoader::boot_DynaLoader) {
+  eval {#eval is questionable since we are handling potential errors like
+        #"Cwd object version 3.48 does not match bootstrap parameter 3.50
+        #at lib/DynaLoader.pm line 216." by having this eval
+    if ( $] >= 5.006 ) {
+      require XSLoader;
+      XSLoader::load( __PACKAGE__, $xs_version);
+    } else {
+      require DynaLoader;
+      push @ISA, 'DynaLoader';
+      __PACKAGE__->bootstrap( $xs_version );
+    }
+  };
+}
+
+# Big nasty table of function aliases
+my %METHOD_MAP =
+  (
+   VMS =>
+   {
+    cwd			=> '_vms_cwd',
+    getcwd		=> '_vms_cwd',
+    fastcwd		=> '_vms_cwd',
+    fastgetcwd		=> '_vms_cwd',
+    abs_path		=> '_vms_abs_path',
+    fast_abs_path	=> '_vms_abs_path',
+   },
+
+   MSWin32 =>
+   {
+    # We assume that &_NT_cwd is defined as an XSUB or in the core.
+    cwd			=> '_NT_cwd',
+    getcwd		=> '_NT_cwd',
+    fastcwd		=> '_NT_cwd',
+    fastgetcwd		=> '_NT_cwd',
+    abs_path		=> 'fast_abs_path',
+    realpath		=> 'fast_abs_path',
+   },
+
+   dos => 
+   {
+    cwd			=> '_dos_cwd',
+    getcwd		=> '_dos_cwd',
+    fastgetcwd		=> '_dos_cwd',
+    fastcwd		=> '_dos_cwd',
+    abs_path		=> 'fast_abs_path',
+   },
+
+   # QNX4.  QNX6 has a $os of 'nto'.
+   qnx =>
+   {
+    cwd			=> '_qnx_cwd',
+    getcwd		=> '_qnx_cwd',
+    fastgetcwd		=> '_qnx_cwd',
+    fastcwd		=> '_qnx_cwd',
+    abs_path		=> '_qnx_abs_path',
+    fast_abs_path	=> '_qnx_abs_path',
+   },
+
+   cygwin =>
+   {
+    getcwd		=> 'cwd',
+    fastgetcwd		=> 'cwd',
+    fastcwd		=> 'cwd',
+    abs_path		=> 'fast_abs_path',
+    realpath		=> 'fast_abs_path',
+   },
+
+   epoc =>
+   {
+    cwd			=> '_epoc_cwd',
+    getcwd	        => '_epoc_cwd',
+    fastgetcwd		=> '_epoc_cwd',
+    fastcwd		=> '_epoc_cwd',
+    abs_path		=> 'fast_abs_path',
+   },
+
+   MacOS =>
+   {
+    getcwd		=> 'cwd',
+    fastgetcwd		=> 'cwd',
+    fastcwd		=> 'cwd',
+    abs_path		=> 'fast_abs_path',
+   },
+
+   amigaos =>
+   {
+    getcwd              => '_backtick_pwd',
+    fastgetcwd          => '_backtick_pwd',
+    fastcwd             => '_backtick_pwd',
+    abs_path            => 'fast_abs_path',
+   }
+  );
+
+$METHOD_MAP{NT} = $METHOD_MAP{MSWin32};
+
+
+# Find the pwd command in the expected locations.  We assume these
+# are safe.  This prevents _backtick_pwd() consulting $ENV{PATH}
+# so everything works under taint mode.
+my $pwd_cmd;
+if($^O ne 'MSWin32') {
+    foreach my $try ('/bin/pwd',
+		     '/usr/bin/pwd',
+		     '/QOpenSys/bin/pwd', # OS/400 PASE.
+		    ) {
+	if( -x $try ) {
+	    $pwd_cmd = $try;
+	    last;
+	}
+    }
+}
+
+# Android has a built-in pwd. Using $pwd_cmd will DTRT if
+# this perl was compiled with -Dd_useshellcmds, which is the
+# default for Android, but the block below is needed for the
+# miniperl running on the host when cross-compiling, and
+# potentially for native builds with -Ud_useshellcmds.
+if ($^O =~ /android/) {
+    # If targetsh is executable, then we're either a full
+    # perl, or a miniperl for a native build.
+    if (-x $Config::Config{targetsh}) {
+        $pwd_cmd = "$Config::Config{targetsh} -c pwd"
+    }
+    else {
+        my $sh = $Config::Config{sh} || (-x '/system/bin/sh' ? '/system/bin/sh' : 'sh');
+        $pwd_cmd = "$sh -c pwd"
+    }
+}
+
+my $found_pwd_cmd = defined($pwd_cmd);
+unless ($pwd_cmd) {
+    # Isn't this wrong?  _backtick_pwd() will fail if someone has
+    # pwd in their path but it is not /bin/pwd or /usr/bin/pwd?
+    # See [perl #16774]. --jhi
+    $pwd_cmd = 'pwd';
+}
+
+# Lazy-load Carp
+sub _carp  { require Carp; Carp::carp(@_)  }
+sub _croak { require Carp; Carp::croak(@_) }
+
+# The 'natural and safe form' for UNIX (pwd may be setuid root)
+sub _backtick_pwd {
+
+    # Localize %ENV entries in a way that won't create new hash keys.
+    # Under AmigaOS we don't want to localize as it stops perl from
+    # finding 'sh' in the PATH.
+    my @localize = grep exists $ENV{$_}, qw(PATH IFS CDPATH ENV BASH_ENV) if $^O ne "amigaos";
+    local @ENV{@localize} if @localize;
+    
+    my $cwd = `$pwd_cmd`;
+    # Belt-and-suspenders in case someone said "undef $/".
+    local $/ = "\n";
+    # `pwd` may fail e.g. if the disk is full
+    chomp($cwd) if defined $cwd;
+    $cwd;
+}
+
+# Since some ports may predefine cwd internally (e.g., NT)
+# we take care not to override an existing definition for cwd().
+
+unless ($METHOD_MAP{$^O}{cwd} or defined &cwd) {
+    # The pwd command is not available in some chroot(2)'ed environments
+    my $sep = $Config::Config{path_sep} || ':';
+    my $os = $^O;  # Protect $^O from tainting
+
+
+    # Try again to find a pwd, this time searching the whole PATH.
+    if (defined $ENV{PATH} and $os ne 'MSWin32') {  # no pwd on Windows
+	my @candidates = split($sep, $ENV{PATH});
+	while (!$found_pwd_cmd and @candidates) {
+	    my $candidate = shift @candidates;
+	    $found_pwd_cmd = 1 if -x "$candidate/pwd";
+	}
+    }
+
+    # MacOS has some special magic to make `pwd` work.
+    if( $os eq 'MacOS' || $found_pwd_cmd )
+    {
+	*cwd = \&_backtick_pwd;
+    }
+    else {
+	*cwd = \&getcwd;
+    }
+}
+
+if ($^O eq 'cygwin') {
+  # We need to make sure cwd() is called with no args, because it's
+  # got an arg-less prototype and will die if args are present.
+  local $^W = 0;
+  my $orig_cwd = \&cwd;
+  *cwd = sub { &$orig_cwd() }
+}
+
+
+# set a reasonable (and very safe) default for fastgetcwd, in case it
+# isn't redefined later (20001212 rspier)
+*fastgetcwd = \&cwd;
+
+# A non-XS version of getcwd() - also used to bootstrap the perl build
+# process, when miniperl is running and no XS loading happens.
+sub _perl_getcwd
+{
+    abs_path('.');
+}
+
+# By John Bazik
+#
+# Usage: $cwd = &fastcwd;
+#
+# This is a faster version of getcwd.  It's also more dangerous because
+# you might chdir out of a directory that you can't chdir back into.
+    
+sub fastcwd_ {
+    my($odev, $oino, $cdev, $cino, $tdev, $tino);
+    my(@path, $path);
+    local(*DIR);
+
+    my($orig_cdev, $orig_cino) = stat('.');
+    ($cdev, $cino) = ($orig_cdev, $orig_cino);
+    for (;;) {
+	my $direntry;
+	($odev, $oino) = ($cdev, $cino);
+	CORE::chdir('..') || return undef;
+	($cdev, $cino) = stat('.');
+	last if $odev == $cdev && $oino == $cino;
+	opendir(DIR, '.') || return undef;
+	for (;;) {
+	    $direntry = readdir(DIR);
+	    last unless defined $direntry;
+	    next if $direntry eq '.';
+	    next if $direntry eq '..';
+
+	    ($tdev, $tino) = lstat($direntry);
+	    last unless $tdev != $odev || $tino != $oino;
+	}
+	closedir(DIR);
+	return undef unless defined $direntry; # should never happen
+	unshift(@path, $direntry);
+    }
+    $path = '/' . join('/', @path);
+    if ($^O eq 'apollo') { $path = "/".$path; }
+    # At this point $path may be tainted (if tainting) and chdir would fail.
+    # Untaint it then check that we landed where we started.
+    $path =~ /^(.*)\z/s		# untaint
+	&& CORE::chdir($1) or return undef;
+    ($cdev, $cino) = stat('.');
+    die "Unstable directory path, current directory changed unexpectedly"
+	if $cdev != $orig_cdev || $cino != $orig_cino;
+    $path;
+}
+if (not defined &fastcwd) { *fastcwd = \&fastcwd_ }
+
+
+# Keeps track of current working directory in PWD environment var
+# Usage:
+#	use Cwd 'chdir';
+#	chdir $newdir;
+
+my $chdir_init = 0;
+
+sub chdir_init {
+    if ($ENV{'PWD'} and $^O ne 'os2' and $^O ne 'dos' and $^O ne 'MSWin32') {
+	my($dd,$di) = stat('.');
+	my($pd,$pi) = stat($ENV{'PWD'});
+	if (!defined $dd or !defined $pd or $di != $pi or $dd != $pd) {
+	    $ENV{'PWD'} = cwd();
+	}
+    }
+    else {
+	my $wd = cwd();
+	$wd = Win32::GetFullPathName($wd) if $^O eq 'MSWin32';
+	$ENV{'PWD'} = $wd;
+    }
+    # Strip an automounter prefix (where /tmp_mnt/foo/bar == /foo/bar)
+    if ($^O ne 'MSWin32' and $ENV{'PWD'} =~ m|(/[^/]+(/[^/]+/[^/]+))(.*)|s) {
+	my($pd,$pi) = stat($2);
+	my($dd,$di) = stat($1);
+	if (defined $pd and defined $dd and $di == $pi and $dd == $pd) {
+	    $ENV{'PWD'}="$2$3";
+	}
+    }
+    $chdir_init = 1;
+}
+
+sub chdir {
+    my $newdir = @_ ? shift : '';	# allow for no arg (chdir to HOME dir)
+    if ($^O eq "cygwin") {
+      $newdir =~ s|\A///+|//|;
+      $newdir =~ s|(?<=[^/])//+|/|g;
+    }
+    elsif ($^O ne 'MSWin32') {
+      $newdir =~ s|///*|/|g;
+    }
+    chdir_init() unless $chdir_init;
+    my $newpwd;
+    if ($^O eq 'MSWin32') {
+	# get the full path name *before* the chdir()
+	$newpwd = Win32::GetFullPathName($newdir);
+    }
+
+    return 0 unless CORE::chdir $newdir;
+
+    if ($^O eq 'VMS') {
+	return $ENV{'PWD'} = $ENV{'DEFAULT'}
+    }
+    elsif ($^O eq 'MacOS') {
+	return $ENV{'PWD'} = cwd();
+    }
+    elsif ($^O eq 'MSWin32') {
+	$ENV{'PWD'} = $newpwd;
+	return 1;
+    }
+
+    if (ref $newdir eq 'GLOB') { # in case a file/dir handle is passed in
+	$ENV{'PWD'} = cwd();
+    } elsif ($newdir =~ m#^/#s) {
+	$ENV{'PWD'} = $newdir;
+    } else {
+	my @curdir = split(m#/#,$ENV{'PWD'});
+	@curdir = ('') unless @curdir;
+	my $component;
+	foreach $component (split(m#/#, $newdir)) {
+	    next if $component eq '.';
+	    pop(@curdir),next if $component eq '..';
+	    push(@curdir,$component);
+	}
+	$ENV{'PWD'} = join('/',@curdir) || '/';
+    }
+    1;
+}
+
+
+sub _perl_abs_path
+{
+    my $start = @_ ? shift : '.';
+    my($dotdots, $cwd, @pst, @cst, $dir, @tst);
+
+    unless (@cst = stat( $start ))
+    {
+	_carp("stat($start): $!");
+	return '';
+    }
+
+    unless (-d _) {
+        # Make sure we can be invoked on plain files, not just directories.
+        # NOTE that this routine assumes that '/' is the only directory separator.
+	
+        my ($dir, $file) = $start =~ m{^(.*)/(.+)$}
+	    or return cwd() . '/' . $start;
+	
+	# Can't use "-l _" here, because the previous stat was a stat(), not an lstat().
+	if (-l $start) {
+	    my $link_target = readlink($start);
+	    die "Can't resolve link $start: $!" unless defined $link_target;
+	    
+	    require File::Spec;
+            $link_target = $dir . '/' . $link_target
+                unless File::Spec->file_name_is_absolute($link_target);
+	    
+	    return abs_path($link_target);
+	}
+	
+	return $dir ? abs_path($dir) . "/$file" : "/$file";
+    }
+
+    $cwd = '';
+    $dotdots = $start;
+    do
+    {
+	$dotdots .= '/..';
+	@pst = @cst;
+	local *PARENT;
+	unless (opendir(PARENT, $dotdots))
+	{
+	    # probably a permissions issue.  Try the native command.
+	    require File::Spec;
+	    return File::Spec->rel2abs( $start, _backtick_pwd() );
+	}
+	unless (@cst = stat($dotdots))
+	{
+	    _carp("stat($dotdots): $!");
+	    closedir(PARENT);
+	    return '';
+	}
+	if ($pst[0] == $cst[0] && $pst[1] == $cst[1])
+	{
+	    $dir = undef;
+	}
+	else
+	{
+	    do
+	    {
+		unless (defined ($dir = readdir(PARENT)))
+	        {
+		    _carp("readdir($dotdots): $!");
+		    closedir(PARENT);
+		    return '';
+		}
+		$tst[0] = $pst[0]+1 unless (@tst = lstat("$dotdots/$dir"))
+	    }
+	    while ($dir eq '.' || $dir eq '..' || $tst[0] != $pst[0] ||
+		   $tst[1] != $pst[1]);
+	}
+	$cwd = (defined $dir ? "$dir" : "" ) . "/$cwd" ;
+	closedir(PARENT);
+    } while (defined $dir);
+    chop($cwd) unless $cwd eq '/'; # drop the trailing /
+    $cwd;
+}
+
+
+my $Curdir;
+sub fast_abs_path {
+    local $ENV{PWD} = $ENV{PWD} || ''; # Guard against clobberage
+    my $cwd = getcwd();
+    require File::Spec;
+    my $path = @_ ? shift : ($Curdir ||= File::Spec->curdir);
+
+    # Detaint else we'll explode in taint mode.  This is safe because
+    # we're not doing anything dangerous with it.
+    ($path) = $path =~ /(.*)/s;
+    ($cwd)  = $cwd  =~ /(.*)/s;
+
+    unless (-e $path) {
+ 	_croak("$path: No such file or directory");
+    }
+
+    unless (-d _) {
+        # Make sure we can be invoked on plain files, not just directories.
+	
+	my ($vol, $dir, $file) = File::Spec->splitpath($path);
+	return File::Spec->catfile($cwd, $path) unless length $dir;
+
+	if (-l $path) {
+	    my $link_target = readlink($path);
+	    die "Can't resolve link $path: $!" unless defined $link_target;
+	    
+	    $link_target = File::Spec->catpath($vol, $dir, $link_target)
+                unless File::Spec->file_name_is_absolute($link_target);
+	    
+	    return fast_abs_path($link_target);
+	}
+	
+	return $dir eq File::Spec->rootdir
+	  ? File::Spec->catpath($vol, $dir, $file)
+	  : fast_abs_path(File::Spec->catpath($vol, $dir, '')) . '/' . $file;
+    }
+
+    if (!CORE::chdir($path)) {
+ 	_croak("Cannot chdir to $path: $!");
+    }
+    my $realpath = getcwd();
+    if (! ((-d $cwd) && (CORE::chdir($cwd)))) {
+ 	_croak("Cannot chdir back to $cwd: $!");
+    }
+    $realpath;
+}
+
+# added function alias to follow principle of least surprise
+# based on previous aliasing.  --tchrist 27-Jan-00
+*fast_realpath = \&fast_abs_path;
+
+
+# --- PORTING SECTION ---
+
+# VMS: $ENV{'DEFAULT'} points to default directory at all times
+# 06-Mar-1996  Charles Bailey  bailey@newman.upenn.edu
+# Note: Use of Cwd::chdir() causes the logical name PWD to be defined
+#   in the process logical name table as the default device and directory
+#   seen by Perl. This may not be the same as the default device
+#   and directory seen by DCL after Perl exits, since the effects
+#   the CRTL chdir() function persist only until Perl exits.
+
+sub _vms_cwd {
+    return $ENV{'DEFAULT'};
+}
+
+sub _vms_abs_path {
+    return $ENV{'DEFAULT'} unless @_;
+    my $path = shift;
+
+    my $efs = _vms_efs;
+    my $unix_rpt = _vms_unix_rpt;
+
+    if (defined &VMS::Filespec::vmsrealpath) {
+        my $path_unix = 0;
+        my $path_vms = 0;
+
+        $path_unix = 1 if ($path =~ m#(?<=\^)/#);
+        $path_unix = 1 if ($path =~ /^\.\.?$/);
+        $path_vms = 1 if ($path =~ m#[\[<\]]#);
+        $path_vms = 1 if ($path =~ /^--?$/);
+
+        my $unix_mode = $path_unix;
+        if ($efs) {
+            # In case of a tie, the Unix report mode decides.
+            if ($path_vms == $path_unix) {
+                $unix_mode = $unix_rpt;
+            } else {
+                $unix_mode = 0 if $path_vms;
+            }
+        }
+
+        if ($unix_mode) {
+            # Unix format
+            return VMS::Filespec::unixrealpath($path);
+        }
+
+	# VMS format
+
+	my $new_path = VMS::Filespec::vmsrealpath($path);
+
+	# Perl expects directories to be in directory format
+	$new_path = VMS::Filespec::pathify($new_path) if -d $path;
+	return $new_path;
+    }
+
+    # Fallback to older algorithm if correct ones are not
+    # available.
+
+    if (-l $path) {
+        my $link_target = readlink($path);
+        die "Can't resolve link $path: $!" unless defined $link_target;
+
+        return _vms_abs_path($link_target);
+    }
+
+    # may need to turn foo.dir into [.foo]
+    my $pathified = VMS::Filespec::pathify($path);
+    $path = $pathified if defined $pathified;
+	
+    return VMS::Filespec::rmsexpand($path);
+}
+
+sub _os2_cwd {
+    my $pwd = `cmd /c cd`;
+    chomp $pwd;
+    $pwd =~ s:\\:/:g ;
+    $ENV{'PWD'} = $pwd;
+    return $pwd;
+}
+
+sub _win32_cwd_simple {
+    my $pwd = `cd`;
+    chomp $pwd;
+    $pwd =~ s:\\:/:g ;
+    $ENV{'PWD'} = $pwd;
+    return $pwd;
+}
+
+sub _win32_cwd {
+    my $pwd;
+    $pwd = Win32::GetCwd();
+    $pwd =~ s:\\:/:g ;
+    $ENV{'PWD'} = $pwd;
+    return $pwd;
+}
+
+*_NT_cwd = defined &Win32::GetCwd ? \&_win32_cwd : \&_win32_cwd_simple;
+
+sub _dos_cwd {
+    my $pwd;
+    if (!defined &Dos::GetCwd) {
+        chomp($pwd = `command /c cd`);
+        $pwd =~ s:\\:/:g ;
+    } else {
+        $pwd = Dos::GetCwd();
+    }
+    $ENV{'PWD'} = $pwd;
+    return $pwd;
+}
+
+sub _qnx_cwd {
+	local $ENV{PATH} = '';
+	local $ENV{CDPATH} = '';
+	local $ENV{ENV} = '';
+    my $pwd = `/usr/bin/fullpath -t`;
+    chomp $pwd;
+    $ENV{'PWD'} = $pwd;
+    return $pwd;
+}
+
+sub _qnx_abs_path {
+	local $ENV{PATH} = '';
+	local $ENV{CDPATH} = '';
+	local $ENV{ENV} = '';
+    my $path = @_ ? shift : '.';
+    local *REALPATH;
+
+    defined( open(REALPATH, '-|') || exec '/usr/bin/fullpath', '-t', $path ) or
+      die "Can't open /usr/bin/fullpath: $!";
+    my $realpath = <REALPATH>;
+    close REALPATH;
+    chomp $realpath;
+    return $realpath;
+}
+
+sub _epoc_cwd {
+    return $ENV{'PWD'} = EPOC::getcwd();
+}
+
+
+# Now that all the base-level functions are set up, alias the
+# user-level functions to the right places
+
+if (exists $METHOD_MAP{$^O}) {
+  my $map = $METHOD_MAP{$^O};
+  foreach my $name (keys %$map) {
+    local $^W = 0;  # assignments trigger 'subroutine redefined' warning
+    no strict 'refs';
+    *{$name} = \&{$map->{$name}};
+  }
+}
+
+# In case the XS version doesn't load.
+*abs_path = \&_perl_abs_path unless defined &abs_path;
+*getcwd = \&_perl_getcwd unless defined &getcwd;
+
+# added function alias for those of us more
+# used to the libc function.  --tchrist 27-Jan-00
+*realpath = \&abs_path;
+
+1;
+__END__
+
+=head1 NAME
+
+Cwd - get pathname of current working directory
+
+=head1 SYNOPSIS
+
+    use Cwd;
+    my $dir = getcwd;
+
+    use Cwd 'abs_path';
+    my $abs_path = abs_path($file);
+
+=head1 DESCRIPTION
+
+This module provides functions for determining the pathname of the
+current working directory.  It is recommended that getcwd (or another
+*cwd() function) be used in I<all> code to ensure portability.
+
+By default, it exports the functions cwd(), getcwd(), fastcwd(), and
+fastgetcwd() (and, on Win32, getdcwd()) into the caller's namespace.  
+
+
+=head2 getcwd and friends
+
+Each of these functions are called without arguments and return the
+absolute path of the current working directory.
+
+=over 4
+
+=item getcwd
+
+    my $cwd = getcwd();
+
+Returns the current working directory.
+
+Exposes the POSIX function getcwd(3) or re-implements it if it's not
+available.
+
+=item cwd
+
+    my $cwd = cwd();
+
+The cwd() is the most natural form for the current architecture.  For
+most systems it is identical to `pwd` (but without the trailing line
+terminator).
+
+=item fastcwd
+
+    my $cwd = fastcwd();
+
+A more dangerous version of getcwd(), but potentially faster.
+
+It might conceivably chdir() you out of a directory that it can't
+chdir() you back into.  If fastcwd encounters a problem it will return
+undef but will probably leave you in a different directory.  For a
+measure of extra security, if everything appears to have worked, the
+fastcwd() function will check that it leaves you in the same directory
+that it started in.  If it has changed it will C<die> with the message
+"Unstable directory path, current directory changed
+unexpectedly".  That should never happen.
+
+=item fastgetcwd
+
+  my $cwd = fastgetcwd();
+
+The fastgetcwd() function is provided as a synonym for cwd().
+
+=item getdcwd
+
+    my $cwd = getdcwd();
+    my $cwd = getdcwd('C:');
+
+The getdcwd() function is also provided on Win32 to get the current working
+directory on the specified drive, since Windows maintains a separate current
+working directory for each drive.  If no drive is specified then the current
+drive is assumed.
+
+This function simply calls the Microsoft C library _getdcwd() function.
+
+=back
+
+
+=head2 abs_path and friends
+
+These functions are exported only on request.  They each take a single
+argument and return the absolute pathname for it.  If no argument is
+given they'll use the current working directory.
+
+=over 4
+
+=item abs_path
+
+  my $abs_path = abs_path($file);
+
+Uses the same algorithm as getcwd().  Symbolic links and relative-path
+components ("." and "..") are resolved to return the canonical
+pathname, just like realpath(3).
+
+=item realpath
+
+  my $abs_path = realpath($file);
+
+A synonym for abs_path().
+
+=item fast_abs_path
+
+  my $abs_path = fast_abs_path($file);
+
+A more dangerous, but potentially faster version of abs_path.
+
+=back
+
+=head2 $ENV{PWD}
+
+If you ask to override your chdir() built-in function, 
+
+  use Cwd qw(chdir);
+
+then your PWD environment variable will be kept up to date.  Note that
+it will only be kept up to date if all packages which use chdir import
+it from Cwd.
+
+
+=head1 NOTES
+
+=over 4
+
+=item *
+
+Since the path separators are different on some operating systems ('/'
+on Unix, ':' on MacPerl, etc...) we recommend you use the File::Spec
+modules wherever portability is a concern.
+
+=item *
+
+Actually, on Mac OS, the C<getcwd()>, C<fastgetcwd()> and C<fastcwd()>
+functions are all aliases for the C<cwd()> function, which, on Mac OS,
+calls `pwd`.  Likewise, the C<abs_path()> function is an alias for
+C<fast_abs_path()>.
+
+=back
+
+=head1 AUTHOR
+
+Originally by the perl5-porters.
+
+Maintained by Ken Williams <KWILLIAMS@cpan.org>
+
+=head1 COPYRIGHT
+
+Copyright (c) 2004 by the Perl 5 Porters.  All rights reserved.
+
+This program is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
+Portions of the C code in this library are copyright (c) 1994 by the
+Regents of the University of California.  All rights reserved.  The
+license on this code is compatible with the licensing of the rest of
+the distribution - please see the source code in F<Cwd.xs> for the
+details.
+
+=head1 SEE ALSO
+
+L<File::chdir>
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/Data/Dumper.pm b/lib/5.24.1/x86_64-linux/Data/Dumper.pm
new file mode 100644
index 00000000..13be89d8
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/Data/Dumper.pm
@@ -0,0 +1,1481 @@
+#
+# Data/Dumper.pm
+#
+# convert perl data structures into perl syntax suitable for both printing
+# and eval
+#
+# Documentation at the __END__
+#
+
+package Data::Dumper;
+
+BEGIN {
+    $VERSION = '2.160'; # Don't forget to set version and release
+}               # date in POD below!
+
+#$| = 1;
+
+use 5.006_001;
+require Exporter;
+require overload;
+
+use Carp;
+
+BEGIN {
+    @ISA = qw(Exporter);
+    @EXPORT = qw(Dumper);
+    @EXPORT_OK = qw(DumperX);
+
+    # if run under miniperl, or otherwise lacking dynamic loading,
+    # XSLoader should be attempted to load, or the pure perl flag
+    # toggled on load failure.
+    eval {
+        require XSLoader;
+        XSLoader::load( 'Data::Dumper' );
+        1
+    }
+    or $Useperl = 1;
+}
+
+my $IS_ASCII  = ord 'A' ==  65;
+
+# module vars and their defaults
+$Indent     = 2         unless defined $Indent;
+$Trailingcomma = 0      unless defined $Trailingcomma;
+$Purity     = 0         unless defined $Purity;
+$Pad        = ""        unless defined $Pad;
+$Varname    = "VAR"     unless defined $Varname;
+$Useqq      = 0         unless defined $Useqq;
+$Terse      = 0         unless defined $Terse;
+$Freezer    = ""        unless defined $Freezer;
+$Toaster    = ""        unless defined $Toaster;
+$Deepcopy   = 0         unless defined $Deepcopy;
+$Quotekeys  = 1         unless defined $Quotekeys;
+$Bless      = "bless"   unless defined $Bless;
+#$Expdepth   = 0         unless defined $Expdepth;
+$Maxdepth   = 0         unless defined $Maxdepth;
+$Pair       = ' => '    unless defined $Pair;
+$Useperl    = 0         unless defined $Useperl;
+$Sortkeys   = 0         unless defined $Sortkeys;
+$Deparse    = 0         unless defined $Deparse;
+$Sparseseen = 0         unless defined $Sparseseen;
+$Maxrecurse = 1000      unless defined $Maxrecurse;
+
+#
+# expects an arrayref of values to be dumped.
+# can optionally pass an arrayref of names for the values.
+# names must have leading $ sign stripped. begin the name with *
+# to cause output of arrays and hashes rather than refs.
+#
+sub new {
+  my($c, $v, $n) = @_;
+
+  croak "Usage:  PACKAGE->new(ARRAYREF, [ARRAYREF])"
+    unless (defined($v) && (ref($v) eq 'ARRAY'));
+  $n = [] unless (defined($n) && (ref($n) eq 'ARRAY'));
+
+  my($s) = {
+        level      => 0,           # current recursive depth
+        indent     => $Indent,     # various styles of indenting
+        trailingcomma => $Trailingcomma, # whether to add comma after last elem
+        pad        => $Pad,        # all lines prefixed by this string
+        xpad       => "",          # padding-per-level
+        apad       => "",          # added padding for hash keys n such
+        sep        => "",          # list separator
+        pair       => $Pair,    # hash key/value separator: defaults to ' => '
+        seen       => {},          # local (nested) refs (id => [name, val])
+        todump     => $v,          # values to dump []
+        names      => $n,          # optional names for values []
+        varname    => $Varname,    # prefix to use for tagging nameless ones
+        purity     => $Purity,     # degree to which output is evalable
+        useqq      => $Useqq,      # use "" for strings (backslashitis ensues)
+        terse      => $Terse,      # avoid name output (where feasible)
+        freezer    => $Freezer,    # name of Freezer method for objects
+        toaster    => $Toaster,    # name of method to revive objects
+        deepcopy   => $Deepcopy,   # do not cross-ref, except to stop recursion
+        quotekeys  => $Quotekeys,  # quote hash keys
+        'bless'    => $Bless,    # keyword to use for "bless"
+#        expdepth   => $Expdepth,   # cutoff depth for explicit dumping
+        maxdepth   => $Maxdepth,   # depth beyond which we give up
+	maxrecurse => $Maxrecurse, # depth beyond which we abort
+        useperl    => $Useperl,    # use the pure Perl implementation
+        sortkeys   => $Sortkeys,   # flag or filter for sorting hash keys
+        deparse    => $Deparse,    # use B::Deparse for coderefs
+        noseen     => $Sparseseen, # do not populate the seen hash unless necessary
+       };
+
+  if ($Indent > 0) {
+    $s->{xpad} = "  ";
+    $s->{sep} = "\n";
+  }
+  return bless($s, $c);
+}
+
+# Packed numeric addresses take less memory. Plus pack is faster than sprintf
+
+# Most users of current versions of Data::Dumper will be 5.008 or later.
+# Anyone on 5.6.1 and 5.6.2 upgrading will be rare (particularly judging by
+# the bug reports from users on those platforms), so for the common case avoid
+# complexity, and avoid even compiling the unneeded code.
+
+sub init_refaddr_format {
+}
+
+sub format_refaddr {
+    require Scalar::Util;
+    pack "J", Scalar::Util::refaddr(shift);
+};
+
+if ($] < 5.008) {
+    eval <<'EOC' or die;
+    no warnings 'redefine';
+    my $refaddr_format;
+    sub init_refaddr_format {
+        require Config;
+        my $f = $Config::Config{uvxformat};
+        $f =~ tr/"//d;
+        $refaddr_format = "0x%" . $f;
+    }
+
+    sub format_refaddr {
+        require Scalar::Util;
+        sprintf $refaddr_format, Scalar::Util::refaddr(shift);
+    }
+
+    1
+EOC
+}
+
+#
+# add-to or query the table of already seen references
+#
+sub Seen {
+  my($s, $g) = @_;
+  if (defined($g) && (ref($g) eq 'HASH'))  {
+    init_refaddr_format();
+    my($k, $v, $id);
+    while (($k, $v) = each %$g) {
+      if (defined $v) {
+        if (ref $v) {
+          $id = format_refaddr($v);
+          if ($k =~ /^[*](.*)$/) {
+            $k = (ref $v eq 'ARRAY') ? ( "\\\@" . $1 ) :
+                 (ref $v eq 'HASH')  ? ( "\\\%" . $1 ) :
+                 (ref $v eq 'CODE')  ? ( "\\\&" . $1 ) :
+                 (   "\$" . $1 ) ;
+          }
+          elsif ($k !~ /^\$/) {
+            $k = "\$" . $k;
+          }
+          $s->{seen}{$id} = [$k, $v];
+        }
+        else {
+          carp "Only refs supported, ignoring non-ref item \$$k";
+        }
+      }
+      else {
+        carp "Value of ref must be defined; ignoring undefined item \$$k";
+      }
+    }
+    return $s;
+  }
+  else {
+    return map { @$_ } values %{$s->{seen}};
+  }
+}
+
+#
+# set or query the values to be dumped
+#
+sub Values {
+  my($s, $v) = @_;
+  if (defined($v)) {
+    if (ref($v) eq 'ARRAY')  {
+      $s->{todump} = [@$v];        # make a copy
+      return $s;
+    }
+    else {
+      croak "Argument to Values, if provided, must be array ref";
+    }
+  }
+  else {
+    return @{$s->{todump}};
+  }
+}
+
+#
+# set or query the names of the values to be dumped
+#
+sub Names {
+  my($s, $n) = @_;
+  if (defined($n)) {
+    if (ref($n) eq 'ARRAY') {
+      $s->{names} = [@$n];         # make a copy
+      return $s;
+    }
+    else {
+      croak "Argument to Names, if provided, must be array ref";
+    }
+  }
+  else {
+    return @{$s->{names}};
+  }
+}
+
+sub DESTROY {}
+
+sub Dump {
+    return &Dumpxs
+    unless $Data::Dumper::Useperl || (ref($_[0]) && $_[0]->{useperl})
+        || $Data::Dumper::Deparse || (ref($_[0]) && $_[0]->{deparse})
+
+            # Use pure perl version on earlier releases on EBCDIC platforms
+        || (! $IS_ASCII && $] lt 5.021_010);
+    return &Dumpperl;
+}
+
+#
+# dump the refs in the current dumper object.
+# expects same args as new() if called via package name.
+#
+sub Dumpperl {
+  my($s) = shift;
+  my(@out, $val, $name);
+  my($i) = 0;
+  local(@post);
+  init_refaddr_format();
+
+  $s = $s->new(@_) unless ref $s;
+
+  for $val (@{$s->{todump}}) {
+    @post = ();
+    $name = $s->{names}[$i++];
+    $name = $s->_refine_name($name, $val, $i);
+
+    my $valstr;
+    {
+      local($s->{apad}) = $s->{apad};
+      $s->{apad} .= ' ' x (length($name) + 3) if $s->{indent} >= 2 and !$s->{terse};
+      $valstr = $s->_dump($val, $name);
+    }
+
+    $valstr = "$name = " . $valstr . ';' if @post or !$s->{terse};
+    my $out = $s->_compose_out($valstr, \@post);
+
+    push @out, $out;
+  }
+  return wantarray ? @out : join('', @out);
+}
+
+# wrap string in single quotes (escaping if needed)
+sub _quote {
+    my $val = shift;
+    $val =~ s/([\\\'])/\\$1/g;
+    return  "'" . $val .  "'";
+}
+
+# Old Perls (5.14-) have trouble resetting vstring magic when it is no
+# longer valid.
+use constant _bad_vsmg => defined &_vstring && (_vstring(~v0)||'') eq "v0";
+
+#
+# twist, toil and turn;
+# and recurse, of course.
+# sometimes sordidly;
+# and curse if no recourse.
+#
+sub _dump {
+  my($s, $val, $name) = @_;
+  my($out, $type, $id, $sname);
+
+  $type = ref $val;
+  $out = "";
+
+  if ($type) {
+
+    # Call the freezer method if it's specified and the object has the
+    # method.  Trap errors and warn() instead of die()ing, like the XS
+    # implementation.
+    my $freezer = $s->{freezer};
+    if ($freezer and UNIVERSAL::can($val, $freezer)) {
+      eval { $val->$freezer() };
+      warn "WARNING(Freezer method call failed): $@" if $@;
+    }
+
+    require Scalar::Util;
+    my $realpack = Scalar::Util::blessed($val);
+    my $realtype = $realpack ? Scalar::Util::reftype($val) : ref $val;
+    $id = format_refaddr($val);
+
+    # Note: By this point $name is always defined and of non-zero length.
+    # Keep a tab on it so that we do not fall into recursive pit.
+    if (exists $s->{seen}{$id}) {
+      if ($s->{purity} and $s->{level} > 0) {
+        $out = ($realtype eq 'HASH')  ? '{}' :
+               ($realtype eq 'ARRAY') ? '[]' :
+               'do{my $o}' ;
+        push @post, $name . " = " . $s->{seen}{$id}[0];
+      }
+      else {
+        $out = $s->{seen}{$id}[0];
+        if ($name =~ /^([\@\%])/) {
+          my $start = $1;
+          if ($out =~ /^\\$start/) {
+            $out = substr($out, 1);
+          }
+          else {
+            $out = $start . '{' . $out . '}';
+          }
+        }
+      }
+      return $out;
+    }
+    else {
+      # store our name
+      $s->{seen}{$id} = [ (
+          ($name =~ /^[@%]/)
+            ? ('\\' . $name )
+            : ($realtype eq 'CODE' and $name =~ /^[*](.*)$/)
+              ? ('\\&' . $1 )
+              : $name
+        ), $val ];
+    }
+    my $no_bless = 0;
+    my $is_regex = 0;
+    if ( $realpack and ($] >= 5.009005 ? re::is_regexp($val) : $realpack eq 'Regexp') ) {
+        $is_regex = 1;
+        $no_bless = $realpack eq 'Regexp';
+    }
+
+    # If purity is not set and maxdepth is set, then check depth:
+    # if we have reached maximum depth, return the string
+    # representation of the thing we are currently examining
+    # at this depth (i.e., 'Foo=ARRAY(0xdeadbeef)').
+    if (!$s->{purity}
+      and defined($s->{maxdepth})
+      and $s->{maxdepth} > 0
+      and $s->{level} >= $s->{maxdepth})
+    {
+      return qq['$val'];
+    }
+
+    # avoid recursing infinitely [perl #122111]
+    if ($s->{maxrecurse} > 0
+        and $s->{level} >= $s->{maxrecurse}) {
+        die "Recursion limit of $s->{maxrecurse} exceeded";
+    }
+
+    # we have a blessed ref
+    my ($blesspad);
+    if ($realpack and !$no_bless) {
+      $out = $s->{'bless'} . '( ';
+      $blesspad = $s->{apad};
+      $s->{apad} .= '       ' if ($s->{indent} >= 2);
+    }
+
+    $s->{level}++;
+    my $ipad = $s->{xpad} x $s->{level};
+
+    if ($is_regex) {
+        my $pat;
+        my $flags = "";
+        if (defined(*re::regexp_pattern{CODE})) {
+          ($pat, $flags) = re::regexp_pattern($val);
+        }
+        else {
+          $pat = "$val";
+        }
+        $pat =~ s <(\\.)|/> { $1 || '\\/' }ge;
+        $out .= "qr/$pat/$flags";
+    }
+    elsif ($realtype eq 'SCALAR' || $realtype eq 'REF'
+    || $realtype eq 'VSTRING') {
+      if ($realpack) {
+        $out .= 'do{\\(my $o = ' . $s->_dump($$val, "\${$name}") . ')}';
+      }
+      else {
+        $out .= '\\' . $s->_dump($$val, "\${$name}");
+      }
+    }
+    elsif ($realtype eq 'GLOB') {
+      $out .= '\\' . $s->_dump($$val, "*{$name}");
+    }
+    elsif ($realtype eq 'ARRAY') {
+      my($pad, $mname);
+      my($i) = 0;
+      $out .= ($name =~ /^\@/) ? '(' : '[';
+      $pad = $s->{sep} . $s->{pad} . $s->{apad};
+      ($name =~ /^\@(.*)$/) ? ($mname = "\$" . $1) :
+    # omit -> if $foo->[0]->{bar}, but not ${$foo->[0]}->{bar}
+        ($name =~ /^\\?[\%\@\*\$][^{].*[]}]$/) ? ($mname = $name) :
+        ($mname = $name . '->');
+      $mname .= '->' if $mname =~ /^\*.+\{[A-Z]+\}$/;
+      for my $v (@$val) {
+        $sname = $mname . '[' . $i . ']';
+        $out .= $pad . $ipad . '#' . $i
+          if $s->{indent} >= 3;
+        $out .= $pad . $ipad . $s->_dump($v, $sname);
+        $out .= ","
+            if $i++ < $#$val
+            || ($s->{trailingcomma} && $s->{indent} >= 1);
+      }
+      $out .= $pad . ($s->{xpad} x ($s->{level} - 1)) if $i;
+      $out .= ($name =~ /^\@/) ? ')' : ']';
+    }
+    elsif ($realtype eq 'HASH') {
+      my ($k, $v, $pad, $lpad, $mname, $pair);
+      $out .= ($name =~ /^\%/) ? '(' : '{';
+      $pad = $s->{sep} . $s->{pad} . $s->{apad};
+      $lpad = $s->{apad};
+      $pair = $s->{pair};
+      ($name =~ /^\%(.*)$/) ? ($mname = "\$" . $1) :
+    # omit -> if $foo->[0]->{bar}, but not ${$foo->[0]}->{bar}
+        ($name =~ /^\\?[\%\@\*\$][^{].*[]}]$/) ? ($mname = $name) :
+        ($mname = $name . '->');
+      $mname .= '->' if $mname =~ /^\*.+\{[A-Z]+\}$/;
+      my $sortkeys = defined($s->{sortkeys}) ? $s->{sortkeys} : '';
+      my $keys = [];
+      if ($sortkeys) {
+        if (ref($s->{sortkeys}) eq 'CODE') {
+          $keys = $s->{sortkeys}($val);
+          unless (ref($keys) eq 'ARRAY') {
+            carp "Sortkeys subroutine did not return ARRAYREF";
+            $keys = [];
+          }
+        }
+        else {
+          $keys = [ sort keys %$val ];
+        }
+      }
+
+      # Ensure hash iterator is reset
+      keys(%$val);
+
+      my $key;
+      while (($k, $v) = ! $sortkeys ? (each %$val) :
+         @$keys ? ($key = shift(@$keys), $val->{$key}) :
+         () )
+      {
+        my $nk = $s->_dump($k, "");
+
+        # _dump doesn't quote numbers of this form
+        if ($s->{quotekeys} && $nk =~ /^(?:0|-?[1-9][0-9]{0,8})\z/) {
+          $nk = $s->{useqq} ? qq("$nk") : qq('$nk');
+        }
+        elsif (!$s->{quotekeys} and $nk =~ /^[\"\']([A-Za-z_]\w*)[\"\']$/) {
+          $nk = $1
+        }
+
+        $sname = $mname . '{' . $nk . '}';
+        $out .= $pad . $ipad . $nk . $pair;
+
+        # temporarily alter apad
+        $s->{apad} .= (" " x (length($nk) + 4))
+          if $s->{indent} >= 2;
+        $out .= $s->_dump($val->{$k}, $sname) . ",";
+        $s->{apad} = $lpad
+          if $s->{indent} >= 2;
+      }
+      if (substr($out, -1) eq ',') {
+        chop $out if !$s->{trailingcomma} || !$s->{indent};
+        $out .= $pad . ($s->{xpad} x ($s->{level} - 1));
+      }
+      $out .= ($name =~ /^\%/) ? ')' : '}';
+    }
+    elsif ($realtype eq 'CODE') {
+      if ($s->{deparse}) {
+        require B::Deparse;
+        my $sub =  'sub ' . (B::Deparse->new)->coderef2text($val);
+        $pad    =  $s->{sep} . $s->{pad} . $s->{apad} . $s->{xpad} x ($s->{level} - 1);
+        $sub    =~ s/\n/$pad/gse;
+        $out   .=  $sub;
+      }
+      else {
+        $out .= 'sub { "DUMMY" }';
+        carp "Encountered CODE ref, using dummy placeholder" if $s->{purity};
+      }
+    }
+    else {
+      croak "Can't handle '$realtype' type";
+    }
+
+    if ($realpack and !$no_bless) { # we have a blessed ref
+      $out .= ', ' . _quote($realpack) . ' )';
+      $out .= '->' . $s->{toaster} . '()'
+        if $s->{toaster} ne '';
+      $s->{apad} = $blesspad;
+    }
+    $s->{level}--;
+  }
+  else {                                 # simple scalar
+
+    my $ref = \$_[1];
+    my $v;
+    # first, catalog the scalar
+    if ($name ne '') {
+      $id = format_refaddr($ref);
+      if (exists $s->{seen}{$id}) {
+        if ($s->{seen}{$id}[2]) {
+          $out = $s->{seen}{$id}[0];
+          #warn "[<$out]\n";
+          return "\${$out}";
+        }
+      }
+      else {
+        #warn "[>\\$name]\n";
+        $s->{seen}{$id} = ["\\$name", $ref];
+      }
+    }
+    $ref = \$val;
+    if (ref($ref) eq 'GLOB') {  # glob
+      my $name = substr($val, 1);
+      if ($name =~ /^[A-Za-z_][\w:]*$/ && $name ne 'main::') {
+        $name =~ s/^main::/::/;
+        $sname = $name;
+      }
+      else {
+        $sname = $s->_dump(
+          $name eq 'main::' || $] < 5.007 && $name eq "main::\0"
+            ? ''
+            : $name,
+          "",
+        );
+        $sname = '{' . $sname . '}';
+      }
+      if ($s->{purity}) {
+        my $k;
+        local ($s->{level}) = 0;
+        for $k (qw(SCALAR ARRAY HASH)) {
+          my $gval = *$val{$k};
+          next unless defined $gval;
+          next if $k eq "SCALAR" && ! defined $$gval;  # always there
+
+          # _dump can push into @post, so we hold our place using $postlen
+          my $postlen = scalar @post;
+          $post[$postlen] = "\*$sname = ";
+          local ($s->{apad}) = " " x length($post[$postlen]) if $s->{indent} >= 2;
+          $post[$postlen] .= $s->_dump($gval, "\*$sname\{$k\}");
+        }
+      }
+      $out .= '*' . $sname;
+    }
+    elsif (!defined($val)) {
+      $out .= "undef";
+    }
+    elsif (defined &_vstring and $v = _vstring($val)
+      and !_bad_vsmg || eval $v eq $val) {
+      $out .= $v;
+    }
+    elsif (!defined &_vstring
+       and ref $ref eq 'VSTRING' || eval{Scalar::Util::isvstring($val)}) {
+      $out .= sprintf "%vd", $val;
+    }
+    # \d here would treat "1\x{660}" as a safe decimal number
+    elsif ($val =~ /^(?:0|-?[1-9][0-9]{0,8})\z/) { # safe decimal number
+      $out .= $val;
+    }
+    else {                 # string
+      if ($s->{useqq} or $val =~ tr/\0-\377//c) {
+        # Fall back to qq if there's Unicode
+        $out .= qquote($val, $s->{useqq});
+      }
+      else {
+        $out .= _quote($val);
+      }
+    }
+  }
+  if ($id) {
+    # if we made it this far, $id was added to seen list at current
+    # level, so remove it to get deep copies
+    if ($s->{deepcopy}) {
+      delete($s->{seen}{$id});
+    }
+    elsif ($name) {
+      $s->{seen}{$id}[2] = 1;
+    }
+  }
+  return $out;
+}
+
+#
+# non-OO style of earlier version
+#
+sub Dumper {
+  return Data::Dumper->Dump([@_]);
+}
+
+# compat stub
+sub DumperX {
+  return Data::Dumper->Dumpxs([@_], []);
+}
+
+#
+# reset the "seen" cache
+#
+sub Reset {
+  my($s) = shift;
+  $s->{seen} = {};
+  return $s;
+}
+
+sub Indent {
+  my($s, $v) = @_;
+  if (defined($v)) {
+    if ($v == 0) {
+      $s->{xpad} = "";
+      $s->{sep} = "";
+    }
+    else {
+      $s->{xpad} = "  ";
+      $s->{sep} = "\n";
+    }
+    $s->{indent} = $v;
+    return $s;
+  }
+  else {
+    return $s->{indent};
+  }
+}
+
+sub Trailingcomma {
+  my($s, $v) = @_;
+  defined($v) ? (($s->{trailingcomma} = $v), return $s) : $s->{trailingcomma};
+}
+
+sub Pair {
+    my($s, $v) = @_;
+    defined($v) ? (($s->{pair} = $v), return $s) : $s->{pair};
+}
+
+sub Pad {
+  my($s, $v) = @_;
+  defined($v) ? (($s->{pad} = $v), return $s) : $s->{pad};
+}
+
+sub Varname {
+  my($s, $v) = @_;
+  defined($v) ? (($s->{varname} = $v), return $s) : $s->{varname};
+}
+
+sub Purity {
+  my($s, $v) = @_;
+  defined($v) ? (($s->{purity} = $v), return $s) : $s->{purity};
+}
+
+sub Useqq {
+  my($s, $v) = @_;
+  defined($v) ? (($s->{useqq} = $v), return $s) : $s->{useqq};
+}
+
+sub Terse {
+  my($s, $v) = @_;
+  defined($v) ? (($s->{terse} = $v), return $s) : $s->{terse};
+}
+
+sub Freezer {
+  my($s, $v) = @_;
+  defined($v) ? (($s->{freezer} = $v), return $s) : $s->{freezer};
+}
+
+sub Toaster {
+  my($s, $v) = @_;
+  defined($v) ? (($s->{toaster} = $v), return $s) : $s->{toaster};
+}
+
+sub Deepcopy {
+  my($s, $v) = @_;
+  defined($v) ? (($s->{deepcopy} = $v), return $s) : $s->{deepcopy};
+}
+
+sub Quotekeys {
+  my($s, $v) = @_;
+  defined($v) ? (($s->{quotekeys} = $v), return $s) : $s->{quotekeys};
+}
+
+sub Bless {
+  my($s, $v) = @_;
+  defined($v) ? (($s->{'bless'} = $v), return $s) : $s->{'bless'};
+}
+
+sub Maxdepth {
+  my($s, $v) = @_;
+  defined($v) ? (($s->{'maxdepth'} = $v), return $s) : $s->{'maxdepth'};
+}
+
+sub Maxrecurse {
+  my($s, $v) = @_;
+  defined($v) ? (($s->{'maxrecurse'} = $v), return $s) : $s->{'maxrecurse'};
+}
+
+sub Useperl {
+  my($s, $v) = @_;
+  defined($v) ? (($s->{'useperl'} = $v), return $s) : $s->{'useperl'};
+}
+
+sub Sortkeys {
+  my($s, $v) = @_;
+  defined($v) ? (($s->{'sortkeys'} = $v), return $s) : $s->{'sortkeys'};
+}
+
+sub Deparse {
+  my($s, $v) = @_;
+  defined($v) ? (($s->{'deparse'} = $v), return $s) : $s->{'deparse'};
+}
+
+sub Sparseseen {
+  my($s, $v) = @_;
+  defined($v) ? (($s->{'noseen'} = $v), return $s) : $s->{'noseen'};
+}
+
+# used by qquote below
+my %esc = (
+    "\a" => "\\a",
+    "\b" => "\\b",
+    "\t" => "\\t",
+    "\n" => "\\n",
+    "\f" => "\\f",
+    "\r" => "\\r",
+    "\e" => "\\e",
+);
+
+my $low_controls = ($IS_ASCII)
+
+                   # This includes \177, because traditionally it has been
+                   # output as octal, even though it isn't really a "low"
+                   # control
+                   ? qr/[\0-\x1f\177]/
+
+                     # EBCDIC low controls.
+                   : qr/[\0-\x3f]/;
+
+# put a string value in double quotes
+sub qquote {
+  local($_) = shift;
+  s/([\\\"\@\$])/\\$1/g;
+
+  # This efficiently changes the high ordinal characters to \x{} if the utf8
+  # flag is on.  On ASCII platforms, the high ordinals are all the
+  # non-ASCII's.  On EBCDIC platforms, we don't include in these the non-ASCII
+  # controls whose ordinals are less than SPACE, excluded below by the range
+  # \0-\x3f.  On ASCII platforms this range just compiles as part of :ascii:.
+  # On EBCDIC platforms, there is just one outlier high ordinal control, and
+  # it gets output as \x{}.
+  my $bytes; { use bytes; $bytes = length }
+  s/([^[:ascii:]\0-\x3f])/sprintf("\\x{%x}",ord($1))/ge
+    if $bytes > length
+
+       # The above doesn't get the EBCDIC outlier high ordinal control when
+       # the string is UTF-8 but there are no UTF-8 variant characters in it.
+       # We want that to come out as \x{} anyway.  We need is_utf8() to do
+       # this.
+       || (! $IS_ASCII && $] ge 5.008_001 && utf8::is_utf8($_));
+
+  return qq("$_") unless /[[:^print:]]/;  # fast exit if only printables
+
+  # Here, there is at least one non-printable to output.  First, translate the
+  # escapes.
+  s/([\a\b\t\n\f\r\e])/$esc{$1}/g;
+
+  # no need for 3 digits in escape for octals not followed by a digit.
+  s/($low_controls)(?!\d)/'\\'.sprintf('%o',ord($1))/eg;
+
+  # But otherwise use 3 digits
+  s/($low_controls)/'\\'.sprintf('%03o',ord($1))/eg;
+
+    # all but last branch below not supported --BEHAVIOR SUBJECT TO CHANGE--
+  my $high = shift || "";
+    if ($high eq "iso8859") {   # Doesn't escape the Latin1 printables
+      if ($IS_ASCII) {
+        s/([\200-\240])/'\\'.sprintf('%o',ord($1))/eg;
+      }
+      elsif ($] ge 5.007_003) {
+        my $high_control = utf8::unicode_to_native(0x9F);
+        s/$high_control/sprintf('\\%o',ord($1))/eg;
+      }
+    } elsif ($high eq "utf8") {
+#     Some discussion of what to do here is in
+#       https://rt.perl.org/Ticket/Display.html?id=113088
+#     use utf8;
+#     $str =~ s/([^\040-\176])/sprintf "\\x{%04x}", ord($1)/ge;
+    } elsif ($high eq "8bit") {
+        # leave it as it is
+    } else {
+      s/([[:^ascii:]])/'\\'.sprintf('%03o',ord($1))/eg;
+      #s/([^\040-\176])/sprintf "\\x{%04x}", ord($1)/ge;
+    }
+
+  return qq("$_");
+}
+
+# helper sub to sort hash keys in Perl < 5.8.0 where we don't have
+# access to sortsv() from XS
+sub _sortkeys { [ sort keys %{$_[0]} ] }
+
+sub _refine_name {
+    my $s = shift;
+    my ($name, $val, $i) = @_;
+    if (defined $name) {
+      if ($name =~ /^[*](.*)$/) {
+        if (defined $val) {
+            $name = (ref $val eq 'ARRAY') ? ( "\@" . $1 ) :
+              (ref $val eq 'HASH')  ? ( "\%" . $1 ) :
+              (ref $val eq 'CODE')  ? ( "\*" . $1 ) :
+              ( "\$" . $1 ) ;
+        }
+        else {
+          $name = "\$" . $1;
+        }
+      }
+      elsif ($name !~ /^\$/) {
+        $name = "\$" . $name;
+      }
+    }
+    else { # no names provided
+      $name = "\$" . $s->{varname} . $i;
+    }
+    return $name;
+}
+
+sub _compose_out {
+    my $s = shift;
+    my ($valstr, $postref) = @_;
+    my $out = "";
+    $out .= $s->{pad} . $valstr . $s->{sep};
+    if (@{$postref}) {
+        $out .= $s->{pad} .
+            join(';' . $s->{sep} . $s->{pad}, @{$postref}) .
+            ';' .
+            $s->{sep};
+    }
+    return $out;
+}
+
+1;
+__END__
+
+=head1 NAME
+
+Data::Dumper - stringified perl data structures, suitable for both printing and C<eval>
+
+=head1 SYNOPSIS
+
+    use Data::Dumper;
+
+    # simple procedural interface
+    print Dumper($foo, $bar);
+
+    # extended usage with names
+    print Data::Dumper->Dump([$foo, $bar], [qw(foo *ary)]);
+
+    # configuration variables
+    {
+      local $Data::Dumper::Purity = 1;
+      eval Data::Dumper->Dump([$foo, $bar], [qw(foo *ary)]);
+    }
+
+    # OO usage
+    $d = Data::Dumper->new([$foo, $bar], [qw(foo *ary)]);
+       ...
+    print $d->Dump;
+       ...
+    $d->Purity(1)->Terse(1)->Deepcopy(1);
+    eval $d->Dump;
+
+
+=head1 DESCRIPTION
+
+Given a list of scalars or reference variables, writes out their contents in
+perl syntax. The references can also be objects.  The content of each
+variable is output in a single Perl statement.  Handles self-referential
+structures correctly.
+
+The return value can be C<eval>ed to get back an identical copy of the
+original reference structure.  (Please do consider the security implications
+of eval'ing code from untrusted sources!)
+
+Any references that are the same as one of those passed in will be named
+C<$VAR>I<n> (where I<n> is a numeric suffix), and other duplicate references
+to substructures within C<$VAR>I<n> will be appropriately labeled using arrow
+notation.  You can specify names for individual values to be dumped if you
+use the C<Dump()> method, or you can change the default C<$VAR> prefix to
+something else.  See C<$Data::Dumper::Varname> and C<$Data::Dumper::Terse>
+below.
+
+The default output of self-referential structures can be C<eval>ed, but the
+nested references to C<$VAR>I<n> will be undefined, since a recursive
+structure cannot be constructed using one Perl statement.  You should set the
+C<Purity> flag to 1 to get additional statements that will correctly fill in
+these references.  Moreover, if C<eval>ed when strictures are in effect,
+you need to ensure that any variables it accesses are previously declared.
+
+In the extended usage form, the references to be dumped can be given
+user-specified names.  If a name begins with a C<*>, the output will
+describe the dereferenced type of the supplied reference for hashes and
+arrays, and coderefs.  Output of names will be avoided where possible if
+the C<Terse> flag is set.
+
+In many cases, methods that are used to set the internal state of the
+object will return the object itself, so method calls can be conveniently
+chained together.
+
+Several styles of output are possible, all controlled by setting
+the C<Indent> flag.  See L<Configuration Variables or Methods> below
+for details.
+
+
+=head2 Methods
+
+=over 4
+
+=item I<PACKAGE>->new(I<ARRAYREF [>, I<ARRAYREF]>)
+
+Returns a newly created C<Data::Dumper> object.  The first argument is an
+anonymous array of values to be dumped.  The optional second argument is an
+anonymous array of names for the values.  The names need not have a leading
+C<$> sign, and must be comprised of alphanumeric characters.  You can begin
+a name with a C<*> to specify that the dereferenced type must be dumped
+instead of the reference itself, for ARRAY and HASH references.
+
+The prefix specified by C<$Data::Dumper::Varname> will be used with a
+numeric suffix if the name for a value is undefined.
+
+Data::Dumper will catalog all references encountered while dumping the
+values. Cross-references (in the form of names of substructures in perl
+syntax) will be inserted at all possible points, preserving any structural
+interdependencies in the original set of values.  Structure traversal is
+depth-first,  and proceeds in order from the first supplied value to
+the last.
+
+=item I<$OBJ>->Dump  I<or>  I<PACKAGE>->Dump(I<ARRAYREF [>, I<ARRAYREF]>)
+
+Returns the stringified form of the values stored in the object (preserving
+the order in which they were supplied to C<new>), subject to the
+configuration options below.  In a list context, it returns a list
+of strings corresponding to the supplied values.
+
+The second form, for convenience, simply calls the C<new> method on its
+arguments before dumping the object immediately.
+
+=item I<$OBJ>->Seen(I<[HASHREF]>)
+
+Queries or adds to the internal table of already encountered references.
+You must use C<Reset> to explicitly clear the table if needed.  Such
+references are not dumped; instead, their names are inserted wherever they
+are encountered subsequently.  This is useful especially for properly
+dumping subroutine references.
+
+Expects an anonymous hash of name => value pairs.  Same rules apply for names
+as in C<new>.  If no argument is supplied, will return the "seen" list of
+name => value pairs, in a list context.  Otherwise, returns the object
+itself.
+
+=item I<$OBJ>->Values(I<[ARRAYREF]>)
+
+Queries or replaces the internal array of values that will be dumped.  When
+called without arguments, returns the values as a list.  When called with a
+reference to an array of replacement values, returns the object itself.  When
+called with any other type of argument, dies.
+
+=item I<$OBJ>->Names(I<[ARRAYREF]>)
+
+Queries or replaces the internal array of user supplied names for the values
+that will be dumped.  When called without arguments, returns the names.  When
+called with an array of replacement names, returns the object itself.  If the
+number of replacement names exceeds the number of values to be named, the
+excess names will not be used.  If the number of replacement names falls short
+of the number of values to be named, the list of replacement names will be
+exhausted and remaining values will not be renamed.  When
+called with any other type of argument, dies.
+
+=item I<$OBJ>->Reset
+
+Clears the internal table of "seen" references and returns the object
+itself.
+
+=back
+
+=head2 Functions
+
+=over 4
+
+=item Dumper(I<LIST>)
+
+Returns the stringified form of the values in the list, subject to the
+configuration options below.  The values will be named C<$VAR>I<n> in the
+output, where I<n> is a numeric suffix.  Will return a list of strings
+in a list context.
+
+=back
+
+=head2 Configuration Variables or Methods
+
+Several configuration variables can be used to control the kind of output
+generated when using the procedural interface.  These variables are usually
+C<local>ized in a block so that other parts of the code are not affected by
+the change.
+
+These variables determine the default state of the object created by calling
+the C<new> method, but cannot be used to alter the state of the object
+thereafter.  The equivalent method names should be used instead to query
+or set the internal state of the object.
+
+The method forms return the object itself when called with arguments,
+so that they can be chained together nicely.
+
+=over 4
+
+=item *
+
+$Data::Dumper::Indent  I<or>  I<$OBJ>->Indent(I<[NEWVAL]>)
+
+Controls the style of indentation.  It can be set to 0, 1, 2 or 3.  Style 0
+spews output without any newlines, indentation, or spaces between list
+items.  It is the most compact format possible that can still be called
+valid perl.  Style 1 outputs a readable form with newlines but no fancy
+indentation (each level in the structure is simply indented by a fixed
+amount of whitespace).  Style 2 (the default) outputs a very readable form
+which takes into account the length of hash keys (so the hash value lines
+up).  Style 3 is like style 2, but also annotates the elements of arrays
+with their index (but the comment is on its own line, so array output
+consumes twice the number of lines).  Style 2 is the default.
+
+=item *
+
+$Data::Dumper::Trailingcomma  I<or>  I<$OBJ>->Trailingcomma(I<[NEWVAL]>)
+
+Controls whether a comma is added after the last element of an array or
+hash. Even when true, no comma is added between the last element of an array
+or hash and a closing bracket when they appear on the same line. The default
+is false.
+
+=item *
+
+$Data::Dumper::Purity  I<or>  I<$OBJ>->Purity(I<[NEWVAL]>)
+
+Controls the degree to which the output can be C<eval>ed to recreate the
+supplied reference structures.  Setting it to 1 will output additional perl
+statements that will correctly recreate nested references.  The default is
+0.
+
+=item *
+
+$Data::Dumper::Pad  I<or>  I<$OBJ>->Pad(I<[NEWVAL]>)
+
+Specifies the string that will be prefixed to every line of the output.
+Empty string by default.
+
+=item *
+
+$Data::Dumper::Varname  I<or>  I<$OBJ>->Varname(I<[NEWVAL]>)
+
+Contains the prefix to use for tagging variable names in the output. The
+default is "VAR".
+
+=item *
+
+$Data::Dumper::Useqq  I<or>  I<$OBJ>->Useqq(I<[NEWVAL]>)
+
+When set, enables the use of double quotes for representing string values.
+Whitespace other than space will be represented as C<[\n\t\r]>, "unsafe"
+characters will be backslashed, and unprintable characters will be output as
+quoted octal integers.  The default is 0.
+
+=item *
+
+$Data::Dumper::Terse  I<or>  I<$OBJ>->Terse(I<[NEWVAL]>)
+
+When set, Data::Dumper will emit single, non-self-referential values as
+atoms/terms rather than statements.  This means that the C<$VAR>I<n> names
+will be avoided where possible, but be advised that such output may not
+always be parseable by C<eval>.
+
+=item *
+
+$Data::Dumper::Freezer  I<or>  $I<OBJ>->Freezer(I<[NEWVAL]>)
+
+Can be set to a method name, or to an empty string to disable the feature.
+Data::Dumper will invoke that method via the object before attempting to
+stringify it.  This method can alter the contents of the object (if, for
+instance, it contains data allocated from C), and even rebless it in a
+different package.  The client is responsible for making sure the specified
+method can be called via the object, and that the object ends up containing
+only perl data types after the method has been called.  Defaults to an empty
+string.
+
+If an object does not support the method specified (determined using
+UNIVERSAL::can()) then the call will be skipped.  If the method dies a
+warning will be generated.
+
+=item *
+
+$Data::Dumper::Toaster  I<or>  $I<OBJ>->Toaster(I<[NEWVAL]>)
+
+Can be set to a method name, or to an empty string to disable the feature.
+Data::Dumper will emit a method call for any objects that are to be dumped
+using the syntax C<bless(DATA, CLASS)-E<gt>METHOD()>.  Note that this means that
+the method specified will have to perform any modifications required on the
+object (like creating new state within it, and/or reblessing it in a
+different package) and then return it.  The client is responsible for making
+sure the method can be called via the object, and that it returns a valid
+object.  Defaults to an empty string.
+
+=item *
+
+$Data::Dumper::Deepcopy  I<or>  $I<OBJ>->Deepcopy(I<[NEWVAL]>)
+
+Can be set to a boolean value to enable deep copies of structures.
+Cross-referencing will then only be done when absolutely essential
+(i.e., to break reference cycles).  Default is 0.
+
+=item *
+
+$Data::Dumper::Quotekeys  I<or>  $I<OBJ>->Quotekeys(I<[NEWVAL]>)
+
+Can be set to a boolean value to control whether hash keys are quoted.
+A defined false value will avoid quoting hash keys when it looks like a simple
+string.  Default is 1, which will always enclose hash keys in quotes.
+
+=item *
+
+$Data::Dumper::Bless  I<or>  $I<OBJ>->Bless(I<[NEWVAL]>)
+
+Can be set to a string that specifies an alternative to the C<bless>
+builtin operator used to create objects.  A function with the specified
+name should exist, and should accept the same arguments as the builtin.
+Default is C<bless>.
+
+=item *
+
+$Data::Dumper::Pair  I<or>  $I<OBJ>->Pair(I<[NEWVAL]>)
+
+Can be set to a string that specifies the separator between hash keys
+and values. To dump nested hash, array and scalar values to JavaScript,
+use: C<$Data::Dumper::Pair = ' : ';>. Implementing C<bless> in JavaScript
+is left as an exercise for the reader.
+A function with the specified name exists, and accepts the same arguments
+as the builtin.
+
+Default is: C< =E<gt> >.
+
+=item *
+
+$Data::Dumper::Maxdepth  I<or>  $I<OBJ>->Maxdepth(I<[NEWVAL]>)
+
+Can be set to a positive integer that specifies the depth beyond which
+we don't venture into a structure.  Has no effect when
+C<Data::Dumper::Purity> is set.  (Useful in debugger when we often don't
+want to see more than enough).  Default is 0, which means there is
+no maximum depth.
+
+=item *
+
+$Data::Dumper::Maxrecurse  I<or>  $I<OBJ>->Maxrecurse(I<[NEWVAL]>)
+
+Can be set to a positive integer that specifies the depth beyond which
+recursion into a structure will throw an exception.  This is intended
+as a security measure to prevent perl running out of stack space when
+dumping an excessively deep structure.  Can be set to 0 to remove the
+limit.  Default is 1000.
+
+=item *
+
+$Data::Dumper::Useperl  I<or>  $I<OBJ>->Useperl(I<[NEWVAL]>)
+
+Can be set to a boolean value which controls whether the pure Perl
+implementation of C<Data::Dumper> is used. The C<Data::Dumper> module is
+a dual implementation, with almost all functionality written in both
+pure Perl and also in XS ('C'). Since the XS version is much faster, it
+will always be used if possible. This option lets you override the
+default behavior, usually for testing purposes only. Default is 0, which
+means the XS implementation will be used if possible.
+
+=item *
+
+$Data::Dumper::Sortkeys  I<or>  $I<OBJ>->Sortkeys(I<[NEWVAL]>)
+
+Can be set to a boolean value to control whether hash keys are dumped in
+sorted order. A true value will cause the keys of all hashes to be
+dumped in Perl's default sort order. Can also be set to a subroutine
+reference which will be called for each hash that is dumped. In this
+case C<Data::Dumper> will call the subroutine once for each hash,
+passing it the reference of the hash. The purpose of the subroutine is
+to return a reference to an array of the keys that will be dumped, in
+the order that they should be dumped. Using this feature, you can
+control both the order of the keys, and which keys are actually used. In
+other words, this subroutine acts as a filter by which you can exclude
+certain keys from being dumped. Default is 0, which means that hash keys
+are not sorted.
+
+=item *
+
+$Data::Dumper::Deparse  I<or>  $I<OBJ>->Deparse(I<[NEWVAL]>)
+
+Can be set to a boolean value to control whether code references are
+turned into perl source code. If set to a true value, C<B::Deparse>
+will be used to get the source of the code reference. Using this option
+will force using the Perl implementation of the dumper, since the fast
+XSUB implementation doesn't support it.
+
+Caution : use this option only if you know that your coderefs will be
+properly reconstructed by C<B::Deparse>.
+
+=item *
+
+$Data::Dumper::Sparseseen I<or>  $I<OBJ>->Sparseseen(I<[NEWVAL]>)
+
+By default, Data::Dumper builds up the "seen" hash of scalars that
+it has encountered during serialization. This is very expensive.
+This seen hash is necessary to support and even just detect circular
+references. It is exposed to the user via the C<Seen()> call both
+for writing and reading.
+
+If you, as a user, do not need explicit access to the "seen" hash,
+then you can set the C<Sparseseen> option to allow Data::Dumper
+to eschew building the "seen" hash for scalars that are known not
+to possess more than one reference. This speeds up serialization
+considerably if you use the XS implementation.
+
+Note: If you turn on C<Sparseseen>, then you must not rely on the
+content of the seen hash since its contents will be an
+implementation detail!
+
+=back
+
+=head2 Exports
+
+=over 4
+
+=item Dumper
+
+=back
+
+=head1 EXAMPLES
+
+Run these code snippets to get a quick feel for the behavior of this
+module.  When you are through with these examples, you may want to
+add or change the various configuration variables described above,
+to see their behavior.  (See the testsuite in the Data::Dumper
+distribution for more examples.)
+
+
+    use Data::Dumper;
+
+    package Foo;
+    sub new {bless {'a' => 1, 'b' => sub { return "foo" }}, $_[0]};
+
+    package Fuz;                       # a weird REF-REF-SCALAR object
+    sub new {bless \($_ = \ 'fu\'z'), $_[0]};
+
+    package main;
+    $foo = Foo->new;
+    $fuz = Fuz->new;
+    $boo = [ 1, [], "abcd", \*foo,
+             {1 => 'a', 023 => 'b', 0x45 => 'c'},
+             \\"p\q\'r", $foo, $fuz];
+
+    ########
+    # simple usage
+    ########
+
+    $bar = eval(Dumper($boo));
+    print($@) if $@;
+    print Dumper($boo), Dumper($bar);  # pretty print (no array indices)
+
+    $Data::Dumper::Terse = 1;        # don't output names where feasible
+    $Data::Dumper::Indent = 0;       # turn off all pretty print
+    print Dumper($boo), "\n";
+
+    $Data::Dumper::Indent = 1;       # mild pretty print
+    print Dumper($boo);
+
+    $Data::Dumper::Indent = 3;       # pretty print with array indices
+    print Dumper($boo);
+
+    $Data::Dumper::Useqq = 1;        # print strings in double quotes
+    print Dumper($boo);
+
+    $Data::Dumper::Pair = " : ";     # specify hash key/value separator
+    print Dumper($boo);
+
+
+    ########
+    # recursive structures
+    ########
+
+    @c = ('c');
+    $c = \@c;
+    $b = {};
+    $a = [1, $b, $c];
+    $b->{a} = $a;
+    $b->{b} = $a->[1];
+    $b->{c} = $a->[2];
+    print Data::Dumper->Dump([$a,$b,$c], [qw(a b c)]);
+
+
+    $Data::Dumper::Purity = 1;         # fill in the holes for eval
+    print Data::Dumper->Dump([$a, $b], [qw(*a b)]); # print as @a
+    print Data::Dumper->Dump([$b, $a], [qw(*b a)]); # print as %b
+
+
+    $Data::Dumper::Deepcopy = 1;       # avoid cross-refs
+    print Data::Dumper->Dump([$b, $a], [qw(*b a)]);
+
+
+    $Data::Dumper::Purity = 0;         # avoid cross-refs
+    print Data::Dumper->Dump([$b, $a], [qw(*b a)]);
+
+    ########
+    # deep structures
+    ########
+
+    $a = "pearl";
+    $b = [ $a ];
+    $c = { 'b' => $b };
+    $d = [ $c ];
+    $e = { 'd' => $d };
+    $f = { 'e' => $e };
+    print Data::Dumper->Dump([$f], [qw(f)]);
+
+    $Data::Dumper::Maxdepth = 3;       # no deeper than 3 refs down
+    print Data::Dumper->Dump([$f], [qw(f)]);
+
+
+    ########
+    # object-oriented usage
+    ########
+
+    $d = Data::Dumper->new([$a,$b], [qw(a b)]);
+    $d->Seen({'*c' => $c});            # stash a ref without printing it
+    $d->Indent(3);
+    print $d->Dump;
+    $d->Reset->Purity(0);              # empty the seen cache
+    print join "----\n", $d->Dump;
+
+
+    ########
+    # persistence
+    ########
+
+    package Foo;
+    sub new { bless { state => 'awake' }, shift }
+    sub Freeze {
+        my $s = shift;
+        print STDERR "preparing to sleep\n";
+        $s->{state} = 'asleep';
+        return bless $s, 'Foo::ZZZ';
+    }
+
+    package Foo::ZZZ;
+    sub Thaw {
+        my $s = shift;
+        print STDERR "waking up\n";
+        $s->{state} = 'awake';
+        return bless $s, 'Foo';
+    }
+
+    package main;
+    use Data::Dumper;
+    $a = Foo->new;
+    $b = Data::Dumper->new([$a], ['c']);
+    $b->Freezer('Freeze');
+    $b->Toaster('Thaw');
+    $c = $b->Dump;
+    print $c;
+    $d = eval $c;
+    print Data::Dumper->Dump([$d], ['d']);
+
+
+    ########
+    # symbol substitution (useful for recreating CODE refs)
+    ########
+
+    sub foo { print "foo speaking\n" }
+    *other = \&foo;
+    $bar = [ \&other ];
+    $d = Data::Dumper->new([\&other,$bar],['*other','bar']);
+    $d->Seen({ '*foo' => \&foo });
+    print $d->Dump;
+
+
+    ########
+    # sorting and filtering hash keys
+    ########
+
+    $Data::Dumper::Sortkeys = \&my_filter;
+    my $foo = { map { (ord, "$_$_$_") } 'I'..'Q' };
+    my $bar = { %$foo };
+    my $baz = { reverse %$foo };
+    print Dumper [ $foo, $bar, $baz ];
+
+    sub my_filter {
+        my ($hash) = @_;
+        # return an array ref containing the hash keys to dump
+        # in the order that you want them to be dumped
+        return [
+          # Sort the keys of %$foo in reverse numeric order
+            $hash eq $foo ? (sort {$b <=> $a} keys %$hash) :
+          # Only dump the odd number keys of %$bar
+            $hash eq $bar ? (grep {$_ % 2} keys %$hash) :
+          # Sort keys in default order for all other hashes
+            (sort keys %$hash)
+        ];
+    }
+
+=head1 BUGS
+
+Due to limitations of Perl subroutine call semantics, you cannot pass an
+array or hash.  Prepend it with a C<\> to pass its reference instead.  This
+will be remedied in time, now that Perl has subroutine prototypes.
+For now, you need to use the extended usage form, and prepend the
+name with a C<*> to output it as a hash or array.
+
+C<Data::Dumper> cheats with CODE references.  If a code reference is
+encountered in the structure being processed (and if you haven't set
+the C<Deparse> flag), an anonymous subroutine that
+contains the string '"DUMMY"' will be inserted in its place, and a warning
+will be printed if C<Purity> is set.  You can C<eval> the result, but bear
+in mind that the anonymous sub that gets created is just a placeholder.
+Someday, perl will have a switch to cache-on-demand the string
+representation of a compiled piece of code, I hope.  If you have prior
+knowledge of all the code refs that your data structures are likely
+to have, you can use the C<Seen> method to pre-seed the internal reference
+table and make the dumped output point to them, instead.  See L</EXAMPLES>
+above.
+
+The C<Deparse> flag makes Dump() run slower, since the XSUB
+implementation does not support it.
+
+SCALAR objects have the weirdest looking C<bless> workaround.
+
+Pure Perl version of C<Data::Dumper> escapes UTF-8 strings correctly
+only in Perl 5.8.0 and later.
+
+=head2 NOTE
+
+Starting from Perl 5.8.1 different runs of Perl will have different
+ordering of hash keys.  The change was done for greater security,
+see L<perlsec/"Algorithmic Complexity Attacks">.  This means that
+different runs of Perl will have different Data::Dumper outputs if
+the data contains hashes.  If you need to have identical Data::Dumper
+outputs from different runs of Perl, use the environment variable
+PERL_HASH_SEED, see L<perlrun/PERL_HASH_SEED>.  Using this restores
+the old (platform-specific) ordering: an even prettier solution might
+be to use the C<Sortkeys> filter of Data::Dumper.
+
+=head1 AUTHOR
+
+Gurusamy Sarathy        gsar@activestate.com
+
+Copyright (c) 1996-2014 Gurusamy Sarathy. All rights reserved.
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+=head1 VERSION
+
+Version 2.160  (January 12 2016)
+
+=head1 SEE ALSO
+
+perl(1)
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/Devel/PPPort.pm b/lib/5.24.1/x86_64-linux/Devel/PPPort.pm
new file mode 100644
index 00000000..47d69fd9
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/Devel/PPPort.pm
@@ -0,0 +1,9406 @@
+################################################################################
+#
+#  !!!!! Do NOT edit this file directly! -- Edit PPPort_pm.PL instead. !!!!!
+#
+#  This file was automatically generated from the definition files in the
+#  parts/inc/ subdirectory by PPPort_pm.PL. To learn more about how all this
+#  works, please read the F<HACKERS> file that came with this distribution.
+#
+################################################################################
+#
+#  Perl/Pollution/Portability
+#
+################################################################################
+#
+#  Version 3.x, Copyright (C) 2004-2013, Marcus Holland-Moritz.
+#  Version 2.x, Copyright (C) 2001, Paul Marquess.
+#  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
+#
+#  This program is free software; you can redistribute it and/or
+#  modify it under the same terms as Perl itself.
+#
+################################################################################
+
+=head1 NAME
+
+Devel::PPPort - Perl/Pollution/Portability
+
+=head1 SYNOPSIS
+
+    Devel::PPPort::WriteFile();   # defaults to ./ppport.h
+    Devel::PPPort::WriteFile('someheader.h');
+
+    # Same as above but retrieve contents rather than write file
+    my $contents = Devel::PPPort::GetFileContents();
+    my $contents = Devel::PPPort::GetFileContents('someheader.h');
+
+=head1 DESCRIPTION
+
+Perl's API has changed over time, gaining new features, new functions,
+increasing its flexibility, and reducing the impact on the C namespace
+environment (reduced pollution). The header file written by this module,
+typically F<ppport.h>, attempts to bring some of the newer Perl API
+features to older versions of Perl, so that you can worry less about
+keeping track of old releases, but users can still reap the benefit.
+
+C<Devel::PPPort> contains two functions, C<WriteFile> and C<GetFileContents>.
+C<WriteFile>'s only purpose is to write the F<ppport.h> C header file.
+This file contains a series of macros and, if explicitly requested, functions
+that allow XS modules to be built using older versions of Perl. Currently,
+Perl versions from 5.003 to 5.20 are supported.
+
+C<GetFileContents> can be used to retrieve the file contents rather than
+writing it out.
+
+This module is used by C<h2xs> to write the file F<ppport.h>.
+
+=head2 Why use ppport.h?
+
+You should use F<ppport.h> in modern code so that your code will work
+with the widest range of Perl interpreters possible, without significant
+additional work.
+
+You should attempt older code to fully use F<ppport.h>, because the
+reduced pollution of newer Perl versions is an important thing. It's so
+important that the old polluting ways of original Perl modules will not be
+supported very far into the future, and your module will almost certainly
+break! By adapting to it now, you'll gain compatibility and a sense of
+having done the electronic ecology some good.
+
+=head2 How to use ppport.h
+
+Don't direct the users of your module to download C<Devel::PPPort>.
+They are most probably no XS writers. Also, don't make F<ppport.h>
+optional. Rather, just take the most recent copy of F<ppport.h> that
+you can find (e.g. by generating it with the latest C<Devel::PPPort>
+release from CPAN), copy it into your project, adjust your project to
+use it, and distribute the header along with your module.
+
+=head2 Running ppport.h
+
+But F<ppport.h> is more than just a C header. It's also a Perl script
+that can check your source code. It will suggest hints and portability
+notes, and can even make suggestions on how to change your code. You
+can run it like any other Perl program:
+
+    perl ppport.h [options] [files]
+
+It also has embedded documentation, so you can use
+
+    perldoc ppport.h
+
+to find out more about how to use it.
+
+=head1 FUNCTIONS
+
+=head2 WriteFile
+
+C<WriteFile> takes one optional argument. When called with one
+argument, it expects to be passed a filename. When called with
+no arguments, it defaults to the filename F<ppport.h>.
+
+The function returns a true value if the file was written successfully.
+Otherwise it returns a false value.
+
+=head2 GetFileContents
+
+C<GetFileContents> behaves like C<WriteFile> above, but returns the contents
+of the would-be file rather than writing it out.
+
+=head1 COMPATIBILITY
+
+F<ppport.h> supports Perl versions from 5.003 to 5.20
+in threaded and non-threaded configurations.
+
+=head2 Provided Perl compatibility API
+
+The header file written by this module, typically F<ppport.h>, provides
+access to the following elements of the Perl API that is not available
+in older Perl releases:
+
+    _aMY_CXT
+    _pMY_CXT
+    aMY_CXT
+    aMY_CXT_
+    aTHX
+    aTHX_
+    aTHXR
+    aTHXR_
+    AvFILLp
+    boolSV
+    call_argv
+    call_method
+    call_pv
+    call_sv
+    caller_cx
+    ckWARN
+    CopFILE
+    CopFILE_set
+    CopFILEAV
+    CopFILEGV
+    CopFILEGV_set
+    CopFILESV
+    CopSTASH
+    CopSTASH_eq
+    CopSTASH_set
+    CopSTASHPV
+    CopSTASHPV_set
+    CopyD
+    CPERLscope
+    dAX
+    dAXMARK
+    DEFSV
+    DEFSV_set
+    dITEMS
+    dMY_CXT
+    dMY_CXT_SV
+    dNOOP
+    dTHR
+    dTHX
+    dTHXa
+    dTHXoa
+    dTHXR
+    dUNDERBAR
+    dVAR
+    dXCPT
+    dXSTARG
+    END_EXTERN_C
+    ERRSV
+    eval_pv
+    eval_sv
+    EXTERN_C
+    G_METHOD
+    get_av
+    get_cv
+    get_cvn_flags
+    get_cvs
+    get_hv
+    get_sv
+    grok_bin
+    grok_hex
+    grok_number
+    GROK_NUMERIC_RADIX
+    grok_numeric_radix
+    grok_oct
+    gv_fetchpvn_flags
+    gv_fetchpvs
+    gv_fetchsv
+    gv_stashpvn
+    gv_stashpvs
+    GvSVn
+    HEf_SVKEY
+    HeUTF8
+    hv_fetchs
+    hv_stores
+    HvNAME_get
+    HvNAMELEN_get
+    IN_LOCALE
+    IN_LOCALE_COMPILETIME
+    IN_LOCALE_RUNTIME
+    IN_PERL_COMPILETIME
+    INT2PTR
+    IS_NUMBER_GREATER_THAN_UV_MAX
+    IS_NUMBER_IN_UV
+    IS_NUMBER_INFINITY
+    IS_NUMBER_NAN
+    IS_NUMBER_NEG
+    IS_NUMBER_NOT_INT
+    isALNUMC
+    isASCII
+    isBLANK
+    isCNTRL
+    isGRAPH
+    isGV_with_GP
+    isPRINT
+    isPSXSPC
+    isPUNCT
+    isXDIGIT
+    IVdf
+    IVSIZE
+    IVTYPE
+    load_module
+    memEQ
+    memEQs
+    memNE
+    memNEs
+    mg_findext
+    MoveD
+    mPUSHi
+    mPUSHn
+    mPUSHp
+    mPUSHs
+    mPUSHu
+    MUTABLE_PTR
+    MUTABLE_SV
+    mXPUSHi
+    mXPUSHn
+    mXPUSHp
+    mXPUSHs
+    mXPUSHu
+    MY_CXT
+    MY_CXT_CLONE
+    MY_CXT_INIT
+    my_snprintf
+    my_sprintf
+    my_strlcat
+    my_strlcpy
+    newCONSTSUB
+    newRV_inc
+    newRV_noinc
+    newSV_type
+    newSVpvn
+    newSVpvn_flags
+    newSVpvn_share
+    newSVpvn_utf8
+    newSVpvs
+    newSVpvs_flags
+    newSVpvs_share
+    newSVuv
+    Newx
+    Newxc
+    Newxz
+    NOOP
+    NUM2PTR
+    NVef
+    NVff
+    NVgf
+    NVTYPE
+    packWARN
+    PERL_ABS
+    PERL_BCDVERSION
+    PERL_GCC_BRACE_GROUPS_FORBIDDEN
+    PERL_HASH
+    PERL_INT_MAX
+    PERL_INT_MIN
+    PERL_LONG_MAX
+    PERL_LONG_MIN
+    PERL_MAGIC_arylen
+    PERL_MAGIC_backref
+    PERL_MAGIC_bm
+    PERL_MAGIC_collxfrm
+    PERL_MAGIC_dbfile
+    PERL_MAGIC_dbline
+    PERL_MAGIC_defelem
+    PERL_MAGIC_env
+    PERL_MAGIC_envelem
+    PERL_MAGIC_ext
+    PERL_MAGIC_fm
+    PERL_MAGIC_glob
+    PERL_MAGIC_isa
+    PERL_MAGIC_isaelem
+    PERL_MAGIC_mutex
+    PERL_MAGIC_nkeys
+    PERL_MAGIC_overload
+    PERL_MAGIC_overload_elem
+    PERL_MAGIC_overload_table
+    PERL_MAGIC_pos
+    PERL_MAGIC_qr
+    PERL_MAGIC_regdata
+    PERL_MAGIC_regdatum
+    PERL_MAGIC_regex_global
+    PERL_MAGIC_shared
+    PERL_MAGIC_shared_scalar
+    PERL_MAGIC_sig
+    PERL_MAGIC_sigelem
+    PERL_MAGIC_substr
+    PERL_MAGIC_sv
+    PERL_MAGIC_taint
+    PERL_MAGIC_tied
+    PERL_MAGIC_tiedelem
+    PERL_MAGIC_tiedscalar
+    PERL_MAGIC_utf8
+    PERL_MAGIC_uvar
+    PERL_MAGIC_uvar_elem
+    PERL_MAGIC_vec
+    PERL_MAGIC_vstring
+    PERL_PV_ESCAPE_ALL
+    PERL_PV_ESCAPE_FIRSTCHAR
+    PERL_PV_ESCAPE_NOBACKSLASH
+    PERL_PV_ESCAPE_NOCLEAR
+    PERL_PV_ESCAPE_QUOTE
+    PERL_PV_ESCAPE_RE
+    PERL_PV_ESCAPE_UNI
+    PERL_PV_ESCAPE_UNI_DETECT
+    PERL_PV_PRETTY_DUMP
+    PERL_PV_PRETTY_ELLIPSES
+    PERL_PV_PRETTY_LTGT
+    PERL_PV_PRETTY_NOCLEAR
+    PERL_PV_PRETTY_QUOTE
+    PERL_PV_PRETTY_REGPROP
+    PERL_QUAD_MAX
+    PERL_QUAD_MIN
+    PERL_REVISION
+    PERL_SCAN_ALLOW_UNDERSCORES
+    PERL_SCAN_DISALLOW_PREFIX
+    PERL_SCAN_GREATER_THAN_UV_MAX
+    PERL_SCAN_SILENT_ILLDIGIT
+    PERL_SHORT_MAX
+    PERL_SHORT_MIN
+    PERL_SIGNALS_UNSAFE_FLAG
+    PERL_SUBVERSION
+    PERL_UCHAR_MAX
+    PERL_UCHAR_MIN
+    PERL_UINT_MAX
+    PERL_UINT_MIN
+    PERL_ULONG_MAX
+    PERL_ULONG_MIN
+    PERL_UNUSED_ARG
+    PERL_UNUSED_CONTEXT
+    PERL_UNUSED_DECL
+    PERL_UNUSED_VAR
+    PERL_UQUAD_MAX
+    PERL_UQUAD_MIN
+    PERL_USE_GCC_BRACE_GROUPS
+    PERL_USHORT_MAX
+    PERL_USHORT_MIN
+    PERL_VERSION
+    Perl_warner
+    Perl_warner_nocontext
+    PERLIO_FUNCS_CAST
+    PERLIO_FUNCS_DECL
+    PL_bufend
+    PL_bufptr
+    PL_compiling
+    PL_copline
+    PL_curcop
+    PL_curstash
+    PL_DBsignal
+    PL_DBsingle
+    PL_DBsub
+    PL_DBtrace
+    PL_debstash
+    PL_defgv
+    PL_diehook
+    PL_dirty
+    PL_dowarn
+    PL_errgv
+    PL_error_count
+    PL_expect
+    PL_hexdigit
+    PL_hints
+    PL_in_my
+    PL_in_my_stash
+    PL_laststatval
+    PL_lex_state
+    PL_lex_stuff
+    PL_linestr
+    PL_na
+    PL_no_modify
+    PL_parser
+    PL_perl_destruct_level
+    PL_perldb
+    PL_ppaddr
+    PL_rsfp
+    PL_rsfp_filters
+    PL_signals
+    PL_stack_base
+    PL_stack_sp
+    PL_statcache
+    PL_stdingv
+    PL_Sv
+    PL_sv_arenaroot
+    PL_sv_no
+    PL_sv_undef
+    PL_sv_yes
+    PL_tainted
+    PL_tainting
+    PL_tokenbuf
+    pMY_CXT
+    pMY_CXT_
+    Poison
+    PoisonFree
+    PoisonNew
+    PoisonWith
+    pTHX
+    pTHX_
+    PTR2IV
+    PTR2nat
+    PTR2NV
+    PTR2ul
+    PTR2UV
+    PTRV
+    PUSHmortal
+    PUSHu
+    pv_display
+    pv_escape
+    pv_pretty
+    SAVE_DEFSV
+    START_EXTERN_C
+    START_MY_CXT
+    STMT_END
+    STMT_START
+    STR_WITH_LEN
+    sv_2pv_flags
+    sv_2pv_nolen
+    sv_2pvbyte
+    sv_2pvbyte_nolen
+    sv_2uv
+    sv_catpv_mg
+    sv_catpvf_mg
+    sv_catpvf_mg_nocontext
+    sv_catpvn_mg
+    sv_catpvn_nomg
+    sv_catpvs
+    sv_catsv_mg
+    sv_catsv_nomg
+    SV_CONST_RETURN
+    SV_COW_DROP_PV
+    SV_COW_SHARED_HASH_KEYS
+    SV_GMAGIC
+    SV_HAS_TRAILING_NUL
+    SV_IMMEDIATE_UNREF
+    sv_magic_portable
+    SV_MUTABLE_RETURN
+    SV_NOSTEAL
+    sv_pvn_force_flags
+    sv_pvn_nomg
+    sv_setiv_mg
+    sv_setnv_mg
+    sv_setpv_mg
+    sv_setpvf_mg
+    sv_setpvf_mg_nocontext
+    sv_setpvn_mg
+    sv_setpvs
+    sv_setsv_mg
+    sv_setsv_nomg
+    sv_setuv
+    sv_setuv_mg
+    SV_SMAGIC
+    sv_unmagicext
+    sv_usepvn_mg
+    SV_UTF8_NO_ENCODING
+    sv_uv
+    sv_vcatpvf
+    sv_vcatpvf_mg
+    sv_vsetpvf
+    sv_vsetpvf_mg
+    SVf
+    SVf_UTF8
+    SVfARG
+    SvGETMAGIC
+    SvIV_nomg
+    SvMAGIC_set
+    SvPV_const
+    SvPV_flags
+    SvPV_flags_const
+    SvPV_flags_const_nolen
+    SvPV_flags_mutable
+    SvPV_force
+    SvPV_force_flags
+    SvPV_force_flags_mutable
+    SvPV_force_flags_nolen
+    SvPV_force_mutable
+    SvPV_force_nolen
+    SvPV_force_nomg
+    SvPV_force_nomg_nolen
+    SvPV_mutable
+    SvPV_nolen
+    SvPV_nolen_const
+    SvPV_nomg
+    SvPV_nomg_const
+    SvPV_nomg_const_nolen
+    SvPV_nomg_nolen
+    SvPV_renew
+    SvPVbyte
+    SvPVX_const
+    SvPVX_mutable
+    SvREFCNT_inc
+    SvREFCNT_inc_NN
+    SvREFCNT_inc_simple
+    SvREFCNT_inc_simple_NN
+    SvREFCNT_inc_simple_void
+    SvREFCNT_inc_simple_void_NN
+    SvREFCNT_inc_void
+    SvREFCNT_inc_void_NN
+    SvRV_set
+    SvSHARED_HASH
+    SvSTASH_set
+    SvUOK
+    SvUV
+    SvUV_nomg
+    SvUV_set
+    SvUVX
+    SvUVx
+    SvUVXx
+    SvVSTRING_mg
+    UNDERBAR
+    UTF8_MAXBYTES
+    UVof
+    UVSIZE
+    UVTYPE
+    UVuf
+    UVXf
+    UVxf
+    vload_module
+    vnewSVpvf
+    WARN_ALL
+    WARN_AMBIGUOUS
+    WARN_ASSERTIONS
+    WARN_BAREWORD
+    WARN_CLOSED
+    WARN_CLOSURE
+    WARN_DEBUGGING
+    WARN_DEPRECATED
+    WARN_DIGIT
+    WARN_EXEC
+    WARN_EXITING
+    WARN_GLOB
+    WARN_INPLACE
+    WARN_INTERNAL
+    WARN_IO
+    WARN_LAYER
+    WARN_MALLOC
+    WARN_MISC
+    WARN_NEWLINE
+    WARN_NUMERIC
+    WARN_ONCE
+    WARN_OVERFLOW
+    WARN_PACK
+    WARN_PARENTHESIS
+    WARN_PIPE
+    WARN_PORTABLE
+    WARN_PRECEDENCE
+    WARN_PRINTF
+    WARN_PROTOTYPE
+    WARN_QW
+    WARN_RECURSION
+    WARN_REDEFINE
+    WARN_REGEXP
+    WARN_RESERVED
+    WARN_SEMICOLON
+    WARN_SEVERE
+    WARN_SIGNAL
+    WARN_SUBSTR
+    WARN_SYNTAX
+    WARN_TAINT
+    WARN_THREADS
+    WARN_UNINITIALIZED
+    WARN_UNOPENED
+    WARN_UNPACK
+    WARN_UNTIE
+    WARN_UTF8
+    WARN_VOID
+    warner
+    WIDEST_UTYPE
+    XCPT_CATCH
+    XCPT_RETHROW
+    XCPT_TRY_END
+    XCPT_TRY_START
+    XPUSHmortal
+    XPUSHu
+    XSprePUSH
+    XSPROTO
+    XSRETURN
+    XSRETURN_UV
+    XST_mUV
+    ZeroD
+
+=head2 Perl API not supported by ppport.h
+
+There is still a big part of the API not supported by F<ppport.h>.
+Either because it doesn't make sense to back-port that part of the API,
+or simply because it hasn't been implemented yet. Patches welcome!
+
+Here's a list of the currently unsupported API, and also the version of
+Perl below which it is unsupported:
+
+=over 4
+
+=item perl 5.21.8
+
+  BhkDISABLE
+  BhkENABLE
+  BhkENTRY_set
+  MULTICALL
+  PERL_SYS_TERM
+  POP_MULTICALL
+  PUSH_MULTICALL
+  PadARRAY
+  PadMAX
+  PadlistARRAY
+  PadlistMAX
+  PadlistNAMES
+  PadlistNAMESARRAY
+  PadlistNAMESMAX
+  PadnameLEN
+  PadnamePV
+  PadnameREFCNT
+  PadnameREFCNT_dec
+  PadnameSV
+  PadnamelistARRAY
+  PadnamelistMAX
+  PadnamelistREFCNT
+  PadnamelistREFCNT_dec
+  XS_APIVERSION_BOOTCHECK
+  XS_EXTERNAL
+  XS_INTERNAL
+  XS_VERSION_BOOTCHECK
+  XopDISABLE
+  XopENABLE
+  XopENTRY
+  XopENTRYCUSTOM
+  XopENTRY_set
+  cophh_new_empty
+  my_lstat
+  my_stat
+  reentrant_free
+  reentrant_init
+  reentrant_retry
+  reentrant_size
+  ref
+  sv_get_backrefs
+  sv_setref_pvs
+
+=item perl 5.21.7
+
+  OpHAS_SIBLING
+  OpSIBLING
+  OpSIBLING_set
+  PadnameUTF8
+  is_invariant_string
+  newPADNAMELIST
+  newPADNAMEouter
+  newPADNAMEpvn
+  newUNOP_AUX
+  padnamelist_fetch
+  padnamelist_store
+
+=item perl 5.21.6
+
+  newDEFSVOP
+  op_convert_list
+
+=item perl 5.21.5
+
+  cv_name
+  newMETHOP
+  newMETHOP_named
+
+=item perl 5.21.4
+
+  cv_set_call_checker_flags
+  grok_infnan
+  isinfnan
+  sync_locale
+
+=item perl 5.21.2
+
+  grok_number_flags
+  op_parent
+  op_sibling_splice
+
+=item perl 5.21.1
+
+  _is_in_locale_category
+  _is_utf8_char_slow
+  _is_utf8_idcont
+  _is_utf8_idstart
+  _is_utf8_xidcont
+  _is_utf8_xidstart
+  isALNUM_lazy
+  isIDFIRST_lazy
+  isUTF8_CHAR
+  markstack_grow
+  my_strerror
+
+=item perl 5.19.10
+
+  OP_TYPE_IS_OR_WAS
+
+=item perl 5.19.9
+
+  _to_utf8_fold_flags
+  _to_utf8_lower_flags
+  _to_utf8_title_flags
+  _to_utf8_upper_flags
+
+=item perl 5.19.7
+
+  OP_TYPE_IS
+
+=item perl 5.19.4
+
+  append_utf8_from_native_byte
+  is_safe_syscall
+  uvoffuni_to_utf8_flags
+
+=item perl 5.19.3
+
+  croak_memory_wrap
+  sv_pos_b2u_flags
+
+=item perl 5.19.2
+
+  SVt_INVLIST
+
+=item perl 5.19.1
+
+  re_intuit_start
+  toFOLD
+  toFOLD_utf8
+  toLOWER_L1
+  toTITLE
+
+=item perl 5.18.0
+
+  hv_rand_set
+
+=item perl 5.17.9
+
+  av_tindex
+  av_top_index
+
+=item perl 5.17.8
+
+  _is_uni_FOO
+  _is_uni_perl_idcont
+  _is_utf8_FOO
+  _is_utf8_mark
+  _is_utf8_perl_idcont
+  isALPHANUMERIC
+  isIDCONT
+
+=item perl 5.17.7
+
+  SvREFCNT_dec_NN
+  _is_uni_perl_idstart
+  _is_utf8_perl_idstart
+  is_uni_alnumc
+  is_uni_alnumc_lc
+  is_utf8_alnumc
+
+=item perl 5.17.6
+
+  READ_XDIGIT
+
+=item perl 5.17.4
+
+  PL_comppad_name
+  PadlistREFCNT
+  newMYSUB
+  newSVpadname
+
+=item perl 5.17.2
+
+  is_uni_blank
+  is_uni_blank_lc
+  is_utf8_blank
+  sv_copypv_flags
+  sv_copypv_nomg
+  sv_vcatpvfn_flags
+
+=item perl 5.15.9
+
+  utf8_to_uvchr_buf
+  utf8_to_uvuni_buf
+  valid_utf8_to_uvchr
+  valid_utf8_to_uvuni
+
+=item perl 5.15.8
+
+  is_utf8_char_buf
+  wrap_op_checker
+
+=item perl 5.15.7
+
+  toLOWER_utf8
+  toTITLE_utf8
+  toUPPER_utf8
+  to_utf8_fold
+  to_utf8_lower
+  to_utf8_title
+  to_utf8_upper
+
+=item perl 5.15.6
+
+  newCONSTSUB_flags
+
+=item perl 5.15.4
+
+  HvENAMELEN
+  HvENAMEUTF8
+  HvNAMELEN
+  HvNAMEUTF8
+  gv_autoload_pv
+  gv_autoload_pvn
+  gv_autoload_sv
+  gv_fetchmeth_pv
+  gv_fetchmeth_pv_autoload
+  gv_fetchmeth_pvn
+  gv_fetchmeth_pvn_autoload
+  gv_fetchmeth_sv
+  gv_fetchmeth_sv_autoload
+  gv_fetchmethod_pv_flags
+  gv_fetchmethod_pvn_flags
+  gv_fetchmethod_sv_flags
+  gv_init_pv
+  gv_init_pvn
+  gv_init_sv
+  newGVgen_flags
+  sv_derived_from_pv
+  sv_derived_from_pvn
+  sv_derived_from_sv
+  sv_does_pv
+  sv_does_pvn
+  sv_does_sv
+  whichsig_pv
+  whichsig_pvn
+  whichsig_sv
+
+=item perl 5.15.1
+
+  cop_fetch_label
+  cop_store_label
+  pad_add_name_pv
+  pad_add_name_pvn
+  pad_add_name_pvs
+  pad_add_name_sv
+  pad_findmy_pv
+  pad_findmy_pvn
+  pad_findmy_pvs
+  pad_findmy_sv
+
+=item perl 5.14.0
+
+  _to_uni_fold_flags
+
+=item perl 5.13.10
+
+  foldEQ_utf8_flags
+  is_utf8_xidcont
+  is_utf8_xidfirst
+
+=item perl 5.13.8
+
+  foldEQ_latin1
+  parse_arithexpr
+  parse_fullexpr
+  parse_listexpr
+  parse_termexpr
+
+=item perl 5.13.7
+
+  HvENAME
+  OP_CLASS
+  XopFLAGS
+  amagic_deref_call
+  bytes_cmp_utf8
+  cop_hints_2hv
+  cop_hints_fetch_pv
+  cop_hints_fetch_pvn
+  cop_hints_fetch_pvs
+  cop_hints_fetch_sv
+  cophh_2hv
+  cophh_copy
+  cophh_delete_pv
+  cophh_delete_pvn
+  cophh_delete_pvs
+  cophh_delete_sv
+  cophh_fetch_pv
+  cophh_fetch_pvn
+  cophh_fetch_pvs
+  cophh_fetch_sv
+  cophh_free
+  cophh_store_pv
+  cophh_store_pvn
+  cophh_store_pvs
+  cophh_store_sv
+  custom_op_register
+  custom_op_xop
+  newFOROP
+  newWHILEOP
+  op_lvalue
+  op_scope
+  parse_barestmt
+  parse_block
+  parse_label
+
+=item perl 5.13.6
+
+  LINKLIST
+  SvTRUE_nomg
+  ck_entersub_args_list
+  ck_entersub_args_proto
+  ck_entersub_args_proto_or_list
+  cv_get_call_checker
+  cv_set_call_checker
+  isWORDCHAR
+  lex_stuff_pv
+  mg_free_type
+  newSVpv_share
+  op_append_elem
+  op_append_list
+  op_contextualize
+  op_linklist
+  op_prepend_elem
+  parse_stmtseq
+  rv2cv_op_cv
+  savesharedpvs
+  savesharedsvpv
+  sv_2bool_flags
+  sv_catpv_flags
+  sv_catpv_nomg
+  sv_catpvs_flags
+  sv_catpvs_mg
+  sv_catpvs_nomg
+  sv_cmp_flags
+  sv_cmp_locale_flags
+  sv_collxfrm_flags
+  sv_eq_flags
+  sv_setpvs_mg
+
+=item perl 5.13.5
+
+  PL_rpeepp
+  isOCTAL
+  lex_stuff_pvs
+  parse_fullstmt
+
+=item perl 5.13.3
+
+  blockhook_register
+  croak_no_modify
+
+=item perl 5.13.2
+
+  SvNV_nomg
+  find_rundefsv
+  foldEQ
+  foldEQ_locale
+  foldEQ_utf8
+  hv_fill
+  sv_dec_nomg
+  sv_inc_nomg
+
+=item perl 5.13.1
+
+  croak_sv
+  die_sv
+  mess_sv
+  sv_2nv_flags
+  warn_sv
+
+=item perl 5.11.5
+
+  sv_pos_u2b_flags
+
+=item perl 5.11.4
+
+  prescan_version
+
+=item perl 5.11.2
+
+  PL_keyword_plugin
+  lex_bufutf8
+  lex_discard_to
+  lex_grow_linestr
+  lex_next_chunk
+  lex_peek_unichar
+  lex_read_space
+  lex_read_to
+  lex_read_unichar
+  lex_stuff_pvn
+  lex_stuff_sv
+  lex_unstuff
+
+=item perl 5.11.1
+
+  ck_warner
+  ck_warner_d
+  is_utf8_perl_space
+  is_utf8_perl_word
+  is_utf8_posix_digit
+
+=item perl 5.11.0
+
+  Gv_AMupdate
+  PL_opfreehook
+  SVt_REGEXP
+  SvOOK_offset
+  av_iter_p
+  gv_add_by_type
+  is_ascii_string
+  pregfree2
+  save_adelete
+  save_aelem_flags
+  save_hdelete
+  save_helem_flags
+  sv_utf8_upgrade_flags_grow
+
+=item perl 5.10.1
+
+  croak_xs_usage
+  mro_get_from_name
+  mro_get_private_data
+  mro_register
+  mro_set_mro
+  mro_set_private_data
+  save_hints
+  save_padsv_and_mortalize
+  save_pushi32ptr
+  save_pushptr
+  save_pushptrptr
+  sv_insert_flags
+
+=item perl 5.10.0
+
+  hv_common
+  hv_common_key_len
+  sv_destroyable
+  sys_init
+  sys_init3
+  sys_term
+
+=item perl 5.9.5
+
+  Perl_signbit
+  SvRX
+  SvRXOK
+  av_create_and_push
+  av_create_and_unshift_one
+  gv_fetchfile_flags
+  lex_start
+  mro_get_linear_isa
+  mro_method_changed_in
+  my_dirfd
+  pregcomp
+  ptr_table_clear
+  ptr_table_fetch
+  ptr_table_free
+  ptr_table_new
+  ptr_table_split
+  ptr_table_store
+  re_compile
+  reg_named_buff_all
+  reg_named_buff_exists
+  reg_named_buff_fetch
+  reg_named_buff_firstkey
+  reg_named_buff_nextkey
+  reg_named_buff_scalar
+  regfree_internal
+  savesharedpvn
+  scan_vstring
+  upg_version
+
+=item perl 5.9.4
+
+  PerlIO_context_layers
+  gv_name_set
+  hv_copy_hints_hv
+  my_vsnprintf
+  newXS_flags
+  regclass_swash
+  sv_does
+  sv_usepvn_flags
+
+=item perl 5.9.3
+
+  av_arylen_p
+  ckwarn
+  ckwarn_d
+  csighandler
+  dMULTICALL
+  doref
+  gv_const_sv
+  hv_eiter_p
+  hv_eiter_set
+  hv_name_set
+  hv_placeholders_get
+  hv_placeholders_set
+  hv_riter_p
+  hv_riter_set
+  is_utf8_string_loclen
+  newGIVENOP
+  newSVhek
+  newWHENOP
+  pad_compname_type
+  savepvs
+  sortsv_flags
+  vverify
+
+=item perl 5.9.2
+
+  SvPVbyte_force
+  find_rundefsvoffset
+  op_refcnt_lock
+  op_refcnt_unlock
+  savesvpv
+  vnormal
+
+=item perl 5.9.1
+
+  hv_clear_placeholders
+  hv_scalar
+  scan_version
+  sv_2iv_flags
+  sv_2uv_flags
+
+=item perl 5.9.0
+
+  new_version
+  save_set_svflags
+  vcmp
+  vnumify
+  vstringify
+
+=item perl 5.8.3
+
+  SvIsCOW
+  SvIsCOW_shared_hash
+
+=item perl 5.8.1
+
+  CvPADLIST
+  PL_comppad
+  SvVOK
+  doing_taint
+  find_runcv
+  is_utf8_string_loc
+  packlist
+  pad_add_anon
+  pad_new
+  pad_tidy
+  save_bool
+  savestack_grow_cnt
+  seed
+  sv_cat_decode
+  sv_setpviv
+  sv_setpviv_mg
+  unpackstring
+
+=item perl 5.8.0
+
+  HeUTF8
+  hv_iternext_flags
+  hv_store_flags
+  is_utf8_idcont
+  nothreadhook
+
+=item perl 5.7.3
+
+  OP_DESC
+  OP_NAME
+  PL_peepp
+  PerlIO_clearerr
+  PerlIO_close
+  PerlIO_eof
+  PerlIO_error
+  PerlIO_fileno
+  PerlIO_fill
+  PerlIO_flush
+  PerlIO_get_base
+  PerlIO_get_bufsiz
+  PerlIO_get_cnt
+  PerlIO_get_ptr
+  PerlIO_read
+  PerlIO_seek
+  PerlIO_set_cnt
+  PerlIO_set_ptrcnt
+  PerlIO_setlinebuf
+  PerlIO_stderr
+  PerlIO_stdin
+  PerlIO_stdout
+  PerlIO_tell
+  PerlIO_unread
+  PerlIO_write
+  SvLOCK
+  SvSHARE
+  SvUNLOCK
+  atfork_lock
+  atfork_unlock
+  custom_op_desc
+  custom_op_name
+  deb
+  debstack
+  debstackptrs
+  gv_fetchmeth_autoload
+  ibcmp_utf8
+  my_fork
+  my_socketpair
+  pack_cat
+  perl_destruct
+  pv_uni_display
+  save_shared_pvref
+  savesharedpv
+  sortsv
+  sv_magicext
+  sv_nolocking
+  sv_nosharing
+  sv_recode_to_utf8
+  sv_uni_display
+  toFOLD_uni
+  toLOWER_uni
+  toTITLE_uni
+  toUPPER_uni
+  to_uni_fold
+  to_uni_lower
+  to_uni_title
+  to_uni_upper
+  to_utf8_case
+  unpack_str
+  uvchr_to_utf8_flags
+  uvuni_to_utf8_flags
+  vdeb
+
+=item perl 5.7.2
+
+  calloc
+  getcwd_sv
+  init_tm
+  malloc
+  mfree
+  mini_mktime
+  my_atof2
+  my_strftime
+  op_null
+  realloc
+  sv_catpvn_flags
+  sv_catsv_flags
+  sv_setsv_flags
+  sv_utf8_upgrade_flags
+  sv_utf8_upgrade_nomg
+  swash_fetch
+
+=item perl 5.7.1
+
+  ASCII_TO_NEED
+  NATIVE_TO_NEED
+  POPpbytex
+  bytes_from_utf8
+  despatch_signals
+  do_openn
+  gv_handler
+  is_lvalue_sub
+  my_popen_list
+  save_mortalizesv
+  scan_num
+  sv_force_normal_flags
+  sv_setref_uv
+  sv_unref_flags
+  sv_utf8_upgrade
+  utf8_length
+  utf8_to_uvchr
+  utf8_to_uvuni
+  utf8n_to_uvchr
+  utf8n_to_uvuni
+  uvchr_to_utf8
+  uvuni_to_utf8
+
+=item perl 5.6.1
+
+  SvGAMAGIC
+  apply_attrs_string
+  bytes_to_utf8
+  gv_efullname4
+  gv_fullname4
+  is_utf8_string
+  save_generic_pvref
+  utf16_to_utf8
+  utf16_to_utf8_reversed
+  utf8_to_bytes
+
+=item perl 5.6.0
+
+  PERL_SYS_INIT3
+  PL_check
+  SvIOK_UV
+  SvIOK_notUV
+  SvIOK_only_UV
+  SvPOK_only_UTF8
+  SvPVbyte_nolen
+  SvPVbytex
+  SvPVbytex_force
+  SvPVutf8
+  SvPVutf8_force
+  SvPVutf8_nolen
+  SvPVutf8x
+  SvPVutf8x_force
+  SvUOK
+  SvUTF8
+  SvUTF8_off
+  SvUTF8_on
+  av_delete
+  av_exists
+  call_atexit
+  caller_cx
+  cast_i32
+  cast_iv
+  cast_ulong
+  cast_uv
+  do_gv_dump
+  do_gvgv_dump
+  do_hv_dump
+  do_magic_dump
+  do_op_dump
+  do_open9
+  do_pmop_dump
+  do_sv_dump
+  dump_all
+  dump_eval
+  dump_form
+  dump_indent
+  dump_packsubs
+  dump_sub
+  dump_vindent
+  get_context
+  get_ppaddr
+  gv_dump
+  init_i18nl10n
+  init_i18nl14n
+  is_uni_alnum
+  is_uni_alnum_lc
+  is_uni_alpha
+  is_uni_alpha_lc
+  is_uni_ascii
+  is_uni_ascii_lc
+  is_uni_cntrl
+  is_uni_cntrl_lc
+  is_uni_digit
+  is_uni_digit_lc
+  is_uni_graph
+  is_uni_graph_lc
+  is_uni_idfirst
+  is_uni_idfirst_lc
+  is_uni_lower
+  is_uni_lower_lc
+  is_uni_print
+  is_uni_print_lc
+  is_uni_punct
+  is_uni_punct_lc
+  is_uni_space
+  is_uni_space_lc
+  is_uni_upper
+  is_uni_upper_lc
+  is_uni_xdigit
+  is_uni_xdigit_lc
+  is_utf8_alnum
+  is_utf8_alpha
+  is_utf8_ascii
+  is_utf8_char
+  is_utf8_cntrl
+  is_utf8_digit
+  is_utf8_graph
+  is_utf8_idfirst
+  is_utf8_lower
+  is_utf8_mark
+  is_utf8_print
+  is_utf8_punct
+  is_utf8_space
+  is_utf8_upper
+  is_utf8_xdigit
+  magic_dump
+  mess
+  my_atof
+  my_fflush_all
+  newANONATTRSUB
+  newATTRSUB
+  newXS
+  newXSproto
+  new_collate
+  new_ctype
+  new_numeric
+  op_dump
+  perl_parse
+  pmop_dump
+  re_intuit_string
+  reginitcolors
+  require_pv
+  safesyscalloc
+  safesysfree
+  safesysmalloc
+  safesysrealloc
+  save_I8
+  save_alloc
+  save_destructor
+  save_destructor_x
+  save_re_context
+  save_vptr
+  scan_bin
+  set_context
+  set_numeric_local
+  set_numeric_radix
+  set_numeric_standard
+  str_to_version
+  sv_2pvutf8
+  sv_2pvutf8_nolen
+  sv_force_normal
+  sv_len_utf8
+  sv_pos_b2u
+  sv_pos_u2b
+  sv_pv
+  sv_pvbyte
+  sv_pvbyten
+  sv_pvbyten_force
+  sv_pvutf8
+  sv_pvutf8n
+  sv_pvutf8n_force
+  sv_rvweaken
+  sv_utf8_decode
+  sv_utf8_downgrade
+  sv_utf8_encode
+  swash_init
+  to_uni_lower_lc
+  to_uni_title_lc
+  to_uni_upper_lc
+  utf8_distance
+  utf8_hop
+  vcroak
+  vform
+  vmess
+  vwarn
+  vwarner
+
+=item perl 5.005_03
+
+  POPpx
+  get_vtbl
+  save_generic_svref
+
+=item perl 5.005
+
+  PL_curpad
+  PL_modglobal
+  cx_dump
+  debop
+  debprofdump
+  fbm_compile
+  fbm_instr
+  get_op_descs
+  get_op_names
+  init_stacks
+  mg_length
+  mg_size
+  newHVhv
+  new_stackinfo
+  regdump
+  regexec_flags
+  regnext
+  runops_debug
+  runops_standard
+  save_iv
+  save_op
+  sv_iv
+  sv_nv
+  sv_peek
+  sv_pvn
+  sv_pvn_nomg
+  sv_true
+
+=item perl 5.004_05
+
+  CopyD
+  MoveD
+  do_binmode
+  save_aelem
+  save_helem
+
+=item perl 5.004
+
+  GIMME_V
+  G_VOID
+  HePV
+  HeSVKEY_set
+  SvSetMagicSV
+  SvSetMagicSV_nosteal
+  SvSetSV_nosteal
+  SvTAINTED
+  SvTAINTED_off
+  SvTAINTED_on
+  block_end
+  block_gimme
+  block_start
+  call_list
+  delimcpy
+  form
+  gv_autoload4
+  gv_fetchmethod_autoload
+  hv_delayfree_ent
+  hv_free_ent
+  ibcmp_locale
+  intro_my
+  my_failure_exit
+  newSVpvf
+  rsignal
+  rsignal_state
+  save_I16
+  save_gp
+  share_hek
+  start_subparse
+  sv_catpvf
+  sv_catpvf_mg
+  sv_cmp_locale
+  sv_derived_from
+  sv_magic_portable
+  sv_setpvf
+  sv_setpvf_mg
+  sv_taint
+  sv_tainted
+  sv_untaint
+  sv_vcatpvf
+  sv_vcatpvf_mg
+  sv_vcatpvfn
+  sv_vsetpvf
+  sv_vsetpvf_mg
+  sv_vsetpvfn
+  toLOWER_LC
+  vnewSVpvf
+  warner
+
+=item perl 5.003_07
+
+  HeHASH
+  HeKEY
+  HeKLEN
+  HeSVKEY
+  HeSVKEY_force
+  HeVAL
+  cv_const_sv
+  do_open
+  gv_efullname3
+  gv_fullname3
+  hv_delete_ent
+  hv_exists_ent
+  hv_fetch_ent
+  hv_iterkeysv
+  hv_ksplit
+  hv_store_ent
+  my_pclose
+  my_popen
+  sv_gets
+  unsharepvn
+
+=back
+
+=head1 BUGS
+
+If you find any bugs, C<Devel::PPPort> doesn't seem to build on your
+system, or any of its tests fail, please file an issue here:
+L<https://github.com/mhx/Devel-PPPort/issues/>
+
+=head1 AUTHORS
+
+=over 2
+
+=item *
+
+Version 1.x of Devel::PPPort was written by Kenneth Albanowski.
+
+=item *
+
+Version 2.x was ported to the Perl core by Paul Marquess.
+
+=item *
+
+Version 3.x was ported back to CPAN by Marcus Holland-Moritz.
+
+=item * 
+
+Versions >= 3.22 are maintained with support from Matthew Horsfall (alh).
+
+=back
+
+=head1 COPYRIGHT
+
+Version 3.x, Copyright (C) 2004-2013, Marcus Holland-Moritz.
+
+Version 2.x, Copyright (C) 2001, Paul Marquess.
+
+Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
+
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+=head1 SEE ALSO
+
+See L<h2xs>, L<ppport.h>.
+
+=cut
+
+package Devel::PPPort;
+
+use strict;
+use vars qw($VERSION $data);
+
+$VERSION = '3.32';
+
+sub _init_data
+{
+  $data = do { local $/; <DATA> };
+  my $pkg = 'Devel::PPPort';
+  $data =~ s/__PERL_VERSION__/$]/g;
+  $data =~ s/__VERSION__/$VERSION/g;
+  $data =~ s/__PKG__/$pkg/g;
+  $data =~ s/^\|>//gm;
+}
+
+sub GetFileContents {
+  my $file = shift || 'ppport.h';
+  defined $data or _init_data();
+  my $copy = $data;
+  $copy =~ s/\bppport\.h\b/$file/g;
+
+  return $copy;
+}
+
+sub WriteFile
+{
+  my $file = shift || 'ppport.h';
+  my $data = GetFileContents($file);
+  open F, ">$file" or return undef;
+  print F $data;
+  close F;
+
+  return 1;
+}
+
+1;
+
+__DATA__
+#if 0
+<<'SKIP';
+#endif
+/*
+----------------------------------------------------------------------
+
+    ppport.h -- Perl/Pollution/Portability Version __VERSION__
+
+    Automatically created by __PKG__ running under perl __PERL_VERSION__.
+
+    Do NOT edit this file directly! -- Edit PPPort_pm.PL and the
+    includes in parts/inc/ instead.
+
+    Use 'perldoc ppport.h' to view the documentation below.
+
+----------------------------------------------------------------------
+
+SKIP
+
+|>=pod
+|>
+|>=head1 NAME
+|>
+|>ppport.h - Perl/Pollution/Portability version __VERSION__
+|>
+|>=head1 SYNOPSIS
+|>
+|>  perl ppport.h [options] [source files]
+|>
+|>  Searches current directory for files if no [source files] are given
+|>
+|>  --help                      show short help
+|>
+|>  --version                   show version
+|>
+|>  --patch=file                write one patch file with changes
+|>  --copy=suffix               write changed copies with suffix
+|>  --diff=program              use diff program and options
+|>
+|>  --compat-version=version    provide compatibility with Perl version
+|>  --cplusplus                 accept C++ comments
+|>
+|>  --quiet                     don't output anything except fatal errors
+|>  --nodiag                    don't show diagnostics
+|>  --nohints                   don't show hints
+|>  --nochanges                 don't suggest changes
+|>  --nofilter                  don't filter input files
+|>
+|>  --strip                     strip all script and doc functionality from
+|>                              ppport.h
+|>
+|>  --list-provided             list provided API
+|>  --list-unsupported          list unsupported API
+|>  --api-info=name             show Perl API portability information
+|>
+|>=head1 COMPATIBILITY
+|>
+|>This version of F<ppport.h> is designed to support operation with Perl
+|>installations back to 5.003, and has been tested up to 5.20.
+|>
+|>=head1 OPTIONS
+|>
+|>=head2 --help
+|>
+|>Display a brief usage summary.
+|>
+|>=head2 --version
+|>
+|>Display the version of F<ppport.h>.
+|>
+|>=head2 --patch=I<file>
+|>
+|>If this option is given, a single patch file will be created if
+|>any changes are suggested. This requires a working diff program
+|>to be installed on your system.
+|>
+|>=head2 --copy=I<suffix>
+|>
+|>If this option is given, a copy of each file will be saved with
+|>the given suffix that contains the suggested changes. This does
+|>not require any external programs. Note that this does not
+|>automagically add a dot between the original filename and the
+|>suffix. If you want the dot, you have to include it in the option
+|>argument.
+|>
+|>If neither C<--patch> or C<--copy> are given, the default is to
+|>simply print the diffs for each file. This requires either
+|>C<Text::Diff> or a C<diff> program to be installed.
+|>
+|>=head2 --diff=I<program>
+|>
+|>Manually set the diff program and options to use. The default
+|>is to use C<Text::Diff>, when installed, and output unified
+|>context diffs.
+|>
+|>=head2 --compat-version=I<version>
+|>
+|>Tell F<ppport.h> to check for compatibility with the given
+|>Perl version. The default is to check for compatibility with Perl
+|>version 5.003. You can use this option to reduce the output
+|>of F<ppport.h> if you intend to be backward compatible only
+|>down to a certain Perl version.
+|>
+|>=head2 --cplusplus
+|>
+|>Usually, F<ppport.h> will detect C++ style comments and
+|>replace them with C style comments for portability reasons.
+|>Using this option instructs F<ppport.h> to leave C++
+|>comments untouched.
+|>
+|>=head2 --quiet
+|>
+|>Be quiet. Don't print anything except fatal errors.
+|>
+|>=head2 --nodiag
+|>
+|>Don't output any diagnostic messages. Only portability
+|>alerts will be printed.
+|>
+|>=head2 --nohints
+|>
+|>Don't output any hints. Hints often contain useful portability
+|>notes. Warnings will still be displayed.
+|>
+|>=head2 --nochanges
+|>
+|>Don't suggest any changes. Only give diagnostic output and hints
+|>unless these are also deactivated.
+|>
+|>=head2 --nofilter
+|>
+|>Don't filter the list of input files. By default, files not looking
+|>like source code (i.e. not *.xs, *.c, *.cc, *.cpp or *.h) are skipped.
+|>
+|>=head2 --strip
+|>
+|>Strip all script and documentation functionality from F<ppport.h>.
+|>This reduces the size of F<ppport.h> dramatically and may be useful
+|>if you want to include F<ppport.h> in smaller modules without
+|>increasing their distribution size too much.
+|>
+|>The stripped F<ppport.h> will have a C<--unstrip> option that allows
+|>you to undo the stripping, but only if an appropriate C<Devel::PPPort>
+|>module is installed.
+|>
+|>=head2 --list-provided
+|>
+|>Lists the API elements for which compatibility is provided by
+|>F<ppport.h>. Also lists if it must be explicitly requested,
+|>if it has dependencies, and if there are hints or warnings for it.
+|>
+|>=head2 --list-unsupported
+|>
+|>Lists the API elements that are known not to be supported by
+|>F<ppport.h> and below which version of Perl they probably
+|>won't be available or work.
+|>
+|>=head2 --api-info=I<name>
+|>
+|>Show portability information for API elements matching I<name>.
+|>If I<name> is surrounded by slashes, it is interpreted as a regular
+|>expression.
+|>
+|>=head1 DESCRIPTION
+|>
+|>In order for a Perl extension (XS) module to be as portable as possible
+|>across differing versions of Perl itself, certain steps need to be taken.
+|>
+|>=over 4
+|>
+|>=item *
+|>
+|>Including this header is the first major one. This alone will give you
+|>access to a large part of the Perl API that hasn't been available in
+|>earlier Perl releases. Use
+|>
+|>    perl ppport.h --list-provided
+|>
+|>to see which API elements are provided by ppport.h.
+|>
+|>=item *
+|>
+|>You should avoid using deprecated parts of the API. For example, using
+|>global Perl variables without the C<PL_> prefix is deprecated. Also,
+|>some API functions used to have a C<perl_> prefix. Using this form is
+|>also deprecated. You can safely use the supported API, as F<ppport.h>
+|>will provide wrappers for older Perl versions.
+|>
+|>=item *
+|>
+|>If you use one of a few functions or variables that were not present in
+|>earlier versions of Perl, and that can't be provided using a macro, you
+|>have to explicitly request support for these functions by adding one or
+|>more C<#define>s in your source code before the inclusion of F<ppport.h>.
+|>
+|>These functions or variables will be marked C<explicit> in the list shown
+|>by C<--list-provided>.
+|>
+|>Depending on whether you module has a single or multiple files that
+|>use such functions or variables, you want either C<static> or global
+|>variants.
+|>
+|>For a C<static> function or variable (used only in a single source
+|>file), use:
+|>
+|>    #define NEED_function
+|>    #define NEED_variable
+|>
+|>For a global function or variable (used in multiple source files),
+|>use:
+|>
+|>    #define NEED_function_GLOBAL
+|>    #define NEED_variable_GLOBAL
+|>
+|>Note that you mustn't have more than one global request for the
+|>same function or variable in your project.
+|>
+|>    Function / Variable       Static Request               Global Request
+|>    -----------------------------------------------------------------------------------------
+|>    PL_parser                 NEED_PL_parser               NEED_PL_parser_GLOBAL
+|>    PL_signals                NEED_PL_signals              NEED_PL_signals_GLOBAL
+|>    caller_cx()               NEED_caller_cx               NEED_caller_cx_GLOBAL
+|>    eval_pv()                 NEED_eval_pv                 NEED_eval_pv_GLOBAL
+|>    grok_bin()                NEED_grok_bin                NEED_grok_bin_GLOBAL
+|>    grok_hex()                NEED_grok_hex                NEED_grok_hex_GLOBAL
+|>    grok_number()             NEED_grok_number             NEED_grok_number_GLOBAL
+|>    grok_numeric_radix()      NEED_grok_numeric_radix      NEED_grok_numeric_radix_GLOBAL
+|>    grok_oct()                NEED_grok_oct                NEED_grok_oct_GLOBAL
+|>    load_module()             NEED_load_module             NEED_load_module_GLOBAL
+|>    mg_findext()              NEED_mg_findext              NEED_mg_findext_GLOBAL
+|>    my_snprintf()             NEED_my_snprintf             NEED_my_snprintf_GLOBAL
+|>    my_sprintf()              NEED_my_sprintf              NEED_my_sprintf_GLOBAL
+|>    my_strlcat()              NEED_my_strlcat              NEED_my_strlcat_GLOBAL
+|>    my_strlcpy()              NEED_my_strlcpy              NEED_my_strlcpy_GLOBAL
+|>    newCONSTSUB()             NEED_newCONSTSUB             NEED_newCONSTSUB_GLOBAL
+|>    newRV_noinc()             NEED_newRV_noinc             NEED_newRV_noinc_GLOBAL
+|>    newSV_type()              NEED_newSV_type              NEED_newSV_type_GLOBAL
+|>    newSVpvn_flags()          NEED_newSVpvn_flags          NEED_newSVpvn_flags_GLOBAL
+|>    newSVpvn_share()          NEED_newSVpvn_share          NEED_newSVpvn_share_GLOBAL
+|>    pv_display()              NEED_pv_display              NEED_pv_display_GLOBAL
+|>    pv_escape()               NEED_pv_escape               NEED_pv_escape_GLOBAL
+|>    pv_pretty()               NEED_pv_pretty               NEED_pv_pretty_GLOBAL
+|>    sv_2pv_flags()            NEED_sv_2pv_flags            NEED_sv_2pv_flags_GLOBAL
+|>    sv_2pvbyte()              NEED_sv_2pvbyte              NEED_sv_2pvbyte_GLOBAL
+|>    sv_catpvf_mg()            NEED_sv_catpvf_mg            NEED_sv_catpvf_mg_GLOBAL
+|>    sv_catpvf_mg_nocontext()  NEED_sv_catpvf_mg_nocontext  NEED_sv_catpvf_mg_nocontext_GLOBAL
+|>    sv_pvn_force_flags()      NEED_sv_pvn_force_flags      NEED_sv_pvn_force_flags_GLOBAL
+|>    sv_setpvf_mg()            NEED_sv_setpvf_mg            NEED_sv_setpvf_mg_GLOBAL
+|>    sv_setpvf_mg_nocontext()  NEED_sv_setpvf_mg_nocontext  NEED_sv_setpvf_mg_nocontext_GLOBAL
+|>    sv_unmagicext()           NEED_sv_unmagicext           NEED_sv_unmagicext_GLOBAL
+|>    vload_module()            NEED_vload_module            NEED_vload_module_GLOBAL
+|>    vnewSVpvf()               NEED_vnewSVpvf               NEED_vnewSVpvf_GLOBAL
+|>    warner()                  NEED_warner                  NEED_warner_GLOBAL
+|>
+|>To avoid namespace conflicts, you can change the namespace of the
+|>explicitly exported functions / variables using the C<DPPP_NAMESPACE>
+|>macro. Just C<#define> the macro before including C<ppport.h>:
+|>
+|>    #define DPPP_NAMESPACE MyOwnNamespace_
+|>    #include "ppport.h"
+|>
+|>The default namespace is C<DPPP_>.
+|>
+|>=back
+|>
+|>The good thing is that most of the above can be checked by running
+|>F<ppport.h> on your source code. See the next section for
+|>details.
+|>
+|>=head1 EXAMPLES
+|>
+|>To verify whether F<ppport.h> is needed for your module, whether you
+|>should make any changes to your code, and whether any special defines
+|>should be used, F<ppport.h> can be run as a Perl script to check your
+|>source code. Simply say:
+|>
+|>    perl ppport.h
+|>
+|>The result will usually be a list of patches suggesting changes
+|>that should at least be acceptable, if not necessarily the most
+|>efficient solution, or a fix for all possible problems.
+|>
+|>If you know that your XS module uses features only available in
+|>newer Perl releases, if you're aware that it uses C++ comments,
+|>and if you want all suggestions as a single patch file, you could
+|>use something like this:
+|>
+|>    perl ppport.h --compat-version=5.6.0 --cplusplus --patch=test.diff
+|>
+|>If you only want your code to be scanned without any suggestions
+|>for changes, use:
+|>
+|>    perl ppport.h --nochanges
+|>
+|>You can specify a different C<diff> program or options, using
+|>the C<--diff> option:
+|>
+|>    perl ppport.h --diff='diff -C 10'
+|>
+|>This would output context diffs with 10 lines of context.
+|>
+|>If you want to create patched copies of your files instead, use:
+|>
+|>    perl ppport.h --copy=.new
+|>
+|>To display portability information for the C<newSVpvn> function,
+|>use:
+|>
+|>    perl ppport.h --api-info=newSVpvn
+|>
+|>Since the argument to C<--api-info> can be a regular expression,
+|>you can use
+|>
+|>    perl ppport.h --api-info=/_nomg$/
+|>
+|>to display portability information for all C<_nomg> functions or
+|>
+|>    perl ppport.h --api-info=/./
+|>
+|>to display information for all known API elements.
+|>
+|>=head1 BUGS
+|>
+|>If this version of F<ppport.h> is causing failure during
+|>the compilation of this module, please check if newer versions
+|>of either this module or C<Devel::PPPort> are available on CPAN
+|>before sending a bug report.
+|>
+|>If F<ppport.h> was generated using the latest version of
+|>C<Devel::PPPort> and is causing failure of this module, please
+|>file a bug report here: L<https://github.com/mhx/Devel-PPPort/issues/>
+|>
+|>Please include the following information:
+|>
+|>=over 4
+|>
+|>=item 1.
+|>
+|>The complete output from running "perl -V"
+|>
+|>=item 2.
+|>
+|>This file.
+|>
+|>=item 3.
+|>
+|>The name and version of the module you were trying to build.
+|>
+|>=item 4.
+|>
+|>A full log of the build that failed.
+|>
+|>=item 5.
+|>
+|>Any other information that you think could be relevant.
+|>
+|>=back
+|>
+|>For the latest version of this code, please get the C<Devel::PPPort>
+|>module from CPAN.
+|>
+|>=head1 COPYRIGHT
+|>
+|>Version 3.x, Copyright (c) 2004-2013, Marcus Holland-Moritz.
+|>
+|>Version 2.x, Copyright (C) 2001, Paul Marquess.
+|>
+|>Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
+|>
+|>This program is free software; you can redistribute it and/or
+|>modify it under the same terms as Perl itself.
+|>
+|>=head1 SEE ALSO
+|>
+|>See L<Devel::PPPort>.
+|>
+|>=cut
+
+use strict;
+
+# Disable broken TRIE-optimization
+BEGIN { eval '${^RE_TRIE_MAXBUF} = -1' if $] >= 5.009004 && $] <= 5.009005 }
+
+my $VERSION = __VERSION__;
+
+my %opt = (
+  quiet     => 0,
+  diag      => 1,
+  hints     => 1,
+  changes   => 1,
+  cplusplus => 0,
+  filter    => 1,
+  strip     => 0,
+  version   => 0,
+);
+
+my($ppport) = $0 =~ /([\w.]+)$/;
+my $LF = '(?:\r\n|[\r\n])';   # line feed
+my $HS = "[ \t]";             # horizontal whitespace
+
+# Never use C comments in this file!
+my $ccs  = '/'.'*';
+my $cce  = '*'.'/';
+my $rccs = quotemeta $ccs;
+my $rcce = quotemeta $cce;
+
+eval {
+  require Getopt::Long;
+  Getopt::Long::GetOptions(\%opt, qw(
+    help quiet diag! filter! hints! changes! cplusplus strip version
+    patch=s copy=s diff=s compat-version=s
+    list-provided list-unsupported api-info=s
+  )) or usage();
+};
+
+if ($@ and grep /^-/, @ARGV) {
+  usage() if "@ARGV" =~ /^--?h(?:elp)?$/;
+  die "Getopt::Long not found. Please don't use any options.\n";
+}
+
+if ($opt{version}) {
+  print "This is $0 $VERSION.\n";
+  exit 0;
+}
+
+usage() if $opt{help};
+strip() if $opt{strip};
+
+if (exists $opt{'compat-version'}) {
+  my($r,$v,$s) = eval { parse_version($opt{'compat-version'}) };
+  if ($@) {
+    die "Invalid version number format: '$opt{'compat-version'}'\n";
+  }
+  die "Only Perl 5 is supported\n" if $r != 5;
+  die "Invalid version number: $opt{'compat-version'}\n" if $v >= 1000 || $s >= 1000;
+  $opt{'compat-version'} = sprintf "%d.%03d%03d", $r, $v, $s;
+}
+else {
+  $opt{'compat-version'} = 5;
+}
+
+my %API = map { /^(\w+)\|([^|]*)\|([^|]*)\|(\w*)$/
+                ? ( $1 => {
+                      ($2                  ? ( base     => $2 ) : ()),
+                      ($3                  ? ( todo     => $3 ) : ()),
+                      (index($4, 'v') >= 0 ? ( varargs  => 1  ) : ()),
+                      (index($4, 'p') >= 0 ? ( provided => 1  ) : ()),
+                      (index($4, 'n') >= 0 ? ( nothxarg => 1  ) : ()),
+                    } )
+                : die "invalid spec: $_" } qw(
+ASCII_TO_NEED||5.007001|n
+AvFILLp|5.004050||p
+AvFILL|||
+BhkDISABLE||5.021008|
+BhkENABLE||5.021008|
+BhkENTRY_set||5.021008|
+BhkENTRY|||
+BhkFLAGS|||
+CALL_BLOCK_HOOKS|||
+CLASS|||n
+CPERLscope|5.005000||p
+CX_CURPAD_SAVE|||
+CX_CURPAD_SV|||
+CopFILEAV|5.006000||p
+CopFILEGV_set|5.006000||p
+CopFILEGV|5.006000||p
+CopFILESV|5.006000||p
+CopFILE_set|5.006000||p
+CopFILE|5.006000||p
+CopSTASHPV_set|5.006000||p
+CopSTASHPV|5.006000||p
+CopSTASH_eq|5.006000||p
+CopSTASH_set|5.006000||p
+CopSTASH|5.006000||p
+CopyD|5.009002|5.004050|p
+Copy|||
+CvPADLIST||5.008001|
+CvSTASH|||
+CvWEAKOUTSIDE|||
+DEFSV_set|5.010001||p
+DEFSV|5.004050||p
+END_EXTERN_C|5.005000||p
+ENTER|||
+ERRSV|5.004050||p
+EXTEND|||
+EXTERN_C|5.005000||p
+F0convert|||n
+FREETMPS|||
+GIMME_V||5.004000|n
+GIMME|||n
+GROK_NUMERIC_RADIX|5.007002||p
+G_ARRAY|||
+G_DISCARD|||
+G_EVAL|||
+G_METHOD|5.006001||p
+G_NOARGS|||
+G_SCALAR|||
+G_VOID||5.004000|
+GetVars|||
+GvAV|||
+GvCV|||
+GvHV|||
+GvSVn|5.009003||p
+GvSV|||
+Gv_AMupdate||5.011000|
+HEf_SVKEY|5.003070||p
+HeHASH||5.003070|
+HeKEY||5.003070|
+HeKLEN||5.003070|
+HePV||5.004000|
+HeSVKEY_force||5.003070|
+HeSVKEY_set||5.004000|
+HeSVKEY||5.003070|
+HeUTF8|5.010001|5.008000|p
+HeVAL||5.003070|
+HvENAMELEN||5.015004|
+HvENAMEUTF8||5.015004|
+HvENAME||5.013007|
+HvNAMELEN_get|5.009003||p
+HvNAMELEN||5.015004|
+HvNAMEUTF8||5.015004|
+HvNAME_get|5.009003||p
+HvNAME|||
+INT2PTR|5.006000||p
+IN_LOCALE_COMPILETIME|5.007002||p
+IN_LOCALE_RUNTIME|5.007002||p
+IN_LOCALE|5.007002||p
+IN_PERL_COMPILETIME|5.008001||p
+IS_NUMBER_GREATER_THAN_UV_MAX|5.007002||p
+IS_NUMBER_INFINITY|5.007002||p
+IS_NUMBER_IN_UV|5.007002||p
+IS_NUMBER_NAN|5.007003||p
+IS_NUMBER_NEG|5.007002||p
+IS_NUMBER_NOT_INT|5.007002||p
+IVSIZE|5.006000||p
+IVTYPE|5.006000||p
+IVdf|5.006000||p
+LEAVE|||
+LINKLIST||5.013006|
+LVRET|||
+MARK|||
+MULTICALL||5.021008|
+MUTABLE_PTR|5.010001||p
+MUTABLE_SV|5.010001||p
+MY_CXT_CLONE|5.009002||p
+MY_CXT_INIT|5.007003||p
+MY_CXT|5.007003||p
+MoveD|5.009002|5.004050|p
+Move|||
+NATIVE_TO_NEED||5.007001|n
+NOOP|5.005000||p
+NUM2PTR|5.006000||p
+NVTYPE|5.006000||p
+NVef|5.006001||p
+NVff|5.006001||p
+NVgf|5.006001||p
+Newxc|5.009003||p
+Newxz|5.009003||p
+Newx|5.009003||p
+Nullav|||
+Nullch|||
+Nullcv|||
+Nullhv|||
+Nullsv|||
+OP_CLASS||5.013007|
+OP_DESC||5.007003|
+OP_NAME||5.007003|
+OP_TYPE_IS_OR_WAS||5.019010|
+OP_TYPE_IS||5.019007|
+ORIGMARK|||
+OpHAS_SIBLING||5.021007|
+OpSIBLING_set||5.021007|
+OpSIBLING||5.021007|
+PAD_BASE_SV|||
+PAD_CLONE_VARS|||
+PAD_COMPNAME_FLAGS|||
+PAD_COMPNAME_GEN_set|||
+PAD_COMPNAME_GEN|||
+PAD_COMPNAME_OURSTASH|||
+PAD_COMPNAME_PV|||
+PAD_COMPNAME_TYPE|||
+PAD_RESTORE_LOCAL|||
+PAD_SAVE_LOCAL|||
+PAD_SAVE_SETNULLPAD|||
+PAD_SETSV|||
+PAD_SET_CUR_NOSAVE|||
+PAD_SET_CUR|||
+PAD_SVl|||
+PAD_SV|||
+PERLIO_FUNCS_CAST|5.009003||p
+PERLIO_FUNCS_DECL|5.009003||p
+PERL_ABS|5.008001||p
+PERL_BCDVERSION|5.021008||p
+PERL_GCC_BRACE_GROUPS_FORBIDDEN|5.008001||p
+PERL_HASH|5.003070||p
+PERL_INT_MAX|5.003070||p
+PERL_INT_MIN|5.003070||p
+PERL_LONG_MAX|5.003070||p
+PERL_LONG_MIN|5.003070||p
+PERL_MAGIC_arylen|5.007002||p
+PERL_MAGIC_backref|5.007002||p
+PERL_MAGIC_bm|5.007002||p
+PERL_MAGIC_collxfrm|5.007002||p
+PERL_MAGIC_dbfile|5.007002||p
+PERL_MAGIC_dbline|5.007002||p
+PERL_MAGIC_defelem|5.007002||p
+PERL_MAGIC_envelem|5.007002||p
+PERL_MAGIC_env|5.007002||p
+PERL_MAGIC_ext|5.007002||p
+PERL_MAGIC_fm|5.007002||p
+PERL_MAGIC_glob|5.021008||p
+PERL_MAGIC_isaelem|5.007002||p
+PERL_MAGIC_isa|5.007002||p
+PERL_MAGIC_mutex|5.021008||p
+PERL_MAGIC_nkeys|5.007002||p
+PERL_MAGIC_overload_elem|5.021008||p
+PERL_MAGIC_overload_table|5.007002||p
+PERL_MAGIC_overload|5.021008||p
+PERL_MAGIC_pos|5.007002||p
+PERL_MAGIC_qr|5.007002||p
+PERL_MAGIC_regdata|5.007002||p
+PERL_MAGIC_regdatum|5.007002||p
+PERL_MAGIC_regex_global|5.007002||p
+PERL_MAGIC_shared_scalar|5.007003||p
+PERL_MAGIC_shared|5.007003||p
+PERL_MAGIC_sigelem|5.007002||p
+PERL_MAGIC_sig|5.007002||p
+PERL_MAGIC_substr|5.007002||p
+PERL_MAGIC_sv|5.007002||p
+PERL_MAGIC_taint|5.007002||p
+PERL_MAGIC_tiedelem|5.007002||p
+PERL_MAGIC_tiedscalar|5.007002||p
+PERL_MAGIC_tied|5.007002||p
+PERL_MAGIC_utf8|5.008001||p
+PERL_MAGIC_uvar_elem|5.007003||p
+PERL_MAGIC_uvar|5.007002||p
+PERL_MAGIC_vec|5.007002||p
+PERL_MAGIC_vstring|5.008001||p
+PERL_PV_ESCAPE_ALL|5.009004||p
+PERL_PV_ESCAPE_FIRSTCHAR|5.009004||p
+PERL_PV_ESCAPE_NOBACKSLASH|5.009004||p
+PERL_PV_ESCAPE_NOCLEAR|5.009004||p
+PERL_PV_ESCAPE_QUOTE|5.009004||p
+PERL_PV_ESCAPE_RE|5.009005||p
+PERL_PV_ESCAPE_UNI_DETECT|5.009004||p
+PERL_PV_ESCAPE_UNI|5.009004||p
+PERL_PV_PRETTY_DUMP|5.009004||p
+PERL_PV_PRETTY_ELLIPSES|5.010000||p
+PERL_PV_PRETTY_LTGT|5.009004||p
+PERL_PV_PRETTY_NOCLEAR|5.010000||p
+PERL_PV_PRETTY_QUOTE|5.009004||p
+PERL_PV_PRETTY_REGPROP|5.009004||p
+PERL_QUAD_MAX|5.003070||p
+PERL_QUAD_MIN|5.003070||p
+PERL_REVISION|5.006000||p
+PERL_SCAN_ALLOW_UNDERSCORES|5.007003||p
+PERL_SCAN_DISALLOW_PREFIX|5.007003||p
+PERL_SCAN_GREATER_THAN_UV_MAX|5.007003||p
+PERL_SCAN_SILENT_ILLDIGIT|5.008001||p
+PERL_SHORT_MAX|5.003070||p
+PERL_SHORT_MIN|5.003070||p
+PERL_SIGNALS_UNSAFE_FLAG|5.008001||p
+PERL_SUBVERSION|5.006000||p
+PERL_SYS_INIT3||5.006000|
+PERL_SYS_INIT|||
+PERL_SYS_TERM||5.021008|
+PERL_UCHAR_MAX|5.003070||p
+PERL_UCHAR_MIN|5.003070||p
+PERL_UINT_MAX|5.003070||p
+PERL_UINT_MIN|5.003070||p
+PERL_ULONG_MAX|5.003070||p
+PERL_ULONG_MIN|5.003070||p
+PERL_UNUSED_ARG|5.009003||p
+PERL_UNUSED_CONTEXT|5.009004||p
+PERL_UNUSED_DECL|5.007002||p
+PERL_UNUSED_VAR|5.007002||p
+PERL_UQUAD_MAX|5.003070||p
+PERL_UQUAD_MIN|5.003070||p
+PERL_USE_GCC_BRACE_GROUPS|5.009004||p
+PERL_USHORT_MAX|5.003070||p
+PERL_USHORT_MIN|5.003070||p
+PERL_VERSION|5.006000||p
+PL_DBsignal|5.005000||p
+PL_DBsingle|||pn
+PL_DBsub|||pn
+PL_DBtrace|||pn
+PL_Sv|5.005000||p
+PL_bufend|5.021008||p
+PL_bufptr|5.021008||p
+PL_check||5.006000|
+PL_compiling|5.004050||p
+PL_comppad_name||5.017004|
+PL_comppad||5.008001|
+PL_copline|5.021008||p
+PL_curcop|5.004050||p
+PL_curpad||5.005000|
+PL_curstash|5.004050||p
+PL_debstash|5.004050||p
+PL_defgv|5.004050||p
+PL_diehook|5.004050||p
+PL_dirty|5.004050||p
+PL_dowarn|||pn
+PL_errgv|5.004050||p
+PL_error_count|5.021008||p
+PL_expect|5.021008||p
+PL_hexdigit|5.005000||p
+PL_hints|5.005000||p
+PL_in_my_stash|5.021008||p
+PL_in_my|5.021008||p
+PL_keyword_plugin||5.011002|
+PL_last_in_gv|||n
+PL_laststatval|5.005000||p
+PL_lex_state|5.021008||p
+PL_lex_stuff|5.021008||p
+PL_linestr|5.021008||p
+PL_modglobal||5.005000|n
+PL_na|5.004050||pn
+PL_no_modify|5.006000||p
+PL_ofsgv|||n
+PL_opfreehook||5.011000|n
+PL_parser|5.009005||p
+PL_peepp||5.007003|n
+PL_perl_destruct_level|5.004050||p
+PL_perldb|5.004050||p
+PL_ppaddr|5.006000||p
+PL_rpeepp||5.013005|n
+PL_rsfp_filters|5.021008||p
+PL_rsfp|5.021008||p
+PL_rs|||n
+PL_signals|5.008001||p
+PL_stack_base|5.004050||p
+PL_stack_sp|5.004050||p
+PL_statcache|5.005000||p
+PL_stdingv|5.004050||p
+PL_sv_arenaroot|5.004050||p
+PL_sv_no|5.004050||pn
+PL_sv_undef|5.004050||pn
+PL_sv_yes|5.004050||pn
+PL_tainted|5.004050||p
+PL_tainting|5.004050||p
+PL_tokenbuf|5.021008||p
+POP_MULTICALL||5.021008|
+POPi|||n
+POPl|||n
+POPn|||n
+POPpbytex||5.007001|n
+POPpx||5.005030|n
+POPp|||n
+POPs|||n
+PTR2IV|5.006000||p
+PTR2NV|5.006000||p
+PTR2UV|5.006000||p
+PTR2nat|5.009003||p
+PTR2ul|5.007001||p
+PTRV|5.006000||p
+PUSHMARK|||
+PUSH_MULTICALL||5.021008|
+PUSHi|||
+PUSHmortal|5.009002||p
+PUSHn|||
+PUSHp|||
+PUSHs|||
+PUSHu|5.004000||p
+PUTBACK|||
+PadARRAY||5.021008|
+PadMAX||5.021008|
+PadlistARRAY||5.021008|
+PadlistMAX||5.021008|
+PadlistNAMESARRAY||5.021008|
+PadlistNAMESMAX||5.021008|
+PadlistNAMES||5.021008|
+PadlistREFCNT||5.017004|
+PadnameIsOUR|||
+PadnameIsSTATE|||
+PadnameLEN||5.021008|
+PadnameOURSTASH|||
+PadnameOUTER|||
+PadnamePV||5.021008|
+PadnameREFCNT_dec||5.021008|
+PadnameREFCNT||5.021008|
+PadnameSV||5.021008|
+PadnameTYPE|||
+PadnameUTF8||5.021007|
+PadnamelistARRAY||5.021008|
+PadnamelistMAX||5.021008|
+PadnamelistREFCNT_dec||5.021008|
+PadnamelistREFCNT||5.021008|
+PerlIO_clearerr||5.007003|
+PerlIO_close||5.007003|
+PerlIO_context_layers||5.009004|
+PerlIO_eof||5.007003|
+PerlIO_error||5.007003|
+PerlIO_fileno||5.007003|
+PerlIO_fill||5.007003|
+PerlIO_flush||5.007003|
+PerlIO_get_base||5.007003|
+PerlIO_get_bufsiz||5.007003|
+PerlIO_get_cnt||5.007003|
+PerlIO_get_ptr||5.007003|
+PerlIO_read||5.007003|
+PerlIO_restore_errno|||
+PerlIO_save_errno|||
+PerlIO_seek||5.007003|
+PerlIO_set_cnt||5.007003|
+PerlIO_set_ptrcnt||5.007003|
+PerlIO_setlinebuf||5.007003|
+PerlIO_stderr||5.007003|
+PerlIO_stdin||5.007003|
+PerlIO_stdout||5.007003|
+PerlIO_tell||5.007003|
+PerlIO_unread||5.007003|
+PerlIO_write||5.007003|
+Perl_signbit||5.009005|n
+PoisonFree|5.009004||p
+PoisonNew|5.009004||p
+PoisonWith|5.009004||p
+Poison|5.008000||p
+READ_XDIGIT||5.017006|
+RETVAL|||n
+Renewc|||
+Renew|||
+SAVECLEARSV|||
+SAVECOMPPAD|||
+SAVEPADSV|||
+SAVETMPS|||
+SAVE_DEFSV|5.004050||p
+SPAGAIN|||
+SP|||
+START_EXTERN_C|5.005000||p
+START_MY_CXT|5.007003||p
+STMT_END|||p
+STMT_START|||p
+STR_WITH_LEN|5.009003||p
+ST|||
+SV_CONST_RETURN|5.009003||p
+SV_COW_DROP_PV|5.008001||p
+SV_COW_SHARED_HASH_KEYS|5.009005||p
+SV_GMAGIC|5.007002||p
+SV_HAS_TRAILING_NUL|5.009004||p
+SV_IMMEDIATE_UNREF|5.007001||p
+SV_MUTABLE_RETURN|5.009003||p
+SV_NOSTEAL|5.009002||p
+SV_SMAGIC|5.009003||p
+SV_UTF8_NO_ENCODING|5.008001||p
+SVfARG|5.009005||p
+SVf_UTF8|5.006000||p
+SVf|5.006000||p
+SVt_INVLIST||5.019002|
+SVt_IV|||
+SVt_NULL|||
+SVt_NV|||
+SVt_PVAV|||
+SVt_PVCV|||
+SVt_PVFM|||
+SVt_PVGV|||
+SVt_PVHV|||
+SVt_PVIO|||
+SVt_PVIV|||
+SVt_PVLV|||
+SVt_PVMG|||
+SVt_PVNV|||
+SVt_PV|||
+SVt_REGEXP||5.011000|
+Safefree|||
+Slab_Alloc|||
+Slab_Free|||
+Slab_to_ro|||
+Slab_to_rw|||
+StructCopy|||
+SvCUR_set|||
+SvCUR|||
+SvEND|||
+SvGAMAGIC||5.006001|
+SvGETMAGIC|5.004050||p
+SvGROW|||
+SvIOK_UV||5.006000|
+SvIOK_notUV||5.006000|
+SvIOK_off|||
+SvIOK_only_UV||5.006000|
+SvIOK_only|||
+SvIOK_on|||
+SvIOKp|||
+SvIOK|||
+SvIVX|||
+SvIV_nomg|5.009001||p
+SvIV_set|||
+SvIVx|||
+SvIV|||
+SvIsCOW_shared_hash||5.008003|
+SvIsCOW||5.008003|
+SvLEN_set|||
+SvLEN|||
+SvLOCK||5.007003|
+SvMAGIC_set|5.009003||p
+SvNIOK_off|||
+SvNIOKp|||
+SvNIOK|||
+SvNOK_off|||
+SvNOK_only|||
+SvNOK_on|||
+SvNOKp|||
+SvNOK|||
+SvNVX|||
+SvNV_nomg||5.013002|
+SvNV_set|||
+SvNVx|||
+SvNV|||
+SvOK|||
+SvOOK_offset||5.011000|
+SvOOK|||
+SvPOK_off|||
+SvPOK_only_UTF8||5.006000|
+SvPOK_only|||
+SvPOK_on|||
+SvPOKp|||
+SvPOK|||
+SvPVX_const|5.009003||p
+SvPVX_mutable|5.009003||p
+SvPVX|||
+SvPV_const|5.009003||p
+SvPV_flags_const_nolen|5.009003||p
+SvPV_flags_const|5.009003||p
+SvPV_flags_mutable|5.009003||p
+SvPV_flags|5.007002||p
+SvPV_force_flags_mutable|5.009003||p
+SvPV_force_flags_nolen|5.009003||p
+SvPV_force_flags|5.007002||p
+SvPV_force_mutable|5.009003||p
+SvPV_force_nolen|5.009003||p
+SvPV_force_nomg_nolen|5.009003||p
+SvPV_force_nomg|5.007002||p
+SvPV_force|||p
+SvPV_mutable|5.009003||p
+SvPV_nolen_const|5.009003||p
+SvPV_nolen|5.006000||p
+SvPV_nomg_const_nolen|5.009003||p
+SvPV_nomg_const|5.009003||p
+SvPV_nomg_nolen|5.013007||p
+SvPV_nomg|5.007002||p
+SvPV_renew|5.009003||p
+SvPV_set|||
+SvPVbyte_force||5.009002|
+SvPVbyte_nolen||5.006000|
+SvPVbytex_force||5.006000|
+SvPVbytex||5.006000|
+SvPVbyte|5.006000||p
+SvPVutf8_force||5.006000|
+SvPVutf8_nolen||5.006000|
+SvPVutf8x_force||5.006000|
+SvPVutf8x||5.006000|
+SvPVutf8||5.006000|
+SvPVx|||
+SvPV|||
+SvREFCNT_dec_NN||5.017007|
+SvREFCNT_dec|||
+SvREFCNT_inc_NN|5.009004||p
+SvREFCNT_inc_simple_NN|5.009004||p
+SvREFCNT_inc_simple_void_NN|5.009004||p
+SvREFCNT_inc_simple_void|5.009004||p
+SvREFCNT_inc_simple|5.009004||p
+SvREFCNT_inc_void_NN|5.009004||p
+SvREFCNT_inc_void|5.009004||p
+SvREFCNT_inc|||p
+SvREFCNT|||
+SvROK_off|||
+SvROK_on|||
+SvROK|||
+SvRV_set|5.009003||p
+SvRV|||
+SvRXOK||5.009005|
+SvRX||5.009005|
+SvSETMAGIC|||
+SvSHARED_HASH|5.009003||p
+SvSHARE||5.007003|
+SvSTASH_set|5.009003||p
+SvSTASH|||
+SvSetMagicSV_nosteal||5.004000|
+SvSetMagicSV||5.004000|
+SvSetSV_nosteal||5.004000|
+SvSetSV|||
+SvTAINTED_off||5.004000|
+SvTAINTED_on||5.004000|
+SvTAINTED||5.004000|
+SvTAINT|||
+SvTHINKFIRST|||
+SvTRUE_nomg||5.013006|
+SvTRUE|||
+SvTYPE|||
+SvUNLOCK||5.007003|
+SvUOK|5.007001|5.006000|p
+SvUPGRADE|||
+SvUTF8_off||5.006000|
+SvUTF8_on||5.006000|
+SvUTF8||5.006000|
+SvUVXx|5.004000||p
+SvUVX|5.004000||p
+SvUV_nomg|5.009001||p
+SvUV_set|5.009003||p
+SvUVx|5.004000||p
+SvUV|5.004000||p
+SvVOK||5.008001|
+SvVSTRING_mg|5.009004||p
+THIS|||n
+UNDERBAR|5.009002||p
+UTF8_MAXBYTES|5.009002||p
+UVSIZE|5.006000||p
+UVTYPE|5.006000||p
+UVXf|5.007001||p
+UVof|5.006000||p
+UVuf|5.006000||p
+UVxf|5.006000||p
+WARN_ALL|5.006000||p
+WARN_AMBIGUOUS|5.006000||p
+WARN_ASSERTIONS|5.021008||p
+WARN_BAREWORD|5.006000||p
+WARN_CLOSED|5.006000||p
+WARN_CLOSURE|5.006000||p
+WARN_DEBUGGING|5.006000||p
+WARN_DEPRECATED|5.006000||p
+WARN_DIGIT|5.006000||p
+WARN_EXEC|5.006000||p
+WARN_EXITING|5.006000||p
+WARN_GLOB|5.006000||p
+WARN_INPLACE|5.006000||p
+WARN_INTERNAL|5.006000||p
+WARN_IO|5.006000||p
+WARN_LAYER|5.008000||p
+WARN_MALLOC|5.006000||p
+WARN_MISC|5.006000||p
+WARN_NEWLINE|5.006000||p
+WARN_NUMERIC|5.006000||p
+WARN_ONCE|5.006000||p
+WARN_OVERFLOW|5.006000||p
+WARN_PACK|5.006000||p
+WARN_PARENTHESIS|5.006000||p
+WARN_PIPE|5.006000||p
+WARN_PORTABLE|5.006000||p
+WARN_PRECEDENCE|5.006000||p
+WARN_PRINTF|5.006000||p
+WARN_PROTOTYPE|5.006000||p
+WARN_QW|5.006000||p
+WARN_RECURSION|5.006000||p
+WARN_REDEFINE|5.006000||p
+WARN_REGEXP|5.006000||p
+WARN_RESERVED|5.006000||p
+WARN_SEMICOLON|5.006000||p
+WARN_SEVERE|5.006000||p
+WARN_SIGNAL|5.006000||p
+WARN_SUBSTR|5.006000||p
+WARN_SYNTAX|5.006000||p
+WARN_TAINT|5.006000||p
+WARN_THREADS|5.008000||p
+WARN_UNINITIALIZED|5.006000||p
+WARN_UNOPENED|5.006000||p
+WARN_UNPACK|5.006000||p
+WARN_UNTIE|5.006000||p
+WARN_UTF8|5.006000||p
+WARN_VOID|5.006000||p
+WIDEST_UTYPE|5.015004||p
+XCPT_CATCH|5.009002||p
+XCPT_RETHROW|5.009002||p
+XCPT_TRY_END|5.009002||p
+XCPT_TRY_START|5.009002||p
+XPUSHi|||
+XPUSHmortal|5.009002||p
+XPUSHn|||
+XPUSHp|||
+XPUSHs|||
+XPUSHu|5.004000||p
+XSPROTO|5.010000||p
+XSRETURN_EMPTY|||
+XSRETURN_IV|||
+XSRETURN_NO|||
+XSRETURN_NV|||
+XSRETURN_PV|||
+XSRETURN_UNDEF|||
+XSRETURN_UV|5.008001||p
+XSRETURN_YES|||
+XSRETURN|||p
+XST_mIV|||
+XST_mNO|||
+XST_mNV|||
+XST_mPV|||
+XST_mUNDEF|||
+XST_mUV|5.008001||p
+XST_mYES|||
+XS_APIVERSION_BOOTCHECK||5.021008|
+XS_EXTERNAL||5.021008|
+XS_INTERNAL||5.021008|
+XS_VERSION_BOOTCHECK||5.021008|
+XS_VERSION|||
+XSprePUSH|5.006000||p
+XS|||
+XopDISABLE||5.021008|
+XopENABLE||5.021008|
+XopENTRYCUSTOM||5.021008|
+XopENTRY_set||5.021008|
+XopENTRY||5.021008|
+XopFLAGS||5.013007|
+ZeroD|5.009002||p
+Zero|||
+_aMY_CXT|5.007003||p
+_add_range_to_invlist|||
+_append_range_to_invlist|||
+_core_swash_init|||
+_get_encoding|||
+_get_regclass_nonbitmap_data|||
+_get_swash_invlist|||
+_invlist_array_init|||n
+_invlist_contains_cp|||n
+_invlist_contents|||
+_invlist_dump|||
+_invlist_intersection_maybe_complement_2nd|||
+_invlist_intersection|||
+_invlist_invert|||
+_invlist_len|||n
+_invlist_populate_swatch|||n
+_invlist_search|||n
+_invlist_subtract|||
+_invlist_union_maybe_complement_2nd|||
+_invlist_union|||
+_is_cur_LC_category_utf8|||
+_is_in_locale_category||5.021001|
+_is_uni_FOO||5.017008|
+_is_uni_perl_idcont||5.017008|
+_is_uni_perl_idstart||5.017007|
+_is_utf8_FOO||5.017008|
+_is_utf8_char_slow||5.021001|n
+_is_utf8_idcont||5.021001|
+_is_utf8_idstart||5.021001|
+_is_utf8_mark||5.017008|
+_is_utf8_perl_idcont||5.017008|
+_is_utf8_perl_idstart||5.017007|
+_is_utf8_xidcont||5.021001|
+_is_utf8_xidstart||5.021001|
+_load_PL_utf8_foldclosures|||
+_make_exactf_invlist|||
+_new_invlist_C_array|||
+_new_invlist|||
+_pMY_CXT|5.007003||p
+_setup_canned_invlist|||
+_swash_inversion_hash|||
+_swash_to_invlist|||
+_to_fold_latin1|||
+_to_uni_fold_flags||5.014000|
+_to_upper_title_latin1|||
+_to_utf8_fold_flags||5.019009|
+_to_utf8_lower_flags||5.019009|
+_to_utf8_title_flags||5.019009|
+_to_utf8_upper_flags||5.019009|
+_warn_problematic_locale|||n
+aMY_CXT_|5.007003||p
+aMY_CXT|5.007003||p
+aTHXR_|5.021008||p
+aTHXR|5.021008||p
+aTHX_|5.006000||p
+aTHX|5.006000||p
+aassign_common_vars|||
+add_above_Latin1_folds|||
+add_cp_to_invlist|||
+add_data|||n
+add_multi_match|||
+add_utf16_textfilter|||
+adjust_size_and_find_bucket|||n
+advance_one_SB|||
+advance_one_WB|||
+alloc_maybe_populate_EXACT|||
+alloccopstash|||
+allocmy|||
+amagic_call|||
+amagic_cmp_locale|||
+amagic_cmp|||
+amagic_deref_call||5.013007|
+amagic_i_ncmp|||
+amagic_is_enabled|||
+amagic_ncmp|||
+anonymise_cv_maybe|||
+any_dup|||
+ao|||
+append_utf8_from_native_byte||5.019004|n
+apply_attrs_my|||
+apply_attrs_string||5.006001|
+apply_attrs|||
+apply|||
+assert_uft8_cache_coherent|||
+assignment_type|||
+atfork_lock||5.007003|n
+atfork_unlock||5.007003|n
+av_arylen_p||5.009003|
+av_clear|||
+av_create_and_push||5.009005|
+av_create_and_unshift_one||5.009005|
+av_delete||5.006000|
+av_exists||5.006000|
+av_extend_guts|||
+av_extend|||
+av_fetch|||
+av_fill|||
+av_iter_p||5.011000|
+av_len|||
+av_make|||
+av_pop|||
+av_push|||
+av_reify|||
+av_shift|||
+av_store|||
+av_tindex||5.017009|
+av_top_index||5.017009|
+av_undef|||
+av_unshift|||
+ax|||n
+backup_one_SB|||
+backup_one_WB|||
+bad_type_gv|||
+bad_type_pv|||
+bind_match|||
+block_end||5.004000|
+block_gimme||5.004000|
+block_start||5.004000|
+blockhook_register||5.013003|
+boolSV|5.004000||p
+boot_core_PerlIO|||
+boot_core_UNIVERSAL|||
+boot_core_mro|||
+bytes_cmp_utf8||5.013007|
+bytes_from_utf8||5.007001|
+bytes_to_utf8||5.006001|
+call_argv|5.006000||p
+call_atexit||5.006000|
+call_list||5.004000|
+call_method|5.006000||p
+call_pv|5.006000||p
+call_sv|5.006000||p
+caller_cx|5.013005|5.006000|p
+calloc||5.007002|n
+cando|||
+cast_i32||5.006000|n
+cast_iv||5.006000|n
+cast_ulong||5.006000|n
+cast_uv||5.006000|n
+check_locale_boundary_crossing|||
+check_type_and_open|||
+check_uni|||
+check_utf8_print|||
+checkcomma|||
+ckWARN|5.006000||p
+ck_entersub_args_core|||
+ck_entersub_args_list||5.013006|
+ck_entersub_args_proto_or_list||5.013006|
+ck_entersub_args_proto||5.013006|
+ck_warner_d||5.011001|v
+ck_warner||5.011001|v
+ckwarn_common|||
+ckwarn_d||5.009003|
+ckwarn||5.009003|
+clear_placeholders|||
+clear_special_blocks|||
+clone_params_del|||n
+clone_params_new|||n
+closest_cop|||
+cntrl_to_mnemonic|||n
+compute_EXACTish|||n
+construct_ahocorasick_from_trie|||
+cop_fetch_label||5.015001|
+cop_free|||
+cop_hints_2hv||5.013007|
+cop_hints_fetch_pvn||5.013007|
+cop_hints_fetch_pvs||5.013007|
+cop_hints_fetch_pv||5.013007|
+cop_hints_fetch_sv||5.013007|
+cop_store_label||5.015001|
+cophh_2hv||5.013007|
+cophh_copy||5.013007|
+cophh_delete_pvn||5.013007|
+cophh_delete_pvs||5.013007|
+cophh_delete_pv||5.013007|
+cophh_delete_sv||5.013007|
+cophh_fetch_pvn||5.013007|
+cophh_fetch_pvs||5.013007|
+cophh_fetch_pv||5.013007|
+cophh_fetch_sv||5.013007|
+cophh_free||5.013007|
+cophh_new_empty||5.021008|
+cophh_store_pvn||5.013007|
+cophh_store_pvs||5.013007|
+cophh_store_pv||5.013007|
+cophh_store_sv||5.013007|
+core_prototype|||
+coresub_op|||
+could_it_be_a_POSIX_class|||n
+cr_textfilter|||
+create_eval_scope|||
+croak_memory_wrap||5.019003|n
+croak_no_mem|||n
+croak_no_modify||5.013003|n
+croak_nocontext|||vn
+croak_popstack|||n
+croak_sv||5.013001|
+croak_xs_usage||5.010001|n
+croak|||v
+csighandler||5.009003|n
+current_re_engine|||
+curse|||
+custom_op_desc||5.007003|
+custom_op_get_field|||
+custom_op_name||5.007003|
+custom_op_register||5.013007|
+custom_op_xop||5.013007|
+cv_ckproto_len_flags|||
+cv_clone_into|||
+cv_clone|||
+cv_const_sv_or_av|||n
+cv_const_sv||5.003070|n
+cv_dump|||
+cv_forget_slab|||
+cv_get_call_checker||5.013006|
+cv_name||5.021005|
+cv_set_call_checker_flags||5.021004|
+cv_set_call_checker||5.013006|
+cv_undef_flags|||
+cv_undef|||
+cvgv_from_hek|||
+cvgv_set|||
+cvstash_set|||
+cx_dump||5.005000|
+cx_dup|||
+cxinc|||
+dAXMARK|5.009003||p
+dAX|5.007002||p
+dITEMS|5.007002||p
+dMARK|||
+dMULTICALL||5.009003|
+dMY_CXT_SV|5.007003||p
+dMY_CXT|5.007003||p
+dNOOP|5.006000||p
+dORIGMARK|||
+dSP|||
+dTHR|5.004050||p
+dTHXR|5.021008||p
+dTHXa|5.006000||p
+dTHXoa|5.006000||p
+dTHX|5.006000||p
+dUNDERBAR|5.009002||p
+dVAR|5.009003||p
+dXCPT|5.009002||p
+dXSARGS|||
+dXSI32|||
+dXSTARG|5.006000||p
+deb_curcv|||
+deb_nocontext|||vn
+deb_stack_all|||
+deb_stack_n|||
+debop||5.005000|
+debprofdump||5.005000|
+debprof|||
+debstackptrs||5.007003|
+debstack||5.007003|
+debug_start_match|||
+deb||5.007003|v
+defelem_target|||
+del_sv|||
+delete_eval_scope|||
+delimcpy||5.004000|n
+deprecate_commaless_var_list|||
+despatch_signals||5.007001|
+destroy_matcher|||
+die_nocontext|||vn
+die_sv||5.013001|
+die_unwind|||
+die|||v
+dirp_dup|||
+div128|||
+djSP|||
+do_aexec5|||
+do_aexec|||
+do_aspawn|||
+do_binmode||5.004050|
+do_chomp|||
+do_close|||
+do_delete_local|||
+do_dump_pad|||
+do_eof|||
+do_exec3|||
+do_execfree|||
+do_exec|||
+do_gv_dump||5.006000|
+do_gvgv_dump||5.006000|
+do_hv_dump||5.006000|
+do_ipcctl|||
+do_ipcget|||
+do_join|||
+do_magic_dump||5.006000|
+do_msgrcv|||
+do_msgsnd|||
+do_ncmp|||
+do_oddball|||
+do_op_dump||5.006000|
+do_open6|||
+do_open9||5.006000|
+do_open_raw|||
+do_openn||5.007001|
+do_open||5.003070|
+do_pmop_dump||5.006000|
+do_print|||
+do_readline|||
+do_seek|||
+do_semop|||
+do_shmio|||
+do_smartmatch|||
+do_spawn_nowait|||
+do_spawn|||
+do_sprintf|||
+do_sv_dump||5.006000|
+do_sysseek|||
+do_tell|||
+do_trans_complex_utf8|||
+do_trans_complex|||
+do_trans_count_utf8|||
+do_trans_count|||
+do_trans_simple_utf8|||
+do_trans_simple|||
+do_trans|||
+do_vecget|||
+do_vecset|||
+do_vop|||
+docatch|||
+doeval|||
+dofile|||
+dofindlabel|||
+doform|||
+doing_taint||5.008001|n
+dooneliner|||
+doopen_pm|||
+doparseform|||
+dopoptoeval|||
+dopoptogiven|||
+dopoptolabel|||
+dopoptoloop|||
+dopoptosub_at|||
+dopoptowhen|||
+doref||5.009003|
+dounwind|||
+dowantarray|||
+drand48_init_r|||n
+drand48_r|||n
+dump_all_perl|||
+dump_all||5.006000|
+dump_c_backtrace|||
+dump_eval||5.006000|
+dump_exec_pos|||
+dump_form||5.006000|
+dump_indent||5.006000|v
+dump_mstats|||
+dump_packsubs_perl|||
+dump_packsubs||5.006000|
+dump_sub_perl|||
+dump_sub||5.006000|
+dump_sv_child|||
+dump_trie_interim_list|||
+dump_trie_interim_table|||
+dump_trie|||
+dump_vindent||5.006000|
+dumpuntil|||
+dup_attrlist|||
+emulate_cop_io|||
+eval_pv|5.006000||p
+eval_sv|5.006000||p
+exec_failed|||
+expect_number|||
+fbm_compile||5.005000|
+fbm_instr||5.005000|
+feature_is_enabled|||
+filter_add|||
+filter_del|||
+filter_gets|||
+filter_read|||
+finalize_optree|||
+finalize_op|||
+find_and_forget_pmops|||
+find_array_subscript|||
+find_beginning|||
+find_byclass|||
+find_default_stash|||
+find_hash_subscript|||
+find_in_my_stash|||
+find_lexical_cv|||
+find_runcv_where|||
+find_runcv||5.008001|
+find_rundefsv2|||
+find_rundefsvoffset||5.009002|
+find_rundefsv||5.013002|
+find_script|||
+find_uninit_var|||
+first_symbol|||n
+fixup_errno_string|||
+foldEQ_latin1||5.013008|n
+foldEQ_locale||5.013002|n
+foldEQ_utf8_flags||5.013010|
+foldEQ_utf8||5.013002|
+foldEQ||5.013002|n
+fold_constants|||
+forbid_setid|||
+force_ident_maybe_lex|||
+force_ident|||
+force_list|||
+force_next|||
+force_strict_version|||
+force_version|||
+force_word|||
+forget_pmop|||
+form_nocontext|||vn
+form_short_octal_warning|||
+form||5.004000|v
+fp_dup|||
+fprintf_nocontext|||vn
+free_c_backtrace|||
+free_global_struct|||
+free_tied_hv_pool|||
+free_tmps|||
+gen_constant_list|||
+get_ANYOF_cp_list_for_ssc|||
+get_and_check_backslash_N_name|||
+get_aux_mg|||
+get_av|5.006000||p
+get_c_backtrace_dump|||
+get_c_backtrace|||
+get_context||5.006000|n
+get_cvn_flags|5.009005||p
+get_cvs|5.011000||p
+get_cv|5.006000||p
+get_db_sub|||
+get_debug_opts|||
+get_hash_seed|||
+get_hv|5.006000||p
+get_invlist_iter_addr|||n
+get_invlist_offset_addr|||n
+get_invlist_previous_index_addr|||n
+get_mstats|||
+get_no_modify|||
+get_num|||
+get_op_descs||5.005000|
+get_op_names||5.005000|
+get_opargs|||
+get_ppaddr||5.006000|
+get_re_arg|||
+get_sv|5.006000||p
+get_vtbl||5.005030|
+getcwd_sv||5.007002|
+getenv_len|||
+glob_2number|||
+glob_assign_glob|||
+gp_dup|||
+gp_free|||
+gp_ref|||
+grok_atoUV|||n
+grok_bin|5.007003||p
+grok_bslash_N|||
+grok_bslash_c|||
+grok_bslash_o|||
+grok_bslash_x|||
+grok_hex|5.007003||p
+grok_infnan||5.021004|
+grok_number_flags||5.021002|
+grok_number|5.007002||p
+grok_numeric_radix|5.007002||p
+grok_oct|5.007003||p
+group_end|||
+gv_AVadd|||
+gv_HVadd|||
+gv_IOadd|||
+gv_SVadd|||
+gv_add_by_type||5.011000|
+gv_autoload4||5.004000|
+gv_autoload_pvn||5.015004|
+gv_autoload_pv||5.015004|
+gv_autoload_sv||5.015004|
+gv_check|||
+gv_const_sv||5.009003|
+gv_dump||5.006000|
+gv_efullname3||5.003070|
+gv_efullname4||5.006001|
+gv_efullname|||
+gv_fetchfile_flags||5.009005|
+gv_fetchfile|||
+gv_fetchmeth_autoload||5.007003|
+gv_fetchmeth_internal|||
+gv_fetchmeth_pv_autoload||5.015004|
+gv_fetchmeth_pvn_autoload||5.015004|
+gv_fetchmeth_pvn||5.015004|
+gv_fetchmeth_pv||5.015004|
+gv_fetchmeth_sv_autoload||5.015004|
+gv_fetchmeth_sv||5.015004|
+gv_fetchmethod_autoload||5.004000|
+gv_fetchmethod_pv_flags||5.015004|
+gv_fetchmethod_pvn_flags||5.015004|
+gv_fetchmethod_sv_flags||5.015004|
+gv_fetchmethod|||
+gv_fetchmeth|||
+gv_fetchpvn_flags|5.009002||p
+gv_fetchpvs|5.009004||p
+gv_fetchpv|||
+gv_fetchsv|5.009002||p
+gv_fullname3||5.003070|
+gv_fullname4||5.006001|
+gv_fullname|||
+gv_handler||5.007001|
+gv_init_pvn||5.015004|
+gv_init_pv||5.015004|
+gv_init_svtype|||
+gv_init_sv||5.015004|
+gv_init|||
+gv_is_in_main|||
+gv_magicalize_isa|||
+gv_magicalize|||
+gv_name_set||5.009004|
+gv_override|||
+gv_setref|||
+gv_stashpvn_internal|||
+gv_stashpvn|5.003070||p
+gv_stashpvs|5.009003||p
+gv_stashpv|||
+gv_stashsvpvn_cached|||
+gv_stashsv|||
+gv_try_downgrade|||
+handle_regex_sets|||
+he_dup|||
+hek_dup|||
+hfree_next_entry|||
+hfreeentries|||
+hsplit|||
+hv_assert|||
+hv_auxinit_internal|||n
+hv_auxinit|||
+hv_backreferences_p|||
+hv_clear_placeholders||5.009001|
+hv_clear|||
+hv_common_key_len||5.010000|
+hv_common||5.010000|
+hv_copy_hints_hv||5.009004|
+hv_delayfree_ent||5.004000|
+hv_delete_common|||
+hv_delete_ent||5.003070|
+hv_delete|||
+hv_eiter_p||5.009003|
+hv_eiter_set||5.009003|
+hv_ename_add|||
+hv_ename_delete|||
+hv_exists_ent||5.003070|
+hv_exists|||
+hv_fetch_ent||5.003070|
+hv_fetchs|5.009003||p
+hv_fetch|||
+hv_fill||5.013002|
+hv_free_ent_ret|||
+hv_free_ent||5.004000|
+hv_iterinit|||
+hv_iterkeysv||5.003070|
+hv_iterkey|||
+hv_iternext_flags||5.008000|
+hv_iternextsv|||
+hv_iternext|||
+hv_iterval|||
+hv_kill_backrefs|||
+hv_ksplit||5.003070|
+hv_magic_check|||n
+hv_magic|||
+hv_name_set||5.009003|
+hv_notallowed|||
+hv_placeholders_get||5.009003|
+hv_placeholders_p|||
+hv_placeholders_set||5.009003|
+hv_rand_set||5.018000|
+hv_riter_p||5.009003|
+hv_riter_set||5.009003|
+hv_scalar||5.009001|
+hv_store_ent||5.003070|
+hv_store_flags||5.008000|
+hv_stores|5.009004||p
+hv_store|||
+hv_undef_flags|||
+hv_undef|||
+ibcmp_locale||5.004000|
+ibcmp_utf8||5.007003|
+ibcmp|||
+incline|||
+incpush_if_exists|||
+incpush_use_sep|||
+incpush|||
+ingroup|||
+init_argv_symbols|||
+init_constants|||
+init_dbargs|||
+init_debugger|||
+init_global_struct|||
+init_i18nl10n||5.006000|
+init_i18nl14n||5.006000|
+init_ids|||
+init_interp|||
+init_main_stash|||
+init_perllib|||
+init_postdump_symbols|||
+init_predump_symbols|||
+init_stacks||5.005000|
+init_tm||5.007002|
+inplace_aassign|||
+instr|||n
+intro_my||5.004000|
+intuit_method|||
+intuit_more|||
+invert|||
+invlist_array|||n
+invlist_clone|||
+invlist_extend|||
+invlist_highest|||n
+invlist_is_iterating|||n
+invlist_iterfinish|||n
+invlist_iterinit|||n
+invlist_iternext|||n
+invlist_max|||n
+invlist_previous_index|||n
+invlist_set_len|||
+invlist_set_previous_index|||n
+invlist_trim|||n
+invoke_exception_hook|||
+io_close|||
+isALNUMC|5.006000||p
+isALNUM_lazy||5.021001|
+isALPHANUMERIC||5.017008|
+isALPHA|||
+isASCII|5.006000||p
+isBLANK|5.006001||p
+isCNTRL|5.006000||p
+isDIGIT|||
+isFOO_lc|||
+isFOO_utf8_lc|||
+isGCB|||n
+isGRAPH|5.006000||p
+isGV_with_GP|5.009004||p
+isIDCONT||5.017008|
+isIDFIRST_lazy||5.021001|
+isIDFIRST|||
+isLOWER|||
+isOCTAL||5.013005|
+isPRINT|5.004000||p
+isPSXSPC|5.006001||p
+isPUNCT|5.006000||p
+isSB|||
+isSPACE|||
+isUPPER|||
+isUTF8_CHAR||5.021001|
+isWB|||
+isWORDCHAR||5.013006|
+isXDIGIT|5.006000||p
+is_an_int|||
+is_ascii_string||5.011000|
+is_handle_constructor|||n
+is_invariant_string||5.021007|n
+is_lvalue_sub||5.007001|
+is_safe_syscall||5.019004|
+is_ssc_worth_it|||n
+is_uni_alnum_lc||5.006000|
+is_uni_alnumc_lc||5.017007|
+is_uni_alnumc||5.017007|
+is_uni_alnum||5.006000|
+is_uni_alpha_lc||5.006000|
+is_uni_alpha||5.006000|
+is_uni_ascii_lc||5.006000|
+is_uni_ascii||5.006000|
+is_uni_blank_lc||5.017002|
+is_uni_blank||5.017002|
+is_uni_cntrl_lc||5.006000|
+is_uni_cntrl||5.006000|
+is_uni_digit_lc||5.006000|
+is_uni_digit||5.006000|
+is_uni_graph_lc||5.006000|
+is_uni_graph||5.006000|
+is_uni_idfirst_lc||5.006000|
+is_uni_idfirst||5.006000|
+is_uni_lower_lc||5.006000|
+is_uni_lower||5.006000|
+is_uni_print_lc||5.006000|
+is_uni_print||5.006000|
+is_uni_punct_lc||5.006000|
+is_uni_punct||5.006000|
+is_uni_space_lc||5.006000|
+is_uni_space||5.006000|
+is_uni_upper_lc||5.006000|
+is_uni_upper||5.006000|
+is_uni_xdigit_lc||5.006000|
+is_uni_xdigit||5.006000|
+is_utf8_alnumc||5.017007|
+is_utf8_alnum||5.006000|
+is_utf8_alpha||5.006000|
+is_utf8_ascii||5.006000|
+is_utf8_blank||5.017002|
+is_utf8_char_buf||5.015008|n
+is_utf8_char||5.006000|n
+is_utf8_cntrl||5.006000|
+is_utf8_common|||
+is_utf8_digit||5.006000|
+is_utf8_graph||5.006000|
+is_utf8_idcont||5.008000|
+is_utf8_idfirst||5.006000|
+is_utf8_lower||5.006000|
+is_utf8_mark||5.006000|
+is_utf8_perl_space||5.011001|
+is_utf8_perl_word||5.011001|
+is_utf8_posix_digit||5.011001|
+is_utf8_print||5.006000|
+is_utf8_punct||5.006000|
+is_utf8_space||5.006000|
+is_utf8_string_loclen||5.009003|n
+is_utf8_string_loc||5.008001|n
+is_utf8_string||5.006001|n
+is_utf8_upper||5.006000|
+is_utf8_xdigit||5.006000|
+is_utf8_xidcont||5.013010|
+is_utf8_xidfirst||5.013010|
+isa_lookup|||
+isinfnansv|||
+isinfnan||5.021004|n
+items|||n
+ix|||n
+jmaybe|||
+join_exact|||
+keyword_plugin_standard|||
+keyword|||
+leave_common|||
+leave_scope|||
+lex_bufutf8||5.011002|
+lex_discard_to||5.011002|
+lex_grow_linestr||5.011002|
+lex_next_chunk||5.011002|
+lex_peek_unichar||5.011002|
+lex_read_space||5.011002|
+lex_read_to||5.011002|
+lex_read_unichar||5.011002|
+lex_start||5.009005|
+lex_stuff_pvn||5.011002|
+lex_stuff_pvs||5.013005|
+lex_stuff_pv||5.013006|
+lex_stuff_sv||5.011002|
+lex_unstuff||5.011002|
+listkids|||
+list|||
+load_module_nocontext|||vn
+load_module|5.006000||pv
+localize|||
+looks_like_bool|||
+looks_like_number|||
+lop|||
+mPUSHi|5.009002||p
+mPUSHn|5.009002||p
+mPUSHp|5.009002||p
+mPUSHs|5.010001||p
+mPUSHu|5.009002||p
+mXPUSHi|5.009002||p
+mXPUSHn|5.009002||p
+mXPUSHp|5.009002||p
+mXPUSHs|5.010001||p
+mXPUSHu|5.009002||p
+magic_clear_all_env|||
+magic_cleararylen_p|||
+magic_clearenv|||
+magic_clearhints|||
+magic_clearhint|||
+magic_clearisa|||
+magic_clearpack|||
+magic_clearsig|||
+magic_copycallchecker|||
+magic_dump||5.006000|
+magic_existspack|||
+magic_freearylen_p|||
+magic_freeovrld|||
+magic_getarylen|||
+magic_getdebugvar|||
+magic_getdefelem|||
+magic_getnkeys|||
+magic_getpack|||
+magic_getpos|||
+magic_getsig|||
+magic_getsubstr|||
+magic_gettaint|||
+magic_getuvar|||
+magic_getvec|||
+magic_get|||
+magic_killbackrefs|||
+magic_methcall1|||
+magic_methcall|||v
+magic_methpack|||
+magic_nextpack|||
+magic_regdata_cnt|||
+magic_regdatum_get|||
+magic_regdatum_set|||
+magic_scalarpack|||
+magic_set_all_env|||
+magic_setarylen|||
+magic_setcollxfrm|||
+magic_setdbline|||
+magic_setdebugvar|||
+magic_setdefelem|||
+magic_setenv|||
+magic_sethint|||
+magic_setisa|||
+magic_setlvref|||
+magic_setmglob|||
+magic_setnkeys|||
+magic_setpack|||
+magic_setpos|||
+magic_setregexp|||
+magic_setsig|||
+magic_setsubstr|||
+magic_settaint|||
+magic_setutf8|||
+magic_setuvar|||
+magic_setvec|||
+magic_set|||
+magic_sizepack|||
+magic_wipepack|||
+make_matcher|||
+make_trie|||
+malloc_good_size|||n
+malloced_size|||n
+malloc||5.007002|n
+markstack_grow||5.021001|
+matcher_matches_sv|||
+maybe_multimagic_gv|||
+mayberelocate|||
+measure_struct|||
+memEQs|5.009005||p
+memEQ|5.004000||p
+memNEs|5.009005||p
+memNE|5.004000||p
+mem_collxfrm|||
+mem_log_common|||n
+mess_alloc|||
+mess_nocontext|||vn
+mess_sv||5.013001|
+mess||5.006000|v
+mfree||5.007002|n
+mg_clear|||
+mg_copy|||
+mg_dup|||
+mg_find_mglob|||
+mg_findext|5.013008||pn
+mg_find|||n
+mg_free_type||5.013006|
+mg_free|||
+mg_get|||
+mg_length||5.005000|
+mg_localize|||
+mg_magical|||n
+mg_set|||
+mg_size||5.005000|
+mini_mktime||5.007002|n
+minus_v|||
+missingterm|||
+mode_from_discipline|||
+modkids|||
+more_bodies|||
+more_sv|||
+moreswitches|||
+move_proto_attr|||
+mro_clean_isarev|||
+mro_gather_and_rename|||
+mro_get_from_name||5.010001|
+mro_get_linear_isa_dfs|||
+mro_get_linear_isa||5.009005|
+mro_get_private_data||5.010001|
+mro_isa_changed_in|||
+mro_meta_dup|||
+mro_meta_init|||
+mro_method_changed_in||5.009005|
+mro_package_moved|||
+mro_register||5.010001|
+mro_set_mro||5.010001|
+mro_set_private_data||5.010001|
+mul128|||
+mulexp10|||n
+multideref_stringify|||
+my_atof2||5.007002|
+my_atof||5.006000|
+my_attrs|||
+my_bcopy|||n
+my_bytes_to_utf8|||n
+my_bzero|||n
+my_chsize|||
+my_clearenv|||
+my_cxt_index|||
+my_cxt_init|||
+my_dirfd||5.009005|n
+my_exit_jump|||
+my_exit|||
+my_failure_exit||5.004000|
+my_fflush_all||5.006000|
+my_fork||5.007003|n
+my_kid|||
+my_lstat_flags|||
+my_lstat||5.021008|
+my_memcmp|||n
+my_memset|||n
+my_pclose||5.003070|
+my_popen_list||5.007001|
+my_popen||5.003070|
+my_setenv|||
+my_setlocale|||
+my_snprintf|5.009004||pvn
+my_socketpair||5.007003|n
+my_sprintf|5.009003||pvn
+my_stat_flags|||
+my_stat||5.021008|
+my_strerror||5.021001|
+my_strftime||5.007002|
+my_strlcat|5.009004||pn
+my_strlcpy|5.009004||pn
+my_unexec|||
+my_vsnprintf||5.009004|n
+need_utf8|||n
+newANONATTRSUB||5.006000|
+newANONHASH|||
+newANONLIST|||
+newANONSUB|||
+newASSIGNOP|||
+newATTRSUB_x|||
+newATTRSUB||5.006000|
+newAVREF|||
+newAV|||
+newBINOP|||
+newCONDOP|||
+newCONSTSUB_flags||5.015006|
+newCONSTSUB|5.004050||p
+newCVREF|||
+newDEFSVOP||5.021006|
+newFORM|||
+newFOROP||5.013007|
+newGIVENOP||5.009003|
+newGIVWHENOP|||
+newGP|||
+newGVOP|||
+newGVREF|||
+newGVgen_flags||5.015004|
+newGVgen|||
+newHVREF|||
+newHVhv||5.005000|
+newHV|||
+newIO|||
+newLISTOP|||
+newLOGOP|||
+newLOOPEX|||
+newLOOPOP|||
+newMETHOP_internal|||
+newMETHOP_named||5.021005|
+newMETHOP||5.021005|
+newMYSUB||5.017004|
+newNULLLIST|||
+newOP|||
+newPADNAMELIST||5.021007|n
+newPADNAMEouter||5.021007|n
+newPADNAMEpvn||5.021007|n
+newPADOP|||
+newPMOP|||
+newPROG|||
+newPVOP|||
+newRANGE|||
+newRV_inc|5.004000||p
+newRV_noinc|5.004000||p
+newRV|||
+newSLICEOP|||
+newSTATEOP|||
+newSTUB|||
+newSUB|||
+newSVOP|||
+newSVREF|||
+newSV_type|5.009005||p
+newSVavdefelem|||
+newSVhek||5.009003|
+newSViv|||
+newSVnv|||
+newSVpadname||5.017004|
+newSVpv_share||5.013006|
+newSVpvf_nocontext|||vn
+newSVpvf||5.004000|v
+newSVpvn_flags|5.010001||p
+newSVpvn_share|5.007001||p
+newSVpvn_utf8|5.010001||p
+newSVpvn|5.004050||p
+newSVpvs_flags|5.010001||p
+newSVpvs_share|5.009003||p
+newSVpvs|5.009003||p
+newSVpv|||
+newSVrv|||
+newSVsv|||
+newSVuv|5.006000||p
+newSV|||
+newUNOP_AUX||5.021007|
+newUNOP|||
+newWHENOP||5.009003|
+newWHILEOP||5.013007|
+newXS_deffile|||
+newXS_flags||5.009004|
+newXS_len_flags|||
+newXSproto||5.006000|
+newXS||5.006000|
+new_collate||5.006000|
+new_constant|||
+new_ctype||5.006000|
+new_he|||
+new_logop|||
+new_numeric||5.006000|
+new_stackinfo||5.005000|
+new_version||5.009000|
+new_warnings_bitfield|||
+next_symbol|||
+nextargv|||
+nextchar|||
+ninstr|||n
+no_bareword_allowed|||
+no_fh_allowed|||
+no_op|||
+noperl_die|||vn
+not_a_number|||
+not_incrementable|||
+nothreadhook||5.008000|
+nuke_stacks|||
+num_overflow|||n
+oopsAV|||
+oopsHV|||
+op_append_elem||5.013006|
+op_append_list||5.013006|
+op_clear|||
+op_contextualize||5.013006|
+op_convert_list||5.021006|
+op_dump||5.006000|
+op_free|||
+op_integerize|||
+op_linklist||5.013006|
+op_lvalue_flags|||
+op_lvalue||5.013007|
+op_null||5.007002|
+op_parent||5.021002|n
+op_prepend_elem||5.013006|
+op_refcnt_dec|||
+op_refcnt_inc|||
+op_refcnt_lock||5.009002|
+op_refcnt_unlock||5.009002|
+op_relocate_sv|||
+op_scope||5.013007|
+op_sibling_splice||5.021002|n
+op_std_init|||
+op_unscope|||
+open_script|||
+openn_cleanup|||
+openn_setup|||
+opmethod_stash|||
+opslab_force_free|||
+opslab_free_nopad|||
+opslab_free|||
+pMY_CXT_|5.007003||p
+pMY_CXT|5.007003||p
+pTHX_|5.006000||p
+pTHX|5.006000||p
+packWARN|5.007003||p
+pack_cat||5.007003|
+pack_rec|||
+package_version|||
+package|||
+packlist||5.008001|
+pad_add_anon||5.008001|
+pad_add_name_pvn||5.015001|
+pad_add_name_pvs||5.015001|
+pad_add_name_pv||5.015001|
+pad_add_name_sv||5.015001|
+pad_add_weakref|||
+pad_alloc_name|||
+pad_alloc|||
+pad_block_start|||
+pad_check_dup|||
+pad_compname_type||5.009003|
+pad_findlex|||
+pad_findmy_pvn||5.015001|
+pad_findmy_pvs||5.015001|
+pad_findmy_pv||5.015001|
+pad_findmy_sv||5.015001|
+pad_fixup_inner_anons|||
+pad_free|||
+pad_leavemy|||
+pad_new||5.008001|
+pad_push|||
+pad_reset|||
+pad_setsv|||
+pad_sv|||
+pad_swipe|||
+pad_tidy||5.008001|
+padlist_dup|||
+padlist_store|||
+padname_dup|||
+padname_free|||
+padnamelist_dup|||
+padnamelist_fetch||5.021007|n
+padnamelist_free|||
+padnamelist_store||5.021007|
+parse_arithexpr||5.013008|
+parse_barestmt||5.013007|
+parse_block||5.013007|
+parse_body|||
+parse_fullexpr||5.013008|
+parse_fullstmt||5.013005|
+parse_gv_stash_name|||
+parse_ident|||
+parse_label||5.013007|
+parse_listexpr||5.013008|
+parse_lparen_question_flags|||
+parse_stmtseq||5.013006|
+parse_subsignature|||
+parse_termexpr||5.013008|
+parse_unicode_opts|||
+parser_dup|||
+parser_free_nexttoke_ops|||
+parser_free|||
+path_is_searchable|||n
+peep|||
+pending_ident|||
+perl_alloc_using|||n
+perl_alloc|||n
+perl_clone_using|||n
+perl_clone|||n
+perl_construct|||n
+perl_destruct||5.007003|n
+perl_free|||n
+perl_parse||5.006000|n
+perl_run|||n
+pidgone|||
+pm_description|||
+pmop_dump||5.006000|
+pmruntime|||
+pmtrans|||
+pop_scope|||
+populate_ANYOF_from_invlist|||
+populate_isa|||v
+pregcomp||5.009005|
+pregexec|||
+pregfree2||5.011000|
+pregfree|||
+prescan_version||5.011004|
+printbuf|||
+printf_nocontext|||vn
+process_special_blocks|||
+ptr_hash|||n
+ptr_table_clear||5.009005|
+ptr_table_fetch||5.009005|
+ptr_table_find|||n
+ptr_table_free||5.009005|
+ptr_table_new||5.009005|
+ptr_table_split||5.009005|
+ptr_table_store||5.009005|
+push_scope|||
+put_charclass_bitmap_innards|||
+put_code_point|||
+put_range|||
+pv_display|5.006000||p
+pv_escape|5.009004||p
+pv_pretty|5.009004||p
+pv_uni_display||5.007003|
+qerror|||
+qsortsvu|||
+quadmath_format_needed|||n
+quadmath_format_single|||n
+re_compile||5.009005|
+re_croak2|||
+re_dup_guts|||
+re_intuit_start||5.019001|
+re_intuit_string||5.006000|
+re_op_compile|||
+realloc||5.007002|n
+reentrant_free||5.021008|
+reentrant_init||5.021008|
+reentrant_retry||5.021008|vn
+reentrant_size||5.021008|
+ref_array_or_hash|||
+refcounted_he_chain_2hv|||
+refcounted_he_fetch_pvn|||
+refcounted_he_fetch_pvs|||
+refcounted_he_fetch_pv|||
+refcounted_he_fetch_sv|||
+refcounted_he_free|||
+refcounted_he_inc|||
+refcounted_he_new_pvn|||
+refcounted_he_new_pvs|||
+refcounted_he_new_pv|||
+refcounted_he_new_sv|||
+refcounted_he_value|||
+refkids|||
+refto|||
+ref||5.021008|
+reg2Lanode|||
+reg_check_named_buff_matched|||n
+reg_named_buff_all||5.009005|
+reg_named_buff_exists||5.009005|
+reg_named_buff_fetch||5.009005|
+reg_named_buff_firstkey||5.009005|
+reg_named_buff_iter|||
+reg_named_buff_nextkey||5.009005|
+reg_named_buff_scalar||5.009005|
+reg_named_buff|||
+reg_node|||
+reg_numbered_buff_fetch|||
+reg_numbered_buff_length|||
+reg_numbered_buff_store|||
+reg_qr_package|||
+reg_recode|||
+reg_scan_name|||
+reg_skipcomment|||n
+reg_temp_copy|||
+reganode|||
+regatom|||
+regbranch|||
+regclass_swash||5.009004|
+regclass|||
+regcppop|||
+regcppush|||
+regcurly|||n
+regdump_extflags|||
+regdump_intflags|||
+regdump||5.005000|
+regdupe_internal|||
+regexec_flags||5.005000|
+regfree_internal||5.009005|
+reghop3|||n
+reghop4|||n
+reghopmaybe3|||n
+reginclass|||
+reginitcolors||5.006000|
+reginsert|||
+regmatch|||
+regnext||5.005000|
+regnode_guts|||
+regpatws|||n
+regpiece|||
+regpposixcc|||
+regprop|||
+regrepeat|||
+regtail_study|||
+regtail|||
+regtry|||
+reg|||
+repeatcpy|||n
+report_evil_fh|||
+report_redefined_cv|||
+report_uninit|||
+report_wrongway_fh|||
+require_pv||5.006000|
+require_tie_mod|||
+restore_magic|||
+rninstr|||n
+rpeep|||
+rsignal_restore|||
+rsignal_save|||
+rsignal_state||5.004000|
+rsignal||5.004000|
+run_body|||
+run_user_filter|||
+runops_debug||5.005000|
+runops_standard||5.005000|
+rv2cv_op_cv||5.013006|
+rvpv_dup|||
+rxres_free|||
+rxres_restore|||
+rxres_save|||
+safesyscalloc||5.006000|n
+safesysfree||5.006000|n
+safesysmalloc||5.006000|n
+safesysrealloc||5.006000|n
+same_dirent|||
+save_I16||5.004000|
+save_I32|||
+save_I8||5.006000|
+save_adelete||5.011000|
+save_aelem_flags||5.011000|
+save_aelem||5.004050|
+save_aliased_sv|||
+save_alloc||5.006000|
+save_aptr|||
+save_ary|||
+save_bool||5.008001|
+save_clearsv|||
+save_delete|||
+save_destructor_x||5.006000|
+save_destructor||5.006000|
+save_freeop|||
+save_freepv|||
+save_freesv|||
+save_generic_pvref||5.006001|
+save_generic_svref||5.005030|
+save_gp||5.004000|
+save_hash|||
+save_hdelete||5.011000|
+save_hek_flags|||n
+save_helem_flags||5.011000|
+save_helem||5.004050|
+save_hints||5.010001|
+save_hptr|||
+save_int|||
+save_item|||
+save_iv||5.005000|
+save_lines|||
+save_list|||
+save_long|||
+save_magic_flags|||
+save_mortalizesv||5.007001|
+save_nogv|||
+save_op||5.005000|
+save_padsv_and_mortalize||5.010001|
+save_pptr|||
+save_pushi32ptr||5.010001|
+save_pushptri32ptr|||
+save_pushptrptr||5.010001|
+save_pushptr||5.010001|
+save_re_context||5.006000|
+save_scalar_at|||
+save_scalar|||
+save_set_svflags||5.009000|
+save_shared_pvref||5.007003|
+save_sptr|||
+save_strlen|||
+save_svref|||
+save_vptr||5.006000|
+savepvn|||
+savepvs||5.009003|
+savepv|||
+savesharedpvn||5.009005|
+savesharedpvs||5.013006|
+savesharedpv||5.007003|
+savesharedsvpv||5.013006|
+savestack_grow_cnt||5.008001|
+savestack_grow|||
+savesvpv||5.009002|
+sawparens|||
+scalar_mod_type|||n
+scalarboolean|||
+scalarkids|||
+scalarseq|||
+scalarvoid|||
+scalar|||
+scan_bin||5.006000|
+scan_commit|||
+scan_const|||
+scan_formline|||
+scan_heredoc|||
+scan_hex|||
+scan_ident|||
+scan_inputsymbol|||
+scan_num||5.007001|
+scan_oct|||
+scan_pat|||
+scan_str|||
+scan_subst|||
+scan_trans|||
+scan_version||5.009001|
+scan_vstring||5.009005|
+scan_word|||
+search_const|||
+seed||5.008001|
+sequence_num|||
+set_ANYOF_arg|||
+set_caret_X|||
+set_context||5.006000|n
+set_numeric_local||5.006000|
+set_numeric_radix||5.006000|
+set_numeric_standard||5.006000|
+set_padlist|||n
+setdefout|||
+share_hek_flags|||
+share_hek||5.004000|
+should_warn_nl|||n
+si_dup|||
+sighandler|||n
+simplify_sort|||
+skipspace_flags|||
+softref2xv|||
+sortcv_stacked|||
+sortcv_xsub|||
+sortcv|||
+sortsv_flags||5.009003|
+sortsv||5.007003|
+space_join_names_mortal|||
+ss_dup|||
+ssc_add_range|||
+ssc_and|||
+ssc_anything|||
+ssc_clear_locale|||n
+ssc_cp_and|||
+ssc_finalize|||
+ssc_init|||
+ssc_intersection|||
+ssc_is_anything|||n
+ssc_is_cp_posixl_init|||n
+ssc_or|||
+ssc_union|||
+stack_grow|||
+start_glob|||
+start_subparse||5.004000|
+stdize_locale|||
+strEQ|||
+strGE|||
+strGT|||
+strLE|||
+strLT|||
+strNE|||
+str_to_version||5.006000|
+strip_return|||
+strnEQ|||
+strnNE|||
+study_chunk|||
+sub_crush_depth|||
+sublex_done|||
+sublex_push|||
+sublex_start|||
+sv_2bool_flags||5.013006|
+sv_2bool|||
+sv_2cv|||
+sv_2io|||
+sv_2iuv_common|||
+sv_2iuv_non_preserve|||
+sv_2iv_flags||5.009001|
+sv_2iv|||
+sv_2mortal|||
+sv_2num|||
+sv_2nv_flags||5.013001|
+sv_2pv_flags|5.007002||p
+sv_2pv_nolen|5.006000||p
+sv_2pvbyte_nolen|5.006000||p
+sv_2pvbyte|5.006000||p
+sv_2pvutf8_nolen||5.006000|
+sv_2pvutf8||5.006000|
+sv_2pv|||
+sv_2uv_flags||5.009001|
+sv_2uv|5.004000||p
+sv_add_arena|||
+sv_add_backref|||
+sv_backoff|||n
+sv_bless|||
+sv_buf_to_ro|||
+sv_buf_to_rw|||
+sv_cat_decode||5.008001|
+sv_catpv_flags||5.013006|
+sv_catpv_mg|5.004050||p
+sv_catpv_nomg||5.013006|
+sv_catpvf_mg_nocontext|||pvn
+sv_catpvf_mg|5.006000|5.004000|pv
+sv_catpvf_nocontext|||vn
+sv_catpvf||5.004000|v
+sv_catpvn_flags||5.007002|
+sv_catpvn_mg|5.004050||p
+sv_catpvn_nomg|5.007002||p
+sv_catpvn|||
+sv_catpvs_flags||5.013006|
+sv_catpvs_mg||5.013006|
+sv_catpvs_nomg||5.013006|
+sv_catpvs|5.009003||p
+sv_catpv|||
+sv_catsv_flags||5.007002|
+sv_catsv_mg|5.004050||p
+sv_catsv_nomg|5.007002||p
+sv_catsv|||
+sv_chop|||
+sv_clean_all|||
+sv_clean_objs|||
+sv_clear|||
+sv_cmp_flags||5.013006|
+sv_cmp_locale_flags||5.013006|
+sv_cmp_locale||5.004000|
+sv_cmp|||
+sv_collxfrm_flags||5.013006|
+sv_collxfrm|||
+sv_copypv_flags||5.017002|
+sv_copypv_nomg||5.017002|
+sv_copypv|||
+sv_dec_nomg||5.013002|
+sv_dec|||
+sv_del_backref|||
+sv_derived_from_pvn||5.015004|
+sv_derived_from_pv||5.015004|
+sv_derived_from_sv||5.015004|
+sv_derived_from||5.004000|
+sv_destroyable||5.010000|
+sv_display|||
+sv_does_pvn||5.015004|
+sv_does_pv||5.015004|
+sv_does_sv||5.015004|
+sv_does||5.009004|
+sv_dump|||
+sv_dup_common|||
+sv_dup_inc_multiple|||
+sv_dup_inc|||
+sv_dup|||
+sv_eq_flags||5.013006|
+sv_eq|||
+sv_exp_grow|||
+sv_force_normal_flags||5.007001|
+sv_force_normal||5.006000|
+sv_free2|||
+sv_free_arenas|||
+sv_free|||
+sv_get_backrefs||5.021008|n
+sv_gets||5.003070|
+sv_grow|||
+sv_i_ncmp|||
+sv_inc_nomg||5.013002|
+sv_inc|||
+sv_insert_flags||5.010001|
+sv_insert|||
+sv_isa|||
+sv_isobject|||
+sv_iv||5.005000|
+sv_kill_backrefs|||
+sv_len_utf8_nomg|||
+sv_len_utf8||5.006000|
+sv_len|||
+sv_magic_portable|5.021008|5.004000|p
+sv_magicext_mglob|||
+sv_magicext||5.007003|
+sv_magic|||
+sv_mortalcopy_flags|||
+sv_mortalcopy|||
+sv_ncmp|||
+sv_newmortal|||
+sv_newref|||
+sv_nolocking||5.007003|
+sv_nosharing||5.007003|
+sv_nounlocking|||
+sv_nv||5.005000|
+sv_only_taint_gmagic|||n
+sv_or_pv_pos_u2b|||
+sv_peek||5.005000|
+sv_pos_b2u_flags||5.019003|
+sv_pos_b2u_midway|||
+sv_pos_b2u||5.006000|
+sv_pos_u2b_cached|||
+sv_pos_u2b_flags||5.011005|
+sv_pos_u2b_forwards|||n
+sv_pos_u2b_midway|||n
+sv_pos_u2b||5.006000|
+sv_pvbyten_force||5.006000|
+sv_pvbyten||5.006000|
+sv_pvbyte||5.006000|
+sv_pvn_force_flags|5.007002||p
+sv_pvn_force|||
+sv_pvn_nomg|5.007003|5.005000|p
+sv_pvn||5.005000|
+sv_pvutf8n_force||5.006000|
+sv_pvutf8n||5.006000|
+sv_pvutf8||5.006000|
+sv_pv||5.006000|
+sv_recode_to_utf8||5.007003|
+sv_reftype|||
+sv_ref|||
+sv_release_COW|||
+sv_replace|||
+sv_report_used|||
+sv_resetpvn|||
+sv_reset|||
+sv_rvweaken||5.006000|
+sv_sethek|||
+sv_setiv_mg|5.004050||p
+sv_setiv|||
+sv_setnv_mg|5.006000||p
+sv_setnv|||
+sv_setpv_mg|5.004050||p
+sv_setpvf_mg_nocontext|||pvn
+sv_setpvf_mg|5.006000|5.004000|pv
+sv_setpvf_nocontext|||vn
+sv_setpvf||5.004000|v
+sv_setpviv_mg||5.008001|
+sv_setpviv||5.008001|
+sv_setpvn_mg|5.004050||p
+sv_setpvn|||
+sv_setpvs_mg||5.013006|
+sv_setpvs|5.009004||p
+sv_setpv|||
+sv_setref_iv|||
+sv_setref_nv|||
+sv_setref_pvn|||
+sv_setref_pvs||5.021008|
+sv_setref_pv|||
+sv_setref_uv||5.007001|
+sv_setsv_cow|||
+sv_setsv_flags||5.007002|
+sv_setsv_mg|5.004050||p
+sv_setsv_nomg|5.007002||p
+sv_setsv|||
+sv_setuv_mg|5.004050||p
+sv_setuv|5.004000||p
+sv_tainted||5.004000|
+sv_taint||5.004000|
+sv_true||5.005000|
+sv_unglob|||
+sv_uni_display||5.007003|
+sv_unmagicext|5.013008||p
+sv_unmagic|||
+sv_unref_flags||5.007001|
+sv_unref|||
+sv_untaint||5.004000|
+sv_upgrade|||
+sv_usepvn_flags||5.009004|
+sv_usepvn_mg|5.004050||p
+sv_usepvn|||
+sv_utf8_decode||5.006000|
+sv_utf8_downgrade||5.006000|
+sv_utf8_encode||5.006000|
+sv_utf8_upgrade_flags_grow||5.011000|
+sv_utf8_upgrade_flags||5.007002|
+sv_utf8_upgrade_nomg||5.007002|
+sv_utf8_upgrade||5.007001|
+sv_uv|5.005000||p
+sv_vcatpvf_mg|5.006000|5.004000|p
+sv_vcatpvfn_flags||5.017002|
+sv_vcatpvfn||5.004000|
+sv_vcatpvf|5.006000|5.004000|p
+sv_vsetpvf_mg|5.006000|5.004000|p
+sv_vsetpvfn||5.004000|
+sv_vsetpvf|5.006000|5.004000|p
+svtype|||
+swallow_bom|||
+swash_fetch||5.007002|
+swash_init||5.006000|
+swash_scan_list_line|||
+swatch_get|||
+sync_locale||5.021004|
+sys_init3||5.010000|n
+sys_init||5.010000|n
+sys_intern_clear|||
+sys_intern_dup|||
+sys_intern_init|||
+sys_term||5.010000|n
+taint_env|||
+taint_proper|||
+tied_method|||v
+tmps_grow_p|||
+toFOLD_uni||5.007003|
+toFOLD_utf8||5.019001|
+toFOLD||5.019001|
+toLOWER_L1||5.019001|
+toLOWER_LC||5.004000|
+toLOWER_uni||5.007003|
+toLOWER_utf8||5.015007|
+toLOWER|||
+toTITLE_uni||5.007003|
+toTITLE_utf8||5.015007|
+toTITLE||5.019001|
+toUPPER_uni||5.007003|
+toUPPER_utf8||5.015007|
+toUPPER|||
+to_byte_substr|||
+to_lower_latin1|||n
+to_uni_fold||5.007003|
+to_uni_lower_lc||5.006000|
+to_uni_lower||5.007003|
+to_uni_title_lc||5.006000|
+to_uni_title||5.007003|
+to_uni_upper_lc||5.006000|
+to_uni_upper||5.007003|
+to_utf8_case||5.007003|
+to_utf8_fold||5.015007|
+to_utf8_lower||5.015007|
+to_utf8_substr|||
+to_utf8_title||5.015007|
+to_utf8_upper||5.015007|
+tokenize_use|||
+tokeq|||
+tokereport|||
+too_few_arguments_pv|||
+too_many_arguments_pv|||
+translate_substr_offsets|||n
+try_amagic_bin|||
+try_amagic_un|||
+uiv_2buf|||n
+unlnk|||
+unpack_rec|||
+unpack_str||5.007003|
+unpackstring||5.008001|
+unreferenced_to_tmp_stack|||
+unshare_hek_or_pvn|||
+unshare_hek|||
+unsharepvn||5.003070|
+unwind_handler_stack|||
+update_debugger_info|||
+upg_version||5.009005|
+usage|||
+utf16_textfilter|||
+utf16_to_utf8_reversed||5.006001|
+utf16_to_utf8||5.006001|
+utf8_distance||5.006000|
+utf8_hop||5.006000|n
+utf8_length||5.007001|
+utf8_mg_len_cache_update|||
+utf8_mg_pos_cache_update|||
+utf8_to_bytes||5.006001|
+utf8_to_uvchr_buf||5.015009|
+utf8_to_uvchr||5.007001|
+utf8_to_uvuni_buf||5.015009|
+utf8_to_uvuni||5.007001|
+utf8n_to_uvchr||5.007001|
+utf8n_to_uvuni||5.007001|
+utilize|||
+uvchr_to_utf8_flags||5.007003|
+uvchr_to_utf8||5.007001|
+uvoffuni_to_utf8_flags||5.019004|
+uvuni_to_utf8_flags||5.007003|
+uvuni_to_utf8||5.007001|
+valid_utf8_to_uvchr||5.015009|
+valid_utf8_to_uvuni||5.015009|
+validate_proto|||
+validate_suid|||
+varname|||
+vcmp||5.009000|
+vcroak||5.006000|
+vdeb||5.007003|
+vform||5.006000|
+visit|||
+vivify_defelem|||
+vivify_ref|||
+vload_module|5.006000||p
+vmess||5.006000|
+vnewSVpvf|5.006000|5.004000|p
+vnormal||5.009002|
+vnumify||5.009000|
+vstringify||5.009000|
+vverify||5.009003|
+vwarner||5.006000|
+vwarn||5.006000|
+wait4pid|||
+warn_nocontext|||vn
+warn_sv||5.013001|
+warner_nocontext|||vn
+warner|5.006000|5.004000|pv
+warn|||v
+was_lvalue_sub|||
+watch|||
+whichsig_pvn||5.015004|
+whichsig_pv||5.015004|
+whichsig_sv||5.015004|
+whichsig|||
+win32_croak_not_implemented|||n
+with_queued_errors|||
+wrap_op_checker||5.015008|
+write_to_stderr|||
+xs_boot_epilog|||
+xs_handshake|||vn
+xs_version_bootcheck|||
+yyerror_pvn|||
+yyerror_pv|||
+yyerror|||
+yylex|||
+yyparse|||
+yyunlex|||
+yywarn|||
+);
+
+if (exists $opt{'list-unsupported'}) {
+  my $f;
+  for $f (sort { lc $a cmp lc $b } keys %API) {
+    next unless $API{$f}{todo};
+    print "$f ", '.'x(40-length($f)), " ", format_version($API{$f}{todo}), "\n";
+  }
+  exit 0;
+}
+
+# Scan for possible replacement candidates
+
+my(%replace, %need, %hints, %warnings, %depends);
+my $replace = 0;
+my($hint, $define, $function);
+
+sub find_api
+{
+  my $code = shift;
+  $code =~ s{
+    / (?: \*[^*]*\*+(?:[^$ccs][^*]*\*+)* / | /[^\r\n]*)
+  | "[^"\\]*(?:\\.[^"\\]*)*"
+  | '[^'\\]*(?:\\.[^'\\]*)*' }{}egsx;
+  grep { exists $API{$_} } $code =~ /(\w+)/mg;
+}
+
+while (<DATA>) {
+  if ($hint) {
+    my $h = $hint->[0] eq 'Hint' ? \%hints : \%warnings;
+    if (m{^\s*\*\s(.*?)\s*$}) {
+      for (@{$hint->[1]}) {
+        $h->{$_} ||= '';  # suppress warning with older perls
+        $h->{$_} .= "$1\n";
+      }
+    }
+    else { undef $hint }
+  }
+
+  $hint = [$1, [split /,?\s+/, $2]]
+      if m{^\s*$rccs\s+(Hint|Warning):\s+(\w+(?:,?\s+\w+)*)\s*$};
+
+  if ($define) {
+    if ($define->[1] =~ /\\$/) {
+      $define->[1] .= $_;
+    }
+    else {
+      if (exists $API{$define->[0]} && $define->[1] !~ /^DPPP_\(/) {
+        my @n = find_api($define->[1]);
+        push @{$depends{$define->[0]}}, @n if @n
+      }
+      undef $define;
+    }
+  }
+
+  $define = [$1, $2] if m{^\s*#\s*define\s+(\w+)(?:\([^)]*\))?\s+(.*)};
+
+  if ($function) {
+    if (/^}/) {
+      if (exists $API{$function->[0]}) {
+        my @n = find_api($function->[1]);
+        push @{$depends{$function->[0]}}, @n if @n
+      }
+      undef $function;
+    }
+    else {
+      $function->[1] .= $_;
+    }
+  }
+
+  $function = [$1, ''] if m{^DPPP_\(my_(\w+)\)};
+
+  $replace     = $1 if m{^\s*$rccs\s+Replace:\s+(\d+)\s+$rcce\s*$};
+  $replace{$2} = $1 if $replace and m{^\s*#\s*define\s+(\w+)(?:\([^)]*\))?\s+(\w+)};
+  $replace{$2} = $1 if m{^\s*#\s*define\s+(\w+)(?:\([^)]*\))?\s+(\w+).*$rccs\s+Replace\s+$rcce};
+  $replace{$1} = $2 if m{^\s*$rccs\s+Replace (\w+) with (\w+)\s+$rcce\s*$};
+
+  if (m{^\s*$rccs\s+(\w+(\s*,\s*\w+)*)\s+depends\s+on\s+(\w+(\s*,\s*\w+)*)\s+$rcce\s*$}) {
+    my @deps = map { s/\s+//g; $_ } split /,/, $3;
+    my $d;
+    for $d (map { s/\s+//g; $_ } split /,/, $1) {
+      push @{$depends{$d}}, @deps;
+    }
+  }
+
+  $need{$1} = 1 if m{^#if\s+defined\(NEED_(\w+)(?:_GLOBAL)?\)};
+}
+
+for (values %depends) {
+  my %s;
+  $_ = [sort grep !$s{$_}++, @$_];
+}
+
+if (exists $opt{'api-info'}) {
+  my $f;
+  my $count = 0;
+  my $match = $opt{'api-info'} =~ m!^/(.*)/$! ? $1 : "^\Q$opt{'api-info'}\E\$";
+  for $f (sort { lc $a cmp lc $b } keys %API) {
+    next unless $f =~ /$match/;
+    print "\n=== $f ===\n\n";
+    my $info = 0;
+    if ($API{$f}{base} || $API{$f}{todo}) {
+      my $base = format_version($API{$f}{base} || $API{$f}{todo});
+      print "Supported at least starting from perl-$base.\n";
+      $info++;
+    }
+    if ($API{$f}{provided}) {
+      my $todo = $API{$f}{todo} ? format_version($API{$f}{todo}) : "5.003";
+      print "Support by $ppport provided back to perl-$todo.\n";
+      print "Support needs to be explicitly requested by NEED_$f.\n" if exists $need{$f};
+      print "Depends on: ", join(', ', @{$depends{$f}}), ".\n" if exists $depends{$f};
+      print "\n$hints{$f}" if exists $hints{$f};
+      print "\nWARNING:\n$warnings{$f}" if exists $warnings{$f};
+      $info++;
+    }
+    print "No portability information available.\n" unless $info;
+    $count++;
+  }
+  $count or print "Found no API matching '$opt{'api-info'}'.";
+  print "\n";
+  exit 0;
+}
+
+if (exists $opt{'list-provided'}) {
+  my $f;
+  for $f (sort { lc $a cmp lc $b } keys %API) {
+    next unless $API{$f}{provided};
+    my @flags;
+    push @flags, 'explicit' if exists $need{$f};
+    push @flags, 'depend'   if exists $depends{$f};
+    push @flags, 'hint'     if exists $hints{$f};
+    push @flags, 'warning'  if exists $warnings{$f};
+    my $flags = @flags ? '  ['.join(', ', @flags).']' : '';
+    print "$f$flags\n";
+  }
+  exit 0;
+}
+
+my @files;
+my @srcext = qw( .xs .c .h .cc .cpp -c.inc -xs.inc );
+my $srcext = join '|', map { quotemeta $_ } @srcext;
+
+if (@ARGV) {
+  my %seen;
+  for (@ARGV) {
+    if (-e) {
+      if (-f) {
+        push @files, $_ unless $seen{$_}++;
+      }
+      else { warn "'$_' is not a file.\n" }
+    }
+    else {
+      my @new = grep { -f } glob $_
+          or warn "'$_' does not exist.\n";
+      push @files, grep { !$seen{$_}++ } @new;
+    }
+  }
+}
+else {
+  eval {
+    require File::Find;
+    File::Find::find(sub {
+      $File::Find::name =~ /($srcext)$/i
+          and push @files, $File::Find::name;
+    }, '.');
+  };
+  if ($@) {
+    @files = map { glob "*$_" } @srcext;
+  }
+}
+
+if (!@ARGV || $opt{filter}) {
+  my(@in, @out);
+  my %xsc = map { /(.*)\.xs$/ ? ("$1.c" => 1, "$1.cc" => 1) : () } @files;
+  for (@files) {
+    my $out = exists $xsc{$_} || /\b\Q$ppport\E$/i || !/($srcext)$/i;
+    push @{ $out ? \@out : \@in }, $_;
+  }
+  if (@ARGV && @out) {
+    warning("Skipping the following files (use --nofilter to avoid this):\n| ", join "\n| ", @out);
+  }
+  @files = @in;
+}
+
+die "No input files given!\n" unless @files;
+
+my(%files, %global, %revreplace);
+%revreplace = reverse %replace;
+my $filename;
+my $patch_opened = 0;
+
+for $filename (@files) {
+  unless (open IN, "<$filename") {
+    warn "Unable to read from $filename: $!\n";
+    next;
+  }
+
+  info("Scanning $filename ...");
+
+  my $c = do { local $/; <IN> };
+  close IN;
+
+  my %file = (orig => $c, changes => 0);
+
+  # Temporarily remove C/XS comments and strings from the code
+  my @ccom;
+
+  $c =~ s{
+    ( ^$HS*\#$HS*include\b[^\r\n]+\b(?:\Q$ppport\E|XSUB\.h)\b[^\r\n]*
+    | ^$HS*\#$HS*(?:define|elif|if(?:def)?)\b[^\r\n]* )
+  | ( ^$HS*\#[^\r\n]*
+    | "[^"\\]*(?:\\.[^"\\]*)*"
+    | '[^'\\]*(?:\\.[^'\\]*)*'
+    | / (?: \*[^*]*\*+(?:[^$ccs][^*]*\*+)* / | /[^\r\n]* ) )
+  }{ defined $2 and push @ccom, $2;
+     defined $1 ? $1 : "$ccs$#ccom$cce" }mgsex;
+
+  $file{ccom} = \@ccom;
+  $file{code} = $c;
+  $file{has_inc_ppport} = $c =~ /^$HS*#$HS*include[^\r\n]+\b\Q$ppport\E\b/m;
+
+  my $func;
+
+  for $func (keys %API) {
+    my $match = $func;
+    $match .= "|$revreplace{$func}" if exists $revreplace{$func};
+    if ($c =~ /\b(?:Perl_)?($match)\b/) {
+      $file{uses_replace}{$1}++ if exists $revreplace{$func} && $1 eq $revreplace{$func};
+      $file{uses_Perl}{$func}++ if $c =~ /\bPerl_$func\b/;
+      if (exists $API{$func}{provided}) {
+        $file{uses_provided}{$func}++;
+        if (!exists $API{$func}{base} || $API{$func}{base} > $opt{'compat-version'}) {
+          $file{uses}{$func}++;
+          my @deps = rec_depend($func);
+          if (@deps) {
+            $file{uses_deps}{$func} = \@deps;
+            for (@deps) {
+              $file{uses}{$_} = 0 unless exists $file{uses}{$_};
+            }
+          }
+          for ($func, @deps) {
+            $file{needs}{$_} = 'static' if exists $need{$_};
+          }
+        }
+      }
+      if (exists $API{$func}{todo} && $API{$func}{todo} > $opt{'compat-version'}) {
+        if ($c =~ /\b$func\b/) {
+          $file{uses_todo}{$func}++;
+        }
+      }
+    }
+  }
+
+  while ($c =~ /^$HS*#$HS*define$HS+(NEED_(\w+?)(_GLOBAL)?)\b/mg) {
+    if (exists $need{$2}) {
+      $file{defined $3 ? 'needed_global' : 'needed_static'}{$2}++;
+    }
+    else { warning("Possibly wrong #define $1 in $filename") }
+  }
+
+  for (qw(uses needs uses_todo needed_global needed_static)) {
+    for $func (keys %{$file{$_}}) {
+      push @{$global{$_}{$func}}, $filename;
+    }
+  }
+
+  $files{$filename} = \%file;
+}
+
+# Globally resolve NEED_'s
+my $need;
+for $need (keys %{$global{needs}}) {
+  if (@{$global{needs}{$need}} > 1) {
+    my @targets = @{$global{needs}{$need}};
+    my @t = grep $files{$_}{needed_global}{$need}, @targets;
+    @targets = @t if @t;
+    @t = grep /\.xs$/i, @targets;
+    @targets = @t if @t;
+    my $target = shift @targets;
+    $files{$target}{needs}{$need} = 'global';
+    for (@{$global{needs}{$need}}) {
+      $files{$_}{needs}{$need} = 'extern' if $_ ne $target;
+    }
+  }
+}
+
+for $filename (@files) {
+  exists $files{$filename} or next;
+
+  info("=== Analyzing $filename ===");
+
+  my %file = %{$files{$filename}};
+  my $func;
+  my $c = $file{code};
+  my $warnings = 0;
+
+  for $func (sort keys %{$file{uses_Perl}}) {
+    if ($API{$func}{varargs}) {
+      unless ($API{$func}{nothxarg}) {
+        my $changes = ($c =~ s{\b(Perl_$func\s*\(\s*)(?!aTHX_?)(\)|[^\s)]*\))}
+                              { $1 . ($2 eq ')' ? 'aTHX' : 'aTHX_ ') . $2 }ge);
+        if ($changes) {
+          warning("Doesn't pass interpreter argument aTHX to Perl_$func");
+          $file{changes} += $changes;
+        }
+      }
+    }
+    else {
+      warning("Uses Perl_$func instead of $func");
+      $file{changes} += ($c =~ s{\bPerl_$func(\s*)\((\s*aTHX_?)?\s*}
+                                {$func$1(}g);
+    }
+  }
+
+  for $func (sort keys %{$file{uses_replace}}) {
+    warning("Uses $func instead of $replace{$func}");
+    $file{changes} += ($c =~ s/\b$func\b/$replace{$func}/g);
+  }
+
+  for $func (sort keys %{$file{uses_provided}}) {
+    if ($file{uses}{$func}) {
+      if (exists $file{uses_deps}{$func}) {
+        diag("Uses $func, which depends on ", join(', ', @{$file{uses_deps}{$func}}));
+      }
+      else {
+        diag("Uses $func");
+      }
+    }
+    $warnings += hint($func);
+  }
+
+  unless ($opt{quiet}) {
+    for $func (sort keys %{$file{uses_todo}}) {
+      print "*** WARNING: Uses $func, which may not be portable below perl ",
+            format_version($API{$func}{todo}), ", even with '$ppport'\n";
+      $warnings++;
+    }
+  }
+
+  for $func (sort keys %{$file{needed_static}}) {
+    my $message = '';
+    if (not exists $file{uses}{$func}) {
+      $message = "No need to define NEED_$func if $func is never used";
+    }
+    elsif (exists $file{needs}{$func} && $file{needs}{$func} ne 'static') {
+      $message = "No need to define NEED_$func when already needed globally";
+    }
+    if ($message) {
+      diag($message);
+      $file{changes} += ($c =~ s/^$HS*#$HS*define$HS+NEED_$func\b.*$LF//mg);
+    }
+  }
+
+  for $func (sort keys %{$file{needed_global}}) {
+    my $message = '';
+    if (not exists $global{uses}{$func}) {
+      $message = "No need to define NEED_${func}_GLOBAL if $func is never used";
+    }
+    elsif (exists $file{needs}{$func}) {
+      if ($file{needs}{$func} eq 'extern') {
+        $message = "No need to define NEED_${func}_GLOBAL when already needed globally";
+      }
+      elsif ($file{needs}{$func} eq 'static') {
+        $message = "No need to define NEED_${func}_GLOBAL when only used in this file";
+      }
+    }
+    if ($message) {
+      diag($message);
+      $file{changes} += ($c =~ s/^$HS*#$HS*define$HS+NEED_${func}_GLOBAL\b.*$LF//mg);
+    }
+  }
+
+  $file{needs_inc_ppport} = keys %{$file{uses}};
+
+  if ($file{needs_inc_ppport}) {
+    my $pp = '';
+
+    for $func (sort keys %{$file{needs}}) {
+      my $type = $file{needs}{$func};
+      next if $type eq 'extern';
+      my $suffix = $type eq 'global' ? '_GLOBAL' : '';
+      unless (exists $file{"needed_$type"}{$func}) {
+        if ($type eq 'global') {
+          diag("Files [@{$global{needs}{$func}}] need $func, adding global request");
+        }
+        else {
+          diag("File needs $func, adding static request");
+        }
+        $pp .= "#define NEED_$func$suffix\n";
+      }
+    }
+
+    if ($pp && ($c =~ s/^(?=$HS*#$HS*define$HS+NEED_\w+)/$pp/m)) {
+      $pp = '';
+      $file{changes}++;
+    }
+
+    unless ($file{has_inc_ppport}) {
+      diag("Needs to include '$ppport'");
+      $pp .= qq(#include "$ppport"\n)
+    }
+
+    if ($pp) {
+      $file{changes} += ($c =~ s/^($HS*#$HS*define$HS+NEED_\w+.*?)^/$1$pp/ms)
+                     || ($c =~ s/^(?=$HS*#$HS*include.*\Q$ppport\E)/$pp/m)
+                     || ($c =~ s/^($HS*#$HS*include.*XSUB.*\s*?)^/$1$pp/m)
+                     || ($c =~ s/^/$pp/);
+    }
+  }
+  else {
+    if ($file{has_inc_ppport}) {
+      diag("No need to include '$ppport'");
+      $file{changes} += ($c =~ s/^$HS*?#$HS*include.*\Q$ppport\E.*?$LF//m);
+    }
+  }
+
+  # put back in our C comments
+  my $ix;
+  my $cppc = 0;
+  my @ccom = @{$file{ccom}};
+  for $ix (0 .. $#ccom) {
+    if (!$opt{cplusplus} && $ccom[$ix] =~ s!^//!!) {
+      $cppc++;
+      $file{changes} += $c =~ s/$rccs$ix$rcce/$ccs$ccom[$ix] $cce/;
+    }
+    else {
+      $c =~ s/$rccs$ix$rcce/$ccom[$ix]/;
+    }
+  }
+
+  if ($cppc) {
+    my $s = $cppc != 1 ? 's' : '';
+    warning("Uses $cppc C++ style comment$s, which is not portable");
+  }
+
+  my $s = $warnings != 1 ? 's' : '';
+  my $warn = $warnings ? " ($warnings warning$s)" : '';
+  info("Analysis completed$warn");
+
+  if ($file{changes}) {
+    if (exists $opt{copy}) {
+      my $newfile = "$filename$opt{copy}";
+      if (-e $newfile) {
+        error("'$newfile' already exists, refusing to write copy of '$filename'");
+      }
+      else {
+        local *F;
+        if (open F, ">$newfile") {
+          info("Writing copy of '$filename' with changes to '$newfile'");
+          print F $c;
+          close F;
+        }
+        else {
+          error("Cannot open '$newfile' for writing: $!");
+        }
+      }
+    }
+    elsif (exists $opt{patch} || $opt{changes}) {
+      if (exists $opt{patch}) {
+        unless ($patch_opened) {
+          if (open PATCH, ">$opt{patch}") {
+            $patch_opened = 1;
+          }
+          else {
+            error("Cannot open '$opt{patch}' for writing: $!");
+            delete $opt{patch};
+            $opt{changes} = 1;
+            goto fallback;
+          }
+        }
+        mydiff(\*PATCH, $filename, $c);
+      }
+      else {
+fallback:
+        info("Suggested changes:");
+        mydiff(\*STDOUT, $filename, $c);
+      }
+    }
+    else {
+      my $s = $file{changes} == 1 ? '' : 's';
+      info("$file{changes} potentially required change$s detected");
+    }
+  }
+  else {
+    info("Looks good");
+  }
+}
+
+close PATCH if $patch_opened;
+
+exit 0;
+
+
+sub try_use { eval "use @_;"; return $@ eq '' }
+
+sub mydiff
+{
+  local *F = shift;
+  my($file, $str) = @_;
+  my $diff;
+
+  if (exists $opt{diff}) {
+    $diff = run_diff($opt{diff}, $file, $str);
+  }
+
+  if (!defined $diff and try_use('Text::Diff')) {
+    $diff = Text::Diff::diff($file, \$str, { STYLE => 'Unified' });
+    $diff = <<HEADER . $diff;
+--- $file
++++ $file.patched
+HEADER
+  }
+
+  if (!defined $diff) {
+    $diff = run_diff('diff -u', $file, $str);
+  }
+
+  if (!defined $diff) {
+    $diff = run_diff('diff', $file, $str);
+  }
+
+  if (!defined $diff) {
+    error("Cannot generate a diff. Please install Text::Diff or use --copy.");
+    return;
+  }
+
+  print F $diff;
+}
+
+sub run_diff
+{
+  my($prog, $file, $str) = @_;
+  my $tmp = 'dppptemp';
+  my $suf = 'aaa';
+  my $diff = '';
+  local *F;
+
+  while (-e "$tmp.$suf") { $suf++ }
+  $tmp = "$tmp.$suf";
+
+  if (open F, ">$tmp") {
+    print F $str;
+    close F;
+
+    if (open F, "$prog $file $tmp |") {
+      while (<F>) {
+        s/\Q$tmp\E/$file.patched/;
+        $diff .= $_;
+      }
+      close F;
+      unlink $tmp;
+      return $diff;
+    }
+
+    unlink $tmp;
+  }
+  else {
+    error("Cannot open '$tmp' for writing: $!");
+  }
+
+  return undef;
+}
+
+sub rec_depend
+{
+  my($func, $seen) = @_;
+  return () unless exists $depends{$func};
+  $seen = {%{$seen||{}}};
+  return () if $seen->{$func}++;
+  my %s;
+  grep !$s{$_}++, map { ($_, rec_depend($_, $seen)) } @{$depends{$func}};
+}
+
+sub parse_version
+{
+  my $ver = shift;
+
+  if ($ver =~ /^(\d+)\.(\d+)\.(\d+)$/) {
+    return ($1, $2, $3);
+  }
+  elsif ($ver !~ /^\d+\.[\d_]+$/) {
+    die "cannot parse version '$ver'\n";
+  }
+
+  $ver =~ s/_//g;
+  $ver =~ s/$/000000/;
+
+  my($r,$v,$s) = $ver =~ /(\d+)\.(\d{3})(\d{3})/;
+
+  $v = int $v;
+  $s = int $s;
+
+  if ($r < 5 || ($r == 5 && $v < 6)) {
+    if ($s % 10) {
+      die "cannot parse version '$ver'\n";
+    }
+  }
+
+  return ($r, $v, $s);
+}
+
+sub format_version
+{
+  my $ver = shift;
+
+  $ver =~ s/$/000000/;
+  my($r,$v,$s) = $ver =~ /(\d+)\.(\d{3})(\d{3})/;
+
+  $v = int $v;
+  $s = int $s;
+
+  if ($r < 5 || ($r == 5 && $v < 6)) {
+    if ($s % 10) {
+      die "invalid version '$ver'\n";
+    }
+    $s /= 10;
+
+    $ver = sprintf "%d.%03d", $r, $v;
+    $s > 0 and $ver .= sprintf "_%02d", $s;
+
+    return $ver;
+  }
+
+  return sprintf "%d.%d.%d", $r, $v, $s;
+}
+
+sub info
+{
+  $opt{quiet} and return;
+  print @_, "\n";
+}
+
+sub diag
+{
+  $opt{quiet} and return;
+  $opt{diag} and print @_, "\n";
+}
+
+sub warning
+{
+  $opt{quiet} and return;
+  print "*** ", @_, "\n";
+}
+
+sub error
+{
+  print "*** ERROR: ", @_, "\n";
+}
+
+my %given_hints;
+my %given_warnings;
+sub hint
+{
+  $opt{quiet} and return;
+  my $func = shift;
+  my $rv = 0;
+  if (exists $warnings{$func} && !$given_warnings{$func}++) {
+    my $warn = $warnings{$func};
+    $warn =~ s!^!*** !mg;
+    print "*** WARNING: $func\n", $warn;
+    $rv++;
+  }
+  if ($opt{hints} && exists $hints{$func} && !$given_hints{$func}++) {
+    my $hint = $hints{$func};
+    $hint =~ s/^/   /mg;
+    print "   --- hint for $func ---\n", $hint;
+  }
+  $rv;
+}
+
+sub usage
+{
+  my($usage) = do { local(@ARGV,$/)=($0); <> } =~ /^=head\d$HS+SYNOPSIS\s*^(.*?)\s*^=/ms;
+  my %M = ( 'I' => '*' );
+  $usage =~ s/^\s*perl\s+\S+/$^X $0/;
+  $usage =~ s/([A-Z])<([^>]+)>/$M{$1}$2$M{$1}/g;
+
+  print <<ENDUSAGE;
+
+Usage: $usage
+
+See perldoc $0 for details.
+
+ENDUSAGE
+
+  exit 2;
+}
+
+sub strip
+{
+  my $self = do { local(@ARGV,$/)=($0); <> };
+  my($copy) = $self =~ /^=head\d\s+COPYRIGHT\s*^(.*?)^=\w+/ms;
+  $copy =~ s/^(?=\S+)/    /gms;
+  $self =~ s/^$HS+Do NOT edit.*?(?=^-)/$copy/ms;
+  $self =~ s/^SKIP.*(?=^__DATA__)/SKIP
+if (\@ARGV && \$ARGV[0] eq '--unstrip') {
+  eval { require Devel::PPPort };
+  \$@ and die "Cannot require Devel::PPPort, please install.\\n";
+  if (eval \$Devel::PPPort::VERSION < $VERSION) {
+    die "$0 was originally generated with Devel::PPPort $VERSION.\\n"
+      . "Your Devel::PPPort is only version \$Devel::PPPort::VERSION.\\n"
+      . "Please install a newer version, or --unstrip will not work.\\n";
+  }
+  Devel::PPPort::WriteFile(\$0);
+  exit 0;
+}
+print <<END;
+
+Sorry, but this is a stripped version of \$0.
+
+To be able to use its original script and doc functionality,
+please try to regenerate this file using:
+
+  \$^X \$0 --unstrip
+
+END
+/ms;
+  my($pl, $c) = $self =~ /(.*^__DATA__)(.*)/ms;
+  $c =~ s{
+    / (?: \*[^*]*\*+(?:[^$ccs][^*]*\*+)* / | /[^\r\n]*)
+  | ( "[^"\\]*(?:\\.[^"\\]*)*"
+    | '[^'\\]*(?:\\.[^'\\]*)*' )
+  | ($HS+) }{ defined $2 ? ' ' : ($1 || '') }gsex;
+  $c =~ s!\s+$!!mg;
+  $c =~ s!^$LF!!mg;
+  $c =~ s!^\s*#\s*!#!mg;
+  $c =~ s!^\s+!!mg;
+
+  open OUT, ">$0" or die "cannot strip $0: $!\n";
+  print OUT "$pl$c\n";
+
+  exit 0;
+}
+
+__DATA__
+*/
+
+#ifndef _P_P_PORTABILITY_H_
+#define _P_P_PORTABILITY_H_
+
+#ifndef DPPP_NAMESPACE
+#  define DPPP_NAMESPACE DPPP_
+#endif
+
+#define DPPP_CAT2(x,y) CAT2(x,y)
+#define DPPP_(name) DPPP_CAT2(DPPP_NAMESPACE, name)
+
+#ifndef PERL_REVISION
+#  if !defined(__PATCHLEVEL_H_INCLUDED__) && !(defined(PATCHLEVEL) && defined(SUBVERSION))
+#    define PERL_PATCHLEVEL_H_IMPLICIT
+#    include <patchlevel.h>
+#  endif
+#  if !(defined(PERL_VERSION) || (defined(SUBVERSION) && defined(PATCHLEVEL)))
+#    include <could_not_find_Perl_patchlevel.h>
+#  endif
+#  ifndef PERL_REVISION
+#    define PERL_REVISION       (5)
+     /* Replace: 1 */
+#    define PERL_VERSION        PATCHLEVEL
+#    define PERL_SUBVERSION     SUBVERSION
+     /* Replace PERL_PATCHLEVEL with PERL_VERSION */
+     /* Replace: 0 */
+#  endif
+#endif
+
+#define _dpppDEC2BCD(dec) ((((dec)/100)<<8)|((((dec)%100)/10)<<4)|((dec)%10))
+#define PERL_BCDVERSION ((_dpppDEC2BCD(PERL_REVISION)<<24)|(_dpppDEC2BCD(PERL_VERSION)<<12)|_dpppDEC2BCD(PERL_SUBVERSION))
+
+/* It is very unlikely that anyone will try to use this with Perl 6
+   (or greater), but who knows.
+ */
+#if PERL_REVISION != 5
+#  error ppport.h only works with Perl version 5
+#endif /* PERL_REVISION != 5 */
+#ifndef dTHR
+#  define dTHR                           dNOOP
+#endif
+#ifndef dTHX
+#  define dTHX                           dNOOP
+#endif
+
+#ifndef dTHXa
+#  define dTHXa(x)                       dNOOP
+#endif
+#ifndef pTHX
+#  define pTHX                           void
+#endif
+
+#ifndef pTHX_
+#  define pTHX_
+#endif
+
+#ifndef aTHX
+#  define aTHX
+#endif
+
+#ifndef aTHX_
+#  define aTHX_
+#endif
+
+#if (PERL_BCDVERSION < 0x5006000)
+#  ifdef USE_THREADS
+#    define aTHXR  thr
+#    define aTHXR_ thr,
+#  else
+#    define aTHXR
+#    define aTHXR_
+#  endif
+#  define dTHXR  dTHR
+#else
+#  define aTHXR  aTHX
+#  define aTHXR_ aTHX_
+#  define dTHXR  dTHX
+#endif
+#ifndef dTHXoa
+#  define dTHXoa(x)                      dTHXa(x)
+#endif
+
+#ifdef I_LIMITS
+#  include <limits.h>
+#endif
+
+#ifndef PERL_UCHAR_MIN
+#  define PERL_UCHAR_MIN ((unsigned char)0)
+#endif
+
+#ifndef PERL_UCHAR_MAX
+#  ifdef UCHAR_MAX
+#    define PERL_UCHAR_MAX ((unsigned char)UCHAR_MAX)
+#  else
+#    ifdef MAXUCHAR
+#      define PERL_UCHAR_MAX ((unsigned char)MAXUCHAR)
+#    else
+#      define PERL_UCHAR_MAX ((unsigned char)~(unsigned)0)
+#    endif
+#  endif
+#endif
+
+#ifndef PERL_USHORT_MIN
+#  define PERL_USHORT_MIN ((unsigned short)0)
+#endif
+
+#ifndef PERL_USHORT_MAX
+#  ifdef USHORT_MAX
+#    define PERL_USHORT_MAX ((unsigned short)USHORT_MAX)
+#  else
+#    ifdef MAXUSHORT
+#      define PERL_USHORT_MAX ((unsigned short)MAXUSHORT)
+#    else
+#      ifdef USHRT_MAX
+#        define PERL_USHORT_MAX ((unsigned short)USHRT_MAX)
+#      else
+#        define PERL_USHORT_MAX ((unsigned short)~(unsigned)0)
+#      endif
+#    endif
+#  endif
+#endif
+
+#ifndef PERL_SHORT_MAX
+#  ifdef SHORT_MAX
+#    define PERL_SHORT_MAX ((short)SHORT_MAX)
+#  else
+#    ifdef MAXSHORT    /* Often used in <values.h> */
+#      define PERL_SHORT_MAX ((short)MAXSHORT)
+#    else
+#      ifdef SHRT_MAX
+#        define PERL_SHORT_MAX ((short)SHRT_MAX)
+#      else
+#        define PERL_SHORT_MAX ((short) (PERL_USHORT_MAX >> 1))
+#      endif
+#    endif
+#  endif
+#endif
+
+#ifndef PERL_SHORT_MIN
+#  ifdef SHORT_MIN
+#    define PERL_SHORT_MIN ((short)SHORT_MIN)
+#  else
+#    ifdef MINSHORT
+#      define PERL_SHORT_MIN ((short)MINSHORT)
+#    else
+#      ifdef SHRT_MIN
+#        define PERL_SHORT_MIN ((short)SHRT_MIN)
+#      else
+#        define PERL_SHORT_MIN (-PERL_SHORT_MAX - ((3 & -1) == 3))
+#      endif
+#    endif
+#  endif
+#endif
+
+#ifndef PERL_UINT_MAX
+#  ifdef UINT_MAX
+#    define PERL_UINT_MAX ((unsigned int)UINT_MAX)
+#  else
+#    ifdef MAXUINT
+#      define PERL_UINT_MAX ((unsigned int)MAXUINT)
+#    else
+#      define PERL_UINT_MAX (~(unsigned int)0)
+#    endif
+#  endif
+#endif
+
+#ifndef PERL_UINT_MIN
+#  define PERL_UINT_MIN ((unsigned int)0)
+#endif
+
+#ifndef PERL_INT_MAX
+#  ifdef INT_MAX
+#    define PERL_INT_MAX ((int)INT_MAX)
+#  else
+#    ifdef MAXINT    /* Often used in <values.h> */
+#      define PERL_INT_MAX ((int)MAXINT)
+#    else
+#      define PERL_INT_MAX ((int)(PERL_UINT_MAX >> 1))
+#    endif
+#  endif
+#endif
+
+#ifndef PERL_INT_MIN
+#  ifdef INT_MIN
+#    define PERL_INT_MIN ((int)INT_MIN)
+#  else
+#    ifdef MININT
+#      define PERL_INT_MIN ((int)MININT)
+#    else
+#      define PERL_INT_MIN (-PERL_INT_MAX - ((3 & -1) == 3))
+#    endif
+#  endif
+#endif
+
+#ifndef PERL_ULONG_MAX
+#  ifdef ULONG_MAX
+#    define PERL_ULONG_MAX ((unsigned long)ULONG_MAX)
+#  else
+#    ifdef MAXULONG
+#      define PERL_ULONG_MAX ((unsigned long)MAXULONG)
+#    else
+#      define PERL_ULONG_MAX (~(unsigned long)0)
+#    endif
+#  endif
+#endif
+
+#ifndef PERL_ULONG_MIN
+#  define PERL_ULONG_MIN ((unsigned long)0L)
+#endif
+
+#ifndef PERL_LONG_MAX
+#  ifdef LONG_MAX
+#    define PERL_LONG_MAX ((long)LONG_MAX)
+#  else
+#    ifdef MAXLONG
+#      define PERL_LONG_MAX ((long)MAXLONG)
+#    else
+#      define PERL_LONG_MAX ((long) (PERL_ULONG_MAX >> 1))
+#    endif
+#  endif
+#endif
+
+#ifndef PERL_LONG_MIN
+#  ifdef LONG_MIN
+#    define PERL_LONG_MIN ((long)LONG_MIN)
+#  else
+#    ifdef MINLONG
+#      define PERL_LONG_MIN ((long)MINLONG)
+#    else
+#      define PERL_LONG_MIN (-PERL_LONG_MAX - ((3 & -1) == 3))
+#    endif
+#  endif
+#endif
+
+#if defined(HAS_QUAD) && (defined(convex) || defined(uts))
+#  ifndef PERL_UQUAD_MAX
+#    ifdef ULONGLONG_MAX
+#      define PERL_UQUAD_MAX ((unsigned long long)ULONGLONG_MAX)
+#    else
+#      ifdef MAXULONGLONG
+#        define PERL_UQUAD_MAX ((unsigned long long)MAXULONGLONG)
+#      else
+#        define PERL_UQUAD_MAX (~(unsigned long long)0)
+#      endif
+#    endif
+#  endif
+
+#  ifndef PERL_UQUAD_MIN
+#    define PERL_UQUAD_MIN ((unsigned long long)0L)
+#  endif
+
+#  ifndef PERL_QUAD_MAX
+#    ifdef LONGLONG_MAX
+#      define PERL_QUAD_MAX ((long long)LONGLONG_MAX)
+#    else
+#      ifdef MAXLONGLONG
+#        define PERL_QUAD_MAX ((long long)MAXLONGLONG)
+#      else
+#        define PERL_QUAD_MAX ((long long) (PERL_UQUAD_MAX >> 1))
+#      endif
+#    endif
+#  endif
+
+#  ifndef PERL_QUAD_MIN
+#    ifdef LONGLONG_MIN
+#      define PERL_QUAD_MIN ((long long)LONGLONG_MIN)
+#    else
+#      ifdef MINLONGLONG
+#        define PERL_QUAD_MIN ((long long)MINLONGLONG)
+#      else
+#        define PERL_QUAD_MIN (-PERL_QUAD_MAX - ((3 & -1) == 3))
+#      endif
+#    endif
+#  endif
+#endif
+
+/* This is based on code from 5.003 perl.h */
+#ifdef HAS_QUAD
+#  ifdef cray
+#ifndef IVTYPE
+#  define IVTYPE                         int
+#endif
+
+#ifndef IV_MIN
+#  define IV_MIN                         PERL_INT_MIN
+#endif
+
+#ifndef IV_MAX
+#  define IV_MAX                         PERL_INT_MAX
+#endif
+
+#ifndef UV_MIN
+#  define UV_MIN                         PERL_UINT_MIN
+#endif
+
+#ifndef UV_MAX
+#  define UV_MAX                         PERL_UINT_MAX
+#endif
+
+#    ifdef INTSIZE
+#ifndef IVSIZE
+#  define IVSIZE                         INTSIZE
+#endif
+
+#    endif
+#  else
+#    if defined(convex) || defined(uts)
+#ifndef IVTYPE
+#  define IVTYPE                         long long
+#endif
+
+#ifndef IV_MIN
+#  define IV_MIN                         PERL_QUAD_MIN
+#endif
+
+#ifndef IV_MAX
+#  define IV_MAX                         PERL_QUAD_MAX
+#endif
+
+#ifndef UV_MIN
+#  define UV_MIN                         PERL_UQUAD_MIN
+#endif
+
+#ifndef UV_MAX
+#  define UV_MAX                         PERL_UQUAD_MAX
+#endif
+
+#      ifdef LONGLONGSIZE
+#ifndef IVSIZE
+#  define IVSIZE                         LONGLONGSIZE
+#endif
+
+#      endif
+#    else
+#ifndef IVTYPE
+#  define IVTYPE                         long
+#endif
+
+#ifndef IV_MIN
+#  define IV_MIN                         PERL_LONG_MIN
+#endif
+
+#ifndef IV_MAX
+#  define IV_MAX                         PERL_LONG_MAX
+#endif
+
+#ifndef UV_MIN
+#  define UV_MIN                         PERL_ULONG_MIN
+#endif
+
+#ifndef UV_MAX
+#  define UV_MAX                         PERL_ULONG_MAX
+#endif
+
+#      ifdef LONGSIZE
+#ifndef IVSIZE
+#  define IVSIZE                         LONGSIZE
+#endif
+
+#      endif
+#    endif
+#  endif
+#ifndef IVSIZE
+#  define IVSIZE                         8
+#endif
+
+#ifndef LONGSIZE
+#  define LONGSIZE                       8
+#endif
+
+#ifndef PERL_QUAD_MIN
+#  define PERL_QUAD_MIN                  IV_MIN
+#endif
+
+#ifndef PERL_QUAD_MAX
+#  define PERL_QUAD_MAX                  IV_MAX
+#endif
+
+#ifndef PERL_UQUAD_MIN
+#  define PERL_UQUAD_MIN                 UV_MIN
+#endif
+
+#ifndef PERL_UQUAD_MAX
+#  define PERL_UQUAD_MAX                 UV_MAX
+#endif
+
+#else
+#ifndef IVTYPE
+#  define IVTYPE                         long
+#endif
+
+#ifndef LONGSIZE
+#  define LONGSIZE                       4
+#endif
+
+#ifndef IV_MIN
+#  define IV_MIN                         PERL_LONG_MIN
+#endif
+
+#ifndef IV_MAX
+#  define IV_MAX                         PERL_LONG_MAX
+#endif
+
+#ifndef UV_MIN
+#  define UV_MIN                         PERL_ULONG_MIN
+#endif
+
+#ifndef UV_MAX
+#  define UV_MAX                         PERL_ULONG_MAX
+#endif
+
+#endif
+
+#ifndef IVSIZE
+#  ifdef LONGSIZE
+#    define IVSIZE LONGSIZE
+#  else
+#    define IVSIZE 4 /* A bold guess, but the best we can make. */
+#  endif
+#endif
+#ifndef UVTYPE
+#  define UVTYPE                         unsigned IVTYPE
+#endif
+
+#ifndef UVSIZE
+#  define UVSIZE                         IVSIZE
+#endif
+#ifndef sv_setuv
+#  define sv_setuv(sv, uv)               \
+               STMT_START {                         \
+                 UV TeMpUv = uv;                    \
+                 if (TeMpUv <= IV_MAX)              \
+                   sv_setiv(sv, TeMpUv);            \
+                 else                               \
+                   sv_setnv(sv, (double)TeMpUv);    \
+               } STMT_END
+#endif
+#ifndef newSVuv
+#  define newSVuv(uv)                    ((uv) <= IV_MAX ? newSViv((IV)uv) : newSVnv((NV)uv))
+#endif
+#ifndef sv_2uv
+#  define sv_2uv(sv)                     ((PL_Sv = (sv)), (UV) (SvNOK(PL_Sv) ? SvNV(PL_Sv) : sv_2nv(PL_Sv)))
+#endif
+
+#ifndef SvUVX
+#  define SvUVX(sv)                      ((UV)SvIVX(sv))
+#endif
+
+#ifndef SvUVXx
+#  define SvUVXx(sv)                     SvUVX(sv)
+#endif
+
+#ifndef SvUV
+#  define SvUV(sv)                       (SvIOK(sv) ? SvUVX(sv) : sv_2uv(sv))
+#endif
+
+#ifndef SvUVx
+#  define SvUVx(sv)                      ((PL_Sv = (sv)), SvUV(PL_Sv))
+#endif
+
+/* Hint: sv_uv
+ * Always use the SvUVx() macro instead of sv_uv().
+ */
+#ifndef sv_uv
+#  define sv_uv(sv)                      SvUVx(sv)
+#endif
+
+#if !defined(SvUOK) && defined(SvIOK_UV)
+#  define SvUOK(sv) SvIOK_UV(sv)
+#endif
+#ifndef XST_mUV
+#  define XST_mUV(i,v)                   (ST(i) = sv_2mortal(newSVuv(v))  )
+#endif
+
+#ifndef XSRETURN_UV
+#  define XSRETURN_UV(v)                 STMT_START { XST_mUV(0,v);  XSRETURN(1); } STMT_END
+#endif
+#ifndef PUSHu
+#  define PUSHu(u)                       STMT_START { sv_setuv(TARG, (UV)(u)); PUSHTARG;  } STMT_END
+#endif
+
+#ifndef XPUSHu
+#  define XPUSHu(u)                      STMT_START { sv_setuv(TARG, (UV)(u)); XPUSHTARG; } STMT_END
+#endif
+
+#ifdef HAS_MEMCMP
+#ifndef memNE
+#  define memNE(s1,s2,l)                 (memcmp(s1,s2,l))
+#endif
+
+#ifndef memEQ
+#  define memEQ(s1,s2,l)                 (!memcmp(s1,s2,l))
+#endif
+
+#else
+#ifndef memNE
+#  define memNE(s1,s2,l)                 (bcmp(s1,s2,l))
+#endif
+
+#ifndef memEQ
+#  define memEQ(s1,s2,l)                 (!bcmp(s1,s2,l))
+#endif
+
+#endif
+#ifndef memEQs
+#  define memEQs(s1, l, s2)              \
+                   (sizeof(s2)-1 == l && memEQ(s1, (s2 ""), (sizeof(s2)-1)))
+#endif
+
+#ifndef memNEs
+#  define memNEs(s1, l, s2)              !memEQs(s1, l, s2)
+#endif
+#ifndef MoveD
+#  define MoveD(s,d,n,t)                 memmove((char*)(d),(char*)(s), (n) * sizeof(t))
+#endif
+
+#ifndef CopyD
+#  define CopyD(s,d,n,t)                 memcpy((char*)(d),(char*)(s), (n) * sizeof(t))
+#endif
+
+#ifdef HAS_MEMSET
+#ifndef ZeroD
+#  define ZeroD(d,n,t)                   memzero((char*)(d), (n) * sizeof(t))
+#endif
+
+#else
+#ifndef ZeroD
+#  define ZeroD(d,n,t)                   ((void)memzero((char*)(d), (n) * sizeof(t)), d)
+#endif
+
+#endif
+#ifndef PoisonWith
+#  define PoisonWith(d,n,t,b)            (void)memset((char*)(d), (U8)(b), (n) * sizeof(t))
+#endif
+
+#ifndef PoisonNew
+#  define PoisonNew(d,n,t)               PoisonWith(d,n,t,0xAB)
+#endif
+
+#ifndef PoisonFree
+#  define PoisonFree(d,n,t)              PoisonWith(d,n,t,0xEF)
+#endif
+
+#ifndef Poison
+#  define Poison(d,n,t)                  PoisonFree(d,n,t)
+#endif
+#ifndef Newx
+#  define Newx(v,n,t)                    New(0,v,n,t)
+#endif
+
+#ifndef Newxc
+#  define Newxc(v,n,t,c)                 Newc(0,v,n,t,c)
+#endif
+
+#ifndef Newxz
+#  define Newxz(v,n,t)                   Newz(0,v,n,t)
+#endif
+
+#ifndef PERL_UNUSED_DECL
+#  ifdef HASATTRIBUTE
+#    if (defined(__GNUC__) && defined(__cplusplus)) || defined(__INTEL_COMPILER)
+#      define PERL_UNUSED_DECL
+#    else
+#      define PERL_UNUSED_DECL __attribute__((unused))
+#    endif
+#  else
+#    define PERL_UNUSED_DECL
+#  endif
+#endif
+
+#ifndef PERL_UNUSED_ARG
+#  if defined(lint) && defined(S_SPLINT_S) /* www.splint.org */
+#    include <note.h>
+#    define PERL_UNUSED_ARG(x) NOTE(ARGUNUSED(x))
+#  else
+#    define PERL_UNUSED_ARG(x) ((void)x)
+#  endif
+#endif
+
+#ifndef PERL_UNUSED_VAR
+#  define PERL_UNUSED_VAR(x) ((void)x)
+#endif
+
+#ifndef PERL_UNUSED_CONTEXT
+#  ifdef USE_ITHREADS
+#    define PERL_UNUSED_CONTEXT PERL_UNUSED_ARG(my_perl)
+#  else
+#    define PERL_UNUSED_CONTEXT
+#  endif
+#endif
+#ifndef NOOP
+#  define NOOP                           /*EMPTY*/(void)0
+#endif
+
+#ifndef dNOOP
+#  define dNOOP                          extern int /*@unused@*/ Perl___notused PERL_UNUSED_DECL
+#endif
+
+#ifndef NVTYPE
+#  if defined(USE_LONG_DOUBLE) && defined(HAS_LONG_DOUBLE)
+#    define NVTYPE long double
+#  else
+#    define NVTYPE double
+#  endif
+typedef NVTYPE NV;
+#endif
+
+#ifndef INT2PTR
+#  if (IVSIZE == PTRSIZE) && (UVSIZE == PTRSIZE)
+#    define PTRV                  UV
+#    define INT2PTR(any,d)        (any)(d)
+#  else
+#    if PTRSIZE == LONGSIZE
+#      define PTRV                unsigned long
+#    else
+#      define PTRV                unsigned
+#    endif
+#    define INT2PTR(any,d)        (any)(PTRV)(d)
+#  endif
+#endif
+
+#ifndef PTR2ul
+#  if PTRSIZE == LONGSIZE
+#    define PTR2ul(p)     (unsigned long)(p)
+#  else
+#    define PTR2ul(p)     INT2PTR(unsigned long,p)
+#  endif
+#endif
+#ifndef PTR2nat
+#  define PTR2nat(p)                     (PTRV)(p)
+#endif
+
+#ifndef NUM2PTR
+#  define NUM2PTR(any,d)                 (any)PTR2nat(d)
+#endif
+
+#ifndef PTR2IV
+#  define PTR2IV(p)                      INT2PTR(IV,p)
+#endif
+
+#ifndef PTR2UV
+#  define PTR2UV(p)                      INT2PTR(UV,p)
+#endif
+
+#ifndef PTR2NV
+#  define PTR2NV(p)                      NUM2PTR(NV,p)
+#endif
+
+#undef START_EXTERN_C
+#undef END_EXTERN_C
+#undef EXTERN_C
+#ifdef __cplusplus
+#  define START_EXTERN_C extern "C" {
+#  define END_EXTERN_C }
+#  define EXTERN_C extern "C"
+#else
+#  define START_EXTERN_C
+#  define END_EXTERN_C
+#  define EXTERN_C extern
+#endif
+
+#if defined(PERL_GCC_PEDANTIC)
+#  ifndef PERL_GCC_BRACE_GROUPS_FORBIDDEN
+#    define PERL_GCC_BRACE_GROUPS_FORBIDDEN
+#  endif
+#endif
+
+#if defined(__GNUC__) && !defined(PERL_GCC_BRACE_GROUPS_FORBIDDEN) && !defined(__cplusplus)
+#  ifndef PERL_USE_GCC_BRACE_GROUPS
+#    define PERL_USE_GCC_BRACE_GROUPS
+#  endif
+#endif
+
+#undef STMT_START
+#undef STMT_END
+#ifdef PERL_USE_GCC_BRACE_GROUPS
+#  define STMT_START    (void)( /* gcc supports ``({ STATEMENTS; })'' */
+#  define STMT_END      )
+#else
+#  if defined(VOIDFLAGS) && (VOIDFLAGS) && (defined(sun) || defined(__sun__)) && !defined(__GNUC__)
+#    define STMT_START  if (1)
+#    define STMT_END    else (void)0
+#  else
+#    define STMT_START  do
+#    define STMT_END    while (0)
+#  endif
+#endif
+#ifndef boolSV
+#  define boolSV(b)                      ((b) ? &PL_sv_yes : &PL_sv_no)
+#endif
+
+/* DEFSV appears first in 5.004_56 */
+#ifndef DEFSV
+#  define DEFSV                          GvSV(PL_defgv)
+#endif
+
+#ifndef SAVE_DEFSV
+#  define SAVE_DEFSV                     SAVESPTR(GvSV(PL_defgv))
+#endif
+
+#ifndef DEFSV_set
+#  define DEFSV_set(sv)                  (DEFSV = (sv))
+#endif
+
+/* Older perls (<=5.003) lack AvFILLp */
+#ifndef AvFILLp
+#  define AvFILLp                        AvFILL
+#endif
+#ifndef ERRSV
+#  define ERRSV                          get_sv("@",FALSE)
+#endif
+
+/* Hint: gv_stashpvn
+ * This function's backport doesn't support the length parameter, but
+ * rather ignores it. Portability can only be ensured if the length
+ * parameter is used for speed reasons, but the length can always be
+ * correctly computed from the string argument.
+ */
+#ifndef gv_stashpvn
+#  define gv_stashpvn(str,len,create)    gv_stashpv(str,create)
+#endif
+
+/* Replace: 1 */
+#ifndef get_cv
+#  define get_cv                         perl_get_cv
+#endif
+
+#ifndef get_sv
+#  define get_sv                         perl_get_sv
+#endif
+
+#ifndef get_av
+#  define get_av                         perl_get_av
+#endif
+
+#ifndef get_hv
+#  define get_hv                         perl_get_hv
+#endif
+
+/* Replace: 0 */
+#ifndef dUNDERBAR
+#  define dUNDERBAR                      dNOOP
+#endif
+
+#ifndef UNDERBAR
+#  define UNDERBAR                       DEFSV
+#endif
+#ifndef dAX
+#  define dAX                            I32 ax = MARK - PL_stack_base + 1
+#endif
+
+#ifndef dITEMS
+#  define dITEMS                         I32 items = SP - MARK
+#endif
+#ifndef dXSTARG
+#  define dXSTARG                        SV * targ = sv_newmortal()
+#endif
+#ifndef dAXMARK
+#  define dAXMARK                        I32 ax = POPMARK; \
+                               register SV ** const mark = PL_stack_base + ax++
+#endif
+#ifndef XSprePUSH
+#  define XSprePUSH                      (sp = PL_stack_base + ax - 1)
+#endif
+
+#if (PERL_BCDVERSION < 0x5005000)
+#  undef XSRETURN
+#  define XSRETURN(off)                                   \
+      STMT_START {                                        \
+          PL_stack_sp = PL_stack_base + ax + ((off) - 1); \
+          return;                                         \
+      } STMT_END
+#endif
+#ifndef XSPROTO
+#  define XSPROTO(name)                  void name(pTHX_ CV* cv)
+#endif
+
+#ifndef SVfARG
+#  define SVfARG(p)                      ((void*)(p))
+#endif
+#ifndef PERL_ABS
+#  define PERL_ABS(x)                    ((x) < 0 ? -(x) : (x))
+#endif
+#ifndef dVAR
+#  define dVAR                           dNOOP
+#endif
+#ifndef SVf
+#  define SVf                            "_"
+#endif
+#ifndef UTF8_MAXBYTES
+#  define UTF8_MAXBYTES                  UTF8_MAXLEN
+#endif
+#ifndef CPERLscope
+#  define CPERLscope(x)                  x
+#endif
+#ifndef PERL_HASH
+#  define PERL_HASH(hash,str,len)        \
+     STMT_START { \
+        const char *s_PeRlHaSh = str; \
+        I32 i_PeRlHaSh = len; \
+        U32 hash_PeRlHaSh = 0; \
+        while (i_PeRlHaSh--) \
+            hash_PeRlHaSh = hash_PeRlHaSh * 33 + *s_PeRlHaSh++; \
+        (hash) = hash_PeRlHaSh; \
+    } STMT_END
+#endif
+
+#ifndef PERLIO_FUNCS_DECL
+# ifdef PERLIO_FUNCS_CONST
+#  define PERLIO_FUNCS_DECL(funcs) const PerlIO_funcs funcs
+#  define PERLIO_FUNCS_CAST(funcs) (PerlIO_funcs*)(funcs)
+# else
+#  define PERLIO_FUNCS_DECL(funcs) PerlIO_funcs funcs
+#  define PERLIO_FUNCS_CAST(funcs) (funcs)
+# endif
+#endif
+
+/* provide these typedefs for older perls */
+#if (PERL_BCDVERSION < 0x5009003)
+
+# ifdef ARGSproto
+typedef OP* (CPERLscope(*Perl_ppaddr_t))(ARGSproto);
+# else
+typedef OP* (CPERLscope(*Perl_ppaddr_t))(pTHX);
+# endif
+
+typedef OP* (CPERLscope(*Perl_check_t)) (pTHX_ OP*);
+
+#endif
+#ifndef isPSXSPC
+#  define isPSXSPC(c)                    (isSPACE(c) || (c) == '\v')
+#endif
+
+#ifndef isBLANK
+#  define isBLANK(c)                     ((c) == ' ' || (c) == '\t')
+#endif
+
+#ifdef EBCDIC
+#ifndef isALNUMC
+#  define isALNUMC(c)                    isalnum(c)
+#endif
+
+#ifndef isASCII
+#  define isASCII(c)                     isascii(c)
+#endif
+
+#ifndef isCNTRL
+#  define isCNTRL(c)                     iscntrl(c)
+#endif
+
+#ifndef isGRAPH
+#  define isGRAPH(c)                     isgraph(c)
+#endif
+
+#ifndef isPRINT
+#  define isPRINT(c)                     isprint(c)
+#endif
+
+#ifndef isPUNCT
+#  define isPUNCT(c)                     ispunct(c)
+#endif
+
+#ifndef isXDIGIT
+#  define isXDIGIT(c)                    isxdigit(c)
+#endif
+
+#else
+# if (PERL_BCDVERSION < 0x5010000)
+/* Hint: isPRINT
+ * The implementation in older perl versions includes all of the
+ * isSPACE() characters, which is wrong. The version provided by
+ * Devel::PPPort always overrides a present buggy version.
+ */
+#  undef isPRINT
+# endif
+
+#ifdef HAS_QUAD
+# ifdef U64TYPE
+#  define WIDEST_UTYPE U64TYPE
+# else
+#  define WIDEST_UTYPE Quad_t
+# endif
+#else
+# define WIDEST_UTYPE U32
+#endif
+#ifndef isALNUMC
+#  define isALNUMC(c)                    (isALPHA(c) || isDIGIT(c))
+#endif
+
+#ifndef isASCII
+#  define isASCII(c)                     ((WIDEST_UTYPE) (c) <= 127)
+#endif
+
+#ifndef isCNTRL
+#  define isCNTRL(c)                     ((WIDEST_UTYPE) (c) < ' ' || (c) == 127)
+#endif
+
+#ifndef isGRAPH
+#  define isGRAPH(c)                     (isALNUM(c) || isPUNCT(c))
+#endif
+
+#ifndef isPRINT
+#  define isPRINT(c)                     (((c) >= 32 && (c) < 127))
+#endif
+
+#ifndef isPUNCT
+#  define isPUNCT(c)                     (((c) >= 33 && (c) <= 47) || ((c) >= 58 && (c) <= 64)  || ((c) >= 91 && (c) <= 96) || ((c) >= 123 && (c) <= 126))
+#endif
+
+#ifndef isXDIGIT
+#  define isXDIGIT(c)                    (isDIGIT(c) || ((c) >= 'a' && (c) <= 'f') || ((c) >= 'A' && (c) <= 'F'))
+#endif
+
+#endif
+
+/* Until we figure out how to support this in older perls... */
+#if (PERL_BCDVERSION >= 0x5008000)
+#ifndef HeUTF8
+#  define HeUTF8(he)                     ((HeKLEN(he) == HEf_SVKEY) ?            \
+                                 SvUTF8(HeKEY_sv(he)) :                 \
+                                 (U32)HeKUTF8(he))
+#endif
+
+#endif
+
+#ifndef PERL_SIGNALS_UNSAFE_FLAG
+
+#define PERL_SIGNALS_UNSAFE_FLAG 0x0001
+
+#if (PERL_BCDVERSION < 0x5008000)
+#  define D_PPP_PERL_SIGNALS_INIT   PERL_SIGNALS_UNSAFE_FLAG
+#else
+#  define D_PPP_PERL_SIGNALS_INIT   0
+#endif
+
+#if defined(NEED_PL_signals)
+static U32 DPPP_(my_PL_signals) = D_PPP_PERL_SIGNALS_INIT;
+#elif defined(NEED_PL_signals_GLOBAL)
+U32 DPPP_(my_PL_signals) = D_PPP_PERL_SIGNALS_INIT;
+#else
+extern U32 DPPP_(my_PL_signals);
+#endif
+#define PL_signals DPPP_(my_PL_signals)
+
+#endif
+
+/* Hint: PL_ppaddr
+ * Calling an op via PL_ppaddr requires passing a context argument
+ * for threaded builds. Since the context argument is different for
+ * 5.005 perls, you can use aTHXR (supplied by ppport.h), which will
+ * automatically be defined as the correct argument.
+ */
+
+#if (PERL_BCDVERSION <= 0x5005005)
+/* Replace: 1 */
+#  define PL_ppaddr                 ppaddr
+#  define PL_no_modify              no_modify
+/* Replace: 0 */
+#endif
+
+#if (PERL_BCDVERSION <= 0x5004005)
+/* Replace: 1 */
+#  define PL_DBsignal               DBsignal
+#  define PL_DBsingle               DBsingle
+#  define PL_DBsub                  DBsub
+#  define PL_DBtrace                DBtrace
+#  define PL_Sv                     Sv
+#  define PL_bufend                 bufend
+#  define PL_bufptr                 bufptr
+#  define PL_compiling              compiling
+#  define PL_copline                copline
+#  define PL_curcop                 curcop
+#  define PL_curstash               curstash
+#  define PL_debstash               debstash
+#  define PL_defgv                  defgv
+#  define PL_diehook                diehook
+#  define PL_dirty                  dirty
+#  define PL_dowarn                 dowarn
+#  define PL_errgv                  errgv
+#  define PL_error_count            error_count
+#  define PL_expect                 expect
+#  define PL_hexdigit               hexdigit
+#  define PL_hints                  hints
+#  define PL_in_my                  in_my
+#  define PL_laststatval            laststatval
+#  define PL_lex_state              lex_state
+#  define PL_lex_stuff              lex_stuff
+#  define PL_linestr                linestr
+#  define PL_na                     na
+#  define PL_perl_destruct_level    perl_destruct_level
+#  define PL_perldb                 perldb
+#  define PL_rsfp_filters           rsfp_filters
+#  define PL_rsfp                   rsfp
+#  define PL_stack_base             stack_base
+#  define PL_stack_sp               stack_sp
+#  define PL_statcache              statcache
+#  define PL_stdingv                stdingv
+#  define PL_sv_arenaroot           sv_arenaroot
+#  define PL_sv_no                  sv_no
+#  define PL_sv_undef               sv_undef
+#  define PL_sv_yes                 sv_yes
+#  define PL_tainted                tainted
+#  define PL_tainting               tainting
+#  define PL_tokenbuf               tokenbuf
+/* Replace: 0 */
+#endif
+
+/* Warning: PL_parser
+ * For perl versions earlier than 5.9.5, this is an always
+ * non-NULL dummy. Also, it cannot be dereferenced. Don't
+ * use it if you can avoid is and unless you absolutely know
+ * what you're doing.
+ * If you always check that PL_parser is non-NULL, you can
+ * define DPPP_PL_parser_NO_DUMMY to avoid the creation of
+ * a dummy parser structure.
+ */
+
+#if (PERL_BCDVERSION >= 0x5009005)
+# ifdef DPPP_PL_parser_NO_DUMMY
+#  define D_PPP_my_PL_parser_var(var) ((PL_parser ? PL_parser : \
+                (croak("panic: PL_parser == NULL in %s:%d", \
+                       __FILE__, __LINE__), (yy_parser *) NULL))->var)
+# else
+#  ifdef DPPP_PL_parser_NO_DUMMY_WARNING
+#   define D_PPP_parser_dummy_warning(var)
+#  else
+#   define D_PPP_parser_dummy_warning(var) \
+             warn("warning: dummy PL_" #var " used in %s:%d", __FILE__, __LINE__),
+#  endif
+#  define D_PPP_my_PL_parser_var(var) ((PL_parser ? PL_parser : \
+                (D_PPP_parser_dummy_warning(var) &DPPP_(dummy_PL_parser)))->var)
+#if defined(NEED_PL_parser)
+static yy_parser DPPP_(dummy_PL_parser);
+#elif defined(NEED_PL_parser_GLOBAL)
+yy_parser DPPP_(dummy_PL_parser);
+#else
+extern yy_parser DPPP_(dummy_PL_parser);
+#endif
+
+# endif
+
+/* PL_expect, PL_copline, PL_rsfp, PL_rsfp_filters, PL_linestr, PL_bufptr, PL_bufend, PL_lex_state, PL_lex_stuff, PL_tokenbuf depends on PL_parser */
+/* Warning: PL_expect, PL_copline, PL_rsfp, PL_rsfp_filters, PL_linestr, PL_bufptr, PL_bufend, PL_lex_state, PL_lex_stuff, PL_tokenbuf
+ * Do not use this variable unless you know exactly what you're
+ * doint. It is internal to the perl parser and may change or even
+ * be removed in the future. As of perl 5.9.5, you have to check
+ * for (PL_parser != NULL) for this variable to have any effect.
+ * An always non-NULL PL_parser dummy is provided for earlier
+ * perl versions.
+ * If PL_parser is NULL when you try to access this variable, a
+ * dummy is being accessed instead and a warning is issued unless
+ * you define DPPP_PL_parser_NO_DUMMY_WARNING.
+ * If DPPP_PL_parser_NO_DUMMY is defined, the code trying to access
+ * this variable will croak with a panic message.
+ */
+
+# define PL_expect         D_PPP_my_PL_parser_var(expect)
+# define PL_copline        D_PPP_my_PL_parser_var(copline)
+# define PL_rsfp           D_PPP_my_PL_parser_var(rsfp)
+# define PL_rsfp_filters   D_PPP_my_PL_parser_var(rsfp_filters)
+# define PL_linestr        D_PPP_my_PL_parser_var(linestr)
+# define PL_bufptr         D_PPP_my_PL_parser_var(bufptr)
+# define PL_bufend         D_PPP_my_PL_parser_var(bufend)
+# define PL_lex_state      D_PPP_my_PL_parser_var(lex_state)
+# define PL_lex_stuff      D_PPP_my_PL_parser_var(lex_stuff)
+# define PL_tokenbuf       D_PPP_my_PL_parser_var(tokenbuf)
+# define PL_in_my          D_PPP_my_PL_parser_var(in_my)
+# define PL_in_my_stash    D_PPP_my_PL_parser_var(in_my_stash)
+# define PL_error_count    D_PPP_my_PL_parser_var(error_count)
+
+
+#else
+
+/* ensure that PL_parser != NULL and cannot be dereferenced */
+# define PL_parser         ((void *) 1)
+
+#endif
+#ifndef mPUSHs
+#  define mPUSHs(s)                      PUSHs(sv_2mortal(s))
+#endif
+
+#ifndef PUSHmortal
+#  define PUSHmortal                     PUSHs(sv_newmortal())
+#endif
+
+#ifndef mPUSHp
+#  define mPUSHp(p,l)                    sv_setpvn(PUSHmortal, (p), (l))
+#endif
+
+#ifndef mPUSHn
+#  define mPUSHn(n)                      sv_setnv(PUSHmortal, (NV)(n))
+#endif
+
+#ifndef mPUSHi
+#  define mPUSHi(i)                      sv_setiv(PUSHmortal, (IV)(i))
+#endif
+
+#ifndef mPUSHu
+#  define mPUSHu(u)                      sv_setuv(PUSHmortal, (UV)(u))
+#endif
+#ifndef mXPUSHs
+#  define mXPUSHs(s)                     XPUSHs(sv_2mortal(s))
+#endif
+
+#ifndef XPUSHmortal
+#  define XPUSHmortal                    XPUSHs(sv_newmortal())
+#endif
+
+#ifndef mXPUSHp
+#  define mXPUSHp(p,l)                   STMT_START { EXTEND(sp,1); sv_setpvn(PUSHmortal, (p), (l)); } STMT_END
+#endif
+
+#ifndef mXPUSHn
+#  define mXPUSHn(n)                     STMT_START { EXTEND(sp,1); sv_setnv(PUSHmortal, (NV)(n)); } STMT_END
+#endif
+
+#ifndef mXPUSHi
+#  define mXPUSHi(i)                     STMT_START { EXTEND(sp,1); sv_setiv(PUSHmortal, (IV)(i)); } STMT_END
+#endif
+
+#ifndef mXPUSHu
+#  define mXPUSHu(u)                     STMT_START { EXTEND(sp,1); sv_setuv(PUSHmortal, (UV)(u)); } STMT_END
+#endif
+
+/* Replace: 1 */
+#ifndef call_sv
+#  define call_sv                        perl_call_sv
+#endif
+
+#ifndef call_pv
+#  define call_pv                        perl_call_pv
+#endif
+
+#ifndef call_argv
+#  define call_argv                      perl_call_argv
+#endif
+
+#ifndef call_method
+#  define call_method                    perl_call_method
+#endif
+#ifndef eval_sv
+#  define eval_sv                        perl_eval_sv
+#endif
+
+/* Replace: 0 */
+#ifndef PERL_LOADMOD_DENY
+#  define PERL_LOADMOD_DENY              0x1
+#endif
+
+#ifndef PERL_LOADMOD_NOIMPORT
+#  define PERL_LOADMOD_NOIMPORT          0x2
+#endif
+
+#ifndef PERL_LOADMOD_IMPORT_OPS
+#  define PERL_LOADMOD_IMPORT_OPS        0x4
+#endif
+
+#ifndef G_METHOD
+# define G_METHOD               64
+# ifdef call_sv
+#  undef call_sv
+# endif
+# if (PERL_BCDVERSION < 0x5006000)
+#  define call_sv(sv, flags)  ((flags) & G_METHOD ? perl_call_method((char *) SvPV_nolen_const(sv), \
+                                (flags) & ~G_METHOD) : perl_call_sv(sv, flags))
+# else
+#  define call_sv(sv, flags)  ((flags) & G_METHOD ? Perl_call_method(aTHX_ (char *) SvPV_nolen_const(sv), \
+                                (flags) & ~G_METHOD) : Perl_call_sv(aTHX_ sv, flags))
+# endif
+#endif
+
+/* Replace perl_eval_pv with eval_pv */
+
+#ifndef eval_pv
+#if defined(NEED_eval_pv)
+static SV* DPPP_(my_eval_pv)(char *p, I32 croak_on_error);
+static
+#else
+extern SV* DPPP_(my_eval_pv)(char *p, I32 croak_on_error);
+#endif
+
+#ifdef eval_pv
+#  undef eval_pv
+#endif
+#define eval_pv(a,b) DPPP_(my_eval_pv)(aTHX_ a,b)
+#define Perl_eval_pv DPPP_(my_eval_pv)
+
+#if defined(NEED_eval_pv) || defined(NEED_eval_pv_GLOBAL)
+
+SV*
+DPPP_(my_eval_pv)(char *p, I32 croak_on_error)
+{
+    dSP;
+    SV* sv = newSVpv(p, 0);
+
+    PUSHMARK(sp);
+    eval_sv(sv, G_SCALAR);
+    SvREFCNT_dec(sv);
+
+    SPAGAIN;
+    sv = POPs;
+    PUTBACK;
+
+    if (croak_on_error && SvTRUE(GvSV(errgv)))
+        croak(SvPVx(GvSV(errgv), na));
+
+    return sv;
+}
+
+#endif
+#endif
+
+#ifndef vload_module
+#if defined(NEED_vload_module)
+static void DPPP_(my_vload_module)(U32 flags, SV *name, SV *ver, va_list *args);
+static
+#else
+extern void DPPP_(my_vload_module)(U32 flags, SV *name, SV *ver, va_list *args);
+#endif
+
+#ifdef vload_module
+#  undef vload_module
+#endif
+#define vload_module(a,b,c,d) DPPP_(my_vload_module)(aTHX_ a,b,c,d)
+#define Perl_vload_module DPPP_(my_vload_module)
+
+#if defined(NEED_vload_module) || defined(NEED_vload_module_GLOBAL)
+
+void
+DPPP_(my_vload_module)(U32 flags, SV *name, SV *ver, va_list *args)
+{
+    dTHR;
+    dVAR;
+    OP *veop, *imop;
+
+    OP * const modname = newSVOP(OP_CONST, 0, name);
+    /* 5.005 has a somewhat hacky force_normal that doesn't croak on
+       SvREADONLY() if PL_compling is true. Current perls take care in
+       ck_require() to correctly turn off SvREADONLY before calling
+       force_normal_flags(). This seems a better fix than fudging PL_compling
+     */
+    SvREADONLY_off(((SVOP*)modname)->op_sv);
+    modname->op_private |= OPpCONST_BARE;
+    if (ver) {
+        veop = newSVOP(OP_CONST, 0, ver);
+    }
+    else
+        veop = NULL;
+    if (flags & PERL_LOADMOD_NOIMPORT) {
+        imop = sawparens(newNULLLIST());
+    }
+    else if (flags & PERL_LOADMOD_IMPORT_OPS) {
+        imop = va_arg(*args, OP*);
+    }
+    else {
+        SV *sv;
+        imop = NULL;
+        sv = va_arg(*args, SV*);
+        while (sv) {
+            imop = append_elem(OP_LIST, imop, newSVOP(OP_CONST, 0, sv));
+            sv = va_arg(*args, SV*);
+        }
+    }
+    {
+        const line_t ocopline = PL_copline;
+        COP * const ocurcop = PL_curcop;
+        const int oexpect = PL_expect;
+
+#if (PERL_BCDVERSION >= 0x5004000)
+        utilize(!(flags & PERL_LOADMOD_DENY), start_subparse(FALSE, 0),
+                veop, modname, imop);
+#elif (PERL_BCDVERSION > 0x5003000)
+        utilize(!(flags & PERL_LOADMOD_DENY), start_subparse(),
+                veop, modname, imop);
+#else
+        utilize(!(flags & PERL_LOADMOD_DENY), start_subparse(),
+                modname, imop);
+#endif
+        PL_expect = oexpect;
+        PL_copline = ocopline;
+        PL_curcop = ocurcop;
+    }
+}
+
+#endif
+#endif
+
+#ifndef load_module
+#if defined(NEED_load_module)
+static void DPPP_(my_load_module)(U32 flags, SV *name, SV *ver, ...);
+static
+#else
+extern void DPPP_(my_load_module)(U32 flags, SV *name, SV *ver, ...);
+#endif
+
+#ifdef load_module
+#  undef load_module
+#endif
+#define load_module DPPP_(my_load_module)
+#define Perl_load_module DPPP_(my_load_module)
+
+#if defined(NEED_load_module) || defined(NEED_load_module_GLOBAL)
+
+void
+DPPP_(my_load_module)(U32 flags, SV *name, SV *ver, ...)
+{
+    va_list args;
+    va_start(args, ver);
+    vload_module(flags, name, ver, &args);
+    va_end(args);
+}
+
+#endif
+#endif
+#ifndef newRV_inc
+#  define newRV_inc(sv)                  newRV(sv)   /* Replace */
+#endif
+
+#ifndef newRV_noinc
+#if defined(NEED_newRV_noinc)
+static SV * DPPP_(my_newRV_noinc)(SV *sv);
+static
+#else
+extern SV * DPPP_(my_newRV_noinc)(SV *sv);
+#endif
+
+#ifdef newRV_noinc
+#  undef newRV_noinc
+#endif
+#define newRV_noinc(a) DPPP_(my_newRV_noinc)(aTHX_ a)
+#define Perl_newRV_noinc DPPP_(my_newRV_noinc)
+
+#if defined(NEED_newRV_noinc) || defined(NEED_newRV_noinc_GLOBAL)
+SV *
+DPPP_(my_newRV_noinc)(SV *sv)
+{
+  SV *rv = (SV *)newRV(sv);
+  SvREFCNT_dec(sv);
+  return rv;
+}
+#endif
+#endif
+
+/* Hint: newCONSTSUB
+ * Returns a CV* as of perl-5.7.1. This return value is not supported
+ * by Devel::PPPort.
+ */
+
+/* newCONSTSUB from IO.xs is in the core starting with 5.004_63 */
+#if (PERL_BCDVERSION < 0x5004063) && (PERL_BCDVERSION != 0x5004005)
+#if defined(NEED_newCONSTSUB)
+static void DPPP_(my_newCONSTSUB)(HV *stash, const char *name, SV *sv);
+static
+#else
+extern void DPPP_(my_newCONSTSUB)(HV *stash, const char *name, SV *sv);
+#endif
+
+#ifdef newCONSTSUB
+#  undef newCONSTSUB
+#endif
+#define newCONSTSUB(a,b,c) DPPP_(my_newCONSTSUB)(aTHX_ a,b,c)
+#define Perl_newCONSTSUB DPPP_(my_newCONSTSUB)
+
+#if defined(NEED_newCONSTSUB) || defined(NEED_newCONSTSUB_GLOBAL)
+
+/* This is just a trick to avoid a dependency of newCONSTSUB on PL_parser */
+/* (There's no PL_parser in perl < 5.005, so this is completely safe)     */
+#define D_PPP_PL_copline PL_copline
+
+void
+DPPP_(my_newCONSTSUB)(HV *stash, const char *name, SV *sv)
+{
+        U32 oldhints = PL_hints;
+        HV *old_cop_stash = PL_curcop->cop_stash;
+        HV *old_curstash = PL_curstash;
+        line_t oldline = PL_curcop->cop_line;
+        PL_curcop->cop_line = D_PPP_PL_copline;
+
+        PL_hints &= ~HINT_BLOCK_SCOPE;
+        if (stash)
+                PL_curstash = PL_curcop->cop_stash = stash;
+
+        newSUB(
+
+#if   (PERL_BCDVERSION < 0x5003022)
+                start_subparse(),
+#elif (PERL_BCDVERSION == 0x5003022)
+                start_subparse(0),
+#else  /* 5.003_23  onwards */
+                start_subparse(FALSE, 0),
+#endif
+
+                newSVOP(OP_CONST, 0, newSVpv((char *) name, 0)),
+                newSVOP(OP_CONST, 0, &PL_sv_no),   /* SvPV(&PL_sv_no) == "" -- GMB */
+                newSTATEOP(0, Nullch, newSVOP(OP_CONST, 0, sv))
+        );
+
+        PL_hints = oldhints;
+        PL_curcop->cop_stash = old_cop_stash;
+        PL_curstash = old_curstash;
+        PL_curcop->cop_line = oldline;
+}
+#endif
+#endif
+
+/*
+ * Boilerplate macros for initializing and accessing interpreter-local
+ * data from C.  All statics in extensions should be reworked to use
+ * this, if you want to make the extension thread-safe.  See ext/re/re.xs
+ * for an example of the use of these macros.
+ *
+ * Code that uses these macros is responsible for the following:
+ * 1. #define MY_CXT_KEY to a unique string, e.g. "DynaLoader_guts"
+ * 2. Declare a typedef named my_cxt_t that is a structure that contains
+ *    all the data that needs to be interpreter-local.
+ * 3. Use the START_MY_CXT macro after the declaration of my_cxt_t.
+ * 4. Use the MY_CXT_INIT macro such that it is called exactly once
+ *    (typically put in the BOOT: section).
+ * 5. Use the members of the my_cxt_t structure everywhere as
+ *    MY_CXT.member.
+ * 6. Use the dMY_CXT macro (a declaration) in all the functions that
+ *    access MY_CXT.
+ */
+
+#if defined(MULTIPLICITY) || defined(PERL_OBJECT) || \
+    defined(PERL_CAPI)    || defined(PERL_IMPLICIT_CONTEXT)
+
+#ifndef START_MY_CXT
+
+/* This must appear in all extensions that define a my_cxt_t structure,
+ * right after the definition (i.e. at file scope).  The non-threads
+ * case below uses it to declare the data as static. */
+#define START_MY_CXT
+
+#if (PERL_BCDVERSION < 0x5004068)
+/* Fetches the SV that keeps the per-interpreter data. */
+#define dMY_CXT_SV \
+        SV *my_cxt_sv = get_sv(MY_CXT_KEY, FALSE)
+#else /* >= perl5.004_68 */
+#define dMY_CXT_SV \
+        SV *my_cxt_sv = *hv_fetch(PL_modglobal, MY_CXT_KEY,             \
+                                  sizeof(MY_CXT_KEY)-1, TRUE)
+#endif /* < perl5.004_68 */
+
+/* This declaration should be used within all functions that use the
+ * interpreter-local data. */
+#define dMY_CXT \
+        dMY_CXT_SV;                                                     \
+        my_cxt_t *my_cxtp = INT2PTR(my_cxt_t*,SvUV(my_cxt_sv))
+
+/* Creates and zeroes the per-interpreter data.
+ * (We allocate my_cxtp in a Perl SV so that it will be released when
+ * the interpreter goes away.) */
+#define MY_CXT_INIT \
+        dMY_CXT_SV;                                                     \
+        /* newSV() allocates one more than needed */                    \
+        my_cxt_t *my_cxtp = (my_cxt_t*)SvPVX(newSV(sizeof(my_cxt_t)-1));\
+        Zero(my_cxtp, 1, my_cxt_t);                                     \
+        sv_setuv(my_cxt_sv, PTR2UV(my_cxtp))
+
+/* This macro must be used to access members of the my_cxt_t structure.
+ * e.g. MYCXT.some_data */
+#define MY_CXT          (*my_cxtp)
+
+/* Judicious use of these macros can reduce the number of times dMY_CXT
+ * is used.  Use is similar to pTHX, aTHX etc. */
+#define pMY_CXT         my_cxt_t *my_cxtp
+#define pMY_CXT_        pMY_CXT,
+#define _pMY_CXT        ,pMY_CXT
+#define aMY_CXT         my_cxtp
+#define aMY_CXT_        aMY_CXT,
+#define _aMY_CXT        ,aMY_CXT
+
+#endif /* START_MY_CXT */
+
+#ifndef MY_CXT_CLONE
+/* Clones the per-interpreter data. */
+#define MY_CXT_CLONE \
+        dMY_CXT_SV;                                                     \
+        my_cxt_t *my_cxtp = (my_cxt_t*)SvPVX(newSV(sizeof(my_cxt_t)-1));\
+        Copy(INT2PTR(my_cxt_t*, SvUV(my_cxt_sv)), my_cxtp, 1, my_cxt_t);\
+        sv_setuv(my_cxt_sv, PTR2UV(my_cxtp))
+#endif
+
+#else /* single interpreter */
+
+#ifndef START_MY_CXT
+
+#define START_MY_CXT    static my_cxt_t my_cxt;
+#define dMY_CXT_SV      dNOOP
+#define dMY_CXT         dNOOP
+#define MY_CXT_INIT     NOOP
+#define MY_CXT          my_cxt
+
+#define pMY_CXT         void
+#define pMY_CXT_
+#define _pMY_CXT
+#define aMY_CXT
+#define aMY_CXT_
+#define _aMY_CXT
+
+#endif /* START_MY_CXT */
+
+#ifndef MY_CXT_CLONE
+#define MY_CXT_CLONE    NOOP
+#endif
+
+#endif
+
+#ifndef IVdf
+#  if IVSIZE == LONGSIZE
+#    define     IVdf      "ld"
+#    define     UVuf      "lu"
+#    define     UVof      "lo"
+#    define     UVxf      "lx"
+#    define     UVXf      "lX"
+#  elif IVSIZE == INTSIZE
+#    define   IVdf      "d"
+#    define   UVuf      "u"
+#    define   UVof      "o"
+#    define   UVxf      "x"
+#    define   UVXf      "X"
+#  else
+#    error "cannot define IV/UV formats"
+#  endif
+#endif
+
+#ifndef NVef
+#  if defined(USE_LONG_DOUBLE) && defined(HAS_LONG_DOUBLE) && \
+      defined(PERL_PRIfldbl) && (PERL_BCDVERSION != 0x5006000)
+            /* Not very likely, but let's try anyway. */
+#    define NVef          PERL_PRIeldbl
+#    define NVff          PERL_PRIfldbl
+#    define NVgf          PERL_PRIgldbl
+#  else
+#    define NVef          "e"
+#    define NVff          "f"
+#    define NVgf          "g"
+#  endif
+#endif
+
+#ifndef SvREFCNT_inc
+#  ifdef PERL_USE_GCC_BRACE_GROUPS
+#    define SvREFCNT_inc(sv)            \
+      ({                                \
+          SV * const _sv = (SV*)(sv);   \
+          if (_sv)                      \
+               (SvREFCNT(_sv))++;       \
+          _sv;                          \
+      })
+#  else
+#    define SvREFCNT_inc(sv)    \
+          ((PL_Sv=(SV*)(sv)) ? (++(SvREFCNT(PL_Sv)),PL_Sv) : NULL)
+#  endif
+#endif
+
+#ifndef SvREFCNT_inc_simple
+#  ifdef PERL_USE_GCC_BRACE_GROUPS
+#    define SvREFCNT_inc_simple(sv)     \
+      ({                                        \
+          if (sv)                               \
+               (SvREFCNT(sv))++;                \
+          (SV *)(sv);                           \
+      })
+#  else
+#    define SvREFCNT_inc_simple(sv) \
+          ((sv) ? (SvREFCNT(sv)++,(SV*)(sv)) : NULL)
+#  endif
+#endif
+
+#ifndef SvREFCNT_inc_NN
+#  ifdef PERL_USE_GCC_BRACE_GROUPS
+#    define SvREFCNT_inc_NN(sv)         \
+      ({                                        \
+          SV * const _sv = (SV*)(sv);   \
+          SvREFCNT(_sv)++;              \
+          _sv;                          \
+      })
+#  else
+#    define SvREFCNT_inc_NN(sv) \
+          (PL_Sv=(SV*)(sv),++(SvREFCNT(PL_Sv)),PL_Sv)
+#  endif
+#endif
+
+#ifndef SvREFCNT_inc_void
+#  ifdef PERL_USE_GCC_BRACE_GROUPS
+#    define SvREFCNT_inc_void(sv)               \
+      ({                                        \
+          SV * const _sv = (SV*)(sv);   \
+          if (_sv)                      \
+              (void)(SvREFCNT(_sv)++);  \
+      })
+#  else
+#    define SvREFCNT_inc_void(sv) \
+          (void)((PL_Sv=(SV*)(sv)) ? ++(SvREFCNT(PL_Sv)) : 0)
+#  endif
+#endif
+#ifndef SvREFCNT_inc_simple_void
+#  define SvREFCNT_inc_simple_void(sv)   STMT_START { if (sv) SvREFCNT(sv)++; } STMT_END
+#endif
+
+#ifndef SvREFCNT_inc_simple_NN
+#  define SvREFCNT_inc_simple_NN(sv)     (++SvREFCNT(sv), (SV*)(sv))
+#endif
+
+#ifndef SvREFCNT_inc_void_NN
+#  define SvREFCNT_inc_void_NN(sv)       (void)(++SvREFCNT((SV*)(sv)))
+#endif
+
+#ifndef SvREFCNT_inc_simple_void_NN
+#  define SvREFCNT_inc_simple_void_NN(sv) (void)(++SvREFCNT((SV*)(sv)))
+#endif
+
+#ifndef newSV_type
+
+#if defined(NEED_newSV_type)
+static SV* DPPP_(my_newSV_type)(pTHX_ svtype const t);
+static
+#else
+extern SV* DPPP_(my_newSV_type)(pTHX_ svtype const t);
+#endif
+
+#ifdef newSV_type
+#  undef newSV_type
+#endif
+#define newSV_type(a) DPPP_(my_newSV_type)(aTHX_ a)
+#define Perl_newSV_type DPPP_(my_newSV_type)
+
+#if defined(NEED_newSV_type) || defined(NEED_newSV_type_GLOBAL)
+
+SV*
+DPPP_(my_newSV_type)(pTHX_ svtype const t)
+{
+  SV* const sv = newSV(0);
+  sv_upgrade(sv, t);
+  return sv;
+}
+
+#endif
+
+#endif
+
+#if (PERL_BCDVERSION < 0x5006000)
+# define D_PPP_CONSTPV_ARG(x)  ((char *) (x))
+#else
+# define D_PPP_CONSTPV_ARG(x)  (x)
+#endif
+#ifndef newSVpvn
+#  define newSVpvn(data,len)             ((data)                                              \
+                                    ? ((len) ? newSVpv((data), (len)) : newSVpv("", 0)) \
+                                    : newSV(0))
+#endif
+#ifndef newSVpvn_utf8
+#  define newSVpvn_utf8(s, len, u)       newSVpvn_flags((s), (len), (u) ? SVf_UTF8 : 0)
+#endif
+#ifndef SVf_UTF8
+#  define SVf_UTF8                       0
+#endif
+
+#ifndef newSVpvn_flags
+
+#if defined(NEED_newSVpvn_flags)
+static SV * DPPP_(my_newSVpvn_flags)(pTHX_ const char *s, STRLEN len, U32 flags);
+static
+#else
+extern SV * DPPP_(my_newSVpvn_flags)(pTHX_ const char *s, STRLEN len, U32 flags);
+#endif
+
+#ifdef newSVpvn_flags
+#  undef newSVpvn_flags
+#endif
+#define newSVpvn_flags(a,b,c) DPPP_(my_newSVpvn_flags)(aTHX_ a,b,c)
+#define Perl_newSVpvn_flags DPPP_(my_newSVpvn_flags)
+
+#if defined(NEED_newSVpvn_flags) || defined(NEED_newSVpvn_flags_GLOBAL)
+
+SV *
+DPPP_(my_newSVpvn_flags)(pTHX_ const char *s, STRLEN len, U32 flags)
+{
+  SV *sv = newSVpvn(D_PPP_CONSTPV_ARG(s), len);
+  SvFLAGS(sv) |= (flags & SVf_UTF8);
+  return (flags & SVs_TEMP) ? sv_2mortal(sv) : sv;
+}
+
+#endif
+
+#endif
+
+/* Backwards compatibility stuff... :-( */
+#if !defined(NEED_sv_2pv_flags) && defined(NEED_sv_2pv_nolen)
+#  define NEED_sv_2pv_flags
+#endif
+#if !defined(NEED_sv_2pv_flags_GLOBAL) && defined(NEED_sv_2pv_nolen_GLOBAL)
+#  define NEED_sv_2pv_flags_GLOBAL
+#endif
+
+/* Hint: sv_2pv_nolen
+ * Use the SvPV_nolen() or SvPV_nolen_const() macros instead of sv_2pv_nolen().
+ */
+#ifndef sv_2pv_nolen
+#  define sv_2pv_nolen(sv)               SvPV_nolen(sv)
+#endif
+
+#ifdef SvPVbyte
+
+/* Hint: SvPVbyte
+ * Does not work in perl-5.6.1, ppport.h implements a version
+ * borrowed from perl-5.7.3.
+ */
+
+#if (PERL_BCDVERSION < 0x5007000)
+
+#if defined(NEED_sv_2pvbyte)
+static char * DPPP_(my_sv_2pvbyte)(pTHX_ SV *sv, STRLEN *lp);
+static
+#else
+extern char * DPPP_(my_sv_2pvbyte)(pTHX_ SV *sv, STRLEN *lp);
+#endif
+
+#ifdef sv_2pvbyte
+#  undef sv_2pvbyte
+#endif
+#define sv_2pvbyte(a,b) DPPP_(my_sv_2pvbyte)(aTHX_ a,b)
+#define Perl_sv_2pvbyte DPPP_(my_sv_2pvbyte)
+
+#if defined(NEED_sv_2pvbyte) || defined(NEED_sv_2pvbyte_GLOBAL)
+
+char *
+DPPP_(my_sv_2pvbyte)(pTHX_ SV *sv, STRLEN *lp)
+{
+  sv_utf8_downgrade(sv,0);
+  return SvPV(sv,*lp);
+}
+
+#endif
+
+/* Hint: sv_2pvbyte
+ * Use the SvPVbyte() macro instead of sv_2pvbyte().
+ */
+
+#undef SvPVbyte
+
+#define SvPVbyte(sv, lp)                                                \
+        ((SvFLAGS(sv) & (SVf_POK|SVf_UTF8)) == (SVf_POK)                \
+         ? ((lp = SvCUR(sv)), SvPVX(sv)) : sv_2pvbyte(sv, &lp))
+
+#endif
+
+#else
+
+#  define SvPVbyte          SvPV
+#  define sv_2pvbyte        sv_2pv
+
+#endif
+#ifndef sv_2pvbyte_nolen
+#  define sv_2pvbyte_nolen(sv)           sv_2pv_nolen(sv)
+#endif
+
+/* Hint: sv_pvn
+ * Always use the SvPV() macro instead of sv_pvn().
+ */
+
+/* Hint: sv_pvn_force
+ * Always use the SvPV_force() macro instead of sv_pvn_force().
+ */
+
+/* If these are undefined, they're not handled by the core anyway */
+#ifndef SV_IMMEDIATE_UNREF
+#  define SV_IMMEDIATE_UNREF             0
+#endif
+
+#ifndef SV_GMAGIC
+#  define SV_GMAGIC                      0
+#endif
+
+#ifndef SV_COW_DROP_PV
+#  define SV_COW_DROP_PV                 0
+#endif
+
+#ifndef SV_UTF8_NO_ENCODING
+#  define SV_UTF8_NO_ENCODING            0
+#endif
+
+#ifndef SV_NOSTEAL
+#  define SV_NOSTEAL                     0
+#endif
+
+#ifndef SV_CONST_RETURN
+#  define SV_CONST_RETURN                0
+#endif
+
+#ifndef SV_MUTABLE_RETURN
+#  define SV_MUTABLE_RETURN              0
+#endif
+
+#ifndef SV_SMAGIC
+#  define SV_SMAGIC                      0
+#endif
+
+#ifndef SV_HAS_TRAILING_NUL
+#  define SV_HAS_TRAILING_NUL            0
+#endif
+
+#ifndef SV_COW_SHARED_HASH_KEYS
+#  define SV_COW_SHARED_HASH_KEYS        0
+#endif
+
+#if (PERL_BCDVERSION < 0x5007002)
+
+#if defined(NEED_sv_2pv_flags)
+static char * DPPP_(my_sv_2pv_flags)(pTHX_ SV *sv, STRLEN *lp, I32 flags);
+static
+#else
+extern char * DPPP_(my_sv_2pv_flags)(pTHX_ SV *sv, STRLEN *lp, I32 flags);
+#endif
+
+#ifdef sv_2pv_flags
+#  undef sv_2pv_flags
+#endif
+#define sv_2pv_flags(a,b,c) DPPP_(my_sv_2pv_flags)(aTHX_ a,b,c)
+#define Perl_sv_2pv_flags DPPP_(my_sv_2pv_flags)
+
+#if defined(NEED_sv_2pv_flags) || defined(NEED_sv_2pv_flags_GLOBAL)
+
+char *
+DPPP_(my_sv_2pv_flags)(pTHX_ SV *sv, STRLEN *lp, I32 flags)
+{
+  STRLEN n_a = (STRLEN) flags;
+  return sv_2pv(sv, lp ? lp : &n_a);
+}
+
+#endif
+
+#if defined(NEED_sv_pvn_force_flags)
+static char * DPPP_(my_sv_pvn_force_flags)(pTHX_ SV *sv, STRLEN *lp, I32 flags);
+static
+#else
+extern char * DPPP_(my_sv_pvn_force_flags)(pTHX_ SV *sv, STRLEN *lp, I32 flags);
+#endif
+
+#ifdef sv_pvn_force_flags
+#  undef sv_pvn_force_flags
+#endif
+#define sv_pvn_force_flags(a,b,c) DPPP_(my_sv_pvn_force_flags)(aTHX_ a,b,c)
+#define Perl_sv_pvn_force_flags DPPP_(my_sv_pvn_force_flags)
+
+#if defined(NEED_sv_pvn_force_flags) || defined(NEED_sv_pvn_force_flags_GLOBAL)
+
+char *
+DPPP_(my_sv_pvn_force_flags)(pTHX_ SV *sv, STRLEN *lp, I32 flags)
+{
+  STRLEN n_a = (STRLEN) flags;
+  return sv_pvn_force(sv, lp ? lp : &n_a);
+}
+
+#endif
+
+#endif
+
+#if (PERL_BCDVERSION < 0x5008008) || ( (PERL_BCDVERSION >= 0x5009000) && (PERL_BCDVERSION < 0x5009003) )
+# define DPPP_SVPV_NOLEN_LP_ARG &PL_na
+#else
+# define DPPP_SVPV_NOLEN_LP_ARG 0
+#endif
+#ifndef SvPV_const
+#  define SvPV_const(sv, lp)             SvPV_flags_const(sv, lp, SV_GMAGIC)
+#endif
+
+#ifndef SvPV_mutable
+#  define SvPV_mutable(sv, lp)           SvPV_flags_mutable(sv, lp, SV_GMAGIC)
+#endif
+#ifndef SvPV_flags
+#  define SvPV_flags(sv, lp, flags)      \
+                 ((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \
+                  ? ((lp = SvCUR(sv)), SvPVX(sv)) : sv_2pv_flags(sv, &lp, flags))
+#endif
+#ifndef SvPV_flags_const
+#  define SvPV_flags_const(sv, lp, flags) \
+                 ((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \
+                  ? ((lp = SvCUR(sv)), SvPVX_const(sv)) : \
+                  (const char*) sv_2pv_flags(sv, &lp, flags|SV_CONST_RETURN))
+#endif
+#ifndef SvPV_flags_const_nolen
+#  define SvPV_flags_const_nolen(sv, flags) \
+                 ((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \
+                  ? SvPVX_const(sv) : \
+                  (const char*) sv_2pv_flags(sv, DPPP_SVPV_NOLEN_LP_ARG, flags|SV_CONST_RETURN))
+#endif
+#ifndef SvPV_flags_mutable
+#  define SvPV_flags_mutable(sv, lp, flags) \
+                 ((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \
+                  ? ((lp = SvCUR(sv)), SvPVX_mutable(sv)) : \
+                  sv_2pv_flags(sv, &lp, flags|SV_MUTABLE_RETURN))
+#endif
+#ifndef SvPV_force
+#  define SvPV_force(sv, lp)             SvPV_force_flags(sv, lp, SV_GMAGIC)
+#endif
+
+#ifndef SvPV_force_nolen
+#  define SvPV_force_nolen(sv)           SvPV_force_flags_nolen(sv, SV_GMAGIC)
+#endif
+
+#ifndef SvPV_force_mutable
+#  define SvPV_force_mutable(sv, lp)     SvPV_force_flags_mutable(sv, lp, SV_GMAGIC)
+#endif
+
+#ifndef SvPV_force_nomg
+#  define SvPV_force_nomg(sv, lp)        SvPV_force_flags(sv, lp, 0)
+#endif
+
+#ifndef SvPV_force_nomg_nolen
+#  define SvPV_force_nomg_nolen(sv)      SvPV_force_flags_nolen(sv, 0)
+#endif
+#ifndef SvPV_force_flags
+#  define SvPV_force_flags(sv, lp, flags) \
+                 ((SvFLAGS(sv) & (SVf_POK|SVf_THINKFIRST)) == SVf_POK \
+                 ? ((lp = SvCUR(sv)), SvPVX(sv)) : sv_pvn_force_flags(sv, &lp, flags))
+#endif
+#ifndef SvPV_force_flags_nolen
+#  define SvPV_force_flags_nolen(sv, flags) \
+                 ((SvFLAGS(sv) & (SVf_POK|SVf_THINKFIRST)) == SVf_POK \
+                 ? SvPVX(sv) : sv_pvn_force_flags(sv, DPPP_SVPV_NOLEN_LP_ARG, flags))
+#endif
+#ifndef SvPV_force_flags_mutable
+#  define SvPV_force_flags_mutable(sv, lp, flags) \
+                 ((SvFLAGS(sv) & (SVf_POK|SVf_THINKFIRST)) == SVf_POK \
+                 ? ((lp = SvCUR(sv)), SvPVX_mutable(sv)) \
+                  : sv_pvn_force_flags(sv, &lp, flags|SV_MUTABLE_RETURN))
+#endif
+#ifndef SvPV_nolen
+#  define SvPV_nolen(sv)                 \
+                 ((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \
+                  ? SvPVX(sv) : sv_2pv_flags(sv, DPPP_SVPV_NOLEN_LP_ARG, SV_GMAGIC))
+#endif
+#ifndef SvPV_nolen_const
+#  define SvPV_nolen_const(sv)           \
+                 ((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \
+                  ? SvPVX_const(sv) : sv_2pv_flags(sv, DPPP_SVPV_NOLEN_LP_ARG, SV_GMAGIC|SV_CONST_RETURN))
+#endif
+#ifndef SvPV_nomg
+#  define SvPV_nomg(sv, lp)              SvPV_flags(sv, lp, 0)
+#endif
+
+#ifndef SvPV_nomg_const
+#  define SvPV_nomg_const(sv, lp)        SvPV_flags_const(sv, lp, 0)
+#endif
+
+#ifndef SvPV_nomg_const_nolen
+#  define SvPV_nomg_const_nolen(sv)      SvPV_flags_const_nolen(sv, 0)
+#endif
+
+#ifndef SvPV_nomg_nolen
+#  define SvPV_nomg_nolen(sv)            ((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \
+                                    ? SvPVX(sv) : sv_2pv_flags(sv, DPPP_SVPV_NOLEN_LP_ARG, 0))
+#endif
+#ifndef SvPV_renew
+#  define SvPV_renew(sv,n)               STMT_START { SvLEN_set(sv, n); \
+                 SvPV_set((sv), (char *) saferealloc(          \
+                       (Malloc_t)SvPVX(sv), (MEM_SIZE)((n)))); \
+               } STMT_END
+#endif
+#ifndef SvMAGIC_set
+#  define SvMAGIC_set(sv, val)           \
+                STMT_START { assert(SvTYPE(sv) >= SVt_PVMG); \
+                (((XPVMG*) SvANY(sv))->xmg_magic = (val)); } STMT_END
+#endif
+
+#if (PERL_BCDVERSION < 0x5009003)
+#ifndef SvPVX_const
+#  define SvPVX_const(sv)                ((const char*) (0 + SvPVX(sv)))
+#endif
+
+#ifndef SvPVX_mutable
+#  define SvPVX_mutable(sv)              (0 + SvPVX(sv))
+#endif
+#ifndef SvRV_set
+#  define SvRV_set(sv, val)              \
+                STMT_START { assert(SvTYPE(sv) >=  SVt_RV); \
+                (((XRV*) SvANY(sv))->xrv_rv = (val)); } STMT_END
+#endif
+
+#else
+#ifndef SvPVX_const
+#  define SvPVX_const(sv)                ((const char*)((sv)->sv_u.svu_pv))
+#endif
+
+#ifndef SvPVX_mutable
+#  define SvPVX_mutable(sv)              ((sv)->sv_u.svu_pv)
+#endif
+#ifndef SvRV_set
+#  define SvRV_set(sv, val)              \
+                STMT_START { assert(SvTYPE(sv) >=  SVt_RV); \
+                ((sv)->sv_u.svu_rv = (val)); } STMT_END
+#endif
+
+#endif
+#ifndef SvSTASH_set
+#  define SvSTASH_set(sv, val)           \
+                STMT_START { assert(SvTYPE(sv) >= SVt_PVMG); \
+                (((XPVMG*) SvANY(sv))->xmg_stash = (val)); } STMT_END
+#endif
+
+#if (PERL_BCDVERSION < 0x5004000)
+#ifndef SvUV_set
+#  define SvUV_set(sv, val)              \
+                STMT_START { assert(SvTYPE(sv) == SVt_IV || SvTYPE(sv) >= SVt_PVIV); \
+                (((XPVIV*) SvANY(sv))->xiv_iv = (IV) (val)); } STMT_END
+#endif
+
+#else
+#ifndef SvUV_set
+#  define SvUV_set(sv, val)              \
+                STMT_START { assert(SvTYPE(sv) == SVt_IV || SvTYPE(sv) >= SVt_PVIV); \
+                (((XPVUV*) SvANY(sv))->xuv_uv = (val)); } STMT_END
+#endif
+
+#endif
+
+#if (PERL_BCDVERSION >= 0x5004000) && !defined(vnewSVpvf)
+#if defined(NEED_vnewSVpvf)
+static SV * DPPP_(my_vnewSVpvf)(pTHX_ const char *pat, va_list *args);
+static
+#else
+extern SV * DPPP_(my_vnewSVpvf)(pTHX_ const char *pat, va_list *args);
+#endif
+
+#ifdef vnewSVpvf
+#  undef vnewSVpvf
+#endif
+#define vnewSVpvf(a,b) DPPP_(my_vnewSVpvf)(aTHX_ a,b)
+#define Perl_vnewSVpvf DPPP_(my_vnewSVpvf)
+
+#if defined(NEED_vnewSVpvf) || defined(NEED_vnewSVpvf_GLOBAL)
+
+SV *
+DPPP_(my_vnewSVpvf)(pTHX_ const char *pat, va_list *args)
+{
+  register SV *sv = newSV(0);
+  sv_vsetpvfn(sv, pat, strlen(pat), args, Null(SV**), 0, Null(bool*));
+  return sv;
+}
+
+#endif
+#endif
+
+#if (PERL_BCDVERSION >= 0x5004000) && !defined(sv_vcatpvf)
+#  define sv_vcatpvf(sv, pat, args)  sv_vcatpvfn(sv, pat, strlen(pat), args, Null(SV**), 0, Null(bool*))
+#endif
+
+#if (PERL_BCDVERSION >= 0x5004000) && !defined(sv_vsetpvf)
+#  define sv_vsetpvf(sv, pat, args)  sv_vsetpvfn(sv, pat, strlen(pat), args, Null(SV**), 0, Null(bool*))
+#endif
+
+#if (PERL_BCDVERSION >= 0x5004000) && !defined(sv_catpvf_mg)
+#if defined(NEED_sv_catpvf_mg)
+static void DPPP_(my_sv_catpvf_mg)(pTHX_ SV *sv, const char *pat, ...);
+static
+#else
+extern void DPPP_(my_sv_catpvf_mg)(pTHX_ SV *sv, const char *pat, ...);
+#endif
+
+#define Perl_sv_catpvf_mg DPPP_(my_sv_catpvf_mg)
+
+#if defined(NEED_sv_catpvf_mg) || defined(NEED_sv_catpvf_mg_GLOBAL)
+
+void
+DPPP_(my_sv_catpvf_mg)(pTHX_ SV *sv, const char *pat, ...)
+{
+  va_list args;
+  va_start(args, pat);
+  sv_vcatpvfn(sv, pat, strlen(pat), &args, Null(SV**), 0, Null(bool*));
+  SvSETMAGIC(sv);
+  va_end(args);
+}
+
+#endif
+#endif
+
+#ifdef PERL_IMPLICIT_CONTEXT
+#if (PERL_BCDVERSION >= 0x5004000) && !defined(sv_catpvf_mg_nocontext)
+#if defined(NEED_sv_catpvf_mg_nocontext)
+static void DPPP_(my_sv_catpvf_mg_nocontext)(SV *sv, const char *pat, ...);
+static
+#else
+extern void DPPP_(my_sv_catpvf_mg_nocontext)(SV *sv, const char *pat, ...);
+#endif
+
+#define sv_catpvf_mg_nocontext DPPP_(my_sv_catpvf_mg_nocontext)
+#define Perl_sv_catpvf_mg_nocontext DPPP_(my_sv_catpvf_mg_nocontext)
+
+#if defined(NEED_sv_catpvf_mg_nocontext) || defined(NEED_sv_catpvf_mg_nocontext_GLOBAL)
+
+void
+DPPP_(my_sv_catpvf_mg_nocontext)(SV *sv, const char *pat, ...)
+{
+  dTHX;
+  va_list args;
+  va_start(args, pat);
+  sv_vcatpvfn(sv, pat, strlen(pat), &args, Null(SV**), 0, Null(bool*));
+  SvSETMAGIC(sv);
+  va_end(args);
+}
+
+#endif
+#endif
+#endif
+
+/* sv_catpvf_mg depends on sv_catpvf_mg_nocontext */
+#ifndef sv_catpvf_mg
+#  ifdef PERL_IMPLICIT_CONTEXT
+#    define sv_catpvf_mg   Perl_sv_catpvf_mg_nocontext
+#  else
+#    define sv_catpvf_mg   Perl_sv_catpvf_mg
+#  endif
+#endif
+
+#if (PERL_BCDVERSION >= 0x5004000) && !defined(sv_vcatpvf_mg)
+#  define sv_vcatpvf_mg(sv, pat, args)                                     \
+   STMT_START {                                                            \
+     sv_vcatpvfn(sv, pat, strlen(pat), args, Null(SV**), 0, Null(bool*));  \
+     SvSETMAGIC(sv);                                                       \
+   } STMT_END
+#endif
+
+#if (PERL_BCDVERSION >= 0x5004000) && !defined(sv_setpvf_mg)
+#if defined(NEED_sv_setpvf_mg)
+static void DPPP_(my_sv_setpvf_mg)(pTHX_ SV *sv, const char *pat, ...);
+static
+#else
+extern void DPPP_(my_sv_setpvf_mg)(pTHX_ SV *sv, const char *pat, ...);
+#endif
+
+#define Perl_sv_setpvf_mg DPPP_(my_sv_setpvf_mg)
+
+#if defined(NEED_sv_setpvf_mg) || defined(NEED_sv_setpvf_mg_GLOBAL)
+
+void
+DPPP_(my_sv_setpvf_mg)(pTHX_ SV *sv, const char *pat, ...)
+{
+  va_list args;
+  va_start(args, pat);
+  sv_vsetpvfn(sv, pat, strlen(pat), &args, Null(SV**), 0, Null(bool*));
+  SvSETMAGIC(sv);
+  va_end(args);
+}
+
+#endif
+#endif
+
+#ifdef PERL_IMPLICIT_CONTEXT
+#if (PERL_BCDVERSION >= 0x5004000) && !defined(sv_setpvf_mg_nocontext)
+#if defined(NEED_sv_setpvf_mg_nocontext)
+static void DPPP_(my_sv_setpvf_mg_nocontext)(SV *sv, const char *pat, ...);
+static
+#else
+extern void DPPP_(my_sv_setpvf_mg_nocontext)(SV *sv, const char *pat, ...);
+#endif
+
+#define sv_setpvf_mg_nocontext DPPP_(my_sv_setpvf_mg_nocontext)
+#define Perl_sv_setpvf_mg_nocontext DPPP_(my_sv_setpvf_mg_nocontext)
+
+#if defined(NEED_sv_setpvf_mg_nocontext) || defined(NEED_sv_setpvf_mg_nocontext_GLOBAL)
+
+void
+DPPP_(my_sv_setpvf_mg_nocontext)(SV *sv, const char *pat, ...)
+{
+  dTHX;
+  va_list args;
+  va_start(args, pat);
+  sv_vsetpvfn(sv, pat, strlen(pat), &args, Null(SV**), 0, Null(bool*));
+  SvSETMAGIC(sv);
+  va_end(args);
+}
+
+#endif
+#endif
+#endif
+
+/* sv_setpvf_mg depends on sv_setpvf_mg_nocontext */
+#ifndef sv_setpvf_mg
+#  ifdef PERL_IMPLICIT_CONTEXT
+#    define sv_setpvf_mg   Perl_sv_setpvf_mg_nocontext
+#  else
+#    define sv_setpvf_mg   Perl_sv_setpvf_mg
+#  endif
+#endif
+
+#if (PERL_BCDVERSION >= 0x5004000) && !defined(sv_vsetpvf_mg)
+#  define sv_vsetpvf_mg(sv, pat, args)                                     \
+   STMT_START {                                                            \
+     sv_vsetpvfn(sv, pat, strlen(pat), args, Null(SV**), 0, Null(bool*));  \
+     SvSETMAGIC(sv);                                                       \
+   } STMT_END
+#endif
+
+/* Hint: newSVpvn_share
+ * The SVs created by this function only mimic the behaviour of
+ * shared PVs without really being shared. Only use if you know
+ * what you're doing.
+ */
+
+#ifndef newSVpvn_share
+
+#if defined(NEED_newSVpvn_share)
+static SV * DPPP_(my_newSVpvn_share)(pTHX_ const char *src, I32 len, U32 hash);
+static
+#else
+extern SV * DPPP_(my_newSVpvn_share)(pTHX_ const char *src, I32 len, U32 hash);
+#endif
+
+#ifdef newSVpvn_share
+#  undef newSVpvn_share
+#endif
+#define newSVpvn_share(a,b,c) DPPP_(my_newSVpvn_share)(aTHX_ a,b,c)
+#define Perl_newSVpvn_share DPPP_(my_newSVpvn_share)
+
+#if defined(NEED_newSVpvn_share) || defined(NEED_newSVpvn_share_GLOBAL)
+
+SV *
+DPPP_(my_newSVpvn_share)(pTHX_ const char *src, I32 len, U32 hash)
+{
+  SV *sv;
+  if (len < 0)
+    len = -len;
+  if (!hash)
+    PERL_HASH(hash, (char*) src, len);
+  sv = newSVpvn((char *) src, len);
+  sv_upgrade(sv, SVt_PVIV);
+  SvIVX(sv) = hash;
+  SvREADONLY_on(sv);
+  SvPOK_on(sv);
+  return sv;
+}
+
+#endif
+
+#endif
+#ifndef SvSHARED_HASH
+#  define SvSHARED_HASH(sv)              (0 + SvUVX(sv))
+#endif
+#ifndef HvNAME_get
+#  define HvNAME_get(hv)                 HvNAME(hv)
+#endif
+#ifndef HvNAMELEN_get
+#  define HvNAMELEN_get(hv)              (HvNAME_get(hv) ? (I32)strlen(HvNAME_get(hv)) : 0)
+#endif
+#ifndef GvSVn
+#  define GvSVn(gv)                      GvSV(gv)
+#endif
+
+#ifndef isGV_with_GP
+#  define isGV_with_GP(gv)               isGV(gv)
+#endif
+
+#ifndef gv_fetchpvn_flags
+#  define gv_fetchpvn_flags(name, len, flags, svt) gv_fetchpv(name, flags, svt)
+#endif
+
+#ifndef gv_fetchsv
+#  define gv_fetchsv(name, flags, svt)   gv_fetchpv(SvPV_nolen_const(name), flags, svt)
+#endif
+#ifndef get_cvn_flags
+#  define get_cvn_flags(name, namelen, flags) get_cv(name, flags)
+#endif
+#ifndef WARN_ALL
+#  define WARN_ALL                       0
+#endif
+
+#ifndef WARN_CLOSURE
+#  define WARN_CLOSURE                   1
+#endif
+
+#ifndef WARN_DEPRECATED
+#  define WARN_DEPRECATED                2
+#endif
+
+#ifndef WARN_EXITING
+#  define WARN_EXITING                   3
+#endif
+
+#ifndef WARN_GLOB
+#  define WARN_GLOB                      4
+#endif
+
+#ifndef WARN_IO
+#  define WARN_IO                        5
+#endif
+
+#ifndef WARN_CLOSED
+#  define WARN_CLOSED                    6
+#endif
+
+#ifndef WARN_EXEC
+#  define WARN_EXEC                      7
+#endif
+
+#ifndef WARN_LAYER
+#  define WARN_LAYER                     8
+#endif
+
+#ifndef WARN_NEWLINE
+#  define WARN_NEWLINE                   9
+#endif
+
+#ifndef WARN_PIPE
+#  define WARN_PIPE                      10
+#endif
+
+#ifndef WARN_UNOPENED
+#  define WARN_UNOPENED                  11
+#endif
+
+#ifndef WARN_MISC
+#  define WARN_MISC                      12
+#endif
+
+#ifndef WARN_NUMERIC
+#  define WARN_NUMERIC                   13
+#endif
+
+#ifndef WARN_ONCE
+#  define WARN_ONCE                      14
+#endif
+
+#ifndef WARN_OVERFLOW
+#  define WARN_OVERFLOW                  15
+#endif
+
+#ifndef WARN_PACK
+#  define WARN_PACK                      16
+#endif
+
+#ifndef WARN_PORTABLE
+#  define WARN_PORTABLE                  17
+#endif
+
+#ifndef WARN_RECURSION
+#  define WARN_RECURSION                 18
+#endif
+
+#ifndef WARN_REDEFINE
+#  define WARN_REDEFINE                  19
+#endif
+
+#ifndef WARN_REGEXP
+#  define WARN_REGEXP                    20
+#endif
+
+#ifndef WARN_SEVERE
+#  define WARN_SEVERE                    21
+#endif
+
+#ifndef WARN_DEBUGGING
+#  define WARN_DEBUGGING                 22
+#endif
+
+#ifndef WARN_INPLACE
+#  define WARN_INPLACE                   23
+#endif
+
+#ifndef WARN_INTERNAL
+#  define WARN_INTERNAL                  24
+#endif
+
+#ifndef WARN_MALLOC
+#  define WARN_MALLOC                    25
+#endif
+
+#ifndef WARN_SIGNAL
+#  define WARN_SIGNAL                    26
+#endif
+
+#ifndef WARN_SUBSTR
+#  define WARN_SUBSTR                    27
+#endif
+
+#ifndef WARN_SYNTAX
+#  define WARN_SYNTAX                    28
+#endif
+
+#ifndef WARN_AMBIGUOUS
+#  define WARN_AMBIGUOUS                 29
+#endif
+
+#ifndef WARN_BAREWORD
+#  define WARN_BAREWORD                  30
+#endif
+
+#ifndef WARN_DIGIT
+#  define WARN_DIGIT                     31
+#endif
+
+#ifndef WARN_PARENTHESIS
+#  define WARN_PARENTHESIS               32
+#endif
+
+#ifndef WARN_PRECEDENCE
+#  define WARN_PRECEDENCE                33
+#endif
+
+#ifndef WARN_PRINTF
+#  define WARN_PRINTF                    34
+#endif
+
+#ifndef WARN_PROTOTYPE
+#  define WARN_PROTOTYPE                 35
+#endif
+
+#ifndef WARN_QW
+#  define WARN_QW                        36
+#endif
+
+#ifndef WARN_RESERVED
+#  define WARN_RESERVED                  37
+#endif
+
+#ifndef WARN_SEMICOLON
+#  define WARN_SEMICOLON                 38
+#endif
+
+#ifndef WARN_TAINT
+#  define WARN_TAINT                     39
+#endif
+
+#ifndef WARN_THREADS
+#  define WARN_THREADS                   40
+#endif
+
+#ifndef WARN_UNINITIALIZED
+#  define WARN_UNINITIALIZED             41
+#endif
+
+#ifndef WARN_UNPACK
+#  define WARN_UNPACK                    42
+#endif
+
+#ifndef WARN_UNTIE
+#  define WARN_UNTIE                     43
+#endif
+
+#ifndef WARN_UTF8
+#  define WARN_UTF8                      44
+#endif
+
+#ifndef WARN_VOID
+#  define WARN_VOID                      45
+#endif
+
+#ifndef WARN_ASSERTIONS
+#  define WARN_ASSERTIONS                46
+#endif
+#ifndef packWARN
+#  define packWARN(a)                    (a)
+#endif
+
+#ifndef ckWARN
+#  ifdef G_WARN_ON
+#    define  ckWARN(a)                  (PL_dowarn & G_WARN_ON)
+#  else
+#    define  ckWARN(a)                  PL_dowarn
+#  endif
+#endif
+
+#if (PERL_BCDVERSION >= 0x5004000) && !defined(warner)
+#if defined(NEED_warner)
+static void DPPP_(my_warner)(U32 err, const char *pat, ...);
+static
+#else
+extern void DPPP_(my_warner)(U32 err, const char *pat, ...);
+#endif
+
+#define Perl_warner DPPP_(my_warner)
+
+#if defined(NEED_warner) || defined(NEED_warner_GLOBAL)
+
+void
+DPPP_(my_warner)(U32 err, const char *pat, ...)
+{
+  SV *sv;
+  va_list args;
+
+  PERL_UNUSED_ARG(err);
+
+  va_start(args, pat);
+  sv = vnewSVpvf(pat, &args);
+  va_end(args);
+  sv_2mortal(sv);
+  warn("%s", SvPV_nolen(sv));
+}
+
+#define warner  Perl_warner
+
+#define Perl_warner_nocontext  Perl_warner
+
+#endif
+#endif
+
+/* concatenating with "" ensures that only literal strings are accepted as argument
+ * note that STR_WITH_LEN() can't be used as argument to macros or functions that
+ * under some configurations might be macros
+ */
+#ifndef STR_WITH_LEN
+#  define STR_WITH_LEN(s)                (s ""), (sizeof(s)-1)
+#endif
+#ifndef newSVpvs
+#  define newSVpvs(str)                  newSVpvn(str "", sizeof(str) - 1)
+#endif
+
+#ifndef newSVpvs_flags
+#  define newSVpvs_flags(str, flags)     newSVpvn_flags(str "", sizeof(str) - 1, flags)
+#endif
+
+#ifndef newSVpvs_share
+#  define newSVpvs_share(str)            newSVpvn_share(str "", sizeof(str) - 1, 0)
+#endif
+
+#ifndef sv_catpvs
+#  define sv_catpvs(sv, str)             sv_catpvn(sv, str "", sizeof(str) - 1)
+#endif
+
+#ifndef sv_setpvs
+#  define sv_setpvs(sv, str)             sv_setpvn(sv, str "", sizeof(str) - 1)
+#endif
+
+#ifndef hv_fetchs
+#  define hv_fetchs(hv, key, lval)       hv_fetch(hv, key "", sizeof(key) - 1, lval)
+#endif
+
+#ifndef hv_stores
+#  define hv_stores(hv, key, val)        hv_store(hv, key "", sizeof(key) - 1, val, 0)
+#endif
+#ifndef gv_fetchpvs
+#  define gv_fetchpvs(name, flags, svt)  gv_fetchpvn_flags(name "", sizeof(name) - 1, flags, svt)
+#endif
+
+#ifndef gv_stashpvs
+#  define gv_stashpvs(name, flags)       gv_stashpvn(name "", sizeof(name) - 1, flags)
+#endif
+#ifndef get_cvs
+#  define get_cvs(name, flags)           get_cvn_flags(name "", sizeof(name)-1, flags)
+#endif
+#ifndef SvGETMAGIC
+#  define SvGETMAGIC(x)                  STMT_START { if (SvGMAGICAL(x)) mg_get(x); } STMT_END
+#endif
+
+/* Some random bits for sv_unmagicext. These should probably be pulled in for
+   real and organized at some point */
+#ifndef HEf_SVKEY
+#  define HEf_SVKEY                      -2
+#endif
+
+#if defined(__GNUC__) && !defined(PERL_GCC_BRACE_GROUPS_FORBIDDEN)
+#  define MUTABLE_PTR(p) ({ void *_p = (p); _p; })
+#else
+#  define MUTABLE_PTR(p) ((void *) (p))
+#endif
+
+#define MUTABLE_SV(p)   ((SV *)MUTABLE_PTR(p))
+
+/* end of random bits */
+#ifndef PERL_MAGIC_sv
+#  define PERL_MAGIC_sv                  '\0'
+#endif
+
+#ifndef PERL_MAGIC_overload
+#  define PERL_MAGIC_overload            'A'
+#endif
+
+#ifndef PERL_MAGIC_overload_elem
+#  define PERL_MAGIC_overload_elem       'a'
+#endif
+
+#ifndef PERL_MAGIC_overload_table
+#  define PERL_MAGIC_overload_table      'c'
+#endif
+
+#ifndef PERL_MAGIC_bm
+#  define PERL_MAGIC_bm                  'B'
+#endif
+
+#ifndef PERL_MAGIC_regdata
+#  define PERL_MAGIC_regdata             'D'
+#endif
+
+#ifndef PERL_MAGIC_regdatum
+#  define PERL_MAGIC_regdatum            'd'
+#endif
+
+#ifndef PERL_MAGIC_env
+#  define PERL_MAGIC_env                 'E'
+#endif
+
+#ifndef PERL_MAGIC_envelem
+#  define PERL_MAGIC_envelem             'e'
+#endif
+
+#ifndef PERL_MAGIC_fm
+#  define PERL_MAGIC_fm                  'f'
+#endif
+
+#ifndef PERL_MAGIC_regex_global
+#  define PERL_MAGIC_regex_global        'g'
+#endif
+
+#ifndef PERL_MAGIC_isa
+#  define PERL_MAGIC_isa                 'I'
+#endif
+
+#ifndef PERL_MAGIC_isaelem
+#  define PERL_MAGIC_isaelem             'i'
+#endif
+
+#ifndef PERL_MAGIC_nkeys
+#  define PERL_MAGIC_nkeys               'k'
+#endif
+
+#ifndef PERL_MAGIC_dbfile
+#  define PERL_MAGIC_dbfile              'L'
+#endif
+
+#ifndef PERL_MAGIC_dbline
+#  define PERL_MAGIC_dbline              'l'
+#endif
+
+#ifndef PERL_MAGIC_mutex
+#  define PERL_MAGIC_mutex               'm'
+#endif
+
+#ifndef PERL_MAGIC_shared
+#  define PERL_MAGIC_shared              'N'
+#endif
+
+#ifndef PERL_MAGIC_shared_scalar
+#  define PERL_MAGIC_shared_scalar       'n'
+#endif
+
+#ifndef PERL_MAGIC_collxfrm
+#  define PERL_MAGIC_collxfrm            'o'
+#endif
+
+#ifndef PERL_MAGIC_tied
+#  define PERL_MAGIC_tied                'P'
+#endif
+
+#ifndef PERL_MAGIC_tiedelem
+#  define PERL_MAGIC_tiedelem            'p'
+#endif
+
+#ifndef PERL_MAGIC_tiedscalar
+#  define PERL_MAGIC_tiedscalar          'q'
+#endif
+
+#ifndef PERL_MAGIC_qr
+#  define PERL_MAGIC_qr                  'r'
+#endif
+
+#ifndef PERL_MAGIC_sig
+#  define PERL_MAGIC_sig                 'S'
+#endif
+
+#ifndef PERL_MAGIC_sigelem
+#  define PERL_MAGIC_sigelem             's'
+#endif
+
+#ifndef PERL_MAGIC_taint
+#  define PERL_MAGIC_taint               't'
+#endif
+
+#ifndef PERL_MAGIC_uvar
+#  define PERL_MAGIC_uvar                'U'
+#endif
+
+#ifndef PERL_MAGIC_uvar_elem
+#  define PERL_MAGIC_uvar_elem           'u'
+#endif
+
+#ifndef PERL_MAGIC_vstring
+#  define PERL_MAGIC_vstring             'V'
+#endif
+
+#ifndef PERL_MAGIC_vec
+#  define PERL_MAGIC_vec                 'v'
+#endif
+
+#ifndef PERL_MAGIC_utf8
+#  define PERL_MAGIC_utf8                'w'
+#endif
+
+#ifndef PERL_MAGIC_substr
+#  define PERL_MAGIC_substr              'x'
+#endif
+
+#ifndef PERL_MAGIC_defelem
+#  define PERL_MAGIC_defelem             'y'
+#endif
+
+#ifndef PERL_MAGIC_glob
+#  define PERL_MAGIC_glob                '*'
+#endif
+
+#ifndef PERL_MAGIC_arylen
+#  define PERL_MAGIC_arylen              '#'
+#endif
+
+#ifndef PERL_MAGIC_pos
+#  define PERL_MAGIC_pos                 '.'
+#endif
+
+#ifndef PERL_MAGIC_backref
+#  define PERL_MAGIC_backref             '<'
+#endif
+
+#ifndef PERL_MAGIC_ext
+#  define PERL_MAGIC_ext                 '~'
+#endif
+
+/* That's the best we can do... */
+#ifndef sv_catpvn_nomg
+#  define sv_catpvn_nomg                 sv_catpvn
+#endif
+
+#ifndef sv_catsv_nomg
+#  define sv_catsv_nomg                  sv_catsv
+#endif
+
+#ifndef sv_setsv_nomg
+#  define sv_setsv_nomg                  sv_setsv
+#endif
+
+#ifndef sv_pvn_nomg
+#  define sv_pvn_nomg                    sv_pvn
+#endif
+
+#ifndef SvIV_nomg
+#  define SvIV_nomg                      SvIV
+#endif
+
+#ifndef SvUV_nomg
+#  define SvUV_nomg                      SvUV
+#endif
+
+#ifndef sv_catpv_mg
+#  define sv_catpv_mg(sv, ptr)          \
+   STMT_START {                         \
+     SV *TeMpSv = sv;                   \
+     sv_catpv(TeMpSv,ptr);              \
+     SvSETMAGIC(TeMpSv);                \
+   } STMT_END
+#endif
+
+#ifndef sv_catpvn_mg
+#  define sv_catpvn_mg(sv, ptr, len)    \
+   STMT_START {                         \
+     SV *TeMpSv = sv;                   \
+     sv_catpvn(TeMpSv,ptr,len);         \
+     SvSETMAGIC(TeMpSv);                \
+   } STMT_END
+#endif
+
+#ifndef sv_catsv_mg
+#  define sv_catsv_mg(dsv, ssv)         \
+   STMT_START {                         \
+     SV *TeMpSv = dsv;                  \
+     sv_catsv(TeMpSv,ssv);              \
+     SvSETMAGIC(TeMpSv);                \
+   } STMT_END
+#endif
+
+#ifndef sv_setiv_mg
+#  define sv_setiv_mg(sv, i)            \
+   STMT_START {                         \
+     SV *TeMpSv = sv;                   \
+     sv_setiv(TeMpSv,i);                \
+     SvSETMAGIC(TeMpSv);                \
+   } STMT_END
+#endif
+
+#ifndef sv_setnv_mg
+#  define sv_setnv_mg(sv, num)          \
+   STMT_START {                         \
+     SV *TeMpSv = sv;                   \
+     sv_setnv(TeMpSv,num);              \
+     SvSETMAGIC(TeMpSv);                \
+   } STMT_END
+#endif
+
+#ifndef sv_setpv_mg
+#  define sv_setpv_mg(sv, ptr)          \
+   STMT_START {                         \
+     SV *TeMpSv = sv;                   \
+     sv_setpv(TeMpSv,ptr);              \
+     SvSETMAGIC(TeMpSv);                \
+   } STMT_END
+#endif
+
+#ifndef sv_setpvn_mg
+#  define sv_setpvn_mg(sv, ptr, len)    \
+   STMT_START {                         \
+     SV *TeMpSv = sv;                   \
+     sv_setpvn(TeMpSv,ptr,len);         \
+     SvSETMAGIC(TeMpSv);                \
+   } STMT_END
+#endif
+
+#ifndef sv_setsv_mg
+#  define sv_setsv_mg(dsv, ssv)         \
+   STMT_START {                         \
+     SV *TeMpSv = dsv;                  \
+     sv_setsv(TeMpSv,ssv);              \
+     SvSETMAGIC(TeMpSv);                \
+   } STMT_END
+#endif
+
+#ifndef sv_setuv_mg
+#  define sv_setuv_mg(sv, i)            \
+   STMT_START {                         \
+     SV *TeMpSv = sv;                   \
+     sv_setuv(TeMpSv,i);                \
+     SvSETMAGIC(TeMpSv);                \
+   } STMT_END
+#endif
+
+#ifndef sv_usepvn_mg
+#  define sv_usepvn_mg(sv, ptr, len)    \
+   STMT_START {                         \
+     SV *TeMpSv = sv;                   \
+     sv_usepvn(TeMpSv,ptr,len);         \
+     SvSETMAGIC(TeMpSv);                \
+   } STMT_END
+#endif
+#ifndef SvVSTRING_mg
+#  define SvVSTRING_mg(sv)               (SvMAGICAL(sv) ? mg_find(sv, PERL_MAGIC_vstring) : NULL)
+#endif
+
+/* Hint: sv_magic_portable
+ * This is a compatibility function that is only available with
+ * Devel::PPPort. It is NOT in the perl core.
+ * Its purpose is to mimic the 5.8.0 behaviour of sv_magic() when
+ * it is being passed a name pointer with namlen == 0. In that
+ * case, perl 5.8.0 and later store the pointer, not a copy of it.
+ * The compatibility can be provided back to perl 5.004. With
+ * earlier versions, the code will not compile.
+ */
+
+#if (PERL_BCDVERSION < 0x5004000)
+
+  /* code that uses sv_magic_portable will not compile */
+
+#elif (PERL_BCDVERSION < 0x5008000)
+
+#  define sv_magic_portable(sv, obj, how, name, namlen)     \
+   STMT_START {                                             \
+     SV *SvMp_sv = (sv);                                    \
+     char *SvMp_name = (char *) (name);                     \
+     I32 SvMp_namlen = (namlen);                            \
+     if (SvMp_name && SvMp_namlen == 0)                     \
+     {                                                      \
+       MAGIC *mg;                                           \
+       sv_magic(SvMp_sv, obj, how, 0, 0);                   \
+       mg = SvMAGIC(SvMp_sv);                               \
+       mg->mg_len = -42; /* XXX: this is the tricky part */ \
+       mg->mg_ptr = SvMp_name;                              \
+     }                                                      \
+     else                                                   \
+     {                                                      \
+       sv_magic(SvMp_sv, obj, how, SvMp_name, SvMp_namlen); \
+     }                                                      \
+   } STMT_END
+
+#else
+
+#  define sv_magic_portable(a, b, c, d, e)  sv_magic(a, b, c, d, e)
+
+#endif
+
+#if !defined(mg_findext)
+#if defined(NEED_mg_findext)
+static MAGIC * DPPP_(my_mg_findext)(SV * sv, int type, const MGVTBL *vtbl);
+static
+#else
+extern MAGIC * DPPP_(my_mg_findext)(SV * sv, int type, const MGVTBL *vtbl);
+#endif
+
+#define mg_findext DPPP_(my_mg_findext)
+#define Perl_mg_findext DPPP_(my_mg_findext)
+
+#if defined(NEED_mg_findext) || defined(NEED_mg_findext_GLOBAL)
+
+MAGIC *
+DPPP_(my_mg_findext)(SV * sv, int type, const MGVTBL *vtbl) {
+    if (sv) {
+        MAGIC *mg;
+
+#ifdef AvPAD_NAMELIST
+        assert(!(SvTYPE(sv) == SVt_PVAV && AvPAD_NAMELIST(sv)));
+#endif
+
+        for (mg = SvMAGIC (sv); mg; mg = mg->mg_moremagic) {
+            if (mg->mg_type == type && mg->mg_virtual == vtbl)
+                return mg;
+        }
+    }
+
+    return NULL;
+}
+
+#endif
+#endif
+
+#if !defined(sv_unmagicext)
+#if defined(NEED_sv_unmagicext)
+static int DPPP_(my_sv_unmagicext)(pTHX_ SV * const sv, const int type, MGVTBL * vtbl);
+static
+#else
+extern int DPPP_(my_sv_unmagicext)(pTHX_ SV * const sv, const int type, MGVTBL * vtbl);
+#endif
+
+#ifdef sv_unmagicext
+#  undef sv_unmagicext
+#endif
+#define sv_unmagicext(a,b,c) DPPP_(my_sv_unmagicext)(aTHX_ a,b,c)
+#define Perl_sv_unmagicext DPPP_(my_sv_unmagicext)
+
+#if defined(NEED_sv_unmagicext) || defined(NEED_sv_unmagicext_GLOBAL)
+
+int
+DPPP_(my_sv_unmagicext)(pTHX_ SV *const sv, const int type, MGVTBL *vtbl)
+{
+    MAGIC* mg;
+    MAGIC** mgp;
+
+    if (SvTYPE(sv) < SVt_PVMG || !SvMAGIC(sv))
+	return 0;
+    mgp = &(SvMAGIC(sv));
+    for (mg = *mgp; mg; mg = *mgp) {
+	const MGVTBL* const virt = mg->mg_virtual;
+	if (mg->mg_type == type && virt == vtbl) {
+	    *mgp = mg->mg_moremagic;
+	    if (virt && virt->svt_free)
+		virt->svt_free(aTHX_ sv, mg);
+	    if (mg->mg_ptr && mg->mg_type != PERL_MAGIC_regex_global) {
+		if (mg->mg_len > 0)
+		    Safefree(mg->mg_ptr);
+		else if (mg->mg_len == HEf_SVKEY) /* Questionable on older perls... */
+		    SvREFCNT_dec(MUTABLE_SV(mg->mg_ptr));
+		else if (mg->mg_type == PERL_MAGIC_utf8)
+		    Safefree(mg->mg_ptr);
+            }
+	    if (mg->mg_flags & MGf_REFCOUNTED)
+		SvREFCNT_dec(mg->mg_obj);
+	    Safefree(mg);
+	}
+	else
+	    mgp = &mg->mg_moremagic;
+    }
+    if (SvMAGIC(sv)) {
+	if (SvMAGICAL(sv))	/* if we're under save_magic, wait for restore_magic; */
+	    mg_magical(sv);	/*    else fix the flags now */
+    }
+    else {
+	SvMAGICAL_off(sv);
+	SvFLAGS(sv) |= (SvFLAGS(sv) & (SVp_IOK|SVp_NOK|SVp_POK)) >> PRIVSHIFT;
+    }
+    return 0;
+}
+
+#endif
+#endif
+
+#ifdef USE_ITHREADS
+#ifndef CopFILE
+#  define CopFILE(c)                     ((c)->cop_file)
+#endif
+
+#ifndef CopFILEGV
+#  define CopFILEGV(c)                   (CopFILE(c) ? gv_fetchfile(CopFILE(c)) : Nullgv)
+#endif
+
+#ifndef CopFILE_set
+#  define CopFILE_set(c,pv)              ((c)->cop_file = savepv(pv))
+#endif
+
+#ifndef CopFILESV
+#  define CopFILESV(c)                   (CopFILE(c) ? GvSV(gv_fetchfile(CopFILE(c))) : Nullsv)
+#endif
+
+#ifndef CopFILEAV
+#  define CopFILEAV(c)                   (CopFILE(c) ? GvAV(gv_fetchfile(CopFILE(c))) : Nullav)
+#endif
+
+#ifndef CopSTASHPV
+#  define CopSTASHPV(c)                  ((c)->cop_stashpv)
+#endif
+
+#ifndef CopSTASHPV_set
+#  define CopSTASHPV_set(c,pv)           ((c)->cop_stashpv = ((pv) ? savepv(pv) : Nullch))
+#endif
+
+#ifndef CopSTASH
+#  define CopSTASH(c)                    (CopSTASHPV(c) ? gv_stashpv(CopSTASHPV(c),GV_ADD) : Nullhv)
+#endif
+
+#ifndef CopSTASH_set
+#  define CopSTASH_set(c,hv)             CopSTASHPV_set(c, (hv) ? HvNAME(hv) : Nullch)
+#endif
+
+#ifndef CopSTASH_eq
+#  define CopSTASH_eq(c,hv)              ((hv) && (CopSTASHPV(c) == HvNAME(hv) \
+                                        || (CopSTASHPV(c) && HvNAME(hv) \
+                                        && strEQ(CopSTASHPV(c), HvNAME(hv)))))
+#endif
+
+#else
+#ifndef CopFILEGV
+#  define CopFILEGV(c)                   ((c)->cop_filegv)
+#endif
+
+#ifndef CopFILEGV_set
+#  define CopFILEGV_set(c,gv)            ((c)->cop_filegv = (GV*)SvREFCNT_inc(gv))
+#endif
+
+#ifndef CopFILE_set
+#  define CopFILE_set(c,pv)              CopFILEGV_set((c), gv_fetchfile(pv))
+#endif
+
+#ifndef CopFILESV
+#  define CopFILESV(c)                   (CopFILEGV(c) ? GvSV(CopFILEGV(c)) : Nullsv)
+#endif
+
+#ifndef CopFILEAV
+#  define CopFILEAV(c)                   (CopFILEGV(c) ? GvAV(CopFILEGV(c)) : Nullav)
+#endif
+
+#ifndef CopFILE
+#  define CopFILE(c)                     (CopFILESV(c) ? SvPVX(CopFILESV(c)) : Nullch)
+#endif
+
+#ifndef CopSTASH
+#  define CopSTASH(c)                    ((c)->cop_stash)
+#endif
+
+#ifndef CopSTASH_set
+#  define CopSTASH_set(c,hv)             ((c)->cop_stash = (hv))
+#endif
+
+#ifndef CopSTASHPV
+#  define CopSTASHPV(c)                  (CopSTASH(c) ? HvNAME(CopSTASH(c)) : Nullch)
+#endif
+
+#ifndef CopSTASHPV_set
+#  define CopSTASHPV_set(c,pv)           CopSTASH_set((c), gv_stashpv(pv,GV_ADD))
+#endif
+
+#ifndef CopSTASH_eq
+#  define CopSTASH_eq(c,hv)              (CopSTASH(c) == (hv))
+#endif
+
+#endif /* USE_ITHREADS */
+
+#if (PERL_BCDVERSION >= 0x5006000)
+#ifndef caller_cx
+
+# if defined(NEED_caller_cx) || defined(NEED_caller_cx_GLOBAL)
+static I32
+DPPP_dopoptosub_at(const PERL_CONTEXT *cxstk, I32 startingblock)
+{
+    I32 i;
+
+    for (i = startingblock; i >= 0; i--) {
+	register const PERL_CONTEXT * const cx = &cxstk[i];
+	switch (CxTYPE(cx)) {
+	default:
+	    continue;
+	case CXt_EVAL:
+	case CXt_SUB:
+	case CXt_FORMAT:
+	    return i;
+	}
+    }
+    return i;
+}
+# endif
+
+# if defined(NEED_caller_cx)
+static const PERL_CONTEXT * DPPP_(my_caller_cx)(pTHX_ I32 count, const PERL_CONTEXT **dbcxp);
+static
+#else
+extern const PERL_CONTEXT * DPPP_(my_caller_cx)(pTHX_ I32 count, const PERL_CONTEXT **dbcxp);
+#endif
+
+#ifdef caller_cx
+#  undef caller_cx
+#endif
+#define caller_cx(a,b) DPPP_(my_caller_cx)(aTHX_ a,b)
+#define Perl_caller_cx DPPP_(my_caller_cx)
+
+#if defined(NEED_caller_cx) || defined(NEED_caller_cx_GLOBAL)
+
+const PERL_CONTEXT *
+DPPP_(my_caller_cx)(pTHX_ I32 count, const PERL_CONTEXT **dbcxp)
+{
+    register I32 cxix = DPPP_dopoptosub_at(cxstack, cxstack_ix);
+    register const PERL_CONTEXT *cx;
+    register const PERL_CONTEXT *ccstack = cxstack;
+    const PERL_SI *top_si = PL_curstackinfo;
+
+    for (;;) {
+	/* we may be in a higher stacklevel, so dig down deeper */
+	while (cxix < 0 && top_si->si_type != PERLSI_MAIN) {
+	    top_si = top_si->si_prev;
+	    ccstack = top_si->si_cxstack;
+	    cxix = DPPP_dopoptosub_at(ccstack, top_si->si_cxix);
+	}
+	if (cxix < 0)
+	    return NULL;
+	/* caller() should not report the automatic calls to &DB::sub */
+	if (PL_DBsub && GvCV(PL_DBsub) && cxix >= 0 &&
+		ccstack[cxix].blk_sub.cv == GvCV(PL_DBsub))
+	    count++;
+	if (!count--)
+	    break;
+	cxix = DPPP_dopoptosub_at(ccstack, cxix - 1);
+    }
+
+    cx = &ccstack[cxix];
+    if (dbcxp) *dbcxp = cx;
+
+    if (CxTYPE(cx) == CXt_SUB || CxTYPE(cx) == CXt_FORMAT) {
+        const I32 dbcxix = DPPP_dopoptosub_at(ccstack, cxix - 1);
+	/* We expect that ccstack[dbcxix] is CXt_SUB, anyway, the
+	   field below is defined for any cx. */
+	/* caller() should not report the automatic calls to &DB::sub */
+	if (PL_DBsub && GvCV(PL_DBsub) && dbcxix >= 0 && ccstack[dbcxix].blk_sub.cv == GvCV(PL_DBsub))
+	    cx = &ccstack[dbcxix];
+    }
+
+    return cx;
+}
+
+# endif
+#endif /* caller_cx */
+#endif /* 5.6.0 */
+#ifndef IN_PERL_COMPILETIME
+#  define IN_PERL_COMPILETIME            (PL_curcop == &PL_compiling)
+#endif
+
+#ifndef IN_LOCALE_RUNTIME
+#  define IN_LOCALE_RUNTIME              (PL_curcop->op_private & HINT_LOCALE)
+#endif
+
+#ifndef IN_LOCALE_COMPILETIME
+#  define IN_LOCALE_COMPILETIME          (PL_hints & HINT_LOCALE)
+#endif
+
+#ifndef IN_LOCALE
+#  define IN_LOCALE                      (IN_PERL_COMPILETIME ? IN_LOCALE_COMPILETIME : IN_LOCALE_RUNTIME)
+#endif
+#ifndef IS_NUMBER_IN_UV
+#  define IS_NUMBER_IN_UV                0x01
+#endif
+
+#ifndef IS_NUMBER_GREATER_THAN_UV_MAX
+#  define IS_NUMBER_GREATER_THAN_UV_MAX  0x02
+#endif
+
+#ifndef IS_NUMBER_NOT_INT
+#  define IS_NUMBER_NOT_INT              0x04
+#endif
+
+#ifndef IS_NUMBER_NEG
+#  define IS_NUMBER_NEG                  0x08
+#endif
+
+#ifndef IS_NUMBER_INFINITY
+#  define IS_NUMBER_INFINITY             0x10
+#endif
+
+#ifndef IS_NUMBER_NAN
+#  define IS_NUMBER_NAN                  0x20
+#endif
+#ifndef GROK_NUMERIC_RADIX
+#  define GROK_NUMERIC_RADIX(sp, send)   grok_numeric_radix(sp, send)
+#endif
+#ifndef PERL_SCAN_GREATER_THAN_UV_MAX
+#  define PERL_SCAN_GREATER_THAN_UV_MAX  0x02
+#endif
+
+#ifndef PERL_SCAN_SILENT_ILLDIGIT
+#  define PERL_SCAN_SILENT_ILLDIGIT      0x04
+#endif
+
+#ifndef PERL_SCAN_ALLOW_UNDERSCORES
+#  define PERL_SCAN_ALLOW_UNDERSCORES    0x01
+#endif
+
+#ifndef PERL_SCAN_DISALLOW_PREFIX
+#  define PERL_SCAN_DISALLOW_PREFIX      0x02
+#endif
+
+#ifndef grok_numeric_radix
+#if defined(NEED_grok_numeric_radix)
+static bool DPPP_(my_grok_numeric_radix)(pTHX_ const char ** sp, const char * send);
+static
+#else
+extern bool DPPP_(my_grok_numeric_radix)(pTHX_ const char ** sp, const char * send);
+#endif
+
+#ifdef grok_numeric_radix
+#  undef grok_numeric_radix
+#endif
+#define grok_numeric_radix(a,b) DPPP_(my_grok_numeric_radix)(aTHX_ a,b)
+#define Perl_grok_numeric_radix DPPP_(my_grok_numeric_radix)
+
+#if defined(NEED_grok_numeric_radix) || defined(NEED_grok_numeric_radix_GLOBAL)
+bool
+DPPP_(my_grok_numeric_radix)(pTHX_ const char **sp, const char *send)
+{
+#ifdef USE_LOCALE_NUMERIC
+#ifdef PL_numeric_radix_sv
+    if (PL_numeric_radix_sv && IN_LOCALE) {
+        STRLEN len;
+        char* radix = SvPV(PL_numeric_radix_sv, len);
+        if (*sp + len <= send && memEQ(*sp, radix, len)) {
+            *sp += len;
+            return TRUE;
+        }
+    }
+#else
+    /* older perls don't have PL_numeric_radix_sv so the radix
+     * must manually be requested from locale.h
+     */
+#include <locale.h>
+    dTHR;  /* needed for older threaded perls */
+    struct lconv *lc = localeconv();
+    char *radix = lc->decimal_point;
+    if (radix && IN_LOCALE) {
+        STRLEN len = strlen(radix);
+        if (*sp + len <= send && memEQ(*sp, radix, len)) {
+            *sp += len;
+            return TRUE;
+        }
+    }
+#endif
+#endif /* USE_LOCALE_NUMERIC */
+    /* always try "." if numeric radix didn't match because
+     * we may have data from different locales mixed */
+    if (*sp < send && **sp == '.') {
+        ++*sp;
+        return TRUE;
+    }
+    return FALSE;
+}
+#endif
+#endif
+
+#ifndef grok_number
+#if defined(NEED_grok_number)
+static int DPPP_(my_grok_number)(pTHX_ const char * pv, STRLEN len, UV * valuep);
+static
+#else
+extern int DPPP_(my_grok_number)(pTHX_ const char * pv, STRLEN len, UV * valuep);
+#endif
+
+#ifdef grok_number
+#  undef grok_number
+#endif
+#define grok_number(a,b,c) DPPP_(my_grok_number)(aTHX_ a,b,c)
+#define Perl_grok_number DPPP_(my_grok_number)
+
+#if defined(NEED_grok_number) || defined(NEED_grok_number_GLOBAL)
+int
+DPPP_(my_grok_number)(pTHX_ const char *pv, STRLEN len, UV *valuep)
+{
+  const char *s = pv;
+  const char *send = pv + len;
+  const UV max_div_10 = UV_MAX / 10;
+  const char max_mod_10 = UV_MAX % 10;
+  int numtype = 0;
+  int sawinf = 0;
+  int sawnan = 0;
+
+  while (s < send && isSPACE(*s))
+    s++;
+  if (s == send) {
+    return 0;
+  } else if (*s == '-') {
+    s++;
+    numtype = IS_NUMBER_NEG;
+  }
+  else if (*s == '+')
+  s++;
+
+  if (s == send)
+    return 0;
+
+  /* next must be digit or the radix separator or beginning of infinity */
+  if (isDIGIT(*s)) {
+    /* UVs are at least 32 bits, so the first 9 decimal digits cannot
+       overflow.  */
+    UV value = *s - '0';
+    /* This construction seems to be more optimiser friendly.
+       (without it gcc does the isDIGIT test and the *s - '0' separately)
+       With it gcc on arm is managing 6 instructions (6 cycles) per digit.
+       In theory the optimiser could deduce how far to unroll the loop
+       before checking for overflow.  */
+    if (++s < send) {
+      int digit = *s - '0';
+      if (digit >= 0 && digit <= 9) {
+        value = value * 10 + digit;
+        if (++s < send) {
+          digit = *s - '0';
+          if (digit >= 0 && digit <= 9) {
+            value = value * 10 + digit;
+            if (++s < send) {
+              digit = *s - '0';
+              if (digit >= 0 && digit <= 9) {
+                value = value * 10 + digit;
+                if (++s < send) {
+                  digit = *s - '0';
+                  if (digit >= 0 && digit <= 9) {
+                    value = value * 10 + digit;
+                    if (++s < send) {
+                      digit = *s - '0';
+                      if (digit >= 0 && digit <= 9) {
+                        value = value * 10 + digit;
+                        if (++s < send) {
+                          digit = *s - '0';
+                          if (digit >= 0 && digit <= 9) {
+                            value = value * 10 + digit;
+                            if (++s < send) {
+                              digit = *s - '0';
+                              if (digit >= 0 && digit <= 9) {
+                                value = value * 10 + digit;
+                                if (++s < send) {
+                                  digit = *s - '0';
+                                  if (digit >= 0 && digit <= 9) {
+                                    value = value * 10 + digit;
+                                    if (++s < send) {
+                                      /* Now got 9 digits, so need to check
+                                         each time for overflow.  */
+                                      digit = *s - '0';
+                                      while (digit >= 0 && digit <= 9
+                                             && (value < max_div_10
+                                                 || (value == max_div_10
+                                                     && digit <= max_mod_10))) {
+                                        value = value * 10 + digit;
+                                        if (++s < send)
+                                          digit = *s - '0';
+                                        else
+                                          break;
+                                      }
+                                      if (digit >= 0 && digit <= 9
+                                          && (s < send)) {
+                                        /* value overflowed.
+                                           skip the remaining digits, don't
+                                           worry about setting *valuep.  */
+                                        do {
+                                          s++;
+                                        } while (s < send && isDIGIT(*s));
+                                        numtype |=
+                                          IS_NUMBER_GREATER_THAN_UV_MAX;
+                                        goto skip_value;
+                                      }
+                                    }
+                                  }
+                                }
+                              }
+                            }
+                          }
+                        }
+                      }
+                    }
+                  }
+                }
+              }
+            }
+          }
+        }
+      }
+    }
+    numtype |= IS_NUMBER_IN_UV;
+    if (valuep)
+      *valuep = value;
+
+  skip_value:
+    if (GROK_NUMERIC_RADIX(&s, send)) {
+      numtype |= IS_NUMBER_NOT_INT;
+      while (s < send && isDIGIT(*s))  /* optional digits after the radix */
+        s++;
+    }
+  }
+  else if (GROK_NUMERIC_RADIX(&s, send)) {
+    numtype |= IS_NUMBER_NOT_INT | IS_NUMBER_IN_UV; /* valuep assigned below */
+    /* no digits before the radix means we need digits after it */
+    if (s < send && isDIGIT(*s)) {
+      do {
+        s++;
+      } while (s < send && isDIGIT(*s));
+      if (valuep) {
+        /* integer approximation is valid - it's 0.  */
+        *valuep = 0;
+      }
+    }
+    else
+      return 0;
+  } else if (*s == 'I' || *s == 'i') {
+    s++; if (s == send || (*s != 'N' && *s != 'n')) return 0;
+    s++; if (s == send || (*s != 'F' && *s != 'f')) return 0;
+    s++; if (s < send && (*s == 'I' || *s == 'i')) {
+      s++; if (s == send || (*s != 'N' && *s != 'n')) return 0;
+      s++; if (s == send || (*s != 'I' && *s != 'i')) return 0;
+      s++; if (s == send || (*s != 'T' && *s != 't')) return 0;
+      s++; if (s == send || (*s != 'Y' && *s != 'y')) return 0;
+      s++;
+    }
+    sawinf = 1;
+  } else if (*s == 'N' || *s == 'n') {
+    /* XXX TODO: There are signaling NaNs and quiet NaNs. */
+    s++; if (s == send || (*s != 'A' && *s != 'a')) return 0;
+    s++; if (s == send || (*s != 'N' && *s != 'n')) return 0;
+    s++;
+    sawnan = 1;
+  } else
+    return 0;
+
+  if (sawinf) {
+    numtype &= IS_NUMBER_NEG; /* Keep track of sign  */
+    numtype |= IS_NUMBER_INFINITY | IS_NUMBER_NOT_INT;
+  } else if (sawnan) {
+    numtype &= IS_NUMBER_NEG; /* Keep track of sign  */
+    numtype |= IS_NUMBER_NAN | IS_NUMBER_NOT_INT;
+  } else if (s < send) {
+    /* we can have an optional exponent part */
+    if (*s == 'e' || *s == 'E') {
+      /* The only flag we keep is sign.  Blow away any "it's UV"  */
+      numtype &= IS_NUMBER_NEG;
+      numtype |= IS_NUMBER_NOT_INT;
+      s++;
+      if (s < send && (*s == '-' || *s == '+'))
+        s++;
+      if (s < send && isDIGIT(*s)) {
+        do {
+          s++;
+        } while (s < send && isDIGIT(*s));
+      }
+      else
+      return 0;
+    }
+  }
+  while (s < send && isSPACE(*s))
+    s++;
+  if (s >= send)
+    return numtype;
+  if (len == 10 && memEQ(pv, "0 but true", 10)) {
+    if (valuep)
+      *valuep = 0;
+    return IS_NUMBER_IN_UV;
+  }
+  return 0;
+}
+#endif
+#endif
+
+/*
+ * The grok_* routines have been modified to use warn() instead of
+ * Perl_warner(). Also, 'hexdigit' was the former name of PL_hexdigit,
+ * which is why the stack variable has been renamed to 'xdigit'.
+ */
+
+#ifndef grok_bin
+#if defined(NEED_grok_bin)
+static UV DPPP_(my_grok_bin)(pTHX_ const char * start, STRLEN * len_p, I32 * flags, NV * result);
+static
+#else
+extern UV DPPP_(my_grok_bin)(pTHX_ const char * start, STRLEN * len_p, I32 * flags, NV * result);
+#endif
+
+#ifdef grok_bin
+#  undef grok_bin
+#endif
+#define grok_bin(a,b,c,d) DPPP_(my_grok_bin)(aTHX_ a,b,c,d)
+#define Perl_grok_bin DPPP_(my_grok_bin)
+
+#if defined(NEED_grok_bin) || defined(NEED_grok_bin_GLOBAL)
+UV
+DPPP_(my_grok_bin)(pTHX_ const char *start, STRLEN *len_p, I32 *flags, NV *result)
+{
+    const char *s = start;
+    STRLEN len = *len_p;
+    UV value = 0;
+    NV value_nv = 0;
+
+    const UV max_div_2 = UV_MAX / 2;
+    bool allow_underscores = *flags & PERL_SCAN_ALLOW_UNDERSCORES;
+    bool overflowed = FALSE;
+
+    if (!(*flags & PERL_SCAN_DISALLOW_PREFIX)) {
+        /* strip off leading b or 0b.
+           for compatibility silently suffer "b" and "0b" as valid binary
+           numbers. */
+        if (len >= 1) {
+            if (s[0] == 'b') {
+                s++;
+                len--;
+            }
+            else if (len >= 2 && s[0] == '0' && s[1] == 'b') {
+                s+=2;
+                len-=2;
+            }
+        }
+    }
+
+    for (; len-- && *s; s++) {
+        char bit = *s;
+        if (bit == '0' || bit == '1') {
+            /* Write it in this wonky order with a goto to attempt to get the
+               compiler to make the common case integer-only loop pretty tight.
+               With gcc seems to be much straighter code than old scan_bin.  */
+          redo:
+            if (!overflowed) {
+                if (value <= max_div_2) {
+                    value = (value << 1) | (bit - '0');
+                    continue;
+                }
+                /* Bah. We're just overflowed.  */
+                warn("Integer overflow in binary number");
+                overflowed = TRUE;
+                value_nv = (NV) value;
+            }
+            value_nv *= 2.0;
+            /* If an NV has not enough bits in its mantissa to
+             * represent a UV this summing of small low-order numbers
+             * is a waste of time (because the NV cannot preserve
+             * the low-order bits anyway): we could just remember when
+             * did we overflow and in the end just multiply value_nv by the
+             * right amount. */
+            value_nv += (NV)(bit - '0');
+            continue;
+        }
+        if (bit == '_' && len && allow_underscores && (bit = s[1])
+            && (bit == '0' || bit == '1'))
+            {
+                --len;
+                ++s;
+                goto redo;
+            }
+        if (!(*flags & PERL_SCAN_SILENT_ILLDIGIT))
+            warn("Illegal binary digit '%c' ignored", *s);
+        break;
+    }
+
+    if (   ( overflowed && value_nv > 4294967295.0)
+#if UVSIZE > 4
+        || (!overflowed && value > 0xffffffff  )
+#endif
+        ) {
+        warn("Binary number > 0b11111111111111111111111111111111 non-portable");
+    }
+    *len_p = s - start;
+    if (!overflowed) {
+        *flags = 0;
+        return value;
+    }
+    *flags = PERL_SCAN_GREATER_THAN_UV_MAX;
+    if (result)
+        *result = value_nv;
+    return UV_MAX;
+}
+#endif
+#endif
+
+#ifndef grok_hex
+#if defined(NEED_grok_hex)
+static UV DPPP_(my_grok_hex)(pTHX_ const char * start, STRLEN * len_p, I32 * flags, NV * result);
+static
+#else
+extern UV DPPP_(my_grok_hex)(pTHX_ const char * start, STRLEN * len_p, I32 * flags, NV * result);
+#endif
+
+#ifdef grok_hex
+#  undef grok_hex
+#endif
+#define grok_hex(a,b,c,d) DPPP_(my_grok_hex)(aTHX_ a,b,c,d)
+#define Perl_grok_hex DPPP_(my_grok_hex)
+
+#if defined(NEED_grok_hex) || defined(NEED_grok_hex_GLOBAL)
+UV
+DPPP_(my_grok_hex)(pTHX_ const char *start, STRLEN *len_p, I32 *flags, NV *result)
+{
+    const char *s = start;
+    STRLEN len = *len_p;
+    UV value = 0;
+    NV value_nv = 0;
+
+    const UV max_div_16 = UV_MAX / 16;
+    bool allow_underscores = *flags & PERL_SCAN_ALLOW_UNDERSCORES;
+    bool overflowed = FALSE;
+    const char *xdigit;
+
+    if (!(*flags & PERL_SCAN_DISALLOW_PREFIX)) {
+        /* strip off leading x or 0x.
+           for compatibility silently suffer "x" and "0x" as valid hex numbers.
+        */
+        if (len >= 1) {
+            if (s[0] == 'x') {
+                s++;
+                len--;
+            }
+            else if (len >= 2 && s[0] == '0' && s[1] == 'x') {
+                s+=2;
+                len-=2;
+            }
+        }
+    }
+
+    for (; len-- && *s; s++) {
+        xdigit = strchr((char *) PL_hexdigit, *s);
+        if (xdigit) {
+            /* Write it in this wonky order with a goto to attempt to get the
+               compiler to make the common case integer-only loop pretty tight.
+               With gcc seems to be much straighter code than old scan_hex.  */
+          redo:
+            if (!overflowed) {
+                if (value <= max_div_16) {
+                    value = (value << 4) | ((xdigit - PL_hexdigit) & 15);
+                    continue;
+                }
+                warn("Integer overflow in hexadecimal number");
+                overflowed = TRUE;
+                value_nv = (NV) value;
+            }
+            value_nv *= 16.0;
+            /* If an NV has not enough bits in its mantissa to
+             * represent a UV this summing of small low-order numbers
+             * is a waste of time (because the NV cannot preserve
+             * the low-order bits anyway): we could just remember when
+             * did we overflow and in the end just multiply value_nv by the
+             * right amount of 16-tuples. */
+            value_nv += (NV)((xdigit - PL_hexdigit) & 15);
+            continue;
+        }
+        if (*s == '_' && len && allow_underscores && s[1]
+                && (xdigit = strchr((char *) PL_hexdigit, s[1])))
+            {
+                --len;
+                ++s;
+                goto redo;
+            }
+        if (!(*flags & PERL_SCAN_SILENT_ILLDIGIT))
+            warn("Illegal hexadecimal digit '%c' ignored", *s);
+        break;
+    }
+
+    if (   ( overflowed && value_nv > 4294967295.0)
+#if UVSIZE > 4
+        || (!overflowed && value > 0xffffffff  )
+#endif
+        ) {
+        warn("Hexadecimal number > 0xffffffff non-portable");
+    }
+    *len_p = s - start;
+    if (!overflowed) {
+        *flags = 0;
+        return value;
+    }
+    *flags = PERL_SCAN_GREATER_THAN_UV_MAX;
+    if (result)
+        *result = value_nv;
+    return UV_MAX;
+}
+#endif
+#endif
+
+#ifndef grok_oct
+#if defined(NEED_grok_oct)
+static UV DPPP_(my_grok_oct)(pTHX_ const char * start, STRLEN * len_p, I32 * flags, NV * result);
+static
+#else
+extern UV DPPP_(my_grok_oct)(pTHX_ const char * start, STRLEN * len_p, I32 * flags, NV * result);
+#endif
+
+#ifdef grok_oct
+#  undef grok_oct
+#endif
+#define grok_oct(a,b,c,d) DPPP_(my_grok_oct)(aTHX_ a,b,c,d)
+#define Perl_grok_oct DPPP_(my_grok_oct)
+
+#if defined(NEED_grok_oct) || defined(NEED_grok_oct_GLOBAL)
+UV
+DPPP_(my_grok_oct)(pTHX_ const char *start, STRLEN *len_p, I32 *flags, NV *result)
+{
+    const char *s = start;
+    STRLEN len = *len_p;
+    UV value = 0;
+    NV value_nv = 0;
+
+    const UV max_div_8 = UV_MAX / 8;
+    bool allow_underscores = *flags & PERL_SCAN_ALLOW_UNDERSCORES;
+    bool overflowed = FALSE;
+
+    for (; len-- && *s; s++) {
+         /* gcc 2.95 optimiser not smart enough to figure that this subtraction
+            out front allows slicker code.  */
+        int digit = *s - '0';
+        if (digit >= 0 && digit <= 7) {
+            /* Write it in this wonky order with a goto to attempt to get the
+               compiler to make the common case integer-only loop pretty tight.
+            */
+          redo:
+            if (!overflowed) {
+                if (value <= max_div_8) {
+                    value = (value << 3) | digit;
+                    continue;
+                }
+                /* Bah. We're just overflowed.  */
+                warn("Integer overflow in octal number");
+                overflowed = TRUE;
+                value_nv = (NV) value;
+            }
+            value_nv *= 8.0;
+            /* If an NV has not enough bits in its mantissa to
+             * represent a UV this summing of small low-order numbers
+             * is a waste of time (because the NV cannot preserve
+             * the low-order bits anyway): we could just remember when
+             * did we overflow and in the end just multiply value_nv by the
+             * right amount of 8-tuples. */
+            value_nv += (NV)digit;
+            continue;
+        }
+        if (digit == ('_' - '0') && len && allow_underscores
+            && (digit = s[1] - '0') && (digit >= 0 && digit <= 7))
+            {
+                --len;
+                ++s;
+                goto redo;
+            }
+        /* Allow \octal to work the DWIM way (that is, stop scanning
+         * as soon as non-octal characters are seen, complain only iff
+         * someone seems to want to use the digits eight and nine). */
+        if (digit == 8 || digit == 9) {
+            if (!(*flags & PERL_SCAN_SILENT_ILLDIGIT))
+                warn("Illegal octal digit '%c' ignored", *s);
+        }
+        break;
+    }
+
+    if (   ( overflowed && value_nv > 4294967295.0)
+#if UVSIZE > 4
+        || (!overflowed && value > 0xffffffff  )
+#endif
+        ) {
+        warn("Octal number > 037777777777 non-portable");
+    }
+    *len_p = s - start;
+    if (!overflowed) {
+        *flags = 0;
+        return value;
+    }
+    *flags = PERL_SCAN_GREATER_THAN_UV_MAX;
+    if (result)
+        *result = value_nv;
+    return UV_MAX;
+}
+#endif
+#endif
+
+#if !defined(my_snprintf)
+#if defined(NEED_my_snprintf)
+static int DPPP_(my_my_snprintf)(char * buffer, const Size_t len, const char * format, ...);
+static
+#else
+extern int DPPP_(my_my_snprintf)(char * buffer, const Size_t len, const char * format, ...);
+#endif
+
+#define my_snprintf DPPP_(my_my_snprintf)
+#define Perl_my_snprintf DPPP_(my_my_snprintf)
+
+#if defined(NEED_my_snprintf) || defined(NEED_my_snprintf_GLOBAL)
+
+int
+DPPP_(my_my_snprintf)(char *buffer, const Size_t len, const char *format, ...)
+{
+    dTHX;
+    int retval;
+    va_list ap;
+    va_start(ap, format);
+#ifdef HAS_VSNPRINTF
+    retval = vsnprintf(buffer, len, format, ap);
+#else
+    retval = vsprintf(buffer, format, ap);
+#endif
+    va_end(ap);
+    if (retval < 0 || (len > 0 && (Size_t)retval >= len))
+        Perl_croak(aTHX_ "panic: my_snprintf buffer overflow");
+    return retval;
+}
+
+#endif
+#endif
+
+#if !defined(my_sprintf)
+#if defined(NEED_my_sprintf)
+static int DPPP_(my_my_sprintf)(char * buffer, const char * pat, ...);
+static
+#else
+extern int DPPP_(my_my_sprintf)(char * buffer, const char * pat, ...);
+#endif
+
+#define my_sprintf DPPP_(my_my_sprintf)
+#define Perl_my_sprintf DPPP_(my_my_sprintf)
+
+#if defined(NEED_my_sprintf) || defined(NEED_my_sprintf_GLOBAL)
+
+int
+DPPP_(my_my_sprintf)(char *buffer, const char* pat, ...)
+{
+    va_list args;
+    va_start(args, pat);
+    vsprintf(buffer, pat, args);
+    va_end(args);
+    return strlen(buffer);
+}
+
+#endif
+#endif
+
+#ifdef NO_XSLOCKS
+#  ifdef dJMPENV
+#    define dXCPT             dJMPENV; int rEtV = 0
+#    define XCPT_TRY_START    JMPENV_PUSH(rEtV); if (rEtV == 0)
+#    define XCPT_TRY_END      JMPENV_POP;
+#    define XCPT_CATCH        if (rEtV != 0)
+#    define XCPT_RETHROW      JMPENV_JUMP(rEtV)
+#  else
+#    define dXCPT             Sigjmp_buf oldTOP; int rEtV = 0
+#    define XCPT_TRY_START    Copy(top_env, oldTOP, 1, Sigjmp_buf); rEtV = Sigsetjmp(top_env, 1); if (rEtV == 0)
+#    define XCPT_TRY_END      Copy(oldTOP, top_env, 1, Sigjmp_buf);
+#    define XCPT_CATCH        if (rEtV != 0)
+#    define XCPT_RETHROW      Siglongjmp(top_env, rEtV)
+#  endif
+#endif
+
+#if !defined(my_strlcat)
+#if defined(NEED_my_strlcat)
+static Size_t DPPP_(my_my_strlcat)(char * dst, const char * src, Size_t size);
+static
+#else
+extern Size_t DPPP_(my_my_strlcat)(char * dst, const char * src, Size_t size);
+#endif
+
+#define my_strlcat DPPP_(my_my_strlcat)
+#define Perl_my_strlcat DPPP_(my_my_strlcat)
+
+#if defined(NEED_my_strlcat) || defined(NEED_my_strlcat_GLOBAL)
+
+Size_t
+DPPP_(my_my_strlcat)(char *dst, const char *src, Size_t size)
+{
+    Size_t used, length, copy;
+
+    used = strlen(dst);
+    length = strlen(src);
+    if (size > 0 && used < size - 1) {
+        copy = (length >= size - used) ? size - used - 1 : length;
+        memcpy(dst + used, src, copy);
+        dst[used + copy] = '\0';
+    }
+    return used + length;
+}
+#endif
+#endif
+
+#if !defined(my_strlcpy)
+#if defined(NEED_my_strlcpy)
+static Size_t DPPP_(my_my_strlcpy)(char * dst, const char * src, Size_t size);
+static
+#else
+extern Size_t DPPP_(my_my_strlcpy)(char * dst, const char * src, Size_t size);
+#endif
+
+#define my_strlcpy DPPP_(my_my_strlcpy)
+#define Perl_my_strlcpy DPPP_(my_my_strlcpy)
+
+#if defined(NEED_my_strlcpy) || defined(NEED_my_strlcpy_GLOBAL)
+
+Size_t
+DPPP_(my_my_strlcpy)(char *dst, const char *src, Size_t size)
+{
+    Size_t length, copy;
+
+    length = strlen(src);
+    if (size > 0) {
+        copy = (length >= size) ? size - 1 : length;
+        memcpy(dst, src, copy);
+        dst[copy] = '\0';
+    }
+    return length;
+}
+
+#endif
+#endif
+#ifndef PERL_PV_ESCAPE_QUOTE
+#  define PERL_PV_ESCAPE_QUOTE           0x0001
+#endif
+
+#ifndef PERL_PV_PRETTY_QUOTE
+#  define PERL_PV_PRETTY_QUOTE           PERL_PV_ESCAPE_QUOTE
+#endif
+
+#ifndef PERL_PV_PRETTY_ELLIPSES
+#  define PERL_PV_PRETTY_ELLIPSES        0x0002
+#endif
+
+#ifndef PERL_PV_PRETTY_LTGT
+#  define PERL_PV_PRETTY_LTGT            0x0004
+#endif
+
+#ifndef PERL_PV_ESCAPE_FIRSTCHAR
+#  define PERL_PV_ESCAPE_FIRSTCHAR       0x0008
+#endif
+
+#ifndef PERL_PV_ESCAPE_UNI
+#  define PERL_PV_ESCAPE_UNI             0x0100
+#endif
+
+#ifndef PERL_PV_ESCAPE_UNI_DETECT
+#  define PERL_PV_ESCAPE_UNI_DETECT      0x0200
+#endif
+
+#ifndef PERL_PV_ESCAPE_ALL
+#  define PERL_PV_ESCAPE_ALL             0x1000
+#endif
+
+#ifndef PERL_PV_ESCAPE_NOBACKSLASH
+#  define PERL_PV_ESCAPE_NOBACKSLASH     0x2000
+#endif
+
+#ifndef PERL_PV_ESCAPE_NOCLEAR
+#  define PERL_PV_ESCAPE_NOCLEAR         0x4000
+#endif
+
+#ifndef PERL_PV_ESCAPE_RE
+#  define PERL_PV_ESCAPE_RE              0x8000
+#endif
+
+#ifndef PERL_PV_PRETTY_NOCLEAR
+#  define PERL_PV_PRETTY_NOCLEAR         PERL_PV_ESCAPE_NOCLEAR
+#endif
+#ifndef PERL_PV_PRETTY_DUMP
+#  define PERL_PV_PRETTY_DUMP            PERL_PV_PRETTY_ELLIPSES|PERL_PV_PRETTY_QUOTE
+#endif
+
+#ifndef PERL_PV_PRETTY_REGPROP
+#  define PERL_PV_PRETTY_REGPROP         PERL_PV_PRETTY_ELLIPSES|PERL_PV_PRETTY_LTGT|PERL_PV_ESCAPE_RE
+#endif
+
+/* Hint: pv_escape
+ * Note that unicode functionality is only backported to
+ * those perl versions that support it. For older perl
+ * versions, the implementation will fall back to bytes.
+ */
+
+#ifndef pv_escape
+#if defined(NEED_pv_escape)
+static char * DPPP_(my_pv_escape)(pTHX_ SV * dsv, char const * const str, const STRLEN count, const STRLEN max, STRLEN * const escaped, const U32 flags);
+static
+#else
+extern char * DPPP_(my_pv_escape)(pTHX_ SV * dsv, char const * const str, const STRLEN count, const STRLEN max, STRLEN * const escaped, const U32 flags);
+#endif
+
+#ifdef pv_escape
+#  undef pv_escape
+#endif
+#define pv_escape(a,b,c,d,e,f) DPPP_(my_pv_escape)(aTHX_ a,b,c,d,e,f)
+#define Perl_pv_escape DPPP_(my_pv_escape)
+
+#if defined(NEED_pv_escape) || defined(NEED_pv_escape_GLOBAL)
+
+char *
+DPPP_(my_pv_escape)(pTHX_ SV *dsv, char const * const str,
+  const STRLEN count, const STRLEN max,
+  STRLEN * const escaped, const U32 flags)
+{
+    const char esc = flags & PERL_PV_ESCAPE_RE ? '%' : '\\';
+    const char dq = flags & PERL_PV_ESCAPE_QUOTE ? '"' : esc;
+    char octbuf[32] = "%123456789ABCDF";
+    STRLEN wrote = 0;
+    STRLEN chsize = 0;
+    STRLEN readsize = 1;
+#if defined(is_utf8_string) && defined(utf8_to_uvchr)
+    bool isuni = flags & PERL_PV_ESCAPE_UNI ? 1 : 0;
+#endif
+    const char *pv  = str;
+    const char * const end = pv + count;
+    octbuf[0] = esc;
+
+    if (!(flags & PERL_PV_ESCAPE_NOCLEAR))
+        sv_setpvs(dsv, "");
+
+#if defined(is_utf8_string) && defined(utf8_to_uvchr)
+    if ((flags & PERL_PV_ESCAPE_UNI_DETECT) && is_utf8_string((U8*)pv, count))
+        isuni = 1;
+#endif
+
+    for (; pv < end && (!max || wrote < max) ; pv += readsize) {
+        const UV u =
+#if defined(is_utf8_string) && defined(utf8_to_uvchr)
+                     isuni ? utf8_to_uvchr((U8*)pv, &readsize) :
+#endif
+                             (U8)*pv;
+        const U8 c = (U8)u & 0xFF;
+
+        if (u > 255 || (flags & PERL_PV_ESCAPE_ALL)) {
+            if (flags & PERL_PV_ESCAPE_FIRSTCHAR)
+                chsize = my_snprintf(octbuf, sizeof octbuf,
+                                      "%" UVxf, u);
+            else
+                chsize = my_snprintf(octbuf, sizeof octbuf,
+                                      "%cx{%" UVxf "}", esc, u);
+        } else if (flags & PERL_PV_ESCAPE_NOBACKSLASH) {
+            chsize = 1;
+        } else {
+            if (c == dq || c == esc || !isPRINT(c)) {
+                chsize = 2;
+                switch (c) {
+                case '\\' : /* fallthrough */
+                case '%'  : if (c == esc)
+                                octbuf[1] = esc;
+                            else
+                                chsize = 1;
+                            break;
+                case '\v' : octbuf[1] = 'v'; break;
+                case '\t' : octbuf[1] = 't'; break;
+                case '\r' : octbuf[1] = 'r'; break;
+                case '\n' : octbuf[1] = 'n'; break;
+                case '\f' : octbuf[1] = 'f'; break;
+                case '"'  : if (dq == '"')
+                                octbuf[1] = '"';
+                            else
+                                chsize = 1;
+                            break;
+                default:    chsize = my_snprintf(octbuf, sizeof octbuf,
+                                pv < end && isDIGIT((U8)*(pv+readsize))
+                                ? "%c%03o" : "%c%o", esc, c);
+                }
+            } else {
+                chsize = 1;
+            }
+        }
+        if (max && wrote + chsize > max) {
+            break;
+        } else if (chsize > 1) {
+            sv_catpvn(dsv, octbuf, chsize);
+            wrote += chsize;
+        } else {
+            char tmp[2];
+            my_snprintf(tmp, sizeof tmp, "%c", c);
+            sv_catpvn(dsv, tmp, 1);
+            wrote++;
+        }
+        if (flags & PERL_PV_ESCAPE_FIRSTCHAR)
+            break;
+    }
+    if (escaped != NULL)
+        *escaped= pv - str;
+    return SvPVX(dsv);
+}
+
+#endif
+#endif
+
+#ifndef pv_pretty
+#if defined(NEED_pv_pretty)
+static char * DPPP_(my_pv_pretty)(pTHX_ SV * dsv, char const * const str, const STRLEN count, const STRLEN max, char const * const start_color, char const * const end_color, const U32 flags);
+static
+#else
+extern char * DPPP_(my_pv_pretty)(pTHX_ SV * dsv, char const * const str, const STRLEN count, const STRLEN max, char const * const start_color, char const * const end_color, const U32 flags);
+#endif
+
+#ifdef pv_pretty
+#  undef pv_pretty
+#endif
+#define pv_pretty(a,b,c,d,e,f,g) DPPP_(my_pv_pretty)(aTHX_ a,b,c,d,e,f,g)
+#define Perl_pv_pretty DPPP_(my_pv_pretty)
+
+#if defined(NEED_pv_pretty) || defined(NEED_pv_pretty_GLOBAL)
+
+char *
+DPPP_(my_pv_pretty)(pTHX_ SV *dsv, char const * const str, const STRLEN count,
+  const STRLEN max, char const * const start_color, char const * const end_color,
+  const U32 flags)
+{
+    const U8 dq = (flags & PERL_PV_PRETTY_QUOTE) ? '"' : '%';
+    STRLEN escaped;
+
+    if (!(flags & PERL_PV_PRETTY_NOCLEAR))
+        sv_setpvs(dsv, "");
+
+    if (dq == '"')
+        sv_catpvs(dsv, "\"");
+    else if (flags & PERL_PV_PRETTY_LTGT)
+        sv_catpvs(dsv, "<");
+
+    if (start_color != NULL)
+        sv_catpv(dsv, D_PPP_CONSTPV_ARG(start_color));
+
+    pv_escape(dsv, str, count, max, &escaped, flags | PERL_PV_ESCAPE_NOCLEAR);
+
+    if (end_color != NULL)
+        sv_catpv(dsv, D_PPP_CONSTPV_ARG(end_color));
+
+    if (dq == '"')
+        sv_catpvs(dsv, "\"");
+    else if (flags & PERL_PV_PRETTY_LTGT)
+        sv_catpvs(dsv, ">");
+
+    if ((flags & PERL_PV_PRETTY_ELLIPSES) && escaped < count)
+        sv_catpvs(dsv, "...");
+
+    return SvPVX(dsv);
+}
+
+#endif
+#endif
+
+#ifndef pv_display
+#if defined(NEED_pv_display)
+static char * DPPP_(my_pv_display)(pTHX_ SV * dsv, const char * pv, STRLEN cur, STRLEN len, STRLEN pvlim);
+static
+#else
+extern char * DPPP_(my_pv_display)(pTHX_ SV * dsv, const char * pv, STRLEN cur, STRLEN len, STRLEN pvlim);
+#endif
+
+#ifdef pv_display
+#  undef pv_display
+#endif
+#define pv_display(a,b,c,d,e) DPPP_(my_pv_display)(aTHX_ a,b,c,d,e)
+#define Perl_pv_display DPPP_(my_pv_display)
+
+#if defined(NEED_pv_display) || defined(NEED_pv_display_GLOBAL)
+
+char *
+DPPP_(my_pv_display)(pTHX_ SV *dsv, const char *pv, STRLEN cur, STRLEN len, STRLEN pvlim)
+{
+    pv_pretty(dsv, pv, cur, pvlim, NULL, NULL, PERL_PV_PRETTY_DUMP);
+    if (len > cur && pv[cur] == '\0')
+        sv_catpvs(dsv, "\\0");
+    return SvPVX(dsv);
+}
+
+#endif
+#endif
+
+#endif /* _P_P_PORTABILITY_H_ */
+
+/* End of File ppport.h */
diff --git a/lib/5.24.1/x86_64-linux/Devel/Peek.pm b/lib/5.24.1/x86_64-linux/Devel/Peek.pm
new file mode 100644
index 00000000..c0483ca1
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/Devel/Peek.pm
@@ -0,0 +1,589 @@
+# Devel::Peek - A data debugging tool for the XS programmer
+# The documentation is after the __END__
+
+package Devel::Peek;
+
+$VERSION = '1.23';
+$XS_VERSION = $VERSION;
+$VERSION = eval $VERSION;
+
+require Exporter;
+require XSLoader;
+
+@ISA = qw(Exporter);
+@EXPORT = qw(Dump mstat DeadCode DumpArray DumpWithOP DumpProg
+	     fill_mstats mstats_fillhash mstats2hash runops_debug debug_flags);
+@EXPORT_OK = qw(SvREFCNT CvGV);
+%EXPORT_TAGS = ('ALL' => [@EXPORT, @EXPORT_OK]);
+
+XSLoader::load();
+
+sub import {
+  my $c = shift;
+  my $ops_rx = qr/^:opd(=[stP]*)?\b/;
+  my @db = grep m/$ops_rx/, @_;
+  @_ = grep !m/$ops_rx/, @_;
+  if (@db) {
+    die "Too many :opd options" if @db > 1;
+    runops_debug(1);
+    my $flags = ($db[0] =~ m/$ops_rx/ and $1);
+    $flags = 'st' unless defined $flags;
+    my $f = 0;
+    $f |= 2  if $flags =~ /s/;
+    $f |= 8  if $flags =~ /t/;
+    $f |= 64 if $flags =~ /P/;
+    $^D |= $f if $f;
+  }
+  unshift @_, $c;
+  goto &Exporter::import;
+}
+
+sub DumpWithOP ($;$) {
+   local($Devel::Peek::dump_ops)=1;
+   my $depth = @_ > 1 ? $_[1] : 4 ;
+   Dump($_[0],$depth);
+}
+
+$D_flags = 'psltocPmfrxuLHXDSTR';
+
+sub debug_flags (;$) {
+  my $out = "";
+  for my $i (0 .. length($D_flags)-1) {
+    $out .= substr $D_flags, $i, 1 if $^D & (1<<$i);
+  }
+  my $arg = shift;
+  my $num = $arg;
+  if (defined $arg and $arg =~ /\D/) {
+    die "unknown flags in debug_flags()" if $arg =~ /[^-$D_flags]/;
+    my ($on,$off) = split /-/, "$arg-";
+    $num = $^D;
+    $num |=  (1<<index($D_flags, $_)) for split //, $on;
+    $num &= ~(1<<index($D_flags, $_)) for split //, $off;
+  }
+  $^D = $num if defined $arg;
+  $out
+}
+
+sub B::Deparse::pp_Devel_Peek_Dump {
+  my ($deparse,$op,$cx) = @_;
+  my @kids = $deparse->deparse($op->first, 6);
+  my $sib = $op->first->sibling;
+  if (ref $sib ne 'B::NULL') {
+    push @kids, $deparse->deparse($sib, 6);
+  }
+  return "Devel::Peek::Dump(" . join(", ", @kids) . ")";
+}
+
+1;
+__END__
+
+=head1 NAME
+
+Devel::Peek - A data debugging tool for the XS programmer
+
+=head1 SYNOPSIS
+
+        use Devel::Peek;
+        Dump( $a );
+        Dump( $a, 5 );
+        Dump( @a );
+        Dump( %h );
+        DumpArray( 5, $a, $b, ... );
+	mstat "Point 5";
+
+        use Devel::Peek ':opd=st';
+
+=head1 DESCRIPTION
+
+Devel::Peek contains functions which allows raw Perl datatypes to be
+manipulated from a Perl script.  This is used by those who do XS programming
+to check that the data they are sending from C to Perl looks as they think
+it should look.  The trick, then, is to know what the raw datatype is
+supposed to look like when it gets to Perl.  This document offers some tips
+and hints to describe good and bad raw data.
+
+It is very possible that this document will fall far short of being useful
+to the casual reader.  The reader is expected to understand the material in
+the first few sections of L<perlguts>.
+
+Devel::Peek supplies a C<Dump()> function which can dump a raw Perl
+datatype, and C<mstat("marker")> function to report on memory usage
+(if perl is compiled with corresponding option).  The function
+DeadCode() provides statistics on the data "frozen" into inactive
+C<CV>.  Devel::Peek also supplies C<SvREFCNT()> which can query reference
+counts on SVs.  This document will take a passive, and safe, approach
+to data debugging and for that it will describe only the C<Dump()>
+function.
+
+All output is to STDERR.
+
+The C<Dump()> function takes one or two arguments: something to dump, and
+an optional limit for recursion and array elements (default is 4).  The
+first argument is evaluted in rvalue scalar context, with exceptions for
+@array and %hash, which dump the array or hash itself.  So C<Dump @array>
+works, as does C<Dump $foo>.  And C<Dump pos> will call C<pos> in rvalue
+context, whereas C<Dump ${\pos}> will call it in lvalue context.
+
+Function C<DumpArray()> allows dumping of multiple values (useful when you
+need to analyze returns of functions).
+
+The global variable $Devel::Peek::pv_limit can be set to limit the
+number of character printed in various string values.  Setting it to 0
+means no limit.
+
+If C<use Devel::Peek> directive has a C<:opd=FLAGS> argument,
+this switches on debugging of opcode dispatch.  C<FLAGS> should be a
+combination of C<s>, C<t>, and C<P> (see B<-D> flags in L<perlrun>).
+C<:opd> is a shortcut for C<:opd=st>.
+
+=head2 Runtime debugging
+
+C<CvGV($cv)> return one of the globs associated to a subroutine reference $cv.
+
+debug_flags() returns a string representation of C<$^D> (similar to
+what is allowed for B<-D> flag).  When called with a numeric argument,
+sets $^D to the corresponding value.  When called with an argument of
+the form C<"flags-flags">, set on/off bits of C<$^D> corresponding to
+letters before/after C<->.  (The returned value is for C<$^D> before
+the modification.)
+
+runops_debug() returns true if the current I<opcode dispatcher> is the
+debugging one.  When called with an argument, switches to debugging or
+non-debugging dispatcher depending on the argument (active for
+newly-entered subs/etc only).  (The returned value is for the dispatcher before the modification.)
+
+=head2 Memory footprint debugging
+
+When perl is compiled with support for memory footprint debugging
+(default with Perl's malloc()), Devel::Peek provides an access to this API.
+
+Use mstat() function to emit a memory state statistic to the terminal.
+For more information on the format of output of mstat() see
+L<perldebguts/Using $ENV{PERL_DEBUG_MSTATS}>.
+
+Three additional functions allow access to this statistic from Perl.
+First, use C<mstats_fillhash(%hash)> to get the information contained
+in the output of mstat() into %hash. The field of this hash are
+
+  minbucket nbuckets sbrk_good sbrk_slack sbrked_remains sbrks
+  start_slack topbucket topbucket_ev topbucket_odd total total_chain
+  total_sbrk totfree
+
+Two additional fields C<free>, C<used> contain array references which
+provide per-bucket count of free and used chunks.  Two other fields
+C<mem_size>, C<available_size> contain array references which provide
+the information about the allocated size and usable size of chunks in
+each bucket.  Again, see L<perldebguts/Using $ENV{PERL_DEBUG_MSTATS}>
+for details.
+
+
+Keep in mind that only the first several "odd-numbered" buckets are
+used, so the information on size of the "odd-numbered" buckets which are
+not used is probably meaningless.
+
+The information in
+
+ mem_size available_size minbucket nbuckets
+
+is the property of a particular build of perl, and does not depend on
+the current process.  If you do not provide the optional argument to
+the functions mstats_fillhash(), fill_mstats(), mstats2hash(), then
+the information in fields C<mem_size>, C<available_size> is not
+updated.
+
+C<fill_mstats($buf)> is a much cheaper call (both speedwise and
+memory-wise) which collects the statistic into $buf in
+machine-readable form.  At a later moment you may need to call
+C<mstats2hash($buf, %hash)> to use this information to fill %hash.
+
+All three APIs C<fill_mstats($buf)>, C<mstats_fillhash(%hash)>, and
+C<mstats2hash($buf, %hash)> are designed to allocate no memory if used
+I<the second time> on the same $buf and/or %hash.
+
+So, if you want to collect memory info in a cycle, you may call
+
+  $#buf = 999;
+  fill_mstats($_) for @buf;
+  mstats_fillhash(%report, 1);		# Static info too
+
+  foreach (@buf) {
+    # Do something...
+    fill_mstats $_;			# Collect statistic
+  }
+  foreach (@buf) {
+    mstats2hash($_, %report);		# Preserve static info
+    # Do something with %report
+  }
+
+=head1 EXAMPLES
+
+The following examples don't attempt to show everything as that would be a
+monumental task, and, frankly, we don't want this manpage to be an internals
+document for Perl.  The examples do demonstrate some basics of the raw Perl
+datatypes, and should suffice to get most determined people on their way.
+There are no guidewires or safety nets, nor blazed trails, so be prepared to
+travel alone from this point and on and, if at all possible, don't fall into
+the quicksand (it's bad for business).
+
+Oh, one final bit of advice: take L<perlguts> with you.  When you return we
+expect to see it well-thumbed.
+
+=head2 A simple scalar string
+
+Let's begin by looking a simple scalar which is holding a string.
+
+        use Devel::Peek;
+        $a = 42; $a = "hello";
+        Dump $a;
+
+The output:
+
+        SV = PVIV(0xbc288) at 0xbe9a8
+          REFCNT = 1
+          FLAGS = (POK,pPOK)
+          IV = 42
+          PV = 0xb2048 "hello"\0
+          CUR = 5
+          LEN = 8
+
+This says C<$a> is an SV, a scalar.  The scalar type is a PVIV, which is
+capable of holding an integer (IV) and/or a string (PV) value. The scalar's
+head is allocated at address 0xbe9a8, while the body is at 0xbc288.
+Its reference count is 1.  It has the C<POK> flag set, meaning its
+current PV field is valid.  Because POK is set we look at the PV item
+to see what is in the scalar.  The \0 at the end indicate that this
+PV is properly NUL-terminated.
+Note that the IV field still contains its old numeric value, but because
+FLAGS doesn't have IOK set, we must ignore the IV item.
+CUR indicates the number of characters in the PV.  LEN indicates the
+number of bytes allocated for the PV (at least one more than CUR, because
+LEN includes an extra byte for the end-of-string marker, then usually
+rounded up to some efficient allocation unit).
+
+=head2 A simple scalar number
+
+If the scalar contains a number the raw SV will be leaner.
+
+        use Devel::Peek;
+        $a = 42;
+        Dump $a;
+
+The output:
+
+        SV = IV(0xbc818) at 0xbe9a8
+          REFCNT = 1
+          FLAGS = (IOK,pIOK)
+          IV = 42
+
+This says C<$a> is an SV, a scalar.  The scalar is an IV, a number.  Its
+reference count is 1.  It has the C<IOK> flag set, meaning it is currently
+being evaluated as a number.  Because IOK is set we look at the IV item to
+see what is in the scalar.
+
+=head2 A simple scalar with an extra reference
+
+If the scalar from the previous example had an extra reference:
+
+        use Devel::Peek;
+        $a = 42;
+        $b = \$a;
+        Dump $a;
+
+The output:
+
+        SV = IV(0xbe860) at 0xbe9a8
+          REFCNT = 2
+          FLAGS = (IOK,pIOK)
+          IV = 42
+
+Notice that this example differs from the previous example only in its
+reference count.  Compare this to the next example, where we dump C<$b>
+instead of C<$a>.
+
+=head2 A reference to a simple scalar
+
+This shows what a reference looks like when it references a simple scalar.
+
+        use Devel::Peek;
+        $a = 42;
+        $b = \$a;
+        Dump $b;
+
+The output:
+
+        SV = IV(0xf041c) at 0xbe9a0
+          REFCNT = 1
+          FLAGS = (ROK)
+          RV = 0xbab08
+          SV = IV(0xbe860) at 0xbe9a8
+            REFCNT = 2
+            FLAGS = (IOK,pIOK)
+            IV = 42
+
+Starting from the top, this says C<$b> is an SV.  The scalar is an IV,
+which is capable of holding an integer or reference value.
+It has the C<ROK> flag set, meaning it is a reference (rather than an
+integer or string).  Notice that Dump
+follows the reference and shows us what C<$b> was referencing.  We see the
+same C<$a> that we found in the previous example.
+
+Note that the value of C<RV> coincides with the numbers we see when we
+stringify $b. The addresses inside IV() are addresses of
+C<X***> structures which hold the current state of an C<SV>. This
+address may change during lifetime of an SV.
+
+=head2 A reference to an array
+
+This shows what a reference to an array looks like.
+
+        use Devel::Peek;
+        $a = [42];
+        Dump $a;
+
+The output:
+
+        SV = IV(0xc85998) at 0xc859a8
+          REFCNT = 1
+          FLAGS = (ROK)
+          RV = 0xc70de8
+          SV = PVAV(0xc71e10) at 0xc70de8
+            REFCNT = 1
+            FLAGS = ()
+            ARRAY = 0xc7e820
+            FILL = 0
+            MAX = 0
+            ARYLEN = 0x0
+            FLAGS = (REAL)
+            Elt No. 0
+            SV = IV(0xc70f88) at 0xc70f98
+              REFCNT = 1
+              FLAGS = (IOK,pIOK)
+              IV = 42
+
+This says C<$a> is a reference (ROK), which points to
+another SV which is a PVAV, an array.  The array has one element,
+element zero, which is another SV. The field C<FILL> above indicates
+the last element in the array, similar to C<$#$a>.
+
+If C<$a> pointed to an array of two elements then we would see the
+following.
+
+        use Devel::Peek 'Dump';
+        $a = [42,24];
+        Dump $a;
+
+The output:
+
+        SV = IV(0x158c998) at 0x158c9a8
+          REFCNT = 1
+          FLAGS = (ROK)
+          RV = 0x1577de8
+          SV = PVAV(0x1578e10) at 0x1577de8
+            REFCNT = 1
+            FLAGS = ()
+            ARRAY = 0x1585820
+            FILL = 1
+            MAX = 1
+            ARYLEN = 0x0
+            FLAGS = (REAL)
+            Elt No. 0
+            SV = IV(0x1577f88) at 0x1577f98
+              REFCNT = 1
+              FLAGS = (IOK,pIOK)
+              IV = 42
+            Elt No. 1
+            SV = IV(0x158be88) at 0x158be98
+              REFCNT = 1
+              FLAGS = (IOK,pIOK)
+              IV = 24
+
+Note that C<Dump> will not report I<all> the elements in the array,
+only several first (depending on how deep it already went into the
+report tree).
+
+=head2 A reference to a hash
+
+The following shows the raw form of a reference to a hash.
+
+        use Devel::Peek;
+        $a = {hello=>42};
+        Dump $a;
+
+The output:
+
+	SV = IV(0x8177858) at 0x816a618
+	  REFCNT = 1
+	  FLAGS = (ROK)
+	  RV = 0x814fc10
+	  SV = PVHV(0x8167768) at 0x814fc10
+	    REFCNT = 1
+	    FLAGS = (SHAREKEYS)
+	    ARRAY = 0x816c5b8  (0:7, 1:1)
+	    hash quality = 100.0%
+	    KEYS = 1
+	    FILL = 1
+	    MAX = 7
+	    RITER = -1
+	    EITER = 0x0
+	    Elt "hello" HASH = 0xc8fd181b
+	    SV = IV(0x816c030) at 0x814fcf4
+	      REFCNT = 1
+	      FLAGS = (IOK,pIOK)
+	      IV = 42
+
+This shows C<$a> is a reference pointing to an SV.  That SV is a PVHV, a
+hash. Fields RITER and EITER are used by C<L<perlfunc/each>>.
+
+The "quality" of a hash is defined as the total number of comparisons needed
+to access every element once, relative to the expected number needed for a
+random hash. The value can go over 100%.
+
+The total number of comparisons is equal to the sum of the squares of the
+number of entries in each bucket.  For a random hash of C<<n>> keys into
+C<<k>> buckets, the expected value is:
+
+		n + n(n-1)/2k
+
+=head2 Dumping a large array or hash
+
+The C<Dump()> function, by default, dumps up to 4 elements from a
+toplevel array or hash.  This number can be increased by supplying a
+second argument to the function.
+
+        use Devel::Peek;
+        $a = [10,11,12,13,14];
+        Dump $a;
+
+Notice that C<Dump()> prints only elements 10 through 13 in the above code.
+The following code will print all of the elements.
+
+        use Devel::Peek 'Dump';
+        $a = [10,11,12,13,14];
+        Dump $a, 5;
+
+=head2 A reference to an SV which holds a C pointer
+
+This is what you really need to know as an XS programmer, of course.  When
+an XSUB returns a pointer to a C structure that pointer is stored in an SV
+and a reference to that SV is placed on the XSUB stack.  So the output from
+an XSUB which uses something like the T_PTROBJ map might look something like
+this:
+
+        SV = IV(0xf381c) at 0xc859a8
+          REFCNT = 1
+          FLAGS = (ROK)
+          RV = 0xb8ad8
+          SV = PVMG(0xbb3c8) at 0xc859a0
+            REFCNT = 1
+            FLAGS = (OBJECT,IOK,pIOK)
+            IV = 729160
+            NV = 0
+            PV = 0
+            STASH = 0xc1d10       "CookBookB::Opaque"
+
+This shows that we have an SV which is a reference, which points at another
+SV.  In this case that second SV is a PVMG, a blessed scalar.  Because it is
+blessed it has the C<OBJECT> flag set.  Note that an SV which holds a C
+pointer also has the C<IOK> flag set.  The C<STASH> is set to the package
+name which this SV was blessed into.
+
+The output from an XSUB which uses something like the T_PTRREF map, which
+doesn't bless the object, might look something like this:
+
+        SV = IV(0xf381c) at 0xc859a8
+          REFCNT = 1
+          FLAGS = (ROK)
+          RV = 0xb8ad8
+          SV = PVMG(0xbb3c8) at 0xc859a0
+            REFCNT = 1
+            FLAGS = (IOK,pIOK)
+            IV = 729160
+            NV = 0
+            PV = 0
+
+=head2 A reference to a subroutine
+
+Looks like this:
+
+	SV = IV(0x24d2dd8) at 0x24d2de8
+	  REFCNT = 1
+	  FLAGS = (TEMP,ROK)
+	  RV = 0x24e79d8
+	  SV = PVCV(0x24e5798) at 0x24e79d8
+	    REFCNT = 2
+	    FLAGS = ()
+	    COMP_STASH = 0x22c9c50	"main"
+	    START = 0x22eed60 ===> 0
+	    ROOT = 0x22ee490
+	    GVGV::GV = 0x22de9d8	"MY" :: "top_targets"
+	    FILE = "(eval 5)"
+	    DEPTH = 0
+	    FLAGS = 0x0
+	    OUTSIDE_SEQ = 93
+	    PADLIST = 0x22e9ed8
+	    PADNAME = 0x22e9ec0(0x22eed00) PAD = 0x22e9ea8(0x22eecd0)
+	    OUTSIDE = 0x22c9fb0 (MAIN)
+
+
+This shows that 
+
+=over 4
+
+=item *
+
+the subroutine is not an XSUB (since C<START> and C<ROOT> are
+non-zero, and C<XSUB> is not listed, and is thus null);
+
+=item *
+
+that it was compiled in the package C<main>;
+
+=item *
+
+under the name C<MY::top_targets>; 
+
+=item *
+
+inside a 5th eval in the program;
+
+=item *
+
+it is not currently executed (see C<DEPTH>);
+
+=item *
+
+it has no prototype (C<PROTOTYPE> field is missing).
+
+=back
+
+=head1 EXPORTS
+
+C<Dump>, C<mstat>, C<DeadCode>, C<DumpArray>, C<DumpWithOP> and
+C<DumpProg>, C<fill_mstats>, C<mstats_fillhash>, C<mstats2hash> by
+default. Additionally available C<SvREFCNT>, C<SvREFCNT_inc> and
+C<SvREFCNT_dec>.
+
+=head1 BUGS
+
+Readers have been known to skip important parts of L<perlguts>, causing much
+frustration for all.
+
+=head1 AUTHOR
+
+Ilya Zakharevich	ilya@math.ohio-state.edu
+
+Copyright (c) 1995-98 Ilya Zakharevich. All rights reserved.
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+Author of this software makes no claim whatsoever about suitability,
+reliability, edability, editability or usability of this product, and
+should not be kept liable for any damage resulting from the use of
+it. If you can use it, you are in luck, if not, I should not be kept
+responsible. Keep a handy copy of your backup tape at hand.
+
+=head1 SEE ALSO
+
+L<perlguts>, and L<perlguts>, again.
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/Digest/MD5.pm b/lib/5.24.1/x86_64-linux/Digest/MD5.pm
new file mode 100644
index 00000000..bb92ddb4
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/Digest/MD5.pm
@@ -0,0 +1,385 @@
+package Digest::MD5;
+
+use strict;
+use vars qw($VERSION @ISA @EXPORT_OK);
+
+$VERSION = '2.54';
+
+require Exporter;
+*import = \&Exporter::import;
+@EXPORT_OK = qw(md5 md5_hex md5_base64);
+
+eval {
+    require Digest::base;
+    push(@ISA, 'Digest::base');
+};
+if ($@) {
+    my $err = $@;
+    *add_bits = sub { die $err };
+}
+
+
+eval {
+    require XSLoader;
+    XSLoader::load('Digest::MD5', $VERSION);
+};
+if ($@) {
+    my $olderr = $@;
+    eval {
+	# Try to load the pure perl version
+	require Digest::Perl::MD5;
+
+	Digest::Perl::MD5->import(qw(md5 md5_hex md5_base64));
+	unshift(@ISA, "Digest::Perl::MD5");  # make OO interface work
+    };
+    if ($@) {
+	# restore the original error
+	die $olderr;
+    }
+}
+else {
+    *reset = \&new;
+}
+
+1;
+__END__
+
+=head1 NAME
+
+Digest::MD5 - Perl interface to the MD5 Algorithm
+
+=head1 SYNOPSIS
+
+ # Functional style
+ use Digest::MD5 qw(md5 md5_hex md5_base64);
+
+ $digest = md5($data);
+ $digest = md5_hex($data);
+ $digest = md5_base64($data);
+
+ # OO style
+ use Digest::MD5;
+
+ $ctx = Digest::MD5->new;
+
+ $ctx->add($data);
+ $ctx->addfile($file_handle);
+
+ $digest = $ctx->digest;
+ $digest = $ctx->hexdigest;
+ $digest = $ctx->b64digest;
+
+=head1 DESCRIPTION
+
+The C<Digest::MD5> module allows you to use the RSA Data Security
+Inc. MD5 Message Digest algorithm from within Perl programs.  The
+algorithm takes as input a message of arbitrary length and produces as
+output a 128-bit "fingerprint" or "message digest" of the input.
+
+Note that the MD5 algorithm is not as strong as it used to be.  It has
+since 2005 been easy to generate different messages that produce the
+same MD5 digest.  It still seems hard to generate messages that
+produce a given digest, but it is probably wise to move to stronger
+algorithms for applications that depend on the digest to uniquely identify
+a message.
+
+The C<Digest::MD5> module provide a procedural interface for simple
+use, as well as an object oriented interface that can handle messages
+of arbitrary length and which can read files directly.
+
+=head1 FUNCTIONS
+
+The following functions are provided by the C<Digest::MD5> module.
+None of these functions are exported by default.
+
+=over 4
+
+=item md5($data,...)
+
+This function will concatenate all arguments, calculate the MD5 digest
+of this "message", and return it in binary form.  The returned string
+will be 16 bytes long.
+
+The result of md5("a", "b", "c") will be exactly the same as the
+result of md5("abc").
+
+=item md5_hex($data,...)
+
+Same as md5(), but will return the digest in hexadecimal form. The
+length of the returned string will be 32 and it will only contain
+characters from this set: '0'..'9' and 'a'..'f'.
+
+=item md5_base64($data,...)
+
+Same as md5(), but will return the digest as a base64 encoded string.
+The length of the returned string will be 22 and it will only contain
+characters from this set: 'A'..'Z', 'a'..'z', '0'..'9', '+' and
+'/'.
+
+Note that the base64 encoded string returned is not padded to be a
+multiple of 4 bytes long.  If you want interoperability with other
+base64 encoded md5 digests you might want to append the redundant
+string "==" to the result.
+
+=back
+
+=head1 METHODS
+
+The object oriented interface to C<Digest::MD5> is described in this
+section.  After a C<Digest::MD5> object has been created, you will add
+data to it and finally ask for the digest in a suitable format.  A
+single object can be used to calculate multiple digests.
+
+The following methods are provided:
+
+=over 4
+
+=item $md5 = Digest::MD5->new
+
+The constructor returns a new C<Digest::MD5> object which encapsulate
+the state of the MD5 message-digest algorithm.
+
+If called as an instance method (i.e. $md5->new) it will just reset the
+state the object to the state of a newly created object.  No new
+object is created in this case.
+
+=item $md5->reset
+
+This is just an alias for $md5->new.
+
+=item $md5->clone
+
+This a copy of the $md5 object. It is useful when you do not want to
+destroy the digests state, but need an intermediate value of the
+digest, e.g. when calculating digests iteratively on a continuous data
+stream.  Example:
+
+    my $md5 = Digest::MD5->new;
+    while (<>) {
+	$md5->add($_);
+	print "Line $.: ", $md5->clone->hexdigest, "\n";
+    }
+
+=item $md5->add($data,...)
+
+The $data provided as argument are appended to the message we
+calculate the digest for.  The return value is the $md5 object itself.
+
+All these lines will have the same effect on the state of the $md5
+object:
+
+    $md5->add("a"); $md5->add("b"); $md5->add("c");
+    $md5->add("a")->add("b")->add("c");
+    $md5->add("a", "b", "c");
+    $md5->add("abc");
+
+=item $md5->addfile($io_handle)
+
+The $io_handle will be read until EOF and its content appended to the
+message we calculate the digest for.  The return value is the $md5
+object itself.
+
+The addfile() method will croak() if it fails reading data for some
+reason.  If it croaks it is unpredictable what the state of the $md5
+object will be in. The addfile() method might have been able to read
+the file partially before it failed.  It is probably wise to discard
+or reset the $md5 object if this occurs.
+
+In most cases you want to make sure that the $io_handle is in
+C<binmode> before you pass it as argument to the addfile() method.
+
+=item $md5->add_bits($data, $nbits)
+
+=item $md5->add_bits($bitstring)
+
+Since the MD5 algorithm is byte oriented you might only add bits as
+multiples of 8, so you probably want to just use add() instead.  The
+add_bits() method is provided for compatibility with other digest
+implementations.  See L<Digest> for description of the arguments
+that add_bits() take.
+
+=item $md5->digest
+
+Return the binary digest for the message.  The returned string will be
+16 bytes long.
+
+Note that the C<digest> operation is effectively a destructive,
+read-once operation. Once it has been performed, the C<Digest::MD5>
+object is automatically C<reset> and can be used to calculate another
+digest value.  Call $md5->clone->digest if you want to calculate the
+digest without resetting the digest state.
+
+=item $md5->hexdigest
+
+Same as $md5->digest, but will return the digest in hexadecimal
+form. The length of the returned string will be 32 and it will only
+contain characters from this set: '0'..'9' and 'a'..'f'.
+
+=item $md5->b64digest
+
+Same as $md5->digest, but will return the digest as a base64 encoded
+string.  The length of the returned string will be 22 and it will only
+contain characters from this set: 'A'..'Z', 'a'..'z', '0'..'9', '+'
+and '/'.
+
+
+The base64 encoded string returned is not padded to be a multiple of 4
+bytes long.  If you want interoperability with other base64 encoded
+md5 digests you might want to append the string "==" to the result.
+
+=item @ctx = $md5->context
+
+=item $md5->context(@ctx)
+
+Saves or restores the internal state.  When called with no arguments,
+returns a 3-element list: number of blocks processed, a 16-byte
+internal state buffer, then up to 63 bytes of unprocessed data.  When
+passed those same arguments, restores the state.  This is only useful
+for specialised operations.
+
+=back
+
+
+=head1 EXAMPLES
+
+The simplest way to use this library is to import the md5_hex()
+function (or one of its cousins):
+
+    use Digest::MD5 qw(md5_hex);
+    print "Digest is ", md5_hex("foobarbaz"), "\n";
+
+The above example would print out the message:
+
+    Digest is 6df23dc03f9b54cc38a0fc1483df6e21
+
+The same checksum can also be calculated in OO style:
+
+    use Digest::MD5;
+    
+    $md5 = Digest::MD5->new;
+    $md5->add('foo', 'bar');
+    $md5->add('baz');
+    $digest = $md5->hexdigest;
+    
+    print "Digest is $digest\n";
+
+With OO style, you can break the message arbitrarily.  This means that we
+are no longer limited to have space for the whole message in memory, i.e.
+we can handle messages of any size.
+
+This is useful when calculating checksum for files:
+
+    use Digest::MD5;
+
+    my $filename = shift || "/etc/passwd";
+    open (my $fh, '<', $filename) or die "Can't open '$filename': $!";
+    binmode($fh);
+
+    $md5 = Digest::MD5->new;
+    while (<$fh>) {
+        $md5->add($_);
+    }
+    close($fh);
+    print $md5->b64digest, " $filename\n";
+
+Or we can use the addfile method for more efficient reading of
+the file:
+
+    use Digest::MD5;
+
+    my $filename = shift || "/etc/passwd";
+    open (my $fh, '<', $filename) or die "Can't open '$filename': $!";
+    binmode ($fh);
+
+    print Digest::MD5->new->addfile($fh)->hexdigest, " $filename\n";
+
+Since the MD5 algorithm is only defined for strings of bytes, it can not be
+used on strings that contains chars with ordinal number above 255 (Unicode
+strings).  The MD5 functions and methods will croak if you try to feed them
+such input data:
+
+    use Digest::MD5 qw(md5_hex);
+
+    my $str = "abc\x{300}";
+    print md5_hex($str), "\n";  # croaks
+    # Wide character in subroutine entry
+
+What you can do is calculate the MD5 checksum of the UTF-8
+representation of such strings.  This is achieved by filtering the
+string through encode_utf8() function:
+
+    use Digest::MD5 qw(md5_hex);
+    use Encode qw(encode_utf8);
+
+    my $str = "abc\x{300}";
+    print md5_hex(encode_utf8($str)), "\n";
+    # 8c2d46911f3f5a326455f0ed7a8ed3b3
+
+=head1 SEE ALSO
+
+L<Digest>,
+L<Digest::MD2>,
+L<Digest::SHA>,
+L<Digest::HMAC>
+
+L<md5sum(1)>
+
+RFC 1321
+
+http://en.wikipedia.org/wiki/MD5
+
+The paper "How to Break MD5 and Other Hash Functions" by Xiaoyun Wang
+and Hongbo Yu.
+
+=head1 COPYRIGHT
+
+This library is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+ Copyright 1998-2003 Gisle Aas.
+ Copyright 1995-1996 Neil Winton.
+ Copyright 1991-1992 RSA Data Security, Inc.
+
+The MD5 algorithm is defined in RFC 1321. This implementation is
+derived from the reference C code in RFC 1321 which is covered by
+the following copyright statement:
+
+=over 4
+
+=item
+
+Copyright (C) 1991-2, RSA Data Security, Inc. Created 1991. All
+rights reserved.
+
+License to copy and use this software is granted provided that it
+is identified as the "RSA Data Security, Inc. MD5 Message-Digest
+Algorithm" in all material mentioning or referencing this software
+or this function.
+
+License is also granted to make and use derivative works provided
+that such works are identified as "derived from the RSA Data
+Security, Inc. MD5 Message-Digest Algorithm" in all material
+mentioning or referencing the derived work.
+
+RSA Data Security, Inc. makes no representations concerning either
+the merchantability of this software or the suitability of this
+software for any particular purpose. It is provided "as is"
+without express or implied warranty of any kind.
+
+These notices must be retained in any copies of any part of this
+documentation and/or software.
+
+=back
+
+This copyright does not prohibit distribution of any version of Perl
+containing this extension under the terms of the GNU or Artistic
+licenses.
+
+=head1 AUTHORS
+
+The original C<MD5> interface was written by Neil Winton
+(C<N.Winton@axion.bt.co.uk>).
+
+The C<Digest::MD5> module is written by Gisle Aas <gisle@ActiveState.com>.
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/Digest/SHA.pm b/lib/5.24.1/x86_64-linux/Digest/SHA.pm
new file mode 100644
index 00000000..e696dece
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/Digest/SHA.pm
@@ -0,0 +1,823 @@
+package Digest::SHA;
+
+require 5.003000;
+
+use strict;
+use warnings;
+use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
+use Fcntl;
+use integer;
+
+$VERSION = '5.95_01';
+
+require Exporter;
+require DynaLoader;
+@ISA = qw(Exporter DynaLoader);
+@EXPORT_OK = qw(
+	hmac_sha1	hmac_sha1_base64	hmac_sha1_hex
+	hmac_sha224	hmac_sha224_base64	hmac_sha224_hex
+	hmac_sha256	hmac_sha256_base64	hmac_sha256_hex
+	hmac_sha384	hmac_sha384_base64	hmac_sha384_hex
+	hmac_sha512	hmac_sha512_base64	hmac_sha512_hex
+	hmac_sha512224	hmac_sha512224_base64	hmac_sha512224_hex
+	hmac_sha512256	hmac_sha512256_base64	hmac_sha512256_hex
+	sha1		sha1_base64		sha1_hex
+	sha224		sha224_base64		sha224_hex
+	sha256		sha256_base64		sha256_hex
+	sha384		sha384_base64		sha384_hex
+	sha512		sha512_base64		sha512_hex
+	sha512224	sha512224_base64	sha512224_hex
+	sha512256	sha512256_base64	sha512256_hex);
+
+# Inherit from Digest::base if possible
+
+eval {
+	require Digest::base;
+	push(@ISA, 'Digest::base');
+};
+
+# The following routines aren't time-critical, so they can be left in Perl
+
+sub new {
+	my($class, $alg) = @_;
+	$alg =~ s/\D+//g if defined $alg;
+	if (ref($class)) {	# instance method
+		if (!defined($alg) || ($alg == $class->algorithm)) {
+			sharewind($class);
+			return($class);
+		}
+		return shainit($class, $alg) ? $class : undef;
+	}
+	$alg = 1 unless defined $alg;
+	return $class->newSHA($alg);
+}
+
+BEGIN { *reset = \&new }
+
+sub add_bits {
+	my($self, $data, $nbits) = @_;
+	unless (defined $nbits) {
+		$nbits = length($data);
+		$data = pack("B*", $data);
+	}
+	$nbits = length($data) * 8 if $nbits > length($data) * 8;
+	shawrite($data, $nbits, $self);
+	return($self);
+}
+
+sub _bail {
+	my $msg = shift;
+
+	$msg .= ": $!";
+	require Carp;
+	Carp::croak($msg);
+}
+
+{
+	my $_can_T_filehandle;
+
+	sub _istext {
+		local *FH = shift;
+		my $file = shift;
+
+		if (! defined $_can_T_filehandle) {
+			local $^W = 0;
+			my $istext = eval { -T FH };
+			$_can_T_filehandle = $@ ? 0 : 1;
+			return $_can_T_filehandle ? $istext : -T $file;
+		}
+		return $_can_T_filehandle ? -T FH : -T $file;
+	}
+}
+
+sub _addfile {
+	my ($self, $handle) = @_;
+
+	my $n;
+	my $buf = "";
+
+	while (($n = read($handle, $buf, 4096))) {
+		$self->add($buf);
+	}
+	_bail("Read failed") unless defined $n;
+
+	$self;
+}
+
+sub addfile {
+	my ($self, $file, $mode) = @_;
+
+	return(_addfile($self, $file)) unless ref(\$file) eq 'SCALAR';
+
+	$mode = defined($mode) ? $mode : "";
+	my ($binary, $UNIVERSAL, $BITS, $portable) =
+		map { $_ eq $mode } ("b", "U", "0", "p");
+
+		## Always interpret "-" to mean STDIN; otherwise use
+		## sysopen to handle full range of POSIX file names
+
+	local *FH;
+	$file eq '-' and open(FH, '< -')
+		or sysopen(FH, $file, O_RDONLY)
+			or _bail('Open failed');
+
+	if ($BITS) {
+		my ($n, $buf) = (0, "");
+		while (($n = read(FH, $buf, 4096))) {
+			$buf =~ s/[^01]//g;
+			$self->add_bits($buf);
+		}
+		_bail("Read failed") unless defined $n;
+		close(FH);
+		return($self);
+	}
+
+	binmode(FH) if $binary || $portable || $UNIVERSAL;
+	if ($UNIVERSAL && _istext(*FH, $file)) {
+		$self->_addfileuniv(*FH);
+	}
+	elsif ($portable && _istext(*FH, $file)) {
+		while (<FH>) {
+			s/\015?\015\012/\012/g;
+			s/\015/\012/g;
+			$self->add($_);
+		}
+	}
+	else { $self->_addfilebin(*FH) }
+	close(FH);
+
+	$self;
+}
+
+sub getstate {
+	my $self = shift;
+
+	my $alg = $self->algorithm or return;
+	my $state = $self->_getstate or return;
+	my $nD = $alg <= 256 ?  8 :  16;
+	my $nH = $alg <= 256 ? 32 :  64;
+	my $nB = $alg <= 256 ? 64 : 128;
+	my($H, $block, $blockcnt, $lenhh, $lenhl, $lenlh, $lenll) =
+		$state =~ /^(.{$nH})(.{$nB})(.{4})(.{4})(.{4})(.{4})(.{4})$/s;
+	for ($alg, $H, $block, $blockcnt, $lenhh, $lenhl, $lenlh, $lenll) {
+		return unless defined $_;
+	}
+
+	my @s = ();
+	push(@s, "alg:" . $alg);
+	push(@s, "H:" . join(":", unpack("H*", $H) =~ /.{$nD}/g));
+	push(@s, "block:" . join(":", unpack("H*", $block) =~ /.{2}/g));
+	push(@s, "blockcnt:" . unpack("N", $blockcnt));
+	push(@s, "lenhh:" . unpack("N", $lenhh));
+	push(@s, "lenhl:" . unpack("N", $lenhl));
+	push(@s, "lenlh:" . unpack("N", $lenlh));
+	push(@s, "lenll:" . unpack("N", $lenll));
+	join("\n", @s) . "\n";
+}
+
+sub putstate {
+	my($class, $state) = @_;
+
+	my %s = ();
+	for (split(/\n/, $state)) {
+		s/^\s+//;
+		s/\s+$//;
+		next if (/^(#|$)/);
+		my @f = split(/[:\s]+/);
+		my $tag = shift(@f);
+		$s{$tag} = join('', @f);
+	}
+
+	# H and block may contain arbitrary values, but check everything else
+	grep { $_ == $s{'alg'} } (1,224,256,384,512,512224,512256) or return;
+	length($s{'H'}) == ($s{'alg'} <= 256 ? 64 : 128) or return;
+	length($s{'block'}) == ($s{'alg'} <= 256 ? 128 : 256) or return;
+	{
+		no integer;
+		for (qw(blockcnt lenhh lenhl lenlh lenll)) {
+			0 <= $s{$_} or return;
+			$s{$_} <= 4294967295 or return;
+		}
+		$s{'blockcnt'} < ($s{'alg'} <= 256 ? 512 : 1024) or return;
+	}
+
+	my $packed_state = (
+		pack("H*", $s{'H'}) .
+		pack("H*", $s{'block'}) .
+		pack("N",  $s{'blockcnt'}) .
+		pack("N",  $s{'lenhh'}) .
+		pack("N",  $s{'lenhl'}) .
+		pack("N",  $s{'lenlh'}) .
+		pack("N",  $s{'lenll'})
+	);
+
+	return $class->new($s{'alg'})->_putstate($packed_state);
+}
+
+sub dump {
+	my $self = shift;
+	my $file = shift;
+
+	my $state = $self->getstate or return;
+	$file = "-" if (!defined($file) || $file eq "");
+
+	local *FH;
+	open(FH, "> $file") or return;
+	print FH $state;
+	close(FH);
+
+	return($self);
+}
+
+sub load {
+	my $class = shift;
+	my $file = shift;
+
+	$file = "-" if (!defined($file) || $file eq "");
+
+	local *FH;
+	open(FH, "< $file") or return;
+	my $str = join('', <FH>);
+	close(FH);
+
+	$class->putstate($str);
+}
+
+Digest::SHA->bootstrap($VERSION);
+
+1;
+__END__
+
+=head1 NAME
+
+Digest::SHA - Perl extension for SHA-1/224/256/384/512
+
+=head1 SYNOPSIS
+
+In programs:
+
+		# Functional interface
+
+	use Digest::SHA qw(sha1 sha1_hex sha1_base64 ...);
+
+	$digest = sha1($data);
+	$digest = sha1_hex($data);
+	$digest = sha1_base64($data);
+
+	$digest = sha256($data);
+	$digest = sha384_hex($data);
+	$digest = sha512_base64($data);
+
+		# Object-oriented
+
+	use Digest::SHA;
+
+	$sha = Digest::SHA->new($alg);
+
+	$sha->add($data);		# feed data into stream
+
+	$sha->addfile(*F);
+	$sha->addfile($filename);
+
+	$sha->add_bits($bits);
+	$sha->add_bits($data, $nbits);
+
+	$sha_copy = $sha->clone;	# make copy of digest object
+	$state = $sha->getstate;	# save current state to string
+	$sha->putstate($state);		# restore previous $state
+
+	$digest = $sha->digest;		# compute digest
+	$digest = $sha->hexdigest;
+	$digest = $sha->b64digest;
+
+From the command line:
+
+	$ shasum files
+
+	$ shasum --help
+
+=head1 SYNOPSIS (HMAC-SHA)
+
+		# Functional interface only
+
+	use Digest::SHA qw(hmac_sha1 hmac_sha1_hex ...);
+
+	$digest = hmac_sha1($data, $key);
+	$digest = hmac_sha224_hex($data, $key);
+	$digest = hmac_sha256_base64($data, $key);
+
+=head1 ABSTRACT
+
+Digest::SHA is a complete implementation of the NIST Secure Hash Standard.
+It gives Perl programmers a convenient way to calculate SHA-1, SHA-224,
+SHA-256, SHA-384, SHA-512, SHA-512/224, and SHA-512/256 message digests.
+The module can handle all types of input, including partial-byte data.
+
+=head1 DESCRIPTION
+
+Digest::SHA is written in C for speed.  If your platform lacks a
+C compiler, you can install the functionally equivalent (but much
+slower) L<Digest::SHA::PurePerl> module.
+
+The programming interface is easy to use: it's the same one found
+in CPAN's L<Digest> module.  So, if your applications currently
+use L<Digest::MD5> and you'd prefer the stronger security of SHA,
+it's a simple matter to convert them.
+
+The interface provides two ways to calculate digests:  all-at-once,
+or in stages.  To illustrate, the following short program computes
+the SHA-256 digest of "hello world" using each approach:
+
+	use Digest::SHA qw(sha256_hex);
+
+	$data = "hello world";
+	@frags = split(//, $data);
+
+	# all-at-once (Functional style)
+	$digest1 = sha256_hex($data);
+
+	# in-stages (OOP style)
+	$state = Digest::SHA->new(256);
+	for (@frags) { $state->add($_) }
+	$digest2 = $state->hexdigest;
+
+	print $digest1 eq $digest2 ?
+		"whew!\n" : "oops!\n";
+
+To calculate the digest of an n-bit message where I<n> is not a
+multiple of 8, use the I<add_bits()> method.  For example, consider
+the 446-bit message consisting of the bit-string "110" repeated
+148 times, followed by "11".  Here's how to display its SHA-1
+digest:
+
+	use Digest::SHA;
+	$bits = "110" x 148 . "11";
+	$sha = Digest::SHA->new(1)->add_bits($bits);
+	print $sha->hexdigest, "\n";
+
+Note that for larger bit-strings, it's more efficient to use the
+two-argument version I<add_bits($data, $nbits)>, where I<$data> is
+in the customary packed binary format used for Perl strings.
+
+The module also lets you save intermediate SHA states to a string.  The
+I<getstate()> method generates portable, human-readable text describing
+the current state of computation.  You can subsequently restore that
+state with I<putstate()> to resume where the calculation left off.
+
+To see what a state description looks like, just run the following:
+
+	use Digest::SHA;
+	print Digest::SHA->new->add("Shaw" x 1962)->getstate;
+
+As an added convenience, the Digest::SHA module offers routines to
+calculate keyed hashes using the HMAC-SHA-1/224/256/384/512
+algorithms.  These services exist in functional form only, and
+mimic the style and behavior of the I<sha()>, I<sha_hex()>, and
+I<sha_base64()> functions.
+
+	# Test vector from draft-ietf-ipsec-ciph-sha-256-01.txt
+
+	use Digest::SHA qw(hmac_sha256_hex);
+	print hmac_sha256_hex("Hi There", chr(0x0b) x 32), "\n";
+
+=head1 UNICODE AND SIDE EFFECTS
+
+Perl supports Unicode strings as of version 5.6.  Such strings may
+contain wide characters, namely, characters whose ordinal values are
+greater than 255.  This can cause problems for digest algorithms such
+as SHA that are specified to operate on sequences of bytes.
+
+The rule by which Digest::SHA handles a Unicode string is easy
+to state, but potentially confusing to grasp: the string is interpreted
+as a sequence of byte values, where each byte value is equal to the
+ordinal value (viz. code point) of its corresponding Unicode character.
+That way, the Unicode string 'abc' has exactly the same digest value as
+the ordinary string 'abc'.
+
+Since a wide character does not fit into a byte, the Digest::SHA
+routines croak if they encounter one.  Whereas if a Unicode string
+contains no wide characters, the module accepts it quite happily.
+The following code illustrates the two cases:
+
+	$str1 = pack('U*', (0..255));
+	print sha1_hex($str1);		# ok
+
+	$str2 = pack('U*', (0..256));
+	print sha1_hex($str2);		# croaks
+
+Be aware that the digest routines silently convert UTF-8 input into its
+equivalent byte sequence in the native encoding (cf. utf8::downgrade).
+This side effect influences only the way Perl stores the data internally,
+but otherwise leaves the actual value of the data intact.
+
+=head1 NIST STATEMENT ON SHA-1
+
+NIST acknowledges that the work of Prof. Xiaoyun Wang constitutes a
+practical collision attack on SHA-1.  Therefore, NIST encourages the
+rapid adoption of the SHA-2 hash functions (e.g. SHA-256) for applications
+requiring strong collision resistance, such as digital signatures.
+
+ref. L<http://csrc.nist.gov/groups/ST/hash/statement.html>
+
+=head1 PADDING OF BASE64 DIGESTS
+
+By convention, CPAN Digest modules do B<not> pad their Base64 output.
+Problems can occur when feeding such digests to other software that
+expects properly padded Base64 encodings.
+
+For the time being, any necessary padding must be done by the user.
+Fortunately, this is a simple operation: if the length of a Base64-encoded
+digest isn't a multiple of 4, simply append "=" characters to the end
+of the digest until it is:
+
+	while (length($b64_digest) % 4) {
+		$b64_digest .= '=';
+	}
+
+To illustrate, I<sha256_base64("abc")> is computed to be
+
+	ungWv48Bz+pBQUDeXa4iI7ADYaOWF3qctBD/YfIAFa0
+
+which has a length of 43.  So, the properly padded version is
+
+	ungWv48Bz+pBQUDeXa4iI7ADYaOWF3qctBD/YfIAFa0=
+
+=head1 EXPORT
+
+None by default.
+
+=head1 EXPORTABLE FUNCTIONS
+
+Provided your C compiler supports a 64-bit type (e.g. the I<long
+long> of C99, or I<__int64> used by Microsoft C/C++), all of these
+functions will be available for use.  Otherwise, you won't be able
+to perform the SHA-384 and SHA-512 transforms, both of which require
+64-bit operations.
+
+I<Functional style>
+
+=over 4
+
+=item B<sha1($data, ...)>
+
+=item B<sha224($data, ...)>
+
+=item B<sha256($data, ...)>
+
+=item B<sha384($data, ...)>
+
+=item B<sha512($data, ...)>
+
+=item B<sha512224($data, ...)>
+
+=item B<sha512256($data, ...)>
+
+Logically joins the arguments into a single string, and returns
+its SHA-1/224/256/384/512 digest encoded as a binary string.
+
+=item B<sha1_hex($data, ...)>
+
+=item B<sha224_hex($data, ...)>
+
+=item B<sha256_hex($data, ...)>
+
+=item B<sha384_hex($data, ...)>
+
+=item B<sha512_hex($data, ...)>
+
+=item B<sha512224_hex($data, ...)>
+
+=item B<sha512256_hex($data, ...)>
+
+Logically joins the arguments into a single string, and returns
+its SHA-1/224/256/384/512 digest encoded as a hexadecimal string.
+
+=item B<sha1_base64($data, ...)>
+
+=item B<sha224_base64($data, ...)>
+
+=item B<sha256_base64($data, ...)>
+
+=item B<sha384_base64($data, ...)>
+
+=item B<sha512_base64($data, ...)>
+
+=item B<sha512224_base64($data, ...)>
+
+=item B<sha512256_base64($data, ...)>
+
+Logically joins the arguments into a single string, and returns
+its SHA-1/224/256/384/512 digest encoded as a Base64 string.
+
+It's important to note that the resulting string does B<not> contain
+the padding characters typical of Base64 encodings.  This omission is
+deliberate, and is done to maintain compatibility with the family of
+CPAN Digest modules.  See L</"PADDING OF BASE64 DIGESTS"> for details.
+
+=back
+
+I<OOP style>
+
+=over 4
+
+=item B<new($alg)>
+
+Returns a new Digest::SHA object.  Allowed values for I<$alg> are 1,
+224, 256, 384, 512, 512224, or 512256.  It's also possible to use
+common string representations of the algorithm (e.g. "sha256",
+"SHA-384").  If the argument is missing, SHA-1 will be used by
+default.
+
+Invoking I<new> as an instance method will reset the object to the
+initial state associated with I<$alg>.  If the argument is missing,
+the object will continue using the same algorithm that was selected
+at creation.
+
+=item B<reset($alg)>
+
+This method has exactly the same effect as I<new($alg)>.  In fact,
+I<reset> is just an alias for I<new>.
+
+=item B<hashsize>
+
+Returns the number of digest bits for this object.  The values are
+160, 224, 256, 384, 512, 224, and 256 for SHA-1, SHA-224, SHA-256,
+SHA-384, SHA-512, SHA-512/224 and SHA-512/256, respectively.
+
+=item B<algorithm>
+
+Returns the digest algorithm for this object.  The values are 1,
+224, 256, 384, 512, 512224, and 512256 for SHA-1, SHA-224, SHA-256,
+SHA-384, SHA-512, SHA-512/224, and SHA-512/256, respectively.
+
+=item B<clone>
+
+Returns a duplicate copy of the object.
+
+=item B<add($data, ...)>
+
+Logically joins the arguments into a single string, and uses it to
+update the current digest state.  In other words, the following
+statements have the same effect:
+
+	$sha->add("a"); $sha->add("b"); $sha->add("c");
+	$sha->add("a")->add("b")->add("c");
+	$sha->add("a", "b", "c");
+	$sha->add("abc");
+
+The return value is the updated object itself.
+
+=item B<add_bits($data, $nbits)>
+
+=item B<add_bits($bits)>
+
+Updates the current digest state by appending bits to it.  The
+return value is the updated object itself.
+
+The first form causes the most-significant I<$nbits> of I<$data>
+to be appended to the stream.  The I<$data> argument is in the
+customary binary format used for Perl strings.
+
+The second form takes an ASCII string of "0" and "1" characters as
+its argument.  It's equivalent to
+
+	$sha->add_bits(pack("B*", $bits), length($bits));
+
+So, the following two statements do the same thing:
+
+	$sha->add_bits("111100001010");
+	$sha->add_bits("\xF0\xA0", 12);
+
+Note that SHA-1 and SHA-2 use I<most-significant-bit ordering>
+for their internal state.  This means that
+
+	$sha3->add_bits("110");
+
+is equivalent to
+
+	$sha3->add_bits("1")->add_bits("1")->add_bits("0");
+
+=item B<addfile(*FILE)>
+
+Reads from I<FILE> until EOF, and appends that data to the current
+state.  The return value is the updated object itself.
+
+=item B<addfile($filename [, $mode])>
+
+Reads the contents of I<$filename>, and appends that data to the current
+state.  The return value is the updated object itself.
+
+By default, I<$filename> is simply opened and read; no special modes
+or I/O disciplines are used.  To change this, set the optional I<$mode>
+argument to one of the following values:
+
+	"b"	read file in binary mode
+
+	"U"	use universal newlines
+
+	"0"	use BITS mode
+
+	"p"	use portable mode (to be deprecated)
+
+The "U" mode is modeled on Python's "Universal Newlines" concept, whereby
+DOS and Mac OS line terminators are converted internally to UNIX newlines
+before processing.  This ensures consistent digest values when working
+simultaneously across multiple file systems.  B<The "U" mode influences
+only text files>, namely those passing Perl's I<-T> test; binary files
+are processed with no translation whatsoever.
+
+The "p" mode differs from "U" only in that it treats "\r\r\n" as a single
+newline, a quirky feature designed to accommodate legacy applications that
+occasionally added an extra carriage return before DOS line terminators.
+The "p" mode will be phased out eventually in favor of the cleaner and
+more well-established Universal Newlines concept.
+
+The BITS mode ("0") interprets the contents of I<$filename> as a logical
+stream of bits, where each ASCII '0' or '1' character represents a 0 or
+1 bit, respectively.  All other characters are ignored.  This provides
+a convenient way to calculate the digest values of partial-byte data
+by using files, rather than having to write separate programs employing
+the I<add_bits> method.
+
+=item B<getstate>
+
+Returns a string containing a portable, human-readable representation
+of the current SHA state.
+
+=item B<putstate($str)>
+
+Returns a Digest::SHA object representing the SHA state contained
+in I<$str>.  The format of I<$str> matches the format of the output
+produced by method I<getstate>.  If called as a class method, a new
+object is created; if called as an instance method, the object is reset
+to the state contained in I<$str>.
+
+=item B<dump($filename)>
+
+Writes the output of I<getstate> to I<$filename>.  If the argument is
+missing, or equal to the empty string, the state information will be
+written to STDOUT.
+
+=item B<load($filename)>
+
+Returns a Digest::SHA object that results from calling I<putstate> on
+the contents of I<$filename>.  If the argument is missing, or equal to
+the empty string, the state information will be read from STDIN.
+
+=item B<digest>
+
+Returns the digest encoded as a binary string.
+
+Note that the I<digest> method is a read-once operation. Once it
+has been performed, the Digest::SHA object is automatically reset
+in preparation for calculating another digest value.  Call
+I<$sha-E<gt>clone-E<gt>digest> if it's necessary to preserve the
+original digest state.
+
+=item B<hexdigest>
+
+Returns the digest encoded as a hexadecimal string.
+
+Like I<digest>, this method is a read-once operation.  Call
+I<$sha-E<gt>clone-E<gt>hexdigest> if it's necessary to preserve
+the original digest state.
+
+=item B<b64digest>
+
+Returns the digest encoded as a Base64 string.
+
+Like I<digest>, this method is a read-once operation.  Call
+I<$sha-E<gt>clone-E<gt>b64digest> if it's necessary to preserve
+the original digest state.
+
+It's important to note that the resulting string does B<not> contain
+the padding characters typical of Base64 encodings.  This omission is
+deliberate, and is done to maintain compatibility with the family of
+CPAN Digest modules.  See L</"PADDING OF BASE64 DIGESTS"> for details.
+
+=back
+
+I<HMAC-SHA-1/224/256/384/512>
+
+=over 4
+
+=item B<hmac_sha1($data, $key)>
+
+=item B<hmac_sha224($data, $key)>
+
+=item B<hmac_sha256($data, $key)>
+
+=item B<hmac_sha384($data, $key)>
+
+=item B<hmac_sha512($data, $key)>
+
+=item B<hmac_sha512224($data, $key)>
+
+=item B<hmac_sha512256($data, $key)>
+
+Returns the HMAC-SHA-1/224/256/384/512 digest of I<$data>/I<$key>,
+with the result encoded as a binary string.  Multiple I<$data>
+arguments are allowed, provided that I<$key> is the last argument
+in the list.
+
+=item B<hmac_sha1_hex($data, $key)>
+
+=item B<hmac_sha224_hex($data, $key)>
+
+=item B<hmac_sha256_hex($data, $key)>
+
+=item B<hmac_sha384_hex($data, $key)>
+
+=item B<hmac_sha512_hex($data, $key)>
+
+=item B<hmac_sha512224_hex($data, $key)>
+
+=item B<hmac_sha512256_hex($data, $key)>
+
+Returns the HMAC-SHA-1/224/256/384/512 digest of I<$data>/I<$key>,
+with the result encoded as a hexadecimal string.  Multiple I<$data>
+arguments are allowed, provided that I<$key> is the last argument
+in the list.
+
+=item B<hmac_sha1_base64($data, $key)>
+
+=item B<hmac_sha224_base64($data, $key)>
+
+=item B<hmac_sha256_base64($data, $key)>
+
+=item B<hmac_sha384_base64($data, $key)>
+
+=item B<hmac_sha512_base64($data, $key)>
+
+=item B<hmac_sha512224_base64($data, $key)>
+
+=item B<hmac_sha512256_base64($data, $key)>
+
+Returns the HMAC-SHA-1/224/256/384/512 digest of I<$data>/I<$key>,
+with the result encoded as a Base64 string.  Multiple I<$data>
+arguments are allowed, provided that I<$key> is the last argument
+in the list.
+
+It's important to note that the resulting string does B<not> contain
+the padding characters typical of Base64 encodings.  This omission is
+deliberate, and is done to maintain compatibility with the family of
+CPAN Digest modules.  See L</"PADDING OF BASE64 DIGESTS"> for details.
+
+=back
+
+=head1 SEE ALSO
+
+L<Digest>, L<Digest::SHA::PurePerl>
+
+The Secure Hash Standard (Draft FIPS PUB 180-4) can be found at:
+
+L<http://csrc.nist.gov/publications/drafts/fips180-4/Draft-FIPS180-4_Feb2011.pdf>
+
+The Keyed-Hash Message Authentication Code (HMAC):
+
+L<http://csrc.nist.gov/publications/fips/fips198/fips-198a.pdf>
+
+=head1 AUTHOR
+
+	Mark Shelor	<mshelor@cpan.org>
+
+=head1 ACKNOWLEDGMENTS
+
+The author is particularly grateful to
+
+	Gisle Aas
+	H. Merijn Brand
+	Sean Burke
+	Chris Carey
+	Alexandr Ciornii
+	Jim Doble
+	Thomas Drugeon
+	Julius Duque
+	Jeffrey Friedl
+	Robert Gilmour
+	Brian Gladman
+	Jarkko Hietaniemi
+	Adam Kennedy
+	Mark Lawrence
+	Andy Lester
+	Alex Muntada
+	Steve Peters
+	Chris Skiscim
+	Martin Thurn
+	Gunnar Wolf
+	Adam Woodbury
+
+"who by trained skill rescued life from such great billows and such thick
+darkness and moored it in so perfect a calm and in so brilliant a light"
+- Lucretius
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright (C) 2003-2015 Mark Shelor
+
+This library is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
+L<perlartistic>
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/DynaLoader.pm b/lib/5.24.1/x86_64-linux/DynaLoader.pm
new file mode 100644
index 00000000..88f314f1
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/DynaLoader.pm
@@ -0,0 +1,760 @@
+
+# Generated from DynaLoader_pm.PL, this file is unique for every OS
+
+package DynaLoader;
+
+#   And Gandalf said: 'Many folk like to know beforehand what is to
+#   be set on the table; but those who have laboured to prepare the
+#   feast like to keep their secret; for wonder makes the words of
+#   praise louder.'
+
+#   (Quote from Tolkien suggested by Anno Siegel.)
+#
+# See pod text at end of file for documentation.
+# See also ext/DynaLoader/README in source tree for other information.
+#
+# Tim.Bunce@ig.co.uk, August 1994
+
+BEGIN {
+    $VERSION = '1.38';
+}
+
+use Config;
+
+# enable debug/trace messages from DynaLoader perl code
+$dl_debug = $ENV{PERL_DL_DEBUG} || 0 unless defined $dl_debug;
+
+#
+# Flags to alter dl_load_file behaviour.  Assigned bits:
+#   0x01  make symbols available for linking later dl_load_file's.
+#         (only known to work on Solaris 2 using dlopen(RTLD_GLOBAL))
+#         (ignored under VMS; effect is built-in to image linking)
+#         (ignored under Android; the linker always uses RTLD_LOCAL)
+#
+# This is called as a class method $module->dl_load_flags.  The
+# definition here will be inherited and result on "default" loading
+# behaviour unless a sub-class of DynaLoader defines its own version.
+#
+
+sub dl_load_flags { 0x00 }
+
+($dl_dlext, $dl_so, $dlsrc) = @Config::Config{qw(dlext so dlsrc)};
+
+
+$do_expand = 0;
+
+@dl_require_symbols = ();       # names of symbols we need
+@dl_library_path    = ();       # path to look for files
+
+#XSLoader.pm may have added elements before we were required
+#@dl_shared_objects  = ();       # shared objects for symbols we have 
+#@dl_librefs         = ();       # things we have loaded
+#@dl_modules         = ();       # Modules we have loaded
+
+# Initialise @dl_library_path with the 'standard' library path
+# for this platform as determined by Configure.
+
+push(@dl_library_path, split(' ', $Config::Config{libpth}));
+
+
+my $ldlibpthname         = $Config::Config{ldlibpthname};
+my $ldlibpthname_defined = defined $Config::Config{ldlibpthname};
+my $pthsep               = $Config::Config{path_sep};
+
+# Add to @dl_library_path any extra directories we can gather from environment
+# during runtime.
+
+if ($ldlibpthname_defined &&
+    exists $ENV{$ldlibpthname}) {
+    push(@dl_library_path, split(/$pthsep/, $ENV{$ldlibpthname}));
+}
+
+# E.g. HP-UX supports both its native SHLIB_PATH *and* LD_LIBRARY_PATH.
+
+if ($ldlibpthname_defined &&
+    $ldlibpthname ne 'LD_LIBRARY_PATH' &&
+    exists $ENV{LD_LIBRARY_PATH}) {
+    push(@dl_library_path, split(/$pthsep/, $ENV{LD_LIBRARY_PATH}));
+}
+
+
+# No prizes for guessing why we don't say 'bootstrap DynaLoader;' here.
+# NOTE: All dl_*.xs (including dl_none.xs) define a dl_error() XSUB
+boot_DynaLoader('DynaLoader') if defined(&boot_DynaLoader) &&
+                                !defined(&dl_error);
+
+if ($dl_debug) {
+    print STDERR "DynaLoader.pm loaded (@INC, @dl_library_path)\n";
+    print STDERR "DynaLoader not linked into this perl\n"
+	    unless defined(&boot_DynaLoader);
+}
+
+1; # End of main code
+
+
+sub croak   { require Carp; Carp::croak(@_)   }
+
+sub bootstrap_inherit {
+    my $module = $_[0];
+    local *isa = *{"$module\::ISA"};
+    local @isa = (@isa, 'DynaLoader');
+    # Cannot goto due to delocalization.  Will report errors on a wrong line?
+    bootstrap(@_);
+}
+
+sub bootstrap {
+    # use local vars to enable $module.bs script to edit values
+    local(@args) = @_;
+    local($module) = $args[0];
+    local(@dirs, $file);
+
+    unless ($module) {
+	require Carp;
+	Carp::confess("Usage: DynaLoader::bootstrap(module)");
+    }
+
+    # A common error on platforms which don't support dynamic loading.
+    # Since it's fatal and potentially confusing we give a detailed message.
+    croak("Can't load module $module, dynamic loading not available in this perl.\n".
+	"  (You may need to build a new perl executable which either supports\n".
+	"  dynamic loading or has the $module module statically linked into it.)\n")
+	unless defined(&dl_load_file);
+
+
+    
+    my @modparts = split(/::/,$module);
+    my $modfname = $modparts[-1];
+    my $modfname_orig = $modfname; # For .bs file search
+
+    # Some systems have restrictions on files names for DLL's etc.
+    # mod2fname returns appropriate file base name (typically truncated)
+    # It may also edit @modparts if required.
+    $modfname = &mod2fname(\@modparts) if defined &mod2fname;
+
+    
+
+    my $modpname = join('/',@modparts);
+
+    print STDERR "DynaLoader::bootstrap for $module ",
+		       "(auto/$modpname/$modfname.$dl_dlext)\n"
+	if $dl_debug;
+
+    my $dir;
+    foreach (@INC) {
+	
+	    $dir = "$_/auto/$modpname";
+	
+	next unless -d $dir; # skip over uninteresting directories
+	
+	# check for common cases to avoid autoload of dl_findfile
+        my $try = "$dir/$modfname.$dl_dlext";
+	last if $file = ($do_expand) ? dl_expandspec($try) : ((-f $try) && $try);
+	
+	# no luck here, save dir for possible later dl_findfile search
+	push @dirs, $dir;
+    }
+    # last resort, let dl_findfile have a go in all known locations
+    $file = dl_findfile(map("-L$_",@dirs,@INC), $modfname) unless $file;
+
+    croak("Can't locate loadable object for module $module in \@INC (\@INC contains: @INC)")
+	unless $file;	# wording similar to error from 'require'
+
+    
+    my $bootname = "boot_$module";
+    $bootname =~ s/\W/_/g;
+    @dl_require_symbols = ($bootname);
+
+    # Execute optional '.bootstrap' perl script for this module.
+    # The .bs file can be used to configure @dl_resolve_using etc to
+    # match the needs of the individual module on this architecture.
+    # N.B. The .bs file does not following the naming convention used
+    # by mod2fname.
+    my $bs = "$dir/$modfname_orig";
+    $bs =~ s/(\.\w+)?(;\d*)?$/\.bs/; # look for .bs 'beside' the library
+    if (-s $bs) { # only read file if it's not empty
+        print STDERR "BS: $bs ($^O, $dlsrc)\n" if $dl_debug;
+        eval { do $bs; };
+        warn "$bs: $@\n" if $@;
+    }
+
+    my $boot_symbol_ref;
+
+    
+
+    # Many dynamic extension loading problems will appear to come from
+    # this section of code: XYZ failed at line 123 of DynaLoader.pm.
+    # Often these errors are actually occurring in the initialisation
+    # C code of the extension XS file. Perl reports the error as being
+    # in this perl code simply because this was the last perl code
+    # it executed.
+
+    my $flags = $module->dl_load_flags;
+    
+    my $libref = dl_load_file($file, $flags) or
+	croak("Can't load '$file' for module $module: ".dl_error());
+
+    push(@dl_librefs,$libref);  # record loaded object
+
+    $boot_symbol_ref = dl_find_symbol($libref, $bootname) or
+         croak("Can't find '$bootname' symbol in $file\n");
+
+    push(@dl_modules, $module); # record loaded module
+
+  boot:
+    my $xs = dl_install_xsub("${module}::bootstrap", $boot_symbol_ref, $file);
+
+    # See comment block above
+
+	push(@dl_shared_objects, $file); # record files loaded
+
+    &$xs(@args);
+}
+
+sub dl_findfile {
+    # This function does not automatically consider the architecture
+    # or the perl library auto directories.
+    my (@args) = @_;
+    my (@dirs,  $dir);   # which directories to search
+    my (@found);         # full paths to real files we have found
+    #my $dl_ext= 'so'; # $Config::Config{'dlext'} suffix for perl extensions
+    #my $dl_so = 'so'; # $Config::Config{'so'} suffix for shared libraries
+
+    print STDERR "dl_findfile(@args)\n" if $dl_debug;
+
+    # accumulate directories but process files as they appear
+    arg: foreach(@args) {
+        #  Special fast case: full filepath requires no search
+	
+	
+        if (m:/: && -f $_) {
+	    push(@found,$_);
+	    last arg unless wantarray;
+	    next;
+	}
+	
+
+        # Deal with directories first:
+        #  Using a -L prefix is the preferred option (faster and more robust)
+        if (m:^-L:) { s/^-L//; push(@dirs, $_); next; }
+
+        #  Otherwise we try to try to spot directories by a heuristic
+        #  (this is a more complicated issue than it first appears)
+        if (m:/: && -d $_) {   push(@dirs, $_); next; }
+
+	
+
+        #  Only files should get this far...
+        my(@names, $name);    # what filenames to look for
+        if (m:-l: ) {          # convert -lname to appropriate library name
+            s/-l//;
+            push(@names,"lib$_.$dl_so");
+            push(@names,"lib$_.a");
+        } else {                # Umm, a bare name. Try various alternatives:
+            # these should be ordered with the most likely first
+            push(@names,"$_.$dl_dlext")    unless m/\.$dl_dlext$/o;
+            push(@names,"$_.$dl_so")     unless m/\.$dl_so$/o;
+	    
+            push(@names,"lib$_.$dl_so")  unless m:/:;
+            push(@names, $_);
+        }
+	my $dirsep = '/';
+	
+        foreach $dir (@dirs, @dl_library_path) {
+            next unless -d $dir;
+	    
+            foreach $name (@names) {
+		my($file) = "$dir$dirsep$name";
+                print STDERR " checking in $dir for $name\n" if $dl_debug;
+		$file = ($do_expand) ? dl_expandspec($file) : (-f $file && $file);
+		#$file = _check_file($file);
+		if ($file) {
+                    push(@found, $file);
+                    next arg; # no need to look any further
+                }
+            }
+        }
+    }
+    if ($dl_debug) {
+        foreach(@dirs) {
+            print STDERR " dl_findfile ignored non-existent directory: $_\n" unless -d $_;
+        }
+        print STDERR "dl_findfile found: @found\n";
+    }
+    return $found[0] unless wantarray;
+    @found;
+}
+
+
+
+sub dl_expandspec {
+    my($spec) = @_;
+    # Optional function invoked if DynaLoader.pm sets $do_expand.
+    # Most systems do not require or use this function.
+    # Some systems may implement it in the dl_*.xs file in which case
+    # this Perl version should be excluded at build time.
+
+    # This function is designed to deal with systems which treat some
+    # 'filenames' in a special way. For example VMS 'Logical Names'
+    # (something like unix environment variables - but different).
+    # This function should recognise such names and expand them into
+    # full file paths.
+    # Must return undef if $spec is invalid or file does not exist.
+
+    my $file = $spec; # default output to input
+
+	return undef unless -f $file;
+    print STDERR "dl_expandspec($spec) => $file\n" if $dl_debug;
+    $file;
+}
+
+sub dl_find_symbol_anywhere
+{
+    my $sym = shift;
+    my $libref;
+    foreach $libref (@dl_librefs) {
+	my $symref = dl_find_symbol($libref,$sym,1);
+	return $symref if $symref;
+    }
+    return undef;
+}
+
+__END__
+
+=head1 NAME
+
+DynaLoader - Dynamically load C libraries into Perl code
+
+=head1 SYNOPSIS
+
+    package YourPackage;
+    require DynaLoader;
+    @ISA = qw(... DynaLoader ...);
+    bootstrap YourPackage;
+
+    # optional method for 'global' loading
+    sub dl_load_flags { 0x01 }     
+
+
+=head1 DESCRIPTION
+
+This document defines a standard generic interface to the dynamic
+linking mechanisms available on many platforms.  Its primary purpose is
+to implement automatic dynamic loading of Perl modules.
+
+This document serves as both a specification for anyone wishing to
+implement the DynaLoader for a new platform and as a guide for
+anyone wishing to use the DynaLoader directly in an application.
+
+The DynaLoader is designed to be a very simple high-level
+interface that is sufficiently general to cover the requirements
+of SunOS, HP-UX, Linux, VMS and other platforms.
+
+It is also hoped that the interface will cover the needs of OS/2, NT
+etc and also allow pseudo-dynamic linking (using C<ld -A> at runtime).
+
+It must be stressed that the DynaLoader, by itself, is practically
+useless for accessing non-Perl libraries because it provides almost no
+Perl-to-C 'glue'.  There is, for example, no mechanism for calling a C
+library function or supplying arguments.  A C::DynaLib module
+is available from CPAN sites which performs that function for some
+common system types.  And since the year 2000, there's also Inline::C,
+a module that allows you to write Perl subroutines in C.  Also available
+from your local CPAN site.
+
+DynaLoader Interface Summary
+
+  @dl_library_path
+  @dl_resolve_using
+  @dl_require_symbols
+  $dl_debug
+  $dl_dlext
+  @dl_librefs
+  @dl_modules
+  @dl_shared_objects
+                                                  Implemented in:
+  bootstrap($modulename)                               Perl
+  @filepaths = dl_findfile(@names)                     Perl
+  $flags = $modulename->dl_load_flags                  Perl
+  $symref  = dl_find_symbol_anywhere($symbol)          Perl
+
+  $libref  = dl_load_file($filename, $flags)           C
+  $status  = dl_unload_file($libref)                   C
+  $symref  = dl_find_symbol($libref, $symbol)          C
+  @symbols = dl_undef_symbols()                        C
+  dl_install_xsub($name, $symref [, $filename])        C
+  $message = dl_error                                  C
+
+=over 4
+
+=item @dl_library_path
+
+The standard/default list of directories in which dl_findfile() will
+search for libraries etc.  Directories are searched in order:
+$dl_library_path[0], [1], ... etc
+
+@dl_library_path is initialised to hold the list of 'normal' directories
+(F</usr/lib>, etc) determined by B<Configure> (C<$Config{'libpth'}>).  This should
+ensure portability across a wide range of platforms.
+
+@dl_library_path should also be initialised with any other directories
+that can be determined from the environment at runtime (such as
+LD_LIBRARY_PATH for SunOS).
+
+After initialisation @dl_library_path can be manipulated by an
+application using push and unshift before calling dl_findfile().
+Unshift can be used to add directories to the front of the search order
+either to save search time or to override libraries with the same name
+in the 'normal' directories.
+
+The load function that dl_load_file() calls may require an absolute
+pathname.  The dl_findfile() function and @dl_library_path can be
+used to search for and return the absolute pathname for the
+library/object that you wish to load.
+
+=item @dl_resolve_using
+
+A list of additional libraries or other shared objects which can be
+used to resolve any undefined symbols that might be generated by a
+later call to load_file().
+
+This is only required on some platforms which do not handle dependent
+libraries automatically.  For example the Socket Perl extension
+library (F<auto/Socket/Socket.so>) contains references to many socket
+functions which need to be resolved when it's loaded.  Most platforms
+will automatically know where to find the 'dependent' library (e.g.,
+F</usr/lib/libsocket.so>).  A few platforms need to be told the
+location of the dependent library explicitly.  Use @dl_resolve_using
+for this.
+
+Example usage:
+
+    @dl_resolve_using = dl_findfile('-lsocket');
+
+=item @dl_require_symbols
+
+A list of one or more symbol names that are in the library/object file
+to be dynamically loaded.  This is only required on some platforms.
+
+=item @dl_librefs
+
+An array of the handles returned by successful calls to dl_load_file(),
+made by bootstrap, in the order in which they were loaded.
+Can be used with dl_find_symbol() to look for a symbol in any of
+the loaded files.
+
+=item @dl_modules
+
+An array of module (package) names that have been bootstrap'ed.
+
+=item @dl_shared_objects
+
+An array of file names for the shared objects that were loaded.
+
+=item dl_error()
+
+Syntax:
+
+    $message = dl_error();
+
+Error message text from the last failed DynaLoader function.  Note
+that, similar to errno in unix, a successful function call does not
+reset this message.
+
+Implementations should detect the error as soon as it occurs in any of
+the other functions and save the corresponding message for later
+retrieval.  This will avoid problems on some platforms (such as SunOS)
+where the error message is very temporary (e.g., dlerror()).
+
+=item $dl_debug
+
+Internal debugging messages are enabled when $dl_debug is set true.
+Currently setting $dl_debug only affects the Perl side of the
+DynaLoader.  These messages should help an application developer to
+resolve any DynaLoader usage problems.
+
+$dl_debug is set to C<$ENV{'PERL_DL_DEBUG'}> if defined.
+
+For the DynaLoader developer/porter there is a similar debugging
+variable added to the C code (see dlutils.c) and enabled if Perl was
+built with the B<-DDEBUGGING> flag.  This can also be set via the
+PERL_DL_DEBUG environment variable.  Set to 1 for minimal information or
+higher for more.
+
+=item $dl_dlext
+
+When specified (localised) in a module's F<.pm> file, indicates the extension
+which the module's loadable object will have. For example:
+
+    local $DynaLoader::dl_dlext = 'unusual_ext';
+
+would indicate that the module's loadable object has an extension of
+C<unusual_ext> instead of the more usual C<$Config{dlext}>.  NOTE: This also
+requires that the module's F<Makefile.PL> specify (in C<WriteMakefile()>):
+
+    DLEXT => 'unusual_ext',
+
+=item dl_findfile()
+
+Syntax:
+
+    @filepaths = dl_findfile(@names)
+
+Determine the full paths (including file suffix) of one or more
+loadable files given their generic names and optionally one or more
+directories.  Searches directories in @dl_library_path by default and
+returns an empty list if no files were found.
+
+Names can be specified in a variety of platform independent forms.  Any
+names in the form B<-lname> are converted into F<libname.*>, where F<.*> is
+an appropriate suffix for the platform.
+
+If a name does not already have a suitable prefix and/or suffix then
+the corresponding file will be searched for by trying combinations of
+prefix and suffix appropriate to the platform: "$name.o", "lib$name.*"
+and "$name".
+
+If any directories are included in @names they are searched before
+@dl_library_path.  Directories may be specified as B<-Ldir>.  Any other
+names are treated as filenames to be searched for.
+
+Using arguments of the form C<-Ldir> and C<-lname> is recommended.
+
+Example: 
+
+    @dl_resolve_using = dl_findfile(qw(-L/usr/5lib -lposix));
+
+
+=item dl_expandspec()
+
+Syntax:
+
+    $filepath = dl_expandspec($spec)
+
+Some unusual systems, such as VMS, require special filename handling in
+order to deal with symbolic names for files (i.e., VMS's Logical Names).
+
+To support these systems a dl_expandspec() function can be implemented
+either in the F<dl_*.xs> file or code can be added to the dl_expandspec()
+function in F<DynaLoader.pm>.  See F<DynaLoader_pm.PL> for more information.
+
+=item dl_load_file()
+
+Syntax:
+
+    $libref = dl_load_file($filename, $flags)
+
+Dynamically load $filename, which must be the path to a shared object
+or library.  An opaque 'library reference' is returned as a handle for
+the loaded object.  Returns undef on error.
+
+The $flags argument to alters dl_load_file behaviour.  
+Assigned bits:
+
+ 0x01  make symbols available for linking later dl_load_file's.
+       (only known to work on Solaris 2 using dlopen(RTLD_GLOBAL))
+       (ignored under VMS; this is a normal part of image linking)
+
+(On systems that provide a handle for the loaded object such as SunOS
+and HPUX, $libref will be that handle.  On other systems $libref will
+typically be $filename or a pointer to a buffer containing $filename.
+The application should not examine or alter $libref in any way.)
+
+This is the function that does the real work.  It should use the
+current values of @dl_require_symbols and @dl_resolve_using if required.
+
+    SunOS: dlopen($filename)
+    HP-UX: shl_load($filename)
+    Linux: dld_create_reference(@dl_require_symbols); dld_link($filename)
+    VMS:   lib$find_image_symbol($filename,$dl_require_symbols[0])
+
+(The dlopen() function is also used by Solaris and some versions of
+Linux, and is a common choice when providing a "wrapper" on other
+mechanisms as is done in the OS/2 port.)
+
+=item dl_unload_file()
+
+Syntax:
+
+    $status = dl_unload_file($libref)
+
+Dynamically unload $libref, which must be an opaque 'library reference' as
+returned from dl_load_file.  Returns one on success and zero on failure.
+This function is optional and may not necessarily be provided on all platforms.
+
+If it is defined and perl is compiled with the C macro C<DL_UNLOAD_ALL_AT_EXIT>
+defined, then it is called automatically when the interpreter exits for
+every shared object or library loaded by DynaLoader::bootstrap.  All such
+library references are stored in @dl_librefs by DynaLoader::Bootstrap as it
+loads the libraries.  The files are unloaded in last-in, first-out order.
+
+This unloading is usually necessary when embedding a shared-object perl (e.g.
+one configured with -Duseshrplib) within a larger application, and the perl
+interpreter is created and destroyed several times within the lifetime of the
+application.  In this case it is possible that the system dynamic linker will
+unload and then subsequently reload the shared libperl without relocating any
+references to it from any files DynaLoaded by the previous incarnation of the
+interpreter.  As a result, any shared objects opened by DynaLoader may point to
+a now invalid 'ghost' of the libperl shared object, causing apparently random
+memory corruption and crashes.  This behaviour is most commonly seen when using
+Apache and mod_perl built with the APXS mechanism.
+
+    SunOS: dlclose($libref)
+    HP-UX: ???
+    Linux: ???
+    VMS:   ???
+
+(The dlclose() function is also used by Solaris and some versions of
+Linux, and is a common choice when providing a "wrapper" on other
+mechanisms as is done in the OS/2 port.)
+
+=item dl_load_flags()
+
+Syntax:
+
+    $flags = dl_load_flags $modulename;
+
+Designed to be a method call, and to be overridden by a derived class
+(i.e. a class which has DynaLoader in its @ISA).  The definition in
+DynaLoader itself returns 0, which produces standard behavior from
+dl_load_file().
+
+=item dl_find_symbol()
+
+Syntax:
+
+    $symref = dl_find_symbol($libref, $symbol)
+
+Return the address of the symbol $symbol or C<undef> if not found.  If the
+target system has separate functions to search for symbols of different
+types then dl_find_symbol() should search for function symbols first and
+then other types.
+
+The exact manner in which the address is returned in $symref is not
+currently defined.  The only initial requirement is that $symref can
+be passed to, and understood by, dl_install_xsub().
+
+    SunOS: dlsym($libref, $symbol)
+    HP-UX: shl_findsym($libref, $symbol)
+    Linux: dld_get_func($symbol) and/or dld_get_symbol($symbol)
+    VMS:   lib$find_image_symbol($libref,$symbol)
+
+
+=item dl_find_symbol_anywhere()
+
+Syntax:
+
+    $symref = dl_find_symbol_anywhere($symbol)
+
+Applies dl_find_symbol() to the members of @dl_librefs and returns
+the first match found.
+
+=item dl_undef_symbols()
+
+Example
+
+    @symbols = dl_undef_symbols()
+
+Return a list of symbol names which remain undefined after load_file().
+Returns C<()> if not known.  Don't worry if your platform does not provide
+a mechanism for this.  Most do not need it and hence do not provide it,
+they just return an empty list.
+
+
+=item dl_install_xsub()
+
+Syntax:
+
+    dl_install_xsub($perl_name, $symref [, $filename])
+
+Create a new Perl external subroutine named $perl_name using $symref as
+a pointer to the function which implements the routine.  This is simply
+a direct call to newXS()/newXS_flags().  Returns a reference to the installed
+function.
+
+The $filename parameter is used by Perl to identify the source file for
+the function if required by die(), caller() or the debugger.  If
+$filename is not defined then "DynaLoader" will be used.
+
+
+=item bootstrap()
+
+Syntax:
+
+bootstrap($module [...])
+
+This is the normal entry point for automatic dynamic loading in Perl.
+
+It performs the following actions:
+
+=over 8
+
+=item *
+
+locates an auto/$module directory by searching @INC
+
+=item *
+
+uses dl_findfile() to determine the filename to load
+
+=item *
+
+sets @dl_require_symbols to C<("boot_$module")>
+
+=item *
+
+executes an F<auto/$module/$module.bs> file if it exists
+(typically used to add to @dl_resolve_using any files which
+are required to load the module on the current platform)
+
+=item *
+
+calls dl_load_flags() to determine how to load the file.
+
+=item *
+
+calls dl_load_file() to load the file
+
+=item *
+
+calls dl_undef_symbols() and warns if any symbols are undefined
+
+=item *
+
+calls dl_find_symbol() for "boot_$module"
+
+=item *
+
+calls dl_install_xsub() to install it as "${module}::bootstrap"
+
+=item *
+
+calls &{"${module}::bootstrap"} to bootstrap the module (actually
+it uses the function reference returned by dl_install_xsub for speed)
+
+=back
+
+All arguments to bootstrap() are passed to the module's bootstrap function.
+The default code generated by F<xsubpp> expects $module [, $version]
+If the optional $version argument is not given, it defaults to
+C<$XS_VERSION // $VERSION> in the module's symbol table. The default code
+compares the Perl-space version with the version of the compiled XS code,
+and croaks with an error if they do not match.
+
+=back
+
+
+=head1 AUTHOR
+
+Tim Bunce, 11 August 1994.
+
+This interface is based on the work and comments of (in no particular
+order): Larry Wall, Robert Sanders, Dean Roehrich, Jeff Okamoto, Anno
+Siegel, Thomas Neumann, Paul Marquess, Charles Bailey, myself and others.
+
+Larry Wall designed the elegant inherited bootstrap mechanism and
+implemented the first Perl 5 dynamic loader using it.
+
+Solaris global loading added by Nick Ing-Simmons with design/coding
+assistance from Tim Bunce, January 1996.
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/Encode.pm b/lib/5.24.1/x86_64-linux/Encode.pm
new file mode 100644
index 00000000..dce6c541
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/Encode.pm
@@ -0,0 +1,1069 @@
+#
+# $Id: Encode.pm,v 2.80 2016/01/25 14:54:01 dankogai Exp $
+#
+package Encode;
+use strict;
+use warnings;
+our $VERSION = sprintf "%d.%02d_01", q$Revision: 2.80 $ =~ /(\d+)/g;
+use constant DEBUG => !!$ENV{PERL_ENCODE_DEBUG};
+use XSLoader ();
+XSLoader::load( __PACKAGE__, $VERSION );
+
+use Exporter 5.57 'import';
+
+# Public, encouraged API is exported by default
+
+our @EXPORT = qw(
+  decode  decode_utf8  encode  encode_utf8 str2bytes bytes2str
+  encodings  find_encoding clone_encoding
+);
+our @FB_FLAGS = qw(
+  DIE_ON_ERR WARN_ON_ERR RETURN_ON_ERR LEAVE_SRC
+  PERLQQ HTMLCREF XMLCREF STOP_AT_PARTIAL
+);
+our @FB_CONSTS = qw(
+  FB_DEFAULT FB_CROAK FB_QUIET FB_WARN
+  FB_PERLQQ FB_HTMLCREF FB_XMLCREF
+);
+our @EXPORT_OK = (
+    qw(
+      _utf8_off _utf8_on define_encoding from_to is_16bit is_8bit
+      is_utf8 perlio_ok resolve_alias utf8_downgrade utf8_upgrade
+      ),
+    @FB_FLAGS, @FB_CONSTS,
+);
+
+our %EXPORT_TAGS = (
+    all          => [ @EXPORT,    @EXPORT_OK ],
+    default      => [ @EXPORT ],
+    fallbacks    => [ @FB_CONSTS ],
+    fallback_all => [ @FB_CONSTS, @FB_FLAGS ],
+);
+
+# Documentation moved after __END__ for speed - NI-S
+
+our $ON_EBCDIC = ( ord("A") == 193 );
+
+use Encode::Alias;
+
+# Make a %Encoding package variable to allow a certain amount of cheating
+our %Encoding;
+our %ExtModule;
+require Encode::Config;
+#  See
+#  https://bugzilla.redhat.com/show_bug.cgi?id=435505#c2
+#  to find why sig handlers inside eval{} are disabled.
+eval {
+    local $SIG{__DIE__};
+    local $SIG{__WARN__};
+    local @INC = @INC;
+    pop @INC if $INC[-1] eq '.';
+    require Encode::ConfigLocal;
+};
+
+sub encodings {
+    my %enc;
+    my $arg  = $_[1] || '';
+    if ( $arg eq ":all" ) {
+        %enc = ( %Encoding, %ExtModule );
+    }
+    else {
+        %enc = %Encoding;
+        for my $mod ( map { m/::/ ? $_ : "Encode::$_" } @_ ) {
+            DEBUG and warn $mod;
+            for my $enc ( keys %ExtModule ) {
+                $ExtModule{$enc} eq $mod and $enc{$enc} = $mod;
+            }
+        }
+    }
+    return sort { lc $a cmp lc $b }
+      grep      { !/^(?:Internal|Unicode|Guess)$/o } keys %enc;
+}
+
+sub perlio_ok {
+    my $obj = ref( $_[0] ) ? $_[0] : find_encoding( $_[0] );
+    $obj->can("perlio_ok") and return $obj->perlio_ok();
+    return 0;    # safety net
+}
+
+sub define_encoding {
+    my $obj  = shift;
+    my $name = shift;
+    $Encoding{$name} = $obj;
+    my $lc = lc($name);
+    define_alias( $lc => $obj ) unless $lc eq $name;
+    while (@_) {
+        my $alias = shift;
+        define_alias( $alias, $obj );
+    }
+    return $obj;
+}
+
+sub getEncoding {
+    my ( $class, $name, $skip_external ) = @_;
+
+    $name =~ s/\s+//g; # https://rt.cpan.org/Ticket/Display.html?id=65796
+
+    ref($name) && $name->can('renew') and return $name;
+    exists $Encoding{$name} and return $Encoding{$name};
+    my $lc = lc $name;
+    exists $Encoding{$lc} and return $Encoding{$lc};
+
+    my $oc = $class->find_alias($name);
+    defined($oc) and return $oc;
+    $lc ne $name and $oc = $class->find_alias($lc);
+    defined($oc) and return $oc;
+
+    unless ($skip_external) {
+        if ( my $mod = $ExtModule{$name} || $ExtModule{$lc} ) {
+            $mod =~ s,::,/,g;
+            $mod .= '.pm';
+            eval { require $mod; };
+            exists $Encoding{$name} and return $Encoding{$name};
+        }
+    }
+    return;
+}
+
+sub find_encoding($;$) {
+    my ( $name, $skip_external ) = @_;
+    return __PACKAGE__->getEncoding( $name, $skip_external );
+}
+
+sub resolve_alias($) {
+    my $obj = find_encoding(shift);
+    defined $obj and return $obj->name;
+    return;
+}
+
+sub clone_encoding($) {
+    my $obj = find_encoding(shift);
+    ref $obj or return;
+    eval { require Storable };
+    $@ and return;
+    return Storable::dclone($obj);
+}
+
+sub encode($$;$) {
+    my ( $name, $string, $check ) = @_;
+    return undef unless defined $string;
+    $string .= '';    # stringify;
+    $check ||= 0;
+    unless ( defined $name ) {
+        require Carp;
+        Carp::croak("Encoding name should not be undef");
+    }
+    my $enc = find_encoding($name);
+    unless ( defined $enc ) {
+        require Carp;
+        Carp::croak("Unknown encoding '$name'");
+    }
+    # For Unicode, warnings need to be caught and re-issued at this level
+    # so that callers can disable utf8 warnings lexically.
+    my $octets;
+    if ( ref($enc) eq 'Encode::Unicode' ) {
+        my $warn = '';
+        {
+            local $SIG{__WARN__} = sub { $warn = shift };
+            $octets = $enc->encode( $string, $check );
+        }
+        warnings::warnif('utf8', $warn) if length $warn;
+    }
+    else {
+        $octets = $enc->encode( $string, $check );
+    }
+    $_[1] = $string if $check and !ref $check and !( $check & LEAVE_SRC() );
+    return $octets;
+}
+*str2bytes = \&encode;
+
+sub decode($$;$) {
+    my ( $name, $octets, $check ) = @_;
+    return undef unless defined $octets;
+    $octets .= '';
+    $check ||= 0;
+    my $enc = find_encoding($name);
+    unless ( defined $enc ) {
+        require Carp;
+        Carp::croak("Unknown encoding '$name'");
+    }
+    # For Unicode, warnings need to be caught and re-issued at this level
+    # so that callers can disable utf8 warnings lexically.
+    my $string;
+    if ( ref($enc) eq 'Encode::Unicode' ) {
+        my $warn = '';
+        {
+            local $SIG{__WARN__} = sub { $warn = shift };
+            $string = $enc->decode( $octets, $check );
+        }
+        warnings::warnif('utf8', $warn) if length $warn;
+    }
+    else {
+        $string = $enc->decode( $octets, $check );
+    }
+    $_[1] = $octets if $check and !ref $check and !( $check & LEAVE_SRC() );
+    return $string;
+}
+*bytes2str = \&decode;
+
+sub from_to($$$;$) {
+    my ( $string, $from, $to, $check ) = @_;
+    return undef unless defined $string;
+    $check ||= 0;
+    my $f = find_encoding($from);
+    unless ( defined $f ) {
+        require Carp;
+        Carp::croak("Unknown encoding '$from'");
+    }
+    my $t = find_encoding($to);
+    unless ( defined $t ) {
+        require Carp;
+        Carp::croak("Unknown encoding '$to'");
+    }
+    my $uni = $f->decode($string);
+    $_[0] = $string = $t->encode( $uni, $check );
+    return undef if ( $check && length($uni) );
+    return defined( $_[0] ) ? length($string) : undef;
+}
+
+sub encode_utf8($) {
+    my ($str) = @_;
+    utf8::encode($str);
+    return $str;
+}
+
+my $utf8enc;
+
+sub decode_utf8($;$) {
+    my ( $octets, $check ) = @_;
+    return undef unless defined $octets;
+    $octets .= '';
+    $check   ||= 0;
+    $utf8enc ||= find_encoding('utf8');
+    my $string = $utf8enc->decode( $octets, $check );
+    $_[0] = $octets if $check and !ref $check and !( $check & LEAVE_SRC() );
+    return $string;
+}
+
+# sub decode_utf8($;$) {
+#     my ( $str, $check ) = @_;
+#     return $str if is_utf8($str);
+#     if ($check) {
+#         return decode( "utf8", $str, $check );
+#     }
+#     else {
+#         return decode( "utf8", $str );
+#         return $str;
+#     }
+# }
+
+predefine_encodings(1);
+
+#
+# This is to restore %Encoding if really needed;
+#
+
+sub predefine_encodings {
+    require Encode::Encoding;
+    no warnings 'redefine';
+    my $use_xs = shift;
+    if ($ON_EBCDIC) {
+
+        # was in Encode::UTF_EBCDIC
+        package Encode::UTF_EBCDIC;
+        push @Encode::UTF_EBCDIC::ISA, 'Encode::Encoding';
+        *decode = sub {
+            my ( undef, $str, $chk ) = @_;
+            my $res = '';
+            for ( my $i = 0 ; $i < length($str) ; $i++ ) {
+                $res .=
+                  chr(
+                    utf8::unicode_to_native( ord( substr( $str, $i, 1 ) ) )
+                  );
+            }
+            $_[1] = '' if $chk;
+            return $res;
+        };
+        *encode = sub {
+            my ( undef, $str, $chk ) = @_;
+            my $res = '';
+            for ( my $i = 0 ; $i < length($str) ; $i++ ) {
+                $res .=
+                  chr(
+                    utf8::native_to_unicode( ord( substr( $str, $i, 1 ) ) )
+                  );
+            }
+            $_[1] = '' if $chk;
+            return $res;
+        };
+        $Encode::Encoding{Unicode} =
+          bless { Name => "UTF_EBCDIC" } => "Encode::UTF_EBCDIC";
+    }
+    else {
+
+        package Encode::Internal;
+        push @Encode::Internal::ISA, 'Encode::Encoding';
+        *decode = sub {
+            my ( undef, $str, $chk ) = @_;
+            utf8::upgrade($str);
+            $_[1] = '' if $chk;
+            return $str;
+        };
+        *encode = \&decode;
+        $Encode::Encoding{Unicode} =
+          bless { Name => "Internal" } => "Encode::Internal";
+    }
+    {
+        # https://rt.cpan.org/Public/Bug/Display.html?id=103253
+        package Encode::XS;
+        push @Encode::XS::ISA, 'Encode::Encoding';
+    }
+    {
+
+        # was in Encode::utf8
+        package Encode::utf8;
+        push @Encode::utf8::ISA, 'Encode::Encoding';
+
+        #
+        if ($use_xs) {
+            Encode::DEBUG and warn __PACKAGE__, " XS on";
+            *decode = \&decode_xs;
+            *encode = \&encode_xs;
+        }
+        else {
+            Encode::DEBUG and warn __PACKAGE__, " XS off";
+            *decode = sub {
+                my ( undef, $octets, $chk ) = @_;
+                my $str = Encode::decode_utf8($octets);
+                if ( defined $str ) {
+                    $_[1] = '' if $chk;
+                    return $str;
+                }
+                return undef;
+            };
+            *encode = sub {
+                my ( undef, $string, $chk ) = @_;
+                my $octets = Encode::encode_utf8($string);
+                $_[1] = '' if $chk;
+                return $octets;
+            };
+        }
+        *cat_decode = sub {    # ($obj, $dst, $src, $pos, $trm, $chk)
+                               # currently ignores $chk
+            my ( undef, undef, undef, $pos, $trm ) = @_;
+            my ( $rdst, $rsrc, $rpos ) = \@_[ 1, 2, 3 ];
+            use bytes;
+            if ( ( my $npos = index( $$rsrc, $trm, $pos ) ) >= 0 ) {
+                $$rdst .=
+                  substr( $$rsrc, $pos, $npos - $pos + length($trm) );
+                $$rpos = $npos + length($trm);
+                return 1;
+            }
+            $$rdst .= substr( $$rsrc, $pos );
+            $$rpos = length($$rsrc);
+            return '';
+        };
+        $Encode::Encoding{utf8} =
+          bless { Name => "utf8" } => "Encode::utf8";
+        $Encode::Encoding{"utf-8-strict"} =
+          bless { Name => "utf-8-strict", strict_utf8 => 1 } 
+            => "Encode::utf8";
+    }
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+Encode - character encodings in Perl
+
+=head1 SYNOPSIS
+
+    use Encode qw(decode encode);
+    $characters = decode('UTF-8', $octets,     Encode::FB_CROAK);
+    $octets     = encode('UTF-8', $characters, Encode::FB_CROAK);
+
+=head2 Table of Contents
+
+Encode consists of a collection of modules whose details are too extensive
+to fit in one document.  This one itself explains the top-level APIs
+and general topics at a glance.  For other topics and more details,
+see the documentation for these modules:
+
+=over 2
+
+=item L<Encode::Alias> - Alias definitions to encodings
+
+=item L<Encode::Encoding> - Encode Implementation Base Class
+
+=item L<Encode::Supported> - List of Supported Encodings
+
+=item L<Encode::CN> - Simplified Chinese Encodings
+
+=item L<Encode::JP> - Japanese Encodings
+
+=item L<Encode::KR> - Korean Encodings
+
+=item L<Encode::TW> - Traditional Chinese Encodings
+
+=back
+
+=head1 DESCRIPTION
+
+The C<Encode> module provides the interface between Perl strings
+and the rest of the system.  Perl strings are sequences of
+I<characters>.
+
+The repertoire of characters that Perl can represent is a superset of those
+defined by the Unicode Consortium. On most platforms the ordinal
+values of a character as returned by C<ord(I<S>)> is the I<Unicode
+codepoint> for that character. The exceptions are platforms where
+the legacy encoding is some variant of EBCDIC rather than a superset
+of ASCII; see L<perlebcdic>.
+
+During recent history, data is moved around a computer in 8-bit chunks,
+often called "bytes" but also known as "octets" in standards documents.
+Perl is widely used to manipulate data of many types: not only strings of
+characters representing human or computer languages, but also "binary"
+data, being the machine's representation of numbers, pixels in an image, or
+just about anything.
+
+When Perl is processing "binary data", the programmer wants Perl to
+process "sequences of bytes". This is not a problem for Perl: because a
+byte has 256 possible values, it easily fits in Perl's much larger
+"logical character".
+
+This document mostly explains the I<how>. L<perlunitut> and L<perlunifaq>
+explain the I<why>.
+
+=head2 TERMINOLOGY
+
+=head3 character
+
+A character in the range 0 .. 2**32-1 (or more);
+what Perl's strings are made of.
+
+=head3 byte
+
+A character in the range 0..255;
+a special case of a Perl character.
+
+=head3 octet
+
+8 bits of data, with ordinal values 0..255;
+term for bytes passed to or from a non-Perl context, such as a disk file,
+standard I/O stream, database, command-line argument, environment variable,
+socket etc.
+
+=head1 THE PERL ENCODING API
+
+=head2 Basic methods
+
+=head3 encode
+
+  $octets  = encode(ENCODING, STRING[, CHECK])
+
+Encodes the scalar value I<STRING> from Perl's internal form into
+I<ENCODING> and returns a sequence of octets.  I<ENCODING> can be either a
+canonical name or an alias.  For encoding names and aliases, see
+L</"Defining Aliases">.  For CHECK, see L</"Handling Malformed Data">.
+
+For example, to convert a string from Perl's internal format into
+ISO-8859-1, also known as Latin1:
+
+  $octets = encode("iso-8859-1", $string);
+
+B<CAVEAT>: When you run C<$octets = encode("utf8", $string)>, then
+$octets I<might not be equal to> $string.  Though both contain the
+same data, the UTF8 flag for $octets is I<always> off.  When you
+encode anything, the UTF8 flag on the result is always off, even when it
+contains a completely valid utf8 string. See L</"The UTF8 flag"> below.
+
+If the $string is C<undef>, then C<undef> is returned.
+
+=head3 decode
+
+  $string = decode(ENCODING, OCTETS[, CHECK])
+
+This function returns the string that results from decoding the scalar
+value I<OCTETS>, assumed to be a sequence of octets in I<ENCODING>, into
+Perl's internal form.  As with encode(),
+I<ENCODING> can be either a canonical name or an alias. For encoding names
+and aliases, see L</"Defining Aliases">; for I<CHECK>, see L</"Handling
+Malformed Data">.
+
+For example, to convert ISO-8859-1 data into a string in Perl's
+internal format:
+
+  $string = decode("iso-8859-1", $octets);
+
+B<CAVEAT>: When you run C<$string = decode("utf8", $octets)>, then $string
+I<might not be equal to> $octets.  Though both contain the same data, the
+UTF8 flag for $string is on.  See L</"The UTF8 flag">
+below.
+
+If the $string is C<undef>, then C<undef> is returned.
+
+=head3 find_encoding
+
+  [$obj =] find_encoding(ENCODING)
+
+Returns the I<encoding object> corresponding to I<ENCODING>.  Returns
+C<undef> if no matching I<ENCODING> is find.  The returned object is
+what does the actual encoding or decoding.
+
+  $utf8 = decode($name, $bytes);
+
+is in fact
+
+    $utf8 = do {
+        $obj = find_encoding($name);
+        croak qq(encoding "$name" not found) unless ref $obj;
+        $obj->decode($bytes);
+    };
+
+with more error checking.
+
+You can therefore save time by reusing this object as follows;
+
+    my $enc = find_encoding("iso-8859-1");
+    while(<>) {
+        my $utf8 = $enc->decode($_);
+        ... # now do something with $utf8;
+    }
+
+Besides L</decode> and L</encode>, other methods are
+available as well.  For instance, C<name()> returns the canonical
+name of the encoding object.
+
+  find_encoding("latin1")->name; # iso-8859-1
+
+See L<Encode::Encoding> for details.
+
+=head3 from_to
+
+  [$length =] from_to($octets, FROM_ENC, TO_ENC [, CHECK])
+
+Converts I<in-place> data between two encodings. The data in $octets
+must be encoded as octets and I<not> as characters in Perl's internal
+format. For example, to convert ISO-8859-1 data into Microsoft's CP1250
+encoding:
+
+  from_to($octets, "iso-8859-1", "cp1250");
+
+and to convert it back:
+
+  from_to($octets, "cp1250", "iso-8859-1");
+
+Because the conversion happens in place, the data to be
+converted cannot be a string constant: it must be a scalar variable.
+
+C<from_to()> returns the length of the converted string in octets on success,
+and C<undef> on error.
+
+B<CAVEAT>: The following operations may look the same, but are not:
+
+  from_to($data, "iso-8859-1", "utf8"); #1
+  $data = decode("iso-8859-1", $data);  #2
+
+Both #1 and #2 make $data consist of a completely valid UTF-8 string,
+but only #2 turns the UTF8 flag on.  #1 is equivalent to:
+
+  $data = encode("utf8", decode("iso-8859-1", $data));
+
+See L</"The UTF8 flag"> below.
+
+Also note that:
+
+  from_to($octets, $from, $to, $check);
+
+is equivalent to:
+
+  $octets = encode($to, decode($from, $octets), $check);
+
+Yes, it does I<not> respect the $check during decoding.  It is
+deliberately done that way.  If you need minute control, use C<decode>
+followed by C<encode> as follows:
+
+  $octets = encode($to, decode($from, $octets, $check_from), $check_to);
+
+=head3 encode_utf8
+
+  $octets = encode_utf8($string);
+
+Equivalent to C<$octets = encode("utf8", $string)>.  The characters in
+$string are encoded in Perl's internal format, and the result is returned
+as a sequence of octets.  Because all possible characters in Perl have a
+(loose, not strict) UTF-8 representation, this function cannot fail.
+
+=head3 decode_utf8
+
+  $string = decode_utf8($octets [, CHECK]);
+
+Equivalent to C<$string = decode("utf8", $octets [, CHECK])>.
+The sequence of octets represented by $octets is decoded
+from UTF-8 into a sequence of logical characters.
+Because not all sequences of octets are valid UTF-8,
+it is quite possible for this function to fail.
+For CHECK, see L</"Handling Malformed Data">.
+
+=head2 Listing available encodings
+
+  use Encode;
+  @list = Encode->encodings();
+
+Returns a list of canonical names of available encodings that have already
+been loaded.  To get a list of all available encodings including those that
+have not yet been loaded, say:
+
+  @all_encodings = Encode->encodings(":all");
+
+Or you can give the name of a specific module:
+
+  @with_jp = Encode->encodings("Encode::JP");
+
+When "C<::>" is not in the name, "C<Encode::>" is assumed.
+
+  @ebcdic = Encode->encodings("EBCDIC");
+
+To find out in detail which encodings are supported by this package,
+see L<Encode::Supported>.
+
+=head2 Defining Aliases
+
+To add a new alias to a given encoding, use:
+
+  use Encode;
+  use Encode::Alias;
+  define_alias(NEWNAME => ENCODING);
+
+After that, I<NEWNAME> can be used as an alias for I<ENCODING>.
+I<ENCODING> may be either the name of an encoding or an
+I<encoding object>.
+
+Before you do that, first make sure the alias is nonexistent using
+C<resolve_alias()>, which returns the canonical name thereof.
+For example:
+
+  Encode::resolve_alias("latin1") eq "iso-8859-1" # true
+  Encode::resolve_alias("iso-8859-12")   # false; nonexistent
+  Encode::resolve_alias($name) eq $name  # true if $name is canonical
+
+C<resolve_alias()> does not need C<use Encode::Alias>; it can be
+imported via C<use Encode qw(resolve_alias)>.
+
+See L<Encode::Alias> for details.
+
+=head2 Finding IANA Character Set Registry names
+
+The canonical name of a given encoding does not necessarily agree with
+IANA Character Set Registry, commonly seen as C<< Content-Type:
+text/plain; charset=I<WHATEVER> >>.  For most cases, the canonical name
+works, but sometimes it does not, most notably with "utf-8-strict".
+
+As of C<Encode> version 2.21, a new method C<mime_name()> is therefore added.
+
+  use Encode;
+  my $enc = find_encoding("UTF-8");
+  warn $enc->name;      # utf-8-strict
+  warn $enc->mime_name; # UTF-8
+
+See also:  L<Encode::Encoding>
+
+=head1 Encoding via PerlIO
+
+If your perl supports C<PerlIO> (which is the default), you can use a
+C<PerlIO> layer to decode and encode directly via a filehandle.  The
+following two examples are fully identical in functionality:
+
+  ### Version 1 via PerlIO
+    open(INPUT,  "< :encoding(shiftjis)", $infile)
+        || die "Can't open < $infile for reading: $!";
+    open(OUTPUT, "> :encoding(euc-jp)",  $outfile)
+        || die "Can't open > $output for writing: $!";
+    while (<INPUT>) {   # auto decodes $_
+        print OUTPUT;   # auto encodes $_
+    }
+    close(INPUT)   || die "can't close $infile: $!";
+    close(OUTPUT)  || die "can't close $outfile: $!";
+
+  ### Version 2 via from_to()
+    open(INPUT,  "< :raw", $infile)
+        || die "Can't open < $infile for reading: $!";
+    open(OUTPUT, "> :raw",  $outfile)
+        || die "Can't open > $output for writing: $!";
+
+    while (<INPUT>) {
+        from_to($_, "shiftjis", "euc-jp", 1);  # switch encoding
+        print OUTPUT;   # emit raw (but properly encoded) data
+    }
+    close(INPUT)   || die "can't close $infile: $!";
+    close(OUTPUT)  || die "can't close $outfile: $!";
+
+In the first version above, you let the appropriate encoding layer
+handle the conversion.  In the second, you explicitly translate
+from one encoding to the other.
+
+Unfortunately, it may be that encodings are not C<PerlIO>-savvy.  You can check
+to see whether your encoding is supported by C<PerlIO> by invoking the
+C<perlio_ok> method on it:
+
+  Encode::perlio_ok("hz");             # false
+  find_encoding("euc-cn")->perlio_ok;  # true wherever PerlIO is available
+
+  use Encode qw(perlio_ok);            # imported upon request
+  perlio_ok("euc-jp")
+
+Fortunately, all encodings that come with C<Encode> core are C<PerlIO>-savvy
+except for C<hz> and C<ISO-2022-kr>.  For the gory details, see
+L<Encode::Encoding> and L<Encode::PerlIO>.
+
+=head1 Handling Malformed Data
+
+The optional I<CHECK> argument tells C<Encode> what to do when
+encountering malformed data.  Without I<CHECK>, C<Encode::FB_DEFAULT>
+(== 0) is assumed.
+
+As of version 2.12, C<Encode> supports coderef values for C<CHECK>;
+see below.
+
+B<NOTE:> Not all encodings support this feature.
+Some encodings ignore the I<CHECK> argument.  For example,
+L<Encode::Unicode> ignores I<CHECK> and it always croaks on error.
+
+=head2 List of I<CHECK> values
+
+=head3 FB_DEFAULT
+
+  I<CHECK> = Encode::FB_DEFAULT ( == 0)
+
+If I<CHECK> is 0, encoding and decoding replace any malformed character
+with a I<substitution character>.  When you encode, I<SUBCHAR> is used.
+When you decode, the Unicode REPLACEMENT CHARACTER, code point U+FFFD, is
+used.  If the data is supposed to be UTF-8, an optional lexical warning of
+warning category C<"utf8"> is given.
+
+=head3 FB_CROAK
+
+  I<CHECK> = Encode::FB_CROAK ( == 1)
+
+If I<CHECK> is 1, methods immediately die with an error
+message.  Therefore, when I<CHECK> is 1, you should trap
+exceptions with C<eval{}>, unless you really want to let it C<die>.
+
+=head3 FB_QUIET
+
+  I<CHECK> = Encode::FB_QUIET
+
+If I<CHECK> is set to C<Encode::FB_QUIET>, encoding and decoding immediately
+return the portion of the data that has been processed so far when an
+error occurs. The data argument is overwritten with everything
+after that point; that is, the unprocessed portion of the data.  This is
+handy when you have to call C<decode> repeatedly in the case where your
+source data may contain partial multi-byte character sequences,
+(that is, you are reading with a fixed-width buffer). Here's some sample
+code to do exactly that:
+
+    my($buffer, $string) = ("", "");
+    while (read($fh, $buffer, 256, length($buffer))) {
+        $string .= decode($encoding, $buffer, Encode::FB_QUIET);
+        # $buffer now contains the unprocessed partial character
+    }
+
+=head3 FB_WARN
+
+  I<CHECK> = Encode::FB_WARN
+
+This is the same as C<FB_QUIET> above, except that instead of being silent
+on errors, it issues a warning.  This is handy for when you are debugging.
+
+=head3 FB_PERLQQ FB_HTMLCREF FB_XMLCREF
+
+=over 2
+
+=item perlqq mode (I<CHECK> = Encode::FB_PERLQQ)
+
+=item HTML charref mode (I<CHECK> = Encode::FB_HTMLCREF)
+
+=item XML charref mode (I<CHECK> = Encode::FB_XMLCREF)
+
+=back
+
+For encodings that are implemented by the C<Encode::XS> module, C<CHECK> C<==>
+C<Encode::FB_PERLQQ> puts C<encode> and C<decode> into C<perlqq> fallback mode.
+
+When you decode, C<\xI<HH>> is inserted for a malformed character, where
+I<HH> is the hex representation of the octet that could not be decoded to
+utf8.  When you encode, C<\x{I<HHHH>}> will be inserted, where I<HHHH> is
+the Unicode code point (in any number of hex digits) of the character that
+cannot be found in the character repertoire of the encoding.
+
+The HTML/XML character reference modes are about the same. In place of
+C<\x{I<HHHH>}>, HTML uses C<&#I<NNN>;> where I<NNN> is a decimal number, and
+XML uses C<&#xI<HHHH>;> where I<HHHH> is the hexadecimal number.
+
+In C<Encode> 2.10 or later, C<LEAVE_SRC> is also implied.
+
+=head3 The bitmask
+
+These modes are all actually set via a bitmask.  Here is how the C<FB_I<XXX>>
+constants are laid out.  You can import the C<FB_I<XXX>> constants via
+C<use Encode qw(:fallbacks)>, and you can import the generic bitmask
+constants via C<use Encode qw(:fallback_all)>.
+
+                     FB_DEFAULT FB_CROAK FB_QUIET FB_WARN  FB_PERLQQ
+ DIE_ON_ERR    0x0001             X
+ WARN_ON_ERR   0x0002                               X
+ RETURN_ON_ERR 0x0004                      X        X
+ LEAVE_SRC     0x0008                                        X
+ PERLQQ        0x0100                                        X
+ HTMLCREF      0x0200
+ XMLCREF       0x0400
+
+=head3 LEAVE_SRC
+
+  Encode::LEAVE_SRC
+
+If the C<Encode::LEAVE_SRC> bit is I<not> set but I<CHECK> is set, then the
+source string to encode() or decode() will be overwritten in place.
+If you're not interested in this, then bitwise-OR it with the bitmask.
+
+=head2 coderef for CHECK
+
+As of C<Encode> 2.12, C<CHECK> can also be a code reference which takes the
+ordinal value of the unmapped character as an argument and returns
+octets that represent the fallback character.  For instance:
+
+  $ascii = encode("ascii", $utf8, sub{ sprintf "<U+%04X>", shift });
+
+Acts like C<FB_PERLQQ> but U+I<XXXX> is used instead of C<\x{I<XXXX>}>.
+
+Even the fallback for C<decode> must return octets, which are
+then decoded with the character encoding that C<decode> accepts. So for
+example if you wish to decode octets as UTF-8, and use ISO-8859-15 as
+a fallback for bytes that are not valid UTF-8, you could write
+
+    $str = decode 'UTF-8', $octets, sub {
+        my $tmp = chr shift;
+        from_to $tmp, 'ISO-8859-15', 'UTF-8';
+        return $tmp;
+    };
+
+=head1 Defining Encodings
+
+To define a new encoding, use:
+
+    use Encode qw(define_encoding);
+    define_encoding($object, CANONICAL_NAME [, alias...]);
+
+I<CANONICAL_NAME> will be associated with I<$object>.  The object
+should provide the interface described in L<Encode::Encoding>.
+If more than two arguments are provided, additional
+arguments are considered aliases for I<$object>.
+
+See L<Encode::Encoding> for details.
+
+=head1 The UTF8 flag
+
+Before the introduction of Unicode support in Perl, The C<eq> operator
+just compared the strings represented by two scalars. Beginning with
+Perl 5.8, C<eq> compares two strings with simultaneous consideration of
+I<the UTF8 flag>. To explain why we made it so, I quote from page 402 of
+I<Programming Perl, 3rd ed.>
+
+=over 2
+
+=item Goal #1:
+
+Old byte-oriented programs should not spontaneously break on the old
+byte-oriented data they used to work on.
+
+=item Goal #2:
+
+Old byte-oriented programs should magically start working on the new
+character-oriented data when appropriate.
+
+=item Goal #3:
+
+Programs should run just as fast in the new character-oriented mode
+as in the old byte-oriented mode.
+
+=item Goal #4:
+
+Perl should remain one language, rather than forking into a
+byte-oriented Perl and a character-oriented Perl.
+
+=back
+
+When I<Programming Perl, 3rd ed.> was written, not even Perl 5.6.0 had been
+born yet, many features documented in the book remained unimplemented for a
+long time.  Perl 5.8 corrected much of this, and the introduction of the
+UTF8 flag is one of them.  You can think of there being two fundamentally
+different kinds of strings and string-operations in Perl: one a
+byte-oriented mode  for when the internal UTF8 flag is off, and the other a
+character-oriented mode for when the internal UTF8 flag is on.
+
+Here is how C<Encode> handles the UTF8 flag.
+
+=over 2
+
+=item *
+
+When you I<encode>, the resulting UTF8 flag is always B<off>.
+
+=item *
+
+When you I<decode>, the resulting UTF8 flag is B<on>--I<unless> you can
+unambiguously represent data.  Here is what we mean by "unambiguously".
+After C<$utf8 = decode("foo", $octet)>,
+
+  When $octet is...   The UTF8 flag in $utf8 is
+  ---------------------------------------------
+  In ASCII only (or EBCDIC only)            OFF
+  In ISO-8859-1                              ON
+  In any other Encoding                      ON
+  ---------------------------------------------
+
+As you see, there is one exception: in ASCII.  That way you can assume
+Goal #1.  And with C<Encode>, Goal #2 is assumed but you still have to be
+careful in the cases mentioned in the B<CAVEAT> paragraphs above.
+
+This UTF8 flag is not visible in Perl scripts, exactly for the same reason
+you cannot (or rather, you I<don't have to>) see whether a scalar contains
+a string, an integer, or a floating-point number.   But you can still peek
+and poke these if you will.  See the next section.
+
+=back
+
+=head2 Messing with Perl's Internals
+
+The following API uses parts of Perl's internals in the current
+implementation.  As such, they are efficient but may change in a future
+release.
+
+=head3 is_utf8
+
+  is_utf8(STRING [, CHECK])
+
+[INTERNAL] Tests whether the UTF8 flag is turned on in the I<STRING>.
+If I<CHECK> is true, also checks whether I<STRING> contains well-formed
+UTF-8.  Returns true if successful, false otherwise.
+
+As of Perl 5.8.1, L<utf8> also has the C<utf8::is_utf8> function.
+
+=head3 _utf8_on
+
+  _utf8_on(STRING)
+
+[INTERNAL] Turns the I<STRING>'s internal UTF8 flag B<on>.  The I<STRING>
+is I<not> checked for containing only well-formed UTF-8.  Do not use this
+unless you I<know with absolute certainty> that the STRING holds only
+well-formed UTF-8.  Returns the previous state of the UTF8 flag (so please
+don't treat the return value as indicating success or failure), or C<undef>
+if I<STRING> is not a string.
+
+B<NOTE>: For security reasons, this function does not work on tainted values.
+
+=head3 _utf8_off
+
+  _utf8_off(STRING)
+
+[INTERNAL] Turns the I<STRING>'s internal UTF8 flag B<off>.  Do not use
+frivolously.  Returns the previous state of the UTF8 flag, or C<undef> if
+I<STRING> is not a string.  Do not treat the return value as indicative of
+success or failure, because that isn't what it means: it is only the
+previous setting.
+
+B<NOTE>: For security reasons, this function does not work on tainted values.
+
+=head1 UTF-8 vs. utf8 vs. UTF8
+
+  ....We now view strings not as sequences of bytes, but as sequences
+  of numbers in the range 0 .. 2**32-1 (or in the case of 64-bit
+  computers, 0 .. 2**64-1) -- Programming Perl, 3rd ed.
+
+That has historically been Perl's notion of UTF-8, as that is how UTF-8 was
+first conceived by Ken Thompson when he invented it. However, thanks to
+later revisions to the applicable standards, official UTF-8 is now rather
+stricter than that. For example, its range is much narrower (0 .. 0x10_FFFF
+to cover only 21 bits instead of 32 or 64 bits) and some sequences
+are not allowed, like those used in surrogate pairs, the 31 non-character
+code points 0xFDD0 .. 0xFDEF, the last two code points in I<any> plane
+(0xI<XX>_FFFE and 0xI<XX>_FFFF), all non-shortest encodings, etc.
+
+The former default in which Perl would always use a loose interpretation of
+UTF-8 has now been overruled:
+
+  From: Larry Wall <larry@wall.org>
+  Date: December 04, 2004 11:51:58 JST
+  To: perl-unicode@perl.org
+  Subject: Re: Make Encode.pm support the real UTF-8
+  Message-Id: <20041204025158.GA28754@wall.org>
+
+  On Fri, Dec 03, 2004 at 10:12:12PM +0000, Tim Bunce wrote:
+  : I've no problem with 'utf8' being perl's unrestricted uft8 encoding,
+  : but "UTF-8" is the name of the standard and should give the
+  : corresponding behaviour.
+
+  For what it's worth, that's how I've always kept them straight in my
+  head.
+
+  Also for what it's worth, Perl 6 will mostly default to strict but
+  make it easy to switch back to lax.
+
+  Larry
+
+Got that?  As of Perl 5.8.7, B<"UTF-8"> means UTF-8 in its current
+sense, which is conservative and strict and security-conscious, whereas
+B<"utf8"> means UTF-8 in its former sense, which was liberal and loose and
+lax.  C<Encode> version 2.10 or later thus groks this subtle but critically
+important distinction between C<"UTF-8"> and C<"utf8">.
+
+  encode("utf8",  "\x{FFFF_FFFF}", 1); # okay
+  encode("UTF-8", "\x{FFFF_FFFF}", 1); # croaks
+
+In the C<Encode> module, C<"UTF-8"> is actually a canonical name for
+C<"utf-8-strict">.  That hyphen between the C<"UTF"> and the C<"8"> is
+critical; without it, C<Encode> goes "liberal" and (perhaps overly-)permissive:
+
+  find_encoding("UTF-8")->name # is 'utf-8-strict'
+  find_encoding("utf-8")->name # ditto. names are case insensitive
+  find_encoding("utf_8")->name # ditto. "_" are treated as "-"
+  find_encoding("UTF8")->name  # is 'utf8'.
+
+Perl's internal UTF8 flag is called "UTF8", without a hyphen. It indicates
+whether a string is internally encoded as "utf8", also without a hyphen.
+
+=head1 SEE ALSO
+
+L<Encode::Encoding>,
+L<Encode::Supported>,
+L<Encode::PerlIO>,
+L<encoding>,
+L<perlebcdic>,
+L<perlfunc/open>,
+L<perlunicode>, L<perluniintro>, L<perlunifaq>, L<perlunitut>
+L<utf8>,
+the Perl Unicode Mailing List L<http://lists.perl.org/list/perl-unicode.html>
+
+=head1 MAINTAINER
+
+This project was originated by the late Nick Ing-Simmons and later
+maintained by Dan Kogai I<< <dankogai@cpan.org> >>.  See AUTHORS
+for a full list of people involved.  For any questions, send mail to
+I<< <perl-unicode@perl.org> >> so that we can all share.
+
+While Dan Kogai retains the copyright as a maintainer, credit
+should go to all those involved.  See AUTHORS for a list of those
+who submitted code to the project.
+
+=head1 COPYRIGHT
+
+Copyright 2002-2014 Dan Kogai I<< <dankogai@cpan.org> >>.
+
+This library is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/Encode/Alias.pm b/lib/5.24.1/x86_64-linux/Encode/Alias.pm
new file mode 100644
index 00000000..04ad4967
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/Encode/Alias.pm
@@ -0,0 +1,389 @@
+package Encode::Alias;
+use strict;
+use warnings;
+no warnings 'redefine';
+our $VERSION = do { my @r = ( q$Revision: 2.20 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+use constant DEBUG => !!$ENV{PERL_ENCODE_DEBUG};
+
+use Exporter 'import';
+
+# Public, encouraged API is exported by default
+
+our @EXPORT =
+  qw (
+  define_alias
+  find_alias
+);
+
+our @Alias;    # ordered matching list
+our %Alias;    # cached known aliases
+
+sub find_alias {
+    require Encode;
+    my $class = shift;
+    my $find  = shift;
+    unless ( exists $Alias{$find} ) {
+        $Alias{$find} = undef;    # Recursion guard
+        for ( my $i = 0 ; $i < @Alias ; $i += 2 ) {
+            my $alias = $Alias[$i];
+            my $val   = $Alias[ $i + 1 ];
+            my $new;
+            if ( ref($alias) eq 'Regexp' && $find =~ $alias ) {
+                DEBUG and warn "eval $val";
+                $new = eval $val;
+                DEBUG and $@ and warn "$val, $@";
+            }
+            elsif ( ref($alias) eq 'CODE' ) {
+                DEBUG and warn "$alias", "->", "($find)";
+                $new = $alias->($find);
+            }
+            elsif ( lc($find) eq lc($alias) ) {
+                $new = $val;
+            }
+            if ( defined($new) ) {
+                next if $new eq $find;    # avoid (direct) recursion on bugs
+                DEBUG and warn "$alias, $new";
+                my $enc =
+                  ( ref($new) ) ? $new : Encode::find_encoding($new);
+                if ($enc) {
+                    $Alias{$find} = $enc;
+                    last;
+                }
+            }
+        }
+
+        # case insensitive search when canonical is not in all lowercase
+        # RT ticket #7835
+        unless ( $Alias{$find} ) {
+            my $lcfind = lc($find);
+            for my $name ( keys %Encode::Encoding, keys %Encode::ExtModule )
+            {
+                $lcfind eq lc($name) or next;
+                $Alias{$find} = Encode::find_encoding($name);
+                DEBUG and warn "$find => $name";
+            }
+        }
+    }
+    if (DEBUG) {
+        my $name;
+        if ( my $e = $Alias{$find} ) {
+            $name = $e->name;
+        }
+        else {
+            $name = "";
+        }
+        warn "find_alias($class, $find)->name = $name";
+    }
+    return $Alias{$find};
+}
+
+sub define_alias {
+    while (@_) {
+        my ( $alias, $name ) = splice( @_, 0, 2 );
+        unshift( @Alias, $alias => $name );    # newer one has precedence
+        if ( ref($alias) ) {
+
+            # clear %Alias cache to allow overrides
+            my @a = keys %Alias;
+            for my $k (@a) {
+                if ( ref($alias) eq 'Regexp' && $k =~ $alias ) {
+                    DEBUG and warn "delete \$Alias\{$k\}";
+                    delete $Alias{$k};
+                }
+                elsif ( ref($alias) eq 'CODE' && $alias->($k) ) {
+                    DEBUG and warn "delete \$Alias\{$k\}";
+                    delete $Alias{$k};
+                }
+            }
+        }
+        else {
+            DEBUG and warn "delete \$Alias\{$alias\}";
+            delete $Alias{$alias};
+        }
+    }
+}
+
+# Allow latin-1 style names as well
+# 0  1  2  3  4  5   6   7   8   9  10
+our @Latin2iso = ( 0, 1, 2, 3, 4, 9, 10, 13, 14, 15, 16 );
+
+# Allow winlatin1 style names as well
+our %Winlatin2cp = (
+    'latin1'     => 1252,
+    'latin2'     => 1250,
+    'cyrillic'   => 1251,
+    'greek'      => 1253,
+    'turkish'    => 1254,
+    'hebrew'     => 1255,
+    'arabic'     => 1256,
+    'baltic'     => 1257,
+    'vietnamese' => 1258,
+);
+
+init_aliases();
+
+sub undef_aliases {
+    @Alias = ();
+    %Alias = ();
+}
+
+sub init_aliases {
+    require Encode;
+    undef_aliases();
+
+    # Try all-lower-case version should all else fails
+    define_alias( qr/^(.*)$/ => '"\L$1"' );
+
+    # UTF/UCS stuff
+    define_alias( qr/^(unicode-1-1-)?UTF-?7$/i     => '"UTF-7"' );
+    define_alias( qr/^UCS-?2-?LE$/i => '"UCS-2LE"' );
+    define_alias(
+        qr/^UCS-?2-?(BE)?$/i    => '"UCS-2BE"',
+        qr/^UCS-?4-?(BE|LE|)?$/i => 'uc("UTF-32$1")',
+        qr/^iso-10646-1$/i      => '"UCS-2BE"'
+    );
+    define_alias(
+        qr/^UTF-?(16|32)-?BE$/i => '"UTF-$1BE"',
+        qr/^UTF-?(16|32)-?LE$/i => '"UTF-$1LE"',
+        qr/^UTF-?(16|32)$/i     => '"UTF-$1"',
+    );
+
+    # ASCII
+    define_alias( qr/^(?:US-?)ascii$/i       => '"ascii"' );
+    define_alias( 'C'                        => 'ascii' );
+    define_alias( qr/\b(?:ISO[-_]?)?646(?:[-_]?US)?$/i => '"ascii"' );
+
+    # Allow variants of iso-8859-1 etc.
+    define_alias( qr/\biso[-_]?(\d+)[-_](\d+)$/i => '"iso-$1-$2"' );
+
+    # At least HP-UX has these.
+    define_alias( qr/\biso8859(\d+)$/i => '"iso-8859-$1"' );
+
+    # More HP stuff.
+    define_alias(
+        qr/\b(?:hp-)?(arabic|greek|hebrew|kana|roman|thai|turkish)8$/i =>
+          '"${1}8"' );
+
+    # The Official name of ASCII.
+    define_alias( qr/\bANSI[-_]?X3\.4[-_]?1968$/i => '"ascii"' );
+
+    # This is a font issue, not an encoding issue.
+    # (The currency symbol of the Latin 1 upper half
+    #  has been redefined as the euro symbol.)
+    define_alias( qr/^(.+)\@euro$/i => '"$1"' );
+
+    define_alias( qr/\b(?:iso[-_]?)?latin[-_]?(\d+)$/i =>
+'defined $Encode::Alias::Latin2iso[$1] ? "iso-8859-$Encode::Alias::Latin2iso[$1]" : undef'
+    );
+
+    define_alias(
+        qr/\bwin(latin[12]|cyrillic|baltic|greek|turkish|
+             hebrew|arabic|baltic|vietnamese)$/ix =>
+          '"cp" . $Encode::Alias::Winlatin2cp{lc($1)}'
+    );
+
+    # Common names for non-latin preferred MIME names
+    define_alias(
+        'ascii'    => 'US-ascii',
+        'cyrillic' => 'iso-8859-5',
+        'arabic'   => 'iso-8859-6',
+        'greek'    => 'iso-8859-7',
+        'hebrew'   => 'iso-8859-8',
+        'thai'     => 'iso-8859-11',
+    );
+    # RT #20781
+    define_alias(qr/\btis-?620\b/i  => '"iso-8859-11"');
+
+    # At least AIX has IBM-NNN (surprisingly...) instead of cpNNN.
+    # And Microsoft has their own naming (again, surprisingly).
+    # And windows-* is registered in IANA!
+    define_alias(
+        qr/\b(?:cp|ibm|ms|windows)[-_ ]?(\d{2,4})$/i => '"cp$1"' );
+
+    # Sometimes seen with a leading zero.
+    # define_alias( qr/\bcp037\b/i => '"cp37"');
+
+    # Mac Mappings
+    # predefined in *.ucm; unneeded
+    # define_alias( qr/\bmacIcelandic$/i => '"macIceland"');
+    define_alias( qr/^(?:x[_-])?mac[_-](.*)$/i => '"mac$1"' );
+    # http://rt.cpan.org/Ticket/Display.html?id=36326
+    define_alias( qr/^macintosh$/i => '"MacRoman"' );
+    # https://rt.cpan.org/Ticket/Display.html?id=78125
+    define_alias( qr/^macce$/i => '"MacCentralEurRoman"' );
+    # Ououououou. gone.  They are different!
+    # define_alias( qr/\bmacRomanian$/i => '"macRumanian"');
+
+    # Standardize on the dashed versions.
+    define_alias( qr/\bkoi8[\s\-_]*([ru])$/i => '"koi8-$1"' );
+
+    unless ($Encode::ON_EBCDIC) {
+
+        # for Encode::CN
+        define_alias( qr/\beuc.*cn$/i => '"euc-cn"' );
+        define_alias( qr/\bcn.*euc$/i => '"euc-cn"' );
+
+        # define_alias( qr/\bGB[- ]?(\d+)$/i => '"euc-cn"' )
+        # CP936 doesn't have vendor-addon for GBK, so they're identical.
+        define_alias( qr/^gbk$/i => '"cp936"' );
+
+        # This fixes gb2312 vs. euc-cn confusion, practically
+        define_alias( qr/\bGB[-_ ]?2312(?!-?raw)/i => '"euc-cn"' );
+
+        # for Encode::JP
+        define_alias( qr/\bjis$/i         => '"7bit-jis"' );
+        define_alias( qr/\beuc.*jp$/i     => '"euc-jp"' );
+        define_alias( qr/\bjp.*euc$/i     => '"euc-jp"' );
+        define_alias( qr/\bujis$/i        => '"euc-jp"' );
+        define_alias( qr/\bshift.*jis$/i  => '"shiftjis"' );
+        define_alias( qr/\bsjis$/i        => '"shiftjis"' );
+        define_alias( qr/\bwindows-31j$/i => '"cp932"' );
+
+        # for Encode::KR
+        define_alias( qr/\beuc.*kr$/i => '"euc-kr"' );
+        define_alias( qr/\bkr.*euc$/i => '"euc-kr"' );
+
+        # This fixes ksc5601 vs. euc-kr confusion, practically
+        define_alias( qr/(?:x-)?uhc$/i         => '"cp949"' );
+        define_alias( qr/(?:x-)?windows-949$/i => '"cp949"' );
+        define_alias( qr/\bks_c_5601-1987$/i   => '"cp949"' );
+
+        # for Encode::TW
+        define_alias( qr/\bbig-?5$/i              => '"big5-eten"' );
+        define_alias( qr/\bbig5-?et(?:en)?$/i     => '"big5-eten"' );
+        define_alias( qr/\btca[-_]?big5$/i        => '"big5-eten"' );
+        define_alias( qr/\bbig5-?hk(?:scs)?$/i    => '"big5-hkscs"' );
+        define_alias( qr/\bhk(?:scs)?[-_]?big5$/i => '"big5-hkscs"' );
+    }
+
+    # https://github.com/dankogai/p5-encode/issues/37
+    define_alias(qr/cp65000/i => '"UTF-7"');
+    define_alias(qr/cp65001/i => '"utf-8-strict"');
+
+    # utf8 is blessed :)
+    define_alias( qr/\bUTF-8$/i => '"utf-8-strict"' );
+
+    # At last, Map white space and _ to '-'
+    define_alias( qr/^(\S+)[\s_]+(.*)$/i => '"$1-$2"' );
+}
+
+1;
+__END__
+
+# TODO: HP-UX '8' encodings arabic8 greek8 hebrew8 kana8 thai8 turkish8
+# TODO: HP-UX '15' encodings japanese15 korean15 roi15
+# TODO: Cyrillic encoding ISO-IR-111 (useful?)
+# TODO: Armenian encoding ARMSCII-8
+# TODO: Hebrew encoding ISO-8859-8-1
+# TODO: Thai encoding TCVN
+# TODO: Vietnamese encodings VPS
+# TODO: Mac Asian+African encodings: Arabic Armenian Bengali Burmese
+#       ChineseSimp ChineseTrad Devanagari Ethiopic ExtArabic
+#       Farsi Georgian Gujarati Gurmukhi Hebrew Japanese
+#       Kannada Khmer Korean Laotian Malayalam Mongolian
+#       Oriya Sinhalese Symbol Tamil Telugu Tibetan Vietnamese
+
+=head1 NAME
+
+Encode::Alias - alias definitions to encodings
+
+=head1 SYNOPSIS
+
+  use Encode;
+  use Encode::Alias;
+  define_alias( "newName" => ENCODING);
+  define_alias( qr/.../ => ENCODING);
+  define_alias( sub { return ENCODING if ...; } );
+
+=head1 DESCRIPTION
+
+Allows newName to be used as an alias for ENCODING. ENCODING may be
+either the name of an encoding or an encoding object (as described 
+in L<Encode>).
+
+Currently the first argument to define_alias() can be specified in the
+following ways:
+
+=over 4
+
+=item As a simple string.
+
+=item As a qr// compiled regular expression, e.g.:
+
+  define_alias( qr/^iso8859-(\d+)$/i => '"iso-8859-$1"' );
+
+In this case, if I<ENCODING> is not a reference, it is C<eval>-ed
+in order to allow C<$1> etc. to be substituted.  The example is one
+way to alias names as used in X11 fonts to the MIME names for the
+iso-8859-* family.  Note the double quotes inside the single quotes.
+
+(or, you don't have to do this yourself because this example is predefined)
+
+If you are using a regex here, you have to use the quotes as shown or
+it won't work.  Also note that regex handling is tricky even for the
+experienced.  Use this feature with caution.
+
+=item As a code reference, e.g.:
+
+  define_alias( sub {shift =~ /^iso8859-(\d+)$/i ? "iso-8859-$1" : undef } );
+
+The same effect as the example above in a different way.  The coderef
+takes the alias name as an argument and returns a canonical name on
+success or undef if not.  Note the second argument is ignored if provided.
+Use this with even more caution than the regex version.
+
+=back
+
+=head3 Changes in code reference aliasing
+
+As of Encode 1.87, the older form
+
+  define_alias( sub { return  /^iso8859-(\d+)$/i ? "iso-8859-$1" : undef } );
+
+no longer works. 
+
+Encode up to 1.86 internally used "local $_" to implement this older
+form.  But consider the code below;
+
+  use Encode;
+  $_ = "eeeee" ;
+  while (/(e)/g) {
+    my $utf = decode('aliased-encoding-name', $1);
+    print "position:",pos,"\n";
+  }
+
+Prior to Encode 1.86 this fails because of "local $_".
+
+=head2 Alias overloading
+
+You can override predefined aliases by simply applying define_alias().
+The new alias is always evaluated first, and when necessary,
+define_alias() flushes the internal cache to make the new definition
+available.
+
+  # redirect SHIFT_JIS to MS/IBM Code Page 932, which is a
+  # superset of SHIFT_JIS
+
+  define_alias( qr/shift.*jis$/i  => '"cp932"' );
+  define_alias( qr/sjis$/i        => '"cp932"' );
+
+If you want to zap all predefined aliases, you can use
+
+  Encode::Alias->undef_aliases;
+
+to do so.  And
+
+  Encode::Alias->init_aliases;
+
+gets the factory settings back.
+
+Note that define_alias() will not be able to override the canonical name
+of encodings. Encodings are first looked up by canonical name before
+potential aliases are tried.
+
+=head1 SEE ALSO
+
+L<Encode>, L<Encode::Supported>
+
+=cut
+
diff --git a/lib/5.24.1/x86_64-linux/Encode/Byte.pm b/lib/5.24.1/x86_64-linux/Encode/Byte.pm
new file mode 100644
index 00000000..d105aa27
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/Encode/Byte.pm
@@ -0,0 +1,120 @@
+package Encode::Byte;
+use strict;
+use warnings;
+use Encode;
+our $VERSION = do { my @r = ( q$Revision: 2.4 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+
+use XSLoader;
+XSLoader::load( __PACKAGE__, $VERSION );
+
+1;
+__END__
+
+=head1 NAME
+
+Encode::Byte - Single Byte Encodings
+
+=head1 SYNOPSIS
+
+    use Encode qw/encode decode/; 
+    $greek = encode("iso-8859-7", $utf8);  # loads Encode::Byte implicitly
+    $utf8  = decode("iso-8859-7", $greek); # ditto
+
+=head1 ABSTRACT
+
+This module implements various single byte encodings.  For most cases it uses
+\x80-\xff (upper half) to map non-ASCII characters.  Encodings
+supported are as follows.   
+
+  Canonical      Alias		                      Description
+  --------------------------------------------------------------------
+  # ISO 8859 series
+  (iso-8859-1	is in built-in)
+  iso-8859-2	latin2					     [ISO]
+  iso-8859-3	latin3					     [ISO]
+  iso-8859-4	latin4					     [ISO]
+  iso-8859-5						     [ISO]
+  iso-8859-6						     [ISO]
+  iso-8859-7						     [ISO]
+  iso-8859-8						     [ISO]
+  iso-8859-9	latin5					     [ISO]
+  iso-8859-10	latin6					     [ISO]
+  iso-8859-11
+  (iso-8859-12 is nonexistent)
+  iso-8859-13   latin7					     [ISO]
+  iso-8859-14	latin8					     [ISO]
+  iso-8859-15	latin9					     [ISO]
+  iso-8859-16	latin10					     [ISO]
+
+  # Cyrillic
+  koi8-f					
+  koi8-r        cp878					 [RFC1489]
+  koi8-u						 [RFC2319]
+
+  # Vietnamese
+  viscii
+
+  # all cp* are also available as ibm-*, ms-*, and windows-*
+  # also see L<http://msdn.microsoft.com/en-us/library/aa752010%28VS.85%29.aspx>
+
+  cp424  
+  cp437  
+  cp737  
+  cp775  
+  cp850  
+  cp852  
+  cp855  
+  cp856  
+  cp857  
+  cp860  
+  cp861  
+  cp862  
+  cp863  
+  cp864  
+  cp865  
+  cp866  
+  cp869  
+  cp874  
+  cp1006  
+  cp1250	WinLatin2
+  cp1251	WinCyrillic
+  cp1252	WinLatin1
+  cp1253	WinGreek
+  cp1254	WinTurkish
+  cp1255	WinHebrew
+  cp1256	WinArabic
+  cp1257	WinBaltic
+  cp1258	WinVietnamese
+
+  # Macintosh
+  # Also see L<http://developer.apple.com/technotes/tn/tn1150.html>
+  MacArabic  
+  MacCentralEurRoman  
+  MacCroatian  
+  MacCyrillic  
+  MacFarsi  
+  MacGreek  
+  MacHebrew  
+  MacIcelandic  
+  MacRoman  
+  MacRomanian  
+  MacRumanian  
+  MacSami  
+  MacThai  
+  MacTurkish  
+  MacUkrainian  
+
+  # More vendor encodings
+  AdobeStandardEncoding
+  nextstep
+  hp-roman8
+
+=head1 DESCRIPTION
+
+To find how to use this module in detail, see L<Encode>.
+
+=head1 SEE ALSO
+
+L<Encode>
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/Encode/CJKConstants.pm b/lib/5.24.1/x86_64-linux/Encode/CJKConstants.pm
new file mode 100644
index 00000000..43d20337
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/Encode/CJKConstants.pm
@@ -0,0 +1,66 @@
+#
+# $Id: CJKConstants.pm,v 2.2 2006/06/03 20:28:48 dankogai Exp $
+#
+
+package Encode::CJKConstants;
+
+use strict;
+use warnings;
+our $RCSID = q$Id: CJKConstants.pm,v 2.2 2006/06/03 20:28:48 dankogai Exp $;
+our $VERSION = do { my @r = ( q$Revision: 2.2 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+
+use Carp;
+
+require Exporter;
+our @ISA         = qw(Exporter);
+our @EXPORT      = qw();
+our @EXPORT_OK   = qw(%CHARCODE %ESC %RE);
+our %EXPORT_TAGS = ( 'all' => [ @EXPORT_OK, @EXPORT ] );
+
+my %_0208 = (
+    1978 => '\e\$\@',
+    1983 => '\e\$B',
+    1990 => '\e&\@\e\$B',
+);
+
+our %CHARCODE = (
+    UNDEF_EUC     => "\xa2\xae",    # ¢® in EUC
+    UNDEF_SJIS    => "\x81\xac",    # ¢® in SJIS
+    UNDEF_JIS     => "\xa2\xf7",    # ¢÷ -- used in unicode
+    UNDEF_UNICODE => "\x20\x20",    # ¢÷ -- used in unicode
+);
+
+our %ESC = (
+    GB_2312   => "\e\$A",
+    JIS_0208  => "\e\$B",
+    JIS_0212  => "\e\$(D",
+    KSC_5601  => "\e\$(C",
+    ASC       => "\e\(B",
+    KANA      => "\e\(I",
+    '2022_KR' => "\e\$)C",
+);
+
+our %RE = (
+    ASCII     => '[\x00-\x7f]',
+    BIN       => '[\x00-\x06\x7f\xff]',
+    EUC_0212  => '\x8f[\xa1-\xfe][\xa1-\xfe]',
+    EUC_C     => '[\xa1-\xfe][\xa1-\xfe]',
+    EUC_KANA  => '\x8e[\xa1-\xdf]',
+    JIS_0208  => "$_0208{1978}|$_0208{1983}|$_0208{1990}",
+    JIS_0212  => "\e" . '\$\(D',
+    ISO_ASC   => "\e" . '\([BJ]',
+    JIS_KANA  => "\e" . '\(I',
+    '2022_KR' => "\e" . '\$\)C',
+    SJIS_C    => '[\x81-\x9f\xe0-\xfc][\x40-\x7e\x80-\xfc]',
+    SJIS_KANA => '[\xa1-\xdf]',
+    UTF8      => '[\xc0-\xdf][\x80-\xbf]|[\xe0-\xef][\x80-\xbf][\x80-\xbf]'
+);
+
+1;
+
+=head1 NAME
+
+Encode::CJKConstants.pm -- Internally used by Encode::??::ISO_2022_*
+
+=cut
+
diff --git a/lib/5.24.1/x86_64-linux/Encode/CN.pm b/lib/5.24.1/x86_64-linux/Encode/CN.pm
new file mode 100644
index 00000000..830f3450
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/Encode/CN.pm
@@ -0,0 +1,74 @@
+package Encode::CN;
+BEGIN {
+    if ( ord("A") == 193 ) {
+        die "Encode::CN not supported on EBCDIC\n";
+    }
+}
+use strict;
+use warnings;
+use Encode;
+our $VERSION = do { my @r = ( q$Revision: 2.3 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+use XSLoader;
+XSLoader::load( __PACKAGE__, $VERSION );
+
+# Relocated from Encode.pm
+
+use Encode::CN::HZ;
+
+# use Encode::CN::2022_CN;
+
+1;
+__END__
+
+=head1 NAME
+
+Encode::CN - China-based Chinese Encodings
+
+=head1 SYNOPSIS
+
+    use Encode qw/encode decode/; 
+    $euc_cn = encode("euc-cn", $utf8);   # loads Encode::CN implicitly
+    $utf8   = decode("euc-cn", $euc_cn); # ditto
+
+=head1 DESCRIPTION
+
+This module implements China-based Chinese charset encodings.
+Encodings supported are as follows.
+
+  Canonical   Alias		Description
+  --------------------------------------------------------------------
+  euc-cn      /\beuc.*cn$/i	EUC (Extended Unix Character)
+          /\bcn.*euc$/i
+              /\bGB[-_ ]?2312(?:\D.*$|$)/i (see below)
+  gb2312-raw			The raw (low-bit) GB2312 character map
+  gb12345-raw			Traditional chinese counterpart to 
+                GB2312 (raw)
+  iso-ir-165			GB2312 + GB6345 + GB8565 + additions
+  MacChineseSimp                GB2312 + Apple Additions
+  cp936				Code Page 936, also known as GBK 
+                (Extended GuoBiao)
+  hz				7-bit escaped GB2312 encoding
+  --------------------------------------------------------------------
+
+To find how to use this module in detail, see L<Encode>.
+
+=head1 NOTES
+
+Due to size concerns, C<GB 18030> (an extension to C<GBK>) is distributed
+separately on CPAN, under the name L<Encode::HanExtra>. That module
+also contains extra Taiwan-based encodings.
+
+=head1 BUGS
+
+When you see C<charset=gb2312> on mails and web pages, they really
+mean C<euc-cn> encodings.  To fix that, C<gb2312> is aliased to C<euc-cn>.
+Use C<gb2312-raw> when you really mean it.
+
+The ASCII region (0x00-0x7f) is preserved for all encodings, even though
+this conflicts with mappings by the Unicode Consortium.
+
+=head1 SEE ALSO
+
+L<Encode>
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/Encode/CN/HZ.pm b/lib/5.24.1/x86_64-linux/Encode/CN/HZ.pm
new file mode 100644
index 00000000..f035d821
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/Encode/CN/HZ.pm
@@ -0,0 +1,198 @@
+package Encode::CN::HZ;
+
+use strict;
+use warnings;
+use utf8 ();
+
+use vars qw($VERSION);
+$VERSION = do { my @r = ( q$Revision: 2.7 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+
+use Encode qw(:fallbacks);
+
+use parent qw(Encode::Encoding);
+__PACKAGE__->Define('hz');
+
+# HZ is a combination of ASCII and escaped GB, so we implement it
+# with the GB2312(raw) encoding here. Cf. RFCs 1842 & 1843.
+
+# not ported for EBCDIC.  Which should be used, "~" or "\x7E"?
+
+sub needs_lines { 1 }
+
+sub decode ($$;$) {
+    my ( $obj, $str, $chk ) = @_;
+
+    my $GB  = Encode::find_encoding('gb2312-raw');
+    my $ret = substr($str, 0, 0); # to propagate taintedness
+    my $in_ascii = 1;    # default mode is ASCII.
+
+    while ( length $str ) {
+        if ($in_ascii) {    # ASCII mode
+            if ( $str =~ s/^([\x00-\x7D\x7F]+)// ) {    # no '~' => ASCII
+                $ret .= $1;
+
+                # EBCDIC should need ascii2native, but not ported.
+            }
+            elsif ( $str =~ s/^\x7E\x7E// ) {           # escaped tilde
+                $ret .= '~';
+            }
+            elsif ( $str =~ s/^\x7E\cJ// ) {    # '\cJ' == LF in ASCII
+                1;                              # no-op
+            }
+            elsif ( $str =~ s/^\x7E\x7B// ) {    # '~{'
+                $in_ascii = 0;                   # to GB
+            }
+            else {    # encounters an invalid escape, \x80 or greater
+                last;
+            }
+        }
+        else {        # GB mode; the byte ranges are as in RFC 1843.
+            no warnings 'uninitialized';
+            if ( $str =~ s/^((?:[\x21-\x77][\x21-\x7E])+)// ) {
+                $ret .= $GB->decode( $1, $chk );
+            }
+            elsif ( $str =~ s/^\x7E\x7D// ) {    # '~}'
+                $in_ascii = 1;
+            }
+            else {                               # invalid
+                last;
+            }
+        }
+    }
+    $_[1] = '' if $chk;    # needs_lines guarantees no partial character
+    return $ret;
+}
+
+sub cat_decode {
+    my ( $obj, undef, $src, $pos, $trm, $chk ) = @_;
+    my ( $rdst, $rsrc, $rpos ) = \@_[ 1 .. 3 ];
+
+    my $GB  = Encode::find_encoding('gb2312-raw');
+    my $ret = '';
+    my $in_ascii = 1;      # default mode is ASCII.
+
+    my $ini_pos = pos($$rsrc);
+
+    substr( $src, 0, $pos ) = '';
+
+    my $ini_len = bytes::length($src);
+
+    # $trm is the first of the pair '~~', then 2nd tilde is to be removed.
+    # XXX: Is better C<$src =~ s/^\x7E// or die if ...>?
+    $src =~ s/^\x7E// if $trm eq "\x7E";
+
+    while ( length $src ) {
+        my $now;
+        if ($in_ascii) {    # ASCII mode
+            if ( $src =~ s/^([\x00-\x7D\x7F])// ) {    # no '~' => ASCII
+                $now = $1;
+            }
+            elsif ( $src =~ s/^\x7E\x7E// ) {          # escaped tilde
+                $now = '~';
+            }
+            elsif ( $src =~ s/^\x7E\cJ// ) {    # '\cJ' == LF in ASCII
+                next;
+            }
+            elsif ( $src =~ s/^\x7E\x7B// ) {    # '~{'
+                $in_ascii = 0;                   # to GB
+                next;
+            }
+            else {    # encounters an invalid escape, \x80 or greater
+                last;
+            }
+        }
+        else {        # GB mode; the byte ranges are as in RFC 1843.
+            if ( $src =~ s/^((?:[\x21-\x77][\x21-\x7F])+)// ) {
+                $now = $GB->decode( $1, $chk );
+            }
+            elsif ( $src =~ s/^\x7E\x7D// ) {    # '~}'
+                $in_ascii = 1;
+                next;
+            }
+            else {                               # invalid
+                last;
+            }
+        }
+
+        next if !defined $now;
+
+        $ret .= $now;
+
+        if ( $now eq $trm ) {
+            $$rdst .= $ret;
+            $$rpos = $ini_pos + $pos + $ini_len - bytes::length($src);
+            pos($$rsrc) = $ini_pos;
+            return 1;
+        }
+    }
+
+    $$rdst .= $ret;
+    $$rpos = $ini_pos + $pos + $ini_len - bytes::length($src);
+    pos($$rsrc) = $ini_pos;
+    return '';    # terminator not found
+}
+
+sub encode($$;$) {
+     my ( $obj, $str, $chk ) = @_;
+
+    my $GB  = Encode::find_encoding('gb2312-raw');
+    my $ret = substr($str, 0, 0); # to propagate taintedness;
+    my $in_ascii = 1;    # default mode is ASCII.
+
+    no warnings 'utf8';  # $str may be malformed UTF8 at the end of a chunk.
+
+    while ( length $str ) {
+        if ( $str =~ s/^([[:ascii:]]+)// ) {
+            my $tmp = $1;
+            $tmp =~ s/~/~~/g;    # escapes tildes
+            if ( !$in_ascii ) {
+                $ret .= "\x7E\x7D";    # '~}'
+                $in_ascii = 1;
+            }
+            $ret .= pack 'a*', $tmp;    # remove UTF8 flag.
+        }
+        elsif ( $str =~ s/(.)// ) {
+            my $s = $1;
+            my $tmp = $GB->encode( $s, $chk );
+            last if !defined $tmp;
+            if ( length $tmp == 2 ) {    # maybe a valid GB char (XXX)
+                if ($in_ascii) {
+                    $ret .= "\x7E\x7B";    # '~{'
+                    $in_ascii = 0;
+                }
+                $ret .= $tmp;
+            }
+            elsif ( length $tmp ) {        # maybe FALLBACK in ASCII (XXX)
+                if ( !$in_ascii ) {
+                    $ret .= "\x7E\x7D";    # '~}'
+                    $in_ascii = 1;
+                }
+                $ret .= $tmp;
+            }
+        }
+        else {    # if $str is malformed UTF8 *and* if length $str != 0.
+            last;
+        }
+    }
+    $_[1] = $str if $chk;
+
+    # The state at the end of the chunk is discarded, even if in GB mode.
+    # That results in the combination of GB-OUT and GB-IN, i.e. "~}~{".
+    # Parhaps it is harmless, but further investigations may be required...
+
+    if ( !$in_ascii ) {
+        $ret .= "\x7E\x7D";    # '~}'
+        $in_ascii = 1;
+    }
+    utf8::encode($ret); # https://rt.cpan.org/Ticket/Display.html?id=35120
+    return $ret;
+}
+
+1;
+__END__
+
+=head1 NAME
+
+Encode::CN::HZ -- internally used by Encode::CN
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/Encode/Config.pm b/lib/5.24.1/x86_64-linux/Encode/Config.pm
new file mode 100644
index 00000000..1286a479
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/Encode/Config.pm
@@ -0,0 +1,170 @@
+#
+# Demand-load module list
+#
+package Encode::Config;
+our $VERSION = do { my @r = ( q$Revision: 2.5 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+
+use strict;
+use warnings;
+
+our %ExtModule = (
+
+    # Encode::Byte
+    #iso-8859-1 is in Encode.pm itself
+    'iso-8859-2'            => 'Encode::Byte',
+    'iso-8859-3'            => 'Encode::Byte',
+    'iso-8859-4'            => 'Encode::Byte',
+    'iso-8859-5'            => 'Encode::Byte',
+    'iso-8859-6'            => 'Encode::Byte',
+    'iso-8859-7'            => 'Encode::Byte',
+    'iso-8859-8'            => 'Encode::Byte',
+    'iso-8859-9'            => 'Encode::Byte',
+    'iso-8859-10'           => 'Encode::Byte',
+    'iso-8859-11'           => 'Encode::Byte',
+    'iso-8859-13'           => 'Encode::Byte',
+    'iso-8859-14'           => 'Encode::Byte',
+    'iso-8859-15'           => 'Encode::Byte',
+    'iso-8859-16'           => 'Encode::Byte',
+    'koi8-f'                => 'Encode::Byte',
+    'koi8-r'                => 'Encode::Byte',
+    'koi8-u'                => 'Encode::Byte',
+    'viscii'                => 'Encode::Byte',
+    'cp424'                 => 'Encode::Byte',
+    'cp437'                 => 'Encode::Byte',
+    'cp737'                 => 'Encode::Byte',
+    'cp775'                 => 'Encode::Byte',
+    'cp850'                 => 'Encode::Byte',
+    'cp852'                 => 'Encode::Byte',
+    'cp855'                 => 'Encode::Byte',
+    'cp856'                 => 'Encode::Byte',
+    'cp857'                 => 'Encode::Byte',
+    'cp858'                 => 'Encode::Byte',
+    'cp860'                 => 'Encode::Byte',
+    'cp861'                 => 'Encode::Byte',
+    'cp862'                 => 'Encode::Byte',
+    'cp863'                 => 'Encode::Byte',
+    'cp864'                 => 'Encode::Byte',
+    'cp865'                 => 'Encode::Byte',
+    'cp866'                 => 'Encode::Byte',
+    'cp869'                 => 'Encode::Byte',
+    'cp874'                 => 'Encode::Byte',
+    'cp1006'                => 'Encode::Byte',
+    'cp1250'                => 'Encode::Byte',
+    'cp1251'                => 'Encode::Byte',
+    'cp1252'                => 'Encode::Byte',
+    'cp1253'                => 'Encode::Byte',
+    'cp1254'                => 'Encode::Byte',
+    'cp1255'                => 'Encode::Byte',
+    'cp1256'                => 'Encode::Byte',
+    'cp1257'                => 'Encode::Byte',
+    'cp1258'                => 'Encode::Byte',
+    'AdobeStandardEncoding' => 'Encode::Byte',
+    'MacArabic'             => 'Encode::Byte',
+    'MacCentralEurRoman'    => 'Encode::Byte',
+    'MacCroatian'           => 'Encode::Byte',
+    'MacCyrillic'           => 'Encode::Byte',
+    'MacFarsi'              => 'Encode::Byte',
+    'MacGreek'              => 'Encode::Byte',
+    'MacHebrew'             => 'Encode::Byte',
+    'MacIcelandic'          => 'Encode::Byte',
+    'MacRoman'              => 'Encode::Byte',
+    'MacRomanian'           => 'Encode::Byte',
+    'MacRumanian'           => 'Encode::Byte',
+    'MacSami'               => 'Encode::Byte',
+    'MacThai'               => 'Encode::Byte',
+    'MacTurkish'            => 'Encode::Byte',
+    'MacUkrainian'          => 'Encode::Byte',
+    'nextstep'              => 'Encode::Byte',
+    'hp-roman8'             => 'Encode::Byte',
+    #'gsm0338'               => 'Encode::Byte',
+    'gsm0338'               => 'Encode::GSM0338',
+
+    # Encode::EBCDIC
+    'cp37'     => 'Encode::EBCDIC',
+    'cp500'    => 'Encode::EBCDIC',
+    'cp875'    => 'Encode::EBCDIC',
+    'cp1026'   => 'Encode::EBCDIC',
+    'cp1047'   => 'Encode::EBCDIC',
+    'posix-bc' => 'Encode::EBCDIC',
+
+    # Encode::Symbol
+    'dingbats'      => 'Encode::Symbol',
+    'symbol'        => 'Encode::Symbol',
+    'AdobeSymbol'   => 'Encode::Symbol',
+    'AdobeZdingbat' => 'Encode::Symbol',
+    'MacDingbats'   => 'Encode::Symbol',
+    'MacSymbol'     => 'Encode::Symbol',
+
+    # Encode::Unicode
+    'UCS-2BE'  => 'Encode::Unicode',
+    'UCS-2LE'  => 'Encode::Unicode',
+    'UTF-16'   => 'Encode::Unicode',
+    'UTF-16BE' => 'Encode::Unicode',
+    'UTF-16LE' => 'Encode::Unicode',
+    'UTF-32'   => 'Encode::Unicode',
+    'UTF-32BE' => 'Encode::Unicode',
+    'UTF-32LE' => 'Encode::Unicode',
+    'UTF-7'    => 'Encode::Unicode::UTF7',
+);
+
+unless ( ord("A") == 193 ) {
+    %ExtModule = (
+        %ExtModule,
+        'euc-cn'         => 'Encode::CN',
+        'gb12345-raw'    => 'Encode::CN',
+        'gb2312-raw'     => 'Encode::CN',
+        'hz'             => 'Encode::CN',
+        'iso-ir-165'     => 'Encode::CN',
+        'cp936'          => 'Encode::CN',
+        'MacChineseSimp' => 'Encode::CN',
+
+        '7bit-jis'      => 'Encode::JP',
+        'euc-jp'        => 'Encode::JP',
+        'iso-2022-jp'   => 'Encode::JP',
+        'iso-2022-jp-1' => 'Encode::JP',
+        'jis0201-raw'   => 'Encode::JP',
+        'jis0208-raw'   => 'Encode::JP',
+        'jis0212-raw'   => 'Encode::JP',
+        'cp932'         => 'Encode::JP',
+        'MacJapanese'   => 'Encode::JP',
+        'shiftjis'      => 'Encode::JP',
+
+        'euc-kr'      => 'Encode::KR',
+        'iso-2022-kr' => 'Encode::KR',
+        'johab'       => 'Encode::KR',
+        'ksc5601-raw' => 'Encode::KR',
+        'cp949'       => 'Encode::KR',
+        'MacKorean'   => 'Encode::KR',
+
+        'big5-eten'      => 'Encode::TW',
+        'big5-hkscs'     => 'Encode::TW',
+        'cp950'          => 'Encode::TW',
+        'MacChineseTrad' => 'Encode::TW',
+
+        #'big5plus'           => 'Encode::HanExtra',
+        #'euc-tw'             => 'Encode::HanExtra',
+        #'gb18030'            => 'Encode::HanExtra',
+
+        'MIME-Header' => 'Encode::MIME::Header',
+        'MIME-B'      => 'Encode::MIME::Header',
+        'MIME-Q'      => 'Encode::MIME::Header',
+
+        'MIME-Header-ISO_2022_JP' => 'Encode::MIME::Header::ISO_2022_JP',
+    );
+}
+
+#
+# Why not export ? to keep ConfigLocal Happy!
+#
+while ( my ( $enc, $mod ) = each %ExtModule ) {
+    $Encode::ExtModule{$enc} = $mod;
+}
+
+1;
+__END__
+
+=head1 NAME
+
+Encode::Config -- internally used by Encode
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/Encode/EBCDIC.pm b/lib/5.24.1/x86_64-linux/Encode/EBCDIC.pm
new file mode 100644
index 00000000..8024c130
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/Encode/EBCDIC.pm
@@ -0,0 +1,45 @@
+package Encode::EBCDIC;
+use strict;
+use warnings;
+use Encode;
+our $VERSION = do { my @r = ( q$Revision: 2.2 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+
+use XSLoader;
+XSLoader::load( __PACKAGE__, $VERSION );
+
+1;
+__END__
+
+=head1 NAME
+
+Encode::EBCDIC - EBCDIC Encodings
+
+=head1 SYNOPSIS
+
+    use Encode qw/encode decode/; 
+    $posix_bc  = encode("posix-bc", $utf8); # loads Encode::EBCDIC implicitly
+    $utf8 = decode("", $posix_bc);          # ditto
+
+=head1 ABSTRACT
+
+This module implements various EBCDIC-Based encodings.  Encodings
+supported are as follows.   
+
+  Canonical   Alias		Description
+  --------------------------------------------------------------------
+  cp37  
+  cp500  
+  cp875  
+  cp1026  
+  cp1047  
+  posix-bc
+
+=head1 DESCRIPTION
+
+To find how to use this module in detail, see L<Encode>.
+
+=head1 SEE ALSO
+
+L<Encode>, L<perlebcdic>
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/Encode/Encoder.pm b/lib/5.24.1/x86_64-linux/Encode/Encoder.pm
new file mode 100644
index 00000000..23e0349b
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/Encode/Encoder.pm
@@ -0,0 +1,253 @@
+#
+# $Id: Encoder.pm,v 2.3 2013/09/14 07:51:59 dankogai Exp $
+#
+package Encode::Encoder;
+use strict;
+use warnings;
+our $VERSION = do { my @r = ( q$Revision: 2.3 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+
+require Exporter;
+our @ISA       = qw(Exporter);
+our @EXPORT_OK = qw ( encoder );
+
+our $AUTOLOAD;
+use constant DEBUG => !!$ENV{PERL_ENCODE_DEBUG};
+use Encode qw(encode decode find_encoding from_to);
+use Carp;
+
+sub new {
+    my ( $class, $data, $encname ) = @_;
+    unless ($encname) {
+        $encname = Encode::is_utf8($data) ? 'utf8' : '';
+    }
+    else {
+        my $obj = find_encoding($encname)
+          or croak __PACKAGE__, ": unknown encoding: $encname";
+        $encname = $obj->name;
+    }
+    my $self = {
+        data     => $data,
+        encoding => $encname,
+    };
+    bless $self => $class;
+}
+
+sub encoder { __PACKAGE__->new(@_) }
+
+sub data {
+    my ( $self, $data ) = @_;
+    if ( defined $data ) {
+        $self->{data} = $data;
+        return $data;
+    }
+    else {
+        return $self->{data};
+    }
+}
+
+sub encoding {
+    my ( $self, $encname ) = @_;
+    if ($encname) {
+        my $obj = find_encoding($encname)
+          or confess __PACKAGE__, ": unknown encoding: $encname";
+        $self->{encoding} = $obj->name;
+        return $self;
+    }
+    else {
+        return $self->{encoding};
+    }
+}
+
+sub bytes {
+    my ( $self, $encname ) = @_;
+    $encname ||= $self->{encoding};
+    my $obj = find_encoding($encname)
+      or confess __PACKAGE__, ": unknown encoding: $encname";
+    $self->{data} = $obj->decode( $self->{data}, 1 );
+    $self->{encoding} = '';
+    return $self;
+}
+
+sub DESTROY {    # defined so it won't autoload.
+    DEBUG and warn shift;
+}
+
+sub AUTOLOAD {
+    my $self = shift;
+    my $type = ref($self)
+      or confess "$self is not an object";
+    my $myname = $AUTOLOAD;
+    $myname =~ s/.*://;    # strip fully-qualified portion
+    my $obj = find_encoding($myname)
+      or confess __PACKAGE__, ": unknown encoding: $myname";
+    DEBUG and warn $self->{encoding}, " => ", $obj->name;
+    if ( $self->{encoding} ) {
+        from_to( $self->{data}, $self->{encoding}, $obj->name, 1 );
+    }
+    else {
+        $self->{data} = $obj->encode( $self->{data}, 1 );
+    }
+    $self->{encoding} = $obj->name;
+    return $self;
+}
+
+use overload
+  q("") => sub { $_[0]->{data} },
+  q(0+) => sub { use bytes(); bytes::length( $_[0]->{data} ) },
+  fallback => 1,
+  ;
+
+1;
+__END__
+
+=head1 NAME
+
+Encode::Encoder -- Object Oriented Encoder
+
+=head1 SYNOPSIS
+
+  use Encode::Encoder;
+  # Encode::encode("ISO-8859-1", $data); 
+  Encode::Encoder->new($data)->iso_8859_1; # OOP way
+  # shortcut
+  use Encode::Encoder qw(encoder);
+  encoder($data)->iso_8859_1;
+  # you can stack them!
+  encoder($data)->iso_8859_1->base64;  # provided base64() is defined
+  # you can use it as a decoder as well
+  encoder($base64)->bytes('base64')->latin1;
+  # stringified
+  print encoder($data)->utf8->latin1;  # prints the string in latin1
+  # numified
+  encoder("\x{abcd}\x{ef}g")->utf8 == 6; # true. bytes::length($data)
+
+=head1 ABSTRACT
+
+B<Encode::Encoder> allows you to use Encode in an object-oriented
+style.  This is not only more intuitive than a functional approach,
+but also handier when you want to stack encodings.  Suppose you want
+your UTF-8 string converted to Latin1 then Base64: you can simply say
+
+  my $base64 = encoder($utf8)->latin1->base64;
+
+instead of
+
+  my $latin1 = encode("latin1", $utf8);
+  my $base64 = encode_base64($utf8);
+
+or the lazier and more convoluted
+
+  my $base64 = encode_base64(encode("latin1", $utf8));
+
+=head1 Description
+
+Here is how to use this module.
+
+=over 4
+
+=item *
+
+There are at least two instance variables stored in a hash reference,
+{data} and {encoding}.
+
+=item *
+
+When there is no method, it takes the method name as the name of the
+encoding and encodes the instance I<data> with I<encoding>.  If successful,
+the instance I<encoding> is set accordingly.
+
+=item *
+
+You can retrieve the result via -E<gt>data but usually you don't have to 
+because the stringify operator ("") is overridden to do exactly that.
+
+=back
+
+=head2 Predefined Methods
+
+This module predefines the methods below:
+
+=over 4
+
+=item $e = Encode::Encoder-E<gt>new([$data, $encoding]);
+
+returns an encoder object.  Its data is initialized with $data if
+present, and its encoding is set to $encoding if present.
+
+When $encoding is omitted, it defaults to utf8 if $data is already in
+utf8 or "" (empty string) otherwise.
+
+=item encoder()
+
+is an alias of Encode::Encoder-E<gt>new().  This one is exported on demand.
+
+=item $e-E<gt>data([$data])
+
+When $data is present, sets the instance data to $data and returns the
+object itself.  Otherwise, the current instance data is returned.
+
+=item $e-E<gt>encoding([$encoding])
+
+When $encoding is present, sets the instance encoding to $encoding and
+returns the object itself.  Otherwise, the current instance encoding is
+returned.
+
+=item $e-E<gt>bytes([$encoding])
+
+decodes instance data from $encoding, or the instance encoding if
+omitted.  If the conversion is successful, the instance encoding
+will be set to "".
+
+The name I<bytes> was deliberately picked to avoid namespace tainting
+-- this module may be used as a base class so method names that appear
+in Encode::Encoding are avoided.
+
+=back
+
+=head2 Example: base64 transcoder
+
+This module is designed to work with L<Encode::Encoding>.
+To make the Base64 transcoder example above really work, you could
+write a module like this:
+
+  package Encode::Base64;
+  use parent 'Encode::Encoding';
+  __PACKAGE__->Define('base64');
+  use MIME::Base64;
+  sub encode{ 
+      my ($obj, $data) = @_; 
+      return encode_base64($data);
+  }
+  sub decode{
+      my ($obj, $data) = @_; 
+      return decode_base64($data);
+  }
+  1;
+  __END__
+
+And your caller module would be something like this:
+
+  use Encode::Encoder;
+  use Encode::Base64;
+
+  # now you can really do the following
+
+  encoder($data)->iso_8859_1->base64;
+  encoder($base64)->bytes('base64')->latin1;
+
+=head2 Operator Overloading
+
+This module overloads two operators, stringify ("") and numify (0+).
+
+Stringify dumps the data inside the object.
+
+Numify returns the number of bytes in the instance data.
+
+They come in handy when you want to print or find the size of data.
+
+=head1 SEE ALSO
+
+L<Encode>,
+L<Encode::Encoding>
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/Encode/Encoding.pm b/lib/5.24.1/x86_64-linux/Encode/Encoding.pm
new file mode 100644
index 00000000..39d2e0ab
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/Encode/Encoding.pm
@@ -0,0 +1,360 @@
+package Encode::Encoding;
+
+# Base class for classes which implement encodings
+use strict;
+use warnings;
+our $VERSION = do { my @r = ( q$Revision: 2.7 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+
+require Encode;
+
+sub DEBUG { 0 }
+
+sub Define {
+    my $obj       = shift;
+    my $canonical = shift;
+    $obj = bless { Name => $canonical }, $obj unless ref $obj;
+
+    # warn "$canonical => $obj\n";
+    Encode::define_encoding( $obj, $canonical, @_ );
+}
+
+sub name { return shift->{'Name'} }
+
+sub mime_name{
+    require Encode::MIME::Name;
+    return Encode::MIME::Name::get_mime_name(shift->name);
+}
+
+# sub renew { return $_[0] }
+
+sub renew {
+    my $self = shift;
+    my $clone = bless {%$self} => ref($self);
+    $clone->{renewed}++;    # so the caller can see it
+    DEBUG and warn $clone->{renewed};
+    return $clone;
+}
+
+sub renewed { return $_[0]->{renewed} || 0 }
+
+*new_sequence = \&renew;
+
+sub needs_lines { 0 }
+
+sub perlio_ok {
+    eval { require PerlIO::encoding };
+    return $@ ? 0 : 1;
+}
+
+# (Temporary|legacy) methods
+
+sub toUnicode   { shift->decode(@_) }
+sub fromUnicode { shift->encode(@_) }
+
+#
+# Needs to be overloaded or just croak
+#
+
+sub encode {
+    require Carp;
+    my $obj = shift;
+    my $class = ref($obj) ? ref($obj) : $obj;
+    Carp::croak( $class . "->encode() not defined!" );
+}
+
+sub decode {
+    require Carp;
+    my $obj = shift;
+    my $class = ref($obj) ? ref($obj) : $obj;
+    Carp::croak( $class . "->encode() not defined!" );
+}
+
+sub DESTROY { }
+
+1;
+__END__
+
+=head1 NAME
+
+Encode::Encoding - Encode Implementation Base Class
+
+=head1 SYNOPSIS
+
+  package Encode::MyEncoding;
+  use parent qw(Encode::Encoding);
+
+  __PACKAGE__->Define(qw(myCanonical myAlias));
+
+=head1 DESCRIPTION
+
+As mentioned in L<Encode>, encodings are (in the current
+implementation at least) defined as objects. The mapping of encoding
+name to object is via the C<%Encode::Encoding> hash.  Though you can
+directly manipulate this hash, it is strongly encouraged to use this
+base class module and add encode() and decode() methods.
+
+=head2 Methods you should implement
+
+You are strongly encouraged to implement methods below, at least
+either encode() or decode().
+
+=over 4
+
+=item -E<gt>encode($string [,$check])
+
+MUST return the octet sequence representing I<$string>. 
+
+=over 2
+
+=item *
+
+If I<$check> is true, it SHOULD modify I<$string> in place to remove
+the converted part (i.e.  the whole string unless there is an error).
+If perlio_ok() is true, SHOULD becomes MUST.
+
+=item *
+
+If an error occurs, it SHOULD return the octet sequence for the
+fragment of string that has been converted and modify $string in-place
+to remove the converted part leaving it starting with the problem
+fragment.  If perlio_ok() is true, SHOULD becomes MUST.
+
+=item *
+
+If I<$check> is false then C<encode> MUST  make a "best effort" to
+convert the string - for example, by using a replacement character.
+
+=back
+
+=item -E<gt>decode($octets [,$check])
+
+MUST return the string that I<$octets> represents.
+
+=over 2
+
+=item *
+
+If I<$check> is true, it SHOULD modify I<$octets> in place to remove
+the converted part (i.e.  the whole sequence unless there is an
+error).  If perlio_ok() is true, SHOULD becomes MUST.
+
+=item *
+
+If an error occurs, it SHOULD return the fragment of string that has
+been converted and modify $octets in-place to remove the converted
+part leaving it starting with the problem fragment.  If perlio_ok() is
+true, SHOULD becomes MUST.
+
+=item *
+
+If I<$check> is false then C<decode> should make a "best effort" to
+convert the string - for example by using Unicode's "\x{FFFD}" as a
+replacement character.
+
+=back
+
+=back
+
+If you want your encoding to work with L<encoding> pragma, you should
+also implement the method below.
+
+=over 4
+
+=item -E<gt>cat_decode($destination, $octets, $offset, $terminator [,$check])
+
+MUST decode I<$octets> with I<$offset> and concatenate it to I<$destination>.
+Decoding will terminate when $terminator (a string) appears in output.
+I<$offset> will be modified to the last $octets position at end of decode.
+Returns true if $terminator appears output, else returns false.
+
+=back
+
+=head2 Other methods defined in Encode::Encodings
+
+You do not have to override methods shown below unless you have to.
+
+=over 4
+
+=item -E<gt>name
+
+Predefined As:
+
+  sub name  { return shift->{'Name'} }
+
+MUST return the string representing the canonical name of the encoding.
+
+=item -E<gt>mime_name
+
+Predefined As:
+
+  sub mime_name{
+    require Encode::MIME::Name;
+    return Encode::MIME::Name::get_mime_name(shift->name);
+  }
+
+MUST return the string representing the IANA charset name of the encoding.
+
+=item -E<gt>renew
+
+Predefined As:
+
+  sub renew {
+    my $self = shift;
+    my $clone = bless { %$self } => ref($self);
+    $clone->{renewed}++;
+    return $clone;
+  }
+
+This method reconstructs the encoding object if necessary.  If you need
+to store the state during encoding, this is where you clone your object.
+
+PerlIO ALWAYS calls this method to make sure it has its own private
+encoding object.
+
+=item -E<gt>renewed
+
+Predefined As:
+
+  sub renewed { $_[0]->{renewed} || 0 }
+
+Tells whether the object is renewed (and how many times).  Some
+modules emit C<Use of uninitialized value in null operation> warning
+unless the value is numeric so return 0 for false.
+
+=item -E<gt>perlio_ok()
+
+Predefined As:
+
+  sub perlio_ok { 
+      eval{ require PerlIO::encoding };
+      return $@ ? 0 : 1;
+  }
+
+If your encoding does not support PerlIO for some reasons, just;
+
+ sub perlio_ok { 0 }
+
+=item -E<gt>needs_lines()
+
+Predefined As:
+
+  sub needs_lines { 0 };
+
+If your encoding can work with PerlIO but needs line buffering, you
+MUST define this method so it returns true.  7bit ISO-2022 encodings
+are one example that needs this.  When this method is missing, false
+is assumed.
+
+=back
+
+=head2 Example: Encode::ROT13
+
+  package Encode::ROT13;
+  use strict;
+  use parent qw(Encode::Encoding);
+
+  __PACKAGE__->Define('rot13');
+
+  sub encode($$;$){
+      my ($obj, $str, $chk) = @_;
+      $str =~ tr/A-Za-z/N-ZA-Mn-za-m/;
+      $_[1] = '' if $chk; # this is what in-place edit means
+      return $str;
+  }
+
+  # Jr pna or ynml yvxr guvf;
+  *decode = \&encode;
+
+  1;
+
+=head1 Why the heck Encode API is different?
+
+It should be noted that the I<$check> behaviour is different from the
+outer public API. The logic is that the "unchecked" case is useful
+when the encoding is part of a stream which may be reporting errors
+(e.g. STDERR).  In such cases, it is desirable to get everything
+through somehow without causing additional errors which obscure the
+original one. Also, the encoding is best placed to know what the
+correct replacement character is, so if that is the desired behaviour
+then letting low level code do it is the most efficient.
+
+By contrast, if I<$check> is true, the scheme above allows the
+encoding to do as much as it can and tell the layer above how much
+that was. What is lacking at present is a mechanism to report what
+went wrong. The most likely interface will be an additional method
+call to the object, or perhaps (to avoid forcing per-stream objects
+on otherwise stateless encodings) an additional parameter.
+
+It is also highly desirable that encoding classes inherit from
+C<Encode::Encoding> as a base class. This allows that class to define
+additional behaviour for all encoding objects.
+
+  package Encode::MyEncoding;
+  use parent qw(Encode::Encoding);
+
+  __PACKAGE__->Define(qw(myCanonical myAlias));
+
+to create an object with C<< bless {Name => ...}, $class >>, and call
+define_encoding.  They inherit their C<name> method from
+C<Encode::Encoding>.
+
+=head2 Compiled Encodings
+
+For the sake of speed and efficiency, most of the encodings are now
+supported via a I<compiled form>: XS modules generated from UCM
+files.   Encode provides the enc2xs tool to achieve that.  Please see
+L<enc2xs> for more details.
+
+=head1 SEE ALSO
+
+L<perlmod>, L<enc2xs>
+
+=begin future
+
+=over 4
+
+=item Scheme 1
+
+The fixup routine gets passed the remaining fragment of string being
+processed.  It modifies it in place to remove bytes/characters it can
+understand and returns a string used to represent them.  For example:
+
+ sub fixup {
+   my $ch = substr($_[0],0,1,'');
+   return sprintf("\x{%02X}",ord($ch);
+ }
+
+This scheme is close to how the underlying C code for Encode works,
+but gives the fixup routine very little context.
+
+=item Scheme 2
+
+The fixup routine gets passed the original string, an index into
+it of the problem area, and the output string so far.  It appends
+what it wants to the output string and returns a new index into the
+original string.  For example:
+
+ sub fixup {
+   # my ($s,$i,$d) = @_;
+   my $ch = substr($_[0],$_[1],1);
+   $_[2] .= sprintf("\x{%02X}",ord($ch);
+   return $_[1]+1;
+ }
+
+This scheme gives maximal control to the fixup routine but is more
+complicated to code, and may require that the internals of Encode be tweaked to
+keep the original string intact.
+
+=item Other Schemes
+
+Hybrids of the above.
+
+Multiple return values rather than in-place modifications.
+
+Index into the string could be C<pos($str)> allowing C<s/\G...//>.
+
+=back
+
+=end future
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/Encode/GSM0338.pm b/lib/5.24.1/x86_64-linux/Encode/GSM0338.pm
new file mode 100644
index 00000000..20257a1c
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/Encode/GSM0338.pm
@@ -0,0 +1,293 @@
+#
+# $Id: GSM0338.pm,v 2.5 2013/09/14 07:51:59 dankogai Exp $
+#
+package Encode::GSM0338;
+
+use strict;
+use warnings;
+use Carp;
+
+use vars qw($VERSION);
+$VERSION = do { my @r = ( q$Revision: 2.5 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+
+use Encode qw(:fallbacks);
+
+use parent qw(Encode::Encoding);
+__PACKAGE__->Define('gsm0338');
+
+sub needs_lines { 1 }
+sub perlio_ok   { 0 }
+
+use utf8;
+our %UNI2GSM = (
+    "\x{0040}" => "\x00",        # COMMERCIAL AT
+    "\x{000A}" => "\x0A",        # LINE FEED
+    "\x{000C}" => "\x1B\x0A",    # FORM FEED
+    "\x{000D}" => "\x0D",        # CARRIAGE RETURN
+    "\x{0020}" => "\x20",        # SPACE
+    "\x{0021}" => "\x21",        # EXCLAMATION MARK
+    "\x{0022}" => "\x22",        # QUOTATION MARK
+    "\x{0023}" => "\x23",        # NUMBER SIGN
+    "\x{0024}" => "\x02",        # DOLLAR SIGN
+    "\x{0025}" => "\x25",        # PERCENT SIGN
+    "\x{0026}" => "\x26",        # AMPERSAND
+    "\x{0027}" => "\x27",        # APOSTROPHE
+    "\x{0028}" => "\x28",        # LEFT PARENTHESIS
+    "\x{0029}" => "\x29",        # RIGHT PARENTHESIS
+    "\x{002A}" => "\x2A",        # ASTERISK
+    "\x{002B}" => "\x2B",        # PLUS SIGN
+    "\x{002C}" => "\x2C",        # COMMA
+    "\x{002D}" => "\x2D",        # HYPHEN-MINUS
+    "\x{002E}" => "\x2E",        # FULL STOP
+    "\x{002F}" => "\x2F",        # SOLIDUS
+    "\x{0030}" => "\x30",        # DIGIT ZERO
+    "\x{0031}" => "\x31",        # DIGIT ONE
+    "\x{0032}" => "\x32",        # DIGIT TWO
+    "\x{0033}" => "\x33",        # DIGIT THREE
+    "\x{0034}" => "\x34",        # DIGIT FOUR
+    "\x{0035}" => "\x35",        # DIGIT FIVE
+    "\x{0036}" => "\x36",        # DIGIT SIX
+    "\x{0037}" => "\x37",        # DIGIT SEVEN
+    "\x{0038}" => "\x38",        # DIGIT EIGHT
+    "\x{0039}" => "\x39",        # DIGIT NINE
+    "\x{003A}" => "\x3A",        # COLON
+    "\x{003B}" => "\x3B",        # SEMICOLON
+    "\x{003C}" => "\x3C",        # LESS-THAN SIGN
+    "\x{003D}" => "\x3D",        # EQUALS SIGN
+    "\x{003E}" => "\x3E",        # GREATER-THAN SIGN
+    "\x{003F}" => "\x3F",        # QUESTION MARK
+    "\x{0041}" => "\x41",        # LATIN CAPITAL LETTER A
+    "\x{0042}" => "\x42",        # LATIN CAPITAL LETTER B
+    "\x{0043}" => "\x43",        # LATIN CAPITAL LETTER C
+    "\x{0044}" => "\x44",        # LATIN CAPITAL LETTER D
+    "\x{0045}" => "\x45",        # LATIN CAPITAL LETTER E
+    "\x{0046}" => "\x46",        # LATIN CAPITAL LETTER F
+    "\x{0047}" => "\x47",        # LATIN CAPITAL LETTER G
+    "\x{0048}" => "\x48",        # LATIN CAPITAL LETTER H
+    "\x{0049}" => "\x49",        # LATIN CAPITAL LETTER I
+    "\x{004A}" => "\x4A",        # LATIN CAPITAL LETTER J
+    "\x{004B}" => "\x4B",        # LATIN CAPITAL LETTER K
+    "\x{004C}" => "\x4C",        # LATIN CAPITAL LETTER L
+    "\x{004D}" => "\x4D",        # LATIN CAPITAL LETTER M
+    "\x{004E}" => "\x4E",        # LATIN CAPITAL LETTER N
+    "\x{004F}" => "\x4F",        # LATIN CAPITAL LETTER O
+    "\x{0050}" => "\x50",        # LATIN CAPITAL LETTER P
+    "\x{0051}" => "\x51",        # LATIN CAPITAL LETTER Q
+    "\x{0052}" => "\x52",        # LATIN CAPITAL LETTER R
+    "\x{0053}" => "\x53",        # LATIN CAPITAL LETTER S
+    "\x{0054}" => "\x54",        # LATIN CAPITAL LETTER T
+    "\x{0055}" => "\x55",        # LATIN CAPITAL LETTER U
+    "\x{0056}" => "\x56",        # LATIN CAPITAL LETTER V
+    "\x{0057}" => "\x57",        # LATIN CAPITAL LETTER W
+    "\x{0058}" => "\x58",        # LATIN CAPITAL LETTER X
+    "\x{0059}" => "\x59",        # LATIN CAPITAL LETTER Y
+    "\x{005A}" => "\x5A",        # LATIN CAPITAL LETTER Z
+    "\x{005F}" => "\x11",        # LOW LINE
+    "\x{0061}" => "\x61",        # LATIN SMALL LETTER A
+    "\x{0062}" => "\x62",        # LATIN SMALL LETTER B
+    "\x{0063}" => "\x63",        # LATIN SMALL LETTER C
+    "\x{0064}" => "\x64",        # LATIN SMALL LETTER D
+    "\x{0065}" => "\x65",        # LATIN SMALL LETTER E
+    "\x{0066}" => "\x66",        # LATIN SMALL LETTER F
+    "\x{0067}" => "\x67",        # LATIN SMALL LETTER G
+    "\x{0068}" => "\x68",        # LATIN SMALL LETTER H
+    "\x{0069}" => "\x69",        # LATIN SMALL LETTER I
+    "\x{006A}" => "\x6A",        # LATIN SMALL LETTER J
+    "\x{006B}" => "\x6B",        # LATIN SMALL LETTER K
+    "\x{006C}" => "\x6C",        # LATIN SMALL LETTER L
+    "\x{006D}" => "\x6D",        # LATIN SMALL LETTER M
+    "\x{006E}" => "\x6E",        # LATIN SMALL LETTER N
+    "\x{006F}" => "\x6F",        # LATIN SMALL LETTER O
+    "\x{0070}" => "\x70",        # LATIN SMALL LETTER P
+    "\x{0071}" => "\x71",        # LATIN SMALL LETTER Q
+    "\x{0072}" => "\x72",        # LATIN SMALL LETTER R
+    "\x{0073}" => "\x73",        # LATIN SMALL LETTER S
+    "\x{0074}" => "\x74",        # LATIN SMALL LETTER T
+    "\x{0075}" => "\x75",        # LATIN SMALL LETTER U
+    "\x{0076}" => "\x76",        # LATIN SMALL LETTER V
+    "\x{0077}" => "\x77",        # LATIN SMALL LETTER W
+    "\x{0078}" => "\x78",        # LATIN SMALL LETTER X
+    "\x{0079}" => "\x79",        # LATIN SMALL LETTER Y
+    "\x{007A}" => "\x7A",        # LATIN SMALL LETTER Z
+    "\x{000C}" => "\x1B\x0A",    # FORM FEED
+    "\x{005B}" => "\x1B\x3C",    # LEFT SQUARE BRACKET
+    "\x{005C}" => "\x1B\x2F",    # REVERSE SOLIDUS
+    "\x{005D}" => "\x1B\x3E",    # RIGHT SQUARE BRACKET
+    "\x{005E}" => "\x1B\x14",    # CIRCUMFLEX ACCENT
+    "\x{007B}" => "\x1B\x28",    # LEFT CURLY BRACKET
+    "\x{007C}" => "\x1B\x40",    # VERTICAL LINE
+    "\x{007D}" => "\x1B\x29",    # RIGHT CURLY BRACKET
+    "\x{007E}" => "\x1B\x3D",    # TILDE
+    "\x{00A0}" => "\x1B",        # NO-BREAK SPACE
+    "\x{00A1}" => "\x40",        # INVERTED EXCLAMATION MARK
+    "\x{00A3}" => "\x01",        # POUND SIGN
+    "\x{00A4}" => "\x24",        # CURRENCY SIGN
+    "\x{00A5}" => "\x03",        # YEN SIGN
+    "\x{00A7}" => "\x5F",        # SECTION SIGN
+    "\x{00BF}" => "\x60",        # INVERTED QUESTION MARK
+    "\x{00C4}" => "\x5B",        # LATIN CAPITAL LETTER A WITH DIAERESIS
+    "\x{00C5}" => "\x0E",        # LATIN CAPITAL LETTER A WITH RING ABOVE
+    "\x{00C6}" => "\x1C",        # LATIN CAPITAL LETTER AE
+    "\x{00C9}" => "\x1F",        # LATIN CAPITAL LETTER E WITH ACUTE
+    "\x{00D1}" => "\x5D",        # LATIN CAPITAL LETTER N WITH TILDE
+    "\x{00D6}" => "\x5C",        # LATIN CAPITAL LETTER O WITH DIAERESIS
+    "\x{00D8}" => "\x0B",        # LATIN CAPITAL LETTER O WITH STROKE
+    "\x{00DC}" => "\x5E",        # LATIN CAPITAL LETTER U WITH DIAERESIS
+    "\x{00DF}" => "\x1E",        # LATIN SMALL LETTER SHARP S
+    "\x{00E0}" => "\x7F",        # LATIN SMALL LETTER A WITH GRAVE
+    "\x{00E4}" => "\x7B",        # LATIN SMALL LETTER A WITH DIAERESIS
+    "\x{00E5}" => "\x0F",        # LATIN SMALL LETTER A WITH RING ABOVE
+    "\x{00E6}" => "\x1D",        # LATIN SMALL LETTER AE
+    #"\x{00E7}" => "\x09",        # LATIN SMALL LETTER C WITH CEDILLA
+    "\x{00C7}" => "\x09",        # LATIN CAPITAL LETTER C WITH CEDILLA
+    "\x{00E8}" => "\x04",        # LATIN SMALL LETTER E WITH GRAVE
+    "\x{00E9}" => "\x05",        # LATIN SMALL LETTER E WITH ACUTE
+    "\x{00EC}" => "\x07",        # LATIN SMALL LETTER I WITH GRAVE
+    "\x{00F1}" => "\x7D",        # LATIN SMALL LETTER N WITH TILDE
+    "\x{00F2}" => "\x08",        # LATIN SMALL LETTER O WITH GRAVE
+    "\x{00F6}" => "\x7C",        # LATIN SMALL LETTER O WITH DIAERESIS
+    "\x{00F8}" => "\x0C",        # LATIN SMALL LETTER O WITH STROKE
+    "\x{00F9}" => "\x06",        # LATIN SMALL LETTER U WITH GRAVE
+    "\x{00FC}" => "\x7E",        # LATIN SMALL LETTER U WITH DIAERESIS
+    "\x{0393}" => "\x13",        # GREEK CAPITAL LETTER GAMMA
+    "\x{0394}" => "\x10",        # GREEK CAPITAL LETTER DELTA
+    "\x{0398}" => "\x19",        # GREEK CAPITAL LETTER THETA
+    "\x{039B}" => "\x14",        # GREEK CAPITAL LETTER LAMDA
+    "\x{039E}" => "\x1A",        # GREEK CAPITAL LETTER XI
+    "\x{03A0}" => "\x16",        # GREEK CAPITAL LETTER PI
+    "\x{03A3}" => "\x18",        # GREEK CAPITAL LETTER SIGMA
+    "\x{03A6}" => "\x12",        # GREEK CAPITAL LETTER PHI
+    "\x{03A8}" => "\x17",        # GREEK CAPITAL LETTER PSI
+    "\x{03A9}" => "\x15",        # GREEK CAPITAL LETTER OMEGA
+    "\x{20AC}" => "\x1B\x65",    # EURO SIGN
+);
+our %GSM2UNI = reverse %UNI2GSM;
+our $ESC    = "\x1b";
+our $ATMARK = "\x40";
+our $FBCHAR = "\x3F";
+our $NBSP   = "\x{00A0}";
+
+#define ERR_DECODE_NOMAP "%s \"\\x%02" UVXf "\" does not map to Unicode"
+
+sub decode ($$;$) {
+    my ( $obj, $bytes, $chk ) = @_;
+    my $str = substr($bytes, 0, 0); # to propagate taintedness;
+    while ( length $bytes ) {
+        my $c = substr( $bytes, 0, 1, '' );
+        my $u;
+        if ( $c eq "\x00" ) {
+            my $c2 = substr( $bytes, 0, 1, '' );
+            $u =
+                !length $c2 ? $ATMARK
+              : $c2 eq "\x00" ? "\x{0000}"
+              : exists $GSM2UNI{$c2} ? $ATMARK . $GSM2UNI{$c2}
+              : $chk
+              ? croak sprintf( "\\x%02X\\x%02X does not map to Unicode",
+			       ord($c), ord($c2) )
+              : $ATMARK . $FBCHAR;
+
+        }
+        elsif ( $c eq $ESC ) {
+            my $c2 = substr( $bytes, 0, 1, '' );
+            $u =
+                exists $GSM2UNI{ $c . $c2 } ? $GSM2UNI{ $c . $c2 }
+              : exists $GSM2UNI{$c2}        ? $NBSP . $GSM2UNI{$c2}
+              : $chk
+              ? croak sprintf( "\\x%02X\\x%02X does not map to Unicode",
+			       ord($c), ord($c2) )
+              : $NBSP . $FBCHAR;
+        }
+        else {
+            $u =
+              exists $GSM2UNI{$c}
+              ? $GSM2UNI{$c}
+              : $chk ? ref $chk eq 'CODE'
+                  ? $chk->( ord $c )
+                  : croak sprintf( "\\x%02X does not map to Unicode", ord($c) )
+              : $FBCHAR;
+        }
+        $str .= $u;
+    }
+    $_[1] = $bytes if $chk;
+    return $str;
+}
+
+#define ERR_ENCODE_NOMAP "\"\\x{%04" UVxf "}\" does not map to %s"
+
+sub encode($$;$) {
+    my ( $obj, $str, $chk ) = @_;
+    my $bytes = substr($str, 0, 0); # to propagate taintedness
+    while ( length $str ) {
+        my $u = substr( $str, 0, 1, '' );
+        my $c;
+        $bytes .=
+          exists $UNI2GSM{$u}
+          ? $UNI2GSM{$u}
+          : $chk ? ref $chk eq 'CODE'
+              ? $chk->( ord($u) )
+              : croak sprintf( "\\x{%04x} does not map to %s", 
+			       ord($u), $obj->name )
+          : $FBCHAR;
+    }
+    $_[1] = $str if $chk;
+    return $bytes;
+}
+
+1;
+__END__
+
+=head1 NAME
+
+Encode::GSM0338 -- ESTI GSM 03.38 Encoding
+
+=head1 SYNOPSIS
+
+  use Encode qw/encode decode/; 
+  $gsm0338 = encode("gsm0338", $utf8);    # loads Encode::GSM0338 implicitly
+  $utf8    = decode("gsm0338", $gsm0338); # ditto
+
+=head1 DESCRIPTION
+
+GSM0338 is for GSM handsets. Though it shares alphanumerals with ASCII,
+control character ranges and other parts are mapped very differently,
+mainly to store Greek characters.  There are also escape sequences
+(starting with 0x1B) to cover e.g. the Euro sign.
+
+This was once handled by L<Encode::Bytes> but because of all those
+unusual specifications, Encode 2.20 has relocated the support to
+this module.
+
+=head1 NOTES
+
+Unlike most other encodings,  the following always croaks on error
+for any $chk that evaluates to true.
+
+  $gsm0338 = encode("gsm0338", $utf8      $chk);
+  $utf8    = decode("gsm0338", $gsm0338,  $chk);
+
+So if you want to check the validity of the encoding, surround the
+expression with C<eval {}> block as follows;
+
+  eval {
+    $utf8    = decode("gsm0338", $gsm0338,  $chk);
+  };
+  if ($@){
+    # handle exception here
+  }
+
+=head1 BUGS
+
+ESTI GSM 03.38 Encoding itself.
+
+Mapping \x00 to '@' causes too much pain everywhere.
+
+Its use of \x1b (escape) is also very questionable.  
+
+Because of those two, the code paging approach used use in ucm-based
+Encoding SOMETIMES fails so this module was written.
+
+=head1 SEE ALSO
+
+L<Encode>
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/Encode/Guess.pm b/lib/5.24.1/x86_64-linux/Encode/Guess.pm
new file mode 100644
index 00000000..b44daf59
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/Encode/Guess.pm
@@ -0,0 +1,355 @@
+package Encode::Guess;
+use strict;
+use warnings;
+use Encode qw(:fallbacks find_encoding);
+our $VERSION = do { my @r = ( q$Revision: 2.6 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+
+my $Canon = 'Guess';
+use constant DEBUG => !!$ENV{PERL_ENCODE_DEBUG};
+our %DEF_SUSPECTS = map { $_ => find_encoding($_) } qw(ascii utf8);
+$Encode::Encoding{$Canon} = bless {
+    Name     => $Canon,
+    Suspects => {%DEF_SUSPECTS},
+} => __PACKAGE__;
+
+use parent qw(Encode::Encoding);
+sub needs_lines { 1 }
+sub perlio_ok   { 0 }
+
+our @EXPORT         = qw(guess_encoding);
+our $NoUTFAutoGuess = 0;
+our $UTF8_BOM       = pack( "C3", 0xef, 0xbb, 0xbf );
+
+sub import {    # Exporter not used so we do it on our own
+    my $callpkg = caller;
+    for my $item (@EXPORT) {
+        no strict 'refs';
+        *{"$callpkg\::$item"} = \&{"$item"};
+    }
+    set_suspects(@_);
+}
+
+sub set_suspects {
+    my $class = shift;
+    my $self = ref($class) ? $class : $Encode::Encoding{$Canon};
+    $self->{Suspects} = {%DEF_SUSPECTS};
+    $self->add_suspects(@_);
+}
+
+sub add_suspects {
+    my $class = shift;
+    my $self = ref($class) ? $class : $Encode::Encoding{$Canon};
+    for my $c (@_) {
+        my $e = find_encoding($c) or die "Unknown encoding: $c";
+        $self->{Suspects}{ $e->name } = $e;
+        DEBUG and warn "Added: ", $e->name;
+    }
+}
+
+sub decode($$;$) {
+    my ( $obj, $octet, $chk ) = @_;
+    my $guessed = guess( $obj, $octet );
+    unless ( ref($guessed) ) {
+        require Carp;
+        Carp::croak($guessed);
+    }
+    my $utf8 = $guessed->decode( $octet, $chk || 0 );
+    $_[1] = $octet if $chk;
+    return $utf8;
+}
+
+sub guess_encoding {
+    guess( $Encode::Encoding{$Canon}, @_ );
+}
+
+sub guess {
+    my $class = shift;
+    my $obj   = ref($class) ? $class : $Encode::Encoding{$Canon};
+    my $octet = shift;
+
+    # sanity check
+    return "Empty string, empty guess" unless defined $octet and length $octet;
+
+    # cheat 0: utf8 flag;
+    if ( Encode::is_utf8($octet) ) {
+        return find_encoding('utf8') unless $NoUTFAutoGuess;
+        Encode::_utf8_off($octet);
+    }
+
+    # cheat 1: BOM
+    use Encode::Unicode;
+    unless ($NoUTFAutoGuess) {
+        my $BOM = pack( 'C3', unpack( "C3", $octet ) );
+        return find_encoding('utf8')
+          if ( defined $BOM and $BOM eq $UTF8_BOM );
+        $BOM = unpack( 'N', $octet );
+        return find_encoding('UTF-32')
+          if ( defined $BOM and ( $BOM == 0xFeFF or $BOM == 0xFFFe0000 ) );
+        $BOM = unpack( 'n', $octet );
+        return find_encoding('UTF-16')
+          if ( defined $BOM and ( $BOM == 0xFeFF or $BOM == 0xFFFe ) );
+        if ( $octet =~ /\x00/o )
+        {    # if \x00 found, we assume UTF-(16|32)(BE|LE)
+            my $utf;
+            my ( $be, $le ) = ( 0, 0 );
+            if ( $octet =~ /\x00\x00/o ) {    # UTF-32(BE|LE) assumed
+                $utf = "UTF-32";
+                for my $char ( unpack( 'N*', $octet ) ) {
+                    $char & 0x0000ffff and $be++;
+                    $char & 0xffff0000 and $le++;
+                }
+            }
+            else {                            # UTF-16(BE|LE) assumed
+                $utf = "UTF-16";
+                for my $char ( unpack( 'n*', $octet ) ) {
+                    $char & 0x00ff and $be++;
+                    $char & 0xff00 and $le++;
+                }
+            }
+            DEBUG and warn "$utf, be == $be, le == $le";
+            $be == $le
+              and return
+              "Encodings ambiguous between $utf BE and LE ($be, $le)";
+            $utf .= ( $be > $le ) ? 'BE' : 'LE';
+            return find_encoding($utf);
+        }
+    }
+    my %try = %{ $obj->{Suspects} };
+    for my $c (@_) {
+        my $e = find_encoding($c) or die "Unknown encoding: $c";
+        $try{ $e->name } = $e;
+        DEBUG and warn "Added: ", $e->name;
+    }
+    my $nline = 1;
+    for my $line ( split /\r\n?|\n/, $octet ) {
+
+        # cheat 2 -- \e in the string
+        if ( $line =~ /\e/o ) {
+            my @keys = keys %try;
+            delete @try{qw/utf8 ascii/};
+            for my $k (@keys) {
+                ref( $try{$k} ) eq 'Encode::XS' and delete $try{$k};
+            }
+        }
+        my %ok = %try;
+
+        # warn join(",", keys %try);
+        for my $k ( keys %try ) {
+            my $scratch = $line;
+            $try{$k}->decode( $scratch, FB_QUIET );
+            if ( $scratch eq '' ) {
+                DEBUG and warn sprintf( "%4d:%-24s ok\n", $nline, $k );
+            }
+            else {
+                use bytes ();
+                DEBUG
+                  and warn sprintf( "%4d:%-24s not ok; %d bytes left\n",
+                    $nline, $k, bytes::length($scratch) );
+                delete $ok{$k};
+            }
+        }
+        %ok or return "No appropriate encodings found!";
+        if ( scalar( keys(%ok) ) == 1 ) {
+            my ($retval) = values(%ok);
+            return $retval;
+        }
+        %try = %ok;
+        $nline++;
+    }
+    $try{ascii}
+      or return "Encodings too ambiguous: ", join( " or ", keys %try );
+    return $try{ascii};
+}
+
+1;
+__END__
+
+=head1 NAME
+
+Encode::Guess -- Guesses encoding from data
+
+=head1 SYNOPSIS
+
+  # if you are sure $data won't contain anything bogus
+
+  use Encode;
+  use Encode::Guess qw/euc-jp shiftjis 7bit-jis/;
+  my $utf8 = decode("Guess", $data);
+  my $data = encode("Guess", $utf8);   # this doesn't work!
+
+  # more elaborate way
+  use Encode::Guess;
+  my $enc = guess_encoding($data, qw/euc-jp shiftjis 7bit-jis/);
+  ref($enc) or die "Can't guess: $enc"; # trap error this way
+  $utf8 = $enc->decode($data);
+  # or
+  $utf8 = decode($enc->name, $data)
+
+=head1 ABSTRACT
+
+Encode::Guess enables you to guess in what encoding a given data is
+encoded, or at least tries to.  
+
+=head1 DESCRIPTION
+
+By default, it checks only ascii, utf8 and UTF-16/32 with BOM.
+
+  use Encode::Guess; # ascii/utf8/BOMed UTF
+
+To use it more practically, you have to give the names of encodings to
+check (I<suspects> as follows).  The name of suspects can either be
+canonical names or aliases.
+
+CAVEAT: Unlike UTF-(16|32), BOM in utf8 is NOT AUTOMATICALLY STRIPPED.
+
+ # tries all major Japanese Encodings as well
+  use Encode::Guess qw/euc-jp shiftjis 7bit-jis/;
+
+If the C<$Encode::Guess::NoUTFAutoGuess> variable is set to a true
+value, no heuristics will be applied to UTF8/16/32, and the result
+will be limited to the suspects and C<ascii>.
+
+=over 4
+
+=item Encode::Guess->set_suspects
+
+You can also change the internal suspects list via C<set_suspects>
+method. 
+
+  use Encode::Guess;
+  Encode::Guess->set_suspects(qw/euc-jp shiftjis 7bit-jis/);
+
+=item Encode::Guess->add_suspects
+
+Or you can use C<add_suspects> method.  The difference is that
+C<set_suspects> flushes the current suspects list while
+C<add_suspects> adds.
+
+  use Encode::Guess;
+  Encode::Guess->add_suspects(qw/euc-jp shiftjis 7bit-jis/);
+  # now the suspects are euc-jp,shiftjis,7bit-jis, AND
+  # euc-kr,euc-cn, and big5-eten
+  Encode::Guess->add_suspects(qw/euc-kr euc-cn big5-eten/);
+
+=item Encode::decode("Guess" ...)
+
+When you are content with suspects list, you can now
+
+  my $utf8 = Encode::decode("Guess", $data);
+
+=item Encode::Guess->guess($data)
+
+But it will croak if:
+
+=over
+
+=item *
+
+Two or more suspects remain
+
+=item *
+
+No suspects left
+
+=back
+
+So you should instead try this;
+
+  my $decoder = Encode::Guess->guess($data);
+
+On success, $decoder is an object that is documented in
+L<Encode::Encoding>.  So you can now do this;
+
+  my $utf8 = $decoder->decode($data);
+
+On failure, $decoder now contains an error message so the whole thing
+would be as follows;
+
+  my $decoder = Encode::Guess->guess($data);
+  die $decoder unless ref($decoder);
+  my $utf8 = $decoder->decode($data);
+
+=item guess_encoding($data, [, I<list of suspects>])
+
+You can also try C<guess_encoding> function which is exported by
+default.  It takes $data to check and it also takes the list of
+suspects by option.  The optional suspect list is I<not reflected> to
+the internal suspects list.
+
+  my $decoder = guess_encoding($data, qw/euc-jp euc-kr euc-cn/);
+  die $decoder unless ref($decoder);
+  my $utf8 = $decoder->decode($data);
+  # check only ascii, utf8 and UTF-(16|32) with BOM
+  my $decoder = guess_encoding($data);
+
+=back
+
+=head1 CAVEATS
+
+=over 4
+
+=item *
+
+Because of the algorithm used, ISO-8859 series and other single-byte
+encodings do not work well unless either one of ISO-8859 is the only
+one suspect (besides ascii and utf8).
+
+  use Encode::Guess;
+  # perhaps ok
+  my $decoder = guess_encoding($data, 'latin1');
+  # definitely NOT ok
+  my $decoder = guess_encoding($data, qw/latin1 greek/);
+
+The reason is that Encode::Guess guesses encoding by trial and error.
+It first splits $data into lines and tries to decode the line for each
+suspect.  It keeps it going until all but one encoding is eliminated
+out of suspects list.  ISO-8859 series is just too successful for most
+cases (because it fills almost all code points in \x00-\xff).
+
+=item *
+
+Do not mix national standard encodings and the corresponding vendor
+encodings.
+
+  # a very bad idea
+  my $decoder
+     = guess_encoding($data, qw/shiftjis MacJapanese cp932/);
+
+The reason is that vendor encoding is usually a superset of national
+standard so it becomes too ambiguous for most cases.
+
+=item *
+
+On the other hand, mixing various national standard encodings
+automagically works unless $data is too short to allow for guessing.
+
+ # This is ok if $data is long enough
+ my $decoder =  
+  guess_encoding($data, qw/euc-cn
+                           euc-jp shiftjis 7bit-jis
+                           euc-kr
+                           big5-eten/);
+
+=item *
+
+DO NOT PUT TOO MANY SUSPECTS!  Don't you try something like this!
+
+  my $decoder = guess_encoding($data, 
+                               Encode->encodings(":all"));
+
+=back
+
+It is, after all, just a guess.  You should alway be explicit when it
+comes to encodings.  But there are some, especially Japanese,
+environment that guess-coding is a must.  Use this module with care. 
+
+=head1 TO DO
+
+Encode::Guess does not work on EBCDIC platforms.
+
+=head1 SEE ALSO
+
+L<Encode>, L<Encode::Encoding>
+
+=cut
+
diff --git a/lib/5.24.1/x86_64-linux/Encode/JP.pm b/lib/5.24.1/x86_64-linux/Encode/JP.pm
new file mode 100644
index 00000000..4251170c
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/Encode/JP.pm
@@ -0,0 +1,95 @@
+package Encode::JP;
+BEGIN {
+    if ( ord("A") == 193 ) {
+        die "Encode::JP not supported on EBCDIC\n";
+    }
+}
+use strict;
+use warnings;
+use Encode;
+our $VERSION = do { my @r = ( q$Revision: 2.4 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+
+use XSLoader;
+XSLoader::load( __PACKAGE__, $VERSION );
+
+use Encode::JP::JIS7;
+
+1;
+__END__
+
+=head1 NAME
+
+Encode::JP - Japanese Encodings
+
+=head1 SYNOPSIS
+
+    use Encode qw/encode decode/; 
+    $euc_jp = encode("euc-jp", $utf8);   # loads Encode::JP implicitly
+    $utf8   = decode("euc-jp", $euc_jp); # ditto
+
+=head1 ABSTRACT
+
+This module implements Japanese charset encodings.  Encodings
+supported are as follows.
+
+  Canonical   Alias		Description
+  --------------------------------------------------------------------
+  euc-jp      /\beuc.*jp$/i	EUC (Extended Unix Character)
+              /\bjp.*euc/i   
+          /\bujis$/i
+  shiftjis    /\bshift.*jis$/i	Shift JIS (aka MS Kanji)
+          /\bsjis$/i
+  7bit-jis    /\bjis$/i		7bit JIS
+  iso-2022-jp			ISO-2022-JP                  [RFC1468]
+                = 7bit JIS with all Halfwidth Kana 
+                  converted to Fullwidth
+  iso-2022-jp-1			ISO-2022-JP-1                [RFC2237]
+                                = ISO-2022-JP with JIS X 0212-1990
+                  support.  See below
+  MacJapanese	                Shift JIS + Apple vendor mappings
+  cp932       /\bwindows-31j$/i Code Page 932
+                                = Shift JIS + MS/IBM vendor mappings
+  jis0201-raw                   JIS0201, raw format
+  jis0208-raw                   JIS0201, raw format
+  jis0212-raw                   JIS0201, raw format
+  --------------------------------------------------------------------
+
+=head1 DESCRIPTION
+
+To find out how to use this module in detail, see L<Encode>.
+
+=head1 Note on ISO-2022-JP(-1)?
+
+ISO-2022-JP-1 (RFC2237) is a superset of ISO-2022-JP (RFC1468) which
+adds support for JIS X 0212-1990.  That means you can use the same
+code to decode to utf8 but not vice versa.
+
+  $utf8 = decode('iso-2022-jp-1', $stream);
+
+and
+
+  $utf8 = decode('iso-2022-jp',   $stream);
+
+yield the same result but
+
+  $with_0212 = encode('iso-2022-jp-1', $utf8);
+
+is now different from
+
+  $without_0212 = encode('iso-2022-jp', $utf8 );
+
+In the latter case, characters that map to 0212 are first converted
+to U+3013 (0xA2AE in EUC-JP; a white square also known as 'Tofu' or
+'geta mark') then fed to the decoding engine.  U+FFFD is not used,
+in order to preserve text layout as much as possible.
+
+=head1 BUGS
+
+The ASCII region (0x00-0x7f) is preserved for all encodings, even
+though this conflicts with mappings by the Unicode Consortium.
+
+=head1 SEE ALSO
+
+L<Encode>
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/Encode/JP/H2Z.pm b/lib/5.24.1/x86_64-linux/Encode/JP/H2Z.pm
new file mode 100644
index 00000000..f8e2230d
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/Encode/JP/H2Z.pm
@@ -0,0 +1,176 @@
+#
+# $Id: H2Z.pm,v 2.2 2006/06/03 20:28:48 dankogai Exp $
+#
+
+package Encode::JP::H2Z;
+
+use strict;
+use warnings;
+
+our $RCSID = q$Id: H2Z.pm,v 2.2 2006/06/03 20:28:48 dankogai Exp $;
+our $VERSION = do { my @r = ( q$Revision: 2.2 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+
+use Encode::CJKConstants qw(:all);
+
+use vars qw(%_D2Z  $_PAT_D2Z
+  %_Z2D  $_PAT_Z2D
+  %_H2Z  $_PAT_H2Z
+  %_Z2H  $_PAT_Z2H);
+
+%_H2Z = (
+    "\x8e\xa1" => "\xa1\xa3",    #¡£
+    "\x8e\xa2" => "\xa1\xd6",    #¡Ö
+    "\x8e\xa3" => "\xa1\xd7",    #¡×
+    "\x8e\xa4" => "\xa1\xa2",    #¡¢
+    "\x8e\xa5" => "\xa1\xa6",    #¡¦
+    "\x8e\xa6" => "\xa5\xf2",    #¥ò
+    "\x8e\xa7" => "\xa5\xa1",    #¥¡
+    "\x8e\xa8" => "\xa5\xa3",    #¥£
+    "\x8e\xa9" => "\xa5\xa5",    #¥¥
+    "\x8e\xaa" => "\xa5\xa7",    #¥§
+    "\x8e\xab" => "\xa5\xa9",    #¥©
+    "\x8e\xac" => "\xa5\xe3",    #¥ã
+    "\x8e\xad" => "\xa5\xe5",    #¥å
+    "\x8e\xae" => "\xa5\xe7",    #¥ç
+    "\x8e\xaf" => "\xa5\xc3",    #¥Ã
+    "\x8e\xb0" => "\xa1\xbc",    #¡¼
+    "\x8e\xb1" => "\xa5\xa2",    #¥¢
+    "\x8e\xb2" => "\xa5\xa4",    #¥¤
+    "\x8e\xb3" => "\xa5\xa6",    #¥¦
+    "\x8e\xb4" => "\xa5\xa8",    #¥¨
+    "\x8e\xb5" => "\xa5\xaa",    #¥ª
+    "\x8e\xb6" => "\xa5\xab",    #¥«
+    "\x8e\xb7" => "\xa5\xad",    #¥­
+    "\x8e\xb8" => "\xa5\xaf",    #¥¯
+    "\x8e\xb9" => "\xa5\xb1",    #¥±
+    "\x8e\xba" => "\xa5\xb3",    #¥³
+    "\x8e\xbb" => "\xa5\xb5",    #¥µ
+    "\x8e\xbc" => "\xa5\xb7",    #¥·
+    "\x8e\xbd" => "\xa5\xb9",    #¥¹
+    "\x8e\xbe" => "\xa5\xbb",    #¥»
+    "\x8e\xbf" => "\xa5\xbd",    #¥½
+    "\x8e\xc0" => "\xa5\xbf",    #¥¿
+    "\x8e\xc1" => "\xa5\xc1",    #¥Á
+    "\x8e\xc2" => "\xa5\xc4",    #¥Ä
+    "\x8e\xc3" => "\xa5\xc6",    #¥Æ
+    "\x8e\xc4" => "\xa5\xc8",    #¥È
+    "\x8e\xc5" => "\xa5\xca",    #¥Ê
+    "\x8e\xc6" => "\xa5\xcb",    #¥Ë
+    "\x8e\xc7" => "\xa5\xcc",    #¥Ì
+    "\x8e\xc8" => "\xa5\xcd",    #¥Í
+    "\x8e\xc9" => "\xa5\xce",    #¥Î
+    "\x8e\xca" => "\xa5\xcf",    #¥Ï
+    "\x8e\xcb" => "\xa5\xd2",    #¥Ò
+    "\x8e\xcc" => "\xa5\xd5",    #¥Õ
+    "\x8e\xcd" => "\xa5\xd8",    #¥Ø
+    "\x8e\xce" => "\xa5\xdb",    #¥Û
+    "\x8e\xcf" => "\xa5\xde",    #¥Þ
+    "\x8e\xd0" => "\xa5\xdf",    #¥ß
+    "\x8e\xd1" => "\xa5\xe0",    #¥à
+    "\x8e\xd2" => "\xa5\xe1",    #¥á
+    "\x8e\xd3" => "\xa5\xe2",    #¥â
+    "\x8e\xd4" => "\xa5\xe4",    #¥ä
+    "\x8e\xd5" => "\xa5\xe6",    #¥æ
+    "\x8e\xd6" => "\xa5\xe8",    #¥è
+    "\x8e\xd7" => "\xa5\xe9",    #¥é
+    "\x8e\xd8" => "\xa5\xea",    #¥ê
+    "\x8e\xd9" => "\xa5\xeb",    #¥ë
+    "\x8e\xda" => "\xa5\xec",    #¥ì
+    "\x8e\xdb" => "\xa5\xed",    #¥í
+    "\x8e\xdc" => "\xa5\xef",    #¥ï
+    "\x8e\xdd" => "\xa5\xf3",    #¥ó
+    "\x8e\xde" => "\xa1\xab",    #¡«
+    "\x8e\xdf" => "\xa1\xac",    #¡¬
+);
+
+%_D2Z = (
+    "\x8e\xb6\x8e\xde" => "\xa5\xac",    #¥¬
+    "\x8e\xb7\x8e\xde" => "\xa5\xae",    #¥®
+    "\x8e\xb8\x8e\xde" => "\xa5\xb0",    #¥°
+    "\x8e\xb9\x8e\xde" => "\xa5\xb2",    #¥²
+    "\x8e\xba\x8e\xde" => "\xa5\xb4",    #¥´
+    "\x8e\xbb\x8e\xde" => "\xa5\xb6",    #¥¶
+    "\x8e\xbc\x8e\xde" => "\xa5\xb8",    #¥¸
+    "\x8e\xbd\x8e\xde" => "\xa5\xba",    #¥º
+    "\x8e\xbe\x8e\xde" => "\xa5\xbc",    #¥¼
+    "\x8e\xbf\x8e\xde" => "\xa5\xbe",    #¥¾
+    "\x8e\xc0\x8e\xde" => "\xa5\xc0",    #¥À
+    "\x8e\xc1\x8e\xde" => "\xa5\xc2",    #¥Â
+    "\x8e\xc2\x8e\xde" => "\xa5\xc5",    #¥Å
+    "\x8e\xc3\x8e\xde" => "\xa5\xc7",    #¥Ç
+    "\x8e\xc4\x8e\xde" => "\xa5\xc9",    #¥É
+    "\x8e\xca\x8e\xde" => "\xa5\xd0",    #¥Ð
+    "\x8e\xcb\x8e\xde" => "\xa5\xd3",    #¥Ó
+    "\x8e\xcc\x8e\xde" => "\xa5\xd6",    #¥Ö
+    "\x8e\xcd\x8e\xde" => "\xa5\xd9",    #¥Ù
+    "\x8e\xce\x8e\xde" => "\xa5\xdc",    #¥Ü
+    "\x8e\xca\x8e\xdf" => "\xa5\xd1",    #¥Ñ
+    "\x8e\xcb\x8e\xdf" => "\xa5\xd4",    #¥Ô
+    "\x8e\xcc\x8e\xdf" => "\xa5\xd7",    #¥×
+    "\x8e\xcd\x8e\xdf" => "\xa5\xda",    #¥Ú
+    "\x8e\xce\x8e\xdf" => "\xa5\xdd",    #¥Ý
+    "\x8e\xb3\x8e\xde" => "\xa5\xf4",    #¥ô
+);
+
+# init only once;
+
+#$_PAT_D2Z = join("|", keys %_D2Z);
+#$_PAT_H2Z = join("|", keys %_H2Z);
+
+%_Z2H = reverse %_H2Z;
+%_Z2D = reverse %_D2Z;
+
+#$_PAT_Z2H    = join("|", keys %_Z2H);
+#$_PAT_Z2D    = join("|", keys %_Z2D);
+
+sub h2z {
+    no warnings qw(uninitialized);
+    my $r_str          = shift;
+    my ($keep_dakuten) = @_;
+    my $n              = 0;
+    unless ($keep_dakuten) {
+        $n = (
+            $$r_str =~ s(
+               ($RE{EUC_KANA}
+                (?:\x8e[\xde\xdf])?)
+               ){
+          my $str = $1;
+          $_D2Z{$str} || $_H2Z{$str} || 
+              # in case dakuten and handakuten are side-by-side!
+              $_H2Z{substr($str,0,2)} . $_H2Z{substr($str,2,2)};
+          }eogx
+        );
+    }
+    else {
+        $n = (
+            $$r_str =~ s(
+               ($RE{EUC_KANA})
+               ){
+          $_H2Z{$1};
+          }eogx
+        );
+    }
+    $n;
+}
+
+sub z2h {
+    my $r_str = shift;
+    my $n     = (
+        $$r_str =~ s(
+              ($RE{EUC_C}|$RE{EUC_0212}|$RE{EUC_KANA})
+              ){
+         $_Z2D{$1} || $_Z2H{$1} || $1;
+         }eogx
+    );
+    $n;
+}
+
+1;
+__END__
+
+
+=head1 NAME
+
+Encode::JP::H2Z -- internally used by Encode::JP::2022_JP*
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/Encode/JP/JIS7.pm b/lib/5.24.1/x86_64-linux/Encode/JP/JIS7.pm
new file mode 100644
index 00000000..588389a0
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/Encode/JP/JIS7.pm
@@ -0,0 +1,165 @@
+package Encode::JP::JIS7;
+use strict;
+use warnings;
+our $VERSION = do { my @r = ( q$Revision: 2.5 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+
+use Encode qw(:fallbacks);
+
+for my $name ( '7bit-jis', 'iso-2022-jp', 'iso-2022-jp-1' ) {
+    my $h2z     = ( $name eq '7bit-jis' )    ? 0 : 1;
+    my $jis0212 = ( $name eq 'iso-2022-jp' ) ? 0 : 1;
+
+    $Encode::Encoding{$name} = bless {
+        Name    => $name,
+        h2z     => $h2z,
+        jis0212 => $jis0212,
+    } => __PACKAGE__;
+}
+
+use parent qw(Encode::Encoding);
+
+# we override this to 1 so PerlIO works
+sub needs_lines { 1 }
+
+use Encode::CJKConstants qw(:all);
+
+#
+# decode is identical for all 2022 variants
+#
+
+sub decode($$;$) {
+    my ( $obj, $str, $chk ) = @_;
+    my $residue = '';
+    if ($chk) {
+        $str =~ s/([^\x00-\x7f].*)$//so and $residue = $1;
+    }
+    $residue .= jis_euc( \$str );
+    $_[1] = $residue if $chk;
+    return Encode::decode( 'euc-jp', $str, FB_PERLQQ );
+}
+
+#
+# encode is different
+#
+
+sub encode($$;$) {
+    require Encode::JP::H2Z;
+    my ( $obj, $utf8, $chk ) = @_;
+
+    # empty the input string in the stack so perlio is ok
+    $_[1] = '' if $chk;
+    my ( $h2z, $jis0212 ) = @$obj{qw(h2z jis0212)};
+    my $octet = Encode::encode( 'euc-jp', $utf8, $chk );
+    $h2z and &Encode::JP::H2Z::h2z( \$octet );
+    euc_jis( \$octet, $jis0212 );
+    return $octet;
+}
+
+#
+# cat_decode
+#
+my $re_scan_jis_g = qr{
+   \G ( ($RE{JIS_0212}) |  $RE{JIS_0208}  |
+        ($RE{ISO_ASC})  | ($RE{JIS_KANA}) | )
+      ([^\e]*)
+}x;
+
+sub cat_decode {    # ($obj, $dst, $src, $pos, $trm, $chk)
+    my ( $obj, undef, undef, $pos, $trm ) = @_;    # currently ignores $chk
+    my ( $rdst, $rsrc, $rpos ) = \@_[ 1, 2, 3 ];
+    local ${^ENCODING};
+    use bytes;
+    my $opos = pos($$rsrc);
+    pos($$rsrc) = $pos;
+    while ( $$rsrc =~ /$re_scan_jis_g/gc ) {
+        my ( $esc, $esc_0212, $esc_asc, $esc_kana, $chunk ) =
+          ( $1, $2, $3, $4, $5 );
+
+        unless ($chunk) { $esc or last; next; }
+
+        if ( $esc && !$esc_asc ) {
+            $chunk =~ tr/\x21-\x7e/\xa1-\xfe/;
+            if ($esc_kana) {
+                $chunk =~ s/([\xa1-\xdf])/\x8e$1/og;
+            }
+            elsif ($esc_0212) {
+                $chunk =~ s/([\xa1-\xfe][\xa1-\xfe])/\x8f$1/og;
+            }
+            $chunk = Encode::decode( 'euc-jp', $chunk, 0 );
+        }
+        elsif ( ( my $npos = index( $chunk, $trm ) ) >= 0 ) {
+            $$rdst .= substr( $chunk, 0, $npos + length($trm) );
+            $$rpos += length($esc) + $npos + length($trm);
+            pos($$rsrc) = $opos;
+            return 1;
+        }
+        $$rdst .= $chunk;
+        $$rpos = pos($$rsrc);
+    }
+    $$rpos = pos($$rsrc);
+    pos($$rsrc) = $opos;
+    return '';
+}
+
+# JIS<->EUC
+my $re_scan_jis = qr{
+   (?:($RE{JIS_0212})|$RE{JIS_0208}|($RE{ISO_ASC})|($RE{JIS_KANA}))([^\e]*)
+}x;
+
+sub jis_euc {
+    local ${^ENCODING};
+    my $r_str = shift;
+    $$r_str =~ s($re_scan_jis)
+    {
+    my ($esc_0212, $esc_asc, $esc_kana, $chunk) =
+       ($1, $2, $3, $4);
+    if (!$esc_asc) {
+        $chunk =~ tr/\x21-\x7e/\xa1-\xfe/;
+        if ($esc_kana) {
+        $chunk =~ s/([\xa1-\xdf])/\x8e$1/og;
+        }
+        elsif ($esc_0212) {
+        $chunk =~ s/([\xa1-\xfe][\xa1-\xfe])/\x8f$1/og;
+        }
+    }
+    $chunk;
+    }geox;
+    my ($residue) = ( $$r_str =~ s/(\e.*)$//so );
+    return $residue;
+}
+
+sub euc_jis {
+    no warnings qw(uninitialized);
+    local ${^ENCODING};
+    my $r_str   = shift;
+    my $jis0212 = shift;
+    $$r_str =~ s{
+    ((?:$RE{EUC_C})+|(?:$RE{EUC_KANA})+|(?:$RE{EUC_0212})+)
+    }{
+        my $chunk = $1;
+        my $esc =
+        ( $chunk =~ tr/\x8E//d ) ? $ESC{KANA} :
+            ( $chunk =~ tr/\x8F//d ) ? $ESC{JIS_0212} :
+            $ESC{JIS_0208};
+        if ($esc eq $ESC{JIS_0212} && !$jis0212){
+        # fallback to '?'
+        $chunk =~ tr/\xA1-\xFE/\x3F/;
+        }else{
+        $chunk =~ tr/\xA1-\xFE/\x21-\x7E/;
+        }
+        $esc . $chunk . $ESC{ASC};
+    }geox;
+    $$r_str =~ s/\Q$ESC{ASC}\E
+        (\Q$ESC{KANA}\E|\Q$ESC{JIS_0212}\E|\Q$ESC{JIS_0208}\E)/$1/gox;
+    $$r_str;
+}
+
+1;
+__END__
+
+
+=head1 NAME
+
+Encode::JP::JIS7 -- internally used by Encode::JP
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/Encode/KR.pm b/lib/5.24.1/x86_64-linux/Encode/KR.pm
new file mode 100644
index 00000000..cf2c1174
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/Encode/KR.pm
@@ -0,0 +1,69 @@
+package Encode::KR;
+BEGIN {
+    if ( ord("A") == 193 ) {
+        die "Encode::KR not supported on EBCDIC\n";
+    }
+}
+use strict;
+use warnings;
+use Encode;
+our $VERSION = do { my @r = ( q$Revision: 2.3 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+use XSLoader;
+XSLoader::load( __PACKAGE__, $VERSION );
+
+use Encode::KR::2022_KR;
+
+1;
+__END__
+
+=head1 NAME
+
+Encode::KR - Korean Encodings
+
+=head1 SYNOPSIS
+
+    use Encode qw/encode decode/; 
+    $euc_kr = encode("euc-kr", $utf8);   # loads Encode::KR implicitly
+    $utf8   = decode("euc-kr", $euc_kr); # ditto
+
+=head1 DESCRIPTION
+
+This module implements Korean charset encodings.  Encodings supported
+are as follows.
+
+
+  Canonical   Alias		Description
+  --------------------------------------------------------------------
+  euc-kr      /\beuc.*kr$/i	EUC (Extended Unix Character)
+          /\bkr.*euc$/i
+  ksc5601-raw			Korean standard code set (as is)
+  cp949	      /(?:x-)?uhc$/i
+              /(?:x-)?windows-949$/i
+              /\bks_c_5601-1987$/i
+                                Code Page 949 (EUC-KR + 8,822 
+                                (additional Hangul syllables)
+  MacKorean			EUC-KR + Apple Vendor Mappings
+  johab       JOHAB             A supplementary encoding defined in 
+                                             Annex 3 of KS X 1001:1998
+  iso-2022-kr                   iso-2022-kr                  [RFC1557]
+  --------------------------------------------------------------------
+
+To find how to use this module in detail, see L<Encode>.
+
+=head1 BUGS
+
+When you see C<charset=ks_c_5601-1987> on mails and web pages, they really
+mean "cp949" encodings.  To fix that, the following aliases are set;
+
+  qr/(?:x-)?uhc$/i         => '"cp949"'
+  qr/(?:x-)?windows-949$/i => '"cp949"'
+  qr/ks_c_5601-1987$/i     => '"cp949"'
+
+The ASCII region (0x00-0x7f) is preserved for all encodings, even
+though this conflicts with mappings by the Unicode Consortium.
+
+=head1 SEE ALSO
+
+L<Encode>
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/Encode/KR/2022_KR.pm b/lib/5.24.1/x86_64-linux/Encode/KR/2022_KR.pm
new file mode 100644
index 00000000..44373e5d
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/Encode/KR/2022_KR.pm
@@ -0,0 +1,81 @@
+package Encode::KR::2022_KR;
+use strict;
+use warnings;
+our $VERSION = do { my @r = ( q$Revision: 2.3 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+
+use Encode qw(:fallbacks);
+
+use parent qw(Encode::Encoding);
+__PACKAGE__->Define('iso-2022-kr');
+
+sub needs_lines { 1 }
+
+sub perlio_ok {
+    return 0;    # for the time being
+}
+
+sub decode {
+    my ( $obj, $str, $chk ) = @_;
+    my $res     = $str;
+    my $residue = iso_euc( \$res );
+
+    # This is for PerlIO
+    $_[1] = $residue if $chk;
+    return Encode::decode( 'euc-kr', $res, FB_PERLQQ );
+}
+
+sub encode {
+    my ( $obj, $utf8, $chk ) = @_;
+
+    # empty the input string in the stack so perlio is ok
+    $_[1] = '' if $chk;
+    my $octet = Encode::encode( 'euc-kr', $utf8, FB_PERLQQ );
+    euc_iso( \$octet );
+    return $octet;
+}
+
+use Encode::CJKConstants qw(:all);
+
+# ISO<->EUC
+
+sub iso_euc {
+    my $r_str = shift;
+    $$r_str =~ s/$RE{'2022_KR'}//gox;    # remove the designator
+    $$r_str =~ s{                      # replace characters in GL
+     \x0e                              # between SO(\x0e) and SI(\x0f)
+     ([^\x0f]*)                        # with characters in GR
+     \x0f
+        }
+    {
+                        my $out= $1;
+      $out =~ tr/\x21-\x7e/\xa1-\xfe/;
+      $out;
+    }geox;
+    my ($residue) = ( $$r_str =~ s/(\e.*)$//so );
+    return $residue;
+}
+
+sub euc_iso {
+    no warnings qw(uninitialized);
+    my $r_str = shift;
+    substr( $$r_str, 0, 0 ) =
+      $ESC{'2022_KR'};    # put the designator at the beg.
+    $$r_str =~
+      s{                         # move KS X 1001 characters in GR to GL
+        ($RE{EUC_C}+)                     # and enclose them with SO and SI
+        }{
+            my $str = $1;
+            $str =~ tr/\xA1-\xFE/\x21-\x7E/;
+            "\x0e" . $str . "\x0f";
+        }geox;
+    $$r_str;
+}
+
+1;
+__END__
+
+=head1 NAME
+
+Encode::KR::2022_KR -- internally used by Encode::KR
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/Encode/MIME/Header.pm b/lib/5.24.1/x86_64-linux/Encode/MIME/Header.pm
new file mode 100644
index 00000000..ba6adba4
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/Encode/MIME/Header.pm
@@ -0,0 +1,241 @@
+package Encode::MIME::Header;
+use strict;
+use warnings;
+no warnings 'redefine';
+
+our $VERSION = do { my @r = ( q$Revision: 2.19 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+use Encode qw(find_encoding encode_utf8 decode_utf8);
+use MIME::Base64;
+use Carp;
+
+my %seed = (
+    decode_b => '1',    # decodes 'B' encoding ?
+    decode_q => '1',    # decodes 'Q' encoding ?
+    encode   => 'B',    # encode with 'B' or 'Q' ?
+    bpl      => 75,     # bytes per line
+);
+
+$Encode::Encoding{'MIME-Header'} =
+  bless { %seed, Name => 'MIME-Header', } => __PACKAGE__;
+
+$Encode::Encoding{'MIME-B'} = bless {
+    %seed,
+    decode_q => 0,
+    Name     => 'MIME-B',
+} => __PACKAGE__;
+
+$Encode::Encoding{'MIME-Q'} = bless {
+    %seed,
+    decode_q => 1,
+    encode   => 'Q',
+    Name     => 'MIME-Q',
+} => __PACKAGE__;
+
+use parent qw(Encode::Encoding);
+
+sub needs_lines { 1 }
+sub perlio_ok   { 0 }
+
+sub decode($$;$) {
+    use utf8;
+    my ( $obj, $str, $chk ) = @_;
+    # zap spaces between encoded words
+    $str =~ s/\?=\s+=\?/\?==\?/gos;
+    
+    # multi-line header to single line
+    $str =~ s/(?:\r\n|[\r\n])[ \t]//gos;
+
+    1 while ( $str =~
+              s/(=\?[-0-9A-Za-z_]+\?[Qq]\?)([^?]*?)\?=\1([^?]*?\?=)/$1$2$3/ )
+      ;    # Concat consecutive QP encoded mime headers
+           # Fixes breaking inside multi-byte characters
+
+    $str =~ s{
+        =\?              # begin encoded word
+        ([-0-9A-Za-z_]+) # charset (encoding)
+        (?:\*[A-Za-z]{1,8}(?:-[A-Za-z]{1,8})*)? # language (RFC 2231)
+        \?([QqBb])\?     # delimiter
+        (.*?)            # Base64-encodede contents
+        \?=              # end encoded word
+    }{
+        if      (uc($2) eq 'B'){
+            $obj->{decode_b} or croak qq(MIME "B" unsupported);
+            decode_b($1, $3, $chk);
+        } elsif (uc($2) eq 'Q'){
+            $obj->{decode_q} or croak qq(MIME "Q" unsupported);
+            decode_q($1, $3, $chk);
+        } else {
+            croak qq(MIME "$2" encoding is nonexistent!);
+        }
+    }egox;
+    $_[1] = $str if $chk;
+    return $str;
+}
+
+sub decode_b {
+    my $enc  = shift;
+    my $d    = find_encoding($enc) or croak qq(Unknown encoding "$enc");
+    my $db64 = decode_base64(shift);
+    my $chk  = shift;
+    return $d->name eq 'utf8'
+      ? Encode::decode_utf8($db64)
+      : $d->decode( $db64, $chk || Encode::FB_PERLQQ );
+}
+
+sub decode_q {
+    my ( $enc, $q, $chk ) = @_;
+    my $d = find_encoding($enc) or croak qq(Unknown encoding "$enc");
+    $q =~ s/_/ /go;
+    $q =~ s/=([0-9A-Fa-f]{2})/pack("C", hex($1))/ego;
+    return $d->name eq 'utf8'
+      ? Encode::decode_utf8($q)
+      : $d->decode( $q, $chk || Encode::FB_PERLQQ );
+}
+
+my $especials =
+  join( '|' => map { quotemeta( chr($_) ) }
+      unpack( "C*", qq{()<>,;:"'/[]?=} ) );
+
+my $re_encoded_word = qr{
+    =\?                # begin encoded word
+    (?:[-0-9A-Za-z_]+) # charset (encoding)
+    (?:\*[A-Za-z]{1,8}(?:-[A-Za-z]{1,8})*)? # language (RFC 2231)
+    \?(?:[QqBb])\?     # delimiter
+    (?:.*?)            # Base64-encodede contents
+    \?=                # end encoded word
+}xo;
+
+my $re_especials = qr{$re_encoded_word|$especials}xo;
+
+# cf:
+#    https://rt.cpan.org/Ticket/Display.html?id=88717
+#    https://www.ietf.org/rfc/rfc0822.txt
+my $re_linear_white_space = qr{(?:[ \t]|\r\n?)};
+
+sub encode($$;$) {
+    my ( $obj, $str, $chk ) = @_;
+    my @line = ();
+    for my $line ( split /\r\n|[\r\n]/o, $str ) {
+        my ( @word, @subline );
+        if ($line =~ /\A([\w\-]+:\s+)(.*)\z/o) {
+            push @word, $1, $obj->_encode($2); # "X-Header-Name: ..."
+        } else {
+            push @word, $obj->_encode($line);  # anything else
+        }
+        my $subline = '';
+        for my $word (@word) {
+            use bytes ();
+            if ( bytes::length($subline) + bytes::length($word) >
+                $obj->{bpl} - 1 )
+            {
+                push @subline, $subline;
+                $subline = '';
+            }
+            $subline .= ' ' if ($subline =~ /\?=$/ and $word =~ /^=\?/);
+            $subline .= $word;
+        }
+        length($subline) and push @subline, $subline;
+        push @line, join( "\n " => grep !/^$/, @subline );
+    }
+    $_[1] = '' if $chk;
+    return (substr($str, 0, 0) . join( "\n", @line ));
+}
+
+use constant HEAD   => '=?UTF-8?';
+use constant TAIL   => '?=';
+use constant SINGLE => { B => \&_encode_b, Q => \&_encode_q, };
+
+sub _encode {
+    my ( $o, $str ) = @_;
+    my $enc  = $o->{encode};
+    my $llen = ( $o->{bpl} - length(HEAD) - 2 - length(TAIL) );
+
+    # to coerce a floating-point arithmetics, the following contains
+    # .0 in numbers -- dankogai
+    $llen *= $enc eq 'B' ? 3.0 / 4.0 : 1.0 / 3.0;
+    my @result = ();
+    my $chunk  = '';
+    while ( length( my $chr = substr( $str, 0, 1, '' ) ) ) {
+        use bytes ();
+        if ( bytes::length($chunk) + bytes::length($chr) > $llen ) {
+            push @result, SINGLE->{$enc}($chunk);
+            $chunk = '';
+        }
+        $chunk .= $chr;
+    }
+    length($chunk) and push @result, SINGLE->{$enc}($chunk);
+    return @result;
+}
+
+sub _encode_b {
+    HEAD . 'B?' . encode_base64( encode_utf8(shift), '' ) . TAIL;
+}
+
+sub _encode_q {
+    my $chunk = shift;
+    $chunk = encode_utf8($chunk);
+    $chunk =~ s{
+	   ([^0-9A-Za-z])
+       }{
+            join("" => map {sprintf "=%02X", $_} unpack("C*", $1))
+       }egox;
+    return HEAD . 'Q?' . $chunk . TAIL;
+}
+
+1;
+__END__
+
+=head1 NAME
+
+Encode::MIME::Header -- MIME 'B' and 'Q' header encoding
+
+=head1 SYNOPSIS
+
+    use Encode qw/encode decode/;
+    $utf8   = decode('MIME-Header', $header);
+    $header = encode('MIME-Header', $utf8);
+
+=head1 ABSTRACT
+
+This module implements RFC 2047 Mime Header Encoding.  There are 3
+variant encoding names; C<MIME-Header>, C<MIME-B> and C<MIME-Q>.  The
+difference is described below
+
+              decode()          encode()
+  ----------------------------------------------
+  MIME-Header Both B and Q      =?UTF-8?B?....?=
+  MIME-B      B only; Q croaks  =?UTF-8?B?....?=
+  MIME-Q      Q only; B croaks  =?UTF-8?Q?....?=
+
+=head1 DESCRIPTION
+
+When you decode(=?I<encoding>?I<X>?I<ENCODED WORD>?=), I<ENCODED WORD>
+is extracted and decoded for I<X> encoding (B for Base64, Q for
+Quoted-Printable). Then the decoded chunk is fed to
+decode(I<encoding>).  So long as I<encoding> is supported by Encode,
+any source encoding is fine.
+
+When you encode, it just encodes UTF-8 string with I<X> encoding then
+quoted with =?UTF-8?I<X>?....?= .  The parts that RFC 2047 forbids to
+encode are left as is and long lines are folded within 76 bytes per
+line.
+
+=head1 BUGS
+
+It would be nice to support encoding to non-UTF8, such as =?ISO-2022-JP?
+and =?ISO-8859-1?= but that makes the implementation too complicated.
+These days major mail agents all support =?UTF-8? so I think it is
+just good enough.
+
+Due to popular demand, 'MIME-Header-ISO_2022_JP' was introduced by
+Makamaka.  Thre are still too many MUAs especially cellular phone
+handsets which does not grok UTF-8.
+
+=head1 SEE ALSO
+
+L<Encode>
+
+RFC 2047, L<http://www.faqs.org/rfcs/rfc2047.html> and many other
+locations.
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/Encode/MIME/Header/ISO_2022_JP.pm b/lib/5.24.1/x86_64-linux/Encode/MIME/Header/ISO_2022_JP.pm
new file mode 100644
index 00000000..86955c83
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/Encode/MIME/Header/ISO_2022_JP.pm
@@ -0,0 +1,131 @@
+package Encode::MIME::Header::ISO_2022_JP;
+
+use strict;
+use warnings;
+
+use parent qw(Encode::MIME::Header);
+
+$Encode::Encoding{'MIME-Header-ISO_2022_JP'} =
+  bless { encode => 'B', bpl => 76, Name => 'MIME-Header-ISO_2022_JP' } =>
+  __PACKAGE__;
+
+use constant HEAD => '=?ISO-2022-JP?B?';
+use constant TAIL => '?=';
+
+use Encode::CJKConstants qw(%RE);
+
+our $VERSION = do { my @r = ( q$Revision: 1.4 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+
+# I owe the below codes totally to
+#   Jcode by Dan Kogai & http://www.din.or.jp/~ohzaki/perl.htm#JP_Base64
+
+sub encode {
+    my $self = shift;
+    my $str  = shift;
+
+    utf8::encode($str) if ( Encode::is_utf8($str) );
+    Encode::from_to( $str, 'utf8', 'euc-jp' );
+
+    my ($trailing_crlf) = ( $str =~ /(\n|\r|\x0d\x0a)$/o );
+
+    $str = _mime_unstructured_header( $str, $self->{bpl} );
+
+    not $trailing_crlf and $str =~ s/(\n|\r|\x0d\x0a)$//o;
+
+    return $str;
+}
+
+sub _mime_unstructured_header {
+    my ( $oldheader, $bpl ) = @_;
+    my $crlf = $oldheader =~ /\n$/;
+    my ( $header, @words, @wordstmp, $i ) = ('');
+
+    $oldheader =~ s/\s+$//;
+
+    @wordstmp = split /\s+/, $oldheader;
+
+    for ( $i = 0 ; $i < $#wordstmp ; $i++ ) {
+        if (    $wordstmp[$i] !~ /^[\x21-\x7E]+$/
+            and $wordstmp[ $i + 1 ] !~ /^[\x21-\x7E]+$/ )
+        {
+            $wordstmp[ $i + 1 ] = "$wordstmp[$i] $wordstmp[$i + 1]";
+        }
+        else {
+            push( @words, $wordstmp[$i] );
+        }
+    }
+
+    push( @words, $wordstmp[-1] );
+
+    for my $word (@words) {
+        if ( $word =~ /^[\x21-\x7E]+$/ ) {
+            $header =~ /(?:.*\n)*(.*)/;
+            if ( length($1) + length($word) > $bpl ) {
+                $header .= "\n $word";
+            }
+            else {
+                $header .= $word;
+            }
+        }
+        else {
+            $header = _add_encoded_word( $word, $header, $bpl );
+        }
+
+        $header =~ /(?:.*\n)*(.*)/;
+
+        if ( length($1) == $bpl ) {
+            $header .= "\n ";
+        }
+        else {
+            $header .= ' ';
+        }
+    }
+
+    $header =~ s/\n? $//mg;
+
+    $crlf ? "$header\n" : $header;
+}
+
+sub _add_encoded_word {
+    my ( $str, $line, $bpl ) = @_;
+    my $result = '';
+
+    while ( length($str) ) {
+        my $target = $str;
+        $str = '';
+
+        if (
+            length($line) + 22 +
+            ( $target =~ /^(?:$RE{EUC_0212}|$RE{EUC_C})/o ) * 8 > $bpl )
+        {
+            $line =~ s/[ \t\n\r]*$/\n/;
+            $result .= $line;
+            $line = ' ';
+        }
+
+        while (1) {
+            my $iso_2022_jp = $target;
+            Encode::from_to( $iso_2022_jp, 'euc-jp', 'iso-2022-jp' );
+
+            my $encoded =
+              HEAD . MIME::Base64::encode_base64( $iso_2022_jp, '' ) . TAIL;
+
+            if ( length($encoded) + length($line) > $bpl ) {
+                $target =~
+                  s/($RE{EUC_0212}|$RE{EUC_KANA}|$RE{EUC_C}|$RE{ASCII})$//o;
+                $str = $1 . $str;
+            }
+            else {
+                $line .= $encoded;
+                last;
+            }
+        }
+
+    }
+
+    $result . $line;
+}
+
+1;
+__END__
+
diff --git a/lib/5.24.1/x86_64-linux/Encode/MIME/Name.pm b/lib/5.24.1/x86_64-linux/Encode/MIME/Name.pm
new file mode 100644
index 00000000..10d86a74
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/Encode/MIME/Name.pm
@@ -0,0 +1,94 @@
+package Encode::MIME::Name;
+use strict;
+use warnings;
+our $VERSION = do { my @r = ( q$Revision: 1.1 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+
+our %MIME_NAME_OF = (
+    'AdobeStandardEncoding' => 'Adobe-Standard-Encoding',
+    'AdobeSymbol'           => 'Adobe-Symbol-Encoding',
+    'ascii'                 => 'US-ASCII',
+    'big5-hkscs'            => 'Big5-HKSCS',
+    'cp1026'                => 'IBM1026',
+    'cp1047'                => 'IBM1047',
+    'cp1250'                => 'windows-1250',
+    'cp1251'                => 'windows-1251',
+    'cp1252'                => 'windows-1252',
+    'cp1253'                => 'windows-1253',
+    'cp1254'                => 'windows-1254',
+    'cp1255'                => 'windows-1255',
+    'cp1256'                => 'windows-1256',
+    'cp1257'                => 'windows-1257',
+    'cp1258'                => 'windows-1258',
+    'cp37'                  => 'IBM037',
+    'cp424'                 => 'IBM424',
+    'cp437'                 => 'IBM437',
+    'cp500'                 => 'IBM500',
+    'cp775'                 => 'IBM775',
+    'cp850'                 => 'IBM850',
+    'cp852'                 => 'IBM852',
+    'cp855'                 => 'IBM855',
+    'cp857'                 => 'IBM857',
+    'cp860'                 => 'IBM860',
+    'cp861'                 => 'IBM861',
+    'cp862'                 => 'IBM862',
+    'cp863'                 => 'IBM863',
+    'cp864'                 => 'IBM864',
+    'cp865'                 => 'IBM865',
+    'cp866'                 => 'IBM866',
+    'cp869'                 => 'IBM869',
+    'cp936'                 => 'GBK',
+    'euc-jp'                => 'EUC-JP',
+    'euc-kr'                => 'EUC-KR',
+    #'gb2312-raw'            => 'GB2312', # no, you're wrong, I18N::Charset
+    'hp-roman8'             => 'hp-roman8',
+    'hz'                    => 'HZ-GB-2312',
+    'iso-2022-jp'           => 'ISO-2022-JP',
+    'iso-2022-jp-1'         => 'ISO-2022-JP',
+    'iso-2022-kr'           => 'ISO-2022-KR',
+    'iso-8859-1'            => 'ISO-8859-1',
+    'iso-8859-10'           => 'ISO-8859-10',
+    'iso-8859-13'           => 'ISO-8859-13',
+    'iso-8859-14'           => 'ISO-8859-14',
+    'iso-8859-15'           => 'ISO-8859-15',
+    'iso-8859-16'           => 'ISO-8859-16',
+    'iso-8859-2'            => 'ISO-8859-2',
+    'iso-8859-3'            => 'ISO-8859-3',
+    'iso-8859-4'            => 'ISO-8859-4',
+    'iso-8859-5'            => 'ISO-8859-5',
+    'iso-8859-6'            => 'ISO-8859-6',
+    'iso-8859-7'            => 'ISO-8859-7',
+    'iso-8859-8'            => 'ISO-8859-8',
+    'iso-8859-9'            => 'ISO-8859-9',
+    #'jis0201-raw'           => 'JIS_X0201',
+    #'jis0208-raw'           => 'JIS_C6226-1983',
+    #'jis0212-raw'           => 'JIS_X0212-1990',
+    'koi8-r'                => 'KOI8-R',
+    'koi8-u'                => 'KOI8-U',
+    #'ksc5601-raw'           => 'KS_C_5601-1987',
+    'shiftjis'              => 'Shift_JIS',
+    'UTF-16'                => 'UTF-16',
+    'UTF-16BE'              => 'UTF-16BE',
+    'UTF-16LE'              => 'UTF-16LE',
+    'UTF-32'                => 'UTF-32',
+    'UTF-32BE'              => 'UTF-32BE',
+    'UTF-32LE'              => 'UTF-32LE',
+    'UTF-7'                 => 'UTF-7',
+    'utf8'                  => 'UTF-8',
+    'utf-8-strict'          => 'UTF-8',
+    'viscii'                => 'VISCII',
+);
+
+sub get_mime_name($) { $MIME_NAME_OF{$_[0]} };
+
+1;
+__END__
+
+=head1 NAME
+
+Encode::MIME::NAME -- internally used by Encode
+
+=head1 SEE ALSO
+
+L<I18N::Charset>
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/Encode/Symbol.pm b/lib/5.24.1/x86_64-linux/Encode/Symbol.pm
new file mode 100644
index 00000000..77031aad
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/Encode/Symbol.pm
@@ -0,0 +1,44 @@
+package Encode::Symbol;
+use strict;
+use warnings;
+use Encode;
+our $VERSION = do { my @r = ( q$Revision: 2.2 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+
+use XSLoader;
+XSLoader::load( __PACKAGE__, $VERSION );
+
+1;
+__END__
+
+=head1 NAME
+
+Encode::Symbol - Symbol Encodings
+
+=head1 SYNOPSIS
+
+    use Encode qw/encode decode/; 
+    $symbol  = encode("symbol", $utf8); # loads Encode::Symbol implicitly
+    $utf8 = decode("", $symbol);        # ditto
+
+=head1 ABSTRACT
+
+This module implements symbol and dingbats encodings.  Encodings
+supported are as follows.   
+
+  Canonical   Alias		Description
+  --------------------------------------------------------------------
+  symbol
+  dingbats
+  AdobeZDingbat
+  AdobeSymbol
+  MacDingbats
+
+=head1 DESCRIPTION
+
+To find out how to use this module in detail, see L<Encode>.
+
+=head1 SEE ALSO
+
+L<Encode>
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/Encode/TW.pm b/lib/5.24.1/x86_64-linux/Encode/TW.pm
new file mode 100644
index 00000000..c30499be
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/Encode/TW.pm
@@ -0,0 +1,75 @@
+package Encode::TW;
+BEGIN {
+    if ( ord("A") == 193 ) {
+        die "Encode::TW not supported on EBCDIC\n";
+    }
+}
+use strict;
+use warnings;
+use Encode;
+our $VERSION = do { my @r = ( q$Revision: 2.3 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+use XSLoader;
+XSLoader::load( __PACKAGE__, $VERSION );
+
+1;
+__END__
+
+=head1 NAME
+
+Encode::TW - Taiwan-based Chinese Encodings
+
+=head1 SYNOPSIS
+
+    use Encode qw/encode decode/; 
+    $big5 = encode("big5", $utf8); # loads Encode::TW implicitly
+    $utf8 = decode("big5", $big5); # ditto
+
+=head1 DESCRIPTION
+
+This module implements tradition Chinese charset encodings as used
+in Taiwan and Hong Kong.
+Encodings supported are as follows.
+
+  Canonical   Alias		Description
+  --------------------------------------------------------------------
+  big5-eten   /\bbig-?5$/i	Big5 encoding (with ETen extensions)
+          /\bbig5-?et(en)?$/i
+          /\btca-?big5$/i
+  big5-hkscs  /\bbig5-?hk(scs)?$/i
+              /\bhk(scs)?-?big5$/i
+                                Big5 + Cantonese characters in Hong Kong
+  MacChineseTrad		Big5 + Apple Vendor Mappings
+  cp950		                Code Page 950 
+                                = Big5 + Microsoft vendor mappings
+  --------------------------------------------------------------------
+
+To find out how to use this module in detail, see L<Encode>.
+
+=head1 NOTES
+
+Due to size concerns, C<EUC-TW> (Extended Unix Character), C<CCCII>
+(Chinese Character Code for Information Interchange), C<BIG5PLUS>
+(CMEX's Big5+) and C<BIG5EXT> (CMEX's Big5e) are distributed separately
+on CPAN, under the name L<Encode::HanExtra>. That module also contains
+extra China-based encodings.
+
+=head1 BUGS
+
+Since the original C<big5> encoding (1984) is not supported anywhere
+(glibc and DOS-based systems uses C<big5> to mean C<big5-eten>; Microsoft
+uses C<big5> to mean C<cp950>), a conscious decision was made to alias
+C<big5> to C<big5-eten>, which is the de facto superset of the original
+big5.
+
+The C<CNS11643> encoding files are not complete. For common C<CNS11643>
+manipulation, please use C<EUC-TW> in L<Encode::HanExtra>, which contains
+planes 1-7.
+
+The ASCII region (0x00-0x7f) is preserved for all encodings, even
+though this conflicts with mappings by the Unicode Consortium.
+
+=head1 SEE ALSO
+
+L<Encode>
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/Encode/Unicode.pm b/lib/5.24.1/x86_64-linux/Encode/Unicode.pm
new file mode 100644
index 00000000..7dec3e38
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/Encode/Unicode.pm
@@ -0,0 +1,278 @@
+package Encode::Unicode;
+
+use strict;
+use warnings;
+no warnings 'redefine';
+
+our $VERSION = do { my @r = ( q$Revision: 2.15 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+
+use XSLoader;
+XSLoader::load( __PACKAGE__, $VERSION );
+
+#
+# Object Generator 8 transcoders all at once!
+#
+
+require Encode;
+
+our %BOM_Unknown = map { $_ => 1 } qw(UTF-16 UTF-32);
+
+for my $name (
+    qw(UTF-16 UTF-16BE UTF-16LE
+    UTF-32 UTF-32BE UTF-32LE
+    UCS-2BE  UCS-2LE)
+  )
+{
+    my ( $size, $endian, $ucs2, $mask );
+    $name =~ /^(\w+)-(\d+)(\w*)$/o;
+    if ( $ucs2 = ( $1 eq 'UCS' ) ) {
+        $size = 2;
+    }
+    else {
+        $size = $2 / 8;
+    }
+    $endian = ( $3 eq 'BE' ) ? 'n' : ( $3 eq 'LE' ) ? 'v' : '';
+    $size == 4 and $endian = uc($endian);
+
+    $Encode::Encoding{$name} = bless {
+        Name   => $name,
+        size   => $size,
+        endian => $endian,
+        ucs2   => $ucs2,
+    } => __PACKAGE__;
+}
+
+use parent qw(Encode::Encoding);
+
+sub renew {
+    my $self = shift;
+    $BOM_Unknown{ $self->name } or return $self;
+    my $clone = bless {%$self} => ref($self);
+    $clone->{renewed}++;    # so the caller knows it is renewed.
+    return $clone;
+}
+
+# There used to be a perl implementation of (en|de)code but with
+# XS version is ripe, perl version is zapped for optimal speed
+
+*decode = \&decode_xs;
+*encode = \&encode_xs;
+
+1;
+__END__
+
+=head1 NAME
+
+Encode::Unicode -- Various Unicode Transformation Formats
+
+=cut
+
+=head1 SYNOPSIS
+
+    use Encode qw/encode decode/;
+    $ucs2 = encode("UCS-2BE", $utf8);
+    $utf8 = decode("UCS-2BE", $ucs2);
+
+=head1 ABSTRACT
+
+This module implements all Character Encoding Schemes of Unicode that
+are officially documented by Unicode Consortium (except, of course,
+for UTF-8, which is a native format in perl).
+
+=over 4
+
+=item L<http://www.unicode.org/glossary/> says:
+
+I<Character Encoding Scheme> A character encoding form plus byte
+serialization. There are Seven character encoding schemes in Unicode:
+UTF-8, UTF-16, UTF-16BE, UTF-16LE, UTF-32 (UCS-4), UTF-32BE (UCS-4BE) and
+UTF-32LE (UCS-4LE), and UTF-7.
+
+Since UTF-7 is a 7-bit (re)encoded version of UTF-16BE, It is not part of
+Unicode's Character Encoding Scheme.  It is separately implemented in
+Encode::Unicode::UTF7.  For details see L<Encode::Unicode::UTF7>.
+
+=item Quick Reference
+
+                Decodes from ord(N)           Encodes chr(N) to...
+       octet/char BOM S.P d800-dfff  ord > 0xffff     \x{1abcd} ==
+  ---------------+-----------------+------------------------------
+  UCS-2BE       2   N   N  is bogus                  Not Available
+  UCS-2LE       2   N   N     bogus                  Not Available
+  UTF-16      2/4   Y   Y  is   S.P           S.P            BE/LE
+  UTF-16BE    2/4   N   Y       S.P           S.P    0xd82a,0xdfcd
+  UTF-16LE    2/4   N   Y       S.P           S.P    0x2ad8,0xcddf
+  UTF-32        4   Y   -  is bogus         As is            BE/LE
+  UTF-32BE      4   N   -     bogus         As is       0x0001abcd
+  UTF-32LE      4   N   -     bogus         As is       0xcdab0100
+  UTF-8       1-4   -   -     bogus   >= 4 octets   \xf0\x9a\af\8d
+  ---------------+-----------------+------------------------------
+
+=back
+
+=head1 Size, Endianness, and BOM
+
+You can categorize these CES by 3 criteria:  size of each character,
+endianness, and Byte Order Mark.
+
+=head2 by size
+
+UCS-2 is a fixed-length encoding with each character taking 16 bits.
+It B<does not> support I<surrogate pairs>.  When a surrogate pair
+is encountered during decode(), its place is filled with \x{FFFD}
+if I<CHECK> is 0, or the routine croaks if I<CHECK> is 1.  When a
+character whose ord value is larger than 0xFFFF is encountered,
+its place is filled with \x{FFFD} if I<CHECK> is 0, or the routine
+croaks if I<CHECK> is 1.
+
+UTF-16 is almost the same as UCS-2 but it supports I<surrogate pairs>.
+When it encounters a high surrogate (0xD800-0xDBFF), it fetches the
+following low surrogate (0xDC00-0xDFFF) and C<desurrogate>s them to
+form a character.  Bogus surrogates result in death.  When \x{10000}
+or above is encountered during encode(), it C<ensurrogate>s them and
+pushes the surrogate pair to the output stream.
+
+UTF-32 (UCS-4) is a fixed-length encoding with each character taking 32 bits.
+Since it is 32-bit, there is no need for I<surrogate pairs>.
+
+=head2 by endianness
+
+The first (and now failed) goal of Unicode was to map all character
+repertoires into a fixed-length integer so that programmers are happy.
+Since each character is either a I<short> or I<long> in C, you have to
+pay attention to the endianness of each platform when you pass data
+to one another.
+
+Anything marked as BE is Big Endian (or network byte order) and LE is
+Little Endian (aka VAX byte order).  For anything not marked either
+BE or LE, a character called Byte Order Mark (BOM) indicating the
+endianness is prepended to the string.
+
+CAVEAT: Though BOM in utf8 (\xEF\xBB\xBF) is valid, it is meaningless
+and as of this writing Encode suite just leave it as is (\x{FeFF}).
+
+=over 4
+
+=item BOM as integer when fetched in network byte order
+
+              16         32 bits/char
+  -------------------------
+  BE      0xFeFF 0x0000FeFF
+  LE      0xFFFe 0xFFFe0000
+  -------------------------
+
+=back
+
+This modules handles the BOM as follows.
+
+=over 4
+
+=item *
+
+When BE or LE is explicitly stated as the name of encoding, BOM is
+simply treated as a normal character (ZERO WIDTH NO-BREAK SPACE).
+
+=item *
+
+When BE or LE is omitted during decode(), it checks if BOM is at the
+beginning of the string; if one is found, the endianness is set to
+what the BOM says.  
+
+=item *
+
+Default Byte Order
+
+When no BOM is found, Encode 2.76 and blow croaked.  Since Encode
+2.77, it falls back to BE accordingly to RFC2781 and the Unicode
+Standard version 8.0
+
+=item *
+
+When BE or LE is omitted during encode(), it returns a BE-encoded
+string with BOM prepended.  So when you want to encode a whole text
+file, make sure you encode() the whole text at once, not line by line
+or each line, not file, will have a BOM prepended.
+
+=item *
+
+C<UCS-2> is an exception.  Unlike others, this is an alias of UCS-2BE.
+UCS-2 is already registered by IANA and others that way.
+
+=back
+
+=head1 Surrogate Pairs
+
+To say the least, surrogate pairs were the biggest mistake of the
+Unicode Consortium.  But according to the late Douglas Adams in I<The
+Hitchhiker's Guide to the Galaxy> Trilogy, C<In the beginning the
+Universe was created. This has made a lot of people very angry and
+been widely regarded as a bad move>.  Their mistake was not of this
+magnitude so let's forgive them.
+
+(I don't dare make any comparison with Unicode Consortium and the
+Vogons here ;)  Or, comparing Encode to Babel Fish is completely
+appropriate -- if you can only stick this into your ear :)
+
+Surrogate pairs were born when the Unicode Consortium finally
+admitted that 16 bits were not big enough to hold all the world's
+character repertoires.  But they already made UCS-2 16-bit.  What
+do we do?
+
+Back then, the range 0xD800-0xDFFF was not allocated.  Let's split
+that range in half and use the first half to represent the C<upper
+half of a character> and the second half to represent the C<lower
+half of a character>.  That way, you can represent 1024 * 1024 =
+1048576 more characters.  Now we can store character ranges up to
+\x{10ffff} even with 16-bit encodings.  This pair of half-character is
+now called a I<surrogate pair> and UTF-16 is the name of the encoding
+that embraces them.
+
+Here is a formula to ensurrogate a Unicode character \x{10000} and
+above;
+
+  $hi = ($uni - 0x10000) / 0x400 + 0xD800;
+  $lo = ($uni - 0x10000) % 0x400 + 0xDC00;
+
+And to desurrogate;
+
+ $uni = 0x10000 + ($hi - 0xD800) * 0x400 + ($lo - 0xDC00);
+
+Note this move has made \x{D800}-\x{DFFF} into a forbidden zone but
+perl does not prohibit the use of characters within this range.  To perl,
+every one of \x{0000_0000} up to \x{ffff_ffff} (*) is I<a character>.
+
+  (*) or \x{ffff_ffff_ffff_ffff} if your perl is compiled with 64-bit
+  integer support!
+
+=head1 Error Checking
+
+Unlike most encodings which accept various ways to handle errors,
+Unicode encodings simply croaks.
+
+  % perl -MEncode -e'$_ = "\xfe\xff\xd8\xd9\xda\xdb\0\n"' \
+         -e'Encode::from_to($_, "utf16","shift_jis", 0); print'
+  UTF-16:Malformed LO surrogate d8d9 at /path/to/Encode.pm line 184.
+  % perl -MEncode -e'$a = "BOM missing"' \
+         -e' Encode::from_to($a, "utf16", "shift_jis", 0); print'
+  UTF-16:Unrecognised BOM 424f at /path/to/Encode.pm line 184.
+
+Unlike other encodings where mappings are not one-to-one against
+Unicode, UTFs are supposed to map 100% against one another.  So Encode
+is more strict on UTFs.
+
+Consider that "division by zero" of Encode :)
+
+=head1 SEE ALSO
+
+L<Encode>, L<Encode::Unicode::UTF7>, L<http://www.unicode.org/glossary/>,
+L<http://www.unicode.org/unicode/faq/utf_bom.html>,
+
+RFC 2781 L<http://www.ietf.org/rfc/rfc2781.txt>,
+
+The whole Unicode standard L<http://www.unicode.org/unicode/uni2book/u2.html>
+
+Ch. 15, pp. 403 of C<Programming Perl (3rd Edition)>
+by Larry Wall, Tom Christiansen, Jon Orwant;
+O'Reilly & Associates; ISBN 0-596-00027-8
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/Encode/Unicode/UTF7.pm b/lib/5.24.1/x86_64-linux/Encode/Unicode/UTF7.pm
new file mode 100644
index 00000000..d5d86e2f
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/Encode/Unicode/UTF7.pm
@@ -0,0 +1,132 @@
+#
+# $Id: UTF7.pm,v 2.8 2013/09/14 07:51:59 dankogai Exp $
+#
+package Encode::Unicode::UTF7;
+use strict;
+use warnings;
+no warnings 'redefine';
+use parent qw(Encode::Encoding);
+__PACKAGE__->Define('UTF-7');
+our $VERSION = do { my @r = ( q$Revision: 2.8 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+use MIME::Base64;
+use Encode;
+
+#
+# Algorithms taken from Unicode::String by Gisle Aas
+#
+
+our $OPTIONAL_DIRECT_CHARS = 1;
+my $specials = quotemeta "\'(),-./:?";
+$OPTIONAL_DIRECT_CHARS
+  and $specials .= quotemeta "!\"#$%&*;<=>@[]^_`{|}";
+
+# \s will not work because it matches U+3000 DEOGRAPHIC SPACE
+# We use qr/[\n\r\t\ ] instead
+my $re_asis    = qr/(?:[\n\r\t\ A-Za-z0-9$specials])/;
+my $re_encoded = qr/(?:[^\n\r\t\ A-Za-z0-9$specials])/;
+my $e_utf16    = find_encoding("UTF-16BE");
+
+sub needs_lines { 1 }
+
+sub encode($$;$) {
+    my ( $obj, $str, $chk ) = @_;
+    my $len = length($str);
+    pos($str) = 0;
+    my $bytes = substr($str, 0, 0); # to propagate taintedness
+    while ( pos($str) < $len ) {
+        if ( $str =~ /\G($re_asis+)/ogc ) {
+	    my $octets = $1;
+	    utf8::downgrade($octets);
+	    $bytes .= $octets;
+        }
+        elsif ( $str =~ /\G($re_encoded+)/ogsc ) {
+            if ( $1 eq "+" ) {
+                $bytes .= "+-";
+            }
+            else {
+                my $s = $1;
+                my $base64 = encode_base64( $e_utf16->encode($s), '' );
+                $base64 =~ s/=+$//;
+                $bytes .= "+$base64-";
+            }
+        }
+        else {
+            die "This should not happen! (pos=" . pos($str) . ")";
+        }
+    }
+    $_[1] = '' if $chk;
+    return $bytes;
+}
+
+sub decode($$;$) {
+    use re 'taint';
+    my ( $obj, $bytes, $chk ) = @_;
+    my $len = length($bytes);
+    my $str = substr($bytes, 0, 0); # to propagate taintedness;
+    pos($bytes) = 0;
+    no warnings 'uninitialized';
+    while ( pos($bytes) < $len ) {
+        if ( $bytes =~ /\G([^+]+)/ogc ) {
+            $str .= $1;
+        }
+        elsif ( $bytes =~ /\G\+-/ogc ) {
+            $str .= "+";
+        }
+        elsif ( $bytes =~ /\G\+([A-Za-z0-9+\/]+)-?/ogsc ) {
+            my $base64 = $1;
+            my $pad    = length($base64) % 4;
+            $base64 .= "=" x ( 4 - $pad ) if $pad;
+            $str .= $e_utf16->decode( decode_base64($base64) );
+        }
+        elsif ( $bytes =~ /\G\+/ogc ) {
+            $^W and warn "Bad UTF7 data escape";
+            $str .= "+";
+        }
+        else {
+            die "This should not happen " . pos($bytes);
+        }
+    }
+    $_[1] = '' if $chk;
+    return $str;
+}
+1;
+__END__
+
+=head1 NAME
+
+Encode::Unicode::UTF7 -- UTF-7 encoding
+
+=head1 SYNOPSIS
+
+    use Encode qw/encode decode/; 
+    $utf7 = encode("UTF-7", $utf8);
+    $utf8 = decode("UTF-7", $ucs2);
+
+=head1 ABSTRACT
+
+This module implements UTF-7 encoding documented in RFC 2152.  UTF-7,
+as its name suggests, is a 7-bit re-encoded version of UTF-16BE.  It
+is designed to be MTA-safe and expected to be a standard way to
+exchange Unicoded mails via mails.  But with the advent of UTF-8 and
+8-bit compliant MTAs, UTF-7 is hardly ever used.
+
+UTF-7 was not supported by Encode until version 1.95 because of that.
+But Unicode::String, a module by Gisle Aas which adds Unicode supports
+to non-utf8-savvy perl did support UTF-7, the UTF-7 support was added
+so Encode can supersede Unicode::String 100%.
+
+=head1 In Practice
+
+When you want to encode Unicode for mails and web pages, however, do
+not use UTF-7 unless you are sure your recipients and readers can
+handle it.  Very few MUAs and WWW Browsers support these days (only
+Mozilla seems to support one).  For general cases, use UTF-8 for
+message body and MIME-Header for header instead.
+
+=head1 SEE ALSO
+
+L<Encode>, L<Encode::Unicode>, L<Unicode::String>
+
+RFC 2781 L<http://www.ietf.org/rfc/rfc2152.txt>
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/Errno.pm b/lib/5.24.1/x86_64-linux/Errno.pm
new file mode 100644
index 00000000..02247b0a
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/Errno.pm
@@ -0,0 +1,287 @@
+# -*- buffer-read-only: t -*-
+#
+# This file is auto-generated. ***ANY*** changes here will be lost
+#
+
+package Errno;
+require Exporter;
+use strict;
+
+use Config;
+"$Config{'archname'}-$Config{'osvers'}" eq
+"x86_64-linux-4.9.7-040907-lowlatency" or
+	die "Errno architecture (x86_64-linux-4.9.7-040907-lowlatency) does not match executable architecture ($Config{'archname'}-$Config{'osvers'})";
+
+our $VERSION = "1.25";
+$VERSION = eval $VERSION;
+our @ISA = 'Exporter';
+
+my %err;
+
+BEGIN {
+    %err = (
+	EPERM => 1,
+	ENOENT => 2,
+	ESRCH => 3,
+	EINTR => 4,
+	EIO => 5,
+	ENXIO => 6,
+	E2BIG => 7,
+	ENOEXEC => 8,
+	EBADF => 9,
+	ECHILD => 10,
+	EAGAIN => 11,
+	EWOULDBLOCK => 11,
+	ENOMEM => 12,
+	EACCES => 13,
+	EFAULT => 14,
+	ENOTBLK => 15,
+	EBUSY => 16,
+	EEXIST => 17,
+	EXDEV => 18,
+	ENODEV => 19,
+	ENOTDIR => 20,
+	EISDIR => 21,
+	EINVAL => 22,
+	ENFILE => 23,
+	EMFILE => 24,
+	ENOTTY => 25,
+	ETXTBSY => 26,
+	EFBIG => 27,
+	ENOSPC => 28,
+	ESPIPE => 29,
+	EROFS => 30,
+	EMLINK => 31,
+	EPIPE => 32,
+	EDOM => 33,
+	ERANGE => 34,
+	EDEADLK => 35,
+	EDEADLOCK => 35,
+	ENAMETOOLONG => 36,
+	ENOLCK => 37,
+	ENOSYS => 38,
+	ENOTEMPTY => 39,
+	ELOOP => 40,
+	ENOMSG => 42,
+	EIDRM => 43,
+	ECHRNG => 44,
+	EL2NSYNC => 45,
+	EL3HLT => 46,
+	EL3RST => 47,
+	ELNRNG => 48,
+	EUNATCH => 49,
+	ENOCSI => 50,
+	EL2HLT => 51,
+	EBADE => 52,
+	EBADR => 53,
+	EXFULL => 54,
+	ENOANO => 55,
+	EBADRQC => 56,
+	EBADSLT => 57,
+	EBFONT => 59,
+	ENOSTR => 60,
+	ENODATA => 61,
+	ETIME => 62,
+	ENOSR => 63,
+	ENONET => 64,
+	ENOPKG => 65,
+	EREMOTE => 66,
+	ENOLINK => 67,
+	EADV => 68,
+	ESRMNT => 69,
+	ECOMM => 70,
+	EPROTO => 71,
+	EMULTIHOP => 72,
+	EDOTDOT => 73,
+	EBADMSG => 74,
+	EOVERFLOW => 75,
+	ENOTUNIQ => 76,
+	EBADFD => 77,
+	EREMCHG => 78,
+	ELIBACC => 79,
+	ELIBBAD => 80,
+	ELIBSCN => 81,
+	ELIBMAX => 82,
+	ELIBEXEC => 83,
+	EILSEQ => 84,
+	ERESTART => 85,
+	ESTRPIPE => 86,
+	EUSERS => 87,
+	ENOTSOCK => 88,
+	EDESTADDRREQ => 89,
+	EMSGSIZE => 90,
+	EPROTOTYPE => 91,
+	ENOPROTOOPT => 92,
+	EPROTONOSUPPORT => 93,
+	ESOCKTNOSUPPORT => 94,
+	ENOTSUP => 95,
+	EOPNOTSUPP => 95,
+	EPFNOSUPPORT => 96,
+	EAFNOSUPPORT => 97,
+	EADDRINUSE => 98,
+	EADDRNOTAVAIL => 99,
+	ENETDOWN => 100,
+	ENETUNREACH => 101,
+	ENETRESET => 102,
+	ECONNABORTED => 103,
+	ECONNRESET => 104,
+	ENOBUFS => 105,
+	EISCONN => 106,
+	ENOTCONN => 107,
+	ESHUTDOWN => 108,
+	ETOOMANYREFS => 109,
+	ETIMEDOUT => 110,
+	ECONNREFUSED => 111,
+	EHOSTDOWN => 112,
+	EHOSTUNREACH => 113,
+	EALREADY => 114,
+	EINPROGRESS => 115,
+	ESTALE => 116,
+	EUCLEAN => 117,
+	ENOTNAM => 118,
+	ENAVAIL => 119,
+	EISNAM => 120,
+	EREMOTEIO => 121,
+	EDQUOT => 122,
+	ENOMEDIUM => 123,
+	EMEDIUMTYPE => 124,
+	ECANCELED => 125,
+	ENOKEY => 126,
+	EKEYEXPIRED => 127,
+	EKEYREVOKED => 128,
+	EKEYREJECTED => 129,
+	EOWNERDEAD => 130,
+	ENOTRECOVERABLE => 131,
+	ERFKILL => 132,
+	EHWPOISON => 133,
+    );
+    # Generate proxy constant subroutines for all the values.
+    # Well, almost all the values. Unfortunately we can't assume that at this
+    # point that our symbol table is empty, as code such as if the parser has
+    # seen code such as C<exists &Errno::EINVAL>, it will have created the
+    # typeglob.
+    # Doing this before defining @EXPORT_OK etc means that even if a platform is
+    # crazy enough to define EXPORT_OK as an error constant, everything will
+    # still work, because the parser will upgrade the PCS to a real typeglob.
+    # We rely on the subroutine definitions below to update the internal caches.
+    # Don't use %each, as we don't want a copy of the value.
+    foreach my $name (keys %err) {
+        if ($Errno::{$name}) {
+            # We expect this to be reached fairly rarely, so take an approach
+            # which uses the least compile time effort in the common case:
+            eval "sub $name() { $err{$name} }; 1" or die $@;
+        } else {
+            $Errno::{$name} = \$err{$name};
+        }
+    }
+}
+
+our @EXPORT_OK = keys %err;
+
+our %EXPORT_TAGS = (
+    POSIX => [qw(
+	E2BIG EACCES EADDRINUSE EADDRNOTAVAIL EAFNOSUPPORT EAGAIN EALREADY
+	EBADF EBUSY ECHILD ECONNABORTED ECONNREFUSED ECONNRESET EDEADLK
+	EDESTADDRREQ EDOM EDQUOT EEXIST EFAULT EFBIG EHOSTDOWN EHOSTUNREACH
+	EINPROGRESS EINTR EINVAL EIO EISCONN EISDIR ELOOP EMFILE EMLINK
+	EMSGSIZE ENAMETOOLONG ENETDOWN ENETRESET ENETUNREACH ENFILE ENOBUFS
+	ENODEV ENOENT ENOEXEC ENOLCK ENOMEM ENOPROTOOPT ENOSPC ENOSYS ENOTBLK
+	ENOTCONN ENOTDIR ENOTEMPTY ENOTSOCK ENOTTY ENXIO EOPNOTSUPP EPERM
+	EPFNOSUPPORT EPIPE EPROTONOSUPPORT EPROTOTYPE ERANGE EREMOTE ERESTART
+	EROFS ESHUTDOWN ESOCKTNOSUPPORT ESPIPE ESRCH ESTALE ETIMEDOUT
+	ETOOMANYREFS ETXTBSY EUSERS EWOULDBLOCK EXDEV
+    )],
+);
+
+sub TIEHASH { bless \%err }
+
+sub FETCH {
+    my (undef, $errname) = @_;
+    return "" unless exists $err{$errname};
+    my $errno = $err{$errname};
+    return $errno == $! ? $errno : 0;
+}
+
+sub STORE {
+    require Carp;
+    Carp::confess("ERRNO hash is read only!");
+}
+
+*CLEAR = *DELETE = \*STORE; # Typeglob aliasing uses less space
+
+sub NEXTKEY {
+    each %err;
+}
+
+sub FIRSTKEY {
+    my $s = scalar keys %err;	# initialize iterator
+    each %err;
+}
+
+sub EXISTS {
+    my (undef, $errname) = @_;
+    exists $err{$errname};
+}
+
+tie %!, __PACKAGE__; # Returns an object, objects are true.
+
+__END__
+
+=head1 NAME
+
+Errno - System errno constants
+
+=head1 SYNOPSIS
+
+    use Errno qw(EINTR EIO :POSIX);
+
+=head1 DESCRIPTION
+
+C<Errno> defines and conditionally exports all the error constants
+defined in your system F<errno.h> include file. It has a single export
+tag, C<:POSIX>, which will export all POSIX defined error numbers.
+
+On Windows, C<Errno> also defines and conditionally exports all the
+Winsock error constants defined in your system F<WinError.h> include
+file. These are included in a second export tag, C<:WINSOCK>.
+
+C<Errno> also makes C<%!> magic such that each element of C<%!> has a
+non-zero value only if C<$!> is set to that value. For example:
+
+    use Errno;
+
+    unless (open(FH, "/fangorn/spouse")) {
+        if ($!{ENOENT}) {
+            warn "Get a wife!\n";
+        } else {
+            warn "This path is barred: $!";
+        } 
+    } 
+
+If a specified constant C<EFOO> does not exist on the system, C<$!{EFOO}>
+returns C<"">.  You may use C<exists $!{EFOO}> to check whether the
+constant is available on the system.
+
+=head1 CAVEATS
+
+Importing a particular constant may not be very portable, because the
+import will fail on platforms that do not have that constant.  A more
+portable way to set C<$!> to a valid value is to use:
+
+    if (exists &Errno::EFOO) {
+        $! = &Errno::EFOO;
+    }
+
+=head1 AUTHOR
+
+Graham Barr <gbarr@pobox.com>
+
+=head1 COPYRIGHT
+
+Copyright (c) 1997-8 Graham Barr. All rights reserved.
+This program is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+=cut
+
+# ex: set ro:
diff --git a/lib/5.24.1/x86_64-linux/Fcntl.pm b/lib/5.24.1/x86_64-linux/Fcntl.pm
new file mode 100644
index 00000000..fa5f3935
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/Fcntl.pm
@@ -0,0 +1,193 @@
+package Fcntl;
+
+=head1 NAME
+
+Fcntl - load the C Fcntl.h defines
+
+=head1 SYNOPSIS
+
+    use Fcntl;
+    use Fcntl qw(:DEFAULT :flock);
+
+=head1 DESCRIPTION
+
+This module is just a translation of the C F<fcntl.h> file.
+Unlike the old mechanism of requiring a translated F<fcntl.ph>
+file, this uses the B<h2xs> program (see the Perl source distribution)
+and your native C compiler.  This means that it has a 
+far more likely chance of getting the numbers right.
+
+=head1 NOTE
+
+Only C<#define> symbols get translated; you must still correctly
+pack up your own arguments to pass as args for locking functions, etc.
+
+=head1 EXPORTED SYMBOLS
+
+By default your system's F_* and O_* constants (eg, F_DUPFD and
+O_CREAT) and the FD_CLOEXEC constant are exported into your namespace.
+
+You can request that the flock() constants (LOCK_SH, LOCK_EX, LOCK_NB
+and LOCK_UN) be provided by using the tag C<:flock>.  See L<Exporter>.
+
+You can request that the old constants (FAPPEND, FASYNC, FCREAT,
+FDEFER, FEXCL, FNDELAY, FNONBLOCK, FSYNC, FTRUNC) be provided for
+compatibility reasons by using the tag C<:Fcompat>.  For new
+applications the newer versions of these constants are suggested
+(O_APPEND, O_ASYNC, O_CREAT, O_DEFER, O_EXCL, O_NDELAY, O_NONBLOCK,
+O_SYNC, O_TRUNC).
+
+For ease of use also the SEEK_* constants (for seek() and sysseek(),
+e.g. SEEK_END) and the S_I* constants (for chmod() and stat()) are
+available for import.  They can be imported either separately or using
+the tags C<:seek> and C<:mode>.
+
+Please refer to your native fcntl(2), open(2), fseek(3), lseek(2)
+(equal to Perl's seek() and sysseek(), respectively), and chmod(2)
+documentation to see what constants are implemented in your system.
+
+See L<perlopentut> to learn about the uses of the O_* constants
+with sysopen().
+
+See L<perlfunc/seek> and L<perlfunc/sysseek> about the SEEK_* constants.
+
+See L<perlfunc/stat> about the S_I* constants.
+
+=cut
+
+use strict;
+our($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
+
+require Exporter;
+require XSLoader;
+@ISA = qw(Exporter);
+$VERSION = '1.13';
+
+XSLoader::load();
+
+# Named groups of exports
+%EXPORT_TAGS = (
+    'flock'   => [qw(LOCK_SH LOCK_EX LOCK_NB LOCK_UN)],
+    'Fcompat' => [qw(FAPPEND FASYNC FCREAT FDEFER FDSYNC FEXCL FLARGEFILE
+		     FNDELAY FNONBLOCK FRSYNC FSYNC FTRUNC)],
+    'seek'    => [qw(SEEK_SET SEEK_CUR SEEK_END)],
+    'mode'    => [qw(S_ISUID S_ISGID S_ISVTX S_ISTXT
+		     _S_IFMT S_IFREG S_IFDIR S_IFLNK
+		     S_IFSOCK S_IFBLK S_IFCHR S_IFIFO S_IFWHT S_ENFMT
+		     S_IRUSR S_IWUSR S_IXUSR S_IRWXU
+		     S_IRGRP S_IWGRP S_IXGRP S_IRWXG
+		     S_IROTH S_IWOTH S_IXOTH S_IRWXO
+		     S_IREAD S_IWRITE S_IEXEC
+		     S_ISREG S_ISDIR S_ISLNK S_ISSOCK
+		     S_ISBLK S_ISCHR S_ISFIFO
+		     S_ISWHT S_ISENFMT		
+		     S_IFMT S_IMODE
+                  )],
+);
+
+# Items to export into callers namespace by default
+# (move infrequently used names to @EXPORT_OK below)
+@EXPORT =
+  qw(
+	FD_CLOEXEC
+	F_ALLOCSP
+	F_ALLOCSP64
+	F_COMPAT
+	F_DUP2FD
+	F_DUPFD
+	F_EXLCK
+	F_FREESP
+	F_FREESP64
+	F_FSYNC
+	F_FSYNC64
+	F_GETFD
+	F_GETFL
+	F_GETLK
+	F_GETLK64
+	F_GETOWN
+	F_NODNY
+	F_POSIX
+	F_RDACC
+	F_RDDNY
+	F_RDLCK
+	F_RWACC
+	F_RWDNY
+	F_SETFD
+	F_SETFL
+	F_SETLK
+	F_SETLK64
+	F_SETLKW
+	F_SETLKW64
+	F_SETOWN
+	F_SHARE
+	F_SHLCK
+	F_UNLCK
+	F_UNSHARE
+	F_WRACC
+	F_WRDNY
+	F_WRLCK
+	O_ACCMODE
+	O_ALIAS
+	O_APPEND
+	O_ASYNC
+	O_BINARY
+	O_CREAT
+	O_DEFER
+	O_DIRECT
+	O_DIRECTORY
+	O_DSYNC
+	O_EXCL
+	O_EXLOCK
+	O_LARGEFILE
+	O_NDELAY
+	O_NOCTTY
+	O_NOFOLLOW
+	O_NOINHERIT
+	O_NONBLOCK
+	O_RANDOM
+	O_RAW
+	O_RDONLY
+	O_RDWR
+	O_RSRC
+	O_RSYNC
+	O_SEQUENTIAL
+	O_SHLOCK
+	O_SYNC
+	O_TEMPORARY
+	O_TEXT
+	O_TRUNC
+	O_WRONLY
+     );
+
+# Other items we are prepared to export if requested
+@EXPORT_OK = (qw(
+	DN_ACCESS
+	DN_ATTRIB
+	DN_CREATE
+	DN_DELETE
+	DN_MODIFY
+	DN_MULTISHOT
+	DN_RENAME
+	F_GETLEASE
+	F_GETPIPE_SZ
+	F_GETSIG
+	F_NOTIFY
+	F_SETLEASE
+	F_SETPIPE_SZ
+	F_SETSIG
+	LOCK_MAND
+	LOCK_READ
+	LOCK_RW
+	LOCK_WRITE
+        O_ALT_IO
+        O_EVTONLY
+	O_IGNORE_CTTY
+	O_NOATIME
+	O_NOLINK
+        O_NOSIGPIPE
+	O_NOTRANS
+        O_SYMLINK
+        O_TTY_INIT
+), map {@{$_}} values %EXPORT_TAGS);
+
+1;
diff --git a/lib/5.24.1/x86_64-linux/File/DosGlob.pm b/lib/5.24.1/x86_64-linux/File/DosGlob.pm
new file mode 100644
index 00000000..9d40a363
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/File/DosGlob.pm
@@ -0,0 +1,304 @@
+#!perl -w
+
+#
+# Documentation at the __END__
+#
+
+package File::DosGlob;
+
+our $VERSION = '1.12';
+use strict;
+use warnings;
+
+require XSLoader;
+XSLoader::load();
+
+sub doglob {
+    my $cond = shift;
+    my @retval = ();
+    my $fix_drive_relative_paths;
+  OUTER:
+    for my $pat (@_) {
+	my @matched = ();
+	my @globdirs = ();
+	my $head = '.';
+	my $sepchr = '/';
+        my $tail;
+	next OUTER unless defined $pat and $pat ne '';
+	# if arg is within quotes strip em and do no globbing
+	if ($pat =~ /^"(.*)"\z/s) {
+	    $pat = $1;
+	    if ($cond eq 'd') { push(@retval, $pat) if -d $pat }
+	    else              { push(@retval, $pat) if -e $pat }
+	    next OUTER;
+	}
+	# wildcards with a drive prefix such as h:*.pm must be changed
+	# to h:./*.pm to expand correctly
+	if ($pat =~ m|^([A-Za-z]:)[^/\\]|s) {
+	    substr($pat,0,2) = $1 . "./";
+	    $fix_drive_relative_paths = 1;
+	}
+	if ($pat =~ m|^(.*)([\\/])([^\\/]*)\z|s) {
+	    ($head, $sepchr, $tail) = ($1,$2,$3);
+	    push (@retval, $pat), next OUTER if $tail eq '';
+	    if ($head =~ /[*?]/) {
+		@globdirs = doglob('d', $head);
+		push(@retval, doglob($cond, map {"$_$sepchr$tail"} @globdirs)),
+		    next OUTER if @globdirs;
+	    }
+	    $head .= $sepchr if $head eq '' or $head =~ /^[A-Za-z]:\z/s;
+	    $pat = $tail;
+	}
+	#
+	# If file component has no wildcards, we can avoid opendir
+	unless ($pat =~ /[*?]/) {
+	    $head = '' if $head eq '.';
+	    $head .= $sepchr unless $head eq '' or substr($head,-1) eq $sepchr;
+	    $head .= $pat;
+	    if ($cond eq 'd') { push(@retval,$head) if -d $head }
+	    else              { push(@retval,$head) if -e $head }
+	    next OUTER;
+	}
+	opendir(D, $head) or next OUTER;
+	my @leaves = readdir D;
+	closedir D;
+
+	# VMS-format filespecs, especially if they contain extended characters,
+	# are unlikely to match patterns correctly, so Unixify them.
+	if ($^O eq 'VMS') {
+	    require VMS::Filespec;
+	    @leaves = map {$_ =~ s/\.$//; VMS::Filespec::unixify($_)} @leaves;
+        }
+	$head = '' if $head eq '.';
+	$head .= $sepchr unless $head eq '' or substr($head,-1) eq $sepchr;
+
+	# escape regex metachars but not glob chars
+	$pat =~ s:([].+^\-\${}()[|]):\\$1:g;
+	# and convert DOS-style wildcards to regex
+	$pat =~ s/\*/.*/g;
+	$pat =~ s/\?/.?/g;
+
+	my $matchsub = sub { $_[0] =~ m|^$pat\z|is };
+      INNER:
+	for my $e (@leaves) {
+	    next INNER if $e eq '.' or $e eq '..';
+	    next INNER if $cond eq 'd' and ! -d "$head$e";
+	    push(@matched, "$head$e"), next INNER if &$matchsub($e);
+	    #
+	    # [DOS compatibility special case]
+	    # Failed, add a trailing dot and try again, but only
+	    # if name does not have a dot in it *and* pattern
+	    # has a dot *and* name is shorter than 9 chars.
+	    #
+	    if (index($e,'.') == -1 and length($e) < 9
+	        and index($pat,'\\.') != -1) {
+		push(@matched, "$head$e"), next INNER if &$matchsub("$e.");
+	    }
+	}
+	push @retval, @matched if @matched;
+    }
+    if ($fix_drive_relative_paths) {
+	s|^([A-Za-z]:)\./|$1| for @retval;
+    }
+    return @retval;
+}
+
+#
+# this can be used to override CORE::glob in a specific
+# package by saying C<use File::DosGlob 'glob';> in that
+# namespace.
+#
+
+# context (keyed by second cxix arg provided by core)
+our %entries;
+
+sub glob {
+    my($pat,$cxix) = ($_[0], _callsite());
+    my @pat;
+
+    # glob without args defaults to $_
+    $pat = $_ unless defined $pat;
+
+    # if we're just beginning, do it all first
+    if (!$entries{$cxix}) {
+      # extract patterns
+      if ($pat =~ /\s/) {
+	require Text::ParseWords;
+	@pat = Text::ParseWords::parse_line('\s+',0,$pat);
+      }
+      else {
+	push @pat, $pat;
+      }
+
+      # Mike Mestnik: made to do abc{1,2,3} == abc1 abc2 abc3.
+      #   abc3 will be the original {3} (and drop the {}).
+      #   abc1 abc2 will be put in @appendpat.
+      # This was just the easiest way, not nearly the best.
+      REHASH: {
+	my @appendpat = ();
+	for (@pat) {
+	    # There must be a "," I.E. abc{efg} is not what we want.
+	    while ( /^(.*)(?<!\\)\{(.*?)(?<!\\)\,.*?(?<!\\)\}(.*)$/ ) {
+		my ($start, $match, $end) = ($1, $2, $3);
+		#print "Got: \n\t$start\n\t$match\n\t$end\n";
+		my $tmp = "$start$match$end";
+		while ( $tmp =~ s/^(.*?)(?<!\\)\{(?:.*(?<!\\)\,)?(.*\Q$match\E.*?)(?:(?<!\\)\,.*)?(?<!\\)\}(.*)$/$1$2$3/ ) {
+		    #  these expansions will be performed by the original,
+		    #  when we call REHASH.
+		}
+		push @appendpat, ("$tmp");
+		s/^\Q$start\E(?<!\\)\{\Q$match\E(?<!\\)\,/$start\{/;
+		if ( /^\Q$start\E(?<!\\)\{(?!.*?(?<!\\)\,.*?\Q$end\E$)(.*)(?<!\\)\}\Q$end\E$/ ) {
+		    $match = $1;
+		    #print "GOT: \n\t$start\n\t$match\n\t$end\n\n";
+		    $_ = "$start$match$end";
+		}
+	    }
+	    #print "Sould have "GOT" vs "Got"!\n";
+		#FIXME: There should be checking for this.
+		#  How or what should be done about failure is beyond me.
+	}
+	if ( $#appendpat != -1
+		) {
+	    #FIXME: Max loop, no way! :")
+	    for ( @appendpat ) {
+	        push @pat, $_;
+	    }
+	    goto REHASH;
+	}
+      }
+      for ( @pat ) {
+	s/\\([{},])/$1/g;
+      }
+ 
+      $entries{$cxix} = [doglob(1,@pat)];
+    }
+
+    # chuck it all out, quick or slow
+    if (wantarray) {
+	return @{delete $entries{$cxix}};
+    }
+    else {
+	if (scalar @{$entries{$cxix}}) {
+	    return shift @{$entries{$cxix}};
+	}
+	else {
+	    # return undef for EOL
+	    delete $entries{$cxix};
+	    return undef;
+	}
+    }
+}
+
+{
+    no strict 'refs';
+
+    sub import {
+    my $pkg = shift;
+    return unless @_;
+    my $sym = shift;
+    my $callpkg = ($sym =~ s/^GLOBAL_//s ? 'CORE::GLOBAL' : caller(0));
+    *{$callpkg.'::'.$sym} = \&{$pkg.'::'.$sym} if $sym eq 'glob';
+    }
+}
+1;
+
+__END__
+
+=head1 NAME
+
+File::DosGlob - DOS like globbing and then some
+
+=head1 SYNOPSIS
+
+    require 5.004;
+
+    # override CORE::glob in current package
+    use File::DosGlob 'glob';
+
+    # override CORE::glob in ALL packages (use with extreme caution!)
+    use File::DosGlob 'GLOBAL_glob';
+
+    @perlfiles = glob  "..\\pe?l/*.p?";
+    print <..\\pe?l/*.p?>;
+
+    # from the command line (overrides only in main::)
+    > perl -MFile::DosGlob=glob -e "print <../pe*/*p?>"
+
+=head1 DESCRIPTION
+
+A module that implements DOS-like globbing with a few enhancements.
+It is largely compatible with perlglob.exe (the M$ setargv.obj
+version) in all but one respect--it understands wildcards in
+directory components.
+
+For example, C<< <..\\l*b\\file/*glob.p?> >> will work as expected (in
+that it will find something like '..\lib\File/DosGlob.pm' alright).
+Note that all path components are case-insensitive, and that
+backslashes and forward slashes are both accepted, and preserved.
+You may have to double the backslashes if you are putting them in
+literally, due to double-quotish parsing of the pattern by perl.
+
+Spaces in the argument delimit distinct patterns, so
+C<glob('*.exe *.dll')> globs all filenames that end in C<.exe>
+or C<.dll>.  If you want to put in literal spaces in the glob
+pattern, you can escape them with either double quotes, or backslashes.
+e.g. C<glob('c:/"Program Files"/*/*.dll')>, or
+C<glob('c:/Program\ Files/*/*.dll')>.  The argument is tokenized using
+C<Text::ParseWords::parse_line()>, so see L<Text::ParseWords> for details
+of the quoting rules used.
+
+Extending it to csh patterns is left as an exercise to the reader.
+
+=head1 EXPORTS (by request only)
+
+glob()
+
+=head1 BUGS
+
+Should probably be built into the core, and needs to stop
+pandering to DOS habits.  Needs a dose of optimization too.
+
+=head1 AUTHOR
+
+Gurusamy Sarathy <gsar@activestate.com>
+
+=head1 HISTORY
+
+=over 4
+
+=item *
+
+Support for globally overriding glob() (GSAR 3-JUN-98)
+
+=item *
+
+Scalar context, independent iterator context fixes (GSAR 15-SEP-97)
+
+=item *
+
+A few dir-vs-file optimizations result in glob importation being
+10 times faster than using perlglob.exe, and using perlglob.bat is
+only twice as slow as perlglob.exe (GSAR 28-MAY-97)
+
+=item *
+
+Several cleanups prompted by lack of compatible perlglob.exe
+under Borland (GSAR 27-MAY-97)
+
+=item *
+
+Initial version (GSAR 20-FEB-97)
+
+=back
+
+=head1 SEE ALSO
+
+perl
+
+perlglob.bat
+
+Text::ParseWords
+
+=cut
+
diff --git a/lib/5.24.1/x86_64-linux/File/Glob.pm b/lib/5.24.1/x86_64-linux/File/Glob.pm
new file mode 100644
index 00000000..c0b5a472
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/File/Glob.pm
@@ -0,0 +1,409 @@
+package File::Glob;
+
+use strict;
+our($VERSION, @ISA, @EXPORT_OK, @EXPORT_FAIL, %EXPORT_TAGS, $DEFAULT_FLAGS);
+
+require XSLoader;
+
+@ISA = qw(Exporter);
+
+# NOTE: The glob() export is only here for compatibility with 5.6.0.
+# csh_glob() should not be used directly, unless you know what you're doing.
+
+%EXPORT_TAGS = (
+    'glob' => [ qw(
+        GLOB_ABEND
+	GLOB_ALPHASORT
+        GLOB_ALTDIRFUNC
+        GLOB_BRACE
+        GLOB_CSH
+        GLOB_ERR
+        GLOB_ERROR
+        GLOB_LIMIT
+        GLOB_MARK
+        GLOB_NOCASE
+        GLOB_NOCHECK
+        GLOB_NOMAGIC
+        GLOB_NOSORT
+        GLOB_NOSPACE
+        GLOB_QUOTE
+        GLOB_TILDE
+        bsd_glob
+        glob
+    ) ],
+);
+$EXPORT_TAGS{bsd_glob} = [@{$EXPORT_TAGS{glob}}];
+pop @{$EXPORT_TAGS{bsd_glob}}; # no "glob"
+
+@EXPORT_OK   = (@{$EXPORT_TAGS{'glob'}}, 'csh_glob');
+
+$VERSION = '1.26';
+
+sub import {
+    require Exporter;
+    local $Exporter::ExportLevel = $Exporter::ExportLevel + 1;
+    Exporter::import(grep {
+        my $passthrough;
+        if ($_ eq ':case') {
+            $DEFAULT_FLAGS &= ~GLOB_NOCASE()
+        }
+        elsif ($_ eq ':nocase') {
+            $DEFAULT_FLAGS |= GLOB_NOCASE();
+        }
+        elsif ($_ eq ':globally') {
+	    no warnings 'redefine';
+	    *CORE::GLOBAL::glob = \&File::Glob::csh_glob;
+	}
+        elsif ($_ eq ':bsd_glob') {
+	    no strict; *{caller."::glob"} = \&bsd_glob_override;
+            $passthrough = 1;
+	}
+	else {
+            $passthrough = 1;
+        }
+        $passthrough;
+    } @_);
+}
+
+XSLoader::load();
+
+$DEFAULT_FLAGS = GLOB_CSH();
+if ($^O =~ /^(?:MSWin32|VMS|os2|dos|riscos)$/) {
+    $DEFAULT_FLAGS |= GLOB_NOCASE();
+}
+
+# File::Glob::glob() is deprecated because its prototype is different from
+# CORE::glob() (use bsd_glob() instead)
+sub glob {
+    splice @_, 1; # no flags
+    goto &bsd_glob;
+}
+
+1;
+__END__
+
+=head1 NAME
+
+File::Glob - Perl extension for BSD glob routine
+
+=head1 SYNOPSIS
+
+  use File::Glob ':bsd_glob';
+
+  @list = bsd_glob('*.[ch]');
+  $homedir = bsd_glob('~gnat', GLOB_TILDE | GLOB_ERR);
+
+  if (GLOB_ERROR) {
+    # an error occurred reading $homedir
+  }
+
+  ## override the core glob (CORE::glob() does this automatically
+  ## by default anyway, since v5.6.0)
+  use File::Glob ':globally';
+  my @sources = <*.{c,h,y}>;
+
+  ## override the core glob, forcing case sensitivity
+  use File::Glob qw(:globally :case);
+  my @sources = <*.{c,h,y}>;
+
+  ## override the core glob forcing case insensitivity
+  use File::Glob qw(:globally :nocase);
+  my @sources = <*.{c,h,y}>;
+
+  ## glob on all files in home directory
+  use File::Glob ':globally';
+  my @sources = <~gnat/*>;
+
+=head1 DESCRIPTION
+
+The glob angle-bracket operator C<< <> >> is a pathname generator that
+implements the rules for file name pattern matching used by Unix-like shells
+such as the Bourne shell or C shell.
+
+File::Glob::bsd_glob() implements the FreeBSD glob(3) routine, which is
+a superset of the POSIX glob() (described in IEEE Std 1003.2 "POSIX.2").
+bsd_glob() takes a mandatory C<pattern> argument, and an optional
+C<flags> argument, and returns a list of filenames matching the
+pattern, with interpretation of the pattern modified by the C<flags>
+variable.
+
+Since v5.6.0, Perl's CORE::glob() is implemented in terms of bsd_glob().
+Note that they don't share the same prototype--CORE::glob() only accepts
+a single argument.  Due to historical reasons, CORE::glob() will also
+split its argument on whitespace, treating it as multiple patterns,
+whereas bsd_glob() considers them as one pattern.  But see C<:bsd_glob>
+under L</EXPORTS>, below.
+
+=head2 META CHARACTERS
+
+  \       Quote the next metacharacter
+  []      Character class
+  {}      Multiple pattern
+  *       Match any string of characters
+  ?       Match any single character
+  ~       User name home directory
+
+The metanotation C<a{b,c,d}e> is a shorthand for C<abe ace ade>.  Left to
+right order is preserved, with results of matches being sorted separately
+at a low level to preserve this order.  As a special case C<{>, C<}>, and
+C<{}> are passed undisturbed.
+
+=head2 EXPORTS
+
+See also the L</POSIX FLAGS> below, which can be exported individually.
+
+=head3 C<:bsd_glob>
+
+The C<:bsd_glob> export tag exports bsd_glob() and the constants listed
+below.  It also overrides glob() in the calling package with one that
+behaves like bsd_glob() with regard to spaces (the space is treated as part
+of a file name), but supports iteration in scalar context; i.e., it
+preserves the core function's feature of returning the next item each time
+it is called.
+
+=head3 C<:glob>
+
+The C<:glob> tag, now discouraged, is the old version of C<:bsd_glob>.  It
+exports the same constants and functions, but its glob() override does not
+support iteration; it returns the last file name in scalar context.  That
+means this will loop forever:
+
+    use File::Glob ':glob';
+    while (my $file = <* copy.txt>) {
+	...
+    }
+
+=head3 C<bsd_glob>
+
+This function, which is included in the two export tags listed above,
+takes one or two arguments.  The first is the glob pattern.  The second is
+a set of flags ORed together.  The available flags are listed below under
+L</POSIX FLAGS>.  If the second argument is omitted, C<GLOB_CSH> (or
+C<GLOB_CSH|GLOB_NOCASE> on VMS and DOSish systems) is used by default.
+
+=head3 C<:nocase> and C<:case>
+
+These two export tags globally modify the default flags that bsd_glob()
+and, except on VMS, Perl's built-in C<glob> operator use.  C<GLOB_NOCASE>
+is turned on or off, respectively.
+
+=head3 C<csh_glob>
+
+The csh_glob() function can also be exported, but you should not use it
+directly unless you really know what you are doing.  It splits the pattern
+into words and feeds each one to bsd_glob().  Perl's own glob() function
+uses this internally.
+
+=head2 POSIX FLAGS
+
+The POSIX defined flags for bsd_glob() are:
+
+=over 4
+
+=item C<GLOB_ERR>
+
+Force bsd_glob() to return an error when it encounters a directory it
+cannot open or read.  Ordinarily bsd_glob() continues to find matches.
+
+=item C<GLOB_LIMIT>
+
+Make bsd_glob() return an error (GLOB_NOSPACE) when the pattern expands
+to a size bigger than the system constant C<ARG_MAX> (usually found in
+limits.h).  If your system does not define this constant, bsd_glob() uses
+C<sysconf(_SC_ARG_MAX)> or C<_POSIX_ARG_MAX> where available (in that
+order).  You can inspect these values using the standard C<POSIX>
+extension.
+
+=item C<GLOB_MARK>
+
+Each pathname that is a directory that matches the pattern has a slash
+appended.
+
+=item C<GLOB_NOCASE>
+
+By default, file names are assumed to be case sensitive; this flag
+makes bsd_glob() treat case differences as not significant.
+
+=item C<GLOB_NOCHECK>
+
+If the pattern does not match any pathname, then bsd_glob() returns a list
+consisting of only the pattern.  If C<GLOB_QUOTE> is set, its effect
+is present in the pattern returned.
+
+=item C<GLOB_NOSORT>
+
+By default, the pathnames are sorted in ascending ASCII order; this
+flag prevents that sorting (speeding up bsd_glob()).
+
+=back
+
+The FreeBSD extensions to the POSIX standard are the following flags:
+
+=over 4
+
+=item C<GLOB_BRACE>
+
+Pre-process the string to expand C<{pat,pat,...}> strings like csh(1).
+The pattern '{}' is left unexpanded for historical reasons (and csh(1)
+does the same thing to ease typing of find(1) patterns).
+
+=item C<GLOB_NOMAGIC>
+
+Same as C<GLOB_NOCHECK> but it only returns the pattern if it does not
+contain any of the special characters "*", "?" or "[".  C<NOMAGIC> is
+provided to simplify implementing the historic csh(1) globbing
+behaviour and should probably not be used anywhere else.
+
+=item C<GLOB_QUOTE>
+
+Use the backslash ('\') character for quoting: every occurrence of a
+backslash followed by a character in the pattern is replaced by that
+character, avoiding any special interpretation of the character.
+(But see below for exceptions on DOSISH systems).
+
+=item C<GLOB_TILDE>
+
+Expand patterns that start with '~' to user name home directories.
+
+=item C<GLOB_CSH>
+
+For convenience, C<GLOB_CSH> is a synonym for
+C<GLOB_BRACE | GLOB_NOMAGIC | GLOB_QUOTE | GLOB_TILDE | GLOB_ALPHASORT>.
+
+=back
+
+The POSIX provided C<GLOB_APPEND>, C<GLOB_DOOFFS>, and the FreeBSD
+extensions C<GLOB_ALTDIRFUNC>, and C<GLOB_MAGCHAR> flags have not been
+implemented in the Perl version because they involve more complex
+interaction with the underlying C structures.
+
+The following flag has been added in the Perl implementation for
+csh compatibility:
+
+=over 4
+
+=item C<GLOB_ALPHASORT>
+
+If C<GLOB_NOSORT> is not in effect, sort filenames is alphabetical
+order (case does not matter) rather than in ASCII order.
+
+=back
+
+=head1 DIAGNOSTICS
+
+bsd_glob() returns a list of matching paths, possibly zero length.  If an
+error occurred, &File::Glob::GLOB_ERROR will be non-zero and C<$!> will be
+set.  &File::Glob::GLOB_ERROR is guaranteed to be zero if no error occurred,
+or one of the following values otherwise:
+
+=over 4
+
+=item C<GLOB_NOSPACE>
+
+An attempt to allocate memory failed.
+
+=item C<GLOB_ABEND>
+
+The glob was stopped because an error was encountered.
+
+=back
+
+In the case where bsd_glob() has found some matching paths, but is
+interrupted by an error, it will return a list of filenames B<and>
+set &File::Glob::ERROR.
+
+Note that bsd_glob() deviates from POSIX and FreeBSD glob(3) behaviour
+by not considering C<ENOENT> and C<ENOTDIR> as errors - bsd_glob() will
+continue processing despite those errors, unless the C<GLOB_ERR> flag is
+set.
+
+Be aware that all filenames returned from File::Glob are tainted.
+
+=head1 NOTES
+
+=over 4
+
+=item *
+
+If you want to use multiple patterns, e.g. C<bsd_glob("a* b*")>, you should
+probably throw them in a set as in C<bsd_glob("{a*,b*}")>.  This is because
+the argument to bsd_glob() isn't subjected to parsing by the C shell.
+Remember that you can use a backslash to escape things.
+
+=item *
+
+On DOSISH systems, backslash is a valid directory separator character.
+In this case, use of backslash as a quoting character (via GLOB_QUOTE)
+interferes with the use of backslash as a directory separator.  The
+best (simplest, most portable) solution is to use forward slashes for
+directory separators, and backslashes for quoting.  However, this does
+not match "normal practice" on these systems.  As a concession to user
+expectation, therefore, backslashes (under GLOB_QUOTE) only quote the
+glob metacharacters '[', ']', '{', '}', '-', '~', and backslash itself.
+All other backslashes are passed through unchanged.
+
+=item *
+
+Win32 users should use the real slash.  If you really want to use
+backslashes, consider using Sarathy's File::DosGlob, which comes with
+the standard Perl distribution.
+
+=back
+
+=head1 SEE ALSO
+
+L<perlfunc/glob>, glob(3)
+
+=head1 AUTHOR
+
+The Perl interface was written by Nathan Torkington E<lt>gnat@frii.comE<gt>,
+and is released under the artistic license.  Further modifications were
+made by Greg Bacon E<lt>gbacon@cs.uah.eduE<gt>, Gurusamy Sarathy
+E<lt>gsar@activestate.comE<gt>, and Thomas Wegner
+E<lt>wegner_thomas@yahoo.comE<gt>.  The C glob code has the
+following copyright:
+
+Copyright (c) 1989, 1993 The Regents of the University of California.
+All rights reserved.
+
+This code is derived from software contributed to Berkeley by
+Guido van Rossum.
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions
+are met:
+
+=over 4
+
+=item 1.
+
+Redistributions of source code must retain the above copyright
+notice, this list of conditions and the following disclaimer.
+
+=item 2.
+
+Redistributions in binary form must reproduce the above copyright
+notice, this list of conditions and the following disclaimer in the
+documentation and/or other materials provided with the distribution.
+
+=item 3.
+
+Neither the name of the University nor the names of its contributors
+may be used to endorse or promote products derived from this software
+without specific prior written permission.
+
+=back
+
+THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS "AS IS" AND
+ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+SUCH DAMAGE.
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/File/Spec.pm b/lib/5.24.1/x86_64-linux/File/Spec.pm
new file mode 100644
index 00000000..3ef0f339
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/File/Spec.pm
@@ -0,0 +1,340 @@
+package File::Spec;
+
+use strict;
+use vars qw(@ISA $VERSION);
+
+$VERSION = '3.63_01';
+$VERSION =~ tr/_//d;
+
+my %module = (MacOS   => 'Mac',
+	      MSWin32 => 'Win32',
+	      os2     => 'OS2',
+	      VMS     => 'VMS',
+	      epoc    => 'Epoc',
+	      NetWare => 'Win32', # Yes, File::Spec::Win32 works on NetWare.
+	      symbian => 'Win32', # Yes, File::Spec::Win32 works on symbian.
+	      dos     => 'OS2',   # Yes, File::Spec::OS2 works on DJGPP.
+	      cygwin  => 'Cygwin',
+	      amigaos => 'AmigaOS');
+
+
+my $module = $module{$^O} || 'Unix';
+
+require "File/Spec/$module.pm";
+@ISA = ("File::Spec::$module");
+
+1;
+
+__END__
+
+=head1 NAME
+
+File::Spec - portably perform operations on file names
+
+=head1 SYNOPSIS
+
+	use File::Spec;
+
+	$x=File::Spec->catfile('a', 'b', 'c');
+
+which returns 'a/b/c' under Unix. Or:
+
+	use File::Spec::Functions;
+
+	$x = catfile('a', 'b', 'c');
+
+=head1 DESCRIPTION
+
+This module is designed to support operations commonly performed on file
+specifications (usually called "file names", but not to be confused with the
+contents of a file, or Perl's file handles), such as concatenating several
+directory and file names into a single path, or determining whether a path
+is rooted. It is based on code directly taken from MakeMaker 5.17, code
+written by Andreas KE<ouml>nig, Andy Dougherty, Charles Bailey, Ilya
+Zakharevich, Paul Schinder, and others.
+
+Since these functions are different for most operating systems, each set of
+OS specific routines is available in a separate module, including:
+
+	File::Spec::Unix
+	File::Spec::Mac
+	File::Spec::OS2
+	File::Spec::Win32
+	File::Spec::VMS
+
+The module appropriate for the current OS is automatically loaded by
+File::Spec. Since some modules (like VMS) make use of facilities available
+only under that OS, it may not be possible to load all modules under all
+operating systems.
+
+Since File::Spec is object oriented, subroutines should not be called directly,
+as in:
+
+	File::Spec::catfile('a','b');
+
+but rather as class methods:
+
+	File::Spec->catfile('a','b');
+
+For simple uses, L<File::Spec::Functions> provides convenient functional
+forms of these methods.
+
+=head1 METHODS
+
+=over 2
+
+=item canonpath
+X<canonpath>
+
+No physical check on the filesystem, but a logical cleanup of a
+path.
+
+    $cpath = File::Spec->canonpath( $path ) ;
+
+Note that this does *not* collapse F<x/../y> sections into F<y>.  This
+is by design.  If F</foo> on your system is a symlink to F</bar/baz>,
+then F</foo/../quux> is actually F</bar/quux>, not F</quux> as a naive
+F<../>-removal would give you.  If you want to do this kind of
+processing, you probably want C<Cwd>'s C<realpath()> function to
+actually traverse the filesystem cleaning up paths like this.
+
+=item catdir
+X<catdir>
+
+Concatenate two or more directory names to form a complete path ending
+with a directory. But remove the trailing slash from the resulting
+string, because it doesn't look good, isn't necessary and confuses
+OS/2. Of course, if this is the root directory, don't cut off the
+trailing slash :-)
+
+    $path = File::Spec->catdir( @directories );
+
+=item catfile
+X<catfile>
+
+Concatenate one or more directory names and a filename to form a
+complete path ending with a filename
+
+    $path = File::Spec->catfile( @directories, $filename );
+
+=item curdir
+X<curdir>
+
+Returns a string representation of the current directory.
+
+    $curdir = File::Spec->curdir();
+
+=item devnull
+X<devnull>
+
+Returns a string representation of the null device.
+
+    $devnull = File::Spec->devnull();
+
+=item rootdir
+X<rootdir>
+
+Returns a string representation of the root directory.
+
+    $rootdir = File::Spec->rootdir();
+
+=item tmpdir
+X<tmpdir>
+
+Returns a string representation of the first writable directory from a
+list of possible temporary directories.  Returns the current directory
+if no writable temporary directories are found.  The list of directories
+checked depends on the platform; e.g. File::Spec::Unix checks C<$ENV{TMPDIR}>
+(unless taint is on) and F</tmp>.
+
+    $tmpdir = File::Spec->tmpdir();
+
+=item updir
+X<updir>
+
+Returns a string representation of the parent directory.
+
+    $updir = File::Spec->updir();
+
+=item no_upwards
+
+Given a list of file names, strip out those that refer to a parent
+directory. (Does not strip symlinks, only '.', '..', and equivalents.)
+
+    @paths = File::Spec->no_upwards( @paths );
+
+=item case_tolerant
+
+Returns a true or false value indicating, respectively, that alphabetic
+case is not or is significant when comparing file specifications.
+Cygwin and Win32 accept an optional drive argument.
+
+    $is_case_tolerant = File::Spec->case_tolerant();
+
+=item file_name_is_absolute
+
+Takes as its argument a path, and returns true if it is an absolute path.
+
+    $is_absolute = File::Spec->file_name_is_absolute( $path );
+
+This does not consult the local filesystem on Unix, Win32, OS/2, or
+Mac OS (Classic).  It does consult the working environment for VMS
+(see L<File::Spec::VMS/file_name_is_absolute>).
+
+=item path
+X<path>
+
+Takes no argument.  Returns the environment variable C<PATH> (or the local
+platform's equivalent) as a list.
+
+    @PATH = File::Spec->path();
+
+=item join
+X<join, path>
+
+join is the same as catfile.
+
+=item splitpath
+X<splitpath> X<split, path>
+
+Splits a path in to volume, directory, and filename portions. On systems
+with no concept of volume, returns '' for volume. 
+
+    ($volume,$directories,$file) =
+                       File::Spec->splitpath( $path );
+    ($volume,$directories,$file) =
+                       File::Spec->splitpath( $path, $no_file );
+
+For systems with no syntax differentiating filenames from directories, 
+assumes that the last file is a path unless C<$no_file> is true or a
+trailing separator or F</.> or F</..> is present. On Unix, this means that C<$no_file>
+true makes this return ( '', $path, '' ).
+
+The directory portion may or may not be returned with a trailing '/'.
+
+The results can be passed to L</catpath()> to get back a path equivalent to
+(usually identical to) the original path.
+
+=item splitdir
+X<splitdir> X<split, dir>
+
+The opposite of L</catdir>.
+
+    @dirs = File::Spec->splitdir( $directories );
+
+C<$directories> must be only the directory portion of the path on systems 
+that have the concept of a volume or that have path syntax that differentiates
+files from directories.
+
+Unlike just splitting the directories on the separator, empty
+directory names (C<''>) can be returned, because these are significant
+on some OSes.
+
+=item catpath()
+
+Takes volume, directory and file portions and returns an entire path. Under
+Unix, C<$volume> is ignored, and directory and file are concatenated.  A '/' is
+inserted if need be.  On other OSes, C<$volume> is significant.
+
+    $full_path = File::Spec->catpath( $volume, $directory, $file );
+
+=item abs2rel
+X<abs2rel> X<absolute, path> X<relative, path>
+
+Takes a destination path and an optional base path returns a relative path
+from the base path to the destination path:
+
+    $rel_path = File::Spec->abs2rel( $path ) ;
+    $rel_path = File::Spec->abs2rel( $path, $base ) ;
+
+If C<$base> is not present or '', then L<Cwd::cwd()|Cwd> is used. If C<$base> is
+relative, then it is converted to absolute form using
+L</rel2abs()>. This means that it is taken to be relative to
+L<Cwd::cwd()|Cwd>.
+
+On systems with the concept of volume, if C<$path> and C<$base> appear to be
+on two different volumes, we will not attempt to resolve the two
+paths, and we will instead simply return C<$path>.  Note that previous
+versions of this module ignored the volume of C<$base>, which resulted in
+garbage results part of the time.
+
+On systems that have a grammar that indicates filenames, this ignores the 
+C<$base> filename as well. Otherwise all path components are assumed to be
+directories.
+
+If C<$path> is relative, it is converted to absolute form using L</rel2abs()>.
+This means that it is taken to be relative to L<Cwd::cwd()|Cwd>.
+
+No checks against the filesystem are made.  On VMS, there is
+interaction with the working environment, as logicals and
+macros are expanded.
+
+Based on code written by Shigio Yamaguchi.
+
+=item rel2abs()
+X<rel2abs> X<absolute, path> X<relative, path>
+
+Converts a relative path to an absolute path. 
+
+    $abs_path = File::Spec->rel2abs( $path ) ;
+    $abs_path = File::Spec->rel2abs( $path, $base ) ;
+
+If C<$base> is not present or '', then L<Cwd::cwd()|Cwd> is used. If C<$base> is relative,
+then it is converted to absolute form using L</rel2abs()>. This means that it
+is taken to be relative to L<Cwd::cwd()|Cwd>.
+
+On systems with the concept of volume, if C<$path> and C<$base> appear to be
+on two different volumes, we will not attempt to resolve the two
+paths, and we will instead simply return C<$path>.  Note that previous
+versions of this module ignored the volume of C<$base>, which resulted in
+garbage results part of the time.
+
+On systems that have a grammar that indicates filenames, this ignores the 
+C<$base> filename as well. Otherwise all path components are assumed to be
+directories.
+
+If C<$path> is absolute, it is cleaned up and returned using L</canonpath>.
+
+No checks against the filesystem are made.  On VMS, there is
+interaction with the working environment, as logicals and
+macros are expanded.
+
+Based on code written by Shigio Yamaguchi.
+
+=back
+
+For further information, please see L<File::Spec::Unix>,
+L<File::Spec::Mac>, L<File::Spec::OS2>, L<File::Spec::Win32>, or
+L<File::Spec::VMS>.
+
+=head1 SEE ALSO
+
+L<File::Spec::Unix>, L<File::Spec::Mac>, L<File::Spec::OS2>,
+L<File::Spec::Win32>, L<File::Spec::VMS>, L<File::Spec::Functions>,
+L<ExtUtils::MakeMaker>
+
+=head1 AUTHOR
+
+Currently maintained by Ken Williams C<< <KWILLIAMS@cpan.org> >>.
+
+The vast majority of the code was written by
+Kenneth Albanowski C<< <kjahds@kjahds.com> >>,
+Andy Dougherty C<< <doughera@lafayette.edu> >>,
+Andreas KE<ouml>nig C<< <A.Koenig@franz.ww.TU-Berlin.DE> >>,
+Tim Bunce C<< <Tim.Bunce@ig.co.uk> >>.
+VMS support by Charles Bailey C<< <bailey@newman.upenn.edu> >>.
+OS/2 support by Ilya Zakharevich C<< <ilya@math.ohio-state.edu> >>.
+Mac support by Paul Schinder C<< <schinder@pobox.com> >>, and
+Thomas Wegner C<< <wegner_thomas@yahoo.com> >>.
+abs2rel() and rel2abs() written by Shigio Yamaguchi C<< <shigio@tamacom.com> >>,
+modified by Barrie Slaymaker C<< <barries@slaysys.com> >>.
+splitpath(), splitdir(), catpath() and catdir() by Barrie Slaymaker.
+
+=head1 COPYRIGHT
+
+Copyright (c) 2004-2013 by the Perl 5 Porters.  All rights reserved.
+
+This program is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/File/Spec/AmigaOS.pm b/lib/5.24.1/x86_64-linux/File/Spec/AmigaOS.pm
new file mode 100644
index 00000000..7a5889ce
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/File/Spec/AmigaOS.pm
@@ -0,0 +1,62 @@
+package File::Spec::AmigaOS;
+
+use strict;
+use vars qw(@ISA $VERSION);
+require File::Spec::Unix;
+
+$VERSION = '3.64';
+$VERSION =~ tr/_//d;
+
+@ISA = qw(File::Spec::Unix);
+
+=head1 NAME
+
+File::Spec::AmigaOS - File::Spec for AmigaOS
+
+=head1 SYNOPSIS
+
+ require File::Spec::AmigaOS; # Done automatically by File::Spec
+                              # if needed
+
+=head1 DESCRIPTION
+
+Methods for manipulating file specifications.
+
+=head1 METHODS
+
+=over 2
+
+=item tmpdir
+
+Returns $ENV{TMPDIR} or if that is unset, "/t".
+
+=cut
+
+my $tmpdir;
+sub tmpdir {
+  return $tmpdir if defined $tmpdir;
+  $tmpdir = $_[0]->_tmpdir( $ENV{TMPDIR}, "/t" );
+}
+
+=item file_name_is_absolute
+
+Returns true if there's a colon in the file name,
+or if it begins with a slash.
+
+=cut
+
+sub file_name_is_absolute {
+  my ($self, $file) = @_;
+
+  # Not 100% robust as a "/" must not preceded a ":"
+  # but this cannot happen in a well formed path.
+  return $file =~ m{^/|:}s;
+}
+
+=back
+
+All the other methods are from L<File::Spec::Unix>.
+
+=cut
+
+1;
diff --git a/lib/5.24.1/x86_64-linux/File/Spec/Cygwin.pm b/lib/5.24.1/x86_64-linux/File/Spec/Cygwin.pm
new file mode 100644
index 00000000..10b14c4b
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/File/Spec/Cygwin.pm
@@ -0,0 +1,164 @@
+package File::Spec::Cygwin;
+
+use strict;
+use vars qw(@ISA $VERSION);
+require File::Spec::Unix;
+
+$VERSION = '3.63_01';
+$VERSION =~ tr/_//d;
+
+@ISA = qw(File::Spec::Unix);
+
+=head1 NAME
+
+File::Spec::Cygwin - methods for Cygwin file specs
+
+=head1 SYNOPSIS
+
+ require File::Spec::Cygwin; # Done internally by File::Spec if needed
+
+=head1 DESCRIPTION
+
+See L<File::Spec> and L<File::Spec::Unix>.  This package overrides the
+implementation of these methods, not the semantics.
+
+This module is still in beta.  Cygwin-knowledgeable folks are invited
+to offer patches and suggestions.
+
+=cut
+
+=pod
+
+=over 4
+
+=item canonpath
+
+Any C<\> (backslashes) are converted to C</> (forward slashes),
+and then File::Spec::Unix canonpath() is called on the result.
+
+=cut
+
+sub canonpath {
+    my($self,$path) = @_;
+    return unless defined $path;
+
+    $path =~ s|\\|/|g;
+
+    # Handle network path names beginning with double slash
+    my $node = '';
+    if ( $path =~ s@^(//[^/]+)(?:/|\z)@/@s ) {
+        $node = $1;
+    }
+    return $node . $self->SUPER::canonpath($path);
+}
+
+sub catdir {
+    my $self = shift;
+    return unless @_;
+
+    # Don't create something that looks like a //network/path
+    if ($_[0] and ($_[0] eq '/' or $_[0] eq '\\')) {
+        shift;
+        return $self->SUPER::catdir('', @_);
+    }
+
+    $self->SUPER::catdir(@_);
+}
+
+=pod
+
+=item file_name_is_absolute
+
+True is returned if the file name begins with C<drive_letter:>,
+and if not, File::Spec::Unix file_name_is_absolute() is called.
+
+=cut
+
+
+sub file_name_is_absolute {
+    my ($self,$file) = @_;
+    return 1 if $file =~ m{^([a-z]:)?[\\/]}is; # C:/test
+    return $self->SUPER::file_name_is_absolute($file);
+}
+
+=item tmpdir (override)
+
+Returns a string representation of the first existing directory
+from the following list:
+
+    $ENV{TMPDIR}
+    /tmp
+    $ENV{'TMP'}
+    $ENV{'TEMP'}
+    C:/temp
+
+If running under taint mode, and if the environment
+variables are tainted, they are not used.
+
+=cut
+
+sub tmpdir {
+    my $cached = $_[0]->_cached_tmpdir(qw 'TMPDIR TMP TEMP');
+    return $cached if defined $cached;
+    $_[0]->_cache_tmpdir(
+        $_[0]->_tmpdir(
+            $ENV{TMPDIR}, "/tmp", $ENV{'TMP'}, $ENV{'TEMP'}, 'C:/temp'
+        ),
+        qw 'TMPDIR TMP TEMP'
+    );
+}
+
+=item case_tolerant
+
+Override Unix. Cygwin case-tolerance depends on managed mount settings and
+as with MsWin32 on GetVolumeInformation() $ouFsFlags == FS_CASE_SENSITIVE,
+indicating the case significance when comparing file specifications.
+Default: 1
+
+=cut
+
+sub case_tolerant {
+  return 1 unless $^O eq 'cygwin'
+    and defined &Cygwin::mount_flags;
+
+  my $drive = shift;
+  if (! $drive) {
+      my @flags = split(/,/, Cygwin::mount_flags('/cygwin'));
+      my $prefix = pop(@flags);
+      if (! $prefix || $prefix eq 'cygdrive') {
+          $drive = '/cygdrive/c';
+      } elsif ($prefix eq '/') {
+          $drive = '/c';
+      } else {
+          $drive = "$prefix/c";
+      }
+  }
+  my $mntopts = Cygwin::mount_flags($drive);
+  if ($mntopts and ($mntopts =~ /,managed/)) {
+    return 0;
+  }
+  eval {
+      local @INC = @INC;
+      pop @INC if $INC[-1] eq '.';
+      require Win32API::File;
+  } or return 1;
+  my $osFsType = "\0"x256;
+  my $osVolName = "\0"x256;
+  my $ouFsFlags = 0;
+  Win32API::File::GetVolumeInformation($drive, $osVolName, 256, [], [], $ouFsFlags, $osFsType, 256 );
+  if ($ouFsFlags & Win32API::File::FS_CASE_SENSITIVE()) { return 0; }
+  else { return 1; }
+}
+
+=back
+
+=head1 COPYRIGHT
+
+Copyright (c) 2004,2007 by the Perl 5 Porters.  All rights reserved.
+
+This program is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
+=cut
+
+1;
diff --git a/lib/5.24.1/x86_64-linux/File/Spec/Epoc.pm b/lib/5.24.1/x86_64-linux/File/Spec/Epoc.pm
new file mode 100644
index 00000000..9b9e1fae
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/File/Spec/Epoc.pm
@@ -0,0 +1,79 @@
+package File::Spec::Epoc;
+
+use strict;
+use vars qw($VERSION @ISA);
+
+$VERSION = '3.63_01';
+$VERSION =~ tr/_//d;
+
+require File::Spec::Unix;
+@ISA = qw(File::Spec::Unix);
+
+=head1 NAME
+
+File::Spec::Epoc - methods for Epoc file specs
+
+=head1 SYNOPSIS
+
+ require File::Spec::Epoc; # Done internally by File::Spec if needed
+
+=head1 DESCRIPTION
+
+See File::Spec::Unix for a documentation of the methods provided
+there.  This package overrides the implementation of these methods, not
+the semantics.
+
+This package is still a work in progress. ;-)
+
+=cut
+
+sub case_tolerant {
+    return 1;
+}
+
+=pod
+
+=over 4
+
+=item canonpath()
+
+No physical check on the filesystem, but a logical cleanup of a
+path.  On UNIX eliminated successive slashes and successive "/.".
+
+=back
+
+=cut
+
+sub canonpath {
+    my ($self,$path) = @_;
+    return unless defined $path;
+
+    $path =~ s|/+|/|g;                             # xx////xx  -> xx/xx
+    $path =~ s|(/\.)+/|/|g;                        # xx/././xx -> xx/xx
+    $path =~ s|^(\./)+||s unless $path eq "./";    # ./xx      -> xx
+    $path =~ s|^/(\.\./)+|/|s;                     # /../../xx -> xx
+    $path =~  s|/\Z(?!\n)|| unless $path eq "/";          # xx/       -> xx
+    return $path;
+}
+
+=pod
+
+=head1 AUTHOR
+
+o.flebbe@gmx.de
+
+=head1 COPYRIGHT
+
+Copyright (c) 2004 by the Perl 5 Porters.  All rights reserved.
+
+This program is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
+=head1 SEE ALSO
+
+See L<File::Spec> and L<File::Spec::Unix>.  This package overrides the
+implementation of these methods, not the semantics.
+
+=cut
+
+1;
diff --git a/lib/5.24.1/x86_64-linux/File/Spec/Functions.pm b/lib/5.24.1/x86_64-linux/File/Spec/Functions.pm
new file mode 100644
index 00000000..a4e1b1bb
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/File/Spec/Functions.pm
@@ -0,0 +1,130 @@
+package File::Spec::Functions;
+
+use File::Spec;
+use strict;
+
+use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $VERSION);
+
+$VERSION = '3.63_01';
+$VERSION =~ tr/_//d;
+
+require Exporter;
+
+@ISA = qw(Exporter);
+
+@EXPORT = qw(
+	canonpath
+	catdir
+	catfile
+	curdir
+	rootdir
+	updir
+	no_upwards
+	file_name_is_absolute
+	path
+);
+
+@EXPORT_OK = qw(
+	devnull
+	tmpdir
+	splitpath
+	splitdir
+	catpath
+	abs2rel
+	rel2abs
+	case_tolerant
+);
+
+%EXPORT_TAGS = ( ALL => [ @EXPORT_OK, @EXPORT ] );
+
+require File::Spec::Unix;
+my %udeps = (
+    canonpath => [],
+    catdir => [qw(canonpath)],
+    catfile => [qw(canonpath catdir)],
+    case_tolerant => [],
+    curdir => [],
+    devnull => [],
+    rootdir => [],
+    updir => [],
+);
+
+foreach my $meth (@EXPORT, @EXPORT_OK) {
+    my $sub = File::Spec->can($meth);
+    no strict 'refs';
+    if (exists($udeps{$meth}) && $sub == File::Spec::Unix->can($meth) &&
+	    !(grep {
+		File::Spec->can($_) != File::Spec::Unix->can($_)
+	    } @{$udeps{$meth}}) &&
+	    defined(&{"File::Spec::Unix::_fn_$meth"})) {
+	*{$meth} = \&{"File::Spec::Unix::_fn_$meth"};
+    } else {
+	*{$meth} = sub {&$sub('File::Spec', @_)};
+    }
+}
+
+
+1;
+__END__
+
+=head1 NAME
+
+File::Spec::Functions - portably perform operations on file names
+
+=head1 SYNOPSIS
+
+	use File::Spec::Functions;
+	$x = catfile('a','b');
+
+=head1 DESCRIPTION
+
+This module exports convenience functions for all of the class methods
+provided by File::Spec.
+
+For a reference of available functions, please consult L<File::Spec::Unix>,
+which contains the entire set, and which is inherited by the modules for
+other platforms. For further information, please see L<File::Spec::Mac>,
+L<File::Spec::OS2>, L<File::Spec::Win32>, or L<File::Spec::VMS>.
+
+=head2 Exports
+
+The following functions are exported by default.
+
+	canonpath
+	catdir
+	catfile
+	curdir
+	rootdir
+	updir
+	no_upwards
+	file_name_is_absolute
+	path
+
+
+The following functions are exported only by request.
+
+	devnull
+	tmpdir
+	splitpath
+	splitdir
+	catpath
+	abs2rel
+	rel2abs
+	case_tolerant
+
+All the functions may be imported using the C<:ALL> tag.
+
+=head1 COPYRIGHT
+
+Copyright (c) 2004 by the Perl 5 Porters.  All rights reserved.
+
+This program is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
+=head1 SEE ALSO
+
+File::Spec, File::Spec::Unix, File::Spec::Mac, File::Spec::OS2,
+File::Spec::Win32, File::Spec::VMS, ExtUtils::MakeMaker
+
+=cut
+
diff --git a/lib/5.24.1/x86_64-linux/File/Spec/Mac.pm b/lib/5.24.1/x86_64-linux/File/Spec/Mac.pm
new file mode 100644
index 00000000..22424f32
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/File/Spec/Mac.pm
@@ -0,0 +1,786 @@
+package File::Spec::Mac;
+
+use strict;
+use vars qw(@ISA $VERSION);
+require File::Spec::Unix;
+
+$VERSION = '3.63_01';
+$VERSION =~ tr/_//d;
+
+@ISA = qw(File::Spec::Unix);
+
+my $macfiles;
+if ($^O eq 'MacOS') {
+	$macfiles = eval { require Mac::Files };
+}
+
+sub case_tolerant { 1 }
+
+
+=head1 NAME
+
+File::Spec::Mac - File::Spec for Mac OS (Classic)
+
+=head1 SYNOPSIS
+
+ require File::Spec::Mac; # Done internally by File::Spec if needed
+
+=head1 DESCRIPTION
+
+Methods for manipulating file specifications.
+
+=head1 METHODS
+
+=over 2
+
+=item canonpath
+
+On Mac OS, there's nothing to be done. Returns what it's given.
+
+=cut
+
+sub canonpath {
+    my ($self,$path) = @_;
+    return $path;
+}
+
+=item catdir()
+
+Concatenate two or more directory names to form a path separated by colons
+(":") ending with a directory. Resulting paths are B<relative> by default,
+but can be forced to be absolute (but avoid this, see below). Automatically
+puts a trailing ":" on the end of the complete path, because that's what's
+done in MacPerl's environment and helps to distinguish a file path from a
+directory path.
+
+B<IMPORTANT NOTE:> Beginning with version 1.3 of this module, the resulting
+path is relative by default and I<not> absolute. This decision was made due
+to portability reasons. Since C<File::Spec-E<gt>catdir()> returns relative paths
+on all other operating systems, it will now also follow this convention on Mac
+OS. Note that this may break some existing scripts.
+
+The intended purpose of this routine is to concatenate I<directory names>.
+But because of the nature of Macintosh paths, some additional possibilities
+are allowed to make using this routine give reasonable results for some
+common situations. In other words, you are also allowed to concatenate
+I<paths> instead of directory names (strictly speaking, a string like ":a"
+is a path, but not a name, since it contains a punctuation character ":").
+
+So, beside calls like
+
+    catdir("a") = ":a:"
+    catdir("a","b") = ":a:b:"
+    catdir() = ""                    (special case)
+
+calls like the following
+
+    catdir(":a:") = ":a:"
+    catdir(":a","b") = ":a:b:"
+    catdir(":a:","b") = ":a:b:"
+    catdir(":a:",":b:") = ":a:b:"
+    catdir(":") = ":"
+
+are allowed.
+
+Here are the rules that are used in C<catdir()>; note that we try to be as
+compatible as possible to Unix:
+
+=over 2
+
+=item 1.
+
+The resulting path is relative by default, i.e. the resulting path will have a
+leading colon.
+
+=item 2.
+
+A trailing colon is added automatically to the resulting path, to denote a
+directory.
+
+=item 3.
+
+Generally, each argument has one leading ":" and one trailing ":"
+removed (if any). They are then joined together by a ":". Special
+treatment applies for arguments denoting updir paths like "::lib:",
+see (4), or arguments consisting solely of colons ("colon paths"),
+see (5).
+
+=item 4.
+
+When an updir path like ":::lib::" is passed as argument, the number
+of directories to climb up is handled correctly, not removing leading
+or trailing colons when necessary. E.g.
+
+    catdir(":::a","::b","c")    = ":::a::b:c:"
+    catdir(":::a::","::b","c")  = ":::a:::b:c:"
+
+=item 5.
+
+Adding a colon ":" or empty string "" to a path at I<any> position
+doesn't alter the path, i.e. these arguments are ignored. (When a ""
+is passed as the first argument, it has a special meaning, see
+(6)). This way, a colon ":" is handled like a "." (curdir) on Unix,
+while an empty string "" is generally ignored (see
+C<Unix-E<gt>canonpath()> ). Likewise, a "::" is handled like a ".."
+(updir), and a ":::" is handled like a "../.." etc.  E.g.
+
+    catdir("a",":",":","b")   = ":a:b:"
+    catdir("a",":","::",":b") = ":a::b:"
+
+=item 6.
+
+If the first argument is an empty string "" or is a volume name, i.e. matches
+the pattern /^[^:]+:/, the resulting path is B<absolute>.
+
+=item 7.
+
+Passing an empty string "" as the first argument to C<catdir()> is
+like passingC<File::Spec-E<gt>rootdir()> as the first argument, i.e.
+
+    catdir("","a","b")          is the same as
+
+    catdir(rootdir(),"a","b").
+
+This is true on Unix, where C<catdir("","a","b")> yields "/a/b" and
+C<rootdir()> is "/". Note that C<rootdir()> on Mac OS is the startup
+volume, which is the closest in concept to Unix' "/". This should help
+to run existing scripts originally written for Unix.
+
+=item 8.
+
+For absolute paths, some cleanup is done, to ensure that the volume
+name isn't immediately followed by updirs. This is invalid, because
+this would go beyond "root". Generally, these cases are handled like
+their Unix counterparts:
+
+ Unix:
+    Unix->catdir("","")                 =  "/"
+    Unix->catdir("",".")                =  "/"
+    Unix->catdir("","..")               =  "/"        # can't go
+                                                      # beyond root
+    Unix->catdir("",".","..","..","a")  =  "/a"
+ Mac:
+    Mac->catdir("","")                  =  rootdir()  # (e.g. "HD:")
+    Mac->catdir("",":")                 =  rootdir()
+    Mac->catdir("","::")                =  rootdir()  # can't go
+                                                      # beyond root
+    Mac->catdir("",":","::","::","a")   =  rootdir() . "a:"
+                                                    # (e.g. "HD:a:")
+
+However, this approach is limited to the first arguments following
+"root" (again, see C<Unix-E<gt>canonpath()> ). If there are more
+arguments that move up the directory tree, an invalid path going
+beyond root can be created.
+
+=back
+
+As you've seen, you can force C<catdir()> to create an absolute path
+by passing either an empty string or a path that begins with a volume
+name as the first argument. However, you are strongly encouraged not
+to do so, since this is done only for backward compatibility. Newer
+versions of File::Spec come with a method called C<catpath()> (see
+below), that is designed to offer a portable solution for the creation
+of absolute paths.  It takes volume, directory and file portions and
+returns an entire path. While C<catdir()> is still suitable for the
+concatenation of I<directory names>, you are encouraged to use
+C<catpath()> to concatenate I<volume names> and I<directory
+paths>. E.g.
+
+    $dir      = File::Spec->catdir("tmp","sources");
+    $abs_path = File::Spec->catpath("MacintoshHD:", $dir,"");
+
+yields
+
+    "MacintoshHD:tmp:sources:" .
+
+=cut
+
+sub catdir {
+	my $self = shift;
+	return '' unless @_;
+	my @args = @_;
+	my $first_arg;
+	my $relative;
+
+	# take care of the first argument
+
+	if ($args[0] eq '')  { # absolute path, rootdir
+		shift @args;
+		$relative = 0;
+		$first_arg = $self->rootdir;
+
+	} elsif ($args[0] =~ /^[^:]+:/) { # absolute path, volume name
+		$relative = 0;
+		$first_arg = shift @args;
+		# add a trailing ':' if need be (may be it's a path like HD:dir)
+		$first_arg = "$first_arg:" unless ($first_arg =~ /:\Z(?!\n)/);
+
+	} else { # relative path
+		$relative = 1;
+		if ( $args[0] =~ /^::+\Z(?!\n)/ ) {
+			# updir colon path ('::', ':::' etc.), don't shift
+			$first_arg = ':';
+		} elsif ($args[0] eq ':') {
+			$first_arg = shift @args;
+		} else {
+			# add a trailing ':' if need be
+			$first_arg = shift @args;
+			$first_arg = "$first_arg:" unless ($first_arg =~ /:\Z(?!\n)/);
+		}
+	}
+
+	# For all other arguments,
+	# (a) ignore arguments that equal ':' or '',
+	# (b) handle updir paths specially:
+	#     '::' 			-> concatenate '::'
+	#     '::' . '::' 	-> concatenate ':::' etc.
+	# (c) add a trailing ':' if need be
+
+	my $result = $first_arg;
+	while (@args) {
+		my $arg = shift @args;
+		unless (($arg eq '') || ($arg eq ':')) {
+			if ($arg =~ /^::+\Z(?!\n)/ ) { # updir colon path like ':::'
+				my $updir_count = length($arg) - 1;
+				while ((@args) && ($args[0] =~ /^::+\Z(?!\n)/) ) { # while updir colon path
+					$arg = shift @args;
+					$updir_count += (length($arg) - 1);
+				}
+				$arg = (':' x $updir_count);
+			} else {
+				$arg =~ s/^://s; # remove a leading ':' if any
+				$arg = "$arg:" unless ($arg =~ /:\Z(?!\n)/); # ensure trailing ':'
+			}
+			$result .= $arg;
+		}#unless
+	}
+
+	if ( ($relative) && ($result !~ /^:/) ) {
+		# add a leading colon if need be
+		$result = ":$result";
+	}
+
+	unless ($relative) {
+		# remove updirs immediately following the volume name
+		$result =~ s/([^:]+:)(:*)(.*)\Z(?!\n)/$1$3/;
+	}
+
+	return $result;
+}
+
+=item catfile
+
+Concatenate one or more directory names and a filename to form a
+complete path ending with a filename. Resulting paths are B<relative>
+by default, but can be forced to be absolute (but avoid this).
+
+B<IMPORTANT NOTE:> Beginning with version 1.3 of this module, the
+resulting path is relative by default and I<not> absolute. This
+decision was made due to portability reasons. Since
+C<File::Spec-E<gt>catfile()> returns relative paths on all other
+operating systems, it will now also follow this convention on Mac OS.
+Note that this may break some existing scripts.
+
+The last argument is always considered to be the file portion. Since
+C<catfile()> uses C<catdir()> (see above) for the concatenation of the
+directory portions (if any), the following with regard to relative and
+absolute paths is true:
+
+    catfile("")     = ""
+    catfile("file") = "file"
+
+but
+
+    catfile("","")        = rootdir()         # (e.g. "HD:")
+    catfile("","file")    = rootdir() . file  # (e.g. "HD:file")
+    catfile("HD:","file") = "HD:file"
+
+This means that C<catdir()> is called only when there are two or more
+arguments, as one might expect.
+
+Note that the leading ":" is removed from the filename, so that
+
+    catfile("a","b","file")  = ":a:b:file"    and
+
+    catfile("a","b",":file") = ":a:b:file"
+
+give the same answer.
+
+To concatenate I<volume names>, I<directory paths> and I<filenames>,
+you are encouraged to use C<catpath()> (see below).
+
+=cut
+
+sub catfile {
+    my $self = shift;
+    return '' unless @_;
+    my $file = pop @_;
+    return $file unless @_;
+    my $dir = $self->catdir(@_);
+    $file =~ s/^://s;
+    return $dir.$file;
+}
+
+=item curdir
+
+Returns a string representing the current directory. On Mac OS, this is ":".
+
+=cut
+
+sub curdir {
+    return ":";
+}
+
+=item devnull
+
+Returns a string representing the null device. On Mac OS, this is "Dev:Null".
+
+=cut
+
+sub devnull {
+    return "Dev:Null";
+}
+
+=item rootdir
+
+Returns a string representing the root directory.  Under MacPerl,
+returns the name of the startup volume, since that's the closest in
+concept, although other volumes aren't rooted there. The name has a
+trailing ":", because that's the correct specification for a volume
+name on Mac OS.
+
+If Mac::Files could not be loaded, the empty string is returned.
+
+=cut
+
+sub rootdir {
+#
+#  There's no real root directory on Mac OS. The name of the startup
+#  volume is returned, since that's the closest in concept.
+#
+    return '' unless $macfiles;
+    my $system = Mac::Files::FindFolder(&Mac::Files::kOnSystemDisk,
+	&Mac::Files::kSystemFolderType);
+    $system =~ s/:.*\Z(?!\n)/:/s;
+    return $system;
+}
+
+=item tmpdir
+
+Returns the contents of $ENV{TMPDIR}, if that directory exits or the
+current working directory otherwise. Under MacPerl, $ENV{TMPDIR} will
+contain a path like "MacintoshHD:Temporary Items:", which is a hidden
+directory on your startup volume.
+
+=cut
+
+sub tmpdir {
+    my $cached = $_[0]->_cached_tmpdir('TMPDIR');
+    return $cached if defined $cached;
+    $_[0]->_cache_tmpdir($_[0]->_tmpdir( $ENV{TMPDIR} ), 'TMPDIR');
+}
+
+=item updir
+
+Returns a string representing the parent directory. On Mac OS, this is "::".
+
+=cut
+
+sub updir {
+    return "::";
+}
+
+=item file_name_is_absolute
+
+Takes as argument a path and returns true, if it is an absolute path.
+If the path has a leading ":", it's a relative path. Otherwise, it's an
+absolute path, unless the path doesn't contain any colons, i.e. it's a name
+like "a". In this particular case, the path is considered to be relative
+(i.e. it is considered to be a filename). Use ":" in the appropriate place
+in the path if you want to distinguish unambiguously. As a special case,
+the filename '' is always considered to be absolute. Note that with version
+1.2 of File::Spec::Mac, this does no longer consult the local filesystem.
+
+E.g.
+
+    File::Spec->file_name_is_absolute("a");         # false (relative)
+    File::Spec->file_name_is_absolute(":a:b:");     # false (relative)
+    File::Spec->file_name_is_absolute("MacintoshHD:");
+                                                    # true (absolute)
+    File::Spec->file_name_is_absolute("");          # true (absolute)
+
+
+=cut
+
+sub file_name_is_absolute {
+    my ($self,$file) = @_;
+    if ($file =~ /:/) {
+	return (! ($file =~ m/^:/s) );
+    } elsif ( $file eq '' ) {
+        return 1 ;
+    } else {
+	return 0; # i.e. a file like "a"
+    }
+}
+
+=item path
+
+Returns the null list for the MacPerl application, since the concept is
+usually meaningless under Mac OS. But if you're using the MacPerl tool under
+MPW, it gives back $ENV{Commands} suitably split, as is done in
+:lib:ExtUtils:MM_Mac.pm.
+
+=cut
+
+sub path {
+#
+#  The concept is meaningless under the MacPerl application.
+#  Under MPW, it has a meaning.
+#
+    return unless exists $ENV{Commands};
+    return split(/,/, $ENV{Commands});
+}
+
+=item splitpath
+
+    ($volume,$directories,$file) = File::Spec->splitpath( $path );
+    ($volume,$directories,$file) = File::Spec->splitpath( $path,
+                                                          $no_file );
+
+Splits a path into volume, directory, and filename portions.
+
+On Mac OS, assumes that the last part of the path is a filename unless
+$no_file is true or a trailing separator ":" is present.
+
+The volume portion is always returned with a trailing ":". The directory portion
+is always returned with a leading (to denote a relative path) and a trailing ":"
+(to denote a directory). The file portion is always returned I<without> a leading ":".
+Empty portions are returned as empty string ''.
+
+The results can be passed to C<catpath()> to get back a path equivalent to
+(usually identical to) the original path.
+
+
+=cut
+
+sub splitpath {
+    my ($self,$path, $nofile) = @_;
+    my ($volume,$directory,$file);
+
+    if ( $nofile ) {
+        ( $volume, $directory ) = $path =~ m|^((?:[^:]+:)?)(.*)|s;
+    }
+    else {
+        $path =~
+            m|^( (?: [^:]+: )? )
+               ( (?: .*: )? )
+               ( .* )
+             |xs;
+        $volume    = $1;
+        $directory = $2;
+        $file      = $3;
+    }
+
+    $volume = '' unless defined($volume);
+	$directory = ":$directory" if ( $volume && $directory ); # take care of "HD::dir"
+    if ($directory) {
+        # Make sure non-empty directories begin and end in ':'
+        $directory .= ':' unless (substr($directory,-1) eq ':');
+        $directory = ":$directory" unless (substr($directory,0,1) eq ':');
+    } else {
+	$directory = '';
+    }
+    $file = '' unless defined($file);
+
+    return ($volume,$directory,$file);
+}
+
+
+=item splitdir
+
+The opposite of C<catdir()>.
+
+    @dirs = File::Spec->splitdir( $directories );
+
+$directories should be only the directory portion of the path on systems
+that have the concept of a volume or that have path syntax that differentiates
+files from directories. Consider using C<splitpath()> otherwise.
+
+Unlike just splitting the directories on the separator, empty directory names
+(C<"">) can be returned. Since C<catdir()> on Mac OS always appends a trailing
+colon to distinguish a directory path from a file path, a single trailing colon
+will be ignored, i.e. there's no empty directory name after it.
+
+Hence, on Mac OS, both
+
+    File::Spec->splitdir( ":a:b::c:" );    and
+    File::Spec->splitdir( ":a:b::c" );
+
+yield:
+
+    ( "a", "b", "::", "c")
+
+while
+
+    File::Spec->splitdir( ":a:b::c::" );
+
+yields:
+
+    ( "a", "b", "::", "c", "::")
+
+
+=cut
+
+sub splitdir {
+	my ($self, $path) = @_;
+	my @result = ();
+	my ($head, $sep, $tail, $volume, $directories);
+
+	return @result if ( (!defined($path)) || ($path eq '') );
+	return (':') if ($path eq ':');
+
+	( $volume, $sep, $directories ) = $path =~ m|^((?:[^:]+:)?)(:*)(.*)|s;
+
+	# deprecated, but handle it correctly
+	if ($volume) {
+		push (@result, $volume);
+		$sep .= ':';
+	}
+
+	while ($sep || $directories) {
+		if (length($sep) > 1) {
+			my $updir_count = length($sep) - 1;
+			for (my $i=0; $i<$updir_count; $i++) {
+				# push '::' updir_count times;
+				# simulate Unix '..' updirs
+				push (@result, '::');
+			}
+		}
+		$sep = '';
+		if ($directories) {
+			( $head, $sep, $tail ) = $directories =~ m|^((?:[^:]+)?)(:*)(.*)|s;
+			push (@result, $head);
+			$directories = $tail;
+		}
+	}
+	return @result;
+}
+
+
+=item catpath
+
+    $path = File::Spec->catpath($volume,$directory,$file);
+
+Takes volume, directory and file portions and returns an entire path. On Mac OS,
+$volume, $directory and $file are concatenated.  A ':' is inserted if need be. You
+may pass an empty string for each portion. If all portions are empty, the empty
+string is returned. If $volume is empty, the result will be a relative path,
+beginning with a ':'. If $volume and $directory are empty, a leading ":" (if any)
+is removed form $file and the remainder is returned. If $file is empty, the
+resulting path will have a trailing ':'.
+
+
+=cut
+
+sub catpath {
+    my ($self,$volume,$directory,$file) = @_;
+
+    if ( (! $volume) && (! $directory) ) {
+	$file =~ s/^:// if $file;
+	return $file ;
+    }
+
+    # We look for a volume in $volume, then in $directory, but not both
+
+    my ($dir_volume, $dir_dirs) = $self->splitpath($directory, 1);
+
+    $volume = $dir_volume unless length $volume;
+    my $path = $volume; # may be ''
+    $path .= ':' unless (substr($path, -1) eq ':'); # ensure trailing ':'
+
+    if ($directory) {
+	$directory = $dir_dirs if $volume;
+	$directory =~ s/^://; # remove leading ':' if any
+	$path .= $directory;
+	$path .= ':' unless (substr($path, -1) eq ':'); # ensure trailing ':'
+    }
+
+    if ($file) {
+	$file =~ s/^://; # remove leading ':' if any
+	$path .= $file;
+    }
+
+    return $path;
+}
+
+=item abs2rel
+
+Takes a destination path and an optional base path and returns a relative path
+from the base path to the destination path:
+
+    $rel_path = File::Spec->abs2rel( $path ) ;
+    $rel_path = File::Spec->abs2rel( $path, $base ) ;
+
+Note that both paths are assumed to have a notation that distinguishes a
+directory path (with trailing ':') from a file path (without trailing ':').
+
+If $base is not present or '', then the current working directory is used.
+If $base is relative, then it is converted to absolute form using C<rel2abs()>.
+This means that it is taken to be relative to the current working directory.
+
+If $path and $base appear to be on two different volumes, we will not
+attempt to resolve the two paths, and we will instead simply return
+$path.  Note that previous versions of this module ignored the volume
+of $base, which resulted in garbage results part of the time.
+
+If $base doesn't have a trailing colon, the last element of $base is
+assumed to be a filename.  This filename is ignored.  Otherwise all path
+components are assumed to be directories.
+
+If $path is relative, it is converted to absolute form using C<rel2abs()>.
+This means that it is taken to be relative to the current working directory.
+
+Based on code written by Shigio Yamaguchi.
+
+
+=cut
+
+# maybe this should be done in canonpath() ?
+sub _resolve_updirs {
+	my $path = shift @_;
+	my $proceed;
+
+	# resolve any updirs, e.g. "HD:tmp::file" -> "HD:file"
+	do {
+		$proceed = ($path =~ s/^(.*):[^:]+::(.*?)\z/$1:$2/);
+	} while ($proceed);
+
+	return $path;
+}
+
+
+sub abs2rel {
+    my($self,$path,$base) = @_;
+
+    # Clean up $path
+    if ( ! $self->file_name_is_absolute( $path ) ) {
+        $path = $self->rel2abs( $path ) ;
+    }
+
+    # Figure out the effective $base and clean it up.
+    if ( !defined( $base ) || $base eq '' ) {
+	$base = $self->_cwd();
+    }
+    elsif ( ! $self->file_name_is_absolute( $base ) ) {
+        $base = $self->rel2abs( $base ) ;
+	$base = _resolve_updirs( $base ); # resolve updirs in $base
+    }
+    else {
+	$base = _resolve_updirs( $base );
+    }
+
+    # Split up paths - ignore $base's file
+    my ( $path_vol, $path_dirs, $path_file ) =  $self->splitpath( $path );
+    my ( $base_vol, $base_dirs )             =  $self->splitpath( $base );
+
+    return $path unless lc( $path_vol ) eq lc( $base_vol );
+
+    # Now, remove all leading components that are the same
+    my @pathchunks = $self->splitdir( $path_dirs );
+    my @basechunks = $self->splitdir( $base_dirs );
+	
+    while ( @pathchunks &&
+	    @basechunks &&
+	    lc( $pathchunks[0] ) eq lc( $basechunks[0] ) ) {
+        shift @pathchunks ;
+        shift @basechunks ;
+    }
+
+    # @pathchunks now has the directories to descend in to.
+    # ensure relative path, even if @pathchunks is empty
+    $path_dirs = $self->catdir( ':', @pathchunks );
+
+    # @basechunks now contains the number of directories to climb out of.
+    $base_dirs = (':' x @basechunks) . ':' ;
+
+    return $self->catpath( '', $self->catdir( $base_dirs, $path_dirs ), $path_file ) ;
+}
+
+=item rel2abs
+
+Converts a relative path to an absolute path:
+
+    $abs_path = File::Spec->rel2abs( $path ) ;
+    $abs_path = File::Spec->rel2abs( $path, $base ) ;
+
+Note that both paths are assumed to have a notation that distinguishes a
+directory path (with trailing ':') from a file path (without trailing ':').
+
+If $base is not present or '', then $base is set to the current working
+directory. If $base is relative, then it is converted to absolute form
+using C<rel2abs()>. This means that it is taken to be relative to the
+current working directory.
+
+If $base doesn't have a trailing colon, the last element of $base is
+assumed to be a filename.  This filename is ignored.  Otherwise all path
+components are assumed to be directories.
+
+If $path is already absolute, it is returned and $base is ignored.
+
+Based on code written by Shigio Yamaguchi.
+
+=cut
+
+sub rel2abs {
+    my ($self,$path,$base) = @_;
+
+    if ( ! $self->file_name_is_absolute($path) ) {
+        # Figure out the effective $base and clean it up.
+        if ( !defined( $base ) || $base eq '' ) {
+	    $base = $self->_cwd();
+        }
+        elsif ( ! $self->file_name_is_absolute($base) ) {
+            $base = $self->rel2abs($base) ;
+        }
+
+	# Split up paths
+
+	# ignore $path's volume
+        my ( $path_dirs, $path_file ) = ($self->splitpath($path))[1,2] ;
+
+        # ignore $base's file part
+	my ( $base_vol, $base_dirs ) = $self->splitpath($base) ;
+
+	# Glom them together
+	$path_dirs = ':' if ($path_dirs eq '');
+	$base_dirs =~ s/:$//; # remove trailing ':', if any
+	$base_dirs = $base_dirs . $path_dirs;
+
+        $path = $self->catpath( $base_vol, $base_dirs, $path_file );
+    }
+    return $path;
+}
+
+
+=back
+
+=head1 AUTHORS
+
+See the authors list in I<File::Spec>. Mac OS support by Paul Schinder
+<schinder@pobox.com> and Thomas Wegner <wegner_thomas@yahoo.com>.
+
+=head1 COPYRIGHT
+
+Copyright (c) 2004 by the Perl 5 Porters.  All rights reserved.
+
+This program is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
+=head1 SEE ALSO
+
+See L<File::Spec> and L<File::Spec::Unix>.  This package overrides the
+implementation of these methods, not the semantics.
+
+=cut
+
+1;
diff --git a/lib/5.24.1/x86_64-linux/File/Spec/OS2.pm b/lib/5.24.1/x86_64-linux/File/Spec/OS2.pm
new file mode 100644
index 00000000..0119042c
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/File/Spec/OS2.pm
@@ -0,0 +1,276 @@
+package File::Spec::OS2;
+
+use strict;
+use vars qw(@ISA $VERSION);
+require File::Spec::Unix;
+
+$VERSION = '3.63_01';
+$VERSION =~ tr/_//d;
+
+@ISA = qw(File::Spec::Unix);
+
+sub devnull {
+    return "/dev/nul";
+}
+
+sub case_tolerant {
+    return 1;
+}
+
+sub file_name_is_absolute {
+    my ($self,$file) = @_;
+    return scalar($file =~ m{^([a-z]:)?[\\/]}is);
+}
+
+sub path {
+    my $path = $ENV{PATH};
+    $path =~ s:\\:/:g;
+    my @path = split(';',$path);
+    foreach (@path) { $_ = '.' if $_ eq '' }
+    return @path;
+}
+
+sub _cwd {
+    # In OS/2 the "require Cwd" is unnecessary bloat.
+    return Cwd::sys_cwd();
+}
+
+sub tmpdir {
+    my $cached = $_[0]->_cached_tmpdir(qw 'TMPDIR TEMP TMP');
+    return $cached if defined $cached;
+    my @d = @ENV{qw(TMPDIR TEMP TMP)};	# function call could autovivivy
+    $_[0]->_cache_tmpdir(
+	$_[0]->_tmpdir( @d, '/tmp', '/' ), qw 'TMPDIR TEMP TMP'
+    );
+}
+
+sub catdir {
+    my $self = shift;
+    my @args = @_;
+    foreach (@args) {
+	tr[\\][/];
+        # append a backslash to each argument unless it has one there
+        $_ .= "/" unless m{/$};
+    }
+    return $self->canonpath(join('', @args));
+}
+
+sub canonpath {
+    my ($self,$path) = @_;
+    return unless defined $path;
+
+    $path =~ s/^([a-z]:)/\l$1/s;
+    $path =~ s|\\|/|g;
+    $path =~ s|([^/])/+|$1/|g;                  # xx////xx  -> xx/xx
+    $path =~ s|(/\.)+/|/|g;                     # xx/././xx -> xx/xx
+    $path =~ s|^(\./)+(?=[^/])||s;		# ./xx      -> xx
+    $path =~ s|/\Z(?!\n)||
+             unless $path =~ m#^([a-z]:)?/\Z(?!\n)#si;# xx/       -> xx
+    $path =~ s{^/\.\.$}{/};                     # /..    -> /
+    1 while $path =~ s{^/\.\.}{};               # /../xx -> /xx
+    return $path;
+}
+
+
+sub splitpath {
+    my ($self,$path, $nofile) = @_;
+    my ($volume,$directory,$file) = ('','','');
+    if ( $nofile ) {
+        $path =~ 
+            m{^( (?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)? ) 
+                 (.*)
+             }xs;
+        $volume    = $1;
+        $directory = $2;
+    }
+    else {
+        $path =~ 
+            m{^ ( (?: [a-zA-Z]: |
+                      (?:\\\\|//)[^\\/]+[\\/][^\\/]+
+                  )?
+                )
+                ( (?:.*[\\\\/](?:\.\.?\Z(?!\n))?)? )
+                (.*)
+             }xs;
+        $volume    = $1;
+        $directory = $2;
+        $file      = $3;
+    }
+
+    return ($volume,$directory,$file);
+}
+
+
+sub splitdir {
+    my ($self,$directories) = @_ ;
+    split m|[\\/]|, $directories, -1;
+}
+
+
+sub catpath {
+    my ($self,$volume,$directory,$file) = @_;
+
+    # If it's UNC, make sure the glue separator is there, reusing
+    # whatever separator is first in the $volume
+    $volume .= $1
+        if ( $volume =~ m@^([\\/])[\\/][^\\/]+[\\/][^\\/]+\Z(?!\n)@s &&
+             $directory =~ m@^[^\\/]@s
+           ) ;
+
+    $volume .= $directory ;
+
+    # If the volume is not just A:, make sure the glue separator is 
+    # there, reusing whatever separator is first in the $volume if possible.
+    if ( $volume !~ m@^[a-zA-Z]:\Z(?!\n)@s &&
+         $volume =~ m@[^\\/]\Z(?!\n)@      &&
+         $file   =~ m@[^\\/]@
+       ) {
+        $volume =~ m@([\\/])@ ;
+        my $sep = $1 ? $1 : '/' ;
+        $volume .= $sep ;
+    }
+
+    $volume .= $file ;
+
+    return $volume ;
+}
+
+
+sub abs2rel {
+    my($self,$path,$base) = @_;
+
+    # Clean up $path
+    if ( ! $self->file_name_is_absolute( $path ) ) {
+        $path = $self->rel2abs( $path ) ;
+    } else {
+        $path = $self->canonpath( $path ) ;
+    }
+
+    # Figure out the effective $base and clean it up.
+    if ( !defined( $base ) || $base eq '' ) {
+	$base = $self->_cwd();
+    } elsif ( ! $self->file_name_is_absolute( $base ) ) {
+        $base = $self->rel2abs( $base ) ;
+    } else {
+        $base = $self->canonpath( $base ) ;
+    }
+
+    # Split up paths
+    my ( $path_volume, $path_directories, $path_file ) = $self->splitpath( $path, 1 ) ;
+    my ( $base_volume, $base_directories ) = $self->splitpath( $base, 1 ) ;
+    return $path unless $path_volume eq $base_volume;
+
+    # Now, remove all leading components that are the same
+    my @pathchunks = $self->splitdir( $path_directories );
+    my @basechunks = $self->splitdir( $base_directories );
+
+    while ( @pathchunks && 
+            @basechunks && 
+            lc( $pathchunks[0] ) eq lc( $basechunks[0] ) 
+          ) {
+        shift @pathchunks ;
+        shift @basechunks ;
+    }
+
+    # No need to catdir, we know these are well formed.
+    $path_directories = CORE::join( '/', @pathchunks );
+    $base_directories = CORE::join( '/', @basechunks );
+
+    # $base_directories now contains the directories the resulting relative
+    # path must ascend out of before it can descend to $path_directory.  So, 
+    # replace all names with $parentDir
+
+    #FA Need to replace between backslashes...
+    $base_directories =~ s|[^\\/]+|..|g ;
+
+    # Glue the two together, using a separator if necessary, and preventing an
+    # empty result.
+
+    #FA Must check that new directories are not empty.
+    if ( $path_directories ne '' && $base_directories ne '' ) {
+        $path_directories = "$base_directories/$path_directories" ;
+    } else {
+        $path_directories = "$base_directories$path_directories" ;
+    }
+
+    return $self->canonpath( 
+        $self->catpath( "", $path_directories, $path_file ) 
+    ) ;
+}
+
+
+sub rel2abs {
+    my ($self,$path,$base ) = @_;
+
+    if ( ! $self->file_name_is_absolute( $path ) ) {
+
+        if ( !defined( $base ) || $base eq '' ) {
+	    $base = $self->_cwd();
+        }
+        elsif ( ! $self->file_name_is_absolute( $base ) ) {
+            $base = $self->rel2abs( $base ) ;
+        }
+        else {
+            $base = $self->canonpath( $base ) ;
+        }
+
+        my ( $path_directories, $path_file ) =
+            ($self->splitpath( $path, 1 ))[1,2] ;
+
+        my ( $base_volume, $base_directories ) =
+            $self->splitpath( $base, 1 ) ;
+
+        $path = $self->catpath( 
+            $base_volume, 
+            $self->catdir( $base_directories, $path_directories ), 
+            $path_file
+        ) ;
+    }
+
+    return $self->canonpath( $path ) ;
+}
+
+1;
+__END__
+
+=head1 NAME
+
+File::Spec::OS2 - methods for OS/2 file specs
+
+=head1 SYNOPSIS
+
+ require File::Spec::OS2; # Done internally by File::Spec if needed
+
+=head1 DESCRIPTION
+
+See L<File::Spec> and L<File::Spec::Unix>.  This package overrides the
+implementation of these methods, not the semantics.
+
+Amongst the changes made for OS/2 are...
+
+=over 4
+
+=item tmpdir
+
+Modifies the list of places temp directory information is looked for.
+
+    $ENV{TMPDIR}
+    $ENV{TEMP}
+    $ENV{TMP}
+    /tmp
+    /
+
+=item splitpath
+
+Volumes can be drive letters or UNC sharenames (\\server\share).
+
+=back
+
+=head1 COPYRIGHT
+
+Copyright (c) 2004 by the Perl 5 Porters.  All rights reserved.
+
+This program is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/File/Spec/Unix.pm b/lib/5.24.1/x86_64-linux/File/Spec/Unix.pm
new file mode 100644
index 00000000..9598dbb3
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/File/Spec/Unix.pm
@@ -0,0 +1,598 @@
+package File::Spec::Unix;
+
+use strict;
+use vars qw($VERSION);
+
+$VERSION = '3.63_01';
+my $xs_version = $VERSION;
+$VERSION =~ tr/_//d;
+
+#dont try to load XSLoader and DynaLoader only to ultimately fail on miniperl
+if(!defined &canonpath && defined &DynaLoader::boot_DynaLoader) {
+  eval {#eval is questionable since we are handling potential errors like
+        #"Cwd object version 3.48 does not match bootstrap parameter 3.50
+        #at lib/DynaLoader.pm line 216." by having this eval
+    if ( $] >= 5.006 ) {
+	require XSLoader;
+	XSLoader::load("Cwd", $xs_version);
+    } else {
+	require Cwd;
+    }
+  };
+}
+
+=head1 NAME
+
+File::Spec::Unix - File::Spec for Unix, base for other File::Spec modules
+
+=head1 SYNOPSIS
+
+ require File::Spec::Unix; # Done automatically by File::Spec
+
+=head1 DESCRIPTION
+
+Methods for manipulating file specifications.  Other File::Spec
+modules, such as File::Spec::Mac, inherit from File::Spec::Unix and
+override specific methods.
+
+=head1 METHODS
+
+=over 2
+
+=item canonpath()
+
+No physical check on the filesystem, but a logical cleanup of a
+path. On UNIX eliminates successive slashes and successive "/.".
+
+    $cpath = File::Spec->canonpath( $path ) ;
+
+Note that this does *not* collapse F<x/../y> sections into F<y>.  This
+is by design.  If F</foo> on your system is a symlink to F</bar/baz>,
+then F</foo/../quux> is actually F</bar/quux>, not F</quux> as a naive
+F<../>-removal would give you.  If you want to do this kind of
+processing, you probably want C<Cwd>'s C<realpath()> function to
+actually traverse the filesystem cleaning up paths like this.
+
+=cut
+
+sub _pp_canonpath {
+    my ($self,$path) = @_;
+    return unless defined $path;
+    
+    # Handle POSIX-style node names beginning with double slash (qnx, nto)
+    # (POSIX says: "a pathname that begins with two successive slashes
+    # may be interpreted in an implementation-defined manner, although
+    # more than two leading slashes shall be treated as a single slash.")
+    my $node = '';
+    my $double_slashes_special = $^O eq 'qnx' || $^O eq 'nto';
+
+
+    if ( $double_slashes_special
+         && ( $path =~ s{^(//[^/]+)/?\z}{}s || $path =~ s{^(//[^/]+)/}{/}s ) ) {
+      $node = $1;
+    }
+    # This used to be
+    # $path =~ s|/+|/|g unless ($^O eq 'cygwin');
+    # but that made tests 29, 30, 35, 46, and 213 (as of #13272) to fail
+    # (Mainly because trailing "" directories didn't get stripped).
+    # Why would cygwin avoid collapsing multiple slashes into one? --jhi
+    $path =~ s|/{2,}|/|g;                            # xx////xx  -> xx/xx
+    $path =~ s{(?:/\.)+(?:/|\z)}{/}g;                # xx/././xx -> xx/xx
+    $path =~ s|^(?:\./)+||s unless $path eq "./";    # ./xx      -> xx
+    $path =~ s|^/(?:\.\./)+|/|;                      # /../../xx -> xx
+    $path =~ s|^/\.\.$|/|;                         # /..       -> /
+    $path =~ s|/\z|| unless $path eq "/";          # xx/       -> xx
+    return "$node$path";
+}
+*canonpath = \&_pp_canonpath unless defined &canonpath;
+
+=item catdir()
+
+Concatenate two or more directory names to form a complete path ending
+with a directory. But remove the trailing slash from the resulting
+string, because it doesn't look good, isn't necessary and confuses
+OS2. Of course, if this is the root directory, don't cut off the
+trailing slash :-)
+
+=cut
+
+sub _pp_catdir {
+    my $self = shift;
+
+    $self->canonpath(join('/', @_, '')); # '' because need a trailing '/'
+}
+*catdir = \&_pp_catdir unless defined &catdir;
+
+=item catfile
+
+Concatenate one or more directory names and a filename to form a
+complete path ending with a filename
+
+=cut
+
+sub _pp_catfile {
+    my $self = shift;
+    my $file = $self->canonpath(pop @_);
+    return $file unless @_;
+    my $dir = $self->catdir(@_);
+    $dir .= "/" unless substr($dir,-1) eq "/";
+    return $dir.$file;
+}
+*catfile = \&_pp_catfile unless defined &catfile;
+
+=item curdir
+
+Returns a string representation of the current directory.  "." on UNIX.
+
+=cut
+
+sub curdir { '.' }
+use constant _fn_curdir => ".";
+
+=item devnull
+
+Returns a string representation of the null device. "/dev/null" on UNIX.
+
+=cut
+
+sub devnull { '/dev/null' }
+use constant _fn_devnull => "/dev/null";
+
+=item rootdir
+
+Returns a string representation of the root directory.  "/" on UNIX.
+
+=cut
+
+sub rootdir { '/' }
+use constant _fn_rootdir => "/";
+
+=item tmpdir
+
+Returns a string representation of the first writable directory from
+the following list or the current directory if none from the list are
+writable:
+
+    $ENV{TMPDIR}
+    /tmp
+
+If running under taint mode, and if $ENV{TMPDIR}
+is tainted, it is not used.
+
+=cut
+
+my ($tmpdir, %tmpenv);
+# Cache and return the calculated tmpdir, recording which env vars
+# determined it.
+sub _cache_tmpdir {
+    @tmpenv{@_[2..$#_]} = @ENV{@_[2..$#_]};
+    return $tmpdir = $_[1];
+}
+# Retrieve the cached tmpdir, checking first whether relevant env vars have
+# changed and invalidated the cache.
+sub _cached_tmpdir {
+    shift;
+    local $^W;
+    return if grep $ENV{$_} ne $tmpenv{$_}, @_;
+    return $tmpdir;
+}
+sub _tmpdir {
+    my $self = shift;
+    my @dirlist = @_;
+    my $taint = do { no strict 'refs'; ${"\cTAINT"} };
+    if ($taint) { # Check for taint mode on perl >= 5.8.0
+	require Scalar::Util;
+	@dirlist = grep { ! Scalar::Util::tainted($_) } @dirlist;
+    }
+    elsif ($] < 5.007) { # No ${^TAINT} before 5.8
+	@dirlist = grep { eval { eval('1'.substr $_,0,0) } } @dirlist;
+    }
+    
+    foreach (@dirlist) {
+	next unless defined && -d && -w _;
+	$tmpdir = $_;
+	last;
+    }
+    $tmpdir = $self->curdir unless defined $tmpdir;
+    $tmpdir = defined $tmpdir && $self->canonpath($tmpdir);
+    if ( !$self->file_name_is_absolute($tmpdir) ) {
+        # See [perl #120593] for the full details
+        # If possible, return a full path, rather than '.' or 'lib', but
+        # jump through some hoops to avoid returning a tainted value.
+        ($tmpdir) = grep {
+            $taint     ? ! Scalar::Util::tainted($_) :
+            $] < 5.007 ? eval { eval('1'.substr $_,0,0) } : 1
+        } $self->rel2abs($tmpdir), $tmpdir;
+    }
+    return $tmpdir;
+}
+
+sub tmpdir {
+    my $cached = $_[0]->_cached_tmpdir('TMPDIR');
+    return $cached if defined $cached;
+    $_[0]->_cache_tmpdir($_[0]->_tmpdir( $ENV{TMPDIR}, "/tmp" ), 'TMPDIR');
+}
+
+=item updir
+
+Returns a string representation of the parent directory.  ".." on UNIX.
+
+=cut
+
+sub updir { '..' }
+use constant _fn_updir => "..";
+
+=item no_upwards
+
+Given a list of file names, strip out those that refer to a parent
+directory. (Does not strip symlinks, only '.', '..', and equivalents.)
+
+=cut
+
+sub no_upwards {
+    my $self = shift;
+    return grep(!/^\.{1,2}\z/s, @_);
+}
+
+=item case_tolerant
+
+Returns a true or false value indicating, respectively, that alphabetic
+is not or is significant when comparing file specifications.
+
+=cut
+
+sub case_tolerant { 0 }
+use constant _fn_case_tolerant => 0;
+
+=item file_name_is_absolute
+
+Takes as argument a path and returns true if it is an absolute path.
+
+This does not consult the local filesystem on Unix, Win32, OS/2 or Mac 
+OS (Classic).  It does consult the working environment for VMS (see
+L<File::Spec::VMS/file_name_is_absolute>).
+
+=cut
+
+sub file_name_is_absolute {
+    my ($self,$file) = @_;
+    return scalar($file =~ m:^/:s);
+}
+
+=item path
+
+Takes no argument, returns the environment variable PATH as an array.
+
+=cut
+
+sub path {
+    return () unless exists $ENV{PATH};
+    my @path = split(':', $ENV{PATH});
+    foreach (@path) { $_ = '.' if $_ eq '' }
+    return @path;
+}
+
+=item join
+
+join is the same as catfile.
+
+=cut
+
+sub join {
+    my $self = shift;
+    return $self->catfile(@_);
+}
+
+=item splitpath
+
+    ($volume,$directories,$file) = File::Spec->splitpath( $path );
+    ($volume,$directories,$file) = File::Spec->splitpath( $path,
+                                                          $no_file );
+
+Splits a path into volume, directory, and filename portions. On systems
+with no concept of volume, returns '' for volume. 
+
+For systems with no syntax differentiating filenames from directories, 
+assumes that the last file is a path unless $no_file is true or a 
+trailing separator or /. or /.. is present. On Unix this means that $no_file
+true makes this return ( '', $path, '' ).
+
+The directory portion may or may not be returned with a trailing '/'.
+
+The results can be passed to L</catpath()> to get back a path equivalent to
+(usually identical to) the original path.
+
+=cut
+
+sub splitpath {
+    my ($self,$path, $nofile) = @_;
+
+    my ($volume,$directory,$file) = ('','','');
+
+    if ( $nofile ) {
+        $directory = $path;
+    }
+    else {
+        $path =~ m|^ ( (?: .* / (?: \.\.?\z )? )? ) ([^/]*) |xs;
+        $directory = $1;
+        $file      = $2;
+    }
+
+    return ($volume,$directory,$file);
+}
+
+
+=item splitdir
+
+The opposite of L</catdir()>.
+
+    @dirs = File::Spec->splitdir( $directories );
+
+$directories must be only the directory portion of the path on systems 
+that have the concept of a volume or that have path syntax that differentiates
+files from directories.
+
+Unlike just splitting the directories on the separator, empty
+directory names (C<''>) can be returned, because these are significant
+on some OSs.
+
+On Unix,
+
+    File::Spec->splitdir( "/a/b//c/" );
+
+Yields:
+
+    ( '', 'a', 'b', '', 'c', '' )
+
+=cut
+
+sub splitdir {
+    return split m|/|, $_[1], -1;  # Preserve trailing fields
+}
+
+
+=item catpath()
+
+Takes volume, directory and file portions and returns an entire path. Under
+Unix, $volume is ignored, and directory and file are concatenated.  A '/' is
+inserted if needed (though if the directory portion doesn't start with
+'/' it is not added).  On other OSs, $volume is significant.
+
+=cut
+
+sub catpath {
+    my ($self,$volume,$directory,$file) = @_;
+
+    if ( $directory ne ''                && 
+         $file ne ''                     && 
+         substr( $directory, -1 ) ne '/' && 
+         substr( $file, 0, 1 ) ne '/' 
+    ) {
+        $directory .= "/$file" ;
+    }
+    else {
+        $directory .= $file ;
+    }
+
+    return $directory ;
+}
+
+=item abs2rel
+
+Takes a destination path and an optional base path returns a relative path
+from the base path to the destination path:
+
+    $rel_path = File::Spec->abs2rel( $path ) ;
+    $rel_path = File::Spec->abs2rel( $path, $base ) ;
+
+If $base is not present or '', then L<cwd()|Cwd> is used. If $base is
+relative, then it is converted to absolute form using
+L</rel2abs()>. This means that it is taken to be relative to
+L<cwd()|Cwd>.
+
+On systems that have a grammar that indicates filenames, this ignores the 
+$base filename. Otherwise all path components are assumed to be
+directories.
+
+If $path is relative, it is converted to absolute form using L</rel2abs()>.
+This means that it is taken to be relative to L<cwd()|Cwd>.
+
+No checks against the filesystem are made, so the result may not be correct if
+C<$base> contains symbolic links.  (Apply
+L<Cwd::abs_path()|Cwd/abs_path> beforehand if that
+is a concern.)  On VMS, there is interaction with the working environment, as
+logicals and macros are expanded.
+
+Based on code written by Shigio Yamaguchi.
+
+=cut
+
+sub abs2rel {
+    my($self,$path,$base) = @_;
+    $base = $self->_cwd() unless defined $base and length $base;
+
+    ($path, $base) = map $self->canonpath($_), $path, $base;
+
+    my $path_directories;
+    my $base_directories;
+
+    if (grep $self->file_name_is_absolute($_), $path, $base) {
+	($path, $base) = map $self->rel2abs($_), $path, $base;
+
+	my ($path_volume) = $self->splitpath($path, 1);
+	my ($base_volume) = $self->splitpath($base, 1);
+
+	# Can't relativize across volumes
+	return $path unless $path_volume eq $base_volume;
+
+	$path_directories = ($self->splitpath($path, 1))[1];
+	$base_directories = ($self->splitpath($base, 1))[1];
+
+	# For UNC paths, the user might give a volume like //foo/bar that
+	# strictly speaking has no directory portion.  Treat it as if it
+	# had the root directory for that volume.
+	if (!length($base_directories) and $self->file_name_is_absolute($base)) {
+	    $base_directories = $self->rootdir;
+	}
+    }
+    else {
+	my $wd= ($self->splitpath($self->_cwd(), 1))[1];
+	$path_directories = $self->catdir($wd, $path);
+	$base_directories = $self->catdir($wd, $base);
+    }
+
+    # Now, remove all leading components that are the same
+    my @pathchunks = $self->splitdir( $path_directories );
+    my @basechunks = $self->splitdir( $base_directories );
+
+    if ($base_directories eq $self->rootdir) {
+      return $self->curdir if $path_directories eq $self->rootdir;
+      shift @pathchunks;
+      return $self->canonpath( $self->catpath('', $self->catdir( @pathchunks ), '') );
+    }
+
+    my @common;
+    while (@pathchunks && @basechunks && $self->_same($pathchunks[0], $basechunks[0])) {
+        push @common, shift @pathchunks ;
+        shift @basechunks ;
+    }
+    return $self->curdir unless @pathchunks || @basechunks;
+
+    # @basechunks now contains the directories the resulting relative path 
+    # must ascend out of before it can descend to $path_directory.  If there
+    # are updir components, we must descend into the corresponding directories
+    # (this only works if they are no symlinks).
+    my @reverse_base;
+    while( defined(my $dir= shift @basechunks) ) {
+	if( $dir ne $self->updir ) {
+	    unshift @reverse_base, $self->updir;
+	    push @common, $dir;
+	}
+	elsif( @common ) {
+	    if( @reverse_base && $reverse_base[0] eq $self->updir ) {
+		shift @reverse_base;
+		pop @common;
+	    }
+	    else {
+		unshift @reverse_base, pop @common;
+	    }
+	}
+    }
+    my $result_dirs = $self->catdir( @reverse_base, @pathchunks );
+    return $self->canonpath( $self->catpath('', $result_dirs, '') );
+}
+
+sub _same {
+  $_[1] eq $_[2];
+}
+
+=item rel2abs()
+
+Converts a relative path to an absolute path. 
+
+    $abs_path = File::Spec->rel2abs( $path ) ;
+    $abs_path = File::Spec->rel2abs( $path, $base ) ;
+
+If $base is not present or '', then L<cwd()|Cwd> is used. If $base is
+relative, then it is converted to absolute form using
+L</rel2abs()>. This means that it is taken to be relative to
+L<cwd()|Cwd>.
+
+On systems that have a grammar that indicates filenames, this ignores
+the $base filename. Otherwise all path components are assumed to be
+directories.
+
+If $path is absolute, it is cleaned up and returned using L</canonpath()>.
+
+No checks against the filesystem are made.  On VMS, there is
+interaction with the working environment, as logicals and
+macros are expanded.
+
+Based on code written by Shigio Yamaguchi.
+
+=cut
+
+sub rel2abs {
+    my ($self,$path,$base ) = @_;
+
+    # Clean up $path
+    if ( ! $self->file_name_is_absolute( $path ) ) {
+        # Figure out the effective $base and clean it up.
+        if ( !defined( $base ) || $base eq '' ) {
+	    $base = $self->_cwd();
+        }
+        elsif ( ! $self->file_name_is_absolute( $base ) ) {
+            $base = $self->rel2abs( $base ) ;
+        }
+        else {
+            $base = $self->canonpath( $base ) ;
+        }
+
+        # Glom them together
+        $path = $self->catdir( $base, $path ) ;
+    }
+
+    return $self->canonpath( $path ) ;
+}
+
+=back
+
+=head1 COPYRIGHT
+
+Copyright (c) 2004 by the Perl 5 Porters.  All rights reserved.
+
+This program is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
+Please submit bug reports and patches to perlbug@perl.org.
+
+=head1 SEE ALSO
+
+L<File::Spec>
+
+=cut
+
+# Internal routine to File::Spec, no point in making this public since
+# it is the standard Cwd interface.  Most of the platform-specific
+# File::Spec subclasses use this.
+sub _cwd {
+    require Cwd;
+    Cwd::getcwd();
+}
+
+
+# Internal method to reduce xx\..\yy -> yy
+sub _collapse {
+    my($fs, $path) = @_;
+
+    my $updir  = $fs->updir;
+    my $curdir = $fs->curdir;
+
+    my($vol, $dirs, $file) = $fs->splitpath($path);
+    my @dirs = $fs->splitdir($dirs);
+    pop @dirs if @dirs && $dirs[-1] eq '';
+
+    my @collapsed;
+    foreach my $dir (@dirs) {
+        if( $dir eq $updir              and   # if we have an updir
+            @collapsed                  and   # and something to collapse
+            length $collapsed[-1]       and   # and its not the rootdir
+            $collapsed[-1] ne $updir    and   # nor another updir
+            $collapsed[-1] ne $curdir         # nor the curdir
+          ) 
+        {                                     # then
+            pop @collapsed;                   # collapse
+        }
+        else {                                # else
+            push @collapsed, $dir;            # just hang onto it
+        }
+    }
+
+    return $fs->catpath($vol,
+                        $fs->catdir(@collapsed),
+                        $file
+                       );
+}
+
+
+1;
diff --git a/lib/5.24.1/x86_64-linux/File/Spec/VMS.pm b/lib/5.24.1/x86_64-linux/File/Spec/VMS.pm
new file mode 100644
index 00000000..c0cc1e50
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/File/Spec/VMS.pm
@@ -0,0 +1,569 @@
+package File::Spec::VMS;
+
+use strict;
+use vars qw(@ISA $VERSION);
+require File::Spec::Unix;
+
+$VERSION = '3.63_01';
+$VERSION =~ tr/_//d;
+
+@ISA = qw(File::Spec::Unix);
+
+use File::Basename;
+use VMS::Filespec;
+
+=head1 NAME
+
+File::Spec::VMS - methods for VMS file specs
+
+=head1 SYNOPSIS
+
+ require File::Spec::VMS; # Done internally by File::Spec if needed
+
+=head1 DESCRIPTION
+
+See File::Spec::Unix for a documentation of the methods provided
+there. This package overrides the implementation of these methods, not
+the semantics.
+
+The default behavior is to allow either VMS or Unix syntax on input and to 
+return VMS syntax on output unless Unix syntax has been explicitly requested
+via the C<DECC$FILENAME_UNIX_REPORT> CRTL feature.
+
+=over 4
+
+=cut
+
+# Need to look up the feature settings.  The preferred way is to use the
+# VMS::Feature module, but that may not be available to dual life modules.
+
+my $use_feature;
+BEGIN {
+    if (eval { local $SIG{__DIE__};
+               local @INC = @INC;
+               pop @INC if $INC[-1] eq '.';
+               require VMS::Feature; }) {
+        $use_feature = 1;
+    }
+}
+
+# Need to look up the UNIX report mode.  This may become a dynamic mode
+# in the future.
+sub _unix_rpt {
+    my $unix_rpt;
+    if ($use_feature) {
+        $unix_rpt = VMS::Feature::current("filename_unix_report");
+    } else {
+        my $env_unix_rpt = $ENV{'DECC$FILENAME_UNIX_REPORT'} || '';
+        $unix_rpt = $env_unix_rpt =~ /^[ET1]/i; 
+    }
+    return $unix_rpt;
+}
+
+=item canonpath (override)
+
+Removes redundant portions of file specifications and returns results
+in native syntax unless Unix filename reporting has been enabled.
+
+=cut
+
+
+sub canonpath {
+    my($self,$path) = @_;
+
+    return undef unless defined $path;
+
+    my $unix_rpt = $self->_unix_rpt;
+
+    if ($path =~ m|/|) {
+      my $pathify = $path =~ m|/\Z(?!\n)|;
+      $path = $self->SUPER::canonpath($path);
+
+      return $path if $unix_rpt;
+      $path = $pathify ? vmspath($path) : vmsify($path);
+    }
+
+    $path =~ s/(?<!\^)</[/;			# < and >       ==> [ and ]
+    $path =~ s/(?<!\^)>/]/;
+    $path =~ s/(?<!\^)\]\[\./\.\]\[/g;		# ][.		==> .][
+    $path =~ s/(?<!\^)\[000000\.\]\[/\[/g;	# [000000.][	==> [
+    $path =~ s/(?<!\^)\[000000\./\[/g;		# [000000.	==> [
+    $path =~ s/(?<!\^)\.\]\[000000\]/\]/g;	# .][000000]	==> ]
+    $path =~ s/(?<!\^)\.\]\[/\./g;		# foo.][bar     ==> foo.bar
+    1 while ($path =~ s/(?<!\^)([\[\.])(-+)\.(-+)([\.\]])/$1$2$3$4/);
+						# That loop does the following
+						# with any amount of dashes:
+						# .-.-.		==> .--.
+						# [-.-.		==> [--.
+						# .-.-]		==> .--]
+						# [-.-]		==> [--]
+    1 while ($path =~ s/(?<!\^)([\[\.])[^\]\.]+\.-(-+)([\]\.])/$1$2$3/);
+						# That loop does the following
+						# with any amount (minimum 2)
+						# of dashes:
+						# .foo.--.	==> .-.
+						# .foo.--]	==> .-]
+						# [foo.--.	==> [-.
+						# [foo.--]	==> [-]
+						#
+						# And then, the remaining cases
+    $path =~ s/(?<!\^)\[\.-/[-/;		# [.-		==> [-
+    $path =~ s/(?<!\^)\.[^\]\.]+\.-\./\./g;	# .foo.-.	==> .
+    $path =~ s/(?<!\^)\[[^\]\.]+\.-\./\[/g;	# [foo.-.	==> [
+    $path =~ s/(?<!\^)\.[^\]\.]+\.-\]/\]/g;	# .foo.-]	==> ]
+						# [foo.-]       ==> [000000]
+    $path =~ s/(?<!\^)\[[^\]\.]+\.-\]/\[000000\]/g;
+						# []		==>
+    $path =~ s/(?<!\^)\[\]// unless $path eq '[]';
+    return $unix_rpt ? unixify($path) : $path;
+}
+
+=item catdir (override)
+
+Concatenates a list of file specifications, and returns the result as a
+native directory specification unless the Unix filename reporting feature
+has been enabled.  No check is made for "impossible" cases (e.g. elements
+other than the first being absolute filespecs).
+
+=cut
+
+sub catdir {
+    my $self = shift;
+    my $dir = pop;
+
+    my $unix_rpt = $self->_unix_rpt;
+
+    my @dirs = grep {defined() && length()} @_;
+
+    my $rslt;
+    if (@dirs) {
+	my $path = (@dirs == 1 ? $dirs[0] : $self->catdir(@dirs));
+	my ($spath,$sdir) = ($path,$dir);
+	$spath =~ s/\.dir\Z(?!\n)//i; $sdir =~ s/\.dir\Z(?!\n)//i; 
+
+	if ($unix_rpt) {
+	    $spath = unixify($spath) unless $spath =~ m#/#;
+	    $sdir= unixify($sdir) unless $sdir =~ m#/#;
+            return $self->SUPER::catdir($spath, $sdir)
+	}
+
+	$rslt = vmspath( unixify($spath) . '/' . unixify($sdir));
+
+	# Special case for VMS absolute directory specs: these will have
+	# had device prepended during trip through Unix syntax in
+	# eliminate_macros(), since Unix syntax has no way to express
+	# "absolute from the top of this device's directory tree".
+	if ($spath =~ /^[\[<][^.\-]/s) { $rslt =~ s/^[^\[<]+//s; }
+
+    } else {
+	# Single directory. Return an empty string on null input; otherwise
+	# just return a canonical path.
+
+	if    (not defined $dir or not length $dir) {
+	    $rslt = '';
+	} else {
+	    $rslt = $unix_rpt ? $dir : vmspath($dir);
+	}
+    }
+    return $self->canonpath($rslt);
+}
+
+=item catfile (override)
+
+Concatenates a list of directory specifications with a filename specification
+to build a path.
+
+=cut
+
+sub catfile {
+    my $self = shift;
+    my $tfile = pop();
+    my $file = $self->canonpath($tfile);
+    my @files = grep {defined() && length()} @_;
+
+    my $unix_rpt = $self->_unix_rpt;
+
+    my $rslt;
+    if (@files) {
+	my $path = (@files == 1 ? $files[0] : $self->catdir(@files));
+	my $spath = $path;
+
+        # Something building a VMS path in pieces may try to pass a
+        # directory name in filename format, so normalize it.
+	$spath =~ s/\.dir\Z(?!\n)//i;
+
+        # If the spath ends with a directory delimiter and the file is bare,
+        # then just concatenate them.
+	if ($spath =~ /^(?<!\^)[^\)\]\/:>]+\)\Z(?!\n)/s && basename($file) eq $file) {
+	    $rslt = "$spath$file";
+	} else {
+           $rslt = unixify($spath);
+           $rslt .= (defined($rslt) && length($rslt) ? '/' : '') . unixify($file);
+           $rslt = vmsify($rslt) unless $unix_rpt;
+	}
+    }
+    else {
+        # Only passed a single file?
+        my $xfile = (defined($file) && length($file)) ? $file : '';
+
+        $rslt = $unix_rpt ? $xfile : vmsify($xfile);
+    }
+    return $self->canonpath($rslt) unless $unix_rpt;
+
+    # In Unix report mode, do not strip off redundant path information.
+    return $rslt;
+}
+
+
+=item curdir (override)
+
+Returns a string representation of the current directory: '[]' or '.'
+
+=cut
+
+sub curdir {
+    my $self = shift @_;
+    return '.' if ($self->_unix_rpt);
+    return '[]';
+}
+
+=item devnull (override)
+
+Returns a string representation of the null device: '_NLA0:' or '/dev/null'
+
+=cut
+
+sub devnull {
+    my $self = shift @_;
+    return '/dev/null' if ($self->_unix_rpt);
+    return "_NLA0:";
+}
+
+=item rootdir (override)
+
+Returns a string representation of the root directory: 'SYS$DISK:[000000]'
+or '/'
+
+=cut
+
+sub rootdir {
+    my $self = shift @_;
+    if ($self->_unix_rpt) {
+       # Root may exist, try it first.
+       my $try = '/';
+       my ($dev1, $ino1) = stat('/');
+       my ($dev2, $ino2) = stat('.');
+
+       # Perl falls back to '.' if it can not determine '/'
+       if (($dev1 != $dev2) || ($ino1 != $ino2)) {
+           return $try;
+       }
+       # Fall back to UNIX format sys$disk.
+       return '/sys$disk/';
+    }
+    return 'SYS$DISK:[000000]';
+}
+
+=item tmpdir (override)
+
+Returns a string representation of the first writable directory
+from the following list or '' if none are writable:
+
+    /tmp if C<DECC$FILENAME_UNIX_REPORT> is enabled.
+    sys$scratch:
+    $ENV{TMPDIR}
+
+If running under taint mode, and if $ENV{TMPDIR}
+is tainted, it is not used.
+
+=cut
+
+sub tmpdir {
+    my $self = shift @_;
+    my $tmpdir = $self->_cached_tmpdir('TMPDIR');
+    return $tmpdir if defined $tmpdir;
+    if ($self->_unix_rpt) {
+        $tmpdir = $self->_tmpdir('/tmp', '/sys$scratch', $ENV{TMPDIR});
+    }
+    else {
+        $tmpdir = $self->_tmpdir( 'sys$scratch:', $ENV{TMPDIR} );
+    }
+    $self->_cache_tmpdir($tmpdir, 'TMPDIR');
+}
+
+=item updir (override)
+
+Returns a string representation of the parent directory: '[-]' or '..'
+
+=cut
+
+sub updir {
+    my $self = shift @_;
+    return '..' if ($self->_unix_rpt);
+    return '[-]';
+}
+
+=item case_tolerant (override)
+
+VMS file specification syntax is case-tolerant.
+
+=cut
+
+sub case_tolerant {
+    return 1;
+}
+
+=item path (override)
+
+Translate logical name DCL$PATH as a searchlist, rather than trying
+to C<split> string value of C<$ENV{'PATH'}>.
+
+=cut
+
+sub path {
+    my (@dirs,$dir,$i);
+    while ($dir = $ENV{'DCL$PATH;' . $i++}) { push(@dirs,$dir); }
+    return @dirs;
+}
+
+=item file_name_is_absolute (override)
+
+Checks for VMS directory spec as well as Unix separators.
+
+=cut
+
+sub file_name_is_absolute {
+    my ($self,$file) = @_;
+    # If it's a logical name, expand it.
+    $file = $ENV{$file} while $file =~ /^[\w\$\-]+\Z(?!\n)/s && $ENV{$file};
+    return scalar($file =~ m!^/!s             ||
+		  $file =~ m![<\[][^.\-\]>]!  ||
+		  $file =~ /^[A-Za-z0-9_\$\-\~]+(?<!\^):/);
+}
+
+=item splitpath (override)
+
+   ($volume,$directories,$file) = File::Spec->splitpath( $path );
+   ($volume,$directories,$file) = File::Spec->splitpath( $path,
+                                                         $no_file );
+
+Passing a true value for C<$no_file> indicates that the path being
+split only contains directory components, even on systems where you
+can usually (when not supporting a foreign syntax) tell the difference
+between directories and files at a glance.
+
+=cut
+
+sub splitpath {
+    my($self,$path, $nofile) = @_;
+    my($dev,$dir,$file)      = ('','','');
+    my $vmsify_path = vmsify($path);
+
+    if ( $nofile ) {
+        #vmsify('d1/d2/d3') returns '[.d1.d2]d3'
+        #vmsify('/d1/d2/d3') returns 'd1:[d2]d3'
+        if( $vmsify_path =~ /(.*)\](.+)/ ){
+            $vmsify_path = $1.'.'.$2.']';
+        }
+        $vmsify_path =~ /(.+:)?(.*)/s;
+        $dir = defined $2 ? $2 : ''; # dir can be '0'
+        return ($1 || '',$dir,$file);
+    }
+    else {
+        $vmsify_path =~ /(.+:)?([\[<].*[\]>])?(.*)/s;
+        return ($1 || '',$2 || '',$3);
+    }
+}
+
+=item splitdir (override)
+
+Split a directory specification into the components.
+
+=cut
+
+sub splitdir {
+    my($self,$dirspec) = @_;
+    my @dirs = ();
+    return @dirs if ( (!defined $dirspec) || ('' eq $dirspec) );
+
+    $dirspec =~ s/(?<!\^)</[/;                  # < and >	==> [ and ]
+    $dirspec =~ s/(?<!\^)>/]/;
+    $dirspec =~ s/(?<!\^)\]\[\./\.\]\[/g;	# ][.		==> .][
+    $dirspec =~ s/(?<!\^)\[000000\.\]\[/\[/g;	# [000000.][	==> [
+    $dirspec =~ s/(?<!\^)\[000000\./\[/g;	# [000000.	==> [
+    $dirspec =~ s/(?<!\^)\.\]\[000000\]/\]/g;	# .][000000]	==> ]
+    $dirspec =~ s/(?<!\^)\.\]\[/\./g;		# foo.][bar	==> foo.bar
+    while ($dirspec =~ s/(^|[\[\<\.])\-(\-+)($|[\]\>\.])/$1-.$2$3/g) {}
+						# That loop does the following
+						# with any amount of dashes:
+						# .--.		==> .-.-.
+						# [--.		==> [-.-.
+						# .--]		==> .-.-]
+						# [--]		==> [-.-]
+    $dirspec = "[$dirspec]" unless $dirspec =~ /(?<!\^)[\[<]/; # make legal
+    $dirspec =~ s/^(\[|<)\./$1/;
+    @dirs = split /(?<!\^)\./, vmspath($dirspec);
+    $dirs[0] =~ s/^[\[<]//s;  $dirs[-1] =~ s/[\]>]\Z(?!\n)//s;
+    @dirs;
+}
+
+
+=item catpath (override)
+
+Construct a complete filespec.
+
+=cut
+
+sub catpath {
+    my($self,$dev,$dir,$file) = @_;
+    
+    # We look for a volume in $dev, then in $dir, but not both
+    my ($dir_volume, $dir_dir, $dir_file) = $self->splitpath($dir);
+    $dev = $dir_volume unless length $dev;
+    $dir = length $dir_file ? $self->catfile($dir_dir, $dir_file) : $dir_dir;
+    
+    if ($dev =~ m|^(?<!\^)/+([^/]+)|) { $dev = "$1:"; }
+    else { $dev .= ':' unless $dev eq '' or $dev =~ /:\Z(?!\n)/; }
+    if (length($dev) or length($dir)) {
+        $dir = "[$dir]" unless $dir =~ /(?<!\^)[\[<\/]/;
+        $dir = vmspath($dir);
+    }
+    $dir = '' if length($dev) && ($dir eq '[]' || $dir eq '<>');
+    "$dev$dir$file";
+}
+
+=item abs2rel (override)
+
+Attempt to convert an absolute file specification to a relative specification.
+
+=cut
+
+sub abs2rel {
+    my $self = shift;
+    my($path,$base) = @_;
+
+    $base = $self->_cwd() unless defined $base and length $base;
+
+    # If there is no device or directory syntax on $base, make sure it
+    # is treated as a directory.
+    $base = vmspath($base) unless $base =~ m{(?<!\^)[\[<:]};
+
+    for ($path, $base) { $_ = $self->rel2abs($_) }
+
+    # Are we even starting $path on the same (node::)device as $base?  Note that
+    # logical paths or nodename differences may be on the "same device" 
+    # but the comparison that ignores device differences so as to concatenate 
+    # [---] up directory specs is not even a good idea in cases where there is 
+    # a logical path difference between $path and $base nodename and/or device.
+    # Hence we fall back to returning the absolute $path spec
+    # if there is a case blind device (or node) difference of any sort
+    # and we do not even try to call $parse() or consult %ENV for $trnlnm()
+    # (this module needs to run on non VMS platforms after all).
+    
+    my ($path_volume, $path_directories, $path_file) = $self->splitpath($path);
+    my ($base_volume, $base_directories, $base_file) = $self->splitpath($base);
+    return $self->canonpath( $path ) unless lc($path_volume) eq lc($base_volume);
+
+    # Now, remove all leading components that are the same
+    my @pathchunks = $self->splitdir( $path_directories );
+    my $pathchunks = @pathchunks;
+    unshift(@pathchunks,'000000') unless $pathchunks[0] eq '000000';
+    my @basechunks = $self->splitdir( $base_directories );
+    my $basechunks = @basechunks;
+    unshift(@basechunks,'000000') unless $basechunks[0] eq '000000';
+
+    while ( @pathchunks && 
+            @basechunks && 
+            lc( $pathchunks[0] ) eq lc( $basechunks[0] ) 
+          ) {
+        shift @pathchunks ;
+        shift @basechunks ;
+    }
+
+    # @basechunks now contains the directories to climb out of,
+    # @pathchunks now has the directories to descend in to.
+    if ((@basechunks > 0) || ($basechunks != $pathchunks)) {
+      $path_directories = join '.', ('-' x @basechunks, @pathchunks) ;
+    }
+    else {
+      $path_directories = join '.', @pathchunks;
+    }
+    $path_directories = '['.$path_directories.']';
+    return $self->canonpath( $self->catpath( '', $path_directories, $path_file ) ) ;
+}
+
+
+=item rel2abs (override)
+
+Return an absolute file specification from a relative one.
+
+=cut
+
+sub rel2abs {
+    my $self = shift ;
+    my ($path,$base ) = @_;
+    return undef unless defined $path;
+    if ($path =~ m/\//) {
+       $path = ( -d $path || $path =~ m/\/\z/  # educated guessing about
+                  ? vmspath($path)             # whether it's a directory
+                  : vmsify($path) );
+    }
+    $base = vmspath($base) if defined $base && $base =~ m/\//;
+
+    # Clean up and split up $path
+    if ( ! $self->file_name_is_absolute( $path ) ) {
+        # Figure out the effective $base and clean it up.
+        if ( !defined( $base ) || $base eq '' ) {
+            $base = $self->_cwd;
+        }
+        elsif ( ! $self->file_name_is_absolute( $base ) ) {
+            $base = $self->rel2abs( $base ) ;
+        }
+        else {
+            $base = $self->canonpath( $base ) ;
+        }
+
+        # Split up paths
+        my ( $path_directories, $path_file ) =
+            ($self->splitpath( $path ))[1,2] ;
+
+        my ( $base_volume, $base_directories ) =
+            $self->splitpath( $base ) ;
+
+        $path_directories = '' if $path_directories eq '[]' ||
+                                  $path_directories eq '<>';
+        my $sep = '' ;
+        $sep = '.'
+            if ( $base_directories =~ m{[^.\]>]\Z(?!\n)} &&
+                 $path_directories =~ m{^[^.\[<]}s
+            ) ;
+        $base_directories = "$base_directories$sep$path_directories";
+        $base_directories =~ s{\.?[\]>][\[<]\.?}{.};
+
+        $path = $self->catpath( $base_volume, $base_directories, $path_file );
+   }
+
+    return $self->canonpath( $path ) ;
+}
+
+
+=back
+
+=head1 COPYRIGHT
+
+Copyright (c) 2004-14 by the Perl 5 Porters.  All rights reserved.
+
+This program is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
+=head1 SEE ALSO
+
+See L<File::Spec> and L<File::Spec::Unix>.  This package overrides the
+implementation of these methods, not the semantics.
+
+An explanation of VMS file specs can be found at
+L<http://h71000.www7.hp.com/doc/731FINAL/4506/4506pro_014.html#apps_locating_naming_files>.
+
+=cut
+
+1;
diff --git a/lib/5.24.1/x86_64-linux/File/Spec/Win32.pm b/lib/5.24.1/x86_64-linux/File/Spec/Win32.pm
new file mode 100644
index 00000000..578d61b3
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/File/Spec/Win32.pm
@@ -0,0 +1,450 @@
+package File::Spec::Win32;
+
+use strict;
+
+use vars qw(@ISA $VERSION);
+require File::Spec::Unix;
+
+$VERSION = '3.63_01';
+$VERSION =~ tr/_//d;
+
+@ISA = qw(File::Spec::Unix);
+
+# Some regexes we use for path splitting
+my $DRIVE_RX = '[a-zA-Z]:';
+my $UNC_RX = '(?:\\\\\\\\|//)[^\\\\/]+[\\\\/][^\\\\/]+';
+my $VOL_RX = "(?:$DRIVE_RX|$UNC_RX)";
+
+
+=head1 NAME
+
+File::Spec::Win32 - methods for Win32 file specs
+
+=head1 SYNOPSIS
+
+ require File::Spec::Win32; # Done internally by File::Spec if needed
+
+=head1 DESCRIPTION
+
+See File::Spec::Unix for a documentation of the methods provided
+there. This package overrides the implementation of these methods, not
+the semantics.
+
+=over 4
+
+=item devnull
+
+Returns a string representation of the null device.
+
+=cut
+
+sub devnull {
+    return "nul";
+}
+
+sub rootdir { '\\' }
+
+
+=item tmpdir
+
+Returns a string representation of the first existing directory
+from the following list:
+
+    $ENV{TMPDIR}
+    $ENV{TEMP}
+    $ENV{TMP}
+    SYS:/temp
+    C:\system\temp
+    C:/temp
+    /tmp
+    /
+
+The SYS:/temp is preferred in Novell NetWare and the C:\system\temp
+for Symbian (the File::Spec::Win32 is used also for those platforms).
+
+If running under taint mode, and if the environment
+variables are tainted, they are not used.
+
+=cut
+
+sub tmpdir {
+    my $tmpdir = $_[0]->_cached_tmpdir(qw(TMPDIR TEMP TMP));
+    return $tmpdir if defined $tmpdir;
+    $tmpdir = $_[0]->_tmpdir( map( $ENV{$_}, qw(TMPDIR TEMP TMP) ),
+			      'SYS:/temp',
+			      'C:\system\temp',
+			      'C:/temp',
+			      '/tmp',
+			      '/'  );
+    $_[0]->_cache_tmpdir($tmpdir, qw(TMPDIR TEMP TMP));
+}
+
+=item case_tolerant
+
+MSWin32 case-tolerance depends on GetVolumeInformation() $ouFsFlags == FS_CASE_SENSITIVE,
+indicating the case significance when comparing file specifications.
+Since XP FS_CASE_SENSITIVE is effectively disabled for the NT subsubsystem.
+See http://cygwin.com/ml/cygwin/2007-07/msg00891.html
+Default: 1
+
+=cut
+
+sub case_tolerant {
+  eval {
+    local @INC = @INC;
+    pop @INC if $INC[-1] eq '.';
+    require Win32API::File;
+  } or return 1;
+  my $drive = shift || "C:";
+  my $osFsType = "\0"x256;
+  my $osVolName = "\0"x256;
+  my $ouFsFlags = 0;
+  Win32API::File::GetVolumeInformation($drive, $osVolName, 256, [], [], $ouFsFlags, $osFsType, 256 );
+  if ($ouFsFlags & Win32API::File::FS_CASE_SENSITIVE()) { return 0; }
+  else { return 1; }
+}
+
+=item file_name_is_absolute
+
+As of right now, this returns 2 if the path is absolute with a
+volume, 1 if it's absolute with no volume, 0 otherwise.
+
+=cut
+
+sub file_name_is_absolute {
+
+    my ($self,$file) = @_;
+
+    if ($file =~ m{^($VOL_RX)}o) {
+      my $vol = $1;
+      return ($vol =~ m{^$UNC_RX}o ? 2
+	      : $file =~ m{^$DRIVE_RX[\\/]}o ? 2
+	      : 0);
+    }
+    return $file =~  m{^[\\/]} ? 1 : 0;
+}
+
+=item catfile
+
+Concatenate one or more directory names and a filename to form a
+complete path ending with a filename
+
+=cut
+
+sub catfile {
+    shift;
+
+    # Legacy / compatibility support
+    #
+    shift, return _canon_cat( "/", @_ )
+	if $_[0] eq "";
+
+    # Compatibility with File::Spec <= 3.26:
+    #     catfile('A:', 'foo') should return 'A:\foo'.
+    return _canon_cat( ($_[0].'\\'), @_[1..$#_] )
+        if $_[0] =~ m{^$DRIVE_RX\z}o;
+
+    return _canon_cat( @_ );
+}
+
+sub catdir {
+    shift;
+
+    # Legacy / compatibility support
+    #
+    return ""
+    	unless @_;
+    shift, return _canon_cat( "/", @_ )
+	if $_[0] eq "";
+
+    # Compatibility with File::Spec <= 3.26:
+    #     catdir('A:', 'foo') should return 'A:\foo'.
+    return _canon_cat( ($_[0].'\\'), @_[1..$#_] )
+        if $_[0] =~ m{^$DRIVE_RX\z}o;
+
+    return _canon_cat( @_ );
+}
+
+sub path {
+    my @path = split(';', $ENV{PATH});
+    s/"//g for @path;
+    @path = grep length, @path;
+    unshift(@path, ".");
+    return @path;
+}
+
+=item canonpath
+
+No physical check on the filesystem, but a logical cleanup of a
+path. On UNIX eliminated successive slashes and successive "/.".
+On Win32 makes 
+
+	dir1\dir2\dir3\..\..\dir4 -> \dir\dir4 and even
+	dir1\dir2\dir3\...\dir4   -> \dir\dir4
+
+=cut
+
+sub canonpath {
+    # Legacy / compatibility support
+    #
+    return $_[1] if !defined($_[1]) or $_[1] eq '';
+    return _canon_cat( $_[1] );
+}
+
+=item splitpath
+
+   ($volume,$directories,$file) = File::Spec->splitpath( $path );
+   ($volume,$directories,$file) = File::Spec->splitpath( $path,
+                                                         $no_file );
+
+Splits a path into volume, directory, and filename portions. Assumes that 
+the last file is a path unless the path ends in '\\', '\\.', '\\..'
+or $no_file is true.  On Win32 this means that $no_file true makes this return 
+( $volume, $path, '' ).
+
+Separators accepted are \ and /.
+
+Volumes can be drive letters or UNC sharenames (\\server\share).
+
+The results can be passed to L</catpath> to get back a path equivalent to
+(usually identical to) the original path.
+
+=cut
+
+sub splitpath {
+    my ($self,$path, $nofile) = @_;
+    my ($volume,$directory,$file) = ('','','');
+    if ( $nofile ) {
+        $path =~ 
+            m{^ ( $VOL_RX ? ) (.*) }sox;
+        $volume    = $1;
+        $directory = $2;
+    }
+    else {
+        $path =~ 
+            m{^ ( $VOL_RX ? )
+                ( (?:.*[\\/](?:\.\.?\Z(?!\n))?)? )
+                (.*)
+             }sox;
+        $volume    = $1;
+        $directory = $2;
+        $file      = $3;
+    }
+
+    return ($volume,$directory,$file);
+}
+
+
+=item splitdir
+
+The opposite of L<catdir()|File::Spec/catdir>.
+
+    @dirs = File::Spec->splitdir( $directories );
+
+$directories must be only the directory portion of the path on systems 
+that have the concept of a volume or that have path syntax that differentiates
+files from directories.
+
+Unlike just splitting the directories on the separator, leading empty and 
+trailing directory entries can be returned, because these are significant
+on some OSs. So,
+
+    File::Spec->splitdir( "/a/b/c" );
+
+Yields:
+
+    ( '', 'a', 'b', '', 'c', '' )
+
+=cut
+
+sub splitdir {
+    my ($self,$directories) = @_ ;
+    #
+    # split() likes to forget about trailing null fields, so here we
+    # check to be sure that there will not be any before handling the
+    # simple case.
+    #
+    if ( $directories !~ m|[\\/]\Z(?!\n)| ) {
+        return split( m|[\\/]|, $directories );
+    }
+    else {
+        #
+        # since there was a trailing separator, add a file name to the end, 
+        # then do the split, then replace it with ''.
+        #
+        my( @directories )= split( m|[\\/]|, "${directories}dummy" ) ;
+        $directories[ $#directories ]= '' ;
+        return @directories ;
+    }
+}
+
+
+=item catpath
+
+Takes volume, directory and file portions and returns an entire path. Under
+Unix, $volume is ignored, and this is just like catfile(). On other OSs,
+the $volume become significant.
+
+=cut
+
+sub catpath {
+    my ($self,$volume,$directory,$file) = @_;
+
+    # If it's UNC, make sure the glue separator is there, reusing
+    # whatever separator is first in the $volume
+    my $v;
+    $volume .= $v
+        if ( (($v) = $volume =~ m@^([\\/])[\\/][^\\/]+[\\/][^\\/]+\Z(?!\n)@s) &&
+             $directory =~ m@^[^\\/]@s
+           ) ;
+
+    $volume .= $directory ;
+
+    # If the volume is not just A:, make sure the glue separator is 
+    # there, reusing whatever separator is first in the $volume if possible.
+    if ( $volume !~ m@^[a-zA-Z]:\Z(?!\n)@s &&
+         $volume =~ m@[^\\/]\Z(?!\n)@      &&
+         $file   =~ m@[^\\/]@
+       ) {
+        $volume =~ m@([\\/])@ ;
+        my $sep = $1 ? $1 : '\\' ;
+        $volume .= $sep ;
+    }
+
+    $volume .= $file ;
+
+    return $volume ;
+}
+
+sub _same {
+  lc($_[1]) eq lc($_[2]);
+}
+
+sub rel2abs {
+    my ($self,$path,$base ) = @_;
+
+    my $is_abs = $self->file_name_is_absolute($path);
+
+    # Check for volume (should probably document the '2' thing...)
+    return $self->canonpath( $path ) if $is_abs == 2;
+
+    if ($is_abs) {
+      # It's missing a volume, add one
+      my $vol = ($self->splitpath( $self->_cwd() ))[0];
+      return $self->canonpath( $vol . $path );
+    }
+
+    if ( !defined( $base ) || $base eq '' ) {
+      require Cwd ;
+      $base = Cwd::getdcwd( ($self->splitpath( $path ))[0] ) if defined &Cwd::getdcwd ;
+      $base = $self->_cwd() unless defined $base ;
+    }
+    elsif ( ! $self->file_name_is_absolute( $base ) ) {
+      $base = $self->rel2abs( $base ) ;
+    }
+    else {
+      $base = $self->canonpath( $base ) ;
+    }
+
+    my ( $path_directories, $path_file ) =
+      ($self->splitpath( $path, 1 ))[1,2] ;
+
+    my ( $base_volume, $base_directories ) =
+      $self->splitpath( $base, 1 ) ;
+
+    $path = $self->catpath( 
+			   $base_volume, 
+			   $self->catdir( $base_directories, $path_directories ), 
+			   $path_file
+			  ) ;
+
+    return $self->canonpath( $path ) ;
+}
+
+=back
+
+=head2 Note For File::Spec::Win32 Maintainers
+
+Novell NetWare inherits its File::Spec behaviour from File::Spec::Win32.
+
+=head1 COPYRIGHT
+
+Copyright (c) 2004,2007 by the Perl 5 Porters.  All rights reserved.
+
+This program is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
+=head1 SEE ALSO
+
+See L<File::Spec> and L<File::Spec::Unix>.  This package overrides the
+implementation of these methods, not the semantics.
+
+=cut
+
+
+sub _canon_cat				# @path -> path
+{
+    my ($first, @rest) = @_;
+
+    my $volume = $first =~ s{ \A ([A-Za-z]:) ([\\/]?) }{}x	# drive letter
+    	       ? ucfirst( $1 ).( $2 ? "\\" : "" )
+	       : $first =~ s{ \A (?:\\\\|//) ([^\\/]+)
+				 (?: [\\/] ([^\\/]+) )?
+	       			 [\\/]? }{}xs			# UNC volume
+	       ? "\\\\$1".( defined $2 ? "\\$2" : "" )."\\"
+	       : $first =~ s{ \A [\\/] }{}x			# root dir
+	       ? "\\"
+	       : "";
+    my $path   = join "\\", $first, @rest;
+
+    $path =~ tr#\\/#\\\\#s;		# xx/yy --> xx\yy & xx\\yy --> xx\yy
+
+    					# xx/././yy --> xx/yy
+    $path =~ s{(?:
+		(?:\A|\\)		# at begin or after a slash
+		\.
+		(?:\\\.)*		# and more
+		(?:\\|\z) 		# at end or followed by slash
+	       )+			# performance boost -- I do not know why
+	     }{\\}gx;
+
+    # XXX I do not know whether more dots are supported by the OS supporting
+    #     this ... annotation (NetWare or symbian but not MSWin32).
+    #     Then .... could easily become ../../.. etc:
+    # Replace \.\.\. by (\.\.\.+)  and substitute with
+    # { $1 . ".." . "\\.." x (length($2)-2) }gex
+	     				# ... --> ../..
+    $path =~ s{ (\A|\\)			# at begin or after a slash
+    		\.\.\.
+		(?=\\|\z) 		# at end or followed by slash
+	     }{$1..\\..}gx;
+    					# xx\yy\..\zz --> xx\zz
+    while ( $path =~ s{(?:
+		(?:\A|\\)		# at begin or after a slash
+		[^\\]+			# rip this 'yy' off
+		\\\.\.
+		(?<!\A\.\.\\\.\.)	# do *not* replace ^..\..
+		(?<!\\\.\.\\\.\.)	# do *not* replace \..\..
+		(?:\\|\z) 		# at end or followed by slash
+	       )+			# performance boost -- I do not know why
+	     }{\\}sx ) {}
+
+    $path =~ s#\A\\##;			# \xx --> xx  NOTE: this is *not* root
+    $path =~ s#\\\z##;			# xx\ --> xx
+
+    if ( $volume =~ m#\\\z# )
+    {					# <vol>\.. --> <vol>\
+	$path =~ s{ \A			# at begin
+		    \.\.
+		    (?:\\\.\.)*		# and more
+		    (?:\\|\z) 		# at end or followed by slash
+		 }{}x;
+
+	return $1			# \\HOST\SHARE\ --> \\HOST\SHARE
+	    if    $path eq ""
+	      and $volume =~ m#\A(\\\\.*)\\\z#s;
+    }
+    return $path ne "" || $volume ? $volume.$path : ".";
+}
+
+1;
diff --git a/lib/5.24.1/x86_64-linux/Filter/Util/Call.pm b/lib/5.24.1/x86_64-linux/Filter/Util/Call.pm
new file mode 100644
index 00000000..8b4d41a8
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/Filter/Util/Call.pm
@@ -0,0 +1,533 @@
+# Call.pm
+#
+# Copyright (c) 1995-2011 Paul Marquess. All rights reserved.
+# Copyright (c) 2011-2014 Reini Urban. All rights reserved.
+#
+# This program is free software; you can redistribute it and/or
+# modify it under the same terms as Perl itself.
+ 
+package Filter::Util::Call ;
+
+require 5.005 ;
+require DynaLoader;
+require Exporter;
+use Carp ;
+use strict;
+use warnings;
+use vars qw($VERSION @ISA @EXPORT) ;
+
+@ISA = qw(Exporter DynaLoader);
+@EXPORT = qw( filter_add filter_del filter_read filter_read_exact) ;
+$VERSION = "1.55" ;
+
+sub filter_read_exact($)
+{
+    my ($size)   = @_ ;
+    my ($left)   = $size ;
+    my ($status) ;
+
+    croak ("filter_read_exact: size parameter must be > 0")
+	unless $size > 0 ;
+
+    # try to read a block which is exactly $size bytes long
+    while ($left and ($status = filter_read($left)) > 0) {
+        $left = $size - length $_ ;
+    }
+
+    # EOF with pending data is a special case
+    return 1 if $status == 0 and length $_ ;
+
+    return $status ;
+}
+
+sub filter_add($)
+{
+    my($obj) = @_ ;
+
+    # Did we get a code reference?
+    my $coderef = (ref $obj eq 'CODE');
+
+    # If the parameter isn't already a reference, make it one.
+    if (!$coderef and (!ref($obj) or ref($obj) =~ /^ARRAY|HASH$/)) {
+      $obj = bless (\$obj, (caller)[0]);
+    }
+
+    # finish off the installation of the filter in C.
+    Filter::Util::Call::real_import($obj, (caller)[0], $coderef) ;
+}
+
+bootstrap Filter::Util::Call ;
+
+1;
+__END__
+
+=head1 NAME
+
+Filter::Util::Call - Perl Source Filter Utility Module
+
+=head1 SYNOPSIS
+
+    use Filter::Util::Call ;
+
+=head1 DESCRIPTION
+
+This module provides you with the framework to write I<Source Filters>
+in Perl. 
+
+An alternate interface to Filter::Util::Call is now available. See
+L<Filter::Simple> for more details.
+
+A I<Perl Source Filter> is implemented as a Perl module. The structure
+of the module can take one of two broadly similar formats. To
+distinguish between them, the first will be referred to as I<method
+filter> and the second as I<closure filter>.
+
+Here is a skeleton for the I<method filter>:
+
+    package MyFilter ;
+
+    use Filter::Util::Call ;
+
+    sub import
+    {
+        my($type, @arguments) = @_ ;
+        filter_add([]) ;
+    }
+
+    sub filter
+    {
+        my($self) = @_ ;
+        my($status) ;
+
+        $status = filter_read() ;
+        $status ;
+    }
+
+    1 ;
+
+and this is the equivalent skeleton for the I<closure filter>:
+
+    package MyFilter ;
+
+    use Filter::Util::Call ;
+
+    sub import
+    {
+        my($type, @arguments) = @_ ;
+
+        filter_add(
+            sub 
+            {
+                my($status) ;
+                $status = filter_read() ;
+                $status ;
+            } )
+    }
+
+    1 ;
+
+To make use of either of the two filter modules above, place the line
+below in a Perl source file.
+
+    use MyFilter; 
+
+In fact, the skeleton modules shown above are fully functional I<Source
+Filters>, albeit fairly useless ones. All they does is filter the
+source stream without modifying it at all.
+
+As you can see both modules have a broadly similar structure. They both
+make use of the C<Filter::Util::Call> module and both have an C<import>
+method. The difference between them is that the I<method filter>
+requires a I<filter> method, whereas the I<closure filter> gets the
+equivalent of a I<filter> method with the anonymous sub passed to
+I<filter_add>.
+
+To make proper use of the I<closure filter> shown above you need to
+have a good understanding of the concept of a I<closure>. See
+L<perlref> for more details on the mechanics of I<closures>.
+
+=head2 B<use Filter::Util::Call>
+
+The following functions are exported by C<Filter::Util::Call>:
+
+    filter_add()
+    filter_read()
+    filter_read_exact()
+    filter_del()
+
+=head2 B<import()>
+
+The C<import> method is used to create an instance of the filter. It is
+called indirectly by Perl when it encounters the C<use MyFilter> line
+in a source file (See L<perlfunc/import> for more details on
+C<import>).
+
+It will always have at least one parameter automatically passed by Perl
+- this corresponds to the name of the package. In the example above it
+will be C<"MyFilter">.
+
+Apart from the first parameter, import can accept an optional list of
+parameters. These can be used to pass parameters to the filter. For
+example:
+
+    use MyFilter qw(a b c) ;
+
+will result in the C<@_> array having the following values:
+
+    @_ [0] => "MyFilter"
+    @_ [1] => "a"
+    @_ [2] => "b"
+    @_ [3] => "c"
+
+Before terminating, the C<import> function must explicitly install the
+filter by calling C<filter_add>.
+
+=head2 B<filter_add()>
+
+The function, C<filter_add>, actually installs the filter. It takes one
+parameter which should be a reference. The kind of reference used will
+dictate which of the two filter types will be used.
+
+If a CODE reference is used then a I<closure filter> will be assumed.
+
+If a CODE reference is not used, a I<method filter> will be assumed.
+In a I<method filter>, the reference can be used to store context
+information. The reference will be I<blessed> into the package by
+C<filter_add>, unless the reference was already blessed.
+
+See the filters at the end of this documents for examples of using
+context information using both I<method filters> and I<closure
+filters>.
+
+=head2 B<filter() and anonymous sub>
+
+Both the C<filter> method used with a I<method filter> and the
+anonymous sub used with a I<closure filter> is where the main
+processing for the filter is done.
+
+The big difference between the two types of filter is that the I<method
+filter> uses the object passed to the method to store any context data,
+whereas the I<closure filter> uses the lexical variables that are
+maintained by the closure.
+
+Note that the single parameter passed to the I<method filter>,
+C<$self>, is the same reference that was passed to C<filter_add>
+blessed into the filter's package. See the example filters later on for
+details of using C<$self>.
+
+Here is a list of the common features of the anonymous sub and the
+C<filter()> method.
+
+=over 5
+
+=item B<$_>
+
+Although C<$_> doesn't actually appear explicitly in the sample filters
+above, it is implicitly used in a number of places.
+
+Firstly, when either C<filter> or the anonymous sub are called, a local
+copy of C<$_> will automatically be created. It will always contain the
+empty string at this point.
+
+Next, both C<filter_read> and C<filter_read_exact> will append any
+source data that is read to the end of C<$_>.
+
+Finally, when C<filter> or the anonymous sub are finished processing,
+they are expected to return the filtered source using C<$_>.
+
+This implicit use of C<$_> greatly simplifies the filter.
+
+=item B<$status>
+
+The status value that is returned by the user's C<filter> method or
+anonymous sub and the C<filter_read> and C<read_exact> functions take
+the same set of values, namely:
+
+    < 0  Error
+    = 0  EOF
+    > 0  OK
+
+=item B<filter_read> and B<filter_read_exact>
+
+These functions are used by the filter to obtain either a line or block
+from the next filter in the chain or the actual source file if there
+aren't any other filters.
+
+The function C<filter_read> takes two forms:
+
+    $status = filter_read() ;
+    $status = filter_read($size) ;
+
+The first form is used to request a I<line>, the second requests a
+I<block>.
+
+In line mode, C<filter_read> will append the next source line to the
+end of the C<$_> scalar.
+
+In block mode, C<filter_read> will append a block of data which is <=
+C<$size> to the end of the C<$_> scalar. It is important to emphasise
+the that C<filter_read> will not necessarily read a block which is
+I<precisely> C<$size> bytes.
+
+If you need to be able to read a block which has an exact size, you can
+use the function C<filter_read_exact>. It works identically to
+C<filter_read> in block mode, except it will try to read a block which
+is exactly C<$size> bytes in length. The only circumstances when it
+will not return a block which is C<$size> bytes long is on EOF or
+error.
+
+It is I<very> important to check the value of C<$status> after I<every>
+call to C<filter_read> or C<filter_read_exact>.
+
+=item B<filter_del>
+
+The function, C<filter_del>, is used to disable the current filter. It
+does not affect the running of the filter. All it does is tell Perl not
+to call filter any more.
+
+See L<Example 4: Using filter_del> for details.
+
+=item I<real_import>
+
+Internal function which adds the filter, based on the L<filter_add>
+argument type.
+
+=item I<unimport()>
+
+May be used to disable a filter, but is rarely needed. See L<filter_del>.
+
+=back
+
+=head1 LIMITATIONS
+
+See L<perlfilter/LIMITATIONS> for an overview of the general problems
+filtering code in a textual line-level only.
+
+=over
+
+=item __DATA__ is ignored
+
+The content from the __DATA__ block is not filtered.
+This is a serious limitation, e.g. for the L<Switch> module.
+See L<http://search.cpan.org/perldoc?Switch#LIMITATIONS> for more.
+
+=item Max. codesize limited to 32-bit
+
+Currently internal buffer lengths are limited to 32-bit only.
+
+=back
+
+=head1 EXAMPLES
+
+Here are a few examples which illustrate the key concepts - as such
+most of them are of little practical use.
+
+The C<examples> sub-directory has copies of all these filters
+implemented both as I<method filters> and as I<closure filters>.
+
+=head2 Example 1: A simple filter.
+
+Below is a I<method filter> which is hard-wired to replace all
+occurrences of the string C<"Joe"> to C<"Jim">. Not particularly
+Useful, but it is the first example and I wanted to keep it simple.
+
+    package Joe2Jim ;
+
+    use Filter::Util::Call ;
+
+    sub import
+    {
+        my($type) = @_ ;
+
+        filter_add(bless []) ;
+    }
+
+    sub filter
+    {
+        my($self) = @_ ;
+        my($status) ;
+
+        s/Joe/Jim/g
+            if ($status = filter_read()) > 0 ;
+        $status ;
+    }
+
+    1 ;
+
+Here is an example of using the filter:
+
+    use Joe2Jim ;
+    print "Where is Joe?\n" ;
+
+And this is what the script above will print:
+
+    Where is Jim?
+
+=head2 Example 2: Using the context
+
+The previous example was not particularly useful. To make it more
+general purpose we will make use of the context data and allow any
+arbitrary I<from> and I<to> strings to be used. This time we will use a
+I<closure filter>. To reflect its enhanced role, the filter is called
+C<Subst>.
+
+    package Subst ;
+
+    use Filter::Util::Call ;
+    use Carp ;
+
+    sub import
+    {
+        croak("usage: use Subst qw(from to)")
+            unless @_ == 3 ;
+        my ($self, $from, $to) = @_ ;
+        filter_add(
+            sub 
+            {
+                my ($status) ;
+                s/$from/$to/
+                    if ($status = filter_read()) > 0 ;
+                $status ;
+            })
+    }
+    1 ;
+
+and is used like this:
+
+    use Subst qw(Joe Jim) ;
+    print "Where is Joe?\n" ;
+
+
+=head2 Example 3: Using the context within the filter
+
+Here is a filter which a variation of the C<Joe2Jim> filter. As well as
+substituting all occurrences of C<"Joe"> to C<"Jim"> it keeps a count
+of the number of substitutions made in the context object.
+
+Once EOF is detected (C<$status> is zero) the filter will insert an
+extra line into the source stream. When this extra line is executed it
+will print a count of the number of substitutions actually made.
+Note that C<$status> is set to C<1> in this case.
+
+    package Count ;
+
+    use Filter::Util::Call ;
+
+    sub filter
+    {
+        my ($self) = @_ ;
+        my ($status) ;
+
+        if (($status = filter_read()) > 0 ) {
+            s/Joe/Jim/g ;
+	    ++ $$self ;
+        }
+	elsif ($$self >= 0) { # EOF
+            $_ = "print q[Made ${$self} substitutions\n]" ;
+            $status = 1 ;
+	    $$self = -1 ;
+        }
+
+        $status ;
+    }
+
+    sub import
+    {
+        my ($self) = @_ ;
+        my ($count) = 0 ;
+        filter_add(\$count) ;
+    }
+
+    1 ;
+
+Here is a script which uses it:
+
+    use Count ;
+    print "Hello Joe\n" ;
+    print "Where is Joe\n" ;
+
+Outputs:
+
+    Hello Jim
+    Where is Jim
+    Made 2 substitutions
+
+=head2 Example 4: Using filter_del
+
+Another variation on a theme. This time we will modify the C<Subst>
+filter to allow a starting and stopping pattern to be specified as well
+as the I<from> and I<to> patterns. If you know the I<vi> editor, it is
+the equivalent of this command:
+
+    :/start/,/stop/s/from/to/
+
+When used as a filter we want to invoke it like this:
+
+    use NewSubst qw(start stop from to) ;
+
+Here is the module.
+
+    package NewSubst ;
+
+    use Filter::Util::Call ;
+    use Carp ;
+
+    sub import
+    {
+        my ($self, $start, $stop, $from, $to) = @_ ;
+        my ($found) = 0 ;
+        croak("usage: use Subst qw(start stop from to)")
+            unless @_ == 5 ;
+
+        filter_add( 
+            sub 
+            {
+                my ($status) ;
+
+                if (($status = filter_read()) > 0) {
+
+                    $found = 1
+                        if $found == 0 and /$start/ ;
+
+                    if ($found) {
+                        s/$from/$to/ ;
+                        filter_del() if /$stop/ ;
+                    }
+
+                }
+                $status ;
+            } )
+
+    }
+
+    1 ;
+
+=head1 Filter::Simple
+
+If you intend using the Filter::Call functionality, I would strongly
+recommend that you check out Damian Conway's excellent Filter::Simple
+module. Damian's module provides a much cleaner interface than
+Filter::Util::Call. Although it doesn't allow the fine control that
+Filter::Util::Call does, it should be adequate for the majority of
+applications. It's available at
+
+   http://search.cpan.org/dist/Filter-Simple/
+
+=head1 AUTHOR
+
+Paul Marquess 
+
+=head1 DATE
+
+26th January 1996
+
+=head1 LICENSE
+
+Copyright (c) 1995-2011 Paul Marquess. All rights reserved.
+Copyright (c) 2011-2014 Reini Urban. All rights reserved.
+
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+=cut
+
diff --git a/lib/5.24.1/x86_64-linux/Hash/Util.pm b/lib/5.24.1/x86_64-linux/Hash/Util.pm
new file mode 100644
index 00000000..a947b9a7
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/Hash/Util.pm
@@ -0,0 +1,800 @@
+package Hash::Util;
+
+require 5.007003;
+use strict;
+use Carp;
+use warnings;
+no warnings 'uninitialized';
+use warnings::register;
+use Scalar::Util qw(reftype);
+
+require Exporter;
+our @ISA        = qw(Exporter);
+our @EXPORT_OK  = qw(
+                     fieldhash fieldhashes
+
+                     all_keys
+                     lock_keys unlock_keys
+                     lock_value unlock_value
+                     lock_hash unlock_hash
+                     lock_keys_plus
+                     hash_locked hash_unlocked
+                     hashref_locked hashref_unlocked
+                     hidden_keys legal_keys
+
+                     lock_ref_keys unlock_ref_keys
+                     lock_ref_value unlock_ref_value
+                     lock_hashref unlock_hashref
+                     lock_ref_keys_plus
+                     hidden_ref_keys legal_ref_keys
+
+                     hash_seed hash_value hv_store
+                     bucket_stats bucket_stats_formatted bucket_info bucket_array
+                     lock_hash_recurse unlock_hash_recurse
+                     lock_hashref_recurse unlock_hashref_recurse
+
+                     hash_traversal_mask
+                    );
+our $VERSION = '0.19';
+require XSLoader;
+XSLoader::load();
+
+sub import {
+    my $class = shift;
+    if ( grep /fieldhash/, @_ ) {
+        require Hash::Util::FieldHash;
+        Hash::Util::FieldHash->import(':all'); # for re-export
+    }
+    unshift @_, $class;
+    goto &Exporter::import;
+}
+
+
+=head1 NAME
+
+Hash::Util - A selection of general-utility hash subroutines
+
+=head1 SYNOPSIS
+
+  # Restricted hashes
+
+  use Hash::Util qw(
+                     fieldhash fieldhashes
+
+                     all_keys
+                     lock_keys unlock_keys
+                     lock_value unlock_value
+                     lock_hash unlock_hash
+                     lock_keys_plus
+                     hash_locked hash_unlocked
+                     hashref_locked hashref_unlocked
+                     hidden_keys legal_keys
+
+                     lock_ref_keys unlock_ref_keys
+                     lock_ref_value unlock_ref_value
+                     lock_hashref unlock_hashref
+                     lock_ref_keys_plus
+                     hidden_ref_keys legal_ref_keys
+
+                     hash_seed hash_value hv_store
+                     bucket_stats bucket_info bucket_array
+                     lock_hash_recurse unlock_hash_recurse
+                     lock_hashref_recurse unlock_hashref_recurse
+
+                     hash_traversal_mask
+                   );
+
+  %hash = (foo => 42, bar => 23);
+  # Ways to restrict a hash
+  lock_keys(%hash);
+  lock_keys(%hash, @keyset);
+  lock_keys_plus(%hash, @additional_keys);
+
+  # Ways to inspect the properties of a restricted hash
+  my @legal = legal_keys(%hash);
+  my @hidden = hidden_keys(%hash);
+  my $ref = all_keys(%hash,@keys,@hidden);
+  my $is_locked = hash_locked(%hash);
+
+  # Remove restrictions on the hash
+  unlock_keys(%hash);
+
+  # Lock individual values in a hash
+  lock_value  (%hash, 'foo');
+  unlock_value(%hash, 'foo');
+
+  # Ways to change the restrictions on both keys and values
+  lock_hash  (%hash);
+  unlock_hash(%hash);
+
+  my $hashes_are_randomised = hash_seed() != 0;
+
+  my $int_hash_value = hash_value( 'string' );
+
+  my $mask= hash_traversal_mask(%hash);
+
+  hash_traversal_mask(%hash,1234);
+
+=head1 DESCRIPTION
+
+C<Hash::Util> and C<Hash::Util::FieldHash> contain special functions
+for manipulating hashes that don't really warrant a keyword.
+
+C<Hash::Util> contains a set of functions that support
+L<restricted hashes|/"Restricted hashes">. These are described in
+this document.  C<Hash::Util::FieldHash> contains an (unrelated)
+set of functions that support the use of hashes in
+I<inside-out classes>, described in L<Hash::Util::FieldHash>.
+
+By default C<Hash::Util> does not export anything.
+
+=head2 Restricted hashes
+
+5.8.0 introduces the ability to restrict a hash to a certain set of
+keys.  No keys outside of this set can be added.  It also introduces
+the ability to lock an individual key so it cannot be deleted and the
+ability to ensure that an individual value cannot be changed.
+
+This is intended to largely replace the deprecated pseudo-hashes.
+
+=over 4
+
+=item B<lock_keys>
+
+=item B<unlock_keys>
+
+  lock_keys(%hash);
+  lock_keys(%hash, @keys);
+
+Restricts the given %hash's set of keys to @keys.  If @keys is not
+given it restricts it to its current keyset.  No more keys can be
+added. delete() and exists() will still work, but will not alter
+the set of allowed keys. B<Note>: the current implementation prevents
+the hash from being bless()ed while it is in a locked state. Any attempt
+to do so will raise an exception. Of course you can still bless()
+the hash before you call lock_keys() so this shouldn't be a problem.
+
+  unlock_keys(%hash);
+
+Removes the restriction on the %hash's keyset.
+
+B<Note> that if any of the values of the hash have been locked they will not
+be unlocked after this sub executes.
+
+Both routines return a reference to the hash operated on.
+
+=cut
+
+sub lock_ref_keys {
+    my($hash, @keys) = @_;
+
+    Internals::hv_clear_placeholders %$hash;
+    if( @keys ) {
+        my %keys = map { ($_ => 1) } @keys;
+        my %original_keys = map { ($_ => 1) } keys %$hash;
+        foreach my $k (keys %original_keys) {
+            croak "Hash has key '$k' which is not in the new key set"
+              unless $keys{$k};
+        }
+
+        foreach my $k (@keys) {
+            $hash->{$k} = undef unless exists $hash->{$k};
+        }
+        Internals::SvREADONLY %$hash, 1;
+
+        foreach my $k (@keys) {
+            delete $hash->{$k} unless $original_keys{$k};
+        }
+    }
+    else {
+        Internals::SvREADONLY %$hash, 1;
+    }
+
+    return $hash;
+}
+
+sub unlock_ref_keys {
+    my $hash = shift;
+
+    Internals::SvREADONLY %$hash, 0;
+    return $hash;
+}
+
+sub   lock_keys (\%;@) {   lock_ref_keys(@_) }
+sub unlock_keys (\%)   { unlock_ref_keys(@_) }
+
+=item B<lock_keys_plus>
+
+  lock_keys_plus(%hash,@additional_keys)
+
+Similar to C<lock_keys()>, with the difference being that the optional key list
+specifies keys that may or may not be already in the hash. Essentially this is
+an easier way to say
+
+  lock_keys(%hash,@additional_keys,keys %hash);
+
+Returns a reference to %hash
+
+=cut
+
+
+sub lock_ref_keys_plus {
+    my ($hash,@keys) = @_;
+    my @delete;
+    Internals::hv_clear_placeholders(%$hash);
+    foreach my $key (@keys) {
+        unless (exists($hash->{$key})) {
+            $hash->{$key}=undef;
+            push @delete,$key;
+        }
+    }
+    Internals::SvREADONLY(%$hash,1);
+    delete @{$hash}{@delete};
+    return $hash
+}
+
+sub lock_keys_plus(\%;@) { lock_ref_keys_plus(@_) }
+
+
+=item B<lock_value>
+
+=item B<unlock_value>
+
+  lock_value  (%hash, $key);
+  unlock_value(%hash, $key);
+
+Locks and unlocks the value for an individual key of a hash.  The value of a
+locked key cannot be changed.
+
+Unless %hash has already been locked the key/value could be deleted
+regardless of this setting.
+
+Returns a reference to the %hash.
+
+=cut
+
+sub lock_ref_value {
+    my($hash, $key) = @_;
+    # I'm doubtful about this warning, as it seems not to be true.
+    # Marking a value in the hash as RO is useful, regardless
+    # of the status of the hash itself.
+    carp "Cannot usefully lock values in an unlocked hash"
+      if !Internals::SvREADONLY(%$hash) && warnings::enabled;
+    Internals::SvREADONLY $hash->{$key}, 1;
+    return $hash
+}
+
+sub unlock_ref_value {
+    my($hash, $key) = @_;
+    Internals::SvREADONLY $hash->{$key}, 0;
+    return $hash
+}
+
+sub   lock_value (\%$) {   lock_ref_value(@_) }
+sub unlock_value (\%$) { unlock_ref_value(@_) }
+
+
+=item B<lock_hash>
+
+=item B<unlock_hash>
+
+    lock_hash(%hash);
+
+lock_hash() locks an entire hash, making all keys and values read-only.
+No value can be changed, no keys can be added or deleted.
+
+    unlock_hash(%hash);
+
+unlock_hash() does the opposite of lock_hash().  All keys and values
+are made writable.  All values can be changed and keys can be added
+and deleted.
+
+Returns a reference to the %hash.
+
+=cut
+
+sub lock_hashref {
+    my $hash = shift;
+
+    lock_ref_keys($hash);
+
+    foreach my $value (values %$hash) {
+        Internals::SvREADONLY($value,1);
+    }
+
+    return $hash;
+}
+
+sub unlock_hashref {
+    my $hash = shift;
+
+    foreach my $value (values %$hash) {
+        Internals::SvREADONLY($value, 0);
+    }
+
+    unlock_ref_keys($hash);
+
+    return $hash;
+}
+
+sub   lock_hash (\%) {   lock_hashref(@_) }
+sub unlock_hash (\%) { unlock_hashref(@_) }
+
+=item B<lock_hash_recurse>
+
+=item B<unlock_hash_recurse>
+
+    lock_hash_recurse(%hash);
+
+lock_hash() locks an entire hash and any hashes it references recursively,
+making all keys and values read-only. No value can be changed, no keys can
+be added or deleted.
+
+This method B<only> recurses into hashes that are referenced by another hash.
+Thus a Hash of Hashes (HoH) will all be restricted, but a Hash of Arrays of
+Hashes (HoAoH) will only have the top hash restricted.
+
+    unlock_hash_recurse(%hash);
+
+unlock_hash_recurse() does the opposite of lock_hash_recurse().  All keys and
+values are made writable.  All values can be changed and keys can be added
+and deleted. Identical recursion restrictions apply as to lock_hash_recurse().
+
+Returns a reference to the %hash.
+
+=cut
+
+sub lock_hashref_recurse {
+    my $hash = shift;
+
+    lock_ref_keys($hash);
+    foreach my $value (values %$hash) {
+        my $type = reftype($value);
+        if (defined($type) and $type eq 'HASH') {
+            lock_hashref_recurse($value);
+        }
+        Internals::SvREADONLY($value,1);
+    }
+    return $hash
+}
+
+sub unlock_hashref_recurse {
+    my $hash = shift;
+
+    foreach my $value (values %$hash) {
+        my $type = reftype($value);
+        if (defined($type) and $type eq 'HASH') {
+            unlock_hashref_recurse($value);
+        }
+        Internals::SvREADONLY($value,0);
+    }
+    unlock_ref_keys($hash);
+    return $hash;
+}
+
+sub   lock_hash_recurse (\%) {   lock_hashref_recurse(@_) }
+sub unlock_hash_recurse (\%) { unlock_hashref_recurse(@_) }
+
+=item B<hashref_locked>
+
+=item B<hash_locked>
+
+  hashref_locked(\%hash) and print "Hash is locked!\n";
+  hash_locked(%hash) and print "Hash is locked!\n";
+
+Returns true if the hash and its keys are locked.
+
+=cut
+
+sub hashref_locked {
+    my $hash=shift;
+    Internals::SvREADONLY(%$hash);
+}
+
+sub hash_locked(\%) { hashref_locked(@_) }
+
+=item B<hashref_unlocked>
+
+=item B<hash_unlocked>
+
+  hashref_unlocked(\%hash) and print "Hash is unlocked!\n";
+  hash_unlocked(%hash) and print "Hash is unlocked!\n";
+
+Returns true if the hash and its keys are unlocked.
+
+=cut
+
+sub hashref_unlocked {
+    my $hash=shift;
+    !Internals::SvREADONLY(%$hash);
+}
+
+sub hash_unlocked(\%) { hashref_unlocked(@_) }
+
+=for demerphqs_editor
+sub legal_ref_keys{}
+sub hidden_ref_keys{}
+sub all_keys{}
+
+=cut
+
+sub legal_keys(\%) { legal_ref_keys(@_)  }
+sub hidden_keys(\%){ hidden_ref_keys(@_) }
+
+=item B<legal_keys>
+
+  my @keys = legal_keys(%hash);
+
+Returns the list of the keys that are legal in a restricted hash.
+In the case of an unrestricted hash this is identical to calling
+keys(%hash).
+
+=item B<hidden_keys>
+
+  my @keys = hidden_keys(%hash);
+
+Returns the list of the keys that are legal in a restricted hash but
+do not have a value associated to them. Thus if 'foo' is a
+"hidden" key of the %hash it will return false for both C<defined>
+and C<exists> tests.
+
+In the case of an unrestricted hash this will return an empty list.
+
+B<NOTE> this is an experimental feature that is heavily dependent
+on the current implementation of restricted hashes. Should the
+implementation change, this routine may become meaningless, in which
+case it will return an empty list.
+
+=item B<all_keys>
+
+  all_keys(%hash,@keys,@hidden);
+
+Populates the arrays @keys with the all the keys that would pass
+an C<exists> tests, and populates @hidden with the remaining legal
+keys that have not been utilized.
+
+Returns a reference to the hash.
+
+In the case of an unrestricted hash this will be equivalent to
+
+  $ref = do {
+      @keys = keys %hash;
+      @hidden = ();
+      \%hash
+  };
+
+B<NOTE> this is an experimental feature that is heavily dependent
+on the current implementation of restricted hashes. Should the
+implementation change this routine may become meaningless in which
+case it will behave identically to how it would behave on an
+unrestricted hash.
+
+=item B<hash_seed>
+
+    my $hash_seed = hash_seed();
+
+hash_seed() returns the seed bytes used to randomise hash ordering.
+
+B<Note that the hash seed is sensitive information>: by knowing it one
+can craft a denial-of-service attack against Perl code, even remotely,
+see L<perlsec/"Algorithmic Complexity Attacks"> for more information.
+B<Do not disclose the hash seed> to people who don't need to know it.
+See also L<perlrun/PERL_HASH_SEED_DEBUG>.
+
+Prior to Perl 5.17.6 this function returned a UV, it now returns a string,
+which may be of nearly any size as determined by the hash function your
+Perl has been built with. Possible sizes may be but are not limited to
+4 bytes (for most hash algorithms) and 16 bytes (for siphash).
+
+=item B<hash_value>
+
+    my $hash_value = hash_value($string);
+
+hash_value() returns the current perl's internal hash value for a given
+string.
+
+Returns a 32 bit integer representing the hash value of the string passed
+in. This value is only reliable for the lifetime of the process. It may
+be different depending on invocation, environment variables,  perl version,
+architectures, and build options.
+
+B<Note that the hash value of a given string is sensitive information>:
+by knowing it one can deduce the hash seed which in turn can allow one to
+craft a denial-of-service attack against Perl code, even remotely,
+see L<perlsec/"Algorithmic Complexity Attacks"> for more information.
+B<Do not disclose the hash value of a string> to people who don't need to
+know it. See also L<perlrun/PERL_HASH_SEED_DEBUG>.
+
+=item B<bucket_info>
+
+Return a set of basic information about a hash.
+
+    my ($keys, $buckets, $used, @length_counts)= bucket_info($hash);
+
+Fields are as follows:
+
+    0: Number of keys in the hash
+    1: Number of buckets in the hash
+    2: Number of used buckets in the hash
+    rest : list of counts, Kth element is the number of buckets
+           with K keys in it.
+
+See also bucket_stats() and bucket_array().
+
+=item B<bucket_stats>
+
+Returns a list of statistics about a hash.
+
+ my ($keys, $buckets, $used, $quality, $utilization_ratio,
+        $collision_pct, $mean, $stddev, @length_counts)
+    = bucket_stats($hashref);
+
+Fields are as follows:
+
+    0: Number of keys in the hash
+    1: Number of buckets in the hash
+    2: Number of used buckets in the hash
+    3: Hash Quality Score
+    4: Percent of buckets used
+    5: Percent of keys which are in collision
+    6: Mean bucket length of occupied buckets
+    7: Standard Deviation of bucket lengths of occupied buckets
+    rest : list of counts, Kth element is the number of buckets
+           with K keys in it.
+
+See also bucket_info() and bucket_array().
+
+Note that Hash Quality Score would be 1 for an ideal hash, numbers
+close to and below 1 indicate good hashing, and number significantly
+above indicate a poor score. In practice it should be around 0.95 to 1.05.
+It is defined as:
+
+ $score= sum( $count[$length] * ($length * ($length + 1) / 2) )
+            /
+            ( ( $keys / 2 * $buckets ) *
+              ( $keys + ( 2 * $buckets ) - 1 ) )
+
+The formula is from the Red Dragon book (reformulated to use the data available)
+and is documented at L<http://www.strchr.com/hash_functions>
+
+=item B<bucket_array>
+
+    my $array= bucket_array(\%hash);
+
+Returns a packed representation of the bucket array associated with a hash. Each element
+of the array is either an integer K, in which case it represents K empty buckets, or
+a reference to another array which contains the keys that are in that bucket.
+
+B<Note that the information returned by bucket_array is sensitive information>:
+by knowing it one can directly attack perl's hash function which in turn may allow
+one to craft a denial-of-service attack against Perl code, even remotely,
+see L<perlsec/"Algorithmic Complexity Attacks"> for more information.
+B<Do not disclose the output of this function> to people who don't need to
+know it. See also L<perlrun/PERL_HASH_SEED_DEBUG>. This function is provided strictly
+for  debugging and diagnostics purposes only, it is hard to imagine a reason why it
+would be used in production code.
+
+=cut
+
+
+sub bucket_stats {
+    my ($hash) = @_;
+    my ($keys, $buckets, $used, @length_counts) = bucket_info($hash);
+    my $sum;
+    my $score;
+    for (1 .. $#length_counts) {
+        $sum += ($length_counts[$_] * $_);
+        $score += $length_counts[$_] * ( $_ * ($_ + 1 ) / 2 );
+    }
+    $score = $score /
+             (( $keys / (2 * $buckets )) * ( $keys + ( 2 * $buckets ) - 1 ))
+                 if $keys;
+    my ($mean, $stddev)= (0, 0);
+    if ($used) {
+        $mean= $sum / $used;
+        $sum= 0;
+        $sum += ($length_counts[$_] * (($_-$mean)**2)) for 1 .. $#length_counts;
+
+        $stddev= sqrt($sum/$used);
+    }
+    return $keys, $buckets, $used, $keys ? ($score, $used/$buckets, ($keys-$used)/$keys, $mean, $stddev, @length_counts) : ();
+}
+
+=item B<bucket_stats_formatted>
+
+  print bucket_stats_formatted($hashref);
+
+Return a formatted report of the information returned by bucket_stats().
+An example report looks like this:
+
+ Keys: 50 Buckets: 33/64 Quality-Score: 1.01 (Good)
+ Utilized Buckets: 51.56% Optimal: 78.12% Keys In Collision: 34.00%
+ Chain Length - mean: 1.52 stddev: 0.66
+ Buckets 64          [0000000000000000000000000000000111111111111111111122222222222333]
+ Len   0 Pct:  48.44 [###############################]
+ Len   1 Pct:  29.69 [###################]
+ Len   2 Pct:  17.19 [###########]
+ Len   3 Pct:   4.69 [###]
+ Keys    50          [11111111111111111111111111111111122222222222222333]
+ Pos   1 Pct:  66.00 [#################################]
+ Pos   2 Pct:  28.00 [##############]
+ Pos   3 Pct:   6.00 [###]
+
+The first set of stats gives some summary statistical information,
+including the quality score translated into "Good", "Poor" and "Bad",
+(score<=1.05, score<=1.2, score>1.2). See the documentation in
+bucket_stats() for more details.
+
+The two sets of barcharts give stats and a visual indication of performance
+of the hash.
+
+The first gives data on bucket chain lengths and provides insight on how
+much work a fetch *miss* will take. In this case we have to inspect every item
+in a bucket before we can be sure the item is not in the list. The performance
+for an insert is equivalent to this case, as is a delete where the item
+is not in the hash.
+
+The second gives data on how many keys are at each depth in the chain, and
+gives an idea of how much work a fetch *hit* will take. The performance for
+an update or delete of an item in the hash is equivalent to this case.
+
+Note that these statistics are summary only. Actual performance will depend
+on real hit/miss ratios accessing the hash. If you are concerned by hit ratios
+you are recommended to "oversize" your hash by using something like:
+
+   keys(%hash)= keys(%hash) << $k;
+
+With $k chosen carefully, and likely to be a small number like 1 or 2. In
+theory the larger the bucket array the less chance of collision.
+
+=cut
+
+
+sub _bucket_stats_formatted_bars {
+    my ($total, $ary, $start_idx, $title, $row_title)= @_;
+
+    my $return = "";
+    my $max_width= $total > 64 ? 64 : $total;
+    my $bar_width= $max_width / $total;
+
+    my $str= "";
+    if ( @$ary < 10) {
+        for my $idx ($start_idx .. $#$ary) {
+            $str .= $idx x sprintf("%.0f", ($ary->[$idx] * $bar_width));
+        }
+    } else {
+        $str= "-" x $max_width;
+    }
+    $return .= sprintf "%-7s         %6d [%s]\n",$title, $total, $str;
+
+    foreach my $idx ($start_idx .. $#$ary) {
+        $return .= sprintf "%-.3s %3d %6.2f%% %6d [%s]\n",
+            $row_title,
+            $idx,
+            $ary->[$idx] / $total * 100,
+            $ary->[$idx],
+            "#" x sprintf("%.0f", ($ary->[$idx] * $bar_width)),
+        ;
+    }
+    return $return;
+}
+
+sub bucket_stats_formatted {
+    my ($hashref)= @_;
+    my ($keys, $buckets, $used, $score, $utilization_ratio, $collision_pct,
+        $mean, $stddev, @length_counts) = bucket_stats($hashref);
+
+    my $return= sprintf   "Keys: %d Buckets: %d/%d Quality-Score: %.2f (%s)\n"
+                        . "Utilized Buckets: %.2f%% Optimal: %.2f%% Keys In Collision: %.2f%%\n"
+                        . "Chain Length - mean: %.2f stddev: %.2f\n",
+                $keys, $used, $buckets, $score, $score <= 1.05 ? "Good" : $score < 1.2 ? "Poor" : "Bad",
+                $utilization_ratio * 100,
+                $keys/$buckets * 100,
+                $collision_pct * 100,
+                $mean, $stddev;
+
+    my @key_depth;
+    $key_depth[$_]= $length_counts[$_] + ( $key_depth[$_+1] || 0 )
+        for reverse 1 .. $#length_counts;
+
+    if ($keys) {
+        $return .= _bucket_stats_formatted_bars($buckets, \@length_counts, 0, "Buckets", "Len");
+        $return .= _bucket_stats_formatted_bars($keys, \@key_depth, 1, "Keys", "Pos");
+    }
+    return $return
+}
+
+=item B<hv_store>
+
+  my $sv = 0;
+  hv_store(%hash,$key,$sv) or die "Failed to alias!";
+  $hash{$key} = 1;
+  print $sv; # prints 1
+
+Stores an alias to a variable in a hash instead of copying the value.
+
+=item B<hash_traversal_mask>
+
+As of Perl 5.18 every hash has its own hash traversal order, and this order
+changes every time a new element is inserted into the hash. This functionality
+is provided by maintaining an unsigned integer mask (U32) which is xor'ed
+with the actual bucket id during a traversal of the hash buckets using keys(),
+values() or each().
+
+You can use this subroutine to get and set the traversal mask for a specific
+hash. Setting the mask ensures that a given hash will produce the same key
+order. B<Note> that this does B<not> guarantee that B<two> hashes will produce
+the same key order for the same hash seed and traversal mask, items that
+collide into one bucket may have different orders regardless of this setting.
+
+=back
+
+=head2 Operating on references to hashes.
+
+Most subroutines documented in this module have equivalent versions
+that operate on references to hashes instead of native hashes.
+The following is a list of these subs. They are identical except
+in name and in that instead of taking a %hash they take a $hashref,
+and additionally are not prototyped.
+
+=over 4
+
+=item lock_ref_keys
+
+=item unlock_ref_keys
+
+=item lock_ref_keys_plus
+
+=item lock_ref_value
+
+=item unlock_ref_value
+
+=item lock_hashref
+
+=item unlock_hashref
+
+=item lock_hashref_recurse
+
+=item unlock_hashref_recurse
+
+=item hash_ref_unlocked
+
+=item legal_ref_keys
+
+=item hidden_ref_keys
+
+=back
+
+=head1 CAVEATS
+
+Note that the trapping of the restricted operations is not atomic:
+for example
+
+    eval { %hash = (illegal_key => 1) }
+
+leaves the C<%hash> empty rather than with its original contents.
+
+=head1 BUGS
+
+The interface exposed by this module is very close to the current
+implementation of restricted hashes. Over time it is expected that
+this behavior will be extended and the interface abstracted further.
+
+=head1 AUTHOR
+
+Michael G Schwern <schwern@pobox.com> on top of code by Nick
+Ing-Simmons and Jeffrey Friedl.
+
+hv_store() is from Array::RefElem, Copyright 2000 Gisle Aas.
+
+Additional code by Yves Orton.
+
+=head1 SEE ALSO
+
+L<Scalar::Util>, L<List::Util> and L<perlsec/"Algorithmic Complexity Attacks">.
+
+L<Hash::Util::FieldHash>.
+
+=cut
+
+1;
diff --git a/lib/5.24.1/x86_64-linux/Hash/Util/FieldHash.pm b/lib/5.24.1/x86_64-linux/Hash/Util/FieldHash.pm
new file mode 100644
index 00000000..0d0b7921
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/Hash/Util/FieldHash.pm
@@ -0,0 +1,861 @@
+package Hash::Util::FieldHash;
+
+use 5.009004;
+use strict;
+use warnings;
+use Scalar::Util qw( reftype);
+
+our $VERSION = '1.19';
+
+require Exporter;
+our @ISA = qw(Exporter);
+our %EXPORT_TAGS = (
+    'all' => [ qw(
+        fieldhash
+        fieldhashes
+        idhash
+        idhashes
+        id
+        id_2obj
+        register
+    )],
+);
+our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
+
+{
+    require XSLoader;
+    my %ob_reg; # private object registry
+    sub _ob_reg { \ %ob_reg }
+    XSLoader::load();
+}
+
+sub fieldhash (\%) {
+    for ( shift ) {
+        return unless ref() && reftype( $_) eq 'HASH';
+        return $_ if Hash::Util::FieldHash::_fieldhash( $_, 0);
+        return $_ if Hash::Util::FieldHash::_fieldhash( $_, 2) == 2;
+        return;
+    }
+}
+
+sub idhash (\%) {
+    for ( shift ) {
+        return unless ref() && reftype( $_) eq 'HASH';
+        return $_ if Hash::Util::FieldHash::_fieldhash( $_, 0);
+        return $_ if Hash::Util::FieldHash::_fieldhash( $_, 1) == 1;
+        return;
+    }
+}
+
+sub fieldhashes { map &fieldhash( $_), @_ }
+sub idhashes { map &idhash( $_), @_ }
+
+1;
+__END__
+
+=head1 NAME
+
+Hash::Util::FieldHash - Support for Inside-Out Classes
+
+=head1 SYNOPSIS
+
+  ### Create fieldhashes
+  use Hash::Util qw(fieldhash fieldhashes);
+
+  # Create a single field hash
+  fieldhash my %foo;
+
+  # Create three at once...
+  fieldhashes \ my(%foo, %bar, %baz);
+  # ...or any number
+  fieldhashes @hashrefs;
+
+  ### Create an idhash and register it for garbage collection
+  use Hash::Util::FieldHash qw(idhash register);
+  idhash my %name;
+  my $object = \ do { my $o };
+  # register the idhash for garbage collection with $object
+  register($object, \ %name);
+  # the following entry will be deleted when $object goes out of scope
+  $name{$object} = 'John Doe';
+
+  ### Register an ordinary hash for garbage collection
+  use Hash::Util::FieldHash qw(id register);
+  my %name;
+  my $object = \ do { my $o };
+  # register the hash %name for garbage collection of $object's id
+  register $object, \ %name;
+  # the following entry will be deleted when $object goes out of scope
+  $name{id $object} = 'John Doe';
+
+=head1 FUNCTIONS
+
+C<Hash::Util::FieldHash> offers a number of functions in support of
+L<The Inside-out Technique> of class construction.
+
+=over
+
+=item id
+
+    id($obj)
+
+Returns the reference address of a reference $obj.  If $obj is
+not a reference, returns $obj.
+
+This function is a stand-in replacement for
+L<Scalar::Util::refaddr|Scalar::Util/refaddr>,
+that is, it returns
+the reference address of its argument as a numeric value.  The only
+difference is that C<refaddr()> returns C<undef> when given a
+non-reference while C<id()> returns its argument unchanged.
+
+C<id()> also uses a caching technique that makes it faster when
+the id of an object is requested often, but slower if it is needed
+only once or twice.
+
+=item id_2obj
+
+    $obj = id_2obj($id)
+
+If C<$id> is the id of a registered object (see L</register>), returns
+the object, otherwise an undefined value.  For registered objects this
+is the inverse function of C<id()>.
+
+=item register
+
+    register($obj)
+    register($obj, @hashrefs)
+
+In the first form, registers an object to work with for the function
+C<id_2obj()>.  In the second form, it additionally marks the given
+hashrefs down for garbage collection.  This means that when the object
+goes out of scope, any entries in the given hashes under the key of
+C<id($obj)> will be deleted from the hashes.
+
+It is a fatal error to register a non-reference $obj.  Any non-hashrefs
+among the following arguments are silently ignored.
+
+It is I<not> an error to register the same object multiple times with
+varying sets of hashrefs.  Any hashrefs that are not registered yet
+will be added, others ignored.
+
+Registry also implies thread support.  When a new thread is created,
+all references are replaced with new ones, including all objects.
+If a hash uses the reference address of an object as a key, that
+connection would be broken.  With a registered object, its id will
+be updated in all hashes registered with it.
+
+=item idhash
+
+    idhash my %hash
+
+Makes an idhash from the argument, which must be a hash.
+
+An I<idhash> works like a normal hash, except that it stringifies a
+I<reference used as a key> differently.  A reference is stringified
+as if the C<id()> function had been invoked on it, that is, its
+reference address in decimal is used as the key.
+
+=item idhashes
+
+    idhashes \ my(%hash, %gnash, %trash)
+    idhashes \ @hashrefs
+
+Creates many idhashes from its hashref arguments.  Returns those
+arguments that could be converted or their number in scalar context.
+
+=item fieldhash
+
+    fieldhash %hash;
+
+Creates a single fieldhash.  The argument must be a hash.  Returns
+a reference to the given hash if successful, otherwise nothing.
+
+A I<fieldhash> is, in short, an idhash with auto-registry.  When an
+object (or, indeed, any reference) is used as a fieldhash key, the
+fieldhash is automatically registered for garbage collection with
+the object, as if C<register $obj, \ %fieldhash> had been called.
+
+=item fieldhashes
+
+    fieldhashes @hashrefs;
+
+Creates any number of field hashes.  Arguments must be hash references.
+Returns the converted hashrefs in list context, their number in scalar
+context.
+
+=back
+
+=head1 DESCRIPTION
+
+A word on terminology:  I shall use the term I<field> for a scalar
+piece of data that a class associates with an object.  Other terms that
+have been used for this concept are "object variable", "(object) property",
+"(object) attribute" and more.  Especially "attribute" has some currency
+among Perl programmer, but that clashes with the C<attributes> pragma.  The
+term "field" also has some currency in this sense and doesn't seem
+to conflict with other Perl terminology.
+
+In Perl, an object is a blessed reference.  The standard way of associating
+data with an object is to store the data inside the object's body, that is,
+the piece of data pointed to by the reference.
+
+In consequence, if two or more classes want to access an object they
+I<must> agree on the type of reference and also on the organization of
+data within the object body.  Failure to agree on the type results in
+immediate death when the wrong method tries to access an object.  Failure
+to agree on data organization may lead to one class trampling over the
+data of another.
+
+This object model leads to a tight coupling between subclasses.
+If one class wants to inherit from another (and both classes access
+object data), the classes must agree about implementation details.
+Inheritance can only be used among classes that are maintained together,
+in a single source or not.
+
+In particular, it is not possible to write general-purpose classes
+in this technique, classes that can advertise themselves as "Put me
+on your @ISA list and use my methods".  If the other class has different
+ideas about how the object body is used, there is trouble.
+
+For reference C<Name_hash> in L</Example 1> shows the standard implementation of
+a simple class C<Name> in the well-known hash based way.  It also demonstrates
+the predictable failure to construct a common subclass C<NamedFile>
+of C<Name> and the class C<IO::File> (whose objects I<must> be globrefs).
+
+Thus, techniques are of interest that store object data I<not> in
+the object body but some other place.
+
+=head2 The Inside-out Technique
+
+With I<inside-out> classes, each class declares a (typically lexical)
+hash for each field it wants to use.  The reference address of an
+object is used as the hash key.  By definition, the reference address
+is unique to each object so this guarantees a place for each field that
+is private to the class and unique to each object.  See C<Name_id>
+in L</Example 1> for a simple example.
+
+In comparison to the standard implementation where the object is a
+hash and the fields correspond to hash keys, here the fields correspond
+to hashes, and the object determines the hash key.  Thus the hashes
+appear to be turned I<inside out>.
+
+The body of an object is never examined by an inside-out class, only
+its reference address is used.  This allows for the body of an actual
+object to be I<anything at all> while the object methods of the class
+still work as designed.  This is a key feature of inside-out classes.
+
+=head2 Problems of Inside-out
+
+Inside-out classes give us freedom of inheritance, but as usual there
+is a price.
+
+Most obviously, there is the necessity of retrieving the reference
+address of an object for each data access.  It's a minor inconvenience,
+but it does clutter the code.
+
+More important (and less obvious) is the necessity of garbage
+collection.  When a normal object dies, anything stored in the
+object body is garbage-collected by perl.  With inside-out objects,
+Perl knows nothing about the data stored in field hashes by a class,
+but these must be deleted when the object goes out of scope.  Thus
+the class must provide a C<DESTROY> method to take care of that.
+
+In the presence of multiple classes it can be non-trivial
+to make sure that every relevant destructor is called for
+every object.  Perl calls the first one it finds on the
+inheritance tree (if any) and that's it.
+
+A related issue is thread-safety.  When a new thread is created,
+the Perl interpreter is cloned, which implies that all reference
+addresses in use will be replaced with new ones.  Thus, if a class
+tries to access a field of a cloned object its (cloned) data will
+still be stored under the now invalid reference address of the
+original in the parent thread.  A general C<CLONE> method must
+be provided to re-establish the association.
+
+=head2 Solutions
+
+C<Hash::Util::FieldHash> addresses these issues on several
+levels.
+
+The C<id()> function is provided in addition to the
+existing C<Scalar::Util::refaddr()>.  Besides its short name
+it can be a little faster under some circumstances (and a
+bit slower under others).  Benchmark if it matters.  The
+working of C<id()> also allows the use of the class name
+as a I<generic object> as described L<further down|/"The Generic Object">.
+
+The C<id()> function is incorporated in I<id hashes> in the sense
+that it is called automatically on every key that is used with
+the hash.  No explicit call is necessary.
+
+The problems of garbage collection and thread safety are both
+addressed by the function C<register()>.  It registers an object
+together with any number of hashes.  Registry means that when the
+object dies, an entry in any of the hashes under the reference
+address of this object will be deleted.  This guarantees garbage
+collection in these hashes.  It also means that on thread
+cloning the object's entries in registered hashes will be
+replaced with updated entries whose key is the cloned object's
+reference address.  Thus the object-data association becomes
+thread-safe.
+
+Object registry is best done when the object is initialized
+for use with a class.  That way, garbage collection and thread
+safety are established for every object and every field that is
+initialized.
+
+Finally, I<field hashes> incorporate all these functions in one
+package.  Besides automatically calling the C<id()> function
+on every object used as a key, the object is registered with
+the field hash on first use.  Classes based on field hashes
+are fully garbage-collected and thread safe without further
+measures.
+
+=head2 More Problems
+
+Another problem that occurs with inside-out classes is serialization.
+Since the object data is not in its usual place, standard routines
+like C<Storable::freeze()>, C<Storable::thaw()> and 
+C<Data::Dumper::Dumper()> can't deal with it on their own.  Both
+C<Data::Dumper> and C<Storable> provide the necessary hooks to
+make things work, but the functions or methods used by the hooks
+must be provided by each inside-out class.
+
+A general solution to the serialization problem would require another
+level of registry, one that associates I<classes> and fields.
+So far, the functions of C<Hash::Util::FieldHash> are unaware of
+any classes, which I consider a feature.  Therefore C<Hash::Util::FieldHash>
+doesn't address the serialization problems.
+
+=head2 The Generic Object
+
+Classes based on the C<id()> function (and hence classes based on
+C<idhash()> and C<fieldhash()>) show a peculiar behavior in that
+the class name can be used like an object.  Specifically, methods
+that set or read data associated with an object continue to work as
+class methods, just as if the class name were an object, distinct from
+all other objects, with its own data.  This object may be called
+the I<generic object> of the class.
+
+This works because field hashes respond to keys that are not references
+like a normal hash would and use the string offered as the hash key.
+Thus, if a method is called as a class method, the field hash is presented
+with the class name instead of an object and blithely uses it as a key.
+Since the keys of real objects are decimal numbers, there is no
+conflict and the slot in the field hash can be used like any other.
+The C<id()> function behaves correspondingly with respect to non-reference
+arguments.
+
+Two possible uses (besides ignoring the property) come to mind.
+A singleton class could be implemented this using the generic object.
+If necessary, an C<init()> method could die or ignore calls with
+actual objects (references), so only the generic object will ever exist.
+
+Another use of the generic object would be as a template.  It is
+a convenient place to store class-specific defaults for various
+fields to be used in actual object initialization.
+
+Usually, the feature can be entirely ignored.  Calling I<object
+methods> as I<class methods> normally leads to an error and isn't used
+routinely anywhere.  It may be a problem that this error isn't
+indicated by a class with a generic object.
+
+=head2 How to use Field Hashes
+
+Traditionally, the definition of an inside-out class contains a bare
+block inside which a number of lexical hashes are declared and the
+basic accessor methods defined, usually through C<Scalar::Util::refaddr>.
+Further methods may be defined outside this block.  There has to be
+a DESTROY method and, for thread support, a CLONE method.
+
+When field hashes are used, the basic structure remains the same.
+Each lexical hash will be made a field hash.  The call to C<refaddr>
+can be omitted from the accessor methods.  DESTROY and CLONE methods
+are not necessary.
+
+If you have an existing inside-out class, simply making all hashes
+field hashes with no other change should make no difference.  Through
+the calls to C<refaddr> or equivalent, the field hashes never get to
+see a reference and work like normal hashes.  Your DESTROY (and
+CLONE) methods are still needed.
+
+To make the field hashes kick in, it is easiest to redefine C<refaddr>
+as
+
+    sub refaddr { shift }
+
+instead of importing it from C<Scalar::Util>.  It should now be possible
+to disable DESTROY and CLONE.  Note that while it isn't disabled,
+DESTROY will be called before the garbage collection of field hashes,
+so it will be invoked with a functional object and will continue to
+function.
+
+It is not desirable to import the functions C<fieldhash> and/or
+C<fieldhashes> into every class that is going to use them.  They
+are only used once to set up the class.  When the class is up and running,
+these functions serve no more purpose.
+
+If there are only a few field hashes to declare, it is simplest to
+
+    use Hash::Util::FieldHash;
+
+early and call the functions qualified:
+
+    Hash::Util::FieldHash::fieldhash my %foo;
+
+Otherwise, import the functions into a convenient package like
+C<HUF> or, more general, C<Aux>
+
+    {
+        package Aux;
+        use Hash::Util::FieldHash ':all';
+    }
+
+and call
+
+    Aux::fieldhash my %foo;
+
+as needed.
+
+=head2 Garbage-Collected Hashes
+
+Garbage collection in a field hash means that entries will "spontaneously"
+disappear when the object that created them disappears.  That must be
+borne in mind, especially when looping over a field hash.  If anything
+you do inside the loop could cause an object to go out of scope, a
+random key may be deleted from the hash you are looping over.  That
+can throw the loop iterator, so it's best to cache a consistent snapshot
+of the keys and/or values and loop over that.  You will still have to
+check that a cached entry still exists when you get to it.
+
+Garbage collection can be confusing when keys are created in a field hash
+from normal scalars as well as references.  Once a reference is I<used> with
+a field hash, the entry will be collected, even if it was later overwritten
+with a plain scalar key (every positive integer is a candidate).  This
+is true even if the original entry was deleted in the meantime.  In fact,
+deletion from a field hash, and also a test for existence constitute
+I<use> in this sense and create a liability to delete the entry when
+the reference goes out of scope.  If you happen to create an entry
+with an identical key from a string or integer, that will be collected
+instead.  Thus, mixed use of references and plain scalars as field hash
+keys is not entirely supported.
+
+=head1 EXAMPLES
+
+The examples show a very simple class that implements a I<name>, consisting
+of a first and last name (no middle initial).  The name class has four
+methods:
+
+=over
+
+=item * C<init()>
+
+An object method that initializes the first and last name to its
+two arguments. If called as a class method, C<init()> creates an
+object in the given class and initializes that.
+
+=item * C<first()>
+
+Retrieve the first name
+
+=item * C<last()>
+
+Retrieve the last name
+
+=item * C<name()>
+
+Retrieve the full name, the first and last name joined by a blank.
+
+=back
+
+The examples show this class implemented with different levels of
+support by C<Hash::Util::FieldHash>.  All supported combinations
+are shown.  The difference between implementations is often quite
+small.  The implementations are:
+
+=over
+
+=item * C<Name_hash>
+
+A conventional (not inside-out) implementation where an object is
+a hash that stores the field values, without support by
+C<Hash::Util::FieldHash>.  This implementation doesn't allow
+arbitrary inheritance.
+
+=item * C<Name_id>
+
+Inside-out implementation based on the C<id()> function.  It needs
+a C<DESTROY> method.  For thread support a C<CLONE> method (not shown)
+would also be needed.  Instead of C<Hash::Util::FieldHash::id()> the
+function C<Scalar::Util::refaddr> could be used with very little
+functional difference.  This is the basic pattern of an inside-out
+class.
+
+=item * C<Name_idhash>
+
+Idhash-based inside-out implementation.  Like C<Name_id> it needs
+a C<DESTROY> method and would need C<CLONE> for thread support.
+
+=item * C<Name_id_reg>
+
+Inside-out implementation based on the C<id()> function with explicit
+object registry.  No destructor is needed and objects are thread safe.
+
+=item * C<Name_idhash_reg>
+
+Idhash-based inside-out implementation with explicit object registry.
+No destructor is needed and objects are thread safe.
+
+=item * C<Name_fieldhash>
+
+FieldHash-based inside-out implementation.  Object registry happens
+automatically.  No destructor is needed and objects are thread safe.
+
+=back
+
+These examples are realized in the code below, which could be copied
+to a file F<Example.pm>.
+
+=head2 Example 1
+
+    use strict; use warnings;
+
+    {
+        package Name_hash;  # standard implementation: the
+                            # object is a hash
+        sub init {
+            my $obj = shift;
+            my ($first, $last) = @_;
+            # create an object if called as class method
+            $obj = bless {}, $obj unless ref $obj;
+            $obj->{ first} = $first;
+            $obj->{ last} = $last;
+            $obj;
+        }
+
+        sub first { shift()->{ first} }
+        sub last { shift()->{ last} }
+
+        sub name {
+            my $n = shift;
+            join ' ' => $n->first, $n->last;
+        }
+
+    }
+
+    {
+        package Name_id;
+        use Hash::Util::FieldHash qw(id);
+
+        my (%first, %last);
+
+        sub init {
+            my $obj = shift;
+            my ($first, $last) = @_;
+            # create an object if called as class method
+            $obj = bless \ my $o, $obj unless ref $obj;
+            $first{ id $obj} = $first;
+            $last{ id $obj} = $last;
+            $obj;
+        }
+
+        sub first { $first{ id shift()} }
+        sub last { $last{ id shift()} }
+
+        sub name {
+            my $n = shift;
+            join ' ' => $n->first, $n->last;
+        }
+
+        sub DESTROY {
+            my $id = id shift;
+            delete $first{ $id};
+            delete $last{ $id};
+        }
+
+    }
+
+    {
+        package Name_idhash;
+        use Hash::Util::FieldHash;
+
+        Hash::Util::FieldHash::idhashes( \ my (%first, %last) );
+
+        sub init {
+            my $obj = shift;
+            my ($first, $last) = @_;
+            # create an object if called as class method
+            $obj = bless \ my $o, $obj unless ref $obj;
+            $first{ $obj} = $first;
+            $last{ $obj} = $last;
+            $obj;
+        }
+
+        sub first { $first{ shift()} }
+        sub last { $last{ shift()} }
+
+        sub name {
+            my $n = shift;
+            join ' ' => $n->first, $n->last;
+        }
+
+        sub DESTROY {
+            my $n = shift;
+            delete $first{ $n};
+            delete $last{ $n};
+        }
+
+    }
+
+    {
+        package Name_id_reg;
+        use Hash::Util::FieldHash qw(id register);
+
+        my (%first, %last);
+
+        sub init {
+            my $obj = shift;
+            my ($first, $last) = @_;
+            # create an object if called as class method
+            $obj = bless \ my $o, $obj unless ref $obj;
+            register( $obj, \ (%first, %last) );
+            $first{ id $obj} = $first;
+            $last{ id $obj} = $last;
+            $obj;
+        }
+
+        sub first { $first{ id shift()} }
+        sub last { $last{ id shift()} }
+
+        sub name {
+            my $n = shift;
+            join ' ' => $n->first, $n->last;
+        }
+    }
+
+    {
+        package Name_idhash_reg;
+        use Hash::Util::FieldHash qw(register);
+
+        Hash::Util::FieldHash::idhashes \ my (%first, %last);
+
+        sub init {
+            my $obj = shift;
+            my ($first, $last) = @_;
+            # create an object if called as class method
+            $obj = bless \ my $o, $obj unless ref $obj;
+            register( $obj, \ (%first, %last) );
+            $first{ $obj} = $first;
+            $last{ $obj} = $last;
+            $obj;
+        }
+
+        sub first { $first{ shift()} }
+        sub last { $last{ shift()} }
+
+        sub name {
+            my $n = shift;
+            join ' ' => $n->first, $n->last;
+        }
+    }
+
+    {
+        package Name_fieldhash;
+        use Hash::Util::FieldHash;
+
+        Hash::Util::FieldHash::fieldhashes \ my (%first, %last);
+
+        sub init {
+            my $obj = shift;
+            my ($first, $last) = @_;
+            # create an object if called as class method
+            $obj = bless \ my $o, $obj unless ref $obj;
+            $first{ $obj} = $first;
+            $last{ $obj} = $last;
+            $obj;
+        }
+
+        sub first { $first{ shift()} }
+        sub last { $last{ shift()} }
+
+        sub name {
+            my $n = shift;
+            join ' ' => $n->first, $n->last;
+        }
+    }
+
+    1;
+
+To exercise the various implementations the script L<below|/"Example 2"> can
+be used.
+
+It sets up a class C<Name> that is a mirror of one of the implementation
+classes C<Name_hash>, C<Name_id>, ..., C<Name_fieldhash>.  That determines
+which implementation is run.
+
+The script first verifies the function of the C<Name> class.
+
+In the second step, the free inheritability of the implementation
+(or lack thereof) is demonstrated.  For this purpose it constructs
+a class called C<NamedFile> which is a common subclass of C<Name> and
+the standard class C<IO::File>.  This puts inheritability to the test
+because objects of C<IO::File> I<must> be globrefs.  Objects of C<NamedFile>
+should behave like a file opened for reading and also support the C<name()>
+method.  This class juncture works with exception of the C<Name_hash>
+implementation, where object initialization fails because of the
+incompatibility of object bodies.
+
+=head2 Example 2
+
+    use strict; use warnings; $| = 1;
+
+    use Example;
+
+    {
+        package Name;
+        use parent 'Name_id';  # define here which implementation to run
+    }
+
+
+    # Verify that the base package works
+    my $n = Name->init(qw(Albert Einstein));
+    print $n->name, "\n";
+    print "\n";
+
+    # Create a named file handle (See definition below)
+    my $nf = NamedFile->init(qw(/tmp/x Filomena File));
+    # use as a file handle...
+    for ( 1 .. 3 ) {
+        my $l = <$nf>;
+        print "line $_: $l";
+    }
+    # ...and as a Name object
+    print "...brought to you by ", $nf->name, "\n";
+    exit;
+
+
+    # Definition of NamedFile
+    package NamedFile;
+    use parent 'Name';
+    use parent 'IO::File';
+
+    sub init {
+        my $obj = shift;
+        my ($file, $first, $last) = @_;
+        $obj = $obj->IO::File::new() unless ref $obj;
+        $obj->open($file) or die "Can't read '$file': $!";
+        $obj->Name::init($first, $last);
+    }
+    __END__
+
+
+=head1 GUTS
+
+To make C<Hash::Util::FieldHash> work, there were two changes to
+F<perl> itself.  C<PERL_MAGIC_uvar> was made available for hashes,
+and weak references now call uvar C<get> magic after a weakref has been
+cleared.  The first feature is used to make field hashes intercept
+their keys upon access.  The second one triggers garbage collection.
+
+=head2 The C<PERL_MAGIC_uvar> interface for hashes
+
+C<PERL_MAGIC_uvar> I<get> magic is called from C<hv_fetch_common> and
+C<hv_delete_common> through the function C<hv_magic_uvar_xkey>, which
+defines the interface.  The call happens for hashes with "uvar" magic
+if the C<ufuncs> structure has equal values in the C<uf_val> and C<uf_set>
+fields.  Hashes are unaffected if (and as long as) these fields
+hold different values.
+
+Upon the call, the C<mg_obj> field will hold the hash key to be accessed.
+Upon return, the C<SV*> value in C<mg_obj> will be used in place of the
+original key in the hash access.  The integer index value in the first
+parameter will be the C<action> value from C<hv_fetch_common>, or -1
+if the call is from C<hv_delete_common>.
+
+This is a template for a function suitable for the C<uf_val> field in
+a C<ufuncs> structure for this call.  The C<uf_set> and C<uf_index>
+fields are irrelevant.
+
+    IV watch_key(pTHX_ IV action, SV* field) {
+        MAGIC* mg = mg_find(field, PERL_MAGIC_uvar);
+        SV* keysv = mg->mg_obj;
+        /* Do whatever you need to.  If you decide to
+           supply a different key newkey, return it like this
+        */
+        sv_2mortal(newkey);
+        mg->mg_obj = newkey;
+        return 0;
+    }
+
+=head2 Weakrefs call uvar magic
+
+When a weak reference is stored in an C<SV> that has "uvar" magic, C<set>
+magic is called after the reference has gone stale.  This hook can be
+used to trigger further garbage-collection activities associated with
+the referenced object.
+
+=head2 How field hashes work
+
+The three features of key hashes, I<key replacement>, I<thread support>,
+and I<garbage collection> are supported by a data structure called
+the I<object registry>.  This is a private hash where every object
+is stored.  An "object" in this sense is any reference (blessed or
+unblessed) that has been used as a field hash key.
+
+The object registry keeps track of references that have been used as
+field hash keys.  The keys are generated from the reference address
+like in a field hash (though the registry isn't a field hash).  Each
+value is a weak copy of the original reference, stored in an C<SV> that
+is itself magical (C<PERL_MAGIC_uvar> again).  The magical structure
+holds a list (another hash, really) of field hashes that the reference
+has been used with.  When the weakref becomes stale, the magic is
+activated and uses the list to delete the reference from all field
+hashes it has been used with.  After that, the entry is removed from
+the object registry itself.  Implicitly, that frees the magic structure
+and the storage it has been using.
+
+Whenever a reference is used as a field hash key, the object registry
+is checked and a new entry is made if necessary.  The field hash is
+then added to the list of fields this reference has used.
+
+The object registry is also used to repair a field hash after thread
+cloning.  Here, the entire object registry is processed.  For every
+reference found there, the field hashes it has used are visited and
+the entry is updated.
+
+=head2 Internal function Hash::Util::FieldHash::_fieldhash
+
+    # test if %hash is a field hash
+    my $result = _fieldhash \ %hash, 0;
+
+    # make %hash a field hash
+    my $result = _fieldhash \ %hash, 1;
+
+C<_fieldhash> is the internal function used to create field hashes.
+It takes two arguments, a hashref and a mode.  If the mode is boolean
+false, the hash is not changed but tested if it is a field hash.  If
+the hash isn't a field hash the return value is boolean false.  If it
+is, the return value indicates the mode of field hash.  When called with
+a boolean true mode, it turns the given hash into a field hash of this
+mode, returning the mode of the created field hash.  C<_fieldhash>
+does not erase the given hash.
+
+Currently there is only one type of field hash, and only the boolean
+value of the mode makes a difference, but that may change.
+
+=head1 AUTHOR
+
+Anno Siegel (ANNO) wrote the xs code and the changes in perl proper
+Jerry Hedden (JDHEDDEN) made it faster
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright (C) 2006-2007 by (Anno Siegel)
+
+This library is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself, either Perl version 5.8.7 or,
+at your option, any later version of Perl 5 you may have available.
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/I18N/Langinfo.pm b/lib/5.24.1/x86_64-linux/I18N/Langinfo.pm
new file mode 100644
index 00000000..033d8de1
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/I18N/Langinfo.pm
@@ -0,0 +1,192 @@
+package I18N::Langinfo;
+
+use 5.006;
+use strict;
+use warnings;
+use Carp;
+
+require Exporter;
+require XSLoader;
+
+our @ISA = qw(Exporter);
+
+our @EXPORT = qw(langinfo);
+
+our @EXPORT_OK = qw(
+	ABDAY_1
+	ABDAY_2
+	ABDAY_3
+	ABDAY_4
+	ABDAY_5
+	ABDAY_6
+	ABDAY_7
+	ABMON_1
+	ABMON_10
+	ABMON_11
+	ABMON_12
+	ABMON_2
+	ABMON_3
+	ABMON_4
+	ABMON_5
+	ABMON_6
+	ABMON_7
+	ABMON_8
+	ABMON_9
+	ALT_DIGITS
+	AM_STR
+	CODESET
+	CRNCYSTR
+	DAY_1
+	DAY_2
+	DAY_3
+	DAY_4
+	DAY_5
+	DAY_6
+	DAY_7
+	D_FMT
+	D_T_FMT
+	ERA
+	ERA_D_FMT
+	ERA_D_T_FMT
+	ERA_T_FMT
+	MON_1
+	MON_10
+	MON_11
+	MON_12
+	MON_2
+	MON_3
+	MON_4
+	MON_5
+	MON_6
+	MON_7
+	MON_8
+	MON_9
+	NOEXPR
+	NOSTR
+	PM_STR
+	RADIXCHAR
+	THOUSEP
+	T_FMT
+	T_FMT_AMPM
+	YESEXPR
+	YESSTR
+);
+
+our $VERSION = '0.13';
+
+XSLoader::load();
+
+1;
+__END__
+
+=head1 NAME
+
+I18N::Langinfo - query locale information
+
+=head1 SYNOPSIS
+
+  use I18N::Langinfo;
+
+=head1 DESCRIPTION
+
+The langinfo() function queries various locale information that can be
+used to localize output and user interfaces.  The langinfo() requires
+one numeric argument that identifies the locale constant to query:
+if no argument is supplied, C<$_> is used.  The numeric constants
+appropriate to be used as arguments are exportable from I18N::Langinfo.
+
+The following example will import the langinfo() function itself and
+three constants to be used as arguments to langinfo(): a constant for
+the abbreviated first day of the week (the numbering starts from
+Sunday = 1) and two more constants for the affirmative and negative
+answers for a yes/no question in the current locale.
+
+    use I18N::Langinfo qw(langinfo ABDAY_1 YESSTR NOSTR);
+
+    my ($abday_1, $yesstr, $nostr) =
+        map { langinfo($_) } (ABDAY_1, YESSTR, NOSTR);
+
+    print "$abday_1? [$yesstr/$nostr] ";
+
+In other words, in the "C" (or English) locale the above will probably
+print something like:
+
+    Sun? [yes/no] 
+
+but under a French locale
+
+    dim? [oui/non] 
+
+The usually available constants are
+
+    ABDAY_1 ABDAY_2 ABDAY_3 ABDAY_4 ABDAY_5 ABDAY_6 ABDAY_7
+    ABMON_1 ABMON_2 ABMON_3 ABMON_4 ABMON_5 ABMON_6
+    ABMON_7 ABMON_8 ABMON_9 ABMON_10 ABMON_11 ABMON_12
+    DAY_1 DAY_2 DAY_3 DAY_4 DAY_5 DAY_6 DAY_7
+    MON_1 MON_2 MON_3 MON_4 MON_5 MON_6
+    MON_7 MON_8 MON_9 MON_10 MON_11 MON_12
+
+for abbreviated and full length days of the week and months of the year,
+
+    D_T_FMT D_FMT T_FMT
+
+for the date-time, date, and time formats used by the strftime() function
+(see L<POSIX>)
+
+    AM_STR PM_STR T_FMT_AMPM
+
+for the locales for which it makes sense to have ante meridiem and post
+meridiem time formats,
+
+    CODESET CRNCYSTR RADIXCHAR
+
+for the character code set being used (such as "ISO8859-1", "cp850",
+"koi8-r", "sjis", "utf8", etc.), for the currency string, for the
+radix character used between the integer and the fractional part
+of decimal numbers (yes, this is redundant with POSIX::localeconv())
+
+    YESSTR YESEXPR NOSTR NOEXPR
+
+for the affirmative and negative responses and expressions, and
+
+    ERA ERA_D_FMT ERA_D_T_FMT ERA_T_FMT
+
+for the Japanese Emperor eras (naturally only defined under Japanese locales).
+
+See your L<langinfo(3)> for more information about the available
+constants.  (Often this means having to look directly at the
+F<langinfo.h> C header file.)
+
+Note that unfortunately none of the above constants are guaranteed
+to be available on a particular platform.  To be on the safe side
+you can wrap the import in an eval like this:
+
+    eval {
+        require I18N::Langinfo;
+        I18N::Langinfo->import(qw(langinfo CODESET));
+        $codeset = langinfo(CODESET()); # note the ()
+    };
+    if ($@) { ... failed ... }
+
+=head2 EXPORT
+
+By default only the C<langinfo()> function is exported.
+
+=head1 SEE ALSO
+
+L<perllocale>, L<POSIX/localeconv>, L<POSIX/setlocale>, L<nl_langinfo(3)>.
+
+The langinfo() is just a wrapper for the C nl_langinfo() interface.
+
+=head1 AUTHOR
+
+Jarkko Hietaniemi, E<lt>jhi@hut.fiE<gt>
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright 2001 by Jarkko Hietaniemi
+
+This library is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself. 
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/IO.pm b/lib/5.24.1/x86_64-linux/IO.pm
new file mode 100644
index 00000000..44b312b6
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/IO.pm
@@ -0,0 +1,70 @@
+#
+
+package IO;
+
+use XSLoader ();
+use Carp;
+use strict;
+use warnings;
+
+our $VERSION = "1.36_01";
+XSLoader::load 'IO', $VERSION;
+
+sub import {
+    shift;
+
+    warnings::warnif('deprecated', qq{Parameterless "use IO" deprecated})
+        if @_ == 0 ;
+    
+    my @l = @_ ? @_ : qw(Handle Seekable File Pipe Socket Dir);
+
+    local @INC = @INC;
+    pop @INC if $INC[-1] eq '.';
+    eval join("", map { "require IO::" . (/(\w+)/)[0] . ";\n" } @l)
+	or croak $@;
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+IO - load various IO modules
+
+=head1 SYNOPSIS
+
+   use IO qw(Handle File); # loads IO modules, here IO::Handle, IO::File
+   use IO;                 # DEPRECATED
+
+=head1 DESCRIPTION
+
+C<IO> provides a simple mechanism to load several of the IO modules
+in one go.  The IO modules belonging to the core are:
+
+      IO::Handle
+      IO::Seekable
+      IO::File
+      IO::Pipe
+      IO::Socket
+      IO::Dir
+      IO::Select
+      IO::Poll
+
+Some other IO modules don't belong to the perl core but can be loaded
+as well if they have been installed from CPAN.  You can discover which
+ones exist by searching for "^IO::" on http://search.cpan.org.
+
+For more information on any of these modules, please see its respective
+documentation.
+
+=head1 DEPRECATED
+
+    use IO;                # loads all the modules listed below
+
+The loaded modules are IO::Handle, IO::Seekable, IO::File, IO::Pipe,
+IO::Socket, IO::Dir.  You should instead explicitly import the IO
+modules you want.
+
+=cut
+
diff --git a/lib/5.24.1/x86_64-linux/IO/Dir.pm b/lib/5.24.1/x86_64-linux/IO/Dir.pm
new file mode 100644
index 00000000..7326d782
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/IO/Dir.pm
@@ -0,0 +1,248 @@
+# IO::Dir.pm
+#
+# Copyright (c) 1997-8 Graham Barr <gbarr@pobox.com>. All rights reserved.
+# This program is free software; you can redistribute it and/or
+# modify it under the same terms as Perl itself.
+
+package IO::Dir;
+
+use 5.006;
+
+use strict;
+use Carp;
+use Symbol;
+use Exporter;
+use IO::File;
+our(@ISA, $VERSION, @EXPORT_OK);
+use Tie::Hash;
+use File::stat;
+use File::Spec;
+
+@ISA = qw(Tie::Hash Exporter);
+$VERSION = "1.10";
+$VERSION = eval $VERSION;
+@EXPORT_OK = qw(DIR_UNLINK);
+
+sub DIR_UNLINK () { 1 }
+
+sub new {
+    @_ >= 1 && @_ <= 2 or croak 'usage: IO::Dir->new([DIRNAME])';
+    my $class = shift;
+    my $dh = gensym;
+    if (@_) {
+	IO::Dir::open($dh, $_[0])
+	    or return undef;
+    }
+    bless $dh, $class;
+}
+
+sub DESTROY {
+    my ($dh) = @_;
+    local($., $@, $!, $^E, $?);
+    no warnings 'io';
+    closedir($dh);
+}
+
+sub open {
+    @_ == 2 or croak 'usage: $dh->open(DIRNAME)';
+    my ($dh, $dirname) = @_;
+    return undef
+	unless opendir($dh, $dirname);
+    # a dir name should always have a ":" in it; assume dirname is
+    # in current directory
+    $dirname = ':' .  $dirname if ( ($^O eq 'MacOS') && ($dirname !~ /:/) );
+    ${*$dh}{io_dir_path} = $dirname;
+    1;
+}
+
+sub close {
+    @_ == 1 or croak 'usage: $dh->close()';
+    my ($dh) = @_;
+    closedir($dh);
+}
+
+sub read {
+    @_ == 1 or croak 'usage: $dh->read()';
+    my ($dh) = @_;
+    readdir($dh);
+}
+
+sub seek {
+    @_ == 2 or croak 'usage: $dh->seek(POS)';
+    my ($dh,$pos) = @_;
+    seekdir($dh,$pos);
+}
+
+sub tell {
+    @_ == 1 or croak 'usage: $dh->tell()';
+    my ($dh) = @_;
+    telldir($dh);
+}
+
+sub rewind {
+    @_ == 1 or croak 'usage: $dh->rewind()';
+    my ($dh) = @_;
+    rewinddir($dh);
+}
+
+sub TIEHASH {
+    my($class,$dir,$options) = @_;
+
+    my $dh = $class->new($dir)
+	or return undef;
+
+    $options ||= 0;
+
+    ${*$dh}{io_dir_unlink} = $options & DIR_UNLINK;
+    $dh;
+}
+
+sub FIRSTKEY {
+    my($dh) = @_;
+    $dh->rewind;
+    scalar $dh->read;
+}
+
+sub NEXTKEY {
+    my($dh) = @_;
+    scalar $dh->read;
+}
+
+sub EXISTS {
+    my($dh,$key) = @_;
+    -e File::Spec->catfile(${*$dh}{io_dir_path}, $key);
+}
+
+sub FETCH {
+    my($dh,$key) = @_;
+    &lstat(File::Spec->catfile(${*$dh}{io_dir_path}, $key));
+}
+
+sub STORE {
+    my($dh,$key,$data) = @_;
+    my($atime,$mtime) = ref($data) ? @$data : ($data,$data);
+    my $file = File::Spec->catfile(${*$dh}{io_dir_path}, $key);
+    unless(-e $file) {
+	my $io = IO::File->new($file,O_CREAT | O_RDWR);
+	$io->close if $io;
+    }
+    utime($atime,$mtime, $file);
+}
+
+sub DELETE {
+    my($dh,$key) = @_;
+
+    # Only unlink if unlink-ing is enabled
+    return 0
+	unless ${*$dh}{io_dir_unlink};
+
+    my $file = File::Spec->catfile(${*$dh}{io_dir_path}, $key);
+
+    -d $file
+	? rmdir($file)
+	: unlink($file);
+}
+
+1;
+
+__END__
+
+=head1 NAME 
+
+IO::Dir - supply object methods for directory handles
+
+=head1 SYNOPSIS
+
+    use IO::Dir;
+    $d = IO::Dir->new(".");
+    if (defined $d) {
+        while (defined($_ = $d->read)) { something($_); }
+        $d->rewind;
+        while (defined($_ = $d->read)) { something_else($_); }
+        undef $d;
+    }
+
+    tie %dir, 'IO::Dir', ".";
+    foreach (keys %dir) {
+	print $_, " " , $dir{$_}->size,"\n";
+    }
+
+=head1 DESCRIPTION
+
+The C<IO::Dir> package provides two interfaces to perl's directory reading
+routines.
+
+The first interface is an object approach. C<IO::Dir> provides an object
+constructor and methods, which are just wrappers around perl's built in
+directory reading routines.
+
+=over 4
+
+=item new ( [ DIRNAME ] )
+
+C<new> is the constructor for C<IO::Dir> objects. It accepts one optional
+argument which,  if given, C<new> will pass to C<open>
+
+=back
+
+The following methods are wrappers for the directory related functions built
+into perl (the trailing 'dir' has been removed from the names). See L<perlfunc>
+for details of these functions.
+
+=over 4
+
+=item open ( DIRNAME )
+
+=item read ()
+
+=item seek ( POS )
+
+=item tell ()
+
+=item rewind ()
+
+=item close ()
+
+=back
+
+C<IO::Dir> also provides an interface to reading directories via a tied
+hash. The tied hash extends the interface beyond just the directory
+reading routines by the use of C<lstat>, from the C<File::stat> package,
+C<unlink>, C<rmdir> and C<utime>.
+
+=over 4
+
+=item tie %hash, 'IO::Dir', DIRNAME [, OPTIONS ]
+
+=back
+
+The keys of the hash will be the names of the entries in the directory. 
+Reading a value from the hash will be the result of calling
+C<File::stat::lstat>.  Deleting an element from the hash will 
+delete the corresponding file or subdirectory,
+provided that C<DIR_UNLINK> is included in the C<OPTIONS>.
+
+Assigning to an entry in the hash will cause the time stamps of the file
+to be modified. If the file does not exist then it will be created. Assigning
+a single integer to a hash element will cause both the access and 
+modification times to be changed to that value. Alternatively a reference to
+an array of two values can be passed. The first array element will be used to
+set the access time and the second element will be used to set the modification
+time.
+
+=head1 SEE ALSO
+
+L<File::stat>
+
+=head1 AUTHOR
+
+Graham Barr. Currently maintained by the Perl Porters.  Please report all
+bugs to <perlbug@perl.org>.
+
+=head1 COPYRIGHT
+
+Copyright (c) 1997-2003 Graham Barr <gbarr@pobox.com>. All rights reserved.
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/IO/File.pm b/lib/5.24.1/x86_64-linux/IO/File.pm
new file mode 100644
index 00000000..8b29bac2
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/IO/File.pm
@@ -0,0 +1,203 @@
+#
+
+package IO::File;
+
+=head1 NAME
+
+IO::File - supply object methods for filehandles
+
+=head1 SYNOPSIS
+
+    use IO::File;
+
+    $fh = IO::File->new();
+    if ($fh->open("< file")) {
+        print <$fh>;
+        $fh->close;
+    }
+
+    $fh = IO::File->new("> file");
+    if (defined $fh) {
+        print $fh "bar\n";
+        $fh->close;
+    }
+
+    $fh = IO::File->new("file", "r");
+    if (defined $fh) {
+        print <$fh>;
+        undef $fh;       # automatically closes the file
+    }
+
+    $fh = IO::File->new("file", O_WRONLY|O_APPEND);
+    if (defined $fh) {
+        print $fh "corge\n";
+
+        $pos = $fh->getpos;
+        $fh->setpos($pos);
+
+        undef $fh;       # automatically closes the file
+    }
+
+    autoflush STDOUT 1;
+
+=head1 DESCRIPTION
+
+C<IO::File> inherits from C<IO::Handle> and C<IO::Seekable>. It extends
+these classes with methods that are specific to file handles.
+
+=head1 CONSTRUCTOR
+
+=over 4
+
+=item new ( FILENAME [,MODE [,PERMS]] )
+
+Creates an C<IO::File>.  If it receives any parameters, they are passed to
+the method C<open>; if the open fails, the object is destroyed.  Otherwise,
+it is returned to the caller.
+
+=item new_tmpfile
+
+Creates an C<IO::File> opened for read/write on a newly created temporary
+file.  On systems where this is possible, the temporary file is anonymous
+(i.e. it is unlinked after creation, but held open).  If the temporary
+file cannot be created or opened, the C<IO::File> object is destroyed.
+Otherwise, it is returned to the caller.
+
+=back
+
+=head1 METHODS
+
+=over 4
+
+=item open( FILENAME [,MODE [,PERMS]] )
+
+=item open( FILENAME, IOLAYERS )
+
+C<open> accepts one, two or three parameters.  With one parameter,
+it is just a front end for the built-in C<open> function.  With two or three
+parameters, the first parameter is a filename that may include
+whitespace or other special characters, and the second parameter is
+the open mode, optionally followed by a file permission value.
+
+If C<IO::File::open> receives a Perl mode string ("E<gt>", "+E<lt>", etc.)
+or an ANSI C fopen() mode string ("w", "r+", etc.), it uses the basic
+Perl C<open> operator (but protects any special characters).
+
+If C<IO::File::open> is given a numeric mode, it passes that mode
+and the optional permissions value to the Perl C<sysopen> operator.
+The permissions default to 0666.
+
+If C<IO::File::open> is given a mode that includes the C<:> character,
+it passes all the three arguments to the three-argument C<open> operator.
+
+For convenience, C<IO::File> exports the O_XXX constants from the
+Fcntl module, if this module is available.
+
+=item binmode( [LAYER] )
+
+C<binmode> sets C<binmode> on the underlying C<IO> object, as documented
+in C<perldoc -f binmode>.
+
+C<binmode> accepts one optional parameter, which is the layer to be
+passed on to the C<binmode> call.
+
+=back
+
+=head1 NOTE
+
+Some operating systems may perform  C<IO::File::new()> or C<IO::File::open()>
+on a directory without errors.  This behavior is not portable and not
+suggested for use.  Using C<opendir()> and C<readdir()> or C<IO::Dir> are
+suggested instead.
+
+=head1 SEE ALSO
+
+L<perlfunc>, 
+L<perlop/"I/O Operators">,
+L<IO::Handle>,
+L<IO::Seekable>,
+L<IO::Dir>
+
+=head1 HISTORY
+
+Derived from FileHandle.pm by Graham Barr E<lt>F<gbarr@pobox.com>E<gt>.
+
+=cut
+
+use 5.006_001;
+use strict;
+our($VERSION, @EXPORT, @EXPORT_OK, @ISA);
+use Carp;
+use Symbol;
+use SelectSaver;
+use IO::Seekable;
+
+require Exporter;
+
+@ISA = qw(IO::Handle IO::Seekable Exporter);
+
+$VERSION = "1.16";
+
+@EXPORT = @IO::Seekable::EXPORT;
+
+eval {
+    # Make all Fcntl O_XXX constants available for importing
+    require Fcntl;
+    my @O = grep /^O_/, @Fcntl::EXPORT;
+    Fcntl->import(@O);  # first we import what we want to export
+    push(@EXPORT, @O);
+};
+
+################################################
+## Constructor
+##
+
+sub new {
+    my $type = shift;
+    my $class = ref($type) || $type || "IO::File";
+    @_ >= 0 && @_ <= 3
+	or croak "usage: $class->new([FILENAME [,MODE [,PERMS]]])";
+    my $fh = $class->SUPER::new();
+    if (@_) {
+	$fh->open(@_)
+	    or return undef;
+    }
+    $fh;
+}
+
+################################################
+## Open
+##
+
+sub open {
+    @_ >= 2 && @_ <= 4 or croak 'usage: $fh->open(FILENAME [,MODE [,PERMS]])';
+    my ($fh, $file) = @_;
+    if (@_ > 2) {
+	my ($mode, $perms) = @_[2, 3];
+	if ($mode =~ /^\d+$/) {
+	    defined $perms or $perms = 0666;
+	    return sysopen($fh, $file, $mode, $perms);
+	} elsif ($mode =~ /:/) {
+	    return open($fh, $mode, $file) if @_ == 3;
+	    croak 'usage: $fh->open(FILENAME, IOLAYERS)';
+	} else {
+            return open($fh, IO::Handle::_open_mode_string($mode), $file);
+        }
+    }
+    open($fh, $file);
+}
+
+################################################
+## Binmode
+##
+
+sub binmode {
+    ( @_ == 1 or @_ == 2 ) or croak 'usage $fh->binmode([LAYER])';
+
+    my($fh, $layer) = @_;
+
+    return binmode $$fh unless $layer;
+    return binmode $$fh, $layer;
+}
+
+1;
diff --git a/lib/5.24.1/x86_64-linux/IO/Handle.pm b/lib/5.24.1/x86_64-linux/IO/Handle.pm
new file mode 100644
index 00000000..ce976b0f
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/IO/Handle.pm
@@ -0,0 +1,653 @@
+package IO::Handle;
+
+=head1 NAME
+
+IO::Handle - supply object methods for I/O handles
+
+=head1 SYNOPSIS
+
+    use IO::Handle;
+
+    $io = IO::Handle->new();
+    if ($io->fdopen(fileno(STDIN),"r")) {
+        print $io->getline;
+        $io->close;
+    }
+
+    $io = IO::Handle->new();
+    if ($io->fdopen(fileno(STDOUT),"w")) {
+        $io->print("Some text\n");
+    }
+
+    # setvbuf is not available by default on Perls 5.8.0 and later.
+    use IO::Handle '_IOLBF';
+    $io->setvbuf($buffer_var, _IOLBF, 1024);
+
+    undef $io;       # automatically closes the file if it's open
+
+    autoflush STDOUT 1;
+
+=head1 DESCRIPTION
+
+C<IO::Handle> is the base class for all other IO handle classes. It is
+not intended that objects of C<IO::Handle> would be created directly,
+but instead C<IO::Handle> is inherited from by several other classes
+in the IO hierarchy.
+
+If you are reading this documentation, looking for a replacement for
+the C<FileHandle> package, then I suggest you read the documentation
+for C<IO::File> too.
+
+=head1 CONSTRUCTOR
+
+=over 4
+
+=item new ()
+
+Creates a new C<IO::Handle> object.
+
+=item new_from_fd ( FD, MODE )
+
+Creates an C<IO::Handle> like C<new> does.
+It requires two parameters, which are passed to the method C<fdopen>;
+if the fdopen fails, the object is destroyed. Otherwise, it is returned
+to the caller.
+
+=back
+
+=head1 METHODS
+
+See L<perlfunc> for complete descriptions of each of the following
+supported C<IO::Handle> methods, which are just front ends for the
+corresponding built-in functions:
+
+    $io->close
+    $io->eof
+    $io->fcntl( FUNCTION, SCALAR )
+    $io->fileno
+    $io->format_write( [FORMAT_NAME] )
+    $io->getc
+    $io->ioctl( FUNCTION, SCALAR )
+    $io->read ( BUF, LEN, [OFFSET] )
+    $io->print ( ARGS )
+    $io->printf ( FMT, [ARGS] )
+    $io->say ( ARGS )
+    $io->stat
+    $io->sysread ( BUF, LEN, [OFFSET] )
+    $io->syswrite ( BUF, [LEN, [OFFSET]] )
+    $io->truncate ( LEN )
+
+See L<perlvar> for complete descriptions of each of the following
+supported C<IO::Handle> methods.  All of them return the previous
+value of the attribute and takes an optional single argument that when
+given will set the value.  If no argument is given the previous value
+is unchanged (except for $io->autoflush will actually turn ON
+autoflush by default).
+
+    $io->autoflush ( [BOOL] )                         $|
+    $io->format_page_number( [NUM] )                  $%
+    $io->format_lines_per_page( [NUM] )               $=
+    $io->format_lines_left( [NUM] )                   $-
+    $io->format_name( [STR] )                         $~
+    $io->format_top_name( [STR] )                     $^
+    $io->input_line_number( [NUM])                    $.
+
+The following methods are not supported on a per-filehandle basis.
+
+    IO::Handle->format_line_break_characters( [STR] ) $:
+    IO::Handle->format_formfeed( [STR])               $^L
+    IO::Handle->output_field_separator( [STR] )       $,
+    IO::Handle->output_record_separator( [STR] )      $\
+
+    IO::Handle->input_record_separator( [STR] )       $/
+
+Furthermore, for doing normal I/O you might need these:
+
+=over 4
+
+=item $io->fdopen ( FD, MODE )
+
+C<fdopen> is like an ordinary C<open> except that its first parameter
+is not a filename but rather a file handle name, an IO::Handle object,
+or a file descriptor number.  (For the documentation of the C<open>
+method, see L<IO::File>.)
+
+=item $io->opened
+
+Returns true if the object is currently a valid file descriptor, false
+otherwise.
+
+=item $io->getline
+
+This works like <$io> described in L<perlop/"I/O Operators">
+except that it's more readable and can be safely called in a
+list context but still returns just one line.  If used as the conditional
+within a C<while> or C-style C<for> loop, however, you will need to
+emulate the functionality of <$io> with C<< defined($_ = $io->getline) >>.
+
+=item $io->getlines
+
+This works like <$io> when called in a list context to read all
+the remaining lines in a file, except that it's more readable.
+It will also croak() if accidentally called in a scalar context.
+
+=item $io->ungetc ( ORD )
+
+Pushes a character with the given ordinal value back onto the given
+handle's input stream.  Only one character of pushback per handle is
+guaranteed.
+
+=item $io->write ( BUF, LEN [, OFFSET ] )
+
+This C<write> is somewhat like C<write> found in C, in that it is the
+opposite of read. The wrapper for the perl C<write> function is
+called C<format_write>. However, whilst the C C<write> function returns
+the number of bytes written, this C<write> function simply returns true
+if successful (like C<print>). A more C-like C<write> is C<syswrite>
+(see above).
+
+=item $io->error
+
+Returns a true value if the given handle has experienced any errors
+since it was opened or since the last call to C<clearerr>, or if the
+handle is invalid. It only returns false for a valid handle with no
+outstanding errors.
+
+=item $io->clearerr
+
+Clear the given handle's error indicator. Returns -1 if the handle is
+invalid, 0 otherwise.
+
+=item $io->sync
+
+C<sync> synchronizes a file's in-memory state  with  that  on the
+physical medium. C<sync> does not operate at the perlio api level, but
+operates on the file descriptor (similar to sysread, sysseek and
+systell). This means that any data held at the perlio api level will not
+be synchronized. To synchronize data that is buffered at the perlio api
+level you must use the flush method. C<sync> is not implemented on all
+platforms. Returns "0 but true" on success, C<undef> on error, C<undef>
+for an invalid handle. See L<fsync(3c)>.
+
+=item $io->flush
+
+C<flush> causes perl to flush any buffered data at the perlio api level.
+Any unread data in the buffer will be discarded, and any unwritten data
+will be written to the underlying file descriptor. Returns "0 but true"
+on success, C<undef> on error.
+
+=item $io->printflush ( ARGS )
+
+Turns on autoflush, print ARGS and then restores the autoflush status of the
+C<IO::Handle> object. Returns the return value from print.
+
+=item $io->blocking ( [ BOOL ] )
+
+If called with an argument C<blocking> will turn on non-blocking IO if
+C<BOOL> is false, and turn it off if C<BOOL> is true.
+
+C<blocking> will return the value of the previous setting, or the
+current setting if C<BOOL> is not given. 
+
+If an error occurs C<blocking> will return undef and C<$!> will be set.
+
+=back
+
+
+If the C functions setbuf() and/or setvbuf() are available, then
+C<IO::Handle::setbuf> and C<IO::Handle::setvbuf> set the buffering
+policy for an IO::Handle.  The calling sequences for the Perl functions
+are the same as their C counterparts--including the constants C<_IOFBF>,
+C<_IOLBF>, and C<_IONBF> for setvbuf()--except that the buffer parameter
+specifies a scalar variable to use as a buffer. You should only
+change the buffer before any I/O, or immediately after calling flush.
+
+WARNING: The IO::Handle::setvbuf() is not available by default on
+Perls 5.8.0 and later because setvbuf() is rather specific to using
+the stdio library, while Perl prefers the new perlio subsystem instead.
+
+WARNING: A variable used as a buffer by C<setbuf> or C<setvbuf> B<must not
+be modified> in any way until the IO::Handle is closed or C<setbuf> or
+C<setvbuf> is called again, or memory corruption may result! Remember that
+the order of global destruction is undefined, so even if your buffer
+variable remains in scope until program termination, it may be undefined
+before the file IO::Handle is closed. Note that you need to import the
+constants C<_IOFBF>, C<_IOLBF>, and C<_IONBF> explicitly. Like C, setbuf
+returns nothing. setvbuf returns "0 but true", on success, C<undef> on
+failure.
+
+Lastly, there is a special method for working under B<-T> and setuid/gid
+scripts:
+
+=over 4
+
+=item $io->untaint
+
+Marks the object as taint-clean, and as such data read from it will also
+be considered taint-clean. Note that this is a very trusting action to
+take, and appropriate consideration for the data source and potential
+vulnerability should be kept in mind. Returns 0 on success, -1 if setting
+the taint-clean flag failed. (eg invalid handle)
+
+=back
+
+=head1 NOTE
+
+An C<IO::Handle> object is a reference to a symbol/GLOB reference (see
+the C<Symbol> package).  Some modules that
+inherit from C<IO::Handle> may want to keep object related variables
+in the hash table part of the GLOB. In an attempt to prevent modules
+trampling on each other I propose the that any such module should prefix
+its variables with its own name separated by _'s. For example the IO::Socket
+module keeps a C<timeout> variable in 'io_socket_timeout'.
+
+=head1 SEE ALSO
+
+L<perlfunc>, 
+L<perlop/"I/O Operators">,
+L<IO::File>
+
+=head1 BUGS
+
+Due to backwards compatibility, all filehandles resemble objects
+of class C<IO::Handle>, or actually classes derived from that class.
+They actually aren't.  Which means you can't derive your own 
+class from C<IO::Handle> and inherit those methods.
+
+=head1 HISTORY
+
+Derived from FileHandle.pm by Graham Barr E<lt>F<gbarr@pobox.com>E<gt>
+
+=cut
+
+use 5.006_001;
+use strict;
+our($VERSION, @EXPORT_OK, @ISA);
+use Carp;
+use Symbol;
+use SelectSaver;
+use IO ();	# Load the XS module
+
+require Exporter;
+@ISA = qw(Exporter);
+
+$VERSION = "1.36";
+$VERSION = eval $VERSION;
+
+@EXPORT_OK = qw(
+    autoflush
+    output_field_separator
+    output_record_separator
+    input_record_separator
+    input_line_number
+    format_page_number
+    format_lines_per_page
+    format_lines_left
+    format_name
+    format_top_name
+    format_line_break_characters
+    format_formfeed
+    format_write
+
+    print
+    printf
+    say
+    getline
+    getlines
+
+    printflush
+    flush
+
+    SEEK_SET
+    SEEK_CUR
+    SEEK_END
+    _IOFBF
+    _IOLBF
+    _IONBF
+);
+
+################################################
+## Constructors, destructors.
+##
+
+sub new {
+    my $class = ref($_[0]) || $_[0] || "IO::Handle";
+    if (@_ != 1) {
+	# Since perl will automatically require IO::File if needed, but
+	# also initialises IO::File's @ISA as part of the core we must
+	# ensure IO::File is loaded if IO::Handle is. This avoids effect-
+	# ively "half-loading" IO::File.
+	if ($] > 5.013 && $class eq 'IO::File' && !$INC{"IO/File.pm"}) {
+	    require IO::File;
+	    shift;
+	    return IO::File::->new(@_);
+	}
+	croak "usage: $class->new()";
+    }
+    my $io = gensym;
+    bless $io, $class;
+}
+
+sub new_from_fd {
+    my $class = ref($_[0]) || $_[0] || "IO::Handle";
+    @_ == 3 or croak "usage: $class->new_from_fd(FD, MODE)";
+    my $io = gensym;
+    shift;
+    IO::Handle::fdopen($io, @_)
+	or return undef;
+    bless $io, $class;
+}
+
+#
+# There is no need for DESTROY to do anything, because when the
+# last reference to an IO object is gone, Perl automatically
+# closes its associated files (if any).  However, to avoid any
+# attempts to autoload DESTROY, we here define it to do nothing.
+#
+sub DESTROY {}
+
+
+################################################
+## Open and close.
+##
+
+sub _open_mode_string {
+    my ($mode) = @_;
+    $mode =~ /^\+?(<|>>?)$/
+      or $mode =~ s/^r(\+?)$/$1</
+      or $mode =~ s/^w(\+?)$/$1>/
+      or $mode =~ s/^a(\+?)$/$1>>/
+      or croak "IO::Handle: bad open mode: $mode";
+    $mode;
+}
+
+sub fdopen {
+    @_ == 3 or croak 'usage: $io->fdopen(FD, MODE)';
+    my ($io, $fd, $mode) = @_;
+    local(*GLOB);
+
+    if (ref($fd) && "".$fd =~ /GLOB\(/o) {
+	# It's a glob reference; Alias it as we cannot get name of anon GLOBs
+	my $n = qualify(*GLOB);
+	*GLOB = *{*$fd};
+	$fd =  $n;
+    } elsif ($fd =~ m#^\d+$#) {
+	# It's an FD number; prefix with "=".
+	$fd = "=$fd";
+    }
+
+    open($io, _open_mode_string($mode) . '&' . $fd)
+	? $io : undef;
+}
+
+sub close {
+    @_ == 1 or croak 'usage: $io->close()';
+    my($io) = @_;
+
+    close($io);
+}
+
+################################################
+## Normal I/O functions.
+##
+
+# flock
+# select
+
+sub opened {
+    @_ == 1 or croak 'usage: $io->opened()';
+    defined fileno($_[0]);
+}
+
+sub fileno {
+    @_ == 1 or croak 'usage: $io->fileno()';
+    fileno($_[0]);
+}
+
+sub getc {
+    @_ == 1 or croak 'usage: $io->getc()';
+    getc($_[0]);
+}
+
+sub eof {
+    @_ == 1 or croak 'usage: $io->eof()';
+    eof($_[0]);
+}
+
+sub print {
+    @_ or croak 'usage: $io->print(ARGS)';
+    my $this = shift;
+    print $this @_;
+}
+
+sub printf {
+    @_ >= 2 or croak 'usage: $io->printf(FMT,[ARGS])';
+    my $this = shift;
+    printf $this @_;
+}
+
+sub say {
+    @_ or croak 'usage: $io->say(ARGS)';
+    my $this = shift;
+    local $\ = "\n";
+    print $this @_;
+}
+
+# Special XS wrapper to make them inherit lexical hints from the caller.
+_create_getline_subs( <<'END' ) or die $@;
+sub getline {
+    @_ == 1 or croak 'usage: $io->getline()';
+    my $this = shift;
+    return scalar <$this>;
+} 
+
+sub getlines {
+    @_ == 1 or croak 'usage: $io->getlines()';
+    wantarray or
+	croak 'Can\'t call $io->getlines in a scalar context, use $io->getline';
+    my $this = shift;
+    return <$this>;
+}
+1; # return true for error checking
+END
+
+*gets = \&getline;  # deprecated
+
+sub truncate {
+    @_ == 2 or croak 'usage: $io->truncate(LEN)';
+    truncate($_[0], $_[1]);
+}
+
+sub read {
+    @_ == 3 || @_ == 4 or croak 'usage: $io->read(BUF, LEN [, OFFSET])';
+    read($_[0], $_[1], $_[2], $_[3] || 0);
+}
+
+sub sysread {
+    @_ == 3 || @_ == 4 or croak 'usage: $io->sysread(BUF, LEN [, OFFSET])';
+    sysread($_[0], $_[1], $_[2], $_[3] || 0);
+}
+
+sub write {
+    @_ >= 2 && @_ <= 4 or croak 'usage: $io->write(BUF [, LEN [, OFFSET]])';
+    local($\) = "";
+    $_[2] = length($_[1]) unless defined $_[2];
+    print { $_[0] } substr($_[1], $_[3] || 0, $_[2]);
+}
+
+sub syswrite {
+    @_ >= 2 && @_ <= 4 or croak 'usage: $io->syswrite(BUF [, LEN [, OFFSET]])';
+    if (defined($_[2])) {
+	syswrite($_[0], $_[1], $_[2], $_[3] || 0);
+    } else {
+	syswrite($_[0], $_[1]);
+    }
+}
+
+sub stat {
+    @_ == 1 or croak 'usage: $io->stat()';
+    stat($_[0]);
+}
+
+################################################
+## State modification functions.
+##
+
+sub autoflush {
+    my $old = new SelectSaver qualify($_[0], caller);
+    my $prev = $|;
+    $| = @_ > 1 ? $_[1] : 1;
+    $prev;
+}
+
+sub output_field_separator {
+    carp "output_field_separator is not supported on a per-handle basis"
+	if ref($_[0]);
+    my $prev = $,;
+    $, = $_[1] if @_ > 1;
+    $prev;
+}
+
+sub output_record_separator {
+    carp "output_record_separator is not supported on a per-handle basis"
+	if ref($_[0]);
+    my $prev = $\;
+    $\ = $_[1] if @_ > 1;
+    $prev;
+}
+
+sub input_record_separator {
+    carp "input_record_separator is not supported on a per-handle basis"
+	if ref($_[0]);
+    my $prev = $/;
+    $/ = $_[1] if @_ > 1;
+    $prev;
+}
+
+sub input_line_number {
+    local $.;
+    () = tell qualify($_[0], caller) if ref($_[0]);
+    my $prev = $.;
+    $. = $_[1] if @_ > 1;
+    $prev;
+}
+
+sub format_page_number {
+    my $old;
+    $old = new SelectSaver qualify($_[0], caller) if ref($_[0]);
+    my $prev = $%;
+    $% = $_[1] if @_ > 1;
+    $prev;
+}
+
+sub format_lines_per_page {
+    my $old;
+    $old = new SelectSaver qualify($_[0], caller) if ref($_[0]);
+    my $prev = $=;
+    $= = $_[1] if @_ > 1;
+    $prev;
+}
+
+sub format_lines_left {
+    my $old;
+    $old = new SelectSaver qualify($_[0], caller) if ref($_[0]);
+    my $prev = $-;
+    $- = $_[1] if @_ > 1;
+    $prev;
+}
+
+sub format_name {
+    my $old;
+    $old = new SelectSaver qualify($_[0], caller) if ref($_[0]);
+    my $prev = $~;
+    $~ = qualify($_[1], caller) if @_ > 1;
+    $prev;
+}
+
+sub format_top_name {
+    my $old;
+    $old = new SelectSaver qualify($_[0], caller) if ref($_[0]);
+    my $prev = $^;
+    $^ = qualify($_[1], caller) if @_ > 1;
+    $prev;
+}
+
+sub format_line_break_characters {
+    carp "format_line_break_characters is not supported on a per-handle basis"
+	if ref($_[0]);
+    my $prev = $:;
+    $: = $_[1] if @_ > 1;
+    $prev;
+}
+
+sub format_formfeed {
+    carp "format_formfeed is not supported on a per-handle basis"
+	if ref($_[0]);
+    my $prev = $^L;
+    $^L = $_[1] if @_ > 1;
+    $prev;
+}
+
+sub formline {
+    my $io = shift;
+    my $picture = shift;
+    local($^A) = $^A;
+    local($\) = "";
+    formline($picture, @_);
+    print $io $^A;
+}
+
+sub format_write {
+    @_ < 3 || croak 'usage: $io->write( [FORMAT_NAME] )';
+    if (@_ == 2) {
+	my ($io, $fmt) = @_;
+	my $oldfmt = $io->format_name(qualify($fmt,caller));
+	CORE::write($io);
+	$io->format_name($oldfmt);
+    } else {
+	CORE::write($_[0]);
+    }
+}
+
+sub fcntl {
+    @_ == 3 || croak 'usage: $io->fcntl( OP, VALUE );';
+    my ($io, $op) = @_;
+    return fcntl($io, $op, $_[2]);
+}
+
+sub ioctl {
+    @_ == 3 || croak 'usage: $io->ioctl( OP, VALUE );';
+    my ($io, $op) = @_;
+    return ioctl($io, $op, $_[2]);
+}
+
+# this sub is for compatibility with older releases of IO that used
+# a sub called constant to determine if a constant existed -- GMB
+#
+# The SEEK_* and _IO?BF constants were the only constants at that time
+# any new code should just check defined(&CONSTANT_NAME)
+
+sub constant {
+    no strict 'refs';
+    my $name = shift;
+    (($name =~ /^(SEEK_(SET|CUR|END)|_IO[FLN]BF)$/) && defined &{$name})
+	? &{$name}() : undef;
+}
+
+
+# so that flush.pl can be deprecated
+
+sub printflush {
+    my $io = shift;
+    my $old;
+    $old = new SelectSaver qualify($io, caller) if ref($io);
+    local $| = 1;
+    if(ref($io)) {
+        print $io @_;
+    }
+    else {
+	print @_;
+    }
+}
+
+1;
diff --git a/lib/5.24.1/x86_64-linux/IO/Pipe.pm b/lib/5.24.1/x86_64-linux/IO/Pipe.pm
new file mode 100644
index 00000000..684069f4
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/IO/Pipe.pm
@@ -0,0 +1,257 @@
+# IO::Pipe.pm
+#
+# Copyright (c) 1996-8 Graham Barr <gbarr@pobox.com>. All rights reserved.
+# This program is free software; you can redistribute it and/or
+# modify it under the same terms as Perl itself.
+
+package IO::Pipe;
+
+use 5.006_001;
+
+use IO::Handle;
+use strict;
+our($VERSION);
+use Carp;
+use Symbol;
+
+$VERSION = "1.15";
+
+sub new {
+    my $type = shift;
+    my $class = ref($type) || $type || "IO::Pipe";
+    @_ == 0 || @_ == 2 or croak "usage: $class->([READFH, WRITEFH])";
+
+    my $me = bless gensym(), $class;
+
+    my($readfh,$writefh) = @_ ? @_ : $me->handles;
+
+    pipe($readfh, $writefh)
+	or return undef;
+
+    @{*$me} = ($readfh, $writefh);
+
+    $me;
+}
+
+sub handles {
+    @_ == 1 or croak 'usage: $pipe->handles()';
+    (IO::Pipe::End->new(), IO::Pipe::End->new());
+}
+
+my $do_spawn = $^O eq 'os2' || $^O eq 'MSWin32';
+
+sub _doit {
+    my $me = shift;
+    my $rw = shift;
+
+    my $pid = $do_spawn ? 0 : fork();
+
+    if($pid) { # Parent
+        return $pid;
+    }
+    elsif(defined $pid) { # Child or spawn
+        my $fh;
+        my $io = $rw ? \*STDIN : \*STDOUT;
+        my ($mode, $save) = $rw ? "r" : "w";
+        if ($do_spawn) {
+          require Fcntl;
+          $save = IO::Handle->new_from_fd($io, $mode);
+	  my $handle = shift;
+          # Close in child:
+	  unless ($^O eq 'MSWin32') {
+            fcntl($handle, Fcntl::F_SETFD(), 1) or croak "fcntl: $!";
+	  }
+          $fh = $rw ? ${*$me}[0] : ${*$me}[1];
+        } else {
+          shift;
+          $fh = $rw ? $me->reader() : $me->writer(); # close the other end
+        }
+        bless $io, "IO::Handle";
+        $io->fdopen($fh, $mode);
+	$fh->close;
+
+        if ($do_spawn) {
+          $pid = eval { system 1, @_ }; # 1 == P_NOWAIT
+          my $err = $!;
+    
+          $io->fdopen($save, $mode);
+          $save->close or croak "Cannot close $!";
+          croak "IO::Pipe: Cannot spawn-NOWAIT: $err" if not $pid or $pid < 0;
+          return $pid;
+        } else {
+          exec @_ or
+            croak "IO::Pipe: Cannot exec: $!";
+        }
+    }
+    else {
+        croak "IO::Pipe: Cannot fork: $!";
+    }
+
+    # NOT Reached
+}
+
+sub reader {
+    @_ >= 1 or croak 'usage: $pipe->reader( [SUB_COMMAND_ARGS] )';
+    my $me = shift;
+
+    return undef
+	unless(ref($me) || ref($me = $me->new));
+
+    my $fh  = ${*$me}[0];
+    my $pid;
+    $pid = $me->_doit(0, $fh, @_)
+        if(@_);
+
+    close ${*$me}[1];
+    bless $me, ref($fh);
+    *$me = *$fh;          # Alias self to handle
+    $me->fdopen($fh->fileno,"r")
+	unless defined($me->fileno);
+    bless $fh;                  # Really wan't un-bless here
+    ${*$me}{'io_pipe_pid'} = $pid
+        if defined $pid;
+
+    $me;
+}
+
+sub writer {
+    @_ >= 1 or croak 'usage: $pipe->writer( [SUB_COMMAND_ARGS] )';
+    my $me = shift;
+
+    return undef
+	unless(ref($me) || ref($me = $me->new));
+
+    my $fh  = ${*$me}[1];
+    my $pid;
+    $pid = $me->_doit(1, $fh, @_)
+        if(@_);
+
+    close ${*$me}[0];
+    bless $me, ref($fh);
+    *$me = *$fh;          # Alias self to handle
+    $me->fdopen($fh->fileno,"w")
+	unless defined($me->fileno);
+    bless $fh;                  # Really wan't un-bless here
+    ${*$me}{'io_pipe_pid'} = $pid
+        if defined $pid;
+
+    $me;
+}
+
+package IO::Pipe::End;
+
+our(@ISA);
+
+@ISA = qw(IO::Handle);
+
+sub close {
+    my $fh = shift;
+    my $r = $fh->SUPER::close(@_);
+
+    waitpid(${*$fh}{'io_pipe_pid'},0)
+	if(defined ${*$fh}{'io_pipe_pid'});
+
+    $r;
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+IO::Pipe - supply object methods for pipes
+
+=head1 SYNOPSIS
+
+	use IO::Pipe;
+
+	$pipe = IO::Pipe->new();
+
+	if($pid = fork()) { # Parent
+	    $pipe->reader();
+
+	    while(<$pipe>) {
+		...
+	    }
+
+	}
+	elsif(defined $pid) { # Child
+	    $pipe->writer();
+
+	    print $pipe ...
+	}
+
+	or
+
+	$pipe = IO::Pipe->new();
+
+	$pipe->reader(qw(ls -l));
+
+	while(<$pipe>) {
+	    ...
+	}
+
+=head1 DESCRIPTION
+
+C<IO::Pipe> provides an interface to creating pipes between
+processes.
+
+=head1 CONSTRUCTOR
+
+=over 4
+
+=item new ( [READER, WRITER] )
+
+Creates an C<IO::Pipe>, which is a reference to a newly created symbol
+(see the C<Symbol> package). C<IO::Pipe::new> optionally takes two
+arguments, which should be objects blessed into C<IO::Handle>, or a
+subclass thereof. These two objects will be used for the system call
+to C<pipe>. If no arguments are given then method C<handles> is called
+on the new C<IO::Pipe> object.
+
+These two handles are held in the array part of the GLOB until either
+C<reader> or C<writer> is called.
+
+=back
+
+=head1 METHODS
+
+=over 4
+
+=item reader ([ARGS])
+
+The object is re-blessed into a sub-class of C<IO::Handle>, and becomes a
+handle at the reading end of the pipe. If C<ARGS> are given then C<fork>
+is called and C<ARGS> are passed to exec.
+
+=item writer ([ARGS])
+
+The object is re-blessed into a sub-class of C<IO::Handle>, and becomes a
+handle at the writing end of the pipe. If C<ARGS> are given then C<fork>
+is called and C<ARGS> are passed to exec.
+
+=item handles ()
+
+This method is called during construction by C<IO::Pipe::new>
+on the newly created C<IO::Pipe> object. It returns an array of two objects
+blessed into C<IO::Pipe::End>, or a subclass thereof.
+
+=back
+
+=head1 SEE ALSO
+
+L<IO::Handle>
+
+=head1 AUTHOR
+
+Graham Barr. Currently maintained by the Perl Porters.  Please report all
+bugs to <perlbug@perl.org>.
+
+=head1 COPYRIGHT
+
+Copyright (c) 1996-8 Graham Barr <gbarr@pobox.com>. All rights reserved.
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/IO/Poll.pm b/lib/5.24.1/x86_64-linux/IO/Poll.pm
new file mode 100644
index 00000000..a02dc3db
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/IO/Poll.pm
@@ -0,0 +1,209 @@
+
+# IO::Poll.pm
+#
+# Copyright (c) 1997-8 Graham Barr <gbarr@pobox.com>. All rights reserved.
+# This program is free software; you can redistribute it and/or
+# modify it under the same terms as Perl itself.
+
+package IO::Poll;
+
+use strict;
+use IO::Handle;
+use Exporter ();
+our(@ISA, @EXPORT_OK, @EXPORT, $VERSION);
+
+@ISA = qw(Exporter);
+$VERSION = "0.10";
+
+@EXPORT = qw( POLLIN
+	      POLLOUT
+	      POLLERR
+	      POLLHUP
+	      POLLNVAL
+	    );
+
+@EXPORT_OK = qw(
+ POLLPRI   
+ POLLRDNORM
+ POLLWRNORM
+ POLLRDBAND
+ POLLWRBAND
+ POLLNORM  
+	       );
+
+# [0] maps fd's to requested masks
+# [1] maps fd's to returned  masks
+# [2] maps fd's to handles
+sub new {
+    my $class = shift;
+
+    my $self = bless [{},{},{}], $class;
+
+    $self;
+}
+
+sub mask {
+    my $self = shift;
+    my $io = shift;
+    my $fd = fileno($io);
+    return unless defined $fd;
+    if (@_) {
+	my $mask = shift;
+	if($mask) {
+	  $self->[0]{$fd}{$io} = $mask; # the error events are always returned
+	  $self->[1]{$fd}      = 0;     # output mask
+	  $self->[2]{$io}      = $io;   # remember handle
+	} else {
+          delete $self->[0]{$fd}{$io};
+          unless(%{$self->[0]{$fd}}) {
+            # We no longer have any handles for this FD
+            delete $self->[1]{$fd};
+            delete $self->[0]{$fd};
+          }
+          delete $self->[2]{$io};
+	}
+    }
+    
+    return unless exists $self->[0]{$fd} and exists $self->[0]{$fd}{$io};
+	return $self->[0]{$fd}{$io};
+}
+
+
+sub poll {
+    my($self,$timeout) = @_;
+
+    $self->[1] = {};
+
+    my($fd,$mask,$iom);
+    my @poll = ();
+
+    while(($fd,$iom) = each %{$self->[0]}) {
+	$mask   = 0;
+	$mask  |= $_ for values(%$iom);
+	push(@poll,$fd => $mask);
+    }
+
+    my $ret = _poll(defined($timeout) ? $timeout * 1000 : -1,@poll);
+
+    return $ret
+	unless $ret > 0;
+
+    while(@poll) {
+	my($fd,$got) = splice(@poll,0,2);
+	$self->[1]{$fd} = $got if $got;
+    }
+
+    return $ret;  
+}
+
+sub events {
+    my $self = shift;
+    my $io = shift;
+    my $fd = fileno($io);
+    exists $self->[1]{$fd} and exists $self->[0]{$fd}{$io} 
+                ? $self->[1]{$fd} & ($self->[0]{$fd}{$io}|POLLHUP|POLLERR|POLLNVAL)
+	: 0;
+}
+
+sub remove {
+    my $self = shift;
+    my $io = shift;
+    $self->mask($io,0);
+}
+
+sub handles {
+    my $self = shift;
+    return values %{$self->[2]} unless @_;
+
+    my $events = shift || 0;
+    my($fd,$ev,$io,$mask);
+    my @handles = ();
+
+    while(($fd,$ev) = each %{$self->[1]}) {
+	while (($io,$mask) = each %{$self->[0]{$fd}}) {
+	    $mask |= POLLHUP|POLLERR|POLLNVAL;  # must allow these
+	    push @handles,$self->[2]{$io} if ($ev & $mask) & $events;
+	}
+    }
+    return @handles;
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+IO::Poll - Object interface to system poll call
+
+=head1 SYNOPSIS
+
+    use IO::Poll qw(POLLRDNORM POLLWRNORM POLLIN POLLHUP);
+
+    $poll = IO::Poll->new();
+
+    $poll->mask($input_handle => POLLIN);
+    $poll->mask($output_handle => POLLOUT);
+
+    $poll->poll($timeout);
+
+    $ev = $poll->events($input);
+
+=head1 DESCRIPTION
+
+C<IO::Poll> is a simple interface to the system level poll routine.
+
+=head1 METHODS
+
+=over 4
+
+=item mask ( IO [, EVENT_MASK ] )
+
+If EVENT_MASK is given, then, if EVENT_MASK is non-zero, IO is added to the
+list of file descriptors and the next call to poll will check for
+any event specified in EVENT_MASK. If EVENT_MASK is zero then IO will be
+removed from the list of file descriptors.
+
+If EVENT_MASK is not given then the return value will be the current
+event mask value for IO.
+
+=item poll ( [ TIMEOUT ] )
+
+Call the system level poll routine. If TIMEOUT is not specified then the
+call will block. Returns the number of handles which had events
+happen, or -1 on error.
+
+=item events ( IO )
+
+Returns the event mask which represents the events that happened on IO
+during the last call to C<poll>.
+
+=item remove ( IO )
+
+Remove IO from the list of file descriptors for the next poll.
+
+=item handles( [ EVENT_MASK ] )
+
+Returns a list of handles. If EVENT_MASK is not given then a list of all
+handles known will be returned. If EVENT_MASK is given then a list
+of handles will be returned which had one of the events specified by
+EVENT_MASK happen during the last call ti C<poll>
+
+=back
+
+=head1 SEE ALSO
+
+L<poll(2)>, L<IO::Handle>, L<IO::Select>
+
+=head1 AUTHOR
+
+Graham Barr. Currently maintained by the Perl Porters.  Please report all
+bugs to <perlbug@perl.org>.
+
+=head1 COPYRIGHT
+
+Copyright (c) 1997-8 Graham Barr <gbarr@pobox.com>. All rights reserved.
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/IO/Seekable.pm b/lib/5.24.1/x86_64-linux/IO/Seekable.pm
new file mode 100644
index 00000000..db1effda
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/IO/Seekable.pm
@@ -0,0 +1,128 @@
+#
+
+package IO::Seekable;
+
+=head1 NAME
+
+IO::Seekable - supply seek based methods for I/O objects
+
+=head1 SYNOPSIS
+
+    use IO::Seekable;
+    package IO::Something;
+    @ISA = qw(IO::Seekable);
+
+=head1 DESCRIPTION
+
+C<IO::Seekable> does not have a constructor of its own as it is intended to
+be inherited by other C<IO::Handle> based objects. It provides methods
+which allow seeking of the file descriptors.
+
+=over 4
+
+=item $io->getpos
+
+Returns an opaque value that represents the current position of the
+IO::File, or C<undef> if this is not possible (eg an unseekable stream such
+as a terminal, pipe or socket). If the fgetpos() function is available in
+your C library it is used to implements getpos, else perl emulates getpos
+using C's ftell() function.
+
+=item $io->setpos
+
+Uses the value of a previous getpos call to return to a previously visited
+position. Returns "0 but true" on success, C<undef> on failure.
+
+=back
+
+See L<perlfunc> for complete descriptions of each of the following
+supported C<IO::Seekable> methods, which are just front ends for the
+corresponding built-in functions:
+
+=over 4
+
+=item $io->seek ( POS, WHENCE )
+
+Seek the IO::File to position POS, relative to WHENCE:
+
+=over 8
+
+=item WHENCE=0 (SEEK_SET)
+
+POS is absolute position. (Seek relative to the start of the file)
+
+=item WHENCE=1 (SEEK_CUR)
+
+POS is an offset from the current position. (Seek relative to current)
+
+=item WHENCE=2 (SEEK_END)
+
+POS is an offset from the end of the file. (Seek relative to end)
+
+=back
+
+The SEEK_* constants can be imported from the C<Fcntl> module if you
+don't wish to use the numbers C<0> C<1> or C<2> in your code.
+
+Returns C<1> upon success, C<0> otherwise.
+
+=item $io->sysseek( POS, WHENCE )
+
+Similar to $io->seek, but sets the IO::File's position using the system
+call lseek(2) directly, so will confuse most perl IO operators except
+sysread and syswrite (see L<perlfunc> for full details)
+
+Returns the new position, or C<undef> on failure.  A position
+of zero is returned as the string C<"0 but true">
+
+=item $io->tell
+
+Returns the IO::File's current position, or -1 on error.
+
+=back
+
+=head1 SEE ALSO
+
+L<perlfunc>, 
+L<perlop/"I/O Operators">,
+L<IO::Handle>
+L<IO::File>
+
+=head1 HISTORY
+
+Derived from FileHandle.pm by Graham Barr E<lt>gbarr@pobox.comE<gt>
+
+=cut
+
+use 5.006_001;
+use Carp;
+use strict;
+our($VERSION, @EXPORT, @ISA);
+use IO::Handle ();
+# XXX we can't get these from IO::Handle or we'll get prototype
+# mismatch warnings on C<use POSIX; use IO::File;> :-(
+use Fcntl qw(SEEK_SET SEEK_CUR SEEK_END);
+require Exporter;
+
+@EXPORT = qw(SEEK_SET SEEK_CUR SEEK_END);
+@ISA = qw(Exporter);
+
+$VERSION = "1.10";
+$VERSION = eval $VERSION;
+
+sub seek {
+    @_ == 3 or croak 'usage: $io->seek(POS, WHENCE)';
+    seek($_[0], $_[1], $_[2]);
+}
+
+sub sysseek {
+    @_ == 3 or croak 'usage: $io->sysseek(POS, WHENCE)';
+    sysseek($_[0], $_[1], $_[2]);
+}
+
+sub tell {
+    @_ == 1 or croak 'usage: $io->tell()';
+    tell($_[0]);
+}
+
+1;
diff --git a/lib/5.24.1/x86_64-linux/IO/Select.pm b/lib/5.24.1/x86_64-linux/IO/Select.pm
new file mode 100644
index 00000000..994f8966
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/IO/Select.pm
@@ -0,0 +1,396 @@
+# IO::Select.pm
+#
+# Copyright (c) 1997-8 Graham Barr <gbarr@pobox.com>. All rights reserved.
+# This program is free software; you can redistribute it and/or
+# modify it under the same terms as Perl itself.
+
+package IO::Select;
+
+use     strict;
+use warnings::register;
+use     vars qw($VERSION @ISA);
+require Exporter;
+
+$VERSION = "1.22";
+
+@ISA = qw(Exporter); # This is only so we can do version checking
+
+sub VEC_BITS () {0}
+sub FD_COUNT () {1}
+sub FIRST_FD () {2}
+
+sub new
+{
+ my $self = shift;
+ my $type = ref($self) || $self;
+
+ my $vec = bless [undef,0], $type;
+
+ $vec->add(@_)
+    if @_;
+
+ $vec;
+}
+
+sub add
+{
+ shift->_update('add', @_);
+}
+
+
+sub remove
+{
+ shift->_update('remove', @_);
+}
+
+
+sub exists
+{
+ my $vec = shift;
+ my $fno = $vec->_fileno(shift);
+ return undef unless defined $fno;
+ $vec->[$fno + FIRST_FD];
+}
+
+
+sub _fileno
+{
+ my($self, $f) = @_;
+ return unless defined $f;
+ $f = $f->[0] if ref($f) eq 'ARRAY';
+ ($f =~ /^\d+$/) ? $f : fileno($f);
+}
+
+sub _update
+{
+ my $vec = shift;
+ my $add = shift eq 'add';
+
+ my $bits = $vec->[VEC_BITS];
+ $bits = '' unless defined $bits;
+
+ my $count = 0;
+ my $f;
+ foreach $f (@_)
+  {
+   my $fn = $vec->_fileno($f);
+   if ($add) {
+     next unless defined $fn;
+     my $i = $fn + FIRST_FD;
+     if (defined $vec->[$i]) {
+	 $vec->[$i] = $f;  # if array rest might be different, so we update
+	 next;
+     }
+     $vec->[FD_COUNT]++;
+     vec($bits, $fn, 1) = 1;
+     $vec->[$i] = $f;
+   } else {      # remove
+     if ( ! defined $fn ) { # remove if fileno undef'd
+       $fn = 0;
+       for my $fe (@{$vec}[FIRST_FD .. $#$vec]) {
+         if (defined($fe) && $fe == $f) {
+	   $vec->[FD_COUNT]--;
+	   $fe = undef;
+	   vec($bits, $fn, 1) = 0;
+	   last;
+	 }
+	 ++$fn;
+       }
+     }
+     else {
+       my $i = $fn + FIRST_FD;
+       next unless defined $vec->[$i];
+       $vec->[FD_COUNT]--;
+       vec($bits, $fn, 1) = 0;
+       $vec->[$i] = undef;
+     }
+   }
+   $count++;
+  }
+ $vec->[VEC_BITS] = $vec->[FD_COUNT] ? $bits : undef;
+ $count;
+}
+
+sub can_read
+{
+ my $vec = shift;
+ my $timeout = shift;
+ my $r = $vec->[VEC_BITS];
+
+ defined($r) && (select($r,undef,undef,$timeout) > 0)
+    ? handles($vec, $r)
+    : ();
+}
+
+sub can_write
+{
+ my $vec = shift;
+ my $timeout = shift;
+ my $w = $vec->[VEC_BITS];
+
+ defined($w) && (select(undef,$w,undef,$timeout) > 0)
+    ? handles($vec, $w)
+    : ();
+}
+
+sub has_exception
+{
+ my $vec = shift;
+ my $timeout = shift;
+ my $e = $vec->[VEC_BITS];
+
+ defined($e) && (select(undef,undef,$e,$timeout) > 0)
+    ? handles($vec, $e)
+    : ();
+}
+
+sub has_error
+{
+ warnings::warn("Call to deprecated method 'has_error', use 'has_exception'")
+	if warnings::enabled();
+ goto &has_exception;
+}
+
+sub count
+{
+ my $vec = shift;
+ $vec->[FD_COUNT];
+}
+
+sub bits
+{
+ my $vec = shift;
+ $vec->[VEC_BITS];
+}
+
+sub as_string  # for debugging
+{
+ my $vec = shift;
+ my $str = ref($vec) . ": ";
+ my $bits = $vec->bits;
+ my $count = $vec->count;
+ $str .= defined($bits) ? unpack("b*", $bits) : "undef";
+ $str .= " $count";
+ my @handles = @$vec;
+ splice(@handles, 0, FIRST_FD);
+ for (@handles) {
+     $str .= " " . (defined($_) ? "$_" : "-");
+ }
+ $str;
+}
+
+sub _max
+{
+ my($a,$b,$c) = @_;
+ $a > $b
+    ? $a > $c
+        ? $a
+        : $c
+    : $b > $c
+        ? $b
+        : $c;
+}
+
+sub select
+{
+ shift
+   if defined $_[0] && !ref($_[0]);
+
+ my($r,$w,$e,$t) = @_;
+ my @result = ();
+
+ my $rb = defined $r ? $r->[VEC_BITS] : undef;
+ my $wb = defined $w ? $w->[VEC_BITS] : undef;
+ my $eb = defined $e ? $e->[VEC_BITS] : undef;
+
+ if(select($rb,$wb,$eb,$t) > 0)
+  {
+   my @r = ();
+   my @w = ();
+   my @e = ();
+   my $i = _max(defined $r ? scalar(@$r)-1 : 0,
+                defined $w ? scalar(@$w)-1 : 0,
+                defined $e ? scalar(@$e)-1 : 0);
+
+   for( ; $i >= FIRST_FD ; $i--)
+    {
+     my $j = $i - FIRST_FD;
+     push(@r, $r->[$i])
+        if defined $rb && defined $r->[$i] && vec($rb, $j, 1);
+     push(@w, $w->[$i])
+        if defined $wb && defined $w->[$i] && vec($wb, $j, 1);
+     push(@e, $e->[$i])
+        if defined $eb && defined $e->[$i] && vec($eb, $j, 1);
+    }
+
+   @result = (\@r, \@w, \@e);
+  }
+ @result;
+}
+
+
+sub handles
+{
+ my $vec = shift;
+ my $bits = shift;
+ my @h = ();
+ my $i;
+ my $max = scalar(@$vec) - 1;
+
+ for ($i = FIRST_FD; $i <= $max; $i++)
+  {
+   next unless defined $vec->[$i];
+   push(@h, $vec->[$i])
+      if !defined($bits) || vec($bits, $i - FIRST_FD, 1);
+  }
+ 
+ @h;
+}
+
+1;
+__END__
+
+=head1 NAME
+
+IO::Select - OO interface to the select system call
+
+=head1 SYNOPSIS
+
+    use IO::Select;
+
+    $s = IO::Select->new();
+
+    $s->add(\*STDIN);
+    $s->add($some_handle);
+
+    @ready = $s->can_read($timeout);
+
+    @ready = IO::Select->new(@handles)->can_read(0);
+
+=head1 DESCRIPTION
+
+The C<IO::Select> package implements an object approach to the system C<select>
+function call. It allows the user to see what IO handles, see L<IO::Handle>,
+are ready for reading, writing or have an exception pending.
+
+=head1 CONSTRUCTOR
+
+=over 4
+
+=item new ( [ HANDLES ] )
+
+The constructor creates a new object and optionally initialises it with a set
+of handles.
+
+=back
+
+=head1 METHODS
+
+=over 4
+
+=item add ( HANDLES )
+
+Add the list of handles to the C<IO::Select> object. It is these values that
+will be returned when an event occurs. C<IO::Select> keeps these values in a
+cache which is indexed by the C<fileno> of the handle, so if more than one
+handle with the same C<fileno> is specified then only the last one is cached.
+
+Each handle can be an C<IO::Handle> object, an integer or an array
+reference where the first element is an C<IO::Handle> or an integer.
+
+=item remove ( HANDLES )
+
+Remove all the given handles from the object. This method also works
+by the C<fileno> of the handles. So the exact handles that were added
+need not be passed, just handles that have an equivalent C<fileno>
+
+=item exists ( HANDLE )
+
+Returns a true value (actually the handle itself) if it is present.
+Returns undef otherwise.
+
+=item handles
+
+Return an array of all registered handles.
+
+=item can_read ( [ TIMEOUT ] )
+
+Return an array of handles that are ready for reading. C<TIMEOUT> is
+the maximum amount of time to wait before returning an empty list, in
+seconds, possibly fractional. If C<TIMEOUT> is not given and any
+handles are registered then the call will block.
+
+=item can_write ( [ TIMEOUT ] )
+
+Same as C<can_read> except check for handles that can be written to.
+
+=item has_exception ( [ TIMEOUT ] )
+
+Same as C<can_read> except check for handles that have an exception
+condition, for example pending out-of-band data.
+
+=item count ()
+
+Returns the number of handles that the object will check for when
+one of the C<can_> methods is called or the object is passed to
+the C<select> static method.
+
+=item bits()
+
+Return the bit string suitable as argument to the core select() call.
+
+=item select ( READ, WRITE, EXCEPTION [, TIMEOUT ] )
+
+C<select> is a static method, that is you call it with the package name
+like C<new>. C<READ>, C<WRITE> and C<EXCEPTION> are either C<undef> or
+C<IO::Select> objects. C<TIMEOUT> is optional and has the same effect as
+for the core select call.
+
+The result will be an array of 3 elements, each a reference to an array
+which will hold the handles that are ready for reading, writing and have
+exceptions respectively. Upon error an empty list is returned.
+
+=back
+
+=head1 EXAMPLE
+
+Here is a short example which shows how C<IO::Select> could be used
+to write a server which communicates with several sockets while also
+listening for more connections on a listen socket
+
+    use IO::Select;
+    use IO::Socket;
+
+    $lsn = IO::Socket::INET->new(Listen => 1, LocalPort => 8080);
+    $sel = IO::Select->new( $lsn );
+
+    while(@ready = $sel->can_read) {
+        foreach $fh (@ready) {
+            if($fh == $lsn) {
+                # Create a new socket
+                $new = $lsn->accept;
+                $sel->add($new);
+            }
+            else {
+                # Process socket
+
+                # Maybe we have finished with the socket
+                $sel->remove($fh);
+                $fh->close;
+            }
+        }
+    }
+
+=head1 AUTHOR
+
+Graham Barr. Currently maintained by the Perl Porters.  Please report all
+bugs to <perlbug@perl.org>.
+
+=head1 COPYRIGHT
+
+Copyright (c) 1997-8 Graham Barr <gbarr@pobox.com>. All rights reserved.
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+=cut
+
diff --git a/lib/5.24.1/x86_64-linux/IO/Socket.pm b/lib/5.24.1/x86_64-linux/IO/Socket.pm
new file mode 100644
index 00000000..c78aeecc
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/IO/Socket.pm
@@ -0,0 +1,586 @@
+
+# IO::Socket.pm
+#
+# Copyright (c) 1997-8 Graham Barr <gbarr@pobox.com>. All rights reserved.
+# This program is free software; you can redistribute it and/or
+# modify it under the same terms as Perl itself.
+
+package IO::Socket;
+
+require 5.006;
+
+use IO::Handle;
+use Socket 1.3;
+use Carp;
+use strict;
+our(@ISA, $VERSION, @EXPORT_OK);
+use Exporter;
+use Errno;
+
+# legacy
+
+require IO::Socket::INET;
+require IO::Socket::UNIX if ($^O ne 'epoc' && $^O ne 'symbian');
+
+@ISA = qw(IO::Handle);
+
+$VERSION = "1.38";
+
+@EXPORT_OK = qw(sockatmark);
+
+sub import {
+    my $pkg = shift;
+    if (@_ && $_[0] eq 'sockatmark') { # not very extensible but for now, fast
+	Exporter::export_to_level('IO::Socket', 1, $pkg, 'sockatmark');
+    } else {
+	my $callpkg = caller;
+	Exporter::export 'Socket', $callpkg, @_;
+    }
+}
+
+sub new {
+    my($class,%arg) = @_;
+    my $sock = $class->SUPER::new();
+
+    $sock->autoflush(1);
+
+    ${*$sock}{'io_socket_timeout'} = delete $arg{Timeout};
+
+    return scalar(%arg) ? $sock->configure(\%arg)
+			: $sock;
+}
+
+my @domain2pkg;
+
+sub register_domain {
+    my($p,$d) = @_;
+    $domain2pkg[$d] = $p;
+}
+
+sub configure {
+    my($sock,$arg) = @_;
+    my $domain = delete $arg->{Domain};
+
+    croak 'IO::Socket: Cannot configure a generic socket'
+	unless defined $domain;
+
+    croak "IO::Socket: Unsupported socket domain"
+	unless defined $domain2pkg[$domain];
+
+    croak "IO::Socket: Cannot configure socket in domain '$domain'"
+	unless ref($sock) eq "IO::Socket";
+
+    bless($sock, $domain2pkg[$domain]);
+    $sock->configure($arg);
+}
+
+sub socket {
+    @_ == 4 or croak 'usage: $sock->socket(DOMAIN, TYPE, PROTOCOL)';
+    my($sock,$domain,$type,$protocol) = @_;
+
+    socket($sock,$domain,$type,$protocol) or
+    	return undef;
+
+    ${*$sock}{'io_socket_domain'} = $domain;
+    ${*$sock}{'io_socket_type'}   = $type;
+    ${*$sock}{'io_socket_proto'}  = $protocol;
+
+    $sock;
+}
+
+sub socketpair {
+    @_ == 4 || croak 'usage: IO::Socket->socketpair(DOMAIN, TYPE, PROTOCOL)';
+    my($class,$domain,$type,$protocol) = @_;
+    my $sock1 = $class->new();
+    my $sock2 = $class->new();
+
+    socketpair($sock1,$sock2,$domain,$type,$protocol) or
+    	return ();
+
+    ${*$sock1}{'io_socket_type'}  = ${*$sock2}{'io_socket_type'}  = $type;
+    ${*$sock1}{'io_socket_proto'} = ${*$sock2}{'io_socket_proto'} = $protocol;
+
+    ($sock1,$sock2);
+}
+
+sub connect {
+    @_ == 2 or croak 'usage: $sock->connect(NAME)';
+    my $sock = shift;
+    my $addr = shift;
+    my $timeout = ${*$sock}{'io_socket_timeout'};
+    my $err;
+    my $blocking;
+
+    $blocking = $sock->blocking(0) if $timeout;
+    if (!connect($sock, $addr)) {
+	if (defined $timeout && ($!{EINPROGRESS} || $!{EWOULDBLOCK})) {
+	    require IO::Select;
+
+	    my $sel = new IO::Select $sock;
+
+	    undef $!;
+	    my($r,$w,$e) = IO::Select::select(undef,$sel,$sel,$timeout);
+	    if(@$e[0]) {
+		# Windows return from select after the timeout in case of
+		# WSAECONNREFUSED(10061) if exception set is not used.
+		# This behavior is different from Linux.
+		# Using the exception
+		# set we now emulate the behavior in Linux
+		#    - Karthik Rajagopalan
+		$err = $sock->getsockopt(SOL_SOCKET,SO_ERROR);
+		$@ = "connect: $err";
+	    }
+	    elsif(!@$w[0]) {
+		$err = $! || (exists &Errno::ETIMEDOUT ? &Errno::ETIMEDOUT : 1);
+		$@ = "connect: timeout";
+	    }
+	    elsif (!connect($sock,$addr) &&
+                not ($!{EISCONN} || ($^O eq 'MSWin32' &&
+                ($! == (($] < 5.019004) ? 10022 : Errno::EINVAL))))
+            ) {
+		# Some systems refuse to re-connect() to
+		# an already open socket and set errno to EISCONN.
+		# Windows sets errno to WSAEINVAL (10022) (pre-5.19.4) or
+		# EINVAL (22) (5.19.4 onwards).
+		$err = $!;
+		$@ = "connect: $!";
+	    }
+	}
+        elsif ($blocking || !($!{EINPROGRESS} || $!{EWOULDBLOCK}))  {
+	    $err = $!;
+	    $@ = "connect: $!";
+	}
+    }
+
+    $sock->blocking(1) if $blocking;
+
+    $! = $err if $err;
+
+    $err ? undef : $sock;
+}
+
+# Enable/disable blocking IO on sockets.
+# Without args return the current status of blocking,
+# with args change the mode as appropriate, returning the
+# old setting, or in case of error during the mode change
+# undef.
+
+sub blocking {
+    my $sock = shift;
+
+    return $sock->SUPER::blocking(@_)
+        if $^O ne 'MSWin32' && $^O ne 'VMS';
+
+    # Windows handles blocking differently
+    #
+    # http://groups.google.co.uk/group/perl.perl5.porters/browse_thread/thread/b4e2b1d88280ddff/630b667a66e3509f?#630b667a66e3509f
+    # http://msdn.microsoft.com/library/default.asp?url=/library/en-us/winsock/winsock/ioctlsocket_2.asp
+    #
+    # 0x8004667e is FIONBIO
+    #
+    # which is used to set blocking behaviour.
+
+    # NOTE: 
+    # This is a little confusing, the perl keyword for this is
+    # 'blocking' but the OS level behaviour is 'non-blocking', probably
+    # because sockets are blocking by default.
+    # Therefore internally we have to reverse the semantics.
+
+    my $orig= !${*$sock}{io_sock_nonblocking};
+        
+    return $orig unless @_;
+
+    my $block = shift;
+    
+    if ( !$block != !$orig ) {
+        ${*$sock}{io_sock_nonblocking} = $block ? 0 : 1;
+        ioctl($sock, 0x8004667e, pack("L!",${*$sock}{io_sock_nonblocking}))
+            or return undef;
+    }
+    
+    return $orig;        
+}
+
+
+sub close {
+    @_ == 1 or croak 'usage: $sock->close()';
+    my $sock = shift;
+    ${*$sock}{'io_socket_peername'} = undef;
+    $sock->SUPER::close();
+}
+
+sub bind {
+    @_ == 2 or croak 'usage: $sock->bind(NAME)';
+    my $sock = shift;
+    my $addr = shift;
+
+    return bind($sock, $addr) ? $sock
+			      : undef;
+}
+
+sub listen {
+    @_ >= 1 && @_ <= 2 or croak 'usage: $sock->listen([QUEUE])';
+    my($sock,$queue) = @_;
+    $queue = 5
+	unless $queue && $queue > 0;
+
+    return listen($sock, $queue) ? $sock
+				 : undef;
+}
+
+sub accept {
+    @_ == 1 || @_ == 2 or croak 'usage $sock->accept([PKG])';
+    my $sock = shift;
+    my $pkg = shift || $sock;
+    my $timeout = ${*$sock}{'io_socket_timeout'};
+    my $new = $pkg->new(Timeout => $timeout);
+    my $peer = undef;
+
+    if(defined $timeout) {
+	require IO::Select;
+
+	my $sel = new IO::Select $sock;
+
+	unless ($sel->can_read($timeout)) {
+	    $@ = 'accept: timeout';
+	    $! = (exists &Errno::ETIMEDOUT ? &Errno::ETIMEDOUT : 1);
+	    return;
+	}
+    }
+
+    $peer = accept($new,$sock)
+	or return;
+
+    ${*$new}{$_} = ${*$sock}{$_} for qw( io_socket_domain io_socket_type io_socket_proto );
+
+    return wantarray ? ($new, $peer)
+    	      	     : $new;
+}
+
+sub sockname {
+    @_ == 1 or croak 'usage: $sock->sockname()';
+    getsockname($_[0]);
+}
+
+sub peername {
+    @_ == 1 or croak 'usage: $sock->peername()';
+    my($sock) = @_;
+    ${*$sock}{'io_socket_peername'} ||= getpeername($sock);
+}
+
+sub connected {
+    @_ == 1 or croak 'usage: $sock->connected()';
+    my($sock) = @_;
+    getpeername($sock);
+}
+
+sub send {
+    @_ >= 2 && @_ <= 4 or croak 'usage: $sock->send(BUF, [FLAGS, [TO]])';
+    my $sock  = $_[0];
+    my $flags = $_[2] || 0;
+    my $peer  = $_[3] || $sock->peername;
+
+    croak 'send: Cannot determine peer address'
+	 unless(defined $peer);
+
+    my $r = defined(getpeername($sock))
+	? send($sock, $_[1], $flags)
+	: send($sock, $_[1], $flags, $peer);
+
+    # remember who we send to, if it was successful
+    ${*$sock}{'io_socket_peername'} = $peer
+	if(@_ == 4 && defined $r);
+
+    $r;
+}
+
+sub recv {
+    @_ == 3 || @_ == 4 or croak 'usage: $sock->recv(BUF, LEN [, FLAGS])';
+    my $sock  = $_[0];
+    my $len   = $_[2];
+    my $flags = $_[3] || 0;
+
+    # remember who we recv'd from
+    ${*$sock}{'io_socket_peername'} = recv($sock, $_[1]='', $len, $flags);
+}
+
+sub shutdown {
+    @_ == 2 or croak 'usage: $sock->shutdown(HOW)';
+    my($sock, $how) = @_;
+    ${*$sock}{'io_socket_peername'} = undef;
+    shutdown($sock, $how);
+}
+
+sub setsockopt {
+    @_ == 4 or croak '$sock->setsockopt(LEVEL, OPTNAME, OPTVAL)';
+    setsockopt($_[0],$_[1],$_[2],$_[3]);
+}
+
+my $intsize = length(pack("i",0));
+
+sub getsockopt {
+    @_ == 3 or croak '$sock->getsockopt(LEVEL, OPTNAME)';
+    my $r = getsockopt($_[0],$_[1],$_[2]);
+    # Just a guess
+    $r = unpack("i", $r)
+	if(defined $r && length($r) == $intsize);
+    $r;
+}
+
+sub sockopt {
+    my $sock = shift;
+    @_ == 1 ? $sock->getsockopt(SOL_SOCKET,@_)
+	    : $sock->setsockopt(SOL_SOCKET,@_);
+}
+
+sub atmark {
+    @_ == 1 or croak 'usage: $sock->atmark()';
+    my($sock) = @_;
+    sockatmark($sock);
+}
+
+sub timeout {
+    @_ == 1 || @_ == 2 or croak 'usage: $sock->timeout([VALUE])';
+    my($sock,$val) = @_;
+    my $r = ${*$sock}{'io_socket_timeout'};
+
+    ${*$sock}{'io_socket_timeout'} = defined $val ? 0 + $val : $val
+	if(@_ == 2);
+
+    $r;
+}
+
+sub sockdomain {
+    @_ == 1 or croak 'usage: $sock->sockdomain()';
+    my $sock = shift;
+    if (!defined(${*$sock}{'io_socket_domain'})) {
+	my $addr = $sock->sockname();
+	${*$sock}{'io_socket_domain'} = sockaddr_family($addr)
+	    if (defined($addr));
+    }
+    ${*$sock}{'io_socket_domain'};
+}
+
+sub socktype {
+    @_ == 1 or croak 'usage: $sock->socktype()';
+    my $sock = shift;
+    ${*$sock}{'io_socket_type'} = $sock->sockopt(Socket::SO_TYPE)
+	if (!defined(${*$sock}{'io_socket_type'}) && defined(eval{Socket::SO_TYPE}));
+    ${*$sock}{'io_socket_type'}
+}
+
+sub protocol {
+    @_ == 1 or croak 'usage: $sock->protocol()';
+    my($sock) = @_;
+    ${*$sock}{'io_socket_proto'} = $sock->sockopt(Socket::SO_PROTOCOL)
+	if (!defined(${*$sock}{'io_socket_proto'}) && defined(eval{Socket::SO_PROTOCOL}));
+    ${*$sock}{'io_socket_proto'};
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+IO::Socket - Object interface to socket communications
+
+=head1 SYNOPSIS
+
+    use IO::Socket;
+
+=head1 DESCRIPTION
+
+C<IO::Socket> provides an object interface to creating and using sockets. It
+is built upon the L<IO::Handle> interface and inherits all the methods defined
+by L<IO::Handle>.
+
+C<IO::Socket> only defines methods for those operations which are common to all
+types of socket. Operations which are specified to a socket in a particular 
+domain have methods defined in sub classes of C<IO::Socket>
+
+C<IO::Socket> will export all functions (and constants) defined by L<Socket>.
+
+=head1 CONSTRUCTOR
+
+=over 4
+
+=item new ( [ARGS] )
+
+Creates an C<IO::Socket>, which is a reference to a
+newly created symbol (see the C<Symbol> package). C<new>
+optionally takes arguments, these arguments are in key-value pairs.
+C<new> only looks for one key C<Domain> which tells new which domain
+the socket will be in. All other arguments will be passed to the
+configuration method of the package for that domain, See below.
+
+ NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE
+
+As of VERSION 1.18 all IO::Socket objects have autoflush turned on
+by default. This was not the case with earlier releases.
+
+ NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE
+
+=back
+
+=head1 METHODS
+
+See L<perlfunc> for complete descriptions of each of the following
+supported C<IO::Socket> methods, which are just front ends for the
+corresponding built-in functions:
+
+    socket
+    socketpair
+    bind
+    listen
+    accept
+    send
+    recv
+    peername (getpeername)
+    sockname (getsockname)
+    shutdown
+
+Some methods take slightly different arguments to those defined in L<perlfunc>
+in attempt to make the interface more flexible. These are
+
+=over 4
+
+=item accept([PKG])
+
+perform the system call C<accept> on the socket and return a new
+object. The new object will be created in the same class as the listen
+socket, unless C<PKG> is specified. This object can be used to
+communicate with the client that was trying to connect.
+
+In a scalar context the new socket is returned, or undef upon
+failure. In a list context a two-element array is returned containing
+the new socket and the peer address; the list will be empty upon
+failure.
+
+The timeout in the [PKG] can be specified as zero to effect a "poll",
+but you shouldn't do that because a new IO::Select object will be
+created behind the scenes just to do the single poll.  This is
+horrendously inefficient.  Use rather true select() with a zero
+timeout on the handle, or non-blocking IO.
+
+=item socketpair(DOMAIN, TYPE, PROTOCOL)
+
+Call C<socketpair> and return a list of two sockets created, or an
+empty list on failure.
+
+=back
+
+Additional methods that are provided are:
+
+=over 4
+
+=item atmark
+
+True if the socket is currently positioned at the urgent data mark,
+false otherwise.
+
+    use IO::Socket;
+
+    my $sock = IO::Socket::INET->new('some_server');
+    $sock->read($data, 1024) until $sock->atmark;
+
+Note: this is a reasonably new addition to the family of socket
+functions, so all systems may not support this yet.  If it is
+unsupported by the system, an attempt to use this method will
+abort the program.
+
+The atmark() functionality is also exportable as sockatmark() function:
+
+	use IO::Socket 'sockatmark';
+
+This allows for a more traditional use of sockatmark() as a procedural
+socket function.  If your system does not support sockatmark(), the
+C<use> declaration will fail at compile time.
+
+=item connected
+
+If the socket is in a connected state, the peer address is returned. If the
+socket is not in a connected state, undef is returned.
+
+Note that connected() considers a half-open TCP socket to be "in a connected
+state".  Specifically, connected() does not distinguish between the
+B<ESTABLISHED> and B<CLOSE-WAIT> TCP states; it returns the peer address,
+rather than undef, in either case.  Thus, in general, connected() cannot
+be used to reliably learn whether the peer has initiated a graceful shutdown
+because in most cases (see below) the local TCP state machine remains in
+B<CLOSE-WAIT> until the local application calls shutdown() or close();
+only at that point does connected() return undef.
+
+The "in most cases" hedge is because local TCP state machine behavior may
+depend on the peer's socket options. In particular, if the peer socket has
+SO_LINGER enabled with a zero timeout, then the peer's close() will generate
+a RST segment, upon receipt of which the local TCP transitions immediately to
+B<CLOSED>, and in that state, connected() I<will> return undef.
+
+=item protocol
+
+Returns the numerical number for the protocol being used on the socket, if
+known. If the protocol is unknown, as with an AF_UNIX socket, zero
+is returned.
+
+=item sockdomain
+
+Returns the numerical number for the socket domain type. For example, for
+an AF_INET socket the value of &AF_INET will be returned.
+
+=item sockopt(OPT [, VAL])
+
+Unified method to both set and get options in the SOL_SOCKET level. If called
+with one argument then getsockopt is called, otherwise setsockopt is called.
+
+=item getsockopt(LEVEL, OPT)
+
+Get option associated with the socket. Other levels than SOL_SOCKET
+may be specified here.
+
+=item setsockopt(LEVEL, OPT, VAL)
+
+Set option associated with the socket. Other levels than SOL_SOCKET
+may be specified here.
+
+=item socktype
+
+Returns the numerical number for the socket type. For example, for
+a SOCK_STREAM socket the value of &SOCK_STREAM will be returned.
+
+=item timeout([VAL])
+
+Set or get the timeout value (in seconds) associated with this socket.
+If called without any arguments then the current setting is returned. If
+called with an argument the current setting is changed and the previous
+value returned.
+
+=back
+
+=head1 LIMITATIONS
+
+On some systems, for an IO::Socket object created with new_from_fd(),
+or created with accept() from such an object, the protocol(),
+sockdomain() and socktype() methods may return undef.
+
+=head1 SEE ALSO
+
+L<Socket>, L<IO::Handle>, L<IO::Socket::INET>, L<IO::Socket::UNIX>
+
+=head1 AUTHOR
+
+Graham Barr.  atmark() by Lincoln Stein.  Currently maintained by the
+Perl Porters.  Please report all bugs to <perlbug@perl.org>.
+
+=head1 COPYRIGHT
+
+Copyright (c) 1997-8 Graham Barr <gbarr@pobox.com>. All rights reserved.
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+The atmark() implementation: Copyright 2001, Lincoln Stein <lstein@cshl.org>.
+This module is distributed under the same terms as Perl itself.
+Feel free to use, modify and redistribute it as long as you retain
+the correct attribution.
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/IO/Socket/INET.pm b/lib/5.24.1/x86_64-linux/IO/Socket/INET.pm
new file mode 100644
index 00000000..7a169473
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/IO/Socket/INET.pm
@@ -0,0 +1,467 @@
+# IO::Socket::INET.pm
+#
+# Copyright (c) 1997-8 Graham Barr <gbarr@pobox.com>. All rights reserved.
+# This program is free software; you can redistribute it and/or
+# modify it under the same terms as Perl itself.
+
+package IO::Socket::INET;
+
+use strict;
+our(@ISA, $VERSION);
+use IO::Socket;
+use Socket;
+use Carp;
+use Exporter;
+use Errno;
+
+@ISA = qw(IO::Socket);
+$VERSION = "1.35";
+
+my $EINVAL = exists(&Errno::EINVAL) ? Errno::EINVAL() : 1;
+
+IO::Socket::INET->register_domain( AF_INET );
+
+my %socket_type = ( tcp  => SOCK_STREAM,
+		    udp  => SOCK_DGRAM,
+		    icmp => SOCK_RAW
+		  );
+my %proto_number;
+$proto_number{tcp}  = Socket::IPPROTO_TCP()  if defined &Socket::IPPROTO_TCP;
+$proto_number{udp}  = Socket::IPPROTO_UDP()  if defined &Socket::IPPROTO_UDP;
+$proto_number{icmp} = Socket::IPPROTO_ICMP() if defined &Socket::IPPROTO_ICMP;
+my %proto_name = reverse %proto_number;
+
+sub new {
+    my $class = shift;
+    unshift(@_, "PeerAddr") if @_ == 1;
+    return $class->SUPER::new(@_);
+}
+
+sub _cache_proto {
+    my @proto = @_;
+    for (map lc($_), $proto[0], split(' ', $proto[1])) {
+	$proto_number{$_} = $proto[2];
+    }
+    $proto_name{$proto[2]} = $proto[0];
+}
+
+sub _get_proto_number {
+    my $name = lc(shift);
+    return undef unless defined $name;
+    return $proto_number{$name} if exists $proto_number{$name};
+
+    my @proto = eval { getprotobyname($name) };
+    return undef unless @proto;
+    _cache_proto(@proto);
+
+    return $proto[2];
+}
+
+sub _get_proto_name {
+    my $num = shift;
+    return undef unless defined $num;
+    return $proto_name{$num} if exists $proto_name{$num};
+
+    my @proto = eval { getprotobynumber($num) };
+    return undef unless @proto;
+    _cache_proto(@proto);
+
+    return $proto[0];
+}
+
+sub _sock_info {
+  my($addr,$port,$proto) = @_;
+  my $origport = $port;
+  my @serv = ();
+
+  $port = $1
+	if(defined $addr && $addr =~ s,:([\w\(\)/]+)$,,);
+
+  if(defined $proto  && $proto =~ /\D/) {
+    my $num = _get_proto_number($proto);
+    unless (defined $num) {
+      $@ = "Bad protocol '$proto'";
+      return;
+    }
+    $proto = $num;
+  }
+
+  if(defined $port) {
+    my $defport = ($port =~ s,\((\d+)\)$,,) ? $1 : undef;
+    my $pnum = ($port =~ m,^(\d+)$,)[0];
+
+    @serv = getservbyname($port, _get_proto_name($proto) || "")
+	if ($port =~ m,\D,);
+
+    $port = $serv[2] || $defport || $pnum;
+    unless (defined $port) {
+	$@ = "Bad service '$origport'";
+	return;
+    }
+
+    $proto = _get_proto_number($serv[3]) if @serv && !$proto;
+  }
+
+ return ($addr || undef,
+	 $port || undef,
+	 $proto || undef
+	);
+}
+
+sub _error {
+    my $sock = shift;
+    my $err = shift;
+    {
+      local($!);
+      my $title = ref($sock).": ";
+      $@ = join("", $_[0] =~ /^$title/ ? "" : $title, @_);
+      $sock->close()
+	if(defined fileno($sock));
+    }
+    $! = $err;
+    return undef;
+}
+
+sub _get_addr {
+    my($sock,$addr_str, $multi) = @_;
+    my @addr;
+    if ($multi && $addr_str !~ /^\d+(?:\.\d+){3}$/) {
+	(undef, undef, undef, undef, @addr) = gethostbyname($addr_str);
+    } else {
+	my $h = inet_aton($addr_str);
+	push(@addr, $h) if defined $h;
+    }
+    @addr;
+}
+
+sub configure {
+    my($sock,$arg) = @_;
+    my($lport,$rport,$laddr,$raddr,$proto,$type);
+
+
+    $arg->{LocalAddr} = $arg->{LocalHost}
+	if exists $arg->{LocalHost} && !exists $arg->{LocalAddr};
+
+    ($laddr,$lport,$proto) = _sock_info($arg->{LocalAddr},
+					$arg->{LocalPort},
+					$arg->{Proto})
+			or return _error($sock, $!, $@);
+
+    $laddr = defined $laddr ? inet_aton($laddr)
+			    : INADDR_ANY;
+
+    return _error($sock, $EINVAL, "Bad hostname '",$arg->{LocalAddr},"'")
+	unless(defined $laddr);
+
+    $arg->{PeerAddr} = $arg->{PeerHost}
+	if exists $arg->{PeerHost} && !exists $arg->{PeerAddr};
+
+    unless(exists $arg->{Listen}) {
+	($raddr,$rport,$proto) = _sock_info($arg->{PeerAddr},
+					    $arg->{PeerPort},
+					    $proto)
+			or return _error($sock, $!, $@);
+    }
+
+    $proto ||= _get_proto_number('tcp');
+
+    $type = $arg->{Type} || $socket_type{lc _get_proto_name($proto)};
+
+    my @raddr = ();
+
+    if(defined $raddr) {
+	@raddr = $sock->_get_addr($raddr, $arg->{MultiHomed});
+	return _error($sock, $EINVAL, "Bad hostname '",$arg->{PeerAddr},"'")
+	    unless @raddr;
+    }
+
+    while(1) {
+
+	$sock->socket(AF_INET, $type, $proto) or
+	    return _error($sock, $!, "$!");
+
+        if (defined $arg->{Blocking}) {
+	    defined $sock->blocking($arg->{Blocking})
+		or return _error($sock, $!, "$!");
+	}
+
+	if ($arg->{Reuse} || $arg->{ReuseAddr}) {
+	    $sock->sockopt(SO_REUSEADDR,1) or
+		    return _error($sock, $!, "$!");
+	}
+
+	if ($arg->{ReusePort}) {
+	    $sock->sockopt(SO_REUSEPORT,1) or
+		    return _error($sock, $!, "$!");
+	}
+
+	if ($arg->{Broadcast}) {
+		$sock->sockopt(SO_BROADCAST,1) or
+		    return _error($sock, $!, "$!");
+	}
+
+	if($lport || ($laddr ne INADDR_ANY) || exists $arg->{Listen}) {
+	    $sock->bind($lport || 0, $laddr) or
+		    return _error($sock, $!, "$!");
+	}
+
+	if(exists $arg->{Listen}) {
+	    $sock->listen($arg->{Listen} || 5) or
+		return _error($sock, $!, "$!");
+	    last;
+	}
+
+ 	# don't try to connect unless we're given a PeerAddr
+ 	last unless exists($arg->{PeerAddr});
+ 
+        $raddr = shift @raddr;
+
+	return _error($sock, $EINVAL, 'Cannot determine remote port')
+		unless($rport || $type == SOCK_DGRAM || $type == SOCK_RAW);
+
+	last
+	    unless($type == SOCK_STREAM || defined $raddr);
+
+	return _error($sock, $EINVAL, "Bad hostname '",$arg->{PeerAddr},"'")
+	    unless defined $raddr;
+
+#        my $timeout = ${*$sock}{'io_socket_timeout'};
+#        my $before = time() if $timeout;
+
+	undef $@;
+        if ($sock->connect(pack_sockaddr_in($rport, $raddr))) {
+#            ${*$sock}{'io_socket_timeout'} = $timeout;
+            return $sock;
+        }
+
+	return _error($sock, $!, $@ || "Timeout")
+	    unless @raddr;
+
+#	if ($timeout) {
+#	    my $new_timeout = $timeout - (time() - $before);
+#	    return _error($sock,
+#                         (exists(&Errno::ETIMEDOUT) ? Errno::ETIMEDOUT() : $EINVAL),
+#                         "Timeout") if $new_timeout <= 0;
+#	    ${*$sock}{'io_socket_timeout'} = $new_timeout;
+#        }
+
+    }
+
+    $sock;
+}
+
+sub connect {
+    @_ == 2 || @_ == 3 or
+       croak 'usage: $sock->connect(NAME) or $sock->connect(PORT, ADDR)';
+    my $sock = shift;
+    return $sock->SUPER::connect(@_ == 1 ? shift : pack_sockaddr_in(@_));
+}
+
+sub bind {
+    @_ == 2 || @_ == 3 or
+       croak 'usage: $sock->bind(NAME) or $sock->bind(PORT, ADDR)';
+    my $sock = shift;
+    return $sock->SUPER::bind(@_ == 1 ? shift : pack_sockaddr_in(@_))
+}
+
+sub sockaddr {
+    @_ == 1 or croak 'usage: $sock->sockaddr()';
+    my($sock) = @_;
+    my $name = $sock->sockname;
+    $name ? (sockaddr_in($name))[1] : undef;
+}
+
+sub sockport {
+    @_ == 1 or croak 'usage: $sock->sockport()';
+    my($sock) = @_;
+    my $name = $sock->sockname;
+    $name ? (sockaddr_in($name))[0] : undef;
+}
+
+sub sockhost {
+    @_ == 1 or croak 'usage: $sock->sockhost()';
+    my($sock) = @_;
+    my $addr = $sock->sockaddr;
+    $addr ? inet_ntoa($addr) : undef;
+}
+
+sub peeraddr {
+    @_ == 1 or croak 'usage: $sock->peeraddr()';
+    my($sock) = @_;
+    my $name = $sock->peername;
+    $name ? (sockaddr_in($name))[1] : undef;
+}
+
+sub peerport {
+    @_ == 1 or croak 'usage: $sock->peerport()';
+    my($sock) = @_;
+    my $name = $sock->peername;
+    $name ? (sockaddr_in($name))[0] : undef;
+}
+
+sub peerhost {
+    @_ == 1 or croak 'usage: $sock->peerhost()';
+    my($sock) = @_;
+    my $addr = $sock->peeraddr;
+    $addr ? inet_ntoa($addr) : undef;
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+IO::Socket::INET - Object interface for AF_INET domain sockets
+
+=head1 SYNOPSIS
+
+    use IO::Socket::INET;
+
+=head1 DESCRIPTION
+
+C<IO::Socket::INET> provides an object interface to creating and using sockets
+in the AF_INET domain. It is built upon the L<IO::Socket> interface and
+inherits all the methods defined by L<IO::Socket>.
+
+=head1 CONSTRUCTOR
+
+=over 4
+
+=item new ( [ARGS] )
+
+Creates an C<IO::Socket::INET> object, which is a reference to a
+newly created symbol (see the C<Symbol> package). C<new>
+optionally takes arguments, these arguments are in key-value pairs.
+
+In addition to the key-value pairs accepted by L<IO::Socket>,
+C<IO::Socket::INET> provides.
+
+
+ PeerAddr    Remote host address          <hostname>[:<port>]
+ PeerHost    Synonym for PeerAddr
+ PeerPort    Remote port or service       <service>[(<no>)] | <no>
+ LocalAddr   Local host bind address      hostname[:port]
+ LocalHost   Synonym for LocalAddr
+ LocalPort   Local host bind port         <service>[(<no>)] | <no>
+ Proto       Protocol name (or number)    "tcp" | "udp" | ...
+ Type        Socket type              SOCK_STREAM | SOCK_DGRAM | ...
+ Listen      Queue size for listen
+ ReuseAddr   Set SO_REUSEADDR before binding
+ Reuse       Set SO_REUSEADDR before binding (deprecated,
+                                              prefer ReuseAddr)
+ ReusePort   Set SO_REUSEPORT before binding
+ Broadcast   Set SO_BROADCAST before binding
+ Timeout     Timeout value for various operations
+ MultiHomed  Try all addresses for multi-homed hosts
+ Blocking    Determine if connection will be blocking mode
+
+If C<Listen> is defined then a listen socket is created, else if the
+socket type, which is derived from the protocol, is SOCK_STREAM then
+connect() is called.  If the C<Listen> argument is given, but false,
+the queue size will be set to 5.
+
+Although it is not illegal, the use of C<MultiHomed> on a socket
+which is in non-blocking mode is of little use. This is because the
+first connect will never fail with a timeout as the connect call
+will not block.
+
+The C<PeerAddr> can be a hostname or the IP-address on the
+"xx.xx.xx.xx" form.  The C<PeerPort> can be a number or a symbolic
+service name.  The service name might be followed by a number in
+parenthesis which is used if the service is not known by the system.
+The C<PeerPort> specification can also be embedded in the C<PeerAddr>
+by preceding it with a ":".
+
+If C<Proto> is not given and you specify a symbolic C<PeerPort> port,
+then the constructor will try to derive C<Proto> from the service
+name.  As a last resort C<Proto> "tcp" is assumed.  The C<Type>
+parameter will be deduced from C<Proto> if not specified.
+
+If the constructor is only passed a single argument, it is assumed to
+be a C<PeerAddr> specification.
+
+If C<Blocking> is set to 0, the connection will be in nonblocking mode.
+If not specified it defaults to 1 (blocking mode).
+
+Examples:
+
+   $sock = IO::Socket::INET->new(PeerAddr => 'www.perl.org',
+                                 PeerPort => 'http(80)',
+                                 Proto    => 'tcp');
+
+   $sock = IO::Socket::INET->new(PeerAddr => 'localhost:smtp(25)');
+
+   $sock = IO::Socket::INET->new(Listen    => 5,
+                                 LocalAddr => 'localhost',
+                                 LocalPort => 9000,
+                                 Proto     => 'tcp');
+
+   $sock = IO::Socket::INET->new('127.0.0.1:25');
+
+   $sock = IO::Socket::INET->new(
+                           PeerPort  => 9999,
+                           PeerAddr  => inet_ntoa(INADDR_BROADCAST),
+                           Proto     => udp,    
+                           LocalAddr => 'localhost',
+                           Broadcast => 1 ) 
+                       or die "Can't bind : $@\n";
+
+ NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE
+
+As of VERSION 1.18 all IO::Socket objects have autoflush turned on
+by default. This was not the case with earlier releases.
+
+ NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE
+
+=back
+
+=head2 METHODS
+
+=over 4
+
+=item sockaddr ()
+
+Return the address part of the sockaddr structure for the socket
+
+=item sockport ()
+
+Return the port number that the socket is using on the local host
+
+=item sockhost ()
+
+Return the address part of the sockaddr structure for the socket in a
+text form xx.xx.xx.xx
+
+=item peeraddr ()
+
+Return the address part of the sockaddr structure for the socket on
+the peer host
+
+=item peerport ()
+
+Return the port number for the socket on the peer host.
+
+=item peerhost ()
+
+Return the address part of the sockaddr structure for the socket on the
+peer host in a text form xx.xx.xx.xx
+
+=back
+
+=head1 SEE ALSO
+
+L<Socket>, L<IO::Socket>
+
+=head1 AUTHOR
+
+Graham Barr. Currently maintained by the Perl Porters.  Please report all
+bugs to <perlbug@perl.org>.
+
+=head1 COPYRIGHT
+
+Copyright (c) 1996-8 Graham Barr <gbarr@pobox.com>. All rights reserved.
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/IO/Socket/UNIX.pm b/lib/5.24.1/x86_64-linux/IO/Socket/UNIX.pm
new file mode 100644
index 00000000..30b8f74e
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/IO/Socket/UNIX.pm
@@ -0,0 +1,159 @@
+# IO::Socket::UNIX.pm
+#
+# Copyright (c) 1997-8 Graham Barr <gbarr@pobox.com>. All rights reserved.
+# This program is free software; you can redistribute it and/or
+# modify it under the same terms as Perl itself.
+
+package IO::Socket::UNIX;
+
+use strict;
+our(@ISA, $VERSION);
+use IO::Socket;
+use Carp;
+
+@ISA = qw(IO::Socket);
+$VERSION = "1.26";
+$VERSION = eval $VERSION;
+
+IO::Socket::UNIX->register_domain( AF_UNIX );
+
+sub new {
+    my $class = shift;
+    unshift(@_, "Peer") if @_ == 1;
+    return $class->SUPER::new(@_);
+}
+
+sub configure {
+    my($sock,$arg) = @_;
+    my($bport,$cport);
+
+    my $type = $arg->{Type} || SOCK_STREAM;
+
+    $sock->socket(AF_UNIX, $type, 0) or
+	return undef;
+
+    if(exists $arg->{Local}) {
+	my $addr = sockaddr_un($arg->{Local});
+	$sock->bind($addr) or
+	    return undef;
+    }
+    if(exists $arg->{Listen} && $type != SOCK_DGRAM) {
+	$sock->listen($arg->{Listen} || 5) or
+	    return undef;
+    }
+    elsif(exists $arg->{Peer}) {
+	my $addr = sockaddr_un($arg->{Peer});
+	$sock->connect($addr) or
+	    return undef;
+    }
+
+    $sock;
+}
+
+sub hostpath {
+    @_ == 1 or croak 'usage: $sock->hostpath()';
+    my $n = $_[0]->sockname || return undef;
+    (sockaddr_un($n))[0];
+}
+
+sub peerpath {
+    @_ == 1 or croak 'usage: $sock->peerpath()';
+    my $n = $_[0]->peername || return undef;
+    (sockaddr_un($n))[0];
+}
+
+1; # Keep require happy
+
+__END__
+
+=head1 NAME
+
+IO::Socket::UNIX - Object interface for AF_UNIX domain sockets
+
+=head1 SYNOPSIS
+
+    use IO::Socket::UNIX;
+
+    my $SOCK_PATH = "$ENV{HOME}/unix-domain-socket-test.sock";
+
+    # Server:
+    my $server = IO::Socket::UNIX->new(
+        Type => SOCK_STREAM(),
+        Local => $SOCK_PATH,
+        Listen => 1,
+    );
+
+    my $count = 1;
+    while (my $conn = $server->accept()) {
+        $conn->print("Hello " . ($count++) . "\n");
+    }
+
+    # Client:
+    my $client = IO::Socket::UNIX->new(
+        Type => SOCK_STREAM(),
+        Peer => $SOCK_PATH,
+    );
+
+    # Now read and write from $client
+
+=head1 DESCRIPTION
+
+C<IO::Socket::UNIX> provides an object interface to creating and using sockets
+in the AF_UNIX domain. It is built upon the L<IO::Socket> interface and
+inherits all the methods defined by L<IO::Socket>.
+
+=head1 CONSTRUCTOR
+
+=over 4
+
+=item new ( [ARGS] )
+
+Creates an C<IO::Socket::UNIX> object, which is a reference to a
+newly created symbol (see the C<Symbol> package). C<new>
+optionally takes arguments, these arguments are in key-value pairs.
+
+In addition to the key-value pairs accepted by L<IO::Socket>,
+C<IO::Socket::UNIX> provides.
+
+    Type    	Type of socket (eg SOCK_STREAM or SOCK_DGRAM)
+    Local   	Path to local fifo
+    Peer    	Path to peer fifo
+    Listen  	Queue size for listen
+
+If the constructor is only passed a single argument, it is assumed to
+be a C<Peer> specification.
+
+If the C<Listen> argument is given, but false, the queue size will be set to 5.
+
+=back
+
+=head1 METHODS
+
+=over 4
+
+=item hostpath()
+
+Returns the pathname to the fifo at the local end
+
+=item peerpath()
+
+Returns the pathanme to the fifo at the peer end
+
+=back
+
+=head1 SEE ALSO
+
+L<Socket>, L<IO::Socket>
+
+=head1 AUTHOR
+
+Graham Barr. Currently maintained by the Perl Porters.  Please report all
+bugs to <perlbug@perl.org>.
+
+=head1 COPYRIGHT
+
+Copyright (c) 1996-8 Graham Barr <gbarr@pobox.com>. All rights reserved.
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/IPC/Msg.pm b/lib/5.24.1/x86_64-linux/IPC/Msg.pm
new file mode 100644
index 00000000..3c561e2c
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/IPC/Msg.pm
@@ -0,0 +1,238 @@
+################################################################################
+#
+#  Version 2.x, Copyright (C) 2007-2013, Marcus Holland-Moritz <mhx@cpan.org>.
+#  Version 1.x, Copyright (C) 1997, Graham Barr <gbarr@pobox.com>.
+#
+#  This program is free software; you can redistribute it and/or
+#  modify it under the same terms as Perl itself.
+#
+################################################################################
+
+package IPC::Msg;
+
+use IPC::SysV qw(IPC_STAT IPC_SET IPC_RMID);
+use strict;
+use vars qw($VERSION);
+use Carp;
+
+$VERSION = '2.06_01';
+
+# Figure out if we have support for native sized types
+my $N = do { my $foo = eval { pack "L!", 0 }; $@ ? '' : '!' };
+
+{
+    package IPC::Msg::stat;
+
+    use Class::Struct qw(struct);
+
+    struct 'IPC::Msg::stat' => [
+	uid	=> '$',
+	gid	=> '$',
+	cuid	=> '$',
+	cgid	=> '$',
+	mode	=> '$',
+	qnum	=> '$',
+	qbytes	=> '$',
+	lspid	=> '$',
+	lrpid	=> '$',
+	stime	=> '$',
+	rtime	=> '$',
+	ctime	=> '$',
+    ];
+}
+
+sub new {
+    @_ == 3 || croak 'new IPC::Msg ( KEY , FLAGS )';
+    my $class = shift;
+
+    my $id = msgget($_[0],$_[1]);
+
+    defined($id)
+	? bless \$id, $class
+	: undef;
+}
+
+sub id {
+    my $self = shift;
+    $$self;
+}
+
+sub stat {
+    my $self = shift;
+    my $data = "";
+    msgctl($$self,IPC_STAT,$data) or
+	return undef;
+    IPC::Msg::stat->new->unpack($data);
+}
+
+sub set {
+    my $self = shift;
+    my $ds;
+
+    if(@_ == 1) {
+	$ds = shift;
+    }
+    else {
+	croak 'Bad arg count' if @_ % 2;
+	my %arg = @_;
+	$ds = $self->stat
+		or return undef;
+	my($key,$val);
+	$ds->$key($val)
+	    while(($key,$val) = each %arg);
+    }
+
+    msgctl($$self,IPC_SET,$ds->pack);
+}
+
+sub remove {
+    my $self = shift;
+    (msgctl($$self,IPC_RMID,0), undef $$self)[0];
+}
+
+sub rcv {
+    @_ <= 5 && @_ >= 3 or croak '$msg->rcv( BUF, LEN, TYPE, FLAGS )';
+    my $self = shift;
+    my $buf = "";
+    msgrcv($$self,$buf,$_[1],$_[2] || 0, $_[3] || 0) or
+	return;
+    my $type;
+    ($type,$_[0]) = unpack("l$N a*",$buf);
+    $type;
+}
+
+sub snd {
+    @_ <= 4 && @_ >= 3 or  croak '$msg->snd( TYPE, BUF, FLAGS )';
+    my $self = shift;
+    msgsnd($$self,pack("l$N a*",$_[0],$_[1]), $_[2] || 0);
+}
+
+
+1;
+
+__END__
+
+=head1 NAME
+
+IPC::Msg - SysV Msg IPC object class
+
+=head1 SYNOPSIS
+
+    use IPC::SysV qw(IPC_PRIVATE S_IRUSR S_IWUSR);
+    use IPC::Msg;
+
+    $msg = IPC::Msg->new(IPC_PRIVATE, S_IRUSR | S_IWUSR);
+
+    $msg->snd($msgtype, $msgdata);
+
+    $msg->rcv($buf, 256);
+
+    $ds = $msg->stat;
+
+    $msg->remove;
+
+=head1 DESCRIPTION
+
+A class providing an object based interface to SysV IPC message queues.
+
+=head1 METHODS
+
+=over 4
+
+=item new ( KEY , FLAGS )
+
+Creates a new message queue associated with C<KEY>. A new queue is
+created if
+
+=over 4
+
+=item *
+
+C<KEY> is equal to C<IPC_PRIVATE>
+
+=item *
+
+C<KEY> does not already have a message queue associated with
+it, and C<I<FLAGS> & IPC_CREAT> is true.
+
+=back
+
+On creation of a new message queue C<FLAGS> is used to set the
+permissions.  Be careful not to set any flags that the Sys V
+IPC implementation does not allow: in some systems setting
+execute bits makes the operations fail.
+
+=item id
+
+Returns the system message queue identifier.
+
+=item rcv ( BUF, LEN [, TYPE [, FLAGS ]] )
+
+Read a message from the queue. Returns the type of the message read.
+See L<msgrcv(2)>.  The BUF becomes tainted.
+
+=item remove
+
+Remove and destroy the message queue from the system.
+
+=item set ( STAT )
+
+=item set ( NAME => VALUE [, NAME => VALUE ...] )
+
+C<set> will set the following values of the C<stat> structure associated
+with the message queue.
+
+    uid
+    gid
+    mode (oly the permission bits)
+    qbytes
+
+C<set> accepts either a stat object, as returned by the C<stat> method,
+or a list of I<name>-I<value> pairs.
+
+=item snd ( TYPE, MSG [, FLAGS ] )
+
+Place a message on the queue with the data from C<MSG> and with type C<TYPE>.
+See L<msgsnd(2)>.
+
+=item stat
+
+Returns an object of type C<IPC::Msg::stat> which is a sub-class of
+C<Class::Struct>. It provides the following fields. For a description
+of these fields see you system documentation.
+
+    uid
+    gid
+    cuid
+    cgid
+    mode
+    qnum
+    qbytes
+    lspid
+    lrpid
+    stime
+    rtime
+    ctime
+
+=back
+
+=head1 SEE ALSO
+
+L<IPC::SysV>, L<Class::Struct>
+
+=head1 AUTHORS
+
+Graham Barr <gbarr@pobox.com>,
+Marcus Holland-Moritz <mhx@cpan.org>
+
+=head1 COPYRIGHT
+
+Version 2.x, Copyright (C) 2007-2013, Marcus Holland-Moritz.
+
+Version 1.x, Copyright (c) 1997, Graham Barr.
+
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+=cut
+
diff --git a/lib/5.24.1/x86_64-linux/IPC/Semaphore.pm b/lib/5.24.1/x86_64-linux/IPC/Semaphore.pm
new file mode 100644
index 00000000..41f3ece0
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/IPC/Semaphore.pm
@@ -0,0 +1,314 @@
+################################################################################
+#
+#  Version 2.x, Copyright (C) 2007-2013, Marcus Holland-Moritz <mhx@cpan.org>.
+#  Version 1.x, Copyright (C) 1997, Graham Barr <gbarr@pobox.com>.
+#
+#  This program is free software; you can redistribute it and/or
+#  modify it under the same terms as Perl itself.
+#
+################################################################################
+
+package IPC::Semaphore;
+
+use IPC::SysV qw(GETNCNT GETZCNT GETVAL SETVAL GETPID GETALL SETALL
+		 IPC_STAT IPC_SET IPC_RMID);
+use strict;
+use vars qw($VERSION);
+use Carp;
+
+$VERSION = '2.06_01';
+
+# Figure out if we have support for native sized types
+my $N = do { my $foo = eval { pack "L!", 0 }; $@ ? '' : '!' };
+
+{
+    package IPC::Semaphore::stat;
+
+    use Class::Struct qw(struct);
+
+    struct 'IPC::Semaphore::stat' => [
+	uid	=> '$',
+	gid	=> '$',
+	cuid	=> '$',
+	cgid	=> '$',
+	mode	=> '$',
+	ctime	=> '$',
+	otime	=> '$',
+	nsems	=> '$',
+    ];
+}
+
+sub new {
+    @_ == 4 || croak 'new ' . __PACKAGE__ . '( KEY, NSEMS, FLAGS )';
+    my $class = shift;
+
+    my $id = semget($_[0],$_[1],$_[2]);
+
+    defined($id)
+	? bless \$id, $class
+	: undef;
+}
+
+sub id {
+    my $self = shift;
+    $$self;
+}
+
+sub remove {
+    my $self = shift;
+    my $result = semctl($$self,0,IPC_RMID,0);
+    undef $$self;
+    $result;
+}
+
+sub getncnt {
+    @_ == 2 || croak '$sem->getncnt( SEM )';
+    my $self = shift;
+    my $sem = shift;
+    my $v = semctl($$self,$sem,GETNCNT,0);
+    $v ? 0 + $v : undef;
+}
+
+sub getzcnt {
+    @_ == 2 || croak '$sem->getzcnt( SEM )';
+    my $self = shift;
+    my $sem = shift;
+    my $v = semctl($$self,$sem,GETZCNT,0);
+    $v ? 0 + $v : undef;
+}
+
+sub getval {
+    @_ == 2 || croak '$sem->getval( SEM )';
+    my $self = shift;
+    my $sem = shift;
+    my $v = semctl($$self,$sem,GETVAL,0);
+    $v ? 0 + $v : undef;
+}
+
+sub getpid {
+    @_ == 2 || croak '$sem->getpid( SEM )';
+    my $self = shift;
+    my $sem = shift;
+    my $v = semctl($$self,$sem,GETPID,0);
+    $v ? 0 + $v : undef;
+}
+
+sub op {
+    @_ >= 4 || croak '$sem->op( OPLIST )';
+    my $self = shift;
+    croak 'Bad arg count' if @_ % 3;
+    my $data = pack("s$N*",@_);
+    semop($$self,$data);
+}
+
+sub stat {
+    my $self = shift;
+    my $data = "";
+    semctl($$self,0,IPC_STAT,$data)
+	or return undef;
+    IPC::Semaphore::stat->new->unpack($data);
+}
+
+sub set {
+    my $self = shift;
+    my $ds;
+
+    if(@_ == 1) {
+	$ds = shift;
+    }
+    else {
+	croak 'Bad arg count' if @_ % 2;
+	my %arg = @_;
+	$ds = $self->stat
+		or return undef;
+	my($key,$val);
+	$ds->$key($val)
+	    while(($key,$val) = each %arg);
+    }
+
+    my $v = semctl($$self,0,IPC_SET,$ds->pack);
+    $v ? 0 + $v : undef;
+}
+
+sub getall {
+    my $self = shift;
+    my $data = "";
+    semctl($$self,0,GETALL,$data)
+	or return ();
+    (unpack("s$N*",$data));
+}
+
+sub setall {
+    my $self = shift;
+    my $data = pack("s$N*",@_);
+    semctl($$self,0,SETALL,$data);
+}
+
+sub setval {
+    @_ == 3 || croak '$sem->setval( SEM, VAL )';
+    my $self = shift;
+    my $sem = shift;
+    my $val = shift;
+    semctl($$self,$sem,SETVAL,$val);
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+IPC::Semaphore - SysV Semaphore IPC object class
+
+=head1 SYNOPSIS
+
+    use IPC::SysV qw(IPC_PRIVATE S_IRUSR S_IWUSR IPC_CREAT);
+    use IPC::Semaphore;
+
+    $sem = IPC::Semaphore->new(IPC_PRIVATE, 10, S_IRUSR | S_IWUSR | IPC_CREAT);
+
+    $sem->setall( (0) x 10);
+
+    @sem = $sem->getall;
+
+    $ncnt = $sem->getncnt;
+
+    $zcnt = $sem->getzcnt;
+
+    $ds = $sem->stat;
+
+    $sem->remove;
+
+=head1 DESCRIPTION
+
+A class providing an object based interface to SysV IPC semaphores.
+
+=head1 METHODS
+
+=over 4
+
+=item new ( KEY , NSEMS , FLAGS )
+
+Create a new semaphore set associated with C<KEY>. C<NSEMS> is the number
+of semaphores in the set. A new set is created if
+
+=over 4
+
+=item *
+
+C<KEY> is equal to C<IPC_PRIVATE>
+
+=item *
+
+C<KEY> does not already have a semaphore identifier
+associated with it, and C<I<FLAGS> & IPC_CREAT> is true.
+
+=back
+
+On creation of a new semaphore set C<FLAGS> is used to set the
+permissions.  Be careful not to set any flags that the Sys V
+IPC implementation does not allow: in some systems setting
+execute bits makes the operations fail.
+
+=item getall
+
+Returns the values of the semaphore set as an array.
+
+=item getncnt ( SEM )
+
+Returns the number of processes waiting for the semaphore C<SEM> to
+become greater than its current value
+
+=item getpid ( SEM )
+
+Returns the process id of the last process that performed an operation
+on the semaphore C<SEM>.
+
+=item getval ( SEM )
+
+Returns the current value of the semaphore C<SEM>.
+
+=item getzcnt ( SEM )
+
+Returns the number of processes waiting for the semaphore C<SEM> to
+become zero.
+
+=item id
+
+Returns the system identifier for the semaphore set.
+
+=item op ( OPLIST )
+
+C<OPLIST> is a list of operations to pass to C<semop>. C<OPLIST> is
+a concatenation of smaller lists, each which has three values. The
+first is the semaphore number, the second is the operation and the last
+is a flags value. See L<semop(2)> for more details. For example
+
+    $sem->op(
+	0, -1, IPC_NOWAIT,
+	1,  1, IPC_NOWAIT
+    );
+
+=item remove
+
+Remove and destroy the semaphore set from the system.
+
+=item set ( STAT )
+
+=item set ( NAME => VALUE [, NAME => VALUE ...] )
+
+C<set> will set the following values of the C<stat> structure associated
+with the semaphore set.
+
+    uid
+    gid
+    mode (only the permission bits)
+
+C<set> accepts either a stat object, as returned by the C<stat> method,
+or a list of I<name>-I<value> pairs.
+
+=item setall ( VALUES )
+
+Sets all values in the semaphore set to those given on the C<VALUES> list.
+C<VALUES> must contain the correct number of values.
+
+=item setval ( N , VALUE )
+
+Set the C<N>th value in the semaphore set to C<VALUE>
+
+=item stat
+
+Returns an object of type C<IPC::Semaphore::stat> which is a sub-class of
+C<Class::Struct>. It provides the following fields. For a description
+of these fields see your system documentation.
+
+    uid
+    gid
+    cuid
+    cgid
+    mode
+    ctime
+    otime
+    nsems
+
+=back
+
+=head1 SEE ALSO
+
+L<IPC::SysV>, L<Class::Struct>, L<semget(2)>, L<semctl(2)>, L<semop(2)>
+
+=head1 AUTHORS
+
+Graham Barr <gbarr@pobox.com>,
+Marcus Holland-Moritz <mhx@cpan.org>
+
+=head1 COPYRIGHT
+
+Version 2.x, Copyright (C) 2007-2013, Marcus Holland-Moritz.
+
+Version 1.x, Copyright (c) 1997, Graham Barr.
+
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/IPC/SharedMem.pm b/lib/5.24.1/x86_64-linux/IPC/SharedMem.pm
new file mode 100644
index 00000000..335ade93
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/IPC/SharedMem.pm
@@ -0,0 +1,271 @@
+################################################################################
+#
+#  Version 2.x, Copyright (C) 2007-2013, Marcus Holland-Moritz <mhx@cpan.org>.
+#  Version 1.x, Copyright (C) 1997, Graham Barr <gbarr@pobox.com>.
+#
+#  This program is free software; you can redistribute it and/or
+#  modify it under the same terms as Perl itself.
+#
+################################################################################
+
+package IPC::SharedMem;
+
+use IPC::SysV qw(IPC_STAT IPC_RMID shmat shmdt memread memwrite);
+use strict;
+use vars qw($VERSION);
+use Carp;
+
+$VERSION = '2.06_01';
+
+# Figure out if we have support for native sized types
+my $N = do { my $foo = eval { pack "L!", 0 }; $@ ? '' : '!' };
+
+{
+    package IPC::SharedMem::stat;
+
+    use Class::Struct qw(struct);
+
+    struct 'IPC::SharedMem::stat' => [
+	uid	=> '$',
+	gid	=> '$',
+	cuid	=> '$',
+	cgid	=> '$',
+	mode	=> '$',
+	segsz	=> '$',
+	lpid	=> '$',
+	cpid	=> '$',
+	nattch	=> '$',
+	atime	=> '$',
+	dtime	=> '$',
+	ctime	=> '$',
+    ];
+}
+
+sub new
+{
+  @_ == 4 or croak 'IPC::SharedMem->new(KEY, SIZE, FLAGS)';
+  my($class, $key, $size, $flags) = @_;
+
+  my $id = shmget $key, $size, $flags;
+
+  return undef unless defined $id;
+
+  bless { _id => $id, _addr => undef, _isrm => 0 }, $class
+}
+
+sub id
+{
+  my $self = shift;
+  $self->{_id};
+}
+
+sub addr
+{
+  my $self = shift;
+  $self->{_addr};
+}
+
+sub stat
+{
+  my $self = shift;
+  my $data = '';
+  shmctl $self->id, IPC_STAT, $data or return undef;
+  IPC::SharedMem::stat->new->unpack($data);
+}
+
+sub attach
+{
+  @_ >= 1 && @_ <= 2 or croak '$shm->attach([FLAG])';
+  my($self, $flag) = @_;
+  defined $self->addr and return undef;
+  $self->{_addr} = shmat($self->id, undef, $flag || 0);
+  defined $self->addr;
+}
+
+sub detach
+{
+  my $self = shift;
+  defined $self->addr or return undef;
+  my $rv = defined shmdt($self->addr);
+  undef $self->{_addr} if $rv;
+  $rv;
+}
+
+sub remove
+{
+  my $self = shift;
+  return undef if $self->is_removed;
+  my $rv = shmctl $self->id, IPC_RMID, 0;
+  $self->{_isrm} = 1 if $rv;
+  return $rv;
+}
+
+sub is_removed
+{
+  my $self = shift;
+  $self->{_isrm};
+}
+
+sub read
+{
+  @_ == 3 or croak '$shm->read(POS, SIZE)';
+  my($self, $pos, $size) = @_;
+  my $buf = '';
+  if (defined $self->addr) {
+    memread($self->addr, $buf, $pos, $size) or return undef;
+  }
+  else {
+    shmread($self->id, $buf, $pos, $size) or return undef;
+  }
+  $buf;
+}
+
+sub write
+{
+  @_ == 4 or croak '$shm->write(STRING, POS, SIZE)';
+  my($self, $str, $pos, $size) = @_;
+  if (defined $self->addr) {
+    return memwrite($self->addr, $str, $pos, $size);
+  }
+  else {
+    return shmwrite($self->id, $str, $pos, $size);
+  }
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+IPC::SharedMem - SysV Shared Memory IPC object class
+
+=head1 SYNOPSIS
+
+    use IPC::SysV qw(IPC_PRIVATE S_IRUSR S_IWUSR);
+    use IPC::SharedMem;
+
+    $shm = IPC::SharedMem->new(IPC_PRIVATE, 8, S_IRWXU);
+
+    $shm->write(pack("S", 4711), 2, 2);
+
+    $data = $shm->read(0, 2);
+
+    $ds = $shm->stat;
+
+    $shm->remove;
+
+=head1 DESCRIPTION
+
+A class providing an object based interface to SysV IPC shared memory.
+
+=head1 METHODS
+
+=over 4
+
+=item new ( KEY , SIZE , FLAGS )
+
+Creates a new shared memory segment of C<SIZE> bytes size associated
+with C<KEY>. A new segment is created if
+
+=over 4
+
+=item *
+
+C<KEY> is equal to C<IPC_PRIVATE>
+
+=item *
+
+C<KEY> does not already have a shared memory segment associated
+with it, and C<I<FLAGS> & IPC_CREAT> is true.
+
+=back
+
+On creation of a new shared memory segment C<FLAGS> is used to
+set the permissions.  Be careful not to set any flags that the
+Sys V IPC implementation does not allow: in some systems setting
+execute bits makes the operations fail.
+
+=item id
+
+Returns the shared memory identifier.
+
+=item read ( POS, SIZE )
+
+Read C<SIZE> bytes from the shared memory segment at C<POS>. Returns
+the string read, or C<undef> if there was an error. The return value
+becomes tainted. See L<shmread>.
+
+=item write ( STRING, POS, SIZE )
+
+Write C<SIZE> bytes to the shared memory segment at C<POS>. Returns
+true if successful, or false if there is an error. See L<shmwrite>.
+
+=item remove
+
+Remove the shared memory segment from the system or mark it as
+removed as long as any processes are still attached to it.
+
+=item is_removed
+
+Returns true if the shared memory segment has been removed or
+marked for removal.
+
+=item stat
+
+Returns an object of type C<IPC::SharedMem::stat> which is a sub-class
+of C<Class::Struct>. It provides the following fields. For a description
+of these fields see you system documentation.
+
+    uid
+    gid
+    cuid
+    cgid
+    mode
+    segsz
+    lpid
+    cpid
+    nattch
+    atime
+    dtime
+    ctime
+
+=item attach ( [FLAG] )
+
+Permanently attach to the shared memory segment. When a C<IPC::SharedMem>
+object is attached, it will use L<memread> and L<memwrite> instead of
+L<shmread> and L<shmwrite> for accessing the shared memory segment.
+Returns true if successful, or false on error. See L<shmat(2)>.
+
+=item detach
+
+Detach from the shared memory segment that previously has been attached
+to. Returns true if successful, or false on error. See L<shmdt(2)>.
+
+=item addr
+
+Returns the address of the shared memory that has been attached to in a
+format suitable for use with C<pack('P')>. Returns C<undef> if the shared
+memory has not been attached.
+
+=back
+
+=head1 SEE ALSO
+
+L<IPC::SysV>, L<Class::Struct>
+
+=head1 AUTHORS
+
+Marcus Holland-Moritz <mhx@cpan.org>
+
+=head1 COPYRIGHT
+
+Version 2.x, Copyright (C) 2007-2013, Marcus Holland-Moritz.
+
+Version 1.x, Copyright (c) 1997, Graham Barr.
+
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+=cut
+
diff --git a/lib/5.24.1/x86_64-linux/IPC/SysV.pm b/lib/5.24.1/x86_64-linux/IPC/SysV.pm
new file mode 100644
index 00000000..e99f10f3
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/IPC/SysV.pm
@@ -0,0 +1,184 @@
+################################################################################
+#
+#  Version 2.x, Copyright (C) 2007-2013, Marcus Holland-Moritz <mhx@cpan.org>.
+#  Version 1.x, Copyright (C) 1997, Graham Barr <gbarr@pobox.com>.
+#
+#  This program is free software; you can redistribute it and/or
+#  modify it under the same terms as Perl itself.
+#
+################################################################################
+
+package IPC::SysV;
+
+use strict;
+use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $VERSION $AUTOLOAD);
+use Carp;
+use Config;
+
+require Exporter;
+@ISA = qw(Exporter);
+
+$VERSION = '2.06_01';
+
+# To support new constants, just add them to @EXPORT_OK
+# and the C/XS code will be generated automagically.
+@EXPORT_OK = (qw(
+
+  GETALL GETNCNT GETPID GETVAL GETZCNT
+
+  IPC_ALLOC IPC_CREAT IPC_EXCL IPC_GETACL IPC_INFO IPC_LOCKED
+  IPC_M IPC_NOERROR IPC_NOWAIT IPC_PRIVATE IPC_R IPC_RMID
+  IPC_SET IPC_SETACL IPC_SETLABEL IPC_STAT IPC_W IPC_WANTED
+
+  MSG_EXCEPT MSG_FWAIT MSG_INFO MSG_LOCKED MSG_MWAIT MSG_NOERROR
+  MSG_QWAIT MSG_R MSG_RWAIT MSG_STAT MSG_W MSG_WAIT MSG_WWAIT
+
+  SEM_A SEM_ALLOC SEM_DEST SEM_ERR SEM_INFO SEM_ORDER SEM_R
+  SEM_STAT SEM_UNDO
+
+  SETALL SETVAL
+
+  SHMLBA
+
+  SHM_A SHM_CLEAR SHM_COPY SHM_DCACHE SHM_DEST SHM_ECACHE
+  SHM_FMAP SHM_HUGETLB SHM_ICACHE SHM_INFO SHM_INIT SHM_LOCK
+  SHM_LOCKED SHM_MAP SHM_NORESERVE SHM_NOSWAP SHM_R SHM_RDONLY
+  SHM_REMAP SHM_REMOVED SHM_RND SHM_SHARE_MMU SHM_SHATTR
+  SHM_SIZE SHM_STAT SHM_UNLOCK SHM_W
+
+  S_IRUSR S_IWUSR S_IXUSR S_IRWXU
+  S_IRGRP S_IWGRP S_IXGRP S_IRWXG
+  S_IROTH S_IWOTH S_IXOTH S_IRWXO
+
+  ENOSPC ENOSYS ENOMEM EACCES
+
+), qw(
+
+  ftok shmat shmdt memread memwrite
+
+));
+
+%EXPORT_TAGS = (
+  all => [@EXPORT, @EXPORT_OK],
+);
+
+sub AUTOLOAD
+{
+  my $constname = $AUTOLOAD;
+  $constname =~ s/.*:://;
+  die "&IPC::SysV::_constant not defined" if $constname eq '_constant';
+  my ($error, $val) = _constant($constname);
+  if ($error) {
+    my (undef, $file, $line) = caller;
+    die "$error at $file line $line.\n";
+  }
+  {
+    no strict 'refs';
+    *$AUTOLOAD = sub { $val };
+  }
+  goto &$AUTOLOAD;
+}
+
+BOOT_XS: {
+  # If I inherit DynaLoader then I inherit AutoLoader and I DON'T WANT TO
+  require DynaLoader;
+
+  # DynaLoader calls dl_load_flags as a static method.
+  *dl_load_flags = DynaLoader->can('dl_load_flags');
+
+  do {
+    __PACKAGE__->can('bootstrap') || \&DynaLoader::bootstrap
+  }->(__PACKAGE__, $VERSION);
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+IPC::SysV - System V IPC constants and system calls
+
+=head1 SYNOPSIS
+
+  use IPC::SysV qw(IPC_STAT IPC_PRIVATE);
+
+=head1 DESCRIPTION
+
+C<IPC::SysV> defines and conditionally exports all the constants
+defined in your system include files which are needed by the SysV
+IPC calls.  Common ones include
+
+  IPC_CREAT IPC_EXCL IPC_NOWAIT IPC_PRIVATE IPC_RMID IPC_SET IPC_STAT
+  GETVAL SETVAL GETPID GETNCNT GETZCNT GETALL SETALL
+  SEM_A SEM_R SEM_UNDO
+  SHM_RDONLY SHM_RND SHMLBA
+
+and auxiliary ones
+
+  S_IRUSR S_IWUSR S_IRWXU
+  S_IRGRP S_IWGRP S_IRWXG
+  S_IROTH S_IWOTH S_IRWXO
+
+but your system might have more.
+
+=over 4
+
+=item ftok( PATH )
+
+=item ftok( PATH, ID )
+
+Return a key based on PATH and ID, which can be used as a key for
+C<msgget>, C<semget> and C<shmget>. See L<ftok(3)>.
+
+If ID is omitted, it defaults to C<1>. If a single character is
+given for ID, the numeric value of that character is used.
+
+=item shmat( ID, ADDR, FLAG )
+
+Attach the shared memory segment identified by ID to the address
+space of the calling process. See L<shmat(2)>.
+
+ADDR should be C<undef> unless you really know what you're doing.
+
+=item shmdt( ADDR )
+
+Detach the shared memory segment located at the address specified
+by ADDR from the address space of the calling process. See L<shmdt(2)>.
+
+=item memread( ADDR, VAR, POS, SIZE )
+
+Reads SIZE bytes from a memory segment at ADDR starting at position POS.
+VAR must be a variable that will hold the data read. Returns true if
+successful, or false if there is an error. memread() taints the variable.
+
+=item memwrite( ADDR, STRING, POS, SIZE )
+
+Writes SIZE bytes from STRING to a memory segment at ADDR starting at
+position POS. If STRING is too long, only SIZE bytes are used; if STRING
+is too short, nulls are written to fill out SIZE bytes. Returns true if
+successful, or false if there is an error.
+
+=back
+
+=head1 SEE ALSO
+
+L<IPC::Msg>, L<IPC::Semaphore>, L<IPC::SharedMem>, L<ftok(3)>, L<shmat(2)>, L<shmdt(2)>
+
+=head1 AUTHORS
+
+Graham Barr <gbarr@pobox.com>,
+Jarkko Hietaniemi <jhi@iki.fi>,
+Marcus Holland-Moritz <mhx@cpan.org>
+
+=head1 COPYRIGHT
+
+Version 2.x, Copyright (C) 2007-2013, Marcus Holland-Moritz.
+
+Version 1.x, Copyright (c) 1997, Graham Barr.
+
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+=cut
+
diff --git a/lib/5.24.1/x86_64-linux/List/Util.pm b/lib/5.24.1/x86_64-linux/List/Util.pm
new file mode 100644
index 00000000..75866aa6
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/List/Util.pm
@@ -0,0 +1,530 @@
+# Copyright (c) 1997-2009 Graham Barr <gbarr@pobox.com>. All rights reserved.
+# This program is free software; you can redistribute it and/or
+# modify it under the same terms as Perl itself.
+#
+# Maintained since 2013 by Paul Evans <leonerd@leonerd.org.uk>
+
+package List::Util;
+
+use strict;
+require Exporter;
+
+our @ISA        = qw(Exporter);
+our @EXPORT_OK  = qw(
+  all any first min max minstr maxstr none notall product reduce sum sum0 shuffle
+  pairs unpairs pairkeys pairvalues pairmap pairgrep pairfirst
+);
+our $VERSION    = "1.42_02";
+our $XS_VERSION = $VERSION;
+$VERSION    = eval $VERSION;
+
+require XSLoader;
+XSLoader::load('List::Util', $XS_VERSION);
+
+sub import
+{
+  my $pkg = caller;
+
+  # (RT88848) Touch the caller's $a and $b, to avoid the warning of
+  #   Name "main::a" used only once: possible typo" warning
+  no strict 'refs';
+  ${"${pkg}::a"} = ${"${pkg}::a"};
+  ${"${pkg}::b"} = ${"${pkg}::b"};
+
+  goto &Exporter::import;
+}
+
+# For objects returned by pairs()
+sub List::Util::_Pair::key   { shift->[0] }
+sub List::Util::_Pair::value { shift->[1] }
+
+1;
+
+__END__
+
+=head1 NAME
+
+List::Util - A selection of general-utility list subroutines
+
+=head1 SYNOPSIS
+
+    use List::Util qw(first max maxstr min minstr reduce shuffle sum);
+
+=head1 DESCRIPTION
+
+C<List::Util> contains a selection of subroutines that people have expressed
+would be nice to have in the perl core, but the usage would not really be high
+enough to warrant the use of a keyword, and the size so small such that being
+individual extensions would be wasteful.
+
+By default C<List::Util> does not export any subroutines.
+
+=cut
+
+=head1 LIST-REDUCTION FUNCTIONS
+
+The following set of functions all reduce a list down to a single value.
+
+=cut
+
+=head2 $result = reduce { BLOCK } @list
+
+Reduces C<@list> by calling C<BLOCK> in a scalar context multiple times,
+setting C<$a> and C<$b> each time. The first call will be with C<$a> and C<$b>
+set to the first two elements of the list, subsequent calls will be done by
+setting C<$a> to the result of the previous call and C<$b> to the next element
+in the list.
+
+Returns the result of the last call to the C<BLOCK>. If C<@list> is empty then
+C<undef> is returned. If C<@list> only contains one element then that element
+is returned and C<BLOCK> is not executed.
+
+The following examples all demonstrate how C<reduce> could be used to implement
+the other list-reduction functions in this module. (They are not in fact
+implemented like this, but instead in a more efficient manner in individual C
+functions).
+
+    $foo = reduce { defined($a)            ? $a :
+                    $code->(local $_ = $b) ? $b :
+                                             undef } undef, @list # first
+
+    $foo = reduce { $a > $b ? $a : $b } 1..10       # max
+    $foo = reduce { $a gt $b ? $a : $b } 'A'..'Z'   # maxstr
+    $foo = reduce { $a < $b ? $a : $b } 1..10       # min
+    $foo = reduce { $a lt $b ? $a : $b } 'aa'..'zz' # minstr
+    $foo = reduce { $a + $b } 1 .. 10               # sum
+    $foo = reduce { $a . $b } @bar                  # concat
+
+    $foo = reduce { $a || $code->(local $_ = $b) } 0, @bar   # any
+    $foo = reduce { $a && $code->(local $_ = $b) } 1, @bar   # all
+    $foo = reduce { $a && !$code->(local $_ = $b) } 1, @bar  # none
+    $foo = reduce { $a || !$code->(local $_ = $b) } 0, @bar  # notall
+       # Note that these implementations do not fully short-circuit
+
+If your algorithm requires that C<reduce> produce an identity value, then make
+sure that you always pass that identity value as the first argument to prevent
+C<undef> being returned
+
+  $foo = reduce { $a + $b } 0, @values;             # sum with 0 identity value
+
+The remaining list-reduction functions are all specialisations of this generic
+idea.
+
+=head2 any
+
+    my $bool = any { BLOCK } @list;
+
+I<Since version 1.33.>
+
+Similar to C<grep> in that it evaluates C<BLOCK> setting C<$_> to each element
+of C<@list> in turn. C<any> returns true if any element makes the C<BLOCK>
+return a true value. If C<BLOCK> never returns true or C<@list> was empty then
+it returns false.
+
+Many cases of using C<grep> in a conditional can be written using C<any>
+instead, as it can short-circuit after the first true result.
+
+    if( any { length > 10 } @strings ) {
+        # at least one string has more than 10 characters
+    }
+
+=head2 all
+
+    my $bool = all { BLOCK } @list;
+
+I<Since version 1.33.>
+
+Similar to L</any>, except that it requires all elements of the C<@list> to
+make the C<BLOCK> return true. If any element returns false, then it returns
+false. If the C<BLOCK> never returns false or the C<@list> was empty then it
+returns true.
+
+=head2 none
+
+=head2 notall
+
+    my $bool = none { BLOCK } @list;
+
+    my $bool = notall { BLOCK } @list;
+
+I<Since version 1.33.>
+
+Similar to L</any> and L</all>, but with the return sense inverted. C<none>
+returns true only if no value in the C<@list> causes the C<BLOCK> to return
+true, and C<notall> returns true only if not all of the values do.
+
+=head2 first
+
+    my $val = first { BLOCK } @list;
+
+Similar to C<grep> in that it evaluates C<BLOCK> setting C<$_> to each element
+of C<@list> in turn. C<first> returns the first element where the result from
+C<BLOCK> is a true value. If C<BLOCK> never returns true or C<@list> was empty
+then C<undef> is returned.
+
+    $foo = first { defined($_) } @list    # first defined value in @list
+    $foo = first { $_ > $value } @list    # first value in @list which
+                                          # is greater than $value
+
+=head2 max
+
+    my $num = max @list;
+
+Returns the entry in the list with the highest numerical value. If the list is
+empty then C<undef> is returned.
+
+    $foo = max 1..10                # 10
+    $foo = max 3,9,12               # 12
+    $foo = max @bar, @baz           # whatever
+
+=head2 maxstr
+
+    my $str = maxstr @list;
+
+Similar to L</max>, but treats all the entries in the list as strings and
+returns the highest string as defined by the C<gt> operator. If the list is
+empty then C<undef> is returned.
+
+    $foo = maxstr 'A'..'Z'          # 'Z'
+    $foo = maxstr "hello","world"   # "world"
+    $foo = maxstr @bar, @baz        # whatever
+
+=head2 min
+
+    my $num = min @list;
+
+Similar to L</max> but returns the entry in the list with the lowest numerical
+value. If the list is empty then C<undef> is returned.
+
+    $foo = min 1..10                # 1
+    $foo = min 3,9,12               # 3
+    $foo = min @bar, @baz           # whatever
+
+=head2 minstr
+
+    my $str = minstr @list;
+
+Similar to L</min>, but treats all the entries in the list as strings and
+returns the lowest string as defined by the C<lt> operator. If the list is
+empty then C<undef> is returned.
+
+    $foo = minstr 'A'..'Z'          # 'A'
+    $foo = minstr "hello","world"   # "hello"
+    $foo = minstr @bar, @baz        # whatever
+
+=head2 product
+
+    my $num = product @list;
+
+I<Since version 1.35.>
+
+Returns the numerical product of all the elements in C<@list>. If C<@list> is
+empty then C<1> is returned.
+
+    $foo = product 1..10            # 3628800
+    $foo = product 3,9,12           # 324
+
+=head2 sum
+
+    my $num_or_undef = sum @list;
+
+Returns the numerical sum of all the elements in C<@list>. For backwards
+compatibility, if C<@list> is empty then C<undef> is returned.
+
+    $foo = sum 1..10                # 55
+    $foo = sum 3,9,12               # 24
+    $foo = sum @bar, @baz           # whatever
+
+=head2 sum0
+
+    my $num = sum0 @list;
+
+I<Since version 1.26.>
+
+Similar to L</sum>, except this returns 0 when given an empty list, rather
+than C<undef>.
+
+=cut
+
+=head1 KEY/VALUE PAIR LIST FUNCTIONS
+
+The following set of functions, all inspired by L<List::Pairwise>, consume an
+even-sized list of pairs. The pairs may be key/value associations from a hash,
+or just a list of values. The functions will all preserve the original ordering
+of the pairs, and will not be confused by multiple pairs having the same "key"
+value - nor even do they require that the first of each pair be a plain string.
+
+B<NOTE>: At the time of writing, the following C<pair*> functions that take a
+block do not modify the value of C<$_> within the block, and instead operate
+using the C<$a> and C<$b> globals instead. This has turned out to be a poor
+design, as it precludes the ability to provide a C<pairsort> function. Better
+would be to pass pair-like objects as 2-element array references in C<$_>, in
+a style similar to the return value of the C<pairs> function. At some future
+version this behaviour may be added.
+
+Until then, users are alerted B<NOT> to rely on the value of C<$_> remaining
+unmodified between the outside and the inside of the control block. In
+particular, the following example is B<UNSAFE>:
+
+ my @kvlist = ...
+
+ foreach (qw( some keys here )) {
+    my @items = pairgrep { $a eq $_ } @kvlist;
+    ...
+ }
+
+Instead, write this using a lexical variable:
+
+ foreach my $key (qw( some keys here )) {
+    my @items = pairgrep { $a eq $key } @kvlist;
+    ...
+ }
+
+=cut
+
+=head2 pairs
+
+    my @pairs = pairs @kvlist;
+
+I<Since version 1.29.>
+
+A convenient shortcut to operating on even-sized lists of pairs, this function
+returns a list of ARRAY references, each containing two items from the given
+list. It is a more efficient version of
+
+    @pairs = pairmap { [ $a, $b ] } @kvlist
+
+It is most convenient to use in a C<foreach> loop, for example:
+
+    foreach my $pair ( pairs @KVLIST ) {
+       my ( $key, $value ) = @$pair;
+       ...
+    }
+
+Since version C<1.39> these ARRAY references are blessed objects, recognising
+the two methods C<key> and C<value>. The following code is equivalent:
+
+    foreach my $pair ( pairs @KVLIST ) {
+       my $key   = $pair->key;
+       my $value = $pair->value;
+       ...
+    }
+
+=head2 unpairs
+
+    my @kvlist = unpairs @pairs
+
+I<Since version 1.42.>
+
+The inverse function to C<pairs>; this function takes a list of ARRAY
+references containing two elements each, and returns a flattened list of the
+two values from each of the pairs, in order. This is notionally equivalent to
+
+    my @kvlist = map { @{$_}[0,1] } @pairs
+
+except that it is implemented more efficiently internally. Specifically, for
+any input item it will extract exactly two values for the output list; using
+C<undef> if the input array references are short.
+
+Between C<pairs> and C<unpairs>, a higher-order list function can be used to
+operate on the pairs as single scalars; such as the following near-equivalents
+of the other C<pair*> higher-order functions:
+
+    @kvlist = unpairs grep { FUNC } pairs @kvlist
+    # Like pairgrep, but takes $_ instead of $a and $b
+
+    @kvlist = unpairs map { FUNC } pairs @kvlist
+    # Like pairmap, but takes $_ instead of $a and $b
+
+Note however that these versions will not behave as nicely in scalar context.
+
+Finally, this technique can be used to implement a sort on a keyvalue pair
+list; e.g.:
+
+    @kvlist = unpairs sort { $a->key cmp $b->key } pairs @kvlist
+
+=head2 pairkeys
+
+    my @keys = pairkeys @kvlist;
+
+I<Since version 1.29.>
+
+A convenient shortcut to operating on even-sized lists of pairs, this function
+returns a list of the the first values of each of the pairs in the given list.
+It is a more efficient version of
+
+    @keys = pairmap { $a } @kvlist
+
+=head2 pairvalues
+
+    my @values = pairvalues @kvlist;
+
+I<Since version 1.29.>
+
+A convenient shortcut to operating on even-sized lists of pairs, this function
+returns a list of the the second values of each of the pairs in the given list.
+It is a more efficient version of
+
+    @values = pairmap { $b } @kvlist
+
+=head2 pairgrep
+
+    my @kvlist = pairgrep { BLOCK } @kvlist;
+
+    my $count = pairgrep { BLOCK } @kvlist;
+
+I<Since version 1.29.>
+
+Similar to perl's C<grep> keyword, but interprets the given list as an
+even-sized list of pairs. It invokes the C<BLOCK> multiple times, in scalar
+context, with C<$a> and C<$b> set to successive pairs of values from the
+C<@kvlist>.
+
+Returns an even-sized list of those pairs for which the C<BLOCK> returned true
+in list context, or the count of the B<number of pairs> in scalar context.
+(Note, therefore, in scalar context that it returns a number half the size of
+the count of items it would have returned in list context).
+
+    @subset = pairgrep { $a =~ m/^[[:upper:]]+$/ } @kvlist
+
+As with C<grep> aliasing C<$_> to list elements, C<pairgrep> aliases C<$a> and
+C<$b> to elements of the given list. Any modifications of it by the code block
+will be visible to the caller.
+
+=head2 pairfirst
+
+    my ( $key, $val ) = pairfirst { BLOCK } @kvlist;
+
+    my $found = pairfirst { BLOCK } @kvlist;
+
+I<Since version 1.30.>
+
+Similar to the L</first> function, but interprets the given list as an
+even-sized list of pairs. It invokes the C<BLOCK> multiple times, in scalar
+context, with C<$a> and C<$b> set to successive pairs of values from the
+C<@kvlist>.
+
+Returns the first pair of values from the list for which the C<BLOCK> returned
+true in list context, or an empty list of no such pair was found. In scalar
+context it returns a simple boolean value, rather than either the key or the
+value found.
+
+    ( $key, $value ) = pairfirst { $a =~ m/^[[:upper:]]+$/ } @kvlist
+
+As with C<grep> aliasing C<$_> to list elements, C<pairfirst> aliases C<$a> and
+C<$b> to elements of the given list. Any modifications of it by the code block
+will be visible to the caller.
+
+=head2 pairmap
+
+    my @list = pairmap { BLOCK } @kvlist;
+
+    my $count = pairmap { BLOCK } @kvlist;
+
+I<Since version 1.29.>
+
+Similar to perl's C<map> keyword, but interprets the given list as an
+even-sized list of pairs. It invokes the C<BLOCK> multiple times, in list
+context, with C<$a> and C<$b> set to successive pairs of values from the
+C<@kvlist>.
+
+Returns the concatenation of all the values returned by the C<BLOCK> in list
+context, or the count of the number of items that would have been returned in
+scalar context.
+
+    @result = pairmap { "The key $a has value $b" } @kvlist
+
+As with C<map> aliasing C<$_> to list elements, C<pairmap> aliases C<$a> and
+C<$b> to elements of the given list. Any modifications of it by the code block
+will be visible to the caller.
+
+See L</KNOWN BUGS> for a known-bug with C<pairmap>, and a workaround.
+
+=cut
+
+=head1 OTHER FUNCTIONS
+
+=cut
+
+=head2 shuffle
+
+    my @values = shuffle @values;
+
+Returns the values of the input in a random order
+
+    @cards = shuffle 0..51      # 0..51 in a random order
+
+=cut
+
+=head1 KNOWN BUGS
+
+=head2 RT #95409
+
+L<https://rt.cpan.org/Ticket/Display.html?id=95409>
+
+If the block of code given to L</pairmap> contains lexical variables that are
+captured by a returned closure, and the closure is executed after the block
+has been re-used for the next iteration, these lexicals will not see the
+correct values. For example:
+
+ my @subs = pairmap {
+    my $var = "$a is $b";
+    sub { print "$var\n" };
+ } one => 1, two => 2, three => 3;
+
+ $_->() for @subs;
+
+Will incorrectly print
+
+ three is 3
+ three is 3
+ three is 3
+
+This is due to the performance optimisation of using C<MULTICALL> for the code
+block, which means that fresh SVs do not get allocated for each call to the
+block. Instead, the same SV is re-assigned for each iteration, and all the
+closures will share the value seen on the final iteration.
+
+To work around this bug, surround the code with a second set of braces. This
+creates an inner block that defeats the C<MULTICALL> logic, and does get fresh
+SVs allocated each time:
+
+ my @subs = pairmap {
+    {
+       my $var = "$a is $b";
+       sub { print "$var\n"; }
+    }
+ } one => 1, two => 2, three => 3;
+
+This bug only affects closures that are generated by the block but used
+afterwards. Lexical variables that are only used during the lifetime of the
+block's execution will take their individual values for each invocation, as
+normal.
+
+=head1 SUGGESTED ADDITIONS
+
+The following are additions that have been requested, but I have been reluctant
+to add due to them being very simple to implement in perl
+
+  # How many elements are true
+
+  sub true { scalar grep { $_ } @_ }
+
+  # How many elements are false
+
+  sub false { scalar grep { !$_ } @_ }
+
+=head1 SEE ALSO
+
+L<Scalar::Util>, L<List::MoreUtils>
+
+=head1 COPYRIGHT
+
+Copyright (c) 1997-2007 Graham Barr <gbarr@pobox.com>. All rights reserved.
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+Recent additions and current maintenance by
+Paul Evans, <leonerd@leonerd.org.uk>.
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/List/Util/XS.pm b/lib/5.24.1/x86_64-linux/List/Util/XS.pm
new file mode 100644
index 00000000..fca0738e
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/List/Util/XS.pm
@@ -0,0 +1,41 @@
+package List::Util::XS;
+use strict;
+use List::Util;
+
+our $VERSION = "1.42_02";       # FIXUP
+$VERSION = eval $VERSION;    # FIXUP
+
+1;
+__END__
+
+=head1 NAME
+
+List::Util::XS - Indicate if List::Util was compiled with a C compiler
+
+=head1 SYNOPSIS
+
+    use List::Util::XS 1.20;
+
+=head1 DESCRIPTION
+
+C<List::Util::XS> can be used as a dependency to ensure List::Util was
+installed using a C compiler and that the XS version is installed.
+
+During installation C<$List::Util::XS::VERSION> will be set to
+C<undef> if the XS was not compiled.
+
+Starting with release 1.23_03, Scalar-List-Util is B<always> using
+the XS implementation, but for backwards compatibility, we still
+ship the C<List::Util::XS> module which just loads C<List::Util>.
+
+=head1 SEE ALSO
+
+L<Scalar::Util>, L<List::Util>, L<List::MoreUtils>
+
+=head1 COPYRIGHT
+
+Copyright (c) 2008 Graham Barr <gbarr@pobox.com>. All rights reserved.
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/MIME/Base64.pm b/lib/5.24.1/x86_64-linux/MIME/Base64.pm
new file mode 100644
index 00000000..120cd728
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/MIME/Base64.pm
@@ -0,0 +1,188 @@
+package MIME::Base64;
+
+use strict;
+use vars qw(@ISA @EXPORT @EXPORT_OK $VERSION);
+
+require Exporter;
+@ISA = qw(Exporter);
+@EXPORT = qw(encode_base64 decode_base64);
+@EXPORT_OK = qw(encode_base64url decode_base64url encoded_base64_length decoded_base64_length);
+
+$VERSION = '3.15';
+
+require XSLoader;
+XSLoader::load('MIME::Base64', $VERSION);
+
+*encode = \&encode_base64;
+*decode = \&decode_base64;
+
+sub encode_base64url {
+    my $e = encode_base64(shift, "");
+    $e =~ s/=+\z//;
+    $e =~ tr[+/][-_];
+    return $e;
+}
+
+sub decode_base64url {
+    my $s = shift;
+    $s =~ tr[-_][+/];
+    $s .= '=' while length($s) % 4;
+    return decode_base64($s);
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+MIME::Base64 - Encoding and decoding of base64 strings
+
+=head1 SYNOPSIS
+
+ use MIME::Base64;
+
+ $encoded = encode_base64('Aladdin:open sesame');
+ $decoded = decode_base64($encoded);
+
+=head1 DESCRIPTION
+
+This module provides functions to encode and decode strings into and from the
+base64 encoding specified in RFC 2045 - I<MIME (Multipurpose Internet
+Mail Extensions)>. The base64 encoding is designed to represent
+arbitrary sequences of octets in a form that need not be humanly
+readable. A 65-character subset ([A-Za-z0-9+/=]) of US-ASCII is used,
+enabling 6 bits to be represented per printable character.
+
+The following primary functions are provided:
+
+=over 4
+
+=item encode_base64( $bytes )
+
+=item encode_base64( $bytes, $eol );
+
+Encode data by calling the encode_base64() function.  The first
+argument is the byte string to encode.  The second argument is the
+line-ending sequence to use.  It is optional and defaults to "\n".  The
+returned encoded string is broken into lines of no more than 76
+characters each and it will end with $eol unless it is empty.  Pass an
+empty string as second argument if you do not want the encoded string
+to be broken into lines.
+
+The function will croak with "Wide character in subroutine entry" if $bytes
+contains characters with code above 255.  The base64 encoding is only defined
+for single-byte characters.  Use the Encode module to select the byte encoding
+you want.
+
+=item decode_base64( $str )
+
+Decode a base64 string by calling the decode_base64() function.  This
+function takes a single argument which is the string to decode and
+returns the decoded data.
+
+Any character not part of the 65-character base64 subset is
+silently ignored.  Characters occurring after a '=' padding character
+are never decoded.
+
+=back
+
+If you prefer not to import these routines into your namespace, you can
+call them as:
+
+    use MIME::Base64 ();
+    $encoded = MIME::Base64::encode($decoded);
+    $decoded = MIME::Base64::decode($encoded);
+
+Additional functions not exported by default:
+
+=over 4
+
+=item encode_base64url( $bytes )
+
+=item decode_base64url( $str )
+
+Encode and decode according to the base64 scheme for "URL applications" [1].
+This is a variant of the base64 encoding which does not use padding, does not
+break the string into multiple lines and use the characters "-" and "_" instead
+of "+" and "/" to avoid using reserved URL characters.
+
+=item encoded_base64_length( $bytes )
+
+=item encoded_base64_length( $bytes, $eol )
+
+Returns the length that the encoded string would have without actually
+encoding it.  This will return the same value as C<< length(encode_base64($bytes)) >>,
+but should be more efficient.
+
+=item decoded_base64_length( $str )
+
+Returns the length that the decoded string would have without actually
+decoding it.  This will return the same value as C<< length(decode_base64($str)) >>,
+but should be more efficient.
+
+=back
+
+=head1 EXAMPLES
+
+If you want to encode a large file, you should encode it in chunks
+that are a multiple of 57 bytes.  This ensures that the base64 lines
+line up and that you do not end up with padding in the middle. 57
+bytes of data fills one complete base64 line (76 == 57*4/3):
+
+   use MIME::Base64 qw(encode_base64);
+
+   open(FILE, "/var/log/wtmp") or die "$!";
+   while (read(FILE, $buf, 60*57)) {
+       print encode_base64($buf);
+   }
+
+or if you know you have enough memory
+
+   use MIME::Base64 qw(encode_base64);
+   local($/) = undef;  # slurp
+   print encode_base64(<STDIN>);
+
+The same approach as a command line:
+
+   perl -MMIME::Base64 -0777 -ne 'print encode_base64($_)' <file
+
+Decoding does not need slurp mode if every line contains a multiple
+of four base64 chars:
+
+   perl -MMIME::Base64 -ne 'print decode_base64($_)' <file
+
+Perl v5.8 and better allow extended Unicode characters in strings.
+Such strings cannot be encoded directly, as the base64
+encoding is only defined for single-byte characters.  The solution is
+to use the Encode module to select the byte encoding you want.  For
+example:
+
+    use MIME::Base64 qw(encode_base64);
+    use Encode qw(encode);
+
+    $encoded = encode_base64(encode("UTF-8", "\x{FFFF}\n"));
+    print $encoded;
+
+=head1 COPYRIGHT
+
+Copyright 1995-1999, 2001-2004, 2010 Gisle Aas.
+
+This library is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+Distantly based on LWP::Base64 written by Martijn Koster
+<m.koster@nexor.co.uk> and Joerg Reichelt <j.reichelt@nexor.co.uk> and
+code posted to comp.lang.perl <3pd2lp$6gf@wsinti07.win.tue.nl> by Hans
+Mulder <hansm@wsinti07.win.tue.nl>
+
+The XS implementation uses code from metamail.  Copyright 1991 Bell
+Communications Research, Inc. (Bellcore)
+
+=head1 SEE ALSO
+
+L<MIME::QuotedPrint>
+
+[1] L<http://en.wikipedia.org/wiki/Base64#URL_applications>
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/MIME/QuotedPrint.pm b/lib/5.24.1/x86_64-linux/MIME/QuotedPrint.pm
new file mode 100644
index 00000000..d0c71d10
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/MIME/QuotedPrint.pm
@@ -0,0 +1,114 @@
+package MIME::QuotedPrint;
+
+use strict;
+use vars qw(@ISA @EXPORT $VERSION);
+
+require Exporter;
+@ISA = qw(Exporter);
+@EXPORT = qw(encode_qp decode_qp);
+
+$VERSION = "3.13";
+
+use MIME::Base64;  # will load XS version of {en,de}code_qp()
+
+*encode = \&encode_qp;
+*decode = \&decode_qp;
+
+1;
+
+__END__
+
+=head1 NAME
+
+MIME::QuotedPrint - Encoding and decoding of quoted-printable strings
+
+=head1 SYNOPSIS
+
+ use MIME::QuotedPrint;
+
+ $encoded = encode_qp($decoded);
+ $decoded = decode_qp($encoded);
+
+=head1 DESCRIPTION
+
+This module provides functions to encode and decode strings into and from the
+quoted-printable encoding specified in RFC 2045 - I<MIME (Multipurpose
+Internet Mail Extensions)>.  The quoted-printable encoding is intended
+to represent data that largely consists of bytes that correspond to
+printable characters in the ASCII character set.  Each non-printable
+character (as defined by English Americans) is represented by a
+triplet consisting of the character "=" followed by two hexadecimal
+digits.
+
+The following functions are provided:
+
+=over 4
+
+=item encode_qp( $str)
+
+=item encode_qp( $str, $eol)
+
+=item encode_qp( $str, $eol, $binmode )
+
+This function returns an encoded version of the string ($str) given as
+argument.
+
+The second argument ($eol) is the line-ending sequence to use.  It is
+optional and defaults to "\n".  Every occurrence of "\n" is replaced
+with this string, and it is also used for additional "soft line
+breaks" to ensure that no line end up longer than 76 characters.  Pass
+it as "\015\012" to produce data suitable for external consumption.
+The string "\r\n" produces the same result on many platforms, but not
+all.
+
+The third argument ($binmode) will select binary mode if passed as a
+TRUE value.  In binary mode "\n" will be encoded in the same way as
+any other non-printable character.  This ensures that a decoder will
+end up with exactly the same string whatever line ending sequence it
+uses.  In general it is preferable to use the base64 encoding for
+binary data; see L<MIME::Base64>.
+
+An $eol of "" (the empty string) is special.  In this case, no "soft
+line breaks" are introduced and binary mode is effectively enabled so
+that any "\n" in the original data is encoded as well.
+
+=item decode_qp( $str )
+
+This function returns the plain text version of the string given
+as argument.  The lines of the result are "\n" terminated, even if
+the $str argument contains "\r\n" terminated lines.
+
+=back
+
+
+If you prefer not to import these routines into your namespace, you can
+call them as:
+
+  use MIME::QuotedPrint ();
+  $encoded = MIME::QuotedPrint::encode($decoded);
+  $decoded = MIME::QuotedPrint::decode($encoded);
+
+Perl v5.8 and better allow extended Unicode characters in strings.
+Such strings cannot be encoded directly, as the quoted-printable
+encoding is only defined for single-byte characters.  The solution is
+to use the Encode module to select the byte encoding you want.  For
+example:
+
+    use MIME::QuotedPrint qw(encode_qp);
+    use Encode qw(encode);
+
+    $encoded = encode_qp(encode("UTF-8", "\x{FFFF}\n"));
+    print $encoded;
+
+=head1 COPYRIGHT
+
+Copyright 1995-1997,2002-2004 Gisle Aas.
+
+This library is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+=head1 SEE ALSO
+
+L<MIME::Base64>
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/Math/BigInt/FastCalc.pm b/lib/5.24.1/x86_64-linux/Math/BigInt/FastCalc.pm
new file mode 100644
index 00000000..2cc49f41
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/Math/BigInt/FastCalc.pm
@@ -0,0 +1,171 @@
+package Math::BigInt::FastCalc;
+
+use 5.006;
+use strict;
+use warnings;
+
+use Math::BigInt::Calc 1.999706;
+
+our $VERSION = '0.40';
+
+##############################################################################
+# global constants, flags and accessory
+
+# announce that we are compatible with MBI v1.83 and up
+sub api_version () { 2; }
+
+# use Calc to override the methods that we do not provide in XS
+
+for my $method (qw/
+    str num
+    add sub mul div
+    rsft lsft
+    mod modpow modinv
+    gcd
+    pow root sqrt log_int fac nok
+    digit check
+    from_hex from_bin from_oct as_hex as_bin as_oct
+    zeros base_len
+    xor or and
+    alen 1ex
+    /)
+    {
+    no strict 'refs';
+    *{'Math::BigInt::FastCalc::_' . $method} = \&{'Math::BigInt::Calc::_' . $method};
+    }
+
+require XSLoader;
+XSLoader::load(__PACKAGE__, $VERSION, Math::BigInt::Calc::_base_len());
+
+##############################################################################
+##############################################################################
+
+1;
+
+__END__
+
+=pod
+
+=head1 NAME
+
+Math::BigInt::FastCalc - Math::BigInt::Calc with some XS for more speed
+
+=head1 SYNOPSIS
+
+Provides support for big integer calculations. Not intended to be used by
+other modules. Other modules which sport the same functions can also be used
+to support Math::BigInt, like L<Math::BigInt::GMP> or L<Math::BigInt::Pari>.
+
+=head1 DESCRIPTION
+
+In order to allow for multiple big integer libraries, Math::BigInt was
+rewritten to use library modules for core math routines. Any module which
+follows the same API as this can be used instead by using the following:
+
+	use Math::BigInt lib => 'libname';
+
+'libname' is either the long name ('Math::BigInt::Pari'), or only the short
+version like 'Pari'. To use this library:
+
+	use Math::BigInt lib => 'FastCalc';
+
+Note that from L<Math::BigInt> v1.76 onwards, FastCalc will be loaded
+automatically, if possible.
+
+=head1 STORAGE
+
+FastCalc works exactly like Calc, in stores the numbers in decimal form,
+chopped into parts.
+
+=head1 METHODS
+
+The following functions are now implemented in FastCalc.xs:
+
+	_is_odd		_is_even	_is_one		_is_zero
+	_is_two		_is_ten
+	_zero		_one		_two		_ten
+	_acmp		_len
+	_inc		_dec
+	__strip_zeros	_copy
+
+=head1 BUGS
+
+Please report any bugs or feature requests to
+C<bug-math-bigint-fastcalc at rt.cpan.org>, or through the web interface at
+L<https://rt.cpan.org/Ticket/Create.html?Queue=Math-BigInt-FastCalc>
+(requires login).
+We will be notified, and then you'll automatically be notified of progress on
+your bug as I make changes.
+
+=head1 SUPPORT
+
+You can find documentation for this module with the perldoc command.
+
+    perldoc Math::BigInt::FastCalc
+
+You can also look for information at:
+
+=over 4
+
+=item * RT: CPAN's request tracker
+
+L<https://rt.cpan.org/Public/Dist/Display.html?Name=Math-BigInt-FastCalc>
+
+=item * AnnoCPAN: Annotated CPAN documentation
+
+L<http://annocpan.org/dist/Math-BigInt-FastCalc>
+
+=item * CPAN Ratings
+
+L<http://cpanratings.perl.org/dist/Math-BigInt-FastCalc>
+
+=item * Search CPAN
+
+L<http://search.cpan.org/dist/Math-BigInt-FastCalc/>
+
+=item * CPAN Testers Matrix
+
+L<http://matrix.cpantesters.org/?dist=Math-BigInt-FastCalc>
+
+=item * The Bignum mailing list
+
+=over 4
+
+=item * Post to mailing list
+
+C<bignum at lists.scsys.co.uk>
+
+=item * View mailing list
+
+L<http://lists.scsys.co.uk/pipermail/bignum/>
+
+=item * Subscribe/Unsubscribe
+
+L<http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/bignum>
+
+=back
+
+=back
+
+=head1 LICENSE
+
+This program is free software; you may redistribute it and/or modify it under
+the same terms as Perl itself.
+
+=head1 AUTHORS
+
+Original math code by Mark Biggar, rewritten by Tels L<http://bloodgate.com/>
+in late 2000.
+Separated from BigInt and shaped API with the help of John Peacock.
+
+Fixed, sped-up and enhanced by Tels http://bloodgate.com 2001-2003.
+Further streamlining (api_version 1 etc.) by Tels 2004-2007.
+
+Bug-fixing by Peter John Acklam E<lt>pjacklam@online.noE<gt> 2010-2015.
+
+=head1 SEE ALSO
+
+L<Math::BigInt>, L<Math::BigFloat>, and the other backends
+L<Math::BigInt::Calc>, L<Math::BigInt::GMP>, and L<Math::BigInt::Pari>.
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/O.pm b/lib/5.24.1/x86_64-linux/O.pm
new file mode 100644
index 00000000..2976a894
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/O.pm
@@ -0,0 +1,143 @@
+package O;
+
+our $VERSION = '1.01';
+
+use B qw(minus_c save_BEGINs);
+use Carp;
+
+sub import {
+    my ($class, @options) = @_;
+    my ($quiet, $veryquiet) = (0, 0);
+    if ($options[0] eq '-q' || $options[0] eq '-qq') {
+	$quiet = 1;
+	open (SAVEOUT, ">&STDOUT");
+	close STDOUT;
+	open (STDOUT, ">", \$O::BEGIN_output);
+	if ($options[0] eq '-qq') {
+	    $veryquiet = 1;
+	}
+	shift @options;
+    }
+    my $backend = shift (@options);
+    eval q[
+	BEGIN {
+	    minus_c;
+	    save_BEGINs;
+	}
+
+	CHECK {
+	    if ($quiet) {
+		close STDOUT;
+		open (STDOUT, ">&SAVEOUT");
+		close SAVEOUT;
+	    }
+
+	    # Note: if you change the code after this 'use', please
+	    # change the fudge factors in B::Concise (grep for
+	    # "fragile kludge") so that its output still looks
+	    # nice. Thanks. --smcc
+	    use B::].$backend.q[ ();
+	    if ($@) {
+		croak "use of backend $backend failed: $@";
+	    }
+
+
+	    my $compilesub = &{"B::${backend}::compile"}(@options);
+	    if (ref($compilesub) ne "CODE") {
+		die $compilesub;
+	    }
+
+	    local $savebackslash = $\;
+	    local ($\,$",$,) = (undef,' ','');
+	    &$compilesub();
+
+	    close STDERR if $veryquiet;
+	}
+    ];
+    die $@ if $@;
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+O - Generic interface to Perl Compiler backends
+
+=head1 SYNOPSIS
+
+	perl -MO=[-q,]Backend[,OPTIONS] foo.pl
+
+=head1 DESCRIPTION
+
+This is the module that is used as a frontend to the Perl Compiler.
+
+If you pass the C<-q> option to the module, then the STDOUT
+filehandle will be redirected into the variable C<$O::BEGIN_output>
+during compilation.  This has the effect that any output printed
+to STDOUT by BEGIN blocks or use'd modules will be stored in this
+variable rather than printed. It's useful with those backends which
+produce output themselves (C<Deparse>, C<Concise> etc), so that
+their output is not confused with that generated by the code
+being compiled.
+
+The C<-qq> option behaves like C<-q>, except that it also closes
+STDERR after deparsing has finished. This suppresses the "Syntax OK"
+message normally produced by perl.
+
+=head1 CONVENTIONS
+
+Most compiler backends use the following conventions: OPTIONS
+consists of a comma-separated list of words (no white-space).
+The C<-v> option usually puts the backend into verbose mode.
+The C<-ofile> option generates output to B<file> instead of
+stdout. The C<-D> option followed by various letters turns on
+various internal debugging flags. See the documentation for the
+desired backend (named C<B::Backend> for the example above) to
+find out about that backend.
+
+=head1 IMPLEMENTATION
+
+This section is only necessary for those who want to write a
+compiler backend module that can be used via this module.
+
+The command-line mentioned in the SYNOPSIS section corresponds to
+the Perl code
+
+    use O ("Backend", OPTIONS);
+
+The C<O::import> function loads the appropriate C<B::Backend> module
+and calls its C<compile> function, passing it OPTIONS. That function
+is expected to return a sub reference which we'll call CALLBACK. Next,
+the "compile-only" flag is switched on (equivalent to the command-line
+option C<-c>) and a CHECK block is registered which calls
+CALLBACK. Thus the main Perl program mentioned on the command-line is
+read in, parsed and compiled into internal syntax tree form. Since the
+C<-c> flag is set, the program does not start running (excepting BEGIN
+blocks of course) but the CALLBACK function registered by the compiler
+backend is called.
+
+In summary, a compiler backend module should be called "B::Foo"
+for some foo and live in the appropriate directory for that name.
+It should define a function called C<compile>. When the user types
+
+    perl -MO=Foo,OPTIONS foo.pl
+
+that function is called and is passed those OPTIONS (split on
+commas). It should return a sub ref to the main compilation function.
+After the user's program is loaded and parsed, that returned sub ref
+is invoked which can then go ahead and do the compilation, usually by
+making use of the C<B> module's functionality.
+
+=head1 BUGS
+
+The C<-q> and C<-qq> options don't work correctly if perl isn't
+compiled with PerlIO support : STDOUT will be closed instead of being
+redirected to C<$O::BEGIN_output>.
+
+=head1 AUTHOR
+
+Malcolm Beattie, C<mbeattie@sable.ox.ac.uk>
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/Opcode.pm b/lib/5.24.1/x86_64-linux/Opcode.pm
new file mode 100644
index 00000000..1522c4c3
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/Opcode.pm
@@ -0,0 +1,603 @@
+package Opcode;
+
+use 5.006_001;
+
+use strict;
+
+our($VERSION, @ISA, @EXPORT_OK);
+
+$VERSION = "1.34";
+
+use Carp;
+use Exporter ();
+use XSLoader;
+
+BEGIN {
+    @ISA = qw(Exporter);
+    @EXPORT_OK = qw(
+	opset ops_to_opset
+	opset_to_ops opset_to_hex invert_opset
+	empty_opset full_opset
+	opdesc opcodes opmask define_optag
+	opmask_add verify_opset opdump
+    );
+}
+
+sub opset (;@);
+sub opset_to_hex ($);
+sub opdump (;$);
+use subs @EXPORT_OK;
+
+XSLoader::load();
+
+_init_optags();
+
+sub ops_to_opset { opset @_ }	# alias for old name
+
+sub opset_to_hex ($) {
+    return "(invalid opset)" unless verify_opset($_[0]);
+    unpack("h*",$_[0]);
+}
+
+sub opdump (;$) {
+	my $pat = shift;
+    # handy utility: perl -MOpcode=opdump -e 'opdump File'
+    foreach(opset_to_ops(full_opset)) {
+        my $op = sprintf "  %12s  %s\n", $_, opdesc($_);
+		next if defined $pat and $op !~ m/$pat/i;
+		print $op;
+    }
+}
+
+
+
+sub _init_optags {
+    my(%all, %seen);
+    @all{opset_to_ops(full_opset)} = (); # keys only
+
+    local($_);
+    local($/) = "\n=cut"; # skip to optags definition section
+    <DATA>;
+    $/ = "\n=";		# now read in 'pod section' chunks
+    while(<DATA>) {
+	next unless m/^item\s+(:\w+)/;
+	my $tag = $1;
+
+	# Split into lines, keep only indented lines
+	my @lines = grep { m/^\s/    } split(/\n/);
+	foreach (@lines) { s/(?:\t|--).*//  } # delete comments
+	my @ops   = map  { split ' ' } @lines; # get op words
+
+	foreach(@ops) {
+	    warn "$tag - $_ already tagged in $seen{$_}\n" if $seen{$_};
+	    $seen{$_} = $tag;
+	    delete $all{$_};
+	}
+	# opset will croak on invalid names
+	define_optag($tag, opset(@ops));
+    }
+    close(DATA);
+    warn "Untagged opnames: ".join(' ',keys %all)."\n" if %all;
+}
+
+
+1;
+
+__DATA__
+
+=head1 NAME
+
+Opcode - Disable named opcodes when compiling perl code
+
+=head1 SYNOPSIS
+
+  use Opcode;
+
+
+=head1 DESCRIPTION
+
+Perl code is always compiled into an internal format before execution.
+
+Evaluating perl code (e.g. via "eval" or "do 'file'") causes
+the code to be compiled into an internal format and then,
+provided there was no error in the compilation, executed.
+The internal format is based on many distinct I<opcodes>.
+
+By default no opmask is in effect and any code can be compiled.
+
+The Opcode module allow you to define an I<operator mask> to be in
+effect when perl I<next> compiles any code.  Attempting to compile code
+which contains a masked opcode will cause the compilation to fail
+with an error. The code will not be executed.
+
+=head1 NOTE
+
+The Opcode module is not usually used directly. See the ops pragma and
+Safe modules for more typical uses.
+
+=head1 WARNING
+
+The authors make B<no warranty>, implied or otherwise, about the
+suitability of this software for safety or security purposes.
+
+The authors shall not in any case be liable for special, incidental,
+consequential, indirect or other similar damages arising from the use
+of this software.
+
+Your mileage will vary. If in any doubt B<do not use it>.
+
+
+=head1 Operator Names and Operator Lists
+
+The canonical list of operator names is the contents of the array
+PL_op_name defined and initialised in file F<opcode.h> of the Perl
+source distribution (and installed into the perl library).
+
+Each operator has both a terse name (its opname) and a more verbose or
+recognisable descriptive name. The opdesc function can be used to
+return a list of descriptions for a list of operators.
+
+Many of the functions and methods listed below take a list of
+operators as parameters. Most operator lists can be made up of several
+types of element. Each element can be one of
+
+=over 8
+
+=item an operator name (opname)
+
+Operator names are typically small lowercase words like enterloop,
+leaveloop, last, next, redo etc. Sometimes they are rather cryptic
+like gv2cv, i_ncmp and ftsvtx.
+
+=item an operator tag name (optag)
+
+Operator tags can be used to refer to groups (or sets) of operators.
+Tag names always begin with a colon. The Opcode module defines several
+optags and the user can define others using the define_optag function.
+
+=item a negated opname or optag
+
+An opname or optag can be prefixed with an exclamation mark, e.g., !mkdir.
+Negating an opname or optag means remove the corresponding ops from the
+accumulated set of ops at that point.
+
+=item an operator set (opset)
+
+An I<opset> as a binary string of approximately 44 bytes which holds a
+set or zero or more operators.
+
+The opset and opset_to_ops functions can be used to convert from
+a list of operators to an opset and I<vice versa>.
+
+Wherever a list of operators can be given you can use one or more opsets.
+See also Manipulating Opsets below.
+
+=back
+
+
+=head1 Opcode Functions
+
+The Opcode package contains functions for manipulating operator names
+tags and sets. All are available for export by the package.
+
+=over 8
+
+=item opcodes
+
+In a scalar context opcodes returns the number of opcodes in this
+version of perl (around 350 for perl-5.7.0).
+
+In a list context it returns a list of all the operator names.
+(Not yet implemented, use @names = opset_to_ops(full_opset).)
+
+=item opset (OP, ...)
+
+Returns an opset containing the listed operators.
+
+=item opset_to_ops (OPSET)
+
+Returns a list of operator names corresponding to those operators in
+the set.
+
+=item opset_to_hex (OPSET)
+
+Returns a string representation of an opset. Can be handy for debugging.
+
+=item full_opset
+
+Returns an opset which includes all operators.
+
+=item empty_opset
+
+Returns an opset which contains no operators.
+
+=item invert_opset (OPSET)
+
+Returns an opset which is the inverse set of the one supplied.
+
+=item verify_opset (OPSET, ...)
+
+Returns true if the supplied opset looks like a valid opset (is the
+right length etc) otherwise it returns false. If an optional second
+parameter is true then verify_opset will croak on an invalid opset
+instead of returning false.
+
+Most of the other Opcode functions call verify_opset automatically
+and will croak if given an invalid opset.
+
+=item define_optag (OPTAG, OPSET)
+
+Define OPTAG as a symbolic name for OPSET. Optag names always start
+with a colon C<:>.
+
+The optag name used must not be defined already (define_optag will
+croak if it is already defined). Optag names are global to the perl
+process and optag definitions cannot be altered or deleted once
+defined.
+
+It is strongly recommended that applications using Opcode should use a
+leading capital letter on their tag names since lowercase names are
+reserved for use by the Opcode module. If using Opcode within a module
+you should prefix your tags names with the name of your module to
+ensure uniqueness and thus avoid clashes with other modules.
+
+=item opmask_add (OPSET)
+
+Adds the supplied opset to the current opmask. Note that there is
+currently I<no> mechanism for unmasking ops once they have been masked.
+This is intentional.
+
+=item opmask
+
+Returns an opset corresponding to the current opmask.
+
+=item opdesc (OP, ...)
+
+This takes a list of operator names and returns the corresponding list
+of operator descriptions.
+
+=item opdump (PAT)
+
+Dumps to STDOUT a two column list of op names and op descriptions.
+If an optional pattern is given then only lines which match the
+(case insensitive) pattern will be output.
+
+It's designed to be used as a handy command line utility:
+
+	perl -MOpcode=opdump -e opdump
+	perl -MOpcode=opdump -e 'opdump Eval'
+
+=back
+
+=head1 Manipulating Opsets
+
+Opsets may be manipulated using the perl bit vector operators & (and), | (or),
+^ (xor) and ~ (negate/invert).
+
+However you should never rely on the numerical position of any opcode
+within the opset. In other words both sides of a bit vector operator
+should be opsets returned from Opcode functions.
+
+Also, since the number of opcodes in your current version of perl might
+not be an exact multiple of eight, there may be unused bits in the last
+byte of an upset. This should not cause any problems (Opcode functions
+ignore those extra bits) but it does mean that using the ~ operator
+will typically not produce the same 'physical' opset 'string' as the
+invert_opset function.
+
+
+=head1 TO DO (maybe)
+
+    $bool = opset_eq($opset1, $opset2)	true if opsets are logically
+					equivalent
+    $yes = opset_can($opset, @ops)	true if $opset has all @ops set
+
+    @diff = opset_diff($opset1, $opset2) => ('foo', '!bar', ...)
+
+=cut
+
+# the =cut above is used by _init_optags() to get here quickly
+
+=head1 Predefined Opcode Tags
+
+=over 5
+
+=item :base_core
+
+    null stub scalar pushmark wantarray const defined undef
+
+    rv2sv sassign
+
+    rv2av aassign aelem aelemfast aelemfast_lex aslice kvaslice
+    av2arylen
+
+    rv2hv helem hslice kvhslice each values keys exists delete
+    aeach akeys avalues multideref
+
+    preinc i_preinc predec i_predec postinc i_postinc
+    postdec i_postdec int hex oct abs pow multiply i_multiply
+    divide i_divide modulo i_modulo add i_add subtract i_subtract
+
+    left_shift right_shift bit_and bit_xor bit_or nbit_and
+    nbit_xor nbit_or sbit_and sbit_xor sbit_or negate i_negate not
+    complement ncomplement scomplement
+
+    lt i_lt gt i_gt le i_le ge i_ge eq i_eq ne i_ne ncmp i_ncmp
+    slt sgt sle sge seq sne scmp
+
+    substr vec stringify study pos length index rindex ord chr
+
+    ucfirst lcfirst uc lc fc quotemeta trans transr chop schop
+    chomp schomp
+
+    match split qr
+
+    list lslice splice push pop shift unshift reverse
+
+    cond_expr flip flop andassign orassign dorassign and or dor xor
+
+    warn die lineseq nextstate scope enter leave
+
+    rv2cv anoncode prototype coreargs anonconst
+
+    entersub leavesub leavesublv return method method_named
+    method_super method_redir method_redir_super
+     -- XXX loops via recursion?
+
+    leaveeval -- needed for Safe to operate, is safe
+		 without entereval
+
+=item :base_mem
+
+These memory related ops are not included in :base_core because they
+can easily be used to implement a resource attack (e.g., consume all
+available memory).
+
+    concat repeat join range
+
+    anonlist anonhash
+
+Note that despite the existence of this optag a memory resource attack
+may still be possible using only :base_core ops.
+
+Disabling these ops is a I<very> heavy handed way to attempt to prevent
+a memory resource attack. It's probable that a specific memory limit
+mechanism will be added to perl in the near future.
+
+=item :base_loop
+
+These loop ops are not included in :base_core because they can easily be
+used to implement a resource attack (e.g., consume all available CPU time).
+
+    grepstart grepwhile
+    mapstart mapwhile
+    enteriter iter
+    enterloop leaveloop unstack
+    last next redo
+    goto
+
+=item :base_io
+
+These ops enable I<filehandle> (rather than filename) based input and
+output. These are safe on the assumption that only pre-existing
+filehandles are available for use.  Usually, to create new filehandles
+other ops such as open would need to be enabled, if you don't take into
+account the magical open of ARGV.
+
+    readline rcatline getc read
+
+    formline enterwrite leavewrite
+
+    print say sysread syswrite send recv
+
+    eof tell seek sysseek
+
+    readdir telldir seekdir rewinddir
+
+=item :base_orig
+
+These are a hotchpotch of opcodes still waiting to be considered
+
+    gvsv gv gelem
+
+    padsv padav padhv padcv padany padrange introcv clonecv
+
+    once
+
+    rv2gv refgen srefgen ref refassign lvref lvrefslice lvavref
+
+    bless -- could be used to change ownership of objects
+	     (reblessing)
+
+    pushre regcmaybe regcreset regcomp subst substcont
+
+    sprintf prtf -- can core dump
+
+    crypt
+
+    tie untie
+
+    dbmopen dbmclose
+    sselect select
+    pipe_op sockpair
+
+    getppid getpgrp setpgrp getpriority setpriority
+    localtime gmtime
+
+    entertry leavetry -- can be used to 'hide' fatal errors
+
+    entergiven leavegiven
+    enterwhen leavewhen
+    break continue
+    smartmatch
+
+    custom -- where should this go
+
+=item :base_math
+
+These ops are not included in :base_core because of the risk of them being
+used to generate floating point exceptions (which would have to be caught
+using a $SIG{FPE} handler).
+
+    atan2 sin cos exp log sqrt
+
+These ops are not included in :base_core because they have an effect
+beyond the scope of the compartment.
+
+    rand srand
+
+=item :base_thread
+
+These ops are related to multi-threading.
+
+    lock
+
+=item :default
+
+A handy tag name for a I<reasonable> default set of ops.  (The current ops
+allowed are unstable while development continues. It will change.)
+
+    :base_core :base_mem :base_loop :base_orig :base_thread
+
+This list used to contain :base_io prior to Opcode 1.07.
+
+If safety matters to you (and why else would you be using the Opcode module?)
+then you should not rely on the definition of this, or indeed any other, optag!
+
+=item :filesys_read
+
+    stat lstat readlink
+
+    ftatime ftblk ftchr ftctime ftdir fteexec fteowned
+    fteread ftewrite ftfile ftis ftlink ftmtime ftpipe
+    ftrexec ftrowned ftrread ftsgid ftsize ftsock ftsuid
+    fttty ftzero ftrwrite ftsvtx
+
+    fttext ftbinary
+
+    fileno
+
+=item :sys_db
+
+    ghbyname ghbyaddr ghostent shostent ehostent      -- hosts
+    gnbyname gnbyaddr gnetent snetent enetent         -- networks
+    gpbyname gpbynumber gprotoent sprotoent eprotoent -- protocols
+    gsbyname gsbyport gservent sservent eservent      -- services
+
+    gpwnam gpwuid gpwent spwent epwent getlogin       -- users
+    ggrnam ggrgid ggrent sgrent egrent                -- groups
+
+=item :browse
+
+A handy tag name for a I<reasonable> default set of ops beyond the
+:default optag.  Like :default (and indeed all the other optags) its
+current definition is unstable while development continues. It will change.
+
+The :browse tag represents the next step beyond :default. It it a
+superset of the :default ops and adds :filesys_read the :sys_db.
+The intent being that scripts can access more (possibly sensitive)
+information about your system but not be able to change it.
+
+    :default :filesys_read :sys_db
+
+=item :filesys_open
+
+    sysopen open close
+    umask binmode
+
+    open_dir closedir -- other dir ops are in :base_io
+
+=item :filesys_write
+
+    link unlink rename symlink truncate
+
+    mkdir rmdir
+
+    utime chmod chown
+
+    fcntl -- not strictly filesys related, but possibly as
+	     dangerous?
+
+=item :subprocess
+
+    backtick system
+
+    fork
+
+    wait waitpid
+
+    glob -- access to Cshell via <`rm *`>
+
+=item :ownprocess
+
+    exec exit kill
+
+    time tms -- could be used for timing attacks (paranoid?)
+
+=item :others
+
+This tag holds groups of assorted specialist opcodes that don't warrant
+having optags defined for them.
+
+SystemV Interprocess Communications:
+
+    msgctl msgget msgrcv msgsnd
+
+    semctl semget semop
+
+    shmctl shmget shmread shmwrite
+
+=item :load
+
+This tag holds opcodes related to loading modules and getting information
+about calling environment and args.
+
+    require dofile 
+    caller runcv
+
+=item :still_to_be_decided
+
+    chdir
+    flock ioctl
+
+    socket getpeername ssockopt
+    bind connect listen accept shutdown gsockopt getsockname
+
+    sleep alarm -- changes global timer state and signal handling
+    sort -- assorted problems including core dumps
+    tied -- can be used to access object implementing a tie
+    pack unpack -- can be used to create/use memory pointers
+
+    hintseval -- constant op holding eval hints
+
+    entereval -- can be used to hide code from initial compile
+
+    reset
+
+    dbstate -- perl -d version of nextstate(ment) opcode
+
+=item :dangerous
+
+This tag is simply a bucket for opcodes that are unlikely to be used via
+a tag name but need to be tagged for completeness and documentation.
+
+    syscall dump chroot
+
+=back
+
+=head1 SEE ALSO
+
+L<ops> -- perl pragma interface to Opcode module.
+
+L<Safe> -- Opcode and namespace limited execution compartments
+
+=head1 AUTHORS
+
+Originally designed and implemented by Malcolm Beattie,
+mbeattie@sable.ox.ac.uk as part of Safe version 1.
+
+Split out from Safe module version 1, named opcode tags and other
+changes added by Tim Bunce.
+
+=cut
+
diff --git a/lib/5.24.1/x86_64-linux/POSIX.pm b/lib/5.24.1/x86_64-linux/POSIX.pm
new file mode 100644
index 00000000..05bdbbe7
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/POSIX.pm
@@ -0,0 +1,542 @@
+package POSIX;
+use strict;
+use warnings;
+
+our ($AUTOLOAD, %SIGRT);
+
+our $VERSION = '1.65';
+
+require XSLoader;
+
+use Fcntl qw(FD_CLOEXEC F_DUPFD F_GETFD F_GETFL F_GETLK F_RDLCK F_SETFD
+	     F_SETFL F_SETLK F_SETLKW F_UNLCK F_WRLCK O_ACCMODE O_APPEND
+	     O_CREAT O_EXCL O_NOCTTY O_NONBLOCK O_RDONLY O_RDWR O_TRUNC
+	     O_WRONLY SEEK_CUR SEEK_END SEEK_SET
+	     S_ISBLK S_ISCHR S_ISDIR S_ISFIFO S_ISREG
+	     S_IRGRP S_IROTH S_IRUSR S_IRWXG S_IRWXO S_IRWXU S_ISGID S_ISUID
+	     S_IWGRP S_IWOTH S_IWUSR S_IXGRP S_IXOTH S_IXUSR);
+
+my $loaded;
+
+sub import {
+    my $pkg = shift;
+
+    load_imports() unless $loaded++;
+
+    # Grandfather old foo_h form to new :foo_h form
+    s/^(?=\w+_h$)/:/ for my @list = @_;
+
+    local $Exporter::ExportLevel = 1;
+    Exporter::import($pkg,@list);
+}
+
+sub croak { require Carp;  goto &Carp::croak }
+sub usage { croak "Usage: POSIX::$_[0]" }
+
+XSLoader::load();
+
+my %replacement = (
+    atexit      => 'END {}',
+    atof        => undef,
+    atoi        => undef,
+    atol        => undef,
+    bsearch     => \'not supplied',
+    calloc      => undef,
+    clearerr    => 'IO::Handle::clearerr',
+    div         => '/, % and int',
+    execl       => undef,
+    execle      => undef,
+    execlp      => undef,
+    execv       => undef,
+    execve      => undef,
+    execvp      => undef,
+    fclose      => 'IO::Handle::close',
+    fdopen      => 'IO::Handle::new_from_fd',
+    feof        => 'IO::Handle::eof',
+    ferror      => 'IO::Handle::error',
+    fflush      => 'IO::Handle::flush',
+    fgetc       => 'IO::Handle::getc',
+    fgetpos     => 'IO::Seekable::getpos',
+    fgets       => 'IO::Handle::gets',
+    fileno      => 'IO::Handle::fileno',
+    fopen       => 'IO::File::open',
+    fprintf     => 'printf',
+    fputc       => 'print',
+    fputs       => 'print',
+    fread       => 'read',
+    free        => undef,
+    freopen     => 'open',
+    fscanf      => '<> and regular expressions',
+    fseek       => 'IO::Seekable::seek',
+    fsetpos     => 'IO::Seekable::setpos',
+    fsync       => 'IO::Handle::sync',
+    ftell       => 'IO::Seekable::tell',
+    fwrite      => 'print',
+    labs        => 'abs',
+    ldiv        => '/, % and int',
+    longjmp     => 'die',
+    malloc      => undef,
+    memchr      => 'index()',
+    memcmp      => 'eq',
+    memcpy      => '=',
+    memmove     => '=',
+    memset      => 'x',
+    offsetof    => undef,
+    putc        => 'print',
+    putchar     => 'print',
+    puts        => 'print',
+    qsort       => 'sort',
+    rand        => \'non-portable, use Perl\'s rand instead',
+    realloc     => undef,
+    scanf       => '<> and regular expressions',
+    setbuf      => 'IO::Handle::setbuf',
+    setjmp      => 'eval {}',
+    setvbuf     => 'IO::Handle::setvbuf',
+    siglongjmp  => 'die',
+    sigsetjmp   => 'eval {}',
+    srand       => \'not supplied; refer to Perl\'s srand documentation',
+    sscanf      => 'regular expressions',
+    strcat      => '.=',
+    strchr      => 'index()',
+    strcmp      => 'eq',
+    strcpy      => '=',
+    strcspn     => 'regular expressions',
+    strlen      => 'length',
+    strncat     => '.=',
+    strncmp     => 'eq',
+    strncpy     => '=',
+    strpbrk     => undef,
+    strrchr     => 'rindex()',
+    strspn      => undef,
+    strtok      => undef,
+    tmpfile     => 'IO::File::new_tmpfile',
+    ungetc      => 'IO::Handle::ungetc',
+    vfprintf    => undef,
+    vprintf     => undef,
+    vsprintf    => undef,
+);
+
+my %reimpl = (
+    assert    => 'expr => croak "Assertion failed" if !$_[0]',
+    tolower   => 'string => lc($_[0])',
+    toupper   => 'string => uc($_[0])',
+    closedir  => 'dirhandle => CORE::closedir($_[0])',
+    opendir   => 'directory => my $dh; CORE::opendir($dh, $_[0]) ? $dh : undef',
+    readdir   => 'dirhandle => CORE::readdir($_[0])',
+    rewinddir => 'dirhandle => CORE::rewinddir($_[0])',
+    errno     => '$! + 0',
+    creat     => 'filename, mode => &open($_[0], &O_WRONLY | &O_CREAT | &O_TRUNC, $_[1])',
+    fcntl     => 'filehandle, cmd, arg => CORE::fcntl($_[0], $_[1], $_[2])',
+    getgrgid  => 'gid => CORE::getgrgid($_[0])',
+    getgrnam  => 'name => CORE::getgrnam($_[0])',
+    atan2     => 'x, y => CORE::atan2($_[0], $_[1])',
+    cos       => 'x => CORE::cos($_[0])',
+    exp       => 'x => CORE::exp($_[0])',
+    fabs      => 'x => CORE::abs($_[0])',
+    log       => 'x => CORE::log($_[0])',
+    pow       => 'x, exponent => $_[0] ** $_[1]',
+    sin       => 'x => CORE::sin($_[0])',
+    sqrt      => 'x => CORE::sqrt($_[0])',
+    getpwnam  => 'name => CORE::getpwnam($_[0])',
+    getpwuid  => 'uid => CORE::getpwuid($_[0])',
+    kill      => 'pid, sig => CORE::kill $_[1], $_[0]',
+    raise     => 'sig => CORE::kill $_[0], $$;	# Is this good enough',
+    getc      => 'handle => CORE::getc($_[0])',
+    getchar   => 'CORE::getc(STDIN)',
+    gets      => 'scalar <STDIN>',
+    remove    => 'filename => (-d $_[0]) ? CORE::rmdir($_[0]) : CORE::unlink($_[0])',
+    rename    => 'oldfilename, newfilename => CORE::rename($_[0], $_[1])',
+    rewind    => 'filehandle => CORE::seek($_[0],0,0)',
+    abs       => 'x => CORE::abs($_[0])',
+    exit      => 'status => CORE::exit($_[0])',
+    getenv    => 'name => $ENV{$_[0]}',
+    system    => 'command => CORE::system($_[0])',
+    strerror  => 'errno => BEGIN { local $!; require locale; locale->import} my $e = $_[0] + 0; local $!; $! = $e; "$!"',
+    strstr    => 'big, little => CORE::index($_[0], $_[1])',
+    chmod     => 'mode, filename => CORE::chmod($_[0], $_[1])',
+    fstat     => 'fd => CORE::open my $dup, "<&", $_[0]; CORE::stat($dup)', # Gross.
+    mkdir     => 'directoryname, mode => CORE::mkdir($_[0], $_[1])',
+    stat      => 'filename => CORE::stat($_[0])',
+    umask     => 'mask => CORE::umask($_[0])',
+    wait      => 'CORE::wait()',
+    waitpid   => 'pid, options => CORE::waitpid($_[0], $_[1])',
+    gmtime    => 'time => CORE::gmtime($_[0])',
+    localtime => 'time => CORE::localtime($_[0])',
+    time      => 'CORE::time',
+    alarm     => 'seconds => CORE::alarm($_[0])',
+    chdir     => 'directory => CORE::chdir($_[0])',
+    chown     => 'uid, gid, filename => CORE::chown($_[0], $_[1], $_[2])',
+    fork      => 'CORE::fork',
+    getegid   => '$) + 0',
+    geteuid   => '$> + 0',
+    getgid    => '$( + 0',
+    getgroups => 'my %seen; grep !$seen{$_}++, split " ", $)',
+    getlogin  => 'CORE::getlogin()',
+    getpgrp   => 'CORE::getpgrp',
+    getpid    => '$$',
+    getppid   => 'CORE::getppid',
+    getuid    => '$<',
+    isatty    => 'filehandle => -t $_[0]',
+    link      => 'oldfilename, newfilename => CORE::link($_[0], $_[1])',
+    rmdir     => 'directoryname => CORE::rmdir($_[0])',
+    unlink    => 'filename => CORE::unlink($_[0])',
+    utime     => 'filename, atime, mtime => CORE::utime($_[1], $_[2], $_[0])',
+);
+
+eval join ';', map "sub $_", keys %replacement, keys %reimpl;
+
+sub AUTOLOAD {
+    my ($func) = ($AUTOLOAD =~ /.*::(.*)/);
+
+    die "POSIX.xs has failed to load\n" if $func eq 'constant';
+
+    if (my $code = $reimpl{$func}) {
+	my ($num, $arg) = (0, '');
+	if ($code =~ s/^(.*?) *=> *//) {
+	    $arg = $1;
+	    $num = 1 + $arg =~ tr/,//;
+	}
+	# no warnings to be consistent with the old implementation, where each
+	# function was in its own little AutoSplit world:
+	eval qq{ sub $func {
+		no warnings;
+		usage "$func($arg)" if \@_ != $num;
+		$code
+	    } };
+	no strict;
+	goto &$AUTOLOAD;
+    }
+    if (exists $replacement{$func}) {
+	my $how = $replacement{$func};
+	croak "Unimplemented: POSIX::$func() is C-specific, stopped"
+	    unless defined $how;
+	croak "Unimplemented: POSIX::$func() is $$how" if ref $how;
+	croak "Use method $how() instead of POSIX::$func()" if $how =~ /::/;
+	croak "Unimplemented: POSIX::$func() is C-specific: use $how instead";
+    }
+
+    constant($func);
+}
+
+sub perror {
+    print STDERR "@_: " if @_;
+    print STDERR $!,"\n";
+}
+
+sub printf {
+    usage "printf(pattern, args...)" if @_ < 1;
+    CORE::printf STDOUT @_;
+}
+
+sub sprintf {
+    usage "sprintf(pattern, args...)" if @_ == 0;
+    CORE::sprintf(shift,@_);
+}
+
+sub load_imports {
+my %default_export_tags = ( # cf. exports policy below
+
+    assert_h =>	[qw(assert NDEBUG)],
+
+    ctype_h =>	[qw(isalnum isalpha iscntrl isdigit isgraph islower
+		isprint ispunct isspace isupper isxdigit tolower toupper)],
+
+    dirent_h =>	[],
+
+    errno_h =>	[qw(E2BIG EACCES EADDRINUSE EADDRNOTAVAIL EAFNOSUPPORT EAGAIN
+		EALREADY EBADF EBADMSG EBUSY ECANCELED ECHILD ECONNABORTED
+		ECONNREFUSED ECONNRESET EDEADLK EDESTADDRREQ EDOM EDQUOT EEXIST
+		EFAULT EFBIG EHOSTDOWN EHOSTUNREACH EIDRM EILSEQ EINPROGRESS
+		EINTR EINVAL EIO EISCONN EISDIR ELOOP EMFILE EMLINK EMSGSIZE
+		ENAMETOOLONG ENETDOWN ENETRESET ENETUNREACH ENFILE ENOBUFS
+		ENODATA ENODEV ENOENT ENOEXEC ENOLCK ENOLINK ENOMEM ENOMSG
+		ENOPROTOOPT ENOSPC ENOSR ENOSTR ENOSYS ENOTBLK ENOTCONN ENOTDIR
+		ENOTEMPTY ENOTRECOVERABLE ENOTSOCK ENOTSUP ENOTTY ENXIO
+		EOPNOTSUPP EOTHER EOVERFLOW EOWNERDEAD EPERM EPFNOSUPPORT EPIPE
+		EPROCLIM EPROTO EPROTONOSUPPORT EPROTOTYPE ERANGE EREMOTE
+		ERESTART EROFS ESHUTDOWN ESOCKTNOSUPPORT ESPIPE ESRCH ESTALE
+		ETIME ETIMEDOUT ETOOMANYREFS ETXTBSY EUSERS EWOULDBLOCK EXDEV
+		errno)],
+
+    fcntl_h =>	[qw(FD_CLOEXEC F_DUPFD F_GETFD F_GETFL F_GETLK F_RDLCK
+		F_SETFD F_SETFL F_SETLK F_SETLKW F_UNLCK F_WRLCK
+		O_ACCMODE O_APPEND O_CREAT O_EXCL O_NOCTTY O_NONBLOCK
+		O_RDONLY O_RDWR O_TRUNC O_WRONLY
+		creat
+		SEEK_CUR SEEK_END SEEK_SET
+		S_IRGRP S_IROTH S_IRUSR S_IRWXG S_IRWXO S_IRWXU
+		S_ISBLK S_ISCHR S_ISDIR S_ISFIFO S_ISGID S_ISREG S_ISUID
+		S_IWGRP S_IWOTH S_IWUSR)],
+
+    float_h =>	[qw(DBL_DIG DBL_EPSILON DBL_MANT_DIG
+		DBL_MAX DBL_MAX_10_EXP DBL_MAX_EXP
+		DBL_MIN DBL_MIN_10_EXP DBL_MIN_EXP
+		FLT_DIG FLT_EPSILON FLT_MANT_DIG
+		FLT_MAX FLT_MAX_10_EXP FLT_MAX_EXP
+		FLT_MIN FLT_MIN_10_EXP FLT_MIN_EXP
+		FLT_RADIX FLT_ROUNDS
+		LDBL_DIG LDBL_EPSILON LDBL_MANT_DIG
+		LDBL_MAX LDBL_MAX_10_EXP LDBL_MAX_EXP
+		LDBL_MIN LDBL_MIN_10_EXP LDBL_MIN_EXP)],
+
+    grp_h =>	[],
+
+    limits_h =>	[qw( ARG_MAX CHAR_BIT CHAR_MAX CHAR_MIN CHILD_MAX
+		INT_MAX INT_MIN LINK_MAX LONG_MAX LONG_MIN MAX_CANON
+		MAX_INPUT MB_LEN_MAX NAME_MAX NGROUPS_MAX OPEN_MAX
+		PATH_MAX PIPE_BUF SCHAR_MAX SCHAR_MIN SHRT_MAX SHRT_MIN
+		SSIZE_MAX STREAM_MAX TZNAME_MAX UCHAR_MAX UINT_MAX
+		ULONG_MAX USHRT_MAX _POSIX_ARG_MAX _POSIX_CHILD_MAX
+		_POSIX_LINK_MAX _POSIX_MAX_CANON _POSIX_MAX_INPUT
+		_POSIX_NAME_MAX _POSIX_NGROUPS_MAX _POSIX_OPEN_MAX
+		_POSIX_PATH_MAX _POSIX_PIPE_BUF _POSIX_SSIZE_MAX
+		_POSIX_STREAM_MAX _POSIX_TZNAME_MAX)],
+
+    locale_h =>	[qw(LC_ALL LC_COLLATE LC_CTYPE LC_MESSAGES
+		    LC_MONETARY LC_NUMERIC LC_TIME NULL
+		    localeconv setlocale)],
+
+    math_h =>   [qw(FP_ILOGB0 FP_ILOGBNAN FP_INFINITE FP_NAN FP_NORMAL
+                    FP_SUBNORMAL FP_ZERO
+                    M_1_PI M_2_PI M_2_SQRTPI M_E M_LN10 M_LN2 M_LOG10E M_LOG2E
+                    M_PI M_PI_2 M_PI_4 M_SQRT1_2 M_SQRT2
+                    HUGE_VAL INFINITY NAN
+                    acos asin atan ceil cosh fabs floor fmod
+		    frexp ldexp log10 modf pow sinh tan tanh)],
+
+    pwd_h =>	[],
+
+    setjmp_h =>	[qw(longjmp setjmp siglongjmp sigsetjmp)],
+
+    signal_h =>	[qw(SA_NOCLDSTOP SA_NOCLDWAIT SA_NODEFER SA_ONSTACK
+		SA_RESETHAND SA_RESTART SA_SIGINFO SIGABRT SIGALRM
+		SIGCHLD SIGCONT SIGFPE SIGHUP SIGILL SIGINT SIGKILL
+		SIGPIPE %SIGRT SIGRTMIN SIGRTMAX SIGQUIT SIGSEGV SIGSTOP
+		SIGTERM SIGTSTP SIGTTIN SIGTTOU SIGUSR1 SIGUSR2 SIGBUS
+		SIGPOLL SIGPROF SIGSYS SIGTRAP SIGURG SIGVTALRM SIGXCPU SIGXFSZ
+		SIG_BLOCK SIG_DFL SIG_ERR SIG_IGN SIG_SETMASK SIG_UNBLOCK
+		raise sigaction signal sigpending sigprocmask sigsuspend)],
+
+    stdarg_h =>	[],
+
+    stddef_h =>	[qw(NULL offsetof)],
+
+    stdio_h =>	[qw(BUFSIZ EOF FILENAME_MAX L_ctermid L_cuserid
+		L_tmpname NULL SEEK_CUR SEEK_END SEEK_SET
+		STREAM_MAX TMP_MAX stderr stdin stdout
+		clearerr fclose fdopen feof ferror fflush fgetc fgetpos
+		fgets fopen fprintf fputc fputs fread freopen
+		fscanf fseek fsetpos ftell fwrite getchar gets
+		perror putc putchar puts remove rewind
+		scanf setbuf setvbuf sscanf tmpfile tmpnam
+		ungetc vfprintf vprintf vsprintf)],
+
+    stdlib_h =>	[qw(EXIT_FAILURE EXIT_SUCCESS MB_CUR_MAX NULL RAND_MAX
+		abort atexit atof atoi atol bsearch calloc div
+		free getenv labs ldiv malloc mblen mbstowcs mbtowc
+		qsort realloc strtod strtol strtoul wcstombs wctomb)],
+
+    string_h =>	[qw(NULL memchr memcmp memcpy memmove memset strcat
+		strchr strcmp strcoll strcpy strcspn strerror strlen
+		strncat strncmp strncpy strpbrk strrchr strspn strstr
+		strtok strxfrm)],
+
+    sys_stat_h => [qw(S_IRGRP S_IROTH S_IRUSR S_IRWXG S_IRWXO S_IRWXU
+		S_ISBLK S_ISCHR S_ISDIR S_ISFIFO S_ISGID S_ISREG
+		S_ISUID S_IWGRP S_IWOTH S_IWUSR S_IXGRP S_IXOTH S_IXUSR
+		fstat mkfifo)],
+
+    sys_times_h => [],
+
+    sys_types_h => [],
+
+    sys_utsname_h => [qw(uname)],
+
+    sys_wait_h => [qw(WEXITSTATUS WIFEXITED WIFSIGNALED WIFSTOPPED
+		WNOHANG WSTOPSIG WTERMSIG WUNTRACED)],
+
+    termios_h => [qw( B0 B110 B1200 B134 B150 B1800 B19200 B200 B2400
+		B300 B38400 B4800 B50 B600 B75 B9600 BRKINT CLOCAL
+		CREAD CS5 CS6 CS7 CS8 CSIZE CSTOPB ECHO ECHOE ECHOK
+		ECHONL HUPCL ICANON ICRNL IEXTEN IGNBRK IGNCR IGNPAR
+		INLCR INPCK ISIG ISTRIP IXOFF IXON NCCS NOFLSH OPOST
+		PARENB PARMRK PARODD TCIFLUSH TCIOFF TCIOFLUSH TCION
+		TCOFLUSH TCOOFF TCOON TCSADRAIN TCSAFLUSH TCSANOW
+		TOSTOP VEOF VEOL VERASE VINTR VKILL VMIN VQUIT VSTART
+		VSTOP VSUSP VTIME
+		cfgetispeed cfgetospeed cfsetispeed cfsetospeed tcdrain
+		tcflow tcflush tcgetattr tcsendbreak tcsetattr )],
+
+    time_h =>	[qw(CLK_TCK CLOCKS_PER_SEC NULL asctime clock ctime
+		difftime mktime strftime tzset tzname)],
+
+    unistd_h =>	[qw(F_OK NULL R_OK SEEK_CUR SEEK_END SEEK_SET
+		STDERR_FILENO STDIN_FILENO STDOUT_FILENO W_OK X_OK
+		_PC_CHOWN_RESTRICTED _PC_LINK_MAX _PC_MAX_CANON
+		_PC_MAX_INPUT _PC_NAME_MAX _PC_NO_TRUNC _PC_PATH_MAX
+		_PC_PIPE_BUF _PC_VDISABLE _POSIX_CHOWN_RESTRICTED
+		_POSIX_JOB_CONTROL _POSIX_NO_TRUNC _POSIX_SAVED_IDS
+		_POSIX_VDISABLE _POSIX_VERSION _SC_ARG_MAX
+		_SC_CHILD_MAX _SC_CLK_TCK _SC_JOB_CONTROL
+		_SC_NGROUPS_MAX _SC_OPEN_MAX _SC_PAGESIZE _SC_SAVED_IDS
+		_SC_STREAM_MAX _SC_TZNAME_MAX _SC_VERSION
+		_exit access ctermid cuserid
+		dup2 dup execl execle execlp execv execve execvp
+		fpathconf fsync getcwd getegid geteuid getgid getgroups
+		getpid getuid isatty lseek pathconf pause setgid setpgid
+		setsid setuid sysconf tcgetpgrp tcsetpgrp ttyname)],
+
+    utime_h =>	[],
+);
+
+if ($^O eq 'MSWin32') {
+    $default_export_tags{winsock_h} = [qw(
+	WSAEINTR WSAEBADF WSAEACCES WSAEFAULT WSAEINVAL WSAEMFILE WSAEWOULDBLOCK
+	WSAEINPROGRESS WSAEALREADY WSAENOTSOCK WSAEDESTADDRREQ WSAEMSGSIZE
+	WSAEPROTOTYPE WSAENOPROTOOPT WSAEPROTONOSUPPORT WSAESOCKTNOSUPPORT
+	WSAEOPNOTSUPP WSAEPFNOSUPPORT WSAEAFNOSUPPORT WSAEADDRINUSE
+	WSAEADDRNOTAVAIL WSAENETDOWN WSAENETUNREACH WSAENETRESET WSAECONNABORTED
+	WSAECONNRESET WSAENOBUFS WSAEISCONN WSAENOTCONN WSAESHUTDOWN
+	WSAETOOMANYREFS WSAETIMEDOUT WSAECONNREFUSED WSAELOOP WSAENAMETOOLONG
+	WSAEHOSTDOWN WSAEHOSTUNREACH WSAENOTEMPTY WSAEPROCLIM WSAEUSERS
+	WSAEDQUOT WSAESTALE WSAEREMOTE WSAEDISCON WSAENOMORE WSAECANCELLED
+	WSAEINVALIDPROCTABLE WSAEINVALIDPROVIDER WSAEPROVIDERFAILEDINIT
+	WSAEREFUSED)];
+}
+
+my %other_export_tags = ( # cf. exports policy below
+    fenv_h => [qw(
+        FE_DOWNWARD FE_TONEAREST FE_TOWARDZERO FE_UPWARD fegetround fesetround
+    )],
+
+    math_h_c99 => [ @{$default_export_tags{math_h}}, qw(
+        Inf NaN acosh asinh atanh cbrt copysign erf erfc exp2 expm1 fdim fma
+        fmax fmin fpclassify hypot ilogb isfinite isgreater isgreaterequal
+        isinf isless islessequal islessgreater isnan isnormal isunordered j0 j1
+        jn lgamma log1p log2 logb lrint nan nearbyint nextafter nexttoward
+        remainder remquo rint round scalbn signbit tgamma trunc y0 y1 yn
+    )],
+
+    stdlib_h_c99 => [ @{$default_export_tags{stdlib_h}}, 'strtold' ],
+
+    nan_payload => [ qw(getpayload setpayload setpayloadsig issignaling) ],
+
+    signal_h_si_code => [qw(
+        ILL_ILLOPC ILL_ILLOPN ILL_ILLADR ILL_ILLTRP ILL_PRVOPC ILL_PRVREG
+        ILL_COPROC ILL_BADSTK
+        FPE_INTDIV FPE_INTOVF FPE_FLTDIV FPE_FLTOVF FPE_FLTUND
+        FPE_FLTRES FPE_FLTINV FPE_FLTSUB
+        SEGV_MAPERR SEGV_ACCERR
+        BUS_ADRALN BUS_ADRERR BUS_OBJERR
+        TRAP_BRKPT TRAP_TRACE
+        CLD_EXITED CLD_KILLED CLD_DUMPED CLD_TRAPPED CLD_STOPPED CLD_CONTINUED
+        POLL_IN POLL_OUT POLL_MSG POLL_ERR POLL_PRI POLL_HUP
+        SI_USER SI_QUEUE SI_TIMER SI_ASYNCIO SI_MESGQ
+  )],
+);
+
+# exports policy:
+# - new functions may not be added to @EXPORT, only to @EXPORT_OK
+# - new SHOUTYCONSTANTS are OK to add to @EXPORT
+
+{
+  # De-duplicate the export list: 
+  my ( %export, %export_ok );
+  @export   {map {@$_} values %default_export_tags} = ();
+  @export_ok{map {@$_} values   %other_export_tags} = ();
+  # Doing the de-dup with a temporary hash has the advantage that the SVs in
+  # @EXPORT are actually shared hash key scalars, which will save some memory.
+  our @EXPORT = keys %export;
+
+  # you do not want to add symbols to the following list. add a new tag instead
+  our @EXPORT_OK = (qw(close lchown nice open pipe read sleep times write
+		       printf sprintf lround),
+                    # lround() should really be in the :math_h_c99 tag, but
+                    # we're too far into the 5.24 code freeze for that to be
+                    # done now. This can be revisited in the 5.25.x cycle.
+		    grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok);
+
+  our %EXPORT_TAGS = ( %default_export_tags, %other_export_tags );
+}
+
+require Exporter;
+}
+
+package POSIX::SigAction;
+
+sub new { bless {HANDLER => $_[1], MASK => $_[2], FLAGS => $_[3] || 0, SAFE => 0}, $_[0] }
+sub handler { $_[0]->{HANDLER} = $_[1] if @_ > 1; $_[0]->{HANDLER} };
+sub mask    { $_[0]->{MASK}    = $_[1] if @_ > 1; $_[0]->{MASK} };
+sub flags   { $_[0]->{FLAGS}   = $_[1] if @_ > 1; $_[0]->{FLAGS} };
+sub safe    { $_[0]->{SAFE}    = $_[1] if @_ > 1; $_[0]->{SAFE} };
+
+{
+package POSIX::SigSet;
+# This package is here entirely to make sure that POSIX::SigSet is seen by the
+# PAUSE indexer, so that it will always be clearly indexed in core.  This is to
+# prevent the accidental case where a third-party distribution can accidentally
+# claim the POSIX::SigSet package, as occurred in 2011-12. -- rjbs, 2011-12-30
+}
+
+package POSIX::SigRt;
+
+require Tie::Hash;
+
+our @ISA = 'Tie::StdHash';
+
+our ($_SIGRTMIN, $_SIGRTMAX, $_sigrtn);
+
+our $SIGACTION_FLAGS = 0;
+
+sub _init {
+    $_SIGRTMIN = &POSIX::SIGRTMIN;
+    $_SIGRTMAX = &POSIX::SIGRTMAX;
+    $_sigrtn   = $_SIGRTMAX - $_SIGRTMIN;
+}
+
+sub _croak {
+    &_init unless defined $_sigrtn;
+    die "POSIX::SigRt not available" unless defined $_sigrtn && $_sigrtn > 0;
+}
+
+sub _getsig {
+    &_croak;
+    my $rtsig = $_[0];
+    # Allow (SIGRT)?MIN( + n)?, a common idiom when doing these things in C.
+    $rtsig = $_SIGRTMIN + ($1 || 0)
+	if $rtsig =~ /^(?:(?:SIG)?RT)?MIN(\s*\+\s*(\d+))?$/;
+    return $rtsig;
+}
+
+sub _exist {
+    my $rtsig = _getsig($_[1]);
+    my $ok    = $rtsig >= $_SIGRTMIN && $rtsig <= $_SIGRTMAX;
+    ($rtsig, $ok);
+}
+
+sub _check {
+    my ($rtsig, $ok) = &_exist;
+    die "No POSIX::SigRt signal $_[1] (valid range SIGRTMIN..SIGRTMAX, or $_SIGRTMIN..$_SIGRTMAX)"
+	unless $ok;
+    return $rtsig;
+}
+
+sub new {
+    my ($rtsig, $handler, $flags) = @_;
+    my $sigset = POSIX::SigSet->new($rtsig);
+    my $sigact = POSIX::SigAction->new($handler, $sigset, $flags);
+    POSIX::sigaction($rtsig, $sigact);
+}
+
+sub EXISTS { &_exist }
+sub FETCH  { my $rtsig = &_check;
+	     my $oa = POSIX::SigAction->new();
+	     POSIX::sigaction($rtsig, undef, $oa);
+	     return $oa->{HANDLER} }
+sub STORE  { my $rtsig = &_check; new($rtsig, $_[2], $SIGACTION_FLAGS) }
+sub DELETE { delete $SIG{ &_check } }
+sub CLEAR  { &_exist; delete @SIG{ &POSIX::SIGRTMIN .. &POSIX::SIGRTMAX } }
+sub SCALAR { &_croak; $_sigrtn + 1 }
+
+tie %POSIX::SIGRT, 'POSIX::SigRt';
+# and the expression on the line above is true, so we return true.
diff --git a/lib/5.24.1/x86_64-linux/POSIX.pod b/lib/5.24.1/x86_64-linux/POSIX.pod
new file mode 100644
index 00000000..1d263a7b
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/POSIX.pod
@@ -0,0 +1,2704 @@
+=head1 NAME
+
+POSIX - Perl interface to IEEE Std 1003.1
+
+=head1 SYNOPSIS
+
+    use POSIX ();
+    use POSIX qw(setsid);
+    use POSIX qw(:errno_h :fcntl_h);
+
+    printf "EINTR is %d\n", EINTR;
+
+    $sess_id = POSIX::setsid();
+
+    $fd = POSIX::open($path, O_CREAT|O_EXCL|O_WRONLY, 0644);
+	# note: that's a filedescriptor, *NOT* a filehandle
+
+=head1 DESCRIPTION
+
+The POSIX module permits you to access all (or nearly all) the standard
+POSIX 1003.1 identifiers.  Many of these identifiers have been given Perl-ish
+interfaces.
+
+This document gives a condensed list of the features available in the POSIX
+module.  Consult your operating system's manpages for general information on
+most features.  Consult L<perlfunc> for functions which are noted as being
+identical to Perl's builtin functions.
+
+The first section describes POSIX functions from the 1003.1 specification.
+The second section describes some classes for signal objects, TTY objects,
+and other miscellaneous objects.  The remaining sections list various
+constants and macros in an organization which roughly follows IEEE Std
+1003.1b-1993.
+
+=head1 CAVEATS
+
+I<Everything is exported by default> (with a handful of exceptions).
+This is an unfortunate backwards compatibility feature and its use is
+B<strongly L<discouraged|perlpolicy/discouraged>>.
+You should either prevent the exporting (by saying S<C<use POSIX ();>>,
+as usual) and then use fully qualified names (e.g. C<POSIX::SEEK_END>),
+or give an explicit import list.
+If you do neither and opt for the default (as in S<C<use POSIX;>>), you
+will import I<hundreds and hundreds> of symbols into your namespace.
+
+A few functions are not implemented because they are C specific.  If you
+attempt to call these, they will print a message telling you that they
+aren't implemented, and suggest using the Perl equivalent, should one
+exist.  For example, trying to access the C<setjmp()> call will elicit the
+message "C<setjmp() is C-specific: use eval {} instead>".
+
+Furthermore, some evil vendors will claim 1003.1 compliance, but in fact
+are not so: they will not pass the PCTS (POSIX Compliance Test Suites).
+For example, one vendor may not define C<EDEADLK>, or the semantics of the
+errno values set by C<open(2)> might not be quite right.  Perl does not
+attempt to verify POSIX compliance.  That means you can currently
+successfully say "use POSIX",  and then later in your program you find
+that your vendor has been lax and there's no usable C<ICANON> macro after
+all.  This could be construed to be a bug.
+
+=head1 FUNCTIONS
+
+=over 8
+
+=item C<_exit>
+
+This is identical to the C function C<_exit()>.  It exits the program
+immediately which means among other things buffered I/O is B<not> flushed.
+
+Note that when using threads and in Linux this is B<not> a good way to
+exit a thread because in Linux processes and threads are kind of the
+same thing (Note: while this is the situation in early 2003 there are
+projects under way to have threads with more POSIXly semantics in Linux).
+If you want not to return from a thread, detach the thread.
+
+=item C<abort>
+
+This is identical to the C function C<abort()>.  It terminates the
+process with a C<SIGABRT> signal unless caught by a signal handler or
+if the handler does not return normally (it e.g.  does a C<longjmp>).
+
+=item C<abs>
+
+This is identical to Perl's builtin C<abs()> function, returning
+the absolute value of its numerical argument.
+
+=item C<access>
+
+Determines the accessibility of a file.
+
+	if( POSIX::access( "/", &POSIX::R_OK ) ){
+		print "have read permission\n";
+	}
+
+Returns C<undef> on failure.  Note: do not use C<access()> for
+security purposes.  Between the C<access()> call and the operation
+you are preparing for the permissions might change: a classic
+I<race condition>.
+
+=item C<acos>
+
+This is identical to the C function C<acos()>, returning
+the arcus cosine of its numerical argument.  See also L<Math::Trig>.
+
+=item C<acosh>
+
+This is identical to the C function C<acosh()>, returning the
+hyperbolic arcus cosine of its numerical argument [C99].  See also
+L<Math::Trig>.
+
+=item C<alarm>
+
+This is identical to Perl's builtin C<alarm()> function,
+either for arming or disarming the C<SIGARLM> timer.
+
+=item C<asctime>
+
+This is identical to the C function C<asctime()>.  It returns
+a string of the form
+
+	"Fri Jun  2 18:22:13 2000\n\0"
+
+and it is called thusly
+
+	$asctime = asctime($sec, $min, $hour, $mday, $mon,
+			   $year, $wday, $yday, $isdst);
+
+The C<$mon> is zero-based: January equals C<0>.  The C<$year> is
+1900-based: 2001 equals C<101>.  C<$wday> and C<$yday> default to zero
+(and are usually ignored anyway), and C<$isdst> defaults to -1.
+
+=item C<asin>
+
+This is identical to the C function C<asin()>, returning
+the arcus sine of its numerical argument.  See also L<Math::Trig>.
+
+=item C<asinh>
+
+This is identical to the C function C<asinh()>, returning the
+hyperbolic arcus sine of its numerical argument [C99].  See also
+L<Math::Trig>.
+
+=item C<assert>
+
+Unimplemented, but you can use L<perlfunc/die> and the L<Carp> module
+to achieve similar things.
+
+=item C<atan>
+
+This is identical to the C function C<atan()>, returning the
+arcus tangent of its numerical argument.  See also L<Math::Trig>.
+
+=item C<atanh>
+
+This is identical to the C function C<atanh()>, returning the
+hyperbolic arcus tangent of its numerical argument [C99].  See also
+L<Math::Trig>.
+
+=item C<atan2>
+
+This is identical to Perl's builtin C<atan2()> function, returning
+the arcus tangent defined by its two numerical arguments, the I<y>
+coordinate and the I<x> coordinate.  See also L<Math::Trig>.
+
+=item C<atexit>
+
+Not implemented.  C<atexit()> is C-specific: use C<END {}> instead, see L<perlmod>.
+
+=item C<atof>
+
+Not implemented.  C<atof()> is C-specific.  Perl converts strings to numbers transparently.
+If you need to force a scalar to a number, add a zero to it.
+
+=item C<atoi>
+
+Not implemented.  C<atoi()> is C-specific.  Perl converts strings to numbers transparently.
+If you need to force a scalar to a number, add a zero to it.
+If you need to have just the integer part, see L<perlfunc/int>.
+
+=item C<atol>
+
+Not implemented.  C<atol()> is C-specific.  Perl converts strings to numbers transparently.
+If you need to force a scalar to a number, add a zero to it.
+If you need to have just the integer part, see L<perlfunc/int>.
+
+=item C<bsearch>
+
+C<bsearch()> not supplied.  For doing binary search on wordlists,
+see L<Search::Dict>.
+
+=item C<calloc>
+
+Not implemented.  C<calloc()> is C-specific.  Perl does memory management transparently.
+
+=item C<cbrt>
+
+The cube root [C99].
+
+=item C<ceil>
+
+This is identical to the C function C<ceil()>, returning the smallest
+integer value greater than or equal to the given numerical argument.
+
+=item C<chdir>
+
+This is identical to Perl's builtin C<chdir()> function, allowing
+one to change the working (default) directory, see L<perlfunc/chdir>.
+
+=item C<chmod>
+
+This is identical to Perl's builtin C<chmod()> function, allowing
+one to change file and directory permissions, see L<perlfunc/chmod>.
+
+=item C<chown>
+
+This is identical to Perl's builtin C<chown()> function, allowing one
+to change file and directory owners and groups, see L<perlfunc/chown>.
+
+=item C<clearerr>
+
+Not implemented.  Use the method C<IO::Handle::clearerr()> instead, to reset the error
+state (if any) and EOF state (if any) of the given stream.
+
+=item C<clock>
+
+This is identical to the C function C<clock()>, returning the
+amount of spent processor time in microseconds.
+
+=item C<close>
+
+Close the file.  This uses file descriptors such as those obtained by calling
+C<POSIX::open>.
+
+	$fd = POSIX::open( "foo", &POSIX::O_RDONLY );
+	POSIX::close( $fd );
+
+Returns C<undef> on failure.
+
+See also L<perlfunc/close>.
+
+=item C<closedir>
+
+This is identical to Perl's builtin C<closedir()> function for closing
+a directory handle, see L<perlfunc/closedir>.
+
+=item C<cos>
+
+This is identical to Perl's builtin C<cos()> function, for returning
+the cosine of its numerical argument, see L<perlfunc/cos>.
+See also L<Math::Trig>.
+
+=item C<cosh>
+
+This is identical to the C function C<cosh()>, for returning
+the hyperbolic cosine of its numeric argument.  See also L<Math::Trig>.
+
+=item C<copysign>
+
+Returns C<x> but with the sign of C<y> [C99].
+
+ $x_with_sign_of_y = POSIX::copysign($x, $y);
+
+See also L</signbit>.
+
+=item C<creat>
+
+Create a new file.  This returns a file descriptor like the ones returned by
+C<POSIX::open>.  Use C<POSIX::close> to close the file.
+
+	$fd = POSIX::creat( "foo", 0611 );
+	POSIX::close( $fd );
+
+See also L<perlfunc/sysopen> and its C<O_CREAT> flag.
+
+=item C<ctermid>
+
+Generates the path name for the controlling terminal.
+
+	$path = POSIX::ctermid();
+
+=item C<ctime>
+
+This is identical to the C function C<ctime()> and equivalent
+to C<asctime(localtime(...))>, see L</asctime> and L</localtime>.
+
+=item C<cuserid>
+
+Get the login name of the owner of the current process.
+
+	$name = POSIX::cuserid();
+
+=item C<difftime>
+
+This is identical to the C function C<difftime()>, for returning
+the time difference (in seconds) between two times (as returned
+by C<time()>), see L</time>.
+
+=item C<div>
+
+Not implemented.  C<div()> is C-specific, use L<perlfunc/int> on the usual C</> division and
+the modulus C<%>.
+
+=item C<dup>
+
+This is similar to the C function C<dup()>, for duplicating a file
+descriptor.
+
+This uses file descriptors such as those obtained by calling
+C<POSIX::open>.
+
+Returns C<undef> on failure.
+
+=item C<dup2>
+
+This is similar to the C function C<dup2()>, for duplicating a file
+descriptor to an another known file descriptor.
+
+This uses file descriptors such as those obtained by calling
+C<POSIX::open>.
+
+Returns C<undef> on failure.
+
+=item C<erf>
+
+The error function [C99].
+
+=item C<erfc>
+
+The complementary error function [C99].
+
+=item C<errno>
+
+Returns the value of errno.
+
+	$errno = POSIX::errno();
+
+This identical to the numerical values of the C<$!>, see L<perlvar/$ERRNO>.
+
+=item C<execl>
+
+Not implemented.  C<execl()> is C-specific, see L<perlfunc/exec>.
+
+=item C<execle>
+
+Not implemented.  C<execle()> is C-specific, see L<perlfunc/exec>.
+
+=item C<execlp>
+
+Not implemented.  C<execlp()> is C-specific, see L<perlfunc/exec>.
+
+=item C<execv>
+
+Not implemented.  C<execv()> is C-specific, see L<perlfunc/exec>.
+
+=item C<execve>
+
+Not implemented.  C<execve()> is C-specific, see L<perlfunc/exec>.
+
+=item C<execvp>
+
+Not implemented.  C<execvp()> is C-specific, see L<perlfunc/exec>.
+
+=item C<exit>
+
+This is identical to Perl's builtin C<exit()> function for exiting the
+program, see L<perlfunc/exit>.
+
+=item C<exp>
+
+This is identical to Perl's builtin C<exp()> function for
+returning the exponent (I<e>-based) of the numerical argument,
+see L<perlfunc/exp>.
+
+=item C<expm1>
+
+Equivalent to C<exp(x) - 1>, but more precise for small argument values [C99].
+
+See also L</log1p>.
+
+=item C<fabs>
+
+This is identical to Perl's builtin C<abs()> function for returning
+the absolute value of the numerical argument, see L<perlfunc/abs>.
+
+=item C<fclose>
+
+Not implemented.  Use method C<IO::Handle::close()> instead, or see L<perlfunc/close>.
+
+=item C<fcntl>
+
+This is identical to Perl's builtin C<fcntl()> function,
+see L<perlfunc/fcntl>.
+
+=item C<fdopen>
+
+Not implemented.  Use method C<IO::Handle::new_from_fd()> instead, or see L<perlfunc/open>.
+
+=item C<feof>
+
+Not implemented.  Use method C<IO::Handle::eof()> instead, or see L<perlfunc/eof>.
+
+=item C<ferror>
+
+Not implemented.  Use method C<IO::Handle::error()> instead.
+
+=item C<fflush>
+
+Not implemented.  Use method C<IO::Handle::flush()> instead.
+See also C<L<perlvar/$OUTPUT_AUTOFLUSH>>.
+
+=item C<fgetc>
+
+Not implemented.  Use method C<IO::Handle::getc()> instead, or see L<perlfunc/read>.
+
+=item C<fgetpos>
+
+Not implemented.  Use method C<IO::Seekable::getpos()> instead, or see L<perlfunc/seek>.
+
+=item C<fgets>
+
+Not implemented.  Use method C<IO::Handle::gets()> instead.  Similar to E<lt>E<gt>, also known
+as L<perlfunc/readline>.
+
+=item C<fileno>
+
+Not implemented.  Use method C<IO::Handle::fileno()> instead, or see L<perlfunc/fileno>.
+
+=item C<floor>
+
+This is identical to the C function C<floor()>, returning the largest
+integer value less than or equal to the numerical argument.
+
+=item C<fdim>
+
+"Positive difference", S<C<x - y>> if S<C<x E<gt> y>>, zero otherwise [C99].
+
+=item C<fegetround>
+
+Returns the current floating point rounding mode, one of
+
+  FE_TONEAREST FE_TOWARDZERO FE_UPWARD FE_UPWARD
+
+C<FE_TONEAREST> is like L</round>, C<FE_TOWARDZERO> is like L</trunc> [C99].
+
+=item C<fesetround>
+
+Sets the floating point rounding mode, see L</fegetround> [C99].
+
+=item C<fma>
+
+"Fused multiply-add", S<C<x * y + z>>, possibly faster (and less lossy)
+than the explicit two operations [C99].
+
+ my $fused = POSIX::fma($x, $y, $z);
+
+=item C<fmax>
+
+Maximum of C<x> and C<y>, except when either is C<NaN>, returns the other [C99].
+
+ my $min = POSIX::fmax($x, $y);
+
+=item C<fmin>
+
+Minimum of C<x> and C<y>, except when either is C<NaN>, returns the other [C99].
+
+ my $min = POSIX::fmin($x, $y);
+
+=item C<fmod>
+
+This is identical to the C function C<fmod()>.
+
+	$r = fmod($x, $y);
+
+It returns the remainder S<C<$r = $x - $n*$y>>, where S<C<$n = trunc($x/$y)>>.
+The C<$r> has the same sign as C<$x> and magnitude (absolute value)
+less than the magnitude of C<$y>.
+
+=item C<fopen>
+
+Not implemented.  Use method C<IO::File::open()> instead, or see L<perlfunc/open>.
+
+=item C<fork>
+
+This is identical to Perl's builtin C<fork()> function
+for duplicating the current process, see L<perlfunc/fork>
+and L<perlfork> if you are in Windows.
+
+=item C<fpathconf>
+
+Retrieves the value of a configurable limit on a file or directory.  This
+uses file descriptors such as those obtained by calling C<POSIX::open>.
+
+The following will determine the maximum length of the longest allowable
+pathname on the filesystem which holds F</var/foo>.
+
+	$fd = POSIX::open( "/var/foo", &POSIX::O_RDONLY );
+	$path_max = POSIX::fpathconf($fd, &POSIX::_PC_PATH_MAX);
+
+Returns C<undef> on failure.
+
+=item C<fpclassify>
+
+Returns one of
+
+  FP_NORMAL FP_ZERO FP_SUBNORMAL FP_INFINITE FP_NAN
+
+telling the class of the argument [C99].  C<FP_INFINITE> is positive
+or negative infinity, C<FP_NAN> is not-a-number.  C<FP_SUBNORMAL>
+means subnormal numbers (also known as denormals), very small numbers
+with low precision. C<FP_ZERO> is zero.  C<FP_NORMAL> is all the rest.
+
+=item C<fprintf>
+
+Not implemented.  C<fprintf()> is C-specific, see L<perlfunc/printf> instead.
+
+=item C<fputc>
+
+Not implemented.  C<fputc()> is C-specific, see L<perlfunc/print> instead.
+
+=item C<fputs>
+
+Not implemented.  C<fputs()> is C-specific, see L<perlfunc/print> instead.
+
+=item C<fread>
+
+Not implemented.  C<fread()> is C-specific, see L<perlfunc/read> instead.
+
+=item C<free>
+
+Not implemented.  C<free()> is C-specific.  Perl does memory management transparently.
+
+=item C<freopen>
+
+Not implemented.  C<freopen()> is C-specific, see L<perlfunc/open> instead.
+
+=item C<frexp>
+
+Return the mantissa and exponent of a floating-point number.
+
+	($mantissa, $exponent) = POSIX::frexp( 1.234e56 );
+
+=item C<fscanf>
+
+Not implemented.  C<fscanf()> is C-specific, use E<lt>E<gt> and regular expressions instead.
+
+=item C<fseek>
+
+Not implemented.  Use method C<IO::Seekable::seek()> instead, or see L<perlfunc/seek>.
+
+=item C<fsetpos>
+
+Not implemented.  Use method C<IO::Seekable::setpos()> instead, or seek L<perlfunc/seek>.
+
+=item C<fstat>
+
+Get file status.  This uses file descriptors such as those obtained by
+calling C<POSIX::open>.  The data returned is identical to the data from
+Perl's builtin C<stat> function.
+
+	$fd = POSIX::open( "foo", &POSIX::O_RDONLY );
+	@stats = POSIX::fstat( $fd );
+
+=item C<fsync>
+
+Not implemented.  Use method C<IO::Handle::sync()> instead.
+
+=item C<ftell>
+
+Not implemented.  Use method C<IO::Seekable::tell()> instead, or see L<perlfunc/tell>.
+
+=item C<fwrite>
+
+Not implemented.  C<fwrite()> is C-specific, see L<perlfunc/print> instead.
+
+=item C<getc>
+
+This is identical to Perl's builtin C<getc()> function,
+see L<perlfunc/getc>.
+
+=item C<getchar>
+
+Returns one character from STDIN.  Identical to Perl's C<getc()>,
+see L<perlfunc/getc>.
+
+=item C<getcwd>
+
+Returns the name of the current working directory.
+See also L<Cwd>.
+
+=item C<getegid>
+
+Returns the effective group identifier.  Similar to Perl' s builtin
+variable C<$(>, see L<perlvar/$EGID>.
+
+=item C<getenv>
+
+Returns the value of the specified environment variable.
+The same information is available through the C<%ENV> array.
+
+=item C<geteuid>
+
+Returns the effective user identifier.  Identical to Perl's builtin C<$E<gt>>
+variable, see L<perlvar/$EUID>.
+
+=item C<getgid>
+
+Returns the user's real group identifier.  Similar to Perl's builtin
+variable C<$)>, see L<perlvar/$GID>.
+
+=item C<getgrgid>
+
+This is identical to Perl's builtin C<getgrgid()> function for
+returning group entries by group identifiers, see
+L<perlfunc/getgrgid>.
+
+=item C<getgrnam>
+
+This is identical to Perl's builtin C<getgrnam()> function for
+returning group entries by group names, see L<perlfunc/getgrnam>.
+
+=item C<getgroups>
+
+Returns the ids of the user's supplementary groups.  Similar to Perl's
+builtin variable C<$)>, see L<perlvar/$GID>.
+
+=item C<getlogin>
+
+This is identical to Perl's builtin C<getlogin()> function for
+returning the user name associated with the current session, see
+L<perlfunc/getlogin>.
+
+=item C<getpayload>
+
+	use POSIX ':nan_payload';
+	getpayload($var)
+
+Returns the C<NaN> payload.
+
+Note the API instability warning in L</setpayload>.
+
+See L</nan> for more discussion about C<NaN>.
+
+=item C<getpgrp>
+
+This is identical to Perl's builtin C<getpgrp()> function for
+returning the process group identifier of the current process, see
+L<perlfunc/getpgrp>.
+
+=item C<getpid>
+
+Returns the process identifier.  Identical to Perl's builtin
+variable C<$$>, see L<perlvar/$PID>.
+
+=item C<getppid>
+
+This is identical to Perl's builtin C<getppid()> function for
+returning the process identifier of the parent process of the current
+process , see L<perlfunc/getppid>.
+
+=item C<getpwnam>
+
+This is identical to Perl's builtin C<getpwnam()> function for
+returning user entries by user names, see L<perlfunc/getpwnam>.
+
+=item C<getpwuid>
+
+This is identical to Perl's builtin C<getpwuid()> function for
+returning user entries by user identifiers, see L<perlfunc/getpwuid>.
+
+=item C<gets>
+
+Returns one line from C<STDIN>, similar to E<lt>E<gt>, also known
+as the C<readline()> function, see L<perlfunc/readline>.
+
+B<NOTE>: if you have C programs that still use C<gets()>, be very
+afraid.  The C<gets()> function is a source of endless grief because
+it has no buffer overrun checks.  It should B<never> be used.  The
+C<fgets()> function should be preferred instead.
+
+=item C<getuid>
+
+Returns the user's identifier.  Identical to Perl's builtin C<$E<lt>> variable,
+see L<perlvar/$UID>.
+
+=item C<gmtime>
+
+This is identical to Perl's builtin C<gmtime()> function for
+converting seconds since the epoch to a date in Greenwich Mean Time,
+see L<perlfunc/gmtime>.
+
+=item C<hypot>
+
+Equivalent to C<S<sqrt(x * x + y * y)>> except more stable on very large
+or very small arguments [C99].
+
+=item C<ilogb>
+
+Integer binary logarithm [C99]
+
+For example C<ilogb(20)> is 4, as an integer.
+
+See also L</logb>.
+
+=item C<Inf>
+
+The infinity as a constant:
+
+   use POSIX qw(Inf);
+   my $pos_inf = +Inf;  # Or just Inf.
+   my $neg_inf = -Inf;
+
+See also L</isinf>, and L</fpclassify>.
+
+=item C<isalnum>
+
+This function has been removed as of v5.24.  It was very similar to
+matching against S<C<qr/ ^ [[:alnum:]]+ $ /x>>, which you should convert
+to use instead.  See L<perlrecharclass/POSIX Character Classes>.
+
+=item C<isalpha>
+
+This function has been removed as of v5.24.  It was very similar to
+matching against S<C<qr/ ^ [[:alpha:]]+ $ /x>>, which you should convert
+to use instead.  See L<perlrecharclass/POSIX Character Classes>.
+
+=item C<isatty>
+
+Returns a boolean indicating whether the specified filehandle is connected
+to a tty.  Similar to the C<-t> operator, see L<perlfunc/-X>.
+
+=item C<iscntrl>
+
+This function has been removed as of v5.24.  It was very similar to
+matching against S<C<qr/ ^ [[:cntrl:]]+ $ /x>>, which you should convert
+to use instead.  See L<perlrecharclass/POSIX Character Classes>.
+
+=item C<isdigit>
+
+This function has been removed as of v5.24.  It was very similar to
+matching against S<C<qr/ ^ [[:digit:]]+ $ /x>>, which you should convert
+to use instead.  See L<perlrecharclass/POSIX Character Classes>.
+
+=item C<isfinite>
+
+Returns true if the argument is a finite number (that is, not an
+infinity, or the not-a-number) [C99].
+
+See also L</isinf>, L</isnan>, and L</fpclassify>.
+
+=item C<isgraph>
+
+This function has been removed as of v5.24.  It was very similar to
+matching against S<C<qr/ ^ [[:graph:]]+ $ /x>>, which you should convert
+to use instead.  See L<perlrecharclass/POSIX Character Classes>.
+
+=item C<isgreater>
+
+(Also C<isgreaterequal>, C<isless>, C<islessequal>, C<islessgreater>,
+C<isunordered>)
+
+Floating point comparisons which handle the C<NaN> [C99].
+
+=item C<isinf>
+
+Returns true if the argument is an infinity (positive or negative) [C99].
+
+See also L</Inf>, L</isnan>, L</isfinite>, and L</fpclassify>.
+
+=item C<islower>
+
+This function has been removed as of v5.24.  It was very similar to
+matching against S<C<qr/ ^ [[:lower:]]+ $ /x>>, which you should convert
+to use instead.  See L<perlrecharclass/POSIX Character Classes>.
+
+=item C<isnan>
+
+Returns true if the argument is C<NaN> (not-a-number) [C99].
+
+Note that you cannot test for "C<NaN>-ness" with
+
+   $x == $x
+
+since the C<NaN> is not equivalent to anything, B<including itself>.
+
+See also L</nan>, L</NaN>, L</isinf>, and L</fpclassify>.
+
+=item C<isnormal>
+
+Returns true if the argument is normal (that is, not a subnormal/denormal,
+and not an infinity, or a not-a-number) [C99].
+
+See also L</isfinite>, and L</fpclassify>.
+
+=item C<isprint>
+
+This function has been removed as of v5.24.  It was very similar to
+matching against S<C<qr/ ^ [[:print:]]+ $ /x>>, which you should convert
+to use instead.  See L<perlrecharclass/POSIX Character Classes>.
+
+=item C<ispunct>
+
+This function has been removed as of v5.24.  It was very similar to
+matching against S<C<qr/ ^ [[:punct:]]+ $ /x>>, which you should convert
+to use instead.  See L<perlrecharclass/POSIX Character Classes>.
+
+=item C<issignaling>
+
+	use POSIX ':nan_payload';
+	issignaling($var, $payload)
+
+Return true if the argument is a I<signaling> NaN.
+
+Note the API instability warning in L</setpayload>.
+
+See L</nan> for more discussion about C<NaN>.
+
+=item C<isspace>
+
+This function has been removed as of v5.24.  It was very similar to
+matching against S<C<qr/ ^ [[:space:]]+ $ /x>>, which you should convert
+to use instead.  See L<perlrecharclass/POSIX Character Classes>.
+
+=item C<isupper>
+
+This function has been removed as of v5.24.  It was very similar to
+matching against S<C<qr/ ^ [[:upper:]]+ $ /x>>, which you should convert
+to use instead.  See L<perlrecharclass/POSIX Character Classes>.
+
+=item C<isxdigit>
+
+This function has been removed as of v5.24.  It was very similar to
+matching against S<C<qr/ ^ [[:xdigit:]]+ $ /x>>, which you should
+convert to use instead.  See L<perlrecharclass/POSIX Character Classes>.
+
+=item C<j0>
+
+=item C<j1>
+
+=item C<jn>
+
+=item C<y0>
+
+=item C<y1>
+
+=item C<yn>
+
+The Bessel function of the first kind of the order zero.
+
+=item C<kill>
+
+This is identical to Perl's builtin C<kill()> function for sending
+signals to processes (often to terminate them), see L<perlfunc/kill>.
+
+=item C<labs>
+
+Not implemented.  (For returning absolute values of long integers.)
+C<labs()> is C-specific, see L<perlfunc/abs> instead.
+
+=item C<lchown>
+
+This is identical to the C function, except the order of arguments is
+consistent with Perl's builtin C<chown()> with the added restriction
+of only one path, not a list of paths.  Does the same thing as the
+C<chown()> function but changes the owner of a symbolic link instead
+of the file the symbolic link points to.
+
+ POSIX::lchown($uid, $gid, $file_path);
+
+=item C<ldexp>
+
+This is identical to the C function C<ldexp()>
+for multiplying floating point numbers with powers of two.
+
+	$x_quadrupled = POSIX::ldexp($x, 2);
+
+=item C<ldiv>
+
+Not implemented.  (For computing dividends of long integers.)
+C<ldiv()> is C-specific, use C</> and C<int()> instead.
+
+=item C<lgamma>
+
+The logarithm of the Gamma function [C99].
+
+See also L</tgamma>.
+
+=item C<log1p>
+
+Equivalent to S<C<log(1 + x)>>, but more stable results for small argument
+values [C99].
+
+=item C<log2>
+
+Logarithm base two [C99].
+
+See also L</expm1>.
+
+=item C<logb>
+
+Integer binary logarithm [C99].
+
+For example C<logb(20)> is 4, as a floating point number.
+
+See also L</ilogb>.
+
+=item C<link>
+
+This is identical to Perl's builtin C<link()> function
+for creating hard links into files, see L<perlfunc/link>.
+
+=item C<localeconv>
+
+Get numeric formatting information.  Returns a reference to a hash
+containing the current underlying locale's formatting values.  Users of this function
+should also read L<perllocale>, which provides a comprehensive
+discussion of Perl locale handling, including
+L<a section devoted to this function|perllocale/The localeconv function>.
+
+Here is how to query the database for the B<de> (Deutsch or German) locale.
+
+	my $loc = POSIX::setlocale( &POSIX::LC_ALL, "de" );
+	print "Locale: \"$loc\"\n";
+	my $lconv = POSIX::localeconv();
+	foreach my $property (qw(
+		decimal_point
+		thousands_sep
+		grouping
+		int_curr_symbol
+		currency_symbol
+		mon_decimal_point
+		mon_thousands_sep
+		mon_grouping
+		positive_sign
+		negative_sign
+		int_frac_digits
+		frac_digits
+		p_cs_precedes
+		p_sep_by_space
+		n_cs_precedes
+		n_sep_by_space
+		p_sign_posn
+		n_sign_posn
+		int_p_cs_precedes
+		int_p_sep_by_space
+		int_n_cs_precedes
+		int_n_sep_by_space
+		int_p_sign_posn
+		int_n_sign_posn
+	))
+	{
+		printf qq(%s: "%s",\n),
+			$property, $lconv->{$property};
+	}
+
+The members whose names begin with C<int_p_> and C<int_n_> were added by
+POSIX.1-2008 and are only available on systems that support them.
+
+=item C<localtime>
+
+This is identical to Perl's builtin C<localtime()> function for
+converting seconds since the epoch to a date see L<perlfunc/localtime>.
+
+=item C<log>
+
+This is identical to Perl's builtin C<log()> function,
+returning the natural (I<e>-based) logarithm of the numerical argument,
+see L<perlfunc/log>.
+
+=item C<log10>
+
+This is identical to the C function C<log10()>,
+returning the 10-base logarithm of the numerical argument.
+You can also use
+
+    sub log10 { log($_[0]) / log(10) }
+
+or
+
+    sub log10 { log($_[0]) / 2.30258509299405 }
+
+or
+
+    sub log10 { log($_[0]) * 0.434294481903252 }
+
+=item C<longjmp>
+
+Not implemented.  C<longjmp()> is C-specific: use L<perlfunc/die> instead.
+
+=item C<lseek>
+
+Move the file's read/write position.  This uses file descriptors such as
+those obtained by calling C<POSIX::open>.
+
+	$fd = POSIX::open( "foo", &POSIX::O_RDONLY );
+	$off_t = POSIX::lseek( $fd, 0, &POSIX::SEEK_SET );
+
+Returns C<undef> on failure.
+
+=item C<lrint>
+
+Depending on the current floating point rounding mode, rounds the
+argument either toward nearest (like L</round>), toward zero (like
+L</trunc>), downward (toward negative infinity), or upward (toward
+positive infinity) [C99].
+
+For the rounding mode, see L</fegetround>.
+
+=item C<lround>
+
+Like L</round>, but as integer, as opposed to floating point [C99].
+
+See also L</ceil>, L</floor>, L</trunc>.
+
+Owing to an oversight, this is not currently exported by default, or as part of
+the C<:math_h_c99> export tag; importing it must therefore be done by explicit
+name. This will be changed in Perl 5.26.
+
+=item C<malloc>
+
+Not implemented.  C<malloc()> is C-specific.  Perl does memory management transparently.
+
+=item C<mblen>
+
+This is identical to the C function C<mblen()>.
+
+Core Perl does not have any support for the wide and multibyte
+characters of the C standards, except under UTF-8 locales, so this might
+be a rather useless function.
+
+However, Perl supports Unicode, see L<perluniintro>.
+
+=item C<mbstowcs>
+
+This is identical to the C function C<mbstowcs()>.
+
+See L</mblen>.
+
+=item C<mbtowc>
+
+This is identical to the C function C<mbtowc()>.
+
+See L</mblen>.
+
+=item C<memchr>
+
+Not implemented.  C<memchr()> is C-specific, see L<perlfunc/index> instead.
+
+=item C<memcmp>
+
+Not implemented.  C<memcmp()> is C-specific, use C<eq> instead, see L<perlop>.
+
+=item C<memcpy>
+
+Not implemented.  C<memcpy()> is C-specific, use C<=>, see L<perlop>, or see L<perlfunc/substr>.
+
+=item C<memmove>
+
+Not implemented.  C<memmove()> is C-specific, use C<=>, see L<perlop>, or see L<perlfunc/substr>.
+
+=item C<memset>
+
+Not implemented.  C<memset()> is C-specific, use C<x> instead, see L<perlop>.
+
+=item C<mkdir>
+
+This is identical to Perl's builtin C<mkdir()> function
+for creating directories, see L<perlfunc/mkdir>.
+
+=item C<mkfifo>
+
+This is similar to the C function C<mkfifo()> for creating
+FIFO special files.
+
+	if (mkfifo($path, $mode)) { ....
+
+Returns C<undef> on failure.  The C<$mode> is similar to the
+mode of C<mkdir()>, see L<perlfunc/mkdir>, though for C<mkfifo>
+you B<must> specify the C<$mode>.
+
+=item C<mktime>
+
+Convert date/time info to a calendar time.
+
+Synopsis:
+
+	mktime(sec, min, hour, mday, mon, year, wday = 0,
+	       yday = 0, isdst = -1)
+
+The month (C<mon>), weekday (C<wday>), and yearday (C<yday>) begin at zero,
+I<i.e.>, January is 0, not 1; Sunday is 0, not 1; January 1st is 0, not 1.  The
+year (C<year>) is given in years since 1900; I<i.e.>, the year 1995 is 95; the
+year 2001 is 101.  Consult your system's C<mktime()> manpage for details
+about these and the other arguments.
+
+Calendar time for December 12, 1995, at 10:30 am.
+
+	$time_t = POSIX::mktime( 0, 30, 10, 12, 11, 95 );
+	print "Date = ", POSIX::ctime($time_t);
+
+Returns C<undef> on failure.
+
+=item C<modf>
+
+Return the integral and fractional parts of a floating-point number.
+
+	($fractional, $integral) = POSIX::modf( 3.14 );
+
+See also L</round>.
+
+=item C<NaN>
+
+The not-a-number as a constant:
+
+   use POSIX qw(NaN);
+   my $nan = NaN;
+
+See also L</nan>, C</isnan>, and L</fpclassify>.
+
+=item C<nan>
+
+   my $nan = nan();
+
+Returns C<NaN>, not-a-number [C99].
+
+The returned NaN is always a I<quiet> NaN, as opposed to I<signaling>.
+
+With an argument, can be used to generate a NaN with I<payload>.
+The argument is first interpreted as a floating point number,
+but then any fractional parts are truncated (towards zero),
+and the value is interpreted as an unsigned integer.
+The bits of this integer are stored in the unused bits of the NaN.
+
+The result has a dual nature: it is a NaN, but it also carries
+the integer inside it.  The integer can be retrieved with L</getpayload>.
+Note, though, that the payload is not propagated, not even on copies,
+and definitely not in arithmetic operations.
+
+How many bits fit in the NaN depends on what kind of floating points
+are being used, but on the most common platforms (64-bit IEEE 754,
+or the x86 80-bit long doubles) there are 51 and 61 bits available,
+respectively.  (There would be 52 and 62, but the quiet/signaling
+bit of NaNs takes away one.)  However, because of the floating-point-to-
+integer-and-back conversions, please test carefully whether you get back
+what you put in.  If your integers are only 32 bits wide, you probably
+should not rely on more than 32 bits of payload.
+
+Whether a "signaling" NaN is in any way different from a "quiet" NaN,
+depends on the platform.  Also note that the payload of the default
+NaN (no argument to nan()) is not necessarily zero, use C<setpayload>
+to explicitly set the payload.  On some platforms like the 32-bit x86,
+(unless using the 80-bit long doubles) the signaling bit is not supported
+at all.
+
+See also L</isnan>, L</NaN>, L</setpayload> and L</issignaling>.
+
+=item C<nearbyint>
+
+Returns the nearest integer to the argument, according to the current
+rounding mode (see L</fegetround>) [C99].
+
+=item C<nextafter>
+
+Returns the next representable floating point number after C<x> in the
+direction of C<y> [C99].
+
+ my $nextafter = POSIX::nextafter($x, $y);
+
+Like L</nexttoward>, but potentially less accurate.
+
+=item C<nexttoward>
+
+Returns the next representable floating point number after C<x> in the
+direction of C<y> [C99].
+
+ my $nexttoward = POSIX::nexttoward($x, $y);
+
+Like L</nextafter>, but potentially more accurate.
+
+=item C<nice>
+
+This is similar to the C function C<nice()>, for changing
+the scheduling preference of the current process.  Positive
+arguments mean a more polite process, negative values a more
+needy process.  Normal (non-root) user processes can only change towards
+being more polite.
+
+Returns C<undef> on failure.
+
+=item C<offsetof>
+
+Not implemented.  C<offsetof()> is C-specific, you probably want to see L<perlfunc/pack> instead.
+
+=item C<open>
+
+Open a file for reading for writing.  This returns file descriptors, not
+Perl filehandles.  Use C<POSIX::close> to close the file.
+
+Open a file read-only with mode 0666.
+
+	$fd = POSIX::open( "foo" );
+
+Open a file for read and write.
+
+	$fd = POSIX::open( "foo", &POSIX::O_RDWR );
+
+Open a file for write, with truncation.
+
+	$fd = POSIX::open(
+		"foo", &POSIX::O_WRONLY | &POSIX::O_TRUNC
+	);
+
+Create a new file with mode 0640.  Set up the file for writing.
+
+	$fd = POSIX::open(
+		"foo", &POSIX::O_CREAT | &POSIX::O_WRONLY, 0640
+	);
+
+Returns C<undef> on failure.
+
+See also L<perlfunc/sysopen>.
+
+=item C<opendir>
+
+Open a directory for reading.
+
+	$dir = POSIX::opendir( "/var" );
+	@files = POSIX::readdir( $dir );
+	POSIX::closedir( $dir );
+
+Returns C<undef> on failure.
+
+=item C<pathconf>
+
+Retrieves the value of a configurable limit on a file or directory.
+
+The following will determine the maximum length of the longest allowable
+pathname on the filesystem which holds C</var>.
+
+	$path_max = POSIX::pathconf( "/var",
+				      &POSIX::_PC_PATH_MAX );
+
+Returns C<undef> on failure.
+
+=item C<pause>
+
+This is similar to the C function C<pause()>, which suspends
+the execution of the current process until a signal is received.
+
+Returns C<undef> on failure.
+
+=item C<perror>
+
+This is identical to the C function C<perror()>, which outputs to the
+standard error stream the specified message followed by C<": "> and the
+current error string.  Use the C<warn()> function and the C<$!>
+variable instead, see L<perlfunc/warn> and L<perlvar/$ERRNO>.
+
+=item C<pipe>
+
+Create an interprocess channel.  This returns file descriptors like those
+returned by C<POSIX::open>.
+
+	my ($read, $write) = POSIX::pipe();
+	POSIX::write( $write, "hello", 5 );
+	POSIX::read( $read, $buf, 5 );
+
+See also L<perlfunc/pipe>.
+
+=item C<pow>
+
+Computes C<$x> raised to the power C<$exponent>.
+
+	$ret = POSIX::pow( $x, $exponent );
+
+You can also use the C<**> operator, see L<perlop>.
+
+=item C<printf>
+
+Formats and prints the specified arguments to C<STDOUT>.
+See also L<perlfunc/printf>.
+
+=item C<putc>
+
+Not implemented.  C<putc()> is C-specific, see L<perlfunc/print> instead.
+
+=item C<putchar>
+
+Not implemented.  C<putchar()> is C-specific, see L<perlfunc/print> instead.
+
+=item C<puts>
+
+Not implemented.  C<puts()> is C-specific, see L<perlfunc/print> instead.
+
+=item C<qsort>
+
+Not implemented.  C<qsort()> is C-specific, see L<perlfunc/sort> instead.
+
+=item C<raise>
+
+Sends the specified signal to the current process.
+See also L<perlfunc/kill> and the C<$$> in L<perlvar/$PID>.
+
+=item C<rand>
+
+Not implemented.  C<rand()> is non-portable, see L<perlfunc/rand> instead.
+
+=item C<read>
+
+Read from a file.  This uses file descriptors such as those obtained by
+calling C<POSIX::open>.  If the buffer C<$buf> is not large enough for the
+read then Perl will extend it to make room for the request.
+
+	$fd = POSIX::open( "foo", &POSIX::O_RDONLY );
+	$bytes = POSIX::read( $fd, $buf, 3 );
+
+Returns C<undef> on failure.
+
+See also L<perlfunc/sysread>.
+
+=item C<readdir>
+
+This is identical to Perl's builtin C<readdir()> function
+for reading directory entries, see L<perlfunc/readdir>.
+
+=item C<realloc>
+
+Not implemented.  C<realloc()> is C-specific.  Perl does memory management transparently.
+
+=item C<remainder>
+
+Given C<x> and C<y>, returns the value S<C<x - n*y>>, where C<n> is the integer
+closest to C<x>/C<y>. [C99]
+
+ my $remainder = POSIX::remainder($x, $y)
+
+See also L</remquo>.
+
+=item C<remove>
+
+This is identical to Perl's builtin C<unlink()> function
+for removing files, see L<perlfunc/unlink>.
+
+=item C<remquo>
+
+Like L</remainder> but also returns the low-order bits of the quotient (n)
+[C99]
+
+(This is quite esoteric interface, mainly used to implement numerical
+algorithms.)
+
+=item C<rename>
+
+This is identical to Perl's builtin C<rename()> function
+for renaming files, see L<perlfunc/rename>.
+
+=item C<rewind>
+
+Seeks to the beginning of the file.
+
+=item C<rewinddir>
+
+This is identical to Perl's builtin C<rewinddir()> function for
+rewinding directory entry streams, see L<perlfunc/rewinddir>.
+
+=item C<rint>
+
+Identical to L</lrint>.
+
+=item C<rmdir>
+
+This is identical to Perl's builtin C<rmdir()> function
+for removing (empty) directories, see L<perlfunc/rmdir>.
+
+=item C<round>
+
+Returns the integer (but still as floating point) nearest to the
+argument [C99].
+
+See also L</ceil>, L</floor>, L</lround>, L</modf>, and L</trunc>.
+
+=item C<scalbn>
+
+Returns S<C<x * 2**y>> [C99].
+
+See also L</frexp> and L</ldexp>.
+
+=item C<scanf>
+
+Not implemented.  C<scanf()> is C-specific, use E<lt>E<gt> and regular expressions instead,
+see L<perlre>.
+
+=item C<setgid>
+
+Sets the real group identifier and the effective group identifier for
+this process.  Similar to assigning a value to the Perl's builtin
+C<$)> variable, see L<perlvar/$EGID>, except that the latter
+will change only the real user identifier, and that the setgid()
+uses only a single numeric argument, as opposed to a space-separated
+list of numbers.
+
+=item C<setjmp>
+
+Not implemented.  C<setjmp()> is C-specific: use C<eval {}> instead,
+see L<perlfunc/eval>.
+
+=item C<setlocale>
+
+WARNING!  Do NOT use this function in a L<thread|threads>.  The locale
+will change in all other threads at the same time, and should your
+thread get paused by the operating system, and another started, that
+thread will not have the locale it is expecting.  On some platforms,
+there can be a race leading to segfaults if two threads call this
+function nearly simultaneously.
+
+Modifies and queries the program's underlying locale.  Users of this
+function should read L<perllocale>, whch provides a comprehensive
+discussion of Perl locale handling, knowledge of which is necessary to
+properly use this function.  It contains
+L<a section devoted to this function|perllocale/The setlocale function>.
+The discussion here is merely a summary reference for C<setlocale()>.
+Note that Perl itself is almost entirely unaffected by the locale
+except within the scope of S<C<"use locale">>.  (Exceptions are listed
+in L<perllocale/Not within the scope of "use locale">.)
+
+The following examples assume
+
+	use POSIX qw(setlocale LC_ALL LC_CTYPE);
+
+has been issued.
+
+The following will set the traditional UNIX system locale behavior
+(the second argument C<"C">).
+
+	$loc = setlocale( LC_ALL, "C" );
+
+The following will query the current C<LC_CTYPE> category.  (No second
+argument means 'query'.)
+
+	$loc = setlocale( LC_CTYPE );
+
+The following will set the C<LC_CTYPE> behaviour according to the locale
+environment variables (the second argument C<"">).
+Please see your system's C<setlocale(3)> documentation for the locale
+environment variables' meaning or consult L<perllocale>.
+
+	$loc = setlocale( LC_CTYPE, "" );
+
+The following will set the C<LC_COLLATE> behaviour to Argentinian
+Spanish. B<NOTE>: The naming and availability of locales depends on
+your operating system. Please consult L<perllocale> for how to find
+out which locales are available in your system.
+
+	$loc = setlocale( LC_COLLATE, "es_AR.ISO8859-1" );
+
+=item C<setpayload>
+
+	use POSIX ':nan_payload';
+	setpayload($var, $payload);
+
+Sets the C<NaN> payload of var.
+
+NOTE: the NaN payload APIs are based on the latest (as of June 2015)
+proposed ISO C interfaces, but they are not yet a standard.  Things
+may change.
+
+See L</nan> for more discussion about C<NaN>.
+
+See also L</setpayloadsig>, L</isnan>, L</getpayload>, and L</issignaling>.
+
+=item C<setpayloadsig>
+
+	use POSIX ':nan_payload';
+	setpayloadsig($var, $payload);
+
+Like L</setpayload> but also makes the NaN I<signaling>.
+
+Depending on the platform the NaN may or may not behave differently.
+
+Note the API instability warning in L</setpayload>.
+
+Note that because how the floating point formats work out, on the most
+common platforms signaling payload of zero is best avoided,
+since it might end up being identical to C<+Inf>.
+
+See also L</nan>, L</isnan>, L</getpayload>, and L</issignaling>.
+
+=item C<setpgid>
+
+This is similar to the C function C<setpgid()> for
+setting the process group identifier of the current process.
+
+Returns C<undef> on failure.
+
+=item C<setsid>
+
+This is identical to the C function C<setsid()> for
+setting the session identifier of the current process.
+
+=item C<setuid>
+
+Sets the real user identifier and the effective user identifier for
+this process.  Similar to assigning a value to the Perl's builtin
+C<$E<lt>> variable, see L<perlvar/$UID>, except that the latter
+will change only the real user identifier.
+
+=item C<sigaction>
+
+Detailed signal management.  This uses C<POSIX::SigAction> objects for
+the C<action> and C<oldaction> arguments (the oldaction can also be
+just a hash reference).  Consult your system's C<sigaction> manpage
+for details, see also C<POSIX::SigRt>.
+
+Synopsis:
+
+	sigaction(signal, action, oldaction = 0)
+
+Returns C<undef> on failure.  The C<signal> must be a number (like
+C<SIGHUP>), not a string (like C<"SIGHUP">), though Perl does try hard
+to understand you.
+
+If you use the C<SA_SIGINFO> flag, the signal handler will in addition to
+the first argument, the signal name, also receive a second argument, a
+hash reference, inside which are the following keys with the following
+semantics, as defined by POSIX/SUSv3:
+
+    signo       the signal number
+    errno       the error number
+    code        if this is zero or less, the signal was sent by
+                a user process and the uid and pid make sense,
+                otherwise the signal was sent by the kernel
+
+The constants for specific C<code> values can be imported individually
+or using the C<:signal_h_si_code> tag.
+
+The following are also defined by POSIX/SUSv3, but unfortunately
+not very widely implemented:
+
+    pid         the process id generating the signal
+    uid         the uid of the process id generating the signal
+    status      exit value or signal for SIGCHLD
+    band        band event for SIGPOLL
+    addr        address of faulting instruction or memory
+                reference for SIGILL, SIGFPE, SIGSEGV or SIGBUS
+
+A third argument is also passed to the handler, which contains a copy
+of the raw binary contents of the C<siginfo> structure: if a system has
+some non-POSIX fields, this third argument is where to C<unpack()> them
+from.
+
+Note that not all C<siginfo> values make sense simultaneously (some are
+valid only for certain signals, for example), and not all values make
+sense from Perl perspective, you should to consult your system's
+C<sigaction> and possibly also C<siginfo> documentation.
+
+=item C<siglongjmp>
+
+Not implemented.  C<siglongjmp()> is C-specific: use L<perlfunc/die> instead.
+
+=item C<signbit>
+
+Returns zero for positive arguments, non-zero for negative arguments [C99].
+
+=item C<sigpending>
+
+Examine signals that are blocked and pending.  This uses C<POSIX::SigSet>
+objects for the C<sigset> argument.  Consult your system's C<sigpending>
+manpage for details.
+
+Synopsis:
+
+	sigpending(sigset)
+
+Returns C<undef> on failure.
+
+=item C<sigprocmask>
+
+Change and/or examine calling process's signal mask.  This uses
+C<POSIX::SigSet> objects for the C<sigset> and C<oldsigset> arguments.
+Consult your system's C<sigprocmask> manpage for details.
+
+Synopsis:
+
+	sigprocmask(how, sigset, oldsigset = 0)
+
+Returns C<undef> on failure.
+
+Note that you can't reliably block or unblock a signal from its own signal
+handler if you're using safe signals. Other signals can be blocked or unblocked
+reliably.
+
+=item C<sigsetjmp>
+
+Not implemented.  C<sigsetjmp()> is C-specific: use C<eval {}> instead,
+see L<perlfunc/eval>.
+
+=item C<sigsuspend>
+
+Install a signal mask and suspend process until signal arrives.  This uses
+C<POSIX::SigSet> objects for the C<signal_mask> argument.  Consult your
+system's C<sigsuspend> manpage for details.
+
+Synopsis:
+
+	sigsuspend(signal_mask)
+
+Returns C<undef> on failure.
+
+=item C<sin>
+
+This is identical to Perl's builtin C<sin()> function
+for returning the sine of the numerical argument,
+see L<perlfunc/sin>.  See also L<Math::Trig>.
+
+=item C<sinh>
+
+This is identical to the C function C<sinh()>
+for returning the hyperbolic sine of the numerical argument.
+See also L<Math::Trig>.
+
+=item C<sleep>
+
+This is functionally identical to Perl's builtin C<sleep()> function
+for suspending the execution of the current for process for certain
+number of seconds, see L<perlfunc/sleep>.  There is one significant
+difference, however: C<POSIX::sleep()> returns the number of
+B<unslept> seconds, while the C<CORE::sleep()> returns the
+number of slept seconds.
+
+=item C<sprintf>
+
+This is similar to Perl's builtin C<sprintf()> function
+for returning a string that has the arguments formatted as requested,
+see L<perlfunc/sprintf>.
+
+=item C<sqrt>
+
+This is identical to Perl's builtin C<sqrt()> function.
+for returning the square root of the numerical argument,
+see L<perlfunc/sqrt>.
+
+=item C<srand>
+
+Give a seed the pseudorandom number generator, see L<perlfunc/srand>.
+
+=item C<sscanf>
+
+Not implemented.  C<sscanf()> is C-specific, use regular expressions instead,
+see L<perlre>.
+
+=item C<stat>
+
+This is identical to Perl's builtin C<stat()> function
+for returning information about files and directories.
+
+=item C<strcat>
+
+Not implemented.  C<strcat()> is C-specific, use C<.=> instead, see L<perlop>.
+
+=item C<strchr>
+
+Not implemented.  C<strchr()> is C-specific, see L<perlfunc/index> instead.
+
+=item C<strcmp>
+
+Not implemented.  C<strcmp()> is C-specific, use C<eq> or C<cmp> instead, see L<perlop>.
+
+=item C<strcoll>
+
+This is identical to the C function C<strcoll()>
+for collating (comparing) strings transformed using
+the C<strxfrm()> function.  Not really needed since
+Perl can do this transparently, see L<perllocale>.
+
+=item C<strcpy>
+
+Not implemented.  C<strcpy()> is C-specific, use C<=> instead, see L<perlop>.
+
+=item C<strcspn>
+
+Not implemented.  C<strcspn()> is C-specific, use regular expressions instead,
+see L<perlre>.
+
+=item C<strerror>
+
+Returns the error string for the specified errno.
+Identical to the string form of C<$!>, see L<perlvar/$ERRNO>.
+
+=item C<strftime>
+
+Convert date and time information to string.  Returns the string.
+
+Synopsis:
+
+	strftime(fmt, sec, min, hour, mday, mon, year,
+		 wday = -1, yday = -1, isdst = -1)
+
+The month (C<mon>), weekday (C<wday>), and yearday (C<yday>) begin at zero,
+I<i.e.>, January is 0, not 1; Sunday is 0, not 1; January 1st is 0, not 1.  The
+year (C<year>) is given in years since 1900, I<i.e.>, the year 1995 is 95; the
+year 2001 is 101.  Consult your system's C<strftime()> manpage for details
+about these and the other arguments.
+
+If you want your code to be portable, your format (C<fmt>) argument
+should use only the conversion specifiers defined by the ANSI C
+standard (C89, to play safe).  These are C<aAbBcdHIjmMpSUwWxXyYZ%>.
+But even then, the B<results> of some of the conversion specifiers are
+non-portable.  For example, the specifiers C<aAbBcpZ> change according
+to the locale settings of the user, and both how to set locales (the
+locale names) and what output to expect are non-standard.
+The specifier C<c> changes according to the timezone settings of the
+user and the timezone computation rules of the operating system.
+The C<Z> specifier is notoriously unportable since the names of
+timezones are non-standard. Sticking to the numeric specifiers is the
+safest route.
+
+The given arguments are made consistent as though by calling
+C<mktime()> before calling your system's C<strftime()> function,
+except that the C<isdst> value is not affected.
+
+The string for Tuesday, December 12, 1995.
+
+	$str = POSIX::strftime( "%A, %B %d, %Y",
+				 0, 0, 0, 12, 11, 95, 2 );
+	print "$str\n";
+
+=item C<strlen>
+
+Not implemented.  C<strlen()> is C-specific, use C<length()> instead, see L<perlfunc/length>.
+
+=item C<strncat>
+
+Not implemented.  C<strncat()> is C-specific, use C<.=> instead, see L<perlop>.
+
+=item C<strncmp>
+
+Not implemented.  C<strncmp()> is C-specific, use C<eq> instead, see L<perlop>.
+
+=item C<strncpy>
+
+Not implemented.  C<strncpy()> is C-specific, use C<=> instead, see L<perlop>.
+
+=item C<strpbrk>
+
+Not implemented.  C<strpbrk()> is C-specific, use regular expressions instead,
+see L<perlre>.
+
+=item C<strrchr>
+
+Not implemented.  C<strrchr()> is C-specific, see L<perlfunc/rindex> instead.
+
+=item C<strspn>
+
+Not implemented.  C<strspn()> is C-specific, use regular expressions instead,
+see L<perlre>.
+
+=item C<strstr>
+
+This is identical to Perl's builtin C<index()> function,
+see L<perlfunc/index>.
+
+=item C<strtod>
+
+String to double translation. Returns the parsed number and the number
+of characters in the unparsed portion of the string.  Truly
+POSIX-compliant systems set C<$!> (C<$ERRNO>) to indicate a translation
+error, so clear C<$!> before calling C<strtod>.  However, non-POSIX systems
+may not check for overflow, and therefore will never set C<$!>.
+
+C<strtod> respects any POSIX C<setlocale()> C<LC_TIME> settings,
+regardless of whether or not it is called from Perl code that is within
+the scope of S<C<use locale>>.
+
+To parse a string C<$str> as a floating point number use
+
+    $! = 0;
+    ($num, $n_unparsed) = POSIX::strtod($str);
+
+The second returned item and C<$!> can be used to check for valid input:
+
+    if (($str eq '') || ($n_unparsed != 0) || $!) {
+        die "Non-numeric input $str" . ($! ? ": $!\n" : "\n");
+    }
+
+When called in a scalar context C<strtod> returns the parsed number.
+
+=item C<strtok>
+
+Not implemented.  C<strtok()> is C-specific, use regular expressions instead, see
+L<perlre>, or L<perlfunc/split>.
+
+=item C<strtol>
+
+String to (long) integer translation.  Returns the parsed number and
+the number of characters in the unparsed portion of the string.  Truly
+POSIX-compliant systems set C<$!> (C<$ERRNO>) to indicate a translation
+error, so clear C<$!> before calling C<strtol>.  However, non-POSIX systems
+may not check for overflow, and therefore will never set C<$!>.
+
+C<strtol> should respect any POSIX I<setlocale()> settings.
+
+To parse a string C<$str> as a number in some base C<$base> use
+
+    $! = 0;
+    ($num, $n_unparsed) = POSIX::strtol($str, $base);
+
+The base should be zero or between 2 and 36, inclusive.  When the base
+is zero or omitted C<strtol> will use the string itself to determine the
+base: a leading "0x" or "0X" means hexadecimal; a leading "0" means
+octal; any other leading characters mean decimal.  Thus, "1234" is
+parsed as a decimal number, "01234" as an octal number, and "0x1234"
+as a hexadecimal number.
+
+The second returned item and C<$!> can be used to check for valid input:
+
+    if (($str eq '') || ($n_unparsed != 0) || !$!) {
+        die "Non-numeric input $str" . $! ? ": $!\n" : "\n";
+    }
+
+When called in a scalar context C<strtol> returns the parsed number.
+
+=item C<strtold>
+
+Like L</strtod> but for long doubles.  Defined only if the
+system supports long doubles.
+
+=item C<strtoul>
+
+String to unsigned (long) integer translation.  C<strtoul()> is identical
+to C<strtol()> except that C<strtoul()> only parses unsigned integers.  See
+L</strtol> for details.
+
+Note: Some vendors supply C<strtod()> and C<strtol()> but not C<strtoul()>.
+Other vendors that do supply C<strtoul()> parse "-1" as a valid value.
+
+=item C<strxfrm>
+
+String transformation.  Returns the transformed string.
+
+	$dst = POSIX::strxfrm( $src );
+
+Used in conjunction with the C<strcoll()> function, see L</strcoll>.
+
+Not really needed since Perl can do this transparently, see
+L<perllocale>.
+
+=item C<sysconf>
+
+Retrieves values of system configurable variables.
+
+The following will get the machine's clock speed.
+
+	$clock_ticks = POSIX::sysconf( &POSIX::_SC_CLK_TCK );
+
+Returns C<undef> on failure.
+
+=item C<system>
+
+This is identical to Perl's builtin C<system()> function, see
+L<perlfunc/system>.
+
+=item C<tan>
+
+This is identical to the C function C<tan()>, returning the
+tangent of the numerical argument.  See also L<Math::Trig>.
+
+=item C<tanh>
+
+This is identical to the C function C<tanh()>, returning the
+hyperbolic tangent of the numerical argument.   See also L<Math::Trig>.
+
+=item C<tcdrain>
+
+This is similar to the C function C<tcdrain()> for draining
+the output queue of its argument stream.
+
+Returns C<undef> on failure.
+
+=item C<tcflow>
+
+This is similar to the C function C<tcflow()> for controlling
+the flow of its argument stream.
+
+Returns C<undef> on failure.
+
+=item C<tcflush>
+
+This is similar to the C function C<tcflush()> for flushing
+the I/O buffers of its argument stream.
+
+Returns C<undef> on failure.
+
+=item C<tcgetpgrp>
+
+This is identical to the C function C<tcgetpgrp()> for returning the
+process group identifier of the foreground process group of the controlling
+terminal.
+
+=item C<tcsendbreak>
+
+This is similar to the C function C<tcsendbreak()> for sending
+a break on its argument stream.
+
+Returns C<undef> on failure.
+
+=item C<tcsetpgrp>
+
+This is similar to the C function C<tcsetpgrp()> for setting the
+process group identifier of the foreground process group of the controlling
+terminal.
+
+Returns C<undef> on failure.
+
+=item C<tgamma>
+
+The Gamma function [C99].
+
+See also L</lgamma>.
+
+=item C<time>
+
+This is identical to Perl's builtin C<time()> function
+for returning the number of seconds since the epoch
+(whatever it is for the system), see L<perlfunc/time>.
+
+=item C<times>
+
+The C<times()> function returns elapsed realtime since some point in the past
+(such as system startup), user and system times for this process, and user
+and system times used by child processes.  All times are returned in clock
+ticks.
+
+    ($realtime, $user, $system, $cuser, $csystem)
+	= POSIX::times();
+
+Note: Perl's builtin C<times()> function returns four values, measured in
+seconds.
+
+=item C<tmpfile>
+
+Not implemented.  Use method C<IO::File::new_tmpfile()> instead, or see L<File::Temp>.
+
+=item C<tmpnam>
+
+Returns a name for a temporary file.
+
+	$tmpfile = POSIX::tmpnam();
+
+For security reasons, which are probably detailed in your system's
+documentation for the C library C<tmpnam()> function, this interface
+should not be used; instead see L<File::Temp>.
+
+=item C<tolower>
+
+This is identical to the C function, except that it can apply to a single
+character or to a whole string, and currently operates as if the locale
+always is "C".  Consider using the C<lc()> function, see L<perlfunc/lc>,
+see L<perlfunc/lc>, or the equivalent C<\L> operator inside doublequotish
+strings.
+
+=item C<toupper>
+
+This is similar to the C function, except that it can apply to a single
+character or to a whole string, and currently operates as if the locale
+always is "C".  Consider using the C<uc()> function, see L<perlfunc/uc>,
+or the equivalent C<\U> operator inside doublequotish strings.
+
+=item C<trunc>
+
+Returns the integer toward zero from the argument [C99].
+
+See also L</ceil>, L</floor>, and L</round>.
+
+=item C<ttyname>
+
+This is identical to the C function C<ttyname()> for returning the
+name of the current terminal.
+
+=item C<tzname>
+
+Retrieves the time conversion information from the C<tzname> variable.
+
+	POSIX::tzset();
+	($std, $dst) = POSIX::tzname();
+
+=item C<tzset>
+
+This is identical to the C function C<tzset()> for setting
+the current timezone based on the environment variable C<TZ>,
+to be used by C<ctime()>, C<localtime()>, C<mktime()>, and C<strftime()>
+functions.
+
+=item C<umask>
+
+This is identical to Perl's builtin C<umask()> function
+for setting (and querying) the file creation permission mask,
+see L<perlfunc/umask>.
+
+=item C<uname>
+
+Get name of current operating system.
+
+	($sysname, $nodename, $release, $version, $machine)
+		= POSIX::uname();
+
+Note that the actual meanings of the various fields are not
+that well standardized, do not expect any great portability.
+The C<$sysname> might be the name of the operating system,
+the C<$nodename> might be the name of the host, the C<$release>
+might be the (major) release number of the operating system,
+the C<$version> might be the (minor) release number of the
+operating system, and the C<$machine> might be a hardware identifier.
+Maybe.
+
+=item C<ungetc>
+
+Not implemented.  Use method C<IO::Handle::ungetc()> instead.
+
+=item C<unlink>
+
+This is identical to Perl's builtin C<unlink()> function
+for removing files, see L<perlfunc/unlink>.
+
+=item C<utime>
+
+This is identical to Perl's builtin C<utime()> function
+for changing the time stamps of files and directories,
+see L<perlfunc/utime>.
+
+=item C<vfprintf>
+
+Not implemented.  C<vfprintf()> is C-specific, see L<perlfunc/printf> instead.
+
+=item C<vprintf>
+
+Not implemented.  C<vprintf()> is C-specific, see L<perlfunc/printf> instead.
+
+=item C<vsprintf>
+
+Not implemented.  C<vsprintf()> is C-specific, see L<perlfunc/sprintf> instead.
+
+=item C<wait>
+
+This is identical to Perl's builtin C<wait()> function,
+see L<perlfunc/wait>.
+
+=item C<waitpid>
+
+Wait for a child process to change state.  This is identical to Perl's
+builtin C<waitpid()> function, see L<perlfunc/waitpid>.
+
+	$pid = POSIX::waitpid( -1, POSIX::WNOHANG );
+	print "status = ", ($? / 256), "\n";
+
+=item C<wcstombs>
+
+This is identical to the C function C<wcstombs()>.
+
+See L</mblen>.
+
+=item C<wctomb>
+
+This is identical to the C function C<wctomb()>.
+
+See L</mblen>.
+
+=item C<write>
+
+Write to a file.  This uses file descriptors such as those obtained by
+calling C<POSIX::open>.
+
+	$fd = POSIX::open( "foo", &POSIX::O_WRONLY );
+	$buf = "hello";
+	$bytes = POSIX::write( $fd, $buf, 5 );
+
+Returns C<undef> on failure.
+
+See also L<perlfunc/syswrite>.
+
+=back
+
+=head1 CLASSES
+
+=head2 C<POSIX::SigAction>
+
+=over 8
+
+=item C<new>
+
+Creates a new C<POSIX::SigAction> object which corresponds to the C
+C<struct sigaction>.  This object will be destroyed automatically when
+it is no longer needed.  The first parameter is the handler, a sub
+reference.  The second parameter is a C<POSIX::SigSet> object, it
+defaults to the empty set.  The third parameter contains the
+C<sa_flags>, it defaults to 0.
+
+	$sigset = POSIX::SigSet->new(SIGINT, SIGQUIT);
+	$sigaction = POSIX::SigAction->new(
+			\&handler, $sigset, &POSIX::SA_NOCLDSTOP
+		     );
+
+This C<POSIX::SigAction> object is intended for use with the C<POSIX::sigaction()>
+function.
+
+=back
+
+=over 8
+
+=item C<handler>
+
+=item C<mask>
+
+=item C<flags>
+
+accessor functions to get/set the values of a SigAction object.
+
+	$sigset = $sigaction->mask;
+	$sigaction->flags(&POSIX::SA_RESTART);
+
+=item C<safe>
+
+accessor function for the "safe signals" flag of a SigAction object; see
+L<perlipc> for general information on safe (a.k.a. "deferred") signals.  If
+you wish to handle a signal safely, use this accessor to set the "safe" flag
+in the C<POSIX::SigAction> object:
+
+	$sigaction->safe(1);
+
+You may also examine the "safe" flag on the output action object which is
+filled in when given as the third parameter to C<POSIX::sigaction()>:
+
+	sigaction(SIGINT, $new_action, $old_action);
+	if ($old_action->safe) {
+	    # previous SIGINT handler used safe signals
+	}
+
+=back
+
+=head2 C<POSIX::SigRt>
+
+=over 8
+
+=item C<%SIGRT>
+
+A hash of the POSIX realtime signal handlers.  It is an extension of
+the standard C<%SIG>, the C<$POSIX::SIGRT{SIGRTMIN}> is roughly equivalent
+to C<$SIG{SIGRTMIN}>, but the right POSIX moves (see below) are made with
+the C<POSIX::SigSet> and C<POSIX::sigaction> instead of accessing the C<%SIG>.
+
+You can set the C<%POSIX::SIGRT> elements to set the POSIX realtime
+signal handlers, use C<delete> and C<exists> on the elements, and use
+C<scalar> on the C<%POSIX::SIGRT> to find out how many POSIX realtime
+signals there are available S<C<(SIGRTMAX - SIGRTMIN + 1>>, the C<SIGRTMAX> is
+a valid POSIX realtime signal).
+
+Setting the C<%SIGRT> elements is equivalent to calling this:
+
+  sub new {
+    my ($rtsig, $handler, $flags) = @_;
+    my $sigset = POSIX::SigSet($rtsig);
+    my $sigact = POSIX::SigAction->new($handler,$sigset,$flags);
+    sigaction($rtsig, $sigact);
+  }
+
+The flags default to zero, if you want something different you can
+either use C<local> on C<$POSIX::SigRt::SIGACTION_FLAGS>, or you can
+derive from POSIX::SigRt and define your own C<new()> (the tied hash
+STORE method of the C<%SIGRT> calls C<new($rtsig, $handler, $SIGACTION_FLAGS)>,
+where the C<$rtsig> ranges from zero to S<C<SIGRTMAX - SIGRTMIN + 1)>>.
+
+Just as with any signal, you can use C<sigaction($rtsig, undef, $oa)> to
+retrieve the installed signal handler (or, rather, the signal action).
+
+B<NOTE:> whether POSIX realtime signals really work in your system, or
+whether Perl has been compiled so that it works with them, is outside
+of this discussion.
+
+=item C<SIGRTMIN>
+
+Return the minimum POSIX realtime signal number available, or C<undef>
+if no POSIX realtime signals are available.
+
+=item C<SIGRTMAX>
+
+Return the maximum POSIX realtime signal number available, or C<undef>
+if no POSIX realtime signals are available.
+
+=back
+
+=head2 C<POSIX::SigSet>
+
+=over 8
+
+=item C<new>
+
+Create a new SigSet object.  This object will be destroyed automatically
+when it is no longer needed.  Arguments may be supplied to initialize the
+set.
+
+Create an empty set.
+
+	$sigset = POSIX::SigSet->new;
+
+Create a set with C<SIGUSR1>.
+
+	$sigset = POSIX::SigSet->new( &POSIX::SIGUSR1 );
+
+=item C<addset>
+
+Add a signal to a SigSet object.
+
+	$sigset->addset( &POSIX::SIGUSR2 );
+
+Returns C<undef> on failure.
+
+=item C<delset>
+
+Remove a signal from the SigSet object.
+
+	$sigset->delset( &POSIX::SIGUSR2 );
+
+Returns C<undef> on failure.
+
+=item C<emptyset>
+
+Initialize the SigSet object to be empty.
+
+	$sigset->emptyset();
+
+Returns C<undef> on failure.
+
+=item C<fillset>
+
+Initialize the SigSet object to include all signals.
+
+	$sigset->fillset();
+
+Returns C<undef> on failure.
+
+=item C<ismember>
+
+Tests the SigSet object to see if it contains a specific signal.
+
+	if( $sigset->ismember( &POSIX::SIGUSR1 ) ){
+		print "contains SIGUSR1\n";
+	}
+
+=back
+
+=head2 C<POSIX::Termios>
+
+=over 8
+
+=item C<new>
+
+Create a new Termios object.  This object will be destroyed automatically
+when it is no longer needed.  A Termios object corresponds to the C<termios>
+C struct.  C<new()> mallocs a new one, C<getattr()> fills it from a file descriptor,
+and C<setattr()> sets a file descriptor's parameters to match Termios' contents.
+
+	$termios = POSIX::Termios->new;
+
+=item C<getattr>
+
+Get terminal control attributes.
+
+Obtain the attributes for C<stdin>.
+
+	$termios->getattr( 0 ) # Recommended for clarity.
+	$termios->getattr()
+
+Obtain the attributes for stdout.
+
+	$termios->getattr( 1 )
+
+Returns C<undef> on failure.
+
+=item C<getcc>
+
+Retrieve a value from the C<c_cc> field of a C<termios> object.  The C<c_cc> field is
+an array so an index must be specified.
+
+	$c_cc[1] = $termios->getcc(1);
+
+=item C<getcflag>
+
+Retrieve the C<c_cflag> field of a C<termios> object.
+
+	$c_cflag = $termios->getcflag;
+
+=item C<getiflag>
+
+Retrieve the C<c_iflag> field of a C<termios> object.
+
+	$c_iflag = $termios->getiflag;
+
+=item C<getispeed>
+
+Retrieve the input baud rate.
+
+	$ispeed = $termios->getispeed;
+
+=item C<getlflag>
+
+Retrieve the C<c_lflag> field of a C<termios> object.
+
+	$c_lflag = $termios->getlflag;
+
+=item C<getoflag>
+
+Retrieve the C<c_oflag> field of a C<termios> object.
+
+	$c_oflag = $termios->getoflag;
+
+=item C<getospeed>
+
+Retrieve the output baud rate.
+
+	$ospeed = $termios->getospeed;
+
+=item C<setattr>
+
+Set terminal control attributes.
+
+Set attributes immediately for stdout.
+
+	$termios->setattr( 1, &POSIX::TCSANOW );
+
+Returns C<undef> on failure.
+
+=item C<setcc>
+
+Set a value in the C<c_cc> field of a C<termios> object.  The C<c_cc> field is an
+array so an index must be specified.
+
+	$termios->setcc( &POSIX::VEOF, 1 );
+
+=item C<setcflag>
+
+Set the C<c_cflag> field of a C<termios> object.
+
+	$termios->setcflag( $c_cflag | &POSIX::CLOCAL );
+
+=item C<setiflag>
+
+Set the C<c_iflag> field of a C<termios> object.
+
+	$termios->setiflag( $c_iflag | &POSIX::BRKINT );
+
+=item C<setispeed>
+
+Set the input baud rate.
+
+	$termios->setispeed( &POSIX::B9600 );
+
+Returns C<undef> on failure.
+
+=item C<setlflag>
+
+Set the C<c_lflag> field of a C<termios> object.
+
+	$termios->setlflag( $c_lflag | &POSIX::ECHO );
+
+=item C<setoflag>
+
+Set the C<c_oflag> field of a C<termios> object.
+
+	$termios->setoflag( $c_oflag | &POSIX::OPOST );
+
+=item C<setospeed>
+
+Set the output baud rate.
+
+	$termios->setospeed( &POSIX::B9600 );
+
+Returns C<undef> on failure.
+
+=item Baud rate values
+
+C<B38400> C<B75> C<B200> C<B134> C<B300> C<B1800> C<B150> C<B0> C<B19200> C<B1200> C<B9600> C<B600> C<B4800> C<B50> C<B2400> C<B110>
+
+=item Terminal interface values
+
+C<TCSADRAIN> C<TCSANOW> C<TCOON> C<TCIOFLUSH> C<TCOFLUSH> C<TCION> C<TCIFLUSH> C<TCSAFLUSH> C<TCIOFF> C<TCOOFF>
+
+=item C<c_cc> field values
+
+C<VEOF> C<VEOL> C<VERASE> C<VINTR> C<VKILL> C<VQUIT> C<VSUSP> C<VSTART> C<VSTOP> C<VMIN> C<VTIME> C<NCCS>
+
+=item C<c_cflag> field values
+
+C<CLOCAL> C<CREAD> C<CSIZE> C<CS5> C<CS6> C<CS7> C<CS8> C<CSTOPB> C<HUPCL> C<PARENB> C<PARODD>
+
+=item C<c_iflag> field values
+
+C<BRKINT> C<ICRNL> C<IGNBRK> C<IGNCR> C<IGNPAR> C<INLCR> C<INPCK> C<ISTRIP> C<IXOFF> C<IXON> C<PARMRK>
+
+=item C<c_lflag> field values
+
+C<ECHO> C<ECHOE> C<ECHOK> C<ECHONL> C<ICANON> C<IEXTEN> C<ISIG> C<NOFLSH> C<TOSTOP>
+
+=item C<c_oflag> field values
+
+C<OPOST>
+
+=back
+
+=head1 PATHNAME CONSTANTS
+
+=over 8
+
+=item Constants
+
+C<_PC_CHOWN_RESTRICTED> C<_PC_LINK_MAX> C<_PC_MAX_CANON> C<_PC_MAX_INPUT> C<_PC_NAME_MAX>
+C<_PC_NO_TRUNC> C<_PC_PATH_MAX> C<_PC_PIPE_BUF> C<_PC_VDISABLE>
+
+=back
+
+=head1 POSIX CONSTANTS
+
+=over 8
+
+=item Constants
+
+C<_POSIX_ARG_MAX> C<_POSIX_CHILD_MAX> C<_POSIX_CHOWN_RESTRICTED> C<_POSIX_JOB_CONTROL>
+C<_POSIX_LINK_MAX> C<_POSIX_MAX_CANON> C<_POSIX_MAX_INPUT> C<_POSIX_NAME_MAX>
+C<_POSIX_NGROUPS_MAX> C<_POSIX_NO_TRUNC> C<_POSIX_OPEN_MAX> C<_POSIX_PATH_MAX>
+C<_POSIX_PIPE_BUF> C<_POSIX_SAVED_IDS> C<_POSIX_SSIZE_MAX> C<_POSIX_STREAM_MAX>
+C<_POSIX_TZNAME_MAX> C<_POSIX_VDISABLE> C<_POSIX_VERSION>
+
+=back
+
+=head1 SYSTEM CONFIGURATION
+
+=over 8
+
+=item Constants
+
+C<_SC_ARG_MAX> C<_SC_CHILD_MAX> C<_SC_CLK_TCK> C<_SC_JOB_CONTROL> C<_SC_NGROUPS_MAX>
+C<_SC_OPEN_MAX> C<_SC_PAGESIZE> C<_SC_SAVED_IDS> C<_SC_STREAM_MAX> C<_SC_TZNAME_MAX>
+C<_SC_VERSION>
+
+=back
+
+=head1 ERRNO
+
+=over 8
+
+=item Constants
+
+C<E2BIG> C<EACCES> C<EADDRINUSE> C<EADDRNOTAVAIL> C<EAFNOSUPPORT> C<EAGAIN> C<EALREADY> C<EBADF> C<EBADMSG>
+C<EBUSY> C<ECANCELED> C<ECHILD> C<ECONNABORTED> C<ECONNREFUSED> C<ECONNRESET> C<EDEADLK> C<EDESTADDRREQ>
+C<EDOM> C<EDQUOT> C<EEXIST> C<EFAULT> C<EFBIG> C<EHOSTDOWN> C<EHOSTUNREACH> C<EIDRM> C<EILSEQ> C<EINPROGRESS>
+C<EINTR> C<EINVAL> C<EIO> C<EISCONN> C<EISDIR> C<ELOOP> C<EMFILE> C<EMLINK> C<EMSGSIZE> C<ENAMETOOLONG>
+C<ENETDOWN> C<ENETRESET> C<ENETUNREACH> C<ENFILE> C<ENOBUFS> C<ENODATA> C<ENODEV> C<ENOENT> C<ENOEXEC>
+C<ENOLCK> C<ENOLINK> C<ENOMEM> C<ENOMSG> C<ENOPROTOOPT> C<ENOSPC> C<ENOSR> C<ENOSTR> C<ENOSYS> C<ENOTBLK>
+C<ENOTCONN> C<ENOTDIR> C<ENOTEMPTY> C<ENOTRECOVERABLE> C<ENOTSOCK> C<ENOTSUP> C<ENOTTY> C<ENXIO>
+C<EOPNOTSUPP> C<EOTHER> C<EOVERFLOW> C<EOWNERDEAD> C<EPERM> C<EPFNOSUPPORT> C<EPIPE> C<EPROCLIM> C<EPROTO>
+C<EPROTONOSUPPORT> C<EPROTOTYPE> C<ERANGE> C<EREMOTE> C<ERESTART> C<EROFS> C<ESHUTDOWN>
+C<ESOCKTNOSUPPORT> C<ESPIPE> C<ESRCH> C<ESTALE> C<ETIME> C<ETIMEDOUT> C<ETOOMANYREFS> C<ETXTBSY> C<EUSERS>
+C<EWOULDBLOCK> C<EXDEV>
+
+=back
+
+=head1 FCNTL
+
+=over 8
+
+=item Constants
+
+C<FD_CLOEXEC> C<F_DUPFD> C<F_GETFD> C<F_GETFL> C<F_GETLK> C<F_OK> C<F_RDLCK> C<F_SETFD> C<F_SETFL> C<F_SETLK>
+C<F_SETLKW> C<F_UNLCK> C<F_WRLCK> C<O_ACCMODE> C<O_APPEND> C<O_CREAT> C<O_EXCL> C<O_NOCTTY> C<O_NONBLOCK>
+C<O_RDONLY> C<O_RDWR> C<O_TRUNC> C<O_WRONLY>
+
+=back
+
+=head1 FLOAT
+
+=over 8
+
+=item Constants
+
+C<DBL_DIG> C<DBL_EPSILON> C<DBL_MANT_DIG> C<DBL_MAX> C<DBL_MAX_10_EXP> C<DBL_MAX_EXP> C<DBL_MIN>
+C<DBL_MIN_10_EXP> C<DBL_MIN_EXP> C<FLT_DIG> C<FLT_EPSILON> C<FLT_MANT_DIG> C<FLT_MAX>
+C<FLT_MAX_10_EXP> C<FLT_MAX_EXP> C<FLT_MIN> C<FLT_MIN_10_EXP> C<FLT_MIN_EXP> C<FLT_RADIX>
+C<FLT_ROUNDS> C<LDBL_DIG> C<LDBL_EPSILON> C<LDBL_MANT_DIG> C<LDBL_MAX> C<LDBL_MAX_10_EXP>
+C<LDBL_MAX_EXP> C<LDBL_MIN> C<LDBL_MIN_10_EXP> C<LDBL_MIN_EXP>
+
+=back
+
+=head1 FLOATING-POINT ENVIRONMENT
+
+=over 8
+
+=item Constants
+
+C<FE_DOWNWARD> C<FE_TONEAREST> C<FE_TOWARDZERO> C<FE_UPWARD>
+on systems that support them.
+
+=back
+
+=head1 LIMITS
+
+=over 8
+
+=item Constants
+
+C<ARG_MAX> C<CHAR_BIT> C<CHAR_MAX> C<CHAR_MIN> C<CHILD_MAX> C<INT_MAX> C<INT_MIN> C<LINK_MAX> C<LONG_MAX>
+C<LONG_MIN> C<MAX_CANON> C<MAX_INPUT> C<MB_LEN_MAX> C<NAME_MAX> C<NGROUPS_MAX> C<OPEN_MAX> C<PATH_MAX>
+C<PIPE_BUF> C<SCHAR_MAX> C<SCHAR_MIN> C<SHRT_MAX> C<SHRT_MIN> C<SSIZE_MAX> C<STREAM_MAX> C<TZNAME_MAX>
+C<UCHAR_MAX> C<UINT_MAX> C<ULONG_MAX> C<USHRT_MAX>
+
+=back
+
+=head1 LOCALE
+
+=over 8
+
+=item Constants
+
+C<LC_ALL> C<LC_COLLATE> C<LC_CTYPE> C<LC_MONETARY> C<LC_NUMERIC> C<LC_TIME> C<LC_MESSAGES>
+on systems that support them.
+
+=back
+
+=head1 MATH
+
+=over 8
+
+=item Constants
+
+C<HUGE_VAL>
+
+C<FP_ILOGB0> C<FP_ILOGBNAN> C<FP_INFINITE> C<FP_NAN> C<FP_NORMAL> C<FP_SUBNORMAL> C<FP_ZERO>
+C<INFINITY> C<NAN> C<Inf> C<NaN>
+C<M_1_PI> C<M_2_PI> C<M_2_SQRTPI> C<M_E> C<M_LN10> C<M_LN2> C<M_LOG10E> C<M_LOG2E> C<M_PI>
+C<M_PI_2> C<M_PI_4> C<M_SQRT1_2> C<M_SQRT2>
+on systems with C99 support.
+
+=back
+
+=head1 SIGNAL
+
+=over 8
+
+=item Constants
+
+C<SA_NOCLDSTOP> C<SA_NOCLDWAIT> C<SA_NODEFER> C<SA_ONSTACK> C<SA_RESETHAND> C<SA_RESTART>
+C<SA_SIGINFO> C<SIGABRT> C<SIGALRM> C<SIGCHLD> C<SIGCONT> C<SIGFPE> C<SIGHUP> C<SIGILL> C<SIGINT>
+C<SIGKILL> C<SIGPIPE> C<SIGQUIT> C<SIGSEGV> C<SIGSTOP> C<SIGTERM> C<SIGTSTP> C<SIGTTIN> C<SIGTTOU>
+C<SIGUSR1> C<SIGUSR2> C<SIG_BLOCK> C<SIG_DFL> C<SIG_ERR> C<SIG_IGN> C<SIG_SETMASK>
+C<SIG_UNBLOCK>
+C<ILL_ILLOPC> C<ILL_ILLOPN> C<ILL_ILLADR> C<ILL_ILLTRP> C<ILL_PRVOPC> C<ILL_PRVREG> C<ILL_COPROC>
+C<ILL_BADSTK> C<FPE_INTDIV> C<FPE_INTOVF> C<FPE_FLTDIV> C<FPE_FLTOVF> C<FPE_FLTUND> C<FPE_FLTRES>
+C<FPE_FLTINV> C<FPE_FLTSUB> C<SEGV_MAPERR> C<SEGV_ACCERR> C<BUS_ADRALN> C<BUS_ADRERR>
+C<BUS_OBJERR> C<TRAP_BRKPT> C<TRAP_TRACE> C<CLD_EXITED> C<CLD_KILLED> C<CLD_DUMPED> C<CLD_TRAPPED>
+C<CLD_STOPPED> C<CLD_CONTINUED> C<POLL_IN> C<POLL_OUT> C<POLL_MSG> C<POLL_ERR> C<POLL_PRI>
+C<POLL_HUP> C<SI_USER> C<SI_QUEUE> C<SI_TIMER> C<SI_ASYNCIO> C<SI_MESGQ>
+
+=back
+
+=head1 STAT
+
+=over 8
+
+=item Constants
+
+C<S_IRGRP> C<S_IROTH> C<S_IRUSR> C<S_IRWXG> C<S_IRWXO> C<S_IRWXU> C<S_ISGID> C<S_ISUID> C<S_IWGRP> C<S_IWOTH>
+C<S_IWUSR> C<S_IXGRP> C<S_IXOTH> C<S_IXUSR>
+
+=item Macros
+
+C<S_ISBLK> C<S_ISCHR> C<S_ISDIR> C<S_ISFIFO> C<S_ISREG>
+
+=back
+
+=head1 STDLIB
+
+=over 8
+
+=item Constants
+
+C<EXIT_FAILURE> C<EXIT_SUCCESS> C<MB_CUR_MAX> C<RAND_MAX>
+
+=back
+
+=head1 STDIO
+
+=over 8
+
+=item Constants
+
+C<BUFSIZ> C<EOF> C<FILENAME_MAX> C<L_ctermid> C<L_cuserid> C<L_tmpname> C<TMP_MAX>
+
+=back
+
+=head1 TIME
+
+=over 8
+
+=item Constants
+
+C<CLK_TCK> C<CLOCKS_PER_SEC>
+
+=back
+
+=head1 UNISTD
+
+=over 8
+
+=item Constants
+
+C<R_OK> C<SEEK_CUR> C<SEEK_END> C<SEEK_SET> C<STDIN_FILENO> C<STDOUT_FILENO> C<STDERR_FILENO> C<W_OK> C<X_OK>
+
+=back
+
+=head1 WAIT
+
+=over 8
+
+=item Constants
+
+C<WNOHANG> C<WUNTRACED>
+
+=over 16
+
+=item C<WNOHANG>
+
+Do not suspend the calling process until a child process
+changes state but instead return immediately.
+
+=item C<WUNTRACED>
+
+Catch stopped child processes.
+
+=back
+
+=item Macros
+
+C<WIFEXITED> C<WEXITSTATUS> C<WIFSIGNALED> C<WTERMSIG> C<WIFSTOPPED> C<WSTOPSIG>
+
+=over 16
+
+=item C<WIFEXITED>
+
+C<WIFEXITED(${^CHILD_ERROR_NATIVE})> returns true if the child process
+exited normally (C<exit()> or by falling off the end of C<main()>)
+
+=item C<WEXITSTATUS>
+
+C<WEXITSTATUS(${^CHILD_ERROR_NATIVE})> returns the normal exit status of
+the child process (only meaningful if C<WIFEXITED(${^CHILD_ERROR_NATIVE})>
+is true)
+
+=item C<WIFSIGNALED>
+
+C<WIFSIGNALED(${^CHILD_ERROR_NATIVE})> returns true if the child process
+terminated because of a signal
+
+=item C<WTERMSIG>
+
+C<WTERMSIG(${^CHILD_ERROR_NATIVE})> returns the signal the child process
+terminated for (only meaningful if
+C<WIFSIGNALED(${^CHILD_ERROR_NATIVE})>
+is true)
+
+=item C<WIFSTOPPED>
+
+C<WIFSTOPPED(${^CHILD_ERROR_NATIVE})> returns true if the child process is
+currently stopped (can happen only if you specified the WUNTRACED flag
+to C<waitpid()>)
+
+=item C<WSTOPSIG>
+
+C<WSTOPSIG(${^CHILD_ERROR_NATIVE})> returns the signal the child process
+was stopped for (only meaningful if
+C<WIFSTOPPED(${^CHILD_ERROR_NATIVE})>
+is true)
+
+=back
+
+=back
+
+=head1 WINSOCK
+
+(Windows only.)
+
+=over 8
+
+=item Constants
+
+C<WSAEINTR> C<WSAEBADF> C<WSAEACCES> C<WSAEFAULT> C<WSAEINVAL> C<WSAEMFILE> C<WSAEWOULDBLOCK>
+C<WSAEINPROGRESS> C<WSAEALREADY> C<WSAENOTSOCK> C<WSAEDESTADDRREQ> C<WSAEMSGSIZE>
+C<WSAEPROTOTYPE> C<WSAENOPROTOOPT> C<WSAEPROTONOSUPPORT> C<WSAESOCKTNOSUPPORT>
+C<WSAEOPNOTSUPP> C<WSAEPFNOSUPPORT> C<WSAEAFNOSUPPORT> C<WSAEADDRINUSE>
+C<WSAEADDRNOTAVAIL> C<WSAENETDOWN> C<WSAENETUNREACH> C<WSAENETRESET> C<WSAECONNABORTED>
+C<WSAECONNRESET> C<WSAENOBUFS> C<WSAEISCONN> C<WSAENOTCONN> C<WSAESHUTDOWN>
+C<WSAETOOMANYREFS> C<WSAETIMEDOUT> C<WSAECONNREFUSED> C<WSAELOOP> C<WSAENAMETOOLONG>
+C<WSAEHOSTDOWN> C<WSAEHOSTUNREACH> C<WSAENOTEMPTY> C<WSAEPROCLIM> C<WSAEUSERS>
+C<WSAEDQUOT> C<WSAESTALE> C<WSAEREMOTE> C<WSAEDISCON> C<WSAENOMORE> C<WSAECANCELLED>
+C<WSAEINVALIDPROCTABLE> C<WSAEINVALIDPROVIDER> C<WSAEPROVIDERFAILEDINIT>
+C<WSAEREFUSED>
+
+=back
+
diff --git a/lib/5.24.1/x86_64-linux/PerlIO/encoding.pm b/lib/5.24.1/x86_64-linux/PerlIO/encoding.pm
new file mode 100644
index 00000000..13cb20b3
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/PerlIO/encoding.pm
@@ -0,0 +1,53 @@
+package PerlIO::encoding;
+
+use strict;
+our $VERSION = '0.24';
+our $DEBUG = 0;
+$DEBUG and warn __PACKAGE__, " called by ", join(", ", caller), "\n";
+
+#
+# Equivalent of this is done in encoding.xs - do not uncomment.
+#
+# use Encode ();
+
+require XSLoader;
+XSLoader::load();
+
+our $fallback =
+    Encode::PERLQQ()|Encode::WARN_ON_ERR()|Encode::STOP_AT_PARTIAL();
+
+1;
+__END__
+
+=head1 NAME
+
+PerlIO::encoding - encoding layer
+
+=head1 SYNOPSIS
+
+  use PerlIO::encoding;
+
+  open($f, "<:encoding(foo)", "infoo");
+  open($f, ">:encoding(bar)", "outbar");
+
+  use Encode qw(:fallbacks);
+  $PerlIO::encoding::fallback = FB_PERLQQ;
+
+=head1 DESCRIPTION
+
+This PerlIO layer opens a filehandle with a transparent encoding filter.
+
+On input, it converts the bytes expected to be in the specified
+character set and encoding to Perl string data (Unicode and
+Perl's internal Unicode encoding, UTF-8).  On output, it converts
+Perl string data into the specified character set and encoding.
+
+When the layer is pushed, the current value of C<$PerlIO::encoding::fallback>
+is saved and used as the CHECK argument when calling the Encode methods
+encode() and decode().
+
+=head1 SEE ALSO
+
+L<open>, L<Encode>, L<perlfunc/binmode>, L<perluniintro>
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/PerlIO/mmap.pm b/lib/5.24.1/x86_64-linux/PerlIO/mmap.pm
new file mode 100644
index 00000000..0ed59d2d
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/PerlIO/mmap.pm
@@ -0,0 +1,30 @@
+package PerlIO::mmap;
+use strict;
+use warnings;
+our $VERSION = '0.016';
+
+use XSLoader;
+XSLoader::load(__PACKAGE__, __PACKAGE__->VERSION);
+
+1;
+
+__END__
+
+=head1 NAME
+
+PerlIO::mmap - Memory mapped IO
+
+=head1 SYNOPSIS
+
+ open my $fh, '<:mmap', $filename;
+
+=head1 DESCRIPTION
+
+This layer does C<read> and C<write> operations by mmap()ing the file if possible, but falls back to the default behavior if not.
+
+=head1 IMPLEMENTATION NOTE
+
+C<PerlIO::mmap> only exists to use XSLoader to load C code that provides support for using memory mapped IO. One does not need to explicitly C<use PerlIO::mmap;>.
+
+=cut
+
diff --git a/lib/5.24.1/x86_64-linux/PerlIO/scalar.pm b/lib/5.24.1/x86_64-linux/PerlIO/scalar.pm
new file mode 100644
index 00000000..4ed4e406
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/PerlIO/scalar.pm
@@ -0,0 +1,41 @@
+package PerlIO::scalar;
+our $VERSION = '0.24';
+require XSLoader;
+XSLoader::load();
+1;
+__END__
+
+=head1 NAME
+
+PerlIO::scalar - in-memory IO, scalar IO
+
+=head1 SYNOPSIS
+
+   my $scalar = '';
+   ...
+   open my $fh, "<",  \$scalar or die;
+   open my $fh, ">",  \$scalar or die;
+   open my $fh, ">>", \$scalar or die;
+
+or
+
+   my $scalar = '';
+   ...
+   open my $fh, "<:scalar",  \$scalar or die;
+   open my $fh, ">:scalar",  \$scalar or die;
+   open my $fh, ">>:scalar", \$scalar or die;
+
+=head1 DESCRIPTION
+
+A filehandle is opened but the file operations are performed "in-memory"
+on a scalar variable.  All the normal file operations can be performed
+on the handle. The scalar is considered a stream of bytes.  Currently
+fileno($fh) returns -1.
+
+=head1 IMPLEMENTATION NOTE
+
+C<PerlIO::scalar> only exists to use XSLoader to load C code that
+provides support for treating a scalar as an "in memory" file.
+One does not need to explicitly C<use PerlIO::scalar>.
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/PerlIO/via.pm b/lib/5.24.1/x86_64-linux/PerlIO/via.pm
new file mode 100644
index 00000000..e477dcca
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/PerlIO/via.pm
@@ -0,0 +1,243 @@
+package PerlIO::via;
+our $VERSION = '0.16';
+require XSLoader;
+XSLoader::load();
+1;
+__END__
+
+=head1 NAME
+
+PerlIO::via - Helper class for PerlIO layers implemented in perl
+
+=head1 SYNOPSIS
+
+   use PerlIO::via::Layer;
+   open($fh,"<:via(Layer)",...);
+
+   use Some::Other::Package;
+   open($fh,">:via(Some::Other::Package)",...);
+
+=head1 DESCRIPTION
+
+The PerlIO::via module allows you to develop PerlIO layers in Perl, without
+having to go into the nitty gritty of programming C with XS as the interface
+to Perl.
+
+One example module, L<PerlIO::via::QuotedPrint>, is included with Perl
+5.8.0, and more example modules are available from CPAN, such as
+L<PerlIO::via::StripHTML> and L<PerlIO::via::Base64>.  The
+PerlIO::via::StripHTML module for instance, allows you to say:
+
+	use PerlIO::via::StripHTML;
+	open( my $fh, "<:via(StripHTML)", "index.html" );
+        my @line = <$fh>;
+
+to obtain the text of an HTML-file in an array with all the HTML-tags
+automagically removed.
+
+Please note that if the layer is created in the PerlIO::via:: namespace, it
+does B<not> have to be fully qualified.  The PerlIO::via module will prefix
+the PerlIO::via:: namespace if the specified modulename does not exist as a
+fully qualified module name.
+
+=head1 EXPECTED METHODS
+
+To create a Perl module that implements a PerlIO layer in Perl (as opposed to
+in C using XS as the interface to Perl), you need to supply some of the
+following subroutines.  It is recommended to create these Perl modules in the
+PerlIO::via:: namespace, so that they can easily be located on CPAN and use
+the default namespace feature of the PerlIO::via module itself.
+
+Please note that this is an area of recent development in Perl and that the
+interface described here is therefore still subject to change (and hopefully
+will have better documentation and more examples).
+
+In the method descriptions below I<$fh> will be
+a reference to a glob which can be treated as a perl file handle.
+It refers to the layer below. I<$fh> is not passed if the layer
+is at the bottom of the stack, for this reason and to maintain
+some level of "compatibility" with TIEHANDLE classes it is passed last.
+
+=over 4
+
+=item $class->PUSHED([$mode,[$fh]])
+
+Should return an object or the class, or -1 on failure.  (Compare
+TIEHANDLE.)  The arguments are an optional mode string ("r", "w",
+"w+", ...) and a filehandle for the PerlIO layer below.  Mandatory.
+
+When the layer is pushed as part of an C<open> call, C<PUSHED> will be called
+I<before> the actual open occurs, whether that be via C<OPEN>, C<SYSOPEN>,
+C<FDOPEN> or by letting a lower layer do the open.
+
+=item $obj->POPPED([$fh])
+
+Optional - called when the layer is about to be removed.
+
+=item $obj->UTF8($belowFlag,[$fh])
+
+Optional - if present it will be called immediately after PUSHED has
+returned. It should return a true value if the layer expects data to be
+UTF-8 encoded. If it returns true, the result is as if the caller had done
+
+   ":via(YourClass):utf8"
+
+If not present or if it returns false, then the stream is left with
+the UTF-8 flag clear.
+The I<$belowFlag> argument will be true if there is a layer below
+and that layer was expecting UTF-8.
+
+=item $obj->OPEN($path,$mode,[$fh])
+
+Optional - if not present a lower layer does the open.
+If present, called for normal opens after the layer is pushed.
+This function is subject to change as there is no easy way
+to get a lower layer to do the open and then regain control.
+
+=item $obj->BINMODE([$fh])
+
+Optional - if not present the layer is popped on binmode($fh) or when C<:raw>
+is pushed. If present it should return 0 on success, -1 on error, or undef
+to pop the layer.
+
+=item $obj->FDOPEN($fd,[$fh])
+
+Optional - if not present a lower layer does the open.
+If present, called after the layer is pushed for opens which pass
+a numeric file descriptor.
+This function is subject to change as there is no easy way
+to get a lower layer to do the open and then regain control.
+
+=item $obj->SYSOPEN($path,$imode,$perm,[$fh])
+
+Optional - if not present a lower layer does the open.
+If present, called after the layer is pushed for sysopen style opens
+which pass a numeric mode and permissions.
+This function is subject to change as there is no easy way
+to get a lower layer to do the open and then regain control.
+
+=item $obj->FILENO($fh)
+
+Returns a numeric value for a Unix-like file descriptor. Returns -1 if
+there isn't one.  Optional.  Default is fileno($fh).
+
+=item $obj->READ($buffer,$len,$fh)
+
+Returns the number of octets placed in $buffer (must be less than or
+equal to $len).  Optional.  Default is to use FILL instead.
+
+=item $obj->WRITE($buffer,$fh)
+
+Returns the number of octets from $buffer that have been successfully written.
+
+=item $obj->FILL($fh)
+
+Should return a string to be placed in the buffer.  Optional. If not
+provided, must provide READ or reject handles open for reading in
+PUSHED.
+
+=item $obj->CLOSE($fh)
+
+Should return 0 on success, -1 on error.
+Optional.
+
+=item $obj->SEEK($posn,$whence,$fh)
+
+Should return 0 on success, -1 on error.
+Optional.  Default is to fail, but that is likely to be changed
+in future.
+
+=item $obj->TELL($fh)
+
+Returns file position.
+Optional.  Default to be determined.
+
+=item $obj->UNREAD($buffer,$fh)
+
+Returns the number of octets from $buffer that have been successfully
+saved to be returned on future FILL/READ calls.  Optional.  Default is
+to push data into a temporary layer above this one.
+
+=item $obj->FLUSH($fh)
+
+Flush any buffered write data.  May possibly be called on readable
+handles too.  Should return 0 on success, -1 on error.
+
+=item $obj->SETLINEBUF($fh)
+
+Optional. No return.
+
+=item $obj->CLEARERR($fh)
+
+Optional. No return.
+
+=item $obj->ERROR($fh)
+
+Optional. Returns error state. Default is no error until a mechanism
+to signal error (die?) is worked out.
+
+=item $obj->EOF($fh)
+
+Optional. Returns end-of-file state. Default is a function of the return
+value of FILL or READ.
+
+=back
+
+=head1 EXAMPLES
+
+Check the PerlIO::via:: namespace on CPAN for examples of PerlIO layers
+implemented in Perl.  To give you an idea how simple the implementation of
+a PerlIO layer can look, a simple example is included here.
+
+=head2 Example - a Hexadecimal Handle
+
+Given the following module, PerlIO::via::Hex :
+
+    package PerlIO::via::Hex;
+
+    sub PUSHED
+    {
+     my ($class,$mode,$fh) = @_;
+     # When writing we buffer the data
+     my $buf = '';
+     return bless \$buf,$class;
+    }
+
+    sub FILL
+    {
+     my ($obj,$fh) = @_;
+     my $line = <$fh>;
+     return (defined $line) ? pack("H*", $line) : undef;
+    }
+
+    sub WRITE
+    {
+     my ($obj,$buf,$fh) = @_;
+     $$obj .= unpack("H*", $buf);
+     return length($buf);
+    }
+
+    sub FLUSH
+    {
+     my ($obj,$fh) = @_;
+     print $fh $$obj or return -1;
+     $$obj = '';
+     return 0;
+    }
+
+    1;
+
+The following code opens up an output handle that will convert any
+output to a hexadecimal dump of the output bytes: for example "A" will
+be converted to "41" (on ASCII-based machines, on EBCDIC platforms
+the "A" will become "c1")
+
+    use PerlIO::via::Hex;
+    open(my $fh, ">:via(Hex)", "foo.hex");
+
+and the following code will read the hexdump in and convert it
+on the fly back into bytes:
+
+    open(my $fh, "<:via(Hex)", "foo.hex");
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/SDBM_File.pm b/lib/5.24.1/x86_64-linux/SDBM_File.pm
new file mode 100644
index 00000000..5df90857
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/SDBM_File.pm
@@ -0,0 +1,131 @@
+package SDBM_File;
+
+use strict;
+use warnings;
+
+require Tie::Hash;
+require XSLoader;
+
+our @ISA = qw(Tie::Hash);
+our $VERSION = "1.14";
+
+our @EXPORT_OK = qw(PAGFEXT DIRFEXT PAIRMAX);
+use Exporter "import";
+
+XSLoader::load();
+
+1;
+
+__END__
+
+=head1 NAME
+
+SDBM_File - Tied access to sdbm files
+
+=head1 SYNOPSIS
+
+ use Fcntl;   # For O_RDWR, O_CREAT, etc.
+ use SDBM_File;
+
+ tie(%h, 'SDBM_File', 'filename', O_RDWR|O_CREAT, 0666)
+   or die "Couldn't tie SDBM file 'filename': $!; aborting";
+
+ # Now read and change the hash
+ $h{newkey} = newvalue;
+ print $h{oldkey}; 
+ ...
+
+ untie %h;
+
+=head1 DESCRIPTION
+
+C<SDBM_File> establishes a connection between a Perl hash variable and
+a file in SDBM_File format.  You can manipulate the data in the file
+just as if it were in a Perl hash, but when your program exits, the
+data will remain in the file, to be used the next time your program
+runs.
+
+=head2 Tie
+
+Use C<SDBM_File> with the Perl built-in C<tie> function to establish
+the connection between the variable and the file.
+
+    tie %hash, 'SDBM_File', $basename, $modeflags, $perms;
+
+    tie %hash, 'SDBM_File', $dirfile,  $modeflags, $perms, $pagfilename;
+
+C<$basename> is the base filename for the database.  The database is two
+files with ".dir" and ".pag" extensions appended to C<$basename>,
+
+    $basename.dir     (or .sdbm_dir on VMS, per DIRFEXT constant)
+    $basename.pag
+
+The two filenames can also be given separately in full as C<$dirfile>
+and C<$pagfilename>.  This suits for two files without ".dir" and ".pag"
+extensions, perhaps for example two files from L<File::Temp>.
+
+C<$modeflags> can be the following constants from the C<Fcntl> module (in
+the style of the L<open(2)> system call),
+
+    O_RDONLY          read-only access
+    O_WRONLY          write-only access
+    O_RDWR            read and write access
+
+If you want to create the file if it does not already exist then bitwise-OR
+(C<|>) C<O_CREAT> too.  If you omit C<O_CREAT> and the database does not
+already exist then the C<tie> call will fail.
+
+    O_CREAT           create database if doesn't already exist
+
+C<$perms> is the file permissions bits to use if new database files are
+created.  This parameter is mandatory even when not creating a new database.
+The permissions will be reduced by the user's umask so the usual value here
+would be 0666, or if some very private data then 0600.  (See
+L<perlfunc/umask>.)
+
+=head1 EXPORTS
+
+SDBM_File optionally exports the following constants:
+
+=over
+
+=item *
+
+C<PAGFEXT> - the extension used for the page file, usually C<.pag>.
+
+=item *
+
+C<DIRFEXT> - the extension used for the directory file, C<.dir>
+everywhere but VMS, where it is C<.sdbm_dir>.
+
+=item *
+
+C<PAIRMAX> - the maximum size of a stored hash entry, including the
+length of both the key and value.
+
+=back
+
+These constants can also be used with fully qualified names,
+eg. C<SDBM_File::PAGFEXT>.
+
+=head1 DIAGNOSTICS
+
+On failure, the C<tie> call returns an undefined value and probably
+sets C<$!> to contain the reason the file could not be tied.
+
+=head2 C<sdbm store returned -1, errno 22, key "..." at ...>
+
+This warning is emitted when you try to store a key or a value that
+is too long.  It means that the change was not recorded in the
+database.  See BUGS AND WARNINGS below.
+
+=head1 BUGS AND WARNINGS
+
+There are a number of limits on the size of the data that you can
+store in the SDBM file.  The most important is that the length of a
+key, plus the length of its associated value, may not exceed 1008
+bytes.
+
+See L<perlfunc/tie>, L<perldbmfilter>, L<Fcntl>
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/Scalar/Util.pm b/lib/5.24.1/x86_64-linux/Scalar/Util.pm
new file mode 100644
index 00000000..99a536df
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/Scalar/Util.pm
@@ -0,0 +1,368 @@
+# Copyright (c) 1997-2007 Graham Barr <gbarr@pobox.com>. All rights reserved.
+# This program is free software; you can redistribute it and/or
+# modify it under the same terms as Perl itself.
+#
+# Maintained since 2013 by Paul Evans <leonerd@leonerd.org.uk>
+
+package Scalar::Util;
+
+use strict;
+require Exporter;
+
+our @ISA       = qw(Exporter);
+our @EXPORT_OK = qw(
+  blessed refaddr reftype weaken unweaken isweak
+
+  dualvar isdual isvstring looks_like_number openhandle readonly set_prototype
+  tainted
+);
+our $VERSION    = "1.42_02";
+$VERSION   = eval $VERSION;
+
+require List::Util; # List::Util loads the XS
+List::Util->VERSION( $VERSION ); # Ensure we got the right XS version (RT#100863)
+
+our @EXPORT_FAIL;
+
+unless (defined &weaken) {
+  push @EXPORT_FAIL, qw(weaken);
+}
+unless (defined &isweak) {
+  push @EXPORT_FAIL, qw(isweak isvstring);
+}
+unless (defined &isvstring) {
+  push @EXPORT_FAIL, qw(isvstring);
+}
+
+sub export_fail {
+  if (grep { /^(?:weaken|isweak)$/ } @_ ) {
+    require Carp;
+    Carp::croak("Weak references are not implemented in the version of perl");
+  }
+
+  if (grep { /^isvstring$/ } @_ ) {
+    require Carp;
+    Carp::croak("Vstrings are not implemented in the version of perl");
+  }
+
+  @_;
+}
+
+# set_prototype has been moved to Sub::Util with a different interface
+sub set_prototype(&$)
+{
+  my ( $code, $proto ) = @_;
+  return Sub::Util::set_prototype( $proto, $code );
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+Scalar::Util - A selection of general-utility scalar subroutines
+
+=head1 SYNOPSIS
+
+    use Scalar::Util qw(blessed dualvar isdual readonly refaddr reftype
+                        tainted weaken isweak isvstring looks_like_number
+                        set_prototype);
+                        # and other useful utils appearing below
+
+=head1 DESCRIPTION
+
+C<Scalar::Util> contains a selection of subroutines that people have expressed
+would be nice to have in the perl core, but the usage would not really be high
+enough to warrant the use of a keyword, and the size so small such that being
+individual extensions would be wasteful.
+
+By default C<Scalar::Util> does not export any subroutines.
+
+=cut
+
+=head1 FUNCTIONS FOR REFERENCES
+
+The following functions all perform some useful activity on reference values.
+
+=head2 blessed
+
+    my $pkg = blessed( $ref );
+
+If C<$ref> is a blessed reference the name of the package that it is blessed
+into is returned. Otherwise C<undef> is returned.
+
+    $scalar = "foo";
+    $class  = blessed $scalar;           # undef
+
+    $ref    = [];
+    $class  = blessed $ref;              # undef
+
+    $obj    = bless [], "Foo";
+    $class  = blessed $obj;              # "Foo"
+
+Take care when using this function simply as a truth test (such as in
+C<if(blessed $ref)...>) because the package name C<"0"> is defined yet false.
+
+=head2 refaddr
+
+    my $addr = refaddr( $ref );
+
+If C<$ref> is reference the internal memory address of the referenced value is
+returned as a plain integer. Otherwise C<undef> is returned.
+
+    $addr = refaddr "string";           # undef
+    $addr = refaddr \$var;              # eg 12345678
+    $addr = refaddr [];                 # eg 23456784
+
+    $obj  = bless {}, "Foo";
+    $addr = refaddr $obj;               # eg 88123488
+
+=head2 reftype
+
+    my $type = reftype( $ref );
+
+If C<$ref> is a reference the basic Perl type of the variable referenced is
+returned as a plain string (such as C<ARRAY> or C<HASH>). Otherwise C<undef>
+is returned.
+
+    $type = reftype "string";           # undef
+    $type = reftype \$var;              # SCALAR
+    $type = reftype [];                 # ARRAY
+
+    $obj  = bless {}, "Foo";
+    $type = reftype $obj;               # HASH
+
+=head2 weaken
+
+    weaken( $ref );
+
+The lvalue C<$ref> will be turned into a weak reference. This means that it
+will not hold a reference count on the object it references. Also when the
+reference count on that object reaches zero, the reference will be set to
+undef. This function mutates the lvalue passed as its argument and returns no
+value.
+
+This is useful for keeping copies of references, but you don't want to prevent
+the object being DESTROY-ed at its usual time.
+
+    {
+      my $var;
+      $ref = \$var;
+      weaken($ref);                     # Make $ref a weak reference
+    }
+    # $ref is now undef
+
+Note that if you take a copy of a scalar with a weakened reference, the copy
+will be a strong reference.
+
+    my $var;
+    my $foo = \$var;
+    weaken($foo);                       # Make $foo a weak reference
+    my $bar = $foo;                     # $bar is now a strong reference
+
+This may be less obvious in other situations, such as C<grep()>, for instance
+when grepping through a list of weakened references to objects that may have
+been destroyed already:
+
+    @object = grep { defined } @object;
+
+This will indeed remove all references to destroyed objects, but the remaining
+references to objects will be strong, causing the remaining objects to never be
+destroyed because there is now always a strong reference to them in the @object
+array.
+
+=head2 unweaken
+
+    unweaken( $ref );
+
+I<Since version 1.36.>
+
+The lvalue C<REF> will be turned from a weak reference back into a normal
+(strong) reference again. This function mutates the lvalue passed as its
+argument and returns no value. This undoes the action performed by
+L</weaken>.
+
+This function is slightly neater and more convenient than the
+otherwise-equivalent code
+
+    my $tmp = $REF;
+    undef $REF;
+    $REF = $tmp;
+
+(because in particular, simply assigning a weak reference back to itself does
+not work to unweaken it; C<$REF = $REF> does not work).
+
+=head2 isweak
+
+    my $weak = isweak( $ref );
+
+Returns true if C<$ref> is a weak reference.
+
+    $ref  = \$foo;
+    $weak = isweak($ref);               # false
+    weaken($ref);
+    $weak = isweak($ref);               # true
+
+B<NOTE>: Copying a weak reference creates a normal, strong, reference.
+
+    $copy = $ref;
+    $weak = isweak($copy);              # false
+
+=head1 OTHER FUNCTIONS
+
+=head2 dualvar
+
+    my $var = dualvar( $num, $string );
+
+Returns a scalar that has the value C<$num> in a numeric context and the value
+C<$string> in a string context.
+
+    $foo = dualvar 10, "Hello";
+    $num = $foo + 2;                    # 12
+    $str = $foo . " world";             # Hello world
+
+=head2 isdual
+
+    my $dual = isdual( $var );
+
+I<Since version 1.26.>
+
+If C<$var> is a scalar that has both numeric and string values, the result is
+true.
+
+    $foo = dualvar 86, "Nix";
+    $dual = isdual($foo);               # true
+
+Note that a scalar can be made to have both string and numeric content through
+numeric operations:
+
+    $foo = "10";
+    $dual = isdual($foo);               # false
+    $bar = $foo + 0;
+    $dual = isdual($foo);               # true
+
+Note that although C<$!> appears to be dual-valued variable, it is actually
+implemented using a tied scalar:
+
+    $! = 1;
+    print("$!\n");                      # "Operation not permitted"
+    $dual = isdual($!);                 # false
+
+You can capture its numeric and string content using:
+
+    $err = dualvar $!, $!;
+    $dual = isdual($err);               # true
+
+=head2 isvstring
+
+    my $vstring = isvstring( $var );
+
+If C<$var> is a scalar which was coded as a vstring the result is true.
+
+    $vs   = v49.46.48;
+    $fmt  = isvstring($vs) ? "%vd" : "%s"; #true
+    printf($fmt,$vs);
+
+=head2 looks_like_number
+
+    my $isnum = looks_like_number( $var );
+
+Returns true if perl thinks C<$var> is a number. See
+L<perlapi/looks_like_number>.
+
+=head2 openhandle
+
+    my $fh = openhandle( $fh );
+
+Returns C<$fh> itself if C<$fh> may be used as a filehandle and is open, or is
+is a tied handle. Otherwise C<undef> is returned.
+
+    $fh = openhandle(*STDIN);           # \*STDIN
+    $fh = openhandle(\*STDIN);          # \*STDIN
+    $fh = openhandle(*NOTOPEN);         # undef
+    $fh = openhandle("scalar");         # undef
+
+=head2 readonly
+
+    my $ro = readonly( $var );
+
+Returns true if C<$var> is readonly.
+
+    sub foo { readonly($_[0]) }
+
+    $readonly = foo($bar);              # false
+    $readonly = foo(0);                 # true
+
+=head2 set_prototype
+
+    my $code = set_prototype( $code, $prototype );
+
+Sets the prototype of the function given by the C<$code> reference, or deletes
+it if C<$prototype> is C<undef>. Returns the C<$code> reference itself.
+
+    set_prototype \&foo, '$$';
+
+=head2 tainted
+
+    my $t = tainted( $var );
+
+Return true if C<$var> is tainted.
+
+    $taint = tainted("constant");       # false
+    $taint = tainted($ENV{PWD});        # true if running under -T
+
+=head1 DIAGNOSTICS
+
+Module use may give one of the following errors during import.
+
+=over
+
+=item Weak references are not implemented in the version of perl
+
+The version of perl that you are using does not implement weak references, to
+use L</isweak> or L</weaken> you will need to use a newer release of perl.
+
+=item Vstrings are not implemented in the version of perl
+
+The version of perl that you are using does not implement Vstrings, to use
+L</isvstring> you will need to use a newer release of perl.
+
+=item C<NAME> is only available with the XS version of Scalar::Util
+
+C<Scalar::Util> contains both perl and C implementations of many of its
+functions so that those without access to a C compiler may still use it.
+However some of the functions are only available when a C compiler was
+available to compile the XS version of the extension.
+
+At present that list is: weaken, isweak, dualvar, isvstring, set_prototype
+
+=back
+
+=head1 KNOWN BUGS
+
+There is a bug in perl5.6.0 with UV's that are >= 1<<31. This will
+show up as tests 8 and 9 of dualvar.t failing
+
+=head1 SEE ALSO
+
+L<List::Util>
+
+=head1 COPYRIGHT
+
+Copyright (c) 1997-2007 Graham Barr <gbarr@pobox.com>. All rights reserved.
+This program is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+Additionally L</weaken> and L</isweak> which are
+
+Copyright (c) 1999 Tuomas J. Lukka <lukka@iki.fi>. All rights reserved.
+This program is free software; you can redistribute it and/or modify it
+under the same terms as perl itself.
+
+Copyright (C) 2004, 2008  Matthijs van Duin.  All rights reserved.
+Copyright (C) 2014 cPanel Inc.  All rights reserved.
+This program is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/Socket.pm b/lib/5.24.1/x86_64-linux/Socket.pm
new file mode 100644
index 00000000..5b187fac
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/Socket.pm
@@ -0,0 +1,1121 @@
+package Socket;
+
+use strict;
+{ use 5.006001; }
+
+our $VERSION = '2.020_03'; # patched in perl5.git
+
+=head1 NAME
+
+C<Socket> - networking constants and support functions
+
+=head1 SYNOPSIS
+
+C<Socket> a low-level module used by, among other things, the L<IO::Socket>
+family of modules. The following examples demonstrate some low-level uses but
+a practical program would likely use the higher-level API provided by
+C<IO::Socket> or similar instead.
+
+ use Socket qw(PF_INET SOCK_STREAM pack_sockaddr_in inet_aton);
+
+ socket(my $socket, PF_INET, SOCK_STREAM, 0)
+     or die "socket: $!";
+
+ my $port = getservbyname "echo", "tcp";
+ connect($socket, pack_sockaddr_in($port, inet_aton("localhost")))
+     or die "connect: $!";
+
+ print $socket "Hello, world!\n";
+ print <$socket>;
+
+See also the L</EXAMPLES> section.
+
+=head1 DESCRIPTION
+
+This module provides a variety of constants, structure manipulators and other
+functions related to socket-based networking. The values and functions
+provided are useful when used in conjunction with Perl core functions such as
+socket(), setsockopt() and bind(). It also provides several other support
+functions, mostly for dealing with conversions of network addresses between
+human-readable and native binary forms, and for hostname resolver operations.
+
+Some constants and functions are exported by default by this module; but for
+backward-compatibility any recently-added symbols are not exported by default
+and must be requested explicitly. When an import list is provided to the
+C<use Socket> line, the default exports are not automatically imported. It is
+therefore best practice to always to explicitly list all the symbols required.
+
+Also, some common socket "newline" constants are provided: the constants
+C<CR>, C<LF>, and C<CRLF>, as well as C<$CR>, C<$LF>, and C<$CRLF>, which map
+to C<\015>, C<\012>, and C<\015\012>. If you do not want to use the literal
+characters in your programs, then use the constants provided here. They are
+not exported by default, but can be imported individually, and with the
+C<:crlf> export tag:
+
+ use Socket qw(:DEFAULT :crlf);
+
+ $sock->print("GET / HTTP/1.0$CRLF");
+
+The entire getaddrinfo() subsystem can be exported using the tag C<:addrinfo>;
+this exports the getaddrinfo() and getnameinfo() functions, and all the
+C<AI_*>, C<NI_*>, C<NIx_*> and C<EAI_*> constants.
+
+=cut
+
+=head1 CONSTANTS
+
+In each of the following groups, there may be many more constants provided
+than just the ones given as examples in the section heading. If the heading
+ends C<...> then this means there are likely more; the exact constants
+provided will depend on the OS and headers found at compile-time.
+
+=cut
+
+=head2 PF_INET, PF_INET6, PF_UNIX, ...
+
+Protocol family constants to use as the first argument to socket() or the
+value of the C<SO_DOMAIN> or C<SO_FAMILY> socket option.
+
+=head2 AF_INET, AF_INET6, AF_UNIX, ...
+
+Address family constants used by the socket address structures, to pass to
+such functions as inet_pton() or getaddrinfo(), or are returned by such
+functions as sockaddr_family().
+
+=head2 SOCK_STREAM, SOCK_DGRAM, SOCK_RAW, ...
+
+Socket type constants to use as the second argument to socket(), or the value
+of the C<SO_TYPE> socket option.
+
+=head2 SOCK_NONBLOCK. SOCK_CLOEXEC
+
+Linux-specific shortcuts to specify the C<O_NONBLOCK> and C<FD_CLOEXEC> flags
+during a C<socket(2)> call.
+
+ socket( my $sockh, PF_INET, SOCK_DGRAM|SOCK_NONBLOCK, 0 )
+
+=head2 SOL_SOCKET
+
+Socket option level constant for setsockopt() and getsockopt().
+
+=head2 SO_ACCEPTCONN, SO_BROADCAST, SO_ERROR, ...
+
+Socket option name constants for setsockopt() and getsockopt() at the
+C<SOL_SOCKET> level.
+
+=head2 IP_OPTIONS, IP_TOS, IP_TTL, ...
+
+Socket option name constants for IPv4 socket options at the C<IPPROTO_IP>
+level.
+
+=head2 IPTOS_LOWDELAY, IPTOS_THROUGHPUT, IPTOS_RELIABILITY, ...
+
+Socket option value constants for C<IP_TOS> socket option.
+
+=head2 MSG_BCAST, MSG_OOB, MSG_TRUNC, ...
+
+Message flag constants for send() and recv().
+
+=head2 SHUT_RD, SHUT_RDWR, SHUT_WR
+
+Direction constants for shutdown().
+
+=head2 INADDR_ANY, INADDR_BROADCAST, INADDR_LOOPBACK, INADDR_NONE
+
+Constants giving the special C<AF_INET> addresses for wildcard, broadcast,
+local loopback, and invalid addresses.
+
+Normally equivalent to inet_aton('0.0.0.0'), inet_aton('255.255.255.255'),
+inet_aton('localhost') and inet_aton('255.255.255.255') respectively.
+
+=head2 IPPROTO_IP, IPPROTO_IPV6, IPPROTO_TCP, ...
+
+IP protocol constants to use as the third argument to socket(), the level
+argument to getsockopt() or setsockopt(), or the value of the C<SO_PROTOCOL>
+socket option.
+
+=head2 TCP_CORK, TCP_KEEPALIVE, TCP_NODELAY, ...
+
+Socket option name constants for TCP socket options at the C<IPPROTO_TCP>
+level.
+
+=head2 IN6ADDR_ANY, IN6ADDR_LOOPBACK
+
+Constants giving the special C<AF_INET6> addresses for wildcard and local
+loopback.
+
+Normally equivalent to inet_pton(AF_INET6, "::") and
+inet_pton(AF_INET6, "::1") respectively.
+
+=head2 IPV6_ADD_MEMBERSHIP, IPV6_MTU, IPV6_V6ONLY, ...
+
+Socket option name constants for IPv6 socket options at the C<IPPROTO_IPV6>
+level.
+
+=cut
+
+# Still undocumented: SCM_*, SOMAXCONN, IOV_MAX, UIO_MAXIOV
+
+=head1 STRUCTURE MANIPULATORS
+
+The following functions convert between lists of Perl values and packed binary
+strings representing structures.
+
+=cut
+
+=head2 $family = sockaddr_family $sockaddr
+
+Takes a packed socket address (as returned by pack_sockaddr_in(),
+pack_sockaddr_un() or the perl builtin functions getsockname() and
+getpeername()). Returns the address family tag. This will be one of the
+C<AF_*> constants, such as C<AF_INET> for a C<sockaddr_in> addresses or
+C<AF_UNIX> for a C<sockaddr_un>. It can be used to figure out what unpack to
+use for a sockaddr of unknown type.
+
+=head2 $sockaddr = pack_sockaddr_in $port, $ip_address
+
+Takes two arguments, a port number and an opaque string (as returned by
+inet_aton(), or a v-string). Returns the C<sockaddr_in> structure with those
+arguments packed in and C<AF_INET> filled in. For Internet domain sockets,
+this structure is normally what you need for the arguments in bind(),
+connect(), and send().
+
+=head2 ($port, $ip_address) = unpack_sockaddr_in $sockaddr
+
+Takes a C<sockaddr_in> structure (as returned by pack_sockaddr_in(),
+getpeername() or recv()). Returns a list of two elements: the port and an
+opaque string representing the IP address (you can use inet_ntoa() to convert
+the address to the four-dotted numeric format). Will croak if the structure
+does not represent an C<AF_INET> address.
+
+In scalar context will return just the IP address.
+
+=head2 $sockaddr = sockaddr_in $port, $ip_address
+
+=head2 ($port, $ip_address) = sockaddr_in $sockaddr
+
+A wrapper of pack_sockaddr_in() or unpack_sockaddr_in(). In list context,
+unpacks its argument and returns a list consisting of the port and IP address.
+In scalar context, packs its port and IP address arguments as a C<sockaddr_in>
+and returns it.
+
+Provided largely for legacy compatibility; it is better to use
+pack_sockaddr_in() or unpack_sockaddr_in() explicitly.
+
+=head2 $sockaddr = pack_sockaddr_in6 $port, $ip6_address, [$scope_id, [$flowinfo]]
+
+Takes two to four arguments, a port number, an opaque string (as returned by
+inet_pton()), optionally a scope ID number, and optionally a flow label
+number. Returns the C<sockaddr_in6> structure with those arguments packed in
+and C<AF_INET6> filled in. IPv6 equivalent of pack_sockaddr_in().
+
+=head2 ($port, $ip6_address, $scope_id, $flowinfo) = unpack_sockaddr_in6 $sockaddr
+
+Takes a C<sockaddr_in6> structure. Returns a list of four elements: the port
+number, an opaque string representing the IPv6 address, the scope ID, and the
+flow label. (You can use inet_ntop() to convert the address to the usual
+string format). Will croak if the structure does not represent an C<AF_INET6>
+address.
+
+In scalar context will return just the IP address.
+
+=head2 $sockaddr = sockaddr_in6 $port, $ip6_address, [$scope_id, [$flowinfo]]
+
+=head2 ($port, $ip6_address, $scope_id, $flowinfo) = sockaddr_in6 $sockaddr
+
+A wrapper of pack_sockaddr_in6() or unpack_sockaddr_in6(). In list context,
+unpacks its argument according to unpack_sockaddr_in6(). In scalar context,
+packs its arguments according to pack_sockaddr_in6().
+
+Provided largely for legacy compatibility; it is better to use
+pack_sockaddr_in6() or unpack_sockaddr_in6() explicitly.
+
+=head2 $sockaddr = pack_sockaddr_un $path
+
+Takes one argument, a pathname. Returns the C<sockaddr_un> structure with that
+path packed in with C<AF_UNIX> filled in. For C<PF_UNIX> sockets, this
+structure is normally what you need for the arguments in bind(), connect(),
+and send().
+
+=head2 ($path) = unpack_sockaddr_un $sockaddr
+
+Takes a C<sockaddr_un> structure (as returned by pack_sockaddr_un(),
+getpeername() or recv()). Returns a list of one element: the pathname. Will
+croak if the structure does not represent an C<AF_UNIX> address.
+
+=head2 $sockaddr = sockaddr_un $path
+
+=head2 ($path) = sockaddr_un $sockaddr
+
+A wrapper of pack_sockaddr_un() or unpack_sockaddr_un(). In a list context,
+unpacks its argument and returns a list consisting of the pathname. In a
+scalar context, packs its pathname as a C<sockaddr_un> and returns it.
+
+Provided largely for legacy compatibility; it is better to use
+pack_sockaddr_un() or unpack_sockaddr_un() explicitly.
+
+These are only supported if your system has E<lt>F<sys/un.h>E<gt>.
+
+=head2 $ip_mreq = pack_ip_mreq $multiaddr, $interface
+
+Takes an IPv4 multicast address and optionally an interface address (or
+C<INADDR_ANY>). Returns the C<ip_mreq> structure with those arguments packed
+in. Suitable for use with the C<IP_ADD_MEMBERSHIP> and C<IP_DROP_MEMBERSHIP>
+sockopts.
+
+=head2 ($multiaddr, $interface) = unpack_ip_mreq $ip_mreq
+
+Takes an C<ip_mreq> structure. Returns a list of two elements; the IPv4
+multicast address and interface address.
+
+=head2 $ip_mreq_source = pack_ip_mreq_source $multiaddr, $source, $interface
+
+Takes an IPv4 multicast address, source address, and optionally an interface
+address (or C<INADDR_ANY>). Returns the C<ip_mreq_source> structure with those
+arguments packed in. Suitable for use with the C<IP_ADD_SOURCE_MEMBERSHIP>
+and C<IP_DROP_SOURCE_MEMBERSHIP> sockopts.
+
+=head2 ($multiaddr, $source, $interface) = unpack_ip_mreq_source $ip_mreq
+
+Takes an C<ip_mreq_source> structure. Returns a list of three elements; the
+IPv4 multicast address, source address and interface address.
+
+=head2 $ipv6_mreq = pack_ipv6_mreq $multiaddr6, $ifindex
+
+Takes an IPv6 multicast address and an interface number. Returns the
+C<ipv6_mreq> structure with those arguments packed in. Suitable for use with
+the C<IPV6_ADD_MEMBERSHIP> and C<IPV6_DROP_MEMBERSHIP> sockopts.
+
+=head2 ($multiaddr6, $ifindex) = unpack_ipv6_mreq $ipv6_mreq
+
+Takes an C<ipv6_mreq> structure. Returns a list of two elements; the IPv6
+address and an interface number.
+
+=cut
+
+=head1 FUNCTIONS
+
+=cut
+
+=head2 $ip_address = inet_aton $string
+
+Takes a string giving the name of a host, or a textual representation of an IP
+address and translates that to an packed binary address structure suitable to
+pass to pack_sockaddr_in(). If passed a hostname that cannot be resolved,
+returns C<undef>. For multi-homed hosts (hosts with more than one address),
+the first address found is returned.
+
+For portability do not assume that the result of inet_aton() is 32 bits wide,
+in other words, that it would contain only the IPv4 address in network order.
+
+This IPv4-only function is provided largely for legacy reasons. Newly-written
+code should use getaddrinfo() or inet_pton() instead for IPv6 support.
+
+=head2 $string = inet_ntoa $ip_address
+
+Takes a packed binary address structure such as returned by
+unpack_sockaddr_in() (or a v-string representing the four octets of the IPv4
+address in network order) and translates it into a string of the form
+C<d.d.d.d> where the C<d>s are numbers less than 256 (the normal
+human-readable four dotted number notation for Internet addresses).
+
+This IPv4-only function is provided largely for legacy reasons. Newly-written
+code should use getnameinfo() or inet_ntop() instead for IPv6 support.
+
+=head2 $address = inet_pton $family, $string
+
+Takes an address family (such as C<AF_INET> or C<AF_INET6>) and a string
+containing a textual representation of an address in that family and
+translates that to an packed binary address structure.
+
+See also getaddrinfo() for a more powerful and flexible function to look up
+socket addresses given hostnames or textual addresses.
+
+=head2 $string = inet_ntop $family, $address
+
+Takes an address family and a packed binary address structure and translates
+it into a human-readable textual representation of the address; typically in
+C<d.d.d.d> form for C<AF_INET> or C<hhhh:hhhh::hhhh> form for C<AF_INET6>.
+
+See also getnameinfo() for a more powerful and flexible function to turn
+socket addresses into human-readable textual representations.
+
+=head2 ($err, @result) = getaddrinfo $host, $service, [$hints]
+
+Given both a hostname and service name, this function attempts to resolve the
+host name into a list of network addresses, and the service name into a
+protocol and port number, and then returns a list of address structures
+suitable to connect() to it.
+
+Given just a host name, this function attempts to resolve it to a list of
+network addresses, and then returns a list of address structures giving these
+addresses.
+
+Given just a service name, this function attempts to resolve it to a protocol
+and port number, and then returns a list of address structures that represent
+it suitable to bind() to. This use should be combined with the C<AI_PASSIVE>
+flag; see below.
+
+Given neither name, it generates an error.
+
+If present, $hints should be a reference to a hash, where the following keys
+are recognised:
+
+=over 4
+
+=item flags => INT
+
+A bitfield containing C<AI_*> constants; see below.
+
+=item family => INT
+
+Restrict to only generating addresses in this address family
+
+=item socktype => INT
+
+Restrict to only generating addresses of this socket type
+
+=item protocol => INT
+
+Restrict to only generating addresses for this protocol
+
+=back
+
+The return value will be a list; the first value being an error indication,
+followed by a list of address structures (if no error occurred).
+
+The error value will be a dualvar; comparable to the C<EI_*> error constants,
+or printable as a human-readable error message string. If no error occurred it
+will be zero numerically and an empty string.
+
+Each value in the results list will be a hash reference containing the following
+fields:
+
+=over 4
+
+=item family => INT
+
+The address family (e.g. C<AF_INET>)
+
+=item socktype => INT
+
+The socket type (e.g. C<SOCK_STREAM>)
+
+=item protocol => INT
+
+The protocol (e.g. C<IPPROTO_TCP>)
+
+=item addr => STRING
+
+The address in a packed string (such as would be returned by
+pack_sockaddr_in())
+
+=item canonname => STRING
+
+The canonical name for the host if the C<AI_CANONNAME> flag was provided, or
+C<undef> otherwise. This field will only be present on the first returned
+address.
+
+=back
+
+The following flag constants are recognised in the $hints hash. Other flag
+constants may exist as provided by the OS.
+
+=over 4
+
+=item AI_PASSIVE
+
+Indicates that this resolution is for a local bind() for a passive (i.e.
+listening) socket, rather than an active (i.e. connecting) socket.
+
+=item AI_CANONNAME
+
+Indicates that the caller wishes the canonical hostname (C<canonname>) field
+of the result to be filled in.
+
+=item AI_NUMERICHOST
+
+Indicates that the caller will pass a numeric address, rather than a hostname,
+and that getaddrinfo() must not perform a resolve operation on this name. This
+flag will prevent a possibly-slow network lookup operation, and instead return
+an error if a hostname is passed.
+
+=back
+
+=head2 ($err, $hostname, $servicename) = getnameinfo $sockaddr, [$flags, [$xflags]]
+
+Given a packed socket address (such as from getsockname(), getpeername(), or
+returned by getaddrinfo() in a C<addr> field), returns the hostname and
+symbolic service name it represents. $flags may be a bitmask of C<NI_*>
+constants, or defaults to 0 if unspecified.
+
+The return value will be a list; the first value being an error condition,
+followed by the hostname and service name.
+
+The error value will be a dualvar; comparable to the C<EI_*> error constants,
+or printable as a human-readable error message string. The host and service
+names will be plain strings.
+
+The following flag constants are recognised as $flags. Other flag constants may
+exist as provided by the OS.
+
+=over 4
+
+=item NI_NUMERICHOST
+
+Requests that a human-readable string representation of the numeric address be
+returned directly, rather than performing a name resolve operation that may
+convert it into a hostname. This will also avoid potentially-blocking network
+IO.
+
+=item NI_NUMERICSERV
+
+Requests that the port number be returned directly as a number representation
+rather than performing a name resolve operation that may convert it into a
+service name.
+
+=item NI_NAMEREQD
+
+If a name resolve operation fails to provide a name, then this flag will cause
+getnameinfo() to indicate an error, rather than returning the numeric
+representation as a human-readable string.
+
+=item NI_DGRAM
+
+Indicates that the socket address relates to a C<SOCK_DGRAM> socket, for the
+services whose name differs between TCP and UDP protocols.
+
+=back
+
+The following constants may be supplied as $xflags.
+
+=over 4
+
+=item NIx_NOHOST
+
+Indicates that the caller is not interested in the hostname of the result, so
+it does not have to be converted. C<undef> will be returned as the hostname.
+
+=item NIx_NOSERV
+
+Indicates that the caller is not interested in the service name of the result,
+so it does not have to be converted. C<undef> will be returned as the service
+name.
+
+=back
+
+=head1 getaddrinfo() / getnameinfo() ERROR CONSTANTS
+
+The following constants may be returned by getaddrinfo() or getnameinfo().
+Others may be provided by the OS.
+
+=over 4
+
+=item EAI_AGAIN
+
+A temporary failure occurred during name resolution. The operation may be
+successful if it is retried later.
+
+=item EAI_BADFLAGS
+
+The value of the C<flags> hint to getaddrinfo(), or the $flags parameter to
+getnameinfo() contains unrecognised flags.
+
+=item EAI_FAMILY
+
+The C<family> hint to getaddrinfo(), or the family of the socket address
+passed to getnameinfo() is not supported.
+
+=item EAI_NODATA
+
+The host name supplied to getaddrinfo() did not provide any usable address
+data.
+
+=item EAI_NONAME
+
+The host name supplied to getaddrinfo() does not exist, or the address
+supplied to getnameinfo() is not associated with a host name and the
+C<NI_NAMEREQD> flag was supplied.
+
+=item EAI_SERVICE
+
+The service name supplied to getaddrinfo() is not available for the socket
+type given in the $hints.
+
+=back
+
+=cut
+
+=head1 EXAMPLES
+
+=head2 Lookup for connect()
+
+The getaddrinfo() function converts a hostname and a service name into a list
+of structures, each containing a potential way to connect() to the named
+service on the named host.
+
+ use IO::Socket;
+ use Socket qw(SOCK_STREAM getaddrinfo);
+
+ my %hints = (socktype => SOCK_STREAM);
+ my ($err, @res) = getaddrinfo("localhost", "echo", \%hints);
+ die "Cannot getaddrinfo - $err" if $err;
+
+ my $sock;
+
+ foreach my $ai (@res) {
+     my $candidate = IO::Socket->new();
+
+     $candidate->socket($ai->{family}, $ai->{socktype}, $ai->{protocol})
+         or next;
+
+     $candidate->connect($ai->{addr})
+         or next;
+
+     $sock = $candidate;
+     last;
+ }
+
+ die "Cannot connect to localhost:echo" unless $sock;
+
+ $sock->print("Hello, world!\n");
+ print <$sock>;
+
+Because a list of potential candidates is returned, the C<while> loop tries
+each in turn until it finds one that succeeds both the socket() and connect()
+calls.
+
+This function performs the work of the legacy functions gethostbyname(),
+getservbyname(), inet_aton() and pack_sockaddr_in().
+
+In practice this logic is better performed by L<IO::Socket::IP>.
+
+=head2 Making a human-readable string out of an address
+
+The getnameinfo() function converts a socket address, such as returned by
+getsockname() or getpeername(), into a pair of human-readable strings
+representing the address and service name.
+
+ use IO::Socket::IP;
+ use Socket qw(getnameinfo);
+
+ my $server = IO::Socket::IP->new(LocalPort => 12345, Listen => 1) or
+     die "Cannot listen - $@";
+
+ my $socket = $server->accept or die "accept: $!";
+
+ my ($err, $hostname, $servicename) = getnameinfo($socket->peername);
+ die "Cannot getnameinfo - $err" if $err;
+
+ print "The peer is connected from $hostname\n";
+
+Since in this example only the hostname was used, the redundant conversion of
+the port number into a service name may be omitted by passing the
+C<NIx_NOSERV> flag.
+
+ use Socket qw(getnameinfo NIx_NOSERV);
+
+ my ($err, $hostname) = getnameinfo($socket->peername, 0, NIx_NOSERV);
+
+This function performs the work of the legacy functions unpack_sockaddr_in(),
+inet_ntoa(), gethostbyaddr() and getservbyport().
+
+In practice this logic is better performed by L<IO::Socket::IP>.
+
+=head2 Resolving hostnames into IP addresses
+
+To turn a hostname into a human-readable plain IP address use getaddrinfo()
+to turn the hostname into a list of socket structures, then getnameinfo() on
+each one to make it a readable IP address again.
+
+ use Socket qw(:addrinfo SOCK_RAW);
+
+ my ($err, @res) = getaddrinfo($hostname, "", {socktype => SOCK_RAW});
+ die "Cannot getaddrinfo - $err" if $err;
+
+ while( my $ai = shift @res ) {
+     my ($err, $ipaddr) = getnameinfo($ai->{addr}, NI_NUMERICHOST, NIx_NOSERV);
+     die "Cannot getnameinfo - $err" if $err;
+
+     print "$ipaddr\n";
+ }
+
+The C<socktype> hint to getaddrinfo() filters the results to only include one
+socket type and protocol. Without this most OSes return three combinations,
+for C<SOCK_STREAM>, C<SOCK_DGRAM> and C<SOCK_RAW>, resulting in triplicate
+output of addresses. The C<NI_NUMERICHOST> flag to getnameinfo() causes it to
+return a string-formatted plain IP address, rather than reverse resolving it
+back into a hostname.
+
+This combination performs the work of the legacy functions gethostbyname()
+and inet_ntoa().
+
+=head2 Accessing socket options
+
+The many C<SO_*> and other constants provide the socket option names for
+getsockopt() and setsockopt().
+
+ use IO::Socket::INET;
+ use Socket qw(SOL_SOCKET SO_RCVBUF IPPROTO_IP IP_TTL);
+
+ my $socket = IO::Socket::INET->new(LocalPort => 0, Proto => 'udp')
+     or die "Cannot create socket: $@";
+
+ $socket->setsockopt(SOL_SOCKET, SO_RCVBUF, 64*1024) or
+     die "setsockopt: $!";
+
+ print "Receive buffer is ", $socket->getsockopt(SOL_SOCKET, SO_RCVBUF),
+     " bytes\n";
+
+ print "IP TTL is ", $socket->getsockopt(IPPROTO_IP, IP_TTL), "\n";
+
+As a convenience, L<IO::Socket>'s setsockopt() method will convert a number
+into a packed byte buffer, and getsockopt() will unpack a byte buffer of the
+correct size back into a number.
+
+=cut
+
+=head1 AUTHOR
+
+This module was originally maintained in Perl core by the Perl 5 Porters.
+
+It was extracted to dual-life on CPAN at version 1.95 by
+Paul Evans <leonerd@leonerd.org.uk>
+
+=cut
+
+use Carp;
+use warnings::register;
+
+require Exporter;
+require XSLoader;
+our @ISA = qw(Exporter);
+
+# <@Nicholas> you can't change @EXPORT without breaking the implicit API
+# Please put any new constants in @EXPORT_OK!
+
+# List re-ordered to match documentation above. Try to keep the ordering
+# consistent so it's easier to see which ones are or aren't documented.
+our @EXPORT = qw(
+	PF_802 PF_AAL PF_APPLETALK PF_CCITT PF_CHAOS PF_CTF PF_DATAKIT
+	PF_DECnet PF_DLI PF_ECMA PF_GOSIP PF_HYLINK PF_IMPLINK PF_INET PF_INET6
+	PF_ISO PF_KEY PF_LAST PF_LAT PF_LINK PF_MAX PF_NBS PF_NIT PF_NS PF_OSI
+	PF_OSINET PF_PUP PF_ROUTE PF_SNA PF_UNIX PF_UNSPEC PF_USER PF_WAN
+	PF_X25
+
+	AF_802 AF_AAL AF_APPLETALK AF_CCITT AF_CHAOS AF_CTF AF_DATAKIT
+	AF_DECnet AF_DLI AF_ECMA AF_GOSIP AF_HYLINK AF_IMPLINK AF_INET AF_INET6
+	AF_ISO AF_KEY AF_LAST AF_LAT AF_LINK AF_MAX AF_NBS AF_NIT AF_NS AF_OSI
+	AF_OSINET AF_PUP AF_ROUTE AF_SNA AF_UNIX AF_UNSPEC AF_USER AF_WAN
+	AF_X25
+
+	SOCK_DGRAM SOCK_RAW SOCK_RDM SOCK_SEQPACKET SOCK_STREAM
+
+	SOL_SOCKET
+
+	SO_ACCEPTCONN SO_ATTACH_FILTER SO_BACKLOG SO_BROADCAST SO_CHAMELEON
+	SO_DEBUG SO_DETACH_FILTER SO_DGRAM_ERRIND SO_DOMAIN SO_DONTLINGER
+	SO_DONTROUTE SO_ERROR SO_FAMILY SO_KEEPALIVE SO_LINGER SO_OOBINLINE
+	SO_PASSCRED SO_PASSIFNAME SO_PEERCRED SO_PROTOCOL SO_PROTOTYPE
+	SO_RCVBUF SO_RCVLOWAT SO_RCVTIMEO SO_REUSEADDR SO_REUSEPORT
+	SO_SECURITY_AUTHENTICATION SO_SECURITY_ENCRYPTION_NETWORK
+	SO_SECURITY_ENCRYPTION_TRANSPORT SO_SNDBUF SO_SNDLOWAT SO_SNDTIMEO
+	SO_STATE SO_TYPE SO_USELOOPBACK SO_XOPEN SO_XSE
+
+	IP_OPTIONS IP_HDRINCL IP_TOS IP_TTL IP_RECVOPTS IP_RECVRETOPTS
+	IP_RETOPTS
+
+	MSG_BCAST MSG_BTAG MSG_CTLFLAGS MSG_CTLIGNORE MSG_CTRUNC MSG_DONTROUTE
+	MSG_DONTWAIT MSG_EOF MSG_EOR MSG_ERRQUEUE MSG_ETAG MSG_FIN
+	MSG_MAXIOVLEN MSG_MCAST MSG_NOSIGNAL MSG_OOB MSG_PEEK MSG_PROXY MSG_RST
+	MSG_SYN MSG_TRUNC MSG_URG MSG_WAITALL MSG_WIRE
+
+	SHUT_RD SHUT_RDWR SHUT_WR
+
+	INADDR_ANY INADDR_BROADCAST INADDR_LOOPBACK INADDR_NONE
+
+	SCM_CONNECT SCM_CREDENTIALS SCM_CREDS SCM_RIGHTS SCM_TIMESTAMP
+
+	SOMAXCONN
+
+	IOV_MAX
+	UIO_MAXIOV
+
+	sockaddr_family
+	pack_sockaddr_in  unpack_sockaddr_in  sockaddr_in
+	pack_sockaddr_in6 unpack_sockaddr_in6 sockaddr_in6
+	pack_sockaddr_un  unpack_sockaddr_un  sockaddr_un 
+
+	inet_aton inet_ntoa
+);
+
+# List re-ordered to match documentation above. Try to keep the ordering
+# consistent so it's easier to see which ones are or aren't documented.
+our @EXPORT_OK = qw(
+	CR LF CRLF $CR $LF $CRLF
+
+	SOCK_NONBLOCK SOCK_CLOEXEC
+
+	IP_ADD_MEMBERSHIP IP_ADD_SOURCE_MEMBERSHIP IP_DROP_MEMBERSHIP
+	IP_DROP_SOURCE_MEMBERSHIP IP_MULTICAST_IF IP_MULTICAST_LOOP
+	IP_MULTICAST_TTL
+
+	IPPROTO_IP IPPROTO_IPV6 IPPROTO_RAW IPPROTO_ICMP IPPROTO_IGMP
+	IPPROTO_TCP IPPROTO_UDP IPPROTO_GRE IPPROTO_ESP IPPROTO_AH
+	IPPROTO_SCTP
+
+	IPTOS_LOWDELAY IPTOS_THROUGHPUT IPTOS_RELIABILITY IPTOS_MINCOST
+
+	TCP_CONGESTION TCP_CONNECTIONTIMEOUT TCP_CORK TCP_DEFER_ACCEPT TCP_INFO
+	TCP_INIT_CWND TCP_KEEPALIVE TCP_KEEPCNT TCP_KEEPIDLE TCP_KEEPINTVL
+	TCP_LINGER2 TCP_MAXRT TCP_MAXSEG TCP_MD5SIG TCP_NODELAY TCP_NOOPT
+	TCP_NOPUSH TCP_QUICKACK TCP_SACK_ENABLE TCP_STDURG TCP_SYNCNT
+	TCP_WINDOW_CLAMP
+
+	IN6ADDR_ANY IN6ADDR_LOOPBACK
+
+	IPV6_ADD_MEMBERSHIP IPV6_DROP_MEMBERSHIP IPV6_JOIN_GROUP
+	IPV6_LEAVE_GROUP IPV6_MTU IPV6_MTU_DISCOVER IPV6_MULTICAST_HOPS
+	IPV6_MULTICAST_IF IPV6_MULTICAST_LOOP IPV6_UNICAST_HOPS IPV6_V6ONLY
+
+	pack_ip_mreq unpack_ip_mreq pack_ip_mreq_source unpack_ip_mreq_source
+
+	pack_ipv6_mreq unpack_ipv6_mreq
+
+	inet_pton inet_ntop
+
+	getaddrinfo getnameinfo
+
+	AI_ADDRCONFIG AI_ALL AI_CANONIDN AI_CANONNAME AI_IDN
+	AI_IDN_ALLOW_UNASSIGNED AI_IDN_USE_STD3_ASCII_RULES AI_NUMERICHOST
+	AI_NUMERICSERV AI_PASSIVE AI_V4MAPPED
+
+	NI_DGRAM NI_IDN NI_IDN_ALLOW_UNASSIGNED NI_IDN_USE_STD3_ASCII_RULES
+	NI_NAMEREQD NI_NOFQDN NI_NUMERICHOST NI_NUMERICSERV
+
+	NIx_NOHOST NIx_NOSERV
+
+	EAI_ADDRFAMILY EAI_AGAIN EAI_BADFLAGS EAI_BADHINTS EAI_FAIL EAI_FAMILY
+	EAI_NODATA EAI_NONAME EAI_PROTOCOL EAI_SERVICE EAI_SOCKTYPE EAI_SYSTEM
+);
+
+our %EXPORT_TAGS = (
+    crlf     => [qw(CR LF CRLF $CR $LF $CRLF)],
+    addrinfo => [qw(getaddrinfo getnameinfo), grep m/^(?:AI|NI|NIx|EAI)_/, @EXPORT_OK],
+    all      => [@EXPORT, @EXPORT_OK],
+);
+
+BEGIN {
+    sub CR   () {"\015"}
+    sub LF   () {"\012"}
+    sub CRLF () {"\015\012"}
+
+    # These are not gni() constants; they're extensions for the perl API
+    # The definitions in Socket.pm and Socket.xs must match
+    sub NIx_NOHOST() {1 << 0}
+    sub NIx_NOSERV() {1 << 1}
+}
+
+*CR   = \CR();
+*LF   = \LF();
+*CRLF = \CRLF();
+
+sub sockaddr_in {
+    if (@_ == 6 && !wantarray) { # perl5.001m compat; use this && die
+	my($af, $port, @quad) = @_;
+	warnings::warn "6-ARG sockaddr_in call is deprecated" 
+	    if warnings::enabled();
+	pack_sockaddr_in($port, inet_aton(join('.', @quad)));
+    } elsif (wantarray) {
+	croak "usage:   (port,iaddr) = sockaddr_in(sin_sv)" unless @_ == 1;
+        unpack_sockaddr_in(@_);
+    } else {
+	croak "usage:   sin_sv = sockaddr_in(port,iaddr))" unless @_ == 2;
+        pack_sockaddr_in(@_);
+    }
+}
+
+sub sockaddr_in6 {
+    if (wantarray) {
+	croak "usage:   (port,in6addr,scope_id,flowinfo) = sockaddr_in6(sin6_sv)" unless @_ == 1;
+	unpack_sockaddr_in6(@_);
+    }
+    else {
+	croak "usage:   sin6_sv = sockaddr_in6(port,in6addr,[scope_id,[flowinfo]])" unless @_ >= 2 and @_ <= 4;
+	pack_sockaddr_in6(@_);
+    }
+}
+
+sub sockaddr_un {
+    if (wantarray) {
+	croak "usage:   (filename) = sockaddr_un(sun_sv)" unless @_ == 1;
+        unpack_sockaddr_un(@_);
+    } else {
+	croak "usage:   sun_sv = sockaddr_un(filename)" unless @_ == 1;
+        pack_sockaddr_un(@_);
+    }
+}
+
+XSLoader::load(__PACKAGE__, $VERSION);
+
+my %errstr;
+
+if( defined &getaddrinfo ) {
+    # These are not part of the API, nothing uses them, and deleting them
+    # reduces the size of %Socket:: by about 12K
+    delete $Socket::{fake_getaddrinfo};
+    delete $Socket::{fake_getnameinfo};
+} else {
+    require Scalar::Util;
+
+    *getaddrinfo = \&fake_getaddrinfo;
+    *getnameinfo = \&fake_getnameinfo;
+
+    # These numbers borrowed from GNU libc's implementation, but since
+    # they're only used by our emulation, it doesn't matter if the real
+    # platform's values differ
+    my %constants = (
+	AI_PASSIVE     => 1,
+	AI_CANONNAME   => 2,
+	AI_NUMERICHOST => 4,
+	AI_V4MAPPED    => 8,
+	AI_ALL         => 16,
+	AI_ADDRCONFIG  => 32,
+	# RFC 2553 doesn't define this but Linux does - lets be nice and
+	# provide it since we can
+	AI_NUMERICSERV => 1024,
+
+	EAI_BADFLAGS   => -1,
+	EAI_NONAME     => -2,
+	EAI_NODATA     => -5,
+	EAI_FAMILY     => -6,
+	EAI_SERVICE    => -8,
+
+	NI_NUMERICHOST => 1,
+	NI_NUMERICSERV => 2,
+	NI_NOFQDN      => 4,
+	NI_NAMEREQD    => 8,
+	NI_DGRAM       => 16,
+
+	# Constants we don't support. Export them, but croak if anyone tries to
+	# use them
+	AI_IDN                      => 64,
+	AI_CANONIDN                 => 128,
+	AI_IDN_ALLOW_UNASSIGNED     => 256,
+	AI_IDN_USE_STD3_ASCII_RULES => 512,
+	NI_IDN                      => 32,
+	NI_IDN_ALLOW_UNASSIGNED     => 64,
+	NI_IDN_USE_STD3_ASCII_RULES => 128,
+
+	# Error constants we'll never return, so it doesn't matter what value
+	# these have, nor that we don't provide strings for them
+	EAI_SYSTEM   => -11,
+	EAI_BADHINTS => -1000,
+	EAI_PROTOCOL => -1001
+    );
+
+    foreach my $name ( keys %constants ) {
+	my $value = $constants{$name};
+
+	no strict 'refs';
+	defined &$name or *$name = sub () { $value };
+    }
+
+    %errstr = (
+	# These strings from RFC 2553
+	EAI_BADFLAGS()   => "invalid value for ai_flags",
+	EAI_NONAME()     => "nodename nor servname provided, or not known",
+	EAI_NODATA()     => "no address associated with nodename",
+	EAI_FAMILY()     => "ai_family not supported",
+	EAI_SERVICE()    => "servname not supported for ai_socktype",
+    );
+}
+
+# The following functions are used if the system does not have a
+# getaddrinfo(3) function in libc; and are used to emulate it for the AF_INET
+# family
+
+# Borrowed from Regexp::Common::net
+my $REGEXP_IPv4_DECIMAL = qr/25[0-5]|2[0-4][0-9]|[0-1]?[0-9]{1,2}/;
+my $REGEXP_IPv4_DOTTEDQUAD = qr/$REGEXP_IPv4_DECIMAL\.$REGEXP_IPv4_DECIMAL\.$REGEXP_IPv4_DECIMAL\.$REGEXP_IPv4_DECIMAL/;
+
+sub fake_makeerr
+{
+    my ( $errno ) = @_;
+    my $errstr = $errno == 0 ? "" : ( $errstr{$errno} || $errno );
+    return Scalar::Util::dualvar( $errno, $errstr );
+}
+
+sub fake_getaddrinfo
+{
+    my ( $node, $service, $hints ) = @_;
+
+    $node = "" unless defined $node;
+
+    $service = "" unless defined $service;
+
+    my ( $family, $socktype, $protocol, $flags ) = @$hints{qw( family socktype protocol flags )};
+
+    $family ||= Socket::AF_INET(); # 0 == AF_UNSPEC, which we want too
+    $family == Socket::AF_INET() or return fake_makeerr( EAI_FAMILY() );
+
+    $socktype ||= 0;
+
+    $protocol ||= 0;
+
+    $flags ||= 0;
+
+    my $flag_passive     = $flags & AI_PASSIVE();     $flags &= ~AI_PASSIVE();
+    my $flag_canonname   = $flags & AI_CANONNAME();   $flags &= ~AI_CANONNAME();
+    my $flag_numerichost = $flags & AI_NUMERICHOST(); $flags &= ~AI_NUMERICHOST();
+    my $flag_numericserv = $flags & AI_NUMERICSERV(); $flags &= ~AI_NUMERICSERV();
+
+    # These constants don't apply to AF_INET-only lookups, so we might as well
+    # just ignore them. For AI_ADDRCONFIG we just presume the host has ability
+    # to talk AF_INET. If not we'd have to return no addresses at all. :)
+    $flags &= ~(AI_V4MAPPED()|AI_ALL()|AI_ADDRCONFIG());
+
+    $flags & (AI_IDN()|AI_CANONIDN()|AI_IDN_ALLOW_UNASSIGNED()|AI_IDN_USE_STD3_ASCII_RULES()) and
+	croak "Socket::getaddrinfo() does not support IDN";
+
+    $flags == 0 or return fake_makeerr( EAI_BADFLAGS() );
+
+    $node eq "" and $service eq "" and return fake_makeerr( EAI_NONAME() );
+
+    my $canonname;
+    my @addrs;
+    if( $node ne "" ) {
+	return fake_makeerr( EAI_NONAME() ) if( $flag_numerichost and $node !~ m/^$REGEXP_IPv4_DOTTEDQUAD$/ );
+	( $canonname, undef, undef, undef, @addrs ) = gethostbyname( $node );
+	defined $canonname or return fake_makeerr( EAI_NONAME() );
+
+	undef $canonname unless $flag_canonname;
+    }
+    else {
+	$addrs[0] = $flag_passive ? Socket::inet_aton( "0.0.0.0" )
+				  : Socket::inet_aton( "127.0.0.1" );
+    }
+
+    my @ports; # Actually ARRAYrefs of [ socktype, protocol, port ]
+    my $protname = "";
+    if( $protocol ) {
+	$protname = eval { getprotobynumber( $protocol ) };
+    }
+
+    if( $service ne "" and $service !~ m/^\d+$/ ) {
+	return fake_makeerr( EAI_NONAME() ) if( $flag_numericserv );
+	getservbyname( $service, $protname ) or return fake_makeerr( EAI_SERVICE() );
+    }
+
+    foreach my $this_socktype ( Socket::SOCK_STREAM(), Socket::SOCK_DGRAM(), Socket::SOCK_RAW() ) {
+	next if $socktype and $this_socktype != $socktype;
+
+	my $this_protname = "raw";
+	$this_socktype == Socket::SOCK_STREAM() and $this_protname = "tcp";
+	$this_socktype == Socket::SOCK_DGRAM()  and $this_protname = "udp";
+
+	next if $protname and $this_protname ne $protname;
+
+	my $port;
+	if( $service ne "" ) {
+	    if( $service =~ m/^\d+$/ ) {
+		$port = "$service";
+	    }
+	    else {
+		( undef, undef, $port, $this_protname ) = getservbyname( $service, $this_protname );
+		next unless defined $port;
+	    }
+	}
+	else {
+	    $port = 0;
+	}
+
+	push @ports, [ $this_socktype, eval { scalar getprotobyname( $this_protname ) } || 0, $port ];
+    }
+
+    my @ret;
+    foreach my $addr ( @addrs ) {
+	foreach my $portspec ( @ports ) {
+	    my ( $socktype, $protocol, $port ) = @$portspec;
+	    push @ret, {
+		family    => $family,
+		socktype  => $socktype,
+		protocol  => $protocol,
+		addr      => Socket::pack_sockaddr_in( $port, $addr ),
+		canonname => undef,
+	    };
+	}
+    }
+
+    # Only supply canonname for the first result
+    if( defined $canonname ) {
+	$ret[0]->{canonname} = $canonname;
+    }
+
+    return ( fake_makeerr( 0 ), @ret );
+}
+
+sub fake_getnameinfo
+{
+    my ( $addr, $flags, $xflags ) = @_;
+
+    my ( $port, $inetaddr );
+    eval { ( $port, $inetaddr ) = Socket::unpack_sockaddr_in( $addr ) }
+	or return fake_makeerr( EAI_FAMILY() );
+
+    my $family = Socket::AF_INET();
+
+    $flags ||= 0;
+
+    my $flag_numerichost = $flags & NI_NUMERICHOST(); $flags &= ~NI_NUMERICHOST();
+    my $flag_numericserv = $flags & NI_NUMERICSERV(); $flags &= ~NI_NUMERICSERV();
+    my $flag_nofqdn      = $flags & NI_NOFQDN();      $flags &= ~NI_NOFQDN();
+    my $flag_namereqd    = $flags & NI_NAMEREQD();    $flags &= ~NI_NAMEREQD();
+    my $flag_dgram       = $flags & NI_DGRAM()   ;    $flags &= ~NI_DGRAM();
+
+    $flags & (NI_IDN()|NI_IDN_ALLOW_UNASSIGNED()|NI_IDN_USE_STD3_ASCII_RULES()) and
+	croak "Socket::getnameinfo() does not support IDN";
+
+    $flags == 0 or return fake_makeerr( EAI_BADFLAGS() );
+
+    $xflags ||= 0;
+
+    my $node;
+    if( $xflags & NIx_NOHOST ) {
+	$node = undef;
+    }
+    elsif( $flag_numerichost ) {
+	$node = Socket::inet_ntoa( $inetaddr );
+    }
+    else {
+	$node = gethostbyaddr( $inetaddr, $family );
+	if( !defined $node ) {
+	    return fake_makeerr( EAI_NONAME() ) if $flag_namereqd;
+	    $node = Socket::inet_ntoa( $inetaddr );
+	}
+	elsif( $flag_nofqdn ) {
+	    my ( $shortname ) = split m/\./, $node;
+	    my ( $fqdn ) = gethostbyname $shortname;
+	    $node = $shortname if defined $fqdn and $fqdn eq $node;
+	}
+    }
+
+    my $service;
+    if( $xflags & NIx_NOSERV ) {
+	$service = undef;
+    }
+    elsif( $flag_numericserv ) {
+	$service = "$port";
+    }
+    else {
+	my $protname = $flag_dgram ? "udp" : "";
+	$service = getservbyport( $port, $protname );
+	if( !defined $service ) {
+	    $service = "$port";
+	}
+    }
+
+    return ( fake_makeerr( 0 ), $node, $service );
+}
+
+1;
diff --git a/lib/5.24.1/x86_64-linux/Storable.pm b/lib/5.24.1/x86_64-linux/Storable.pm
new file mode 100644
index 00000000..5823b930
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/Storable.pm
@@ -0,0 +1,1237 @@
+#
+#  Copyright (c) 1995-2001, Raphael Manfredi
+#  Copyright (c) 2002-2014 by the Perl 5 Porters
+#
+#  You may redistribute only under the same terms as Perl 5, as specified
+#  in the README file that comes with the distribution.
+#
+
+require XSLoader;
+require Exporter;
+package Storable; @ISA = qw(Exporter);
+
+@EXPORT = qw(store retrieve);
+@EXPORT_OK = qw(
+	nstore store_fd nstore_fd fd_retrieve
+	freeze nfreeze thaw
+	dclone
+	retrieve_fd
+	lock_store lock_nstore lock_retrieve
+        file_magic read_magic
+);
+
+use vars qw($canonical $forgive_me $VERSION);
+
+$VERSION = '2.56_01';
+
+BEGIN {
+    if (eval {
+        local $SIG{__DIE__};
+        local @INC = @INC;
+        pop @INC if $INC[-1] eq '.';
+        require Log::Agent;
+        1;
+    }) {
+        Log::Agent->import;
+    }
+    #
+    # Use of Log::Agent is optional. If it hasn't imported these subs then
+    # provide a fallback implementation.
+    #
+    unless ($Storable::{logcroak} && *{$Storable::{logcroak}}{CODE}) {
+        require Carp;
+        *logcroak = sub {
+            Carp::croak(@_);
+        };
+    }
+    unless ($Storable::{logcarp} && *{$Storable::{logcarp}}{CODE}) {
+	require Carp;
+        *logcarp = sub {
+          Carp::carp(@_);
+        };
+    }
+}
+
+#
+# They might miss :flock in Fcntl
+#
+
+BEGIN {
+	if (eval { require Fcntl; 1 } && exists $Fcntl::EXPORT_TAGS{'flock'}) {
+		Fcntl->import(':flock');
+	} else {
+		eval q{
+			sub LOCK_SH ()	{1}
+			sub LOCK_EX ()	{2}
+		};
+	}
+}
+
+sub CLONE {
+    # clone context under threads
+    Storable::init_perinterp();
+}
+
+# By default restricted hashes are downgraded on earlier perls.
+
+$Storable::downgrade_restricted = 1;
+$Storable::accept_future_minor = 1;
+
+XSLoader::load('Storable', $Storable::VERSION);
+
+#
+# Determine whether locking is possible, but only when needed.
+#
+
+sub CAN_FLOCK; my $CAN_FLOCK; sub CAN_FLOCK {
+	return $CAN_FLOCK if defined $CAN_FLOCK;
+	require Config; import Config;
+	return $CAN_FLOCK =
+		$Config{'d_flock'} ||
+		$Config{'d_fcntl_can_lock'} ||
+		$Config{'d_lockf'};
+}
+
+sub show_file_magic {
+    print <<EOM;
+#
+# To recognize the data files of the Perl module Storable,
+# the following lines need to be added to the local magic(5) file,
+# usually either /usr/share/misc/magic or /etc/magic.
+#
+0	string	perl-store	perl Storable(v0.6) data
+>4	byte	>0	(net-order %d)
+>>4	byte	&01	(network-ordered)
+>>4	byte	=3	(major 1)
+>>4	byte	=2	(major 1)
+
+0	string	pst0	perl Storable(v0.7) data
+>4	byte	>0
+>>4	byte	&01	(network-ordered)
+>>4	byte	=5	(major 2)
+>>4	byte	=4	(major 2)
+>>5	byte	>0	(minor %d)
+EOM
+}
+
+sub file_magic {
+    require IO::File;
+
+    my $file = shift;
+    my $fh = IO::File->new;
+    open($fh, "<". $file) || die "Can't open '$file': $!";
+    binmode($fh);
+    defined(sysread($fh, my $buf, 32)) || die "Can't read from '$file': $!";
+    close($fh);
+
+    $file = "./$file" unless $file;  # ensure TRUE value
+
+    return read_magic($buf, $file);
+}
+
+sub read_magic {
+    my($buf, $file) = @_;
+    my %info;
+
+    my $buflen = length($buf);
+    my $magic;
+    if ($buf =~ s/^(pst0|perl-store)//) {
+	$magic = $1;
+	$info{file} = $file || 1;
+    }
+    else {
+	return undef if $file;
+	$magic = "";
+    }
+
+    return undef unless length($buf);
+
+    my $net_order;
+    if ($magic eq "perl-store" && ord(substr($buf, 0, 1)) > 1) {
+	$info{version} = -1;
+	$net_order = 0;
+    }
+    else {
+	$buf =~ s/(.)//s;
+	my $major = (ord $1) >> 1;
+	return undef if $major > 4; # sanity (assuming we never go that high)
+	$info{major} = $major;
+	$net_order = (ord $1) & 0x01;
+	if ($major > 1) {
+	    return undef unless $buf =~ s/(.)//s;
+	    my $minor = ord $1;
+	    $info{minor} = $minor;
+	    $info{version} = "$major.$minor";
+	    $info{version_nv} = sprintf "%d.%03d", $major, $minor;
+	}
+	else {
+	    $info{version} = $major;
+	}
+    }
+    $info{version_nv} ||= $info{version};
+    $info{netorder} = $net_order;
+
+    unless ($net_order) {
+	return undef unless $buf =~ s/(.)//s;
+	my $len = ord $1;
+	return undef unless length($buf) >= $len;
+	return undef unless $len == 4 || $len == 8;  # sanity
+	@info{qw(byteorder intsize longsize ptrsize)}
+	    = unpack "a${len}CCC", $buf;
+	(substr $buf, 0, $len + 3) = '';
+	if ($info{version_nv} >= 2.002) {
+	    return undef unless $buf =~ s/(.)//s;
+	    $info{nvsize} = ord $1;
+	}
+    }
+    $info{hdrsize} = $buflen - length($buf);
+
+    return \%info;
+}
+
+sub BIN_VERSION_NV {
+    sprintf "%d.%03d", BIN_MAJOR(), BIN_MINOR();
+}
+
+sub BIN_WRITE_VERSION_NV {
+    sprintf "%d.%03d", BIN_MAJOR(), BIN_WRITE_MINOR();
+}
+
+#
+# store
+#
+# Store target object hierarchy, identified by a reference to its root.
+# The stored object tree may later be retrieved to memory via retrieve.
+# Returns undef if an I/O error occurred, in which case the file is
+# removed.
+#
+sub store {
+	return _store(\&pstore, @_, 0);
+}
+
+#
+# nstore
+#
+# Same as store, but in network order.
+#
+sub nstore {
+	return _store(\&net_pstore, @_, 0);
+}
+
+#
+# lock_store
+#
+# Same as store, but flock the file first (advisory locking).
+#
+sub lock_store {
+	return _store(\&pstore, @_, 1);
+}
+
+#
+# lock_nstore
+#
+# Same as nstore, but flock the file first (advisory locking).
+#
+sub lock_nstore {
+	return _store(\&net_pstore, @_, 1);
+}
+
+# Internal store to file routine
+sub _store {
+	my $xsptr = shift;
+	my $self = shift;
+	my ($file, $use_locking) = @_;
+	logcroak "not a reference" unless ref($self);
+	logcroak "wrong argument number" unless @_ == 2;	# No @foo in arglist
+	local *FILE;
+	if ($use_locking) {
+		open(FILE, ">>$file") || logcroak "can't write into $file: $!";
+		unless (&CAN_FLOCK) {
+			logcarp
+				"Storable::lock_store: fcntl/flock emulation broken on $^O";
+			return undef;
+		}
+		flock(FILE, LOCK_EX) ||
+			logcroak "can't get exclusive lock on $file: $!";
+		truncate FILE, 0;
+		# Unlocking will happen when FILE is closed
+	} else {
+		open(FILE, ">$file") || logcroak "can't create $file: $!";
+	}
+	binmode FILE;				# Archaic systems...
+	my $da = $@;				# Don't mess if called from exception handler
+	my $ret;
+	# Call C routine nstore or pstore, depending on network order
+	eval { $ret = &$xsptr(*FILE, $self) };
+	# close will return true on success, so the or short-circuits, the ()
+	# expression is true, and for that case the block will only be entered
+	# if $@ is true (ie eval failed)
+	# if close fails, it returns false, $ret is altered, *that* is (also)
+	# false, so the () expression is false, !() is true, and the block is
+	# entered.
+	if (!(close(FILE) or undef $ret) || $@) {
+		unlink($file) or warn "Can't unlink $file: $!\n";
+	}
+	logcroak $@ if $@ =~ s/\.?\n$/,/;
+	$@ = $da;
+	return $ret;
+}
+
+#
+# store_fd
+#
+# Same as store, but perform on an already opened file descriptor instead.
+# Returns undef if an I/O error occurred.
+#
+sub store_fd {
+	return _store_fd(\&pstore, @_);
+}
+
+#
+# nstore_fd
+#
+# Same as store_fd, but in network order.
+#
+sub nstore_fd {
+	my ($self, $file) = @_;
+	return _store_fd(\&net_pstore, @_);
+}
+
+# Internal store routine on opened file descriptor
+sub _store_fd {
+	my $xsptr = shift;
+	my $self = shift;
+	my ($file) = @_;
+	logcroak "not a reference" unless ref($self);
+	logcroak "too many arguments" unless @_ == 1;	# No @foo in arglist
+	my $fd = fileno($file);
+	logcroak "not a valid file descriptor" unless defined $fd;
+	my $da = $@;				# Don't mess if called from exception handler
+	my $ret;
+	# Call C routine nstore or pstore, depending on network order
+	eval { $ret = &$xsptr($file, $self) };
+	logcroak $@ if $@ =~ s/\.?\n$/,/;
+	local $\; print $file '';	# Autoflush the file if wanted
+	$@ = $da;
+	return $ret;
+}
+
+#
+# freeze
+#
+# Store object and its hierarchy in memory and return a scalar
+# containing the result.
+#
+sub freeze {
+	_freeze(\&mstore, @_);
+}
+
+#
+# nfreeze
+#
+# Same as freeze but in network order.
+#
+sub nfreeze {
+	_freeze(\&net_mstore, @_);
+}
+
+# Internal freeze routine
+sub _freeze {
+	my $xsptr = shift;
+	my $self = shift;
+	logcroak "not a reference" unless ref($self);
+	logcroak "too many arguments" unless @_ == 0;	# No @foo in arglist
+	my $da = $@;				# Don't mess if called from exception handler
+	my $ret;
+	# Call C routine mstore or net_mstore, depending on network order
+	eval { $ret = &$xsptr($self) };
+	logcroak $@ if $@ =~ s/\.?\n$/,/;
+	$@ = $da;
+	return $ret ? $ret : undef;
+}
+
+#
+# retrieve
+#
+# Retrieve object hierarchy from disk, returning a reference to the root
+# object of that tree.
+#
+sub retrieve {
+	_retrieve($_[0], 0);
+}
+
+#
+# lock_retrieve
+#
+# Same as retrieve, but with advisory locking.
+#
+sub lock_retrieve {
+	_retrieve($_[0], 1);
+}
+
+# Internal retrieve routine
+sub _retrieve {
+	my ($file, $use_locking) = @_;
+	local *FILE;
+	open(FILE, $file) || logcroak "can't open $file: $!";
+	binmode FILE;							# Archaic systems...
+	my $self;
+	my $da = $@;							# Could be from exception handler
+	if ($use_locking) {
+		unless (&CAN_FLOCK) {
+			logcarp
+				"Storable::lock_store: fcntl/flock emulation broken on $^O";
+			return undef;
+		}
+		flock(FILE, LOCK_SH) || logcroak "can't get shared lock on $file: $!";
+		# Unlocking will happen when FILE is closed
+	}
+	eval { $self = pretrieve(*FILE) };		# Call C routine
+	close(FILE);
+	logcroak $@ if $@ =~ s/\.?\n$/,/;
+	$@ = $da;
+	return $self;
+}
+
+#
+# fd_retrieve
+#
+# Same as retrieve, but perform from an already opened file descriptor instead.
+#
+sub fd_retrieve {
+	my ($file) = @_;
+	my $fd = fileno($file);
+	logcroak "not a valid file descriptor" unless defined $fd;
+	my $self;
+	my $da = $@;							# Could be from exception handler
+	eval { $self = pretrieve($file) };		# Call C routine
+	logcroak $@ if $@ =~ s/\.?\n$/,/;
+	$@ = $da;
+	return $self;
+}
+
+sub retrieve_fd { &fd_retrieve }		# Backward compatibility
+
+#
+# thaw
+#
+# Recreate objects in memory from an existing frozen image created
+# by freeze.  If the frozen image passed is undef, return undef.
+#
+sub thaw {
+	my ($frozen) = @_;
+	return undef unless defined $frozen;
+	my $self;
+	my $da = $@;							# Could be from exception handler
+	eval { $self = mretrieve($frozen) };	# Call C routine
+	logcroak $@ if $@ =~ s/\.?\n$/,/;
+	$@ = $da;
+	return $self;
+}
+
+1;
+__END__
+
+=head1 NAME
+
+Storable - persistence for Perl data structures
+
+=head1 SYNOPSIS
+
+ use Storable;
+ store \%table, 'file';
+ $hashref = retrieve('file');
+
+ use Storable qw(nstore store_fd nstore_fd freeze thaw dclone);
+
+ # Network order
+ nstore \%table, 'file';
+ $hashref = retrieve('file');	# There is NO nretrieve()
+
+ # Storing to and retrieving from an already opened file
+ store_fd \@array, \*STDOUT;
+ nstore_fd \%table, \*STDOUT;
+ $aryref = fd_retrieve(\*SOCKET);
+ $hashref = fd_retrieve(\*SOCKET);
+
+ # Serializing to memory
+ $serialized = freeze \%table;
+ %table_clone = %{ thaw($serialized) };
+
+ # Deep (recursive) cloning
+ $cloneref = dclone($ref);
+
+ # Advisory locking
+ use Storable qw(lock_store lock_nstore lock_retrieve)
+ lock_store \%table, 'file';
+ lock_nstore \%table, 'file';
+ $hashref = lock_retrieve('file');
+
+=head1 DESCRIPTION
+
+The Storable package brings persistence to your Perl data structures
+containing SCALAR, ARRAY, HASH or REF objects, i.e. anything that can be
+conveniently stored to disk and retrieved at a later time.
+
+It can be used in the regular procedural way by calling C<store> with
+a reference to the object to be stored, along with the file name where
+the image should be written.
+
+The routine returns C<undef> for I/O problems or other internal error,
+a true value otherwise. Serious errors are propagated as a C<die> exception.
+
+To retrieve data stored to disk, use C<retrieve> with a file name.
+The objects stored into that file are recreated into memory for you,
+and a I<reference> to the root object is returned. In case an I/O error
+occurs while reading, C<undef> is returned instead. Other serious
+errors are propagated via C<die>.
+
+Since storage is performed recursively, you might want to stuff references
+to objects that share a lot of common data into a single array or hash
+table, and then store that object. That way, when you retrieve back the
+whole thing, the objects will continue to share what they originally shared.
+
+At the cost of a slight header overhead, you may store to an already
+opened file descriptor using the C<store_fd> routine, and retrieve
+from a file via C<fd_retrieve>. Those names aren't imported by default,
+so you will have to do that explicitly if you need those routines.
+The file descriptor you supply must be already opened, for read
+if you're going to retrieve and for write if you wish to store.
+
+	store_fd(\%table, *STDOUT) || die "can't store to stdout\n";
+	$hashref = fd_retrieve(*STDIN);
+
+You can also store data in network order to allow easy sharing across
+multiple platforms, or when storing on a socket known to be remotely
+connected. The routines to call have an initial C<n> prefix for I<network>,
+as in C<nstore> and C<nstore_fd>. At retrieval time, your data will be
+correctly restored so you don't have to know whether you're restoring
+from native or network ordered data.  Double values are stored stringified
+to ensure portability as well, at the slight risk of loosing some precision
+in the last decimals.
+
+When using C<fd_retrieve>, objects are retrieved in sequence, one
+object (i.e. one recursive tree) per associated C<store_fd>.
+
+If you're more from the object-oriented camp, you can inherit from
+Storable and directly store your objects by invoking C<store> as
+a method. The fact that the root of the to-be-stored tree is a
+blessed reference (i.e. an object) is special-cased so that the
+retrieve does not provide a reference to that object but rather the
+blessed object reference itself. (Otherwise, you'd get a reference
+to that blessed object).
+
+=head1 MEMORY STORE
+
+The Storable engine can also store data into a Perl scalar instead, to
+later retrieve them. This is mainly used to freeze a complex structure in
+some safe compact memory place (where it can possibly be sent to another
+process via some IPC, since freezing the structure also serializes it in
+effect). Later on, and maybe somewhere else, you can thaw the Perl scalar
+out and recreate the original complex structure in memory.
+
+Surprisingly, the routines to be called are named C<freeze> and C<thaw>.
+If you wish to send out the frozen scalar to another machine, use
+C<nfreeze> instead to get a portable image.
+
+Note that freezing an object structure and immediately thawing it
+actually achieves a deep cloning of that structure:
+
+    dclone(.) = thaw(freeze(.))
+
+Storable provides you with a C<dclone> interface which does not create
+that intermediary scalar but instead freezes the structure in some
+internal memory space and then immediately thaws it out.
+
+=head1 ADVISORY LOCKING
+
+The C<lock_store> and C<lock_nstore> routine are equivalent to
+C<store> and C<nstore>, except that they get an exclusive lock on
+the file before writing.  Likewise, C<lock_retrieve> does the same
+as C<retrieve>, but also gets a shared lock on the file before reading.
+
+As with any advisory locking scheme, the protection only works if you
+systematically use C<lock_store> and C<lock_retrieve>.  If one side of
+your application uses C<store> whilst the other uses C<lock_retrieve>,
+you will get no protection at all.
+
+The internal advisory locking is implemented using Perl's flock()
+routine.  If your system does not support any form of flock(), or if
+you share your files across NFS, you might wish to use other forms
+of locking by using modules such as LockFile::Simple which lock a
+file using a filesystem entry, instead of locking the file descriptor.
+
+=head1 SPEED
+
+The heart of Storable is written in C for decent speed. Extra low-level
+optimizations have been made when manipulating perl internals, to
+sacrifice encapsulation for the benefit of greater speed.
+
+=head1 CANONICAL REPRESENTATION
+
+Normally, Storable stores elements of hashes in the order they are
+stored internally by Perl, i.e. pseudo-randomly.  If you set
+C<$Storable::canonical> to some C<TRUE> value, Storable will store
+hashes with the elements sorted by their key.  This allows you to
+compare data structures by comparing their frozen representations (or
+even the compressed frozen representations), which can be useful for
+creating lookup tables for complicated queries.
+
+Canonical order does not imply network order; those are two orthogonal
+settings.
+
+=head1 CODE REFERENCES
+
+Since Storable version 2.05, CODE references may be serialized with
+the help of L<B::Deparse>. To enable this feature, set
+C<$Storable::Deparse> to a true value. To enable deserialization,
+C<$Storable::Eval> should be set to a true value. Be aware that
+deserialization is done through C<eval>, which is dangerous if the
+Storable file contains malicious data. You can set C<$Storable::Eval>
+to a subroutine reference which would be used instead of C<eval>. See
+below for an example using a L<Safe> compartment for deserialization
+of CODE references.
+
+If C<$Storable::Deparse> and/or C<$Storable::Eval> are set to false
+values, then the value of C<$Storable::forgive_me> (see below) is
+respected while serializing and deserializing.
+
+=head1 FORWARD COMPATIBILITY
+
+This release of Storable can be used on a newer version of Perl to
+serialize data which is not supported by earlier Perls.  By default,
+Storable will attempt to do the right thing, by C<croak()>ing if it
+encounters data that it cannot deserialize.  However, the defaults
+can be changed as follows:
+
+=over 4
+
+=item utf8 data
+
+Perl 5.6 added support for Unicode characters with code points > 255,
+and Perl 5.8 has full support for Unicode characters in hash keys.
+Perl internally encodes strings with these characters using utf8, and
+Storable serializes them as utf8.  By default, if an older version of
+Perl encounters a utf8 value it cannot represent, it will C<croak()>.
+To change this behaviour so that Storable deserializes utf8 encoded
+values as the string of bytes (effectively dropping the I<is_utf8> flag)
+set C<$Storable::drop_utf8> to some C<TRUE> value.  This is a form of
+data loss, because with C<$drop_utf8> true, it becomes impossible to tell
+whether the original data was the Unicode string, or a series of bytes
+that happen to be valid utf8.
+
+=item restricted hashes
+
+Perl 5.8 adds support for restricted hashes, which have keys
+restricted to a given set, and can have values locked to be read only.
+By default, when Storable encounters a restricted hash on a perl
+that doesn't support them, it will deserialize it as a normal hash,
+silently discarding any placeholder keys and leaving the keys and
+all values unlocked.  To make Storable C<croak()> instead, set
+C<$Storable::downgrade_restricted> to a C<FALSE> value.  To restore
+the default set it back to some C<TRUE> value.
+
+=item files from future versions of Storable
+
+Earlier versions of Storable would immediately croak if they encountered
+a file with a higher internal version number than the reading Storable
+knew about.  Internal version numbers are increased each time new data
+types (such as restricted hashes) are added to the vocabulary of the file
+format.  This meant that a newer Storable module had no way of writing a
+file readable by an older Storable, even if the writer didn't store newer
+data types.
+
+This version of Storable will defer croaking until it encounters a data
+type in the file that it does not recognize.  This means that it will
+continue to read files generated by newer Storable modules which are careful
+in what they write out, making it easier to upgrade Storable modules in a
+mixed environment.
+
+The old behaviour of immediate croaking can be re-instated by setting
+C<$Storable::accept_future_minor> to some C<FALSE> value.
+
+=back
+
+All these variables have no effect on a newer Perl which supports the
+relevant feature.
+
+=head1 ERROR REPORTING
+
+Storable uses the "exception" paradigm, in that it does not try to workaround
+failures: if something bad happens, an exception is generated from the
+caller's perspective (see L<Carp> and C<croak()>).  Use eval {} to trap
+those exceptions.
+
+When Storable croaks, it tries to report the error via the C<logcroak()>
+routine from the C<Log::Agent> package, if it is available.
+
+Normal errors are reported by having store() or retrieve() return C<undef>.
+Such errors are usually I/O errors (or truncated stream errors at retrieval).
+
+=head1 WIZARDS ONLY
+
+=head2 Hooks
+
+Any class may define hooks that will be called during the serialization
+and deserialization process on objects that are instances of that class.
+Those hooks can redefine the way serialization is performed (and therefore,
+how the symmetrical deserialization should be conducted).
+
+Since we said earlier:
+
+    dclone(.) = thaw(freeze(.))
+
+everything we say about hooks should also hold for deep cloning. However,
+hooks get to know whether the operation is a mere serialization, or a cloning.
+
+Therefore, when serializing hooks are involved,
+
+    dclone(.) <> thaw(freeze(.))
+
+Well, you could keep them in sync, but there's no guarantee it will always
+hold on classes somebody else wrote.  Besides, there is little to gain in
+doing so: a serializing hook could keep only one attribute of an object,
+which is probably not what should happen during a deep cloning of that
+same object.
+
+Here is the hooking interface:
+
+=over 4
+
+=item C<STORABLE_freeze> I<obj>, I<cloning>
+
+The serializing hook, called on the object during serialization.  It can be
+inherited, or defined in the class itself, like any other method.
+
+Arguments: I<obj> is the object to serialize, I<cloning> is a flag indicating
+whether we're in a dclone() or a regular serialization via store() or freeze().
+
+Returned value: A LIST C<($serialized, $ref1, $ref2, ...)> where $serialized
+is the serialized form to be used, and the optional $ref1, $ref2, etc... are
+extra references that you wish to let the Storable engine serialize.
+
+At deserialization time, you will be given back the same LIST, but all the
+extra references will be pointing into the deserialized structure.
+
+The B<first time> the hook is hit in a serialization flow, you may have it
+return an empty list.  That will signal the Storable engine to further
+discard that hook for this class and to therefore revert to the default
+serialization of the underlying Perl data.  The hook will again be normally
+processed in the next serialization.
+
+Unless you know better, serializing hook should always say:
+
+    sub STORABLE_freeze {
+        my ($self, $cloning) = @_;
+        return if $cloning;         # Regular default serialization
+        ....
+    }
+
+in order to keep reasonable dclone() semantics.
+
+=item C<STORABLE_thaw> I<obj>, I<cloning>, I<serialized>, ...
+
+The deserializing hook called on the object during deserialization.
+But wait: if we're deserializing, there's no object yet... right?
+
+Wrong: the Storable engine creates an empty one for you.  If you know Eiffel,
+you can view C<STORABLE_thaw> as an alternate creation routine.
+
+This means the hook can be inherited like any other method, and that
+I<obj> is your blessed reference for this particular instance.
+
+The other arguments should look familiar if you know C<STORABLE_freeze>:
+I<cloning> is true when we're part of a deep clone operation, I<serialized>
+is the serialized string you returned to the engine in C<STORABLE_freeze>,
+and there may be an optional list of references, in the same order you gave
+them at serialization time, pointing to the deserialized objects (which
+have been processed courtesy of the Storable engine).
+
+When the Storable engine does not find any C<STORABLE_thaw> hook routine,
+it tries to load the class by requiring the package dynamically (using
+the blessed package name), and then re-attempts the lookup.  If at that
+time the hook cannot be located, the engine croaks.  Note that this mechanism
+will fail if you define several classes in the same file, but L<perlmod>
+warned you.
+
+It is up to you to use this information to populate I<obj> the way you want.
+
+Returned value: none.
+
+=item C<STORABLE_attach> I<class>, I<cloning>, I<serialized>
+
+While C<STORABLE_freeze> and C<STORABLE_thaw> are useful for classes where
+each instance is independent, this mechanism has difficulty (or is
+incompatible) with objects that exist as common process-level or
+system-level resources, such as singleton objects, database pools, caches
+or memoized objects.
+
+The alternative C<STORABLE_attach> method provides a solution for these
+shared objects. Instead of C<STORABLE_freeze> --E<gt> C<STORABLE_thaw>,
+you implement C<STORABLE_freeze> --E<gt> C<STORABLE_attach> instead.
+
+Arguments: I<class> is the class we are attaching to, I<cloning> is a flag
+indicating whether we're in a dclone() or a regular de-serialization via
+thaw(), and I<serialized> is the stored string for the resource object.
+
+Because these resource objects are considered to be owned by the entire
+process/system, and not the "property" of whatever is being serialized,
+no references underneath the object should be included in the serialized
+string. Thus, in any class that implements C<STORABLE_attach>, the
+C<STORABLE_freeze> method cannot return any references, and C<Storable>
+will throw an error if C<STORABLE_freeze> tries to return references.
+
+All information required to "attach" back to the shared resource object
+B<must> be contained B<only> in the C<STORABLE_freeze> return string.
+Otherwise, C<STORABLE_freeze> behaves as normal for C<STORABLE_attach>
+classes.
+
+Because C<STORABLE_attach> is passed the class (rather than an object),
+it also returns the object directly, rather than modifying the passed
+object.
+
+Returned value: object of type C<class>
+
+=back
+
+=head2 Predicates
+
+Predicates are not exportable.  They must be called by explicitly prefixing
+them with the Storable package name.
+
+=over 4
+
+=item C<Storable::last_op_in_netorder>
+
+The C<Storable::last_op_in_netorder()> predicate will tell you whether
+network order was used in the last store or retrieve operation.  If you
+don't know how to use this, just forget about it.
+
+=item C<Storable::is_storing>
+
+Returns true if within a store operation (via STORABLE_freeze hook).
+
+=item C<Storable::is_retrieving>
+
+Returns true if within a retrieve operation (via STORABLE_thaw hook).
+
+=back
+
+=head2 Recursion
+
+With hooks comes the ability to recurse back to the Storable engine.
+Indeed, hooks are regular Perl code, and Storable is convenient when
+it comes to serializing and deserializing things, so why not use it
+to handle the serialization string?
+
+There are a few things you need to know, however:
+
+=over 4
+
+=item *
+
+You can create endless loops if the things you serialize via freeze()
+(for instance) point back to the object we're trying to serialize in
+the hook.
+
+=item *
+
+Shared references among objects will not stay shared: if we're serializing
+the list of object [A, C] where both object A and C refer to the SAME object
+B, and if there is a serializing hook in A that says freeze(B), then when
+deserializing, we'll get [A', C'] where A' refers to B', but C' refers to D,
+a deep clone of B'.  The topology was not preserved.
+
+=back
+
+That's why C<STORABLE_freeze> lets you provide a list of references
+to serialize.  The engine guarantees that those will be serialized in the
+same context as the other objects, and therefore that shared objects will
+stay shared.
+
+In the above [A, C] example, the C<STORABLE_freeze> hook could return:
+
+	("something", $self->{B})
+
+and the B part would be serialized by the engine.  In C<STORABLE_thaw>, you
+would get back the reference to the B' object, deserialized for you.
+
+Therefore, recursion should normally be avoided, but is nonetheless supported.
+
+=head2 Deep Cloning
+
+There is a Clone module available on CPAN which implements deep cloning
+natively, i.e. without freezing to memory and thawing the result.  It is
+aimed to replace Storable's dclone() some day.  However, it does not currently
+support Storable hooks to redefine the way deep cloning is performed.
+
+=head1 Storable magic
+
+Yes, there's a lot of that :-) But more precisely, in UNIX systems
+there's a utility called C<file>, which recognizes data files based on
+their contents (usually their first few bytes).  For this to work,
+a certain file called F<magic> needs to taught about the I<signature>
+of the data.  Where that configuration file lives depends on the UNIX
+flavour; often it's something like F</usr/share/misc/magic> or
+F</etc/magic>.  Your system administrator needs to do the updating of
+the F<magic> file.  The necessary signature information is output to
+STDOUT by invoking Storable::show_file_magic().  Note that the GNU
+implementation of the C<file> utility, version 3.38 or later,
+is expected to contain support for recognising Storable files
+out-of-the-box, in addition to other kinds of Perl files.
+
+You can also use the following functions to extract the file header
+information from Storable images:
+
+=over
+
+=item $info = Storable::file_magic( $filename )
+
+If the given file is a Storable image return a hash describing it.  If
+the file is readable, but not a Storable image return C<undef>.  If
+the file does not exist or is unreadable then croak.
+
+The hash returned has the following elements:
+
+=over
+
+=item C<version>
+
+This returns the file format version.  It is a string like "2.7".
+
+Note that this version number is not the same as the version number of
+the Storable module itself.  For instance Storable v0.7 create files
+in format v2.0 and Storable v2.15 create files in format v2.7.  The
+file format version number only increment when additional features
+that would confuse older versions of the module are added.
+
+Files older than v2.0 will have the one of the version numbers "-1",
+"0" or "1".  No minor number was used at that time.
+
+=item C<version_nv>
+
+This returns the file format version as number.  It is a string like
+"2.007".  This value is suitable for numeric comparisons.
+
+The constant function C<Storable::BIN_VERSION_NV> returns a comparable
+number that represents the highest file version number that this
+version of Storable fully supports (but see discussion of
+C<$Storable::accept_future_minor> above).  The constant
+C<Storable::BIN_WRITE_VERSION_NV> function returns what file version
+is written and might be less than C<Storable::BIN_VERSION_NV> in some
+configurations.
+
+=item C<major>, C<minor>
+
+This also returns the file format version.  If the version is "2.7"
+then major would be 2 and minor would be 7.  The minor element is
+missing for when major is less than 2.
+
+=item C<hdrsize>
+
+The is the number of bytes that the Storable header occupies.
+
+=item C<netorder>
+
+This is TRUE if the image store data in network order.  This means
+that it was created with nstore() or similar.
+
+=item C<byteorder>
+
+This is only present when C<netorder> is FALSE.  It is the
+$Config{byteorder} string of the perl that created this image.  It is
+a string like "1234" (32 bit little endian) or "87654321" (64 bit big
+endian).  This must match the current perl for the image to be
+readable by Storable.
+
+=item C<intsize>, C<longsize>, C<ptrsize>, C<nvsize>
+
+These are only present when C<netorder> is FALSE. These are the sizes of
+various C datatypes of the perl that created this image.  These must
+match the current perl for the image to be readable by Storable.
+
+The C<nvsize> element is only present for file format v2.2 and
+higher.
+
+=item C<file>
+
+The name of the file.
+
+=back
+
+=item $info = Storable::read_magic( $buffer )
+
+=item $info = Storable::read_magic( $buffer, $must_be_file )
+
+The $buffer should be a Storable image or the first few bytes of it.
+If $buffer starts with a Storable header, then a hash describing the
+image is returned, otherwise C<undef> is returned.
+
+The hash has the same structure as the one returned by
+Storable::file_magic().  The C<file> element is true if the image is a
+file image.
+
+If the $must_be_file argument is provided and is TRUE, then return
+C<undef> unless the image looks like it belongs to a file dump.
+
+The maximum size of a Storable header is currently 21 bytes.  If the
+provided $buffer is only the first part of a Storable image it should
+at least be this long to ensure that read_magic() will recognize it as
+such.
+
+=back
+
+=head1 EXAMPLES
+
+Here are some code samples showing a possible usage of Storable:
+
+ use Storable qw(store retrieve freeze thaw dclone);
+
+ %color = ('Blue' => 0.1, 'Red' => 0.8, 'Black' => 0, 'White' => 1);
+
+ store(\%color, 'mycolors') or die "Can't store %a in mycolors!\n";
+
+ $colref = retrieve('mycolors');
+ die "Unable to retrieve from mycolors!\n" unless defined $colref;
+ printf "Blue is still %lf\n", $colref->{'Blue'};
+
+ $colref2 = dclone(\%color);
+
+ $str = freeze(\%color);
+ printf "Serialization of %%color is %d bytes long.\n", length($str);
+ $colref3 = thaw($str);
+
+which prints (on my machine):
+
+ Blue is still 0.100000
+ Serialization of %color is 102 bytes long.
+
+Serialization of CODE references and deserialization in a safe
+compartment:
+
+=for example begin
+
+ use Storable qw(freeze thaw);
+ use Safe;
+ use strict;
+ my $safe = new Safe;
+        # because of opcodes used in "use strict":
+ $safe->permit(qw(:default require));
+ local $Storable::Deparse = 1;
+ local $Storable::Eval = sub { $safe->reval($_[0]) };
+ my $serialized = freeze(sub { 42 });
+ my $code = thaw($serialized);
+ $code->() == 42;
+
+=for example end
+
+=for example_testing
+        is( $code->(), 42 );
+
+=head1 SECURITY WARNING
+
+B<Do not accept Storable documents from untrusted sources!>
+
+Some features of Storable can lead to security vulnerabilities if you
+accept Storable documents from untrusted sources. Most obviously, the
+optional (off by default) CODE reference serialization feature allows
+transfer of code to the deserializing process. Furthermore, any
+serialized object will cause Storable to helpfully load the module
+corresponding to the class of the object in the deserializing module.
+For manipulated module names, this can load almost arbitrary code.
+Finally, the deserialized object's destructors will be invoked when
+the objects get destroyed in the deserializing process. Maliciously
+crafted Storable documents may put such objects in the value of
+a hash key that is overridden by another key/value pair in the
+same hash, thus causing immediate destructor execution.
+
+In a future version of Storable, we intend to provide options to disable
+loading modules for classes and to disable deserializing objects
+altogether. I<Nonetheless, Storable deserializing documents from
+untrusted sources is expected to have other, yet undiscovered,
+security concerns such as allowing an attacker to cause the deserializer
+to crash hard.>
+
+B<Therefore, let me repeat: Do not accept Storable documents from
+untrusted sources!>
+
+If your application requires accepting data from untrusted sources, you
+are best off with a less powerful and more-likely safe serialization format
+and implementation. If your data is sufficiently simple, JSON is a good
+choice and offers maximum interoperability.
+
+=head1 WARNING
+
+If you're using references as keys within your hash tables, you're bound
+to be disappointed when retrieving your data. Indeed, Perl stringifies
+references used as hash table keys. If you later wish to access the
+items via another reference stringification (i.e. using the same
+reference that was used for the key originally to record the value into
+the hash table), it will work because both references stringify to the
+same string.
+
+It won't work across a sequence of C<store> and C<retrieve> operations,
+however, because the addresses in the retrieved objects, which are
+part of the stringified references, will probably differ from the
+original addresses. The topology of your structure is preserved,
+but not hidden semantics like those.
+
+On platforms where it matters, be sure to call C<binmode()> on the
+descriptors that you pass to Storable functions.
+
+Storing data canonically that contains large hashes can be
+significantly slower than storing the same data normally, as
+temporary arrays to hold the keys for each hash have to be allocated,
+populated, sorted and freed.  Some tests have shown a halving of the
+speed of storing -- the exact penalty will depend on the complexity of
+your data.  There is no slowdown on retrieval.
+
+=head1 BUGS
+
+You can't store GLOB, FORMLINE, REGEXP, etc.... If you can define semantics
+for those operations, feel free to enhance Storable so that it can
+deal with them.
+
+The store functions will C<croak> if they run into such references
+unless you set C<$Storable::forgive_me> to some C<TRUE> value. In that
+case, the fatal message is converted to a warning and some meaningless
+string is stored instead.
+
+Setting C<$Storable::canonical> may not yield frozen strings that
+compare equal due to possible stringification of numbers. When the
+string version of a scalar exists, it is the form stored; therefore,
+if you happen to use your numbers as strings between two freezing
+operations on the same data structures, you will get different
+results.
+
+When storing doubles in network order, their value is stored as text.
+However, you should also not expect non-numeric floating-point values
+such as infinity and "not a number" to pass successfully through a
+nstore()/retrieve() pair.
+
+As Storable neither knows nor cares about character sets (although it
+does know that characters may be more than eight bits wide), any difference
+in the interpretation of character codes between a host and a target
+system is your problem.  In particular, if host and target use different
+code points to represent the characters used in the text representation
+of floating-point numbers, you will not be able be able to exchange
+floating-point data, even with nstore().
+
+C<Storable::drop_utf8> is a blunt tool.  There is no facility either to
+return B<all> strings as utf8 sequences, or to attempt to convert utf8
+data back to 8 bit and C<croak()> if the conversion fails.
+
+Prior to Storable 2.01, no distinction was made between signed and
+unsigned integers on storing.  By default Storable prefers to store a
+scalars string representation (if it has one) so this would only cause
+problems when storing large unsigned integers that had never been converted
+to string or floating point.  In other words values that had been generated
+by integer operations such as logic ops and then not used in any string or
+arithmetic context before storing.
+
+=head2 64 bit data in perl 5.6.0 and 5.6.1
+
+This section only applies to you if you have existing data written out
+by Storable 2.02 or earlier on perl 5.6.0 or 5.6.1 on Unix or Linux which
+has been configured with 64 bit integer support (not the default)
+If you got a precompiled perl, rather than running Configure to build
+your own perl from source, then it almost certainly does not affect you,
+and you can stop reading now (unless you're curious). If you're using perl
+on Windows it does not affect you.
+
+Storable writes a file header which contains the sizes of various C
+language types for the C compiler that built Storable (when not writing in
+network order), and will refuse to load files written by a Storable not
+on the same (or compatible) architecture.  This check and a check on
+machine byteorder is needed because the size of various fields in the file
+are given by the sizes of the C language types, and so files written on
+different architectures are incompatible.  This is done for increased speed.
+(When writing in network order, all fields are written out as standard
+lengths, which allows full interworking, but takes longer to read and write)
+
+Perl 5.6.x introduced the ability to optional configure the perl interpreter
+to use C's C<long long> type to allow scalars to store 64 bit integers on 32
+bit systems.  However, due to the way the Perl configuration system
+generated the C configuration files on non-Windows platforms, and the way
+Storable generates its header, nothing in the Storable file header reflected
+whether the perl writing was using 32 or 64 bit integers, despite the fact
+that Storable was storing some data differently in the file.  Hence Storable
+running on perl with 64 bit integers will read the header from a file
+written by a 32 bit perl, not realise that the data is actually in a subtly
+incompatible format, and then go horribly wrong (possibly crashing) if it
+encountered a stored integer.  This is a design failure.
+
+Storable has now been changed to write out and read in a file header with
+information about the size of integers.  It's impossible to detect whether
+an old file being read in was written with 32 or 64 bit integers (they have
+the same header) so it's impossible to automatically switch to a correct
+backwards compatibility mode.  Hence this Storable defaults to the new,
+correct behaviour.
+
+What this means is that if you have data written by Storable 1.x running
+on perl 5.6.0 or 5.6.1 configured with 64 bit integers on Unix or Linux
+then by default this Storable will refuse to read it, giving the error
+I<Byte order is not compatible>.  If you have such data then you
+should set C<$Storable::interwork_56_64bit> to a true value to make this
+Storable read and write files with the old header.  You should also
+migrate your data, or any older perl you are communicating with, to this
+current version of Storable.
+
+If you don't have data written with specific configuration of perl described
+above, then you do not and should not do anything.  Don't set the flag -
+not only will Storable on an identically configured perl refuse to load them,
+but Storable a differently configured perl will load them believing them
+to be correct for it, and then may well fail or crash part way through
+reading them.
+
+=head1 CREDITS
+
+Thank you to (in chronological order):
+
+	Jarkko Hietaniemi <jhi@iki.fi>
+	Ulrich Pfeifer <pfeifer@charly.informatik.uni-dortmund.de>
+	Benjamin A. Holzman <bholzman@earthlink.net>
+	Andrew Ford <A.Ford@ford-mason.co.uk>
+	Gisle Aas <gisle@aas.no>
+	Jeff Gresham <gresham_jeffrey@jpmorgan.com>
+	Murray Nesbitt <murray@activestate.com>
+	Marc Lehmann <pcg@opengroup.org>
+	Justin Banks <justinb@wamnet.com>
+	Jarkko Hietaniemi <jhi@iki.fi> (AGAIN, as perl 5.7.0 Pumpkin!)
+	Salvador Ortiz Garcia <sog@msg.com.mx>
+	Dominic Dunlop <domo@computer.org>
+	Erik Haugan <erik@solbors.no>
+	Benjamin A. Holzman <ben.holzman@grantstreet.com>
+	Reini Urban <rurban@cpanel.net>
+
+for their bug reports, suggestions and contributions.
+
+Benjamin Holzman contributed the tied variable support, Andrew Ford
+contributed the canonical order for hashes, and Gisle Aas fixed
+a few misunderstandings of mine regarding the perl internals,
+and optimized the emission of "tags" in the output streams by
+simply counting the objects instead of tagging them (leading to
+a binary incompatibility for the Storable image starting at version
+0.6--older images are, of course, still properly understood).
+Murray Nesbitt made Storable thread-safe.  Marc Lehmann added overloading
+and references to tied items support.  Benjamin Holzman added a performance
+improvement for overloaded classes; thanks to Grant Street Group for footing
+the bill.
+
+=head1 AUTHOR
+
+Storable was written by Raphael Manfredi
+F<E<lt>Raphael_Manfredi@pobox.comE<gt>>
+Maintenance is now done by the perl5-porters
+F<E<lt>perl5-porters@perl.orgE<gt>>
+
+Please e-mail us with problems, bug fixes, comments and complaints,
+although if you have compliments you should send them to Raphael.
+Please don't e-mail Raphael with problems, as he no longer works on
+Storable, and your message will be delayed while he forwards it to us.
+
+=head1 SEE ALSO
+
+L<Clone>.
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/Sub/Util.pm b/lib/5.24.1/x86_64-linux/Sub/Util.pm
new file mode 100644
index 00000000..1bf58788
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/Sub/Util.pm
@@ -0,0 +1,151 @@
+# Copyright (c) 2014 Paul Evans <leonerd@leonerd.org.uk>. All rights reserved.
+# This program is free software; you can redistribute it and/or
+# modify it under the same terms as Perl itself.
+
+package Sub::Util;
+
+use strict;
+use warnings;
+
+require Exporter;
+
+our @ISA = qw( Exporter );
+our @EXPORT_OK = qw(
+  prototype set_prototype
+  subname set_subname
+);
+
+our $VERSION    = "1.42_02";
+$VERSION   = eval $VERSION;
+
+require List::Util; # as it has the XS
+List::Util->VERSION( $VERSION ); # Ensure we got the right XS version (RT#100863)
+
+=head1 NAME
+
+Sub::Util - A selection of utility subroutines for subs and CODE references
+
+=head1 SYNOPSIS
+
+    use Sub::Util qw( prototype set_prototype subname set_subname );
+
+=head1 DESCRIPTION
+
+C<Sub::Util> contains a selection of utility subroutines that are useful for
+operating on subs and CODE references.
+
+The rationale for inclusion in this module is that the function performs some
+work for which an XS implementation is essential because it cannot be
+implemented in Pure Perl, and which is sufficiently-widely used across CPAN
+that its popularity warrants inclusion in a core module, which this is.
+
+=cut
+
+=head1 FUNCTIONS
+
+=cut
+
+=head2 prototype
+
+    my $proto = prototype( $code )
+
+I<Since version 1.40.>
+
+Returns the prototype of the given C<$code> reference, if it has one, as a
+string. This is the same as the C<CORE::prototype> operator; it is included
+here simply for symmetry and completeness with the other functions.
+
+=cut
+
+sub prototype
+{
+  my ( $code ) = @_;
+  return CORE::prototype( $code );
+}
+
+=head2 set_prototype
+
+    my $code = set_prototype $prototype, $code;
+
+I<Since version 1.40.>
+
+Sets the prototype of the function given by the C<$code> reference, or deletes
+it if C<$prototype> is C<undef>. Returns the C<$code> reference itself.
+
+I<Caution>: This function takes arguments in a different order to the previous
+copy of the code from C<Scalar::Util>. This is to match the order of
+C<set_subname>, and other potential additions in this file. This order has
+been chosen as it allows a neat and simple chaining of other
+C<Sub::Util::set_*> functions as might become available, such as:
+
+ my $code =
+    set_subname   name_here =>
+    set_prototype '&@'      =>
+    set_attribute ':lvalue' =>
+       sub { ...... };
+
+=cut
+
+=head2 subname
+
+    my $name = subname( $code )
+
+I<Since version 1.40.>
+
+Returns the name of the given C<$code> reference, if it has one. Normal named
+subs will give a fully-qualified name consisting of the package and the
+localname separated by C<::>. Anonymous code references will give C<__ANON__>
+as the localname. If a name has been set using L</set_subname>, this name will
+be returned instead.
+
+This function was inspired by C<sub_fullname> from L<Sub::Identify>. The
+remaining functions that C<Sub::Identify> implements can easily be emulated
+using regexp operations, such as
+
+ sub get_code_info { return (subname $_[0]) =~ m/^(.+)::(.+?)$/ }
+ sub sub_name      { return (get_code_info $_[0])[0] }
+ sub stash_name    { return (get_code_info $_[0])[1] }
+
+I<Users of Sub::Name beware>: This function is B<not> the same as
+C<Sub::Name::subname>; it returns the existing name of the sub rather than
+changing it. To set or change a name, see instead L</set_subname>.
+
+=cut
+
+=head2 set_subname
+
+    my $code = set_subname $name, $code;
+
+I<Since version 1.40.>
+
+Sets the name of the function given by the C<$code> reference. Returns the
+C<$code> reference itself. If the C<$name> is unqualified, the package of the
+caller is used to qualify it.
+
+This is useful for applying names to anonymous CODE references so that stack
+traces and similar situations, to give a useful name rather than having the
+default of C<__ANON__>. Note that this name is only used for this situation;
+the C<set_subname> will not install it into the symbol table; you will have to
+do that yourself if required.
+
+However, since the name is not used by perl except as the return value of
+C<caller>, for stack traces or similar, there is no actual requirement that
+the name be syntactically valid as a perl function name. This could be used to
+attach extra information that could be useful in debugging stack traces.
+
+This function was copied from C<Sub::Name::subname> and renamed to the naming
+convention of this module.
+
+=cut
+
+=head1 AUTHOR
+
+The general structure of this module was written by Paul Evans
+<leonerd@leonerd.org.uk>.
+
+The XS implementation of L</set_subname> was copied from L<Sub::Name> by
+Matthijs van Duin <xmath@cpan.org>
+
+=cut
+
+1;
diff --git a/lib/5.24.1/x86_64-linux/Sys/Hostname.pm b/lib/5.24.1/x86_64-linux/Sys/Hostname.pm
new file mode 100644
index 00000000..42e9293c
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/Sys/Hostname.pm
@@ -0,0 +1,153 @@
+package Sys::Hostname;
+
+use strict;
+
+use Carp;
+
+require Exporter;
+
+our @ISA     = qw/ Exporter /;
+our @EXPORT  = qw/ hostname /;
+
+our $VERSION;
+
+our $host;
+
+BEGIN {
+    $VERSION = '1.20';
+    {
+	local $SIG{__DIE__};
+	eval {
+	    require XSLoader;
+	    XSLoader::load();
+	};
+	warn $@ if $@;
+    }
+}
+
+
+sub hostname {
+
+  # method 1 - we already know it
+  return $host if defined $host;
+
+  # method 1' - try to ask the system
+  $host = ghname() if defined &ghname;
+  return $host if defined $host;
+
+  if ($^O eq 'VMS') {
+
+    # method 2 - no sockets ==> return DECnet node name
+    eval { local $SIG{__DIE__}; $host = (gethostbyname('me'))[0] };
+    if ($@) { return $host = $ENV{'SYS$NODE'}; }
+
+    # method 3 - has someone else done the job already?  It's common for the
+    #    TCP/IP stack to advertise the hostname via a logical name.  (Are
+    #    there any other logicals which TCP/IP stacks use for the host name?)
+    $host = $ENV{'ARPANET_HOST_NAME'}  || $ENV{'INTERNET_HOST_NAME'} ||
+            $ENV{'MULTINET_HOST_NAME'} || $ENV{'UCX$INET_HOST'}      ||
+            $ENV{'TCPWARE_DOMAINNAME'} || $ENV{'NEWS_ADDRESS'};
+    return $host if $host;
+
+    # method 4 - does hostname happen to work?
+    my($rslt) = `hostname`;
+    if ($rslt !~ /IVVERB/) { ($host) = $rslt =~ /^(\S+)/; }
+    return $host if $host;
+
+    # rats!
+    $host = '';
+    croak "Cannot get host name of local machine";  
+
+  }
+  elsif ($^O eq 'MSWin32') {
+    ($host) = gethostbyname('localhost');
+    chomp($host = `hostname 2> NUL`) unless defined $host;
+    return $host;
+  }
+  else {  # Unix
+    # is anyone going to make it here?
+
+    local $ENV{PATH} = '/usr/bin:/bin:/usr/sbin:/sbin'; # Paranoia.
+
+    # method 2 - syscall is preferred since it avoids tainting problems
+    # XXX: is it such a good idea to return hostname untainted?
+    eval {
+	local $SIG{__DIE__};
+	require "syscall.ph";
+	$host = "\0" x 65; ## preload scalar
+	syscall(&SYS_gethostname, $host, 65) == 0;
+    }
+
+    # method 2a - syscall using systeminfo instead of gethostname
+    #           -- needed on systems like Solaris
+    || eval {
+	local $SIG{__DIE__};
+	require "sys/syscall.ph";
+	require "sys/systeminfo.ph";
+	$host = "\0" x 65; ## preload scalar
+	syscall(&SYS_systeminfo, &SI_HOSTNAME, $host, 65) != -1;
+    }
+
+    # method 3 - trusty old hostname command
+    || eval {
+	local $SIG{__DIE__};
+	local $SIG{CHLD};
+	$host = `(hostname) 2>/dev/null`; # BSDish
+    }
+
+    # method 4 - use POSIX::uname(), which strictly can't be expected to be
+    # correct
+    || eval {
+	local $SIG{__DIE__};
+	require POSIX;
+	$host = (POSIX::uname())[1];
+    }
+
+    # method 5 - sysV uname command (may truncate)
+    || eval {
+	local $SIG{__DIE__};
+	$host = `uname -n 2>/dev/null`; ## sysVish
+    }
+
+    # bummer
+    || croak "Cannot get host name of local machine";  
+
+    # remove garbage 
+    $host =~ tr/\0\r\n//d;
+    $host;
+  }
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+Sys::Hostname - Try every conceivable way to get hostname
+
+=head1 SYNOPSIS
+
+    use Sys::Hostname;
+    $host = hostname;
+
+=head1 DESCRIPTION
+
+Attempts several methods of getting the system hostname and
+then caches the result.  It tries the first available of the C
+library's gethostname(), C<`$Config{aphostname}`>, uname(2),
+C<syscall(SYS_gethostname)>, C<`hostname`>, C<`uname -n`>,
+and the file F</com/host>.  If all that fails it C<croak>s.
+
+All NULs, returns, and newlines are removed from the result.
+
+=head1 AUTHOR
+
+David Sundstrom E<lt>F<sunds@asictest.sc.ti.com>E<gt>
+
+Texas Instruments
+
+XS code added by Greg Bacon E<lt>F<gbacon@cs.uah.edu>E<gt>
+
+=cut
+
diff --git a/lib/5.24.1/x86_64-linux/Sys/Syslog.pm b/lib/5.24.1/x86_64-linux/Sys/Syslog.pm
new file mode 100644
index 00000000..28f36c7e
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/Sys/Syslog.pm
@@ -0,0 +1,1776 @@
+package Sys::Syslog;
+use strict;
+use warnings;
+use warnings::register;
+use Carp;
+use Exporter        qw< import >;
+use File::Basename;
+use POSIX           qw< strftime setlocale LC_TIME >;
+use Socket          qw< :all >;
+require 5.005;
+
+
+{   no strict 'vars';
+    $VERSION = '0.33_01';
+
+    %EXPORT_TAGS = (
+        standard => [qw(openlog syslog closelog setlogmask)],
+        extended => [qw(setlogsock)],
+        macros => [
+            # levels
+            qw(
+                LOG_ALERT LOG_CRIT LOG_DEBUG LOG_EMERG LOG_ERR 
+                LOG_INFO LOG_NOTICE LOG_WARNING
+            ), 
+
+            # standard facilities
+            qw(
+                LOG_AUTH LOG_AUTHPRIV LOG_CRON LOG_DAEMON LOG_FTP LOG_KERN
+                LOG_LOCAL0 LOG_LOCAL1 LOG_LOCAL2 LOG_LOCAL3 LOG_LOCAL4
+                LOG_LOCAL5 LOG_LOCAL6 LOG_LOCAL7 LOG_LPR LOG_MAIL LOG_NEWS
+                LOG_SYSLOG LOG_USER LOG_UUCP
+            ),
+            # Mac OS X specific facilities
+            qw( LOG_INSTALL LOG_LAUNCHD LOG_NETINFO LOG_RAS LOG_REMOTEAUTH ),
+            # modern BSD specific facilities
+            qw( LOG_CONSOLE LOG_NTP LOG_SECURITY ),
+            # IRIX specific facilities
+            qw( LOG_AUDIT LOG_LFMT ),
+
+            # options
+            qw(
+                LOG_CONS LOG_PID LOG_NDELAY LOG_NOWAIT LOG_ODELAY LOG_PERROR 
+            ), 
+
+            # others macros
+            qw(
+                LOG_FACMASK LOG_NFACILITIES LOG_PRIMASK 
+                LOG_MASK LOG_UPTO
+            ), 
+        ],
+    );
+
+    @EXPORT = (
+        @{$EXPORT_TAGS{standard}}, 
+    );
+
+    @EXPORT_OK = (
+        @{$EXPORT_TAGS{extended}}, 
+        @{$EXPORT_TAGS{macros}}, 
+    );
+
+    eval {
+        require XSLoader;
+        XSLoader::load('Sys::Syslog', $VERSION);
+        1
+    } or do {
+        require DynaLoader;
+        push @ISA, 'DynaLoader';
+        bootstrap Sys::Syslog $VERSION;
+    };
+}
+
+
+# 
+# Public variables
+# 
+use vars qw($host);             # host to send syslog messages to (see notes at end)
+
+#
+# Prototypes
+#
+sub silent_eval (&);
+
+# 
+# Global variables
+# 
+use vars qw($facility);
+my $connected       = 0;        # flag to indicate if we're connected or not
+my $syslog_send;                # coderef of the function used to send messages
+my $syslog_path     = undef;    # syslog path for "stream" and "unix" mechanisms
+my $syslog_xobj     = undef;    # if defined, holds the external object used to send messages
+my $transmit_ok     = 0;        # flag to indicate if the last message was transmitted
+my $sock_port       = undef;    # socket port
+my $sock_timeout    = 0;        # socket timeout, see below
+my $current_proto   = undef;    # current mechanism used to transmit messages
+my $ident           = '';       # identifiant prepended to each message
+$facility           = '';       # current facility
+my $maskpri         = LOG_UPTO(&LOG_DEBUG);     # current log mask
+
+my %options = (
+    ndelay  => 0, 
+    noeol   => 0,
+    nofatal => 0, 
+    nonul   => 0,
+    nowait  => 0, 
+    perror  => 0, 
+    pid     => 0, 
+);
+
+# Default is now to first use the native mechanism, so Perl programs 
+# behave like other normal Unix programs, then try other mechanisms.
+my @connectMethods = qw(native tcp udp unix pipe stream console);
+if ($^O eq "freebsd" or $^O eq "linux") {
+    @connectMethods = grep { $_ ne 'udp' } @connectMethods;
+}
+
+# And on Win32 systems, we try to use the native mechanism for this 
+# platform, the events logger, available through Win32::EventLog.
+EVENTLOG: {
+    my $is_Win32 = $^O =~ /Win32/i;
+
+    if (can_load("Sys::Syslog::Win32", $is_Win32)) {
+        unshift @connectMethods, 'eventlog';
+    }
+}
+
+my @defaultMethods = @connectMethods;
+my @fallbackMethods = ();
+
+# The timeout in connection_ok() was pushed up to 0.25 sec in 
+# Sys::Syslog v0.19 in order to address a heisenbug on MacOSX:
+# http://london.pm.org/pipermail/london.pm/Week-of-Mon-20061211/005961.html
+# 
+# However, this also had the effect of slowing this test for 
+# all other operating systems, which apparently impacted some 
+# users (cf. CPAN-RT #34753). So, in order to make everybody 
+# happy, the timeout is now zero by default on all systems 
+# except on OSX where it is set to 250 msec, and can be set 
+# with the infamous setlogsock() function.
+#
+# Update 2011-08: this issue is also been seen on multiprocessor
+# Debian GNU/kFreeBSD systems. See http://bugs.debian.org/627821
+# and https://rt.cpan.org/Ticket/Display.html?id=69997
+# Also, lowering the delay to 1 ms, which should be enough.
+
+$sock_timeout = 0.001 if $^O =~ /darwin|gnukfreebsd/;
+
+
+# Perl 5.6.0's warnings.pm doesn't have warnings::warnif()
+if (not defined &warnings::warnif) {
+    *warnings::warnif = sub {
+        goto &warnings::warn if warnings::enabled(__PACKAGE__)
+    }
+}
+
+# coderef for a nicer handling of errors
+my $err_sub = $options{nofatal} ? \&warnings::warnif : \&croak;
+
+
+sub AUTOLOAD {
+    # This AUTOLOAD is used to 'autoload' constants from the constant()
+    # XS function.
+    no strict 'vars';
+    my $constname;
+    ($constname = $AUTOLOAD) =~ s/.*:://;
+    croak "Sys::Syslog::constant() not defined" if $constname eq 'constant';
+    my ($error, $val) = constant($constname);
+    croak $error if $error;
+    no strict 'refs';
+    *$AUTOLOAD = sub { $val };
+    goto &$AUTOLOAD;
+}
+
+
+sub openlog {
+    ($ident, my $logopt, $facility) = @_;
+
+    # default values
+    $ident    ||= basename($0) || getlogin() || getpwuid($<) || 'syslog';
+    $logopt   ||= '';
+    $facility ||= LOG_USER();
+
+    for my $opt (split /\b/, $logopt) {
+        $options{$opt} = 1 if exists $options{$opt}
+    }
+
+    $err_sub = delete $options{nofatal} ? \&warnings::warnif : \&croak;
+    return 1 unless $options{ndelay};
+    connect_log();
+} 
+
+sub closelog {
+    disconnect_log() if $connected;
+    $options{$_} = 0 for keys %options;
+    $facility = $ident = "";
+    $connected = 0;
+    return 1
+} 
+
+sub setlogmask {
+    my $oldmask = $maskpri;
+    $maskpri = shift unless $_[0] == 0;
+    $oldmask;
+}
+
+
+my %mechanism = (
+    console => {
+        check   => sub { 1 },
+    },
+    eventlog => {
+        check   => sub { return can_load("Win32::EventLog") },
+        err_msg => "no Win32 API available",
+    },
+    inet => {
+        check   => sub { 1 },
+    },
+    native => {
+        check   => sub { 1 },
+    },
+    pipe => {
+        check   => sub {
+            ($syslog_path) = grep { defined && length && -p && -w _ }
+                                $syslog_path, &_PATH_LOG, "/dev/log";
+            return $syslog_path ? 1 : 0
+        },
+        err_msg => "path not available",
+    },
+    stream => {
+        check   => sub {
+            if (not defined $syslog_path) {
+                my @try = qw(/dev/log /dev/conslog);
+                unshift @try, &_PATH_LOG  if length &_PATH_LOG;
+                ($syslog_path) = grep { -w } @try;
+            }
+            return defined $syslog_path && -w $syslog_path
+        },
+        err_msg => "could not find any writable device",
+    },
+    tcp => {
+        check   => sub {
+            return 1 if defined $sock_port;
+
+            if (getservbyname('syslog', 'tcp') || getservbyname('syslogng', 'tcp')) {
+                $host = $syslog_path;
+                return 1
+            }
+            else {
+                return
+            }
+        },
+        err_msg => "TCP service unavailable",
+    },
+    udp => {
+        check   => sub {
+            return 1 if defined $sock_port;
+
+            if (getservbyname('syslog', 'udp')) {
+                $host = $syslog_path;
+                return 1
+            }
+            else {
+                return
+            }
+        },
+        err_msg => "UDP service unavailable",
+    },
+    unix => {
+        check   => sub {
+            my @try = ($syslog_path, &_PATH_LOG);
+            ($syslog_path) = grep { defined && length && -w } @try;
+            return defined $syslog_path && -w $syslog_path
+        },
+        err_msg => "path not available",
+    },
+);
+ 
+sub setlogsock {
+    my %opt;
+
+    # handle arguments
+    # - old API: setlogsock($sock_type, $sock_path, $sock_timeout)
+    # - new API: setlogsock(\%options)
+    croak "setlogsock(): Invalid number of arguments"
+        unless @_ >= 1 and @_ <= 3;
+
+    if (my $ref = ref $_[0]) {
+        if ($ref eq "HASH") {
+            %opt = %{ $_[0] };
+            croak "setlogsock(): No argument given" unless keys %opt;
+        }
+        elsif ($ref eq "ARRAY") {
+            @opt{qw< type path timeout >} = @_;
+        }
+        else {
+            croak "setlogsock(): Unexpected \L$ref\E reference"
+        }
+    }
+    else {
+        @opt{qw< type path timeout >} = @_;
+    }
+
+    # check socket type, remove invalid ones
+    my $diag_invalid_type = "setlogsock(): Invalid type%s; must be one of "
+                          . join ", ", map { "'$_'" } sort keys %mechanism;
+    croak sprintf $diag_invalid_type, "" unless defined $opt{type};
+    my @sock_types = ref $opt{type} eq "ARRAY" ? @{$opt{type}} : ($opt{type});
+    my @tmp;
+
+    for my $sock_type (@sock_types) {
+        carp sprintf $diag_invalid_type, " '$sock_type'" and next
+            unless exists $mechanism{$sock_type};
+        push @tmp, "tcp", "udp" and next  if $sock_type eq "inet";
+        push @tmp, $sock_type;
+    }
+
+    @sock_types = @tmp;
+
+    # set global options
+    $syslog_path  = $opt{path}    if defined $opt{path};
+    $host         = $opt{host}    if defined $opt{host};
+    $sock_timeout = $opt{timeout} if defined $opt{timeout};
+    $sock_port    = $opt{port}    if defined $opt{port};
+
+    disconnect_log() if $connected;
+    $transmit_ok = 0;
+    @fallbackMethods = ();
+    @connectMethods = ();
+    my $found = 0;
+
+    # check each given mechanism and test if it can be used on the current system
+    for my $sock_type (@sock_types) {
+        if ( $mechanism{$sock_type}{check}->() ) {
+            push @connectMethods, $sock_type;
+            $found = 1;
+        }
+        else {
+            warnings::warnif("setlogsock(): type='$sock_type': "
+                           . $mechanism{$sock_type}{err_msg});
+        }
+    }
+
+    # if no mechanism worked from the given ones, use the default ones
+    @connectMethods = @defaultMethods unless @connectMethods;
+
+    return $found;
+}
+
+sub syslog {
+    my ($priority, $mask, @args) = @_;
+    my ($message, $buf);
+    my (@words, $num, $numpri, $numfac, $sum);
+    my $failed = undef;
+    my $fail_time = undef;
+    my $error = $!;
+
+    # if $ident is undefined, it means openlog() wasn't previously called
+    # so do it now in order to have sensible defaults
+    openlog() unless $ident;
+
+    local $facility = $facility;    # may need to change temporarily.
+
+    croak "syslog: expecting argument \$priority" unless defined $priority;
+    croak "syslog: expecting argument \$format"   unless defined $mask;
+
+    if ($priority =~ /^\d+$/) {
+        $numpri = LOG_PRI($priority);
+        $numfac = LOG_FAC($priority) << 3;
+    }
+    elsif ($priority =~ /^\w+/) {
+        # Allow "level" or "level|facility".
+        @words = split /\W+/, $priority, 2;
+
+        undef $numpri;
+        undef $numfac;
+
+        for my $word (@words) {
+            next if length $word == 0;
+
+            # Translate word to number.
+            $num = xlate($word);
+
+            if ($num < 0) {
+                croak "syslog: invalid level/facility: $word"
+            }
+            elsif ($num <= LOG_PRIMASK() and $word ne "kern") {
+                croak "syslog: too many levels given: $word"
+                    if defined $numpri;
+                $numpri = $num;
+            }
+            else {
+                croak "syslog: too many facilities given: $word"
+                    if defined $numfac;
+                $facility = $word if $word =~ /^[A-Za-z]/;
+                $numfac = $num;
+            }
+        }
+    }
+    else {
+        croak "syslog: invalid level/facility: $priority"
+    }
+
+    croak "syslog: level must be given" unless defined $numpri;
+
+    # don't log if priority is below mask level
+    return 0 unless LOG_MASK($numpri) & $maskpri;
+
+    if (not defined $numfac) {  # Facility not specified in this call.
+	$facility = 'user' unless $facility;
+	$numfac = xlate($facility);
+    }
+
+    connect_log() unless $connected;
+
+    if ($mask =~ /%m/) {
+        # escape percent signs for sprintf()
+        $error =~ s/%/%%/g if @args;
+        # replace %m with $error, if preceded by an even number of percent signs
+        $mask =~ s/(?<!%)((?:%%)*)%m/$1$error/g;
+    }
+
+    $mask .= "\n" unless $mask =~ /\n$/;
+    $message = @args ? sprintf($mask, @args) : $mask;
+
+    if ($current_proto eq 'native') {
+        $buf = $message;
+    }
+    elsif ($current_proto eq 'eventlog') {
+        $buf = $message;
+    }
+    else {
+        my $whoami = $ident;
+        $whoami .= "[$$]" if $options{pid};
+
+        $sum = $numpri + $numfac;
+        my $oldlocale = setlocale(LC_TIME);
+        setlocale(LC_TIME, 'C');
+        my $timestamp = strftime "%b %d %H:%M:%S", localtime;
+        setlocale(LC_TIME, $oldlocale);
+
+        # construct the stream that will be transmitted
+        $buf = "<$sum>$timestamp $whoami: $message";
+
+        # add (or not) a newline
+        $buf .= "\n" if !$options{noeol} and rindex($buf, "\n") == -1;
+
+        # add (or not) a NUL character
+        $buf .= "\0" if !$options{nonul};
+    }
+
+    # handle PERROR option
+    # "native" mechanism already handles it by itself
+    if ($options{perror} and $current_proto ne 'native') {
+        my $whoami = $ident;
+        $whoami .= "[$$]" if $options{pid};
+        print STDERR "$whoami: $message\n";
+    }
+
+    # it's possible that we'll get an error from sending
+    # (e.g. if method is UDP and there is no UDP listener,
+    # then we'll get ECONNREFUSED on the send). So what we
+    # want to do at this point is to fallback onto a different
+    # connection method.
+    while (scalar @fallbackMethods || $syslog_send) {
+	if ($failed && (time - $fail_time) > 60) {
+	    # it's been a while... maybe things have been fixed
+	    @fallbackMethods = ();
+	    disconnect_log();
+	    $transmit_ok = 0; # make it look like a fresh attempt
+	    connect_log();
+        }
+
+	if ($connected && !connection_ok()) {
+	    # Something was OK, but has now broken. Remember coz we'll
+	    # want to go back to what used to be OK.
+	    $failed = $current_proto unless $failed;
+	    $fail_time = time;
+	    disconnect_log();
+	}
+
+	connect_log() unless $connected;
+	$failed = undef if ($current_proto && $failed && $current_proto eq $failed);
+
+	if ($syslog_send) {
+            if ($syslog_send->($buf, $numpri, $numfac)) {
+		$transmit_ok++;
+		return 1;
+	    }
+	    # typically doesn't happen, since errors are rare from write().
+	    disconnect_log();
+	}
+    }
+    # could not send, could not fallback onto a working
+    # connection method. Lose.
+    return 0;
+}
+
+sub _syslog_send_console {
+    my ($buf) = @_;
+
+    # The console print is a method which could block
+    # so we do it in a child process and always return success
+    # to the caller.
+    if (my $pid = fork) {
+
+	if ($options{nowait}) {
+	    return 1;
+	} else {
+	    if (waitpid($pid, 0) >= 0) {
+	    	return ($? >> 8);
+	    } else {
+		# it's possible that the caller has other
+		# plans for SIGCHLD, so let's not interfere
+		return 1;
+	    }
+	}
+    } else {
+        if (open(CONS, ">/dev/console")) {
+	    my $ret = print CONS $buf . "\r";  # XXX: should this be \x0A ?
+	    POSIX::_exit($ret) if defined $pid;
+	    close CONS;
+	}
+
+	POSIX::_exit(0) if defined $pid;
+    }
+}
+
+sub _syslog_send_stream {
+    my ($buf) = @_;
+    # XXX: this only works if the OS stream implementation makes a write 
+    # look like a putmsg() with simple header. For instance it works on 
+    # Solaris 8 but not Solaris 7.
+    # To be correct, it should use a STREAMS API, but perl doesn't have one.
+    return syswrite(SYSLOG, $buf, length($buf));
+}
+
+sub _syslog_send_pipe {
+    my ($buf) = @_;
+    return print SYSLOG $buf;
+}
+
+sub _syslog_send_socket {
+    my ($buf) = @_;
+    return syswrite(SYSLOG, $buf, length($buf));
+    #return send(SYSLOG, $buf, 0);
+}
+
+sub _syslog_send_native {
+    my ($buf, $numpri, $numfac) = @_;
+    syslog_xs($numpri|$numfac, $buf);
+    return 1;
+}
+
+
+# xlate()
+# -----
+# private function to translate names to numeric values
+# 
+sub xlate {
+    my ($name) = @_;
+
+    return $name+0 if $name =~ /^\s*\d+\s*$/;
+    $name = uc $name;
+    $name = "LOG_$name" unless $name =~ /^LOG_/;
+
+    # ExtUtils::Constant 0.20 introduced a new way to implement
+    # constants, called ProxySubs.  When it was used to generate
+    # the C code, the constant() function no longer returns the 
+    # correct value.  Therefore, we first try a direct call to 
+    # constant(), and if the value is an error we try to call the 
+    # constant by its full name. 
+    my $value = constant($name);
+
+    if (index($value, "not a valid") >= 0) {
+        $name = "Sys::Syslog::$name";
+        $value = eval { no strict "refs"; &$name };
+        $value = $@ unless defined $value;
+    }
+
+    $value = -1 if index($value, "not a valid") >= 0;
+
+    return defined $value ? $value : -1;
+}
+
+
+# connect_log()
+# -----------
+# This function acts as a kind of front-end: it tries to connect to 
+# a syslog service using the selected methods, trying each one in the 
+# selected order. 
+# 
+sub connect_log {
+    @fallbackMethods = @connectMethods unless scalar @fallbackMethods;
+
+    if ($transmit_ok && $current_proto) {
+        # Retry what we were on, because it has worked in the past.
+	unshift(@fallbackMethods, $current_proto);
+    }
+
+    $connected = 0;
+    my @errs = ();
+    my $proto = undef;
+
+    while ($proto = shift @fallbackMethods) {
+	no strict 'refs';
+	my $fn = "connect_$proto";
+	$connected = &$fn(\@errs) if defined &$fn;
+	last if $connected;
+    }
+
+    $transmit_ok = 0;
+    if ($connected) {
+	$current_proto = $proto;
+        my ($old) = select(SYSLOG); $| = 1; select($old);
+    } else {
+	@fallbackMethods = ();
+        $err_sub->(join "\n\t- ", "no connection to syslog available", @errs);
+        return undef;
+    }
+}
+
+sub connect_tcp {
+    my ($errs) = @_;
+
+    my $proto = getprotobyname('tcp');
+    if (!defined $proto) {
+	push @$errs, "getprotobyname failed for tcp";
+	return 0;
+    }
+
+    my $port = $sock_port || getservbyname('syslog', 'tcp');
+    $port = getservbyname('syslogng', 'tcp') unless defined $port;
+    if (!defined $port) {
+	push @$errs, "getservbyname failed for syslog/tcp and syslogng/tcp";
+	return 0;
+    }
+
+    my $addr;
+    if (defined $host) {
+        $addr = inet_aton($host);
+        if (!$addr) {
+	    push @$errs, "can't lookup $host";
+	    return 0;
+	}
+    } else {
+        $addr = INADDR_LOOPBACK;
+    }
+    $addr = sockaddr_in($port, $addr);
+
+    if (!socket(SYSLOG, AF_INET, SOCK_STREAM, $proto)) {
+	push @$errs, "tcp socket: $!";
+	return 0;
+    }
+
+    setsockopt(SYSLOG, SOL_SOCKET, SO_KEEPALIVE, 1);
+    if (silent_eval { IPPROTO_TCP() }) {
+        # These constants don't exist in 5.005. They were added in 1999
+        setsockopt(SYSLOG, IPPROTO_TCP(), TCP_NODELAY(), 1);
+    }
+    if (!connect(SYSLOG, $addr)) {
+	push @$errs, "tcp connect: $!";
+	return 0;
+    }
+
+    $syslog_send = \&_syslog_send_socket;
+
+    return 1;
+}
+
+sub connect_udp {
+    my ($errs) = @_;
+
+    my $proto = getprotobyname('udp');
+    if (!defined $proto) {
+	push @$errs, "getprotobyname failed for udp";
+	return 0;
+    }
+
+    my $port = $sock_port || getservbyname('syslog', 'udp');
+    if (!defined $port) {
+	push @$errs, "getservbyname failed for syslog/udp";
+	return 0;
+    }
+
+    my $addr;
+    if (defined $host) {
+        $addr = inet_aton($host);
+        if (!$addr) {
+	    push @$errs, "can't lookup $host";
+	    return 0;
+	}
+    } else {
+        $addr = INADDR_LOOPBACK;
+    }
+    $addr = sockaddr_in($port, $addr);
+
+    if (!socket(SYSLOG, AF_INET, SOCK_DGRAM, $proto)) {
+	push @$errs, "udp socket: $!";
+	return 0;
+    }
+    if (!connect(SYSLOG, $addr)) {
+	push @$errs, "udp connect: $!";
+	return 0;
+    }
+
+    # We want to check that the UDP connect worked. However the only
+    # way to do that is to send a message and see if an ICMP is returned
+    _syslog_send_socket("");
+    if (!connection_ok()) {
+	push @$errs, "udp connect: nobody listening";
+	return 0;
+    }
+
+    $syslog_send = \&_syslog_send_socket;
+
+    return 1;
+}
+
+sub connect_stream {
+    my ($errs) = @_;
+    # might want syslog_path to be variable based on syslog.h (if only
+    # it were in there!)
+    $syslog_path = '/dev/conslog' unless defined $syslog_path; 
+
+    if (!-w $syslog_path) {
+	push @$errs, "stream $syslog_path is not writable";
+	return 0;
+    }
+
+    require Fcntl;
+
+    if (!sysopen(SYSLOG, $syslog_path, Fcntl::O_WRONLY(), 0400)) {
+	push @$errs, "stream can't open $syslog_path: $!";
+	return 0;
+    }
+
+    $syslog_send = \&_syslog_send_stream;
+
+    return 1;
+}
+
+sub connect_pipe {
+    my ($errs) = @_;
+
+    $syslog_path ||= &_PATH_LOG || "/dev/log";
+
+    if (not -w $syslog_path) {
+        push @$errs, "$syslog_path is not writable";
+        return 0;
+    }
+
+    if (not open(SYSLOG, ">$syslog_path")) {
+        push @$errs, "can't write to $syslog_path: $!";
+        return 0;
+    }
+
+    $syslog_send = \&_syslog_send_pipe;
+
+    return 1;
+}
+
+sub connect_unix {
+    my ($errs) = @_;
+
+    $syslog_path ||= _PATH_LOG() if length _PATH_LOG();
+
+    if (not defined $syslog_path) {
+        push @$errs, "_PATH_LOG not available in syslog.h and no user-supplied socket path";
+	return 0;
+    }
+
+    if (not (-S $syslog_path or -c _)) {
+        push @$errs, "$syslog_path is not a socket";
+	return 0;
+    }
+
+    my $addr = sockaddr_un($syslog_path);
+    if (!$addr) {
+	push @$errs, "can't locate $syslog_path";
+	return 0;
+    }
+    if (!socket(SYSLOG, AF_UNIX, SOCK_STREAM, 0)) {
+        push @$errs, "unix stream socket: $!";
+	return 0;
+    }
+
+    if (!connect(SYSLOG, $addr)) {
+        if (!socket(SYSLOG, AF_UNIX, SOCK_DGRAM, 0)) {
+	    push @$errs, "unix dgram socket: $!";
+	    return 0;
+	}
+        if (!connect(SYSLOG, $addr)) {
+	    push @$errs, "unix dgram connect: $!";
+	    return 0;
+	}
+    }
+
+    $syslog_send = \&_syslog_send_socket;
+
+    return 1;
+}
+
+sub connect_native {
+    my ($errs) = @_;
+    my $logopt = 0;
+
+    # reconstruct the numeric equivalent of the options
+    for my $opt (keys %options) {
+        $logopt += xlate($opt) if $options{$opt}
+    }
+
+    openlog_xs($ident, $logopt, xlate($facility));
+    $syslog_send = \&_syslog_send_native;
+
+    return 1;
+}
+
+sub connect_eventlog {
+    my ($errs) = @_;
+
+    $syslog_xobj = Sys::Syslog::Win32::_install();
+    $syslog_send = \&Sys::Syslog::Win32::_syslog_send;
+
+    return 1;
+}
+
+sub connect_console {
+    my ($errs) = @_;
+    if (!-w '/dev/console') {
+	push @$errs, "console is not writable";
+	return 0;
+    }
+    $syslog_send = \&_syslog_send_console;
+    return 1;
+}
+
+# To test if the connection is still good, we need to check if any
+# errors are present on the connection. The errors will not be raised
+# by a write. Instead, sockets are made readable and the next read
+# would cause the error to be returned. Unfortunately the syslog 
+# 'protocol' never provides anything for us to read. But with 
+# judicious use of select(), we can see if it would be readable...
+sub connection_ok {
+    return 1 if defined $current_proto and (
+        $current_proto eq 'native' or $current_proto eq 'console'
+        or $current_proto eq 'eventlog'
+    );
+
+    my $rin = '';
+    vec($rin, fileno(SYSLOG), 1) = 1;
+    my $ret = select $rin, undef, $rin, $sock_timeout;
+    return ($ret ? 0 : 1);
+}
+
+sub disconnect_log {
+    $connected = 0;
+    $syslog_send = undef;
+
+    if (defined $current_proto and $current_proto eq 'native') {
+        closelog_xs();
+        unshift @fallbackMethods, $current_proto;
+        $current_proto = undef;
+        return 1;
+    }
+    elsif (defined $current_proto and $current_proto eq 'eventlog') {
+        $syslog_xobj->Close();
+        unshift @fallbackMethods, $current_proto;
+        $current_proto = undef;
+        return 1;
+    }
+
+    return close SYSLOG;
+}
+
+
+#
+# Wrappers around eval() that makes sure that nobody, and I say NOBODY, 
+# ever knows that I wanted to test if something was here or not. 
+# It is needed because some applications are trying to be too smart,
+# do it wrong, and it ends up in EPIC FAIL. 
+# Yes I'm speaking of YOU, SpamAssassin.
+#
+sub silent_eval (&) {
+    local($SIG{__DIE__}, $SIG{__WARN__}, $@);
+    return eval { $_[0]->() }
+}
+
+sub can_load {
+    my ($module, $verbose) = @_;
+    local($SIG{__DIE__}, $SIG{__WARN__}, $@);
+    local @INC = @INC;
+    pop @INC if $INC[-1] eq '.';
+    my $loaded = eval "use $module; 1";
+    warn $@ if not $loaded and $verbose;
+    return $loaded
+}
+
+
+"Eighth Rule: read the documentation."
+
+__END__
+
+=head1 NAME
+
+Sys::Syslog - Perl interface to the UNIX syslog(3) calls
+
+=head1 VERSION
+
+This is the documentation of version 0.33
+
+=head1 SYNOPSIS
+
+    use Sys::Syslog;                        # all except setlogsock()
+    use Sys::Syslog qw(:standard :macros);  # standard functions & macros
+
+    openlog($ident, $logopt, $facility);    # don't forget this
+    syslog($priority, $format, @args);
+    $oldmask = setlogmask($mask_priority);
+    closelog();
+
+
+=head1 DESCRIPTION
+
+C<Sys::Syslog> is an interface to the UNIX C<syslog(3)> program.
+Call C<syslog()> with a string priority and a list of C<printf()> args
+just like C<syslog(3)>.
+
+
+=head1 EXPORTS
+
+C<Sys::Syslog> exports the following C<Exporter> tags: 
+
+=over 4
+
+=item *
+
+C<:standard> exports the standard C<syslog(3)> functions: 
+
+    openlog closelog setlogmask syslog
+
+=item *
+
+C<:extended> exports the Perl specific functions for C<syslog(3)>: 
+
+    setlogsock
+
+=item *
+
+C<:macros> exports the symbols corresponding to most of your C<syslog(3)> 
+macros and the C<LOG_UPTO()> and C<LOG_MASK()> functions. 
+See L<"CONSTANTS"> for the supported constants and their meaning. 
+
+=back
+
+By default, C<Sys::Syslog> exports the symbols from the C<:standard> tag. 
+
+
+=head1 FUNCTIONS
+
+=over 4
+
+=item B<openlog($ident, $logopt, $facility)>
+
+Opens the syslog.
+C<$ident> is prepended to every message.  C<$logopt> contains zero or
+more of the options detailed below.  C<$facility> specifies the part 
+of the system to report about, for example C<LOG_USER> or C<LOG_LOCAL0>:
+see L<"Facilities"> for a list of well-known facilities, and your 
+C<syslog(3)> documentation for the facilities available in your system. 
+Check L<"SEE ALSO"> for useful links. Facility can be given as a string 
+or a numeric macro. 
+
+This function will croak if it can't connect to the syslog daemon.
+
+Note that C<openlog()> now takes three arguments, just like C<openlog(3)>.
+
+B<You should use C<openlog()> before calling C<syslog()>.>
+
+B<Options>
+
+=over 4
+
+=item *
+
+C<cons> - This option is ignored, since the failover mechanism will drop 
+down to the console automatically if all other media fail.
+
+=item *
+
+C<ndelay> - Open the connection immediately (normally, the connection is
+opened when the first message is logged).
+
+=item *
+
+C<noeol> - When set to true, no end of line character (C<\n>) will be
+appended to the message. This can be useful for some buggy syslog daemons.
+
+=item *
+
+C<nofatal> - When set to true, C<openlog()> and C<syslog()> will only 
+emit warnings instead of dying if the connection to the syslog can't 
+be established. 
+
+=item *
+
+C<nonul> - When set to true, no C<NUL> character (C<\0>) will be
+appended to the message. This can be useful for some buggy syslog daemons.
+
+=item *
+
+C<nowait> - Don't wait for child processes that may have been created 
+while logging the message.  (The GNU C library does not create a child
+process, so this option has no effect on Linux.)
+
+=item *
+
+C<perror> - Write the message to standard error output as well to the
+system log (added in C<Sys::Syslog> 0.22).
+
+=item *
+
+C<pid> - Include PID with each message.
+
+=back
+
+B<Examples>
+
+Open the syslog with options C<ndelay> and C<pid>, and with facility C<LOCAL0>: 
+
+    openlog($name, "ndelay,pid", "local0");
+
+Same thing, but this time using the macro corresponding to C<LOCAL0>: 
+
+    openlog($name, "ndelay,pid", LOG_LOCAL0);
+
+
+=item B<syslog($priority, $message)>
+
+=item B<syslog($priority, $format, @args)>
+
+If C<$priority> permits, logs C<$message> or C<sprintf($format, @args)>
+with the addition that C<%m> in $message or C<$format> is replaced with
+C<"$!"> (the latest error message). 
+
+C<$priority> can specify a level, or a level and a facility.  Levels and 
+facilities can be given as strings or as macros.  When using the C<eventlog>
+mechanism, priorities C<DEBUG> and C<INFO> are mapped to event type 
+C<informational>, C<NOTICE> and C<WARNING> to C<warning> and C<ERR> to 
+C<EMERG> to C<error>.
+
+If you didn't use C<openlog()> before using C<syslog()>, C<syslog()> will 
+try to guess the C<$ident> by extracting the shortest prefix of 
+C<$format> that ends in a C<":">.
+
+B<Examples>
+
+    # informational level
+    syslog("info", $message);
+    syslog(LOG_INFO, $message);
+
+    # information level, Local0 facility
+    syslog("info|local0", $message);
+    syslog(LOG_INFO|LOG_LOCAL0, $message);
+
+=over 4
+
+=item B<Note>
+
+C<Sys::Syslog> version v0.07 and older passed the C<$message> as the 
+formatting string to C<sprintf()> even when no formatting arguments
+were provided.  If the code calling C<syslog()> might execute with 
+older versions of this module, make sure to call the function as
+C<syslog($priority, "%s", $message)> instead of C<syslog($priority,
+$message)>.  This protects against hostile formatting sequences that
+might show up if $message contains tainted data.
+
+=back
+
+
+=item B<setlogmask($mask_priority)>
+
+Sets the log mask for the current process to C<$mask_priority> and 
+returns the old mask.  If the mask argument is 0, the current log mask 
+is not modified.  See L<"Levels"> for the list of available levels. 
+You can use the C<LOG_UPTO()> function to allow all levels up to a 
+given priority (but it only accept the numeric macros as arguments).
+
+B<Examples>
+
+Only log errors: 
+
+    setlogmask( LOG_MASK(LOG_ERR) );
+
+Log everything except informational messages: 
+
+    setlogmask( ~(LOG_MASK(LOG_INFO)) );
+
+Log critical messages, errors and warnings: 
+
+    setlogmask( LOG_MASK(LOG_CRIT)
+              | LOG_MASK(LOG_ERR)
+              | LOG_MASK(LOG_WARNING) );
+
+Log all messages up to debug: 
+
+    setlogmask( LOG_UPTO(LOG_DEBUG) );
+
+
+=item B<setlogsock()>
+
+Sets the socket type and options to be used for the next call to C<openlog()>
+or C<syslog()>.  Returns true on success, C<undef> on failure.
+
+Being Perl-specific, this function has evolved along time.  It can currently
+be called as follow:
+
+=over
+
+=item *
+
+C<setlogsock($sock_type)>
+
+=item *
+
+C<setlogsock($sock_type, $stream_location)> (added in Perl 5.004_02)
+
+=item *
+
+C<setlogsock($sock_type, $stream_location, $sock_timeout)> (added in
+C<Sys::Syslog> 0.25)
+
+=item *
+
+C<setlogsock(\%options)> (added in C<Sys::Syslog> 0.28)
+
+=back
+
+The available options are:
+
+=over
+
+=item *
+
+C<type> - equivalent to C<$sock_type>, selects the socket type (or
+"mechanism").  An array reference can be passed to specify several
+mechanisms to try, in the given order.
+
+=item *
+
+C<path> - equivalent to C<$stream_location>, sets the stream location.
+Defaults to standard Unix location, or C<_PATH_LOG>.
+
+=item *
+
+C<timeout> - equivalent to C<$sock_timeout>, sets the socket timeout
+in seconds.  Defaults to 0 on all systems except S<Mac OS X> where it
+is set to 0.25 sec.
+
+=item *
+
+C<host> - sets the hostname to send the messages to.  Defaults to 
+the local host.
+
+=item *
+
+C<port> - sets the TCP or UDP port to connect to.  Defaults to the
+first standard syslog port available on the system.
+
+=back
+
+
+The available mechanisms are: 
+
+=over
+
+=item *
+
+C<"native"> - use the native C functions from your C<syslog(3)> library
+(added in C<Sys::Syslog> 0.15).
+
+=item *
+
+C<"eventlog"> - send messages to the Win32 events logger (Win32 only; 
+added in C<Sys::Syslog> 0.19).
+
+=item *
+
+C<"tcp"> - connect to a TCP socket, on the C<syslog/tcp> or C<syslogng/tcp> 
+service.  See also the C<host>, C<port> and C<timeout> options.
+
+=item *
+
+C<"udp"> - connect to a UDP socket, on the C<syslog/udp> service.
+See also the C<host>, C<port> and C<timeout> options.
+
+=item *
+
+C<"inet"> - connect to an INET socket, either TCP or UDP, tried in that 
+order.  See also the C<host>, C<port> and C<timeout> options.
+
+=item *
+
+C<"unix"> - connect to a UNIX domain socket (in some systems a character 
+special device).  The name of that socket is given by the C<path> option
+or, if omitted, the value returned by the C<_PATH_LOG> macro (if your
+system defines it), F</dev/log> or F</dev/conslog>, whichever is writable.
+
+=item *
+
+C<"stream"> - connect to the stream indicated by the C<path> option, or,
+if omitted, the value returned by the C<_PATH_LOG> macro (if your system
+defines it), F</dev/log> or F</dev/conslog>, whichever is writable.  For
+example Solaris and IRIX system may prefer C<"stream"> instead of C<"unix">. 
+
+=item *
+
+C<"pipe"> - connect to the named pipe indicated by the C<path> option,
+or, if omitted, to the value returned by the C<_PATH_LOG> macro (if your
+system defines it), or F</dev/log> (added in C<Sys::Syslog> 0.21).
+HP-UX is a system which uses such a named pipe.
+
+=item *
+
+C<"console"> - send messages directly to the console, as for the C<"cons"> 
+option of C<openlog()>.
+
+=back
+
+The default is to try C<native>, C<tcp>, C<udp>, C<unix>, C<pipe>, C<stream>, 
+C<console>.
+Under systems with the Win32 API, C<eventlog> will be added as the first 
+mechanism to try if C<Win32::EventLog> is available.
+
+Giving an invalid value for C<$sock_type> will C<croak>.
+
+B<Examples>
+
+Select the UDP socket mechanism:
+
+    setlogsock("udp");
+
+Send messages using the TCP socket mechanism on a custom port:
+
+    setlogsock({ type => "tcp", port => 2486 });
+
+Send messages to a remote host using the TCP socket mechanism:
+
+    setlogsock({ type => "tcp", host => $loghost });
+
+Try the native, UDP socket then UNIX domain socket mechanisms: 
+
+    setlogsock(["native", "udp", "unix"]);
+
+=over
+
+=item B<Note>
+
+Now that the "native" mechanism is supported by C<Sys::Syslog> and selected 
+by default, the use of the C<setlogsock()> function is discouraged because 
+other mechanisms are less portable across operating systems.  Authors of 
+modules and programs that use this function, especially its cargo-cult form 
+C<setlogsock("unix")>, are advised to remove any occurrence of it unless they 
+specifically want to use a given mechanism (like TCP or UDP to connect to 
+a remote host).
+
+=back
+
+=item B<closelog()>
+
+Closes the log file and returns true on success.
+
+=back
+
+
+=head1 THE RULES OF SYS::SYSLOG
+
+I<The First Rule of Sys::Syslog is:>
+You do not call C<setlogsock>.
+
+I<The Second Rule of Sys::Syslog is:>
+You B<do not> call C<setlogsock>.
+
+I<The Third Rule of Sys::Syslog is:>
+The program crashes, C<die>s, calls C<closelog>, the log is over.
+
+I<The Fourth Rule of Sys::Syslog is:>
+One facility, one priority.
+
+I<The Fifth Rule of Sys::Syslog is:>
+One log at a time.
+
+I<The Sixth Rule of Sys::Syslog is:>
+No C<syslog> before C<openlog>.
+
+I<The Seventh Rule of Sys::Syslog is:>
+Logs will go on as long as they have to. 
+
+I<The Eighth, and Final Rule of Sys::Syslog is:>
+If this is your first use of Sys::Syslog, you must read the doc.
+
+
+=head1 EXAMPLES
+
+An example:
+
+    openlog($program, 'cons,pid', 'user');
+    syslog('info', '%s', 'this is another test');
+    syslog('mail|warning', 'this is a better test: %d', time);
+    closelog();
+
+    syslog('debug', 'this is the last test');
+
+Another example:
+
+    openlog("$program $$", 'ndelay', 'user');
+    syslog('notice', 'fooprogram: this is really done');
+
+Example of use of C<%m>:
+
+    $! = 55;
+    syslog('info', 'problem was %m');   # %m == $! in syslog(3)
+
+Log to UDP port on C<$remotehost> instead of logging locally:
+
+    setlogsock("udp", $remotehost);
+    openlog($program, 'ndelay', 'user');
+    syslog('info', 'something happened over here');
+
+
+=head1 CONSTANTS
+
+=head2 Facilities
+
+=over 4
+
+=item *
+
+C<LOG_AUDIT> - audit daemon (IRIX); falls back to C<LOG_AUTH>
+
+=item *
+
+C<LOG_AUTH> - security/authorization messages
+
+=item *
+
+C<LOG_AUTHPRIV> - security/authorization messages (private)
+
+=item *
+
+C<LOG_CONSOLE> - C</dev/console> output (FreeBSD); falls back to C<LOG_USER>
+
+=item *
+
+C<LOG_CRON> - clock daemons (B<cron> and B<at>)
+
+=item *
+
+C<LOG_DAEMON> - system daemons without separate facility value
+
+=item *
+
+C<LOG_FTP> - FTP daemon
+
+=item *
+
+C<LOG_KERN> - kernel messages
+
+=item *
+
+C<LOG_INSTALL> - installer subsystem (Mac OS X); falls back to C<LOG_USER>
+
+=item *
+
+C<LOG_LAUNCHD> - launchd - general bootstrap daemon (Mac OS X);
+falls back to C<LOG_DAEMON>
+
+=item *
+
+C<LOG_LFMT> - logalert facility; falls back to C<LOG_USER>
+
+=item *
+
+C<LOG_LOCAL0> through C<LOG_LOCAL7> - reserved for local use
+
+=item *
+
+C<LOG_LPR> - line printer subsystem
+
+=item *
+
+C<LOG_MAIL> - mail subsystem
+
+=item *
+
+C<LOG_NETINFO> - NetInfo subsystem (Mac OS X); falls back to C<LOG_DAEMON>
+
+=item *
+
+C<LOG_NEWS> - USENET news subsystem
+
+=item *
+
+C<LOG_NTP> - NTP subsystem (FreeBSD, NetBSD); falls back to C<LOG_DAEMON>
+
+=item *
+
+C<LOG_RAS> - Remote Access Service (VPN / PPP) (Mac OS X);
+falls back to C<LOG_AUTH>
+
+=item *
+
+C<LOG_REMOTEAUTH> - remote authentication/authorization (Mac OS X);
+falls back to C<LOG_AUTH>
+
+=item *
+
+C<LOG_SECURITY> - security subsystems (firewalling, etc.) (FreeBSD);
+falls back to C<LOG_AUTH>
+
+=item *
+
+C<LOG_SYSLOG> - messages generated internally by B<syslogd>
+
+=item *
+
+C<LOG_USER> (default) - generic user-level messages
+
+=item *
+
+C<LOG_UUCP> - UUCP subsystem
+
+=back
+
+
+=head2 Levels
+
+=over 4
+
+=item *
+
+C<LOG_EMERG> - system is unusable
+
+=item *
+
+C<LOG_ALERT> - action must be taken immediately
+
+=item *
+
+C<LOG_CRIT> - critical conditions
+
+=item *
+
+C<LOG_ERR> - error conditions
+
+=item *
+
+C<LOG_WARNING> - warning conditions
+
+=item *
+
+C<LOG_NOTICE> - normal, but significant, condition
+
+=item *
+
+C<LOG_INFO> - informational message
+
+=item *
+
+C<LOG_DEBUG> - debug-level message
+
+=back
+
+
+=head1 DIAGNOSTICS
+
+=over
+
+=item C<Invalid argument passed to setlogsock>
+
+B<(F)> You gave C<setlogsock()> an invalid value for C<$sock_type>. 
+
+=item C<eventlog passed to setlogsock, but no Win32 API available>
+
+B<(W)> You asked C<setlogsock()> to use the Win32 event logger but the 
+operating system running the program isn't Win32 or does not provides Win32
+compatible facilities.
+
+=item C<no connection to syslog available>
+
+B<(F)> C<syslog()> failed to connect to the specified socket.
+
+=item C<stream passed to setlogsock, but %s is not writable>
+
+B<(W)> You asked C<setlogsock()> to use a stream socket, but the given 
+path is not writable. 
+
+=item C<stream passed to setlogsock, but could not find any device>
+
+B<(W)> You asked C<setlogsock()> to use a stream socket, but didn't 
+provide a path, and C<Sys::Syslog> was unable to find an appropriate one.
+
+=item C<tcp passed to setlogsock, but tcp service unavailable>
+
+B<(W)> You asked C<setlogsock()> to use a TCP socket, but the service 
+is not available on the system. 
+
+=item C<syslog: expecting argument %s>
+
+B<(F)> You forgot to give C<syslog()> the indicated argument.
+
+=item C<syslog: invalid level/facility: %s>
+
+B<(F)> You specified an invalid level or facility.
+
+=item C<syslog: too many levels given: %s>
+
+B<(F)> You specified too many levels. 
+
+=item C<syslog: too many facilities given: %s>
+
+B<(F)> You specified too many facilities. 
+
+=item C<syslog: level must be given>
+
+B<(F)> You forgot to specify a level.
+
+=item C<udp passed to setlogsock, but udp service unavailable>
+
+B<(W)> You asked C<setlogsock()> to use a UDP socket, but the service 
+is not available on the system. 
+
+=item C<unix passed to setlogsock, but path not available>
+
+B<(W)> You asked C<setlogsock()> to use a UNIX socket, but C<Sys::Syslog> 
+was unable to find an appropriate an appropriate device.
+
+=back
+
+
+=head1 HISTORY
+
+C<Sys::Syslog> is a core module, part of the standard Perl distribution
+since 1990.  At this time, modules as we know them didn't exist, the
+Perl library was a collection of F<.pl> files, and the one for sending
+syslog messages with was simply F<lib/syslog.pl>, included with Perl 3.0.
+It was converted as a module with Perl 5.0, but had a version number
+only starting with Perl 5.6.  Here is a small table with the matching
+Perl and C<Sys::Syslog> versions.
+
+    Sys::Syslog     Perl
+    -----------     ----
+       undef        5.0.0 ~ 5.5.4
+       0.01         5.6.*
+       0.03         5.8.0
+       0.04         5.8.1, 5.8.2, 5.8.3
+       0.05         5.8.4, 5.8.5, 5.8.6
+       0.06         5.8.7
+       0.13         5.8.8
+       0.22         5.10.0
+       0.27         5.8.9, 5.10.1 ~ 5.14.2
+       0.29         5.16.0, 5.16.1
+
+
+=head1 SEE ALSO
+
+=head2 Other modules
+
+L<Log::Log4perl> - Perl implementation of the Log4j API
+
+L<Log::Dispatch> - Dispatches messages to one or more outputs
+
+L<Log::Report> - Report a problem, with exceptions and language support
+
+=head2 Manual Pages
+
+L<syslog(3)>
+
+SUSv3 issue 6, IEEE Std 1003.1, 2004 edition, 
+L<http://www.opengroup.org/onlinepubs/000095399/basedefs/syslog.h.html>
+
+GNU C Library documentation on syslog, 
+L<http://www.gnu.org/software/libc/manual/html_node/Syslog.html>
+
+Solaris 10 documentation on syslog, 
+L<http://docs.sun.com/app/docs/doc/816-5168/syslog-3c?a=view>
+
+Mac OS X documentation on syslog,
+L<http://developer.apple.com/documentation/Darwin/Reference/ManPages/man3/syslog.3.html>
+
+IRIX 6.5 documentation on syslog,
+L<http://techpubs.sgi.com/library/tpl/cgi-bin/getdoc.cgi?coll=0650&db=man&fname=3c+syslog>
+
+AIX 5L 5.3 documentation on syslog, 
+L<http://publib.boulder.ibm.com/infocenter/pseries/v5r3/index.jsp?topic=/com.ibm.aix.basetechref/doc/basetrf2/syslog.htm>
+
+HP-UX 11i documentation on syslog, 
+L<http://docs.hp.com/en/B2355-60130/syslog.3C.html>
+
+Tru64 5.1 documentation on syslog, 
+L<http://h30097.www3.hp.com/docs/base_doc/DOCUMENTATION/V51_HTML/MAN/MAN3/0193____.HTM>
+
+Stratus VOS 15.1, 
+L<http://stratadoc.stratus.com/vos/15.1.1/r502-01/wwhelp/wwhimpl/js/html/wwhelp.htm?context=r502-01&file=ch5r502-01bi.html>
+
+=head2 RFCs
+
+I<RFC 3164 - The BSD syslog Protocol>, L<http://www.faqs.org/rfcs/rfc3164.html>
+-- Please note that this is an informational RFC, and therefore does not 
+specify a standard of any kind.
+
+I<RFC 3195 - Reliable Delivery for syslog>, L<http://www.faqs.org/rfcs/rfc3195.html>
+
+=head2 Articles
+
+I<Syslogging with Perl>, L<http://lexington.pm.org/meetings/022001.html>
+
+=head2 Event Log
+
+Windows Event Log,
+L<http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wes/wes/windows_event_log.asp>
+
+
+=head1 AUTHORS & ACKNOWLEDGEMENTS
+
+Tom Christiansen E<lt>F<tchrist (at) perl.com>E<gt> and Larry Wall
+E<lt>F<larry (at) wall.org>E<gt>.
+
+UNIX domain sockets added by Sean Robinson
+E<lt>F<robinson_s (at) sc.maricopa.edu>E<gt> with support from Tim Bunce 
+E<lt>F<Tim.Bunce (at) ig.co.uk>E<gt> and the C<perl5-porters> mailing list.
+
+Dependency on F<syslog.ph> replaced with XS code by Tom Hughes
+E<lt>F<tom (at) compton.nu>E<gt>.
+
+Code for C<constant()>s regenerated by Nicholas Clark E<lt>F<nick (at) ccl4.org>E<gt>.
+
+Failover to different communication modes by Nick Williams
+E<lt>F<Nick.Williams (at) morganstanley.com>E<gt>.
+
+Extracted from core distribution for publishing on the CPAN by 
+SE<eacute>bastien Aperghis-Tramoni E<lt>sebastien (at) aperghis.netE<gt>.
+
+XS code for using native C functions borrowed from C<L<Unix::Syslog>>, 
+written by Marcus Harnisch E<lt>F<marcus.harnisch (at) gmx.net>E<gt>.
+
+Yves Orton suggested and helped for making C<Sys::Syslog> use the native 
+event logger under Win32 systems.
+
+Jerry D. Hedden and Reini Urban provided greatly appreciated help to 
+debug and polish C<Sys::Syslog> under Cygwin.
+
+
+=head1 BUGS
+
+Please report any bugs or feature requests to
+C<bug-sys-syslog (at) rt.cpan.org>, or through the web interface at
+L<http://rt.cpan.org/Public/Dist/Display.html?Name=Sys-Syslog>.
+I will be notified, and then you'll automatically be notified of progress on
+your bug as I make changes.
+
+
+=head1 SUPPORT
+
+You can find documentation for this module with the perldoc command.
+
+    perldoc Sys::Syslog
+
+You can also look for information at:
+
+=over 4
+
+=item * AnnoCPAN: Annotated CPAN documentation
+
+L<http://annocpan.org/dist/Sys-Syslog>
+
+=item * CPAN Ratings
+
+L<http://cpanratings.perl.org/d/Sys-Syslog>
+
+=item * RT: CPAN's request tracker
+
+L<http://rt.cpan.org/Dist/Display.html?Queue=Sys-Syslog>
+
+=item * Search CPAN
+
+L<http://search.cpan.org/dist/Sys-Syslog/>
+
+=item * MetaCPAN
+
+L<https://metacpan.org/module/Sys::Syslog>
+
+=item * Perl Documentation
+
+L<http://perldoc.perl.org/Sys/Syslog.html>
+
+=back
+
+
+=head1 COPYRIGHT
+
+Copyright (C) 1990-2012 by Larry Wall and others.
+
+
+=head1 LICENSE
+
+This program is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+=cut
+
+=begin comment
+
+Notes for the future maintainer (even if it's still me..)
+- - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+Using Google Code Search, I search who on Earth was relying on $host being 
+public. It found 5 hits: 
+
+* First was inside Indigo Star Perl2exe documentation. Just an old version 
+of Sys::Syslog. 
+
+
+* One real hit was inside DalWeathDB, a weather related program. It simply 
+does a 
+
+    $Sys::Syslog::host = '127.0.0.1';
+
+- L<http://www.gallistel.net/nparker/weather/code/>
+
+
+* Two hits were in TPC, a fax server thingy. It does a 
+
+    $Sys::Syslog::host = $TPC::LOGHOST;
+
+but also has this strange piece of code:
+
+    # work around perl5.003 bug
+    sub Sys::Syslog::hostname {}
+
+I don't know what bug the author referred to.
+
+- L<http://www.tpc.int/>
+- L<ftp://ftp-usa.tpc.int/pub/tpc/server/UNIX/>
+
+
+* Last hit was in Filefix, which seems to be a FIDOnet mail program (!).
+This one does not use $host, but has the following piece of code:
+
+    sub Sys::Syslog::hostname
+    {
+        use Sys::Hostname;
+        return hostname;
+    }
+
+I guess this was a more elaborate form of the previous bit, maybe because 
+of a bug in Sys::Syslog back then?
+
+- L<ftp://ftp.kiae.su/pub/unix/fido/>
+
+
+Links
+-----
+Linux Fast-STREAMS
+- L<http://www.openss7.org/streams.html>
+
+II12021: SYSLOGD HOWTO TCPIPINFO (z/OS, OS/390, MVS)
+- L<http://www-1.ibm.com/support/docview.wss?uid=isg1II12021>
+
+Getting the most out of the Event Viewer
+- L<http://www.codeproject.com/dotnet/evtvwr.asp?print=true>
+
+Log events to the Windows NT Event Log with JNI
+- L<http://www.javaworld.com/javaworld/jw-09-2001/jw-0928-ntmessages.html>
+
+=end comment
+
diff --git a/lib/5.24.1/x86_64-linux/Tie/Hash/NamedCapture.pm b/lib/5.24.1/x86_64-linux/Tie/Hash/NamedCapture.pm
new file mode 100644
index 00000000..97026667
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/Tie/Hash/NamedCapture.pm
@@ -0,0 +1,49 @@
+use strict;
+package Tie::Hash::NamedCapture;
+
+our $VERSION = "0.09";
+
+require XSLoader;
+XSLoader::load(); # This returns true, which makes require happy.
+
+__END__
+
+=head1 NAME
+
+Tie::Hash::NamedCapture - Named regexp capture buffers
+
+=head1 SYNOPSIS
+
+    tie my %hash, "Tie::Hash::NamedCapture";
+    # %hash now behaves like %+
+
+    tie my %hash, "Tie::Hash::NamedCapture", all => 1;
+    # %hash now access buffers from regexp in $qr like %-
+
+=head1 DESCRIPTION
+
+This module is used to implement the special hashes C<%+> and C<%->, but it
+can be used to tie other variables as you choose.
+
+When the C<all> parameter is provided, then the tied hash elements will be
+array refs listing the contents of each capture buffer whose name is the
+same as the associated hash key. If none of these buffers were involved in
+the match, the contents of that array ref will be as many C<undef> values
+as there are capture buffers with that name. In other words, the tied hash
+will behave as C<%->.
+
+When the C<all> parameter is omitted or false, then the tied hash elements
+will be the contents of the leftmost defined buffer with the name of the
+associated hash key. In other words, the tied hash will behave as
+C<%+>.
+
+The keys of C<%->-like hashes correspond to all buffer names found in the
+regular expression; the keys of C<%+>-like hashes list only the names of
+buffers that have captured (and that are thus associated to defined values).
+
+=head1 SEE ALSO
+
+L<perlreapi>, L<re>, L<perlmodlib/Pragmatic Modules>, L<perlvar/"%+">,
+L<perlvar/"%-">.
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/Time/HiRes.pm b/lib/5.24.1/x86_64-linux/Time/HiRes.pm
new file mode 100644
index 00000000..ad9a65c9
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/Time/HiRes.pm
@@ -0,0 +1,620 @@
+package Time::HiRes;
+
+{ use 5.006; }
+use strict;
+
+require Exporter;
+require DynaLoader;
+
+our @ISA = qw(Exporter DynaLoader);
+
+our @EXPORT = qw( );
+our @EXPORT_OK = qw (usleep sleep ualarm alarm gettimeofday time tv_interval
+		 getitimer setitimer nanosleep clock_gettime clock_getres
+		 clock clock_nanosleep
+		 CLOCK_BOOTTIME CLOCK_HIGHRES
+		 CLOCK_MONOTONIC CLOCK_MONOTONIC_COARSE
+		 CLOCK_MONOTONIC_PRECISE CLOCK_MONOTONIC_RAW
+		 CLOCK_PROCESS_CPUTIME_ID
+		 CLOCK_REALTIME CLOCK_REALTIME_COARSE
+		 CLOCK_REALTIME_FAST CLOCK_REALTIME_PRECISE
+		 CLOCK_SECOND CLOCK_SOFTTIME CLOCK_THREAD_CPUTIME_ID
+		 CLOCK_TIMEOFDAY CLOCKS_PER_SEC
+		 ITIMER_REAL ITIMER_VIRTUAL ITIMER_PROF ITIMER_REALPROF
+		 TIMER_ABSTIME
+		 d_usleep d_ualarm d_gettimeofday d_getitimer d_setitimer
+		 d_nanosleep d_clock_gettime d_clock_getres
+		 d_clock d_clock_nanosleep
+		 stat lstat
+		);
+
+our $VERSION = '1.9733';
+our $XS_VERSION = $VERSION;
+$VERSION = eval $VERSION;
+
+our $AUTOLOAD;
+sub AUTOLOAD {
+    my $constname;
+    ($constname = $AUTOLOAD) =~ s/.*:://;
+    # print "AUTOLOAD: constname = $constname ($AUTOLOAD)\n";
+    die "&Time::HiRes::constant not defined" if $constname eq 'constant';
+    my ($error, $val) = constant($constname);
+    # print "AUTOLOAD: error = $error, val = $val\n";
+    if ($error) {
+        my (undef,$file,$line) = caller;
+        die "$error at $file line $line.\n";
+    }
+    {
+	no strict 'refs';
+	*$AUTOLOAD = sub { $val };
+    }
+    goto &$AUTOLOAD;
+}
+
+sub import {
+    my $this = shift;
+    for my $i (@_) {
+	if (($i eq 'clock_getres'    && !&d_clock_getres)    ||
+	    ($i eq 'clock_gettime'   && !&d_clock_gettime)   ||
+	    ($i eq 'clock_nanosleep' && !&d_clock_nanosleep) ||
+	    ($i eq 'clock'           && !&d_clock)           ||
+	    ($i eq 'nanosleep'       && !&d_nanosleep)       ||
+	    ($i eq 'usleep'          && !&d_usleep)          ||
+	    ($i eq 'ualarm'          && !&d_ualarm)) {
+	    require Carp;
+	    Carp::croak("Time::HiRes::$i(): unimplemented in this platform");
+	}
+    }
+    Time::HiRes->export_to_level(1, $this, @_);
+}
+
+bootstrap Time::HiRes;
+
+# Preloaded methods go here.
+
+sub tv_interval {
+    # probably could have been done in C
+    my ($a, $b) = @_;
+    $b = [gettimeofday()] unless defined($b);
+    (${$b}[0] - ${$a}[0]) + ((${$b}[1] - ${$a}[1]) / 1_000_000);
+}
+
+# Autoload methods go after =cut, and are processed by the autosplit program.
+
+1;
+__END__
+
+=head1 NAME
+
+Time::HiRes - High resolution alarm, sleep, gettimeofday, interval timers
+
+=head1 SYNOPSIS
+
+  use Time::HiRes qw( usleep ualarm gettimeofday tv_interval nanosleep
+		      clock_gettime clock_getres clock_nanosleep clock
+                      stat lstat );
+
+  usleep ($microseconds);
+  nanosleep ($nanoseconds);
+
+  ualarm ($microseconds);
+  ualarm ($microseconds, $interval_microseconds);
+
+  $t0 = [gettimeofday];
+  ($seconds, $microseconds) = gettimeofday;
+
+  $elapsed = tv_interval ( $t0, [$seconds, $microseconds]);
+  $elapsed = tv_interval ( $t0, [gettimeofday]);
+  $elapsed = tv_interval ( $t0 );
+
+  use Time::HiRes qw ( time alarm sleep );
+
+  $now_fractions = time;
+  sleep ($floating_seconds);
+  alarm ($floating_seconds);
+  alarm ($floating_seconds, $floating_interval);
+
+  use Time::HiRes qw( setitimer getitimer );
+
+  setitimer ($which, $floating_seconds, $floating_interval );
+  getitimer ($which);
+
+  use Time::HiRes qw( clock_gettime clock_getres clock_nanosleep
+		      ITIMER_REAL ITIMER_VIRTUAL ITIMER_PROF
+                      ITIMER_REALPROF );
+
+  $realtime   = clock_gettime(CLOCK_REALTIME);
+  $resolution = clock_getres(CLOCK_REALTIME);
+
+  clock_nanosleep(CLOCK_REALTIME, 1.5e9);
+  clock_nanosleep(CLOCK_REALTIME, time()*1e9 + 10e9, TIMER_ABSTIME);
+
+  my $ticktock = clock();
+
+  use Time::HiRes qw( stat lstat );
+
+  my @stat = stat("file");
+  my @stat = stat(FH);
+  my @stat = lstat("file");
+
+=head1 DESCRIPTION
+
+The C<Time::HiRes> module implements a Perl interface to the
+C<usleep>, C<nanosleep>, C<ualarm>, C<gettimeofday>, and
+C<setitimer>/C<getitimer> system calls, in other words, high
+resolution time and timers. See the L</EXAMPLES> section below and the
+test scripts for usage; see your system documentation for the
+description of the underlying C<nanosleep> or C<usleep>, C<ualarm>,
+C<gettimeofday>, and C<setitimer>/C<getitimer> calls.
+
+If your system lacks C<gettimeofday()> or an emulation of it you don't
+get C<gettimeofday()> or the one-argument form of C<tv_interval()>.
+If your system lacks all of C<nanosleep()>, C<usleep()>,
+C<select()>, and C<poll>, you don't get C<Time::HiRes::usleep()>,
+C<Time::HiRes::nanosleep()>, or C<Time::HiRes::sleep()>.
+If your system lacks both C<ualarm()> and C<setitimer()> you don't get
+C<Time::HiRes::ualarm()> or C<Time::HiRes::alarm()>.
+
+If you try to import an unimplemented function in the C<use> statement
+it will fail at compile time.
+
+If your subsecond sleeping is implemented with C<nanosleep()> instead
+of C<usleep()>, you can mix subsecond sleeping with signals since
+C<nanosleep()> does not use signals.  This, however, is not portable,
+and you should first check for the truth value of
+C<&Time::HiRes::d_nanosleep> to see whether you have nanosleep, and
+then carefully read your C<nanosleep()> C API documentation for any
+peculiarities.
+
+If you are using C<nanosleep> for something else than mixing sleeping
+with signals, give some thought to whether Perl is the tool you should
+be using for work requiring nanosecond accuracies.
+
+Remember that unless you are working on a I<hard realtime> system,
+any clocks and timers will be imprecise, especially so if you are working
+in a pre-emptive multiuser system.  Understand the difference between
+I<wallclock time> and process time (in UNIX-like systems the sum of
+I<user> and I<system> times).  Any attempt to sleep for X seconds will
+most probably end up sleeping B<more> than that, but don't be surprised
+if you end up sleeping slightly B<less>.
+
+The following functions can be imported from this module.
+No functions are exported by default.
+
+=over 4
+
+=item gettimeofday ()
+
+In array context returns a two-element array with the seconds and
+microseconds since the epoch.  In scalar context returns floating
+seconds like C<Time::HiRes::time()> (see below).
+
+=item usleep ( $useconds )
+
+Sleeps for the number of microseconds (millionths of a second)
+specified.  Returns the number of microseconds actually slept.
+Can sleep for more than one second, unlike the C<usleep> system call.
+Can also sleep for zero seconds, which often works like a I<thread yield>.
+See also C<Time::HiRes::usleep()>, C<Time::HiRes::sleep()>, and
+C<Time::HiRes::clock_nanosleep()>.
+
+Do not expect usleep() to be exact down to one microsecond.
+
+=item nanosleep ( $nanoseconds )
+
+Sleeps for the number of nanoseconds (1e9ths of a second) specified.
+Returns the number of nanoseconds actually slept (accurate only to
+microseconds, the nearest thousand of them).  Can sleep for more than
+one second.  Can also sleep for zero seconds, which often works like
+a I<thread yield>.  See also C<Time::HiRes::sleep()>,
+C<Time::HiRes::usleep()>, and C<Time::HiRes::clock_nanosleep()>.
+
+Do not expect nanosleep() to be exact down to one nanosecond.
+Getting even accuracy of one thousand nanoseconds is good.
+
+=item ualarm ( $useconds [, $interval_useconds ] )
+
+Issues a C<ualarm> call; the C<$interval_useconds> is optional and
+will be zero if unspecified, resulting in C<alarm>-like behaviour.
+
+Returns the remaining time in the alarm in microseconds, or C<undef>
+if an error occurred.
+
+ualarm(0) will cancel an outstanding ualarm().
+
+Note that the interaction between alarms and sleeps is unspecified.
+
+=item tv_interval 
+
+tv_interval ( $ref_to_gettimeofday [, $ref_to_later_gettimeofday] )
+
+Returns the floating seconds between the two times, which should have
+been returned by C<gettimeofday()>. If the second argument is omitted,
+then the current time is used.
+
+=item time ()
+
+Returns a floating seconds since the epoch. This function can be
+imported, resulting in a nice drop-in replacement for the C<time>
+provided with core Perl; see the L</EXAMPLES> below.
+
+B<NOTE 1>: This higher resolution timer can return values either less
+or more than the core C<time()>, depending on whether your platform
+rounds the higher resolution timer values up, down, or to the nearest second
+to get the core C<time()>, but naturally the difference should be never
+more than half a second.  See also L</clock_getres>, if available
+in your system.
+
+B<NOTE 2>: Since Sunday, September 9th, 2001 at 01:46:40 AM GMT, when
+the C<time()> seconds since epoch rolled over to 1_000_000_000, the
+default floating point format of Perl and the seconds since epoch have
+conspired to produce an apparent bug: if you print the value of
+C<Time::HiRes::time()> you seem to be getting only five decimals, not
+six as promised (microseconds).  Not to worry, the microseconds are
+there (assuming your platform supports such granularity in the first
+place).  What is going on is that the default floating point format of
+Perl only outputs 15 digits.  In this case that means ten digits
+before the decimal separator and five after.  To see the microseconds
+you can use either C<printf>/C<sprintf> with C<"%.6f">, or the
+C<gettimeofday()> function in list context, which will give you the
+seconds and microseconds as two separate values.
+
+=item sleep ( $floating_seconds )
+
+Sleeps for the specified amount of seconds.  Returns the number of
+seconds actually slept (a floating point value).  This function can
+be imported, resulting in a nice drop-in replacement for the C<sleep>
+provided with perl, see the L</EXAMPLES> below.
+
+Note that the interaction between alarms and sleeps is unspecified.
+
+=item alarm ( $floating_seconds [, $interval_floating_seconds ] )
+
+The C<SIGALRM> signal is sent after the specified number of seconds.
+Implemented using C<setitimer()> if available, C<ualarm()> if not.
+The C<$interval_floating_seconds> argument is optional and will be
+zero if unspecified, resulting in C<alarm()>-like behaviour.  This
+function can be imported, resulting in a nice drop-in replacement for
+the C<alarm> provided with perl, see the L</EXAMPLES> below.
+
+Returns the remaining time in the alarm in seconds, or C<undef>
+if an error occurred.
+
+B<NOTE 1>: With some combinations of operating systems and Perl
+releases C<SIGALRM> restarts C<select()>, instead of interrupting it.
+This means that an C<alarm()> followed by a C<select()> may together
+take the sum of the times specified for the C<alarm()> and the
+C<select()>, not just the time of the C<alarm()>.
+
+Note that the interaction between alarms and sleeps is unspecified.
+
+=item setitimer ( $which, $floating_seconds [, $interval_floating_seconds ] )
+
+Start up an interval timer: after a certain time, a signal ($which) arrives,
+and more signals may keep arriving at certain intervals.  To disable
+an "itimer", use C<$floating_seconds> of zero.  If the
+C<$interval_floating_seconds> is set to zero (or unspecified), the
+timer is disabled B<after> the next delivered signal.
+
+Use of interval timers may interfere with C<alarm()>, C<sleep()>,
+and C<usleep()>.  In standard-speak the "interaction is unspecified",
+which means that I<anything> may happen: it may work, it may not.
+
+In scalar context, the remaining time in the timer is returned.
+
+In list context, both the remaining time and the interval are returned.
+
+There are usually three or four interval timers (signals) available: the
+C<$which> can be C<ITIMER_REAL>, C<ITIMER_VIRTUAL>, C<ITIMER_PROF>, or
+C<ITIMER_REALPROF>.  Note that which ones are available depends: true
+UNIX platforms usually have the first three, but only Solaris seems to
+have C<ITIMER_REALPROF> (which is used to profile multithreaded programs).
+Win32 unfortunately does not have interval timers.
+
+C<ITIMER_REAL> results in C<alarm()>-like behaviour.  Time is counted in
+I<real time>; that is, wallclock time.  C<SIGALRM> is delivered when
+the timer expires.
+
+C<ITIMER_VIRTUAL> counts time in (process) I<virtual time>; that is,
+only when the process is running.  In multiprocessor/user/CPU systems
+this may be more or less than real or wallclock time.  (This time is
+also known as the I<user time>.)  C<SIGVTALRM> is delivered when the
+timer expires.
+
+C<ITIMER_PROF> counts time when either the process virtual time or when
+the operating system is running on behalf of the process (such as I/O).
+(This time is also known as the I<system time>.)  (The sum of user
+time and system time is known as the I<CPU time>.)  C<SIGPROF> is
+delivered when the timer expires.  C<SIGPROF> can interrupt system calls.
+
+The semantics of interval timers for multithreaded programs are
+system-specific, and some systems may support additional interval
+timers.  For example, it is unspecified which thread gets the signals.
+See your C<setitimer()> documentation.
+
+=item getitimer ( $which )
+
+Return the remaining time in the interval timer specified by C<$which>.
+
+In scalar context, the remaining time is returned.
+
+In list context, both the remaining time and the interval are returned.
+The interval is always what you put in using C<setitimer()>.
+
+=item clock_gettime ( $which )
+
+Return as seconds the current value of the POSIX high resolution timer
+specified by C<$which>.  All implementations that support POSIX high
+resolution timers are supposed to support at least the C<$which> value
+of C<CLOCK_REALTIME>, which is supposed to return results close to the
+results of C<gettimeofday>, or the number of seconds since 00:00:00:00
+January 1, 1970 Greenwich Mean Time (GMT).  Do not assume that
+CLOCK_REALTIME is zero, it might be one, or something else.
+Another potentially useful (but not available everywhere) value is
+C<CLOCK_MONOTONIC>, which guarantees a monotonically increasing time
+value (unlike time() or gettimeofday(), which can be adjusted).
+See your system documentation for other possibly supported values.
+
+=item clock_getres ( $which )
+
+Return as seconds the resolution of the POSIX high resolution timer
+specified by C<$which>.  All implementations that support POSIX high
+resolution timers are supposed to support at least the C<$which> value
+of C<CLOCK_REALTIME>, see L</clock_gettime>.
+
+B<NOTE>: the resolution returned may be highly optimistic.  Even if
+the resolution is high (a small number), all it means is that you'll
+be able to specify the arguments to clock_gettime() and clock_nanosleep()
+with that resolution.  The system might not actually be able to measure
+events at that resolution, and the various overheads and the overall system
+load are certain to affect any timings.
+
+=item clock_nanosleep ( $which, $nanoseconds, $flags = 0)
+
+Sleeps for the number of nanoseconds (1e9ths of a second) specified.
+Returns the number of nanoseconds actually slept.  The $which is the
+"clock id", as with clock_gettime() and clock_getres().  The flags
+default to zero but C<TIMER_ABSTIME> can specified (must be exported
+explicitly) which means that C<$nanoseconds> is not a time interval
+(as is the default) but instead an absolute time.  Can sleep for more
+than one second.  Can also sleep for zero seconds, which often works
+like a I<thread yield>.  See also C<Time::HiRes::sleep()>,
+C<Time::HiRes::usleep()>, and C<Time::HiRes::nanosleep()>.
+
+Do not expect clock_nanosleep() to be exact down to one nanosecond.
+Getting even accuracy of one thousand nanoseconds is good.
+
+=item clock()
+
+Return as seconds the I<process time> (user + system time) spent by
+the process since the first call to clock() (the definition is B<not>
+"since the start of the process", though if you are lucky these times
+may be quite close to each other, depending on the system).  What this
+means is that you probably need to store the result of your first call
+to clock(), and subtract that value from the following results of clock().
+
+The time returned also includes the process times of the terminated
+child processes for which wait() has been executed.  This value is
+somewhat like the second value returned by the times() of core Perl,
+but not necessarily identical.  Note that due to backward
+compatibility limitations the returned value may wrap around at about
+2147 seconds or at about 36 minutes.
+
+=item stat
+
+=item stat FH
+
+=item stat EXPR
+
+=item lstat
+
+=item lstat FH
+
+=item lstat EXPR
+
+As L<perlfunc/stat> or L<perlfunc/lstat>
+but with the access/modify/change file timestamps
+in subsecond resolution, if the operating system and the filesystem
+both support such timestamps.  To override the standard stat():
+
+    use Time::HiRes qw(stat);
+
+Test for the value of &Time::HiRes::d_hires_stat to find out whether
+the operating system supports subsecond file timestamps: a value
+larger than zero means yes. There are unfortunately no easy
+ways to find out whether the filesystem supports such timestamps.
+UNIX filesystems often do; NTFS does; FAT doesn't (FAT timestamp
+granularity is B<two> seconds).
+
+A zero return value of &Time::HiRes::d_hires_stat means that
+Time::HiRes::stat is a no-op passthrough for CORE::stat()
+(and likewise for lstat),
+and therefore the timestamps will stay integers.  The same
+thing will happen if the filesystem does not do subsecond timestamps,
+even if the &Time::HiRes::d_hires_stat is non-zero.
+
+In any case do not expect nanosecond resolution, or even a microsecond
+resolution.  Also note that the modify/access timestamps might have
+different resolutions, and that they need not be synchronized, e.g.
+if the operations are
+
+    write
+    stat # t1
+    read
+    stat # t2
+
+the access time stamp from t2 need not be greater-than the modify
+time stamp from t1: it may be equal or I<less>.
+
+=back
+
+=head1 EXAMPLES
+
+  use Time::HiRes qw(usleep ualarm gettimeofday tv_interval);
+
+  $microseconds = 750_000;
+  usleep($microseconds);
+
+  # signal alarm in 2.5s & every .1s thereafter
+  ualarm(2_500_000, 100_000);
+  # cancel that ualarm
+  ualarm(0);
+
+  # get seconds and microseconds since the epoch
+  ($s, $usec) = gettimeofday();
+
+  # measure elapsed time 
+  # (could also do by subtracting 2 gettimeofday return values)
+  $t0 = [gettimeofday];
+  # do bunch of stuff here
+  $t1 = [gettimeofday];
+  # do more stuff here
+  $t0_t1 = tv_interval $t0, $t1;
+
+  $elapsed = tv_interval ($t0, [gettimeofday]);
+  $elapsed = tv_interval ($t0);	# equivalent code
+
+  #
+  # replacements for time, alarm and sleep that know about
+  # floating seconds
+  #
+  use Time::HiRes;
+  $now_fractions = Time::HiRes::time;
+  Time::HiRes::sleep (2.5);
+  Time::HiRes::alarm (10.6666666);
+
+  use Time::HiRes qw ( time alarm sleep );
+  $now_fractions = time;
+  sleep (2.5);
+  alarm (10.6666666);
+
+  # Arm an interval timer to go off first at 10 seconds and
+  # after that every 2.5 seconds, in process virtual time
+
+  use Time::HiRes qw ( setitimer ITIMER_VIRTUAL time );
+
+  $SIG{VTALRM} = sub { print time, "\n" };
+  setitimer(ITIMER_VIRTUAL, 10, 2.5);
+
+  use Time::HiRes qw( clock_gettime clock_getres CLOCK_REALTIME );
+  # Read the POSIX high resolution timer.
+  my $high = clock_gettime(CLOCK_REALTIME);
+  # But how accurate we can be, really?
+  my $reso = clock_getres(CLOCK_REALTIME);
+
+  use Time::HiRes qw( clock_nanosleep TIMER_ABSTIME );
+  clock_nanosleep(CLOCK_REALTIME, 1e6);
+  clock_nanosleep(CLOCK_REALTIME, 2e9, TIMER_ABSTIME);
+
+  use Time::HiRes qw( clock );
+  my $clock0 = clock();
+  ... # Do something.
+  my $clock1 = clock();
+  my $clockd = $clock1 - $clock0;
+
+  use Time::HiRes qw( stat );
+  my ($atime, $mtime, $ctime) = (stat("istics"))[8, 9, 10];
+
+=head1 C API
+
+In addition to the perl API described above, a C API is available for
+extension writers.  The following C functions are available in the
+modglobal hash:
+
+  name             C prototype
+  ---------------  ----------------------
+  Time::NVtime     NV (*)()
+  Time::U2time     void (*)(pTHX_ UV ret[2])
+
+Both functions return equivalent information (like C<gettimeofday>)
+but with different representations.  The names C<NVtime> and C<U2time>
+were selected mainly because they are operating system independent.
+(C<gettimeofday> is Unix-centric, though some platforms like Win32 and
+VMS have emulations for it.)
+
+Here is an example of using C<NVtime> from C:
+
+  NV (*myNVtime)(); /* Returns -1 on failure. */
+  SV **svp = hv_fetch(PL_modglobal, "Time::NVtime", 12, 0);
+  if (!svp)         croak("Time::HiRes is required");
+  if (!SvIOK(*svp)) croak("Time::NVtime isn't a function pointer");
+  myNVtime = INT2PTR(NV(*)(), SvIV(*svp));
+  printf("The current time is: %" NVff "\n", (*myNVtime)());
+
+=head1 DIAGNOSTICS
+
+=head2 useconds or interval more than ...
+
+In ualarm() you tried to use number of microseconds or interval (also
+in microseconds) more than 1_000_000 and setitimer() is not available
+in your system to emulate that case.
+
+=head2 negative time not invented yet
+
+You tried to use a negative time argument.
+
+=head2 internal error: useconds < 0 (unsigned ... signed ...)
+
+Something went horribly wrong-- the number of microseconds that cannot
+become negative just became negative.  Maybe your compiler is broken?
+
+=head2 useconds or uinterval equal to or more than 1000000
+
+In some platforms it is not possible to get an alarm with subsecond
+resolution and later than one second.
+
+=head2 unimplemented in this platform
+
+Some calls simply aren't available, real or emulated, on every platform.
+
+=head1 CAVEATS
+
+Notice that the core C<time()> maybe rounding rather than truncating.
+What this means is that the core C<time()> may be reporting the time
+as one second later than C<gettimeofday()> and C<Time::HiRes::time()>.
+
+Adjusting the system clock (either manually or by services like ntp)
+may cause problems, especially for long running programs that assume
+a monotonously increasing time (note that all platforms do not adjust
+time as gracefully as UNIX ntp does).  For example in Win32 (and derived
+platforms like Cygwin and MinGW) the Time::HiRes::time() may temporarily
+drift off from the system clock (and the original time())  by up to 0.5
+seconds. Time::HiRes will notice this eventually and recalibrate.
+Note that since Time::HiRes 1.77 the clock_gettime(CLOCK_MONOTONIC)
+might help in this (in case your system supports CLOCK_MONOTONIC).
+
+Some systems have APIs but not implementations: for example QNX and Haiku
+have the interval timer APIs but not the functionality.
+
+In OS X clock_getres(), clock_gettime() and clock_nanosleep() are
+emulated using the Mach timers; as a side effect of being emulated
+the CLOCK_REALTIME and CLOCK_MONOTONIC are the same timer.
+
+=head1 SEE ALSO
+
+Perl modules L<BSD::Resource>, L<Time::TAI64>.
+
+Your system documentation for C<clock>, C<clock_gettime>,
+C<clock_getres>, C<clock_nanosleep>, C<clock_settime>, C<getitimer>,
+C<gettimeofday>, C<setitimer>, C<sleep>, C<stat>, C<ualarm>.
+
+=head1 AUTHORS
+
+D. Wegscheid <wegscd@whirlpool.com>
+R. Schertler <roderick@argon.org>
+J. Hietaniemi <jhi@iki.fi>
+G. Aas <gisle@aas.no>
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright (c) 1996-2002 Douglas E. Wegscheid.  All rights reserved.
+
+Copyright (c) 2002, 2003, 2004, 2005, 2006, 2007, 2008 Jarkko Hietaniemi.
+All rights reserved.
+
+Copyright (C) 2011, 2012, 2013 Andrew Main (Zefram) <zefram@fysh.org>
+
+This program is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/Time/Piece.pm b/lib/5.24.1/x86_64-linux/Time/Piece.pm
new file mode 100644
index 00000000..6dbf4d69
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/Time/Piece.pm
@@ -0,0 +1,895 @@
+package Time::Piece;
+
+use strict;
+
+require DynaLoader;
+use Time::Seconds;
+use Carp;
+use Time::Local;
+
+our @ISA = qw(DynaLoader);
+ 
+use Exporter ();
+
+our @EXPORT = qw(
+    localtime
+    gmtime
+);
+
+our %EXPORT_TAGS = (
+    ':override' => 'internal',
+    );
+
+our $VERSION = '1.31';
+
+bootstrap Time::Piece $VERSION;
+
+my $DATE_SEP = '-';
+my $TIME_SEP = ':';
+my @MON_LIST = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
+my @FULLMON_LIST = qw(January February March April May June July
+                      August September October November December);
+my @DAY_LIST = qw(Sun Mon Tue Wed Thu Fri Sat);
+my @FULLDAY_LIST = qw(Sunday Monday Tuesday Wednesday Thursday Friday Saturday);
+
+use constant {
+    'c_sec' => 0,
+    'c_min' => 1,
+    'c_hour' => 2,
+    'c_mday' => 3,
+    'c_mon' => 4,
+    'c_year' => 5,
+    'c_wday' => 6,
+    'c_yday' => 7,
+    'c_isdst' => 8,
+    'c_epoch' => 9,
+    'c_islocal' => 10,
+};
+
+sub localtime {
+    unshift @_, __PACKAGE__ unless eval { $_[0]->isa('Time::Piece') };
+    my $class = shift;
+    my $time  = shift;
+    $time = time if (!defined $time);
+    $class->_mktime($time, 1);
+}
+
+sub gmtime {
+    unshift @_, __PACKAGE__ unless eval { $_[0]->isa('Time::Piece') };
+    my $class = shift;
+    my $time  = shift;
+    $time = time if (!defined $time);
+    $class->_mktime($time, 0);
+}
+
+sub new {
+    my $class = shift;
+    my ($time) = @_;
+
+    my $self;
+
+    if (defined($time)) {
+        $self = $class->localtime($time);
+    }
+    elsif (ref($class) && $class->isa(__PACKAGE__)) {
+        $self = $class->_mktime($class->epoch, $class->[c_islocal]);
+    }
+    else {
+        $self = $class->localtime();
+    }
+
+    return bless $self, ref($class) || $class;
+}
+
+sub parse {
+    my $proto = shift;
+    my $class = ref($proto) || $proto;
+    my @components;
+
+    warnings::warnif("deprecated", 
+        "parse() is deprecated, use strptime() instead.");
+
+    if (@_ > 1) {
+        @components = @_;
+    }
+    else {
+        @components = shift =~ /(\d+)$DATE_SEP(\d+)$DATE_SEP(\d+)(?:(?:T|\s+)(\d+)$TIME_SEP(\d+)(?:$TIME_SEP(\d+)))/;
+        @components = reverse(@components[0..5]);
+    }
+    return $class->new(_strftime("%s", timelocal(@components)));
+}
+
+sub _mktime {
+    my ($class, $time, $islocal) = @_;
+    $class = eval { (ref $class) && (ref $class)->isa('Time::Piece') }
+           ? ref $class
+           : $class;
+    if (ref($time)) {
+        my @tm_parts = (@{$time}[c_sec .. c_mon], $time->[c_year]+1900);
+        $time->[c_epoch] = $islocal ? timelocal(@tm_parts) : timegm(@tm_parts);
+
+        return wantarray ? @$time : bless [@$time[0..9], $islocal], $class;
+    }
+    _tzset();
+    my @time = $islocal ?
+            CORE::localtime($time)
+                :
+            CORE::gmtime($time);
+    wantarray ? @time : bless [@time, $time, $islocal], $class;
+}
+
+my %_special_exports = (
+  localtime => sub { my $c = $_[0]; sub { $c->localtime(@_) } },
+  gmtime    => sub { my $c = $_[0]; sub { $c->gmtime(@_)    } },
+);
+
+sub export {
+  my ($class, $to, @methods) = @_;
+  for my $method (@methods) {
+    if (exists $_special_exports{$method}) {
+      no strict 'refs';
+      no warnings 'redefine';
+      *{$to . "::$method"} = $_special_exports{$method}->($class);
+    } else {
+      $class->Exporter::export($to, $method);
+    }
+  }
+}
+
+sub import {
+    # replace CORE::GLOBAL localtime and gmtime if passed :override
+    my $class = shift;
+    my %params;
+    map($params{$_}++,@_,@EXPORT);
+    if (delete $params{':override'}) {
+        $class->export('CORE::GLOBAL', keys %params);
+    }
+    else {
+        $class->export(scalar caller, keys %params);
+    }
+}
+
+## Methods ##
+
+sub sec {
+    my $time = shift;
+    $time->[c_sec];
+}
+
+*second = \&sec;
+
+sub min {
+    my $time = shift;
+    $time->[c_min];
+}
+
+*minute = \&min;
+
+sub hour {
+    my $time = shift;
+    $time->[c_hour];
+}
+
+sub mday {
+    my $time = shift;
+    $time->[c_mday];
+}
+
+*day_of_month = \&mday;
+
+sub mon {
+    my $time = shift;
+    $time->[c_mon] + 1;
+}
+
+sub _mon {
+    my $time = shift;
+    $time->[c_mon];
+}
+
+sub month {
+    my $time = shift;
+    if (@_) {
+        return $_[$time->[c_mon]];
+    }
+    elsif (@MON_LIST) {
+        return $MON_LIST[$time->[c_mon]];
+    }
+    else {
+        return $time->strftime('%b');
+    }
+}
+
+*monname = \&month;
+
+sub fullmonth {
+    my $time = shift;
+    if (@_) {
+        return $_[$time->[c_mon]];
+    }
+    elsif (@FULLMON_LIST) {
+        return $FULLMON_LIST[$time->[c_mon]];
+    }
+    else {
+        return $time->strftime('%B');
+    }
+}
+
+sub year {
+    my $time = shift;
+    $time->[c_year] + 1900;
+}
+
+sub _year {
+    my $time = shift;
+    $time->[c_year];
+}
+
+sub yy {
+    my $time = shift;
+    my $res = $time->[c_year] % 100;
+    return $res > 9 ? $res : "0$res";
+}
+
+sub wday {
+    my $time = shift;
+    $time->[c_wday] + 1;
+}
+
+sub _wday {
+    my $time = shift;
+    $time->[c_wday];
+}
+
+*day_of_week = \&_wday;
+
+sub wdayname {
+    my $time = shift;
+    if (@_) {
+        return $_[$time->[c_wday]];
+    }
+    elsif (@DAY_LIST) {
+        return $DAY_LIST[$time->[c_wday]];
+    }
+    else {
+        return $time->strftime('%a');
+    }
+}
+
+*day = \&wdayname;
+
+sub fullday {
+    my $time = shift;
+    if (@_) {
+        return $_[$time->[c_wday]];
+    }
+    elsif (@FULLDAY_LIST) {
+        return $FULLDAY_LIST[$time->[c_wday]];
+    }
+    else {
+        return $time->strftime('%A');
+    }
+}
+
+sub yday {
+    my $time = shift;
+    $time->[c_yday];
+}
+
+*day_of_year = \&yday;
+
+sub isdst {
+    my $time = shift;
+    $time->[c_isdst];
+}
+
+*daylight_savings = \&isdst;
+
+# Thanks to Tony Olekshy <olekshy@cs.ualberta.ca> for this algorithm
+sub tzoffset {
+    my $time = shift;
+
+    return Time::Seconds->new(0) unless $time->[c_islocal];
+
+    my $epoch = $time->epoch;
+
+    my $j = sub {
+
+        my ($s,$n,$h,$d,$m,$y) = @_; $m += 1; $y += 1900;
+
+        $time->_jd($y, $m, $d, $h, $n, $s);
+
+    };
+
+    # Compute floating offset in hours.
+    #
+    # Note use of crt methods so the tz is properly set...
+    # See: http://perlmonks.org/?node_id=820347
+    my $delta = 24 * ($j->(_crt_localtime($epoch)) - $j->(_crt_gmtime($epoch)));
+
+    # Return value in seconds rounded to nearest minute.
+    return Time::Seconds->new( int($delta * 60 + ($delta >= 0 ? 0.5 : -0.5)) * 60 );
+}
+
+sub epoch {
+    my $time = shift;
+    if (defined($time->[c_epoch])) {
+        return $time->[c_epoch];
+    }
+    else {
+        my $epoch = $time->[c_islocal] ?
+          timelocal(@{$time}[c_sec .. c_mon], $time->[c_year]+1900)
+          :
+          timegm(@{$time}[c_sec .. c_mon], $time->[c_year]+1900);
+        $time->[c_epoch] = $epoch;
+        return $epoch;
+    }
+}
+
+sub hms {
+    my $time = shift;
+    my $sep = @_ ? shift(@_) : $TIME_SEP;
+    sprintf("%02d$sep%02d$sep%02d", $time->[c_hour], $time->[c_min], $time->[c_sec]);
+}
+
+*time = \&hms;
+
+sub ymd {
+    my $time = shift;
+    my $sep = @_ ? shift(@_) : $DATE_SEP;
+    sprintf("%d$sep%02d$sep%02d", $time->year, $time->mon, $time->[c_mday]);
+}
+
+*date = \&ymd;
+
+sub mdy {
+    my $time = shift;
+    my $sep = @_ ? shift(@_) : $DATE_SEP;
+    sprintf("%02d$sep%02d$sep%d", $time->mon, $time->[c_mday], $time->year);
+}
+
+sub dmy {
+    my $time = shift;
+    my $sep = @_ ? shift(@_) : $DATE_SEP;
+    sprintf("%02d$sep%02d$sep%d", $time->[c_mday], $time->mon, $time->year);
+}
+
+sub datetime {
+    my $time = shift;
+    my %seps = (date => $DATE_SEP, T => 'T', time => $TIME_SEP, @_);
+    return join($seps{T}, $time->date($seps{date}), $time->time($seps{time}));
+}
+
+
+
+# Julian Day is always calculated for UT regardless
+# of local time
+sub julian_day {
+    my $time = shift;
+    # Correct for localtime
+    $time = $time->gmtime( $time->epoch ) if $time->[c_islocal];
+
+    # Calculate the Julian day itself
+    my $jd = $time->_jd( $time->year, $time->mon, $time->mday,
+                        $time->hour, $time->min, $time->sec);
+
+    return $jd;
+}
+
+# MJD is defined as JD - 2400000.5 days
+sub mjd {
+    return shift->julian_day - 2_400_000.5;
+}
+
+# Internal calculation of Julian date. Needed here so that
+# both tzoffset and mjd/jd methods can share the code
+# Algorithm from Hatcher 1984 (QJRAS 25, 53-55), and
+#  Hughes et al, 1989, MNRAS, 238, 15
+# See: http://adsabs.harvard.edu/cgi-bin/nph-bib_query?bibcode=1989MNRAS.238.1529H&db_key=AST
+# for more details
+
+sub _jd {
+    my $self = shift;
+    my ($y, $m, $d, $h, $n, $s) = @_;
+
+    # Adjust input parameters according to the month
+    $y = ( $m > 2 ? $y : $y - 1);
+    $m = ( $m > 2 ? $m - 3 : $m + 9);
+
+    # Calculate the Julian Date (assuming Julian calendar)
+    my $J = int( 365.25 *( $y + 4712) )
+      + int( (30.6 * $m) + 0.5)
+        + 59
+          + $d
+            - 0.5;
+
+    # Calculate the Gregorian Correction (since we have Gregorian dates)
+    my $G = 38 - int( 0.75 * int(49+($y/100)));
+
+    # Calculate the actual Julian Date
+    my $JD = $J + $G;
+
+    # Modify to include hours/mins/secs in floating portion.
+    return $JD + ($h + ($n + $s / 60) / 60) / 24;
+}
+
+sub week {
+    my $self = shift;
+
+    my $J  = $self->julian_day;
+    # Julian day is independent of time zone so add on tzoffset
+    # if we are using local time here since we want the week day
+    # to reflect the local time rather than UTC
+    $J += ($self->tzoffset/(24*3600)) if $self->[c_islocal];
+
+    # Now that we have the Julian day including fractions
+    # convert it to an integer Julian Day Number using nearest
+    # int (since the day changes at midday we convert all Julian
+    # dates to following midnight).
+    $J = int($J+0.5);
+
+    use integer;
+    my $d4 = ((($J + 31741 - ($J % 7)) % 146097) % 36524) % 1461;
+    my $L  = $d4 / 1460;
+    my $d1 = (($d4 - $L) % 365) + $L;
+    return $d1 / 7 + 1;
+}
+
+sub _is_leap_year {
+    my $year = shift;
+    return (($year %4 == 0) && !($year % 100 == 0)) || ($year % 400 == 0)
+               ? 1 : 0;
+}
+
+sub is_leap_year {
+    my $time = shift;
+    my $year = $time->year;
+    return _is_leap_year($year);
+}
+
+my @MON_LAST = qw(31 28 31 30 31 30 31 31 30 31 30 31);
+
+sub month_last_day {
+    my $time = shift;
+    my $year = $time->year;
+    my $_mon = $time->_mon;
+    return $MON_LAST[$_mon] + ($_mon == 1 ? _is_leap_year($year) : 0);
+}
+
+#since %z and %Z are not portable lets just
+#parse it out before calling native strftime
+#(but only if we are in UTC time)
+my %GMT_REPR = (
+    '%z' => '+0000',
+    '%Z' => 'UTC',
+);
+
+sub strftime {
+    my $time = shift;
+    my $format = @_ ? shift(@_) : '%a, %d %b %Y %H:%M:%S %Z';
+    if (! $time->[c_islocal]) {
+        $format =~ s/(%.)/$GMT_REPR{$1} || $1/eg;
+    }
+
+    return _strftime($format, $time->epoch, $time->[c_islocal]);
+}
+
+sub strptime {
+    my $time = shift;
+    my $string = shift;
+    my $format = @_ ? shift(@_) : "%a, %d %b %Y %H:%M:%S %Z";
+    my @vals = _strptime($string, $format);
+#    warn(sprintf("got vals: %d-%d-%d %d:%d:%d\n", reverse(@vals)));
+    return scalar $time->_mktime(\@vals, (ref($time) ? $time->[c_islocal] : 0));
+}
+
+sub day_list {
+    shift if ref($_[0]) && $_[0]->isa(__PACKAGE__); # strip first if called as a method
+    my @old = @DAY_LIST;
+    if (@_) {
+        @DAY_LIST = @_;
+    }
+    return @old;
+}
+
+sub mon_list {
+    shift if ref($_[0]) && $_[0]->isa(__PACKAGE__); # strip first if called as a method
+    my @old = @MON_LIST;
+    if (@_) {
+        @MON_LIST = @_;
+    }
+    return @old;
+}
+
+sub time_separator {
+    shift if ref($_[0]) && $_[0]->isa(__PACKAGE__);
+    my $old = $TIME_SEP;
+    if (@_) {
+        $TIME_SEP = $_[0];
+    }
+    return $old;
+}
+
+sub date_separator {
+    shift if ref($_[0]) && $_[0]->isa(__PACKAGE__);
+    my $old = $DATE_SEP;
+    if (@_) {
+        $DATE_SEP = $_[0];
+    }
+    return $old;
+}
+
+use overload '""' => \&cdate,
+             'cmp' => \&str_compare,
+             'fallback' => undef;
+
+sub cdate {
+    my $time = shift;
+    if ($time->[c_islocal]) {
+        return scalar(CORE::localtime($time->epoch));
+    }
+    else {
+        return scalar(CORE::gmtime($time->epoch));
+    }
+}
+
+sub str_compare {
+    my ($lhs, $rhs, $reverse) = @_;
+    if (UNIVERSAL::isa($rhs, 'Time::Piece')) {
+        $rhs = "$rhs";
+    }
+    return $reverse ? $rhs cmp $lhs->cdate : $lhs->cdate cmp $rhs;
+}
+
+use overload
+        '-' => \&subtract,
+        '+' => \&add;
+
+sub subtract {
+    my $time = shift;
+    my $rhs = shift;
+    if (UNIVERSAL::isa($rhs, 'Time::Seconds')) {
+        $rhs = $rhs->seconds;
+    }
+
+    if (shift)
+    {
+	# SWAPED is set (so someone tried an expression like NOTDATE - DATE).
+	# Imitate Perl's standard behavior and return the result as if the
+	# string $time resolves to was subtracted from NOTDATE.  This way,
+	# classes which override this one and which have a stringify function
+	# that resolves to something that looks more like a number don't need
+	# to override this function.
+	return $rhs - "$time";
+    }
+
+    if (UNIVERSAL::isa($rhs, 'Time::Piece')) {
+        return Time::Seconds->new($time->epoch - $rhs->epoch);
+    }
+    else {
+        # rhs is seconds.
+        return $time->_mktime(($time->epoch - $rhs), $time->[c_islocal]);
+    }
+}
+
+sub add {
+    my $time = shift;
+    my $rhs = shift;
+    if (UNIVERSAL::isa($rhs, 'Time::Seconds')) {
+        $rhs = $rhs->seconds;
+    }
+    croak "Invalid rhs of addition: $rhs" if ref($rhs);
+
+    return $time->_mktime(($time->epoch + $rhs), $time->[c_islocal]);
+}
+
+use overload
+        '<=>' => \&compare;
+
+sub get_epochs {
+    my ($lhs, $rhs, $reverse) = @_;
+    if (!UNIVERSAL::isa($rhs, 'Time::Piece')) {
+        $rhs = $lhs->new($rhs);
+    }
+    if ($reverse) {
+        return $rhs->epoch, $lhs->epoch;
+    }
+    return $lhs->epoch, $rhs->epoch;
+}
+
+sub compare {
+    my ($lhs, $rhs) = get_epochs(@_);
+    return $lhs <=> $rhs;
+}
+
+sub add_months {
+    my ($time, $num_months) = @_;
+
+    croak("add_months requires a number of months") unless defined($num_months);
+
+    my $final_month = $time->_mon + $num_months;
+    my $num_years = 0;
+    if ($final_month > 11 || $final_month < 0) {
+        # these two ops required because we have no POSIX::floor and don't
+        # want to load POSIX.pm
+        if ($final_month < 0 && $final_month % 12 == 0) {
+            $num_years = int($final_month / 12) + 1;
+        }
+        else {
+            $num_years = int($final_month / 12);
+        }
+        $num_years-- if ($final_month < 0);
+
+        $final_month = $final_month % 12;
+    }
+
+    my @vals = _mini_mktime($time->sec, $time->min, $time->hour,
+                            $time->mday, $final_month, $time->year - 1900 + $num_years);
+    # warn(sprintf("got %d vals: %d-%d-%d %d:%d:%d [%d]\n", scalar(@vals), reverse(@vals), $time->[c_islocal]));
+    return scalar $time->_mktime(\@vals, $time->[c_islocal]);
+}
+
+sub add_years {
+    my ($time, $years) = @_;
+    $time->add_months($years * 12);
+}
+
+1;
+__END__
+
+=head1 NAME
+
+Time::Piece - Object Oriented time objects
+
+=head1 SYNOPSIS
+
+    use Time::Piece;
+    
+    my $t = localtime;
+    print "Time is $t\n";
+    print "Year is ", $t->year, "\n";
+
+=head1 DESCRIPTION
+
+This module replaces the standard C<localtime> and C<gmtime> functions with
+implementations that return objects. It does so in a backwards
+compatible manner, so that using localtime/gmtime in the way documented
+in perlfunc will still return what you expect.
+
+The module actually implements most of an interface described by
+Larry Wall on the perl5-porters mailing list here:
+http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2000-01/msg00241.html
+
+=head1 USAGE
+
+After importing this module, when you use localtime or gmtime in a scalar
+context, rather than getting an ordinary scalar string representing the
+date and time, you get a Time::Piece object, whose stringification happens
+to produce the same effect as the localtime and gmtime functions. There is 
+also a new() constructor provided, which is the same as localtime(), except
+when passed a Time::Piece object, in which case it's a copy constructor. The
+following methods are available on the object:
+
+    $t->sec                 # also available as $t->second
+    $t->min                 # also available as $t->minute
+    $t->hour                # 24 hour
+    $t->mday                # also available as $t->day_of_month
+    $t->mon                 # 1 = January
+    $t->_mon                # 0 = January
+    $t->monname             # Feb
+    $t->month               # same as $t->monname
+    $t->fullmonth           # February
+    $t->year                # based at 0 (year 0 AD is, of course 1 BC)
+    $t->_year               # year minus 1900
+    $t->yy                  # 2 digit year
+    $t->wday                # 1 = Sunday
+    $t->_wday               # 0 = Sunday
+    $t->day_of_week         # 0 = Sunday
+    $t->wdayname            # Tue
+    $t->day                 # same as wdayname
+    $t->fullday             # Tuesday
+    $t->yday                # also available as $t->day_of_year, 0 = Jan 01
+    $t->isdst               # also available as $t->daylight_savings
+
+    $t->hms                 # 12:34:56
+    $t->hms(".")            # 12.34.56
+    $t->time                # same as $t->hms
+
+    $t->ymd                 # 2000-02-29
+    $t->date                # same as $t->ymd
+    $t->mdy                 # 02-29-2000
+    $t->mdy("/")            # 02/29/2000
+    $t->dmy                 # 29-02-2000
+    $t->dmy(".")            # 29.02.2000
+    $t->datetime            # 2000-02-29T12:34:56 (ISO 8601)
+    $t->cdate               # Tue Feb 29 12:34:56 2000
+    "$t"                    # same as $t->cdate
+
+    $t->epoch               # seconds since the epoch
+    $t->tzoffset            # timezone offset in a Time::Seconds object
+
+    $t->julian_day          # number of days since Julian period began
+    $t->mjd                 # modified Julian date (JD-2400000.5 days)
+
+    $t->week                # week number (ISO 8601)
+
+    $t->is_leap_year        # true if it's a leap year
+    $t->month_last_day      # 28-31
+
+    $t->time_separator($s)  # set the default separator (default ":")
+    $t->date_separator($s)  # set the default separator (default "-")
+    $t->day_list(@days)     # set the default weekdays
+    $t->mon_list(@days)     # set the default months
+
+    $t->strftime(FORMAT)    # same as POSIX::strftime (without the overhead
+                            # of the full POSIX extension)
+    $t->strftime()          # "Tue, 29 Feb 2000 12:34:56 GMT"
+    
+    Time::Piece->strptime(STRING, FORMAT)
+                            # see strptime man page. Creates a new
+                            # Time::Piece object
+
+Note that C<localtime> and C<gmtime> are not listed above.  If called as
+methods on a Time::Piece object, they act as constructors, returning a new
+Time::Piece object for the current time.  In other words: they're not useful as
+methods.
+
+=head2 Local Locales
+
+Both wdayname (day) and monname (month) allow passing in a list to use
+to index the name of the days against. This can be useful if you need
+to implement some form of localisation without actually installing or
+using locales.
+
+  my @days = qw( Dimanche Lundi Merdi Mercredi Jeudi Vendredi Samedi );
+
+  my $french_day = localtime->day(@days);
+
+These settings can be overridden globally too:
+
+  Time::Piece::day_list(@days);
+
+Or for months:
+
+  Time::Piece::mon_list(@months);
+
+And locally for months:
+
+  print localtime->month(@months);
+
+=head2 Date Calculations
+
+It's possible to use simple addition and subtraction of objects:
+
+    use Time::Seconds;
+    
+    my $seconds = $t1 - $t2;
+    $t1 += ONE_DAY; # add 1 day (constant from Time::Seconds)
+
+The following are valid ($t1 and $t2 are Time::Piece objects):
+
+    $t1 - $t2; # returns Time::Seconds object
+    $t1 - 42; # returns Time::Piece object
+    $t1 + 533; # returns Time::Piece object
+
+However adding a Time::Piece object to another Time::Piece object
+will cause a runtime error.
+
+Note that the first of the above returns a Time::Seconds object, so
+while examining the object will print the number of seconds (because
+of the overloading), you can also get the number of minutes, hours,
+days, weeks and years in that delta, using the Time::Seconds API.
+
+In addition to adding seconds, there are two APIs for adding months and
+years:
+
+    $t->add_months(6);
+    $t->add_years(5);
+
+The months and years can be negative for subtractions. Note that there
+is some "strange" behaviour when adding and subtracting months at the
+ends of months. Generally when the resulting month is shorter than the
+starting month then the number of overlap days is added. For example
+subtracting a month from 2008-03-31 will not result in 2008-02-31 as this
+is an impossible date. Instead you will get 2008-03-02. This appears to
+be consistent with other date manipulation tools.
+
+=head2 Date Comparisons
+
+Date comparisons are also possible, using the full suite of "<", ">",
+"<=", ">=", "<=>", "==" and "!=".
+
+=head2 Date Parsing
+
+Time::Piece has a built-in strptime() function (from FreeBSD), allowing
+you incredibly flexible date parsing routines. For example:
+
+  my $t = Time::Piece->strptime("Sunday 3rd Nov, 1943",
+                                "%A %drd %b, %Y");
+  
+  print $t->strftime("%a, %d %b %Y");
+
+Outputs:
+
+  Wed, 03 Nov 1943
+
+(see, it's even smart enough to fix my obvious date bug)
+
+For more information see "man strptime", which should be on all unix
+systems.
+
+Alternatively look here: http://www.unix.com/man-page/FreeBSD/3/strftime/
+
+=head2 YYYY-MM-DDThh:mm:ss
+
+The ISO 8601 standard defines the date format to be YYYY-MM-DD, and
+the time format to be hh:mm:ss (24 hour clock), and if combined, they
+should be concatenated with date first and with a capital 'T' in front
+of the time.
+
+=head2 Week Number
+
+The I<week number> may be an unknown concept to some readers.  The ISO
+8601 standard defines that weeks begin on a Monday and week 1 of the
+year is the week that includes both January 4th and the first Thursday
+of the year.  In other words, if the first Monday of January is the
+2nd, 3rd, or 4th, the preceding days of the January are part of the
+last week of the preceding year.  Week numbers range from 1 to 53.
+
+=head2 Global Overriding
+
+Finally, it's possible to override localtime and gmtime everywhere, by
+including the ':override' tag in the import list:
+
+    use Time::Piece ':override';
+
+=head1 CAVEATS
+
+=head2 Setting $ENV{TZ} in Threads on Win32
+
+Note that when using perl in the default build configuration on Win32
+(specifically, when perl is built with PERL_IMPLICIT_SYS), each perl
+interpreter maintains its own copy of the environment and only the main
+interpreter will update the process environment seen by strftime.
+
+Therefore, if you make changes to $ENV{TZ} from inside a thread other than
+the main thread then those changes will not be seen by strftime if you
+subsequently call that with the %Z formatting code. You must change $ENV{TZ}
+in the main thread to have the desired effect in this case (and you must
+also call _tzset() in the main thread to register the environment change).
+
+Furthermore, remember that this caveat also applies to fork(), which is
+emulated by threads on Win32.
+
+=head2 Use of epoch seconds
+
+This module internally uses the epoch seconds system that is provided via
+the perl C<time()> function and supported by C<gmtime()> and C<localtime()>.
+
+If your perl does not support times larger than C<2^31> seconds then this
+module is likely to fail at processing dates beyond the year 2038. There are
+moves afoot to fix that in perl. Alternatively use 64 bit perl. Or if none
+of those are options, use the L<DateTime> module which has support for years
+well into the future and past.
+
+=head1 AUTHOR
+
+Matt Sergeant, matt@sergeant.org
+Jarkko Hietaniemi, jhi@iki.fi (while creating Time::Piece for core perl)
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright 2001, Larry Wall.
+
+This module is free software, you may distribute it under the same terms
+as Perl.
+
+=head1 SEE ALSO
+
+The excellent Calendar FAQ at http://www.tondering.dk/claus/calendar.html
+
+=head1 BUGS
+
+The test harness leaves much to be desired. Patches welcome.
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/Time/Seconds.pm b/lib/5.24.1/x86_64-linux/Time/Seconds.pm
new file mode 100644
index 00000000..965e3a6e
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/Time/Seconds.pm
@@ -0,0 +1,259 @@
+package Time::Seconds;
+use strict;
+
+our $VERSION = '1.31';
+
+use Exporter 5.57 'import';
+
+our @EXPORT = qw(
+    ONE_MINUTE
+    ONE_HOUR
+    ONE_DAY
+    ONE_WEEK
+    ONE_MONTH
+    ONE_YEAR
+    ONE_FINANCIAL_MONTH
+    LEAP_YEAR
+    NON_LEAP_YEAR
+);
+
+our @EXPORT_OK = qw(cs_sec cs_mon);
+
+use constant {
+    ONE_MINUTE => 60,
+    ONE_HOUR => 3_600,
+    ONE_DAY => 86_400,
+    ONE_WEEK => 604_800,
+    ONE_MONTH => 2_629_744, # ONE_YEAR / 12
+    ONE_YEAR => 31_556_930, # 365.24225 days
+    ONE_FINANCIAL_MONTH => 2_592_000, # 30 days
+    LEAP_YEAR => 31_622_400, # 366 * ONE_DAY
+    NON_LEAP_YEAR => 31_536_000, # 365 * ONE_DAY
+    # hacks to make Time::Piece compile once again
+    cs_sec => 0,
+    cs_mon => 1,
+};
+
+use overload
+    'fallback' => 'undef',
+    '0+' => \&seconds,
+    '""' => \&seconds,
+    '<=>' => \&compare,
+    '+' => \&add,
+    '-' => \&subtract,
+    '-=' => \&subtract_from,
+    '+=' => \&add_to,
+    '=' => \&copy;
+
+sub new {
+    my $class = shift;
+    my ($val) = @_;
+    $val = 0 unless defined $val;
+    bless \$val, $class;
+}
+
+sub _get_ovlvals {
+    my ($lhs, $rhs, $reverse) = @_;
+    $lhs = $lhs->seconds;
+
+    if (UNIVERSAL::isa($rhs, 'Time::Seconds')) {
+        $rhs = $rhs->seconds;
+    }
+    elsif (ref($rhs)) {
+        die "Can't use non Seconds object in operator overload";
+    }
+
+    if ($reverse) {
+        return $rhs, $lhs;
+    }
+
+    return $lhs, $rhs;
+}
+
+sub compare {
+    my ($lhs, $rhs) = _get_ovlvals(@_);
+    return $lhs <=> $rhs;
+}
+
+sub add {
+    my ($lhs, $rhs) = _get_ovlvals(@_);
+    return Time::Seconds->new($lhs + $rhs);
+}
+
+sub add_to {
+    my $lhs = shift;
+    my $rhs = shift;
+    $rhs = $rhs->seconds if UNIVERSAL::isa($rhs, 'Time::Seconds');
+    $$lhs += $rhs;
+    return $lhs;
+}
+
+sub subtract {
+    my ($lhs, $rhs) = _get_ovlvals(@_);
+    return Time::Seconds->new($lhs - $rhs);
+}
+
+sub subtract_from {
+    my $lhs = shift;
+    my $rhs = shift;
+    $rhs = $rhs->seconds if UNIVERSAL::isa($rhs, 'Time::Seconds');
+    $$lhs -= $rhs;
+    return $lhs;
+}
+
+sub copy {
+	Time::Seconds->new(${$_[0]});
+}
+
+sub seconds {
+    my $s = shift;
+    return $$s;
+}
+
+sub minutes {
+    my $s = shift;
+    return $$s / 60;
+}
+
+sub hours {
+    my $s = shift;
+    $s->minutes / 60;
+}
+
+sub days {
+    my $s = shift;
+    $s->hours / 24;
+}
+
+sub weeks {
+    my $s = shift;
+    $s->days / 7;
+}
+
+sub months {
+    my $s = shift;
+    $s->days / 30.4368541;
+}
+
+sub financial_months {
+    my $s = shift;
+    $s->days / 30;
+}
+
+sub years {
+    my $s = shift;
+    $s->days / 365.24225;
+}
+
+sub pretty {
+    my $s = shift;
+    my $str = "";
+    if ($s < 0) {
+        $s = -$s;
+        $str = "minus ";
+    }
+    if ($s >= ONE_MINUTE) {
+        if ($s >= ONE_HOUR) {
+            if ($s >= ONE_DAY) {
+                my $days = sprintf("%d", $s->days); # does a "floor"
+                $str .= $days . " days, ";
+                $s -= ($days * ONE_DAY);
+            }
+            my $hours = sprintf("%d", $s->hours);
+            $str .= $hours . " hours, ";
+            $s -= ($hours * ONE_HOUR);
+        }
+        my $mins = sprintf("%d", $s->minutes);
+        $str .= $mins . " minutes, ";
+        $s -= ($mins * ONE_MINUTE);
+    }
+    $str .= $s->seconds . " seconds";
+    return $str;
+}
+
+1;
+__END__
+
+=encoding utf8
+
+=head1 NAME
+
+Time::Seconds - a simple API to convert seconds to other date values
+
+=head1 SYNOPSIS
+
+    use Time::Piece;
+    use Time::Seconds;
+    
+    my $t = localtime;
+    $t += ONE_DAY;
+    
+    my $t2 = localtime;
+    my $s = $t - $t2;
+    
+    print "Difference is: ", $s->days, "\n";
+
+=head1 DESCRIPTION
+
+This module is part of the Time::Piece distribution. It allows the user
+to find out the number of minutes, hours, days, weeks or years in a given
+number of seconds. It is returned by Time::Piece when you delta two
+Time::Piece objects.
+
+Time::Seconds also exports the following constants:
+
+    ONE_DAY
+    ONE_WEEK
+    ONE_HOUR
+    ONE_MINUTE
+    ONE_MONTH
+    ONE_YEAR
+    ONE_FINANCIAL_MONTH
+    LEAP_YEAR
+    NON_LEAP_YEAR
+
+Since perl does not (yet?) support constant objects, these constants are in
+seconds only, so you cannot, for example, do this: C<print ONE_WEEK-E<gt>minutes;>
+
+=head1 METHODS
+
+The following methods are available:
+
+    my $val = Time::Seconds->new(SECONDS)
+    $val->seconds;
+    $val->minutes;
+    $val->hours;
+    $val->days;
+    $val->weeks;
+    $val->months;
+    $val->financial_months; # 30 days
+    $val->years;
+    $val->pretty; # gives English representation of the delta
+
+The usual arithmetic (+,-,+=,-=) is also available on the objects.
+
+The methods make the assumption that there are 24 hours in a day, 7 days in
+a week, 365.24225 days in a year and 12 months in a year.
+(from The Calendar FAQ at http://www.tondering.dk/claus/calendar.html)
+
+=head1 AUTHOR
+
+Matt Sergeant, matt@sergeant.org
+
+Tobias Brox, tobiasb@tobiasb.funcom.com
+
+Balázs Szabó (dLux), dlux@kapu.hu
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright 2001, Larry Wall.
+
+This module is free software, you may distribute it under the same terms
+as Perl.
+
+=head1 Bugs
+
+Currently the methods aren't as efficient as they could be, for reasons of
+clarity. This is probably a bad idea.
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/Unicode/Collate.pm b/lib/5.24.1/x86_64-linux/Unicode/Collate.pm
new file mode 100644
index 00000000..493c281a
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/Unicode/Collate.pm
@@ -0,0 +1,2124 @@
+package Unicode::Collate;
+
+BEGIN {
+    unless ("A" eq pack('U', 0x41)) {
+	die "Unicode::Collate cannot stringify a Unicode code point\n";
+    }
+    unless (0x41 == unpack('U', 'A')) {
+	die "Unicode::Collate cannot get a Unicode code point\n";
+    }
+}
+
+use 5.006;
+use strict;
+use warnings;
+use Carp;
+use File::Spec;
+
+no warnings 'utf8';
+
+our $VERSION = '1.14';
+our $PACKAGE = __PACKAGE__;
+
+### begin XS only ###
+require DynaLoader;
+our @ISA = qw(DynaLoader);
+bootstrap Unicode::Collate $VERSION;
+### end XS only ###
+
+my @Path = qw(Unicode Collate);
+my $KeyFile = "allkeys.txt";
+
+# Perl's boolean
+use constant TRUE  => 1;
+use constant FALSE => "";
+use constant NOMATCHPOS => -1;
+
+# A coderef to get combining class imported from Unicode::Normalize
+# (i.e. \&Unicode::Normalize::getCombinClass).
+# This is also used as a HAS_UNICODE_NORMALIZE flag.
+my $CVgetCombinClass;
+
+# Supported Levels
+use constant MinLevel => 1;
+use constant MaxLevel => 4;
+
+# Minimum weights at level 2 and 3, respectively
+use constant Min2Wt => 0x20;
+use constant Min3Wt => 0x02;
+
+# Shifted weight at 4th level
+use constant Shift4Wt => 0xFFFF;
+
+# A boolean for Variable and 16-bit weights at 4 levels of Collation Element
+use constant VCE_TEMPLATE => 'Cn4';
+
+# A sort key: 16-bit weights
+use constant KEY_TEMPLATE => 'n*';
+
+# The tie-breaking: 32-bit weights
+use constant TIE_TEMPLATE => 'N*';
+
+# Level separator in a sort key:
+# i.e. pack(KEY_TEMPLATE, 0)
+use constant LEVEL_SEP => "\0\0";
+
+# As Unicode code point separator for hash keys.
+# A joined code point string (denoted by JCPS below)
+# like "65;768" is used for internal processing
+# instead of Perl's Unicode string like "\x41\x{300}",
+# as the native code point is different from the Unicode code point
+# on EBCDIC platform.
+# This character must not be included in any stringified
+# representation of an integer.
+use constant CODE_SEP => ';';
+	# NOTE: in regex /;/ is used for $jcps!
+
+# boolean values of variable weights
+use constant NON_VAR => 0; # Non-Variable character
+use constant VAR     => 1; # Variable character
+
+# specific code points
+use constant Hangul_SIni   => 0xAC00;
+use constant Hangul_SFin   => 0xD7A3;
+
+# Logical_Order_Exception in PropList.txt
+my $DefaultRearrange = [ 0x0E40..0x0E44, 0x0EC0..0x0EC4 ];
+
+# for highestFFFF and minimalFFFE
+my $HighestVCE = pack(VCE_TEMPLATE, 0, 0xFFFE, 0x20, 0x5, 0xFFFF);
+my $minimalVCE = pack(VCE_TEMPLATE, 0,      1, 0x20, 0x5, 0xFFFE);
+
+sub UCA_Version { "30" }
+
+sub Base_Unicode_Version { "7.0.0" }
+
+######
+
+sub pack_U {
+    return pack('U*', @_);
+}
+
+sub unpack_U {
+    return unpack('U*', shift(@_).pack('U*'));
+}
+
+######
+
+my (%VariableOK);
+@VariableOK{ qw/
+    blanked  non-ignorable  shifted  shift-trimmed
+  / } = (); # keys lowercased
+
+our @ChangeOK = qw/
+    alternate backwards level normalization rearrange
+    katakana_before_hiragana upper_before_lower ignore_level2
+    overrideCJK overrideHangul overrideOut preprocess UCA_Version
+    hangul_terminator variable identical highestFFFF minimalFFFE
+    long_contraction
+  /;
+
+our @ChangeNG = qw/
+    entry mapping table maxlength contraction
+    ignoreChar ignoreName undefChar undefName rewrite
+    versionTable alternateTable backwardsTable forwardsTable
+    rearrangeTable variableTable
+    derivCode normCode rearrangeHash backwardsFlag
+    suppress suppressHash
+    __useXS /; ### XS only
+# The hash key 'ignored' was deleted at v 0.21.
+# The hash key 'isShift' was deleted at v 0.23.
+# The hash key 'combining' was deleted at v 0.24.
+# The hash key 'entries' was deleted at v 0.30.
+# The hash key 'L3_ignorable' was deleted at v 0.40.
+
+sub version {
+    my $self = shift;
+    return $self->{versionTable} || 'unknown';
+}
+
+my (%ChangeOK, %ChangeNG);
+@ChangeOK{ @ChangeOK } = ();
+@ChangeNG{ @ChangeNG } = ();
+
+sub change {
+    my $self = shift;
+    my %hash = @_;
+    my %old;
+    if (exists $hash{alternate}) {
+	if (exists $hash{variable}) {
+	    delete $hash{alternate};
+	} else {
+	    $hash{variable} = $hash{alternate};
+	}
+    }
+    foreach my $k (keys %hash) {
+	if (exists $ChangeOK{$k}) {
+	    $old{$k} = $self->{$k};
+	    $self->{$k} = $hash{$k};
+	} elsif (exists $ChangeNG{$k}) {
+	    croak "change of $k via change() is not allowed!";
+	}
+	# else => ignored
+    }
+    $self->checkCollator();
+    return wantarray ? %old : $self;
+}
+
+sub _checkLevel {
+    my $level = shift;
+    my $key   = shift; # 'level' or 'backwards'
+    MinLevel <= $level or croak sprintf
+	"Illegal level %d (in value for key '%s') lower than %d.",
+	    $level, $key, MinLevel;
+    $level <= MaxLevel or croak sprintf
+	"Unsupported level %d (in value for key '%s') higher than %d.",
+	    $level, $key, MaxLevel;
+}
+
+my %DerivCode = (
+    8 => \&_derivCE_8,
+    9 => \&_derivCE_9,
+   11 => \&_derivCE_9, # 11 == 9
+   14 => \&_derivCE_14,
+   16 => \&_derivCE_14, # 16 == 14
+   18 => \&_derivCE_18,
+   20 => \&_derivCE_20,
+   22 => \&_derivCE_22,
+   24 => \&_derivCE_24,
+   26 => \&_derivCE_24, # 26 == 24
+   28 => \&_derivCE_24, # 28 == 24
+   30 => \&_derivCE_24, # 30 == 24
+);
+
+sub checkCollator {
+    my $self = shift;
+    _checkLevel($self->{level}, "level");
+
+    $self->{derivCode} = $DerivCode{ $self->{UCA_Version} }
+	or croak "Illegal UCA version (passed $self->{UCA_Version}).";
+
+    $self->{variable} ||= $self->{alternate} || $self->{variableTable} ||
+				$self->{alternateTable} || 'shifted';
+    $self->{variable} = $self->{alternate} = lc($self->{variable});
+    exists $VariableOK{ $self->{variable} }
+	or croak "$PACKAGE unknown variable parameter name: $self->{variable}";
+
+    if (! defined $self->{backwards}) {
+	$self->{backwardsFlag} = 0;
+    } elsif (! ref $self->{backwards}) {
+	_checkLevel($self->{backwards}, "backwards");
+	$self->{backwardsFlag} = 1 << $self->{backwards};
+    } else {
+	my %level;
+	$self->{backwardsFlag} = 0;
+	for my $b (@{ $self->{backwards} }) {
+	    _checkLevel($b, "backwards");
+	    $level{$b} = 1;
+	}
+	for my $v (sort keys %level) {
+	    $self->{backwardsFlag} += 1 << $v;
+	}
+    }
+
+    defined $self->{rearrange} or $self->{rearrange} = [];
+    ref $self->{rearrange}
+	or croak "$PACKAGE: list for rearrangement must be store in ARRAYREF";
+
+    # keys of $self->{rearrangeHash} are $self->{rearrange}.
+    $self->{rearrangeHash} = undef;
+
+    if (@{ $self->{rearrange} }) {
+	@{ $self->{rearrangeHash} }{ @{ $self->{rearrange} } } = ();
+    }
+
+    $self->{normCode} = undef;
+
+    if (defined $self->{normalization}) {
+	eval { require Unicode::Normalize };
+	$@ and croak "Unicode::Normalize is required to normalize strings";
+
+	$CVgetCombinClass ||= \&Unicode::Normalize::getCombinClass;
+
+	if ($self->{normalization} =~ /^(?:NF)D\z/) { # tweak for default
+	    $self->{normCode} = \&Unicode::Normalize::NFD;
+	}
+	elsif ($self->{normalization} ne 'prenormalized') {
+	    my $norm = $self->{normalization};
+	    $self->{normCode} = sub {
+		Unicode::Normalize::normalize($norm, shift);
+	    };
+	    eval { $self->{normCode}->("") }; # try
+	    $@ and croak "$PACKAGE unknown normalization form name: $norm";
+	}
+    }
+    return;
+}
+
+sub new
+{
+    my $class = shift;
+    my $self = bless { @_ }, $class;
+
+### begin XS only ###
+    if (! exists $self->{table}     && !defined $self->{rewrite} &&
+	!defined $self->{undefName} && !defined $self->{ignoreName} &&
+	!defined $self->{undefChar} && !defined $self->{ignoreChar}) {
+	$self->{__useXS} = \&_fetch_simple;
+    } else {
+	$self->{__useXS} = undef;
+    }
+### end XS only ###
+
+    # keys of $self->{suppressHash} are $self->{suppress}.
+    if ($self->{suppress} && @{ $self->{suppress} }) {
+	@{ $self->{suppressHash} }{ @{ $self->{suppress} } } = ();
+    } # before read_table()
+
+    # If undef is passed explicitly, no file is read.
+    $self->{table} = $KeyFile if ! exists $self->{table};
+    $self->read_table() if defined $self->{table};
+
+    if ($self->{entry}) {
+	while ($self->{entry} =~ /([^\n]+)/g) {
+	    $self->parseEntry($1, TRUE);
+	}
+    }
+
+    # only in new(), not in change()
+    $self->{level} ||= MaxLevel;
+    $self->{UCA_Version} ||= UCA_Version();
+
+    $self->{overrideHangul} = FALSE
+	if ! exists $self->{overrideHangul};
+    $self->{overrideCJK} = FALSE
+	if ! exists $self->{overrideCJK};
+    $self->{normalization} = 'NFD'
+	if ! exists $self->{normalization};
+    $self->{rearrange} = $self->{rearrangeTable} ||
+	($self->{UCA_Version} <= 11 ? $DefaultRearrange : [])
+	if ! exists $self->{rearrange};
+    $self->{backwards} = $self->{backwardsTable}
+	if ! exists $self->{backwards};
+    exists $self->{long_contraction} or $self->{long_contraction}
+	= 22 <= $self->{UCA_Version} && $self->{UCA_Version} <= 24;
+
+    # checkCollator() will be called in change()
+    $self->checkCollator();
+
+    return $self;
+}
+
+sub parseAtmark {
+    my $self = shift;
+    my $line = shift; # after s/^\s*\@//
+
+    if ($line =~ /^version\s*(\S*)/) {
+	$self->{versionTable} ||= $1;
+    }
+    elsif ($line =~ /^variable\s+(\S*)/) { # since UTS #10-9
+	$self->{variableTable} ||= $1;
+    }
+    elsif ($line =~ /^alternate\s+(\S*)/) { # till UTS #10-8
+	$self->{alternateTable} ||= $1;
+    }
+    elsif ($line =~ /^backwards\s+(\S*)/) {
+	push @{ $self->{backwardsTable} }, $1;
+    }
+    elsif ($line =~ /^forwards\s+(\S*)/) { # perhaps no use
+	push @{ $self->{forwardsTable} }, $1;
+    }
+    elsif ($line =~ /^rearrange\s+(.*)/) { # (\S*) is NG
+	push @{ $self->{rearrangeTable} }, _getHexArray($1);
+    }
+}
+
+sub read_table {
+    my $self = shift;
+
+### begin XS only ###
+    if ($self->{__useXS}) {
+	my @rest = _fetch_rest(); # complex matter need to parse
+	for my $line (@rest) {
+	    next if $line =~ /^\s*#/;
+
+	    if ($line =~ s/^\s*\@//) {
+		$self->parseAtmark($line);
+	    } else {
+		$self->parseEntry($line);
+	    }
+	}
+	return;
+    }
+### end XS only ###
+
+    my($f, $fh);
+    foreach my $d (@INC) {
+	$f = File::Spec->catfile($d, @Path, $self->{table});
+	last if open($fh, $f);
+	$f = undef;
+    }
+    if (!defined $f) {
+	$f = File::Spec->catfile(@Path, $self->{table});
+	croak("$PACKAGE: Can't locate $f in \@INC (\@INC contains: @INC)");
+    }
+
+    while (my $line = <$fh>) {
+	next if $line =~ /^\s*#/;
+
+	if ($line =~ s/^\s*\@//) {
+	    $self->parseAtmark($line);
+	} else {
+	    $self->parseEntry($line);
+	}
+    }
+    close $fh;
+}
+
+
+##
+## get $line, parse it, and write an entry in $self
+##
+sub parseEntry
+{
+    my $self = shift;
+    my $line = shift;
+    my $tailoring = shift;
+    my($name, $entry, @uv, @key);
+
+    if (defined $self->{rewrite}) {
+	$line = $self->{rewrite}->($line);
+    }
+
+    return if $line !~ /^\s*[0-9A-Fa-f]/;
+
+    # removes comment and gets name
+    $name = $1
+	if $line =~ s/[#%]\s*(.*)//;
+    return if defined $self->{undefName} && $name =~ /$self->{undefName}/;
+
+    # gets element
+    my($e, $k) = split /;/, $line;
+    croak "Wrong Entry: <charList> must be separated by ';' from <collElement>"
+	if ! $k;
+
+    @uv = _getHexArray($e);
+    return if !@uv;
+    return if @uv > 1 && $self->{suppressHash} && !$tailoring &&
+		  exists $self->{suppressHash}{$uv[0]};
+    $entry = join(CODE_SEP, @uv); # in JCPS
+
+    if (defined $self->{undefChar} || defined $self->{ignoreChar}) {
+	my $ele = pack_U(@uv);
+
+	# regarded as if it were not stored in the table
+	return
+	    if defined $self->{undefChar} && $ele =~ /$self->{undefChar}/;
+
+	# replaced as completely ignorable
+	$k = '[.0000.0000.0000.0000]'
+	    if defined $self->{ignoreChar} && $ele =~ /$self->{ignoreChar}/;
+    }
+
+    # replaced as completely ignorable
+    $k = '[.0000.0000.0000.0000]'
+	if defined $self->{ignoreName} && $name =~ /$self->{ignoreName}/;
+
+    my $is_L3_ignorable = TRUE;
+
+    foreach my $arr ($k =~ /\[([^\[\]]+)\]/g) { # SPACEs allowed
+	my $var = $arr =~ /\*/; # exactly /^\*/ but be lenient.
+	my @wt = _getHexArray($arr);
+	push @key, pack(VCE_TEMPLATE, $var, @wt);
+	$is_L3_ignorable = FALSE
+	    if $wt[0] || $wt[1] || $wt[2];
+	# Conformance Test for 3.1.1 and 4.0.0 shows Level 3 ignorable
+	# is completely ignorable.
+	# For expansion, an entry $is_L3_ignorable
+	# if and only if "all" CEs are [.0000.0000.0000].
+    }
+
+    $self->{mapping}{$entry} = $is_L3_ignorable ? [] : \@key;
+
+    if (@uv > 1) {
+	if (!$self->{maxlength}{$uv[0]} || $self->{maxlength}{$uv[0]} < @uv) {
+	    $self->{maxlength}{$uv[0]} = @uv;
+	}
+    }
+    while (@uv > 2) {
+	pop @uv;
+	my $fake_entry = join(CODE_SEP, @uv); # in JCPS
+	$self->{contraction}{$fake_entry} = 1;
+    }
+}
+
+
+sub viewSortKey
+{
+    my $self = shift;
+    my $str  = shift;
+    $self->visualizeSortKey($self->getSortKey($str));
+}
+
+
+sub process
+{
+    my $self = shift;
+    my $str  = shift;
+    my $prep = $self->{preprocess};
+    my $norm = $self->{normCode};
+
+    $str = &$prep($str) if ref $prep;
+    $str = &$norm($str) if ref $norm;
+    return $str;
+}
+
+##
+## arrayref of JCPS   = splitEnt(string to be collated)
+## arrayref of arrayref[JCPS, ini_pos, fin_pos] = splitEnt(string, TRUE)
+##
+sub splitEnt
+{
+    my $self = shift;
+    my $str  = shift;
+    my $wLen = shift; # with Length
+
+    my $map  = $self->{mapping};
+    my $max  = $self->{maxlength};
+    my $reH  = $self->{rearrangeHash};
+    my $vers = $self->{UCA_Version};
+    my $ver9 = $vers >= 9 && $vers <= 11;
+    my $long = $self->{long_contraction};
+    my $uXS  = $self->{__useXS}; ### XS only
+
+    my @buf;
+
+    # get array of Unicode code point of string.
+    my @src = unpack_U($str);
+
+    # rearrangement:
+    # Character positions are not kept if rearranged,
+    # then neglected if $wLen is true.
+    if ($reH && ! $wLen) {
+	for (my $i = 0; $i < @src; $i++) {
+	    if (exists $reH->{ $src[$i] } && $i + 1 < @src) {
+		($src[$i], $src[$i+1]) = ($src[$i+1], $src[$i]);
+		$i++;
+	    }
+	}
+    }
+
+    # remove a code point marked as a completely ignorable.
+    for (my $i = 0; $i < @src; $i++) {
+	if ($vers <= 20 && _isIllegal($src[$i])) {
+	    $src[$i] = undef;
+	} elsif ($ver9) {
+	    $src[$i] = undef if $map->{ $src[$i] }
+			   ? @{ $map->{ $src[$i] } } == 0
+			   : $uXS && _ignorable_simple($src[$i]); ### XS only
+	}
+    }
+
+    for (my $i = 0; $i < @src; $i++) {
+	my $jcps = $src[$i];
+
+	# skip removed code point
+	if (! defined $jcps) {
+	    if ($wLen && @buf) {
+		$buf[-1][2] = $i + 1;
+	    }
+	    next;
+	}
+
+	my $i_orig = $i;
+
+	# find contraction
+	if ($max->{$jcps}) {
+	    my $temp_jcps = $jcps;
+	    my $jcpsLen = 1;
+	    my $maxLen = $max->{$jcps};
+
+	    for (my $p = $i + 1; $jcpsLen < $maxLen && $p < @src; $p++) {
+		next if ! defined $src[$p];
+		$temp_jcps .= CODE_SEP . $src[$p];
+		$jcpsLen++;
+		if ($map->{$temp_jcps}) {
+		    $jcps = $temp_jcps;
+		    $i = $p;
+		}
+	    }
+
+	# discontiguous contraction with Combining Char (cf. UTS#10, S2.1).
+	# This process requires Unicode::Normalize.
+	# If "normalization" is undef, here should be skipped *always*
+	# (in spite of bool value of $CVgetCombinClass),
+	# since canonical ordering cannot be expected.
+	# Blocked combining character should not be contracted.
+
+	    # $self->{normCode} is false in the case of "prenormalized".
+	    if ($self->{normalization}) {
+		my $cont = $self->{contraction};
+		my $preCC = 0;
+		my $preCC_uc = 0;
+		my $jcps_uc = $jcps;
+		my(@out, @out_uc);
+
+		for (my $p = $i + 1; $p < @src; $p++) {
+		    next if ! defined $src[$p];
+		    my $curCC = $CVgetCombinClass->($src[$p]);
+		    last unless $curCC;
+		    my $tail = CODE_SEP . $src[$p];
+
+		    if ($preCC != $curCC && $map->{$jcps.$tail}) {
+			$jcps .= $tail;
+			push @out, $p;
+		    } else {
+			$preCC = $curCC;
+		    }
+
+		    next if !$long;
+
+		    if ($preCC_uc != $curCC && ($map->{$jcps_uc.$tail} ||
+					       $cont->{$jcps_uc.$tail})) {
+			$jcps_uc .= $tail;
+			push @out_uc, $p;
+		    } else {
+			$preCC_uc = $curCC;
+		    }
+		}
+
+		if (@out_uc && $map->{$jcps_uc}) {
+		    $jcps = $jcps_uc;
+		    $src[$_] = undef for @out_uc;
+		} else {
+		    $src[$_] = undef for @out;
+		}
+	    }
+	}
+
+	# skip completely ignorable
+	if ($map->{$jcps} ? @{ $map->{$jcps} } == 0 :
+	    $uXS && $jcps !~ /;/ && _ignorable_simple($jcps)) { ### XS only
+	    if ($wLen && @buf) {
+		$buf[-1][2] = $i + 1;
+	    }
+	    next;
+	}
+
+	push @buf, $wLen ? [$jcps, $i_orig, $i + 1] : $jcps;
+    }
+    return \@buf;
+}
+
+##
+## VCE = _pack_override(input, codepoint, derivCode)
+##
+sub _pack_override ($$$) {
+    my $r = shift;
+    my $u = shift;
+    my $der = shift;
+
+    if (ref $r) {
+	return pack(VCE_TEMPLATE, NON_VAR, @$r);
+    } elsif (defined $r) {
+	return pack(VCE_TEMPLATE, NON_VAR, $r, Min2Wt, Min3Wt, $u);
+    } else {
+	$u = 0xFFFD if 0x10FFFF < $u;
+	return $der->($u);
+    }
+}
+
+##
+## list of VCE = getWt(JCPS)
+##
+sub getWt
+{
+    my $self = shift;
+    my $u    = shift;
+    my $map  = $self->{mapping};
+    my $der  = $self->{derivCode};
+    my $out  = $self->{overrideOut};
+    my $uXS  = $self->{__useXS}; ### XS only
+
+    return if !defined $u;
+    return $self->varCE($HighestVCE) if $u eq 0xFFFF && $self->{highestFFFF};
+    return $self->varCE($minimalVCE) if $u eq 0xFFFE && $self->{minimalFFFE};
+    $u = 0xFFFD if $u !~ /;/ && 0x10FFFF < $u && !$out;
+
+    my @ce;
+    if ($map->{$u}) {
+	@ce = @{ $map->{$u} }; # $u may be a contraction
+### begin XS only ###
+    } elsif ($uXS && _exists_simple($u)) {
+	@ce = _fetch_simple($u);
+### end XS only ###
+    } elsif (Hangul_SIni <= $u && $u <= Hangul_SFin) {
+	my $hang = $self->{overrideHangul};
+	if ($hang) {
+	    @ce = map _pack_override($_, $u, $der), $hang->($u);
+	} elsif (!defined $hang) {
+	    @ce = $der->($u);
+	} else {
+	    my $max  = $self->{maxlength};
+	    my @decH = _decompHangul($u);
+
+	    if (@decH == 2) {
+		my $contract = join(CODE_SEP, @decH);
+		@decH = ($contract) if $map->{$contract};
+	    } else { # must be <@decH == 3>
+		if ($max->{$decH[0]}) {
+		    my $contract = join(CODE_SEP, @decH);
+		    if ($map->{$contract}) {
+			@decH = ($contract);
+		    } else {
+			$contract = join(CODE_SEP, @decH[0,1]);
+			$map->{$contract} and @decH = ($contract, $decH[2]);
+		    }
+		    # even if V's ignorable, LT contraction is not supported.
+		    # If such a situation were required, NFD should be used.
+		}
+		if (@decH == 3 && $max->{$decH[1]}) {
+		    my $contract = join(CODE_SEP, @decH[1,2]);
+		    $map->{$contract} and @decH = ($decH[0], $contract);
+		}
+	    }
+
+	    @ce = map({
+		    $map->{$_} ? @{ $map->{$_} } :
+		$uXS && _exists_simple($_) ? _fetch_simple($_) : ### XS only
+		    $der->($_);
+		} @decH);
+	}
+    } elsif ($out && 0x10FFFF < $u) {
+	@ce = map _pack_override($_, $u, $der), $out->($u);
+    } else {
+	my $cjk  = $self->{overrideCJK};
+	my $vers = $self->{UCA_Version};
+	if ($cjk && _isUIdeo($u, $vers)) {
+	    @ce = map _pack_override($_, $u, $der), $cjk->($u);
+	} elsif ($vers == 8 && defined $cjk && _isUIdeo($u, 0)) {
+	    @ce = _uideoCE_8($u);
+	} else {
+	    @ce = $der->($u);
+	}
+    }
+    return map $self->varCE($_), @ce;
+}
+
+
+##
+## string sortkey = getSortKey(string arg)
+##
+sub getSortKey
+{
+    my $self = shift;
+    my $orig = shift;
+    my $str  = $self->process($orig);
+    my $rEnt = $self->splitEnt($str); # get an arrayref of JCPS
+    my $vers = $self->{UCA_Version};
+    my $term = $self->{hangul_terminator};
+    my $lev  = $self->{level};
+    my $iden = $self->{identical};
+
+    my @buf; # weight arrays
+    if ($term) {
+	my $preHST = '';
+	my $termCE = $self->varCE(pack(VCE_TEMPLATE, NON_VAR, $term, 0,0,0));
+	foreach my $jcps (@$rEnt) {
+	    # weird things like VL, TL-contraction are not considered!
+	    my $curHST = join '', map getHST($_, $vers), split /;/, $jcps;
+	    if ($preHST && !$curHST || # hangul before non-hangul
+		$preHST =~ /L\z/ && $curHST =~ /^T/ ||
+		$preHST =~ /V\z/ && $curHST =~ /^L/ ||
+		$preHST =~ /T\z/ && $curHST =~ /^[LV]/) {
+		push @buf, $termCE;
+	    }
+	    $preHST = $curHST;
+	    push @buf, $self->getWt($jcps);
+	}
+	push @buf, $termCE if $preHST; # end at hangul
+    } else {
+	foreach my $jcps (@$rEnt) {
+	    push @buf, $self->getWt($jcps);
+	}
+    }
+
+    my $rkey = $self->mk_SortKey(\@buf); ### XS only
+
+    if ($iden || $vers >= 26 && $lev == MaxLevel) {
+	$rkey .= LEVEL_SEP;
+	$rkey .= pack(TIE_TEMPLATE, unpack_U($str)) if $iden;
+    }
+    return $rkey;
+}
+
+
+##
+## int compare = cmp(string a, string b)
+##
+sub cmp { $_[0]->getSortKey($_[1]) cmp $_[0]->getSortKey($_[2]) }
+sub eq  { $_[0]->getSortKey($_[1]) eq  $_[0]->getSortKey($_[2]) }
+sub ne  { $_[0]->getSortKey($_[1]) ne  $_[0]->getSortKey($_[2]) }
+sub lt  { $_[0]->getSortKey($_[1]) lt  $_[0]->getSortKey($_[2]) }
+sub le  { $_[0]->getSortKey($_[1]) le  $_[0]->getSortKey($_[2]) }
+sub gt  { $_[0]->getSortKey($_[1]) gt  $_[0]->getSortKey($_[2]) }
+sub ge  { $_[0]->getSortKey($_[1]) ge  $_[0]->getSortKey($_[2]) }
+
+##
+## list[strings] sorted = sort(list[strings] arg)
+##
+sub sort {
+    my $obj = shift;
+    return
+	map { $_->[1] }
+	    sort{ $a->[0] cmp $b->[0] }
+		map [ $obj->getSortKey($_), $_ ], @_;
+}
+
+
+##
+## bool _nonIgnorAtLevel(arrayref weights, int level)
+##
+sub _nonIgnorAtLevel($$)
+{
+    my $wt = shift;
+    return if ! defined $wt;
+    my $lv = shift;
+    return grep($wt->[$_-1] != 0, MinLevel..$lv) ? TRUE : FALSE;
+}
+
+##
+## bool _eqArray(
+##    arrayref of arrayref[weights] source,
+##    arrayref of arrayref[weights] substr,
+##    int level)
+## * comparison of graphemes vs graphemes.
+##   @$source >= @$substr must be true (check it before call this);
+##
+sub _eqArray($$$)
+{
+    my $source = shift;
+    my $substr = shift;
+    my $lev = shift;
+
+    for my $g (0..@$substr-1){
+	# Do the $g'th graphemes have the same number of AV weights?
+	return if @{ $source->[$g] } != @{ $substr->[$g] };
+
+	for my $w (0..@{ $substr->[$g] }-1) {
+	    for my $v (0..$lev-1) {
+		return if $source->[$g][$w][$v] != $substr->[$g][$w][$v];
+	    }
+	}
+    }
+    return 1;
+}
+
+##
+## (int position, int length)
+## int position = index(string, substring, position, [undoc'ed global])
+##
+## With "global" (only for the list context),
+##  returns list of arrayref[position, length].
+##
+sub index
+{
+    my $self = shift;
+    $self->{preprocess} and
+	croak "Don't use Preprocess with index(), match(), etc.";
+    $self->{normCode} and
+	croak "Don't use Normalization with index(), match(), etc.";
+
+    my $str  = shift;
+    my $len  = length($str);
+    my $sub  = shift;
+    my $subE = $self->splitEnt($sub);
+    my $pos  = @_ ? shift : 0;
+       $pos  = 0 if $pos < 0;
+    my $glob = shift;
+
+    my $lev  = $self->{level};
+    my $v2i  = $self->{UCA_Version} >= 9 &&
+		$self->{variable} ne 'non-ignorable';
+
+    if (! @$subE) {
+	my $temp = $pos <= 0 ? 0 : $len <= $pos ? $len : $pos;
+	return $glob
+	    ? map([$_, 0], $temp..$len)
+	    : wantarray ? ($temp,0) : $temp;
+    }
+    $len < $pos
+	and return wantarray ? () : NOMATCHPOS;
+    my $strE = $self->splitEnt($pos ? substr($str, $pos) : $str, TRUE);
+    @$strE
+	or return wantarray ? () : NOMATCHPOS;
+
+    my(@strWt, @iniPos, @finPos, @subWt, @g_ret);
+
+    my $last_is_variable;
+    for my $vwt (map $self->getWt($_), @$subE) {
+	my($var, @wt) = unpack(VCE_TEMPLATE, $vwt);
+	my $to_be_pushed = _nonIgnorAtLevel(\@wt,$lev);
+
+	# "Ignorable (L1, L2) after Variable" since track. v. 9
+	if ($v2i) {
+	    if ($var) {
+		$last_is_variable = TRUE;
+	    }
+	    elsif (!$wt[0]) { # ignorable
+		$to_be_pushed = FALSE if $last_is_variable;
+	    }
+	    else {
+		$last_is_variable = FALSE;
+	    }
+	}
+
+	if (@subWt && !$var && !$wt[0]) {
+	    push @{ $subWt[-1] }, \@wt if $to_be_pushed;
+	} elsif ($to_be_pushed) {
+	    push @subWt, [ \@wt ];
+	}
+	# else ===> skipped
+    }
+
+    my $count = 0;
+    my $end = @$strE - 1;
+
+    $last_is_variable = FALSE; # reuse
+    for (my $i = 0; $i <= $end; ) { # no $i++
+	my $found_base = 0;
+
+	# fetch a grapheme
+	while ($i <= $end && $found_base == 0) {
+	    for my $vwt ($self->getWt($strE->[$i][0])) {
+		my($var, @wt) = unpack(VCE_TEMPLATE, $vwt);
+		my $to_be_pushed = _nonIgnorAtLevel(\@wt,$lev);
+
+		# "Ignorable (L1, L2) after Variable" since track. v. 9
+		if ($v2i) {
+		    if ($var) {
+			$last_is_variable = TRUE;
+		    }
+		    elsif (!$wt[0]) { # ignorable
+			$to_be_pushed = FALSE if $last_is_variable;
+		    }
+		    else {
+			$last_is_variable = FALSE;
+		    }
+		}
+
+		if (@strWt && !$var && !$wt[0]) {
+		    push @{ $strWt[-1] }, \@wt if $to_be_pushed;
+		    $finPos[-1] = $strE->[$i][2];
+		} elsif ($to_be_pushed) {
+		    push @strWt, [ \@wt ];
+		    push @iniPos, $found_base ? NOMATCHPOS : $strE->[$i][1];
+		    $finPos[-1] = NOMATCHPOS if $found_base;
+		    push @finPos, $strE->[$i][2];
+		    $found_base++;
+		}
+		# else ===> no-op
+	    }
+	    $i++;
+	}
+
+	# try to match
+	while ( @strWt > @subWt || (@strWt == @subWt && $i > $end) ) {
+	    if ($iniPos[0] != NOMATCHPOS &&
+		    $finPos[$#subWt] != NOMATCHPOS &&
+			_eqArray(\@strWt, \@subWt, $lev)) {
+		my $temp = $iniPos[0] + $pos;
+
+		if ($glob) {
+		    push @g_ret, [$temp, $finPos[$#subWt] - $iniPos[0]];
+		    splice @strWt,  0, $#subWt;
+		    splice @iniPos, 0, $#subWt;
+		    splice @finPos, 0, $#subWt;
+		}
+		else {
+		    return wantarray
+			? ($temp, $finPos[$#subWt] - $iniPos[0])
+			:  $temp;
+		}
+	    }
+	    shift @strWt;
+	    shift @iniPos;
+	    shift @finPos;
+	}
+    }
+
+    return $glob
+	? @g_ret
+	: wantarray ? () : NOMATCHPOS;
+}
+
+##
+## scalarref to matching part = match(string, substring)
+##
+sub match
+{
+    my $self = shift;
+    if (my($pos,$len) = $self->index($_[0], $_[1])) {
+	my $temp = substr($_[0], $pos, $len);
+	return wantarray ? $temp : \$temp;
+	# An lvalue ref \substr should be avoided,
+	# since its value is affected by modification of its referent.
+    }
+    else {
+	return;
+    }
+}
+
+##
+## arrayref matching parts = gmatch(string, substring)
+##
+sub gmatch
+{
+    my $self = shift;
+    my $str  = shift;
+    my $sub  = shift;
+    return map substr($str, $_->[0], $_->[1]),
+		$self->index($str, $sub, 0, 'g');
+}
+
+##
+## bool subst'ed = subst(string, substring, replace)
+##
+sub subst
+{
+    my $self = shift;
+    my $code = ref $_[2] eq 'CODE' ? $_[2] : FALSE;
+
+    if (my($pos,$len) = $self->index($_[0], $_[1])) {
+	if ($code) {
+	    my $mat = substr($_[0], $pos, $len);
+	    substr($_[0], $pos, $len, $code->($mat));
+	} else {
+	    substr($_[0], $pos, $len, $_[2]);
+	}
+	return TRUE;
+    }
+    else {
+	return FALSE;
+    }
+}
+
+##
+## int count = gsubst(string, substring, replace)
+##
+sub gsubst
+{
+    my $self = shift;
+    my $code = ref $_[2] eq 'CODE' ? $_[2] : FALSE;
+    my $cnt = 0;
+
+    # Replacement is carried out from the end, then use reverse.
+    for my $pos_len (reverse $self->index($_[0], $_[1], 0, 'g')) {
+	if ($code) {
+	    my $mat = substr($_[0], $pos_len->[0], $pos_len->[1]);
+	    substr($_[0], $pos_len->[0], $pos_len->[1], $code->($mat));
+	} else {
+	    substr($_[0], $pos_len->[0], $pos_len->[1], $_[2]);
+	}
+	$cnt++;
+    }
+    return $cnt;
+}
+
+1;
+__END__
+
+=head1 NAME
+
+Unicode::Collate - Unicode Collation Algorithm
+
+=head1 SYNOPSIS
+
+  use Unicode::Collate;
+
+  #construct
+  $Collator = Unicode::Collate->new(%tailoring);
+
+  #sort
+  @sorted = $Collator->sort(@not_sorted);
+
+  #compare
+  $result = $Collator->cmp($a, $b); # returns 1, 0, or -1.
+
+B<Note:> Strings in C<@not_sorted>, C<$a> and C<$b> are interpreted
+according to Perl's Unicode support. See L<perlunicode>,
+L<perluniintro>, L<perlunitut>, L<perlunifaq>, L<utf8>.
+Otherwise you can use C<preprocess> or should decode them before.
+
+=head1 DESCRIPTION
+
+This module is an implementation of Unicode Technical Standard #10
+(a.k.a. UTS #10) - Unicode Collation Algorithm (a.k.a. UCA).
+
+=head2 Constructor and Tailoring
+
+The C<new> method returns a collator object. If new() is called
+with no parameters, the collator should do the default collation.
+
+   $Collator = Unicode::Collate->new(
+      UCA_Version => $UCA_Version,
+      alternate => $alternate, # alias for 'variable'
+      backwards => $levelNumber, # or \@levelNumbers
+      entry => $element,
+      hangul_terminator => $term_primary_weight,
+      highestFFFF => $bool,
+      identical => $bool,
+      ignoreName => qr/$ignoreName/,
+      ignoreChar => qr/$ignoreChar/,
+      ignore_level2 => $bool,
+      katakana_before_hiragana => $bool,
+      level => $collationLevel,
+      long_contraction => $bool,
+      minimalFFFE => $bool,
+      normalization  => $normalization_form,
+      overrideCJK => \&overrideCJK,
+      overrideHangul => \&overrideHangul,
+      preprocess => \&preprocess,
+      rearrange => \@charList,
+      rewrite => \&rewrite,
+      suppress => \@charList,
+      table => $filename,
+      undefName => qr/$undefName/,
+      undefChar => qr/$undefChar/,
+      upper_before_lower => $bool,
+      variable => $variable,
+   );
+
+=over 4
+
+=item UCA_Version
+
+If the revision (previously "tracking version") number of UCA is given,
+behavior of that revision is emulated on collating.
+If omitted, the return value of C<UCA_Version()> is used.
+
+The following revisions are supported.  The default is 30.
+
+     UCA       Unicode Standard         DUCET (@version)
+   -------------------------------------------------------
+      8              3.1                3.0.1 (3.0.1d9)
+      9     3.1 with Corrigendum 3      3.1.1 (3.1.1)
+     11              4.0                4.0.0 (4.0.0)
+     14             4.1.0               4.1.0 (4.1.0)
+     16              5.0                5.0.0 (5.0.0)
+     18             5.1.0               5.1.0 (5.1.0)
+     20             5.2.0               5.2.0 (5.2.0)
+     22             6.0.0               6.0.0 (6.0.0)
+     24             6.1.0               6.1.0 (6.1.0)
+     26             6.2.0               6.2.0 (6.2.0)
+     28             6.3.0               6.3.0 (6.3.0)
+     30             7.0.0               7.0.0 (7.0.0)
+
+* See below C<long_contraction> with C<UCA_Version> 22 and 24.
+
+* Noncharacters (e.g. U+FFFF) are not ignored, and can be overridden
+since C<UCA_Version> 22.
+
+* Out-of-range codepoints (greater than U+10FFFF) are not ignored,
+and can be overridden since C<UCA_Version> 22.
+
+* Fully ignorable characters were ignored, and would not interrupt
+contractions with C<UCA_Version> 9 and 11.
+
+* Treatment of ignorables after variables and some behaviors
+were changed at C<UCA_Version> 9.
+
+* Characters regarded as CJK unified ideographs (cf. C<overrideCJK>)
+depend on C<UCA_Version>.
+
+* Many hangul jamo are assigned at C<UCA_Version> 20, that will affect
+C<hangul_terminator>.
+
+=item alternate
+
+-- see 3.2.2 Alternate Weighting, version 8 of UTS #10
+
+For backward compatibility, C<alternate> (old name) can be used
+as an alias for C<variable>.
+
+=item backwards
+
+-- see 3.4 Backward Accents, UTS #10.
+
+     backwards => $levelNumber or \@levelNumbers
+
+Weights in reverse order; ex. level 2 (diacritic ordering) in French.
+If omitted (or C<$levelNumber> is C<undef> or C<\@levelNumbers> is C<[]>),
+forwards at all the levels.
+
+=item entry
+
+-- see 5 Tailoring; 9.1 Allkeys File Format, UTS #10.
+
+If the same character (or a sequence of characters) exists
+in the collation element table through C<table>,
+mapping to collation elements is overridden.
+If it does not exist, the mapping is defined additionally.
+
+    entry => <<'ENTRY', # for DUCET v4.0.0 (allkeys-4.0.0.txt)
+0063 0068 ; [.0E6A.0020.0002.0063] # ch
+0043 0068 ; [.0E6A.0020.0007.0043] # Ch
+0043 0048 ; [.0E6A.0020.0008.0043] # CH
+006C 006C ; [.0F4C.0020.0002.006C] # ll
+004C 006C ; [.0F4C.0020.0007.004C] # Ll
+004C 004C ; [.0F4C.0020.0008.004C] # LL
+00F1      ; [.0F7B.0020.0002.00F1] # n-tilde
+006E 0303 ; [.0F7B.0020.0002.00F1] # n-tilde
+00D1      ; [.0F7B.0020.0008.00D1] # N-tilde
+004E 0303 ; [.0F7B.0020.0008.00D1] # N-tilde
+ENTRY
+
+    entry => <<'ENTRY', # for DUCET v4.0.0 (allkeys-4.0.0.txt)
+00E6 ; [.0E33.0020.0002.00E6][.0E8B.0020.0002.00E6] # ae ligature as <a><e>
+00C6 ; [.0E33.0020.0008.00C6][.0E8B.0020.0008.00C6] # AE ligature as <A><E>
+ENTRY
+
+B<NOTE:> The code point in the UCA file format (before C<';'>)
+B<must> be a Unicode code point (defined as hexadecimal),
+but not a native code point.
+So C<0063> must always denote C<U+0063>,
+but not a character of C<"\x63">.
+
+Weighting may vary depending on collation element table.
+So ensure the weights defined in C<entry> will be consistent with
+those in the collation element table loaded via C<table>.
+
+In DUCET v4.0.0, primary weight of C<C> is C<0E60>
+and that of C<D> is C<0E6D>. So setting primary weight of C<CH> to C<0E6A>
+(as a value between C<0E60> and C<0E6D>)
+makes ordering as C<C E<lt> CH E<lt> D>.
+Exactly speaking DUCET already has some characters between C<C> and C<D>:
+C<small capital C> (C<U+1D04>) with primary weight C<0E64>,
+C<c-hook/C-hook> (C<U+0188/U+0187>) with C<0E65>,
+and C<c-curl> (C<U+0255>) with C<0E69>.
+Then primary weight C<0E6A> for C<CH> makes C<CH>
+ordered between C<c-curl> and C<D>.
+
+=item hangul_terminator
+
+-- see 7.1.4 Trailing Weights, UTS #10.
+
+If a true value is given (non-zero but should be positive),
+it will be added as a terminator primary weight to the end of
+every standard Hangul syllable. Secondary and any higher weights
+for terminator are set to zero.
+If the value is false or C<hangul_terminator> key does not exist,
+insertion of terminator weights will not be performed.
+
+Boundaries of Hangul syllables are determined
+according to conjoining Jamo behavior in F<the Unicode Standard>
+and F<HangulSyllableType.txt>.
+
+B<Implementation Note:>
+(1) For expansion mapping (Unicode character mapped
+to a sequence of collation elements), a terminator will not be added
+between collation elements, even if Hangul syllable boundary exists there.
+Addition of terminator is restricted to the next position
+to the last collation element.
+
+(2) Non-conjoining Hangul letters
+(Compatibility Jamo, halfwidth Jamo, and enclosed letters) are not
+automatically terminated with a terminator primary weight.
+These characters may need terminator included in a collation element
+table beforehand.
+
+=item highestFFFF
+
+-- see 5.14 Collation Elements, UTS #35.
+
+If the parameter is made true, C<U+FFFF> has a highest primary weight.
+When a boolean of C<$coll-E<gt>ge($str, "abc")> and
+C<$coll-E<gt>le($str, "abc\x{FFFF}")> is true, it is expected that C<$str>
+begins with C<"abc">, or another primary equivalent.
+C<$str> may be C<"abcd">, C<"abc012">, but should not include C<U+FFFF>
+such as C<"abc\x{FFFF}xyz">.
+
+C<$coll-E<gt>le($str, "abc\x{FFFF}")> works like C<$coll-E<gt>lt($str, "abd")>
+almost, but the latter has a problem that you should know which letter is
+next to C<c>. For a certain language where C<ch> as the next letter,
+C<"abch"> is greater than C<"abc\x{FFFF}">, but less than C<"abd">.
+
+Note:
+This is equivalent to C<(entry =E<gt> 'FFFF ; [.FFFE.0020.0005.FFFF]')>.
+Any other character than C<U+FFFF> can be tailored by C<entry>.
+
+=item identical
+
+-- see A.3 Deterministic Comparison, UTS #10.
+
+By default, strings whose weights are equal should be equal,
+even though their code points are not equal.
+Completely ignorable characters are ignored.
+
+If the parameter is made true, a final, tie-breaking level is used.
+If no difference of weights is found after the comparison through
+all the level specified by C<level>, the comparison with code points
+will be performed.
+For the tie-breaking comparison, the sort key has code points
+of the original string appended.
+Completely ignorable characters are not ignored.
+
+If C<preprocess> and/or C<normalization> is applied, the code points
+of the string after them (in NFD by default) are used.
+
+=item ignoreChar
+
+=item ignoreName
+
+-- see 3.6 Variable Weighting, UTS #10.
+
+Makes the entry in the table completely ignorable;
+i.e. as if the weights were zero at all level.
+
+Through C<ignoreChar>, any character matching C<qr/$ignoreChar/>
+will be ignored. Through C<ignoreName>, any character whose name
+(given in the C<table> file as a comment) matches C<qr/$ignoreName/>
+will be ignored.
+
+E.g. when 'a' and 'e' are ignorable,
+'element' is equal to 'lament' (or 'lmnt').
+
+=item ignore_level2
+
+-- see 5.1 Parametric Tailoring, UTS #10.
+
+By default, case-sensitive comparison (that is level 3 difference)
+won't ignore accents (that is level 2 difference).
+
+If the parameter is made true, accents (and other primary ignorable
+characters) are ignored, even though cases are taken into account.
+
+B<NOTE>: C<level> should be 3 or greater.
+
+=item katakana_before_hiragana
+
+-- see 7.2 Tertiary Weight Table, UTS #10.
+
+By default, hiragana is before katakana.
+If the parameter is made true, this is reversed.
+
+B<NOTE>: This parameter simplemindedly assumes that any hiragana/katakana
+distinctions must occur in level 3, and their weights at level 3 must be
+same as those mentioned in 7.3.1, UTS #10.
+If you define your collation elements which violate this requirement,
+this parameter does not work validly.
+
+=item level
+
+-- see 4.3 Form Sort Key, UTS #10.
+
+Set the maximum level.
+Any higher levels than the specified one are ignored.
+
+  Level 1: alphabetic ordering
+  Level 2: diacritic ordering
+  Level 3: case ordering
+  Level 4: tie-breaking (e.g. in the case when variable is 'shifted')
+
+  ex.level => 2,
+
+If omitted, the maximum is the 4th.
+
+B<NOTE:> The DUCET includes weights over 0xFFFF at the 4th level.
+But this module only uses weights within 0xFFFF.
+When C<variable> is 'blanked' or 'non-ignorable' (other than 'shifted'
+and 'shift-trimmed'), the level 4 may be unreliable.
+
+See also C<identical>.
+
+=item long_contraction
+
+-- see 3.8.2 Well-Formedness of the DUCET, 4.2 Produce Array, UTS #10.
+
+If the parameter is made true, for a contraction with three or more
+characters (here nicknamed "long contraction"), initial substrings
+will be handled.
+For example, a contraction ABC, where A is a starter, and B and C
+are non-starters (character with non-zero combining character class),
+will be detected even if there is not AB as a contraction.
+
+B<Default:> Usually false.
+If C<UCA_Version> is 22 or 24, and the value of C<long_contraction>
+is not specified in C<new()>, a true value is set implicitly.
+This is a workaround to pass Conformance Tests for Unicode 6.0.0 and 6.1.0.
+
+C<change()> handles C<long_contraction> explicitly only.
+If C<long_contraction> is not specified in C<change()>, even though
+C<UCA_Version> is changed, C<long_contraction> will not be changed.
+
+B<Limitation:> Scanning non-starters is one-way (no back tracking).
+If AB is found but not ABC is not found, other long contraction where
+the first character is A and the second is not B may not be found.
+
+Under C<(normalization =E<gt> undef)>, detection step of discontiguous
+contractions will be skipped.
+
+B<Note:> The following contractions in DUCET are not considered
+in steps S2.1.1 to S2.1.3, where they are discontiguous.
+
+    0FB2 0F71 0F80 (TIBETAN VOWEL SIGN VOCALIC RR)
+    0FB3 0F71 0F80 (TIBETAN VOWEL SIGN VOCALIC LL)
+
+For example C<TIBETAN VOWEL SIGN VOCALIC RR> with C<COMBINING TILDE OVERLAY>
+(C<U+0344>) is C<0FB2 0344 0F71 0F80> in NFD.
+In this case C<0FB2 0F80> (C<TIBETAN VOWEL SIGN VOCALIC R>) is detected,
+instead of C<0FB2 0F71 0F80>.
+Inserted C<0344> makes C<0FB2 0F71 0F80> discontiguous and lack of
+contraction C<0FB2 0F71> prohibits C<0FB2 0F71 0F80> from being detected.
+
+=item minimalFFFE
+
+-- see 5.14 Collation Elements, UTS #35.
+
+If the parameter is made true, C<U+FFFE> has a minimal primary weight.
+The comparison between C<"$a1\x{FFFE}$a2"> and C<"$b1\x{FFFE}$b2">
+first compares C<$a1> and C<$b1> at level 1, and
+then C<$a2> and C<$b2> at level 1, as followed.
+
+        "ab\x{FFFE}a"
+        "Ab\x{FFFE}a"
+        "ab\x{FFFE}c"
+        "Ab\x{FFFE}c"
+        "ab\x{FFFE}xyz"
+        "abc\x{FFFE}def"
+        "abc\x{FFFE}xYz"
+        "aBc\x{FFFE}xyz"
+        "abcX\x{FFFE}def"
+        "abcx\x{FFFE}xyz"
+        "b\x{FFFE}aaa"
+        "bbb\x{FFFE}a"
+
+Note:
+This is equivalent to C<(entry =E<gt> 'FFFE ; [.0001.0020.0005.FFFE]')>.
+Any other character than C<U+FFFE> can be tailored by C<entry>.
+
+=item normalization
+
+-- see 4.1 Normalize, UTS #10.
+
+If specified, strings are normalized before preparation of sort keys
+(the normalization is executed after preprocess).
+
+A form name C<Unicode::Normalize::normalize()> accepts will be applied
+as C<$normalization_form>.
+Acceptable names include C<'NFD'>, C<'NFC'>, C<'NFKD'>, and C<'NFKC'>.
+See C<Unicode::Normalize::normalize()> for detail.
+If omitted, C<'NFD'> is used.
+
+C<normalization> is performed after C<preprocess> (if defined).
+
+Furthermore, special values, C<undef> and C<"prenormalized">, can be used,
+though they are not concerned with C<Unicode::Normalize::normalize()>.
+
+If C<undef> (not a string C<"undef">) is passed explicitly
+as the value for this key,
+any normalization is not carried out (this may make tailoring easier
+if any normalization is not desired). Under C<(normalization =E<gt> undef)>,
+only contiguous contractions are resolved;
+e.g. even if C<A-ring> (and C<A-ring-cedilla>) is ordered after C<Z>,
+C<A-cedilla-ring> would be primary equal to C<A>.
+In this point,
+C<(normalization =E<gt> undef, preprocess =E<gt> sub { NFD(shift) })>
+B<is not> equivalent to C<(normalization =E<gt> 'NFD')>.
+
+In the case of C<(normalization =E<gt> "prenormalized")>,
+any normalization is not performed, but
+discontiguous contractions with combining characters are performed.
+Therefore
+C<(normalization =E<gt> 'prenormalized', preprocess =E<gt> sub { NFD(shift) })>
+B<is> equivalent to C<(normalization =E<gt> 'NFD')>.
+If source strings are finely prenormalized,
+C<(normalization =E<gt> 'prenormalized')> may save time for normalization.
+
+Except C<(normalization =E<gt> undef)>,
+B<Unicode::Normalize> is required (see also B<CAVEAT>).
+
+=item overrideCJK
+
+-- see 7.1 Derived Collation Elements, UTS #10.
+
+By default, CJK unified ideographs are ordered in Unicode codepoint
+order, but those in the CJK Unified Ideographs block are less than
+those in the CJK Unified Ideographs Extension A etc.
+
+    In the CJK Unified Ideographs block:
+    U+4E00..U+9FA5 if UCA_Version is 8, 9 or 11.
+    U+4E00..U+9FBB if UCA_Version is 14 or 16.
+    U+4E00..U+9FC3 if UCA_Version is 18.
+    U+4E00..U+9FCB if UCA_Version is 20 or 22.
+    U+4E00..U+9FCC if UCA_Version is 24 or later.
+
+    In the CJK Unified Ideographs Extension blocks:
+    Ext.A (U+3400..U+4DB5) and Ext.B (U+20000..U+2A6D6) in any UCA_Version.
+    Ext.C (U+2A700..U+2B734) if UCA_Version is 20 or later.
+    Ext.D (U+2B740..U+2B81D) if UCA_Version is 22 or later.
+
+Through C<overrideCJK>, ordering of CJK unified ideographs (including
+extensions) can be overridden.
+
+ex. CJK unified ideographs in the JIS code point order.
+
+  overrideCJK => sub {
+      my $u = shift;             # get a Unicode codepoint
+      my $b = pack('n', $u);     # to UTF-16BE
+      my $s = your_unicode_to_sjis_converter($b); # convert
+      my $n = unpack('n', $s);   # convert sjis to short
+      [ $n, 0x20, 0x2, $u ];     # return the collation element
+  },
+
+The return value may be an arrayref of 1st to 4th weights as shown
+above. The return value may be an integer as the primary weight
+as shown below.  If C<undef> is returned, the default derived
+collation element will be used.
+
+  overrideCJK => sub {
+      my $u = shift;             # get a Unicode codepoint
+      my $b = pack('n', $u);     # to UTF-16BE
+      my $s = your_unicode_to_sjis_converter($b); # convert
+      my $n = unpack('n', $s);   # convert sjis to short
+      return $n;                 # return the primary weight
+  },
+
+The return value may be a list containing zero or more of
+an arrayref, an integer, or C<undef>.
+
+ex. ignores all CJK unified ideographs.
+
+  overrideCJK => sub {()}, # CODEREF returning empty list
+
+   # where ->eq("Pe\x{4E00}rl", "Perl") is true
+   # as U+4E00 is a CJK unified ideograph and to be ignorable.
+
+If a false value (including C<undef>) is passed, C<overrideCJK>
+has no effect.
+C<$Collator-E<gt>change(overrideCJK =E<gt> 0)> resets the old one.
+
+But assignment of weight for CJK unified ideographs
+in C<table> or C<entry> is still valid.
+If C<undef> is passed explicitly as the value for this key,
+weights for CJK unified ideographs are treated as undefined.
+However when C<UCA_Version> E<gt> 8, C<(overrideCJK =E<gt> undef)>
+has no special meaning.
+
+B<Note:> In addition to them, 12 CJK compatibility ideographs (C<U+FA0E>,
+C<U+FA0F>, C<U+FA11>, C<U+FA13>, C<U+FA14>, C<U+FA1F>, C<U+FA21>, C<U+FA23>,
+C<U+FA24>, C<U+FA27>, C<U+FA28>, C<U+FA29>) are also treated as CJK unified
+ideographs. But they can't be overridden via C<overrideCJK> when you use
+DUCET, as the table includes weights for them. C<table> or C<entry> has
+priority over C<overrideCJK>.
+
+=item overrideHangul
+
+-- see 7.1 Derived Collation Elements, UTS #10.
+
+By default, Hangul syllables are decomposed into Hangul Jamo,
+even if C<(normalization =E<gt> undef)>.
+But the mapping of Hangul syllables may be overridden.
+
+This parameter works like C<overrideCJK>, so see there for examples.
+
+If you want to override the mapping of Hangul syllables,
+NFD and NFKD are not appropriate, since NFD and NFKD will decompose
+Hangul syllables before overriding. FCD may decompose Hangul syllables
+as the case may be.
+
+If a false value (but not C<undef>) is passed, C<overrideHangul>
+has no effect.
+C<$Collator-E<gt>change(overrideHangul =E<gt> 0)> resets the old one.
+
+If C<undef> is passed explicitly as the value for this key,
+weight for Hangul syllables is treated as undefined
+without decomposition into Hangul Jamo.
+But definition of weight for Hangul syllables
+in C<table> or C<entry> is still valid.
+
+=item overrideOut
+
+-- see 7.1.1 Handling Ill-Formed Code Unit Sequences, UTS #10.
+
+Perl seems to allow out-of-range values (greater than 0x10FFFF).
+By default, out-of-range values are replaced with C<U+FFFD>
+(REPLACEMENT CHARACTER) when C<UCA_Version> E<gt>= 22,
+or ignored when C<UCA_Version> E<lt>= 20.
+
+When C<UCA_Version> E<gt>= 22, the weights of out-of-range values
+can be overridden. Though C<table> or C<entry> are available for them,
+out-of-range values are too many.
+
+C<overrideOut> can perform it algorithmically.
+This parameter works like C<overrideCJK>, so see there for examples.
+
+ex. ignores all out-of-range values.
+
+  overrideOut => sub {()}, # CODEREF returning empty list
+
+If a false value (including C<undef>) is passed, C<overrideOut>
+has no effect.
+C<$Collator-E<gt>change(overrideOut =E<gt> 0)> resets the old one.
+
+B<NOTE ABOUT U+FFFD:>
+
+UCA recommends that out-of-range values should not be ignored for security
+reasons. Say, C<"pe\x{110000}rl"> should not be equal to C<"perl">.
+However, C<U+FFFD> is wrongly mapped to a variable collation element
+in DUCET for Unicode 6.0.0 to 6.2.0, that means out-of-range values will be
+ignored when C<variable> isn't C<Non-ignorable>.
+
+The mapping of C<U+FFFD> is corrected in Unicode 6.3.0.
+see L<http://www.unicode.org/reports/tr10/tr10-28.html#Trailing_Weights>
+(7.1.4 Trailing Weights). Such a correction is reproduced by this.
+
+  overrideOut => sub { 0xFFFD }, # CODEREF returning a very large integer
+
+This workaround is unnecessary since Unicode 6.3.0.
+
+=item preprocess
+
+-- see 5.4 Preprocessing, UTS #10.
+
+If specified, the coderef is used to preprocess each string
+before the formation of sort keys.
+
+ex. dropping English articles, such as "a" or "the".
+Then, "the pen" is before "a pencil".
+
+     preprocess => sub {
+           my $str = shift;
+           $str =~ s/\b(?:an?|the)\s+//gi;
+           return $str;
+        },
+
+C<preprocess> is performed before C<normalization> (if defined).
+
+ex. decoding strings in a legacy encoding such as shift-jis:
+
+    $sjis_collator = Unicode::Collate->new(
+        preprocess => \&your_shiftjis_to_unicode_decoder,
+    );
+    @result = $sjis_collator->sort(@shiftjis_strings);
+
+B<Note:> Strings returned from the coderef will be interpreted
+according to Perl's Unicode support. See L<perlunicode>,
+L<perluniintro>, L<perlunitut>, L<perlunifaq>, L<utf8>.
+
+=item rearrange
+
+-- see 3.5 Rearrangement, UTS #10.
+
+Characters that are not coded in logical order and to be rearranged.
+If C<UCA_Version> is equal to or less than 11, default is:
+
+    rearrange => [ 0x0E40..0x0E44, 0x0EC0..0x0EC4 ],
+
+If you want to disallow any rearrangement, pass C<undef> or C<[]>
+(a reference to empty list) as the value for this key.
+
+If C<UCA_Version> is equal to or greater than 14, default is C<[]>
+(i.e. no rearrangement).
+
+B<According to the version 9 of UCA, this parameter shall not be used;
+but it is not warned at present.>
+
+=item rewrite
+
+If specified, the coderef is used to rewrite lines in C<table> or C<entry>.
+The coderef will get each line, and then should return a rewritten line
+according to the UCA file format.
+If the coderef returns an empty line, the line will be skipped.
+
+e.g. any primary ignorable characters into tertiary ignorable:
+
+    rewrite => sub {
+        my $line = shift;
+        $line =~ s/\[\.0000\..{4}\..{4}\./[.0000.0000.0000./g;
+        return $line;
+    },
+
+This example shows rewriting weights. C<rewrite> is allowed to
+affect code points, weights, and the name.
+
+B<NOTE>: C<table> is available to use another table file;
+preparing a modified table once would be more efficient than
+rewriting lines on reading an unmodified table every time.
+
+=item suppress
+
+-- see suppress contractions in 5.14.11 Special-Purpose Commands,
+UTS #35 (LDML).
+
+Contractions beginning with the specified characters are suppressed,
+even if those contractions are defined in C<table>.
+
+An example for Russian and some languages using the Cyrillic script:
+
+    suppress => [0x0400..0x0417, 0x041A..0x0437, 0x043A..0x045F],
+
+where 0x0400 stands for C<U+0400>, CYRILLIC CAPITAL LETTER IE WITH GRAVE.
+
+B<NOTE>: Contractions via C<entry> are not be suppressed.
+
+=item table
+
+-- see 3.8 Default Unicode Collation Element Table, UTS #10.
+
+You can use another collation element table if desired.
+
+The table file should locate in the F<Unicode/Collate> directory
+on C<@INC>. Say, if the filename is F<Foo.txt>,
+the table file is searched as F<Unicode/Collate/Foo.txt> in C<@INC>.
+
+By default, F<allkeys.txt> (as the filename of DUCET) is used.
+If you will prepare your own table file, any name other than F<allkeys.txt>
+may be better to avoid namespace conflict.
+
+B<NOTE>: When XSUB is used, the DUCET is compiled on building this
+module, and it may save time at the run time.
+Explicit saying C<(table =E<gt> 'allkeys.txt')>, or using another table,
+or using C<ignoreChar>, C<ignoreName>, C<undefChar>, C<undefName> or
+C<rewrite> will prevent this module from using the compiled DUCET.
+
+If C<undef> is passed explicitly as the value for this key,
+no file is read (but you can define collation elements via C<entry>).
+
+A typical way to define a collation element table
+without any file of table:
+
+   $onlyABC = Unicode::Collate->new(
+       table => undef,
+       entry => << 'ENTRIES',
+0061 ; [.0101.0020.0002.0061] # LATIN SMALL LETTER A
+0041 ; [.0101.0020.0008.0041] # LATIN CAPITAL LETTER A
+0062 ; [.0102.0020.0002.0062] # LATIN SMALL LETTER B
+0042 ; [.0102.0020.0008.0042] # LATIN CAPITAL LETTER B
+0063 ; [.0103.0020.0002.0063] # LATIN SMALL LETTER C
+0043 ; [.0103.0020.0008.0043] # LATIN CAPITAL LETTER C
+ENTRIES
+    );
+
+If C<ignoreName> or C<undefName> is used, character names should be
+specified as a comment (following C<#>) on each line.
+
+=item undefChar
+
+=item undefName
+
+-- see 6.3.4 Reducing the Repertoire, UTS #10.
+
+Undefines the collation element as if it were unassigned in the C<table>.
+This reduces the size of the table.
+If an unassigned character appears in the string to be collated,
+the sort key is made from its codepoint
+as a single-character collation element,
+as it is greater than any other assigned collation elements
+(in the codepoint order among the unassigned characters).
+But, it'd be better to ignore characters
+unfamiliar to you and maybe never used.
+
+Through C<undefChar>, any character matching C<qr/$undefChar/>
+will be undefined. Through C<undefName>, any character whose name
+(given in the C<table> file as a comment) matches C<qr/$undefName/>
+will be undefined.
+
+ex. Collation weights for beyond-BMP characters are not stored in object:
+
+    undefChar => qr/[^\0-\x{fffd}]/,
+
+=item upper_before_lower
+
+-- see 6.6 Case Comparisons, UTS #10.
+
+By default, lowercase is before uppercase.
+If the parameter is made true, this is reversed.
+
+B<NOTE>: This parameter simplemindedly assumes that any lowercase/uppercase
+distinctions must occur in level 3, and their weights at level 3 must be
+same as those mentioned in 7.3.1, UTS #10.
+If you define your collation elements which differs from this requirement,
+this parameter doesn't work validly.
+
+=item variable
+
+-- see 3.6 Variable Weighting, UTS #10.
+
+This key allows for variable weighting of variable collation elements,
+which are marked with an ASTERISK in the table
+(NOTE: Many punctuation marks and symbols are variable in F<allkeys.txt>).
+
+   variable => 'blanked', 'non-ignorable', 'shifted', or 'shift-trimmed'.
+
+These names are case-insensitive.
+By default (if specification is omitted), 'shifted' is adopted.
+
+   'Blanked'        Variable elements are made ignorable at levels 1 through 3;
+                    considered at the 4th level.
+
+   'Non-Ignorable'  Variable elements are not reset to ignorable.
+
+   'Shifted'        Variable elements are made ignorable at levels 1 through 3
+                    their level 4 weight is replaced by the old level 1 weight.
+                    Level 4 weight for Non-Variable elements is 0xFFFF.
+
+   'Shift-Trimmed'  Same as 'shifted', but all FFFF's at the 4th level
+                    are trimmed.
+
+=back
+
+=head2 Methods for Collation
+
+=over 4
+
+=item C<@sorted = $Collator-E<gt>sort(@not_sorted)>
+
+Sorts a list of strings.
+
+=item C<$result = $Collator-E<gt>cmp($a, $b)>
+
+Returns 1 (when C<$a> is greater than C<$b>)
+or 0 (when C<$a> is equal to C<$b>)
+or -1 (when C<$a> is less than C<$b>).
+
+=item C<$result = $Collator-E<gt>eq($a, $b)>
+
+=item C<$result = $Collator-E<gt>ne($a, $b)>
+
+=item C<$result = $Collator-E<gt>lt($a, $b)>
+
+=item C<$result = $Collator-E<gt>le($a, $b)>
+
+=item C<$result = $Collator-E<gt>gt($a, $b)>
+
+=item C<$result = $Collator-E<gt>ge($a, $b)>
+
+They works like the same name operators as theirs.
+
+   eq : whether $a is equal to $b.
+   ne : whether $a is not equal to $b.
+   lt : whether $a is less than $b.
+   le : whether $a is less than $b or equal to $b.
+   gt : whether $a is greater than $b.
+   ge : whether $a is greater than $b or equal to $b.
+
+=item C<$sortKey = $Collator-E<gt>getSortKey($string)>
+
+-- see 4.3 Form Sort Key, UTS #10.
+
+Returns a sort key.
+
+You compare the sort keys using a binary comparison
+and get the result of the comparison of the strings using UCA.
+
+   $Collator->getSortKey($a) cmp $Collator->getSortKey($b)
+
+      is equivalent to
+
+   $Collator->cmp($a, $b)
+
+=item C<$sortKeyForm = $Collator-E<gt>viewSortKey($string)>
+
+Converts a sorting key into its representation form.
+If C<UCA_Version> is 8, the output is slightly different.
+
+   use Unicode::Collate;
+   my $c = Unicode::Collate->new();
+   print $c->viewSortKey("Perl"),"\n";
+
+   # output:
+   # [0B67 0A65 0B7F 0B03 | 0020 0020 0020 0020 | 0008 0002 0002 0002 | FFFF FFFF FFFF FFFF]
+   #  Level 1               Level 2               Level 3               Level 4
+
+=back
+
+=head2 Methods for Searching
+
+The C<match>, C<gmatch>, C<subst>, C<gsubst> methods work
+like C<m//>, C<m//g>, C<s///>, C<s///g>, respectively,
+but they are not aware of any pattern, but only a literal substring.
+
+B<DISCLAIMER:> If C<preprocess> or C<normalization> parameter is true
+for C<$Collator>, calling these methods (C<index>, C<match>, C<gmatch>,
+C<subst>, C<gsubst>) is croaked, as the position and the length might
+differ from those on the specified string.
+
+C<rearrange> and C<hangul_terminator> parameters are neglected.
+C<katakana_before_hiragana> and C<upper_before_lower> don't affect
+matching and searching, as it doesn't matter whether greater or less.
+
+=over 4
+
+=item C<$position = $Collator-E<gt>index($string, $substring[, $position])>
+
+=item C<($position, $length) = $Collator-E<gt>index($string, $substring[, $position])>
+
+If C<$substring> matches a part of C<$string>, returns
+the position of the first occurrence of the matching part in scalar context;
+in list context, returns a two-element list of
+the position and the length of the matching part.
+
+If C<$substring> does not match any part of C<$string>,
+returns C<-1> in scalar context and
+an empty list in list context.
+
+e.g. when the content of C<$str> is C<"Ich mu>E<szlig>C< studieren Perl.">,
+you say the following where C<$sub> is C<"M>E<uuml>C<SS">,
+
+  my $Collator = Unicode::Collate->new( normalization => undef, level => 1 );
+                                     # (normalization => undef) is REQUIRED.
+  my $match;
+  if (my($pos,$len) = $Collator->index($str, $sub)) {
+      $match = substr($str, $pos, $len);
+  }
+
+and get C<"mu>E<szlig>C<"> in C<$match>, since C<"mu>E<szlig>C<">
+is primary equal to C<"M>E<uuml>C<SS">.
+
+=item C<$match_ref = $Collator-E<gt>match($string, $substring)>
+
+=item C<($match)   = $Collator-E<gt>match($string, $substring)>
+
+If C<$substring> matches a part of C<$string>, in scalar context, returns
+B<a reference to> the first occurrence of the matching part
+(C<$match_ref> is always true if matches,
+since every reference is B<true>);
+in list context, returns the first occurrence of the matching part.
+
+If C<$substring> does not match any part of C<$string>,
+returns C<undef> in scalar context and
+an empty list in list context.
+
+e.g.
+
+    if ($match_ref = $Collator->match($str, $sub)) { # scalar context
+	print "matches [$$match_ref].\n";
+    } else {
+	print "doesn't match.\n";
+    }
+
+     or
+
+    if (($match) = $Collator->match($str, $sub)) { # list context
+	print "matches [$match].\n";
+    } else {
+	print "doesn't match.\n";
+    }
+
+=item C<@match = $Collator-E<gt>gmatch($string, $substring)>
+
+If C<$substring> matches a part of C<$string>, returns
+all the matching parts (or matching count in scalar context).
+
+If C<$substring> does not match any part of C<$string>,
+returns an empty list.
+
+=item C<$count = $Collator-E<gt>subst($string, $substring, $replacement)>
+
+If C<$substring> matches a part of C<$string>,
+the first occurrence of the matching part is replaced by C<$replacement>
+(C<$string> is modified) and C<$count> (always equals to C<1>) is returned.
+
+C<$replacement> can be a C<CODEREF>,
+taking the matching part as an argument,
+and returning a string to replace the matching part
+(a bit similar to C<s/(..)/$coderef-E<gt>($1)/e>).
+
+=item C<$count = $Collator-E<gt>gsubst($string, $substring, $replacement)>
+
+If C<$substring> matches a part of C<$string>,
+all the occurrences of the matching part are replaced by C<$replacement>
+(C<$string> is modified) and C<$count> is returned.
+
+C<$replacement> can be a C<CODEREF>,
+taking the matching part as an argument,
+and returning a string to replace the matching part
+(a bit similar to C<s/(..)/$coderef-E<gt>($1)/eg>).
+
+e.g.
+
+  my $Collator = Unicode::Collate->new( normalization => undef, level => 1 );
+                                     # (normalization => undef) is REQUIRED.
+  my $str = "Camel donkey zebra came\x{301}l CAMEL horse cam\0e\0l...";
+  $Collator->gsubst($str, "camel", sub { "<b>$_[0]</b>" });
+
+  # now $str is "<b>Camel</b> donkey zebra <b>came\x{301}l</b> <b>CAMEL</b> horse <b>cam\0e\0l</b>...";
+  # i.e., all the camels are made bold-faced.
+
+   Examples: levels and ignore_level2 - what does camel match?
+  ---------------------------------------------------------------------------
+   level  ignore_level2  |  camel  Camel  came\x{301}l  c-a-m-e-l  cam\0e\0l
+  -----------------------|---------------------------------------------------
+     1        false      |   yes    yes      yes          yes        yes
+     2        false      |   yes    yes      no           yes        yes
+     3        false      |   yes    no       no           yes        yes
+     4        false      |   yes    no       no           no         yes
+  -----------------------|---------------------------------------------------
+     1        true       |   yes    yes      yes          yes        yes
+     2        true       |   yes    yes      yes          yes        yes
+     3        true       |   yes    no       yes          yes        yes
+     4        true       |   yes    no       yes          no         yes
+  ---------------------------------------------------------------------------
+   note: if variable => non-ignorable, camel doesn't match c-a-m-e-l
+         at any level.
+
+=back
+
+=head2 Other Methods
+
+=over 4
+
+=item C<%old_tailoring = $Collator-E<gt>change(%new_tailoring)>
+
+=item C<$modified_collator = $Collator-E<gt>change(%new_tailoring)>
+
+Changes the value of specified keys and returns the changed part.
+
+    $Collator = Unicode::Collate->new(level => 4);
+
+    $Collator->eq("perl", "PERL"); # false
+
+    %old = $Collator->change(level => 2); # returns (level => 4).
+
+    $Collator->eq("perl", "PERL"); # true
+
+    $Collator->change(%old); # returns (level => 2).
+
+    $Collator->eq("perl", "PERL"); # false
+
+Not all C<(key,value)>s are allowed to be changed.
+See also C<@Unicode::Collate::ChangeOK> and C<@Unicode::Collate::ChangeNG>.
+
+In the scalar context, returns the modified collator
+(but it is B<not> a clone from the original).
+
+    $Collator->change(level => 2)->eq("perl", "PERL"); # true
+
+    $Collator->eq("perl", "PERL"); # true; now max level is 2nd.
+
+    $Collator->change(level => 4)->eq("perl", "PERL"); # false
+
+=item C<$version = $Collator-E<gt>version()>
+
+Returns the version number (a string) of the Unicode Standard
+which the C<table> file used by the collator object is based on.
+If the table does not include a version line (starting with C<@version>),
+returns C<"unknown">.
+
+=item C<UCA_Version()>
+
+Returns the revision number of UTS #10 this module consults,
+that should correspond with the DUCET incorporated.
+
+=item C<Base_Unicode_Version()>
+
+Returns the version number of UTS #10 this module consults,
+that should correspond with the DUCET incorporated.
+
+=back
+
+=head1 EXPORT
+
+No method will be exported.
+
+=head1 INSTALL
+
+Though this module can be used without any C<table> file,
+to use this module easily, it is recommended to install a table file
+in the UCA format, by copying it under the directory
+<a place in @INC>/Unicode/Collate.
+
+The most preferable one is "The Default Unicode Collation Element Table"
+(aka DUCET), available from the Unicode Consortium's website:
+
+   http://www.unicode.org/Public/UCA/
+
+   http://www.unicode.org/Public/UCA/latest/allkeys.txt (latest version)
+
+If DUCET is not installed, it is recommended to copy the file
+from http://www.unicode.org/Public/UCA/latest/allkeys.txt
+to <a place in @INC>/Unicode/Collate/allkeys.txt
+manually.
+
+=head1 CAVEATS
+
+=over 4
+
+=item Normalization
+
+Use of the C<normalization> parameter requires the B<Unicode::Normalize>
+module (see L<Unicode::Normalize>).
+
+If you need not it (say, in the case when you need not
+handle any combining characters),
+assign C<(normalization =E<gt> undef)> explicitly.
+
+-- see 6.5 Avoiding Normalization, UTS #10.
+
+=item Conformance Test
+
+The Conformance Test for the UCA is available
+under L<http://www.unicode.org/Public/UCA/>.
+
+For F<CollationTest_SHIFTED.txt>,
+a collator via C<Unicode::Collate-E<gt>new( )> should be used;
+for F<CollationTest_NON_IGNORABLE.txt>, a collator via
+C<Unicode::Collate-E<gt>new(variable =E<gt> "non-ignorable", level =E<gt> 3)>.
+
+If C<UCA_Version> is 26 or later, the C<identical> level is preferred;
+C<Unicode::Collate-E<gt>new(identical =E<gt> 1)> and
+C<Unicode::Collate-E<gt>new(identical =E<gt> 1,>
+C<variable =E<gt> "non-ignorable", level =E<gt> 3)> should be used.
+
+B<Unicode::Normalize is required to try The Conformance Test.>
+
+=back
+
+=head1 AUTHOR, COPYRIGHT AND LICENSE
+
+The Unicode::Collate module for perl was written by SADAHIRO Tomoyuki,
+<SADAHIRO@cpan.org>. This module is Copyright(C) 2001-2014,
+SADAHIRO Tomoyuki. Japan. All rights reserved.
+
+This module is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+The file Unicode/Collate/allkeys.txt was copied verbatim
+from L<http://www.unicode.org/Public/UCA/6.3.0/allkeys.txt>.
+For this file, Copyright (c) 2001-2012 Unicode, Inc.
+Distributed under the Terms of Use in L<http://www.unicode.org/copyright.html>.
+
+=head1 SEE ALSO
+
+=over 4
+
+=item Unicode Collation Algorithm - UTS #10
+
+L<http://www.unicode.org/reports/tr10/>
+
+=item The Default Unicode Collation Element Table (DUCET)
+
+L<http://www.unicode.org/Public/UCA/latest/allkeys.txt>
+
+=item The conformance test for the UCA
+
+L<http://www.unicode.org/Public/UCA/latest/CollationTest.html>
+
+L<http://www.unicode.org/Public/UCA/latest/CollationTest.zip>
+
+=item Hangul Syllable Type
+
+L<http://www.unicode.org/Public/UNIDATA/HangulSyllableType.txt>
+
+=item Unicode Normalization Forms - UAX #15
+
+L<http://www.unicode.org/reports/tr15/>
+
+=item Unicode Locale Data Markup Language (LDML) - UTS #35
+
+L<http://www.unicode.org/reports/tr35/>
+
+=back
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/Unicode/Collate/Locale.pm b/lib/5.24.1/x86_64-linux/Unicode/Collate/Locale.pm
new file mode 100644
index 00000000..f76abe57
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/Unicode/Collate/Locale.pm
@@ -0,0 +1,516 @@
+package Unicode::Collate::Locale;
+
+use strict;
+use warnings;
+use Carp;
+use base qw(Unicode::Collate);
+
+our $VERSION = '1.14';
+
+my $PL_EXT  = '.pl';
+
+my %LocaleFile = map { ($_, $_) } qw(
+   af ar as az be bg bn ca cs cy da ee eo es et fa fi fil fo fr
+   gu ha haw hi hr hu hy ig is ja kk kl kn ko kok ln lt lv
+   mk ml mr mt nb nn nso om or pa pl ro ru sa se si sk sl sq
+   sr sv ta te th tn to tr uk ur vi wae wo yo zh
+);
+   $LocaleFile{'default'} = '';
+# aliases
+   $LocaleFile{'bs'}      = 'hr';
+   $LocaleFile{'bs_Cyrl'} = 'sr';
+   $LocaleFile{'sr_Latn'} = 'hr';
+# short file names
+   $LocaleFile{'de__phonebook'}   = 'de_phone';
+   $LocaleFile{'es__traditional'} = 'es_trad';
+   $LocaleFile{'fi__phonebook'}   = 'fi_phone';
+   $LocaleFile{'si__dictionary'}  = 'si_dict';
+   $LocaleFile{'sv__reformed'}    = 'sv_refo';
+   $LocaleFile{'zh__big5han'}     = 'zh_big5';
+   $LocaleFile{'zh__gb2312han'}   = 'zh_gb';
+   $LocaleFile{'zh__pinyin'}      = 'zh_pin';
+   $LocaleFile{'zh__stroke'}      = 'zh_strk';
+   $LocaleFile{'zh__zhuyin'}      = 'zh_zhu';
+
+my %TypeAlias = qw(
+    phone     phonebook
+    phonebk   phonebook
+    dict      dictionary
+    reform    reformed
+    trad      traditional
+    big5      big5han
+    gb2312    gb2312han
+);
+
+sub _locale {
+    my $locale = shift;
+    if ($locale) {
+	$locale = lc $locale;
+	$locale =~ tr/\-\ \./_/;
+	$locale =~ s/_([0-9a-z]+)\z/$TypeAlias{$1} ?
+				  "_$TypeAlias{$1}" : "_$1"/e;
+	$LocaleFile{$locale} and return $locale;
+
+	my @code = split /_/, $locale;
+	my $lan = shift @code;
+	my $scr = @code && length $code[0] == 4 ? ucfirst shift @code : '';
+	my $reg = @code && length $code[0] <  4 ? uc      shift @code : '';
+	my $var = @code                         ?         shift @code : '';
+
+	my @list;
+	push @list, (
+	    "${lan}_${scr}_${reg}_$var",
+	    "${lan}_${scr}__$var", # empty $scr should not be ${lan}__$var.
+	    "${lan}_${reg}_$var",  # empty $reg may be ${lan}__$var.
+	    "${lan}__$var",
+	) if $var ne '';
+	push @list, (
+	    "${lan}_${scr}_${reg}",
+	    "${lan}_${scr}",
+	    "${lan}_${reg}",
+	     ${lan},
+	);
+	for my $loc (@list) {
+	    $LocaleFile{$loc} and return $loc;
+	}
+    }
+    return 'default';
+}
+
+sub getlocale {
+    return shift->{accepted_locale};
+}
+
+sub locale_version {
+    return shift->{locale_version};
+}
+
+sub _fetchpl {
+    my $accepted = shift;
+    my $f = $LocaleFile{$accepted};
+    return if !$f;
+    $f .= $PL_EXT;
+
+    # allow to search @INC
+#   use File::Spec;
+#   my $path = File::Spec->catfile('Unicode', 'Collate', 'Locale', $f);
+    my $path = "Unicode/Collate/Locale/$f";
+    my $h = do $path;
+    croak "Unicode/Collate/Locale/$f can't be found" if !$h;
+    return $h;
+}
+
+sub new {
+    my $class = shift;
+    my %hash = @_;
+    $hash{accepted_locale} = _locale($hash{locale});
+
+    if (exists $hash{table}) {
+	croak "your table can't be used with Unicode::Collate::Locale";
+    }
+
+    my $href = _fetchpl($hash{accepted_locale});
+    while (my($k,$v) = each %$href) {
+	if (!exists $hash{$k}) {
+	    $hash{$k} = $v;
+	} elsif ($k eq 'entry') {
+	    $hash{$k} = $v.$hash{$k};
+	} else {
+	    croak "$k is reserved by $hash{locale}, can't be overwritten";
+	}
+    }
+    return $class->SUPER::new(%hash);
+}
+
+1;
+__END__
+
+MEMORANDA for developing
+
+locale            based CLDR
+----------------------------------------------------------------------------
+af                22.1 = 1.8.1
+ar                22.1 = 1.9.0
+as                22.1 = 1.8.1
+az                22.1 = 1.8.1 (type="standard")
+be                22.1 = 1.9.0
+bg                22.1 = 1.9.0
+bn                22.1 = 2.0.1 (type="standard")
+bs                22.1 = 1.9.0 (alias source="hr")
+bs_Cyrl           22.1 = 22    (alias source="sr")
+ca                22.1 = 1.8.1 (alt="proposed" type="standard")
+cs                22.1 = 1.8.1 (type="standard")
+cy                22.1 = 1.8.1
+da                22.1 = 1.8.1 (type="standard") [mod aA to pass CLDR test]
+de__phonebook     22.1 = 2.0   (type="phonebook")
+ee                22.1 = 22
+eo                22.1 = 1.8.1
+es                22.1 = 1.9.0 (type="standard")
+es__traditional   22.1 = 1.8.1 (type="traditional")
+et                22.1 = 1.8.1
+fa                22.1 = 1.8.1
+fi                22.1 = 1.8.1 (type="standard" alt="proposed")
+fi__phonebook     22.1 = 1.8.1 (type="phonebook")
+fil               22.1 = 1.9.0 (type="standard") = 1.8.1
+fo                22.1 = 1.8.1 (alt="proposed" type="standard")
+fr                22.1 = 1.9.0 (fr_CA, backwards="on")
+gu                22.1 = 1.9.0 (type="standard")
+ha                22.1 = 1.9.0
+haw               22.1 = 1.8.1
+hi                22.1 = 1.9.0 (type="standard")
+hr                22.1 = 1.9.0 (type="standard")
+hu                22.1 = 1.8.1 (alt="proposed" type="standard")
+hy                22.1 = 1.8.1
+ig                22.1 = 1.8.1
+is                22.1 = 1.8.1 (type="standard")
+ja                22.1 = 1.8.1 (type="standard")
+kk                22.1 = 1.9.0
+kl                22.1 = 1.8.1 (type="standard")
+kn                22.1 = 1.9.0 (type="standard")
+ko                22.1 = 1.8.1 (type="standard")
+kok               22.1 = 1.8.1
+ln                22.1 = 2.0   (type="standard") = 1.8.1
+lt                22.1 = 1.9.0
+lv                22.1 = 1.9.0 (type="standard") = 1.8.1
+mk                22.1 = 1.9.0
+ml                22.1 = 1.9.0
+mr                22.1 = 1.8.1
+mt                22.1 = 1.9.0
+nb                22.1 = 2.0   (type="standard")
+nn                22.1 = 2.0   (type="standard")
+nso               22.1 = 1.8.1
+om                22.1 = 1.8.1
+or                22.1 = 1.9.0
+pa                22.1 = 1.8.1
+pl                22.1 = 1.8.1
+ro                22.1 = 1.9.0 (type="standard")
+ru                22.1 = 1.9.0
+sa                1.9.1 = 1.8.1 (type="standard" alt="proposed") [now /seed]
+se                22.1 = 1.8.1 (type="standard")
+si                22.1 = 1.9.0 (type="standard")
+si__dictionary    22.1 = 1.9.0 (type="dictionary")
+sk                22.1 = 1.9.0 (type="standard")
+sl                22.1 = 1.8.1 (type="standard" alt="proposed")
+sq                22.1 = 1.8.1 (alt="proposed" type="standard")
+sr                22.1 = 1.9.0 (type="standard")
+sr_Latn           22.1 = 1.8.1 (alias source="hr")
+sv                22.1 = 1.9.0 (type="standard")
+sv__reformed      22.1 = 1.8.1 (type="reformed")
+ta                22.1 = 1.9.0
+te                22.1 = 1.9.0
+th                22.1 = 22
+tn                22.1 = 1.8.1
+to                22.1 = 22
+tr                22.1 = 1.8.1 (type="standard")
+uk                22.1 = 21
+ur                22.1 = 1.9.0
+vi                22.1 = 1.8.1
+wae               22.1 = 2.0
+wo                1.9.1 = 1.8.1 [now /seed]
+yo                22.1 = 1.8.1
+zh                22.1 = 1.8.1 (type="standard")
+zh__big5han       22.1 = 1.8.1 (type="big5han")
+zh__gb2312han     22.1 = 1.8.1 (type="gb2312han")
+zh__pinyin        22.1 = 2.0   (type='pinyin' alt='short')
+zh__stroke        22.1 = 1.9.1 (type='stroke' alt='short')
+zh__zhuyin        22.1 = 22    (type='zhuyin' alt='short')
+----------------------------------------------------------------------------
+
+=head1 NAME
+
+Unicode::Collate::Locale - Linguistic tailoring for DUCET via Unicode::Collate
+
+=head1 SYNOPSIS
+
+  use Unicode::Collate::Locale;
+
+  #construct
+  $Collator = Unicode::Collate::Locale->
+      new(locale => $locale_name, %tailoring);
+
+  #sort
+  @sorted = $Collator->sort(@not_sorted);
+
+  #compare
+  $result = $Collator->cmp($a, $b); # returns 1, 0, or -1.
+
+B<Note:> Strings in C<@not_sorted>, C<$a> and C<$b> are interpreted
+according to Perl's Unicode support. See L<perlunicode>,
+L<perluniintro>, L<perlunitut>, L<perlunifaq>, L<utf8>.
+Otherwise you can use C<preprocess> (cf. C<Unicode::Collate>)
+or should decode them before.
+
+=head1 DESCRIPTION
+
+This module provides linguistic tailoring for it
+taking advantage of C<Unicode::Collate>.
+
+=head2 Constructor
+
+The C<new> method returns a collator object.
+
+A parameter list for the constructor is a hash, which can include
+a special key C<locale> and its value (case-insensitive) standing
+for a Unicode base language code (two or three-letter).
+For example, C<Unicode::Collate::Locale-E<gt>new(locale =E<gt> 'FR')>
+returns a collator tailored for French.
+
+C<$locale_name> may be suffixed with a Unicode script code (four-letter),
+a Unicode region code, a Unicode language variant code. These codes are
+case-insensitive, and separated with C<'_'> or C<'-'>.
+E.g. C<en_US> for English in USA,
+C<az_Cyrl> for Azerbaijani in the Cyrillic script,
+C<es_ES_traditional> for Spanish in Spain (Traditional).
+
+If C<$locale_name> is not available,
+fallback is selected in the following order:
+
+    1. language with a variant code
+    2. language with a script code
+    3. language with a region code
+    4. language
+    5. default
+
+Tailoring tags provided by C<Unicode::Collate> are allowed as long as
+they are not used for C<locale> support.  Esp. the C<table> tag
+is always untailorable, since it is reserved for DUCET.
+
+However C<entry> is allowed, even if it is used for C<locale> support,
+to add or override mappings.
+
+E.g. a collator for French, which ignores diacritics and case difference
+(i.e. level 1), with reversed case ordering and no normalization.
+
+    Unicode::Collate::Locale->new(
+        level => 1,
+        locale => 'fr',
+        upper_before_lower => 1,
+        normalization => undef
+    )
+
+Overriding a behavior already tailored by C<locale> is disallowed
+if such a tailoring is passed to C<new()>.
+
+    Unicode::Collate::Locale->new(
+        locale => 'da',
+        upper_before_lower => 0, # causes error as reserved by 'da'
+    )
+
+However C<change()> inherited from C<Unicode::Collate> allows
+such a tailoring that is reserved by C<locale>. Examples:
+
+    new(locale => 'ca')->change(backwards => undef)
+    new(locale => 'da')->change(upper_before_lower => 0)
+    new(locale => 'ja')->change(overrideCJK => undef)
+
+=head2 Methods
+
+C<Unicode::Collate::Locale> is a subclass of C<Unicode::Collate>
+and methods other than C<new> are inherited from C<Unicode::Collate>.
+
+Here is a list of additional methods:
+
+=over 4
+
+=item C<$Collator-E<gt>getlocale>
+
+Returns a language code accepted and used actually on collation.
+If linguistic tailoring is not provided for a language code you passed
+(intensionally for some languages, or due to the incomplete implementation),
+this method returns a string C<'default'> meaning no special tailoring.
+
+=item C<$Collator-E<gt>locale_version>
+
+(Since Unicode::Collate::Locale 0.87)
+Returns the version number (perhaps C</\d\.\d\d/>) of the locale, as that
+of F<Locale/*.pl>.
+
+B<Note:> F<Locale/*.pl> that a collator uses should be identified by
+a combination of return values from C<getlocale> and C<locale_version>.
+
+=back
+
+=head2 A list of tailorable locales
+
+      locale name       description
+    --------------------------------------------------------------
+      af                Afrikaans
+      ar                Arabic
+      as                Assamese
+      az                Azerbaijani (Azeri)
+      be                Belarusian
+      bg                Bulgarian
+      bn                Bengali
+      bs                Bosnian
+      bs_Cyrl           Bosnian in Cyrillic (tailored as Serbian)
+      ca                Catalan
+      cs                Czech
+      cy                Welsh
+      da                Danish
+      de__phonebook     German (umlaut as 'ae', 'oe', 'ue')
+      ee                Ewe
+      eo                Esperanto
+      es                Spanish
+      es__traditional   Spanish ('ch' and 'll' as a grapheme)
+      et                Estonian
+      fa                Persian
+      fi                Finnish (v and w are primary equal)
+      fi__phonebook     Finnish (v and w as separate characters)
+      fil               Filipino
+      fo                Faroese
+      fr                French
+      gu                Gujarati
+      ha                Hausa
+      haw               Hawaiian
+      hi                Hindi
+      hr                Croatian
+      hu                Hungarian
+      hy                Armenian
+      ig                Igbo
+      is                Icelandic
+      ja                Japanese [1]
+      kk                Kazakh
+      kl                Kalaallisut
+      kn                Kannada
+      ko                Korean [2]
+      kok               Konkani
+      ln                Lingala
+      lt                Lithuanian
+      lv                Latvian
+      mk                Macedonian
+      ml                Malayalam
+      mr                Marathi
+      mt                Maltese
+      nb                Norwegian Bokmal
+      nn                Norwegian Nynorsk
+      nso               Northern Sotho
+      om                Oromo
+      or                Oriya
+      pa                Punjabi
+      pl                Polish
+      ro                Romanian
+      ru                Russian
+      sa                Sanskrit
+      se                Northern Sami
+      si                Sinhala
+      si__dictionary    Sinhala (U+0DA5 = U+0DA2,0DCA,0DA4)
+      sk                Slovak
+      sl                Slovenian
+      sq                Albanian
+      sr                Serbian
+      sr_Latn           Serbian in Latin (tailored as Croatian)
+      sv                Swedish (v and w are primary equal)
+      sv__reformed      Swedish (v and w as separate characters)
+      ta                Tamil
+      te                Telugu
+      th                Thai
+      tn                Tswana
+      to                Tonga
+      tr                Turkish
+      uk                Ukrainian
+      ur                Urdu
+      vi                Vietnamese
+      wae               Walser
+      wo                Wolof
+      yo                Yoruba
+      zh                Chinese
+      zh__big5han       Chinese (ideographs: big5 order)
+      zh__gb2312han     Chinese (ideographs: GB-2312 order)
+      zh__pinyin        Chinese (ideographs: pinyin order) [3]
+      zh__stroke        Chinese (ideographs: stroke order) [3]
+      zh__zhuyin        Chinese (ideographs: zhuyin order) [3]
+    --------------------------------------------------------------
+
+Locales according to the default UCA rules include
+chr (Cherokee),
+de (German),
+en (English),
+ga (Irish),
+id (Indonesian),
+it (Italian),
+ka (Georgian),
+ms (Malay),
+nl (Dutch),
+pt (Portuguese),
+st (Southern Sotho),
+sw (Swahili),
+xh (Xhosa),
+zu (Zulu).
+
+B<Note>
+
+[1] ja: Ideographs are sorted in JIS X 0208 order.
+Fullwidth and halfwidth forms are identical to their regular form.
+The difference between hiragana and katakana is at the 4th level,
+the comparison also requires C<(variable =E<gt> 'Non-ignorable')>,
+and then C<katakana_before_hiragana> has no effect.
+
+[2] ko: Plenty of ideographs are sorted by their reading. Such
+an ideograph is primary (level 1) equal to, and secondary (level 2)
+greater than, the corresponding hangul syllable.
+
+[3] zh__pinyin, zh__stroke and zh__zhuyin: implemented alt='short',
+where a smaller number of ideographs are tailored.
+
+Note: 'pinyin' is in latin, 'zhuyin' is in bopomofo.
+
+=head1 INSTALL
+
+Installation of C<Unicode::Collate::Locale> requires F<Collate/Locale.pm>,
+F<Collate/Locale/*.pm>, F<Collate/CJK/*.pm> and F<Collate/allkeys.txt>.
+On building, C<Unicode::Collate::Locale> doesn't require any of F<data/*.txt>,
+F<gendata/*>, and F<mklocale>.
+Tests for C<Unicode::Collate::Locale> are named F<t/loc_*.t>.
+
+=head1 CAVEAT
+
+=over 4
+
+=item tailoring is not maximum
+
+Even if a certain letter is tailored, its equivalent would not always
+tailored as well as it. For example, even though W is tailored,
+fullwidth W (C<U+FF37>), W with acute (C<U+1E82>), etc. are not
+tailored. The result may depend on whether source strings are
+normalized or not, and whether decomposed or composed.
+Thus C<(normalization =E<gt> undef)> is less preferred.
+
+=back
+
+=head1 AUTHOR
+
+The Unicode::Collate::Locale module for perl was written
+by SADAHIRO Tomoyuki, <SADAHIRO@cpan.org>.
+This module is Copyright(C) 2004-2013, SADAHIRO Tomoyuki. Japan.
+All rights reserved.
+
+This module is free software; you can redistribute it and/or
+modify it under the same terms as Perl itself.
+
+=head1 SEE ALSO
+
+=over 4
+
+=item Unicode Collation Algorithm - UTS #10
+
+L<http://www.unicode.org/reports/tr10/>
+
+=item The Default Unicode Collation Element Table (DUCET)
+
+L<http://www.unicode.org/Public/UCA/latest/allkeys.txt>
+
+=item Unicode Locale Data Markup Language (LDML) - UTS #35
+
+L<http://www.unicode.org/reports/tr35/>
+
+=item CLDR - Unicode Common Locale Data Repository
+
+L<http://cldr.unicode.org/>
+
+=item L<Unicode::Collate>
+
+=item L<Unicode::Normalize>
+
+=back
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/Unicode/Normalize.pm b/lib/5.24.1/x86_64-linux/Unicode/Normalize.pm
new file mode 100644
index 00000000..ff6c0f0d
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/Unicode/Normalize.pm
@@ -0,0 +1,635 @@
+package Unicode::Normalize;
+
+BEGIN {
+    unless ('A' eq pack('U', 0x41)) {
+	die "Unicode::Normalize cannot stringify a Unicode code point\n";
+    }
+    unless (0x41 == unpack('U', 'A')) {
+	die "Unicode::Normalize cannot get Unicode code point\n";
+    }
+}
+
+use 5.006;
+use strict;
+use warnings;
+use Carp;
+
+no warnings 'utf8';
+
+our $VERSION = '1.25';
+our $PACKAGE = __PACKAGE__;
+
+our @EXPORT = qw( NFC NFD NFKC NFKD );
+our @EXPORT_OK = qw(
+    normalize decompose reorder compose
+    checkNFD checkNFKD checkNFC checkNFKC check
+    getCanon getCompat getComposite getCombinClass
+    isExclusion isSingleton isNonStDecomp isComp2nd isComp_Ex
+    isNFD_NO isNFC_NO isNFC_MAYBE isNFKD_NO isNFKC_NO isNFKC_MAYBE
+    FCD checkFCD FCC checkFCC composeContiguous splitOnLastStarter
+    normalize_partial NFC_partial NFD_partial NFKC_partial NFKD_partial
+);
+our %EXPORT_TAGS = (
+    all       => [ @EXPORT, @EXPORT_OK ],
+    normalize => [ @EXPORT, qw/normalize decompose reorder compose/ ],
+    check     => [ qw/checkNFD checkNFKD checkNFC checkNFKC check/ ],
+    fast      => [ qw/FCD checkFCD FCC checkFCC composeContiguous/ ],
+);
+
+##
+## utilities for tests
+##
+
+sub pack_U {
+    return pack('U*', @_);
+}
+
+sub unpack_U {
+
+    # The empty pack returns an empty UTF-8 string, so the effect is to force
+    # the shifted parameter into being UTF-8.  This allows this to work on
+    # Perl 5.6, where there is no utf8::upgrade().
+    return unpack('U*', shift(@_).pack('U*'));
+}
+
+require Exporter;
+
+##### The above part is common to XS and PP #####
+
+our @ISA = qw(Exporter DynaLoader);
+require DynaLoader;
+bootstrap Unicode::Normalize $VERSION;
+
+##### The below part is common to XS and PP #####
+
+##
+## normalize
+##
+
+sub FCD ($) {
+    my $str = shift;
+    return checkFCD($str) ? $str : NFD($str);
+}
+
+our %formNorm = (
+    NFC  => \&NFC,	C  => \&NFC,
+    NFD  => \&NFD,	D  => \&NFD,
+    NFKC => \&NFKC,	KC => \&NFKC,
+    NFKD => \&NFKD,	KD => \&NFKD,
+    FCD  => \&FCD,	FCC => \&FCC,
+);
+
+sub normalize($$)
+{
+    my $form = shift;
+    my $str = shift;
+    if (exists $formNorm{$form}) {
+	return $formNorm{$form}->($str);
+    }
+    croak($PACKAGE."::normalize: invalid form name: $form");
+}
+
+##
+## partial
+##
+
+sub normalize_partial ($$) {
+    if (exists $formNorm{$_[0]}) {
+	my $n = normalize($_[0], $_[1]);
+	my($p, $u) = splitOnLastStarter($n);
+	$_[1] = $u;
+	return $p;
+    }
+    croak($PACKAGE."::normalize_partial: invalid form name: $_[0]");
+}
+
+sub NFD_partial ($) { return normalize_partial('NFD', $_[0]) }
+sub NFC_partial ($) { return normalize_partial('NFC', $_[0]) }
+sub NFKD_partial($) { return normalize_partial('NFKD',$_[0]) }
+sub NFKC_partial($) { return normalize_partial('NFKC',$_[0]) }
+
+##
+## check
+##
+
+our %formCheck = (
+    NFC  => \&checkNFC, 	C  => \&checkNFC,
+    NFD  => \&checkNFD, 	D  => \&checkNFD,
+    NFKC => \&checkNFKC,	KC => \&checkNFKC,
+    NFKD => \&checkNFKD,	KD => \&checkNFKD,
+    FCD  => \&checkFCD, 	FCC => \&checkFCC,
+);
+
+sub check($$)
+{
+    my $form = shift;
+    my $str = shift;
+    if (exists $formCheck{$form}) {
+	return $formCheck{$form}->($str);
+    }
+    croak($PACKAGE."::check: invalid form name: $form");
+}
+
+1;
+__END__
+
+=head1 NAME
+
+Unicode::Normalize - Unicode Normalization Forms
+
+=head1 SYNOPSIS
+
+(1) using function names exported by default:
+
+  use Unicode::Normalize;
+
+  $NFD_string  = NFD($string);  # Normalization Form D
+  $NFC_string  = NFC($string);  # Normalization Form C
+  $NFKD_string = NFKD($string); # Normalization Form KD
+  $NFKC_string = NFKC($string); # Normalization Form KC
+
+(2) using function names exported on request:
+
+  use Unicode::Normalize 'normalize';
+
+  $NFD_string  = normalize('D',  $string);  # Normalization Form D
+  $NFC_string  = normalize('C',  $string);  # Normalization Form C
+  $NFKD_string = normalize('KD', $string);  # Normalization Form KD
+  $NFKC_string = normalize('KC', $string);  # Normalization Form KC
+
+=head1 DESCRIPTION
+
+Parameters:
+
+C<$string> is used as a string under character semantics (see F<perlunicode>).
+
+C<$code_point> should be an unsigned integer representing a Unicode code point.
+
+Note: Between XSUB and pure Perl, there is an incompatibility
+about the interpretation of C<$code_point> as a decimal number.
+XSUB converts C<$code_point> to an unsigned integer, but pure Perl does not.
+Do not use a floating point nor a negative sign in C<$code_point>.
+
+=head2 Normalization Forms
+
+=over 4
+
+=item C<$NFD_string = NFD($string)>
+
+It returns the Normalization Form D (formed by canonical decomposition).
+
+=item C<$NFC_string = NFC($string)>
+
+It returns the Normalization Form C (formed by canonical decomposition
+followed by canonical composition).
+
+=item C<$NFKD_string = NFKD($string)>
+
+It returns the Normalization Form KD (formed by compatibility decomposition).
+
+=item C<$NFKC_string = NFKC($string)>
+
+It returns the Normalization Form KC (formed by compatibility decomposition
+followed by B<canonical> composition).
+
+=item C<$FCD_string = FCD($string)>
+
+If the given string is in FCD ("Fast C or D" form; cf. UTN #5),
+it returns the string without modification; otherwise it returns an FCD string.
+
+Note: FCD is not always unique, then plural forms may be equivalent
+each other. C<FCD()> will return one of these equivalent forms.
+
+=item C<$FCC_string = FCC($string)>
+
+It returns the FCC form ("Fast C Contiguous"; cf. UTN #5).
+
+Note: FCC is unique, as well as four normalization forms (NF*).
+
+=item C<$normalized_string = normalize($form_name, $string)>
+
+It returns the normalization form of C<$form_name>.
+
+As C<$form_name>, one of the following names must be given.
+
+  'C'  or 'NFC'  for Normalization Form C  (UAX #15)
+  'D'  or 'NFD'  for Normalization Form D  (UAX #15)
+  'KC' or 'NFKC' for Normalization Form KC (UAX #15)
+  'KD' or 'NFKD' for Normalization Form KD (UAX #15)
+
+  'FCD'          for "Fast C or D" Form  (UTN #5)
+  'FCC'          for "Fast C Contiguous" (UTN #5)
+
+=back
+
+=head2 Decomposition and Composition
+
+=over 4
+
+=item C<$decomposed_string = decompose($string [, $useCompatMapping])>
+
+It returns the concatenation of the decomposition of each character
+in the string.
+
+If the second parameter (a boolean) is omitted or false,
+the decomposition is canonical decomposition;
+if the second parameter (a boolean) is true,
+the decomposition is compatibility decomposition.
+
+The string returned is not always in NFD/NFKD. Reordering may be required.
+
+    $NFD_string  = reorder(decompose($string));       # eq. to NFD()
+    $NFKD_string = reorder(decompose($string, TRUE)); # eq. to NFKD()
+
+=item C<$reordered_string = reorder($string)>
+
+It returns the result of reordering the combining characters
+according to Canonical Ordering Behavior.
+
+For example, when you have a list of NFD/NFKD strings,
+you can get the concatenated NFD/NFKD string from them, by saying
+
+    $concat_NFD  = reorder(join '', @NFD_strings);
+    $concat_NFKD = reorder(join '', @NFKD_strings);
+
+=item C<$composed_string = compose($string)>
+
+It returns the result of canonical composition
+without applying any decomposition.
+
+For example, when you have a NFD/NFKD string,
+you can get its NFC/NFKC string, by saying
+
+    $NFC_string  = compose($NFD_string);
+    $NFKC_string = compose($NFKD_string);
+
+=item C<($processed, $unprocessed) = splitOnLastStarter($normalized)>
+
+It returns two strings: the first one, C<$processed>, is a part
+before the last starter, and the second one, C<$unprocessed> is
+another part after the first part. A starter is a character having
+a combining class of zero (see UAX #15).
+
+Note that C<$processed> may be empty (when C<$normalized> contains no
+starter or starts with the last starter), and then C<$unprocessed>
+should be equal to the entire C<$normalized>.
+
+When you have a C<$normalized> string and an C<$unnormalized> string
+following it, a simple concatenation is wrong:
+
+    $concat = $normalized . normalize($form, $unnormalized); # wrong!
+
+Instead of it, do like this:
+
+    ($processed, $unprocessed) = splitOnLastStarter($normalized);
+     $concat = $processed . normalize($form, $unprocessed.$unnormalized);
+
+C<splitOnLastStarter()> should be called with a pre-normalized parameter
+C<$normalized>, that is in the same form as C<$form> you want.
+
+If you have an array of C<@string> that should be concatenated and then
+normalized, you can do like this:
+
+    my $result = "";
+    my $unproc = "";
+    foreach my $str (@string) {
+        $unproc .= $str;
+        my $n = normalize($form, $unproc);
+        my($p, $u) = splitOnLastStarter($n);
+        $result .= $p;
+        $unproc  = $u;
+    }
+    $result .= $unproc;
+    # instead of normalize($form, join('', @string))
+
+=item C<$processed = normalize_partial($form, $unprocessed)>
+
+A wrapper for the combination of C<normalize()> and C<splitOnLastStarter()>.
+Note that C<$unprocessed> will be modified as a side-effect.
+
+If you have an array of C<@string> that should be concatenated and then
+normalized, you can do like this:
+
+    my $result = "";
+    my $unproc = "";
+    foreach my $str (@string) {
+        $unproc .= $str;
+        $result .= normalize_partial($form, $unproc);
+    }
+    $result .= $unproc;
+    # instead of normalize($form, join('', @string))
+
+=item C<$processed = NFD_partial($unprocessed)>
+
+It does like C<normalize_partial('NFD', $unprocessed)>.
+Note that C<$unprocessed> will be modified as a side-effect.
+
+=item C<$processed = NFC_partial($unprocessed)>
+
+It does like C<normalize_partial('NFC', $unprocessed)>.
+Note that C<$unprocessed> will be modified as a side-effect.
+
+=item C<$processed = NFKD_partial($unprocessed)>
+
+It does like C<normalize_partial('NFKD', $unprocessed)>.
+Note that C<$unprocessed> will be modified as a side-effect.
+
+=item C<$processed = NFKC_partial($unprocessed)>
+
+It does like C<normalize_partial('NFKC', $unprocessed)>.
+Note that C<$unprocessed> will be modified as a side-effect.
+
+=back
+
+=head2 Quick Check
+
+(see Annex 8, UAX #15; and F<DerivedNormalizationProps.txt>)
+
+The following functions check whether the string is in that normalization form.
+
+The result returned will be one of the following:
+
+    YES     The string is in that normalization form.
+    NO      The string is not in that normalization form.
+    MAYBE   Dubious. Maybe yes, maybe no.
+
+=over 4
+
+=item C<$result = checkNFD($string)>
+
+It returns true (C<1>) if C<YES>; false (C<empty string>) if C<NO>.
+
+=item C<$result = checkNFC($string)>
+
+It returns true (C<1>) if C<YES>; false (C<empty string>) if C<NO>;
+C<undef> if C<MAYBE>.
+
+=item C<$result = checkNFKD($string)>
+
+It returns true (C<1>) if C<YES>; false (C<empty string>) if C<NO>.
+
+=item C<$result = checkNFKC($string)>
+
+It returns true (C<1>) if C<YES>; false (C<empty string>) if C<NO>;
+C<undef> if C<MAYBE>.
+
+=item C<$result = checkFCD($string)>
+
+It returns true (C<1>) if C<YES>; false (C<empty string>) if C<NO>.
+
+=item C<$result = checkFCC($string)>
+
+It returns true (C<1>) if C<YES>; false (C<empty string>) if C<NO>;
+C<undef> if C<MAYBE>.
+
+Note: If a string is not in FCD, it must not be in FCC.
+So C<checkFCC($not_FCD_string)> should return C<NO>.
+
+=item C<$result = check($form_name, $string)>
+
+It returns true (C<1>) if C<YES>; false (C<empty string>) if C<NO>;
+C<undef> if C<MAYBE>.
+
+As C<$form_name>, one of the following names must be given.
+
+  'C'  or 'NFC'  for Normalization Form C  (UAX #15)
+  'D'  or 'NFD'  for Normalization Form D  (UAX #15)
+  'KC' or 'NFKC' for Normalization Form KC (UAX #15)
+  'KD' or 'NFKD' for Normalization Form KD (UAX #15)
+
+  'FCD'          for "Fast C or D" Form  (UTN #5)
+  'FCC'          for "Fast C Contiguous" (UTN #5)
+
+=back
+
+B<Note>
+
+In the cases of NFD, NFKD, and FCD, the answer must be
+either C<YES> or C<NO>. The answer C<MAYBE> may be returned
+in the cases of NFC, NFKC, and FCC.
+
+A C<MAYBE> string should contain at least one combining character
+or the like. For example, C<COMBINING ACUTE ACCENT> has
+the MAYBE_NFC/MAYBE_NFKC property.
+
+Both C<checkNFC("A\N{COMBINING ACUTE ACCENT}")>
+and C<checkNFC("B\N{COMBINING ACUTE ACCENT}")> will return C<MAYBE>.
+C<"A\N{COMBINING ACUTE ACCENT}"> is not in NFC
+(its NFC is C<"\N{LATIN CAPITAL LETTER A WITH ACUTE}">),
+while C<"B\N{COMBINING ACUTE ACCENT}"> is in NFC.
+
+If you want to check exactly, compare the string with its NFC/NFKC/FCC.
+
+    if ($string eq NFC($string)) {
+        # $string is exactly normalized in NFC;
+    } else {
+        # $string is not normalized in NFC;
+    }
+
+    if ($string eq NFKC($string)) {
+        # $string is exactly normalized in NFKC;
+    } else {
+        # $string is not normalized in NFKC;
+    }
+
+=head2 Character Data
+
+These functions are interface of character data used internally.
+If you want only to get Unicode normalization forms, you don't need
+call them yourself.
+
+=over 4
+
+=item C<$canonical_decomposition = getCanon($code_point)>
+
+If the character is canonically decomposable (including Hangul Syllables),
+it returns the (full) canonical decomposition as a string.
+Otherwise it returns C<undef>.
+
+B<Note:> According to the Unicode standard, the canonical decomposition
+of the character that is not canonically decomposable is same as
+the character itself.
+
+=item C<$compatibility_decomposition = getCompat($code_point)>
+
+If the character is compatibility decomposable (including Hangul Syllables),
+it returns the (full) compatibility decomposition as a string.
+Otherwise it returns C<undef>.
+
+B<Note:> According to the Unicode standard, the compatibility decomposition
+of the character that is not compatibility decomposable is same as
+the character itself.
+
+=item C<$code_point_composite = getComposite($code_point_here, $code_point_next)>
+
+If two characters here and next (as code points) are composable
+(including Hangul Jamo/Syllables and Composition Exclusions),
+it returns the code point of the composite.
+
+If they are not composable, it returns C<undef>.
+
+=item C<$combining_class = getCombinClass($code_point)>
+
+It returns the combining class (as an integer) of the character.
+
+=item C<$may_be_composed_with_prev_char = isComp2nd($code_point)>
+
+It returns a boolean whether the character of the specified codepoint
+may be composed with the previous one in a certain composition
+(including Hangul Compositions, but excluding
+Composition Exclusions and Non-Starter Decompositions).
+
+=item C<$is_exclusion = isExclusion($code_point)>
+
+It returns a boolean whether the code point is a composition exclusion.
+
+=item C<$is_singleton = isSingleton($code_point)>
+
+It returns a boolean whether the code point is a singleton
+
+=item C<$is_non_starter_decomposition = isNonStDecomp($code_point)>
+
+It returns a boolean whether the code point has Non-Starter Decomposition.
+
+=item C<$is_Full_Composition_Exclusion = isComp_Ex($code_point)>
+
+It returns a boolean of the derived property Comp_Ex
+(Full_Composition_Exclusion). This property is generated from
+Composition Exclusions + Singletons + Non-Starter Decompositions.
+
+=item C<$NFD_is_NO = isNFD_NO($code_point)>
+
+It returns a boolean of the derived property NFD_NO
+(NFD_Quick_Check=No).
+
+=item C<$NFC_is_NO = isNFC_NO($code_point)>
+
+It returns a boolean of the derived property NFC_NO
+(NFC_Quick_Check=No).
+
+=item C<$NFC_is_MAYBE = isNFC_MAYBE($code_point)>
+
+It returns a boolean of the derived property NFC_MAYBE
+(NFC_Quick_Check=Maybe).
+
+=item C<$NFKD_is_NO = isNFKD_NO($code_point)>
+
+It returns a boolean of the derived property NFKD_NO
+(NFKD_Quick_Check=No).
+
+=item C<$NFKC_is_NO = isNFKC_NO($code_point)>
+
+It returns a boolean of the derived property NFKC_NO
+(NFKC_Quick_Check=No).
+
+=item C<$NFKC_is_MAYBE = isNFKC_MAYBE($code_point)>
+
+It returns a boolean of the derived property NFKC_MAYBE
+(NFKC_Quick_Check=Maybe).
+
+=back
+
+=head1 EXPORT
+
+C<NFC>, C<NFD>, C<NFKC>, C<NFKD>: by default.
+
+C<normalize> and other some functions: on request.
+
+=head1 CAVEATS
+
+=over 4
+
+=item Perl's version vs. Unicode version
+
+Since this module refers to perl core's Unicode database in the directory
+F</lib/unicore> (or formerly F</lib/unicode>), the Unicode version of
+normalization implemented by this module depends on what has been
+compiled into your perl.  The following table lists the default Unicode
+version that comes with various perl versions.  (It is possible to change
+the Unicode version in any perl version to be any earlier Unicode version,
+so one could cause Unicode 3.2 to be used in any perl version starting with
+5.8.0.  See C<$Config{privlib}>/F<unicore/README.perl>.
+
+    perl's version     implemented Unicode version
+       5.6.1              3.0.1
+       5.7.2              3.1.0
+       5.7.3              3.1.1 (normalization is same as 3.1.0)
+       5.8.0              3.2.0
+         5.8.1-5.8.3      4.0.0
+         5.8.4-5.8.6      4.0.1 (normalization is same as 4.0.0)
+         5.8.7-5.8.8      4.1.0
+       5.10.0             5.0.0
+        5.8.9, 5.10.1     5.1.0
+       5.12.x             5.2.0
+       5.14.x             6.0.0
+       5.16.x             6.1.0
+       5.18.x             6.2.0
+       5.20.x             6.3.0
+       5.22.x             7.0.0
+
+=item Correction of decomposition mapping
+
+In older Unicode versions, a small number of characters (all of which are
+CJK compatibility ideographs as far as they have been found) may have
+an erroneous decomposition mapping (see F<NormalizationCorrections.txt>).
+Anyhow, this module will neither refer to F<NormalizationCorrections.txt>
+nor provide any specific version of normalization. Therefore this module
+running on an older perl with an older Unicode database may use
+the erroneous decomposition mapping blindly conforming to the Unicode database.
+
+=item Revised definition of canonical composition
+
+In Unicode 4.1.0, the definition D2 of canonical composition (which
+affects NFC and NFKC) has been changed (see Public Review Issue #29
+and recent UAX #15). This module has used the newer definition
+since the version 0.07 (Oct 31, 2001).
+This module will not support the normalization according to the older
+definition, even if the Unicode version implemented by perl is
+lower than 4.1.0.
+
+=back
+
+=head1 AUTHOR
+
+SADAHIRO Tomoyuki <SADAHIRO@cpan.org>
+
+Currently maintained by <perl5-porters@perl.org> 
+
+Copyright(C) 2001-2012, SADAHIRO Tomoyuki. Japan. All rights reserved.
+
+=head1 LICENSE
+
+This module is free software; you can redistribute it
+and/or modify it under the same terms as Perl itself.
+
+=head1 SEE ALSO
+
+=over 4
+
+=item http://www.unicode.org/reports/tr15/
+
+Unicode Normalization Forms - UAX #15
+
+=item http://www.unicode.org/Public/UNIDATA/CompositionExclusions.txt
+
+Composition Exclusion Table
+
+=item http://www.unicode.org/Public/UNIDATA/DerivedNormalizationProps.txt
+
+Derived Normalization Properties
+
+=item http://www.unicode.org/Public/UNIDATA/NormalizationCorrections.txt
+
+Normalization Corrections
+
+=item http://www.unicode.org/review/pr-29.html
+
+Public Review Issue #29: Normalization Issue
+
+=item http://www.unicode.org/notes/tn5/
+
+Canonical Equivalence in Applications - UTN #5
+
+=back
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/arybase.pm b/lib/5.24.1/x86_64-linux/arybase.pm
new file mode 100644
index 00000000..a519a4b3
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/arybase.pm
@@ -0,0 +1,98 @@
+package arybase;
+
+our $VERSION = "0.11";
+
+require XSLoader;
+XSLoader::load(); # This returns true, which makes require happy.
+
+__END__
+
+=head1 NAME
+
+arybase - Set indexing base via $[
+
+=head1 SYNOPSIS
+
+    $[ = 1;
+
+    @a = qw(Sun Mon Tue Wed Thu Fri Sat);
+    print $a[3], "\n";  # prints Tue
+
+=head1 DESCRIPTION
+
+This module implements Perl's C<$[> variable.  You should not use it
+directly.
+
+Assigning to C<$[> has the I<compile-time> effect of making the assigned
+value, converted to an integer, the index of the first element in an array
+and the first character in a substring, within the enclosing lexical scope.
+
+It can be written with or without C<local>:
+
+    $[ = 1;
+    local $[ = 1;
+
+It only works if the assignment can be detected at compile time and the
+value assigned is constant.
+
+It affects the following operations:
+
+    $array[$element]
+    @array[@slice]
+    $#array
+    (list())[$slice]
+    splice @array, $index, ...
+    each @array
+    keys @array
+
+    index $string, $substring  # return value is affected
+    pos $string
+    substr $string, $offset, ...
+
+As with the default base of 0, negative bases count from the end of the
+array or string, starting with -1.  If C<$[> is a positive integer, indices
+from C<$[-1> to 0 also count from the end.  If C<$[> is negative (why would
+you do that, though?), indices from C<$[> to 0 count from the beginning of
+the string, but indices below C<$[> count from the end of the string as
+though the base were 0.
+
+Prior to Perl 5.16, indices from 0 to C<$[-1> inclusive, for positive
+values of C<$[>, behaved differently for different operations; negative
+indices equal to or greater than a negative C<$[> likewise behaved
+inconsistently.
+
+=head1 HISTORY
+
+Before Perl 5, C<$[> was a global variable that affected all array indices
+and string offsets.
+
+Starting with Perl 5, it became a file-scoped compile-time directive, which
+could be made lexically-scoped with C<local>.  "File-scoped" means that the
+C<$[> assignment could leak out of the block in which occurred:
+
+    {
+        $[ = 1;
+        # ... array base is 1 here ...
+    }
+    # ... still 1, but not in other files ...
+
+In Perl 5.10, it became strictly lexical.  The file-scoped behaviour was
+removed (perhaps inadvertently, but what's done is done).
+
+In Perl 5.16, the implementation was moved into this module, and out of the
+Perl core.  The erratic behaviour that occurred with indices between -1 and
+C<$[> was made consistent between operations, and, for negative bases,
+indices from C<$[> to -1 inclusive were made consistent between operations.
+
+=head1 BUGS
+
+Error messages that mention array indices use the 0-based index.
+
+C<keys $arrayref> and C<each $arrayref> do not respect the current value of
+C<$[>.
+
+=head1 SEE ALSO
+
+L<perlvar/"$[">, L<Array::Base> and L<String::Base>.
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/attributes.pm b/lib/5.24.1/x86_64-linux/attributes.pm
new file mode 100644
index 00000000..f7af31b7
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/attributes.pm
@@ -0,0 +1,554 @@
+package attributes;
+
+our $VERSION = 0.27;
+
+@EXPORT_OK = qw(get reftype);
+@EXPORT = ();
+%EXPORT_TAGS = (ALL => [@EXPORT, @EXPORT_OK]);
+
+use strict;
+
+sub croak {
+    require Carp;
+    goto &Carp::croak;
+}
+
+sub carp {
+    require Carp;
+    goto &Carp::carp;
+}
+
+my %deprecated;
+$deprecated{CODE} = qr/\A-?(locked)\z/;
+$deprecated{ARRAY} = $deprecated{HASH} = $deprecated{SCALAR}
+    = qr/\A-?(unique)\z/;
+
+my %msg = (
+    lvalue => 'lvalue attribute applied to already-defined subroutine',
+   -lvalue => 'lvalue attribute removed from already-defined subroutine',
+    const  => 'Useless use of attribute "const"',
+);
+
+sub _modify_attrs_and_deprecate {
+    my $svtype = shift;
+    # Now that we've removed handling of locked from the XS code, we need to
+    # remove it here, else it ends up in @badattrs. (If we do the deprecation in
+    # XS, we can't control the warning based on *our* caller's lexical settings,
+    # and the warned line is in this package)
+    grep {
+	$deprecated{$svtype} && /$deprecated{$svtype}/ ? do {
+	    require warnings;
+	    warnings::warnif('deprecated', "Attribute \"$1\" is deprecated");
+	    0;
+	} : $svtype eq 'CODE' && exists $msg{$_} ? do {
+	    require warnings;
+	    warnings::warnif(
+		'misc',
+		 $msg{$_}
+	    );
+	    0;
+	} : 1
+    } _modify_attrs(@_);
+}
+
+sub import {
+    @_ > 2 && ref $_[2] or do {
+	require Exporter;
+	goto &Exporter::import;
+    };
+    my (undef,$home_stash,$svref,@attrs) = @_;
+
+    my $svtype = uc reftype($svref);
+    my $pkgmeth;
+    $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES")
+	if defined $home_stash && $home_stash ne '';
+    my @badattrs;
+    if ($pkgmeth) {
+	my @pkgattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs);
+	@badattrs = $pkgmeth->($home_stash, $svref, @pkgattrs);
+	if (!@badattrs && @pkgattrs) {
+            require warnings;
+	    return unless warnings::enabled('reserved');
+	    @pkgattrs = grep { m/\A[[:lower:]]+(?:\z|\()/ } @pkgattrs;
+	    if (@pkgattrs) {
+		for my $attr (@pkgattrs) {
+		    $attr =~ s/\(.+\z//s;
+		}
+		my $s = ((@pkgattrs == 1) ? '' : 's');
+		carp "$svtype package attribute$s " .
+		    "may clash with future reserved word$s: " .
+		    join(' : ' , @pkgattrs);
+	    }
+	}
+    }
+    else {
+	@badattrs = _modify_attrs_and_deprecate($svtype, $svref, @attrs);
+    }
+    if (@badattrs) {
+	croak "Invalid $svtype attribute" .
+	    (( @badattrs == 1 ) ? '' : 's') .
+	    ": " .
+	    join(' : ', @badattrs);
+    }
+}
+
+sub get ($) {
+    @_ == 1  && ref $_[0] or
+	croak 'Usage: '.__PACKAGE__.'::get $ref';
+    my $svref = shift;
+    my $svtype = uc reftype($svref);
+    my $stash = _guess_stash($svref);
+    $stash = caller unless defined $stash;
+    my $pkgmeth;
+    $pkgmeth = UNIVERSAL::can($stash, "FETCH_${svtype}_ATTRIBUTES")
+	if defined $stash && $stash ne '';
+    return $pkgmeth ?
+		(_fetch_attrs($svref), $pkgmeth->($stash, $svref)) :
+		(_fetch_attrs($svref))
+	;
+}
+
+sub require_version { goto &UNIVERSAL::VERSION }
+
+require XSLoader;
+XSLoader::load();
+
+1;
+__END__
+#The POD goes here
+
+=head1 NAME
+
+attributes - get/set subroutine or variable attributes
+
+=head1 SYNOPSIS
+
+  sub foo : method ;
+  my ($x,@y,%z) : Bent = 1;
+  my $s = sub : method { ... };
+
+  use attributes ();	# optional, to get subroutine declarations
+  my @attrlist = attributes::get(\&foo);
+
+  use attributes 'get'; # import the attributes::get subroutine
+  my @attrlist = get \&foo;
+
+=head1 DESCRIPTION
+
+Subroutine declarations and definitions may optionally have attribute lists
+associated with them.  (Variable C<my> declarations also may, but see the
+warning below.)  Perl handles these declarations by passing some information
+about the call site and the thing being declared along with the attribute
+list to this module.  In particular, the first example above is equivalent to
+the following:
+
+    use attributes __PACKAGE__, \&foo, 'method';
+
+The second example in the synopsis does something equivalent to this:
+
+    use attributes ();
+    my ($x,@y,%z);
+    attributes::->import(__PACKAGE__, \$x, 'Bent');
+    attributes::->import(__PACKAGE__, \@y, 'Bent');
+    attributes::->import(__PACKAGE__, \%z, 'Bent');
+    ($x,@y,%z) = 1;
+
+Yes, that's a lot of expansion.
+
+B<WARNING>: attribute declarations for variables are still evolving.
+The semantics and interfaces of such declarations could change in
+future versions.  They are present for purposes of experimentation
+with what the semantics ought to be.  Do not rely on the current
+implementation of this feature.
+
+There are only a few attributes currently handled by Perl itself (or
+directly by this module, depending on how you look at it.)  However,
+package-specific attributes are allowed by an extension mechanism.
+(See L<"Package-specific Attribute Handling"> below.)
+
+The setting of subroutine attributes happens at compile time.
+Variable attributes in C<our> declarations are also applied at compile time.
+However, C<my> variables get their attributes applied at run-time.
+This means that you have to I<reach> the run-time component of the C<my>
+before those attributes will get applied.  For example:
+
+    my $x : Bent = 42 if 0;
+
+will neither assign 42 to $x I<nor> will it apply the C<Bent> attribute
+to the variable.
+
+An attempt to set an unrecognized attribute is a fatal error.  (The
+error is trappable, but it still stops the compilation within that
+C<eval>.)  Setting an attribute with a name that's all lowercase
+letters that's not a built-in attribute (such as "foo") will result in
+a warning with B<-w> or C<use warnings 'reserved'>.
+
+=head2 What C<import> does
+
+In the description it is mentioned that
+
+  sub foo : method;
+
+is equivalent to
+
+  use attributes __PACKAGE__, \&foo, 'method';
+
+As you might know this calls the C<import> function of C<attributes> at compile 
+time with these parameters: 'attributes', the caller's package name, the reference 
+to the code and 'method'.
+
+  attributes->import( __PACKAGE__, \&foo, 'method' );
+
+So you want to know what C<import> actually does?
+
+First of all C<import> gets the type of the third parameter ('CODE' in this case).
+C<attributes.pm> checks if there is a subroutine called C<< MODIFY_<reftype>_ATTRIBUTES >>
+in the caller's namespace (here: 'main').  In this case a
+subroutine C<MODIFY_CODE_ATTRIBUTES> is required.  Then this
+method is called to check if you have used a "bad attribute".
+The subroutine call in this example would look like
+
+  MODIFY_CODE_ATTRIBUTES( 'main', \&foo, 'method' );
+
+C<< MODIFY_<reftype>_ATTRIBUTES >> has to return a list of all "bad attributes".
+If there are any bad attributes C<import> croaks.
+
+(See L<"Package-specific Attribute Handling"> below.)
+
+=head2 Built-in Attributes
+
+The following are the built-in attributes for subroutines:
+
+=over 4
+
+=item lvalue
+
+Indicates that the referenced subroutine is a valid lvalue and can
+be assigned to.  The subroutine must return a modifiable value such
+as a scalar variable, as described in L<perlsub>.
+
+This module allows one to set this attribute on a subroutine that is
+already defined.  For Perl subroutines (XSUBs are fine), it may or may not
+do what you want, depending on the code inside the subroutine, with details
+subject to change in future Perl versions.  You may run into problems with
+lvalue context not being propagated properly into the subroutine, or maybe
+even assertion failures.  For this reason, a warning is emitted if warnings
+are enabled.  In other words, you should only do this if you really know
+what you are doing.  You have been warned.
+
+=item method
+
+Indicates that the referenced subroutine
+is a method.  A subroutine so marked
+will not trigger the "Ambiguous call resolved as CORE::%s" warning.
+
+=item prototype(..)
+
+The "prototype" attribute is an alternate means of specifying a prototype
+on a sub.  The desired prototype is within the parens.
+
+The prototype from the attribute is assigned to the sub immediately after
+the prototype from the sub, which means that if both are declared at the
+same time, the traditionally defined prototype is ignored.  In other words,
+C<sub foo($$) : prototype(@) {}> is indistinguishable from C<sub foo(@){}>.
+
+If illegalproto warnings are enabled, the prototype declared inside this
+attribute will be sanity checked at compile time.
+
+=item locked
+
+The "locked" attribute is deprecated, and has no effect in 5.10.0 and later.
+It was used as part of the now-removed "Perl 5.005 threads".
+
+=item const
+
+This experimental attribute, introduced in Perl 5.22, only applies to
+anonymous subroutines.  It causes the subroutine to be called as soon as
+the C<sub> expression is evaluated.  The return value is captured and
+turned into a constant subroutine.
+
+=back
+
+The following are the built-in attributes for variables:
+
+=over 4
+
+=item shared
+
+Indicates that the referenced variable can be shared across different threads
+when used in conjunction with the L<threads> and L<threads::shared> modules.
+
+=item unique
+
+The "unique" attribute is deprecated, and has no effect in 5.10.0 and later.
+It used to indicate that a single copy of an C<our> variable was to be used by
+all interpreters should the program happen to be running in a
+multi-interpreter environment.
+
+=back
+
+=head2 Available Subroutines
+
+The following subroutines are available for general use once this module
+has been loaded:
+
+=over 4
+
+=item get
+
+This routine expects a single parameter--a reference to a
+subroutine or variable.  It returns a list of attributes, which may be
+empty.  If passed invalid arguments, it uses die() (via L<Carp::croak|Carp>)
+to raise a fatal exception.  If it can find an appropriate package name
+for a class method lookup, it will include the results from a
+C<FETCH_I<type>_ATTRIBUTES> call in its return list, as described in
+L<"Package-specific Attribute Handling"> below.
+Otherwise, only L<built-in attributes|"Built-in Attributes"> will be returned.
+
+=item reftype
+
+This routine expects a single parameter--a reference to a subroutine or
+variable.  It returns the built-in type of the referenced variable,
+ignoring any package into which it might have been blessed.
+This can be useful for determining the I<type> value which forms part of
+the method names described in L<"Package-specific Attribute Handling"> below.
+
+=back
+
+Note that these routines are I<not> exported by default.
+
+=head2 Package-specific Attribute Handling
+
+B<WARNING>: the mechanisms described here are still experimental.  Do not
+rely on the current implementation.  In particular, there is no provision
+for applying package attributes to 'cloned' copies of subroutines used as
+closures.  (See L<perlref/"Making References"> for information on closures.)
+Package-specific attribute handling may change incompatibly in a future
+release.
+
+When an attribute list is present in a declaration, a check is made to see
+whether an attribute 'modify' handler is present in the appropriate package
+(or its @ISA inheritance tree).  Similarly, when C<attributes::get> is
+called on a valid reference, a check is made for an appropriate attribute
+'fetch' handler.  See L<"EXAMPLES"> to see how the "appropriate package"
+determination works.
+
+The handler names are based on the underlying type of the variable being
+declared or of the reference passed.  Because these attributes are
+associated with subroutine or variable declarations, this deliberately
+ignores any possibility of being blessed into some package.  Thus, a
+subroutine declaration uses "CODE" as its I<type>, and even a blessed
+hash reference uses "HASH" as its I<type>.
+
+The class methods invoked for modifying and fetching are these:
+
+=over 4
+
+=item FETCH_I<type>_ATTRIBUTES
+
+This method is called with two arguments:  the relevant package name,
+and a reference to a variable or subroutine for which package-defined
+attributes are desired.  The expected return value is a list of
+associated attributes.  This list may be empty.
+
+=item MODIFY_I<type>_ATTRIBUTES
+
+This method is called with two fixed arguments, followed by the list of
+attributes from the relevant declaration.  The two fixed arguments are
+the relevant package name and a reference to the declared subroutine or
+variable.  The expected return value is a list of attributes which were
+not recognized by this handler.  Note that this allows for a derived class
+to delegate a call to its base class, and then only examine the attributes
+which the base class didn't already handle for it.
+
+The call to this method is currently made I<during> the processing of the
+declaration.  In particular, this means that a subroutine reference will
+probably be for an undefined subroutine, even if this declaration is
+actually part of the definition.
+
+=back
+
+Calling C<attributes::get()> from within the scope of a null package
+declaration C<package ;> for an unblessed variable reference will
+not provide any starting package name for the 'fetch' method lookup.
+Thus, this circumstance will not result in a method call for package-defined
+attributes.  A named subroutine knows to which symbol table entry it belongs
+(or originally belonged), and it will use the corresponding package.
+An anonymous subroutine knows the package name into which it was compiled
+(unless it was also compiled with a null package declaration), and so it
+will use that package name.
+
+=head2 Syntax of Attribute Lists
+
+An attribute list is a sequence of attribute specifications, separated by
+whitespace or a colon (with optional whitespace).
+Each attribute specification is a simple
+name, optionally followed by a parenthesised parameter list.
+If such a parameter list is present, it is scanned past as for the rules
+for the C<q()> operator.  (See L<perlop/"Quote and Quote-like Operators">.)
+The parameter list is passed as it was found, however, and not as per C<q()>.
+
+Some examples of syntactically valid attribute lists:
+
+    switch(10,foo(7,3))  :  expensive
+    Ugly('\(") :Bad
+    _5x5
+    lvalue method
+
+Some examples of syntactically invalid attribute lists (with annotation):
+
+    switch(10,foo()		# ()-string not balanced
+    Ugly('(')			# ()-string not balanced
+    5x5				# "5x5" not a valid identifier
+    Y2::north			# "Y2::north" not a simple identifier
+    foo + bar			# "+" neither a colon nor whitespace
+
+=head1 EXPORTS
+
+=head2 Default exports
+
+None.
+
+=head2 Available exports
+
+The routines C<get> and C<reftype> are exportable.
+
+=head2 Export tags defined
+
+The C<:ALL> tag will get all of the above exports.
+
+=head1 EXAMPLES
+
+Here are some samples of syntactically valid declarations, with annotation
+as to how they resolve internally into C<use attributes> invocations by
+perl.  These examples are primarily useful to see how the "appropriate
+package" is found for the possible method lookups for package-defined
+attributes.
+
+=over 4
+
+=item 1.
+
+Code:
+
+    package Canine;
+    package Dog;
+    my Canine $spot : Watchful ;
+
+Effect:
+
+    use attributes ();
+    attributes::->import(Canine => \$spot, "Watchful");
+
+=item 2.
+
+Code:
+
+    package Felis;
+    my $cat : Nervous;
+
+Effect:
+
+    use attributes ();
+    attributes::->import(Felis => \$cat, "Nervous");
+
+=item 3.
+
+Code:
+
+    package X;
+    sub foo : lvalue ;
+
+Effect:
+
+    use attributes X => \&foo, "lvalue";
+
+=item 4.
+
+Code:
+
+    package X;
+    sub Y::x : lvalue { 1 }
+
+Effect:
+
+    use attributes Y => \&Y::x, "lvalue";
+
+=item 5.
+
+Code:
+
+    package X;
+    sub foo { 1 }
+
+    package Y;
+    BEGIN { *bar = \&X::foo; }
+
+    package Z;
+    sub Y::bar : lvalue ;
+
+Effect:
+
+    use attributes X => \&X::foo, "lvalue";
+
+=back
+
+This last example is purely for purposes of completeness.  You should not
+be trying to mess with the attributes of something in a package that's
+not your own.
+
+=head1 MORE EXAMPLES
+
+=over 4
+
+=item 1.
+
+    sub MODIFY_CODE_ATTRIBUTES {
+       my ($class,$code,@attrs) = @_;
+
+       my $allowed = 'MyAttribute';
+       my @bad = grep { $_ ne $allowed } @attrs;
+
+       return @bad;
+    }
+
+    sub foo : MyAttribute {
+       print "foo\n";
+    }
+
+This example runs.  At compile time
+C<MODIFY_CODE_ATTRIBUTES> is called.  In that
+subroutine, we check if any attribute is disallowed and we return a list of
+these "bad attributes".
+
+As we return an empty list, everything is fine.
+
+=item 2.
+
+  sub MODIFY_CODE_ATTRIBUTES {
+     my ($class,$code,@attrs) = @_;
+
+     my $allowed = 'MyAttribute';
+     my @bad = grep{ $_ ne $allowed }@attrs;
+
+     return @bad;
+  }
+
+  sub foo : MyAttribute Test {
+     print "foo\n";
+  }
+
+This example is aborted at compile time as we use the attribute "Test" which
+isn't allowed.  C<MODIFY_CODE_ATTRIBUTES>
+returns a list that contains a single
+element ('Test').
+
+=back
+
+=head1 SEE ALSO
+
+L<perlsub/"Private Variables via my()"> and
+L<perlsub/"Subroutine Attributes"> for details on the basic declarations;
+L<perlfunc/use> for details on the normal invocation mechanism.
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/auto/B/B.so b/lib/5.24.1/x86_64-linux/auto/B/B.so
new file mode 100755
index 00000000..a672855d
Binary files /dev/null and b/lib/5.24.1/x86_64-linux/auto/B/B.so differ
diff --git a/lib/5.24.1/x86_64-linux/auto/Compress/Raw/Bzip2/Bzip2.so b/lib/5.24.1/x86_64-linux/auto/Compress/Raw/Bzip2/Bzip2.so
new file mode 100755
index 00000000..937c5c63
Binary files /dev/null and b/lib/5.24.1/x86_64-linux/auto/Compress/Raw/Bzip2/Bzip2.so differ
diff --git a/lib/5.24.1/x86_64-linux/auto/Compress/Raw/Zlib/Zlib.so b/lib/5.24.1/x86_64-linux/auto/Compress/Raw/Zlib/Zlib.so
new file mode 100755
index 00000000..1082a44e
Binary files /dev/null and b/lib/5.24.1/x86_64-linux/auto/Compress/Raw/Zlib/Zlib.so differ
diff --git a/lib/5.24.1/x86_64-linux/auto/Cwd/Cwd.so b/lib/5.24.1/x86_64-linux/auto/Cwd/Cwd.so
new file mode 100755
index 00000000..c1030449
Binary files /dev/null and b/lib/5.24.1/x86_64-linux/auto/Cwd/Cwd.so differ
diff --git a/lib/5.24.1/x86_64-linux/auto/Data/Dumper/Dumper.so b/lib/5.24.1/x86_64-linux/auto/Data/Dumper/Dumper.so
new file mode 100755
index 00000000..33ff997b
Binary files /dev/null and b/lib/5.24.1/x86_64-linux/auto/Data/Dumper/Dumper.so differ
diff --git a/lib/5.24.1/x86_64-linux/auto/Devel/Peek/Peek.so b/lib/5.24.1/x86_64-linux/auto/Devel/Peek/Peek.so
new file mode 100755
index 00000000..c7337509
Binary files /dev/null and b/lib/5.24.1/x86_64-linux/auto/Devel/Peek/Peek.so differ
diff --git a/lib/5.24.1/x86_64-linux/auto/Digest/MD5/MD5.so b/lib/5.24.1/x86_64-linux/auto/Digest/MD5/MD5.so
new file mode 100755
index 00000000..3bd30fc1
Binary files /dev/null and b/lib/5.24.1/x86_64-linux/auto/Digest/MD5/MD5.so differ
diff --git a/lib/5.24.1/x86_64-linux/auto/Digest/SHA/SHA.so b/lib/5.24.1/x86_64-linux/auto/Digest/SHA/SHA.so
new file mode 100755
index 00000000..b3efaa42
Binary files /dev/null and b/lib/5.24.1/x86_64-linux/auto/Digest/SHA/SHA.so differ
diff --git a/lib/5.24.1/x86_64-linux/auto/Encode/Byte/Byte.so b/lib/5.24.1/x86_64-linux/auto/Encode/Byte/Byte.so
new file mode 100755
index 00000000..35b0315a
Binary files /dev/null and b/lib/5.24.1/x86_64-linux/auto/Encode/Byte/Byte.so differ
diff --git a/lib/5.24.1/x86_64-linux/auto/Encode/CN/CN.so b/lib/5.24.1/x86_64-linux/auto/Encode/CN/CN.so
new file mode 100755
index 00000000..37a16e59
Binary files /dev/null and b/lib/5.24.1/x86_64-linux/auto/Encode/CN/CN.so differ
diff --git a/lib/5.24.1/x86_64-linux/auto/Encode/EBCDIC/EBCDIC.so b/lib/5.24.1/x86_64-linux/auto/Encode/EBCDIC/EBCDIC.so
new file mode 100755
index 00000000..75ddd5fd
Binary files /dev/null and b/lib/5.24.1/x86_64-linux/auto/Encode/EBCDIC/EBCDIC.so differ
diff --git a/lib/5.24.1/x86_64-linux/auto/Encode/Encode.so b/lib/5.24.1/x86_64-linux/auto/Encode/Encode.so
new file mode 100755
index 00000000..e89176dd
Binary files /dev/null and b/lib/5.24.1/x86_64-linux/auto/Encode/Encode.so differ
diff --git a/lib/5.24.1/x86_64-linux/auto/Encode/JP/JP.so b/lib/5.24.1/x86_64-linux/auto/Encode/JP/JP.so
new file mode 100755
index 00000000..c69c85a0
Binary files /dev/null and b/lib/5.24.1/x86_64-linux/auto/Encode/JP/JP.so differ
diff --git a/lib/5.24.1/x86_64-linux/auto/Encode/KR/KR.so b/lib/5.24.1/x86_64-linux/auto/Encode/KR/KR.so
new file mode 100755
index 00000000..c3eeefd8
Binary files /dev/null and b/lib/5.24.1/x86_64-linux/auto/Encode/KR/KR.so differ
diff --git a/lib/5.24.1/x86_64-linux/auto/Encode/Symbol/Symbol.so b/lib/5.24.1/x86_64-linux/auto/Encode/Symbol/Symbol.so
new file mode 100755
index 00000000..5fd52457
Binary files /dev/null and b/lib/5.24.1/x86_64-linux/auto/Encode/Symbol/Symbol.so differ
diff --git a/lib/5.24.1/x86_64-linux/auto/Encode/TW/TW.so b/lib/5.24.1/x86_64-linux/auto/Encode/TW/TW.so
new file mode 100755
index 00000000..15e09dbe
Binary files /dev/null and b/lib/5.24.1/x86_64-linux/auto/Encode/TW/TW.so differ
diff --git a/lib/5.24.1/x86_64-linux/auto/Encode/Unicode/Unicode.so b/lib/5.24.1/x86_64-linux/auto/Encode/Unicode/Unicode.so
new file mode 100755
index 00000000..82b6faa1
Binary files /dev/null and b/lib/5.24.1/x86_64-linux/auto/Encode/Unicode/Unicode.so differ
diff --git a/lib/5.24.1/x86_64-linux/auto/Fcntl/Fcntl.so b/lib/5.24.1/x86_64-linux/auto/Fcntl/Fcntl.so
new file mode 100755
index 00000000..bdde5569
Binary files /dev/null and b/lib/5.24.1/x86_64-linux/auto/Fcntl/Fcntl.so differ
diff --git a/lib/5.24.1/x86_64-linux/auto/File/DosGlob/DosGlob.so b/lib/5.24.1/x86_64-linux/auto/File/DosGlob/DosGlob.so
new file mode 100755
index 00000000..a9fce80e
Binary files /dev/null and b/lib/5.24.1/x86_64-linux/auto/File/DosGlob/DosGlob.so differ
diff --git a/lib/5.24.1/x86_64-linux/auto/File/Glob/Glob.so b/lib/5.24.1/x86_64-linux/auto/File/Glob/Glob.so
new file mode 100755
index 00000000..8475f1f4
Binary files /dev/null and b/lib/5.24.1/x86_64-linux/auto/File/Glob/Glob.so differ
diff --git a/lib/5.24.1/x86_64-linux/auto/Filter/Util/Call/Call.so b/lib/5.24.1/x86_64-linux/auto/Filter/Util/Call/Call.so
new file mode 100755
index 00000000..3c7731a2
Binary files /dev/null and b/lib/5.24.1/x86_64-linux/auto/Filter/Util/Call/Call.so differ
diff --git a/lib/5.24.1/x86_64-linux/auto/Hash/Util/FieldHash/FieldHash.so b/lib/5.24.1/x86_64-linux/auto/Hash/Util/FieldHash/FieldHash.so
new file mode 100755
index 00000000..97a0e6aa
Binary files /dev/null and b/lib/5.24.1/x86_64-linux/auto/Hash/Util/FieldHash/FieldHash.so differ
diff --git a/lib/5.24.1/x86_64-linux/auto/Hash/Util/Util.so b/lib/5.24.1/x86_64-linux/auto/Hash/Util/Util.so
new file mode 100755
index 00000000..f4105c5b
Binary files /dev/null and b/lib/5.24.1/x86_64-linux/auto/Hash/Util/Util.so differ
diff --git a/lib/5.24.1/x86_64-linux/auto/I18N/Langinfo/Langinfo.so b/lib/5.24.1/x86_64-linux/auto/I18N/Langinfo/Langinfo.so
new file mode 100755
index 00000000..a69ad979
Binary files /dev/null and b/lib/5.24.1/x86_64-linux/auto/I18N/Langinfo/Langinfo.so differ
diff --git a/lib/5.24.1/x86_64-linux/auto/IO/IO.so b/lib/5.24.1/x86_64-linux/auto/IO/IO.so
new file mode 100755
index 00000000..b0fbea44
Binary files /dev/null and b/lib/5.24.1/x86_64-linux/auto/IO/IO.so differ
diff --git a/lib/5.24.1/x86_64-linux/auto/IPC/SysV/SysV.so b/lib/5.24.1/x86_64-linux/auto/IPC/SysV/SysV.so
new file mode 100755
index 00000000..1d8ccd73
Binary files /dev/null and b/lib/5.24.1/x86_64-linux/auto/IPC/SysV/SysV.so differ
diff --git a/lib/5.24.1/x86_64-linux/auto/List/Util/Util.so b/lib/5.24.1/x86_64-linux/auto/List/Util/Util.so
new file mode 100755
index 00000000..6f861ab5
Binary files /dev/null and b/lib/5.24.1/x86_64-linux/auto/List/Util/Util.so differ
diff --git a/lib/5.24.1/x86_64-linux/auto/MIME/Base64/Base64.so b/lib/5.24.1/x86_64-linux/auto/MIME/Base64/Base64.so
new file mode 100755
index 00000000..d27b6231
Binary files /dev/null and b/lib/5.24.1/x86_64-linux/auto/MIME/Base64/Base64.so differ
diff --git a/lib/5.24.1/x86_64-linux/auto/Math/BigInt/FastCalc/FastCalc.so b/lib/5.24.1/x86_64-linux/auto/Math/BigInt/FastCalc/FastCalc.so
new file mode 100755
index 00000000..bdbdf7fa
Binary files /dev/null and b/lib/5.24.1/x86_64-linux/auto/Math/BigInt/FastCalc/FastCalc.so differ
diff --git a/lib/5.24.1/x86_64-linux/auto/Opcode/Opcode.so b/lib/5.24.1/x86_64-linux/auto/Opcode/Opcode.so
new file mode 100755
index 00000000..91140a9e
Binary files /dev/null and b/lib/5.24.1/x86_64-linux/auto/Opcode/Opcode.so differ
diff --git a/lib/5.24.1/x86_64-linux/auto/POSIX/POSIX.so b/lib/5.24.1/x86_64-linux/auto/POSIX/POSIX.so
new file mode 100755
index 00000000..bb96c1f3
Binary files /dev/null and b/lib/5.24.1/x86_64-linux/auto/POSIX/POSIX.so differ
diff --git a/lib/5.24.1/x86_64-linux/auto/PerlIO/encoding/encoding.so b/lib/5.24.1/x86_64-linux/auto/PerlIO/encoding/encoding.so
new file mode 100755
index 00000000..1152fa14
Binary files /dev/null and b/lib/5.24.1/x86_64-linux/auto/PerlIO/encoding/encoding.so differ
diff --git a/lib/5.24.1/x86_64-linux/auto/PerlIO/mmap/mmap.so b/lib/5.24.1/x86_64-linux/auto/PerlIO/mmap/mmap.so
new file mode 100755
index 00000000..1adbc5f1
Binary files /dev/null and b/lib/5.24.1/x86_64-linux/auto/PerlIO/mmap/mmap.so differ
diff --git a/lib/5.24.1/x86_64-linux/auto/PerlIO/scalar/scalar.so b/lib/5.24.1/x86_64-linux/auto/PerlIO/scalar/scalar.so
new file mode 100755
index 00000000..7b3e2017
Binary files /dev/null and b/lib/5.24.1/x86_64-linux/auto/PerlIO/scalar/scalar.so differ
diff --git a/lib/5.24.1/x86_64-linux/auto/PerlIO/via/via.so b/lib/5.24.1/x86_64-linux/auto/PerlIO/via/via.so
new file mode 100755
index 00000000..e9e3d049
Binary files /dev/null and b/lib/5.24.1/x86_64-linux/auto/PerlIO/via/via.so differ
diff --git a/lib/5.24.1/x86_64-linux/auto/SDBM_File/SDBM_File.so b/lib/5.24.1/x86_64-linux/auto/SDBM_File/SDBM_File.so
new file mode 100755
index 00000000..5f3384f3
Binary files /dev/null and b/lib/5.24.1/x86_64-linux/auto/SDBM_File/SDBM_File.so differ
diff --git a/lib/5.24.1/x86_64-linux/auto/Socket/Socket.so b/lib/5.24.1/x86_64-linux/auto/Socket/Socket.so
new file mode 100755
index 00000000..b767d2bc
Binary files /dev/null and b/lib/5.24.1/x86_64-linux/auto/Socket/Socket.so differ
diff --git a/lib/5.24.1/x86_64-linux/auto/Storable/Storable.so b/lib/5.24.1/x86_64-linux/auto/Storable/Storable.so
new file mode 100755
index 00000000..9585d938
Binary files /dev/null and b/lib/5.24.1/x86_64-linux/auto/Storable/Storable.so differ
diff --git a/lib/5.24.1/x86_64-linux/auto/Sys/Hostname/Hostname.so b/lib/5.24.1/x86_64-linux/auto/Sys/Hostname/Hostname.so
new file mode 100755
index 00000000..38d0722d
Binary files /dev/null and b/lib/5.24.1/x86_64-linux/auto/Sys/Hostname/Hostname.so differ
diff --git a/lib/5.24.1/x86_64-linux/auto/Sys/Syslog/Syslog.so b/lib/5.24.1/x86_64-linux/auto/Sys/Syslog/Syslog.so
new file mode 100755
index 00000000..8c8140ed
Binary files /dev/null and b/lib/5.24.1/x86_64-linux/auto/Sys/Syslog/Syslog.so differ
diff --git a/lib/5.24.1/x86_64-linux/auto/Tie/Hash/NamedCapture/NamedCapture.so b/lib/5.24.1/x86_64-linux/auto/Tie/Hash/NamedCapture/NamedCapture.so
new file mode 100755
index 00000000..3d263b7f
Binary files /dev/null and b/lib/5.24.1/x86_64-linux/auto/Tie/Hash/NamedCapture/NamedCapture.so differ
diff --git a/lib/5.24.1/x86_64-linux/auto/Time/HiRes/HiRes.so b/lib/5.24.1/x86_64-linux/auto/Time/HiRes/HiRes.so
new file mode 100755
index 00000000..ad2d5bf4
Binary files /dev/null and b/lib/5.24.1/x86_64-linux/auto/Time/HiRes/HiRes.so differ
diff --git a/lib/5.24.1/x86_64-linux/auto/Time/Piece/Piece.so b/lib/5.24.1/x86_64-linux/auto/Time/Piece/Piece.so
new file mode 100755
index 00000000..5b6445ab
Binary files /dev/null and b/lib/5.24.1/x86_64-linux/auto/Time/Piece/Piece.so differ
diff --git a/lib/5.24.1/x86_64-linux/auto/Unicode/Collate/Collate.so b/lib/5.24.1/x86_64-linux/auto/Unicode/Collate/Collate.so
new file mode 100755
index 00000000..469ff3fd
Binary files /dev/null and b/lib/5.24.1/x86_64-linux/auto/Unicode/Collate/Collate.so differ
diff --git a/lib/5.24.1/x86_64-linux/auto/Unicode/Normalize/Normalize.so b/lib/5.24.1/x86_64-linux/auto/Unicode/Normalize/Normalize.so
new file mode 100755
index 00000000..bce9d7f2
Binary files /dev/null and b/lib/5.24.1/x86_64-linux/auto/Unicode/Normalize/Normalize.so differ
diff --git a/lib/5.24.1/x86_64-linux/auto/arybase/arybase.so b/lib/5.24.1/x86_64-linux/auto/arybase/arybase.so
new file mode 100755
index 00000000..ccbee7d3
Binary files /dev/null and b/lib/5.24.1/x86_64-linux/auto/arybase/arybase.so differ
diff --git a/lib/5.24.1/x86_64-linux/auto/attributes/attributes.so b/lib/5.24.1/x86_64-linux/auto/attributes/attributes.so
new file mode 100755
index 00000000..cec5aeb2
Binary files /dev/null and b/lib/5.24.1/x86_64-linux/auto/attributes/attributes.so differ
diff --git a/lib/5.24.1/x86_64-linux/auto/mro/mro.so b/lib/5.24.1/x86_64-linux/auto/mro/mro.so
new file mode 100755
index 00000000..86032538
Binary files /dev/null and b/lib/5.24.1/x86_64-linux/auto/mro/mro.so differ
diff --git a/lib/5.24.1/x86_64-linux/auto/re/re.so b/lib/5.24.1/x86_64-linux/auto/re/re.so
new file mode 100755
index 00000000..321aa00f
Binary files /dev/null and b/lib/5.24.1/x86_64-linux/auto/re/re.so differ
diff --git a/lib/5.24.1/x86_64-linux/auto/threads/shared/shared.so b/lib/5.24.1/x86_64-linux/auto/threads/shared/shared.so
new file mode 100755
index 00000000..393d2263
Binary files /dev/null and b/lib/5.24.1/x86_64-linux/auto/threads/shared/shared.so differ
diff --git a/lib/5.24.1/x86_64-linux/auto/threads/threads.so b/lib/5.24.1/x86_64-linux/auto/threads/threads.so
new file mode 100755
index 00000000..32087c2d
Binary files /dev/null and b/lib/5.24.1/x86_64-linux/auto/threads/threads.so differ
diff --git a/lib/5.24.1/x86_64-linux/encoding.pm b/lib/5.24.1/x86_64-linux/encoding.pm
new file mode 100644
index 00000000..8450f9ca
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/encoding.pm
@@ -0,0 +1,716 @@
+# $Id: encoding.pm,v 2.17 2015/09/15 13:53:27 dankogai Exp dankogai $
+package encoding;
+our $VERSION = sprintf "%d.%02d", q$Revision: 2.17 $ =~ /(\d+)/g;
+
+use Encode;
+use strict;
+use warnings;
+
+use constant {
+    DEBUG => !!$ENV{PERL_ENCODE_DEBUG},
+    HAS_PERLIO => eval { require PerlIO::encoding; PerlIO::encoding->VERSION(0.02) },
+    PERL_5_21_7 => $^V && $^V ge v5.21.7,
+};
+
+sub _exception {
+    my $name = shift;
+    $] > 5.008 and return 0;    # 5.8.1 or higher then no
+    my %utfs = map { $_ => 1 }
+      qw(utf8 UCS-2BE UCS-2LE UTF-16 UTF-16BE UTF-16LE
+      UTF-32 UTF-32BE UTF-32LE);
+    $utfs{$name} or return 0;    # UTFs or no
+    require Config;
+    Config->import();
+    our %Config;
+    return $Config{perl_patchlevel} ? 0 : 1    # maintperl then no
+}
+
+sub in_locale { $^H & ( $locale::hint_bits || 0 ) }
+
+sub _get_locale_encoding {
+    my $locale_encoding;
+
+    if ($^O eq 'MSWin32') {
+        my @tries = (
+            # First try to get the OutputCP. This will work only if we
+            # are attached to a console
+            'Win32.pm' => 'Win32::GetConsoleOutputCP',
+            'Win32/Console.pm' => 'Win32::Console::OutputCP',
+            # If above failed, this means that we are a GUI app
+            # Let's assume that the ANSI codepage is what matters
+            'Win32.pm' => 'Win32::GetACP',
+        );
+        while (@tries) {
+            my $cp = eval {
+                require $tries[0];
+                no strict 'refs';
+                &{$tries[1]}()
+            };
+            if ($cp) {
+                if ($cp == 65001) { # Code page for UTF-8
+                    $locale_encoding = 'UTF-8';
+                } else {
+                    $locale_encoding = 'cp' . $cp;
+                }
+                return $locale_encoding;
+            }
+            splice(@tries, 0, 2)
+        }
+    }
+
+    # I18N::Langinfo isn't available everywhere
+    $locale_encoding = eval {
+        require I18N::Langinfo;
+        find_encoding(
+            I18N::Langinfo::langinfo( I18N::Langinfo::CODESET() )
+        )->name
+    };
+    return $locale_encoding if defined $locale_encoding;
+
+    eval {
+        require POSIX;
+        # Get the current locale
+        # Remember that MSVCRT impl is quite different from Unixes
+        my $locale = POSIX::setlocale(POSIX::LC_CTYPE());
+        if ( $locale =~ /^([^.]+)\.([^.@]+)(?:@.*)?$/ ) {
+            my $country_language;
+            ( $country_language, $locale_encoding ) = ( $1, $2 );
+
+            # Could do more heuristics based on the country and language
+            # since we have Locale::Country and Locale::Language available.
+            # TODO: get a database of Language -> Encoding mappings
+            # (the Estonian database at http://www.eki.ee/letter/
+            # would be excellent!) --jhi
+            if (lc($locale_encoding) eq 'euc') {
+                if ( $country_language =~ /^ja_JP|japan(?:ese)?$/i ) {
+                    $locale_encoding = 'euc-jp';
+                }
+                elsif ( $country_language =~ /^ko_KR|korean?$/i ) {
+                    $locale_encoding = 'euc-kr';
+                }
+                elsif ( $country_language =~ /^zh_CN|chin(?:a|ese)$/i ) {
+                    $locale_encoding = 'euc-cn';
+                }
+                elsif ( $country_language =~ /^zh_TW|taiwan(?:ese)?$/i ) {
+                    $locale_encoding = 'euc-tw';
+                }
+                else {
+                    require Carp;
+                    Carp::croak(
+                        "encoding: Locale encoding '$locale_encoding' too ambiguous"
+                    );
+                }
+            }
+        }
+    };
+
+    return $locale_encoding;
+}
+
+sub import {
+
+    if ( ord("A") == 193 ) {
+        require Carp;
+        Carp::croak("encoding: pragma does not support EBCDIC platforms");
+    }
+
+    if ($] >= 5.017) {
+	warnings::warnif("deprecated",
+			 "Use of the encoding pragma is deprecated")
+    }
+    my $class = shift;
+    my $name  = shift;
+    if (!$name){
+	require Carp;
+        Carp::croak("encoding: no encoding specified.");
+    }
+    if ( $name eq ':_get_locale_encoding' ) {    # used by lib/open.pm
+        my $caller = caller();
+        {
+            no strict 'refs';
+            *{"${caller}::_get_locale_encoding"} = \&_get_locale_encoding;
+        }
+        return;
+    }
+    $name = _get_locale_encoding() if $name eq ':locale';
+    my %arg = @_;
+    $name = $ENV{PERL_ENCODING} unless defined $name;
+    my $enc = find_encoding($name);
+    unless ( defined $enc ) {
+        require Carp;
+        Carp::croak("encoding: Unknown encoding '$name'");
+    }
+    $name = $enc->name;    # canonize
+    unless ( $arg{Filter} ) {
+        DEBUG and warn "_exception($name) = ", _exception($name);
+        if (! _exception($name)) {
+            if (!PERL_5_21_7) {
+                ${^ENCODING} = $enc;
+            }
+            else {
+                # Starting with 5.21.7, this pragma uses a shadow variable
+                # designed explicitly for it, ${^E_NCODING}, to enforce
+                # lexical scope; instead of ${^ENCODING}.
+                $^H{'encoding'} = 1;
+                ${^E_NCODING} = $enc;
+            }
+        }
+        HAS_PERLIO or return 1;
+    }
+    else {
+        defined( ${^ENCODING} ) and undef ${^ENCODING};
+        undef ${^E_NCODING} if PERL_5_21_7;
+
+        # implicitly 'use utf8'
+        require utf8;      # to fetch $utf8::hint_bits;
+        $^H |= $utf8::hint_bits;
+        eval {
+            require Filter::Util::Call;
+            Filter::Util::Call->import;
+            filter_add(
+                sub {
+                    my $status = filter_read();
+                    if ( $status > 0 ) {
+                        $_ = $enc->decode( $_, 1 );
+                        DEBUG and warn $_;
+                    }
+                    $status;
+                }
+            );
+        };
+        $@ eq '' and DEBUG and warn "Filter installed";
+    }
+    defined ${^UNICODE} and ${^UNICODE} != 0 and return 1;
+    for my $h (qw(STDIN STDOUT)) {
+        if ( $arg{$h} ) {
+            unless ( defined find_encoding( $arg{$h} ) ) {
+                require Carp;
+                Carp::croak(
+                    "encoding: Unknown encoding for $h, '$arg{$h}'");
+            }
+            eval { binmode( $h, ":raw :encoding($arg{$h})" ) };
+        }
+        else {
+            unless ( exists $arg{$h} ) {
+                eval {
+                    no warnings 'uninitialized';
+                    binmode( $h, ":raw :encoding($name)" );
+                };
+            }
+        }
+        if ($@) {
+            require Carp;
+            Carp::croak($@);
+        }
+    }
+    return 1;    # I doubt if we need it, though
+}
+
+sub unimport {
+    no warnings;
+    undef ${^ENCODING};
+    undef ${^E_NCODING} if PERL_5_21_7;
+    if (HAS_PERLIO) {
+        binmode( STDIN,  ":raw" );
+        binmode( STDOUT, ":raw" );
+    }
+    else {
+        binmode(STDIN);
+        binmode(STDOUT);
+    }
+    if ( $INC{"Filter/Util/Call.pm"} ) {
+        eval { filter_del() };
+    }
+}
+
+1;
+__END__
+
+=pod
+
+=head1 NAME
+
+encoding - allows you to write your script in non-ASCII and non-UTF-8
+
+=head1 WARNING
+
+This module has been deprecated since perl v5.18.  See L</DESCRIPTION> and
+L</BUGS>.
+
+=head1 SYNOPSIS
+
+  use encoding "greek";  # Perl like Greek to you?
+  use encoding "euc-jp"; # Jperl!
+
+  # or you can even do this if your shell supports your native encoding
+
+  perl -Mencoding=latin2 -e'...' # Feeling centrally European?
+  perl -Mencoding=euc-kr -e'...' # Or Korean?
+
+  # more control
+
+  # A simple euc-cn => utf-8 converter
+  use encoding "euc-cn", STDOUT => "utf8";  while(<>){print};
+
+  # "no encoding;" supported
+  no encoding;
+
+  # an alternate way, Filter
+  use encoding "euc-jp", Filter=>1;
+  # now you can use kanji identifiers -- in euc-jp!
+
+  # encode based on the current locale - specialized purposes only;
+  # fraught with danger!!
+  use encoding ':locale';
+
+=head1 DESCRIPTION
+
+This pragma is used to enable a Perl script to be written in encodings that
+aren't strictly ASCII nor UTF-8.  It translates all or portions of the Perl
+program script from a given encoding into UTF-8, and changes the PerlIO layers
+of C<STDIN> and C<STDOUT> to the encoding specified.
+
+This pragma dates from the days when UTF-8-enabled editors were uncommon.  But
+that was long ago, and the need for it is greatly diminished.  That, coupled
+with the fact that it doesn't work with threads, along with other problems,
+(see L</BUGS>) have led to its being deprecated.  It is planned to remove this
+pragma in a future Perl version.  New code should be written in UTF-8, and the
+C<use utf8> pragma used instead (see L<perluniintro> and L<utf8> for details).
+Old code should be converted to UTF-8, via something like the recipe in the
+L</SYNOPSIS> (though this simple approach may require manual adjustments
+afterwards).
+
+The only legitimate use of this pragma is almost certainly just one per file,
+near the top, with file scope, as the file is likely going to only be written
+in one encoding.  Further restrictions apply in Perls before v5.22 (see
+L</Prior to Perl v5.22>).
+
+There are two basic modes of operation (plus turning if off):
+
+=over 4
+
+=item C<use encoding ['I<ENCNAME>'] ;>
+
+This is the normal operation.  It translates various literals encountered in
+the Perl source file from the encoding I<ENCNAME> into UTF-8, and similarly
+converts character code points.  This is used when the script is a combination
+of ASCII (for the variable names and punctuation, I<etc>), but the literal
+data is in the specified encoding.
+
+I<ENCNAME> is optional.  If omitted, the encoding specified in the environment
+variable L<C<PERL_ENCODING>|perlrun/PERL_ENCODING> is used.  If this isn't
+set, or the resolved-to encoding is not known to C<L<Encode>>, the error
+C<Unknown encoding 'I<ENCNAME>'> will be thrown.
+
+Starting in Perl v5.8.6 (C<Encode> version 2.0.1), I<ENCNAME> may be the
+name C<:locale>.  This is for very specialized applications, and is documented
+in L</The C<:locale> sub-pragma> below.
+
+The literals that are converted are C<q//, qq//, qr//, qw///, qx//>, and
+starting in v5.8.1, C<tr///>.  Operations that do conversions include C<chr>,
+C<ord>, C<utf8::upgrade> (but not C<utf8::downgrade>), and C<chomp>.
+
+Also starting in v5.8.1, the C<DATA> pseudo-filehandle is translated from the
+encoding into UTF-8.
+
+For example, you can write code in EUC-JP as follows:
+
+  my $Rakuda = "\xF1\xD1\xF1\xCC"; # Camel in Kanji
+               #<-char-><-char->   # 4 octets
+  s/\bCamel\b/$Rakuda/;
+
+And with C<use encoding "euc-jp"> in effect, it is the same thing as
+that code in UTF-8:
+
+  my $Rakuda = "\x{99F1}\x{99DD}"; # two Unicode Characters
+  s/\bCamel\b/$Rakuda/;
+
+See L</EXAMPLE> below for a more complete example.
+
+Unless C<${^UNICODE}> (available starting in v5.8.2) exists and is non-zero, the
+PerlIO layers of C<STDIN> and C<STDOUT> are set to "C<:encoding(I<ENCNAME>)>".
+Therefore,
+
+  use encoding "euc-jp";
+  my $message = "Camel is the symbol of perl.\n";
+  my $Rakuda = "\xF1\xD1\xF1\xCC"; # Camel in Kanji
+  $message =~ s/\bCamel\b/$Rakuda/;
+  print $message;
+
+will print
+
+ "\xF1\xD1\xF1\xCC is the symbol of perl.\n"
+
+not
+
+ "\x{99F1}\x{99DD} is the symbol of perl.\n"
+
+You can override this by giving extra arguments; see below.
+
+Note that C<STDERR> WILL NOT be changed, regardless.
+
+Also note that non-STD file handles remain unaffected.  Use C<use
+open> or C<binmode> to change the layers of those.
+
+=item C<use encoding I<ENCNAME> Filter=E<gt>1;>
+
+This operates as above, but the C<Filter> argument with a non-zero
+value causes the entire script, and not just literals, to be translated from
+the encoding into UTF-8.  This allows identifiers in the source to be in that
+encoding as well.  (Problems may occur if the encoding is not a superset of
+ASCII; imagine all your semi-colons being translated into something
+different.)  One can use this form to make
+
+ ${"\x{4eba}"}++
+
+work.  (This is equivalent to C<$I<human>++>, where I<human> is a single Han
+ideograph).
+
+This effectively means that your source code behaves as if it were written in
+UTF-8 with C<'use utf8>' in effect.  So even if your editor only supports
+Shift_JIS, for example, you can still try examples in Chapter 15 of
+C<Programming Perl, 3rd Ed.>.
+
+This option is significantly slower than the other one.
+
+=item C<no encoding;>
+
+Unsets the script encoding. The layers of C<STDIN>, C<STDOUT> are
+reset to "C<:raw>" (the default unprocessed raw stream of bytes).
+
+=back
+
+=head1 OPTIONS
+
+=head2 Setting C<STDIN> and/or C<STDOUT> individually
+
+The encodings of C<STDIN> and C<STDOUT> are individually settable by parameters to
+the pragma:
+
+ use encoding 'euc-tw', STDIN => 'greek'  ...;
+
+In this case, you cannot omit the first I<ENCNAME>.  C<< STDIN => undef >>
+turns the I/O transcoding completely off for that filehandle.
+
+When C<${^UNICODE}> (available starting in v5.8.2) exists and is non-zero,
+these options will be completely ignored.  See L<perlvar/C<${^UNICODE}>> and
+L<"C<-C>" in perlrun|perlrun/-C [numberE<sol>list]> for details.
+
+=head2 The C<:locale> sub-pragma
+
+Starting in v5.8.6, the encoding name may be C<:locale>.  This means that the
+encoding is taken from the current locale, and not hard-coded by the pragma.
+Since a script really can only be encoded in exactly one encoding, this option
+is dangerous.  It makes sense only if the script itself is written in ASCII,
+and all the possible locales that will be in use when the script is executed
+are supersets of ASCII.  That means that the script itself doesn't get
+changed, but the I/O handles have the specified encoding added, and the
+operations like C<chr> and C<ord> use that encoding.
+
+The logic of finding which locale C<:locale> uses is as follows:
+
+=over 4
+
+=item 1.
+
+If the platform supports the C<langinfo(CODESET)> interface, the codeset
+returned is used as the default encoding for the open pragma.
+
+=item 2.
+
+If 1. didn't work but we are under the locale pragma, the environment
+variables C<LC_ALL> and C<LANG> (in that order) are matched for encodings
+(the part after "C<.>", if any), and if any found, that is used
+as the default encoding for the open pragma.
+
+=item 3.
+
+If 1. and 2. didn't work, the environment variables C<LC_ALL> and C<LANG>
+(in that order) are matched for anything looking like UTF-8, and if
+any found, C<:utf8> is used as the default encoding for the open
+pragma.
+
+=back
+
+If your locale environment variables (C<LC_ALL>, C<LC_CTYPE>, C<LANG>)
+contain the strings 'UTF-8' or 'UTF8' (case-insensitive matching),
+the default encoding of your C<STDIN>, C<STDOUT>, and C<STDERR>, and of
+B<any subsequent file open>, is UTF-8.
+
+=head1 CAVEATS
+
+=head2 SIDE EFFECTS
+
+=over
+
+=item *
+
+If the C<encoding> pragma is in scope then the lengths returned are
+calculated from the length of C<$/> in Unicode characters, which is not
+always the same as the length of C<$/> in the native encoding.
+
+=item *
+
+Without this pragma, if strings operating under byte semantics and strings
+with Unicode character data are concatenated, the new string will
+be created by decoding the byte strings as I<ISO 8859-1 (Latin-1)>.
+
+The B<encoding> pragma changes this to use the specified encoding
+instead.  For example:
+
+    use encoding 'utf8';
+    my $string = chr(20000); # a Unicode string
+    utf8::encode($string);   # now it's a UTF-8 encoded byte string
+    # concatenate with another Unicode string
+    print length($string . chr(20000));
+
+Will print C<2>, because C<$string> is upgraded as UTF-8.  Without
+C<use encoding 'utf8';>, it will print C<4> instead, since C<$string>
+is three octets when interpreted as Latin-1.
+
+=back
+
+=head2 DO NOT MIX MULTIPLE ENCODINGS
+
+Notice that only literals (string or regular expression) having only
+legacy code points are affected: if you mix data like this
+
+    \x{100}\xDF
+    \xDF\x{100}
+
+the data is assumed to be in (Latin 1 and) Unicode, not in your native
+encoding.  In other words, this will match in "greek":
+
+    "\xDF" =~ /\x{3af}/
+
+but this will not
+
+    "\xDF\x{100}" =~ /\x{3af}\x{100}/
+
+since the C<\xDF> (ISO 8859-7 GREEK SMALL LETTER IOTA WITH TONOS) on
+the left will B<not> be upgraded to C<\x{3af}> (Unicode GREEK SMALL
+LETTER IOTA WITH TONOS) because of the C<\x{100}> on the left.  You
+should not be mixing your legacy data and Unicode in the same string.
+
+This pragma also affects encoding of the 0x80..0xFF code point range:
+normally characters in that range are left as eight-bit bytes (unless
+they are combined with characters with code points 0x100 or larger,
+in which case all characters need to become UTF-8 encoded), but if
+the C<encoding> pragma is present, even the 0x80..0xFF range always
+gets UTF-8 encoded.
+
+After all, the best thing about this pragma is that you don't have to
+resort to \x{....} just to spell your name in a native encoding.
+So feel free to put your strings in your encoding in quotes and
+regexes.
+
+=head2 Prior to Perl v5.22
+
+The pragma was a per script, not a per block lexical.  Only the last
+C<use encoding> or C<no encoding> mattered, and it affected
+B<the whole script>.  However, the C<no encoding> pragma was supported and
+C<use encoding> could appear as many times as you want in a given script
+(though only the last was effective).
+
+Since the scope wasn't lexical, other modules' use of C<chr>, C<ord>, I<etc.>
+were affected.  This leads to spooky, incorrect action at a distance that is
+hard to debug.
+
+This means you would have to be very careful of the load order:
+
+  # called module
+  package Module_IN_BAR;
+  use encoding "bar";
+  # stuff in "bar" encoding here
+  1;
+
+  # caller script
+  use encoding "foo"
+  use Module_IN_BAR;
+  # surprise! use encoding "bar" is in effect.
+
+The best way to avoid this oddity is to use this pragma RIGHT AFTER
+other modules are loaded.  i.e.
+
+  use Module_IN_BAR;
+  use encoding "foo";
+
+=head2 Prior to Encode version 1.87
+
+=over
+
+=item *
+
+C<STDIN> and C<STDOUT> were not set under the filter option.
+And C<< STDIN=>I<ENCODING> >> and C<< STDOUT=>I<ENCODING> >> didn't work like
+non-filter version.
+
+=item *
+
+C<use utf8> wasn't implicitly declared so you have to C<use utf8> to do
+
+ ${"\x{4eba}"}++
+
+=back
+
+=head2 Prior to Perl v5.8.1
+
+=over
+
+=item "NON-EUC" doublebyte encodings
+
+Because perl needs to parse the script before applying this pragma, such
+encodings as Shift_JIS and Big-5 that may contain C<'\'> (BACKSLASH;
+C<\x5c>) in the second byte fail because the second byte may
+accidentally escape the quoting character that follows.
+
+=item C<tr///>
+
+The B<encoding> pragma works by decoding string literals in
+C<q//,qq//,qr//,qw///, qx//> and so forth.  In perl v5.8.0, this
+does not apply to C<tr///>.  Therefore,
+
+  use encoding 'euc-jp';
+  #....
+  $kana =~ tr/\xA4\xA1-\xA4\xF3/\xA5\xA1-\xA5\xF3/;
+  #           -------- -------- -------- --------
+
+Does not work as
+
+  $kana =~ tr/\x{3041}-\x{3093}/\x{30a1}-\x{30f3}/;
+
+=over
+
+=item Legend of characters above
+
+  utf8     euc-jp   charnames::viacode()
+  -----------------------------------------
+  \x{3041} \xA4\xA1 HIRAGANA LETTER SMALL A
+  \x{3093} \xA4\xF3 HIRAGANA LETTER N
+  \x{30a1} \xA5\xA1 KATAKANA LETTER SMALL A
+  \x{30f3} \xA5\xF3 KATAKANA LETTER N
+
+=back
+
+This counterintuitive behavior has been fixed in perl v5.8.1.
+
+In perl v5.8.0, you can work around this as follows;
+
+  use encoding 'euc-jp';
+  #  ....
+  eval qq{ \$kana =~ tr/\xA4\xA1-\xA4\xF3/\xA5\xA1-\xA5\xF3/ };
+
+Note the C<tr//> expression is surrounded by C<qq{}>.  The idea behind
+this is the same as the classic idiom that makes C<tr///> 'interpolate':
+
+   tr/$from/$to/;            # wrong!
+   eval qq{ tr/$from/$to/ }; # workaround.
+
+=back
+
+=head1 EXAMPLE - Greekperl
+
+    use encoding "iso 8859-7";
+
+    # \xDF in ISO 8859-7 (Greek) is \x{3af} in Unicode.
+
+    $a = "\xDF";
+    $b = "\x{100}";
+
+    printf "%#x\n", ord($a); # will print 0x3af, not 0xdf
+
+    $c = $a . $b;
+
+    # $c will be "\x{3af}\x{100}", not "\x{df}\x{100}".
+
+    # chr() is affected, and ...
+
+    print "mega\n"  if ord(chr(0xdf)) == 0x3af;
+
+    # ... ord() is affected by the encoding pragma ...
+
+    print "tera\n" if ord(pack("C", 0xdf)) == 0x3af;
+
+    # ... as are eq and cmp ...
+
+    print "peta\n" if "\x{3af}" eq  pack("C", 0xdf);
+    print "exa\n"  if "\x{3af}" cmp pack("C", 0xdf) == 0;
+
+    # ... but pack/unpack C are not affected, in case you still
+    # want to go back to your native encoding
+
+    print "zetta\n" if unpack("C", (pack("C", 0xdf))) == 0xdf;
+
+=head1 BUGS
+
+=over
+
+=item Thread safety
+
+C<use encoding ...> is not thread-safe (i.e., do not use in threaded
+applications).
+
+=item Can't be used by more than one module in a single program.
+
+Only one encoding is allowed.  If you combine modules in a program that have
+different encodings, only one will be actually used.
+
+=item Other modules using C<STDIN> and C<STDOUT> get the encoded stream
+
+They may be expecting something completely different.
+
+=item literals in regex that are longer than 127 bytes
+
+For native multibyte encodings (either fixed or variable length),
+the current implementation of the regular expressions may introduce
+recoding errors for regular expression literals longer than 127 bytes.
+
+=item EBCDIC
+
+The encoding pragma is not supported on EBCDIC platforms.
+
+=item C<format>
+
+This pragma doesn't work well with C<format> because PerlIO does not
+get along very well with it.  When C<format> contains non-ASCII
+characters it prints funny or gets "wide character warnings".
+To understand it, try the code below.
+
+  # Save this one in utf8
+  # replace *non-ascii* with a non-ascii string
+  my $camel;
+  format STDOUT =
+  *non-ascii*@>>>>>>>
+  $camel
+  .
+  $camel = "*non-ascii*";
+  binmode(STDOUT=>':encoding(utf8)'); # bang!
+  write;              # funny
+  print $camel, "\n"; # fine
+
+Without binmode this happens to work but without binmode, print()
+fails instead of write().
+
+At any rate, the very use of C<format> is questionable when it comes to
+unicode characters since you have to consider such things as character
+width (i.e. double-width for ideographs) and directions (i.e. BIDI for
+Arabic and Hebrew).
+
+=item See also L</CAVEATS>
+
+=back
+
+=head1 HISTORY
+
+This pragma first appeared in Perl v5.8.0.  It has been enhanced in later
+releases as specified above.
+
+=head1 SEE ALSO
+
+L<perlunicode>, L<Encode>, L<open>, L<Filter::Util::Call>,
+
+Ch. 15 of C<Programming Perl (3rd Edition)>
+by Larry Wall, Tom Christiansen, Jon Orwant;
+O'Reilly & Associates; ISBN 0-596-00027-8
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/lib.pm b/lib/5.24.1/x86_64-linux/lib.pm
new file mode 100644
index 00000000..973c7744
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/lib.pm
@@ -0,0 +1,211 @@
+package lib;
+
+# THIS FILE IS AUTOMATICALLY GENERATED FROM lib_pm.PL.
+# ANY CHANGES TO THIS FILE WILL BE OVERWRITTEN BY THE NEXT PERL BUILD.
+
+use Config;
+
+use strict;
+
+my $archname         = $Config{archname};
+my $version          = $Config{version};
+my @inc_version_list = reverse split / /, $Config{inc_version_list};
+
+
+our @ORIG_INC = @INC;	# take a handy copy of 'original' value
+our $VERSION = '0.63';
+
+sub import {
+    shift;
+
+    my %names;
+    foreach (reverse @_) {
+	my $path = $_;		# we'll be modifying it, so break the alias
+	if ($path eq '') {
+	    require Carp;
+	    Carp::carp("Empty compile time value given to use lib");
+	}
+
+	if ($path !~ /\.par$/i && -e $path && ! -d _) {
+	    require Carp;
+	    Carp::carp("Parameter to use lib must be directory, not file");
+	}
+	unshift(@INC, $path);
+	# Add any previous version directories we found at configure time
+	foreach my $incver (@inc_version_list)
+	{
+	    my $dir = "$path/$incver";
+	    unshift(@INC, $dir) if -d $dir;
+	}
+	# Put a corresponding archlib directory in front of $path if it
+	# looks like $path has an archlib directory below it.
+	my($arch_auto_dir, $arch_dir, $version_dir, $version_arch_dir)
+	    = _get_dirs($path);
+	unshift(@INC, $arch_dir)         if -d $arch_auto_dir;
+	unshift(@INC, $version_dir)      if -d $version_dir;
+	unshift(@INC, $version_arch_dir) if -d $version_arch_dir;
+    }
+
+    # remove trailing duplicates
+    @INC = grep { ++$names{$_} == 1 } @INC;
+    return;
+}
+
+
+sub unimport {
+    shift;
+
+    my %names;
+    foreach my $path (@_) {
+	my($arch_auto_dir, $arch_dir, $version_dir, $version_arch_dir)
+	    = _get_dirs($path);
+	++$names{$path};
+	++$names{$arch_dir}         if -d $arch_auto_dir;
+	++$names{$version_dir}      if -d $version_dir;
+	++$names{$version_arch_dir} if -d $version_arch_dir;
+    }
+
+    # Remove ALL instances of each named directory.
+    @INC = grep { !exists $names{$_} } @INC;
+    return;
+}
+
+sub _get_dirs {
+    my($dir) = @_;
+    my($arch_auto_dir, $arch_dir, $version_dir, $version_arch_dir);
+
+    $arch_auto_dir    = "$dir/$archname/auto";
+    $arch_dir         = "$dir/$archname";
+    $version_dir      = "$dir/$version";
+    $version_arch_dir = "$dir/$version/$archname";
+
+    return($arch_auto_dir, $arch_dir, $version_dir, $version_arch_dir);
+}
+
+1;
+__END__
+
+=head1 NAME
+
+lib - manipulate @INC at compile time
+
+=head1 SYNOPSIS
+
+    use lib LIST;
+
+    no lib LIST;
+
+=head1 DESCRIPTION
+
+This is a small simple module which simplifies the manipulation of @INC
+at compile time.
+
+It is typically used to add extra directories to perl's search path so
+that later C<use> or C<require> statements will find modules which are
+not located on perl's default search path.
+
+=head2 Adding directories to @INC
+
+The parameters to C<use lib> are added to the start of the perl search
+path. Saying
+
+    use lib LIST;
+
+is I<almost> the same as saying
+
+    BEGIN { unshift(@INC, LIST) }
+
+For each directory in LIST (called $dir here) the lib module also
+checks to see if a directory called $dir/$archname/auto exists.
+If so the $dir/$archname directory is assumed to be a corresponding
+architecture specific directory and is added to @INC in front of $dir.
+lib.pm also checks if directories called $dir/$version and $dir/$version/$archname
+exist and adds these directories to @INC.
+
+The current value of C<$archname> can be found with this command:
+
+    perl -V:archname
+
+The corresponding command to get the current value of C<$version> is:
+
+    perl -V:version
+
+To avoid memory leaks, all trailing duplicate entries in @INC are
+removed.
+
+=head2 Deleting directories from @INC
+
+You should normally only add directories to @INC.  If you need to
+delete directories from @INC take care to only delete those which you
+added yourself or which you are certain are not needed by other modules
+in your script.  Other modules may have added directories which they
+need for correct operation.
+
+The C<no lib> statement deletes all instances of each named directory
+from @INC.
+
+For each directory in LIST (called $dir here) the lib module also
+checks to see if a directory called $dir/$archname/auto exists.
+If so the $dir/$archname directory is assumed to be a corresponding
+architecture specific directory and is also deleted from @INC.
+
+=head2 Restoring original @INC
+
+When the lib module is first loaded it records the current value of @INC
+in an array C<@lib::ORIG_INC>. To restore @INC to that value you
+can say
+
+    @INC = @lib::ORIG_INC;
+
+=head1 CAVEATS
+
+In order to keep lib.pm small and simple, it only works with Unix
+filepaths.  This doesn't mean it only works on Unix, but non-Unix
+users must first translate their file paths to Unix conventions.
+
+    # VMS users wanting to put [.stuff.moo] into 
+    # their @INC would write
+    use lib 'stuff/moo';
+
+=head1 NOTES
+
+In the future, this module will likely use File::Spec for determining
+paths, as it does now for Mac OS (where Unix-style or Mac-style paths
+work, and Unix-style paths are converted properly to Mac-style paths
+before being added to @INC).
+
+If you try to add a file to @INC as follows:
+
+  use lib 'this_is_a_file.txt';
+
+C<lib> will warn about this. The sole exceptions are files with the
+C<.par> extension which are intended to be used as libraries.
+
+=head1 SEE ALSO
+
+FindBin - optional module which deals with paths relative to the source file.
+
+PAR - optional module which can treat C<.par> files as Perl libraries.
+
+=head1 AUTHOR
+
+Tim Bunce, 2nd June 1995.
+
+C<lib> is maintained by the perl5-porters. Please direct
+any questions to the canonical mailing list. Anything that
+is applicable to the CPAN release can be sent to its maintainer,
+though.
+
+Maintainer: The Perl5-Porters <perl5-porters@perl.org>
+
+Maintainer of the CPAN release: Steffen Mueller <smueller@cpan.org>
+
+=head1 COPYRIGHT AND LICENSE
+
+This package has been part of the perl core since perl 5.001.
+It has been released separately to CPAN so older installations
+can benefit from bug fixes.
+
+This package has the same copyright and license as the perl core.
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/mro.pm b/lib/5.24.1/x86_64-linux/mro.pm
new file mode 100644
index 00000000..0946fb67
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/mro.pm
@@ -0,0 +1,353 @@
+#      mro.pm
+#
+#      Copyright (c) 2007 Brandon L Black
+#      Copyright (c) 2008,2009 Larry Wall and others
+#
+#      You may distribute under the terms of either the GNU General Public
+#      License or the Artistic License, as specified in the README file.
+#
+package mro;
+use strict;
+use warnings;
+
+# mro.pm versions < 1.00 reserved for MRO::Compat
+#  for partial back-compat to 5.[68].x
+our $VERSION = '1.18';
+
+sub import {
+    mro::set_mro(scalar(caller), $_[1]) if $_[1];
+}
+
+package # hide me from PAUSE
+    next;
+
+sub can { mro::_nextcan($_[0], 0) }
+
+sub method {
+    my $method = mro::_nextcan($_[0], 1);
+    goto &$method;
+}
+
+package # hide me from PAUSE
+    maybe::next;
+
+sub method {
+    my $method = mro::_nextcan($_[0], 0);
+    goto &$method if defined $method;
+    return;
+}
+
+require XSLoader;
+XSLoader::load('mro');
+
+1;
+
+__END__
+
+=head1 NAME
+
+mro - Method Resolution Order
+
+=head1 SYNOPSIS
+
+  use mro; # enables next::method and friends globally
+
+  use mro 'dfs'; # enable DFS MRO for this class (Perl default)
+  use mro 'c3'; # enable C3 MRO for this class
+
+=head1 DESCRIPTION
+
+The "mro" namespace provides several utilities for dealing
+with method resolution order and method caching in general.
+
+These interfaces are only available in Perl 5.9.5 and higher.
+See L<MRO::Compat> on CPAN for a mostly forwards compatible
+implementation for older Perls.
+
+=head1 OVERVIEW
+
+It's possible to change the MRO of a given class either by using C<use
+mro> as shown in the synopsis, or by using the L</mro::set_mro> function
+below.
+
+The special methods C<next::method>, C<next::can>, and
+C<maybe::next::method> are not available until this C<mro> module
+has been loaded via C<use> or C<require>.
+
+=head1 The C3 MRO
+
+In addition to the traditional Perl default MRO (depth first
+search, called C<DFS> here), Perl now offers the C3 MRO as
+well.  Perl's support for C3 is based on the work done in
+Stevan Little's module L<Class::C3>, and most of the C3-related
+documentation here is ripped directly from there.
+
+=head2 What is C3?
+
+C3 is the name of an algorithm which aims to provide a sane method
+resolution order under multiple inheritance. It was first introduced in
+the language Dylan (see links in the L</"SEE ALSO"> section), and then
+later adopted as the preferred MRO (Method Resolution Order) for the
+new-style classes in Python 2.3. Most recently it has been adopted as the
+"canonical" MRO for Perl 6 classes, and the default MRO for Parrot objects
+as well.
+
+=head2 How does C3 work
+
+C3 works by always preserving local precedence ordering. This essentially
+means that no class will appear before any of its subclasses. Take, for
+instance, the classic diamond inheritance pattern:
+
+     <A>
+    /   \
+  <B>   <C>
+    \   /
+     <D>
+
+The standard Perl 5 MRO would be (D, B, A, C). The result being that B<A>
+appears before B<C>, even though B<C> is the subclass of B<A>. The C3 MRO
+algorithm however, produces the following order: (D, B, C, A), which does
+not have this issue.
+
+This example is fairly trivial; for more complex cases and a deeper
+explanation, see the links in the L</"SEE ALSO"> section.
+
+=head1 Functions
+
+=head2 mro::get_linear_isa($classname[, $type])
+
+Returns an arrayref which is the linearized MRO of the given class.
+Uses whichever MRO is currently in effect for that class by default,
+or the given MRO (either C<c3> or C<dfs> if specified as C<$type>).
+
+The linearized MRO of a class is an ordered array of all of the
+classes one would search when resolving a method on that class,
+starting with the class itself.
+
+If the requested class doesn't yet exist, this function will still
+succeed, and return C<[ $classname ]>
+
+Note that C<UNIVERSAL> (and any members of C<UNIVERSAL>'s MRO) are not
+part of the MRO of a class, even though all classes implicitly inherit
+methods from C<UNIVERSAL> and its parents.
+
+=head2 mro::set_mro ($classname, $type)
+
+Sets the MRO of the given class to the C<$type> argument (either
+C<c3> or C<dfs>).
+
+=head2 mro::get_mro($classname)
+
+Returns the MRO of the given class (either C<c3> or C<dfs>).
+
+=head2 mro::get_isarev($classname)
+
+Gets the C<mro_isarev> for this class, returned as an
+arrayref of class names.  These are every class that "isa"
+the given class name, even if the isa relationship is
+indirect.  This is used internally by the MRO code to
+keep track of method/MRO cache invalidations.
+
+As with C<mro::get_linear_isa> above, C<UNIVERSAL> is special.
+C<UNIVERSAL> (and parents') isarev lists do not include
+every class in existence, even though all classes are
+effectively descendants for method inheritance purposes.
+
+=head2 mro::is_universal($classname)
+
+Returns a boolean status indicating whether or not
+the given classname is either C<UNIVERSAL> itself,
+or one of C<UNIVERSAL>'s parents by C<@ISA> inheritance.
+
+Any class for which this function returns true is
+"universal" in the sense that all classes potentially
+inherit methods from it.
+
+=head2 mro::invalidate_all_method_caches()
+
+Increments C<PL_sub_generation>, which invalidates method
+caching in all packages.
+
+=head2 mro::method_changed_in($classname)
+
+Invalidates the method cache of any classes dependent on the
+given class.  This is not normally necessary.  The only
+known case where pure perl code can confuse the method
+cache is when you manually install a new constant
+subroutine by using a readonly scalar value, like the
+internals of L<constant> do.  If you find another case,
+please report it so we can either fix it or document
+the exception here.
+
+=head2 mro::get_pkg_gen($classname)
+
+Returns an integer which is incremented every time a
+real local method in the package C<$classname> changes,
+or the local C<@ISA> of C<$classname> is modified.
+
+This is intended for authors of modules which do lots
+of class introspection, as it allows them to very quickly
+check if anything important about the local properties
+of a given class have changed since the last time they
+looked.  It does not increment on method/C<@ISA>
+changes in superclasses.
+
+It's still up to you to seek out the actual changes,
+and there might not actually be any.  Perhaps all
+of the changes since you last checked cancelled each
+other out and left the package in the state it was in
+before.
+
+This integer normally starts off at a value of C<1>
+when a package stash is instantiated.  Calling it
+on packages whose stashes do not exist at all will
+return C<0>.  If a package stash is completely
+deleted (not a normal occurrence, but it can happen
+if someone does something like C<undef %PkgName::>),
+the number will be reset to either C<0> or C<1>,
+depending on how completely the package was wiped out.
+
+=head2 next::method
+
+This is somewhat like C<SUPER>, but it uses the C3 method
+resolution order to get better consistency in multiple
+inheritance situations.  Note that while inheritance in
+general follows whichever MRO is in effect for the
+given class, C<next::method> only uses the C3 MRO.
+
+One generally uses it like so:
+
+  sub some_method {
+    my $self = shift;
+    my $superclass_answer = $self->next::method(@_);
+    return $superclass_answer + 1;
+  }
+
+Note that you don't (re-)specify the method name.
+It forces you to always use the same method name
+as the method you started in.
+
+It can be called on an object or a class, of course.
+
+The way it resolves which actual method to call is:
+
+=over 4
+
+=item 1
+
+First, it determines the linearized C3 MRO of
+the object or class it is being called on.
+
+=item 2
+
+Then, it determines the class and method name
+of the context it was invoked from.
+
+=item 3
+
+Finally, it searches down the C3 MRO list until
+it reaches the contextually enclosing class, then
+searches further down the MRO list for the next
+method with the same name as the contextually
+enclosing method.
+
+=back
+
+Failure to find a next method will result in an
+exception being thrown (see below for alternatives).
+
+This is substantially different than the behavior
+of C<SUPER> under complex multiple inheritance.
+(This becomes obvious when one realizes that the
+common superclasses in the C3 linearizations of
+a given class and one of its parents will not
+always be ordered the same for both.)
+
+B<Caveat>: Calling C<next::method> from methods defined outside the class:
+
+There is an edge case when using C<next::method> from within a subroutine
+which was created in a different module than the one it is called from. It
+sounds complicated, but it really isn't. Here is an example which will not
+work correctly:
+
+  *Foo::foo = sub { (shift)->next::method(@_) };
+
+The problem exists because the anonymous subroutine being assigned to the
+C<*Foo::foo> glob will show up in the call stack as being called
+C<__ANON__> and not C<foo> as you might expect. Since C<next::method> uses
+C<caller> to find the name of the method it was called in, it will fail in
+this case. 
+
+But fear not, there's a simple solution. The module C<Sub::Name> will
+reach into the perl internals and assign a name to an anonymous subroutine
+for you. Simply do this:
+
+  use Sub::Name 'subname';
+  *Foo::foo = subname 'Foo::foo' => sub { (shift)->next::method(@_) };
+
+and things will Just Work.
+
+=head2 next::can
+
+This is similar to C<next::method>, but just returns either a code
+reference or C<undef> to indicate that no further methods of this name
+exist.
+
+=head2 maybe::next::method
+
+In simple cases, it is equivalent to:
+
+   $self->next::method(@_) if $self->next::can;
+
+But there are some cases where only this solution
+works (like C<goto &maybe::next::method>);
+
+=head1 SEE ALSO
+
+=head2 The original Dylan paper
+
+=over 4
+
+=item L<http://haahr.tempdomainname.com/dylan/linearization-oopsla96.html>
+
+=back
+
+=head2 Pugs
+
+The Pugs prototype Perl 6 Object Model uses C3
+
+=head2 Parrot
+
+Parrot now uses C3
+
+=over 4
+
+=item L<http://use.perl.org/~autrijus/journal/25768>
+
+=back
+
+=head2 Python 2.3 MRO related links
+
+=over 4
+
+=item L<http://www.python.org/2.3/mro.html>
+
+=item L<http://www.python.org/2.2.2/descrintro.html#mro>
+
+=back
+
+=head2 Class::C3
+
+=over 4
+
+=item L<Class::C3>
+
+=back
+
+=head1 AUTHOR
+
+Brandon L. Black, E<lt>blblack@gmail.comE<gt>
+
+Based on Stevan Little's L<Class::C3>
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/ops.pm b/lib/5.24.1/x86_64-linux/ops.pm
new file mode 100644
index 00000000..4183669e
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/ops.pm
@@ -0,0 +1,47 @@
+package ops;
+
+our $VERSION = '1.02';
+
+use Opcode qw(opmask_add opset invert_opset);
+
+sub import {
+    shift;
+    # Not that unimport is the preferred form since import's don't
+	# accumulate well owing to the 'only ever add opmask' rule.
+	# E.g., perl -Mops=:set1 -Mops=:setb is unlikely to do as expected.
+    opmask_add(invert_opset opset(@_)) if @_;
+}
+
+sub unimport {
+    shift;
+    opmask_add(opset(@_)) if @_;
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+ops - Perl pragma to restrict unsafe operations when compiling
+
+=head1 SYNOPSIS  
+
+  perl -Mops=:default ...    # only allow reasonably safe operations
+
+  perl -M-ops=system ...     # disable the 'system' opcode
+
+=head1 DESCRIPTION
+
+Since the C<ops> pragma currently has an irreversible global effect, it is
+only of significant practical use with the C<-M> option on the command line.
+
+See the L<Opcode> module for information about opcodes, optags, opmasks
+and important information about safety.
+
+=head1 SEE ALSO
+
+L<Opcode>, L<Safe>, L<perlrun>
+
+=cut
+
diff --git a/lib/5.24.1/x86_64-linux/re.pm b/lib/5.24.1/x86_64-linux/re.pm
new file mode 100644
index 00000000..058b8aa9
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/re.pm
@@ -0,0 +1,732 @@
+package re;
+
+# pragma for controlling the regexp engine
+use strict;
+use warnings;
+
+our $VERSION     = "0.32";
+our @ISA         = qw(Exporter);
+our @EXPORT_OK   = ('regmust',
+                    qw(is_regexp regexp_pattern
+                       regname regnames regnames_count));
+our %EXPORT_OK = map { $_ => 1 } @EXPORT_OK;
+
+my %bitmask = (
+    taint   => 0x00100000, # HINT_RE_TAINT
+    eval    => 0x00200000, # HINT_RE_EVAL
+);
+
+my $flags_hint = 0x02000000; # HINT_RE_FLAGS
+my $PMMOD_SHIFT = 0;
+my %reflags = (
+    m => 1 << ($PMMOD_SHIFT + 0),
+    s => 1 << ($PMMOD_SHIFT + 1),
+    i => 1 << ($PMMOD_SHIFT + 2),
+    x => 1 << ($PMMOD_SHIFT + 3),
+    n => 1 << ($PMMOD_SHIFT + 5),
+    p => 1 << ($PMMOD_SHIFT + 6),
+    strict => 1 << ($PMMOD_SHIFT + 10),
+# special cases:
+    d => 0,
+    l => 1,
+    u => 2,
+    a => 3,
+    aa => 4,
+);
+
+sub setcolor {
+ eval {				# Ignore errors
+  require Term::Cap;
+
+  my $terminal = Tgetent Term::Cap ({OSPEED => 9600}); # Avoid warning.
+  my $props = $ENV{PERL_RE_TC} || 'md,me,so,se,us,ue';
+  my @props = split /,/, $props;
+  my $colors = join "\t", map {$terminal->Tputs($_,1)} @props;
+
+  $colors =~ s/\0//g;
+  $ENV{PERL_RE_COLORS} = $colors;
+ };
+ if ($@) {
+    $ENV{PERL_RE_COLORS} ||= qq'\t\t> <\t> <\t\t';
+ }
+
+}
+
+my %flags = (
+    COMPILE         => 0x0000FF,
+    PARSE           => 0x000001,
+    OPTIMISE        => 0x000002,
+    TRIEC           => 0x000004,
+    DUMP            => 0x000008,
+    FLAGS           => 0x000010,
+    TEST            => 0x000020,
+
+    EXECUTE         => 0x00FF00,
+    INTUIT          => 0x000100,
+    MATCH           => 0x000200,
+    TRIEE           => 0x000400,
+
+    EXTRA           => 0xFF0000,
+    TRIEM           => 0x010000,
+    OFFSETS         => 0x020000,
+    OFFSETSDBG      => 0x040000,
+    STATE           => 0x080000,
+    OPTIMISEM       => 0x100000,
+    STACK           => 0x280000,
+    BUFFERS         => 0x400000,
+    GPOS            => 0x800000,
+);
+$flags{ALL} = -1 & ~($flags{OFFSETS}|$flags{OFFSETSDBG}|$flags{BUFFERS});
+$flags{All} = $flags{all} = $flags{DUMP} | $flags{EXECUTE};
+$flags{Extra} = $flags{EXECUTE} | $flags{COMPILE} | $flags{GPOS};
+$flags{More} = $flags{MORE} = $flags{All} | $flags{TRIEC} | $flags{TRIEM} | $flags{STATE};
+$flags{State} = $flags{DUMP} | $flags{EXECUTE} | $flags{STATE};
+$flags{TRIE} = $flags{DUMP} | $flags{EXECUTE} | $flags{TRIEC};
+
+if (defined &DynaLoader::boot_DynaLoader) {
+    require XSLoader;
+    XSLoader::load();
+}
+# else we're miniperl
+# We need to work for miniperl, because the XS toolchain uses Text::Wrap, which
+# uses re 'taint'.
+
+sub _load_unload {
+    my ($on)= @_;
+    if ($on) {
+	# We call install() every time, as if we didn't, we wouldn't
+	# "see" any changes to the color environment var since
+	# the last time it was called.
+
+	# install() returns an integer, which if casted properly
+	# in C resolves to a structure containing the regexp
+	# hooks. Setting it to a random integer will guarantee
+	# segfaults.
+	$^H{regcomp} = install();
+    } else {
+        delete $^H{regcomp};
+    }
+}
+
+sub bits {
+    my $on = shift;
+    my $bits = 0;
+    my $turning_all_off = ! @_ && ! $on;
+    my %seen;   # Has flag already been seen?
+    if ($turning_all_off) {
+
+        # Pretend were called with certain parameters, which are best dealt
+        # with that way.
+        push @_, keys %bitmask; # taint and eval
+        push @_, 'strict';
+    }
+
+    # Process each subpragma parameter
+   ARG:
+    foreach my $idx (0..$#_){
+        my $s=$_[$idx];
+        if ($s eq 'Debug' or $s eq 'Debugcolor') {
+            setcolor() if $s =~/color/i;
+            ${^RE_DEBUG_FLAGS} = 0 unless defined ${^RE_DEBUG_FLAGS};
+            for my $idx ($idx+1..$#_) {
+                if ($flags{$_[$idx]}) {
+                    if ($on) {
+                        ${^RE_DEBUG_FLAGS} |= $flags{$_[$idx]};
+                    } else {
+                        ${^RE_DEBUG_FLAGS} &= ~ $flags{$_[$idx]};
+                    }
+                } else {
+                    require Carp;
+                    Carp::carp("Unknown \"re\" Debug flag '$_[$idx]', possible flags: ",
+                               join(", ",sort keys %flags ) );
+                }
+            }
+            _load_unload($on ? 1 : ${^RE_DEBUG_FLAGS});
+            last;
+        } elsif ($s eq 'debug' or $s eq 'debugcolor') {
+	    setcolor() if $s =~/color/i;
+	    _load_unload($on);
+	    last;
+        } elsif (exists $bitmask{$s}) {
+	    $bits |= $bitmask{$s};
+	} elsif ($EXPORT_OK{$s}) {
+	    require Exporter;
+	    re->export_to_level(2, 're', $s);
+        } elsif ($s eq 'strict') {
+            if ($on) {
+                $^H{reflags} |= $reflags{$s};
+                warnings::warnif('experimental::re_strict',
+                                 "\"use re 'strict'\" is experimental");
+
+                # Turn on warnings if not already done.
+                if (! warnings::enabled('regexp')) {
+                    require warnings;
+                    warnings->import('regexp');
+                    $^H{re_strict} = 1;
+                }
+            }
+            else {
+                $^H{reflags} &= ~$reflags{$s} if $^H{reflags};
+
+                # Turn off warnings if we turned them on.
+                warnings->unimport('regexp') if $^H{re_strict};
+            }
+	    if ($^H{reflags}) {
+                $^H |= $flags_hint;
+            }
+            else {
+                $^H &= ~$flags_hint;
+            }
+	} elsif ($s =~ s/^\///) {
+	    my $reflags = $^H{reflags} || 0;
+	    my $seen_charset;
+	    while ($s =~ m/( . )/gx) {
+                local $_ = $1;
+		if (/[adul]/) {
+                    # The 'a' may be repeated; hide this from the rest of the
+                    # code by counting and getting rid of all of them, then
+                    # changing to 'aa' if there is a repeat.
+                    if ($_ eq 'a') {
+                        my $sav_pos = pos $s;
+                        my $a_count = $s =~ s/a//g;
+                        pos $s = $sav_pos - 1;  # -1 because got rid of the 'a'
+                        if ($a_count > 2) {
+			    require Carp;
+                            Carp::carp(
+                            qq 'The "a" flag may only appear a maximum of twice'
+                            );
+                        }
+                        elsif ($a_count == 2) {
+                            $_ = 'aa';
+                        }
+                    }
+		    if ($on) {
+			if ($seen_charset) {
+			    require Carp;
+                            if ($seen_charset ne $_) {
+                                Carp::carp(
+                                qq 'The "$seen_charset" and "$_" flags '
+                                .qq 'are exclusive'
+                                );
+                            }
+                            else {
+                                Carp::carp(
+                                qq 'The "$seen_charset" flag may not appear '
+                                .qq 'twice'
+                                );
+                            }
+			}
+			$^H{reflags_charset} = $reflags{$_};
+			$seen_charset = $_;
+		    }
+		    else {
+			delete $^H{reflags_charset}
+                                     if defined $^H{reflags_charset}
+                                        && $^H{reflags_charset} == $reflags{$_};
+		    }
+		} elsif (exists $reflags{$_}) {
+                    $seen{$_}++;
+                    $on
+		      ? $reflags |= $reflags{$_}
+		      : ($reflags &= ~$reflags{$_});
+		} else {
+		    require Carp;
+		    Carp::carp(
+		     qq'Unknown regular expression flag "$_"'
+		    );
+		    next ARG;
+		}
+	    }
+	    ($^H{reflags} = $reflags or defined $^H{reflags_charset})
+	                    ? $^H |= $flags_hint
+	                    : ($^H &= ~$flags_hint);
+	} else {
+	    require Carp;
+	    Carp::carp("Unknown \"re\" subpragma '$s' (known ones are: ",
+                       join(', ', map {qq('$_')} 'debug', 'debugcolor', sort keys %bitmask),
+                       ")");
+	}
+    }
+    if (exists $seen{'x'} && $seen{'x'} > 1
+        && (warnings::enabled("deprecated")
+            || warnings::enabled("regexp")))
+    {
+        my $message = "Having more than one /x regexp modifier is deprecated";
+        if (warnings::enabled("deprecated")) {
+            warnings::warn("deprecated", $message);
+        }
+        else {
+            warnings::warn("regexp", $message);
+        }
+    }
+
+    if ($turning_all_off) {
+        _load_unload(0);
+        $^H{reflags} = 0;
+        $^H{reflags_charset} = 0;
+        $^H &= ~$flags_hint;
+    }
+
+    $bits;
+}
+
+sub import {
+    shift;
+    $^H |= bits(1, @_);
+}
+
+sub unimport {
+    shift;
+    $^H &= ~ bits(0, @_);
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+re - Perl pragma to alter regular expression behaviour
+
+=head1 SYNOPSIS
+
+    use re 'taint';
+    ($x) = ($^X =~ /^(.*)$/s);     # $x is tainted here
+
+    $pat = '(?{ $foo = 1 })';
+    use re 'eval';
+    /foo${pat}bar/;		   # won't fail (when not under -T
+                                   # switch)
+
+    {
+	no re 'taint';		   # the default
+	($x) = ($^X =~ /^(.*)$/s); # $x is not tainted here
+
+	no re 'eval';		   # the default
+	/foo${pat}bar/;		   # disallowed (with or without -T
+                                   # switch)
+    }
+
+    use re 'strict';               # Raise warnings for more conditions
+
+    use re '/ix';
+    "FOO" =~ / foo /; # /ix implied
+    no re '/x';
+    "FOO" =~ /foo/; # just /i implied
+
+    use re 'debug';		   # output debugging info during
+    /^(.*)$/s;			   # compile and run time
+
+
+    use re 'debugcolor';	   # same as 'debug', but with colored
+                                   # output
+    ...
+
+    use re qw(Debug All);          # Same as "use re 'debug'", but you
+                                   # can use "Debug" with things other
+                                   # than 'All'
+    use re qw(Debug More);         # 'All' plus output more details
+    no re qw(Debug ALL);           # Turn on (almost) all re debugging
+                                   # in this scope
+
+    use re qw(is_regexp regexp_pattern); # import utility functions
+    my ($pat,$mods)=regexp_pattern(qr/foo/i);
+    if (is_regexp($obj)) { 
+        print "Got regexp: ",
+            scalar regexp_pattern($obj); # just as perl would stringify
+    }                                    # it but no hassle with blessed
+                                         # re's.
+
+(We use $^X in these examples because it's tainted by default.)
+
+=head1 DESCRIPTION
+
+=head2 'taint' mode
+
+When C<use re 'taint'> is in effect, and a tainted string is the target
+of a regexp, the regexp memories (or values returned by the m// operator
+in list context) are tainted.  This feature is useful when regexp operations
+on tainted data aren't meant to extract safe substrings, but to perform
+other transformations.
+
+=head2 'eval' mode
+
+When C<use re 'eval'> is in effect, a regexp is allowed to contain
+C<(?{ ... })> zero-width assertions and C<(??{ ... })> postponed
+subexpressions that are derived from variable interpolation, rather than
+appearing literally within the regexp.  That is normally disallowed, since
+it is a
+potential security risk.  Note that this pragma is ignored when the regular
+expression is obtained from tainted data, i.e.  evaluation is always
+disallowed with tainted regular expressions.  See L<perlre/(?{ code })> 
+and L<perlre/(??{ code })>.
+
+For the purpose of this pragma, interpolation of precompiled regular
+expressions (i.e., the result of C<qr//>) is I<not> considered variable
+interpolation.  Thus:
+
+    /foo${pat}bar/
+
+I<is> allowed if $pat is a precompiled regular expression, even
+if $pat contains C<(?{ ... })> assertions or C<(??{ ... })> subexpressions.
+
+=head2 'strict' mode
+
+Note that this is an experimental feature which may be changed or removed in a
+future Perl release.
+
+When C<use re 'strict'> is in effect, stricter checks are applied than
+otherwise when compiling regular expressions patterns.  These may cause more
+warnings to be raised than otherwise, and more things to be fatal instead of
+just warnings.  The purpose of this is to find and report at compile time some
+things, which may be legal, but have a reasonable possibility of not being the
+programmer's actual intent.  This automatically turns on the C<"regexp">
+warnings category (if not already on) within its scope.
+
+As an example of something that is caught under C<"strict'>, but not
+otherwise, is the pattern
+
+ qr/\xABC/
+
+The C<"\x"> construct without curly braces should be followed by exactly two
+hex digits; this one is followed by three.  This currently evaluates as
+equivalent to
+
+ qr/\x{AB}C/
+
+that is, the character whose code point value is C<0xAB>, followed by the
+letter C<C>.  But since C<C> is a a hex digit, there is a reasonable chance
+that the intent was
+
+ qr/\x{ABC}/
+
+that is the single character at C<0xABC>.  Under C<'strict'> it is an error to
+not follow C<\x> with exactly two hex digits.  When not under C<'strict'> a
+warning is generated if there is only one hex digit, and no warning is raised
+if there are more than two.
+
+It is expected that what exactly C<'strict'> does will evolve over time as we
+gain experience with it.  This means that programs that compile under it in
+today's Perl may not compile, or may have more or fewer warnings, in future
+Perls.  There is no backwards compatibility promises with regards to it.  Also
+there are already proposals for an alternate syntax for enabling it.  For
+these reasons, using it will raise a C<experimental::re_strict> class warning,
+unless that category is turned off.
+
+Note that if a pattern compiled within C<'strict'> is recompiled, say by
+interpolating into another pattern, outside of C<'strict'>, it is not checked
+again for strictness.  This is because if it works under strict it must work
+under non-strict.
+
+=head2 '/flags' mode
+
+When C<use re '/flags'> is specified, the given flags are automatically
+added to every regular expression till the end of the lexical scope.
+
+C<no re '/flags'> will turn off the effect of C<use re '/flags'> for the
+given flags.
+
+For example, if you want all your regular expressions to have /msx on by
+default, simply put
+
+    use re '/msx';
+
+at the top of your code.
+
+The character set /adul flags cancel each other out. So, in this example,
+
+    use re "/u";
+    "ss" =~ /\xdf/;
+    use re "/d";
+    "ss" =~ /\xdf/;
+
+the second C<use re> does an implicit C<no re '/u'>.
+
+Turning on one of the character set flags with C<use re> takes precedence over the
+C<locale> pragma and the 'unicode_strings' C<feature>, for regular
+expressions. Turning off one of these flags when it is active reverts to
+the behaviour specified by whatever other pragmata are in scope. For
+example:
+
+    use feature "unicode_strings";
+    no re "/u"; # does nothing
+    use re "/l";
+    no re "/l"; # reverts to unicode_strings behaviour
+
+=head2 'debug' mode
+
+When C<use re 'debug'> is in effect, perl emits debugging messages when
+compiling and using regular expressions.  The output is the same as that
+obtained by running a C<-DDEBUGGING>-enabled perl interpreter with the
+B<-Dr> switch. It may be quite voluminous depending on the complexity
+of the match.  Using C<debugcolor> instead of C<debug> enables a
+form of output that can be used to get a colorful display on terminals
+that understand termcap color sequences.  Set C<$ENV{PERL_RE_TC}> to a
+comma-separated list of C<termcap> properties to use for highlighting
+strings on/off, pre-point part on/off.
+See L<perldebug/"Debugging Regular Expressions"> for additional info.
+
+As of 5.9.5 the directive C<use re 'debug'> and its equivalents are
+lexically scoped, as the other directives are.  However they have both 
+compile-time and run-time effects.
+
+See L<perlmodlib/Pragmatic Modules>.
+
+=head2 'Debug' mode
+
+Similarly C<use re 'Debug'> produces debugging output, the difference
+being that it allows the fine tuning of what debugging output will be
+emitted. Options are divided into three groups, those related to
+compilation, those related to execution and those related to special
+purposes. The options are as follows:
+
+=over 4
+
+=item Compile related options
+
+=over 4
+
+=item COMPILE
+
+Turns on all compile related debug options.
+
+=item PARSE
+
+Turns on debug output related to the process of parsing the pattern.
+
+=item OPTIMISE
+
+Enables output related to the optimisation phase of compilation.
+
+=item TRIEC
+
+Detailed info about trie compilation.
+
+=item DUMP
+
+Dump the final program out after it is compiled and optimised.
+
+=item FLAGS
+
+Dump the flags associated with the program
+
+=item TEST
+
+Print output intended for testing the internals of the compile process
+
+=back
+
+=item Execute related options
+
+=over 4
+
+=item EXECUTE
+
+Turns on all execute related debug options.
+
+=item MATCH
+
+Turns on debugging of the main matching loop.
+
+=item TRIEE
+
+Extra debugging of how tries execute.
+
+=item INTUIT
+
+Enable debugging of start-point optimisations.
+
+=back
+
+=item Extra debugging options
+
+=over 4
+
+=item EXTRA
+
+Turns on all "extra" debugging options.
+
+=item BUFFERS
+
+Enable debugging the capture group storage during match. Warning,
+this can potentially produce extremely large output.
+
+=item TRIEM
+
+Enable enhanced TRIE debugging. Enhances both TRIEE
+and TRIEC.
+
+=item STATE
+
+Enable debugging of states in the engine.
+
+=item STACK
+
+Enable debugging of the recursion stack in the engine. Enabling
+or disabling this option automatically does the same for debugging
+states as well. This output from this can be quite large.
+
+=item GPOS
+
+Enable debugging of the \G modifier.
+
+=item OPTIMISEM
+
+Enable enhanced optimisation debugging and start-point optimisations.
+Probably not useful except when debugging the regexp engine itself.
+
+=item OFFSETS
+
+Dump offset information. This can be used to see how regops correlate
+to the pattern. Output format is
+
+   NODENUM:POSITION[LENGTH]
+
+Where 1 is the position of the first char in the string. Note that position
+can be 0, or larger than the actual length of the pattern, likewise length
+can be zero.
+
+=item OFFSETSDBG
+
+Enable debugging of offsets information. This emits copious
+amounts of trace information and doesn't mesh well with other
+debug options.
+
+Almost definitely only useful to people hacking
+on the offsets part of the debug engine.
+
+
+=back
+
+=item Other useful flags
+
+These are useful shortcuts to save on the typing.
+
+=over 4
+
+=item ALL
+
+Enable all options at once except OFFSETS, OFFSETSDBG and BUFFERS.
+(To get every single option without exception, use both ALL and EXTRA.)
+
+=item All
+
+Enable DUMP and all execute options. Equivalent to:
+
+  use re 'debug';
+
+=item MORE
+
+=item More
+
+Enable the options enabled by "All", plus STATE, TRIEC, and TRIEM.
+
+=back
+
+=back
+
+As of 5.9.5 the directive C<use re 'debug'> and its equivalents are
+lexically scoped, as are the other directives.  However they have both
+compile-time and run-time effects.
+
+=head2 Exportable Functions
+
+As of perl 5.9.5 're' debug contains a number of utility functions that
+may be optionally exported into the caller's namespace. They are listed
+below.
+
+=over 4
+
+=item is_regexp($ref)
+
+Returns true if the argument is a compiled regular expression as returned
+by C<qr//>, false if it is not.
+
+This function will not be confused by overloading or blessing. In
+internals terms, this extracts the regexp pointer out of the
+PERL_MAGIC_qr structure so it cannot be fooled.
+
+=item regexp_pattern($ref)
+
+If the argument is a compiled regular expression as returned by C<qr//>,
+then this function returns the pattern.
+
+In list context it returns a two element list, the first element
+containing the pattern and the second containing the modifiers used when
+the pattern was compiled.
+
+  my ($pat, $mods) = regexp_pattern($ref);
+
+In scalar context it returns the same as perl would when stringifying a raw
+C<qr//> with the same pattern inside.  If the argument is not a compiled
+reference then this routine returns false but defined in scalar context,
+and the empty list in list context. Thus the following
+
+    if (regexp_pattern($ref) eq '(?^i:foo)')
+
+will be warning free regardless of what $ref actually is.
+
+Like C<is_regexp> this function will not be confused by overloading
+or blessing of the object.
+
+=item regmust($ref)
+
+If the argument is a compiled regular expression as returned by C<qr//>,
+then this function returns what the optimiser considers to be the longest
+anchored fixed string and longest floating fixed string in the pattern.
+
+A I<fixed string> is defined as being a substring that must appear for the
+pattern to match. An I<anchored fixed string> is a fixed string that must
+appear at a particular offset from the beginning of the match. A I<floating
+fixed string> is defined as a fixed string that can appear at any point in
+a range of positions relative to the start of the match. For example,
+
+    my $qr = qr/here .* there/x;
+    my ($anchored, $floating) = regmust($qr);
+    print "anchored:'$anchored'\nfloating:'$floating'\n";
+
+results in
+
+    anchored:'here'
+    floating:'there'
+
+Because the C<here> is before the C<.*> in the pattern, its position
+can be determined exactly. That's not true, however, for the C<there>;
+it could appear at any point after where the anchored string appeared.
+Perl uses both for its optimisations, preferring the longer, or, if they are
+equal, the floating.
+
+B<NOTE:> This may not necessarily be the definitive longest anchored and
+floating string. This will be what the optimiser of the Perl that you
+are using thinks is the longest. If you believe that the result is wrong
+please report it via the L<perlbug> utility.
+
+=item regname($name,$all)
+
+Returns the contents of a named buffer of the last successful match. If
+$all is true, then returns an array ref containing one entry per buffer,
+otherwise returns the first defined buffer.
+
+=item regnames($all)
+
+Returns a list of all of the named buffers defined in the last successful
+match. If $all is true, then it returns all names defined, if not it returns
+only names which were involved in the match.
+
+=item regnames_count()
+
+Returns the number of distinct names defined in the pattern used
+for the last successful match.
+
+B<Note:> this result is always the actual number of distinct
+named buffers defined, it may not actually match that which is
+returned by C<regnames()> and related routines when those routines
+have not been called with the $all parameter set.
+
+=back
+
+=head1 SEE ALSO
+
+L<perlmodlib/Pragmatic Modules>.
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/threads.pm b/lib/5.24.1/x86_64-linux/threads.pm
new file mode 100644
index 00000000..39761be3
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/threads.pm
@@ -0,0 +1,1129 @@
+package threads;
+
+use 5.008;
+
+use strict;
+use warnings;
+
+our $VERSION = '2.07';
+my $XS_VERSION = $VERSION;
+$VERSION = eval $VERSION;
+
+# Verify this Perl supports threads
+require Config;
+if (! $Config::Config{useithreads}) {
+    die("This Perl not built to support threads\n");
+}
+
+# Complain if 'threads' is loaded after 'threads::shared'
+if ($threads::shared::threads_shared) {
+    warn <<'_MSG_';
+Warning, threads::shared has already been loaded.  To
+enable shared variables, 'use threads' must be called
+before threads::shared or any module that uses it.
+_MSG_
+}
+
+# Declare that we have been loaded
+$threads::threads = 1;
+
+# Load the XS code
+require XSLoader;
+XSLoader::load('threads', $XS_VERSION);
+
+
+### Export ###
+
+sub import
+{
+    my $class = shift;   # Not used
+
+    # Exported subroutines
+    my @EXPORT = qw(async);
+
+    # Handle args
+    while (my $sym = shift) {
+        if ($sym =~ /^(?:stack|exit)/i) {
+            if (defined(my $arg = shift)) {
+                if ($sym =~ /^stack/i) {
+                    threads->set_stack_size($arg);
+                } else {
+                    $threads::thread_exit_only = $arg =~ /^thread/i;
+                }
+            } else {
+                require Carp;
+                Carp::croak("threads: Missing argument for option: $sym");
+            }
+
+        } elsif ($sym =~ /^str/i) {
+            import overload ('""' => \&tid);
+
+        } elsif ($sym =~ /^(?::all|yield)$/) {
+            push(@EXPORT, qw(yield));
+
+        } else {
+            require Carp;
+            Carp::croak("threads: Unknown import option: $sym");
+        }
+    }
+
+    # Export subroutine names
+    my $caller = caller();
+    foreach my $sym (@EXPORT) {
+        no strict 'refs';
+        *{$caller.'::'.$sym} = \&{$sym};
+    }
+
+    # Set stack size via environment variable
+    if (exists($ENV{'PERL5_ITHREADS_STACK_SIZE'})) {
+        threads->set_stack_size($ENV{'PERL5_ITHREADS_STACK_SIZE'});
+    }
+}
+
+
+### Methods, etc. ###
+
+# Exit from a thread (only)
+sub exit
+{
+    my ($class, $status) = @_;
+    if (! defined($status)) {
+        $status = 0;
+    }
+
+    # Class method only
+    if (ref($class)) {
+        require Carp;
+        Carp::croak('Usage: threads->exit(status)');
+    }
+
+    $class->set_thread_exit_only(1);
+    CORE::exit($status);
+}
+
+# 'Constant' args for threads->list()
+sub threads::all      { }
+sub threads::running  { 1 }
+sub threads::joinable { 0 }
+
+# 'new' is an alias for 'create'
+*new = \&create;
+
+# 'async' is a function alias for the 'threads->create()' method
+sub async (&;@)
+{
+    unshift(@_, 'threads');
+    # Use "goto" trick to avoid pad problems from 5.8.1 (fixed in 5.8.2)
+    goto &create;
+}
+
+# Thread object equality checking
+use overload (
+    '==' => \&equal,
+    '!=' => sub { ! equal(@_) },
+    'fallback' => 1
+);
+
+1;
+
+__END__
+
+=head1 NAME
+
+threads - Perl interpreter-based threads
+
+=head1 VERSION
+
+This document describes threads version 2.07
+
+=head1 WARNING
+
+The "interpreter-based threads" provided by Perl are not the fast, lightweight
+system for multitasking that one might expect or hope for.  Threads are
+implemented in a way that make them easy to misuse.  Few people know how to
+use them correctly or will be able to provide help.
+
+The use of interpreter-based threads in perl is officially
+L<discouraged|perlpolicy/discouraged>.
+
+=head1 SYNOPSIS
+
+    use threads ('yield',
+                 'stack_size' => 64*4096,
+                 'exit' => 'threads_only',
+                 'stringify');
+
+    sub start_thread {
+        my @args = @_;
+        print('Thread started: ', join(' ', @args), "\n");
+    }
+    my $thr = threads->create('start_thread', 'argument');
+    $thr->join();
+
+    threads->create(sub { print("I am a thread\n"); })->join();
+
+    my $thr2 = async { foreach (@files) { ... } };
+    $thr2->join();
+    if (my $err = $thr2->error()) {
+        warn("Thread error: $err\n");
+    }
+
+    # Invoke thread in list context (implicit) so it can return a list
+    my ($thr) = threads->create(sub { return (qw/a b c/); });
+    # or specify list context explicitly
+    my $thr = threads->create({'context' => 'list'},
+                              sub { return (qw/a b c/); });
+    my @results = $thr->join();
+
+    $thr->detach();
+
+    # Get a thread's object
+    $thr = threads->self();
+    $thr = threads->object($tid);
+
+    # Get a thread's ID
+    $tid = threads->tid();
+    $tid = $thr->tid();
+    $tid = "$thr";
+
+    # Give other threads a chance to run
+    threads->yield();
+    yield();
+
+    # Lists of non-detached threads
+    my @threads = threads->list();
+    my $thread_count = threads->list();
+
+    my @running = threads->list(threads::running);
+    my @joinable = threads->list(threads::joinable);
+
+    # Test thread objects
+    if ($thr1 == $thr2) {
+        ...
+    }
+
+    # Manage thread stack size
+    $stack_size = threads->get_stack_size();
+    $old_size = threads->set_stack_size(32*4096);
+
+    # Create a thread with a specific context and stack size
+    my $thr = threads->create({ 'context'    => 'list',
+                                'stack_size' => 32*4096,
+                                'exit'       => 'thread_only' },
+                              \&foo);
+
+    # Get thread's context
+    my $wantarray = $thr->wantarray();
+
+    # Check thread's state
+    if ($thr->is_running()) {
+        sleep(1);
+    }
+    if ($thr->is_joinable()) {
+        $thr->join();
+    }
+
+    # Send a signal to a thread
+    $thr->kill('SIGUSR1');
+
+    # Exit a thread
+    threads->exit();
+
+=head1 DESCRIPTION
+
+Since Perl 5.8, thread programming has been available using a model called
+I<interpreter threads> which provides a new Perl interpreter for each
+thread, and, by default, results in no data or state information being shared
+between threads.
+
+(Prior to Perl 5.8, I<5005threads> was available through the C<Thread.pm> API.
+This threading model has been deprecated, and was removed as of Perl 5.10.0.)
+
+As just mentioned, all variables are, by default, thread local.  To use shared
+variables, you need to also load L<threads::shared>:
+
+    use threads;
+    use threads::shared;
+
+When loading L<threads::shared>, you must C<use threads> before you
+C<use threads::shared>.  (C<threads> will emit a warning if you do it the
+other way around.)
+
+It is strongly recommended that you enable threads via C<use threads> as early
+as possible in your script.
+
+If needed, scripts can be written so as to run on both threaded and
+non-threaded Perls:
+
+    my $can_use_threads = eval 'use threads; 1';
+    if ($can_use_threads) {
+        # Do processing using threads
+        ...
+    } else {
+        # Do it without using threads
+        ...
+    }
+
+=over
+
+=item $thr = threads->create(FUNCTION, ARGS)
+
+This will create a new thread that will begin execution with the specified
+entry point function, and give it the I<ARGS> list as parameters.  It will
+return the corresponding threads object, or C<undef> if thread creation failed.
+
+I<FUNCTION> may either be the name of a function, an anonymous subroutine, or
+a code ref.
+
+    my $thr = threads->create('func_name', ...);
+        # or
+    my $thr = threads->create(sub { ... }, ...);
+        # or
+    my $thr = threads->create(\&func, ...);
+
+The C<-E<gt>new()> method is an alias for C<-E<gt>create()>.
+
+=item $thr->join()
+
+This will wait for the corresponding thread to complete its execution.  When
+the thread finishes, C<-E<gt>join()> will return the return value(s) of the
+entry point function.
+
+The context (void, scalar or list) for the return value(s) for C<-E<gt>join()>
+is determined at the time of thread creation.
+
+    # Create thread in list context (implicit)
+    my ($thr1) = threads->create(sub {
+                                    my @results = qw(a b c);
+                                    return (@results);
+                                 });
+    #   or (explicit)
+    my $thr1 = threads->create({'context' => 'list'},
+                               sub {
+                                    my @results = qw(a b c);
+                                    return (@results);
+                               });
+    # Retrieve list results from thread
+    my @res1 = $thr1->join();
+
+    # Create thread in scalar context (implicit)
+    my $thr2 = threads->create(sub {
+                                    my $result = 42;
+                                    return ($result);
+                                 });
+    # Retrieve scalar result from thread
+    my $res2 = $thr2->join();
+
+    # Create a thread in void context (explicit)
+    my $thr3 = threads->create({'void' => 1},
+                               sub { print("Hello, world\n"); });
+    # Join the thread in void context (i.e., no return value)
+    $thr3->join();
+
+See L</"THREAD CONTEXT"> for more details.
+
+If the program exits without all threads having either been joined or
+detached, then a warning will be issued.
+
+Calling C<-E<gt>join()> or C<-E<gt>detach()> on an already joined thread will
+cause an error to be thrown.
+
+=item $thr->detach()
+
+Makes the thread unjoinable, and causes any eventual return value to be
+discarded.  When the program exits, any detached threads that are still
+running are silently terminated.
+
+If the program exits without all threads having either been joined or
+detached, then a warning will be issued.
+
+Calling C<-E<gt>join()> or C<-E<gt>detach()> on an already detached thread
+will cause an error to be thrown.
+
+=item threads->detach()
+
+Class method that allows a thread to detach itself.
+
+=item threads->self()
+
+Class method that allows a thread to obtain its own I<threads> object.
+
+=item $thr->tid()
+
+Returns the ID of the thread.  Thread IDs are unique integers with the main
+thread in a program being 0, and incrementing by 1 for every thread created.
+
+=item threads->tid()
+
+Class method that allows a thread to obtain its own ID.
+
+=item "$thr"
+
+If you add the C<stringify> import option to your C<use threads> declaration,
+then using a threads object in a string or a string context (e.g., as a hash
+key) will cause its ID to be used as the value:
+
+    use threads qw(stringify);
+
+    my $thr = threads->create(...);
+    print("Thread $thr started\n");  # Prints: Thread 1 started
+
+=item threads->object($tid)
+
+This will return the I<threads> object for the I<active> thread associated
+with the specified thread ID.  If C<$tid> is the value for the current thread,
+then this call works the same as C<-E<gt>self()>.  Otherwise, returns C<undef>
+if there is no thread associated with the TID, if the thread is joined or
+detached, if no TID is specified or if the specified TID is undef.
+
+=item threads->yield()
+
+This is a suggestion to the OS to let this thread yield CPU time to other
+threads.  What actually happens is highly dependent upon the underlying
+thread implementation.
+
+You may do C<use threads qw(yield)>, and then just use C<yield()> in your
+code.
+
+=item threads->list()
+
+=item threads->list(threads::all)
+
+=item threads->list(threads::running)
+
+=item threads->list(threads::joinable)
+
+With no arguments (or using C<threads::all>) and in a list context, returns a
+list of all non-joined, non-detached I<threads> objects.  In a scalar context,
+returns a count of the same.
+
+With a I<true> argument (using C<threads::running>), returns a list of all
+non-joined, non-detached I<threads> objects that are still running.
+
+With a I<false> argument (using C<threads::joinable>), returns a list of all
+non-joined, non-detached I<threads> objects that have finished running (i.e.,
+for which C<-E<gt>join()> will not I<block>).
+
+=item $thr1->equal($thr2)
+
+Tests if two threads objects are the same thread or not.  This is overloaded
+to the more natural forms:
+
+    if ($thr1 == $thr2) {
+        print("Threads are the same\n");
+    }
+    # or
+    if ($thr1 != $thr2) {
+        print("Threads differ\n");
+    }
+
+(Thread comparison is based on thread IDs.)
+
+=item async BLOCK;
+
+C<async> creates a thread to execute the block immediately following
+it.  This block is treated as an anonymous subroutine, and so must have a
+semicolon after the closing brace.  Like C<threads-E<gt>create()>, C<async>
+returns a I<threads> object.
+
+=item $thr->error()
+
+Threads are executed in an C<eval> context.  This method will return C<undef>
+if the thread terminates I<normally>.  Otherwise, it returns the value of
+C<$@> associated with the thread's execution status in its C<eval> context.
+
+=item $thr->_handle()
+
+This I<private> method returns a pointer (i.e., the memory location expressed
+as an unsigned integer) to the internal thread structure associated with a
+threads object.  For Win32, this is a pointer to the C<HANDLE> value returned
+by C<CreateThread> (i.e., C<HANDLE *>); for other platforms, it is a pointer
+to the C<pthread_t> structure used in the C<pthread_create> call (i.e.,
+C<pthread_t *>).
+
+This method is of no use for general Perl threads programming.  Its intent is
+to provide other (XS-based) thread modules with the capability to access, and
+possibly manipulate, the underlying thread structure associated with a Perl
+thread.
+
+=item threads->_handle()
+
+Class method that allows a thread to obtain its own I<handle>.
+
+=back
+
+=head1 EXITING A THREAD
+
+The usual method for terminating a thread is to
+L<return()|perlfunc/"return EXPR"> from the entry point function with the
+appropriate return value(s).
+
+=over
+
+=item threads->exit()
+
+If needed, a thread can be exited at any time by calling
+C<threads-E<gt>exit()>.  This will cause the thread to return C<undef> in a
+scalar context, or the empty list in a list context.
+
+When called from the I<main> thread, this behaves the same as C<exit(0)>.
+
+=item threads->exit(status)
+
+When called from a thread, this behaves like C<threads-E<gt>exit()> (i.e., the
+exit status code is ignored).
+
+When called from the I<main> thread, this behaves the same as C<exit(status)>.
+
+=item die()
+
+Calling C<die()> in a thread indicates an abnormal exit for the thread.  Any
+C<$SIG{__DIE__}> handler in the thread will be called first, and then the
+thread will exit with a warning message that will contain any arguments passed
+in the C<die()> call.
+
+=item exit(status)
+
+Calling L<exit()|perlfunc/"exit EXPR"> inside a thread causes the whole
+application to terminate.  Because of this, the use of C<exit()> inside
+threaded code, or in modules that might be used in threaded applications, is
+strongly discouraged.
+
+If C<exit()> really is needed, then consider using the following:
+
+    threads->exit() if threads->can('exit');   # Thread friendly
+    exit(status);
+
+=item use threads 'exit' => 'threads_only'
+
+This globally overrides the default behavior of calling C<exit()> inside a
+thread, and effectively causes such calls to behave the same as
+C<threads-E<gt>exit()>.  In other words, with this setting, calling C<exit()>
+causes only the thread to terminate.
+
+Because of its global effect, this setting should not be used inside modules
+or the like.
+
+The I<main> thread is unaffected by this setting.
+
+=item threads->create({'exit' => 'thread_only'}, ...)
+
+This overrides the default behavior of C<exit()> inside the newly created
+thread only.
+
+=item $thr->set_thread_exit_only(boolean)
+
+This can be used to change the I<exit thread only> behavior for a thread after
+it has been created.  With a I<true> argument, C<exit()> will cause only the
+thread to exit.  With a I<false> argument, C<exit()> will terminate the
+application.
+
+The I<main> thread is unaffected by this call.
+
+=item threads->set_thread_exit_only(boolean)
+
+Class method for use inside a thread to change its own behavior for C<exit()>.
+
+The I<main> thread is unaffected by this call.
+
+=back
+
+=head1 THREAD STATE
+
+The following boolean methods are useful in determining the I<state> of a
+thread.
+
+=over
+
+=item $thr->is_running()
+
+Returns true if a thread is still running (i.e., if its entry point function
+has not yet finished or exited).
+
+=item $thr->is_joinable()
+
+Returns true if the thread has finished running, is not detached and has not
+yet been joined.  In other words, the thread is ready to be joined, and a call
+to C<$thr-E<gt>join()> will not I<block>.
+
+=item $thr->is_detached()
+
+Returns true if the thread has been detached.
+
+=item threads->is_detached()
+
+Class method that allows a thread to determine whether or not it is detached.
+
+=back
+
+=head1 THREAD CONTEXT
+
+As with subroutines, the type of value returned from a thread's entry point
+function may be determined by the thread's I<context>:  list, scalar or void.
+The thread's context is determined at thread creation.  This is necessary so
+that the context is available to the entry point function via
+L<wantarray()|perlfunc/"wantarray">.  The thread may then specify a value of
+the appropriate type to be returned from C<-E<gt>join()>.
+
+=head2 Explicit context
+
+Because thread creation and thread joining may occur in different contexts, it
+may be desirable to state the context explicitly to the thread's entry point
+function.  This may be done by calling C<-E<gt>create()> with a hash reference
+as the first argument:
+
+    my $thr = threads->create({'context' => 'list'}, \&foo);
+    ...
+    my @results = $thr->join();
+
+In the above, the threads object is returned to the parent thread in scalar
+context, and the thread's entry point function C<foo> will be called in list
+(array) context such that the parent thread can receive a list (array) from
+the C<-E<gt>join()> call.  (C<'array'> is synonymous with C<'list'>.)
+
+Similarly, if you need the threads object, but your thread will not be
+returning a value (i.e., I<void> context), you would do the following:
+
+    my $thr = threads->create({'context' => 'void'}, \&foo);
+    ...
+    $thr->join();
+
+The context type may also be used as the I<key> in the hash reference followed
+by a I<true> value:
+
+    threads->create({'scalar' => 1}, \&foo);
+    ...
+    my ($thr) = threads->list();
+    my $result = $thr->join();
+
+=head2 Implicit context
+
+If not explicitly stated, the thread's context is implied from the context
+of the C<-E<gt>create()> call:
+
+    # Create thread in list context
+    my ($thr) = threads->create(...);
+
+    # Create thread in scalar context
+    my $thr = threads->create(...);
+
+    # Create thread in void context
+    threads->create(...);
+
+=head2 $thr->wantarray()
+
+This returns the thread's context in the same manner as
+L<wantarray()|perlfunc/"wantarray">.
+
+=head2 threads->wantarray()
+
+Class method to return the current thread's context.  This returns the same
+value as running L<wantarray()|perlfunc/"wantarray"> inside the current
+thread's entry point function.
+
+=head1 THREAD STACK SIZE
+
+The default per-thread stack size for different platforms varies
+significantly, and is almost always far more than is needed for most
+applications.  On Win32, Perl's makefile explicitly sets the default stack to
+16 MB; on most other platforms, the system default is used, which again may be
+much larger than is needed.
+
+By tuning the stack size to more accurately reflect your application's needs,
+you may significantly reduce your application's memory usage, and increase the
+number of simultaneously running threads.
+
+Note that on Windows, address space allocation granularity is 64 KB,
+therefore, setting the stack smaller than that on Win32 Perl will not save any
+more memory.
+
+=over
+
+=item threads->get_stack_size();
+
+Returns the current default per-thread stack size.  The default is zero, which
+means the system default stack size is currently in use.
+
+=item $size = $thr->get_stack_size();
+
+Returns the stack size for a particular thread.  A return value of zero
+indicates the system default stack size was used for the thread.
+
+=item $old_size = threads->set_stack_size($new_size);
+
+Sets a new default per-thread stack size, and returns the previous setting.
+
+Some platforms have a minimum thread stack size.  Trying to set the stack size
+below this value will result in a warning, and the minimum stack size will be
+used.
+
+Some Linux platforms have a maximum stack size.  Setting too large of a stack
+size will cause thread creation to fail.
+
+If needed, C<$new_size> will be rounded up to the next multiple of the memory
+page size (usually 4096 or 8192).
+
+Threads created after the stack size is set will then either call
+C<pthread_attr_setstacksize()> I<(for pthreads platforms)>, or supply the
+stack size to C<CreateThread()> I<(for Win32 Perl)>.
+
+(Obviously, this call does not affect any currently extant threads.)
+
+=item use threads ('stack_size' => VALUE);
+
+This sets the default per-thread stack size at the start of the application.
+
+=item $ENV{'PERL5_ITHREADS_STACK_SIZE'}
+
+The default per-thread stack size may be set at the start of the application
+through the use of the environment variable C<PERL5_ITHREADS_STACK_SIZE>:
+
+    PERL5_ITHREADS_STACK_SIZE=1048576
+    export PERL5_ITHREADS_STACK_SIZE
+    perl -e'use threads; print(threads->get_stack_size(), "\n")'
+
+This value overrides any C<stack_size> parameter given to C<use threads>.  Its
+primary purpose is to permit setting the per-thread stack size for legacy
+threaded applications.
+
+=item threads->create({'stack_size' => VALUE}, FUNCTION, ARGS)
+
+To specify a particular stack size for any individual thread, call
+C<-E<gt>create()> with a hash reference as the first argument:
+
+    my $thr = threads->create({'stack_size' => 32*4096},
+                              \&foo, @args);
+
+=item $thr2 = $thr1->create(FUNCTION, ARGS)
+
+This creates a new thread (C<$thr2>) that inherits the stack size from an
+existing thread (C<$thr1>).  This is shorthand for the following:
+
+    my $stack_size = $thr1->get_stack_size();
+    my $thr2 = threads->create({'stack_size' => $stack_size},
+                               FUNCTION, ARGS);
+
+=back
+
+=head1 THREAD SIGNALLING
+
+When safe signals is in effect (the default behavior - see L</"Unsafe signals">
+for more details), then signals may be sent and acted upon by individual
+threads.
+
+=over 4
+
+=item $thr->kill('SIG...');
+
+Sends the specified signal to the thread.  Signal names and (positive) signal
+numbers are the same as those supported by
+L<kill()|perlfunc/"kill SIGNAL, LIST">.  For example, 'SIGTERM', 'TERM' and
+(depending on the OS) 15 are all valid arguments to C<-E<gt>kill()>.
+
+Returns the thread object to allow for method chaining:
+
+    $thr->kill('SIG...')->join();
+
+=back
+
+Signal handlers need to be set up in the threads for the signals they are
+expected to act upon.  Here's an example for I<cancelling> a thread:
+
+    use threads;
+
+    sub thr_func
+    {
+        # Thread 'cancellation' signal handler
+        $SIG{'KILL'} = sub { threads->exit(); };
+
+        ...
+    }
+
+    # Create a thread
+    my $thr = threads->create('thr_func');
+
+    ...
+
+    # Signal the thread to terminate, and then detach
+    # it so that it will get cleaned up automatically
+    $thr->kill('KILL')->detach();
+
+Here's another simplistic example that illustrates the use of thread
+signalling in conjunction with a semaphore to provide rudimentary I<suspend>
+and I<resume> capabilities:
+
+    use threads;
+    use Thread::Semaphore;
+
+    sub thr_func
+    {
+        my $sema = shift;
+
+        # Thread 'suspend/resume' signal handler
+        $SIG{'STOP'} = sub {
+            $sema->down();      # Thread suspended
+            $sema->up();        # Thread resumes
+        };
+
+        ...
+    }
+
+    # Create a semaphore and pass it to a thread
+    my $sema = Thread::Semaphore->new();
+    my $thr = threads->create('thr_func', $sema);
+
+    # Suspend the thread
+    $sema->down();
+    $thr->kill('STOP');
+
+    ...
+
+    # Allow the thread to continue
+    $sema->up();
+
+CAVEAT:  The thread signalling capability provided by this module does not
+actually send signals via the OS.  It I<emulates> signals at the Perl-level
+such that signal handlers are called in the appropriate thread.  For example,
+sending C<$thr-E<gt>kill('STOP')> does not actually suspend a thread (or the
+whole process), but does cause a C<$SIG{'STOP'}> handler to be called in that
+thread (as illustrated above).
+
+As such, signals that would normally not be appropriate to use in the
+C<kill()> command (e.g., C<kill('KILL', $$)>) are okay to use with the
+C<-E<gt>kill()> method (again, as illustrated above).
+
+Correspondingly, sending a signal to a thread does not disrupt the operation
+the thread is currently working on:  The signal will be acted upon after the
+current operation has completed.  For instance, if the thread is I<stuck> on
+an I/O call, sending it a signal will not cause the I/O call to be interrupted
+such that the signal is acted up immediately.
+
+Sending a signal to a terminated/finished thread is ignored.
+
+=head1 WARNINGS
+
+=over 4
+
+=item Perl exited with active threads:
+
+If the program exits without all threads having either been joined or
+detached, then this warning will be issued.
+
+NOTE:  If the I<main> thread exits, then this warning cannot be suppressed
+using C<no warnings 'threads';> as suggested below.
+
+=item Thread creation failed: pthread_create returned #
+
+See the appropriate I<man> page for C<pthread_create> to determine the actual
+cause for the failure.
+
+=item Thread # terminated abnormally: ...
+
+A thread terminated in some manner other than just returning from its entry
+point function, or by using C<threads-E<gt>exit()>.  For example, the thread
+may have terminated because of an error, or by using C<die>.
+
+=item Using minimum thread stack size of #
+
+Some platforms have a minimum thread stack size.  Trying to set the stack size
+below this value will result in the above warning, and the stack size will be
+set to the minimum.
+
+=item Thread creation failed: pthread_attr_setstacksize(I<SIZE>) returned 22
+
+The specified I<SIZE> exceeds the system's maximum stack size.  Use a smaller
+value for the stack size.
+
+=back
+
+If needed, thread warnings can be suppressed by using:
+
+    no warnings 'threads';
+
+in the appropriate scope.
+
+=head1 ERRORS
+
+=over 4
+
+=item This Perl not built to support threads
+
+The particular copy of Perl that you're trying to use was not built using the
+C<useithreads> configuration option.
+
+Having threads support requires all of Perl and all of the XS modules in the
+Perl installation to be rebuilt; it is not just a question of adding the
+L<threads> module (i.e., threaded and non-threaded Perls are binary
+incompatible).
+
+=item Cannot change stack size of an existing thread
+
+The stack size of currently extant threads cannot be changed, therefore, the
+following results in the above error:
+
+    $thr->set_stack_size($size);
+
+=item Cannot signal threads without safe signals
+
+Safe signals must be in effect to use the C<-E<gt>kill()> signalling method.
+See L</"Unsafe signals"> for more details.
+
+=item Unrecognized signal name: ...
+
+The particular copy of Perl that you're trying to use does not support the
+specified signal being used in a C<-E<gt>kill()> call.
+
+=back
+
+=head1 BUGS AND LIMITATIONS
+
+Before you consider posting a bug report, please consult, and possibly post a
+message to the discussion forum to see if what you've encountered is a known
+problem.
+
+=over
+
+=item Thread-safe modules
+
+See L<perlmod/"Making your module threadsafe"> when creating modules that may
+be used in threaded applications, especially if those modules use non-Perl
+data, or XS code.
+
+=item Using non-thread-safe modules
+
+Unfortunately, you may encounter Perl modules that are not I<thread-safe>.
+For example, they may crash the Perl interpreter during execution, or may dump
+core on termination.  Depending on the module and the requirements of your
+application, it may be possible to work around such difficulties.
+
+If the module will only be used inside a thread, you can try loading the
+module from inside the thread entry point function using C<require> (and
+C<import> if needed):
+
+    sub thr_func
+    {
+        require Unsafe::Module
+        # Unsafe::Module->import(...);
+
+        ....
+    }
+
+If the module is needed inside the I<main> thread, try modifying your
+application so that the module is loaded (again using C<require> and
+C<-E<gt>import()>) after any threads are started, and in such a way that no
+other threads are started afterwards.
+
+If the above does not work, or is not adequate for your application, then file
+a bug report on L<http://rt.cpan.org/Public/> against the problematic module.
+
+=item Memory consumption
+
+On most systems, frequent and continual creation and destruction of threads
+can lead to ever-increasing growth in the memory footprint of the Perl
+interpreter.  While it is simple to just launch threads and then
+C<-E<gt>join()> or C<-E<gt>detach()> them, for long-lived applications, it is
+better to maintain a pool of threads, and to reuse them for the work needed,
+using L<queues|Thread::Queue> to notify threads of pending work.  The CPAN
+distribution of this module contains a simple example
+(F<examples/pool_reuse.pl>) illustrating the creation, use and monitoring of a
+pool of I<reusable> threads.
+
+=item Current working directory
+
+On all platforms except MSWin32, the setting for the current working directory
+is shared among all threads such that changing it in one thread (e.g., using
+C<chdir()>) will affect all the threads in the application.
+
+On MSWin32, each thread maintains its own the current working directory
+setting.
+
+=item Environment variables
+
+Currently, on all platforms except MSWin32, all I<system> calls (e.g., using
+C<system()> or back-ticks) made from threads use the environment variable
+settings from the I<main> thread.  In other words, changes made to C<%ENV> in
+a thread will not be visible in I<system> calls made by that thread.
+
+To work around this, set environment variables as part of the I<system> call.
+For example:
+
+    my $msg = 'hello';
+    system("FOO=$msg; echo \$FOO");   # Outputs 'hello' to STDOUT
+
+On MSWin32, each thread maintains its own set of environment variables.
+
+=item Catching signals
+
+Signals are I<caught> by the main thread (thread ID = 0) of a script.
+Therefore, setting up signal handlers in threads for purposes other than
+L</"THREAD SIGNALLING"> as documented above will not accomplish what is
+intended.
+
+This is especially true if trying to catch C<SIGALRM> in a thread.  To handle
+alarms in threads, set up a signal handler in the main thread, and then use
+L</"THREAD SIGNALLING"> to relay the signal to the thread:
+
+  # Create thread with a task that may time out
+  my $thr = threads->create(sub {
+      threads->yield();
+      eval {
+          $SIG{ALRM} = sub { die("Timeout\n"); };
+          alarm(10);
+          ...  # Do work here
+          alarm(0);
+      };
+      if ($@ =~ /Timeout/) {
+          warn("Task in thread timed out\n");
+      }
+  };
+
+  # Set signal handler to relay SIGALRM to thread
+  $SIG{ALRM} = sub { $thr->kill('ALRM') };
+
+  ... # Main thread continues working
+
+=item Parent-child threads
+
+On some platforms, it might not be possible to destroy I<parent> threads while
+there are still existing I<child> threads.
+
+=item Creating threads inside special blocks
+
+Creating threads inside C<BEGIN>, C<CHECK> or C<INIT> blocks should not be
+relied upon.  Depending on the Perl version and the application code, results
+may range from success, to (apparently harmless) warnings of leaked scalar, or
+all the way up to crashing of the Perl interpreter.
+
+=item Unsafe signals
+
+Since Perl 5.8.0, signals have been made safer in Perl by postponing their
+handling until the interpreter is in a I<safe> state.  See
+L<perl58delta/"Safe Signals"> and L<perlipc/"Deferred Signals (Safe Signals)">
+for more details.
+
+Safe signals is the default behavior, and the old, immediate, unsafe
+signalling behavior is only in effect in the following situations:
+
+=over 4
+
+=item * Perl has been built with C<PERL_OLD_SIGNALS> (see C<perl -V>).
+
+=item * The environment variable C<PERL_SIGNALS> is set to C<unsafe>
+(see L<perlrun/"PERL_SIGNALS">).
+
+=item * The module L<Perl::Unsafe::Signals> is used.
+
+=back
+
+If unsafe signals is in effect, then signal handling is not thread-safe, and
+the C<-E<gt>kill()> signalling method cannot be used.
+
+=item Returning closures from threads
+
+Returning closures from threads should not be relied upon.  Depending on the
+Perl version and the application code, results may range from success, to
+(apparently harmless) warnings of leaked scalar, or all the way up to crashing
+of the Perl interpreter.
+
+=item Returning objects from threads
+
+Returning objects from threads does not work.  Depending on the classes
+involved, you may be able to work around this by returning a serialized
+version of the object (e.g., using L<Data::Dumper> or L<Storable>), and then
+reconstituting it in the joining thread.  If you're using Perl 5.10.0 or
+later, and if the class supports L<shared objects|threads::shared/"OBJECTS">,
+you can pass them via L<shared queues|Thread::Queue>.
+
+=item END blocks in threads
+
+It is possible to add L<END blocks|perlmod/"BEGIN, UNITCHECK, CHECK, INIT and
+END"> to threads by using L<require|perlfunc/"require VERSION"> or
+L<eval|perlfunc/"eval EXPR"> with the appropriate code.  These C<END> blocks
+will then be executed when the thread's interpreter is destroyed (i.e., either
+during a C<-E<gt>join()> call, or at program termination).
+
+However, calling any L<threads> methods in such an C<END> block will most
+likely I<fail> (e.g., the application may hang, or generate an error) due to
+mutexes that are needed to control functionality within the L<threads> module.
+
+For this reason, the use of C<END> blocks in threads is B<strongly>
+discouraged.
+
+=item Open directory handles
+
+In perl 5.14 and higher, on systems other than Windows that do
+not support the C<fchdir> C function, directory handles (see
+L<opendir|perlfunc/"opendir DIRHANDLE,EXPR">) will not be copied to new
+threads. You can use the C<d_fchdir> variable in L<Config.pm|Config> to
+determine whether your system supports it.
+
+In prior perl versions, spawning threads with open directory handles would
+crash the interpreter.
+L<[perl #75154]|http://rt.perl.org/rt3/Public/Bug/Display.html?id=75154>
+
+=item Perl Bugs and the CPAN Version of L<threads>
+
+Support for threads extends beyond the code in this module (i.e.,
+F<threads.pm> and F<threads.xs>), and into the Perl interpreter itself.  Older
+versions of Perl contain bugs that may manifest themselves despite using the
+latest version of L<threads> from CPAN.  There is no workaround for this other
+than upgrading to the latest version of Perl.
+
+Even with the latest version of Perl, it is known that certain constructs
+with threads may result in warning messages concerning leaked scalars or
+unreferenced scalars.  However, such warnings are harmless, and may safely be
+ignored.
+
+You can search for L<threads> related bug reports at
+L<http://rt.cpan.org/Public/>.  If needed submit any new bugs, problems,
+patches, etc. to: L<http://rt.cpan.org/Public/Dist/Display.html?Name=threads>
+
+=back
+
+=head1 REQUIREMENTS
+
+Perl 5.8.0 or later
+
+=head1 SEE ALSO
+
+L<threads> Discussion Forum on CPAN:
+L<http://www.cpanforum.com/dist/threads>
+
+L<threads::shared>, L<perlthrtut>
+
+L<http://www.perl.com/pub/a/2002/06/11/threads.html> and
+L<http://www.perl.com/pub/a/2002/09/04/threads.html>
+
+Perl threads mailing list:
+L<http://lists.perl.org/list/ithreads.html>
+
+Stack size discussion:
+L<http://www.perlmonks.org/?node_id=532956>
+
+=head1 AUTHOR
+
+Artur Bergman E<lt>sky AT crucially DOT netE<gt>
+
+CPAN version produced by Jerry D. Hedden <jdhedden AT cpan DOT org>
+
+=head1 LICENSE
+
+threads is released under the same license as Perl.
+
+=head1 ACKNOWLEDGEMENTS
+
+Richard Soderberg E<lt>perl AT crystalflame DOT netE<gt> -
+Helping me out tons, trying to find reasons for races and other weird bugs!
+
+Simon Cozens E<lt>simon AT brecon DOT co DOT ukE<gt> -
+Being there to answer zillions of annoying questions
+
+Rocco Caputo E<lt>troc AT netrus DOT netE<gt>
+
+Vipul Ved Prakash E<lt>mail AT vipul DOT netE<gt> -
+Helping with debugging
+
+Dean Arnold E<lt>darnold AT presicient DOT comE<gt> -
+Stack size API
+
+=cut
diff --git a/lib/5.24.1/x86_64-linux/threads/shared.pm b/lib/5.24.1/x86_64-linux/threads/shared.pm
new file mode 100644
index 00000000..89a79a48
--- /dev/null
+++ b/lib/5.24.1/x86_64-linux/threads/shared.pm
@@ -0,0 +1,672 @@
+package threads::shared;
+
+use 5.008;
+
+use strict;
+use warnings;
+
+use Scalar::Util qw(reftype refaddr blessed);
+
+our $VERSION = '1.51'; # Please update the pod, too.
+my $XS_VERSION = $VERSION;
+$VERSION = eval $VERSION;
+
+# Declare that we have been loaded
+$threads::shared::threads_shared = 1;
+
+# Method of complaint about things we can't clone
+$threads::shared::clone_warn = undef;
+
+# Load the XS code, if applicable
+if ($threads::threads) {
+    require XSLoader;
+    XSLoader::load('threads::shared', $XS_VERSION);
+
+    *is_shared = \&_id;
+
+} else {
+    # String eval is generally evil, but we don't want these subs to
+    # exist at all if 'threads' is not loaded successfully.
+    # Vivifying them conditionally this way saves on average about 4K
+    # of memory per thread.
+    eval <<'_MARKER_';
+        sub share          (\[$@%])         { return $_[0] }
+        sub is_shared      (\[$@%])         { undef }
+        sub cond_wait      (\[$@%];\[$@%])  { undef }
+        sub cond_timedwait (\[$@%]$;\[$@%]) { undef }
+        sub cond_signal    (\[$@%])         { undef }
+        sub cond_broadcast (\[$@%])         { undef }
+_MARKER_
+}
+
+
+### Export ###
+
+sub import
+{
+    # Exported subroutines
+    my @EXPORT = qw(share is_shared cond_wait cond_timedwait
+                    cond_signal cond_broadcast shared_clone);
+    if ($threads::threads) {
+        push(@EXPORT, 'bless');
+    }
+
+    # Export subroutine names
+    my $caller = caller();
+    foreach my $sym (@EXPORT) {
+        no strict 'refs';
+        *{$caller.'::'.$sym} = \&{$sym};
+    }
+}
+
+
+# Predeclarations for internal functions
+my ($make_shared);
+
+
+### Methods, etc. ###
+
+sub threads::shared::tie::SPLICE
+{
+    require Carp;
+    Carp::croak('Splice not implemented for shared arrays');
+}
+
+
+# Create a thread-shared clone of a complex data structure or object
+sub shared_clone
+{
+    if (@_ != 1) {
+        require Carp;
+        Carp::croak('Usage: shared_clone(REF)');
+    }
+
+    return $make_shared->(shift, {});
+}
+
+
+### Internal Functions ###
+
+# Used by shared_clone() to recursively clone
+#   a complex data structure or object
+$make_shared = sub {
+    my ($item, $cloned) = @_;
+
+    # Just return the item if:
+    # 1. Not a ref;
+    # 2. Already shared; or
+    # 3. Not running 'threads'.
+    return $item if (! ref($item) || is_shared($item) || ! $threads::threads);
+
+    # Check for previously cloned references
+    #   (this takes care of circular refs as well)
+    my $addr = refaddr($item);
+    if (exists($cloned->{$addr})) {
+        # Return the already existing clone
+        return $cloned->{$addr};
+    }
+
+    # Make copies of array, hash and scalar refs and refs of refs
+    my $copy;
+    my $ref_type = reftype($item);
+
+    # Copy an array ref
+    if ($ref_type eq 'ARRAY') {
+        # Make empty shared array ref
+        $copy = &share([]);
+        # Add to clone checking hash
+        $cloned->{$addr} = $copy;
+        # Recursively copy and add contents
+        push(@$copy, map { $make_shared->($_, $cloned) } @$item);
+    }
+
+    # Copy a hash ref
+    elsif ($ref_type eq 'HASH') {
+        # Make empty shared hash ref
+        $copy = &share({});
+        # Add to clone checking hash
+        $cloned->{$addr} = $copy;
+        # Recursively copy and add contents
+        foreach my $key (keys(%{$item})) {
+            $copy->{$key} = $make_shared->($item->{$key}, $cloned);
+        }
+    }
+
+    # Copy a scalar ref
+    elsif ($ref_type eq 'SCALAR') {
+        $copy = \do{ my $scalar = $$item; };
+        share($copy);
+        # Add to clone checking hash
+        $cloned->{$addr} = $copy;
+    }
+
+    # Copy of a ref of a ref
+    elsif ($ref_type eq 'REF') {
+        # Special handling for $x = \$x
+        if ($addr == refaddr($$item)) {
+            $copy = \$copy;
+            share($copy);
+            $cloned->{$addr} = $copy;
+        } else {
+            my $tmp;
+            $copy = \$tmp;
+            share($copy);
+            # Add to clone checking hash
+            $cloned->{$addr} = $copy;
+            # Recursively copy and add contents
+            $tmp = $make_shared->($$item, $cloned);
+        }
+
+    } else {
+        require Carp;
+        if (! defined($threads::shared::clone_warn)) {
+            Carp::croak("Unsupported ref type: ", $ref_type);
+        } elsif ($threads::shared::clone_warn) {
+            Carp::carp("Unsupported ref type: ", $ref_type);
+        }
+        return undef;
+    }
+
+    # If input item is an object, then bless the copy into the same class
+    if (my $class = blessed($item)) {
+        bless($copy, $class);
+    }
+
+    # Clone READONLY flag
+    if ($ref_type eq 'SCALAR') {
+        if (Internals::SvREADONLY($$item)) {
+            Internals::SvREADONLY($$copy, 1) if ($] >= 5.008003);
+        }
+    }
+    if (Internals::SvREADONLY($item)) {
+        Internals::SvREADONLY($copy, 1) if ($] >= 5.008003);
+    }
+
+    return $copy;
+};
+
+1;
+
+__END__
+
+=head1 NAME
+
+threads::shared - Perl extension for sharing data structures between threads
+
+=head1 VERSION
+
+This document describes threads::shared version 1.51
+
+=head1 SYNOPSIS
+
+  use threads;
+  use threads::shared;
+
+  my $var :shared;
+  my %hsh :shared;
+  my @ary :shared;
+
+  my ($scalar, @array, %hash);
+  share($scalar);
+  share(@array);
+  share(%hash);
+
+  $var = $scalar_value;
+  $var = $shared_ref_value;
+  $var = shared_clone($non_shared_ref_value);
+  $var = shared_clone({'foo' => [qw/foo bar baz/]});
+
+  $hsh{'foo'} = $scalar_value;
+  $hsh{'bar'} = $shared_ref_value;
+  $hsh{'baz'} = shared_clone($non_shared_ref_value);
+  $hsh{'quz'} = shared_clone([1..3]);
+
+  $ary[0] = $scalar_value;
+  $ary[1] = $shared_ref_value;
+  $ary[2] = shared_clone($non_shared_ref_value);
+  $ary[3] = shared_clone([ {}, [] ]);
+
+  { lock(%hash); ...  }
+
+  cond_wait($scalar);
+  cond_timedwait($scalar, time() + 30);
+  cond_broadcast(@array);
+  cond_signal(%hash);
+
+  my $lockvar :shared;
+  # condition var != lock var
+  cond_wait($var, $lockvar);
+  cond_timedwait($var, time()+30, $lockvar);
+
+=head1 DESCRIPTION
+
+By default, variables are private to each thread, and each newly created
+thread gets a private copy of each existing variable.  This module allows you
+to share variables across different threads (and pseudo-forks on Win32).  It
+is used together with the L<threads> module.
+
+This module supports the sharing of the following data types only:  scalars
+and scalar refs, arrays and array refs, and hashes and hash refs.
+
+=head1 EXPORT
+
+The following functions are exported by this module: C<share>,
+C<shared_clone>, C<is_shared>, C<cond_wait>, C<cond_timedwait>, C<cond_signal>
+and C<cond_broadcast>
+
+Note that if this module is imported when L<threads> has not yet been loaded,
+then these functions all become no-ops.  This makes it possible to write
+modules that will work in both threaded and non-threaded environments.
+
+=head1 FUNCTIONS
+
+=over 4
+
+=item share VARIABLE
+
+C<share> takes a variable and marks it as shared:
+
+  my ($scalar, @array, %hash);
+  share($scalar);
+  share(@array);
+  share(%hash);
+
+C<share> will return the shared rvalue, but always as a reference.
+
+Variables can also be marked as shared at compile time by using the
+C<:shared> attribute:
+
+  my ($var, %hash, @array) :shared;
+
+Shared variables can only store scalars, refs of shared variables, or
+refs of shared data (discussed in next section):
+
+  my ($var, %hash, @array) :shared;
+  my $bork;
+
+  # Storing scalars
+  $var = 1;
+  $hash{'foo'} = 'bar';
+  $array[0] = 1.5;
+
+  # Storing shared refs
+  $var = \%hash;
+  $hash{'ary'} = \@array;
+  $array[1] = \$var;
+
+  # The following are errors:
+  #   $var = \$bork;                    # ref of non-shared variable
+  #   $hash{'bork'} = [];               # non-shared array ref
+  #   push(@array, { 'x' => 1 });       # non-shared hash ref
+
+=item shared_clone REF
+
+C<shared_clone> takes a reference, and returns a shared version of its
+argument, performing a deep copy on any non-shared elements.  Any shared
+elements in the argument are used as is (i.e., they are not cloned).
+
+  my $cpy = shared_clone({'foo' => [qw/foo bar baz/]});
+
+Object status (i.e., the class an object is blessed into) is also cloned.
+
+  my $obj = {'foo' => [qw/foo bar baz/]};
+  bless($obj, 'Foo');
+  my $cpy = shared_clone($obj);
+  print(ref($cpy), "\n");         # Outputs 'Foo'
+
+For cloning empty array or hash refs, the following may also be used:
+
+  $var = &share([]);   # Same as $var = shared_clone([]);
+  $var = &share({});   # Same as $var = shared_clone({});
+
+Not all Perl data types can be cloned (e.g., globs, code refs).  By default,
+C<shared_clone> will L<croak|Carp> if it encounters such items.  To change
+this behaviour to a warning, then set the following:
+
+  $threads::shared::clone_warn = 1;
+
+In this case, C<undef> will be substituted for the item to be cloned.  If
+set to zero:
+
+  $threads::shared::clone_warn = 0;
+
+then the C<undef> substitution will be performed silently.
+
+=item is_shared VARIABLE
+
+C<is_shared> checks if the specified variable is shared or not.  If shared,
+returns the variable's internal ID (similar to
+C<refaddr()> (see L<Scalar::Util>).  Otherwise, returns C<undef>.
+
+  if (is_shared($var)) {
+      print("\$var is shared\n");
+  } else {
+      print("\$var is not shared\n");
+  }
+
+When used on an element of an array or hash, C<is_shared> checks if the
+specified element belongs to a shared array or hash.  (It does not check
+the contents of that element.)
+
+  my %hash :shared;
+  if (is_shared(%hash)) {
+      print("\%hash is shared\n");
+  }
+
+  $hash{'elem'} = 1;
+  if (is_shared($hash{'elem'})) {
+      print("\$hash{'elem'} is in a shared hash\n");
+  }
+
+=item lock VARIABLE
+
+C<lock> places a B<advisory> lock on a variable until the lock goes out of
+scope.  If the variable is locked by another thread, the C<lock> call will
+block until it's available.  Multiple calls to C<lock> by the same thread from
+within dynamically nested scopes are safe -- the variable will remain locked
+until the outermost lock on the variable goes out of scope.
+
+C<lock> follows references exactly I<one> level:
+
+  my %hash :shared;
+  my $ref = \%hash;
+  lock($ref);           # This is equivalent to lock(%hash)
+
+Note that you cannot explicitly unlock a variable; you can only wait for the
+lock to go out of scope.  This is most easily accomplished by locking the
+variable inside a block.
+
+  my $var :shared;
+  {
+      lock($var);
+      # $var is locked from here to the end of the block
+      ...
+  }
+  # $var is now unlocked
+
+As locks are advisory, they do not prevent data access or modification by
+another thread that does not itself attempt to obtain a lock on the variable.
+
+You cannot lock the individual elements of a container variable:
+
+  my %hash :shared;
+  $hash{'foo'} = 'bar';
+  #lock($hash{'foo'});          # Error
+  lock(%hash);                  # Works
+
+If you need more fine-grained control over shared variable access, see
+L<Thread::Semaphore>.
+
+=item cond_wait VARIABLE
+
+=item cond_wait CONDVAR, LOCKVAR
+
+The C<cond_wait> function takes a B<locked> variable as a parameter, unlocks
+the variable, and blocks until another thread does a C<cond_signal> or
+C<cond_broadcast> for that same locked variable.  The variable that
+C<cond_wait> blocked on is re-locked after the C<cond_wait> is satisfied.  If
+there are multiple threads C<cond_wait>ing on the same variable, all but one
+will re-block waiting to reacquire the
+lock on the variable.  (So if you're only
+using C<cond_wait> for synchronization, give up the lock as soon as possible).
+The two actions of unlocking the variable and entering the blocked wait state
+are atomic, the two actions of exiting from the blocked wait state and
+re-locking the variable are not.
+
+In its second form, C<cond_wait> takes a shared, B<unlocked> variable followed
+by a shared, B<locked> variable.  The second variable is unlocked and thread
+execution suspended until another thread signals the first variable.
+
+It is important to note that the variable can be notified even if no thread
+C<cond_signal> or C<cond_broadcast> on the variable.  It is therefore
+important to check the value of the variable and go back to waiting if the
+requirement is not fulfilled.  For example, to pause until a shared counter
+drops to zero:
+
+  { lock($counter); cond_wait($counter) until $counter == 0; }
+
+=item cond_timedwait VARIABLE, ABS_TIMEOUT
+
+=item cond_timedwait CONDVAR, ABS_TIMEOUT, LOCKVAR
+
+In its two-argument form, C<cond_timedwait> takes a B<locked> variable and an
+absolute timeout in I<epoch> seconds (see L<time() in perlfunc|perlfunc/time>
+for more) as parameters, unlocks the variable, and blocks until the
+timeout is reached or another thread signals the variable.  A false value is
+returned if the timeout is reached, and a true value otherwise.  In either
+case, the variable is re-locked upon return.
+
+Like C<cond_wait>, this function may take a shared, B<locked> variable as an
+additional parameter; in this case the first parameter is an B<unlocked>
+condition variable protected by a distinct lock variable.
+
+Again like C<cond_wait>, waking up and reacquiring the lock are not atomic,
+and you should always check your desired condition after this function
+returns.  Since the timeout is an absolute value, however, it does not have to
+be recalculated with each pass:
+
+  lock($var);
+  my $abs = time() + 15;
+  until ($ok = desired_condition($var)) {
+      last if !cond_timedwait($var, $abs);
+  }
+  # we got it if $ok, otherwise we timed out!
+
+=item cond_signal VARIABLE
+
+The C<cond_signal> function takes a B<locked> variable as a parameter and
+unblocks one thread that's C<cond_wait>ing
+on that variable.  If more than one
+thread is blocked in a C<cond_wait> on that variable, only one (and which one
+is indeterminate) will be unblocked.
+
+If there are no threads blocked in a C<cond_wait> on the variable, the signal
+is discarded.  By always locking before
+signaling, you can (with care), avoid
+signaling before another thread has entered cond_wait().
+
+C<cond_signal> will normally generate a warning if you attempt to use it on an
+unlocked variable.  On the rare occasions
+where doing this may be sensible, you
+can suppress the warning with:
+
+  { no warnings 'threads'; cond_signal($foo); }
+
+=item cond_broadcast VARIABLE
+
+The C<cond_broadcast> function works similarly to C<cond_signal>.
+C<cond_broadcast>, though, will unblock B<all> the threads that are blocked in
+a C<cond_wait> on the locked variable, rather than only one.
+
+=back
+
+=head1 OBJECTS
+
+L<threads::shared> exports a version of L<bless()|perlfunc/"bless REF"> that
+works on shared objects such that I<blessings> propagate across threads.
+
+  # Create a shared 'Foo' object
+  my $foo :shared = shared_clone({});
+  bless($foo, 'Foo');
+
+  # Create a shared 'Bar' object
+  my $bar :shared = shared_clone({});
+  bless($bar, 'Bar');
+
+  # Put 'bar' inside 'foo'
+  $foo->{'bar'} = $bar;
+
+  # Rebless the objects via a thread
+  threads->create(sub {
+      # Rebless the outer object
+      bless($foo, 'Yin');
+
+      # Cannot directly rebless the inner object
+      #bless($foo->{'bar'}, 'Yang');
+
+      # Retrieve and rebless the inner object
+      my $obj = $foo->{'bar'};
+      bless($obj, 'Yang');
+      $foo->{'bar'} = $obj;
+
+  })->join();
+
+  print(ref($foo),          "\n");    # Prints 'Yin'
+  print(ref($foo->{'bar'}), "\n");    # Prints 'Yang'
+  print(ref($bar),          "\n");    # Also prints 'Yang'
+
+=head1 NOTES
+
+L<threads::shared> is designed to disable itself silently if threads are not
+available.  This allows you to write modules and packages that can be used
+in both threaded and non-threaded applications.
+
+If you want access to threads, you must C<use threads> before you
+C<use threads::shared>.  L<threads> will emit a warning if you use it after
+L<threads::shared>.
+
+=head1 WARNINGS
+
+=over 4
+
+=item cond_broadcast() called on unlocked variable
+
+=item cond_signal() called on unlocked variable
+
+See L</"cond_signal VARIABLE">, above.
+
+=back
+
+=head1 BUGS AND LIMITATIONS
+
+When C<share> is used on arrays, hashes, array refs or hash refs, any data
+they contain will be lost.
+
+  my @arr = qw(foo bar baz);
+  share(@arr);
+  # @arr is now empty (i.e., == ());
+
+  # Create a 'foo' object
+  my $foo = { 'data' => 99 };
+  bless($foo, 'foo');
+
+  # Share the object
+  share($foo);        # Contents are now wiped out
+  print("ERROR: \$foo is empty\n")
+      if (! exists($foo->{'data'}));
+
+Therefore, populate such variables B<after> declaring them as shared.  (Scalar
+and scalar refs are not affected by this problem.)
+
+Blessing a shared item after it has been nested in another shared item does
+not propagate the blessing to the shared reference:
+
+  my $foo = &share({});
+  my $bar = &share({});
+  $bar->{foo} = $foo;
+  bless($foo, 'baz');   # $foo is now of class 'baz',
+                        # but $bar->{foo} is unblessed.
+
+Therefore, you should bless objects before sharing them.
+
+It is often not wise to share an object unless the class itself has been
+written to support sharing.  For example, an object's destructor may get
+called multiple times, once for each thread's scope exit.  Another danger is
+that the contents of hash-based objects will be lost due to the above
+mentioned limitation.  See F<examples/class.pl> (in the CPAN distribution of
+this module) for how to create a class that supports object sharing.
+
+Destructors may not be called on objects if those objects still exist at
+global destruction time.  If the destructors must be called, make sure
+there are no circular references and that nothing is referencing the
+objects, before the program ends.
+
+Does not support C<splice> on arrays.  Does not support explicitly changing
+array lengths via $#array -- use C<push> and C<pop> instead.
+
+Taking references to the elements of shared arrays and hashes does not
+autovivify the elements, and neither does slicing a shared array/hash over
+non-existent indices/keys autovivify the elements.
+
+C<share()> allows you to C<< share($hashref->{key}) >> and
+C<< share($arrayref->[idx]) >> without giving any error message.  But the
+C<< $hashref->{key} >> or C<< $arrayref->[idx] >> is B<not> shared, causing
+the error "lock can only be used on shared values" to occur when you attempt
+to C<< lock($hashref->{key}) >> or C<< lock($arrayref->[idx]) >> in another
+thread.
+
+Using C<refaddr()> is unreliable for testing
+whether or not two shared references are equivalent (e.g., when testing for
+circular references).  Use L<is_shared()|/"is_shared VARIABLE">, instead:
+
+    use threads;
+    use threads::shared;
+    use Scalar::Util qw(refaddr);
+
+    # If ref is shared, use threads::shared's internal ID.
+    # Otherwise, use refaddr().
+    my $addr1 = is_shared($ref1) || refaddr($ref1);
+    my $addr2 = is_shared($ref2) || refaddr($ref2);
+
+    if ($addr1 == $addr2) {
+        # The refs are equivalent
+    }
+
+L<each()|perlfunc/"each HASH"> does not work properly on shared references
+embedded in shared structures.  For example:
+
+    my %foo :shared;
+    $foo{'bar'} = shared_clone({'a'=>'x', 'b'=>'y', 'c'=>'z'});
+
+    while (my ($key, $val) = each(%{$foo{'bar'}})) {
+        ...
+    }
+
+Either of the following will work instead:
+
+    my $ref = $foo{'bar'};
+    while (my ($key, $val) = each(%{$ref})) {
+        ...
+    }
+
+    foreach my $key (keys(%{$foo{'bar'}})) {
+        my $val = $foo{'bar'}{$key};
+        ...
+    }
+
+This module supports dual-valued variables created using C<dualvar()> from
+L<Scalar::Util>.  However, while C<$!> acts
+like a dualvar, it is implemented as a tied SV.  To propagate its value, use
+the follow construct, if needed:
+
+    my $errno :shared = dualvar($!,$!);
+
+View existing bug reports at, and submit any new bugs, problems, patches, etc.
+to: L<http://rt.cpan.org/Public/Dist/Display.html?Name=threads-shared>
+
+=head1 SEE ALSO
+
+L<threads::shared> Discussion Forum on CPAN:
+L<http://www.cpanforum.com/dist/threads-shared>
+
+L<threads>, L<perlthrtut>
+
+L<http://www.perl.com/pub/a/2002/06/11/threads.html> and
+L<http://www.perl.com/pub/a/2002/09/04/threads.html>
+
+Perl threads mailing list:
+L<http://lists.perl.org/list/ithreads.html>
+
+=head1 AUTHOR
+
+Artur Bergman E<lt>sky AT crucially DOT netE<gt>
+
+Documentation borrowed from the old Thread.pm.
+
+CPAN version produced by Jerry D. Hedden E<lt>jdhedden AT cpan DOT orgE<gt>.
+
+=head1 LICENSE
+
+threads::shared is released under the same license as Perl.
+
+=cut